usrjmp = $0
              usrjmp+1 = $1
              bmpnt = $2
              bmpnt+1 = $3
              t0_temp = $4
              t1 = $5
              t2 = $6
              t3 = $7
              tmp_fdc = $8
              ip = $A
              ip+1 = $B
              lsnadr = $C
              tlkadr = $D
              lsnact = $E
              tlkact = $F
              lsntlk? = $10
              prgtrk = $11
              drvnum = $12
              track = $13
              sector = $14
              lindx = $15
              sa = $16
              orgsa = $17
              data = $18
              r0 = $19
              r1 = $1A
              r2 = $1B
              r3 = $1C
              r4 = $1D
              result = $1E
              result+1 = $1F
              result+2 = $20
              result+3 = $21
              accum+1 = $23
              accum+2 = $24
              accum+3 = $25
              accum+4 = $26
              dirbuf = $27
              dirbuf+1 = $28
              buftab_0 = $29
              buftab_0+1 = $2A
              L37 = $37
              io_via40_pb_fdc = $40
              io_diskdata_read_fdc = $41
              io_via40_ddrb_fdc = $42
              L44 = $44
              cb_buftab_cmdbuf = $45
              buftab_errbuf? = $47
              cb+3 = $48
              buf0 = $49
              io_via40_acr_fdc = $4B
              io_via40_pcr_fdc = $4C
              io_via40_ifr_fdc = $4D
              L4F = $4F
              L50 = $50
              buf1 = $51
              recl = $59
              rech = $61
              nr = $69
              rs = $71
              ss = $79
              io_diskdata_write_fdc = $80
              f1ptr = $81
              recptr = $82
              ssnum = $83
              ssind = $84
              relptr = $85
              entsec = $86
              entsec+1 = $87
              L8A = $8A
              entind = $8B
              entind+1 = $8C
              io_riot80_t8_fdc = $8F
              fildrv = $90
              fildrv+1 = $91
              fildrv+4 = $94
              pattyp = $95
              pattyp+1 = $96
              L97 = $97
              filtyp = $9A
              chnrdy = $A2
              LA3 = $A3
              LA8 = $A8
              LA9 = $A9
              eoiflg = $AA
              jobnum = $AB
              lintab = $AC
              LBA = $BA
              LBB = $BB
              LBC = $BC
              LBD = $BD
              LBE = $BE
              chndat = $BF
              chndat+errchn = $C6
              lstchr = $C7
              LC9 = $C9
              LCD = $CD
              lstchr+errchn = $CE
              type = $CF
              LD1 = $D1
              LDB = $DB
              LDF = $DF
              LE5 = $E5
              LE6 = $E6
              LE7 = $E7
              LE9 = $E9
              LEB = $EB
              LED = $ED
              LEE = $EE
              LF0 = $F0
              LF1 = $F1
              LF2 = $F2
              LF3 = $F3
              LF6 = $F6
              LFA = $FA
              LFC = $FC
              io_ieee_data_in = $200
              io_ieee_data_out = $202
              io_ieee_data_out_ddr = $203
              io_ieee_ctl = $280
              io_ieee_ctl_ddr = $281
              io_dskcnt = $282
              io_dskcnt_ddr = $283
              io_ifr? = $287
              fdc_resetphase_fdc = $400
              L401 = $401
              L402 = $402
              header_dskid_fdc = $421
              header_dskid_fdc+1 = $422
              header_track_fdc = $423
              header_sector_fdc = $424
              hwdep_1099_maxsecperzone = $499
              headergap_size_fdc = $49D
              L49E = $49E
              min_sync_length_fdc = $4A5
              wpsw_fdc = $4A6
              nsides?_fdc = $4AC
              trknum_side0?_fdc-1 = $4AF
              trknum_side0?_fdc = $4B0
              trknum_side1?_fdc-1 = $4B3
              drive_type_fdc = $4EA
              steps?_fdc = $4EB
              phases_per_track? = $4EE
              L521 = $521
              L59C = $59C
              L5B3 = $5B3
              L67F = $67F
              L681 = $681
              L6A9 = $6A9
              L776 = $776
              L782 = $782
              L7A4 = $7A4
              L7A6 = $7A6
              L7BF = $7BF
              L7F8 = $7F8
              L827 = $827
              L870 = $870
              L871 = $871
              L872 = $872
              L873 = $873
              L874 = $874
              L875 = $875
              L876 = $876
              L877 = $877
              L878 = $878
              L879 = $879
              L87A = $87A
              L87B = $87B
              L87C = $87C
              L87D = $87D
              L87E = $87E
              L87F = $87F
              fdc_resetphase = $1000
              jobs = $1003
              hdrs_dskid = $1021
              hdrs_dskid+1 = $1022
              hdrs_track = $1023
              hdrs_sector = $1024
              hwdep_1099_maxsecperzone = $1099
              vernum = $109F
              phase = $10A1
              nzones = $10A4
              wpsw = $10A6
              wpsw+1 = $10A7
              killp_flag = $10AB
              nsides? = $10AC
              hwdep_10ad_fmt_trk_?? = $10AD
              trknum_side0?-1 = $10AF
              trknum_side0? = $10B0
              trknum_side1?-1 = $10B3
              bamtrack? = $10C0
              L10C1 = $10C1
              hwdep_bamsecs? = $10C5
              dirtrack = $10CA
              bamsiz = $10CB
              hwdep_10cc = $10CC
              hwdep_10cd_bamlowtrkoff = $10CD
              positionofdiskname = $10CE
              L10CF = $10CF
              L10D0 = $10D0
              L10D8 = $10D8
              L10E0 = $10E0
              maxtrk = $10E9
              drive_type = $10EA
              mintrk_side2? = $10ED
              i2nmi = $10F0
              i2nmi+1 = $10F1
              nmiflag = $10F2
              autofg = $10F3
              secinc = $10F4
              revcnt = $10F5
              iidle = $10F6
              L10F7 = $10F7
              buff0 = $1100
              L1101 = $1101
              L1102 = $1102
              L1103 = $1103
              L17A2 = $17A2
              buff0_shadow = $1D00
              buff1_shadow = $1E00
              buff2_shadow = $1F00
              buff3 = $2000
              formatcode_2070 = $2070
              formatcode_2073 = $2073
              formatcode_2075 = $2075
              L27B1 = $27B1
              dskver0_buf = $4102
              dskver1_buf = $4202
              cmdbuf = $4300
              cmdbuf+1 = $4301
              cmdbuf+2 = $4302
              cmdbuf+3 = $4303
              cmdbuf+4 = $4304
              cmdbuf+5 = $4305
              cmdbuf+6 = $4306
              cmdnum = $433B
              strsiz = $433C
              tempsa = $433D
              cmd = $433E
              lstsec? = $433F
              bufuse = $4340
              bufuse+1 = $4341
              dskid = $4342
              dskid+1 = $4343
              mdirty = $4346
              entfnd = $4348
              L4349 = $4349
              cmdwat = $434A
              linuse = $434B
              L434C = $434C
              rec = $434D
              trkss = $434E
              secss = $434F
              lstjob = $4350
              dsec = $435F
              dind = $4367
              wbam? = $436F
              prgdrv = $4370
              prgsec = $4371
              wlindx = $4372
              nbtmp = $4374
              nbtmp+1 = $4375
              cmdsiz = $4376
              char = $4377
              limit = $4378
              f1cnt = $4379
              f2cnt = $437A
              f2ptr = $437B
              filtbl = $437C
              filtbl+1 = $437D
              filtbl+5 = $4381
              filtrk = $4382
              filtrk+1 = $4383
              filtrk+4 = $4386
              filsec = $4387
              filsec+1 = $4388
              filsec+2 = $4389
              patflg = $438C
              image = $438D
              drvcnt = $438E
              drvflg = $438F
              lstdrv = $4390
              found? = $4391
              dirsec = $4392
              delsec = $4393
              delind = $4394
              lstbuf = $4395
              index = $4396
              filcnt = $4397
              typflg = $4398
              mode = $4399
              jobrtn = $439A
              eptr = $439B
              toff = $439C
              ndbl = $439D
              ndbh = $439F
              nodrv = $43A1
              L43A3 = $43A3
              2c77_FF_2c154_00? = $43A4
              nambuf-1 = $43B7
              nambuf = $43B8
              nambuf+1 = $43B9
              nambuf+2 = $43BA
              L43CA = $43CA
              L43CB = $43CB
              errbuf = $43DC
              L78A9 = $78A9
              L90A5 = $90A5
              L90A9 = $90A9
              .ORG $C000
C000          formatcode_0500:
C000 A9 00      LDA #$0
C002 8D 77 08   STA L877
C005 AD AC 04   LDA nsides?_fdc
C008 8D 78 08   STA L878
C00B A6 13      LDX track
C00D AD 70 08   LDA L870
C010 8D 7B 08   STA L87B
C013 95 21      STA result+3,X
C015 AD B0 04   LDA trknum_side0?_fdc
C018 8D 76 08   STA L876
C01B A5 82      LDA recptr
C01D 09 10      ORA #$10
C01F 85 82      STA recptr
C021 A9 03      LDA #$3
C023 8D 7E 08   STA L87E
C026 A9 30      LDA #$30
C028 8D 7F 08   STA L87F
C02B 20 76 07   JSR L776
C02E A5 82      LDA recptr
C030 29 08      AND #$8
C032 F0 03      BEQ LC037
C034          LC034:
C034 4C F8 07   JMP L7F8
C037          LC037:
C037 20 A6 07   JSR L7A6
C03A A9 DE      LDA #$DE
C03C A2 FF      LDX #$FF
C03E          LC03E:
C03E 50 FE      BVC LC03E
C040          LC040:
C040 B8         CLV
C041 86 80      STX io_diskdata_write_fdc
C043 85 4C      STA io_via40_pcr_fdc
C045 A0 04      LDY #$4
C047 A9 FC      LDA #$FC
C049          LC049:
C049 50 FE      BVC LC049
C04B          LC04B:
C04B B8         CLV
C04C 88         DEY
C04D 10 FA      BPL LC049
C04F          LC04F:
C04F 85 4C      STA io_via40_pcr_fdc
C051 A5 40      LDA io_via40_pb_fdc
C053 29 BF      AND #$BF
C055 85 40      STA io_via40_pb_fdc
C057 A9 40      LDA #$40
C059 09 01      ORA #$1
C05B 85 4B      STA io_via40_acr_fdc
C05D A2 E8      LDX #$E8
C05F 86 44      STX L44
C061 A2 03      LDX #$3
C063 A0 00      LDY #$0
C065          LC065:
C065 A5 40      LDA io_via40_pb_fdc
C067 30 FC      BMI LC065
C069          LC069:
C069 A5 40      LDA io_via40_pb_fdc
C06B 10 FC      BPL LC069
C06D          LC06D:
C06D 86 45      STX cb_buftab_cmdbuf
C06F          LC06F:
C06F A5 44      LDA L44
C071          LC071:
C071 A5 40      LDA io_via40_pb_fdc
C073 10 0C      BPL LC081
C075          LC075:
C075 A5 4D      LDA io_via40_ifr_fdc
C077 0A         ASL A
C078 10 F7      BPL LC071
C07A          LC07A:
C07A C8         INY
C07B D0 F2      BNE LC06F
C07D          LC07D:
C07D F0 18      BEQ LC097
C07F          LC07F:
C07F A5 44      LDA L44
C081          LC081:
C081 A5 40      LDA io_via40_pb_fdc
C083 30 0A      BMI LC08F
C085          LC085:
C085 A5 4D      LDA io_via40_ifr_fdc
C087 0A         ASL A
C088 10 F7      BPL LC081
C08A          LC08A:
C08A C8         INY
C08B D0 F2      BNE LC07F
C08D          LC08D:
C08D F0 08      BEQ LC097
C08F          LC08F:
C08F C0 C5      CPY #$C5
C091 90 04      BCC LC097
C093          LC093:
C093 C0 CC      CPY #$CC
C095 90 05      BCC LC09C
C097          LC097:
C097 A9 0C      LDA #$C
C099 4C F8 07   JMP L7F8
C09C          LC09C:
C09C AD 70 08   LDA L870
C09F 4D 21 04   EOR header_dskid_fdc
C0A2 4D 22 04   EOR header_dskid_fdc+1
C0A5 8D 72 08   STA L872
C0A8 A9 00      LDA #$0
C0AA 8D 71 08   STA L871
C0AD 20 BF 07   JSR L7BF
C0B0 20 A6 07   JSR L7A6
C0B3 A9 DE      LDA #$DE
C0B5 A2 FF      LDX #$FF
C0B7          LC0B7:
C0B7 50 FE      BVC LC0B7
C0B9          LC0B9:
C0B9 B8         CLV
C0BA 86 80      STX io_diskdata_write_fdc
C0BC 85 4C      STA io_via40_pcr_fdc
C0BE A2 08      LDX #$8
C0C0 A9 DC      LDA #$DC
C0C2 A0 03      LDY #$3
C0C4          LC0C4:
C0C4 50 FE      BVC LC0C4
C0C6          LC0C6:
C0C6 B8         CLV
C0C7 88         DEY
C0C8 D0 FA      BNE LC0C4
C0CA          LC0CA:
C0CA 50 FE      BVC LC0CA
C0CC          LC0CC:
C0CC B8         CLV
C0CD 86 80      STX io_diskdata_write_fdc
C0CF 85 4C      STA io_via40_pcr_fdc
C0D1 AD 72 08   LDA L872
C0D4 A2 FF      LDX #$FF
C0D6          LC0D6:
C0D6 50 FE      BVC LC0D6
C0D8          LC0D8:
C0D8 B8         CLV
C0D9 85 80      STA io_diskdata_write_fdc
C0DB 4D 71 08   EOR L871
C0DE AC 71 08   LDY L871
C0E1 EE 71 08   INC L871
C0E4          LC0E4:
C0E4 50 FE      BVC LC0E4
C0E6          LC0E6:
C0E6 B8         CLV
C0E7 84 80      STY io_diskdata_write_fdc
C0E9 4D 71 08   EOR L871
C0EC 8D 72 08   STA L872
C0EF AD 70 08   LDA L870
C0F2          LC0F2:
C0F2 50 FE      BVC LC0F2
C0F4          LC0F4:
C0F4 B8         CLV
C0F5 85 80      STA io_diskdata_write_fdc
C0F7 AD 22 04   LDA header_dskid_fdc+1
C0FA AC 21 04   LDY header_dskid_fdc
C0FD          LC0FD:
C0FD 50 FE      BVC LC0FD
C0FF          LC0FF:
C0FF B8         CLV
C100          formatcode_0500+$0100:
C100 85 80      STA io_diskdata_write_fdc
C102          LC102:
C102 50 FE      BVC LC102
C104          LC104:
C104 B8         CLV
C105 84 80      STY io_diskdata_write_fdc
C107 A9 0F      LDA #$F
C109          LC109:
C109 50 FE      BVC LC109
C10B          LC10B:
C10B B8         CLV
C10C 85 80      STA io_diskdata_write_fdc
C10E A9 DE      LDA #$DE
C110 AC 9D 04   LDY headergap_size_fdc
C113          LC113:
C113 50 FE      BVC LC113
C115          LC115:
C115 B8         CLV
C116 88         DEY
C117 D0 FA      BNE LC113
C119          LC119:
C119 50 FE      BVC LC119
C11B          LC11B:
C11B B8         CLV
C11C 86 80      STX io_diskdata_write_fdc
C11E 85 4C      STA io_via40_pcr_fdc
C120 A0 03      LDY #$3
C122          LC122:
C122 50 FE      BVC LC122
C124          LC124:
C124 B8         CLV
C125 88         DEY
C126 D0 FA      BNE LC122
C128          LC128:
C128 50 FE      BVC LC128
C12A          LC12A:
C12A B8         CLV
C12B A9 DC      LDA #$DC
C12D A2 07      LDX #$7
C12F          LC12F:
C12F 50 FE      BVC LC12F
C131          LC131:
C131 B8         CLV
C132 86 80      STX io_diskdata_write_fdc
C134 85 4C      STA io_via40_pcr_fdc
C136 A0 FF      LDY #$FF
C138 AD 73 08   LDA L873
C13B          LC13B:
C13B 50 FE      BVC LC13B
C13D          LC13D:
C13D B8         CLV
C13E 85 80      STA io_diskdata_write_fdc
C140          LC140:
C140 50 FE      BVC LC140
C142          LC142:
C142 B8         CLV
C143 88         DEY
C144 D0 FA      BNE LC140
C146          LC146:
C146 A9 00      LDA #$0
C148          LC148:
C148 50 FE      BVC LC148
C14A          LC14A:
C14A B8         CLV
C14B 85 80      STA io_diskdata_write_fdc
C14D AC 74 08   LDY L874
C150 A2 FC      LDX #$FC
C152          LC152:
C152 50 FE      BVC LC152
C154          LC154:
C154 B8         CLV
C155 88         DEY
C156 D0 FA      BNE LC152
C158          LC158:
C158 50 FE      BVC LC158
C15A          LC15A:
C15A B8         CLV
C15B AD 71 08   LDA L871
C15E CD 77 08   CMP L877
C161 F0 03      BEQ LC166
C163          LC163:
C163 4C B3 05   JMP L5B3
C166          LC166:
C166 86 4C      STX io_via40_pcr_fdc
C168 A9 64      LDA #$64
C16A 85 44      STA L44
C16C A9 00      LDA #$0
C16E 85 45      STA cb_buftab_cmdbuf
C170          LC170:
C170 A5 4D      LDA io_via40_ifr_fdc
C172 0A         ASL A
C173 10 FB      BPL LC170
C175          LC175:
C175 A9 10      LDA #$10
C177 8D 7D 08   STA L87D
C17A A9 01      LDA #$1
C17C 8D 71 08   STA L871
C17F A2 C8      LDX #$C8
C181          LC181:
C181 20 27 08   JSR L827
C184 C9 08      CMP #$8
C186 F0 08      BEQ LC190
C188          LC188:
C188 CA         DEX
C189 D0 F6      BNE LC181
C18B          LC18B:
C18B A9 02      LDA #$2
C18D 4C F8 07   JMP L7F8
C190          LC190:
C190 50 FE      BVC LC190
C192          LC192:
C192 B8         CLV
C193 A5 41      LDA io_diskdata_read_fdc
C195 8D 72 08   STA L872
C198          LC198:
C198 50 FE      BVC LC198
C19A          LC19A:
C19A B8         CLV
C19B A5 41      LDA io_diskdata_read_fdc
C19D CD 71 08   CMP L871
C1A0 D0 DF      BNE LC181
C1A2          LC1A2:
C1A2 4D 72 08   EOR L872
C1A5 A0 03      LDY #$3
C1A7          LC1A7:
C1A7 50 FE      BVC LC1A7
C1A9          LC1A9:
C1A9 B8         CLV
C1AA 45 41      EOR io_diskdata_read_fdc
C1AC 88         DEY
C1AD D0 F8      BNE LC1A7
C1AF          LC1AF:
C1AF A8         TAY
C1B0 F0 05      BEQ LC1B7
C1B2          LC1B2:
C1B2 A9 09      LDA #$9
C1B4 4C F8 07   JMP L7F8
C1B7          LC1B7:
C1B7 20 27 08   JSR L827
C1BA C9 07      CMP #$7
C1BC F0 05      BEQ LC1C3
C1BE          LC1BE:
C1BE A9 04      LDA #$4
C1C0 4C F8 07   JMP L7F8
C1C3          LC1C3:
C1C3 A0 00      LDY #$0
C1C5 98         TYA
C1C6          LC1C6:
C1C6 50 FE      BVC LC1C6
C1C8          LC1C8:
C1C8 B8         CLV
C1C9 45 41      EOR io_diskdata_read_fdc
C1CB 88         DEY
C1CC D0 F8      BNE LC1C6
C1CE          LC1CE:
C1CE 50 FE      BVC LC1CE
C1D0          LC1D0:
C1D0 B8         CLV
C1D1 45 41      EOR io_diskdata_read_fdc
C1D3 F0 05      BEQ LC1DA
C1D5          LC1D5:
C1D5 A9 05      LDA #$5
C1D7 4C F8 07   JMP L7F8
C1DA          LC1DA:
C1DA EE 71 08   INC L871
C1DD AD 71 08   LDA L871
C1E0 CD 77 08   CMP L877
C1E3 F0 03      BEQ LC1E8
C1E5          LC1E5:
C1E5 4C 7F 06   JMP L67F
C1E8          LC1E8:
C1E8 C9 01      CMP #$1
C1EA F0 2C      BEQ LC218
C1EC          LC1EC:
C1EC 20 27 08   JSR L827
C1EF C9 08      CMP #$8
C1F1 D0 13      BNE LC206
C1F3          LC1F3:
C1F3 AC 7A 08   LDY L87A
C1F6 D0 08      BNE formatcode_0500+$0200
C1F8          LC1F8:
C1F8 AC 79 08   LDY L879
C1FB CC 75 08   CPY L875
C1FE 90 0C      BCC LC20C
C200          formatcode_0500+$0200:
C200 EE 74 08   INC L874
C203 4C 9C 05   JMP L59C
C206          LC206:
C206 CE 74 08   DEC L874
C209 4C 9C 05   JMP L59C
C20C          LC20C:
C20C A0 01      LDY #$1
C20E 8C 77 08   STY L877
C211 88         DEY
C212 8C 71 08   STY L871
C215 4C 7F 06   JMP L67F
C218          LC218:
C218 CE 78 08   DEC L878
C21B F0 15      BEQ LC232
C21D          LC21D:
C21D A5 82      LDA recptr
C21F 29 EF      AND #$EF
C221 85 82      STA recptr
C223 AE 76 08   LDX L876
C226 CA         DEX
C227 8A         TXA
C228 18         CLC
C229 6D 70 08   ADC L870
C22C 8D 70 08   STA L870
C22F 4C 9C 05   JMP L59C
C232          LC232:
C232 A5 82      LDA recptr
C234 09 10      ORA #$10
C236 85 82      STA recptr
C238 AD AC 04   LDA nsides?_fdc
C23B 8D 78 08   STA L878
C23E AE 7B 08   LDX L87B
C241 E8         INX
C242 EC 76 08   CPX L876
C245 F0 23      BEQ LC26A
C247          LC247:
C247 8E 70 08   STX L870
C24A 8E 7B 08   STX L87B
C24D A0 FF      LDY #$FF
C24F AD FA FF   LDA innmi
C252 D0 01      BNE LC255
C254          LC254:
C254 88         DEY
C255          LC255:
C255 20 82 07   JSR L782
C258 A9 03      LDA #$3
C25A 8D 7E 08   STA L87E
C25D 4C 9C 05   JMP L59C
C260          LC260:
C260 AE 76 08   LDX L876
C263 CA         DEX
C264 8E 76 08   STX L876
C267 4C 21 05   JMP L521
C26A          LC26A:
C26A A6 13      LDX track
C26C AD 7B 08   LDA L87B
C26F 95 21      STA result+3,X
C271 A9 01      LDA #$1
C273 6C 02 FC   JMP (ierrr_fdc)
C276          formatcode_0776_fdc:
C276 78         SEI
C277 A6 13      LDX track
C279 BD A4 07   LDA L7A4,X
C27C 05 40      ORA io_via40_pb_fdc
C27E 85 40      STA io_via40_pb_fdc
C280 A0 5C      LDY #$5C
C282 A6 13      LDX track
C284 A9 40      LDA #$40
C286 95 04      STA t0_temp,X
C288 98         TYA
C289 9D EB 04   STA steps?_fdc,X
C28C AD EE 04   LDA phases_per_track?
C28F 95 23      STA accum+1,X
C291          LC291:
C291 78         SEI
C292 A5 01      LDA usrjmp+1
C294 95 02      STA bmpnt,X
C296 D6 02      DEC bmpnt,X
C298 58         CLI
C299 BD EB 04   LDA steps?_fdc,X
C29C D0 F3      BNE LC291
C29E          LC29E:
C29E B5 23      LDA accum+1,X
C2A0 D0 EF      BNE LC291
C2A2          LC2A2:
C2A2 78         SEI
C2A3 60         RTS
C2A4 0C 03      .BYTE $C,$3
C2A6          formatcode_07a6_fdc:
C2A6 A2 00      LDX #$0
C2A8 A0 00      LDY #$0
C2AA A9 DC      LDA #$DC
C2AC          LC2AC:
C2AC 50 FE      BVC LC2AC
C2AE          LC2AE:
C2AE B8         CLV
C2AF 86 80      STX io_diskdata_write_fdc
C2B1 85 4C      STA io_via40_pcr_fdc
C2B3 A2 32      LDX #$32
C2B5          LC2B5:
C2B5 50 FE      BVC LC2B5
C2B7          LC2B7:
C2B7 B8         CLV
C2B8 88         DEY
C2B9 D0 FA      BNE LC2B5
C2BB          LC2BB:
C2BB CA         DEX
C2BC D0 F7      BNE LC2B5
C2BE          LC2BE:
C2BE 60         RTS
C2BF          formatcode_07bf_fdc:
C2BF A2 04      LDX #$4
C2C1 AD 70 08   LDA L870
C2C4 CD B0 04   CMP trknum_side0?_fdc
C2C7 B0 08      BCS LC2D1
C2C9          LC2C9:
C2C9 DD AF 04   CMP trknum_side0?_fdc-1,X
C2CC CA         DEX
C2CD B0 FA      BCS LC2C9
C2CF          LC2CF:
C2CF 90 06      BCC LC2D7
C2D1          LC2D1:
C2D1 DD B3 04   CMP trknum_side1?_fdc-1,X
C2D4 CA         DEX
C2D5 B0 FA      BCS LC2D1
C2D7          LC2D7:
C2D7 BD 99 04   LDA hwdep_1099_maxsecperzone,X
C2DA 8D 77 08   STA L877
C2DD CD 7C 08   CMP L87C
C2E0 F0 15      BEQ LC2F7
C2E2          LC2E2:
C2E2 8D 7C 08   STA L87C
C2E5 AD 9E 04   LDA L49E
C2E8 8D 74 08   STA L874
C2EB A5 82      LDA recptr
C2ED 29 F9      AND #$F9
C2EF 85 82      STA recptr
C2F1 8A         TXA
C2F2 0A         ASL A
C2F3 05 82      ORA recptr
C2F5 85 82      STA recptr
C2F7          LC2F7:
C2F7 60         RTS
C2F8          formatcode_07f8_fdc:
C2F8 C9 0C      CMP #$C
C2FA F0 28      BEQ LC324
C2FC          LC2FC:
C2FC C9 08      CMP #$8
C2FE F0 24      BEQ LC324
C300          formatcode_0500+$0300:
C300 CE 7F 08   DEC L87F
C303 F0 13      BEQ LC318
C305          LC305:
C305 CE 7D 08   DEC L87D
C308 F0 03      BEQ LC30D
C30A          LC30A:
C30A 4C 81 06   JMP L681
C30D          LC30D:
C30D CE 7E 08   DEC L87E
C310 F0 06      BEQ LC318
C312          LC312:
C312 AD 70 08   LDA L870
C315 4C 9C 05   JMP L59C
C318          LC318:
C318 AE 70 08   LDX L870
C31B AC 71 08   LDY L871
C31E 8E 23 04   STX header_track_fdc
C321 8C 24 04   STY header_sector_fdc
C324          LC324:
C324 6C 02 FC   JMP (ierrr_fdc)
C327          formatcode_0827_fdc:
C327 A5 40      LDA io_via40_pb_fdc
C329 29 BF      AND #$BF
C32B 85 40      STA io_via40_pb_fdc
C32D A0 00      LDY #$0
C32F 8C 79 08   STY L879
C332 8C 7A 08   STY L87A
C335          LC335:
C335 A5 40      LDA io_via40_pb_fdc
C337 10 14      BPL LC34D
C339          LC339:
C339 50 FA      BVC LC335
C33B          LC33B:
C33B B8         CLV
C33C EE 79 08   INC L879
C33F D0 F4      BNE LC335
C341          LC341:
C341 EE 7A 08   INC L87A
C344 D0 EF      BNE LC335
C346          LC346:
C346 68         PLA
C347 68         PLA
C348 A9 03      LDA #$3
C34A 4C F8 07   JMP L7F8
C34D          LC34D:
C34D AC A5 04   LDY min_sync_length_fdc
C350          LC350:
C350 A5 40      LDA io_via40_pb_fdc
C352 30 E1      BMI LC335
C354          LC354:
C354 88         DEY
C355 D0 F9      BNE LC350
C357          LC357:
C357 09 40      ORA #$40
C359 85 40      STA io_via40_pb_fdc
C35B A5 41      LDA io_diskdata_read_fdc
C35D B8         CLV
C35E          LC35E:
C35E 50 FE      BVC LC35E
C360          LC360:
C360 B8         CLV
C361 A5 41      LDA io_diskdata_read_fdc
C363 60         RTS
C364          LC364:
C364 AA         TAX
C365 AA         TAX
C366 AA         TAX
C367 AA         TAX
C368 AA         TAX
C369 AA         TAX
C36A AA         TAX
C36B AA         TAX
C36C AA         TAX
C36D AA         TAX
C36E AA         TAX
C36F AA         TAX
C370          formatcode_2070:
C370 A2 3F      LDX #$3F
C372 9A         TXS
C373          formatcode_2073:
C373 D8         CLD
C375          formatcode_2075 = * + 1
C374 A9 00      LDA #$0
C376 A8         TAY
C377 A2 3F      LDX #$3F
C379          LC379:
C379 8A         TXA
C37A 95 00      STA usrjmp,X
C37C CA         DEX
C37D 10 FA      BPL LC379
C37F          LC37F:
C37F A2 3F      LDX #$3F
C381          LC381:
C381 F6 00      INC usrjmp,X
C383 C8         INY
C384 D0 FB      BNE LC381
C386          LC386:
C386 8A         TXA
C387 D5 00      CMP usrjmp,X
C389 D0 27      BNE LC3B2
C38B          LC38B:
C38B 55 00      EOR usrjmp,X
C38D 95 00      STA usrjmp,X
C38F B5 00      LDA usrjmp,X
C391 D0 1F      BNE LC3B2
C393          LC393:
C393 CA         DEX
C394 10 EB      BPL LC381
C396          LC396:
C396 E8         INX
C397 86 00      STX usrjmp
C399 86 01      STX usrjmp+1
C39B A8         TAY
C39C A2 04      LDX #$4
C39E 18         CLC
C39F          LC39F:
C39F C6 01      DEC usrjmp+1
C3A1          LC3A1:
C3A1 71 00      ADC (usrjmp),Y
C3A3 C8         INY
C3A4 D0 FB      BNE LC3A1
C3A6          LC3A6:
C3A6 CA         DEX
C3A7 D0 F6      BNE LC39F
C3A9          LC3A9:
C3A9 69 00      ADC #$0
C3AB C5 01      CMP usrjmp+1
C3AD F0 08      BEQ LC3B7
C3AF A0 FE 2C   .BYTE $A0,$FE,$2C
C3B2          LC3B2:
C3B2 A0 FF 4C   .BYTE $A0,$FF,$4C
C3B5          LC3B5:
C3B5 06 FC      ASL LFC
C3B7          LC3B7:
C3B7 86 83      STX ssnum
C3B9 CA         DEX
C3BA 86 40      STX io_via40_pb_fdc
C3BC 86 81      STX f1ptr
C3BE A2 7F      LDX #$7F
C3C0 86 42      STX io_via40_ddrb_fdc
C3C2 A2 FC      LDX #$FC
C3C4 86 4C      STX io_via40_pcr_fdc
C3C6 A2 01      LDX #$1
C3C8 86 4B      STX io_via40_acr_fdc
C3CA A2 0E      LDX #$E
C3CC 8E 01 04   STX L401
C3CF A2 2D      LDX #$2D
C3D1 8E 02 04   STX L402
C3D4 A2 04      LDX #$4
C3D6 86 1A      STX r1
C3D8 A2 02      LDX #$2
C3DA A5 82      LDA recptr
C3DC 29 40      AND #$40
C3DE F0 01      BEQ LC3E1
C3E0          LC3E0:
C3E0 CA         DEX
C3E1          LC3E1:
C3E1 8E AC 04   STX nsides?_fdc
C3E4 A2 01      LDX #$1
C3E6 A5 82      LDA recptr
C3E8 29 10      AND #$10
C3EA D0 01      BNE LC3ED
C3EC          LC3EC:
C3EC CA         DEX
C3ED          LC3ED:
C3ED 8E EA 04   STX drive_type_fdc
C3F0 D0 03      BNE LC3F5
C3F2          LC3F2:
C3F2 A2 07      LDX #$7
C3F5          LC3F5 = * + 1
              ; Instruction parameter jumped to.
