|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 49152 (0xc000)
Names: »CHARIO.Z80«
└─⟦21f5a1bd4⟧ Bits:30003500 CP/M Plus (tm) Version 3.0 BIOS Revision F
└─ ⟦this⟧ »CHARIO.Z80«
└─⟦67f37b9ce⟧ Bits:30003503 JET80/W20FT systemdisk
└─ ⟦this⟧ »CHARIO.Z80«
0x0000…0020 09 54 69 74 6c 65 09 43 68 61 72 69 6f 2e 5a 38 30 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ Title Chario.Z80 ;------------┆ 0x0020…0040 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 ┆--------------------------------┆ 0x0040…0060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 3b 20 54 68 69 73 20 6d 6f 64 75 6c 65 ┆----------------; ; This module┆ 0x0060…0080 20 74 61 6b 65 73 20 63 61 72 65 20 6f 66 20 61 6c 6c 20 63 68 61 72 61 63 74 65 72 20 49 2f 4f ┆ takes care of all character I/O┆ 0x0080…00a0 20 66 75 6e 63 74 69 6f 6e 73 20 66 6f 72 20 20 3b 0d 0a 3b 20 43 50 2f 4d 20 33 2e 30 20 2e 20 ┆ functions for ; ; CP/M 3.0 . ┆ 0x00a0…00c0 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 20 20 20 20 20 20 ┆ ┆ 0x00c0…00e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 41 20 74 61 62 6c 65 20 6f 66 20 ┆ ; ; A table of ┆ 0x00e0…0100 64 65 76 69 63 65 20 6e 61 6d 65 73 20 69 73 20 64 65 66 69 6e 65 64 20 74 6f 67 65 74 68 65 72 ┆device names is defined together┆ 0x0100…0120 20 77 69 74 68 20 61 20 64 65 76 69 63 65 20 20 3b 0d 0a 3b 20 68 61 6e 64 6c 65 72 20 74 61 62 ┆ with a device ; ; handler tab┆ 0x0120…0140 6c 65 20 77 69 74 68 20 61 64 64 72 65 73 73 65 73 20 61 6e 64 20 61 6e 64 20 72 6f 75 74 69 6e ┆le with addresses and and routin┆ 0x0140…0160 65 73 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 54 68 65 20 69 6e 74 65 72 72 75 ┆es. ; ; The interru┆ 0x0160…0180 70 74 20 64 72 69 76 65 6e 20 6b 65 79 62 6f 61 72 64 20 61 6e 64 20 61 75 78 2d 69 6e 70 75 74 ┆pt driven keyboard and aux-input┆ 0x0180…01a0 20 72 6f 75 74 69 6e 65 20 69 73 20 20 20 20 20 3b 0d 0a 3b 20 68 65 72 65 2e 20 20 20 20 20 20 ┆ routine is ; ; here. ┆ 0x01a0…01c0 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 20 20 20 20 20 20 ┆ ┆ 0x01c0…01e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 54 68 65 20 67 6c 6f 62 61 6c 20 ┆ ; ; The global ┆ 0x01e0…0200 73 75 62 72 6f 75 74 69 6e 65 20 27 49 6e 69 53 74 6d 27 20 69 73 20 61 6c 73 6f 20 6c 6f 63 61 ┆subroutine 'IniStm' is also loca┆ 0x0200…0220 74 65 64 20 68 65 72 65 2e 20 20 20 20 20 20 20 3b 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ted here. ; ;------------┆ 0x0220…0240 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 ┆--------------------------------┆ 0x0240…0260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 3b 20 4c 61 74 65 73 74 20 75 70 64 61 ┆----------------; ; Latest upda┆ 0x0260…0280 74 65 3a 20 31 39 38 35 2d 31 31 2d 31 35 2e 20 50 53 57 0d 0a 3b 20 42 69 6f 73 72 65 76 69 73 ┆te: 1985-11-15. PSW ; Biosrevis┆ 0x0280…02a0 69 6f 6e 3a 20 46 0d 0a 3b 0d 0a 09 2e 5a 38 30 0d 0a 46 61 6c 73 65 09 09 45 71 75 09 30 0d 0a ┆ion: F ; .Z80 False Equ 0 ┆ 0x02a0…02c0 54 72 75 65 09 09 45 71 75 09 4e 6f 74 20 46 61 6c 73 65 0d 0a 4e 65 74 57 6f 72 6b 09 09 45 71 ┆True Equ Not False NetWork Eq┆ 0x02c0…02e0 75 09 46 61 6c 73 65 0d 0a 57 72 6b 53 74 6e 09 09 45 71 75 09 46 61 6c 73 65 0d 0a 0d 0a 0d 0a ┆u False WrkStn Equ False ┆ 0x02e0…0300 47 72 4f 42 75 66 5a 09 09 45 71 75 09 31 09 09 3b 20 47 72 61 70 68 69 63 20 6f 75 74 70 75 74 ┆GrOBufZ Equ 1 ; Graphic output┆ 0x0300…0320 20 62 75 66 66 65 72 20 73 69 7a 65 20 28 31 2d 32 35 35 20 69 73 20 6f 6b 29 0d 0a 0d 0a 09 45 ┆ buffer size (1-255 is ok) E┆ 0x0320…0340 6e 74 72 79 09 3f 43 69 6e 69 74 2c 3f 43 49 2c 3f 43 4f 2c 3f 43 69 53 74 2c 3f 43 6f 53 74 09 ┆ntry ?Cinit,?CI,?CO,?CiSt,?CoSt ┆ 0x0340…0360 3b 20 50 72 6f 63 65 64 75 72 65 73 0d 0a 09 45 6e 74 72 79 09 40 43 54 62 6c 0d 0a 09 45 6e 74 ┆; Procedures Entry @CTbl Ent┆ 0x0360…0380 72 79 09 49 6e 69 53 74 6d 2c 42 61 6e 6b 30 43 61 6c 6c 0d 0a 09 45 6e 74 72 79 09 53 65 74 4c ┆ry IniStm,Bank0Call Entry SetL┆ 0x0380…03a0 70 74 42 75 66 66 2c 55 46 75 6e 63 0d 0a 0d 0a 09 45 6e 74 72 79 09 4b 62 64 49 72 71 2c 55 6e ┆ptBuff,UFunc Entry KbdIrq,Un┆ 0x03a0…03c0 6b 49 6e 74 2c 4c 70 74 49 72 71 09 09 3b 20 49 6e 74 65 72 72 75 70 74 73 0d 0a 09 45 6e 74 72 ┆kInt,LptIrq ; Interrupts Entr┆ 0x03c0…03e0 79 09 4b 62 64 45 72 52 71 2c 4c 70 74 45 72 52 71 2c 43 6c 6b 49 72 71 0d 0a 0d 0a 09 49 66 09 ┆y KbdErRq,LptErRq,ClkIrq If ┆ 0x03e0…0400 4e 6f 74 20 57 72 6b 53 74 6e 0d 0a 09 45 6e 74 72 79 09 50 69 6f 47 41 49 2c 50 69 6f 47 42 49 ┆Not WrkStn Entry PioGAI,PioGBI┆ 0x0400…0420 0d 0a 0d 0a 09 45 6e 74 72 79 09 50 49 41 56 65 63 2c 50 49 42 56 65 63 09 09 09 3b 20 54 61 62 ┆ Entry PIAVec,PIBVec ; Tab┆ 0x0420…0440 6c 65 20 70 61 72 61 6d 74 65 72 73 0d 0a 09 45 6e 64 69 66 0d 0a 0d 0a 09 45 6e 74 72 79 09 53 ┆le paramters Endif Entry S┆ 0x0440…0460 49 4f 56 65 63 2c 43 54 43 30 56 65 63 2c 43 54 43 31 56 65 63 2c 52 65 73 74 54 62 6c 0d 0a 0d ┆IOVec,CTC0Vec,CTC1Vec,RestTbl ┆ 0x0460…0480 0a 09 45 78 74 72 6e 09 42 6e 6b 4d 73 6b 2c 4d 75 78 42 79 74 65 2c 45 78 74 4d 63 6c 2c 40 4c ┆ Extrn BnkMsk,MuxByte,ExtMcl,@L┆ 0x0480…04a0 6f 56 65 63 0d 0a 09 45 78 74 72 6e 09 3f 50 4d 73 67 2c 40 46 78 2c 40 43 6f 6e 4d 64 2c 40 51 ┆oVec Extrn ?PMsg,@Fx,@ConMd,@Q┆ 0x04a0…04c0 75 65 46 6c 2c 40 43 42 6e 6b 2c 3f 42 6e 6b 53 6c 2c 40 53 65 63 0d 0a 09 45 78 74 72 6e 09 53 ┆ueFl,@CBnk,?BnkSl,@Sec Extrn S┆ 0x04c0…04e0 74 61 63 6b 31 2c 53 74 53 61 76 31 2c 3f 4d 6f 76 2c 3f 58 4d 6f 76 0d 0a 09 50 61 67 65 09 36 ┆tack1,StSav1,?Mov,?XMov Page 6┆ 0x04e0…0500 36 0d 0a 0d 0a 3b 20 50 6f 72 74 20 61 64 64 72 65 73 73 65 73 3a 0d 0a 09 49 66 09 57 72 6b 53 ┆6 ; Port addresses: If WrkS┆ 0x0500…0520 74 6e 0d 0a 53 69 6f 31 41 44 09 09 45 71 75 09 30 45 30 68 09 09 3b 20 4d 4f 44 45 4d 2f 50 52 ┆tn Sio1AD Equ 0E0h ; MODEM/PR┆ 0x0520…0540 49 4e 54 45 52 20 2d 20 44 41 54 41 0d 0a 09 45 6c 73 65 0d 0a 53 69 6f 31 41 44 09 09 45 71 75 ┆INTER - DATA Else Sio1AD Equ┆ 0x0540…0560 09 30 09 09 3b 20 4d 4f 44 45 4d 2f 50 52 49 4e 54 45 52 20 2d 20 44 41 54 41 0d 0a 09 45 6e 64 ┆ 0 ; MODEM/PRINTER - DATA End┆ 0x0560…0580 69 66 0d 0a 53 69 6f 31 41 43 09 09 45 71 75 09 53 69 6f 31 41 44 2b 31 09 3b 20 4d 4f 44 45 4d ┆if Sio1AC Equ Sio1AD+1 ; MODEM┆ 0x0580…05a0 2f 50 52 49 4e 54 45 52 20 2d 20 43 4f 4e 54 52 4f 4c 2f 53 54 41 54 55 53 0d 0a 53 69 6f 31 42 ┆/PRINTER - CONTROL/STATUS Sio1B┆ 0x05a0…05c0 44 09 09 45 71 75 09 53 69 6f 31 41 44 2b 32 09 3b 20 56 32 34 2c 54 45 52 4d 49 4e 41 4c 20 2d ┆D Equ Sio1AD+2 ; V24,TERMINAL -┆ 0x05c0…05e0 20 44 41 54 41 0d 0a 53 69 6f 31 42 43 09 09 45 71 75 09 53 69 6f 31 41 44 2b 33 09 3b 20 56 32 ┆ DATA Sio1BC Equ Sio1AD+3 ; V2┆ 0x05e0…0600 34 2c 54 45 52 4d 49 4e 41 4c 20 2d 20 43 4f 4e 54 52 4f 4c 2f 53 54 41 54 55 53 0d 0a 0d 0a 0d ┆4,TERMINAL - CONTROL/STATUS ┆ 0x0600…0620 0a 09 09 09 09 09 3b 20 53 55 50 50 4f 52 54 45 44 20 57 49 54 48 20 31 2c 32 32 38 2c 38 30 30 ┆ ; SUPPORTED WITH 1,228,800┆ 0x0620…0640 20 48 7a 0d 0a 09 49 66 09 57 72 6b 53 74 6e 0d 0a 43 74 63 30 09 09 45 71 75 09 30 45 38 68 09 ┆ Hz If WrkStn Ctc0 Equ 0E8h ┆ 0x0640…0660 09 3b 20 43 74 63 20 43 48 41 4e 20 30 20 2d 20 42 41 55 44 52 41 54 45 20 53 69 6f 31 41 2f 54 ┆ ; Ctc CHAN 0 - BAUDRATE Sio1A/T┆ 0x0660…0680 49 4d 45 52 0d 0a 09 45 6c 73 65 0d 0a 43 74 63 30 09 09 45 71 75 09 38 09 09 3b 20 43 74 63 20 ┆IMER Else Ctc0 Equ 8 ; Ctc ┆ 0x0680…06a0 43 48 41 4e 20 30 20 2d 20 42 41 55 44 52 41 54 45 20 53 69 6f 31 41 2f 54 49 4d 45 52 0d 0a 09 ┆CHAN 0 - BAUDRATE Sio1A/TIMER ┆ 0x06a0…06c0 45 6e 64 69 66 0d 0a 43 74 63 31 09 09 45 71 75 09 43 74 63 30 2b 31 09 09 3b 20 43 74 63 20 43 ┆Endif Ctc1 Equ Ctc0+1 ; Ctc C┆ 0x06c0…06e0 48 41 4e 20 31 20 2d 20 42 41 55 44 52 41 54 45 20 53 69 6f 31 42 2f 54 49 4d 45 52 0d 0a 43 74 ┆HAN 1 - BAUDRATE Sio1B/TIMER Ct┆ 0x06e0…0700 63 32 09 09 45 71 75 09 43 74 63 30 2b 32 09 09 3b 20 43 74 63 20 43 48 41 4e 20 32 20 2d 20 54 ┆c2 Equ Ctc0+2 ; Ctc CHAN 2 - T┆ 0x0700…0720 49 4d 45 52 20 54 4f 20 43 74 63 33 20 28 48 41 4c 56 45 44 29 0d 0a 43 74 63 33 09 09 45 71 75 ┆IMER TO Ctc3 (HALVED) Ctc3 Equ┆ 0x0720…0740 09 43 74 63 30 2b 33 09 09 3b 20 43 74 63 20 43 48 41 4e 20 33 20 2d 20 52 45 41 4c 54 49 4d 45 ┆ Ctc0+3 ; Ctc CHAN 3 - REALTIME┆ 0x0740…0760 43 4c 4f 43 4b 2f 43 4f 55 4e 54 45 52 0d 0a 0d 0a 09 49 66 09 4e 6f 74 20 57 72 6b 53 74 6e 09 ┆CLOCK/COUNTER If Not WrkStn ┆ 0x0760…0780 09 09 09 09 3b 0d 0a 50 69 6f 41 44 09 09 45 71 75 09 30 43 48 09 09 3b 20 50 69 6f 20 41 20 44 ┆ ; PioAD Equ 0CH ; Pio A D┆ 0x0780…07a0 41 54 41 20 2d 20 43 45 4e 54 52 4f 4e 49 43 53 20 44 41 54 41 0d 0a 50 69 6f 41 43 09 09 45 71 ┆ATA - CENTRONICS DATA PioAC Eq┆ 0x07a0…07c0 75 09 50 69 6f 41 44 2b 31 09 09 3b 20 50 69 6f 20 41 20 43 4f 4e 54 52 4f 4c 20 28 57 52 49 54 ┆u PioAD+1 ; Pio A CONTROL (WRIT┆ 0x07c0…07e0 45 20 4f 4e 4c 59 29 0d 0a 50 69 6f 42 44 20 09 09 45 71 75 09 50 69 6f 41 44 2b 32 09 09 3b 20 ┆E ONLY) PioBD Equ PioAD+2 ; ┆ 0x07e0…0800 50 69 6f 20 42 20 44 41 54 41 20 2d 20 43 45 4e 54 52 4f 4e 49 43 53 20 43 54 52 4c 0d 0a 09 09 ┆Pio B DATA - CENTRONICS CTRL ┆ 0x0800…0820 09 09 09 3b 20 20 20 20 20 20 20 20 20 09 20 20 20 2b 20 4d 4f 44 45 4d 20 43 54 52 4c 0d 0a 09 ┆ ; + MODEM CTRL ┆ 0x0820…0840 09 09 09 09 3b 20 42 49 54 30 20 43 45 4e 2e 20 2a 42 55 53 59 0d 0a 09 09 09 09 09 3b 20 42 49 ┆ ; BIT0 CEN. *BUSY ; BI┆ 0x0840…0860 54 31 20 43 45 4e 2e 20 2a 50 41 50 45 52 20 45 4d 50 54 59 0d 0a 09 09 09 09 09 3b 20 42 49 54 ┆T1 CEN. *PAPER EMPTY ; BIT┆ 0x0860…0880 32 20 43 45 4e 2e 20 2a 53 45 4c 45 43 54 0d 0a 09 09 09 09 09 3b 20 42 49 54 33 20 43 45 4e 2e ┆2 CEN. *SELECT ; BIT3 CEN.┆ 0x0880…08a0 20 2a 46 41 55 4c 54 0d 0a 09 09 09 09 09 3b 20 42 49 54 34 20 43 45 4e 2e 20 2a 53 54 52 4f 42 ┆ *FAULT ; BIT4 CEN. *STROB┆ 0x08a0…08c0 45 0d 0a 09 09 09 09 09 3b 20 42 49 54 35 20 43 45 4e 2e 20 2a 41 43 4b 0d 0a 09 09 09 09 09 3b ┆E ; BIT5 CEN. *ACK ;┆ 0x08c0…08e0 20 42 49 54 36 20 50 69 6f 20 42 55 46 46 45 52 20 44 49 52 45 43 54 49 4f 4e 20 43 48 2e 20 42 ┆ BIT6 Pio BUFFER DIRECTION CH. B┆ 0x08e0…0900 0d 0a 09 09 09 09 09 3b 20 42 49 54 37 20 50 69 6f 20 42 55 46 46 45 52 20 44 49 52 45 43 54 49 ┆ ; BIT7 Pio BUFFER DIRECTI┆ 0x0900…0920 4f 4e 20 43 48 2e 20 41 0d 0a 50 69 6f 42 43 09 09 45 71 75 09 50 69 6f 41 44 2b 33 09 09 3b 20 ┆ON CH. A PioBC Equ PioAD+3 ; ┆ 0x0920…0940 50 69 6f 20 42 20 43 4f 4e 54 52 4f 4c 20 28 57 52 49 54 45 20 4f 4e 4c 59 29 0d 0a 0d 0a 53 70 ┆Pio B CONTROL (WRITE ONLY) Sp┆ 0x0940…0960 6c 69 74 53 77 09 09 45 71 75 09 31 36 48 09 09 3b 20 53 50 4c 49 54 20 53 50 45 45 44 20 4f 50 ┆litSw Equ 16H ; SPLIT SPEED OP┆ 0x0960…0980 54 49 4f 4e 0d 0a 42 6e 6b 4d 75 78 09 09 45 71 75 09 31 42 48 0d 0a 0d 0a 0d 0a 50 69 6f 47 41 ┆TION BnkMux Equ 1BH PioGA┆ 0x0980…09a0 44 09 09 45 71 75 09 32 30 48 09 09 3b 20 50 69 6f 20 41 20 47 52 41 50 48 49 43 20 50 4f 52 54 ┆D Equ 20H ; Pio A GRAPHIC PORT┆ 0x09a0…09c0 20 44 41 54 41 20 4f 55 54 20 28 44 49 53 50 4c 41 59 29 0d 0a 50 69 6f 47 41 43 09 09 45 71 75 ┆ DATA OUT (DISPLAY) PioGAC Equ┆ 0x09c0…09e0 09 50 69 6f 47 41 44 2b 31 09 3b 20 50 69 6f 20 41 20 47 52 41 50 48 49 43 20 50 4f 52 54 20 43 ┆ PioGAD+1 ; Pio A GRAPHIC PORT C┆ 0x09e0…0a00 4f 4e 54 52 4f 4c 20 28 57 52 49 54 45 20 4f 4e 4c 59 29 0d 0a 50 69 6f 47 42 44 09 09 45 71 75 ┆ONTROL (WRITE ONLY) PioGBD Equ┆ 0x0a00…0a20 09 50 69 6f 47 41 44 2b 32 09 3b 20 50 69 6f 20 42 20 47 52 41 50 48 49 43 20 50 4f 52 54 20 44 ┆ PioGAD+2 ; Pio B GRAPHIC PORT D┆ 0x0a20…0a40 41 54 41 20 49 4e 20 28 4b 62 64 29 0d 0a 50 69 6f 47 42 43 09 09 45 71 75 09 50 69 6f 47 41 44 ┆ATA IN (Kbd) PioGBC Equ PioGAD┆ 0x0a40…0a60 2b 33 09 3b 20 50 69 6f 20 42 20 47 52 41 50 48 49 43 20 50 4f 52 54 20 43 4f 4e 54 52 4f 4c 20 ┆+3 ; Pio B GRAPHIC PORT CONTROL ┆ 0x0a60…0a80 28 57 52 49 54 45 20 4f 4e 4c 59 29 0d 0a 0d 0a 3b 20 54 77 6f 20 65 78 74 72 61 20 73 65 72 69 ┆(WRITE ONLY) ; Two extra seri┆ 0x0a80…0aa0 61 6c 20 70 6f 72 74 73 2e 20 4e 65 65 64 20 53 49 4f 2d 32 20 62 6f 61 72 64 2c 20 61 64 64 72 ┆al ports. Need SIO-2 board, addr┆ 0x0aa0…0ac0 65 73 73 20 32 38 48 0d 0a 3b 20 4f 6e 6c 79 20 44 54 52 2f 43 54 53 20 68 61 6e 64 73 68 61 6b ┆ess 28H ; Only DTR/CTS handshak┆ 0x0ac0…0ae0 69 6e 67 20 28 20 4e 4f 20 58 4f 4e 2f 58 4f 46 46 20 29 0d 0a 3b 20 4e 6f 74 65 3a 20 4d 6f 76 ┆ing ( NO XON/XOFF ) ; Note: Mov┆ 0x0ae0…0b00 65 20 73 74 72 61 70 20 53 31 32 20 66 72 6f 6d 20 41 20 74 6f 20 43 2c 20 61 6e 64 20 53 31 33 ┆e strap S12 from A to C, and S13┆ 0x0b00…0b20 20 66 72 6f 6d 20 41 20 74 6f 20 43 20 6f 6e 20 53 49 4f 2d 32 20 62 6f 61 72 64 0d 0a 3b 20 20 ┆ from A to C on SIO-2 board ; ┆ 0x0b20…0b40 20 20 20 20 20 66 6f 72 20 63 6f 72 72 65 63 74 20 62 61 75 64 72 61 74 65 2e 0d 0a 0d 0a 4d 53 ┆ for correct baudrate. MS┆ 0x0b40…0b60 69 6f 32 09 09 45 71 75 09 32 38 48 09 09 3b 20 45 58 54 52 41 20 53 69 6f 20 42 4f 41 52 44 0d ┆io2 Equ 28H ; EXTRA Sio BOARD ┆ 0x0b60…0b80 0a 43 74 63 34 09 09 45 71 75 09 4d 53 69 6f 32 0d 0a 43 74 63 35 09 09 45 71 75 09 4d 53 69 6f ┆ Ctc4 Equ MSio2 Ctc5 Equ MSio┆ 0x0b80…0ba0 32 2b 31 0d 0a 53 69 6f 33 41 44 09 09 45 71 75 09 4d 53 69 6f 32 2b 34 09 09 3b 20 56 32 34 2c ┆2+1 Sio3AD Equ MSio2+4 ; V24,┆ 0x0ba0…0bc0 53 45 52 49 45 20 50 52 49 4e 54 45 52 20 31 20 2d 20 44 41 54 41 20 20 20 20 20 20 20 20 20 20 ┆SERIE PRINTER 1 - DATA ┆ 0x0bc0…0be0 0d 0a 53 69 6f 33 41 43 09 09 45 71 75 09 4d 53 69 6f 32 2b 35 09 09 3b 20 56 32 34 2c 53 45 52 ┆ Sio3AC Equ MSio2+5 ; V24,SER┆ 0x0be0…0c00 49 45 20 50 52 49 4e 54 45 52 20 2d 20 43 4f 4e 54 52 4f 4c 2f 53 54 41 54 55 53 0d 0a 53 69 6f ┆IE PRINTER - CONTROL/STATUS Sio┆ 0x0c00…0c20 33 42 44 09 09 45 71 75 09 4d 53 69 6f 32 2b 36 09 09 3b 20 56 32 34 2c 53 45 52 49 45 20 50 52 ┆3BD Equ MSio2+6 ; V24,SERIE PR┆ 0x0c20…0c40 49 4e 54 45 52 20 32 20 2d 20 44 41 54 41 0d 0a 53 69 6f 33 42 43 09 09 45 71 75 09 4d 53 69 6f ┆INTER 2 - DATA Sio3BC Equ MSio┆ 0x0c40…0c60 32 2b 37 09 09 3b 20 56 32 34 2c 53 45 52 49 45 20 50 52 49 4e 54 45 52 20 2d 20 43 4f 4e 54 52 ┆2+7 ; V24,SERIE PRINTER - CONTR┆ 0x0c60…0c80 4f 4c 2f 53 54 41 54 55 53 0d 0a 09 45 6c 73 65 0d 0a 0d 0a 42 6e 6b 4d 75 78 09 09 45 71 75 09 ┆OL/STATUS Else BnkMux Equ ┆ 0x0c80…0ca0 30 46 34 68 0d 0a 0d 0a 09 45 6e 64 69 66 0d 0a 0d 0a 0d 0a 3b 20 53 50 45 43 49 41 4c 20 43 48 ┆0F4h Endif ; SPECIAL CH┆ 0x0ca0…0cc0 41 52 41 43 54 45 52 53 20 41 4e 44 20 43 4f 4e 53 54 41 4e 53 3a 0d 0a 0d 0a 45 6f 66 09 09 45 ┆ARACTERS AND CONSTANS: Eof E┆ 0x0cc0…0ce0 71 75 09 31 41 48 09 09 3b 20 43 50 2f 4d 20 45 4e 44 20 4f 46 20 46 49 4c 45 20 43 48 41 52 20 ┆qu 1AH ; CP/M END OF FILE CHAR ┆ 0x0ce0…0d00 28 5e 5a 29 0d 0a 43 74 72 6c 43 09 09 45 71 75 09 27 43 27 2d 27 40 27 0d 0a 44 74 72 09 09 45 ┆(^Z) CtrlC Equ 'C'-'@' Dtr E┆ 0x0d00…0d20 71 75 09 37 09 09 3b 20 42 49 54 20 37 20 49 4e 20 57 72 35 0d 0a 0d 0a 4d 42 24 49 6e 70 75 74 ┆qu 7 ; BIT 7 IN Wr5 MB$Input┆ 0x0d20…0d40 09 45 71 75 09 30 30 30 30 30 30 30 31 42 09 3b 20 44 45 56 49 43 45 20 48 41 4e 44 4c 45 53 20 ┆ Equ 00000001B ; DEVICE HANDLES ┆ 0x0d40…0d60 49 4e 50 55 54 0d 0a 4d 42 24 4f 75 74 70 75 74 09 45 71 75 09 30 30 30 30 30 30 31 30 42 09 3b ┆INPUT MB$Output Equ 00000010B ;┆ 0x0d60…0d80 20 44 45 56 49 43 45 20 48 41 4e 44 4c 45 53 20 4f 55 54 50 55 54 0d 0a 4d 42 24 49 6e 24 4f 75 ┆ DEVICE HANDLES OUTPUT MB$In$Ou┆ 0x0d80…0da0 74 09 45 71 75 09 4d 42 24 49 6e 70 75 74 2b 4d 42 24 4f 75 74 70 75 74 0d 0a 4d 42 24 53 6f 66 ┆t Equ MB$Input+MB$Output MB$Sof┆ 0x0da0…0dc0 74 42 61 75 64 09 45 71 75 09 30 30 30 30 30 31 30 30 42 09 3b 20 53 4f 46 54 57 41 52 45 20 53 ┆tBaud Equ 00000100B ; SOFTWARE S┆ 0x0dc0…0de0 45 4c 45 43 54 41 42 4c 45 20 42 41 55 44 20 52 41 54 45 0d 0a 4d 42 24 53 65 72 69 61 6c 09 45 ┆ELECTABLE BAUD RATE MB$Serial E┆ 0x0de0…0e00 71 75 09 30 30 30 30 31 30 30 30 42 09 3b 20 44 45 56 49 43 45 20 55 53 45 53 20 50 52 4f 54 4f ┆qu 00001000B ; DEVICE USES PROTO┆ 0x0e00…0e20 43 4f 4c 0d 0a 4d 42 24 58 6f 6e 24 58 6f 66 66 09 45 71 75 09 30 30 30 31 30 30 30 30 42 09 3b ┆COL MB$Xon$Xoff Equ 00010000B ;┆ 0x0e20…0e40 20 58 4f 4e 2f 58 4f 46 46 20 50 52 4f 54 4f 43 4f 4c 20 4f 4e 0d 0a 0d 0a 3b 2d 2d 2d 2d 2d 2d ┆ XON/XOFF PROTOCOL ON ;------┆ 0x0e40…0e60 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 ┆--------------------------------┆ 0x0e60…0e80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 3b 20 46 6c 61 67 73 ┆----------------------; ; Flags┆ 0x0e80…0ea0 20 64 65 66 69 6e 69 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ definition: ┆ 0x0ea0…0ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆ ; ; ┆ 0x0ec0…0ee0 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 20 20 20 20 20 20 ┆ ┆ 0x0ee0…0f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆ ; ; ┆ 0x0f00…0f20 20 20 20 20 20 20 20 20 20 42 79 74 65 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 79 74 65 ┆ Byte0 Byte┆ 0x0f20…0f40 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆1 ; ; ┆ 0x0f40…0f60 20 20 20 20 37 20 36 20 35 20 34 20 33 20 32 20 31 20 30 20 20 20 20 37 20 36 20 35 20 34 20 33 ┆ 7 6 5 4 3 2 1 0 7 6 5 4 3┆ 0x0f60…0f80 20 32 20 31 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆ 2 1 0 ; ; ┆ 0x0f80…0fa0 20 20 20 20 41 20 56 20 49 20 42 20 42 20 42 20 42 20 42 20 20 20 20 44 20 44 20 48 20 2d 20 53 ┆ A V I B B B B B D D H - S┆ 0x0fa0…0fc0 20 53 20 50 20 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆ S P P ; ; ┆ 0x0fc0…0fe0 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 20 20 20 20 20 20 ┆ ┆ 0x0fe0…1000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆ ; ; ┆ 0x1000…1020 20 20 20 20 41 20 3d 20 41 76 61 69 6c 61 62 6c 65 20 66 6f 72 20 6d 6f 64 69 66 69 63 61 74 69 ┆ A = Available for modificati┆ 0x1020…1040 6f 6e 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆ons ; ; ┆ 0x1040…1060 20 20 20 20 56 20 3d 20 55 73 69 6e 67 20 49 6e 69 53 74 6d 2d 56 65 63 74 6f 72 20 69 6e 20 49 ┆ V = Using IniStm-Vector in I┆ 0x1060…1080 6e 69 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆nit ; ; ┆ 0x1080…10a0 20 20 20 20 49 20 3d 20 55 73 69 6e 67 20 49 78 2d 69 6e 64 65 78 20 62 65 66 6f 72 65 20 49 6e ┆ I = Using Ix-index before In┆ 0x10a0…10c0 69 53 74 6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆iStm ; ; ┆ 0x10c0…10e0 20 20 20 20 42 20 3d 20 42 61 75 64 20 72 61 74 65 20 28 30 20 2d 33 31 29 20 69 6e 20 74 61 62 ┆ B = Baud rate (0 -31) in tab┆ 0x10e0…1100 6c 65 20 62 65 6c 6f 77 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆le below ; ; ┆ 0x1100…1120 20 20 20 20 44 20 3d 20 44 61 74 61 20 62 69 74 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D = Data bits ┆ 0x1120…1140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆ ; ; ┆ 0x1140…1160 20 20 20 20 48 20 3d 20 48 61 6e 64 73 68 61 6b 65 20 28 61 75 74 6f 20 65 6e 61 62 6c 65 29 20 ┆ H = Handshake (auto enable) ┆ 0x1160…1180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆ ; ; ┆ 0x1180…11a0 20 20 20 20 53 20 3d 20 53 74 6f 70 20 62 69 74 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ S = Stop bits ┆ 0x11a0…11c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆ ; ; ┆ 0x11c0…11e0 20 20 20 20 50 20 3d 20 50 61 72 69 74 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P = Parity ┆ 0x11e0…1200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 2d 2d 2d 2d 2d 2d ┆ ; ;------┆ 0x1200…1220 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 ┆--------------------------------┆ 0x1220…1240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 3b 20 45 71 75 61 74 ┆----------------------; ; Equat┆ 0x1240…1260 65 73 3a 0d 0a 09 0d 0a 4d 6f 64 69 66 79 59 65 73 09 45 71 75 09 31 30 30 30 30 30 30 30 62 0d ┆es: ModifyYes Equ 10000000b ┆ 0x1260…1280 0a 4d 6f 64 69 66 79 4e 6f 09 45 71 75 09 30 30 30 30 30 30 30 30 62 0d 0a 0d 0a 49 6e 69 53 74 ┆ ModifyNo Equ 00000000b IniSt┆ 0x1280…12a0 6d 59 65 73 09 45 71 75 09 30 31 30 30 30 30 30 30 62 0d 0a 49 6e 69 53 74 6d 4e 6f 09 45 71 75 ┆mYes Equ 01000000b IniStmNo Equ┆ 0x12a0…12c0 09 30 30 30 30 30 30 30 30 62 0d 0a 0d 0a 49 78 59 65 73 09 09 45 71 75 09 30 30 31 30 30 30 30 ┆ 00000000b IxYes Equ 0010000┆ 0x12c0…12e0 30 62 0d 0a 49 78 4e 6f 09 09 45 71 75 09 30 30 30 30 30 30 30 30 62 0d 0a 0d 0a 0d 0a 42 61 75 ┆0b IxNo Equ 00000000b Bau┆ 0x12e0…1300 64 30 09 09 45 71 75 09 30 0d 0a 42 61 75 64 35 30 09 09 45 71 75 09 31 0d 0a 42 61 75 64 37 35 ┆d0 Equ 0 Baud50 Equ 1 Baud75┆ 0x1300…1320 09 09 45 71 75 09 32 0d 0a 42 61 75 64 31 31 30 09 09 45 71 75 09 33 0d 0a 42 61 75 64 31 33 34 ┆ Equ 2 Baud110 Equ 3 Baud134┆ 0x1320…1340 09 09 45 71 75 09 34 0d 0a 42 61 75 64 31 35 30 09 09 45 71 75 09 35 0d 0a 42 61 75 64 33 30 30 ┆ Equ 4 Baud150 Equ 5 Baud300┆ 0x1340…1360 09 09 45 71 75 09 36 0d 0a 42 61 75 64 36 30 30 09 09 45 71 75 09 37 0d 0a 42 61 75 64 31 32 30 ┆ Equ 6 Baud600 Equ 7 Baud120┆ 0x1360…1380 30 09 45 71 75 09 38 0d 0a 42 61 75 64 31 38 30 30 09 45 71 75 09 39 0d 0a 42 61 75 64 32 34 30 ┆0 Equ 8 Baud1800 Equ 9 Baud240┆ 0x1380…13a0 30 09 45 71 75 09 31 30 0d 0a 42 61 75 64 33 36 30 30 09 45 71 75 09 31 31 0d 0a 42 61 75 64 34 ┆0 Equ 10 Baud3600 Equ 11 Baud4┆ 0x13a0…13c0 38 30 30 09 45 71 75 09 31 32 0d 0a 42 61 75 64 37 32 30 30 09 45 71 75 09 31 33 0d 0a 42 61 75 ┆800 Equ 12 Baud7200 Equ 13 Bau┆ 0x13c0…13e0 64 39 36 30 30 09 45 71 75 09 31 34 0d 0a 42 61 75 64 31 39 6b 09 09 45 71 75 09 31 35 0d 0a 42 ┆d9600 Equ 14 Baud19k Equ 15 B┆ 0x13e0…1400 61 75 64 33 38 6b 09 09 45 71 75 09 31 36 0d 0a 42 61 75 64 37 36 6b 09 09 45 71 75 09 31 37 0d ┆aud38k Equ 16 Baud76k Equ 17 ┆ 0x1400…1420 0a 42 61 75 64 37 35 5f 31 32 30 30 09 45 71 75 09 31 38 0d 0a 42 61 75 64 31 32 30 30 5f 37 35 ┆ Baud75_1200 Equ 18 Baud1200_75┆ 0x1420…1440 09 45 71 75 09 31 39 0d 0a 42 61 75 64 41 73 79 6e 63 09 45 71 75 09 32 30 0d 0a 0d 0a 50 61 72 ┆ Equ 19 BaudAsync Equ 20 Par┆ 0x1440…1460 69 74 79 4e 09 09 45 71 75 09 30 30 62 0d 0a 50 61 72 69 74 79 45 09 09 45 71 75 09 31 31 62 0d ┆ityN Equ 00b ParityE Equ 11b ┆ 0x1460…1480 0a 50 61 72 69 74 79 4f 09 09 45 71 75 09 30 31 62 0d 0a 0d 0a 53 74 6f 70 42 31 09 09 45 71 75 ┆ ParityO Equ 01b StopB1 Equ┆ 0x1480…14a0 09 30 31 30 30 62 0d 0a 53 74 6f 70 42 31 5f 35 09 45 71 75 09 31 30 30 30 62 0d 0a 53 74 6f 70 ┆ 0100b StopB1_5 Equ 1000b Stop┆ 0x14a0…14c0 42 32 09 09 45 71 75 09 31 31 30 30 62 0d 0a 0d 0a 48 61 6e 64 53 68 4e 09 09 45 71 75 09 30 30 ┆B2 Equ 1100b HandShN Equ 00┆ 0x14c0…14e0 30 30 30 30 62 0d 0a 48 61 6e 64 53 68 59 09 09 45 71 75 09 31 30 30 30 30 30 62 0d 0a 0d 0a 44 ┆0000b HandShY Equ 100000b D┆ 0x14e0…1500 61 74 61 42 35 09 09 45 71 75 09 30 30 30 30 30 30 30 30 62 0d 0a 44 61 74 61 42 36 09 09 45 71 ┆ataB5 Equ 00000000b DataB6 Eq┆ 0x1500…1520 75 09 31 30 30 30 30 30 30 30 62 0d 0a 44 61 74 61 42 37 09 09 45 71 75 09 30 31 30 30 30 30 30 ┆u 10000000b DataB7 Equ 0100000┆ 0x1520…1540 30 62 0d 0a 44 61 74 61 42 38 09 09 45 71 75 09 31 31 30 30 30 30 30 30 62 0d 0a 09 50 61 67 65 ┆0b DataB8 Equ 11000000b Page┆ 0x1540…1560 0d 0a 09 43 73 65 67 09 09 09 09 3b 20 42 61 6e 6b 30 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ Cseg ; Bank0 ;-----------┆ 0x1560…1580 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 ┆--------------------------------┆ 0x1580…15a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 ┆-----------------; ; ┆ 0x15a0…15c0 20 20 20 20 54 61 62 6c 65 20 66 6f 72 20 64 65 76 69 63 65 73 20 69 6e 20 73 79 73 74 65 6d 2e ┆ Table for devices in system.┆ 0x15c0…15e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; ;-----------┆ 0x15e0…1600 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 ┆--------------------------------┆ 0x1600…1620 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 46 6c 61 67 30 30 3a 09 09 44 62 09 ┆-----------------; Flag00: Db ┆ 0x1620…1640 4d 6f 64 69 66 79 59 65 73 2b 49 6e 69 53 74 6d 59 65 73 2b 49 78 59 65 73 2b 42 61 75 64 39 36 ┆ModifyYes+IniStmYes+IxYes+Baud96┆ 0x1640…1660 30 30 09 3b 20 43 52 54 0d 0a 09 09 44 62 09 44 61 74 61 42 38 2b 48 61 6e 64 53 68 4e 2b 53 74 ┆00 ; CRT Db DataB8+HandShN+St┆ 0x1660…1680 6f 70 42 31 2b 50 61 72 69 74 79 4e 09 09 3b 0d 0a 09 09 44 77 09 56 65 63 53 69 31 42 09 09 09 ┆opB1+ParityN ; Dw VecSi1B ┆ 0x1680…16a0 09 09 3b 0d 0a 09 09 44 62 09 4d 6f 64 69 66 79 59 65 73 2b 49 6e 69 53 74 6d 59 65 73 2b 49 78 ┆ ; Db ModifyYes+IniStmYes+Ix┆ 0x16a0…16c0 59 65 73 2b 42 61 75 64 39 36 30 30 09 3b 20 4c 50 54 0d 0a 09 09 44 62 09 44 61 74 61 42 38 2b ┆Yes+Baud9600 ; LPT Db DataB8+┆ 0x16c0…16e0 48 61 6e 64 53 68 59 2b 53 74 6f 70 42 31 2b 50 61 72 69 74 79 4e 09 09 3b 0d 0a 09 09 44 77 09 ┆HandShY+StopB1+ParityN ; Dw ┆ 0x16e0…1700 56 65 63 53 69 31 41 09 09 09 09 09 3b 0d 0a 09 49 66 09 4e 6f 74 20 57 72 6b 53 74 6e 0d 0a 09 ┆VecSi1A ; If Not WrkStn ┆ 0x1700…1720 09 44 62 09 4d 6f 64 69 66 79 4e 6f 2b 49 6e 69 53 74 6d 59 65 73 2b 49 78 4e 6f 2b 42 61 75 64 ┆ Db ModifyNo+IniStmYes+IxNo+Baud┆ 0x1720…1740 30 09 09 3b 20 43 45 4e 0d 0a 09 09 44 62 09 30 09 09 09 09 09 3b 0d 0a 09 09 44 77 09 56 65 63 ┆0 ; CEN Db 0 ; Dw Vec┆ 0x1740…1760 50 69 6f 09 09 09 09 09 3b 0d 0a 09 09 44 62 09 4d 6f 64 69 66 79 4e 6f 2b 49 6e 69 53 74 6d 59 ┆Pio ; Db ModifyNo+IniStmY┆ 0x1760…1780 65 73 2b 49 78 4e 6f 2b 42 61 75 64 30 09 09 3b 20 47 52 41 50 48 0d 0a 09 09 44 62 09 44 61 74 ┆es+IxNo+Baud0 ; GRAPH Db Dat┆ 0x1780…17a0 61 42 38 2b 48 61 6e 64 53 68 59 2b 53 74 6f 70 42 31 2b 50 61 72 69 74 79 4e 09 09 3b 0d 0a 09 ┆aB8+HandShY+StopB1+ParityN ; ┆ 0x17a0…17c0 09 44 77 09 56 65 63 50 69 6f 47 09 09 09 09 09 3b 0d 0a 09 45 6e 64 69 66 0d 0a 09 49 66 09 4e ┆ Dw VecPioG ; Endif If N┆ 0x17c0…17e0 65 74 57 6f 72 6b 0d 0a 09 09 44 62 09 4d 6f 64 69 66 79 4e 6f 2b 49 6e 69 53 74 6d 4e 6f 2b 49 ┆etWork Db ModifyNo+IniStmNo+I┆ 0x17e0…1800 78 4e 6f 2b 42 61 75 64 30 09 09 3b 20 53 50 4f 4f 4c 0d 0a 09 09 44 62 09 30 09 09 09 09 09 3b ┆xNo+Baud0 ; SPOOL Db 0 ;┆ 0x1800…1820 0d 0a 09 09 44 77 09 30 09 09 09 09 09 3b 0d 0a 09 45 6e 64 69 66 0d 0a 09 49 66 09 4e 6f 74 20 ┆ Dw 0 ; Endif If Not ┆ 0x1820…1840 57 72 6b 53 74 6e 0d 0a 09 09 44 62 09 4d 6f 64 69 66 79 59 65 73 2b 49 6e 69 53 74 6d 59 65 73 ┆WrkStn Db ModifyYes+IniStmYes┆ 0x1840…1860 2b 49 78 59 65 73 2b 42 61 75 64 39 36 30 30 09 3b 20 4c 50 54 31 0d 0a 09 09 44 62 09 44 61 74 ┆+IxYes+Baud9600 ; LPT1 Db Dat┆ 0x1860…1880 61 42 38 2b 48 61 6e 64 53 68 59 2b 53 74 6f 70 42 31 2b 50 61 72 69 74 79 4e 09 09 3b 0d 0a 09 ┆aB8+HandShY+StopB1+ParityN ; ┆ 0x1880…18a0 09 44 77 09 56 65 63 53 69 33 41 09 09 09 09 3b 0d 0a 09 09 44 62 09 4d 6f 64 69 66 79 59 65 73 ┆ Dw VecSi3A ; Db ModifyYes┆ 0x18a0…18c0 2b 49 6e 69 53 74 6d 59 65 73 2b 49 78 59 65 73 2b 42 61 75 64 39 36 30 30 09 3b 20 4c 50 54 32 ┆+IniStmYes+IxYes+Baud9600 ; LPT2┆ 0x18c0…18e0 0d 0a 09 09 44 62 09 44 61 74 61 42 38 2b 48 61 6e 64 53 68 59 2b 53 74 6f 70 42 31 2b 50 61 72 ┆ Db DataB8+HandShY+StopB1+Par┆ 0x18e0…1900 69 74 79 4e 09 09 3b 0d 0a 09 09 44 77 09 56 65 63 53 69 33 42 09 09 09 09 09 3b 0d 0a 09 45 6e ┆ityN ; Dw VecSi3B ; En┆ 0x1900…1920 64 69 66 0d 0a 0d 0a 4d 61 78 44 65 76 09 09 45 71 75 09 28 24 2d 46 6c 61 67 30 30 29 2f 34 0d ┆dif MaxDev Equ ($-Flag00)/4 ┆ […truncated at 200 lines…]