From 0bcf4e8bd3d1b7468d7f6b485a1db53c93ebb4dc Mon Sep 17 00:00:00 2001 From: Joshua Bell Date: Wed, 17 Jan 2018 08:41:23 -0700 Subject: [PATCH] DeskTop: No more L0006 --- desktop/desktop.s | 1469 ++++++++++++++++++++++----------------------- 1 file changed, 733 insertions(+), 736 deletions(-) diff --git a/desktop/desktop.s b/desktop/desktop.s index bc1bae3..326e253 100644 --- a/desktop/desktop.s +++ b/desktop/desktop.s @@ -5640,7 +5640,6 @@ app_mask: ;;; ================================================== .proc desktop_main -L0006 := $0006 L0020 := $0020 L0800 := $0800 L0CB8 := $0CB8 @@ -5806,15 +5805,15 @@ L415B: sta desktop_winid jsr DESKTOP_ASSIGN_STATE lda desktop_winid jsr L86EF - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 ldy #$16 - lda (L0006),y + lda ($06),y sec sbc query_state_buffer::top sta L4242 iny - lda (L0006),y + lda ($06),y sbc query_state_buffer::top+1 sta L4243 lda L4242 @@ -5826,19 +5825,19 @@ L415B: sta desktop_winid ldx #$0B ldy #$1F lda query_state_buffer,x - sta (L0006),y + sta ($06),y dey dex lda query_state_buffer,x - sta (L0006),y + sta ($06),y ldx #$03 ldy #$17 lda query_state_buffer,x - sta (L0006),y + sta ($06),y dey dex lda query_state_buffer,x - sta (L0006),y + sta ($06),y L41CB: ldx bufnum dex lda LE6D1,x @@ -6080,15 +6079,15 @@ L445D: jsr L6D2B sta LE22F lda LE22F jsr L86E3 - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 ldy #$01 - lda (L0006),y + lda ($06),y beq L44A6 ora #$80 - sta (L0006),y + sta ($06),y iny - lda (L0006),y + lda ($06),y and #$0F sta L445C jsr L8997 @@ -6230,17 +6229,17 @@ L45D9: stx L45EC sta L45EC L45EC := *+1 lda $BF00 ; self-modified - sta L0006+1 + sta $06+1 lda #0 - sta L0006 + sta $06 ldy #$07 - lda (L0006),y + lda ($06),y bne L4627 ldy #$FF - lda (L0006),y + lda ($06),y clc adc #$03 - sta L0006 + sta $06 lda L4637 pha rol a @@ -6274,7 +6273,7 @@ L4629: sta L4638 lda L4638 rts -L4634: jmp (L0006) +L4634: jmp ($06) L4637: .byte $00 L4638: .byte $00 @@ -6380,20 +6379,20 @@ L46F3: jsr L488A ldx #$FF L46F8: inx lda $D355,x - sta $0220,x + sta $220,x cpx $D355 bne L46F8 inx lda #$2F - sta $0220,x + sta $220,x ldy #$00 L470C: iny inx lda $D345,y - sta $0220,x + sta $220,x cpy $D345 bne L470C - stx $0220 + stx $220 MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params beq L472B jsr DESKTOP_SHOW_ALERT0 @@ -6424,7 +6423,7 @@ L4755: DESKTOP_RELAY_CALL $06 A2D_RELAY_CALL A2D_SET_MENU, blank_menu ldx $D355 L4773: lda $D355,x - sta $0220,x + sta $220,x dex bpl L4773 ldx $D345 @@ -6433,7 +6432,7 @@ L477F: lda $D345,x dex bpl L477F addr_call L4842, $0280 - addr_call L4842, $0220 + addr_call L4842, $220 jsr L48BE lda #ramdisk_icon - sta (L0006),y + sta ($06),y jmp L8A96 L8A67: ldy #7 lda #profile_icon - sta (L0006),y + sta ($06),y jmp L8A96 L8A75: cmp #$0B bne L8A87 ldy #$07 lda #floppy_800_icon - sta (L0006),y + sta ($06),y jmp L8A96 L8A87: cmp #$00 bne L8A67 ldy #$07 lda #floppy_140_icon - sta (L0006),y + sta ($06),y L8A96: ldy #$02 lda #$00 - sta (L0006),y + sta ($06),y inc L8AC4 lda L8AC4 asl a @@ -13926,7 +13925,7 @@ L8A96: ldy #$02 tax ldy #$03 L8AA7: lda L8AC5,x - sta (L0006),y + sta ($06),y inx iny cpy #$07 @@ -13934,7 +13933,7 @@ L8AA7: lda L8AC5,x ldx buf3len dex ldy #$00 - lda (L0006),y + lda ($06),y sta buf3,x jsr pop_zp_addrs lda #$00 @@ -13993,12 +13992,12 @@ L8B3E: lda #$00 sta LEC26,x L8B43: lda LE6BE jsr L86E3 - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 ldy #$02 - lda (L0006),y + lda ($06),y and #$7F - sta (L0006),y + sta ($06),y jsr L4244 jsr pop_zp_addrs rts @@ -14011,41 +14010,41 @@ L8B62: sty L8D4A stx L8D4C txa jsr L86EF - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 lda #$14 clc adc #$23 tay ldx #$23 -L8B7B: lda (L0006),y +L8B7B: lda ($06),y sta query_state_buffer,x dey dex bpl L8B7B lda L8D4B jsr L86E3 - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 ldy #$03 - lda (L0006),y + lda ($06),y clc adc #$07 sta L0800 sta $0804 iny - lda (L0006),y + lda ($06),y adc #$00 sta $0801 sta $0805 iny - lda (L0006),y + lda ($06),y clc adc #$07 sta $0802 sta $0806 iny - lda (L0006),y + lda ($06),y adc #$00 sta $0803 sta $0807 @@ -14495,11 +14494,11 @@ L8FA1: jsr L8FE1 L8FA7: asl a tay lda file_address_table,y - sta L0006 + sta $06 lda file_address_table+1,y - sta L0006+1 + sta $06+1 ldy #$02 - lda (L0006),y + lda ($06),y rts L8FB8: lda #$00 @@ -14555,9 +14554,9 @@ L900C: pla lda window_address_table+1,x sta $09 lda #$7B - sta L0006 + sta $06 lda #$91 - sta L0006+1 + sta $06+1 jsr L91A0 jmp L9076 @@ -14579,20 +14578,20 @@ L9051: lda $EBFC jsr L918E ldy #$01 lda #$2F - sta (L0006),y + sta ($06),y dey - lda (L0006),y + lda ($06),y sta L906D sta $E00A,y L9066: iny - lda (L0006),y + lda ($06),y sta $E00A,y .byte $C0 L906D: .byte 0 bne L9066 ldy #$01 lda #$20 - sta (L0006),y + sta ($06),y L9076: ldy #$FF L9078: iny lda $E00A,y @@ -14655,15 +14654,15 @@ L90EE: jsr L91F5 jsr L918E jsr L91A0 lda #$0A - sta L0006 + sta $06 lda #$E0 - sta L0006+1 + sta $06+1 ldy #$00 - lda (L0006),y + lda ($06),y beq L9114 sec sbc #$01 - sta (L0006),y + sta ($06),y L9114: lda L97E4 beq L913D bit L9189 @@ -14705,7 +14704,7 @@ L9168: jsr L917F jsr L918E ldy #$01 lda #$20 - sta (L0006),y + sta ($06),y lda #$00 rts @@ -14733,10 +14732,10 @@ L918E: asl a lda file_address_table,y clc adc #$09 - sta L0006 + sta $06 lda file_address_table+1,y adc #$00 - sta L0006+1 + sta $06+1 rts L91A0: ldx #$00 @@ -14755,13 +14754,13 @@ L91B6: inx lda #$2F sta $E00A,x ldy #$00 - lda (L0006),y + lda ($06),y beq L91D1 sta L91CE iny L91C6: iny inx - lda (L0006),y + lda ($06),y sta $E00A,x .byte $C0 L91CE: .byte 0 @@ -14853,21 +14852,21 @@ L9271: stx L9284 sta L9284 L9284 := *+1 lda $BF00 ; self-modified - sta L0006+1 + sta $06+1 lda #$00 - sta L0006 + sta $06 ldy #$07 .byte $B1 L928F: asl $D0 cmp $FBA0 ; generic_icon - 6 ? - lda (L0006),y + lda ($06),y and #$7F bne L925F ldy #$FF - lda (L0006),y + lda ($06),y clc adc #$03 - sta L0006 + sta $06 lda L92C7 pha rol a @@ -14885,7 +14884,7 @@ L928F: asl $D0 .byte $04 .addr L92C0 rts -L92BD: jmp (L0006) +L92BD: jmp ($06) L92C0: .byte $03 L92C1: .byte $00,$C5,$92,$04,$00,$00 @@ -14933,11 +14932,11 @@ L9300: lda selected_window_index jsr L91A0 ldy #$00 L931F: lda $E00A,y - sta $0220,y + sta $220,y iny - cpy $0220 + cpy $220 bne L931F - dec $0220 + dec $220 jmp L9356 L9331: ldx L92E6 @@ -14948,12 +14947,12 @@ L9331: ldx L92E6 L933E: jsr L918E ldy #$00 -L9343: lda (L0006),y - sta $0220,y +L9343: lda ($06),y + sta $220,y iny - cpy $0220 + cpy $220 bne L9343 - dec $0220 + dec $220 lda #$2F sta $0221 L9356: yax_call JT_MLI_RELAY, L92C9, GET_FILE_INFO @@ -15009,9 +15008,9 @@ L93DB: ldx L92E6 jsr L918E lda #$01 sta L92E3 - lda L0006 + lda $06 sta L92E4 - lda L0006+1 + lda $06+1 sta L92E5 jsr L953F lda #$02 @@ -15042,7 +15041,7 @@ L942E: .byte 0 L942F: lda #$03 sta L92E3 lda #$00 - sta $0220 + sta $220 lda selected_window_index bne L9472 lda L92CE @@ -15061,12 +15060,12 @@ L9456: lda text_buffer2::data-1,x beq L9460 inx bne L9456 -L9460: stx $0220 +L9460: stx $220 lda #$2F - sta $0220,x + sta $220,x dex L9469: lda text_buffer2::data-1,x - sta $0220,x + sta $220,x dex bne L9469 L9472: lda selected_window_index @@ -15079,7 +15078,7 @@ L9480: lda L92D1 ldx L92D2 L9486: jsr L4006 jsr L9549 - ldx $0220 + ldx $220 ldy #$00 L9491: lda $E6EC,y sta $0221,x @@ -15089,10 +15088,10 @@ L9491: lda $E6EC,y bne L9491 tya clc - adc $0220 - sta $0220 - ldx $0220 -L94A9: lda $0220,x + adc $220 + sta $220 + ldx $220 +L94A9: lda $220,x sta LDFC9,x dex bpl L94A9 @@ -15205,43 +15204,43 @@ L9591: lda selected_window_index jsr L91A0 ldy #$00 L95B0: lda $E00A,y - sta $0220,y + sta $220,y iny - cpy $0220 + cpy $220 bne L95B0 - dec $0220 + dec $220 jmp L95E0 L95C2: ldx L9706 lda selected_file_index,x jsr L918E ldy #$00 -L95CD: lda (L0006),y - sta $0220,y +L95CD: lda ($06),y + sta $220,y iny - cpy $0220 + cpy $220 bne L95CD - dec $0220 + dec $220 lda #$2F sta $0221 L95E0: ldx L9706 lda selected_file_index,x jsr L918E ldy #$00 - lda (L0006),y + lda ($06),y tay -L95EE: lda (L0006),y +L95EE: lda ($06),y sta $1F12,y dey bpl L95EE ldy #$00 - lda (L0006),y + lda ($06),y tay dey sec sbc #$02 sta $1F00 -L9602: lda (L0006),y +L9602: lda ($06),y sta $1EFF,y dey cpy #$01 @@ -15256,7 +15255,7 @@ L9618: ldx L9706 jsr L918E ldy $1F12 L9624: lda $1F12,y - sta (L0006),y + sta ($06),y dey bpl L9624 lda #$FF @@ -15271,19 +15270,19 @@ L962F: sty $08 asl a tax lda window_address_table,x - sta L0006 + sta $06 lda window_address_table+1,x - sta L0006+1 + sta $06+1 jmp L9655 L964D: lda #$05 - sta L0006 + sta $06 lda #$97 - sta L0006+1 + sta $06+1 L9655: ldy #$00 - lda (L0006),y + lda ($06),y tay -L965A: lda (L0006),y +L965A: lda ($06),y sta $1FC0,y dey bpl L965A @@ -15331,25 +15330,25 @@ L969E: lda #$40 lda ($08),y clc adc #$02 - sta (L0006),y + sta ($06),y lda ($08),y tay - inc L0006 + inc $06 bne L96DA - inc L0006+1 + inc $06+1 L96DA: lda ($08),y - sta (L0006),y + sta ($06),y dey bne L96DA - dec L0006 - lda L0006 + dec $06 + lda $06 cmp #$FF bne L96EB - dec L0006+1 -L96EB: lda (L0006),y + dec $06+1 +L96EB: lda ($06),y tay lda #$20 - sta (L0006),y + sta ($06),y inc L9706 jmp L9576 @@ -15699,9 +15698,9 @@ L9A36: ldx $1FC0 dey L9A3D: iny inx - lda $0220,y + lda $220,y sta $1FC0,x - cpy $0220 + cpy $220 bne L9A3D stx $1FC0 jmp L9A70 @@ -16432,9 +16431,9 @@ LA114: lda #$03 dey LA123: iny inx - lda $0220,y + lda $220,y sta $1FC0,x - cpy $0220 + cpy $220 bne LA123 stx $1FC0 LA133: yax_call JT_MLI_RELAY, file_info_params2, GET_FILE_INFO @@ -16629,7 +16628,7 @@ LA2FD: lda L97AD rts LA303: ldx #$00 - ldy $0220 + ldy $220 lda #$2F sta $0221,y iny @@ -16641,23 +16640,23 @@ LA30E: cpx L97AD iny jmp LA30E -LA31E: sty $0220 +LA31E: sty $220 rts -LA322: ldx $0220 +LA322: ldx $220 bne LA328 rts -LA328: lda $0220,x +LA328: lda $220,x cmp #$2F beq LA336 dex bne LA328 - stx $0220 + stx $220 rts LA336: dex - stx $0220 + stx $220 rts LA33B: lda L97AD @@ -16704,7 +16703,7 @@ LA37F: iny cmp #$2F bne LA38A sty L9B32 -LA38A: sta $0220,y +LA38A: sta $220,y cpy $E00A bne LA37F ldy LDFC9 @@ -17275,7 +17274,7 @@ show_copy_file_dialog: jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y cmp #$01 bne LA965 jmp LA9B5 @@ -17307,10 +17306,10 @@ LA981: lda #$00 rts LA9B5: ldy #$01 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDC4 jsr LBDDF @@ -17322,10 +17321,10 @@ LA9B5: ldy #$01 rts LA9E6: ldy #$01 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDC4 jsr LBDDF @@ -17335,23 +17334,23 @@ LA9E6: ldy #$01 jsr LBE9A jsr LB3BF ldy #$03 - lda (L0006),y + lda ($06),y tax iny - lda (L0006),y - sta L0006+1 - stx L0006 + lda ($06),y + sta $06+1 + stx $06 jsr LBE63 A2D_RELAY_CALL A2D_SET_POS, LAE7E addr_call draw_text1, $D402 jsr LB3BF ldy #$05 - lda (L0006),y + lda ($06),y tax iny - lda (L0006),y - sta L0006+1 - stx L0006 + lda ($06),y + sta $06+1 + stx $06 jsr LBE78 A2D_RELAY_CALL A2D_SET_POS, LAE82 lda #$43 @@ -17408,7 +17407,7 @@ LAACE: sta ALTZPOFF LAAE1: jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y cmp #$01 bne LAAEF jmp LAB38 @@ -17436,10 +17435,10 @@ LAB04: lda #$00 rts LAB38: ldy #$01 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDC4 jsr LBDDF @@ -17451,10 +17450,10 @@ LAB38: ldy #$01 rts LAB69: ldy #$01 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDC4 jsr LBDDF @@ -17463,12 +17462,12 @@ LAB69: ldy #$01 jsr LBE8D jsr LB3BF ldy #$03 - lda (L0006),y + lda ($06),y tax iny - lda (L0006),y - sta L0006+1 - stx L0006 + lda ($06),y + sta $06+1 + stx $06 jsr LBE63 A2D_RELAY_CALL A2D_SET_POS, LAE7E addr_call draw_text1, $D402 @@ -17498,7 +17497,7 @@ LABDD: jsr LA567 LABFA: jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y cmp #$01 bne LAC08 jmp LAC3D @@ -17522,18 +17521,18 @@ LAC16: jsr LB53A rts LAC3D: ldy #$01 - lda (L0006),y + lda ($06),y sta LD909 tax iny - lda (L0006),y - sta L0006+1 - stx L0006 + lda ($06),y + sta $06+1 + stx $06 ldy #$00 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDDF lda winF @@ -17543,17 +17542,17 @@ LAC3D: ldy #$01 yax_call draw_dialog_label, str_7_spaces, $01 jsr LB3BF ldy #$03 - lda (L0006),y + lda ($06),y tax iny - lda (L0006),y - sta L0006+1 - stx L0006 + lda ($06),y + sta $06+1 + stx $06 ldy #$00 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDDF lda #$A5 @@ -17580,7 +17579,7 @@ LACB7: jsr LA567 show_delete_file_dialog: ; ??? jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y cmp #$01 bne LACE2 jmp LAD2A @@ -17616,10 +17615,10 @@ LAD20: axy_call draw_dialog_label, str_delete_ok, $04 rts LAD2A: ldy #$01 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDC4 jsr LBDDF @@ -17636,10 +17635,10 @@ LAD5D: addr_call draw_text1, str_7_spaces rts LAD6C: ldy #$01 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDC4 jsr LBDDF @@ -17648,12 +17647,12 @@ LAD6C: ldy #$01 jsr LBE8D jsr LB3BF ldy #$03 - lda (L0006),y + lda ($06),y tax iny - lda (L0006),y - sta L0006+1 - stx L0006 + lda ($06),y + sta $06+1 + stx $06 jsr LBE63 A2D_RELAY_CALL A2D_SET_POS, LAE7E addr_call draw_text1, $D402 @@ -17696,7 +17695,7 @@ LAE17: jsr LA567 show_new_folder_dialog: jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y cmp #$80 bne LAE42 jmp LAE70 @@ -17724,10 +17723,10 @@ LAE70: lda #$80 jsr LBD75 jsr LB3BF ldy #$01 - lda (L0006),y + lda ($06),y sta $08 iny - lda (L0006),y + lda ($06),y sta $09 ldy #$00 lda ($08),y @@ -17795,13 +17794,13 @@ LAF16: jsr LBEB1 show_get_info_dialog: jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y bmi LAF34 jmp LAFB9 LAF34: lda #$00 sta LD8E8 - lda (L0006),y + lda ($06),y lsr a lsr a ror a @@ -17812,7 +17811,7 @@ LAF34: lda #$00 addr_call LB723, str_info_title jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y and #$7F lsr a ror a @@ -17839,7 +17838,7 @@ LAFB9: lda winF jsr LB7B9 jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y sta LB01E tay jsr LB01F @@ -17850,7 +17849,7 @@ LAFB9: lda winF cmp #$02 bne LAFF0 ldy #$01 - lda (L0006),y + lda ($06),y beq LAFE9 lda #$A8 ldx #$AE @@ -17861,10 +17860,10 @@ LAFE9: lda #$AD jmp LAFF8 LAFF0: ldy #$02 - lda (L0006),y + lda ($06),y tax dey - lda (L0006),y + lda ($06),y LAFF8: ldy LB01E jsr draw_dialog_label lda LB01E @@ -17898,7 +17897,7 @@ LB01F: lda #$A0 show_lock_dialog: jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y cmp #$01 bne LB03A jmp LB068 @@ -17923,10 +17922,10 @@ LB04F: lda #$00 rts LB068: ldy #$01 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDC4 jsr LBDDF @@ -17939,10 +17938,10 @@ LB068: ldy #$01 rts LB0A2: ldy #$01 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDC4 jsr LBDDF @@ -17951,12 +17950,12 @@ LB0A2: ldy #$01 jsr LBE8D jsr LB3BF ldy #$03 - lda (L0006),y + lda ($06),y tax iny - lda (L0006),y - sta L0006+1 - stx L0006 + lda ($06),y + sta $06+1 + stx $06 jsr LBE63 A2D_RELAY_CALL A2D_SET_POS, LAE7E addr_call draw_text1, $D402 @@ -17990,7 +17989,7 @@ LB13A: jsr LBEB1 show_unlock_dialog: jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y cmp #$01 bne LB158 jmp LB186 @@ -18015,10 +18014,10 @@ LB16D: lda #$00 rts LB186: ldy #$01 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDC4 jsr LBDDF @@ -18031,10 +18030,10 @@ LB186: ldy #$01 rts LB1C0: ldy #$01 - lda (L0006),y + lda ($06),y sta LD909 iny - lda (L0006),y + lda ($06),y sta LD90A jsr LBDC4 jsr LBDDF @@ -18043,12 +18042,12 @@ LB1C0: ldy #$01 jsr LBE8D jsr LB3BF ldy #$03 - lda (L0006),y + lda ($06),y tax iny - lda (L0006),y - sta L0006+1 - stx L0006 + lda ($06),y + sta $06+1 + stx $06 jsr LBE63 A2D_RELAY_CALL A2D_SET_POS, LAE7E addr_call draw_text1, $D402 @@ -18082,7 +18081,7 @@ LB258: jsr LBEB1 show_rename_dialog: jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y cmp #$80 bne LB276 jmp LB2ED @@ -18108,10 +18107,10 @@ LB27D: jsr LBD75 sta LD6C3 jsr LB3BF ldy #$01 - lda (L0006),y + lda ($06),y sta $08 iny - lda (L0006),y + lda ($06),y sta $09 ldy #$00 lda ($08),y @@ -18161,7 +18160,7 @@ LB325: A2D_RELAY_CALL A2D_SHOW_CURSOR jsr LB3BF ldy #$00 - lda (L0006),y + lda ($06),y pha bmi LB357 tax @@ -18213,9 +18212,9 @@ LB3A3: .addr str_insert_system_disk,str_1_space .addr str_save_selector_list,str_on_system_disk LB3BF: lda LA51D - sta L0006 + sta $06 lda LA51E - sta L0006+1 + sta $06+1 rts LB3CA: bit LB3E6 bpl LB3D7 @@ -18370,19 +18369,19 @@ LB55F: A2D_RELAY_CALL A2D_CREATE_WINDOW, winF rts draw_dialog_label: - stx L0006+1 - sta L0006 + stx $06+1 + sta $06 tya bmi LB59A jmp LB5CC LB59A: tya pha - lda L0006 + lda $06 clc adc #$01 sta $08 - lda L0006+1 + lda $06+1 adc #$00 sta $09 jsr LBD7B @@ -18411,8 +18410,8 @@ LB5CC: dey adc #$00 sta $D6C6 A2D_RELAY_CALL A2D_SET_POS, LD6C3 - lda L0006 - ldx L0006+1 + lda $06 + ldx $06+1 jsr draw_text1 ldx LD6C3 lda #$28 @@ -18485,15 +18484,15 @@ LB6FB: jsr LBEA7 rts draw_text1: - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 jsr LBD7B beq LB722 sta $08 - inc L0006 + inc $06 bne LB719 - inc L0006+1 -LB719: A2D_RELAY_CALL A2D_DRAW_TEXT, $0006 + inc $06+1 +LB719: A2D_RELAY_CALL A2D_DRAW_TEXT, $6 LB722: rts ;;; ================================================== @@ -18534,11 +18533,11 @@ LB722: rts ;;; ================================================== LB76B: .byte 0 - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 A2D_RELAY_CALL A2D_SET_POS, LD6BB - lda L0006 - ldx L0006+1 + lda $06 + ldx $06+1 jsr draw_text1 rts @@ -18703,13 +18702,13 @@ LB8F3: .byte 0 rts LB8F5: jsr LBD3B - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 lda $D6B5 sta $08 lda $D6B6 sta $09 - A2D_RELAY_CALL A2D_SET_POS, $0006 + A2D_RELAY_CALL A2D_SET_POS, $6 A2D_RELAY_CALL A2D_SET_BOX, LD6C7 bit LD8EB bpl LB92D @@ -18721,12 +18720,12 @@ LB92D: A2D_RELAY_CALL A2D_SET_TEXT_MASK, LAE6D lda #$FF sta LD8EB LB93B: lda #$EF - sta L0006 + sta $06 lda #$D8 - sta L0006+1 + sta $06+1 lda LD8EE sta $08 - A2D_RELAY_CALL A2D_DRAW_TEXT, $0006 + A2D_RELAY_CALL A2D_DRAW_TEXT, $6 A2D_RELAY_CALL A2D_SET_TEXT_MASK, LAE6D lda winF jsr LB7B9 @@ -18757,12 +18756,12 @@ LB9B8: A2D_RELAY_CALL A2D_MAP_COORDS, input_params rts LB9D8: jsr LBD3B - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 lda $D20D - cmp L0006 + cmp $06 lda $D20E - sbc L0006+1 + sbc $06+1 bcs LB9EE jmp LBA83 @@ -18775,12 +18774,12 @@ LB9EE: jsr LBD3B sta $D484,x inc $D484 lda #$84 - sta L0006 + sta $06 lda #$D4 - sta L0006+1 + sta $06+1 lda $D484 sta $08 -LBA10: A2D_RELAY_CALL A2D_MEASURE_TEXT, $0006 +LBA10: A2D_RELAY_CALL A2D_MEASURE_TEXT, $6 lda $09 clc adc LBB09 @@ -18834,12 +18833,12 @@ LBA7C: dey jmp LBB05 LBA83: lda #$43 - sta L0006 + sta $06 lda #$D4 - sta L0006+1 + sta $06+1 lda $D443 sta $08 -LBA90: A2D_RELAY_CALL A2D_MEASURE_TEXT, $0006 +LBA90: A2D_RELAY_CALL A2D_MEASURE_TEXT, $6 lda $09 clc adc LD6B3 @@ -18911,13 +18910,13 @@ LBB1A: lda LBB62 sta str_1_char+1 jsr LBD3B inc $D443 - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 lda $D6B5 sta $08 lda $D6B6 sta $09 - A2D_RELAY_CALL A2D_SET_POS, $0006 + A2D_RELAY_CALL A2D_SET_POS, $6 A2D_RELAY_CALL A2D_SET_BOX, LD6C7 addr_call draw_text1, str_1_char addr_call draw_text1, $D484 @@ -18932,13 +18931,13 @@ LBB63: lda $D443 LBB69: dec $D443 jsr LBD3B - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 lda $D6B5 sta $08 lda $D6B6 sta $09 - A2D_RELAY_CALL A2D_SET_POS, $0006 + A2D_RELAY_CALL A2D_SET_POS, $6 A2D_RELAY_CALL A2D_SET_BOX, LD6C7 addr_call draw_text1, $D484 addr_call draw_text1, str_2_spaces @@ -18964,13 +18963,13 @@ LBBBC: ldx $D443 dec $D443 inc $D484 jsr LBD3B - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 lda $D6B5 sta $08 lda $D6B6 sta $09 - A2D_RELAY_CALL A2D_SET_POS, $0006 + A2D_RELAY_CALL A2D_SET_POS, $6 A2D_RELAY_CALL A2D_SET_BOX, LD6C7 addr_call draw_text1, $D484 addr_call draw_text1, str_2_spaces @@ -19080,16 +19079,16 @@ LBCDF: lda $D484,x jsr LB961 rts - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 ldy #$00 - lda (L0006),y + lda ($06),y tay clc adc $D443 pha tax -LBD11: lda (L0006),y +LBD11: lda ($06),y sta $D443,x dey dex @@ -19113,9 +19112,9 @@ LBD33: rts rts LBD3B: lda #$44 - sta L0006 + sta $06 lda #$D4 - sta L0006+1 + sta $06+1 lda $D443 sta $08 bne LBD51 @@ -19123,7 +19122,7 @@ LBD3B: lda #$44 ldx $D6B4 rts -LBD51: A2D_RELAY_CALL A2D_MEASURE_TEXT, $0006 +LBD51: A2D_RELAY_CALL A2D_MEASURE_TEXT, $6 lda $09 clc adc LD6B3 @@ -19167,7 +19166,7 @@ LBD95: lda LBDB0,x LBD9F: sta RAMRDON sta RAMWRTON ldy #$00 - lda (L0006),y + lda ($06),y sta RAMRDOFF sta RAMWRTOFF rts @@ -19270,9 +19269,9 @@ LBE60: .byte 0 LBE61: .byte 0 LBE62: .byte 0 LBE63: ldy #$00 - lda (L0006),y + lda ($06),y tay -LBE68: lda (L0006),y +LBE68: lda ($06),y sta $D402,y dey bpl LBE68 @@ -19282,9 +19281,9 @@ LBE68: lda (L0006),y rts LBE78: ldy #$00 - lda (L0006),y + lda ($06),y tay -LBE7D: lda (L0006),y +LBE7D: lda ($06),y sta $D443,y dey bpl LBE7D @@ -19322,8 +19321,6 @@ LBEB1: A2D_RELAY_CALL A2D_QUERY_SCREEN, state2 ;;; Appears to be init sequence - machine identification, etc .proc desktop_800 -L0006 := $0006 - L4AFD := desktop_main::L4AFD L4862 := desktop_main::L4862 L4B3A := desktop_main::L4B3A @@ -19430,9 +19427,9 @@ found_ram: A2D_RELAY_CALL A2D_SHOW_CURSOR jsr push_zp_addrs lda #$63 - sta L0006 + sta $06 lda #$EC - sta L0006+1 + sta $06+1 ldx #$01 L08D5: cpx #$7F bne L08DF @@ -19443,23 +19440,23 @@ L08DF: txa pha asl a tax - lda L0006 + lda $06 sta file_address_table,x - lda L0006+1 + lda $06+1 sta file_address_table+1,x pla pha ldy #$00 - sta (L0006),y + sta ($06),y iny lda #$00 - sta (L0006),y - lda L0006 + sta ($06),y + lda $06 clc adc #$1B - sta L0006 + sta $06 bcc L0903 - inc L0006+1 + inc $06+1 L0903: pla tax inx @@ -19488,27 +19485,27 @@ L092F: lda #$00 sta $EBFB sta buf3 jsr L86E3 - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 ldy #$02 lda #$70 - sta (L0006),y + sta ($06),y ldy #$07 lda #trash_icon - sta (L0006),y + sta ($06),y iny ldx #$00 L0960: lda L0927,x - sta (L0006),y + sta ($06),y iny inx cpx L0927 bne L0960 lda L0927,x - sta (L0006),y + sta ($06),y lda DEVCNT sta L0A01 inc L0A01 @@ -19542,21 +19539,21 @@ L09A2: stx L09B5 .byte $AD L09B5: .byte 0 .byte $BF - sta L0006+1 + sta $06+1 lda #$00 - sta L0006 + sta $06 ldy #$07 - lda (L0006),y + lda ($06),y bne L09F5 ldy #$FB - lda (L0006),y + lda ($06),y and #$7F bne L09F5 ldy #$FF - lda (L0006),y + lda ($06),y clc adc #$03 - sta L0006 + sta $06 jsr L09F9 .byte 0 .byte $FC @@ -19575,7 +19572,7 @@ L09E6: lda DEVLST+1,x L09F5: jmp L0A03 L09F8: .byte 0 -L09F9: jmp (L0006) +L09F9: jmp ($06) .byte $03 .byte 0 @@ -19603,34 +19600,34 @@ L0A3B: lda L0A92 cmp L0A93 beq L0A8F jsr L0A95 - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 lda L0A92 jsr L0AA2 sta $08 stx $09 ldy #$00 - lda (L0006),y + lda ($06),y tay -L0A59: lda (L0006),y +L0A59: lda ($06),y sta ($08),y dey bpl L0A59 ldy #$0F - lda (L0006),y + lda ($06),y sta ($08),y lda L0A92 jsr L0ABC - sta L0006 - stx L0006+1 + sta $06 + stx $06+1 lda L0A92 jsr L0AAF sta $08 stx $09 ldy #$00 - lda (L0006),y + lda ($06),y tay -L0A7F: lda (L0006),y +L0A7F: lda ($06),y sta ($08),y dey bpl L0A7F @@ -19800,18 +19797,18 @@ L0BC3: MLI_RELAY_CALL OPEN, open_params2 lda $1423 sta L0D06 lda #$2B - sta L0006 + sta $06 lda #$14 - sta L0006+1 + sta $06+1 L0C0C: ldy #$00 - lda (L0006),y + lda ($06),y and #$0F bne L0C17 jmp L0C81 L0C17: inc L0D04 ldy #$10 - lda (L0006),y + lda ($06),y cmp #$F1 beq L0C25 jmp L0C81 @@ -19841,11 +19838,11 @@ L0C25: inc L0D05 adc $09 sta $09 ldy #$00 - lda (L0006),y + lda ($06),y and #$0F sta ($08),y tay -L0C60: lda (L0006),y +L0C60: lda ($06),y sta ($08),y dey bne L0C60 @@ -19878,20 +19875,20 @@ L0C96: inc L0D08 bne L0CBA MLI_RELAY_CALL READ, read_params2 lda #$04 - sta L0006 + sta $06 lda #$14 - sta L0006+1 + sta $06+1 lda #$00 sta L0D08 jmp L0C0C -L0CBA: lda L0006 +L0CBA: lda $06 clc adc L0D06 - sta L0006 - lda L0006+1 + sta $06 + lda $06+1 adc #$00 - sta L0006+1 + sta $06+1 jmp L0C0C L0CCB: MLI_RELAY_CALL CLOSE, close_params2 @@ -20023,13 +20020,13 @@ L0DA2: addr_jump L0DAD, str_ramcard_slot_x L0DA9: lda #str_unidisk_xy -L0DAD: sta L0006 - stx L0006+1 +L0DAD: sta $06 + stx $06+1 ldy #$00 - lda (L0006),y + lda ($06),y sta L0DBE L0DB8: iny - lda (L0006),y + lda ($06),y sta ($08),y .byte $C0 L0DBE: .byte 0