C3F4 2C A2 17   BIT L17A2
C3F7 86 83      STX ssnum
C3F9 A2 03      LDX #$3
C3FB 8E EE 04   STX phases_per_track?
C3FE A2 05      LDX #$5
C400 AD EA 04   LDA drive_type_fdc
C403 F0 05      BEQ LC40A
C405          LC405:
C405 8E EE 04   STX phases_per_track?
C408 CA         DEX
C409 CA         DEX
C40A          LC40A:
C40A 8E 00 04   STX fdc_resetphase_fdc
C40D 86 8F      STX io_riot80_t8_fdc
C40F 6C 00 FC   JMP (itop_fdc)
C412          LC412:
C413          LC413 = * + 1
              ; Instruction parameter jumped to.
C412 2C A2 FF   BIT LFFA2
C415 9A         TXS
C416 AD 82 02   LDA io_dskcnt
C419 29 C7      AND #$C7
C41B 8D 82 02   STA io_dskcnt
C41E AD 82 02   LDA io_dskcnt
C421 29 07      AND #$7
C423 09 48      ORA #$48
C425 85 0D      STA tlkadr
C427 49 60      EOR #$60
C429 85 0C      STA lsnadr
C42B A2 00      LDX #$0
C42D A0 00      LDY #$0
C42F          LC42F:
C42F A9 00      LDA #$0
C431 95 29      STA buftab_0,X
C433 E8         INX
C434 B9 DE DB   LDA bufind,Y
C437 95 29      STA buftab_0,X
C439 E8         INX
C43A C8         INY
C43B C0 0E      CPY #$E
C43D D0 F0      BNE LC42F
C43F          LC43F:
C43F A9 00      LDA #$0
C441 95 29      STA buftab_0,X
C443 E8         INX
C444 A9 43      LDA #$43
C446 95 29      STA buftab_0,X
C448 E8         INX
C449 A9 DC      LDA #$DC
C44B 95 29      STA buftab_0,X
C44D E8         INX
C44E A9 43      LDA #$43
C450 95 29      STA buftab_0,X
C452 A9 FF      LDA #$FF
C454 A2 12      LDX #$12
C456          LC456:
C456 95 AC      STA lintab,X
C458 CA         DEX
C459 10 FB      BPL LC456
C45B          LC45B:
C45B A2 07      LDX #$7
C45D          LC45D:
C45D 95 49      STA buf0,X
C45F 95 51      STA buf1,X
C461 95 79      STA ss,X
C463 CA         DEX
C464 10 F7      BPL LC45D
C466          LC466:
C466 A9 0E      LDA #$E
C468 85 4F      STA L4F
C46A A9 0F      LDA #$F
C46C 85 50      STA L50
C46E A9 07      LDA #$7
C470 85 BC      STA LBC
C472 A9 86      LDA #$86
C474 85 BB      STA LBB
C476 A9 3F      LDA #$3F
C478 8D 4B 43   STA linuse
C47B A9 01      LDA #$1
C47D 85 A8      STA LA8
C47F A9 88      LDA #$88
C481 85 A9      STA LA9
C483 A9 00      LDA #$0
C485 8D 40 43   STA bufuse
C488 A9 F0      LDA #$F0
C48A 8D 41 43   STA bufuse+1
C48D 20 78 D3   JSR LD378
C490 A9 A3      LDA #$A3
C492 8D F0 10   STA i2nmi
C495 A9 F3      LDA #$F3
C497 8D F1 10   STA i2nmi+1
C49A A9 05      LDA #$5
C49C 8D F4 10   STA secinc
C49F A9 05      LDA #$5
C4A1 8D F5 10   STA revcnt
C4A4 AE EA 10   LDX drive_type
C4A7 BD 50 FF   LDA rom_bamsiz,X
C4AA 8D CB 10   STA bamsiz
C4AD BD 52 FF   LDA rom_hwdep_10cc,X
C4B0 8D CC 10   STA hwdep_10cc
C4B3 BD 54 FF   LDA rom_hwdep_10cd,X
C4B6 8D CD 10   STA hwdep_10cd_bamlowtrkoff
C4B9 BD 56 FF   LDA rom_positionofdiskname,X
C4BC 8D CE 10   STA positionofdiskname
C4BF AD EA 10   LDA drive_type
C4C2 F0 70      BEQ setver_dos2a
C4C4          setver_dos2c:
C4C4 A9 27      LDA #$27
C4C6 8D CA 10   STA dirtrack
C4C9 A9 43      LDA #$43
C4CB 8D 9F 10   STA vernum
C4CE A2 04      LDX #$4
C4D0 AD AC 10   LDA nsides?
C4D3 4A         LSR A
C4D4 D0 04      BNE setver_dos2c_154
C4D6          LC4D6:
C4D6 CA         DEX
C4D7 CA         DEX
C4D8 D0 1F      BNE setver_dos2c_77
C4DA          setver_dos2c_154:
C4DA BD C0 FF   LDA rom_154_bamdirtracks?,X
C4DD 9D C0 10   STA bamtrack?,X
C4E0 BD C5 FF   LDA rom_154_bamdirsecs?,X
C4E3 9D C5 10   STA hwdep_bamsecs?,X
C4E6 CA         DEX
C4E7 10 F1      BPL setver_dos2c_154
C4E9          LC4E9:
C4E9 E8         INX
C4EA 8E A4 43   STX 2c77_FF_2c154_00?
C4ED A9 9B      LDA #$9B
C4EF 8D E9 10   STA maxtrk
C4F2 A9 4D      LDA #$4D
C4F4 8D ED 10   STA mintrk_side2?
C4F7 D0 1C      BNE LC515
C4F9          setver_dos2c_77:
C4F9 BD BA FF   LDA rom_77_bamdirtracks?,X
C4FC 9D C0 10   STA bamtrack?,X
C4FF BD BD FF   LDA rom_77_bamdirsecs?,X
C502 9D C5 10   STA hwdep_bamsecs?,X
C505 CA         DEX
C506 10 F1      BPL setver_dos2c_77
C508          LC508:
C508 8E A4 43   STX 2c77_FF_2c154_00?
C50B A9 4E      LDA #$4E
C50D 8D E9 10   STA maxtrk
C510 A2 00      LDX #$0
C512 8E ED 10   STX mintrk_side2?
C515          LC515:
C515 A2 06      LDX #$6
C517 BD B3 FF   LDA rom_2c_maxsecperzone,X
C51A 8D AD 10   STA hwdep_10ad_fmt_trk_??
C51D CA         DEX
C51E          LC51E:
C51E BD B3 FF   LDA rom_2c_maxsecperzone,X
C521 9D 99 10   STA hwdep_1099_maxsecperzone,X
C524 CA         DEX
C525 10 F7      BPL LC51E
C527          LC527:
C527 A2 07      LDX #$7
C529          LC529:
C529 BD AB FF   LDA LFFAB,X
C52C 9D B0 10   STA trknum_side0?,X
C52F CA         DEX
C530 10 F7      BPL LC529
C532          LC532:
C532 30 3C      BMI LC570
C534          setver_dos2a:
C534 A9 01      LDA #$1
C536 8D AC 10   STA nsides?
C539 A9 12      LDA #$12
C53B 8D CA 10   STA dirtrack
C53E 8D C0 10   STA bamtrack?
C541 A9 41      LDA #$41
C543 8D 9F 10   STA vernum
C546 A9 24      LDA #$24
C548 8D E9 10   STA maxtrk
C54B A9 00      LDA #$0
C54D 8D ED 10   STA mintrk_side2?
C550 8D C5 10   STA hwdep_bamsecs?
C553 A2 06      LDX #$6
C555 BD A4 FF   LDA rom_2a_maxsecperzone,X
C558 8D AD 10   STA hwdep_10ad_fmt_trk_??
C55B CA         DEX
C55C          LC55C:
C55C BD A4 FF   LDA rom_2a_maxsecperzone,X
C55F 9D 99 10   STA hwdep_1099_maxsecperzone,X
C562 CA         DEX
C563 10 F7      BPL LC55C
C565          LC565:
C565 A2 03      LDX #$3
C567          LC567:
C567 BD A0 FF   LDA LFFA0,X
C56A 9D B0 10   STA trknum_side0?,X
C56D CA         DEX
C56E 10 F7      BPL LC567
C570          LC570:
C570 A2 07      LDX #$7
C572          LC572:
C572 BD CA FF   LDA LFFCA,X
C575 9D A4 10   STA nzones,X
C578 CA         DEX
C579 10 F7      BPL LC572
C57B          LC57B:
C57B A9 90      LDA #$90
C57D 8D F6 10   STA iidle
C580 A9 C5      LDA #$C5
C582 8D F7 10   STA L10F7
C585 A9 73      LDA #$73
C587 20 4A F1   JSR errts0
C58A 8D 87 02   STA io_ifr?
C58D 4C A3 F1   JMP boot
C590          idle_j:
C590 AD 4A 43   LDA cmdwat
C593 F0 0C      BEQ idl01
C595          LC595:
C595 78         SEI
C596 A9 00      LDA #$0
C598 8D 4A 43   STA cmdwat
C59B 8D F2 10   STA nmiflag
C59E 20 B9 C7   JSR parsxq
C5A1          idl01:
C5A1 58         CLI
C5A2 A9 0E      LDA #$E
C5A4 85 07      STA t3
C5A6 A9 00      LDA #$0
C5A8 85 04      STA t0_temp
C5AA 85 05      STA t1
C5AC          idl02:
C5AC A6 07      LDX t3
C5AE B5 AC      LDA lintab,X
C5B0 C9 FF      CMP #$FF
C5B2 F0 10      BEQ idl3
C5B4          LC5B4:
C5B4 29 3F      AND #$3F
C5B6 85 15      STA lindx
C5B8 20 BB E8   JSR getact
C5BB AA         TAX
C5BC BD 50 43   LDA lstjob,X
C5BF 29 01      AND #$1
C5C1 AA         TAX
C5C2 F6 04      INC t0_temp,X
C5C4          idl3:
C5C4 C6 07      DEC t3
C5C6 10 E4      BPL idl02
C5C8          LC5C8:
C5C8 A0 0B      LDY #$B
C5CA          LC5CA:
C5CA B9 03 10   LDA jobs,Y
C5CD 10 05      BPL idl5
C5CF          LC5CF:
C5CF 29 01      AND #$1
C5D1 AA         TAX
C5D2 F6 04      INC t0_temp,X
C5D4          idl5:
C5D4 88         DEY
C5D5 10 F3      BPL LC5CA
C5D7          LC5D7:
C5D7 78         SEI
C5D8 A5 12      LDA drvnum
C5DA 48         PHA
C5DB AD 82 02   LDA io_dskcnt
C5DE 29 E7      AND #$E7
C5E0 48         PHA
C5E1 A9 00      LDA #$0
C5E3 85 12      STA drvnum
C5E5 A5 04      LDA t0_temp
C5E7 F0 0C      BEQ idl7
C5E9          LC5E9:
C5E9 AD A6 10   LDA wpsw
C5EC F0 03      BEQ LC5F1
C5EE          LC5EE:
C5EE 20 35 DA   JSR cldchn
C5F1          LC5F1:
C5F1 68         PLA
C5F2 09 10      ORA #$10
C5F4 48         PHA
C5F5          idl7:
C5F5 E6 12      INC drvnum
C5F7 A5 05      LDA t1
C5F9 F0 0C      BEQ LC607
C5FB          LC5FB:
C5FB AD A7 10   LDA wpsw+1
C5FE F0 03      BEQ LC603
C600          LC600:
C600 20 35 DA   JSR cldchn
C603          LC603:
C603 68         PLA
C604 09 08      ORA #$8
C606 48         PHA
C607          LC607:
C607 68         PLA
C608 8D 82 02   STA io_dskcnt
C60B 68         PLA
C60C 85 12      STA drvnum
C60E 4C A1 C5   JMP idl01
C611          sysirq:
C611 A2 FF      LDX #$FF
C613 8E 3B 43   STX cmdnum
C616 9A         TXS
C617 AD 87 02   LDA io_ifr?
C61A A9 18      LDA #$18
C61C 0D 80 02   ORA io_ieee_ctl
C61F 8D 80 02   STA io_ieee_ctl
C622 A9 FF      LDA #$FF
C624 8D 02 02   STA io_ieee_data_out
C627          LC627:
C627 A9 07      LDA #$7
C629 0D 80 02   ORA io_ieee_ctl
C62C 8D 80 02   STA io_ieee_ctl
C62F          LC62F:
C62F 2C 80 02   BIT io_ieee_ctl
C632 50 04      BVC LC638
C634          LC634:
C634 30 F9      BMI LC62F
C636          LC636:
C636 10 7B      BPL atns20
C638          LC638:
C638 A9 FB      LDA #$FB
C63A 2D 80 02   AND io_ieee_ctl
C63D 8D 80 02   STA io_ieee_ctl
C640 29 20      AND #$20
C642 85 AA      STA eoiflg
C644 AD 00 02   LDA io_ieee_data_in
C647 49 FF      EOR #$FF
C649 85 18      STA data
C64B A9 FD      LDA #$FD
C64D 2D 80 02   AND io_ieee_ctl
C650 8D 80 02   STA io_ieee_ctl
C653 A0 00      LDY #$0
C655 A5 18      LDA data
C657 29 60      AND #$60
C659 C9 40      CMP #$40
C65B F0 29      BEQ LC686
C65D          LC65D:
C65D C9 20      CMP #$20
C65F F0 06      BEQ LC667
C661          LC661:
C661 C9 60      CMP #$60
C663 F0 2F      BEQ LC694
C665          LC665:
C665 D0 44      BNE LC6AB
C667          LC667:
C667 A5 18      LDA data
C669 C5 0C      CMP lsnadr
C66B F0 0B      BEQ LC678
C66D          LC66D:
C66D C9 3F      CMP #$3F
C66F D0 02      BNE LC673
C671          LC671:
C671 84 0E      STY lsnact
C673          LC673:
C673 84 10      STY lsntlk?
C675 4C AB C6   JMP LC6AB
C678          LC678:
C678 85 0E      STA lsnact
C67A 84 0F      STY tlkact
C67C          LC67C:
C67C A9 20      LDA #$20
C67E 85 16      STA sa
C680 85 17      STA orgsa
C682 85 10      STA lsntlk?
C684 D0 25      BNE LC6AB
C686          LC686:
C686 84 0F      STY tlkact
C688 A5 18      LDA data
C68A C5 0D      CMP tlkadr
C68C D0 E5      BNE LC673
C68E          LC68E:
C68E 85 0F      STA tlkact
C690 84 0E      STY lsnact
C692 F0 E8      BEQ LC67C
C694          LC694:
C694 A5 10      LDA lsntlk?
C696 F0 13      BEQ LC6AB
C698          LC698:
C698 A5 18      LDA data
C69A 85 17      STA orgsa
C69C 48         PHA
C69D 29 0F      AND #$F
C69F 85 16      STA sa
C6A1 68         PLA
C6A2 29 F0      AND #$F0
C6A4 C9 E0      CMP #$E0
C6A6 D0 03      BNE LC6AB
C6A8          LC6A8:
C6A8 20 0D E3   JSR close
C6AB          LC6AB:
C6AB 2C 80 02   BIT io_ieee_ctl
C6AE 50 FB      BVC LC6AB
C6B0          LC6B0:
C6B0 4C 27 C6   JMP LC627
C6B3          atns20:
C6B3 A5 0E      LDA lsnact
C6B5 F0 0F      BEQ atn100
C6B7          LC6B7:
C6B7 A9 FA      LDA #$FA
C6B9 2D 80 02   AND io_ieee_ctl
C6BC 8D 80 02   STA io_ieee_ctl
C6BF 58         CLI
C6C0 20 D9 C6   JSR listen?
C6C3 4C 27 FF   JMP idle
C6C6          atn100:
C6C6 A9 FC      LDA #$FC
C6C8 2D 80 02   AND io_ieee_ctl
C6CB 8D 80 02   STA io_ieee_ctl
C6CE A5 0F      LDA tlkact
C6D0 F0 04      BEQ atn110
C6D2          LC6D2:
C6D2 58         CLI
C6D3 20 69 C7   JSR talk
C6D6          atn110:
C6D6 4C 27 FF   JMP idle
C6D9          listen?:
C6D9 A9 04      LDA #$4
C6DB 0D 80 02   ORA io_ieee_ctl
C6DE 8D 80 02   STA io_ieee_ctl
C6E1          LC6E1:
C6E1 2C 80 02   BIT io_ieee_ctl
C6E4 70 FB      BVS LC6E1
C6E6          LC6E6:
C6E6 20 56 D8   JSR fndwch
C6E9 B0 05      BCS LC6F0
C6EB          LC6EB:
C6EB B5 A2      LDA chnrdy,X
C6ED 6A         ROR A
C6EE B0 49      BCS LC739
C6F0          LC6F0:
C6F0 A5 17      LDA orgsa
C6F2 29 F0      AND #$F0
C6F4 C9 F0      CMP #$F0
C6F6 F0 41      BEQ LC739
C6F8          LC6F8:
C6F8 A5 16      LDA sa
C6FA C9 01      CMP #$1
C6FC F0 0E      BEQ LC70C
C6FE          LC6FE:
C6FE 2C 80 02   BIT io_ieee_ctl
C701 50 FB      BVC LC6FE
C703          LC703:
C703 A9 FD      LDA #$FD
C705 2D 80 02   AND io_ieee_ctl
C708 8D 80 02   STA io_ieee_ctl
C70B 60         RTS
C70C          LC70C:
C70C A9 FB      LDA #$FB
C70E 2D 80 02   AND io_ieee_ctl
C711 8D 80 02   STA io_ieee_ctl
C714 A9 FD      LDA #$FD
C716 2D 80 02   AND io_ieee_ctl
C719 8D 80 02   STA io_ieee_ctl
C71C          LC71C:
C71C 2C 80 02   BIT io_ieee_ctl
C71F 50 FB      BVC LC71C
C721          LC721:
C721 A9 02      LDA #$2
C723 0D 80 02   ORA io_ieee_ctl
C726 8D 80 02   STA io_ieee_ctl
C729 A9 04      LDA #$4
C72B 0D 80 02   ORA io_ieee_ctl
C72E 8D 80 02   STA io_ieee_ctl
C731          LC731:
C733          lsn30 = * + 2
C731 2C 80 02   BIT io_ieee_ctl
C734 50 FB      BVC LC731
C736          LC736:
C736 4C 0C C7   JMP LC70C
C739          LC739:
C739 A9 FB      LDA #$FB
C73B 2D 80 02   AND io_ieee_ctl
C73E 8D 80 02   STA io_ieee_ctl
C741 29 20      AND #$20
C743 85 AA      STA eoiflg
C745 AD 00 02   LDA io_ieee_data_in
C748 49 FF      EOR #$FF
C74A 85 18      STA data
C74C 78         SEI
C74D A9 FD      LDA #$FD
C74F 2D 80 02   AND io_ieee_ctl
C752 8D 80 02   STA io_ieee_ctl
C755          LC755:
C755 2C 80 02   BIT io_ieee_ctl
C758 50 FB      BVC LC755
C75A          LC75A:
C75A A9 02      LDA #$2
C75C 0D 80 02   ORA io_ieee_ctl
C75F 8D 80 02   STA io_ieee_ctl
C762 20 10 D7   JSR put
C765 58         CLI
C766 4C D9 C6   JMP listen?
C769          talk:
C769 20 3B D8   JSR fndrch
C76C B0 06      BCS notlk
C76E          LC76E:
C76E A6 15      LDX lindx
C770 B5 A2      LDA chnrdy,X
C772 30 01      BMI tlk05
C774          notlk:
C774 60         RTS
C775          tlk05:
C775 2C 82 02   BIT io_dskcnt
C778 10 FB      BPL tlk05
C77A          LC77A:
C77A B5 BF      LDA chndat,X
C77C 49 FF      EOR #$FF
C77E 8D 02 02   STA io_ieee_data_out
C781 B5 A2      LDA chnrdy,X
C783 09 E7      ORA #$E7
C785 2D 80 02   AND io_ieee_ctl
C788 8D 80 02   STA io_ieee_ctl
C78B          LC78B:
C78B 2C 82 02   BIT io_dskcnt
C78E 10 0D      BPL LC79D
C790          LC790:
C790 50 F9      BVC LC78B
C792          LC792:
C792 A9 18      LDA #$18
C794 0D 80 02   ORA io_ieee_ctl
C797 8D 80 02   STA io_ieee_ctl
C79A 4C 27 FF   JMP idle
C79D          LC79D:
C79D 20 84 DA   JSR LDA84
C7A0          LC7A0:
C7A0 2C 82 02   BIT io_dskcnt
C7A3 50 FB      BVC LC7A0
C7A5          LC7A5:
C7A5 A9 FF      LDA #$FF
C7A7 8D 02 02   STA io_ieee_data_out
C7AA A9 18      LDA #$18
C7AC 0D 80 02   ORA io_ieee_ctl
C7AF 8D 80 02   STA io_ieee_ctl
C7B2          LC7B2:
C7B2 2C 82 02   BIT io_dskcnt
C7B5 70 FB      BVS LC7B2
C7B7          LC7B7:
C7B7 50 B5      BVC LC76E
C7B9          parsxq:
C7B9 20 45 F1   JSR okerr
C7BC A5 17      LDA orgsa
C7BE 10 09      BPL ps5
C7C0          LC7C0:
C7C0 29 0F      AND #$F
C7C2 C9 0F      CMP #$F
C7C4 F0 03      BEQ ps5
C7C6          LC7C6:
C7C6 4C 01 E0   JMP open
C7C9          ps5:
C7C9 20 18 C9   JSR cmdset
C7CC B1 45      LDA (cb_buftab_cmdbuf),Y
C7CE 8D 77 43   STA char
C7D1 A2 0B      LDX #$B
C7D3          ps10:
C7D3 BD 58 FF   LDA cmdtbl,X
C7D6 CD 77 43   CMP char
C7D9 F0 08      BEQ ps20
C7DB          LC7DB:
C7DB CA         DEX
C7DC 10 F5      BPL ps10
C7DE          LC7DE:
C7DE A9 31      LDA #$31
C7E0 4C 2D FF   JMP cmderr
C7E3          ps20:
C7E3 8E 3B 43   STX cmdnum
C7E6 E0 09      CPX #$9
C7E8 90 03      BCC LC7ED
C7EA          LC7EA:
C7EA 20 53 C8   JSR tagcmd
C7ED          LC7ED:
C7ED AE 3B 43   LDX cmdnum
C7F0 BD 64 FF   LDA cjumpl,X
C7F3 85 04      STA t0_temp
C7F5 BD 70 FF   LDA cjumph,X
C7F8 85 05      STA t1
C7FA 6C 04 00   JMP (t0_temp)
C7FD          endcmd:
C7FD AD 6F 43   LDA wbam?
C800 D0 2B      BNE cmderr_j
C802          LC802:
C802 A0 00      LDY #$0
C804 98         TYA
C805 84 13      STY track
C807          scrend:
C807 84 14      STY sector
C809 84 45      STY cb_buftab_cmdbuf
C80B 20 1E FF   JSR errmsg
C80E 20 53 F9   JSR erroff
C811 A5 12      LDA drvnum
C813 8D 90 43   STA lstdrv
C816 AA         TAX
C817 A9 00      LDA #$0
C819 9D A1 43   STA nodrv,X
C81C 20 22 C8   JSR clrcb
C81F 4C B2 DB   JMP freich
C822          clrcb:
C822 A0 39      LDY #$39
C824 A9 00      LDA #$0
C826          LC826:
C826 99 00 43   STA cmdbuf,Y
C829 88         DEY
C82A 10 FA      BPL LC826
C82C          LC82C:
C82C 60         RTS
C82D          cmderr_j:
C82D A0 00      LDY #$0
C82F 84 13      STY track
C831 84 14      STY sector
C833 4C 30 FF   JMP cmder2
C836          simprs:
C836 A2 00      LDX #$0
C838 8E 7C 43   STX filtbl
C83B A9 3A      LDA #$3A
C83D 20 CD C8   JSR parse
C840 F0 05      BEQ LC847
C842          LC842:
C842 88         DEY
C843 88         DEY
C844 8C 7C 43   STY filtbl
C847          LC847:
C847 4C CA C9   JMP LC9CA
C84A          prscln:
C84A A0 00      LDY #$0
C84C A2 00      LDX #$0
C84E A9 3A      LDA #$3A
C850 4C CD C8   JMP parse
C853          tagcmd:
C853 20 4A C8   JSR prscln
C856 D0 05      BNE LC85D
C858          LC858:
C858 A9 34      LDA #$34
C85A 4C 2D FF   JMP cmderr
C85D          LC85D:
C85D 88         DEY
C85E 88         DEY
C85F 8C 7C 43   STY filtbl
C862 8A         TXA
C863 D0 F3      BNE LC858
C865          LC865:
C865 A9 3D      LDA #$3D
C867 20 CD C8   JSR parse
C86A 8A         TXA
C86B F0 02      BEQ LC86F
C86D          LC86D:
C86D A9 40      LDA #$40
C86F          LC86F:
C86F 09 21      ORA #$21
C871 8D 8D 43   STA image
C874 E8         INX
C875 8E 79 43   STX f1cnt
C878 8E 7A 43   STX f2cnt
C87B AD 8C 43   LDA patflg
C87E F0 0D      BEQ LC88D
C880          LC880:
C880 A9 80      LDA #$80
C882 0D 8D 43   ORA image
C885 8D 8D 43   STA image
C888 A9 00      LDA #$0
C88A 8D 8C 43   STA patflg
C88D          LC88D:
C88D 98         TYA
C88E F0 29      BEQ LC8B9
C890          LC890:
C890 9D 7C 43   STA filtbl,X
C893 AD 79 43   LDA f1cnt
C896 8D 7B 43   STA f2ptr
C899 A9 8D      LDA #$8D
C89B 20 CD C8   JSR parse
C89E E8         INX
C89F 8E 7A 43   STX f2cnt
C8A2 CA         DEX
C8A3 AD 8C 43   LDA patflg
C8A6 F0 02      BEQ LC8AA
C8A8          LC8A8:
C8A8 A9 08      LDA #$8
C8AA          LC8AA:
C8AA EC 79 43   CPX f1cnt
C8AD F0 02      BEQ LC8B1
C8AF          LC8AF:
C8AF 09 04      ORA #$4
C8B1          LC8B1:
C8B1 09 03      ORA #$3
C8B3 4D 8D 43   EOR image
C8B6 8D 8D 43   STA image
C8B9          LC8B9:
C8B9 AD 8D 43   LDA image
C8BC AE 3B 43   LDX cmdnum
C8BF 3D 74 FF   AND LFF74,X
C8C2 D0 01      BNE LC8C5
C8C4          LC8C4:
C8C4 60         RTS
C8C5          LC8C5:
C8C5 8D 6F 43   STA wbam?
C8C8 A9 30      LDA #$30
C8CA 4C 2D FF   JMP cmderr
C8CD          parse:
C8CD 8D 77 43   STA char
C8D0          LC8D0:
C8D0 CC 76 43   CPY cmdsiz
C8D3 B0 2E      BCS LC903
C8D5          LC8D5:
C8D5 B1 45      LDA (cb_buftab_cmdbuf),Y
C8D7 C8         INY
C8D8 CD 77 43   CMP char
C8DB F0 28      BEQ LC905
C8DD          LC8DD:
C8DD C9 2A      CMP #$2A
C8DF F0 04      BEQ LC8E5
C8E1          LC8E1:
C8E1 C9 3F      CMP #$3F
C8E3 D0 03      BNE LC8E8
C8E5          LC8E5:
C8E5 EE 8C 43   INC patflg
C8E8          LC8E8:
C8E8 C9 2C      CMP #$2C
C8EA D0 E4      BNE LC8D0
C8EC          LC8EC:
C8EC 98         TYA
C8ED 9D 7D 43   STA filtbl+1,X
C8F0 AD 8C 43   LDA patflg
C8F3 29 7F      AND #$7F
C8F5 F0 07      BEQ LC8FE
C8F7          LC8F7:
C8F7 A9 80      LDA #$80
C8F9 95 95      STA pattyp,X
C8FB 8D 8C 43   STA patflg
C8FE          LC8FE:
C8FE E8         INX
C8FF E0 04      CPX #$4
C901 90 CD      BCC LC8D0
C903          LC903:
C903 A0 00      LDY #$0
C905          LC905:
C905 AD 76 43   LDA cmdsiz
C908 9D 7D 43   STA filtbl+1,X
C90B AD 8C 43   LDA patflg
C90E 29 7F      AND #$7F
C910 F0 04      BEQ LC916
C912          LC912:
C912 A9 80      LDA #$80
C914 95 95      STA pattyp,X
C916          LC916:
C916 98         TYA
C917 60         RTS
C918          cmdset:
C918 A4 45      LDY cb_buftab_cmdbuf
C91A F0 14      BEQ LC930
C91C          LC91C:
C91C 88         DEY
C91D F0 10      BEQ LC92F
C91F          LC91F:
C91F B9 00 43   LDA cmdbuf,Y
C922 C9 0D      CMP #$D
C924 F0 0A      BEQ LC930
C926          LC926:
C926 88         DEY
C927 B9 00 43   LDA cmdbuf,Y
C92A C9 0D      CMP #$D
C92C F0 02      BEQ LC930
C92E          LC92E:
C92E C8         INY
C92F          LC92F:
C92F C8         INY
C930          LC930:
C930 8C 76 43   STY cmdsiz
C933 C0 3B      CPY #$3B
C935 A0 FF      LDY #$FF
C937 90 08      BCC LC941
C939          LC939:
C939 8C 3B 43   STY cmdnum
C93C A9 32      LDA #$32
C93E 4C 2D FF   JMP cmderr
C941          LC941:
C941 A0 00      LDY #$0
C943 98         TYA
C944 85 45      STA cb_buftab_cmdbuf
C946 8D 4D 43   STA rec
C949 85 CF      STA type
C94B 8D 98 43   STA typflg
C94E 85 81      STA f1ptr
C950 8D 7B 43   STA f2ptr
C953 8D 79 43   STA f1cnt
C956 8D 7A 43   STA f2cnt
C959 8D 8C 43   STA patflg
C95C 8D 6F 43   STA wbam?
C95F A2 05      LDX #$5
C961          LC961:
C961 9D 7B 43   STA f2ptr,X
C964 95 85      STA relptr,X
C966 95 8A      STA L8A,X
C968 95 8F      STA io_riot80_t8_fdc,X
C96A 95 94      STA fildrv+4,X
C96C 9D 81 43   STA filtbl+5,X
C96F 9D 86 43   STA filtrk+4,X
C972 CA         DEX
C973 D0 EC      BNE LC961
C975          LC975:
C975 60         RTS
C976          onedrv:
C976 AD 7A 43   LDA f2cnt
C979 8D 79 43   STA f1cnt
C97C A9 01      LDA #$1
C97E 8D 7A 43   STA f2cnt
C981 8D 7B 43   STA f2ptr
C984          alldrs:
C984 AC 90 43   LDY lstdrv
C987 A2 00      LDX #$0
C989          LC989:
C989 86 81      STX f1ptr
C98B BD 7C 43   LDA filtbl,X
C98E 20 A0 C9   JSR LC9A0
C991 A6 81      LDX f1ptr
C993 9D 7C 43   STA filtbl,X
C996 98         TYA
C997 95 90      STA fildrv,X
C999 E8         INX
C99A EC 7A 43   CPX f2cnt
C99D 90 EA      BCC LC989
C99F          LC99F:
C99F 60         RTS
C9A0          LC9A0:
C9A0 AA         TAX
C9A1 A9 3A      LDA #$3A
C9A3 DD 01 43   CMP cmdbuf+1,X
C9A6 F0 0C      BEQ LC9B4
C9A8          LC9A8:
C9A8 DD 00 43   CMP cmdbuf,X
C9AB D0 16      BNE LC9C3
C9AD          LC9AD:
C9AD E8         INX
C9AE          LC9AE:
C9AE 98         TYA
C9AF          LC9AF:
C9AF 29 01      AND #$1
C9B1          LC9B1:
C9B1 A8         TAY
C9B2 8A         TXA
C9B3 60         RTS
C9B4          LC9B4:
C9B4 BD 00 43   LDA cmdbuf,X
C9B7 E8         INX
C9B8 E8         INX
C9B9 C9 30      CMP #$30
C9BB F0 F2      BEQ LC9AF
C9BD          LC9BD:
C9BD C9 31      CMP #$31
C9BF F0 EE      BEQ LC9AF
C9C1          LC9C1:
C9C1 D0 EB      BNE LC9AE
C9C3          LC9C3:
C9C3 98         TYA
C9C4 09 80      ORA #$80
C9C6 29 81      AND #$81
C9C8 D0 E7      BNE LC9B1
C9CA          LC9CA:
C9CA A9 00      LDA #$0
C9CC 8D 8D 43   STA image
C9CF AC 7C 43   LDY filtbl
C9D2          LC9D2:
C9D2 B1 45      LDA (cb_buftab_cmdbuf),Y
C9D4 20 20 CA   JSR tst0v1
C9D7 10 12      BPL LC9EB
C9D9          LC9D9:
C9D9 C8         INY
C9DA CC 76 43   CPY cmdsiz
C9DD B0 06      BCS LC9E5
C9DF          LC9DF:
C9DF AC 76 43   LDY cmdsiz
C9E2 88         DEY
C9E3 D0 ED      BNE LC9D2
C9E5          LC9E5:
C9E5 CE 8D 43   DEC image
C9E8 AD 90 43   LDA lstdrv
C9EB          LC9EB:
C9EB 29 01      AND #$1
C9ED 85 12      STA drvnum
C9EF 4C 21 FF   JMP setlda
C9F2          togdrv:
C9F2 A5 12      LDA drvnum
C9F4 49 01      EOR #$1
C9F6 29 01      AND #$1
C9F8 85 12      STA drvnum
C9FA 60         RTS
C9FB          fs1set:
C9FB A0 00      LDY #$0
C9FD AD 79 43   LDA f1cnt
CA00 CD 7A 43   CMP f2cnt
CA03 F0 16      BEQ LCA1B
CA05          LCA05:
CA05 CE 7A 43   DEC f2cnt
CA08 AC 7A 43   LDY f2cnt
CA0B B9 7C 43   LDA filtbl,Y
CA0E A8         TAY
CA0F B1 45      LDA (cb_buftab_cmdbuf),Y
CA11 A0 04      LDY #$4
CA13          LCA13:
CA13 D9 8A FF   CMP type_dspur,Y
CA16 F0 03      BEQ LCA1B
CA18          LCA18:
CA18 88         DEY
CA19 D0 F8      BNE LCA13
CA1B          LCA1B:
CA1B 98         TYA
CA1C 8D 98 43   STA typflg
CA1F 60         RTS
CA20          tst0v1:
CA20 C9 30      CMP #$30
CA22 F0 06      BEQ LCA2A
CA24          LCA24:
CA24 C9 31      CMP #$31
CA26 F0 02      BEQ LCA2A
CA28          LCA28:
CA28 09 80      ORA #$80
CA2A          LCA2A:
CA2A 29 81      AND #$81
CA2C 60         RTS
CA2D          optsch:
CA2D A9 00      LDA #$0
CA2F 85 04      STA t0_temp
CA31 8D 8F 43   STA drvflg
CA34 48         PHA
CA35 AE 7A 43   LDX f2cnt
CA38          LCA38:
CA38 68         PLA
CA39 05 04      ORA t0_temp
CA3B 48         PHA
CA3C A9 01      LDA #$1
CA3E 85 04      STA t0_temp
CA40 CA         DEX
CA41 30 0F      BMI LCA52
CA43          LCA43:
CA43 B5 90      LDA fildrv,X
CA45 10 04      BPL LCA4B
CA47          LCA47:
CA47 06 04      ASL t0_temp
CA49 06 04      ASL t0_temp
CA4B          LCA4B:
CA4B 4A         LSR A
CA4C 90 EA      BCC LCA38
CA4E          LCA4E:
CA4E 06 04      ASL t0_temp
CA50 D0 E6      BNE LCA38
CA52          LCA52:
CA52 68         PLA
CA53 AA         TAX
CA54 BD A2 CA   LDA schtbl-1,X
CA57 48         PHA
CA58 29 03      AND #$3
CA5A 8D 8E 43   STA drvcnt
CA5D 68         PLA
CA5E 0A         ASL A
CA5F 10         .BYTE $10
CA60          LCA60:
CA60 3E A5 90   ROL L90A5,X
CA63 29 01      AND #$1
CA65 85 12      STA drvnum
CA67 AD 8E 43   LDA drvcnt
CA6A F0 2B      BEQ LCA97
CA6C          LCA6C:
CA6C 20 18 FF   JSR autoi
CA6F F0 12      BEQ LCA83
CA71          LCA71:
CA71 20 F2 C9   JSR togdrv
CA74 A9 00      LDA #$0
CA76 8D 8E 43   STA drvcnt
CA79 20 18 FF   JSR autoi
CA7C F0 1E      BEQ LCA9C
CA7E          LCA7E:
CA7E A9 74      LDA #$74
CA80 20 2D FF   JSR cmderr
CA83          LCA83:
CA83 20 F2 C9   JSR togdrv
CA86 20 18 FF   JSR autoi
CA89 08         PHP
CA8A 20 F2 C9   JSR togdrv
CA8D 28         PLP
CA8E F0 0C      BEQ LCA9C
CA90          LCA90:
CA90 A9 00      LDA #$0
CA92 8D 8E 43   STA drvcnt
CA95 F0 05      BEQ LCA9C
CA97          LCA97:
CA97 20 18 FF   JSR autoi
CA9A D0 E2      BNE LCA7E
CA9C          LCA9C:
CA9C 4C 21 FF   JMP setlda
CA9F 2A 4C 63   .BYTE $2A,$4C,$63
CAA2          schtbl-1:
CAA3          schtbl = * + 1
CAA2 CA 00 80   .BYTE $CA,$0,$80
CAA5 41 01 01   .BYTE $41,$1,$1
CAA8 01 01 81   .BYTE $1,$1,$81
CAAB 81 81 81   .BYTE $81,$81,$81
CAAE 42 42 42   .BYTE $42,$42,$42
CAB1 42         .BYTE $42
CAB2          lookup:
CAB2 20 2D CA   JSR optsch
CAB5          LCAB5:
CAB5 A9 00      LDA #$0
CAB7 8D 94 43   STA delind
CABA 20 0F CC   JSR srchst
CABD D0 19      BNE LCAD8
CABF          LCABF:
CABF CE 8E 43   DEC drvcnt
CAC2 10 01      BPL LCAC5
CAC4          LCAC4:
CAC4 60         RTS
CAC5          LCAC5:
CAC5 A9 01      LDA #$1
CAC7 8D 8F 43   STA drvflg
CACA 20 F2 C9   JSR togdrv
CACD 20 21 FF   JSR setlda
CAD0 4C B5 CA   JMP LCAB5
CAD3          LCAD3:
CAD3 20 7D CC   JSR search
CAD6 F0 10      BEQ LCAE8
CAD8          LCAD8:
CAD8 20 3B CB   JSR LCB3B
CADB AD 91 43   LDA found?
CADE F0 01      BEQ LCAE1
CAE0          LCAE0:
CAE0 60         RTS
CAE1          LCAE1:
CAE1 AD 48 43   LDA entfnd
CAE4 30 ED      BMI LCAD3
CAE6          LCAE6:
CAE6 10 F0      BPL LCAD8
CAE8          LCAE8:
CAE8 AD 91 43   LDA found?
CAEB F0 D2      BEQ LCABF
CAED          LCAED:
CAED 60         RTS
CAEE          ffre:
CAEE 20 6A CC   JSR LCC6A
CAF1 F0 1A      BEQ LCB0D
CAF3          LCAF3:
CAF3 D0 28      BNE LCB1D
CAF5          LCAF5:
CAF5 A9 01      LDA #$1
CAF7 8D 8F 43   STA drvflg
CAFA 20 F2 C9   JSR togdrv
CAFD 20 21 FF   JSR setlda
CB00          ffst:
CB00 A9 00      LDA #$0
CB02 8D 94 43   STA delind
CB05 20 0F CC   JSR srchst
CB08 D0 13      BNE LCB1D
CB0A          LCB0A:
CB0A 8D 91 43   STA found?
CB0D          LCB0D:
CB0D AD 91 43   LDA found?
CB10 D0 28      BNE LCB3A
CB12          LCB12:
CB12 CE 8E 43   DEC drvcnt
CB15 10 DE      BPL LCAF5
CB17          LCB17:
CB17 60         RTS
CB18          LCB18:
CB18 20 7D CC   JSR search
CB1B F0 F0      BEQ LCB0D
CB1D          LCB1D:
CB1D 20 3B CB   JSR LCB3B
CB20 AE 48 43   LDX entfnd
CB23 10 07      BPL LCB2C
CB25          LCB25:
CB25 AD 91 43   LDA found?
CB28 F0 EE      BEQ LCB18
CB2A          LCB2A:
CB2A D0 0E      BNE LCB3A
CB2C          LCB2C:
CB2C AD 98 43   LDA typflg
CB2F F0 09      BEQ LCB3A
CB31          LCB31:
CB31 B5 95      LDA pattyp,X
CB33 29 07      AND #$7
CB35 CD 98 43   CMP typflg
CB38 D0 DE      BNE LCB18
CB3A          LCB3A:
CB3A 60         RTS
CB3B          LCB3B:
CB3B A2 FF      LDX #$FF
CB3D 8E 48 43   STX entfnd
CB40 E8         INX
CB41 8E 8C 43   STX patflg
CB44 20 EC CB   JSR LCBEC
CB47 F0 06      BEQ LCB4F
CB49          LCB49:
CB49 60         RTS
CB4A          LCB4A:
CB4A 20 F7 CB   JSR LCBF7
CB4D D0 FA      BNE LCB49
CB4F          LCB4F:
CB4F A5 12      LDA drvnum
CB51 55 90      EOR fildrv,X
CB53 4A         LSR A
CB54 90 0B      BCC LCB61
CB56          LCB56:
CB56 29 40      AND #$40
CB58 F0 F0      BEQ LCB4A
CB5A          LCB5A:
CB5A A9 02      LDA #$2
CB5C CD 8E 43   CMP drvcnt
CB5F F0 E9      BEQ LCB4A
CB61          LCB61:
CB61 BD 7C 43   LDA filtbl,X
CB64 AA         TAX
CB65 20 0C CD   JSR fndlmt
CB68 A0 03      LDY #$3
CB6A 4C 80 CB   JMP LCB80
CB6D          LCB6D:
CB6D BD 00 43   LDA cmdbuf,X
CB70 D1 27      CMP (dirbuf),Y
CB72 F0 0A      BEQ LCB7E
CB74          LCB74:
CB74 C9 3F      CMP #$3F
CB76 D0 D2      BNE LCB4A
CB78          LCB78:
CB78 B1 27      LDA (dirbuf),Y
CB7A C9 A0      CMP #$A0
CB7C F0 CC      BEQ LCB4A
CB7E          LCB7E:
CB7E E8         INX
CB7F C8         INY
CB80          LCB80:
CB80 EC 78 43   CPX limit
CB83 B0 09      BCS LCB8E
CB85          LCB85:
CB85 BD 00 43   LDA cmdbuf,X
CB88 C9 2A      CMP #$2A
CB8A F0 0C      BEQ LCB98
CB8C          LCB8C:
CB8C D0 DF      BNE LCB6D
CB8E          LCB8E:
CB8E C0 13      CPY #$13
CB90 B0 06      BCS LCB98
CB92          LCB92:
CB92 B1 27      LDA (dirbuf),Y
CB94 C9 A0      CMP #$A0
CB96 D0 B2      BNE LCB4A
CB98          LCB98:
CB98 AE 7B 43   LDX f2ptr
CB9B 8E 48 43   STX entfnd
CB9E B5 95      LDA pattyp,X
CBA0 29 80      AND #$80
CBA2 8D 8C 43   STA patflg
CBA5 AD 96 43   LDA index
CBA8 95 8B      STA entind,X
CBAA A5 14      LDA sector
CBAC 95 86      STA entsec,X
CBAE A0 00      LDY #$0
CBB0 B1 27      LDA (dirbuf),Y
CBB2 C8         INY
CBB3 48         PHA
CBB4 29 40      AND #$40
CBB6 85 04      STA t0_temp
CBB8 68         PLA
CBB9 29 DF      AND #$DF
CBBB 30 02      BMI LCBBF
CBBD          LCBBD:
CBBD 09 20      ORA #$20
CBBF          LCBBF:
CBBF 29 27      AND #$27
CBC1 05 04      ORA t0_temp
CBC3 85 04      STA t0_temp
CBC5 A9 80      LDA #$80
CBC7 35 95      AND pattyp,X
CBC9 05 04      ORA t0_temp
CBCB 95 95      STA pattyp,X
CBCD B5 90      LDA fildrv,X
CBCF 29 80      AND #$80
CBD1 05 12      ORA drvnum
CBD3 95 90      STA fildrv,X
CBD5 B1 27      LDA (dirbuf),Y
CBD7 9D 82 43   STA filtrk,X
CBDA C8         INY
CBDB B1 27      LDA (dirbuf),Y
CBDD 9D 87 43   STA filsec,X
CBE0 AD 4D 43   LDA rec
CBE3 D0 07      BNE LCBEC
CBE5          LCBE5:
CBE5 A0 15      LDY #$15
CBE7 B1 27      LDA (dirbuf),Y
CBE9 8D 4D 43   STA rec
CBEC          LCBEC:
CBEC A9 FF      LDA #$FF
CBEE 8D 91 43   STA found?
CBF1 AD 7A 43   LDA f2cnt
CBF4 8D 7B 43   STA f2ptr
CBF7          LCBF7:
CBF7 CE 7B 43   DEC f2ptr
CBFA 10 01      BPL LCBFD
CBFC          LCBFC:
CBFC 60         RTS
CBFD          LCBFD:
CBFD AE 7B 43   LDX f2ptr
CC00 B5 95      LDA pattyp,X
CC02 30 05      BMI LCC09
CC04          LCC04:
CC04 BD 82 43   LDA filtrk,X
CC07 D0 EE      BNE LCBF7
CC09          LCC09:
CC09 A9 00      LDA #$0
CC0B 8D 91 43   STA found?
CC0E 60         RTS
CC0F          srchst:
CC0F 20 18 FF   JSR autoi
CC12 A0 00      LDY #$0
CC14 8C 93 43   STY delsec
CC17 88         DEY
CC18 8C 48 43   STY entfnd
CC1B AD CA 10   LDA dirtrack
CC1E 85 13      STA track
CC20 A9 01      LDA #$1
CC22 85 14      STA sector
CC24 8D 95 43   STA lstbuf
CC27 20 4B DB   JSR opnird
CC2A          LCC2A:
CC2A AD 95 43   LDA lstbuf
CC2D D0 01      BNE sr15
CC2F          LCC2F:
CC2F 60         RTS
CC30          sr15:
CC30 A9 07      LDA #$7
CC32 8D 97 43   STA filcnt
CC35 A9 00      LDA #$0
CC37 20 CE DB   JSR drdbyt
CC3A 8D 95 43   STA lstbuf
CC3D          sr20:
CC3D 20 C0 DB   JSR getpnt
CC40 CE 97 43   DEC filcnt
CC43 A0 00      LDY #$0
CC45 B1 27      LDA (dirbuf),Y
CC47 D0 18      BNE LCC61
CC49          LCC49:
CC49 AD 93 43   LDA delsec
CC4C D0 2F      BNE search
CC4E          LCC4E:
CC4E 20 14 E7   JSR curblk
CC51 A5 14      LDA sector
CC53 8D 93 43   STA delsec
CC56 A5 27      LDA dirbuf
CC58 AE 94 43   LDX delind
CC5B 8D 94 43   STA delind
CC5E F0 1D      BEQ search
CC60          LCC60:
CC60 60         RTS
CC61          LCC61:
CC61 A2 01      LDX #$1
CC63 EC 94 43   CPX delind
CC66 D0 2D      BNE sr50
CC68          LCC68:
CC68 F0 13      BEQ search
CC6A          LCC6A:
CC6A AD CA 10   LDA dirtrack
CC6D 85 13      STA track
CC6F AD 92 43   LDA dirsec
CC72 85 14      STA sector
CC74 20 4B DB   JSR opnird
CC77 AD 96 43   LDA index
CC7A 20 A0 DB   JSR setpnt
CC7D          search:
CC7D A9 FF      LDA #$FF
CC7F 8D 48 43   STA entfnd
CC82 AD 97 43   LDA filcnt
CC85 30 08      BMI LCC8F
CC87          LCC87:
CC87 A9 20      LDA #$20
CC89 20 14 D9   JSR incptr
CC8C 4C 3D CC   JMP sr20
CC8F          LCC8F:
CC8F 20 23 DB   JSR nxtbuf
CC92 4C 2A CC   JMP LCC2A
CC95          sr50:
CC95 A5 27      LDA dirbuf
CC97 8D 96 43   STA index
CC9A 20 14 E7   JSR curblk
CC9D A5 14      LDA sector
CC9F 8D 92 43   STA dirsec
CCA2 60         RTS
CCA3          autoi_j:
CCA3 AD F3 10   LDA autofg
CCA6 D0 26      BNE auto2
CCA8          LCCA8:
CCA8 A6 12      LDX drvnum
CCAA 5E A6 10   LSR wpsw,X
CCAD 90 1F      BCC auto2
CCAF          LCCAF:
CCAF A9 FF      LDA #$FF
CCB1 8D 9A 43   STA jobrtn
CCB4 20 78 D7   JSR itrial
CCB7 A0 FF      LDY #$FF
CCB9 C9 02      CMP #$2
CCBB F0 06      BEQ auto1
CCBD          LCCBD:
CCBD C9 03      CMP #$3
CCBF F0 02      BEQ auto1
CCC1          LCCC1:
CCC1 A0 00      LDY #$0
CCC3          auto1:
CCC3 A6 12      LDX drvnum
CCC5 98         TYA
CCC6 9D A1 43   STA nodrv,X
CCC9 D0 03      BNE auto2
CCCB          LCCCB:
CCCB 20 89 D7   JSR initdr
CCCE          auto2:
CCCE A6 12      LDX drvnum
CCD0 BD A1 43   LDA nodrv,X
CCD3 60         RTS
CCD4          trname:
CCD4 48         PHA
CCD5 20 0C CD   JSR fndlmt
CCD8 20 EE CC   JSR trcmbf
CCDB 68         PLA
CCDC 38         SEC
CCDD ED 3C 43   SBC strsiz
CCE0 AA         TAX
CCE1 F0 0A      BEQ LCCED
CCE3          LCCE3:
CCE3 90 08      BCC LCCED
CCE5          LCCE5:
CCE5 A9 A0      LDA #$A0
CCE7          LCCE7:
CCE7 91 27      STA (dirbuf),Y
CCE9 C8         INY
CCEA CA         DEX
CCEB D0 FA      BNE LCCE7
CCED          LCCED:
CCED 60         RTS
CCEE          trcmbf:
CCEE 98         TYA
CCEF 0A         ASL A
CCF0 A8         TAY
CCF1 B9 29 00   LDA buftab_0,Y
CCF4 85 27      STA dirbuf
CCF6 B9 2A 00   LDA buftab_0+1,Y
CCF9 85 28      STA dirbuf+1
CCFB A0 00      LDY #$0
CCFD          LCCFD:
CCFD BD 00 43   LDA cmdbuf,X
CD00 91 27      STA (dirbuf),Y
CD02 C8         INY
CD03 F0 06      BEQ LCD0B
CD05          LCD05:
CD05 E8         INX
CD06 EC 78 43   CPX limit
CD09 90 F2      BCC LCCFD
CD0B          LCD0B:
CD0B 60         RTS
CD0C          fndlmt:
CD0C A9 00      LDA #$0
CD0E 8D 3C 43   STA strsiz
CD11 8A         TXA
CD12 48         PHA
CD13          LCD13:
CD13 BD 00 43   LDA cmdbuf,X
CD16 C9 2C      CMP #$2C
CD18 F0 14      BEQ LCD2E
CD1A          LCD1A:
CD1A C9 3D      CMP #$3D
CD1C F0 10      BEQ LCD2E
CD1E          LCD1E:
CD1E EE 3C 43   INC strsiz
CD21 E8         INX
CD22 A9 0F      LDA #$F
CD24 CD 3C 43   CMP strsiz
CD27 90 05      BCC LCD2E
CD29          LCD29:
CD29 EC 76 43   CPX cmdsiz
CD2C 90 E5      BCC LCD13
CD2E          LCD2E:
CD2E 8E 78 43   STX limit
CD31 68         PLA
CD32 AA         TAX
CD33 60         RTS
CD34          getnam:
CD34 A5 16      LDA sa
CD36 48         PHA
CD37 A5 15      LDA lindx
CD39 48         PHA
CD3A 20 44 CD   JSR gnsub
CD3D 68         PLA
CD3E 85 15      STA lindx
CD40 68         PLA
CD41 85 16      STA sa
CD43 60         RTS
CD44          gnsub:
CD44 A9 11      LDA #$11
CD46 85 16      STA sa
CD48 20 3B D8   JSR fndrch
CD4B 20 C0 DB   JSR getpnt
CD4E AD 48 43   LDA entfnd
CD51 10 0C      BPL LCD5F
CD53          LCD53:
CD53 AD 8F 43   LDA drvflg
CD56 D0 0C      BNE LCD64
CD58          LCD58:
CD58 20 6C CE   JSR msgfre
CD5B 18         CLC
CD5C 4C 13 CE   JMP arts1
CD5F          LCD5F:
CD5F AD 8F 43   LDA drvflg
CD62 F0 1F      BEQ gn10
CD64          LCD64:
CD64 CE 8F 43   DEC drvflg
CD67 D0 0D      BNE gn051
CD69          LCD69:
CD69 CE 8F 43   DEC drvflg
CD6C 20 F2 C9   JSR togdrv
CD6F 20 6C CE   JSR msgfre
CD72 38         SEC
CD73 4C F2 C9   JMP togdrv
CD76          gn051:
CD76 A9 00      LDA #$0
CD78 8D 75 43   STA nbtmp+1
CD7B 8D 8F 43   STA drvflg
CD7E 20 1F CE   JSR newdir
CD81 38         SEC
CD82 60         RTS
CD83          gn10:
CD83 A2 18      LDX #$18
CD85 A0 1D      LDY #$1D
CD87 B1 27      LDA (dirbuf),Y
CD89 8D 75 43   STA nbtmp+1
CD8C F0 02      BEQ LCD90
CD8E          LCD8E:
CD8E A2 16      LDX #$16
CD90          LCD90:
CD90 88         DEY
CD91 B1 27      LDA (dirbuf),Y
CD93 8D 74 43   STA nbtmp
CD96 E0 16      CPX #$16
CD98 F0 0A      BEQ LCDA4
CD9A          LCD9A:
CD9A C9 0A      CMP #$A
CD9C 90 06      BCC LCDA4
CD9E          LCD9E:
CD9E CA         DEX
CD9F C9 64      CMP #$64
CDA1 90 01      BCC LCDA4
CDA3          LCDA3:
CDA3 CA         DEX
CDA4          LCDA4:
CDA4 20 14 CE   JSR blknb
CDA7 B1 27      LDA (dirbuf),Y
CDA9 48         PHA
CDAA 0A         ASL A
CDAB 10 05      BPL LCDB2
CDAD          LCDAD:
CDAD A9 3C      LDA #$3C
CDAF 9D B9 43   STA nambuf+1,X
CDB2          LCDB2:
CDB2 68         PLA
CDB3 29 0F      AND #$F
CDB5 A8         TAY
CDB6 B9 94 FF   LDA type_dspur3,Y
CDB9 9D B8 43   STA nambuf,X
CDBC CA         DEX
CDBD B9 8F FF   LDA type_dspur2,Y
CDC0 9D B8 43   STA nambuf,X
CDC3 CA         DEX
CDC4 B9 8A FF   LDA type_dspur,Y
CDC7 9D B8 43   STA nambuf,X
CDCA CA         DEX
CDCB CA         DEX
CDCC B0 05      BCS LCDD3
CDCE          LCDCE:
CDCE A9 2A      LDA #$2A
CDD0 9D B9 43   STA nambuf+1,X
CDD3          LCDD3:
CDD3 A9 A0      LDA #$A0
CDD5 9D B8 43   STA nambuf,X
CDD8 CA         DEX
CDD9 A0 12      LDY #$12
CDDB          LCDDB:
CDDB B1 27      LDA (dirbuf),Y
CDDD 9D B8 43   STA nambuf,X
CDE0 CA         DEX
CDE1 88         DEY
CDE2 C0 03      CPY #$3
CDE4 B0 F5      BCS LCDDB
CDE6          LCDE6:
CDE6 A9 22      LDA #$22
CDE8 9D B8 43   STA nambuf,X
CDEB          LCDEB:
CDEB E8         INX
CDEC E0 20      CPX #$20
CDEE B0 0B      BCS LCDFB
CDF0          LCDF0:
CDF0 BD B8 43   LDA nambuf,X
CDF3 C9 22      CMP #$22
CDF5 F0 04      BEQ LCDFB
CDF7          LCDF7:
CDF7 C9 A0      CMP #$A0
CDF9 D0 F0      BNE LCDEB
CDFB          LCDFB:
CDFB A9 22      LDA #$22
CDFD 9D B8 43   STA nambuf,X
CE00          LCE00:
CE00 E8         INX
CE01 E0 20      CPX #$20
CE03 B0 0A      BCS LCE0F
CE05          LCE05:
CE05 A9 7F      LDA #$7F
CE07 3D B8 43   AND nambuf,X
CE0A 9D B8 43   STA nambuf,X
CE0D 10 F1      BPL LCE00
CE0F          LCE0F:
CE0F 20 18 CB   JSR LCB18
CE12 38         SEC
CE13          arts1:
CE13 60         RTS
CE14          blknb:
CE14 A0 1B      LDY #$1B
CE16 A9 20      LDA #$20
CE18          LCE18:
CE18 99 B7 43   STA nambuf-1,Y
CE1B 88         DEY
CE1C D0 FA      BNE LCE18
CE1E          LCE1E:
CE1E 60         RTS
CE1F          newdir:
CE1F 20 18 FF   JSR autoi
CE22 20 26 F9   JSR redbam
CE25 20 14 CE   JSR blknb
CE28 A9 FF      LDA #$FF
CE2A 85 04      STA t0_temp
CE2C A6 12      LDX drvnum
CE2E 8E 74 43   STX nbtmp
CE31 A9 00      LDA #$0
CE33 8D 75 43   STA nbtmp+1
CE36 BD 9E FF   LDA hibyteofdirbuf,X
CE39 85 28      STA dirbuf+1
CE3B AD CE 10   LDA positionofdiskname
CE3E 85 27      STA dirbuf
CE40 A0 16      LDY #$16
CE42 B1 27      LDA (dirbuf),Y
CE44 C9 A0      CMP #$A0
CE46 D0 0B      BNE LCE53
CE48          LCE48:
CE48 A9 31      LDA #$31
CE4B          LCE4B = * + 1
              ; Instruction parameter jumped to.
