Questa e' la versione C64 dell'intro di 128bytes con cui ho partecipato alla
limiTED compo. Convertirla per +4 e' stato abbastanza semplice grazie alla documentazione passatami da Luca/Fire.
Il programma parte in autorun, trucchetto che consente di risparmiarsi la sysline ed avere qualche byte in piu' per il codice.
; iAN CooG/HF
*=$0326
word newintro
word $F6ED
newintro
jsr $e544
dex;ldx #0
;stx $60
;stx $5f
stx $d020
stx $d021
again
ldy #0
loop1
lda logo,X
sta $02
loop2
asl $02
bcc skip
stx $05
lda $5f
and #$07
tax
lda progchars,x
sta $0568,Y
lda progcols,x
sta $d968,Y
ldx $05
skip
iny
tya
and #$07
bne loop2
inc $60
lda $60
eor #$05
bne noinchar
sta $60
inc $5f
noinchar
inx
cpx #[5*6]
bne loop1
lend
inc $5f
delay
jsr $eeb3
dex
bne delay
beq again
logo
;CRAPPY logo
byte %01111101,%11110001,%11100111,%11001111,%10110011
byte %11000000,%00011011,%00110000,%01100000,%11011011
byte %11000001,%11110011,%11110111,%11001111,%10001111
byte %11000001,%10110011,%00110110,%00001100,%00000011
byte %11000001,%10011011,%00110110,%00001100,%00000011
byte %01111101,%10011011,%00110110,%00001100,%00111110
;HokutoForce logo
;byte %11000111,%11111111,%10011111,%11111111,%11111110
;byte %11000110,%00000001,%10110000,%00000110,%00000011
;byte %11000110,%01111001,%11100011,%00110110,%11000011
;byte %11111110,%11001101,%11110011,%00110110,%11000011
;byte %11000110,%11001101,%10011011,%00110110,%11000011
;byte %11000110,%01111001,%10001101,%11110110,%01111110
progchars
hex 64 79 f8 e3 e3 f8 79 64
;HEX 64 6f 79 62 f8 f7 e3 a0
;hex 64 79 f8 e3 a0 e3 f8 79
progcols
hex 04 06 0e 03 01 07 0a 02
