epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler

File name: /tmp/phpR4KHTB (615 bytes)
Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpR4KHTB.out'
EP-ASCII: UK
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x80 [00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: HEASS source

Filename: TAN2.HEA


                ORG 100H
.SET            MACRO @VALT,@ERTEK
                LD B,1
                LD C,@VALT
                LD D,@ERTEK
                EXOS 16
                ENDM

                LD SP,3FFFH
                .SET 22,0
                .SET 23,0
                .SET 24,12
                .SET 25,3
                LD A,1
                LD DE,NEV
                EXOS 2
NEV             DB 6,"VIDEO:"

                LD A,1
                LD BC,(HOSSZ)
                LD DE,ESC1
                EXOS 8
HOSSZ           DW 15
ESC1            DB 27,"o"
                DB 27,"C",1,2,3,255,0,0,0,0
                DB 27,"I",0

                LD A,1
                LD BC,HOSSZ2
                LD DE,SZOV
                EXOS 8
SZOV            DB 10," ENTERPRISE"
HOSSZ2          EQU $-SZOV

                LD B,1
                LD A,1
                LD C,1
                LD D,3
                LD E,10
                EXOS 11

                LD B,50
CIKLUS          HALT
                HALT
                HALT
                HALT
                HALT
                DJNZ CIKLUS
                JP VISSZA
VISSZA          LD A,1
                EXOS 3
                LD DE,BASIC
                EXOS 26
BASIC           DB 5,"BASIC"
                END

End of FILE parsing, because: After HEASS file