CE4A 2C B1 27   BIT L27B1
CE4D C9 A0      CMP #$A0
CE4F D0 02      BNE LCE53
CE51          LCE51:
CE51 A9 20      LDA #$20
CE53          LCE53:
CE53 99 BA 43   STA nambuf+2,Y
CE56 88         DEY
CE57 10 F2      BPL LCE4B
CE59          LCE59:
CE59 A9 12      LDA #$12
CE5B 8D B8 43   STA nambuf
CE5E A9 22      LDA #$22
CE60 8D B9 43   STA nambuf+1
CE63 8D CA 43   STA L43CA
CE66 A9 20      LDA #$20
CE68 8D CB 43   STA L43CB
CE6B 60         RTS
CE6C          msgfre:
CE6C 20 14 CE   JSR blknb
CE6F A0 0B      LDY #$B
CE71          LCE71:
CE71 B9 7D CE   LDA LCE7D,Y
CE74 99 B8 43   STA nambuf,Y
CE77 88         DEY
CE78 10 F7      BPL LCE71
CE7A          LCE7A:
CE7A 4C BA F7   JMP numfre
CE7D          LCE7D:
CE7D 42 4C 4F   .BYTE $42,$4C,$4F
CE80 43 4B 53   .BYTE $43,$4B,$53
CE83 20 46 52   .BYTE $20,$46,$52
CE86 45 45 2E   .BYTE $45,$45,$2E
CE89          scrtch:
CE89 20 FB      .BYTE $20,$FB
CE8B          LCE8B:
CE8B C9 20      CMP #$20
CE8D 84 C9      STY LC9
CE8F 20 2D CA   JSR optsch
CE92 A9 00      LDA #$0
CE94 85 19      STA r0
CE96 20 00 CB   JSR ffst
CE99 30 3D      BMI LCED8
CE9B          LCE9B:
CE9B 20 91 E6   JSR tstchn
CE9E 90 33      BCC LCED3
CEA0          LCEA0:
CEA0 A0 00      LDY #$0
CEA2 B1 27      LDA (dirbuf),Y
CEA4 29 40      AND #$40
CEA6 D0 2B      BNE LCED3
CEA8          LCEA8:
CEA8 20 0B CF   JSR deldir
CEAB A0 13      LDY #$13
CEAD B1 27      LDA (dirbuf),Y
CEAF F0 0A      BEQ LCEBB
CEB1          LCEB1:
CEB1 85 13      STA track
CEB3 C8         INY
CEB4 B1 27      LDA (dirbuf),Y
CEB6 85 14      STA sector
CEB8 20 E3 CE   JSR delfil
CEBB          LCEBB:
CEBB AE 48 43   LDX entfnd
CEBE A9 20      LDA #$20
CEC0 35 95      AND pattyp,X
CEC2 D0 0D      BNE LCED1
CEC4          LCEC4:
CEC4 BD 82 43   LDA filtrk,X
CEC7 85 13      STA track
CEC9 BD 87 43   LDA filsec,X
CECC 85 14      STA sector
CECE 20 E3 CE   JSR delfil
CED1          LCED1:
CED1 E6 19      INC r0
CED3          LCED3:
CED3 20 EE CA   JSR ffre
CED6 10 C3      BPL LCE9B
CED8          LCED8:
CED8 A5 19      LDA r0
CEDA 85 13      STA track
CEDC A9 01      LDA #$1
CEDE A0 00      LDY #$0
CEE0 4C 07 C8   JMP scrend
CEE3          delfil:
CEE3 20 06 FF   JSR frets
CEE6 20 4B DB   JSR opnird
CEE9          LCEE9:
CEE9 A9 00      LDA #$0
CEEB 20 A0 DB   JSR setpnt
CEEE 20 A4 D8   JSR rdbyt
CEF1 85 13      STA track
CEF3 20 A4 D8   JSR rdbyt
CEF6 85 14      STA sector
CEF8 A5 13      LDA track
CEFA D0 06      BNE del1
CEFC          LCEFC:
CEFC 20 74 F7   JSR mapout
CEFF 4C 74 D9   JMP frechn
CF02          del1:
CF02 20 06 FF   JSR frets
CF05 20 23 DB   JSR nxtbuf
CF08 4C E9 CE   JMP LCEE9
CF0B          deldir:
CF0B A0 00      LDY #$0
CF0D 98         TYA
CF0E 91 27      STA (dirbuf),Y
CF10 20 39 E7   JSR wrtout
CF13 4C 89 DC   JMP watjob
CF16          duplicate:
CF16 20 86 D0   JSR LD086
CF19 A5 91      LDA fildrv+1
CF1B 85 12      STA drvnum
CF1D A9 18      LDA #$18
CF1F 0D 82 02   ORA io_dskcnt
CF22 8D 82 02   STA io_dskcnt
CF25 20 89 D7   JSR initdr
CF28 20 29 FA   JSR setbpt__
CF2B A0 02      LDY #$2
CF2D B1 02      LDA (bmpnt),Y
CF2F CD 9F 10   CMP vernum
CF32 F0 03      BEQ LCF37
CF34          LCF34:
CF34 4C 61 DC   JMP vnerr
CF37          LCF37:
CF37 20 F2 C9   JSR togdrv
CF3A 0A         ASL A
CF3B A8         TAY
CF3C 49 02      EOR #$2
CF3E AA         TAX
CF3F BD 42 43   LDA dskid,X
CF42 99 42 43   STA dskid,Y
CF45 BD 43 43   LDA dskid+1,X
CF48 99 43 43   STA dskid+1,Y
CF4B 20 29 FA   JSR setbpt__
CF4E A0 02      LDY #$2
CF50 AD 9F 10   LDA vernum
CF53 91 02      STA (bmpnt),Y
CF55 20 35 DA   JSR cldchn
CF58 A2 01      LDX #$1
CF5A 86 13      STX track
CF5C 20 E7 CF   JSR format
CF5F          LCF5F:
CF5F A5 13      LDA track
CF61 20 12 FF   JSR maxsec
CF64 85 14      STA sector
CF66 C6 14      DEC sector
CF68 20 7A CF   JSR LCF7A
CF6B E6 13      INC track
CF6D A5 13      LDA track
CF6F CD E9 10   CMP maxtrk
CF72 D0 EB      BNE LCF5F
CF74          LCF74:
CF74 20 89 D7   JSR initdr
CF77 4C FD C7   JMP endcmd
CF7A          LCF7A:
CF7A 20 88 CF   JSR LCF88
CF7D 20 A3 CF   JSR LCFA3
CF80 20 C7 CF   JSR LCFC7
CF83 A5 14      LDA sector
CF85 10 F3      BPL LCF7A
CF87          LCF87:
CF87 60         RTS
CF88          LCF88:
CF88 A5 12      LDA drvnum
CF8A 49 01      EOR #$1
CF8C 8D 3E 43   STA cmd
CF8F A9 0A      LDA #$A
CF91 85 06      STA t2
CF93          LCF93:
CF93 A5 06      LDA t2
CF95 20 1B FF   JSR sethdra
CF98 C6 14      DEC sector
CF9A 30 06      BMI LCFA2
CF9C          LCF9C:
CF9C C6 06      DEC t2
CF9E 10 F3      BPL LCF93
CFA0          LCFA0:
CFA0 E6 06      INC t2
CFA2          LCFA2:
CFA2 60         RTS
CFA3          LCFA3:
CFA3 AD 3E 43   LDA cmd
CFA6 09 80      ORA #$80
CFA8 8D 3E 43   STA cmd
CFAB A6 06      LDX t2
CFAD          LCFAD:
CFAD AD 3E 43   LDA cmd
CFB0 20 F5 DB   JSR setjob
CFB3 E0 0A      CPX #$A
CFB5 F0 03      BEQ LCFBA
CFB7          LCFB7:
CFB7 E8         INX
CFB8 D0 F3      BNE LCFAD
CFBA          LCFBA:
CFBA A6 06      LDX t2
CFBC          LCFBC:
CFBC 20 89 DC   JSR watjob
CFBF E0 0A      CPX #$A
CFC1 F0 03      BEQ LCFC6
CFC3          LCFC3:
CFC3 E8         INX
CFC4 D0 F6      BNE LCFBC
CFC6          LCFC6:
CFC6 60         RTS
CFC7          LCFC7:
CFC7 A9 90      LDA #$90
CFC9 05 12      ORA drvnum
CFCB 8D 3E 43   STA cmd
CFCE A6 06      LDX t2
CFD0          LCFD0:
CFD0 20 F5 DB   JSR setjob
CFD3 E0 0A      CPX #$A
CFD5 F0 03      BEQ LCFDA
CFD7          LCFD7:
CFD7 E8         INX
CFD8 D0 F6      BNE LCFD0
CFDA          LCFDA:
CFDA A6 06      LDX t2
CFDC          LCFDC:
CFDC 20 89 DC   JSR watjob
CFDF E0 0A      CPX #$A
CFE1 F0 03      BEQ LCFE6
CFE3          LCFE3:
CFE3 E8         INX
CFE4 D0 F6      BNE LCFDC
CFE6          LCFE6:
CFE6 60         RTS
CFE7          format:
CFE7 A0 00      LDY #$0
CFE9          LCFE9:
CFE9 B9 00 C0   LDA formatcode_0500,Y
CFEC 99 00 1D   STA buff0_shadow,Y
CFEF B9 00 C1   LDA formatcode_0500+$0100,Y
CFF2 99 00 1E   STA buff1_shadow,Y
CFF5 B9 00 C2   LDA formatcode_0500+$0200,Y
CFF8 99 00 1F   STA buff2_shadow,Y
CFFB B9 00 C3   LDA formatcode_0500+$0300,Y
CFFE 99 00 20   STA buff3,Y
D001 C8         INY
D002 D0 E5      BNE LCFE9
D004          LD004:
D004 8C 73 20   STY formatcode_2073
D007 C8         INY
D008 8C 70 20   STY formatcode_2070
D00B AC AD 10   LDY hwdep_10ad_fmt_trk_??
D00E 8C 75 20   STY formatcode_2075
D011 A9 00      LDA #$0
D013 20 1B FF   JSR sethdra
D016 A5 12      LDA drvnum
D018 09 E0      ORA #$E0
D01A 8D 03 10   STA jobs
D01D          LD01D:
D01D AD 03 10   LDA jobs
D020 30 FB      BMI LD01D
D022          LD022:
D022 C9 01      CMP #$1
D024 F0 05      BEQ LD02B
D026          LD026:
D026 A2 00      LDX #$0
D028 4C 15 FF   JMP error
D02B          LD02B:
D02B 60         RTS
D02C          dskcpy:
D02C 20 4A C8   JSR prscln
D02F D0 1D      BNE LD04E
D031          LD031:
D031 20 86 D0   JSR LD086
D034 A9 2A      LDA #$2A
D036 A2 27      LDX #$27
D038 8E 7D 43   STX filtbl+1
D03B 9D 00 43   STA cmdbuf,X
D03E E8         INX
D03F 8E 76 43   STX cmdsiz
D042 A2 01      LDX #$1
D044 8E 79 43   STX f1cnt
D047 E8         INX
D048 8E 7A 43   STX f2cnt
D04B 4C C9 D0   JMP LD0C9
D04E          LD04E:
D04E 20 5D C8   JSR LC85D
D051 20 84 C9   JSR alldrs
D054 AD 8D 43   LDA image
D057 29 55      AND #$55
D059 D0 21      BNE LD07C
D05B          LD05B:
D05B AE 7C 43   LDX filtbl
D05E BD 00 43   LDA cmdbuf,X
D061 C9 2A      CMP #$2A
D063 D0 17      BNE LD07C
D065          LD065:
D065 A2 01      LDX #$1
D067 8E 79 43   STX f1cnt
D06A A5 90      LDA fildrv
D06C C5 91      CMP fildrv+1
D06E F0 07      BEQ LD077
D070          LD070:
D070 E8         INX
D071 8E 7A 43   STX f2cnt
D074 4C AD D0   JMP LD0AD
D077          LD077:
D077 A9 30      LDA #$30
D079 4C 2D FF   JMP cmderr
D07C          LD07C:
D07C AD 8D 43   LDA image
D07F 29 D9      AND #$D9
D081 D0 F4      BNE LD077
D083          LD083:
D083 4C 6F D1   JMP LD16F
D086          LD086:
D086 A9 3D      LDA #$3D
D088 20 CD C8   JSR parse
D08B D0 05      BNE LD092
D08D          LD08D:
D08D A9 30      LDA #$30
D08F 4C 2D FF   JMP cmderr
D092          LD092:
D092 B9 00 43   LDA cmdbuf,Y
D095 20 20 CA   JSR tst0v1
D098 30 F3      BMI LD08D
D09A          LD09A:
D09A 85 91      STA fildrv+1
D09C 88         DEY
D09D 88         DEY
D09E B9 00 43   LDA cmdbuf,Y
D0A1 20 20 CA   JSR tst0v1
D0A4 30 E7      BMI LD08D
D0A6          LD0A6:
D0A6 C5 91      CMP fildrv+1
D0A8 F0 E3      BEQ LD08D
D0AA          LD0AA:
D0AA 85 90      STA fildrv
D0AC 60         RTS
D0AD          LD0AD:
D0AD AD 7D 43   LDA filtbl+1
D0B0 85 04      STA t0_temp
D0B2 A0 28      LDY #$28
D0B4 AE 76 43   LDX cmdsiz
D0B7 8C 76 43   STY cmdsiz
D0BA          LD0BA:
D0BA 88         DEY
D0BB CA         DEX
D0BC BD 00 43   LDA cmdbuf,X
D0BF 99 00 43   STA cmdbuf,Y
D0C2 E4 04      CPX t0_temp
D0C4 D0 F4      BNE LD0BA
D0C6          LD0C6:
D0C6 8C 7D 43   STY filtbl+1
D0C9          LD0C9:
D0C9 20 2D CA   JSR optsch
D0CC 20 4F D1   JSR LD14F
D0CF 20 00 CB   JSR ffst
D0D2 10 2D      BPL LD101
D0D4          LD0D4:
D0D4 30 28      BMI LD0FE
D0D6          LD0D6:
D0D6 68         PLA
D0D7 8D 92 43   STA dirsec
D0DA 68         PLA
D0DB 8D 7D 43   STA filtbl+1
D0DE 68         PLA
D0DF 8D 95 43   STA lstbuf
D0E2 68         PLA
D0E3 8D 97 43   STA filcnt
D0E6 68         PLA
D0E7 8D 96 43   STA index
D0EA 68         PLA
D0EB 8D 91 43   STA found?
D0EE 68         PLA
D0EF 8D 94 43   STA delind
D0F2 68         PLA
D0F3 8D 8F 43   STA drvflg
D0F6 20 4F D1   JSR LD14F
D0F9 20 EE CA   JSR ffre
D0FC 10 03      BPL LD101
D0FE          LD0FE:
D0FE 4C FD C7   JMP endcmd
D101          LD101:
D101 AD 8F 43   LDA drvflg
D104 48         PHA
D105 AD 94 43   LDA delind
D108 48         PHA
D109 AD 91 43   LDA found?
D10C 48         PHA
D10D AD 96 43   LDA index
D110 48         PHA
D111 AD 97 43   LDA filcnt
D114 48         PHA
D115 AD 95 43   LDA lstbuf
D118 48         PHA
D119 AD 7D 43   LDA filtbl+1
D11C 48         PHA
D11D AD 92 43   LDA dirsec
D120 48         PHA
D121 20 3F D1   JSR LD13F
D124 A9 01      LDA #$1
D126 8D 79 43   STA f1cnt
D129 8D 7A 43   STA f2cnt
D12C 20 B2 CA   JSR lookup
D12F A9 01      LDA #$1
D131 8D 79 43   STA f1cnt
D134 A9 02      LDA #$2
D136 8D 7A 43   STA f2cnt
D139 20 C1 D1   JSR LD1C1
D13C 4C D6 D0   JMP LD0D6
D13F          LD13F:
D13F A0 03      LDY #$3
D141 8C 7C 43   STY filtbl
D144          LD144:
D144 B1 27      LDA (dirbuf),Y
D146 99 00 43   STA cmdbuf,Y
D149 C8         INY
D14A C0 13      CPY #$13
D14C D0 F6      BNE LD144
D14E          LD14E:
D14E 60         RTS
D14F          LD14F:
D14F A9 00      LDA #$0
D151 8D 4D 43   STA rec
D154 8D 8E 43   STA drvcnt
D157 8D 82 43   STA filtrk
D15A 8D 83 43   STA filtrk+1
D15D A5 91      LDA fildrv+1
D15F 29 01      AND #$1
D161 85 12      STA drvnum
D163 09 01      ORA #$1
D165 8D 93 43   STA delsec
D168 AD 7D 43   LDA filtbl+1
D16B 8D 7C 43   STA filtbl
D16E 60         RTS
D16F          LD16F:
D16F 20 B2 CA   JSR lookup
D172 AD 7A 43   LDA f2cnt
D175 C9 03      CMP #$3
D177 90 42      BCC LD1BB
D179          LD179:
D179 A5 90      LDA fildrv
D17B C5 91      CMP fildrv+1
D17D D0 3C      BNE LD1BB
D17F          LD17F:
D17F A5 8B      LDA entind
D181 C5 8C      CMP entind+1
D183 D0 36      BNE LD1BB
D185          LD185:
D185 A5 86      LDA entsec
D187 C5 87      CMP entsec+1
D189 D0 30      BNE LD1BB
D18B          LD18B:
D18B 20 E3 D2   JSR chkin
D18E A9 01      LDA #$1
D190 8D 7B 43   STA f2ptr
D193 20 14 D2   JSR LD214
D196 20 73 D8   JSR typfil
D199 F0 04      BEQ LD19F
D19B          LD19B:
D19B C9 02      CMP #$2
D19D D0 05      BNE LD1A4
D19F          LD19F:
D19F A9 64      LDA #$64
D1A1 20 2D FF   JSR cmderr
D1A4          LD1A4:
D1A4 A9 12      LDA #$12
D1A6 85 16      STA sa
D1A8 A5 BD      LDA LBD
D1AA 85 BE      STA LBE
D1AC A9 FF      LDA #$FF
D1AE 85 BD      STA LBD
D1B0 20 66 E2   JSR append
D1B3 A2 02      LDX #$2
D1B5 20 D3 D1   JSR LD1D3
D1B8 4C FD C7   JMP endcmd
D1BB          LD1BB:
D1BB 20 C1 D1   JSR LD1C1
D1BE 4C FD C7   JMP endcmd
D1C1          LD1C1:
D1C1 20 FD D2   JSR chkio
D1C4 A5 90      LDA fildrv
D1C6 29 01      AND #$1
D1C8 85 12      STA drvnum
D1CA 20 5B DB   JSR LDB5B
D1CD 20 D0 DD   JSR addfil
D1D0 AE 79 43   LDX f1cnt
D1D3          LD1D3:
D1D3 8E 7B 43   STX f2ptr
D1D6 20 14 D2   JSR LD214
D1D9 A9 11      LDA #$11
D1DB 85 16      STA sa
D1DD 20 3B D8   JSR fndrch
D1E0 20 73 D8   JSR typfil
D1E3 D0 03      BNE LD1E8
D1E5          LD1E5:
D1E5 20 6C D2   JSR cyext
D1E8          LD1E8:
D1E8 A9 08      LDA #$8
D1EA 85 AA      STA eoiflg
D1EC 4C F2 D1   JMP LD1F2
D1EF          LD1EF:
D1EF 20 FE D6   JSR LD6FE
D1F2          LD1F2:
D1F2 20 4E D2   JSR gibyte
D1F5 A9 80      LDA #$80
D1F7 20 80 E6   JSR LE680
D1FA F0 F3      BEQ LD1EF
D1FC          LD1FC:
D1FC 20 73 D8   JSR typfil
D1FF F0 03      BEQ LD204
D201          LD201:
D201 20 FE D6   JSR LD6FE
D204          LD204:
D204 AE 7B 43   LDX f2ptr
D207 E8         INX
D208 EC 7A 43   CPX f2cnt
D20B 90 C6      BCC LD1D3
D20D          LD20D:
D20D A9 12      LDA #$12
D20F 85 16      STA sa
D211 4C 3A E3   JMP LE33A
D214          LD214:
D214 AE 7B 43   LDX f2ptr
D217 B5 90      LDA fildrv,X
D219 29 01      AND #$1
D21B 85 12      STA drvnum
D21D AD CA 10   LDA dirtrack
D220 85 13      STA track
D222 B5 86      LDA entsec,X
D224 85 14      STA sector
D226 20 4B DB   JSR opnird
D229 AE 7B 43   LDX f2ptr
D22C B5 8B      LDA entind,X
D22E 20 A0 DB   JSR setpnt
D231 AE 7B 43   LDX f2ptr
D234 B5 95      LDA pattyp,X
D236 29 07      AND #$7
D238 85 CF      STA type
D23A A9 00      LDA #$0
D23C 8D 4D 43   STA rec
D23F 20 DD E1   JSR opread
D242 A0 01      LDY #$1
D244 20 73 D8   JSR typfil
D247 F0 01      BEQ LD24A
D249          LD249:
D249 C8         INY
D24A          LD24A:
D24A 98         TYA
D24B 4C A0 DB   JMP setpnt
D24E          gibyte:
D24E A9 11      LDA #$11
D250 85 16      STA sa
D252          gcbyte:
D252 20 76 DA   JSR gbyte
D255 85 18      STA data
D257 A6 15      LDX lindx
D259 B5 A2      LDA chnrdy,X
D25B 29 08      AND #$8
D25D 85 AA      STA eoiflg
D25F D0 0A      BNE gib20
D261          LD261:
D261 20 73 D8   JSR typfil
D264 F0 05      BEQ gib20
D266          LD266:
D266 A9 80      LDA #$80
D268 20 71 E6   JSR setflg
D26B          gib20:
D26B 60         RTS
D26C          cyext:
D26C 20 21 D9   JSR setdrn
D26F 20 D7 EA   JSR ssend?
D272 20 B4 FA   JSR getnsides_min1
D275 D0 04      BNE LD27B
D277          LD277:
D277 AD CF 10   LDA L10CF
D27A 48         PHA
D27B          LD27B:
D27B A5 84      LDA ssind
D27D 48         PHA
D27E A5 83      LDA ssnum
D280 48         PHA
D281 A9 12      LDA #$12
D283 85 16      STA sa
D285 20 56 D8   JSR fndwch
D288 20 9E ED   JSR posbuf?
D28B 85 85      STA relptr
D28D 68         PLA
D28E 85 83      STA ssnum
D290 68         PLA
D291 85 84      STA ssind
D293 20 B4 FA   JSR getnsides_min1
D296 D0 04      BNE LD29C
D298          LD298:
D298 68         PLA
D299 8D CF 10   STA L10CF
D29C          LD29C:
D29C 4C 43 EC   JMP addr1?
D29F          rename:
D29F 20 84 C9   JSR alldrs
D2A2 A5 91      LDA fildrv+1
D2A4 29 01      AND #$1
D2A6 85 91      STA fildrv+1
D2A8 C5 90      CMP fildrv
D2AA F0 02      BEQ LD2AE
D2AC          LD2AC:
D2AC 09 80      ORA #$80
D2AE          LD2AE:
D2AE 85 90      STA fildrv
D2B0 20 B2 CA   JSR lookup
D2B3 20 FD D2   JSR chkio
D2B6 A5 91      LDA fildrv+1
D2B8 29 01      AND #$1
D2BA 85 12      STA drvnum
D2BC A5 87      LDA entsec+1
D2BE 85 14      STA sector
D2C0 20 32 E7   JSR rdab
D2C3 20 89 DC   JSR watjob
D2C6 A5 8C      LDA entind+1
D2C8 18         CLC
D2C9 69 03      ADC #$3
D2CB 20 A0 DB   JSR setpnt
D2CE 20 BB E8   JSR getact
D2D1 A8         TAY
D2D2 AE 7C 43   LDX filtbl
D2D5 A9 10      LDA #$10
D2D7 20 D4 CC   JSR trname
D2DA 20 39 E7   JSR wrtout
D2DD 20 89 DC   JSR watjob
D2E0 4C FD C7   JMP endcmd
D2E3          chkin:
D2E3 A5 96      LDA pattyp+1
D2E5 29 07      AND #$7
D2E7 85 CF      STA type
D2E9 AE 7A 43   LDX f2cnt
D2EC          LD2EC:
D2EC CA         DEX
D2ED EC 79 43   CPX f1cnt
D2F0 90 0A      BCC LD2FC
D2F2          LD2F2:
D2F2 BD 82 43   LDA filtrk,X
D2F5 D0 F5      BNE LD2EC
D2F7          LD2F7:
D2F7 A9 62      LDA #$62
D2F9 4C 2D FF   JMP cmderr
D2FC          LD2FC:
D2FC 60         RTS
D2FD          chkio:
D2FD 20 E3 D2   JSR chkin
D300          LD300:
D300 BD 82 43   LDA filtrk,X
D303 F0 05      BEQ LD30A
D305          LD305:
D305 A9 63      LDA #$63
D307 4C 2D FF   JMP cmderr
D30A          LD30A:
D30A CA         DEX
D30B 10 F3      BPL LD300
D30D          LD30D:
D30D 60         RTS
D30E          mem:
D30E AD 01 43   LDA cmdbuf+1
D311 C9 2D      CMP #$2D
D313 D0 4B      BNE memerr
D315          LD315:
D315 AD 03 43   LDA cmdbuf+3
D318 85 04      STA t0_temp
D31A AD 04 43   LDA cmdbuf+4
D31D 85 05      STA t1
D31F A0 00      LDY #$0
D321 AD 02 43   LDA cmdbuf+2
D324 C9 52      CMP #$52
D326 F0 0E      BEQ memrd
D328          LD328:
D328 20 A7 FA   JSR killp_rotection
D32B C9 57      CMP #$57
D32D F0 36      BEQ memwrt
D32F          LD32F:
D32F C9 45      CMP #$45
D331 D0 2D      BNE memerr
D333          LD333:
D333 6C 04 00   JMP (t0_temp)
D336          memrd:
D336 B1 04      LDA (t0_temp),Y
D338 85 18      STA data
D33A AD 76 43   LDA cmdsiz
D33D C9 06      CMP #$6
D33F 90 19      BCC m30
D341          mrmult:
D341 AE 05 43   LDX cmdbuf+5
D344 CA         DEX
D345 F0 13      BEQ m30
D347          LD347:
D347 8A         TXA
D348 18         CLC
D349 65 04      ADC t0_temp
D34B E6 04      INC t0_temp
D34D 85 CE      STA lstchr+errchn
D34F A5 04      LDA t0_temp
D351 85 47      STA buftab_errbuf?
D353 A5 05      LDA t1
D355 85 48      STA cb+3
D357 4C 1A DB   JMP ge20
D35A          m30:
D35A 20 3B D8   JSR fndrch
D35D 4C 11 DB   JMP ge15
D360          memerr:
D360 A9 31      LDA #$31
D362 4C 2D FF   JMP cmderr
D365          memwrt:
D365 B9 06 43   LDA cmdbuf+6,Y
D368 91 04      STA (t0_temp),Y
D36A C8         INY
D36B CC 05 43   CPY cmdbuf+5
D36E 90 F5      BCC memwrt
D370          LD370:
D370 60         RTS
D371          user:
D371 AC 01 43   LDY cmdbuf+1
D374 C0 30      CPY #$30
D376 D0 09      BNE LD381
D378          LD378:
D378 A9 EA      LDA #$EA
D37A 85 00      STA usrjmp
D37C A9 FF      LDA #$FF
D37E 85 01      STA usrjmp+1
D380 60         RTS
D381          LD381:
D381 20 87 D3   JSR usrexc
D384 4C FD C7   JMP endcmd
D387          usrexc:
D387 88         DEY
D388 98         TYA
D389 29 0F      AND #$F
D38B 0A         ASL A
D38C A8         TAY
D38D B1 00      LDA (usrjmp),Y
D38F 85 0A      STA ip
D391 C8         INY
D392 B1 00      LDA (usrjmp),Y
D394 85 0B      STA ip+1
D396 6C 0A 00   JMP (ip)
D399          opnblk:
D399 AD 90 43   LDA lstdrv
D39C 85 12      STA drvnum
D39E A5 16      LDA sa
D3A0 48         PHA
D3A1 20 18 FF   JSR autoi
D3A4 68         PLA
D3A5 85 16      STA sa
D3A7 AE 76 43   LDX cmdsiz
D3AA CA         DEX
D3AB D0 0D      BNE ob10
D3AD          LD3AD:
D3AD A9 01      LDA #$1
D3AF 20 30 D9   JSR getrch
D3B2 4C 04 D4   JMP LD404
D3B5          ob05:
D3B5 A9 70      LDA #$70
D3B7 4C 2D FF   JMP cmderr
D3BA          ob10:
D3BA A0 01      LDY #$1
D3BC 20 8D D4   JSR LD48D
D3BF AE 87 43   LDX filsec
D3C2 E0 0C      CPX #$C
D3C4 B0 EF      BCS ob05
D3C6          LD3C6:
D3C6 A9 00      LDA #$0
D3C8 85 04      STA t0_temp
D3CA 85 05      STA t1
D3CC 38         SEC
D3CD          LD3CD:
D3CD 26 04      ROL t0_temp
D3CF 26 05      ROL t1
D3D1 CA         DEX
D3D2 10 F9      BPL LD3CD
D3D4          LD3D4:
D3D4 A5 04      LDA t0_temp
D3D6 2D 40 43   AND bufuse
D3D9 D0 DA      BNE ob05
D3DB          LD3DB:
D3DB A5 05      LDA t1
D3DD 2D 41 43   AND bufuse+1
D3E0 D0 D3      BNE ob05
D3E2          LD3E2:
D3E2 A5 04      LDA t0_temp
D3E4 0D 40 43   ORA bufuse
D3E7 8D 40 43   STA bufuse
D3EA A5 05      LDA t1
D3EC 0D 41 43   ORA bufuse+1
D3EF 8D 41 43   STA bufuse+1
D3F2 A9 00      LDA #$0
D3F4 20 30 D9   JSR getrch
D3F7 A6 15      LDX lindx
D3F9 AD 87 43   LDA filsec
D3FC 95 49      STA buf0,X
D3FE AA         TAX
D3FF A5 12      LDA drvnum
D401 9D 50 43   STA lstjob,X
D404          LD404:
D404 A6 16      LDX sa
D406 B5 AC      LDA lintab,X
D408 09 40      ORA #$40
D40A 95 AC      STA lintab,X
D40C A4 15      LDY lindx
D40E A9 FF      LDA #$FF
D410 99 C7 00   STA lstchr,Y
D413 A9 89      LDA #$89
D415 99 A2 00   STA chnrdy,Y
D418 B9 49 00   LDA buf0,Y
D41B 99 BF 00   STA chndat,Y
D41E 0A         ASL A
D41F AA         TAX
D420 A9 01      LDA #$1
D422 95 29      STA buftab_0,X
D424 A9 0E      LDA #$E
D426 99 9A 00   STA filtyp,Y
D429 4C FD C7   JMP endcmd
D42C          block:
D42C A0 00      LDY #$0
D42E A2 00      LDX #$0
D430 A9 2D      LDA #$2D
D432 20 CD C8   JSR parse
D435 D0 0A      BNE blk40
D437          blk10:
D437 A9 31      LDA #$31
D439 4C 2D FF   JMP cmderr
D43C          blk30:
D43C A9 30      LDA #$30
D43E 4C 2D FF   JMP cmderr
D441          blk40:
D441 8A         TXA
D442 D0 F8      BNE blk30
D444          LD444:
D444 A2 05      LDX #$5
D446 B9 00 43   LDA cmdbuf,Y
D449          blk50:
D449 DD 6E D4   CMP bctab,X
D44C F0 05      BEQ blk60
D44E          LD44E:
D44E CA         DEX
D44F 10 F8      BPL blk50
D451          LD451:
D451 30 E4      BMI blk10
D453          blk60:
D453 8A         TXA
D454 09 80      ORA #$80
D456 8D 3B 43   STA cmdnum
D459 20 80 D4   JSR blkpar
D45C AD 3B 43   LDA cmdnum
D45F 0A         ASL A
D460 AA         TAX
D461 BD 75 D4   LDA bcjmp+1,X
D464 85 05      STA t1
D466 BD 74 D4   LDA bcjmp,X
D469 85 04      STA t0_temp
D46B 6C 04 00   JMP (t0_temp)
D46E          bctab:
D46E 41 46 52   .BYTE $41,$46,$52
D471 57 45 50   .BYTE $57,$45,$50
D474          bcjmp:
D475          bcjmp+1 = * + 1
D474 0F D5 06   .BYTE $F,$D5,$6
D477 D5 62 D5   .BYTE $D5,$62,$D5
D47A 7F D5 B1   .BYTE $7F,$D5,$B1
D47D D5 CB D5   .BYTE $D5,$CB,$D5
D480          blkpar:
D480 A0 00      LDY #$0
D482 A2 00      LDX #$0
D484 A9 3A      LDA #$3A
D486 20 CD C8   JSR parse
D489 D0 02      BNE LD48D
D48B          LD48B:
D48B A0 03      LDY #$3
D48D          LD48D:
D48D B9 00 43   LDA cmdbuf,Y
D490 C9 20      CMP #$20
D492 F0 08      BEQ LD49C
D494          LD494:
D494 C9 1D      CMP #$1D
D496 F0 04      BEQ LD49C
D498          LD498:
D498 C9 2C      CMP #$2C
D49A D0 07      BNE LD4A3
D49C          LD49C:
D49C C8         INY
D49D CC 76 43   CPY cmdsiz
D4A0 90 EB      BCC LD48D
D4A2          LD4A2:
D4A2 60         RTS
D4A3          LD4A3:
D4A3 20 B2 D4   JSR aschex
D4A6 EE 79 43   INC f1cnt
D4A9 AC 7B 43   LDY f2ptr
D4AC E0 04      CPX #$4
D4AE 90 EC      BCC LD49C
D4B0          LD4B0:
D4B0 B0 8A      BCS blk30
D4B2          aschex:
D4B2 A9 00      LDA #$0
D4B4 85 04      STA t0_temp
D4B6 85 05      STA t1
D4B8 85 07      STA t3
D4BA A2 FF      LDX #$FF
D4BC          LD4BC:
D4BC B9 00 43   LDA cmdbuf,Y
D4BF C9 40      CMP #$40
D4C1 B0 18      BCS ah20
D4C3          LD4C3:
D4C3 C9 30      CMP #$30
D4C5 90 14      BCC ah20
D4C7          LD4C7:
D4C7 29 0F      AND #$F
D4C9 48         PHA
D4CA A5 05      LDA t1
D4CC 85 06      STA t2
D4CE A5 04      LDA t0_temp
D4D0 85 05      STA t1
D4D2 68         PLA
D4D3 85 04      STA t0_temp
D4D5 C8         INY
D4D6 CC 76 43   CPY cmdsiz
D4D9 90 E1      BCC LD4BC
D4DB          ah20:
D4DB 8C 7B 43   STY f2ptr
D4DE 18         CLC
D4DF A9 00      LDA #$0
D4E1          LD4E1:
D4E1 E8         INX
D4E2 E0 03      CPX #$3
D4E4 B0 0F      BCS LD4F5
D4E6          LD4E6:
D4E6 B4 04      LDY t0_temp,X
D4E8          LD4E8:
D4E8 88         DEY
D4E9 30 F6      BMI LD4E1
D4EB          LD4EB:
D4EB 7D 03 D5   ADC dectab,X
D4EE 90 F8      BCC LD4E8
D4F0          LD4F0:
D4F0 18         CLC
D4F1 E6 07      INC t3
D4F3 D0 F3      BNE LD4E8
D4F5          LD4F5:
D4F5 48         PHA
D4F6 AE 79 43   LDX f1cnt
D4F9 A5 07      LDA t3
D4FB 9D 82 43   STA filtrk,X
D4FE 68         PLA
D4FF 9D 87 43   STA filsec,X
D502 60         RTS
D503          dectab:
D503 01 0A 64   .BYTE $1,$A,$64
D506          blkfre:
D506 20 03 D6   JSR blktst
D509 20 06 FF   JSR frets
D50C 4C FD C7   JMP endcmd
D50F          blkalc:
D50F 20 03 D6   JSR blktst
D512 A5 14      LDA sector
D514 48         PHA
D515 20 35 FA   JSR getsec
D518 F0 0B      BEQ LD525
D51A          LD51A:
D51A 68         PLA
D51B C5 14      CMP sector
D51D D0 19      BNE LD538
D51F          LD51F:
D51F 20 09 FF   JSR wused
D522 4C FD C7   JMP endcmd
D525          LD525:
D525 68         PLA
D526          LD526:
D526 A9 00      LDA #$0
D528 85 14      STA sector
D52A E6 13      INC track
D52C A5 13      LDA track
D52E CD E9 10   CMP maxtrk
D531 B0 0A      BCS LD53D
D533          LD533:
D533 20 35 FA   JSR getsec
D536 F0 EE      BEQ LD526
D538          LD538:
D538 A9 65      LDA #$65
D53A 20 30 FF   JSR cmder2
D53D          LD53D:
D53D A9 65      LDA #$65
D53F 20 2D FF   JSR cmderr
D542          blkrd2:
D542 20 00 D6   JSR bkotst
D545 4C 36 DB   JMP drtrd
D548          getsim:
D548 20 7D D8   JSR getpre
D54B A1 29      LDA (buftab_0,X)
D54D 60         RTS
D54E          blkrd3:
D54E 20 42 D5   JSR blkrd2
D551 A9 00      LDA #$0
D553 20 A0 DB   JSR setpnt
D556 20 48 D5   JSR getsim
D559 99 C7 00   STA lstchr,Y
D55C A9 89      LDA #$89
D55E 99 A2 00   STA chnrdy,Y
D561 60         RTS
D562          blkrd:
D562 20 4E D5   JSR blkrd3
D565 20 C4 DA   JSR rnget1
D568 4C FD C7   JMP endcmd
D56B          ublkrd:
D56B 20 80 D4   JSR blkpar
D56E 20 4E D5   JSR blkrd3
D571 B9 C7 00   LDA lstchr,Y
D574 99 BF 00   STA chndat,Y
D577 A9 FF      LDA #$FF
D579 99 C7 00   STA lstchr,Y
D57C 4C FD C7   JMP endcmd
D57F          blkwt:
D57F 20 00 D6   JSR bkotst
D582 20 C0 DB   JSR getpnt
D585 A8         TAY
D586 88         DEY
D587 C9 02      CMP #$2
D589 B0 02      BCS LD58D
D58B          LD58B:
D58B A0 01      LDY #$1
D58D          LD58D:
D58D A9 00      LDA #$0
D58F 20 A0 DB   JSR setpnt
D592 98         TYA
D593 20 4A D7   JSR putbyt
D596 8A         TXA
D597 48         PHA
D598 20 3A DB   JSR drtwrt
D59B 68         PLA
D59C AA         TAX
D59D A4 15      LDY lindx
D59F 20 C6 DA   JSR rnget2
D5A2 4C FD C7   JMP endcmd
D5A5          ublkwt:
D5A5 20 80 D4   JSR blkpar
D5A8 20 00 D6   JSR bkotst
D5AB 20 3A DB   JSR drtwrt
D5AE 4C FD C7   JMP endcmd
D5B1          blkexc:
D5B1 20 A7 FA   JSR killp_rotection
D5B4 20 42 D5   JSR blkrd2
D5B7 A9 00      LDA #$0
D5B9 85 04      STA t0_temp
D5BB A6 AB      LDX jobnum
D5BD BD DE DB   LDA bufind,X
D5C0 85 05      STA t1
D5C2 20 C8 D5   JSR be10
D5C5 4C FD C7   JMP endcmd
D5C8          be10:
D5C8 6C 04 00   JMP (t0_temp)
D5CB          blkptr:
D5CB 20 E0 D5   JSR buftst
D5CE A5 AB      LDA jobnum
D5D0 0A         ASL A
D5D1 AA         TAX
D5D2 AD 88 43   LDA filsec+1
D5D5 95 29      STA buftab_0,X
D5D7 20 7D D8   JSR getpre
D5DA 20 C6 DA   JSR rnget2
D5DD 4C FD C7   JMP endcmd
D5E0          buftst:
D5E0 A6 81      LDX f1ptr
D5E2 E6 81      INC f1ptr
D5E4 BD 87 43   LDA filsec,X
D5E7 A8         TAY
D5E8 88         DEY
D5E9 88         DEY
D5EA C0 0C      CPY #$C
D5EC 90 05      BCC LD5F3
D5EE          LD5EE:
D5EE A9 70      LDA #$70
D5F0 4C 2D FF   JMP cmderr
D5F3          LD5F3:
D5F3 85 16      STA sa
D5F5 20 3B D8   JSR fndrch
D5F8 B0 F4      BCS LD5EE
D5FA          LD5FA:
D5FA 20 BB E8   JSR getact
D5FD 85 AB      STA jobnum
D5FF 60         RTS
D600          bkotst:
D600 20 E0 D5   JSR buftst
D603          blktst:
D603 A6 81      LDX f1ptr
D605 BD 87 43   LDA filsec,X
D608 29 01      AND #$1
D60A 85 12      STA drvnum
D60C BD 89 43   LDA filsec+2,X
D60F 85 14      STA sector
D611 BD 88 43   LDA filsec+1,X
D614 85 13      STA track
D616 20 4E DC   JSR tschk
D619 4C 21 FF   JMP setlda
D61C          fndrel:
D61C 20 54 D6   JSR mulply
D61F 20 96 D6   JSR div254
D622 A5 23      LDA accum+1
D624 85 85      STA relptr
D626 20 99 D6   JSR div120
D629 E6 85      INC relptr
D62B E6 85      INC relptr
D62D 20 B4 FA   JSR getnsides_min1
D630 F0 0D      BEQ LD63F
D632          LD632:
D632 A5 1E      LDA result
D634 85 83      STA ssnum
D636 A5 23      LDA accum+1
D638 0A         ASL A
D639 18         CLC
D63A 69 10      ADC #$10
D63C 85 84      STA ssind
D63E 60         RTS
D63F          LD63F:
D63F A5 23      LDA accum+1
D641 0A         ASL A
D642 18         CLC
D643 69 10      ADC #$10
D645 85 84      STA ssind
D647 20 9C D6   JSR div6
D64A A5 23      LDA accum+1
D64C 85 83      STA ssnum
D64E A5 1E      LDA result
D650 8D CF 10   STA L10CF
D653 60         RTS
D654          mulply:
D654 20 C8 D6   JSR zerres
D657 85 25      STA accum+3
D659 A6 15      LDX lindx
D65B B5 59      LDA recl,X
D65D 85 23      STA accum+1
D65F B5 61      LDA rech,X
D661 85 24      STA accum+2
D663 D0 04      BNE mul25
D665          LD665:
D665 A5 23      LDA accum+1
D667 F0 0B      BEQ LD674
D669          mul25:
D669 A5 23      LDA accum+1
D66B 38         SEC
D66C E9 01      SBC #$1
D66E 85 23      STA accum+1
D670 B0 02      BCS LD674
D672          LD672:
D672 C6 24      DEC accum+2
D674          LD674:
D674 B5 71      LDA rs,X
D676 85 04      STA t0_temp
D678          mul100:
D678 46 04      LSR t0_temp
D67A 90 03      BCC LD67F
D67C          LD67C:
D67C 20 DC D6   JSR addres
D67F          LD67F:
D67F 20 D4 D6   JSR accx2
D682 A5 04      LDA t0_temp
D684 D0 F2      BNE mul100
D686          LD686:
D686 A5 82      LDA recptr
D688 18         CLC
D689 65 1E      ADC result
D68B 85 1E      STA result
D68D 90 06      BCC LD695
D68F          LD68F:
D68F E6 1F      INC result+1
D691 D0 02      BNE LD695
D693          LD693:
D693 E6 20      INC result+2
D695          LD695:
D695 60         RTS
D696          div254:
D696 A9 FE      LDA #$FE
D699          div120 = * + 1
              ; Instruction parameter jumped to.
