home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ars Publica 2
/
Ars_Publica_2_1990_Kingdom_Designs_Side_A.d64
/
a_raster-bar
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
131 lines
sei
ldx #$1f
ldy #$c0
stx $0314
sty $0315
lda #$01
sta $d01a
sta $dc0d
lda #$32
sta $d012
lda #$1b
sta $d011
cli
rts
inc $d019
ldx #$00
+lc024 lda lc043,x
sta $d020
sta $d021
ldy lc098,x
+lc030 dey
bne lc030
inx
cpx #$55
bne lc024
lda #$00
sta $d020
sta $d021
jmp $ea31
+lc043 brk
ora #$00
ora #$02
brk
ora #$02
php
brk
ora #$02
php
asl
brk
.b $09,$02,$08,$0a,$07,$00,$09
.b $02,$08,$0a,$07,$01,$00,$09
.b $02,$08,$0a,$07,$01,$01,$00
.b $09,$02,$08,$0a,$07,$01,$01
.b $07,$0a,$08,$02,$09,$00,$01
.b $01,$07,$0a,$08,$02,$09,$00
.b $01,$07,$0a,$08,$02,$09,$00
.b $07,$0a,$08,$02,$09,$00,$0a
.b $08,$02,$09,$00,$08,$02,$09
.b $00,$02
ora #$00
ora #$00
brk
+lc098 ora ($08,x)
ora #$08
php
php
php
ora #$01
php
php
php
php
php
php
php
ora ($08,x)
php
php
php
php
php
php
ora ($08,x)
php
php
php
php
php
php
ora ($08,x)
php
php
php
php
php
php
ora ($08,x)
php
php
php
php
php
php
ora ($08,x)
php
php
php
php
php
php
ora ($08,x)
php
php
php
php
php
php
ora ($08,x)
php
php
php
php
php
php
ora ($08,x)
php
php
php
php
php
php
ora ($08,x)
php
php
php
php
php
php