|
DataMuseum.dkPresents historical artifacts from the history of: Zilog MCZ Floppy Disks |
This is an automatic "excavation" of a thematic subset of
Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5868 (0x16ec)
Names: »WILD.S«
└─⟦3b14772ef⟧ Bits:30006814 8" ZilogMCZ floppy NThun_0016 (OPERATIVSYSTEM 1/05 850619 KOPI)
└─ ⟦this⟧ »WILD.S«
0x0000…0020 2a 48 20 50 4c 4f 54 54 45 52 20 44 52 49 56 45 52 0d 2a 50 20 36 30 0d 3b 2a 2a 2a 2a 2a 2a 2a ┆*H PLOTTER DRIVER *P 60 ;*******┆ 0x0020…0040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x0040…0060 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 3b 2a 09 52 49 4f 20 44 52 49 56 45 52 20 46 4f 52 20 50 4c 4f 54 ┆********* ;* RIO DRIVER FOR PLOT┆ 0x0060…0080 54 45 52 20 54 41 42 4c 45 09 2a 0d 3b 2a 09 4a 5c 52 47 45 4e 20 4b 52 49 53 54 45 4e 53 45 4e ┆TER TABLE * ;* J\RGEN KRISTENSEN┆ 0x0080…00a0 09 09 2a 0d 3b 2a 09 53 2f 43 20 20 4d 45 54 52 49 43 20 20 41 2f 53 09 09 2a 0d 3b 2a 09 09 09 ┆ * ;* S/C METRIC A/S * ;* ┆ 0x00a0…00c0 09 2a 0d 3b 2a 09 30 30 09 49 4e 49 54 49 41 4c 49 5a 45 09 30 33 09 2a 0d 3b 2a 09 30 32 09 41 ┆ * ;* 00 INITIALIZE 03 * ;* 02 A┆ 0x00c0…00e0 53 53 49 47 4e 09 30 33 09 2a 0d 3b 2a 09 30 34 09 4f 50 45 4e 09 30 33 09 2a 0d 3b 2a 09 30 36 ┆SSIGN 03 * ;* 04 OPEN 03 * ;* 06┆ 0x00e0…0100 09 43 4c 4f 53 45 09 30 33 09 2a 0d 3b 2a 09 30 45 09 57 52 49 54 45 20 42 49 4e 41 52 59 09 30 ┆ CLOSE 03 * ;* 0E WRITE BINARY 0┆ 0x0100…0120 34 09 2a 0d 3b 2a 09 31 30 09 57 52 49 54 45 20 4c 49 4e 45 09 30 34 09 2a 0d 3b 2a 09 34 34 09 ┆4 * ;* 10 WRITE LINE 04 * ;* 44 ┆ 0x0120…0140 44 45 41 43 54 49 56 41 54 45 09 30 34 09 2a 0d 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆DEACTIVATE 04 * ;***************┆ 0x0140…0160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x0160…0180 2a 0d 3b 0d 3b 09 52 20 45 20 51 20 55 20 45 20 53 20 54 20 20 20 43 20 4f 20 44 20 45 20 53 0d ┆* ; ; R E Q U E S T C O D E S ┆ 0x0180…01a0 3b 09 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 0d 49 4e 49 54 ┆; ------------------------- INIT┆ 0x01a0…01c0 52 51 09 45 51 55 09 30 30 09 3b 20 49 4e 49 54 49 41 4c 49 53 41 54 49 4f 4e 20 52 45 51 55 45 ┆RQ EQU 00 ; INITIALISATION REQUE┆ 0x01c0…01e0 53 54 0d 41 53 53 4e 52 51 09 45 51 55 09 30 32 09 3b 20 41 53 53 49 47 4e 20 52 45 51 55 45 53 ┆ST ASSNRQ EQU 02 ; ASSIGN REQUES┆ 0x01e0…0200 54 0d 4f 50 45 4e 52 51 09 45 51 55 09 30 34 09 3b 20 4f 50 45 4e 20 52 45 51 55 45 53 54 0d 43 ┆T OPENRQ EQU 04 ; OPEN REQUEST C┆ 0x0200…0220 4d 53 2a 4d 4a 2a 0d 49 5a 44 4f 53 20 37 39 30 34 31 31 20 43 4f 50 59 52 49 47 48 54 2c 20 5a ┆MS*MJ* IZDOS 790411 COPYRIGHT, Z┆ 0x0220…0240 49 4c 4f 47 2c 20 49 4e 43 2e 20 31 39 37 39 2a 7f 3f 7c 35 20 79 7d 22 7f 3f 7d 4b 01 46 20 f3 ┆ILOG, INC. 1979* ?|5 y}" ?}K F ┆ 0x0240…0260 2b 2b 22 c0 13 23 7c e6 0f b5 28 13 e5 2b 11 2b 15 eb cd fd 1f 21 14 15 01 1b 00 cd 29 20 e1 7c ┆++" #| ( + + ! ) |┆ 0x0260…0280 b5 28 0f eb 21 ff ff ed 52 44 4d 21 ff ff eb cd 6f 23 21 e9 18 22 05 16 21 00 25 cd d4 20 3a 04 ┆ ( ! RDM! o#! " ! % : ┆ 0x0280…02a0 52 51 09 45 51 55 09 31 30 48 09 3b 20 57 52 49 54 45 20 41 53 43 49 49 20 52 45 51 55 45 53 54 ┆RQ EQU 10H ; WRITE ASCII REQUEST┆ 0x02a0…02c0 0d 44 45 41 43 52 51 09 45 51 55 09 34 34 48 09 3b 20 44 45 41 43 54 49 56 41 54 45 20 52 45 51 ┆ DEACRQ EQU 44H ; DEACTIVATE REQ┆ 0x02c0…02e0 55 45 53 54 0d 3b 0d 3b 09 50 20 4f 20 52 20 54 20 20 20 41 20 44 20 52 20 45 20 53 20 53 20 45 ┆UEST ; ; P O R T A D R E S S E┆ 0x02e0…0300 20 53 0d 3b 09 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 0d 53 ┆ S ; ------------------------- S┆ 0x0300…0320 5f 31 31 41 44 09 45 51 55 09 30 34 48 09 3b 20 53 49 4f 0d 53 5f 31 31 42 44 09 45 51 55 09 30 ┆_11AD EQU 04H ; SIO S_11BD EQU 0┆ 0x0320…0340 35 48 0d 53 5f 31 31 41 43 09 45 51 55 09 30 36 48 0d 53 5f 31 31 42 43 09 45 51 55 09 30 37 48 ┆5H S_11AC EQU 06H S_11BC EQU 07H┆ 0x0340…0360 0d 3b 0d 43 5f 31 31 5f 30 09 45 51 55 09 30 43 48 09 3b 20 42 41 55 44 20 52 41 54 45 20 53 49 ┆ ; C_11_0 EQU 0CH ; BAUD RATE SI┆ 0x0360…0380 4f 0d 43 5f 31 31 5f 31 09 45 51 55 09 30 44 48 0d 43 5f 31 31 5f 32 09 45 51 55 09 30 45 48 0d ┆O C_11_1 EQU 0DH C_11_2 EQU 0EH ┆ 0x0380…03a0 43 5f 31 31 5f 33 09 45 51 55 09 30 46 48 0d 3b 0d 3b 09 41 20 53 20 43 20 49 20 49 20 20 20 43 ┆C_11_3 EQU 0FH ; ; A S C I I C┆ 0x03a0…03c0 20 4f 20 44 20 45 20 53 0d 3b 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ O D E S ; ---------------------┆ 0x03c0…03e0 0d 54 41 42 09 45 51 55 09 30 39 48 0d 41 53 43 49 43 52 09 45 51 55 09 30 44 48 0d 41 53 43 49 ┆ TAB EQU 09H ASCICR EQU 0DH ASCI┆ 0x03e0…0400 4c 46 09 45 51 55 09 30 41 48 0d 45 5f 4f 5f 46 09 45 51 55 09 30 46 46 48 09 3b 20 45 4e 44 20 ┆LF EQU 0AH E_O_F EQU 0FFH ; END ┆ 0x0400…0420 4f 46 20 46 49 4c 45 20 4d 41 52 4b 0d 3b 0d 3b 09 42 20 49 20 54 20 20 20 44 20 45 20 46 20 49 ┆OF FILE MARK ; ; B I T D E F I┆ 0x0420…0440 20 4e 20 49 20 54 20 49 20 4f 20 4e 20 53 0d 3b 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ N I T I O N S ; ---------------┆ 0x0440…0460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 52 58 5f 52 44 59 09 45 51 55 09 30 09 3b 20 52 45 ┆-------------- RX_RDY EQU 0 ; RE┆ 0x0460…0480 43 49 45 56 45 52 20 52 45 41 44 59 20 42 49 54 0d 54 58 5f 52 44 59 09 45 51 55 09 32 09 3b 20 ┆CIEVER READY BIT TX_RDY EQU 2 ; ┆ 0x0480…04a0 54 52 41 4e 53 4d 49 54 54 45 52 20 52 45 41 44 59 20 42 49 54 0d 41 4c 4c 53 45 4e 54 09 45 51 ┆TRANSMITTER READY BIT ALLSENT EQ┆ 0x04a0…04c0 55 09 30 09 3b 20 54 52 41 4e 53 4d 49 54 54 45 52 20 45 4d 50 54 59 20 42 49 54 0d 3b 0d 3b 09 ┆U 0 ; TRANSMITTER EMPTY BIT ; ; ┆ 0x04c0…04e0 53 20 59 20 53 20 54 20 45 20 4d 20 20 20 41 20 44 20 52 20 45 20 53 20 53 20 45 20 53 0d 3b 09 ┆S Y S T E M A D R E S S E S ; ┆ 0x04e0…0500 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 0d 45 52 ┆----------------------------- ER┆ 0x0500…0520 43 4f 44 45 09 45 51 55 09 31 33 42 44 48 09 3b 20 45 52 52 4f 52 20 43 4f 44 45 20 41 44 44 52 ┆CODE EQU 13BDH ; ERROR CODE ADDR┆ 0x0520…0540 45 53 53 0d 44 41 54 45 20 09 45 51 55 09 31 33 41 42 48 09 3b 20 47 4c 4f 42 41 4c 20 44 41 54 ┆ESS DATE EQU 13ABH ; GLOBAL DAT┆ 0x0540…0560 45 0d 2a 48 20 44 52 49 56 45 52 20 53 54 41 52 54 0d 3b 09 52 20 45 20 51 20 55 20 45 20 53 20 ┆E *H DRIVER START ; R E Q U E S ┆ 0x0560…0580 54 20 20 20 43 20 4f 20 44 20 45 20 20 20 44 20 45 20 43 20 4f 20 44 20 45 0d 3b 20 09 2d 2d 2d ┆T C O D E D E C O D E ; ---┆ 0x0580…05a0 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 ┆--------------------------------┆ 0x05a0…05c0 2d 2d 0d 09 47 4c 4f 42 41 4c 20 20 20 20 44 52 41 57 0d 3b 0d 09 4f 52 47 09 30 46 44 38 30 48 ┆-- GLOBAL DRAW ; ORG 0FD80H┆ 0x05c0…05e0 09 3b 20 53 54 41 52 54 20 50 4c 4f 54 20 44 52 49 56 45 52 20 53 49 4f 0d 3b 0d 44 52 41 57 09 ┆ ; START PLOT DRIVER SIO ; DRAW ┆ 0x05e0…0600 43 41 4c 4c 09 44 45 43 5f 52 45 51 09 3b 20 44 45 43 4f 44 45 20 52 45 51 55 45 53 54 20 43 4f ┆CALL DEC_REQ ; DECODE REQUEST CO┆ 0x0600…0620 44 45 0d 09 44 45 46 42 09 37 09 3b 20 4e 55 4d 42 45 52 20 4f 46 20 56 41 4c 49 44 20 52 45 51 ┆DE DEFB 7 ; NUMBER OF VALID REQ┆ 0x0620…0640 55 45 53 54 20 43 4f 44 45 53 0d 3b 0d 09 44 45 46 42 09 49 4e 49 54 52 51 0d 09 44 45 46 57 09 ┆UEST CODES ; DEFB INITRQ DEFW ┆ 0x0640…0660 53 5f 49 4e 49 54 52 51 09 3b 20 49 4e 49 54 49 41 4c 49 5a 45 20 0d 3b 0d 09 44 45 46 42 09 41 ┆S_INITRQ ; INITIALIZE ; DEFB A┆ 0x0660…0680 53 53 4e 52 51 09 3b 20 41 53 53 49 47 4e 20 52 45 51 55 45 53 54 20 3f 0d 09 44 45 46 57 09 53 ┆SSNRQ ; ASSIGN REQUEST ? DEFW S┆ 0x0680…06a0 5f 49 4e 49 54 52 51 09 3b 20 49 4e 49 54 49 41 4c 49 5a 45 20 0d 3b 0d 09 44 45 46 42 09 4f 50 ┆_INITRQ ; INITIALIZE ; DEFB OP┆ 0x06a0…06c0 45 4e 52 51 09 3b 20 4f 50 45 4e 20 52 45 51 55 45 53 54 20 3f 0d 09 44 45 46 57 09 53 5f 4f 50 ┆ENRQ ; OPEN REQUEST ? DEFW S_OP┆ 0x06c0…06e0 45 4e 52 51 0d 3b 0d 09 44 45 46 42 09 43 4c 4f 53 52 51 09 3b 20 43 4c 4f 53 45 20 2d 20 4a 55 ┆ENRQ ; DEFB CLOSRQ ; CLOSE - JU┆ 0x06e0…0700 53 54 20 52 45 54 55 52 4e 0d 09 44 45 46 57 09 4f 4b 45 58 49 54 0d 3b 0d 09 44 45 46 42 09 57 ┆ST RETURN DEFW OKEXIT ; DEFB W┆ 0x0700…0720 52 54 42 52 51 09 3b 20 57 52 49 54 45 20 42 49 4e 41 52 59 20 52 45 51 55 45 53 54 20 3f 0d 09 ┆RTBRQ ; WRITE BINARY REQUEST ? ┆ 0x0720…0740 44 45 46 57 09 53 5f 57 52 54 42 52 51 0d 3b 0d 09 44 45 46 42 09 57 52 54 4c 52 51 09 3b 20 57 ┆DEFW S_WRTBRQ ; DEFB WRTLRQ ; W┆ 0x0740…0760 52 49 54 45 20 4c 49 4e 45 20 52 45 51 55 45 53 54 20 3f 0d 09 44 45 46 57 09 53 5f 57 52 54 4c ┆RITE LINE REQUEST ? DEFW S_WRTL┆ 0x0760…0780 52 51 0d 3b 0d 09 44 45 46 42 09 44 45 41 43 52 51 09 3b 20 44 45 41 43 54 49 56 41 54 45 20 2d ┆RQ ; DEFB DEACRQ ; DEACTIVATE -┆ 0x0780…07a0 20 4a 55 53 54 20 52 45 54 55 52 4e 0d 09 44 45 46 57 09 53 5f 44 45 41 43 52 51 0d 2a 48 20 49 ┆ JUST RETURN DEFW S_DEACRQ *H I┆ 0x07a0…07c0 4e 49 54 49 41 4c 49 5a 45 0d 3b 09 30 20 30 09 49 20 4e 20 49 20 54 20 49 20 41 20 4c 20 49 20 ┆NITIALIZE ; 0 0 I N I T I A L I ┆ 0x07c0…07e0 5a 20 45 0d 3b 09 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 0d ┆Z E ; ------------------------- ┆ 0x07e0…0800 3b 0d 53 5f 49 4e 49 54 52 51 0d 09 4c 44 09 48 4c 2c 49 5f 53 49 4f 09 3b 20 49 4e 49 54 49 41 ┆; S_INITRQ LD HL,I_SIO ; INITIA┆ 0x0800…0820 4c 49 5a 45 20 53 49 4f 0d 09 43 41 4c 4c 09 49 4e 49 54 0d 09 49 4e 09 41 2c 28 53 5f 31 31 41 ┆LIZE SIO CALL INIT IN A,(S_11A┆ 0x0820…0840 44 29 0d 3b 0d 09 52 45 54 0d 3b 0d 3b 0d 3b 09 30 20 34 09 4f 20 50 20 45 20 4e 20 20 20 52 20 ┆D) ; RET ; ; ; 0 4 O P E N R ┆ 0x0840…0860 45 20 51 20 55 20 45 20 53 20 54 0d 3b 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E Q U E S T ; ------------------┆ 0x0860…0880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 3b 0d 53 5f 4f 50 45 4e 52 51 0d 09 52 45 54 0d 3b 0d 3b 0d ┆----------- ; S_OPENRQ RET ; ; ┆ 0x0880…08a0 3b 20 09 30 20 36 09 43 20 4c 20 4f 20 53 20 45 20 20 20 52 20 45 20 51 20 55 20 45 20 53 20 54 ┆; 0 6 C L O S E R E Q U E S T┆ 0x08a0…08c0 0d 3b 09 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 ┆ ; -----------------------------┆ 0x08c0…08e0 2d 2d 0d 3b 0d 53 5f 43 4c 4f 53 52 51 0d 09 52 45 54 0d 2a 48 20 57 52 49 54 45 20 42 49 4e 41 ┆-- ; S_CLOSRQ RET *H WRITE BINA┆ 0x08e0…0900 52 59 0d 3b 09 30 20 45 20 20 20 57 20 52 20 49 20 54 20 45 20 20 20 42 20 49 20 4e 20 41 20 52 ┆RY ; 0 E W R I T E B I N A R┆ 0x0900…0920 20 59 0d 3b 09 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 ┆ Y ; ---------------------------┆ 0x0920…0940 2d 2d 0d 3b 0d 53 5f 57 52 54 42 52 51 0d 09 52 45 54 09 5a 09 3b 20 49 46 20 42 43 20 3d 20 30 ┆-- ; S_WRTBRQ RET Z ; IF BC = 0┆ 0x0940…0960 20 52 45 54 55 52 4e 0d 3b 0d 4c 4f 4f 50 5f 42 09 4c 44 09 41 2c 28 48 4c 29 09 3b 20 47 45 54 ┆ RETURN ; LOOP_B LD A,(HL) ; GET┆ 0x0960…0980 20 42 59 54 45 20 46 4f 52 20 4f 55 54 50 55 54 0d 3b 0d 09 43 50 09 45 5f 4f 5f 46 09 3b 20 45 ┆ BYTE FOR OUTPUT ; CP E_O_F ; E┆ 0x0980…09a0 4e 44 20 4f 46 20 46 49 4c 45 20 4d 41 52 4b 20 3f 0d 09 4a 50 09 5a 2c 45 4e 44 46 49 4c 0d 3b ┆ND OF FILE MARK ? JP Z,ENDFIL ;┆ 0x09a0…09c0 0d 09 43 41 4c 4c 09 53 45 4e 44 09 3b 20 53 45 4e 44 20 31 20 43 48 41 52 41 43 54 45 52 20 54 ┆ CALL SEND ; SEND 1 CHARACTER T┆ 0x09c0…09e0 4f 20 50 4c 4f 54 54 45 52 0d 09 43 50 09 41 53 43 49 43 52 09 3b 20 49 46 20 41 53 43 49 43 52 ┆O PLOTTER CP ASCICR ; IF ASCICR┆ 0x09e0…0a00 20 53 45 4e 44 20 4c 46 0d 09 43 41 4c 4c 09 5a 2c 53 45 4e 44 5f 4c 46 09 3b 20 53 45 4e 44 20 ┆ SEND LF CALL Z,SEND_LF ; SEND ┆ 0x0a00…0a20 4c 46 20 41 46 54 45 52 20 43 52 0d 09 43 50 49 09 09 3b 20 49 4e 43 20 48 4c 20 20 20 44 45 43 ┆LF AFTER CR CPI ; INC HL DEC┆ 0x0a20…0a40 20 42 43 0d 09 4a 50 09 50 45 2c 4c 4f 4f 50 5f 42 0d 4f 4b 45 58 49 54 09 52 45 54 0d 3b 0d 3b ┆ BC JP PE,LOOP_B OKEXIT RET ; ;┆ 0x0a40…0a60 0d 3b 09 31 20 30 20 20 20 57 20 52 20 49 20 54 20 45 20 20 20 4c 20 49 20 4e 20 45 0d 3b 09 2d ┆ ; 1 0 W R I T E L I N E ; -┆ 0x0a60…0a80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 53 5f 57 52 54 4c 52 ┆------------------------ S_WRTLR┆ 0x0a80…0aa0 51 0d 09 52 45 54 09 5a 09 3b 20 49 46 20 42 43 20 3d 20 30 20 52 45 54 55 52 4e 0d 3b 0d 4c 4f ┆Q RET Z ; IF BC = 0 RETURN ; LO┆ 0x0aa0…0ac0 4f 50 5f 4c 09 4c 44 09 41 2c 28 48 4c 29 09 3b 20 47 45 54 20 42 59 54 45 20 46 4f 52 20 4f 55 ┆OP_L LD A,(HL) ; GET BYTE FOR OU┆ 0x0ac0…0ae0 54 50 55 54 0d 3b 0d 09 43 50 09 45 5f 4f 5f 46 09 3b 20 45 4e 44 20 4f 46 20 46 49 4c 45 20 4d ┆TPUT ; CP E_O_F ; END OF FILE M┆ 0x0ae0…0b00 41 52 4b 20 3f 0d 09 4a 50 09 5a 2c 45 4e 44 46 49 4c 0d 3b 0d 09 43 41 4c 4c 09 53 45 4e 44 09 ┆ARK ? JP Z,ENDFIL ; CALL SEND ┆ 0x0b00…0b20 3b 20 53 45 4e 44 20 31 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 50 4c 4f 54 54 45 52 0d 09 43 ┆; SEND 1 CHARACTER TO PLOTTER C┆ 0x0b20…0b40 50 09 41 53 43 49 43 52 09 3b 20 49 46 20 41 53 43 49 43 52 20 53 45 4e 44 20 4c 46 0d 09 43 41 ┆P ASCICR ; IF ASCICR SEND LF CA┆ 0x0b40…0b60 4c 4c 09 5a 2c 53 45 4e 44 5f 4c 46 09 3b 20 53 45 4e 44 20 4c 46 20 41 46 54 45 52 20 43 52 0d ┆LL Z,SEND_LF ; SEND LF AFTER CR ┆ 0x0b60…0b80 09 4c 44 09 41 2c 41 53 43 49 43 52 09 3b 20 49 53 20 49 54 20 41 20 43 2e 52 45 54 55 52 4e 0d ┆ LD A,ASCICR ; IS IT A C.RETURN ┆ 0x0b80…0ba0 09 43 50 49 09 09 3b 20 49 4e 43 20 48 4c 20 20 20 44 45 43 20 42 43 0d 09 4a 52 09 5a 2c 45 4e ┆ CPI ; INC HL DEC BC JR Z,EN┆ 0x0ba0…0bc0 44 4c 49 4e 0d 3b 0d 09 4a 50 09 50 45 2c 4c 4f 4f 50 5f 4c 0d 09 52 45 54 0d 3b 0d 3b 09 2d 2d ┆DLIN ; JP PE,LOOP_L RET ; ; --┆ 0x0bc0…0be0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 3b 0d 46 49 4c 45 4e 44 ┆----------------------- ; FILEND┆ 0x0be0…0c00 09 43 50 49 0d 45 4e 44 46 49 4c 0d 45 4e 44 4c 49 4e 09 4c 44 09 4c 2c 28 49 59 2b 34 29 09 3b ┆ CPI ENDFIL ENDLIN LD L,(IY+4) ;┆ 0x0c00…0c20 20 43 41 4c 43 55 4c 41 54 45 20 48 4f 57 20 4d 41 4e 59 0d 09 4c 44 09 48 2c 28 49 59 2b 35 29 ┆ CALCULATE HOW MANY LD H,(IY+5)┆ 0x0c20…0c40 09 3b 20 42 59 54 45 53 20 48 41 56 45 20 42 45 45 4e 20 4f 55 54 50 55 54 0d 09 41 4e 44 09 41 ┆ ; BYTES HAVE BEEN OUTPUT AND A┆ 0x0c40…0c60 09 3b 20 46 52 4f 4d 20 42 55 46 46 45 52 0d 09 53 42 43 09 48 4c 2c 42 43 0d 09 4c 44 09 28 49 ┆ ; FROM BUFFER SBC HL,BC LD (I┆ 0x0c60…0c80 59 2b 34 29 2c 4c 09 3b 20 4c 4f 41 44 20 49 4e 54 4f 20 56 45 43 54 4f 52 0d 09 4c 44 09 28 49 ┆Y+4),L ; LOAD INTO VECTOR LD (I┆ 0x0c80…0ca0 59 2b 35 29 2c 48 0d 09 52 45 54 0d 3b 0d 3b 09 34 20 34 09 44 20 45 20 41 20 43 20 54 20 49 20 ┆Y+5),H RET ; ; 4 4 D E A C T I ┆ 0x0ca0…0cc0 56 20 41 20 54 20 45 20 20 20 52 20 45 20 51 20 55 20 45 20 53 20 54 0d 3b 09 2d 2d 2d 2d 2d 2d ┆V A T E R E Q U E S T ; ------┆ 0x0cc0…0ce0 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 ┆--------------------------------┆ 0x0ce0…0d00 2d 2d 2d 0d 3b 0d 53 5f 44 45 41 43 52 51 0d 09 52 45 54 0d 2a 48 0d 3b 09 53 20 45 20 4e 20 44 ┆--- ; S_DEACRQ RET *H ; S E N D┆ 0x0d00…0d20 20 20 20 31 20 20 20 43 20 48 20 41 20 52 20 41 20 43 20 54 20 45 20 52 20 20 20 54 20 4f 20 20 ┆ 1 C H A R A C T E R T O ┆ 0x0d20…0d40 20 50 20 4c 20 4f 20 54 20 54 20 45 20 52 0d 3b 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ P L O T T E R ; ---------------┆ 0x0d40…0d60 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 ┆--------------------------------┆ 0x0d60…0d80 2d 2d 2d 2d 2d 2d 0d 3b 0d 53 45 4e 44 5f 4c 46 09 4c 44 09 41 2c 41 53 43 49 4c 46 0d 3b 0d 53 ┆------ ; SEND_LF LD A,ASCILF ; S┆ 0x0d80…0da0 45 4e 44 09 50 55 53 48 09 41 46 09 3b 20 53 41 56 45 20 43 48 41 52 41 43 54 45 52 0d 3b 0d 57 ┆END PUSH AF ; SAVE CHARACTER ; W┆ 0x0da0…0dc0 41 49 54 42 09 4c 44 09 41 2c 31 09 3b 20 52 45 47 20 31 0d 09 4f 55 54 09 28 53 5f 31 31 41 43 ┆AITB LD A,1 ; REG 1 OUT (S_11AC┆ 0x0dc0…0de0 29 2c 41 0d 09 49 4e 09 41 2c 28 53 5f 31 31 41 43 29 09 3b 20 52 45 41 44 20 53 54 41 54 55 53 ┆),A IN A,(S_11AC) ; READ STATUS┆ 0x0de0…0e00 20 53 49 4f 0d 09 42 49 54 09 41 4c 4c 53 45 4e 54 2c 41 09 3b 20 54 45 53 54 20 53 49 4f 20 45 ┆ SIO BIT ALLSENT,A ; TEST SIO E┆ 0x0e00…0e20 4d 50 54 59 0d 09 4a 52 09 5a 2c 57 41 49 54 42 09 3b 20 54 45 53 54 20 41 47 41 49 4e 0d 3b 0d ┆MPTY JR Z,WAITB ; TEST AGAIN ; ┆ 0x0e20…0e40 09 58 4f 52 09 41 09 3b 20 41 20 3d 20 30 0d 44 45 4c 41 59 09 4e 4f 50 0d 09 44 45 43 09 41 0d ┆ XOR A ; A = 0 DELAY NOP DEC A ┆ 0x0e40…0e60 09 4a 52 09 4e 5a 2c 44 45 4c 41 59 0d 3b 0d 09 50 4f 50 09 41 46 09 3b 20 52 45 53 54 4f 52 45 ┆ JR NZ,DELAY ; POP AF ; RESTORE┆ 0x0e60…0e80 0d 09 4f 55 54 09 28 53 5f 31 31 41 44 29 2c 41 0d 09 52 45 54 0d 3b 0d 2a 48 20 49 4e 49 54 49 ┆ OUT (S_11AD),A RET ; *H INITI┆ 0x0e80…0ea0 41 4c 49 5a 45 20 44 41 54 41 0d 3b 09 49 20 4e 20 49 20 54 20 49 20 41 20 4c 20 49 20 5a 20 45 ┆ALIZE DATA ; I N I T I A L I Z E┆ 0x0ea0…0ec0 20 20 20 44 20 41 20 54 20 41 0d 3b 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ D A T A ; -------------------┆ 0x0ec0…0ee0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 3b 0d 49 5f 53 49 4f 0d 53 49 5f 31 31 41 09 44 45 46 42 09 39 ┆---------- ; I_SIO SI_11A DEFB 9┆ 0x0ee0…0f00 09 3b 20 4c 45 4e 47 54 48 20 49 4e 49 54 20 53 49 4f 20 31 2e 31 20 41 0d 09 44 45 46 42 09 53 ┆ ; LENGTH INIT SIO 1.1 A DEFB S┆ 0x0f00…0f20 5f 31 31 41 43 09 3b 20 50 4f 52 54 20 4e 55 4d 42 45 52 20 53 49 4f 20 31 2e 31 20 41 0d 3b 0d ┆_11AC ; PORT NUMBER SIO 1.1 A ; ┆ 0x0f20…0f40 09 44 45 46 42 09 30 30 30 31 31 30 30 30 42 09 3b 20 4e 45 58 54 20 52 45 47 2e 20 3d 20 30 20 ┆ DEFB 00011000B ; NEXT REG. = 0 ┆ 0x0f40…0f60 20 52 45 53 45 54 0d 09 44 45 46 42 09 33 09 3b 20 4e 45 58 54 20 52 45 47 2e 20 3d 20 33 0d 09 ┆ RESET DEFB 3 ; NEXT REG. = 3 ┆ 0x0f60…0f80 44 45 46 42 09 31 31 31 30 30 30 30 30 42 09 3b 20 38 20 42 49 54 20 20 41 55 54 4f 20 45 4e 41 ┆DEFB 11100000B ; 8 BIT AUTO ENA┆ 0x0f80…0fa0 42 4c 45 0d 09 44 45 46 42 09 34 09 3b 20 4e 45 58 54 20 52 45 47 2e 20 3d 20 34 0d 09 44 45 46 ┆BLE DEFB 4 ; NEXT REG. = 4 DEF┆ 0x0fa0…0fc0 42 09 30 31 30 30 31 31 30 30 42 09 3b 20 58 31 36 20 43 4c 4f 43 4b 20 31 20 53 54 4f 50 42 49 ┆B 01001100B ; X16 CLOCK 1 STOPBI┆ 0x0fc0…0fe0 54 20 4e 4f 20 50 41 52 49 54 59 0d 09 44 45 46 42 09 35 09 3b 20 4e 45 58 54 20 52 45 47 2e 20 ┆T NO PARITY DEFB 5 ; NEXT REG. ┆ 0x0fe0…1000 3d 20 35 0d 09 44 45 46 42 09 31 31 31 30 31 30 31 30 42 09 3b 20 44 54 52 2c 20 38 20 42 49 54 ┆= 5 DEFB 11101010B ; DTR, 8 BIT┆ 0x1000…1020 2c 20 52 54 53 0d 09 44 45 46 42 09 31 09 3b 20 4e 45 58 54 20 52 45 47 2e 20 3d 20 31 0d 09 44 ┆, RTS DEFB 1 ; NEXT REG. = 1 D┆ 0x1020…1040 45 46 42 09 30 30 30 30 30 30 30 30 42 09 3b 20 4e 4f 20 49 4e 54 45 52 52 55 50 54 0d 3b 0d 43 ┆EFB 00000000B ; NO INTERRUPT ; C┆ 0x1040…1060 54 43 31 31 30 09 44 45 46 42 09 32 09 3b 20 4c 45 4e 47 54 48 20 43 54 43 20 49 4e 49 54 49 41 ┆TC110 DEFB 2 ; LENGTH CTC INITIA┆ 0x1060…1080 4c 49 5a 45 0d 09 44 45 46 42 09 43 5f 31 31 5f 30 09 3b 20 43 54 43 20 31 2e 31 20 43 48 41 4e ┆LIZE DEFB C_11_0 ; CTC 1.1 CHAN┆ 0x1080…10a0 4e 45 4c 20 30 0d 09 44 45 46 42 09 30 30 30 30 30 31 31 31 42 09 3b 20 54 49 4d 45 52 20 4d 4f ┆NEL 0 DEFB 00000111B ; TIMER MO┆ 0x10a0…10c0 44 45 20 50 52 45 53 43 41 4c 45 52 20 3d 20 31 36 0d 09 44 45 46 42 09 31 09 3b 20 39 36 30 30 ┆DE PRESCALER = 16 DEFB 1 ; 9600┆ 0x10c0…10e0 20 42 41 55 44 0d 3b 0d 09 44 45 46 42 09 30 30 09 3b 20 45 4e 44 20 4f 46 20 49 4e 49 54 49 41 ┆ BAUD ; DEFB 00 ; END OF INITIA┆ 0x10e0…1100 4c 49 5a 45 0d 3b 0d 2a 48 20 49 4e 49 54 0d 3b 09 49 4e 49 54 49 41 4c 49 5a 45 20 53 49 4f 27 ┆LIZE ; *H INIT ; INITIALIZE SIO'┆ 0x1100…1120 53 20 2b 20 43 54 43 27 53 20 2b 20 50 49 4f 27 53 09 0d 3b 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆S + CTC'S + PIO'S ; -----------┆ 0x1120…1140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 3b 0d 3b 09 28 48 4c 29 20 20 ┆--------------------- ; ; (HL) ┆ 0x1140…1160 20 3d 20 4c 45 4e 47 54 48 0d 3b 09 28 48 4c 2b 31 29 20 3d 20 43 4f 4e 54 52 4f 4c 20 50 4f 52 ┆ = LENGTH ; (HL+1) = CONTROL POR┆ 0x1160…1180 54 0d 3b 09 28 48 4c 2b 32 29 20 3d 20 49 4e 49 54 49 41 4c 49 5a 45 20 44 41 54 41 0d 3b 0d 3b ┆T ; (HL+2) = INITIALIZE DATA ; ;┆ 0x1180…11a0 20 20 48 4c 20 3e 09 44 45 46 42 09 4e 0d 3b 09 44 45 46 42 09 50 4f 52 54 0d 3b 09 44 45 46 42 ┆ HL > DEFB N ; DEFB PORT ; DEFB┆ 0x11a0…11c0 09 44 41 54 41 5f 31 0d 3b 09 44 45 46 42 09 44 41 54 41 5f 32 0d 3b 09 3a 0d 3b 09 3a 0d 3b 09 ┆ DATA_1 ; DEFB DATA_2 ; : ; : ; ┆ 0x11c0…11e0 44 45 46 42 09 44 41 54 41 5f 4e 0d 3b 20 20 4e 2b 31 09 44 45 46 42 09 30 30 09 3b 20 53 54 4f ┆DEFB DATA_N ; N+1 DEFB 00 ; STO┆ 0x11e0…1200 50 20 43 4f 4e 44 49 54 49 4f 4e 0d 3b 0d 49 4e 49 54 09 4c 44 09 41 2c 28 48 4c 29 09 3b 20 41 ┆P CONDITION ; INIT LD A,(HL) ; A┆ 0x1200…1220 20 20 3d 20 4c 45 4e 47 54 48 0d 09 41 4e 44 09 41 09 3b 20 41 20 3d 20 30 20 46 49 4e 49 53 48 ┆ = LENGTH AND A ; A = 0 FINISH┆ 0x1220…1240 0d 09 52 45 54 09 5a 09 3b 20 45 4e 44 20 4f 46 20 49 4e 49 54 49 41 4c 49 5a 45 0d 09 4c 44 09 ┆ RET Z ; END OF INITIALIZE LD ┆ 0x1240…1260 42 2c 41 09 3b 20 42 20 20 3d 20 4c 45 4e 47 54 48 20 4f 46 20 49 4e 49 54 49 41 4c 49 5a 45 0d ┆B,A ; B = LENGTH OF INITIALIZE ┆ 0x1260…1280 09 49 4e 43 09 48 4c 0d 09 4c 44 09 43 2c 28 48 4c 29 09 3b 20 43 20 20 3d 20 50 4f 52 54 20 41 ┆ INC HL LD C,(HL) ; C = PORT A┆ 0x1280…12a0 44 44 52 45 53 53 0d 09 49 4e 43 09 48 4c 0d 09 4f 54 49 52 09 09 3b 20 53 45 4e 44 20 54 4f 20 ┆DDRESS INC HL OTIR ; SEND TO ┆ 0x12a0…12c0 44 45 56 49 43 45 0d 09 4a 52 09 49 4e 49 54 09 3b 20 52 45 50 45 41 54 0d 3b 0d 3b 0d 2a 48 20 ┆DEVICE JR INIT ; REPEAT ; ; *H ┆ 0x12c0…12e0 52 45 51 55 45 53 54 20 43 4f 44 45 20 44 45 43 4f 44 45 0d 3b 0d 09 47 4c 4f 42 41 4c 20 44 45 ┆REQUEST CODE DECODE ; GLOBAL DE┆ 0x12e0…1300 43 5f 52 45 51 20 4f 4b 45 58 49 54 0d 3b 53 54 41 52 54 09 43 41 4c 4c 09 44 45 43 5f 52 45 51 ┆C_REQ OKEXIT ;START CALL DEC_REQ┆ 0x1300…1320 09 3b 20 44 52 49 56 45 52 20 45 58 41 4d 50 4c 45 2e 0d 3b 09 44 45 46 42 09 4e 09 3b 20 4e 55 ┆ ; DRIVER EXAMPLE. ; DEFB N ; NU┆ 0x1320…1340 4d 42 45 52 20 4f 46 20 56 41 4c 49 44 20 52 45 51 2e 20 43 4f 44 45 53 0d 3b 09 44 45 46 42 09 ┆MBER OF VALID REQ. CODES ; DEFB ┆ 0x1340…1360 4f 50 5f 43 4f 44 45 5f 31 0d 3b 09 44 45 46 57 09 53 54 41 52 54 5f 4f 50 5f 43 4f 44 45 5f 31 ┆OP_CODE_1 ; DEFW START_OP_CODE_1┆ 0x1360…1380 0d 3b 09 44 45 46 42 09 4f 50 5f 43 4f 44 45 5f 32 0d 3b 09 44 45 46 57 09 53 54 41 52 54 5f 4f ┆ ; DEFB OP_CODE_2 ; DEFW START_O┆ 0x1380…13a0 50 5f 43 4f 44 45 5f 32 0d 3b 09 3a 0d 3b 09 3a 0d 3b 09 44 45 46 42 09 4f 50 5f 43 4f 44 45 5f ┆P_CODE_2 ; : ; : ; DEFB OP_CODE_┆ 0x13a0…13c0 23 4e 0d 3b 09 44 45 46 57 09 53 54 41 52 54 5f 4f 50 5f 43 4f 44 45 5f 23 4e 0d 3b 0d 44 45 43 ┆#N ; DEFW START_OP_CODE_#N ; DEC┆ 0x13c0…13e0 5f 52 45 51 09 4c 44 09 48 4c 2c 49 4f 52 54 4e 31 09 3b 20 48 4c 20 3d 20 43 4f 4d 4d 4f 4e 20 ┆_REQ LD HL,IORTN1 ; HL = COMMON ┆ 0x13e0…1400 52 45 54 55 52 4e 20 20 50 4f 49 4e 54 0d 09 45 58 09 48 4c 2c 28 53 50 29 09 3b 20 48 4c 20 3d ┆RETURN POINT EX HL,(SP) ; HL =┆ 0x1400…1420 20 4f 50 43 4f 44 45 20 54 41 42 4c 45 20 53 54 41 52 54 0d 09 4c 44 09 28 49 59 2b 31 30 29 2c ┆ OPCODE TABLE START LD (IY+10),┆ 0x1420…1440 38 30 48 09 3b 20 47 4f 4f 44 20 43 4f 4d 50 4c 45 54 49 4f 4e 20 43 4f 44 45 0d 09 4c 44 09 41 ┆80H ; GOOD COMPLETION CODE LD A┆ 0x1440…1460 2c 28 49 59 2b 31 29 09 3b 20 41 20 20 3d 20 4f 50 43 4f 44 45 0d 09 4c 44 09 42 2c 28 48 4c 29 ┆,(IY+1) ; A = OPCODE LD B,(HL)┆ 0x1460…1480 09 3b 20 42 20 20 3d 20 4e 55 4d 42 45 52 20 4f 46 20 4f 50 43 4f 44 45 53 0d 09 49 4e 43 09 48 ┆ ; B = NUMBER OF OPCODES INC H┆ 0x1480…14a0 4c 0d 53 45 41 52 43 48 09 43 50 09 28 48 4c 29 09 3b 20 4f 50 43 4f 44 45 20 46 4f 55 4e 44 20 ┆L SEARCH CP (HL) ; OPCODE FOUND ┆ 0x14a0…14c0 3f 0d 09 4a 52 2c 5a 09 46 4f 55 4e 44 09 3b 20 59 45 53 0d 09 49 4e 43 09 48 4c 0d 09 49 4e 43 ┆? JR,Z FOUND ; YES INC HL INC┆ 0x14c0…14e0 09 48 4c 0d 09 49 4e 43 09 48 4c 0d 09 44 4a 4e 5a 09 53 45 41 52 43 48 09 3b 20 4d 4f 52 45 20 ┆ HL INC HL DJNZ SEARCH ; MORE ┆ 0x14e0…1500 56 41 4c 49 44 20 4f 50 43 4f 44 45 53 20 3f 0d 3b 0d 09 4c 44 09 28 49 59 2b 31 30 29 2c 30 43 ┆VALID OPCODES ? ; LD (IY+10),0C┆ 0x1500…1520 31 48 09 3b 20 49 4e 56 41 4c 49 44 20 52 45 51 55 45 53 54 20 43 4f 44 45 0d 09 52 45 54 0d 3b ┆1H ; INVALID REQUEST CODE RET ;┆ 0x1520…1540 0d 46 4f 55 4e 44 09 49 4e 43 09 48 4c 0d 09 4c 44 09 41 2c 28 48 4c 29 0d 09 49 4e 43 09 48 4c ┆ FOUND INC HL LD A,(HL) INC HL┆ 0x1540…1560 0d 09 4c 44 09 48 2c 28 48 4c 29 0d 09 4c 44 09 4c 2c 41 0d 09 50 55 53 48 09 48 4c 09 3b 20 53 ┆ LD H,(HL) LD L,A PUSH HL ; S┆ 0x1560…1580 41 56 45 20 52 45 51 2e 20 43 4f 44 45 20 53 54 41 52 54 20 4f 4e 20 53 54 41 43 4b 0d 3b 0d 09 ┆AVE REQ. CODE START ON STACK ; ┆ 0x1580…15a0 4c 44 09 4c 2c 28 49 59 2b 32 29 0d 09 4c 44 09 48 2c 28 49 59 2b 33 29 09 3b 20 48 4c 20 3d 20 ┆LD L,(IY+2) LD H,(IY+3) ; HL = ┆ 0x15a0…15c0 44 41 54 41 20 53 54 41 52 54 20 41 44 44 52 45 53 53 0d 3b 0d 09 4c 44 09 43 2c 28 49 59 2b 34 ┆DATA START ADDRESS ; LD C,(IY+4┆ 0x15c0…15e0 29 0d 09 4c 44 09 42 2c 28 49 59 2b 35 29 09 3b 20 42 43 20 3d 20 44 41 54 41 20 4c 45 4e 47 54 ┆) LD B,(IY+5) ; BC = DATA LENGT┆ 0x15e0…1600 48 0d 3b 0d 09 4c 44 09 41 2c 42 0d 09 4f 52 09 43 09 3b 20 5a 20 3d 20 31 20 20 49 46 20 42 43 ┆H ; LD A,B OR C ; Z = 1 IF BC┆ 0x1600…1620 20 3d 20 30 0d 09 52 45 54 0d 3b 0d 49 4f 52 54 4e 31 3a 09 42 49 54 09 36 2c 28 49 59 2b 31 30 ┆ = 0 RET ; IORTN1: BIT 6,(IY+10┆ 0x1620…1640 29 0d 09 4a 52 09 5a 2c 49 4f 52 45 54 0d 45 52 52 54 4e 3a 0d 09 4c 44 09 48 2c 28 49 59 2b 39 ┆) JR Z,IORET ERRTN: LD H,(IY+9┆ 0x1640…1660 29 0d 09 4c 44 09 4c 2c 28 49 59 2b 38 29 0d 09 4c 44 09 41 2c 48 0d 09 4f 52 09 4c 0d 09 4a 52 ┆) LD L,(IY+8) LD A,H OR L JR┆ 0x1660…1680 09 5a 2c 49 4f 52 45 54 0d 09 4a 50 09 28 48 4c 29 0d 49 4f 52 45 54 3a 0d 09 42 49 54 09 30 2c ┆ Z,IORET JP (HL) IORET: BIT 0,┆ 0x1680…16a0 28 49 59 2b 31 29 09 3b 20 43 48 45 43 4b 20 57 48 49 43 48 20 52 45 54 55 52 4e 0d 09 52 45 54 ┆(IY+1) ; CHECK WHICH RETURN RET┆ 0x16a0…16c0 09 5a 09 0d 09 4c 44 09 48 2c 28 49 59 2b 37 29 09 3b 20 52 45 54 55 52 4e 20 54 4f 20 43 4f 4d ┆ Z LD H,(IY+7) ; RETURN TO COM┆ 0x16c0…16e0 50 4c 45 54 49 4f 4e 20 41 44 44 52 45 53 53 0d 09 4c 44 09 4c 2c 28 49 59 2b 36 29 09 0d 09 4a ┆PLETION ADDRESS LD L,(IY+6) J┆ 0x16e0…16ec 50 09 28 48 4c 29 0d 09 45 4e 44 0d ┆P (HL) END ┆