Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2025-01-06 01:30:48 +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
Show Stats 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
ldx #1
stx $301 ;lowercase
stx $305 ;warn about missing .sav
dex
dex
stx $302 ;no load
@ -515,8 +514,6 @@ brand jsr $dbda
ldx #<brandtext
ldy #(brandtext_e-brandtext)
jsr $dbda
lda $305
beq +
lda $300
cmp #$38
bne +

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

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

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

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

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

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

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

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

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

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