LD C,0FAH EXOS 25 LD A,0FAH OUT (0B2H),A
EXOS 24 JP NZ,HIBA LD A,C OUT (0B2H),A
LD BC,5FAHSZABAD PUSH BC EXOS 25 POP BC INC C DJNZ SZABAD
FOGLAL EXOS 24 JP NZ,HIBA LD A,C CP 0F9H JR NZ,FOGLAL LD BC,5FAHEZKELL PUSH BC EXOS 24 LD A,C POP BC CP C JP NZ,HIBA INC C DJNZ EZKELL EXOS 24 CP 7FH JP NZ,HIBA LD DE,3200 EXOS 23 JP NZ,HIBA LD L,0F9HVISSZAAD LD C,L EXOS 25 DEC L JR NZ,VISSZAAD
LD HL,RAMLISTA LD A,4FOGLAL EX AF,AF' EXOS 24 JP NZ,HIBA LD (HL),C INC HL EX AF,AF' DEC A JR NZ,FOGLAL
LD A,(RAMLISTA+2) OUT (0B3H),A
EXOS 24 ;Egy 16 kbyte meretu RAM szegmens lefoglalasa LD A,C ;es belapozasa OUT (0B1H),A ;az 1. lapra (4000H-7FFFH cimtartomany) EXOS 24 ;Meg ket szegmens lefoglalasa LD A,C ;es belapozasa OUT (0B2H),A ;Ezekre fog toltodni a program EXOS 24 OUT (0B3H),A