Use screen code macro for readability.

This commit is contained in:
Christopher RYU 2023-07-28 08:26:15 +09:00
parent 8143c80334
commit 49fa0c2180

View File

@ -5,6 +5,7 @@ PRBL2 := $F94A
HOME := $FC58
COUT := $FDED
.MACPACK apple2
.org $c600
ldx #$20 ; controller signature
@ -29,8 +30,7 @@ loop1: iny
bne LC617
LC627: beq LC627
info: .byte $8d, $bc, $ad, $ad, $cb, $c5, $d9, $c2
.byte $cf, $c1, $d2, $c4
info: scrcode $0d, "<--KEYBOARD"
.ifdef MICROSCI
; ROM checksum 5ddcbbf1
@ -47,11 +47,12 @@ info: .byte $8d, $bc, $ad, $ad, $cb, $c5, $d9, $c2
; XXXXXXX XXXXXXX XXXXXXX
; 3.2 INFO 3.3&PASCAL
.byte $08, $d5, $ad, $d3
.byte $c3, $c9, $08, $d2, $c5, $c1, $d2, $ad
.byte $ad, $be, $8d, $8d, $08, $ad, $ad, $ad
.byte $ad, $ad, $ad, $ad, $ad, $ad, $ca, $d5
.byte $cd, $d0, $c5, $d2, $ad, $ad
.byte $08
scrcode "U-SCI"
.byte $08
scrcode "REAR-->", $0d, $0d
.byte $08
scrcode "---------JUMPER--------"
.else
; ROM checksum 5dfc32ca
; <--KEYBOARD ACE 1000 REAR-->
@ -67,31 +68,66 @@ info: .byte $8d, $bc, $ad, $ad, $cb, $c5, $d9, $c2
; XXXXXXX XXXXXXX XXXXXXX
; 3.2 INFO 3.3&PASCAL
.byte $06, $c1, $c3, $c5
.byte $a0, $b1, $b0, $b0, $b0, $06, $d2, $c5
.byte $c1, $d2, $ad, $ad, $be, $8d, $8d, $07
.byte $a0, $02, $ad, $ad, $ad, $ad, $ad, $ad
.byte $ca, $d5, $cd, $d0, $c5, $d2
.byte $06
scrcode "ACE 1000"
.byte $06
scrcode "REAR-->", $0d, $0d
.byte $07
scrcode " "
.byte $02
scrcode "------JUMPER------"
.endif
.byte $ad, $ad
.byte $ad, $ad, $ad, $ad, $8d, $07, $a1, $0b
.byte $a1, $0b, $a1, $8d, $07, $d6, $0b, $d6
.byte $0b, $d6, $8d, $8d, $06, $a3, $a3, $a3
.byte $a0, $a1, $a0, $a1, $03, $a1, $a0, $a3
.byte $a3, $a3, $a0, $a1, $03, $a1, $a0, $a1
.byte $a0, $a3, $a3, $a3, $8d, $06, $a3, $a3
.byte $a3, $a0, $a1, $a0, $a1, $03, $a1, $a0
.byte $a3, $a3, $a3, $a0, $a1, $03, $a1, $a0
.byte $a1, $a0, $a3, $a3, $a3, $8d, $06, $a3
.byte $a3, $a3, $a0, $a1, $a0, $a1, $03, $a1
.byte $a0, $a3, $a3, $a3, $a0, $a1, $03, $a1
.byte $a0, $a1, $a0, $a3, $a3, $a3, $8d, $06
.byte $a3, $a3, $a3, $a0, $a1, $a0, $a1, $03
.byte $a1, $a0, $a3, $a3, $a3, $a0, $a1, $03
.byte $a1, $a0, $a1, $a0, $a3, $a3, $a3, $8d
.byte $06, $d8, $d8, $d8, $d8, $d8, $d8, $d8
.byte $03, $d8, $d8, $d8, $d8, $d8, $d8, $d8
.byte $03, $d8, $d8, $d8, $d8, $d8, $d8, $d8
.byte $8d, $08, $b3, $ae, $b2, $06, $c9, $ce
.byte $c6, $cf, $04, $b3, $ae, $b3, $a6, $d0
.byte $c1, $d3, $c3, $c1, $cc, $8d, $8d
scrcode $0d
.byte $07
scrcode "!"
.byte $0b
scrcode "!"
.byte $0b
scrcode "!"
scrcode $0d
.byte $07
scrcode "V"
.byte $0b
scrcode "V"
.byte $0b
scrcode "V", $0d, $0d
.byte $06
scrcode "### ! !"
.byte $03
scrcode "! ### !"
.byte $03
scrcode "! ! ###", $0d
.byte $06
scrcode "### ! !"
.byte $03
scrcode "! ### !"
.byte $03
scrcode "! ! ###", $0d
.byte $06
scrcode "### ! !"
.byte $03
scrcode "! ### !"
.byte $03
scrcode "! ! ###", $0d
.byte $06
scrcode "### ! !"
.byte $03
scrcode "! ### !"
.byte $03
scrcode "! ! ###", $0d
.byte $06
scrcode "XXXXXXX"
.byte $03
scrcode "XXXXXXX"
.byte $03
scrcode "XXXXXXX", $0d
.byte $08
scrcode "3.2"
.byte $06
scrcode "INFO"
.byte $04
scrcode "3.3&PASCAL", $0d, $0d