D698 2C A9 78   BIT L78A9
D69C          div6 = * + 1
              ; Instruction parameter jumped to.
D69B 2C A9 06   BIT L6A9
D69E 85 04      STA t0_temp
D6A0 A9 00      LDA #$0
D6A2 85 23      STA accum+1
D6A4 85 24      STA accum+2
D6A6 A2 18      LDX #$18
D6A8          LD6A8:
D6A8 06 1E      ASL result
D6AA 26 1F      ROL result+1
D6AC 26 20      ROL result+2
D6AE 26 23      ROL accum+1
D6B0 26 24      ROL accum+2
D6B2 A5 23      LDA accum+1
D6B4 38         SEC
D6B5 E5 04      SBC t0_temp
D6B7 A8         TAY
D6B8 A5 24      LDA accum+2
D6BA E9 00      SBC #$0
D6BC 90 06      BCC LD6C4
D6BE          LD6BE:
D6BE E6 1E      INC result
D6C0 85 24      STA accum+2
D6C2 84 23      STY accum+1
D6C4          LD6C4:
D6C4 CA         DEX
D6C5 D0 E1      BNE LD6A8
D6C7          LD6C7:
D6C7 60         RTS
D6C8          zerres:
D6C8 A9 00      LDA #$0
D6CA 85 1E      STA result
D6CC 85 1F      STA result+1
D6CE 85 20      STA result+2
D6D0 60         RTS
D6D1          accx4:
D6D1 20 D4 D6   JSR accx2
D6D4          accx2:
D6D4 18         CLC
D6D5 26 23      ROL accum+1
D6D7 26 24      ROL accum+2
D6D9 26 25      ROL accum+3
D6DB 60         RTS
D6DC          addres:
D6DC 18         CLC
D6DD A2 FD      LDX #$FD
D6DF          LD6DF:
D6DF B5 21      LDA result+3,X
D6E1 75 26      ADC accum+4,X
D6E3 95 21      STA result+3,X
D6E5 E8         INX
D6E6 D0 F7      BNE LD6DF
D6E8          LD6E8:
D6E8 60         RTS
D6E9          dbl15_:
D6E9 A6 15      LDX lindx
D6EB B5 49      LDA buf0,X
D6ED 49 80      EOR #$80
D6EF 95 49      STA buf0,X
D6F1 B5 51      LDA buf1,X
D6F3 49 80      EOR #$80
D6F5 95 51      STA buf1,X
D6F7 20 BB E8   JSR getact
D6FA AA         TAX
D6FB 4C 89 DC   JMP watjob
D6FE          LD6FE:
D6FE A2 12      LDX #$12
D700 86 16      STX sa
D702 20 56 D8   JSR fndwch
D705 20 21 FF   JSR setlda
D708 A5 16      LDA sa
D70A C9 0F      CMP #$F
D70C F0 23      BEQ LD731
D70E          LD70E:
D70E D0 08      BNE LD718
D710          put:
D710 A5 17      LDA orgsa
D712 29 8F      AND #$8F
D714 C9 0F      CMP #$F
D716 B0 19      BCS LD731
D718          LD718:
D718 20 73 D8   JSR typfil
D71B B0 05      BCS l_41
D71D          LD71D:
D71D A5 18      LDA data
D71F 4C EB D8   JMP wrtbyt
D722          l_41:
D722 D0 03      BNE l_46
D724          LD724:
D724 4C BA E9   JMP wrtrel
D727          l_46:
D727 A5 18      LDA data
D729 20 4A D7   JSR putbyt
D72C A4 15      LDY lindx
D72E 4C C6 DA   JMP rnget2
D731          LD731:
D731 A9 06      LDA #$6
D733 85 15      STA lindx
D735 20 C0 DB   JSR getpnt
D738 C9 3B      CMP #$3B
D73A F0 05      BEQ l_50
D73C          LD73C:
D73C A5 18      LDA data
D73E 20 4A D7   JSR putbyt
D741          l_50:
D741 A5 AA      LDA eoiflg
D743 F0 01      BEQ l_45
D745          LD745:
D745 60         RTS
D746          l_45:
D746 EE 4A 43   INC cmdwat
D749 60         RTS
D74A          putbyt:
D74A 48         PHA
D74B 20 BB E8   JSR getact
D74E 10 06      BPL putb1
D750          LD750:
D750 68         PLA
D751 A9 61      LDA #$61
D753 4C 2D FF   JMP cmderr
D756          putb1:
D756 0A         ASL A
D757 AA         TAX
D758 68         PLA
D759 81 29      STA (buftab_0,X)
D75B F6 29      INC buftab_0,X
D75D 60         RTS
D75E          intdrv:
D75E 20 36 C8   JSR simprs
D761 20 89 D7   JSR initdr
D764 AD 8D 43   LDA image
D767 10 0C      BPL LD775
D769          LD769:
D769 20 F2 C9   JSR togdrv
D76C 20 21 FF   JSR setlda
D76F 20 89 D7   JSR initdr
D772 20 F2 C9   JSR togdrv
D775          LD775:
D775 4C FD C7   JMP endcmd
D778          itrial:
D778 A9 0E      LDA #$E
D77A 85 AB      STA jobnum
D77C AE CA 10   LDX dirtrack
D77F 86 13      STX track
D781 20 1B FF   JSR sethdra
D784 A9 B0      LDA #$B0
D786 4C 7C DC   JMP LDC7C
D789          initdr:
D789 20 35 DA   JSR cldchn
D78C 20 78 D7   JSR itrial
D78F A6 12      LDX drvnum
D791 A9 00      LDA #$0
D793 9D 46 43   STA mdirty,X
D796 8A         TXA
D797 0A         ASL A
D798 AA         TAX
D799 B9 21 10   LDA hdrs_dskid,Y
D79C 9D 42 43   STA dskid,X
D79F B9 22 10   LDA hdrs_dskid+1,Y
D7A2 9D 43 43   STA dskid+1,X
D7A5 AD CA 10   LDA dirtrack
D7A8 85 13      STA track
D7AA A9 00      LDA #$0
D7AC 85 14      STA sector
D7AE 20 BF F8   JSR bam2a=drvnum2jobnum
D7B1 20 36 DB   JSR drtrd
D7B4 A6 12      LDX drvnum
D7B6 A9 00      LDA #$0
D7B8 9D A6 10   STA wpsw,X
D7BB 9D A1 43   STA nodrv,X
D7BE          nfcalc:
D7BE A6 12      LDX drvnum
D7C0 A9 00      LDA #$0
D7C2 9D 9D 43   STA ndbl,X
D7C5 9D 9F 43   STA ndbh,X
D7C8 85 13      STA track
D7CA          LD7CA:
D7CA E6 13      INC track
D7CC A5 13      LDA track
D7CE CD E9 10   CMP maxtrk
D7D1 90 01      BCC LD7D4
D7D3          LD7D3:
D7D3 60         RTS
D7D4          LD7D4:
D7D4 CD CA 10   CMP dirtrack
D7D7 F0 F1      BEQ LD7CA
D7D9          LD7D9:
D7D9 20 5C F8   JSR setbam=getbamfortrack
D7DC A6 12      LDX drvnum
D7DE B1 02      LDA (bmpnt),Y
D7E0 18         CLC
D7E1 7D 9D 43   ADC ndbl,X
D7E4 9D 9D 43   STA ndbl,X
D7E7 90 E1      BCC LD7CA
D7E9          LD7E9:
D7E9 FE 9F 43   INC ndbh,X
D7EC 4C CA D7   JMP LD7CA
D7EF          strrd_strdbl:
D7EF 20 AE DD   JSR sethdr_j
D7F2 20 13 D8   JSR rdbuf
D7F5 20 89 DC   JSR watjob
D7F8 20 85 D8   JSR getbyt
D7FB 85 13      STA track
D7FD 20 85 D8   JSR getbyt
D800 85 14      STA sector
D802 A5 13      LDA track
D804 D0 01      BNE LD807
D806          LD806:
D806 60         RTS
D807          LD807:
D807 20 E9 D6   JSR dbl15_
D80A 20 AE DD   JSR sethdr_j
D80D 20 13 D8   JSR rdbuf
D810 4C E9 D6   JMP dbl15_
D813          rdbuf:
D813 A9 80      LDA #$80
D815 D0 02      BNE LD819
D817          writbuf:
D817 A9 90      LDA #$90
D819          LD819:
D819 8D 3E 43   STA cmd
D81C 20 BB E8   JSR getact
D81F AA         TAX
D820 20 ED DB   JSR setljb
D823 8A         TXA
D824 48         PHA
D825 0A         ASL A
D826 AA         TAX
D827 A9 00      LDA #$0
D829 95 29      STA buftab_0,X
D82B 20 73 D8   JSR typfil
D82E C9 04      CMP #$4
D830 B0 06      BCS LD838
D832          LD832:
D832 F6 59      INC recl,X
D834 D0 02      BNE LD838
D836          LD836:
D836 F6 61      INC rech,X
D838          LD838:
D838 68         PLA
D839 AA         TAX
D83A 60         RTS
D83B          fndrch:
D83B A5 16      LDA sa
D83D C9 13      CMP #$13
D83F 90 02      BCC LD843
D841          LD841:
D841 29 0F      AND #$F
D843          LD843:
D843 C9 0F      CMP #$F
D845 D0 02      BNE LD849
D847          LD847:
D847 A9 10      LDA #$10
D849          LD849:
D849 AA         TAX
D84A 38         SEC
D84B B5 AC      LDA lintab,X
D84D 30 06      BMI LD855
D84F          LD84F:
D84F 29 0F      AND #$F
D851 85 15      STA lindx
D853 AA         TAX
D854 18         CLC
D855          LD855:
D855 60         RTS
D856          fndwch:
D856 A5 16      LDA sa
D858 C9 13      CMP #$13
D85A 90 02      BCC LD85E
D85C          LD85C:
D85C 29 0F      AND #$F
D85E          LD85E:
D85E AA         TAX
D85F B5 AC      LDA lintab,X
D861 A8         TAY
D862 0A         ASL A
D863 90 0A      BCC LD86F
D865          LD865:
D865 30 0A      BMI LD871
D867          LD867:
D867 98         TYA
D868 29 0F      AND #$F
D86A 85 15      STA lindx
D86C AA         TAX
D86D 18         CLC
D86E 60         RTS
D86F          LD86F:
D86F 30 F6      BMI LD867
D871          LD871:
D871 38         SEC
D872 60         RTS
D873          typfil:
D873 A6 15      LDX lindx
D875 B5 9A      LDA filtyp,X
D877 4A         LSR A
D878 29 07      AND #$7
D87A C9 04      CMP #$4
D87C 60         RTS
D87D          getpre:
D87D 20 BB E8   JSR getact
D880 0A         ASL A
D881 AA         TAX
D882 A4 15      LDY lindx
D884 60         RTS
D885          getbyt:
D885 20 7D D8   JSR getpre
D888 B9 C7 00   LDA lstchr,Y
D88B F0 12      BEQ LD89F
D88D          LD88D:
D88D A1 29      LDA (buftab_0,X)
D88F 48         PHA
D890 B5 29      LDA buftab_0,X
D892 D9 C7 00   CMP lstchr,Y
D895 D0 04      BNE LD89B
D897          LD897:
D897 A9 FF      LDA #$FF
D899 95 29      STA buftab_0,X
D89B          LD89B:
D89B 68         PLA
D89C F6 29      INC buftab_0,X
D89E 60         RTS
D89F          LD89F:
D89F A1 29      LDA (buftab_0,X)
D8A1 F6 29      INC buftab_0,X
D8A3 60         RTS
D8A4          rdbyt:
D8A4 20 85 D8   JSR getbyt
D8A7 D0 36      BNE LD8DF
D8A9          LD8A9:
D8A9 85 18      STA data
D8AB B9 C7 00   LDA lstchr,Y
D8AE F0 08      BEQ rd1
D8B0          LD8B0:
D8B0 A9 80      LDA #$80
D8B2 99 A2 00   STA chnrdy,Y
D8B5 A5 18      LDA data
D8B7 60         RTS
D8B8          rd1:
D8B8 20 E9 D6   JSR dbl15_
D8BB A9 00      LDA #$0
D8BD 20 A0 DB   JSR setpnt
D8C0 20 85 D8   JSR getbyt
D8C3 C9 00      CMP #$0
D8C5 F0 19      BEQ LD8E0
D8C7          LD8C7:
D8C7 85 13      STA track
D8C9 20 85 D8   JSR getbyt
D8CC 85 14      STA sector
D8CE 20 E9 D6   JSR dbl15_
D8D1 20 21 D9   JSR setdrn
D8D4 20 AE DD   JSR sethdr_j
D8D7 20 13 D8   JSR rdbuf
D8DA 20 E9 D6   JSR dbl15_
D8DD A5 18      LDA data
D8DF          LD8DF:
D8DF 60         RTS
D8E0          LD8E0:
D8E0 20 85 D8   JSR getbyt
D8E3 A4 15      LDY lindx
D8E5 99 C7 00   STA lstchr,Y
D8E8 A5 18      LDA data
D8EA 60         RTS
D8EB          wrtbyt:
D8EB 20 4A D7   JSR putbyt
D8EE F0 01      BEQ LD8F1
D8F0          LD8F0:
D8F0 60         RTS
D8F1          LD8F1:
D8F1 20 21 D9   JSR setdrn
D8F4 20 0C FF   JSR LFF0C
D8F7 A9 00      LDA #$0
D8F9 20 A0 DB   JSR setpnt
D8FC A5 13      LDA track
D8FE 20 4A D7   JSR putbyt
D901 A5 14      LDA sector
D903 20 4A D7   JSR putbyt
D906 20 17 D8   JSR writbuf
D909 20 E9 D6   JSR dbl15_
D90C 20 AE DD   JSR sethdr_j
D90F A9 02      LDA #$2
D911 4C A0 DB   JMP setpnt
D914          incptr:
D914 85 04      STA t0_temp
D916 20 C0 DB   JSR getpnt
D919 18         CLC
D91A 65 04      ADC t0_temp
D91C 95 29      STA buftab_0,X
D91E 85 27      STA dirbuf
D920 60         RTS
D921          setdrn:
D921 20 BB E8   JSR getact
D924 AA         TAX
D925 BD 50 43   LDA lstjob,X
D928 29 01      AND #$1
D92A 85 12      STA drvnum
D92C 60         RTS
D92D          getwch:
D92D 38         SEC
D92E B0 01      BCS LD931
D930          getrch:
D930 18         CLC
D931          LD931:
D931 08         PHP
D932 85 04      STA t0_temp
D934 20 74 D9   JSR frechn
D937 20 5A DA   JSR LDA5A
D93A 85 15      STA lindx
D93C A6 16      LDX sa
D93E 28         PLP
D93F 90 02      BCC LD943
D941          LD941:
D941 09 80      ORA #$80
D943          LD943:
D943 95 AC      STA lintab,X
D945 29 3F      AND #$3F
D947 A8         TAY
D948 A9 FF      LDA #$FF
D94A 99 79 00   STA ss,Y
D94D 99 49 00   STA buf0,Y
D950 99 51 00   STA buf1,Y
D953 C6 04      DEC t0_temp
D955 30 1C      BMI LD973
D957          LD957:
D957 20 00 FF   JSR getbuf
D95A 10 08      BPL LD964
D95C          LD95C:
D95C 20 A5 D9   JSR relbuf
D95F A9 70      LDA #$70
D961 4C 2D FF   JMP cmderr
D964          LD964:
D964 99 49 00   STA buf0,Y
D967 C6 04      DEC t0_temp
D969 30 08      BMI LD973
D96B          LD96B:
D96B 20 00 FF   JSR getbuf
D96E 30 EC      BMI LD95C
D970          LD970:
D970 99 51 00   STA buf1,Y
D973          LD973:
D973 60         RTS
D974          frechn:
D974 A5 16      LDA sa
D976 C9 0F      CMP #$F
D978 D0 01      BNE freco
D97A          LD97A:
D97A 60         RTS
D97B          freco:
D97B A6 16      LDX sa
D97D B5 AC      LDA lintab,X
D97F C9 FF      CMP #$FF
D981 F0 21      BEQ LD9A4
D983          LD983:
D983 29 3F      AND #$3F
D985 85 15      STA lindx
D987 A9 FF      LDA #$FF
D989 95 AC      STA lintab,X
D98B A6 15      LDX lindx
D98D A9 00      LDA #$0
D98F 95 A2      STA chnrdy,X
D991 20 A5 D9   JSR relbuf
D994 A6 15      LDX lindx
D996 A9 01      LDA #$1
D998          LD998:
D998 CA         DEX
D999 30 03      BMI LD99E
D99B          LD99B:
D99B 0A         ASL A
D99C D0 FA      BNE LD998
D99E          LD99E:
D99E 0D 4B 43   ORA linuse
D9A1 8D 4B 43   STA linuse
D9A4          LD9A4:
D9A4 60         RTS
D9A5          relbuf:
D9A5 A6 15      LDX lindx
D9A7 B5 49      LDA buf0,X
D9A9 C9 FF      CMP #$FF
D9AB F0 09      BEQ LD9B6
D9AD          LD9AD:
D9AD 48         PHA
D9AE A9 FF      LDA #$FF
D9B0 95 49      STA buf0,X
D9B2 68         PLA
D9B3 20 03 FF   JSR frebuf
D9B6          LD9B6:
D9B6 A6 15      LDX lindx
D9B8 B5 51      LDA buf1,X
D9BA C9 FF      CMP #$FF
D9BC F0 09      BEQ LD9C7
D9BE          LD9BE:
D9BE 48         PHA
D9BF A9 FF      LDA #$FF
D9C1 95 51      STA buf1,X
D9C3 68         PLA
D9C4 20 03 FF   JSR frebuf
D9C7          LD9C7:
D9C7 A6 15      LDX lindx
D9C9 B5 79      LDA ss,X
D9CB C9 FF      CMP #$FF
D9CD F0 09      BEQ LD9D8
D9CF          LD9CF:
D9CF 48         PHA
D9D0 A9 FF      LDA #$FF
D9D2 95 79      STA ss,X
D9D4 68         PLA
D9D5 20 03 FF   JSR frebuf
D9D8          LD9D8:
D9D8 60         RTS
D9D9          getbuf_not:
D9D9 A9 FF      LDA #$FF
D9DB 85 05      STA t1
D9DD A2 0F      LDX #$F
D9DF          LD9DF:
D9DF 2E 40 43   ROL bufuse
D9E2 2E 41 43   ROL bufuse+1
D9E5 B0 05      BCS LD9EC
D9E7          LD9E7:
D9E7 86 05      STX t1
D9E9 38         SEC
D9EA B0 1E      BCS LDA0A
D9EC          LD9EC:
D9EC CA         DEX
D9ED 10 F0      BPL LD9DF
D9EF          LD9EF:
D9EF 2E 40 43   ROL bufuse
D9F2 2E 41 43   ROL bufuse+1
D9F5          LD9F5:
D9F5 A6 05      LDX t1
D9F7 30 0F      BMI LDA08
D9F9          LD9F9:
D9F9 BD 03 10   LDA jobs,X
D9FC 30 FB      BMI LD9F9
D9FE          LD9FE:
D9FE A9 00      LDA #$0
DA00 9D 03 10   STA jobs,X
DA03 A5 12      LDA drvnum
DA05 9D 50 43   STA lstjob,X
DA08          LDA08:
DA08 8A         TXA
DA09 60         RTS
DA0A          LDA0A:
DA0A 2E 40 43   ROL bufuse
DA0D 2E 41 43   ROL bufuse+1
DA10 CA         DEX
DA11 10 F7      BPL LDA0A
DA13          LDA13:
DA13 30 E0      BMI LD9F5
DA15          frebuf_j:
DA15 29 0F      AND #$F
DA17 A8         TAY
DA18 C8         INY
DA19 A2 10      LDX #$10
DA1B          LDA1B:
DA1B 6E 41 43   ROR bufuse+1
DA1E 6E 40 43   ROR bufuse
DA21 88         DEY
DA22 D0 01      BNE LDA25
DA24          LDA24:
DA24 18         CLC
DA25          LDA25:
DA25 CA         DEX
DA26 10 F3      BPL LDA1B
DA28          LDA28:
DA28 60         RTS
DA29          clrchn:
DA29 A9 0E      LDA #$E
DA2B 85 16      STA sa
DA2D          LDA2D:
DA2D 20 74 D9   JSR frechn
DA30 C6 16      DEC sa
DA32 D0 F9      BNE LDA2D
DA34          LDA34:
DA34 60         RTS
DA35          cldchn:
DA35 A9 0E      LDA #$E
DA37 85 16      STA sa
DA39          clsd:
DA39 A6 16      LDX sa
DA3B B5 AC      LDA lintab,X
DA3D C9 FF      CMP #$FF
DA3F F0 14      BEQ LDA55
DA41          LDA41:
DA41 29 3F      AND #$3F
DA43 85 15      STA lindx
DA45 20 BB E8   JSR getact
DA48 AA         TAX
DA49 BD 50 43   LDA lstjob,X
DA4C 29 01      AND #$1
DA4E C5 12      CMP drvnum
DA50 D0 03      BNE LDA55
DA52          LDA52:
DA52 20 74 D9   JSR frechn
DA55          LDA55:
DA55 C6 16      DEC sa
DA57 10 E0      BPL clsd
DA59          LDA59:
DA59 60         RTS
DA5A          LDA5A:
DA5A A0 00      LDY #$0
DA5C A9 01      LDA #$1
DA5E          LDA5E:
DA5E 2C 4B 43   BIT linuse
DA61 D0 09      BNE LDA6C
DA63          LDA63:
DA63 C8         INY
DA64 0A         ASL A
DA65 D0 F7      BNE LDA5E
DA67          LDA67:
DA67 A9 70      LDA #$70
DA69 4C 2D FF   JMP cmderr
DA6C          LDA6C:
DA6C 49 FF      EOR #$FF
DA6E 2D 4B 43   AND linuse
DA71 8D 4B 43   STA linuse
DA74 98         TYA
DA75 60         RTS
DA76          gbyte:
DA76 20 3B D8   JSR fndrch
DA79 20 21 FF   JSR setlda
DA7C 20 84 DA   JSR LDA84
DA7F A6 15      LDX lindx
DA81 B5 BF      LDA chndat,X
DA83 60         RTS
DA84          LDA84:
DA84 A6 15      LDX lindx
DA86 20 73 D8   JSR typfil
DA89 D0 03      BNE LDA8E
DA8B          LDA8B:
DA8B 4C 2F EA   JMP LEA2F
DA8E          LDA8E:
DA8E A5 16      LDA sa
DA90 C9 0F      CMP #$F
DA92 F0 57      BEQ LDAEB
DA94          LDA94:
DA94 B5 A2      LDA chnrdy,X
DA96 29 08      AND #$8
DA98 D0 13      BNE LDAAD
DA9A          LDA9A:
DA9A 20 73 D8   JSR typfil
DA9D C9 07      CMP #$7
DA9F D0 07      BNE LDAA8
DAA1          LDAA1:
DAA1 A9 89      LDA #$89
DAA3 95 A2      STA chnrdy,X
DAA5 4C B6 DA   JMP LDAB6
DAA8          LDAA8:
DAA8 A9 00      LDA #$0
DAAA 95 A2      STA chnrdy,X
DAAC 60         RTS
DAAD          LDAAD:
DAAD A5 16      LDA sa
DAAF F0 2F      BEQ LDAE0
DAB1          LDAB1:
DAB1 20 73 D8   JSR typfil
DAB4 90 22      BCC LDAD8
DAB6          LDAB6:
DAB6 20 7D D8   JSR getpre
DAB9 B5 29      LDA buftab_0,X
DABB D9 C7 00   CMP lstchr,Y
DABE D0 04      BNE rnget1
DAC0          LDAC0:
DAC0 A9 00      LDA #$0
DAC2 95 29      STA buftab_0,X
DAC4          rnget1:
DAC4 F6 29      INC buftab_0,X
DAC6          rnget2:
DAC6 A1 29      LDA (buftab_0,X)
DAC8 99 BF 00   STA chndat,Y
DACB B5 29      LDA buftab_0,X
DACD D9 C7 00   CMP lstchr,Y
DAD0 D0 05      BNE LDAD7
DAD2          LDAD2:
DAD2 A9 81      LDA #$81
DAD4 99 A2 00   STA chnrdy,Y
DAD7          LDAD7:
DAD7 60         RTS
DAD8          LDAD8:
DAD8 20 A4 D8   JSR rdbyt
DADB          LDADB:
DADB A6 15      LDX lindx
DADD 95 BF      STA chndat,X
DADF 60         RTS
DAE0          LDAE0:
DAE0 AD 49 43   LDA L4349
DAE3 F0 F3      BEQ LDAD8
DAE5          LDAE5:
DAE5 20 6C F4   JSR LF46C
DAE8 4C DB DA   JMP LDADB
DAEB          LDAEB:
DAEB 20 C0 DB   JSR getpnt
DAEE C9 DB      CMP #$DB
DAF0 D0 18      BNE LDB0A
DAF2          LDAF2:
DAF2 A5 28      LDA dirbuf+1
DAF4 C9 43      CMP #$43
DAF6 D0 12      BNE LDB0A
DAF8          LDAF8:
DAF8 A9 0D      LDA #$D
DAFA 85 18      STA data
DAFC 20 53 F9   JSR erroff
DAFF A9 00      LDA #$0
DB01 20 4A F1   JSR errts0
DB04 C6 47      DEC buftab_errbuf?
DB06 A9 80      LDA #$80
DB08 D0 12      BNE LDB1C
DB0A          LDB0A:
DB0A 20 85 D8   JSR getbyt
DB0D 85 18      STA data
DB0F D0 09      BNE ge20
DB11          ge15:
DB11 A9 DB      LDA #$DB
DB13 20 A0 DB   JSR setpnt
DB16 A9 43      LDA #$43
DB18 95 2A      STA buftab_0+1,X
DB1A          ge20:
DB1A A9 88      LDA #$88
DB1C          LDB1C:
DB1C 85 A9      STA LA9
DB1E A5 18      LDA data
DB20 85 C6      STA chndat+errchn
DB22 60         RTS
DB23          nxtbuf:
DB23 20 BB E8   JSR getact
DB26 0A         ASL A
DB27 AA         TAX
DB28 A9 00      LDA #$0
DB2A 95 29      STA buftab_0,X
DB2C A1 29      LDA (buftab_0,X)
DB2E F0 05      BEQ LDB35
DB30          LDB30:
DB30 D6 29      DEC buftab_0,X
DB32 4C A4 D8   JMP rdbyt
DB35          LDB35:
DB35 60         RTS
DB36          drtrd:
DB36 A9 80      LDA #$80
DB38 D0 02      BNE LDB3C
DB3A          drtwrt:
DB3A A9 90      LDA #$90
DB3C          LDB3C:
DB3C 05 12      ORA drvnum
DB3E 8D 3E 43   STA cmd
DB41 A5 AB      LDA jobnum
DB43 20 1B FF   JSR sethdra
DB46 A6 AB      LDX jobnum
DB48 4C 83 DC   JMP doit2
DB4B          opnird:
DB4B A9 01      LDA #$1
DB4D          opntyp:
DB4D 85 CF      STA type
DB4F A9 11      LDA #$11
DB51 85 16      STA sa
DB53 20 AB E4   JSR opnrch?
DB56 A9 02      LDA #$2
DB58 4C A0 DB   JMP setpnt
DB5B          LDB5B:
DB5B A9 12      LDA #$12
DB5D 85 16      STA sa
DB5F 4C 66 E5   JMP opnwch
DB62          nxdbrk:
DB62 20 14 E7   JSR curblk
DB65 A9 01      LDA #$1
DB67 85 04      STA t0_temp
DB69 AD F4 10   LDA secinc
DB6C 48         PHA
DB6D A9 03      LDA #$3
DB6F 8D F4 10   STA secinc
DB72 20 63 F9   JSR LF963
DB75 68         PLA
DB76 8D F4 10   STA secinc
DB79 A9 00      LDA #$0
DB7B 20 A0 DB   JSR setpnt
DB7E A5 13      LDA track
DB80 20 4A D7   JSR putbyt
DB83 A5 14      LDA sector
DB85 20 4A D7   JSR putbyt
DB88 20 17 D8   JSR writbuf
DB8B 20 89 DC   JSR watjob
DB8E A9 00      LDA #$0
DB90 20 A0 DB   JSR setpnt
DB93          LDB93:
DB93 20 4A D7   JSR putbyt
DB96 D0 FB      BNE LDB93
DB98          LDB98:
DB98 20 4A D7   JSR putbyt
DB9B A9 FF      LDA #$FF
DB9D 4C 4A D7   JMP putbyt
DBA0          setpnt:
DBA0 85 04      STA t0_temp
DBA2 20 BB E8   JSR getact
DBA5 0A         ASL A
DBA6 AA         TAX
DBA7 B5 2A      LDA buftab_0+1,X
DBA9 85 28      STA dirbuf+1
DBAB A5 04      LDA t0_temp
DBAD 95 29      STA buftab_0,X
DBAF 85 27      STA dirbuf
DBB1 60         RTS
DBB2          freich:
DBB2 A9 11      LDA #$11
DBB4 85 16      STA sa
DBB6 20 74 D9   JSR frechn
DBB9 A9 12      LDA #$12
DBBB 85 16      STA sa
DBBD 4C 74 D9   JMP frechn
DBC0          getpnt:
DBC0 20 BB E8   JSR getact
DBC3          setdir:
DBC3 0A         ASL A
DBC4 AA         TAX
DBC5 B5 2A      LDA buftab_0+1,X
DBC7 85 28      STA dirbuf+1
DBC9 B5 29      LDA buftab_0,X
DBCB 85 27      STA dirbuf
DBCD 60         RTS
DBCE          drdbyt:
DBCE 85 06      STA t2
DBD0 20 BB E8   JSR getact
DBD3 AA         TAX
DBD4 BD DE DB   LDA bufind,X
DBD7 85 07      STA t3
DBD9 A0 00      LDY #$0
DBDB B1 06      LDA (t2),Y
DBDD 60         RTS
DBDE          bufind:
DBDE 11 12 13   .BYTE $11,$12,$13
DBE1 20 21 22   .BYTE $20,$21,$22
DBE4 23 30 31   .BYTE $23,$30,$31
DBE7 32 33 40   .BYTE $32,$33,$40
DBEA 41 42 43   .BYTE $41,$42,$43
DBED          setljb:
DBED BD 50 43   LDA lstjob,X
DBF0 29 01      AND #$1
DBF2 0D 3E 43   ORA cmd
DBF5          setjob:
DBF5 48         PHA
DBF6 86 AB      STX jobnum
DBF8 8A         TXA
DBF9 0A         ASL A
DBFA 0A         ASL A
DBFB 0A         ASL A
DBFC AA         TAX
DBFD BD 24 10   LDA hdrs_sector,X
DC00 8D 3E 43   STA cmd
DC03 BD 23 10   LDA hdrs_track,X
DC06 F0 2D      BEQ tserr
DC08          LDC08:
DC08 CD E9 10   CMP maxtrk
DC0B B0 28      BCS tserr
DC0D          LDC0D:
DC0D AA         TAX
DC0E 68         PLA
DC0F 48         PHA
DC10 29 F0      AND #$F0
DC12 C9 90      CMP #$90
DC14 D0 53      BNE sjb1
DC16          LDC16:
DC16 68         PLA
DC17 48         PHA
DC18 4A         LSR A
DC19 B0 05      BCS sjb2
DC1B          LDC1B:
DC1B AD 02 41   LDA dskver0_buf
DC1E 90 03      BCC LDC23
DC20          sjb2:
DC20 AD 02 42   LDA dskver1_buf
DC23          LDC23:
DC23 F0 05      BEQ LDC2A
DC25          LDC25:
DC25 CD 9F 10   CMP vernum
DC28 D0 37      BNE vnerr
DC2A          LDC2A:
DC2A 8A         TXA
DC2B 20 12 FF   JSR maxsec
DC2E CD 3E 43   CMP cmd
DC31 F0 02      BEQ tserr
DC33          LDC33:
DC33 B0 34      BCS sjb1
DC35          tserr:
DC35 20 3D DC   JSR hed2ts
DC38          LDC38:
DC38 A9 66      LDA #$66
DC3A 4C 30 FF   JMP cmder2
DC3D          hed2ts:
DC3D A5 AB      LDA jobnum
DC3F 0A         ASL A
DC40 0A         ASL A
DC41 0A         ASL A
DC42 AA         TAX
DC43 BD 23 10   LDA hdrs_track,X
DC46 85 13      STA track
DC48 BD 24 10   LDA hdrs_sector,X
DC4B 85 14      STA sector
DC4D 60         RTS
DC4E          tschk:
DC4E A5 13      LDA track
DC50 F0 E6      BEQ LDC38
DC52          LDC52:
DC52 CD E9 10   CMP maxtrk
DC55 B0 E1      BCS LDC38
DC57          LDC57:
DC57 20 12 FF   JSR maxsec
DC5A C5 14      CMP sector
DC5C F0 DA      BEQ LDC38
DC5E          LDC5E:
DC5E 90 D8      BCC LDC38
DC60          LDC60:
DC60 60         RTS
DC61          vnerr:
DC61 20 3D DC   JSR hed2ts
DC64 A9 73      LDA #$73
DC66 4C 30 FF   JMP cmder2
DC69          sjb1:
DC69 A6 AB      LDX jobnum
DC6B 68         PLA
DC6C 8D 3E 43   STA cmd
DC6F 9D 03 10   STA jobs,X
DC72 9D 50 43   STA lstjob,X
DC75 60         RTS
DC76          doread:
DC76 A9 80      LDA #$80
DC78 D0 02      BNE LDC7C
DC7A          dowrit:
DC7A A9 90      LDA #$90
DC7C          LDC7C:
DC7C 05 12      ORA drvnum
DC7E A6 AB      LDX jobnum
DC80          doit:
DC80 8D 3E 43   STA cmd
DC83          doit2:
DC83 AD 3E 43   LDA cmd
DC86 20 F5 DB   JSR setjob
DC89          watjob:
DC89 20 33 FF   JSR tstjob
DC8C B0 FB      BCS watjob
DC8E          LDC8E:
DC8E 48         PHA
DC8F A9 00      LDA #$0
DC91 8D 9A 43   STA jobrtn
DC94 68         PLA
DC95 60         RTS
DC96          tstjob_j:
DC96 BD 03 10   LDA jobs,X
DC99 30 11      BMI notyet
DC9B          LDC9B:
DC9B C9 02      CMP #$2
DC9D 90 0B      BCC ok
DC9F          LDC9F:
DC9F C9 08      CMP #$8
DCA1 F0 04      BEQ LDCA7
DCA3          LDCA3:
DCA3 C9 0B      CMP #$B
DCA5 D0 07      BNE recov
DCA7          LDCA7:
DCA7 4C 1F DD   JMP LDD1F
DCAA          ok:
DCAA 18         CLC
DCAB 60         RTS
DCAC          notyet:
DCAC 38         SEC
DCAD 60         RTS
DCAE          recov:
DCAE 98         TYA
DCAF 48         PHA
DCB0 A5 12      LDA drvnum
DCB2 48         PHA
DCB3 20 88 DD   JSR dorec
DCB6 C9 02      CMP #$2
DCB8 B0 03      BCS LDCBD
DCBA          LDCBA:
DCBA 4C 4E DD   JMP LDD4E
DCBD          LDCBD:
DCBD BD 50 43   LDA lstjob,X
DCC0 48         PHA
DCC1 29 01      AND #$1
DCC3 85 12      STA drvnum
DCC5 68         PLA
DCC6 29 F0      AND #$F0
DCC8 48         PHA
DCC9 C9 90      CMP #$90
DCCB D0 07      BNE LDCD4
DCCD          LDCCD:
DCCD A5 12      LDA drvnum
DCCF 09 B8      ORA #$B8
DCD1 9D 50 43   STA lstjob,X
DCD4          LDCD4:
DCD4 2C F5 10   BIT revcnt
DCD7 70 51      BVS LDD2A
DCD9          LDCD9:
DCD9 A9 00      LDA #$0
DCDB 8D 9B 43   STA eptr
DCDE 8D 9C 43   STA toff
DCE1          LDCE1:
DCE1 AC 9B 43   LDY eptr
DCE4 AD 9C 43   LDA toff
DCE7 38         SEC
DCE8 F9 D2 FF   SBC offset,Y
DCEB 8D 9C 43   STA toff
DCEE B9 D2 FF   LDA offset,Y
DCF1 20 58 DD   JSR hedoff
DCF4 EE 9B 43   INC eptr
DCF7 20 88 DD   JSR dorec
DCFA C9 02      CMP #$2
DCFC 90 08      BCC LDD06
DCFE          LDCFE:
DCFE AC 9B 43   LDY eptr
DD01 B9 D2 FF   LDA offset,Y
DD04 D0 DB      BNE LDCE1
DD06          LDD06:
DD06 AD 9C 43   LDA toff
DD09 20 58 DD   JSR hedoff
DD0C BD 03 10   LDA jobs,X
DD0F C9 02      CMP #$2
DD11 90 2A      BCC LDD3D
DD13          LDD13:
DD13 B0 15      BCS LDD2A
DD15          quit:
DD15 68         PLA
DD16 C9 90      CMP #$90
DD18 D0 05      BNE LDD1F
DD1A          LDD1A:
DD1A 05 12      ORA drvnum
DD1C 9D 50 43   STA lstjob,X
DD1F          LDD1F:
DD1F 2C 9A 43   BIT jobrtn
DD22 30 2A      BMI LDD4E
DD24          LDD24:
DD24 BD 03 10   LDA jobs,X
DD27 20 15 FF   JSR error
DD2A          LDD2A:
DD2A A9 C0      LDA #$C0
DD2C 05 12      ORA drvnum
DD2E 9D 03 10   STA jobs,X
DD31          LDD31:
DD31 BD 03 10   LDA jobs,X
DD34 30 FB      BMI LDD31
DD36          LDD36:
DD36 20 88 DD   JSR dorec
DD39 C9 02      CMP #$2
DD3B B0 D8      BCS quit
DD3D          LDD3D:
DD3D 68         PLA
DD3E C9 90      CMP #$90
DD40 D0 0C      BNE LDD4E
DD42          LDD42:
DD42 05 12      ORA drvnum
DD44 9D 50 43   STA lstjob,X
DD47 20 88 DD   JSR dorec
DD4A C9 02      CMP #$2
DD4C B0 D1      BCS LDD1F
DD4E          LDD4E:
DD4E 68         PLA
DD4F 85 12      STA drvnum
DD51 68         PLA
DD52 A8         TAY
DD53 BD 03 10   LDA jobs,X
DD56 18         CLC
DD57 60         RTS
DD58          hedoff:
DD58 C9 00      CMP #$0
DD5A F0 18      BEQ LDD74
DD5C          LDD5C:
DD5C 30 0C      BMI LDD6A
DD5E          LDD5E:
DD5E A0 01      LDY #$1
DD60 20 75 DD   JSR movhed
DD63 38         SEC
DD64 E9 01      SBC #$1
DD66 D0 F6      BNE LDD5E
DD68          LDD68:
DD68 F0 0A      BEQ LDD74
DD6A          LDD6A:
DD6A A0 FF      LDY #$FF
DD6C 20 75 DD   JSR movhed
DD6F 18         CLC
DD70 69 01      ADC #$1
DD72 D0 F6      BNE LDD6A
DD74          LDD74:
DD74 60         RTS
DD75          movhed:
DD75 48         PHA
DD76 98         TYA
DD77 A4 12      LDY drvnum
DD79 99 A1 10   STA phase,Y
DD7C          LDD7C:
DD7C D9 A1 10   CMP phase,Y
DD7F F0 FB      BEQ LDD7C
DD81          LDD81:
DD81 A9 00      LDA #$0
DD83 99 A1 10   STA phase,Y
DD86 68         PLA
DD87 60         RTS
DD88          dorec:
DD88 AD F5 10   LDA revcnt
DD8B 29 3F      AND #$3F
DD8D A8         TAY
DD8E          LDD8E:
DD8E AD 82 02   LDA io_dskcnt
DD91 49 20      EOR #$20
DD93 8D 82 02   STA io_dskcnt
DD96 BD 50 43   LDA lstjob,X
DD99 9D 03 10   STA jobs,X
DD9C          LDD9C:
DD9C BD 03 10   LDA jobs,X
DD9F 30 FB      BMI LDD9C
DDA1          LDDA1:
DDA1 C9 02      CMP #$2
DDA3 90 03      BCC LDDA8
DDA5          LDDA5:
DDA5 88         DEY
DDA6 D0 E6      BNE LDD8E
DDA8          LDDA8:
DDA8 48         PHA
DDA9 20 53 F9   JSR erroff
DDAC 68         PLA
DDAD 60         RTS
DDAE          sethdr_j:
DDAE 20 BB E8   JSR getact
DDB1          sethdra_j:
DDB1 0A         ASL A
DDB2 0A         ASL A
DDB3 0A         ASL A
DDB4 A8         TAY
DDB5 A5 13      LDA track
DDB7 99 23 10   STA hdrs_track,Y
DDBA A5 14      LDA sector
DDBC 99 24 10   STA hdrs_sector,Y
DDBF A5 12      LDA drvnum
DDC1 0A         ASL A
DDC2 AA         TAX
DDC3 BD 42 43   LDA dskid,X
DDC6 99 21 10   STA hdrs_dskid,Y
DDC9 BD 43 43   LDA dskid+1,X
DDCC 99 22 10   STA hdrs_dskid+1,Y
DDCF 60         RTS
DDD0          addfil:
DDD0 A5 16      LDA sa
DDD2 48         PHA
DDD3 A5 15      LDA lindx
DDD5 48         PHA
DDD6 A5 14      LDA sector
DDD8 48         PHA
DDD9 A5 13      LDA track
DDDB 48         PHA
DDDC A9 11      LDA #$11
DDDE 85 16      STA sa
DDE0 20 14 E7   JSR curblk
DDE3 A5 CF      LDA type
DDE5 48         PHA
DDE6 A5 90      LDA fildrv
DDE8 29 01      AND #$1
DDEA 85 12      STA drvnum
DDEC A6 AB      LDX jobnum
DDEE 5D 50 43   EOR lstjob,X
DDF1 4A         LSR A
DDF2 90 0C      BCC LDE00
DDF4          LDDF4:
DDF4 A2 01      LDX #$1
DDF6 8E 94 43   STX delind
DDF9 20 0F CC   JSR srchst
DDFC F0 1D      BEQ LDE1B
DDFE          LDDFE:
DDFE D0 28      BNE af20
DE00          LDE00:
DE00 AD 93 43   LDA delsec
DE03 F0 0C      BEQ LDE11
DE05          LDE05:
DE05 C5 14      CMP sector
DE07 F0 1F      BEQ af20
DE09          LDE09:
DE09 85 14      STA sector
DE0B 20 36 DB   JSR drtrd
DE0E 4C 28 DE   JMP af20
DE11          LDE11:
DE11 A9 01      LDA #$1
DE13 8D 94 43   STA delind
DE16 20 7D CC   JSR search
DE19 D0 0D      BNE af20
DE1B          LDE1B:
DE1B 20 62 DB   JSR nxdbrk
DE1E A5 14      LDA sector
DE20 8D 93 43   STA delsec
DE23 A9 02      LDA #$2
DE25 8D 94 43   STA delind
DE28          af20:
DE28 AD 94 43   LDA delind
DE2B 20 A0 DB   JSR setpnt
DE2E 68         PLA
DE2F 85 CF      STA type
DE31 C9 04      CMP #$4
DE33 D0 02      BNE LDE37
DE35          LDE35:
DE35 09 80      ORA #$80
DE37          LDE37:
DE37 20 4A D7   JSR putbyt
DE3A 68         PLA
DE3B 8D 82 43   STA filtrk
DE3E 20 4A D7   JSR putbyt
DE41 68         PLA
DE42 8D 87 43   STA filsec
DE45 20 4A D7   JSR putbyt
DE48 20 BB E8   JSR getact
DE4B A8         TAY
DE4C AD 7C 43   LDA filtbl
DE4F AA         TAX
DE50 A9 10      LDA #$10
DE52 20 D4 CC   JSR trname
DE55 A0 10      LDY #$10
DE57 A9 00      LDA #$0
DE59          LDE59:
DE59 91 27      STA (dirbuf),Y
DE5B C8         INY
DE5C C0 1B      CPY #$1B
DE5E 90 F9      BCC LDE59
DE60          LDE60:
DE60 A5 CF      LDA type
DE62 C9 04      CMP #$4
DE64 D0 13      BNE LDE79
DE66          LDE66:
DE66 A0 10      LDY #$10
DE68 AD 4E 43   LDA trkss
DE6B 91 27      STA (dirbuf),Y
DE6D C8         INY
DE6E AD 4F 43   LDA secss
DE71 91 27      STA (dirbuf),Y
DE73 C8         INY
DE74 AD 4D 43   LDA rec
DE77 91 27      STA (dirbuf),Y
DE79          LDE79:
DE79 20 3A DB   JSR drtwrt
DE7C 68         PLA
DE7D 85 15      STA lindx
DE7F AA         TAX
DE80 68         PLA
DE81 85 16      STA sa
DE83 AD 93 43   LDA delsec
DE86 85 86      STA entsec
DE88 9D 5F 43   STA dsec,X
DE8B AD 94 43   LDA delind
DE8E 85 8B      STA entind
DE90 9D 67 43   STA dind,X
DE93 A5 CF      LDA type
DE95 85 95      STA pattyp
DE97 A5 12      LDA drvnum
DE99 85 90      STA fildrv
DE9B 60         RTS
DE9C          LDE9C:
DE9C AA         TAX
DE9D AA         TAX
DE9E AA         TAX
DE9F AA         TAX
DEA0 AA         TAX
DEA1 AA         TAX
DEA2 AA         TAX
DEA3 AA         TAX
DEA4 AA         TAX
DEA5 AA         TAX
DEA6 AA         TAX
DEA7 AA         TAX
DEA8 AA         TAX
DEA9 AA         TAX
DEAA AA         TAX
DEAB AA         TAX
DEAC AA         TAX
DEAD AA         TAX
DEAE AA         TAX
DEAF AA         TAX
DEB0 AA         TAX
DEB1 AA         TAX
DEB2 AA         TAX
DEB3 AA         TAX
DEB4 AA         TAX
DEB5 AA         TAX
DEB6 AA         TAX
DEB7 AA         TAX
DEB8 AA         TAX
DEB9 AA         TAX
DEBA AA         TAX
DEBB AA         TAX
DEBC AA         TAX
DEBD AA         TAX
DEBE AA         TAX
DEBF AA         TAX
DEC0 AA         TAX
DEC1 AA         TAX
DEC2 AA         TAX
DEC3 AA         TAX
DEC4 AA         TAX
DEC5 AA         TAX
DEC6 AA         TAX
DEC7 AA         TAX
DEC8 AA         TAX
DEC9 AA         TAX
DECA AA         TAX
DECB AA         TAX
DECC AA         TAX
DECD AA         TAX
DECE AA         TAX
DECF AA         TAX
DED0 AA         TAX
DED1 AA         TAX
DED2 AA         TAX
DED3 AA         TAX
DED4 AA         TAX
DED5 AA         TAX
DED6 AA         TAX
DED7 AA         TAX
DED8 AA         TAX
DED9 AA         TAX
DEDA AA         TAX
DEDB AA         TAX
DEDC AA         TAX
DEDD AA         TAX
DEDE AA         TAX
DEDF AA         TAX
DEE0 AA         TAX
DEE1 AA         TAX
DEE2 AA         TAX
DEE3 AA         TAX
DEE4 AA         TAX
DEE5 AA         TAX
DEE6 AA         TAX
DEE7 AA         TAX
DEE8 AA         TAX
DEE9 AA         TAX
DEEA AA         TAX
DEEB AA         TAX
DEEC AA         TAX
DEED AA         TAX
DEEE AA         TAX
DEEF AA         TAX
DEF0 AA         TAX
DEF1 AA         TAX
DEF2 AA         TAX
DEF3 AA         TAX
DEF4 AA         TAX
DEF5 AA         TAX
DEF6 AA         TAX
DEF7 AA         TAX
DEF8 AA         TAX
DEF9 AA         TAX
DEFA AA         TAX
DEFB AA         TAX
DEFC AA         TAX
DEFD AA         TAX
DEFE AA         TAX
DEFF AA         TAX
DF00 AA         TAX
DF01 AA         TAX
DF02 AA         TAX
DF03 AA         TAX
DF04 AA         TAX
DF05 AA         TAX
DF06 AA         TAX
DF07 AA         TAX
DF08 AA         TAX
DF09 AA         TAX
DF0A AA         TAX
DF0B AA         TAX
DF0C AA         TAX
DF0D AA         TAX
DF0E AA         TAX
DF0F AA         TAX
DF10 AA         TAX
DF11 AA         TAX
DF12 AA         TAX
DF13 AA         TAX
DF14 AA         TAX
DF15 AA         TAX
DF16 AA         TAX
DF17 AA         TAX
DF18 AA         TAX
DF19 AA         TAX
DF1A AA         TAX
DF1B AA         TAX
DF1C AA         TAX
DF1D AA         TAX
DF1E AA         TAX
DF1F AA         TAX
DF20 AA         TAX
DF21 AA         TAX
DF22 AA         TAX
DF23 AA         TAX
DF24 AA         TAX
DF25 AA         TAX
DF26 AA         TAX
DF27 AA         TAX
DF28 AA         TAX
DF29 AA         TAX
DF2A AA         TAX
DF2B AA         TAX
DF2C AA         TAX
DF2D AA         TAX
DF2E AA         TAX
DF2F AA         TAX
DF30 AA         TAX
DF31 AA         TAX
DF32 AA         TAX
DF33 AA         TAX
DF34 AA         TAX
DF35 AA         TAX
DF36 AA         TAX
DF37 AA         TAX
DF38 AA         TAX
DF39 AA         TAX
DF3A AA         TAX
DF3B AA         TAX
DF3C AA         TAX
DF3D AA         TAX
DF3E AA         TAX
DF3F AA         TAX
DF40 AA         TAX
DF41 AA         TAX
DF42 AA         TAX
DF43 AA         TAX
DF44 AA         TAX
DF45 AA         TAX
DF46 AA         TAX
DF47 AA         TAX
DF48 AA         TAX
DF49 AA         TAX
DF4A AA         TAX
DF4B AA         TAX
DF4C AA         TAX
DF4D AA         TAX
DF4E AA         TAX
DF4F AA         TAX
DF50 AA         TAX
DF51 AA         TAX
DF52 AA         TAX
DF53 AA         TAX
DF54 AA         TAX
DF55 AA         TAX
DF56 AA         TAX
DF57 AA         TAX
DF58 AA         TAX
DF59 AA         TAX
DF5A AA         TAX
DF5B AA         TAX
DF5C AA         TAX
DF5D AA         TAX
DF5E AA         TAX
DF5F AA         TAX
DF60 AA         TAX
DF61 AA         TAX
DF62 AA         TAX
DF63 AA         TAX
DF64 AA         TAX
DF65 AA         TAX
DF66 AA         TAX
DF67 AA         TAX
DF68 AA         TAX
DF69 AA         TAX
DF6A AA         TAX
DF6B AA         TAX
DF6C AA         TAX
DF6D AA         TAX
DF6E AA         TAX
DF6F AA         TAX
DF70 AA         TAX
DF71 AA         TAX
DF72 AA         TAX
DF73 AA         TAX
DF74 AA         TAX
DF75 AA         TAX
DF76 AA         TAX
DF77 AA         TAX
DF78 AA         TAX
DF79 AA         TAX
DF7A AA         TAX
DF7B AA         TAX
DF7C AA         TAX
DF7D AA         TAX
DF7E AA         TAX
DF7F AA         TAX
DF80 AA         TAX
DF81 AA         TAX
DF82 AA         TAX
DF83 AA         TAX
DF84 AA         TAX
DF85 AA         TAX
DF86 AA         TAX
DF87 AA         TAX
DF88 AA         TAX
DF89 AA         TAX
DF8A AA         TAX
DF8B AA         TAX
DF8C AA         TAX
DF8D AA         TAX
DF8E AA         TAX
DF8F AA         TAX
DF90 AA         TAX
DF91 AA         TAX
DF92 AA         TAX
DF93 AA         TAX
DF94 AA         TAX
DF95 AA         TAX
DF96 AA         TAX
DF97 AA         TAX
DF98 AA         TAX
DF99 AA         TAX
DF9A AA         TAX
DF9B AA         TAX
DF9C AA         TAX
DF9D AA         TAX
DF9E AA         TAX
DF9F AA         TAX
DFA0 AA         TAX
DFA1 AA         TAX
DFA2 AA         TAX
DFA3 AA         TAX
DFA4 AA         TAX
DFA5 AA         TAX
DFA6 AA         TAX
DFA7 AA         TAX
DFA8 AA         TAX
DFA9 AA         TAX
DFAA AA         TAX
DFAB AA         TAX
DFAC AA         TAX
DFAD AA         TAX
DFAE AA         TAX
DFAF AA         TAX
DFB0 AA         TAX
DFB1 AA         TAX
DFB2 AA         TAX
DFB3 AA         TAX
DFB4 AA         TAX
DFB5 AA         TAX
DFB6 AA         TAX
DFB7 AA         TAX
DFB8 AA         TAX
DFB9 AA         TAX
DFBA AA         TAX
DFBB AA         TAX
DFBC AA         TAX
DFBD AA         TAX
DFBE AA         TAX
DFBF AA         TAX
DFC0 AA         TAX
DFC1 AA         TAX
DFC2 AA         TAX
DFC3 AA         TAX
DFC4 AA         TAX
DFC5 AA         TAX
DFC6 AA         TAX
DFC7 AA         TAX
DFC8 AA         TAX
DFC9 AA         TAX
DFCA AA         TAX
DFCB AA         TAX
DFCC AA         TAX
DFCD AA         TAX
DFCE AA         TAX
DFCF AA         TAX
DFD0 AA         TAX
DFD1 AA         TAX
DFD2 AA         TAX
DFD3 AA         TAX
DFD4 AA         TAX
DFD5 AA         TAX
DFD6 AA         TAX
DFD7 AA         TAX
DFD8 AA         TAX
DFD9 AA         TAX
DFDA AA         TAX
DFDB AA