Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2024-06-26 00:29:27 +00:00
Code Issues Projects Releases Wiki Activity

branding

Browse Source
This commit is contained in:
Peter Ferrie 2018-02-22 15:18:28 -08:00
parent d291c37d8b
commit 26d3d39ba2
3 changed files with 104 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,6 +12,8 @@ ver_02 = 1
!to "build/ONBEYONDZ4",plain !to "build/ONBEYONDZ4",plain
*=$3000 *=$3000
!macro version {!text "1/180221"}
xsechi=$b1 xsechi=$b1
xseclo=$b0 xseclo=$b0
xside=$e7 xside=$e7
@ -369,12 +371,12 @@ slot lda $cfff
skip80 skip80
lda #$2c lda #$2c
sta call80 sta call80
lda #$88
sta bspace+1
lda #$df lda #$df
sta inversemask+1 sta inversemask+1
lda #7 lda #7
sta $dde0 sta $dde0
lda #$28
sta $f433
okay80 okay80
lda $301 lda $301
@ -416,6 +418,11 @@ skipupper
dey dey
bne - bne -
lda #<brand
sta $ddf0
lda #>brand
sta $ddf1
ldy $2006 ldy $2006
inc $2006 inc $2006
lda #'V' lda #'V'
@ -449,6 +456,22 @@ call80 jsr $c300
sta $37 sta $37
rts rts
brand jsr $dbda
lda #$17
sta $25
lda #0
sta $24
sta $57b
jsr $fc22
lda #>brandtext
ldx #<brandtext
ldy #(brandtext_e-brandtext)
jmp $dbda
brandtext !text "On Beyond Z-Machine! revision "
+version
brandtext_e
!if load_aux = 1 { !if load_aux = 1 {
sta CLRAUXWR + (load_banked * 4) ;CLRAUXWR or CLRAUXZP sta CLRAUXWR + (load_banked * 4) ;CLRAUXWR or CLRAUXZP
} ;load_aux } ;load_aux
@ -1460,27 +1483,21 @@ unrentry = unrelochdd + (* + 1 - reloc)
jmp $d1d1 jmp $d1d1
casemap casemap
cmp #8 ora #$80
beq bspace
cmp #$e1 cmp #$e1
bcc + bcc printchar
cmp #$fb cmp #$fb
bcs + bcs printchar
normalmask normalmask
and #$ff and #$ff
+ ldy $32 sty $35
ldy $32
bmi + bmi +
cmp #$e1
bcc +
cmp #$fb
bcs +
inversemask inversemask
and #$ff and #$ff
!byte $2c + ldy $35
bspace
lda #8
printchar printchar
+ jmp $d1d1 jmp $d1d1
hddcodeend hddcodeend
!if swap_zp = 1 { !if swap_zp = 1 {

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

@ -12,6 +12,8 @@ ver_02 = 1
!to "build/ONBEYONDZ5",plain !to "build/ONBEYONDZ5",plain
*=$3000 *=$3000
!macro version {!text "1/180221"}
xsechi=$b7 xsechi=$b7
xseclo=$b6 xseclo=$b6
xside=$eb xside=$eb
@ -364,12 +366,12 @@ slot lda $cfff
skip80 skip80
lda #$2c lda #$2c
sta call80 sta call80
lda #$88
sta bspace+1
lda #$df lda #$df
sta inversemask+1 sta inversemask+1
lda #7 lda #7
sta $dda6 sta $dda6
lda #$28
sta $ded0
okay80 okay80
lda $301 lda $301
@ -411,6 +413,11 @@ skipupper
dey dey
bne - bne -
lda #<brand
sta $ddb6
lda #>brand
sta $ddb7
ldy $2006 ldy $2006
inc $2006 inc $2006
lda #'V' lda #'V'
@ -444,6 +451,22 @@ call80 jsr $c300
sta $37 sta $37
rts rts
brand jsr $db5b
lda #$17
sta $25
lda #0
sta $24
sta $57b
jsr $8a9
lda #>brandtext
ldx #<brandtext
ldy #(brandtext_e-brandtext)
jmp $db5b
brandtext !text "On Beyond Z-Machine! revision "
+version
brandtext_e
!if load_aux = 1 { !if load_aux = 1 {
sta CLRAUXWR + (load_banked * 4) ;CLRAUXWR or CLRAUXZP sta CLRAUXWR + (load_banked * 4) ;CLRAUXWR or CLRAUXZP
} ;load_aux } ;load_aux
@ -1564,30 +1587,23 @@ hdddataend
} ;verbose_info } ;verbose_info
} ;PASS2 } ;PASS2
xcasemap !pseudopc $2dc {;;-(callback_e-callback1) { xcasemap !pseudopc $2e7 {;;-(callback_e-callback1) {
casemap casemap
cmp #8
beq bspace
cmp #$e1
bcc +
cmp #$fb
bcs +
normalmask
and #$ff
+ ldy $32
bmi +
ora #$80 ora #$80
cmp #$e1 cmp #$e1
bcc + bcc printchar
cmp #$fb cmp #$fb
bcs + bcs printchar
normalmask
and #$ff
sty $35
ldy $32
bmi +
inversemask inversemask
and #$ff and #$ff
!byte $2c + ldy $35
bspace
lda #8
printchar printchar
+ jmp $d1d1 jmp $d1d1
casemap_e casemap_e
} }
!if verbose_info = 1 { !if verbose_info = 1 {
@ -1745,7 +1761,7 @@ readpart lda istree
save_end save_end
hookkbd hookkbd
!pseudopc $2aa {;;-(callback_e-callback1) { !pseudopc $2b5 {;;-(callback_e-callback1) {
callback1 callback1
ldx #<callback2 ldx #<callback2
lda #$8d lda #$8d

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

@ -12,6 +12,8 @@ ver_02 = 1
!to "build/ONBEYONDZ5U",plain !to "build/ONBEYONDZ5U",plain
*=$3000 *=$3000
!macro version {!text "1/180221"}
xsechi=$b6 xsechi=$b6
xseclo=$b5 xseclo=$b5
xside=$ec xside=$ec
@ -364,12 +366,12 @@ slot lda $cfff
skip80 skip80
lda #$2c lda #$2c
sta call80 sta call80
lda #$88
sta bspace+1
lda #$df lda #$df
sta inversemask+1 sta inversemask+1
lda #7 lda #7
sta $dd9e sta $dd9e
lda #$28
sta $dea8
okay80 okay80
lda $301 lda $301
@ -411,6 +413,11 @@ skipupper
dey dey
bne - bne -
lda #<brand
sta $ddae
lda #>brand
sta $ddaf
ldy $2006 ldy $2006
inc $2006 inc $2006
lda #'V' lda #'V'
@ -444,6 +451,22 @@ call80 jsr $c300
sta $37 sta $37
rts rts
brand jsr $db53
lda #$17
sta $25
lda #0
sta $24
sta $57b
jsr $8a9
lda #>brandtext
ldx #<brandtext
ldy #(brandtext_e-brandtext)
jmp $db53
brandtext !text "On Beyond Z-Machine! revision "
+version
brandtext_e
!if load_aux = 1 { !if load_aux = 1 {
sta CLRAUXWR + (load_banked * 4) ;CLRAUXWR or CLRAUXZP sta CLRAUXWR + (load_banked * 4) ;CLRAUXWR or CLRAUXZP
} ;load_aux } ;load_aux
@ -1564,30 +1587,23 @@ hdddataend
} ;verbose_info } ;verbose_info
} ;PASS2 } ;PASS2
xcasemap !pseudopc $2dc {;;-(callback_e-callback1) { xcasemap !pseudopc $2e7 {;;-(callback_e-callback1) {
casemap casemap
cmp #8
beq bspace
cmp #$e1
bcc +
cmp #$fb
bcs +
normalmask
and #$ff
+ ldy $32
bmi +
ora #$80 ora #$80
cmp #$e1 cmp #$e1
bcc + bcc printchar
cmp #$fb cmp #$fb
bcs + bcs printchar
normalmask
and #$ff
sty $35
ldy $32
bmi +
inversemask inversemask
and #$ff and #$ff
!byte $2c + ldy $35
bspace
lda #8
printchar printchar
+ jmp $d1d1 jmp $d1d1
casemap_e casemap_e
} }
!if verbose_info = 1 { !if verbose_info = 1 {
@ -1745,7 +1761,7 @@ readpart lda istree
save_end save_end
hookkbd hookkbd
!pseudopc $2aa {;;-(callback_e-callback1) { !pseudopc $2b5 {;;-(callback_e-callback1) {
callback1 callback1
ldx #<callback2 ldx #<callback2
lda #$8d lda #$8d