JMP CodeStart

'!' = $1A : '.' = $1B : '-' = $1C : ',' = $1D
'?' = $1E : '#' = $5A : '(' = $5B : ')' = $5C
'/' = $1F ;space
'`' = $5D ;apostrophe
'%' = $9F ;fish
'A' = $00 : 'B' = $01 : 'C' = $02 : 'D' = $03 : 'E' = $04 : 'F' = $05 : 'G' = $06 : 'H' = $07 : 'I' = $08 : 'J' = $09 : 'K' = $0A : 'L' = $0B : 'M' = $0C : 'N' = $0D : 'O' = $0E : 'P' = $0F : 'Q' = $10 : 'R' = $11 : 'S' = $12 : 'T' = $13 : 'U' = $14 : 'V' = $15 : 'W' = $16 : 'X' = $17 : 'Y' = $18 : 'Z' = $19
'a' = $40 : 'b' = $41 : 'c' = $42 : 'd' = $43 : 'e' = $44 : 'f' = $45 : 'g' = $46 : 'h' = $47 : 'i' = $48 : 'j' = $49 : 'k' = $4A : 'l' = $4B : 'm' = $4C : 'n' = $4D : 'o' = $4E : 'p' = $4F : 'q' = $50 : 'r' = $51 : 's' = $52 : 't' = $53 : 'u' = $54 : 'v' = $55 : 'w' = $56 : 'x' = $57 : 'y' = $58 : 'z' = $59
'0' = $22 : '1' = $23 : '2' = $24 : '3' = $25 : '4' = $26 : '5' = $27 : '6' = $28 : '7' = $29 : '8' = $2A : '9' = $2B
;normal digits start at $64
;full digits start at $22

Offsets:
dw Msg0-Data,Msg1-Data,Msg2-Data,Msg3-Data
dw Msg4-Data,Msg5-Data,Msg6-Data,Msg7-Data
dw Msg8-Data

Data:
Msg0:
db "cheer1////////////"
db "//////////////////"
db "//////////////////"
db "//////////////////"
db "//////////////////"
db "//////////////////"
db "//////////////////"
db "/////////--Fiskbit"
db $FE

Msg1:
db "//Thank/you/for///"
db "////the/host!/////"
db "%%%%%%%%%%%%%%%%%%"
db "//////PatCdr//////"
db $FE

Msg2:
db "//Thank/you/for///"
db "////following!////"
db "%%%%%%%%%%%%%%%%%%"
db "Here`s/some/fish!/"
db $FE

Msg3:
db "//ASMagicianMaks//"
db "///////and////////"
db "%%%%%%%%%%%%%%%%%%"
db "////0/friends/////" ;friends is moved to left based on number
db "%%%%%%%%%%%%%%%%%%"
db "///just/raided////"
db "this/message/box!/"
db $FE

Msg4:
db "////60/Months!////"
db "%%%%%%%%%%%%%%%%%%"
db "In/jail/for///////"
db "unauthorized//////"
db "modification/of///"
db "our/product.//////"
db "//////////////////"
db "////////--Nintendo"

Msg5:
db "///speedycatbot///"
db "/gifted/a/sub/to//"
db "%%%%%%%%%%%%%%%%%%"
db "//ASMagicianMaks//"
db "%%%%%%%%%%%%%%%%%%"
db $FE

Msg6:
db "//ASMagicianMaks//"
db "////has/gained////"
db "%%%%%%%%%%%%%%%%%%"
db "//////VIPness/////"
db $FE

Msg7:
db "//Thank/you/for///"
db "////following!////"
db "%%%%%%%%%%%%%%%%%%"
db "//GamesDoneQuick//"
db $FE

Msg8:
db "//////////////////"
db "//////////////////"
db "//////////////////"
db "////////",$60,$61,"////////"
db "////////",$62,$63
db $FE
CodeStart:
LDA #$01
STA $1426|!addr
LDA $1B88|!addr
BEQ +
;LDA #$12
;STA $1DF9 ;sound effect to differentiate
LDA #$DE
LDX #$C0
LDY #$DE
RTL
+
LDA $1B89|!addr
CMP #$4C
BNE +
INC $1B89|!addr
+
CMP #$51
BNE +
DEC $1B89|!addr
PHB
PHK
PLB
STZ $03
LDY.b #$0E
LDA !carl_initialized
ASL
TAX
REP #$30
LDA.w Offsets,x
STA $00
LDA.l $7F837B
TAX
.newline
LDA.w StripeHeaders,Y
STA.l $7F837D,X
LDA.w #$2300
STA.l $7F837F,X
PHY
SEP #$20
LDA.b #$12
STA $02
LDY $00
.nextchar
LDA.b #$1F
BIT $03
BMI .blank
LDA.w Data,Y
CMP #$FE
BNE ++
STA $03
LDA #$1F
++
INY
.blank
STA.l $7F8381,X
LDA.b #$39
STA.l $7F8382,X
INX #2
DEC $02
BNE .nextchar
STY $00
REP #$20
INX #4
PLY
DEY #2
BPL .newline
LDA.w #$FFFF
STA.l $7F837D,X
TXA
STA.l $7F837B
STZ $22
STZ $24
SEP #$30
LDA.b #$01
STA.w $13D5|!addr
PLB
+
RTL ;code by ASMagicianMaks

StripeHeaders:
db $51,$A7,$51,$87,$51,$67,$51,$47
db $51,$27,$51,$07,$50,$E7,$50,$C7

back to listings