|
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: 54528 (0xd500)
Names: »BIOSKRNL.Z82«
└─⟦8181fe295⟧ Bits:30005924 PolyPascal-80 V3.10 arbejdsdiskette 2
└─ ⟦this⟧ »BIOSKRNL.Z82«
└─⟦ee7c759f6⟧ Bits:30005973 System backup med COMPAS-80 V3.01, dBase II og WordStar
└─ ⟦this⟧ »BIOSKRNL.Z82«
0x0000…0020 09 54 49 54 4c 45 09 27 42 49 4f 53 4b 52 4e 4c 2e 5a 38 30 20 20 20 52 4f 4f 54 20 54 4f 20 42 ┆ TITLE 'BIOSKRNL.Z80 ROOT TO B┆ 0x0020…0040 49 4f 53 2e 20 43 50 2f 4d 20 33 2e 30 27 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆IOS. CP/M 3.0' ;***************┆ 0x0040…0060 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 ┆********************************┆ 0x0060…0080 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 20 20 20 20 20 20 54 48 45 20 54 4f 54 41 4c 20 53 ┆*********** ;* THE TOTAL S┆ 0x0080…00a0 59 53 54 45 4d 20 43 4f 4e 53 49 53 54 53 20 4f 46 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆YSTEM CONSISTS OF: ┆ 0x00a0…00c0 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 20 20 20 20 20 20 42 49 4f 53 4b 52 4e 4c 2e 5a 38 30 20 20 ┆ * ;* BIOSKRNL.Z80 ┆ 0x00c0…00e0 20 20 52 4f 4f 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ROOT ┆ 0x00e0…0100 20 20 20 20 2a 0d 0a 3b 2a 20 20 20 20 20 20 42 4f 4f 54 2e 5a 38 30 20 20 20 20 20 20 20 20 42 ┆ * ;* BOOT.Z80 B┆ 0x0100…0120 4f 4f 54 2d 4d 4f 44 55 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OOT-MODULE ┆ 0x0120…0140 20 2a 0d 0a 3b 2a 20 20 20 20 20 20 43 48 41 52 49 4f 2e 5a 38 30 20 20 20 20 20 20 43 48 41 52 ┆ * ;* CHARIO.Z80 CHAR┆ 0x0140…0160 41 43 54 45 52 2d 49 2f 4f 2d 4d 4f 44 55 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d ┆ACTER-I/O-MODULE * ┆ 0x0160…0180 0a 3b 2a 20 20 20 20 20 20 44 52 49 56 45 53 2e 5a 38 30 20 20 20 20 20 20 44 49 53 4b 2d 44 45 ┆ ;* DRIVES.Z80 DISK-DE┆ 0x0180…01a0 46 49 4e 49 54 4f 4e 2d 4d 4f 44 55 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a ┆FINITON-MODULE * ;*┆ 0x01a0…01c0 20 20 20 20 20 20 45 58 54 4d 45 4d 2e 5a 38 30 20 20 20 20 20 20 45 58 54 45 52 4e 45 4c 20 4d ┆ EXTMEM.Z80 EXTERNEL M┆ 0x01c0…01e0 45 4d 4f 52 59 2d 4d 4f 44 55 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 20 20 20 ┆EMORY-MODULE * ;* ┆ 0x01e0…0200 20 20 20 53 43 42 2e 52 45 4c 20 20 20 20 20 20 20 20 20 53 59 53 54 45 4d 20 56 41 52 49 41 42 ┆ SCB.REL SYSTEM VARIAB┆ 0x0200…0220 4c 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 20 20 20 20 20 20 ┆LES * ;* ┆ 0x0220…0240 49 4f 53 2e 5a 38 30 20 20 20 20 20 20 20 20 20 50 4f 52 54 20 41 44 44 52 45 53 53 45 53 20 20 ┆IOS.Z80 PORT ADDRESSES ┆ 0x0240…0260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * ;**********┆ 0x0260…0280 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 ┆********************************┆ 0x0280…02a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 4c 41 54 45 53 54 20 43 48 41 4e 47 ┆**************** ; LATEST CHANG┆ 0x02a0…02c0 45 3a 20 31 39 38 34 2d 30 32 2d 32 39 2e 20 20 50 53 57 2e 0d 0a 3b 20 42 49 4f 53 52 45 56 49 ┆E: 1984-02-29. PSW. ; BIOSREVI┆ 0x02c0…02e0 53 49 4f 4e 20 43 2e 0d 0a 0d 0a 54 52 55 45 09 45 51 55 09 2d 31 0d 0a 46 41 4c 53 45 09 45 51 ┆SION C. TRUE EQU -1 FALSE EQ┆ 0x02e0…0300 55 09 4e 4f 54 20 54 52 55 45 0d 0a 42 49 4f 53 52 56 09 45 51 55 09 38 34 30 38 48 09 09 3b 20 ┆U NOT TRUE BIOSRV EQU 8408H ; ┆ 0x0300…0320 42 49 4f 53 2d 52 45 56 49 53 49 4f 4e 2e 0d 0a 42 4f 54 46 4c 47 09 45 51 55 09 30 43 30 30 30 ┆BIOS-REVISION. BOTFLG EQU 0C000┆ 0x0320…0340 48 09 09 3b 20 42 4f 4f 54 2d 46 4c 41 47 47 0d 0a 0d 0a 09 2e 5a 38 30 0d 0a 44 4d 41 09 45 51 ┆H ; BOOT-FLAGG .Z80 DMA EQ┆ 0x0340…0360 55 09 31 38 48 09 09 3b 20 44 4d 41 2e 0d 0a 09 09 09 09 3b 20 44 4d 41 2d 43 4f 4d 4d 41 4e 44 ┆U 18H ; DMA. ; DMA-COMMAND┆ 0x0360…0380 53 0d 0a 44 4d 52 53 45 54 09 45 51 55 09 30 43 33 48 09 09 3b 20 53 4f 46 54 57 41 52 45 20 52 ┆S DMRSET EQU 0C3H ; SOFTWARE R┆ 0x0380…03a0 45 53 45 54 0d 0a 44 4d 45 4e 41 42 09 45 51 55 09 30 38 37 48 09 09 3b 20 45 4e 41 42 4c 45 20 ┆ESET DMENAB EQU 087H ; ENABLE ┆ 0x03a0…03c0 44 4d 41 0d 0a 44 4d 44 49 53 41 09 45 51 55 09 30 38 33 48 09 09 3b 20 44 49 53 41 42 4c 45 20 ┆DMA DMDISA EQU 083H ; DISABLE ┆ 0x03c0…03e0 44 4d 41 0d 0a 0d 0a 42 4e 4b 4d 55 58 09 45 51 55 09 31 42 48 09 09 3b 20 42 41 4e 4b 2d 44 4d ┆DMA BNKMUX EQU 1BH ; BANK-DM┆ 0x03e0…0400 41 2d 4d 55 4c 54 49 50 4c 45 58 45 52 0d 0a 44 4d 42 4b 31 31 09 45 51 55 09 30 30 30 30 30 30 ┆A-MULTIPLEXER DMBK11 EQU 000000┆ 0x0400…0420 30 30 42 09 3b 20 42 41 4e 4b 31 20 2d 2d 3e 20 42 41 4e 4b 31 0d 0a 44 4d 42 4b 30 30 09 45 51 ┆00B ; BANK1 --> BANK1 DMBK00 EQ┆ 0x0420…0440 55 09 30 30 30 30 31 30 30 30 42 09 3b 20 42 41 4e 4b 30 20 2d 2d 3e 20 42 41 4e 4b 30 0d 0a 44 ┆U 00001000B ; BANK0 --> BANK0 D┆ 0x0440…0460 4d 42 4b 31 30 09 45 51 55 09 30 30 30 31 30 30 30 30 42 09 3b 20 42 41 4e 4b 31 20 2d 2d 3e 20 ┆MBK10 EQU 00010000B ; BANK1 --> ┆ 0x0460…0480 42 41 4e 4b 30 0d 0a 44 4d 42 4b 30 31 09 45 51 55 09 30 30 30 31 31 30 30 30 42 09 3b 20 42 41 ┆BANK0 DMBK01 EQU 00011000B ; BA┆ 0x0480…04a0 4e 4b 30 20 2d 2d 3e 20 42 41 4e 4b 31 0d 0a 42 41 4e 4b 31 09 45 51 55 09 30 30 30 30 30 30 30 ┆NK0 --> BANK1 BANK1 EQU 0000000┆ 0x04a0…04c0 30 42 09 3b 20 42 41 4e 4b 31 20 28 36 34 4b 20 46 4f 52 20 43 50 55 29 0d 0a 42 41 4e 4b 30 09 ┆0B ; BANK1 (64K FOR CPU) BANK0 ┆ 0x04c0…04e0 45 51 55 09 30 30 31 30 30 30 30 30 42 09 3b 20 42 41 4e 4b 30 20 28 34 38 4b 20 46 4f 52 20 43 ┆EQU 00100000B ; BANK0 (48K FOR C┆ 0x04e0…0500 50 55 29 0d 0a 0d 0a 43 52 09 45 51 55 09 31 33 0d 0a 4c 46 09 45 51 55 09 31 30 0d 0a 42 45 4c ┆PU) CR EQU 13 LF EQU 10 BEL┆ 0x0500…0520 4c 09 45 51 55 09 37 0d 0a 43 54 4c 51 09 45 51 55 09 27 51 27 2d 27 40 27 0d 0a 43 54 4c 53 09 ┆L EQU 7 CTLQ EQU 'Q'-'@' CTLS ┆ 0x0520…0540 45 51 55 09 27 53 27 2d 27 40 27 0d 0a 0d 0a 4d 42 24 58 4f 4e 58 4f 46 46 09 45 51 55 09 30 30 ┆EQU 'S'-'@' MB$XONXOFF EQU 00┆ 0x0540…0560 30 31 30 30 30 30 42 09 3b 20 58 4f 4e 2f 58 4f 46 46 20 50 52 4f 54 4f 43 4f 4c 4c 20 4f 4e 2e ┆010000B ; XON/XOFF PROTOCOLL ON.┆ 0x0560…0580 0d 0a 0d 0a 4a 50 4f 50 09 45 51 55 09 30 43 33 48 09 09 3b 20 5a 38 30 20 4a 55 4d 50 20 49 4e ┆ JPOP EQU 0C3H ; Z80 JUMP IN┆ 0x0580…05a0 53 54 52 55 43 54 49 4f 4e 0d 0a 0d 0a 43 43 50 09 45 51 55 09 31 30 30 48 09 09 3b 20 4c 4f 41 ┆STRUCTION CCP EQU 100H ; LOA┆ 0x05a0…05c0 44 20 41 44 44 52 45 53 53 20 46 4f 52 20 43 43 50 0d 0a 09 50 41 47 45 0d 0a 09 3b 20 45 58 54 ┆D ADDRESS FOR CCP PAGE ; EXT┆ 0x05c0…05e0 45 52 4e 41 4c 20 56 41 52 49 41 42 45 4c 53 0d 0a 3b 09 45 58 54 52 4e 09 40 43 4f 56 45 43 2c ┆ERNAL VARIABELS ; EXTRN @COVEC,┆ 0x05e0…0600 40 43 49 56 45 43 2c 40 41 4f 56 45 43 09 3b 20 49 2f 4f 20 52 45 44 49 52 45 43 54 49 4f 4e 20 ┆@CIVEC,@AOVEC ; I/O REDIRECTION ┆ 0x0600…0620 56 45 43 54 4f 52 53 0d 0a 3b 09 45 58 54 52 4e 09 40 41 49 56 45 43 2c 40 4c 4f 56 45 43 09 09 ┆VECTORS ; EXTRN @AIVEC,@LOVEC ┆ 0x0620…0640 3b 20 20 20 20 20 20 20 2d 20 22 20 2d 0d 0a 3b 09 45 58 54 52 4e 09 40 4d 58 54 50 41 09 09 09 ┆; - " - ; EXTRN @MXTPA ┆ 0x0640…0660 3b 20 4d 41 58 20 54 50 41 20 49 4e 20 55 53 45 52 20 42 41 4e 4b 0d 0a 3b 09 45 58 54 52 4e 09 ┆; MAX TPA IN USER BANK ; EXTRN ┆ 0x0660…0680 40 42 4e 4b 42 46 09 09 09 3b 20 43 4f 4d 4d 4f 4e 20 31 32 38 20 42 59 54 45 20 42 55 46 46 45 ┆@BNKBF ; COMMON 128 BYTE BUFFE┆ 0x0680…06a0 52 0d 0a 0d 0a 09 3b 20 49 4e 49 54 0d 0a 3b 09 45 58 54 52 4e 09 3f 50 41 54 43 48 2c 3f 49 4e ┆R ; INIT ; EXTRN ?PATCH,?IN┆ 0x06a0…06c0 49 54 09 09 09 3b 20 0d 0a 3b 09 45 58 54 52 4e 09 3f 4c 44 43 43 50 2c 3f 52 4c 43 43 50 09 09 ┆IT ; ; EXTRN ?LDCCP,?RLCCP ┆ 0x06c0…06e0 3b 20 4c 4f 41 44 20 26 20 52 45 4c 4f 41 44 20 43 43 50 0d 0a 0d 0a 09 3b 20 55 53 45 52 20 44 ┆; LOAD & RELOAD CCP ; USER D┆ 0x06e0…0700 45 46 49 4e 45 44 20 43 48 41 52 41 43 54 45 52 20 49 2f 4f 20 52 4f 55 54 49 4e 53 0d 0a 3b 09 ┆EFINED CHARACTER I/O ROUTINS ; ┆ 0x0700…0720 45 58 54 52 4e 09 3f 43 49 2c 3f 43 4f 2c 3f 43 49 53 54 2c 3f 43 4f 53 54 09 3b 20 0d 0a 3b 09 ┆EXTRN ?CI,?CO,?CIST,?COST ; ; ┆ 0x0720…0740 45 58 54 52 4e 09 3f 43 49 4e 49 54 2c 49 4e 49 53 54 4d 09 09 3b 20 0d 0a 3b 09 45 58 54 52 4e ┆EXTRN ?CINIT,INISTM ; ; EXTRN┆ 0x0740…0760 09 40 43 54 42 4c 09 09 09 3b 20 0d 0a 0d 0a 09 3b 20 44 49 53 4b 20 0d 0a 3b 09 45 58 54 52 4e ┆ @CTBL ; ; DISK ; EXTRN┆ 0x0760…0780 09 40 44 54 42 4c 09 09 09 3b 20 50 4f 49 4e 54 45 52 20 54 41 42 4c 45 0d 0a 3b 09 45 4e 54 52 ┆ @DTBL ; POINTER TABLE ; ENTR┆ 0x0780…07a0 59 09 40 41 44 52 56 2c 40 52 44 52 56 2c 40 54 52 4b 2c 40 53 45 43 54 09 3b 20 44 49 53 4b 50 ┆Y @ADRV,@RDRV,@TRK,@SECT ; DISKP┆ 0x07a0…07c0 41 52 41 4d 45 54 45 52 53 0d 0a 3b 09 45 4e 54 52 59 09 40 44 4d 41 2c 40 44 42 4e 4b 2c 40 43 ┆ARAMETERS ; ENTRY @DMA,@DBNK,@C┆ 0x07c0…07e0 4e 54 09 09 3b 20 20 20 20 20 2d 20 22 20 2d 09 0d 0a 0d 0a 09 3b 20 4d 45 4d 4f 52 59 20 4d 4f ┆NT ; - " - ; MEMORY MO┆ 0x07e0…0800 44 55 4c 45 0d 0a 3b 09 45 4e 54 52 59 09 40 43 42 4e 4b 2c 42 4e 4b 4d 53 4b 09 09 3b 20 43 55 ┆DULE ; ENTRY @CBNK,BNKMSK ; CU┆ 0x0800…0820 52 52 45 4e 54 20 42 41 4e 4b 0d 0a 0d 0a 3b 09 45 4e 54 52 59 09 3f 50 4d 53 47 20 20 20 09 09 ┆RRENT BANK ; ENTRY ?PMSG ┆ 0x0820…0840 3b 20 57 52 49 54 45 53 20 4d 45 53 53 41 47 45 53 0d 0a 0d 0a 0d 0a 09 3b 20 45 58 54 45 52 4e ┆; WRITES MESSAGES ; EXTERN┆ 0x0840…0860 41 4c 20 4c 41 42 4c 45 53 20 54 4f 20 42 49 4f 53 2d 43 41 4c 4c 53 0d 0a 3b 09 45 4e 54 52 59 ┆AL LABLES TO BIOS-CALLS ; ENTRY┆ 0x0860…0880 09 3f 42 4f 4f 54 2c 3f 57 42 4f 4f 54 2c 3f 43 4f 4e 53 54 2c 3f 43 4f 4e 49 4e 2c 3f 43 4f 4e ┆ ?BOOT,?WBOOT,?CONST,?CONIN,?CON┆ 0x0880…08a0 4f 2c 3f 4c 49 53 54 2c 3f 41 55 58 4f 2c 3f 41 55 58 49 0d 0a 3b 09 45 4e 54 52 59 09 3f 48 4f ┆O,?LIST,?AUXO,?AUXI ; ENTRY ?HO┆ 0x08a0…08c0 4d 45 2c 3f 53 4c 44 53 4b 2c 3f 53 54 54 52 4b 2c 3f 53 54 53 45 43 2c 3f 53 54 44 4d 41 2c 3f ┆ME,?SLDSK,?STTRK,?STSEC,?STDMA,?┆ 0x08c0…08e0 52 45 41 44 2c 3f 57 52 49 54 45 0d 0a 3b 09 45 4e 54 52 59 09 3f 4c 49 53 54 53 2c 3f 53 43 54 ┆READ,?WRITE ; ENTRY ?LISTS,?SCT┆ 0x08e0…0900 52 4e 0d 0a 3b 09 45 4e 54 52 59 09 3f 43 4f 4e 4f 53 2c 3f 41 55 58 49 53 2c 3f 41 55 58 4f 53 ┆RN ; ENTRY ?CONOS,?AUXIS,?AUXOS┆ 0x0900…0920 2c 3f 44 56 54 42 4c 2c 3f 44 45 56 49 4e 2c 3f 44 52 54 42 4c 0d 0a 3b 09 45 4e 54 52 59 09 3f ┆,?DVTBL,?DEVIN,?DRTBL ; ENTRY ?┆ 0x0920…0940 4d 4c 54 49 4f 2c 3f 46 4c 55 53 48 2c 3f 4d 4f 56 2c 3f 54 49 4d 2c 3f 42 4e 4b 53 4c 2c 3f 53 ┆MLTIO,?FLUSH,?MOV,?TIM,?BNKSL,?S┆ 0x0940…0960 54 42 4e 4b 2c 3f 58 4d 4f 56 0d 0a 0d 0a 09 3b 20 45 58 54 45 52 4e 41 4c 20 4c 41 42 4c 45 20 ┆TBNK,?XMOV ; EXTERNAL LABLE ┆ 0x0960…0980 54 4f 20 55 53 45 52 46 55 4e 43 54 49 4f 4e 0d 0a 3b 09 45 58 54 52 4e 09 3f 55 53 45 52 46 0d ┆TO USERFUNCTION ; EXTRN ?USERF ┆ 0x0980…09a0 0a 0d 0a 09 3b 20 49 4e 54 45 52 52 55 50 54 2d 56 45 43 54 4f 52 53 0d 0a 3b 09 45 4e 54 52 59 ┆ ; INTERRUPT-VECTORS ; ENTRY┆ 0x09a0…09c0 09 53 49 4f 31 49 56 2c 53 49 4f 32 49 56 2c 44 4d 41 49 52 56 2c 43 54 43 49 52 56 2c 50 49 4f ┆ SIO1IV,SIO2IV,DMAIRV,CTCIRV,PIO┆ 0x09c0…09e0 49 52 56 0d 0a 3b 09 45 4e 54 52 59 09 49 4e 54 56 45 43 54 0d 0a 0d 0a 09 3b 20 49 4e 54 45 52 ┆IRV ; ENTRY INTVECT ; INTER┆ 0x09e0…0a00 52 55 50 54 2d 44 52 49 56 45 4e 20 52 4f 55 54 49 4e 45 53 0d 0a 3b 09 45 58 54 52 4e 09 4b 42 ┆RUPT-DRIVEN ROUTINES ; EXTRN KB┆ 0x0a00…0a20 44 49 52 51 2c 43 4c 4b 49 52 51 2c 55 4e 4b 49 4e 54 0d 0a 09 50 41 47 45 0d 0a 09 43 53 45 47 ┆DIRQ,CLKIRQ,UNKINT PAGE CSEG┆ 0x0a20…0a40 0d 0a 3b 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 ┆ ;*****************************┆ 0x0a40…0a60 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 0d 0a 3b ┆***************************** ;┆ 0x0a60…0a80 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 49 4f 53 3a 20 4a 55 4d 50 20 56 45 43 54 4f 52 ┆* BIOS: JUMP VECTOR┆ 0x0a80…0aa0 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 2a 2a ┆S * ;***┆ 0x0aa0…0ac0 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 ┆********************************┆ 0x0ac0…0ae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 09 2e 50 48 41 53 45 ┆*********************** .PHASE┆ 0x0ae0…0b00 09 30 46 37 30 30 48 0d 0a 0d 0a 3f 42 4f 4f 54 3a 09 4a 50 09 42 4f 4f 54 09 09 3b 20 0d 0a 3f ┆ 0F700H ?BOOT: JP BOOT ; ?┆ 0x0b00…0b20 57 42 4f 4f 54 3a 09 4a 50 09 57 42 4f 4f 54 09 09 3b 20 0d 0a 0d 0a 3f 43 4f 4e 53 54 3a 09 4a ┆WBOOT: JP WBOOT ; ?CONST: J┆ 0x0b20…0b40 50 09 43 4f 4e 53 54 09 09 3b 20 0d 0a 3f 43 4f 4e 49 4e 3a 09 4a 50 09 43 4f 4e 49 4e 09 09 3b ┆P CONST ; ?CONIN: JP CONIN ;┆ 0x0b40…0b60 20 0d 0a 3f 43 4f 4e 4f 3a 09 4a 50 09 43 4f 4e 4f 55 54 09 09 3b 20 0d 0a 3f 4c 49 53 54 3a 09 ┆ ?CONO: JP CONOUT ; ?LIST: ┆ 0x0b60…0b80 4a 50 09 4c 49 53 54 09 09 3b 20 0d 0a 3f 41 55 58 4f 3a 09 4a 50 09 41 55 58 4f 55 54 09 09 3b ┆JP LIST ; ?AUXO: JP AUXOUT ;┆ 0x0b80…0ba0 20 0d 0a 3f 41 55 58 49 3a 09 4a 50 09 41 55 58 49 4e 09 09 3b 20 0d 0a 0d 0a 3f 48 4f 4d 45 3a ┆ ?AUXI: JP AUXIN ; ?HOME:┆ 0x0ba0…0bc0 09 4a 50 09 48 4f 4d 45 09 09 3b 20 0d 0a 3f 53 4c 44 53 4b 3a 09 4a 50 09 53 45 4c 44 53 4b 09 ┆ JP HOME ; ?SLDSK: JP SELDSK ┆ 0x0bc0…0be0 09 3b 20 0d 0a 3f 53 54 54 52 4b 3a 09 4a 50 09 53 45 54 54 52 4b 09 09 3b 20 0d 0a 3f 53 54 53 ┆ ; ?STTRK: JP SETTRK ; ?STS┆ 0x0be0…0c00 45 43 3a 09 4a 50 09 53 45 54 53 45 43 09 09 3b 20 0d 0a 3f 53 54 44 4d 41 3a 09 4a 50 09 53 45 ┆EC: JP SETSEC ; ?STDMA: JP SE┆ 0x0c00…0c20 54 44 4d 41 09 09 3b 20 0d 0a 3f 52 45 41 44 3a 09 4a 50 09 52 45 41 44 09 09 3b 20 0d 0a 3f 57 ┆TDMA ; ?READ: JP READ ; ?W┆ 0x0c20…0c40 52 49 54 45 3a 09 4a 50 09 57 52 49 54 45 09 09 3b 20 0d 0a 0d 0a 3f 4c 49 53 54 53 3a 09 4a 50 ┆RITE: JP WRITE ; ?LISTS: JP┆ 0x0c40…0c60 09 4c 49 53 54 53 54 09 09 3b 20 0d 0a 3f 53 43 54 52 4e 3a 09 4a 50 09 53 45 43 54 52 4e 09 09 ┆ LISTST ; ?SCTRN: JP SECTRN ┆ 0x0c60…0c80 3b 20 0d 0a 0d 0a 3f 43 4f 4e 4f 53 3a 09 4a 50 09 43 4f 4e 4f 53 54 09 09 3b 20 0d 0a 3f 41 55 ┆; ?CONOS: JP CONOST ; ?AU┆ 0x0c80…0ca0 58 49 53 3a 09 4a 50 09 41 55 58 49 53 54 09 09 3b 20 0d 0a 3f 41 55 58 4f 53 3a 09 4a 50 09 41 ┆XIS: JP AUXIST ; ?AUXOS: JP A┆ 0x0ca0…0cc0 55 58 4f 53 54 09 09 3b 20 0d 0a 3f 44 56 54 42 4c 3a 09 4a 50 09 44 45 56 54 42 4c 09 09 3b 20 ┆UXOST ; ?DVTBL: JP DEVTBL ; ┆ 0x0cc0…0ce0 0d 0a 3f 44 45 56 49 4e 3a 09 4a 50 09 3f 43 49 4e 49 54 09 09 3b 20 49 4e 20 43 48 41 52 49 4f ┆ ?DEVIN: JP ?CINIT ; IN CHARIO┆ 0x0ce0…0d00 2e 5a 38 30 0d 0a 0d 0a 3f 44 52 54 42 4c 3a 09 4a 50 09 47 45 54 44 52 56 09 09 3b 20 0d 0a 3f ┆.Z80 ?DRTBL: JP GETDRV ; ?┆ 0x0d00…0d20 4d 4c 54 49 4f 3a 09 4a 50 09 4d 55 4c 54 49 4f 09 09 3b 20 0d 0a 3f 46 4c 55 53 48 3a 09 4a 50 ┆MLTIO: JP MULTIO ; ?FLUSH: JP┆ 0x0d20…0d40 09 46 4c 55 53 48 09 09 3b 20 0d 0a 0d 0a 3f 4d 4f 56 3a 09 4a 50 09 3f 4d 4f 56 45 09 09 3b 20 ┆ FLUSH ; ?MOV: JP ?MOVE ; ┆ 0x0d40…0d60 0d 0a 3f 54 49 4d 3a 09 4a 50 09 52 45 54 55 52 4e 09 09 3b 20 4e 4f 54 20 49 4e 53 54 41 4c 4c ┆ ?TIM: JP RETURN ; NOT INSTALL┆ 0x0d60…0d80 45 44 0d 0a 3f 42 4e 4b 53 4c 3a 09 4a 50 09 42 4e 4b 53 45 4c 09 09 3b 20 0d 0a 3f 53 54 42 4e ┆ED ?BNKSL: JP BNKSEL ; ?STBN┆ 0x0d80…0da0 4b 3a 09 4a 50 09 53 45 54 42 4e 4b 09 09 3b 20 0d 0a 3f 58 4d 4f 56 3a 09 4a 50 09 3f 58 4d 4f ┆K: JP SETBNK ; ?XMOV: JP ?XMO┆ 0x0da0…0dc0 56 45 09 09 3b 20 0d 0a 0d 0a 09 4a 50 09 3f 55 53 45 52 46 09 09 3b 20 49 4e 20 45 58 54 4d 45 ┆VE ; JP ?USERF ; IN EXTME┆ 0x0dc0…0de0 4d 2e 5a 38 30 0d 0a 09 4a 50 09 52 45 54 55 52 4e 09 09 3b 20 0d 0a 09 4a 50 09 52 45 54 55 52 ┆M.Z80 JP RETURN ; JP RETUR┆ 0x0de0…0e00 4e 09 09 3b 20 0d 0a 09 4e 4f 50 09 09 09 3b 20 47 49 56 45 20 43 4f 52 52 45 43 54 20 53 54 41 ┆N ; NOP ; GIVE CORRECT STA┆ 0x0e00…0e20 52 54 20 46 4f 52 20 49 4e 54 2e 56 45 43 54 4f 52 53 2e 0d 0a 09 50 41 47 45 0d 0a 3b 2a 2a 2a ┆RT FOR INT.VECTORS. PAGE ;***┆ 0x0e20…0e40 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 ┆********************************┆ 0x0e40…0e60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 09 09 20 20 49 ┆*********************** ;* I┆ 0x0e60…0e80 4e 54 45 52 52 55 50 54 20 56 45 43 54 4f 52 53 09 09 09 20 20 2a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a ┆NTERRUPT VECTORS * ;*******┆ 0x0e80…0ea0 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 ┆********************************┆ 0x0ea0…0ec0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 49 4e 54 56 45 43 54 09 45 51 55 ┆******************* INTVECT EQU┆ 0x0ec0…0ee0 09 24 09 09 09 3b 20 49 4e 54 45 52 52 55 50 54 20 56 45 43 54 4f 52 20 41 44 44 52 45 53 53 0d ┆ $ ; INTERRUPT VECTOR ADDRESS ┆ 0x0ee0…0f00 0a 0d 0a 50 49 4f 49 52 56 09 45 51 55 09 24 09 09 09 3b 20 50 49 4f 20 42 41 53 45 20 49 4e 54 ┆ PIOIRV EQU $ ; PIO BASE INT┆ 0x0f00…0f20 45 52 52 55 50 54 20 56 45 43 54 4f 52 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 0d 0a 09 44 45 ┆ERRUPT VECTOR DEFW UNKINT DE┆ 0x0f20…0f40 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 50 49 4f 20 50 4f 52 54 20 42 20 0d 0a 0d 0a 43 54 43 ┆FW UNKINT ; PIO PORT B CTC┆ 0x0f40…0f60 49 52 56 09 45 51 55 09 24 09 09 09 3b 20 43 54 43 20 42 41 53 45 20 49 4e 54 45 52 52 55 50 54 ┆IRV EQU $ ; CTC BASE INTERRUPT┆ 0x0f60…0f80 20 56 45 4b 54 4f 52 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 ┆ VEKTOR DEFW UNKINT ; DEF┆ 0x0f80…0fa0 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 ┆W UNKINT ; DEFW UNKINT ; ┆ 0x0fa0…0fc0 0d 0a 09 44 45 46 57 09 43 4c 4b 49 52 51 09 09 09 3b 20 28 31 30 20 48 7a 20 54 49 43 4b 29 0d ┆ DEFW CLKIRQ ; (10 Hz TICK) ┆ 0x0fc0…0fe0 0a 0d 0a 53 49 4f 31 49 56 09 45 51 55 09 24 09 09 09 3b 20 53 49 4f 31 20 42 41 53 45 20 49 4e ┆ SIO1IV EQU $ ; SIO1 BASE IN┆ 0x0fe0…1000 54 45 52 52 55 50 54 20 56 45 43 54 4f 52 0d 0a 09 44 45 46 57 09 4b 42 44 49 52 51 09 09 09 3b ┆TERRUPT VECTOR DEFW KBDIRQ ;┆ 0x1000…1020 20 4b 45 59 42 4f 41 52 44 20 49 4e 54 2e 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b ┆ KEYBOARD INT. DEFW UNKINT ;┆ 0x1020…1040 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 ┆ DEFW UNKINT ; DEFW UNKI┆ 0x1040…1060 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 ┆NT ; DEFW UNKINT ; DEF┆ 0x1060…1080 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 ┆W UNKINT ; DEFW UNKINT ; ┆ 0x1080…10a0 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 0d 0a 53 49 4f 32 49 56 09 45 51 ┆ DEFW UNKINT ; SIO2IV EQ┆ 0x10a0…10c0 55 09 24 09 09 09 3b 20 53 49 4f 32 20 42 41 53 45 20 49 4e 54 45 52 52 55 50 54 20 56 45 43 54 ┆U $ ; SIO2 BASE INTERRUPT VECT┆ 0x10c0…10e0 4f 52 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 57 09 55 4e 4b ┆OR DEFW UNKINT ; DEFW UNK┆ 0x10e0…1100 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 ┆INT ; DEFW UNKINT ; DE┆ 0x1100…1120 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b ┆FW UNKINT ; DEFW UNKINT ;┆ 0x1120…1140 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 ┆ DEFW UNKINT ; DEFW UNKI┆ 0x1140…1160 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 0d 0a 44 4d ┆NT ; DEFW UNKINT ; DM┆ 0x1160…1180 41 49 52 56 09 45 51 55 09 24 09 09 09 3b 20 44 4d 41 20 42 41 53 45 20 49 4e 54 45 52 52 55 50 ┆AIRV EQU $ ; DMA BASE INTERRUP┆ 0x1180…11a0 54 20 56 45 43 54 4f 52 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 ┆T VECTOR DEFW UNKINT ; DE┆ 0x11a0…11c0 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b ┆FW UNKINT ; DEFW UNKINT ;┆ 0x11c0…11e0 20 0d 0a 09 44 45 46 57 09 55 4e 4b 49 4e 54 09 09 09 3b 20 0d 0a 09 50 41 47 45 0d 0a 0d 0a 3b ┆ DEFW UNKINT ; PAGE ;┆ 0x11e0…1200 0d 0a 09 43 53 45 47 09 09 09 3b 20 42 41 4e 4b 20 31 2e 0d 0a 0d 0a 42 4f 4f 54 24 31 3a 0d 0a ┆ CSEG ; BANK 1. BOOT$1: ┆ 0x1200…1220 09 43 41 4c 4c 09 53 45 54 24 4a 55 4d 50 53 09 3b 20 53 45 54 20 4a 55 4d 50 56 45 43 54 4f 52 ┆ CALL SET$JUMPS ; SET JUMPVECTOR┆ 0x1220…1240 53 0d 0a 09 43 41 4c 4c 09 3f 4c 44 43 43 50 09 09 3b 20 52 45 41 44 20 43 43 50 2e 43 4f 4d 20 ┆S CALL ?LDCCP ; READ CCP.COM ┆ 0x1240…1260 46 52 4f 4d 20 44 49 53 4b 0d 0a 09 4a 50 09 43 43 50 09 09 3b 20 0d 0a 0d 0a 09 3b 20 57 42 4f ┆FROM DISK JP CCP ; ; WBO┆ 0x1260…1280 4f 54 0d 0a 0d 0a 57 42 4f 4f 54 3a 0d 0a 09 4c 44 09 53 50 2c 42 4f 4f 54 24 53 54 41 43 4b 0d ┆OT WBOOT: LD SP,BOOT$STACK ┆ 0x1280…12a0 0a 09 43 41 4c 4c 09 53 45 54 24 4a 55 4d 50 53 09 3b 20 49 4e 49 54 20 50 41 47 45 20 5a 45 52 ┆ CALL SET$JUMPS ; INIT PAGE ZER┆ 0x12a0…12c0 4f 0d 0a 09 43 41 4c 4c 09 3f 52 4c 43 43 50 09 09 3b 20 52 45 52 45 41 44 20 43 43 50 2e 43 4f ┆O CALL ?RLCCP ; REREAD CCP.CO┆ 0x12c0…12e0 4d 0d 0a 09 4a 50 09 43 43 50 09 09 3b 20 0d 0a 0d 0a 53 45 54 24 4a 55 4d 50 53 3a 0d 0a 09 4c ┆M JP CCP ; SET$JUMPS: L┆ 0x12e0…1300 44 09 41 2c 31 09 09 3b 20 53 45 4c 45 43 54 20 42 41 4e 4b 20 31 0d 0a 09 43 41 4c 4c 09 3f 42 ┆D A,1 ; SELECT BANK 1 CALL ?B┆ 0x1300…1320 4e 4b 53 4c 0d 0a 09 4c 44 09 41 2c 4a 50 4f 50 09 09 3b 20 5a 38 30 20 4a 50 20 4f 50 43 4f 44 ┆NKSL LD A,JPOP ; Z80 JP OPCOD┆ 0x1320…1340 45 0d 0a 09 4c 44 09 48 4c 2c 3f 57 42 4f 4f 54 09 3b 20 57 41 52 4d 20 42 4f 4f 54 20 45 4e 54 ┆E LD HL,?WBOOT ; WARM BOOT ENT┆ 0x1340…1360 52 59 20 50 4f 49 4e 54 0d 0a 09 4c 44 09 28 30 29 2c 41 09 09 3b 20 42 49 4f 53 20 57 41 52 4d ┆RY POINT LD (0),A ; BIOS WARM┆ 0x1360…1380 20 53 54 41 52 54 20 45 4e 54 52 59 0d 0a 09 4c 44 09 28 31 29 2c 48 4c 0d 0a 09 4c 44 09 48 4c ┆ START ENTRY LD (1),HL LD HL┆ 0x1380…13a0 2c 28 40 4d 58 54 50 41 29 09 3b 20 42 44 4f 53 20 45 4e 54 52 59 20 50 4f 49 4e 54 0d 0a 09 4c ┆,(@MXTPA) ; BDOS ENTRY POINT L┆ 0x13a0…13c0 44 09 28 35 29 2c 41 0d 0a 09 4c 44 09 28 36 29 2c 48 4c 0d 0a 52 45 54 55 52 4e 3a 09 52 45 54 ┆D (5),A LD (6),HL RETURN: RET┆ 0x13c0…13e0 09 09 09 3b 20 0d 0a 0d 0a 09 44 53 09 36 34 0d 0a 42 4f 4f 54 24 53 54 41 43 4b 09 45 51 55 09 ┆ ; DS 64 BOOT$STACK EQU ┆ 0x13e0…1400 24 0d 0a 0d 0a 3b 20 44 45 56 54 42 4c 20 2d 2d 20 20 52 45 54 55 52 4e 53 20 54 48 45 20 41 44 ┆$ ; DEVTBL -- RETURNS THE AD┆ 0x1400…1420 44 52 45 53 53 20 54 4f 20 43 48 41 52 41 43 54 45 52 20 44 45 56 49 43 45 20 54 41 42 4c 45 0d ┆DRESS TO CHARACTER DEVICE TABLE ┆ 0x1420…1440 0a 0d 0a 44 45 56 54 42 4c 3a 09 4c 44 09 48 4c 2c 40 43 54 42 4c 0d 0a 09 52 45 54 0d 0a 0d 0a ┆ DEVTBL: LD HL,@CTBL RET ┆ 0x1440…1460 3b 20 47 45 54 44 52 56 20 2d 2d 20 20 52 45 54 55 52 4e 53 20 54 48 45 20 41 44 44 52 45 53 53 ┆; GETDRV -- RETURNS THE ADDRESS┆ 0x1460…1480 20 54 4f 20 44 52 49 56 45 20 54 41 42 4c 45 0d 0a 0d 0a 47 45 54 44 52 56 3a 09 4c 44 09 48 4c ┆ TO DRIVE TABLE GETDRV: LD HL┆ 0x1480…14a0 2c 40 44 54 42 4c 0d 0a 09 52 45 54 0d 0a 09 50 41 47 45 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆,@DTBL RET PAGE ;**********┆ 0x14a0…14c0 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 ┆********************************┆ 0x14c0…14e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 ┆**************** ;* ┆ 0x14e0…1500 20 20 20 43 48 41 52 41 43 54 45 52 20 49 2f 4f 2d 20 52 4f 55 54 49 4e 45 53 20 20 20 20 20 20 ┆ CHARACTER I/O- ROUTINES ┆ 0x1500…1520 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * ;****************┆ 0x1520…1540 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 ┆********************************┆ 0x1540…1560 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 3b 20 43 4f 4e 4f 55 54 20 2d 2d 20 43 4f 4e 53 4f 4c ┆********** ; CONOUT -- CONSOL┆ 0x1560…1580 45 20 4f 55 54 50 55 54 2e 20 20 53 45 4e 44 53 20 43 48 41 52 20 49 4e 20 28 43 29 20 54 4f 20 ┆E OUTPUT. SENDS CHAR IN (C) TO ┆ 0x1580…15a0 41 4c 4c 0d 0a 3b 20 09 20 20 20 20 43 48 4f 4f 53 45 4e 20 44 45 56 49 43 45 53 2e 0d 0a 0d 0a ┆ALL ; CHOOSEN DEVICES. ┆ 0x15a0…15c0 43 4f 4e 4f 55 54 3a 09 4c 44 09 48 4c 2c 28 40 43 4f 56 45 43 29 09 3b 20 47 45 54 20 43 4f 4e ┆CONOUT: LD HL,(@COVEC) ; GET CON┆ 0x15c0…15e0 53 4f 4c 45 20 4f 55 54 50 55 54 20 42 49 54 20 56 45 43 54 4f 52 0d 0a 09 4a 52 09 4f 55 54 24 ┆SOLE OUTPUT BIT VECTOR JR OUT$┆ 0x15e0…1600 53 43 41 4e 0d 0a 0d 0a 0d 0a 3b 20 41 55 58 4f 55 54 20 2d 2d 20 20 41 55 58 49 4c 4c 49 41 52 ┆SCAN ; AUXOUT -- AUXILLIAR┆ 0x1600…1620 59 20 4f 55 54 50 55 54 2e 20 20 53 45 4e 53 20 43 48 41 52 20 49 4e 20 28 43 29 20 54 4f 20 41 ┆Y OUTPUT. SENS CHAR IN (C) TO A┆ 0x1620…1640 4c 4c 0d 0a 3b 20 09 20 20 20 20 20 43 48 4f 4f 53 45 4e 20 44 45 56 49 43 45 53 2e 0d 0a 0d 0a ┆LL ; CHOOSEN DEVICES. ┆ 0x1640…1660 41 55 58 4f 55 54 3a 09 4c 44 09 48 4c 2c 28 40 41 4f 56 45 43 29 09 3b 20 47 45 54 20 41 55 58 ┆AUXOUT: LD HL,(@AOVEC) ; GET AUX┆ 0x1660…1680 20 4f 55 54 50 55 54 20 42 49 54 20 56 45 43 54 4f 52 0d 0a 09 4a 52 09 4f 55 54 24 53 43 41 4e ┆ OUTPUT BIT VECTOR JR OUT$SCAN┆ 0x1680…16a0 0d 0a 0d 0a 0d 0a 3b 20 4c 49 53 54 20 2d 2d 20 4c 49 53 54 20 4f 55 54 50 55 54 2e 20 20 53 45 ┆ ; LIST -- LIST OUTPUT. SE┆ 0x16a0…16c0 4e 44 53 20 43 48 41 52 20 49 4e 20 28 43 29 20 54 4f 20 41 4c 4c 0d 0a 3b 20 09 20 20 43 48 4f ┆NDS CHAR IN (C) TO ALL ; CHO┆ 0x16c0…16e0 4f 53 45 4e 20 44 45 56 49 43 45 53 2e 0d 0a 0d 0a 4c 49 53 54 3a 09 4c 44 09 48 4c 2c 28 40 4c ┆OSEN DEVICES. LIST: LD HL,(@L┆ 0x16e0…1700 4f 56 45 43 29 09 3b 20 47 45 54 20 4c 49 53 54 20 4f 55 54 50 55 54 20 42 49 54 20 56 45 43 54 ┆OVEC) ; GET LIST OUTPUT BIT VECT┆ 0x1700…1720 4f 52 0d 0a 09 09 09 09 3b 20 41 4e 44 20 44 4f 20 4f 55 54 24 53 43 41 4e 0d 0a 0d 0a 4f 55 54 ┆OR ; AND DO OUT$SCAN OUT┆ 0x1720…1740 24 53 43 41 4e 3a 0d 0a 09 4c 44 09 42 2c 30 09 09 3b 20 53 54 41 52 54 20 57 49 54 48 20 44 45 ┆$SCAN: LD B,0 ; START WITH DE┆ 0x1740…1760 56 49 43 45 20 30 2e 0d 0a 43 4f 24 4e 45 58 54 3a 0d 0a 09 41 44 44 09 48 4c 2c 48 4c 09 09 3b ┆VICE 0. CO$NEXT: ADD HL,HL ;┆ 0x1760…1780 20 53 48 49 46 54 20 4e 45 58 54 20 42 49 54 20 42 49 54 0d 0a 09 4a 52 09 4e 43 2c 4e 4f 24 4f ┆ SHIFT NEXT BIT BIT JR NC,NO$O┆ 0x1780…17a0 55 54 24 44 45 56 09 3b 20 4a 55 4d 50 20 49 46 20 4e 4f 20 43 41 52 52 59 0d 0a 09 50 55 53 48 ┆UT$DEV ; JUMP IF NO CARRY PUSH┆ 0x17a0…17c0 09 48 4c 09 09 3b 20 53 41 56 45 20 54 48 45 20 56 45 43 54 4f 52 20 41 4e 44 0d 0a 09 50 55 53 ┆ HL ; SAVE THE VECTOR AND PUS┆ 0x17c0…17e0 48 09 42 43 09 09 3b 20 43 4f 55 4e 54 45 52 20 41 4e 44 20 43 48 41 52 2e 0d 0a 43 4f 24 4f 55 ┆H BC ; COUNTER AND CHAR. CO$OU┆ 0x17e0…1800 54 24 52 44 59 3a 0d 0a 09 43 41 4c 4c 09 43 4f 53 54 45 52 0d 0a 09 4f 52 09 41 09 09 3b 20 52 ┆T$RDY: CALL COSTER OR A ; R┆ 0x1800…1820 45 41 44 59 20 3f 0d 0a 09 4a 52 09 5a 2c 43 4f 24 4f 55 54 24 52 44 59 09 3b 20 4e 4f 2e 2e 2e ┆EADY ? JR Z,CO$OUT$RDY ; NO...┆ 0x1820…1840 4a 55 4d 50 0d 0a 09 50 4f 50 09 42 43 09 09 3b 20 42 3d 43 4f 55 4e 54 45 52 20 43 3d 43 48 41 ┆JUMP POP BC ; B=COUNTER C=CHA┆ 0x1840…1860 52 0d 0a 09 50 55 53 48 09 42 43 09 09 3b 20 53 41 56 45 0d 0a 09 43 41 4c 4c 09 3f 43 4f 09 09 ┆R PUSH BC ; SAVE CALL ?CO ┆ 0x1860…1880 3b 20 53 45 4e 44 20 43 48 41 52 20 49 46 20 44 45 56 49 43 45 20 49 53 20 43 48 4f 4f 53 45 4e ┆; SEND CHAR IF DEVICE IS CHOOSEN┆ 0x1880…18a0 0d 0a 09 50 4f 50 09 42 43 09 09 3b 20 42 3d 43 4f 55 4e 54 45 52 20 43 3d 43 48 41 52 0d 0a 09 ┆ POP BC ; B=COUNTER C=CHAR ┆ 0x18a0…18c0 50 4f 50 09 48 4c 09 09 3b 20 42 49 54 20 56 45 43 54 4f 52 0d 0a 4e 4f 24 4f 55 54 24 44 45 56 ┆POP HL ; BIT VECTOR NO$OUT$DEV┆ 0x18c0…18e0 3a 0d 0a 09 49 4e 43 09 42 09 09 3b 20 4e 45 58 54 20 44 45 56 49 43 45 20 23 0d 0a 09 4c 44 09 ┆: INC B ; NEXT DEVICE # LD ┆ 0x18e0…1900 41 2c 48 09 09 3b 20 54 45 53 54 20 49 46 20 41 4e 59 20 44 45 56 49 43 45 53 20 4c 45 46 54 0d ┆A,H ; TEST IF ANY DEVICES LEFT ┆ 0x1900…1920 0a 09 4f 52 09 4c 0d 0a 09 4a 52 09 4e 5a 2c 43 4f 24 4e 45 58 54 09 3b 20 59 45 53 2e 2e 2e 4a ┆ OR L JR NZ,CO$NEXT ; YES...J┆ […truncated at 200 lines…]