; -----------------------------------------------------------------------------
; ADFS 2.03 (c) Acorn 1984
; ADFS for the Acorn Master
; reverse engineered by Eelco Huininga
; Load address : 00008000
; Exec address : 0000D9CD
; Length       : 00004000
; -----------------------------------------------------------------------------
; Zero page memory usage:
; &CD         : Status byte
;               bit 0 : File ensuring in progress (IRQ pending)
;               bit 1 : Bad free space map
;               bit 2 : *OPT1 setting
;               bit 3 : undefined
;               bit 4 : Free space map in memory inconsistant/being loaded
;               bit 5 : Winchester disc controller present
;               bit 6 : TUBE claimed by ADFS
;               bit 7 : TUBE present
; &CE         : Current retries value
; Hazel memory usage
; &C200       : Default retries value
; &C215-&C218 : 32-bit value of the available free space
; &C317       : Current drive number
; &C8FA       : The Master sequence number for the current directory (in BCD)
; -----------------------------------------------------------------------------

dfs_fsid           = 4                            ; DFS' file system ID
adfs_fsid          = 8                            ; ADFS' file system ID
tubeid             = &4                           ; When claiming the TUBE, we'll use ID &4

; -----------------------------------------------------------------------------
; Device addresses
; -----------------------------------------------------------------------------

wdc_data           = &FC40                        ; (Read/Write) Data register
wdc_status         = &FC41                        ; (Read)       Status register
                                                  ; bit 7   : C/D (0=Command, 1=Data)
                                                  ; bit 6   : I/O (0=Input, 1=Output)
                                                  ; bit 5   : REQ
                                                  ; bit 4   : IRQ
                                                  ; bit 3,2 : Not used (always 0)
                                                  ; bit 1   : BSY
                                                  ; bit 0   : MSG
wdc_select         = &FC42                        ; (Write)      Select register (data is irrelevant)
wdc_interrupt      = &FC43                        ; (Write)      Interrupt latch register
                                                  ; bit 7-1 : Not used
                                                  ; bit 0   : Interrupt enable

fdc_command        = &FE28                        ; (Write)      Command register
fdc_status         = &FE28                        ; (Read)       Status register
fdc_track          = &FE29                        ; (Read/Write) Track register
fdc_sector         = &FE2A                        ; (Read/Write) Sector register
fdc_data           = &FE2B                        ; (Read/Write) Data register

romsel             = &FE30                        ; Paged ROM select register
acccon             = &FE34                        ; Memory access control register

sysvia_t1cl        = &FE44                        ; System VIA's T1 low-order latch

tubedat            = &FEE5                        ; TUBE ULA's data transfer register


; -----------------------------------------------------------------------------
; OS call addresses
; -----------------------------------------------------------------------------
fscv               = &021E                        ; FSCV Varous filing system control functions
evntv              = &0220                        ; EVNTV Event vector
tubecontrol        = &0406                        ; TUBE control (claim/data transfer/release)
osargs             = &FFDA                        ; OSARGS Load or save file parameters
osasci             = &FFE3                        ; OSASCI Write a character, with CR converted to LF
osword             = &FFF1                        ; OSWORD Various OS routines
osbyte             = &FFF4                        ; OSBYTE Various OS routines
oscli              = &FFF7                        ; OSCLI Operating System Command Line Interface


; -----------------------------------------------------------------------------
; Start of code
; -----------------------------------------------------------------------------

8000  00           .     BRK                      ; Language call entry
8001  00           .     BRK
8002  00           .     BRK
8003  4C 3C 9E     L<.   JMP service              ; Service call entry
8006  82           .     EQUB %10000010           ; ROM type; bit 7   = 1    : Has a service entry
                                                  ;           bit 6   = 0    : Has no language entry
                                                  ;           bit 5   = 0    : Code isn't relocatable to the second processor
                                                  ;           bit 4   = 0    : No Electron firm key expansions availabe
                                                  ;           bit 3-0 = 0010 : 6502 code (not BASIC)
8007  17           .     EQUB &17                 ; Copyright offset
8008  03           .     EQUB &03                 ; Version
8009  41 63 6F 72  Acor  EQUS "Acorn ADFS"        ; Title
      6E 20 41 44  n AD
      46 53        FS
8013  00           .     EQUB &00                 ; Title termination byte
8014  32 30 33     203   EQUS "203"               ; Version string
8017  00           .     EQUB &00                 ; Version string termination byte
8018  28 43 29 31  (C)1  EQUS "(C)1984"           ; Copyright string
      39 38 34     984
801F  00           .     EQUB &00                 ; Copyright string termination byte

; -----------------------------------------------------------------------------
; Claim the TUBE
; -----------------------------------------------------------------------------
.claimtube
8020  A0 04        ..    LDY #&04
8022  24 CD        $.    BIT &CD
8024  10 13        ..    BPL &8039                ; Jump if no TUBE is present
8026  B1 B0        ..    LDA (&B0),Y
8028  99 26 C2     .&.   STA &C226,Y
802B  88           .     DEY
802C  D0 F8        ..    BNE &8026
802E  A9 40        .@    LDA #%01000000
8030  04 CD        ..    TSB &CD                  ; Set bit 6 of &CD (TUBE claimed by ADFS)
.claimtube01
8032  A9 C4        ..    LDA #&C0+tubeid          ; Claim the TUBE using ID 4
8034  20 06 04      ..   JSR tubecontrol
8037  90 F9        ..    BCC &8032
.claimtube02
8039  60           `     RTS

; -----------------------------------------------------------------------------
; Release the TUBE
; -----------------------------------------------------------------------------
.reltube
803A  24 CD        $.    BIT &CD
803C  50 09        P.    BVC &8047                ; Jump if the TUBE isn't claimed by ADFS
803E  A9 84        ..    LDA #&80+tubeid          ; Release the TUBE
8040  20 06 04      ..   JSR tubecontrol
8043  A9 40        .@    LDA #%01000000
8045  14 CD        ..    TRB &CD                  ; Clear bit 6 of &CD (TUBE claimed by ADFS)
.reltube01
8047  AD D7 C2     ...   LDA &C2D7
804A  F0 03        ..    BEQ &804F
804C  8D 34 FE     .4.   STA acccon
.reltube02
804F  9C D7 C2     ...   STZ &C2D7
8052  60           `     RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8053  5A           Z     PHY
8054  AC 34 FE     .4.   LDY acccon
8057  8C D7 C2     ...   STY &C2D7
805A  E8           .     INX
805B  D0 10        ..    BNE &806D
805D  C9 FE        ..    CMP #&FE
805F  D0 0C        ..    BNE &806D
8061  98           .     TYA
8062  6A           j     ROR A                    ; C = bit 0 of the ACCCON register
8063  A9 04        ..    LDA #%00000100
8065  1C 34 FE     .4.   TRB acccon               ; Clear bit 2 of the ACCCON register (Select normal RAM)
8068  90 03        ..    BCC &806D                ; Jump if bit 0 of the ACCCON register is cleared (Use shadow RAM for screen memory)
806A  0C 34 FE     .4.   TSB acccon               ; Set bit 2 of the ACCCON register (Select shadow RAM)
.
806D  7A           z     PLY
806E  60           `     RTS

; -----------------------------------------------------------------------------
; Get the winchester drive status
; -----------------------------------------------------------------------------
.
806F  08           .     PHP
8070  AD 41 FC     .A.   LDA wdc_status
8073  85 CC        ..    STA &CC
8075  AD 41 FC     .A.   LDA wdc_status
8078  C5 CC        ..    CMP &CC
807A  D0 F4        ..    BNE &8070
807C  28           (     PLP
807D  60           `     RTS

; -----------------------------------------------------------------------------
; Recalibrate the winchester drive
; -----------------------------------------------------------------------------
.
807E  A0 00        ..    LDY #&00
8080  A9 01        ..    LDA #&01                 ; Command &01: Recalibrate drive
8082  48           H     PHA
.
8083  20 6F 80      o.   JSR &806F                ; Get the winchester drive status
8086  29 02        ).    AND #%00000010           ; Mask out the BSY bit
8088  D0 F9        ..    BNE &8083                ; Loop until the BSY bit becomes cleared
808A  68           h     PLA
808B  8D 40 FC     .@.   STA wdc_data
808E  8D 42 FC     .B.   STA wdc_select
.
8091  20 6F 80      o.   JSR &806F                ; Get the winchester drive status
8094  29 02        ).    AND #%00000010           ; Mask out the BSY bit
8096  F0 F9        ..    BEQ &8091                ; Loop until the BSY bit becomes set
.
8098  60           `     RTS

; -----------------------------------------------------------------------------
; Initialise retries value
; -----------------------------------------------------------------------------
.
8099  AD 00 C2     ...   LDA &C200                ; Get default retries value
809C  85 CE        ..    STA &CE                  ; Set current retries value
809E  60           `     RTS

; -----------------------------------------------------------------------------
; On entry, X and Y point to the parameter block
; -----------------------------------------------------------------------------
.
809F  4C CA 82     L..   JMP &82CA
.
80A2  20 29 83      ).   JSR &8329
80A5  86 B0        ..    STX &B0                  ; Point &B0 and &B1 to the parameterblock
80A7  84 B1        ..    STY &B1
80A9  20 03 AA      ..   JSR &AA03
80AC  A0 05        ..    LDY #&05
80AE  B1 B0        ..    LDA (&B0),Y              ; XY+5 (command)
80B0  C9 2F        ./    CMP #&2F
80B2  F0 2B        .+    BEQ &80DF                ; Jump if the command is &2F: Verify
80B4  C9 1B        ..    CMP #&1B
80B6  F0 27        .'    BEQ &80DF                ; Jump if the command is &1B: Park
80B8  20 99 80      ..   JSR &8099
80BB  10 1A        ..    BPL &80D7
80BD  20 DF 80      ..   JSR &80DF
80C0  F0 D6        ..    BEQ &8098
80C2  C9 04        ..    CMP #&04
80C4  D0 11        ..    BNE &80D7
80C6  A0 19        ..    LDY #&19
.
80C8  24 FF        $.    BIT &FF                  ; Is an unserviced Escape pending?
80CA  30 D3        0.    BMI &809F                ; If so, handle it
80CC  38           8     SEC
80CD  E9 01        ..    SBC #&01
80CF  D0 F7        ..    BNE &80C8
80D1  CA           .     DEX
80D2  D0 F4        ..    BNE &80C8
80D4  88           .     DEY
80D5  D0 F1        ..    BNE &80C8
.
80D7  C9 40        .@    CMP #&40
80D9  F0 04        ..    BEQ &80DF
80DB  C6 CE        ..    DEC &CE                  ; Decrease the number of retries
80DD  10 DE        ..    BPL &80BD
.
80DF  A0 04        ..    LDY #&04
80E1  B1 B0        ..    LDA (&B0),Y
80E3  AA           .     TAX                      ; X = XY+4 (Pointer to data in memory)
80E4  88           .     DEY
80E5  B1 B0        ..    LDA (&B0),Y              ; A = XY+3 (Pointer to data in memory)
80E7  20 53 80      S.   JSR &8053
80EA  A5 CD        ..    LDA &CD
80EC  29 20        )     AND #%00100000
80EE  D0 23        .#    BNE &8113                ; Jump if the 'Winchester disc controller present' flag is set
.
80F0  20 AF BF      ..   JSR &BFAF
80F3  9E B8        ..    EQUW &B89E
80F5  F0 1B        ..    BEQ &8112
80F7  48           H     PHA
80F8  A0 06        ..    LDY #&06
80FA  B1 B0        ..    LDA (&B0),Y
80FC  0D 17 C3     ...   ORA &C317
80FF  8D D2 C2     ...   STA &C2D2
8102  C8           .     INY
8103  B1 B0        ..    LDA (&B0),Y
8105  8D D1 C2     ...   STA &C2D1
8108  C8           .     INY
8109  B1 B0        ..    LDA (&B0),Y
810B  8D D0 C2     ...   STA &C2D0
810E  68           h     PLA
810F  8D D3 C2     ...   STA &C2D3
8112  60           `     RTS
.
8113  A0 06        ..    LDY #&06
8115  B1 B0        ..    LDA (&B0),Y              ; XY+6 (bit7-5: drive number, bit4-0: high order bits of absolute sector number)
8117  0D 17 C3     ...   ORA &C317
811A  30 D4        0.    BMI &80F0                ; Jump if it's drive number 4-7 (floppy disc)
811C  20 7E 80      ~.   JSR &807E                ; Recalibrate the winchester drive
811F  C8           .     INY
8120  B1 B0        ..    LDA (&B0),Y              ; Point &B2 and &B3 to the memory location
8122  85 B2        ..    STA &B2                  
8124  C8           .     INY
8125  B1 B0        ..    LDA (&B0),Y
8127  85 B3        ..    STA &B3
8129  C8           .     INY
812A  B1 B0        ..    LDA (&B0),Y
812C  C9 FE        ..    CMP #&FE
812E  90 06        ..    BCC &8136                ; Jump if XY+3 <= &FE
8130  C8           .     INY
8131  B1 B0        ..    LDA (&B0),Y
8133  1A           .     INC A
8134  F0 03        ..    BEQ &8139                ; Jump if XY+4 = &FF
.
8136  20 20 80       .   JSR &8020                ; Claim the TUBE
.
8139  A0 05        ..    LDY #&05
813B  B1 B0        ..    LDA (&B0),Y              ; XY+5 (command)
813D  20 3F 83      ?.   JSR &833F                ; Send A to the winchester disc controller
8140  C8           .     INY
8141  B1 B0        ..    LDA (&B0),Y
8143  0D 17 C3     ...   ORA &C317
8146  8D 33 C3     .3.   STA &C333                ; &C333 = XY+6 OR-ed with the 'Current drive number'
8149  80 02        ..    BRA &814D
.
814B  B1 B0        ..    LDA (&B0),Y
.
814D  20 3F 83      ?.   JSR &833F                ; Send A to the winchester disc controller
8150  20 33 83      3.   JSR &8333
8153  10 05        ..    BPL &815A
8155  70 03        p.    BCS &815A
8157  C8           .     INY
8158  D0 F1        ..    BNE &814B                ; Loop through the rest of the parameters
.
815A  A0 05        ..    LDY #&05
815C  B1 B0        ..    LDA (&B0),Y
815E  29 FD        ).    AND #&FD
8160  49 08        I.    EOR #&08
8162  F0 78        .x    BEQ &81DC                ; Jump if it's a read command
8164  20 33 83      3.   JSR &8333
8167  18           .     CLC
8168  50 01        P.    BVC &816B
816A  38           8     SEC
.
816B  A0 00        ..    LDY #&00
816D  24 CD        $.    BIT &CD
816F  50 0C        P.    BVC &817D                ; Jump if TUBE isn't claimed by ADFS
8171  A2 27        .'    LDX #&27
8173  A0 C2        ..    LDY #&C2
8175  A9 00        ..    LDA #&00
8177  08           .     PHP
8178  2A           *     ROL A                    ; Depending of the result of the JSR &8333 at 8164, A will be 0 or 1
8179  20 14 82      ..   JSR &8214
817C  28           (     PLP
.
817D  20 33 83      3.   JSR &8333
8180  30 2C        0,    BMI &81AE
8182  24 CD        $.    BIT &CD
8184  70 16        p.    BCS &819C
8186  B0 07        ..    BCS &818F                ; Useless command???
8188  B1 B2        ..    LDA (&B2),Y
818A  8D 40 FC     .@.   STA wdc_data             ; Write data from host memory to the winchester disc controller
818D  80 05        ..    BRA &8194
.
818F  AD 40 FC     .@.   LDA wdc_data             ; Read data from the winchester disc controller to host memory
8192  91 B2        ..    STA (&B2),Y
.
8194  C8           .     INY
8195  D0 E6        ..    BNE &817D
8197  E6 B3        ..    INC &B3
8199  4C 7D 81     L}.   JMP &817D
.
819C  B0 08        ..    BCS &81A6
819E  AD E5 FE     ...   LDA tubedat
81A1  8D 40 FC     .@.   STA wdc_data             ; Write data from parasite memory to the winchester disc controller
81A4  80 D7        ..    BRA &817D
.
81A6  AD 40 FC     .@.   LDA wdc_data
81A9  8D E5 FE     ...   STA tubedat              ; Read data from the winchester disc controller to parasite memory
81AC  80 CF        ..    BRA &817D
.
81AE  20 3A 80      :.   JSR &803A                ; Release the TUBE
.
81B1  20 33 83      3.   JSR &8333
81B4  AD 40 FC     .@.   LDA wdc_data
81B7  20 33 83      3.   JSR &8333
81BA  A8           .     TAY
81BB  20 6F 80      o.   JSR &806F                ; Get the winchester drive status
81BE  29 01        ).    AND #%00000001           ; Mask out the MSG bit
81C0  F0 EF        ..    BEQ &81B1
81C2  98           .     TYA
81C3  AE 40 FC     .@.   LDX wdc_data
81C6  F0 03        ..    BEQ &81CB
81C8  4C A6 82     L..   JMP &82A6                ; A=&FF and jump to &81D5
.
81CB  AA           .     TAX
81CC  29 02        ).    AND #&02
81CE  F0 03        ..    BEQ &81D3
81D0  4C 5E 82     L^.   JMP &825E
81D3  A9 00        ..    LDA #&00
.
81D5  A6 B0        ..    LDX &B0
81D7  A4 B1        ..    LDY &B1
81D9  29 7F        )    AND #&7F
81DB  60           `     RTS
.
81DC  A0 00        ..    LDY #&00
81DE  24 CD        $.    BIT &CD
81E0  70 3E        p>    BCS &8220
.
81E2  20 33 83      3.   JSR &8333
81E5  30 C7        0.    BMI &81AE
81E7  70 0C        p.    BCS &81F5
.
81E9  B1 B2        ..    LDA (&B2),Y
81EB  8D 40 FC     .@.   STA wdc_data
81EE  C8           .     INY
81EF  D0 F8        ..    BNE &81E9
81F1  E6 B3        ..    INC &B3
81F3  80 ED        ..    BRA &81E2
.
81F5  AD 40 FC     .@.   LDA wdc_data
81F8  91 B2        ..    STA (&B2),Y
81FA  C8           .     INY
81FB  D0 F8        ..    BNE &81F5
81FD  E6 B3        ..    INC &B3
81FF  80 E1        ..    BRA &81E2

; -----------------------------------------------------------------------------
; Increase &C228/&C229/&C22A with 1
; -----------------------------------------------------------------------------
.
8201  EE 28 C2     .(.   INC &C228
8204  D0 08        ..    BNE &820E
8206  EE 29 C2     .).   INC &C229
8209  D0 03        ..    BNE &820E
820B  EE 2A C2     .*.   INC &C22A
820E  A2 27        .'    LDX #&27
8210  A0 C2        ..    LDY #&C2
8212  60           `     RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8213  78           x     SEI
.
8214  20 06 04      ..   JSR tubecontrol
8217  A0 00        ..    LDY #&00
8219  20 1C 82      ..   JSR &821C
821C  20 1F 82      ..   JSR &821F
821F  60           `     RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8220  A2 27        .'    LDX #&27
8222  A0 C2        ..    LDY #&C2
8224  20 33 83      3.   JSR &8333
8227  10 03        ..    BPL &822C
8229  4C AE 81     L..   JMP &81AE
822C  70 18        p.    BCS &8246
822E  08           .     PHP
822F  A9 06        ..    LDA #&06
8231  20 13 82      ..   JSR &8213
8234  EA           .     NOP
8235  EA           .     NOP
8236  EA           .     NOP
8237  AD E5 FE     ...   LDA tubedat
823A  8D 40 FC     .@.   STA wdc_data
823D  C8           .     INY
823E  D0 F4        ..    BNE &8234
8240  20 01 82      ..   JSR &8201                ; Increase &C228/&C229/&C22A with 1
8243  28           (     PLP
8244  80 DE        ..    BRA &8224
8246  08           .     PHP
8247  A9 07        ..    LDA #&07
8249  20 13 82      ..   JSR &8213
824C  EA           .     NOP
824D  EA           .     NOP
824E  EA           .     NOP
824F  AD 40 FC     .@.   LDA wdc_data
8252  8D E5 FE     ...   STA tubedat
8255  C8           .     INY
8256  D0 F4        ..    BNE &824C
8258  20 01 82      ..   JSR &8201                ; Increase &C228/&C229/&C22A with 1
825B  28           (     PLP
825C  80 C6        ..    BRA &8224
.
825E  20 7E 80      ~.   JSR &807E                ; Recalibrate the winchester drive
8261  A9 03        ..    LDA #&03
8263  AA           .     TAX
8264  A8           .     TAY
8265  20 3F 83      ?.   JSR &833F                ; Send A to the winchester disc controller
8268  AD 33 C3     .3.   LDA &C333
826B  29 E0        ).    AND #&E0
826D  20 3F 83      ?.   JSR &833F                ; Send A to the winchester disc controller
8270  20 3F 83      ?.   JSR &833F                ; Send A to the winchester disc controller
8273  88           .     DEY
8274  10 FA        ..    BPL &8270
8276  20 33 83      3.   JSR &8333
8279  AD 40 FC     .@.   LDA wdc_data
827C  9D D0 C2     ...   STA &C2D0,X
827F  CA           .     DEX
8280  10 F4        ..    BPL &8276
8282  AD 33 C3     .3.   LDA &C333
8285  29 E0        ).    AND #&E0
8287  0D D2 C2     ...   ORA &C2D2
828A  8D D2 C2     ...   STA &C2D2
828D  20 33 83      3.   JSR &8333
8290  AE D3 C2     ...   LDX &C2D3
8293  AD 40 FC     .@.   LDA wdc_data
8296  20 33 83      3.   JSR &8333
8299  AC 40 FC     .@.   LDY wdc_data
829C  D0 08        ..    BNE &82A6
829E  29 02        ).    AND #&02
82A0  D0 04        ..    BNE &82A6
82A2  8A           .     TXA
82A3  4C D5 81     L..   JMP &81D5
.
82A6  A9 FF        ..    LDA #&FF
82A8  4C D5 81     L..   JMP &81D5
82AB  A2 15        ..    LDX #&15
82AD  A0 C2        ..    LDY #&C2
82AF  20 A2 80      ..   JSR &80A2
82B2  D0 0A        ..    BNE &82BE
82B4  60           `     RTS
82B5  AD 2F C2     ./.   LDA &C22F
82B8  8D 17 C3     ...   STA &C317
82BB  4C C1 8B     L..   JMP &8BC1
82BE  C9 25        .%    CMP #&25
82C0  F0 F3        ..    BEQ &82B5
82C2  C9 65        .e    CMP #&65
82C4  F0 EF        ..    BEQ &82B5
82C6  C9 6F        .o    CMP #&6F
82C8  D0 13        ..    BNE &82DD
.
82CA  20 9E 84      ..   JSR &849E
82CD  A9 7E        .~    LDA #&7E
82CF  20 F4 FF      ..   JSR osbyte               ; OSBYTE &7E: Acknowledge detection of an ESCAPE condition
82D2  20 6C 83      l.   JSR &836C

82D5  11           .     EQUB &11                 ; Error code
82D6  45 73 63 61  Esca  EQUS "Escape"            ; Error message
      70 65        pe
82DC  00           .     EQUB &00                 ; Termination byte

.
82DD  C9 04        ..    CMP #&04                 ; Is the NOTRDY bit set?
82DF  D0 14        ..    BNE &82F5
82E1  20 6C 83      l.   JSR &836C

82E4  CD           .     EQUB &CD                 ; Error code
82E5  44 72 69 76  Driv  EQUS "Drive not ready"   ; Error message
      65 20 6E 6F  e no
      74 20 72 65  t re
      61 64 79     ady
82F4  00           .     EQUB &00                 ; Termination byte

82F5  C9 40        .@    CMP #&40                 ; Is the WRPROT bit set?
82F7  F0 13        ..    BEQ &830C
82F9  20 BA 89      ..   JSR &89BA
82FC  AA           .     TAX
82FD  20 75 83      u.   JSR &8375

8300  C7           .     EQUB &C7                 ; Error code
8301  44 69 73 63  Disc  EQUS "Disc error"        ; Error message
      20 65 72 72   err
      6F 72        or
830B  00           .     EQUB &00                 ; Termination byte

830C  20 4F 83      O.   JSR &834F
830F  C9           .     EQUB &C9                 ; Error code
8310  44 69 73 63  Disc  EQUS "Disc protected"    ; Error message
      20 70 72 6F   pro
      74 65 63 74  tect
      65 64        ed
831E  00           .     EQUB &00                 ; Termination byte

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
831F  20 25 83      %.   JSR &8325
8322  D0 9A        ..    BNE &82BE
8324  60           `     RTS
.
8325  20 3F 83      ?.   JSR &833F                ; Send A to the winchester disc controller
8328  60           `     RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.tube_idle_loop
8329  A9 01        ..    LDA #&01
832B  08           .     PHP
832C  58           X     CLI
832D  28           (     PLP
832E  24 CD        $.    BIT &CD
8330  D0 F7        ..    BNE &8329                ; Jump if the TUBE is present
8332  60           `     RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8333  48           H     PHA
8334  20 6F 80      o.   JSR &806F                ; Get the winchester drive status
8337  29 20        )     AND #%00100000           ; Mask out the REQ bit
8339  F0 F9        ..    BEQ &8334
833B  68           h     PLA
833C  24 CC        $.    BIT &CC
833E  60           `     RTS

; -----------------------------------------------------------------------------
; Send A to the winchester disc controller
; -----------------------------------------------------------------------------
.
833F  20 33 83      3.   JSR &8333
8342  70 06        p.    BCS &834A
8344  8D 40 FC     .@.   STA wdc_data
8347  A9 00        ..    LDA #&00
8349  60           `     RTS
.
834A  68           h     PLA
834B  68           h     PLA
834C  4C AE 81     L..   JMP &81AE

834F  AE 2F C2     ./.   LDX &C22F
8352  E8           .     INX
8353  D0 17        ..    BNE &836C
8355  AE 2E C2     ...   LDX &C22E
8358  E8           .     INX
8359  D0 0B        ..    BNE &8366
835B  A0 02        ..    LDY #&02
835D  B9 14 C3     ...   LDA &C314,Y
8360  99 2C C2     .,.   STA &C22C,Y
8363  88           .     DEY
8364  10 F7        ..    BPL &835D
8366  AD 17 C3     ...   LDA &C317
8369  8D 2F C2     ./.   STA &C22F
.
836C  20 BA 89      ..   JSR &89BA
836F  A9 10        ..    LDA #%00010000
8371  14 CD        ..    TRB &CD                  ; Clear bit 4 of &CD
8373  A2 00        ..    LDX #&00
8375  68           h     PLA
8376  85 B2        ..    STA &B2
8378  68           h     PLA
8379  85 B3        ..    STA &B3
837B  A9 10        ..    LDA #%00010000
837D  14 CD        ..    TRB &CD                  ; Clear bit 4 of &CD
837F  A0 00        ..    LDY #&00
.
8381  C8           .     INY
8382  B1 B2        ..    LDA (&B2),Y
8384  99 00 01     ...   STA &0100,Y
8387  D0 F8        ..    BNE &8381
8389  8A           .     TXA
838A  F0 4F        .O    BEQ &83DB
838C  A9 20        .     LDA #&20
838E  99 00 01     ...   STA &0100,Y
8391  8A           .     TXA
8392  C9 30        .0    CMP #&30
8394  B0 06        ..    BCS &839C
8396  20 55 84      U.   JSR &8455
8399  4C A3 83     L..   JMP &83A3
839C  C9 3A        .:    CMP #&3A
839E  B0 F6        ..    BCS &8396
83A0  20 71 84      q.   JSR &8471
83A3  A2 04        ..    LDX #&04
83A5  C8           .     INY
83A6  BD 44 84     .D.   LDA &8444,X
83A9  99 00 01     ...   STA &0100,Y
83AC  CA           .     DEX
83AD  10 F6        ..    BPL &83A5
83AF  AD D2 C2     ...   LDA &C2D2
83B2  0A           .     ASL A
83B3  2A           *     ROL A
83B4  2A           *     ROL A
83B5  2A           *     ROL A
83B6  20 66 84      f.   JSR &8466                ; Translate the lower nibble of A to ASCII (0-9,A-F)
83B9  C8           .     INY
83BA  99 00 01     ...   STA &0100,Y
83BD  A9 2F        ./    LDA #&2F
83BF  C8           .     INY
83C0  99 00 01     ...   STA &0100,Y
83C3  AD D2 C2     ...   LDA &C2D2
83C6  29 1F        ).    AND #&1F
83C8  A2 02        ..    LDX #&02
83CA  D0 03        ..    BNE &83CF
83CC  BD D0 C2     ...   LDA &C2D0,X
83CF  20 55 84      U.   JSR &8455
83D2  CA           .     DEX
83D3  10 F7        ..    BPL &83CC
83D5  C8           .     INY
83D6  A9 00        ..    LDA #&00
83D8  99 00 01     ...   STA &0100,Y
.
83DB  AD D5 C2     ...   LDA &C2D5
83DE  F0 30        .0    BEQ &8410
83E0  A2 0B        ..    LDX #&0B
83E2  88           .     DEY
83E3  BD 49 84     .I.   LDA &8449,X
83E6  C8           .     INY
83E7  99 00 01     ...   STA &0100,Y
83EA  CA           .     DEX
83EB  10 F6        ..    BPL &83E3
83ED  AD D5 C2     ...   LDA &C2D5
83F0  20 71 84      q.   JSR &8471
83F3  5A           Z     PHY
83F4  A9 C6        ..    LDA #&C6                 ; OSBYTE &C6: Read *EXEC file handle
83F6  8D DC C2     ...   STA &C2DC
83F9  20 CE 84      ..   JSR &84CE                ; Make an OSBYTE call with X=&00 and Y=&FF
83FC  EC D5 C2     ...   CPX &C2D5
83FF  08           .     PHP
8400  A2 C1        ..    LDX #&C1                 ; *EXEC
8402  28           (     PLP
8403  F0 07        ..    BEQ &840C
8405  CC D5 C2     ...   CPY &C2D5
8408  D0 05        ..    BNE &840F
840A  A2 C4        ..    LDX #&C4                 ; *SPOOL
.
840C  20 DD 84      ..   JSR &84DD
840F  7A           z     PLY
8410  AD CE C2     ...   LDA &C2CE
8413  D0 03        ..    BNE &8418
8415  20 DA AA      ..   JSR &AADA
8418  A9 00        ..    LDA #&00
841A  8D 00 01     ...   STA &0100                ; BRK
841D  99 01 01     ...   STA &0101,Y
8420  20 3A 80      :.   JSR &803A                ; Release the TUBE
8423  20 97 BD      ..   JSR &BD97
8426  AD 01 01     ...   LDA &0101
8429  C9 C7        ..    CMP #&C7                 ; Is it error no. &C7(199) Disc error?
842B  D0 14        ..    BNE &8441
842D  3A           :     DEC A                    ; OSBYTE &C6: Read *EXEC file handle
842E  20 CE 84      ..   JSR &84CE                ; Make an OSBYTE call with X=&00 and Y=&FF
8431  5A           Z     PHY
8432  8A           .     TXA
8433  A2 C1        ..    LDX #&C1                 ; *EXEC
8435  20 D5 84      ..   JSR &84D5
8438  68           h     PLA
8439  A2 C4        ..    LDX #&C4                 ; *SPOOL
843B  20 D5 84      ..   JSR &84D5
843E  20 9E 84      ..   JSR &849E
.
8441  4C 00 01     L..   JMP &0100                ; Generate error
.
8444  3A 20 74 61  : ta  EQUS ": ta "             ; at :
      20
.
8449  20 6C 65 6E   len  EQUS " lennahc no "      ; on channel
      6E 61 68 63   nahc
8451  20 6E 6F 20    no 

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8455  48           H     PHA
8456  4A           J     LSR A
8457  4A           J     LSR A
8458  4A           J     LSR A
8459  4A           J     LSR A
845A  20 5E 84      ^.   JSR &845E
845D  68           h     PLA
845E  20 66 84      f.   JSR &8466                ; Translate the lower nibble of A to ASCII (0-9,A-F)
8461  C8           .     INY
8462  99 00 01     ...   STA &0100,Y
8465  60           `     RTS

; -----------------------------------------------------------------------------
; Translate the lower nibble of A to ASCII (0-9,A-F)
; -----------------------------------------------------------------------------
.
8466  29 0F        ).    AND #&0F
8468  09 30        .0    ORA #&30
846A  C9 3A        .:    CMP #&3A
846C  90 02        ..    BCC &8470
846E  69 06        i.    ADC #&06
.
8470  60           `     RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8471  2C 87 84     ,..   BIT &8487
8474  A2 64        .d    LDX #&64
8476  20 81 84      ..   JSR &8481
8479  A2 0A        ..    LDX #&0A
847B  20 81 84      ..   JSR &8481
847E  B8           .     CLV
847F  A2 01        ..    LDX #&01
.
8481  08           .     PHP
8482  86 B3        ..    STX &B3
8484  A2 2F        ./    LDX #&2F
8486  38           8     SEC
.
8487  E8           .     INX
8488  E5 B3        ..    SBC &B3
848A  B0 FB        ..    BCS &8487
848C  65 B3        e.    ADC &B3
848E  28           (     PLP
848F  48           H     PHA
8490  8A           .     TXA
8491  50 05        P.    BVC &8498
8493  C9 30        .0    CMP #&30
8495  F0 05        ..    BEQ &849C
8497  B8           .     CLV
.
8498  C8           .     INY
8499  99 00 01     ...   STA &0100,Y
.
849C  68           h     PLA
849D  60           `     RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
849E  A2 0C        ..    LDX #&0C
84A0  A9 FF        ..    LDA #&FF
.
84A2  9D 2B C2     .+.   STA &C22B,X
84A5  9D 13 C3     ...   STA &C313,X
84A8  CA           .     DEX
84A9  D0 F7        ..    BNE &84A2
84AB  20 32 A5      2.   JSR &A532
84AE  20 32 A5      2.   JSR &A532
84B1  A0 00        ..    LDY #&00
84B3  98           .     TYA
.
84B4  99 00 C1     ...   STA &C100,Y
84B7  99 00 C0     ...   STA &C000,Y
84BA  99 00 C4     ...   STA &C400,Y
84BD  C8           .     INY
84BE  D0 F4        ..    BNE &84B4
84C0  60           `     RTS

.
84C1  45 2E        E.    EQUS "E."                ; *EXEC
84C3  0D           .     EQUB &0D                 ; CR

.
84C4  53 50 2E     SP.   EQUS "SP."               ; *SPOOL
84C7  0D           .     EQUB &0D                 ; CR

; -----------------------------------------------------------------------------
; Make an OSBYTE &C7 call (Read *SPOOL file handle)
; -----------------------------------------------------------------------------
.
84C8  A9 C7        ..    LDA #&C7
84CA  A0 00        ..    LDY #&00
84CC  80 02        ..    BRA &84D0

; -----------------------------------------------------------------------------
; Make an OSBYTE call with X=&00 and Y=&FF
; -----------------------------------------------------------------------------
.
84CE  A0 FF        ..    LDY #&FF
84D0  A2 00        ..    LDX #&00
84D2  4C F4 FF     L..   JMP osbyte

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
84D5  C9 30        .0    CMP #&30
84D7  90 E7        ..    BCC &84C0
84D9  C9 3A        .:    CMP #&3A
84DB  B0 E3        ..    BCS &84C0
.
84DD  A0 84        ..    LDY #&84
84DF  4C F7 FF     L..   JMP oscli
84E2  00           .     BRK
84E3  48           H     PHA
84E4  75 67        ug    ADC &67,X
84E6  6F AD        o.    BBR6 &8495
84E8  37 C2        7.    RMB3 &C2
84EA  0D 38 C2     .8.   ORA &C238
84ED  0D 39 C2     .9.   ORA &C239
84F0  D0 01        ..    BNE &84F3
84F2  60           `     RTS
84F3  A2 00        ..    LDX #&00
84F5  EC FE C1     ...   CPX &C1FE
84F8  B0 32        .2    BCS &852C
84FA  E8           .     INX
84FB  E8           .     INX
84FC  E8           .     INX
84FD  86 B2        ..    STX &B2
84FF  A0 02        ..    LDY #&02
8501  CA           .     DEX
8502  BD 00 C0     ...   LDA &C000,X
8505  D9 34 C2     .4.   CMP &C234,Y
8508  B0 04        ..    BCS &850E
850A  A6 B2        ..    LDX &B2
850C  80 E7        ..    BRA &84F5
850E  D0 03        ..    BNE &8513
8510  88           .     DEY
8511  10 EE        ..    BPL &8501
8513  A6 B2        ..    LDX &B2
8515  CA           .     DEX
8516  CA           .     DEX
8517  CA           .     DEX
8518  86 B2        ..    STX &B2
851A  18           .     CLC
851B  08           .     PHP
851C  A0 00        ..    LDY #&00
851E  28           (     PLP
851F  B9 34 C2     .4.   LDA &C234,Y
8522  79 37 C2     y7.   ADC &C237,Y
8525  08           .     PHP
8526  DD 00 C0     ...   CMP &C000,X
8529  F0 04        ..    BEQ &852F
852B  28           (     PLP
852C  4C B9 85     L..   JMP &85B9
852F  E8           .     INX
8530  C8           .     INY
8531  C0 03        ..    CPY #&03
8533  D0 E9        ..    BNE &851E
8535  28           (     PLP
8536  A6 B2        ..    LDX &B2
8538  F0 62        .b    BEQ &859C
853A  18           .     CLC
853B  08           .     PHP
853C  A0 00        ..    LDY #&00
853E  28           (     PLP
853F  BD FD BF     ...   LDA &BFFD,X
8542  7D FD C0     }..   ADC &C0FD,X
8545  08           .     PHP
8546  D9 34 C2     .4.   CMP &C234,Y
8549  F0 05        ..    BEQ &8550
854B  A6 B2        ..    LDX &B2
854D  68           h     PLA
854E  80 4C        .L    BRA &859C
8550  E8           .     INX
8551  C8           .     INY
8552  C0 03        ..    CPY #&03
8554  D0 E8        ..    BNE &853E
8556  28           (     PLP
8557  A6 B2        ..    LDX &B2
8559  A0 00        ..    LDY #&00
855B  18           .     CLC
855C  08           .     PHP
855D  28           (     PLP
855E  BD FD C0     ...   LDA &C0FD,X
8561  79 37 C2     y7.   ADC &C237,Y
8564  9D FD C0     ...   STA &C0FD,X
8567  08           .     PHP
8568  E8           .     INX
8569  C8           .     INY
856A  C0 03        ..    CPY #&03
856C  D0 EF        ..    BNE &855D
856E  28           (     PLP
856F  A0 02        ..    LDY #&02
8571  A6 B2        ..    LDX &B2
8573  18           .     CLC
8574  BD FD C0     ...   LDA &C0FD,X
8577  7D 00 C1     }..   ADC &C100,X
857A  9D FD C0     ...   STA &C0FD,X
857D  E8           .     INX
857E  88           .     DEY
857F  10 F3        ..    BPL &8574
8581  EC FE C1     ...   CPX &C1FE
8584  B0 0F        ..    BCS &8595
8586  BD 00 C1     ...   LDA &C100,X
8589  9D FD C0     ...   STA &C0FD,X
858C  BD 00 C0     ...   LDA &C000,X
858F  9D FD BF     ...   STA &BFFD,X
8592  E8           .     INX
8593  D0 EC        ..    BNE &8581
8595  CA           .     DEX
8596  CA           .     DEX
8597  CA           .     DEX
8598  8E FE C1     ...   STX &C1FE
859B  60           `     RTS
859C  A0 00        ..    LDY #&00
859E  18           .     CLC
859F  08           .     PHP
85A0  B9 34 C2     .4.   LDA &C234,Y
85A3  9D 00 C0     ...   STA &C000,X
85A6  28           (     PLP
85A7  BD 00 C1     ...   LDA &C100,X
85AA  79 37 C2     y7.   ADC &C237,Y
85AD  9D 00 C1     ...   STA &C100,X
85B0  08           .     PHP
85B1  C8           .     INY
85B2  E8           .     INX
85B3  C0 03        ..    CPY #&03
85B5  D0 E9        ..    BNE &85A0
85B7  28           (     PLP
85B8  60           `     RTS
85B9  A6 B2        ..    LDX &B2
85BB  F0 34        .4    BEQ &85F1
85BD  18           .     CLC
85BE  08           .     PHP
85BF  A0 00        ..    LDY #&00
85C1  28           (     PLP
85C2  BD FD BF     ...   LDA &BFFD,X
85C5  7D FD C0     }..   ADC &C0FD,X
85C8  08           .     PHP
85C9  D9 34 C2     .4.   CMP &C234,Y
85CC  F0 03        ..    BEQ &85D1
85CE  28           (     PLP
85CF  80 20        .     BRA &85F1
85D1  E8           .     INX
85D2  C8           .     INY
85D3  C0 03        ..    CPY #&03
85D5  D0 EA        ..    BNE &85C1
85D7  28           (     PLP
85D8  A0 00        ..    LDY #&00
85DA  A6 B2        ..    LDX &B2
85DC  18           .     CLC
85DD  08           .     PHP
85DE  28           (     PLP
85DF  BD FD C0     ...   LDA &C0FD,X
85E2  79 37 C2     y7.   ADC &C237,Y
85E5  9D FD C0     ...   STA &C0FD,X
85E8  08           .     PHP
85E9  E8           .     INX
85EA  C8           .     INY
85EB  C0 03        ..    CPY #&03
85ED  D0 EF        ..    BNE &85DE
85EF  28           (     PLP
85F0  60           `     RTS
85F1  AD FE C1     ...   LDA &C1FE
85F4  C9 F6        ..    CMP #&F6
85F6  90 0D        ..    BCC &8605
85F8  20 4F 83      O.   JSR &834F
85FB  99 4D 61     .Ma   STA &614D,Y
85FE  70 20        p     BCS &8620
8600  66 75        fu    ROR &75
8602  6C 6C 00     ll.   JMP (&006C)
8605  AE FE C1     ...   LDX &C1FE
8608  E4 B2        ..    CPX &B2
860A  F0 0F        ..    BEQ &861B
860C  CA           .     DEX
860D  BD 00 C0     ...   LDA &C000,X
8610  9D 03 C0     ...   STA &C003,X
8613  BD 00 C1     ...   LDA &C100,X
8616  9D 03 C1     ...   STA &C103,X
8619  80 ED        ..    BRA &8608
861B  A0 00        ..    LDY #&00
861D  B9 34 C2     .4.   LDA &C234,Y
8620  9D 00 C0     ...   STA &C000,X
8623  B9 37 C2     .7.   LDA &C237,Y
8626  9D 00 C1     ...   STA &C100,X
8629  E8           .     INX
862A  C8           .     INY
862B  C0 03        ..    CPY #&03
862D  D0 EE        ..    BNE &861D
862F  AD FE C1     ...   LDA &C1FE
8632  69 02        i.    ADC #&02
8634  8D FE C1     ...   STA &C1FE
8637  60           `     RTS
8638  A2 00        ..    LDX #&00
863A  8E 5D C2     .].   STX &C25D
863D  8E 5E C2     .^.   STX &C25E
8640  8E 5F C2     ._.   STX &C25F
8643  EC FE C1     ...   CPX &C1FE
8646  F0 EF        ..    BEQ &8637
8648  A0 00        ..    LDY #&00
864A  18           .     CLC
864B  08           .     PHP
864C  28           (     PLP
864D  BD 00 C1     ...   LDA &C100,X
8650  79 5D C2     y].   ADC &C25D,Y
8653  99 5D C2     .].   STA &C25D,Y
8656  08           .     PHP
8657  C8           .     INY
8658  E8           .     INX
8659  C0 03        ..    CPY #&03
865B  D0 EF        ..    BNE &864C
865D  28           (     PLP
865E  4C 43 86     LC.   JMP &8643
8661  A2 FF        ..    LDX #&FF
8663  86 B3        ..    STX &B3
8665  E8           .     INX
8666  EC FE C1     ...   CPX &C1FE
8669  90 7C        .|    BCC &86E7
866B  A6 B3        ..    LDX &B3
866D  E0 FF        ..    CPX #&FF
866F  D0 3A        .:    BNE &86AB
8671  20 38 86      8.   JSR &8638
8674  A0 00        ..    LDY #&00
8676  A2 02        ..    LDX #&02
8678  38           8     SEC
8679  B9 5D C2     .].   LDA &C25D,Y
867C  F9 3D C2     .=.   SBC &C23D,Y
867F  C8           .     INY
8680  CA           .     DEX
8681  10 F6        ..    BPL &8679
8683  B0 0E        ..    BCS &8693
8685  20 4F 83      O.   JSR &834F
8688  C6 44        .D    DEC &44
868A  69 73        is    ADC #&73
868C  63            c     ...
868D  20 66 75      fu   JSR &7566
8690  6C 6C 00     ll.   JMP (&006C)
8693  20 4F 83      O.   JSR &834F
8696  98           .     TYA
8697  43            C     ...
8698  6F 6D        om    BBR6 &8707
869A  70 61        pa    BCS &86FD
869C  63            c     ...
869D  74 69        ti    STZ &69,X
869F  6F 6E        on    BBR6 &870F
86A1  20 72 65      re   JSR &6572
86A4  71 75        qu    ADC (&75),Y
86A6  69 72        ir    ADC #&72
86A8  65 64        ed    ADC &64
86AA  00           .     BRK
86AB  A0 02        ..    LDY #&02
86AD  CA           .     DEX
86AE  BD 00 C0     ...   LDA &C000,X
86B1  99 3A C2     .:.   STA &C23A,Y
86B4  88           .     DEY
86B5  10 F6        ..    BPL &86AD
86B7  C8           .     INY
86B8  A6 B3        ..    LDX &B3
86BA  18           .     CLC
86BB  08           .     PHP
86BC  28           (     PLP
86BD  BD FD BF     ...   LDA &BFFD,X
86C0  79 3D C2     y=.   ADC &C23D,Y
86C3  9D FD BF     ...   STA &BFFD,X
86C6  08           .     PHP
86C7  E8           .     INX
86C8  C8           .     INY
86C9  C0 03        ..    CPY #&03
86CB  D0 EF        ..    BNE &86BC
86CD  28           (     PLP
86CE  A0 00        ..    LDY #&00
86D0  A6 B3        ..    LDX &B3
86D2  38           8     SEC
86D3  08           .     PHP
86D4  28           (     PLP
86D5  BD FD C0     ...   LDA &C0FD,X
86D8  F9 3D C2     .=.   SBC &C23D,Y
86DB  9D FD C0     ...   STA &C0FD,X
86DE  08           .     PHP
86DF  E8           .     INX
86E0  C8           .     INY
86E1  C0 03        ..    CPY #&03
86E3  D0 EF        ..    BNE &86D4
86E5  28           (     PLP
86E6  60           `     RTS
86E7  A0 02        ..    LDY #&02
86E9  E8           .     INX
86EA  E8           .     INX
86EB  E8           .     INX
86EC  86 B2        ..    STX &B2
86EE  CA           .     DEX
86EF  BD 00 C1     ...   LDA &C100,X
86F2  D9 3D C2     .=.   CMP &C23D,Y
86F5  90 3B        .;    BCC &8732
86F7  D0 30        .0    BNE &8729
86F9  88           .     DEY
86FA  10 F2        ..    BPL &86EE
86FC  A6 B2        ..    LDX &B2
86FE  A0 02        ..    LDY #&02
8700  CA           .     DEX
8701  BD 00 C0     ...   LDA &C000,X
8704  99 3A C2     .:.   STA &C23A,Y
8707  88           .     DEY
8708  10 F6        ..    BPL &8700
870A  A6 B2        ..    LDX &B2
870C  EC FE C1     ...   CPX &C1FE
870F  B0 0F        ..    BCS &8720
8711  BD 00 C0     ...   LDA &C000,X
8714  9D FD BF     ...   STA &BFFD,X
8717  BD 00 C1     ...   LDA &C100,X
871A  9D FD C0     ...   STA &C0FD,X
871D  E8           .     INX
871E  D0 EC        ..    BNE &870C
8720  AD FE C1     ...   LDA &C1FE
8723  E9 03        ..    SBC #&03
8725  8D FE C1     ...   STA &C1FE
8728  60           `     RTS
8729  A6 B3        ..    LDX &B3
872B  E8           .     INX
872C  D0 04        ..    BNE &8732
872E  A5 B2        ..    LDA &B2
8730  85 B3        ..    STA &B3
8732  A6 B2        ..    LDX &B2
8734  4C 66 86     Lf.   JMP &8666
8737  E6 B4        ..    INC &B4
8739  D0 02        ..    BNE &873D
873B  E6 B5        ..    INC &B5
873D  60           `     RTS
873E  20 07 A8      ..   JSR &A807
8741  20 4D 8D      M.   JSR &8D4D
8744  9C C0 C2     ...   STZ &C2C0
8747  A0 00        ..    LDY #&00
8749  B1 B4        ..    LDA (&B4),Y
874B  29 7F        )    AND #&7F
874D  C9 2E        ..    CMP #&2E
874F  F0 08        ..    BEQ &8759
8751  C9 22        ."    CMP #&22
8753  F0 04        ..    BEQ &8759
8755  C9 20        .     CMP #&20
8757  B0 02        ..    BCS &875B
8759  A2 00        ..    LDX #&00
875B  60           `     RTS
875C  A0 0A        ..    LDY #&0A
875E  20 49 87      I.   JSR &8749
8761  F0 10        ..    BEQ &8773
8763  88           .     DEY
8764  10 F8        ..    BPL &875E
8766  20 6C 83      l.   JSR &836C
8769  CC 42 61     .Ba   CPY &6142
876C  64 20        d     STZ &20
876E  6E 61 6D     nam   ROR &6D61
8771  65 00        e.    ADC &00
8773  A0 09        ..    LDY #&09
8775  B1 B6        ..    LDA (&B6),Y
8777  29 7F        )    AND #&7F
8779  99 62 C2     .b.   STA &C262,Y
877C  88           .     DEY
877D  10 F6        ..    BPL &8775
877F  C8           .     INY
8780  A2 00        ..    LDX #&00
8782  E0 0A        ..    CPX #&0A
8784  B0 41        .A    BCS &87C7
8786  BD 62 C2     .b.   LDA &C262,X
8789  C9 21        .!    CMP #&21
878B  90 3A        .:    BCC &87C7
878D  09 20        .     ORA #&20
878F  8D 2B C2     .+.   STA &C22B
8792  C0 0A        ..    CPY #&0A
8794  B0 1B        ..    BCS &87B1
8796  20 49 87      I.   JSR &8749
8799  F0 1B        ..    BEQ &87B6
879B  C9 2A        .*    CMP #&2A
879D  F0 38        .8    BEQ &87D7
879F  C9 23        .#    CMP #&23
87A1  F0 09        ..    BEQ &87AC
87A3  09 20        .     ORA #&20
87A5  CD 2B C2     .+.   CMP &C22B
87A8  90 0C        ..    BCC &87B6
87AA  D0 04        ..    BNE &87B0
87AC  E8           .     INX
87AD  C8           .     INY
87AE  D0 D2        ..    BNE &8782
87B0  60           `     RTS
87B1  20 49 87      I.   JSR &8749
87B4  D0 B0        ..    BNE &8766
87B6  20 49 87      I.   JSR &8749
87B9  C9 23        .#    CMP #&23
87BB  F0 17        ..    BEQ &87D4
87BD  C9 2A        .*    CMP #&2A
87BF  F0 13        ..    BEQ &87D4
87C1  88           .     DEY
87C2  10 F2        ..    BPL &87B6
87C4  C9 FF        ..    CMP #&FF
87C6  60           `     RTS
87C7  C0 0A        ..    CPY #&0A
87C9  F0 E5        ..    BEQ &87B0
87CB  20 49 87      I.   JSR &8749
87CE  F0 E0        ..    BEQ &87B0
87D0  C9 2A        .*    CMP #&2A
87D2  F0 03        ..    BEQ &87D7
87D4  C9 00        ..    CMP #&00
87D6  60           `     RTS
87D7  C8           .     INY
87D8  BD 62 C2     .b.   LDA &C262,X
87DB  29 7F        )    AND #&7F
87DD  C9 21        .!    CMP #&21
87DF  90 19        ..    BCC &87FA
87E1  E0 0A        ..    CPX #&0A
87E3  B0 15        ..    BCS &87FA
87E5  DA           .     PHX
87E6  5A           Z     PHY
87E7  20 82 87      ..   JSR &8782
87EA  F0 08        ..    BEQ &87F4
87EC  7A           z     PLY
87ED  FA           .     PLX
87EE  E8           .     INX
87EF  D0 E7        ..    BNE &87D8
87F1  E0 00        ..    CPX #&00
87F3  60           `     RTS
87F4  68           h     PLA
87F5  68           h     PLA
87F6  A9 00        ..    LDA #&00
87F8  38           8     SEC
87F9  60           `     RTS
87FA  C0 0A        ..    CPY #&0A
87FC  B0 F8        ..    BCS &87F6
87FE  B1 B4        ..    LDA (&B4),Y
8800  C9 21        .!    CMP #&21
8802  90 F2        ..    BCC &87F6
8804  C9 2E        ..    CMP #&2E
8806  F0 EE        ..    BEQ &87F6
8808  C9 22        ."    CMP #&22
880A  F0 EA        ..    BEQ &87F6
880C  C9 2A        .*    CMP #&2A
880E  F0 C7        ..    BEQ &87D7
8810  D0 DF        ..    BNE &87F1
8812  20 07 A8      ..   JSR &A807
8815  20 7A 93      z.   JSR &937A
8818  20 1A AA      ..   JSR &AA1A
881B  B2 B6        ..    LDA (&B6)
881D  F0 13        ..    BEQ &8832
881F  20 5C 87      \.   JSR &875C
8822  F0 10        ..    BEQ &8834
8824  90 0E        ..    BCC &8834
8826  A5 B6        ..    LDA &B6
8828  69 19        i.    ADC #&19
882A  85 B6        ..    STA &B6
882C  90 ED        ..    BCC &881B
882E  E6 B7        ..    INC &B7
8830  D0 E9        ..    BNE &881B
8832  C9 0F        ..    CMP #&0F
8834  60           `     RTS
8835  C9 30        .0    CMP #&30
8837  90 22        ."    BCC &885B
8839  C9 38        .8    CMP #&38
883B  90 0B        ..    BCC &8848
883D  09 20        .     ORA #&20
883F  C9 61        .a    CMP #&61
8841  90 18        ..    BCC &885B
8843  C9 69        .i    CMP #&69
8845  B0 14        ..    BCS &885B
8847  3A           :     DEC A
8848  48           H     PHA
8849  A5 CD        ..    LDA &CD
884B  29 20        )     AND #%00100000
884D  D0 04        ..    BNE &8853                ; Jump if the 'Winchester disc controller present' flag is set
884F  68           h     PLA
8850  29 03        ).    AND #&03
8852  48           H     PHA
8853  68           h     PLA
8854  29 07        ).    AND #&07
8856  4A           J     LSR A
8857  6A           j     ROR A
8858  6A           j     ROR A
8859  6A           j     ROR A
885A  60           `     RTS
885B  4C 66 87     Lf.   JMP &8766
885E  20 3E 87      >.   JSR &873E
8861  F0 F8        ..    BEQ &885B
8863  20 3E 87      >.   JSR &873E
8866  F0 1F        ..    BEQ &8887
8868  C9 3A        .:    CMP #&3A
886A  D0 69        .i    BNE &88D5
886C  20 37 87      7.   JSR &8737
886F  AE 2F C2     ./.   LDX &C22F
8872  E8           .     INX
8873  D0 06        ..    BNE &887B
8875  AD 17 C3     ...   LDA &C317
8878  8D 2F C2     ./.   STA &C22F
887B  20 49 87      I.   JSR &8749
887E  20 35 88      5.   JSR &8835
8881  8D 17 C3     ...   STA &C317
8884  20 37 87      7.   JSR &8737
8887  AE 17 C3     ...   LDX &C317
888A  E8           .     INX
888B  D0 0E        ..    BNE &889B
888D  A5 CD        ..    LDA &CD
888F  29 20        )     AND #%00100000
8891  F0 05        ..    BEQ &8898                ; Jump if the 'Winchester disc controller present' flag isn't set
8893  AD D8 C2     ...   LDA &C2D8
8896  29 80        ).    AND #&80
8898  8D 17 C3     ...   STA &C317
889B  A9 10        ..    LDA #%00010000
889D  04 CD        ..    TSB &CD                  ; Set bit 4 of &CD
889F  20 57 BE      W.   JSR &BE57
88A2  A9 10        ..    LDA #%00010000
88A4  14 CD        ..    TRB &CD                  ; Clear bit 4 of &CD
88A6  AD 2E C2     ...   LDA &C22E
88A9  10 0B        ..    BPL &88B6
88AB  A0 02        ..    LDY #&02
88AD  B9 14 C3     ...   LDA &C314,Y
88B0  99 2C C2     .,.   STA &C22C,Y
88B3  88           .     DEY
88B4  10 F7        ..    BPL &88AD
88B6  A0 BF        ..    LDY #&BF
88B8  A2 99        ..    LDX #&99
88BA  20 AF 82      ..   JSR &82AF
88BD  A9 02        ..    LDA #&02
88BF  8D 14 C3     ...   STA &C314
88C2  9C 15 C3     ...   STZ &C315
88C5  9C 16 C3     ...   STZ &C316
88C8  20 AD B7      ..   JSR &B7AD
88CB  20 47 87      G.   JSR &8747
88CE  C9 2E        ..    CMP #&2E
88D0  D0 22        ."    BNE &88F4
88D2  20 37 87      7.   JSR &8737
88D5  20 47 87      G.   JSR &8747
88D8  29 FD        ).    AND #&FD
88DA  C9 24        .$    CMP #&24
88DC  F0 A6        ..    BEQ &8884
88DE  20 3A B8      :.   JSR &B83A
88E1  20 04 94      ..   JSR &9404
88E4  D0 28        .(    BNE &890E
88E6  C8           .     INY
88E7  8C A2 C2     ...   STY &C2A2
88EA  20 49 87      I.   JSR &8749
88ED  C9 2E        ..    CMP #&2E
88EF  D0 22        ."    BNE &8913
88F1  4C 79 89     Ly.   JMP &8979
88F4  A9 24        .$    LDA #&24
88F6  8D 62 C2     .b.   STA &C262
88F9  A9 0D        ..    LDA #&0D
88FB  8D 63 C2     .c.   STA &C263
88FE  A9 81        ..    LDA #&81
8900  85 B6        ..    STA &B6
8902  A9 94        ..    LDA #&94
8904  85 B7        ..    STA &B7
8906  A9 02        ..    LDA #&02
8908  8D C0 C2     ...   STA &C2C0
890B  A9 00        ..    LDA #&00
890D  60           `     RTS
890E  20 12 88      ..   JSR &8812
8911  F0 10        ..    BEQ &8923
8913  60           `     RTS
8914  A2 01        ..    LDX #&01
8916  A0 03        ..    LDY #&03
8918  B1 B6        ..    LDA (&B6),Y
891A  10 01        ..    BPL &891D
891C  E8           .     INX
891D  8E C0 C2     ...   STX &C2C0
8920  A9 00        ..    LDA #&00
8922  60           `     RTS
8923  A0 00        ..    LDY #&00
8925  20 49 87      I.   JSR &8749
8928  C9 21        .!    CMP #&21
892A  90 E8        ..    BCC &8914
892C  C9 22        ."    CMP #&22
892E  F0 E4        ..    BEQ &8914
8930  C9 2E        ..    CMP #&2E
8932  F0 03        ..    BEQ &8937
8934  C8           .     INY
8935  D0 EE        ..    BNE &8925
8937  8C A2 C2     ...   STY &C2A2
893A  A0 03        ..    LDY #&03
893C  B1 B6        ..    LDA (&B6),Y
893E  30 1D        0.    BMI &895D
8940  20 48 89      H.   JSR &8948
8943  F0 F5        ..    BEQ &893A
8945  A9 FF        ..    LDA #&FF
8947  60           `     RTS
8948  18           .     CLC
8949  A5 B6        ..    LDA &B6
894B  69 1A        i.    ADC #&1A
894D  85 B6        ..    STA &B6
894F  90 02        ..    BCC &8953
8951  E6 B7        ..    INC &B7
8953  B2 B6        ..    LDA (&B6)
8955  F0 EE        ..    BEQ &8945
8957  20 5C 87      \.   JSR &875C
895A  D0 EC        ..    BNE &8948
895C  60           `     RTS
895D  A0 09        ..    LDY #&09
895F  B1 B6        ..    LDA (&B6),Y
8961  10 16        ..    BPL &8979
8963  29 7F        )    AND #&7F
8965  91 B6        ..    STA (&B6),Y
8967  20 5E 8F      ^.   JSR &8F5E
896A  20 6C 83      l.   JSR &836C
896D  B0 42        .B    BCS &89B1
896F  61 64        ad    ADC (&64,X)
8971  20 72 65      re   JSR &6572
8974  6E 61 6D     nam   ROR &6D61
8977  65 00        e.    ADC &00
8979  AD A2 C2     ...   LDA &C2A2
897C  38           8     SEC
897D  65 B4        e.    ADC &B4
897F  85 B4        ..    STA &B4
8981  90 02        ..    BCC &8985
8983  E6 B5        ..    INC &B5
8985  AD 2E C2     ...   LDA &C22E
8988  1A           .     INC A
8989  D0 0B        ..    BNE &8996
898B  A0 02        ..    LDY #&02
898D  B9 14 C3     ...   LDA &C314,Y
8990  99 2C C2     .,.   STA &C22C,Y
8993  88           .     DEY
8994  10 F7        ..    BPL &898D
8996  A2 0A        ..    LDX #&0A
8998  BD 99 BF     ...   LDA &BF99,X
899B  9D 15 C2     ...   STA &C215,X
899E  CA           .     DEX
899F  10 F7        ..    BPL &8998
89A1  A2 02        ..    LDX #&02
89A3  A0 16        ..    LDY #&16
89A5  B1 B6        ..    LDA (&B6),Y
89A7  9D 1B C2     ...   STA &C21B,X
89AA  99 FE C2     ...   STA &C2FE,Y
89AD  C8           .     INY
89AE  CA           .     DEX
89AF  10 F4        ..    BPL &89A5
89B1  20 AB 82      ..   JSR &82AB
89B4  4C E1 88     L..   JMP &88E1
89B7  AD C0 C2     ...   LDA &C2C0
.
89BA  48           H     PHA
89BB  AD 2F C2     ./.   LDA &C22F
89BE  C9 FF        ..    CMP #&FF
89C0  F0 0B        ..    BEQ &89CD
89C2  8D 17 C3     ...   STA &C317
89C5  A9 FF        ..    LDA #&FF
89C7  8D 2F C2     ./.   STA &C22F
89CA  20 57 BE      W.   JSR &BE57
.
89CD  AD 2E C2     ...   LDA &C22E
89D0  C9 FF        ..    CMP #&FF
89D2  F0 2C        .,    BEQ &8A00
89D4  AA           .     TAX
89D5  A0 0A        ..    LDY #&0A
89D7  B9 99 BF     ...   LDA &BF99,Y
89DA  99 15 C2     ...   STA &C215,Y
89DD  88           .     DEY
89DE  10 F7        ..    BPL &89D7
89E0  8E 16 C3     ...   STX &C316
89E3  8E 1B C2     ...   STX &C21B
89E6  AD 2D C2     .-.   LDA &C22D
89E9  8D 15 C3     ...   STA &C315
89EC  8D 1C C2     ...   STA &C21C
89EF  AD 2C C2     .,.   LDA &C22C
89F2  8D 14 C3     ...   STA &C314
89F5  8D 1D C2     ...   STA &C21D
89F8  A9 FF        ..    LDA #&FF
89FA  8D 2E C2     ...   STA &C22E
89FD  20 AB 82      ..   JSR &82AB
8A00  A5 CD        ..    LDA &CD
8A02  8D 20 C3     . .   STA &C320
8A05  20 4A AA      J.   JSR &AA4A
8A08  A0 FC        ..    LDY #&FC
8A0A  B9 00 C3     ...   LDA &C300,Y
8A0D  91 BA        ..    STA (&BA),Y
8A0F  88           .     DEY
8A10  D0 F8        ..    BNE &8A0A
8A12  AD 00 C3     ...   LDA &C300
8A15  91 BA        ..    STA (&BA),Y
8A17  20 67 AA      g.   JSR &AA67
8A1A  A6 B8        ..    LDX &B8
8A1C  A4 B9        ..    LDY &B9
8A1E  68           h     PLA
8A1F  60           `     RTS
8A20  20 28 8A      (.   JSR &8A28
8A23  F0 FA        ..    BEQ &8A1F
8A25  4C BE 82     L..   JMP &82BE
8A28  AD 1A C2     ...   LDA &C21A
8A2B  C9 08        ..    CMP #&08
8A2D  F0 17        ..    BEQ &8A46
8A2F  AD 20 C2     . .   LDA &C220
8A32  F0 12        ..    BEQ &8A46
8A34  A9 00        ..    LDA #&00
8A36  8D 20 C2     . .   STA &C220
8A39  EE 21 C2     .!.   INC &C221
8A3C  D0 08        ..    BNE &8A46
8A3E  EE 22 C2     .".   INC &C222
8A41  D0 03        ..    BNE &8A46
8A43  EE 23 C2     .#.   INC &C223
8A46  A2 15        ..    LDX #&15
8A48  A0 C2        ..    LDY #&C2
8A4A  A9 FF        ..    LDA #&FF
8A4C  8D 1E C2     ...   STA &C21E
8A4F  AD 23 C2     .#.   LDA &C223
8A52  0D 22 C2     .".   ORA &C222
8A55  F0 43        .C    BEQ &8A9A
8A57  20 A2 80      ..   JSR &80A2
8A5A  D0 50        .P    BNE &8AAC
8A5C  A9 FF        ..    LDA #&FF
8A5E  18           .     CLC
8A5F  6D 17 C2     m..   ADC &C217
8A62  8D 17 C2     ...   STA &C217
8A65  90 08        ..    BCC &8A6F
8A67  EE 18 C2     ...   INC &C218
8A6A  D0 03        ..    BNE &8A6F
8A6C  EE 19 C2     ...   INC &C219
8A6F  A9 FF        ..    LDA #&FF
8A71  18           .     CLC
8A72  6D 1D C2     m..   ADC &C21D
8A75  8D 1D C2     ...   STA &C21D
8A78  90 08        ..    BCC &8A82
8A7A  EE 1C C2     ...   INC &C21C
8A7D  D0 03        ..    BNE &8A82
8A7F  EE 1B C2     ...   INC &C21B
8A82  AD 21 C2     .!.   LDA &C221
8A85  38           8     SEC
8A86  E9 FF        ..    SBC #&FF
8A88  8D 21 C2     .!.   STA &C221
8A8B  B0 C2        ..    BCS &8A4F
8A8D  AD 22 C2     .".   LDA &C222
8A90  D0 03        ..    BNE &8A95
8A92  CE 23 C2     .#.   DEC &C223
8A95  CE 22 C2     .".   DEC &C222
8A98  80 B5        ..    BRA &8A4F
8A9A  AD 21 C2     .!.   LDA &C221
8A9D  F0 08        ..    BEQ &8AA7
8A9F  8D 1E C2     ...   STA &C21E
8AA2  20 A2 80      ..   JSR &80A2
8AA5  D0 05        ..    BNE &8AAC
8AA7  AD 20 C2     . .   LDA &C220
8AAA  D0 01        ..    BNE &8AAD
8AAC  60           `     RTS
8AAD  8D 1E C2     ...   STA &C21E
8AB0  AD 21 C2     .!.   LDA &C221
8AB3  18           .     CLC
8AB4  6D 1D C2     m..   ADC &C21D
8AB7  8D 1D C2     ...   STA &C21D
8ABA  90 08        ..    BCC &8AC4
8ABC  EE 1C C2     ...   INC &C21C
8ABF  D0 03        ..    BNE &8AC4
8AC1  EE 1B C2     ...   INC &C21B
8AC4  AD 21 C2     .!.   LDA &C221
8AC7  18           .     CLC
8AC8  6D 17 C2     m..   ADC &C217
8ACB  8D 17 C2     ...   STA &C217
8ACE  90 08        ..    BCC &8AD8
8AD0  EE 18 C2     ...   INC &C218
8AD3  D0 03        ..    BNE &8AD8
8AD5  EE 19 C2     ...   INC &C219
8AD8  20 29 83      ).   JSR &8329
8ADB  20 99 80      ..   JSR &8099
8ADE  20 E7 8A      ..   JSR &8AE7
8AE1  F0 C9        ..    BEQ &8AAC
8AE3  C6 CE        ..    DEC &CE
8AE5  10 F7        ..    BPL &8ADE
8AE7  A2 15        ..    LDX #&15
8AE9  A0 C2        ..    LDY #&C2
8AEB  86 B0        ..    STX &B0
8AED  84 B1        ..    STY &B1
8AEF  AE 19 C2     ...   LDX &C219
8AF2  AD 18 C2     ...   LDA &C218
8AF5  20 53 80      S.   JSR &8053
8AF8  AD 17 C3     ...   LDA &C317
8AFB  0D 1B C2     ...   ORA &C21B
8AFE  8D 1B C2     ...   STA &C21B
8B01  8D 33 C3     .3.   STA &C333
8B04  A5 CD        ..    LDA &CD
8B06  29 20        )     AND #%00100000
8B08  D0 26        .&    BNE &8B30                ; Jump if the 'Winchester disc controller present' flag is set
8B0A  AD 1B C2     ...   LDA &C21B
8B0D  0D 17 C3     ...   ORA &C317
8B10  8D D2 C2     ...   STA &C2D2
8B13  AD 1C C2     ...   LDA &C21C
8B16  8D D1 C2     ...   STA &C2D1
8B19  AD 1D C2     ...   LDA &C21D
8B1C  8D D0 C2     ...   STA &C2D0
8B1F  20 EC AF      ..   JSR &AFEC
8B22  9D 04 C2     ...   STA &C204,X
8B25  8A           .     TXA
8B26  4A           J     LSR A
8B27  4A           J     LSR A
8B28  69 C9        i.    ADC #&C9
8B2A  20 AF BF      ..   JSR &BFAF
8B2D  AF B8        ..    EQUW &B8AF
8B2F  60           `     RTS
8B30  AD 33 C3     .3.   LDA &C333
8B33  30 D5        0.    BMI &8B0A
8B35  20 7E 80      ~.   JSR &807E                ; Recalibrate the winchester drive
8B38  AD 16 C2     ...   LDA &C216
8B3B  85 B2        ..    STA &B2
8B3D  AD 17 C2     ...   LDA &C217
8B40  85 B3        ..    STA &B3
8B42  AD 18 C2     ...   LDA &C218
8B45  C9 FE        ..    CMP #&FE
8B47  90 06        ..    BCC &8B4F
8B49  AD 19 C2     ...   LDA &C219
8B4C  1A           .     INC A
8B4D  F0 03        ..    BEQ &8B52
8B4F  20 20 80       .   JSR &8020                ; Claim the TUBE
8B52  AD 1E C2     ...   LDA &C21E
8B55  AA           .     TAX
8B56  A9 01        ..    LDA #&01
8B58  8D 1E C2     ...   STA &C21E
8B5B  A9 08        ..    LDA #&08
8B5D  8D 1A C2     ...   STA &C21A
8B60  A0 00        ..    LDY #&00
8B62  B9 1A C2     ...   LDA &C21A,Y
8B65  20 3F 83      ?.   JSR &833F                ; Send A to the winchester disc controller
8B68  C8           .     INY
8B69  C0 06        ..    CPY #&06
8B6B  D0 F5        ..    BNE &8B62
8B6D  24 CD        $.    BIT &CD
8B6F  50 0B        P.    BVC &8B7C                ; Jump if TUBE isn't claimed
8B71  DA           .     PHX
8B72  A2 27        .'    LDX #&27
8B74  A0 C2        ..    LDY #&C2
8B76  A9 01        ..    LDA #&01                 ; Initialise writing of second processor memory
8B78  20 06 04      ..   JSR tubecontrol
8B7B  FA           .     PLX
8B7C  A0 00        ..    LDY #&00
8B7E  20 33 83      3.   JSR &8333
8B81  30 19        0.    BMI &8B9C
8B83  AD 40 FC     .@.   LDA wdc_data
8B86  E0 00        ..    CPX #&00
8B88  F0 0F        ..    BEQ &8B99
8B8A  24 CD        $.    BIT &CD
8B8C  50 08        P.    BVC &8B96                ; Jump if TUBE isn't claimed
8B8E  20 1C 82      ..   JSR &821C
8B91  8D E5 FE     ...   STA tubedat
8B94  70 02        p.    BCS &8B98
8B96  91 B2        ..    STA (&B2),Y
8B98  CA           .     DEX
8B99  C8           .     INY
8B9A  D0 E7        ..    BNE &8B83
8B9C  4C AE 81     L..   JMP &81AE
8B9F  20 5E 88      ^.   JSR &885E
8BA2  F0 07        ..    BEQ &8BAB
8BA4  D0 0D        ..    BNE &8BB3
8BA6  20 48 89      H.   JSR &8948
8BA9  D0 08        ..    BNE &8BB3
8BAB  A0 03        ..    LDY #&03
8BAD  B1 B6        ..    LDA (&B6),Y
8BAF  30 F5        0.    BMI &8BA6
8BB1  A9 00        ..    LDA #&00
8BB3  60           `     RTS
8BB4  B2 B4        ..    LDA (&B4)
8BB6  C9 5E        .^    CMP #&5E
8BB8  D0 03        ..    BNE &8BBD
8BBA  4C 66 87     Lf.   JMP &8766
8BBD  C9 40        .@    CMP #&40
8BBF  F0 F9        ..    BEQ &8BBA
8BC1  20 6C 83      l.   JSR &836C
8BC4  D6 4E        .N    DEC &4E,X
8BC6  6F 74        ot    BBR6 &8C3C
8BC8  20 66 6F      fo   JSR &6F66
8BCB  75 6E        un    ADC &6E,X
8BCD  64 00        d.    STZ &00
8BCF  20 B5 8F      ..   JSR &8FB5
8BD2  D0 DF        ..    BNE &8BB3
8BD4  A0 04        ..    LDY #&04
8BD6  B1 B6        ..    LDA (&B6),Y
8BD8  10 D7        ..    BPL &8BB1
8BDA  20 6C 83      l.   JSR &836C
8BDD  BD 41 63     .Ac   LDA &6341,X
8BE0  63            c     ...
8BE1  65 73        es    ADC &73
8BE3  73            s     ...
8BE4  20 76 69      vi   JSR &6976
8BE7  6F 6C        ol    BBR6 &8C55
8BE9  61 74        at    ADC (&74,X)
8BEB  69 6F        io    ADC #&6F
8BED  6E 00 20     n.    ROR &2000
8BF0  9F 8B        ..    BBS1 &8B7D
8BF2  D0 C0        ..    BNE &8BB4
8BF4  B2 B6        ..    LDA (&B6)
8BF6  10 E2        ..    BPL &8BDA
8BF8  A0 06        ..    LDY #&06
8BFA  B1 B8        ..    LDA (&B8),Y
8BFC  D0 0D        ..    BNE &8C0B
8BFE  88           .     DEY
8BFF  B1 B8        ..    LDA (&B8),Y
8C01  99 14 C2     ...   STA &C214,Y
8C04  88           .     DEY
8C05  C0 01        ..    CPY #&01
8C07  D0 F6        ..    BNE &8BFF
8C09  F0 0D        ..    BEQ &8C18
8C0B  A2 04        ..    LDX #&04
8C0D  A0 0D        ..    LDY #&0D
8C0F  B1 B6        ..    LDA (&B6),Y
8C11  9D 15 C2     ...   STA &C215,X
8C14  88           .     DEY
8C15  CA           .     DEX
8C16  D0 F7        ..    BNE &8C0F
8C18  A9 01        ..    LDA #&01
8C1A  8D 15 C2     ...   STA &C215
8C1D  A9 08        ..    LDA #&08
8C1F  8D 1A C2     ...   STA &C21A
8C22  9C 1F C2     ...   STZ &C21F
8C25  A0 16        ..    LDY #&16
8C27  A2 03        ..    LDX #&03
8C29  B1 B6        ..    LDA (&B6),Y
8C2B  9D 1A C2     ...   STA &C21A,X
8C2E  C8           .     INY
8C2F  CA           .     DEX
8C30  D0 F7        ..    BNE &8C29
8C32  A0 15        ..    LDY #&15
8C34  A2 04        ..    LDX #&04
8C36  B1 B6        ..    LDA (&B6),Y
8C38  9D 1F C2     ...   STA &C21F,X
8C3B  88           .     DEY
8C3C  CA           .     DEX
8C3D  D0 F7        ..    BNE &8C36
8C3F  20 20 8A       .   JSR &8A20
8C42  20 48 8C      H.   JSR &8C48
8C45  4C B7 89     L..   JMP &89B7
8C48  20 AF 94      ..   JSR &94AF
8C4B  A0 15        ..    LDY #&15
8C4D  A2 0B        ..    LDX #&0B
8C4F  B1 B6        ..    LDA (&B6),Y
8C51  9D 15 C2     ...   STA &C215,X
8C54  88           .     DEY
8C55  CA           .     DEX
8C56  10 F7        ..    BPL &8C4F
8C58  A0 0D        ..    LDY #&0D
8C5A  A2 0B        ..    LDX #&0B
8C5C  BD 15 C2     ...   LDA &C215,X
8C5F  91 B8        ..    STA (&B8),Y
8C61  88           .     DEY
8C62  CA           .     DEX
8C63  10 F7        ..    BPL &8C5C
8C65  9C 2B C2     .+.   STZ &C22B
8C68  A0 02        ..    LDY #&02
8C6A  B1 B6        ..    LDA (&B6),Y
8C6C  0A           .     ASL A
8C6D  2E 2B C2     .+.   ROL &C22B
8C70  88           .     DEY
8C71  10 F7        ..    BPL &8C6A
8C73  AD 2B C2     .+.   LDA &C22B
8C76  6A           j     ROR A
8C77  6A           j     ROR A
8C78  6A           j     ROR A
8C79  08           .     PHP
8C7A  4A           J     LSR A
8C7B  28           (     PLP
8C7C  6A           j     ROR A
8C7D  8D 2B C2     .+.   STA &C22B
8C80  4A           J     LSR A
8C81  4A           J     LSR A
8C82  4A           J     LSR A
8C83  4A           J     LSR A
8C84  0D 2B C2     .+.   ORA &C22B
8C87  A0 0E        ..    LDY #&0E
8C89  91 B8        ..    STA (&B8),Y
8C8B  60           `     RTS
8C8C  20 A5 8C      ..   JSR &8CA5
8C8F  20 B5 8F      ..   JSR &8FB5
8C92  D0 0E        ..    BNE &8CA2
8C94  A0 04        ..    LDY #&04
8C96  B1 B6        ..    LDA (&B6),Y
8C98  10 05        ..    BPL &8C9F
8C9A  A9 FF        ..    LDA #&FF
8C9C  4C BA 89     L..   JMP &89BA
8C9F  20 4B 8C      K.   JSR &8C4B
8CA2  4C B7 89     L..   JMP &89B7
8CA5  B2 B8        ..    LDA (&B8)
8CA7  85 B4        ..    STA &B4
8CA9  A0 01        ..    LDY #&01
8CAB  B1 B8        ..    LDA (&B8),Y
8CAD  85 B5        ..    STA &B5
8CAF  60           `     RTS
8CB0  20 A5 8C      ..   JSR &8CA5
8CB3  20 9A 8D      ..   JSR &8D9A
8CB6  20 B5 8F      ..   JSR &8FB5
8CB9  F0 05        ..    BEQ &8CC0
8CBB  20 04 94      ..   JSR &9404
8CBE  F0 15        ..    BEQ &8CD5
8CC0  60           `     RTS
8CC1  20 B0 8C      ..   JSR &8CB0
8CC4  F0 29        .)    BEQ &8CEF
8CC6  D0 05        ..    BNE &8CCD
8CC8  20 B0 8C      ..   JSR &8CB0
8CCB  F0 19        ..    BEQ &8CE6
8CCD  A0 00        ..    LDY #&00
8CCF  B1 B4        ..    LDA (&B4),Y
8CD1  C9 2E        ..    CMP #&2E
8CD3  D0 03        ..    BNE &8CD8
8CD5  4C B4 8B     L..   JMP &8BB4
8CD8  C9 21        .!    CMP #&21
8CDA  90 07        ..    BCC &8CE3
8CDC  C9 22        ."    CMP #&22
8CDE  F0 03        ..    BEQ &8CE3
8CE0  C8           .     INY
8CE1  D0 EC        ..    BNE &8CCF
8CE3  A9 11        ..    LDA #&11
8CE5  60           `     RTS
8CE6  A0 03        ..    LDY #&03
8CE8  B1 B6        ..    LDA (&B6),Y
8CEA  10 03        ..    BPL &8CEF
8CEC  4C 59 95     LY.   JMP &9559
8CEF  A0 02        ..    LDY #&02
8CF1  B1 B6        ..    LDA (&B6),Y
8CF3  10 0B        ..    BPL &8D00
8CF5  20 6C 83      l.   JSR &836C
8CF8  C3            .     ...
8CF9  4C 6F 63     Loc   JMP &636F
8CFC  6B            k     ...
8CFD  65 64        ed    ADC &64
8CFF  00           .     BRK
8D00  A2 09        ..    LDX #&09
8D02  BD AC C3     ...   LDA &C3AC,X
8D05  F0 41        .A    BEQ &8D48
8D07  BD B6 C3     ...   LDA &C3B6,X
8D0A  29 E0        ).    AND #&E0
8D0C  CD 17 C3     ...   CMP &C317
8D0F  D0 37        .7    BNE &8D48
8D11  BD E8 C3     ...   LDA &C3E8,X
8D14  CD 14 C3     ...   CMP &C314
8D17  D0 2F        ./    BNE &8D48
8D19  BD DE C3     ...   LDA &C3DE,X
8D1C  CD 15 C3     ...   CMP &C315
8D1F  D0 27        .'    BNE &8D48
8D21  BD D4 C3     ...   LDA &C3D4,X
8D24  CD 16 C3     ...   CMP &C316
8D27  D0 1F        ..    BNE &8D48
8D29  A0 19        ..    LDY #&19
8D2B  B1 B6        ..    LDA (&B6),Y
8D2D  DD F2 C3     ...   CMP &C3F2,X
8D30  D0 16        ..    BNE &8D48
8D32  20 6C 83      l.   JSR &836C
8D35  C2            .     ...
8D36  43            C     ...
8D37  61 6E        an    ADC (&6E,X)
8D39  27 74        't    RMB2 &74
8D3B  20 2D 20      -    JSR &202D
8D3E  46 69        Fi    LSR &69
8D40  6C 65 20     le    JMP (&2065)
8D43  6F 70        op    BBR6 &8DB5
8D45  65 6E        en    ADC &6E
8D47  00           .     BRK
8D48  CA           .     DEX
8D49  10 B7        ..    BPL &8D02
8D4B  E8           .     INX
8D4C  60           `     RTS
8D4D  20 47 87      G.   JSR &8747
8D50  D0 05        ..    BNE &8D57
8D52  C9 2E        ..    CMP #&2E
8D54  F0 65        .e    BEQ &8DBB
8D56  60           `     RTS
8D57  C9 3A        .:    CMP #&3A
8D59  D0 0F        ..    BNE &8D6A
8D5B  C8           .     INY
8D5C  C8           .     INY
8D5D  20 49 87      I.   JSR &8749
8D60  D0 59        .Y    BNE &8DBB
8D62  C9 2E        ..    CMP #&2E
8D64  D0 4F        .O    BNE &8DB5
8D66  C8           .     INY
8D67  20 B6 8D      ..   JSR &8DB6
8D6A  29 FD        ).    AND #&FD
8D6C  C9 24        .$    CMP #&24
8D6E  F0 EC        ..    BEQ &8D5C
8D70  20 B6 8D      ..   JSR &8DB6
8D73  C9 5E        .^    CMP #&5E
8D75  F0 04        ..    BEQ &8D7B
8D77  C9 40        .@    CMP #&40
8D79  D0 0D        ..    BNE &8D88
8D7B  C8           .     INY
8D7C  20 49 87      I.   JSR &8749
8D7F  D0 3A        .:    BNE &8DBB
8D81  C9 2E        ..    CMP #&2E
8D83  D0 30        .0    BNE &8DB5
8D85  C8           .     INY
8D86  80 E8        ..    BRA &8D70
8D88  20 49 87      I.   JSR &8749
8D8B  F0 F4        ..    BEQ &8D81
8D8D  A2 05        ..    LDX #&05
8D8F  DD CD 8D     ...   CMP &8DCD,X
8D92  F0 27        .'    BEQ &8DBB
8D94  CA           .     DEX
8D95  10 F8        ..    BPL &8D8F
8D97  C8           .     INY
8D98  D0 EE        ..    BNE &8D88
8D9A  B8           .     CLV
8D9B  20 4D 8D      M.   JSR &8D4D
8D9E  B1 B4        ..    LDA (&B4),Y
8DA0  29 7F        )    AND #&7F
8DA2  C9 2A        .*    CMP #&2A
8DA4  F0 18        ..    BEQ &8DBE
8DA6  C9 23        .#    CMP #&23
8DA8  F0 14        ..    BEQ &8DBE
8DAA  70 04        p.    BCS &8DB0
8DAC  C9 2E        ..    CMP #&2E
8DAE  F0 05        ..    BEQ &8DB5
8DB0  88           .     DEY
8DB1  C0 FF        ..    CPY #&FF
8DB3  D0 E9        ..    BNE &8D9E
8DB5  60           `     RTS
8DB6  20 49 87      I.   JSR &8749
8DB9  D0 FA        ..    BNE &8DB5
8DBB  4C 66 87     Lf.   JMP &8766
8DBE  20 6C 83      l.   JSR &836C
8DC1  FD 57 69     .Wi   SBC &6957,X
8DC4  6C 64 20     ld    JMP (&2064)
8DC7  63            c     ...
8DC8  61 72        ar    ADC (&72,X)
8DCA  64 73        ds    STZ &73
8DCC  00           .     BRK
8DCD  7F 5E        ^    BBR7 &8E2D
8DCF  40           @     RTI
8DD0  3A           :     DEC A
8DD1  24 26        $&    BIT &26
8DD3  20 C8 8C      ..   JSR &8CC8
8DD6  D0 21        .!    BNE &8DF9
8DD8  A2 02        ..    LDX #&02
8DDA  A0 12        ..    LDY #&12
8DDC  B1 B6        ..    LDA (&B6),Y
8DDE  C9 01        ..    CMP #&01
8DE0  C8           .     INY
8DE1  A9 00        ..    LDA #&00
8DE3  71 B6        q.    ADC (&B6),Y
8DE5  99 24 C2     .$.   STA &C224,Y
8DE8  CA           .     DEX
8DE9  10 F5        ..    BPL &8DE0
8DEB  A0 18        ..    LDY #&18
8DED  A2 02        ..    LDX #&02
8DEF  B1 B6        ..    LDA (&B6),Y
8DF1  9D 34 C2     .4.   STA &C234,X
8DF4  88           .     DEY
8DF5  CA           .     DEX
8DF6  10 F7        ..    BPL &8DEF
8DF8  60           `     RTS
8DF9  AD B1 C8     ...   LDA &C8B1
8DFC  F0 0D        ..    BEQ &8E0B
8DFE  20 6C 83      l.   JSR &836C
8E01  B3            .     ...
8E02  44            D     ...
8E03  69 72        ir    ADC #&72
8E05  20 66 75      fu   JSR &7566
8E08  6C 6C 00     ll.   JMP (&006C)
8E0B  A5 B4        ..    LDA &B4
8E0D  8D 27 C2     .'.   STA &C227
8E10  A5 B5        ..    LDA &B5
8E12  8D 28 C2     .(.   STA &C228
8E15  A9 B1        ..    LDA #&B1
8E17  85 B4        ..    STA &B4
8E19  A9 C8        ..    LDA #&C8
8E1B  85 B5        ..    STA &B5
8E1D  A0 1A        ..    LDY #&1A
8E1F  A2 06        ..    LDX #&06
8E21  9E 33 C2     .3.   STZ &C233,X
8E24  CA           .     DEX
8E25  D0 FA        ..    BNE &8E21
8E27  A1 B4        ..    LDA (&B4,X)
8E29  91 B4        ..    STA (&B4),Y
8E2B  A5 B4        ..    LDA &B4
8E2D  C5 B6        ..    CMP &B6
8E2F  D0 06        ..    BNE &8E37
8E31  A5 B5        ..    LDA &B5
8E33  C5 B7        ..    CMP &B7
8E35  F0 0B        ..    BEQ &8E42
8E37  A5 B4        ..    LDA &B4
8E39  D0 02        ..    BNE &8E3D
8E3B  C6 B5        ..    DEC &B5
8E3D  C6 B4        ..    DEC &B4
8E3F  4C 27 8E     L'.   JMP &8E27
8E42  AD 27 C2     .'.   LDA &C227
8E45  85 B4        ..    STA &B4
8E47  AD 28 C2     .(.   LDA &C228
8E4A  85 B5        ..    STA &B5
8E4C  60           `     RTS
8E4D  A0 09        ..    LDY #&09
8E4F  B1 B4        ..    LDA (&B4),Y
8E51  29 7F        )    AND #&7F
8E53  C9 21        .!    CMP #&21
8E55  90 04        ..    BCC &8E5B
8E57  C9 22        ."    CMP #&22
8E59  D0 02        ..    BNE &8E5D
8E5B  A9 0D        ..    LDA #&0D
8E5D  C0 02        ..    CPY #&02
8E5F  B0 02        ..    BCS &8E63
8E61  09 80        ..    ORA #&80
8E63  91 B6        ..    STA (&B6),Y
8E65  88           .     DEY
8E66  10 E7        ..    BPL &8E4F
8E68  60           `     RTS
8E69  A0 11        ..    LDY #&11
8E6B  B1 B8        ..    LDA (&B8),Y
8E6D  99 15 C2     ...   STA &C215,Y
8E70  88           .     DEY
8E71  10 F8        ..    BPL &8E6B
8E73  A0 12        ..    LDY #&12
8E75  38           8     SEC
8E76  A2 03        ..    LDX #&03
8E78  B9 11 C2     ...   LDA &C211,Y
8E7B  F9 0D C2     ...   SBC &C20D,Y
8E7E  91 B6        ..    STA (&B6),Y
8E80  C8           .     INY
8E81  CA           .     DEX
8E82  10 F4        ..    BPL &8E78
8E84  A0 0A        ..    LDY #&0A
8E86  B9 0D C2     ...   LDA &C20D,Y
8E89  91 B6        ..    STA (&B6),Y
8E8B  C8           .     INY
8E8C  C0 12        ..    CPY #&12
8E8E  D0 F6        ..    BNE &8E86
8E90  A5 B6        ..    LDA &B6
8E92  48           H     PHA
8E93  A5 B7        ..    LDA &B7
8E95  48           H     PHA
8E96  A9 05        ..    LDA #&05
8E98  85 B6        ..    STA &B6
8E9A  A9 C4        ..    LDA #&C4
8E9C  85 B7        ..    STA &B7
8E9E  B2 B6        ..    LDA (&B6)
8EA0  F0 27        .'    BEQ &8EC9
8EA2  A0 19        ..    LDY #&19
8EA4  B1 B6        ..    LDA (&B6),Y
8EA6  CD FA C8     ...   CMP &C8FA                ; Compare with the Master sequence number for the current directory (in BCD)
8EA9  F0 0D        ..    BEQ &8EB8
8EAB  18           .     CLC
8EAC  A5 B6        ..    LDA &B6
8EAE  69 1A        i.    ADC #&1A
8EB0  85 B6        ..    STA &B6
8EB2  90 EA        ..    BCC &8E9E
8EB4  E6 B7        ..    INC &B7
8EB6  B0 E6        ..    BCS &8E9E
8EB8  AD FA C8     ...   LDA &C8FA                ; Increase the Master sequence number by one
8EBB  18           .     CLC
8EBC  F8           .     SED
8EBD  69 01        i.    ADC #&01
8EBF  D8           .     CLD
8EC0  8D FA C8     ...   STA &C8FA
8EC3  8D 00 C4     ...   STA &C400
8EC6  4C 96 8E     L..   JMP &8E96
8EC9  68           h     PLA
8ECA  85 B7        ..    STA &B7
8ECC  68           h     PLA
8ECD  85 B6        ..    STA &B6
8ECF  A0 19        ..    LDY #&19
8ED1  AD FA C8     ...   LDA &C8FA                ; Get the Master sequence number for the current directory (in BCD)
8ED4  91 B6        ..    STA (&B6),Y
8ED6  A9 01        ..    LDA #&01
8ED8  8D 15 C2     ...   STA &C215
8EDB  A2 04        ..    LDX #&04
8EDD  BD 1E C2     ...   LDA &C21E,X
8EE0  9D 15 C2     ...   STA &C215,X
8EE3  CA           .     DEX
8EE4  D0 F7        ..    BNE &8EDD
8EE6  A9 0A        ..    LDA #&0A
8EE8  8D 1A C2     ...   STA &C21A
8EEB  9C 1E C2     ...   STZ &C21E
8EEE  9C 1F C2     ...   STZ &C21F
8EF1  A0 12        ..    LDY #&12
8EF3  B1 B6        ..    LDA (&B6),Y
8EF5  99 0E C2     ...   STA &C20E,Y
8EF8  C8           .     INY
8EF9  C0 16        ..    CPY #&16
8EFB  D0 F6        ..    BNE &8EF3
8EFD  A0 12        ..    LDY #&12
8EFF  B1 B6        ..    LDA (&B6),Y
8F01  C9 01        ..    CMP #&01
8F03  A2 02        ..    LDX #&02
8F05  A9 00        ..    LDA #&00
8F07  C8           .     INY
8F08  71 B6        q.    ADC (&B6),Y
8F0A  99 2A C2     .*.   STA &C22A,Y
8F0D  CA           .     DEX
8F0E  10 F5        ..    BPL &8F05
8F10  90 03        ..    BCC &8F15
8F12  4C 85 86     L..   JMP &8685
8F15  A0 16        ..    LDY #&16
8F17  A9 FF        ..    LDA #&FF
8F19  91 B6        ..    STA (&B6),Y
8F1B  C8           .     INY
8F1C  91 B6        ..    STA (&B6),Y
8F1E  C8           .     INY
8F1F  91 B6        ..    STA (&B6),Y
8F21  4C E7 84     L..   JMP &84E7
8F24  20 D3 8D      ..   JSR &8DD3
8F27  20 4D 8E      M.   JSR &8E4D
8F2A  20 69 8E      i.   JSR &8E69
8F2D  20 61 86      a.   JSR &8661
8F30  A0 18        ..    LDY #&18
8F32  A2 02        ..    LDX #&02
8F34  BD 3A C2     .:.   LDA &C23A,X
8F37  91 B6        ..    STA (&B6),Y
8F39  88           .     DEY
8F3A  CA           .     DEX
8F3B  10 F7        ..    BPL &8F34
8F3D  A2 02        ..    LDX #&02
8F3F  A0 06        ..    LDY #&06
8F41  BD 3A C2     .:.   LDA &C23A,X
8F44  99 15 C2     ...   STA &C215,Y
8F47  C8           .     INY
8F48  CA           .     DEX
8F49  10 F6        ..    BPL &8F41
8F4B  60           `     RTS
8F4C  20 24 8F      $.   JSR &8F24
8F4F  20 20 8A       .   JSR &8A20
8F52  4C 58 8F     LX.   JMP &8F58
8F55  20 24 8F      $.   JSR &8F24
8F58  20 5E 8F      ^.   JSR &8F5E
8F5B  4C 42 8C     LB.   JMP &8C42
8F5E  20 1A AA      ..   JSR &AA1A
8F61  20 DF 8F      ..   JSR &8FDF
8F64  A2 0A        ..    LDX #&0A
8F66  BD 99 BF     ...   LDA &BF99,X
8F69  9D 15 C2     ...   STA &C215,X
8F6C  CA           .     DEX
8F6D  10 F7        ..    BPL &8F66
8F6F  A9 0A        ..    LDA #&0A
8F71  8D 1A C2     ...   STA &C21A
8F74  AD 14 C3     ...   LDA &C314
8F77  8D 1D C2     ...   STA &C21D
8F7A  AD 15 C3     ...   LDA &C315
8F7D  8D 1C C2     ...   STA &C21C
8F80  AD 16 C3     ...   LDA &C316
8F83  8D 1B C2     ...   STA &C21B
8F86  20 AB 82      ..   JSR &82AB
8F89  AD 17 C3     ...   LDA &C317
8F8C  20 B1 B8      ..   JSR &B8B1
8F8F  AD FC C1     ...   LDA &C1FC
8F92  9D 22 C3     .".   STA &C322,X
8F95  AD 44 FE     .D.   LDA sysvia_t1cl
8F98  9D 21 C3     .!.   STA &C321,X
8F9B  8D FB C1     ...   STA &C1FB
8F9E  20 32 90      2.   JSR &9032
8FA1  8E FF C0     ...   STX &C0FF
8FA4  8D FF C1     ...   STA &C1FF
8FA7  A2 A4        ..    LDX #&A4
8FA9  A0 BF        ..    LDY #&BF
8FAB  20 AF 82      ..   JSR &82AF
8FAE  A9 10        ..    LDA #%00010000
8FB0  14 CD        ..    TRB &CD                  ; Clear bit 4 of &CD
8FB2  A9 00        ..    LDA #&00
8FB4  60           `     RTS
8FB5  20 5E 88      ^.   JSR &885E
8FB8  08           .     PHP
8FB9  48           H     PHA
8FBA  20 C0 8F      ..   JSR &8FC0
8FBD  68           h     PLA
8FBE  28           (     PLP
8FBF  60           `     RTS
8FC0  20 DF 8F      ..   JSR &8FDF
8FC3  20 32 90      2.   JSR &9032
8FC6  CD FF C1     ...   CMP &C1FF
8FC9  D0 05        ..    BNE &8FD0
8FCB  EC FF C0     ...   CPX &C0FF
8FCE  F0 EF        ..    BEQ &8FBF
8FD0  20 4F 83      O.   JSR &834F
8FD3  A9 42        .B    LDA #&42
8FD5  61 64        ad    ADC (&64,X)
8FD7  20 46 53      FS   JSR &5346
8FDA  20 6D 61      ma   JSR &616D
8FDD  70 00        p.    BCS &8FDF
8FDF  AE FE C1     ...   LDX &C1FE
8FE2  F0 DB        ..    BEQ &8FBF
8FE4  A9 00        ..    LDA #&00
8FE6  1D FF BF     ...   ORA &BFFF,X
8FE9  1D FF C0     ...   ORA &C0FF,X
8FEC  CA           .     DEX
8FED  F0 E1        ..    BEQ &8FD0
8FEF  CA           .     DEX
8FF0  F0 DE        ..    BEQ &8FD0
8FF2  CA           .     DEX
8FF3  D0 F1        ..    BNE &8FE6
8FF5  29 E0        ).    AND #&E0
8FF7  D0 D7        ..    BNE &8FD0
8FF9  AE FE C1     ...   LDX &C1FE
8FFC  E0 06        ..    CPX #&06
8FFE  90 BF        ..    BCC &8FBF
9000  A2 03        ..    LDX #&03
9002  A0 02        ..    LDY #&02
9004  18           .     CLC
9005  BD FD BF     ...   LDA &BFFD,X
9008  7D FD C0     }..   ADC &C0FD,X
900B  48           H     PHA
900C  E8           .     INX
900D  88           .     DEY
900E  10 F5        ..    BPL &9005
9010  B0 BE        ..    BCS &8FD0
9012  A0 02        ..    LDY #&02
9014  68           h     PLA
9015  CA           .     DEX
9016  DD 00 C0     ...   CMP &C000,X
9019  90 07        ..    BCC &9022
901B  D0 B3        ..    BNE &8FD0
901D  88           .     DEY
901E  10 F4        ..    BPL &9014
9020  30 AE        0.    BMI &8FD0
9022  68           h     PLA
9023  CA           .     DEX
9024  88           .     DEY
9025  10 FB        ..    BPL &9022
9027  48           H     PHA
9028  E8           .     INX
9029  E8           .     INX
902A  E8           .     INX
902B  E8           .     INX
902C  EC FE C1     ...   CPX &C1FE
902F  90 D1        ..    BCC &9002
9031  60           `     RTS
9032  18           .     CLC
9033  A0 FF        ..    LDY #&FF
9035  98           .     TYA
9036  79 FF BF     y..   ADC &BFFF,Y
9039  88           .     DEY
903A  D0 FA        ..    BNE &9036
903C  AA           .     TAX
903D  88           .     DEY
903E  98           .     TYA
903F  18           .     CLC
9040  79 FF C0     y..   ADC &C0FF,Y
9043  88           .     DEY
9044  D0 FA        ..    BNE &9040
9046  60           `     RTS
9047  8D 23 C2     .#.   STA &C223
904A  20 CF 8B      ..   JSR &8BCF
904D  F0 03        ..    BEQ &9052
904F  A9 00        ..    LDA #&00
9051  60           `     RTS
9052  AD 23 C2     .#.   LDA &C223
9055  C9 03        ..    CMP #&03
9057  F0 21        .!    BEQ &907A
9059  A0 05        ..    LDY #&05
905B  A2 03        ..    LDX #&03
905D  B1 B8        ..    LDA (&B8),Y
905F  9D 15 C2     ...   STA &C215,X
9062  88           .     DEY
9063  CA           .     DEX
9064  10 F7        ..    BPL &905D
9066  A0 0D        ..    LDY #&0D
9068  A2 03        ..    LDX #&03
906A  BD 15 C2     ...   LDA &C215,X
906D  91 B6        ..    STA (&B6),Y
906F  88           .     DEY
9070  CA           .     DEX
9071  10 F7        ..    BPL &906A
9073  AD 23 C2     .#.   LDA &C223
9076  C9 02        ..    CMP #&02
9078  F0 4C        .L    BEQ &90C6
907A  A0 09        ..    LDY #&09
907C  A2 03        ..    LDX #&03
907E  B1 B8        ..    LDA (&B8),Y
9080  9D 15 C2     ...   STA &C215,X
9083  88           .     DEY
9084  CA           .     DEX
9085  10 F7        ..    BPL &907E
9087  A0 11        ..    LDY #&11
9089  A2 03        ..    LDX #&03
908B  BD 15 C2     ...   LDA &C215,X
908E  91 B6        ..    STA (&B6),Y
9090  88           .     DEY
9091  CA           .     DEX
9092  10 F7        ..    BPL &908B
9094  AE 23 C2     .#.   LDX &C223
9097  CA           .     DEX
9098  D0 2C        .,    BNE &90C6
909A  A0 0E        ..    LDY #&0E
909C  B1 B8        ..    LDA (&B8),Y
909E  8D 2B C2     .+.   STA &C22B
90A1  A0 03        ..    LDY #&03
90A3  B1 B6        ..    LDA (&B6),Y
90A5  10 0D        ..    BPL &90B4
90A7  4E 2B C2     N+.   LSR &C22B
90AA  4E 2B C2     N+.   LSR &C22B
90AD  4E 2B C2     N+.   LSR &C22B
90B0  A0 02        ..    LDY #&02
90B2  10 02        ..    BPL &90B6
90B4  A0 00        ..    LDY #&00
90B6  B1 B6        ..    LDA (&B6),Y
90B8  0A           .     ASL A
90B9  4E 2B C2     N+.   LSR &C22B
90BC  6A           j     ROR A
90BD  91 B6        ..    STA (&B6),Y
90BF  C8           .     INY
90C0  C0 02        ..    CPY #&02
90C2  90 F2        ..    BCC &90B6
90C4  F0 E7        ..    BEQ &90AD
90C6  20 5E 8F      ^.   JSR &8F5E
90C9  4C 9F 8C     L..   JMP &8C9F
90CC  20 CF 8B      ..   JSR &8BCF
90CF  F0 C9        ..    BEQ &909A
90D1  A9 00        ..    LDA #&00
90D3  60           `     RTS
90D4  20 B0 8C      ..   JSR &8CB0
90D7  F0 05        ..    BEQ &90DE
90D9  A9 00        ..    LDA #&00
90DB  4C BA 89     L..   JMP &89BA
90DE  20 EF 8C      ..   JSR &8CEF
90E1  A0 03        ..    LDY #&03
90E3  B1 B6        ..    LDA (&B6),Y
90E5  10 3D        .=    BPL &9124
90E7  A0 03        ..    LDY #&03
90E9  B9 2C C2     .,.   LDA &C22C,Y
90EC  99 30 C2     .0.   STA &C230,Y
90EF  88           .     DEY
90F0  10 F7        ..    BPL &90E9
90F2  A9 FF        ..    LDA #&FF
90F4  8D 2E C2     ...   STA &C22E
90F7  8D 2F C2     ./.   STA &C22F
90FA  20 34 94      4.   JSR &9434
90FD  AD 05 C4     ...   LDA &C405
9100  08           .     PHP
9101  20 BA 89      ..   JSR &89BA
9104  A0 03        ..    LDY #&03
9106  B9 30 C2     .0.   LDA &C230,Y
9109  99 2C C2     .,.   STA &C22C,Y
910C  88           .     DEY
910D  10 F7        ..    BPL &9106
910F  28           (     PLP
9110  F0 12        ..    BEQ &9124
9112  20 6C 83      l.   JSR &836C
9115  B4 44        .D    LDY &44
9117  69 72        ir    ADC #&72
9119  20 6E 6F      no   JSR &6F6E
911C  74 20        t     STZ &20,X
911E  65 6D        em    ADC &6D
9120  70 74        pt    BCS &9196
9122  79 00 A0     y..   ADC &A000,Y
9125  12 A2        ..    ORA (&A2)
9127  02            .     ...
9128  B1 B6        ..    LDA (&B6),Y
912A  C9 01        ..    CMP #&01
912C  C8           .     INY
912D  A9 00        ..    LDA #&00
912F  71 B6        q.    ADC (&B6),Y
9131  99 24 C2     .$.   STA &C224,Y
9134  CA           .     DEX
9135  10 F5        ..    BPL &912C
9137  A0 18        ..    LDY #&18
9139  A2 02        ..    LDX #&02
913B  B1 B6        ..    LDA (&B6),Y
913D  9D 34 C2     .4.   STA &C234,X
9140  88           .     DEY
9141  CA           .     DEX
9142  10 F7        ..    BPL &913B
9144  A0 03        ..    LDY #&03
9146  B1 B6        ..    LDA (&B6),Y
9148  10 7E        .~    BPL &91C8
914A  AE 2F C2     ./.   LDX &C22F
914D  E0 FF        ..    CPX #&FF
914F  F0 05        ..    BEQ &9156
9151  EC 17 C3     ...   CPX &C317
9154  D0 22        ."    BNE &9178
9156  A2 02        ..    LDX #&02
9158  BD 34 C2     .4.   LDA &C234,X
915B  DD 2C C2     .,.   CMP &C22C,X
915E  D0 18        ..    BNE &9178
9160  CA           .     DEX
9161  10 F5        ..    BPL &9158
9163  20 6C 83      l.   JSR &836C
9166  96 43        .C    STX &43,Y
9168  61 6E        an    ADC (&6E,X)
916A  27 74        't    RMB2 &74
916C  20 64 65      de   JSR &6564
916F  6C 65 74     let   JMP (&7465)
9172  65 20        e     ADC &20
9174  43            C     ...
9175  53            S     ...
9176  44            D     ...
9177  00           .     BRK
9178  AD 17 C3     ...   LDA &C317
917B  CD 1B C3     ...   CMP &C31B
917E  D0 26        .&    BNE &91A6
9180  A2 02        ..    LDX #&02
9182  BD 34 C2     .4.   LDA &C234,X
9185  DD 18 C3     ...   CMP &C318,X
9188  D0 1C        ..    BNE &91A6
918A  CA           .     DEX
918B  10 F5        ..    BPL &9182
918D  20 6C 83      l.   JSR &836C
9190  97 43        .C    SMB1 &43
9192  61 6E        an    ADC (&6E,X)
9194  27 74        't    RMB2 &74
9196  20 64 65      de   JSR &6564
9199  6C 65 74     let   JMP (&7465)
919C  65 20        e     ADC &20
919E  4C 69 62     Lib   JMP &6269
91A1  72 61        ra    ADC (&61)
91A3  72 79        ry    ADC (&79)
91A5  00           .     BRK
91A6  AD 17 C3     ...   LDA &C317
91A9  CD 1F C3     ...   CMP &C31F
91AC  D0 1A        ..    BNE &91C8
91AE  A2 02        ..    LDX #&02
91B0  BD 34 C2     .4.   LDA &C234,X
91B3  DD 1C C3     ...   CMP &C31C,X
91B6  D0 10        ..    BNE &91C8
91B8  CA           .     DEX
91B9  10 F5        ..    BPL &91B0
91BB  A9 02        ..    LDA #&02
91BD  8D 1C C3     ...   STA &C31C
91C0  A9 00        ..    LDA #&00
91C2  8D 1D C3     ...   STA &C31D
91C5  8D 1E C3     ...   STA &C31E
91C8  A0 04        ..    LDY #&04
91CA  B1 B6        ..    LDA (&B6),Y
91CC  30 03        0.    BMI &91D1
91CE  20 4B 8C      K.   JSR &8C4B
91D1  A0 1A        ..    LDY #&1A
91D3  A2 00        ..    LDX #&00
91D5  B1 B6        ..    LDA (&B6),Y
91D7  81 B6        ..    STA (&B6,X)
91D9  E6 B6        ..    INC &B6
91DB  D0 02        ..    BNE &91DF
91DD  E6 B7        ..    INC &B7
91DF  A5 B6        ..    LDA &B6
91E1  C9 BB        ..    CMP #&BB
91E3  D0 F0        ..    BNE &91D5
91E5  A5 B7        ..    LDA &B7
91E7  C9 C8        ..    CMP #&C8
91E9  D0 EA        ..    BNE &91D5
91EB  20 E7 84      ..   JSR &84E7
91EE  20 5E 8F      ^.   JSR &8F5E
91F1  4C B7 89     L..   JMP &89B7
91F4  86 B8        ..    STX &B8
91F6  84 B9        ..    STY &B9
91F8  A8           .     TAY
91F9  A2 00        ..    LDX #&00
91FB  8E D5 C2     ...   STX &C2D5
91FE  0A           .     ASL A
91FF  AA           .     TAX
9200  E8           .     INX
9201  E8           .     INX
9202  30 19        0.    BMI &921D
9204  E0 12        ..    CPX #&12
9206  B0 15        ..    BCS &921D
9208  BD 1F 92     ...   LDA &921F,X
920B  48           H     PHA
920C  BD 1E 92     ...   LDA &921E,X
920F  48           H     PHA
9210  5A           Z     PHY
9211  A0 00        ..    LDY #&00
9213  B1 B8        ..    LDA (&B8),Y
9215  85 B4        ..    STA &B4
9217  C8           .     INY
9218  B1 B8        ..    LDA (&B8),Y
921A  85 B5        ..    STA &B5
921C  68           h     PLA
921D  60           `     RTS
921E  EE 8B 4B     ..K   INC &4B8B
9221  8F 46        .F    BBS0 &9269
9223  90 46        .F    BCC &926B
9225  90 46        .F    BCC &926D
9227  90 CB        ..    BCC &91F4
9229  90 8B        ..    BCC &91B6
922B  8C D3 90     ...   STY &90D3
922E  54            T     ...
922F  8F AA        ..    BBS0 &91DB
9231  A9 A3        ..    LDA #&A3
9233  85 B7        ..    STA &B7
9235  BD 1A A2     ...   LDA &A21A,X
9238  85 B6        ..    STA &B6
923A  A2 0C        ..    LDX #&0C
923C  A0 00        ..    LDY #&00
923E  B1 B6        ..    LDA (&B6),Y
9240  29 7F        )    AND #&7F
9242  C9 20        .     CMP #&20
9244  90 08        ..    BCC &924E
9246  20 78 92      x.   JSR &9278
9249  C8           .     INY
924A  CA           .     DEX
924B  D0 F1        ..    BNE &923E
924D  60           `     RTS
924E  20 E7 A3      ..   JSR &A3E7
9251  CA           .     DEX
9252  D0 FA        ..    BNE &924E
9254  60           `     RTS

; -----------------------------------------------------------------------------
; Write string to output stream
; -----------------------------------------------------------------------------
.
9255  68           h     PLA
9256  85 B6        ..    STA &B6
9258  68           h     PLA
9259  85 B7        ..    STA &B7
925B  A0 01        ..    LDY #&01
925D  B1 B6        ..    LDA (&B6),Y
925F  30 06        0.    BMI &9267                ; Jump if negative (last byte has been reached)
9261  20 78 92      x.   JSR &9278
9264  C8           .     INY
9265  D0 F6        ..    BNE &925D
.
9267  29 7F        )    AND #&7F                 ; Mask out bit 7
9269  20 78 92      x.   JSR &9278
926C  98           .     TYA
926D  18           .     CLC
926E  65 B6        e.    ADC &B6
9270  A8           .     TAY
9271  A9 00        ..    LDA #&00
9273  65 B7        e.    ADC &B7
9275  48           H     PHA
9276  5A           Z     PHY
9277  60           `     RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
9278  48           H     PHA
9279  DA           .     PHX
927A  A5 B6        ..    LDA &B6
927C  48           H     PHA
927D  A5 B7        ..    LDA &B7
927F  48           H     PHA
9280  BA           .     TSX
9281  BD 04 01     ...   LDA &0104,X
9284  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
9287  68           h     PLA
9288  85 B7        ..    STA &B7
928A  68           h     PLA
928B  85 B6        ..    STA &B6
928D  FA           .     PLX
928E  68           h     PLA
928F  60           `     RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
9290  A2 0A        ..    LDX #&0A
9292  20 3C 92      <.   JSR &923C
9295  20 E7 A3      ..   JSR &A3E7
9298  A0 04        ..    LDY #&04
929A  A2 03        ..    LDX #&03
929C  B1 B6        ..    LDA (&B6),Y
929E  2A           *     ROL A
929F  90 07        ..    BCC &92A8                ; Jump if bit 0 is cleared
92A1  B9 C8 92     ...   LDA &92C8,Y
92A4  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
92A7  CA           .     DEX
.
92A8  88           .     DEY
92A9  10 F1        ..    BPL &929C
92AB  CA           .     DEX
92AC  30 06        0.    BMI &92B4
92AE  20 E7 A3      ..   JSR &A3E7
92B1  4C AB 92     L..   JMP &92AB
92B4  A9 28        .(    LDA #ASC"("
92B6  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
92B9  A0 19        ..    LDY #&19
92BB  B1 B6        ..    LDA (&B6),Y
92BD  20 CD 92      ..   JSR &92CD                ; Write the ASCII value of A in hex. to the output stream
92C0  A9 29        .)    LDA #ASC")"
92C2  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
92C5  4C E7 A3     L..   JMP &A3E7
.
92C8  52 57 4C 44  RWLD  EQUS "RWLDE"
      45           E

; -----------------------------------------------------------------------------
; Write the ASCII value of A in hex. to the output stream
; -----------------------------------------------------------------------------
.
92CD  48           H     PHA
92CE  4A           J     LSR A
92CF  4A           J     LSR A
92D0  4A           J     LSR A
92D1  4A           J     LSR A
92D2  20 D6 92      ..   JSR &92D6
92D5  68           h     PLA
.
92D6  20 66 84      f.   JSR &8466                ; Translate the lower nibble of A to ASCII (0-9,A-F)
92D9  4C ED A3     L..   JMP &A3ED                ; Write character to output stream

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
92DC  0A           .     ASL A
92DD  2A           *     ROL A
92DE  2A           *     ROL A
92DF  2A           *     ROL A
92E0  69 30        i0    ADC #&30
92E2  4C ED A3     L..   JMP &A3ED

; -----------------------------------------------------------------------------
; *CAT ??????
; -----------------------------------------------------------------------------
.
92E5  20 1A AA      ..   JSR &AA1A
92E8  A9 D9        ..    LDA #&D9
92EA  85 B6        ..    STA &B6
92EC  A9 C8        ..    LDA #&C8
92EE  85 B7        ..    STA &B7
92F0  A2 13        ..    LDX #&13
92F2  20 3C 92      <.   JSR &923C
92F5  20 55 92      U.   JSR &9255                ; Write string to output stream

92F8  20                 EQUB ASC" "
92F9  A8           .     EQUB &80+ASC"("

92FA  AD FA C8     ...   LDA &C8FA
92FD  20 CD 92      ..   JSR &92CD                ; Write the ASCII value of A in hex. to the output stream
9300  20 55 92      U.   JSR &9255                ; Write string to output stream

9303  29            )    EQUS ")"
9304  0D            .    EQUB &0D
9305  44 72 69 76  Driv  EQUS "Drive"
      65           e
930A  BA           .     EQUB &80+ASC":"

930B  AD 17 C3     ...   LDA &C317
930E  20 DC 92      ..   JSR &92DC
9311  A9 D2        ..    LDA #&D2
9313  85 B6        ..    STA &B6
9315  A9 9D        ..    LDA #&9D
9317  85 B7        ..    STA &B7
9319  A2 0D        ..    LDX #&0D
931B  20 3C 92      <.   JSR &923C
931E  20 55 92      U.   JSR &9255                ; Write string to output stream

9321  4F 70 74 69  Opti  EQUS "Option"
      6F 6E        on
9327  A0           .     EQUB &80+ASC" "

9328  AD FD C1     ...   LDA &C1FD
932B  20 CD 92      ..   JSR &92CD
932E  20 55 92      U.   JSR &9255                ; Write string to output stream

9331  20                 EQUB ASC" "
9332  A8           .     EQUB &80+ASC"("

9333  AE FD C1     ...   LDX &C1FD
9336  BD D4 93     ...   LDA &93D4,X
9339  85 B6        ..    STA &B6
933B  A9 93        ..    LDA #&93
933D  85 B7        ..    STA &B7
933F  A2 04        ..    LDX #&04
9341  20 3C 92      <.   JSR &923C
9344  20 55 92      U.   JSR &9255                ; Write string to output stream

9347  29            )    EQUS ")"
9348  0D            .    EQUB &0D
9349  44 69 72 2E  Dir.  EQUS "Dir."
930A  A0           .     EQUB &80+ASC" "

934E  A9 00        ..    LDA #&00
9350  85 B6        ..    STA &B6
9352  A9 C3        ..    LDA #&C3
9354  85 B7        ..    STA &B7
9356  A2 0A        ..    LDX #&0A
9358  20 3C 92      <.   JSR &923C
935B  20 55 92      U.   JSR &9255                ; Write string to output stream

935E  20 20 20 20        EQUS "     Lib."
      20 4C 69 62   Lib
      2E           .
9367  A0           .     EQUB &80+ASC" "

9368  A9 0A        ..    LDA #&0A
936A  85 B6        ..    STA &B6
936C  A9 C3        ..    LDA #&C3
936E  85 B7        ..    STA &B7
9370  A2 0A        ..    LDX #&0A
9372  20 3C 92      <.   JSR &923C
9375  20 55 92      U.   JSR &9255                ; Write string to output stream

9378  0D           .     EQUB &0D
9379  8D           .     EQUB &8D

937A  A9 05        ..    LDA #&05
937C  85 B6        ..    STA &B6
937E  A9 C4        ..    LDA #&C4
9380  85 B7        ..    STA &B7
9382  60           `     RTS

9383  20 07 A8      ..   JSR &A807
9386  20 26 94      &.   JSR &9426
9389  20 E5 92      ..   JSR &92E5
938C  A9 04        ..    LDA #&04
938E  8D 2B C2     .+.   STA &C22B
9391  A0 00        ..    LDY #&00
9393  B1 B6        ..    LDA (&B6),Y
9395  F0 23        .#    BEQ &93BA
9397  20 90 92      ..   JSR &9290
939A  CE 2B C2     .+.   DEC &C22B
939D  D0 0B        ..    BNE &93AA
939F  A9 04        ..    LDA #&04
93A1  8D 2B C2     .+.   STA &C22B
93A4  20 EB A3      ..   JSR &A3EB
93A7  4C AD 93     L..   JMP &93AD
93AA  20 E7 A3      ..   JSR &A3E7
93AD  18           .     CLC
93AE  A5 B6        ..    LDA &B6
93B0  69 1A        i.    ADC #&1A
93B2  85 B6        ..    STA &B6
93B4  90 DB        ..    BCC &9391
93B6  E6 B7        ..    INC &B7
93B8  B0 D7        ..    BCS &9391
93BA  AD 2B C2     .+.   LDA &C22B
93BD  C9 04        ..    CMP #&04
93BF  F0 10        ..    BEQ &93D1
93C1  A9 86        ..    LDA #&86
93C3  20 F4 FF      ..   JSR osbyte
93C6  8A           .     TXA
93C7  D0 05        ..    BNE &93CE
93C9  A9 0B        ..    LDA #&0B
93CB  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
93CE  20 EB A3      ..   JSR &A3EB
93D1  4C BA 89     L..   JMP &89BA
93D4  D8           .     CLD
93D5  DC            .     ...
93D6  E0 E4        ..    CPX #&E4
93D8  4F 66        Of    BBR4 &9440
93DA  66 20        f     ROR &20
93DC  4C 6F 61     Loa   JMP &616F
93DF  64 52        dR    STZ &52
93E1  75 6E        un    ADC &6E,X
93E3  20 45 78      Ex   JSR &7845
93E6  65 63        ec    ADC &63
93E8  20 26 94      &.   JSR &9426
93EB  20 E5 92      ..   JSR &92E5
93EE  A0 00        ..    LDY #&00
93F0  B1 B6        ..    LDA (&B6),Y
93F2  F0 DD        ..    BEQ &93D1
93F4  20 B6 94      ..   JSR &94B6
93F7  18           .     CLC
93F8  A5 B6        ..    LDA &B6
93FA  69 1A        i.    ADC #&1A
93FC  85 B6        ..    STA &B6
93FE  90 EE        ..    BCC &93EE
9400  E6 B7        ..    INC &B7
9402  80 EA        ..    BRA &93EE
9404  A0 00        ..    LDY #&00
9406  B1 B4        ..    LDA (&B4),Y
9408  29 7F        )    AND #&7F
940A  C9 5E        .^    CMP #&5E
940C  D0 0A        ..    BNE &9418
940E  A9 C0        ..    LDA #&C0
9410  85 B6        ..    STA &B6
9412  A9 C8        ..    LDA #&C8
9414  85 B7        ..    STA &B7
9416  D0 0C        ..    BNE &9424
9418  C9 40        .@    CMP #&40
941A  D0 09        ..    BNE &9425
941C  A9 FE        ..    LDA #&FE
941E  85 B6        ..    STA &B6
9420  A9 C2        ..    LDA #&C2
9422  85 B7        ..    STA &B7
9424  98           .     TYA
9425  60           `     RTS
9426  A0 00        ..    LDY #&00
9428  B1 B4        ..    LDA (&B4),Y
942A  C9 21        .!    CMP #&21
942C  B0 06        ..    BCS &9434
942E  AE 17 C3     ...   LDX &C317
9431  E8           .     INX
9432  D0 F1        ..    BNE &9425
9434  20 63 88      c.   JSR &8863
9437  D0 0E        ..    BNE &9447
9439  A0 03        ..    LDY #&03
943B  B1 B6        ..    LDA (&B6),Y
943D  30 0D        0.    BMI &944C
943F  20 48 89      H.   JSR &8948
9442  F0 F5        ..    BEQ &9439
9444  4C C1 8B     L..   JMP &8BC1
9447  20 04 94      ..   JSR &9404
944A  D0 F8        ..    BNE &9444
944C  AC 2E C2     ...   LDY &C22E
944F  C8           .     INY
9450  D0 0B        ..    BNE &945D
9452  A0 02        ..    LDY #&02
9454  B9 14 C3     ...   LDA &C314,Y
9457  99 2C C2     .,.   STA &C22C,Y
945A  88           .     DEY
945B  10 F7        ..    BPL &9454
945D  A2 0A        ..    LDX #&0A
945F  BD 99 BF     ...   LDA &BF99,X
9462  9D 15 C2     ...   STA &C215,X
9465  CA           .     DEX
9466  10 F7        ..    BPL &945F
9468  A2 02        ..    LDX #&02
946A  A0 16        ..    LDY #&16
946C  B1 B6        ..    LDA (&B6),Y
946E  9D 1B C2     ...   STA &C21B,X
9471  99 FE C2     ...   STA &C2FE,Y
9474  C8           .     INY
9475  CA           .     DEX
9476  10 F4        ..    BPL &946C
9478  A5 B7        ..    LDA &B7
947A  C9 94        ..    CMP #&94
947C  F0 37        .7    BEQ &94B5
947E  4C AB 82     L..   JMP &82AB
9481  A4 0D        ..    LDY &0D
9483  8D 8D 0D     ...   STA &0D8D
9486  0D 0D 0D     ...   ORA &0D0D
9489  0D 0D 00     ...   ORA &000D
948C  00           .     BRK
948D  00           .     BRK
948E  00           .     BRK
948F  00           .     BRK
9490  00           .     BRK
9491  00           .     BRK
9492  00           .     BRK
9493  00           .     BRK
9494  05 00        ..    ORA &00
9496  00           .     BRK
9497  02            .     ...
9498  00           .     BRK
9499  00           .     BRK
949A  00           .     BRK
949B  00           .     BRK
949C  20 B5 8F      ..   JSR &8FB5
949F  F0 03        ..    BEQ &94A4
94A1  4C B4 8B     L..   JMP &8BB4
94A4  20 B6 94      ..   JSR &94B6
94A7  20 48 89      H.   JSR &8948
94AA  F0 F8        ..    BEQ &94A4
94AC  4C BA 89     L..   JMP &89BA
94AF  A5 CD        ..    LDA &CD
94B1  29 04        ).    AND #%000001000
94B3  D0 01        ..    BNE &94B6                ; Jump if the '???' flag is set
94B5  60           `     RTS
94B6  20 90 92      ..   JSR &9290
94B9  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
94BC  A0 04        ..    LDY #&04
94BE  B1 B6        ..    LDA (&B6),Y
94C0  30 2F        0/    BMI &94F1
94C2  88           .     DEY
94C3  B1 B6        ..    LDA (&B6),Y
94C5  2A           *     ROL A
94C6  A2 0A        ..    LDX #&0A
94C8  A0 0D        ..    LDY #&0D
94CA  90 04        ..    BCC &94D0
94CC  A2 17        ..    LDX #&17
94CE  A0 18        ..    LDY #&18
94D0  E0 16        ..    CPX #&16
94D2  F0 05        ..    BEQ &94D9
94D4  B1 B6        ..    LDA (&B6),Y
94D6  20 CD 92      ..   JSR &92CD                ; Write the ASCII value of A in hex. to the output stream
94D9  8A           .     TXA
94DA  29 03        ).    AND #&03
94DC  C9 01        ..    CMP #&01
94DE  D0 0B        ..    BNE &94EB
94E0  20 E7 A3      ..   JSR &A3E7
94E3  20 E7 A3      ..   JSR &A3E7
94E6  8A           .     TXA
94E7  18           .     CLC
94E8  69 05        i.    ADC #&05
94EA  A8           .     TAY
94EB  88           .     DEY
94EC  E8           .     INX
94ED  E0 1A        ..    CPX #&1A
94EF  D0 DF        ..    BNE &94D0
94F1  4C EB A3     L..   JMP &A3EB
94F4  20 34 94      4.   JSR &9434
94F7  A0 09        ..    LDY #&09
94F9  B9 CC C8     ...   LDA &C8CC,Y
94FC  99 00 C3     ...   STA &C300,Y
94FF  88           .     DEY
9500  10 F7        ..    BPL &94F9
9502  AD 2F C2     ./.   LDA &C22F
9505  C9 FF        ..    CMP #&FF
9507  D0 03        ..    BNE &950C
9509  AD 17 C3     ...   LDA &C317
950C  8D 1F C3     ...   STA &C31F
950F  A0 02        ..    LDY #&02
9511  B9 2C C2     .,.   LDA &C22C,Y
9514  99 1C C3     ...   STA &C31C,Y
9517  88           .     DEY
9518  10 F7        ..    BPL &9511
951A  A9 FF        ..    LDA #&FF
951C  8D 2E C2     ...   STA &C22E
951F  8D 2F C2     ./.   STA &C22F
9522  4C BA 89     L..   JMP &89BA
9525  A9 FF        ..    LDA #&FF
9527  A0 00        ..    LDY #&00
9529  20 86 AC      ..   JSR &AC86
952C  A2 0F        ..    LDX #&0F
952E  BD E7 95     ...   LDA &95E7,X
9531  9D 42 C2     .B.   STA &C242,X
9534  CA           .     DEX
9535  10 F7        ..    BPL &952E
9537  A5 B4        ..    LDA &B4
9539  8D 40 C2     .@.   STA &C240
953C  A5 B5        ..    LDA &B5
953E  8D 41 C2     .A.   STA &C241
9541  A9 40        .@    LDA #&40
9543  85 B8        ..    STA &B8
9545  A9 C2        ..    LDA #&C2
9547  85 B9        ..    STA &B9
9549  20 D3 8D      ..   JSR &8DD3
954C  A0 09        ..    LDY #&09
954E  AD 37 C2     .7.   LDA &C237
9551  0D 38 C2     .8.   ORA &C238
9554  0D 39 C2     .9.   ORA &C239
9557  F0 13        ..    BEQ &956C
9559  20 6C 83      l.   JSR &836C
955C  C4 41        .A    CPY &41
955E  6C 72 65     lre   JMP (&6572)
9561  61 64        ad    ADC (&64,X)
9563  79 20 65     y e   ADC &6520,Y
9566  78           x     SEI
9567  69 73        is    ADC #&73
9569  74 73        ts    STZ &73,X
956B  00           .     BRK
956C  B1 B4        ..    LDA (&B4),Y
956E  29 7F        )    AND #&7F
9570  C9 22        ."    CMP #&22
9572  F0 04        ..    BEQ &9578
9574  C9 21        .!    CMP #&21
9576  B0 02        ..    BCS &957A
9578  A9 0D        ..    LDA #&0D
957A  91 B6        ..    STA (&B6),Y
957C  88           .     DEY
957D  10 ED        ..    BPL &956C
957F  20 2A 8F      *.   JSR &8F2A
9582  A0 03        ..    LDY #&03
9584  B1 B6        ..    LDA (&B6),Y
9586  09 80        ..    ORA #&80
9588  91 B6        ..    STA (&B6),Y
958A  88           .     DEY
958B  C0 01        ..    CPY #&01
958D  D0 F5        ..    BNE &9584
958F  88           .     DEY
9590  B1 B6        ..    LDA (&B6),Y
9592  09 80        ..    ORA #&80
9594  91 B6        ..    STA (&B6),Y
9596  A9 00        ..    LDA #&00
9598  AA           .     TAX
9599  A8           .     TAY
959A  9D 00 CA     ...   STA &CA00,X
959D  9D 00 C9     ...   STA &C900,X
95A0  9D 00 CB     ...   STA &CB00,X
95A3  9D 00 CC     ...   STA &CC00,X
95A6  9D 00 CD     ...   STA &CD00,X
95A9  E8           .     INX
95AA  D0 EE        ..    BNE &959A
95AC  A2 04        ..    LDX #&04
95AE  BD E2 84     ...   LDA &84E2,X
95B1  9D 00 C9     ...   STA &C900,X
95B4  9D FA CD     ...   STA &CDFA,X
95B7  BD 14 C3     ...   LDA &C314,X
95BA  9D D6 CD     ...   STA &CDD6,X
95BD  CA           .     DEX
95BE  10 EE        ..    BPL &95AE
95C0  A2 00        ..    LDX #&00
95C2  B1 B4        ..    LDA (&B4),Y
95C4  29 7F        )    AND #&7F
95C6  C9 22        ."    CMP #&22
95C8  F0 04        ..    BEQ &95CE
95CA  C9 21        .!    CMP #&21
95CC  B0 02        ..    BCS &95D0
95CE  A9 0D        ..    LDA #&0D
95D0  9D D9 CD     ...   STA &CDD9,X
95D3  9D CC CD     ...   STA &CDCC,X
95D6  C8           .     INY
95D7  E8           .     INX
95D8  E0 0A        ..    CPX #&0A
95DA  D0 E6        ..    BNE &95C2
95DC  A9 0D        ..    LDA #&0D
95DE  9D D9 CD     ...   STA &CDD9,X
95E1  20 20 8A       .   JSR &8A20
95E4  4C 58 8F     LX.   JMP &8F58
95E7  00           .     BRK
95E8  00           .     BRK
95E9  00           .     BRK
95EA  00           .     BRK
95EB  00           .     BRK
95EC  00           .     BRK
95ED  00           .     BRK
95EE  00           .     BRK
95EF  00           .     BRK
95F0  C9 FF        ..    CMP #&FF
95F2  FF 00        ..    BBS7 &95F4
95F4  CE FF FF     ...   DEC &FFFF
95F7  9C 60 C2     .`.   STZ &C260
95FA  A9 01        ..    LDA #&01
95FC  8D 61 C2     .a.   STA &C261
95FF  20 42 96      B.   JSR &9642
9602  20 35 88      5.   JSR &8835
9605  8D 6F C2     .o.   STA &C26F
9608  20 3F 96      ?.   JSR &963F
960B  20 35 88      5.   JSR &8835
960E  A2 10        ..    LDX #&10
9610  8D 73 C2     .s.   STA &C273
9613  CD 6F C2     .o.   CMP &C26F
9616  D0 0F        ..    BNE &9627
9618  A8           .     TAY
9619  30 06        0.    BMI &9621
961B  A5 CD        ..    LDA &CD
961D  29 20        )     AND #%00100000
961F  D0 10        ..    BNE &9631                ; Jump if the 'Winchester disc controller present' flag is set
9621  A2 40        .@    LDX #&40
9623  CE 60 C2     .`.   DEC &C260
9626  98           .     TYA
9627  4D 6F C2     Mo.   EOR &C26F
962A  30 05        0.    BMI &9631
962C  20 3F 96      ?.   JSR &963F
962F  90 1B        ..    BCC &964C
9631  20 6C 83      l.   JSR &836C
9634  94 42        .B    STY &42
9636  61 64        ad    ADC (&64,X)
9638  20 70 61      pa   JSR &6170
963B  72 6D        rm    ADC (&6D)
963D  73            s     ...
963E  00           .     BRK
963F  20 37 87      7.   JSR &8737
9642  20 07 A8      ..   JSR &A807
9645  A0 00        ..    LDY #&00
9647  B1 B4        ..    LDA (&B4),Y
9649  C9 20        .     CMP #&20
964B  60           `     RTS
964C  A0 0A        ..    LDY #&0A
964E  B9 E1 97     ...   LDA &97E1,Y
9651  99 15 C2     ...   STA &C215,Y
9654  88           .     DEY
9655  10 F7        ..    BPL &964E
9657  8A           .     TXA
9658  A8           .     TAY
9659  A2 C4        ..    LDX #&C4
965B  20 31 BD      1.   JSR &BD31
965E  8E 17 C2     ...   STX &C217
9661  8C 1E C2     ...   STY &C21E
9664  20 55 92      U.   JSR &9255                ; Write string to output stream
9667  0D 42 61     .Ba   ORA &6142
966A  63            c     ...
966B  6B            k     ...
966C  75 70        up    ADC &70,X
966E  20 BA AD      ..   JSR &ADBA
9671  6F C2        o.    BBR6 &9635
9673  20 DC 92      ..   JSR &92DC
9676  20 55 92      U.   JSR &9255                ; Write string to output stream
9679  20 74 6F      to   JSR &6F74
967C  20 BA AD      ..   JSR &ADBA
967F  73            s     ...
9680  C2            .     ...
9681  20 DC 92      ..   JSR &92DC
9684  20 55 92      U.   JSR &9255                ; Write string to output stream
9687  20 3F A0      ?.   JSR &A03F
968A  20 31 9D      1.   JSR &9D31
968D  20 00 B5      ..   JSR &B500
9690  A0 03        ..    LDY #&03
9692  B9 14 C3     ...   LDA &C314,Y
9695  99 2C C2     .,.   STA &C22C,Y
9698  88           .     DEY
9699  10 F7        ..    BPL &9692
969B  20 89 BD      ..   JSR &BD89
969E  20 6B 97      k.   JSR &976B
96A1  AD 6F C2     .o.   LDA &C26F
96A4  8D 17 C3     ...   STA &C317
96A7  AD 61 C2     .a.   LDA &C261
96AA  F0 03        ..    BEQ &96AF
96AC  20 57 BE      W.   JSR &BE57
96AF  38           8     SEC
96B0  AD FC C0     ...   LDA &C0FC
96B3  ED 1D C2     ...   SBC &C21D
96B6  A8           .     TAY
96B7  AD FD C0     ...   LDA &C0FD
96BA  ED 1C C2     ...   SBC &C21C
96BD  D0 10        ..    BNE &96CF
96BF  AD FE C0     ...   LDA &C0FE
96C2  ED 1B C2     ...   SBC &C21B
96C5  D0 08        ..    BNE &96CF
96C7  CC 1E C2     ...   CPY &C21E
96CA  B0 03        ..    BCS &96CF
96CC  8C 1E C2     ...   STY &C21E
96CF  A9 08        ..    LDA #&08
96D1  8D 1A C2     ...   STA &C21A
96D4  20 AB 82      ..   JSR &82AB
96D7  20 6B 97      k.   JSR &976B
96DA  A9 0A        ..    LDA #&0A
96DC  8D 1A C2     ...   STA &C21A
96DF  AD 73 C2     .s.   LDA &C273
96E2  8D 17 C3     ...   STA &C317
96E5  4E 61 C2     Na.   LSR &C261
96E8  90 2B        .+    BCC &9715
96EA  A2 0A        ..    LDX #&0A
96EC  BD 60 97     .`.   LDA &9760,X
96EF  9D 7F C2     ..   STA &C27F,X
96F2  CA           .     DEX
96F3  10 F7        ..    BPL &96EC
96F5  A2 7F        .    LDX #&7F
96F7  A0 C2        ..    LDY #&C2
96F9  20 AF 82      ..   JSR &82AF
96FC  A2 FD        ..    LDX #&FD
96FE  38           8     SEC
96FF  BD FF BF     ...   LDA &BFFF,X
9702  9D 37 C1     .7.   STA &C137,X
9705  BD FF C3     ...   LDA &C3FF,X
9708  48           H     PHA
9709  FD FF BF     ...   SBC &BFFF,X
970C  9D 3A C1     .:.   STA &C13A,X
970F  E8           .     INX
9710  30 ED        0.    BMI &96FF
9712  AA           .     TAX
9713  30 3D        0=    BMI &9752
9715  20 AB 82      ..   JSR &82AB
9718  20 5F 99      _.   JSR &995F
971B  90 81        ..    BCC &969E
971D  A2 02        ..    LDX #&02
971F  68           h     PLA
9720  9D FC C0     ...   STA &C0FC,X
9723  CA           .     DEX
9724  10 F9        ..    BPL &971F
9726  AD FE C1     ...   LDA &C1FE
9729  C9 F6        ..    CMP #&F6
972B  B0 03        ..    BCS &9730
972D  20 E7 84      ..   JSR &84E7
9730  20 9E 8F      ..   JSR &8F9E
9733  20 32 BE      2.   JSR &BE32
9736  20 6B 97      k.   JSR &976B
9739  20 97 BD      ..   JSR &BD97
973C  20 55 92      U.   JSR &9255                ; Write string to output stream
973F  0D 43 6F     .Co   ORA &6F43
9742  70 79        py    BCS &97BD
9744  20 63 6F      co   JSR &6F63
9747  6D 70 6C     mpl   ADC &6C70
974A  65 74        et    ADC &74
974C  65 64        ed    ADC &64
974E  8D 4C BA     .L.   STA &BA4C
9751  89 20        .     BIT #&20
9753  6C 83 C8     l..   JMP (&C883)
9756  54            T     ...
9757  6F 6F        oo    BBR6 &97C8
9759  20 73 6D      sm   JSR &6D73
975C  61 6C        al    ADC (&6C,X)
975E  6C 00 00     l..   JMP (&0000)
9761  00           .     BRK
9762  C4 FF        ..    CPY &FF
9764  FF 08        ..    BBS7 &976E
9766  00           .     BRK
9767  00           .     BRK
9768  00           .     BRK
9769  02            .     ...
976A  00           .     BRK
976B  AD 60 C2     .`.   LDA &C260
976E  D0 01        ..    BNE &9771
9770  60           `     RTS
9771  08           .     PHP
9772  49 80        I.    EOR #&80
9774  8D 60 C2     .`.   STA &C260
9777  20 55 92      U.   JSR &9255                ; Write string to output stream
977A  0D 49 6E     .In   ORA &6E49
977D  73            s     ...
977E  65 72        er    ADC &72
9780  74 A0        t.    STZ &A0,X
9782  28           (     PLP
9783  10 0C        ..    BPL &9791
9785  20 55 92      U.   JSR &9255                ; Write string to output stream
9788  73            s     ...
9789  6F 75        ou    BBR6 &9800
978B  72 63        rc    ADC (&63)
978D  65 A0        e.    ADC &A0
978F  80 0F        ..    BRA &97A0
9791  20 55 92      U.   JSR &9255                ; Write string to output stream
9794  64 65        de    STZ &65
9796  73            s     ...
9797  74 69        ti    STZ &69,X
9799  6E 61 74     nat   ROR &7461
979C  69 6F        io    ADC #&6F
979E  6E A0 20     n.    ROR &20A0
97A1  55 92        U.    EOR &92,X
97A3  64 69        di    STZ &69
97A5  73            s     ...
97A6  63            c     ...
97A7  20 69 6E      in   JSR &6E69
97AA  20 64 72      dr   JSR &7264
97AD  69 76        iv    ADC #&76
97AF  65 A0        e.    ADC &A0
97B1  AD 6F C2     .o.   LDA &C26F
97B4  20 DC 92      ..   JSR &92DC
97B7  20 55 92      U.   JSR &9255                ; Write string to output stream
97BA  0D 74 68     .th   ORA &6874
97BD  65 6E        en    ADC &6E
97BF  20 70 72      pr   JSR &7270
97C2  65 73        es    ADC &73
97C4  73            s     ...
97C5  20 53 50      SP   JSR &5053
97C8  41 43        AC    EOR (&43,X)
97CA  45 20        E     EOR &20
97CC  42            B     ...
97CD  41 D2        A.    EOR (&D2,X)
97CF  A9 79        .y    LDA #&79
97D1  A2 E2        ..    LDX #&E2
97D3  20 F4 FF      ..   JSR osbyte
97D6  8A           .     TXA
97D7  10 F6        ..    BPL &97CF
97D9  A9 15        ..    LDA #&15
97DB  20 D0 84      ..   JSR &84D0
97DE  4C EB A3     L..   JMP &A3EB
97E1  00           .     BRK
97E2  00           .     BRK
97E3  30 FF        0.    BMI &97E4
97E5  FF 08        ..    BBS7 &97EF
97E7  00           .     BRK
97E8  00           .     BRK
97E9  00           .     BRK
97EA  10 00        ..    BPL &97EC
97EC  20 55 92      U.   JSR &9255                ; Write string to output stream
97EF  08           .     PHP
97F0  88           .     DEY
97F1  60           `     RTS
97F2  20 DE A4      ..   JSR &A4DE
97F5  20 00 B5      ..   JSR &B500
97F8  A9 10        ..    LDA #%00010000
97FA  04 CD        ..    TSB &CD                  ; Set bit 4 of &CD
97FC  A0 03        ..    LDY #&03
97FE  B9 14 C3     ...   LDA &C314,Y
9801  99 2C C2     .,.   STA &C22C,Y
9804  88           .     DEY
9805  10 F7        ..    BPL &97FE
9807  AD 6F C2     .o.   LDA &C26F
980A  8D 17 C3     ...   STA &C317
980D  AD 00 C2     ...   LDA &C200
9810  48           H     PHA
9811  A9 02        ..    LDA #&02
9813  8D 00 C2     ...   STA &C200
9816  20 57 BE      W.   JSR &BE57
9819  9C 60 C2     .`.   STZ &C260
981C  20 55 92      U.   JSR &9255                ; Write string to output stream
981F  0D 56 65     .Ve   ORA &6556
9822  72 69        ri    ADC (&69)
9824  66 79        fy    ROR &79
9826  69 6E        in    ADC #&6E
9828  67 2E        g.    RMB6 &2E
982A  2E 2E 2E     ...   ROL &2E2E
982D  2E 2E AE     ...   ROL &AE2E
9830  A2 0E        ..    LDX #&0E
9832  AD 6F C2     .o.   LDA &C26F
9835  30 68        0h    BMI &989F
9837  A5 CD        ..    LDA &CD
9839  29 20        )     AND #%00100000
983B  F0 62        .b    BEQ &989F                ; Jump if the 'Winchester disc controller present' flag isn't set
983D  9E 15 C2     ...   STZ &C215,X
9840  CA           .     DEX
9841  10 FA        ..    BPL &983D
9843  A9 2F        ./    LDA #&2F
9845  8D 1A C2     ...   STA &C21A
9848  A2 15        ..    LDX #&15
984A  A0 C2        ..    LDY #&C2
984C  20 A2 80      ..   JSR &80A2
984F  F0 2E        ..    BEQ &987F
9851  29 FD        ).    AND #&FD
9853  C9 21        .!    CMP #&21
9855  F0 46        .F    BEQ &989D
9857  A0 02        ..    LDY #&02
9859  A2 FF        ..    LDX #&FF
985B  B9 D0 C2     ...   LDA &C2D0,Y
985E  E8           .     INX
985F  D0 02        ..    BNE &9863
9861  29 1F        ).    AND #&1F
9863  9D 1D C2     ...   STA &C21D,X
9866  20 CD 92      ..   JSR &92CD                ; Write the ASCII value of A in hex. to the output stream
9869  88           .     DEY
986A  10 EF        ..    BPL &985B
986C  FE 1D C2     ...   INC &C21D,X
986F  D0 03        ..    BNE &9874
9871  CA           .     DEX
9872  10 F8        ..    BPL &986C
9874  20 55 92      U.   JSR &9255                ; Write string to output stream
9877  20 A0 38      .8   JSR &38A0
987A  6E 60 C2     n`.   ROR &C260
987D  80 1C        ..    BRA &989B
987F  AD 21 C2     .!.   LDA &C221
9882  0D 22 C2     .".   ORA &C222
9885  F0 11        ..    BEQ &9898
9887  18           .     CLC
9888  A2 01        ..    LDX #&01
988A  BD 1E C2     ...   LDA &C21E,X
988D  7D 21 C2     }!.   ADC &C221,X
9890  9D 1E C2     ...   STA &C21E,X
9893  CA           .     DEX
9894  10 F4        ..    BPL &988A
9896  90 03        ..    BCC &989B
9898  EE 1D C2     ...   INC &C21D
989B  80 AB        ..    BRA &9848
989D  80 5E        .^    BRA &98FD
989F  BD 54 99     .T.   LDA &9954,X
98A2  9D 15 C2     ...   STA &C215,X
98A5  CA           .     DEX
98A6  10 F7        ..    BPL &989F
98A8  AD 1D C2     ...   LDA &C21D
98AB  4A           J     LSR A
98AC  4A           J     LSR A
98AD  4A           J     LSR A
98AE  4A           J     LSR A
98AF  8D 2B C2     .+.   STA &C22B
98B2  AD 1C C2     ...   LDA &C21C
98B5  0A           .     ASL A
98B6  0A           .     ASL A
98B7  0A           .     ASL A
98B8  0A           .     ASL A
98B9  0D 2B C2     .+.   ORA &C22B
98BC  20 CD 92      ..   JSR &92CD                ; Write the ASCII value of A in hex. to the output stream
98BF  9C D3 C2     ...   STZ &C2D3
98C2  A2 15        ..    LDX #&15
98C4  A0 C2        ..    LDY #&C2
98C6  20 A2 80      ..   JSR &80A2
98C9  F0 14        ..    BEQ &98DF
98CB  C9 6F        .o    CMP #&6F
98CD  D0 05        ..    BNE &98D4
98CF  8D 60 C2     .`.   STA &C260
98D2  80 29        .)    BRA &98FD
98D4  A9 20        .     LDA #ASC" "
98D6  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
98D9  38           8     SEC
98DA  6E 60 C2     n`.   ROR &C260
98DD  80 0F        ..    BRA &98EE
98DF  AD D3 C2     ...   LDA &C2D3
98E2  F0 0F        ..    BEQ &98F3
98E4  A9 3F        .?    LDA #ASC"?"
98E6  8D 60 C2     .`.   STA &C260
98E9  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
98EC  A9 20        .     LDA #ASC" "
98EE  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
98F1  80 05        ..    BRA &98F8
98F3  20 55 92      U.   JSR &9255                ; Write string to output stream

98F6  7F                EQUB &7F                 ; Backspace
98F7  FF           .     EQUB &FF                 ; Backspace

98F8  20 5F 99      _.   JSR &995F
98FB  90 AB        ..    BCC &98A8
98FD  68           h     PLA
98FE  8D 00 C2     ...   STA &C200
9901  A9 10        ..    LDA #%00010000
9903  14 CD        ..    TRB &CD                  ; Clear bit 4 of &CD
9905  8D FE C0     ...   STA &C0FE
9908  A9 FF        ..    LDA #&FF
990A  8D 17 C3     ...   STA &C317
990D  AD 60 C2     .`.   LDA &C260
9910  C9 6F        .o    CMP #&6F
9912  D0 03        ..    BNE &9917
9914  4C CD 82     L..   JMP &82CD
9917  48           H     PHA
9918  20 55 92      U.   JSR &9255                ; Write string to output stream

991B  0D           .     EQUB &0D
991C  56 65 72 69  Veri  EQUS "Veri"
9920  E6           .     EQUB &80+ASC"f"

9921  68           h     PLA
9922  F0 11        ..    BEQ &9935
9924  10 18        ..    BPL &993E
9926  20 55 92      U.   JSR &9255                ; Write string to output stream

9929  79 20 66 61  y fa  EQUS "y failed"
      69 6C 65 64  iled  
9931  8D           .     EQUB &8D

9932  4C BA 89     L..   JMP &89BA
.
9935  20 55 92      U.   JSR &9255

9938  69 65 64     ied   EQUS "ied"
993B  8D           .     EQUB &8D

993C  80 F4        ..    BRA &9932
.
993E  20 55 92      U.   JSR &9255                ; Write string to output stream

9941  69 65        ie    ADC #&65
9943  64 20        d     STZ &20
9945  77 69        wi    RMB7 &69
9947  74 68        th    STZ &68,X
9949  20 72 65      re   JSR &6572
994C  74 72        tr    STZ &72,X
994E  69 65        ie    ADC #&65
9950  73            s     ...
9951  8D

9952  80 DE        ..    BRA &9932

9954  00           .     BRK
9955  00           .     BRK
9956  E0 FF        ..    CPX #&FF
9958  FF 08        ..    BBS7 &9962
995A  00           .     BRK
995B  00           .     BRK
995C  00           .     BRK
995D  10 00        ..    BPL &995F
995F  18           .     CLC
9960  AD 1D C2     ...   LDA &C21D
9963  6D 1E C2     m..   ADC &C21E
9966  8D 1D C2     ...   STA &C21D
9969  AA           .     TAX
996A  AD 1C C2     ...   LDA &C21C
996D  69 00        i.    ADC #&00
996F  8D 1C C2     ...   STA &C21C
9972  A8           .     TAY
9973  AD 1B C2     ...   LDA &C21B
9976  69 00        i.    ADC #&00
9978  8D 1B C2     ...   STA &C21B
997B  CD FE C0     ...   CMP &C0FE
997E  90 08        ..    BCC &9988
9980  CC FD C0     ...   CPY &C0FD
9983  90 03        ..    BCC &9988
9985  EC FC C0     ...   CPX &C0FC
9988  60           `     RTS
9989  20 42 96      B.   JSR &9642
998C  C9 30        .0    CMP #&30
998E  90 05        ..    BCC &9995
9990  AA           .     TAX
9991  E0 34        .4    CPX #&34
9993  90 03        ..    BCC &9998
9995  4C 66 87     Lf.   JMP &8766
9998  A9 3A        .:    LDA #&3A
999A  91 B4        ..    STA (&B4),Y
999C  C8           .     INY
999D  8A           .     TXA
999E  29 31        )1    AND #&31
99A0  09 34        .4    ORA #&34
99A2  91 B4        ..    STA (&B4),Y
99A4  C8           .     INY
99A5  A9 0D        ..    LDA #&0D
99A7  91 B4        ..    STA (&B4),Y
99A9  4C F4 94     L..   JMP &94F4
99AC  AD 2F C2     ./.   LDA &C22F
99AF  CD 17 C3     ...   CMP &C317
99B2  F0 03        ..    BEQ &99B7
99B4  1A           .     INC A
99B5  D0 18        ..    BNE &99CF
99B7  A0 02        ..    LDY #&02
99B9  B9 A2 C2     ...   LDA &C2A2,Y
99BC  D9 2C C2     .,.   CMP &C22C,Y
99BF  D0 0E        ..    BNE &99CF
99C1  88           .     DEY
99C2  10 F5        ..    BPL &99B9
99C4  A0 02        ..    LDY #&02
99C6  B9 A8 C2     ...   LDA &C2A8,Y
99C9  99 2C C2     .,.   STA &C22C,Y
99CC  88           .     DEY
99CD  10 F7        ..    BPL &99C6
99CF  AD 1B C3     ...   LDA &C31B
99D2  CD 17 C3     ...   CMP &C317
99D5  D0 18        ..    BNE &99EF
99D7  A0 02        ..    LDY #&02
99D9  B9 A2 C2     ...   LDA &C2A2,Y
99DC  D9 18 C3     ...   CMP &C318,Y
99DF  D0 0E        ..    BNE &99EF
99E1  88           .     DEY
99E2  10 F5        ..    BPL &99D9
99E4  A0 02        ..    LDY #&02
99E6  B9 A8 C2     ...   LDA &C2A8,Y
99E9  99 18 C3     ...   STA &C318,Y
99EC  88           .     DEY
99ED  10 F7        ..    BPL &99E6
99EF  AD 1F C3     ...   LDA &C31F
99F2  CD 17 C3     ...   CMP &C317
99F5  D0 18        ..    BNE &9A0F
99F7  A0 02        ..    LDY #&02
99F9  B9 A2 C2     ...   LDA &C2A2,Y
99FC  D9 1C C3     ...   CMP &C31C,Y
99FF  D0 0E        ..    BNE &9A0F
9A01  88           .     DEY
9A02  10 F5        ..    BPL &99F9
9A04  A0 02        ..    LDY #&02
9A06  B9 A8 C2     ...   LDA &C2A8,Y
9A09  99 1C C3     ...   STA &C31C,Y
9A0C  88           .     DEY
9A0D  10 F7        ..    BPL &9A06
9A0F  A5 CD        ..    LDA &CD
9A11  29 08        ).    AND #%00001000
9A13  D0 06        ..    BNE &9A1B                ; Jump if the '???' flag is set
9A15  20 5E 8F      ^.   JSR &8F5E
9A18  20 9E AC      ..   JSR &AC9E
9A1B  AD A7 C2     ...   LDA &C2A7
9A1E  0D A6 C2     ...   ORA &C2A6
9A21  0D A5 C2     ...   ORA &C2A5
9A24  D0 01        ..    BNE &9A27
9A26  60           `     RTS
9A27  AD A7 C2     ...   LDA &C2A7
9A2A  0D A6 C2     ...   ORA &C2A6
9A2D  D0 08        ..    BNE &9A37
9A2F  AD A5 C2     ...   LDA &C2A5
9A32  CD 61 C2     .a.   CMP &C261
9A35  90 03        ..    BCC &9A3A
9A37  AD 61 C2     .a.   LDA &C261
9A3A  8D 1E C2     ...   STA &C21E
9A3D  AD 60 C2     .`.   LDA &C260
9A40  8D 17 C2     ...   STA &C217
9A43  A2 00        ..    LDX #&00
9A45  8E 16 C2     ...   STX &C216
9A48  CA           .     DEX
9A49  8E 18 C2     ...   STX &C218
9A4C  8E 19 C2     ...   STX &C219
9A4F  38           8     SEC
9A50  AD A5 C2     ...   LDA &C2A5
9A53  ED 61 C2     .a.   SBC &C261
9A56  8D A5 C2     ...   STA &C2A5
9A59  AD A6 C2     ...   LDA &C2A6
9A5C  E9 00        ..    SBC #&00
9A5E  8D A6 C2     ...   STA &C2A6
9A61  AD A7 C2     ...   LDA &C2A7
9A64  E9 00        ..    SBC #&00
9A66  8D A7 C2     ...   STA &C2A7
9A69  B0 09        ..    BCS &9A74
9A6B  AD A5 C2     ...   LDA &C2A5
9A6E  6D 61 C2     ma.   ADC &C261
9A71  8D 1E C2     ...   STA &C21E
9A74  A9 08        ..    LDA #&08
9A76  8D 1A C2     ...   STA &C21A
9A79  AD A2 C2     ...   LDA &C2A2
9A7C  8D 1D C2     ...   STA &C21D
9A7F  AD A3 C2     ...   LDA &C2A3
9A82  8D 1C C2     ...   STA &C21C
9A85  AD A4 C2     ...   LDA &C2A4
9A88  8D 1B C2     ...   STA &C21B
9A8B  20 AB 82      ..   JSR &82AB
9A8E  A9 0A        ..    LDA #&0A
9A90  8D 1A C2     ...   STA &C21A
9A93  AD A8 C2     ...   LDA &C2A8
9A96  8D 1D C2     ...   STA &C21D
9A99  AD A9 C2     ...   LDA &C2A9
9A9C  8D 1C C2     ...   STA &C21C
9A9F  AD AA C2     ...   LDA &C2AA
9AA2  8D 1B C2     ...   STA &C21B
9AA5  20 AB 82      ..   JSR &82AB
9AA8  AD A5 C2     ...   LDA &C2A5
9AAB  0D A6 C2     ...   ORA &C2A6
9AAE  0D A7 C2     ...   ORA &C2A7
9AB1  F0 33        .3    BEQ &9AE6
9AB3  AD 1E C2     ...   LDA &C21E
9AB6  CD 61 C2     .a.   CMP &C261
9AB9  D0 2B        .+    BNE &9AE6
9ABB  18           .     CLC
9ABC  AD A2 C2     ...   LDA &C2A2
9ABF  6D 61 C2     ma.   ADC &C261
9AC2  8D A2 C2     ...   STA &C2A2
9AC5  90 08        ..    BCC &9ACF
9AC7  EE A3 C2     ...   INC &C2A3
9ACA  D0 03        ..    BNE &9ACF
9ACC  EE A4 C2     ...   INC &C2A4
9ACF  18           .     CLC
9AD0  AD A8 C2     ...   LDA &C2A8
9AD3  6D 61 C2     ma.   ADC &C261
9AD6  8D A8 C2     ...   STA &C2A8
9AD9  90 08        ..    BCC &9AE3
9ADB  EE A9 C2     ...   INC &C2A9
9ADE  D0 03        ..    BNE &9AE3
9AE0  EE AA C2     ...   INC &C2AA
9AE3  4C 4F 9A     LO.   JMP &9A4F
9AE6  A5 CD        ..    LDA &CD
9AE8  29 08        ).    AND #%00001000
9AEA  F0 01        ..    BEQ &9AED                ; Jump if the '???' flag isn't set
9AEC  60           `     RTS
9AED  A9 C4        ..    LDA #&C4
9AEF  8D 17 C2     ...   STA &C217
9AF2  A9 08        ..    LDA #&08
9AF4  8D 1A C2     ...   STA &C21A
9AF7  AD 14 C3     ...   LDA &C314
9AFA  8D 1D C2     ...   STA &C21D
9AFD  AD 15 C3     ...   LDA &C315
9B00  8D 1C C2     ...   STA &C21C
9B03  AD 16 C3     ...   LDA &C316
9B06  8D 1B C2     ...   STA &C21B
9B09  A9 05        ..    LDA #&05
9B0B  8D 1E C2     ...   STA &C21E
9B0E  4C AF 82     L..   JMP &82AF
9B11  A9 00        ..    LDA #&00
9B13  8D AB C2     ...   STA &C2AB
9B16  8D AC C2     ...   STA &C2AC
9B19  8D AD C2     ...   STA &C2AD
9B1C  A9 FF        ..    LDA #&FF
9B1E  8D A2 C2     ...   STA &C2A2
9B21  8D A3 C2     ...   STA &C2A3
9B24  8D A4 C2     ...   STA &C2A4
9B27  20 7A 93      z.   JSR &937A
9B2A  B2 B6        ..    LDA (&B6)
9B2C  D0 0F        ..    BNE &9B3D
9B2E  AD A2 C2     ...   LDA &C2A2
9B31  2D A3 C2     -..   AND &C2A3
9B34  2D A4 C2     -..   AND &C2A4
9B37  1A           .     INC A
9B38  D0 45        .E    BNE &9B7F
9B3A  4C 5E 8F     L^.   JMP &8F5E
9B3D  A0 16        ..    LDY #&16
9B3F  A2 02        ..    LDX #&02
9B41  38           8     SEC
9B42  B9 95 C2     ...   LDA &C295,Y
9B45  F1 B6        ..    SBC (&B6),Y
9B47  C8           .     INY
9B48  CA           .     DEX
9B49  10 F7        ..    BPL &9B42
9B4B  B0 25        .%    BCS &9B72
9B4D  A0 16        ..    LDY #&16
9B4F  A2 02        ..    LDX #&02
9B51  38           8     SEC
9B52  B9 8C C2     ...   LDA &C28C,Y
9B55  F1 B6        ..    SBC (&B6),Y
9B57  C8           .     INY
9B58  CA           .     DEX
9B59  10 F7        ..    BPL &9B52
9B5B  90 15        ..    BCC &9B72
9B5D  A0 16        ..    LDY #&16
9B5F  A2 02        ..    LDX #&02
9B61  B1 B6        ..    LDA (&B6),Y
9B63  99 8C C2     ...   STA &C28C,Y
9B66  C8           .     INY
9B67  CA           .     DEX
9B68  10 F7        ..    BPL &9B61
9B6A  A5 B6        ..    LDA &B6
9B6C  85 B4        ..    STA &B4
9B6E  A5 B7        ..    LDA &B7
9B70  85 B5        ..    STA &B5
9B72  A5 B6        ..    LDA &B6
9B74  18           .     CLC
9B75  69 1A        i.    ADC #&1A
9B77  85 B6        ..    STA &B6
9B79  90 AF        ..    BCC &9B2A
9B7B  E6 B7        ..    INC &B7
9B7D  B0 AB        ..    BCS &9B2A
9B7F  A5 B4        ..    LDA &B4
9B81  85 B6        ..    STA &B6
9B83  A5 B5        ..    LDA &B5
9B85  85 B7        ..    STA &B7
9B87  A0 02        ..    LDY #&02
9B89  B9 A2 C2     ...   LDA &C2A2,Y
9B8C  99 AB C2     ...   STA &C2AB,Y
9B8F  88           .     DEY
9B90  10 F7        ..    BPL &9B89
9B92  A2 00        ..    LDX #&00
9B94  86 B2        ..    STX &B2
9B96  EC FE C1     ...   CPX &C1FE
9B99  90 03        ..    BCC &9B9E
9B9B  4C 1C 9B     L..   JMP &9B1C
9B9E  E8           .     INX
9B9F  E8           .     INX
9BA0  E8           .     INX
9BA1  86 B2        ..    STX &B2
9BA3  A0 02        ..    LDY #&02
9BA5  CA           .     DEX
9BA6  BD 00 C0     ...   LDA &C000,X
9BA9  D9 A2 C2     ...   CMP &C2A2,Y
9BAC  B0 04        ..    BCS &9BB2
9BAE  A6 B2        ..    LDX &B2
9BB0  80 E4        ..    BRA &9B96
9BB2  D0 03        ..    BNE &9BB7
9BB4  88           .     DEY
9BB5  10 EE        ..    BPL &9BA5
9BB7  A6 B2        ..    LDX &B2
9BB9  E0 06        ..    CPX #&06
9BBB  90 12        ..    BCC &9BCF
9BBD  A0 00        ..    LDY #&00
9BBF  18           .     CLC
9BC0  08           .     PHP
9BC1  28           (     PLP
9BC2  BD FA BF     ...   LDA &BFFA,X
9BC5  7D FA C0     }..   ADC &C0FA,X
9BC8  08           .     PHP
9BC9  D9 A2 C2     ...   CMP &C2A2,Y
9BCC  F0 04        ..    BEQ &9BD2
9BCE  28           (     PLP
9BCF  4C 1C 9B     L..   JMP &9B1C
9BD2  E8           .     INX
9BD3  C8           .     INY
9BD4  C0 03        ..    CPY #&03
9BD6  D0 E9        ..    BNE &9BC1
9BD8  28           (     PLP
9BD9  A2 02        ..    LDX #&02
9BDB  A0 12        ..    LDY #&12
9BDD  B1 B6        ..    LDA (&B6),Y
9BDF  C9 01        ..    CMP #&01
9BE1  C8           .     INY
9BE2  B1 B6        ..    LDA (&B6),Y
9BE4  69 00        i.    ADC #&00
9BE6  99 92 C2     ...   STA &C292,Y
9BE9  99 2A C2     .*.   STA &C22A,Y
9BEC  99 24 C2     .$.   STA &C224,Y
9BEF  BD A2 C2     ...   LDA &C2A2,X
9BF2  9D 34 C2     .4.   STA &C234,X
9BF5  CA           .     DEX
9BF6  10 E9        ..    BPL &9BE1
9BF8  20 E7 84      ..   JSR &84E7
9BFB  20 61 86      a.   JSR &8661
9BFE  A2 02        ..    LDX #&02
9C00  A0 18        ..    LDY #&18
9C02  BD 3A C2     .:.   LDA &C23A,X
9C05  91 B6        ..    STA (&B6),Y
9C07  9D A8 C2     ...   STA &C2A8,X
9C0A  88           .     DEY
9C0B  CA           .     DEX
9C0C  10 F4        ..    BPL &9C02
9C0E  20 AC 99      ..   JSR &99AC
9C11  4C 11 9B     L..   JMP &9B11
9C14  64 C0        d.    STZ &C0
9C16  9C 53 C2     .S.   STZ &C253
9C19  9C 54 C2     .T.   STZ &C254
9C1C  A9 02        ..    LDA #&02
9C1E  8D 52 C2     .R.   STA &C252
9C21  A9 C9        ..    LDA #&C9
9C23  85 C1        ..    STA &C1
9C25  A9 9A        ..    LDA #&9A
9C27  85 B4        ..    STA &B4
9C29  A9 9C        ..    LDA #&9C
9C2B  85 B5        ..    STA &B5
9C2D  20 34 94      4.   JSR &9434
9C30  A0 02        ..    LDY #&02
9C32  B9 52 C2     .R.   LDA &C252,Y
9C35  99 D6 C8     ...   STA &C8D6,Y
9C38  88           .     DEY
9C39  10 F7        ..    BPL &9C32
9C3B  20 11 9B      ..   JSR &9B11
9C3E  20 7A 93      z.   JSR &937A
9C41  B2 B6        ..    LDA (&B6)
9C43  F0 29        .)    BEQ &9C6E
9C45  A0 03        ..    LDY #&03
9C47  B1 B6        ..    LDA (&B6),Y
9C49  10 3E        .>    BPL &9C89
9C4B  A5 C0        ..    LDA &C0
9C4D  C9 FE        ..    CMP #&FE
9C4F  F0 1D        ..    BEQ &9C6E
9C51  A5 B6        ..    LDA &B6
9C53  85 B4        ..    STA &B4
9C55  92 C0        ..    STA (&C0)
9C57  E6 C0        ..    INC &C0
9C59  A5 B7        ..    LDA &B7
9C5B  85 B5        ..    STA &B5
9C5D  92 C0        ..    STA (&C0)
9C5F  E6 C0        ..    INC &C0
9C61  A2 02        ..    LDX #&02
9C63  BD 14 C3     ...   LDA &C314,X
9C66  9D 52 C2     .R.   STA &C252,X
9C69  CA           .     DEX
9C6A  10 F7        ..    BPL &9C63
9C6C  30 BF        0.    BMI &9C2D
9C6E  A5 C0        ..    LDA &C0
9C70  F0 24        .$    BEQ &9C96
9C72  A9 99        ..    LDA #&99
9C74  85 B4        ..    STA &B4
9C76  A9 9C        ..    LDA #&9C
9C78  85 B5        ..    STA &B5
9C7A  20 34 94      4.   JSR &9434
9C7D  C6 C0        ..    DEC &C0
9C7F  B2 C0        ..    LDA (&C0)
9C81  85 B7        ..    STA &B7
9C83  C6 C0        ..    DEC &C0
9C85  B2 C0        ..    LDA (&C0)
9C87  85 B6        ..    STA &B6
9C89  18           .     CLC
9C8A  A5 B6        ..    LDA &B6
9C8C  69 1A        i.    ADC #&1A
9C8E  85 B6        ..    STA &B6
9C90  90 AF        ..    BCC &9C41
9C92  E6 B7        ..    INC &B7
9C94  80 AB        ..    BRA &9C41
9C96  4C BA 89     L..   JMP &89BA
9C99  5E 0D 20     ^.    LSR &200D,Y
9C9C  B5 8F        ..    LDA &8F,X
9C9E  F0 0F        ..    BEQ &9CAF
9CA0  4C B4 8B     L..   JMP &8BB4
9CA3  A0 02        ..    LDY #&02
9CA5  B1 B6        ..    LDA (&B6),Y
9CA7  29 7F        )    AND #&7F
9CA9  91 B6        ..    STA (&B6),Y
9CAB  88           .     DEY
9CAC  10 F7        ..    BPL &9CA5
9CAE  60           `     RTS
9CAF  20 A3 9C      ..   JSR &9CA3
9CB2  A0 04        ..    LDY #&04
9CB4  B1 B6        ..    LDA (&B6),Y
9CB6  30 09        0.    BMI &9CC1
9CB8  88           .     DEY
9CB9  B1 B6        ..    LDA (&B6),Y
9CBB  29 80        ).    AND #&80
9CBD  12 B6        ..    ORA (&B6)
9CBF  92 B6        ..    STA (&B6)
9CC1  8D 2B C2     .+.   STA &C22B
9CC4  A0 00        ..    LDY #&00
9CC6  B1 B4        ..    LDA (&B4),Y
9CC8  C9 20        .     CMP #&20
9CCA  90 4B        .K    BCC &9D17
9CCC  F0 07        ..    BEQ &9CD5
9CCE  C9 22        ."    CMP #&22
9CD0  F0 03        ..    BEQ &9CD5
9CD2  C8           .     INY
9CD3  D0 F1        ..    BNE &9CC6
9CD5  B1 B4        ..    LDA (&B4),Y
9CD7  C9 20        .     CMP #&20
9CD9  90 3C        .<    BCC &9D17
9CDB  F0 04        ..    BEQ &9CE1
9CDD  C9 22        ."    CMP #&22
9CDF  D0 03        ..    BNE &9CE4
9CE1  C8           .     INY
9CE2  D0 F1        ..    BNE &9CD5
9CE4  B1 B4        ..    LDA (&B4),Y
9CE6  29 DF        ).    AND #&DF
9CE8  2C 2B C2     ,+.   BIT &C22B
9CEB  30 14        0.    BMI &9D01
9CED  C9 45        .E    CMP #&45
9CEF  D0 10        ..    BNE &9D01
9CF1  20 A3 9C      ..   JSR &9CA3
9CF4  A0 04        ..    LDY #&04
9CF6  B1 B6        ..    LDA (&B6),Y
9CF8  09 80        ..    ORA #&80
9CFA  91 B6        ..    STA (&B6),Y
9CFC  8D 2B C2     .+.   STA &C22B
9CFF  30 13        0.    BMI &9D14
9D01  A2 02        ..    LDX #&02
9D03  DD C8 92     ...   CMP &92C8,X
9D06  F0 1D        ..    BEQ &9D25
9D08  2C 2B C2     ,+.   BIT &C22B
9D0B  30 03        0.    BMI &9D10
9D0D  CA           .     DEX
9D0E  10 F3        ..    BPL &9D03
9D10  C9 21        .!    CMP #&21
9D12  90 03        ..    BCC &9D17
9D14  C8           .     INY
9D15  D0 CD        ..    BNE &9CE4
9D17  20 AF 94      ..   JSR &94AF
9D1A  20 48 89      H.   JSR &8948
9D1D  F0 90        ..    BEQ &9CAF
9D1F  20 5E 8F      ^.   JSR &8F5E
9D22  4C BA 89     L..   JMP &89BA
9D25  5A           Z     PHY
9D26  8A           .     TXA
9D27  A8           .     TAY
9D28  B1 B6        ..    LDA (&B6),Y
9D2A  09 80        ..    ORA #&80
9D2C  91 B6        ..    STA (&B6),Y
9D2E  7A           z     PLY
9D2F  80 E3        ..    BRA &9D14
9D31  20 C8 84      ..   JSR &84C8                ; Make an OSBYTE &C7 call (Read *SPOOL file handle)
9D34  DA           .     PHX
9D35  A9 00        ..    LDA #&00
9D37  A2 3F        .?    LDX #&3F
9D39  A0 A8        ..    LDY #&A8
9D3B  20 F1 FF      ..   JSR osword
9D3E  FA           .     PLX
9D3F  08           .     PHP
9D40  A9 C7        ..    LDA #&C7
9D42  A0 00        ..    LDY #&00
9D44  20 F4 FF      ..   JSR osbyte               ; OSBYTE &C7: Write *SPOOL file handle
9D47  28           (     PLP
9D48  B0 10        ..    BCS &9D5A
9D4A  A2 03        ..    LDX #&03
9D4C  BD 7F C2     ..   LDA &C27F,X
9D4F  29 DF        ).    AND #&DF                 ; Make uppercase
9D51  DD 3B A8     .;.   CMP &A83B,X              ; Compare with 'YES'
9D54  D0 07        ..    BNE &9D5D
9D56  CA           .     DEX
9D57  10 F3        ..    BPL &9D4C
9D59  60           `     RTS
9D5A  20 EB A3      ..   JSR &A3EB
.
9D5D  20 6C 83      l.   JSR &836C

9D60  92           .     EQUB &92                 ; Error code
9D61  41 62 6F 72  Abor  EQUS "Aborted"           ; Error message
      74 65 64     ted
9D68  00           .     EQUB &00                 ; Termination byte

9D69  A5 B4        ..    LDA &B4
9D6B  48           H     PHA
9D6C  A5 B5        ..    LDA &B5
9D6E  48           H     PHA
9D6F  A9 40        .@    LDA #&40
9D71  85 B8        ..    STA &B8
9D73  A9 C2        ..    LDA #&C2
9D75  85 B9        ..    STA &B9
9D77  20 9C 94      ..   JSR &949C
9D7A  68           h     PLA
9D7B  85 B5        ..    STA &B5
9D7D  68           h     PLA
9D7E  85 B4        ..    STA &B4
9D80  20 55 92      U.   JSR &9255                ; Write string to output stream
9D83  44            D     ...
9D84  65 73        es    ADC &73
9D86  74 72        tr    STZ &72,X
9D88  6F 79        oy    BBR6 &9E03
9D8A  20 3F A0      ?.   JSR &A03F
9D8D  20 31 9D      1.   JSR &9D31
9D90  9C D5 C2     ...   STZ &C2D5
9D93  A5 B4        ..    LDA &B4
9D95  48           H     PHA
9D96  A5 B5        ..    LDA &B5
9D98  48           H     PHA
9D99  24 FF        $.    BIT &FF
9D9B  10 03        ..    BPL &9DA0
9D9D  4C CD 82     L..   JMP &82CD
9DA0  20 B5 8F      ..   JSR &8FB5
9DA3  D0 0C        ..    BNE &9DB1
9DA5  20 DE 90      ..   JSR &90DE
9DA8  68           h     PLA
9DA9  85 B5        ..    STA &B5
9DAB  68           h     PLA
9DAC  85 B4        ..    STA &B4
9DAE  4C 93 9D     L..   JMP &9D93
9DB1  68           h     PLA
9DB2  68           h     PLA
9DB3  4C BA 89     L..   JMP &89BA
9DB6  6C 1E 02     l..   JMP (&021E)
9DB9  24 20        $     BIT &20
9DBB  20 20 20           JSR &2020
9DBE  20 20 20           JSR &2020
9DC1  20 20 24       $   JSR &2420
9DC4  20 20 20           JSR &2020
9DC7  20 20 20           JSR &2020
9DCA  20 20 20           JSR &2020
9DCD  02            .     ...
9DCE  00           .     BRK
9DCF  00           .     BRK
9DD0  00           .     BRK
9DD1  02            .     ...
9DD2  00           .     BRK
9DD3  00           .     BRK
9DD4  00           .     BRK
9DD5  02            .     ...

; -----------------------------------------------------------------------------
; Check if the Winchester disc controller is available
; -----------------------------------------------------------------------------
.
9DD6  A9 5A        .Z    LDA #&5A
9DD8  20 DF 9D      ..   JSR &9DDF
9DDB  D0 0B        ..    BNE &9DE8
9DDD  A9 A5        ..    LDA #&A5
9DDF  8D 40 FC     .@.   STA wdc_data
9DE2  9C 43 FC     .C.   STZ wdc_interrupt
9DE5  CD 40 FC     .@.   CMP wdc_data
9DE8  60           `     RTS
9DE9  A9 A1        ..    LDA #&A1
9DEB  A2 0B        ..    LDX #&0B
9DED  20 F4 FF      ..   JSR osbyte
9DF0  98           .     TYA
9DF1  60           `     RTS
9DF2  A9 FD        ..    LDA #&FD
9DF4  20 CE 84      ..   JSR &84CE                ; Make an OSBYTE call with X=&00 and Y=&FF
9DF7  8A           .     TXA
9DF8  60           `     RTS
9DF9  00           .     BRK
9DFA  02            .     ...
9DFB  0A           .     ASL A
9DFC  FF FF        ..    BBS7 &9DFD
9DFE  FF FF        ..    BBS7 &9DFF
9E00  4C 2E 24     L.$   JMP &242E
9E03  2E 21 42     .!B   ROL &4221
9E06  4F 4F        OO    BBR4 &9E57
9E08  54            T     ...
9E09  0D 45 2E     .E.   ORA &2E45
9E0C  2D 41 44     -AD   AND &4441
9E0F  46 53        FS    LSR &53
9E11  2D 24 2E     -$.   AND &2E24
9E14  21 42        !B    AND (&42,X)
9E16  4F 4F        OO    BBR4 &9E67
9E18  54            T     ...
9E19  0D           .     EQUB &0D

; -----------------------------------------------------------------------------
; Service calls jump table
; -----------------------------------------------------------------------------

9E1A  42           B     EQUB &42                 ; &9E43 Service call &00: No operation
9E1B  42           B     EQUB &42                 ; &9E43 Service call &01: Absolute public workspace claim
9E1C  6C           l     EQUB &6C                 ; &9E6D Service call &02: Relative space claim
9E1D  C1           .     EQUB &C1                 ; &9EC2 Service call &03: Auto-boot call
9E1E  A7           .     EQUB &A7                 ; &A0A8 Service call &04: Unrecognised * command
9E1F  96           .     EQUB &96                 ; &AE97 Service call &05: Unknown interrupt
9E20  42           B     EQUB &42                 ; &9E43 Service call &06: BRK has been executed
9E21  42           B     EQUB &42                 ; &9E43 Service call &07: Unrecognised OSBYTE call
9E22  E2           .     EQUB &E2                 ; &A0E3 Service call &08: Unrecognised OSWORD call
9E23  91           .     EQUB &91                 ; &A192 Service call &09: *HELP command interception

9E24  9E           .     EQUB &9E                 ; &9E43 Service call &00: No operation
9E25  9E           .     EQUB &9E                 ; &9E43 Service call &01: Absolute public workspace claim
9E26  9E           .     EQUB &9E                 ; &9E6D Service call &02: Relative space claim
9E27  9E           .     EQUB &9E                 ; &9EC2 Service call &03: Auto-boot call
9E28  A0           .     EQUB &A0                 ; &A0A7 Service call &04: Unrecognised * command
9E29  AE           .     EQUB &AE                 ; &AE96 Service call &05: Unknown interrupt
9E2A  9E           .     EQUB &9E                 ; &9E43 Service call &06: BRK has been executed
9E2B  9E           .     EQUB &9E                 ; &9E43 Service call &07: Unrecognised OSBYTE call
9E2C  A0           .     EQUB &A0                 ; &A0E2 Service call &08: Unrecognised OSWORD call
9E2D  A1           .     EQUB &A1                 ; &A191 Service call &09: *HELP command interception

9E2E  4B           K     EQUB &4B                 ; &A04C Service call &21: Claim private workspace in Hazel
9E2F  52           R     EQUB &52                 ; &A053 Service call &22: Claim absolute workspace in Hazel
3E30  5A           Z     EQUB &5A                 ; &A05B Service call &23: Reports top of private workspace
9E31  6C           l     EQUB &6C                 ; &A06D Service call &24: Absolute workspace in Hazel count
9E32  6E           n     EQUB &6E                 ; &A06F Service call &25: Return filing system information
9E33  89           .     EQUB &89                 ; &A08A Service call &26: *SHUT command issued
9E34  42           B     EQUB &42                 ; &9E43 Service call &27: Hard reset call

9E35  A0           .     EQUB &A0                 ; &A04C Service call &21: Claim private workspace in Hazel
9E36  A0           .     EQUB &A0                 ; &A053 Service call &22: Claim absolute workspace in Hazel
9E37  A0           .     EQUB &A0                 ; &A05B Service call &23: Reports top of private workspace
9E38  A0           .     EQUB &A0                 ; &A06D Service call &24: Absolute workspace in Hazel count
9E39  A0           .     EQUB &A0                 ; &A06F Service call &25: Return filing system information
9E3A  A0           .     EQUB &A0                 ; &A08A Service call &26: *SHUT command issued
9E3B  9E           .     EQUB &9E                 ; &9E43 Service call &27: Hard reset call

; -----------------------------------------------------------------------------
; Service entry
; -----------------------------------------------------------------------------
.service
9E3C  3C F0 0D     <..   BIT &0DF0,X
9E3F  10 03        ..    BPL &9E44                ; Jump if our workspace area is between &0000 and &7FFF
9E41  70 03        p.    BCS &9E46
.service00
9E43  60           `     RTS
.service01
9E44  70 FD        p.    BCS &9E43
.service02
9E46  C9 12        ..    CMP #&12                 ; Service call &12: Initialise filing system
9E48  F0 70        .p    BEQ &9EBA
9E4A  C9 0A        ..    CMP #&0A                 ; Service call &0A: Claim absolute workspace
9E4C  B0 0D        ..    BCS &9E5B
9E4E  AA           .     TAX
9E4F  BD 24 9E     .$.   LDA &9E24,X
9E52  48           H     PHA
9E53  BD 1A 9E     ...   LDA &9E1A,X
.service03
9E56  48           H     PHA
9E57  8A           .     TXA
9E58  A6 F4        ..    LDX &F4
9E5A  60           `     RTS
.service04
9E5B  C9 21        .!    CMP #&21
9E5D  90 E4        ..    BCC &9E43                ; Jump if A < &21
9E5F  C9 28        .(    CMP #&28
9E61  B0 E0        ..    BCS &9E43                ; Jump if A >= &28
9E63  AA           .     TAX                      ; So only handle service calls &22 through &27 here
9E64  BD 14 9E     ...   LDA &9E14,X
9E67  48           H     PHA
9E68  BD 0D 9E     ...   LDA &9E0D,X
9E6B  80 E9        ..    BRA &9E56

; -----------------------------------------------------------------------------
; Service call &02: Relative space claim
; -----------------------------------------------------------------------------
.
9E6D  BD F0 0D     ...   LDA &0DF0,X
9E70  C9 DC        ..    CMP #&DC
9E72  90 04        ..    BCC &9E78
9E74  98           .     TYA
9E75  9D F0 0D     ...   STA &0DF0,X
9E78  5A           Z     PHY
9E79  20 F2 9D      ..   JSR &9DF2
9E7C  F0 2B        .+    BEQ &9EA9
9E7E  20 4A AA      J.   JSR &AA4A
9E81  A8           .     TAY
9E82  B9 B9 9D     ...   LDA &9DB9,Y
9E85  C0 1D        ..    CPY #&1D
9E87  90 02        ..    BCC &9E8B
9E89  A9 00        ..    LDA #&00
9E8B  91 BA        ..    STA (&BA),Y
9E8D  C8           .     INY
9E8E  D0 F2        ..    BNE &9E82
9E90  20 D6 9D      ..   JSR &9DD6
9E93  D0 11        ..    BNE &9EA6
9E95  20 E9 9D      ..   JSR &9DE9
9E98  29 80        ).    AND #&80
9E9A  A0 17        ..    LDY #&17
9E9C  91 BA        ..    STA (&BA),Y
9E9E  A0 1B        ..    LDY #&1B
9EA0  91 BA        ..    STA (&BA),Y
9EA2  A0 1F        ..    LDY #&1F
9EA4  91 BA        ..    STA (&BA),Y
9EA6  20 67 AA      g.   JSR &AA67
9EA9  20 6D AA      m.   JSR &AA6D
9EAC  7A           z     PLY
9EAD  A6 F4        ..    LDX &F4
9EAF  3C F0 0D     <..   BIT &0DF0,X
9EB2  30 01        0.    BMI &9EB5
9EB4  C8           .     INY
9EB5  A9 02        ..    LDA #&02
.
9EB7  60           `     RTS

; -----------------------------------------------------------------------------
; Service call &12: Initialise filing system
; -----------------------------------------------------------------------------
.
9EB8  A0 08        ..    LDY #&08
.
9EBA  C0 08        ..    CPY #&08                 ; Is it ROM number 8?
9EBC  D0 F9        ..    BNE &9EB7
9EBE  5A           Z     PHY
9EBF  5A           Z     PHY
9EC0  80 40        .@    BRA &9F02

; -----------------------------------------------------------------------------
; Service call &03: Auto-boot call
; -----------------------------------------------------------------------------
.
9EC2  98           .     TYA
9EC3  48           H     PHA
9EC4  A9 7A        .z    LDA #&7A
9EC6  20 F4 FF      ..   JSR osbyte                ; OSBYTE &7A: Keyboard scan from 16 decimal
9EC9  E8           .     INX
9ECA  F0 16        ..    BEQ &9EE2
9ECC  CA           .     DEX
9ECD  E0 79        .y    CPX #&79
9ECF  F0 11        ..    BEQ &9EE2
9ED1  E0 41        .A    CPX #ASC"A"              ; A for ADFS
9ED3  F0 0D        ..    BEQ &9EE2
9ED5  E0 43        .C    CPX #ASC"C"              ; C for ???
9ED7  F0 07        ..    BEQ &9EE0
9ED9  68           h     PLA
9EDA  A8           .     TAY
9EDB  A6 F4        ..    LDX &F4
9EDD  A9 03        ..    LDA #&03
9EDF  60           `     RTS
.
9EE0  68           h     PLA
9EE1  DA           .     PHX
.
9EE2  58           X     CLI
9EE3  DA           .     PHX
9EE4  20 E9 9D      ..   JSR &9DE9
9EE7  0A           .     ASL A
9EE8  10 09        ..    BPL &9EF3
9EEA  20 F2 9D      ..   JSR &9DF2
9EED  F0 04        ..    BEQ &9EF3
9EEF  68           h     PLA
9EF0  A9 43        .C    LDA #&43
9EF2  48           H     PHA
9EF3  20 55 92      U.   JSR &9255                ; Write string to output stream
9EF6  41 63        Ac    EOR (&63,X)
9EF8  6F 72        or    BBR6 &9F6C
9EFA  6E 20 41     n A   ROR &4120
9EFD  44            D     ...
9EFE  46 53        FS    LSR &53
9F00  0D           .     EQUB &0D
9F01  8D           .     EQUB &8D
.
9F02  A9 06        ..    LDA #&06
9F04  20 B6 9D      ..   JSR &9DB6
9F07  A9 10        ..    LDA #&10
9F09  8D 00 C2     ...   STA &C200
9F0C  9C D7 C2     ...   STZ &C2D7
9F0F  9C D9 C2     ...   STZ &C2D9
9F12  20 E9 9D      ..   JSR &9DE9
9F15  8D D8 C2     ...   STA &C2D8
9F18  A0 0D        ..    LDY #&0D
9F1A  B9 29 A0     .).   LDA &A029,Y
9F1D  99 12 02     ...   STA &0212,Y
9F20  88           .     DEY
9F21  10 F7        ..    BPL &9F1A
9F23  A9 A8        ..    LDA #&A8
9F25  20 CE 84      ..   JSR &84CE                ; Make an OSBYTE call with X=&00 and Y=&FF
9F28  86 B4        ..    STX &B4
9F2A  84 B5        ..    STY &B5
9F2C  A0 2F        ./    LDY #&2F
9F2E  A2 14        ..    LDX #&14
9F30  BD 37 A0     .7.   LDA &A037,X
9F33  C9 FF        ..    CMP #&FF
9F35  D0 02        ..    BNE &9F39
9F37  A5 F4        ..    LDA &F4
9F39  91 B4        ..    STA (&B4),Y
9F3B  88           .     DEY
9F3C  CA           .     DEX
9F3D  10 F1        ..    BPL &9F30
9F3F  A9 8F        ..    LDA #&8F
9F41  A2 0F        ..    LDX #&0F
9F43  A0 FF        ..    LDY #&FF
9F45  20 F4 FF      ..   JSR osbyte
9F48  20 AF BF      ..   JSR &BFAF
9F4B  FF B7        ..    EQUW &B7FF
9F4D  20 6D AA      m.   JSR &AA6D
9F50  9C 08 C2     ...   STZ &C208
9F53  9C 0C C2     ...   STZ &C20C
9F56  9C 10 C2     ...   STZ &C210
9F59  9C 14 C2     ...   STZ &C214
9F5C  A9 01        ..    LDA #&01
9F5E  8D 04 C2     ...   STA &C204
9F61  A0 FC        ..    LDY #&FC
9F63  B1 BA        ..    LDA (&BA),Y
9F65  99 00 C3     ...   STA &C300,Y
9F68  88           .     DEY
9F69  D0 F8        ..    BNE &9F63
9F6B  B1 BA        ..    LDA (&BA),Y
9F6D  99 00 C3     ...   STA &C300,Y
9F70  AD 20 C3     . .   LDA &C320
9F73  29 04        ).    AND #%00000100
9F75  85 CD        ..    STA &CD
9F77  20 DA AA      ..   JSR &AADA
9F7A  20 D6 9D      ..   JSR &9DD6
9F7D  D0 04        ..    BNE &9F83
9F7F  A9 20        .     LDA #%00100000
9F81  04 CD        ..    TSB &CD                  ; Set the 'Winchester disc controller present' flag
9F83  68           h     PLA
9F84  C9 43        .C    CMP #&43
9F86  D0 03        ..    BNE &9F8B
9F88  20 9E 84      ..   JSR &849E
9F8B  A0 03        ..    LDY #&03
9F8D  B9 14 C3     ...   LDA &C314,Y
9F90  99 2C C2     .,.   STA &C22C,Y
9F93  88           .     DEY
9F94  10 F7        ..    BPL &9F8D
9F96  20 BA 89      ..   JSR &89BA
9F99  AE 17 C3     ...   LDX &C317
9F9C  E8           .     INX
9F9D  F0 51        .Q    BEQ &9FF0
9F9F  20 C1 B7      ..   JSR &B7C1
9FA2  AD 18 C3     ...   LDA &C318
9FA5  C9 02        ..    CMP #&02
9FA7  D0 44        .D    BNE &9FED
9FA9  AD 19 C3     ...   LDA &C319
9FAC  0D 1A C3     ...   ORA &C31A
9FAF  0D 1B C3     ...   ORA &C31B
9FB2  D0 39        .9    BNE &9FED
9FB4  A9 21        .!    LDA #&21
9FB6  85 B4        ..    STA &B4
9FB8  A9 A0        ..    LDA #&A0
9FBA  85 B5        ..    STA &B5
9FBC  20 B5 8F      ..   JSR &8FB5
9FBF  D0 2C        .,    BNE &9FED
9FC1  A0 03        ..    LDY #&03
9FC3  B1 B6        ..    LDA (&B6),Y
9FC5  30 07        0.    BMI &9FCE
9FC7  20 48 89      H.   JSR &8948
9FCA  D0 21        .!    BNE &9FED
9FCC  F0 F3        ..    BEQ &9FC1
9FCE  A2 02        ..    LDX #&02
9FD0  A0 18        ..    LDY #&18
9FD2  B1 B6        ..    LDA (&B6),Y
9FD4  9D 18 C3     ...   STA &C318,X
9FD7  88           .     DEY
9FD8  CA           .     DEX
9FD9  10 F7        ..    BPL &9FD2
9FDB  AD 17 C3     ...   LDA &C317
9FDE  8D 1B C3     ...   STA &C31B
9FE1  A0 09        ..    LDY #&09
9FE3  B1 B6        ..    LDA (&B6),Y
9FE5  29 7F        )    AND #&7F
9FE7  99 0A C3     ...   STA &C30A,Y
9FEA  88           .     DEY
9FEB  10 F6        ..    BPL &9FE3
9FED  20 BA 89      ..   JSR &89BA
9FF0  A9 EA        ..    LDA #&EA                 ; OSBYTE &EA
9FF2  20 CE 84      ..   JSR &84CE                ; Make an OSBYTE call with X=&00 and Y=&FF
9FF5  A9 80        ..    LDA #%10000000
9FF7  14 CD        ..    TRB &CD                  ; Clear the 'TUBE present' flag
9FF9  E8           .     INX
9FFA  D0 02        ..    BNE &9FFE
9FFC  04 CD        ..    TSB &CD                  ; Set the 'TUBE present' flag
9FFE  68           h     PLA
9FFF  48           H     PHA
A000  D0 19        ..    BNE &A01B
A002  AE 17 C3     ...   LDX &C317
A005  E8           .     INX
A006  D0 06        ..    BNE &A00E
A008  8E 6F C2     .o.   STX &C26F
A00B  20 4A A5      J.   JSR &A54A
A00E  AC FD C1     ...   LDY &C1FD
A011  F0 08        ..    BEQ &A01B
A013  BE F8 9D     ...   LDX &9DF8,Y
A016  A0 9E        ..    LDY #&9E
A018  20 F7 FF      ..   JSR oscli
A01B  A6 F4        ..    LDX &F4
A01D  7A           z     PLY
A01E  A9 00        ..    LDA #&00
A020  60           `     RTS
A021  3A           :     DEC A
A022  30 2E        0.    BMI &A052
A024  4C 49 42     LIB   JMP &4249
A027  2A           *     ROL A
A028  0D 1B FF     ...   ORA &FF1B
A02B  1E FF 21     ..!   ASL &21FF,Y
A02E  FF 24        .$    BBS7 &A054
A030  FF 27        .'    BBS7 &A059
A032  FF 2A        .*    BBS7 &A05E
A034  FF 2D        .-    BBS7 &A063
A036  FF F4        ..    BBS7 &A02C
A038  91 FF        ..    STA (&FF),Y
A03A  86 AC        ..    STX &AC
A03C  FF 78        .x    BBS7 &A0B6
A03E  B0 FF        ..    BCS &A03F
A040  DE B3 FF     ...   DEC &FFB3,X
A043  B7 B8        ..    SMB3 &B8
A045  FF 0E        ..    BBS7 &A055
A047  B5 FF        ..    LDA &FF,X
A049  23            #     ...
A04A  A2 FF        ..    LDX #&FF

; -----------------------------------------------------------------------------
; Service call &21: Claim private workspace in Hazel
; -----------------------------------------------------------------------------
.
A04C  C0 CE        ..    CPY #&CE
A04E  B0 02        ..    BCS &A052
A050  A0 CE        ..    LDY #&CE
.
A052  60           `     RTS

; -----------------------------------------------------------------------------
; Service call &22: Claim absolute workspace in Hazel
; -----------------------------------------------------------------------------
.
A053  98           .     TYA
A054  9D F0 0D     ...   STA &0DF0,X
A057  A9 22        ."    LDA #&22
A059  C8           .     INY
A05A  60           `     RTS

; -----------------------------------------------------------------------------
; Service call &23: Reports top of private workspace
; -----------------------------------------------------------------------------
.
A05B  20 4A AA      J.   JSR &AA4A
A05E  5A           Z     PHY
A05F  98           .     TYA
A060  A0 FC        ..    LDY #&FC
A062  91 BA        ..    STA (&BA),Y
A064  20 56 AA      V.   JSR &AA56
A067  91 BA        ..    STA (&BA),Y
A069  7A           z     PLY
A06A  A9 23        .#    LDA #&23
A06C  60           `     RTS

; -----------------------------------------------------------------------------
; Service call &24: Absolute workspace in Hazel count
; -----------------------------------------------------------------------------
.
A06D  88           .     DEY
A06E  60           `     RTS

; -----------------------------------------------------------------------------
; Service call &25: Return filing system information
; -----------------------------------------------------------------------------
.
A06F  A2 0A        ..    LDX #&0A
.
A071  BD 7F A0     ..   LDA &A07F,X
A074  91 F2        ..    STA (&F2),Y
A076  C8           .     INY
A077  CA           .     DEX
A078  10 F7        ..    BPL &A071
A07A  A9 25        .%    LDA #&25
.
A07C  A6 F4        ..    LDX &F4
A07E  60           `     RTS

.
A07F  08           .     EQUB adfs_fsid           ; Filimg system number
A080  39           9     EQUB &39                 ; Maximum file handle
A081  30           0     EQUB &00                 ; Minimum file handle

A082  20 20 20 20        EQUS "    sfda"          ; Filing system name
      73 66 64 61  sfda
 
; -----------------------------------------------------------------------------
; Service call &26: *SHUT command issued
; -----------------------------------------------------------------------------
.
A08A  5A           Z     PHY
A08B  20 4A AA      J.   JSR &AA4A
A08E  A0 AC        ..    LDY #&AC
A090  A2 09        ..    LDX #&09
A092  A9 00        ..    LDA #&00
A094  11 BA        ..    ORA (&BA),Y
A096  C8           .     INY
A097  CA           .     DEX
A098  10 FA        ..    BPL &A094
A09A  AA           .     TAX
A09B  F0 06        ..    BEQ &A0A3
A09D  20 B8 9E      ..   JSR &9EB8                ; Initialise filing system
A0A0  20 00 B5      ..   JSR &B500
A0A3  7A           z     PLY
A0A4  A9 26        .&    LDA #&26
A0A6  80 D4        ..    BRA &A07C

; -----------------------------------------------------------------------------
; Service call &04: Unrecognised * command
; -----------------------------------------------------------------------------
.
A0A8  5A           Z     PHY
A0A9  A9 FF        ..    LDA #&FF
A0AB  48           H     PHA
A0AC  B1 F2        ..    LDA (&F2),Y
A0AE  09 20        .     ORA #&20
A0B0  C9 66        .f    CMP #&66
A0B2  D0 05        ..    BNE &A0B9
A0B4  68           h     PLA
A0B5  A9 43        .C    LDA #&43
A0B7  48           H     PHA
A0B8  C8           .     INY
A0B9  A2 03        ..    LDX #&03
A0BB  B1 F2        ..    LDA (&F2),Y
A0BD  C8           .     INY
A0BE  C9 2E        ..    CMP #ASC"."
A0C0  F0 0A        ..    BEQ &A0CC
A0C2  09 20        .     ORA #&20
A0C4  DD 86 A0     ...   CMP &A086,X
A0C7  D0 13        ..    BNE &A0DC
A0C9  CA           .     DEX
A0CA  10 EF        ..    BPL &A0BB
A0CC  B1 F2        ..    LDA (&F2),Y
A0CE  C8           .     INY
A0CF  C9 20        .     CMP #ASC" "
A0D1  F0 F9        ..    BEQ &A0CC
A0D3  B0 07        ..    BCS &A0DC
A0D5  FA           .     PLX
A0D6  68           h     PLA
A0D7  DA           .     PHX
A0D8  DA           .     PHX
A0D9  4C 02 9F     L..   JMP &9F02
A0DC  68           h     PLA
A0DD  7A           z     PLY
A0DE  A9 04        ..    LDA #&04
A0E0  A6 F4        ..    LDX &F4
A0E2  60           `     RTS

; -----------------------------------------------------------------------------
; Service call &08: Unrecognised OSWORD call
; -----------------------------------------------------------------------------
.
A0E3  5A           Z     PHY
A0E4  A5 EF        ..    LDA &EF
A0E6  C9 70        .p    CMP #&70
A0E8  90 55        .U    BCC &A13F                ; Jump if A < &70
A0EA  C9 74        .t    CMP #&74
A0EC  B0 51        .Q    BCS &A13F                ; Jump if A >= &74
A0EE  A9 00        ..    LDA #&00
A0F0  A8           .     TAY
A0F1  20 DA FF      ..   JSR osargs               ; Return the current filing system number in A
A0F4  C9 08        ..    CMP #adfs_fsid
A0F6  F0 03        ..    BEQ &A0FB                ; Jump if ADFS is the current filing system
A0F8  20 B8 9E      ..   JSR &9EB8                ; Initialise filing system
.
A0FB  A5 EF        ..    LDA &EF
A0FD  C9 72        .r    CMP #&72                 ; Is it an OSWORD &72 call? (General read/write function)
A0FF  D0 44        .D    BNE &A145
A101  A5 F0        ..    LDA &F0                  ; Get the X and Y registers on entry of the OSWORD call
A103  85 BA        ..    STA &BA
A105  A5 F1        ..    LDA &F1
A107  85 BB        ..    STA &BB
A109  A0 0F        ..    LDY #&0F
.
A10B  B1 BA        ..    LDA (&BA),Y
A10D  99 15 C2     ...   STA &C215,Y              ; Copy the parameter block to &C215
A110  88           .     DEY
A111  10 F8        ..    BPL &A10B
A113  AD 1A C2     ...   LDA &C21A                ; XY+5 (&08 for read, &0A for write)
A116  29 FD        ).    AND #%11111101
A118  C9 08        ..    CMP #&08                 ; Is it a read operation?
A11A  F0 11        ..    BEQ &A12D
.
A11C  A2 15        ..    LDX #&15
A11E  A0 C2        ..    LDY #&C2
A120  EE 17 C3     ...   INC &C317
A123  F0 03        ..    BEQ &A128
A125  CE 17 C3     ...   DEC &C317
.
A128  20 A2 80      ..   JSR &80A2
A12B  10 08        ..    BPL &A135
.
A12D  AD 1E C2     ...   LDA &C21E                ; XY+9 (sector count)
A130  D0 EA        ..    BNE &A11C
A132  20 28 8A      (.   JSR &8A28
.
A135  A0 00        ..    LDY #&00
A137  91 BA        ..    STA (&BA),Y
.
A139  A6 F4        ..    LDX &F4
A13B  7A           z     PLY
A13C  A9 00        ..    LDA #&00
A13E  60           `     RTS
.
A13F  A6 F4        ..    LDX &F4
A141  7A           z     PLY
A142  A9 08        ..    LDA #&08
A144  60           `     RTS
.
A145  C9 73        .s    CMP #&73                 ; Is it an OSWORD &73 call? (Read last error information)
A147  D0 0C        ..    BNE &A155
A149  A0 04        ..    LDY #&04
A14B  B9 D0 C2     ...   LDA &C2D0,Y
A14E  91 F0        ..    STA (&F0),Y
A150  88           .     DEY
A151  10 F8        ..    BPL &A14B
A153  30 E4        0.    BMI &A139
.
A155  C9 70        .p    CMP #&70                 ; Is it an OSWORD &70 call? (Read Master Sequence number and status byte)
A157  D0 0F        ..    BNE &A168
A159  AD FA C8     ...   LDA &C8FA                ; Get the Master sequence number for the current directory (in BCD)
A15C  A0 00        ..    LDY #&00
A15E  91 F0        ..    STA (&F0),Y
A160  A5 CD        ..    LDA &CD                  ; Get the status byte
A162  C8           .     INY
A163  91 F0        ..    STA (&F0),Y
A165  4C 39 A1     L9.   JMP &A139
.
A168  C9 71        .q    CMP #&71                 ; Is it an OSWORD &71 call? (Read free space)
A16A  D0 D3        ..    BNE &A13F
A16C  20 93 A5      ..   JSR &A593
A16F  A0 03        ..    LDY #&03
A171  B9 15 C2     ...   LDA &C215,Y
A174  91 F0        ..    STA (&F0),Y
A176  88           .     DEY
A177  10 F8        ..    BPL &A171
A179  80 BE        ..    BRA &A139

; -----------------------------------------------------------------------------
; Display title and version
; -----------------------------------------------------------------------------
.
A17B  20 55 92      U.   JSR &9255                ; Write string to output stream

A17E  0D           .     EQUB &0D
A17F  41 64 76 61  Adva  EQUS "Advanced DFS 2.03"
      6E 63 65 64  nced   ROR &6563
      20 44 46 53   DFS
      20 32 2E 30   2.0
      33           3
A190  8D           .     EQUB &8D

A191  60           `     RTS

; -----------------------------------------------------------------------------
; Service call &09: *HELP command interception
; -----------------------------------------------------------------------------
.
A192  98           .     TYA
A193  48           H     PHA
A194  B1 F2        ..    LDA (&F2),Y
A196  C9 20        .     CMP #&20
A198  B0 29        .)    BCS &A1C3
A19A  20 7B A1      {.   JSR &A17B                ; Display title and version
A19D  20 55 92      U.   JSR &9255                ; Write string to output stream
A1A0  20 20 41       A   JSR &4120
A1A3  44            D     ...
A1A4  46 53        FS    LSR &53
A1A6  8D 68 A8     .h.   STA &A868
A1A9  A6 F4        ..    LDX &F4
A1AB  A9 09        ..    LDA #&09
A1AD  60           `     RTS
A1AE  C8           .     INY
A1AF  B1 F2        ..    LDA (&F2),Y
A1B1  C9 20        .     CMP #&20
A1B3  B0 F8        ..    BCS &A1AD
A1B5  68           h     PLA
A1B6  68           h     PLA
A1B7  90 EE        ..    BCC &A1A7
A1B9  20 AE A1      ..   JSR &A1AE
A1BC  D0 FB        ..    BNE &A1B9
A1BE  20 AE A1      ..   JSR &A1AE
A1C1  F0 FB        ..    BEQ &A1BE
.
A1C3  A2 03        ..    LDX #&03
A1C5  B1 F2        ..    LDA (&F2),Y
A1C7  C9 2E        ..    CMP #ASC"."
A1C9  F0 11        ..    BEQ &A1DC
A1CB  09 20        .     ORA #&20
A1CD  DD 86 A0     ...   CMP &A086,X
A1D0  D0 E7        ..    BNE &A1B9
A1D2  C8           .     INY
A1D3  CA           .     DEX
A1D4  10 EF        ..    BPL &A1C5
A1D6  B1 F2        ..    LDA (&F2),Y
A1D8  C9 21        .!    CMP #ASC"!"
A1DA  B0 DD        ..    BCS &A1B9
A1DC  20 7B A1      {.   JSR &A17B                ; Display title and version
A1DF  A2 00        ..    LDX #&00
A1E1  BD B3 A2     ...   LDA &A2B3,X
A1E4  30 C1        0.    BMI &A1A7
A1E6  20 55 92      U.   JSR &9255                ; Write string to output stream
A1E9  20 A0 A0      ..   JSR &A0A0
A1EC  09 BD        ..    ORA #&BD
A1EE  B3            .     ...
A1EF  A2 30        .0    LDX #&30
A1F1  07 20        .     RMB0 &20
A1F3  ED A3 E8     ...   SBC &E8A3
A1F6  88           .     DEY
A1F7  10 F4        ..    BPL &A1ED
A1F9  20 E7 A3      ..   JSR &A3E7
A1FC  88           .     DEY
A1FD  10 FA        ..    BPL &A1F9
A1FF  DA           .     PHX
A200  BD B5 A2     ...   LDA &A2B5,X
A203  48           H     PHA
A204  4A           J     LSR A
A205  4A           J     LSR A
A206  4A           J     LSR A
A207  4A           J     LSR A
A208  20 30 92      0.   JSR &9230
A20B  68           h     PLA
A20C  29 0F        ).    AND #&0F
A20E  20 30 92      0.   JSR &9230
A211  20 EB A3      ..   JSR &A3EB
A214  FA           .     PLX
A215  E8           .     INX
A216  E8           .     INX
A217  E8           .     INX
A218  80 C7        ..    BRA &A1E1
A21A  AC 5A 66     .Zf   LDY &665A
A21D  70 7C        p|    BCS &A29B
A21F  86 93        ..    STX &93
A221  9D A5 86     ...   STA &86A5,X
A224  B4 84        ..    LDY &84
A226  B5 8D        ..    LDA &8D,X
A228  D6 C2        ..    DEC &C2,X
A22A  AA           .     TAX
A22B  30 13        0.    BMI &A240
A22D  C9 0C        ..    CMP #&0C
A22F  B0 0F        ..    BCS &A240
A231  9C D5 C2     ...   STZ &C2D5
A234  BD 4D A2     .M.   LDA &A24D,X
A237  48           H     PHA
A238  BD 41 A2     .A.   LDA &A241,X
A23B  48           H     PHA
A23C  A6 B4        ..    LDX &B4
A23E  A4 B5        ..    LDY &B5
A240  60           `     RTS
A241  B1 4E        .N    LDA (&4E),Y
A243  D4            .     ...
A244  58           X     CLI
A245  D4            .     ...
A246  82            .     ...
A247  78           x     SEI
A248  AC 88 E7     ...   LDY &E788
A24B  9B            .     ...
A24C  D4            .     ...
A24D  A3            .     ...
A24E  B0 A6        ..    BCS &A1F6
A250  A2 A6        ..    LDX #&A6
A252  93            .     ...
A253  AC A3 A4     ...   LDY &A4A3
A256  93            .     ...
A257  94 A6        ..    STY &A6
A259  20 29 83      ).   JSR &8329
A25C  A9 A2        ..    LDA #&A2
A25E  85 B8        ..    STA &B8
A260  A9 C2        ..    LDA #&C2
A262  85 B9        ..    STA &B9
A264  20 07 A8      ..   JSR &A807
A267  A2 FD        ..    LDX #&FD
A269  E8           .     INX
A26A  E8           .     INX
A26B  A0 FF        ..    LDY #&FF
A26D  E8           .     INX
A26E  C8           .     INY
A26F  BD B3 A2     ...   LDA &A2B3,X
A272  30 1A        0.    BMI &A28E
A274  D1 B4        ..    CMP (&B4),Y
A276  F0 F5        ..    BEQ &A26D
A278  09 20        .     ORA #&20
A27A  D1 B4        ..    CMP (&B4),Y
A27C  F0 EF        ..    BEQ &A26D
A27E  CA           .     DEX
A27F  E8           .     INX
A280  BD B3 A2     ...   LDA &A2B3,X
A283  10 FA        ..    BPL &A27F
A285  B1 B4        ..    LDA (&B4),Y
A287  C9 2E        ..    CMP #&2E
A289  D0 DE        ..    BNE &A269
A28B  C8           .     INY
A28C  D0 0F        ..    BNE &A29D
A28E  98           .     TYA
A28F  F0 19        ..    BEQ &A2AA
A291  B1 B4        ..    LDA (&B4),Y
A293  29 5F        )_    AND #&5F
A295  C9 41        .A    CMP #&41
A297  90 04        ..    BCC &A29D
A299  C9 5B        .[    CMP #&5B
A29B  90 CC        ..    BCC &A269
A29D  98           .     TYA
A29E  18           .     CLC
A29F  65 B4        e.    ADC &B4
A2A1  85 B4        ..    STA &B4
A2A3  90 02        ..    BCC &A2A7
A2A5  E6 B5        ..    INC &B5
A2A7  20 07 A8      ..   JSR &A807
A2AA  BD B3 A2     ...   LDA &A2B3,X
A2AD  48           H     PHA
A2AE  BD B4 A2     ...   LDA &A2B4,X
A2B1  48           H     PHA
A2B2  60           `     RTS
A2B3  41 43        AC    EOR (&43,X)
A2B5  43            C     ...
A2B6  45 53        ES    EOR &53
A2B8  53            S     ...
A2B9  9C 9A 15     ...   STZ &159A
A2BC  42            B     ...
A2BD  41 43        AC    EOR (&43,X)
A2BF  4B            K     ...
A2C0  A7 CE        ..    SMB2 &CE
A2C2  00           .     BRK
A2C3  42            B     ...
A2C4  41 43        AC    EOR (&43,X)
A2C6  4B            K     ...
A2C7  55 50        UP    EOR &50,X
A2C9  95 F6        ..    STA &F6,X
A2CB  77 42        wB    RMB7 &42
A2CD  59 45 A4     YE.   EOR &A445,Y
A2D0  AF 00        ..    BBS2 &A2D2
A2D2  43            C     ...
A2D3  44            D     ...
A2D4  49 52        IR    EOR #&52
A2D6  95 24        .$    STA &24,X
A2D8  20 43 4F      CO   JSR &4F43
A2DB  4D 50 41     MPA   EOR &4150
A2DE  43            C     ...
A2DF  54            T     ...
A2E0  A6 5E        .^    LDX &5E
A2E2  00           .     BRK
A2E3  43            C     ...
A2E4  4F 50        OP    BBR4 &A336
A2E6  59 AB 4A     Y.J   EOR &4AAB,Y
A2E9  13            .     ...
A2EA  44            D     ...
A2EB  45 53        ES    EOR &53
A2ED  54            T     ...
A2EE  52 4F        RO    EOR (&4F)
A2F0  59 9D 68     Y.h   EOR &689D,Y
A2F3  10 44        .D    BPL &A339
A2F5  49 52        IR    EOR #&52
A2F7  94 F3        ..    STY &F3
A2F9  20 44 49      DI   JSR &4944
A2FC  53            S     ...
A2FD  4D 4F 55     MOU   EOR &554F
A300  4E 54 A4     NT.   LSR &A454
A303  F9 40 44     .@D   SBC &4440,Y
A306  52 49        RI    EOR (&49)
A308  56 45        VE    LSR &45,X
A30A  99 88 70     ..p   STA &7088,Y
A30D  46 4F        FO    LSR &4F
A30F  52 4D        RM    EOR (&4D)
A311  41 54        AT    EOR (&54,X)
A313  BD A4 78     ..x   LDA &78A4,X
A316  46 52        FR    LSR &52
A318  45 45        EE    EOR &45
A31A  A4 0F        ..    LDY &0F
A31C  00           .     BRK
A31D  4C 43 41     LCA   JMP &4143
A320  54            T     ...
A321  A7 B6        ..    SMB2 &B6
A323  00           .     BRK
A324  4C 45 58     LEX   JMP &5845
A327  A7 C2        ..    SMB2 &C2
A329  00           .     BRK
A32A  4C 49 42     LIB   JMP &4249
A32D  A7 7B        .{    SMB2 &7B
A32F  30 4D        0M    BMI &A37E
A331  41 50        AP    EOR (&50,X)
A333  A4 3E        .>    LDY &3E
A335  00           .     BRK
A336  4D 4F 55     MOU   EOR &554F
A339  4E 54 A5     NT.   LSR &A554
A33C  46 40        F@    LSR &40
A33E  52 45        RE    EOR (&45)
A340  4E 41 4D     NAM   LSR &4D41
A343  45 A8        E.    EOR &A8
A345  43            C     ...
A346  22            "     ...
A347  54            T     ...
A348  49 54        IT    EOR #&54
A34A  4C 45 A6     LE.   JMP &A645
A34D  3A           :     DEC A
A34E  60           `     RTS
A34F  56 45        VE    LSR &45,X
A351  52 49        RI    EOR (&49)
A353  46 59        FY    LSR &59
A355  97 F1        ..    SMB1 &F1
A357  40           @     RTI
A358  A6 D4        ..    LDX &D4
A35A  3C 4C 69     <Li   BIT &694C,X
A35D  73            s     ...
A35E  74 20        t     STZ &20,X
A360  53            S     ...
A361  70 65        pe    BCS &A3C8
A363  63            c     ...
A364  3E 00 3C     >.<   ROL &3C00,X
A367  4F 62        Ob    BBR4 &A3CB
A369  20 53 70      Sp   JSR &7053
A36C  65 63        ec    ADC &63
A36E  3E 00 3C     >.<   ROL &3C00,X
A371  2A           *     ROL A
A372  4F 62        Ob    BBR4 &A3D6
A374  20 53 70      Sp   JSR &7053
A377  65 63        ec    ADC &63
A379  2A           *     ROL A
A37A  3E 00 28     >.(   ROL &2800,X
A37D  3C 44 72     <Dr   BIT &7244,X
A380  69 76        iv    ADC #&76
A382  65 3E        e>    ADC &3E
A384  29 00        ).    AND #&00
A386  28           (     PLP
A387  4C 29 28     L)(   JMP &2829
A38A  57 29        W)    RMB5 &29
A38C  28           (     PLP
A38D  52 29        R)    EOR (&29)
A38F  28           (     PLP
A390  45 29        E)    EOR &29
A392  00           .     BRK
A393  28           (     PLP
A394  3C 54 69     <Ti   BIT &6954,X
A397  74 6C        tl    STZ &6C,X
A399  65 3E        e>    ADC &3E
A39B  29 00        ).    AND #&00
A39D  3C 44 72     <Dr   BIT &7244,X
A3A0  69 76        iv    ADC #&76
A3A2  65 3E        e>    ADC &3E
A3A4  00           .     BRK
A3A5  3C 53 2C     <S,   BIT &2C53,X
A3A8  4D 2C 4C     M,L   EOR &4C2C
A3AB  3E 00 A2     >..   ROL &A200,X
A3AE  30 A0        0.    BMI &A350
A3B0  39 60 A6     9`.   AND &A660,Y
A3B3  B4 F0        ..    LDY &F0
A3B5  0A           .     ASL A
A3B6  CA           .     DEX
A3B7  D0 0E        ..    BNE &A3C7
A3B9  A9 04        ..    LDA #%00000100
A3BB  04 CD        ..    TSB &CD                  ; Set the '*OPT1 setting' flag
A3BD  98           .     TYA
A3BE  D0 04        ..    BNE &A3C4
A3C0  A9 04        ..    LDA #%00000100
A3C2  14 CD        ..    TRB &CD                  ; Clear the '*OPT1 setting' flag
A3C4  4C BA 89     L..   JMP &89BA
A3C7  E0 03        ..    CPX #&03
A3C9  D0 10        ..    BNE &A3DB
A3CB  20 C0 8F      ..   JSR &8FC0
A3CE  20 3A B8      :.   JSR &B83A
A3D1  A5 B5        ..    LDA &B5
A3D3  29 03        ).    AND #&03
A3D5  8D FD C1     ...   STA &C1FD
A3D8  4C 5E 8F     L^.   JMP &8F5E
A3DB  20 6C 83      l.   JSR &836C
A3DE  CB            .     ...
A3DF  42            B     ...
A3E0  61 64        ad    ADC (&64,X)
A3E2  20 6F 70      op   JSR &706F
A3E5  74 00        t.    STZ &00,X
A3E7  A9 20        .     LDA #ASC" "
A3E9  80 02        ..    BRA &A3ED                ; Write character to output stream
A3EB  A9 0D        ..    LDA #&0D

; -----------------------------------------------------------------------------
; Write character to output stream
; -----------------------------------------------------------------------------
.
A3ED  DA           .     PHX
A3EE  5A           Z     PHY
A3EF  48           H     PHA
A3F0  20 C8 84      ..   JSR &84C8                ; Make an OSBYTE &C7 call (Read *SPOOL file handle)
A3F3  E0 30        .0    CPX #&30
A3F5  90 09        ..    BCC &A400
A3F7  E0 3A        .:    CPX #&3A
A3F9  B0 05        ..    BCS &A400
A3FB  20 F4 FF      ..   JSR osbyte
A3FE  A2 00        ..    LDX #&00
.
A400  68           h     PLA
A401  48           H     PHA
A402  20 E3 FF      ..   JSR osasci
A405  A9 C7        ..    LDA #&C7
A407  A0 FF        ..    LDY #&FF
A409  20 F4 FF      ..   JSR osbyte               ; OSBYTE &C7: Write *SPOOL file handle
A40C  68           h     PLA
A40D  7A           z     PLY
A40E  FA           .     PLX
A40F  60           `     RTS

A410  20 93 A5      ..   JSR &A593
A413  20 AF A5      ..   JSR &A5AF
A416  20 55 92      U.   JSR &9255                ; Write string to output stream
A419  46 72        Fr    LSR &72
A41B  65 65        ee    ADC &65
A41D  8D 20 93     . .   STA &9320
A420  A5 A0        ..    LDA &A0
A422  01 A2        ..    ORA (&A2,X)
A424  02            .     ...
A425  38           8     SEC
A426  B9 FB C0     ...   LDA &C0FB,Y
A429  F9 15 C2     ...   SBC &C215,Y
A42C  99 15 C2     ...   STA &C215,Y
A42F  C8           .     INY
A430  CA           .     DEX
A431  10 F3        ..    BPL &A426
A433  20 AF A5      ..   JSR &A5AF
A436  20 55 92      U.   JSR &9255                ; Write string to output stream
A439  55 73        Us    EOR &73,X
A43B  65 64        ed    ADC &64
A43D  8D 60 20     .`    STA &2060
A440  55 92        U.    EOR &92,X
A442  41 64        Ad    EOR (&64,X)
A444  64 72        dr    STZ &72
A446  65 73        es    ADC &73
A448  73            s     ...
A449  20 3A 20      :    JSR &203A
A44C  20 4C 65      Le   JSR &654C
A44F  6E 67 74     ngt   ROR &7467
A452  68           h     PLA
A453  8D A2 00     ...   STA &00A2
A456  EC FE C1     ...   CPX &C1FE
A459  F0 E3        ..    BEQ &A43E
A45B  E8           .     INX
A45C  E8           .     INX
A45D  E8           .     INX
A45E  86 C6        ..    STX &C6
A460  A0 02        ..    LDY #&02
A462  CA           .     DEX
A463  BD 00 C0     ...   LDA &C000,X
A466  20 CD 92      ..   JSR &92CD                ; Write the ASCII value of A in hex. to the output stream
A469  88           .     DEY
A46A  10 F6        ..    BPL &A462
A46C  20 55 92      U.   JSR &9255                ; Write string to output stream
A46F  20 20 3A       :   JSR &3A20
A472  20 A0 A6      ..   JSR &A6A0
A475  C6 A0        ..    DEC &A0
A477  02            .     ...
A478  CA           .     DEX
A479  BD 00 C1     ...   LDA &C100,X
A47C  20 CD 92      ..   JSR &92CD                ; Write the ASCII value of A in hex. to the output stream
A47F  88           .     DEY
A480  10 F6        ..    BPL &A478
A482  20 EB A3      ..   JSR &A3EB
A485  A6 C6        ..    LDX &C6
A487  80 CD        ..    BRA &A456
A489  AE DC C2     ...   LDX &C2DC
A48C  D0 B0        ..    BNE &A43E
A48E  AE FE C1     ...   LDX &C1FE
A491  E0 E1        ..    CPX #&E1
A493  90 A9        ..    BCC &A43E
A495  20 55 92      U.   JSR &9255                ; Write string to output stream
A498  43            C     ...
A499  6F 6D        om    BBR6 &A508
A49B  70 61        pa    BCS &A4FE
A49D  63            c     ...
A49E  74 69        ti    STZ &69,X
A4A0  6F 6E        on    BBR6 &A510
A4A2  20 72 65      re   JSR &6572
A4A5  63            c     ...
A4A6  6F 6D        om    BBR6 &A515
A4A8  6D 65 6E     men   ADC &6E65
A4AB  64 65        de    STZ &65
A4AD  64 8D        d.    STZ &8D
A4AF  60           `     RTS
A4B0  AD 17 C3     ...   LDA &C317
A4B3  48           H     PHA
A4B4  20 00 B5      ..   JSR &B500
A4B7  A9 60        .`    LDA #&60
A4B9  8D 17 C3     ...   STA &C317
A4BC  A2 D3        ..    LDX #&D3
A4BE  A0 A4        ..    LDY #&A4
A4C0  20 A2 80      ..   JSR &80A2
A4C3  AD 17 C3     ...   LDA &C317
A4C6  38           8     SEC
A4C7  E9 20        .     SBC #&20
A4C9  8D 17 C3     ...   STA &C317
A4CC  B0 EE        ..    BCS &A4BC
A4CE  68           h     PLA
A4CF  8D 17 C3     ...   STA &C317
A4D2  60           `     RTS
A4D3  00           .     BRK
A4D4  00           .     BRK
A4D5  C9 FF        ..    CMP #&FF
A4D7  FF 1B        ..    BBS7 &A4F4
A4D9  00           .     BRK
A4DA  00           .     BRK
A4DB  00           .     BRK
A4DC  00           .     BRK
A4DD  00           .     BRK
A4DE  20 07 A8      ..   JSR &A807
A4E1  AC 17 C3     ...   LDY &C317
A4E4  C8           .     INY
A4E5  F0 01        ..    BEQ &A4E8
A4E7  88           .     DEY
A4E8  8C 6F C2     .o.   STY &C26F
A4EB  A0 00        ..    LDY #&00
A4ED  B1 B4        ..    LDA (&B4),Y
A4EF  C9 20        .     CMP #&20
A4F1  90 06        ..    BCC &A4F9
A4F3  20 35 88      5.   JSR &8835
A4F6  8D 6F C2     .o.   STA &C26F
A4F9  60           `     RTS
A4FA  20 DE A4      ..   JSR &A4DE
A4FD  A2 09        ..    LDX #&09
A4FF  BD AC C3     ...   LDA &C3AC,X
A502  F0 14        ..    BEQ &A518
A504  BD B6 C3     ...   LDA &C3B6,X
A507  29 E0        ).    AND #&E0
A509  CD 6F C2     .o.   CMP &C26F
A50C  D0 0A        ..    BNE &A518
A50E  18           .     CLC
A50F  8A           .     TXA
A510  69 30        i0    ADC #&30
A512  A8           .     TAY
A513  A9 00        ..    LDA #&00
A515  20 0E B5      ..   JSR &B50E
A518  CA           .     DEX
A519  10 E4        ..    BPL &A4FF
A51B  AD 17 C3     ...   LDA &C317
A51E  CD 6F C2     .o.   CMP &C26F
A521  D0 3F        .?    BNE &A562
A523  A9 FF        ..    LDA #&FF
A525  8D 17 C3     ...   STA &C317
A528  8D 16 C3     ...   STA &C316
A52B  A2 00        ..    LDX #&00
A52D  20 32 A5      2.   JSR &A532
A530  80 30        .0    BRA &A562
A532  A0 09        ..    LDY #&09
A534  B9 3D A5     .=.   LDA &A53D,Y
A537  9D 00 C3     ...   STA &C300,X
A53A  E8           .     INX
A53B  88           .     DEY
A53C  10 F6        ..    BPL &A534
A53E  60           `     RTS
A53F  0D 22 74     ."t   ORA &7422
A542  65 73        es    ADC &73
A544  6E 55 22     nU"   ROR &2255
A547  20 DE A4      ..   JSR &A4DE
A54A  AD 6F C2     .o.   LDA &C26F
A54D  8D 17 C3     ...   STA &C317
A550  A2 88        ..    LDX #&88
A552  A0 A5        ..    LDY #&A5
A554  20 A2 80      ..   JSR &80A2
A557  A9 8D        ..    LDA #&8D
A559  85 B4        ..    STA &B4
A55B  A9 A6        ..    LDA #&A6
A55D  85 B5        ..    STA &B5
A55F  20 F4 94      ..   JSR &94F4
A562  AD 1F C3     ...   LDA &C31F
A565  CD 6F C2     .o.   CMP &C26F
A568  D0 08        ..    BNE &A572
A56A  A9 FF        ..    LDA #&FF
A56C  8D 1E C3     ...   STA &C31E
A56F  8D 1F C3     ...   STA &C31F
A572  AD 1B C3     ...   LDA &C31B
A575  CD 6F C2     .o.   CMP &C26F
A578  D0 0D        ..    BNE &A587
A57A  A9 FF        ..    LDA #&FF
A57C  8D 1A C3     ...   STA &C31A
A57F  8D 1B C3     ...   STA &C31B
A582  A2 0A        ..    LDX #&0A
A584  20 32 A5      2.   JSR &A532
A587  60           `     RTS
A588  00           .     BRK
A589  00           .     BRK
A58A  C9 FF        ..    CMP #&FF
A58C  FF 1B        ..    BBS7 &A5A9
A58E  00           .     BRK
A58F  00           .     BRK
A590  00           .     BRK
A591  01 00        ..    ORA (&00,X)
A593  A9 00        ..    LDA #&00
A595  A2 03        ..    LDX #&03
A597  9D 15 C2     ...   STA &C215,X
A59A  9D 27 C2     .'.   STA &C227,X
A59D  CA           .     DEX
A59E  10 F7        ..    BPL &A597
A5A0  20 38 86      8.   JSR &8638
A5A3  A2 02        ..    LDX #&02
A5A5  BD 5D C2     .].   LDA &C25D,X
A5A8  9D 16 C2     ...   STA &C216,X
A5AB  CA           .     DEX
A5AC  10 F7        ..    BPL &A5A5
A5AE  60           `     RTS
A5AF  AD 18 C2     ...   LDA &C218
A5B2  20 CD 92      ..   JSR &92CD                ; Write the ASCII value of A in hex. to the output stream
A5B5  AD 17 C2     ...   LDA &C217
A5B8  20 CD 92      ..   JSR &92CD                ; Write the ASCII value of A in hex. to the output stream
A5BB  AD 16 C2     ...   LDA &C216
A5BE  20 CD 92      ..   JSR &92CD                ; Write the ASCII value of A in hex. to the output stream
A5C1  20 55 92      U.   JSR &9255                ; Write string to output stream
A5C4  20 53 65      Se   JSR &6553
A5C7  63            c     ...
A5C8  74 6F        to    STZ &6F,X
A5CA  72 73        rs    ADC (&73)
A5CC  20 3D A0      =.   JSR &A03D
A5CF  A2 1F        ..    LDX #&1F
A5D1  8E 33 C2     .3.   STX &C233
A5D4  A9 00        ..    LDA #&00
A5D6  A2 09        ..    LDX #&09
A5D8  9D 40 C2     .@.   STA &C240,X
A5DB  CA           .     DEX
A5DC  10 FA        ..    BPL &A5D8
A5DE  0E 15 C2     ...   ASL &C215
A5E1  2E 16 C2     ...   ROL &C216
A5E4  2E 17 C2     ...   ROL &C217
A5E7  2E 18 C2     ...   ROL &C218
A5EA  A2 00        ..    LDX #&00
A5EC  A0 09        ..    LDY #&09
A5EE  BD 40 C2     .@.   LDA &C240,X
A5F1  2A           *     ROL A
A5F2  C9 0A        ..    CMP #&0A
A5F4  90 02        ..    BCC &A5F8
A5F6  E9 0A        ..    SBC #&0A
A5F8  9D 40 C2     .@.   STA &C240,X
A5FB  E8           .     INX
A5FC  88           .     DEY
A5FD  10 EF        ..    BPL &A5EE
A5FF  CE 33 C2     .3.   DEC &C233
A602  10 DA        ..    BPL &A5DE
A604  A0 20        .     LDY #&20
A606  A2 08        ..    LDX #&08
A608  D0 02        ..    BNE &A60C
A60A  A0 2C        .,    LDY #&2C
A60C  BD 40 C2     .@.   LDA &C240,X
A60F  D0 08        ..    BNE &A619
A611  C0 2C        .,    CPY #&2C
A613  F0 04        ..    BEQ &A619
A615  A9 20        .     LDA #&20
A617  D0 05        ..    BNE &A61E
A619  A0 2C        .,    LDY #ASC","
A61B  18           .     CLC
A61C  69 30        i0    ADC #&30
A61E  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
A621  E0 06        ..    CPX #&06
A623  F0 04        ..    BEQ &A629
A625  E0 03        ..    CPX #&03
A627  D0 04        ..    BNE &A62D
A629  98           .     TYA
A62A  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
A62D  CA           .     DEX
A62E  10 D8        ..    BPL &A608
A630  20 55 92      U.   JSR &9255                ; Write string to output stream
A633  20 42 79      By   JSR &7942
A636  74 65        te    STZ &65,X
A638  73            s     ...
A639  A0 60        .`    LDY #&60
A63B  20 3A B8      :.   JSR &B83A
A63E  20 C0 8F      ..   JSR &8FC0
A641  20 07 A8      ..   JSR &A807
A644  A0 00        ..    LDY #&00
A646  B1 B4        ..    LDA (&B4),Y
A648  29 7F        )    AND #&7F
A64A  C9 22        ."    CMP #&22
A64C  F0 04        ..    BEQ &A652
A64E  C9 20        .     CMP #&20
A650  B0 02        ..    BCS &A654
A652  A9 0D        ..    LDA #&0D
A654  99 D9 C8     ...   STA &C8D9,Y
A657  C8           .     INY
A658  C0 13        ..    CPY #&13
A65A  D0 EA        ..    BNE &A646
A65C  4C 5E 8F     L^.   JMP &8F5E
A65F  A2 CA        ..    LDX #&CA
A661  A0 0A        ..    LDY #&0A
A663  20 31 BD      1.   JSR &BD31
A666  8E 60 C2     .`.   STX &C260
A669  8C 61 C2     .a.   STY &C261
A66C  20 00 B5      ..   JSR &B500
A66F  20 89 BD      ..   JSR &BD89
A672  A9 08        ..    LDA #%00001000
A674  04 CD        ..    TSB &CD                  ; Set the '???' flag
A676  20 14 9C      ..   JSR &9C14
A679  20 97 BD      ..   JSR &BD97
A67C  A9 08        ..    LDA #%00001000
A67E  14 CD        ..    TRB &CD                  ; Clear the '???' flag
A680  60           `     RTS
A681  20 6C 83      l.   JSR &836C
A684  19 42 61     .Ba   ORA &6142,Y
A687  64 20        d     STZ &20
A689  4D 4F 44     MOD   EOR &444F
A68C  45 00        E.    EOR &00
A68E  20 EF A7      ..   JSR &A7EF
A691  A5 B5        ..    LDA &B5
A693  48           H     PHA
A694  A5 B4        ..    LDA &B4
A696  48           H     PHA
A697  20 EF A7      ..   JSR &A7EF
A69A  A0 00        ..    LDY #&00
A69C  B1 B4        ..    LDA (&B4),Y
A69E  C9 20        .     CMP #&20
A6A0  B0 23        .#    BCS &A6C5
A6A2  68           h     PLA
A6A3  85 B4        ..    STA &B4
A6A5  8D 40 C2     .@.   STA &C240
A6A8  68           h     PLA
A6A9  85 B5        ..    STA &B5
A6AB  8D 41 C2     .A.   STA &C241
A6AE  60           `     RTS
A6AF  20 AB A7      ..   JSR &A7AB
A6B2  20 BA 89      ..   JSR &89BA
A6B5  AD D6 C2     ...   LDA &C2D6
A6B8  C9 0B        ..    CMP #&0B
A6BA  F0 09        ..    BEQ &A6C5
A6BC  A9 0B        ..    LDA #&0B
A6BE  A6 C0        ..    LDX &C0
A6C0  A4 C1        ..    LDY &C1
A6C2  4C B6 9D     L..   JMP &9DB6
A6C5  20 6C 83      l.   JSR &836C
A6C8  FE 42 61     .Ba   INC &6142,X
A6CB  64 20        d     STZ &20
A6CD  63            c     ...
A6CE  6F 6D        om    BBR6 &A73D
A6D0  6D 61 6E     man   ADC &6E61
A6D3  64 00        d.    STZ &00
A6D5  A5 B4        ..    LDA &B4
A6D7  85 C0        ..    STA &C0
A6D9  A5 B5        ..    LDA &B5
A6DB  85 C1        ..    STA &C1
A6DD  20 9F 8B      ..   JSR &8B9F
A6E0  F0 16        ..    BEQ &A6F8
A6E2  20 BA 89      ..   JSR &89BA
A6E5  A5 C0        ..    LDA &C0
A6E7  85 B4        ..    STA &B4
A6E9  A5 C1        ..    LDA &C1
A6EB  85 B5        ..    STA &B5
A6ED  20 98 A7      ..   JSR &A798
A6F0  20 9F 8B      ..   JSR &8B9F
A6F3  D0 BA        ..    BNE &A6AF
A6F5  20 AB A7      ..   JSR &A7AB
A6F8  A5 B4        ..    LDA &B4
A6FA  8D A2 C2     ...   STA &C2A2
A6FD  A5 B5        ..    LDA &B5
A6FF  8D A3 C2     ...   STA &C2A3
A702  A0 0E        ..    LDY #&0E
A704  B1 B6        ..    LDA (&B6),Y
A706  A2 02        ..    LDX #&02
A708  C8           .     INY
A709  31 B6        1.    AND (&B6),Y
A70B  CA           .     DEX
A70C  10 FA        ..    BPL &A708
A70E  1A           .     INC A
A70F  D0 13        ..    BNE &A724
A711  A6 B6        ..    LDX &B6
A713  A4 B7        ..    LDY &B7
A715  A9 40        .@    LDA #&40
A717  20 0E B5      ..   JSR &B50E
A71A  8D 32 C3     .2.   STA &C332
A71D  A2 0A        ..    LDX #&0A
A71F  A0 9E        ..    LDY #&9E
A721  4C F7 FF     L..   JMP oscli
A724  A0 0B        ..    LDY #&0B
A726  B1 B6        ..    LDA (&B6),Y
A728  C8           .     INY
A729  31 B6        1.    AND (&B6),Y
A72B  C8           .     INY
A72C  31 B6        1.    AND (&B6),Y
A72E  1A           .     INC A
A72F  D0 08        ..    BNE &A739
A731  20 6C 83      l.   JSR &836C
A734  93            .     ...
A735  4E 6F 21     No!   LSR &216F
A738  00           .     BRK
A739  A9 A5        ..    LDA #&A5
A73B  8D A8 C2     ...   STA &C2A8
A73E  A2 A2        ..    LDX #&A2
A740  A0 C2        ..    LDY #&C2
A742  86 B8        ..    STX &B8
A744  84 B9        ..    STY &B9
A746  20 9F 8B      ..   JSR &8B9F
A749  A0 04        ..    LDY #&04
A74B  B1 B6        ..    LDA (&B6),Y
A74D  A0 00        ..    LDY #&00
A74F  11 B6        ..    ORA (&B6),Y
A751  30 03        0.    BMI &A756
A753  4C DA 8B     L..   JMP &8BDA
A756  20 F8 8B      ..   JSR &8BF8
A759  AD AB C2     ...   LDA &C2AB
A75C  C9 FF        ..    CMP #&FF
A75E  D0 0C        ..    BNE &A76C
A760  AD AA C2     ...   LDA &C2AA
A763  C9 FE        ..    CMP #&FE
A765  90 05        ..    BCC &A76C
A767  A9 01        ..    LDA #&01
A769  6C A8 C2     l..   JMP (&C2A8)
A76C  24 CD        $.    BIT &CD
A76E  10 F7        ..    BPL &A767                ; Jump if no TUBE is present
A770  20 32 80      2.   JSR &8032
A773  A2 A8        ..    LDX #&A8
A775  A0 C2        ..    LDY #&C2
A777  A9 04        ..    LDA #&04                 ; Start execution in the second processor
A779  4C 06 04     L..   JMP tubecontrol
A77C  20 34 94      4.   JSR &9434
A77F  A0 09        ..    LDY #&09
A781  B9 CC C8     ...   LDA &C8CC,Y
A784  99 0A C3     ...   STA &C30A,Y
A787  88           .     DEY
A788  10 F7        ..    BPL &A781
A78A  A0 03        ..    LDY #&03
A78C  B9 14 C3     ...   LDA &C314,Y
A78F  99 18 C3     ...   STA &C318,Y
A792  88           .     DEY
A793  10 F7        ..    BPL &A78C
A795  4C BA 89     L..   JMP &89BA
A798  A0 03        ..    LDY #&03
A79A  B9 14 C3     ...   LDA &C314,Y
A79D  99 30 C2     .0.   STA &C230,Y
A7A0  B9 18 C3     ...   LDA &C318,Y
A7A3  99 2C C2     .,.   STA &C22C,Y
A7A6  88           .     DEY
A7A7  10 F1        ..    BPL &A79A
A7A9  30 EA        0.    BMI &A795
A7AB  A0 03        ..    LDY #&03
A7AD  B9 30 C2     .0.   LDA &C230,Y
A7B0  99 2C C2     .,.   STA &C22C,Y
A7B3  88           .     DEY
A7B4  10 F7        ..    BPL &A7AD
A7B6  60           `     RTS
A7B7  20 98 A7      ..   JSR &A798
A7BA  20 AB A7      ..   JSR &A7AB
A7BD  20 89 93      ..   JSR &9389
A7C0  4C BA 89     L..   JMP &89BA
A7C3  20 98 A7      ..   JSR &A798
A7C6  20 AB A7      ..   JSR &A7AB
A7C9  20 EB 93      ..   JSR &93EB
A7CC  4C BA 89     L..   JMP &89BA
A7CF  A0 03        ..    LDY #&03
A7D1  B9 1C C3     ...   LDA &C31C,Y
A7D4  99 2C C2     .,.   STA &C22C,Y
A7D7  B9 14 C3     ...   LDA &C314,Y
A7DA  99 1C C3     ...   STA &C31C,Y
A7DD  88           .     DEY
A7DE  10 F1        ..    BPL &A7D1
A7E0  20 BA 89      ..   JSR &89BA
A7E3  A0 09        ..    LDY #&09
A7E5  B9 CC C8     ...   LDA &C8CC,Y
A7E8  99 00 C3     ...   STA &C300,Y
A7EB  88           .     DEY
A7EC  10 F7        ..    BPL &A7E5
A7EE  60           `     RTS
A7EF  A0 00        ..    LDY #&00
A7F1  20 49 87      I.   JSR &8749
A7F4  F0 03        ..    BEQ &A7F9
A7F6  C8           .     INY
A7F7  D0 F8        ..    BNE &A7F1
A7F9  C9 2E        ..    CMP #&2E
A7FB  F0 F9        ..    BEQ &A7F6
A7FD  98           .     TYA
A7FE  18           .     CLC
A7FF  65 B4        e.    ADC &B4
A801  85 B4        ..    STA &B4
A803  90 02        ..    BCC &A807
A805  E6 B5        ..    INC &B5
A807  A0 00        ..    LDY #&00
A809  18           .     CLC
A80A  08           .     PHP
A80B  B1 B4        ..    LDA (&B4),Y
A80D  C9 20        .     CMP #&20
A80F  90 11        ..    BCC &A822
A811  F0 0C        ..    BEQ &A81F
A813  C9 22        ."    CMP #&22
A815  D0 0B        ..    BNE &A822
A817  28           (     PLP
A818  90 03        ..    BCC &A81D
A81A  4C 66 87     Lf.   JMP &8766
A81D  38           8     SEC
A81E  08           .     PHP
A81F  C8           .     INY
A820  D0 E9        ..    BNE &A80B
A822  98           .     TYA
A823  28           (     PLP
A824  18           .     CLC
A825  65 B4        e.    ADC &B4
A827  85 B4        ..    STA &B4
A829  90 02        ..    BCC &A82D
A82B  E6 B5        ..    INC &B5
A82D  60           `     RTS
A82E  A0 00        ..    LDY #&00
A830  B1 B4        ..    LDA (&B4),Y
A832  29 7F        )    AND #&7F
A834  C9 3A        .:    CMP #&3A
A836  D0 F5        ..    BNE &A82D
A838  4C 6A 89     Lj.   JMP &896A

.
A83B  59 45 53     YES   EOR &5345,Y
A83E  0D 7F C2     ..   ORA &C27F
A841  03            .     ...
A842  20 FF A5      ..   JSR &A5FF
A845  B4 48        .H    LDY &48
A847  A5 B5        ..    LDA &B5
A849  48           H     PHA
A84A  20 2E A8      ..   JSR &A82E
A84D  2C 91 BF     ,..   BIT &BF91
A850  20 9B 8D      ..   JSR &8D9B
A853  20 CF 8B      ..   JSR &8BCF
A856  F0 03        ..    BEQ &A85B
A858  4C B4 8B     L..   JMP &8BB4
A85B  A0 03        ..    LDY #&03
A85D  B1 B6        ..    LDA (&B6),Y
A85F  20 BA 89      ..   JSR &89BA
A862  10 22        ."    BPL &A886
A864  FA           .     PLX
A865  68           h     PLA
A866  85 B4        ..    STA &B4
A868  86 B5        ..    STX &B5
A86A  48           H     PHA
A86B  DA           .     PHX
A86C  A0 00        ..    LDY #&00
A86E  B1 B4        ..    LDA (&B4),Y
A870  29 7D        )}    AND #&7D
A872  C9 24        .$    CMP #&24
A874  F0 C2        ..    BEQ &A838
A876  20 49 87      I.   JSR &8749
A879  F0 07        ..    BEQ &A882
A87B  C9 5E        .^    CMP #&5E
A87D  F0 B9        ..    BEQ &A838
A87F  C8           .     INY
A880  D0 F4        ..    BNE &A876
A882  C9 2E        ..    CMP #&2E
A884  F0 F9        ..    BEQ &A87F
A886  20 8E A6      ..   JSR &A68E
A889  20 2E A8      ..   JSR &A82E
A88C  A9 40        .@    LDA #&40
A88E  85 B8        ..    STA &B8
A890  A9 C2        ..    LDA #&C2
A892  85 B9        ..    STA &B9
A894  20 C1 8C      ..   JSR &8CC1
A897  08           .     PHP
A898  20 D6 8D      ..   JSR &8DD6
A89B  28           (     PLP
A89C  D0 0D        ..    BNE &A8AB
A89E  A5 B6        ..    LDA &B6
A8A0  A0 03        ..    LDY #&03
A8A2  99 34 C2     .4.   STA &C234,Y
A8A5  B9 13 C3     ...   LDA &C313,Y
A8A8  88           .     DEY
A8A9  10 F7        ..    BPL &A8A2
A8AB  AD 2E C2     ...   LDA &C22E
A8AE  10 0B        ..    BPL &A8BB
A8B0  A0 02        ..    LDY #&02
A8B2  B9 14 C3     ...   LDA &C314,Y
A8B5  99 2C C2     .,.   STA &C22C,Y
A8B8  88           .     DEY
A8B9  10 F7        ..    BPL &A8B2
A8BB  20 BA 89      ..   JSR &89BA
A8BE  FA           .     PLX
A8BF  68           h     PLA
A8C0  85 B4        ..    STA &B4
A8C2  86 B5        ..    STX &B5
A8C4  48           H     PHA
A8C5  DA           .     PHX
A8C6  20 B5 8F      ..   JSR &8FB5
A8C9  20 EF 8C      ..   JSR &8CEF
A8CC  A0 03        ..    LDY #&03
A8CE  A5 B6        ..    LDA &B6
A8D0  D9 34 C2     .4.   CMP &C234,Y
A8D3  D0 56        .V    BNE &A92B
A8D5  B9 13 C3     ...   LDA &C313,Y
A8D8  88           .     DEY
A8D9  10 F5        ..    BPL &A8D0
A8DB  68           h     PLA
A8DC  85 B5        ..    STA &B5
A8DE  68           h     PLA
A8DF  85 B4        ..    STA &B4
A8E1  20 8E A6      ..   JSR &A68E
A8E4  A0 00        ..    LDY #&00
A8E6  B1 B4        ..    LDA (&B4),Y
A8E8  C9 2E        ..    CMP #&2E
A8EA  F0 09        ..    BEQ &A8F5
A8EC  29 7D        )}    AND #&7D
A8EE  C9 21        .!    CMP #&21
A8F0  90 0E        ..    BCC &A900
A8F2  C8           .     INY
A8F3  80 F1        ..    BRA &A8E6
A8F5  98           .     TYA
A8F6  65 B4        e.    ADC &B4
A8F8  85 B4        ..    STA &B4
A8FA  90 E8        ..    BCC &A8E4
A8FC  E6 B5        ..    INC &B5
A8FE  D0 E4        ..    BNE &A8E4
A900  A0 09        ..    LDY #&09
A902  B1 B6        ..    LDA (&B6),Y
A904  29 80        ).    AND #&80
A906  8D 2B C2     .+.   STA &C22B
A909  B1 B4        ..    LDA (&B4),Y
A90B  29 7F        )    AND #&7F
A90D  C9 22        ."    CMP #&22
A90F  F0 04        ..    BEQ &A915
A911  C9 21        .!    CMP #&21
A913  B0 02        ..    BCS &A917
A915  A9 0D        ..    LDA #&0D
A917  0D 2B C2     .+.   ORA &C22B
A91A  91 B6        ..    STA (&B6),Y
A91C  88           .     DEY
A91D  10 E3        ..    BPL &A902
A91F  20 5E 8F      ^.   JSR &8F5E
A922  20 C1 A9      ..   JSR &A9C1
A925  4C BA 89     L..   JMP &89BA
A928  4C 59 95     LY.   JMP &9559
A92B  AD 37 C2     .7.   LDA &C237
A92E  D0 F8        ..    BNE &A928
A930  A0 09        ..    LDY #&09
A932  B1 B6        ..    LDA (&B6),Y
A934  09 80        ..    ORA #&80
A936  91 B6        ..    STA (&B6),Y
A938  20 5E 8F      ^.   JSR &8F5E
A93B  A0 0A        ..    LDY #&0A
A93D  A2 07        ..    LDX #&07
A93F  B1 B6        ..    LDA (&B6),Y
A941  99 38 C2     .8.   STA &C238,Y
A944  C8           .     INY
A945  CA           .     DEX
A946  10 F7        ..    BPL &A93F
A948  9C 4A C2     .J.   STZ &C24A
A94B  9C 4B C2     .K.   STZ &C24B
A94E  9C 4C C2     .L.   STZ &C24C
A951  9C 4D C2     .M.   STZ &C24D
A954  A2 03        ..    LDX #&03
A956  B1 B6        ..    LDA (&B6),Y
A958  99 3C C2     .<.   STA &C23C,Y
A95B  C8           .     INY
A95C  CA           .     DEX
A95D  10 F7        ..    BPL &A956
A95F  A0 00        ..    LDY #&00
A961  B1 B6        ..    LDA (&B6),Y
A963  2A           *     ROL A
A964  2E 5D C2     .].   ROL &C25D
A967  C8           .     INY
A968  C0 04        ..    CPY #&04
A96A  D0 F5        ..    BNE &A961
A96C  20 8E A6      ..   JSR &A68E
A96F  A0 18        ..    LDY #&18
A971  A2 02        ..    LDX #&02
A973  B1 B6        ..    LDA (&B6),Y
A975  9D 3A C2     .:.   STA &C23A,X
A978  88           .     DEY
A979  CA           .     DEX
A97A  10 F7        ..    BPL &A973
A97C  20 BA 89      ..   JSR &89BA
A97F  A9 40        .@    LDA #&40
A981  85 B8        ..    STA &B8
A983  A9 C2        ..    LDA #&C2
A985  85 B9        ..    STA &B9
A987  20 D3 8D      ..   JSR &8DD3
A98A  20 4D 8E      M.   JSR &8E4D
A98D  A0 03        ..    LDY #&03
A98F  B1 B6        ..    LDA (&B6),Y
A991  0A           .     ASL A
A992  6E 5D C2     n].   ROR &C25D
A995  6A           j     ROR A
A996  91 B6        ..    STA (&B6),Y
A998  88           .     DEY
A999  10 F4        ..    BPL &A98F
A99B  20 69 8E      i.   JSR &8E69
A99E  20 30 8F      0.   JSR &8F30
A9A1  20 5E 8F      ^.   JSR &8F5E
A9A4  20 C1 A9      ..   JSR &A9C1
A9A7  20 BA 89      ..   JSR &89BA
A9AA  68           h     PLA
A9AB  85 B5        ..    STA &B5
A9AD  68           h     PLA
A9AE  85 B4        ..    STA &B4
A9B0  20 B5 8F      ..   JSR &8FB5
A9B3  A2 05        ..    LDX #&05
A9B5  9E 34 C2     .4.   STZ &C234,X
A9B8  CA           .     DEX
A9B9  10 FA        ..    BPL &A9B5
A9BB  20 C8 91      ..   JSR &91C8
A9BE  4C BA 89     L..   JMP &89BA
A9C1  A0 03        ..    LDY #&03
A9C3  B1 B6        ..    LDA (&B6),Y
A9C5  30 01        0.    BMI &A9C8
A9C7  60           `     RTS
A9C8  A0 02        ..    LDY #&02
A9CA  B9 14 C3     ...   LDA &C314,Y
A9CD  99 70 C2     .p.   STA &C270,Y
A9D0  88           .     DEY
A9D1  10 F7        ..    BPL &A9CA
A9D3  A0 09        ..    LDY #&09
A9D5  B1 B6        ..    LDA (&B6),Y
A9D7  29 7F        )    AND #&7F
A9D9  99 74 C2     .t.   STA &C274,Y
A9DC  88           .     DEY
A9DD  10 F6        ..    BPL &A9D5
A9DF  A9 74        .t    LDA #&74
A9E1  85 B4        ..    STA &B4
A9E3  A9 C2        ..    LDA #&C2
A9E5  85 B5        ..    STA &B5
A9E7  20 34 94      4.   JSR &9434
A9EA  A0 09        ..    LDY #&09
A9EC  B9 74 C2     .t.   LDA &C274,Y
A9EF  99 CC C8     ...   STA &C8CC,Y
A9F2  88           .     DEY
A9F3  10 F7        ..    BPL &A9EC
A9F5  A0 02        ..    LDY #&02
A9F7  B9 70 C2     .p.   LDA &C270,Y
A9FA  99 D6 C8     ...   STA &C8D6,Y
A9FD  88           .     DEY
A9FE  10 F7        ..    BPL &A9F7
AA00  4C 5E 8F     L^.   JMP &8F5E

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
AA03  AE 17 C3     ...   LDX &C317
AA06  E8           .     INX
AA07  D0 2B        .+    BNE &AA34
AA09  20 73 83      s.   JSR &8373
AA0C  A9 4E        .N    LDA #&4E
AA0E  6F 20        o     BBR6 &AA30
AA10  64 69        di    STZ &69
AA12  72 65        re    ADC (&65)
AA14  63            c     ...
AA15  74 6F        to    STZ &6F,X
AA17  72 79        ry    ADC (&79)
AA19  00           .     BRK
AA1A  20 03 AA      ..   JSR &AA03
AA1D  A2 00        ..    LDX #&00
AA1F  AD FA C8     ...   LDA &C8FA                ; Get the Master sequence number for the current directory (in BCD)
AA22  DD 00 C4     ...   CMP &C400,X
AA25  D0 0E        ..    BNE &AA35
AA27  DD FA C8     ...   CMP &C8FA,X
AA2A  D0 09        ..    BNE &AA35
AA2C  E8           .     INX
AA2D  BD E2 84     ...   LDA &84E2,X
AA30  E0 05        ..    CPX #&05
AA32  D0 EE        ..    BNE &AA22
.
AA34  60           `     RTS
AA35  20 4F 83      O.   JSR &834F
AA38  A8           .     TAY
AA39  42            B     ...
AA3A  72 6F        ro    ADC (&6F)
AA3C  6B            k     ...
AA3D  65 6E        en    ADC &6E
AA3F  20 64 69      di   JSR &6964
AA42  72 65        re    ADC (&65)
AA44  63            c     ...
AA45  74 6F        to    STZ &6F,X
AA47  72 79        ry    ADC (&79)
AA49  00           .     BRK
AA4A  A6 F4        ..    LDX &F4
AA4C  BD F0 0D     ...   LDA &0DF0,X
AA4F  85 BB        ..    STA &BB
AA51  A9 00        ..    LDA #&00
AA53  85 BA        ..    STA &BA
AA55  60           `     RTS
AA56  20 4A AA      J.   JSR &AA4A
AA59  A0 FD        ..    LDY #&FD
AA5B  98           .     TYA
AA5C  18           .     CLC
AA5D  71 BA        q.    ADC (&BA),Y
AA5F  88           .     DEY
AA60  D0 FB        ..    BNE &AA5D
AA62  71 BA        q.    ADC (&BA),Y
AA64  A0 FE        ..    LDY #&FE
AA66  60           `     RTS
AA67  20 56 AA      V.   JSR &AA56
AA6A  91 BA        ..    STA (&BA),Y
AA6C  60           `     RTS
AA6D  20 56 AA      V.   JSR &AA56
AA70  D1 BA        ..    CMP (&BA),Y
AA72  F0 F8        ..    BEQ &AA6C
AA74  A9 0F        ..    LDA #&0F
AA76  8D CE C2     ...   STA &C2CE
AA79  20 73 83      s.   JSR &8373
AA7C  AA           .     TAX
AA7D  42            B     ...
AA7E  61 64        ad    ADC (&64,X)
AA80  20 73 75      su   JSR &7573
AA83  6D 00 08     m..   ADC &0800
AA86  48           H     PHA
AA87  5A           Z     PHY
AA88  DA           .     PHX
AA89  AD CE C2     ...   LDA &C2CE
AA8C  D0 E6        ..    BNE &AA74
AA8E  20 C0 8F      ..   JSR &8FC0
AA91  18           .     CLC
AA92  A2 10        ..    LDX #&10
AA94  BD 04 C2     ...   LDA &C204,X
AA97  29 21        )!    AND #&21
AA99  F0 06        ..    BEQ &AAA1
AA9B  B0 D7        ..    BCS &AA74
AA9D  C9 01        ..    CMP #&01
AA9F  D0 D3        ..    BNE &AA74
AAA1  CA           .     DEX
AAA2  CA           .     DEX
AAA3  CA           .     DEX
AAA4  CA           .     DEX
AAA5  10 ED        ..    BPL &AA94
AAA7  90 CB        ..    BCC &AA74
AAA9  20 CF AA      ..   JSR &AACF
AAAC  CD C1 C2     ...   CMP &C2C1
AAAF  D0 C3        ..    BNE &AA74
AAB1  48           H     PHA
AAB2  48           H     PHA
AAB3  A0 05        ..    LDY #&05
AAB5  BA           .     TSX
AAB6  BD 03 01     ...   LDA &0103,X
AAB9  9D 01 01     ...   STA &0101,X
AABC  E8           .     INX
AABD  88           .     DEY
AABE  10 F6        ..    BPL &AAB6
AAC0  A9 D9        ..    LDA #&D9
AAC2  9D 01 01     ...   STA &0101,X
AAC5  A9 AA        ..    LDA #&AA
AAC7  9D 02 01     ...   STA &0102,X
AACA  FA           .     PLX
AACB  7A           z     PLY
AACC  68           h     PLA
AACD  28           (     PLP
AACE  60           `     RTS
AACF  A2 79        .y    LDX #&79
AAD1  8A           .     TXA
AAD2  18           .     CLC
AAD3  7D 83 C3     }..   ADC &C383,X
AAD6  CA           .     DEX
AAD7  D0 FA        ..    BNE &AAD3
AAD9  60           `     RTS
AADA  08           .     PHP
AADB  48           H     PHA
AADC  5A           Z     PHY
AADD  DA           .     PHX
AADE  20 CF AA      ..   JSR &AACF
AAE1  8D C1 C2     ...   STA &C2C1
AAE4  9C CE C2     ...   STZ &C2CE
AAE7  9C D5 C2     ...   STZ &C2D5
AAEA  9C DC C2     ...   STZ &C2DC
AAED  FA           .     PLX
AAEE  7A           z     PLY
AAEF  68           h     PLA
AAF0  28           (     PLP
AAF1  60           `     RTS
AAF2  AD 91 C2     ...   LDA &C291
AAF5  85 B4        ..    STA &B4
AAF7  AD 92 C2     ...   LDA &C292
AAFA  85 B5        ..    STA &B5
AAFC  AD 94 C2     ...   LDA &C294
AAFF  85 B7        ..    STA &B7
AB01  AD 93 C2     ...   LDA &C293
AB04  85 B6        ..    STA &B6
AB06  A2 0B        ..    LDX #&0B
AB08  BD 98 BF     ...   LDA &BF98,X
AB0B  9D 14 C2     ...   STA &C214,X
AB0E  CA           .     DEX
AB0F  D0 F7        ..    BNE &AB08
AB11  A0 03        ..    LDY #&03
AB13  B9 6C C2     .l.   LDA &C26C,Y
AB16  99 14 C3     ...   STA &C314,Y
AB19  E0 00        ..    CPX #&00
AB1B  F0 03        ..    BEQ &AB20
AB1D  9D 1A C2     ...   STA &C21A,X
AB20  E8           .     INX
AB21  88           .     DEY
AB22  10 EF        ..    BPL &AB13
AB24  4C AB 82     L..   JMP &82AB
AB27  A2 0B        ..    LDX #&0B
AB29  BD 98 BF     ...   LDA &BF98,X
AB2C  9D 14 C2     ...   STA &C214,X
AB2F  CA           .     DEX
AB30  D0 F7        ..    BNE &AB29
AB32  A0 03        ..    LDY #&03
AB34  B9 70 C2     .p.   LDA &C270,Y
AB37  99 14 C3     ...   STA &C314,Y
AB3A  E0 00        ..    CPX #&00
AB3C  F0 03        ..    BEQ &AB41
AB3E  9D 1A C2     ...   STA &C21A,X
AB41  E8           .     INX
AB42  88           .     DEY
AB43  10 EF        ..    BPL &AB34
AB45  20 AB 82      ..   JSR &82AB
AB48  4C 57 BE     LW.   JMP &BE57
AB4B  A2 CE        ..    LDX #&CE
AB4D  A0 06        ..    LDY #&06
AB4F  20 31 BD      1.   JSR &BD31
AB52  8C DA C2     ...   STY &C2DA
AB55  8E DB C2     ...   STX &C2DB
AB58  A9 7F        .    LDA #&7F
AB5A  85 B8        ..    STA &B8
AB5C  A9 C2        ..    LDA #&C2
AB5E  85 B9        ..    STA &B9
AB60  A9 74        .t    LDA #&74
AB62  8D 7F C2     ..   STA &C27F
AB65  A9 C2        ..    LDA #&C2
AB67  8D 80 C2     ...   STA &C280
AB6A  20 9F 8B      ..   JSR &8B9F
AB6D  F0 03        ..    BEQ &AB72
AB6F  4C B4 8B     L..   JMP &8BB4
AB72  A5 B6        ..    LDA &B6
AB74  8D 93 C2     ...   STA &C293
AB77  A5 B7        ..    LDA &B7
AB79  8D 94 C2     ...   STA &C294
AB7C  A5 B4        ..    LDA &B4
AB7E  8D 91 C2     ...   STA &C291
AB81  A5 B5        ..    LDA &B5
AB83  8D 92 C2     ...   STA &C292
AB86  A0 03        ..    LDY #&03
AB88  B9 14 C3     ...   LDA &C314,Y
AB8B  99 6C C2     .l.   STA &C26C,Y
AB8E  88           .     DEY
AB8F  10 F7        ..    BPL &AB88
AB91  20 BA 89      ..   JSR &89BA
AB94  A0 03        ..    LDY #&03
AB96  B9 14 C3     ...   LDA &C314,Y
AB99  99 2C C2     .,.   STA &C22C,Y
AB9C  88           .     DEY
AB9D  10 F7        ..    BPL &AB96
AB9F  20 8E A6      ..   JSR &A68E
ABA2  20 49 87      I.   JSR &8749
ABA5  D0 03        ..    BNE &ABAA
ABA7  4C 66 87     Lf.   JMP &8766
ABAA  20 34 94      4.   JSR &9434
ABAD  20 C0 8F      ..   JSR &8FC0
ABB0  A0 03        ..    LDY #&03
ABB2  B9 14 C3     ...   LDA &C314,Y
ABB5  99 70 C2     .p.   STA &C270,Y
ABB8  88           .     DEY
ABB9  10 F7        ..    BPL &ABB2
ABBB  20 F2 AA      ..   JSR &AAF2
ABBE  A0 04        ..    LDY #&04
ABC0  B1 B6        ..    LDA (&B6),Y
ABC2  88           .     DEY
ABC3  11 B6        ..    ORA (&B6),Y
ABC5  10 0F        ..    BPL &ABD6
ABC7  24 FF        $.    BIT &FF
ABC9  10 03        ..    BPL &ABCE
ABCB  4C CD 82     L..   JMP &82CD
ABCE  20 48 89      H.   JSR &8948
ABD1  F0 EB        ..    BEQ &ABBE
ABD3  4C BA 89     L..   JMP &89BA
ABD6  A5 B6        ..    LDA &B6
ABD8  8D 93 C2     ...   STA &C293
ABDB  A5 B7        ..    LDA &B7
ABDD  8D 94 C2     ...   STA &C294
ABE0  20 48 8C      H.   JSR &8C48
ABE3  A0 16        ..    LDY #&16
ABE5  B1 B6        ..    LDA (&B6),Y
ABE7  8D A2 C2     ...   STA &C2A2
ABEA  C8           .     INY
ABEB  B1 B6        ..    LDA (&B6),Y
ABED  8D A3 C2     ...   STA &C2A3
ABF0  C8           .     INY
ABF1  B1 B6        ..    LDA (&B6),Y
ABF3  0D 17 C3     ...   ORA &C317
ABF6  8D A4 C2     ...   STA &C2A4
ABF9  A2 00        ..    LDX #&00
ABFB  A0 03        ..    LDY #&03
ABFD  B9 89 C2     ...   LDA &C289,Y
AC00  99 8D C2     ...   STA &C28D,Y
AC03  8A           .     TXA
AC04  99 89 C2     ...   STA &C289,Y
AC07  88           .     DEY
AC08  10 F3        ..    BPL &ABFD
AC0A  A0 09        ..    LDY #&09
AC0C  B1 B6        ..    LDA (&B6),Y
AC0E  29 7F        )    AND #&7F
AC10  99 74 C2     .t.   STA &C274,Y
AC13  88           .     DEY
AC14  10 F6        ..    BPL &AC0C
AC16  A9 0D        ..    LDA #&0D
AC18  8D 7E C2     .~.   STA &C27E
AC1B  20 27 AB      '.   JSR &AB27
AC1E  20 D3 8D      ..   JSR &8DD3
AC21  20 4D 8E      M.   JSR &8E4D
AC24  20 2A 8F      *.   JSR &8F2A
AC27  A0 02        ..    LDY #&02
AC29  B9 3A C2     .:.   LDA &C23A,Y
AC2C  99 A8 C2     ...   STA &C2A8,Y
AC2F  B9 3D C2     .=.   LDA &C23D,Y
AC32  99 A5 C2     ...   STA &C2A5,Y
AC35  88           .     DEY
AC36  10 F1        ..    BPL &AC29
AC38  AD DB C2     ...   LDA &C2DB
AC3B  8D 60 C2     .`.   STA &C260
AC3E  AD DA C2     ...   LDA &C2DA
AC41  8D 61 C2     .a.   STA &C261
AC44  A9 08        ..    LDA #%00001000
AC46  04 CD        ..    TSB &CD                  ; Set the '???' flag
AC48  AD 6F C2     .o.   LDA &C26F
AC4B  0D A4 C2     ...   ORA &C2A4
AC4E  8D A4 C2     ...   STA &C2A4
AC51  AD 73 C2     .s.   LDA &C273
AC54  0D AA C2     ...   ORA &C2AA
AC57  8D AA C2     ...   STA &C2AA
AC5A  AD 17 C3     ...   LDA &C317
AC5D  48           H     PHA
AC5E  A9 00        ..    LDA #&00
AC60  8D 17 C3     ...   STA &C317
AC63  20 89 BD      ..   JSR &BD89
AC66  20 0F 9A      ..   JSR &9A0F
AC69  20 97 BD      ..   JSR &BD97
AC6C  68           h     PLA
AC6D  8D 17 C3     ...   STA &C317
AC70  20 5E 8F      ^.   JSR &8F5E
AC73  20 F2 AA      ..   JSR &AAF2
AC76  4C C7 AB     L..   JMP &ABC7
AC79  AE 17 C3     ...   LDX &C317
AC7C  E8           .     INX
AC7D  F0 10        ..    BEQ &AC8F
AC7F  20 BA 89      ..   JSR &89BA
AC82  A9 FF        ..    LDA #&FF
AC84  A0 00        ..    LDY #&00
AC86  C0 00        ..    CPY #&00
AC88  D0 2A        .*    BNE &ACB4
AC8A  A8           .     TAY
AC8B  D0 03        ..    BNE &AC90
AC8D  A9 08        ..    LDA #&08
AC8F  60           `     RTS
AC90  20 85 AA      ..   JSR &AA85
AC93  86 C3        ..    STX &C3
AC95  88           .     DEY
AC96  D0 06        ..    BNE &AC9E
AC98  A6 C3        ..    LDX &C3
AC9A  A9 00        ..    LDA #&00
AC9C  A8           .     TAY
AC9D  60           `     RTS
AC9E  A2 10        ..    LDX #&10
ACA0  20 12 AE      ..   JSR &AE12
ACA3  9E 04 C2     ...   STZ &C204,X
ACA6  CA           .     DEX
ACA7  CA           .     DEX
ACA8  CA           .     DEX
ACA9  CA           .     DEX
ACAA  10 F4        ..    BPL &ACA0
ACAC  EE 04 C2     ...   INC &C204
ACAF  20 29 83      ).   JSR &8329
ACB2  80 E4        ..    BRA &AC98
ACB4  20 85 AA      ..   JSR &AA85
ACB7  86 C3        ..    STX &C3
ACB9  48           H     PHA
ACBA  20 13 B0      ..   JSR &B013
ACBD  20 D9 B4      ..   JSR &B4D9
ACC0  68           h     PLA
ACC1  A4 CF        ..    LDY &CF
ACC3  AA           .     TAX
ACC4  D0 20        .     BNE &ACE6
ACC6  A6 C3        ..    LDX &C3
ACC8  B9 7A C3     .z.   LDA &C37A,Y
ACCB  95 00        ..    STA &00,X
ACCD  B9 70 C3     .p.   LDA &C370,Y
ACD0  95 01        ..    STA &01,X
ACD2  B9 66 C3     .f.   LDA &C366,Y
ACD5  95 02        ..    STA &02,X
ACD7  B9 5C C3     .\.   LDA &C35C,Y
ACDA  95 03        ..    STA &03,X
ACDC  20 8C B4      ..   JSR &B48C
ACDF  A9 00        ..    LDA #&00
ACE1  A6 C3        ..    LDX &C3
ACE3  A4 C2        ..    LDY &C2
ACE5  60           `     RTS
ACE6  CA           .     DEX
ACE7  D0 7C        .|    BNE &AD65
ACE9  B9 AC C3     ...   LDA &C3AC,Y
ACEC  10 34        .4    BPL &AD22
ACEE  A6 C3        ..    LDX &C3
ACF0  B5 00        ..    LDA &00,X
ACF2  8D 9A C2     ...   STA &C29A
ACF5  B5 01        ..    LDA &01,X
ACF7  8D 9B C2     ...   STA &C29B
ACFA  B5 02        ..    LDA &02,X
ACFC  8D 9C C2     ...   STA &C29C
ACFF  B5 03        ..    LDA &03,X
AD01  8D 9D C2     ...   STA &C29D
AD04  20 64 B1      d.   JSR &B164
AD07  A6 C3        ..    LDX &C3
AD09  A4 CF        ..    LDY &CF
AD0B  B5 00        ..    LDA &00,X
AD0D  99 7A C3     .z.   STA &C37A,Y
AD10  B5 01        ..    LDA &01,X
AD12  99 70 C3     .p.   STA &C370,Y
AD15  B5 02        ..    LDA &02,X
AD17  99 66 C3     .f.   STA &C366,Y
AD1A  B5 03        ..    LDA &03,X
AD1C  99 5C C3     .\.   STA &C35C,Y
AD1F  4C DC AC     L..   JMP &ACDC
AD22  A6 C3        ..    LDX &C3
AD24  A4 CF        ..    LDY &CF
AD26  38           8     SEC
AD27  B9 52 C3     .R.   LDA &C352,Y
AD2A  F5 00        ..    SBC &00,X
AD2C  B9 48 C3     .H.   LDA &C348,Y
AD2F  F5 01        ..    SBC &01,X
AD31  B9 3E C3     .>.   LDA &C33E,Y
AD34  F5 02        ..    SBC &02,X
AD36  B9 34 C3     .4.   LDA &C334,Y
AD39  F5 03        ..    SBC &03,X
AD3B  90 17        ..    BCC &AD54
AD3D  B5 00        ..    LDA &00,X
AD3F  99 7A C3     .z.   STA &C37A,Y
AD42  B5 01        ..    LDA &01,X
AD44  99 70 C3     .p.   STA &C370,Y
AD47  B5 02        ..    LDA &02,X
AD49  99 66 C3     .f.   STA &C366,Y
AD4C  B5 03        ..    LDA &03,X
AD4E  99 5C C3     .\.   STA &C35C,Y
AD51  4C DC AC     L..   JMP &ACDC
AD54  20 6C 83      l.   JSR &836C
AD57  B7 4F        .O    SMB3 &4F
AD59  75 74        ut    ADC &74,X
AD5B  73            s     ...
AD5C  69 64        id    ADC #&64
AD5E  65 20        e     ADC &20
AD60  66 69        fi    ROR &69
AD62  6C 65 00     le.   JMP (&0065)
AD65  CA           .     DEX
AD66  D0 19        ..    BNE &AD81
AD68  A6 C3        ..    LDX &C3
AD6A  B9 52 C3     .R.   LDA &C352,Y
AD6D  95 00        ..    STA &00,X
AD6F  B9 48 C3     .H.   LDA &C348,Y
AD72  95 01        ..    STA &01,X
AD74  B9 3E C3     .>.   LDA &C33E,Y
AD77  95 02        ..    STA &02,X
AD79  B9 34 C3     .4.   LDA &C334,Y
AD7C  95 03        ..    STA &03,X
AD7E  4C DC AC     L..   JMP &ACDC
AD81  CA           .     DEX
AD82  D0 41        .A    BNE &ADC5
AD84  A6 C3        ..    LDX &C3
AD86  B9 AC C3     ...   LDA &C3AC,Y
AD89  30 03        0.    BMI &AD8E
AD8B  4C EA B3     L..   JMP &B3EA
AD8E  B5 00        ..    LDA &00,X
AD90  8D 9A C2     ...   STA &C29A
AD93  B5 01        ..    LDA &01,X
AD95  8D 9B C2     ...   STA &C29B
AD98  B5 02        ..    LDA &02,X
AD9A  8D 9C C2     ...   STA &C29C
AD9D  B5 03        ..    LDA &03,X
AD9F  8D 9D C2     ...   STA &C29D
ADA2  20 64 B1      d.   JSR &B164
ADA5  A6 C3        ..    LDX &C3
ADA7  A4 CF        ..    LDY &CF
ADA9  B5 00        ..    LDA &00,X
ADAB  99 52 C3     .R.   STA &C352,Y
ADAE  B5 01        ..    LDA &01,X
ADB0  99 48 C3     .H.   STA &C348,Y
ADB3  B5 02        ..    LDA &02,X
ADB5  99 3E C3     .>.   STA &C33E,Y
ADB8  B5 03        ..    LDA &03,X
ADBA  99 34 C3     .4.   STA &C334,Y
ADBD  20 2B B0      +.   JSR &B02B
ADC0  B0 BC        ..    BCS &AD7E
ADC2  4C EE AC     L..   JMP &ACEE
ADC5  A2 10        ..    LDX #&10
ADC7  BD 04 C2     ...   LDA &C204,X
ADCA  4A           J     LSR A
ADCB  29 0F        ).    AND #&0F
ADCD  C5 CF        ..    CMP &CF
ADCF  D0 0B        ..    BNE &ADDC
ADD1  20 12 AE      ..   JSR &AE12
ADD4  BD 04 C2     ...   LDA &C204,X
ADD7  29 01        ).    AND #&01
ADD9  9D 04 C2     ...   STA &C204,X
ADDC  CA           .     DEX
ADDD  CA           .     DEX
ADDE  CA           .     DEX
ADDF  CA           .     DEX
ADE0  10 E5        ..    BPL &ADC7
ADE2  4C 98 AC     L..   JMP &AC98
ADE5  48           H     PHA
ADE6  20 29 83      ).   JSR &8329
ADE9  20 80 80      ..   JSR &8080
ADEC  68           h     PLA
ADED  20 1F 83      ..   JSR &831F
ADF0  BD 03 C2     ...   LDA &C203,X
ADF3  8D 33 C3     .3.   STA &C333
ADF6  20 1F 83      ..   JSR &831F
ADF9  BD 02 C2     ...   LDA &C202,X
ADFC  20 1F 83      ..   JSR &831F
ADFF  BD 01 C2     ...   LDA &C201,X
AE02  20 1F 83      ..   JSR &831F
AE05  A9 01        ..    LDA #&01
AE07  20 1F 83      ..   JSR &831F
AE0A  A9 00        ..    LDA #&00
AE0C  4C 1F 83     L..   JMP &831F
AE0F  20 EC AF      ..   JSR &AFEC
AE12  20 C0 AE      ..   JSR &AEC0
AE15  BD 04 C2     ...   LDA &C204,X
AE18  C9 C0        ..    CMP #&C0
AE1A  90 7A        .z    BCC &AE96
AE1C  8A           .     TXA
AE1D  4A           J     LSR A
AE1E  4A           J     LSR A
AE1F  69 C9        i.    ADC #&C9
AE21  85 BD        ..    STA &BD
AE23  A9 00        ..    LDA #&00
AE25  85 BC        ..    STA &BC
AE27  BD 04 C2     ...   LDA &C204,X
AE2A  29 BF        ).    AND #&BF
AE2C  9D 04 C2     ...   STA &C204,X
AE2F  29 1E        ).    AND #&1E
AE31  6A           j     ROR A
AE32  09 30        .0    ORA #&30
AE34  8D D4 C2     ...   STA &C2D4
AE37  BD 01 C2     ...   LDA &C201,X
AE3A  8D D0 C2     ...   STA &C2D0
AE3D  BD 02 C2     ...   LDA &C202,X
AE40  8D D1 C2     ...   STA &C2D1
AE43  BD 03 C2     ...   LDA &C203,X
AE46  8D D2 C2     ...   STA &C2D2
AE49  20 5C B8      \.   JSR &B85C
AE4C  20 99 80      ..   JSR &8099
AE4F  86 C1        ..    STX &C1
AE51  A5 CD        ..    LDA &CD
AE53  29 20        )     AND #%00100000
AE55  F0 05        ..    BEQ &AE5C                ; Jump if the 'Winchester disc controller present' flag isn't set
AE57  BD 03 C2     ...   LDA &C203,X
AE5A  10 10        ..    BPL &AE6C
AE5C  A6 C1        ..    LDX &C1
AE5E  20 AF BF      ..   JSR &BFAF
AE61  05 B8        ..    EQUW &B805
AE63  F0 2F        ./    BEQ &AE94
AE65  C6 CE        ..    DEC &CE
AE67  10 F3        ..    BPL &AE5C
AE69  4C BE 82     L..   JMP &82BE
AE6C  A6 C1        ..    LDX &C1
AE6E  A9 0A        ..    LDA #&0A
AE70  20 E5 AD      ..   JSR &ADE5
AE73  A0 00        ..    LDY #&00
AE75  20 33 83      3.   JSR &8333
AE78  10 0A        ..    BPL &AE84
AE7A  20 AE 81      ..   JSR &81AE
AE7D  C6 CE        ..    DEC &CE
AE7F  10 EB        ..    BPL &AE6C
AE81  4C BE 82     L..   JMP &82BE
AE84  B1 BC        ..    LDA (&BC),Y
AE86  8D 40 FC     .@.   STA wdc_data
AE89  C8           .     INY
AE8A  D0 F8        ..    BNE &AE84
AE8C  A9 01        ..    LDA #%00000001
AE8E  04 CD        ..    TSB &CD                  ; Set the 'Set File ensuring in progress (IRQ pending)' flag
AE90  88           .     DEY
AE91  8C 43 FC     .C.   STY wdc_interrupt
AE94  A6 C1        ..    LDX &C1
AE96  60           `     RTS

; -----------------------------------------------------------------------------
; Service call &05: Unknown interrupt
; -----------------------------------------------------------------------------
.
AE97  A5 CD        ..    LDA &CD
AE99  29 21        )!    AND #%00100001
AE9B  C9 21        .!    CMP #%00100001
AE9D  D0 07        ..    BNE &AEA6
AE9F  20 6F 80      o.   JSR &806F                ; Get the winchester drive status
AEA2  C9 F2        ..    CMP #%11110010
AEA4  F0 03        ..    BEQ &AEA9
AEA6  A9 05        ..    LDA #&05
AEA8  60           `     RTS
AEA9  5A           Z     PHY
AEAA  9C 43 FC     .C.   STZ wdc_interrupt
AEAD  A9 01        ..    LDA #%000000001
AEAF  14 CD        ..    TRB &CD                  ; Clear the 'Set File ensuring in progress (IRQ pending)' flag
AEB1  AD 40 FC     .@.   LDA wdc_data
AEB4  20 33 83      3.   JSR &8333
AEB7  0D 40 FC     .@.   ORA wdc_data
AEBA  8D 31 C3     .1.   STA &C331
AEBD  4C 39 A1     L9.   JMP &A139
AEC0  AD 31 C3     .1.   LDA &C331
AEC3  F0 29        .)    BEQ &AEEE
AEC5  9C 31 C3     .1.   STZ &C331
AEC8  AE D4 C2     ...   LDX &C2D4
AECB  20 75 83      u.   JSR &8375
AECE  CA           .     DEX
AECF  44            D     ...
AED0  61 74        at    ADC (&74,X)
AED2  61 20        a     ADC (&20,X)
AED4  6C 6F 73     los   JMP (&736F)
AED7  74 2C        t,    STZ &2C,X
AED9  20 63 68      ch   JSR &6863
AEDC  61 6E        an    ADC (&6E,X)
AEDE  6E 65 6C     nel   ROR &6C65
AEE1  00           .     BRK
AEE2  8A           .     TXA
AEE3  8E A1 C2     ...   STX &C2A1
AEE6  4A           J     LSR A
AEE7  4A           J     LSR A
AEE8  69 C9        i.    ADC #&C9
AEEA  85 BF        ..    STA &BF
AEEC  64 BE        d.    STZ &BE
AEEE  60           `     RTS
AEEF  A2 10        ..    LDX #&10
AEF1  8E 95 C2     ...   STX &C295
AEF4  A8           .     TAY
AEF5  BD 04 C2     ...   LDA &C204,X
AEF8  29 01        ).    AND #&01
AEFA  F0 03        ..    BEQ &AEFF
AEFC  8E 95 C2     ...   STX &C295
AEFF  BD 04 C2     ...   LDA &C204,X
AF02  10 75        .u    BPL &AF79
AF04  BD 01 C2     ...   LDA &C201,X
AF07  CD 96 C2     ...   CMP &C296
AF0A  D0 6D        .m    BNE &AF79
AF0C  BD 02 C2     ...   LDA &C202,X
AF0F  CD 97 C2     ...   CMP &C297
AF12  D0 65        .e    BNE &AF79
AF14  BD 03 C2     ...   LDA &C203,X
AF17  CD 98 C2     ...   CMP &C298
AF1A  D0 5D        .]    BNE &AF79
AF1C  20 E2 AE      ..   JSR &AEE2
AF1F  98           .     TYA
AF20  4A           J     LSR A
AF21  29 40        )@    AND #&40
AF23  1D 04 C2     ...   ORA &C204,X
AF26  6A           j     ROR A
AF27  29 E0        ).    AND #&E0
AF29  05 CF        ..    ORA &CF
AF2B  08           .     PHP
AF2C  18           .     CLC
AF2D  2A           *     ROL A
AF2E  9D 04 C2     ...   STA &C204,X
AF31  28           (     PLP
AF32  90 1E        ..    BCC &AF52
AF34  A0 10        ..    LDY #&10
AF36  B9 04 C2     ...   LDA &C204,Y
AF39  D0 07        ..    BNE &AF42
AF3B  A9 01        ..    LDA #&01
AF3D  99 04 C2     ...   STA &C204,Y
AF40  D0 34        .4    BNE &AF76
AF42  88           .     DEY
AF43  88           .     DEY
AF44  88           .     DEY
AF45  88           .     DEY
AF46  10 EE        ..    BPL &AF36
AF48  20 0A B0      ..   JSR &B00A
AF4B  7E 04 C2     ~..   ROR &C204,X
AF4E  38           8     SEC
AF4F  3E 04 C2     >..   ROL &C204,X
AF52  E8           .     INX
AF53  E8           .     INX
AF54  E8           .     INX
AF55  E8           .     INX
AF56  E0 11        ..    CPX #&11
AF58  90 02        ..    BCC &AF5C
AF5A  A2 00        ..    LDX #&00
AF5C  BD 04 C2     ...   LDA &C204,X
AF5F  4A           J     LSR A
AF60  F0 14        ..    BEQ &AF76
AF62  90 12        ..    BCC &AF76
AF64  18           .     CLC
AF65  2A           *     ROL A
AF66  9D 04 C2     ...   STA &C204,X
AF69  20 0A B0      ..   JSR &B00A
AF6C  20 0A B0      ..   JSR &B00A
AF6F  7E 04 C2     ~..   ROR &C204,X
AF72  38           8     SEC
AF73  3E 04 C2     >..   ROL &C204,X
AF76  4C 0F AE     L..   JMP &AE0F
AF79  CA           .     DEX
AF7A  CA           .     DEX
AF7B  CA           .     DEX
AF7C  CA           .     DEX
AF7D  30 03        0.    BMI &AF82
AF7F  4C F5 AE     L..   JMP &AEF5
AF82  AE 95 C2     ...   LDX &C295
AF85  AD 96 C2     ...   LDA &C296
AF88  9D 01 C2     ...   STA &C201,X
AF8B  8D D0 C2     ...   STA &C2D0
AF8E  AD 97 C2     ...   LDA &C297
AF91  9D 02 C2     ...   STA &C202,X
AF94  8D D1 C2     ...   STA &C2D1
AF97  AD 98 C2     ...   LDA &C298
AF9A  9D 03 C2     ...   STA &C203,X
AF9D  8D D2 C2     ...   STA &C2D2
AFA0  20 E2 AE      ..   JSR &AEE2
AFA3  AD 98 C2     ...   LDA &C298
AFA6  20 5C B8      \.   JSR &B85C
AFA9  84 B1        ..    STY &B1
AFAB  86 B0        ..    STX &B0
AFAD  20 99 80      ..   JSR &8099
AFB0  A6 B0        ..    LDX &B0
AFB2  A5 CD        ..    LDA &CD
AFB4  29 20        )     AND #%00100000
AFB6  F0 05        ..    BEQ &AFBD                ; Jump if the 'Winchester disc controller present' flag isn't set
AFB8  BD 03 C2     ...   LDA &C203,X
AFBB  10 0E        ..    BPL &AFCB
AFBD  20 AF BF      ..   JSR &BFAF
AFC0  09 B8        ..    EQUW &B809
AFC2  F0 20        .     BEQ &AFE4
AFC4  C6 CE        ..    DEC &CE
AFC6  10 E8        ..    BPL &AFB0
AFC8  4C BE 82     L..   JMP &82BE
AFCB  A9 08        ..    LDA #&08
AFCD  20 E5 AD      ..   JSR &ADE5
AFD0  20 33 83      3.   JSR &8333
AFD3  30 0A        0.    BMI &AFDF
AFD5  A0 00        ..    LDY #&00
AFD7  AD 40 FC     .@.   LDA wdc_data
AFDA  91 BE        ..    STA (&BE),Y
AFDC  C8           .     INY
AFDD  D0 F8        ..    BNE &AFD7
AFDF  20 AE 81      ..   JSR &81AE
AFE2  D0 E0        ..    BNE &AFC4
AFE4  A9 81        ..    LDA #&81
AFE6  9D 04 C2     ...   STA &C204,X
AFE9  4C 1F AF     L..   JMP &AF1F
AFEC  A2 10        ..    LDX #&10
AFEE  BD 04 C2     ...   LDA &C204,X
AFF1  29 01        ).    AND #&01
AFF3  D0 35        .5    BNE &B02A
AFF5  CA           .     DEX
AFF6  CA           .     DEX
AFF7  CA           .     DEX
AFF8  CA           .     DEX
AFF9  10 F3        ..    BPL &AFEE
AFFB  4C 74 AA     Lt.   JMP &AA74
AFFE  20 6C 83      l.   JSR &836C
B001  DE 43 68     .Ch   DEC &6843,X
B004  61 6E        an    ADC (&6E,X)
B006  6E 65 6C     nel   ROR &6C65
B009  00           .     BRK
B00A  CA           .     DEX
B00B  CA           .     DEX
B00C  CA           .     DEX
B00D  CA           .     DEX
B00E  10 02        ..    BPL &B012
B010  A2 10        ..    LDX #&10
B012  60           `     RTS
B013  84 C2        ..    STY &C2
B015  8C D5 C2     ...   STY &C2D5
B018  C0 3A        .:    CPY #&3A
B01A  B0 E2        ..    BCS &AFFE
B01C  98           .     TYA
B01D  38           8     SEC
B01E  E9 30        .0    SBC #&30
B020  90 DC        ..    BCC &AFFE
B022  85 CF        ..    STA &CF
B024  AA           .     TAX
B025  BD AC C3     ...   LDA &C3AC,X
B028  F0 D4        ..    BEQ &AFFE
B02A  60           `     RTS
B02B  A6 CF        ..    LDX &CF
B02D  BD 34 C3     .4.   LDA &C334,X
B030  DD 5C C3     .\.   CMP &C35C,X
B033  D0 19        ..    BNE &B04E
B035  BD 3E C3     .>.   LDA &C33E,X
B038  DD 66 C3     .f.   CMP &C366,X
B03B  D0 11        ..    BNE &B04E
B03D  BD 48 C3     .H.   LDA &C348,X
B040  DD 70 C3     .p.   CMP &C370,X
B043  D0 09        ..    BNE &B04E
B045  BD 52 C3     .R.   LDA &C352,X
B048  DD 7A C3     .z.   CMP &C37A,X
B04B  D0 01        ..    BNE &B04E
B04D  18           .     CLC
B04E  60           `     RTS
B04F  A4 B4        ..    LDY &B4
B051  20 13 B0      ..   JSR &B013
B054  6A           j     ROR A
B055  B0 09        ..    BCS &B060
B057  20 85 AA      ..   JSR &AA85
B05A  20 D9 B4      ..   JSR &B4D9
B05D  20 2B B0      +.   JSR &B02B
B060  A2 00        ..    LDX #&00
B062  B0 01        ..    BCS &B065
B064  CA           .     DEX
B065  A4 B5        ..    LDY &B5
B067  60           `     RTS
B068  BD AC C3     ...   LDA &C3AC,X
B06B  29 C8        ).    AND #&C8
B06D  9D AC C3     ...   STA &C3AC,X
B070  20 6C 83      l.   JSR &836C
B073  DF 45        .E    BBS5 &B0BA
B075  4F 46        OF    BBR4 &B0BD
B077  00           .     BRK
B078  86 C3        ..    STX &C3
B07A  20 13 B0      ..   JSR &B013
B07D  6A           j     ROR A
B07E  B0 22        ."    BCS &B0A2
B080  29 04        ).    AND #&04
B082  D0 E4        ..    BNE &B068
B084  20 2B B0      +.   JSR &B02B
B087  B0 19        ..    BCS &B0A2
B089  D0 DD        ..    BNE &B068
B08B  20 85 AA      ..   JSR &AA85
B08E  A6 CF        ..    LDX &CF
B090  BD AC C3     ...   LDA &C3AC,X
B093  29 C0        ).    AND #&C0
B095  09 08        ..    ORA #&08
B097  9D AC C3     ...   STA &C3AC,X
B09A  A4 C2        ..    LDY &C2
B09C  A6 C3        ..    LDX &C3
B09E  38           8     SEC
B09F  A9 FE        ..    LDA #&FE
B0A1  60           `     RTS
B0A2  A6 CF        ..    LDX &CF
B0A4  18           .     CLC
B0A5  BD CA C3     ...   LDA &C3CA,X
B0A8  7D 70 C3     }p.   ADC &C370,X
B0AB  8D 96 C2     ...   STA &C296
B0AE  BD C0 C3     ...   LDA &C3C0,X
B0B1  7D 66 C3     }f.   ADC &C366,X
B0B4  8D 97 C2     ...   STA &C297
B0B7  BD B6 C3     ...   LDA &C3B6,X
B0BA  7D 5C C3     }\.   ADC &C35C,X
B0BD  8D 98 C2     ...   STA &C298
B0C0  A9 40        .@    LDA #&40
B0C2  20 EF AE      ..   JSR &AEEF
B0C5  A6 CF        ..    LDX &CF
B0C7  BC 7A C3     .z.   LDY &C37A,X
B0CA  9C CF C2     ...   STZ &C2CF
B0CD  20 70 B4      p.   JSR &B470
B0D0  B1 BE        ..    LDA (&BE),Y
B0D2  A4 C2        ..    LDY &C2
B0D4  A6 C3        ..    LDX &C3
B0D6  18           .     CLC
B0D7  60           `     RTS
B0D8  A0 02        ..    LDY #&02
B0DA  B9 14 C3     ...   LDA &C314,Y
B0DD  99 30 C2     .0.   STA &C230,Y
B0E0  88           .     DEY
B0E1  10 F7        ..    BPL &B0DA
B0E3  AD 17 C3     ...   LDA &C317
B0E6  8D 33 C2     .3.   STA &C233
B0E9  A6 CF        ..    LDX &CF
B0EB  BD B6 C3     ...   LDA &C3B6,X
B0EE  29 E0        ).    AND #&E0
B0F0  8D 2F C2     ./.   STA &C22F
B0F3  BD E8 C3     ...   LDA &C3E8,X
B0F6  8D 2C C2     .,.   STA &C22C
B0F9  BD DE C3     ...   LDA &C3DE,X
B0FC  8D 2D C2     .-.   STA &C22D
B0FF  BD D4 C3     ...   LDA &C3D4,X
B102  8D 2E C2     ...   STA &C22E
B105  20 BA 89      ..   JSR &89BA
B108  A0 03        ..    LDY #&03
B10A  B9 30 C2     .0.   LDA &C230,Y
B10D  99 2C C2     .,.   STA &C22C,Y
B110  88           .     DEY
B111  10 F7        ..    BPL &B10A
B113  20 D3 B7      ..   JSR &B7D3
B116  A6 CF        ..    LDX &CF
B118  BD CA C3     ...   LDA &C3CA,X
B11B  8D 34 C2     .4.   STA &C234
B11E  BD C0 C3     ...   LDA &C3C0,X
B121  8D 35 C2     .5.   STA &C235
B124  BD B6 C3     ...   LDA &C3B6,X
B127  29 1F        ).    AND #&1F
B129  8D 36 C2     .6.   STA &C236
B12C  A9 05        ..    LDA #&05
B12E  85 B8        ..    STA &B8
B130  A9 C4        ..    LDA #&C4
B132  85 B9        ..    STA &B9
B134  A6 CF        ..    LDX &CF
B136  B2 B8        ..    LDA (&B8)
B138  D0 06        ..    BNE &B140
B13A  9D AC C3     ...   STA &C3AC,X
B13D  4C 74 AA     Lt.   JMP &AA74
B140  A0 19        ..    LDY #&19
B142  B1 B8        ..    LDA (&B8),Y
B144  DD F2 C3     ...   CMP &C3F2,X
B147  D0 0E        ..    BNE &B157
B149  88           .     DEY
B14A  B1 B8        ..    LDA (&B8),Y
B14C  D9 1E C2     ...   CMP &C21E,Y
B14F  D0 06        ..    BNE &B157
B151  88           .     DEY
B152  C0 16        ..    CPY #&16
B154  B0 F4        ..    BCS &B14A
B156  60           `     RTS
B157  A5 B8        ..    LDA &B8
B159  18           .     CLC
B15A  69 1A        i.    ADC #&1A
B15C  85 B8        ..    STA &B8
B15E  90 D6        ..    BCC &B136
B160  E6 B9        ..    INC &B9
B162  B0 D2        ..    BCS &B136
B164  A9 00        ..    LDA #&00
B166  8D B5 C2     ...   STA &C2B5
B169  A2 03        ..    LDX #&03
B16B  BD 2C C2     .,.   LDA &C22C,X
B16E  9D BC C2     ...   STA &C2BC,X
B171  CA           .     DEX
B172  10 F7        ..    BPL &B16B
B174  8E 2E C2     ...   STX &C22E
B177  8E 2F C2     ./.   STX &C22F
B17A  A6 CF        ..    LDX &CF
B17C  BD 84 C3     ...   LDA &C384,X
B17F  CD 9D C2     ...   CMP &C29D
B182  D0 16        ..    BNE &B19A
B184  BD 8E C3     ...   LDA &C38E,X
B187  CD 9C C2     ...   CMP &C29C
B18A  D0 0E        ..    BNE &B19A
B18C  BD 98 C3     ...   LDA &C398,X
B18F  CD 9B C2     ...   CMP &C29B
B192  D0 06        ..    BNE &B19A
B194  BD A2 C3     ...   LDA &C3A2,X
B197  CD 9A C2     ...   CMP &C29A
B19A  90 28        .(    BCC &B1C4
B19C  BD 34 C3     .4.   LDA &C334,X
B19F  CD 9D C2     ...   CMP &C29D
B1A2  D0 1B        ..    BNE &B1BF
B1A4  BD 3E C3     .>.   LDA &C33E,X
B1A7  CD 9C C2     ...   CMP &C29C
B1AA  D0 13        ..    BNE &B1BF
B1AC  BD 48 C3     .H.   LDA &C348,X
B1AF  CD 9B C2     ...   CMP &C29B
B1B2  D0 0B        ..    BNE &B1BF
B1B4  BD 52 C3     .R.   LDA &C352,X
B1B7  CD 9A C2     ...   CMP &C29A
B1BA  D0 03        ..    BNE &B1BF
B1BC  4C D2 B3     L..   JMP &B3D2
B1BF  B0 FB        ..    BCS &B1BC
B1C1  4C DC B2     L..   JMP &B2DC
B1C4  20 D8 B0      ..   JSR &B0D8
B1C7  BD A2 C3     ...   LDA &C3A2,X
B1CA  C9 01        ..    CMP #&01
B1CC  BD 98 C3     ...   LDA &C398,X
B1CF  69 00        i.    ADC #&00
B1D1  8D 37 C2     .7.   STA &C237
B1D4  BD 8E C3     ...   LDA &C38E,X
B1D7  69 00        i.    ADC #&00
B1D9  8D 38 C2     .8.   STA &C238
B1DC  BD 84 C3     ...   LDA &C384,X
B1DF  69 00        i.    ADC #&00
B1E1  8D 39 C2     .9.   STA &C239
B1E4  20 E7 84      ..   JSR &84E7
B1E7  9C 3D C2     .=.   STZ &C23D
B1EA  9C 3E C2     .>.   STZ &C23E
B1ED  9C 3F C2     .?.   STZ &C23F
B1F0  AE FE C1     ...   LDX &C1FE
B1F3  AD 3F C2     .?.   LDA &C23F
B1F6  DD FF C0     ...   CMP &C0FF,X
B1F9  90 14        ..    BCC &B20F
B1FB  D0 21        .!    BNE &B21E
B1FD  AD 3E C2     .>.   LDA &C23E
B200  DD FE C0     ...   CMP &C0FE,X
B203  90 0A        ..    BCC &B20F
B205  D0 17        ..    BNE &B21E
B207  AD 3D C2     .=.   LDA &C23D
B20A  DD FD C0     ...   CMP &C0FD,X
B20D  B0 0F        ..    BCS &B21E
B20F  A0 02        ..    LDY #&02
B211  BD FF C0     ...   LDA &C0FF,X
B214  99 3D C2     .=.   STA &C23D,Y
B217  CA           .     DEX
B218  88           .     DEY
B219  10 F6        ..    BPL &B211
B21B  8A           .     TXA
B21C  80 03        ..    BRA &B221
B21E  CA           .     DEX
B21F  CA           .     DEX
B220  CA           .     DEX
B221  D0 D0        ..    BNE &B1F3
B223  A2 03        ..    LDX #&03
B225  BD 3C C2     .<.   LDA &C23C,X
B228  DD 9A C2     ...   CMP &C29A,X
B22B  D0 06        ..    BNE &B233
B22D  CA           .     DEX
B22E  D0 F5        ..    BNE &B225
B230  EC 9A C2     ...   CPX &C29A
B233  AD 9C C2     ...   LDA &C29C
B236  AC 9D C2     ...   LDY &C29D
B239  1A           .     INC A
B23A  D0 06        ..    BNE &B242
B23C  C8           .     INY
B23D  D0 03        ..    BNE &B242
B23F  4C 85 86     L..   JMP &8685
B242  90 0E        ..    BCC &B252
B244  CC 3F C2     .?.   CPY &C23F
B247  90 09        ..    BCC &B252
B249  D0 10        ..    BNE &B25B
B24B  CD 3E C2     .>.   CMP &C23E
B24E  90 02        ..    BCC &B252
B250  D0 09        ..    BNE &B25B
B252  8C 3F C2     .?.   STY &C23F
B255  8D 3E C2     .>.   STA &C23E
B258  9C 3D C2     .=.   STZ &C23D
B25B  20 61 86      a.   JSR &8661
B25E  A0 12        ..    LDY #&12
B260  A9 00        ..    LDA #&00
B262  A6 CF        ..    LDX &CF
B264  91 B8        ..    STA (&B8),Y
B266  9D A2 C3     ...   STA &C3A2,X
B269  C8           .     INY
B26A  AD 3D C2     .=.   LDA &C23D
B26D  91 B8        ..    STA (&B8),Y
B26F  9D 98 C3     ...   STA &C398,X
B272  AD 3E C2     .>.   LDA &C23E
B275  C8           .     INY
B276  91 B8        ..    STA (&B8),Y
B278  9D 8E C3     ...   STA &C38E,X
B27B  AD 3F C2     .?.   LDA &C23F
B27E  C8           .     INY
B27F  91 B8        ..    STA (&B8),Y
B281  9D 84 C3     ...   STA &C384,X
B284  AD 3A C2     .:.   LDA &C23A
B287  C8           .     INY
B288  91 B8        ..    STA (&B8),Y
B28A  9D CA C3     ...   STA &C3CA,X
B28D  AD 3B C2     .;.   LDA &C23B
B290  C8           .     INY
B291  91 B8        ..    STA (&B8),Y
B293  9D C0 C3     ...   STA &C3C0,X
B296  AD 3C C2     .<.   LDA &C23C
B299  C8           .     INY
B29A  91 B8        ..    STA (&B8),Y
B29C  0D 17 C3     ...   ORA &C317
B29F  9D B6 C3     ...   STA &C3B6,X
B2A2  20 5E 8F      ^.   JSR &8F5E
B2A5  A9 08        ..    LDA #%00001000
B2A7  14 CD        ..    TRB &CD                  ; Clear the '???' flag
B2A9  A9 C4        ..    LDA #&C4
B2AB  8D 60 C2     .`.   STA &C260
B2AE  AD FC C3     ...   LDA &C3FC
B2B1  38           8     SEC
B2B2  E9 C4        ..    SBC #&C4
B2B4  8D 61 C2     .a.   STA &C261
B2B7  A2 00        ..    LDX #&00
B2B9  A0 02        ..    LDY #&02
B2BB  B9 34 C2     .4.   LDA &C234,Y
B2BE  99 A2 C2     ...   STA &C2A2,Y
B2C1  D9 3A C2     .:.   CMP &C23A,Y
B2C4  F0 04        ..    BEQ &B2CA
B2C6  E8           .     INX
B2C7  B9 3A C2     .:.   LDA &C23A,Y
B2CA  99 A8 C2     ...   STA &C2A8,Y
B2CD  B9 37 C2     .7.   LDA &C237,Y
B2D0  99 A5 C2     ...   STA &C2A5,Y
B2D3  88           .     DEY
B2D4  10 E5        ..    BPL &B2BB
B2D6  8A           .     TXA
B2D7  F0 03        ..    BEQ &B2DC
B2D9  20 0F 9A      ..   JSR &9A0F
B2DC  AD B5 C2     ...   LDA &C2B5
B2DF  F0 03        ..    BEQ &B2E4
B2E1  4C B5 B3     L..   JMP &B3B5
B2E4  A6 CF        ..    LDX &CF
B2E6  18           .     CLC
B2E7  BD 48 C3     .H.   LDA &C348,X
B2EA  7D CA C3     }..   ADC &C3CA,X
B2ED  8D 96 C2     ...   STA &C296
B2F0  BD 3E C3     .>.   LDA &C33E,X
B2F3  7D C0 C3     }..   ADC &C3C0,X
B2F6  8D 97 C2     ...   STA &C297
B2F9  BD 34 C3     .4.   LDA &C334,X
B2FC  7D B6 C3     }..   ADC &C3B6,X
B2FF  8D 98 C2     ...   STA &C298
B302  A9 C0        ..    LDA #&C0
B304  20 EF AE      ..   JSR &AEEF
B307  A6 CF        ..    LDX &CF
B309  BC 52 C3     .R.   LDY &C352,X
B30C  A9 00        ..    LDA #&00
B30E  91 BE        ..    STA (&BE),Y
B310  C8           .     INY
B311  D0 FB        ..    BNE &B30E
B313  AD 9B C2     ...   LDA &C29B
B316  18           .     CLC
B317  7D CA C3     }..   ADC &C3CA,X
B31A  8D 34 C2     .4.   STA &C234
B31D  AD 9C C2     ...   LDA &C29C
B320  7D C0 C3     }..   ADC &C3C0,X
B323  8D 35 C2     .5.   STA &C235
B326  AD 9D C2     ...   LDA &C29D
B329  7D B6 C3     }..   ADC &C3B6,X
B32C  8D 36 C2     .6.   STA &C236
B32F  AD 9A C2     ...   LDA &C29A
B332  D0 13        ..    BNE &B347
B334  AD 34 C2     .4.   LDA &C234
B337  D0 0B        ..    BNE &B344
B339  AD 35 C2     .5.   LDA &C235
B33C  D0 03        ..    BNE &B341
B33E  CE 36 C2     .6.   DEC &C236
B341  CE 35 C2     .5.   DEC &C235
B344  CE 34 C2     .4.   DEC &C234
B347  AD 34 C2     .4.   LDA &C234
B34A  CD 96 C2     ...   CMP &C296
B34D  D0 13        ..    BNE &B362
B34F  AD 35 C2     .5.   LDA &C235
B352  CD 97 C2     ...   CMP &C297
B355  D0 0B        ..    BNE &B362
B357  AD 36 C2     .6.   LDA &C236
B35A  CD 98 C2     ...   CMP &C298
B35D  D0 03        ..    BNE &B362
B35F  4C B5 B3     L..   JMP &B3B5
B362  20 29 83      ).   JSR &8329
B365  EE 96 C2     ...   INC &C296
B368  D0 08        ..    BNE &B372
B36A  EE 97 C2     ...   INC &C297
B36D  D0 03        ..    BNE &B372
B36F  EE 98 C2     ...   INC &C298
B372  A9 40        .@    LDA #&40
B374  20 EF AE      ..   JSR &AEEF
B377  A0 00        ..    LDY #&00
B379  98           .     TYA
B37A  91 BE        ..    STA (&BE),Y
B37C  C8           .     INY
B37D  D0 FB        ..    BNE &B37A
B37F  AE A1 C2     ...   LDX &C2A1
B382  A9 C0        ..    LDA #&C0
B384  1D 04 C2     ...   ORA &C204,X
B387  9D 04 C2     ...   STA &C204,X
B38A  20 12 AE      ..   JSR &AE12
B38D  AD 34 C2     .4.   LDA &C234
B390  DD 01 C2     ...   CMP &C201,X
B393  D0 10        ..    BNE &B3A5
B395  AD 35 C2     .5.   LDA &C235
B398  DD 02 C2     ...   CMP &C202,X
B39B  D0 08        ..    BNE &B3A5
B39D  AD 36 C2     .6.   LDA &C236
B3A0  DD 03 C2     ...   CMP &C203,X
B3A3  F0 10        ..    BEQ &B3B5
B3A5  FE 01 C2     ...   INC &C201,X
B3A8  D0 D5        ..    BNE &B37F
B3AA  FE 02 C2     ...   INC &C202,X
B3AD  D0 D0        ..    BNE &B37F
B3AF  FE 03 C2     ...   INC &C203,X
B3B2  4C 7F B3     L.   JMP &B37F
B3B5  A6 CF        ..    LDX &CF
B3B7  AD 9A C2     ...   LDA &C29A
B3BA  9D 52 C3     .R.   STA &C352,X
B3BD  AD 9B C2     ...   LDA &C29B
B3C0  9D 48 C3     .H.   STA &C348,X
B3C3  AD 9C C2     ...   LDA &C29C
B3C6  9D 3E C3     .>.   STA &C33E,X
B3C9  AD 9D C2     ...   LDA &C29D
B3CC  9D 34 C3     .4.   STA &C334,X
B3CF  20 BA 89      ..   JSR &89BA
B3D2  A2 03        ..    LDX #&03
B3D4  BD BC C2     ...   LDA &C2BC,X
B3D7  9D 2C C2     .,.   STA &C22C,X
B3DA  CA           .     DEX
B3DB  10 F7        ..    BPL &B3D4
B3DD  60           `     RTS
B3DE  86 C3        ..    STX &C3
B3E0  48           H     PHA
B3E1  20 13 B0      ..   JSR &B013
B3E4  9C CF C2     ...   STZ &C2CF
B3E7  A8           .     TAY
B3E8  30 18        0.    BMI &B402
B3EA  20 6C 83      l.   JSR &836C
B3ED  C1 4E        .N    CMP (&4E,X)
B3EF  6F 74        ot    BBR6 &B465
B3F1  20 6F 70      op   JSR &706F
B3F4  65 6E        en    ADC &6E
B3F6  20 66 6F      fo   JSR &6F66
B3F9  72 20        r     ADC (&20)
B3FB  75 70        up    ADC &70,X
B3FD  64 61        da    STZ &61
B3FF  74 65        te    STZ &65,X
B401  00           .     BRK
B402  BD AC C3     ...   LDA &C3AC,X
B405  29 07        ).    AND #&07
B407  C9 06        ..    CMP #&06
B409  B0 32        .2    BCS &B43D
B40B  C9 03        ..    CMP #&03
B40D  F0 2E        ..    BEQ &B43D
B40F  BD 7A C3     .z.   LDA &C37A,X
B412  38           8     SEC
B413  69 00        i.    ADC #&00
B415  8D 9A C2     ...   STA &C29A
B418  BD 70 C3     .p.   LDA &C370,X
B41B  69 00        i.    ADC #&00
B41D  8D 9B C2     ...   STA &C29B
B420  BD 66 C3     .f.   LDA &C366,X
B423  69 00        i.    ADC #&00
B425  8D 9C C2     ...   STA &C29C
B428  BD 5C C3     .\.   LDA &C35C,X
B42B  69 00        i.    ADC #&00
B42D  8D 9D C2     ...   STA &C29D
B430  68           h     PLA
B431  20 85 AA      ..   JSR &AA85
B434  48           H     PHA
B435  CE CF C2     ...   DEC &C2CF
B438  20 64 B1      d.   JSR &B164
B43B  A6 CF        ..    LDX &CF
B43D  18           .     CLC
B43E  BD CA C3     ...   LDA &C3CA,X
B441  7D 70 C3     }p.   ADC &C370,X
B444  8D 96 C2     ...   STA &C296
B447  BD C0 C3     ...   LDA &C3C0,X
B44A  7D 66 C3     }f.   ADC &C366,X
B44D  8D 97 C2     ...   STA &C297
B450  BD B6 C3     ...   LDA &C3B6,X
B453  7D 5C C3     }\.   ADC &C35C,X
B456  8D 98 C2     ...   STA &C298
B459  A9 C0        ..    LDA #&C0
B45B  20 EF AE      ..   JSR &AEEF
B45E  A6 CF        ..    LDX &CF
B460  BC 7A C3     .z.   LDY &C37A,X
B463  68           h     PLA
B464  91 BE        ..    STA (&BE),Y
B466  48           H     PHA
B467  20 70 B4      p.   JSR &B470
B46A  68           h     PLA
B46B  A4 C2        ..    LDY &C2
B46D  A6 C3        ..    LDX &C3
B46F  60           `     RTS
B470  A6 CF        ..    LDX &CF
B472  FE 7A C3     .z.   INC &C37A,X
B475  D0 F8        ..    BNE &B46F
B477  2C CF C2     ,..   BIT &C2CF
B47A  30 03        0.    BMI &B47F
B47C  20 85 AA      ..   JSR &AA85
B47F  FE 70 C3     .p.   INC &C370,X
B482  D0 08        ..    BNE &B48C
B484  FE 66 C3     .f.   INC &C366,X
B487  D0 03        ..    BNE &B48C
B489  FE 5C C3     .\.   INC &C35C,X
B48C  20 D9 B4      ..   JSR &B4D9
B48F  48           H     PHA
B490  38           8     SEC
B491  BD 70 C3     .p.   LDA &C370,X
B494  FD 48 C3     .H.   SBC &C348,X
B497  BD 66 C3     .f.   LDA &C366,X
B49A  FD 3E C3     .>.   SBC &C33E,X
B49D  BD 5C C3     .\.   LDA &C35C,X
B4A0  FD 34 C3     .4.   SBC &C334,X
B4A3  90 29        .)    BCC &B4CE
B4A5  BD 7A C3     .z.   LDA &C37A,X
B4A8  DD 52 C3     .R.   CMP &C352,X
B4AB  D0 04        ..    BNE &B4B1
B4AD  68           h     PLA
B4AE  09 04        ..    ORA #&04
B4B0  48           H     PHA
B4B1  38           8     SEC
B4B2  BD 48 C3     .H.   LDA &C348,X
B4B5  FD 98 C3     ...   SBC &C398,X
B4B8  BD 3E C3     .>.   LDA &C33E,X
B4BB  FD 8E C3     ...   SBC &C38E,X
B4BE  BD 34 C3     .4.   LDA &C334,X
B4C1  FD 84 C3     ...   SBC &C384,X
B4C4  90 03        ..    BCC &B4C9
B4C6  68           h     PLA
B4C7  D0 08        ..    BNE &B4D1
B4C9  68           h     PLA
B4CA  09 02        ..    ORA #&02
B4CC  D0 03        ..    BNE &B4D1
B4CE  68           h     PLA
B4CF  09 03        ..    ORA #&03
B4D1  30 02        0.    BMI &B4D5
B4D3  29 F9        ).    AND #&F9
B4D5  9D AC C3     ...   STA &C3AC,X
B4D8  60           `     RTS
B4D9  A6 CF        ..    LDX &CF
B4DB  BD AC C3     ...   LDA &C3AC,X
B4DE  48           H     PHA
B4DF  29 04        ).    AND #&04
B4E1  F0 18        ..    BEQ &B4FB
B4E3  BD 7A C3     .z.   LDA &C37A,X
B4E6  9D 52 C3     .R.   STA &C352,X
B4E9  BD 70 C3     .p.   LDA &C370,X
B4EC  9D 48 C3     .H.   STA &C348,X
B4EF  BD 66 C3     .f.   LDA &C366,X
B4F2  9D 3E C3     .>.   STA &C33E,X
B4F5  BD 5C C3     .\.   LDA &C35C,X
B4F8  9D 34 C3     .4.   STA &C334,X
B4FB  68           h     PLA
B4FC  29 C0        ).    AND #&C0
B4FE  D0 D5        ..    BNE &B4D5
B500  A2 09        ..    LDX #&09
B502  BD AC C3     ...   LDA &C3AC,X
B505  D0 04        ..    BNE &B50B
B507  CA           .     DEX
B508  10 F8        ..    BPL &B502
B50A  60           `     RTS
B50B  A9 00        ..    LDA #&00
B50D  A8           .     TAY
B50E  20 85 AA      ..   JSR &AA85
B511  8E 40 C2     .@.   STX &C240
B514  86 B4        ..    STX &B4
B516  86 C5        ..    STX &C5
B518  84 C4        ..    STY &C4
B51A  8C 41 C2     .A.   STY &C241
B51D  84 B5        ..    STY &B5
B51F  29 C0        ).    AND #&C0
B521  9C D5 C2     ...   STZ &C2D5
B524  A8           .     TAY
B525  D0 03        ..    BNE &B52A
B527  4C CB B6     L..   JMP &B6CB
B52A  AD 32 C3     .2.   LDA &C332
B52D  F0 06        ..    BEQ &B535
B52F  9C 32 C3     .2.   STZ &C332
B532  A4 B5        ..    LDY &B5
B534  60           `     RTS
B535  A2 09        ..    LDX #&09
B537  BD AC C3     ...   LDA &C3AC,X
B53A  F0 1B        ..    BEQ &B557
B53C  CA           .     DEX
B53D  10 F8        ..    BPL &B537
B53F  20 6C 83      l.   JSR &836C
B542  C0 54        .T    CPY #&54
B544  6F 6F        oo    BBR6 &B5B5
B546  20 6D 61      ma   JSR &616D
B549  6E 79 20     ny    ROR &2079
B54C  6F 70        op    BBR6 &B5BE
B54E  65 6E        en    ADC &6E
B550  20 66 69      fi   JSR &6966
B553  6C 65 73     les   JMP (&7365)
B556  00           .     BRK
B557  86 CF        ..    STX &CF
B559  8C A0 C2     ...   STY &C2A0
B55C  98           .     TYA
B55D  10 03        ..    BPL &B562
B55F  4C 31 B6     L1.   JMP &B631
B562  20 B5 8F      ..   JSR &8FB5
B565  F0 05        ..    BEQ &B56C
B567  A9 00        ..    LDA #&00
B569  4C 29 B6     L).   JMP &B629
B56C  A2 09        ..    LDX #&09
B56E  BD AC C3     ...   LDA &C3AC,X
B571  10 2E        ..    BPL &B5A1
B573  BD B6 C3     ...   LDA &C3B6,X
B576  29 E0        ).    AND #&E0
B578  CD 17 C3     ...   CMP &C317
B57B  D0 24        .$    BNE &B5A1
B57D  BD E8 C3     ...   LDA &C3E8,X
B580  CD 14 C3     ...   CMP &C314
B583  D0 1C        ..    BNE &B5A1
B585  BD DE C3     ...   LDA &C3DE,X
B588  CD 15 C3     ...   CMP &C315
B58B  D0 14        ..    BNE &B5A1
B58D  BD D4 C3     ...   LDA &C3D4,X
B590  CD 16 C3     ...   CMP &C316
B593  D0 0C        ..    BNE &B5A1
B595  A0 19        ..    LDY #&19
B597  B1 B6        ..    LDA (&B6),Y
B599  DD F2 C3     ...   CMP &C3F2,X
B59C  D0 03        ..    BNE &B5A1
B59E  4C 32 8D     L2.   JMP &8D32
B5A1  CA           .     DEX
B5A2  10 CA        ..    BPL &B56E
B5A4  B2 B6        ..    LDA (&B6)
B5A6  30 03        0.    BMI &B5AB
B5A8  4C DA 8B     L..   JMP &8BDA
B5AB  A0 12        ..    LDY #&12
B5AD  A6 CF        ..    LDX &CF
B5AF  B1 B6        ..    LDA (&B6),Y
B5B1  9D 52 C3     .R.   STA &C352,X
B5B4  C8           .     INY
B5B5  B1 B6        ..    LDA (&B6),Y
B5B7  9D 48 C3     .H.   STA &C348,X
B5BA  C8           .     INY
B5BB  B1 B6        ..    LDA (&B6),Y
B5BD  9D 3E C3     .>.   STA &C33E,X
B5C0  C8           .     INY
B5C1  B1 B6        ..    LDA (&B6),Y
B5C3  9D 34 C3     .4.   STA &C334,X
B5C6  A0 12        ..    LDY #&12
B5C8  A6 CF        ..    LDX &CF
B5CA  B1 B6        ..    LDA (&B6),Y
B5CC  9D A2 C3     ...   STA &C3A2,X
B5CF  C8           .     INY
B5D0  B1 B6        ..    LDA (&B6),Y
B5D2  9D 98 C3     ...   STA &C398,X
B5D5  C8           .     INY
B5D6  B1 B6        ..    LDA (&B6),Y
B5D8  9D 8E C3     ...   STA &C38E,X
B5DB  C8           .     INY
B5DC  B1 B6        ..    LDA (&B6),Y
B5DE  9D 84 C3     ...   STA &C384,X
B5E1  C8           .     INY
B5E2  B1 B6        ..    LDA (&B6),Y
B5E4  9D CA C3     ...   STA &C3CA,X
B5E7  C8           .     INY
B5E8  B1 B6        ..    LDA (&B6),Y
B5EA  9D C0 C3     ...   STA &C3C0,X
B5ED  C8           .     INY
B5EE  B1 B6        ..    LDA (&B6),Y
B5F0  0D 17 C3     ...   ORA &C317
B5F3  9D B6 C3     ...   STA &C3B6,X
B5F6  C8           .     INY
B5F7  B1 B6        ..    LDA (&B6),Y
B5F9  9D F2 C3     ...   STA &C3F2,X
B5FC  AD 14 C3     ...   LDA &C314
B5FF  9D E8 C3     ...   STA &C3E8,X
B602  AD 15 C3     ...   LDA &C315
B605  9D DE C3     ...   STA &C3DE,X
B608  AD 16 C3     ...   LDA &C316
B60B  9D D4 C3     ...   STA &C3D4,X
B60E  9E 7A C3     .z.   STZ &C37A,X
B611  9E 70 C3     .p.   STZ &C370,X
B614  9E 66 C3     .f.   STZ &C366,X
B617  9E 5C C3     .\.   STZ &C35C,X
B61A  AD A0 C2     ...   LDA &C2A0
B61D  9D AC C3     ...   STA &C3AC,X
B620  8A           .     TXA
B621  18           .     CLC
B622  69 30        i0    ADC #&30
B624  48           H     PHA
B625  20 8C B4      ..   JSR &B48C
B628  68           h     PLA
B629  20 BA 89      ..   JSR &89BA
B62C  A6 C5        ..    LDX &C5
B62E  A4 C4        ..    LDY &C4
B630  60           `     RTS
B631  2C A0 C2     ,..   BIT &C2A0
B634  50 18        P.    BVC &B64E
B636  20 B5 8F      ..   JSR &8FB5
B639  08           .     PHP
B63A  A9 00        ..    LDA #&00
B63C  28           (     PLP
B63D  D0 EA        ..    BNE &B629
B63F  20 00 8D      ..   JSR &8D00
B642  A0 01        ..    LDY #&01
B644  B1 B6        ..    LDA (&B6),Y
B646  30 03        0.    BMI &B64B
B648  4C DA 8B     L..   JMP &8BDA
B64B  4C 6C B5     Ll.   JMP &B56C
B64E  20 9A 8D      ..   JSR &8D9A
B651  20 B5 8F      ..   JSR &8FB5
B654  D0 0C        ..    BNE &B662
B656  20 EF 8C      ..   JSR &8CEF
B659  A0 01        ..    LDY #&01
B65B  B1 B6        ..    LDA (&B6),Y
B65D  10 E9        ..    BPL &B648
B65F  4C BA B6     L..   JMP &B6BA
B662  A2 0F        ..    LDX #&0F
B664  9E 42 C2     .B.   STZ &C242,X
B667  CA           .     DEX
B668  10 FA        ..    BPL &B664
B66A  AE FE C1     ...   LDX &C1FE
B66D  A9 00        ..    LDA #&00
B66F  1D FE C0     ...   ORA &C0FE,X
B672  1D FF C0     ...   ORA &C0FF,X
B675  BC FD C0     ...   LDY &C0FD,X
B678  CC 4F C2     .O.   CPY &C24F
B67B  90 03        ..    BCC &B680
B67D  8C 4F C2     .O.   STY &C24F
B680  CA           .     DEX
B681  CA           .     DEX
B682  CA           .     DEX
B683  D0 EA        ..    BNE &B66F
B685  A8           .     TAY
B686  F0 07        ..    BEQ &B68F
B688  8E 4F C2     .O.   STX &C24F
B68B  E8           .     INX
B68C  8E 50 C2     .P.   STX &C250
B68F  A9 FF        ..    LDA #&FF
B691  A2 03        ..    LDX #&03
B693  9D 46 C2     .F.   STA &C246,X
B696  CA           .     DEX
B697  10 FA        ..    BPL &B693
B699  A2 40        .@    LDX #&40
B69B  86 B8        ..    STX &B8
B69D  A0 C2        ..    LDY #&C2
B69F  84 B9        ..    STY &B9
B6A1  20 BA 89      ..   JSR &89BA
B6A4  20 24 8F      $.   JSR &8F24
B6A7  20 5E 8F      ^.   JSR &8F5E
B6AA  20 B7 89      ..   JSR &89B7
B6AD  AD 40 C2     .@.   LDA &C240
B6B0  85 B4        ..    STA &B4
B6B2  AD 41 C2     .A.   LDA &C241
B6B5  85 B5        ..    STA &B5
B6B7  20 B5 8F      ..   JSR &8FB5
B6BA  A6 CF        ..    LDX &CF
B6BC  9E 52 C3     .R.   STZ &C352,X
B6BF  9E 48 C3     .H.   STZ &C348,X
B6C2  9E 3E C3     .>.   STZ &C33E,X
B6C5  9E 34 C3     .4.   STZ &C334,X
B6C8  4C C6 B5     L..   JMP &B5C6
B6CB  A4 C4        ..    LDY &C4
B6CD  D0 2B        .+    BNE &B6FA
B6CF  DA           .     PHX
B6D0  A9 77        .w    LDA #&77
B6D2  20 F4 FF      ..   JSR osbyte
B6D5  FA           .     PLX
B6D6  86 C5        ..    STX &C5
B6D8  A2 09        ..    LDX #&09
B6DA  BD AC C3     ...   LDA &C3AC,X
B6DD  D0 0C        ..    BNE &B6EB
B6DF  CA           .     DEX
B6E0  10 F8        ..    BPL &B6DA
B6E2  20 29 83      ).   JSR &8329
B6E5  A9 00        ..    LDA #&00
B6E7  A6 C5        ..    LDX &C5
B6E9  A8           .     TAY
B6EA  60           `     RTS
B6EB  8A           .     TXA
B6EC  18           .     CLC
B6ED  69 30        i0    ADC #&30
B6EF  85 B5        ..    STA &B5
B6F1  86 CF        ..    STX &CF
B6F3  20 FD B6      ..   JSR &B6FD
B6F6  A6 CF        ..    LDX &CF
B6F8  10 E5        ..    BPL &B6DF
B6FA  20 13 B0      ..   JSR &B013
B6FD  20 D9 B4      ..   JSR &B4D9
B700  BC AC C3     ...   LDY &C3AC,X
B703  9E AC C3     ...   STZ &C3AC,X
B706  98           .     TYA
B707  10 20        .     BPL &B729
B709  BD 52 C3     .R.   LDA &C352,X
B70C  DD A2 C3     ...   CMP &C3A2,X
B70F  D0 25        .%    BNE &B736
B711  BD 48 C3     .H.   LDA &C348,X
B714  DD 98 C3     ...   CMP &C398,X
B717  D0 1D        ..    BNE &B736
B719  BD 3E C3     .>.   LDA &C33E,X
B71C  DD 8E C3     ...   CMP &C38E,X
B71F  D0 15        ..    BNE &B736
B721  BD 34 C3     .4.   LDA &C334,X
B724  DD 84 C3     ...   CMP &C384,X
B727  D0 0D        ..    BNE &B736
B729  20 C5 AD      ..   JSR &ADC5
B72C  20 BA 89      ..   JSR &89BA
B72F  A9 00        ..    LDA #&00
B731  A4 C4        ..    LDY &C4
B733  A6 C5        ..    LDX &C5
B735  60           `     RTS
B736  20 D8 B0      ..   JSR &B0D8
B739  BD 52 C3     .R.   LDA &C352,X
B73C  C9 01        ..    CMP #&01
B73E  AD 34 C2     .4.   LDA &C234
B741  7D 48 C3     }H.   ADC &C348,X
B744  8D 34 C2     .4.   STA &C234
B747  AD 35 C2     .5.   LDA &C235
B74A  7D 3E C3     }>.   ADC &C33E,X
B74D  8D 35 C2     .5.   STA &C235
B750  AD 36 C2     .6.   LDA &C236
B753  7D 34 C3     }4.   ADC &C334,X
B756  8D 36 C2     .6.   STA &C236
B759  BD A2 C3     ...   LDA &C3A2,X
B75C  C9 01        ..    CMP #&01
B75E  BD 98 C3     ...   LDA &C398,X
B761  FD 48 C3     .H.   SBC &C348,X
B764  8D 37 C2     .7.   STA &C237
B767  BD 8E C3     ...   LDA &C38E,X
B76A  FD 3E C3     .>.   SBC &C33E,X
B76D  8D 38 C2     .8.   STA &C238
B770  BD 84 C3     ...   LDA &C384,X
B773  FD 34 C3     .4.   SBC &C334,X
B776  8D 39 C2     .9.   STA &C239
B779  BD 52 C3     .R.   LDA &C352,X
B77C  D0 0D        ..    BNE &B78B
B77E  EE 37 C2     .7.   INC &C237
B781  D0 08        ..    BNE &B78B
B783  EE 38 C2     .8.   INC &C238
B786  D0 03        ..    BNE &B78B
B788  EE 39 C2     .9.   INC &C239
B78B  BD 52 C3     .R.   LDA &C352,X
B78E  A0 12        ..    LDY #&12
B790  91 B8        ..    STA (&B8),Y
B792  BD 48 C3     .H.   LDA &C348,X
B795  C8           .     INY
B796  91 B8        ..    STA (&B8),Y
B798  BD 3E C3     .>.   LDA &C33E,X
B79B  C8           .     INY
B79C  91 B8        ..    STA (&B8),Y
B79E  BD 34 C3     .4.   LDA &C334,X
B7A1  C8           .     INY
B7A2  91 B8        ..    STA (&B8),Y
B7A4  20 E7 84      ..   JSR &84E7
B7A7  20 5E 8F      ^.   JSR &8F5E
B7AA  4C 29 B7     L).   JMP &B729
B7AD  A2 09        ..    LDX #&09
B7AF  BD AC C3     ...   LDA &C3AC,X
B7B2  F0 0A        ..    BEQ &B7BE
B7B4  BD B6 C3     ...   LDA &C3B6,X
B7B7  29 E0        ).    AND #&E0
B7B9  CD 17 C3     ...   CMP &C317
B7BC  F0 15        ..    BEQ &B7D3
B7BE  CA           .     DEX
B7BF  10 EE        ..    BPL &B7AF
B7C1  AD 17 C3     ...   LDA &C317
B7C4  20 B1 B8      ..   JSR &B8B1
B7C7  AD FB C1     ...   LDA &C1FB
B7CA  9D 21 C3     .!.   STA &C321,X
B7CD  AD FC C1     ...   LDA &C1FC
B7D0  9D 22 C3     .".   STA &C322,X
B7D3  20 04 B8      ..   JSR &B804
B7D6  AD 17 C3     ...   LDA &C317
B7D9  20 B1 B8      ..   JSR &B8B1
B7DC  AD FB C1     ...   LDA &C1FB
B7DF  DD 21 C3     .!.   CMP &C321,X
B7E2  D0 0F        ..    BNE &B7F3
B7E4  AD FC C1     ...   LDA &C1FC
B7E7  DD 22 C3     .".   CMP &C322,X
B7EA  D0 07        ..    BNE &B7F3
B7EC  20 50 B8      P.   JSR &B850
B7EF  8D C2 C2     ...   STA &C2C2
B7F2  60           `     RTS
B7F3  20 6C 83      l.   JSR &836C
B7F6  C8           .     INY
B7F7  44            D     ...
B7F8  69 73        is    ADC #&73
B7FA  63            c     ...
B7FB  20 63 68      ch   JSR &6863
B7FE  61 6E        an    ADC (&6E,X)
B800  67 65        ge    RMB6 &65
B802  64 00        d.    STZ &00
B804  A9 01        ..    LDA #&01
B806  A2 C8        ..    LDX #&C8
B808  A0 C2        ..    LDY #&C2
B80A  20 F1 FF      ..   JSR osword
B80D  A2 00        ..    LDX #&00
B80F  A0 04        ..    LDY #&04
B811  38           8     SEC
B812  BD C8 C2     ...   LDA &C2C8,X
B815  48           H     PHA
B816  FD C3 C2     ...   SBC &C2C3,X
B819  9D C8 C2     ...   STA &C2C8,X
B81C  68           h     PLA
B81D  9D C3 C2     ...   STA &C2C3,X
B820  E8           .     INX
B821  88           .     DEY
B822  10 EE        ..    BPL &B812
B824  AD CC C2     ...   LDA &C2CC
B827  0D CB C2     ...   ORA &C2CB
B82A  0D CA C2     ...   ORA &C2CA
B82D  D0 07        ..    BNE &B836
B82F  AD C9 C2     ...   LDA &C2C9
B832  C9 02        ..    CMP #&02
B834  90 03        ..    BCC &B839
B836  8C C2 C2     ...   STY &C2C2
B839  60           `     RTS
B83A  20 04 B8      ..   JSR &B804
B83D  AD 17 C3     ...   LDA &C317
B840  20 B1 B8      ..   JSR &B8B1
B843  20 50 B8      P.   JSR &B850
B846  4D C2 C2     M..   EOR &C2C2
B849  F0 EE        ..    BEQ &B839
B84B  20 57 BE      W.   JSR &BE57
B84E  80 86        ..    BRA &B7D6
B850  A9 FF        ..    LDA #&FF
B852  18           .     CLC
B853  2A           *     ROL A
B854  CA           .     DEX
B855  CA           .     DEX
B856  10 FB        ..    BPL &B853
B858  2D C2 C2     -..   AND &C2C2
B85B  60           `     RTS
B85C  29 E0        ).    AND #&E0
B85E  8D CD C2     ...   STA &C2CD
B861  DA           .     PHX
B862  5A           Z     PHY
B863  20 04 B8      ..   JSR &B804
B866  AD CD C2     ...   LDA &C2CD
B869  20 B1 B8      ..   JSR &B8B1
B86C  20 50 B8      P.   JSR &B850
B86F  4D C2 C2     M..   EOR &C2C2
B872  F0 3A        .:    BEQ &B8AE
B874  AD CD C2     ...   LDA &C2CD
B877  AA           .     TAX
B878  48           H     PHA
B879  AD 17 C3     ...   LDA &C317
B87C  8D CD C2     ...   STA &C2CD
B87F  AC 2F C2     ./.   LDY &C22F
B882  C0 FF        ..    CPY #&FF
B884  D0 06        ..    BNE &B88C
B886  8D 2F C2     ./.   STA &C22F
B889  8C CD C2     ...   STY &C2CD
B88C  8E 17 C3     ...   STX &C317
B88F  20 3A B8      :.   JSR &B83A
B892  AC CD C2     ...   LDY &C2CD
B895  8C 17 C3     ...   STY &C317
B898  C0 FF        ..    CPY #&FF
B89A  D0 09        ..    BNE &B8A5
B89C  AD 2F C2     ./.   LDA &C22F
B89F  8D 17 C3     ...   STA &C317
B8A2  8C 2F C2     ./.   STY &C22F
B8A5  68           h     PLA
B8A6  CD 17 C3     ...   CMP &C317
B8A9  F0 03        ..    BEQ &B8AE
B8AB  20 57 BE      W.   JSR &BE57
B8AE  7A           z     PLY
B8AF  FA           .     PLX
B8B0  60           `     RTS
B8B1  4A           J     LSR A
B8B2  4A           J     LSR A
B8B3  4A           J     LSR A
B8B4  4A           J     LSR A
B8B5  AA           .     TAX
B8B6  60           `     RTS
B8B7  20 85 AA      ..   JSR &AA85
B8BA  8D B4 C2     ...   STA &C2B4
B8BD  8D B5 C2     ...   STA &C2B5
B8C0  84 C7        ..    STY &C7
B8C2  86 C6        ..    STX &C6
B8C4  A0 01        ..    LDY #&01
B8C6  A2 03        ..    LDX #&03
B8C8  B1 C6        ..    LDA (&C6),Y
B8CA  99 B7 C2     ...   STA &C2B7,Y
B8CD  C8           .     INY
B8CE  CA           .     DEX
B8CF  10 F7        ..    BPL &B8C8
B8D1  AD B4 C2     ...   LDA &C2B4
B8D4  C9 05        ..    CMP #&05
B8D6  90 04        ..    BCC &B8DC
B8D8  4C C4 BB     L..   JMP &BBC4
B8DB  60           `     RTS
B8DC  A8           .     TAY
B8DD  F0 FC        ..    BEQ &B8DB
B8DF  B2 C6        ..    LDA (&C6)
B8E1  A8           .     TAY
B8E2  20 13 B0      ..   JSR &B013
B8E5  08           .     PHP
B8E6  20 D9 B4      ..   JSR &B4D9
B8E9  A6 CF        ..    LDX &CF
B8EB  BD B6 C3     ...   LDA &C3B6,X
B8EE  20 5C B8      \.   JSR &B85C
B8F1  28           (     PLP
B8F2  30 0A        0.    BMI &B8FE
B8F4  AD B4 C2     ...   LDA &C2B4
B8F7  C9 03        ..    CMP #&03
B8F9  B0 03        ..    BCS &B8FE
B8FB  4C EA B3     L..   JMP &B3EA
B8FE  AD B4 C2     ...   LDA &C2B4
B901  29 01        ).    AND #&01
B903  F0 0E        ..    BEQ &B913
B905  A0 0C        ..    LDY #&0C
B907  A2 03        ..    LDX #&03
B909  B1 C6        ..    LDA (&C6),Y
B90B  95 C8        ..    STA &C8,X
B90D  88           .     DEY
B90E  CA           .     DEX
B90F  10 F8        ..    BPL &B909
B911  A9 01        ..    LDA #&01
B913  A4 C2        ..    LDY &C2
B915  A2 C8        ..    LDX #&C8
B917  20 B7 AC      ..   JSR &ACB7
B91A  18           .     CLC
B91B  A2 03        ..    LDX #&03
B91D  A0 05        ..    LDY #&05
B91F  B1 C6        ..    LDA (&C6),Y
B921  79 C3 00     y..   ADC &00C3,Y
B924  99 95 C2     ...   STA &C295,Y
B927  C8           .     INY
B928  CA           .     DEX
B929  10 F4        ..    BPL &B91F
B92B  AD B4 C2     ...   LDA &C2B4
B92E  8D B5 C2     ...   STA &C2B5
B931  C9 03        ..    CMP #&03
B933  B0 03        ..    BCS &B938
B935  20 69 B1      i.   JSR &B169
B938  A0 09        ..    LDY #&09
B93A  A6 CF        ..    LDX &CF
B93C  AD 9A C2     ...   LDA &C29A
B93F  9D 7A C3     .z.   STA &C37A,X
B942  91 C6        ..    STA (&C6),Y
B944  C8           .     INY
B945  AD 9B C2     ...   LDA &C29B
B948  9D 70 C3     .p.   STA &C370,X
B94B  91 C6        ..    STA (&C6),Y
B94D  C8           .     INY
B94E  AD 9C C2     ...   LDA &C29C
B951  9D 66 C3     .f.   STA &C366,X
B954  91 C6        ..    STA (&C6),Y
B956  C8           .     INY
B957  AD 9D C2     ...   LDA &C29D
B95A  9D 5C C3     .\.   STA &C35C,X
B95D  91 C6        ..    STA (&C6),Y
B95F  AD B4 C2     ...   LDA &C2B4
B962  C9 03        ..    CMP #&03
B964  B0 14        ..    BCS &B97A
B966  A2 03        ..    LDX #&03
B968  A0 05        ..    LDY #&05
B96A  B1 C6        ..    LDA (&C6),Y
B96C  99 3B C2     .;.   STA &C23B,Y
B96F  A9 00        ..    LDA #&00
B971  91 C6        ..    STA (&C6),Y
B973  C8           .     INY
B974  CA           .     DEX
B975  10 F3        ..    BPL &B96A
B977  4C E8 B9     L..   JMP &B9E8
B97A  20 2B B0      +.   JSR &B02B
B97D  B0 E7        ..    BCS &B966
B97F  F0 E5        ..    BEQ &B966
B981  9C B5 C2     ...   STZ &C2B5
B984  A6 CF        ..    LDX &CF
B986  38           8     SEC
B987  BD 52 C3     .R.   LDA &C352,X
B98A  E5 C8        ..    SBC &C8
B98C  8D 40 C2     .@.   STA &C240
B98F  BD 48 C3     .H.   LDA &C348,X
B992  E5 C9        ..    SBC &C9
B994  8D 41 C2     .A.   STA &C241
B997  BD 3E C3     .>.   LDA &C33E,X
B99A  E5 CA        ..    SBC &CA
B99C  8D 42 C2     .B.   STA &C242
B99F  BD 34 C3     .4.   LDA &C334,X
B9A2  E5 CB        ..    SBC &CB
B9A4  8D 43 C2     .C.   STA &C243
B9A7  A2 03        ..    LDX #&03
B9A9  A0 05        ..    LDY #&05
B9AB  38           8     SEC
B9AC  B1 C6        ..    LDA (&C6),Y
B9AE  F9 3B C2     .;.   SBC &C23B,Y
B9B1  91 C6        ..    STA (&C6),Y
B9B3  C8           .     INY
B9B4  CA           .     DEX
B9B5  10 F5        ..    BPL &B9AC
B9B7  A6 CF        ..    LDX &CF
B9B9  BD 52 C3     .R.   LDA &C352,X
B9BC  8D 9A C2     ...   STA &C29A
B9BF  9D 7A C3     .z.   STA &C37A,X
B9C2  91 C6        ..    STA (&C6),Y
B9C4  C8           .     INY
B9C5  BD 48 C3     .H.   LDA &C348,X
B9C8  8D 9B C2     ...   STA &C29B
B9CB  9D 70 C3     .p.   STA &C370,X
B9CE  91 C6        ..    STA (&C6),Y
B9D0  C8           .     INY
B9D1  BD 3E C3     .>.   LDA &C33E,X
B9D4  8D 9C C2     ...   STA &C29C
B9D7  9D 66 C3     .f.   STA &C366,X
B9DA  91 C6        ..    STA (&C6),Y
B9DC  C8           .     INY
B9DD  BD 34 C3     .4.   LDA &C334,X
B9E0  8D 9D C2     ...   STA &C29D
B9E3  9D 5C C3     .\.   STA &C35C,X
B9E6  91 C6        ..    STA (&C6),Y
B9E8  A0 01        ..    LDY #&01
B9EA  A2 03        ..    LDX #&03
B9EC  18           .     CLC
B9ED  B9 3F C2     .?.   LDA &C23F,Y
B9F0  71 C6        q.    ADC (&C6),Y
B9F2  91 C6        ..    STA (&C6),Y
B9F4  C8           .     INY
B9F5  CA           .     DEX
B9F6  10 F5        ..    BPL &B9ED
B9F8  A5 C8        ..    LDA &C8
B9FA  D0 03        ..    BNE &B9FF
B9FC  4C 8F BA     L..   JMP &BA8F
B9FF  A6 CF        ..    LDX &CF
BA01  18           .     CLC
BA02  BD CA C3     ...   LDA &C3CA,X
BA05  65 C9        e.    ADC &C9
BA07  8D 96 C2     ...   STA &C296
BA0A  BD C0 C3     ...   LDA &C3C0,X
BA0D  65 CA        e.    ADC &CA
BA0F  8D 97 C2     ...   STA &C297
BA12  BD B6 C3     ...   LDA &C3B6,X
BA15  65 CB        e.    ADC &CB
BA17  8D 98 C2     ...   STA &C298
BA1A  A9 02        ..    LDA #&02
BA1C  CD B4 C2     ...   CMP &C2B4
BA1F  A9 80        ..    LDA #&80
BA21  6A           j     ROR A
BA22  20 EF AE      ..   JSR &AEEF
BA25  A5 C8        ..    LDA &C8
BA27  8D B6 C2     ...   STA &C2B6
BA2A  9C B7 C2     ...   STZ &C2B7
BA2D  A2 02        ..    LDX #&02
BA2F  BD 9B C2     ...   LDA &C29B,X
BA32  D5 C9        ..    CMP &C9,X
BA34  D0 1C        ..    BNE &BA52
BA36  CA           .     DEX
BA37  10 F6        ..    BPL &BA2F
BA39  AD 9A C2     ...   LDA &C29A
BA3C  8D B7 C2     ...   STA &C2B7
BA3F  20 B0 BC      ..   JSR &BCB0
BA42  20 BA 89      ..   JSR &89BA
BA45  20 8C B4      ..   JSR &B48C
BA48  A9 00        ..    LDA #&00
BA4A  CD B5 C2     ...   CMP &C2B5
BA4D  A6 C6        ..    LDX &C6
BA4F  A4 C7        ..    LDY &C7
BA51  60           `     RTS
BA52  20 B0 BC      ..   JSR &BCB0
BA55  A9 00        ..    LDA #&00
BA57  38           8     SEC
BA58  ED B6 C2     ...   SBC &C2B6
BA5B  8D B6 C2     ...   STA &C2B6
BA5E  18           .     CLC
BA5F  6D B8 C2     m..   ADC &C2B8
BA62  8D B8 C2     ...   STA &C2B8
BA65  90 0D        ..    BCC &BA74
BA67  EE B9 C2     ...   INC &C2B9
BA6A  D0 08        ..    BNE &BA74
BA6C  EE BA C2     ...   INC &C2BA
BA6F  D0 03        ..    BNE &BA74
BA71  EE BB C2     ...   INC &C2BB
BA74  38           8     SEC
BA75  AD 40 C2     .@.   LDA &C240
BA78  ED B6 C2     ...   SBC &C2B6
BA7B  8D 40 C2     .@.   STA &C240
BA7E  B0 0F        ..    BCS &BA8F
BA80  A0 01        ..    LDY #&01
BA82  B9 40 C2     .@.   LDA &C240,Y
BA85  E9 00        ..    SBC #&00
BA87  99 40 C2     .@.   STA &C240,Y
BA8A  B0 03        ..    BCS &BA8F
BA8C  C8           .     INY
BA8D  D0 F3        ..    BNE &BA82
BA8F  AD 41 C2     .A.   LDA &C241
BA92  0D 42 C2     .B.   ORA &C242
BA95  0D 43 C2     .C.   ORA &C243
BA98  D0 03        ..    BNE &BA9D
BA9A  4C 15 BB     L..   JMP &BB15
BA9D  A9 01        ..    LDA #&01
BA9F  8D 15 C2     ...   STA &C215
BAA2  A0 03        ..    LDY #&03
BAA4  B9 B8 C2     ...   LDA &C2B8,Y
BAA7  99 16 C2     ...   STA &C216,Y
BAAA  88           .     DEY
BAAB  10 F7        ..    BPL &BAA4
BAAD  A9 02        ..    LDA #&02
BAAF  CD B4 C2     ...   CMP &C2B4
BAB2  A9 02        ..    LDA #&02
BAB4  2A           *     ROL A
BAB5  2A           *     ROL A
BAB6  8D 1A C2     ...   STA &C21A
BAB9  A6 CF        ..    LDX &CF
BABB  A5 C8        ..    LDA &C8
BABD  C9 01        ..    CMP #&01
BABF  BD CA C3     ...   LDA &C3CA,X
BAC2  65 C9        e.    ADC &C9
BAC4  8D 1D C2     ...   STA &C21D
BAC7  BD C0 C3     ...   LDA &C3C0,X
BACA  65 CA        e.    ADC &CA
BACC  8D 1C C2     ...   STA &C21C
BACF  BD B6 C3     ...   LDA &C3B6,X
BAD2  65 CB        e.    ADC &CB
BAD4  8D 1B C2     ...   STA &C21B
BAD7  A0 04        ..    LDY #&04
BAD9  B9 13 C3     ...   LDA &C313,Y
BADC  99 2B C2     .+.   STA &C22B,Y
BADF  88           .     DEY
BAE0  D0 F7        ..    BNE &BAD9
BAE2  8C 17 C3     ...   STY &C317
BAE5  8C 1E C2     ...   STY &C21E
BAE8  8C 1F C2     ...   STY &C21F
BAEB  8C 20 C2     . .   STY &C220
BAEE  18           .     CLC
BAEF  A2 02        ..    LDX #&02
BAF1  B9 41 C2     .A.   LDA &C241,Y
BAF4  99 21 C2     .!.   STA &C221,Y
BAF7  79 B9 C2     y..   ADC &C2B9,Y
BAFA  99 B9 C2     ...   STA &C2B9,Y
BAFD  C8           .     INY
BAFE  CA           .     DEX
BAFF  10 F0        ..    BPL &BAF1
BB01  20 C5 AD      ..   JSR &ADC5
BB04  20 20 8A       .   JSR &8A20
BB07  AD 2F C2     ./.   LDA &C22F
BB0A  8D 17 C3     ...   STA &C317
BB0D  A9 FF        ..    LDA #&FF
BB0F  8D 2F C2     ./.   STA &C22F
BB12  8D 2E C2     ...   STA &C22E
BB15  AD 9A C2     ...   LDA &C29A
BB18  D0 03        ..    BNE &BB1D
BB1A  4C 42 BA     LB.   JMP &BA42
BB1D  A6 CF        ..    LDX &CF
BB1F  18           .     CLC
BB20  BD CA C3     ...   LDA &C3CA,X
BB23  6D 9B C2     m..   ADC &C29B
BB26  8D 96 C2     ...   STA &C296
BB29  BD C0 C3     ...   LDA &C3C0,X
BB2C  6D 9C C2     m..   ADC &C29C
BB2F  8D 97 C2     ...   STA &C297
BB32  BD B6 C3     ...   LDA &C3B6,X
BB35  6D 9D C2     m..   ADC &C29D
BB38  8D 98 C2     ...   STA &C298
BB3B  A9 02        ..    LDA #&02
BB3D  CD B4 C2     ...   CMP &C2B4
BB40  A9 80        ..    LDA #&80
BB42  6A           j     ROR A
BB43  20 EF AE      ..   JSR &AEEF
BB46  9C B6 C2     ...   STZ &C2B6
BB49  AD 9A C2     ...   LDA &C29A
BB4C  8D B7 C2     ...   STA &C2B7
BB4F  20 B0 BC      ..   JSR &BCB0
BB52  4C 42 BA     LB.   JMP &BA42
BB55  24 CD        $.    BIT &CD
BB57  10 29        .)    BPL &BB82                ; Jump if no TUBE is present
BB59  AD BA C2     ...   LDA &C2BA
BB5C  AE BB C2     ...   LDX &C2BB
BB5F  20 53 80      S.   JSR &8053
BB62  AD BA C2     ...   LDA &C2BA
BB65  C9 FE        ..    CMP #&FE
BB67  90 06        ..    BCC &BB6F
BB69  AD BB C2     ...   LDA &C2BB
BB6C  1A           .     INC A
BB6D  F0 13        ..    BEQ &BB82
BB6F  08           .     PHP
BB70  78           x     SEI
BB71  20 32 80      2.   JSR &8032
BB74  A9 40        .@    LDA #%01000000
BB76  04 CD        ..    TSB &CD                  ; Set the 'TUBE claimed by ADFS' flag
BB78  A9 01        ..    LDA #&01                 ; Initialise writing of second processor memory
BB7A  A2 B8        ..    LDX #&B8
BB7C  A0 C2        ..    LDY #&C2
BB7E  20 06 04      ..   JSR tubecontrol
BB81  28           (     PLP
BB82  64 BD        d.    STZ &BD
BB84  AD B8 C2     ...   LDA &C2B8
BB87  85 B2        ..    STA &B2
BB89  AD B9 C2     ...   LDA &C2B9
BB8C  85 B3        ..    STA &B3
BB8E  60           `     RTS
BB8F  24 CD        $.    BIT &CD
BB91  50 04        P.    BVC &BB97                ; Jump if TUBE isn't claimed
BB93  8D E5 FE     ...   STA tubedat
BB96  60           `     RTS
BB97  84 BC        ..    STY &BC
BB99  A4 BD        ..    LDY &BD
BB9B  91 B2        ..    STA (&B2),Y
BB9D  E6 BD        ..    INC &BD
BB9F  D0 02        ..    BNE &BBA3
BBA1  E6 B3        ..    INC &B3
BBA3  A4 BC        ..    LDY &BC
BBA5  60           `     RTS
BBA6  A9 0A        ..    LDA #&0A
BBA8  20 8F BB      ..   JSR &BB8F
BBAB  38           8     SEC
BBAC  A2 09        ..    LDX #&09
BBAE  A0 FF        ..    LDY #&FF
BBB0  C8           .     INY
BBB1  90 0A        ..    BCC &BBBD
BBB3  B1 B4        ..    LDA (&B4),Y
BBB5  29 7F        )    AND #&7F
BBB7  C9 21        .!    CMP #&21
BBB9  B0 02        ..    BCS &BBBD
BBBB  A9 20        .     LDA #&20
BBBD  20 8F BB      ..   JSR &BB8F
BBC0  CA           .     DEX
BBC1  10 ED        ..    BPL &BBB0
BBC3  60           `     RTS
BBC4  E9 05        ..    SBC #&05
BBC6  A8           .     TAY
BBC7  F0 0C        ..    BEQ &BBD5
BBC9  88           .     DEY
BBCA  F0 49        .I    BEQ &BC15
BBCC  88           .     DEY
BBCD  F0 6F        .o    BEQ &BC3E
BBCF  88           .     DEY
BBD0  D0 3D        .=    BNE &BC0F
BBD2  4C 54 BC     LT.   JMP &BC54
BBD5  20 55 BB      U.   JSR &BB55
BBD8  A0 FF        ..    LDY #&FF
BBDA  C8           .     INY
BBDB  B9 D9 C8     ...   LDA &C8D9,Y
BBDE  29 7F        )    AND #&7F
BBE0  C9 20        .     CMP #&20
BBE2  90 04        ..    BCC &BBE8
BBE4  C0 13        ..    CPY #&13
BBE6  D0 F2        ..    BNE &BBDA
BBE8  98           .     TYA
BBE9  20 8F BB      ..   JSR &BB8F
BBEC  A0 FF        ..    LDY #&FF
BBEE  C8           .     INY
BBEF  B9 D9 C8     ...   LDA &C8D9,Y
BBF2  29 7F        )    AND #&7F
BBF4  C9 20        .     CMP #&20
BBF6  90 07        ..    BCC &BBFF
BBF8  20 8F BB      ..   JSR &BB8F
BBFB  C0 13        ..    CPY #&13
BBFD  D0 EF        ..    BNE &BBEE
BBFF  AD FD C1     ...   LDA &C1FD
BC02  20 8F BB      ..   JSR &BB8F
BC05  AD 17 C3     ...   LDA &C317
BC08  0A           .     ASL A
BC09  2A           *     ROL A
BC0A  2A           *     ROL A
BC0B  2A           *     ROL A
BC0C  20 8F BB      ..   JSR &BB8F
BC0F  20 3A 80      :.   JSR &803A                ; Release the TUBE
BC12  4C 48 BA     LH.   JMP &BA48
BC15  20 55 BB      U.   JSR &BB55
BC18  A9 01        ..    LDA #&01
BC1A  20 8F BB      ..   JSR &BB8F
BC1D  AD 17 C3     ...   LDA &C317
BC20  20 35 BC      5.   JSR &BC35
BC23  A9 00        ..    LDA #&00
BC25  85 B4        ..    STA &B4
BC27  A9 C3        ..    LDA #&C3
BC29  85 B5        ..    STA &B5
BC2B  20 A6 BB      ..   JSR &BBA6
BC2E  A9 00        ..    LDA #&00
BC30  20 8F BB      ..   JSR &BB8F
BC33  80 DA        ..    BRA &BC0F
BC35  0A           .     ASL A
BC36  2A           *     ROL A
BC37  2A           *     ROL A
BC38  2A           *     ROL A
BC39  69 30        i0    ADC #&30
BC3B  4C 8F BB     L..   JMP &BB8F
BC3E  20 55 BB      U.   JSR &BB55
BC41  A9 01        ..    LDA #&01
BC43  20 8F BB      ..   JSR &BB8F
BC46  AD 1B C3     ...   LDA &C31B
BC49  20 35 BC      5.   JSR &BC35
BC4C  A9 0A        ..    LDA #&0A
BC4E  85 B4        ..    STA &B4
BC50  A9 C3        ..    LDA #&C3
BC52  80 D5        ..    BRA &BC29
BC54  20 55 BB      U.   JSR &BB55
BC57  9C B5 C2     ...   STZ &C2B5
BC5A  AD FA C8     ...   LDA &C8FA                ; Get the Master sequence number for the current directory (in BCD)
BC5D  92 C6        ..    STA (&C6)
BC5F  A0 05        ..    LDY #&05
BC61  B1 C6        ..    LDA (&C6),Y
BC63  85 B0        ..    STA &B0
BC65  F0 A8        ..    BEQ &BC0F
BC67  A0 09        ..    LDY #&09
BC69  B1 C6        ..    LDA (&C6),Y
BC6B  85 B1        ..    STA &B1
BC6D  C9 2F        ./    CMP #&2F
BC6F  B0 9E        ..    BCS &BC0F
BC71  AA           .     TAX
BC72  18           .     CLC
BC73  A9 05        ..    LDA #&05
BC75  A0 C4        ..    LDY #&C4
BC77  CA           .     DEX
BC78  30 08        0.    BMI &BC82
BC7A  69 1A        i.    ADC #&1A
BC7C  90 F9        ..    BCC &BC77
BC7E  C8           .     INY
BC7F  18           .     CLC
BC80  90 F5        ..    BCC &BC77
BC82  84 B5        ..    STY &B5
BC84  85 B4        ..    STA &B4
BC86  B2 B4        ..    LDA (&B4)
BC88  8D B5 C2     ...   STA &C2B5
BC8B  F0 14        ..    BEQ &BCA1
BC8D  20 A6 BB      ..   JSR &BBA6
BC90  A5 B4        ..    LDA &B4
BC92  18           .     CLC
BC93  69 1A        i.    ADC #&1A
BC95  85 B4        ..    STA &B4
BC97  90 02        ..    BCC &BC9B
BC99  E6 B5        ..    INC &B5
BC9B  E6 B1        ..    INC &B1
BC9D  C6 B0        ..    DEC &B0
BC9F  D0 E5        ..    BNE &BC86
BCA1  A0 05        ..    LDY #&05
BCA3  A5 B0        ..    LDA &B0
BCA5  91 C6        ..    STA (&C6),Y
BCA7  A0 09        ..    LDY #&09
BCA9  A5 B1        ..    LDA &B1
BCAB  91 C6        ..    STA (&C6),Y
BCAD  4C 0F BC     L..   JMP &BC0F
BCB0  AD B6 C2     ...   LDA &C2B6
BCB3  CD B7 C2     ...   CMP &C2B7
BCB6  D0 01        ..    BNE &BCB9
BCB8  60           `     RTS
BCB9  24 CD        $.    BIT &CD
BCBB  10 2C        .,    BPL &BCE9                ; Jump if no TUBE is present
BCBD  AD BA C2     ...   LDA &C2BA
BCC0  AE BB C2     ...   LDX &C2BB
BCC3  20 53 80      S.   JSR &8053
BCC6  AD BA C2     ...   LDA &C2BA
BCC9  C9 FE        ..    CMP #&FE
BCCB  90 06        ..    BCC &BCD3
BCCD  AD BB C2     ...   LDA &C2BB
BCD0  1A           .     INC A
BCD1  F0 16        ..    BEQ &BCE9
BCD3  A9 40        .@    LDA #%01000000
BCD5  04 CD        ..    TSB &CD                  ; Set the 'TUBE is claimed by ADFS' flag
BCD7  20 32 80      2.   JSR &8032
BCDA  AD B4 C2     ...   LDA &C2B4
BCDD  C9 03        ..    CMP #&03
BCDF  A9 00        ..    LDA #&00
BCE1  2A           *     ROL A
BCE2  A2 B8        ..    LDX #&B8
BCE4  A0 C2        ..    LDY #&C2
BCE6  20 06 04      ..   JSR tubecontrol
BCE9  AD B8 C2     ...   LDA &C2B8
BCEC  38           8     SEC
BCED  ED B6 C2     ...   SBC &C2B6
BCF0  85 B2        ..    STA &B2
BCF2  AD B9 C2     ...   LDA &C2B9
BCF5  E9 00        ..    SBC #&00
BCF7  85 B3        ..    STA &B3
BCF9  AD B4 C2     ...   LDA &C2B4
BCFC  C9 03        ..    CMP #&03
BCFE  AC B6 C2     ...   LDY &C2B6
BD01  08           .     PHP
BD02  28           (     PLP
BD03  24 CD        $.    BIT &CD
BD05  70 0E        p.    BCS &BD15
BD07  90 06        ..    BCC &BD0F
BD09  B1 BE        ..    LDA (&BE),Y
BD0B  91 B2        ..    STA (&B2),Y
BD0D  B0 17        ..    BCS &BD26
BD0F  B1 B2        ..    LDA (&B2),Y
BD11  91 BE        ..    STA (&BE),Y
BD13  90 11        ..    BCC &BD26
BD15  20 1C 82      ..   JSR &821C
BD18  90 07        ..    BCC &BD21
BD1A  B1 BE        ..    LDA (&BE),Y
BD1C  8D E5 FE     ...   STA tubedat
BD1F  B0 05        ..    BCS &BD26
BD21  AD E5 FE     ...   LDA tubedat
BD24  91 BE        ..    STA (&BE),Y
BD26  C8           .     INY
BD27  08           .     PHP
BD28  CC B7 C2     ...   CPY &C2B7
BD2B  D0 D5        ..    BNE &BD02
BD2D  28           (     PLP
BD2E  4C 3A 80     L:.   JMP &803A                ; Release the TUBE
BD31  8E 95 C2     ...   STX &C295
BD34  8C 2B C2     .+.   STY &C22B
BD37  A9 70        .p    LDA #&70
BD39  20 D0 84      ..   JSR &84D0
BD3C  20 67 BD      g.   JSR &BD67
BD3F  CC 2B C2     .+.   CPY &C22B
BD42  B0 3A        .:    BCS &BD7E
BD44  AE 95 C2     ...   LDX &C295
BD47  AD FC C3     ...   LDA &C3FC
BD4A  38           8     SEC
BD4B  ED 95 C2     ...   SBC &C295
BD4E  CD 2B C2     .+.   CMP &C22B
BD51  B0 2B        .+    BCS &BD7E
BD53  A9 16        ..    LDA #&16                 ; MODE 135
BD55  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
BD58  A9 87        ..    LDA #&87
BD5A  20 ED A3      ..   JSR &A3ED                ; Write character to output stream
BD5D  20 67 BD      g.   JSR &BD67
BD60  C0 4C        .L    CPY #&4C
BD62  F0 1A        ..    BEQ &BD7E
BD64  4C 81 A6     L..   JMP &A681
BD67  A0 00        ..    LDY #&00
BD69  A9 75        .u    LDA #&75
BD6B  20 F4 FF      ..   JSR osbyte
BD6E  8A           .     TXA
BD6F  29 10        ).    AND #&10
BD71  F0 06        ..    BEQ &BD79
BD73  A9 87        ..    LDA #&87
BD75  20 F4 FF      ..   JSR osbyte
BD78  C8           .     INY
BD79  B9 80 BD     ...   LDA &BD80,Y
BD7C  A2 30        .0    LDX #&30
BD7E  A8           .     TAY
BD7F  60           `     RTS
BD80  50 00        P.    BVC &BD82
BD82  00           .     BRK
BD83  00           .     BRK
BD84  10 18        ..    BPL &BD9E
BD86  18           .     CLC
BD87  20 4C 48      LH   JSR &484C
BD8A  AD 34 FE     .4.   LDA acccon
BD8D  8D D9 C2     ...   STA &C2D9
BD90  09 04        ..    ORA #%00000100           ; Set bit 2 in the ACCCON register (Select shadow RAM)
BD92  8D 34 FE     .4.   STA acccon
BD95  68           h     PLA
BD96  60           `     RTS
BD97  48           H     PHA
BD98  AD D9 C2     ...   LDA &C2D9
BD9B  F0 03        ..    BEQ &BDA0
BD9D  8D 34 FE     .4.   STA acccon
BDA0  9C D9 C2     ...   STZ &C2D9
BDA3  68           h     PLA
BDA4  60           `     RTS
BDA5  20 42 96      B.   JSR &9642
BDA8  20 35 88      5.   JSR &8835
BDAB  8D 6F C2     .o.   STA &C26F
BDAE  0A           .     ASL A
BDAF  30 0D        0.    BMI &BDBE
BDB1  B0 06        ..    BCS &BDB9
BDB3  A5 CD        ..    LDA &CD
BDB5  29 20        )     AND #%00100000
BDB7  D0 05        ..    BNE &BDBE                ; Jump if the 'Winchester disc controller present' flag is set
BDB9  20 3F 96      ?.   JSR &963F
BDBC  B0 03        ..    BCS &BDC1
BDBE  4C 31 96     L1.   JMP &9631
BDC1  09 20        .     ORA #&20
BDC3  AA           .     TAX
BDC4  A9 28        .(    LDA #&28
BDC6  E0 73        .s    CPX #&73
BDC8  F0 0A        ..    BEQ &BDD4
BDCA  0A           .     ASL A
BDCB  E0 6D        .m    CPX #&6D
BDCD  F0 05        ..    BEQ &BDD4
BDCF  0A           .     ASL A
BDD0  E0 6C        .l    CPX #&6C
BDD2  D0 EA        ..    BNE &BDBE
BDD4  48           H     PHA
BDD5  20 3F 96      ?.   JSR &963F
BDD8  B0 E4        ..    BCS &BDBE
BDDA  20 00 B5      ..   JSR &B500
BDDD  20 55 92      U.   JSR &9255                ; Write string to output stream
BDE0  0D 46 6F     .Fo   ORA &6F46
BDE3  72 6D        rm    ADC (&6D)
BDE5  61 74        at    ADC (&74,X)
BDE7  20 BA AD      ..   JSR &ADBA
BDEA  6F C2        o.    BBR6 &BDAE
BDEC  20 DC 92      ..   JSR &92DC
BDEF  20 55 92      U.   JSR &9255                ; Write string to output stream
BDF2  20 3F A0      ?.   JSR &A03F
BDF5  20 31 9D      1.   JSR &9D31
BDF8  20 55 92      U.   JSR &9255                ; Write string to output stream
BDFB  0D 46 6F     .Fo   ORA &6F46
BDFE  72 6D        rm    ADC (&6D)
BE00  61 74        at    ADC (&74,X)
BE02  74 69        ti    STZ &69,X
BE04  6E 67 2E     ng.   ROR &2E67
BE07  2E 2E 2E     ...   ROL &2E2E
BE0A  2E AE A9     ...   ROL &A9AE
BE0D  10 14        ..    BPL &BE23
BE0F  CD AD 6F     ..o   CMP &6FAD
BE12  C2            .     ...
BE13  7A           z     PLY
BE14  20 AF BF      ..   JSR &BFAF
BE17  CA           .     EQUW &B8CA
BE19  F0 03        ..    BEQ &BE1E
BE1B  4C BE 82     L..   JMP &82BE
BE1E  AD 17 C3     ...   LDA &C317
BE21  48           H     PHA
BE22  AD 6F C2     .o.   LDA &C26F
BE25  8D 17 C3     ...   STA &C317
BE28  20 32 BE      2.   JSR &BE32
BE2B  68           h     PLA
BE2C  8D 17 C3     ...   STA &C317
BE2F  4C FC 97     L..   JMP &97FC
BE32  20 57 BE      W.   JSR &BE57
BE35  AD 44 FE     .D.   LDA sysvia_t1cl
BE38  8D FB C1     ...   STA &C1FB
BE3B  AC 44 FE     .D.   LDY sysvia_t1cl
BE3E  88           .     DEY
BE3F  D0 FD        ..    BNE &BE3E
BE41  AD 44 FE     .D.   LDA sysvia_t1cl
BE44  8D FC C1     ...   STA &C1FC
BE47  20 32 90      2.   JSR &9032
BE4A  8E FF C0     ...   STX &C0FF
BE4D  8D FF C1     ...   STA &C1FF
BE50  A2 A4        ..    LDX #&A4
BE52  A0 BF        ..    LDY #&BF
BE54  4C AF 82     L..   JMP &82AF
BE57  A2 8E        ..    LDX #&8E
BE59  A0 BF        ..    LDY #&BF
BE5B  4C AF 82     L..   JMP &82AF
BE5E  FF FF        ..    BBS7 &BE5F
BE60  FF FF        ..    BBS7 &BE61
BE62  FF FF        ..    BBS7 &BE63
BE64  FF FF        ..    BBS7 &BE65
BE66  FF FF        ..    BBS7 &BE67
BE68  FF FF        ..    BBS7 &BE69
BE6A  FF FF        ..    BBS7 &BE6B
BE6C  FF FF        ..    BBS7 &BE6D
BE6E  FF FF        ..    BBS7 &BE6F
BE70  FF FF        ..    BBS7 &BE71
BE72  FF FF        ..    BBS7 &BE73
BE74  FF FF        ..    BBS7 &BE75
BE76  FF FF        ..    BBS7 &BE77
BE78  FF FF        ..    BBS7 &BE79
BE7A  FF FF        ..    BBS7 &BE7B
BE7C  FF FF        ..    BBS7 &BE7D
BE7E  FF FF        ..    BBS7 &BE7F
BE80  FF FF        ..    BBS7 &BE81
BE82  FF FF        ..    BBS7 &BE83
BE84  FF FF        ..    BBS7 &BE85
BE86  FF FF        ..    BBS7 &BE87
BE88  FF FF        ..    BBS7 &BE89
BE8A  FF FF        ..    BBS7 &BE8B
BE8C  FF FF        ..    BBS7 &BE8D
BE8E  FF FF        ..    BBS7 &BE8F
BE90  FF FF        ..    BBS7 &BE91
BE92  FF FF        ..    BBS7 &BE93
BE94  FF FF        ..    BBS7 &BE95
BE96  FF FF        ..    BBS7 &BE97
BE98  FF FF        ..    BBS7 &BE99
BE9A  FF FF        ..    BBS7 &BE9B
BE9C  FF FF        ..    BBS7 &BE9D
BE9E  FF FF        ..    BBS7 &BE9F
BEA0  FF FF        ..    BBS7 &BEA1
BEA2  FF FF        ..    BBS7 &BEA3
BEA4  FF FF        ..    BBS7 &BEA5
BEA6  FF FF        ..    BBS7 &BEA7
BEA8  FF FF        ..    BBS7 &BEA9
BEAA  FF FF        ..    BBS7 &BEAB
BEAC  FF FF        ..    BBS7 &BEAD
BEAE  FF FF        ..    BBS7 &BEAF
BEB0  FF FF        ..    BBS7 &BEB1
BEB2  FF FF        ..    BBS7 &BEB3
BEB4  FF FF        ..    BBS7 &BEB5
BEB6  FF FF        ..    BBS7 &BEB7
BEB8  FF FF        ..    BBS7 &BEB9
BEBA  FF FF        ..    BBS7 &BEBB
BEBC  FF FF        ..    BBS7 &BEBD
BEBE  FF FF        ..    BBS7 &BEBF
BEC0  FF FF        ..    BBS7 &BEC1
BEC2  FF FF        ..    BBS7 &BEC3
BEC4  FF FF        ..    BBS7 &BEC5
BEC6  FF FF        ..    BBS7 &BEC7
BEC8  FF FF        ..    BBS7 &BEC9
BECA  FF FF        ..    BBS7 &BECB
BECC  FF FF        ..    BBS7 &BECD
BECE  FF FF        ..    BBS7 &BECF
BED0  FF FF        ..    BBS7 &BED1
BED2  FF FF        ..    BBS7 &BED3
BED4  FF FF        ..    BBS7 &BED5
BED6  FF FF        ..    BBS7 &BED7
BED8  FF FF        ..    BBS7 &BED9
BEDA  FF FF        ..    BBS7 &BEDB
BEDC  FF FF        ..    BBS7 &BEDD
BEDE  FF FF        ..    BBS7 &BEDF
BEE0  FF FF        ..    BBS7 &BEE1
BEE2  FF FF        ..    BBS7 &BEE3
BEE4  FF FF        ..    BBS7 &BEE5
BEE6  FF FF        ..    BBS7 &BEE7
BEE8  FF FF        ..    BBS7 &BEE9
BEEA  FF FF        ..    BBS7 &BEEB
BEEC  FF FF        ..    BBS7 &BEED
BEEE  FF FF        ..    BBS7 &BEEF
BEF0  FF FF        ..    BBS7 &BEF1
BEF2  FF FF        ..    BBS7 &BEF3
BEF4  FF FF        ..    BBS7 &BEF5
BEF6  FF FF        ..    BBS7 &BEF7
BEF8  FF FF        ..    BBS7 &BEF9
BEFA  FF FF        ..    BBS7 &BEFB
BEFC  FF FF        ..    BBS7 &BEFD
BEFE  FF FF        ..    BBS7 &BEFF
BF00  FF FF        ..    BBS7 &BF01
BF02  FF FF        ..    BBS7 &BF03
BF04  FF FF        ..    BBS7 &BF05
BF06  FF FF        ..    BBS7 &BF07
BF08  FF FF        ..    BBS7 &BF09
BF0A  FF FF        ..    BBS7 &BF0B
BF0C  FF FF        ..    BBS7 &BF0D
BF0E  FF FF        ..    BBS7 &BF0F
BF10  FF FF        ..    BBS7 &BF11
BF12  FF FF        ..    BBS7 &BF13
BF14  FF FF        ..    BBS7 &BF15
BF16  FF FF        ..    BBS7 &BF17
BF18  FF FF        ..    BBS7 &BF19
BF1A  FF FF        ..    BBS7 &BF1B
BF1C  FF FF        ..    BBS7 &BF1D
BF1E  FF FF        ..    BBS7 &BF1F
BF20  FF FF        ..    BBS7 &BF21
BF22  FF FF        ..    BBS7 &BF23
BF24  FF FF        ..    BBS7 &BF25
BF26  FF FF        ..    BBS7 &BF27
BF28  FF FF        ..    BBS7 &BF29
BF2A  FF FF        ..    BBS7 &BF2B
BF2C  FF FF        ..    BBS7 &BF2D
BF2E  FF FF        ..    BBS7 &BF2F
BF30  FF FF        ..    BBS7 &BF31
BF32  FF FF        ..    BBS7 &BF33
BF34  FF FF        ..    BBS7 &BF35
BF36  FF FF        ..    BBS7 &BF37
BF38  FF FF        ..    BBS7 &BF39
BF3A  FF FF        ..    BBS7 &BF3B
BF3C  FF FF        ..    BBS7 &BF3D
BF3E  FF FF        ..    BBS7 &BF3F
BF40  FF FF        ..    BBS7 &BF41
BF42  FF FF        ..    BBS7 &BF43
BF44  FF FF        ..    BBS7 &BF45
BF46  FF FF        ..    BBS7 &BF47
BF48  FF FF        ..    BBS7 &BF49
BF4A  FF FF        ..    BBS7 &BF4B
BF4C  FF FF        ..    BBS7 &BF4D
BF4E  FF FF        ..    BBS7 &BF4F
BF50  FF FF        ..    BBS7 &BF51
BF52  FF FF        ..    BBS7 &BF53
BF54  FF FF        ..    BBS7 &BF55
BF56  FF FF        ..    BBS7 &BF57
BF58  FF FF        ..    BBS7 &BF59
BF5A  FF FF        ..    BBS7 &BF5B
BF5C  FF FF        ..    BBS7 &BF5D
BF5E  FF FF        ..    BBS7 &BF5F
BF60  FF FF        ..    BBS7 &BF61
BF62  FF FF        ..    BBS7 &BF63
BF64  FF FF        ..    BBS7 &BF65
BF66  FF FF        ..    BBS7 &BF67
BF68  FF FF        ..    BBS7 &BF69
BF6A  FF FF        ..    BBS7 &BF6B
BF6C  FF FF        ..    BBS7 &BF6D
BF6E  FF FF        ..    BBS7 &BF6F
BF70  FF FF        ..    BBS7 &BF71
BF72  FF FF        ..    BBS7 &BF73
BF74  FF FF        ..    BBS7 &BF75
BF76  FF FF        ..    BBS7 &BF77
BF78  FF FF        ..    BBS7 &BF79
BF7A  FF FF        ..    BBS7 &BF7B
BF7C  FF FF        ..    BBS7 &BF7D
BF7E  FF FF        ..    BBS7 &BF7F
BF80  FF FF        ..    BBS7 &BF81
BF82  FF FF        ..    BBS7 &BF83
BF84  FF FF        ..    BBS7 &BF85
BF86  FF FF        ..    BBS7 &BF87
BF88  FF FF        ..    BBS7 &BF89
BF8A  FF FF        ..    BBS7 &BF8B
BF8C  FF FF        ..    BBS7 &BF8D
BF8E  01 00        ..    ORA (&00,X)
BF90  C0 FF        ..    CPY #&FF
BF92  FF 08        ..    BBS7 &BF9C
BF94  00           .     BRK
BF95  00           .     BRK
BF96  00           .     BRK
BF97  02            .     ...
BF98  00           .     BRK
BF99  01 00        ..    ORA (&00,X)
BF9B  C4 FF        ..    CPY &FF
BF9D  FF 08        ..    BBS7 &BFA7
BF9F  00           .     BRK
BFA0  00           .     BRK
BFA1  02            .     ...
BFA2  05 00        ..    ORA &00
BFA4  01 00        ..    ORA (&00,X)
BFA6  C0 FF        ..    CPY #&FF
BFA8  FF 0A        ..    BBS7 &BFB4
BFAA  00           .     BRK
BFAB  00           .     BRK
BFAC  00           .     BRK
BFAD  02            .     ...
BFAE  00           .     BRK
BFAF  20 C5 BF      ..   JSR &BFC5
BFB2  08           .     PHP
BFB3  48           H     PHA
BFB4  80 38        .8    BRA &BFEE
BFB6  FE 0A 01     ...   INC &010A,X
BFB9  E6 B0        ..    INC &B0
BFBB  D0 05        ..    BNE &BFC2
BFBD  FE 0B 01     ...   INC &010B,X
BFC0  E6 B1        ..    INC &B1
BFC2  B2 B0        ..    LDA (&B0)
BFC4  60           `     RTS
BFC5  48           H     PHA
BFC6  48           H     PHA
BFC7  08           .     PHP
BFC8  48           H     PHA
BFC9  DA           .     PHX
BFCA  A5 B0        ..    LDA &B0
BFCC  48           H     PHA
BFCD  A5 B1        ..    LDA &B1
BFCF  48           H     PHA
BFD0  BA           .     TSX
BFD1  BD 0A 01     ...   LDA &010A,X
BFD4  85 B0        ..    STA &B0
BFD6  BD 0B 01     ...   LDA &010B,X
BFD9  85 B1        ..    STA &B1
BFDB  20 B6 BF      ..   JSR &BFB6
BFDE  9D 06 01     ...   STA &0106,X
BFE1  20 B6 BF      ..   JSR &BFB6
BFE4  9D 07 01     ...   STA &0107,X
BFE7  68           h     PLA
BFE8  85 B1        ..    STA &B1
BFEA  68           h     PLA
BFEB  85 B0        ..    STA &B0
BFED  FA           .     PLX
BFEE  A5 F4        ..    LDA &F4
BFF0  89 08        ..    BIT #&08
BFF2  F0 02        ..    BEQ &BFF6
BFF4  49 05        I.    EOR #&05
BFF6  49 01        I.    EOR #&01
BFF8  85 F4        ..    STA &F4
BFFA  8D 30 FE     .0.   STA romsel
BFFD  68           h     PLA
BFFE  28           (     PLP
BFFF  60           `     RTS
