|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 22272 (0x5700)
Names: »BIOS2.ASM«
└─⟦0d02879d3⟧ Bits:30004605 COMPAS Pascal version 3.03
└─ ⟦this⟧ »BIOS2.ASM«
0x0000…0020 3b 0d 0a 57 52 49 54 45 48 53 54 3a 0d 0a 09 43 41 4c 4c 09 53 45 54 55 50 0d 0a 09 4c 44 09 41 ┆; WRITEHST: CALL SETUP LD A┆
0x0020…0040 2c 34 35 48 0d 0a 09 4c 44 09 28 49 4f 43 4d 44 2b 4f 46 46 53 45 54 29 2c 41 0d 0a 09 43 41 4c ┆,45H LD (IOCMD+OFFSET),A CAL┆
0x0040…0060 4c 09 49 4f 53 45 43 0d 0a 09 4c 44 09 28 45 52 46 4c 41 47 29 2c 41 0d 0a 09 52 45 54 0d 0a 0d ┆L IOSEC LD (ERFLAG),A RET ┆
0x0060…0080 0a 52 45 41 44 48 53 54 3a 0d 0a 09 43 41 4c 4c 09 53 45 54 55 50 0d 0a 52 45 41 44 48 31 3a 20 ┆ READHST: CALL SETUP READH1: ┆
0x0080…00a0 4c 44 09 41 2c 34 36 48 0d 0a 09 4c 44 09 28 49 4f 43 4d 44 2b 4f 46 46 53 45 54 29 2c 41 0d 0a ┆LD A,46H LD (IOCMD+OFFSET),A ┆
0x00a0…00c0 09 43 41 4c 4c 09 49 4f 53 45 43 0d 0a 09 4c 44 09 28 45 52 46 4c 41 47 29 2c 41 0d 0a 09 52 45 ┆ CALL IOSEC LD (ERFLAG),A RE┆
0x00c0…00e0 54 0d 0a 53 45 54 55 50 3a 09 4c 44 09 41 2c 28 48 53 54 44 53 4b 29 0d 0a 09 4c 44 09 43 2c 41 ┆T SETUP: LD A,(HSTDSK) LD C,A┆
0x00e0…0100 0d 0a 09 4c 44 09 42 2c 30 0d 0a 09 4c 44 09 48 4c 2c 44 49 53 4b 46 4f 2b 4f 46 46 53 45 54 0d ┆ LD B,0 LD HL,DISKFO+OFFSET ┆
0x0100…0120 0a 09 41 44 44 09 48 4c 2c 42 43 0d 0a 09 4c 44 09 41 2c 28 48 4c 29 0d 0a 09 43 50 09 30 0d 0a ┆ ADD HL,BC LD A,(HL) CP 0 ┆
0x0120…0140 09 4a 52 09 5a 2c 53 45 54 55 50 30 0d 0a 09 43 50 09 31 0d 0a 09 4a 52 09 5a 2c 53 45 54 55 50 ┆ JR Z,SETUP0 CP 1 JR Z,SETUP┆
0x0140…0160 31 0d 0a 09 43 50 09 32 0d 0a 09 4a 52 09 5a 2c 53 45 54 55 50 32 0d 0a 09 4a 50 09 45 52 52 4f ┆1 CP 2 JR Z,SETUP2 JP ERRO┆
0x0160…0180 52 0d 0a 53 45 54 55 50 30 3a 0d 0a 09 58 4f 52 09 41 0d 0a 09 4c 44 09 28 48 45 41 44 4e 4f 2b ┆R SETUP0: XOR A LD (HEADNO+┆
0x0180…01a0 4f 46 46 53 45 54 29 2c 41 0d 0a 09 4c 44 09 41 2c 28 48 53 54 54 52 4b 29 0d 0a 09 53 52 4c 09 ┆OFFSET),A LD A,(HSTTRK) SRL ┆
0x01a0…01c0 41 0d 0a 09 4a 52 09 4e 43 2c 53 45 54 55 31 0d 0a 09 50 55 53 48 09 41 46 0d 0a 09 4c 44 09 41 ┆A JR NC,SETU1 PUSH AF LD A┆
0x01c0…01e0 2c 31 0d 0a 09 4c 44 09 28 48 45 41 44 4e 4f 2b 4f 46 46 53 45 54 29 2c 41 0d 0a 09 50 4f 50 09 ┆,1 LD (HEADNO+OFFSET),A POP ┆
0x01e0…0200 41 46 0d 0a 53 45 54 55 31 3a 0d 0a 09 4c 44 09 28 53 45 45 4b 54 52 2b 4f 46 46 53 45 54 29 2c ┆AF SETU1: LD (SEEKTR+OFFSET),┆
0x0200…0220 41 0d 0a 09 43 41 4c 4c 09 53 45 54 55 50 35 0d 0a 09 4c 44 09 41 2c 28 48 53 54 53 45 43 29 0d ┆A CALL SETUP5 LD A,(HSTSEC) ┆
0x0220…0240 0a 09 4c 44 09 48 4c 2c 54 52 30 0d 0a 09 43 41 4c 4c 09 53 45 54 55 50 38 0d 0a 09 43 41 4c 4c ┆ LD HL,TR0 CALL SETUP8 CALL┆
0x0240…0260 09 53 45 54 55 50 39 0d 0a 09 52 45 54 0d 0a 53 45 54 55 50 31 3a 20 43 41 4c 4c 09 53 45 54 55 ┆ SETUP9 RET SETUP1: CALL SETU┆
0x0260…0280 50 34 0d 0a 09 4c 44 09 48 4c 2c 54 52 31 0d 0a 09 43 41 4c 4c 09 53 45 54 55 50 38 0d 0a 09 58 ┆P4 LD HL,TR1 CALL SETUP8 X┆
0x0280…02a0 4f 52 09 41 0d 0a 09 4c 44 09 28 48 45 41 44 4e 4f 2b 4f 46 46 53 45 54 29 2c 41 0d 0a 09 43 41 ┆OR A LD (HEADNO+OFFSET),A CA┆
0x02a0…02c0 4c 4c 09 53 45 54 55 50 39 0d 0a 09 52 45 54 0d 0a 53 45 54 55 50 32 3a 20 43 41 4c 4c 09 53 45 ┆LL SETUP9 RET SETUP2: CALL SE┆
0x02c0…02e0 54 55 50 34 0d 0a 09 43 50 09 30 39 48 0d 0a 09 4a 52 09 43 2c 53 45 54 55 50 33 0d 0a 09 53 55 ┆TUP4 CP 09H JR C,SETUP3 SU┆
0x02e0…0300 42 09 39 0d 0a 09 4c 44 09 48 4c 2c 54 52 32 0d 0a 09 43 41 4c 4c 09 53 45 54 55 50 38 0d 0a 09 ┆B 9 LD HL,TR2 CALL SETUP8 ┆
0x0300…0320 4c 44 09 41 2c 31 0d 0a 09 4c 44 09 28 48 45 41 44 4e 4f 2b 4f 46 46 53 45 54 29 2c 41 0d 0a 53 ┆LD A,1 LD (HEADNO+OFFSET),A S┆
0x0320…0340 45 54 55 33 3a 0d 0a 09 4c 44 09 41 2c 39 0d 0a 09 4c 44 09 28 49 4f 45 4f 54 2b 4f 46 46 53 45 ┆ETU3: LD A,9 LD (IOEOT+OFFSE┆
0x0340…0360 54 29 2c 41 0d 0a 09 52 45 54 0d 0a 53 45 54 55 50 33 3a 0d 0a 09 4c 44 09 48 4c 2c 54 52 32 0d ┆T),A RET SETUP3: LD HL,TR2 ┆
0x0360…0380 0a 09 43 41 4c 4c 09 53 45 54 55 50 38 0d 0a 09 58 4f 52 09 41 0d 0a 09 4c 44 09 28 48 45 41 44 ┆ CALL SETUP8 XOR A LD (HEAD┆
0x0380…03a0 4e 4f 2b 4f 46 46 53 45 54 29 2c 41 0d 0a 09 4a 52 09 53 45 54 55 33 0d 0a 53 45 54 55 50 34 3a ┆NO+OFFSET),A JR SETU3 SETUP4:┆
0x03a0…03c0 0d 0a 09 4c 44 09 41 2c 28 48 53 54 54 52 4b 29 0d 0a 09 41 44 44 09 41 2c 41 0d 0a 09 4c 44 09 ┆ LD A,(HSTTRK) ADD A,A LD ┆
0x03c0…03e0 28 53 45 45 4b 54 52 2b 4f 46 46 53 45 54 29 2c 41 0d 0a 09 43 41 4c 4c 09 53 45 54 55 50 35 0d ┆(SEEKTR+OFFSET),A CALL SETUP5 ┆
0x03e0…0400 0a 09 4c 44 09 41 2c 28 48 53 54 53 45 43 29 0d 0a 09 52 45 54 0d 0a 53 45 54 55 50 35 3a 0d 0a ┆ LD A,(HSTSEC) RET SETUP5: ┆
0x0400…0420 09 4c 44 09 41 2c 28 48 53 54 44 53 4b 29 0d 0a 09 4c 44 09 28 53 45 45 4b 4e 4f 2b 4f 46 46 53 ┆ LD A,(HSTDSK) LD (SEEKNO+OFFS┆
0x0420…0440 45 54 29 2c 41 0d 0a 09 52 45 54 0d 0a 53 45 54 55 50 38 3a 0d 0a 09 4c 44 09 43 2c 41 0d 0a 09 ┆ET),A RET SETUP8: LD C,A ┆
0x0440…0460 4c 44 09 42 2c 30 0d 0a 09 41 44 44 09 48 4c 2c 42 43 0d 0a 09 4c 44 09 41 2c 28 48 4c 29 0d 0a ┆LD B,0 ADD HL,BC LD A,(HL) ┆
0x0460…0480 09 4c 44 09 28 53 45 43 54 4f 52 29 2c 41 0d 0a 09 52 45 54 0d 0a 53 45 54 55 50 39 3a 0d 0a 09 ┆ LD (SECTOR),A RET SETUP9: ┆
0x0480…04a0 4c 44 09 41 2c 31 30 0d 0a 09 4c 44 09 28 49 4f 45 4f 54 2b 4f 46 46 53 45 54 29 2c 41 0d 0a 09 ┆LD A,10 LD (IOEOT+OFFSET),A ┆
0x04a0…04c0 52 45 54 0d 0a 0d 0a 0d 0a 3b 09 20 45 4a 45 43 54 0d 0a 3b 09 20 54 49 54 4c 45 09 20 4d 4f 54 ┆RET ; EJECT ; TITLE MOT┆
0x04c0…04e0 4f 52 53 54 41 52 54 0d 0a 3b 0d 0a 3b 20 4d 4f 54 4f 52 53 20 2d 20 43 48 45 43 4b 20 44 49 53 ┆ORSTART ; ; MOTORS - CHECK DIS┆
0x04e0…0500 4b 20 52 55 4e 4e 49 4e 47 20 41 4e 44 20 53 54 41 52 54 20 49 54 20 49 46 20 4e 45 43 45 53 53 ┆K RUNNING AND START IT IF NECESS┆
0x0500…0520 41 52 59 0d 0a 3b 0d 0a 4d 4f 54 4f 52 53 3a 0d 0a 09 4f 55 54 09 28 46 44 43 4d 4f 4e 29 2c 41 ┆ARY ; MOTORS: OUT (FDCMON),A┆
0x0520…0540 0d 0a 09 4c 44 09 41 2c 28 4d 4f 54 4f 52 46 29 0d 0a 09 4f 52 09 41 0d 0a 09 4c 44 09 41 2c 28 ┆ LD A,(MOTORF) OR A LD A,(┆
0x0540…0560 4d 4f 54 4f 52 31 29 0d 0a 09 4c 44 09 28 4d 4f 54 4f 52 46 29 2c 41 0d 0a 09 52 45 54 09 4e 5a ┆MOTOR1) LD (MOTORF),A RET NZ┆
0x0560…0580 0d 0a 09 4c 44 09 41 2c 30 46 46 48 0d 0a 09 43 41 4c 4c 09 44 45 4c 41 59 0d 0a 09 52 45 54 0d ┆ LD A,0FFH CALL DELAY RET ┆
0x0580…05a0 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 3b 09 20 45 4a 45 43 54 0d 0a 3b 09 20 54 49 54 4c 45 09 20 49 ┆ ; EJECT ; TITLE I┆
0x05a0…05c0 4f 53 45 43 0d 0a 3b 0d 0a 3b 20 49 4f 53 45 43 20 2d 20 52 45 41 44 2f 57 52 49 54 45 20 41 20 ┆OSEC ; ; IOSEC - READ/WRITE A ┆
0x05c0…05e0 53 45 43 54 4f 52 0d 0a 3b 0d 0a 3b 20 49 4e 50 55 54 20 3a 20 48 53 54 54 52 41 43 4b 20 20 3a ┆SECTOR ; ; INPUT : HSTTRACK :┆
0x05e0…0600 20 54 52 41 43 4b 20 4e 55 4d 42 45 52 0d 0a 3b 09 20 20 53 45 43 54 4f 52 20 20 20 20 3a 20 53 ┆ TRACK NUMBER ; SECTOR : S┆
0x0600…0620 45 43 54 4f 52 20 4e 55 4d 42 45 52 0d 0a 3b 09 20 20 49 4f 43 4d 44 20 20 20 20 20 3a 20 30 36 ┆ECTOR NUMBER ; IOCMD : 06┆
0x0620…0640 48 20 46 4f 52 20 52 45 41 44 2c 20 30 35 48 20 46 4f 52 20 57 52 49 54 45 0d 0a 3b 09 20 20 48 ┆H FOR READ, 05H FOR WRITE ; H┆
0x0640…0660 53 54 44 53 4b 20 20 20 20 3a 20 44 49 53 4b 20 4e 4f 0d 0a 3b 09 20 20 48 45 41 44 4e 4f 20 20 ┆STDSK : DISK NO ; HEADNO ┆
0x0660…0680 20 20 3a 20 44 49 53 4b 20 53 49 44 45 0d 0a 3b 20 4f 55 54 50 55 54 3a 20 41 20 3d 20 30 0d 0a ┆ : DISK SIDE ; OUTPUT: A = 0 ┆
0x0680…06a0 3b 0d 0a 3b 20 46 55 4e 43 54 49 4f 4e 3a 0d 0a 3b 20 20 20 20 52 45 41 44 53 2f 57 52 49 54 45 ┆; ; FUNCTION: ; READS/WRITE┆
0x06a0…06c0 53 20 54 48 45 20 53 50 45 43 49 46 49 45 44 20 53 45 43 54 4f 52 2e 20 49 46 20 41 4e 20 45 52 ┆S THE SPECIFIED SECTOR. IF AN ER┆
0x06c0…06e0 52 4f 52 0d 0a 3b 20 20 4f 43 43 55 52 53 2c 20 54 48 45 20 53 45 43 54 4f 52 20 49 53 20 52 45 ┆ROR ; OCCURS, THE SECTOR IS RE┆
0x06e0…0700 2d 52 45 41 44 2f 52 45 2d 57 52 49 54 54 45 4e 20 55 50 20 54 4f 0d 0a 3b 20 20 4d 41 58 52 45 ┆-READ/RE-WRITTEN UP TO ; MAXRE┆
0x0700…0720 50 45 41 54 53 20 54 49 4d 45 53 2e 0d 0a 3b 0d 0a 0d 0a 49 4f 53 45 43 3a 0d 0a 09 58 4f 52 09 ┆PEATS TIMES. ; IOSEC: XOR ┆
0x0720…0740 41 0d 0a 09 4c 44 09 28 4e 52 52 45 50 45 41 54 53 29 2c 41 0d 0a 09 4c 44 09 41 2c 28 48 53 54 ┆A LD (NRREPEATS),A LD A,(HST┆
0x0740…0760 44 53 4b 29 0d 0a 09 4c 44 09 4c 2c 41 0d 0a 09 4c 44 09 41 2c 28 48 45 41 44 4e 4f 2b 4f 46 46 ┆DSK) LD L,A LD A,(HEADNO+OFF┆
0x0760…0780 53 45 54 29 0d 0a 09 4f 52 09 41 0d 0a 09 4c 44 09 41 2c 4c 0d 0a 09 4c 44 09 28 52 45 43 41 4e ┆SET) OR A LD A,L LD (RECAN┆
0x0780…07a0 4f 2b 4f 46 46 53 45 54 29 2c 41 0d 0a 09 4a 52 09 5a 2c 49 4f 53 45 43 33 0d 0a 09 4f 52 09 30 ┆O+OFFSET),A JR Z,IOSEC3 OR 0┆
0x07a0…07c0 34 0d 0a 49 4f 53 45 43 33 3a 0d 0a 09 4c 44 09 28 49 4f 44 49 53 4b 2b 4f 46 46 53 45 54 29 2c ┆4 IOSEC3: LD (IODISK+OFFSET),┆
0x07c0…07e0 41 0d 0a 49 4f 53 45 30 35 3a 0d 0a 09 43 41 4c 4c 09 4d 4f 54 4f 52 53 0d 0a 49 4f 53 45 39 3a ┆A IOSE05: CALL MOTORS IOSE9:┆
0x07e0…0800 09 4c 44 09 48 4c 2c 53 45 45 4b 43 4f 2b 4f 46 46 53 45 54 0d 0a 09 43 41 4c 4c 09 43 4f 4d 4d ┆ LD HL,SEEKCO+OFFSET CALL COMM┆
0x0800…0820 41 4e 44 0d 0a 09 43 41 4c 4c 09 45 4e 44 53 45 45 4b 0d 0a 09 4c 44 09 41 2c 28 48 53 54 54 52 ┆AND CALL ENDSEEK LD A,(HSTTR┆
0x0820…0840 4b 29 0d 0a 09 4c 44 09 28 49 4f 54 52 4b 4e 4f 2b 4f 46 46 53 45 54 29 2c 41 20 20 20 20 20 3b ┆K) LD (IOTRKNO+OFFSET),A ;┆
0x0840…0860 20 20 20 20 20 49 4e 20 54 48 45 20 49 4f 20 43 4f 4d 4d 41 4e 44 0d 0a 09 4c 44 09 41 2c 28 53 ┆ IN THE IO COMMAND LD A,(S┆
0x0860…0880 45 43 54 4f 52 29 09 3b 20 20 20 20 20 4c 49 53 54 0d 0a 09 4c 44 09 28 49 4f 53 45 43 4e 4f 2b ┆ECTOR) ; LIST LD (IOSECNO+┆
0x0880…08a0 4f 46 46 53 45 54 29 2c 41 0d 0a 09 4c 44 09 48 4c 2c 49 4f 43 4f 4d 4d 41 4e 44 2b 4f 46 46 53 ┆OFFSET),A LD HL,IOCOMMAND+OFFS┆
0x08a0…08c0 45 54 0d 0a 09 43 41 4c 4c 09 43 4f 4d 4d 41 4e 44 20 09 3b 20 20 20 43 4f 4d 4d 41 4e 44 28 49 ┆ET CALL COMMAND ; COMMAND(I┆
0x08c0…08e0 4f 5f 43 4f 4d 4d 41 4e 44 29 0d 0a 0d 0a 3b 0d 0a 3b 20 45 58 45 43 55 54 49 4f 4e 20 50 48 41 ┆O_COMMAND) ; ; EXECUTION PHA┆
0x08e0…0900 53 45 0d 0a 3b 0d 0a 09 4c 44 09 48 4c 2c 48 53 54 42 55 46 0d 0a 09 4c 44 09 41 2c 28 49 4f 43 ┆SE ; LD HL,HSTBUF LD A,(IOC┆
0x0900…0920 4d 44 2b 4f 46 46 53 45 54 29 0d 0a 09 41 4e 44 09 30 30 30 30 31 31 31 31 42 0d 0a 09 4c 44 09 ┆MD+OFFSET) AND 00001111B LD ┆
0x0920…0940 44 2c 30 41 30 48 0d 0a 09 43 50 09 30 36 48 0d 0a 09 4a 52 09 4e 5a 2c 49 4f 53 45 35 30 0d 0a ┆D,0A0H CP 06H JR NZ,IOSE50 ┆
0x0940…0960 09 4c 44 09 43 2c 46 44 43 44 54 0d 0a 49 4f 53 45 31 30 3a 0d 0a 09 4c 44 09 42 2c 30 0d 0a 49 ┆ LD C,FDCDT IOSE10: LD B,0 I┆
0x0960…0980 4f 53 45 32 30 3a 20 49 4e 09 41 2c 28 46 44 43 53 54 29 0d 0a 09 41 4e 44 09 44 0d 0a 09 4a 50 ┆OSE20: IN A,(FDCST) AND D JP┆
0x0980…09a0 09 50 2c 49 4f 53 45 32 30 0d 0a 09 4a 50 09 50 4f 2c 49 4f 53 45 39 30 0d 0a 09 49 4e 49 0d 0a ┆ P,IOSE20 JP PO,IOSE90 INI ┆
0x09a0…09c0 09 4a 50 09 4e 5a 2c 49 4f 53 45 32 30 0d 0a 09 4c 44 09 42 2c 30 0d 0a 49 4f 53 45 32 31 3a 20 ┆ JP NZ,IOSE20 LD B,0 IOSE21: ┆
0x09c0…09e0 49 4e 09 41 2c 28 46 44 43 53 54 29 0d 0a 09 41 4e 44 09 44 0d 0a 09 4a 50 09 50 2c 49 4f 53 45 ┆IN A,(FDCST) AND D JP P,IOSE┆
0x09e0…0a00 32 31 0d 0a 09 4a 50 09 50 4f 2c 49 4f 53 45 39 30 0d 0a 09 49 4e 49 0d 0a 09 4a 50 09 4e 5a 2c ┆21 JP PO,IOSE90 INI JP NZ,┆
0x0a00…0a20 49 4f 53 45 32 31 0d 0a 09 4a 50 09 49 4f 53 45 39 30 0d 0a 49 4f 53 45 35 30 3a 0d 0a 09 4c 44 ┆IOSE21 JP IOSE90 IOSE50: LD┆
0x0a20…0a40 09 43 2c 46 44 43 44 54 0d 0a 49 4f 53 45 36 30 3a 0d 0a 09 4c 44 09 42 2c 30 0d 0a 49 4f 53 45 ┆ C,FDCDT IOSE60: LD B,0 IOSE┆
0x0a40…0a60 37 30 3a 20 49 4e 09 41 2c 28 46 44 43 53 54 29 0d 0a 09 41 4e 44 09 44 0d 0a 09 4a 50 09 50 2c ┆70: IN A,(FDCST) AND D JP P,┆
0x0a60…0a80 49 4f 53 45 37 30 0d 0a 09 4a 50 09 50 4f 2c 49 4f 53 45 39 30 0d 0a 09 4f 55 54 49 0d 0a 09 4a ┆IOSE70 JP PO,IOSE90 OUTI J┆
0x0a80…0aa0 50 09 4e 5a 2c 49 4f 53 45 37 30 0d 0a 09 4c 44 09 42 2c 30 0d 0a 49 4f 53 45 37 31 3a 20 49 4e ┆P NZ,IOSE70 LD B,0 IOSE71: IN┆
0x0aa0…0ac0 09 41 2c 28 46 44 43 53 54 29 0d 0a 09 41 4e 44 09 44 0d 0a 09 4a 50 09 50 2c 49 4f 53 45 37 31 ┆ A,(FDCST) AND D JP P,IOSE71┆
0x0ac0…0ae0 0d 0a 09 4a 50 09 50 4f 2c 49 4f 53 45 39 30 0d 0a 09 4f 55 54 49 0d 0a 09 4a 50 09 4e 5a 2c 49 ┆ JP PO,IOSE90 OUTI JP NZ,I┆
0x0ae0…0b00 4f 53 45 37 31 0d 0a 49 4f 53 45 39 30 3a 0d 0a 09 4f 55 54 09 28 46 44 43 54 43 29 2c 41 0d 0a ┆OSE71 IOSE90: OUT (FDCTC),A ┆
0x0b00…0b20 09 43 41 4c 4c 09 52 45 41 44 52 45 53 55 4c 54 0d 0a 09 4c 44 09 48 4c 2c 52 45 53 55 4c 54 09 ┆ CALL READRESULT LD HL,RESULT ┆
0x0b20…0b40 3b 20 20 20 49 46 20 52 45 53 55 4c 54 28 30 29 20 3d 20 37 0d 0a 09 4c 44 09 41 2c 28 48 4c 29 ┆; IF RESULT(0) = 7 LD A,(HL)┆
0x0b40…0b60 09 09 3b 20 20 20 20 20 41 4e 44 20 52 45 53 55 4c 54 28 31 29 0d 0a 09 43 50 09 37 09 09 3b 20 ┆ ; AND RESULT(1) CP 7 ; ┆
0x0b60…0b80 20 20 20 20 54 48 52 4f 55 47 48 20 52 45 53 55 4c 54 28 33 29 0d 0a 09 4a 52 09 4e 5a 2c 49 4f ┆ THROUGH RESULT(3) JR NZ,IO┆
0x0b80…0ba0 53 45 39 39 09 3b 20 20 20 20 20 3d 20 30 0d 0a 09 49 4e 43 09 48 4c 0d 0a 09 4c 44 09 41 2c 28 ┆SE99 ; = 0 INC HL LD A,(┆
0x0ba0…0bc0 48 4c 29 0d 0a 09 41 4e 44 09 31 31 31 31 31 30 30 30 42 0d 0a 09 4c 44 09 42 2c 32 0d 0a 49 4f ┆HL) AND 11111000B LD B,2 IO┆
0x0bc0…0be0 53 45 39 35 3a 20 49 4e 43 09 48 4c 0d 0a 09 4f 52 09 28 48 4c 29 0d 0a 09 44 4a 4e 5a 09 49 4f ┆SE95: INC HL OR (HL) DJNZ IO┆
0x0be0…0c00 53 45 39 35 0d 0a 09 52 45 54 09 5a 09 09 3b 2d 2d 2d 2d 2d 54 48 45 4e 20 52 45 54 55 52 4e 0d ┆SE95 RET Z ;-----THEN RETURN ┆
0x0c00…0c20 0a 49 4f 53 45 39 38 3a 0d 0a 09 44 45 43 09 41 0d 0a 09 4c 44 09 41 2c 28 48 4c 29 0d 0a 09 41 ┆ IOSE98: DEC A LD A,(HL) A┆
0x0c20…0c40 4e 44 09 30 30 30 31 30 30 30 30 42 0d 0a 09 4a 50 09 4e 5a 2c 49 4f 53 45 30 35 09 3b 20 54 45 ┆ND 00010000B JP NZ,IOSE05 ; TE┆
0x0c40…0c60 53 54 20 46 4f 52 20 4f 56 45 52 52 55 4e 3f 0d 0a 09 49 4e 43 09 48 4c 0d 0a 09 4c 44 09 41 2c ┆ST FOR OVERRUN? INC HL LD A,┆
0x0c60…0c80 28 48 4c 29 0d 0a 09 41 4e 44 09 30 30 30 31 30 30 30 30 42 09 3b 20 57 52 4f 4e 47 20 54 52 41 ┆(HL) AND 00010000B ; WRONG TRA┆
0x0c80…0ca0 43 4b 3f 0d 0a 09 43 41 4c 4c 09 4e 5a 2c 48 4f 4d 45 0d 0a 49 4f 53 45 39 39 3a 20 4c 44 09 41 ┆CK? CALL NZ,HOME IOSE99: LD A┆
0x0ca0…0cc0 2c 28 4e 52 52 45 50 45 29 0d 0a 09 49 4e 43 09 41 0d 0a 09 4c 44 09 28 4e 52 52 45 50 45 41 54 ┆,(NRREPE) INC A LD (NRREPEAT┆
0x0cc0…0ce0 53 29 2c 41 0d 0a 09 43 50 09 4d 41 58 52 45 50 45 41 54 53 09 3b 20 55 4e 54 49 4c 20 4e 52 5f ┆S),A CP MAXREPEATS ; UNTIL NR_┆
0x0ce0…0d00 52 45 50 45 41 54 53 20 3d 0d 0a 09 4a 50 09 4e 5a 2c 49 4f 53 45 30 35 09 3b 20 20 20 4d 41 58 ┆REPEATS = JP NZ,IOSE05 ; MAX┆
0x0d00…0d20 5f 52 45 50 45 41 54 53 0d 0a 09 4c 44 09 41 2c 31 0d 0a 09 52 45 54 0d 0a 0d 0a 45 4e 44 53 45 ┆_REPEATS LD A,1 RET ENDSE┆
0x0d20…0d40 45 4b 3a 0d 0a 09 4c 44 09 48 4c 2c 53 45 4e 53 45 49 4e 2b 4f 46 46 53 45 54 0d 0a 09 43 41 4c ┆EK: LD HL,SENSEIN+OFFSET CAL┆
0x0d40…0d60 4c 09 44 4f 43 4f 4d 4d 41 4e 44 0d 0a 09 43 41 4c 4c 09 52 45 41 44 52 45 53 55 4c 54 0d 0a 09 ┆L DOCOMMAND CALL READRESULT ┆
0x0d60…0d80 4c 44 09 41 2c 28 52 45 53 55 4c 54 2b 31 29 0d 0a 09 41 4e 44 09 30 30 31 30 30 30 30 30 42 0d ┆LD A,(RESULT+1) AND 00100000B ┆
0x0d80…0da0 0a 09 4a 52 09 5a 2c 45 4e 44 53 45 45 4b 0d 0a 09 4c 44 09 42 2c 34 0d 0a 45 4e 44 53 31 30 3a ┆ JR Z,ENDSEEK LD B,4 ENDS10:┆
0x0da0…0dc0 20 50 55 53 48 09 42 43 0d 0a 09 4c 44 09 48 4c 2c 53 45 4e 53 45 49 4e 54 2b 4f 46 46 53 45 54 ┆ PUSH BC LD HL,SENSEINT+OFFSET┆
0x0dc0…0de0 0d 0a 09 43 41 4c 4c 09 44 4f 43 4f 4d 4d 41 4e 44 0d 0a 09 43 41 4c 4c 09 52 45 41 44 52 45 53 ┆ CALL DOCOMMAND CALL READRES┆
0x0de0…0e00 55 4c 54 0d 0a 09 50 4f 50 09 42 43 0d 0a 09 44 4a 4e 5a 09 45 4e 44 53 31 30 0d 0a 09 52 45 54 ┆ULT POP BC DJNZ ENDS10 RET┆
0x0e00…0e20 0d 0a 43 4f 4d 4d 41 4e 44 3a 0d 0a 09 49 4e 09 41 2c 28 46 44 43 53 54 29 0d 0a 09 41 4e 44 09 ┆ COMMAND: IN A,(FDCST) AND ┆
0x0e20…0e40 31 46 48 0d 0a 09 43 41 4c 4c 09 4e 5a 2c 45 52 52 4f 52 0d 0a 44 4f 43 4f 4d 4d 41 4e 44 3a 0d ┆1FH CALL NZ,ERROR DOCOMMAND: ┆
0x0e40…0e60 0a 09 4c 44 09 42 2c 28 48 4c 29 0d 0a 09 49 4e 43 09 48 4c 0d 0a 43 4f 4d 4d 31 30 3a 0d 0a 09 ┆ LD B,(HL) INC HL COMM10: ┆
0x0e60…0e80 4c 44 09 41 2c 44 45 4c 41 59 43 4e 54 0d 0a 43 4f 4d 4d 31 35 3a 20 44 45 43 09 41 0d 0a 09 4a ┆LD A,DELAYCNT COMM15: DEC A J┆
0x0e80…0ea0 52 09 4e 5a 2c 43 4f 4d 4d 31 35 0d 0a 43 4f 4d 4d 32 30 3a 20 49 4e 09 41 2c 28 46 44 43 53 54 ┆R NZ,COMM15 COMM20: IN A,(FDCST┆
0x0ea0…0ec0 29 0d 0a 09 52 4c 43 41 0d 0a 09 4a 52 09 4e 43 2c 43 4f 4d 4d 32 30 0d 0a 09 52 4c 43 41 0d 0a ┆) RLCA JR NC,COMM20 RLCA ┆
0x0ec0…0ee0 09 43 41 4c 4c 09 43 2c 45 52 52 4f 52 0d 0a 09 4c 44 09 41 2c 28 48 4c 29 0d 0a 09 4f 55 54 09 ┆ CALL C,ERROR LD A,(HL) OUT ┆
0x0ee0…0f00 28 46 44 43 44 54 29 2c 41 0d 0a 09 49 4e 43 09 48 4c 0d 0a 09 44 4a 4e 5a 09 43 4f 4d 4d 31 30 ┆(FDCDT),A INC HL DJNZ COMM10┆
0x0f00…0f20 0d 0a 09 52 45 54 0d 0a 52 45 41 44 52 45 53 55 4c 54 3a 0d 0a 09 4c 44 09 48 4c 2c 52 45 53 55 ┆ RET READRESULT: LD HL,RESU┆
0x0f20…0f40 4c 54 2b 31 0d 0a 09 4c 44 09 42 2c 30 0d 0a 52 44 52 45 53 31 3a 0d 0a 09 4c 44 09 41 2c 44 45 ┆LT+1 LD B,0 RDRES1: LD A,DE┆
0x0f40…0f60 4c 41 59 43 4e 54 0d 0a 52 44 52 45 53 32 3a 20 44 45 43 09 41 0d 0a 09 4a 52 09 4e 5a 2c 52 44 ┆LAYCNT RDRES2: DEC A JR NZ,RD┆
0x0f60…0f80 52 45 53 32 0d 0a 09 49 4e 09 41 2c 28 46 44 43 53 54 29 0d 0a 09 42 49 54 09 34 2c 41 0d 0a 09 ┆RES2 IN A,(FDCST) BIT 4,A ┆
0x0f80…0fa0 4a 52 09 5a 2c 52 44 52 45 53 38 0d 0a 09 52 4c 43 41 0d 0a 09 4a 52 09 4e 43 2c 52 44 52 45 53 ┆JR Z,RDRES8 RLCA JR NC,RDRES┆
0x0fa0…0fc0 31 0d 0a 09 52 4c 43 41 0d 0a 09 43 41 4c 4c 09 4e 43 2c 45 52 52 4f 52 0d 0a 09 49 4e 09 41 2c ┆1 RLCA CALL NC,ERROR IN A,┆
0x0fc0…0fe0 28 46 44 43 44 54 29 0d 0a 09 4c 44 09 28 48 4c 29 2c 41 0d 0a 09 49 4e 43 09 48 4c 0d 0a 09 49 ┆(FDCDT) LD (HL),A INC HL I┆
0x0fe0…1000 4e 43 09 42 0d 0a 09 4a 52 09 52 44 52 45 53 31 0d 0a 52 44 52 45 53 38 3a 20 4c 44 09 48 4c 2c ┆NC B JR RDRES1 RDRES8: LD HL,┆
0x1000…1020 52 45 53 55 4c 54 0d 0a 09 4c 44 09 28 48 4c 29 2c 42 0d 0a 09 52 45 54 0d 0a 3b 0d 0a 3b 2d 2d ┆RESULT LD (HL),B RET ; ;--┆
0x1020…1040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1040…1060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 3b 0d 0a 3b 20 43 4f 4e 53 4f ┆-------------------- ; ; CONSO┆
0x1060…1080 4c 45 20 4f 55 54 50 55 54 20 52 4f 55 54 49 4e 45 53 20 46 4f 4c 4c 4f 57 0d 0a 3b 0d 0a 0d 0a ┆LE OUTPUT ROUTINES FOLLOW ; ┆
0x1080…10a0 3b 0d 0a 3b 20 4f 55 54 50 55 54 20 41 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 54 48 45 20 44 ┆; ; OUTPUT A CHARACTER TO THE D┆
0x10a0…10c0 41 54 41 20 53 43 52 45 45 4e 0d 0a 3b 20 20 20 54 48 45 20 43 48 41 52 41 43 54 45 52 20 49 53 ┆ATA SCREEN ; THE CHARACTER IS┆
0x10c0…10e0 20 49 4e 50 55 54 20 49 4e 20 43 0d 0a 3b 0d 0a 0d 0a 43 4f 4e 4f 55 54 3a 20 09 09 09 3b 50 52 ┆ INPUT IN C ; CONOUT: ;PR┆
0x10e0…1100 4f 43 20 43 4f 4e 4f 55 54 28 43 29 0d 0a 09 50 55 53 48 09 48 4c 09 09 3b 20 50 55 53 48 20 4d ┆OC CONOUT(C) PUSH HL ; PUSH M┆
0x1100…1120 41 49 4e 20 52 45 47 49 53 54 45 52 20 53 45 54 0d 0a 09 50 55 53 48 09 44 45 0d 0a 09 50 55 53 ┆AIN REGISTER SET PUSH DE PUS┆
0x1120…1140 48 09 42 43 0d 0a 09 50 55 53 48 09 41 46 0d 0a 09 4c 44 09 41 2c 28 4c 45 41 44 49 4e 29 09 3b ┆H BC PUSH AF LD A,(LEADIN) ;┆
0x1140…1160 20 49 46 20 4c 45 41 44 49 4e 20 3d 20 30 20 54 48 45 4e 0d 0a 09 43 50 09 30 46 46 48 09 09 3b ┆ IF LEADIN = 0 THEN CP 0FFH ;┆
0x1160…1180 20 20 20 2f 2f 20 4e 4f 52 4d 41 4c 20 50 52 4f 43 45 53 53 49 4e 47 0d 0a 09 4a 50 09 4e 5a 2c ┆ // NORMAL PROCESSING JP NZ,┆
0x1180…11a0 43 4f 4e 32 30 30 0d 0a 09 4c 44 09 41 2c 43 09 09 3b 20 20 20 49 46 20 43 20 3c 20 27 20 27 20 ┆CON200 LD A,C ; IF C < ' ' ┆
0x11a0…11c0 54 48 45 4e 0d 0a 09 43 50 09 27 20 27 09 09 3b 20 20 20 20 20 2f 2f 20 43 4f 4e 54 52 4f 4c 20 ┆THEN CP ' ' ; // CONTROL ┆
0x11c0…11e0 43 48 41 52 0d 0a 09 4a 50 09 4e 43 2c 43 4f 4e 30 39 30 09 3b 20 20 20 20 20 43 41 53 45 20 43 ┆CHAR JP NC,CON090 ; CASE C┆
0x11e0…1200 20 4f 46 0d 0a 09 43 50 09 45 53 43 09 09 3b 20 20 20 20 20 45 53 43 20 3a 0d 0a 09 4a 52 09 4e ┆ OF CP ESC ; ESC : JR N┆
0x1200…1220 5a 2c 43 4f 4e 30 30 32 0d 0a 09 58 4f 52 09 41 0d 0a 09 4c 44 09 28 4c 45 41 44 49 4e 29 2c 41 ┆Z,CON002 XOR A LD (LEADIN),A┆
0x1220…1240 09 3b 09 4c 45 41 44 49 4e 20 3a 3d 20 45 53 43 0d 0a 09 4a 50 09 43 4f 4e 39 30 30 0d 0a 43 4f ┆ ; LEADIN := ESC JP CON900 CO┆
0x1240…1260 4e 30 30 32 3a 20 43 50 09 43 52 09 09 3b 20 20 20 20 20 43 52 20 3a 0d 0a 09 4a 52 09 4e 5a 2c ┆N002: CP CR ; CR : JR NZ,┆
0x1260…1280 43 4f 4e 30 31 30 0d 0a 09 4c 44 09 48 4c 2c 30 0d 0a 09 4c 44 09 28 58 50 4f 53 29 2c 48 4c 09 ┆CON010 LD HL,0 LD (XPOS),HL ┆
0x1280…12a0 3b 09 58 50 4f 53 20 3a 3d 20 30 0d 0a 09 4a 50 09 43 4f 4e 31 30 30 09 09 3b 09 4f 55 54 43 55 ┆; XPOS := 0 JP CON100 ; OUTCU┆
0x12a0…12c0 52 53 4f 52 0d 0a 43 4f 4e 30 31 30 3a 20 43 50 09 4c 46 09 09 3b 20 20 20 20 20 4c 46 20 3a 0d ┆RSOR CON010: CP LF ; LF : ┆
0x12c0…12e0 0a 09 4a 52 09 4e 5a 2c 43 4f 4e 4f 32 30 0d 0a 09 43 41 4c 4c 09 44 4f 57 4e 09 09 3b 09 44 4f ┆ JR NZ,CONO20 CALL DOWN ; DO┆
0x12e0…1300 57 4e 0d 0a 09 4a 50 09 43 4f 4e 31 30 30 09 09 3b 09 4f 55 54 43 55 52 53 4f 52 0d 0a 43 4f 4e ┆WN JP CON100 ; OUTCURSOR CON┆
0x1300…1320 4f 32 30 3a 20 43 50 09 43 55 52 4c 45 46 09 09 3b 20 20 20 20 20 43 55 52 53 4f 52 20 4c 45 46 ┆O20: CP CURLEF ; CURSOR LEF┆
0x1320…1340 54 3a 0d 0a 09 4a 52 09 4e 5a 2c 43 4f 4e 30 32 35 0d 0a 09 43 41 4c 4c 09 4c 45 46 54 09 09 3b ┆T: JR NZ,CON025 CALL LEFT ;┆
0x1340…1360 09 4c 45 46 54 0d 0a 09 4a 50 09 43 4f 4e 31 30 30 09 09 3b 09 4f 55 54 43 55 52 53 4f 52 0d 0a ┆ LEFT JP CON100 ; OUTCURSOR ┆
0x1360…1380 43 4f 4e 30 32 35 3a 20 43 50 09 43 55 52 52 49 47 09 09 3b 20 20 20 20 20 43 55 52 53 4f 52 20 ┆CON025: CP CURRIG ; CURSOR ┆
0x1380…13a0 52 49 47 48 54 3a 0d 0a 09 4a 52 09 4e 5a 2c 43 4f 4e 30 33 30 0d 0a 09 43 41 4c 4c 09 52 49 47 ┆RIGHT: JR NZ,CON030 CALL RIG┆
0x13a0…13c0 48 54 09 09 3b 09 52 49 47 48 54 0d 0a 09 4a 50 09 43 4f 4e 31 30 30 09 09 3b 09 4f 55 54 43 55 ┆HT ; RIGHT JP CON100 ; OUTCU┆
0x13c0…13e0 52 53 4f 52 0d 0a 43 4f 4e 30 33 30 3a 20 43 50 09 43 55 52 55 50 09 09 3b 20 20 20 20 20 43 55 ┆RSOR CON030: CP CURUP ; CU┆
0x13e0…1400 52 53 4f 52 20 55 50 3a 0d 0a 09 4a 52 09 4e 5a 2c 43 4f 4e 30 34 30 0d 0a 09 43 41 4c 4c 09 55 ┆RSOR UP: JR NZ,CON040 CALL U┆
0x1400…1420 50 09 09 3b 09 55 50 0d 0a 09 4a 50 09 43 4f 4e 31 30 30 09 09 3b 09 4f 55 54 43 55 52 53 4f 52 ┆P ; UP JP CON100 ; OUTCURSOR┆
0x1420…1440 0d 0a 43 4f 4e 30 34 30 3a 20 43 50 09 43 55 52 48 4f 4d 09 09 3b 20 20 20 20 20 43 55 52 53 4f ┆ CON040: CP CURHOM ; CURSO┆
0x1440…1460 52 20 48 4f 4d 45 3a 0d 0a 09 4a 52 09 4e 5a 2c 43 4f 4e 30 35 30 0d 0a 09 4c 44 09 48 4c 2c 30 ┆R HOME: JR NZ,CON050 LD HL,0┆
0x1460…1480 0d 0a 09 4c 44 09 28 58 50 4f 53 29 2c 48 4c 09 3b 09 58 50 4f 53 20 3a 3d 20 30 0d 0a 09 4c 44 ┆ LD (XPOS),HL ; XPOS := 0 LD┆
0x1480…14a0 09 48 4c 2c 28 4f 56 45 52 42 41 53 45 29 0d 0a 09 4c 44 09 28 59 50 4f 53 29 2c 48 4c 0d 0a 09 ┆ HL,(OVERBASE) LD (YPOS),HL ┆
0x14a0…14c0 4a 52 09 43 4f 4e 31 30 30 09 09 3b 09 4f 55 54 43 55 52 53 4f 52 0d 0a 43 4f 4e 30 35 30 3a 20 ┆JR CON100 ; OUTCURSOR CON050: ┆
0x14c0…14e0 43 50 09 37 46 48 09 09 3b 20 44 45 4c 45 54 45 0d 0a 09 4a 52 09 4e 5a 2c 43 4f 4e 30 39 30 0d ┆CP 7FH ; DELETE JR NZ,CON090 ┆
0x14e0…1500 0a 09 4c 44 09 41 2c 28 50 52 4f 50 29 0d 0a 09 4f 52 09 41 0d 0a 09 4a 52 09 4e 5a 2c 43 4f 4e ┆ LD A,(PROP) OR A JR NZ,CON┆
0x1500…1520 37 30 0d 0a 09 43 41 4c 4c 09 4c 45 46 54 09 09 3b 09 20 20 4c 45 46 54 0d 0a 09 4c 44 09 41 2c ┆70 CALL LEFT ; LEFT LD A,┆
0x1520…1540 27 20 27 09 09 3b 09 20 20 50 55 54 43 48 52 28 27 20 27 29 0d 0a 09 43 41 4c 4c 09 50 55 54 43 ┆' ' ; PUTCHR(' ') CALL PUTC┆
0x1540…1560 48 52 0d 0a 09 43 41 4c 4c 09 4c 45 46 54 09 09 3b 09 20 20 4c 45 46 54 0d 0a 09 4a 52 09 43 4f ┆HR CALL LEFT ; LEFT JR CO┆
0x1560…1580 4e 31 30 30 09 09 3b 09 20 20 4f 55 54 43 55 52 53 4f 52 0d 0a 09 09 09 09 3b 09 45 4e 44 49 46 ┆N100 ; OUTCURSOR ; ENDIF┆
0x1580…15a0 0d 0a 43 4f 4e 37 30 3a 09 4a 52 09 43 4f 4e 31 31 30 0d 0a 43 4f 4e 30 39 30 3a 20 09 09 09 3b ┆ CON70: JR CON110 CON090: ;┆
0x15a0…15c0 20 20 20 20 20 4f 54 48 45 52 57 49 53 45 0d 0a 09 43 41 4c 4c 09 50 55 54 43 48 52 09 09 3b 09 ┆ OTHERWISE CALL PUTCHR ; ┆
0x15c0…15e0 50 55 54 43 48 52 28 43 29 0d 0a 09 09 09 09 3b 09 4f 55 54 43 55 52 53 4f 52 0d 0a 09 09 09 09 ┆PUTCHR(C) ; OUTCURSOR ┆
0x15e0…1600 3b 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 09 09 09 09 3b 20 20 20 45 4c 53 45 20 2f 2f 20 4e ┆; ENDCASE ; ELSE // N┆
0x1600…1620 4f 52 4d 41 4c 20 43 48 41 52 41 43 54 45 52 0d 0a 09 09 09 09 3b 09 50 55 54 43 48 52 28 43 29 ┆ORMAL CHARACTER ; PUTCHR(C)┆
0x1620…1640 0d 0a 09 09 09 09 3b 09 4f 55 54 43 55 52 53 4f 52 0d 0a 43 4f 4e 31 30 30 3a 20 43 41 4c 4c 09 ┆ ; OUTCURSOR CON100: CALL ┆
0x1640…1660 4f 55 54 43 55 52 53 4f 52 09 3b 20 20 20 45 4e 44 49 46 0d 0a 43 4f 4e 31 31 30 3a 0d 0a 09 4a ┆OUTCURSOR ; ENDIF CON110: J┆
0x1660…1680 50 09 43 4f 4e 39 30 30 09 09 3b 20 45 4c 53 45 20 2f 2f 20 45 53 43 20 53 45 51 55 45 4e 43 45 ┆P CON900 ; ELSE // ESC SEQUENCE┆
0x1680…16a0 0d 0a 43 4f 4e 32 30 30 3a 0d 0a 09 43 50 09 30 0d 0a 09 4a 50 09 4e 5a 2c 43 4f 4e 32 33 30 09 ┆ CON200: CP 0 JP NZ,CON230 ┆
0x16a0…16c0 3b 20 50 41 52 41 4d 45 54 45 52 0d 0a 09 4c 44 09 48 4c 2c 45 53 43 54 41 42 0d 0a 09 4c 44 09 ┆; PARAMETER LD HL,ESCTAB LD ┆
0x16c0…16e0 44 45 2c 30 34 0d 0a 43 4f 4e 32 30 35 3a 20 4c 44 09 41 2c 28 48 4c 29 0d 0a 09 43 50 09 30 0d ┆DE,04 CON205: LD A,(HL) CP 0 ┆
0x16e0…1700 0a 09 4a 52 09 5a 2c 43 4f 4e 32 30 37 0d 0a 09 43 50 09 43 0d 0a 09 4a 52 09 5a 2c 43 4f 4e 32 ┆ JR Z,CON207 CP C JR Z,CON2┆
0x1700…1720 31 30 09 3b 20 4d 41 54 43 48 0d 0a 09 41 44 44 09 48 4c 2c 44 45 0d 0a 09 4a 52 09 43 4f 4e 32 ┆10 ; MATCH ADD HL,DE JR CON2┆
0x1720…1740 30 35 0d 0a 43 4f 4e 32 30 37 3a 20 4c 44 09 41 2c 32 37 09 09 3b 20 4e 4f 54 20 45 53 43 20 53 ┆05 CON207: LD A,27 ; NOT ESC S┆
0x1740…1760 45 51 55 45 4e 43 45 0d 0a 09 50 55 53 48 09 42 43 09 09 3b 20 53 41 56 45 20 43 0d 0a 09 43 41 ┆EQUENCE PUSH BC ; SAVE C CA┆
0x1760…1780 4c 4c 09 50 55 54 43 48 52 0d 0a 09 50 4f 50 09 42 43 0d 0a 09 4c 44 09 41 2c 43 0d 0a 09 43 41 ┆LL PUTCHR POP BC LD A,C CA┆
0x1780…17a0 4c 4c 09 50 55 54 43 48 52 0d 0a 09 43 41 4c 4c 09 4f 55 54 43 55 52 0d 0a 09 4c 44 09 41 2c 30 ┆LL PUTCHR CALL OUTCUR LD A,0┆
0x17a0…17c0 46 46 48 0d 0a 09 4c 44 09 28 4c 45 41 44 49 4e 29 2c 41 0d 0a 09 4a 50 09 43 4f 4e 39 30 30 0d ┆FFH LD (LEADIN),A JP CON900 ┆
0x17c0…17e0 0a 43 4f 4e 32 31 30 3a 20 49 4e 43 09 48 4c 0d 0a 09 4c 44 09 41 2c 28 48 4c 29 0d 0a 09 43 50 ┆ CON210: INC HL LD A,(HL) CP┆
0x17e0…1800 09 30 0d 0a 09 4a 52 09 4e 5a 2c 43 4f 4e 32 32 30 09 3b 20 46 55 4e 43 54 49 4f 4e 20 57 49 54 ┆ 0 JR NZ,CON220 ; FUNCTION WIT┆
0x1800…1820 48 20 50 41 52 41 4d 45 54 45 52 53 0d 0a 09 49 4e 43 09 48 4c 09 09 3b 20 4e 4f 20 50 41 52 41 ┆H PARAMETERS INC HL ; NO PARA┆
0x1820…1840 4d 45 54 45 52 53 0d 0a 09 4c 44 09 43 2c 28 48 4c 29 09 09 3b 20 47 45 54 20 52 4f 55 54 49 4e ┆METERS LD C,(HL) ; GET ROUTIN┆
0x1840…1860 45 20 41 44 44 52 45 53 53 0d 0a 09 49 4e 43 09 48 4c 0d 0a 09 4c 44 09 42 2c 28 48 4c 29 0d 0a ┆E ADDRESS INC HL LD B,(HL) ┆
0x1860…1880 09 4c 44 09 48 2c 42 0d 0a 09 4c 44 09 4c 2c 43 0d 0a 09 4c 44 09 41 2c 30 46 46 48 0d 0a 09 4c ┆ LD H,B LD L,C LD A,0FFH L┆
0x1880…18a0 44 09 28 4c 45 41 44 49 4e 29 2c 41 09 3b 20 52 45 53 45 54 20 4c 45 41 44 49 4e 0d 0a 09 4a 50 ┆D (LEADIN),A ; RESET LEADIN JP┆
0x18a0…18c0 09 28 48 4c 29 09 09 3b 20 53 54 41 52 54 20 52 4f 55 54 49 4e 45 0d 0a 43 4f 4e 32 32 30 3a 20 ┆ (HL) ; START ROUTINE CON220: ┆
0x18c0…18e0 4c 44 09 28 4c 45 41 44 49 4e 29 2c 41 09 3b 20 53 41 56 45 20 4e 4f 20 4f 46 20 50 41 52 41 4d ┆LD (LEADIN),A ; SAVE NO OF PARAM┆
0x18e0…1900 45 54 45 52 53 0d 0a 09 4c 44 09 41 2c 30 31 0d 0a 09 4c 44 09 28 45 53 43 42 55 46 29 2c 41 09 ┆ETERS LD A,01 LD (ESCBUF),A ┆
0x1900…1920 3b 20 4f 50 2e 43 4f 44 45 20 52 45 43 45 49 56 45 44 0d 0a 09 49 4e 43 09 48 4c 0d 0a 09 4c 44 ┆; OP.CODE RECEIVED INC HL LD┆
[…truncated at 200 lines…]