; Disassembly of the file "mz5z009.bin" ; ; CPU Type: Z80 ; ; Created with dZ80 2.1 ; ; on Tuesday, 17 of March 2026 at 05:34 PM ; LSWF EQU 0CCH LSRF EQU 0CDH LSDMD EQU 0CEH LSSCR EQU 0CFH LSD0 EQU 0D0H LSD1 EQU 0D1H LSD2 EQU 0D2H LSD3 EQU 0D3H LSE0 EQU 0E0H LSE1 EQU 0E1H LSE2 EQU 0E2H LSE3 EQU 0E3H LSE4 EQU 0E4H LSE5 EQU 0E5H LSPAL EQU 0F0H PSGA EQU 0F2H SIOAD EQU 0F4H SIOBD EQU 0F5H SIOBC EQU 0F7H LSFC EQU 0FCH ELMD EQU 01000H ELMD1 EQU 01001H ELMD18 EQU 01012H ELMD20 EQU 01014H ELMD22 EQU 01016H ELMD24 EQU 01018H ELMD26 EQU 0101AH ELMD30 EQU 0101EH ELMD32 EQU 01020H ZTOP EQU 01040H ZLOG EQU 01042H ZRWX EQU 01043H ZEQT EQU 01044H ZCH EQU 01046H ZEOF EQU 01047H ZWRK1 EQU 01048H ZWRK2 EQU 01049H ZNXT EQU 0104AH ZDEVNM EQU 0104CH ZFLAG1 EQU 01050H ZFLAG2 EQU 01051H ZDIRMX EQU 01052H ZINIT EQU 01053H ZRO EQU 01055H ZWO EQU 01057H ZCL EQU 01059H ZKL EQU 0105BH ZINP EQU 0105DH ZOUT EQU 0105FH ZDELT EQU 01061H ZWDIR EQU 01063H ZFREE EQU 01065H DCHAN EQU 01069H DDEV EQU 0106AH .$CRT EQU 0106CH .$LPT EQU 0106EH TEXTST EQU 01070H TEXTED EQU 01072H VARST EQU 01074H STRST EQU 01076H VARED EQU 01078H TMPEND EQU 0107AH INTFAC EQU 0107CH MEMLMT EQU 0107EH MEMMAX EQU 01080H CURXY EQU 01082H POSADR EQU 01084H BITADR EQU 01086H POINTX EQU 01088H POINTY EQU 0108AH CURFLG EQU 0108CH CURMAK EQU 0108DH CMTMSG EQU 0108EH INPFLG EQU 0108FH DISPX EQU 01090H FILOUT EQU 01091H PSEL EQU 01092H PCRLF EQU 01093H DMD EQU 01098H GMODE EQU 0109FH APTS EQU 010F0H NAME EQU 010F1H SIZE EQU 01102H DTADR EQU 01104H EXADR EQU 01106H COMNT EQU 01108H DTEFG EQU 01171H DTEFGX EQU 01172H TMCNT EQU 01195H KEYBUF EQU 011A4H INBUFC EQU 01352H INBUF EQU 01354H TIMST EQU 00033H XS EQU 01369H CWIDTH EQU 0136BH YS EQU 0136FH YE EQU 01370H SOF EQU 01372H CRTMD1 EQU 01379H CRTMD2 EQU 0137AH SELCOL EQU 0137BH SCRNT0 EQU 013A9H EMFLG EQU 013C3H HERRF EQU 013D9H CTABLE EQU 013DAH FONTBF EQU 01000H TEXTBF EQU 02000H BITBUF EQU 08000H IBUFE EQU 010F0H ERRTXT EQU 0FDA0H VRAM EQU 0D000H ARAM EQU 0D800H MMIO EQU 0E000H ATRB EQU 010F0H PRGSTART EQU 00000H TAPECOPY EQU 01200H BUILD_ORIG EQU 1 BUILD_RFS EQU 0 ; Create an MZF Tape header. ORG ATRB ; Declare the MZF header to bootstrap BASIC from tape/SD. BOOTATRB: DB 01h ; Code Type, 01 = Machine Code. BOOTNAME: IF BUILD_ORIG = 1 DB "BASIC 5Z-009A ", 0Dh ; Title/Name (17 bytes). ENDIF IF BUILD_RFS = 1 DB "BASIC 5Z-009ARFS", 0Dh ; Title/Name (17 bytes). ENDIF BOOTSIZE: DW BASICEND - L0000 ; Size of program. BOOTDTADR: DW TAPECOPY ; Load address of program. BOOTEXADR: DW EXECSTART + TAPECOPY ; Exec address of program. BOOTCOMNT: DS 104 ORG PRGSTART L0000: JP L0EF9 ; Cold start entry - JP to initialization L0003: JP GETL L0006: JP L09AB L0009: JP L099B L000C: JP L0E5F JP PRNTT L0012: JP L0E61 L0015: JP L0E50 SVC_ENTRY: JP L022C ; RST 18H - SVC (Supervisor Call) dispatcher JP INKEY0 BRKCHK: JP L0D22 JP L382E JP L3832 JP L386C JP L3870 JP L38A6 JP .RET JP L149E NOP NOP JP .RET JP L14A2 L003E: JP L44F3 L0041: JP 04520H JP L447B L0047: JP L447B JP GETL L004D: DB 000H ; System status / work area DB 058H L004F: DB 000H L0050: DB 000H JP L0E50 DS 4, 000H L0058: JP INKEY$ DW .RET ; CONTTB - CRT control code dispatch table L005D: DW .RET DW .RET DW L09B0 DW .RET DW 00A1BH DW L0A19 DW .RET DW .RET DW L0A24 DW .RET DW .RET DW .RET DW L09B0 DW L1500 DW .RET DW L06BE DW L09CF DW L09F9 L0081: DW L09D4 DW L09FE DW L0992 DW HCLSW DW 00A1EH DW L0776 DW L0A19 DW .RET DW L09B0 DW .RET DW .RET DW .RET DW .RET L009B: DB 087H DB 021H DB 05BH DB 000H DB LSRF L00A0: DB 058H DB 001H DB LSRF DB 051H DB 001H DB 0E9H .NOP: NOP .HL: JP (HL) L00A8: EI PUSH AF CALL L44A3 CALL 014F8H POP AF DI .RET: RET L00B3: PUSH AF CALL L14FC POP AF EI RET PUSHRA: EX (SP),IX PUSH HL PUSH BC PUSH DE PUSH AF PUSH HL LD HL,L00D3 EX (SP),HL JP (IX) PUSHR: EX (SP),IX PUSH HL PUSH BC PUSH DE PUSH HL LD HL,L00D4 L00D0: EX (SP),HL JP (IX) L00D3: POP AF L00D4: POP DE POP BC POP HL POP IX RET L00DA: DI LD SP,L0000 IM 2 OUT (LSE1),A LD HL,(L004D) JP (HL) BREAKX: XOR A DB 021H BREAKZ: LD A,080H DB 021H IOERR: OR 080H ERRORJ: PUSH AF CALL L447B POP AF LD HL,(L004F) JP (HL) COUNT: PUSH DE LD B,000H L00F9: LD A,(DE) OR A JR Z,L0102 ; (+005H) INC DE INC B JR NZ,L00F9 ; (-008H) L0101: DEC B L0102: POP DE L0103: RET IOOUT: LD A,(HL) INC HL LD C,(HL) INC HL OUT (C),A DJNZ IOOUT ; (-008H) RET DEVASC: RST 018H DB 013H LD A,D OR A JP NZ,L1F7F LD A,E CP B RET C JP L1F7F NOP CHKACC: EX (SP),HL PUSH BC LD B,(HL) L011E: INC HL CP (HL) JR Z,L0127 ; (+005H) DJNZ L011E ; (-006H) INC HL JR L012A ; (+003H) L0127: INC HL DJNZ L0127 ; (-003H) L012A: POP BC EX (SP),HL RET LDDEMI: LD E,(HL) INC HL LD D,(HL) INC HL RET LDDEMD: LD E,(HL) INC HL LD D,(HL) DEC HL RET ?CLRHL: XOR A ?SETHL: LD (HL),A INC HL DJNZ ?SETHL ; (-004H) RET ?CLRDE: XOR A ?SETDE: LD (DE),A L013F: INC DE L0140: DJNZ ?SETDE ; (-004H) RET LDDEHL: LD A,(HL) LD (DE),A INC HL INC DE DJNZ LDDEHL ; (-006H) RET LDHLDE: LD A,(DE) LD (HL),A INC HL INC DE DJNZ LDHLDE ; (-006H) RET INDRCT: PUSH AF LD A,(HL) INC HL LD H,(HL) LD L,A POP AF RET ADDHLA: ADD A,L LD L,A RET NC INC H RET INCHLF: INC HL HLFTCH: LD A,(HL) CP 020H JR Z,INCHLF ; (-006H) RET TEST1: CALL HLFTCH EX (SP),HL L0168: CP (HL) INC HL EX (SP),HL RET NZ INC HL RET TESTX: CALL HLFTCH EX (SP),HL CP (HL) INC HL EX (SP),HL INC HL RET Z LD A,001H JP ERRORJ IOSVCT: DW L1587 ; IOSVCT - SVC dispatch table DW L09AB DW L099B DW L0E61 DW L0EA2 DW L0D94 DW 014F0H DW L14B9 DW L0E2A DW L0E2C DW L0E3A DW L0E48 DW GETL DW INKEY$ DW L0D22 DW MHALT DW L00A8 DW L00B3 DW CURMOV DW DEASC DW DEHEX DW CKHEX DW ASCHL DW COUNT DW ADDP0 DW ADDP1 DW ADDP2 DW ERRX DW L3C1C DW L3C00 DW 014A6H DW L14AA DW L44F3 DW L4422 DW L437A DW L44AF DW IOOUT DW L14A2 DW L149E DW L1989 DW L1BFA DW L1EF0 DW L1F32 DW L1F06 DW L1A45 DW L1AC0 DW L19E8 DW L1B83 DW L1CC6 DW L1CEA L01E0: DW L1CDB DW L1AE9 DW L18D0 DW L18E4 DW L194C DW L180F DW L1BB9 DW L1D2D DW SETDFL DW L34DE DW L1E6D DW L3BA6 DW L3BBD DW L3BA3 DW L3BA1 DW L3BA1 L0200: DW L3BA1 DW L1FC0 DW L3BA3 DW HCLS DW L4D08 DW L4D13 DW L4694 DW L46CE DW L4F52 DW L4BE9 DW L5036 DW L47E7 DW L4629 DW L14AE DW DSMODE DW DPALBK DW DPALST DW DWIND DW DCOLOR DW DGCOL DW L458E DW L4D2D L022C: DW 0F5E3H DW L237E DW L21E5 DW IOSVCT ADD A,A ADD A,L JR NC,L0239 ; (+001H) INC H L0239: LD L,A LD A,(HL) INC HL LD H,(HL) LD L,A L023E: LD (00245H),HL POP HL POP AF EX (SP),HL JP L0000 _IOCALL: PUSH HL PUSH DE LD (00253H),IX LD IX,IOERR OR A CALL L0000 POP DE POP HL RET NC L0258: OR A SCF RET Z JP IOERR ASCHL: PUSH HL PUSH BC PUSH DE LD DE,L2710 CALL L0284 LD DE,003E8H CALL L0284 LD DE,00064H CALL L0284 LD DE,0000AH CALL L0284 LD A,L POP DE OR 030H LD (DE),A INC DE L027F: XOR A LD (DE),A POP BC POP HL RET L0284: LD A,0FFH L0286: INC A OR A SBC HL,DE JR NC,L0286 ; (-006H) ADD HL,DE OR A JR NZ,L0293 ; (+003H) OR B RET Z XOR A L0293: LD B,001H OR 030H POP DE EX (SP),HL LD (HL),A INC HL EX (SP),HL PUSH DE RET DEASC: CALL TEST1 DB 024H JR Z,DEHEX ; (+02aH) LD DE,L0000 L02A7: CALL HLFTCH SUB 030H CP 00AH RET NC INC HL PUSH HL LD H,D LD L,E ADD HL,HL JR C,L02C9 ; (+013H) ADD HL,HL JR C,L02C9 ; (+010H) ADD HL,DE JR C,L02C9 ; (+00dH) ADD HL,HL JR C,L02C9 ; (+00aH) LD E,A LD D,000H ADD HL,DE JR C,L02C9 ; (+004H) EX DE,HL POP HL JR L02A7 ; (-022H) L02C9: LD A,002H JP ERRORJ DEHEX: LD DE,L0000 L02D1: LD A,(HL) CALL CKHEX RET C INC HL EX DE,HL ADD HL,HL JR C,L02C9 ; (-012H) ADD HL,HL JR C,L02C9 ; (-015H) ADD HL,HL JR C,L02C9 ; (-018H) ADD HL,HL JR C,L02C9 ; (-01bH) ADD A,L LD L,A EX DE,HL JR L02D1 ; (-018H) CKHEX: SUB 030H CP 00AH CCF RET NC SUB 011H CP 006H CCF RET C ADD A,00AH RET MHALT: CALL L0305 CP 020H RET NZ L02FE: CALL L0305 OR A JR Z,L02FE ; (-006H) RET L0305: RST 018H DB 00EH JR Z,L0310 ; (+007H) LD A,0FFH RST 018H DB 00DH CP 01BH RET NZ L0310: JP BREAKZ RET SETDFL: LD (DDEV),DE LD (L1069),A RET ADDP0: LD HL,(L1072) ADD HL,DE LD (L1072),HL ADDP1: LD HL,(L1074) ADD HL,DE LD (L1074),HL ADDP2: LD HL,(L1076) ADD HL,DE LD (L1076),HL LD HL,(L1078) ADD HL,DE LD (L1078),HL LD HL,(L107A) ADD HL,DE LD (L107A),HL RET ERRX: LD C,A RST 018H DB 020H RST 018H DB 002H BIT 7,C JR Z,L0353 ; (+00aH) LD HL,L11A4 PUSH HL CALL SETDNM POP DE RST 018H DB 005H L0353: LD A,C AND 07FH LD C,A RST 018H DB 010H OUT (LSE3),A JR L035F ; (+002H) L035D: LD C,045H L035F: LD DE,ERRTXT L0362: DEC C JR Z,L036F ; (+00aH) L0365: LD A,(DE) INC DE OR A JP P,L0365 JR Z,L035D ; (-010H) JR L0362 ; (-00dH) L036F: LD A,(DE) CP 080H JR Z,L035D ; (-017H) EX DE,HL LD DE,L11A4 L0378: LD A,(HL) OR A JP M,L0381 LDI JR L0378 ; (-009H) L0381: AND 07FH LD (DE),A OUT (LSE1),A RST 018H DB 011H INC DE LD HL,L03B6 LD B,008H CALL LDDEHL LD DE,L11A4 RST 018H DB 005H RET SETDNM: LD DE,(ZEQT) INC DE INC DE RST 018H DB 017H CALL LDHLDE LD A,(L1046) ADD A,031H LD (HL),A LD A,(L1051) AND 00FH JR Z,L03B0 ; (+001H) INC HL L03B0: LD (HL),03AH INC HL LD (HL),000H RET L03B6: JR NZ,L03BD ; (+005H) LD B,L LD D,D LD D,D LD C,A LD D,D L03BD: NOP DSMODE: CALL PUSHR LD B,A LD A,(L1099) OR A LD A,B JR NZ,L03D1 ; (+008H) CP 002H JR Z,L0417 ; (+04aH) CP 004H JR Z,L0417 ; (+046H) L03D1: PUSH AF DEC A LD D,0FFH LD HL,L1389 LD BC,00403H JR Z,L03F7 ; (+01aH) DEC A LD HL,L138D LD BC,L100F JR Z,L03F7 ; (+011H) DEC A L03E7: LD HL,L1385 LD BC,00201H JR Z,L03F7 ; (+008H) LD HL,L1389 L03F2: LD BC,L0805 LD D,0FDH L03F7: LD (0109CH),BC LD A,D LD (L109E),A LD (L137F),HL CALL PALOFF POP AF DEC A RLCA LD (L1098),A OUT (LSDMD),A AND 004H CALL DWIDTH CALL L0419 OR A RET L0417: SCF RET L0419: LD HL,$IOCS CALL DWIND LD A,(0109CH) LD (L109B),A XOR A CALL DPALBK LD HL,L137F LD E,(HL) INC HL LD D,(HL) EX DE,HL LD DE,L1381 PUSH DE LD BC,00004H LDIR POP HL L043A: LD B,004H LD C,LSPAL L043E: OTIR RET PALOFF: PUSH BC XOR A LD B,005H LD C,LSPAL L0447: OUT (C),A ADD A,010H DJNZ L0447 ; (-006H) POP BC RET DPALBK: CALL PUSHR LD (L137E),A LD E,A LD A,(L1098) CP 002H JR NZ,L0470 ; (+013H) LD A,E RLCA RLCA LD HL,L1381 LD B,004H PUSH HL L0466: LD (HL),A ADD A,011H INC HL DJNZ L0466 ; (-006H) POP HL CALL L043A L0470: LD A,E OR 040H OUT (LSPAL),A RET DPALST: CALL PUSHR LD HL,L1381 LD D,000H LD E,A ADD HL,DE OR A RLCA RLCA RLCA RLCA OR B LD (HL),A OUT (LSPAL),A RET DCOLOR: PUSH AF CALL COLS LD (L109B),A POP AF RET DGCOL: PUSH AF CALL COLS LD (L109F),A POP AF RET COLS: PUSH BC LD B,A LD A,(L1098) CP 006H LD A,B JR NZ,L04AC ; (+006H) CP 002H JR C,L04AC ; (+002H) ADD A,002H L04AC: POP BC RET DWIND: CALL PUSHR LD (L136F),HL LD A,H SUB L INC A LD (L1371),A LD B,A ADD A,A ADD A,A ADD A,B LD (L1374),A EX DE,HL LD H,000H LD L,A ADD HL,HL ADD HL,HL ADD HL,HL LD (L1377),HL EX DE,HL INC H LD A,H ADD A,A ADD A,A ADD A,H LD (L1376),A LD A,L ADD A,A ADD A,A ADD A,L LD (L1375),A LD HL,L0000 LD (L1372),HL LD HL,L1376 LD BC,L06CF OTDR CALL HCLS JP L0992 DWIDTH: CALL PUSHR L04F2: OR A LD A,028H LD DE,L2300 JR Z,L04FE ; (+004H) ADD A,A LD DE,00023H L04FE: LD (L136B),A LD H,000H LD L,A ADD HL,HL ADD HL,HL ADD HL,HL LD (L136D),HL DEC A LD (L136A),A LD A,D LD (L0535),A LD (L0536),A LD (L0547),A LD A,E LD (L053E),A LD (L053F),A LD (L054B),A LD BC,00B07H LD HL,L054F CALL PATCH CALL L45D0 JP HCLS PATCH: LD E,(HL) INC HL LD D,(HL) INC HL L0535: INC HL L0536: INC HL LD A,(HL) INC HL LD (DE),A INC DE LD A,(HL) INC HL LD (DE),A L053E: NOP L053F: NOP DJNZ PATCH ; (-011H) LD B,C L0543: LD E,(HL) INC HL LD D,(HL) INC HL L0547: INC HL LD A,(HL) INC HL LD (DE),A L054B: NOP DJNZ L0543 ; (-00bH) RET L054F: DB 0E6H,005H,050H,000H,028H,000H,03DH,006H,0CBH,021H ; CHTBL - CRT driver 40/80-column patch table DS 2, 000H DB 067H,006H,090H,001H,0C8H,000H,06AH,006H,080H,0BEH,040H,09FH,020H,007H,050H,000H,028H,000H,048H,007H,030H,002H,018H,001H,0C3H,007H,050H,000H,028H,000H,0E9H,007H,0B0H,0FFH,0D8H,0FFH,015H,008H DB LSD0 DB 0FDH,0E8H,0FEH,02AH,008H,050H,000H,028H,000H,0D5H,008H,07FH,002H,03FH,001H DB LSE5 DB 006H,04FH,027H,00EH,007H,04FH,027H,0B4H,007H,"O'%",008H,"O'Y",008H,"P(r",009H,029H,000H,089H,009H,029H,000H ACCDI: CALL PUSHRA LD HL,(L1084) LD C,A CP 020H JR NZ,L05B9 ; (+001H) XOR A L05B9: LD (HL),A LD HL,(L1086) LD A,C CALL BITMAP XOR A LD (009E2H),A CALL L09D4 LD A,007H LD (009E2H),A RET BITMAP: RST 018H DB 01DH DI EXX PUSH HL LD H,000H LD L,A LD A,(L109B) OR 080H OUT (LSWF),A ADD HL,HL ADD HL,HL ADD HL,HL SET 4,H EXX LD B,008H LD DE,00028H IN A,(LSE0) L05EA: EXX LD A,(HL) INC HL EXX LD (HL),A ADD HL,DE DJNZ L05EA ; (-008H) IN A,(LSE1) EI EXX POP HL EXX RET LBOUND: CALL TBCALC L05FC: LD A,(HL) OR A JR Z,L0608 ; (+008H) DEC HL DEC E LD A,(L136F) CP E JR C,L05FC ; (-00cH) L0608: LD D,E L0609: INC E INC HL LD A,(HL) OR A RET Z LD A,(YE) CP E JR NC,L0609 ; (-00bH) RET TBCALC: LD E,H LD D,000H LD HL,L13A9 ADD HL,DE RET HCLSW: CALL PUSHR LD A,(L136F) LD H,A CALL TBCALC LD A,(L1371) LD B,A LD E,A CALL ?CLRHL LD C,E LD A,(YE) INC A LD L,000H LD H,A PUSH HL CALL PONT LD B,000H NOP L063E: NOP PUSH BC CALL PUSHW POP HL ADD HL,HL ADD HL,HL ADD HL,HL LD C,L LD B,H POP HL CALL PONTB CALL PUSHW JR L06AC ; (+05aH) HCLS: CALL PUSHRA LD HL,L27D0 LD BC,00032H CALL PUSHW LD B,019H LD HL,L13A9 CALL ?CLRHL LD BC,000C8H LD HL,L9F40 CALL PUSHW JR L06AC ; (+03bH) PUSHW: LD (006A3H),SP LD (00684H),HL LD HL,L0000 LD A,(0109CH) OR 080H OUT (LSWF),A L0682: DI LD SP,L0000 IN A,(LSE0) PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL PUSH HL IN A,(LSE1) LD (00684H),SP LD SP,L0000 EI DEC BC LD A,C OR B JR NZ,L0682 ; (-029H) RET L06AC: LD HL,L0000 LD (L1372),HL LD B,002H LD C,LSSCR OUT (C),H DEC B OUT (C),L JP L0992 L06BE: EXX PUSH HL PUSH DE PUSH BC EXX CALL L06CC EXX POP BC POP DE POP HL EXX RET L06CC: LD HL,(L1082) L06CF: DEC L JP P,L06E6 CALL TBCALC LD A,(HL) LD H,E LD L,000H OR A JR Z,L06E6 ; (+009H) LD A,(L136F) CP H JR Z,L06E6 ; (+003H) DEC H LD L,027H L06E6: LD (L1082),HL CALL L0822 CALL PONTC PUSH BC LD D,H LD E,L INC HL EXX PUSH HL EXX POP BC LDIR XOR A LD (DE),A POP BC LD HL,(L1082) INC HL CALL PONTB L0703: EXX LD D,009H LD HL,(0109DH) DEC D EXX JR L0723 ; (+016H) L070D: LD C,027H DEC B JR Z,L0755 ; (+043H) INC DE INC DE LD H,D LD L,E JR L0703 ; (-015H) L0718: LD HL,(0109DH) DEC D EXX JR Z,L070D ; (-012H) LD DE,00028H ADD HL,DE L0723: EXX RRC L JR C,L0718 ; (-010H) LD A,L AND H EXX JR Z,L0723 ; (-00aH) DI PUSH HL PUSH BC OUT (LSRF),A OUT (LSWF),A IN A,(LSE0) OUT (LSE0),A LD D,H LD E,L DEC DE LD A,C OR A JR Z,L0747 ; (+008H) LD A,B LD B,000H LDIR DEC A JR Z,L074D ; (+006H) L0747: LD BC,00118H ADD HL,BC LD A,(HL) LD (DE),A L074D: IN A,(LSE1) EI POP BC POP HL JP L0723 L0755: EX DE,HL INC C LD E,C LD D,B LD B,008H DI IN A,(LSE0) OUT (LSE0),A LD A,(0109CH) OR 080H OUT (LSWF),A L0767: XOR A LD (HL),A SBC HL,DE DJNZ L0767 ; (-006H) IN A,(LSE1) EI LD HL,(L1082) JP CURMOV L0776: EXX PUSH HL PUSH DE PUSH BC EXX CALL L0784 EXX POP BC POP DE POP HL EXX RET L0784: LD HL,(L1082) CALL L0822 PUSH HL CALL PONT DEC HL LD A,(HL) OR A JR NZ,L07AE ; (+01bH) PUSH BC LD D,H LD E,L DEC HL EXX PUSH HL EXX POP BC LDDR XOR A LD (DE),A POP BC POP HL CALL PONTB DEC HL LD A,C LD (007BBH),A DEC B JR Z,L07BC ; (+010H) JR L07B3 ; (+005H) L07AE: POP HL RET L07B0: DEC B JR Z,L07BA ; (+007H) L07B3: LD C,027H CALL L07DC JR L07B0 ; (-00aH) L07BA: LD C,000H L07BC: CALL L07DC CALL PONTCB LD DE,00028H LD B,008H DI LD A,(0109CH) OR 080H OUT (LSWF),A IN A,(LSE0) OUT (LSE0),A L07D3: XOR A LD (HL),A ADD HL,DE DJNZ L07D3 ; (-005H) IN A,(LSE1) EI RET L07DC: EXX LD D,009H L07DF: LD HL,(0109DH) DEC D EXX RET Z CALL L07EF LD DE,0FFD8H ADD HL,DE EXX JR L07DF ; (-010H) L07EF: EXX RRC L LD A,L EXX RET C EXX AND H EXX JR Z,L07EF ; (-00bH) PUSH HL PUSH BC DI OUT (LSRF),A OUT (LSWF),A IN A,(LSE0) OUT (LSE0),A L0805: LD D,H LD E,L DEC HL L0808: LD A,C OR A JR Z,L0814 ; (+008H) LD A,B LD B,000H LDDR OR A JR Z,L081A ; (+006H) L0814: LD BC,0FEE8H ADD HL,BC LD A,(HL) LD (DE),A L081A: IN A,(LSE1) EI POP BC POP HL JP L07EF L0822: LD B,001H LD A,027H SUB L LD C,A EXX LD DE,00028H LD H,000H LD L,A EXX L0830: INC H LD A,(YE) CP H JR C,L0845 ; (+00eH) CALL TBCALC LD A,(HL) OR A LD H,E JR Z,L0845 ; (+006H) INC B EXX ADD HL,DE EXX JR L0830 ; (-015H) L0845: LD L,000H RET L0848: CALL PUSHRA LD A,(L136F) LD H,A LD L,000H CALL PONT LD D,H LD E,L LD B,000H LD C,028H ADD HL,BC LD A,(L1371) DEC A JR Z,L0870 ; (+00fH) PUSH BC PUSH HL LD HL,L0000 L0866: ADD HL,BC DEC A JR NZ,L0866 ; (-004H) LD B,H LD C,L POP HL LDIR POP BC L0870: LD B,C CALL ?CLRDE LD A,(L136F) LD H,A CALL TBCALC LD A,(L1371) DEC A LD B,A LD (HL),000H INC HL LD D,H LD E,L INC DE CALL NZ,LDHLDE LD (HL),000H LD A,(YE) LD H,A LD L,000H CALL PONTB LD (008CDH),HL LD DE,00028H LD HL,(L1372) ADD HL,DE PUSH HL LD DE,(01377H) OR A SBC HL,DE POP HL JR NZ,L08AC ; (+003H) LD HL,L0000 L08AC: LD (L1372),HL L08AF: IN A,(LSDMD) AND 040H JR NZ,L08AF ; (-006H) DI LD C,LSSCR LD B,002H OUT (C),H DEC B OUT (C),L LD A,(L109B) OUT (LSRF),A OR 080H OUT (LSWF),A IN A,(LSE0) OUT (LSE0),A LD HL,L0000 LD (HL),000H LD D,H LD E,L INC DE LD BC,L013F LDIR IN A,(LSE1) EI LD A,(YE) LD H,A LD L,000H JP CURMOV L08E5: CALL PUSHRA EXX PUSH HL LD HL,L1391 LD A,(L108D) OR A JR Z,L08FC ; (+009H) LD HL,L1399 DEC A JR Z,L08FC ; (+003H) LD HL,L13A1 L08FC: EXX DI LD A,(L108C) XOR 001H LD (L108C),A LD HL,(L1086) LD D,000H LD A,(L136B) LD E,A LD B,008H LD A,(L109B) OR 020H OUT (LSWF),A IN A,(LSE0) OUT (LSE0),A L091C: EXX LD A,(HL) INC HL EXX LD (HL),A ADD HL,DE DJNZ L091C ; (-008H) IN A,(LSE1) EXX POP HL EXX EI RET HCURON: CALL PUSHRA XOR A OUT (LSD0),A CPL OUT (LSD0),A LD A,(L108C) OR A RET NZ JR L08E5 ; (-056H) HCUROF: CALL PUSHRA LD A,(L108C) OR A RET Z JR L08E5 ; (-060H) FLASH: IN A,(LSD2) RLCA RLCA JR NC,HCURON ; (-020H) JR HCUROF ; (-012H) CURMOV: CALL PUSHR LD (L1082),HL CALL PONT LD (L1084),HL CALL PONTCB LD (L1086),HL RET PONTC: LD HL,(L1082) PONT: PUSH DE PUSH AF LD D,020H LD E,L LD A,H ADD A,A ADD A,A ADD A,H LD L,A LD H,000H ADD HL,HL ADD HL,HL ADD HL,HL NOP ADD HL,DE POP AF POP DE RET PONTCB: LD HL,(L1082) PONTB: PUSH DE PUSH AF LD D,H LD E,000H LD A,L LD L,H LD H,E ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,DE NOP CALL ADDHLA SET 7,H POP AF POP DE RET L0992: LD L,000H LD A,(L136F) LD H,A JP L09F6 L099B: CALL PUSHR LD HL,(L1082) LD A,L OR A JR NZ,L09AB ; (+006H) CALL TBCALC LD A,(HL) OR A RET Z L09AB: LD A,00DH JP L0E61 L09B0: XOR A LD (00DABH),A LD HL,(L1082) PUSH HL INC H CALL TBCALC LD A,(YE) LD D,A L09C0: LD A,(HL) OR A JR Z,L09CA ; (+006H) INC HL INC E LD A,D CP E JR NC,L09C0 ; (-00aH) L09CA: DEC E POP HL LD H,E JR L09DE ; (+00fH) L09CF: LD HL,(L1082) JR L09E0 ; (+00cH) L09D4: LD HL,(L1082) INC L LD A,(L136A) CP L JR NC,L09F6 ; (+018H) L09DE: LD L,000H L09E0: INC H JR L09EA ; (+007H) PUSH HL CALL TBCALC LD (HL),001H POP HL L09EA: LD A,(YE) CP H JR NC,L09F6 ; (+006H) LD H,A PUSH HL L09F2: CALL L0848 POP HL L09F6: JP CURMOV L09F9: LD HL,(L1082) JR L0A09 ; (+00bH) L09FE: LD HL,(L1082) LD A,L OR A JR NZ,00A14H ; (+00fH) LD A,(L136A) LD L,A L0A09: LD A,(L136F) CP H JR C,00A16H ; (+007H) LD A,(L136F) LD H,A LD A,02DH LD A,025H JR L09F6 ; (-023H) L0A19: XOR A LD HL,?SETDE LD HL,L023E LD (L108D),A RET L0A24: LD B,000H LD HL,(L1082) INC L LD A,L L0A2B: INC B SUB 00AH JR NC,L0A2B ; (-005H) XOR A L0A31: ADD A,00AH DJNZ L0A31 ; (-004H) LD L,A LD A,(L136A) CP L RET C PUSH HL LD A,(L108F) OR A JR Z,L0A54 ; (+012H) LD A,(L1082) LD H,A LD A,L SUB H JR Z,L0A54 ; (+00aH) LD B,A L0A4B: PUSH BC LD A,020H CALL L0EBF POP BC DJNZ L0A4B ; (-009H) L0A54: POP HL JP CURMOV PRNTT: CALL L0E5F LD A,(L1082) L0A5E: SUB 00AH JR NC,L0A5E ; (-004H) ADD A,00AH RET Z JR PRNTT ; (-00fH) BINPUT: PUSH HL LD HL,(L1082) PUSH HL PUSH DE CALL TBCALC POP DE LD (HL),000H POP HL CALL GETL JR C,L0A82 ; (+009H) LD A,L OR A JR Z,L0A82 ; (+005H) LD H,000H ADD HL,DE EX DE,HL OR A L0A82: POP HL RET GETL: PUSH BC PUSH HL PUSH DE L0A87: CALL INKEY1 CP 00DH JP Z,L0ABB CP 01BH JR Z,L0AB4 ; (+021H) PUSH AF LD A,(L108D) CP 002H JR NZ,L0AAF ; (+014H) POP AF CP 017H JR NC,L0AB0 ; (+010H) CP 011H JR C,L0AB0 ; (+00cH) LD HL,(00D31H) BIT 6,L JR Z,L0AB0 ; (+005H) RST 018H DB 004H JR L0A87 ; (-028H) L0AAF: POP AF L0AB0: RST 018H DB 003H JR L0A87 ; (-02dH) L0AB4: SCF L0AB5: RST 018H DB 001H POP DE POP HL POP BC RET L0ABB: LD HL,(L1082) CALL LBOUND LD A,E SUB D LD E,A LD H,D LD L,000H CALL PONT LD A,(L136B) LD D,A POP BC PUSH BC EXX PUSH HL LD HL,(L1364) EXX L0AD6: LD A,(HL) INC HL LD (BC),A INC BC EXX DEC L JR Z,L0AEA ; (+00cH) EXX DEC D JR NZ,L0AD6 ; (-00cH) LD A,(L136B) LD D,A DEC E JR NZ,L0AD6 ; (-013H) EXX L0AEA: POP HL EXX XOR A LD (BC),A LD L,C LD H,B POP DE PUSH DE PUSH HL OR A SBC HL,DE LD B,L POP HL LD A,020H LD D,A JP Z,L0AB5 DEC HL L0AFF: LD A,(HL) OR A JR Z,L0B08 ; (+005H) CP D JR NZ,L0B0D ; (+007H) LD (HL),000H L0B08: DEC HL DJNZ L0AFF ; (-00cH) JR L0B16 ; (+009H) L0B0D: LD A,(HL) OR A JR NZ,L0B13 ; (+002H) LD (HL),020H L0B13: DEC HL DJNZ L0B0D ; (-009H) L0B16: OR A JP L0AB5 INKEY$: INC A JR Z,INKEYF ; (+06eH) DEC A JP Z,INKEY0 INKEY1: CALL L0BAB CALL PUSHR CALL HCURON EX AF,AF' PUSH AF CALL L0BC1 LD A,(L0D44) L0B32: EX AF,AF' L0B33: LD B,010H L0B35: CALL FLASH CALL L0BC1 BIT 1,A JR NZ,L0B33 ; (-00cH) DJNZ L0B35 ; (-00cH) BIT 0,A JR Z,L0B51 ; (+00cH) BIT 2,A JR NZ,L0B62 ; (+019H) EX AF,AF' DEC A JR NZ,L0B32 ; (-01bH) LD A,006H JR L0B64 ; (+013H) L0B51: PUSH HL PUSH DE PUSH BC LD HL,L0D3A LD DE,L0D30 LD BC,0000AH LDIR POP BC POP DE POP HL L0B62: LD A,040H L0B64: LD (L0D44),A L0B67: CALL FLASH CALL L0BF6 OR A JR Z,L0B7B ; (+00bH) LD (L1365),A LD C,A CALL HCUROF POP AF EX AF,AF' LD A,C RET L0B7B: PUSH HL PUSH BC LD B,00AH LD HL,L0D30 L0B82: LD (HL),0FFH INC HL DJNZ L0B82 ; (-005H) POP BC POP HL JR L0B67 ; (-024H) INKEYF: CALL L0BAB PUSH HL CALL L0BF6 LD HL,L1365 OR A JR Z,L0B9E ; (+006H) CP (HL) JR NZ,L0B9E ; (+003H) POP HL XOR A RET L0B9E: LD (HL),A POP HL RET INKEY0: CALL L0BAB CALL L0BF6 LD (L1365),A RET L0BAB: PUSH HL LD HL,(L1352) LD A,L CP H POP HL RET Z EX (SP),HL INC A LD (L1352),A LD HL,L1353 CALL ADDHLA LD A,(HL) POP HL RET L0BC1: CALL PUSHR LD DE,L0D3A LD HL,L0D30 LD BC,00A00H DI L0BCE: LD A,B ADD A,0EFH OUT (LSD0),A CP 0F8H IN A,(LSD1) JR NZ,L0BDB ; (+002H) OR 07FH L0BDB: CP 0FFH JR Z,L0BE1 ; (+002H) SET 0,C L0BE1: EX DE,HL CP (HL) LD (HL),A EX DE,HL JR Z,L0BE9 ; (+002H) SET 1,C L0BE9: CPL AND (HL) JR Z,L0BEF ; (+002H) SET 2,C L0BEF: INC HL INC DE DJNZ L0BCE ; (-025H) LD A,C L0BF4: EI RET L0BF6: CALL PUSHR LD HL,L0D30 LD DE,L0D3A PUSH HL PUSH DE LD BC,0000AH LDIR POP HL POP DE LD BC,00AF9H DI LD A,C OUT (LSD0),A NOP IN A,(LSD1) LD (DE),A L0C13: LD A,C OUT (LSD0),A CP 0F8H IN A,(LSD1) LD (DE),A JR Z,L0C3E ; (+021H) CPL AND (HL) L0C1F: LD (HL),A INC DE INC HL DEC C DJNZ L0C13 ; (-012H) EI LD BC,00A00H L0C29: DEC HL LD A,(HL) OR A JR NZ,L0C68 ; (+03aH) INC C DJNZ L0C29 ; (-008H) LD B,00AH L0C33: DEC DE LD A,(DE) CP 0FFH JR NZ,L0C41 ; (+008H) L0C39: DJNZ L0C33 ; (-008H) L0C3B: XOR A JR L0BF4 ; (-04aH) L0C3E: XOR A JR L0C1F ; (-022H) L0C41: LD A,B CP 002H JR NZ,L0C4F ; (+009H) LD A,(DE) AND 081H JR NZ,L0C39 ; (-012H) LD A,01BH JR L0BF4 ; (-05bH) L0C4F: CP 001H JR Z,L0C3B ; (-018H) LD A,(L0D45) CP B JR NZ,L0C39 ; (-020H) LD A,(DE) PUSH DE LD D,A LD A,(L0D46) AND D POP DE JR NZ,L0C39 ; (-02aH) LD A,(L1365) JR L0BF4 ; (-074H) L0C68: PUSH AF LD A,B LD (L0D45),A LD A,(HL) LD (L0D46),A POP AF DEC B JR NZ,L0CAB ; (+036H) CALL L0D18 LD A,(00D31H) BIT 6,A JR Z,L0C3B ; (-044H) BIT 0,A LD A,B JR NZ,L0C86 ; (+002H) ADD A,005H L0C86: CP 00AH JR NC,L0C3B ; (-04fH) LD L,A LD H,000H ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,HL LD BC,L12B2 ADD HL,BC LD A,(HL) OR A JR Z,L0C3B ; (-05eH) LD DE,L1352 LD A,001H LD (DE),A INC DE LD BC,00010H LDIR LD A,(INBUF) JP L0BF4 L0CAB: CALL L0D18 LD A,C ADD A,A ADD A,A ADD A,A ADD A,B LD L,A LD H,000H LD A,(00D31H) BIT 6,A LD BC,L0D47 JR Z,L0CEF ; (+02fH) PUSH AF LD A,(L108D) CP 001H JR NZ,L0CCC ; (+004H) POP AF XOR 001H PUSH AF L0CCC: POP AF BIT 0,A JR NZ,L0CD4 ; (+003H) LD BC,L0D59 L0CD4: LD A,(L108D) CP 002H JR NZ,L0CE8 ; (+00dH) LD BC,L0D6B LD A,(00D31H) BIT 0,A JR Z,L0CE8 ; (+003H) LD BC,L0D7D L0CE8: CALL L3C3E LD A,C JP L0BF4 L0CEF: CALL L3C3E LD A,C CP 020H JP C,L0BF4 LD HL,L0D8F LD B,005H L0CFD: CP (HL) JR Z,L0D12 ; (+012H) INC HL DJNZ L0CFD ; (-006H) CP 040H JP C,L0C3B CP 05BH JP NC,L0C3B SUB 040H JP L0BF4 L0D12: LD A,020H SUB B JP L0BF4 L0D18: LD B,008H L0D1A: RRCA JR C,L0D20 ; (+003H) DJNZ L0D1A ; (-005H) BRKEY: RET L0D20: DEC B RET L0D22: LD A,0E8H OUT (LSD0),A NOP IN A,(LSD1) AND 081H RET Z RLCA DB 0D8H DB 018H DB PSGA L0D30: DS 10, 000H L0D3A: DS 4, 000H L0D3E: DS 6, 000H L0D44: DB 000H L0D45: DB 000H L0D46: DB 001H L0D47: DB 0EAH DB 00BH DB 090H DB 017H DB LSFC DB 019H,009H,03BH,03AH,00DH,018H,010H,012H,011H,013H,014H,03FH,02FH L0D59: DB 02AH,00CH,090H,017H,0FBH,005H,009H,02BH,02AH,00DH,016H,015H,012H,011H,013H,014H,0C6H,05FH L0D6B: DB 0E9H DB 00CH DB 090H DB 017H DB 068H DB 005H DB 009H DB 084H DB 0E9H DB 00DH DB 016H DB 015H DB 012H DB 011H DB 013H DB 014H DB 08FH DB 08BH L0D7D: DB 06AH DB 00CH DB 090H DB 017H DB 06CH L0D82: DB 019H DB 009H DB 0FEH DB 089H DB 00DH DB 016H DB 015H DB 012H DB 011H DB 013H DB 014H DB 08AH DB 07BH L0D8F: DB 05BH DB 05CH LD E,L LD E,(HL) CPL L0D94: CALL PUSHR L0D97: LD A,(DE) INC DE OR A RET Z LD C,A CP 005H JR Z,L0DBE ; (+01eH) CP 006H JR Z,L0DBD ; (+019H) SUB 041H CP 01AH JR NC,L0DB6 ; (+00cH) LD A,000H OR A JR Z,L0DB6 ; (+007H) LD HL,L0D82 LD B,000H ADD HL,BC LD C,(HL) L0DB6: LD A,C RST 018H DB 003H CP 00DH JR NZ,L0D97 ; (-026H) L0DBD: XOR A L0DBE: LD (00DABH),A DB 018H DB 0D4H DB 0A1H DB 09AH DB 09FH DB 09CH DB 092H DB 0AAH DB 097H DB 098H DB 0A6H DB 0AFH DB 0A9H DB 0B8H DB 0B3H DB 0B0H DB 0B7H DB 09EH DB 0A0H DB 09DH DB 0A4H DB 096H DB 0A5H DB 0ABH DB 0A3H EQTBL: DB 09BH ; $CRT / EQTBL - CRT device descriptor DB 0BDH DB 0A2H L0DDD: DB 0F6H,00DH,"CRT",000H,08AH DS 2, 000H DB 03AH DB 045H DB 0B2H DB 000H DB 0B2H DB 000H DB 0B2H DB 000H DB 0B2H DB 000H DB 00FH DB 00EH DB 017H $KB_: DB 00EH,026H,00EH,079H,014H,04BH,042H ; $KB - Keyboard device descriptor DS 2, 000H DB 081H DS 2, 000H DB 0B2H DB 000H DB 0B2H DB 000H DB 0B2H DB 000H DB 0B2H DB 000H DB 0B2H DB 000H DB 00FH LD C,0B2H NOP OR D NOP RST 018H L0E10: DB 00CH LD A,080H RET C RST 018H DB 017H RET EX AF,AF' LD HL,L0E61 LD A,(L1090) OR A JR Z,L0E24 ; (+003H) LD HL,L0EA2 L0E24: EX AF,AF' JP (HL) LD A,(L1082) RET L0E2A: LD A,00DH L0E2C: PUSH AF LD A,(L1091) OR A JR NZ,L0E36 ; (+003H) POP AF JR L0E61 ; (+02bH) L0E36: POP AF JP L14B9 L0E3A: PUSH AF LD A,(L1091) L0E3E: OR A JR NZ,L0E44 ; (+003H) POP AF JR L0EA2 ; (+05eH) L0E44: POP AF JP L14E0 L0E48: CALL PUSHR LD HL,L0E2C JR L0E56 ; (+006H) L0E50: CALL PUSHR LD HL,L0E61 L0E56: LD A,(DE) OR A RET Z CALL .HL CRT1C: INC DE JR L0E56 ; (-009H) L0E5F: LD A,020H L0E61: CALL PUSHRA L0E64: LD C,A LD A,(L108F) OR A JR Z,L0E99 ; (+02eH) LD A,C CP 020H JR NC,L0E96 ; (+026H) LD DE,(CURXY) LD HL,(XS) CP 014H JR Z,L0E83 ; (+008H) CP 012H JR NZ,L0E88 ; (+009H) LD HL,(L136F) LD E,D L0E83: LD A,L CP E JP NC,L003E L0E88: LD HL,L0ED9 LD B,000H ADD HL,BC LD A,(HL) INC A JR Z,L0E99 ; (+007H) DEC A JP Z,L003E L0E96: CALL L0EBF L0E99: LD A,C CP 020H JP C,L009B JP ACCDI L0EA2: CALL PUSHRA LD C,A CP 00DH JR Z,L0E64 ; (-046H) CALL ACCDI LD A,(L108F) OR A RET Z LD A,C PLTOTX: CP 011H JR C,L0ED4 ; (+01dH) CP 017H JR C,L0ED6 ; (+01bH) CP 020H JR C,L0ED4 ; (+015H) L0EBF: CP 060H JR C,L0ED6 ; (+013H) CP 070H JR C,L0ED4 ; (+00dH) CP 0C1H JR C,L0ED6 ; (+00bH) CALL CHKACC INC BC RST 010H RST 008H RST 038H JR Z,L0ED6 ; (+002H) L0ED4: DB 03EH DB 02EH L0ED6: DB 0C3H DB LSPAL DB 014H L0ED9: DS 4, 000H DS 3, 0FFH DB 01DH DB 000H DB 0FFH DS 3, 000H DB 00DH DS 3, 000H DB 00AH DB 003H DB 020H DB 00EH DS 2, 000H DB 0FFH DB 000H DS 2, 0FFH DEC C RST 038H NOP NOP NOP L0EF9: DI XOR A OUT (LSDMD),A LD (L108F),A DB 032H DB 091H DB 010H DB 031H DS 2, 000H DB 0EDH DB 05EH DB 03EH DB 004H DB LSD3 DB LSD3 DB LSD3 DB LSE0 DB LSD3 DB LSE1 DB LSRF DB 041H,004H,03EH,00FH,0EDH,047H,03EH,0FEH DB LSD3 DB 0FDH DB 03EH DB 00FH DB LSD3 DB 0FDH DB 0C5H DB LSRF DB 04EH DB 00FH DB LSRF DB 0B9H LD B,H CALL L3F58 POP BC L0F2A: LD HL,L1E18 XOR A LD (L0F2A),A LD D,A LD E,A RST 018H DB 026H LD DE,$RFS LD A,B OR A JR Z,L0F48 ; (+00cH) DEC A JR Z,L0F48 ; (+009H) LD DE,L3B9E DEC A JR Z,L0F48 ; (+003H) LD DE,$QD L0F48: LD A,C RST 018H DB 03AH JP L00DA DI XOR A OUT (LSDMD),A LD A,014H OUT (LSRF),A LD A,094H OUT (LSWF),A IN A,(LSE0) OUT (LSE0),A LD HL,L9FFF LD A,(HL) LD C,A CPL LD (HL),A CP (HL) LD (HL),C LD A,000H JR NZ,L0F6C ; (+001H) INC A L0F6C: LD (L1099),A IN A,(LSE1) EI LD A,001H CALL DSMODE XOR A LD (L108C),A LD (L108D),A RET NOP NOP LD D,L LD D,E LD D,D NOP SBC A,A NOP NOP OR D NOP SBC A,B RRCA SBC A,B RRCA OR D NOP OR D NOP AND A RRCA AND A RRCA OR D NOP LD HL,L1001 RST 018H DB 013H LD A,D OR E JP Z,01FAFH LD (ZWRK1),DE RET LD HL,(ZWRK1) JP (HL) NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP DS 12, 000H DB 01AH DB 042H DB 061H DB 015H L1000: DB 000H L1001: DS 14, 000H L100F: DS 3, 000H L1012: DS 2, 000H L1014: DS 4, 000H L1018: DS 32, 000H L1038: DB 000H L1039: DS 5, 000H L103E: DS 2, 000H L1040: DB 002H DB 000H L1042: DB 000H L1043: DB 000H L1044: DS 2, 000H L1046: DS 4, 000H L104A: DS 6, 000H L1050: DB 001H L1051: DS 23, 000H NOP L1069: DS 3, 000H DB 0DDH DB 00DH DB 079H DB 014H L1070: DS 2, 000H L1072: DS 2, 000H L1074: DS 2, 000H L1076: DS 2, 000H L1078: DS 2, 000H L107A: DS 2, 000H L107C: DS 2, 000H L107E: DS 3, 000H DB 0FFH L1082: DS 2, 000H L1084: DB 000H DB 020H L1086: DB 000H DB 080H L1088: DS 2, 000H L108A: DS 2, 000H L108C: DB 000H L108D: DB 000H L108E: DB 000H L108F: DB 000H L1090: DB 000H L1091: DB 000H DB 001H DB 00DH DB 00EH L1095: DS 2, 000H L1097: DB 001H L1098: DB 000H L1099: DB 000H L109A: DB 000H L109B: DS 2, 003H DB 004H L109E: DB 0FFH L109F: DB 003H DS 80, 000H L10F0: DS 78, 000H L113E: DS 84, 000H DB 0EFH DS 4, 000H L1197: DS 2, 000H L1199: DS 4, 000H DB 001H DB 004H DB 005H DS 3, 000H L11A3: DB 000H L11A4: DB 000H L11A5: DB 000H L11A6: DS 2, 000H L11A8: DB 000H L11A9: DB 000H L11AA: DB 000H L11AB: DB 000H L11AC: DB 000H L11AD: DB 000H L11AE: DB 000H L11AF: DB 000H L11B0: DB 000H L11B1: DB 000H L11B2: DB 000H L11B3: DB 000H L11B4: DB 000H L11B5: DB 000H L11B6: DB 000H L11B7: DB 000H L11B8: DB 000H L11B9: DB 000H L11BA: DS 11, 000H L11C5: DS 4, 000H L11C9: DS 2, 000H L11CB: DS 2, 000H L11CD: DS 33, 000H L11EE: DS 18, 000H L1200: DS 7, 000H L1207: DB 000H L1208: DB 000H L1209: DS 5, 000H L120E: DS 2, 000H L1210: DS 2, 000H L1212: DS 2, 000H L1214: DS 2, 000H L1216: DS 2, 000H L1218: DS 2, 000H L121A: DS 2, 000H L121C: DS 2, 000H L121E: DS 2, 000H L1220: DB 000H L1221: DS 2, 000H L1223: DS 9, 000H L122C: DS 18, 000H L123E: DS 8, 000H L1246: DS 13, 000H L1253: DS 36, 000H L1277: DS 39, 000H L129E: DS 2, 000H L12A0: DS 10, 000H L12AA: DS 4, 000H L12AE: DS 4, 000H L12B2: DB 007H,"RUN" DS 3, 020H DB 00DH DS 8, 000H DB 005H,"LIST " DS 10, 000H DB 005H,"AUTO " DS 10, 000H DB 006H,"RENUM " DS 9, 000H DB 006H,"COLOR " DS 9, 000H DB 005H,"CHR$(" DS 10, 000H DB 008H,"DEF KEY(" DS 7, 000H DB 004H,"CONT" DS 11, 000H DB 006H,"SAVE" DS 2, 020H DS 5, 000H L133E: DS 4, 000H DB 006H,"LOAD" DS 2, 020H DS 8, 000H NOP L1352: DB 000H L1353: DS 17, 000H L1364: DB 0FFH L1365: DS 5, 000H L136A: DB 027H L136B: DB 028H DB 000H L136D: DB 040H DB 001H L136F: DB 000H DB 018H L1371: DB 019H L1372: DS 2, 000H L1374: DB 07DH L1375: DB 000H L1376: DB 07DH L1377: DB 0E8H DB 003H L1379: DB 001H L137A: DB 001H L137B: DB 003H L137C: DS 2, 000H L137E: DB 000H L137F: DB 089H DB 013H L1381: DS 4, 000H L1385: DB 000H DB 01FH DB 02FH DB 03FH L1389: DB 000H DB 011H DB 022H DB 03FH L138D: DB 000H DB 011H DB 022H DB 033H L1391: DS 8, 0FFH L1399: DB 07EH DS 6, 0FFH DB 07EH L13A1: DS 7, 000H DB 0FFH L13A9: DS 26, 000H L13C3: DB 000H L13C4: DS 8, 000H DB LSPAL DB 03FH DS 3, 000H DB 0C0H DB 000H DB 0C0H DB 000H DB 0C0H DS 2, 000H DB 004H L13D9: DB 000H DB 0DCH DB 013H DB 027H DS 2, 023H DS 2, 040H DS 2, 05BH DS 2, 05CH DS 2, 05DH DB 08BH,05EH,090H,05FH,093H,060H,0A1H,061H,09AH,062H,09FH,063H,09CH,064H,092H,065H,0AAH,066H,097H,067H,098H,068H,0A6H,069H,0AFH,06AH,0A9H,06BH,0B8H,06CH,0B3H,06DH,0B0H,06EH,0B7H,06FH,09EH,070H,0A0H,071H,09DH,072H,0A4H,073H,096H L1414: DB 074H,0A5H,075H,0ABH,076H,0A3H,077H,09BH,078H,0BDH,079H,0A2H,07AH,0BEH,07BH,0C0H,07CH,080H,07DH,094H,07EH DS 2, 07FH L142B: DB 0FEH DB 00DH DB 028H DB 013H DB 0FEH DB 00AH DB 028H DB 00FH DB LSRF DB 048H,014H,0FEH,020H,030H,006H,0CBH,043H,028H,002H L143E: DB 03EH DB 020H DB 0DDH DB 0E9H DB LSRF DB 040H DB 014H DB 036H DB 000H DB 0C9H DB 0C5H DB 00EH DB 000H DB LSRF DB 050H DB 014H DB 0C1H DB 0C9H DB LSRF DB 0C7H,000H,02AH,0DAH,013H,"F#T]",013H,0CBH,041H,028H,001H,0EBH,0BEH,028H,007H DS 2, 023H DS 2, 013H DB 010H DB SIOBC DB 0C9H DB 01AH DB 0C9H L146C: DB LSRF DB 040H DB 014H DB 0D8H DB 0C5H DB 00EH DB 001H DB LSRF DB 050H DB 014H DB 0C1H DB 0B7H DB 0C9H $LPT: DB "Z7LPT",000H,08AH ; $LPT - Line printer device descriptor DS 2, 000H DB 0ECH DB 014H DB 0ACH DB 01FH DB 0B2H DB 000H DB 0B2H DB 000H DB 0B2H DS 3, 000H DB 0B2H DB 014H DB 092H DB 014H LD A,(L108F) OR A LD A,(L1095) RET Z LD A,(L1082) RET L149E: CALL L1517 INC BC L14A2: CALL L1517 LD B,LSRF RLA DEC D ADD HL,BC L14AA: CALL L1517 INC C L14AE: CALL 01508H RRCA LD HL,L1090 BIT 0,(HL) JR NZ,L14E0 ; (+027H) L14B9: PUSH IY EX AF,AF' LD A,012H L14BE: LD (L14DF),A LD A,003H L14C3: LD (L14D6),A EX AF,AF' CALL L14D8 POP IY PUSH BC LD B,A LD A,(L108F) OR A LD A,B POP BC RET Z RST 018H L14D6: DB 003H RET L14D8: LD IY,L142B CALL 01508H L14DF: LD (DE),A L14E0: PUSH IY EX AF,AF' LD A,015H LD (L14DF),A LD A,003H JR L14C3 ; (-029H) CALL 01508H JR L14BE ; (-033H) EX AF,AF' DEC D DEC DE L14F4: CALL 01508H LD E,LSRF DB 008H DB 015H DB 021H L14FC: DB LSRF DB 008H DB 015H DB 024H L1500: DB LSRF DB 008H DB 015H DB 027H L1504: CALL 01508H LD HL,(03A08H) SUB D DJNZ L14D8 ; (-035H) LD C,A JR Z,L1516 ; (+006H) PUSH BC LD B,003H RST 018H DB 023H POP BC L1516: EX AF,AF' L1517: EX AF,AF' XOR A LD (L12AE),HL LD (L13D9),A EX AF,AF' DI LD (012ACH),SP EX (SP),HL LD SP,HL POP HL OUT (LSE3),A LD SP,L12AA CALL L1543 OUT (LSE1),A LD SP,(012ACH) EX (SP),HL INC SP INC SP EI EX AF,AF' LD A,(L13D9) L153E: OR A JR NZ,L1546 ; (+005H) EX AF,AF' RET L1543: LD H,SIOAD JP (HL) L1546: LD B,A EX AF,AF' DEC B JP Z,BREAKZ DEC B JP NZ,ERRORJ L1550: LD HL,(013CEH) LD A,H OR L JR Z,L1504 ; (-053H) CALL L14FC RST 018H DB 00EH JP Z,BREAKZ JR L1550 ; (-011H) DI PUSH AF PUSH HL PUSH BC LD (01585H),SP LD SP,L1585 OUT (LSE3),A CALL 0F400H OUT (LSE1),A LD SP,(01585H) POP BC POP HL POP AF EI RETI NOP NOP NOP NOP NOP NOP NOP NOP L1585: NOP NOP L1587: PUSH HL LD DE,(0004FH) PUSH DE LD DE,L15CE LD (0004FH),DE LD A,(L1364) PUSH AF LD A,064H LD (L1364),A LD (01645H),SP XOR A LD (L1091),A L15A5: LD SP,L0000 L15A8: LD BC,L15A8 PUSH BC RST 018H DB 002H LD A,02AH RST 018H DB 003H L15B2: CALL L1651 JR NC,L15B2 ; (-005H) LD A,(DE) CP 02AH RET NZ INC DE LD A,(DE) INC DE EXX LD HL,L15E0 LD B,00AH L15C4: CP (HL) INC HL JR Z,L15DA ; (+012H) INC HL INC HL DJNZ L15C4 ; (-008H) EXX RET L15CE: LD C,A AND 07FH JR Z,L15A5 ; (-02eH) LD A,C RST 018H DB 01BH RST 018H DB 043H JR L15A5 ; (-035H) L15DA: LD E,(HL) INC HL LD D,(HL) PUSH DE EXX RET L15E0: LD B,H ADD A,016H LD C,L JR C,L15FD ; (+017H) LD D,B CP 015H LD B,A POP BC LD D,046H LD E,H RLA LD D,D LD B,H LD D,053H RLCA LD D,04CH LD E,016H LD D,(HL) DEC SP LD D,054H XOR H L15FD: RLA LD A,(L1091) XOR 001H LD (L1091),A RET CALL L1795 RET C EXX CALL L17C3 EXX LD (ELMD20),BC LD (ELMD22),DE LD (L1018),HL RST 018H DB 031H RET CALL L1672 PUSH HL PUSH AF CALL L1630 POP AF POP HL JR NC,L162D ; (+003H) LD HL,(ELMD22) L162D: RST 018H DB 030H RET L1630: CALL L17C3 RST 018H DB 02FH CP 001H RET Z JP 01FB2H CALL L1630 L163E: LD HL,(ELMD22) RST 018H DB 032H RET LD SP,L0000 POP AF LD (L1364),A POP HL LD (L004F),HL POP HL RET L1651: LD DE,0FF00H RST 018H DB 00CH JR C,L1670 ; (+018H) LD A,(DE) CP 03AH SCF RET NZ INC DE CALL L1672 RET C LD A,(DE) INC DE XOR 03DH RET NZ L1667: CALL L1697 CCF RET NC LD (HL),A INC HL JR L1667 ; (-009H) L1670: LD (DE),A RET L1672: PUSH HL CALL L168C PUSH DE CALL L169E JR C,L1687 ; (+00bH) LD H,A CALL L169E JR C,L1687 ; (+005H) LD L,A POP AF POP AF XOR A RET L1687: POP DE POP HL SCF RET L168B: INC DE L168C: LD A,(DE) CP 020H JR Z,L168B ; (-006H) RET L1692: LD A,(DE) RST 018H DB 015H INC DE RET L1697: CALL L168C CP 03BH JR Z,L16BC ; (+01eH) L169E: PUSH BC PUSH DE CALL L1692 JR C,L16B8 ; (+013H) LD C,A CALL L1692 JR C,L16B8 ; (+00dH) LD B,A LD A,C RLCA RLCA RLCA RLCA ADD A,B LD C,A LD A,C POP BC POP BC OR A RET L16B8: POP DE POP BC SCF RET L16BC: INC DE LD A,(DE) INC DE OR A RET CALL L1672 RET C JP (HL) CALL L1672 JR C,L16D6 ; (+00bH) PUSH HL CALL L1672 JR C,L16D5 ; (+004H) POP DE EX DE,HL JR L16DC ; (+007H) L16D5: POP HL L16D6: EX DE,HL LD HL,00080H ADD HL,DE EX DE,HL L16DC: LD C,008H CALL L16E9 RET C PUSH HL SBC HL,DE POP HL RET NC JR L16DC ; (-00dH) L16E9: CALL L1711 LD B,C PUSH HL L16EE: LD A,(HL) CALL L1722 INC HL LD A,020H RST 018H DB 009H DJNZ L16EE ; (-00bH) POP HL LD A,02FH RST 018H DB 009H LD B,C L16FF: LD A,(HL) CP 020H JR NC,L1706 ; (+002H) LD A,02EH L1706: RST 018H DB 009H INC HL DJNZ L16FF ; (-00cH) RST 018H DB 008H RST 018H DB 00FH OR A RET L1711: LD A,03AH RST 018H DB 009H LD A,H CALL L1722 LD A,L CALL L1722 LD A,03DH RST 018H DB 009H RET L1722: PUSH AF RLCA RLCA RLCA RLCA CALL L172B POP AF L172B: AND 00FH ADD A,030H CP 03AH JR C,L1735 ; (+002H) ADD A,007H L1735: RST 018H DB 009H RET CALL L1672 LD A,(L1091) PUSH AF XOR A LD (L1091),A L1743: RST 018H DB 002H CALL L1711 LD A,(HL) CALL L1722 LD A,014H RST 018H DB 003H RST 018H DB 003H CALL L1651 JR NC,L1743 ; (-014H) POP AF LD (L1091),A RET CALL L1672 RET C PUSH HL CALL L1672 POP BC RET C PUSH HL PUSH BC LD HL,0FF00H CALL L1667 LD DE,0FF00H OR A SBC HL,DE LD C,L POP HL PUSH HL EXX POP HL POP DE EXX RET Z L177C: CALL L17D6 JR NZ,L1785 ; (+004H) CALL L16E9 RET C L1785: RST 018H DB 00EH RET Z EXX INC HL PUSH HL SCF SBC HL,DE POP HL RET NC PUSH HL EXX POP HL JR L177C ; (-019H) L1795: CALL L1672 PUSH HL CALL NC,L1672 POP BC RET C SBC HL,BC INC HL PUSH HL PUSH BC CALL L1672 PUSH HL EXX POP HL POP DE POP BC RET CALL L1795 RET C EX DE,HL PUSH HL SBC HL,DE POP HL JR C,L17BA ; (+003H) LDIR RET L17BA: ADD HL,BC DEC HL EX DE,HL ADD HL,BC DEC HL EX DE,HL LDDR RET L17C3: LD A,(DE) OR A JR Z,L17CC ; (+005H) INC DE CP 03AH JR NZ,L17C3 ; (-009H) L17CC: RST 018H DB 017H RST 018H DB 02DH LD A,001H LD (L1000),A RET L17D6: LD A,(DE) CP (HL) RET NZ PUSH BC DB 0D5H DB LSE5 DB 041H,01AH,0BEH,020H,005H,013H,023H,010H,0F8H,0AFH DB LSE1 DB LSD1 DB 0C1H DB 0C9H DS 22, 000H $IOCS: DB 0C3H,000H,"X:B",010H,0FEH,088H,0C9H ; $IOCS - I/O control system entry L1809: DS 2, 000H L180B: DS 2, 000H L180D: DS 2, 000H L180F: DB LSRF DB 01AH DB 018H DB LSRF DB 021H DB 018H DB 0AFH DB 032H DB 0D9H DB 01FH DB 0C9H L181A: DB 03AH,042H,010H,032H,0D9H,01FH,0C9H DB LSRF DB 0C7H,000H,03AH,050H,010H,0CBH,07FH,021H,048H,018H,028H,00FH,0CBH,"_!5",018H,020H,008H,0DDH,02AH,05FH,010H DB LSRF DB 047H DB 002H DB 0C9H DB 078H L183E: DB 0B7H DB 0C8H DB 01AH DB LSRF DB 0A7H DB 000H DB 013H DB 005H DB 018H DB SIOBD DB LSRF DB 0C7H,000H,0FDH,05EH,040H,0FDH,"VA*",00BH,018H,019H,077H,013H,02AH,05BH,010H,0B7H,0EDH,052H DB LSWF DB 071H,018H,0FDH,073H,040H,0FDH,072H,041H,0FDH,034H,014H,0C0H,0FDH,034H,015H,0C0H,0C3H,0A6H,01FH,0C5H,006H,002H DB LSRF DB 027H,01DH,0DDH,021H,035H,018H,028H,004H,0DDH,021H,0A1H,03BH,078H DB LSRF DB 0B6H DB 018H DB LSRF DB 090H DB 018H DB 0FDH DB 034H DB 04EH DB 011H DS 2, 000H DB 0C1H DB 0C9H DB 0DDH DB 0E9H L1892: DB 03EH,01AH,0FDH,05EH,040H,0FDH,"VA*",00BH,018H,019H,077H,013H,02AH,05BH,010H,0AFH,0EDH,052H,020H DB PSGA DB 0C5H,02AH,00BH,018H,02BH,036H,0FFH,02BH,036H,0FFH DS 2, 006H DB 018H DB 0BEH DB 0EDH DB 04BH DB 05BH DB 010H DS 2, 003H DB 02AH DB 00BH DB 018H DS 2, 02BH DB 0EDH DB 05BH DB 009H DB 018H DB 0C9H L18C6: DB 0F6H L18C7: DB 0AFH DB 0DDH DB 02AH DB 059H DB 010H DB LSRF DB 047H DB 002H DB 0C9H L18D0: DB LSRF DB 003H DB 018H DB 0C0H DB 0D5H DB 011H DB 0A4H DB 011H DB LSRF DB 067H,00AH,0EDH,053H,03CH,019H DB LSD1 DB LSD0 DB 0C3H DB 0E8H DB 000H L18E4: DB LSE5 DB 0D5H DB LSRF DB 01AH,018H,02AH,040H,010H,023H,0CBH,07EH DB LSE5 DB 006H DB 000H DB 037H DB LSWF DB 013H DB 019H DB LSE1 DB 0DCH DB 008H DB 019H DB LSD1 DB SIOBD DB LSRF DB 015H,018H,068H,026H,000H,019H,036H,000H,0F1H DB LSE1 DB 0C9H,0CBH,0FEH,021H,051H,010H,0CBH,066H,0C8H,0C3H,0B5H,01FH DB LSRF DB 003H,018H,"(#:P",010H,0CBH,07FH,021H,091H,019H,028H,053H,0CBH,"W!)",019H,020H,04CH,0DDH,02AH,05DH,010H DB LSRF DB 047H,002H,0C9H,03EH,03FH,0DFH,003H,03EH,020H,0DFH,003H,0DFH,034H,021H DS 2, 000H L193E: DB LSRF DB 05EH,001H,0B7H,028H,0EDH,00EH,000H,0DFH,036H,022H,03CH,019H,0C9H L194C: DB 006H DB 000H DB LSRF DB 064H,001H,022H,020H,013H,07EH,0B7H,0C8H,023H,0FEH,022H,028H,005H,012H,013H,004H,018H,0F3H DB LSRF DB 064H,001H,02CH,0B7H,0C9H,07EH,0B7H,0C8H,0B9H,0C8H,023H,0FEH,02CH,0C8H,012H,013H,004H,018H DB PSGA DB 022H DB 07BH DB 019H DB 006H DB 000H DB LSRF DS 2, 000H DB 0D8H DB 0FEH DB 00DH DB 0C8H DB 012H DB 013H DB 004H DB 020H DB SIOAD DB 0C3H DB 08BH DB 01FH L1989: DB 03AH DB 050H DB 010H DB 0CBH DB 07FH DB 0C2H DB 0ACH DB 01FH DB LSRF DB 0C7H,000H,0FDH,05EH,040H,0FDH,"VA*[",010H,0B7H,0EDH,052H DB LSWF DB 0BCH,019H,0D8H,0FDH,06EH,04EH,0FDH,066H,04FH,0AFH,0EDH,052H,037H,0C8H,02AH,00BH,018H,019H,07EH,013H,0FDH,073H,040H,0FDH,072H,041H,0C9H DB LSRF DB 027H DB 01DH DB 0C2H DB 0A1H DB 03BH DB 0F6H L19C3: DB 0AFH DB LSRF DB 0B6H DB 018H DB LSRF DB 029H,019H,0D8H,07EH,023H,0A6H,036H,0FFH,03CH,011H DS 2, 000H DB 0C0H DB LSE5 DB 02AH,00DH,018H,0EDH,04BH,05BH,010H,02BH,00BH,07EH,0B7H,028H,0FAH DB LSE1 DB "p+q",0C9H L19E8: DB LSRF DB 0C7H,000H,021H,035H,01AH,0FEH,088H,028H,00AH,021H,03DH,01AH,0FEH,089H,028H,003H,0DFH,029H,0D8H,022H,040H,010H,011H LD B,D DJNZ L1A04 ; (+001H) EX AF,AF' L1A04: NOP LDIR LD (L1809),HL PUSH HL POP IY LD DE,L1000 CALL L1C66 PUSH HL LD HL,(L1044) LD DE,L104A LD BC,0001DH LDIR POP HL LD BC,00010H ADD HL,BC LD (L180B),HL LD BC,(ZKL) ADD HL,BC LD (L180D),HL LD A,(L1043) AND 00FH RET DB 088H DB 003H DB 0DDH DB 00DH DS 4, 000H DB 089H DB 002H DB 079H DB 014H DS 4, 000H L1A45: LD HL,L11A4 PUSH HL LD A,B OR A CALL NZ,LDHLDE LD (HL),000H LD HL,L0DDD JR L1A58 ; (+003H) L1A55: LD HL,L0000 L1A58: LD A,L OR H JR Z,L1A91 ; (+035H) LD (01A8CH),HL CALL LDDEMI LD (01A56H),DE LD DE,L11A4 EX DE,HL L1A6A: LD A,(DE) OR A JR Z,L1A75 ; (+007H) CP (HL) JR NZ,L1A55 ; (-01cH) INC HL INC DE JR L1A6A ; (-00bH) L1A75: LD A,(HL) INC HL CP 03AH LD C,000H JR Z,L1A8A ; (+00dH) SUB 031H CP 009H JR NC,L1A55 ; (-02eH) LD C,A LD A,(HL) INC HL CP 03AH JR NZ,L1A55 ; (-035H) L1A8A: EX (SP),HL LD HL,L0000 LD A,C JR L1AA3 ; (+012H) L1A91: POP HL PUSH HL L1A93: LD A,(HL) INC HL CP 03AH JP Z,01FA9H OR A JR NZ,L1A93 ; (-00aH) LD HL,(DDEV) LD A,(L1069) L1AA3: LD (L1044),HL PUSH HL LD (L1046),A LD DE,L104A LD BC,0001DH LDIR LD B,A LD A,(L1051) AND 007H CP B JP C,01FA9H LD A,B POP DE POP HL RET L1AC0: CALL PUSHR RST 018H DB 02CH EX DE,HL LD HL,L1001 LD B,01FH CALL ?CLRHL LD HL,L1000 RST 018H DB 017H CALL L1EC9 LD HL,L1050 BIT 4,(HL) RET Z INC HL BIT 7,(HL) RET NZ LD A,(L1001) CP 00DH JP Z,01FAFH RET L1AE9: CALL PUSHR CALL L1AF7 LD B,000H CALL L1BA9 JP L3BA1 L1AF7: LD A,(L1042) RST 018H DB 029H JP NC,01F91H CALL L1C6D LD HL,L005D LD A,(L1050) LD DE,(ZKL) INC DE INC DE BIT 7,A JR NZ,L1B13 ; (+001H) ADD HL,DE L1B13: LD A,(L1043) BIT 2,A JR Z,L1B1B ; (+001H) ADD HL,DE L1B1B: EX DE,HL LD A,(L1042) RST 018H DB 02AH LD (L1FD9),A LD (L1040),HL EX DE,HL LD HL,L1042 LD BC,00008H LDIR LD (01809H),DE PUSH DE POP IY LD HL,L1000 CALL L1C66 LD HL,00010H ADD HL,DE LD (L180B),HL LD DE,(ZKL) ADD HL,DE LD (L180D),HL CALL L1D27 JP NZ,L3BA1 LD A,(L1043) BIT 2,A JP NZ,01FACH BIT 1,A LD IX,(ZWO) JR NZ,L1B6D ; (+00bH) LD A,(L1050) BIT 7,A JR Z,L1B73 ; (+00aH) LD IX,(ZRO) L1B6D: LD HL,L1000 JP _IOCALL L1B73: LD B,(IY+000H) CALL L1C4B LD A,(L1000) CP B JP NZ,01FB2H JP L19C3 L1B83: CALL PUSHR LD IY,00100H LD (L1042),IY LD IY,L1000 CALL L1D27 LD HL,L3BA1 JR NZ,L1B9D ; (+003H) LD HL,L1C4B L1B9D: CALL .HL LD B,080H CALL L1BA9 LD A,(L1000) RET L1BA9: LD A,(L1000) CP 005H RET C LD A,(L1012) AND 080H CP B RET Z JP 01FB2H L1BB9: CALL PUSHR OR A JR Z,L1BFF ; (+040H) CALL L1BC5 JP L3BA1 L1BC5: RST 018H DB 02EH RET C CALL L181A PUSH AF CALL L1D27 JR NZ,L1BF3 ; (+022H) BIT 7,A LD A,B JR Z,L1BE6 ; (+010H) OR A LD IX,(ZKL) JR Z,L1BE1 ; (+004H) LD IX,(ZCL) L1BE1: CALL _IOCALL JR L1BF6 ; (+010H) L1BE6: OR A JR Z,L1BF6 ; (+00dH) LD A,(L1043) BIT 1,A CALL NZ,L1892 JR L1BF6 ; (+003H) L1BF3: CALL L3BA1 L1BF6: POP AF RST 018H DB 02BH RET L1BFA: CALL PUSHR LD B,000H L1BFF: LD C,08EH L1C01: LD A,C PUSH BC RST 018H DB 029H CALL NC,L1BC5 POP BC DEC C JR NZ,L1C01 ; (-00bH) JP L1FC0 L1C0F: CALL PUSHR LD A,(L1050) BIT 6,A JP Z,01FACH CALL L18C7 LD A,(ZDIRMX) LD B,A L1C21: LD HL,L11A4 PUSH BC LD IX,(ZRO) CALL _IOCALL POP BC SET 0,A RET C PUSH IY POP DE CALL L1EB2 LD A,(HL) RET Z DJNZ L1C21 ; (-019H) XOR A SCF RET L1C3D: CALL L1C6D CALL L1C0F JP NC,01F8EH OR A JP Z,01F9AH RET L1C4B: CALL L1C6D CALL L1C0F JP C,01F88H CALL PUSHR LD HL,L11A4 PUSH IY POP DE PUSH HL CALL L1C66 POP HL LD DE,L1000 LD A,(HL) L1C66: LD BC,00040H LDIR OR A RET L1C6D: LD IX,L1CAF L1C71: LD (01CABH),IX CALL PUSHR LD A,(L1042) LD C,A LD HL,(L1072) PUSH HL L1C80: POP HL LD A,(HL) OR A RET Z LD B,A INC HL CALL LDDEMI PUSH HL ADD HL,DE EX (SP),HL CP 08FH JR NC,L1C80 ; (-010H) CP C JR Z,L1C80 ; (-013H) INC HL LD A,(HL) EX AF,AF' INC HL LD DE,L1044 PUSH BC LD BC,00300H L1C9E: LD A,(DE) SUB (HL) OR C LD C,A INC DE INC HL DJNZ L1C9E ; (-008H) POP BC JR NZ,L1C80 ; (-029H) LD A,B CALL L0000 JR L1C80 ; (-02fH) L1CAF: LD A,(L1051) BIT 6,A JP NZ,01F91H BIT 5,A RET Z EX AF,AF' LD B,A LD A,(L1043) AND B BIT 1,A RET Z JP 01F91H L1CC6: CALL L1D27 JP NZ,L3BA1 LD BC,(ELMD20) PUSH BC XOR A LD IX,(ZINP) CALL _IOCALL POP BC RET L1CDB: LD A,(L1051) BIT 7,A JP Z,01FACH LD BC,(ELMD20) JP L388D L1CEA: LD A,(L1000) CP 005H JR C,L1CF6 ; (+005H) LD A,080H LD (L1012),A L1CF6: CALL L1D27 JP NZ,L3BA1 BIT 7,A JP NZ,01FACH PUSH DE LD HL,L0200 LD (L1042),HL CALL L1C6D LD HL,L1000 PUSH HL POP IY LD IX,(ZWO) CALL _IOCALL LD BC,(ELMD20) POP HL LD A,004H LD IX,(ZOUT) CALL _IOCALL RET L1D27: LD A,(L1050) BIT 5,A RET L1D2D: CALL PUSHR OR A JR NZ,L1D80 ; (+04dH) LD HL,00100H LD (L1042),HL CALL L1C6D LD HL,L1050 BIT 7,(HL) JP NZ,01FACH BIT 5,(HL) JP NZ,L3BA1 INC HL BIT 7,(HL) JP NZ,01FACH CALL L44A3 LD HL,L27D0 LD BC,00008H L1D58: CALL ?CLRHL DEC C JR NZ,L1D58 ; (-006H) CALL L18C7 LD A,(ZDIRMX) LD B,A LD HL,L27D0 L1D68: PUSH BC LD IX,(ZRO) CALL _IOCALL PUSH AF LD BC,00020H ADD HL,BC LD (HL),000H POP AF POP BC JR C,L1D7D ; (+002H) DJNZ L1D68 ; (-015H) L1D7D: JP L18C6 L1D80: LD (01E28H),A XOR A LD (L1090),A LD HL,L11A4 PUSH HL LD DE,L1E32 LD B,00EH CALL LDHLDE CALL SETDNM LD (HL),020H INC HL LD (HL),020H INC HL EX DE,HL CALL L1D27 LD IX,(ZFREE) JR Z,L1DAA ; (+004H) LD IX,L3BA1 L1DAA: CALL _IOCALL JR C,L1DBD ; (+00eH) LD H,B LD L,C LD B,000H RST 018H DB 016H LD HL,L1E40 LD B,009H CALL LDDEHL L1DBD: EX DE,HL LD (HL),00DH INC HL LD (HL),000H POP DE CALL L1E27 LD B,040H LD HL,L27D0 L1DCC: CALL L1DD8 LD DE,00020H ADD HL,DE DJNZ L1DCC ; (-009H) JP L3BA1 L1DD8: CALL PUSHR LD A,(HL) OR A RET Z RET M LD DE,L11A4 PUSH DE LD A,020H LD B,026H CALL ?SETDE LD A,(HL) CP 00CH JR C,L1DF1 ; (+002H) LD A,00CH L1DF1: PUSH HL POP IY POP DE PUSH DE INC DE LD HL,L1E46 LD BC,L0003 L1DFD: ADD HL,BC DEC A JR NZ,L1DFD ; (-004H) LDIR EX DE,HL BIT 0,(IY+012H) JR Z,L1E0C ; (+002H) LD (HL),02AH L1E0C: INC HL INC HL LD (HL),022H INC HL L1E11: LD A,(IY+001H) CP 00DH JR Z,L1E1E ; (+006H) L1E18: LD (HL),A INC IY INC HL JR L1E11 ; (-00dH) L1E1E: LD (HL),022H INC HL LD (HL),00DH INC HL LD (HL),000H POP DE L1E27: LD A,000H RST 018H DB 02EH RST 018H DB 017H RST 018H DB 037H RST 018H DB 00FH RET L1E32: DB 00DH,"DIRECTORY OF " ; Directory/file type strings L1E40: DB " KB FR" L1E46: DS 2, 045H DB ".OBJBTXBSDBRDRB" DS 2, 020H DB "? LIB ?" DS 2, 020H DB "? SYSGR" DS 2, 020H DB 03FH DB 020H L1E6D: PUSH HL L1E6E: XOR A LD (L1042),A LD IX,L1E86 LD (01E87H),SP CALL L1C71 POP HL LD IX,(ZINIT) CALL _IOCALL RET L1E86: LD SP,L0000 LD B,000H RST 018H DB 038H JR L1E6E ; (-021H) L1E8F: DB LSRF LD H,H LD BC,0C859H LD DE,L1EA3 RST 018H DB 005H LD A,001H RST 018H DB 00DH CP 059H RET Z JP BREAKZ L1EA3: DB "OK ? [Y/N]",019H,000H LD DE,L1000 L1EB2: CALL PUSHR INC HL INC DE LD A,(DE) CP 00DH RET Z LD B,011H L1EBD: LD A,(DE) CP (HL) RET NZ CP 00DH RET Z INC HL INC DE DJNZ L1EBD ; (-00aH) OR A RET L1EC9: INC HL LD C,010H L1ECC: LD A,B OR A JR Z,L1EE4 ; (+014H) LD A,(DE) INC DE DEC B OR A JR Z,L1EE4 ; (+00eH) CP 022H JR Z,L1ECC ; (-00eH) CP 03AH JP Z,01FAFH LD (HL),A INC HL DEC C JR NZ,L1ECC ; (-018H) L1EE4: LD (HL),00DH INC HL L1EE7: LD A,C OR A RET Z LD (HL),020H INC HL DEC C JR L1EE7 ; (-009H) L1EF0: LD HL,(L1072) L1EF3: INC (HL) DEC (HL) SCF RET Z CP (HL) INC HL JR Z,L1F03 ; (+008H) PUSH DE CALL LDDEMI ADD HL,DE POP DE JR L1EF3 ; (-010H) L1F03: INC HL INC HL RET L1F06: CALL PUSHR RST 018H DB 029H RET C DEC HL LD B,(HL) DEC HL LD C,(HL) DEC HL LD D,H LD E,L INC BC INC BC INC BC PUSH BC ADD HL,BC PUSH HL LD B,H LD C,L LD HL,(L107A) OR A SBC HL,BC LD B,H LD C,L POP HL LDIR POP DE LD HL,L0000 OR A SBC HL,DE EX DE,HL RST 018H DB 019H OR A RET L1F32: PUSH AF PUSH BC PUSH DE PUSH DE INC DE INC DE INC DE LD HL,(L107A) EX DE,HL ADD HL,DE EX DE,HL JP C,01F82H PUSH HL LD HL,0FE00H ADD HL,SP SBC HL,DE JR C,01F82H ; (+037H) LD HL,(L107E) DEC H DEC H SBC HL,DE JR C,01F82H ; (+02eH) POP HL PUSH HL LD BC,(VARST) OR A SBC HL,BC LD B,H LD C,L POP HL INC BC LDDR POP DE LD (HL),A INC HL LD (HL),E INC HL LD (HL),D INC HL PUSH HL INC DE PUSH DE L1F6D: LD (HL),000H INC HL DEC DE LD A,D OR E JR NZ,L1F6D ; (-008H) POP DE INC DE INC DE RST 018H DB 019H POP HL POP DE POP BC POP AF RET L1F7F: LD A,003H LD HL,L063E LD HL,09C3EH LD HL,0A83EH LD HL,0A93EH LD HL,0AA3EH LD HL,0AB3EH LD HL,0AE3EH LD HL,0B23EH LD HL,0B33EH LD HL,0B43EH LD HL,0B53EH LD HL,0B63EH LD HL,0B73EH LD HL,L3A3E LD HL,0BB3EH LD HL,0BC3EH LD HL,0BD3EH LD HL,0BF3EH LD HL,L403E LD HL,0C43EH JP ERRORJ L1FC0: LD A,(L1FD9) OR A LD B,000H CALL NZ,L1BB9 CALL L3BA1 CALL L3028 XOR A LD (L1FD9),A JP L3BA1 NOP NOP NOP L1FD9: DB 000H NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP L2000: DS 230, 000H L20E6: DS 255, 000H L21E5: DS 283, 000H L2300: DS 38, 000H L2326: DS 88, 000H L237E: DS 353, 000H L24DF: DS 561, 000H L2710: DS 192, 000H L27D0: DS 88, 000H L2828: DS 720, 000H L2AF8: DS 77, 000H L2B45: DS 379, 000H L2CC0: DS 382, 000H L2E3E: DS 146, 000H L2ED0: DS 256, 000H $QD: DB 07FH ; $QD - Quick Disk device descriptor DB 00FH DB 051H DB 044H DS 2, 000H DB "_@ " DB LSPAL DS 2, 02FH DB "0M0",008H,030H,000H,004H,"@0W0" DS 4, 000H DB 0EDH DB 02FH XOR A SCF RET RET C CALL TEST1 DB 059H JR Z,L2FFE ; (+007H) OR A JP NZ,L1F7F CALL L1E8F L2FFE: CALL L3052 RET C RST 018H DB 010H LD C,002H JR L3047 ; (+03fH) OR A JR NZ,L3028 ; (+01dH) RST 018H DB 010H XOR A LD (L308C),A LD C,005H CALL L3019 LD BC,00001H L3019: LD (L3082),HL LD (03084H),DE LD HL,L3081 LD (HL),B DEC HL LD (HL),C JR L3096 ; (+06eH) L3028: CALL PUSHR LD C,006H JR L3047 ; (+018H) LD BC,L0003 LD DE,00040H CALL L3019 RET NC CP 028H SCF RET NZ LD A,000H RET RST 018H DB 010H LD D,B LD E,C LD BC,L0103 L3047: CALL L3019 RST 018H DB 011H RET LD A,037H LD (L305A),A L3052: LD BC,L0101 JR L3019 ; (-03eH) PUSH AF RST 018H DB 010H L305A: XOR A JR NC,L3071 ; (+014H) LD A,0AFH LD (L305A),A CALL L1C3D LD (L3086),HL LD HL,L1000 LD DE,00040H POP AF JR L3077 ; (+006H) L3071: LD (L3086),HL POP AF SET 0,A L3077: LD (03088H),BC LD B,A LD C,004H JR L3047 ; (-039H) DB 000H L3081: DB 000H L3082: DS 4, 000H L3086: DS 4, 000H L308A: DB 000H L308B: DB 000H L308C: DB 000H L308D: DB 000H L308E: DB 000H L308F: DB 000H L3090: DB 000H L3091: DB 000H L3092: DB 000H L3093: DS 3, 000H L3096: LD A,005H LD (L3092),A L309B: DI CALL L30F2 EI RET NC PUSH AF CP 028H JR Z,L30F0 ; (+04aH) CALL L3371 LD A,(03080H) CP 004H JR NZ,L30CD ; (+01dH) LD A,(L308E) OR A JR Z,L30D5 ; (+01fH) XOR A LD (L308E),A LD A,(L308F) PUSH HL LD (03094H),SP POP HL DI CALL L32F1 EI JR C,L30EA ; (+020H) CALL L3371 L30CD: CP 003H JR NZ,L30D5 ; (+004H) LD HL,L308A DEC (HL) L30D5: POP AF PUSH AF CP 029H JR NZ,L30EA ; (+00fH) LD HL,L3092 DEC (HL) JR Z,L30EA ; (+009H) POP AF LD A,(L308D) LD (L308C),A JR L309B ; (-04fH) L30EA: CALL L3263 CALL L310B L30F0: POP AF RET L30F2: LD (03094H),SP LD A,(03080H) DEC A JR Z,L3112 ; (+016H) DEC A JR Z,L3118 ; (+019H) DEC A JR Z,L3162 ; (+060H) DEC A JP Z,L31D6 DEC A JR Z,L310B ; (+002H) JR L315B ; (+050H) L310B: PUSH AF XOR A LD (L308A),A POP AF RET L3112: LD A,(L3081) JP L32C5 L3118: XOR A CALL L32F1 CALL L33EF LD BC,0EFFFH LD A,0AAH L3124: CPL LD D,A CALL L3466 DEC BC LD A,B OR C JR Z,L3131 ; (+003H) LD A,D JR L3124 ; (-00dH) L3131: CALL L343C CALL L3371 CALL L3324 LD A,(L3090) DEC A JR NZ,L315E ; (+01eH) CALL L3386 LD BC,0EFFFH LD E,055H L3148: CP E JR NZ,L315E ; (+013H) DEC BC LD A,B OR C JR Z,L3158 ; (+008H) LD A,E CPL LD E,A CALL L347C JR L3148 ; (-010H) L3158: CALL L344E L315B: JP L3371 L315E: LD A,029H SCF RET L3162: LD A,(L3091) OR A CALL Z,L3324 CALL L319C RET C CALL L34C1 CALL L347C LD C,A CALL L347C LD B,A OR C JP Z,L326D LD HL,(03084H) SBC HL,BC JP C,L326D LD HL,(L3082) L3187: CALL L347C LD (HL),A INC HL DEC BC LD A,B OR C JR NZ,L3187 ; (-00aH) CALL L344E LD A,(L3081) BIT 0,A JR NZ,L315B ; (-040H) RET L319C: LD HL,L3090 DEC (HL) JR Z,L31D2 ; (+030H) CALL L3386 LD C,A LD A,(L308A) LD HL,L308B CP (HL) JR NZ,L31CF ; (+020H) INC A LD (L308A),A LD (HL),A LD A,(L3081) XOR C RRA RET NC L31BA: CALL L347C LD C,A CALL L347C LD B,A L31C2: CALL L347C DEC BC LD A,B OR C JR NZ,L31C2 ; (-008H) CALL L344E JR L319C ; (-033H) L31CF: INC (HL) JR L31BA ; (-018H) L31D2: LD A,028H SCF RET L31D6: LD A,(L308C) LD (L308D),A LD A,(L3091) OR A JR NZ,L31F9 ; (+017H) CALL L3324 LD A,(L308C) LD HL,L3090 ADD A,(HL) LD (L3090),A INC A LD (L308A),A CALL L319C JP NC,L326D L31F9: LD A,(L3081) LD B,A AND 001H JR NZ,L320D ; (+00cH) LD DE,L3082 LD A,B RES 2,A CALL L3276 CALL L34C1 L320D: LD DE,L3086 LD A,(L3081) SET 0,A CALL L3276 CALL L3371 CALL L34C1 LD A,(L3081) AND 004H JR Z,L3271 ; (+04cH) LD A,(L308F) LD HL,L308C ADD A,(HL) CALL L32F1 LD A,001H LD (L308E),A L3234: LD A,(L308F) LD HL,L308D ADD A,(HL) INC A LD (L3090),A INC A LD (L308A),A CALL L319C JR NC,L326D ; (+025H) LD A,(L3081) AND 001H JR NZ,L3256 ; (+007H) LD DE,L3082 CALL L32A4 RET C L3256: LD DE,L3086 CALL L32A4 RET C LD A,(L308E) OR A JR Z,L326A ; (+007H) L3263: XOR A LD (L308C),A LD (L308E),A L326A: JP L3371 L326D: LD A,029H SCF RET L3271: CALL L3324 JR L3234 ; (-042H) L3276: PUSH AF LD HL,L308C INC (HL) CALL L33EF POP AF CALL L3466 CALL L329A LD A,C CALL L3466 LD A,B CALL L3466 L328D: LD A,(HL) CALL L3466 INC HL DEC BC LD A,B OR C JR NZ,L328D ; (-00aH) JP L343C L329A: EX DE,HL LD E,(HL) INC HL LD D,(HL) INC HL LD C,(HL) INC HL LD B,(HL) EX DE,HL RET L32A4: CALL L3386 CALL L329A CALL L347C CP C JR NZ,L326D ; (-043H) CALL L347C CP B JR NZ,L326D ; (-049H) L32B6: CALL L347C CP (HL) JR NZ,L326D ; (-04fH) INC HL DEC BC LD A,B OR C JR NZ,L32B6 ; (-00cH) JP L344E L32C5: LD B,A LD A,002H OUT (SIOBC),A LD A,081H OUT (SIOBC),A LD A,002H OUT (SIOBC),A IN A,(SIOBC) AND 081H CP 081H JP NZ,03492H LD A,010H OUT (0F6H),A IN A,(0F6H) LD C,A AND 008H JP Z,03492H LD A,B OR A RET Z LD A,C AND 020H RET NZ JP 0348FH L32F1: PUSH AF LD HL,L34B8 LD B,009H CALL L3361 L32FA: LD A,010H OUT (0F6H),A IN A,(0F6H) AND 008H JP Z,03492H LD A,010H OUT (SIOBC),A IN A,(SIOBC) AND 008H JR Z,L32FA ; (-015H) LD BC,000E9H CALL L34A0 CALL L3424 CALL L3408 POP AF CALL L3466 CALL L343C JR L3357 ; (+033H) L3324: LD HL,L34AD LD B,00BH CALL L3361 L332C: LD A,010H OUT (0F6H),A IN A,(0F6H) AND 008H JP Z,03492H CALL L34C1 LD A,010H OUT (SIOBC),A IN A,(SIOBC) AND 008H JR Z,L332C ; (-018H) LD BC,000E9H CALL L34A0 CALL L339C LD (L308F),A INC A LD (L3090),A CALL L344E L3357: LD HL,L3093 SET 3,(HL) XOR A LD (L308B),A RET L3361: LD C,0F6H OTIR LD A,005H LD (L3091),A OUT (SIOBC),A LD A,080H OUT (SIOBC),A RET L3371: PUSH AF LD A,005H OUT (0F6H),A LD A,060H OUT (0F6H),A LD A,005H OUT (SIOBC),A XOR A LD (L3091),A OUT (SIOBC),A POP AF RET L3386: LD A,058H LD B,00BH LD HL,L34AD CALL L342D LD HL,L3093 BIT 3,(HL) LD BC,L0003 JR Z,L339F ; (+005H) RES 3,(HL) L339C: LD BC,L00A0 L339F: CALL L34A0 LD A,005H OUT (SIOBC),A LD A,082H OUT (SIOBC),A LD A,003H OUT (0F6H),A LD A,LSD3 OUT (0F6H),A LD BC,L2CC0 L33B5: LD A,010H OUT (0F6H),A IN A,(0F6H) AND 010H JR Z,L33C7 ; (+008H) DEC BC LD A,B OR C JR NZ,L33B5 ; (-00fH) JP 03498H L33C7: LD A,003H OUT (0F6H),A LD A,0C3H OUT (0F6H),A LD B,09FH L33D1: LD A,010H OUT (0F6H),A IN A,(0F6H) AND 001H JR NZ,L33E1 ; (+006H) DEC B JR NZ,L33D1 ; (-00dH) JP 03498H L33E1: LD A,003H OUT (0F6H),A LD A,0C9H OUT (0F6H),A CALL L347C JP L347C L33EF: LD A,098H LD B,009H LD HL,L34B8 CALL L342D CALL L3424 LD HL,L3093 BIT 3,(HL) LD BC,0001DH JR Z,L340B ; (+005H) RES 3,(HL) L3408: LD BC,L0140 L340B: CALL L34A0 LD A,005H OUT (0F6H),A LD A,0EFH OUT (0F6H),A LD BC,00001H CALL L34A0 LD A,0C0H OUT (0F6H),A LD A,0A5H JR L3466 ; (+042H) L3424: LD A,005H OUT (0F6H),A LD A,0FFH OUT (0F6H),A RET L342D: LD C,0F6H OUT (C),A LD A,005H OUT (SIOBC),A LD A,080H OUT (SIOBC),A OTIR RET L343C: LD BC,00001H CALL L34A0 LD A,010H OUT (SIOBC),A IN A,(SIOBC) AND 008H RET NZ JP 03495H L344E: LD B,003H L3450: CALL L347C DJNZ L3450 ; (-005H) L3455: IN A,(0F6H) RRCA JR NC,L3455 ; (-005H) LD A,001H OUT (0F6H),A IN A,(0F6H) AND 040H JR NZ,L348C ; (+028H) OR A RET L3466: PUSH AF L3467: IN A,(0F6H) AND 004H JR Z,L3467 ; (-006H) POP AF OUT (SIOAD),A L3470: LD A,010H OUT (0F6H),A IN A,(0F6H) AND 008H JP Z,03492H RET L347C: CALL L3470 IN A,(0F6H) RLCA JR C,L348C ; (+008H) RRCA RRCA JR NC,L347C ; (-00cH) IN A,(SIOAD) OR A RET L348C: LD A,029H LD HL,L2E3E LD HL,0323EH LD HL,0353EH LD HL,L363E LD SP,(03094H) SCF RET L34A0: PUSH AF L34A1: LD A,096H L34A3: DEC A JR NZ,L34A3 ; (-003H) DEC BC LD A,B OR C JR NZ,L34A1 ; (-00aH) POP AF RET L34AD: DB 058H DB 004H DB 010H DB 005H DB 004H DB 003H DB LSD0 DB 006H DB 016H DB 007H DB 016H L34B8: DB 098H DB 004H DB 010H DB 006H DB 016H DB 007H DB 016H DB 005H DB 06DH L34C1: LD A,0E8H OUT (LSD0),A NOP IN A,(LSD1) AND 081H RET NZ CALL L3263 JP BREAKX DS 2, 000H L34D3: DS 2, 000H L34D5: DS 2, 000H L34D7: DS 2, 000H L34D9: DB 000H L34DA: DB 000H L34DB: DB 000H L34DC: DB 000H L34DD: DB 000H L34DE: CALL PUSHR LD HL,L351D OR A JR Z,L34EA ; (+003H) LD HL,L3611 L34EA: LD (03506H),HL RST 018H DB 028H CALL L310B PUSH HL LD (03094H),SP POP HL XOR A CALL L32C5 JR C,L351A ; (+01cH) LD A,005H LD (L3092),A L3503: RST 018H DB 010H CALL L0000 CALL L3371 RST 018H DB 011H RET NC CP 029H JR NZ,L351A ; (+008H) LD HL,L3092 DEC (HL) JR NZ,L3503 ; (-015H) LD A,029H L351A: JP ERRORJ L351D: LD (03094H),SP LD HL,L0000 CALL L40B5 DEC DE DEC DE LD (034D1H),DE LD HL,00002H CALL L40B5 LD HL,00010H OR A SBC HL,DE JP NZ,L3752 LD (034D5H),DE INC DE INC DE LD (034D7H),DE LD HL,L34D3 LD (HL),000H INC HL LD (HL),000H CALL L3324 L3551: LD HL,L3090 DEC (HL) JP Z,L35F7 CALL L3386 LD (L34DB),A CALL L347C LD (L34DC),A CALL L347C LD (L34DD),A LD HL,(L34DC) LD DE,(034D7H) ADD HL,DE JR C,L3578 ; (+004H) LD BC,00002H ADD HL,BC L3578: JP C,L360A LD BC,(034D1H) SBC HL,BC JR Z,L3586 ; (+003H) JP NC,L360A L3586: LD HL,L34DB LD BC,L0003 CALL L40D0 EX DE,HL LD DE,(034DCH) LD A,D OR E JP Z,L348C L3599: IN A,(0F6H) RLCA JR C,L360F ; (+071H) RRCA RRCA JR NC,L3599 ; (-009H) IN A,(SIOAD) LD C,0EBH LD B,H OUT (C),L DEC C OUT (C),A INC HL DEC DE LD A,D OR E JR NZ,L3599 ; (-019H) CALL L344E LD (L34D7),HL LD HL,(L34D3) LD DE,(034DCH) ADD HL,DE INC HL INC HL INC HL LD (L34D3),HL LD A,(L34DB) BIT 2,A JR NZ,L35D6 ; (+009H) L35CD: CALL BRKCHK JP NZ,L3551 JP BREAKZ L35D6: LD DE,(034D5H) ADD HL,DE INC HL INC HL LD (L34D5),HL PUSH HL EX DE,HL LD DE,(034D3H) CALL L40AA LD HL,L0000 LD (L34D3),HL POP HL INC HL INC HL LD (L34D7),HL JR L35CD ; (-02aH) L35F7: LD HL,(L34D5) LD DE,00002H EX DE,HL CALL L40AA EX DE,HL NOP LD DE,L0000 CALL L40AA RET L360A: CALL L35F7 LD A,035H L360F: SCF RET L3611: LD (03094H),SP XOR A LD (L34DA),A LD (L34D9),A LD (L308C),A LD HL,00010H CALL L40B5 LD A,D OR E RET Z CALL L3324 LD A,(L3090) DEC A JP NZ,L3752 LD HL,00010H L3635: CALL L40B5 LD (034D3H),DE LD A,D OR E L363E: JR Z,L36BA ; (+07aH) INC HL INC HL L3642: PUSH HL CALL L33EF POP HL CALL L409F CALL L3466 INC HL CALL L40B5 LD (034DCH),DE LD A,E CALL L3466 LD A,D CALL L3466 INC HL INC HL L365F: LD C,0EBH LD B,H OUT (C),L DEC C IN B,(C) L3667: IN A,(0F6H) AND 004H JR Z,L3667 ; (-006H) LD A,B OUT (SIOAD),A INC HL DEC DE LD A,D OR E JR NZ,L365F ; (-017H) LD BC,00001H CALL L34A0 LD A,010H OUT (SIOBC),A IN A,(SIOBC) AND 008H JR NZ,L368E ; (+008H) LD A,035H LD (L34D9),A JP L36BA L368E: PUSH HL LD HL,L308C INC (HL) CALL BRKCHK JP Z,BREAKZ LD HL,(L34D3) LD DE,(034DCH) LD BC,L0003 XOR A SBC HL,DE SBC HL,BC JR Z,L36B0 ; (+006H) LD (L34D3),HL POP HL JR L3642 ; (-06eH) L36B0: POP HL LD A,(L308C) LD (L34DA),A JP L3635 L36BA: LD A,(L34DA) LD (L308C),A CALL L3371 CALL L3324 LD HL,00010H L36C9: CALL L40B5 LD (034D3H),DE INC HL INC HL L36D2: LD A,(L34DA) DEC A JP Z,L373E LD (L34DA),A PUSH HL CALL L3386 POP HL LD D,A CALL L409F CP D JR NZ,L3756 ; (+06eH) INC HL CALL L40B5 LD (034DCH),DE CALL L347C CP E JR NZ,L3756 ; (+060H) CALL L347C CP D JR NZ,L3756 ; (+05aH) INC HL INC HL L36FE: IN A,(0F6H) RLCA JR C,L3756 ; (+053H) RRCA RRCA JR NC,L36FE ; (-009H) IN A,(SIOAD) LD C,0EBH LD B,H OUT (C),L DEC C IN B,(C) CP B JR NZ,L3756 ; (+042H) INC HL DEC DE LD A,D OR E JR NZ,L36FE ; (-01cH) CALL L344E PUSH HL CALL BRKCHK JP Z,BREAKZ LD HL,(L34D3) LD DE,(034DCH) LD BC,L0003 XOR A SBC HL,DE SBC HL,BC JR Z,L373B ; (+006H) LD (L34D3),HL POP HL JR L36D2 ; (-069H) L373B: POP HL JR L36C9 ; (-075H) L373E: CALL L3371 LD A,(L308C) CALL L32F1 XOR A LD (L308C),A LD A,(L34D9) OR A RET Z SCF RET L3752: LD A,036H SCF RET L3756: LD A,029H SCF RET $RFS: DB "dRS" ; $RS - RS-232C device descriptor DS 2, 000H DB 08FH,001H,000H,07DH,03CH,0AEH,03CH,0AEH,03CH,0BFH,03CH,0BFH,03CH DB LSD0 DB 03CH DB 0FBH DB 03CH DB 0B2H DB 000H RET C PUSH IY CALL L3D25 CALL L3C8B CALL L3D6E JR L3CE3 ; (+058H) L3C8B: RST 018H DB 013H LD (IY-003H),E CALL TEST1 DB 02CH JP NZ,L1F7F RST 018H DB 013H LD (IY-002H),E CALL TEST1 DB 000H RET Z CALL TEST1 DB 02CH JP NZ,L1F7F RST 018H DB 013H LD (IY-008H),E RET PUSH IY CALL L3D25 LD A,(IY-001H) INC (IY-001H) OR A CALL Z,L3DD0 JR L3CE3 ; (+024H) PUSH IY CALL L3D25 DEC (IY-001H) LD A,(IY-001H) OR A CALL Z,L3DB8 JR L3CE2 ; (+012H) PUSH IY CALL L3D25 CALL L3CE6 JP C,IOERR CP (IY-008H) JR NZ,L3CE2 ; (+002H) LD A,00DH L3CE2: OR A L3CE3: POP IY RET L3CE6: BIT 6,(IY-002H) JP Z,L3E1F LD IX,L3E1F PUSH IY POP HL LD DE,0FFFBH ADD HL,DE JP L146C PUSH IY CALL L3D25 CP 00DH JR NZ,L3D07 ; (+003H) LD A,(IY-008H) L3D07: CALL L3D0C JR L3CE3 ; (-029H) L3D0C: BIT 6,(IY-002H) JP Z,L3E64 LD IX,L3E64 PUSH IY POP HL LD DE,0FFF9H ADD HL,DE LD DE,(DISPX) JP L142B L3D25: PUSH AF PUSH DE LD A,(L1046) INC A LD IY,03D30H LD DE,L0015 L3D32: ADD IY,DE DEC A JR NZ,L3D32 ; (-005H) LD C,(IY+000H) POP DE POP AF RET DS 8, 000H DB 0B1H DB 0B0H DB 000H DS 2, 010H DB 004H,040H,003H,0C0H,005H,060H,030H,003H DS 8, 000H DB 0B3H DB 0B2H DB 000H DS 2, 010H DB 004H,040H,003H,0C0H,005H,060H,030H,003H L3D67: CALL BRKCHK RET NZ JP BREAKZ L3D6E: LD A,018H OUT (C),A LD A,030H OUT (C),A LD A,(IY-002H) AND 00CH JR NZ,L3D81 ; (+004H) SET 2,(IY-002H) L3D81: LD A,(IY-002H) LD B,A AND 00FH OR 040H LD (IY+006H),A LD A,B AND 080H OR 040H LD (IY+008H),A RRA AND 07FH OR 00AH LD (IY+00AH),A LD A,B OR 07FH LD (IY+002H),A CALL L3DC4 L3DA5: IN A,(C) RRCA RET NC DEC C IN A,(C) INC C LD A,001H OUT (C),A IN A,(C) AND 070H JR Z,L3DA5 ; (-012H) RET L3DB8: RES 0,(IY+008H) RES 7,(IY+00AH) LD (IY-001H),000H L3DC4: LD B,00AH PUSH IY POP HL LD DE,L0003 ADD HL,DE OTIR RET L3DD0: LD A,030H OUT (C),A RET L3DD5: SET 0,(IY+008H) LD A,013H OUT (C),A LD A,(IY+008H) OUT (C),A LD A,035H OUT (C),A LD A,(IY+00AH) OR 088H LD (IY+00AH),A OUT (C),A RET LD A,003H OUT (C),A RES 0,(IY+008H) LD A,(IY+008H) OUT (C),A L3DFE: RES 7,(IY+00AH) JR L3E14 ; (+010H) L3E04: SET 1,(IY+00AH) JR L3E14 ; (+00aH) L3E0A: RES 1,(IY+00AH) JR L3E14 ; (+004H) SET 7,(IY+00AH) L3E14: LD A,005H OUT (C),A LD A,(IY+00AH) OUT (C),A OR A RET L3E1F: CALL PUSHR LD C,(IY+000H) L3E25: CALL L3D67 CALL L3E9D JR C,L3E25 ; (-008H) CALL L3DD5 L3E30: CALL L3D67 IN A,(C) RRCA JR NC,L3E30 ; (-008H) DEC C IN A,(C) INC C AND (IY+002H) PUSH AF LD A,001H OUT (C),A IN A,(C) AND 070H JR NZ,L3E4F ; (+005H) CALL L3DFE POP AF RET L3E4F: LD B,A POP AF PUSH BC CALL L3D6E POP BC LD A,01DH RLC B RLC B RET C INC A RLC B RET C INC A SCF RET L3E64: CALL PUSHR LD C,(IY+000H) LD D,A CALL L3E04 L3E6E: CALL L3D67 CALL L3EA4 CALL NC,L3EB5 JR C,L3E6E ; (-00bH) IN A,(C) BIT 2,A JR Z,L3E6E ; (-011H) BIT 7,(IY-003H) JR Z,L3E8E ; (+009H) LD A,001H OUT (C),A IN A,(C) RRCA JR NC,L3E6E ; (-020H) L3E8E: DEC C OUT (C),D INC C BIT 6,(IY-003H) JR Z,L3E9B ; (+003H) CALL L3E0A L3E9B: OR A RET L3E9D: OR A BIT 0,(IY-003H) JR L3EA9 ; (+005H) L3EA4: OR A BIT 1,(IY-003H) L3EA9: RET Z LD A,010H OUT (C),A IN A,(C) AND 008H RET NZ SCF RET L3EB5: OR A BIT 2,(IY-003H) RET Z LD A,010H OUT (C),A IN A,(C) AND 020H RET NZ SCF RET $RAM: DB 09EH,";RAM",000H,05FH ; $RAM - EMM device descriptor DS 2, 020H DB 014H,03FH,0A9H,03FH,0EAH,03FH,09BH,03FH,000H,004H,0D5H,03FH,011H,"@V@",083H,040H DB LSE3 DB 03EH CALL L3EEF LD C,H LD B,000H SRL C SRL C OR A RET L3EEF: PUSH DE LD HL,L0000 CALL L40B5 PUSH DE INC HL INC HL CALL L40B5 POP HL SBC HL,DE JP C,01F8BH POP DE RET L3F04: LD DE,00010H L3F07: LD HL,00002H CALL L40AA EX DE,HL LD DE,L0000 JP L40AA RET C LD A,(L13C3) OR A JP Z,01F97H CALL L1E8F CALL TEST1 DB 02CH PUSH HL CALL L3F04 POP HL CALL TEST1 DB 000H RET Z RST 018H DB 013H L3F2F: LD HL,L0000 DI LD B,001H LD A,D AND LSFC CP LSFC LD HL,0FFFFH JR Z,L3F48 ; (+009H) LD B,003H LD A,D OR A LD HL,00020H JR NZ,L3F49 ; (+001H) L3F48: EX DE,HL L3F49: LD A,B LD (L13C3),A LD HL,L0000 CALL L40AA CALL L14F4 EI RET L3F58: LD HL,00008H LD B,L LD C,000H L3F5E: CALL L409F SUB L OR C LD C,A LD A,L CALL L4094 INC L DJNZ L3F5E ; (-00dH) LD A,C OR A JR NZ,L3F81 ; (+012H) LD HL,L0000 CALL L40B5 LD A,002H INC D JR Z,L3F7B ; (+001H) INC A L3F7B: LD (L13C3),A JP L14F4 L3F81: CALL L3F04 LD HL,L0000 LD A,05AH CALL L4094 CALL L409F SUB 05AH LD DE,0C000H JR Z,L3F2F ; (-067H) XOR A LD (L13C3),A RET LD A,(L13C3) OR A JP Z,01F97H LD HL,00010H LD (L13C4),HL RET LD B,H LD C,L LD HL,(L13C4) CALL L40B5 LD A,D OR E SCF RET Z INC HL INC HL PUSH HL ADD HL,DE JP C,01F8BH LD (L13C4),HL POP HL INC HL INC HL INC HL LD D,B LD E,C LD BC,BRKCHK CALL L40DE LD BC,00022H ADD HL,BC EX DE,HL LD (HL),E INC HL LD (HL),D OR A RET EX DE,HL LD L,(IY+01EH) LD H,(IY+01FH) INC HL INC HL INC HL CALL L40DE LD (IY+01EH),L LD (IY+01FH),H OR A RET PUSH AF CALL L1C3D PUSH HL LD HL,00002H CALL L40B5 LD (013C6H),DE PUSH DE LD HL,L0047 ADD HL,DE CALL L4045 POP DE INC DE INC DE POP HL LD BC,00040H POP AF CALL L40C0 LD (013C8H),DE RET PUSH AF PUSH HL PUSH BC LD HL,(013C8H) INC BC INC BC INC BC ADD HL,BC CALL L4045 POP BC POP HL LD DE,(013C8H) POP AF PUSH AF OR 001H CALL L40C0 LD (013C8H),DE POP AF BIT 2,A RET Z PUSH DE CALL L3F07 POP HL LD DE,(013C6H) DEC HL DEC HL L403E: OR A SBC HL,DE EX DE,HL JP L40AA L4045: JR C,L4053 ; (+00cH) PUSH HL LD HL,L0000 CALL L40B5 OR A POP HL SBC HL,DE RET C L4053: JP 01FA0H LD HL,(ELMD30) LD DE,0FFBBH ADD HL,DE CALL L40B5 EX DE,HL ADD HL,DE INC HL INC HL PUSH DE PUSH HL LD HL,00002H CALL L40B5 EX DE,HL POP DE PUSH DE OR A SBC HL,DE INC HL INC HL LD B,H LD C,L POP HL POP DE CALL L40EA DEC DE DEC DE LD HL,00002H JP L40AA LD HL,(ELMD30) LD DE,0FFC0H ADD HL,DE EX DE,HL LD HL,L1000 LD BC,00020H JP L40D0 L4094: PUSH BC LD C,0EBH LD B,H OUT (C),L OUT (0EAH),A POP BC OR A RET L409F: PUSH BC LD C,0EBH LD B,H OUT (C),L IN A,(0EAH) POP BC OR A RET L40AA: LD A,E CALL L4094 INC HL LD A,D CALL L4094 DEC HL RET L40B5: CALL L409F LD E,A INC HL CALL L409F LD D,A DEC HL RET L40C0: EX DE,HL CALL L4094 INC HL LD A,C CALL L4094 INC HL LD A,B CALL L4094 INC HL EX DE,HL L40D0: EX DE,HL L40D1: LD A,(DE) CALL L4094 INC HL INC DE DEC BC LD A,B OR C JR NZ,L40D1 ; (-00bH) EX DE,HL RET L40DE: CALL L409F LD (DE),A INC HL INC DE DEC BC LD A,B OR C RET Z JR L40DE ; (-00cH) L40EA: CALL L409F EX DE,HL CALL L4094 EX DE,HL INC HL INC DE DEC BC LD A,B OR C RET Z JR L40EA ; (-010H) L40FA: DB 000H ; PSG data tables (INTM, STBL, PTBL, LTBL, ETBL, NTBL) L40FB: DS 2, 000H L40FD: DB 080H DB 000H L40FF: DB 09FH DB 0A0H DB 000H DB 0BFH DB 0C0H DB 000H L4105: DB 0DFH L4106: DS 16, 000H DB 001H DS 15, 000H DB 002H DS 15, 000H DB 003H DS 15, 000H L4146: DB 001H DB 002H DB 003H DB 004H DB 006H DB 008H DB 00CH DB 010H DB 018H DB 020H DB 017H DB 014H DB 011H DB 00DH DB 00AH DB 007H DB 003H L4157: DB 000H DB 005H DS 2, 003H DB 00FH DB 004H DB 001H DB 003H DB 000H DB 005H DB 002H DB 000H DB 00FH DB 004H DB 001H DS 2, 000H DB 005H DB 002H DB 003H DB 00FH DB 004H DS 2, 003H DB 000H DB 005H DB 004H DB 000H DB 00FH DB 004H DB 005H DS 2, 000H DS 2, 003H DB 000H L417B: DB 000H,03FH,007H,03BH,002H,038H,00FH,034H,000H,032H,003H,02FH,009H,02CH,001H,02AH,00BH,027H,007H,025H,006H,023H,006H,021H L4193: DB 008H DB 01FH DB 00CH DB 01DH DB 001H DB 01CH DB 008H DB 01AH DB 000H DB 019H DB 009H DB 017H DB 004H DB 016H DB 000H DB 015H DB 00DH DB 013H DB 00CH DB 012H DB 00BH DB 011H DB 00BH DB 010H DB 00CH DB 00FH DS 2, 00EH DB 000H DB 00EH DB 004H DB 00DH DB 008H DB 00CH DB 00DH DB 00BH DB 002H DB 00BH DB 008H DB 00AH DB 00FH DB 009H DB 006H DB 009H DB 00DH DB 008H DB 005H DB 008H DB 00EH DS 3, 007H DB 000H DB 007H DB 00AH DB 006H DB 004H DB 006H DB 00EH DB 005H DB 009H DB 005H DB 004H DB 005H DB 00FH DB 004H DB 00BH DB 004H DB 007H DB 004H DB 003H DB 004H DB 00FH DB 003H DB 00BH DB 003H DB 008H DB 003H DB 005H DB 003H DB 002H DB 003H DB 00FH DB 002H DB 00DH DB 002H DB 00AH DB 002H DB 008H DB 002H DB 005H DB 002H DB 003H DB 002H DB 001H DB 002H DB 00FH DB 001H DB 00EH DB 001H DB 00CH DB 001H DB 00AH DB 001H DB 009H DB 001H DB 008H DB 001H DB 006H DB 001H DB 005H DB 001H DB 004H DB 001H DB 003H DB 001H DB 002H DS 3, 001H DB 000H DB 001H DB 00FH DB 000H DB 00EH DB 000H L4211: DB 09FH DB 0BFH DB 0DFH DB 0FFH L4215: DB 080H DB 000H DB 090H L4218: DS 2, 000H PUSH IY CALL L4224 POP IY EI RETI L4224: CALL PUSHRA CALL L44CC LD A,(L40FA) OR A JP Z,L447E DEC A JP NZ,L43B9 LD BC,L09F2 LD HL,L40FD OTIR LD B,008H LD A,(L40FB) OR A JP Z,L447E LD C,A L4247: DEC B RET M RLC C JR NC,L4247 ; (-006H) PUSH BC LD A,B CALL L43FC BIT 0,(IY+00DH) CALL Z,L425F CALL L42AC POP BC JR L4247 ; (-018H) L425F: DEC (HL) RET NZ INC HL LD A,(HL) DEC HL LD (HL),A INC HL INC HL LD E,(HL) INC HL LD D,(HL) EX DE,HL L426B: LD A,(HL) OR A JR NZ,L4273 ; (+004H) DEC HL DEC HL JR L426B ; (-008H) L4273: EX DE,HL INC HL DEC A JR Z,L4288 ; (+010H) DEC A JR Z,L4296 ; (+01bH) DEC A RET Z DEC A LD A,(HL) JR Z,L428C ; (+00bH) INC A CP 00FH JR Z,L429A ; (+014H) JR C,L429A ; (+012H) L4288: LD A,00FH JR L4299 ; (+00dH) L428C: DEC A JP M,L4296 LD C,(IY+00EH) CP C JR NC,L429A ; (+004H) L4296: LD A,(IY+00EH) L4299: INC DE L429A: LD (HL),A DEC HL LD (HL),D DEC HL LD (HL),E L429F: AND 00FH LD B,A LD A,(IX+002H) AND LSPAL OR B LD (IX+002H),A RET L42AC: DEC (IY+006H) RET NZ DEC (IY+007H) LD A,(IY+008H) LD (IY+006H),A RET NZ LD A,(IY+009H) LD (IY+007H),A LD E,(IY+00AH) LD D,(IY+00BH) L42C6: LD A,(DE) INC DE CP 0FFH JR Z,L4331 ; (+065H) CP 0A0H JR Z,L432A ; (+05aH) CP 090H JR NC,L4339 ; (+065H) CP 080H JR NC,L4340 ; (+068H) CP 060H JR NC,L434A ; (+06eH) SUB 009H LD (IY+00AH),E LD (IY+00BH),D SET 0,(IY+00DH) JR C,L42F1 ; (+007H) RES 0,(IY+00DH) CALL L4362 L42F1: LD A,(IY+002H) LD (IY+001H),A LD A,(IY+008H) LD (IY+006H),A LD A,(IY+009H) LD (IY+007H),A BIT 0,(IY+00DH) JR NZ,L4334 ; (+02bH) LD A,(IY+00CH) LD BC,L4157 ADD A,A ADD A,A LD H,000H LD L,A ADD HL,BC LD A,(HL) OR A JR NZ,L431C ; (+003H) LD A,(IY+00EH) L431C: LD (IY+005H),A CALL L429F INC HL LD (IY+003H),L LD (IY+004H),H RET L432A: LD A,(DE) INC DE LD (IY+002H),A L432F: JR L42C6 ; (-06bH) L4331: CALL L4464 L4334: LD A,00FH JP L429F L4339: SUB 090H LD (IY+00CH),A JR L432F ; (-011H) L4340: SUB 080H CPL AND 00FH LD (IY+00EH),A JR L432F ; (-01bH) L434A: SUB 060H LD B,000H LD C,A LD HL,L4146 ADD HL,BC CP 00AH LD A,(HL) JR NC,L435D ; (+005H) LD (IY+008H),A JR L432F ; (-02eH) L435D: LD (IY+009H),A JR L432F ; (-033H) L4362: ADD A,A LD HL,L417B LD B,000H LD C,A ADD HL,BC LD B,(HL) LD A,(IX+000H) AND LSPAL OR B LD (IX+000H),A INC HL LD A,(HL) LD (IX+001H),A RET L437A: OR A JP P,L43C6 AND 00FH LD C,PSGA ADD A,A ADD A,A ADD A,A ADD A,A OR 080H LD B,A BIT 4,A JR NZ,L43AB ; (+01eH) CP LSE0 JR Z,L43A7 ; (+016H) LD A,D CP 004H JR NC,L43B6 ; (+020H) LD A,E AND 00FH OR B OUT (C),A LD A,D LD B,004H L439F: RL E RLA DJNZ L439F ; (-005H) OUT (C),A RET L43A7: BIT 3,E JR NZ,L43B6 ; (+00bH) L43AB: LD A,E AND LSPAL OR D JR NZ,L43B6 ; (+005H) LD A,E OR B OUT (C),A RET L43B6: JP L1F7F L43B9: LD HL,(L4218) DEC HL LD (L4218),HL LD A,L OR H RET NZ JP L447E L43C6: LD C,A LD A,D OR E RET Z LD A,C LD IX,L4215 CP 054H RET NC SUB 009H PUSH AF LD A,090H JR NC,L43DB ; (+002H) LD A,09FH L43DB: LD (IX+002H),A CALL L44A3 POP AF CALL NC,L4362 DI LD A,002H LD (L40FA),A LD (04218H),DE LD HL,L4215 LD BC,L03F2 OTIR CALL L44CC EI RET L43FC: PUSH BC PUSH AF CP 003H JR C,L4403 ; (+001H) DEC A L4403: LD HL,L40FD LD B,A ADD A,A ADD A,B LD C,A LD B,000H ADD HL,BC PUSH HL POP IX POP AF ADD A,A ADD A,A ADD A,A ADD A,A LD HL,L4106 LD B,000H LD C,A ADD HL,BC PUSH HL POP IY INC HL POP BC RET L4422: CP 0FFH JR NZ,L4435 ; (+00fH) LD A,003H L4428: PUSH AF PUSH DE CALL L4435 POP DE POP AF DEC A JP M,L445A JR L4428 ; (-00dH) L4435: PUSH AF LD HL,L4105 CP 003H JR Z,04441H ; (+004H) LD A,0DFH DB 018H LD B,03EH RST 020H OUT (PSGA),A LD A,0FFH LD (HL),A DI LD A,001H LD (L40FA),A POP AF CALL L43FC CALL L4468 CALL L42C6 EI RET L445A: DI LD A,(L40FA) OR A CALL NZ,L44CC EI RET L4464: LD B,086H JR L446A ; (+002H) L4468: LD B,0C6H L446A: LD HL,L40FB LD A,(IY+000H) OR A RLCA RLCA RLCA OR B LD (04479H),A RLC B RET L447B: CALL PUSHR L447E: XOR A LD (L40FA),A LD (L40FB),A LD BC,L04F2 LD HL,L4211 OTIR LD B,003H LD HL,L40FF L4492: LD A,(HL) AND LSPAL OR 00FH LD (HL),A INC HL INC HL INC HL DJNZ L4492 ; (-00bH) LD A,003H OUT (LSFC),A XOR A RET L44A3: LD A,(L40FA) OR A RET Z RST 018H DB 00EH JR NZ,L44A3 ; (-009H) JP BREAKZ L44AF: DEC B JP Z,L445A DEC B JR Z,L447B ; (-03bH) DEC B JR Z,L44A3 ; (-016H) CALL L447B LD BC,L05FC LD HL,L44DC OTIR LD DE,044EDH LD A,0FFH JP L4422 L44CC: LD HL,L44DC LD BC,L05FC OTIR LD HL,L44E1 LD B,006H JP IOOUT L44DC: DB LSFC DB 0FFH DB 03FH DB 017H DB 0EFH L44E1: DB 030H DB 0D7H DB 0B0H DB 0D4H DB 02AH DB 0D4H INC B OUT (000H),A OUT (083H),A CALL M,L6D65 DB 098H DB 0A0H DS 2, 0FFH L44F3: CALL PUSHR RST 018H DB 010H LD HL,L4514 LD B,004H CALL IOOUT LD BC,SVC_ENTRY L4503: EX (SP),HL DJNZ L4503 ; (-003H) DEC C JR NZ,L4503 ; (-006H) LD HL,L451C LD B,002H CALL IOOUT RST 018H DB 011H RET L4514: LD (HL),0D7H LD BC,0F9D3H CALL NC,0D403H L451C: LD (HL),0D7H NOP OUT (LSRF),A CP D NOP LD DE,L4538 AND 00FH ADD A,069H LD (DE),A LD B,003H RST 018H DB 023H LD A,0FFH RST 018H DB 021H LD B,001H RST 018H DB 023H RET L4538: DB 000H DB 0FFH L453A: CALL TEST1 DB 04DH JR Z,L4561 ; (+021H) OR A JR Z,L458E ; (+04bH) CP 042H JP NZ,L1F7F XOR A LD (L137E),A LD A,(L137A) CP 002H JP NZ,01FBBH INC HL LD B,004H CALL DEVASC LD (L137E),A RST 018H DB 051H JR L4581 ; (+020H) L4561: LD B,005H CALL DEVASC OR A JR Z,L458B ; (+022H) LD B,A RST 018H DB 050H JP C,01FBBH LD A,B LD (L137A),A XOR A LD (L108F),A SCF L4578: ADC A,A DJNZ L4578 ; (-003H) LD (L1379),A CALL L4593 L4581: CALL TEST1 DB 000H RET Z CP 02CH INC HL JR Z,L453A ; (-051H) L458B: JP L1F7F L458E: LD A,(L137A) RST 018H DB 050H L4593: CALL L459D XOR A LD (L137E),A RST 018H DB 051H RET L459D: LD A,(L1379) LD B,003H RRA JR C,L45B1 ; (+00cH) LD B,00FH RRA JR C,L45B1 ; (+007H) LD B,001H RRA JR C,L45B1 ; (+002H) LD B,003H L45B1: LD A,B LD (L137B),A RST 018H DB 054H RET L45B8: DB 0FFH DB 0FEH DB LSFC DB 0F8H DB LSPAL DB LSE0 DB 0C0H DB 080H L45C0: DB 001H DB 003H DB 007H DB 00FH DB 01FH DB 03FH DB 07FH DB 0FFH L45C8: DB 001H DB 002H DB 004H DB 008H DB 010H DB 020H DB 040H DB 080H L45D0: LD BC,L0703 LD HL,L45D9 JP PATCH L45D9: DB 0C8H,04EH,080H,0BEH,040H,09FH,0C5H,046H,080H,0FDH,0C0H,0FEH,030H,054H,080H,002H,040H,001H,0C1H,04CH,050H,000H,028H,000H,0D4H,04CH,050H,000H,028H,000H DB LSFC DB 04CH,080H,0FDH,0C0H,0FEH,003H,04DH,07FH,002H,03FH,001H,00FH,046H,029H,000H,"$NP(",0BEH,"NP(" L460F: DB 029H,07BH,0E6H,007H,047H,07BH,0E6H,0F8H,082H DS 3, 00FH DB 04FH,078H,006H,080H,054H,05DH DS 2, 029H DB 019H DS 3, 029H DB 009H DB 0C9H L4629: CALL L46B2 JP C,L479B CALL L460F RLCA RLCA RLCA OR 046H LD (0464CH),A LD C,LSRF LD A,(0109DH) LD B,A DI IN A,(LSE0) XOR A L4644: RR B JR C,L4653 ; (+00bH) OUT (C),B OR A BIT 0,(HL) JR Z,L4650 ; (+001H) SCF L4650: RLA JR L4644 ; (-00fH) L4653: LD B,A IN A,(LSE1) EI LD A,(0109CH) AND B LD B,A LD A,(L1098) CP 006H LD A,B RET NZ CP 004H RET C SUB 002H RET L4669: LD A,0FFH L466B: PUSH BC OR A LD A,(L109F) LD C,A LD A,(L109A) JR Z,L4682 ; (+00cH) OR A LD A,0C0H JR Z,L467D ; (+002H) LD A,040H L467D: OR C OUT (LSWF),A POP BC RET L4682: OR A LD A,060H JR NZ,L467D ; (-00aH) LD A,(0109CH) LD B,A LD A,C CPL AND B OR 0C0H OUT (LSWF),A POP BC RET L4694: CALL L466B L4697: CALL L46B2 JP C,L479B CALL L460F EX DE,HL LD HL,L45C8 LD B,000H LD C,A ADD HL,BC DI IN A,(LSE0) LDI IN A,(LSE1) EI XOR A RET L46B2: PUSH BC PUSH DE PUSH HL LD A,H RLCA JR C,L46C8 ; (+00fH) LD BC,0FF38H ADD HL,BC JR C,L46C8 ; (+009H) LD A,D RLCA JR C,L46C8 ; (+005H) EX DE,HL LD BC,0FD80H ADD HL,BC L46C8: POP HL POP DE POP BC RET L46CC: LD A,0FFH L46CE: CALL L466B PUSH DE PUSH HL EXX LD (KEYBUF),DE LD (L11A9),HL EXX PUSH HL PUSH DE EX DE,HL LD HL,(L11A9) CALL L478B LD (L11AD),A LD (L11AB),HL POP DE JP NC,L4778 PUSH HL LD HL,(L11A4) CALL L478B LD (L11A8),A LD (L11A6),HL POP BC POP DE JP NC,L4784 XOR A SBC HL,BC JR NC,L4719 ; (+013H) LD HL,L11A4 LD DE,L11A9 LD B,005H L470E: LD A,(DE) LD C,(HL) LD (HL),A LD A,C LD (DE),A INC HL INC DE DJNZ L470E ; (-009H) LD A,0EBH L4719: LD (L4753),A LD (L475D),A LD A,(L11AD) AND A LD A,023H JR Z,L4729 ; (+002H) LD A,02BH L4729: LD (L476F),A LD A,(L11A8) AND A LD A,013H JR Z,L4736 ; (+002H) LD A,01BH L4736: LD (L4763),A EXX LD HL,(L11A6) LD D,H LD E,L SRL H RR L LD BC,(011ABH) EXX LD HL,(L11A9) LD DE,(KEYBUF) LD BC,(011A6H) L4753: EX DE,HL PUSH HL PUSH DE PUSH BC CALL L4697 POP BC POP DE POP HL L475D: EX DE,HL DEC BC LD A,B INC A JR Z,L4773 ; (+010H) L4763: NOP EXX OR A SBC HL,BC EXX JP NC,L4753 EXX ADD HL,DE EXX L476F: NOP JP L4753 L4773: EXX POP HL POP DE EXX RET L4778: POP HL L4779: CALL L4C16 CALL L4C16 CALL L4C47 JR L4773 ; (-011H) L4784: EX DE,HL LD DE,(KEYBUF) JR L4779 ; (-012H) L478B: LD A,H ADD A,040H LD H,A LD A,D ADD A,040H LD D,A OR A SBC HL,DE JR C,L479F ; (+007H) LD A,H OR L RET Z L479B: LD A,0FFH SCF RET L479F: OR A EX DE,HL LD HL,L0000 SBC HL,DE XOR A SCF RET L47A9: CALL L47BA LD HL,(L1088) PUSH HL PUSH BC EXX CALL L47BA LD B,002H JP L4C08 L47BA: POP IX EX DE,HL CP 002H CALL Z,L47D6 LD BC,(POINTX) ADD HL,BC PUSH HL EX DE,HL CP 001H CALL Z,L47D6 LD BC,(POINTY) ADD HL,BC PUSH HL JP (IX) L47D6: BIT 7,H JP Z,L4BA7 CALL L47E1 CALL L4BA7 L47E1: EX AF,AF' CALL L4B80 EX AF,AF' RET L47E7: PUSH AF CALL L4669 POP AF PUSH AF LD (04874H),IX LD (011C7H),DE LD (L11C9),HL EXX LD (011D3H),BC LD (011C3H),DE LD (L11C5),HL LD A,C CALL C,L47A9 LD HL,(011C3H) LD DE,(011C5H) CALL L4B44 LD (L11AE),A LD HL,(011C7H) LD DE,(011C9H) CALL L4B44 LD (L11AF),A LD HL,L11BA LD B,008H CALL ?CLRHL LD HL,L11AE POP AF LD B,A AND 00FH JR Z,L4858 ; (+025H) CP 003H JR Z,L4843 ; (+00cH) LD A,(HL) INC HL CP (HL) JR NZ,L4858 ; (+01cH) LD A,B CP 081H JR Z,L4858 ; (+017H) JR L4848 ; (+005H) L4843: LD A,009H LD (HL),A INC HL LD (HL),A L4848: LD B,008H LD HL,L11BA INC A CALL ?SETHL LD A,0B0H CALL L4BD0 JR L4873 ; (+01bH) L4858: LD A,0A0H CALL L4BD0 LD D,000H LD HL,(L11AE) LD B,H LD A,L L4864: LD HL,L11B9 LD E,A ADD HL,DE LD (HL),001H CP B JR Z,L4873 ; (+005H) AND 007H INC A JR L4864 ; (-00fH) L4873: LD HL,L0000 LD (L11A6),HL LD (L11A8),HL LD HL,00001H LD (L11A4),HL LD (L11AA),HL L4885: LD HL,(L11A6) LD DE,(KEYBUF) XOR A SBC HL,DE LD (L11A6),HL LD HL,(L11AA) DEC HL LD (L11AC),HL LD A,(011D3H) OR A LD D,H LD E,L CALL NZ,L4BA7 CP 001H JR Z,L48A7 ; (+001H) EX DE,HL L48A7: LD (011D1H),DE LD (L11CD),HL LD HL,(L11A8) OR A LD D,H LD E,L CALL NZ,L4BA7 CP 001H JR Z,L48BC ; (+001H) EX DE,HL L48BC: LD (011CFH),DE LD (L11CB),HL LD HL,(011CFH) CALL L4B80 LD (L11B2),HL LD HL,(011D1H) CALL L4B80 LD (L11B0),HL LD HL,(L11CD) CALL L4B80 LD (L11B4),HL LD HL,(L11CB) CALL L4B80 LD (L11B6),HL LD HL,(L11AC) CALL L4B80 LD (L11B8),HL LD HL,L11BA LD A,(HL) OR A INC HL JR Z,L4938 ; (+040H) EXX LD HL,(011CFH) LD (04B95H),HL LD B,000H LD DE,(011B8H) BIT 7,D JR Z,L491B ; (+012H) LD A,(L11AE) CP 001H L490E: JR NZ,L491A ; (+00aH) LD HL,(L11C5) XOR A SBC HL,DE JR Z,L491A ; (+002H) JR C,L491B ; (+001H) L491A: INC B L491B: LD A,(L11AF) CP 001H JR NZ,L492C ; (+00aH) LD HL,(L11C9) XOR A SBC HL,DE JR Z,L492C ; (+002H) JR NC,L492E ; (+002H) L492C: LD A,001H L492E: AND B JR Z,L4937 ; (+006H) LD HL,(L11B4) CALL L4B88 L4937: EXX L4938: LD A,(HL) OR A INC HL JR Z,L4979 ; (+03cH) EXX LD B,000H LD HL,(011D1H) LD (04B95H),HL LD DE,(011ACH) LD A,(L11AE) CP 002H JR NZ,L495B ; (+00aH) LD HL,(011C3H) XOR A SBC HL,DE JR Z,L495B ; (+002H) JR C,L495C ; (+001H) L495B: INC B L495C: LD A,(L11AF) CP 002H JR NZ,L496D ; (+00aH) LD HL,(011C7H) XOR A SBC HL,DE JR Z,L496D ; (+002H) JR NC,L496F ; (+002H) L496D: LD A,001H L496F: AND B JR Z,L4978 ; (+006H) LD HL,(L11B6) CALL L4B88 L4978: EXX L4979: LD A,(HL) OR A INC HL JR Z,L49BE ; (+040H) EXX LD B,000H LD HL,(L11B0) LD (04B95H),HL LD DE,(011B8H) BIT 7,D JR Z,L49A1 ; (+012H) LD A,(L11AE) CP 003H JR NZ,L49A0 ; (+00aH) LD HL,(011C3H) XOR A SBC HL,DE JR Z,L49A0 ; (+002H) JR C,L49A1 ; (+001H) L49A0: INC B L49A1: LD A,(L11AF) CP 003H JR NZ,L49B2 ; (+00aH) LD HL,(011C7H) XOR A SBC HL,DE JR Z,L49B2 ; (+002H) JR NC,L49B4 ; (+002H) L49B2: LD A,001H L49B4: AND B JR Z,L49BD ; (+006H) LD HL,(L11B6) CALL L4B88 L49BD: EXX L49BE: LD A,(HL) OR A INC HL JR Z,L4A04 ; (+041H) EXX LD B,000H LD HL,(L11B2) LD (04B95H),HL LD DE,(011B8H) LD A,(L11AE) CP 004H JR NZ,L49E1 ; (+00aH) LD HL,(L11C5) XOR A SBC HL,DE JR Z,L49E1 ; (+002H) JR NC,L49E2 ; (+001H) L49E1: INC B L49E2: XOR A BIT 7,D JR Z,L49FA ; (+013H) LD A,(L11AF) CP 004H JR NZ,L49F8 ; (+00aH) LD HL,(L11C9) XOR A SBC HL,DE JR Z,L49F8 ; (+002H) JR C,L49FA ; (+002H) L49F8: LD A,001H L49FA: AND B JR Z,L4A03 ; (+006H) LD HL,(L11B4) CALL L4B88 L4A03: EXX L4A04: LD A,(HL) OR A INC HL JR Z,L4A45 ; (+03cH) EXX LD B,000H LD HL,(L11B2) LD (04B95H),HL LD DE,(011ACH) LD A,(L11AE) CP 005H JR NZ,L4A27 ; (+00aH) LD HL,(L11C5) XOR A SBC HL,DE JR Z,L4A27 ; (+002H) JR NC,L4A28 ; (+001H) L4A27: INC B L4A28: LD A,(L11AF) CP 005H JR NZ,L4A39 ; (+00aH) LD HL,(L11C9) XOR A SBC HL,DE JR Z,L4A39 ; (+002H) JR C,L4A3B ; (+002H) L4A39: LD A,001H L4A3B: AND B JR Z,L4A44 ; (+006H) LD HL,(L11CD) CALL L4B88 L4A44: EXX L4A45: LD A,(HL) OR A INC HL JR Z,L4A8B ; (+041H) EXX LD B,000H LD HL,(L11B0) LD (04B95H),HL LD DE,(011B8H) LD A,(L11AE) CP 006H JR NZ,L4A68 ; (+00aH) LD HL,(011C3H) XOR A SBC HL,DE JR Z,L4A68 ; (+002H) JR NC,L4A69 ; (+001H) L4A68: INC B L4A69: XOR A BIT 7,D JR Z,L4A81 ; (+013H) LD A,(L11AF) CP 006H JR NZ,L4A7F ; (+00aH) LD HL,(011C7H) XOR A SBC HL,DE JR Z,L4A7F ; (+002H) JR C,L4A81 ; (+002H) L4A7F: LD A,001H L4A81: AND B JR Z,L4A8A ; (+006H) LD HL,(L11CB) CALL L4B88 L4A8A: EXX L4A8B: LD A,(HL) OR A INC HL JR Z,L4ACC ; (+03cH) EXX LD HL,(011D1H) LD (04B95H),HL LD DE,(011ACH) LD B,000H LD A,(L11AE) CP 007H JR NZ,L4AAE ; (+00aH) LD HL,(011C3H) XOR A SBC HL,DE JR Z,L4AAE ; (+002H) JR NC,L4AAF ; (+001H) L4AAE: INC B L4AAF: LD A,(L11AF) CP 007H JR NZ,L4AC0 ; (+00aH) LD HL,(011C7H) XOR A SBC HL,DE JR Z,L4AC0 ; (+002H) JR C,L4AC2 ; (+002H) L4AC0: LD A,001H L4AC2: AND B JR Z,L4ACB ; (+006H) LD HL,(L11CB) CALL L4B88 L4ACB: EXX L4ACC: LD A,(HL) OR A INC HL JR Z,L4B0D ; (+03cH) EXX LD HL,(011CFH) LD (04B95H),HL LD DE,(011ACH) LD B,000H LD A,(L11AE) CP 008H JR NZ,L4AEF ; (+00aH) LD HL,(L11C5) XOR A SBC HL,DE JR Z,L4AEF ; (+002H) JR C,L4AF0 ; (+001H) L4AEF: INC B L4AF0: LD A,(L11AF) CP 008H JR NZ,L4B01 ; (+00aH) LD HL,(L11C9) XOR A SBC HL,DE JR Z,L4B01 ; (+002H) JR NC,L4B03 ; (+002H) L4B01: LD A,001H L4B03: AND B JR Z,L4B0C ; (+006H) LD HL,(L11CD) CALL L4B88 L4B0C: EXX L4B0D: LD HL,(L11A6) BIT 7,H JR Z,L4B32 ; (+01eH) LD DE,(011AAH) LD HL,(L11A8) DEC HL LD (L11A8),HL BIT 7,H RET NZ XOR A SBC HL,DE RET C LD HL,(L11A8) ADD HL,HL LD DE,(011A6H) ADD HL,DE LD (L11A6),HL L4B32: LD HL,(L11AA) INC HL LD (L11AA),HL LD HL,(L11A4) INC HL INC HL LD (L11A4),HL JP L4885 L4B44: PUSH HL PUSH DE CALL L4B7D EX DE,HL CALL L4B7D EX DE,HL OR A SBC HL,DE POP DE POP HL JR C,L4B69 ; (+014H) BIT 7,H JR NZ,L4B61 ; (+008H) BIT 7,D LD A,008H RET Z LD A,001H RET L4B61: BIT 7,D LD A,005H RET Z LD A,004H RET L4B69: BIT 7,H JR NZ,L4B75 ; (+008H) BIT 7,D LD A,007H RET Z LD A,002H RET L4B75: BIT 7,D LD A,006H RET Z LD A,003H RET L4B7D: BIT 7,H RET Z L4B80: LD A,H CPL LD H,A LD A,L CPL LD L,A INC HL RET L4B88: LD DE,(POINTY) ADD HL,DE LD DE,0FF38H LD B,H LD C,L ADD HL,DE RET C LD HL,L0000 LD DE,(POINTX) ADD HL,DE EX DE,HL LD HL,0FD80H ADD HL,DE RET C LD H,B LD L,C JP L4697 L4BA7: PUSH AF PUSH DE LD B,008H LD C,L LD E,H XOR A LD D,A LD H,A LD L,A EX AF,AF' LD A,(011D4H) L4BB5: RRA JR NC,L4BBF ; (+007H) ADD HL,DE EX AF,AF' ADD A,C JR NC,L4BBE ; (+001H) INC HL L4BBE: EX AF,AF' L4BBF: SLA C RL E RL D DJNZ L4BB5 ; (-012H) EX AF,AF' BIT 7,A JR Z,L4BCD ; (+001H) INC HL L4BCD: POP DE POP AF RET L4BD0: LD (L492E),A LD (L496F),A LD (L49B4),A LD (L49FA),A LD (L4A3B),A LD (L4A81),A LD (L4AC2),A LD (L4B03),A RET L4BE9: LD (011A8H),SP EX AF,AF' CALL L4C16 CALL L4C16 EXX PUSH DE PUSH HL PUSH DE EXX PUSH HL PUSH DE PUSH HL PUSH DE EXX PUSH HL PUSH DE PUSH HL EXX EX AF,AF' CALL C,L4C2C LD B,004H L4C08: EXX POP HL POP DE EXX L4C0C: POP HL POP DE PUSH BC CALL L46CC POP BC DJNZ L4C0C ; (-009H) RET L4C16: EX DE,HL LD A,H EXX EX DE,HL CP H EXX JR Z,L4C21 ; (+003H) RET P JR L4C26 ; (+005H) L4C21: LD A,L EXX CP L EXX RET NC L4C26: PUSH HL EXX EX (SP),HL EXX POP HL RET L4C2C: CALL COLS LD B,A LD A,(L109F) CP B JR NZ,L4C3A ; (+004H) LD SP,(011A8H) L4C3A: LD A,(L109A) OR A LD A,0C0H JR Z,L4C44 ; (+002H) LD A,040H L4C44: OR B OUT (LSWF),A L4C47: LD A,H OR D RET M CALL L4CEC LD A,L EXX BIT 7,H JR Z,L4C56 ; (+003H) LD HL,L0000 L4C56: BIT 7,D JR Z,L4C5D ; (+003H) LD DE,L0000 L4C5D: EX AF,AF' CALL L4CEC RET C EX AF,AF' INC A SUB L RET C RET Z EX AF,AF' PUSH HL CALL L460F LD (L11A4),HL EXX POP HL LD B,A PUSH BC CALL L460F POP BC LD (L11A6),HL LD C,A LD DE,(KEYBUF) OR A SBC HL,DE JR Z,L4CAA ; (+026H) DEC HL INC DE LD A,L OR A CALL NZ,L4CCD LD HL,L45C0 LD A,B LD B,000H ADD HL,BC LD L,(HL) LD C,A LD A,L LD HL,L45B8 ADD HL,BC LD B,(HL) LD DE,(011A6H) PUSH BC CALL L4CBA POP BC LD DE,(KEYBUF) LD A,B JR L4CBA ; (+010H) L4CAA: LD HL,L45C0 LD A,B LD B,000H ADD HL,BC LD C,A LD A,0FFH AND (HL) LD HL,L45B8 ADD HL,BC AND (HL) L4CBA: LD C,A EX AF,AF' LD B,A EX AF,AF' EX DE,HL DI LD DE,L0050 IN A,(LSE0) L4CC5: LD (HL),C ADD HL,DE DJNZ L4CC5 ; (-004H) IN A,(LSE1) EI RET L4CCD: PUSH BC EX DE,HL LD B,A EX AF,AF' LD C,A EX AF,AF' LD DE,L0050 DI L4CD7: PUSH HL PUSH BC IN A,(LSE0) LD A,0FFH L4CDD: LD (HL),A INC HL DJNZ L4CDD ; (-004H) IN A,(LSE1) POP BC POP HL ADD HL,DE DEC C JR NZ,L4CD7 ; (-012H) EI POP BC RET L4CEC: LD A,H OR A JR NZ,L4CF5 ; (+005H) LD A,0C7H CP L JR NC,L4CF9 ; (+004H) L4CF5: LD HL,PUSHR SCF L4CF9: RRA PUSH HL LD HL,0FD80H ADD HL,DE POP HL JR NC,L4D06 ; (+004H) LD DE,L027F RET L4D06: RLA RET L4D08: EXX CALL L46B2 EXX RET NC L4D0E: LD A,003H JP ERRORJ L4D13: EXX LD (POINTX),DE LD (L108A),HL EXX RET L4D1D: NOP NOP NOP NOP NOP NOP NOP NOP L4D25: DB LSE1 DB 04EH,0EDH,04EH,003H,04FH,01CH,04FH L4D2D: PUSH BC PUSH DE LD BC,L1218 LD D,L LD E,H BIT 0,A JR Z,L4D3B ; (+003H) EX DE,HL INC BC INC BC L4D3B: LD (04DB4H),BC LD (L1212),HL LD H,000H ADD HL,HL ADD HL,HL ADD HL,HL LD (L1214),HL LD L,E LD H,000H ADD HL,HL ADD HL,HL ADD HL,HL LD (L1216),HL LD DE,L0000 EX DE,HL SBC HL,DE LD (L1221),HL BIT 1,A JR Z,L4D64 ; (+004H) LD (01221H),DE L4D64: OR A JP PO,L4D6B LD HL,L0000 L4D6B: LD DE,(POINTY) ADD HL,DE LD (L121A),HL LD DE,(01214H) LD HL,L0000 OR A SBC HL,DE BIT 0,A JR NZ,L4D8C ; (+00bH) BIT 1,A LD (01221H),DE JR Z,L4D8C ; (+003H) LD (L1221),HL L4D8C: EX DE,HL LD HL,(L1088) BIT 1,A JR Z,L4D95 ; (+001H) ADD HL,DE L4D95: LD (L1218),HL ADD A,A LD HL,L4D25 LD D,000H LD E,A ADD HL,DE LD E,(HL) INC HL LD D,(HL) LD (04DEAH),DE CALL L4669 POP HL POP BC L4DAC: DEC B RET M PUSH HL PUSH BC CALL L4DC8 LD HL,L1218 LD E,(HL) INC HL LD D,(HL) PUSH HL LD HL,(L1221) ADD HL,DE EX DE,HL POP HL LD (HL),D DEC HL LD (HL),E POP BC POP HL INC HL JR L4DAC ; (-01cH) L4DC8: LD IY,L1208 LD A,(HL) RST 018H DB 01DH LD H,000H LD L,A ADD HL,HL ADD HL,HL ADD HL,HL LD A,010H ADD A,H LD H,A LD DE,L4D1D LD BC,00008H DI IN A,(LSE0) LDIR IN A,(LSE1) EI LD B,008H CALL L4EE1 LD HL,L0808 LD (L1209),HL LD DE,(01212H) LD (0121FH),DE LD HL,(L1218) BIT 7,H JR Z,L4E16 ; (+015H) CALL L4F32 RET C L4E05: EXX LD B,008H LD HL,L1200 L4E0B: RLC (HL) INC HL DJNZ L4E0B ; (-005H) EXX DJNZ L4E05 ; (-00eH) LD HL,L0000 L4E16: LD (04E46H),HL LD A,0F8H AND L OR H RRC A RRC A RRC A SUB 050H RET NC LD L,A LD H,011H LD (L1210),HL LD HL,(L121A) XOR A BIT 7,H JR Z,L4E42 ; (+00eH) INC IY CALL L4F32 DEC IY RET C LD HL,L0000 LD A,008H SUB B L4E42: LD (04E62H),A LD DE,L0000 PUSH HL PUSH DE CALL L46B2 POP DE POP HL RET C CALL L460F LD (L121C),HL LD HL,L45C8 LD D,000H LD E,A ADD HL,DE LD A,(HL) LD (L121E),A LD HL,L1200 L4E64: LD DE,(01210H) LD BC,(0121EH) XOR A EXX LD B,(IY+001H) L4E71: EXX LD (DE),A XOR A RRC (HL) JR NC,L4E7A ; (+002H) LD A,0B1H L4E7A: LD (L4E7E),A LD A,(DE) L4E7E: OR C RLC C JR NC,L4E88 ; (+005H) LD (DE),A INC E JR Z,L4E93 ; (+00cH) XOR A L4E88: DJNZ L4E7E ; (-00cH) LD B,(IY+00AH) EXX DJNZ L4E71 ; (-01fH) EXX LD (DE),A INC E L4E93: DEC E INC L LD (L120E),HL LD HL,(L1210) EX DE,HL XOR A SBC HL,DE INC HL LD (L1223),HL LD A,(L1220) LD B,A L4EA7: EXX LD DE,(0121CH) LD HL,(L1210) LD BC,(01223H) DI IN A,(LSE0) OUT (LSE0),A LDIR IN A,(LSE1) EI LD DE,L0050 LD HL,(L121C) ADD HL,DE LD (L121C),HL LD DE,0BE80H OR A SBC HL,DE RET NC EXX DJNZ L4EA7 ; (-02aH) LD A,(01213H) LD (L1220),A LD HL,(L120E) DEC (IY+002H) JP NZ,L4E64 RET L4EE1: LD HL,L4D1D LD DE,L1200 LD C,B LD B,000H LDIR RET LD DE,L1200 L4EF0: EXX LD HL,L4D1D LD B,008H XOR A L4EF7: RLC (HL) RRA INC HL DJNZ L4EF7 ; (-006H) EXX LD (DE),A INC DE DJNZ L4EF0 ; (-012H) RET LD DE,L1207 LD HL,L4D1D L4F09: LD A,(HL) EXX LD C,A LD B,008H XOR A L4F0F: RR C RL A DJNZ L4F0F ; (-006H) EXX LD (DE),A INC HL DEC DE DJNZ L4F09 ; (-012H) RET LD DE,L1207 L4F1F: EXX LD HL,L4D1D XOR A LD B,008H L4F26: RLC (HL) RLA INC HL DJNZ L4F26 ; (-006H) EXX LD (DE),A DEC DE DJNZ L4F1F ; (-012H) RET L4F32: LD B,008H LD E,(IY+00AH) LD D,000H L4F39: ADD HL,DE BIT 7,H JR Z,L4F42 ; (+004H) DJNZ L4F39 ; (-007H) L4F40: SCF RET L4F42: LD A,H OR L JR NZ,L4F4A ; (+004H) LD L,E DEC B JR Z,L4F40 ; (-00aH) L4F4A: LD (IY+017H),L LD (IY+001H),B OR A RET L4F52: OR A RET Z LD (011A6H),DE LD E,A LD C,A LD A,H OR A LD A,023H JR NZ,L4F62 ; (+002H) LD A,02BH L4F62: LD (L4FF5),A LD (L4FE1),A LD A,B OR A RET Z LD HL,(L1088) LD A,007H AND L LD D,A EXX LD HL,L45B8 LD D,000H LD E,A ADD HL,DE LD A,(HL) LD (04F85H),A L4F7E: LD HL,(L108A) L4F81: LD (L11A4),HL LD C,0FFH LD HL,(L11A6) LD A,(HL) EXX LD H,A LD A,D OR A JR Z,L4F95 ; (+005H) L4F90: RRC H DEC A JR NZ,L4F90 ; (-005H) L4F95: LD A,H EXX LD HL,L129E LD B,008H LD D,A L4F9D: SRL D RLA DJNZ L4F9D ; (-005H) LD D,A AND C LD (HL),A LD A,D CPL LD B,A AND C INC HL LD (HL),A LD A,C CPL LD C,A AND D INC HL LD (HL),A LD A,C AND B INC HL LD (HL),A LD DE,(POINTX) LD HL,(L11A4) PUSH DE PUSH HL EX DE,HL LD BC,00008H ADD HL,BC EX DE,HL LD A,001H CALL L5003 POP HL POP DE XOR A CALL L5003 LD HL,(L11A6) INC HL LD (L11A6),HL EXX DJNZ L4FE7 ; (+00eH) DEC C EXX JP Z,L4FF8 LD HL,(L11A4) L4FE1: INC HL LD (L108A),HL XOR A RET L4FE7: DEC C JR NZ,L4FF1 ; (+007H) LD C,E EXX CALL L4FF8 JR L4F7E ; (-073H) L4FF1: EXX LD HL,(L11A4) L4FF5: INC HL JR L4F81 ; (-077H) L4FF8: LD HL,(L1088) LD BC,00008H ADD HL,BC LD (L1088),HL RET L5003: EX AF,AF' CALL L46B2 RET C CALL L460F LD B,A LD DE,L129E EX AF,AF' OR A JR Z,L5018 ; (+005H) LD A,B OR A RET Z INC DE INC DE L5018: CALL L4669 DI IN A,(LSE0) OUT (LSE0),A LD A,(DE) LD (HL),A LD A,(L109A) OR A JR NZ,L5032 ; (+00aH) LD A,(0109CH) OR 060H OUT (LSWF),A INC DE LD A,(DE) LD (HL),A L5032: IN A,(LSE1) EI RET L5036: LD A,(L109F) OR 0C0H OUT (LSWF),A EXX LD DE,L27D0 LD HL,L5556 LD BC,L0009 LDIR EXX L504A: LD A,(HL) CALL COLS OR 080H LD (05560H),A INC HL EXX LD HL,L555F LD BC,00005H LDIR EXX DJNZ L504A ; (-016H) EXX LD BC,00007H LDIR LD HL,(L107A) LD (L11A6),HL LD (051CFH),HL LD HL,(L137C) LD DE,0FFFAH ADD HL,DE LD (054DAH),HL LD HL,(L1088) DEC HL LD (L11B1),HL INC HL INC HL LD (L11B3),HL DEC HL EX DE,HL LD HL,L0000 LD (L11A4),HL LD HL,(L108A) LD (L11AF),HL CALL L46B2 CCF RET NC LD (054E2H),SP LD SP,L2ED0 CALL L460F LD DE,L45C8 PUSH HL LD H,000H LD L,A ADD HL,DE LD C,(HL) POP HL CALL L27D0 AND C JP NZ,L5163 CALL L5425 LD (L11B3),IX CALL L53F5 LD (L11B1),IX LD A,0FFH LD (L11B5),A CALL L54D5 LD HL,L12A0 LD (L11A9),HL XOR A LD (L11B5),A LD (L11A8),A L50D6: LD A,(L11B5) CALL L53C4 LD A,0C7H CP L JR C,L5115 ; (+034H) CALL L539D JR C,L5115 ; (+02fH) LD (L11B6),A AND 009H CALL NZ,L518A CALL L51CD LD A,(L11B7) OR A JR NZ,L5115 ; (+01eH) L50F7: CALL L54FA JR Z,L50D6 ; (-026H) LD HL,(L11B3) PUSH HL PUSH DE CALL L5429 LD (L11B3),IX CALL L54D5 POP HL LD (L11B1),HL POP HL LD (L11B3),HL JR L50D6 ; (-03fH) L5115: LD HL,(L11A6) DEC HL LD DE,0FFF9H LD BC,(KEYBUF) L5120: LD A,B OR C JR Z,L515C ; (+038H) LD A,00FH DEC BC CP (HL) ADD HL,DE JR Z,L5120 ; (-00bH) INC HL PUSH HL LD (05149H),HL LD DE,L11AF LD BC,00007H LDIR EX DE,HL LD HL,(L11A6) XOR A POP BC LD (011A6H),BC SBC HL,DE JR Z,L5152 ; (+00cH) LD B,H LD C,L LD HL,L0000 EX DE,HL LDIR LD (011A6H),DE L5152: LD HL,(L11A4) DEC HL LD (L11A4),HL JP L50F7 L515C: LD HL,(L11A4) LD A,L OR H JR NZ,L5168 ; (+005H) L5163: LD SP,(054E2H) RET L5168: DEC HL LD (L11A4),HL LD HL,(L11A6) DEC HL LD DE,L11B5 LD BC,00007H LDDR INC HL LD (L11A6),HL L517C: CALL L54FA JR Z,L515C ; (-025H) CALL L5429 LD (L11B3),IX JR L517C ; (-00eH) L518A: LD HL,L11AB LD DE,L11B9 CALL L51C7 LD A,(L11B6) BIT 0,A JR Z,L51B2 ; (+018H) L519A: LD HL,(L11AB) LD (L11B3),HL CALL L53D1 JR C,L51A9 ; (+004H) BIT 0,A JR NZ,L519A ; (-00fH) L51A9: CALL L51C1 LD A,(L11B6) CP 009H RET NZ L51B2: LD HL,(L11AD) LD (L11B1),HL CALL L53D1 JR C,L51C1 ; (+004H) BIT 3,A JR NZ,L51B2 ; (-00fH) L51C1: LD HL,L11B9 LD DE,L11AB L51C7: LD BC,0000BH LDIR RET L51CD: LD IY,L0000 LD BC,(KEYBUF) LD HL,L0000 LD (L11B7),HL L51DB: CALL L5203 LD A,(L11A8) OR A RET Z DEC A LD (L11A8),A LD (051FFH),SP LD SP,(011A9H) POP IY POP BC POP HL LD (L11B3),HL POP HL LD (L11B1),HL LD (011A9H),SP LD SP,L0000 JR L51DB ; (-028H) L5203: LD A,B OR C LD (0528EH),BC JP Z,L5294 LD HL,(L11AF) LD E,(IY+000H) LD D,(IY+001H) XOR A SBC HL,DE JR NZ,L5288 ; (+06eH) CALL L556B CP 005H JR Z,L5258 ; (+037H) CP 00FH JR NZ,L529C ; (+077H) LD L,(IY+002H) LD H,(IY+003H) LD DE,(011B3H) XOR A SBC HL,DE JR NC,L5288 ; (+054H) LD HL,(L11B1) PUSH HL LD L,(IY+002H) LD H,(IY+003H) PUSH HL LD (L11B1),HL LD A,003H CALL L5334 POP HL LD (L11B3),HL POP HL LD (L11B1),HL CALL L5425 LD (L11B3),IX JR L5288 ; (+030H) L5258: LD E,(IY+004H) LD D,(IY+005H) LD HL,(L11B1) XOR A SBC HL,DE JR NC,L5288 ; (+022H) LD HL,(L11B3) PUSH HL LD L,(IY+004H) LD H,(IY+005H) PUSH HL LD (L11B3),HL LD A,004H CALL L5334 POP HL LD (L11B1),HL POP HL LD (L11B3),HL CALL L53F5 LD (L11B1),IX L5288: LD DE,00007H ADD IY,DE LD BC,L0000 DEC BC JP L5203 L5294: LD A,(L11B8) OR A CALL NZ,L54D5 RET L529C: EX AF,AF' LD A,00FH LD (L11B7),A EX AF,AF' OR A JR NZ,L52AC ; (+006H) LD A,00FH LD (IY+006H),A RET L52AC: CP 001H JR NZ,L52C2 ; (+012H) LD L,(IY+004H) LD H,(IY+005H) LD (L11B1),HL CALL L53F5 LD (L11B1),IX JR L52D6 ; (+014H) L52C2: CP 00CH JR NZ,L52E0 ; (+01aH) L52C6: LD L,(IY+002H) LD H,(IY+003H) LD (L11B3),HL CALL L5425 LD (L11B3),IX L52D6: LD A,00FH LD (IY+006H),A LD (L11B8),A JR L5288 ; (-058H) L52E0: CP 00DH JP NZ,L5334 LD A,(L11A8) INC A CP 01BH CCF JP C,L54E1 LD (L11A8),A LD HL,(L11B1) PUSH HL LD L,(IY+004H) LD H,(IY+005H) LD (L11B1),HL CALL L53F5 LD (0532BH),IY LD DE,00007H ADD IY,DE LD BC,(0528EH) DEC BC LD (05327H),SP LD SP,(011A9H) PUSH IX LD DE,(011B3H) PUSH DE PUSH BC PUSH IY LD (011A9H),SP LD SP,L0000 LD IY,L0000 POP HL LD (L11B1),HL JP L52C6 L5334: EX AF,AF' CALL L54D5 DEC DE LD A,00FH LD (DE),A EX AF,AF' CP 003H JR NZ,L535D ; (+01cH) L5341: LD HL,(L11B3) LD (L11B1),HL LD L,(IY+004H) LD H,(IY+005H) LD (L11B3),HL CALL L53F5 PUSH IX POP HL LD (IY+002H),L LD (IY+003H),H RET L535D: CP 004H JR Z,L5381 ; (+020H) LD HL,(L11A6) PUSH HL LD (054E7H),IY CALL L54D5 LD HL,L11AF LD (054E7H),HL LD HL,(L11B1) PUSH HL CALL L5341 POP HL LD (L11B3),HL POP IY JR L5387 ; (+006H) L5381: LD HL,(L11B1) LD (L11B3),HL L5387: LD L,(IY+002H) LD H,(IY+003H) LD (L11B1),HL CALL L5425 PUSH IX POP HL LD (IY+004H),L LD (IY+005H),H RET L539D: LD HL,(L11B1) LD (L11AB),HL LD HL,(L11B3) LD (L11AD),HL CALL L53F5 RET C LD (L11B1),IX CALL L5425 LD (L11B3),IX CALL L54B1 LD A,B RET L53BD: LD A,(L11B5) CPL LD (L11B5),A L53C4: LD HL,(L11AF) INC L OR A JR NZ,L53CD ; (+002H) DEC L DEC L L53CD: LD (L11AF),HL RET L53D1: CALL L53BD CALL L539D RET C PUSH AF LD HL,(L11B1) PUSH HL LD HL,(L11B3) PUSH HL CALL L51CD LD A,(L11B7) OR A CALL Z,L54D5 POP HL LD (L11B3),HL POP HL LD (L11B1),HL POP AF RET L53F5: LD DE,(011B3H) LD HL,(L11B1) PUSH HL LD (054A9H),DE LD HL,L0000 LD (0547DH),HL LD A,02BH LD (0546FH),A LD A,02FH LD (L54A0),A XOR A LD (L548A),A LD HL,L5471 LD (05469H),HL LD HL,L5490 LD (0546CH),HL POP DE INC DE JR L5450 ; (+02bH) L5425: LD DE,(011B3H) L5429: LD HL,(L11B1) LD (0547DH),HL LD HL,08002H LD (054A9H),HL LD A,023H LD (0546FH),A LD A,02FH LD (L548A),A XOR A LD (L54A0),A LD HL,L5490 LD (05469H),HL LD HL,L5471 LD (0546CH),HL DEC DE L5450: LD HL,(L11AF) PUSH DE POP IX CALL L460F LD DE,L45C8 PUSH HL LD H,000H LD L,A ADD HL,DE LD C,(HL) POP HL CALL L27D0 LD E,A AND C JP Z,L5471 CALL L5490 DEC IX RET L5471: DEC IX RRC C JR NC,L5489 ; (+012H) PUSH IX EXX POP DE INC DE LD HL,L0000 INC HL SBC HL,DE EXX RET NC DEC HL CALL L27D0 LD E,A L5489: LD A,E L548A: NOP AND C JP Z,L5471 RET L5490: INC IX RLC C JR NC,L549F ; (+009H) CALL L54A4 RET C INC HL CALL L27D0 LD E,A L549F: LD A,E L54A0: CPL AND C JR Z,L5490 ; (-014H) L54A4: PUSH IX EXX POP HL LD DE,L11B3 XOR A SBC HL,DE EXX CCF RET L54B1: LD B,000H LD HL,(L11AD) LD DE,(011B3H) CALL L54C6 LD HL,(L11AB) LD DE,(011B1H) INC HL INC DE L54C6: PUSH HL XOR A INC HL SBC HL,DE POP HL RL B INC DE EX DE,HL SBC HL,DE RL B RET L54D5: LD DE,(011A6H) LD HL,L0000 XOR A SBC HL,DE JR NC,L54E6 ; (+005H) L54E1: LD SP,L0000 SCF RET L54E6: LD HL,L11AF LD BC,00007H LDIR LD (011A6H),DE LD HL,(L11A4) INC HL LD (L11A4),HL RET L54FA: LD HL,(L11AF) LD DE,(011B3H) DEC DE CALL L460F LD DE,L45C0 PUSH HL LD H,000H LD L,A ADD HL,DE INC C LD B,C LD C,(HL) POP HL L5511: CALL L27D0 AND C JR NZ,L5528 ; (+011H) DI IN A,(LSE0) LD (HL),C IN A,(LSE1) EI LD C,0FFH DEC HL DJNZ L5511 ; (-012H) LD DE,0FFFFH JR L554F ; (+027H) L5528: LD E,B LD B,007H LD D,000H L552D: RLC A JR C,L5536 ; (+005H) SCF RR D DJNZ L552D ; (-009H) L5536: IN A,(LSE0) LD A,C AND D LD (HL),A IN A,(LSE1) LD A,E DEC A RLC A RLC A RLC A LD C,A LD A,007H AND C LD D,A LD A,0F8H AND C OR B LD E,A L554F: XOR A LD HL,(L11B1) SBC HL,DE RET L5556: PUSH HL EXX POP HL DI IN A,(LSE0) LD C,LSRF XOR A L555F: LD B,000H OUT (C),B OR (HL) LD E,A IN A,(LSE1) EI LD A,E EXX RET L556B: LD HL,(L11B1) LD E,(IY+002H) LD D,(IY+003H) INC HL INC DE XOR A CALL L5583 LD HL,(L11B3) LD E,(IY+004H) LD D,(IY+005H) L5583: SBC HL,DE RLA RLA RET Z OR 001H RET NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP L55F0: NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP $START: PUSH BC ; $START - BASIC warm start / system entry CALL L585D POP BC LD HL,0A471H LD (L1070),HL LD HL,L586F LD (L004D),HL LD A,B OR A L5813: JP Z,L5825 CP 001H JR Z,L5825 ; (+00bH) LD HL,L584D LD DE,L1353 LD BC,00010H LDIR L5825: LD DE,L9EB5 RST 018H DB 005H RST 018H DB 020H LD A,0C3H LD (L5813),A LD HL,L5837 LD (05814H),HL L5837: LD HL,0A471H L583A: LD (HL),000H INC HL LD A,H CP 0FFH JR C,L583A ; (-008H) CALL L616E CALL L6180 CALL L755E JR L5872 ; (+025H) L584D: DB 00FH,"RUN ",022H,"AUTO RUN",022H,00DH ; AUTO RUN string L585D: LD A,001H RST 018H DB 050H XOR A LD (L109A),A INC A LD (L137A),A LD (L1379),A RST 018H DB 056H RET L586F: CALL L585D L5872: LD HL,L6403 LD (L004F),HL L5878: RST 018H DB 002H LD DE,L63F0 RST 018H DB 005H RST 018H DB 001H L5881: LD A,(L63F6) OR A JR NZ,L5893 ; (+00cH) LD SP,(INTFAC) LD HL,0FFFFH PUSH HL LD (09E64H),SP L5893: LD HL,L0000 LD (L9E51),HL XOR A LD (L108E),A CALL L611D RST 018H DB 043H LD DE,L11A4 RST 018H DB 00CH JR NC,L58B4 ; (+00bH) L58A9: LD HL,L611C LD A,(HL) OR A LD (HL),000H JR NZ,L5878 ; (-03aH) JR L5881 ; (-033H) L58B4: CALL L79BC OR A JR Z,L5881 ; (-039H) CALL L79F6 JP NC,L5FAD LD HL,L9EB5 PUSH HL CALL L8216 INC HL LD (L9E4B),HL CALL L61C5 POP HL JR L58D4 ; (+003H) L58D1: CALL L797A L58D4: LD (09E64H),SP L58D8: LD DE,L58D1 PUSH DE L58DC: LD (L9E66),HL CALL BRKCHK JP Z,BREAKZ L58E5: LD A,(HL) INC HL CP 080H JR NC,L593F ; (+054H) CP 027H JP Z,L67FE CP 020H JR Z,L58E5 ; (-00fH) CP 03AH JR Z,L58DC ; (-01cH) OR A JR Z,L5906 ; (+00bH) DEC HL SUB 041H CP 01AH JP C,L650D JP L6364 L5906: LD HL,(L9E4B) L5909: LD E,(HL) INC HL LD D,(HL) LD A,D OR E JR Z,L5928 ; (+018H) LD (L108E),A EX DE,HL ADD HL,DE DEC HL LD (L9E4B),HL EX DE,HL INC HL CALL LDDEMI LD (09E51H),DE CALL L61E4 POP DE JR L58D4 ; (-054H) L5928: POP HL CALL L596B JP Z,L5878 XOR A LD (L63F6),A LD A,(L9E54) CP 002H JP Z,06391H PUSH HL JP L60B9 L593F: CP 0FFH JP Z,L653F LD DE,L5D1B CP 0FEH JR NZ,L594F ; (+004H) LD A,(HL) INC HL JR L5957 ; (+008H) L594F: CP LSE0 JP NC,L6364 LD DE,L5C5B L5957: ADD A,A PUSH HL EX DE,HL LD E,A LD D,000H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A EX (SP),HL L5963: CALL HLFTCH L5966: OR A RET Z CP 03AH RET L596B: PUSH HL LD HL,(L9E51) LD A,L OR H POP HL RET CTBL1: DB "GOT", "O" | 080H ; CTBL1 - BASIC statement keyword text table DB "GOSU", "B" | 080H DB 080H DB "RU", "N" | 080H DB "RETUR", "N" | 080H DB "RESTOR", "E" | 080H DB "RESUM", "E" | 080H DB "LIS", "T" | 080H DB 080H DB "DELET", "E" | 080H DB "RENU", "M" | 080H DB "AUT", "O" | 080H DB "EDI", "T" | 080H DB "FO", "R" | 080H DB "NEX", "T" | 080H DB "PRIN", "T" | 080H DB 080H DB "INPU", "T" | 080H DB 080H DB "I", "F" | 080H DB "DAT", "A" | 080H DB "REA", "D" | 080H DB "DI", "M" | 080H DB "RE", "M" | 080H DB "EN", "D" | 080H DB "STO", "P" | 080H DB "CON", "T" | 080H DB "CL", "S" | 080H DB 080H DB "O", "N" | 080H DB "LE", "T" | 080H DB "NE", "W" | 080H DB "POK", "E" | 080H DB "OF", "F" | 080H DB "PMOD", "E" | 080H DB "PSKI", "P" | 080H DB "PLO", "T" | 080H DB "PLIN", "E" | 080H DB "RLIN", "E" | 080H DB "PMOV", "E" | 080H DB "RMOV", "E" | 080H DB "TRO", "N" | 080H DB "TROF", "F" | 080H DB "INP", "@" | 080H DB "DEFAUL", "T" | 080H DB "GE", "T" | 080H DB "PCOLO", "R" | 080H DB "PHOM", "E" | 080H DB "HSE", "T" | 080H DB "GPRIN", "T" | 080H DB "KE", "Y" | 080H DB "AXI", "S" | 080H DB "LOA", "D" | 080H DB "SAV", "E" | 080H DB "MERG", "E" | 080H DB "CHAI", "N" | 080H DB "CONSOL", "E" | 080H DB "SEARC", "H" | 080H DB "OUT", "@" | 080H DB "PCIRCL", "E" | 080H DB "PTES", "T" | 080H DB "PAG", "E" | 080H DB "WAI", "T" | 080H DB "SWA", "P" | 080H DB 080H DB "ERRO", "R" | 080H DB "ELS", "E" | 080H DB "US", "R" | 080H DB "BY", "E" | 080H DB 080H DB 080H DB "DE", "F" | 080H DB 080H DB 080H DB "LABE", "L" | 080H DB 080H DB 080H DB 080H DB "WOPE", "N" | 080H DB "CLOS", "E" | 080H DB "ROPE", "N" | 080H DB "XOPE", "N" | 080H DB 080H DB 080H DB 080H DB "DI", "R" | 080H DB 080H DB 080H DB "RENAM", "E" | 080H DB "KIL", "L" | 080H DB "LOC", "K" | 080H DB "UNLOC", "K" | 080H DB "INI", "T" | 080H DB 080H DB 080H DB 080H DB "T", "O" | 080H DB "STE", "P" | 080H DB "THE", "N" | 080H DB "USIN", "G" | 080H DB 080H DB "AL", "L" | 080H DB "TA", "B" | 080H DB "SP", "C" | 080H DB 080H DB 080H DB ".XO", "R" | 080H DB ".O", "R" | 080H DB ".AN", "D" | 080H DB ".NO", "T" | 080H DB ">", "<" | 080H DB "<", ">" | 080H DB "=", "<" | 080H DB "<", "=" | 080H DB "=", ">" | 080H DB ">", "=" | 080H DB "=" | 080H DB ">" | 080H DB "<" | 080H DB "+" | 080H DB "-" | 080H DB "}" | 080H DB ".MO", "D" | 080H DB "/" | 080H DB "*" | 080H DB "^" | 080H DB 0FFH GTABL: DB 080H ; GTABL - BASIC extended keyword text table DB "CSE", "T" | 080H DB "CRESE", "T" | 080H DB "CCOLO", "R" | 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB "SOUN", "D" | 080H DB 080H DB "NOIS", "E" | 080H DB "BEE", "P" | 080H DB 080H DB 080H DB "COLO", "R" | 080H DB 080H DB "SE", "T" | 080H DB "RESE", "T" | 080H DB "LIN", "E" | 080H DB "BLIN", "E" | 080H DB "PA", "L" | 080H DB "CIRCL", "E" | 080H DB "BO", "X" | 080H DB "PAIN", "T" | 080H DB "POSITIO", "N" | 080H DB "PATTER", "N" | 080H DB "HCOP", "Y" | 080H DB 080H DB 080H DB 080H DB "SYMBO", "L" | 080H DB 080H DB "MUSI", "C" | 080H DB "TEMP", "O" | 080H DB "CURSO", "R" | 080H DB "VERIF", "Y" | 080H DB "CL", "R" | 080H DB "LIMI", "T" | 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB "BOO", "T" | 080H DB 0FFH CTBL2: DB "IN", "T" | 080H ; CTBL2 - BASIC function keyword text table DB "AB", "S" | 080H DB "SI", "N" | 080H DB "CO", "S" | 080H DB "TA", "N" | 080H DB "L", "N" | 080H DB "EX", "P" | 080H DB "SQ", "R" | 080H DB "RN", "D" | 080H DB "PEE", "K" | 080H DB "AT", "N" | 080H DB "SG", "N" | 080H DB "LO", "G" | 080H DB "FRA", "C" | 080H DB "PA", "I" | 080H DB "RA", "D" | 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB "STIC", "K" | 080H DB "STRI", "G" | 080H DB 080H DB 080H DB "CHR", "$" | 080H DB "STR", "$" | 080H DB "HEX", "$" | 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB "SPACE", "$" | 080H DB 080H DB 080H DB "AS", "C" | 080H DB "LE", "N" | 080H DB "VA", "L" | 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB "ER", "N" | 080H DB "ER", "L" | 080H DB "SIZ", "E" | 080H DB "CSR", "H" | 080H DB "CSR", "V" | 080H DB "POS", "H" | 080H DB "POS", "V" | 080H DB "LEFT", "$" | 080H DB "RIGHT", "$" | 080H DB "MID", "$" | 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB 080H DB "TI", "$" | 080H DB "POIN", "T" | 080H DB "EO", "F" | 080H DB "F", "N" | 080H DB 0FFH L5C5B: DW L69AF ; SJPTBL - Statement keyword dispatch address table DW L692A DW L6364 DW L606E DW L68F9 DW L6E9E DW L64B6 DW 06A9DH DW L6364 DW L620C DW L62AB DW L60CA DW L6125 DW L6602 DW L6699 DW L6C9F DW L6364 DW L6DD4 DW L6364 DW L69C2 DW L67FE DW L6DCD DW L8DCC DW L67FE DW L60B9 DW L6468 DW L6499 DW L7972 DW L6364 DW L6952 DW L650D DW L618E DW L68A1 DW L6364 DW LA015 DW LA07A DW LA428 DW LA0BC DW 0A0BFH DW 0A0C2H DW 0A0C5H DW L61CC DW L61DF DW L681F DW L6F41 DW L686C DW LA12A DW LA15F DW 0A162H DW LA16D DW L6B84 DW LA1D5 DW L6FFD DW L73C0 DW L7068 DW L7053 DW L6A61 DW L6A9B DW L680A DW LA215 DW LA3E3 DW LA3F1 DW L67EE DW L74A6 DW L6364 DW L63F8 DW L69E4 DW L67A4 DW L6A59 DW L6364 DW L6364 DW L6C31 DW L6364 DW L6364 DW L67FE DW L6364 DW L6364 DW L6364 DW 06F59H DW L6F8A DW L6F56 DW 06F5CH DW L6364 DW L6364 DW L6364 DW L7424 DW L6364 DW L6364 DW L744B DW 06F8BH DW 07418H DW L7416 DW L6F47 DW L6364 DW L6364 DW L6364 L5D1B: DW L6364 ; GJPTBL - Extended keyword dispatch address table DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L9BAC DW L6364 DW L9BE3 DW L6A56 DW L6364 DW L6364 DW L7675 DW L6364 DW L7592 DW 07593H DW L75A1 DW 075A2H DW L7619 DW L774C DW L7648 DW L76FD DW L75F5 DW L75C4 DW L7968 DW L6364 DW L6364 DW L6364 DW L790F DW L6364 DW 09BE6H DW L9BD9 DW L683B DW L73A9 DW L619B DW L68B5 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6A95 L5D79: DW L95C2 ; FJPTBL - Function keyword dispatch address table DW L95BD DW L9709 DW L96F9 DW L97E8 DW L9A4F DW L992B DW L961F DW L98E6 DW L98DA DW L963D DW L98A0 DW L9A43 DW L7BC0 DW L98B8 DW L98B3 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L9060 DW L907F DW L6364 DW L6364 DW L6364 DW L8931 DW L88F0 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L8913 DW L6364 DW L6364 DW L8992 DW L899C DW L89A4 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L887A DW L8888 DW L8852 DW L8864 DW L8869 DW L886E DW L8874 DW L89B6 DW L89D3 DW L89F0 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L8A46 DW L896C DW L893F DW L8FBF DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 DW L6364 L5E19: CALL TEST1 DB 00CH JR NZ,L5E25 ; (+006H) CALL LDDEMI OR 0FFH RET L5E25: INC HL CP 00BH JR NZ,L5E49 ; (+01fH) LD E,(HL) INC HL LD D,(HL) INC HL LD A,E OR D RET Z EX DE,HL CALL L5E78 JP C,06385H EX DE,HL DEC HL LD (HL),D DEC HL LD (HL),E DEC HL LD (HL),00CH INC HL INC HL INC HL OR 0FFH LD (L5FAC),A RET L5E49: CP 022H JP NZ,L6364 LD (05EBFH),HL LD B,000H L5E53: LD A,(HL) OR A JR Z,L5E5F ; (+008H) INC HL CP 022H JR Z,L5E5F ; (+003H) INC B JR L5E53 ; (-00cH) L5E5F: LD A,B OR A JP Z,L6364 LD (05EBDH),A EX DE,HL CALL L5E72 JP C,06385H EX DE,HL OR 0FFH RET L5E72: PUSH BC LD BC,L5EAB JR L5E7C ; (+004H) L5E78: PUSH BC LD BC,L5E9F L5E7C: LD (05E92H),BC PUSH DE EX DE,HL LD HL,(L1070) L5E85: LD C,(HL) INC HL LD B,(HL) LD A,B OR C SCF JR Z,L5E9C ; (+00fH) DEC HL PUSH HL ADD HL,BC EX (SP),HL CALL L0000 JR C,L5E9B ; (+005H) JR Z,L5E9B ; (+003H) POP HL JR L5E85 ; (-016H) L5E9B: POP DE L5E9C: POP DE POP BC RET L5E9F: INC HL INC HL INC HL LD A,D CP (HL) RET NZ DEC HL LD A,E CP (HL) DEC HL DEC HL RET L5EAB: PUSH HL INC HL INC HL INC HL INC HL CALL TEST1 DB 0CAH JR NZ,L5ECF ; (+019H) CALL TEST1 DB 022H JR NZ,L5ECF ; (+013H) LD B,000H LD DE,L0000 L5EC1: LD A,(DE) CP (HL) JR NZ,L5ECF ; (+00aH) INC HL INC DE DJNZ L5EC1 ; (-008H) LD A,(HL) CP 022H JR Z,L5ECF ; (+001H) OR A L5ECF: SCF CCF POP HL RET L5ED3: LD DE,L0000 LD BC,0FFFFH CALL L5F15 RET Z CP 02DH JR Z,L5EFD ; (+01cH) CP 02EH LD DE,(09E4DH) JR Z,L5EF0 ; (+007H) CALL TESTX DB 00BH LD E,(HL) INC HL LD D,(HL) L5EF0: INC HL CALL L5F15 JR Z,L5EFA ; (+004H) CP 02DH JR Z,L5EFD ; (+003H) L5EFA: LD C,E LD B,D RET L5EFD: INC HL CALL L5F15 RET Z CP 02EH JR NZ,L5F0C ; (+006H) LD BC,(09E4DH) INC HL RET L5F0C: CALL TESTX DB 00BH LD C,(HL) INC HL LD B,(HL) INC HL RET L5F15: CALL L5963 RET Z CP 02CH RET L5F1C: CALL PUSHR LD A,0FFH LD (L5FAC),A LD HL,L5F72 JR L5F3B ; (+012H) L5F29: CALL PUSHR CALL L60A2 L5F2F: LD A,(L5FAC) OR A RET Z XOR A LD (L5FAC),A LD HL,L5F58 L5F3B: LD (05F56H),HL LD HL,(L1070) DEC HL L5F42: INC HL LD A,(HL) INC HL OR (HL) RET Z INC HL LD E,(HL) INC HL LD D,(HL) LD (05FA1H),DE L5F4F: CALL L6A0A OR A JR Z,L5F42 ; (-013H) JP L0000 L5F58: CP 00CH JR NZ,L5F4F ; (-00dH) DEC HL LD E,(HL) INC HL LD D,(HL) PUSH HL EX DE,HL INC HL INC HL LD E,(HL) INC HL LD D,(HL) POP HL LD (HL),D DEC HL LD (HL),E DEC HL LD (HL),00BH INC HL INC HL JR L5F4F ; (-023H) L5F72: CP 00BH JR NZ,L5F4F ; (-027H) DEC HL PUSH HL CALL INDRCT LD E,L LD D,H LD A,L OR H JR Z,L5FA8 ; (+027H) CALL L5E78 JR C,L5F91 ; (+00bH) EX DE,HL POP HL DEC HL LD (HL),00CH INC HL LD (HL),E INC HL LD (HL),D JR L5F4F ; (-042H) L5F91: PUSH DE LD A,010H RST 018H DB 01BH LD A,020H RST 018H DB 003H POP HL CALL L7998 RST 018H DB 005H LD HL,L0000 CALL L63D6 RST 018H DB 002H L5FA8: POP HL INC HL JR L5F4F ; (-05dH) L5FAC: NOP L5FAD: RST 018H DB 028H CALL L5F29 CALL L8532 LD A,B OR C JP Z,L5881 LD (09E4DH),BC LD A,(DE) CP 020H JR NZ,L5FC4 ; (+001H) INC DE L5FC4: PUSH AF LD HL,L9EB5 CALL L8216 PUSH HL LD HL,(L9E4D) LD E,L LD D,H CALL L622C POP HL POP AF OR A JR Z,L5FEB ; (+012H) LD DE,L9EB5 OR A SBC HL,DE LD DE,00005H ADD HL,DE LD B,H LD C,L LD HL,L9EB5 CALL L6003 L5FEB: LD A,(L611C) OR A JP Z,L5881 LD DE,(09E4FH) LD HL,(L9E4D) ADD HL,DE LD (L9E4D),HL JP NC,L5881 JP L58A9 L6003: LD (06065H),HL PUSH BC LD BC,(09E4DH) LD HL,(L1070) JR L6014 ; (+004H) L6010: CALL LDDEMD ADD HL,DE L6014: CALL LDDEMD LD A,D OR E JR Z,L6028 ; (+00dH) INC HL INC HL CALL LDDEMD EX DE,HL SBC HL,BC DEC DE DEC DE EX DE,HL JR C,L6010 ; (-018H) L6028: POP DE PUSH HL PUSH DE LD HL,00028H ADD HL,DE LD BC,(VARED) LD (TMPEND),BC ADD HL,BC JP C,L63A7 EX DE,HL CALL L8C08 POP DE RST 018H DB 018H POP HL PUSH DE PUSH BC EX (SP),HL POP BC PUSH HL OR A SBC HL,BC LD B,H LD C,L POP HL LD DE,(VARED) INC BC LDDR INC HL POP BC LD (HL),C INC HL LD (HL),B INC HL LD DE,(09E4DH) LD (HL),E INC HL LD (HL),D INC HL EX DE,HL LD HL,L9EB5 DEC BC DEC BC DEC BC DEC BC LDIR RET L606E: JR Z,L6079 ; (+009H) CALL L69DE JP Z,L69AF JP L716B L6079: CALL L619B L607C: CALL L6090 LD DE,(TEXTST) LD SP,(INTFAC) LD HL,0FFFFH PUSH HL PUSH HL EX DE,HL JP L5909 L6090: PUSH HL CALL L60A2 LD (L611C),A LD HL,0000AH LD (L9E4D),HL LD (L9E4F),HL POP HL RET L60A2: LD HL,L0000 LD (L9E55),HL XOR A LD (L9E5D),A LD (L63F6),A LD (L9E54),A LD (L9E53),A LD (L9E68),A RET L60B9: LD A,(L9E68) OR A JP NZ,L750C RST 018H DB 028H XOR A LD (L63F6),A POP BC JP L5878 L60CA: CALL L7340 LD DE,0000AH LD BC,0000AH JR Z,L6103 ; (+02eH) CP 02CH JR NZ,L60E4 ; (+00bH) INC HL CALL L8551 LD B,D LD C,E LD DE,0000AH JR L6103 ; (+01fH) L60E4: CP 02EH LD DE,(09E4DH) JR Z,L60F5 ; (+009H) CP 00BH JP NZ,L6364 INC HL LD E,(HL) INC HL LD D,(HL) L60F5: INC HL CALL TEST1 DB 02CH JR NZ,L6103 ; (+007H) PUSH DE CALL L8551 LD C,E LD B,D POP DE L6103: CALL L797A LD A,C OR B JP Z,0636AH LD (09E4DH),DE LD (09E4FH),BC LD A,001H LD (L611C),A POP AF JP L5881 L611C: NOP L611D: LD A,(L611C) OR A RET Z XOR A JR L612B ; (+006H) L6125: CALL L612B JP L5881 L612B: LD DE,(09E4DH) CALL NZ,L5ED3 PUSH DE EX DE,HL CALL L5E78 POP DE INC HL INC HL INC HL INC HL JR NC,L6141 ; (+003H) LD HL,.NOP L6141: EX DE,HL PUSH DE LD (L9E4D),HL CALL L7998 RST 018H DB 005H LD A,020H RST 018H DB 003H POP HL LD DE,L11A4 PUSH DE CALL L8401 POP DE LD B,000H L615A: LD A,(DE) OR A JR Z,L6164 ; (+006H) INC B RST 018H DB 004H INC DE JR L615A ; (-00aH) L6164: LD A,B OR A RET Z LD A,014H RST 018H DB 003H DJNZ 06168H ; (-005H) RET L616E: PUSH DE LD DE,0FFF0H ADD HL,DE POP DE LD (L107E),HL DEC H LD (L107C),HL XOR A LD (L9E68),A RET L6180: LD HL,(L1070) CALL L61C5 LD (L1072),HL CALL L6090 JR L619B ; (+00dH) L618E: CALL TEST1 DB 09DH CALL Z,L9FCF CALL L6180 JP L5872 L619B: PUSH HL CALL L61AC POP HL RST 018H DB 028H RET L61A3: LD HL,(L1070) CALL L61C5 LD (L1072),HL L61AC: LD HL,(L1072) LD (HL),000H INC HL LD (L1074),HL LD (HL),000H INC HL LD (L1076),HL CALL L61C5 LD (L1078),HL LD (L107A),HL RET L61C5: LD (HL),000H INC HL LD (HL),000H INC HL RET L61CC: CALL L5963 LD A,001H JR Z,L61E0 ; (+00dH) CALL TESTX DB 0FBH CALL TESTX DB 050H LD A,002H JR L61E0 ; (+001H) L61DF: XOR A L61E0: LD (061E5H),A RET L61E4: LD A,000H OR A RET Z DEC A LD (L1091),A JR Z,L61F5 ; (+007H) LD A,(L1097) CP 002H JR Z,L6207 ; (+012H) L61F5: PUSH HL LD A,05BH RST 018H DB 009H LD HL,(L9E51) CALL L7998 RST 018H DB 00BH LD A,05DH RST 018H DB 009H POP HL L6207: XOR A LD (L1091),A RET L620C: CALL L5F15 JP Z,L6364 CALL L69DE JR Z,L6220 ; (+009H) CP 02DH JR Z,L6220 ; (+005H) CP 02EH JP NZ,L7443 L6220: CALL L5ED3 EX DE,HL LD E,C LD D,B CALL L622C JP L5878 L622C: PUSH AF PUSH BC PUSH HL PUSH DE CALL L5F29 LD C,L LD B,H LD HL,(L1070) L6238: CALL LDDEMI LD A,E OR D JR NZ,L6247 ; (+008H) L623F: POP DE POP HL POP BC POP AF RET L6244: POP DE JR L623F ; (-008H) L6247: EX DE,HL ADD HL,DE DEC HL DEC HL EX DE,HL PUSH DE LD E,(HL) INC HL LD D,(HL) EX DE,HL LD (06261H),HL SBC HL,BC POP HL JR C,L6238 ; (-021H) DB 01BH DEC DE DEC DE POP BC PUSH BC PUSH DE PUSH HL LD HL,L0000 SBC HL,BC POP HL JR Z,L6286 ; (+01eH) JR NC,L6244 ; (-026H) L626A: CALL LDDEMI LD A,D OR E JR Z,L6284 ; (+013H) EX DE,HL ADD HL,DE EX DE,HL DEC DE DEC DE PUSH DE LD E,(HL) INC HL LD D,(HL) EX DE,HL SBC HL,BC POP HL JR C,L626A ; (-016H) JR Z,L6286 ; (+004H) EX DE,HL DEC HL L6284: DEC HL DEC HL L6286: POP DE PUSH DE PUSH HL OR A EX DE,HL SBC HL,DE EX DE,HL LD BC,(VARED) RST 018H DB 018H POP DE LD H,B LD L,C OR A SBC HL,DE LD B,H LD C,L EX DE,HL POP DE LDIR JR L623F ; (-063H) L62A2: CALL L8551 LD A,D OR E RET NZ JP 0636AH L62AB: CALL L7340 LD DE,0000AH LD (0632AH),DE LD (06341H),DE LD E,000H LD (06319H),DE JR Z,L62F4 ; (+033H) CP 02CH JR Z,L62D5 ; (+010H) CALL L62A2 LD (0632AH),DE CALL L5963 JR Z,L62F4 ; (+023H) CALL L79B1 DEC HL L62D5: CALL INCHLF CP 02CH JR Z,L62EC ; (+010H) CALL L62A2 LD (06319H),DE CALL L5963 JR Z,L62F4 ; (+00cH) CALL L79B1 DEC HL L62EC: INC HL CALL L62A2 LD (06341H),DE L62F4: PUSH HL LD HL,(06319H) EX DE,HL LD HL,(0632AH) OR A SBC HL,DE JP C,0636AH CALL L5F1C LD HL,(L1070) L6308: LD E,(HL) INC HL LD D,(HL) LD A,D OR E JR Z,L634A ; (+03bH) EX DE,HL ADD HL,DE DEC HL EX DE,HL INC HL LD C,(HL) INC HL LD B,(HL) PUSH HL LD HL,L0000 OR A SBC HL,BC POP HL JR Z,L6326 ; (+005H) JR C,L6326 ; (+003H) EX DE,HL JR L6308 ; (-01eH) L6326: DEC HL DEC HL DEC HL LD BC,L0000 OR A PUSH AF L632E: LD E,(HL) INC HL LD D,(HL) LD A,D OR E JR Z,L634A ; (+015H) EX DE,HL ADD HL,DE DEC HL EX DE,HL POP AF JR C,L6350 ; (+014H) INC HL LD (HL),C INC HL LD (HL),B LD HL,L0000 ADD HL,BC PUSH AF LD C,L LD B,H EX DE,HL JR L632E ; (-01cH) L634A: POP AF CALL L5F2F POP HL RET L6350: LD HL,0000AH LD (06341H),HL LD (0632AH),HL LD L,000H LD (06319H),HL CALL L62F4 JP 0636AH L6364: LD A,001H LD HL,L023E LD HL,0033EH LD HL,L043E LD HL,L053E LD HL,L063E LD HL,0073EH LD HL,0083EH LD HL,L0D3E LD HL,L0E3E LD HL,00F3EH LD HL,L103E LD HL,L113E LD HL,L123E LD HL,L133E LD HL,L143E LD HL,L153E LD HL,L163E LD HL,L183E LD HL,L193E LD HL,L3A3E LD HL,L403E JR L63B5 ; (+00eH) L63A7: LD A,006H L63A9: LD SP,(INTFAC) LD HL,0FFFFH PUSH HL LD (09E64H),SP L63B5: JR L63D3 ; (+01cH) L63B7: LD HL,(.$LPT) LD IX,(.$CRT) LD (L1044),HL XOR A LD (L1051),A LD A,0C4H LD HL,0BB3EH LD HL,L3B3E LD HL,0BC3EH LD HL,0BD3EH L63D3: JP ERRORJ L63D6: LD A,L OR H RET Z LD DE,L63E4 RST 018H DB 005H CALL L7998 DB 0DFH DB 005H DB 0C9H L63E4: DB " IN ",000H L63E9: DB 042H,005H,"REAK",000H L63F0: DB 052H DB 005H DB 045H LD B,C LD B,H LD E,C L63F6: NOP NOP L63F8: CALL L853D DEC A CP 046H JR C,L6402 ; (+002H) LD A,044H L6402: INC A L6403: LD SP,(09E64H) PUSH AF RST 018H DB 043H CALL L737C POP AF OR A JR Z,L6463 ; (+052H) CP 080H JR Z,L6461 ; (+04cH) LD C,A LD HL,L0000 LD (L9048),HL CALL L596B LD A,C JR Z,L644C ; (+02aH) LD HL,(L9E51) LD (L9E55),HL LD (L9E4D),HL LD HL,(L9E4B) LD (L9E57),HL LD HL,(L9E66) LD (L9E59),HL AND 07FH LD (L9E53),A LD A,(L9E54) INC A CP 002H JR Z,L6457 ; (+013H) XOR A LD (L63F6),A LD (L9E68),A LD A,C L644C: RST 018H DB 01BH L644E: LD HL,(L9E51) CALL L63D6 JP L5878 L6457: LD (L9E54),A LD HL,(09E5BH) PUSH HL JP L5909 L6461: LD A,02EH L6463: LD HL,(L9E66) JR L646B ; (+003H) L6468: LD A,02EH POP DE L646B: PUSH AF PUSH HL RST 018H DB 002H RST 018H DB 020H LD DE,L63E9 RST 018H DB 005H POP HL CALL L596B JR Z,L6495 ; (+019H) LD (064B1H),HL LD HL,(L9E4B) LD (064ABH),HL LD HL,(L9E51) LD (064A5H),HL LD (L9E4D),HL POP AF LD (L63F6),A JP L644E L6495: POP AF JP L5878 L6499: POP DE LD HL,L63F6 LD A,(HL) OR A JP Z,06388H LD (HL),000H LD HL,L0000 LD (L9E51),HL LD HL,L0000 LD (L9E4B),HL LD HL,L0000 JP L58D4 L64B6: LD A,(L9E54) CP 002H JP C,06394H DEC A LD (L9E54),A CALL L5963 EX DE,HL LD HL,(L9E55) LD (L9E51),HL LD HL,(L9E57) LD (L9E4B),HL LD HL,(L9E59) JR NZ,L64DB ; (+004H) POP BC JP L58D8 L64DB: CP 08EH JP Z,L67FE EX DE,HL JP L69AF L64E4: CALL TESTX DB 080H CALL L5E19 JR Z,L64F7 ; (+00aH) LD (09E5BH),DE LD A,001H L64F3: LD (L9E54),A RET L64F7: LD A,(L9E54) DEC A JR Z,L64F3 ; (-00aH) XOR A LD (L9E54),A LD HL,(L9E55) LD (L9E51),HL LD A,(L9E53) JP L6403 L650D: CALL TEST1 DB 0FFH JP Z,L653F CALL L8B56 PUSH BC PUSH BC PUSH AF CALL TESTX DB SIOAD CALL L857C POP BC LD A,(L9E9C) CP B JP NZ,0636DH EX (SP),HL EX DE,HL CP 005H JR Z,L6537 ; (+008H) PUSH BC CALL L654A POP AF POP HL POP BC RET L6537: LD C,A LD B,000H LDIR POP HL POP BC RET L653F: CALL TESTX DB 0C4H JP L8AE2 L6546: PUSH DE EX DE,HL JR L654E ; (+004H) L654A: PUSH DE CALL L8570 L654E: LD HL,L11A3 LD (HL),A LD B,A LD C,A INC HL CALL LDHLDE POP HL LD A,(HL) CP C JR Z,L659F ; (+042H) PUSH HL OR A CALL NZ,L65AF POP HL LD A,(L11A3) OR A JR Z,L659C ; (+033H) PUSH HL LD BC,(VARST) SBC HL,BC EX DE,HL LD HL,(L1078) DEC HL DEC HL LD (HL),E INC HL LD (HL),D INC HL LD BC,(STRST) OR A POP DE PUSH HL SBC HL,BC EX DE,HL LD (HL),A LD B,A INC HL LD (HL),E INC HL LD (HL),D POP HL LD DE,L11A3 INC DE CALL L8BFC CALL L61C5 LD (L107A),HL LD (L1078),HL RET L659C: LD (HL),000H RET L659F: INC HL LD E,(HL) INC HL LD D,(HL) LD HL,(L1076) ADD HL,DE LD DE,L11A3 LD B,C INC DE JP L8BFC L65AF: LD C,(HL) LD B,000H INC BC INC BC INC HL LD E,(HL) INC HL LD D,(HL) LD HL,(L1076) ADD HL,DE DEC HL DEC HL LD E,L LD D,H ADD HL,BC PUSH BC PUSH DE EX DE,HL LD HL,(L1078) OR A SBC HL,DE LD C,L LD B,H EX DE,HL POP DE PUSH DE JR Z,L65D3 ; (+002H) LDIR L65D3: POP DE POP BC LD HL,(L1078) OR A SBC HL,BC LD (L1078),HL EX DE,HL L65DF: LD E,(HL) INC HL LD D,(HL) LD A,D OR E RET Z LD HL,(L1074) ADD HL,DE LD A,(HL) INC HL LD E,(HL) INC HL LD D,(HL) OR A EX DE,HL SBC HL,BC EX DE,HL LD (HL),D DEC HL LD (HL),E PUSH BC LD C,A LD B,000H LD HL,(L1076) ADD HL,DE ADD HL,BC POP BC JR L65DF ; (-023H) L6602: POP BC LD (06697H),BC CALL L650D LD IX,L0000 ADD IX,SP LD (06679H),HL CALL L6772 LD (06675H),BC L661A: LD E,(IX+000H) LD D,(IX+001H) LD HL,0FF12H OR A SBC HL,DE JR NZ,L6642 ; (+01aH) LD E,(IX+006H) LD D,(IX+007H) EX DE,HL OR A SBC HL,BC JR Z,L663B ; (+007H) LD DE,L0012 ADD IX,DE JR L661A ; (-021H) L663B: DB 011H LD (DE),A NOP ADD IX,DE LD SP,IX L6642: LD HL,(06679H) CALL TESTX DB LSE0 CALL L857C PUSH AF PUSH HL EX DE,HL LD DE,L677E CALL L79C5 POP HL POP AF CP LSE1 LD DE,L7C45 JR NZ,L6662 ; (+004H) INC HL CALL L857C L6662: LD (06679H),HL LD HL,0FFF6H ADD HL,SP LD SP,HL EX DE,HL CALL L79C5 LD HL,L677E CALL L79C5 LD HL,L0000 PUSH HL LD HL,L0000 PUSH HL LD HL,(L9E4B) PUSH HL LD HL,0FF12H PUSH HL LD HL,0FE00H ADD HL,SP LD DE,(TMPEND) SBC HL,DE LD A,00BH JP C,L63A9 LD HL,(06679H) JP L0000 L6699: LD A,005H LD (L9E9C),A POP BC LD (0670EH),BC L66A3: PUSH AF POP BC LD (06679H),HL LD IX,L0000 ADD IX,SP LD (066FDH),IX LD E,(IX+000H) LD D,(IX+001H) LD HL,0FF12H OR A SBC HL,DE JP NZ,0637CH PUSH BC POP AF JR NZ,L6724 ; (+05fH) LD E,(IX+004H) LD D,(IX+005H) EX DE,HL LD (0670BH),HL LD E,(IX+006H) LD D,(IX+007H) LD HL,(L1074) ADD HL,DE LD BC,00008H ADD IX,BC PUSH IX POP DE CALL L90BC INC DE LD A,(DE) LD IX,(066FDH) LD DE,0000DH ADD IX,DE PUSH IX POP DE BIT 7,A JR NZ,L66F7 ; (+001H) EX DE,HL L66F7: CALL L9153 JR C,L6710 ; (+014H) LD SP,L0000 LD HL,00002H ADD HL,SP LD A,(HL) INC HL LD H,(HL) LD L,A LD (L9E4B),HL LD HL,L0000 L670D: JP L0000 L6710: LD DE,L0012 LD HL,(066FDH) ADD HL,DE LD SP,HL LD HL,(06679H) CALL TEST1 DB 02CH JR NZ,L670D ; (-014H) LD (06679H),HL L6724: LD IX,L0000 ADD IX,SP LD (066FDH),IX LD HL,(06679H) CALL TEST1 DB 02CH JP Z,L66A3 CALL L8B56 LD (06679H),HL CALL L6772 LD IX,(066FDH) L6745: LD E,(IX+000H) LD D,(IX+001H) LD HL,0FF12H OR A SBC HL,DE JP NZ,0637CH LD L,(IX+006H) LD H,(IX+007H) OR A SBC HL,BC LD HL,(06679H) JP Z,L66A3 LD DE,L0012 ADD IX,DE LD (066FDH),IX LD SP,(066FDH) JR L6745 ; (-02dH) L6772: LD H,B LD L,C LD BC,(VARST) OR A SBC HL,BC LD B,H LD C,L RET L677E: NOP NOP NOP NOP NOP NOP NOP NOP NOP L6787: CALL L6A0A OR A RET NZ INC HL PUSH DE LD E,(HL) INC HL LD D,(HL) LD A,D OR E INC HL LD (06786H),DE LD E,(HL) INC HL LD D,(HL) LD (06784H),DE POP DE SCF RET Z JR L6787 ; (-01dH) L67A4: CALL L79A6 CALL L8551 LD (067DDH),DE CALL TEST1 DB 02CH JR NZ,L67CF ; (+01bH) CALL L857C CALL L9036 LD (067D2H),DE CALL TEST1 DB 02CH JR NZ,L67CF ; (+00bH) CALL L8B56 CALL L9036 LD (067E5H),BC XOR A L67CF: PUSH HL PUSH AF LD HL,L0000 CALL L8570 LD IX,ERRORJ XOR A CALL L0000 POP AF JR NZ,L67EA ; (+008H) LD A,B EX DE,HL LD DE,L0000 CALL L6546 L67EA: POP HL JP L79AA L67EE: CALL L8551 L67F1: LD A,D OR E RET Z LD B,0FBH L67F6: DJNZ L67F6 ; (-002H) RST 018H DB 00EH RET Z DEC DE JR L67F1 ; (-00dH) L67FE: DEC HL L67FF: CALL L6A0A OR A SCF RET Z CP 03AH RET Z JR L67FF ; (-00bH) L680A: CALL L853D SUB LSE0 CP 007H JP C,0636AH CALL L79B1 PUSH DE CALL L853D POP BC OUT (C),A RET L681F: CALL L853D CALL L79B1 PUSH DE CALL L8B56 CP 005H JP NZ,0636DH EX (SP),HL PUSH BC EX (SP),HL POP BC IN E,(C) LD D,000H CALL L79CB POP HL RET L683B: CALL L6843 EX DE,HL RST 018H DB 012H EX DE,HL RET L6843: LD B,018H LD C,027H LD A,(L137A) CP 003H JR C,L6850 ; (+002H) LD C,04FH L6850: CALL L6857 JP C,0636AH RET L6857: PUSH BC CALL L853D PUSH AF CALL L79B1 CALL L853D LD D,E POP AF LD E,A POP BC LD A,C CP E RET C LD A,B CP D RET L686C: CALL L8B56 LD (L9E9C),A CP 005H JR Z,L688B ; (+015H) PUSH HL PUSH BC LD A,0FFH RST 018H DB 00DH OR A JR Z,L6885 ; (+006H) LD HL,(L107A) LD (HL),A LD A,001H L6885: POP DE CALL L6546 POP HL RET L688B: PUSH HL PUSH BC LD A,0FFH RST 018H DB 00DH SUB 030H CP 00AH JR C,L6898 ; (+001H) XOR A L6898: LD E,A LD D,000H POP HL CALL L79CB POP HL RET L68A1: CALL L8551 CALL L79B4 L68A7: PUSH DE CALL L853D POP DE LD (DE),A INC DE CALL TEST1 DB 02CH RET NZ JR L68A7 ; (-00eH) L68B5: PUSH HL CALL TEST1 DB 04DH JR NZ,L68CE ; (+012H) CALL TEST1 DB 041H JR NZ,L68CE ; (+00cH) CALL TEST1 DB 058H JR NZ,L68CE ; (+006H) EX (SP),HL LD HL,(MEMMAX) JR L68EA ; (+01cH) L68CE: POP HL CALL L8551 PUSH HL LD HL,(MEMMAX) OR A SBC HL,DE JP C,L63A7 LD HL,(L107A) INC H INC H INC H INC H OR A SBC HL,DE JP NC,0636AH EX DE,HL L68EA: CALL L616E POP HL POP DE LD SP,(INTFAC) LD BC,0FFFFH PUSH BC PUSH DE RET L68F9: POP IX L68FB: POP BC PUSH BC LD A,B INC A JP NZ,0637FH LD A,C CP 012H JR Z,L6921 ; (+01aH) CP 0FEH JP NZ,0637FH POP BC CALL L5963 EX DE,HL POP HL LD (L9E51),HL POP HL LD (L9E4B),HL POP HL PUSH IX RET Z EX DE,HL JP L69AF L6921: EX DE,HL LD HL,L0012 ADD HL,SP LD SP,HL EX DE,HL JR L68FB ; (-02fH) L692A: PUSH HL CALL L67FE EX DE,HL POP HL POP BC PUSH DE EXX LD HL,(L9E4B) PUSH HL LD HL,(L9E51) PUSH HL LD HL,0FFFEH PUSH HL LD HL,0FE00H ADD HL,SP LD DE,(TMPEND) SBC HL,DE LD A,00AH JP C,L63A9 EXX PUSH BC JR L69AF ; (+05dH) L6952: CALL TEST1 DB 0C1H JP Z,L64E4 CALL L8551 LD C,E LD B,D CP 087H JP NC,L6364 CP 082H JR NZ,L6977 ; (+010H) CALL INCHLF LD E,081H CP LSE4 JR Z,L6976 ; (+006H) CP LSE0 JP NZ,L6364 DEC E L6976: LD A,E L6977: PUSH HL LD HL,L5C5B SUB 080H ADD A,A LD E,A LD D,000H ADD HL,DE CALL INDRCT EX (SP),HL INC HL LD A,B OR A JR NZ,L69AB ; (+020H) LD A,C OR A JR Z,L69AB ; (+01cH) LD B,A L6990: DEC B RET Z CALL HLFTCH CALL L69DB JP NZ,L6364 CALL L6A10 OR A RET Z INC HL CALL TEST1 DB 02CH JR Z,L6990 ; (-017H) POP DE JP L797A L69AB: POP DE JP L67FE L69AF: CALL L5E19 EX DE,HL JR NZ,L69B8 ; (+003H) LD HL,(L1070) L69B8: LD (L9E4B),HL XOR A LD (L63F6),A JP L5909 L69C2: CALL L857C EX AF,AF' LD A,(DE) OR A JR Z,L69EA ; (+020H) EX AF,AF' CP LSE2 JR NZ,L69D7 ; (+008H) L69CF: CALL INCHLF CALL L69DB JR Z,L69AF ; (-028H) L69D7: POP AF JP L58D4 L69DB: CP 022H RET Z L69DE: CP 00BH RET Z CP 00CH RET L69E4: CALL L69F3 JR NC,L69E4 ; (-005H) RET L69EA: DEC HL CALL L69F3 JR NC,L69CF ; (-021H) DB 0C3H LD B,059H L69F3: CALL L6A0A OR A SCF RET Z CP 0C2H RET Z CP 093H JR NZ,L69F3 ; (-00dH) CALL L69F3 RET C JR L69F3 ; (-013H) L6A06: INC HL LD A,(HL) JR L6A10 ; (+006H) L6A0A: INC HL LD A,(HL) CP 094H JR Z,L6A2F ; (+01fH) L6A10: OR A RET Z CP 022H JR Z,L6A4D ; (+037H) CP 0FEH JR NC,L6A2D ; (+013H) CP 097H JR Z,L6A2F ; (+011H) CP 027H JR Z,L6A2F ; (+00dH) CP 020H RET NC CP 00BH RET C CP 015H JR NC,L6A44 ; (+018H) INC HL L6A2D: INC HL RET L6A2F: LD A,(HL) OR A RET Z CP 03AH RET Z CP 022H JR Z,L6A3C ; (+003H) INC HL JR L6A2F ; (-00dH) L6A3C: CALL L6A4D OR A RET Z INC HL JR L6A2F ; (-015H) L6A44: AND 00FH ADD A,L LD L,A LD A,020H RET NC INC H RET L6A4D: INC HL LD A,(HL) OR A RET Z CP 022H RET Z JR L6A4D ; (-009H) L6A56: RST 018H DB 020H RET L6A59: CALL L797A RST 018H DB 028H RST 018H DB 000H RET L6A61: JR Z,L6A8D ; (+02aH) LD A,(L136F) LD D,000H LD E,A CALL TEST1 DB 02CH JR Z,L6A75 ; (+006H) CALL L853D CALL L79B1 L6A75: LD C,E PUSH BC CALL L853D POP BC DEC A JP M,0636AH ADD A,C CP 019H JP NC,0636AH LD B,A PUSH HL LD H,B LD L,C RST 018H DB 053H POP HL RET L6A8D: PUSH HL LD HL,$IOCS RST 018H DB 053H POP HL RET L6A95: DI OUT (LSE4),A JP L0000 L6A9B: XOR A LD BC,?SETDE LD (L6B83),A PUSH AF CALL L6EF9 RST 018H DB 02EH JP C,063A3H BIT 1,A JP Z,063A3H CALL TEST1 DB 02CH POP AF OR A JR NZ,L6ACD ; (+015H) CALL L8561 LD A,B LD (L6B7E),A LD (06B7FH),DE CALL L797A JR L6ACD ; (+005H) L6AC8: LD A,002H LD (L6B83),A L6ACD: CALL L5ED3 LD (06AF4H),DE LD (06B02H),BC LD A,0FFH LD (L1090),A CALL PUSHR LD HL,(L1070) L6AE3: CALL LDDEMI LD A,D OR E RET Z EX DE,HL ADD HL,DE DEC HL DEC HL EX DE,HL PUSH DE CALL LDDEMI PUSH HL LD HL,L0000 OR A SBC HL,DE JR C,L6B01 ; (+006H) JR Z,L6B01 ; (+004H) POP HL POP HL JR L6AE3 ; (-01eH) L6B01: LD HL,L0000 OR A SBC HL,DE JR NC,L6B0C ; (+003H) POP HL POP HL RET L6B0C: EX DE,HL CALL L7998 RST 018H DB 017H LD HL,L11A4 CALL LDHLDE LD (HL),020H INC HL EX DE,HL POP HL CALL L8401 LD A,(L6B83) OR A JR NZ,L6B2B ; (+005H) CALL L6B41 JR NC,L6B35 ; (+00aH) L6B2B: LD DE,L11A4 RST 018H DB 017H RST 018H DB 037H CALL L6DB1 L6B35: POP HL LD A,(L6B83) CP 002H JR Z,L6AE3 ; (-05aH) RST 018H DB 00FH JR L6AE3 ; (-05eH) L6B41: EX DE,HL L6B42: PUSH HL CALL L6B4C POP HL RET C RET Z INC HL JR L6B42 ; (-00aH) L6B4C: LD A,(L6B7E) LD B,A LD DE,(06B7FH) L6B54: LD A,(HL) INC HL OR A RET Z CP 005H JR Z,L6B60 ; (+004H) CP 006H JR NZ,L6B62 ; (+002H) L6B60: JR L6B54 ; (-00eH) L6B62: PUSH HL LD C,A L6B64: LD A,(DE) INC DE CP 005H JR Z,L6B6E ; (+004H) CP 006H JR NZ,L6B75 ; (+007H) L6B6E: DEC B SCF POP HL RET Z PUSH HL JR L6B64 ; (-011H) L6B75: SUB C POP HL OR A RET NZ DEC B SCF RET Z JR L6B54 ; (-02aH) L6B7E: NOP NOP NOP NOP NOP L6B83: NOP L6B84: CALL TESTX DB 087H CALL L7981 PUSH HL LD C,000H L6B8E: RST 018H DB 008H LD A,C ADD A,031H LD D,A LD E,020H CP 03AH JR NZ,L6B9D ; (+003H) LD DE,03031H L6B9D: LD (06C20H),DE LD DE,L6C18 RST 018H DB 00BH LD A,C CALL L6C77 LD B,(HL) INC HL PUSH BC CALL L6BBB POP BC INC C LD A,C CP 00AH JR NZ,L6B8E ; (-029H) RST 018H DB 008H POP HL RET L6BBB: LD A,B OR A LD C,000H JR NZ,L6BC8 ; (+007H) LD A,022H RST 018H DB 00AH RST 018H DB 00AH RET L6BC8: LD A,(HL) CP 020H JR C,L6BED ; (+020H) CP 022H JR Z,L6BED ; (+01cH) LD A,C CP 001H JR Z,L6BE0 ; (+00aH) OR A LD DE,L6C25 JR NZ,L6BDE ; (+002H) INC DE INC DE L6BDE: RST 018H DB 00BH L6BE0: LD A,(HL) RST 018H DB 00AH INC HL LD C,001H DJNZ L6BC8 ; (-020H) LD A,022H L6BEA: RST 018H DB 00AH RET L6BED: LD A,C CP 0FFH JR Z,L6C12 ; (+020H) OR A LD DE,L6C29 JR NZ,L6BFA ; (+002H) INC DE INC DE L6BFA: RST 018H DB 00BH PUSH BC PUSH HL LD L,(HL) LD H,000H CALL L7998 RST 018H DB 00BH POP HL POP BC INC HL LD C,0FFH DJNZ L6BC8 ; (-045H) LD A,029H JP L6BEA L6C12: DB 03EH DB 02CH DB 0DFH DB 00AH DB 018H DB LSE4 L6C18: DB "DEF KEY(" DS 2, 000H DB 029H DB 03DH DB 000H L6C25: DB 029H DB 02BH DB 022H DB 000H L6C29: DB 022H DEC HL LD B,E LD C,B LD D,D INC H JR Z,L6C31 ; (+000H) L6C31: CALL TEST1 DB 0B2H JR Z,L6C42 ; (+00bH) CALL TESTX DB 0FFH CALL TESTX DB 0C7H JP L8F44 L6C42: CALL TESTX DB 028H CALL L853D CALL TESTX DB 029H CALL TESTX DB SIOAD LD A,E DEC A CP 00AH JP NC,0636AH PUSH HL CALL L6C77 EX (SP),HL CALL L8561 EX (SP),HL LD A,B CP 010H JR C,L6C68 ; (+002H) LD A,00FH L6C68: LD (HL),A OR A JR Z,L6C74 ; (+008H) LD B,A INC HL L6C6E: LD A,(DE) LD (HL),A INC DE INC HL DJNZ L6C6E ; (-006H) L6C74: POP HL EI RET L6C77: ADD A,A ADD A,A ADD A,A ADD A,A LD HL,L12B2 JP ADDHLA L6C81: LD A,(L1042) CP 088H RET L6C87: CALL L857C LD A,(L9E9C) CP 003H PUSH HL EX DE,HL JR Z,L6C9A ; (+007H) CALL L7B5B POP HL RST 018H DB 017H RET L6C9A: CALL L8570 POP HL RET L6C9F: XOR A LD (L1090),A CALL L6EF9 RST 018H DB 02EH JP C,L6E2D BIT 2,A JP NZ,L7459 BIT 1,A JP Z,06E30H CALL L6F39 CALL L6C81 JR NZ,L6CD3 ; (+016H) LD A,(L137B) LD (L7591),A CALL TEST1 DB 05BH JR NZ,L6CD3 ; (+00aH) CALL L76D9 LD (L7591),A CALL TESTX DB 05DH L6CD3: CALL L5963 JP Z,L6DB1 L6CD9: LD A,(HL) CP LSE3 JR Z,L6D58 ; (+07aH) LD BC,L6CF2 PUSH BC CP 03BH RET Z CP 02CH RET Z CP 0E6H JR Z,L6D28 ; (+03cH) CALL L6C87 JP L6DB6 L6CF2: CALL L5963 JP Z,L6DB1 CP 02CH JR NZ,L6D18 ; (+01cH) CALL L6C81 JR C,L6D15 ; (+014H) LD IX,(ZDELT) CALL _IOCALL LD B,A L6D09: SUB 00AH JR NC,L6D09 ; (-004H) NEG LD B,A CALL L6D4A JR L6D18 ; (+003H) L6D15: CALL L6DB1 L6D18: LD A,(HL) CP 02CH JR Z,L6D1F ; (+002H) CP 03BH L6D1F: JR NZ,L6D22 ; (+001H) INC HL L6D22: CALL L5963 RET Z JR L6CD9 ; (-04fH) L6D28: CALL L6C81 JP C,06E30H CALL L79A2 CALL L853D CALL L79AA LD IX,(ZDELT) CALL _IOCALL SUB E RET NC NEG LD B,A CALL L6C81 LD A,013H JR Z,L6D4C ; (+002H) L6D4A: LD A,020H L6D4C: LD DE,L11A5 PUSH BC PUSH DE CALL ?SETDE POP DE POP BC JR L6DB6 ; (+05eH) L6D58: INC HL CALL L8561 LD A,B OR A JP Z,0636AH PUSH HL LD HL,L11A5 L6D65: PUSH HL PUSH BC CALL LDHLDE POP BC LD A,LSPAL LD E,B LD D,000H INC DE RST 018H DB 02AH LD (L7E39),HL LD (L7E3B),HL POP DE CALL LDHLDE LD (HL),000H POP HL L6D80: CALL L5963 JR Z,L6DA7 ; (+022H) INC HL CP 02CH JR Z,L6D8F ; (+005H) CP 03BH JP NZ,L6364 L6D8F: CALL L5963 JR Z,L6DAA ; (+016H) CALL L8584 PUSH HL LD BC,(TMPEND) PUSH BC CALL L7E3D POP DE CALL L6DB4 POP HL JR L6D80 ; (-027H) L6DA7: CALL L6DB1 L6DAA: LD A,LSPAL RST 018H DB 02BH RET L6DAF: DEC C NOP L6DB1: LD DE,L6DAF L6DB4: RST 018H DB 017H L6DB6: CALL L6C81 JR Z,L6DBE ; (+003H) RST 018H DB 037H RET L6DBE: PUSH AF LD A,(L7591) RST 018H DB 054H POP AF RST 018H DB 037H LD A,(L137B) RST 018H DB 054H RET L6DCD: LD A,08AH LD (L1042),A JR L6E0B ; (+037H) L6DD4: CALL L6EF9 RST 018H DB 02EH JP C,L6E2D BIT 2,A JP NZ,L746A BIT 0,A JP Z,06E30H CALL L6F39 CALL L6C81 JR NZ,L6E0B ; (+01dH) CALL HLFTCH CP 022H LD DE,L6E35 LD B,002H JR NZ,L6E01 ; (+007H) CALL L8561 CALL TESTX DB 03BH L6E01: LD A,B OR A JR Z,L6E0B ; (+006H) L6E05: LD A,(DE) INC DE RST 018H DB 003H DJNZ L6E05 ; (-006H) L6E0B: LD (06E64H),SP LD DE,(VARED) LD (TMPEND),DE L6E17: LD DE,(TMPEND) CALL L8C08 CALL L8B56 PUSH AF PUSH BC CALL L5963 JR Z,06E37H ; (+00fH) CALL L79B4 JR L6E17 ; (-016H) L6E2D: LD A,02CH LD HL,0BB3EH JP ERRORJ L6E35: CCF JR NZ,06DE7H ; (-051H) PUSH AF PUSH HL RST 018H DB 034H LD HL,(06E64H) DEC HL L6E40: LD A,(HL) OR A JR Z,L6E62 ; (+01eH) DEC HL DEC HL LD B,(HL) DEC HL LD C,(HL) DEC HL PUSH HL PUSH AF PUSH BC LD DE,(TMPEND) CALL L6E67 LD H,000H LD L,B ADD HL,DE LD (HL),000H POP DE POP AF CALL L6E71 POP HL JR L6E40 ; (-022H) L6E62: POP HL LD SP,L0000 RET L6E67: LD A,(L1042) CP 08AH JR Z,L6EB0 ; (+042H) RST 018H DB 035H RET L6E71: CP 003H JR NZ,L6E7C ; (+007H) LD HL,(L107A) LD A,B JP L6546 L6E7C: PUSH DE LD HL,(L107C) LD DE,(TMPEND) EX DE,HL CALL HLFTCH CP 045H JP Z,0636AH EX DE,HL CALL L7A0E EX DE,HL CALL TEST1 DB 000H JP NZ,0636AH EX DE,HL POP DE JP L79C5 L6E9E: XOR A LD (L9E5D),A CALL L5963 CALL NZ,L5E19 EX DE,HL CALL NZ,L6EE0 EX DE,HL JP L67FE L6EB0: PUSH HL PUSH DE CALL L6EBE POP DE POP HL RET L6EB8: LD HL,(L1070) CALL L6EE0 L6EBE: LD A,(L9E5D) CP 001H JP Z,0639AH JR C,L6EB8 ; (-010H) LD HL,(L9E5E) LD C,03AH RST 018H DB 036H LD (L9E5E),HL CALL L5963 SCF CCF RET NZ DEC HL L6ED9: CALL L6A06 OR A JR NZ,L6EEB ; (+00cH) INC HL L6EE0: LD A,(HL) INC HL OR (HL) LD A,001H JR Z,L6EF5 ; (+00eH) INC HL INC HL JR L6ED9 ; (-012H) L6EEB: CP 094H JR NZ,L6ED9 ; (-016H) INC HL LD (L9E5E),HL LD A,002H L6EF5: LD (L9E5D),A RET L6EF9: CALL TEST1 DB 023H JR NZ,L6F24 ; (+025H) CALL HLFTCH CP 020H JP NC,L6364 PUSH DE PUSH BC LD DE,L9E9D PUSH DE CALL L874C EX (SP),HL CALL L7BEA LD A,H OR A JP NZ,063A3H OR L JP Z,063A3H JP M,063A3H POP HL POP BC POP DE RET L6F24: CALL TEST1 DB 0FBH LD A,088H RET NZ CALL TEST1 DB 050H LD A,089H RET Z CALL TESTX DB 054H LD A,080H RET L6F39: LD A,(L1042) OR A RET M JP L79B1 L6F41: CALL L6FB1 RST 018H DB 03AH RET L6F47: CALL L5963 LD B,000H CALL NZ,L8561 PUSH HL RST 018H DB 02CH RST 018H DB 03CH POP HL RET L6F56: LD A,001H LD BC,L023E LD BC,L043E PUSH AF LD (L1043),A CALL L6EF9 CP 088H JR NZ,L6F6B ; (+002H) LD A,080H L6F6B: LD (L1042),A CALL L6F39 CALL L6FA4 POP AF CP 004H JR Z,L6F7B ; (+002H) L6F79: LD A,003H L6F7B: LD (L1000),A PUSH AF RST 018H DB 033H LD A,(L1000) POP BC CP B JP NZ,063D1H RET L6F8A: OR 0AFH LD B,A CALL L5963 JR Z,L6FA0 ; (+00eH) L6F92: CALL L6EF9 CP 088H RET NC RST 018H DB 038H CALL TEST1 DB 02CH JR L6F92 ; (-00eH) L6FA0: XOR A RST 018H DB 038H RET L6FA4: CALL L5F15 LD B,000H CALL NZ,L8561 PUSH HL RST 018H DB 02DH POP HL RET L6FB1: PUSH HL CALL HLFTCH LD DE,L6FF9 LD B,001H CALL L6FEC CALL NC,L6FEC JR C,L6FD9 ; (+017H) CALL L6FEC CALL L79F6 CALL L6FF2 CALL L5963 JR NZ,L6FD9 ; (+009H) LD A,03AH LD (DE),A POP AF LD DE,L6FF9 JR L6FE2 ; (+009H) L6FD9: POP HL CALL L5963 LD B,000H CALL NZ,L8561 L6FE2: PUSH HL RST 018H DB 02CH INC (HL) DEC (HL) JP NZ,063A0H POP HL RET L6FEC: CP 041H RET C CP 05BH CCF L6FF2: RET C LD (DE),A INC HL INC DE LD A,(HL) INC B RET L6FF9: NOP NOP NOP NOP L6FFD: CALL TEST1 DB LSE5 JR NZ,L7007 ; (+004H) XOR A L7004: RST 018H DB 03BH RET L7007: CALL L6FA4 CALL TEST1 DB 02CH JP Z,L70C5 PUSH HL CALL L7314 DEC A JR Z,L7027 ; (+00fH) DEC A JP NZ,063D1H CALL L7340 CALL L731D CALL L7349 JR L7043 ; (+01cH) L7027: LD HL,(ELMD22) PUSH HL LD DE,(MEMLMT) CALL L704D LD DE,(ELMD20) LD BC,(MEMMAX) CALL NC,L7048 JP C,0638BH POP HL RST 018H DB 030H L7043: CALL L737C POP HL RET L7048: ADD HL,DE RET C EX DE,HL LD H,B LD L,C L704D: PUSH HL OR A SBC HL,DE POP HL RET L7053: CALL L6FA4 CALL L7314 CP 002H JP NZ,063D1H LD A,(L9E68) OR A JP Z,L718B JP L74F3 L7068: CALL L7340 CALL L6FA4 CALL TEST1 DB 02CH JR Z,070CBH ; (+057H) RST 018H DB 02FH CP 002H JP NZ,063D1H PUSH HL LD HL,(L1078) LD (L107A),HL LD BC,003E8H ADD HL,BC JP C,L63A7 PUSH HL LD BC,(ELMD20) INC B ADD HL,BC JP C,L63A7 SBC HL,SP JP NC,L63A7 POP HL PUSH HL RST 018H DB 030H POP HL CALL L70A2 POP HL RET L70A2: CALL LDDEMI LD A,D OR E RET Z PUSH DE CALL LDDEMI PUSH HL LD H,D LD L,E LD (L9E4D),HL CALL L622C POP HL POP BC PUSH BC PUSH HL CALL L6003 POP HL POP BC ADD HL,BC DEC HL DEC HL DEC HL DEC HL JR L70A2 ; (-023H) L70C5: CALL L7340 LD A,001H LD BC,L003E LD BC,L023E PUSH AF CALL TESTX DB 041H CALL L797A LD A,001H LD (L1043),A LD A,081H LD (L1042),A CALL L6F79 POP AF PUSH AF PUSH HL LD HL,L0000 LD DE,0FFFFH OR A CALL NZ,L622C LD A,081H RST 018H DB 02EH LD HL,(L1078) LD (L107A),HL LD BC,003E8H ADD HL,BC JP C,06373H PUSH HL LD (L7169),HL L7107: LD HL,0FE00H ADD HL,SP LD DE,(07169H) SBC HL,DE JP C,06373H LD DE,(TMPEND) RST 018H DB 035H LD A,B OR A JR Z,L7154 ; (+036H) CALL L8532 LD A,B OR C JP Z,0636AH LD HL,(L7169) PUSH HL INC HL INC HL LD (HL),C INC HL LD (HL),B INC HL PUSH HL LD H,D LD L,E CALL TEST1 DB 000H JP Z,0636AH POP HL LD A,(DE) CP 020H JR NZ,L7141 ; (+001H) INC DE L7141: CALL L8216 LD (HL),000H INC HL LD (L7169),HL POP DE OR A SBC HL,DE EX DE,HL LD (HL),E INC HL LD (HL),D JR L7107 ; (-04dH) L7154: LD HL,(L7169) CALL L61C5 CALL L619B POP HL CALL L70A2 POP HL POP AF CP 002H RET NZ JP L607C L7169: NOP NOP L716B: CALL L6FA4 PUSH HL CALL TEST1 DB 02CH JR NZ,L717D ; (+008H) CALL HLFTCH CP 041H JP Z,070CEH L717D: CALL L7314 POP HL DEC A JR Z,L7194 ; (+010H) DEC A JP NZ,063D1H CALL L731D L718B: CALL L7349 CALL L737C JP L607C L7194: LD D,000H LD BC,0FF00H CALL TEST1 DB 02CH JR NZ,L71A8 ; (+009H) CALL TESTX DB 052H LD D,001H LD BC,0CFF0H L71A8: LD A,D LD (L11A4),A LD HL,(L1014) LD DE,(ELMD22) PUSH HL CALL L7048 POP DE LD HL,$START LD BC,0FF00H CALL NC,L7048 JP C,L63A7 LD SP,L0000 CALL L61A3 XOR A LD (L733F),A LD A,036H OUT (0D7H),A LD A,001H OUT (LSD3),A LD HL,(ELMD22) LD DE,(TMPEND) CALL L704D JR NC,L71F3 ; (+011H) PUSH HL LD HL,$START LD (L1070),HL CALL L61A3 LD HL,L122C LD (L004F),HL POP HL L71F3: LD DE,(TMPEND) CALL L704D JR NC,L71FD ; (+001H) EX DE,HL L71FD: PUSH AF PUSH HL LD HL,L720C LD DE,L11A5 PUSH DE LD BC,L00D0 LDIR RET L720C: POP HL RST 018H DB 030H LD A,0C3H LD HL,0038DH LD (L1038),A LD (L1039),HL LD A,001H RST 018H DB 050H RST 018H DB 010H EX AF,AF' LD A,(L11A4) OR A CALL NZ,L1246 EX AF,AF' LD HL,(L1018) LD A,H OR L EXX LD HL,(L107A) LD DE,(ELMD22) LD BC,(ELMD20) OR D OR E JR Z,L7243 ; (+005H) LD A,0E9H LD (L123E),A L7243: EXX POP AF PUSH HL LD HL,L11EE LD DE,0FF00H LD BC,L0058 LDIR EXX JP 0FF00H JR NC,L7259 ; (+002H) LDIR L7259: EX AF,AF' RET Z IN A,(LSDMD) AND 002H LD A,000H OUT (LSDMD),A LD HL,0FF53H LD BC,00005H JR NZ,L7284 ; (+019H) LD A,008H OUT (LSDMD),A IN A,(LSE0) LD HL,L1000 LD DE,0C000H LD BC,L1000 LDIR IN A,(LSE1) LD HL,0FF45H LD BC,0000EH L7284: LD DE,0CFF0H LDIR POP HL LD SP,L10F0 LD DE,ARAM JP 0CFF0H RST 018H DB 01BH RST 018H DB 043H RST 018H DB 010H HALT OUT (LSE4),A L729C: LD A,071H LD (DE),A INC DE LD A,D CP LSE0 JR NZ,L729C ; (-009H) OUT (LSE0),A JP (HL) OUT (LSE0),A OUT (LSE3),A JP (HL) PUSH AF DI IM 1 LD HL,L1253 LD B,011H DW L24DF DW 0C9F1H DW 0FC00H DW 0FCCFH DW 0FC3FH DW 0FC07H DW 0FD00H DW 0FDCFH DW 0FD00H DW 0FD07H DW 0D774H DW 0D7B0H DW 0D6C0H L72D0: DW 0D6A8H DW 0D5FBH L72D4: DW 0D53CH DW 0D305H LD BC,001CDH CALL Z,0782AH DJNZ L7302 ; (+022H) LD A,D DJNZ L72D0 ; (-013H) LD E,E LD (HL),D DJNZ L72D4 ; (-013H) LD D,E ADD HL,SP LD (HL),E OR A SBC HL,DE LD (L733B),HL LD HL,0FF00H ADD HL,SP LD (L733D),HL LD DE,(VARED) PUSH HL OR A SBC HL,DE JP C,L63A7 L7302: EX (SP),HL EX DE,HL LD BC,(0733BH) INC BC LDDR POP DE RST 018H DB 018H LD A,001H LD (L733F),A RET L7314: CALL 072DCH RST 018H DB 02FH LD A,(L1000) RET L731D: LD HL,(L1078) XOR A DEC HL LD (HL),A DEC HL LD (HL),A LD (L1076),HL DEC HL LD (HL),A LD (L1074),HL DEC HL LD (HL),A LD (L1072),HL LD HL,00004H LD (L733B),HL RET L7339: NOP NOP L733B: NOP NOP L733D: NOP NOP L733F: NOP L7340: PUSH AF CALL L596B JP NZ,0638EH POP AF RET L7349: LD BC,(ELMD20) PUSH BC LD HL,(L1072) LD DE,(TEXTST) OR A SBC HL,DE LD L,000H SBC HL,BC JP C,L63A7 LD HL,L0000 LD (L7339),HL CALL L6090 LD HL,L0000 LD (L9E51),HL LD HL,(L1070) RST 018H DB 030H POP BC LD HL,(L1070) ADD HL,BC LD (L7339),HL RET L737C: LD A,081H LD B,000H RST 018H DB 038H LD HL,L733F LD A,(HL) OR A RET Z LD (HL),000H LD HL,(L7339) LD A,H OR L JR NZ,L7397 ; (+006H) LD HL,(L1070) CALL L61C5 L7397: EX DE,HL LD HL,(L1072) LD BC,(0733BH) LDIR EX DE,HL OR A SBC HL,DE EX DE,HL RST 018H DB 018H RET L73A9: PUSH HL CALL L5F2F POP HL CALL L6FA4 PUSH HL RST 018H DB 02FH CP 002H JP NZ,063D1H LD HL,(L1070) RST 018H DB 032H POP HL RET L73C0: CALL TEST1 DB LSE5 LD A,001H JP Z,L7004 PUSH HL CALL L5F2F POP HL CALL L6FA4 CALL TEST1 DB 02CH JR Z,L73F6 ; (+01fH) PUSH HL LD A,002H LD (L1000),A LD HL,(L1072) LD DE,(TEXTST) OR A SBC HL,DE LD (L1014),HL LD A,(L1001) CP 00DH JP Z,063CEH RST 018H DB 031H POP HL RET L73F6: CALL TESTX DB 041H PUSH HL LD A,002H LD (L1043),A LD A,081H LD (L1042),A CALL L6F79 POP HL CALL L6AC8 CALL L6DB1 LD B,001H LD A,081H RST 018H DB 038H RET L7416: XOR A LD BC,?SETDE PUSH AF CALL L8561 RST 018H DB 02DH POP AF RST 018H DB 03FH RET L7424: CALL L6EF9 PUSH AF RST 018H DB 02EH JP C,L6E2D BIT 1,A JP Z,06E30H CALL L6F39 CALL L6FB1 LD B,A XOR A RST 018H DB 039H LD A,B RST 018H DB 03AH POP AF RST 018H DB 039H RET L7443: CALL L8561 RST 018H DB 02DH RST 018H DB 03DH RET L744B: CALL L8561 RST 018H DB 02DH CALL L79B1 CALL L8561 RST 018H DB 03EH RET L7459: CALL L748F L745C: CALL L6C87 RST 018H DB 042H CALL L5963 RET Z CALL L79B4 JR L745C ; (-00eH) L746A: CALL L748F LD DE,(TMPEND) CALL L8C08 L7474: CALL L8B56 PUSH HL PUSH AF PUSH BC LD DE,(TMPEND) RST 018H DB 041H POP DE POP AF CALL L6E71 POP HL CALL L5963 RET Z CALL L79B4 JR L7474 ; (-01bH) L748F: CALL TEST1 DB 028H RET NZ CALL L8551 LD A,D OR E JP Z,0636AH RST 018H DB 040H CALL L79AA CALL TEST1 DB 02CH RET L74A6: LD A,(L9E68) OR A JP NZ,0639DH PUSH HL LD B,000H RST 018H DB 02CH LD (0755BH),DE LD (L755D),A LD HL,(L1072) LD DE,(TEXTST) XOR A SBC HL,DE LD (L1014),HL RST 018H DB 044H POP HL CALL L6FA4 CALL L797A LD A,(L1050) BIT 5,A JP Z,06E30H PUSH HL LD HL,(09E62H) ADD HL,SP LD SP,HL EX DE,HL LD HL,L9E4B LD BC,(09E60H) LDIR CALL L7314 CP 002H JP NZ,063D1H LD (074F4H),SP L74F3: LD SP,L0000 CALL L7349 CALL L737C LD HL,0FFFDH PUSH HL PUSH HL LD A,001H LD (L9E68),A LD HL,(L1070) JP L5909 L750C: XOR A LD (L9E68),A POP IX L7512: POP BC LD A,B CP 0FFH JP NZ,0639DH LD A,C CP 0FDH JR Z,L7531 ; (+013H) CP 0FEH LD HL,00004H JR Z,L752D ; (+008H) CP 012H LD HL,00010H JP NZ,0639DH L752D: ADD HL,SP LD SP,HL JR L7512 ; (-01fH) L7531: LD DE,(0755BH) LD A,(L755D) RST 018H DB 03AH LD B,000H RST 018H DB 02CH CALL 072DCH OR 0FFH RST 018H DB 044H CALL L7349 CALL L737C LD HL,L0000 ADD HL,SP LD DE,L9E4B LD BC,(09E60H) LDIR LD SP,HL POP HL RET NOP NOP L755D: NOP L755E: POP HL PUSH HL LD (L004F),HL LD A,031H CALL L7574 LD A,032H CALL L7574 LD DE,L758B LD B,005H JR L757C ; (+008H) L7574: LD (L7581),A LD DE,L757F DB 006H DB 00CH L757C: DB 0C3H DB 04FH DB 06FH L757F: DB 052H DB 053H L7581: DB "?:0,$8C,13" L758B: DB 043H DB 04DH LD D,H LD A,(00054H) L7591: INC BC L7592: OR 0AFH PUSH AF CALL L75FB RST 018H DB 047H POP AF PUSH HL EXX RST 018H DB 048H POP HL RET L75A1: OR 0AFH LD (075B7H),A CALL L75FB CALL L79B1 L75AC: EXX PUSH HL PUSH DE EXX CALL L75FE POP DE EX (SP),HL EXX LD A,000H RST 018H DB 049H POP HL CALL TEST1 DB 02CH JR Z,L75AC ; (-015H) RST 018H DB 047H RET L75C4: CALL L768A CALL L8551 XOR A BIT 7,D JR Z,L75D8 ; (+009H) PUSH HL LD H,A LD L,A SBC HL,DE EX DE,HL POP HL LD A,001H L75D8: EX AF,AF' LD A,D OR A JR NZ,L7616 ; (+039H) LD A,E PUSH AF EX AF,AF' PUSH AF CALL L79B1 CALL L8561 POP AF LD C,A POP AF PUSH HL LD H,C RST 018H DB 04AH POP HL CALL L5963 JR NZ,L75C4 ; (-030H) RET L75F5: CALL L75FE RST 018H DB 047H RET L75FB: CALL L768A L75FE: CALL L760F PUSH DE CALL TEST1 DB 02CH CALL L760F PUSH DE EXX POP HL POP DE EXX RET L760F: CALL L8551 LD A,D ADD A,040H RET P L7616: JP 0636AH L7619: CALL L5963 JP Z,L6364 CALL L7640 CALL L76DE AND 003H PUSH AF LD A,(L137E) LD D,E SRL D SRL D CP D JP NZ,06397H CALL TESTX DB 02CH CALL L7640 LD B,A POP AF RST 018H DB 052H RET L7640: CALL L853D CP 010H JR NC,L7616 ; (-031H) RET L7648: CALL L75FB EXX PUSH HL PUSH DE EXX CALL L79B1 CALL L75FE EXX PUSH HL PUSH DE EXX CALL L5963 JR Z,L766B ; (+00dH) CALL L79B4 CALL L5963 LD A,(L7591) CALL NZ,L76D9 SCF L766B: EXX POP DE POP HL EXX POP DE EX (SP),HL RST 018H DB 04BH POP HL RET L7675: CALL L76B4 LD A,(L7591) RST 018H DB 054H LD (L137B),A LD A,(L109A) LD (07590H),A CALL L797A RET L768A: CALL TEST1 DB 02CH CALL TEST1 DB 05BH JR NZ,L76A5 ; (+011H) CALL L76B4 LD A,(L7591) RST 018H DB 055H CALL TESTX DB 05DH CALL TEST1 DB 02CH RET L76A5: LD A,(L137B) LD (L7591),A RST 018H DB 055H L76AD: LD A,(07590H) LD (L109A),A RET L76B4: CALL TEST1 DB 02CH JR Z,L76D1 ; (+017H) CALL L76D9 LD (L7591),A CALL TEST1 DB 02CH JR NZ,L76AD ; (-019H) L76C6: CALL L853D CP 002H JR NC,L76FA ; (+02dH) LD (L109A),A RET L76D1: LD A,(L137B) LD (L7591),A JR L76C6 ; (-013H) L76D9: PUSH BC CALL L853D POP BC L76DE: LD A,(L1379) RRA JR C,L76EA ; (+006H) RRA JR C,L76F0 ; (+009H) RRA JR C,L76F6 ; (+00cH) L76EA: LD A,E CP 004H JR NC,L76FA ; (+00bH) RET L76F0: LD A,E CP 010H JR NC,L76FA ; (+005H) RET L76F6: LD A,E CP 002H RET C L76FA: JP 0636AH L76FD: CALL L768A CALL L75F5 LD B,000H LD DE,L773C PUSH DE CALL L5963 JR Z,L7735 ; (+027H) L770E: CALL L79B4 PUSH DE CALL L76D9 POP DE LD (DE),A INC DE INC B LD A,B CP 010H JP Z,L6364 CALL L5963 JR NZ,L770E ; (-016H) L7724: EX (SP),HL PUSH HL LD HL,0FDF1H ADD HL,SP LD (L137C),HL POP HL RST 018H DB 04CH JP C,06373H POP HL RET L7735: LD A,(L7591) LD (DE),A INC B JR L7724 ; (-018H) L773C: NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP L774C: PUSH HL LD HL,L0000 LD (0782FH),HL LD (07829H),HL LD (0782CH),HL LD (07833H),HL LD (07836H),HL LD HL,L7905 CALL L909E LD HL,L98C1 LD DE,L790A CALL L79C5 POP HL CALL L75FB RST 018H DB 047H CALL L79B1 CALL L8551 PUSH HL LD A,D AND 0C0H JP NZ,0636AH EX DE,HL LD (0783AH),HL LD (07829H),HL LD (07833H),HL LD HL,(L107C) LD DE,L78F1 CALL L79C5 POP HL CALL L5963 JP Z,L77EB CALL L79B4 CALL TEST1 DB 02CH JR Z,L77B0 ; (+00cH) CALL L7841 CALL L5963 JP Z,L77EB CALL L79B4 L77B0: CALL TEST1 DB 02CH JR Z,L77CA ; (+014H) LD IX,07829H LD IY,L7905 CALL L788E CALL L5963 JP Z,L77EB CALL L79B4 L77CA: CALL TEST1 DB 02CH JR Z,L77E4 ; (+014H) LD IX,07833H LD IY,L790A CALL L788E CALL L5963 JP Z,L77EB CALL L79B4 L77E4: CALL TESTX DB 04FH SCF JR L77EC ; (+001H) L77EB: XOR A L77EC: PUSH HL PUSH AF LD HL,L7905 LD DE,L790A CALL L90B3 CALL L79C5 LD A,(L7905) OR A LD B,000H JR Z,L781E ; (+01cH) LD HL,L7906 RES 7,(HL) DEC HL LD DE,L98C6 CALL L9153 LD B,001H JR C,L781E ; (+00cH) LD DE,L98C1 CALL L9153 LD B,002H JR C,L781E ; (+002H) LD B,003H L781E: LD A,(0790BH) AND 080H OR B LD B,A POP AF LD A,B EXX LD DE,L0000 LD HL,L0000 LD BC,L0000 EXX LD DE,L0000 LD HL,L0000 LD IX,L0000 RST 018H DB 04DH POP HL OR A RET L7841: CALL L8551 CALL PUSHR LD HL,(L107C) INC HL BIT 7,(HL) JP NZ,0636AH DEC HL LD DE,L7C45 CALL L9153 RET Z LD A,001H JR C,L7870 ; (+014H) LD HL,L7C45 LD DE,L78F6 PUSH DE CALL L79C5 POP HL LD DE,(INTFAC) CALL L93D5 LD A,002H L7870: LD (0782FH),A LD DE,L78FB CALL L92EA LD DE,L7900 CALL L90BC CALL L7BEA LD A,L LD (07830H),A BIT 0,H RET Z XOR A LD (0782FH),A RET L788E: PUSH IX PUSH IY CALL L8551 POP DE POP IX PUSH HL PUSH IX LD HL,(L107C) CALL L79C5 LD HL,(L107C) LD D,H LD E,L INC DE INC DE INC DE INC DE INC DE CALL L79C5 CALL L96F9 LD DE,L78F1 CALL L92EA CALL L78D0 LD HL,(L107C) CALL L9709 LD DE,L78F1 CALL L92EA CALL L90A6 CALL L78D0 POP IX POP HL RET L78D0: INC HL BIT 7,(HL) PUSH AF RES 7,(HL) DEC HL LD DE,L7900 CALL L90BC POP AF INC HL JR Z,L78E3 ; (+002H) SET 7,(HL) L78E3: DEC HL CALL L7BEA EX DE,HL POP HL EX (SP),HL LD (HL),E INC HL DB 072H DS 2, 023H DB LSE3 DB 0E9H L78F1: DS 5, 000H L78F6: DS 5, 000H L78FB: DB 089H DS 4, 000H L7900: DB 080H DS 2, 000H DB 0A7H DB 0C6H L7905: DB 000H L7906: DS 4, 000H L790A: DS 5, 000H L790F: DB LSRF DB 0FBH DB 075H DB 0DFH DB 047H DB LSRF DB 0B1H DB 079H DB LSRF DB 061H DB 085H LD A,B OR A PUSH BC PUSH HL LD C,B LD B,000H LD HL,L27D0 EX DE,HL JR Z,L7929 ; (+002H) LDIR L7929: POP HL CALL L79B1 CALL L853D LD A,D OR E JR Z,L793D ; (+009H) PUSH DE CALL L79B1 CALL L853D LD A,D OR E L793D: JP Z,0636AH LD A,E POP DE LD D,A CALL L5963 PUSH DE JR Z,07957H ; (+00eH) CALL L79B1 CALL L853D LD A,003H CP E JP C,0636AH LD A,E LD B,0AFH POP DE POP BC LD C,A LD A,B OR A RET Z LD A,C PUSH HL EX DE,HL LD DE,L27D0 RST 018H DB 057H POP HL RET L7968: CALL L797A PUSH HL LD A,000H RST 018H DB 04FH POP HL RET L7972: CALL L797A PUSH HL RST 018H DB 045H POP HL RET L797A: CALL L5963 RET Z JP L6364 L7981: XOR A LD (L1091),A CALL TEST1 DB 0FBH RET NZ CALL TESTX DB 050H CALL LA007 LD A,050H LD (L1091),A CP A RET L7998: LD DE,L9E6A LD B,000H PUSH DE RST 018H DB 016H POP DE RET L79A2: INC HL L79A3: CALL HLFTCH L79A6: CP 028H JR L79B6 ; (+00cH) L79AA: CALL HLFTCH L79AD: CP 029H JR L79B6 ; (+005H) L79B1: CALL HLFTCH L79B4: CP 02CH L79B6: INC HL RET Z JP L6364 L79BB: INC DE L79BC: LD A,(DE) CP 020H JR Z,L79BB ; (-006H) RET L79C2: LD HL,L7C45 L79C5: LD BC,00005H LDIR RET L79CB: CALL L909E LD A,E OR D RET Z BIT 7,D LD A,07FH JR Z,L79E0 ; (+009H) LD A,D CPL LD D,A LD A,E CPL LD E,A INC DE LD A,0FFH L79E0: LD B,091H L79E2: DEC B BIT 7,D JR NZ,L79ED ; (+006H) RL E RL D JR L79E2 ; (-00bH) L79ED: LD (HL),B INC HL AND D LD (HL),A INC HL LD (HL),E DEC HL DEC HL RET L79F6: CP 030H RET C CP 03AH CCF RET L79FD: CP 05FH RET Z CP 030H RET C CP 05BH CCF RET C CP 03AH CCF RET NC CP 041H RET L7A0E: CALL L909E LD (L7E34),A LD (L7E35),A LD (L7E36),A LD (07AB6H),A LD A,005H LD (L9E9C),A L7A22: CALL L79BC INC DE CP 02BH JR Z,L7A22 ; (-008H) CP 02DH JR NZ,L7A34 ; (+006H) CALL L7A22 JP L90A9 L7A34: CP 024H JR NZ,L7A44 ; (+00cH) PUSH HL EX DE,HL RST 018H DB 014H EX (SP),HL CALL L79CB POP DE LD A,005H RET L7A44: CP 030H JR NZ,L7A4E ; (+006H) LD A,(DE) INC DE JR L7A44 ; (-008H) L7A4C: LD A,(DE) INC DE L7A4E: CP 020H JR Z,L7A4C ; (-006H) CP 02EH JR Z,L7A71 ; (+01bH) CALL L79F6 JR C,L7AAB ; (+050H) SUB 030H CALL L7BDD CALL L7B47 LD A,001H LD (L7E35),A LD A,(L7E34) INC A LD (L7E34),A JR L7A4C ; (-025H) L7A71: LD A,001H LD (07AB6H),A LD C,A L7A77: LD A,(DE) INC DE CP 020H JR Z,L7A77 ; (-006H) CALL L79F6 JR C,L7AA3 ; (+021H) INC C SUB 030H JR Z,L7A8E ; (+007H) PUSH AF LD A,001H LD (L7E35),A POP AF L7A8E: PUSH AF LD A,(L7E35) LD B,A LD A,(L7E34) ADD A,B LD (L7E34),A POP AF CALL L7BDD CALL L7B47 JR L7A77 ; (-02cH) L7AA3: DEC C JR Z,L7AAB ; (+005H) CALL L7B31 JR L7AA3 ; (-008H) L7AAB: CP 045H JR Z,L7ABC ; (+00dH) L7AAF: DEC DE LD A,(L7E36) OR A RET NZ LD A,000H OR A RET NZ LD A,005H RET L7ABC: LD A,(DE) CP 02DH JR Z,L7ACA ; (+009H) CP 02BH JR Z,L7ACA ; (+005H) CALL L79F6 JR C,L7AAF ; (-01bH) L7ACA: LD A,001H LD (07AB6H),A PUSH HL LD HL,L92EA LD (07B2AH),HL LD HL,L0000 LD A,(DE) INC DE CP 02BH JR Z,L7AEB ; (+00cH) CP 02DH JR NZ,L7AED ; (+00aH) PUSH HL LD HL,L93D5 LD (07B2AH),HL POP HL L7AEB: LD A,(DE) INC DE L7AED: SUB 030H JR C,L7B0D ; (+01cH) CP 00AH JR NC,L7B0D ; (+018H) PUSH DE CALL L7B42 LD E,L LD D,H CALL L7B42 CALL L7B42 CALL L7B3E LD E,A LD D,000H CALL L7B3E POP DE JR L7AEB ; (-022H) L7B0D: LD A,H OR A JR NZ,L7B44 ; (+033H) LD A,L POP HL PUSH DE PUSH BC PUSH HL LD DE,L9E9D PUSH DE CALL L79C2 POP HL LD B,A INC B JR L7B25 ; (+003H) L7B22: CALL L7BDD L7B25: DJNZ L7B22 ; (-005H) EX DE,HL POP HL CALL L0000 POP BC POP DE JP L7AAF L7B31: PUSH AF PUSH BC PUSH DE LD DE,L7C40 CALL L93D5 POP DE POP BC POP AF RET L7B3E: ADD HL,DE RET NC JR L7B44 ; (+002H) L7B42: ADD HL,HL RET NC L7B44: JP 06367H L7B47: PUSH DE PUSH HL LD HL,L9E9D LD E,A LD D,000H CALL L79CB EX DE,HL POP HL PUSH BC CALL L90BC POP BC POP DE RET L7B5B: LD A,005H LD (L9E9C),A LD A,(HL) OR A JR Z,L7B68 ; (+004H) INC HL LD A,(HL) DEC HL RLCA L7B68: LD A,020H JR NC,L7B71 ; (+005H) CALL L90A9 LD A,02DH L7B71: PUSH AF CALL L7CE0 CALL L7D6D POP AF DEC DE LD (DE),A RET L7B7C: PUSH BC CALL L9153 POP BC RET L7B82: CALL PUSHR LD A,(HL) CP 081H JP C,L909E LD A,(HL) CP 0A0H RET NC INC HL CALL L7BB9 PUSH HL LD L,(HL) LD B,000H L7B97: SRL E RR D RR C RR L INC A INC B CP 0A0H JR NZ,L7B97 ; (-00eH) L7BA5: SLA L RL C RL D RL E DJNZ L7BA5 ; (-00aH) LD A,L POP HL LD (HL),A DEC HL LD (HL),C DEC HL LD (HL),D DEC HL LD (HL),E RET L7BB9: LD E,(HL) INC HL LD D,(HL) INC HL LD C,(HL) INC HL RET L7BC0: LD A,(HL) CP 081H RET C PUSH DE PUSH HL LD DE,L7BD8 PUSH DE CALL L79C5 POP HL CALL L7B82 EX DE,HL POP HL CALL L90B3 POP DE RET L7BD8: NOP NOP NOP NOP NOP L7BDD: PUSH AF PUSH BC PUSH DE LD DE,L7C40 CALL L92EA POP DE POP BC POP AF RET L7BEA: INC HL BIT 7,(HL) JR Z,L7BFA ; (+00bH) CALL L7BFA LD A,H CPL LD H,A LD A,L CPL LD L,A INC HL RET L7BFA: DEC HL LD A,(HL) CP 091H JP NC,06367H CP 081H JR C,L7C18 ; (+013H) PUSH AF INC HL LD A,(HL) INC HL LD L,(HL) LD H,A POP AF SET 7,H L7C0E: CP 090H RET Z INC A SRL H RR L JR L7C0E ; (-00aH) L7C18: DB 03FH DB 021H DS 2, 000H DB 0C9H L7C1D: DB 09BH DB 03EH DB 0BCH DB 020H DB 000H L7C22: DB 098H DB 018H DB 096H DB 080H DB 000H DB 094H DB 074H DB 024H DS 2, 000H DB 091H DB 043H DB 050H DS 2, 000H DB 08EH DB 01CH DB 040H DS 2, 000H DB 08AH DB 07AH DS 3, 000H DB 087H DB 048H DS 3, 000H L7C40: DB 084H DB 020H DS 3, 000H L7C45: DB 081H DS 4, 000H LD A,L LD C,H CALL Z,0CDCCH L7C4F: LD H,(HL) DEC HL CALL Z,L1277 L7C54: LD HL,(L7E37) LD B,000H L7C59: LD DE,L7C40 CALL L7B7C JR C,L7C67 ; (+006H) CALL L7B31 INC B JR L7C59 ; (-00eH) L7C67: LD DE,L7C45 CALL L7B7C JR NC,L7C75 ; (+006H) CALL L7BDD DEC B JR L7C67 ; (-00eH) L7C75: PUSH BC CALL L7CE0 CALL L7D6D POP BC PUSH DE EX DE,HL L7C7F: LD A,(HL) OR A JR Z,L7C86 ; (+003H) INC HL JR L7C7F ; (-007H) L7C86: DEC HL LD A,(HL) INC HL CP 030H JR NZ,L7C8F ; (+002H) INC B DEC HL L7C8F: LD A,045H LD (HL),A INC HL LD A,B LD B,02BH BIT 7,A JR Z,L7C9E ; (+004H) NEG LD B,02DH L7C9E: LD (HL),B INC HL LD (HL),030H L7CA2: SUB 00AH JR C,L7CA9 ; (+003H) INC (HL) JR L7CA2 ; (-007H) L7CA9: ADD A,03AH INC HL LD (HL),A INC HL LD (HL),000H POP DE RET L7CB2: PUSH HL CALL L7BEA LD DE,L9E75 PUSH DE LD B,001H RST 018H DB 016H POP HL LD A,030H LD B,005H L7CC3: CP (HL) JR NZ,L7CCB ; (+005H) INC HL DJNZ L7CC3 ; (-006H) JR L7CD4 ; (+009H) L7CCB: LD A,B LD (L7E34),A LD A,001H LD (L7E35),A L7CD4: LD A,02EH LD (L9E7A),A POP HL CALL L7BC0 JP L7D30 L7CE0: LD (L7E37),HL XOR A LD (L7E34),A LD (L7E35),A PUSH HL LD HL,L9E71 LD (HL),0FFH LD B,021H LD A,030H L7CF4: INC HL LD (HL),A DJNZ L7CF4 ; (-004H) LD A,02EH LD (L9E7A),A POP HL LD A,(HL) OR A RET Z LD DE,L7C1D CALL L9153 CCF RET C LD DE,L7C4F CALL L9153 RET C LD DE,L9EA5 PUSH DE CALL L79C5 POP HL LD A,(HL) CP 081H JR C,L7D30 ; (+013H) CP 090H JP C,L7CB2 LD IX,L9E72 LD DE,L7C22 CALL L7DF7 CALL L7E2B RET NC L7D30: LD IX,L9E7B L7D34: LD DE,L7C1D PUSH BC PUSH IX CALL L92EA POP IX POP BC INC DE INC DE INC DE INC DE INC DE CALL L7DF7 CALL L7E2B JR C,L7D34 ; (-019H) RET L7D4E: LD A,005H LD (L9E9C),A PUSH HL LD DE,L9EAD PUSH DE CALL L79C5 POP HL CALL L7CE0 CALL L7D6A POP HL RET L7D64: LD DE,L9E7A LD (DE),A DEC DE RET L7D6A: JP C,L7C54 L7D6D: LD HL,(L7E37) LD A,(HL) OR A JR Z,L7D64 ; (-010H) LD DE,L9E72 DEC DE EX DE,HL LD DE,00001H L7D7C: INC HL LD A,(HL) CP 02EH JR NZ,L7D87 ; (+005H) LD DE,L0000 JR L7D7C ; (-00bH) L7D87: CP 030H JR Z,L7D7C ; (-00fH) ADD HL,DE LD DE,00008H ADD HL,DE LD A,(HL) L7D91: LD (HL),030H CP 035H JR C,L7DA6 ; (+00fH) L7D97: DEC HL LD A,(HL) CP 02EH JR Z,L7D97 ; (-006H) INC A JR Z,L7DE0 ; (+040H) LD (HL),A CP 03AH JR Z,L7D91 ; (-014H) INC HL L7DA6: LD DE,L9E7A EX DE,HL OR A SBC HL,DE EX DE,HL JR C,L7DB5 ; (+005H) LD HL,L9E7A JR L7DCC ; (+017H) L7DB5: DEC HL LD A,(HL) CP 02EH DEC HL JR Z,L7DCB ; (+00fH) INC HL CP 030H JR Z,L7DA6 ; (-01bH) PUSH HL LD DE,L9E83 SBC HL,DE POP HL JP NC,L7C54 L7DCB: INC HL L7DCC: LD (HL),000H LD DE,L9E72 L7DD1: LD A,(DE) CP 030H JR NZ,L7DD9 ; (+003H) INC DE JR L7DD1 ; (-008H) L7DD9: OR A RET NZ DEC DE LD A,030H LD (DE),A RET L7DE0: LD HL,L9E6A LD DE,L7DF1 PUSH BC LD BC,L0006 LDIR POP BC LD DE,L9E6A RET L7DF1: LD SP,L2B45 JR NC,L7E2E ; (+038H) NOP L7DF7: LD A,(DE) CP 07DH RET Z L7DFB: CALL L9153 JR C,L7E13 ; (+013H) INC (IX+000H) PUSH IX PUSH BC CALL L90B3 POP BC POP IX LD A,001H LD (L7E35),A JR L7DFB ; (-018H) L7E13: INC IX INC DE INC DE INC DE INC DE INC DE LD A,(L7E35) LD B,A LD A,(L7E34) ADD A,B LD (L7E34),A DB LSRF DB 02BH DB 07EH DB LSD0 DB 018H DB LSWF L7E2B: DB 07EH DB 0B7H DB 0C8H L7E2E: DB ":4~",0FEH ADD HL,BC RET L7E34: NOP L7E35: NOP L7E36: NOP L7E37: NOP NOP L7E39: NOP NOP L7E3B: NOP NOP L7E3D: LD HL,(L7E3B) PUSH DE L7E41: LD A,(HL) OR A JP Z,0636AH CALL L7EDF JR Z,L7E50 ; (+005H) LD (BC),A INC BC INC HL JR L7E41 ; (-00fH) L7E50: EX AF,AF' LD A,(L9E9C) CP 003H JP NZ,L7F08 EX AF,AF' CP 021H JP Z,L7E67 CP 026H JP Z,L7E8E JP 0636DH L7E67: EX (SP),HL PUSH BC CALL L8570 OR A LD A,020H JR Z,L7E72 ; (+001H) LD A,(DE) L7E72: POP BC LD (BC),A INC BC L7E75: POP HL INC HL L7E77: LD A,(HL) OR A JR Z,L7E85 ; (+00aH) CALL L7EDF JR Z,L7E88 ; (+008H) LD (BC),A INC BC INC HL JR L7E77 ; (-00eH) L7E85: LD HL,(L7E39) L7E88: LD (L7E3B),HL XOR A LD (BC),A RET L7E8E: LD D,002H L7E90: INC HL LD A,(HL) CP 026H JR Z,L7E9E ; (+008H) INC D CP 020H JR Z,L7E90 ; (-00bH) JP 0636AH L7E9E: EX (SP),HL LD A,(HL) CP D JR C,L7EB8 ; (+015H) INC HL CALL INDRCT PUSH BC LD BC,(STRST) ADD HL,BC POP BC L7EAE: LD A,(HL) LD (BC),A INC BC INC HL DEC D JR NZ,L7EAE ; (-007H) JP L7E75 L7EB8: LD E,(HL) INC HL CALL INDRCT LD A,E OR A JR Z,L7ED5 ; (+014H) PUSH BC LD BC,(STRST) ADD HL,BC POP BC L7EC8: LD A,(HL) LD (BC),A INC BC INC HL DEC E JR Z,L7ED9 ; (+00aH) DEC D JR NZ,L7EC8 ; (-00aH) JP L7E75 L7ED5: LD A,020H LD (BC),A INC BC L7ED9: DEC D JR NZ,L7ED5 ; (-007H) JP L7E75 L7EDF: CALL CHKACC INC B LD HL,L2326 DEC HL RET Z LD E,A CP 02AH JR Z,L7F02 ; (+015H) CALL L80DF JR Z,L7F02 ; (+010H) CP 02EH LD E,023H JR Z,L7F02 ; (+00aH) CP 0C4H RET NZ INC HL LD A,(HL) OR A JP Z,0636AH RET L7F02: INC HL LD A,(HL) CP E DEC HL LD A,(HL) RET L7F08: XOR A LD (0804FH),A LD (0809FH),A LD (L8087),A LD (08045H),A LD (07FFFH),A LD (0802CH),A LD (0804AH),A LD (07FF8H),A DEC A LD (07FF5H),A EX AF,AF' LD D,000H CP 023H JP Z,L7F64 CP 02AH JP Z,L7F45 CALL L80DF JP Z,L7F56 CP 02EH JP Z,L7F66 CP 02BH JP Z,L7F5F JP 0636DH L7F45: LD A,001H LD (0809FH),A INC HL INC D INC HL INC D LD A,(HL) CALL L80DF JR NZ,L7F66 ; (+012H) JR L7F58 ; (+002H) L7F56: INC HL INC D L7F58: INC HL INC D LD (L8087),A JR L7F66 ; (+007H) L7F5F: LD A,001H LD (0804FH),A L7F64: INC HL INC D L7F66: EX DE,HL DEC H L7F68: INC H LD A,(DE) INC DE CP 023H JR Z,L7F68 ; (-007H) CP 02CH JR NZ,L7F7A ; (+007H) LD A,001H LD (07FFFH),A JR L7F68 ; (-012H) L7F7A: CP 02EH JR Z,L7FA1 ; (+023H) CP 02DH JR NZ,L7F8A ; (+008H) LD A,001H LD (08045H),A INC DE JR L7F9A ; (+010H) L7F8A: CP 02BH JR NZ,L7F9A ; (+00cH) LD A,(0804FH) OR A JR NZ,L7F9A ; (+006H) LD A,001H LD (0804AH),A INC DE L7F9A: DEC DE LD A,H LD (0802CH),A JR L7FD4 ; (+033H) L7FA1: LD A,H LD (0802CH),A LD H,0FFH L7FA7: INC H LD A,(DE) INC DE CP 023H JR Z,L7FA7 ; (-007H) CP 02DH JR NZ,L7FBA ; (+008H) LD A,001H LD (08045H),A INC DE JR L7FCA ; (+010H) L7FBA: CP 02BH JR NZ,L7FCA ; (+00cH) LD A,(0804FH) OR A JR NZ,L7FCA ; (+006H) LD A,001H LD (0804AH),A INC DE L7FCA: DEC DE LD A,H LD (07FF5H),A JR L7FD4 ; (+003H) L7FD1: POP DE JR L7FE6 ; (+012H) L7FD4: LD H,004H PUSH DE L7FD7: LD A,(DE) INC DE CP 05EH JR NZ,L7FD1 ; (-00cH) DEC H JR NZ,L7FD7 ; (-009H) POP AF LD A,001H LD (07FF8H),A L7FE6: POP HL PUSH DE INC HL LD A,(HL) RES 7,(HL) DEC HL LD (0807CH),A LD A,(0802CH) LD D,A LD A,000H LD E,A LD A,000H PUSH BC CALL L80E5 POP BC LD A,000H OR A JR Z,L8044 ; (+041H) PUSH BC PUSH DE LD A,(0802CH) LD L,A LD H,000H ADD HL,DE LD DE,L9E6A LD C,000H DEC HL L8012: LD B,003H L8014: LD A,(HL) CP 020H JR Z,L802B ; (+012H) INC C LD (DE),A INC DE DEC HL DJNZ L8014 ; (-00bH) LD A,(HL) CP 020H JR Z,L802B ; (+007H) LD A,02CH LD (DE),A INC DE INC C JR L8012 ; (-019H) L802B: LD A,000H CP C JP C,06367H LD B,C LD L,A LD H,000H POP DE PUSH DE ADD HL,DE LD DE,L9E6A DEC HL L803C: LD A,(DE) LD (HL),A DEC HL INC DE DJNZ L803C ; (-006H) POP DE POP BC L8044: LD A,000H OR A JR NZ,L8086 ; (+03dH) LD A,000H OR A JR NZ,L8086 ; (+038H) LD A,000H OR A JR NZ,L807B ; (+028H) LD A,(0807CH) RLCA JR NC,L8086 ; (+02dH) LD A,(DE) CP 020H LD H,02DH JR Z,L8065 ; (+005H) CP 030H JP NZ,06367H L8065: PUSH DE L8066: LD A,(DE) INC DE CP 020H JR Z,L8066 ; (-006H) CP 030H JR Z,L8066 ; (-00aH) OR A JR NZ,L8074 ; (+001H) DEC DE L8074: DEC DE DEC DE LD A,H LD (DE),A POP DE JR L8086 ; (+00bH) L807B: LD A,000H RLCA LD H,02BH JR NC,L8065 ; (-01dH) LD H,02DH JR L8065 ; (-021H) L8086: DB 03EH L8087: NOP OR A JR Z,L809E ; (+013H) LD A,(DE) CP 020H JR NZ,L809E ; (+00eH) PUSH DE L8091: LD A,(DE) INC DE CP 020H JR Z,L8091 ; (-006H) DEC DE DEC DE LD A,(L8087) LD (DE),A POP DE L809E: LD A,000H OR A JR Z,L80B0 ; (+00dH) PUSH DE L80A4: LD A,(DE) CP 020H JR NZ,L80AF ; (+006H) LD A,02AH LD (DE),A INC DE JR L80A4 ; (-00bH) L80AF: POP DE L80B0: LD A,(DE) OR A JR Z,L80B9 ; (+005H) LD (BC),A INC BC INC DE JR L80B0 ; (-009H) L80B9: LD A,(0804AH) OR A JR Z,L80CD ; (+00eH) LD A,(0807CH) RLCA LD A,02BH L80C5: JR NC,L80C9 ; (+002H) LD A,02DH L80C9: LD (BC),A INC BC JR L80DB ; (+00eH) L80CD: LD A,(08045H) OR A JR Z,L80DB ; (+008H) LD A,(0807CH) RLCA LD A,020H JR L80C5 ; (-016H) L80DB: POP HL JP L7E77 L80DF: CP 0FBH RET Z CP 024H RET L80E5: OR A JP Z,L8170 PUSH DE LD A,(HL) OR A JR Z,L812D ; (+03fH) PUSH HL LD A,D LD DE,L9EA5 PUSH AF CALL L79C2 POP AF OR A JR Z,L8106 ; (+00bH) LD B,A LD HL,L9EA5 JR L8104 ; (+003H) L8101: CALL L7BDD L8104: DJNZ L8101 ; (-005H) L8106: POP HL LD B,000H L8109: LD DE,L9EA5 CALL L7B7C JR C,L8117 ; (+006H) CALL L7B31 INC B JR L8109 ; (-00eH) L8117: PUSH HL LD HL,L9EA5 CALL L7B31 POP HL L811F: LD DE,L9EA5 CALL L7B7C JR NC,L812D ; (+006H) CALL L7BDD DEC B JR L811F ; (-00eH) L812D: POP DE PUSH BC CALL L818A POP BC PUSH DE LD A,(DE) CP 02EH JR NZ,L814B ; (+012H) LD DE,L9E7A DEC DE LD A,(DE) CP 031H POP DE PUSH DE JR NZ,L8167 ; (+023H) EX DE,HL INC HL LD (HL),031H DEC HL JR L8165 ; (+01aH) L814B: LD A,(DE) CP 031H JR NZ,L8167 ; (+017H) EX DE,HL INC HL LD A,(HL) DEC HL CP 02EH LD A,030H JR Z,L815C ; (+002H) LD A,020H L815C: LD (HL),A L815D: INC HL LD A,(HL) CP 02EH JR Z,L815D ; (-006H) LD (HL),031H L8165: EX DE,HL INC B L8167: LD A,(DE) INC DE OR A JR NZ,L8167 ; (-005H) DEC DE JP L7C8F L8170: PUSH DE CALL L818A POP AF OR A RET NZ PUSH HL LD HL,L9E7A DEC HL LD A,030H CP (HL) L817F: JP NZ,06367H DEC HL LD A,020H CP (HL) JR NZ,L817F ; (-009H) POP HL RET L818A: PUSH DE CALL L7CE0 JP C,06367H POP HL PUSH HL LD H,000H INC L JR Z,L8199 ; (+001H) DEC L L8199: LD DE,L9E7B ADD HL,DE LD A,(HL) LD (HL),000H LD DE,03036H CP 035H JR C,L81B6 ; (+00fH) L81A7: DEC HL LD A,(HL) CP 02EH JR Z,L81A7 ; (-006H) INC A JP Z,06367H LD (HL),A CP 03AH JR Z,081A1H ; (-015H) L81B6: LD HL,L11A3 LD DE,L2000 L81BC: LD (HL),D INC HL DEC E JR NZ,L81BC ; (-005H) POP HL PUSH HL LD E,H LD D,000H LD HL,L11A4 ADD HL,DE PUSH HL LD HL,L9E71 LD (HL),020H INC HL LD D,007H L81D3: LD A,(HL) CP 030H JR NZ,L81DE ; (+006H) LD (HL),020H INC HL DEC D JR NZ,L81D3 ; (-00bH) L81DE: POP HL PUSH HL LD B,E LD A,B OR A JR Z,L81FC ; (+017H) LD DE,L9E7A L81E8: DEC HL DEC DE LD A,(DE) LD (HL),A CP 020H JR Z,L81FC ; (+00cH) DJNZ L81E8 ; (-00aH) DEC DE LD A,(DE) CP 020H JR Z,L81FC ; (+004H) INC A JP NZ,06367H L81FC: POP HL POP DE INC E JR Z,L8210 ; (+00fH) LD B,E LD DE,L9E7B LD (HL),02EH L8207: INC HL DEC B JR Z,L8210 ; (+005H) LD A,(DE) INC DE LD (HL),A JR L8207 ; (-009H) L8210: LD (HL),000H LD DE,L11A4 RET L8216: PUSH DE PUSH BC LD C,000H DEC DE L821B: INC DE L821C: CALL L839C OR A JR Z,L8253 ; (+031H) CP 0FFH JR Z,L8257 ; (+031H) CP 080H JP NC,L6364 CP 020H JR C,L821B ; (-014H) LD IX,L821C PUSH IX CP 022H JR Z,L8272 ; (+039H) CP 027H JR Z,L8265 ; (+028H) CP 03FH JR Z,L825E ; (+01dH) CP 02EH JP Z,L83BF CP 024H JP Z,L83D9 CALL L79F6 JR C,L829A ; (+04aH) JP L83A6 L8253: LD (HL),A POP BC POP DE RET L8257: LD (HL),LSE4 CALL L827E JR L821C ; (-042H) L825E: LD A,08FH CALL L827D JR L82D5 ; (+070H) L8265: LD (HL),03AH CALL L827E LD (HL),027H CALL L827F JP L833C L8272: LD (HL),A CALL L827E L8276: LD A,(DE) OR A RET Z CP 022H JR NZ,L8272 ; (-00bH) L827D: LD (HL),A L827E: INC DE L827F: INC HL L8280: INC C RET NZ JP 06379H L8285: POP BC LD A,(DE) CALL L79FD JR C,L827D ; (-00fH) L828C: CALL L827D LD A,(DE) CP 024H JR Z,L827D ; (-017H) CALL L79F6 RET C JR L828C ; (-00eH) L829A: PUSH BC LD BC,CTBL1 CALL L834B JR NC,L82D1 ; (+02eH) LD BC,GTABL CALL L834B LD C,0FEH JR NC,L82B7 ; (+00aH) LD BC,CTBL2 CALL L834B LD C,0FFH JR C,L8285 ; (-032H) L82B7: LD (HL),C INC HL LD (HL),A POP BC CALL L8280 CALL L827F CP 0B4H RET NZ CALL L839C CP 03DH RET NZ LD (HL),SIOAD CALL L827E JR L8311 ; (+040H) L82D1: POP BC CALL L827F L82D5: CP 097H JR Z,L833C ; (+063H) CP 094H JR Z,L833C ; (+05fH) CP 0C2H JR Z,L8332 ; (+051H) CP LSE2 JR Z,L8311 ; (+02cH) CP LSE0 RET NC PUSH AF CALL L839C CP 02FH JR NZ,L82FD ; (+00dH) LD (HL),0FBH CALL L827E CALL L79BC CALL L827D JR L830D ; (+010H) L82FD: CP 023H JR NZ,L830D ; (+00cH) CALL L827D CALL L79BC CALL L79F6 CALL NC,L83A6 L830D: POP AF CP 08DH RET NC L8311: CALL L839C CP 022H JR NZ,L831D ; (+005H) CALL L8272 JR L8311 ; (-00cH) L831D: CP 02CH RET C CP 02FH JR C,L832D ; (+009H) CALL L79F6 RET C CALL L83D0 JR L8311 ; (-01cH) L832D: CALL L827D JR L8311 ; (-021H) L8332: DB 02BH LD (HL),03AH INC HL LD (HL),A CALL L827F JR L8311 ; (-02bH) L833C: LD A,(DE) CALL L5966 RET Z CALL L827D CP 022H CALL Z,L8276 JR L833C ; (-00fH) L834B: PUSH HL PUSH DE LD H,B LD L,C LD B,07FH L8351: POP DE PUSH DE INC B LD A,(HL) CP 0FFH JR NZ,L835D ; (+004H) POP DE POP HL SCF RET L835D: CP 02EH JR NZ,L836A ; (+009H) INC HL DEC DE LD A,(DE) INC DE CALL L79FD JR NC,L8389 ; (+01fH) L836A: LD A,(DE) CP 020H JR NZ,L837B ; (+00cH) LD A,(HL) AND 07FH SUB 041H CP 01AH JR C,L8389 ; (+011H) CALL L79BB L837B: LD C,(HL) INC HL INC DE CP 02EH JR Z,L8391 ; (+00fH) SUB C JR Z,L836A ; (-01bH) CP 080H JR Z,L8397 ; (+00eH) L8389: DEC HL L838A: BIT 7,(HL) INC HL JR Z,L838A ; (-005H) JR L8351 ; (-040H) L8391: LD A,B CP 0E8H JR NC,L8389 ; (-00dH) CCF L8397: POP HL POP HL LD (HL),B LD A,B RET L839C: LD A,(DE) CP 020H RET NZ LD (HL),A CALL L827E JR L839C ; (-00aH) L83A6: EX AF,AF' PUSH DE CALL L79BB POP DE CALL L79F6 JR NC,L83BF ; (+00eH) CP 02EH JR Z,L83BF ; (+00aH) CP 045H JR Z,L83BF ; (+006H) EX AF,AF' SUB 02FH JP L83BF L83BF: PUSH BC LD (HL),015H INC HL PUSH HL CALL L7A0E POP HL LD BC,00005H ADD HL,BC LD A,006H JR L83F3 ; (+023H) L83D0: PUSH BC CALL L8532 LD (HL),00BH INC HL JR L83ED ; (+014H) L83D9: LD (HL),A INC DE LD A,(DE) RST 018H DB 015H JP C,L827F PUSH BC LD (HL),011H INC HL PUSH HL EX DE,HL RST 018H DB 014H LD B,D LD C,E EX DE,HL POP HL L83ED: LD A,003H LD (HL),C INC HL LD (HL),B INC HL L83F3: POP BC ADD A,C JP C,06379H LD C,A L83F9: DEC DE LD A,(DE) CP 020H JR Z,L83F9 ; (-006H) INC DE RET L8401: PUSH HL PUSH DE PUSH BC EXX LD B,000H EXX LD C,000H L840A: LD A,(HL) OR A JR Z,L843E ; (+030H) LD BC,L840A PUSH BC CP 027H JR Z,L8458 ; (+042H) INC HL LD BC,CTBL1 CP 020H JR C,L8480 ; (+062H) CP 022H JR Z,L8469 ; (+047H) CP 03AH JR Z,L8476 ; (+050H) CP 097H JR Z,L8454 ; (+02aH) CP 094H JR Z,L8454 ; (+026H) CP LSE4 JR Z,L8443 ; (+011H) CP 0FEH JR NC,L8448 ; (+012H) CP 080H JP NC,L84C4 JP L84E1 L843E: LD (DE),A POP BC POP DE POP HL RET L8443: LD A,0FFH JP L84E1 L8448: LD BC,CTBL2 JR NZ,L8450 ; (+003H) LD BC,GTABL L8450: LD A,(HL) INC HL JR L84C4 ; (+070H) L8454: CALL L84C4 RET Z L8458: LD A,(HL) CALL L5966 RET Z CALL L84E1 LD A,(HL) INC HL CP 022H CALL Z,L846C JR L8458 ; (-011H) L8469: CALL L84E1 L846C: LD A,(HL) OR A RET Z INC HL CP 022H JR NZ,L8469 ; (-00bH) JR L84E1 ; (+06bH) L8476: LD (DE),A LD A,(HL) CP 0C2H RET Z CP 027H RET Z JR L84E4 ; (+064H) L8480: CP 015H JR Z,L84B4 ; (+030H) CP 00BH JR NC,L848D ; (+005H) DEC A OR 030H JR L84E1 ; (+054H) L848D: PUSH DE LD E,(HL) INC HL LD D,(HL) INC HL PUSH HL CP 012H JR Z,L84A3 ; (+00cH) CP 00CH JR C,L84A3 ; (+008H) JR NZ,L84F0 ; (+053H) EX DE,HL INC HL INC HL LD E,(HL) INC HL LD D,(HL) L84A3: EX DE,HL CALL L7998 LD B,D LD C,E POP HL POP DE L84AB: LD A,(BC) OR A RET Z CALL L84E1 INC BC JR L84AB ; (-009H) L84B4: PUSH HL PUSH DE CALL L7D4E LD B,D LD C,E POP DE POP HL INC HL INC HL INC HL INC HL INC HL JR L84AB ; (-019H) L84C4: CP 080H JR Z,L84D2 ; (+00aH) EX AF,AF' L84C9: LD A,(BC) RLCA INC BC JR NC,L84C9 ; (-005H) EX AF,AF' DEC A JR L84C4 ; (-00eH) L84D2: LD A,(BC) BIT 7,A JR NZ,L84DF ; (+008H) CP 02EH CALL NZ,L84E1 INC BC JR L84D2 ; (-00dH) L84DF: AND 07FH L84E1: LD (DE),A OR A RET Z L84E4: INC DE EXX INC B EXX RET NZ XOR A LD (DE),A DEC DE EXX DEC B EXX RET L84F0: LD A,024H EX AF,AF' EX DE,HL CALL L8501 LD B,D LD C,E POP HL POP DE EX AF,AF' CALL L84E1 JR L84AB ; (-056H) L8501: LD DE,L9E76 PUSH DE LD A,H CALL L851A LD A,L CALL L851A XOR A LD (DE),A POP DE LD B,003H L8512: LD A,(DE) CP 030H RET NZ INC DE DJNZ L8512 ; (-007H) RET L851A: PUSH AF RRCA RRCA RRCA RRCA AND 00FH CALL L8527 POP AF AND 00FH L8527: ADD A,030H CP 03AH JR C,L852F ; (+002H) ADD A,007H L852F: LD (DE),A INC DE RET L8532: PUSH HL EX DE,HL RST 018H DB 013H LD B,D LD C,E EX DE,HL DB LSE1 DB 0C3H DB 0F9H DB 083H L853D: DB LSRF LD D,C ADD A,L L8540: LD A,D OR A JP NZ,0636AH LD A,E RET L8547: CALL L858E DEC DE DEC DE DEC DE DEC DE DEC DE JR L8554 ; (+003H) L8551: CALL L857C L8554: PUSH AF PUSH HL EX DE,HL CALL L903F CALL L7BEA EX DE,HL POP HL POP AF RET L8561: CALL L857C PUSH AF CALL L9036 PUSH HL EX DE,HL CALL L8570 POP HL POP AF RET L8570: LD B,(HL) INC HL LD E,(HL) INC HL LD D,(HL) LD HL,(L1076) ADD HL,DE EX DE,HL LD A,B RET L857C: LD DE,(VARED) LD (TMPEND),DE L8584: LD DE,(INTFAC) PUSH DE CALL L858E POP DE RET L858E: PUSH DE LD DE,(TMPEND) CALL L8C08 POP DE CALL L85B2 L859A: CP 0EAH RET NZ LD A,(L9E9C) PUSH AF INC HL CALL L85B2 POP BC PUSH AF PUSH HL CALL L8BE5 CALL 0959CH POP HL POP AF JR L859A ; (-018H) L85B2: CALL L85CD L85B5: CP 0EBH RET NZ LD A,(L9E9C) PUSH AF INC HL CALL L85CD POP BC PUSH AF PUSH HL CALL L8BE5 CALL 09599H POP HL POP AF JR L85B5 ; (-018H) L85CD: CALL L85E8 L85D0: CP 0ECH RET NZ LD A,(L9E9C) PUSH AF INC HL CALL L85E8 POP BC PUSH AF PUSH HL CALL L8BE5 CALL L9596 POP HL POP AF JR L85D0 ; (-018H) L85E8: CALL TEST1 DB 0EDH JR NZ,L85FD ; (+00fH) CALL L85FD PUSH AF PUSH HL LD HL,0FFFBH ADD HL,DE CALL L9586 POP HL POP AF RET L85FD: CALL L8667 L8600: CP 0EEH RET C PUSH AF LD A,(L9E9C) PUSH AF INC HL CALL L8667 POP BC EX (SP),HL PUSH AF PUSH HL CALL L8BE5 CALL L9153 EX AF,AF' POP AF CP 0F6H JR NZ,L863A ; (+01eH) EX AF,AF' JR C,L8635 ; (+016H) L861F: LD BC,L0000 L8622: LD (HL),C INC HL LD (HL),B INC HL XOR A LD (HL),A INC HL LD (HL),A INC HL LD (HL),A LD A,005H LD (L9E9C),A POP AF POP HL JR L8600 ; (-035H) L8635: LD BC,08081H JR L8622 ; (-018H) L863A: CP SIOBD JR NZ,L8645 ; (+007H) EX AF,AF' JR Z,L861F ; (-022H) JR C,L861F ; (-024H) JR L8635 ; (-010H) L8645: CP SIOAD JR NZ,L864E ; (+005H) EX AF,AF' JR Z,L8635 ; (-017H) JR L861F ; (-02fH) L864E: CP PSGA JR C,L8657 ; (+005H) EX AF,AF' JR NC,L8635 ; (-020H) JR L861F ; (-038H) L8657: CP LSPAL JR C,L8662 ; (+007H) EX AF,AF' JR Z,L8635 ; (-029H) JR C,L8635 ; (-02bH) JR L861F ; (-043H) L8662: EX AF,AF' JR Z,L861F ; (-046H) JR L8635 ; (-032H) L8667: CALL L8692 L866A: CP SIOBC RET C LD A,(L9E9C) PUSH AF INC HL JR Z,L8684 ; (+010H) CALL L8692 POP BC PUSH AF PUSH HL CALL L8BE5 CALL L90B3 L8680: POP HL POP AF JR L866A ; (-01aH) L8684: CALL L8692 POP BC PUSH AF PUSH HL CALL L8BE5 CALL L90BC JR L8680 ; (-012H) L8692: CALL L86BD L8695: CP 0F9H RET C LD A,(L9E9C) PUSH AF INC HL JR Z,L86AF ; (+010H) CALL L86BD POP BC PUSH AF PUSH HL CALL L8BE5 CALL L95F2 L86AB: POP HL POP AF JR L8695 ; (-01aH) L86AF: CALL L86BD POP BC PUSH AF PUSH HL CALL L8BE5 CALL L9611 JR L86AB ; (-012H) L86BD: CALL L86E8 L86C0: CP 0FBH RET C LD A,(L9E9C) PUSH AF INC HL JR Z,L86DA ; (+010H) CALL L86E8 POP BC PUSH AF PUSH HL CALL L8BE5 CALL L92EA L86D6: POP HL POP AF JR L86C0 ; (-01aH) L86DA: CALL L86E8 POP BC PUSH AF PUSH HL CALL L8BE5 CALL L93D5 JR L86D6 ; (-012H) L86E8: CALL TEST1 DB SIOBC JR Z,L86E8 ; (-006H) CP 0F8H JR NZ,L86F8 ; (+006H) INC HL CALL L86F8 JR L8721 ; (+029H) L86F8: CALL L872D L86FB: CP 0FDH RET NZ LD A,(L9E9C) PUSH AF INC HL CALL L8713 POP BC PUSH AF PUSH HL CALL L8BE5 CALL L950A POP HL POP AF JR L86FB ; (-018H) L8713: CALL TEST1 DB SIOBC JR Z,L8713 ; (-006H) CP 0F8H JR NZ,L872D ; (+010H) INC HL CALL L872D L8721: PUSH AF PUSH HL LD HL,0FFFBH ADD HL,DE CALL L90A6 POP HL POP AF RET L872D: CALL L5963 JP Z,L6364 CALL L8739 JP HLFTCH L8739: PUSH HL LD HL,(L107E) SCF SBC HL,DE JP C,06373H POP HL CP LSE4 JR Z,L8756 ; (+00eH) CP 020H JR NC,L8796 ; (+04aH) L874C: INC HL CP 015H JR C,L8765 ; (+014H) CALL L79C5 JR L875F ; (+009H) L8756: INC HL PUSH HL LD HL,L98C6 CALL L79C5 POP HL L875F: LD A,005H L8761: LD (L9E9C),A RET L8765: CP 00BH JR NC,L8772 ; (+009H) DEC A JP M,L6364 LD B,000H LD C,A JR L8783 ; (+011H) L8772: LD C,(HL) INC HL LD B,(HL) INC HL CP 00CH JR NZ,L8783 ; (+009H) INC BC INC BC LD A,(BC) INC BC EX AF,AF' LD A,(BC) LD B,A EX AF,AF' LD C,A L8783: PUSH HL PUSH DE EX DE,HL LD E,C LD D,B CALL L79CB POP DE POP HL LD A,005H L878F: INC DE INC DE INC DE INC DE INC DE JR L8761 ; (-035H) L8796: CP 022H JR NZ,L87C9 ; (+02fH) INC HL PUSH HL CALL L8BF0 EX (SP),HL PUSH HL LD HL,(L107A) PUSH BC LD BC,(STRST) OR A SBC HL,BC POP BC EX DE,HL LD (HL),B INC HL LD (HL),E INC HL LD (HL),D INC HL INC HL INC HL POP DE PUSH HL LD HL,(L107A) CALL L8BFC LD (L107A),HL POP DE POP HL LD A,003H LD (L9E9C),A RET L87C9: CP 028H JR NZ,L87D4 ; (+007H) INC HL CALL L858E JP L79AD L87D4: OR A JP P,L8E15 CP 0E7H INC HL JR NZ,L87E4 ; (+007H) LD B,005H LD A,0A8H PUSH AF JR L8813 ; (+02fH) L87E4: CP 0FFH JP NZ,L6364 LD A,(HL) INC HL CP 0A0H JP Z,L889F CP 0C8H JP NC,L6364 CP 0BAH JR NC,L8843 ; (+04aH) CP 09CH JR Z,L8843 ; (+046H) CP 09DH JP Z,L8843 PUSH AF CP 0B3H JR NC,L8834 ; (+02dH) LD B,003H CP 0ABH JR NC,L8813 ; (+006H) LD B,005H CP 088H JR Z,L882E ; (+01bH) L8813: CALL L79A3 L8816: PUSH BC CALL L858E CALL L79AD POP AF CALL L9032 L8821: POP AF PUSH DE PUSH HL LD HL,0FFFBH ADD HL,DE CALL L8843 POP HL POP DE RET L882E: CALL TEST1 DB 028H JR Z,L8816 ; (-01eH) L8834: LD A,005H LD (L9E9C),A PUSH HL LD HL,L7C45 CALL L79C5 POP HL JR L8821 ; (-022H) L8843: PUSH HL ADD A,A LD L,A LD H,000H LD BC,L5D79 ADD HL,BC LD A,(HL) INC HL LD H,(HL) LD L,A EX (SP),HL RET L8852: EX DE,HL LD HL,0FDF1H ADD HL,SP LD BC,(TMPEND) OR A SBC HL,BC EX DE,HL JR NC,L8880 ; (+01fH) XOR A JR L887D ; (+019H) L8864: LD A,(L1082) JR L887D ; (+014H) L8869: LD A,(01083H) JR L887D ; (+00fH) L886E: LD DE,(POINTX) JR L8880 ; (+00cH) L8874: LD DE,(POINTY) JR L8880 ; (+006H) L887A: LD A,(L9E53) L887D: LD E,A LD D,000H L8880: LD A,005H LD (L9E9C),A JP L79CB L8888: LD DE,(09E55H) CALL L79CB INC HL BIT 7,(HL) DEC HL RET Z LD DE,L889A JP L90BC L889A: SUB C NOP NOP NOP NOP L889F: CALL L79A3 LD B,000H L88A4: PUSH BC PUSH DE CALL L8547 CALL L8540 POP DE POP BC PUSH AF INC B CALL TEST1 DB 02CH JR Z,L88A4 ; (-012H) CALL L79AD LD A,B EXX LD B,A LD HL,(L107A) CALL ADDHLA LD D,H LD E,L CALL L8C08 L88C7: DEC HL POP AF LD (HL),A DJNZ L88C7 ; (-005H) EXX LD A,B EXX LD B,A L88D0: LD (TMPEND),DE LD DE,(STRST) OR A SBC HL,DE PUSH HL LD A,B EXX EX DE,HL LD (HL),A INC HL POP BC LD (HL),C INC HL LD (HL),B LD BC,L0003 ADD HL,BC L88E9: EX DE,HL LD A,003H LD (L9E9C),A RET L88F0: PUSH HL CALL L7BEA CALL L8501 RST 018H DB 017H L88F9: LD A,B OR A JR Z,L890D ; (+010H) LD HL,(L107A) PUSH HL PUSH BC CALL L8BFC POP BC EX DE,HL POP HL EXX POP DE EXX JR L88D0 ; (-03dH) L890D: POP HL CALL L909E JR L88E9 ; (-02aH) L8913: PUSH HL CALL L8924 LD B,A LD C,A OR A LD A,020H PUSH DE CALL NZ,?SETDE POP DE LD B,C JR L88F9 ; (-02bH) L8924: CALL L7BEA LD DE,L11A4 LD A,H OR A JP NZ,0636AH LD A,L RET L8931: PUSH HL CALL L7B5B LD A,(DE) CP 020H JR NZ,L893B ; (+001H) INC DE L893B: RST 018H DB 017H JR L88F9 ; (-046H) L893F: CALL L79A3 CALL L6EF9 LD B,A CALL L79AA LD A,B PUSH HL PUSH DE RST 018H DB 029H LD DE,0FFFFH JR C,L895B ; (+008H) INC HL BIT 7,(HL) JR NZ,L895B ; (+003H) LD DE,L0000 L895B: POP HL CALL L79CB LD A,005H LD (L9E9C),A L8964: INC HL INC HL INC HL INC HL INC HL EX DE,HL POP HL RET L896C: CALL L79A3 PUSH DE CALL L8547 LD B,D LD C,E POP DE PUSH DE PUSH BC CALL L79B4 CALL L8547 CALL L79AD EX (SP),HL EX DE,HL RST 018H DB 04EH INC A JP Z,0636AH DEC A POP DE POP HL PUSH DE CALL L887D JR L8964 ; (-02eH) L8992: PUSH HL CALL L8570 OR A JR Z,L899A ; (+001H) LD A,(DE) L899A: JR L89A0 ; (+004H) L899C: PUSH HL CALL L8570 L89A0: POP HL JP L887D L89A4: PUSH HL CALL L8570 LD HL,(L107A) PUSH HL CALL L8BFC LD (HL),000H POP DE POP HL JP L7A0E L89B6: CALL L8A32 CALL L79AD CALL L8A2B EX DE,HL LD A,(HL) CP C JR NC,L89C5 ; (+001H) LD C,A L89C5: LD (HL),C LD BC,00005H L89C9: LD A,003H ADD HL,BC EX DE,HL LD (L9E9C),A JP HLFTCH L89D3: CALL L8A32 CALL L79AD CALL L8A2B EX DE,HL LD A,(HL) SUB C JR NC,L89E3 ; (+002H) XOR A LD C,(HL) L89E3: LD (HL),C INC HL ADD A,(HL) LD (HL),A INC HL JR NC,L89EB ; (+001H) INC (HL) L89EB: LD BC,L0003 JR L89C9 ; (-027H) L89F0: CALL L8A32 CALL L8A2B OR A JP Z,0636AH PUSH AF CALL TEST1 DB 029H LD A,0FFH JR Z,L8A17 ; (+014H) CALL L79B1 PUSH DE EX DE,HL LD BC,00005H ADD HL,BC EX DE,HL CALL L8547 CALL L79AD CALL L8540 POP DE L8A17: POP BC LD C,A EX DE,HL LD A,(HL) SUB B JR C,L8A27 ; (+009H) INC A CP C JR NC,L8A23 ; (+001H) LD C,A L8A23: LD A,B DEC A JR L89E3 ; (-044H) L8A27: XOR A LD C,A JR L89E3 ; (-048H) L8A2B: LD A,B OR A JP NZ,0636AH LD A,C RET L8A32: CALL L79A3 PUSH DE CALL L858E CALL L79B4 CALL L9036 CALL L8547 LD C,E LD B,D POP DE RET L8A46: PUSH HL PUSH DE LD HL,(L107A) PUSH HL LD A,030H LD B,006H CALL ?SETHL RST 018H DB 025H POP HL OR A JR Z,L8A5E ; (+005H) INC (HL) INC HL INC (HL) INC (HL) DEC HL L8A5E: EX DE,HL LD BC,08CA0H CALL L8AD5 LD BC,L0E10 CALL L8AD5 CP 03AH JR C,L8A79 ; (+00aH) SUB 00AH DEC DE LD (DE),A DEC DE LD A,(DE) INC A LD (DE),A INC DE INC DE L8A79: DEC DE DEC DE LD A,(DE) INC DE LD B,A LD A,(DE) INC DE LD C,A LD A,B CP 032H JR NZ,L8A97 ; (+011H) LD A,C CP 034H JR NZ,L8A97 ; (+00cH) LD HL,(L107A) LD A,030H LD B,006H CALL ?SETHL JR L8AAD ; (+016H) L8A97: LD BC,L0258 CALL L8AD5 LD BC,0003CH CALL L8AD5 LD BC,0000AH CALL L8AD5 LD A,030H ADD A,L LD (DE),A L8AAD: LD HL,(L107A) LD DE,L0006 EX DE,HL ADD HL,DE LD (L107A),HL EX DE,HL LD DE,(STRST) OR A SBC HL,DE EX DE,HL POP HL LD (HL),006H INC HL LD (HL),E INC HL LD (HL),D INC HL INC HL INC HL EX DE,HL POP HL LD A,003H LD (L9E9C),A JP HLFTCH L8AD5: OR A SBC HL,BC JR C,L8ADF ; (+005H) LD A,(DE) INC A LD (DE),A JR L8AD5 ; (-00aH) L8ADF: ADD HL,BC INC DE RET L8AE2: CALL TESTX DB SIOAD CALL L8561 LD A,B CP 006H JP NZ,0636AH PUSH HL PUSH DE LD HL,L0000 CALL L8B23 CP 018H JP NC,0636AH CP 00CH LD A,000H JR C,L8B0B ; (+009H) PUSH DE LD DE,L000C OR A SBC HL,DE POP DE INC A L8B0B: PUSH AF CALL L8B23 CP 03CH JP NC,0636AH CALL L8B23 CP 03CH JP NC,0636AH POP AF EX DE,HL RST 018H DB 026H POP DE POP HL RET L8B23: PUSH DE LD D,H LD E,L ADD HL,HL ADD HL,HL ADD HL,DE LD D,H LD E,L ADD HL,HL ADD HL,DE ADD HL,HL ADD HL,HL POP DE LD A,(DE) INC DE SUB 030H JP C,0636AH CP 00AH JP NC,0636AH PUSH BC LD C,A ADD A,A ADD A,A ADD A,C ADD A,A LD C,A LD A,(DE) INC DE SUB 030H JP C,0636AH CP 00AH JP NC,0636AH ADD A,C LD C,A LD B,000H ADD HL,BC POP BC RET L8B56: LD DE,(VARED) LD (TMPEND),DE LD DE,(INTFAC) L8B62: PUSH DE CALL L8BB5 L8B66: LD A,(HL) CP 028H JP Z,L8C1B PUSH HL CALL L8ED6 JR NC,L8B78 ; (+006H) LD A,C LD C,L LD B,H POP HL POP DE RET L8B78: LD A,(DE) ADD A,C ADD A,002H PUSH BC EX DE,HL LD HL,(L107A) PUSH HL OR A SBC HL,DE INC HL LD C,L LD B,H POP HL PUSH DE EX DE,HL LD L,A LD H,000H ADD HL,DE EX DE,HL CALL L8C08 LDDR LD E,A LD D,000H RST 018H DB 01AH POP HL POP BC LD DE,L11A4 LD (HL),C INC HL SCF SBC A,C LD B,A L8BA4: LD A,(DE) LD (HL),A INC DE INC HL DJNZ L8BA4 ; (-006H) PUSH HL LD B,C CALL ?CLRHL LD (HL),A LD A,C POP BC POP HL POP DE RET L8BB5: CALL HLFTCH SUB 041H CP 01AH JP NC,L6364 LD DE,L11A4 LD B,000H L8BC4: INC DE LD A,(HL) CALL L79FD JR C,L8BD6 ; (+00bH) LD (DE),A INC B LD A,B CP 003H JR C,L8BD3 ; (+001H) DEC B L8BD3: INC HL JR L8BC4 ; (-012H) L8BD6: LD DE,L11A4 EX DE,HL LD (HL),B EX DE,HL LD C,005H CP 024H RET NZ LD C,003H INC HL RET L8BE5: LD HL,0FFFBH EX DE,HL ADD HL,DE EX DE,HL ADD HL,DE LD A,B JP L9032 L8BF0: LD B,0FFH L8BF2: INC B LD A,(HL) OR A RET Z INC HL CP 022H RET Z JR L8BF2 ; (-00aH) L8BFC: LD A,B OR A RET Z CALL LDHLDE EX DE,HL CALL L8C08 EX DE,HL RET L8C08: PUSH HL LD HL,0FE00H ADD HL,SP SBC HL,DE POP HL RET NC JP L63A7 L8C14: LD DE,(INTFAC) PUSH DE JR L8C23 ; (+008H) L8C1B: XOR A LD (L8E14),A INC HL LD (L8E12),HL L8C23: LD B,000H EXX POP HL PUSH HL PUSH HL LD HL,(L107A) LD DE,L11A4 PUSH HL LD A,(DE) LD (HL),A INC DE INC HL LD B,A CALL L8BFC POP DE LD (L107A),HL LD HL,(L1076) EX DE,HL OR A SBC HL,DE EX (SP),HL PUSH HL EXX L8C46: POP DE PUSH DE PUSH BC LD BC,(08E12H) LD A,(L8E14) PUSH BC PUSH AF LD BC,(09E6AH) PUSH BC CALL L8547 BIT 7,D JP NZ,0636AH EX AF,AF' POP BC LD (09E6AH),BC POP AF LD (L8E14),A POP BC LD (08E12H),BC EX AF,AF' INC HL CP 029H JR Z,L8C8C ; (+018H) CP 02CH JP NZ,L6364 POP BC INC B LD A,B CP 004H JP NC,0636AH EXX POP HL POP DE EXX PUSH DE EXX PUSH DE PUSH HL EXX JR L8C46 ; (-046H) L8C8C: POP BC EXX POP HL POP DE EXX INC B PUSH DE PUSH HL EXX LD HL,(L1076) ADD HL,DE LD B,(HL) INC B LD DE,L11A4 CALL LDDEHL EXX SET 7,C CALL L8ED6 RES 7,C JR NC,L8D01 ; (+056H) LD A,B CP (HL) JP NZ,06376H INC HL EX DE,HL POP HL LD (L9E6A),HL EXX LD HL,L0000 EXX EX DE,HL L8CBC: LD E,(HL) INC HL LD D,(HL) INC HL EX (SP),HL PUSH DE EXX POP DE CALL L8DE8 EXX PUSH HL OR A SBC HL,DE JP NC,0636AH EXX POP DE CALL L8DE4 EXX POP HL DJNZ L8CBC ; (-01cH) PUSH HL EXX LD A,C LD D,B BIT 6,A JR NZ,L8CF4 ; (+014H) AND 00FH LD E,A PUSH AF CALL L8DE8 PUSH HL EXX POP BC POP AF POP HL ADD HL,BC LD C,L LD B,H L8CEF: LD HL,(L9E6A) POP DE RET L8CF4: LD E,(HL) INC HL LD D,(HL) POP HL LD C,L LD B,H LD (HL),E INC HL LD (HL),D AND 00FH JR L8CEF ; (-012H) L8D01: EXX LD A,(L8E14) OR A JP Z,0636AH POP HL LD (L9E6A),HL EXX LD DE,(TMPEND) LD L,B LD H,000H ADD HL,HL ADD HL,DE EX DE,HL INC DE CALL L8C08 LD (HL),B INC HL EXX LD HL,00001H EXX L8D23: POP DE LD A,(L8E14) OR A JR NZ,L8D36 ; (+00cH) PUSH HL EX DE,HL LD DE,0000AH SCF SBC HL,DE JP NC,0636AH POP HL L8D36: INC DE LD (HL),E INC HL LD (HL),D INC HL PUSH DE EXX POP DE CALL L8DE8 EXX DJNZ L8D23 ; (-021H) DB 059H LD D,000H PUSH BC PUSH DE EXX POP DE CALL L8DE8 PUSH HL EXX POP BC PUSH BC EX DE,HL LD HL,(L107A) LD L,(HL) LD H,000H ADD HL,HL LD A,(L11A4) ADD A,005H ADD A,L LD L,A LD A,000H ADC A,H LD H,A JR C,L8D6C ; (+005H) ADD HL,BC JR C,L8D6C ; (+002H) PUSH HL ADD HL,DE L8D6C: JP C,L63A7 EX DE,HL CALL L8C08 PUSH HL EXX POP HL LD BC,(STRST) DEC BC OR A SBC HL,BC PUSH HL EXX POP BC LDDR POP DE RST 018H DB 01AH POP BC PUSH DE EXX POP DE LD H,B LD L,C POP BC LD A,C OR 080H LD (HL),A INC HL DEC DE LD (HL),E INC HL LD (HL),D INC HL LD DE,L11A4 LD A,(DE) INC A LD B,A CALL LDHLDE LD DE,(TMPEND) LD A,(DE) LD (HL),A INC HL INC DE ADD A,A LD B,A CALL LDHLDE PUSH HL EXX POP HL L8DB0: XOR A LD (HL),A INC HL DEC BC LD A,B OR C JR NZ,L8DB0 ; (-008H) LD (HL),A EXX POP DE LD A,(L8E14) OR A JR Z,L8DC5 ; (+004H) LD HL,(L9E6A) RET L8DC5: LD HL,(L8E12) PUSH DE JP L8C23 L8DCC: LD A,0FFH LD (L8E14),A L8DD1: CALL L8BB5 LD A,(HL) CALL L79A6 CALL L8C14 CALL HLFTCH CP 02CH RET NZ INC HL JR L8DD1 ; (-013H) L8DE4: ADD HL,DE RET NC JR L8E0F ; (+027H) L8DE8: PUSH BC EX DE,HL LD C,L LD A,H LD HL,L0000 CALL L8DF8 LD A,C CALL L8DF8 POP BC RET L8DF8: OR A JR Z,L8E09 ; (+00eH) LD B,008H L8DFD: ADD HL,HL JR C,L8E0F ; (+00fH) RLCA JR NC,L8E06 ; (+003H) ADD HL,DE JR C,L8E0F ; (+009H) L8E06: DJNZ L8DFD ; (-00bH) RET L8E09: LD A,H LD H,L LD L,000H OR A RET Z L8E0F: JP 06373H L8E12: NOP NOP L8E14: NOP L8E15: SUB 041H CP 01AH JP NC,L6364 LD BC,(09048H) LD A,B OR C JR NZ,L8E36 ; (+012H) CALL L8B62 L8E27: PUSH DE PUSH HL LD L,C LD H,B LD B,A LD C,A CALL LDDEHL POP HL LD A,C POP DE JP L878F L8E36: PUSH DE CALL L8BB5 PUSH HL INC B LD DE,L11A4 LD HL,(L107A) CALL L8BFC LD B,000H LD HL,(L9048) CALL HLFTCH CP SIOAD JR Z,L8E80 ; (+02fH) CP 028H JR NZ,L8E7D ; (+028H) L8E55: INC HL INC B PUSH BC CALL L8BB5 LD A,C POP DE CP E LD C,E JR NZ,L8E72 ; (+011H) PUSH DE LD C,B INC C PUSH HL LD HL,(L107A) LD DE,L11A4 CALL L904C POP HL POP BC JR Z,L8E96 ; (+024H) L8E72: CALL HLFTCH CP 029H JR Z,L8E80 ; (+007H) CP 02CH JR Z,L8E55 ; (-028H) L8E7D: JP L6364 L8E80: LD HL,(L107A) LD DE,L11A4 LD A,(HL) LD (DE),A LD B,A L8E89: INC HL INC DE LD A,(HL) LD (DE),A DJNZ L8E89 ; (-006H) POP HL POP DE CALL L8ED2 JR L8E27 ; (-06fH) L8E96: LD HL,(L904A) CALL L79A3 DEC B JR Z,L8EB7 ; (+018H) DEC HL L8EA0: PUSH BC L8EA1: CALL L6A0A CALL L5963 JP Z,L6364 CP 029H JP Z,L6364 CP 02CH JR NZ,L8EA1 ; (-012H) POP BC DJNZ L8EA0 ; (-016H) INC HL L8EB7: EX DE,HL POP HL EX (SP),HL EX DE,HL LD BC,(09048H) PUSH BC LD BC,L0000 LD (09048H),BC CALL L858E POP HL LD (L9048),HL POP HL JP HLFTCH L8ED2: PUSH DE JP L8B66 L8ED6: LD HL,(L1074) L8ED9: LD DE,L11A4 LD A,(HL) OR A RET Z CP 040H JR NC,L8F0A ; (+027H) CP C JR NZ,L8EFF ; (+019H) INC HL LD A,(DE) CP (HL) JR NZ,L8EFD ; (+012H) LD B,A L8EEC: INC DE INC HL LD A,(DE) CP (HL) JR NZ,L8EF7 ; (+005H) DJNZ L8EEC ; (-008H) INC HL SCF RET L8EF7: INC HL DJNZ L8EF7 ; (-003H) LD A,C JR L8F04 ; (+007H) L8EFD: LD A,C DEC HL L8EFF: AND 00FH INC HL ADD A,(HL) INC HL L8F04: LD E,A LD D,000H ADD HL,DE JR L8ED9 ; (-031H) L8F0A: CP C JR Z,L8F21 ; (+014H) INC HL L8F0E: LD E,(HL) INC HL LD D,(HL) DEC HL ADD HL,DE JR L8ED9 ; (-03cH) L8F15: LD A,C SUB B CPL LD C,A LD B,0FFH ADD HL,BC POP BC L8F1D: DEC HL DEC HL JR L8F0E ; (-013H) L8F21: LD A,(HL) EXX LD C,A LD B,000H EXX INC HL PUSH DE LD E,(HL) INC HL LD D,(HL) INC HL EX DE,HL ADD HL,DE EX DE,HL POP DE LD A,(DE) CP (HL) JR NZ,L8F1D ; (-018H) PUSH BC LD B,A LD C,A L8F38: INC HL INC DE LD A,(DE) CP (HL) JR NZ,L8F15 ; (-029H) DJNZ L8F38 ; (-008H) INC HL POP BC SCF RET L8F44: CALL L8BB5 SET 6,C PUSH HL CALL L8ED6 JP C,06376H LD (HL),C EX (SP),HL PUSH HL DEC HL L8F54: CALL L6A0A OR A JR Z,L8F5E ; (+004H) CP 03AH JR NZ,L8F54 ; (-00aH) L8F5E: POP DE PUSH HL INC HL SBC HL,DE LD A,(L11A4) ADD A,004H LD C,A LD B,000H LD A,L ADD HL,BC LD B,A PUSH HL EXX POP BC PUSH BC PUSH HL PUSH DE PUSH BC LD HL,L0000 ADD HL,SP LD DE,(TMPEND) DEC H OR A SBC HL,DE LD A,00CH JP C,L63A9 POP BC POP DE POP HL LD HL,(L107A) PUSH HL ADD HL,BC EX (SP),HL PUSH HL LD DE,(STRST) OR A SBC HL,DE LD C,L LD B,H POP HL POP DE LDDR POP DE RST 018H DB 01AH DEC DE POP HL EX (SP),HL INC HL LD (HL),E INC HL LD (HL),D INC HL LD DE,L11A4 LD A,(DE) LD (HL),A LD B,A L8FAE: INC DE INC HL LD A,(DE) LD (HL),A DJNZ L8FAE ; (-006H) INC HL PUSH HL EXX POP HL CALL LDHLDE LD (HL),000H POP HL RET L8FBF: PUSH DE CALL L8BB5 POP IX PUSH BC SET 6,C LD DE,(0904AH) LD (L904A),HL PUSH DE CALL L8ED6 JP NC,06382H LD DE,(09048H) LD (L9048),HL PUSH DE PUSH IX DEC HL L8FE1: CALL L6A0A CALL L5963 JP Z,L6364 CP SIOAD JR NZ,L8FE1 ; (-00dH) INC HL POP DE PUSH DE CALL L858E POP DE LD HL,(L904A) POP BC LD (09048H),BC POP BC LD (0904AH),BC EX DE,HL POP BC LD A,C CALL L9032 LD BC,00005H ADD HL,BC EX DE,HL CALL HLFTCH CP 028H RET NZ PUSH DE LD B,001H L9016: PUSH BC CALL L6A0A POP BC CALL L5966 JP Z,L6364 CP 028H JR NZ,L9026 ; (+001H) INC B L9026: CP 029H JR NZ,L9016 ; (-014H) DJNZ L9016 ; (-016H) INC HL CALL HLFTCH POP DE RET L9032: CP 003H JR NZ,L903F ; (+009H) L9036: LD A,(L9E9C) CP 003H RET Z JP 0636DH L903F: LD A,(L9E9C) CP 003H RET NZ JP 0636DH L9048: NOP NOP L904A: NOP NOP L904C: LD A,(DE) CP (HL) RET NZ PUSH BC PUSH DE PUSH HL LD B,C L9053: LD A,(DE) CP (HL) JR NZ,L905C ; (+005H) INC DE INC HL DJNZ L9053 ; (-008H) XOR A L905C: POP HL POP DE POP BC RET L9060: CALL L79A3 PUSH DE CALL L8547 CALL L8540 CP 003H JP NC,0636AH POP DE PUSH AF CALL L79AA POP AF RST 018H DB 01EH EX DE,HL PUSH DE CALL L887D JP L8964 L907F: CALL L79A3 PUSH DE CALL L8547 CALL L8540 CP 005H JP NC,0636AH POP DE PUSH AF CALL L79AA POP AF RST 018H DB 01FH EX DE,HL PUSH DE CALL L887D JP L8964 L909E: PUSH HL LD B,005H CALL ?CLRHL POP HL RET L90A6: CALL L903F L90A9: LD A,(HL) OR A RET Z INC HL LD A,(HL) XOR 080H LD (HL),A DEC HL RET L90B3: CALL L903F LD C,A LD A,080H JP L90C6 L90BC: LD A,(L9E9C) CP 003H JP Z,L9110 LD C,A XOR A L90C6: LD (L94C0),HL PUSH DE PUSH HL LD (094C3H),SP INC HL INC DE LD B,(HL) XOR (HL) EX DE,HL XOR (HL) DEC HL DEC DE EX DE,HL RLCA LD A,B LD (L94C2),A JP C,L91D1 XOR A CP (HL) JP Z,L9105 LD A,(DE) OR A JR Z,L90ED ; (+004H) SUB (HL) JP L9214 L90ED: LD SP,(094C3H) POP HL POP DE EI LD A,(HL) OR A JP Z,L95BD LD A,(L94C2) AND 080H INC HL RES 7,(HL) OR (HL) LD (HL),A DEC HL RET L9105: LD B,000H LD A,005H LD C,A EX DE,HL LDIR JP L90ED L9110: LD B,(HL) LD A,(DE) ADD A,B JP C,06370H LD C,A PUSH DE PUSH HL PUSH DE INC HL LD E,(HL) INC HL LD D,(HL) LD HL,(L1076) ADD HL,DE EX DE,HL LD HL,(L107A) CALL L8BFC EX (SP),HL LD B,(HL) INC HL LD E,(HL) INC HL LD D,(HL) LD HL,(L1076) ADD HL,DE EX DE,HL POP HL CALL L8BFC LD A,C LD DE,(TMPEND) LD BC,(STRST) EX DE,HL OR A SBC HL,BC EX DE,HL LD (L107A),HL POP HL LD (HL),A INC HL LD (HL),E INC HL LD (HL),D DEC HL DEC HL POP DE RET L9153: LD A,(L9E9C) CP 003H JR NZ,L918E ; (+034H) PUSH DE PUSH HL LD A,(DE) OR (HL) JR Z,L918B ; (+02bH) LD A,(DE) CP (HL) JR C,L9165 ; (+001H) LD A,(HL) L9165: OR A JR Z,L9185 ; (+01dH) INC HL LD C,(HL) INC HL LD B,(HL) EX DE,HL INC HL LD E,(HL) INC HL LD D,(HL) LD HL,(L1076) EX DE,HL ADD HL,DE EX DE,HL ADD HL,BC EX DE,HL LD B,A OR A JR Z,L918B ; (+00eH) L917D: LD A,(DE) CP (HL) JR NZ,L918B ; (+00aH) INC DE INC HL DJNZ L917D ; (-008H) L9185: POP DE POP HL LD A,(DE) CP (HL) EX DE,HL RET L918B: POP HL POP DE RET L918E: INC DE INC HL LD A,(DE) DEC DE XOR (HL) RLCA JR NC,L919A ; (+004H) LD A,(HL) DEC HL RLCA RET L919A: LD A,(HL) DEC HL RLCA JR NC,L91A5 ; (+006H) CALL L91A5 RET Z CCF RET L91A5: PUSH DE PUSH HL EX DE,HL LD A,(DE) CP (HL) JR NZ,L91C6 ; (+01aH) INC DE INC HL LD A,(HL) OR 080H LD B,A LD A,(DE) OR 080H CP B JR NZ,L91C6 ; (+00eH) LD A,(L9E9C) LD B,A DEC B DEC B L91BE: INC DE INC HL LD A,(DE) CP (HL) JR NZ,L91C6 ; (+002H) DJNZ L91BE ; (-008H) L91C6: POP HL POP DE RET L91C9: POP HL PUSH HL CALL L909E JP L90ED L91D1: CALL L91A5 JR Z,L91C9 ; (-00dH) JR NC,L91E1 ; (+009H) LD A,(L94C2) XOR 080H LD (L94C2),A SCF L91E1: EX AF,AF' LD A,(HL) OR A JP Z,L9105 LD A,(DE) OR A JP Z,L90ED SUB (HL) JR C,L91F6 ; (+007H) CP 020H JP NC,L9105 JR L91FD ; (+007H) L91F6: NEG CP 020H JP NC,L90ED L91FD: EX AF,AF' JR C,L9201 ; (+001H) EX DE,HL L9201: EX AF,AF' JP L929B L9205: LD SP,(094C3H) EI POP HL POP DE LD A,(094CAH) OR A JP Z,06367H RET L9214: JR NC,L9220 ; (+00aH) NEG CP 020H JP NC,L90ED EX DE,HL JR L9225 ; (+005H) L9220: CP 020H JP NC,L9105 L9225: CALL L925B LD A,H EXX ADC A,H EXX LD H,A LD A,L EXX ADC A,L EXX LD L,A LD A,D EXX ADC A,D EXX LD D,A LD A,E EXX ADC A,E EXX JR NC,L9248 ; (+00bH) RRA RR D RR L RR H INC C JP Z,L9205 L9248: LD E,A LD A,C EXX LD BC,00005H LD HL,(L94C0) LD (HL),A ADD HL,BC DI LD SP,HL EXX PUSH HL PUSH DE JP L90ED L925B: DI LD (094C5H),SP EX AF,AF' INC HL LD SP,HL EXX POP DE SET 7,E POP HL OR A L9269: EX AF,AF' CP 008H JR C,L927A ; (+00cH) SUB 008H EX AF,AF' RL H LD H,L LD L,D LD D,E LD E,000H JR L9269 ; (-011H) L927A: OR A JR Z,L928B ; (+00eH) L927D: EX AF,AF' OR A RR E RR D RR L RR H EX AF,AF' DEC A JR NZ,L927D ; (-00eH) L928B: EXX EX DE,HL LD C,(HL) INC HL LD SP,HL POP DE SET 7,E POP HL EX AF,AF' LD SP,(094C5H) EI RET L929B: CP 020H JP NC,L90ED CALL L925B LD A,H EXX SBC A,H EXX LD H,A LD A,L EXX SBC A,L EXX LD L,A LD A,D EXX SBC A,D EXX LD D,A LD A,E EXX SBC A,E EXX L92B6: OR A JR Z,L92CF ; (+016H) L92B9: BIT 7,A JR NZ,L92CB ; (+00eH) RL H RL L RL D RLA DEC C JP NZ,L92B9 JP L91C9 L92CB: LD E,A JP L9248 L92CF: LD A,C SUB 008H LD C,A LD A,D LD D,L LD L,H LD H,000H JR Z,L92DC ; (+002H) JR NC,L92B6 ; (-026H) L92DC: JP L91C9 L92DF: LD C,A INC HL INC DE LD A,(DE) XOR (HL) LD (L94C2),A DEC HL DEC DE RET L92EA: CALL L903F CALL L92DF PUSH DE PUSH HL LD (094C3H),SP LD A,(HL) OR A JP Z,L91C9 LD A,(DE) OR A JP Z,L91C9 INC DE PUSH DE POP IX ADD A,(HL) LD E,A LD A,000H ADC A,A LD D,A LD (094C8H),DE INC HL XOR A LD (L94C7),A LD D,(HL) SET 7,D INC HL LD E,(HL) INC HL PUSH HL LD H,A LD L,A EXX POP HL LD D,(HL) INC HL LD E,(HL) LD B,A LD C,A LD H,A LD L,A EXX LD A,(IX+000H) OR 080H LD C,004H L932D: LD B,008H OR A JP Z,L93C2 L9333: RLCA JR NC,L9348 ; (+012H) EX AF,AF' EXX LD A,C ADD A,B LD C,A ADC HL,DE EXX ADC HL,DE JR NC,L9347 ; (+005H) LD A,001H LD (L94C7),A L9347: EX AF,AF' L9348: SRL D RR E EXX RR D RR E RR B EXX DJNZ L9333 ; (-023H) L9356: INC IX LD A,(IX+000H) DEC C JR NZ,L932D ; (-031H) EXX LD A,(L94C7) OR A JR Z,L937B ; (+016H) LD DE,(094C8H) INC DE LD (094C8H),DE EXX SCF RR H RR L EXX RR H RR L RR C L937B: BIT 7,C JR Z,L9399 ; (+01aH) LD DE,00001H ADD HL,DE EXX LD DE,L0000 ADC HL,DE EXX JR NC,L9399 ; (+00dH) LD DE,(094C8H) INC DE LD (094C8H),DE EXX LD H,080H EXX L9399: POP IX PUSH IX LD (IX+004H),L LD (IX+003H),H EXX LD (IX+002H),L LD (IX+001H),H LD HL,(094C8H) OR A LD DE,L0081 SBC HL,DE LD A,H ADD A,000H JP M,L93CE JP NZ,L9205 LD (IX+000H),L JP L90ED L93C2: LD A,E EXX LD B,E LD E,D LD D,A EXX LD E,D LD D,000H JP L9356 L93CE: LD SP,(094C3H) JP L91C9 L93D5: CALL L903F CALL L92DF PUSH DE PUSH HL LD (094C3H),SP LD A,(DE) OR A JP Z,06367H EX AF,AF' LD A,(HL) OR A JP Z,L91C9 EXX ADD A,081H LD B,A LD A,000H ADC A,A EX AF,AF' LD C,A LD A,B SUB C LD C,A EX AF,AF' LD B,A EX AF,AF' LD A,B SBC A,000H JP C,L93CE JP NZ,L9205 LD A,C PUSH AF EXX INC DE INC HL LD B,(HL) SET 7,B INC HL LD C,(HL) INC HL PUSH HL EX DE,HL LD D,(HL) SET 7,D INC HL LD E,(HL) INC HL PUSH HL LD H,B LD L,C EXX POP HL LD D,(HL) INC HL LD E,(HL) POP HL LD A,(HL) INC HL LD L,(HL) LD H,A EXX LD C,005H L9427: LD B,008H XOR A L942A: BIT 7,H JR NZ,L943E ; (+010H) OR A L942F: RLA EXX ADD HL,HL EXX ADC HL,HL DJNZ L942A ; (-00dH) PUSH AF DEC C JR NZ,L9427 ; (-014H) JP L9478 L943E: OR A EXX SBC HL,DE EXX SBC HL,DE CCF JR C,L942F ; (-019H) EXX ADD HL,DE EXX ADC HL,DE OR A RLA EXX ADD HL,HL EXX ADC HL,HL DJNZ L945D ; (+007H) PUSH AF LD B,008H DEC C JP Z,L9478 L945D: EXX OR A SBC HL,DE EXX SBC HL,DE SCF RLA DJNZ L946E ; (+006H) PUSH AF LD B,008H DEC C JR Z,L9478 ; (+00aH) L946E: EXX ADD HL,HL EXX ADC HL,HL JR C,L945D ; (-018H) JP L942A L9478: POP AF LD H,A EXX POP AF LD E,A POP AF LD D,A POP AF LD C,A POP AF LD B,A POP AF L9484: BIT 7,B JR NZ,L949B ; (+013H) EXX SLA H EXX RL E RL D RL C RL B DEC A JP NZ,L9484 JP L91C9 L949B: EXX RL H EXX JR NC,L94B2 ; (+011H) LD HL,00001H ADD HL,DE EX DE,HL LD HL,L0000 ADC HL,BC LD B,H LD C,L JR NC,L94B2 ; (+003H) LD B,080H INC A L94B2: POP HL PUSH HL LD (HL),A INC HL LD (HL),B INC HL LD (HL),C INC HL LD (HL),D INC HL LD (HL),E JP L90ED L94C0: NOP NOP L94C2: NOP NOP NOP NOP NOP L94C7: NOP NOP NOP NOP L94CB: INC HL BIT 7,(HL) DEC HL RET L94D0: INC (HL) RET NZ JP 06367H L94D5: LD A,(HL) OR A RET Z DEC (HL) RET NZ JP L909E L94DD: PUSH HL INC HL INC HL INC HL INC HL INC HL EX DE,HL LD HL,(MEMMAX) DEC HL SBC HL,DE JP C,06373H POP HL RET L94EF: PUSH HL LD (L9BA0),HL CALL L94DD EX DE,HL LD (L9BA2),HL CALL L94DD EX DE,HL LD (L9BA4),HL CALL L94DD LD (09BA6H),DE POP HL RET L950A: CALL L903F EX DE,HL LD A,(HL) OR A JP Z,L956C EX DE,HL LD A,(HL) OR A JP Z,L909E CALL L94CB JR Z,L9546 ; (+028H) CALL L90A9 EX DE,HL PUSH DE PUSH HL LD DE,L9EA5 CALL L79C5 L952A: LD HL,L9EA5 CALL L7BC0 LD A,(HL) OR A JP NZ,0636AH POP HL PUSH HL CALL L7BEA BIT 0,L POP DE POP HL JR Z,L9546 ; (+006H) CALL L9546 JP L90A9 L9546: EX DE,HL LD A,(HL) OR A JR Z,L956C ; (+021H) CALL L94CB JR Z,L9572 ; (+022H) CALL L90A9 CALL L9572 PUSH DE PUSH HL LD DE,L9EA5 CALL L79C2 LD HL,L9EA5 POP DE CALL L93D5 PUSH DE CALL L79C5 POP HL POP DE RET L956C: PUSH DE CALL L79C2 POP HL RET L9572: PUSH DE LD DE,L9EA5 CALL L79C5 POP HL CALL L9A4F LD DE,L9EA5 CALL L92EA JP L992B L9586: CALL L903F PUSH DE PUSH HL CALL L7BEA LD A,L CPL LD E,A LD A,H CPL LD D,A JR L95B7 ; (+021H) L9596: LD A,0A2H LD BC,0B23EH LD BC,0AA3EH LD (L95B2),A INC A LD (L95B5),A CALL L903F PUSH DE PUSH HL CALL L7BEA EX DE,HL CALL L7BEA LD A,H L95B2: AND D LD D,A LD A,L L95B5: AND E LD E,A L95B7: POP HL CALL L79CB POP DE RET L95BD: INC HL RES 7,(HL) DEC HL RET L95C2: CALL L94CB JP Z,L7B82 CALL L95E7 CALL L7B82 LD DE,L9EA5 CALL L9153 RET Z LD DE,L7C45 JP L90B3 L95DB: LD DE,L7C45 JP L90BC L95E1: LD DE,L7C45 JP L9153 L95E7: PUSH HL PUSH DE LD DE,L9EA5 CALL L79C5 POP DE POP HL RET L95F2: CALL L7B82 EX DE,HL CALL L7B82 EX DE,HL CALL L95E7 CALL L93D5 CALL L7B82 CALL L92EA PUSH DE LD DE,L9EA5 CALL L90B3 POP DE JP L90A9 L9611: CALL L7B82 EX DE,HL CALL L7B82 EX DE,HL CALL L93D5 JP L7B82 L961F: LD A,(HL) OR A RET Z CALL L94CB JP NZ,0636AH CALL L9A4F CALL L94D5 JP L992B L9631: PUSH HL EX DE,HL CALL L79C2 POP HL POP BC RET L9639: LD A,(HL) LD C,H L963B: ADD A,B DEC HL L963D: PUSH BC INC HL LD A,(HL) RES 7,(HL) DEC HL PUSH AF CALL L964E POP AF POP BC RLCA RET NC JP L90A9 L964E: CALL L95E1 JR C,L9671 ; (+01eH) CALL L94DD PUSH DE PUSH HL CALL L79C5 POP DE PUSH DE CALL L79C2 POP HL POP DE CALL L93D5 CALL L9671 LD DE,L98CB CALL L90B3 JP L95BD L9671: LD A,0FFH LD (L97E7),A LD DE,L9639 CALL L9153 JR C,096CDH ; (+04fH) LD DE,L963B CALL L9153 PUSH AF CALL L94DD POP AF PUSH HL PUSH DE CALL L79C5 POP HL JR C,L96A5 ; (+014H) CALL L95DB EX (SP),HL CALL L90B3 POP DE CALL L93D5 CALL 096CDH LD DE,L98D0 JP L90BC L96A5: LD DE,L96C8 CALL L92EA CALL L95DB EX (SP),HL LD DE,L96C8 CALL L90B3 POP DE CALL L93D5 CALL 096CDH CALL L94D0 LD DE,L98D0 CALL L90BC JP L94D5 L96C8: LD A,A LD D,H INC DE CALL Z,0C5D0H PUSH HL CALL L94EF POP HL PUSH HL PUSH DE CALL L79C5 POP HL LD E,L LD D,H CALL L92EA LD DE,(09BA4H) POP HL PUSH HL CALL L79C5 LD A,(L9E9C) DEC A CP 004H LD B,A LD HL,L986E JP Z,L9774 LD B,00AH JP L9774 L96F9: PUSH BC LD A,(HL) OR A JP Z,L9631 LD DE,L98CB CALL L90B3 CALL L90A9 POP BC L9709: PUSH BC INC HL LD A,(HL) RES 7,(HL) AND 080H CPL LD (L97E7),A DEC HL LD DE,L98C1 PUSH HL CALL L9153 JR C,L9727 ; (+009H) CALL L93D5 CALL L7BC0 CALL L92EA L9727: LD DE,L98C6 CALL L9153 JR C,L973A ; (+00bH) CALL L90B3 L9732: LD A,(L97E7) XOR 080H LD (L97E7),A L973A: LD DE,L98CB CALL L9153 JR C,L974B ; (+009H) LD DE,L98C6 CALL L90B3 CALL L95BD L974B: CALL L94EF POP HL PUSH DE LD DE,L98D0 CALL L9153 JR NC,L97BD ; (+065H) POP DE PUSH HL PUSH DE CALL L79C5 POP HL LD E,L LD D,H CALL L92EA LD DE,(09BA4H) POP HL PUSH HL CALL L79C5 LD A,(L9E9C) LD B,A LD HL,L981E L9774: PUSH BC PUSH HL LD HL,(L9BA4) LD DE,(09BA6H) CALL L92EA POP HL PUSH HL LD DE,(09BA2H) PUSH DE CALL L79C5 POP HL LD DE,(09BA4H) CALL L92EA EX DE,HL LD HL,(L9BA0) CALL L90BC POP HL LD DE,00005H ADD HL,DE POP BC DJNZ L9774 ; (-02dH) POP HL POP BC LD A,(L97E7) INC HL XOR (HL) CPL LD (HL),A DEC HL LD A,(L9E9C) CP 008H LD A,(HL) JR Z,L97B9 ; (+006H) CP 05CH L97B5: RET NC JP L909E L97B9: CP 04DH JR L97B5 ; (-008H) L97BD: LD DE,L98CB CALL L90B3 CALL L95BD POP DE PUSH HL PUSH DE CALL L79C5 POP HL LD E,L LD D,H CALL L92EA LD DE,(09BA4H) CALL L79C2 POP DE PUSH DE CALL L79C2 LD A,(L9E9C) LD B,A LD HL,L9846 JR L9774 ; (-073H) L97E7: NOP L97E8: PUSH BC PUSH HL CALL L94DD EX DE,HL LD (L9BA8),HL CALL L94DD LD (09BAAH),DE POP HL PUSH HL CALL L79C5 LD HL,(L9BA8) EX DE,HL POP HL PUSH HL CALL L79C5 LD HL,(09BAAH) CALL L9709 POP DE PUSH DE CALL L79C5 LD HL,(L9BA8) CALL L96F9 EX DE,HL DB LSE1 ; SINTBL - Sine Taylor series coefficients DB LSRF DB 0D5H DB 093H DB 0C1H DB 0C9H L981E: DB 07EH DS 3, 0AAH DB 0ABH DB 07AH DB 008H DS 2, 088H DB 089H DB 074H DB LSD0 DB 00DH DB 000H DB LSD0 DB 06EH,038H,0EFH,01DH,02BH,067H,0D7H,"2+@`0",092H,030H,09DH,058H,0D7H,03FH,09FH,":PJ",096H,03BH,082H L9846: DS 2, 080H DS 3, 000H DB 07CH DB 02AH DS 2, 0AAH DB 0ABH,077H,0B6H,00BH,060H,0B6H,071H,050H,00DH,000H DB LSD0 DB 06BH DB 093H DB PSGA DB 07DH,0BCH,064H,00FH,076H,0C7H,080H,05CH,0C9H,0CBH,0A5H,"FTW?",09FH,03AH L986E: DB 07FH DS 3, 0AAH DB 0ABH DB 07EH DB 04CH DB LSWF DB LSWF DB LSRF DB 07EH,092H,049H,024H,092H,07DH,063H,08EH,038H DB LSE4 DB 07DH,0BAH,02EH,08BH,0A3H,07DH,01DH,089H,0D8H,09EH,07DH DS 3, 088H DB 089H DB 07CH DB 070H DB LSPAL DB LSPAL DB 0F1H DB 07CH DB 0D7H DB 094H DB 035H DB LSE5 DB 07CH,043H,00CH,030H,0C3H L98A0: DB 011H DS 2, 000H DB 07EH DB 0B7H DB 028H DB 008H DB LSRF DB 0CBH DB 094H DB 013H DB 028H DB 002H DS 2, 01BH DB LSRF DB 0CBH DB 079H DB 0C9H L98B3: DB 011H DB 0D5H DB 098H DB 018H DB 003H L98B8: DB 011H DB 0C6H DB 098H DB 0C5H DB LSRF DB 0EAH DB 092H DB 0C1H DB 0C9H L98C1: DB 083H DB 049H DB 00FH DB 0DAH DB 0A2H L98C6: DB 082H DB 049H DB 00FH DB 0DAH DB 0A2H L98CB: DB 081H DB 049H DB 00FH DB 0DAH DB 0A2H L98D0: DB 080H DB 049H DB 00FH DB 0DAH DB 0A2H LD A,E LD C,0FAH DEC (HL) INC DE L98DA: PUSH HL CALL L7BEA LD E,(HL) LD D,000H POP HL CALL L79CB RET L98E6: LD A,(HL) OR A JR Z,L98EF ; (+005H) CALL L94CB JR Z,L98FA ; (+00bH) L98EF: PUSH HL LD HL,L4193 LD (L9929),HL POP HL XOR A LD R,A L98FA: PUSH BC LD DE,(09929H) LD A,R XOR D RRC A RRC A RRC A LD D,A LD A,R XOR E RLC A RLC A LD E,D LD D,A LD (09929H),DE PUSH HL INC HL RES 7,D LD (HL),D INC HL LD (HL),E INC HL LD A,R LD (HL),A POP HL LD (HL),081H DB LSRF DB 0D5H DB 095H DB 0C1H DB 0C9H L9929: DB 093H DB 041H L992B: DB 0C5H,07EH,0B7H,0CAH,031H,096H,"#~2" LD B,C SBC A,D RES 7,(HL) DEC HL LD DE,L9B96 CALL L92EA PUSH HL CALL L94DD PUSH DE CALL L79C5 POP HL CALL L7B82 PUSH HL CALL L7BEA XOR A CP H JP NZ,06367H LD A,L LD (L9A40),A POP DE POP HL PUSH HL CALL L90B3 PUSH DE PUSH HL CALL L79C2 POP DE POP HL CALL L94D5 EX DE,HL XOR A LD B,008H L996C: PUSH BC PUSH AF CALL L9153 JR C,L997A ; (+007H) CALL L90B3 POP AF SET 7,A PUSH AF L997A: POP AF RLC A EX DE,HL PUSH AF CALL L94D5 POP AF EX DE,HL POP BC DJNZ L996C ; (-01bH) LD (L9A42),A PUSH DE LD DE,L9B8C LD A,(L9E9C) BIT 3,A JR NZ,L9998 ; (+003H) LD DE,L9B91 L9998: CALL L92EA POP DE PUSH DE CALL L79C5 POP HL LD A,(L9E9C) BIT 3,A JP Z,L9A30 CALL L94D0 LD DE,L7C40 CALL L90BC CALL L94D5 POP DE PUSH DE CALL L92EA LD DE,L7C40 CALL L94D5 CALL L90BC CALL L94D0 POP DE PUSH DE CALL L92EA LD DE,L9B87 CALL L92EA CALL L94D0 CALL L95DB CALL L94D5 POP DE PUSH DE CALL L92EA CALL L95DB POP DE PUSH DE CALL L92EA L99E7: CALL L95DB EX (SP),HL EX DE,HL PUSH DE CALL L79C2 POP HL LD DE,L9B37 LD A,(L9A42) LD B,008H L99F9: RLC A JR NC,L9A04 ; (+007H) PUSH AF PUSH BC CALL L92EA POP BC POP AF L9A04: INC DE INC DE INC DE INC DE INC DE DJNZ L99F9 ; (-012H) LD A,(L9A40) ADD A,(HL) JP C,06367H LD (HL),A POP DE CALL L92EA POP BC LD A,(09A41H) RLC A RET NC PUSH BC PUSH DE PUSH HL CALL L79C5 POP DE PUSH DE CALL L79C2 POP HL POP DE CALL L93D5 POP BC RET L9A30: POP DE PUSH DE CALL L92EA LD A,(HL) OR A CALL NZ,L94D5 CALL L90BC JP L99E7 L9A40: NOP NOP L9A42: NOP L9A43: PUSH BC CALL L9A4F LD DE,L9B28 CALL L92EA POP BC RET L9A4F: PUSH BC CALL L94CB JP NZ,0636AH LD A,(HL) OR A JP Z,0636AH SUB 081H LD (L9B27),A LD (HL),081H XOR A LD B,008H LD DE,L9B37 L9A68: PUSH BC PUSH AF CALL L9153 JR C,L9A7E ; (+00fH) PUSH HL LD HL,00028H ADD HL,DE EX DE,HL EX (SP),HL CALL L92EA POP DE POP AF SET 7,A PUSH AF L9A7E: POP AF RLC A INC DE INC DE INC DE INC DE INC DE POP BC DJNZ L9A68 ; (-021H) DB 022H AND B SBC A,E CALL L94DD EX DE,HL LD E,A LD D,000H CALL L79CB LD A,(HL) OR A JR Z,L9A9D ; (+003H) SUB 008H LD (HL),A L9A9D: LD A,(L9B27) CP 080H JR C,L9AA6 ; (+002H) NEG L9AA6: PUSH HL CALL L94DD EX DE,HL LD (L9BA2),HL LD E,A LD D,000H CALL L79CB LD A,(L9B27) AND 080H INC HL OR (HL) LD (HL),A DEC HL EX DE,HL POP HL CALL L90BC LD A,(L9E9C) LD DE,09B9BH CP 005H JR Z,L9ACF ; (+003H) LD DE,L9B8C L9ACF: CALL L92EA PUSH HL LD DE,(09BA2H) LD HL,(L9BA0) PUSH HL PUSH DE CALL L79C5 POP HL CALL L95DB EX (SP),HL CALL L90B3 POP DE CALL L93D5 PUSH DE CALL L79C5 POP HL PUSH DE LD E,L LD D,H CALL L92EA POP DE PUSH HL PUSH DE CALL L79C5 POP HL LD DE,L9B32 CALL L90BC EX DE,HL POP HL CALL L92EA LD DE,L7C40 CALL L94D0 CALL L90BC CALL L94D5 EX DE,HL LD HL,(L9BA0) CALL L92EA LD DE,L9B2D CALL L92EA POP DE CALL L90BC POP BC RET L9B27: NOP L9B28: LD A,A LD E,(HL) LD E,E RET C XOR C L9B2D: LD A,A LD C,H CALL Z,0CDCCH L9B32: DB 081H DS 3, 055H DB 056H L9B37: DB 081H,035H,004H,0F3H,034H,081H,018H,037H DB LSPAL DB 052H DB 081H DB 00BH DB 095H DB 0C1H DB LSE4 DB 081H DB 005H DB 0AAH DB 0C3H DB 068H DB 081H DB 002H DB LSRF DB 086H DB 099H DB 081H DB 001H DB 064H DB LSD1 DB SIOAD DB 081H DB 000H DB 0B1H DB 0EDH DB 050H DB 081H DB 000H DB 058H DB 0D7H DB LSD3 DB 080H,035H,004H,0F3H,034H,080H,057H,044H DB LSFC DB 0CBH,080H,06AH,0C0H,0C6H,0E8H,080H,"u%}",016H,080H,07AH,083H,0B2H,0DCH,080H,07DH,03EH,00CH,00DH,080H,07EH,09EH,011H,05DH,080H,07FH,04EH,0CBH,05AH L9B87: DB 07AH DB 008H DS 2, 088H DB 089H L9B8C: DB 080H DB 031H DB 072H DB 017H DB 0F8H L9B91: DB 080H DB 031H DB 072H DB 017H DB 0F8H L9B96: DB 081H DB 038H DB 0AAH DEC SP LD HL,(03180H) LD (HL),D RLA RET M L9BA0: NOP NOP L9BA2: NOP NOP L9BA4: NOP NOP NOP NOP L9BA8: NOP NOP NOP NOP L9BAC: CALL TEST1 DB SIOAD JR NZ,L9BBE ; (+00cH) CALL L79A3 CALL L853D CP 010H SET 7,A JR L9BC3 ; (+005H) L9BBE: CALL L853D CP 054H L9BC3: JP NC,0636AH PUSH AF CALL L79B1 CALL L8551 POP AF PUSH AF OR A CALL M,L79AA POP AF PUSH HL RST 018H DB 022H POP HL RET L9BD9: CALL L853D DEC A CP 007H INC A JP L0041 L9BE3: LD A,008H LD BC,0073EH LD (L9CEB),A CALL HLFTCH LD B,003H CP 0BEH JR Z,L9C07 ; (+013H) DEC B CP 099H JR Z,L9C07 ; (+00eH) CP 0DCH JR NZ,L9C0D ; (+010H) LD DE,L9CDF LD B,004H LD A,002H CALL ?SETDE L9C07: PUSH HL RST 018H DB 023H POP HL INC HL RET L9C0D: CALL L5963 RET Z XOR A LD (L9CE7),A LD (L9CE8),A LD B,A LD A,00DH LD DE,L27D0 LD (09CE9H),DE LD (DE),A CALL ?SETDE LD A,(L9CEB) LD (L9CEC),A L9C2C: LD DE,L9CEC LD A,(DE) RRC A LD (DE),A PUSH AF LD B,000H JR NC,L9C42 ; (+00aH) CALL HLFTCH CP 03BH JR Z,L9C42 ; (+003H) CALL L8561 L9C42: PUSH HL LD A,(L9CE8) CP 004H JP Z,L6364 INC A LD (L9CE8),A INC B JP Z,06370H LD A,(L9CE7) ADD A,B JP C,06370H LD (L9CE7),A LD HL,(L9CE9) CALL LDHLDE LD (L9CE9),HL DEC HL LD (HL),00DH POP HL POP AF JR NC,L9C2C ; (-041H) CALL L5963 JR Z,L9C7E ; (+00cH) CALL TEST1 DB 02CH JR Z,L9C7E ; (+006H) CALL TEST1 DB 03BH JR L9C2C ; (-052H) L9C7E: PUSH HL LD HL,L27D0 PUSH HL POP IX LD IY,L9CDF LD B,004H L9C8B: PUSH BC PUSH HL PUSH IX POP HL LD DE,L27D0 XOR A SBC HL,DE LD (IY+004H),L POP HL LD (09CA2H),SP CALL L9CED L9CA1: LD SP,L0000 POP BC INC HL INC IY DJNZ L9C8B ; (-01fH) LD B,003H RST 018H DB 023H LD BC,00100H LD HL,L27D0 LD DE,L2ED0 LDIR LD B,004H LD HL,L9CE3 L9CBE: LD E,(HL) LD D,000H INC HL PUSH HL LD HL,L2ED0 ADD HL,DE LD A,(HL) CP 0FFH JR Z,L9CD4 ; (+008H) LD A,004H SUB B PUSH BC EX DE,HL RST 018H DB 021H POP BC L9CD4: POP HL DJNZ L9CBE ; (-019H) LD B,001H RST 018H DB 023H POP HL JP L9C0D L9CDF: LD (BC),A LD (BC),A LD (BC),A LD (BC),A L9CE3: NOP NOP NOP NOP L9CE7: NOP L9CE8: NOP L9CE9: NOP NOP L9CEB: NOP L9CEC: NOP L9CED: CALL L9E36 L9CF0: CALL HLFTCH CALL L9E0C JR C,L9CFF ; (+007H) LD C,000H CALL L9D60 JR L9D1F ; (+020H) L9CFF: CALL L9E16 JP Z,L9E1E LD B,00CH EX DE,HL LD HL,L9D26 L9D0B: CP (HL) INC HL JR Z,L9D17 ; (+008H) DEC B JP Z,0636AH INC HL INC HL JR L9D0B ; (-00cH) L9D17: LD C,(HL) INC HL LD B,(HL) EX DE,HL INC HL CALL L9D24 L9D1F: JP C,0636AH JR L9CF0 ; (-034H) L9D24: PUSH BC RET L9D26: INC HL LD D,A SBC A,L DEC HL LD C,L SBC A,L RST 010H LD C,L SBC A,L DEC L LD C,D SBC A,L RST 008H LD C,D DB 09DH,04FH,091H,09DH,04EH,0A0H,09DH,054H,0AAH,09DH,056H,0BCH,09DH,053H,0DEH,09DH,04DH,0ECH,09DH,04CH DB LSRF DB 09DH DB 00EH DB SIOAD DB 011H DB 00EH DB 00CH DB LSRF DB 064H,001H,023H,020H,001H,00CH,011H,00EH,001H DB LSRF DB 05EH DB 001H DB LSRF DB 00CH DB 09EH DB 0D8H L9D60: DB 047H DB 023H DB LSRF DB LSFC DB 09DH,03FH,0DCH,0D4H,09DH,0D8H,078H,0FEH,052H JR Z,L9D85 ; (+016H) PUSH HL LD HL,09DFDH CALL ADDHLA LD B,(IY+000H) INC B LD A,(HL) POP HL ADD A,C SUB 00CH L9D7F: ADD A,00CH DJNZ L9D7F ; (-004H) JR L9DA4 ; (+01fH) L9D85: XOR A L9D86: PUSH AF CALL L9E29 POP AF L9D8B: LD (IX+000H),A INC IX RET CALL L9DFC JR NC,L9D98 ; (+002H) LD A,002H L9D98: CP 007H CCF RET C LD (IY+000H),A RET CALL L9DFC RET C L9DA4: CP 054H CCF RET C JR L9D86 ; (-024H) CALL L9DFC JR NC,L9DB1 ; (+002H) LD A,004H L9DB1: DEC A CP 007H CCF RET C ADD A,06AH LD (L9E45),A RET CALL L9DFC JR NC,L9DC3 ; (+002H) LD A,00FH L9DC3: CP 010H CCF RET C ADD A,080H LD (L9E46),A RET CALL L9DFC JR NC,L9DD4 ; (+002H) LD A,005H L9DD4: CP 00AH CCF RET C ADD A,060H LD (L9E47),A RET CALL L9DFC RET C CP 009H CCF RET C ADD A,090H LD (L9E48),A RET CALL L9DFC RET C OR A SCF RET Z LD B,A LD C,0A0H LD (09E49H),BC OR A RET L9DFC: CALL HLFTCH CALL L9E16 SCF CALL NZ,L79F6 RET C RST 018H DB 013H JP L8540 L9E0C: CP 052H RET Z CP 041H RET C CP 048H CCF RET L9E16: OR A RET Z CP 00DH RET Z CP 0C8H RET L9E1E: CALL L9E29 LD A,0FFH CALL L9D8B JP L9CA1 L9E29: LD DE,L9E45 LD B,006H L9E2E: LD A,(DE) OR A CALL NZ,L9D8B INC DE DJNZ L9E2E ; (-008H) L9E36: LD DE,L9E45 LD B,006H JP ?CLRDE ADD HL,BC DEC BC NOP LD (BC),A INC B DEC B RLCA L9E45: NOP L9E46: NOP L9E47: NOP L9E48: NOP NOP NOP L9E4B: DS 2, 000H L9E4D: DS 2, 000H L9E4F: DS 2, 000H L9E51: DS 2, 000H L9E53: DB 000H L9E54: DB 000H L9E55: DS 2, 000H L9E57: DS 2, 000H L9E59: DS 4, 000H L9E5D: DB 000H L9E5E: DS 2, 000H DB 015H DB 000H DB 0EBH DB 0FFH DS 2, 000H L9E66: DS 2, 000H L9E68: DS 2, 000H L9E6A: DS 7, 000H L9E71: DB 000H L9E72: DS 3, 000H L9E75: DB 000H L9E76: DS 4, 000H L9E7A: DB 000H L9E7B: DS 8, 000H L9E83: DS 25, 000H L9E9C: DB 008H L9E9D: DS 8, 000H L9EA5: DS 8, 000H L9EAD: DS 8, 000H L9EB5: DB 016H DB 00DH DB 020H DS 38, 0D7H DS 4, 020H DB "BASIC ",005H,"INTERPRETER" DS 2, 020H DB 006H,"MZ-5Z" DS 2, 030H DB "9 V1.0A" DS 2, 020H DB 00DH DS 3, 020H DB 043H,005H,"OPYRIGHT ",006H,"(C) 1984 ",005H,"BY ",006H,"SHARP CORP." DS 5, 020H DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR L9F40: DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB LSSCR DB 020H DB 00DH DB 020H DB 005H DS 2, 032H DB "340 BYTES FR" DS 2, 045H DS 2, 00DH DS 93, 000H LD C,(HL) L9FCF: LD BC,063CBH LD DE,L9FF7 L9FD5: LD A,(DE) INC DE ADD A,A JR Z,L9FE5 ; (+00bH) LD HL,L5C5B CALL ADDHLA LD (HL),C INC HL LD (HL),B JR L9FD5 ; (-010H) L9FE5: XOR A LD (L108F),A LD A,(L1097) DEC A CALL NZ,LA04B LD HL,LA015 LD (L1070),HL RET L9FF7: AND D AND E AND H AND L AND (HL) AND A XOR B XOR (HL) L9FFF: XOR A OR B OR C OR E CP E CP H CP L NOP LA007: LD B,001H JR LA00D ; (+002H) LA00B: LD B,002H LA00D: LD A,(L1097) CP B RET Z JP L63B7 LA015: CALL LA01D XOR A LD (L1095),A RET LA01D: LD A,(L108F) OR A JP NZ,L63B7 CALL LA468 CALL TEST1 DB 047H JP Z,LA06F CALL TESTX DB 054H CALL TEST1 DB 04EH JR Z,LA042 ; (+00aH) CALL TEST1 DB 04CH DB 028H DB 004H DB LSRF DB 06EH DB 001H DB 053H LA042: DB 032H DB LSDMD DB 09FH DB LSRF DB 07AH DB 079H DB LSRF DB 067H DB 0A0H LA04B: DB 03EH LD BC,L9732 DJNZ 0A030H ; (-021H) DB 006H LD A,(09FCEH) CP 04EH RET Z CP 04CH LD A,00BH JR Z,LA064 ; (+006H) LA05E: LD A,009H RST 018H DB 006H RST 018H DB 006H LA064: RST 018H DB 006H RET LA067: LD A,00AH RST 018H DB 006H LD A,003H JR LA064 ; (-00bH) LA06F: INC HL CALL L797A LD A,002H LD (L1097),A JR LA064 ; (-016H) LA07A: CALL LA468 CALL LA007 CALL L8551 LD A,E OR A RET Z CP 0ECH JR NC,LA08F ; (+005H) CP 015H JP NC,0636AH LA08F: CALL L797A BIT 7,E JR NZ,LA09E ; (+008H) LA096: LD A,00AH RST 018H DB 006H DEC E JR NZ,LA096 ; (-007H) RET LA09E: LD A,003H RST 018H DB 006H INC E JR NZ,LA09E ; (-007H) RET LA0A6: PUSH HL LD HL,L03E7 JR LA0B0 ; (+004H) LA0AC: PUSH HL LD HL,L01E0 LA0B0: PUSH HL ADD HL,DE POP HL JR C,LA0BA ; (+005H) SBC HL,DE JP C,0636AH LA0BA: POP HL RET LA0BC: LD C,044H LD DE,04A0EH LD DE,L4D0E LD DE,0520EH CALL LA468 CALL LA00B LD A,C LD (0A111H),A CP 04DH JR NC,LA0F7 ; (+022H) CALL TEST1 DB 025H JR NZ,LA0F7 ; (+01cH) CALL L853D LD A,E DEC A CP 010H JP NC,0636AH DEC DE LD A,04CH RST 018H DB 006H CALL LA3CD CALL LA156 CALL L5963 RET Z CALL L79B4 LA0F7: CALL L8551 CALL L79B4 CALL LA0AC PUSH DE CALL L8551 CP 02CH JR Z,LA10B ; (+003H) CALL L797A LA10B: CALL LA0A6 POP BC PUSH DE LD A,000H RST 018H DB 006H LD E,C LD D,B CALL LA3CD CALL LA15A POP DE CALL LA3CD CALL LA156 CALL L5963 RET Z INC HL JR LA0F7 ; (-033H) LA12A: CALL LA468 CALL L853D LD A,E CP 004H JP NC,0636AH CALL L797A LD A,(L1097) CP 002H JR Z,LA14D ; (+00dH) CALL LA067 LD A,002H RST 018H DB 006H CALL LA14D JP LA45A LA14D: LD A,043H RST 018H DB 006H LD A,E OR 030H RST 018H DB 006H LA156: LD A,00DH JR LA15C ; (+002H) LA15A: LD A,02CH LA15C: RST 018H DB 006H RET LA15F: LD C,048H LD DE,L490E CALL LA00B CALL L797A LD A,C JR LA15C ; (-011H) LA16D: CALL LA468 CALL LA00B CALL TEST1 DB 05BH JR NZ,LA1B1 ; (+038H) CALL L853D CP 040H JP NC,0636AH PUSH DE CALL L79B1 CALL L853D CP 004H JP NC,0636AH PUSH DE CALL TESTX DB 05DH POP BC POP DE PUSH BC LD A,053H RST 018H DB 006H CALL LA3CD CALL LA15A POP DE LD A,051H RST 018H DB 006H CALL LA3CD CALL LA156 CALL L5963 RET Z CALL L79B4 LA1B1: CALL L8561 CALL L5963 JR Z,LA1BD ; (+004H) CALL L79B4 DEC HL LA1BD: LD A,B OR A JR Z,LA1CE ; (+00dH) LD A,050H RST 018H DB 006H LA1C5: LD A,(DE) RST 018H DB 006H INC DE DJNZ LA1C5 ; (-006H) CALL LA156 LA1CE: CALL L5963 RET Z INC HL JR LA1B1 ; (-024H) LA1D5: CALL LA00B CALL L853D CP 002H JP NC,0636AH PUSH AF CALL L79B1 CALL L8551 PUSH DE CALL L79B4 CALL L853D OR A JP Z,0636AH CALL L797A LD A,058H RST 018H DB 006H POP BC POP AF PUSH DE PUSH BC OR 030H RST 018H DB 006H CALL LA15A POP DE CALL LA0A6 CALL LA3CD CALL LA15A POP DE CALL LA3CD JP LA156 LA215: CALL LA00B PUSH HL LD DE,L0000 LD HL,LA3AF CALL L79CB LD DE,L0168 LD HL,LA3B4 CALL L79CB LD HL,L7C40 LD DE,LA3B9 CALL L79C5 POP HL CALL L857C CALL L79B4 PUSH HL LD HL,LA3A0 EX DE,HL CALL L79C5 POP HL CALL L857C CALL L79B4 PUSH HL LD HL,LA3A5 EX DE,HL CALL L79C5 POP HL CALL L857C PUSH HL PUSH AF LD HL,LA3AA EX DE,HL CALL L79C5 LD A,(0A3ABH) RLCA JP C,0636AH POP AF CP 02CH JR NZ,LA2A5 ; (+03aH) POP HL INC HL CALL L857C PUSH HL PUSH AF LD HL,LA3AF EX DE,HL CALL L79C5 POP AF CP 02CH JR NZ,LA2A5 ; (+027H) POP HL INC HL CALL L857C PUSH HL PUSH AF LD HL,LA3B4 EX DE,HL CALL L79C5 POP AF CP 02CH JR NZ,LA2A5 ; (+014H) POP HL INC HL CALL L857C PUSH HL LD HL,LA3B9 EX DE,HL CALL L79C5 LD A,(0A3BAH) RLCA JP C,0636AH LA2A5: POP HL CALL L797A PUSH HL LD HL,LA3B4 LD DE,LA3AF LD A,(LA3B9) OR A CALL NZ,L9153 JP C,0636AH CALL LA356 LD HL,LA3BE LD (0A32EH),HL LD HL,LA3C3 LD (0A339H),HL CALL 0A32AH LD A,(LA3B9) OR A JR Z,LA304 ; (+032H) LA2D2: LD HL,LA3AF LD DE,LA3B9 CALL L90BC LD DE,LA3B4 CALL L9153 JR NC,LA2EF ; (+00cH) CALL LA356 CALL LA327 RST 018H DB 00EH JR NZ,LA2D2 ; (-01bH) POP HL RET LA2EF: CALL LA2F7 CALL LA327 POP HL RET LA2F7: LD HL,LA3B4 LD DE,LA3AF LD BC,00005H LDIR JR LA356 ; (+052H) LA304: LD HL,LA3A0 LD (0A32EH),HL LD HL,LA3A5 LD (0A339H),HL CALL LA327 CALL LA2F7 LD HL,LA3BE LD (0A32EH),HL LD HL,LA3C3 LD (0A339H),HL CALL LA327 POP HL RET LA327: LD A,044H LD HL,04D3EH PUSH AF LD HL,LA3A0 CALL L7BEA PUSH HL EX DE,HL CALL LA0A6 LD HL,LA3A5 CALL L7BEA PUSH HL EX DE,HL CALL LA0A6 POP HL POP DE POP AF RST 018H DB 006H PUSH HL CALL LA3CD CALL LA15A POP DE CALL LA3CD JP LA156 LA356: LD DE,(INTFAC) LD HL,LA3AF CALL L79C5 LD HL,(L107C) CALL L98B3 CALL L96F9 LD DE,LA3AA CALL L92EA LD DE,LA3A0 CALL L90BC LD DE,LA3BE CALL L79C5 LD DE,(INTFAC) LD HL,LA3AF CALL L79C5 LD HL,(L107C) CALL L98B3 CALL L9709 LD DE,LA3AA CALL L92EA LD DE,LA3A5 CALL L90BC LD DE,LA3C3 JP L79C5 LA3A0: NOP NOP NOP NOP NOP LA3A5: NOP NOP NOP NOP NOP LA3AA: NOP NOP NOP NOP NOP LA3AF: NOP NOP NOP NOP NOP LA3B4: NOP NOP NOP NOP NOP LA3B9: NOP NOP NOP NOP NOP LA3BE: NOP NOP NOP NOP NOP LA3C3: NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP LA3CD: PUSH AF PUSH HL LD HL,(L107C) CALL L79CB CALL L7B5B RST 018H DB 017H LA3DA: LD A,(DE) RST 018H DB 006H INC DE DJNZ LA3DA ; (-006H) POP HL POP AF RET LA3E3: CALL LA468 DB LSRF DB 007H DB 0A0H DB LSRF DB "zy>",004H,0DFH,006H,0C9H LA3F1: DB LSRF DB 007H DB 0A0H DB LSRF DB 051H,085H,07BH,0B7H,0CAH,06AH,063H,0FEH,049H DB LSD2 DB 06AH DB 063H DB LSRF DB "zy>",009H,0DFH,006H,0DFH,006H,03AH,092H,010H,0CBH,047H,028H,006H DB LSRF CALL 0C3A3H LD D,(HL) AND C LD A,E LD DE,L11A4 CALL L851A DEC DE DEC DE LD A,(DE) RST 018H DB 006H INC DE LD A,(DE) RST 018H DB 006H RET LA428: LD A,(HL) CP 09DH JR Z,LA438 ; (+00bH) CP 0A1H JP NZ,L6364 XOR A LA433: LD (L108F),A INC HL RET LA438: CALL LA007 CALL LA468 LD A,(09FCEH) CP 04CH JP Z,L63B7 CALL LA45A LD A,(L108F) OR A JR NZ,LA433 ; (-01cH) CALL L6A8D LD A,016H RST 018H DB 003H OR 001H JR LA433 ; (-027H) LA45A: LD A,001H RST 018H DB 006H LD A,(L137A) CP 003H RET C CALL LA05E RET LA468: LD A,(PSEL) BIT 0,A JP Z,L63B7 RET EXECSTART: XOR A ; Execution entry point LD DE,L0000 CALL TIMST ;LD HL,(DTEFG) ;PUSH HL LD DE,L0000 LD HL,BASICEND - L0000 OR A SBC HL,DE LD C,L LD B,H LD HL,TAPECOPY OUT (LSE0),A LDIR ;POP HL ;LD (L0054),HL JP L0000 DS 0,11 BASICEND: