2020-10-19 22:01:02 +00:00
|
|
|
;Projected edited to format non-char operands as chars.
|
|
|
|
.cpu "6502"
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_hiascii"
|
2019-08-21 20:30:25 +00:00
|
|
|
.cdef $20,$7e,$a0
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_ascii"
|
2019-08-20 18:21:30 +00:00
|
|
|
.cdef $20,$7e,$20
|
2019-08-16 21:53:50 +00:00
|
|
|
* = $1000
|
|
|
|
lda #'A'
|
|
|
|
lda #'A' | $80
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "none"
|
2019-08-21 20:30:25 +00:00
|
|
|
lda #'A'
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "screen"
|
2019-08-21 20:30:25 +00:00
|
|
|
lda #'A'
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_ascii"
|
2019-08-16 21:53:50 +00:00
|
|
|
ldx #'a'
|
|
|
|
ldx #'a' | $80
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "none"
|
2019-08-21 20:30:25 +00:00
|
|
|
ldx #'a'
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "screen"
|
2019-08-21 20:30:25 +00:00
|
|
|
ldx #'a'
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_ascii"
|
2020-10-19 22:01:02 +00:00
|
|
|
lda #$7f ;inappropriate format should be ignored
|
2019-08-16 21:53:50 +00:00
|
|
|
lda #$7f
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "none"
|
2019-08-16 21:53:50 +00:00
|
|
|
lda #$7f
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "screen"
|
2019-08-16 21:53:50 +00:00
|
|
|
lda #$7f
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_ascii"
|
2019-08-16 21:53:50 +00:00
|
|
|
lda #$0d
|
2020-10-19 22:01:02 +00:00
|
|
|
jmp L144B
|
2019-08-16 21:53:50 +00:00
|
|
|
|
|
|
|
.byte 'C'
|
|
|
|
.byte 'C' | $80
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "none"
|
2019-08-21 20:30:25 +00:00
|
|
|
.byte 'C'
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "screen"
|
2019-08-21 20:30:25 +00:00
|
|
|
.byte 'C'
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_ascii"
|
2019-08-16 21:53:50 +00:00
|
|
|
.word 'd'
|
|
|
|
.word 'd' | $80
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "none"
|
2019-08-21 20:30:25 +00:00
|
|
|
.word 'd'
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "screen"
|
2019-08-21 20:30:25 +00:00
|
|
|
.word 'd'
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $00,$45
|
|
|
|
.byte $00,$c5
|
|
|
|
.byte $00,$c5
|
|
|
|
.byte $00,$45
|
|
|
|
.byte $80
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_ascii"
|
2019-08-16 21:53:50 +00:00
|
|
|
.text "low ASCII str"
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_hiascii"
|
2019-08-21 20:30:25 +00:00
|
|
|
.text "high ASCII str"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $80
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "none"
|
2019-08-21 20:30:25 +00:00
|
|
|
.text "PETSCII str"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $80
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "screen"
|
2019-08-21 20:30:25 +00:00
|
|
|
.text "Screen Code str"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $82
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_ascii"
|
2019-08-16 21:53:50 +00:00
|
|
|
.text $07,"Low ASCII CRLF",$0d,$0a
|
|
|
|
.byte $82
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_hiascii"
|
2019-08-21 20:30:25 +00:00
|
|
|
.text $87,"High ASCII CRLF",$8d,$8a
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $82
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "none"
|
2019-08-21 20:30:25 +00:00
|
|
|
.text $93,"PETSCII with ",$96,"control",$05," codes",$0d
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $83
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_ascii"
|
2019-08-16 21:53:50 +00:00
|
|
|
.text " !",$22,"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW"
|
|
|
|
.text "XYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
|
|
|
|
.byte $83
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_hiascii"
|
2019-08-21 20:30:25 +00:00
|
|
|
.text " !",$a2,"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW"
|
|
|
|
.text "XYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $83
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "none"
|
2019-08-21 20:30:25 +00:00
|
|
|
.text " !",$22,"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW"
|
|
|
|
.text "XYZ["
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $5c
|
2019-08-21 20:30:25 +00:00
|
|
|
.byte ']'
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $5e
|
|
|
|
.byte $5f
|
|
|
|
.byte $60
|
2019-08-21 20:30:25 +00:00
|
|
|
.text "abcdefghijklmnopqrstuvwxyz"
|
2020-10-19 22:01:02 +00:00
|
|
|
.byte $7b
|
|
|
|
.byte $7c
|
|
|
|
.byte $7d
|
|
|
|
.byte $7e
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $83
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "screen"
|
2019-08-21 20:30:25 +00:00
|
|
|
.text " !",$22,"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW"
|
|
|
|
.text "XYZ["
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $1c
|
2019-08-21 20:30:25 +00:00
|
|
|
.byte ']'
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $1e
|
|
|
|
.byte $1f
|
|
|
|
.byte $40
|
2019-08-21 20:30:25 +00:00
|
|
|
.text "abcdefghijklmnopqrstuvwxyz"
|
2020-10-19 22:01:02 +00:00
|
|
|
.byte $7b
|
|
|
|
.byte $7c
|
|
|
|
.byte $7d
|
|
|
|
.byte $7e
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $84
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "none"
|
2019-08-21 20:30:25 +00:00
|
|
|
.text "IICSTEP esrever"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $84
|
2019-08-21 20:30:25 +00:00
|
|
|
.null "null term PETSCII"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $84
|
2019-08-21 20:30:25 +00:00
|
|
|
.text "This null-terminated string is too long to fit on a single lin"
|
|
|
|
.text "e, and will be split.",$00
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $84
|
2019-08-21 20:30:25 +00:00
|
|
|
.ptext "PETSCII with length"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $84
|
2019-08-21 20:30:25 +00:00
|
|
|
.text $14,$00,"PETSCII with length2"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $84
|
2019-08-21 20:30:25 +00:00
|
|
|
.shift "pet dci"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $84
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "screen"
|
2019-08-21 20:30:25 +00:00
|
|
|
.text "edoC neercS esrever"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $84
|
2020-10-19 22:01:02 +00:00
|
|
|
.text "null-term screen code?@"
|
|
|
|
.byte $84
|
2019-08-21 20:30:25 +00:00
|
|
|
.ptext "Screen Code with length"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $84
|
2019-08-21 20:30:25 +00:00
|
|
|
.text $18,$00,"Screen Code with length2"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $84
|
2019-08-21 20:30:25 +00:00
|
|
|
.shift "Screen Code DCI"
|
2019-08-16 21:53:50 +00:00
|
|
|
.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
|
2020-07-02 15:14:42 +00:00
|
|
|
.enc "sg_ascii"
|
2019-08-16 21:53:50 +00:00
|
|
|
.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
|
2020-10-19 22:01:02 +00:00
|
|
|
.enc "sg_hiascii"
|
|
|
|
.text " !",$a2,"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW"
|
|
|
|
.text "XYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
|
2019-08-16 21:53:50 +00:00
|
|
|
.byte $ff
|
2020-10-19 22:01:02 +00:00
|
|
|
|
2021-08-01 03:22:21 +00:00
|
|
|
L144B nop
|
|
|
|
jmp _L14DA
|
|
|
|
|
|
|
|
.enc "sg_ascii"
|
|
|
|
.text "ASCII escapes \: \\ \r \n \",$22," \' \t"
|
|
|
|
.byte $80
|
|
|
|
.enc "none"
|
|
|
|
.text "PETSCII escapes "
|
|
|
|
.byte $5c
|
|
|
|
.text ": "
|
|
|
|
.byte $5c
|
|
|
|
.byte $5c
|
|
|
|
.byte ' '
|
|
|
|
.byte $5c
|
|
|
|
.text "r "
|
|
|
|
.byte $5c
|
|
|
|
.text "n "
|
|
|
|
.byte $5c
|
|
|
|
.text $22," "
|
|
|
|
.byte $5c
|
|
|
|
.text "' "
|
|
|
|
.byte $5c
|
|
|
|
.byte 't'
|
|
|
|
.byte $80
|
|
|
|
.enc "screen"
|
|
|
|
.text "SCR escapes "
|
|
|
|
.byte $1c
|
|
|
|
.text ": "
|
|
|
|
.byte $1c
|
|
|
|
.byte $1c
|
|
|
|
.byte ' '
|
|
|
|
.byte $1c
|
|
|
|
.text "r "
|
|
|
|
.byte $1c
|
|
|
|
.text "n "
|
|
|
|
.byte $1c
|
|
|
|
.byte $22
|
|
|
|
.byte ' '
|
|
|
|
.byte $1c
|
|
|
|
.byte $27
|
|
|
|
.byte ' '
|
|
|
|
.byte $1c
|
|
|
|
.byte 't'
|
|
|
|
.byte $80
|
|
|
|
.enc "sg_hiascii"
|
|
|
|
.text "HIGH escapes \: \\ \r \n \0 \' \t"
|
|
|
|
.byte $80
|
|
|
|
|
|
|
|
_L14DA nop
|
2021-08-10 21:08:39 +00:00
|
|
|
jmp _L1587
|
2021-08-08 22:38:39 +00:00
|
|
|
|
|
|
|
.byte $86
|
|
|
|
.enc "sg_ascii"
|
|
|
|
.shift "Hello"
|
|
|
|
.shift "HI"
|
|
|
|
.shift "X"
|
|
|
|
.shift "!"
|
|
|
|
.byte $86
|
|
|
|
.enc "sg_hiascii"
|
|
|
|
.byte $c8,$e5,$ec,$ec,$6f
|
|
|
|
.byte $c8,$49
|
|
|
|
.enc "sg_ascii"
|
|
|
|
.byte 'X'
|
|
|
|
.byte '!'
|
|
|
|
.byte $86
|
|
|
|
.enc "none"
|
|
|
|
.shift "hello"
|
|
|
|
.shift "hi"
|
|
|
|
.shift "x"
|
|
|
|
.shift "!"
|
|
|
|
.byte $86
|
|
|
|
.byte $c8,$c5,$cc,$cc,$4f
|
|
|
|
.byte $c8,$49
|
|
|
|
.byte 'x'
|
|
|
|
.byte '!'
|
|
|
|
.byte $86
|
|
|
|
.enc "screen"
|
|
|
|
.shift "Hello"
|
|
|
|
.shift "HI"
|
|
|
|
.shift "X"
|
|
|
|
.shift "!"
|
|
|
|
.byte $86
|
2021-08-10 21:08:39 +00:00
|
|
|
.enc "sg_ascii"
|
|
|
|
.shift "ascii",$7f
|
|
|
|
.byte $86
|
|
|
|
.shift $22,"A quote1",$22
|
|
|
|
.shift "'A quote2'"
|
|
|
|
.byte $86
|
|
|
|
.enc "sg_hiascii"
|
|
|
|
.byte $a2,$c8,$c1,$a0,$f1,$f5,$ef,$f4,$e5,$b1,$22
|
|
|
|
.byte $a7,$c8,$c1,$a0,$f1,$f5,$ef,$f4,$e5,$b2,$27
|
|
|
|
.byte $86
|
|
|
|
.enc "none"
|
|
|
|
.shift "petscii",$5e
|
|
|
|
.byte $86
|
|
|
|
.shift $22,"a quote1",$22
|
|
|
|
.shift "'a quote2'"
|
|
|
|
.byte $86
|
|
|
|
.shift $5c
|
|
|
|
.byte $86
|
|
|
|
.enc "screen"
|
|
|
|
.shift "ScreenCode",$1e
|
|
|
|
.byte $86
|
|
|
|
.shift $22,"A quote1",$22
|
|
|
|
.shift "'A quote2'"
|
|
|
|
.byte $86
|
|
|
|
.shift $1c
|
|
|
|
.byte $86
|
2021-08-08 22:38:39 +00:00
|
|
|
|
2021-08-10 21:08:39 +00:00
|
|
|
_L1587 nop
|
2021-08-01 03:22:21 +00:00
|
|
|
rts
|
2020-10-19 22:01:02 +00:00
|
|
|
|