Compucolor.org – Virtual Media

Listing of file='CPMTRM.ASM;01' on disk='vmedia/terminal-sector.ccvf'

### Disk Sector 53 ###
00: 0d 0a 0d 0a 0d 0a 3b 4d 4f 44 45 4d 20 43 4f 4e   ......;MODEM CON
10: 54 52 4f 4c 20 50 41 43 4b 41 47 45 20 20 2d 20   TROL PACKAGE  -
20: 20 20 20 20 20 20 54 45 52 4d 49 4e 41 4c 20 50         TERMINAL P
30: 52 4f 43 45 53 53 4f 52 0d 0a 0d 0a 0d 0a 0d 0a   ROCESSOR........
40: 42 4f 4f 54 20 20 20 20 45 51 55 20 20 20 20 20   BOOT    EQU
50: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   0
60: 3b 53 59 53 54 45 4d 20 57 41 52 4d 20 42 4f 4f   ;SYSTEM WARM BOO
70: 54 0d 0a 42 44 4f 53 20 20 20 20 45 51 55 20 20   T..BDOS    EQU
### Disk Sector 54 ###
00: 20 20 20 35 20 20 20 20 20 20 20 20 20 20 20 20      5
10: 20 20 20 3b 42 44 4f 53 20 45 4e 54 52 59 20 50      ;BDOS ENTRY P
20: 4f 49 4e 54 0d 0a 46 43 42 20 20 20 20 20 45 51   OINT..FCB     EQ
30: 55 20 20 20 20 20 30 35 43 48 20 20 20 20 20 20   U     05CH
40: 20 20 20 20 20 20 3b 46 49 4c 45 20 43 4f 4e 54         ;FILE CONT
50: 52 4f 4c 20 42 4c 4f 43 4b 0d 0a 54 42 55 46 46   ROL BLOCK..TBUFF
60: 20 20 20 45 51 55 20 20 20 20 20 30 38 30 48 20      EQU     080H
70: 20 20 20 20 20 20 20 20 20 20 20 3b 44 49 53 4b              ;DISK
### Disk Sector 55 ###
00: 20 42 55 46 46 45 52 0d 0a 3b 0d 0a 4d 53 54 41    BUFFER..;..MSTA
10: 54 20 20 20 45 51 55 20 20 20 20 20 30 35 48 20   T   EQU     05H
20: 20 20 20 20 20 20 20 20 20 20 20 20 3b 4d 4f 44               ;MOD
30: 45 4d 20 53 54 41 54 55 53 20 50 4f 52 54 0d 0a   EM STATUS PORT..
40: 4d 44 41 54 41 20 20 20 45 51 55 20 20 20 20 20   MDATA   EQU
50: 30 34 48 20 20 20 20 20 20 20 20 20 20 20 20 20   04H
60: 3b 4d 4f 44 45 4d 20 44 41 54 41 20 50 4f 52 54   ;MODEM DATA PORT
70: 0d 0a 4d 41 53 4b 49 20 20 20 45 51 55 20 20 20   ..MASKI   EQU
### Disk Sector 56 ###
00: 20 20 30 32 48 20 20 20 20 20 20 20 20 20 20 20     02H
10: 20 20 3b 4d 4f 44 45 4d 20 49 4e 50 55 54 20 52     ;MODEM INPUT R
20: 45 41 44 59 20 4d 41 53 4b 0d 0a 4d 41 53 4b 4f   EADY MASK..MASKO
30: 20 20 20 45 51 55 20 20 20 20 20 30 31 48 20 20      EQU     01H
40: 20 20 20 20 20 20 20 20 20 20 20 3b 4d 4f 44 45              ;MODE
50: 4d 20 4f 55 54 50 55 54 20 52 45 41 44 59 20 4d   M OUTPUT READY M
60: 41 53 4b 0d 0a 3b 0d 0a 43 54 4c 43 48 20 20 20   ASK..;..CTLCH
70: 45 51 55 20 20 20 20 20 30 30 48 20 20 20 20 20   EQU     00H
### Disk Sector 57 ###
00: 20 20 20 20 20 20 20 20 3b 43 4f 4d 4d 41 4e 44           ;COMMAND
10: 20 4d 4f 44 45 20 43 48 41 52 41 43 54 45 52 20    MODE CHARACTER
20: 28 20 30 20 3d 20 4e 55 4c 4c 20 29 0d 0a 3b 0d   ( 0 = NULL )..;.
30: 0a 20 20 20 20 20 20 20 20 4f 52 47 20 20 20 20   .        ORG
40: 20 30 31 30 30 48 20 20 20 20 20 20 20 20 20 20    0100H
50: 20 3b 47 4f 4f 44 20 46 4f 52 20 43 50 4d 20 54    ;GOOD FOR CPM T
60: 50 41 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20   PA..        JMP
70: 20 20 20 20 53 54 41 52 54 20 20 20 20 20 20 20       START
### Disk Sector 58 ###
00: 20 20 20 20 3b 4e 4f 57 20 47 4f 20 42 45 47 49       ;NOW GO BEGI
10: 4e 0d 0a 53 54 4d 53 47 20 20 20 44 42 20 20 20   N..STMSG   DB
20: 20 20 20 27 3e 3e 20 54 45 52 4d 49 4e 41 4c 20      '>> TERMINAL
30: 50 52 4f 47 52 41 4d 20 2d 20 56 45 52 53 49 4f   PROGRAM - VERSIO
40: 4e 20 32 2e 30 27 2c 31 33 2c 31 30 2c 30 0d 0a   N 2.0',13,10,0..
50: 43 42 55 46 46 20 20 20 44 42 20 20 20 20 20 20   CBUFF   DB
60: 30 30 48 0d 0a 20 20 20 20 20 20 20 20 4f 52 47   00H..        ORG
70: 20 20 20 20 20 30 32 30 30 48 0d 0a 53 54 41 43        0200H..STAC
### Disk Sector 59 ###
00: 4b 20 20 20 44 42 20 20 20 20 20 20 30 0d 0a 3b   K   DB      0..;
10: 0d 0a 53 54 41 52 54 20 20 20 4e 4f 50 20 20 20   ..START   NOP
20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30: 20 20 3b 4d 4f 44 45 4d 20 49 4e 49 54 49 41 4c     ;MODEM INITIAL
40: 49 5a 41 54 49 4f 4e 0d 0a 20 20 20 20 20 20 20   IZATION..
50: 20 4e 4f 50 20 20 20 20 20 20 20 20 20 20 20 20    NOP
60: 20 20 20 20 20 20 20 20 20 3b 54 48 45 20 56 41            ;THE VA
70: 52 49 4f 55 53 20 55 41 52 54 53 20 41 52 45 0d   RIOUS UARTS ARE.
### Disk Sector 60 ###
00: 0a 20 20 20 20 20 20 20 20 4e 4f 50 20 20 20 20   .        NOP
10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20: 20 3b 49 4e 49 54 49 41 4c 49 53 45 44 20 48 45    ;INITIALISED HE
30: 52 45 0d 0a 20 20 20 20 20 20 20 20 4e 4f 50 0d   RE..        NOP.
40: 0a 20 20 20 20 20 20 20 20 4e 4f 50 0d 0a 20 20   .        NOP..
50: 20 20 20 20 20 20 4e 4f 50 0d 0a 3b 0d 0a 20 20         NOP..;..
60: 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 30 31         LHLD    01
70: 48 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 47   H             ;G
### Disk Sector 61 ###
00: 45 54 20 57 41 52 4d 20 42 4f 4f 54 20 41 44 44   ET WARM BOOT ADD
10: 52 45 53 53 20 41 53 20 42 41 53 45 20 4f 46 20   RESS AS BASE OF
20: 42 49 4f 53 20 2b 20 33 0d 0a 20 20 20 20 20 20   BIOS + 3..
30: 20 20 4c 58 49 20 20 20 20 20 44 2c 33 0d 0a 20     LXI     D,3..
40: 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 44          DAD     D
50: 0d 0a 20 20 20 20 20 20 20 20 53 48 4c 44 20 20   ..        SHLD
60: 20 20 43 53 49 4e 2b 31 20 20 20 20 20 20 20 20     CSIN+1
70: 20 20 3b 53 45 54 20 43 4f 4e 53 4f 4c 45 20 53     ;SET CONSOLE S
### Disk Sector 62 ###
00: 54 41 54 55 53 20 43 48 45 43 4b 20 41 44 44 52   TATUS CHECK ADDR
10: 45 53 53 0d 0a 20 20 20 20 20 20 20 20 44 41 44   ESS..        DAD
20: 20 20 20 20 20 44 0d 0a 20 20 20 20 20 20 20 20        D..
30: 53 48 4c 44 20 20 20 20 43 44 49 4e 2b 31 20 20   SHLD    CDIN+1
40: 20 20 20 20 20 20 20 20 3b 53 45 54 20 43 4f 4e           ;SET CON
50: 53 4f 4c 45 20 49 4e 50 55 54 20 41 44 44 52 45   SOLE INPUT ADDRE
60: 53 53 0d 0a 20 20 20 20 20 20 20 20 4c 58 49 20   SS..        LXI
70: 20 20 20 20 48 2c 53 54 4d 53 47 20 20 20 20 20       H,STMSG
### Disk Sector 63 ###
00: 20 20 20 20 3b 53 41 59 20 48 45 4c 4c 4f 0d 0a       ;SAY HELLO..
10: 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20           CALL
20: 50 4d 53 47 0d 0a 20 20 20 20 20 20 20 20 4c 48   PMSG..        LH
30: 4c 44 20 20 20 20 36 20 20 20 20 20 20 20 20 20   LD    6
40: 20 20 20 20 20 20 3b 47 45 54 20 42 44 4f 53 20         ;GET BDOS
50: 41 44 44 52 45 53 53 0d 0a 20 20 20 20 20 20 20   ADDRESS..
60: 20 4c 58 49 20 20 20 20 20 44 2c 2d 39 30 36 48    LXI     D,-906H
70: 20 20 20 20 20 20 20 20 20 3b 42 41 43 4b 20 4f            ;BACK O
### Disk Sector 64 ###
00: 46 46 20 54 4f 20 42 45 47 49 4e 4e 49 4e 47 20   FF TO BEGINNING
10: 4f 46 20 43 43 50 0d 0a 20 20 20 20 20 20 20 20   OF CCP..
20: 44 41 44 20 20 20 20 20 44 0d 0a 20 20 20 20 20   DAD     D..
30: 20 20 20 53 48 4c 44 20 20 20 20 48 49 41 44 44      SHLD    HIADD
40: 52 20 20 20 20 20 20 20 20 20 20 3b 4b 45 45 50   R          ;KEEP
50: 20 54 52 41 43 4b 20 4f 46 20 55 50 50 45 52 20    TRACK OF UPPER
60: 4c 49 4d 49 54 0d 0a 3b 0d 0a 3b 20 20 20 20 20   LIMIT..;..;
70: 20 20 54 48 45 20 4d 41 49 4e 20 4c 4f 4f 50 20     THE MAIN LOOP
### Disk Sector 65 ###
00: 57 48 45 52 45 20 41 4c 4c 20 54 48 45 20 57 4f   WHERE ALL THE WO
10: 52 4b 20 49 53 20 44 4f 4e 45 0d 0a 3b 0d 0a 54   RK IS DONE..;..T
20: 45 52 4d 20 20 20 20 4c 58 49 20 20 20 20 20 53   ERM    LXI     S
30: 50 2c 53 54 41 43 4b 0d 0a 20 20 20 20 20 20 20   P,STACK..
40: 20 58 52 41 20 20 20 20 20 41 0d 0a 20 20 20 20    XRA     A..
50: 20 20 20 20 53 54 41 20 20 20 20 20 4d 4f 44 45       STA     MODE
60: 53 57 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c   SW..        CALL
70: 20 20 20 20 43 43 52 4c 46 0d 0a 20 20 20 20 20       CCRLF..
### Disk Sector 66 ###
00: 20 20 20 43 41 4c 4c 20 20 20 20 4d 4f 44 49 4e      CALL    MODIN
10: 50 20 20 20 20 20 20 20 20 20 20 3b 43 4c 45 41   P          ;CLEA
20: 52 20 54 48 45 20 42 55 46 46 45 52 0d 0a 54 45   R THE BUFFER..TE
30: 52 4d 41 20 20 20 43 41 4c 4c 20 20 20 20 43 53   RMA   CALL    CS
40: 49 4e 20 20 20 20 20 20 20 20 20 20 20 20 3b 57   IN            ;W
50: 41 49 54 20 46 4f 52 20 41 4e 59 20 49 4e 50 55   AIT FOR ANY INPU
60: 54 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20   T..        JNZ
70: 20 20 20 54 45 52 4d 4f 0d 0a 20 20 20 20 20 20      TERMO..
### Disk Sector 67 ###
00: 20 20 43 41 4c 4c 20 20 20 20 42 53 49 4e 0d 0a     CALL    BSIN..
10: 0d 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 20 20 20   .............
20: 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 54 45 52        JNZ     TER
30: 4d 53 0d 0a 0d 0a 20 20 20 20 20 20 20 20 43 41   MS....        CA
40: 4c 4c 20 20 20 20 4d 4f 44 45 4d 53 0d 0a 20 20   LL    MODEMS..
50: 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 54 45         JZ      TE
60: 52 4d 41 0d 0a 54 45 52 4d 49 20 20 20 43 41 4c   RMA..TERMI   CAL
70: 4c 20 20 20 20 4d 4f 44 49 4e 50 20 20 20 20 20   L    MODINP
### Disk Sector 68 ###
00: 20 20 20 20 20 3b 47 45 54 20 4d 4f 44 45 4d 20        ;GET MODEM
10: 49 4e 50 55 54 0d 0a 20 20 20 20 20 20 20 20 4f   INPUT..        O
20: 52 41 20 20 20 20 20 41 20 20 20 20 20 20 20 20   RA     A
30: 20 20 20 20 20 20 20 3b 49 47 4e 4f 52 45 20 4e          ;IGNORE N
40: 55 4c 4c 53 0d 0a 20 20 20 20 20 20 20 20 4a 5a   ULLS..        JZ
50: 20 20 20 20 20 20 54 45 52 4d 41 0d 0a 20 20 20         TERMA..
60: 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 2c 41        MOV     C,A
70: 0d 0a 20 20 20 20 20 20 20 20 4c 44 41 20 20 20   ..        LDA
### Disk Sector 69 ###
00: 20 20 4d 4f 44 45 53 57 20 20 20 20 20 20 20 20     MODESW
10: 20 20 3b 43 48 45 43 4b 20 46 4f 52 20 52 45 43     ;CHECK FOR REC
20: 45 49 56 45 0d 0a 20 20 20 20 20 20 20 20 43 50   EIVE..        CP
30: 49 20 20 20 20 20 32 0d 0a 20 20 20 20 20 20 20   I     2..
40: 20 43 5a 20 20 20 20 20 20 42 44 4f 55 54 20 20    CZ      BDOUT
50: 20 20 20 20 20 20 20 20 20 3b 43 48 41 52 20 54            ;CHAR T
60: 4f 20 42 55 46 46 45 52 0d 0a 20 20 20 20 20 20   O BUFFER..
70: 20 20 43 41 4c 4c 20 20 20 20 43 4f 55 54 20 20     CALL    COUT
### Disk Sector 70 ###
00: 20 20 20 20 20 20 20 20 20 20 3b 4f 55 54 50 55             ;OUTPU
10: 54 20 54 4f 20 43 4f 4e 53 4f 4c 45 0d 0a 20 20   T TO CONSOLE..
20: 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 54 45         JMP     TE
30: 52 4d 41 0d 0a 54 45 52 4d 53 20 20 20 43 41 4c   RMA..TERMS   CAL
40: 4c 20 20 20 20 42 44 49 4e 20 20 20 20 20 20 20   L    BDIN
50: 20 20 20 20 20 3b 47 45 54 20 42 55 46 46 45 52        ;GET BUFFER
60: 20 43 48 41 52 41 43 54 45 52 0d 0a 20 20 20 20    CHARACTER..
70: 20 20 20 20 4a 4d 50 20 20 20 20 20 54 45 52 4d       JMP     TERM
### Disk Sector 71 ###
00: 4f 41 20 20 20 20 20 20 20 20 20 20 3b 53 45 4e   OA          ;SEN
10: 44 20 49 54 20 4f 55 54 0d 0a 54 45 52 4d 4f 20   D IT OUT..TERMO
20: 20 20 43 41 4c 4c 20 20 20 20 43 44 49 4e 20 20     CALL    CDIN
30: 20 20 20 20 20 20 20 20 20 20 3b 47 45 54 20 43             ;GET C
40: 4f 4e 53 4f 4c 45 20 44 41 54 41 20 49 4e 50 55   ONSOLE DATA INPU
50: 54 0d 0a 54 45 52 4d 4f 41 20 20 4d 4f 56 20 20   T..TERMOA  MOV
60: 20 20 20 43 2c 41 0d 0a 20 20 20 20 20 20 20 20      C,A..
70: 43 41 4c 4c 20 20 20 20 4d 4f 44 45 4d 4f 20 20   CALL    MODEMO
### Disk Sector 72 ###
00: 20 20 20 20 20 20 20 20 3b 53 45 4e 44 20 49 54           ;SEND IT
10: 20 4f 55 54 20 4d 4f 44 45 4d 0d 0a 20 20 20 20    OUT MODEM..
20: 20 20 20 20 4c 44 41 20 20 20 20 20 45 43 48 4f       LDA     ECHO
30: 53 57 20 20 20 20 20 20 20 20 20 20 3b 57 41 4e   SW          ;WAN
40: 54 20 54 4f 20 53 45 45 20 57 48 41 54 53 20 47   T TO SEE WHATS G
50: 4f 49 4e 47 20 4f 4e 0d 0a 20 20 20 20 20 20 20   OING ON..
60: 20 41 4e 49 20 20 20 20 20 31 0d 0a 20 20 20 20    ANI     1..
70: 20 20 20 20 43 4e 5a 20 20 20 20 20 43 4f 55 54       CNZ     COUT
### Disk Sector 73 ###
00: 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20   ..        MOV
10: 20 20 41 2c 43 0d 0a 20 20 20 20 20 20 20 20 43     A,C..        C
20: 50 49 20 20 20 20 20 30 44 48 0d 0a 20 20 20 20   PI     0DH..
30: 20 20 20 20 4a 4e 5a 20 20 20 20 20 54 45 52 4d       JNZ     TERM
40: 41 0d 0a 20 20 20 20 20 20 20 20 4c 44 41 20 20   A..        LDA
50: 20 20 20 43 52 4c 46 53 57 20 20 20 20 20 20 20      CRLFSW
60: 20 20 20 3b 41 44 44 20 4c 46 20 49 46 20 43 52      ;ADD LF IF CR
70: 20 26 20 41 55 54 4f 20 4c 46 0d 0a 20 20 20 20    & AUTO LF..
### Disk Sector 74 ###
00: 20 20 20 20 41 4e 49 20 20 20 20 20 31 0d 0a 20       ANI     1..
10: 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 54          JZ      T
20: 45 52 4d 41 0d 0a 20 20 20 20 20 20 20 20 4d 56   ERMA..        MV
30: 49 20 20 20 20 20 41 2c 30 41 48 0d 0a 20 20 20   I     A,0AH..
40: 20 20 20 20 20 4a 4d 50 20 20 20 20 20 54 45 52        JMP     TER
50: 4d 4f 41 0d 0a 3b 0d 0a 4d 4f 44 45 4d 53 20 20   MOA..;..MODEMS
60: 49 4e 20 20 20 20 20 20 4d 53 54 41 54 20 20 20   IN      MSTAT
70: 20 20 20 20 20 20 20 20 3b 47 45 54 20 4d 4f 44           ;GET MOD
### Disk Sector 75 ###
00: 45 4d 20 53 54 41 54 55 53 0d 0a 20 20 20 20 20   EM STATUS..
10: 20 20 20 4e 4f 50 20 20 20 20 20 20 20 20 20 20      NOP
20: 20 20 20 20 20 20 20 20 20 20 20 3b 28 43 4d 41              ;(CMA
30: 20 49 46 20 41 43 54 49 56 45 20 4c 4f 57 29 0d    IF ACTIVE LOW).
40: 0a 4d 52 44 59 31 20 20 20 41 4e 49 20 20 20 20   .MRDY1   ANI
50: 20 4d 41 53 4b 49 20 20 20 20 20 20 20 20 20 20    MASKI
60: 20 3b 4d 41 53 4b 20 46 4f 52 20 52 45 43 45 49    ;MASK FOR RECEI
70: 56 45 20 42 49 54 0d 0a 20 20 20 20 20 20 20 20   VE BIT..
### Disk Sector 76 ###
00: 4d 56 49 20 20 20 20 20 41 2c 30 20 20 20 20 20   MVI     A,0
10: 20 20 20 20 20 20 20 20 3b 41 53 53 55 4d 45 20           ;ASSUME
20: 4e 4f 54 20 52 45 41 44 59 0d 0a 20 20 20 20 20   NOT READY..
30: 20 20 20 52 5a 20 20 20 20 20 20 20 20 20 20 20      RZ
40: 20 20 20 20 20 20 20 20 20 20 20 3b 5a 45 52 4f              ;ZERO
50: 20 46 4c 41 47 20 53 45 54 20 2d 20 4e 4f 54 20    FLAG SET - NOT
60: 52 45 41 44 59 0d 0a 20 20 20 20 20 20 20 20 43   READY..        C
70: 4d 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20   MA
### Disk Sector 77 ###
00: 20 20 20 20 20 20 20 3b 46 46 20 3d 20 52 45 41          ;FF = REA
10: 44 59 20 54 4f 20 43 50 4d 0d 0a 20 20 20 20 20   DY TO CPM..
20: 20 20 20 52 45 54 0d 0a 3b 0d 0a 4d 4f 44 45 4d      RET..;..MODEM
30: 49 20 20 43 41 4c 4c 20 20 20 20 4d 4f 44 45 4d   I  CALL    MODEM
40: 53 20 20 20 20 20 20 20 20 20 20 3b 47 4f 20 47   S          ;GO G
50: 45 54 20 49 4e 50 55 54 20 53 54 41 54 55 53 0d   ET INPUT STATUS.
60: 0a 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20   .        JZ
70: 20 4d 4f 44 45 4d 49 20 20 20 20 20 20 20 20 20    MODEMI
### Disk Sector 78 ###
00: 20 3b 57 41 49 54 20 46 4f 52 20 52 45 50 4c 59    ;WAIT FOR REPLY
10: 0d 0a 4d 4f 44 49 4e 50 20 20 49 4e 20 20 20 20   ..MODINP  IN
20: 20 20 4d 44 41 54 41 20 20 20 20 20 20 20 20 20     MDATA
30: 20 20 3b 47 45 54 20 4d 4f 44 45 4d 20 43 48 41     ;GET MODEM CHA
40: 52 41 43 54 45 52 0d 0a 20 20 20 20 20 20 20 20   RACTER..
50: 41 4e 49 20 20 20 20 20 30 37 46 48 20 20 20 20   ANI     07FH
60: 20 20 20 20 20 20 20 20 3b 53 54 52 49 50 20 50           ;STRIP P
70: 41 52 49 54 59 20 42 49 54 0d 0a 20 20 20 20 20   ARITY BIT..
### Disk Sector 79 ###
00: 20 20 20 52 45 54 0d 0a 0d 0a 4d 4f 44 45 4d 4f      RET....MODEMO
10: 20 20 49 4e 20 20 20 20 20 20 4d 53 54 41 54 20     IN      MSTAT
20: 20 20 20 20 20 20 20 20 20 20 3b 47 45 54 20 4d             ;GET M
30: 4f 44 45 4d 20 53 54 41 54 55 53 0d 0a 20 20 20   ODEM STATUS..
40: 20 20 20 20 20 4e 4f 50 20 20 20 20 20 20 20 20        NOP
50: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 28 43                ;(C
60: 4d 41 20 49 46 20 41 43 54 49 56 45 20 4c 4f 57   MA IF ACTIVE LOW
70: 29 0d 0a 4d 54 42 45 31 20 20 20 41 4e 49 20 20   )..MTBE1   ANI
### Disk Sector 80 ###
00: 20 20 20 4d 41 53 4b 4f 20 20 20 20 20 20 20 20      MASKO
10: 20 20 20 3b 4d 41 53 4b 20 46 4f 52 20 53 45 4e      ;MASK FOR SEN
20: 44 20 42 49 54 0d 0a 20 20 20 20 20 20 20 20 4a   D BIT..        J
30: 5a 20 20 20 20 20 20 4d 4f 44 45 4d 4f 20 20 20   Z      MODEMO
40: 20 20 20 20 20 20 20 3b 57 41 49 54 20 46 4f 52          ;WAIT FOR
50: 20 52 45 41 44 59 0d 0a 20 20 20 20 20 20 20 20    READY..
60: 4d 4f 56 20 20 20 20 20 41 2c 43 20 20 20 20 20   MOV     A,C
70: 20 20 20 20 20 20 20 20 3b 47 45 54 20 43 48 41           ;GET CHA
### Disk Sector 81 ###
00: 52 41 43 54 45 52 20 54 4f 20 4f 55 54 50 55 54   RACTER TO OUTPUT
10: 0d 0a 4d 44 41 54 41 4f 20 20 4f 55 54 20 20 20   ..MDATAO  OUT
20: 20 20 4d 44 41 54 41 20 20 20 20 20 20 20 20 20     MDATA
30: 20 20 3b 4f 55 54 50 55 54 20 54 4f 20 4d 4f 44     ;OUTPUT TO MOD
40: 45 4d 0d 0a 20 20 20 20 20 20 20 20 43 50 49 20   EM..        CPI
50: 20 20 20 20 30 44 48 20 20 20 20 20 20 20 20 20       0DH
60: 20 20 20 20 3b 4e 45 45 44 20 44 45 4c 41 59 20       ;NEED DELAY
70: 49 53 20 43 52 4c 46 0d 0a 20 20 20 20 20 20 20   IS CRLF..
### Disk Sector 82 ###
00: 20 52 4e 43 0d 0a 20 20 20 20 20 20 20 20 43 41    RNC..        CA
10: 4c 4c 20 20 20 20 44 45 4c 41 59 0d 0a 20 20 20   LL    DELAY..
20: 20 20 20 20 20 43 41 4c 4c 20 20 20 20 44 45 4c        CALL    DEL
30: 41 59 0d 0a 0d 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a   AY..............
40: 0a 20 20 20 20 20 20 20 20 52 45 54 0d 0a 3b 0d   .        RET..;.
50: 0a 3b 20 20 20 20 20 20 20 43 48 45 43 4b 20 46   .;       CHECK F
60: 4f 52 20 41 4e 59 20 49 4e 50 55 54 20 4f 4e 20   OR ANY INPUT ON
70: 43 4f 4e 53 4f 4c 45 20 4f 52 20 4d 4f 44 45 4d   CONSOLE OR MODEM
### Disk Sector 83 ###
00: 20 4f 52 20 53 45 4e 44 20 42 55 46 46 45 52 0d    OR SEND BUFFER.
10: 0a 0d 0a 42 53 49 4e 20 20 20 20 4c 44 41 20 20   ...BSIN    LDA
20: 20 20 20 4d 4f 44 45 53 57 20 20 20 20 20 20 20      MODESW
30: 20 20 20 3b 53 45 4e 44 20 42 55 46 46 45 52 20      ;SEND BUFFER
40: 52 45 41 44 59 0d 0a 20 20 20 20 20 20 20 20 41   READY..        A
50: 4e 49 20 20 20 20 20 31 0d 0a 20 20 20 20 20 20   NI     1..
60: 20 20 4d 56 49 20 20 20 20 20 41 2c 30 0d 0a 20     MVI     A,0..
70: 20 20 20 20 20 20 20 52 5a 0d 0a 20 20 20 20 20          RZ..
### Disk Sector 84 ###
00: 20 20 20 43 4d 41 0d 0a 20 20 20 20 20 20 20 20      CMA..
10: 52 45 54 0d 0a 0d 0a 43 53 49 4e 20 20 20 20 43   RET....CSIN    C
20: 41 4c 4c 20 20 20 20 30 44 41 30 36 48 20 20 20   ALL    0DA06H
30: 20 20 20 20 20 20 20 3b 46 49 58 20 54 4f 20 50          ;FIX TO P
40: 4f 49 4e 54 20 54 4f 20 42 49 4f 53 20 43 4f 4e   OINT TO BIOS CON
50: 53 4f 4c 45 20 53 54 41 54 55 53 0d 0a 20 20 20   SOLE STATUS..
60: 20 20 20 20 20 4f 52 41 20 20 20 20 20 41 20 20        ORA     A
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 30 30                ;00
### Disk Sector 85 ###
00: 20 3d 20 4e 4f 54 20 52 45 41 44 59 20 20 46 46    = NOT READY  FF
10: 20 3d 20 52 45 41 44 59 0d 0a 20 20 20 20 20 20    = READY..
20: 20 20 52 45 54 20 20 20 20 20 20 20 20 20 20 20     RET
30: 20 20 20 20 20 20 20 20 20 20 3b 52 45 54 55 52             ;RETUR
40: 4e 20 46 52 4f 4d 20 43 4f 4e 53 54 2e 0d 0a 0d   N FROM CONST....
50: 0a 0d 0a 3b 52 45 41 44 20 41 20 43 48 41 52 41   ...;READ A CHARA
60: 43 54 45 52 20 46 52 4f 4d 20 53 45 4e 44 20 42   CTER FROM SEND B
70: 55 46 46 45 52 0d 0a 3b 0d 0a 42 44 49 4e 20 20   UFFER..;..BDIN
### Disk Sector 86 ###
00: 20 20 43 41 4c 4c 20 20 20 20 44 45 4c 41 59 0d     CALL    DELAY.
10: 0a 20 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20   .        LHLD
20: 20 43 55 52 50 54 52 20 20 20 20 20 20 20 20 20    CURPTR
30: 20 3b 47 45 54 20 43 55 52 52 45 4e 54 20 50 4f    ;GET CURRENT PO
40: 49 4e 54 45 52 20 54 4f 20 42 55 46 46 45 52 0d   INTER TO BUFFER.
50: 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20   .        MOV
60: 20 41 2c 48 0d 0a 20 20 20 20 20 20 20 20 44 43    A,H..        DC
70: 52 20 20 20 20 20 41 0d 0a 20 20 20 20 20 20 20   R     A..
### Disk Sector 87 ###
00: 20 43 5a 20 20 20 20 20 20 52 44 4e 58 54 0d 0a    CZ      RDNXT..
10: 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20           MOV
20: 41 2c 4d 0d 0a 20 20 20 20 20 20 20 20 49 4e 58   A,M..        INX
30: 20 20 20 20 20 48 0d 0a 20 20 20 20 20 20 20 20        H..
40: 53 48 4c 44 20 20 20 20 43 55 52 50 54 52 0d 0a   SHLD    CURPTR..
50: 20 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20           CPI
60: 30 31 41 48 20 20 20 20 20 20 20 20 20 20 20 20   01AH
70: 3b 49 53 20 49 54 20 45 4f 46 0d 0a 20 20 20 20   ;IS IT EOF..
### Disk Sector 88 ###
00: 20 20 20 20 4a 5a 20 20 20 20 20 20 43 4c 4f 53       JZ      CLOS
10: 45 53 0d 0a 20 20 20 20 20 20 20 20 52 45 54 0d   ES..        RET.
20: 0a 3b 0d 0a 44 45 4c 41 59 20 20 20 50 55 53 48   .;..DELAY   PUSH
30: 20 20 20 20 48 0d 0a 20 20 20 20 20 20 20 20 4c       H..        L
40: 48 4c 44 20 20 20 20 53 4f 53 4c 4f 57 20 20 20   HLD    SOSLOW
50: 20 20 20 20 20 20 20 3b 55 53 45 44 20 54 4f 20          ;USED TO
60: 53 4c 4f 57 20 44 4f 57 4e 20 54 48 49 4e 47 53   SLOW DOWN THINGS
70: 0d 0a 44 45 4c 41 59 31 20 20 58 54 48 4c 0d 0a   ..DELAY1  XTHL..
### Disk Sector 89 ###
00: 20 20 20 20 20 20 20 20 58 54 48 4c 0d 0a 20 20           XTHL..
10: 20 20 20 20 20 20 44 43 52 20 20 20 20 20 4c 0d         DCR     L.
20: 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20   .        JNZ
30: 20 44 45 4c 41 59 31 0d 0a 20 20 20 20 20 20 20    DELAY1..
40: 20 44 43 52 20 20 20 20 20 48 0d 0a 20 20 20 20    DCR     H..
50: 20 20 20 20 4a 4e 5a 20 20 20 20 20 44 45 4c 41       JNZ     DELA
60: 59 31 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20   Y1..        POP
70: 20 20 20 20 48 0d 0a 20 20 20 20 20 20 20 20 52       H..        R
### Disk Sector 90 ###
00: 45 54 0d 0a 3b 0d 0a 52 44 4e 58 54 20 20 20 4c   ET..;..RDNXT   L
10: 58 49 20 20 20 20 20 44 2c 46 43 42 20 20 20 20   XI     D,FCB
20: 20 20 20 20 20 20 20 3b 52 45 41 44 20 4e 45 58          ;READ NEX
30: 54 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20   T RECORD..
40: 20 20 4d 56 49 20 20 20 20 20 43 2c 30 31 34 48     MVI     C,014H
50: 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20   ..        CALL
60: 20 20 42 44 4f 53 0d 0a 20 20 20 20 20 20 20 20     BDOS..
70: 4c 58 49 20 20 20 20 20 48 2c 54 42 55 46 46 0d   LXI     H,TBUFF.
### Disk Sector 91 ###
00: 0a 20 20 20 20 20 20 20 20 53 48 4c 44 20 20 20   .        SHLD
10: 20 43 55 52 50 54 52 0d 0a 20 20 20 20 20 20 20    CURPTR..
20: 20 4f 52 41 20 20 20 20 20 41 20 20 20 20 20 20    ORA     A
30: 20 20 20 20 20 20 20 20 20 3b 43 48 45 43 4b 20            ;CHECK
40: 46 4f 52 20 47 4f 4f 44 20 52 45 41 44 0d 0a 20   FOR GOOD READ..
50: 20 20 20 20 20 20 20 52 5a 0d 0a 20 20 20 20 20          RZ..
60: 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 30 31 41      MVI     M,01A
70: 48 0d 0a 20 20 20 20 20 20 20 20 52 45 54 0d 0a   H..        RET..
### Disk Sector 92 ###
00: 0d 0a 43 4c 4f 53 45 53 20 20 58 52 41 20 20 20   ..CLOSES  XRA
10: 20 20 41 0d 0a 20 20 20 20 20 20 20 20 53 54 41     A..        STA
20: 20 20 20 20 20 4d 4f 44 45 53 57 0d 0a 20 20 20        MODESW..
30: 20 20 20 20 20 43 41 4c 4c 20 20 20 20 46 43 4c        CALL    FCL
40: 4f 53 45 0d 0a 0d 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a   OSE.............
50: 0a 0a 20 20 20 20 20 20 20 20 4d 56 49 20 20 20   ..        MVI
60: 20 20 41 2c 30 31 41 48 0d 0a 20 20 20 20 20 20     A,01AH..
70: 20 20 52 45 54 0d 0a 43 44 49 4e 20 20 20 20 43     RET..CDIN    C
### Disk Sector 93 ###
00: 41 4c 4c 20 20 20 20 30 44 41 30 39 48 20 20 20   ALL    0DA09H
10: 20 20 20 20 20 20 20 3b 46 49 58 20 54 4f 20 50          ;FIX TO P
20: 4f 49 4e 54 20 54 4f 20 42 49 4f 53 20 43 4f 4e   OINT TO BIOS CON
30: 53 4f 4c 45 20 49 4e 50 55 54 0d 0a 20 20 20 20   SOLE INPUT..
40: 20 20 20 20 43 50 49 20 20 20 20 20 43 54 4c 43       CPI     CTLC
50: 48 20 20 20 20 20 20 20 20 20 20 20 3b 4c 4f 4f   H           ;LOO
60: 4b 20 46 4f 52 20 43 4f 4d 4d 41 4e 44 20 28 43   K FOR COMMAND (C
70: 54 4c 2d 40 29 0d 0a 20 20 20 20 20 20 20 20 4a   TL-@)..        J
### Disk Sector 94 ###
00: 5a 20 20 20 20 20 20 43 4f 4d 4d 41 4e 44 0d 0a   Z      COMMAND..
10: 20 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20           CPI
20: 30 45 31 48 20 20 20 20 20 20 20 20 20 20 20 20   0E1H
30: 3b 36 31 48 20 3d 20 4c 4f 57 45 52 20 43 41 53   ;61H = LOWER CAS
40: 45 20 46 4f 4c 44 20 45 31 48 20 3d 20 4e 4f 20   E FOLD E1H = NO
50: 46 4f 4c 44 0d 0a 55 50 43 53 57 20 20 20 45 51   FOLD..UPCSW   EQ
60: 55 20 20 20 20 20 24 2d 31 0d 0a 20 20 20 20 20   U     $-1..
70: 20 20 20 52 43 0d 0a 20 20 20 20 20 20 20 20 43      RC..        C
### Disk Sector 95 ###
00: 50 49 20 20 20 20 20 30 37 42 48 0d 0a 20 20 20   PI     07BH..
10: 20 20 20 20 20 52 4e 43 0d 0a 20 20 20 20 20 20        RNC..
20: 20 20 41 4e 49 20 20 20 20 20 30 35 46 48 20 20     ANI     05FH
30: 20 20 20 20 20 20 20 20 20 20 3b 46 4f 52 43 45             ;FORCE
40: 20 54 4f 20 55 50 50 45 52 20 43 41 53 45 0d 0a    TO UPPER CASE..
50: 20 20 20 20 20 20 20 20 52 45 54 0d 0a 3b 0d 0a           RET..;..
60: 3b 20 20 20 20 20 20 20 43 4f 4e 53 4f 4c 45 20   ;       CONSOLE
70: 43 4f 4d 4d 41 4e 44 20 50 52 4f 43 45 53 53 4f   COMMAND PROCESSO
### Disk Sector 96 ###
00: 52 0d 0a 43 4f 4d 4d 41 4e 44 20 4c 58 49 20 20   R..COMMAND LXI
10: 20 20 20 48 2c 43 4f 4d 4d 53 47 0d 0a 20 20 20      H,COMMSG..
20: 20 20 20 20 20 43 41 4c 4c 20 20 20 20 50 4d 53        CALL    PMS
30: 47 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20   G..        CALL
40: 20 20 20 43 44 49 4e 20 20 20 20 20 20 20 20 20      CDIN
50: 20 20 20 3b 47 45 54 20 43 4f 4d 4d 41 4e 44 0d      ;GET COMMAND.
60: 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20   .        PUSH
70: 20 50 53 57 20 20 20 20 20 20 20 20 20 20 20 20    PSW
### Disk Sector 97 ###
00: 20 3b 53 41 56 45 20 54 48 45 20 43 4f 4d 4d 41    ;SAVE THE COMMA
10: 4e 44 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20   ND..        MOV
20: 20 20 20 20 43 2c 41 0d 0a 20 20 20 20 20 20 20       C,A..
30: 20 43 41 4c 4c 20 20 20 20 43 4f 55 54 20 20 20    CALL    COUT
40: 20 20 20 20 20 20 20 20 20 3b 45 43 48 4f 20 43            ;ECHO C
50: 4f 4d 4d 41 4e 44 0d 0a 20 20 20 20 20 20 20 20   OMMAND..
60: 50 4f 50 20 20 20 20 20 50 53 57 0d 0a 20 20 20   POP     PSW..
70: 20 20 20 20 20 43 50 49 20 20 20 20 20 27 43 27        CPI     'C'
### Disk Sector 98 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 46 4f                ;FO
10: 52 43 45 20 43 4c 4f 53 45 20 46 49 4c 45 53 0d   RCE CLOSE FILES.
20: 0a 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20   .        JZ
30: 20 43 4c 4f 53 45 46 0d 0a 20 20 20 20 20 20 20    CLOSEF..
40: 20 43 50 49 20 20 20 20 20 27 44 27 20 20 20 20    CPI     'D'
50: 20 20 20 20 20 20 20 20 20 3b 43 48 41 4e 47 45            ;CHANGE
60: 20 44 45 4c 41 59 0d 0a 20 20 20 20 20 20 20 20    DELAY..
70: 4a 5a 20 20 20 20 20 20 4e 45 57 44 45 4c 41 0d   JZ      NEWDELA.
### Disk Sector 99 ###
00: 0a 20 20 20 20 20 20 20 20 43 50 49 20 20 20 20   .        CPI
10: 20 27 45 27 20 20 20 20 20 20 20 20 20 20 20 20    'E'
20: 20 3b 54 4f 20 53 45 45 20 49 54 20 41 54 20 54    ;TO SEE IT AT T
30: 48 49 53 20 54 45 52 4d 49 4e 41 4c 2c 20 45 43   HIS TERMINAL, EC
40: 48 4f 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20 20   HO..        JZ
50: 20 20 20 20 45 43 48 4f 0d 0a 20 20 20 20 20 20       ECHO..
60: 20 20 43 50 49 20 20 20 20 20 27 4c 27 20 20 20     CPI     'L'
70: 20 20 20 20 20 20 20 20 20 20 3b 54 4f 47 47 4c             ;TOGGL
### Disk Sector 100 ###
00: 45 20 41 55 54 4f 20 4c 49 4e 45 46 45 45 44 20   E AUTO LINEFEED
10: 53 57 49 54 43 48 0d 0a 20 20 20 20 20 20 20 20   SWITCH..
20: 4a 5a 20 20 20 20 20 20 41 55 54 4f 4c 0d 0a 20   JZ      AUTOL..
30: 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 27          CPI     '
40: 50 27 20 20 20 20 20 20 20 20 20 20 20 20 20 3b   P'             ;
50: 50 52 49 4e 54 20 41 4e 59 54 48 49 4e 47 20 41   PRINT ANYTHING A
60: 54 20 54 45 52 4d 49 4e 41 4c 0d 0a 20 20 20 20   T TERMINAL..
70: 20 20 20 20 4a 5a 20 20 20 20 20 20 54 4c 49 53       JZ      TLIS
### Disk Sector 101 ###
00: 54 0d 0a 20 20 20 20 20 20 20 20 43 50 49 20 20   T..        CPI
10: 20 20 20 27 51 27 20 20 20 20 20 20 20 20 20 20      'Q'
20: 20 20 20 3b 51 55 49 54 20 41 4e 44 20 52 45 54      ;QUIT AND RET
30: 55 52 4e 20 54 4f 20 43 50 2f 4d 0d 0a 20 20 20   URN TO CP/M..
40: 20 20 20 20 20 4a 5a 20 20 20 20 20 20 51 55 49        JZ      QUI
50: 54 0d 0a 20 20 20 20 20 20 20 20 43 50 49 20 20   T..        CPI
60: 20 20 20 27 53 27 20 20 20 20 20 20 20 20 20 20      'S'
70: 20 20 20 3b 53 45 4e 44 20 3c 46 49 4c 45 3e 2e      ;SEND <FILE>.
### Disk Sector 102 ###
00: 3c 45 58 54 3e 0d 0a 20 20 20 20 20 20 20 20 4a   <EXT>..        J
10: 5a 20 20 20 20 20 20 53 45 4e 44 0d 0a 20 20 20   Z      SEND..
20: 20 20 20 20 20 43 50 49 20 20 20 20 20 27 52 27        CPI     'R'
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 52 45                ;RE
40: 43 45 49 56 45 20 3c 46 49 4c 45 3e 2e 3c 45 58   CEIVE <FILE>.<EX
50: 54 3e 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20 20   T>..        JZ
60: 20 20 20 20 52 45 43 56 0d 0a 20 20 20 20 20 20       RECV..
70: 20 20 43 50 49 20 20 20 20 20 27 55 27 20 20 20     CPI     'U'
### Disk Sector 103 ###
00: 20 20 20 20 20 20 20 20 20 20 3b 55 50 50 45 52             ;UPPER
10: 20 43 41 53 45 20 54 4f 47 47 4c 45 0d 0a 20 20    CASE TOGGLE..
20: 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 55 50         JZ      UP
30: 43 41 53 45 0d 0a 42 41 44 43 4d 44 20 20 4c 58   CASE..BADCMD  LX
40: 49 20 20 20 20 20 48 2c 42 41 44 43 4d 53 47 0d   I     H,BADCMSG.
50: 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20   .        CALL
60: 20 50 4d 53 47 0d 0a 20 20 20 20 20 20 20 20 4a    PMSG..        J
70: 4d 50 20 20 20 20 20 43 44 49 4e 0d 0a 3b 0d 0a   MP     CDIN..;..
### Disk Sector 104 ###
00: 51 55 49 54 20 20 20 20 4c 58 49 20 20 20 20 20   QUIT    LXI
10: 48 2c 51 4d 53 47 0d 0a 20 20 20 20 20 20 20 20   H,QMSG..
20: 43 41 4c 4c 20 20 20 20 50 4d 53 47 0d 0a 20 20   CALL    PMSG..
30: 20 20 20 20 20 20 4c 44 41 20 20 20 20 20 4d 4f         LDA     MO
40: 44 45 53 57 20 20 20 20 20 20 20 20 20 20 3b 53   DESW          ;S
50: 45 45 20 49 46 20 41 4e 59 20 46 49 4c 45 53 20   EE IF ANY FILES
60: 4f 50 45 4e 0d 0a 20 20 20 20 20 20 20 20 43 50   OPEN..        CP
70: 49 20 20 20 20 20 31 20 20 20 20 20 20 20 20 20   I     1
### Disk Sector 105 ###
00: 20 20 20 20 20 20 3b 20 30 20 3d 20 4e 4f 4e 45         ; 0 = NONE
10: 20 20 31 20 3d 20 53 45 4e 44 49 4e 47 20 20 20     1 = SENDING
20: 32 20 3d 20 52 45 43 45 49 56 49 4e 47 0d 0a 20   2 = RECEIVING..
30: 20 20 20 20 20 20 20 4a 43 20 20 20 20 20 20 42          JC      B
40: 4f 4f 54 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a   OOT..        JNZ
50: 20 20 20 20 20 51 43 4c 4f 53 52 0d 0a 20 20 20        QCLOSR..
60: 20 20 20 20 20 43 41 4c 4c 20 20 20 20 46 43 4c        CALL    FCL
70: 4f 53 45 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50   OSE..        JMP
### Disk Sector 106 ###
00: 20 20 20 20 20 42 4f 4f 54 20 20 20 20 20 20 20        BOOT
10: 20 20 20 20 20 3b 4e 4f 57 20 52 45 42 4f 4f 54        ;NOW REBOOT
20: 0d 0a 3b 0d 0a 51 43 4c 4f 53 52 20 20 43 41 4c   ..;..QCLOSR  CAL
30: 4c 20 20 20 20 43 4c 4f 53 45 52 0d 0a 20 20 20   L    CLOSER..
40: 20 20 20 20 20 4a 4d 50 20 20 20 20 20 42 4f 4f        JMP     BOO
50: 54 0d 0a 0d 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a   T...............
60: 3b 0d 0a 43 4c 4f 53 45 46 20 20 4c 58 49 20 20   ;..CLOSEF  LXI
70: 20 20 20 48 2c 43 4d 53 47 0d 0a 20 20 20 20 20      H,CMSG..
### Disk Sector 107 ###
00: 20 20 20 43 41 4c 4c 20 20 20 20 50 4d 53 47 0d      CALL    PMSG.
10: 0a 0d 0a 20 20 20 20 20 20 20 20 4c 44 41 20 20   ...        LDA
20: 20 20 20 4d 4f 44 45 53 57 0d 0a 20 20 20 20 20      MODESW..
30: 20 20 20 43 50 49 20 20 20 20 20 31 0d 0a 20 20      CPI     1..
40: 20 20 20 20 20 20 4a 43 20 20 20 20 20 20 42 41         JC      BA
50: 44 43 4d 44 0d 0a 20 20 20 20 20 20 20 20 4a 4e   DCMD..        JN
60: 5a 20 20 20 20 20 43 4c 4f 53 45 52 0d 0a 20 20   Z     CLOSER..
70: 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 46 43         CALL    FC
### Disk Sector 108 ###
00: 4c 4f 53 45 0d 0a 20 20 20 20 20 20 20 20 4a 4d   LOSE..        JM
10: 50 20 20 20 20 20 54 45 52 4d 0d 0a 3b 0d 0a 4e   P     TERM..;..N
20: 45 57 44 45 4c 41 20 4c 58 49 20 20 20 20 20 48   EWDELA LXI     H
30: 2c 44 4d 53 47 20 20 20 20 20 20 20 20 20 20 3b   ,DMSG          ;
40: 43 48 41 4e 47 45 20 44 45 4c 41 59 20 53 50 45   CHANGE DELAY SPE
50: 45 44 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c   ED..        CALL
60: 20 20 20 20 50 4d 53 47 0d 0a 20 20 20 20 20 20       PMSG..
70: 20 20 4c 48 4c 44 20 20 20 20 53 4f 53 4c 4f 57     LHLD    SOSLOW
### Disk Sector 109 ###
00: 0d 0a 20 20 20 20 20 20 20 20 49 4e 52 20 20 20   ..        INR
10: 20 20 48 0d 0a 20 20 20 20 20 20 20 20 53 48 4c     H..        SHL
20: 44 20 20 20 20 53 4f 53 4c 4f 57 0d 0a 20 20 20   D    SOSLOW..
30: 20 20 20 20 20 4a 4d 50 20 20 20 20 20 54 45 52        JMP     TER
40: 4d 41 0d 0a 3b 0d 0a 45 43 48 4f 20 20 20 20 4c   MA..;..ECHO    L
50: 58 49 20 20 20 20 20 48 2c 45 43 4d 53 47 0d 0a   XI     H,ECMSG..
60: 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20           CALL
70: 50 4d 53 47 0d 0a 20 20 20 20 20 20 20 20 4c 44   PMSG..        LD
### Disk Sector 110 ###
00: 41 20 20 20 20 20 45 43 48 4f 53 57 0d 0a 20 20   A     ECHOSW..
10: 20 20 20 20 20 20 58 52 49 20 20 20 20 20 31 0d         XRI     1.
20: 0a 20 20 20 20 20 20 20 20 53 54 41 20 20 20 20   .        STA
30: 20 45 43 48 4f 53 57 0d 0a 20 20 20 20 20 20 20    ECHOSW..
40: 20 4a 4d 50 20 20 20 20 20 54 45 52 4d 41 0d 0a    JMP     TERMA..
50: 3b 0d 0a 41 55 54 4f 4c 20 20 20 4c 58 49 20 20   ;..AUTOL   LXI
60: 20 20 20 48 2c 4c 46 4d 53 47 0d 0a 20 20 20 20      H,LFMSG..
70: 20 20 20 20 43 41 4c 4c 20 20 20 20 50 4d 53 47       CALL    PMSG
### Disk Sector 111 ###
00: 0d 0a 20 20 20 20 20 20 20 20 4c 44 41 20 20 20   ..        LDA
10: 20 20 43 52 4c 46 53 57 0d 0a 20 20 20 20 20 20     CRLFSW..
20: 20 20 58 52 49 20 20 20 20 20 31 0d 0a 20 20 20     XRI     1..
30: 20 20 20 20 20 53 54 41 20 20 20 20 20 43 52 4c        STA     CRL
40: 46 53 57 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50   FSW..        JMP
50: 20 20 20 20 20 54 45 52 4d 41 0d 0a 3b 0d 0a 54        TERMA..;..T
60: 4c 49 53 54 20 20 20 4c 58 49 20 20 20 20 20 48   LIST   LXI     H
70: 2c 50 46 4d 53 47 0d 0a 20 20 20 20 20 20 20 20   ,PFMSG..
### Disk Sector 112 ###
00: 43 41 4c 4c 20 20 20 20 50 4d 53 47 0d 0a 20 20   CALL    PMSG..
10: 20 20 20 20 20 20 4c 44 41 20 20 20 20 20 50 52         LDA     PR
20: 54 53 57 20 20 20 20 20 20 20 20 20 20 20 3b 54   TSW           ;T
30: 4f 47 47 4c 45 20 54 48 45 20 50 52 49 4e 54 20   OGGLE THE PRINT
40: 53 57 49 54 43 48 0d 0a 20 20 20 20 20 20 20 20   SWITCH..
50: 58 52 49 20 20 20 20 20 31 0d 0a 20 20 20 20 20   XRI     1..
60: 20 20 20 53 54 41 20 20 20 20 20 50 52 54 53 57      STA     PRTSW
70: 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20   ..        JMP
### Disk Sector 113 ###
00: 20 20 54 45 52 4d 41 0d 0a 3b 0d 0a 3b 0d 0a 3b     TERMA..;..;..;
10: 20 20 20 20 20 20 20 57 52 49 54 45 20 41 20 43          WRITE A C
20: 48 41 52 41 43 54 45 52 20 54 4f 20 54 48 45 20   HARACTER TO THE
30: 43 4f 4e 53 4f 4c 45 20 44 45 56 49 43 45 20 41   CONSOLE DEVICE A
40: 4e 44 20 4d 4f 44 45 4d 0d 0a 3b 0d 0a 0d 0a 50   ND MODEM..;....P
50: 4d 53 47 20 20 20 20 4d 4f 56 20 20 20 20 20 43   MSG    MOV     C
60: 2c 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 3b   ,M             ;
70: 50 52 49 4e 54 20 4d 53 47 20 41 54 20 28 48 4c   PRINT MSG AT (HL
### Disk Sector 114 ###
00: 29 20 54 4f 20 30 30 0d 0a 20 20 20 20 20 20 20   ) TO 00..
10: 20 49 4e 58 20 20 20 20 20 48 0d 0a 20 20 20 20    INX     H..
20: 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 43 0d       MOV     A,C.
30: 0a 20 20 20 20 20 20 20 20 4f 52 41 20 20 20 20   .        ORA
40: 20 41 0d 0a 20 20 20 20 20 20 20 20 52 5a 0d 0a    A..        RZ..
50: 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20           PUSH
60: 48 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20   H..        CALL
70: 20 20 20 43 4f 55 54 0d 0a 20 20 20 20 20 20 20      COUT..
### Disk Sector 115 ###
00: 20 50 4f 50 20 20 20 20 20 48 0d 0a 20 20 20 20    POP     H..
10: 20 20 20 20 4a 4d 50 20 20 20 20 20 50 4d 53 47       JMP     PMSG
20: 0d 0a 0d 0a 43 43 52 4c 46 20 20 20 4d 56 49 20   ....CCRLF   MVI
30: 20 20 20 20 43 2c 30 44 48 0d 0a 0d 0a 0a 0a 0a       C,0DH.......
40: 0a 0a 0a 0a 0a 0a 0a 0a 20 20 20 20 20 20 20 20   ........
50: 43 41 4c 4c 20 20 20 20 43 4f 55 54 0d 0a 20 20   CALL    COUT..
60: 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 43 2c         MVI     C,
70: 30 41 48 0d 0a 43 4f 55 54 20 20 20 20 50 55 53   0AH..COUT    PUS
### Disk Sector 116 ###
00: 48 20 20 20 20 42 0d 0a 20 20 20 20 20 20 20 20   H    B..
10: 50 55 53 48 20 20 20 20 44 0d 0a 20 20 20 20 20   PUSH    D..
20: 20 20 20 50 55 53 48 20 20 20 20 48 0d 0a 20 20      PUSH    H..
30: 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c         MOV     A,
40: 43 0d 0a 20 20 20 20 20 20 20 20 43 50 49 20 20   C..        CPI
50: 20 20 20 27 20 27 0d 0a 20 20 20 20 20 20 20 20      ' '..
60: 4a 4e 5a 20 20 20 20 20 43 4f 55 54 4f 4b 0d 0a   JNZ     COUTOK..
70: 20 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20           CPI
### Disk Sector 117 ###
00: 30 38 48 20 20 20 20 20 20 20 20 20 20 20 20 20   08H
10: 3b 42 41 43 4b 53 50 41 43 45 0d 0a 20 20 20 20   ;BACKSPACE..
20: 20 20 20 20 4a 5a 20 20 20 20 20 20 43 4f 55 54       JZ      COUT
30: 4f 4b 0d 0a 20 20 20 20 20 20 20 20 43 50 49 20   OK..        CPI
40: 20 20 20 20 30 44 48 20 20 20 20 20 20 20 20 20       0DH
50: 20 20 20 20 3b 43 41 52 52 49 41 47 45 20 52 45       ;CARRIAGE RE
60: 54 55 52 4e 0d 0a 20 20 20 20 20 20 20 20 4a 5a   TURN..        JZ
70: 20 20 20 20 20 20 43 4f 55 54 4f 4b 0d 0a 20 20         COUTOK..
### Disk Sector 118 ###
00: 20 20 20 20 20 20 43 50 49 20 20 20 20 20 30 41         CPI     0A
10: 48 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 4c   H             ;L
20: 49 4e 45 20 46 45 45 44 0d 0a 20 20 20 20 20 20   INE FEED..
30: 20 20 4a 5a 20 20 20 20 20 20 43 4f 55 54 4f 4b     JZ      COUTOK
40: 0d 0a 20 20 20 20 20 20 20 20 43 50 49 20 20 20   ..        CPI
50: 20 20 30 39 48 20 20 20 20 20 20 20 20 20 20 20     09H
60: 20 20 3b 54 41 42 0d 0a 20 20 20 20 20 20 20 20     ;TAB..
70: 4a 5a 20 20 20 20 20 20 43 4f 55 54 4f 4b 0d 0a   JZ      COUTOK..
### Disk Sector 119 ###
00: 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20           MOV
10: 42 2c 43 0d 0a 20 20 20 20 20 20 20 20 4d 56 49   B,C..        MVI
20: 20 20 20 20 20 43 2c 27 5e 27 0d 0a 20 20 20 20        C,'^'..
30: 20 20 20 20 43 41 4c 4c 20 20 20 20 43 4f 55 54       CALL    COUT
40: 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20   ..        MOV
50: 20 20 41 2c 42 0d 0a 20 20 20 20 20 20 20 20 4f     A,B..        O
60: 52 49 20 20 20 20 20 34 30 48 0d 0a 20 20 20 20   RI     40H..
70: 20 20 20 20 4d 4f 56 20 20 20 20 20 43 2c 41 0d       MOV     C,A.
### Disk Sector 120 ###
00: 0a 43 4f 55 54 4f 4b 20 20 4d 4f 56 20 20 20 20   .COUTOK  MOV
10: 20 45 2c 43 0d 0a 20 20 20 20 20 20 20 20 4d 56    E,C..        MV
20: 49 20 20 20 20 20 43 2c 32 20 20 20 20 20 20 20   I     C,2
30: 20 20 20 20 20 20 3b 57 52 49 54 45 20 54 4f 20         ;WRITE TO
40: 43 4f 4e 53 4f 4c 45 0d 0a 20 20 20 20 20 20 20   CONSOLE..
50: 20 43 41 4c 4c 20 20 20 20 42 44 4f 53 0d 0a 20    CALL    BDOS..
60: 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48          POP     H
70: 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20   ..        POP
### Disk Sector 121 ###
00: 20 20 44 0d 0a 20 20 20 20 20 20 20 20 50 4f 50     D..        POP
10: 20 20 20 20 20 42 0d 0a 20 20 20 20 20 20 20 20        B..
20: 4c 44 41 20 20 20 20 20 50 52 54 53 57 20 20 20   LDA     PRTSW
30: 20 20 20 20 20 20 20 20 3b 43 48 45 43 4b 20 46           ;CHECK F
40: 4f 52 20 50 52 49 4e 54 20 45 43 48 4f 0d 0a 20   OR PRINT ECHO..
50: 20 20 20 20 20 20 20 41 4e 49 20 20 20 20 20 31          ANI     1
60: 0d 0a 20 20 20 20 20 20 20 20 52 5a 0d 0a 50 4c   ..        RZ..PL
70: 49 53 54 20 20 20 50 55 53 48 20 20 20 20 42 0d   IST   PUSH    B.
### Disk Sector 122 ###
00: 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20   .        PUSH
10: 20 44 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48    D..        PUSH
20: 20 20 20 20 48 0d 0a 20 20 20 20 20 20 20 20 4d       H..        M
30: 4f 56 20 20 20 20 20 45 2c 43 0d 0a 20 20 20 20   OV     E,C..
40: 20 20 20 20 4d 56 49 20 20 20 20 20 43 2c 35 0d       MVI     C,5.
50: 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20   .        CALL
60: 20 42 44 4f 53 0d 0a 20 20 20 20 20 20 20 20 50    BDOS..        P
70: 4f 50 20 20 20 20 20 48 0d 0a 20 20 20 20 20 20   OP     H..
### Disk Sector 123 ###
00: 20 20 50 4f 50 20 20 20 20 20 44 0d 0a 20 20 20     POP     D..
10: 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 0d 0a        POP     B..
20: 20 20 20 20 20 20 20 20 52 45 54 0d 0a 0d 0a 42           RET....B
30: 44 4f 55 54 20 20 20 4c 48 4c 44 20 20 20 20 43   DOUT   LHLD    C
40: 55 52 50 54 52 20 20 20 20 20 20 20 20 20 20 3b   URPTR          ;
50: 46 49 4c 4c 20 54 48 45 20 42 55 46 46 45 52 0d   FILL THE BUFFER.
60: 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20   .        MOV
70: 20 4d 2c 43 0d 0a 20 20 20 20 20 20 20 20 49 4e    M,C..        IN
### Disk Sector 124 ###
00: 58 20 20 20 20 20 48 0d 0a 20 20 20 20 20 20 20   X     H..
10: 20 4c 44 41 20 20 20 20 20 48 49 4d 45 4d 0d 0a    LDA     HIMEM..
20: 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20           CMP
30: 48 0d 0a 20 20 20 20 20 20 20 20 4a 43 20 20 20   H..        JC
40: 20 20 20 42 44 4f 55 54 43 0d 0a 20 20 20 20 20      BDOUTC..
50: 20 20 20 53 48 4c 44 20 20 20 20 43 55 52 50 54      SHLD    CURPT
60: 52 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20   R..        MOV
70: 20 20 20 41 2c 43 0d 0a 20 20 20 20 20 20 20 20      A,C..
### Disk Sector 125 ###
00: 43 50 49 20 20 20 20 20 31 41 48 20 20 20 20 20   CPI     1AH
10: 20 20 20 20 20 20 20 20 3b 49 53 20 49 54 20 45           ;IS IT E
20: 4f 46 0d 0a 20 20 20 20 20 20 20 20 52 4e 5a 0d   OF..        RNZ.
30: 0a 42 44 4f 55 54 43 20 20 43 41 4c 4c 20 20 20   .BDOUTC  CALL
40: 20 43 4c 4f 53 45 52 0d 0a 20 20 20 20 20 20 20    CLOSER..
50: 20 4a 4d 50 20 20 20 20 20 54 45 52 4d 0d 0a 0d    JMP     TERM...
60: 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0d 0a 43 4c   ..............CL
70: 4f 53 45 52 20 20 4c 48 4c 44 20 20 20 20 43 55   OSER  LHLD    CU
### Disk Sector 126 ###
00: 52 50 54 52 0d 0a 20 20 20 20 20 20 20 20 4d 56   RPTR..        MV
10: 49 20 20 20 20 20 4d 2c 31 41 48 20 20 20 20 20   I     M,1AH
20: 20 20 20 20 20 20 3b 4d 41 4b 45 20 53 55 52 45         ;MAKE SURE
30: 20 4f 46 20 45 4f 46 0d 0a 20 20 20 20 20 20 20    OF EOF..
40: 20 4c 58 49 20 20 20 20 20 48 2c 46 42 55 46 46    LXI     H,FBUFF
50: 0d 0a 20 20 20 20 20 20 20 20 53 48 4c 44 20 20   ..        SHLD
60: 20 20 43 55 52 50 54 52 0d 0a 57 52 54 4e 58 54     CURPTR..WRTNXT
70: 20 20 43 41 4c 4c 20 20 20 20 42 4c 44 52 45 43     CALL    BLDREC
### Disk Sector 127 ###
00: 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20   ..        CALL
10: 20 20 57 52 54 52 45 43 0d 0a 20 20 20 20 20 20     WRTREC..
20: 20 20 4a 4e 5a 20 20 20 20 20 46 43 4c 4f 53 45     JNZ     FCLOSE
30: 0d 0a 20 20 20 20 20 20 20 20 4c 48 4c 44 20 20   ..        LHLD
40: 20 20 43 55 52 50 54 52 0d 0a 20 20 20 20 20 20     CURPTR..
50: 20 20 4d 4f 56 20 20 20 20 20 41 2c 4d 0d 0a 20     MOV     A,M..
60: 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 31          CPI     1
70: 41 48 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20   AH..        JNZ
### Disk Sector 128 ###
00: 20 20 20 20 57 52 54 4e 58 54 0d 0a 46 43 4c 4f       WRTNXT..FCLO
10: 53 45 20 20 4d 56 49 20 20 20 20 20 43 2c 31 36   SE  MVI     C,16
20: 20 20 20 20 20 20 20 20 20 20 20 20 3b 43 4c 4f               ;CLO
30: 53 45 20 46 49 4c 45 0d 0a 20 20 20 20 20 20 20   SE FILE..
40: 20 4c 58 49 20 20 20 20 20 44 2c 46 43 42 0d 0a    LXI     D,FCB..
50: 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20           CALL
60: 42 44 4f 53 0d 0a 20 20 20 20 20 20 20 20 4c 58   BDOS..        LX
70: 49 20 20 20 20 20 48 2c 43 4c 4d 53 47 0d 0a 20   I     H,CLMSG..
### Disk Sector 129 ###
00: 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 50          CALL    P
10: 4d 53 47 0d 0a 20 20 20 20 20 20 20 20 52 45 54   MSG..        RET
20: 0d 0a 0d 0a 42 4c 44 52 45 43 20 20 4c 58 49 20   ....BLDREC  LXI
30: 20 20 20 20 44 2c 54 42 55 46 46 0d 0a 20 20 20       D,TBUFF..
40: 20 20 20 20 20 4d 56 49 20 20 20 20 20 42 2c 38        MVI     B,8
50: 30 48 0d 0a 0d 0a 42 4c 44 44 55 50 20 20 4c 48   0H....BLDDUP  LH
60: 4c 44 20 20 20 20 43 55 52 50 54 52 0d 0a 20 20   LD    CURPTR..
70: 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c         MOV     A,
### Disk Sector 130 ###
00: 4d 0d 0a 20 20 20 20 20 20 20 20 53 54 41 58 20   M..        STAX
10: 20 20 20 44 0d 0a 20 20 20 20 20 20 20 20 43 50      D..        CP
20: 49 20 20 20 20 20 31 41 48 0d 0a 20 20 20 20 20   I     1AH..
30: 20 20 20 52 5a 0d 0a 20 20 20 20 20 20 20 20 49      RZ..        I
40: 4e 58 20 20 20 20 20 48 0d 0a 20 20 20 20 20 20   NX     H..
50: 20 20 53 48 4c 44 20 20 20 20 43 55 52 50 54 52     SHLD    CURPTR
60: 0d 0a 20 20 20 20 20 20 20 20 49 4e 58 20 20 20   ..        INX
70: 20 20 44 0d 0a 20 20 20 20 20 20 20 20 44 43 52     D..        DCR
### Disk Sector 131 ###
00: 20 20 20 20 20 42 0d 0a 20 20 20 20 20 20 20 20        B..
10: 4a 4e 5a 20 20 20 20 20 42 4c 44 44 55 50 0d 0a   JNZ     BLDDUP..
20: 20 20 20 20 20 20 20 20 52 45 54 0d 0a 0d 0a 57           RET....W
30: 52 54 52 45 43 20 20 4c 58 49 20 20 20 20 20 44   RTREC  LXI     D
40: 2c 46 43 42 0d 0a 20 20 20 20 20 20 20 20 4d 56   ,FCB..        MV
50: 49 20 20 20 20 20 43 2c 32 31 20 20 20 20 20 20   I     C,21
60: 20 20 20 20 20 20 3b 57 52 49 54 45 20 41 20 52         ;WRITE A R
70: 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 43   ECORD..        C
### Disk Sector 132 ###
00: 41 4c 4c 20 20 20 20 42 44 4f 53 0d 0a 20 20 20   ALL    BDOS..
10: 20 20 20 20 20 4f 52 41 20 20 20 20 20 41 20 20        ORA     A
20: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 53 55                ;SU
30: 43 43 45 53 53 46 55 4c 20 57 52 49 54 45 0d 0a   CCESSFUL WRITE..
40: 20 20 20 20 20 20 20 20 52 45 54 0d 0a 0d 0a 0d           RET.....
50: 0a 55 50 43 41 53 45 20 20 4c 58 49 20 20 20 20   .UPCASE  LXI
60: 20 48 2c 55 4d 53 47 0d 0a 20 20 20 20 20 20 20    H,UMSG..
70: 20 43 41 4c 4c 20 20 20 20 50 4d 53 47 0d 0a 20    CALL    PMSG..
### Disk Sector 133 ###
00: 20 20 20 20 20 20 20 4c 44 41 20 20 20 20 20 55          LDA     U
10: 50 43 53 57 0d 0a 20 20 20 20 20 20 20 20 58 52   PCSW..        XR
20: 49 20 20 20 20 20 38 30 48 0d 0a 20 20 20 20 20   I     80H..
30: 20 20 20 53 54 41 20 20 20 20 20 55 50 43 53 57      STA     UPCSW
40: 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20   ..        JMP
50: 20 20 43 44 49 4e 0d 0a 0d 0a 0d 0a 47 45 54 46     CDIN......GETF
60: 49 4c 20 20 4c 58 49 20 20 20 20 20 48 2c 46 43   IL  LXI     H,FC
70: 42 0d 0a 20 20 20 20 20 20 20 20 4d 56 49 20 20   B..        MVI
### Disk Sector 134 ###
00: 20 20 20 42 2c 33 33 0d 0a 47 54 46 4c 30 30 20      B,33..GTFL00
10: 20 4d 56 49 20 20 20 20 20 4d 2c 30 0d 0a 20 20    MVI     M,0..
20: 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 0d         INX     H.
30: 0a 20 20 20 20 20 20 20 20 44 43 52 20 20 20 20   .        DCR
40: 20 42 0d 0a 0d 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a    B..............
50: 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20   .        JNZ
60: 20 47 54 46 4c 30 30 0d 0a 20 20 20 20 20 20 20    GTFL00..
70: 20 4d 56 49 20 20 20 20 20 42 2c 31 31 0d 0a 20    MVI     B,11..
### Disk Sector 135 ###
00: 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48          LXI     H
10: 2c 46 43 42 2b 31 0d 0a 47 54 46 4c 30 31 20 20   ,FCB+1..GTFL01
20: 4d 56 49 20 20 20 20 20 4d 2c 27 20 27 0d 0a 20   MVI     M,' '..
30: 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48          INX     H
40: 0d 0a 20 20 20 20 20 20 20 20 44 43 52 20 20 20   ..        DCR
50: 20 20 42 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a     B..        JNZ
60: 20 20 20 20 20 47 54 46 4c 30 31 0d 0a 20 20 20        GTFL01..
70: 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 35        LXI     H,5
### Disk Sector 136 ###
00: 30 48 20 20 20 20 20 20 20 20 20 20 20 3b 53 45   0H           ;SE
10: 54 20 42 55 46 46 20 4c 45 4e 20 41 4e 44 20 43   T BUFF LEN AND C
20: 4f 4e 54 45 4e 54 0d 0a 20 20 20 20 20 20 20 20   ONTENT..
30: 53 48 4c 44 20 20 20 20 43 42 55 46 46 0d 0a 0d   SHLD    CBUFF...
40: 0a 20 20 20 20 20 20 20 20 4c 58 49 20 20 20 20   .        LXI
50: 20 44 2c 43 42 55 46 46 0d 0a 20 20 20 20 20 20    D,CBUFF..
60: 20 20 4d 56 49 20 20 20 20 20 43 2c 31 30 20 20     MVI     C,10
70: 20 20 20 20 20 20 20 20 20 20 3b 52 45 41 44 20             ;READ
### Disk Sector 137 ###
00: 49 4e 50 55 54 20 42 55 46 46 45 52 0d 0a 20 20   INPUT BUFFER..
10: 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 42 44         CALL    BD
20: 4f 53 0d 0a 20 20 20 20 20 20 20 20 4c 44 41 20   OS..        LDA
30: 20 20 20 20 43 42 55 46 46 2b 31 0d 0a 20 20 20       CBUFF+1..
40: 20 20 20 20 20 4c 58 49 20 20 20 20 20 44 2c 43        LXI     D,C
50: 42 55 46 46 2b 32 0d 0a 20 20 20 20 20 20 20 20   BUFF+2..
60: 4d 4f 56 20 20 20 20 20 42 2c 41 20 20 20 20 20   MOV     B,A
70: 20 20 20 20 20 20 20 20 3b 47 45 54 20 42 55 46           ;GET BUF
### Disk Sector 138 ###
00: 46 45 52 20 4c 45 4e 47 54 48 0d 0a 20 20 20 20   FER LENGTH..
10: 20 20 20 20 43 50 49 20 20 20 20 20 31 35 20 20       CPI     15
20: 20 20 20 20 20 20 20 20 20 20 20 20 3b 31 34 20               ;14
30: 49 53 20 4d 41 58 0d 0a 20 20 20 20 20 20 20 20   IS MAX..
40: 4a 4e 43 20 20 20 20 20 45 52 4f 50 45 4e 0d 0a   JNC     EROPEN..
50: 20 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20           CPI
60: 31 0d 0a 20 20 20 20 20 20 20 20 4a 43 20 20 20   1..        JC
70: 20 20 20 45 52 4f 50 45 4e 0d 0a 20 20 20 20 20      EROPEN..
### Disk Sector 139 ###
00: 20 20 20 4a 5a 20 20 20 20 20 20 47 54 46 4c 31      JZ      GTFL1
10: 0d 0a 20 20 20 20 20 20 20 20 4c 48 4c 44 20 20   ..        LHLD
20: 20 20 43 42 55 46 46 2b 32 20 20 20 20 20 20 20     CBUFF+2
30: 20 20 3b 47 45 54 20 49 53 54 20 54 57 4f 20 43     ;GET IST TWO C
40: 48 41 52 41 43 54 45 52 53 0d 0a 20 20 20 20 20   HARACTERS..
50: 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 48 0d 0a      MOV     A,H..
60: 20 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20           CPI
70: 27 3a 27 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a   ':'..        JNZ
### Disk Sector 140 ###
00: 20 20 20 20 20 47 54 46 4c 31 0d 0a 20 20 20 20        GTFL1..
10: 20 20 20 20 4d 56 49 20 20 20 20 20 44 2c 30 0d       MVI     D,0.
20: 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20   .        MOV
30: 20 41 2c 4c 0d 0a 20 20 20 20 20 20 20 20 41 4e    A,L..        AN
40: 49 20 20 20 20 20 35 46 48 20 20 20 20 20 20 20   I     5FH
50: 20 20 20 20 20 20 3b 46 4f 52 43 45 20 54 4f 20         ;FORCE TO
60: 55 50 50 45 52 20 43 41 53 45 0d 0a 20 20 20 20   UPPER CASE..
70: 20 20 20 20 4d 56 49 20 20 20 20 20 45 2c 30 20       MVI     E,0
### Disk Sector 141 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 3b 41 53 53               ;ASS
10: 55 4d 45 20 44 52 49 56 45 20 41 0d 0a 20 20 20   UME DRIVE A..
20: 20 20 20 20 20 43 50 49 20 20 20 20 20 27 42 27        CPI     'B'
30: 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20   ..        JNZ
40: 20 20 47 54 46 4c 30 0d 0a 20 20 20 20 20 20 20     GTFL0..
50: 20 4d 56 49 20 20 20 20 20 45 2c 31 20 20 20 20    MVI     E,1
60: 20 20 20 20 20 20 20 20 20 3b 53 45 54 20 46 4f            ;SET FO
70: 52 20 44 52 49 56 45 20 42 3a 0d 0a 47 54 46 4c   R DRIVE B:..GTFL
### Disk Sector 142 ###
00: 30 20 20 20 4d 56 49 20 20 20 20 20 43 2c 31 34   0   MVI     C,14
10: 20 20 20 20 20 20 20 20 20 20 20 20 3b 53 45 4c               ;SEL
20: 45 43 54 20 44 49 53 4b 20 44 52 49 56 45 0d 0a   ECT DISK DRIVE..
30: 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20           CALL
40: 42 44 4f 53 0d 0a 20 20 20 20 20 20 20 20 4c 44   BDOS..        LD
50: 41 20 20 20 20 20 43 42 55 46 46 2b 31 0d 0a 20   A     CBUFF+1..
60: 20 20 20 20 20 20 20 44 43 52 20 20 20 20 20 41          DCR     A
70: 0d 0a 20 20 20 20 20 20 20 20 44 43 52 20 20 20   ..        DCR
### Disk Sector 143 ###
00: 20 20 41 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56     A..        MOV
10: 20 20 20 20 20 42 2c 41 0d 0a 20 20 20 20 20 20        B,A..
20: 20 20 4c 58 49 20 20 20 20 20 44 2c 43 42 55 46     LXI     D,CBUF
30: 46 2b 34 0d 0a 47 54 46 4c 31 20 20 20 4c 58 49   F+4..GTFL1   LXI
40: 20 20 20 20 20 48 2c 46 43 42 2b 31 0d 0a 20 20        H,FCB+1..
50: 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 43 2c         MVI     C,
60: 39 0d 0a 47 54 46 4c 41 20 20 20 4c 44 41 58 20   9..GTFLA   LDAX
70: 20 20 20 44 0d 0a 20 20 20 20 20 20 20 20 49 4e      D..        IN
### Disk Sector 144 ###
00: 58 20 20 20 20 20 44 0d 0a 20 20 20 20 20 20 20   X     D..
10: 20 43 50 49 20 20 20 20 20 27 2e 27 0d 0a 20 20    CPI     '.'..
20: 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 47 54         JZ      GT
30: 46 4c 42 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56   FLB..        MOV
40: 20 20 20 20 20 4d 2c 41 0d 0a 20 20 20 20 20 20        M,A..
50: 20 20 49 4e 58 20 20 20 20 20 48 0d 0a 20 20 20     INX     H..
60: 20 20 20 20 20 44 43 52 20 20 20 20 20 42 0d 0a        DCR     B..
70: 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20           JZ
### Disk Sector 145 ###
00: 47 54 46 4c 39 0d 0a 20 20 20 20 20 20 20 20 44   GTFL9..        D
10: 43 52 20 20 20 20 20 43 0d 0a 20 20 20 20 20 20   CR     C..
20: 20 20 4a 4e 5a 20 20 20 20 20 47 54 46 4c 41 0d     JNZ     GTFLA.
30: 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20   .        JMP
40: 20 45 52 4f 50 45 4e 0d 0a 47 54 46 4c 42 20 20    EROPEN..GTFLB
50: 20 4c 58 49 20 20 20 20 20 48 2c 46 43 42 2b 39    LXI     H,FCB+9
60: 0d 0a 20 20 20 20 20 20 20 20 4d 56 49 20 20 20   ..        MVI
70: 20 20 43 2c 33 0d 0a 0d 0a 0a 0a 0a 0a 0a 0a 0a     C,3...........
### Disk Sector 146 ###
00: 0a 0a 0a 0a 47 54 46 4c 43 20 20 20 4c 44 41 58   ....GTFLC   LDAX
10: 20 20 20 20 44 0d 0a 20 20 20 20 20 20 20 20 49       D..        I
20: 4e 58 20 20 20 20 20 44 0d 0a 20 20 20 20 20 20   NX     D..
30: 20 20 4d 4f 56 20 20 20 20 20 4d 2c 41 0d 0a 20     MOV     M,A..
40: 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48          INX     H
50: 0d 0a 20 20 20 20 20 20 20 20 44 43 52 20 20 20   ..        DCR
60: 20 20 42 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20     B..        JZ
70: 20 20 20 20 20 47 54 46 4c 39 0d 0a 20 20 20 20        GTFL9..
### Disk Sector 147 ###
00: 20 20 20 20 44 43 52 20 20 20 20 20 43 0d 0a 20       DCR     C..
10: 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 47          JNZ     G
20: 54 46 4c 43 0d 0a 47 54 46 4c 39 20 20 20 4c 58   TFLC..GTFL9   LX
30: 49 20 20 20 20 20 48 2c 46 43 42 2b 31 0d 0a 20   I     H,FCB+1..
40: 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 43          MVI     C
50: 2c 31 31 0d 0a 47 54 46 4c 44 20 20 20 4d 4f 56   ,11..GTFLD   MOV
60: 20 20 20 20 20 41 2c 4d 0d 0a 20 20 20 20 20 20        A,M..
70: 20 20 43 50 49 20 20 20 20 20 27 20 27 0d 0a 20     CPI     ' '..
### Disk Sector 148 ###
00: 20 20 20 20 20 20 20 4a 43 20 20 20 20 20 20 45          JC      E
10: 52 4f 50 45 4e 0d 0a 20 20 20 20 20 20 20 20 4a   ROPEN..        J
20: 5a 20 20 20 20 20 20 47 54 46 4c 45 0d 0a 20 20   Z      GTFLE..
30: 20 20 20 20 20 20 43 50 49 20 20 20 20 20 27 30         CPI     '0
40: 27 0d 0a 20 20 20 20 20 20 20 20 4a 43 20 20 20   '..        JC
50: 20 20 20 45 52 4f 50 45 4e 0d 0a 20 20 20 20 20      EROPEN..
60: 20 20 20 43 50 49 20 20 20 20 20 27 3a 27 0d 0a      CPI     ':'..
70: 20 20 20 20 20 20 20 20 4a 43 20 20 20 20 20 20           JC
### Disk Sector 149 ###
00: 47 54 46 4c 45 0d 0a 20 20 20 20 20 20 20 20 43   GTFLE..        C
10: 50 49 20 20 20 20 20 27 41 27 0d 0a 20 20 20 20   PI     'A'..
20: 20 20 20 20 4a 43 20 20 20 20 20 20 45 52 4f 50       JC      EROP
30: 45 4e 0d 0a 20 20 20 20 20 20 20 20 43 50 49 20   EN..        CPI
40: 20 20 20 20 27 5a 27 2b 31 0d 0a 20 20 20 20 20       'Z'+1..
50: 20 20 20 4a 43 20 20 20 20 20 20 47 54 46 4c 45      JC      GTFLE
60: 0d 0a 20 20 20 20 20 20 20 20 43 50 49 20 20 20   ..        CPI
70: 20 20 36 31 48 0d 0a 20 20 20 20 20 20 20 20 4a     61H..        J
### Disk Sector 150 ###
00: 43 20 20 20 20 20 20 45 52 4f 50 45 4e 0d 0a 20   C      EROPEN..
10: 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 37          CPI     7
20: 42 48 0d 0a 20 20 20 20 20 20 20 20 4a 4e 43 20   BH..        JNC
30: 20 20 20 20 45 52 4f 50 45 4e 0d 0a 20 20 20 20       EROPEN..
40: 20 20 20 20 41 4e 49 20 20 20 20 20 35 46 48 0d       ANI     5FH.
50: 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20   .        MOV
60: 20 4d 2c 41 0d 0a 47 54 46 4c 45 20 20 20 49 4e    M,A..GTFLE   IN
70: 58 20 20 20 20 20 48 0d 0a 20 20 20 20 20 20 20   X     H..
### Disk Sector 151 ###
00: 20 44 43 52 20 20 20 20 20 43 0d 0a 20 20 20 20    DCR     C..
10: 20 20 20 20 4a 4e 5a 20 20 20 20 20 47 54 46 4c       JNZ     GTFL
20: 44 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20   D..        CALL
30: 20 20 20 43 43 52 4c 46 0d 0a 20 20 20 20 20 20      CCRLF..
40: 20 20 52 45 54 0d 0a 0d 0a 4d 41 4b 46 49 4c 20     RET....MAKFIL
50: 20 4c 58 49 20 20 20 20 20 44 2c 46 43 42 0d 0a    LXI     D,FCB..
60: 20 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20           MVI
70: 43 2c 32 32 20 20 20 20 20 20 20 20 20 20 20 20   C,22
### Disk Sector 152 ###
00: 3b 4d 41 4b 45 20 46 49 4c 45 0d 0a 20 20 20 20   ;MAKE FILE..
10: 20 20 20 20 43 41 4c 4c 20 20 20 20 42 44 4f 53       CALL    BDOS
20: 0d 0a 20 20 20 20 20 20 20 20 43 50 49 20 20 20   ..        CPI
30: 20 20 32 35 35 0d 0a 20 20 20 20 20 20 20 20 4a     255..        J
40: 5a 20 20 20 20 20 20 45 52 4f 50 45 4e 0d 0a 46   Z      EROPEN..F
50: 4f 50 45 4e 20 20 20 4c 58 49 20 20 20 20 20 44   OPEN   LXI     D
60: 2c 46 43 42 0d 0a 20 20 20 20 20 20 20 20 4d 56   ,FCB..        MV
70: 49 20 20 20 20 20 43 2c 31 35 20 20 20 20 20 20   I     C,15
### Disk Sector 153 ###
00: 20 20 20 20 20 20 3b 4f 50 45 4e 20 46 49 4c 45         ;OPEN FILE
10: 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20   ..        CALL
20: 20 20 42 44 4f 53 0d 0a 20 20 20 20 20 20 20 20     BDOS..
30: 4c 58 49 20 20 20 20 20 48 2c 54 42 55 46 46 0d   LXI     H,TBUFF.
40: 0a 20 20 20 20 20 20 20 20 53 48 4c 44 20 20 20   .        SHLD
50: 20 43 55 52 50 54 52 0d 0a 20 20 20 20 20 20 20    CURPTR..
60: 20 43 50 49 20 20 20 20 20 32 35 35 0d 0a 20 20    CPI     255..
70: 20 20 20 20 20 20 52 4e 5a 0d 0a 20 20 20 20 20         RNZ..
### Disk Sector 154 ###
00: 20 20 20 4c 44 41 20 20 20 20 20 4d 4f 44 45 53      LDA     MODES
10: 57 0d 0a 20 20 20 20 20 20 20 20 43 50 49 20 20   W..        CPI
20: 20 20 20 32 0d 0a 20 20 20 20 20 20 20 20 4a 5a      2..        JZ
30: 20 20 20 20 20 20 4d 41 4b 46 49 4c 0d 0a 45 52         MAKFIL..ER
40: 4f 50 45 4e 20 20 4c 58 49 20 20 20 20 20 48 2c   OPEN  LXI     H,
50: 4f 50 4d 53 47 0d 0a 20 20 20 20 20 20 20 20 43   OPMSG..        C
60: 41 4c 4c 20 20 20 20 50 4d 53 47 0d 0a 20 20 20   ALL    PMSG..
70: 20 20 20 20 20 43 41 4c 4c 20 20 20 20 42 41 44        CALL    BAD
### Disk Sector 155 ###
00: 43 4d 44 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50   CMD..        JMP
10: 20 20 20 20 20 54 45 52 4d 0d 0a 0d 0a 0d 0a 0a        TERM.......
20: 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 52 45 43 56 20 20   ..........RECV
30: 20 20 4c 58 49 20 20 20 20 20 48 2c 52 4d 53 47     LXI     H,RMSG
40: 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20   ..        CALL
50: 20 20 50 4d 53 47 0d 0a 20 20 20 20 20 20 20 20     PMSG..
60: 4c 44 41 20 20 20 20 20 4d 4f 44 45 53 57 0d 0a   LDA     MODESW..
70: 20 20 20 20 20 20 20 20 4f 52 41 20 20 20 20 20           ORA
### Disk Sector 156 ###
00: 41 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20   A..        JNZ
10: 20 20 20 42 41 44 43 4d 44 0d 0a 20 20 20 20 20      BADCMD..
20: 20 20 20 4d 56 49 20 20 20 20 20 41 2c 32 0d 0a      MVI     A,2..
30: 20 20 20 20 20 20 20 20 53 54 41 20 20 20 20 20           STA
40: 4d 4f 44 45 53 57 0d 0a 20 20 20 20 20 20 20 20   MODESW..
50: 4c 58 49 20 20 20 20 20 48 2c 44 53 4b 4d 53 47   LXI     H,DSKMSG
60: 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20   ..        CALL
70: 20 20 50 4d 53 47 0d 0a 20 20 20 20 20 20 20 20     PMSG..
### Disk Sector 157 ###
00: 43 41 4c 4c 20 20 20 20 47 45 54 46 49 4c 0d 0a   CALL    GETFIL..
10: 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20           CALL
20: 46 4f 50 45 4e 0d 0a 20 20 20 20 20 20 20 20 4d   FOPEN..        M
30: 56 49 20 20 20 20 20 41 2c 31 41 48 0d 0a 20 20   VI     A,1AH..
40: 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c         LXI     H,
50: 46 42 55 46 46 0d 0a 20 20 20 20 20 20 20 20 4d   FBUFF..        M
60: 4f 56 20 20 20 20 20 4d 2c 41 0d 0a 20 20 20 20   OV     M,A..
70: 20 20 20 20 53 48 4c 44 20 20 20 20 43 55 52 50       SHLD    CURP
### Disk Sector 158 ###
00: 54 52 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20   TR..        JMP
10: 20 20 20 20 54 45 52 4d 41 0d 0a 0d 0a 53 45 4e       TERMA....SEN
20: 44 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 53   D    LXI     H,S
30: 4d 53 47 0d 0a 20 20 20 20 20 20 20 20 43 41 4c   MSG..        CAL
40: 4c 20 20 20 20 50 4d 53 47 0d 0a 20 20 20 20 20   L    PMSG..
50: 20 20 20 4c 44 41 20 20 20 20 20 4d 4f 44 45 53      LDA     MODES
60: 57 0d 0a 20 20 20 20 20 20 20 20 4f 52 41 20 20   W..        ORA
70: 20 20 20 41 0d 0a 20 20 20 20 20 20 20 20 4a 4e      A..        JN
### Disk Sector 159 ###
00: 5a 20 20 20 20 20 42 41 44 43 4d 44 0d 0a 20 20   Z     BADCMD..
10: 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 41 2c         MVI     A,
20: 31 0d 0a 20 20 20 20 20 20 20 20 53 54 41 20 20   1..        STA
30: 20 20 20 4d 4f 44 45 53 57 0d 0a 20 20 20 20 20      MODESW..
40: 20 20 20 4c 58 49 20 20 20 20 20 48 2c 44 53 4b      LXI     H,DSK
50: 4d 53 47 0d 0a 20 20 20 20 20 20 20 20 43 41 4c   MSG..        CAL
60: 4c 20 20 20 20 50 4d 53 47 0d 0a 20 20 20 20 20   L    PMSG..
70: 20 20 20 43 41 4c 4c 20 20 20 20 47 45 54 46 49      CALL    GETFI
### Disk Sector 160 ###
00: 4c 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20   L..        CALL
10: 20 20 20 46 4f 50 45 4e 0d 0a 20 20 20 20 20 20      FOPEN..
20: 20 20 4c 58 49 20 20 20 20 20 44 2c 46 43 42 0d     LXI     D,FCB.
30: 0a 20 20 20 20 20 20 20 20 4d 56 49 20 20 20 20   .        MVI
40: 20 43 2c 32 30 20 20 20 20 20 20 20 20 20 20 20    C,20
50: 20 3b 52 45 41 44 20 46 49 52 53 54 20 52 45 43    ;READ FIRST REC
60: 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 43 41 4c   ORD..        CAL
70: 4c 20 20 20 20 42 44 4f 53 0d 0a 20 20 20 20 20   L    BDOS..
### Disk Sector 161 ###
00: 20 20 20 4f 52 41 20 20 20 20 20 41 0d 0a 20 20      ORA     A..
10: 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 45 52         JNZ     ER
20: 4f 50 45 4e 0d 0a 20 20 20 20 20 20 20 20 4a 4d   OPEN..        JM
30: 50 20 20 20 20 20 54 45 52 4d 41 0d 0a 3b 0d 0a   P     TERMA..;..
40: 50 52 54 53 57 20 20 20 44 42 20 20 20 20 20 20   PRTSW   DB
50: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   0
60: 3b 20 30 20 3d 20 4e 4f 20 20 31 20 3d 20 50 52   ; 0 = NO  1 = PR
70: 49 4e 54 20 4f 4e 0d 0a 43 52 4c 46 53 57 20 20   INT ON..CRLFSW
### Disk Sector 162 ###
00: 44 42 20 20 20 20 20 20 30 20 20 20 20 20 20 20   DB      0
10: 20 20 20 20 20 20 20 20 3b 20 30 20 3d 20 4e 4f           ; 0 = NO
20: 20 41 55 54 4f 20 4c 46 20 20 20 31 20 3d 20 41    AUTO LF   1 = A
30: 55 54 4f 20 4c 46 0d 0a 45 43 48 4f 53 57 20 20   UTO LF..ECHOSW
40: 44 42 20 20 20 20 20 20 30 20 20 20 20 20 20 20   DB      0
50: 20 20 20 20 20 20 20 20 3b 20 30 20 3d 20 4e 4f           ; 0 = NO
60: 20 45 43 48 4f 20 20 20 20 20 20 31 20 3d 20 45    ECHO      1 = E
70: 43 48 4f 0d 0a 4d 4f 44 45 53 57 20 20 44 42 20   CHO..MODESW  DB
### Disk Sector 163 ###
00: 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20        0
10: 20 20 20 20 20 3b 20 30 20 3d 20 4e 4f 20 54 52        ; 0 = NO TR
20: 41 4e 53 20 20 20 20 20 31 20 3d 20 53 45 4e 44   ANS     1 = SEND
30: 20 20 20 32 20 3d 20 52 45 43 45 49 56 45 0d 0a      2 = RECEIVE..
40: 53 4f 53 4c 4f 57 20 20 44 57 20 20 20 20 20 20   SOSLOW  DW
50: 31 30 30 48 20 20 20 20 20 20 20 20 20 20 20 20   100H
60: 3b 20 55 53 45 44 20 54 4f 20 53 4c 4f 57 20 44   ; USED TO SLOW D
70: 4f 57 4e 20 42 55 46 46 45 52 20 53 45 4e 44 0d   OWN BUFFER SEND.
### Disk Sector 164 ###
00: 0a 3b 0d 0a 43 55 52 50 54 52 20 20 44 57 20 20   .;..CURPTR  DW
10: 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20       0
20: 20 20 20 20 3b 43 55 52 52 45 4e 54 20 50 4f 53       ;CURRENT POS
30: 49 54 49 4f 4e 20 49 4e 20 42 55 46 46 45 52 0d   ITION IN BUFFER.
40: 0a 43 4f 4d 4d 53 47 20 20 44 42 20 20 20 20 20   .COMMSG  DB
50: 20 31 33 2c 31 30 2c 27 3e 3e 20 43 4c 4f 53 45    13,10,'>> CLOSE
60: 2c 20 44 45 4c 41 59 2c 20 45 43 48 4f 2c 20 4c   , DELAY, ECHO, L
70: 49 4e 45 46 45 45 44 2c 20 27 0d 0a 20 20 20 20   INEFEED, '..
### Disk Sector 165 ###
00: 20 20 20 20 44 42 20 20 20 20 20 20 27 50 52 49       DB      'PRI
10: 4e 54 2c 20 51 55 49 54 2c 20 53 45 4e 44 2c 20   NT, QUIT, SEND,
20: 52 45 43 45 49 56 45 2c 20 55 50 50 45 52 43 41   RECEIVE, UPPERCA
30: 53 45 27 0d 0a 20 20 20 20 20 20 20 20 44 42 20   SE'..        DB
40: 20 20 20 20 20 31 33 2c 31 30 2c 27 3e 3e 20 27        13,10,'>> '
50: 2c 30 0d 0a 43 4d 53 47 20 20 20 20 44 42 20 20   ,0..CMSG    DB
60: 20 20 20 20 27 4c 4f 53 45 20 46 49 4c 45 53 27       'LOSE FILES'
70: 2c 31 33 2c 31 30 2c 30 0d 0a 44 4d 53 47 20 20   ,13,10,0..DMSG
### Disk Sector 166 ###
00: 20 20 44 42 20 20 20 20 20 20 27 45 4c 41 59 20     DB      'ELAY
10: 46 41 43 54 4f 52 20 42 55 4d 50 45 44 20 42 59   FACTOR BUMPED BY
20: 20 4f 4e 45 27 2c 31 33 2c 31 30 2c 30 0d 0a 45    ONE',13,10,0..E
30: 43 4d 53 47 20 20 20 44 42 20 20 20 20 20 20 27   CMSG   DB      '
40: 43 48 4f 20 54 4f 47 47 4c 45 27 2c 31 33 2c 31   CHO TOGGLE',13,1
50: 30 2c 30 0d 0a 4c 46 4d 53 47 20 20 20 44 42 20   0,0..LFMSG   DB
60: 20 20 20 20 20 27 49 4e 45 20 46 45 45 44 20 28        'INE FEED (
70: 41 55 54 4f 4d 41 54 49 43 29 20 54 4f 47 47 4c   AUTOMATIC) TOGGL
### Disk Sector 167 ###
00: 45 27 2c 31 33 2c 31 30 2c 30 0d 0a 50 46 4d 53   E',13,10,0..PFMS
10: 47 20 20 20 44 42 20 20 20 20 20 20 27 52 49 4e   G   DB      'RIN
20: 54 20 54 4f 47 47 4c 45 27 2c 31 33 2c 31 30 2c   T TOGGLE',13,10,
30: 30 0d 0a 51 4d 53 47 20 20 20 20 44 42 20 20 20   0..QMSG    DB
40: 20 20 20 27 55 49 54 27 2c 31 33 2c 31 30 2c 30      'UIT',13,10,0
50: 0d 0a 53 4d 53 47 20 20 20 20 44 42 20 20 20 20   ..SMSG    DB
60: 20 20 27 45 4e 44 20 27 2c 30 0d 0a 44 53 4b 4d     'END ',0..DSKM
70: 53 47 20 20 44 42 20 20 20 20 20 20 27 5b 3c 44   SG  DB      '[<D
### Disk Sector 168 ###
00: 49 53 4b 3e 3a 5d 3c 46 49 4c 45 4e 41 4d 45 3e   ISK>:]<FILENAME>
10: 5b 2e 3c 45 58 54 3e 5d 20 27 2c 30 0d 0a 52 4d   [.<EXT>] ',0..RM
20: 53 47 20 20 20 20 44 42 20 20 20 20 20 20 27 45   SG    DB      'E
30: 43 45 49 56 45 20 27 2c 30 0d 0a 0d 0a 0a 0a 0a   CEIVE ',0.......
40: 0a 0a 0a 0a 0a 0a 0a 0a 55 4d 53 47 20 20 20 20   ........UMSG
50: 44 42 20 20 20 20 20 20 27 50 50 45 52 20 43 41   DB      'PPER CA
60: 53 45 20 4c 4f 43 4b 20 54 4f 47 47 4c 45 27 2c   SE LOCK TOGGLE',
70: 31 33 2c 31 30 2c 30 0d 0a 42 41 44 43 4d 53 47   13,10,0..BADCMSG
### Disk Sector 169 ###
00: 20 44 42 20 20 20 20 20 20 27 20 3f 3f 3f 3f 20    DB      ' ????
10: 2d 20 49 4e 56 41 4c 49 44 20 43 4f 4d 4d 41 4e   - INVALID COMMAN
20: 44 27 2c 31 33 2c 31 30 2c 30 0d 0a 43 4c 4d 53   D',13,10,0..CLMS
30: 47 e0 5f 02 02 02 02 02 8a 9a 62 8a 82 62 3a 6a   G._.......b..b:j
40: 6a 6a 02 32 25 31 15 81 4e 4f 57 20 43 4c 4f 53   jj.2%1..NOW CLOS
50: 45 44 20 2d 2d 2d 27 2c 31 33 2c 31 30 2c 30 0d   ED ---',13,10,0.
60: 0a 4f 50 4d 53 47 20 20 20 44 42 20 20 20 20 20   .OPMSG   DB
70: 20 31 33 2c 31 30 2c 27 2a 2a 2a 20 df 09 00 55    13,10,'*** ...U
### Disk Sector 170 ###
00: 4f 50 45 4e 20 45 52 52 4f 52 20 2a 2a 2a 27 2c   OPEN ERROR ***',
10: 31 33 2c 31 30 2c 30 0d 0a 3b 0d 0a 48 49 41 44   13,10,0..;..HIAD
20: 44 52 20 20 44 42 20 20 20 20 20 20 30 20 20 20   DR  DB      0
30: 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 57 20               ;DW
40: 41 44 44 52 45 53 53 20 4f 46 20 48 49 47 48 20   ADDRESS OF HIGH
50: 4d 45 4d 4f 52 59 0d 0a 48 49 4d 45 4d 20 20 20   MEMORY..HIMEM
60: 44 42 20 20 20 20 20 20 30 20 20 20 20 20 20 20   DB      0
70: 20 20 20 20 20 20 20 20 3b 48 49 20 42 59 54 45           ;HI BYTE
### Disk Sector 171 ###
00: 20 4f 46 20 48 49 41 44 44 52 0d 0a 46 42 55 46    OF HIADDR..FBUF
10: 46 20 20 20 44 42 20 20 20 20 20 20 30 31 41 48   F   DB      01AH
20: 20 20 20 20 20 20 20 20 20 20 20 20 3b 42 55 46               ;BUF
30: 46 45 52 20 41 52 45 41 0d 0a 20 20 20 20 20 20   FER AREA..
40: 20 20 45 4e 44 0d 0a 0d 0a 0d 0a 41 3e 00 00 00     END......A>...
50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................