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