mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-12 05:31:04 +00:00
8109396c48
We have a single character-encoding test that is cloned 3x so we can
exercise the different values for the project's default character
set. It was a 65816 test because it tested 16-bit immediate char
operands, but that's a very small part of it.
The 65816-specific portion is now 20122-char-encoding. The rest is
now 201{2,3,4}0-char-encoding-X.
178 lines
4.7 KiB
ArmAsm
178 lines
4.7 KiB
ArmAsm
;Projected edited to format non-char operands as chars.
|
|
!cpu 6502
|
|
* = $1000
|
|
lda #'A'
|
|
lda #'A' | $80
|
|
lda #$c1
|
|
lda #$41
|
|
ldx #'a'
|
|
ldx #'a' | $80
|
|
ldx #$41
|
|
ldx #$01
|
|
lda #$7f ;inappropriate format should be ignored
|
|
lda #$7f
|
|
lda #$7f
|
|
lda #$7f
|
|
lda #$0d
|
|
jmp L144B
|
|
|
|
!byte 'C'
|
|
!byte 'C' | $80
|
|
!byte $c3
|
|
!byte $43
|
|
!word 'd'
|
|
!word 'd' | $80
|
|
!word $44
|
|
!word $04
|
|
!byte $00,$45
|
|
!byte $00,$c5
|
|
!byte $00,$c5
|
|
!byte $00,$45
|
|
!byte $80
|
|
!text "low ASCII str"
|
|
!xor $80 {
|
|
!text "high ASCII str"
|
|
}
|
|
!byte $80
|
|
!pet "PETSCII str"
|
|
!byte $80
|
|
!scr "Screen Code str"
|
|
!byte $82
|
|
!text $07,"Low ASCII CRLF",$0d,$0a
|
|
!byte $82
|
|
!hex 87c8e9e7e8a0c1d3c3c9c9a0c3d2ccc68d8a
|
|
!byte $82
|
|
!pet $93,"PETSCII with ",$96,"control",$05," codes",$0d
|
|
!byte $83
|
|
!text " !",$22,"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW"
|
|
!text "XYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
|
|
!byte $83
|
|
!hex a0a1a2a3a4a5a6a7a8a9aaabacadaeafb0b1b2b3b4b5b6b7b8b9babbbcbdbebf
|
|
!hex c0c1c2c3c4c5c6c7c8c9cacbcccdcecfd0d1d2d3d4d5d6d7d8d9dadbdcdddedf
|
|
!hex e0e1e2e3e4e5e6e7e8e9eaebecedeeeff0f1f2f3f4f5f6f7f8f9fafbfcfdfe
|
|
!byte $83
|
|
!pet " !",$22,"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW"
|
|
!pet "XYZ["
|
|
!byte $5c
|
|
!byte $5d
|
|
!byte $5e
|
|
!byte $5f
|
|
!byte $60
|
|
!pet "abcdefghijklmnopqrstuvwxyz"
|
|
!byte $7b
|
|
!byte $7c
|
|
!byte $7d
|
|
!byte $7e
|
|
!byte $83
|
|
!scr " !",$22,"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW"
|
|
!scr "XYZ["
|
|
!byte $1c
|
|
!byte $1d
|
|
!byte $1e
|
|
!byte $1f
|
|
!byte $40
|
|
!scr "abcdefghijklmnopqrstuvwxyz"
|
|
!byte $7b
|
|
!byte $7c
|
|
!byte $7d
|
|
!byte $7e
|
|
!byte $84
|
|
!pet "IICSTEP esrever"
|
|
!byte $84
|
|
!pet "null term PETSCII",$00
|
|
!byte $84
|
|
!pet "This null-terminated string is too long to fit on a single lin"
|
|
!pet "e, and will be split.",$00
|
|
!byte $84
|
|
!pet $13,"PETSCII with length"
|
|
!byte $84
|
|
!pet $14,$00,"PETSCII with length2"
|
|
!byte $84
|
|
!pet "pet dcI"
|
|
!byte $84
|
|
!scr "edoC neercS esrever"
|
|
!byte $84
|
|
!scr "null-term screen code?@"
|
|
!byte $84
|
|
!scr $17,"Screen Code with length"
|
|
!byte $84
|
|
!scr $18,$00,"Screen Code with length2"
|
|
!byte $84
|
|
!scr "Screen Code DC",$c9
|
|
!byte $84
|
|
!byte $85
|
|
!byte $00
|
|
!byte $01
|
|
!byte $02
|
|
!byte $03
|
|
!byte $04
|
|
!byte $05
|
|
!byte $06
|
|
!byte $07
|
|
!byte $08
|
|
!byte $09
|
|
!byte $0a
|
|
!byte $0b
|
|
!byte $0c
|
|
!byte $0d
|
|
!byte $0e
|
|
!byte $0f
|
|
!byte $10
|
|
!byte $11
|
|
!byte $12
|
|
!byte $13
|
|
!byte $14
|
|
!byte $15
|
|
!byte $16
|
|
!byte $17
|
|
!byte $18
|
|
!byte $19
|
|
!byte $1a
|
|
!byte $1b
|
|
!byte $1c
|
|
!byte $1d
|
|
!byte $1e
|
|
!byte $1f
|
|
!text " !",$22,"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW"
|
|
!text "XYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
|
|
!byte $7f
|
|
!byte $80
|
|
!byte $81
|
|
!byte $82
|
|
!byte $83
|
|
!byte $84
|
|
!byte $85
|
|
!byte $86
|
|
!byte $87
|
|
!byte $88
|
|
!byte $89
|
|
!byte $8a
|
|
!byte $8b
|
|
!byte $8c
|
|
!byte $8d
|
|
!byte $8e
|
|
!byte $8f
|
|
!byte $90
|
|
!byte $91
|
|
!byte $92
|
|
!byte $93
|
|
!byte $94
|
|
!byte $95
|
|
!byte $96
|
|
!byte $97
|
|
!byte $98
|
|
!byte $99
|
|
!byte $9a
|
|
!byte $9b
|
|
!byte $9c
|
|
!byte $9d
|
|
!byte $9e
|
|
!byte $9f
|
|
!hex a0a1a2a3a4a5a6a7a8a9aaabacadaeafb0b1b2b3b4b5b6b7b8b9babbbcbdbebf
|
|
!hex c0c1c2c3c4c5c6c7c8c9cacbcccdcecfd0d1d2d3d4d5d6d7d8d9dadbdcdddedf
|
|
!hex e0e1e2e3e4e5e6e7e8e9eaebecedeeeff0f1f2f3f4f5f6f7f8f9fafbfcfdfe
|
|
!byte $ff
|
|
|
|
L144B rts
|
|
|