Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2025-08-15 17:27:27 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Peter Ferrie
2018-05-02 12:13:36 -07:00
parent 6b960358b8
commit 41be0d85e2
6 changed files with 10 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/onbeyond/z4/z4.s
View File

@@ -352,7 +352,6 @@ slot lda $cfff
sta $300 ;80-cols sta $300 ;80-cols
ldx #1 ldx #1
stx $301 ;lowercase stx $301 ;lowercase
stx $305 ;warn about missing .sav
dex dex
dex dex
stx $302 ;no load stx $302 ;no load
@@ -515,8 +514,6 @@ brand jsr $dbda
ldx #<brandtext ldx #<brandtext
ldy #(brandtext_e-brandtext) ldy #(brandtext_e-brandtext)
jsr $dbda jsr $dbda
lda $305
beq +
lda $300 lda $300
cmp #$38 cmp #$38
bne + bne +

7
src/onbeyond/z5/z5.s
View File

@@ -444,9 +444,10 @@ skipupper
;skip suffix handling if not present ;skip suffix handling if not present
ldx #0
ldy $2006 ldy $2006
lda $2006-2,y lda $2006-2,y
cmp '.' cmp #'.'
bne ++ bne ++
inc $2006 inc $2006
lda #'V' lda #'V'
@@ -476,7 +477,9 @@ skipupper
sta $2006,y sta $2006,y
lda #'Z' lda #'Z'
sta $2006-1,y sta $2006-1,y
++ jsr hddopendir ldx $305
++ stx $305
jsr hddopendir
jmp entry jmp entry
call80 jsr $c300 call80 jsr $c300

7
src/onbeyond/z5u/z5u.s
View File

@@ -444,9 +444,10 @@ skipupper
;skip suffix handling if not present ;skip suffix handling if not present
ldx #0
ldy $2006 ldy $2006
lda $2006-2,y lda $2006-2,y
cmp '.' cmp #'.'
bne ++ bne ++
inc $2006 inc $2006
lda #'V' lda #'V'
@@ -476,7 +477,9 @@ skipupper
sta $2006,y sta $2006,y
lda #'Z' lda #'Z'
sta $2006-1,y sta $2006-1,y
++ jsr hddopendir ldx $305
++ stx $305
jsr hddopendir
jmp entry jmp entry
call80 jsr $c300 call80 jsr $c300

4
src/zinfo/z1/z1.s
View File

@@ -59,11 +59,7 @@ zp_E7 = $E7
zero_info zero_info
ldy #name_offset ldy #name_offset
sty zpage_ptr sty zpage_ptr
!if name_offset=0 {
tya tya
} else {
lda #0
}
sta (zpage_info),y sta (zpage_info),y
clc clc
lda zpage_info lda zpage_info

4
src/zinfo/z2/z2.s
View File

@@ -61,11 +61,7 @@ zp_E9 = $e9
zero_info zero_info
ldy #name_offset ldy #name_offset
sty zpage_ptr sty zpage_ptr
!if name_offset=0 {
tya tya
} else {
lda #0
}
sta (zpage_info),y sta (zpage_info),y
clc clc
lda zpage_info lda zpage_info

4
src/zinfo/z3/z3.s
View File

@@ -68,11 +68,7 @@ zp_DC = $dc
zero_info zero_info
ldy #name_offset ldy #name_offset
sty zpage_ptr sty zpage_ptr
!if name_offset=0 {
tya tya
} else {
lda #0
}
sta (zpage_info),y sta (zpage_info),y
clc clc
lda zpage_info lda zpage_info