********************************************************************************
* ProSel-8 CAT DOCTOR 6.8 *
* Copyright 1990 by Glen Bredon *
* *
* This has CAT.DOCTOR and CD.EXT concatenated together into one binary. *
* *
* *** THIS IS A WORK IN PROGRESS *** *
* *** Only the basic structure has been analyzed *** *
********************************************************************************
* Disassembly by Andy McFadden, using 6502bench SourceGen v1.8. *
* Last updated 2022/03/08 *
********************************************************************************
* This suffers from the LC vs. IWM issue: $C080 is used for tweaking the *
* language card, but $C080,X is used to access the 5.25" drive. It's *
* necessary to manually override the symbol choice for some of the drive I/O. *
* Fortunately there's not a lot of occurrences, and it's limited to the disk *
* formatter code. *
********************************************************************************
P8_QUIT .eq $65 {const} ;(4:Type/1,Path,zz/1,zz)
P8_READ_BLOCK .eq $80 {const} ;(3:Unit/1,Buff,BlkNum)
P8_WRITE_BLOCK .eq $81 {const} ;(3:Unit/1,Buff,BlkNum)
P8_GET_TIME .eq $82 {const} ;()
P8_CREATE .eq $c0 {const} ;(7:pn,acc/1,type/1,aux,stt/1,cD,cT)
P8_DESTROY .eq $c1 {const} ;(1:pn)
P8_RENAME .eq $c2 {const} ;(2:pn1,pn2)
P8_SET_FILE_INFO .eq $c3 {const} ;(7:pn,a/1,t/1,aux,nul/3,mD,mT)
P8_GET_FILE_INFO .eq $c4 {const} ;(10:pn,a/1,t/1,x,s/1,b,mDTcDT)
P8_ONLINE .eq $c5 {const} ;(2:UnitNum/1,Buff)
P8_OPEN .eq $c8 {const} ;(3:pn,ioBuff,Ref/1)
P8_READ .eq $ca {const} ;(4:Ref/1,Where,reqCount,xfrCount)
P8_WRITE .eq $cb {const} ;(4:Ref/1,Where,reqCount,xfrCount)
P8_CLOSE .eq $cc {const} ;(1:Ref/1)
P8_SET_MARK .eq $ce {const} ;(2:Ref/1,Position/3)
P8_SET_EOF .eq $d0 {const} ;(2:Ref/1,Position/3)
MON_WNDWDTH .eq $21 ;width of scroll window
MON_WNDTOP .eq $22 ;top of scroll window
MON_CH .eq $24 ;cursor horizontal displacement
MON_CV .eq $25 ;cursor vertical displacement
MON_INVFLAG .eq $32 ;text mask (255=normal, 127=flash, 63=inv)
MON_CSWH .eq $37 ;character output hook (hi)
MON_A4L .eq $42 ;general purpose
MON_A4H .eq $43 ;general purpose
MON_A5L .eq $44 ;general purpose
MON_A5H .eq $45 ;general purpose
cd_ext_flag .eq $f2 ;bool 00/ff: is CD.EXT loaded?
MON_SOFTEVEC .eq $03f2 {addr/2} ;address of RESET handler
MON_PWREDUP .eq $03f4 ;power-up RESET checksum
SCRNHOLE1 .eq $04f8 {addr/8} ;text page 1 screen holes
SCRNHOLE3 .eq $05f8 {addr/8} ;text page 1 screen holes
SCRNHOLE5 .eq $06f8 {addr/8} ;text page 1 screen holes
P8_MLI .eq $bf00 ;ProDOS MLI call entry point
P8_DATETIME .eq $bf06 ;clock calendar routine
P8_DEVADR01 .eq $bf10 {addr/32} ;device driver vectors
P8_DEVNUM .eq $bf30 ;most recent accessed device
P8_DEVCNT .eq $bf31 ;number of on-line devices (-1)
P8_DEVLST .eq $bf32 {addr/14} ;up to 14 units may be active
P8_MEMTABL .eq $bf58 {addr/24} ;memory map of lower 48K
P8_DATELO .eq $bf90 {addr/2} ;bits 15-9=yr, 8-5=mo, 4-0=day
P8_TIMELO .eq $bf92 {addr/2} ;bits 12-8=hr, 5-0=min; low-hi format
P8_LEVEL .eq $bf94 ;file level: used in open, flush, close
P8_MACHID .eq $bf98 ;machine identification
P8_KVERSION .eq $bfff ;version no. (release ID)
KBD .eq $c000 ;R last key pressed + 128
RDMAINRAM .eq $c002 ;W if 80STORE off: read main mem $0200-BFFF
RDCARDRAM .eq $c003 ;W if 80STORE off: read aux mem $0200-BFFF
WRMAINRAM .eq $c004 ;W if 80STORE off: write main mem $0200-BFFF
WRCARDRAM .eq $c005 ;W if 80STORE off: write aux mem $0200-BFFF
KBDSTRB .eq $c010 ;RW keyboard strobe
BUTN0 .eq $c061 ;R switch input 0 / open-apple
BUTN1 .eq $c062 ;R switch input 1 / closed-apple
IWM_PH0_OFF .eq $c080 ;IWM phase 0 off
LCBANK2_RW .eq $c080 ;RW read RAM bank 2, write off
ROMIN_RO .eq $c082 ;RW read ROM, no write
LCBANK2 .eq $c083 ;RWx2 read/write RAM bank 2
IWM_MOTOR_OFF .eq $c088 ;IWM motor off
LCBANK1_RW .eq $c088 ;RW read RAM bank 1, write off
IWM_MOTOR_ON .eq $c089 ;IWM motor on
IWM_DRIVE_1 .eq $c08a ;IWM select drive 1
LCBANK1 .eq $c08b ;RWx2 read/write RAM bank 1
IWM_Q6_OFF .eq $c08c ;IWM read
IWM_Q6_ON .eq $c08d ;IWM WP-sense
IWM_Q7_OFF .eq $c08e ;IWM WP-sense/read
IWM_Q7_ON .eq $c08f ;IWM write
InSP_DISPATCH_00 .eq $c500 ;(actually a call to DISPATCH)
InSP_DISPATCH_0D .eq $c50d ;SmartPort DISPATCH
MON_PRNTAX .eq $f941 ;print Acc/X-reg as 4 hex digits
MON_PRBL2 .eq $f94a ;print multiple spaces, count in X-reg
MON_INIT .eq $fb2f ;screen initialization
MON_TABV .eq $fb5b ;place cursor at line (A-reg) and column (CH)
MON_WAIT .eq $fca8 ;delay for (26 + 27*Acc + 5*(Acc*Acc))/2 cycles
MON_RDKEY .eq $fd0c ;read key from input device via $38-39
MON_GETLN1 .eq $fd6f ;GETLN with no prompt char
MON_CROUT .eq $fd8e ;print a carriage return
MON_PRBYTE .eq $fdda ;print Acc as two-digit hex number
MON_COUT .eq $fded ;print Acc to output device via $36-37
MON_SETKBD .eq $fe89 ;reset char input handler to ROM
MON_OUTPORT .eq $fe95 ;set char output handler to slot in A-reg
.addrs $2000
.addrs $2000
2000: 4c 83 20 jmp L2083
2003: src_2003
.addrs $be80
be80: 02 LBE80 .dd1 $02
be81: 00 LBE81 .dd1 $00
be82: 00 LBE82 .dd1 $00
be83: 01 LBE83 .dd1 $01
be84: 50 LBE84 .dd1 $50
be85: 3a LBE85 .dd1 $3a
be86: e5 LBE86 .dd1 $e5
be87: 50 LBE87 .dd1 $50
;
be88: c2 c1 c4 LBE88 .str “BAD”
be8b: 01 .dd1 $01
be8c: d4 d8 d4 .str “TXT”
be8f: 04 .dd1 $04
be90: c2 c9 ce .str “BIN”
be93: 06 .dd1 $06
be94: c4 c9 d2 .str “DIR”
be97: 0f .dd1 $0f
be98: c1 c4 c2 .str “ADB”
be9b: 19 .dd1 $19
be9c: c1 d7 d0 .str “AWP”
be9f: 1a .dd1 $1a
bea0: c1 d3 d0 .str “ASP”
bea3: 1b .dd1 $1b
bea4: d3 b1 b6 .str “S16”
bea7: b3 .dd1 $b3
bea8: ce c4 c1 .str “NDA”
beab: b8 .dd1 $b8
beac: c3 c4 c1 .str “CDA”
beaf: b9 .dd1 $b9
beb0: d4 cf cc .str “TOL”
beb3: ba .dd1 $ba
beb4: c4 cf c3 .str “DOC”
beb7: bf .dd1 $bf
beb8: d0 ce d4 .str “PNT”
bebb: c0 .dd1 $c0
bebc: d0 c9 c3 .str “PIC”
bebf: c1 .dd1 $c1
bec0: c6 cf ce .str “FON”
bec3: c8 .dd1 $c8
bec4: c3 cd c4 .str “CMD”
bec7: f0 .dd1 $f0
bec8: cc ce cb .str “LNK”
becb: f8 .dd1 $f8
becc: c2 c1 d3 .str “BAS”
becf: fc .dd1 $fc
bed0: d6 c1 d2 .str “VAR”
bed3: fd .dd1 $fd
bed4: d2 c5 cc .str “REL”
bed7: fe .dd1 $fe
bed8: d3 d9 d3 .str “SYS”
bedb: ff .dd1 $ff
bedc: ce cf ce .str “NON”
bedf: 00 .dd1 $00
bee0: ce cf ce .str “NON”
bee3: 00 .dd1 $00
bee4: ce cf ce .str “NON”
bee7: 00 .dd1 $00
bee8: ce cf ce .str “NON”
beeb: 00 .dd1 $00
beec: ce cf ce .str “NON”
beef: 00 .dd1 $00
bef0: ce cf ce .str “NON”
bef3: 00 .dd1 $00
bef4: ce cf ce .str “NON”
bef7: 00 .dd1 $00
bef8: ce cf ce .str “NON”
befb: 00 .dd1 $00
befc: ce cf ce .str “NON”
beff: 00 .dd1 $00
.adrend ↑ $be80
]src_ptr .var $00 {addr/2}
]dst_ptr .var $02 {addr/2}
2083: a2 18 L2083 ldx #$18
2085: a9 01 lda #$01
2087: 9d 57 bf L2087 sta P8_MEMTABL-1,x ;init MEMTABL ($bf58-bf6f)
208a: a9 00 lda #$00
208c: ca dex
208d: d0 f8 bne L2087
208f: 86 02 stx ]dst_ptr ;set low byte of pointer to zero
2091: a9 cf lda #$cf
2093: 8d 58 bf sta P8_MEMTABL
2096: bd 9d 49 L2096 lda src_499d,x ;copy $499d-4a1c to $be00-be7f
2099: 9d 00 be sta LBE00,x
209c: bd 03 20 lda src_2003,x ;copy $2003-2082 to $be80-beff
209f: 9d 80 be sta LBE80,x
20a2: e8 inx
20a3: 10 f1 bpl L2096
;
20a5: ad 83 be lda LBE83
20a8: 09 c0 ora #$c0
20aa: 85 bd sta $bd
20ac: a9 86 lda #<ResetHandler
20ae: 8d f2 03 sta MON_SOFTEVEC
20b1: a9 11 lda #>ResetHandler
20b3: 8d f3 03 sta MON_SOFTEVEC+1
20b6: 49 a5 eor #$a5
20b8: 8d f4 03 sta MON_PWREDUP
20bb: 20 89 fe jsr MON_SETKBD
20be: a9 03 lda #$03
20c0: 20 95 fe jsr MON_OUTPORT
20c3: a9 8c lda #$8c
20c5: 20 ed fd jsr MON_COUT
20c8: ad 0c c3 lda $c30c
20cb: c9 87 cmp #$87
20cd: f0 06 beq L20D5
20cf: a9 16 lda #$16
20d1: a0 50 ldy #$50
20d3: d0 08 bne L20DD
20d5: ad f8 04 L20D5 lda SCRNHOLE1
20d8: e9 02 sbc #$02
20da: ac f8 05 ldy SCRNHOLE3
20dd: 85 b2 L20DD sta $b2
20df: 85 b7 sta $b7
20e1: 0a asl A
20e2: 85 b3 sta $b3
20e4: 0a asl A
20e5: 85 b4 sta $b4
20e7: 0a asl A
20e8: 85 b6 sta $b6
20ea: 4a lsr A
20eb: 65 b7 adc $b7
20ed: 85 b5 sta $b5
20ef: a5 b7 lda $b7
20f1: c9 28 cmp #$28
20f3: 90 06 bcc L20FB
20f5: a9 ff lda #$ff
20f7: 85 b5 sta $b5
20f9: 85 b6 sta $b6
20fb: c6 b7 L20FB dec $b7
20fd: 98 tya
20fe: 85 b8 sta $b8
2100: 0a L2100_0 asl A
2101: 90 02 bcc L2105
2103: a9 00 lda #$00
2105: 85 b9 L2105 sta $b9
2107: a0 00 ldy #$00
2109: a5 b2 lda $b2
210b: c9 1e cmp #$1e
210d: 90 08 bcc L2117
210f: a0 02 ldy #$02
2111: c9 2e cmp #$2e
2113: 90 02 bcc L2117
2115: a0 08 ldy #$08
2117: 84 ba L2117 sty $ba
;
2119: a0 17 ldy #$17
211b: b9 a7 21 L211B lda src_21a8-1,y ;copy $21a8-21be to $bd00-bd16
211e: 99 ff bc sta LBD00-1,y
2121: 88 dey
2122: d0 f7 bne L211B
;
2124: 2c 83 c0 bit LCBANK2
2127: 2c 83 c0 bit LCBANK2
212a: a9 19 lda #<src_4b19 ;copy $4b19-5518 to $d400-ddff
212c: 85 00 sta ]src_ptr
212e: a9 4b lda #>src_4b19
2130: 85 01 sta ]src_ptr+1
2132: a9 d4 lda #$d4
2134: 85 03 sta ]dst_ptr+1
2136: a2 0a ldx #10 ;10 pages
2138: 20 08 bd jsr MemCopy
;
213b: b9 1b 4a L213B lda src_4a1b,y ;Y-reg=0
213e: 99 00 d0 sta LD000,y ;copy $4a1b-4b1a to $d000-d0ff
2141: c8 iny
2142: d0 f7 bne L213B
2144: 84 f2 sty cd_ext_flag ;set flag = 0
;
2146: ad 98 bf lda P8_MACHID ;get MACHID
2149: 29 30 and #$30 ;mask to get the memory bits
214b: 49 30 eor #$30 ;128K?
214d: d0 4a bne CdExtFail ;no, skip CD.EXT load
214f: a0 00 ldy #$00
;
; Read CD.EXT into main memory at $0800, then copy it into auxmem.
;
2151: 2c 82 c0 bit ROMIN_RO
2154: 20 00 bf jsr P8_MLI
2157: c8 .dd1 P8_OPEN
2158: bf 21 .dd2 cdext_open
215a: b0 3d bcs CdExtFail
215c: ad c4 21 lda cdext_open_ref
215f: 8d c6 21 sta cdext_read+1
2162: 20 00 bf jsr P8_MLI
2165: ca .dd1 P8_READ
2166: c5 21 .dd2 cdext_read
2168: b0 29 bcs L2193
;
216a: a9 08 lda #$08
216c: 85 03 sta ]dst_ptr+1
216e: 8d 05 c0 sta WRCARDRAM ;write to auxmem
2171: a2 19 ldx #$19
2173: b1 02 L2173 lda (]dst_ptr),y ;copy $0800-$20ff onto itself
2175: 91 02 sta (]dst_ptr),y
2177: c8 iny
2178: d0 f9 bne L2173
217a: e6 03 inc ]dst_ptr+1
217c: ca dex
217d: d0 f4 bne L2173
217f: 8d 04 c0 sta WRMAINRAM ;write to main mem
;
2182: 20 e5 21 jsr L21E5
2185: a0 0e ldy #$0e
2187: b9 d6 21 L2187 lda L21D6,y ;copy $21d6-21e4 to $3c18-3c26
218a: 99 18 3c sta menu_txt_wipe+$1a27,y ;replaces "W-Wipe a volume" at +001c18 with
218d: 88 dey ; "TAB-Menu change"
218e: 10 f7 bpl L2187
;
2190: 84 f2 sty cd_ext_flag ;set flag = $ff
2192: c8 iny
2193: 20 00 bf L2193 jsr P8_MLI
2196: cc .dd1 P8_CLOSE
2197: cd 21 .dd2 close_cd_ext
;
2199: a9 08 CdExtFail lda #$08 ;copy $2227-4a26 to $0800-2fff
219b: 85 03 sta ]dst_ptr+1
219d: a9 27 lda #<src_2227
219f: 85 00 sta ]src_ptr
21a1: a9 22 lda #>src_2227
21a3: 85 01 sta ]src_ptr+1
21a5: 4c 00 bd jmp LBD00
;
; These routines are used for copying data during initial setup. $bd00 is used
; as a data storage area once initialization is complete.
;
21a8: src_21a8
.addrs $bd00
bd00: a2 28 LBD00 ldx #$28
bd02: 20 08 bd jsr MemCopy
bd05: 4c 00 08 jmp MainEntry
bd08: b1 00 MemCopy lda (]src_ptr),y
bd0a: 91 02 sta (]dst_ptr),y
bd0c: c8 iny
bd0d: d0 f9 bne MemCopy
bd0f: e6 01 inc ]src_ptr+1
bd11: e6 03 inc ]dst_ptr+1
bd13: ca dex
bd14: d0 f2 bne MemCopy
bd16: 60 rts
.adrend ↑ $bd00
21bf: 03 cdext_open .dd1 3
21c0: cf 21 .dd2 cdext_filename
21c2: 00 b0 .dd2 $b000
21c4: 00 cdext_open_ref .dd1 0
21c5: 04 cdext_read .dd1 4
21c6: 00 .dd1 0 ;refnum
21c7: 00 08 .dd2 MainEntry ;buffer
21c9: 00 18 .dd2 $1800 ;count (actual: 4864 / $1300)
21cb: 00 00 .dd2 $0000
21cd: 01 close_cd_ext .dd1 1
21ce: 00 .dd1 0
21cf: 06 43 44 2e+ cdext_filename .l1str ‘CD.EXT’
21d6: d4 c1 c2 ad+ L21D6 .dstr “TAB-Menu change”
21e5: ac 27 bf L21E5 ldy P8_DEVADR01+23
21e8: c8 iny
21e9: 98 tya
21ea: 0d 26 bf ora P8_DEVADR01+22
21ed: d0 0d bne L21FC
21ef: ac 31 bf ldy P8_DEVCNT
21f2: b9 32 bf L21F2 lda P8_DEVLST,y
21f5: c9 bf cmp #$bf
21f7: f0 04 beq L21FD
21f9: 88 dey
21fa: 10 f6 bpl L21F2
21fc: 60 L21FC rts
21fd: 8d 4c 48 L21FD sta L484C
2200: b9 33 bf L2200 lda P8_DEVLST+1,y
2203: 99 32 bf sta P8_DEVLST,y
2206: f0 03 beq L220B
2208: c8 iny
2209: d0 f5 bne L2200
220b: ad 10 bf L220B lda P8_DEVADR01
220e: 8d 26 bf sta P8_DEVADR01+22
2211: ad 11 bf lda P8_DEVADR01+1
2214: 8d 27 bf sta P8_DEVADR01+23
2217: ce 31 bf dec P8_DEVCNT
221a: ac 30 bf ldy P8_DEVNUM
221d: 20 00 bf jsr P8_MLI
2220: c5 .dd1 P8_ONLINE
2221: 0d be .dd2 LBE0D
2223: 8c 30 bf sty P8_DEVNUM
2226: 60 rts
.adrend ↑ $2000
2227: src_2227
.addrs $0800
• Clear variables
0800: ad 30 bf MainEntry lda P8_DEVNUM
0803: 8d 00 be sta LBE00
0806: 8d 0e be sta LBE0E
0809: 20 00 bf jsr P8_MLI
080c: c5 .dd1 P8_ONLINE
080d: 0d be .dd2 LBE0D
080f: 2c 83 c0 bit LCBANK2
0812: 20 02 d4 jsr LD402
0815: a2 ff T0815 ldx #$ff
0817: 9a txs
0818: 86 fe stx $fe
081a: 20 56 08 jsr L0856
081d: a2 00 L081D ldx #$00
081f: 8e 00 30 stx $3000
0822: 86 fd stx $fd
0824: 86 f5 stx $f5
0826: 86 f3 stx $f3
0828: 86 f4 stx $f4
082a: 86 ef stx $ef
082c: 86 d8 stx $d8
082e: 20 21 21 L082E jsr L2121
0831: e8 inx
0832: 90 fa bcc L082E
0834: a9 0a L0834 lda #$0a
0836: 8d 1c be sta LBE1C
0839: a9 80 lda #$80
083b: 85 0e sta $0e
083d: 8d 1d be sta LBE1D
0840: a9 bc lda #$bc
0842: 85 0f sta $0f
0844: 8d 1e be sta LBE1D+1
0847: 2c 82 c0 L0847 bit ROMIN_RO
084a: 20 f9 1e jsr L1EF9
084d: 20 57 1a jsr L1A57
0850: 2c 83 c0 bit LCBANK2
0853: 4c 31 db jmp LDB31
0856: 2c 82 c0 L0856 bit ROMIN_RO
0859: 86 f0 stx $f0
085b: 86 a0 stx $a0
085d: 86 ec stx $ec
085f: 20 89 fe jsr MON_SETKBD
0862: a9 03 lda #$03
0864: 20 95 fe jsr MON_OUTPORT
0867: 20 8e fd jsr MON_CROUT
086a: 20 a6 15 jsr L15A6
086d: a5 ba lda $ba
086f: 20 5b fb jsr MON_TABV
0872: 20 8c 22 jsr InHZ_PrintString3
0875: 21 c3 c1 d4+ L0875 .zstr $21,“CAT DOCTOR 6.8”,$8d,$19,“Copyright 1990 by Glen Bredon”
+ $8d,$8d
08a7: 84 da sty $da
08a9: 84 d9 sty $d9
08ab: 84 dd sty $dd
08ad: 20 49 27 jsr L2749
08b0: a9 9f lda #$9f
08b2: 20 ed fd jsr MON_COUT
08b5: a0 13 ldy #$13
08b7: 20 19 2f jsr L2F19
08ba: a9 0f L08BA lda #$0f
08bc: 85 24 sta MON_CH
08be: a9 da lda #$da
08c0: 20 ed fd jsr MON_COUT
08c3: a9 40 lda #$40
08c5: 85 24 sta MON_CH
08c7: a9 df lda #$df
08c9: 20 ed fd jsr MON_COUT
08cc: 20 8e fd jsr MON_CROUT
08cf: 88 dey
08d0: d0 e8 bne L08BA
08d2: 4c 49 27 jmp L2749
08d5: 20 57 22 T08D5 jsr InHZ_PrintString1
08d8: 20 c3 c8 c1+ .zstr $20,“CHANGE FILE DATE”
08ea: 20 46 27 jsr L2746
08ed: 20 8c 22 jsr InHZ_PrintString3
08f0: 8d 10 c6 f5+ .zstr $8d,$10,“Full pathname of file”
0908: 20 81 0e jsr L0E81
090b: 78 sei
090c: 20 7e 09 jsr L097E
090f: b0 2e bcs L093F
0911: ad 30 bf lda P8_DEVNUM
0914: 8d 08 be sta LBE08
0917: a2 02 ldx #$02
0919: ad 23 be lda LBE23
091c: 49 0f eor #$0f
091e: f0 04 beq L0924
0920: a6 46 ldx $46
0922: a5 47 lda $47
0924: 8d 0c be L0924 sta LBE0B+1
0927: 8e 0b be stx LBE0B
092a: 58 cli
092b: 20 48 20 jsr L2048
092e: b0 0f bcs L093F
0930: ad 23 be lda LBE23
0933: 0a asl A
0934: 0a asl A
0935: 0a asl A
0936: 0a asl A
0937: 20 a0 11 jsr L11A0
093a: 20 db 1f jsr L1FDB
093d: 90 1a bcc L0959
093f: 4c 2d 11 L093F jmp L112D
0942: 20 00 bf L0942 jsr P8_MLI
0945: c2 .dd1 P8_RENAME
0946: 79 be .dd2 LBE79
0948: b0 f5 bcs L093F
094a: 60 rts
094b: a9 20 T094B lda #$20
094d: 20 81 10 jsr L1081
0950: 20 5d 1c jsr L1C5D
0953: 38 sec
0954: 66 ec ror $ec
0956: 20 df 29 jsr L29DF
0959: 4c 15 08 L0959 jmp T0815
095c: b5 c9 T095C lda $c9,x
095e: 49 87 eor #$87
0960: 95 c9 sta $c9,x
0962: 4c 1d 08 jmp L081D
0965: 20 72 09 T0965 jsr L0972
0968: 85 08 sta $08
096a: c6 08 dec $08
096c: 20 85 09 jsr L0985
096f: 4c c0 11 jmp L11C0
0972: 20 a6 15 L0972 jsr L15A6
0975: 20 00 bf jsr P8_MLI
0978: c5 .dd1 P8_ONLINE
0979: 11 be .dd2 LBE11
097b: b0 c2 bcs L093F
097d: 60 rts
097e: 20 00 bf L097E jsr P8_MLI
0981: c4 .dd1 P8_GET_FILE_INFO
0982: 1c be .dd2 LBE1C
0984: 60 rts
0985: 2c 83 c0 L0985 bit LCBANK2
0988: 20 91 d5 jsr LD591
098b: 2c 82 c0 bit ROMIN_RO
098e: 84 04 sty $04
0990: 20 36 15 jsr L1536
0993: a9 2a lda #$2a
0995: 85 02 sta $02
0997: a9 be lda #$be
0999: 85 03 sta $03
099b: 98 L099B tya
099c: 48 pha
099d: b9 00 36 lda $3600,y
09a0: 8d 0e be sta LBE0E
09a3: aa tax
09a4: 29 0f and #$0f
09a6: d0 03 bne L09AB
09a8: 4c 39 0a jmp L0A39
09ab: 18 L09AB clc
09ac: 69 01 adc #$01
09ae: 85 e4 sta $e4
09b0: 24 08 bit $08
09b2: 10 09 bpl L09BD
09b4: 8d 80 bc sta $bc80
09b7: 20 00 bf jsr P8_MLI
09ba: c5 .dd1 P8_ONLINE
09bb: 0d be .dd2 LBE0D
09bd: a9 05 L09BD lda #$05
09bf: 85 24 sta MON_CH
09c1: 8a txa
09c2: 4a lsr A
09c3: 4a lsr A
09c4: 4a lsr A
09c5: 4a lsr A
09c6: c9 08 cmp #$08
09c8: 29 07 and #$07
09ca: aa tax
09cb: a9 b1 lda #$b1
09cd: 69 00 adc #$00
09cf: 48 pha
09d0: 8a txa
09d1: 09 b0 ora #$b0
09d3: 20 ed fd jsr MON_COUT
09d6: a9 0b lda #$0b
09d8: 85 24 sta MON_CH
09da: 68 pla
09db: 20 ed fd jsr MON_COUT
09de: a9 11 lda #$11
09e0: 85 24 sta MON_CH
09e2: a5 04 lda $04
09e4: c5 08 cmp $08
09e6: d0 06 bne L09EE
09e8: 46 32 lsr MON_INVFLAG
09ea: 68 pla
09eb: 48 pha
09ec: 85 a1 sta $a1
09ee: e6 04 L09EE inc $04
09f0: a2 01 ldx #$01
09f2: c8 L09F2 iny
09f3: e8 inx
09f4: b9 00 36 lda $3600,y
09f7: 24 08 bit $08
09f9: 10 03 bpl L09FE
09fb: 9d 80 bc sta $bc80,x
09fe: 20 41 2f L09FE jsr L2F41
0a01: e4 e4 cpx $e4
0a03: 90 ed bcc L09F2
0a05: a5 08 lda $08
0a07: 10 2a bpl L0A33
0a09: 20 7e 09 jsr L097E
0a0c: b0 25 bcs L0A33
0a0e: a0 21 ldy #$21
0a10: 20 fd 26 jsr L26FD
0a13: ad 25 be lda LBE24+1
0a16: ae 24 be ldx LBE24
0a19: a0 27 ldy #$27
0a1b: 20 0b 27 jsr L270B
0a1e: ad 22 be lda LBE21+1
0a21: ae 21 be ldx LBE21
0a24: a0 2e ldy #$2e
0a26: 20 0b 27 jsr L270B
0a29: a9 34 lda #$34
0a2b: 85 24 sta MON_CH
0a2d: 20 95 1e jsr L1E95
0a30: 20 74 1e jsr L1E74
0a33: 20 8e fd L0A33 jsr MON_CROUT
0a36: 20 14 2f jsr L2F14
0a39: 68 L0A39 pla
0a3a: 18 clc
0a3b: 69 10 adc #$10
0a3d: a8 tay
0a3e: f0 0c beq L0A4C
0a40: 4c 9b 09 jmp L099B
0a43: 2c 82 c0 L0A43 bit ROMIN_RO
0a46: 20 cb ff L0A46 jsr $ffcb
0a49: 2c 83 c0 bit LCBANK2
0a4c: 60 L0A4C rts
0a4d: c6 da T0A4D dec $da
0a4f: a9 40 T0A4F lda #$40
0a51: 20 81 10 jsr L1081
0a54: a8 tay
0a55: a2 ff ldx #$ff
0a57: d0 13 bne L0A6C
0a59: a9 80 T0A59 lda #$80
0a5b: 20 81 10 jsr L1081
0a5e: a9 c2 lda #$c2
0a60: a8 tay
0a61: d0 08 bne L0A6B
0a63: a9 00 T0A63 lda #$00
0a65: 20 81 10 jsr L1081
0a68: a8 tay
0a69: a9 c3 lda #$c3
0a6b: aa L0A6B tax
0a6c: 20 62 1c L0A6C jsr L1C62
0a6f: 20 78 1b L0A6F jsr L1B78
0a72: 20 57 19 jsr L1957
0a75: a4 da ldy $da
0a77: f0 0c beq L0A85
0a79: 2c 83 c0 bit LCBANK2
0a7c: 20 de da jsr LDADE
0a7f: 2c 82 c0 bit ROMIN_RO
0a82: 20 30 1d jsr L1D30
0a85: 4c 15 08 L0A85 jmp T0815
0a88: a6 08 T0A88 ldx $08
0a8a: c6 08 dec $08
0a8c: 10 10 bpl L0A9E
0a8e: a9 10 lda #$10
0a90: d0 0a bne L0A9C
0a92: a6 08 T0A92 ldx $08
0a94: e6 08 inc $08
0a96: e0 10 cpx #$10
0a98: 90 04 bcc L0A9E
0a9a: a9 00 lda #$00
0a9c: 85 08 L0A9C sta $08
0a9e: 20 21 21 L0A9E jsr L2121
0aa1: a6 08 ldx $08
0aa3: 20 21 21 jsr L2121
0aa6: 4c 34 08 jmp L0834
0aa9: a9 01 T0AA9 lda #$01
0aab: 20 81 10 jsr L1081
0aae: 20 6f 10 jsr L106F
0ab1: ca dex
0ab2: 86 d9 stx $d9
0ab4: d0 b6 bne L0A6C
0ab6: 2c 80 c0 L0AB6 bit LCBANK2_RW
0ab9: 20 8b dd jsr LDD8B
0abc: 08 php
0abd: 2c 82 c0 bit ROMIN_RO
0ac0: 38 sec
0ac1: 66 ec ror $ec
0ac3: 20 c5 2e jsr L2EC5
0ac6: 20 8c 22 jsr InHZ_PrintString3
0ac9: 8d c3 e8 e1+ .zstr $8d,“Change”
0ad1: 20 81 0e jsr L0E81
0ad4: 20 22 1a jsr L1A22
0ad7: 28 plp
0ad8: d0 2b bne L0B05
0ada: ac c0 bc ldy $bcc0
0add: a9 2f lda #$2f
0adf: 88 L0ADF dey
0ae0: c0 01 cpy #$01
0ae2: d0 1d bne L0B01
0ae4: c8 L0AE4 iny
0ae5: d9 40 bd cmp $bd40,y
0ae8: d0 fa bne L0AE4
0aea: 8c 40 bd sty $bd40
0aed: 20 42 09 jsr L0942
0af0: c6 04 dec $04
0af2: ac c0 bc ldy $bcc0
0af5: b1 0e L0AF5 lda ($0e),y
0af7: 99 40 bd sta $bd40,y
0afa: 99 80 bc sta $bc80,y
0afd: 88 dey
0afe: 10 f5 bpl L0AF5
0b00: 60 rts
0b01: d1 0e L0B01 cmp ($0e),y
0b03: d0 da bne L0ADF
0b05: 20 42 09 L0B05 jsr L0942
0b08: 20 64 2e jsr L2E64
0b0b: ae 80 bc ldx $bc80
0b0e: e8 L0B0E inx
0b0f: ec c0 bc cpx $bcc0
0b12: b0 08 bcs L0B1C
0b14: bd c0 bc lda $bcc0,x
0b17: c8 iny
0b18: 91 02 sta ($02),y
0b1a: 90 f2 bcc L0B0E
0b1c: 98 L0B1C tya
0b1d: a0 00 ldy #$00
0b1f: 91 02 sta ($02),y
0b21: a5 04 lda $04
0b23: 85 08 sta $08
0b25: 4c 7e 28 jmp L287E
0b28: a9 c0 T0B28 lda #$c0
0b2a: 20 81 10 jsr L1081
0b2d: 20 5d 1c jsr L1C5D
0b30: 20 f2 27 jsr L27F2
0b33: 20 71 0b jsr L0B71
0b36: 20 8c 22 jsr InHZ_PrintString3
0b39: f3 ef f2 f4+ .zstr “sorted”,$80,“ to disk.”,$8d,$8d
0b4c: 20 8a 0b jsr L0B8A
0b4f: 20 bd 1c jsr L1CBD
0b52: 4c 15 08 jmp T0815
0b55: 86 f0 T0B55 stx $f0
0b57: 46 e8 lsr $e8
0b59: a9 e0 T0B59 lda #$e0
0b5b: 85 ed sta $ed
0b5d: 20 81 10 jsr L1081
0b60: 20 5d 1c jsr L1C5D
0b63: ad 30 bf lda P8_DEVNUM
0b66: 85 15 sta $15
0b68: 20 78 1b jsr L1B78
0b6b: 20 83 13 jsr L1383
0b6e: 4c 15 08 jmp T0815
0b71: 20 57 22 L0B71 jsr InHZ_PrintString1
0b74: 8d d0 f2 e5+ .zstr $8d,“Press RTN to write ”
0b89: 60 rts
0b8a: 20 8c 22 L0B8A jsr InHZ_PrintString3
0b8d: d0 f2 e5 f3+ .zstr “Press ESC to abort.”,$8d
0ba2: 2c 10 c0 bit KBDSTRB
0ba5: 20 f1 1a L0BA5 jsr L1AF1
0ba8: 10 fb L0BA8 bpl L0BA5
0baa: 2c 10 c0 bit KBDSTRB
0bad: c9 8d cmp #$8d
0baf: d0 f4 bne L0BA5
0bb1: 60 rts
0bb2: ac 80 bc T0BB2 ldy $bc80
0bb5: b9 80 bc L0BB5 lda $bc80,y
0bb8: 99 80 bd sta $bd80,y
0bbb: 88 dey
0bbc: 10 f7 bpl L0BB5
0bbe: a9 80 lda #$80
0bc0: 85 0e sta $0e
0bc2: 8d 1d be sta LBE1D
0bc5: a9 bd lda #$bd
0bc7: 85 0f sta $0f
0bc9: 8d 1e be sta LBE1D+1
0bcc: 20 57 22 jsr InHZ_PrintString1
0bcf: 20 c3 d2 c5+ .zstr $20,“CREATE DIRECTORY”
0be1: 20 46 27 jsr L2746
0be4: 20 d8 0d jsr L0DD8
0be7: 20 8c 22 jsr InHZ_PrintString3
0bea: a0 f4 ef a0+ .zstr “ to create”
0bf5: 20 81 0e jsr L0E81
0bf8: ae 80 bd ldx $bd80
0bfb: a9 2f lda #$2f
0bfd: dd 80 bd cmp $bd80,x
0c00: f0 04 beq L0C06
0c02: 9d 81 bd sta $bd81,x
0c05: e8 inx
0c06: 86 05 L0C06 stx $05
0c08: bd 80 bd L0C08 lda $bd80,x
0c0b: 9d 80 bc sta $bc80,x
0c0e: ca dex
0c0f: 10 f7 bpl L0C08
0c11: a2 02 ldx #$02
0c13: e8 L0C13 inx
0c14: bd 80 bd lda $bd80,x
0c17: c9 2f cmp #$2f
0c19: d0 f8 bne L0C13
0c1b: e4 05 cpx $05
0c1d: b0 35 bcs L0C54
0c1f: e8 L0C1F inx
0c20: bd 81 bd lda $bd81,x
0c23: c9 2f cmp #$2f
0c25: d0 f8 bne L0C1F
0c27: 8e 80 bd stx $bd80
0c2a: 20 7e 09 jsr L097E
0c2d: 90 28 bcc L0C57
0c2f: c9 46 cmp #$46
0c31: d0 2d bne L0C60
0c33: a0 06 ldy #$06
0c35: a9 00 lda #$00
0c37: 99 6c be L0C37 sta LBE6C,y
0c3a: 88 dey
0c3b: 10 fa bpl L0C37
0c3d: a9 0f lda #$0f
0c3f: 8d 6b be sta LBE6B
0c42: a9 0d lda #$0d
0c44: 8d 6e be sta LBE6E
0c47: 20 00 bf jsr P8_MLI
0c4a: c0 .dd1 P8_CREATE
0c4b: 67 be .dd2 LBE67
0c4d: b0 11 bcs L0C60
0c4f: e8 L0C4F inx
0c50: e4 05 cpx $05
0c52: 90 cb bcc L0C1F
0c54: 4c 15 08 L0C54 jmp T0815
0c57: ad 20 be L0C57 lda LBE20
0c5a: c9 0f cmp #$0f
0c5c: f0 f1 beq L0C4F
0c5e: a9 4a lda #$4a
0c60: 4c 2d 11 L0C60 jmp L112D
0c63: c3 cf d0 d9 L0C63 .str “COPY”
0c67: 00 .dd1 $00
0c68: 20 57 22 T0C68 jsr InHZ_PrintString1
0c6b: 23 c3 cf d0+ .zstr $23,“COPY FILES”,$8d
0c78: a0 06 ldy #$06
0c7a: b9 62 0c L0C7A lda L0C63-1,y
0c7d: 99 ff 2f sta $2fff,y
0c80: 88 dey
0c81: d0 f7 bne L0C7A
0c83: 46 ec lsr $ec
0c85: 46 ed lsr $ed
0c87: 20 c0 27 jsr L27C0
0c8a: 20 49 27 jsr L2749
0c8d: 20 55 2e jsr L2E55
0c90: 20 8c 22 L0C90 jsr InHZ_PrintString3
0c93: 8d 10 d3 ef+ .zstr $8d,$10,“Source”,$80
0c9d: 20 81 0e jsr L0E81
0ca0: 24 a0 bit $a0
0ca2: 30 03 bmi L0CA7
0ca4: 20 c0 27 jsr L27C0
0ca7: 20 8c 22 L0CA7 jsr InHZ_PrintString3
0caa: 8d 8d 10 c4+ .zstr $8d,$8d,$10,“Destination”,$80
0cba: 84 d7 sty $d7
0cbc: a9 c0 lda #$c0
0cbe: 85 0e sta $0e
0cc0: 8d 1d be sta LBE1D
0cc3: 0a asl A
0cc4: 85 ef sta $ef
0cc6: 20 81 0e jsr L0E81
0cc9: 20 11 1a jsr L1A11
0ccc: 20 22 1a jsr L1A22
0ccf: ac 80 bc ldy $bc80
0cd2: b9 80 bc L0CD2 lda $bc80,y
0cd5: 51 0e eor ($0e),y
0cd7: 29 5f and #$5f
0cd9: d0 03 bne L0CDE
0cdb: 88 dey
0cdc: 10 f4 bpl L0CD2
0cde: 84 d9 L0CDE sty $d9
0ce0: a9 80 lda #$80
0ce2: 85 0e sta $0e
0ce4: 8d 1d be sta LBE1D
0ce7: 20 84 10 jsr L1084
0cea: 20 5d 1c jsr L1C5D
0ced: a5 03 lda $03
0cef: c9 90 cmp #$90
0cf1: b0 0d bcs L0D00
0cf3: ad 30 bf lda P8_DEVNUM
0cf6: 85 15 sta $15
0cf8: 20 78 1b jsr L1B78
0cfb: d0 09 bne L0D06
0cfd: 4c 15 08 L0CFD jmp T0815
0d00: 4c 54 11 L0D00 jmp L1154
0d03: 20 7a 1c L0D03 jsr L1C7A
0d06: a9 ff L0D06 lda #$ff
0d08: 85 d4 sta $d4
0d0a: a9 c0 lda #$c0
0d0c: 85 0e sta $0e
0d0e: 8d 1d be sta LBE1D
0d11: 20 84 10 jsr L1084
0d14: 20 4e 1c jsr L1C4E
0d17: 24 f4 bit $f4
0d19: 30 74 bmi L0D8F
0d1b: 24 d7 bit $d7
0d1d: 30 4e bmi L0D6D
0d1f: 20 83 13 jsr L1383
0d22: 24 d4 bit $d4
0d24: 10 d7 bpl L0CFD
0d26: 2c 10 c0 bit KBDSTRB
0d29: 20 87 22 jsr InHZ_PrintString2
0d2c: 8d 0e c3 ef+ .zstr $8d,$0e,“Copy/DEL same files to volume of same name? (Y/N/DEL)”
0d64: 20 95 0d jsr L0D95
0d67: b0 9a bcs L0D03
0d69: 50 92 bvc L0CFD
0d6b: 70 07 bvs L0D74
0d6d: 46 d6 L0D6D lsr $d6
0d6f: 20 26 2e jsr L2E26
0d72: f0 89 beq L0CFD
0d74: 46 ef L0D74 lsr $ef
0d76: a9 40 lda #$40
0d78: 85 13 sta $13
0d7a: a0 08 ldy #$08
0d7c: b9 87 0d L0D7C lda L0D88-1,y
0d7f: 99 ff 2f sta $2fff,y
0d82: 88 dey
0d83: d0 f7 bne L0D7C
0d85: 4c 6f 0a jmp L0A6F
0d88: c4 c5 cc c5+ L0D88 .str “DELETE”
0d8e: 00 .dd1 $00
0d8f: 2c 80 c0 L0D8F bit LCBANK2_RW
0d92: 4c 97 d7 jmp LD797
0d95: a9 ce L0D95 lda #$ce
0d97: 8d 9f 0d L0D97 sta L0D9D+2
0d9a: 20 8c 22 jsr InHZ_PrintString3
0d9d: a0 bf ce 88+ L0D9D .zstr “ ?N”,$88,$87
0da3: 20 0c fd L0DA3 jsr MON_RDKEY
0da6: c9 9b cmp #$9b
0da8: f0 2b beq L0DD5
0daa: c9 83 cmp #$83
0dac: f0 27 beq L0DD5
0dae: c9 8d cmp #$8d
0db0: d0 03 bne L0DB5
0db2: ad 9f 0d lda L0D9D+2
0db5: 29 df L0DB5 and #$df
0db7: c9 a0 cmp #$a0
0db9: 90 03 bcc L0DBE
0dbb: 20 ed fd jsr MON_COUT
0dbe: c9 d9 L0DBE cmp #$d9
0dc0: b8 clv
0dc1: f0 0c beq L0DCF
0dc3: 49 ce eor #$ce
0dc5: f0 08 beq L0DCF
0dc7: 2c d4 0d bit L0DD4
0dca: 18 clc
0dcb: 49 11 eor #$11
0dcd: d0 d4 bne L0DA3
0dcf: 08 L0DCF php
0dd0: 20 8e fd jsr MON_CROUT
0dd3: 28 plp
0dd4: 60 L0DD4 rts
0dd5: 4c 15 08 L0DD5 jmp T0815
0dd8: 20 8c 22 L0DD8 jsr InHZ_PrintString3
0ddb: 8d 10 c4 e9+ .zstr $8d,$10,“Directory”
0de7: 60 rts
0de8: 85 13 L0DE8 sta $13
0dea: 46 ec lsr $ec
0dec: 20 57 22 jsr InHZ_PrintString1
0def: 23 00 .zstr $23
0df1: 84 fe sty $fe
0df3: a9 20 lda #$20
0df5: 24 13 bit $13
0df7: 10 28 bpl L0E21
0df9: 50 67 bvc L0E62
0dfb: f0 1a beq L0E17
0dfd: 24 f0 bit $f0
0dff: 30 0a bmi L0E0B
0e01: 20 8c 22 jsr InHZ_PrintString3
0e04: d4 d9 d0 c5+ .zstr “TYPE”
0e09: 90 5f bcc L0E6A
0e0b: 20 8c 22 L0E0B jsr InHZ_PrintString3
0e0e: d6 c5 d2 c9+ .zstr “VERIFY”
0e15: 90 53 bcc L0E6A
0e17: 20 8c 22 L0E17 jsr InHZ_PrintString3
0e1a: d3 cf d2 d4+ .zstr “SORT”
0e1f: 90 49 bcc L0E6A
0e21: 50 1c L0E21 bvc L0E3F
0e23: a4 da ldy $da
0e25: f0 0c beq L0E33
0e27: 20 8c 22 jsr InHZ_PrintString3
0e2a: c5 d8 c8 d5+ .zstr “EXHUME”
0e31: 90 37 bcc L0E6A
0e33: 20 8c 22 L0E33 jsr InHZ_PrintString3
0e36: c4 c5 cc c5+ .zstr “DELETE”
0e3d: 90 2b bcc L0E6A
0e3f: f0 0a L0E3F beq L0E4B
0e41: 20 8c 22 jsr InHZ_PrintString3
0e44: d3 c8 cf d7+ .zstr “SHOW”
0e49: 90 1f bcc L0E6A
0e4b: a5 13 L0E4B lda $13
0e4d: 4a lsr A
0e4e: 90 0c bcc L0E5C
0e50: 20 8c 22 jsr InHZ_PrintString3
0e53: d2 c5 ce c1+ .zstr “RENAME”
0e5a: 90 0e bcc L0E6A
0e5c: 20 8c 22 L0E5C jsr InHZ_PrintString3
0e5f: d5 ce 00 .zstr “UN”
0e62: 20 8c 22 L0E62 jsr InHZ_PrintString3
0e65: cc cf c3 cb+ .zstr “LOCK”
0e6a: 88 L0E6A dey
0e6b: 84 fe sty $fe
0e6d: 20 8c 22 jsr InHZ_PrintString3
0e70: a0 c6 c9 cc+ .zstr “ FILES”,$8d
0e78: 20 c0 27 jsr L27C0
0e7b: 20 49 27 jsr L2749
0e7e: 20 d8 0d jsr L0DD8
0e81: 20 8c 22 L0E81 jsr InHZ_PrintString3
0e84: ba a0 00 .zstr “: ”
0e87: a9 a0 L0E87 lda #$a0
0e89: 99 00 02 L0E89 sta $0200,y
0e8c: c8 iny
0e8d: d0 fa bne L0E89
0e8f: b1 0e lda ($0e),y
0e91: 48 pha
0e92: aa tax
0e93: c8 iny
0e94: b1 0e L0E94 lda ($0e),y
0e96: 09 80 ora #$80
0e98: 99 7f 02 sta $027f,y
0e9b: 20 ed fd jsr MON_COUT
0e9e: c8 iny
0e9f: ca dex
0ea0: d0 f2 bne L0E94
0ea2: 20 7b 0f jsr L0F7B
0ea5: 68 pla
0ea6: aa tax
0ea7: ca dex
0ea8: 20 66 27 jsr L2766
0eab: 24 d9 bit $d9
0ead: 30 03 bmi L0EB2
0eaf: 20 6f 10 jsr L106F
0eb2: 20 9e 0f L0EB2 jsr L0F9E
0eb5: f0 73 beq L0F2A
0eb7: 24 ef bit $ef
0eb9: 30 1d bmi L0ED8
0ebb: c9 98 cmp #$98
0ebd: d0 19 bne L0ED8
0ebf: a9 88 lda #$88
0ec1: 20 ed fd jsr MON_COUT
0ec4: a0 3f ldy #$3f
0ec6: b1 0e L0EC6 lda ($0e),y
0ec8: 48 pha
0ec9: b9 c0 bc lda $bcc0,y
0ecc: 91 0e sta ($0e),y
0ece: 68 pla
0ecf: 99 c0 bc sta $bcc0,y
0ed2: 88 dey
0ed3: 10 f1 bpl L0EC6
0ed5: c8 iny
0ed6: f0 af beq L0E87
0ed8: 24 ec L0ED8 bit $ec
0eda: 30 08 bmi L0EE4
0edc: c9 3f cmp #$3f
0ede: f0 64 beq L0F44
0ee0: c9 bf cmp #$bf
0ee2: f0 5d beq L0F41
0ee4: c9 84 L0EE4 cmp #$84
0ee6: f0 35 beq L0F1D
0ee8: e0 00 cpx #$00
0eea: d0 09 bne L0EF5
0eec: c9 c1 cmp #$c1
0eee: 90 c2 bcc L0EB2
0ef0: 20 32 10 jsr L1032
0ef3: b0 bd bcs L0EB2
0ef5: e0 3e L0EF5 cpx #$3e
0ef7: b0 07 bcs L0F00
0ef9: 9d 81 02 sta $0281,x
0efc: 20 ed fd jsr MON_COUT
0eff: e8 inx
0f00: 20 9e 0f L0F00 jsr L0F9E
0f03: f0 61 beq L0F66
0f05: 24 ec bit $ec
0f07: 30 04 bmi L0F0D
0f09: c9 bf cmp #$bf
0f0b: f0 37 beq L0F44
0f0d: c9 af L0F0D cmp #$af
0f0f: d0 06 bne L0F17
0f11: dd 80 02 cmp $0280,x
0f14: d0 df bne L0EF5
0f16: 4a lsr A
0f17: c9 88 L0F17 cmp #$88
0f19: f0 43 beq L0F5E
0f1b: c9 84 cmp #$84
0f1d: f0 61 L0F1D beq L0F80
0f1f: c9 ff cmp #$ff
0f21: f0 61 beq L0F84
0f23: 20 32 10 jsr L1032
0f26: b0 d8 bcs L0F00
0f28: 90 cb bcc L0EF5
0f2a: 20 5e 10 L0F2A jsr L105E
0f2d: f0 4c beq L0F7B
0f2f: ad 23 be L0F2F lda LBE23
0f32: 49 0f eor #$0f
0f34: d0 03 bne L0F39
0f36: a8 tay
0f37: a2 02 ldx #$02
0f39: 29 fd L0F39 and #$fd
0f3b: d0 3e bne L0F7B
0f3d: 86 a2 stx $a2
0f3f: 84 a3 sty $a3
0f41: 4c b5 22 L0F41 jmp L22B5
0f44: 20 66 0f L0F44 jsr L0F66
0f47: 20 7e 09 jsr L097E
0f4a: 2c 88 c0 bit LCBANK1_RW
0f4d: a0 11 ldy #$11
0f4f: b1 48 lda ($48),y
0f51: aa tax
0f52: c8 iny
0f53: b1 48 lda ($48),y
0f55: a8 tay
0f56: 2c 82 c0 bit ROMIN_RO
0f59: 90 d4 bcc L0F2F
0f5b: 4c 2d 11 jmp L112D
0f5e: 20 4b 10 L0F5E jsr L104B
0f61: d0 9d L0F61 bne L0F00
0f63: 4c b2 0e jmp L0EB2
0f66: a0 00 L0F66 ldy #$00
0f68: e8 inx
0f69: 8a txa
0f6a: 91 0e sta ($0e),y
0f6c: a8 tay
0f6d: 88 L0F6D dey
0f6e: f0 0b beq L0F7B
0f70: b9 80 02 lda $0280,y
0f73: 29 7f and #$7f
0f75: c8 iny
0f76: 91 0e sta ($0e),y
0f78: 88 dey
0f79: d0 f2 bne L0F6D
0f7b: a9 9d L0F7B lda #$9d
0f7d: 4c ed fd jmp MON_COUT
0f80: 20 58 10 L0F80 jsr L1058
0f83: e8 inx
0f84: 20 4b 10 L0F84 jsr L104B
0f87: 86 e4 stx $e4
0f89: bd 82 02 L0F89 lda $0282,x
0f8c: 9d 81 02 sta $0281,x
0f8f: 20 ed fd jsr MON_COUT
0f92: e8 inx
0f93: c9 a0 cmp #$a0
0f95: d0 f2 bne L0F89
0f97: 20 62 27 jsr L2762
0f9a: a6 e4 ldx $e4
0f9c: 10 c3 bpl L0F61
0f9e: a5 d8 L0F9E lda $d8
0fa0: d0 6a bne L100C
0fa2: 46 32 lsr MON_INVFLAG
0fa4: 20 58 10 jsr L1058
0fa7: 20 14 2f jsr L2F14
0faa: a9 88 lda #$88
0fac: 20 ed fd jsr MON_COUT
0faf: 20 8e 17 jsr L178E
0fb2: c5 95 cmp $95
0fb4: d0 02 bne L0FB8
0fb6: a9 bf lda #$bf
0fb8: c9 89 L0FB8 cmp #$89
0fba: f0 37 beq L0FF3
0fbc: c9 95 cmp #$95
0fbe: d0 03 bne L0FC3
0fc0: bd 81 02 lda $0281,x
0fc3: 2c 61 c0 L0FC3 bit BUTN0
0fc6: 10 25 bpl L0FED
0fc8: 20 32 10 jsr L1032
0fcb: b0 20 bcs L0FED
0fcd: e0 3e cpx #$3e
0fcf: b0 1c bcs L0FED
0fd1: 48 pha
0fd2: 86 e4 stx $e4
0fd4: bc 81 02 L0FD4 ldy $0281,x
0fd7: 9d 81 02 sta $0281,x
0fda: 20 ed fd jsr MON_COUT
0fdd: 98 tya
0fde: e8 inx
0fdf: e0 3e cpx #$3e
0fe1: b0 04 bcs L0FE7
0fe3: c9 a0 cmp #$a0
0fe5: d0 ed bne L0FD4
0fe7: 20 62 27 L0FE7 jsr L2762
0fea: a6 e4 ldx $e4
0fec: 68 pla
0fed: c9 8d L0FED cmp #$8d
0fef: 60 rts
0ff0: a9 af L0FF0 lda #$af
0ff2: 60 rts
0ff3: 2c 61 c0 L0FF3 bit BUTN0
0ff6: 30 25 bmi L101D
0ff8: bd 81 02 L0FF8 lda $0281,x
0ffb: c9 a1 cmp #$a1
0ffd: 90 f1 bcc L0FF0
0fff: 20 ed fd jsr MON_COUT
1002: e8 inx
1003: bd 81 02 lda $0281,x
1006: c9 af cmp #$af
1008: d0 ee bne L0FF8
100a: f0 e1 beq L0FED
100c: a8 L100C tay
100d: a2 00 ldx #$00
100f: 86 d8 stx $d8
1011: bd 81 02 L1011 lda $0281,x
1014: 88 dey
1015: f0 d6 beq L0FED
1017: 20 ed fd jsr MON_COUT
101a: e8 inx
101b: d0 f4 bne L1011
101d: a9 88 L101D lda #$88
101f: e0 01 cpx #$01
1021: 90 0c bcc L102F
1023: f0 c8 beq L0FED
1025: 20 4b 10 jsr L104B
1028: bd 80 02 lda $0280,x
102b: c9 af cmp #$af
102d: d0 ee bne L101D
102f: 4c 9e 0f L102F jmp L0F9E
1032: c9 ae L1032 cmp #$ae
1034: 90 13 bcc L1049
1036: c9 c1 cmp #$c1
1038: b0 05 bcs L103F
103a: c9 ba cmp #$ba
103c: b0 0b bcs L1049
103e: 60 rts
103f: 85 e4 L103F sta $e4
1041: 29 df and #$df
1043: c9 db cmp #$db
1045: 90 03 bcc L104A
1047: a5 e4 lda $e4
1049: 38 L1049 sec
104a: 60 L104A rts
104b: 20 58 10 L104B jsr L1058
104e: a9 88 lda #$88
1050: 20 ed fd jsr MON_COUT
1053: 20 ed fd jsr MON_COUT
1056: ca dex
1057: 60 rts
1058: bd 81 02 L1058 lda $0281,x
105b: 4c ed fd jmp MON_COUT
105e: a0 00 L105E ldy #$00
1060: b1 0e lda ($0e),y
1062: aa tax
1063: ca dex
1064: c8 iny
1065: c8 L1065 iny
1066: b1 0e lda ($0e),y
1068: 20 41 2f jsr L2F41
106b: ca dex
106c: d0 f7 bne L1065
106e: 60 rts
106f: 2c 83 c0 L106F bit LCBANK2
1072: 20 4d d6 jsr LD64D
1075: 2c 82 c0 L1075 bit ROMIN_RO
1078: 60 rts
1079: 2c 83 c0 L1079 bit LCBANK2
107c: 20 c0 d8 jsr LD8C0
107f: f0 f4 beq L1075
1081: 20 e8 0d L1081 jsr L0DE8
1084: 78 L1084 sei
1085: 20 7e 09 jsr L097E
1088: b0 41 bcs L10CB
108a: ad 30 bf lda P8_DEVNUM
108d: 8d 02 be sta LBE02
1090: 8d 08 be sta LBE08
1093: a2 3a ldx #$3a
1095: a0 00 ldy #$00
1097: 84 02 sty $02
1099: a9 36 lda #$36
109b: 85 03 sta $03
109d: 98 tya
109e: 91 02 L109E sta ($02),y
10a0: c8 iny
10a1: d0 fb bne L109E
10a3: e6 03 inc $03
10a5: ca dex
10a6: d0 f6 bne L109E
10a8: 86 eb L10A8 stx $eb
10aa: 8e 06 be stx LBE05+1
10ad: a9 02 lda #$02
10af: 8d 05 be sta LBE05
10b2: ad 23 be lda LBE23
10b5: c9 0f cmp #$0f
10b7: f0 21 beq L10DA
10b9: c9 0d cmp #$0d
10bb: d0 6b bne L1128
10bd: a5 46 lda $46
10bf: 8d 0b be sta LBE0B
10c2: a5 47 lda $47
10c4: 8d 0c be sta LBE0B+1
10c7: 58 cli
10c8: 20 48 20 jsr L2048
10cb: b0 58 L10CB bcs L1125
10cd: a9 d0 lda #$d0
10cf: 20 a0 11 jsr L11A0
10d2: a5 00 lda $00
10d4: 85 ea sta $ea
10d6: a5 01 lda $01
10d8: 85 eb sta $eb
10da: 58 L10DA cli
10db: ad 05 be lda LBE05
10de: 85 06 sta $06
10e0: ad 06 be lda LBE05+1
10e3: 85 07 sta $07
10e5: a9 00 lda #$00
10e7: 8d 03 be sta LBE03
10ea: 85 00 sta $00
10ec: a9 36 lda #$36
10ee: 8d 04 be sta LBE03+1
10f1: 85 01 sta $01
10f3: 20 56 20 jsr L2056
10f6: b0 2d bcs L1125
10f8: ad 00 36 lda $3600
10fb: 0d 01 36 ora $3601
10fe: d0 2b bne L112B
1100: a0 02 L1100 ldy #$02
1102: b1 00 lda ($00),y
1104: 8d 05 be sta LBE05
1107: c8 iny
1108: b1 00 lda ($00),y
110a: 8d 06 be sta LBE05+1
110d: 0d 05 be ora LBE05
1110: f0 15 beq L1127
1112: ad 04 be lda LBE03+1
1115: 69 02 adc #$02
1117: 8d 04 be sta LBE03+1
111a: c9 70 cmp #$70
111c: b0 36 bcs L1154
111e: 85 01 sta $01
1120: 20 56 20 jsr L2056
1123: 90 db bcc L1100
1125: b0 06 L1125 bcs L112D
1127: 60 L1127 rts
1128: a9 44 L1128 lda #$44
112a: 2c bit ▼ prodos_boot+169
112b: a9 51 L112B lda #$51
112d: 58 L112D cli
112e: 48 pha
112f: 48 pha
1130: 2c 82 c0 bit ROMIN_RO
1133: 20 57 22 jsr InHZ_PrintString1
1136: cd cc c9 a0+ .zstr “MLI error: $”
1143: 68 pla
1144: 20 da fd jsr MON_PRBYTE
1147: 68 pla
1148: 2c 83 c0 bit LCBANK2
114b: 20 00 d0 jsr LD000
114e: 2c 82 c0 bit ROMIN_RO
1151: 4c c0 11 jmp L11C0
1154: 20 57 22 L1154 jsr InHZ_PrintString1
1157: d4 e8 e9 f3+ .zstr “This”,$80,“ is too large.”
116b: 90 53 bcc L11C0
116d: 20 8e fd T116D jsr MON_CROUT
1170: 2c 83 c0 bit LCBANK2
1173: 20 d7 d4 jsr LD4D7
1176: 2c 82 c0 bit ROMIN_RO
1179: 20 e1 2d jsr L2DE1
117c: 20 a6 15 jsr L15A6
117f: 20 00 bf jsr P8_MLI
1182: 65 .dd1 P8_QUIT
1183: 15 be .dd2 LBE15
1185: 00 .dd1 $00
1186: a9 00 ResetHandler lda #$00
1188: 8d 94 bf sta P8_LEVEL
118b: 8d 5e be sta LBE5E
118e: 2c 82 c0 bit ROMIN_RO
1191: 20 00 bf jsr P8_MLI
1194: cc .dd1 P8_CLOSE
1195: 5d be .dd2 LBE5D
1197: ad 00 be lda LBE00
119a: 8d 30 bf sta P8_DEVNUM
119d: 4c 00 08 jmp MainEntry
11a0: 2c 83 c0 L11A0 bit LCBANK2
11a3: 20 0b d8 jsr LD80B
11a6: 2c 82 c0 bit ROMIN_RO
11a9: 60 rts
11aa: 2c 82 c0 L11AA bit ROMIN_RO
11ad: 20 57 22 jsr InHZ_PrintString1
11b0: c2 e1 e4 80+ .zstr “Bad”,$80,“ structure.”
11c0: 20 c6 11 L11C0 jsr L11C6
11c3: 4c 15 08 jmp T0815
11c6: 20 8c 22 L11C6 jsr InHZ_PrintString3
11c9: 8d 8d d0 f2+ .zstr $8d,$8d,“Press RETURN.”
11d9: 20 96 17 L11D9 jsr L1796
11dc: f0 04 beq L11E2
11de: c5 95 cmp $95
11e0: d0 f7 bne L11D9
11e2: 60 L11E2 rts
11e3: a5 00 L11E3 lda $00
11e5: 18 clc
11e6: 69 27 adc #$27
11e8: 85 00 sta $00
11ea: 90 02 bcc L11EE
11ec: e6 01 inc $01
11ee: c9 ff L11EE cmp #$ff
11f0: 60 rts
11f1: 20 11 1a L11F1 jsr L1A11
11f4: 20 22 1a jsr L1A22
11f7: a5 d5 lda $d5
11f9: 48 pha
11fa: 84 d5 sty $d5
11fc: ad 80 bc lda $bc80
11ff: 48 pha
1200: ad c0 bc lda $bcc0
1203: 48 pha
1204: a5 04 L1204 lda $04
1206: c6 04 dec $04
1208: a8 tay
1209: f0 4c beq L1257
120b: 20 64 2e jsr L2E64
120e: a0 27 ldy #$27
1210: b1 02 lda ($02),y
1212: 10 f0 bpl L1204
1214: a0 10 ldy #$10
1216: b1 02 lda ($02),y
1218: c9 0f cmp #$0f
121a: d0 e8 bne L1204
121c: a0 00 ldy #$00
121e: b1 02 lda ($02),y
1220: 29 0f and #$0f
1222: a8 tay
1223: 49 ff eor #$ff
1225: 65 d2 adc $d2
1227: b0 08 bcs L1231
1229: a6 d3 ldx $d3
122b: e0 31 cpx #$31
122d: 90 d5 bcc L1204
122f: c6 d3 dec $d3
1231: 85 d2 L1231 sta $d2
1233: e6 d5 inc $d5
1235: a9 80 lda #$80
1237: 11 02 L1237 ora ($02),y
1239: 88 dey
123a: 91 d2 sta ($d2),y
123c: c8 iny
123d: a9 00 lda #$00
123f: 88 dey
1240: d0 f5 bne L1237
1242: f0 c0 beq L1204
1244: 68 L1244 pla
1245: 8d c0 bc sta $bcc0
1248: 68 pla
1249: 8d 80 bc sta $bc80
124c: 68 pla
124d: 85 d5 sta $d5
124f: 24 f3 bit $f3
1251: 10 03 bpl L1256
1253: 4c 8f 0d jmp L0D8F
1256: 60 L1256 rts
1257: c6 d5 L1257 dec $d5
1259: 30 e9 bmi L1244
125b: 24 f3 bit $f3
125d: 30 14 bmi L1273
125f: 24 ed bit $ed
1261: 10 32 bpl L1295
1263: 24 f0 bit $f0
1265: 30 20 bmi L1287
1267: 20 8c 22 jsr InHZ_PrintString3
126a: 8c 8d d4 f9+ .zstr $8c,$8d,“Type”
1271: 90 2c bcc L129F
1273: 24 e9 L1273 bit $e9
1275: 30 49 bmi L12C0
1277: 20 8c 22 jsr InHZ_PrintString3
127a: 8d 8d c3 ef+ .zstr $8d,$8d,“Compare”,$80
1285: 90 29 bcc L12B0
1287: 20 8c 22 L1287 jsr InHZ_PrintString3
128a: 8c 8d d6 e5+ .zstr $8c,$8d,“Verify”
1293: 90 0a bcc L129F
1295: 20 8c 22 L1295 jsr InHZ_PrintString3
1298: 8c 8d c3 ef+ .zstr $8c,$8d,“Copy”
129f: 20 8c 22 L129F jsr InHZ_PrintString3
12a2: a0 e1 ec ec+ .zstr “ all files in”
12b0: 20 2b 2f L12B0 jsr L2F2B
12b3: ae 80 bc ldx $bc80
12b6: c8 L12B6 iny
12b7: b9 80 bc lda $bc80,y
12ba: 20 41 2f jsr L2F41
12bd: ca dex
12be: d0 f6 bne L12B6
12c0: a0 00 L12C0 ldy #$00
12c2: b1 d2 L12C2 lda ($d2),y
12c4: 08 php
12c5: 29 7f and #$7f
12c7: c8 iny
12c8: 99 40 02 sta $0240,y
12cb: 24 e9 bit $e9
12cd: 10 04 bpl L12D3
12cf: 24 f3 bit $f3
12d1: 30 03 bmi L12D6
12d3: 20 41 2f L12D3 jsr L2F41
12d6: 28 L12D6 plp
12d7: 10 e9 bpl L12C2
12d9: 8c 40 02 sty $0240
12dc: 98 tya
12dd: 18 clc
12de: 65 d2 adc $d2
12e0: 90 02 bcc L12E4
12e2: e6 d3 inc $d3
12e4: 85 d2 L12E4 sta $d2
12e6: 24 e9 bit $e9
12e8: 30 0e bmi L12F8
12ea: a5 37 lda MON_CSWH
12ec: c9 c3 cmp #$c3
12ee: d0 08 bne L12F8
12f0: 20 95 0d jsr L0D95
12f3: b0 03 bcs L12F8
12f5: 4c 57 12 jmp L1257
12f8: 46 d4 L12F8 lsr $d4
12fa: ad 80 bc lda $bc80
12fd: 48 pha
12fe: 38 sec
12ff: 6d 40 02 adc $0240
1302: 8d 80 bc sta $bc80
1305: aa tax
1306: ac 40 02 ldy $0240
1309: c8 iny
130a: a9 2f lda #$2f
130c: 99 40 02 sta $0240,y
130f: b9 40 02 L130F lda $0240,y
1312: 9d 80 bc sta $bc80,x
1315: ca dex
1316: 88 dey
1317: d0 f6 bne L130F
1319: ad c0 bc lda $bcc0
131c: 48 pha
131d: 38 sec
131e: 6d 40 02 adc $0240
1321: 8d c0 bc sta $bcc0
1324: aa tax
1325: ac 40 02 ldy $0240
1328: c8 iny
1329: b9 40 02 L1329 lda $0240,y
132c: 9d c0 bc sta $bcc0,x
132f: ca dex
1330: 88 dey
1331: d0 f6 bne L1329
1333: a9 80 lda #$80
1335: 85 0e sta $0e
1337: 8d 1d be sta LBE1D
133a: 20 6f 10 jsr L106F
133d: 20 84 10 jsr L1084
1340: 20 5d 1c jsr L1C5D
1343: 24 ed bit $ed
1345: 30 06 bmi L134D
1347: a5 03 lda $03
1349: c9 90 cmp #$90
134b: b0 33 bcs L1380
134d: ad 00 70 L134D lda $7000
1350: f0 23 beq L1375
1352: 24 f3 bit $f3
1354: 30 0c bmi L1362
1356: 20 6a 1b jsr L1B6A
1359: d0 03 bne L135E
135b: 20 7a 1c jsr L1C7A
135e: 24 ed L135E bit $ed
1360: 30 0d bmi L136F
1362: a9 c0 L1362 lda #$c0
1364: 85 0e sta $0e
1366: 8d 1d be sta LBE1D
1369: 20 84 10 jsr L1084
136c: 20 4e 1c jsr L1C4E
136f: 20 8b 13 L136F jsr L138B
1372: 2c 82 c0 bit ROMIN_RO
1375: 68 L1375 pla
1376: 8d c0 bc sta $bcc0
1379: 68 pla
137a: 8d 80 bc sta $bc80
137d: 4c 57 12 jmp L1257
1380: 4c 54 11 L1380 jmp L1154
1383: a9 00 L1383 lda #$00
1385: 85 d2 sta $d2
1387: a9 36 lda #$36
1389: 85 d3 sta $d3
138b: 24 f3 L138B bit $f3
138d: 30 0c bmi L139B
138f: 24 ef bit $ef
1391: 50 0e bvc L13A1
1393: 20 26 2e jsr L2E26
1396: d0 09 bne L13A1
1398: 46 d4 lsr $d4
139a: 60 rts
139b: 20 8f 0d L139B jsr L0D8F
139e: 4c 59 48 jmp L4859
13a1: 20 22 1a L13A1 jsr L1A22
13a4: ae c0 bc ldx $bcc0
13a7: bd c0 bc L13A7 lda $bcc0,x
13aa: 9d 80 bd sta $bd80,x
13ad: ca dex
13ae: 10 f7 bpl L13A7
13b0: 86 04 stx $04
13b2: e6 04 L13B2 inc $04
13b4: 20 64 2e jsr L2E64
13b7: b1 02 lda ($02),y
13b9: f0 5d beq L1418
13bb: a0 27 ldy #$27
13bd: b1 02 lda ($02),y
13bf: 10 f1 bpl L13B2
13c1: 20 6d 15 jsr L156D
13c4: 24 ed bit $ed
13c6: 30 4d bmi L1415
13c8: a0 00 ldy #$00
13ca: b1 02 lda ($02),y
13cc: 29 0f and #$0f
13ce: a8 tay
13cf: b1 02 L13CF lda ($02),y
13d1: 99 00 bd sta LBD00,y
13d4: 88 dey
13d5: 10 f8 bpl L13CF
13d7: 24 d9 bit $d9
13d9: 10 03 bpl L13DE
13db: 20 03 15 jsr L1503
13de: ae c0 bc L13DE ldx $bcc0
13e1: a0 00 ldy #$00
13e3: b1 02 lda ($02),y
13e5: 29 0f and #$0f
13e7: 18 clc
13e8: 6d c0 bc adc $bcc0
13eb: 8d 80 bd sta $bd80
13ee: c8 L13EE iny
13ef: b1 02 lda ($02),y
13f1: e8 inx
13f2: 9d 80 bd sta $bd80,x
13f5: ec 80 bd cpx $bd80
13f8: 90 f4 bcc L13EE
13fa: a0 10 ldy #$10
13fc: b1 02 lda ($02),y
13fe: c9 0f cmp #$0f
1400: d0 05 bne L1407
1402: 20 3c 15 jsr L153C
1405: b0 ab bcs L13B2
1407: 20 3c 15 L1407 jsr L153C
140a: b0 14 bcs L1420
140c: a0 26 ldy #$26
140e: b1 02 L140E lda ($02),y
1410: 91 00 sta ($00),y
1412: 88 dey
1413: 10 f9 bpl L140E
1415: 4c c6 14 L1415 jmp L14C6
1418: 24 f4 L1418 bit $f4
141a: 10 01 bpl L141D
141c: 60 rts
141d: 4c f1 11 L141D jmp L11F1
1420: 24 f4 L1420 bit $f4
1422: 10 07 bpl L142B
1424: 20 91 47 jsr L4791
1427: 90 b5 bcc L13DE
1429: b0 6d bcs L1498
142b: 24 e9 L142B bit $e9
142d: 30 26 bmi L1455
142f: 20 87 22 jsr InHZ_PrintString2
1432: 8d 14 c6 e9+ .zstr $8d,$14,“File exists”
1440: 20 70 1a jsr L1A70
1443: b0 53 bcs L1498
1445: 50 0e bvc L1455
1447: a9 ff L1447 lda #$ff
1449: 85 d9 sta $d9
144b: 20 03 15 jsr L1503
144e: 20 7e 28 jsr L287E
1451: e6 d9 inc $d9
1453: f0 89 beq L13DE
1455: a0 10 L1455 ldy #$10
1457: b1 00 lda ($00),y
1459: 51 02 eor ($02),y
145b: f0 1c beq L1479
145d: 20 87 22 jsr InHZ_PrintString2
1460: 8d 14 d7 f2+ .zstr $8d,$14,“Wrong file type”
1472: 20 70 1a jsr L1A70
1475: b0 21 bcs L1498
1477: 70 ce bvs L1447
1479: a0 1e L1479 ldy #$1e
147b: b1 00 lda ($00),y
147d: 30 3f bmi L14BE
147f: 24 e9 bit $e9
1481: 30 19 bmi L149C
1483: 20 87 22 jsr InHZ_PrintString2
1486: 8d 14 c9 f4+ .zstr $8d,$14,“It is locked”
1495: 20 70 1a jsr L1A70
1498: b0 63 L1498 bcs L14FD
149a: 70 ab bvs L1447
149c: a9 0a L149C lda #$0a
149e: 8d 40 be sta LBE40
14a1: 20 00 bf jsr P8_MLI
14a4: c4 .dd1 P8_GET_FILE_INFO
14a5: 40 be .dd2 LBE40
14a7: b0 57 bcs L1500
14a9: ad 43 be lda LBE43
14ac: 09 c3 ora #$c3
14ae: 8d 43 be sta LBE43
14b1: a9 07 lda #$07
14b3: 8d 40 be sta LBE40
14b6: 20 00 bf jsr P8_MLI
14b9: c3 .dd1 P8_SET_FILE_INFO
14ba: 40 be .dd2 LBE40
14bc: b0 42 bcs L1500
14be: 20 00 bf L14BE jsr P8_MLI
14c1: c1 .dd1 P8_DESTROY
14c2: 76 be .dd2 LBE76
14c4: b0 3a bcs L1500
14c6: 24 f0 L14C6 bit $f0
14c8: 30 0f bmi L14D9
14ca: 46 f0 lsr $f0
14cc: 50 03 bvc L14D1
14ce: 20 a6 15 jsr L15A6
14d1: 20 c5 2e L14D1 jsr L2EC5
14d4: 2c 86 be bit LBE86
14d7: 30 0a bmi L14E3
14d9: 20 ba 2b L14D9 jsr L2BBA
14dc: 24 f0 bit $f0
14de: 30 03 bmi L14E3
14e0: 20 36 15 jsr L1536
14e3: 20 ac 15 L14E3 jsr L15AC
14e6: 24 f0 bit $f0
14e8: 30 10 bmi L14FA
14ea: ad 50 02 lda $0250
14ed: c9 0f cmp #$0f
14ef: f0 09 beq L14FA
14f1: a5 37 lda MON_CSWH
14f3: c5 bd cmp $bd
14f5: f0 03 beq L14FA
14f7: 20 c6 11 jsr L11C6
14fa: 20 c5 2e L14FA jsr L2EC5
14fd: 4c b2 13 L14FD jmp L13B2
1500: 4c 2d 11 L1500 jmp L112D
1503: a9 c0 L1503 lda #$c0
1505: 85 0e sta $0e
1507: 46 d4 lsr $d4
1509: ae c0 bc L1509 ldx $bcc0
150c: 8e 80 bd stx $bd80
150f: ca dex
1510: 86 d8 stx $d8
1512: 20 c5 2e jsr L2EC5
1515: 20 8c 22 jsr InHZ_PrintString3
1518: 8d ce e5 f7+ .zstr $8d,“New name”
1522: 88 dey
1523: 84 ec sty $ec
1525: 20 81 0e jsr L0E81
1528: 2c 83 c0 bit LCBANK2
152b: 20 a7 d9 jsr LD9A7
152e: 2c 82 c0 bit ROMIN_RO
1531: b0 d6 bcs L1509
1533: 4c c5 2e jmp L2EC5
1536: 20 8e fd L1536 jsr MON_CROUT
1539: 4c 8e fd jmp MON_CROUT
153c: a9 00 L153C lda #$00
153e: 85 14 sta $14
1540: 20 8b 2e L1540 jsr L2E8B
1543: b1 00 lda ($00),y
1545: f0 21 beq L1568
1547: 51 02 eor ($02),y
1549: 29 0f and #$0f
154b: d0 0f bne L155C
154d: b1 00 lda ($00),y
154f: 29 0f and #$0f
1551: a8 tay
1552: b1 02 L1552 lda ($02),y
1554: d1 00 cmp ($00),y
1556: d0 04 bne L155C
1558: 88 dey
1559: d0 f7 bne L1552
155b: 60 rts
155c: e6 14 L155C inc $14
155e: a5 14 lda $14
1560: c9 cc cmp #$cc
1562: d0 dc bne L1540
1564: 24 d7 bit $d7
1566: 10 02 bpl L156A
1568: 18 L1568 clc
1569: 60 rts
156a: 4c 54 11 L156A jmp L1154
156d: a5 04 L156D lda $04
156f: 85 08 sta $08
1571: 46 f5 lsr $f5
1573: 24 f5 bit $f5
1575: 70 0c bvs L1583
1577: ad 00 c0 lda KBD
157a: 10 23 bpl L159F
157c: 2c 10 c0 bit KBDSTRB
157f: c9 9b cmp #$9b
1581: d0 1c bne L159F
1583: 20 87 22 L1583 jsr InHZ_PrintString2
1586: 8d 14 c1 e2+ .zstr $8d,$14,“Abort? (Y/N)”
1595: 20 8e 1a jsr L1A8E
1598: b0 03 bcs L159D
159a: 4c 15 08 jmp T0815
159d: c6 08 L159D dec $08
159f: 24 f0 L159F bit $f0
15a1: 10 08 bpl L15AB
15a3: 4c 7e 28 jmp L287E
15a6: a9 8c L15A6 lda #$8c
15a8: 20 ed fd jsr MON_COUT
15ab: 60 L15AB rts
15ac: ba L15AC tsx
15ad: 86 ee stx $ee
15af: a0 26 ldy #$26
15b1: b1 02 L15B1 lda ($02),y
15b3: 99 40 02 sta $0240,y
15b6: 88 dey
15b7: 10 f8 bpl L15B1
15b9: 0a asl A
15ba: 0a asl A
15bb: 85 1c sta $1c
15bd: a9 07 lda #$07
15bf: 8d 40 be sta LBE40
15c2: a0 03 ldy #$03
15c4: b9 58 02 L15C4 lda $0258,y
15c7: 99 6f be sta LBE6F,y
15ca: b9 61 02 lda $0261,y
15cd: 99 4a be sta LBE4A,y
15d0: 88 dey
15d1: 10 f1 bpl L15C4
15d3: ad 5e 02 lda $025e
15d6: 8d 43 be sta LBE43
15d9: ad 50 02 lda $0250
15dc: 8d 44 be sta LBE44
15df: 8d 6b be sta LBE6B
15e2: a2 01 ldx #$01
15e4: c9 0f cmp #$0f
15e6: d0 07 bne L15EF
15e8: 24 ed bit $ed
15ea: 10 01 bpl L15ED
15ec: 60 rts
15ed: a2 0d L15ED ldx #$0d
15ef: 8e 6e be L15EF stx LBE6E
15f2: ad 5f 02 lda $025f
15f5: 8d 45 be sta LBE45
15f8: ad 60 02 lda $0260
15fb: 8d 46 be sta LBE45+1
15fe: a5 15 lda $15
1600: 8d 02 be sta LBE02
1603: 8d 08 be sta LBE08
1606: ad 51 02 lda $0251
1609: 8d 0b be sta LBE0B
160c: ad 52 02 lda $0252
160f: 8d 0c be sta LBE0B+1
1612: 24 ed bit $ed
1614: 30 3f bmi L1655
1616: 78 sei
1617: a2 03 ldx #$03
1619: bd 90 bf L1619 lda P8_DATELO,x
161c: 95 18 sta $18,x
161e: bd 58 02 lda $0258,x
1621: 9d 90 bf sta P8_DATELO,x
1624: ca dex
1625: 10 f2 bpl L1619
1627: ac 06 bf ldy P8_DATETIME
162a: a9 60 lda #$60
162c: 8d 06 bf sta P8_DATETIME
162f: 20 00 bf jsr P8_MLI
1632: c0 .dd1 P8_CREATE
1633: 67 be .dd2 LBE67
1635: 8c 06 bf sty P8_DATETIME
1638: a8 tay
1639: a2 03 ldx #$03
163b: b5 18 L163B lda $18,x
163d: 9d 90 bf sta P8_DATELO,x
1640: ca dex
1641: 10 f8 bpl L163B
1643: 98 tya
1644: 58 cli
1645: b0 2d bcs L1674
1647: 24 f4 bit $f4
1649: 10 03 bpl L164E
164b: 4c 27 46 jmp L4627
164e: ad 6b be L164E lda LBE6B
1651: c9 0f cmp #$0f
1653: f0 66 beq L16BB
1655: a9 00 L1655 lda #$00
1657: 85 0b sta $0b
1659: 85 18 sta $18
165b: 85 19 sta $19
165d: 85 1a sta $1a
165f: 24 ed bit $ed
1661: 30 1f bmi L1682
1663: 8d 54 be sta LBE54
1666: 8d 63 be sta LBE63
1669: a9 02 lda #$02
166b: 8d 64 be sta LBE63+1
166e: 20 00 bf jsr P8_MLI
1671: c8 .dd1 P8_OPEN
1672: 57 be .dd2 LBE57
1674: b0 60 L1674 bcs L16D6
1676: ad 5c be lda LBE5C
1679: 8d 53 be sta LBE53
167c: 8d 5e be sta LBE5E
167f: 8d 60 be sta LBE60
1682: 20 48 20 L1682 jsr L2048
1685: b0 3d bcs L16C4
1687: 20 d9 16 L1687 jsr L16D9
168a: 24 f0 bit $f0
168c: 30 03 bmi L1691
168e: 20 79 10 jsr L1079
1691: 24 ed L1691 bit $ed
1693: 30 03 bmi L1698
1695: 20 b1 17 jsr L17B1
1698: 24 0b L1698 bit $0b
169a: 10 eb bpl L1687
169c: 24 ed bit $ed
169e: 30 23 bmi L16C3
16a0: a0 02 L16A0 ldy #$02
16a2: b9 55 02 L16A2 lda $0255,y
16a5: 99 54 be sta LBE54,y
16a8: 88 dey
16a9: 10 f7 bpl L16A2
16ab: 20 00 bf jsr P8_MLI
16ae: d0 .dd1 P8_SET_EOF
16af: 52 be .dd2 LBE52
16b1: b0 11 bcs L16C4
16b3: 20 00 bf jsr P8_MLI
16b6: cc .dd1 P8_CLOSE
16b7: 5d be .dd2 LBE5D
16b9: b0 09 bcs L16C4
16bb: 20 00 bf L16BB jsr P8_MLI
16be: c3 .dd1 P8_SET_FILE_INFO
16bf: 40 be .dd2 LBE40
16c1: b0 13 bcs L16D6
16c3: 60 L16C3 rts
16c4: 24 ed L16C4 bit $ed
16c6: 30 0e bmi L16D6
16c8: 48 pha
16c9: 20 00 bf jsr P8_MLI
16cc: cc .dd1 P8_CLOSE
16cd: 5d be .dd2 LBE5D
16cf: 20 00 bf jsr P8_MLI
16d2: c1 .dd1 P8_DESTROY
16d3: 76 be .dd2 LBE76
16d5: 68 pla
16d6: 4c 2d 11 L16D6 jmp L112D
16d9: 24 1c L16D9 bit $1c
16db: 10 43 bpl L1720
16dd: 50 45 bvc L1724
16df: a9 b2 lda #$b2
16e1: 85 1b sta $1b
16e3: a9 36 lda #$36
16e5: 8d 04 be sta LBE03+1
16e8: a4 18 ldy $18
16ea: d0 27 bne L1713
16ec: a4 19 L16EC ldy $19
16ee: ad 04 be lda LBE03+1
16f1: c9 70 cmp #$70
16f3: b0 2e bcs L1723
16f5: b9 00 b0 lda $b000,y
16f8: 8d 05 be sta LBE05
16fb: b9 00 b1 lda $b100,y
16fe: 8d 06 be sta LBE05+1
1701: 0d 05 be ora LBE05
1704: f0 16 beq L171C
1706: ad 04 be lda LBE03+1
1709: 48 pha
170a: a9 b2 lda #$b2
170c: 8d 04 be sta LBE03+1
170f: 20 64 17 jsr L1764
1712: 68 pla
1713: 20 2a 17 L1713 jsr L172A
1716: 46 0b lsr $0b
1718: 24 0b bit $0b
171a: 50 07 bvc L1723
171c: e6 19 L171C inc $19
171e: d0 cc bne L16EC
1720: 38 L1720 sec
1721: 66 0b ror $0b
1723: 60 L1723 rts
1724: a9 b0 L1724 lda #$b0
1726: 85 1b sta $1b
1728: a9 36 lda #$36
172a: 8d 04 be L172A sta LBE03+1
172d: 38 L172D sec
172e: e9 36 sbc #$36
1730: aa tax
1731: a4 18 ldy $18
1733: b1 1a lda ($1a),y
1735: 8d 05 be sta LBE05
1738: e6 1b inc $1b
173a: b1 1a lda ($1a),y
173c: c6 1b dec $1b
173e: 8d 06 be sta LBE05+1
1741: 0d 05 be ora LBE05
1744: f0 12 beq L1758
1746: 98 tya
1747: 9d 00 bc sta $bc00,x
174a: a5 19 lda $19
174c: 9d 01 bc sta $bc01,x
174f: 20 64 17 jsr L1764
1752: ee 04 be inc LBE03+1
1755: ee 04 be inc LBE03+1
1758: e6 18 L1758 inc $18
175a: f0 c4 beq L1720
175c: ad 04 be lda LBE03+1
175f: c9 70 cmp #$70
1761: 90 ca bcc L172D
1763: 60 rts
1764: 20 56 20 L1764 jsr L2056
1767: b0 01 bcs L176A
1769: 60 rts
176a: 24 ed L176A bit $ed
176c: 10 1d bpl L178B
176e: a5 b2 lda $b2
1770: 20 bc 2e jsr L2EBC
1773: 2c 80 c0 bit LCBANK2_RW
1776: 20 af dd jsr LDDAF
1779: 2c 82 c0 bit ROMIN_RO
177c: 20 96 17 L177C jsr L1796
177f: f0 07 beq L1788
1781: c9 ff cmp #$ff
1783: d0 f7 bne L177C
1785: a6 ee ldx $ee
1787: 9a txs
1788: 4c c5 2e L1788 jmp L2EC5
178b: 4c c4 16 L178B jmp L16C4
178e: a9 83 L178E lda #$83
1790: 85 98 sta $98
1792: a9 7d lda #$7d
1794: d0 09 bne L179F
1796: 2c 10 c0 L1796 bit KBDSTRB
1799: a9 98 L1799 lda #$98
179b: 85 98 sta $98
179d: a9 68 lda #$68
179f: 85 97 L179F sta $97
17a1: 2c 83 c0 bit LCBANK2
17a4: 20 ea d4 jsr LD4EA
17a7: 2c 82 c0 bit ROMIN_RO
17aa: c9 9b L17AA cmp #$9b
17ac: f0 62 beq L1810
17ae: c9 8d cmp #$8d
17b0: 60 rts
17b1: 24 1c L17B1 bit $1c
17b3: 10 42 bpl L17F7
17b5: a9 36 lda #$36
17b7: 8d 62 be sta LBE61+1
17ba: cd 04 be cmp LBE03+1
17bd: f0 37 beq L17F6
17bf: 38 L17BF sec
17c0: e9 36 sbc #$36
17c2: aa tax
17c3: bd 00 bc lda $bc00,x
17c6: 0a asl A
17c7: 8d 55 be sta LBE54+1
17ca: bd 01 bc lda $bc01,x
17cd: 2a rol A
17ce: 8d 56 be sta LBE54+2
17d1: 20 00 bf jsr P8_MLI
17d4: d0 .dd1 P8_SET_EOF
17d5: 52 be .dd2 LBE52
17d7: b0 b2 bcs L178B
17d9: 20 00 bf jsr P8_MLI
17dc: ce .dd1 P8_SET_MARK
17dd: 52 be .dd2 LBE52
17df: b0 aa bcs L178B
17e1: 20 00 bf jsr P8_MLI
17e4: cb .dd1 P8_WRITE
17e5: 5f be .dd2 LBE5F
17e7: b0 a2 bcs L178B
17e9: ad 62 be lda LBE61+1
17ec: 69 02 adc #$02
17ee: 8d 62 be sta LBE61+1
17f1: cd 04 be cmp LBE03+1
17f4: 90 c9 bcc L17BF
17f6: 60 L17F6 rts
17f7: a9 b0 L17F7 lda #$b0
17f9: 8d 62 be sta LBE61+1
17fc: 20 00 bf jsr P8_MLI
17ff: cb .dd1 P8_WRITE
1800: 5f be .dd2 LBE5F
1802: b0 87 bcs L178B
1804: 60 rts
1805: 2c 82 c0 L1805 bit ROMIN_RO
1808: 20 00 bf jsr P8_MLI
180b: c5 .dd1 P8_ONLINE
180c: 0d be .dd2 LBE0D
180e: 90 24 bcc L1834
1810: 4c 15 08 L1810 jmp T0815
1813: 2c 82 c0 L1813 bit ROMIN_RO
1816: 46 32 lsr MON_INVFLAG
1818: a5 f1 lda $f1
181a: 20 ed fd jsr MON_COUT
181d: 20 14 2f jsr L2F14
1820: a9 88 lda #$88
1822: 20 ed fd jsr MON_COUT
1825: ad 00 c0 L1825 lda KBD
1828: 10 fb bpl L1825
182a: 2c 10 c0 bit KBDSTRB
182d: 20 aa 17 jsr L17AA
1830: d0 02 bne L1834
1832: a5 f1 lda $f1
1834: 2c 83 c0 L1834 bit LCBANK2
1837: 60 rts
1838: a0 11 L1838 ldy #$11
183a: b1 02 lda ($02),y
183c: 8d 0b be sta LBE0B
183f: c8 iny
1840: b1 02 lda ($02),y
1842: 8d 0c be sta LBE0B+1
1845: ee 25 36 inc $3625
1848: a0 00 ldy #$00
184a: b1 02 lda ($02),y
184c: 29 f0 and #$f0
184e: c9 30 cmp #$30
1850: f0 68 beq L18BA
1852: c9 20 cmp #$20
1854: f0 32 beq L1888
1856: ae 0b be L1856 ldx LBE0B
1859: ad 0c be lda LBE0B+1
185c: 86 00 L185C stx $00
185e: a8 tay
185f: e4 db cpx $db
1861: e5 dc sbc $dc
1863: 98 tya
1864: b0 4f bcs L18B5
1866: a0 03 ldy #$03
1868: 4a L1868 lsr A
1869: 66 00 ror $00
186b: 88 dey
186c: d0 fa bne L1868
186e: 18 clc
186f: 69 90 adc #$90
1871: 85 01 sta $01
1873: 8a txa
1874: 29 07 and #$07
1876: aa tax
1877: bd 85 2d lda L2D85,x
187a: 49 ff eor #$ff
187c: 31 00 and ($00),y
187e: f0 35 beq L18B5
1880: b1 00 lda ($00),y
1882: 3d 85 2d and L2D85,x
1885: 91 00 sta ($00),y
1887: 60 rts
1888: 20 48 20 L1888 jsr L2048
188b: b0 2a bcs L18B7
188d: 20 56 18 jsr L1856
1890: 84 93 L1890 sty $93
1892: be 00 b1 ldx $b100,y
1895: b9 00 b0 lda $b000,y
1898: d0 04 bne L189E
189a: e0 00 cpx #$00
189c: f0 0c beq L18AA
189e: 99 00 b1 L189E sta $b100,y
18a1: 48 pha
18a2: 8a txa
18a3: 99 00 b0 sta $b000,y
18a6: 68 pla
18a7: 20 5c 18 L18A7 jsr L185C
18aa: a4 93 L18AA ldy $93
18ac: c8 iny
18ad: d0 e1 bne L1890
18af: 20 3a 20 jsr L203A
18b2: b0 03 bcs L18B7
18b4: 60 rts
18b5: a9 5a L18B5 lda #$5a
18b7: 4c 2d 11 L18B7 jmp L112D
18ba: 20 56 18 L18BA jsr L1856
18bd: ad 0b be lda LBE0B
18c0: 8d 05 be sta LBE05
18c3: ad 0c be lda LBE0B+1
18c6: 8d 06 be sta LBE05+1
18c9: a9 b2 lda #$b2
18cb: 8d 04 be sta LBE03+1
18ce: 20 56 20 jsr L2056
18d1: b0 e4 bcs L18B7
18d3: 84 92 L18D3 sty $92
18d5: be 00 b3 ldx $b300,y
18d8: b9 00 b2 lda $b200,y
18db: 8d 0c be sta LBE0B+1
18de: 8e 0b be stx LBE0B
18e1: 99 00 b3 sta $b300,y
18e4: d0 03 bne L18E9
18e6: 8a txa
18e7: f0 07 beq L18F0
18e9: 8a L18E9 txa
18ea: 99 00 b2 sta $b200,y
18ed: 20 88 18 jsr L1888
18f0: a4 92 L18F0 ldy $92
18f2: c8 iny
18f3: d0 de bne L18D3
18f5: 20 00 bf jsr P8_MLI
18f8: 81 .dd1 P8_WRITE_BLOCK
18f9: 01 be .dd2 LBE01
18fb: b0 ba L18FB bcs L18B7
18fd: 60 rts
18fe: a5 da L18FE lda $da
1900: f0 54 beq L1956
1902: a9 81 lda #$81
1904: 8d 45 19 L1904 sta L1945
1907: a9 02 lda #$02
1909: cd ff bf cmp P8_KVERSION
190c: b0 a7 bcs L18B5
190e: 8d 0b be sta LBE0B
1911: a9 00 lda #$00
1913: 8d 0c be sta LBE0B+1
1916: 20 48 20 jsr L2048
1919: a9 90 lda #$90
191b: 8d 04 be sta LBE03+1
191e: ad 27 b0 lda $b027
1921: 8d 05 be sta LBE05
1924: 30 8f bmi L18B5
1926: ad 28 b0 lda $b028
1929: 8d 06 be sta LBE05+1
192c: d0 87 bne L18B5
192e: ac 2a b0 ldy $b02a
1931: 84 dc sty $dc
1933: ad 29 b0 lda $b029
1936: 85 db sta $db
1938: d0 01 bne L193B
193a: 88 dey
193b: 98 L193B tya
193c: 4a lsr A
193d: 4a lsr A
193e: 4a lsr A
193f: 4a lsr A
1940: aa tax
1941: e8 inx
1942: 20 00 bf L1942 jsr P8_MLI
1945: 80 L1945 .dd1 P8_READ_BLOCK
1946: 01 be .dd2 LBE01
1948: b0 b1 bcs L18FB
194a: ee 05 be inc LBE05
194d: ee 04 be inc LBE03+1
1950: ee 04 be inc LBE03+1
1953: ca dex
1954: d0 ec bne L1942
1956: 60 L1956 rts
1957: 20 11 1a L1957 jsr L1A11
195a: ae 80 bc ldx $bc80
195d: bd 80 bc L195D lda $bc80,x
1960: 9d 40 bd sta $bd40,x
1963: ca dex
1964: 10 f7 bpl L195D
1966: a5 da lda $da
1968: f0 05 beq L196F
196a: a9 80 lda #$80
196c: 20 04 19 jsr L1904
196f: 85 04 L196F sta $04
1971: 20 64 2e L1971 jsr L2E64
1974: b1 02 lda ($02),y
1976: f0 86 beq L18FE
1978: a0 27 ldy #$27
197a: 38 sec
197b: b1 02 lda ($02),y
197d: 10 40 bpl L19BF
197f: 20 6d 15 jsr L156D
1982: a4 da ldy $da
1984: f0 06 beq L198C
1986: 20 38 18 jsr L1838
1989: 4c 08 1a jmp L1A08
198c: ae 80 bc L198C ldx $bc80
198f: b1 02 lda ($02),y
1991: 29 0f and #$0f
1993: 18 clc
1994: 6d 80 bc adc $bc80
1997: 8d 40 bd sta $bd40
199a: c8 L199A iny
199b: b1 02 lda ($02),y
199d: e8 inx
199e: 9d 40 bd sta $bd40,x
19a1: ec 40 bd cpx $bd40
19a4: 90 f4 bcc L199A
19a6: a9 0a lda #$0a
19a8: 8d 2e be sta LBE2E
19ab: 24 13 bit $13
19ad: 50 12 bvc L19C1
19af: a0 1e ldy #$1e
19b1: b1 02 lda ($02),y
19b3: 30 3d bmi L19F2
19b5: 24 e9 bit $e9
19b7: 30 08 bmi L19C1
19b9: 20 33 1a jsr L1A33
19bc: 20 8e 1a jsr L1A8E
19bf: b0 47 L19BF bcs L1A08
19c1: 20 00 bf L19C1 jsr P8_MLI
19c4: c4 .dd1 P8_GET_FILE_INFO
19c5: 2e be .dd2 LBE2E
19c7: b0 45 bcs L1A0E
19c9: ad 31 be lda LBE31
19cc: 29 3d and #$3d
19ce: 24 13 bit $13
19d0: 30 02 bmi L19D4
19d2: 09 c3 ora #$c3
19d4: 8d 31 be L19D4 sta LBE31
19d7: a9 07 lda #$07
19d9: 8d 2e be sta LBE2E
19dc: 20 00 bf jsr P8_MLI
19df: c3 .dd1 P8_SET_FILE_INFO
19e0: 2e be .dd2 LBE2E
19e2: b0 2a bcs L1A0E
19e4: a9 01 lda #$01
19e6: 24 13 bit $13
19e8: 70 08 bvs L19F2
19ea: f0 1c beq L1A08
19ec: 20 b6 0a jsr L0AB6
19ef: 4c 08 1a jmp L1A08
19f2: 20 00 bf L19F2 jsr P8_MLI
19f5: c1 .dd1 P8_DESTROY
19f6: 73 be .dd2 LBE73
19f8: 90 0e bcc L1A08
19fa: aa tax
19fb: a0 10 ldy #$10
19fd: b1 02 lda ($02),y
19ff: c9 0f cmp #$0f
1a01: d0 0a bne L1A0D
1a03: e6 08 inc $08
1a05: 20 7e 28 jsr L287E
1a08: e6 04 L1A08 inc $04
1a0a: 4c 71 19 jmp L1971
1a0d: 8a L1A0D txa
1a0e: 4c 2d 11 L1A0E jmp L112D
1a11: ae 80 bc L1A11 ldx $bc80
1a14: a9 2f lda #$2f
1a16: dd 80 bc cmp $bc80,x
1a19: f0 06 beq L1A21
1a1b: 9d 81 bc sta $bc81,x
1a1e: ee 80 bc inc $bc80
1a21: 60 L1A21 rts
1a22: ae c0 bc L1A22 ldx $bcc0
1a25: a9 2f lda #$2f
1a27: dd c0 bc cmp $bcc0,x
1a2a: f0 06 beq L1A32
1a2c: 9d c1 bc sta $bcc1,x
1a2f: ee c0 bc inc $bcc0
1a32: 60 L1A32 rts
1a33: 20 87 22 L1A33 jsr InHZ_PrintString2
1a36: 8d 14 d4 e8+ .zstr $8d,$14,“This file is locked. Do it”
1a54: 20 5c 1a jsr L1A5C
1a57: a9 99 L1A57 lda #$99
1a59: 4c ed fd jmp MON_COUT
1a5c: 20 8c 22 L1A5C jsr InHZ_PrintString3
1a5f: a0 e1 ee f9+ .zstr “ anyway? (Y/N)”,$87
1a6f: 60 rts
1a70: 20 8c 22 L1A70 jsr InHZ_PrintString3
1a73: a0 ad a0 f2+ .zstr “ - rename (R) or copy”
1a89: 20 5c 1a jsr L1A5C
1a8c: c6 dd dec $dd
1a8e: 20 6c 2f L1A8E jsr L2F6C
1a91: 20 ec 1a jsr L1AEC
1a94: 20 f1 1a jsr L1AF1
1a97: 10 1d bpl L1AB6
1a99: 2c 10 c0 bit KBDSTRB
1a9c: c9 ce cmp #$ce
1a9e: f0 3f beq L1ADF
1aa0: c9 d9 L1AA0 cmp #$d9
1aa2: f0 08 beq L1AAC
1aa4: 24 dd bit $dd
1aa6: 10 0e bpl L1AB6
1aa8: c9 d2 cmp #$d2
1aaa: d0 0a bne L1AB6
1aac: c6 08 L1AAC dec $08
1aae: 48 pha
1aaf: 20 7e 28 jsr L287E
1ab2: 68 pla
1ab3: 4c ce 1a jmp L1ACE
1ab6: 20 6c 2f L1AB6 jsr L2F6C
1ab9: c6 08 dec $08
1abb: 20 7e 28 jsr L287E
1abe: 20 f1 1a jsr L1AF1
1ac1: 10 cb bpl L1A8E
1ac3: 2c 10 c0 bit KBDSTRB
1ac6: c9 ce cmp #$ce
1ac8: f0 1c beq L1AE6
1aca: 24 dd bit $dd
1acc: 10 0c bpl L1ADA
1ace: c9 d2 L1ACE cmp #$d2
1ad0: d0 08 bne L1ADA
1ad2: a9 00 lda #$00
1ad4: 85 dd sta $dd
1ad6: 69 7f adc #$7f
1ad8: 70 06 bvs L1AE0
1ada: c9 d9 L1ADA cmp #$d9
1adc: d0 b0 bne L1A8E
1ade: 18 clc
1adf: b8 L1ADF clv
1ae0: 08 L1AE0 php
1ae1: 20 c5 2e jsr L2EC5
1ae4: 28 plp
1ae5: 60 rts
1ae6: 20 ec 1a L1AE6 jsr L1AEC
1ae9: 38 sec
1aea: b0 f3 bcs L1ADF
1aec: e6 08 L1AEC inc $08
1aee: 4c 7e 28 jmp L287E
1af1: ad 00 c0 L1AF1 lda KBD
1af4: c9 9b cmp #$9b
1af6: f0 03 beq L1AFB
1af8: 29 df and #$df
1afa: 60 rts
1afb: 2c 10 c0 L1AFB bit KBDSTRB
1afe: 4c 15 08 jmp T0815
1b01: ad 00 c0 L1B01 lda KBD
1b04: 10 fb bpl L1B01
1b06: 29 df and #$df
1b08: 60 rts
1b09: a5 02 L1B09 lda $02
1b0b: 18 clc
1b0c: 69 28 adc #$28
1b0e: 85 02 sta $02
1b10: 90 02 bcc L1B14
1b12: e6 03 inc $03
1b14: a5 03 L1B14 lda $03
1b16: 60 rts
1b17: 20 8c 22 L1B17 jsr InHZ_PrintString3
1b1a: 8d 8d 10 d3+ .zstr $8d,$8d,$10,“Send output to printer”
1b34: 4c 95 0d jmp L0D95
1b37: 20 a6 15 L1B37 jsr L15A6
1b3a: 20 17 1b jsr L1B17
1b3d: ad 86 be lda LBE86
1b40: 2c 61 c0 bit BUTN0
1b43: 10 02 bpl L1B47
1b45: 29 f0 and #$f0
1b47: 2c 62 c0 L1B47 bit BUTN1
1b4a: 10 02 bpl L1B4E
1b4c: 29 df and #$df
1b4e: 85 f7 L1B4E sta $f7
1b50: 90 15 bcc L1B67
1b52: ad 0c c3 L1B52 lda $c30c
1b55: c9 87 cmp #$87
1b57: d0 08 bne L1B61
1b59: a9 95 lda #$95
1b5b: 20 ed fd jsr MON_COUT
1b5e: 20 2f fb jsr MON_INIT
1b61: ad 83 be L1B61 lda LBE83
1b64: 20 95 fe jsr MON_OUTPORT
1b67: a9 ff L1B67 lda #$ff
1b69: 60 rts
1b6a: 2c 83 c0 L1B6A bit LCBANK2
1b6d: 20 7b d8 jsr LD87B
1b70: 2c 82 c0 bit ROMIN_RO
1b73: 0a asl A
1b74: 60 rts
1b75: 20 6a 1b L1B75 jsr L1B6A
1b78: 20 7a 1c L1B78 jsr L1C7A
1b7b: e6 08 inc $08
1b7d: 20 7e 28 L1B7D jsr L287E
1b80: 20 ba 2b jsr L2BBA
1b83: a5 b7 lda $b7
1b85: 20 bc 2e jsr L2EBC
1b88: 20 8e fd jsr MON_CROUT
1b8b: 2c 83 c0 bit LCBANK2
1b8e: 20 31 dd jsr LDD31
1b91: 2c 82 c0 bit ROMIN_RO
1b94: 20 99 17 L1B94 jsr L1799
1b97: d0 0d bne L1BA6
1b99: 20 43 2e jsr L2E43
1b9c: f0 f6 beq L1B94
1b9e: 20 39 2e jsr L2E39
1ba1: a5 f0 lda $f0
1ba3: 10 92 bpl L1B37
1ba5: 60 rts
1ba6: 46 d7 L1BA6 lsr $d7
1ba8: 24 ef bit $ef
1baa: 10 10 bpl L1BBC
1bac: c9 83 cmp #$83
1bae: 18 clc
1baf: f0 2a beq L1BDB
1bb1: c9 85 cmp #$85
1bb3: f0 26 beq L1BDB
1bb5: c9 ff cmp #$ff
1bb7: d0 03 bne L1BBC
1bb9: 66 d7 ror $d7
1bbb: 60 rts
1bbc: c9 81 L1BBC cmp #$81
1bbe: f0 b5 beq L1B75
1bc0: c9 a0 cmp #$a0
1bc2: f0 41 beq L1C05
1bc4: c9 88 cmp #$88
1bc6: d0 19 bne L1BE1
1bc8: a5 08 lda $08
1bca: e5 b2 sbc $b2
1bcc: b0 2b bcs L1BF9
1bce: 65 b2 L1BCE adc $b2
1bd0: c5 1d cmp $1d
1bd2: 90 fa bcc L1BCE
1bd4: e5 b2 sbc $b2
1bd6: 85 08 sta $08
1bd8: 4c 44 1c jmp L1C44
1bdb: 66 d6 L1BDB ror $d6
1bdd: 38 sec
1bde: 66 ef ror $ef
1be0: 60 rts
1be1: c9 8b L1BE1 cmp #$8b
1be3: f0 0a beq L1BEF
1be5: c9 0b cmp #$0b
1be7: d0 34 bne L1C1D
1be9: a5 08 lda $08
1beb: f0 0a beq L1BF7
1bed: c6 08 dec $08
1bef: a9 ff L1BEF lda #$ff
1bf1: 85 fd sta $fd
1bf3: a5 08 lda $08
1bf5: d0 21 bne L1C18
1bf7: a5 09 L1BF7 lda $09
1bf9: 85 08 L1BF9 sta $08
1bfb: 20 7e 28 L1BFB jsr L287E
1bfe: a5 08 lda $08
1c00: 85 04 sta $04
1c02: 4c 7d 1b jmp L1B7D
1c05: a5 08 L1C05 lda $08
1c07: 20 66 2e jsr L2E66
1c0a: a0 27 ldy #$27
1c0c: b1 02 lda ($02),y
1c0e: 49 80 eor #$80
1c10: 91 02 sta ($02),y
1c12: 24 fd bit $fd
1c14: 10 2a bpl L1C40
1c16: 30 d7 bmi L1BEF
1c18: c6 08 L1C18 dec $08
1c1a: 4c fb 1b jmp L1BFB
1c1d: c9 95 L1C1D cmp #$95
1c1f: d0 12 bne L1C33
1c21: a5 08 lda $08
1c23: 65 b7 adc $b7
1c25: 85 08 sta $08
1c27: c5 1d cmp $1d
1c29: 90 19 bcc L1C44
1c2b: e5 b2 L1C2B sbc $b2
1c2d: b0 fc bcs L1C2B
1c2f: 65 b2 adc $b2
1c31: b0 c6 bcs L1BF9
1c33: c9 8a L1C33 cmp #$8a
1c35: f0 09 beq L1C40
1c37: c9 0a cmp #$0a
1c39: f0 03 beq L1C3E
1c3b: 4c 94 1b jmp L1B94
1c3e: e6 08 L1C3E inc $08
1c40: e6 08 L1C40 inc $08
1c42: 46 fd lsr $fd
1c44: a5 09 L1C44 lda $09
1c46: c5 08 cmp $08
1c48: b0 b1 bcs L1BFB
1c4a: a9 00 lda #$00
1c4c: f0 ab beq L1BF9
1c4e: a2 00 L1C4E ldx #$00
1c50: 86 10 stx $10
1c52: 86 12 stx $12
1c54: ca dex
1c55: 86 11 stx $11
1c57: a9 90 lda #$90
1c59: 85 03 sta $03
1c5b: d0 0f bne L1C6C
1c5d: a9 00 L1C5D lda #$00
1c5f: a8 tay
1c60: a2 ff ldx #$ff
1c62: 85 10 L1C62 sta $10
1c64: 86 11 stx $11
1c66: 84 12 sty $12
1c68: a9 70 lda #$70
1c6a: 85 03 sta $03
1c6c: 2c 83 c0 L1C6C bit LCBANK2
1c6f: 20 09 da jsr LDA09
1c72: 2c 82 c0 bit ROMIN_RO
1c75: 90 42 bcc L1CB9
1c77: 4c 54 11 jmp L1154
1c7a: 20 a6 15 L1C7A jsr L15A6
1c7d: a0 00 ldy #$00
1c7f: 84 09 L1C7F sty $09
1c81: 98 tya
1c82: 20 66 2e jsr L2E66
1c85: b1 02 lda ($02),y
1c87: 29 0f and #$0f
1c89: f0 07 beq L1C92
1c8b: a4 09 ldy $09
1c8d: c8 iny
1c8e: c0 cd cpy #$cd
1c90: 90 ed bcc L1C7F
1c92: a5 09 L1C92 lda $09
1c94: f0 24 beq L1CBA
1c96: c6 09 dec $09
1c98: a9 70 lda #$70
1c9a: 85 03 sta $03
1c9c: a0 ff ldy #$ff
1c9e: 84 08 sty $08
1ca0: c8 iny
1ca1: 84 02 sty $02
1ca3: 84 04 sty $04
1ca5: 20 7e 28 L1CA5 jsr L287E
1ca8: f0 08 L1CA8 beq L1CB2
1caa: e6 04 inc $04
1cac: a5 04 lda $04
1cae: 49 cc eor #$cc
1cb0: d0 f3 bne L1CA5
1cb2: a4 09 L1CB2 ldy $09
1cb4: c8 iny
1cb5: 84 1d sty $1d
1cb7: 85 04 sta $04
1cb9: 60 L1CB9 rts
1cba: 4c 15 08 L1CBA jmp T0815
1cbd: a0 00 L1CBD ldy #$00
1cbf: 84 00 sty $00
1cc1: 84 02 sty $02
1cc3: a9 36 lda #$36
1cc5: 85 01 sta $01
1cc7: a9 70 lda #$70
1cc9: 85 03 sta $03
1ccb: a5 1d lda $1d
1ccd: c9 cc cmp #$cc
1ccf: b0 06 bcs L1CD7
1cd1: 8d 25 36 sta $3625
1cd4: 8c 26 36 sty $3626
1cd7: a0 2b L1CD7 ldy #$2b
1cd9: a9 00 L1CD9 lda #$00
1cdb: 91 00 L1CDB sta ($00),y
1cdd: c8 iny
1cde: d0 fb bne L1CDB
1ce0: e6 01 inc $01
1ce2: 91 00 L1CE2 sta ($00),y
1ce4: c8 iny
1ce5: d0 fb bne L1CE2
1ce7: e6 01 inc $01
1ce9: a5 01 lda $01
1ceb: c9 70 cmp #$70
1ced: b0 04 bcs L1CF3
1cef: a0 04 ldy #$04
1cf1: d0 e6 bne L1CD9
1cf3: a9 2b L1CF3 lda #$2b
1cf5: 85 00 sta $00
1cf7: a9 36 lda #$36
1cf9: 85 01 sta $01
1cfb: a0 00 L1CFB ldy #$00
1cfd: b1 02 lda ($02),y
1cff: f0 0d beq L1D0E
1d01: a0 26 ldy #$26
1d03: b1 02 L1D03 lda ($02),y
1d05: 91 00 sta ($00),y
1d07: 88 dey
1d08: 10 f9 bpl L1D03
1d0a: c8 iny
1d0b: 20 09 1b jsr L1B09
1d0e: 20 e3 11 L1D0E jsr L11E3
1d11: d0 e8 bne L1CFB
1d13: c6 01 dec $01
1d15: 84 00 sty $00
1d17: a0 03 ldy #$03
1d19: b1 00 lda ($00),y
1d1b: 88 dey
1d1c: 11 00 ora ($00),y
1d1e: f0 0e beq L1D2E
1d20: e6 01 inc $01
1d22: e6 01 inc $01
1d24: a9 04 lda #$04
1d26: 85 00 sta $00
1d28: a5 01 lda $01
1d2a: c9 70 cmp #$70
1d2c: d0 cd bne L1CFB
1d2e: a4 eb L1D2E ldy $eb
1d30: f0 1f L1D30 beq L1D51
1d32: a5 01 lda $01
1d34: 38 sec
1d35: e9 34 sbc #$34
1d37: a0 16 ldy #$16
1d39: 91 ea sta ($ea),y
1d3b: 4a lsr A
1d3c: a0 13 ldy #$13
1d3e: 91 ea sta ($ea),y
1d40: c8 iny
1d41: a9 00 lda #$00
1d43: 91 ea sta ($ea),y
1d45: c8 iny
1d46: 91 ea sta ($ea),y
1d48: c8 iny
1d49: c8 iny
1d4a: 91 ea sta ($ea),y
1d4c: 20 3a 20 jsr L203A
1d4f: b0 75 bcs L1DC6
1d51: a9 36 L1D51 lda #$36
1d53: 85 01 sta $01
1d55: a5 06 lda $06
1d57: 8d 05 be sta LBE05
1d5a: a5 07 lda $07
1d5c: 8d 06 be sta LBE05+1
1d5f: ad 05 be L1D5F lda LBE05
1d62: 8d 0b be sta LBE0B
1d65: ad 06 be lda LBE05+1
1d68: 8d 0c be sta LBE0B+1
1d6b: 20 48 20 jsr L2048
1d6e: b0 56 bcs L1DC6
1d70: a0 03 ldy #$03
1d72: b1 00 L1D72 lda ($00),y
1d74: d9 00 b0 cmp $b000,y
1d77: d0 79 bne L1DF2
1d79: 88 dey
1d7a: 10 f6 bpl L1D72
1d7c: a5 01 lda $01
1d7e: 8d 04 be sta LBE03+1
1d81: a2 05 ldx #$05
1d83: ca L1D83 dex
1d84: 30 40 bmi L1DC6
1d86: 20 00 bf jsr P8_MLI
1d89: 81 .dd1 P8_WRITE_BLOCK
1d8a: 01 be .dd2 LBE01
1d8c: b0 f5 bcs L1D83
1d8e: a9 04 lda #$04
1d90: 85 00 sta $00
1d92: a9 01 lda #$01
1d94: 85 0a sta $0a
1d96: a0 00 L1D96 ldy #$00
1d98: b1 00 lda ($00),y
1d9a: 29 f0 and #$f0
1d9c: c9 d0 cmp #$d0
1d9e: d0 28 bne L1DC8
1da0: a0 11 ldy #$11
1da2: b1 00 lda ($00),y
1da4: 8d 0b be sta LBE0B
1da7: c8 iny
1da8: b1 00 lda ($00),y
1daa: 8d 0c be sta LBE0B+1
1dad: 20 48 20 jsr L2048
1db0: b0 42 bcs L1DF4
1db2: ad 05 be lda LBE05
1db5: 8d 27 b0 sta $b027
1db8: ad 06 be lda LBE05+1
1dbb: 8d 28 b0 sta $b028
1dbe: a5 0a lda $0a
1dc0: 8d 29 b0 sta $b029
1dc3: 20 3a 20 jsr L203A
1dc6: b0 2c L1DC6 bcs L1DF4
1dc8: e6 0a L1DC8 inc $0a
1dca: 20 e3 11 jsr L11E3
1dcd: d0 c7 bne L1D96
1dcf: c6 01 dec $01
1dd1: e6 00 inc $00
1dd3: a0 02 ldy #$02
1dd5: b1 00 lda ($00),y
1dd7: 8d 05 be sta LBE05
1dda: c8 iny
1ddb: b1 00 lda ($00),y
1ddd: 8d 06 be sta LBE05+1
1de0: e6 01 inc $01
1de2: e6 01 inc $01
1de4: 0d 05 be ora LBE05
1de7: f0 0e beq L1DF7
1de9: a5 01 lda $01
1deb: c9 70 cmp #$70
1ded: b0 08 bcs L1DF7
1def: 4c 5f 1d jmp L1D5F
1df2: a9 51 L1DF2 lda #$51
1df4: 4c 2d 11 L1DF4 jmp L112D
1df7: 60 L1DF7 rts
1df8: 20 57 22 L1DF8 jsr InHZ_PrintString1
1dfb: 8d 00 .zstr $8d
1dfd: a9 31 lda #$31
1dff: 24 e6 bit $e6
1e01: 10 02 bpl L1E05
1e03: a9 35 lda #$35
1e05: 38 L1E05 sec
1e06: ed 80 bc sbc $bc80
1e09: 90 03 bcc L1E0E
1e0b: 4a lsr A
1e0c: 85 24 sta MON_CH
1e0e: 20 8c 22 L1E0E jsr InHZ_PrintString3
1e11: c7 e9 f6 e5+ .zstr “Give new ”
1e1b: 24 e6 bit $e6
1e1d: 30 12 bmi L1E31
1e1f: 20 8c 22 jsr InHZ_PrintString3
1e22: ed ef e4 e9+ .zstr “modification”
1e2f: 90 0c bcc L1E3D
1e31: 20 8c 22 L1E31 jsr InHZ_PrintString3
1e34: e3 f2 e5 e1+ .zstr “creation”
1e3d: 20 8c 22 L1E3D jsr InHZ_PrintString3
1e40: a0 e4 e1 f4+ L1E40 .zstr “ date for /”
1e4c: 20 5e 10 jsr L105E
1e4f: 20 36 15 jsr L1536
1e52: 20 49 27 jsr L2749
1e55: 20 8c 22 jsr InHZ_PrintString3
1e58: 8d 8d 10 c4+ .zstr $8d,$8d,$10,“Date:”
1e61: a5 e0 lda $e0
1e63: d0 30 bne L1E95
1e65: 20 8c 22 jsr InHZ_PrintString3
1e68: a0 c4 c4 ad+ .zstr “ DD-MMM-YY”
1e73: 60 rts
1e74: 20 2b 2f L1E74 jsr L2F2B
1e77: a0 03 ldy #$03
1e79: 20 2b 2f L1E79 jsr L2F2B
1e7c: b1 02 lda ($02),y
1e7e: 20 25 2f jsr L2F25
1e81: 88 dey
1e82: b1 02 lda ($02),y
1e84: 4c cf 1e jmp L1ECF
1e87: 20 8c 22 L1E87 jsr InHZ_PrintString3
1e8a: db ee ef a0+ .zstr “[no date]”
1e94: 60 rts
1e95: a0 01 L1E95 ldy #$01
1e97: 20 2b 2f L1E97 jsr L2F2B
1e9a: b1 02 lda ($02),y
1e9c: 85 0c sta $0c
1e9e: 88 dey
1e9f: b1 02 lda ($02),y
1ea1: f0 e4 beq L1E87
1ea3: 48 pha
1ea4: 29 1f and #$1f
1ea6: 85 d1 sta $d1
1ea8: 20 db 1e jsr L1EDB
1eab: 68 pla
1eac: 46 0c lsr $0c
1eae: 6a ror A
1eaf: 29 f0 and #$f0
1eb1: 4a lsr A
1eb2: 4a lsr A
1eb3: 85 ff sta $ff
1eb5: aa tax
1eb6: a9 ad lda #$ad
1eb8: 20 ed fd jsr MON_COUT
1ebb: bd a7 1f L1EBB lda L1FA7,x
1ebe: 10 06 bpl L1EC6
1ec0: 20 ed fd jsr MON_COUT
1ec3: e8 inx
1ec4: d0 f5 bne L1EBB
1ec6: 85 d0 L1EC6 sta $d0
1ec8: a9 ad lda #$ad
1eca: 20 ed fd jsr MON_COUT
1ecd: a5 0c lda $0c
1ecf: 20 e4 1e L1ECF jsr L1EE4
1ed2: 48 pha
1ed3: 8a txa
1ed4: 20 ed fd L1ED4 jsr MON_COUT
1ed7: 68 pla
1ed8: 4c ed fd jmp MON_COUT
1edb: 20 e4 1e L1EDB jsr L1EE4
1ede: 48 pha
1edf: bd 45 1e lda L1E40+5,x
1ee2: b0 f0 bcs L1ED4
1ee4: a2 af L1EE4 ldx #$af
1ee6: 38 sec
1ee7: e9 64 L1EE7 sbc #$64
1ee9: b0 fc bcs L1EE7
1eeb: 69 64 adc #$64
1eed: e8 L1EED inx
1eee: e9 0a sbc #$0a
1ef0: b0 fb bcs L1EED
1ef2: 69 ba adc #$ba
1ef4: 60 L1EF4 rts
1ef5: a0 b1 b2 b3 .str “ 123”
1ef9: 78 L1EF9 sei
1efa: 20 00 bf jsr P8_MLI
1efd: 82 .dd1 P8_GET_TIME
1efe: ea ea .dd2 $eaea
1f00: 58 cli
1f01: a9 2f lda #$2f
1f03: 20 b0 2e jsr L2EB0
1f06: ad 90 bf lda P8_DATELO
1f09: f0 e9 beq L1EF4
1f0b: a9 90 lda #$90
1f0d: 85 02 sta $02
1f0f: a9 bf lda #$bf
1f11: 85 03 sta $03
1f13: 20 95 1e jsr L1E95
1f16: 20 ae 2b jsr L2BAE
1f19: ad 93 bf lda P8_TIMELO+1
1f1c: 38 sec
1f1d: e9 0c L1F1D sbc #$0c
1f1f: b0 fc bcs L1F1D
1f21: 18 L1F21 clc
1f22: 69 0c adc #$0c
1f24: f0 fb beq L1F21
1f26: 20 25 2f jsr L2F25
1f29: ad 92 bf lda P8_TIMELO
1f2c: 20 cf 1e jsr L1ECF
1f2f: a9 10 lda #$10
1f31: 20 b0 2e jsr L2EB0
1f34: a6 0c ldx $0c
1f36: 8a txa
1f37: 38 sec
1f38: e9 55 sbc #$55
1f3a: 4a lsr A
1f3b: 4a lsr A
1f3c: 18 clc
1f3d: 65 0c adc $0c
1f3f: e9 53 sbc #$53
1f41: 20 74 1f jsr L1F74
1f44: a8 tay
1f45: 8a txa
1f46: a2 00 ldx #$00
1f48: 29 03 and #$03
1f4a: f0 01 beq L1F4D
1f4c: ca dex
1f4d: 86 0b L1F4D stx $0b
1f4f: 98 tya
1f50: 18 clc
1f51: 65 d0 adc $d0
1f53: 65 d1 adc $d1
1f55: a4 ff ldy $ff
1f57: c0 0c cpy #$0c
1f59: 90 02 bcc L1F5D
1f5b: 65 0b adc $0b
1f5d: 20 74 1f L1F5D jsr L1F74
1f60: aa tax
1f61: bc a4 1f ldy L1FA4,x
1f64: 2c bit ▼ L239F+1
1f65: a0 23 L1F65 ldy #$23
1f67: b9 7c 1f L1F67 lda L1F7C,y
1f6a: f0 0f beq L1F7B
1f6c: 10 f7 bpl L1F65
1f6e: 20 ed fd jsr MON_COUT
1f71: c8 iny
1f72: d0 f3 bne L1F67
1f74: 38 L1F74 sec
1f75: e9 07 L1F75 sbc #$07
1f77: b0 fc bcs L1F75
1f79: 69 07 adc #$07
1f7b: 60 L1F7B rts
1f7c: d3 f5 ee L1F7C .str “Sun”
1f7f: 01 .dd1 $01
1f80: cd ef ee .str “Mon”
1f83: 01 .dd1 $01
1f84: d4 f5 e5 f3 .str “Tues”
1f88: 01 .dd1 $01
1f89: d7 e5 e4 ee+ .str “Wednes”
1f8f: 01 .dd1 $01
1f90: d4 e8 f5 f2+ .str “Thurs”
1f95: 01 .dd1 $01
1f96: c6 f2 e9 .str “Fri”
1f99: 01 .dd1 $01
1f9a: d3 e1 f4 f5+ .str “Saturday ”
1fa4: 00 L1FA4 .dd1 $00
1fa5: 04 .dd1 $04
1fa6: 08 .dd1 $08
1fa7: 0d L1FA7 .dd1 $0d
1fa8: 14 .dd1 $14
1fa9: 1a .dd1 $1a
1faa: 1e L1FAA .dd1 $1e
1fab: ca e1 ee .str “Jan”
1fae: 00 .dd1 $00
1faf: c6 e5 e2 .str “Feb”
1fb2: 03 .dd1 $03
1fb3: cd e1 f2 .str “Mar”
1fb6: 03 .dd1 $03
1fb7: c1 f0 f2 .str “Apr”
1fba: 06 .dd1 $06
1fbb: cd e1 f9 .str “May”
1fbe: 01 .dd1 $01
1fbf: ca f5 ee .str “Jun”
1fc2: 04 .dd1 $04
1fc3: ca f5 ec .str “Jul”
1fc6: 06 .dd1 $06
1fc7: c1 f5 e7 .str “Aug”
1fca: 02 .dd1 $02
1fcb: d3 e5 f0 .str “Sep”
1fce: 05 .dd1 $05
1fcf: cf e3 f4 .str “Oct”
1fd2: 00 .dd1 $00
1fd3: ce ef f6 .str “Nov”
1fd6: 03 .dd1 $03
1fd7: c4 e5 e3 .str “Dec”
1fda: 05 .dd1 $05
1fdb: a9 e0 L1FDB lda #$e0
1fdd: 85 02 sta $02
1fdf: a9 00 lda #$00
1fe1: 85 03 sta $03
1fe3: 85 e6 sta $e6
1fe5: ad 23 be lda LBE23
1fe8: c9 0f cmp #$0f
1fea: f0 1b beq L2007
1fec: a0 24 ldy #$24
1fee: b1 00 L1FEE lda ($00),y
1ff0: 99 bf 00 sta $00bf,y
1ff3: 88 dey
1ff4: c0 21 cpy #$21
1ff6: b0 f6 bcs L1FEE
1ff8: 20 81 20 jsr L2081
1ffb: a0 24 ldy #$24
1ffd: b9 bf 00 L1FFD lda $00bf,y
2000: 91 00 sta ($00),y
2002: 88 dey
2003: c0 21 cpy #$21
2005: b0 f6 bcs L1FFD
2007: 38 L2007 sec
2008: 66 e6 ror $e6
200a: a0 1b ldy #$1b
200c: b1 00 L200C lda ($00),y
200e: 99 c8 00 sta $00c8,y
2011: 88 dey
2012: c0 18 cpy #$18
2014: b0 f6 bcs L200C
2016: 20 81 20 jsr L2081
2019: a0 1b ldy #$1b
201b: b9 c8 00 L201B lda $00c8,y
201e: 91 00 sta ($00),y
2020: 88 dey
2021: c0 18 cpy #$18
2023: b0 f6 bcs L201B
2025: 20 71 0b jsr L0B71
2028: 20 8c 22 jsr InHZ_PrintString3
202b: ee e5 f7 a0+ .zstr “new date.”,$8d,$8d
2037: 20 8a 0b jsr L0B8A
203a: a2 05 L203A ldx #$05
203c: ca L203C dex
203d: 30 08 bmi L2047
203f: 20 00 bf jsr P8_MLI
2042: 81 .dd1 P8_WRITE_BLOCK
2043: 07 be .dd2 LBE07
2045: b0 f5 bcs L203C
2047: 60 L2047 rts
2048: a2 05 L2048 ldx #$05
204a: ca L204A dex
204b: 30 08 bmi L2055
204d: 20 00 bf jsr P8_MLI
2050: 80 .dd1 P8_READ_BLOCK
2051: 07 be .dd2 LBE07
2053: b0 f5 bcs L204A
2055: 60 L2055 rts
2056: 20 00 bf L2056 jsr P8_MLI
2059: 80 .dd1 P8_READ_BLOCK
205a: 01 be .dd2 LBE01
205c: 60 rts
205d: a0 01 L205D ldy #$01
205f: bd 00 02 L205F lda $0200,x
2062: 59 aa 1f eor L1FAA,y
2065: e8 L2065 inx
2066: c8 iny
2067: 29 df and #$df
2069: d0 07 bne L2072
206b: 98 tya
206c: 29 03 and #$03
206e: d0 ef bne L205F
2070: 98 tya
2071: 60 rts
2072: 98 L2072 tya
2073: 29 03 and #$03
2075: d0 ee bne L2065
2077: ca dex
2078: ca dex
2079: ca dex
207a: c8 iny
207b: c0 31 cpy #$31
207d: 90 e0 bcc L205F
207f: 68 pla
2080: 68 L2080 pla
2081: 20 f8 1d L2081 jsr L1DF8
2084: a2 09 ldx #$09
2086: 20 66 27 jsr L2766
2089: 20 6f fd jsr MON_GETLN1
208c: 8a txa
208d: f0 2e beq L20BD
208f: a2 00 ldx #$00
2091: ad 00 02 lda $0200
2094: c9 a0 cmp #$a0
2096: d0 01 bne L2099
2098: e8 inx
2099: 20 00 21 L2099 jsr L2100
209c: f0 e3 beq L2081
209e: c9 20 cmp #$20
20a0: b0 df bcs L2081
20a2: 85 e5 sta $e5
20a4: e8 inx
20a5: 20 5d 20 jsr L205D
20a8: 0a asl A
20a9: 0a asl A
20aa: 0a asl A
20ab: 08 php
20ac: 05 e5 ora $e5
20ae: a8 tay
20af: e8 inx
20b0: 20 00 21 jsr L2100
20b3: c9 64 cmp #$64
20b5: b0 c9 bcs L2080
20b7: 28 plp
20b8: 2a rol A
20b9: 85 e1 sta $e1
20bb: 84 e0 sty $e0
20bd: 20 f8 1d L20BD jsr L1DF8
20c0: 20 8c 22 jsr InHZ_PrintString3
20c3: 8d 8d 10 d4+ .zstr $8d,$8d,$10,“Time: ”
20cd: a5 e3 lda $e3
20cf: 20 25 2f jsr L2F25
20d2: a5 e2 lda $e2
20d4: 20 cf 1e jsr L1ECF
20d7: a2 05 ldx #$05
20d9: 20 66 27 jsr L2766
20dc: 20 6f fd jsr MON_GETLN1
20df: 8a txa
20e0: f0 1d beq L20FF
20e2: a2 00 ldx #$00
20e4: ad 00 02 lda $0200
20e7: c9 a0 cmp #$a0
20e9: d0 01 bne L20EC
20eb: e8 inx
20ec: 20 00 21 L20EC jsr L2100
20ef: c9 18 cmp #$18
20f1: b0 ca bcs L20BD
20f3: 85 e3 sta $e3
20f5: e8 inx
20f6: 20 00 21 jsr L2100
20f9: c9 3c cmp #$3c
20fb: b0 c0 bcs L20BD
20fd: 85 e2 sta $e2
20ff: 60 L20FF rts
2100: a9 00 L2100 lda #$00
2102: 85 e4 L2102 sta $e4
2104: bd 00 02 lda $0200,x
2107: 49 b0 eor #$b0
2109: c9 0a cmp #$0a
210b: b0 11 bcs L211E
210d: 48 pha
210e: 06 e4 asl $e4
2110: a5 e4 lda $e4
2112: 0a asl A
2113: 0a asl A
2114: 65 e4 adc $e4
2116: 85 e4 sta $e4
2118: 68 pla
2119: 65 e4 adc $e4
211b: e8 inx
211c: d0 e4 bne L2102
211e: a5 e4 L211E lda $e4
2120: 60 rts
2121: 8a L2121 txa
2122: 48 pha
2123: 18 clc
2124: 69 04 adc #$04
2126: 65 ba adc $ba
2128: 20 5b fb jsr MON_TABV
212b: a9 1e lda #$1e
212d: 85 24 sta MON_CH
212f: a0 ff ldy #$ff
2131: ca L2131 dex
2132: 30 1a bmi L214E
2134: 38 sec
2135: c8 L2135 iny
2136: b9 a0 21 lda L21A0,y
2139: f0 60 beq L219B
213b: 30 f8 bmi L2135
213d: 10 f2 bpl L2131
213f: 20 ed fd L213F jsr MON_COUT
2142: c9 ad cmp #$ad
2144: d0 08 bne L214E
2146: 68 pla
2147: 48 pha
2148: c5 08 cmp $08
214a: d0 02 bne L214E
214c: 46 32 lsr MON_INVFLAG
214e: c8 L214E iny
214f: b9 a0 21 lda L21A0,y
2152: f0 3d beq L2191
2154: 30 e9 bmi L213F
2156: c9 3f cmp #$3f
2158: d0 07 bne L2161
215a: 20 8c 22 jsr InHZ_PrintString3
215d: 80 00 .zstr $80
215f: 90 30 bcc L2191
2161: c9 40 L2161 cmp #$40
2163: d0 0c bne L2171
2165: 20 8c 22 jsr InHZ_PrintString3
2168: a0 e6 e9 ec+ .zstr “ files”
216f: 90 20 bcc L2191
2171: b0 1b L2171 bcs L218E
2173: 20 8c 22 jsr InHZ_PrintString3
2176: ac a0 ee ef+ .zstr “, now: O”
217f: 68 pla
2180: 48 pha
2181: 0a asl A
2182: aa tax
2183: a9 ce lda #$ce
2185: b4 c9 ldy $c9,x
2187: 10 05 bpl L218E
2189: a9 c6 lda #$c6
218b: 20 ed fd jsr MON_COUT
218e: 20 41 2f L218E jsr L2F41
2191: 20 14 2f L2191 jsr L2F14
2194: 20 2b 2f jsr L2F2B
2197: 20 8e fd jsr MON_CROUT
219a: 18 clc
219b: 68 L219B pla
219c: aa tax
219d: 4c 14 2f jmp L2F14
21a0: d1 ad d1 f5+ L21A0 .dstr “Q-Quit”
21a6: c3 ad c3 e1+ .dstr “C-Catalog”
21af: d8 ad c3 ef+ .dstr “X-Copy@”
21b6: d4 ad d4 f9+ .dstr “T-Type@”
21bd: cc ad cc ef+ .dstr “L-Lock@”
21c4: d5 ad d5 ee+ .dstr “U-Unlock@”
21cd: c4 ad c4 e5+ .dstr “D-Delete@”
21d6: c5 ad c5 f8+ .dstr “E-Exhume@”
21df: d6 ad d6 e5+ .dstr “V-Verify@”
21e8: d2 ad d2 e5+ .dstr “R-Rename@”
21f1: d7 ad d7 e9+ .dstr “W-Wipe a volume”
2200: d3 ad d3 ef+ .dstr “S-Sort?”
2207: c6 ad c3 e8+ .dstr “F-Change file date”
2219: af ad c3 f2+ .dstr “/-Create?”
2222: ce ad d3 e8+ .dstr “N-Show volume names”
2235: c2 ad d4 ef+ .dstr “B-Toggle bell#”
2243: d0 ad d4 ef+ .dstr “P-Toggle prompting#”
2256: 00 .dd1 $00
InHZ_PrintString1
2257: 20 a6 15 jsr L15A6
225a: a5 ba lda $ba
225c: 20 5b fb jsr MON_TABV
225f: 20 8c 22 jsr InHZ_PrintString3
2262: 8d 8d 00 .zstr $8d,$8d
2265: 90 25 bcc InHZ_PrintString3
2267: 2c 82 c0 L2267 bit ROMIN_RO
226a: c9 8d cmp #$8d
226c: f0 0b beq L2279
226e: c9 a0 cmp #$a0
2270: b0 07 bcs L2279
2272: 69 40 adc #$40
2274: 46 32 lsr MON_INVFLAG
2276: 2c 82 c0 L2276 bit ROMIN_RO
2279: 20 ed fd L2279 jsr MON_COUT
227c: c9 8f cmp #$8f
227e: f0 03 beq L2283
2280: 20 14 2f jsr L2F14
2283: 2c 83 c0 L2283 bit LCBANK2
2286: 60 rts
InHZ_PrintString2
2287: a5 b2 lda $b2
2289: 20 bc 2e jsr L2EBC
InHZ_PrintString3
228c: 68 pla
228d: 85 16 sta $16
228f: 68 pla
2290: 85 17 sta $17
2292: d0 03 bne L2297
2294: 20 20 2f L2294 jsr L2F20
2297: a0 00 L2297 ldy #$00
2299: e6 16 inc $16
229b: d0 02 bne L229F
229d: e6 17 inc $17
229f: b1 16 L229F lda ($16),y
22a1: d0 f1 bne L2294
22a3: a5 17 lda $17
22a5: 48 pha
22a6: a5 16 lda $16
22a8: 48 pha
22a9: 18 clc
22aa: 60 rts
22ab: 01 L22AB .dd1 $01
22ac: 00 .dd1 $00
22ad: 0a .dd1 $0a
22ae: 00 .dd1 $00
22af: 64 .dd1 $64
22b0: 00 .dd1 $00
22b1: e8 .dd1 $e8
22b2: 03 .dd1 $03
22b3: 10 .dd1 $10
22b4: 27 .dd1 $27
22b5: 08 L22B5 php
22b6: 20 a6 15 jsr L15A6
22b9: 28 plp
22ba: b0 06 bcs L22C2
22bc: ad 30 bf lda P8_DEVNUM
22bf: 4c 4e 23 jmp L234E
22c2: 24 a0 L22C2 bit $a0
22c4: 10 05 bpl L22CB
22c6: 20 72 09 jsr L0972
22c9: 46 a0 lsr $a0
22cb: 20 87 22 L22CB jsr InHZ_PrintString2
22ce: 8d d3 e5 ec+ .zstr $8d,“Select tree search volume.”
22ea: 84 08 sty $08
22ec: 84 a3 sty $a3
22ee: a9 02 lda #$02
22f0: 85 a2 sta $a2
22f2: 20 85 09 L22F2 jsr L0985
22f5: 20 99 17 L22F5 jsr L1799
22f8: f0 31 beq L232B
22fa: 09 80 ora #$80
22fc: c9 a0 cmp #$a0
22fe: d0 04 bne L2304
2300: c5 95 cmp $95
2302: f0 27 beq L232B
2304: c9 88 L2304 cmp #$88
2306: f0 16 beq L231E
2308: c9 8b cmp #$8b
230a: f0 12 beq L231E
230c: c9 95 cmp #$95
230e: f0 04 beq L2314
2310: c9 8a cmp #$8a
2312: d0 e1 bne L22F5
2314: e6 08 L2314 inc $08
2316: a5 08 lda $08
2318: c5 04 cmp $04
231a: 90 d6 bcc L22F2
231c: b0 ad bcs L22CB
231e: c6 08 L231E dec $08
2320: 10 d0 bpl L22F2
2322: a5 04 lda $04
2324: 85 08 sta $08
2326: d0 f6 bne L231E
2328: 4c 15 08 jmp T0815
232b: a6 a1 L232B ldx $a1
232d: bd 00 36 lda $3600,x
2330: 29 0f and #$0f
2332: a0 00 ldy #$00
2334: 18 clc
2335: 69 01 adc #$01
2337: 91 0e sta ($0e),y
2339: 85 04 sta $04
233b: c8 iny
233c: c8 L233C iny
233d: e8 inx
233e: bd 00 36 lda $3600,x
2341: 29 7f and #$7f
2343: 91 0e sta ($0e),y
2345: c4 04 cpy $04
2347: 90 f3 bcc L233C
2349: a6 a1 ldx $a1
234b: bd 00 36 lda $3600,x
234e: 29 f0 L234E and #$f0
2350: 8d 02 be sta LBE02
2353: a0 00 ldy #$00
2355: 84 aa sty $aa
2357: 8c 80 02 sty $0280
235a: 84 00 sty $00
235c: 84 02 sty $02
235e: b1 0e lda ($0e),y
2360: 48 pha
2361: aa tax
2362: ca dex
2363: c8 iny
2364: c8 L2364 iny
2365: b1 0e lda ($0e),y
2367: 29 7f and #$7f
2369: 99 1f 02 sta $021f,y
236c: ca dex
236d: d0 f5 bne L2364
236f: 8e 03 be stx LBE03
2372: 8e 10 3a stx $3a10
2375: a9 10 lda #$10
2377: 85 a8 sta $a8
2379: a9 3a lda #$3a
237b: 85 a9 sta $a9
237d: a9 38 lda #$38
237f: 8d 04 be sta LBE03+1
2382: 20 29 26 jsr L2629
2385: 68 pla
2386: aa tax
2387: a9 2f lda #$2f
2389: 8d 81 02 sta $0281
238c: 8e 80 02 L238C stx $0280
238f: ca dex
2390: 8e 20 02 stx $0220
2393: dd 20 02 cmp $0220,x
2396: f0 f4 beq L238C
2398: bd 20 02 L2398 lda $0220,x
239b: 9d 81 02 sta $0281,x
239e: ca dex
239f: d0 f7 L239F bne L2398
23a1: 86 08 stx $08
23a3: ac 80 02 ldy $0280
23a6: 88 L23A6 dey
23a7: b9 80 02 lda $0280,y
23aa: c9 2f cmp #$2f
23ac: d0 f8 bne L23A6
23ae: c8 L23AE iny
23af: b9 80 02 lda $0280,y
23b2: e8 inx
23b3: 9d 00 3a sta $3a00,x
23b6: cc 80 02 cpy $0280
23b9: 90 f3 bcc L23AE
23bb: 8e 00 3a stx $3a00
23be: 86 ab stx $ab
23c0: a2 00 ldx #$00
23c2: 86 ad L23C2 stx $ad
23c4: 20 3e 25 jsr L253E
23c7: a5 b0 L23C7 lda $b0
23c9: 85 a8 sta $a8
23cb: a5 b1 lda $b1
23cd: 85 a9 sta $a9
23cf: a5 b7 lda $b7
23d1: 20 bc 2e jsr L2EBC
23d4: 20 8e fd jsr MON_CROUT
23d7: 20 19 2f jsr L2F19
23da: a9 d3 lda #$d3
23dc: a2 4e ldx #$4e
23de: 20 ed fd L23DE jsr MON_COUT
23e1: ca dex
23e2: d0 fa bne L23DE
23e4: 20 0a 2f jsr L2F0A
23e7: 20 8c 22 jsr InHZ_PrintString3
23ea: 8d c4 e9 f2+ .zstr $8d,“Directory: ”
23f7: ae 80 02 ldx $0280
23fa: c8 L23FA iny
23fb: b9 80 02 lda $0280,y
23fe: 20 41 2f jsr L2F41
2401: ca dex
2402: d0 f6 bne L23FA
2404: a9 9d lda #$9d
2406: 20 ed fd jsr MON_COUT
2409: ad 80 02 lda $0280
240c: c9 38 cmp #$38
240e: b0 29 bcs L2439
2410: c9 2d cmp #$2d
2412: b0 12 bcs L2426
2414: a9 38 lda #$38
2416: 85 24 sta MON_CH
2418: 20 8c 22 jsr InHZ_PrintString3
241b: c5 d3 c3 bd+ .zstr “ESC=abort,”
2426: a9 43 L2426 lda #$43
2428: 85 24 sta MON_CH
242a: 20 8c 22 jsr InHZ_PrintString3
242d: d2 d4 ce bd+ .zstr “RTN=select.”
2439: a5 a8 L2439 lda $a8
243b: 85 b0 sta $b0
243d: a5 a9 lda $a9
243f: 85 b1 sta $b1
2441: a0 00 L2441 ldy #$00
2443: 20 99 17 jsr L1799
2446: f0 1e beq L2466
2448: 09 80 ora #$80
244a: c9 8a cmp #$8a
244c: f0 2b beq L2479
244e: c9 8b cmp #$8b
2450: f0 26 beq L2478
2452: c9 88 cmp #$88
2454: f0 44 beq L249A
2456: c9 95 cmp #$95
2458: f0 24 beq L247E
245a: c9 9b cmp #$9b
245c: f0 1d beq L247B
245e: c9 a0 cmp #$a0
2460: d0 df bne L2441
2462: c5 95 cmp $95
2464: d0 db bne L2441
2466: b9 80 02 L2466 lda $0280,y
2469: f0 10 beq L247B
246b: 91 0e sta ($0e),y
246d: c8 iny
246e: cc 80 02 cpy $0280
2471: 90 f3 bcc L2466
2473: f0 f1 beq L2466
2475: 4c a6 15 jmp L15A6
2478: 18 L2478 clc
2479: f0 2f L2479 beq L24AA
247b: 4c 15 08 L247B jmp T0815
247e: 20 6f 27 L247E jsr L276F
2481: f0 b6 beq L2439
2483: 29 f0 and #$f0
2485: d1 a8 cmp ($a8),y
2487: 90 b0 bcc L2439
2489: 51 a8 eor ($a8),y
248b: 29 f0 and #$f0
248d: f0 aa beq L2439
248f: e6 08 inc $08
2491: 20 89 27 jsr L2789
2494: 20 3b 25 L2494 jsr L253B
2497: 4c c7 23 jmp L23C7
249a: b1 a8 L249A lda ($a8),y
249c: 29 f0 and #$f0
249e: f0 99 beq L2439
24a0: e9 10 sbc #$10
24a2: 85 e4 sta $e4
24a4: 20 ab 27 jsr L27AB
24a7: 4c 12 25 jmp L2512
24aa: a5 08 L24AA lda $08
24ac: 85 af sta $af
24ae: 90 5e bcc L250E
24b0: e6 08 L24B0 inc $08
24b2: f0 53 beq L2507
24b4: a0 10 ldy #$10
24b6: b1 b0 lda ($b0),y
24b8: f0 4d beq L2507
24ba: 09 0f ora #$0f
24bc: a0 00 ldy #$00
24be: d1 a8 cmp ($a8),y
24c0: 90 45 bcc L2507
24c2: f1 b0 sbc ($b0),y
24c4: 29 f0 and #$f0
24c6: c9 10 cmp #$10
24c8: f0 02 beq L24CC
24ca: e6 ae inc $ae
24cc: 20 6f 27 L24CC jsr L276F
24cf: 51 a8 eor ($a8),y
24d1: 29 f0 and #$f0
24d3: d0 db bne L24B0
24d5: 20 ab 27 L24D5 jsr L27AB
24d8: 20 89 27 jsr L2789
24db: a5 ae lda $ae
24dd: c5 b2 cmp $b2
24df: 90 2a bcc L250B
24e1: a6 08 ldx $08
24e3: e8 inx
24e4: 8a L24E4 txa
24e5: f0 1d beq L2504
24e7: ca dex
24e8: 20 7d 27 jsr L277D
24eb: a5 b1 lda $b1
24ed: c9 3a cmp #$3a
24ef: 90 10 bcc L2501
24f1: a0 10 ldy #$10
24f3: b1 b0 lda ($b0),y
24f5: 09 0f ora #$0f
24f7: a0 00 ldy #$00
24f9: f1 b0 sbc ($b0),y
24fb: 29 f0 and #$f0
24fd: c9 10 cmp #$10
24ff: f0 e3 beq L24E4
2501: 20 6f 27 L2501 jsr L276F
2504: 4c c2 23 L2504 jmp L23C2
2507: a5 af L2507 lda $af
2509: 85 08 sta $08
250b: 4c 94 24 L250B jmp L2494
250e: b1 a8 L250E lda ($a8),y
2510: 85 e4 sta $e4
2512: a5 08 L2512 lda $08
2514: f0 f1 beq L2507
2516: c6 08 dec $08
2518: 20 7d 27 jsr L277D
251b: b1 b0 lda ($b0),y
251d: 09 0f ora #$0f
251f: c5 e4 cmp $e4
2521: 90 e4 bcc L2507
2523: a0 10 ldy #$10
2525: f1 b0 sbc ($b0),y
2527: 29 f0 and #$f0
2529: c9 f0 cmp #$f0
252b: f0 02 beq L252F
252d: c6 ae dec $ae
252f: a0 00 L252F ldy #$00
2531: b1 b0 lda ($b0),y
2533: 45 e4 eor $e4
2535: 29 f0 and #$f0
2537: d0 d9 bne L2512
2539: f0 9a beq L24D5
253b: a9 99 L253B lda #$99
253d: 2c bit ▼ $8ca9
253e: a9 8c L253E lda #$8c
2540: 20 ed fd jsr MON_COUT
2543: a5 ad lda $ad
2545: 85 04 sta $04
2547: a0 00 ldy #$00
2549: 84 ac sty $ac
254b: 84 aa sty $aa
254d: 84 e4 sty $e4
254f: a2 04 ldx #$04
2551: 0a L2551 asl A
2552: 26 e4 rol $e4
2554: ca dex
2555: d0 fa bne L2551
2557: 85 a8 sta $a8
2559: a5 e4 lda $e4
255b: 18 clc
255c: 69 3a adc #$3a
255e: 85 a9 sta $a9
2560: a0 00 L2560 ldy #$00
2562: b1 a8 lda ($a8),y
2564: d0 01 bne L2567
2566: 60 L2566 rts
2567: 29 f0 L2567 and #$f0
2569: f0 38 beq L25A3
256b: c5 aa cmp $aa
256d: d0 30 bne L259F
256f: c5 b9 cmp $b9
2571: f0 04 beq L2577
2573: c5 b8 cmp $b8
2575: d0 08 bne L257F
2577: e6 ac L2577 inc $ac
2579: a5 ac lda $ac
257b: c5 b2 cmp $b2
257d: b0 e7 bcs L2566
257f: 38 L257F sec
2580: a9 10 lda #$10
2582: e5 ab sbc $ab
2584: aa tax
2585: 20 19 2f jsr L2F19
2588: ca dex
2589: f0 08 beq L2593
258b: a9 d3 L258B lda #$d3
258d: 20 ed fd jsr MON_COUT
2590: ca dex
2591: d0 f8 bne L258B
2593: a9 d5 L2593 lda #$d5
2595: 20 ed fd jsr MON_COUT
2598: 20 0a 2f jsr L2F0A
259b: d0 1c bne L25B9
259d: e5 b8 L259D sbc $b8
259f: c5 b8 L259F cmp $b8
25a1: b0 fa bcs L259D
25a3: aa L25A3 tax
25a4: a5 04 lda $04
25a6: c5 ad cmp $ad
25a8: f0 0b beq L25B5
25aa: e6 ac inc $ac
25ac: a5 ac lda $ac
25ae: c5 b2 cmp $b2
25b0: b0 4c bcs L25FE
25b2: 20 8e fd jsr MON_CROUT
25b5: 86 24 L25B5 stx MON_CH
25b7: a2 00 ldx #$00
25b9: a1 a8 L25B9 lda ($a8,x)
25bb: 29 0f and #$0f
25bd: aa tax
25be: 85 ab sta $ab
25c0: a5 08 lda $08
25c2: c5 04 cmp $04
25c4: d0 0e bne L25D4
25c6: 46 32 lsr MON_INVFLAG
25c8: a4 ac ldy $ac
25ca: 84 ae sty $ae
25cc: a5 a8 lda $a8
25ce: 85 b0 sta $b0
25d0: a5 a9 lda $a9
25d2: 85 b1 sta $b1
25d4: a0 00 L25D4 ldy #$00
25d6: c8 L25D6 iny
25d7: b1 a8 lda ($a8),y
25d9: 20 41 2f jsr L2F41
25dc: ca dex
25dd: d0 f7 bne L25D6
25df: 20 14 2f jsr L2F14
25e2: a1 a8 lda ($a8,x)
25e4: 29 f0 and #$f0
25e6: 18 clc
25e7: 69 10 adc #$10
25e9: 85 aa sta $aa
25eb: e6 04 inc $04
25ed: 20 f3 25 jsr L25F3
25f0: 4c 60 25 jmp L2560
25f3: a5 a8 L25F3 lda $a8
25f5: 18 clc
25f6: 69 10 adc #$10
25f8: 85 a8 sta $a8
25fa: 90 02 bcc L25FE
25fc: e6 a9 inc $a9
25fe: 60 L25FE rts
25ff: 20 56 20 L25FF jsr L2056
2602: 90 fa bcc L25FE
2604: 4c 2d 11 jmp L112D
2607: ad 02 38 L2607 lda $3802
260a: 8d 05 be sta LBE05
260d: ad 03 38 lda $3803
2610: 8d 06 be sta LBE05+1
2613: 0d 02 38 ora $3802
2616: f0 e6 beq L25FE
2618: a9 04 lda #$04
261a: 85 ea sta $ea
261c: a9 38 lda #$38
261e: 85 eb sta $eb
2620: a5 a5 lda $a5
2622: 85 a6 sta $a6
2624: 20 ff 25 jsr L25FF
2627: 90 30 bcc L2659
2629: a5 a2 L2629 lda $a2
262b: 8d 05 be sta LBE05
262e: a5 a3 lda $a3
2630: 8d 06 be sta LBE05+1
2633: 20 ff 25 jsr L25FF
2636: ad 23 38 lda $3823
2639: 85 a4 sta $a4
263b: ad 24 38 lda $3824
263e: 85 a5 sta $a5
2640: 85 a6 sta $a6
2642: a9 04 lda #$04
2644: 85 ea sta $ea
2646: a9 38 lda #$38
2648: 85 eb sta $eb
264a: 18 L264A clc
264b: c6 a6 dec $a6
264d: f0 b8 beq L2607
264f: a5 ea lda $ea
2651: 65 a4 adc $a4
2653: 85 ea sta $ea
2655: 90 02 bcc L2659
2657: e6 eb inc $eb
2659: a0 00 L2659 ldy #$00
265b: b1 ea lda ($ea),y
265d: f0 eb beq L264A
265f: a0 10 ldy #$10
2661: b1 ea lda ($ea),y
2663: c9 0f cmp #$0f
2665: d0 e3 bne L264A
2667: e6 aa inc $aa
2669: 20 db 26 jsr L26DB
266c: a5 a4 lda $a4
266e: 48 pha
266f: a5 a5 lda $a5
2671: 48 pha
2672: a5 a6 lda $a6
2674: 48 pha
2675: a5 ea lda $ea
2677: 48 pha
2678: a5 eb lda $eb
267a: 48 pha
267b: ad 05 be lda LBE05
267e: 48 pha
267f: ad 06 be lda LBE05+1
2682: 48 pha
2683: a0 11 ldy #$11
2685: b1 ea lda ($ea),y
2687: 85 a2 sta $a2
2689: c8 iny
268a: b1 ea lda ($ea),y
268c: 85 a3 sta $a3
268e: 20 cd 26 jsr L26CD
2691: b9 00 38 L2691 lda $3800,y
2694: 91 00 sta ($00),y
2696: b9 00 39 lda $3900,y
2699: 91 02 sta ($02),y
269b: c8 iny
269c: d0 f3 bne L2691
269e: 20 29 26 jsr L2629
26a1: 20 cd 26 jsr L26CD
26a4: b1 00 L26A4 lda ($00),y
26a6: 99 00 38 sta $3800,y
26a9: b1 02 lda ($02),y
26ab: 99 00 39 sta $3900,y
26ae: c8 iny
26af: d0 f3 bne L26A4
26b1: c6 aa dec $aa
26b3: 68 pla
26b4: 8d 06 be sta LBE05+1
26b7: 68 pla
26b8: 8d 05 be sta LBE05
26bb: 68 pla
26bc: 85 eb sta $eb
26be: 68 pla
26bf: 85 ea sta $ea
26c1: 68 pla
26c2: 85 a6 sta $a6
26c4: 68 pla
26c5: 85 a5 sta $a5
26c7: 68 pla
26c8: 85 a4 sta $a4
26ca: 4c 4a 26 jmp L264A
26cd: a5 aa L26CD lda $aa
26cf: 0a asl A
26d0: 69 6e adc #$6e
26d2: 85 01 sta $01
26d4: 69 01 adc #$01
26d6: 85 03 sta $03
26d8: a0 00 ldy #$00
26da: 60 rts
26db: a5 aa L26DB lda $aa
26dd: 0a asl A
26de: 0a asl A
26df: 0a asl A
26e0: 0a asl A
26e1: 85 e4 sta $e4
26e3: a0 00 ldy #$00
26e5: b1 ea lda ($ea),y
26e7: 29 0f and #$0f
26e9: aa tax
26ea: 05 e4 ora $e4
26ec: 91 a8 sta ($a8),y
26ee: c8 L26EE iny
26ef: b1 ea lda ($ea),y
26f1: 91 a8 sta ($a8),y
26f3: ca dex
26f4: d0 f8 bne L26EE
26f6: 20 f3 25 jsr L25F3
26f9: 8a txa
26fa: 81 a8 sta ($a8,x)
26fc: 60 rts
26fd: ad 21 be L26FD lda LBE21
2700: 38 sec
2701: ed 24 be sbc LBE24
2704: aa tax
2705: ad 22 be lda LBE21+1
2708: ed 25 be sbc LBE24+1
270b: 84 24 L270B sty MON_CH
270d: 85 d1 L270D sta $d1
270f: 86 d0 stx $d0
2711: a2 09 ldx #$09
2713: 86 0c stx $0c
2715: a0 b0 L2715 ldy #$b0
2717: a5 d0 lda $d0
2719: dd aa 22 L2719 cmp L22AB-1,x
271c: a5 d1 lda $d1
271e: fd ab 22 sbc L22AB,x
2721: 90 0c bcc L272F
2723: 85 d1 sta $d1
2725: a5 d0 lda $d0
2727: fd aa 22 sbc L22AB-1,x
272a: 85 d0 sta $d0
272c: c8 iny
272d: d0 ea bne L2719
272f: 98 L272F tya
2730: ca dex
2731: f0 0c beq L273F
2733: c9 b0 cmp #$b0
2735: f0 02 beq L2739
2737: 85 0c sta $0c
2739: 24 0c L2739 bit $0c
273b: 30 02 bmi L273F
273d: a9 a0 lda #$a0
273f: 20 41 2f L273F jsr L2F41
2742: ca dex
2743: 10 d0 bpl L2715
2745: 60 rts
2746: 20 36 15 L2746 jsr L1536
2749: a9 10 L2749 lda #$10
274b: 85 24 sta MON_CH
274d: a0 30 ldy #$30
274f: 20 19 2f jsr L2F19
2752: a9 cc L2752 lda #$cc
2754: 20 ed fd jsr MON_COUT
2757: 88 dey
2758: d0 f8 bne L2752
275a: 84 08 sty $08
275c: 20 0a 2f jsr L2F0A
275f: 4c 8e fd jmp MON_CROUT
2762: 8a L2762 txa
2763: e5 e4 sbc $e4
2765: aa tax
2766: a9 88 L2766 lda #$88
2768: 20 ed fd jsr MON_COUT
276b: ca dex
276c: d0 f8 bne L2766
276e: 60 rts
276f: a5 b0 L276F lda $b0
2771: 18 clc
2772: 69 10 adc #$10
2774: 85 b0 sta $b0
2776: 90 02 bcc L277A
2778: e6 b1 inc $b1
277a: b1 b0 L277A lda ($b0),y
277c: 60 rts
277d: a5 b0 L277D lda $b0
277f: 38 sec
2780: e9 10 sbc #$10
2782: 85 b0 sta $b0
2784: b0 02 bcs L2788
2786: c6 b1 dec $b1
2788: 60 L2788 rts
2789: ae 80 02 L2789 ldx $0280
278c: a9 2f lda #$2f
278e: 9d 81 02 sta $0281,x
2791: a0 00 ldy #$00
2793: b1 b0 lda ($b0),y
2795: 29 0f and #$0f
2797: 6d 80 02 adc $0280
279a: 8d 80 02 sta $0280
279d: e8 inx
279e: e8 L279E inx
279f: c8 iny
27a0: b1 b0 lda ($b0),y
27a2: 9d 80 02 sta $0280,x
27a5: ec 80 02 cpx $0280
27a8: 90 f4 bcc L279E
27aa: 60 rts
27ab: ae 80 02 L27AB ldx $0280
27ae: a9 2f lda #$2f
27b0: dd 80 02 L27B0 cmp $0280,x
27b3: f0 06 beq L27BB
27b5: ca dex
27b6: d0 f8 bne L27B0
27b8: 4c 15 08 jmp T0815
27bb: ca L27BB dex
27bc: 8e 80 02 stx $0280
27bf: 60 rts
27c0: 24 ec L27C0 bit $ec
27c2: 30 09 bmi L27CD
27c4: 2c 80 c0 bit LCBANK2_RW
27c7: 20 63 d6 jsr LD663
27ca: 2c 82 c0 bit ROMIN_RO
27cd: 4c 8e fd L27CD jmp MON_CROUT
27d0: 98 L27D0 tya
27d1: 48 pha
27d2: 20 87 22 jsr InHZ_PrintString2
27d5: 8d d0 ec e5+ .zstr $8d,“Please wait.”,$9d
27e4: 2c 83 c0 bit LCBANK2
27e7: 68 pla
27e8: a8 tay
27e9: b9 52 28 lda L2852,y
27ec: 20 d0 db jsr LDBD0
27ef: 2c 82 c0 bit ROMIN_RO
27f2: 20 7a 1c L27F2 jsr L1C7A
27f5: e6 08 inc $08
27f7: 20 7e 28 jsr L287E
27fa: 20 8a 29 jsr L298A
27fd: 20 99 17 L27FD jsr L1799
2800: 09 80 ora #$80
2802: aa tax
2803: a0 06 ldy #$06
2805: d9 4b 28 L2805 cmp L284B,y
2808: f0 c6 beq L27D0
280a: 88 dey
280b: 10 f8 bpl L2805
280d: e0 88 cpx #$88
280f: f0 04 beq L2815
2811: e0 8b cpx #$8b
2813: d0 1d bne L2832
2815: a5 08 L2815 lda $08
2817: d0 14 bne L282D
2819: a5 09 lda $09
281b: 85 08 L281B sta $08
281d: 20 59 28 L281D jsr L2859
2820: 20 7e 28 jsr L287E
2823: a5 08 lda $08
2825: 85 04 sta $04
2827: 20 7e 28 jsr L287E
282a: 4c fd 27 jmp L27FD
282d: c6 08 L282D dec $08
282f: 4c 1d 28 jmp L281D
2832: e0 95 L2832 cpx #$95
2834: f0 09 beq L283F
2836: e0 8a cpx #$8a
2838: f0 05 beq L283F
283a: e0 8d cpx #$8d
283c: d0 bf bne L27FD
283e: 60 rts
283f: e6 08 L283F inc $08
2841: a5 09 lda $09
2843: c5 08 cmp $08
2845: b0 d6 bcs L281D
2847: a9 00 lda #$00
2849: f0 d0 beq L281B
284b: d2 c1 d4 c3+ L284B .str “RATCMP”
2851: ff .dd1 $ff
2852: 00 L2852 .dd1 $00
2853: 00 .dd1 $00
2854: 80 .dd1 $80
2855: 40 .dd1 $40
2856: c0 .dd1 $c0
2857: 01 .dd1 $01
2858: 02 .dd1 $02
2859: ad 61 c0 L2859 lda BUTN0
285c: 05 96 ora $96
285e: 10 1d bpl L287D
2860: 20 64 2e L2860 jsr L2E64
2863: 85 01 sta $01
2865: a5 02 lda $02
2867: 85 00 sta $00
2869: a5 08 lda $08
286b: 20 66 2e jsr L2E66
286e: a0 27 L286E ldy #$27
2870: b1 00 L2870 lda ($00),y
2872: aa tax
2873: b1 02 lda ($02),y
2875: 91 00 sta ($00),y
2877: 8a txa
2878: 91 02 sta ($02),y
287a: 88 dey
287b: 10 f3 bpl L2870
287d: 60 L287D rts
287e: 20 57 1a L287E jsr L1A57
2881: a5 04 lda $04
2883: a2 00 ldx #$00
2885: 86 e4 stx $e4
2887: c5 b2 L2887 cmp $b2
2889: 90 05 bcc L2890
288b: e5 b2 sbc $b2
288d: e8 inx
288e: d0 f7 bne L2887
2890: 20 bc 2e L2890 jsr L2EBC
2893: a5 09 lda $09
2895: c5 b6 cmp $b6
2897: b0 21 bcs L28BA
2899: c5 b5 cmp $b5
289b: b0 18 bcs L28B5
289d: c5 b4 cmp $b4
289f: b0 0f bcs L28B0
28a1: c5 b3 cmp $b3
28a3: b0 06 bcs L28AB
28a5: 38 sec
28a6: bd 4b 29 lda L294B,x
28a9: 10 15 L28A9 bpl L28C0
28ab: bd 4d 29 L28AB lda L294D,x
28ae: 10 10 bpl L28C0
28b0: bd 51 29 L28B0 lda L2951,x
28b3: 10 0b bpl L28C0
28b5: bd 56 29 L28B5 lda L2956,x
28b8: 10 05 bpl L28BF
28ba: bd 5e 29 L28BA lda L295E,x
28bd: 66 e4 ror $e4
28bf: 18 L28BF clc
28c0: 66 e4 L28C0 ror $e4
28c2: 85 24 sta MON_CH
28c4: 20 64 2e jsr L2E64
28c7: b1 02 lda ($02),y
28c9: 29 0f and #$0f
28cb: f0 2c beq L28F9
28cd: 24 e4 bit $e4
28cf: 30 0e bmi L28DF
28d1: 50 06 bvc L28D9
28d3: c9 08 cmp #$08
28d5: 90 08 bcc L28DF
28d7: a9 07 lda #$07
28d9: c9 0a L28D9 cmp #$0a
28db: 90 02 bcc L28DF
28dd: a9 09 lda #$09
28df: aa L28DF tax
28e0: a0 27 ldy #$27
28e2: b1 02 lda ($02),y
28e4: 10 14 bpl L28FA
28e6: 20 19 2f jsr L2F19
28e9: a9 c4 lda #$c4
28eb: 24 e4 bit $e4
28ed: 30 02 bmi L28F1
28ef: a9 c5 lda #$c5
28f1: 20 ed fd L28F1 jsr MON_COUT
28f4: 20 0a 2f jsr L2F0A
28f7: d0 04 bne L28FD
28f9: 60 L28F9 rts
28fa: 20 2b 2f L28FA jsr L2F2B
28fd: a5 04 L28FD lda $04
28ff: a0 00 ldy #$00
2901: c5 08 cmp $08
2903: d0 02 bne L2907
2905: 46 32 lsr MON_INVFLAG
2907: c8 L2907 iny
2908: b1 02 lda ($02),y
290a: 20 41 2f jsr L2F41
290d: ca dex
290e: d0 f7 bne L2907
2910: f0 03 beq L2915
2912: 20 2b 2f L2912 jsr L2F2B
2915: c8 L2915 iny
2916: c0 08 cpy #$08
2918: 90 f8 bcc L2912
291a: 24 e4 bit $e4
291c: 30 06 bmi L2924
291e: 70 26 bvs L2946
2920: c0 0a cpy #$0a
2922: b0 22 bcs L2946
2924: c0 10 L2924 cpy #$10
2926: 90 ea bcc L2912
2928: a5 09 lda $09
292a: c5 b4 cmp $b4
292c: b0 18 bcs L2946
292e: 20 2b 2f jsr L2F2B
2931: b1 02 lda ($02),y
2933: 20 68 29 jsr L2968
2936: a5 09 lda $09
2938: c5 b3 cmp $b3
293a: b0 0a bcs L2946
293c: a0 22 ldy #$22
293e: 20 97 1e jsr L1E97
2941: a0 19 ldy #$19
2943: 20 97 1e jsr L1E97
2946: a2 ff L2946 ldx #$ff
2948: 4c 14 2f jmp L2F14
294b: 00 L294B .dd1 $00
294c: 28 .dd1 $28
294d: 00 L294D .dd1 $00
294e: 14 .dd1 $14
294f: 28 .dd1 $28
2950: 3c .dd1 $3c
2951: 00 L2951 .dd1 $00
2952: 10 .dd1 $10
2953: 20 .dd1 $20
2954: 30 .dd1 $30
2955: 40 .dd1 $40
2956: 00 L2956 .dd1 $00
2957: 0a .dd1 $0a
2958: 14 .dd1 $14
2959: 1e .dd1 $1e
295a: 28 32 3c 46 .str ‘(2<F’
295e: 00 L295E .dd1 $00
295f: 08 .dd1 $08
2960: 10 .dd1 $10
2961: 18 .dd1 $18
2962: 20 28 30 38+ .str ‘ (08@H’
2968: a0 77 L2968 ldy #$77
296a: d9 88 be L296A cmp LBE88,y
296d: d0 0d bne L297C
296f: a2 03 ldx #$03
2971: b9 85 be L2971 lda LBE85,y
2974: 20 ed fd jsr MON_COUT
2977: c8 iny
2978: ca dex
2979: d0 f6 bne L2971
297b: 60 rts
297c: 88 L297C dey
297d: 88 dey
297e: 88 dey
297f: 88 dey
2980: 10 e8 bpl L296A
2982: 48 pha
2983: 20 6c 2b jsr L2B6C
2986: 68 pla
2987: 4c da fd jmp MON_PRBYTE
298a: 20 87 22 L298A jsr InHZ_PrintString2
298d: 8d c1 bd e1+ .zstr $8d,“A=alpha, C/M=cre/mod date, T=type, P=T+A, R=reverse, ”,$9b
+ $8f,“A”
29c7: 20 0a 2f jsr L2F0A
29ca: 20 8c 22 jsr InHZ_PrintString3
29cd: ad e3 f5 f2+ .zstr “-cursor to move.”
29de: 60 rts
29df: 20 a6 15 L29DF jsr L15A6
29e2: a6 b2 ldx $b2
29e4: ca dex
29e5: ca dex
29e6: 86 de stx $de
29e8: 20 11 1a jsr L1A11
29eb: a9 00 lda #$00
29ed: 85 04 sta $04
29ef: 85 14 sta $14
29f1: aa tax
29f2: 20 66 2e jsr L2E66
29f5: b1 02 lda ($02),y
29f7: f0 49 beq L2A42
29f9: e8 L29F9 inx
29fa: 8a txa
29fb: 20 66 2e jsr L2E66
29fe: b1 02 lda ($02),y
2a00: d0 f7 bne L29F9
2a02: 86 09 stx $09
2a04: ae 80 bc ldx $bc80
2a07: c8 iny
2a08: c8 L2A08 iny
2a09: ca dex
2a0a: f0 09 beq L2A15
2a0c: b9 80 bc lda $bc80,y
2a0f: 29 7f and #$7f
2a11: c9 2f cmp #$2f
2a13: d0 f3 bne L2A08
2a15: ae 80 bc L2A15 ldx $bc80
2a18: 8c 80 bc sty $bc80
2a1b: 20 7e 09 jsr L097E
2a1e: 8e 80 bc stx $bc80
2a21: b0 55 bcs L2A78
2a23: 20 9d 2b jsr L2B9D
2a26: a5 04 L2A26 lda $04
2a28: 20 66 2e L2A28 jsr L2E66
2a2b: b1 02 lda ($02),y
2a2d: 29 0f and #$0f
2a2f: f0 0e beq L2A3F
2a31: 20 8e fd jsr MON_CROUT
2a34: 20 95 2a jsr L2A95
2a37: c6 de dec $de
2a39: f0 04 beq L2A3F
2a3b: e6 04 L2A3B inc $04
2a3d: d0 e7 bne L2A26
2a3f: 20 99 17 L2A3F jsr L1799
2a42: f0 34 L2A42 beq L2A78
2a44: 09 80 ora #$80
2a46: c9 a0 cmp #$a0
2a48: d0 04 bne L2A4E
2a4a: c5 95 cmp $95
2a4c: f0 2a beq L2A78
2a4e: c9 8b L2A4E cmp #$8b
2a50: f0 27 beq L2A79
2a52: 49 8a eor #$8a
2a54: 05 de ora $de
2a56: d0 e7 bne L2A3F
2a58: a5 b2 lda $b2
2a5a: 20 bc 2e jsr L2EBC
2a5d: a9 04 lda #$04
2a5f: 85 22 sta MON_WNDTOP
2a61: 20 8e fd jsr MON_CROUT
2a64: 20 8e fd jsr MON_CROUT
2a67: 20 87 2b jsr L2B87
2a6a: 20 96 2b jsr L2B96
2a6d: a5 b2 lda $b2
2a6f: 20 bc 2e jsr L2EBC
2a72: e6 14 inc $14
2a74: e6 de inc $de
2a76: d0 c3 bne L2A3B
2a78: 60 L2A78 rts
2a79: a5 14 L2A79 lda $14
2a7b: f0 c2 beq L2A3F
2a7d: c6 04 dec $04
2a7f: a5 de lda $de
2a81: 4a lsr A
2a82: d0 bb bne L2A3F
2a84: c6 14 dec $14
2a86: a9 01 lda #$01
2a88: 85 de sta $de
2a8a: 20 70 2b jsr L2B70
2a8d: 20 96 2b jsr L2B96
2a90: a5 14 lda $14
2a92: 4c 28 2a jmp L2A28
2a95: a0 1e L2A95 ldy #$1e
2a97: b1 02 lda ($02),y
2a99: 29 c3 and #$c3
2a9b: 49 c3 eor #$c3
2a9d: f0 03 beq L2AA2
2a9f: a9 aa lda #$aa
2aa1: 2c bit ▼ $a0a9
2aa2: a9 a0 L2AA2 lda #$a0
2aa4: 20 ed fd jsr MON_COUT
2aa7: a0 00 ldy #$00
2aa9: b1 02 lda ($02),y
2aab: 29 0f and #$0f
2aad: aa tax
2aae: c8 L2AAE iny
2aaf: b1 02 lda ($02),y
2ab1: 20 41 2f jsr L2F41
2ab4: ca dex
2ab5: d0 f7 bne L2AAE
2ab7: 20 2b 2f L2AB7 jsr L2F2B
2aba: c8 iny
2abb: c0 10 cpy #$10
2abd: 90 f8 bcc L2AB7
2abf: b1 02 lda ($02),y
2ac1: 48 pha
2ac2: 20 68 29 jsr L2968
2ac5: 20 2b 2f jsr L2F2B
2ac8: 20 ae 2b jsr L2BAE
2acb: a0 13 ldy #$13
2acd: b1 02 lda ($02),y
2acf: aa tax
2ad0: c8 iny
2ad1: b1 02 lda ($02),y
2ad3: 20 0d 27 jsr L270D
2ad6: 20 2b 2f jsr L2F2B
2ad9: a0 22 ldy #$22
2adb: 20 97 1e jsr L1E97
2ade: a0 21 ldy #$21
2ae0: 20 a7 2b jsr L2BA7
2ae3: f0 08 beq L2AED
2ae5: a0 24 ldy #$24
2ae7: 20 79 1e jsr L1E79
2aea: 20 2b 2f jsr L2F2B
2aed: a0 19 L2AED ldy #$19
2aef: 20 97 1e jsr L1E97
2af2: a0 18 ldy #$18
2af4: 20 a7 2b jsr L2BA7
2af7: f0 08 beq L2B01
2af9: a0 1b ldy #$1b
2afb: 20 79 1e jsr L1E79
2afe: 20 2b 2f jsr L2F2B
2b01: a0 18 L2B01 ldy #$18
2b03: 84 e4 sty $e4
2b05: 20 3f 2b jsr L2B3F
2b08: 20 3f 2b jsr L2B3F
2b0b: 20 3f 2b jsr L2B3F
2b0e: a2 01 ldx #$01
2b10: 24 e4 bit $e4
2b12: 30 01 bmi L2B15
2b14: e8 inx
2b15: 20 4a f9 L2B15 jsr MON_PRBL2
2b18: 68 pla
2b19: a0 03 ldy #$03
2b1b: d9 b2 2b L2B1B cmp L2BB3-1,y
2b1e: f0 03 beq L2B23
2b20: 88 dey
2b21: d0 f8 bne L2B1B
2b23: b9 b6 2b L2B23 lda L2BB6,y
2b26: 20 ed fd jsr MON_COUT
2b29: 88 dey
2b2a: 30 02 bmi L2B2E
2b2c: a9 bd lda #$bd
2b2e: 20 ed fd L2B2E jsr MON_COUT
2b31: 20 6c 2b jsr L2B6C
2b34: a0 1f ldy #$1f
2b36: b1 02 lda ($02),y
2b38: aa tax
2b39: c8 iny
2b3a: b1 02 lda ($02),y
2b3c: 4c 41 f9 jmp MON_PRNTAX
2b3f: 88 L2B3F dey
2b40: b1 02 lda ($02),y
2b42: 48 pha
2b43: 4a lsr A
2b44: 4a lsr A
2b45: 4a lsr A
2b46: 4a lsr A
2b47: 20 4d 2b jsr L2B4D
2b4a: 68 pla
2b4b: 29 0f and #$0f
2b4d: d0 07 L2B4D bne L2B56
2b4f: 24 e4 bit $e4
2b51: 30 03 bmi L2B56
2b53: 4c 2b 2f jmp L2F2B
2b56: 09 b0 L2B56 ora #$b0
2b58: c9 ba cmp #$ba
2b5a: 90 02 bcc L2B5E
2b5c: 69 06 adc #$06
2b5e: 24 e4 L2B5E bit $e4
2b60: 30 07 bmi L2B69
2b62: 85 e4 sta $e4
2b64: 20 6c 2b jsr L2B6C
2b67: a5 e4 lda $e4
2b69: 4c ed fd L2B69 jmp MON_COUT
2b6c: a9 a4 L2B6C lda #$a4
2b6e: d0 f9 bne L2B69
2b70: ad 0c c3 L2B70 lda $c30c
2b73: c9 87 cmp #$87
2b75: f0 15 beq L2B8C
2b77: a9 04 lda #$04
2b79: 85 22 sta MON_WNDTOP
2b7b: a9 96 lda #$96
2b7d: 20 ed fd jsr MON_COUT
2b80: c6 22 dec MON_WNDTOP
2b82: a9 99 lda #$99
2b84: 20 ed fd jsr MON_COUT
2b87: a9 00 L2B87 lda #$00
2b89: 85 22 sta MON_WNDTOP
2b8b: 60 rts
2b8c: 2c 80 c0 L2B8C bit LCBANK2_RW
2b8f: 20 bc d7 jsr LD7BC
2b92: 2c 82 c0 bit ROMIN_RO
2b95: 60 rts
2b96: ad 0c c3 L2B96 lda $c30c
2b99: c9 87 cmp #$87
2b9b: d0 09 bne L2BA6
2b9d: 2c 80 c0 L2B9D bit LCBANK2_RW
2ba0: 20 8e dc jsr LDC8E
2ba3: 2c 82 c0 bit ROMIN_RO
2ba6: 60 L2BA6 rts
2ba7: b1 02 L2BA7 lda ($02),y
2ba9: d0 fb bne L2BA6
2bab: a2 07 ldx #$07
2bad: 2c bit ▼ $02a2
2bae: a2 02 L2BAE ldx #$02
2bb0: 4c 4a f9 jmp MON_PRBL2
2bb3: 04 L2BB3 .dd1 $04
2bb4: 06 .dd1 $06
2bb5: f8 .dd1 $f8
2bb6: a0 d2 c1 cc L2BB6 .str “ RAL”
2bba: 20 c5 2e L2BBA jsr L2EC5
2bbd: 20 8e fd jsr MON_CROUT
2bc0: 4c 95 2a jmp L2A95
2bc3: a5 f2 T2BC3 lda cd_ext_flag
2bc5: 10 09 bpl T2BD0
2bc7: 2c 80 c0 bit LCBANK2_RW
2bca: 20 97 d7 jsr LD797
2bcd: 4c 00 44 jmp ExtMenu
2bd0: 20 57 22 T2BD0 jsr InHZ_PrintString1
2bd3: 23 d7 c9 d0+ .zstr $23,“WIPE VOLUME”,$8d,$8d
2be2: 20 49 27 jsr L2749
2be5: 20 8c 22 jsr InHZ_PrintString3
2be8: 8d 10 d6 ef+ .zstr $8d,$10,“Volume”
2bf1: 20 81 0e jsr L0E81
2bf4: a9 2f lda #$2f
2bf6: ae 80 bc ldx $bc80
2bf9: ca L2BF9 dex
2bfa: dd 80 bc cmp $bc80,x
2bfd: d0 fa bne L2BF9
2bff: ca dex
2c00: d0 ce bne T2BD0
2c02: 20 00 bf jsr P8_MLI
2c05: c4 .dd1 P8_GET_FILE_INFO
2c06: 1c be .dd2 LBE1C
2c08: b0 1a bcs L2C24
2c0a: 8d 0c be sta LBE0B+1
2c0d: 8d 00 37 sta $3700
2c10: ad 30 bf lda P8_DEVNUM
2c13: 8d 08 be sta LBE08
2c16: a9 02 lda #$02
2c18: 8d 0b be sta LBE0B
2c1b: 8d 00 36 sta $3600
2c1e: 4a lsr A
2c1f: 85 1a sta $1a
2c21: 20 48 20 jsr L2048
2c24: b0 68 L2C24 bcs L2C8E
2c26: 20 8c 22 jsr InHZ_PrintString3
2c29: 8d 8d c4 e5+ .zstr $8d,$8d,“Delete all files on ”
2c40: ad 04 b0 lda $b004
2c43: 29 0f and #$0f
2c45: aa tax
2c46: c8 L2C46 iny
2c47: b9 04 b0 lda $b004,y
2c4a: 20 41 2f jsr L2F41
2c4d: ca dex
2c4e: d0 f6 bne L2C46
2c50: 20 95 0d jsr L0D95
2c53: 90 36 bcc L2C8B
2c55: a2 03 ldx #$03
2c57: bd 27 b0 L2C57 lda $b027,x
2c5a: 95 00 sta $00,x
2c5c: ca dex
2c5d: 10 f8 bpl L2C57
2c5f: a6 03 ldx $03
2c61: a5 02 lda $02
2c63: 0a asl A
2c64: 85 0c sta $0c
2c66: 29 0e and #$0e
2c68: 85 0b sta $0b
2c6a: a9 00 lda #$00
2c6c: 8d 25 b0 sta $b025
2c6f: 8d 26 b0 sta $b026
2c72: 8a txa
2c73: 85 e4 sta $e4
2c75: 29 0f and #$0f
2c77: 05 02 ora $02
2c79: c9 01 cmp #$01
2c7b: 08 php
2c7c: a5 03 lda $03
2c7e: 4a lsr A
2c7f: 4a lsr A
2c80: 4a lsr A
2c81: 4a lsr A
2c82: 28 plp
2c83: 69 00 adc #$00
2c85: 85 04 sta $04
2c87: a0 2b ldy #$2b
2c89: d0 1e bne L2CA9
2c8b: 4c 15 08 L2C8B jmp T0815
2c8e: 4c 2d 11 L2C8E jmp L112D
2c91: 8d 0b be L2C91 sta LBE0B
2c94: 8e 0c be stx LBE0B+1
2c97: a4 1a ldy $1a
2c99: e6 1a inc $1a
2c9b: 99 00 36 sta $3600,y
2c9e: 8a txa
2c9f: 99 00 37 sta $3700,y
2ca2: 20 48 20 jsr L2048
2ca5: b0 e7 bcs L2C8E
2ca7: a0 04 ldy #$04
2ca9: a9 00 L2CA9 lda #$00
2cab: 99 00 b0 L2CAB sta $b000,y
2cae: c8 iny
2caf: d0 fa bne L2CAB
2cb1: 99 00 b1 L2CB1 sta $b100,y
2cb4: c8 iny
2cb5: d0 fa bne L2CB1
2cb7: 20 3a 20 jsr L203A
2cba: b0 d2 L2CBA bcs L2C8E
2cbc: ad 02 b0 lda $b002
2cbf: ae 03 b0 ldx $b003
2cc2: d0 cd bne L2C91
2cc4: a8 tay
2cc5: d0 ca bne L2C91
2cc7: a5 00 lda $00
2cc9: 8d 0b be sta LBE0B
2ccc: a5 01 lda $01
2cce: 8d 0c be sta LBE0B+1
2cd1: a2 03 ldx #$03
2cd3: 46 03 L2CD3 lsr $03
2cd5: 66 02 ror $02
2cd7: ca dex
2cd8: d0 f9 bne L2CD3
2cda: a5 0b lda $0b
2cdc: f0 06 beq L2CE4
2cde: e6 02 inc $02
2ce0: d0 02 bne L2CE4
2ce2: e6 03 inc $03
2ce4: a9 00 L2CE4 lda #$00
2ce6: a8 tay
2ce7: 99 00 b0 L2CE7 sta $b000,y
2cea: 99 00 b1 sta $b100,y
2ced: c8 iny
2cee: d0 f7 bne L2CE7
2cf0: 85 d0 sta $d0
2cf2: a9 b0 lda #$b0
2cf4: 85 d1 sta $d1
2cf6: a9 ff L2CF6 lda #$ff
2cf8: 91 d0 sta ($d0),y
2cfa: 20 67 2d jsr L2D67
2cfd: f0 0c beq L2D0B
2cff: c8 iny
2d00: d0 f4 bne L2CF6
2d02: e6 d1 inc $d1
2d04: a5 d1 lda $d1
2d06: 4a lsr A
2d07: b0 ed bcs L2CF6
2d09: 90 09 bcc L2D14
2d0b: a5 0b L2D0B lda $0b
2d0d: 4a lsr A
2d0e: aa tax
2d0f: bd 8d 2d lda L2D8D,x
2d12: 91 d0 sta ($d0),y
2d14: 20 96 2d L2D14 jsr L2D96
2d17: 20 3a 20 jsr L203A
2d1a: b0 9e bcs L2CBA
2d1c: ee 0b be inc LBE0B
2d1f: d0 03 bne L2D24
2d21: ee 0c be inc LBE0B+1
2d24: 20 6f 2d L2D24 jsr L2D6F
2d27: d0 bb bne L2CE4
2d29: a5 00 lda $00
2d2b: 8d 0b be sta LBE0B
2d2e: a5 01 lda $01
2d30: 8d 0c be sta LBE0B+1
2d33: 20 48 20 jsr L2048
2d36: b0 82 L2D36 bcs L2CBA
2d38: ad 00 b0 lda $b000
2d3b: 29 01 and #$01
2d3d: 8d 00 b0 sta $b000
2d40: a4 1a ldy $1a
2d42: 88 L2D42 dey
2d43: be 00 37 ldx $3700,y
2d46: b9 00 36 lda $3600,y
2d49: 20 74 2d jsr L2D74
2d4c: d0 f4 bne L2D42
2d4e: a5 00 L2D4E lda $00
2d50: a6 01 ldx $01
2d52: 20 74 2d jsr L2D74
2d55: e6 00 inc $00
2d57: d0 02 bne L2D5B
2d59: e6 01 inc $01
2d5b: c6 04 L2D5B dec $04
2d5d: d0 ef bne L2D4E
2d5f: 20 3a 20 jsr L203A
2d62: b0 d2 bcs L2D36
2d64: 4c 15 08 jmp T0815
2d67: a5 02 L2D67 lda $02
2d69: d0 02 bne L2D6D
2d6b: c6 03 dec $03
2d6d: c6 02 L2D6D dec $02
2d6f: a5 02 L2D6F lda $02
2d71: 05 03 ora $03
2d73: 60 rts
2d74: 2c 83 c0 L2D74 bit LCBANK2
2d77: 20 68 dc jsr LDC68
2d7a: 2c 82 c0 bit ROMIN_RO
2d7d: b0 01 bcs L2D80
2d7f: 60 rts
2d80: a9 27 L2D80 lda #$27
2d82: 4c 2d 11 jmp L112D
2d85: 7f L2D85 .dd1 $7f
2d86: bf df ef f7+ .str “?_ow{}~”
2d8d: ff L2D8D .dd1 $ff
2d8e: 80 .dd1 $80
2d8f: c0 e0 f0 f8+ .str “@`px|~”
2d95: ff .dd1 $ff
2d96: a0 00 L2D96 ldy #$00
2d98: ad 08 be lda LBE08
2d9b: 0a asl A
2d9c: 29 e0 and #$e0
2d9e: 49 60 eor #$60
2da0: d0 2f bne L2DD1
2da2: a9 ff lda #$ff
2da4: b0 2c bcs L2DD2
2da6: cd 17 bf cmp P8_DEVADR01+7
2da9: d0 26 bne L2DD1
2dab: a9 3e lda #$3e
2dad: a6 0c ldx $0c
2daf: d0 20 bne L2DD1
2db1: ae 16 bf ldx P8_DEVADR01+6
2db4: e0 05 cpx #$05
2db6: d0 19 bne L2DD1
2db8: 85 10 sta $10
2dba: b9 00 b0 L2DBA lda $b000,y
2dbd: 25 10 and $10
2dbf: 99 00 b0 sta $b000,y
2dc2: b9 00 b1 lda $b100,y
2dc5: 25 10 and $10
2dc7: 99 00 b1 sta $b100,y
2dca: 98 tya
2dcb: 18 clc
2dcc: 69 10 adc #$10
2dce: a8 tay
2dcf: d0 e9 bne L2DBA
2dd1: 60 L2DD1 rts
2dd2: cd 27 bf L2DD2 cmp P8_DEVADR01+23
2dd5: d0 fa bne L2DD1
2dd7: a6 00 ldx $00
2dd9: e0 03 cpx #$03
2ddb: d0 f4 bne L2DD1
2ddd: 8c 00 b0 sty $b000
2de0: 60 rts
2de1: ad 25 2e L2DE1 lda L2E25
2de4: f0 21 beq L2E07
2de6: 20 08 2e jsr L2E08
2de9: b0 1c bcs L2E07
2deb: ee 31 bf inc P8_DEVCNT
2dee: ac 31 bf ldy P8_DEVCNT
2df1: b9 31 bf L2DF1 lda P8_DEVCNT,y
2df4: 99 32 bf sta P8_DEVLST,y
2df7: 88 dey
2df8: d0 f7 bne L2DF1
2dfa: 8c 26 bf sty P8_DEVADR01+22
2dfd: 88 dey
2dfe: 8c 27 bf sty P8_DEVADR01+23
2e01: ad 25 2e lda L2E25
2e04: 8d 32 bf sta P8_DEVLST
2e07: 60 L2E07 rts
2e08: 29 f0 L2E08 and #$f0
2e0a: 85 43 sta MON_A4H
2e0c: a0 00 ldy #$00
2e0e: 84 44 sty MON_A5L
2e10: a9 ac lda #$ac
2e12: 85 45 sta MON_A5H
2e14: a9 03 lda #$03
2e16: 85 42 sta MON_A4L
2e18: 2c 8b c0 bit LCBANK1
2e1b: 2c 8b c0 bit LCBANK1
2e1e: 20 00 ff jsr $ff00
2e21: 2c 82 c0 bit ROMIN_RO
2e24: 60 rts
2e25: 00 L2E25 .dd1 $00
2e26: 2c 80 c0 L2E26 bit LCBANK2_RW
2e29: 20 58 d7 jsr LD758
2e2c: 2c 82 c0 bit ROMIN_RO
2e2f: 88 dey
2e30: 84 08 sty $08
2e32: 24 d7 bit $d7
2e34: 30 03 bmi L2E39
2e36: 20 7a 1c jsr L1C7A
2e39: a9 ff L2E39 lda #$ff
2e3b: 85 08 sta $08
2e3d: 20 c5 2e jsr L2EC5
2e40: 20 7e 28 jsr L287E
2e43: a6 1d L2E43 ldx $1d
2e45: 8a L2E45 txa
2e46: 20 66 2e jsr L2E66
2e49: a0 27 ldy #$27
2e4b: b1 02 lda ($02),y
2e4d: d0 05 bne L2E54
2e4f: 8a txa
2e50: ca dex
2e51: a8 tay
2e52: d0 f1 bne L2E45
2e54: 60 L2E54 rts
2e55: 2c 80 c0 L2E55 bit LCBANK2_RW
2e58: 20 98 d6 jsr LD698
2e5b: 2c 82 c0 bit ROMIN_RO
2e5e: 20 8e fd jsr MON_CROUT
2e61: 4c 49 27 jmp L2749
2e64: a5 04 L2E64 lda $04
2e66: a0 00 L2E66 ldy #$00
2e68: 84 03 sty $03
2e6a: 0a asl A
2e6b: 85 02 sta $02
2e6d: 08 php
2e6e: 26 03 rol $03
2e70: 0a asl A
2e71: 26 03 rol $03
2e73: 0a asl A
2e74: 26 03 rol $03
2e76: 65 02 adc $02
2e78: 85 02 sta $02
2e7a: 98 tya
2e7b: 65 03 adc $03
2e7d: 28 plp
2e7e: 69 00 adc #$00
2e80: 06 02 asl $02
2e82: 2a rol A
2e83: 06 02 asl $02
2e85: 2a rol A
2e86: 69 70 adc #$70
2e88: 85 03 sta $03
2e8a: 60 rts
2e8b: a0 00 L2E8B ldy #$00
2e8d: 84 01 sty $01
2e8f: 0a asl A
2e90: 85 00 sta $00
2e92: 08 php
2e93: 26 01 rol $01
2e95: 0a asl A
2e96: 26 01 rol $01
2e98: 0a asl A
2e99: 26 01 rol $01
2e9b: 65 00 adc $00
2e9d: 85 00 sta $00
2e9f: 98 tya
2ea0: 65 01 adc $01
2ea2: 28 plp
2ea3: 69 00 adc #$00
2ea5: 06 00 asl $00
2ea7: 2a rol A
2ea8: 06 00 asl $00
2eaa: 2a rol A
2eab: 69 90 adc #$90
2ead: 85 01 sta $01
2eaf: 60 L2EAF rts
2eb0: 48 L2EB0 pha
2eb1: 20 57 1a jsr L1A57
2eb4: 68 pla
2eb5: 85 24 sta MON_CH
2eb7: a9 17 lda #$17
2eb9: 18 clc
2eba: 65 ba adc $ba
2ebc: 85 25 L2EBC sta MON_CV
2ebe: c9 18 cmp #$18
2ec0: b0 ed bcs L2EAF
2ec2: 4c 5b fb jmp MON_TABV
2ec5: a9 15 L2EC5 lda #$15
2ec7: 20 bc 2e jsr L2EBC
2eca: 20 8e fd jsr MON_CROUT
2ecd: a5 37 lda MON_CSWH
2ecf: c5 bd cmp $bd
2ed1: f0 dc beq L2EAF
2ed3: a5 b7 lda $b7
2ed5: 20 bc 2e jsr L2EBC
2ed8: 20 8e fd jsr MON_CROUT
2edb: a9 8b lda #$8b
2edd: 4c ed fd jmp MON_COUT
2ee0: 20 84 10 L2EE0 jsr L1084
2ee3: 20 5d 1c jsr L1C5D
2ee6: a5 03 lda $03
2ee8: c9 90 cmp #$90
2eea: b0 1b bcs L2F07
2eec: a9 ff lda #$ff
2eee: 85 d4 sta $d4
2ef0: a9 c0 lda #$c0
2ef2: 85 0e sta $0e
2ef4: 8d 1d be sta LBE1D
2ef7: 20 84 10 jsr L1084
2efa: 20 4e 1c jsr L1C4E
2efd: 2c 80 c0 bit LCBANK2_RW
2f00: 20 97 d7 jsr LD797
2f03: 2c 82 c0 bit ROMIN_RO
2f06: 60 rts
2f07: 4c 54 11 L2F07 jmp L1154
2f0a: a9 98 L2F0A lda #$98
2f0c: 20 ed fd jsr MON_COUT
2f0f: a9 8e lda #$8e
2f11: 20 ed fd jsr MON_COUT
2f14: a9 ff L2F14 lda #$ff
2f16: 85 32 sta MON_INVFLAG
2f18: 60 rts
2f19: a9 9b L2F19 lda #$9b
2f1b: 20 ed fd jsr MON_COUT
2f1e: a9 8f lda #$8f
2f20: 30 0b L2F20 bmi L2F2D
2f22: 85 24 sta MON_CH
2f24: 60 L2F24 rts
2f25: 20 db 1e L2F25 jsr L1EDB
2f28: a9 ba lda #$ba
2f2a: 2c bit ▼ $a0a9
2f2b: a9 a0 L2F2B lda #$a0
2f2d: c5 e7 L2F2D cmp $e7
2f2f: f0 f3 beq L2F24
2f31: 29 7f and #$7f
2f33: d0 0c bne L2F41
2f35: a0 0a ldy #$0a
2f37: b9 61 2f L2F37 lda L2F62-1,y
2f3a: 20 41 2f jsr L2F41
2f3d: 88 dey
2f3e: d0 f7 bne L2F37
2f40: 60 rts
2f41: 09 80 L2F41 ora #$80
2f43: 24 fe bit $fe
2f45: 30 0d bmi L2F54
2f47: 48 pha
2f48: a6 fe ldx $fe
2f4a: 9d 00 30 sta $3000,x
2f4d: 98 tya
2f4e: 9d 01 30 sta $3001,x
2f51: e6 fe inc $fe
2f53: 68 pla
2f54: 2c 00 d0 L2F54 bit LD000
2f57: 30 03 bmi L2F5C
2f59: 4c ed fd jmp MON_COUT
2f5c: 48 L2F5C pha
2f5d: 20 76 22 jsr L2276
2f60: 68 pla
2f61: 60 rts
2f62: f9 f2 ef f4+ L2F62 .rstr “ directory”
2f6c: ae 80 be L2F6C ldx LBE80
2f6f: 20 a8 fc L2F6F jsr MON_WAIT
2f72: ca dex
2f73: d0 fa bne L2F6F
2f75: 60 rts
.adrend ↑ $0800
499d: src_499d
.addrs $be00
be00: 70 LBE00 .dd1 $70
be01: 03 LBE01 .dd1 3
be02: 70 LBE02 .dd1 $70
be03: 00 36 LBE03 .dd2 $3600
be05: 02 00 LBE05 .dd2 $0002
be07: 03 LBE07 .dd1 3
be08: 70 LBE08 .dd1 $70
be09: 00 b0 .dd2 $b000
be0b: 00 00 LBE0B .dd2 $0000
be0d: 02 LBE0D .dd1 2
be0e: b0 LBE0E .dd1 $b0
be0f: c0 02 .dd2 $02c0
be11: 02 LBE11 .dd1 2
be12: 00 .dd1 $00
be13: 00 36 .dd2 $3600
be15: 04 LBE15 .dd1 4
be16: 00 .dd1 $00
be17: 00 00 .dd2 $0000
be19: 00 .dd1 $00
be1a: 00 00 .dd2 $0000
be1c: 0a LBE1C .dd1 10
be1d: 80 bc LBE1D .dd2 $bc80
be1f: 00 .dd1 $00
be20: 00 LBE20 .dd1 $00
be21: 00 00 LBE21 .dd2 $0000
be23: 00 LBE23 .dd1 $00
be24: 00 00 LBE24 .dd2 $0000
be26: 00 00 .dd2 $0000
be28: 00 00 .dd2 $0000
be2a: 00 00 .dd2 $0000
be2c: 00 00 .dd2 $0000
be2e: 0a LBE2E .dd1 10
be2f: 40 bd .dd2 $bd40
be31: 00 LBE31 .dd1 $00
be32: 00 .dd1 $00
be33: 00 00 .dd2 $0000
be35: 00 .dd1 $00
be36: 00 00 .dd2 $0000
be38: 00 00 .dd2 $0000
be3a: 00 00 .dd2 $0000
be3c: 00 00 .dd2 $0000
be3e: 00 00 .dd2 $0000
be40: 0a LBE40 .dd1 10
be41: 80 bd .dd2 $bd80
be43: 00 LBE43 .dd1 $00
be44: 00 LBE44 .dd1 $00
be45: 00 00 LBE45 .dd2 $0000
be47: 00 .dd1 $00
be48: 00 00 .dd2 $0000
be4a: 00 00 LBE4A .dd2 $0000
be4c: 00 00 .dd2 $0000
be4e: 00 00 .dd2 $0000
be50: 00 00 .dd2 $0000
be52: 02 LBE52 .dd1 2
be53: 00 LBE53 .dd1 0
be54: 00 00 00 LBE54 .dd3 $000000
be57: 03 LBE57 .dd1 3
be58: 80 bd .dd2 $bd80
be5a: 00 b4 .dd2 $b400
be5c: 00 LBE5C .dd1 0
be5d: 01 LBE5D .dd1 1
be5e: 00 LBE5E .dd1 0
be5f: 04 LBE5F .dd1 4
be60: 00 LBE60 .dd1 0
be61: 00 36 LBE61 .dd2 $3600
be63: 00 00 LBE63 .dd2 $0000
be65: 00 00 .dd2 $0000
be67: 07 LBE67 .dd1 7
be68: 80 bd .dd2 $bd80
be6a: c3 .dd1 $c3
be6b: 00 LBE6B .dd1 $00
be6c: 00 00 LBE6C .dd2 $0000
be6e: 01 LBE6E .dd1 $01
be6f: 00 00 LBE6F .dd2 $0000
be71: 00 00 .dd2 $0000
be73: 01 LBE73 .dd1 1
be74: 40 bd .dd2 $bd40
be76: 01 LBE76 .dd1 1
be77: 80 bd .dd2 $bd80
be79: 02 LBE79 .dd1 2
be7a: 40 bd .dd2 $bd40
be7c: c0 bc .dd2 $bcc0
.adrend ↑ $be00
4a1b: src_4a1b
.addrs $d000
d000: a2 0d LD000 ldx #$0d
d002: ca LD002 dex
d003: 30 1d bmi LD022
d005: dd 23 d0 cmp LD023,x
d008: d0 f8 bne LD002
d00a: a9 a0 lda #$a0
d00c: 20 67 22 jsr L2267
d00f: bc 30 d0 ldy LD030,x
d012: b9 00 d0 LD012 lda LD000,y
d015: f0 0b beq LD022
d017: 30 03 bmi LD01C
d019: a8 tay
d01a: d0 f6 bne LD012
d01c: 20 67 22 LD01C jsr L2267
d01f: c8 iny
d020: d0 f0 bne LD012
d022: 60 LD022 rts
d023: 27 28 2b 40+ LD023 .str ‘'(+@DEFGHIJQZ’
d030: 5b 65 6c 7c LD030 .str ‘[el|’
d034: 8d .dd1 $8d
d035: 97 .dd1 $97
d036: 9e .dd1 $9e
d037: a3 b6 c2 d8+ .str “#6BXoy not found”
d047: 00 .dd1 $00
d048: a0 f3 f4 f2+ .str “ structure damaged”
d05a: 00 .dd1 $00
d05b: c9 af cf a0+ .str “I/O error”
d064: 00 .dd1 $00
d065: c4 e5 f6 e9+ .str “Device”
d06b: 3d .dd1 $3d
d06c: d7 f2 e9 f4+ .str “Write protected”
d07b: 00 .dd1 $00
d07c: c9 ee f6 e1+ .str “Invalid pathname”
d08c: 00 .dd1 $00
d08d: c4 e9 f2 e5+ .str “Directory”
d096: 3d .dd1 $3d
d097: d6 ef ec f5+ .str “Volume”
d09d: 3d .dd1 $3d
d09e: c6 e9 ec e5 .str “File”
d0a2: 3d .dd1 $3d
d0a3: c4 f5 f0 ec+ .str “Duplicate filename”
d0b5: 00 .dd1 $00
d0b6: d6 ef ec f5+ .str “Volume full”
d0c1: 00 .dd1 $00
d0c2: d6 ef ec f5+ .str “Volume directory full”
d0d7: 00 .dd1 $00
d0d8: c9 ee e3 ef+ .str “Incompatible file type”
d0ee: 00 .dd1 $00
d0ef: c4 e9 f2 e5+ .str “Directory”
d0f8: 48 .dd1 $48
d0f9: c6 e9 ec e5 .str “File”
d0fd: 48 .dd1 $48
.adrend ↑ $d000
4b19: src_4b19
.addrs $d400
d400: 38 unref_d400? sec
d401: 60 rts
d402: b0 1a LD402 bcs LD41E
d404: ad c0 02 lda $02c0
d407: 29 0f and #$0f
d409: aa tax
d40a: e8 inx
d40b: 8e 80 bc stx $bc80
d40e: 8e c0 bc stx $bcc0
d411: ca dex
d412: bd c0 02 LD412 lda $02c0,x
d415: 9d 81 bc sta $bc81,x
d418: 9d c1 bc sta $bcc1,x
d41b: ca dex
d41c: d0 f4 bne LD412
d41e: a9 2f LD41E lda #$2f
d420: 8d 81 bc sta $bc81
d423: 8d c1 bc sta $bcc1
d426: ad 81 be lda LBE81
d429: 85 e7 sta $e7
d42b: ad 82 be lda LBE82
d42e: 85 e9 sta $e9
d430: ad 98 bf lda P8_MACHID
d433: 29 88 and #$88
d435: aa tax
d436: d0 31 bne LD469
d438: a9 20 lda #$20
d43a: aa tax
d43b: 85 01 sta $01
d43d: a0 00 ldy #$00
d43f: 84 00 sty $00
d441: 84 02 sty $02
d443: 0a asl A
d444: 85 03 sta $03
d446: 20 5a d4 jsr LD45A
d449: 20 69 d4 jsr LD469
d44c: a9 20 lda #$20
d44e: aa tax
d44f: 85 03 sta $03
d451: a0 00 ldy #$00
d453: 84 00 sty $00
d455: 84 02 sty $02
d457: 0a asl A
d458: 85 01 sta $01
d45a: b1 00 LD45A lda ($00),y
d45c: 91 02 sta ($02),y
d45e: c8 iny
d45f: d0 f9 bne LD45A
d461: e6 03 inc $03
d463: e6 01 inc $01
d465: ca dex
d466: d0 f2 bne LD45A
d468: 60 rts
d469: a2 07 LD469 ldx #$07
d46b: a9 00 lda #$00
d46d: 85 90 sta $90
d46f: a9 c7 lda #$c7
d471: 85 91 sta $91
d473: a0 0c LD473 ldy #$0c
d475: b1 90 lda ($90),y
d477: c9 20 cmp #$20
d479: d0 08 bne LD483
d47b: a0 fb ldy #$fb
d47d: b1 90 lda ($90),y
d47f: c9 d6 cmp #$d6
d481: f0 08 beq LD48B
d483: c6 91 LD483 dec $91
d485: ca dex
d486: d0 eb bne LD473
d488: 86 91 stx $91
d48a: 60 rts
d48b: a5 91 LD48B lda $91
d48d: 8d 48 0a sta L0A46+2
d490: a0 19 ldy #$19
d492: 20 aa d4 jsr LD4AA
d495: a9 01 lda #$01
d497: 20 a8 d4 jsr LD4A8
d49a: a0 15 ldy #$15
d49c: 2c bit ▼ L16A0
d49d: a0 16 LD49D ldy #$16
d49f: 20 aa d4 jsr LD4AA
d4a2: a0 14 ldy #$14
d4a4: d0 04 LD4A4 bne LD4AA
d4a6: a9 00 LD4A6 lda #$00
d4a8: a0 12 LD4A8 ldy #$12
d4aa: 48 LD4AA pha
d4ab: b1 90 lda ($90),y
d4ad: 8d 47 0a sta L0A46+1
d4b0: 68 pla
d4b1: 48 LD4B1 pha
d4b2: a5 91 lda $91
d4b4: aa tax
d4b5: 0a asl A
d4b6: 0a asl A
d4b7: 0a asl A
d4b8: 0a asl A
d4b9: a8 tay
d4ba: 68 pla
d4bb: 4c 43 0a jmp L0A43
d4be: a4 91 LD4BE ldy $91
d4c0: 10 14 bpl LD4D6
d4c2: a9 80 lda #$80
d4c4: 99 38 04 sta $0438,y
d4c7: 99 b8 03 sta $03b8,y
d4ca: 0a asl A
d4cb: 99 38 05 sta $0538,y
d4ce: 99 b8 04 sta $04b8,y
d4d1: 99 b8 06 sta $06b8,y
d4d4: f0 c7 beq LD49D
d4d6: 60 LD4D6 rts
d4d7: a5 91 LD4D7 lda $91
d4d9: 10 03 bpl LD4DE
d4db: 20 a6 d4 jsr LD4A6
d4de: 60 LD4DE rts
d4df: a9 ff LD4DF lda #$ff
d4e1: 85 98 sta $98
d4e3: a9 00 lda #$00
d4e5: 85 97 sta $97
d4e7: a9 80 lda #$80
d4e9: 2c bit: ▼ $00a9
d4ea: a9 00 LD4EA lda #$00
d4ec: 85 96 sta $96
d4ee: 85 94 sta $94
d4f0: 85 95 sta $95
d4f2: 86 92 stx $92
d4f4: 84 93 sty $93
d4f6: 20 be d4 jsr LD4BE
d4f9: ad 00 c0 LD4F9 lda KBD
d4fc: 30 67 bmi LD565
d4fe: a6 92 ldx $92
d500: d0 14 bne LD516
d502: 2c 62 c0 bit BUTN1
d505: 10 0f bpl LD516
d507: 24 ec bit $ec
d509: 30 0b bmi LD516
d50b: 20 d0 d5 jsr LD5D0
d50e: 20 05 18 jsr L1805
d511: 20 39 d6 jsr LD639
d514: d0 4f bne LD565
d516: a5 91 LD516 lda $91
d518: 10 61 bpl LD57B
d51a: 20 86 d5 jsr LD586
d51d: 20 b1 d4 jsr LD4B1
d520: a4 91 ldy $91
d522: b9 b8 06 lda $06b8,y
d525: 85 96 sta $96
d527: b9 38 04 lda $0438,y
d52a: c9 8c cmp #$8c
d52c: b0 2c bcs LD55A
d52e: c9 86 cmp #$86
d530: b0 2b bcs LD55D
d532: c9 75 cmp #$75
d534: 90 2a bcc LD560
d536: c9 7b cmp #$7b
d538: 90 29 bcc LD563
d53a: b9 b8 03 lda $03b8,y
d53d: c5 98 cmp $98
d53f: b0 16 bcs LD557
d541: c5 97 cmp $97
d543: 90 0f bcc LD554
d545: a5 96 lda $96
d547: 10 2e bpl LD577
d549: 0a asl A
d54a: 30 2c bmi LD578
d54c: 0a asl A
d54d: 30 aa bmi LD4F9
d54f: a9 a0 lda #$a0
d551: 85 95 sta $95
d553: 2c bit ▼ $88a9
d554: a9 88 LD554 lda #$88
d556: 2c bit ▼ $95a9
d557: a9 95 LD557 lda #$95
d559: 2c bit ▼ T0AA9
d55a: a9 0a LD55A lda #$0a
d55c: 2c bit ▼ $8aa9
d55d: a9 8a LD55D lda #$8a
d55f: 2c bit ▼ L0BA8+1
d560: a9 0b LD560 lda #$0b
d562: 2c bit ▼ $8ba9
d563: a9 8b LD563 lda #$8b
d565: 2c 10 c0 LD565 bit KBDSTRB
d568: c9 ff cmp #$ff
d56a: f0 06 beq LD572
d56c: c9 e0 cmp #$e0
d56e: 90 02 bcc LD572
d570: 29 df and #$df
d572: a6 92 LD572 ldx $92
d574: a4 93 ldy $93
d576: 60 rts
d577: 0a LD577 asl A
d578: 0a LD578 asl A
d579: 30 04 bmi LD57F
d57b: 06 94 LD57B asl $94
d57d: b0 03 bcs LD582
d57f: 4c f9 d4 LD57F jmp LD4F9
d582: a9 01 LD582 lda #$01
d584: 10 ec bpl LD572
d586: a2 30 LD586 ldx #$30
d588: 38 LD588 sec
d589: e9 01 sbc #$01
d58b: d0 fb bne LD588
d58d: ca dex
d58e: d0 f8 bne LD588
d590: 60 rts
d591: 20 8c 22 LD591 jsr InHZ_PrintString3
d594: 99 8d 8d 03+ .zstr $99,$8d,$8d,$03,“Slot”,$09,“Drive”,$11,“Volume name”
d5af: a5 08 lda $08
d5b1: 10 1c bpl LD5CF
d5b3: 20 8c 22 jsr InHZ_PrintString3
d5b6: 22 c6 f2 e5+ .zstr $22,“Free”,$28,“Used”,$2e,“Total”,$35,“Created”
d5cf: 60 LD5CF rts
d5d0: 20 8c 22 LD5D0 jsr InHZ_PrintString3
d5d3: 88 88 88 88+ .zstr $88,$88,$88,$88,$88,$88,$88,$88,$88,$88,$88,$88,$9d,“Slot: ”
d5e7: ad 30 bf lda P8_DEVNUM
d5ea: 4a lsr A
d5eb: 4a lsr A
d5ec: 4a lsr A
d5ed: 4a lsr A
d5ee: 29 07 and #$07
d5f0: 09 b0 ora #$b0
d5f2: 85 f1 sta $f1
d5f4: 20 13 18 LD5F4 jsr L1813
d5f7: 49 b0 eor #$b0
d5f9: c9 08 cmp #$08
d5fb: b0 f7 bcs LD5F4
d5fd: 48 pha
d5fe: 09 b0 ora #$b0
d600: 20 76 22 jsr L2276
d603: 68 pla
d604: 0a asl A
d605: 0a asl A
d606: 0a asl A
d607: 0a asl A
d608: 0a asl A
d609: 8d 0e be sta LBE0E
d60c: 20 8c 22 jsr InHZ_PrintString3
d60f: ac a0 e4 f2+ .zstr “, drive: ”
d619: ad 30 bf lda P8_DEVNUM
d61c: 0a asl A
d61d: 98 tya
d61e: 69 b1 adc #$b1
d620: 85 f1 sta $f1
d622: 20 13 18 LD622 jsr L1813
d625: 49 b3 eor #$b3
d627: f0 f9 beq LD622
d629: c9 03 cmp #$03
d62b: b0 f5 bcs LD622
d62d: 48 pha
d62e: 49 b3 eor #$b3
d630: 20 76 22 jsr L2276
d633: 68 pla
d634: 4a lsr A
d635: 6e 0e be ror LBE0E
d638: 60 rts
d639: ad c0 02 LD639 lda $02c0
d63c: 29 0f and #$0f
d63e: a8 tay
d63f: 85 92 sta $92
d641: b9 c0 02 LD641 lda $02c0,y
d644: 99 80 02 sta $0280,y
d647: 88 dey
d648: d0 f7 bne LD641
d64a: a9 3f lda #$3f
d64c: 60 rts
d64d: a2 40 LD64D ldx #$40
d64f: a0 00 ldy #$00
d651: 84 02 sty $02
d653: a9 70 lda #$70
d655: 85 03 sta $03
d657: 98 tya
d658: 91 02 LD658 sta ($02),y
d65a: c8 iny
d65b: d0 fb bne LD658
d65d: e6 03 inc $03
d65f: ca dex
d660: d0 f6 bne LD658
d662: 60 rts
d663: 20 8c 22 LD663 jsr InHZ_PrintString3
d666: 8d 13 d5 f3+ .zstr $8d,$13,“Use "?" for tree search, ”,$9b,$8f,“@”,$98,$8e,“ for s”
+ “lot/drive.”
d697: 60 rts
d698: 20 8c 22 LD698 jsr InHZ_PrintString3
d69b: 10 c3 ef ed+ .zstr $10,“Commands while selecting:”,$8d,$8d,$10,“^A: toggle all sel”
+ “ections.”,$8d,$10,“^C”
d6d7: 20 2a d7 jsr InHZ_PrintString4
d6da: a0 a6 00 .zstr “ &”
d6dd: 20 42 d7 jsr InHZ_PrintString5
d6e0: ae 8d 10 de+ .zstr “.”,$8d,$10,“^E”
d6e6: 20 2a d7 jsr InHZ_PrintString4
d6e9: ac 00 .zstr “,”
d6eb: 20 0a d7 jsr LD70A
d6ee: 20 8c 22 jsr InHZ_PrintString3
d6f1: 10 c4 c5 cc+ .zstr $10,“DEL: delete from source”
d70a: 20 42 d7 LD70A jsr InHZ_PrintString5
d70d: a0 e5 f8 e9+ .zstr “ existing”,$8d,$15,“on destination.”,$8d
d729: 60 rts
InHZ_PrintString4
d72a: 20 8c 22 jsr InHZ_PrintString3
d72d: ba a0 e3 ef+ .zstr “: copy all changed”
d740: 90 13 bcc LD755
InHZ_PrintString5
d742: 20 8c 22 jsr InHZ_PrintString3
d745: a0 f3 e5 ec+ .zstr “ selected files”
d755: 4c 8c 22 LD755 jmp InHZ_PrintString3
d758: a2 ff LD758 ldx #$ff
d75a: 86 04 stx $04
d75c: e6 04 LD75C inc $04
d75e: 20 64 2e jsr L2E64
d761: b1 02 lda ($02),y
d763: f0 31 beq LD796
d765: a0 27 ldy #$27
d767: b1 02 lda ($02),y
d769: 10 f1 bpl LD75C
d76b: 20 3c 15 jsr L153C
d76e: b0 0e bcs LD77E
d770: 24 d6 bit $d6
d772: 30 16 bmi LD78A
d774: a9 80 LD774 lda #$80
d776: 45 d7 LD776 eor $d7
d778: a0 27 ldy #$27
d77a: 91 02 sta ($02),y
d77c: 10 de bpl LD75C
d77e: a0 23 LD77E ldy #$23
d780: 20 8e d7 jsr LD78E
d783: a0 21 ldy #$21
d785: 20 8e d7 jsr LD78E
d788: 90 ea bcc LD774
d78a: a9 00 LD78A lda #$00
d78c: f0 e8 beq LD776
d78e: 20 92 d7 LD78E jsr LD792
d791: c8 iny
d792: b1 00 LD792 lda ($00),y
d794: f1 02 sbc ($02),y
d796: 60 LD796 rts
d797: 8d 03 c0 LD797 sta RDCARDRAM
d79a: a0 00 ldy #$00
d79c: 84 00 sty $00
d79e: 84 02 sty $02
d7a0: a9 08 lda #$08
d7a2: 85 01 sta $01
d7a4: a9 40 lda #$40
d7a6: 85 03 sta $03
d7a8: a2 19 ldx #$19
d7aa: b1 00 LD7AA lda ($00),y
d7ac: 91 02 sta ($02),y
d7ae: c8 iny
d7af: d0 f9 bne LD7AA
d7b1: e6 01 inc $01
d7b3: e6 03 inc $03
d7b5: ca dex
d7b6: d0 f2 bne LD7AA
d7b8: 8d 02 c0 sta RDMAINRAM
d7bb: 60 rts
d7bc: a5 21 LD7BC lda MON_WNDWDTH
d7be: c9 29 cmp #$29
d7c0: d0 2b bne LD7ED
d7c2: ad f8 05 lda SCRNHOLE3
d7c5: 4a lsr A
d7c6: 4a lsr A
d7c7: 4a lsr A
d7c8: 69 01 adc #$01
d7ca: 4a lsr A
d7cb: 85 e4 sta $e4
d7cd: ad fb 06 lda SCRNHOLE5+3
d7d0: 38 sec
d7d1: e5 e4 sbc $e4
d7d3: 8d fb 06 sta SCRNHOLE5+3
d7d6: aa tax
d7d7: 4a lsr A
d7d8: 4a lsr A
d7d9: 4a lsr A
d7da: 4a lsr A
d7db: a0 0c ldy #$0c
d7dd: 20 e6 d7 jsr LD7E6
d7e0: 8a txa
d7e1: 0a asl A
d7e2: 0a asl A
d7e3: 0a asl A
d7e4: 0a asl A
d7e5: c8 iny
d7e6: 8c b0 c0 LD7E6 sty $c0b0
d7e9: 8d b1 c0 sta $c0b1
d7ec: 60 rts
d7ed: ad 03 07 LD7ED lda $0703
d7f0: 38 sec
d7f1: e9 50 sbc #$50
d7f3: 8d 03 07 sta $0703
d7f6: b0 03 bcs LD7FB
d7f8: ce 02 07 dec $0702
d7fb: a0 0d LD7FB ldy #$0d
d7fd: 20 04 d8 jsr LD804
d800: 88 dey
d801: ad 02 07 lda $0702
d804: 8c b6 c0 LD804 sty $c0b6
d807: 8d be c0 sta $c0be
d80a: 60 rts
d80b: 85 10 LD80B sta $10
d80d: a0 3f ldy #$3f
d80f: b1 0e LD80F lda ($0e),y
d811: 99 00 bd sta LBD00,y
d814: 88 dey
d815: 10 f8 bpl LD80F
d817: ae 00 bd LD817 ldx LBD00
d81a: e8 inx
d81b: ca LD81B dex
d81c: 30 5a bmi LD878
d81e: bd 00 bd lda LBD00,x
d821: 29 7f and #$7f
d823: c9 2f cmp #$2f
d825: d0 f4 bne LD81B
d827: 86 04 stx $04
d829: ad 00 bd lda LBD00
d82c: e5 04 sbc $04
d82e: d0 0c bne LD83C
d830: ce 00 bd dec LBD00
d833: a8 tay
d834: ad 00 bd lda LBD00
d837: 91 0e sta ($0e),y
d839: 4c 17 d8 jmp LD817
d83c: 85 05 LD83C sta $05
d83e: a0 04 ldy #$04
d840: 84 00 sty $00
d842: a9 b0 lda #$b0
d844: 85 01 sta $01
d846: a0 00 LD846 ldy #$00
d848: a6 04 ldx $04
d84a: b1 00 lda ($00),y
d84c: 45 10 eor $10
d84e: c9 10 cmp #$10
d850: b0 21 bcs LD873
d852: c5 05 cmp $05
d854: d0 1d bne LD873
d856: c8 LD856 iny
d857: e8 inx
d858: b1 00 lda ($00),y
d85a: 5d 00 bd eor LBD00,x
d85d: 29 5f and #$5f
d85f: d0 12 bne LD873
d861: c4 05 cpy $05
d863: 90 f1 bcc LD856
d865: a0 11 ldy #$11
d867: b1 00 lda ($00),y
d869: 8d 05 be sta LBE05
d86c: c8 iny
d86d: b1 00 lda ($00),y
d86f: 8d 06 be sta LBE05+1
d872: 60 rts
d873: 20 e3 11 LD873 jsr L11E3
d876: d0 ce bne LD846
d878: 4c aa 11 LD878 jmp L11AA
d87b: a9 00 LD87B lda #$00
d87d: 20 66 2e jsr L2E66
d880: b1 02 LD880 lda ($02),y
d882: f0 11 beq LD895
d884: a0 27 ldy #$27
d886: b1 02 lda ($02),y
d888: 49 80 eor #$80
d88a: 91 02 sta ($02),y
d88c: a0 00 ldy #$00
d88e: 20 09 1b jsr L1B09
d891: c9 90 cmp #$90
d893: 90 eb bcc LD880
d895: a5 ef LD895 lda $ef
d897: 60 rts
d898: a5 37 LD898 lda MON_CSWH
d89a: c5 bd cmp $bd
d89c: f0 05 beq LD8A3
d89e: ad 85 be LD89E lda LBE85
d8a1: 85 bc sta $bc
d8a3: a5 f7 LD8A3 lda $f7
d8a5: 29 0f and #$0f
d8a7: 85 e4 sta $e4
d8a9: ad 84 be lda LBE84
d8ac: 38 sec
d8ad: e5 e4 sbc $e4
d8af: 85 bb sta $bb
d8b1: c6 e4 LD8B1 dec $e4
d8b3: 30 0a bmi LD8BF
d8b5: a9 a0 lda #$a0
d8b7: 20 76 22 jsr L2276
d8ba: 4c b1 d8 jmp LD8B1
d8bd: 85 1a LD8BD sta $1a
d8bf: 60 LD8BF rts
d8c0: 24 f0 LD8C0 bit $f0
d8c2: 70 12 bvs LD8D6
d8c4: a9 40 lda #$40
d8c6: 85 f0 sta $f0
d8c8: 20 9e d8 jsr LD89E
d8cb: 24 f7 bit $f7
d8cd: 30 07 bmi LD8D6
d8cf: 38 sec
d8d0: a5 bc lda $bc
d8d2: e9 03 sbc #$03
d8d4: 85 bc sta $bc
d8d6: a0 00 LD8D6 ldy #$00
d8d8: a9 36 lda #$36
d8da: a2 3a ldx #$3a
d8dc: 24 1c bit $1c
d8de: 30 04 bmi LD8E4
d8e0: a9 b0 lda #$b0
d8e2: a2 02 ldx #$02
d8e4: 85 1b LD8E4 sta $1b
d8e6: ad 55 02 LD8E6 lda $0255
d8e9: 0d 56 02 ora $0256
d8ec: 0d 57 02 ora $0257
d8ef: f0 cc beq LD8BD
d8f1: b1 1a lda ($1a),y
d8f3: 09 80 ora #$80
d8f5: c9 a0 cmp #$a0
d8f7: b0 29 bcs LD922
d8f9: c9 8c cmp #$8c
d8fb: d0 15 bne LD912
d8fd: a9 8d LD8FD lda #$8d
d8ff: 20 76 22 jsr L2276
d902: a5 37 lda MON_CSWH
d904: c5 bd cmp $bd
d906: d0 4d bne LD955
d908: a9 8c lda #$8c
d90a: 20 76 22 jsr L2276
d90d: 20 9e d8 jsr LD89E
d910: d0 43 bne LD955
d912: c9 8d LD912 cmp #$8d
d914: d0 3f bne LD955
d916: c6 bc LD916 dec $bc
d918: f0 e3 beq LD8FD
d91a: 20 76 22 jsr L2276
d91d: 20 98 d8 jsr LD898
d920: d0 33 bne LD955
d922: d0 22 LD922 bne LD946
d924: a9 20 lda #$20
d926: 24 f7 bit $f7
d928: f0 18 beq LD942
d92a: a4 bb ldy $bb
d92c: c0 14 cpy #$14
d92e: b0 12 bcs LD942
d930: b1 1a LD930 lda ($1a),y
d932: 29 7f and #$7f
d934: c9 20 cmp #$20
d936: f0 0a beq LD942
d938: 4a lsr A
d939: c9 06 cmp #$06
d93b: f0 05 beq LD942
d93d: 88 dey
d93e: d0 f0 bne LD930
d940: f0 0b beq LD94D
d942: a0 00 LD942 ldy #$00
d944: a9 a0 lda #$a0
d946: c6 bb LD946 dec $bb
d948: d0 08 bne LD952
d94a: 20 76 22 jsr L2276
d94d: a9 8d LD94D lda #$8d
d94f: d0 c5 bne LD916
d951: 68 .dd1 $68
d952: 20 67 22 LD952 jsr L2267
d955: 20 f1 1a LD955 jsr L1AF1
d958: 10 18 bpl LD972
d95a: 2c 10 c0 bit KBDSTRB
d95d: c9 8d cmp #$8d
d95f: f0 43 beq LD9A4
d961: c9 d3 cmp #$d3
d963: f0 0b beq LD970
d965: 20 01 1b jsr L1B01
d968: 2c 10 c0 bit KBDSTRB
d96b: c9 d3 cmp #$d3
d96d: f0 01 beq LD970
d96f: 18 clc
d970: 66 e8 LD970 ror $e8
d972: 24 e8 LD972 bit $e8
d974: 10 0e bpl LD984
d976: 8a txa
d977: 48 pha
d978: a2 20 ldx #$20
d97a: 8a txa
d97b: e9 01 LD97B sbc #$01
d97d: d0 fc bne LD97B
d97f: ca dex
d980: d0 f9 bne LD97B
d982: 68 pla
d983: aa tax
d984: ad 55 02 LD984 lda $0255
d987: d0 0b bne LD994
d989: ad 56 02 lda $0256
d98c: d0 03 bne LD991
d98e: ce 57 02 dec $0257
d991: ce 56 02 LD991 dec $0256
d994: ce 55 02 LD994 dec $0255
d997: e6 1a inc $1a
d999: d0 05 bne LD9A0
d99b: e6 1b inc $1b
d99d: ca dex
d99e: f0 03 beq LD9A3
d9a0: 4c e6 d8 LD9A0 jmp LD8E6
d9a3: 60 LD9A3 rts
d9a4: 85 0b LD9A4 sta $0b
d9a6: 60 rts
d9a7: 46 e4 LD9A7 lsr $e4
d9a9: ae 80 bd ldx $bd80
d9ac: bd 80 bd LD9AC lda $bd80,x
d9af: dd c0 bc cmp $bcc0,x
d9b2: 9d c0 bc sta $bcc0,x
d9b5: f0 03 beq LD9BA
d9b7: 38 sec
d9b8: 66 e4 ror $e4
d9ba: ca LD9BA dex
d9bb: d0 ef bne LD9AC
d9bd: 38 sec
d9be: 24 e4 bit $e4
d9c0: 30 40 bmi LDA02
d9c2: ad c0 bc lda $bcc0
d9c5: ed 80 bd sbc $bd80
d9c8: a8 tay
d9c9: c9 10 cmp #$10
d9cb: b0 35 bcs LDA02
d9cd: 48 pha
d9ce: 41 02 eor ($02,x)
d9d0: 29 0f and #$0f
d9d2: d0 0a bne LD9DE
d9d4: ae c0 bc ldx $bcc0
d9d7: bd c0 bc LD9D7 lda $bcc0,x
d9da: d1 02 cmp ($02),y
d9dc: f0 03 beq LD9E1
d9de: 18 LD9DE clc
d9df: d0 04 bne LD9E5
d9e1: ca LD9E1 dex
d9e2: 88 dey
d9e3: d0 f2 bne LD9D7
d9e5: 68 LD9E5 pla
d9e6: b0 1a bcs LDA02
d9e8: a0 00 ldy #$00
d9ea: 85 e4 sta $e4
d9ec: b1 02 lda ($02),y
d9ee: 29 f0 and #$f0
d9f0: 05 e4 ora $e4
d9f2: 91 02 sta ($02),y
d9f4: a4 e4 ldy $e4
d9f6: ae c0 bc ldx $bcc0
d9f9: bd c0 bc LD9F9 lda $bcc0,x
d9fc: 91 02 sta ($02),y
d9fe: ca dex
d9ff: 88 dey
da00: d0 f7 bne LD9F9
da02: ad 80 bd LDA02 lda $bd80
da05: 8d c0 bc sta $bcc0
da08: 60 rts
da09: a9 2b LDA09 lda #$2b
da0b: 85 00 sta $00
da0d: a9 36 lda #$36
da0f: 85 01 sta $01
da11: a0 00 ldy #$00
da13: 84 02 sty $02
da15: 84 de sty $de
da17: a2 20 ldx #$20
da19: 98 tya
da1a: 91 02 LDA1A sta ($02),y
da1c: c8 iny
da1d: d0 fb bne LDA1A
da1f: e6 03 inc $03
da21: ca dex
da22: d0 f6 bne LDA1A
da24: a5 03 lda $03
da26: 38 sec
da27: e9 20 sbc #$20
da29: 85 03 sta $03
da2b: a5 01 LDA2B lda $01
da2d: c9 70 cmp #$70
da2f: b0 60 bcs LDA91
da31: a5 da lda $da
da33: f0 0c beq LDA41
da35: b1 00 lda ($00),y
da37: d0 34 bne LDA6D
da39: 20 92 da jsr LDA92
da3c: f0 2f beq LDA6D
da3e: 20 99 da jsr LDA99
da41: b1 00 LDA41 lda ($00),y
da43: f0 28 beq LDA6D
da45: a0 1e ldy #$1e
da47: b1 00 lda ($00),y
da49: 25 10 and $10
da4b: 45 11 eor $11
da4d: 45 12 eor $12
da4f: f0 1c beq LDA6D
da51: a0 26 ldy #$26
da53: b1 00 LDA53 lda ($00),y
da55: 91 02 sta ($02),y
da57: 88 dey
da58: 10 f9 bpl LDA53
da5a: 24 da bit $da
da5c: 10 04 bpl LDA62
da5e: c8 iny
da5f: 98 tya
da60: 91 00 sta ($00),y
da62: 20 09 1b LDA62 jsr L1B09
da65: a5 de lda $de
da67: c9 cc cmp #$cc
da69: b0 26 bcs LDA91
da6b: e6 de inc $de
da6d: a0 00 LDA6D ldy #$00
da6f: 20 e3 11 jsr L11E3
da72: d0 b7 bne LDA2B
da74: c6 01 dec $01
da76: 84 00 sty $00
da78: a0 03 ldy #$03
da7a: b1 00 lda ($00),y
da7c: 88 dey
da7d: 11 00 ora ($00),y
da7f: f0 0c beq LDA8D
da81: a0 00 ldy #$00
da83: e6 01 inc $01
da85: e6 01 inc $01
da87: a9 04 lda #$04
da89: 85 00 sta $00
da8b: d0 9e bne LDA2B
da8d: a8 LDA8D tay
da8e: 91 02 sta ($02),y
da90: 18 clc
da91: 60 LDA91 rts
da92: a0 10 LDA92 ldy #$10
da94: b1 00 lda ($00),y
da96: c9 0f cmp #$0f
da98: 60 rts
da99: a0 17 LDA99 ldy #$17
da9b: b1 00 lda ($00),y
da9d: c9 02 cmp #$02
da9f: 90 0e bcc LDAAF
daa1: d0 08 bne LDAAB
daa3: 88 dey
daa4: b1 00 lda ($00),y
daa6: 88 dey
daa7: 11 00 ora ($00),y
daa9: f0 16 beq LDAC1
daab: a9 30 LDAAB lda #$30
daad: d0 17 bne LDAC6
daaf: c9 00 LDAAF cmp #$00
dab1: d0 0e bne LDAC1
dab3: 88 dey
dab4: b1 00 lda ($00),y
dab6: c9 02 cmp #$02
dab8: 90 0a bcc LDAC4
daba: d0 05 bne LDAC1
dabc: 88 dey
dabd: b1 00 lda ($00),y
dabf: f0 03 beq LDAC4
dac1: a9 20 LDAC1 lda #$20
dac3: 2c bit ▼ L10A8+1
dac4: a9 10 LDAC4 lda #$10
dac6: a0 00 LDAC6 ldy #$00
dac8: 91 00 sta ($00),y
daca: c8 LDACA iny
dacb: c0 10 cpy #$10
dacd: b0 04 bcs LDAD3
dacf: b1 00 lda ($00),y
dad1: d0 f7 bne LDACA
dad3: 88 LDAD3 dey
dad4: 98 tya
dad5: f0 04 beq LDADB
dad7: a0 00 ldy #$00
dad9: 11 00 ora ($00),y
dadb: 91 00 LDADB sta ($00),y
dadd: 60 rts
dade: a9 2b LDADE lda #$2b
dae0: 85 00 sta $00
dae2: a9 36 lda #$36
dae4: 85 01 sta $01
dae6: a0 00 ldy #$00
dae8: 84 02 sty $02
daea: a9 70 lda #$70
daec: 85 03 sta $03
daee: b1 00 LDAEE lda ($00),y
daf0: d0 1a bne LDB0C
daf2: 20 92 da jsr LDA92
daf5: f0 15 beq LDB0C
daf7: 20 99 da jsr LDA99
dafa: a0 27 ldy #$27
dafc: b1 02 lda ($02),y
dafe: 30 05 bmi LDB05
db00: a0 00 ldy #$00
db02: 98 tya
db03: 91 00 sta ($00),y
db05: 20 09 1b LDB05 jsr L1B09
db08: c9 b0 cmp #$b0
db0a: b0 20 bcs LDB2C
db0c: a0 00 LDB0C ldy #$00
db0e: 20 e3 11 jsr L11E3
db11: d0 db bne LDAEE
db13: c6 01 dec $01
db15: 84 00 sty $00
db17: a0 03 ldy #$03
db19: b1 00 lda ($00),y
db1b: 88 dey
db1c: 11 00 ora ($00),y
db1e: f0 0c beq LDB2C
db20: a0 00 ldy #$00
db22: e6 01 inc $01
db24: e6 01 inc $01
db26: a9 04 lda #$04
db28: 85 00 sta $00
db2a: d0 c2 bne LDAEE
db2c: a0 00 LDB2C ldy #$00
db2e: 84 00 sty $00
db30: 60 rts
db31: 20 df d4 LDB31 jsr LD4DF
db34: 09 80 ora #$80
db36: c5 95 cmp $95
db38: f0 1d beq LDB57
db3a: c9 8d cmp #$8d
db3c: f0 19 beq LDB57
db3e: a2 13 ldx #$13
db40: 24 f2 bit cd_ext_flag ;CD.EXT loaded?
db42: 10 0a bpl LDB4E ;no, branch
db44: c9 d7 cmp #“W” ;was it 'W'?
db46: f0 04 beq LDB4C ;yes, flip it so we don't react
db48: c9 89 cmp #$89 ;tab?
db4a: d0 02 bne LDB4E ;no, don't flip it
db4c: 49 5e LDB4C eor #$5e ;$89 (Tab) <-> $d7 ('W')
db4e: ca LDB4E dex
db4f: 30 16 bmi LDB67
db51: dd 6a db cmp :menu_keys,x
db54: d0 f8 bne LDB4E
db56: 2c bit ▼ L0875+49
db57: a6 08 LDB57 ldx $08
db59: 8a txa
db5a: 0a asl A
db5b: aa tax
db5c: bd 7e db lda :menu_handlers+1,x
db5f: 48 pha
db60: bd 7d db lda :menu_handlers,x
db63: 48 pha
db64: 4c 75 10 jmp L1075
db67: 4c 47 08 LDB67 jmp L0847
db6a: d1 c3 d8 d4+ :menu_keys .str “QCXTLUDEVRWSF/NBP” ;Quit, Catalog, etc.
db7b: 8b .dd1 $8b ;Ctrl+K (up arrow)
db7c: 8a .dd1 $8a ;Ctrl+J (down arrow)
db7d: 6c 11 :menu_handlers .dd2 T116D-1
db7f: 4a 09 .dd2 T094B-1
db81: 67 0c .dd2 T0C68-1
db83: 54 0b .dd2 T0B55-1
db85: 58 0a .dd2 T0A59-1
db87: 62 0a .dd2 T0A63-1
db89: 4e 0a .dd2 T0A4F-1
db8b: 4c 0a .dd2 T0A4D-1
db8d: 58 0b .dd2 T0B59-1
db8f: a8 0a .dd2 T0AA9-1
db91: c2 2b .dd2 T2BC3-1 ;W / Tab
db93: 27 0b .dd2 T0B28-1
db95: d4 08 .dd2 T08D5-1
db97: b1 0b .dd2 T0BB2-1
db99: 64 09 .dd2 T0965-1
db9b: 5b 09 .dd2 T095C-1
db9d: 5b 09 .dd2 T095C-1
db9f: 87 0a .dd2 T0A88-1
dba1: 91 0a .dd2 T0A92-1
dba3: a5 08 LDBA3 lda $08
dba5: c5 09 cmp $09
dba7: d0 10 bne LDBB9
dba9: 2c 61 c0 bit BUTN0
dbac: 10 0b bpl LDBB9
dbae: 20 66 2e jsr L2E66
dbb1: 98 tya
dbb2: 91 02 LDBB2 sta ($02),y
dbb4: c8 iny
dbb5: c0 28 cpy #$28
dbb7: 90 f9 bcc LDBB2
dbb9: 60 LDBB9 rts
dbba: a5 09 LDBBA lda $09
dbbc: 85 08 sta $08
dbbe: c8 iny
dbbf: 84 04 sty $04
dbc1: a5 04 LDBC1 lda $04
dbc3: c5 08 cmp $08
dbc5: b0 f2 bcs LDBB9
dbc7: 20 60 28 jsr L2860
dbca: c6 08 dec $08
dbcc: e6 04 inc $04
dbce: 10 f1 bpl LDBC1
dbd0: 88 LDBD0 dey
dbd1: 30 e7 bmi LDBBA
dbd3: 85 0b sta $0b
dbd5: c9 02 cmp #$02
dbd7: f0 ca beq LDBA3
dbd9: a0 01 ldy #$01
dbdb: 84 04 sty $04
dbdd: 88 dey
dbde: 84 08 sty $08
dbe0: a5 08 LDBE0 lda $08
dbe2: 20 66 2e jsr L2E66
dbe5: a5 02 lda $02
dbe7: 85 00 sta $00
dbe9: a5 03 lda $03
dbeb: 85 01 sta $01
dbed: 20 64 2e jsr L2E64
dbf0: a9 01 lda #$01
dbf2: 24 0b bit $0b
dbf4: 30 3e bmi LDC34
dbf6: 70 55 bvs LDC4D
dbf8: f0 0c beq LDC06
dbfa: a0 10 ldy #$10
dbfc: b1 02 lda ($02),y
dbfe: d1 00 cmp ($00),y
dc00: 90 12 bcc LDC14
dc02: d0 13 bne LDC17
dc04: a9 01 lda #$01
dc06: a8 LDC06 tay
dc07: b1 02 LDC07 lda ($02),y
dc09: d1 00 cmp ($00),y
dc0b: 90 07 bcc LDC14
dc0d: d0 08 bne LDC17
dc0f: c8 iny
dc10: c0 10 cpy #$10
dc12: 90 f3 bcc LDC07
dc14: 20 6e 28 LDC14 jsr L286E
dc17: e6 04 LDC17 inc $04
dc19: a5 09 lda $09
dc1b: c5 04 cmp $04
dc1d: b0 c1 bcs LDBE0
dc1f: e6 08 inc $08
dc21: a5 08 lda $08
dc23: 69 01 adc #$01
dc25: 85 04 sta $04
dc27: c5 09 cmp $09
dc29: 90 b5 bcc LDBE0
dc2b: f0 b3 beq LDBE0
dc2d: a0 00 ldy #$00
dc2f: 84 04 sty $04
dc31: 84 08 sty $08
dc33: 60 rts
dc34: 70 14 LDC34 bvs LDC4A
dc36: a0 10 ldy #$10
dc38: b1 00 lda ($00),y
dc3a: c9 0f cmp #$0f
dc3c: f0 d9 beq LDC17
dc3e: b1 02 lda ($02),y
dc40: c9 0f cmp #$0f
dc42: f0 d0 beq LDC14
dc44: d1 00 cmp ($00),y
dc46: 90 cc bcc LDC14
dc48: b0 cd bcs LDC17
dc4a: a0 23 LDC4A ldy #$23
dc4c: 2c bit ▼ L1AA0
dc4d: a0 1a LDC4D ldy #$1a
dc4f: b1 02 lda ($02),y
dc51: d1 00 cmp ($00),y
dc53: c8 iny
dc54: b1 02 lda ($02),y
dc56: f1 00 sbc ($00),y
dc58: 88 dey
dc59: 88 dey
dc5a: 88 dey
dc5b: b1 02 lda ($02),y
dc5d: f1 00 sbc ($00),y
dc5f: c8 iny
dc60: b1 02 lda ($02),y
dc62: f1 00 sbc ($00),y
dc64: 90 ae bcc LDC14
dc66: b0 af bcs LDC17
dc68: 85 02 LDC68 sta $02
dc6a: 86 03 stx $03
dc6c: 29 07 and #$07
dc6e: aa tax
dc6f: 98 tya
dc70: 48 pha
dc71: a0 03 ldy #$03
dc73: 46 03 LDC73 lsr $03
dc75: 66 02 ror $02
dc77: 88 dey
dc78: d0 f9 bne LDC73
dc7a: a5 03 lda $03
dc7c: c9 02 cmp #$02
dc7e: b0 0d bcs LDC8D
dc80: 69 b0 adc #$b0
dc82: 85 03 sta $03
dc84: b1 02 lda ($02),y
dc86: 3d 85 2d and L2D85,x
dc89: 91 02 sta ($02),y
dc8b: 68 pla
dc8c: a8 tay
dc8d: 60 LDC8D rts
dc8e: 20 8c 22 LDC8E jsr InHZ_PrintString3
dc91: 99 9d af 00 .zstr $99,$9d,“/”
dc95: ae 80 bc ldx $bc80
dc98: e0 25 cpx #$25
dc9a: b0 05 bcs LDCA1
dc9c: 20 5e 10 jsr L105E
dc9f: a0 00 ldy #$00
dca1: 84 0c LDCA1 sty $0c
dca3: 84 d0 sty $d0
dca5: 84 d1 sty $d1
dca7: a5 0c LDCA7 lda $0c
dca9: 20 66 2e jsr L2E66
dcac: b1 02 lda ($02),y
dcae: aa tax
dcaf: f0 0d beq LDCBE
dcb1: 29 f0 and #$f0
dcb3: c9 40 cmp #$40
dcb5: b0 03 bcs LDCBA
dcb7: 20 7b dd jsr LDD7B
dcba: e6 0c LDCBA inc $0c
dcbc: d0 e9 bne LDCA7
dcbe: a0 26 LDCBE ldy #$26
dcc0: a5 d1 lda $d1
dcc2: a6 d0 ldx $d0
dcc4: 20 0b 27 jsr L270B
dcc7: 20 8c 22 jsr InHZ_PrintString3
dcca: a0 e2 ec eb+ .zstr “ blks,”
dcd1: a0 32 ldy #$32
dcd3: 20 fd 26 jsr L26FD
dcd6: 20 8c 22 jsr InHZ_PrintString3
dcd9: a0 e2 ec eb+ .zstr “ blks free,”
dce5: 98 tya
dce6: a6 09 ldx $09
dce8: a0 43 ldy #$43
dcea: 20 0b 27 jsr L270B
dced: 20 8c 22 jsr InHZ_PrintString3
dcf0: a0 e6 e9 ec+ .zstr “ files”,$8d,$9d,$8d,“Filename”,$10,“Type”,$16,“Blocks”,$1e,“Mo”
+ “dified”,$2f,“Created”,$40,“Length Subtype”,$8d,$9d
dd30: 60 rts
dd31: a0 00 LDD31 ldy #$00
dd33: 84 d0 sty $d0
dd35: 84 d1 sty $d1
dd37: 84 0c sty $0c
dd39: a5 0c LDD39 lda $0c
dd3b: 20 66 2e jsr L2E66
dd3e: b1 02 lda ($02),y
dd40: f0 0d beq LDD4F
dd42: a0 27 ldy #$27
dd44: b1 02 lda ($02),y
dd46: 10 03 bpl LDD4B
dd48: 20 7b dd jsr LDD7B
dd4b: e6 0c LDD4B inc $0c
dd4d: d0 ea bne LDD39
dd4f: a5 d1 LDD4F lda $d1
dd51: a6 d0 ldx $d0
dd53: a0 30 ldy #$30
dd55: 20 0b 27 jsr L270B
dd58: 20 8c 22 jsr InHZ_PrintString3
dd5b: a0 e2 ec ef+ .zstr “ blocks chosen for ”
dd6f: b9 00 30 LDD6F lda $3000,y
dd72: f0 06 beq LDD7A
dd74: 20 76 22 jsr L2276
dd77: c8 iny
dd78: d0 f5 bne LDD6F
dd7a: 60 LDD7A rts
dd7b: a0 13 LDD7B ldy #$13
dd7d: b1 02 lda ($02),y
dd7f: 65 d0 adc $d0
dd81: 85 d0 sta $d0
dd83: c8 iny
dd84: b1 02 lda ($02),y
dd86: 65 d1 adc $d1
dd88: 85 d1 sta $d1
dd8a: 60 rts
dd8b: a9 c0 LDD8B lda #$c0
dd8d: 85 0e sta $0e
dd8f: ac 40 bd ldy $bd40
dd92: b9 40 bd LDD92 lda $bd40,y
dd95: 91 0e sta ($0e),y
dd97: 88 dey
dd98: 10 f8 bpl LDD92
dd9a: aa tax
dd9b: ca LDD9B dex
dd9c: bd c1 bc lda $bcc1,x
dd9f: c9 2f cmp #$2f
dda1: d0 f8 bne LDD9B
dda3: 86 d8 stx $d8
dda5: ca LDDA5 dex
dda6: f0 06 beq LDDAE
dda8: dd c1 bc cmp $bcc1,x
ddab: d0 f8 bne LDDA5
ddad: e8 inx
ddae: 60 LDDAE rts
ddaf: 20 8c 22 LDDAF jsr InHZ_PrintString3
ddb2: 8d 9d c5 f2+ .zstr $8d,$9d,“Error on block ”
ddc4: ad 06 be lda LBE05+1
ddc7: ae 05 be ldx LBE05
ddca: 20 0d 27 jsr L270D
ddcd: 20 8c 22 jsr InHZ_PrintString3
ddd0: a0 d2 d4 ce+ .zstr “ RTN=cont, ESC=abort, DEL=next file.”
ddf5: 60 rts
.adrend ↑ $d400
.adrend ↑ $2000
********************************************************************************
* The code that follows is read from a separate file, "CD.EXT", and copied *
* into auxillary memory at $0800. When the user hits Tab to switch to the *
* second menu page, the code is copied into main memory at $4000 and executed. *
* If CD.EXT or auxmem are not available, the features implemented here (move *
* files, format disk, compare directories, disable unused devices) will not be *
* available. *
********************************************************************************
.addrs $4000
4000: 78 L4000 sei
4001: 48 pha
4002: 29 70 and #$70
4004: 8d 50 02 sta $0250
4007: aa tax
4008: a8 tay
4009: 68 pla
400a: 10 01 bpl L400D
400c: c8 iny
400d: b9 8a c0 L400D lda IWM_DRIVE_1,y
4010: bd 89 c0 lda IWM_MOTOR_ON,x
4013: a9 d7 lda #$d7
4015: 85 da sta $da
4017: ad 10 50 lda L5010
401a: 85 de sta $de
401c: ad 11 50 lda L5011
401f: 85 df sta $df
4021: a9 00 lda #$00
4023: a0 03 ldy #$03
4025: 46 df L4025 lsr $df
4027: 66 de ror $de
4029: 6a ror A
402a: 88 dey
402b: d0 f8 bne L4025
402d: a8 tay
402e: f0 02 beq L4032
4030: e6 de inc $de
4032: a9 50 L4032 lda #$50
4034: 8d 51 02 sta $0251
4037: 20 a1 40 jsr L40A1
403a: a5 da L403A lda $da
403c: f0 06 beq L4044
403e: 20 45 43 jsr L4345
4041: 4c 3a 40 jmp L403A
4044: a9 aa L4044 lda #$aa
4046: 85 d0 sta $d0
4048: ae fa 43 ldx L43FA
404b: e8 inx
404c: e8 inx
404d: 86 d4 stx $d4
404f: a9 00 lda #$00
4051: 85 d1 sta $d1
4053: ae 50 02 L4053 ldx $0250
4056: 20 a3 40 jsr L40A3
4059: bd 8d c0 lda IWM_Q6_ON,x
405c: bd 8e c0 lda IWM_Q7_OFF,x
405f: a8 tay
4060: bd 8e c0 lda IWM_Q7_OFF,x
4063: bd 8c c0 lda IWM_Q6_OFF,x
4066: 98 tya
4067: 30 72 bmi L40DB
4069: 20 56 43 jsr L4356
406c: a4 d4 ldy $d4
406e: b0 63 bcs L40D3
4070: cc f9 43 cpy L43F9
4073: 90 6c bcc L40E1
4075: cc fa 43 cpy L43FA
4078: b0 64 bcs L40DE
407a: ad fc 43 lda L43FC
407d: 20 ae 40 jsr L40AE
4080: 90 d1 bcc L4053
4082: a9 20 lda #$20
4084: 85 d1 sta $d1
4086: ae 50 02 L4086 ldx $0250
4089: 20 a3 40 jsr L40A3
408c: bd 8e c0 lda IWM_Q7_OFF,x
408f: bd 8c c0 lda IWM_Q6_OFF,x
4092: ad fc 43 lda L43FC
4095: 0a asl A
4096: 20 ae 40 jsr L40AE
4099: 90 eb bcc L4086
409b: ae 50 02 L409B ldx $0250
409e: bd 88 c0 lda IWM_MOTOR_OFF,x
40a1: a9 00 L40A1 lda #$00
40a3: 0a L40A3 asl A
40a4: 0e 51 02 asl $0251
40a7: 20 fb 41 jsr L41FB
40aa: 4e 51 02 lsr $0251
40ad: 60 rts
40ae: 8d 52 02 L40AE sta $0252
40b1: ce 52 02 L40B1 dec $0252
40b4: f0 19 beq L40CF
40b6: 20 9c 41 jsr L419C
40b9: b0 f6 bcs L40B1
40bb: a5 d9 lda $d9
40bd: 45 d1 eor $d1
40bf: 05 d8 ora $d8
40c1: d0 ee bne L40B1
40c3: 20 4d 41 jsr L414D
40c6: b0 e9 bcs L40B1
40c8: e6 d1 inc $d1
40ca: a5 d1 lda $d1
40cc: c5 de cmp $de
40ce: 60 rts
40cf: 68 L40CF pla
40d0: 68 pla
40d1: a0 ff ldy #$ff
40d3: cc f9 43 L40D3 cpy L43F9
40d6: 90 09 bcc L40E1
40d8: a9 0f lda #$0f
40da: 2c bit: ▼ $00a9
40db: a9 00 L40DB lda #$00
40dd: 2c bit ▼ L18A7+2
40de: a9 18 L40DE lda #$18
40e0: 2c bit ▼ L1CA8+1
40e1: a9 1c L40E1 lda #$1c
40e3: 48 pha
40e4: 20 9b 40 jsr L409B
40e7: 20 8e fd jsr MON_CROUT
40ea: 68 pla
40eb: c9 18 cmp #$18
40ed: 90 07 bcc L40F6
40ef: 48 pha
40f0: a9 20 lda #$20
40f2: 20 fc 40 jsr L40FC
40f5: 68 pla
40f6: 20 fc 40 L40F6 jsr L40FC
40f9: 4c fd 43 jmp L43FD
40fc: a8 L40FC tay
40fd: b9 0b 41 L40FD lda L410B,y
4100: 08 php
4101: 09 80 ora #$80
4103: 20 ed fd jsr MON_COUT
4106: c8 iny
4107: 28 plp
4108: 30 f3 bmi L40FD
410a: 60 rts
410b: d7 f2 e9 f4+ L410B .dstr “Write protected”
411a: c9 af cf a0+ .dstr “I/O error”
4123: f3 ec ef 77 .dstr “slow”
4127: e6 e1 f3 74 .dstr “fast”
412b: c4 f2 e9 f6+ .dstr “Drive too ”
4135: 01 L4135 .dd1 $01
4136: 30 28 24 20 .str ‘0($ ’
413a: 1e .dd1 $1e
413b: 1d .dd1 $1d
413c: 1c 1c 1c 1c+ .fill 5,$1c
4141: 70 2c 26 22 L4141 .str ‘p,&"’
4145: 1f .dd1 $1f
4146: 1e .dd1 $1e
4147: 1d .dd1 $1d
4148: 1c 1c 1c 1c+ .fill 5,$1c
414d: ae 50 02 L414D ldx $0250
4150: a0 20 ldy #$20
4152: 88 L4152 dey
4153: f0 45 beq L419A
4155: bd 8c c0 L4155 lda IWM_Q6_OFF,x
4158: 10 fb bpl L4155
415a: 49 d5 L415A eor #$d5
415c: d0 f4 bne L4152
415e: ea nop
415f: bd 8c c0 L415F lda IWM_Q6_OFF,x
4162: 10 fb bpl L415F
4164: c9 aa cmp #$aa
4166: d0 f2 bne L415A
4168: a0 57 ldy #$57
416a: bd 8c c0 L416A lda IWM_Q6_OFF,x
416d: 10 fb bpl L416A
416f: c9 ad cmp #$ad
4171: d0 e7 bne L415A
4173: 2c e8 43 bit L43E8
4176: 70 01 bvs L4179
4178: b8 L4178 clv
4179: bd 8c c0 L4179 lda IWM_Q6_OFF,x
417c: 10 fb bpl L4179
417e: c9 96 cmp #$96
4180: d0 18 bne L419A
4182: 88 dey
4183: d0 f4 bne L4179
4185: 70 f1 bvs L4178
4187: bd 8c c0 L4187 lda IWM_Q6_OFF,x
418a: 10 fb bpl L4187
418c: c9 de cmp #$de
418e: d0 0a bne L419A
4190: ea nop
4191: bd 8c c0 L4191 lda IWM_Q6_OFF,x
4194: 10 fb bpl L4191
4196: c9 aa cmp #$aa
4198: f0 5f beq L41F9
419a: 38 L419A sec
419b: 60 rts
419c: ae 50 02 L419C ldx $0250
419f: a0 fc ldy #$fc
41a1: 84 dc sty $dc
41a3: c8 L41A3 iny
41a4: d0 04 bne L41AA
41a6: e6 dc inc $dc
41a8: f0 f0 beq L419A
41aa: bd 8c c0 L41AA lda IWM_Q6_OFF,x
41ad: 10 fb bpl L41AA
41af: c9 d5 L41AF cmp #$d5
41b1: d0 f0 bne L41A3
41b3: ea nop
41b4: bd 8c c0 L41B4 lda IWM_Q6_OFF,x
41b7: 10 fb bpl L41B4
41b9: c9 aa cmp #$aa
41bb: d0 f2 bne L41AF
41bd: a0 03 ldy #$03
41bf: bd 8c c0 L41BF lda IWM_Q6_OFF,x
41c2: 10 fb bpl L41BF
41c4: c9 96 cmp #$96
41c6: d0 e7 bne L41AF
41c8: a9 00 lda #$00
41ca: 85 db L41CA sta $db
41cc: bd 8c c0 L41CC lda IWM_Q6_OFF,x
41cf: 10 fb bpl L41CC
41d1: 2a rol A
41d2: 85 dd sta $dd
41d4: bd 8c c0 L41D4 lda IWM_Q6_OFF,x
41d7: 10 fb bpl L41D4
41d9: 25 dd and $dd
41db: 99 d7 00 sta $00d7,y
41de: 45 db eor $db
41e0: 88 dey
41e1: 10 e7 bpl L41CA
41e3: a8 tay
41e4: d0 b4 bne L419A
41e6: bd 8c c0 L41E6 lda IWM_Q6_OFF,x
41e9: 10 fb bpl L41E6
41eb: c9 de cmp #$de
41ed: d0 ab bne L419A
41ef: ea nop
41f0: bd 8c c0 L41F0 lda IWM_Q6_OFF,x
41f3: 10 fb bpl L41F0
41f5: c9 aa cmp #$aa
41f7: d0 a1 bne L419A
41f9: 18 L41F9 clc
41fa: 60 rts
41fb: 8d 53 02 L41FB sta $0253
41fe: cd 51 02 cmp $0251
4201: f0 5c beq L425F
4203: a9 00 lda #$00
4205: 8d 54 02 sta $0254
4208: ad 51 02 L4208 lda $0251
420b: 8d 55 02 sta $0255
420e: 38 sec
420f: ed 53 02 sbc $0253
4212: f0 37 beq L424B
4214: b0 07 bcs L421D
4216: 49 ff eor #$ff
4218: ee 51 02 inc $0251
421b: 90 05 bcc L4222
421d: 69 fe L421D adc #$fe
421f: ce 51 02 dec $0251
4222: cd 54 02 L4222 cmp $0254
4225: 90 03 bcc L422A
4227: ad 54 02 lda $0254
422a: c9 0c L422A cmp #$0c
422c: b0 01 bcs L422F
422e: a8 tay
422f: 38 L422F sec
4230: 20 4f 42 jsr L424F
4233: b9 35 41 lda L4135,y
4236: 20 45 43 jsr L4345
4239: ad 55 02 lda $0255
423c: 18 clc
423d: 20 52 42 jsr L4252
4240: b9 41 41 lda L4141,y
4243: 20 45 43 jsr L4345
4246: ee 54 02 inc $0254
4249: d0 bd bne L4208
424b: 20 45 43 L424B jsr L4345
424e: 18 clc
424f: ad 51 02 L424F lda $0251
4252: 29 03 L4252 and #$03
4254: 2a rol A
4255: 0d 50 02 ora $0250
4258: aa tax
4259: bd 80 c0 lda IWM_PH0_OFF,x
425c: ae 50 02 ldx $0250
425f: 60 L425F rts
4260: 20 e8 43 L4260 jsr L43E8
4263: bd 8d c0 lda IWM_Q6_ON,x
4266: bd 8e c0 lda IWM_Q7_OFF,x
4269: a9 ff lda #$ff
426b: 9d 8f c0 sta IWM_Q7_ON,x
426e: dd 8c c0 cmp IWM_Q6_OFF,x
4271: 48 pha
4272: 68 pla
4273: ea nop
4274: a0 04 ldy #$04
4276: 48 L4276 pha
4277: 68 pla
4278: 20 3c 43 jsr L433C
427b: 88 dey
427c: d0 f8 bne L4276
427e: a9 d5 lda #$d5
4280: 20 3b 43 jsr L433B
4283: a9 aa lda #$aa
4285: 20 3b 43 jsr L433B
4288: a9 ad lda #$ad
428a: 20 3b 43 jsr L433B
428d: 2c e8 43 bit L43E8
4290: ea nop
4291: a0 57 ldy #$57
4293: d0 08 bne L429D
4295: b8 L4295 clv
4296: 48 pha
4297: 68 pla
4298: 50 04 bvc L429E
429a: 20 e8 43 L429A jsr L43E8
429d: ea L429D nop
429e: ea L429E nop
429f: a9 96 lda #$96
42a1: 9d 8d c0 sta IWM_Q6_ON,x
42a4: dd 8c c0 cmp IWM_Q6_OFF,x
42a7: 88 dey
42a8: d0 f0 bne L429A
42aa: 70 e9 bvs L4295
42ac: a9 de lda #$de
42ae: 20 3b 43 jsr L433B
42b1: a9 aa lda #$aa
42b3: 20 3b 43 jsr L433B
42b6: a9 eb lda #$eb
42b8: 20 3b 43 jsr L433B
42bb: a9 ff lda #$ff
42bd: 20 3b 43 jsr L433B
42c0: bd 8e c0 lda IWM_Q7_OFF,x
42c3: bd 8c c0 lda IWM_Q6_OFF,x
42c6: 60 rts
42c7: 45 d1 L42C7 eor $d1
42c9: 49 01 eor #$01
42cb: 85 d3 sta $d3
42cd: bd 8d c0 lda IWM_Q6_ON,x
42d0: bd 8e c0 lda IWM_Q7_OFF,x
42d3: a9 ff lda #$ff
42d5: 9d 8f c0 sta IWM_Q7_ON,x
42d8: dd 8c c0 cmp IWM_Q6_OFF,x
42db: 48 pha
42dc: 68 pla
42dd: 20 e8 43 L42DD jsr L43E8
42e0: 20 e8 43 jsr L43E8
42e3: 9d 8d c0 sta IWM_Q6_ON,x
42e6: dd 8c c0 cmp IWM_Q6_OFF,x
42e9: ea nop
42ea: 88 dey
42eb: d0 f0 bne L42DD
42ed: a9 d5 lda #$d5
42ef: 20 3b 43 jsr L433B
42f2: a9 aa lda #$aa
42f4: 20 3b 43 jsr L433B
42f7: a9 96 lda #$96
42f9: 20 3b 43 jsr L433B
42fc: a9 aa lda #$aa
42fe: 20 3b 43 jsr L433B
4301: a9 ab lda #$ab
4303: 20 3b 43 jsr L433B
4306: a5 d1 lda $d1
4308: 20 2c 43 jsr L432C
430b: a5 d2 lda $d2
430d: 20 2c 43 jsr L432C
4310: a5 d3 lda $d3
4312: 20 2c 43 jsr L432C
4315: a9 de lda #$de
4317: 20 3b 43 jsr L433B
431a: a9 aa lda #$aa
431c: 20 3b 43 jsr L433B
431f: a9 eb lda #$eb
4321: 20 3b 43 jsr L433B
4324: 18 clc
4325: bd 8e c0 lda IWM_Q7_OFF,x
4328: bd 8c c0 lda IWM_Q6_OFF,x
432b: 60 rts
432c: 48 L432C pha
432d: 4a lsr A
432e: 05 d0 ora $d0
4330: 9d 8d c0 sta IWM_Q6_ON,x
4333: dd 8c c0 cmp IWM_Q6_OFF,x
4336: 68 pla
4337: 05 d0 ora $d0
4339: 48 pha
433a: 68 pla
433b: ea L433B nop
433c: 48 L433C pha
433d: 68 pla
433e: 9d 8d c0 sta IWM_Q6_ON,x
4341: dd 8c c0 cmp IWM_Q6_OFF,x
4344: 60 rts
4345: a2 11 L4345 ldx #$11
4347: ca L4347 dex
4348: d0 fd bne L4347
434a: e6 d9 inc $d9
434c: d0 02 bne L4350
434e: e6 da inc $da
4350: 38 L4350 sec
4351: e9 01 sbc #$01
4353: d0 f0 bne L4345
4355: 60 rts
4356: ad fb 43 L4356 lda L43FB
4359: 85 d6 sta $d6
435b: a0 80 L435B ldy #$80
435d: ae 50 02 ldx $0250
4360: a9 00 lda #$00
4362: 85 d2 sta $d2
4364: 2c bit ▼ LD4A4
4365: a4 d4 L4365 ldy $d4
4367: 20 c7 42 jsr L42C7
436a: 20 60 42 jsr L4260
436d: e6 d2 inc $d2
436f: a5 d2 lda $d2
4371: c9 10 cmp #$10
4373: 90 f0 bcc L4365
4375: a0 0f ldy #$0f
4377: 84 d2 sty $d2
4379: 99 40 02 L4379 sta $0240,y
437c: 88 dey
437d: 10 fa bpl L4379
437f: ad fc 43 lda L43FC
4382: 8d 52 02 sta $0252
4385: a5 d4 lda $d4
4387: e9 05 sbc #$05
4389: a8 tay
438a: 20 e8 43 L438A jsr L43E8
438d: 20 e8 43 jsr L43E8
4390: 48 pha
4391: 68 pla
4392: ea nop
4393: ea nop
4394: 88 dey
4395: d0 f3 bne L438A
4397: 20 9c 41 jsr L419C
439a: b0 34 bcs L43D0
439c: a5 d8 lda $d8
439e: f0 10 beq L43B0
43a0: c6 d4 dec $d4
43a2: a5 d4 lda $d4
43a4: cd f9 43 cmp L43F9
43a7: b0 27 bcs L43D0
43a9: 38 sec
43aa: 60 rts
43ab: 20 9c 41 L43AB jsr L419C
43ae: b0 17 bcs L43C7
43b0: 20 4d 41 L43B0 jsr L414D
43b3: b0 12 bcs L43C7
43b5: a4 d8 ldy $d8
43b7: b9 40 02 lda $0240,y
43ba: 30 0b bmi L43C7
43bc: a9 ff lda #$ff
43be: 99 40 02 sta $0240,y
43c1: c6 d2 dec $d2
43c3: 10 e6 bpl L43AB
43c5: 18 clc
43c6: 60 rts
43c7: ce 52 02 L43C7 dec $0252
43ca: d0 df bne L43AB
43cc: c6 d6 dec $d6
43ce: f0 17 beq L43E7
43d0: ad fc 43 L43D0 lda L43FC
43d3: 0a asl A
43d4: 8d 52 02 sta $0252
43d7: 20 9c 41 L43D7 jsr L419C
43da: b0 06 bcs L43E2
43dc: a5 d8 lda $d8
43de: c9 0f cmp #$0f
43e0: f0 07 beq L43E9
43e2: ce 52 02 L43E2 dec $0252
43e5: d0 f0 bne L43D7
43e7: 38 L43E7 sec
43e8: 60 L43E8 rts
43e9: a2 d6 L43E9 ldx #$d6
43eb: 20 e8 43 L43EB jsr L43E8
43ee: 20 e8 43 jsr L43E8
43f1: 24 00 bit $00
43f3: ca dex
43f4: d0 f5 bne L43EB
43f6: 4c 5b 43 jmp L435B
43f9: 0e L43F9 .dd1 $0e
43fa: 1b L43FA .dd1 $1b
43fb: 03 L43FB .dd1 $03
43fc: 10 L43FC .dd1 $10
43fd: 20 c6 11 L43FD jsr L11C6
4400: a2 ff ExtMenu ldx #$ff
4402: 9a txs
4403: 20 56 08 jsr L0856
4406: a9 80 lda #$80
4408: 85 0e sta $0e
440a: 8d 1d be sta LBE1D
440d: a2 00 ldx #$00
440f: 86 f5 stx $f5
4411: 86 ef stx $ef
4413: 86 f4 stx $f4
4415: 86 f3 stx $f3
4417: 86 d8 stx $d8
4419: 20 84 44 L4419 jsr L4484
441c: e8 inx
441d: 90 fa bcc L4419
441f: 20 f9 1e L441F jsr L1EF9
4422: 20 57 1a jsr L1A57
4425: 2c 83 c0 bit LCBANK2
4428: 20 df d4 jsr LD4DF
442b: 2c 82 c0 bit ROMIN_RO
442e: 09 80 ora #$80
4430: c5 95 cmp $95
4432: f0 0f beq L4443
4434: c9 8d cmp #$8d
4436: f0 0b beq L4443
4438: a2 09 ldx #$09
443a: ca L443A dex
443b: 30 e2 bmi L441F
443d: dd 69 44 cmp :menu_keys,x
4440: d0 f8 bne L443A
4442: 2c bit ▼ L0875+49
4443: a6 08 L4443 ldx $08
4445: 8a txa
4446: 48 pha
4447: c9 07 cmp #$07
4449: b0 13 bcs L445E
444b: a6 08 ldx $08
444d: a9 ff lda #$ff
444f: 85 08 sta $08
4451: 20 84 44 jsr L4484
4454: 68 pla
4455: aa tax
4456: 86 08 stx $08
4458: 20 84 44 jsr L4484
445b: a6 08 ldx $08
445d: 8a txa
445e: 0a L445E asl A
445f: aa tax
4460: bd 73 44 lda :menu_handlers+1,x
4463: 48 pha
4464: bd 72 44 lda :menu_handlers,x
4467: 48 pha
4468: 60 rts
4469: 89 :menu_keys .dd1 $89 ;Tab
446a: d1 cd c6 d7+ .str “QMFWCD”
4470: 8b .dd1 $8b ;Ctrl+K (up arrow)
4471: 8a .dd1 $8a ;Ctrl+J (down arrow)
4472: 14 08 :menu_handlers .dd2 T0815-1
4474: 6c 11 .dd2 T116D-1
4476: 5d 45 .dd2 T455E-1
4478: 50 4b .dd2 T4B51-1
447a: cf 2b .dd2 T2BD0-1
447c: be 47 .dd2 T47BF-1
447e: 84 4a .dd2 T4A85-1
4480: 32 45 .dd2 T4533-1
4482: 3c 45 .dd2 T453D-1
4484: 8a L4484 txa
4485: 48 pha
4486: 18 clc
4487: 69 04 adc #$04
4489: 65 ba adc $ba
448b: 20 5b fb jsr MON_TABV
448e: a9 1e lda #$1e
4490: 85 24 sta MON_CH
4492: a0 ff ldy #$ff
4494: ca L4494 dex
4495: 30 1a bmi L44B1
4497: 38 sec
4498: c8 L4498 iny
4499: b9 c8 44 lda L44C8,y
449c: f0 25 beq L44C3
449e: 30 f8 bmi L4498
44a0: 10 f2 bpl L4494
44a2: 20 ed fd L44A2 jsr MON_COUT
44a5: c9 ad cmp #$ad
44a7: d0 08 bne L44B1
44a9: 68 pla
44aa: 48 pha
44ab: c5 08 cmp $08
44ad: d0 02 bne L44B1
44af: 46 32 lsr MON_INVFLAG
44b1: c8 L44B1 iny
44b2: b9 c8 44 lda L44C8,y
44b5: f0 05 beq L44BC
44b7: 30 e9 bmi L44A2
44b9: 20 41 2f jsr L2F41
44bc: 20 14 2f L44BC jsr L2F14
44bf: 20 8e fd jsr MON_CROUT
44c2: 18 clc
44c3: 68 L44C3 pla
44c4: aa tax
44c5: 4c 14 2f jmp L2F14
44c8: d4 c1 c2 ad+ L44C8 .dstr “TAB-Main menu”
44d5: d1 ad d1 f5+ .dstr “Q-Quit”
44db: cd ad cd ef+ .dstr “M-Move files”
44e7: c6 ad c6 ef+ .dstr “F-Format a disk”
44f6: d7 ad d7 e9+ .dstr “W-Wipe a volume”
4505: c3 ad c3 ef+ .dstr “C-Compare directories”
451a: c4 ad c4 e9+ .dstr “D-Disable unused devices”
4532: 00 .dd1 $00
4533: a6 08 T4533 ldx $08
4535: c6 08 dec $08
4537: 10 10 bpl L4549
4539: a9 06 lda #$06
453b: d0 0a bne L4547
453d: a6 08 T453D ldx $08
453f: e6 08 inc $08
4541: e0 06 cpx #$06
4543: 90 04 bcc L4549
4545: a9 00 lda #$00
4547: 85 08 L4547 sta $08
4549: 20 84 44 L4549 jsr L4484
454c: a6 08 ldx $08
454e: 20 84 44 jsr L4484
4551: 4c 1f 44 jmp L441F
4554: 46 ec L4554 lsr $ec
4556: 46 ed lsr $ed
4558: 20 c0 27 jsr L27C0
455b: 4c 49 27 jmp L2749
455e: a0 05 T455E ldy #$05
4560: b9 22 46 L4560 lda L4622,y
4563: 99 00 30 sta $3000,y
4566: 88 dey
4567: 10 f7 bpl L4560
4569: 20 57 22 jsr InHZ_PrintString1
456c: 23 cd cf d6+ .zstr $23,“MOVE FILES”,$8d
4579: 20 54 45 jsr L4554
457c: 38 sec
457d: 66 f4 ror $f4
457f: 20 90 0c jsr L0C90
4582: 2c 82 c0 bit ROMIN_RO
4585: 24 d9 bit $d9
4587: 30 21 bmi L45AA
4589: 20 11 1a jsr L1A11
458c: a2 01 ldx #$01
458e: e8 L458E inx
458f: bd 80 bc lda $bc80,x
4592: c9 2f cmp #$2f
4594: f0 05 beq L459B
4596: dd c0 bc cmp $bcc0,x
4599: f0 f3 beq L458E
459b: dd c0 bc L459B cmp $bcc0,x
459e: d0 0a bne L45AA
45a0: 20 8b 13 jsr L138B
45a3: 24 d9 bit $d9
45a5: 70 03 bvs L45AA
45a7: 4c 00 44 jmp ExtMenu
45aa: 20 87 22 L45AA jsr InHZ_PrintString2
45ad: 8d 87 c3 e1+ .zstr $8d,$87,“Cannot move”
45bb: 24 d9 bit $d9
45bd: 30 17 bmi L45D6
45bf: 50 15 bvc L45D6
45c1: 20 8c 22 jsr InHZ_PrintString3
45c4: 80 a0 f7 e9+ .zstr $80,“ within itself”
45d4: 90 42 bcc L4618
45d6: 20 8c 22 L45D6 jsr InHZ_PrintString3
45d9: a0 e6 e9 ec+ .zstr “ files ”
45e1: 24 d9 bit $d9
45e3: 30 1f bmi L4604
45e5: 20 8c 22 jsr InHZ_PrintString3
45e8: e2 e5 f4 f7+ .zstr “between different volumes”
4602: 90 14 bcc L4618
4604: 20 8c 22 L4604 jsr InHZ_PrintString3
4607: f7 e9 f4 e8+ .zstr “within the same”,$80
4618: 20 8c 22 L4618 jsr InHZ_PrintString3
461b: ae a0 a0 00 .zstr “. ”
461f: 4c fd 43 jmp L43FD
4622: cd cf d6 c5 L4622 .str “MOVE”
4626: 00 .dd1 $00
4627: ae 80 bc L4627 ldx $bc80
462a: bd 80 bc L462A lda $bc80,x
462d: 9d 40 bd sta $bd40,x
4630: ca dex
4631: d0 f7 bne L462A
4633: ac 80 bc ldy $bc80
4636: ad 00 bd lda LBD00
4639: 29 0f and #$0f
463b: 18 clc
463c: 6d 80 bc adc $bc80
463f: 8d 40 bd sta $bd40
4642: e8 L4642 inx
4643: bd 00 bd lda LBD00,x
4646: c8 iny
4647: 99 40 bd sta $bd40,y
464a: cc 40 bd cpy $bd40
464d: 90 f3 bcc L4642
464f: ad 6b be lda LBE6B
4652: c9 0f cmp #$0f
4654: d0 1d bne L4673
4656: b9 40 bd L4656 lda $bd40,y
4659: d9 c0 bc cmp $bcc0,y
465c: d0 15 bne L4673
465e: 88 dey
465f: d0 f5 bne L4656
4661: 20 00 bf jsr P8_MLI
4664: c1 .dd1 P8_DESTROY
4665: 76 be .dd2 LBE76
4667: c6 08 dec $08
4669: 20 7e 28 jsr L287E
466c: e6 08 inc $08
466e: a9 40 lda #$40
4670: 85 d9 sta $d9
4672: 60 rts
4673: a9 0a L4673 lda #$0a
4675: 8d 40 be sta LBE40
4678: 8d 2e be sta LBE2E
467b: 78 sei
467c: 20 00 bf jsr P8_MLI
467f: c4 .dd1 P8_GET_FILE_INFO
4680: 40 be .dd2 LBE40
4682: b0 2a bcs L46AE
4684: a5 46 lda $46
4686: 8d 05 be sta LBE05
4689: a5 47 lda $47
468b: 8d 06 be sta LBE05+1
468e: 20 00 bf jsr P8_MLI
4691: c4 .dd1 P8_GET_FILE_INFO
4692: 2e be .dd2 LBE2E
4694: b0 18 bcs L46AE
4696: a5 46 lda $46
4698: 8d 0b be sta LBE0B
469b: a5 47 lda $47
469d: 8d 0c be sta LBE0B+1
46a0: 58 cli
46a1: a9 b2 lda #$b2
46a3: 8d 04 be sta LBE03+1
46a6: 20 48 20 jsr L2048
46a9: b0 03 bcs L46AE
46ab: 20 56 20 jsr L2056
46ae: b0 64 L46AE bcs L4714
46b0: a9 00 lda #$00
46b2: 85 e4 sta $e4
46b4: a9 bd lda #$bd
46b6: 85 e5 sta $e5
46b8: a9 04 lda #$04
46ba: 85 d0 sta $d0
46bc: a9 b0 lda #$b0
46be: 85 d1 sta $d1
46c0: 20 5b 47 jsr L475B
46c3: a5 02 lda $02
46c5: 85 e4 sta $e4
46c7: a5 03 lda $03
46c9: 85 e5 sta $e5
46cb: a5 d0 lda $d0
46cd: 85 ea sta $ea
46cf: a5 d1 lda $d1
46d1: 85 eb sta $eb
46d3: a9 04 lda #$04
46d5: 85 d0 sta $d0
46d7: a9 b2 lda #$b2
46d9: 85 d1 sta $d1
46db: a2 01 ldx #$01
46dd: 20 5b 47 jsr L475B
46e0: 86 0a stx $0a
46e2: b1 ea lda ($ea),y
46e4: 29 f0 and #$f0
46e6: 48 pha
46e7: b1 d0 lda ($d0),y
46e9: 29 f0 and #$f0
46eb: 85 e4 sta $e4
46ed: b1 ea lda ($ea),y
46ef: 29 0f and #$0f
46f1: 05 e4 ora $e4
46f3: 91 ea sta ($ea),y
46f5: b1 d0 lda ($d0),y
46f7: 29 0f and #$0f
46f9: 85 e4 sta $e4
46fb: 68 pla
46fc: 05 e4 ora $e4
46fe: 91 d0 sta ($d0),y
4700: a0 11 ldy #$11
4702: b1 ea L4702 lda ($ea),y
4704: 48 pha
4705: b1 d0 lda ($d0),y
4707: 91 ea sta ($ea),y
4709: 68 pla
470a: 91 d0 sta ($d0),y
470c: c8 iny
470d: c0 25 cpy #$25
470f: 90 f1 bcc L4702
4711: 20 3a 20 jsr L203A
4714: b0 42 L4714 bcs L4758
4716: 20 00 bf jsr P8_MLI
4719: 81 .dd1 P8_WRITE_BLOCK
471a: 01 be .dd2 LBE01
471c: b0 3a bcs L4758
471e: ad 6b be lda LBE6B
4721: c9 0f cmp #$0f
4723: d0 28 bne L474D
4725: a0 11 ldy #$11
4727: b1 d0 lda ($d0),y
4729: 8d 0b be sta LBE0B
472c: c8 iny
472d: b1 d0 lda ($d0),y
472f: 8d 0c be sta LBE0B+1
4732: 20 48 20 jsr L2048
4735: b0 21 bcs L4758
4737: ad 05 be lda LBE05
473a: 8d 27 b0 sta $b027
473d: ad 06 be lda LBE05+1
4740: 8d 28 b0 sta $b028
4743: a5 0a lda $0a
4745: 8d 29 b0 sta $b029
4748: 20 3a 20 jsr L203A
474b: b0 0b bcs L4758
474d: 20 00 bf L474D jsr P8_MLI
4750: c1 .dd1 P8_DESTROY
4751: 73 be .dd2 LBE73
4753: b0 03 bcs L4758
4755: 60 rts
4756: a9 5a L4756 lda #$5a
4758: 4c 2d 11 L4758 jmp L112D
475b: a0 00 L475B ldy #$00
475d: b1 d0 lda ($d0),y
475f: 48 pha
4760: 29 e0 and #$e0
4762: c9 e0 cmp #$e0
4764: 68 pla
4765: b0 17 bcs L477E
4767: 29 0f and #$0f
4769: 51 e4 eor ($e4),y
476b: 29 0f and #$0f
476d: d0 0f bne L477E
476f: b1 d0 lda ($d0),y
4771: 29 0f and #$0f
4773: a8 tay
4774: b1 d0 L4774 lda ($d0),y
4776: d1 e4 cmp ($e4),y
4778: d0 04 bne L477E
477a: 88 dey
477b: d0 f7 bne L4774
477d: 60 rts
477e: e8 L477E inx
477f: 18 clc
4780: a5 d0 lda $d0
4782: 69 27 adc #$27
4784: 85 d0 sta $d0
4786: 90 d3 bcc L475B
4788: e6 d1 inc $d1
478a: a5 d1 lda $d1
478c: 4a lsr A
478d: 90 c7 bcc L4756
478f: b0 ca bcs L475B
4791: 20 87 22 L4791 jsr InHZ_PrintString2
4794: 8d 1e c6 e9+ .zstr $8d,$1e,“File exists, rename?”,$87
47ac: 20 8e 1a jsr L1A8E
47af: b0 0d bcs L47BE
47b1: a9 ff lda #$ff
47b3: 85 d9 sta $d9
47b5: 20 03 15 jsr L1503
47b8: 20 7e 28 jsr L287E
47bb: e6 d9 inc $d9
47bd: 18 clc
47be: 60 L47BE rts
47bf: 20 57 22 T47BF jsr InHZ_PrintString1
47c2: 1e c3 cf cd+ .zstr $1e,“COMPARE DIRECTORIES”,$8d
47d8: 20 54 45 jsr L4554
47db: 20 8c 22 jsr InHZ_PrintString3
47de: 8d 10 c6 e9+ .zstr $8d,$10,“First”,$80
47e7: 20 81 0e jsr L0E81
47ea: 24 a0 bit $a0
47ec: 30 03 bmi L47F1
47ee: 20 c0 27 jsr L27C0
47f1: 20 8c 22 L47F1 jsr InHZ_PrintString3
47f4: 8d 8d 10 d3+ .zstr $8d,$8d,$10,“Second”,$80
47ff: 84 d7 sty $d7
4801: a9 c0 lda #$c0
4803: 85 0e sta $0e
4805: 8d 1d be sta LBE1D
4808: 0a asl A
4809: 85 ef sta $ef
480b: 85 f3 sta $f3
480d: 20 81 0e jsr L0E81
4810: 20 17 1b jsr L1B17
4813: 08 php
4814: 20 ed fd jsr MON_COUT
4817: 20 8e fd jsr MON_CROUT
481a: 20 11 1a jsr L1A11
481d: 20 22 1a jsr L1A22
4820: ac 80 bc ldy $bc80
4823: b9 80 bc L4823 lda $bc80,y
4826: 51 0e eor ($0e),y
4828: 29 5f and #$5f
482a: d0 03 bne L482F
482c: 88 dey
482d: 10 f4 bpl L4823
482f: 84 d9 L482F sty $d9
4831: a9 80 lda #$80
4833: 85 0e sta $0e
4835: 8d 1d be sta LBE1D
4838: 20 e0 2e jsr L2EE0
483b: 28 plp
483c: 90 03 bcc L4841
483e: 20 52 1b jsr L1B52
4841: 20 83 13 L4841 jsr L1383
4844: 2c 82 c0 bit ROMIN_RO
4847: 20 8e fd jsr MON_CROUT
484a: a5 37 lda MON_CSWH
484c: c5 bd L484C cmp $bd
484e: f0 06 beq L4856
4850: 20 8e fd jsr MON_CROUT
4853: 4c fd 43 jmp L43FD
4856: 4c 00 44 L4856 jmp ExtMenu
4859: 2c 82 c0 L4859 bit ROMIN_RO
485c: 20 11 1a jsr L1A11
485f: 20 22 1a jsr L1A22
4862: 46 f6 lsr $f6
4864: ad 00 c0 lda KBD
4867: 10 11 bpl L487A
4869: 2c 10 c0 bit KBDSTRB
486c: c9 a0 cmp #$a0
486e: d0 02 bne L4872
4870: 66 f6 ror $f6
4872: c9 9b L4872 cmp #$9b
4874: f0 e0 beq L4856
4876: c9 83 cmp #$83
4878: f0 dc beq L4856
487a: a2 00 L487A ldx #$00
487c: 86 04 stx $04
487e: 86 de stx $de
4880: 20 17 4a jsr L4A17
4883: 20 43 2e jsr L2E43
4886: d0 10 bne L4898
4888: 20 f7 49 jsr L49F7
488b: 86 04 stx $04
488d: 20 17 4a jsr L4A17
4890: 20 43 2e jsr L2E43
4893: d0 0b bne L48A0
4895: 4c cb 49 jmp L49CB
4898: 20 f7 49 L4898 jsr L49F7
489b: 86 04 stx $04
489d: 20 17 4a jsr L4A17
48a0: a9 bd L48A0 lda #$bd
48a2: 20 55 4a jsr L4A55
48a5: ae 80 bc ldx $bc80
48a8: a0 00 ldy #$00
48aa: c8 L48AA iny
48ab: b9 80 bc lda $bc80,y
48ae: 20 41 2f jsr L2F41
48b1: ca dex
48b2: d0 f6 bne L48AA
48b4: a9 27 lda #$27
48b6: 38 sec
48b7: ed 80 bc sbc $bc80
48ba: 90 19 bcc L48D5
48bc: aa tax
48bd: e8 inx
48be: 20 4a f9 jsr MON_PRBL2
48c1: ad c0 bc lda $bcc0
48c4: c9 28 cmp #$28
48c6: b0 0d bcs L48D5
48c8: aa tax
48c9: a0 00 ldy #$00
48cb: c8 L48CB iny
48cc: b9 c0 bc lda $bcc0,y
48cf: 20 41 2f jsr L2F41
48d2: ca dex
48d3: d0 f6 bne L48CB
48d5: a9 ad L48D5 lda #$ad
48d7: 20 55 4a jsr L4A55
48da: 86 04 stx $04
48dc: 86 14 stx $14
48de: a5 14 L48DE lda $14
48e0: 20 8b 2e jsr L2E8B
48e3: 84 bb sty $bb
48e5: b1 00 lda ($00),y
48e7: d0 03 bne L48EC
48e9: 4c c4 49 jmp L49C4
48ec: a0 27 L48EC ldy #$27
48ee: b1 00 lda ($00),y
48f0: 30 04 bmi L48F6
48f2: e6 14 L48F2 inc $14
48f4: d0 e8 bne L48DE
48f6: 20 8e fd L48F6 jsr MON_CROUT
48f9: 20 65 4a jsr L4A65
48fc: a0 00 ldy #$00
48fe: b1 00 lda ($00),y
4900: 85 de sta $de
4902: 29 0f and #$0f
4904: aa tax
4905: c8 L4905 iny
4906: b1 00 lda ($00),y
4908: 20 41 2f jsr L2F41
490b: ca dex
490c: d0 f7 bne L4905
490e: a0 27 ldy #$27
4910: b1 00 lda ($00),y
4912: 0a asl A
4913: f0 37 beq L494C
4915: 48 pha
4916: a0 00 ldy #$00
4918: b1 00 lda ($00),y
491a: 29 0f and #$0f
491c: 49 ff eor #$ff
491e: 18 clc
491f: 69 12 adc #$12
4921: aa tax
4922: 20 4a f9 jsr MON_PRBL2
4925: 68 pla
4926: 30 0e bmi L4936
4928: a9 14 lda #$14
492a: 85 bb sta $bb
492c: a0 10 ldy #$10
492e: b1 00 lda ($00),y
4930: 20 68 29 jsr L2968
4933: 4c 4c 49 jmp L494C
4936: a9 21 L4936 lda #$21
4938: 85 bb sta $bb
493a: a5 00 lda $00
493c: 85 02 sta $02
493e: a5 01 lda $01
4940: 85 03 sta $03
4942: a0 22 ldy #$22
4944: 20 97 1e jsr L1E97
4947: a0 24 ldy #$24
4949: 20 79 1e jsr L1E79
494c: 20 64 2e L494C jsr L2E64
494f: b1 02 lda ($02),y
4951: f0 9f beq L48F2
4953: a0 27 L4953 ldy #$27
4955: b1 02 lda ($02),y
4957: 30 04 bmi L495D
4959: e6 04 inc $04
495b: d0 ef bne L494C
495d: 20 65 4a L495D jsr L4A65
4960: a5 bb lda $bb
4962: d0 0c bne L4970
4964: a8 tay
4965: b1 00 lda ($00),y
4967: 29 0f and #$0f
4969: d0 05 bne L4970
496b: 48 pha
496c: 20 8e fd jsr MON_CROUT
496f: 68 pla
4970: 49 ff L4970 eor #$ff
4972: 18 clc
4973: 69 29 adc #$29
4975: aa tax
4976: 20 4a f9 jsr MON_PRBL2
4979: a0 00 ldy #$00
497b: b1 02 lda ($02),y
497d: 29 0f and #$0f
497f: 85 de sta $de
4981: aa tax
4982: c8 L4982 iny
4983: b1 02 lda ($02),y
4985: 20 41 2f jsr L2F41
4988: ca dex
4989: d0 f7 bne L4982
498b: a0 27 ldy #$27
498d: b1 02 lda ($02),y
498f: 0a asl A
4990: f0 27 beq L49B9
4992: 48 pha
4993: a0 00 ldy #$00
4995: b1 02 lda ($02),y
4997: 29 0f and #$0f
4999: 49 ff eor #$ff
499b: 18 clc
499c: 69 12 adc #$12
499e: aa tax
499f: 20 4a f9 jsr MON_PRBL2
49a2: 68 pla
49a3: 30 0a bmi L49AF
49a5: a0 10 ldy #$10
49a7: b1 02 lda ($02),y
49a9: 20 68 29 jsr L2968
49ac: 4c b9 49 jmp L49B9
49af: a0 22 L49AF ldy #$22
49b1: 20 97 1e jsr L1E97
49b4: a0 24 ldy #$24
49b6: 20 79 1e jsr L1E79
49b9: e6 04 L49B9 inc $04
49bb: a0 00 ldy #$00
49bd: b1 00 lda ($00),y
49bf: f0 8b beq L494C
49c1: 4c f2 48 jmp L48F2
49c4: 20 64 2e L49C4 jsr L2E64
49c7: b1 02 lda ($02),y
49c9: d0 88 bne L4953
49cb: 85 04 L49CB sta $04
49cd: 20 f7 49 jsr L49F7
49d0: 20 64 2e L49D0 jsr L2E64
49d3: b1 02 lda ($02),y
49d5: f0 16 beq L49ED
49d7: a0 10 ldy #$10
49d9: b1 02 lda ($02),y
49db: c9 0f cmp #$0f
49dd: f0 04 beq L49E3
49df: e6 04 L49DF inc $04
49e1: d0 ed bne L49D0
49e3: a0 27 L49E3 ldy #$27
49e5: b1 02 lda ($02),y
49e7: 49 80 eor #$80
49e9: 91 02 sta ($02),y
49eb: b0 f2 bcs L49DF
49ed: a5 de L49ED lda $de
49ef: f0 03 beq L49F4
49f1: 20 8e fd jsr MON_CROUT
49f4: 4c f1 11 L49F4 jmp L11F1
49f7: a9 00 L49F7 lda #$00
49f9: 20 66 2e jsr L2E66
49fc: 98 tya
49fd: 20 8b 2e jsr L2E8B
4a00: a2 20 ldx #$20
4a02: b1 02 L4A02 lda ($02),y
4a04: 48 pha
4a05: b1 00 lda ($00),y
4a07: 91 02 sta ($02),y
4a09: 68 pla
4a0a: 91 00 sta ($00),y
4a0c: c8 iny
4a0d: d0 f3 bne L4A02
4a0f: e6 01 inc $01
4a11: e6 03 inc $03
4a13: ca dex
4a14: d0 ec bne L4A02
4a16: 60 rts
4a17: 20 64 2e L4A17 jsr L2E64
4a1a: b1 02 lda ($02),y
4a1c: f0 32 beq L4A50
4a1e: 20 3c 15 jsr L153C
4a21: b0 08 bcs L4A2B
4a23: a9 80 lda #$80
4a25: a0 27 L4A25 ldy #$27
4a27: 91 02 sta ($02),y
4a29: d0 21 bne L4A4C
4a2b: a0 10 L4A2B ldy #$10
4a2d: b1 02 lda ($02),y
4a2f: c9 0f cmp #$0f
4a31: f0 19 beq L4A4C
4a33: d1 00 cmp ($00),y
4a35: f0 04 beq L4A3B
4a37: a9 a0 lda #$a0
4a39: d0 ea bne L4A25
4a3b: a0 21 L4A3B ldy #$21
4a3d: b1 02 L4A3D lda ($02),y
4a3f: d1 00 cmp ($00),y
4a41: f0 04 beq L4A47
4a43: a9 c0 lda #$c0
4a45: d0 de bne L4A25
4a47: c8 L4A47 iny
4a48: c0 25 cpy #$25
4a4a: 90 f1 bcc L4A3D
4a4c: e6 04 L4A4C inc $04
4a4e: d0 c7 bne L4A17
4a50: a5 04 L4A50 lda $04
4a52: 85 1d sta $1d
4a54: 60 rts
4a55: 48 L4A55 pha
4a56: 20 8e fd jsr MON_CROUT
4a59: a2 4e ldx #$4e
4a5b: 68 pla
4a5c: 20 ed fd L4A5C jsr MON_COUT
4a5f: ca dex
4a60: d0 fa bne L4A5C
4a62: 4c 8e fd jmp MON_CROUT
4a65: 46 f6 L4A65 lsr $f6
4a67: 24 f6 bit $f6
4a69: 70 0a bvs L4A75
4a6b: ad 00 c0 lda KBD
4a6e: 10 14 bpl L4A84
4a70: 20 7a 4a jsr L4A7A
4a73: 10 0f bpl L4A84
4a75: ad 00 c0 L4A75 lda KBD
4a78: 10 fb bpl L4A75
4a7a: 2c 10 c0 L4A7A bit KBDSTRB
4a7d: c9 a0 cmp #$a0
4a7f: f0 01 beq L4A82
4a81: 18 clc
4a82: 66 f6 L4A82 ror $f6
4a84: 60 L4A84 rts
4a85: ad 30 bf T4A85 lda P8_DEVNUM
4a88: 0a asl A
4a89: 85 e3 sta $e3
4a8b: 20 00 bf jsr P8_MLI
4a8e: c5 .dd1 P8_ONLINE
4a8f: 11 be .dd2 LBE11
4a91: b0 3a bcs L4ACD
4a93: a8 tay
4a94: aa tax
4a95: 86 0b stx $0b
4a97: b9 00 36 L4A97 lda $3600,y
4a9a: 29 0f and #$0f
4a9c: f0 09 beq L4AA7
4a9e: b9 00 36 lda $3600,y
4aa1: 29 f0 and #$f0
4aa3: 9d 00 37 sta $3700,x
4aa6: e8 inx
4aa7: 98 L4AA7 tya
4aa8: 18 clc
4aa9: 69 10 adc #$10
4aab: a8 tay
4aac: d0 e9 bne L4A97
4aae: ca dex
4aaf: 30 22 bmi L4AD3
4ab1: 86 de stx $de
4ab3: ac 31 bf L4AB3 ldy P8_DEVCNT
4ab6: f0 1b beq L4AD3
4ab8: b9 32 bf L4AB8 lda P8_DEVLST,y
4abb: 29 f0 and #$f0
4abd: a6 de ldx $de
4abf: dd 00 37 L4ABF cmp $3700,x
4ac2: f0 0c beq L4AD0
4ac4: ca dex
4ac5: 10 f8 bpl L4ABF
4ac7: 20 1d 4b jsr L4B1D
4aca: 4c b3 4a jmp L4AB3
4acd: 4c 00 44 L4ACD jmp ExtMenu
4ad0: 88 L4AD0 dey
4ad1: 10 e5 bpl L4AB8
4ad3: ae 31 bf L4AD3 ldx P8_DEVCNT
4ad6: bd 32 bf lda P8_DEVLST,x
4ad9: e8 inx
4ada: ca L4ADA dex
4adb: 30 f0 bmi L4ACD
4add: 8a txa
4ade: a8 tay
4adf: 88 L4ADF dey
4ae0: 30 f8 bmi L4ADA
4ae2: bd 32 bf lda P8_DEVLST,x
4ae5: 0a asl A
4ae6: c5 e3 cmp $e3
4ae8: f0 f5 beq L4ADF
4aea: 85 0b L4AEA sta $0b
4aec: 49 c0 eor #$c0
4aee: f0 fa beq L4AEA
4af0: b9 32 bf lda P8_DEVLST,y
4af3: 0a asl A
4af4: c5 e3 cmp $e3
4af6: f0 e7 beq L4ADF
4af8: c9 c0 cmp #$c0
4afa: d0 02 bne L4AFE
4afc: a9 00 lda #$00
4afe: c5 0b L4AFE cmp $0b
4b00: 90 dd bcc L4ADF
4b02: d0 08 bne L4B0C
4b04: b9 32 bf lda P8_DEVLST,y
4b07: dd 32 bf cmp P8_DEVLST,x
4b0a: b0 d3 bcs L4ADF
4b0c: bd 32 bf L4B0C lda P8_DEVLST,x
4b0f: 48 pha
4b10: b9 32 bf lda P8_DEVLST,y
4b13: 9d 32 bf sta P8_DEVLST,x
4b16: 68 pla
4b17: 99 32 bf sta P8_DEVLST,y
4b1a: 4c d3 4a jmp L4AD3
4b1d: 4a L4B1D lsr A
4b1e: 4a lsr A
4b1f: 4a lsr A
4b20: 4a lsr A
4b21: 0a asl A
4b22: aa tax
4b23: ad 10 bf lda P8_DEVADR01
4b26: 9d 10 bf sta P8_DEVADR01,x
4b29: ad 11 bf lda P8_DEVADR01+1
4b2c: 9d 11 bf sta P8_DEVADR01+1,x
4b2f: b9 33 bf L4B2F lda P8_DEVLST+1,y
4b32: 99 32 bf sta P8_DEVLST,y
4b35: c8 iny
4b36: cc 31 bf cpy P8_DEVCNT
4b39: f0 f4 beq L4B2F
4b3b: 90 f2 bcc L4B2F
4b3d: ce 31 bf dec P8_DEVCNT
4b40: 60 rts
4b41: ac 31 bf L4B41 ldy P8_DEVCNT
4b44: aa tax
4b45: 8a L4B45 txa
4b46: 59 32 bf eor P8_DEVLST,y
4b49: 29 f0 and #$f0
4b4b: f0 03 beq L4B50
4b4d: 88 dey
4b4e: 10 f5 bpl L4B45
4b50: 60 L4B50 rts
4b51: 20 57 22 T4B51 jsr InHZ_PrintString1
4b54: 20 c6 cf d2+ .zstr $20,“FORMAT A VOLUME”
4b65: 20 46 27 jsr L2746
4b68: 20 8c 22 jsr InHZ_PrintString3
4b6b: 1b a0 00 .zstr $1b,“ ”
4b6e: 2c 80 c0 bit LCBANK2_RW
4b71: ad 87 be lda LBE87
4b74: 20 41 4b jsr L4B41
4b77: d0 03 bne L4B7C
4b79: 8e 30 bf stx P8_DEVNUM
4b7c: 20 d0 d5 L4B7C jsr LD5D0
4b7f: 2c 82 c0 bit ROMIN_RO
4b82: ad 0e be lda LBE0E
4b85: 20 41 4b jsr L4B41
4b88: f0 03 beq L4B8D
4b8a: 4c 99 4c jmp L4C99
4b8d: 20 00 bf L4B8D jsr P8_MLI
4b90: c5 .dd1 P8_ONLINE
4b91: 0d be .dd2 LBE0D
4b93: b0 28 bcs L4BBD
4b95: ad c0 02 lda $02c0
4b98: 29 0f and #$0f
4b9a: f0 21 beq L4BBD
4b9c: aa tax
4b9d: 20 8c 22 jsr InHZ_PrintString3
4ba0: 8d 8d 10 c4+ .zstr $8d,$8d,$10,“Destroy ”
4bac: c8 L4BAC iny
4bad: b9 c0 02 lda $02c0,y
4bb0: 20 41 2f jsr L2F41
4bb3: ca dex
4bb4: d0 f6 bne L4BAC
4bb6: a9 d9 lda #$d9
4bb8: 20 97 0d jsr L0D97
4bbb: 90 53 bcc L4C10
4bbd: ad eb 4f L4BBD lda L4FEB
4bc0: 29 0f and #$0f
4bc2: aa tax
4bc3: e8 inx
4bc4: 8e 80 bc stx $bc80
4bc7: ca dex
4bc8: bd eb 4f L4BC8 lda L4FEB,x
4bcb: 9d 81 bc sta $bc81,x
4bce: ca dex
4bcf: d0 f7 bne L4BC8
4bd1: 20 8c 22 jsr InHZ_PrintString3
4bd4: 8d 8d 10 d6+ .zstr $8d,$8d,$10,“Volume name”
4be3: 20 81 0e jsr L0E81
4be6: a2 0f ldx #$0f
4be8: a9 00 lda #$00
4bea: 9d eb 4f L4BEA sta L4FEB,x
4bed: ca dex
4bee: d0 fa bne L4BEA
4bf0: 20 11 1a jsr L1A11
4bf3: ae 80 bc ldx $bc80
4bf6: ca dex
4bf7: ca dex
4bf8: 8a txa
4bf9: 09 f0 ora #$f0
4bfb: 8d eb 4f sta L4FEB
4bfe: bd 81 bc L4BFE lda $bc81,x
4c01: 9d eb 4f sta L4FEB,x
4c04: ca dex
4c05: d0 f7 bne L4BFE
4c07: 20 13 4c jsr L4C13
4c0a: 20 64 4d jsr L4D64
4c0d: 20 c4 4f jsr L4FC4
4c10: 4c 00 44 L4C10 jmp ExtMenu
4c13: ad 0e be L4C13 lda LBE0E
4c16: 8d 02 be sta LBE02
4c19: 20 41 4b jsr L4B41
4c1c: d0 7b bne L4C99
4c1e: 85 02 sta $02
4c20: 8e 87 be stx LBE87
4c23: 20 2b 4e jsr L4E2B
4c26: ae 87 be ldx LBE87
4c29: 86 43 stx MON_A4H
4c2b: 8a txa
4c2c: 4a lsr A
4c2d: 4a lsr A
4c2e: 4a lsr A
4c2f: aa tax
4c30: bd 10 bf lda P8_DEVADR01,x
4c33: 85 00 sta $00
4c35: bd 11 bf lda P8_DEVADR01+1,x
4c38: 85 01 sta $01
4c3a: 85 03 sta $03
4c3c: 49 ff eor #$ff
4c3e: f0 10 beq L4C50
4c40: a5 03 lda $03
4c42: 49 d0 eor #$d0
4c44: 05 02 ora $02
4c46: f0 5a beq L4CA2
4c48: a0 ff ldy #$ff
4c4a: b1 02 lda ($02),y
4c4c: c9 ff cmp #$ff
4c4e: f0 46 beq L4C96
4c50: 78 L4C50 sei
4c51: a0 00 ldy #$00
4c53: 84 44 sty MON_A5L
4c55: 84 46 sty $46
4c57: 84 47 sty $47
4c59: 84 42 sty MON_A4L
4c5b: a9 ac lda #$ac
4c5d: 85 45 sta MON_A5H
4c5f: 20 5b 4d jsr L4D5B
4c62: b0 37 bcs L4C9B
4c64: 98 tya
4c65: d0 07 bne L4C6E
4c67: 8a txa
4c68: d0 04 bne L4C6E
4c6a: a0 06 ldy #$06
4c6c: a2 40 ldx #$40
4c6e: 8c 11 50 L4C6E sty L5011
4c71: 8e 10 50 stx L5010
4c74: c0 07 cpy #$07
4c76: 90 03 bcc L4C7B
4c78: 4c 06 4d jmp L4D06
4c7b: a4 03 L4C7B ldy $03
4c7d: c8 iny
4c7e: f0 08 beq L4C88
4c80: a0 fe ldy #$fe
4c82: b1 02 lda ($02),y
4c84: 29 08 and #$08
4c86: f0 09 beq L4C91
4c88: a9 03 L4C88 lda #$03
4c8a: 85 42 sta MON_A4L
4c8c: 20 5b 4d jsr L4D5B
4c8f: b0 0a bcs L4C9B
4c91: 2c 82 c0 L4C91 bit ROMIN_RO
4c94: 58 cli
4c95: 60 rts
4c96: a9 2b L4C96 lda #$2b
4c98: 2c bit ▼ L28A9
4c99: a9 28 L4C99 lda #$28
4c9b: 2c 82 c0 L4C9B bit ROMIN_RO
4c9e: 58 cli
4c9f: 4c 2d 11 jmp L112D
4ca2: 20 8c 22 L4CA2 jsr InHZ_PrintString3
4ca5: 8d 8d 10 c6+ .zstr $8d,$8d,$10,“Floppy disk - how many tracks (35-40)? 35”,$88,$88
4cd4: 8c 11 50 sty L5011
4cd7: 20 6f fd jsr MON_GETLN1
4cda: 8a txa
4cdb: d0 04 bne L4CE1
4cdd: a9 23 lda #$23
4cdf: d0 0d bne L4CEE
4ce1: a2 00 L4CE1 ldx #$00
4ce3: 20 00 21 jsr L2100_0
4ce6: c9 23 cmp #$23
4ce8: 90 19 bcc L4D03
4cea: c9 29 cmp #$29
4cec: b0 15 bcs L4D03
4cee: 0a L4CEE asl A
4cef: 2e 11 50 rol L5011
4cf2: 0a asl A
4cf3: 2e 11 50 rol L5011
4cf6: 0a asl A
4cf7: 2e 11 50 rol L5011
4cfa: 8d 10 50 sta L5010
4cfd: ad 0e be lda LBE0E
4d00: 4c 00 40 jmp L4000
4d03: 4c 00 44 L4D03 jmp ExtMenu
4d06: 2c 82 c0 L4D06 bit ROMIN_RO
4d09: 20 8c 22 jsr InHZ_PrintString3
4d0c: 8d 8d 10 d4+ .zstr $8d,$8d,$10,“This is a large storage device.”,$8d,$8d,$10,“Do y”
+ “ou really want to format it”
4d51: 20 95 0d jsr L0D95
4d54: 90 ad bcc L4D03
4d56: 70 ab bvs L4D03
4d58: 4c 7b 4c jmp L4C7B
4d5b: 2c 8b c0 L4D5B bit LCBANK1
4d5e: 2c 8b c0 bit LCBANK1
4d61: 6c 00 00 jmp ($0000)
4d64: a9 51 L4D64 lda #$51
4d66: 8d 04 be sta LBE03+1
4d69: a2 2a ldx #$2a
4d6b: a9 53 lda #$53
4d6d: 85 01 sta $01
4d6f: a9 00 lda #$00
4d71: 8d 03 be sta LBE03
4d74: 85 00 sta $00
4d76: 8d 05 be sta LBE05
4d79: 8d 06 be sta LBE05+1
4d7c: a8 tay
4d7d: 91 00 L4D7D sta ($00),y
4d7f: c8 iny
4d80: d0 fb bne L4D7D
4d82: e6 01 inc $01
4d84: ca dex
4d85: d0 f6 bne L4D7D
4d87: a2 02 ldx #$02
4d89: 8e 00 57 stx $5700
4d8c: e8 inx
4d8d: 8e 00 59 stx $5900
4d90: e8 inx
4d91: 8e 00 5b stx $5b00
4d94: 8e 02 57 stx $5702
4d97: e8 inx
4d98: 8e 02 59 stx $5902
4d9b: 20 00 bf jsr P8_MLI
4d9e: 82 .dd1 P8_GET_TIME
4d9f: ea ea .dd2 $eaea
4da1: a0 03 ldy #$03
4da3: b9 90 bf L4DA3 lda P8_DATELO,y
4da6: 99 03 50 sta L5003,y
4da9: 88 dey
4daa: 10 f7 bpl L4DA3
4dac: ac 11 50 ldy L5011
4daf: ad 10 50 lda L5010
4db2: d0 01 bne L4DB5
4db4: 88 dey
4db5: 98 L4DB5 tya
4db6: 4a lsr A
4db7: 4a lsr A
4db8: 4a lsr A
4db9: 4a lsr A
4dba: a8 tay
4dbb: c8 iny
4dbc: 98 tya
4dbd: 18 clc
4dbe: 69 06 adc #$06
4dc0: 85 e4 sta $e4
4dc2: a0 00 ldy #$00
4dc4: 20 fe 4d L4DC4 jsr L4DFE
4dc7: 18 clc
4dc8: 69 01 adc #$01
4dca: 90 01 bcc L4DCD
4dcc: c8 iny
4dcd: cc 11 50 L4DCD cpy L5011
4dd0: d0 f2 bne L4DC4
4dd2: cd 10 50 cmp L5010
4dd5: d0 ed bne L4DC4
4dd7: a0 2a ldy #$2a
4dd9: b9 e7 4f L4DD9 lda L4FE7,y
4ddc: 99 00 55 sta $5500,y
4ddf: 88 dey
4de0: 10 f7 bpl L4DD9
4de2: 20 00 bf L4DE2 jsr P8_MLI
4de5: 81 .dd1 P8_WRITE_BLOCK
4de6: 01 be .dd2 LBE01
4de8: b0 11 bcs L4DFB
4dea: ee 04 be inc LBE03+1
4ded: ee 04 be inc LBE03+1
4df0: ee 05 be inc LBE05
4df3: ad 05 be lda LBE05
4df6: c5 e4 cmp $e4
4df8: 90 e8 bcc L4DE2
4dfa: 60 rts
4dfb: 4c 2d 11 L4DFB jmp L112D
4dfe: 48 L4DFE pha
4dff: 85 00 sta $00
4e01: 84 01 sty $01
4e03: 29 07 and #$07
4e05: aa tax
4e06: 98 tya
4e07: 48 pha
4e08: a0 00 ldy #$00
4e0a: 46 01 lsr $01
4e0c: 66 00 ror $00
4e0e: 46 01 lsr $01
4e10: 66 00 ror $00
4e12: 46 01 lsr $01
4e14: 66 00 ror $00
4e16: a5 01 lda $01
4e18: 18 clc
4e19: 69 5d adc #$5d
4e1b: 85 01 sta $01
4e1d: 98 tya
4e1e: 38 sec
4e1f: 6a L4E1F ror A
4e20: ca dex
4e21: 10 fc bpl L4E1F
4e23: 11 00 ora ($00),y
4e25: 91 00 sta ($00),y
4e27: 68 pla
4e28: a8 tay
4e29: 68 pla
4e2a: 60 rts
4e2b: ae 0e be L4E2B ldx LBE0E
4e2e: 20 14 4f jsr L4F14
4e31: b0 62 bcs L4E95
4e33: 20 00 c5 jsr InSP_DISPATCH_00
4e36: 00 L4E36 .dd1 $00
4e37: be 4e .dd2 L4EBE
4e39: ad a2 4f lda L4FA2
4e3c: 29 10 and #$10
4e3e: 38 sec
4e3f: f0 55 beq L4E96
4e41: 20 8c 22 jsr InHZ_PrintString3
4e44: 8d 8d 10 c9+ .zstr $8d,$8d,$10,“Interleave: ”
4e55: a2 02 ldx #$02
4e57: ad b8 4f lda L4FB8
4e5a: d0 02 bne L4E5E
4e5c: a2 04 ldx #$04
4e5e: 20 c4 4e L4E5E jsr L4EC4
4e61: ad 00 c0 L4E61 lda KBD
4e64: 10 fb bpl L4E61
4e66: 2c 10 c0 bit KBDSTRB
4e69: c9 8d cmp #$8d
4e6b: f0 18 beq L4E85
4e6d: c9 95 cmp #$95
4e6f: f0 0b beq L4E7C
4e71: c9 88 cmp #$88
4e73: d0 e9 bne L4E5E
4e75: ca dex
4e76: d0 e6 bne L4E5E
4e78: a2 09 ldx #$09
4e7a: d0 e2 bne L4E5E
4e7c: e8 L4E7C inx
4e7d: e0 0a cpx #$0a
4e7f: 90 dd bcc L4E5E
4e81: a2 01 ldx #$01
4e83: d0 d9 bne L4E5E
4e85: 8e bd 4e L4E85 stx L4EBD
4e88: ad b8 4f lda L4FB8
4e8b: f0 0f beq L4E9C
4e8d: 20 0d c5 jsr InSP_DISPATCH_0D
4e90: 04 L4E90 .dd1 $04
4e91: 97 4e .dd2 L4E97
4e93: b0 2e bcs L4EC3
4e95: 18 L4E95 clc
4e96: 60 L4E96 rts
4e97: 03 L4E97 .dd1 $03
4e98: 01 L4E98 .dd1 $01
4e99: bb .dd1 $bb
4e9a: 4e .dd1 $4e
4e9b: 0a .dd1 $0a
4e9c: 20 0d c5 L4E9C jsr InSP_DISPATCH_0D
4e9f: 04 L4E9F .dd1 $04
4ea0: ad 4e .dd2 L4EAD
4ea2: b0 1f bcs L4EC3
4ea4: 20 0d c5 jsr InSP_DISPATCH_0D
4ea7: 04 L4EA7 .dd1 $04
4ea8: b2 4e .dd2 L4EB2
4eaa: b0 17 bcs L4EC3
4eac: 60 rts
4ead: 03 L4EAD .dd1 $03
4eae: 01 L4EAE .dd1 $01
4eaf: b7 .dd1 $b7
4eb0: 4e .dd1 $4e
4eb1: 06 .dd1 $06
4eb2: 03 L4EB2 .dd1 $03
4eb3: 01 L4EB3 .dd1 $01
4eb4: bb .dd1 $bb
4eb5: 4e .dd1 $4e
4eb6: 07 .dd1 $07
4eb7: 02 .dd1 $02
4eb8: 00 .dd1 $00
4eb9: 62 .dd1 $62
4eba: 00 .dd1 $00
4ebb: 01 .dd1 $01
4ebc: 00 .dd1 $00
4ebd: 02 L4EBD .dd1 $02
4ebe: 03 L4EBE .dd1 $03
4ebf: 01 L4EBF .dd1 $01
4ec0: a2 .dd1 $a2
4ec1: 4f .dd1 $4f
4ec2: 00 .dd1 $00
4ec3: 60 L4EC3 rts
4ec4: 8a L4EC4 txa
4ec5: 0a asl A
4ec6: a8 tay
4ec7: b9 ef 4e lda L4EF1-2,y
4eca: 29 7f and #$7f
4ecc: 99 ef 4e sta L4EF1-2,y
4ecf: a0 00 ldy #$00
4ed1: b9 f1 4e L4ED1 lda L4EF1,y
4ed4: f0 0f beq L4EE5
4ed6: 30 04 bmi L4EDC
4ed8: 46 32 lsr MON_INVFLAG
4eda: 09 80 ora #$80
4edc: 20 ed fd L4EDC jsr MON_COUT
4edf: 20 14 2f jsr L2F14
4ee2: c8 iny
4ee3: d0 ec bne L4ED1
4ee5: 8a L4EE5 txa
4ee6: 0a asl A
4ee7: a8 tay
4ee8: b9 ef 4e lda L4EF1-2,y
4eeb: 09 80 ora #$80
4eed: 99 ef 4e sta L4EF1-2,y
4ef0: 60 rts
4ef1: b1 a0 b2 a0+ L4EF1 .str “1 2 3 4 5 6 7 8 9”
4f02: 88 88 88 88+ .fill 17,$88
4f13: 00 .dd1 $00
4f14: 8a L4F14 txa
4f15: 48 pha
4f16: 0a asl A
4f17: 30 03 bmi L4F1C
4f19: a9 02 lda #$02
4f1b: 2c bit: ▼ $00a9
4f1c: a9 00 L4F1C lda #$00
4f1e: 69 01 adc #$01
4f20: 8d 97 4f sta L4F97
4f23: 8d e1 4f sta L4FE1
4f26: 8d bf 4e sta L4EBF
4f29: 8d 98 4e sta L4E98
4f2c: 8d ae 4e sta L4EAE
4f2f: 8d b3 4e sta L4EB3
4f32: 68 pla
4f33: 4a lsr A
4f34: 4a lsr A
4f35: 4a lsr A
4f36: 4a lsr A
4f37: 0a asl A
4f38: a8 tay
4f39: b9 10 bf lda P8_DEVADR01,y ;get low byte (e.g. $0a)
4f3c: 69 03 adc #$03 ;add 3 to get DISPATCH address (e.g. $0d)
4f3e: 8d 7e 4f sta L4F80-2 ;modify all call sites
4f41: 8d da 4f sta L4FDC-2
4f44: 8d 34 4e sta L4E36-2
4f47: 8d 8e 4e sta L4E90-2
4f4a: 8d 9d 4e sta L4E9F-2
4f4d: 8d a5 4e sta L4EA7-2
4f50: b9 11 bf lda P8_DEVADR01+1,y ;get high byte (e.g. $c5)
4f53: 8d 7f 4f sta L4F80-1
4f56: 8d 73 4f sta L4F71+2
4f59: 8d db 4f sta L4FDC-1
4f5c: 8d 35 4e sta L4E36-1
4f5f: 8d 8f 4e sta L4E90-1
4f62: 8d 9e 4e sta L4E9F-1
4f65: 8d a6 4e sta L4EA7-1
4f68: 49 c0 eor #$c0
4f6a: c9 08 cmp #$08
4f6c: b0 27 bcs L4F95
4f6e: 38 sec
4f6f: a0 07 ldy #$07
4f71: b9 00 c5 L4F71 lda InSP_DISPATCH_00,y
4f74: 59 9a 4f eor L4F9A,y
4f77: d0 1c bne L4F95
4f79: 88 dey
4f7a: 88 dey
4f7b: 10 f4 bpl L4F71
4f7d: 20 0d c5 jsr InSP_DISPATCH_0D
4f80: 00 L4F80 .dd1 $00
4f81: 96 4f .dd2 L4F96
4f83: b0 10 bcs L4F95
4f85: 38 sec
4f86: ae a6 4f ldx L4FA6
4f89: bd a6 4f L4F89 lda L4FA6,x
4f8c: 5d bb 4f eor L4FBB,x
4f8f: d0 04 bne L4F95
4f91: ca dex
4f92: 10 f5 bpl L4F89
4f94: 18 clc
4f95: 60 L4F95 rts
4f96: 03 L4F96 .dd1 $03
4f97: 01 L4F97 .dd1 $01
4f98: a2 .dd1 $a2
4f99: 4f .dd1 $4f
4f9a: 03 L4F9A .dd1 $03
4f9b: 20 .dd1 $20
4f9c: 00 .dd1 $00
4f9d: 00 .dd1 $00
4f9e: 00 .dd1 $00
4f9f: 03 .dd1 $03
4fa0: 00 .dd1 $00
4fa1: 00 .dd1 $00
4fa2: 00 L4FA2 .dd1 $00
4fa3: 00 .dd1 $00
4fa4: 00 .dd1 $00
4fa5: 00 .dd1 $00
4fa6: 10 L4FA6 .dd1 $10
4fa7: 3c 64 65 76+ .str ‘<device name> ’
4fb7: 00 .dd1 $00
4fb8: 00 L4FB8 .dd1 $00
4fb9: 00 .dd1 $00
4fba: 00 .dd1 $00
4fbb: 08 L4FBB .dd1 $08
4fbc: 44 49 53 4b+ .str ‘DISK 3.5’
4fc4: ad 0e be L4FC4 lda LBE0E
4fc7: 20 41 4b jsr L4B41
4fca: b9 32 bf lda P8_DEVLST,y
4fcd: 29 0f and #$0f
4fcf: c9 0b cmp #$0b
4fd1: f0 01 beq L4FD4
4fd3: 60 L4FD3 rts
4fd4: 20 14 4f L4FD4 jsr L4F14
4fd7: b0 fa bcs L4FD3
4fd9: 20 0d c5 jsr InSP_DISPATCH_0D
4fdc: 04 L4FDC .dd1 $04
4fdd: e0 4f .dd2 L4FE0
4fdf: 60 rts
4fe0: 03 L4FE0 .dd1 $03
4fe1: 01 L4FE1 .dd1 $01
4fe2: e5 .dd1 $e5
4fe3: 4f .dd1 $4f
4fe4: 04 .dd1 $04
4fe5: 00 .dd1 $00
4fe6: 00 .dd1 $00
4fe7: 00 L4FE7 .dd1 $00
4fe8: 00 .dd1 $00
4fe9: 03 .dd1 $03
4fea: 00 .dd1 $00
4feb: f7 L4FEB .dd1 $f7
4fec: 4e 45 57 44+ .str ‘NEWDISK’
4ff3: 00 00 00 00+ .fill 16,$00
5003: 00 L5003 .dd1 $00
5004: 00 .dd1 $00
5005: 00 .dd1 $00
5006: 00 .dd1 $00
5007: 01 .dd1 $01
5008: 00 .dd1 $00
5009: 41 .dd1 $41
500a: 27 .dd1 $27
500b: 0d .dd1 $0d
500c: 00 .dd1 $00
500d: 00 .dd1 $00
500e: 06 .dd1 $06
500f: 00 .dd1 $00
5010: 18 L5010 .dd1 $18
5011: 01 L5011 .dd1 $01
5012: 00 00 00 00+ .fill 238,$00
;
; This appears to be a ProDOS boot block.
;
5100: 01 38 b0 03+ prodos_boot .bulk $01,$38,$b0,$03,$4c,$1c,$09,$78,$86,$43,$c9,$03,$08,$8a,$29,$70
+ $4a,$4a,$4a,$4a,$09,$c0,$85,$49,$a0,$ff,$84,$48,$28,$c8,$b1,$48
+ $d0,$3a,$b0,$0e,$a9,$03,$8d,$00,$08,$e6,$3d,$a5,$49,$48,$a9,$5b
+ $48,$60,$85,$40,$85,$48,$a0,$5e,$b1,$48,$99,$94,$09,$c8,$c0,$eb
+ $d0,$f6,$a2,$06,$bc,$32,$09,$bd,$39,$09,$99,$f2,$09,$bd,$40,$09
+ $9d,$7f,$0a,$ca,$10,$ee,$a9,$09,$85,$49,$a9,$86,$a0,$00,$c9,$f9
+ $b0,$2f,$85,$48,$84,$60,$84,$4a,$84,$4c,$84,$4e,$84,$47,$c8,$84
+ $42,$c8,$84,$46,$a9,$0c,$85,$61,$85,$4b,$20,$27,$09,$b0,$66,$e6
+ $61,$e6,$61,$e6,$46,$a5,$46,$c9,$06,$90,$ef,$ad,$00,$0c,$0d,$01
+ $0c,$d0,$52,$a9,$04,$d0,$02,$a5,$4a,$18,$6d,$23,$0c,$a8,$90,$0d
+ $e6,$4b,$a5,$4b,$4a,$b0,$06,$c9,$0a,$f0,$71,$a0,$04,$84,$4a,$ad
+ $20,$09,$29,$0f,$a8,$b1,$4a,$d9,$20,$09,$d0,$db,$88,$10,$f6,$a0
+ $16,$b1,$4a,$4a,$6d,$1f,$09,$8d,$1f,$09,$a0,$11,$b1,$4a,$85,$46
+ $c8,$b1,$4a,$85,$47,$a9,$00,$85,$4a,$a0,$1e,$84,$4b,$84,$61,$c8
+ $84,$4d,$20,$27,$09,$b0,$35,$e6,$61,$e6,$61,$a4,$4e,$e6,$4e,$b1
+ $4a,$85,$46,$b1,$4c,$85,$47,$11,$4a,$d0,$18,$a2,$01,$a9,$00,$a8
+ $91,$60,$c8,$d0,$fb,$e6,$61,$e6,$61,$ca,$10,$f4,$38,$a5,$61,$e9
+ $04,$85,$61,$ce,$1f,$09,$d0,$ca,$58,$4c,$00,$20,$4c,$47,$09,$02
+ $26,$50,$52,$4f,$44,$4f,$53,$a5,$60,$85,$44,$a5,$61,$85,$45,$6c
+ $48,$00,$08,$1e,$24,$3f,$45,$47,$76,$f4,$d7,$d1,$b6,$4b,$b4,$ac
+ $a6,$2b,$18,$60,$4c,$bc,$09,$20,$58,$fc,$a0,$14,$b9,$58,$09,$99
+ $b1,$05,$88,$10,$f7,$4c,$55,$09,$d5,$ce,$c1,$c2,$cc,$c5,$a0,$d4
+ $cf,$a0,$cc,$cf,$c1,$c4,$a0,$d0,$d2,$cf,$c4,$cf,$d3,$a5,$53,$29
+ $03,$2a,$05,$2b,$aa,$bd,$80,$c0,$a9,$2c,$a2,$11,$ca,$d0,$fd,$e9
+ $01,$d0,$f7,$a6,$2b,$60,$a5,$46,$29,$07,$c9,$04,$29,$03,$08,$0a
+ $28,$2a,$85,$3d,$a5,$47,$4a,$a5,$46,$6a,$4a,$4a,$85,$41,$0a,$85
+ $51,$a5,$45,$85,$27,$a6,$2b,$bd,$89,$c0,$20,$bc,$09,$e6,$27,$e6
+ $3d,$e6,$3d,$b0,$03,$20,$bc,$09,$bc,$88,$c0,$60,$a5,$40,$0a,$85
+ $53,$a9,$00,$85,$54,$a5,$53,$85,$50,$38,$e5,$51,$f0,$14,$b0,$04
+ $e6,$53,$90,$02,$c6,$53,$38,$20,$6d,$09,$a5,$50,$18,$20,$6f,$09
+ $d0,$e3,$a0,$7f,$84,$52,$08,$28,$38,$c6,$52,$f0,$ce,$18,$08,$88
+ $f0,$f5,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
.adrend ↑ $4000
No exported symbols found.