ORG 100H        ; Forditasi cim beallitasa
.SET            MACRO @VALTOZO,@ERTEK
                LD B,1          ; iras
                LD C,@VALTOZO
                LD D,@ERTEK
                EXOS 16
                ENDM

                LD SP,3FFFH     ;Veremmutato beallitasa

                .SET 22,0       ; 0-as videomod
                .SET 23,0       ; 2 szinu uzemmod
                .SET 24,40      ; 40 oszlop szeles
                .SET 25,24      ; 24 sor magas

                LD A,50         ; A-ba csatornaszam
                LD DE,NEV       ; DE a nev elotti hosszbyte-ra mutat
                EXOS 2          ; csatorna megnyitasa
                LD B,1          ; videolap kijelzese
                LD A,50         ; A-ba csatornaszam
                LD C,1          ; elso kijelzendo sor az 1-es
                LD D,24         ; 24 sort kell megjeleniteni
                LD E,1          ; az elso sorban kezdodik a megjelenites
                EXOS 11         ; Specialis funkcio
                LD A,50         ; A-ba csatornaszam
                LD BC,HELPESCHOSSZ  ;ESCAPE szekevnciak
                LD DE,HELPESC
                EXOS 8          ; Blokk kiirasa
                LD A,50
                LD BC,HELPHOSSZ ; Szovegek kiirasa
                LD DE,HELPSZOVEG
                EXOS 8          ; Blokk kiirasa

                ; Varakozas billentyu leutesre
                LD DE,KEY       ; KEY-cimke hivasa
                LD A,105        ; A-ba csatornaszam
                EXOS 1          ; Csatorna megnyitasa
                CALL VILLOG     ; VILLOG cimke hivasa
                CALL BILLENTYU  ; BILLENTYU cimke hivasa
                LD DE,BASIC     ; kilepes BASIC-be
                EXOS 26         ; Bovitesek vizsgalata

HELPESC         DB 27,"o"
                DB 27,"C",0,215,0,0,0,0,0,0
                DB 27,"I",0
HELPESCHOSSZ    EQU $-HELPESC

HELPSZOVEG      DB "ENTERPRESS",10,13
                DB " ENTERPRESS",10,13
                DB "  ENTERPRESS",10,13
                DB 27,"=",38H,20H       ; Kurzorpozicio beallitasa
                DB "    Billentyu leutesere folytatom."
HELPHOSSZ       EQU $-HELPSZOVEG

VILLOG          LD B,1          ; B-be 1
                LD A,255        ; rendszerszegmens
                OUT (0B2H),A    ; belapozasa
VISSZA          LD A,B          ; B erteke A-ba (1)
                LD (0BA89H),A   ; LPT-cim (24. sor)
                PUSH BC         ; BC a verembe
                LD A,105        ; A-ba csatornaszam
                EXOS 9          ; Csatornakeszenlet olv.
                LD A,C          ; C erteke A-ba
                                ; (C-ben a keszenletjelzo byte)
                POP BC          ; BC vissza a verembol
                OR A            ; billentyuleutes vizsg.
                RET Z           ; ha van, visszateres
                HALT            ; kesleltetes
                HALT
                HALT
                HALT
                HALT
                HALT
                HALT
                HALT
                HALT
                HALT
                HALT
                HALT
                INC B           ; B=B+1
                JP VISSZA       ; ugras a VISSZA cimre
                RET

NEV             DB 6,"VIDEO:"
KEY             DB 9,"KEYBOARD:"
BASIC           DB 5,"BASIC"
BILLENTYU       LD A,105        ; Billentyuzet csatorna
                EXOS 5          ; karakterolvasas
                RET             ; visszateres
                END