ORG 0C00AH ;belepesi cim LD A,C ;akciokod CP 3 ;harom karakter (EPS) JR NZ,CIM1 LD A,B OR A LD A,LOW H1 JR Z,CIM CALL VIZSGAL RET NZ LD A,LOW H2 LD C,0 CIM EXX LD C,A LD B,0 LD A,255 ;csatorna megnyitas LD DE,SZ3 ;szoveg kezdocime EXOS 8 ;blokk irasa (HELP) XOR A EXX RET SZ3 DB "EPS version 1.0",10,13 H1 EQU $-SZ3 DB "Elso rendszerbovitonk",10,13,13,10 H2 EQU $-SZ3 CIM1 CP 2 RET NZ CALL VIZSGAL RET NZ LD A,255 ;a programunk LD DE,EPS ;kezdete (ami most EXOS 8 ;egy sor kiirasa) XOR A LD C,A ;akciokod vissza RET SZ2 DB 3,"EPS" VIZSGAL PUSH DE ;regiszterek PUSH BC ;a verembe LD A,B INC B LD HL,SZ2 FOLYT CP (HL) JR NZ,NEMSTIM INC DE INC HL LD A,(DE) DJNZ FOLYT NEMSTIM POP BC POP DE RET EPS DB 26 DB 20,"Ide kerul a program!",10,13 END