diff --git a/demosplash/Makefile b/demosplash/Makefile index 6d44d0ad..c59d7197 100644 --- a/demosplash/Makefile +++ b/demosplash/Makefile @@ -36,7 +36,8 @@ demosplash.o: demosplash.s \ graphics/starbase/starbase.inc \ graphics/sprites/alien.inc graphics/sprites/astronaut.inc \ dya_space_demo.pt3 appleII_40_96.inc \ - book.s book_40_48d.inc + book.s book_40_48d.inc \ + missing.s ca65 -o demosplash.o demosplash.s -l demosplash.lst ##### diff --git a/demosplash/book_hgr2.bmp b/demosplash/book_hgr2.bmp new file mode 100644 index 00000000..c2e31da2 Binary files /dev/null and b/demosplash/book_hgr2.bmp differ diff --git a/demosplash/demosplash.s b/demosplash/demosplash.s index badce740..8d5513f0 100644 --- a/demosplash/demosplash.s +++ b/demosplash/demosplash.s @@ -100,6 +100,9 @@ wait_until_keypressed: ;.include "gr_fast_clear.s" ;.include "gr_overlay.s" +; missing +.include "missing.s" + ; Starbase .include "starbase.s" diff --git a/demosplash/k_40_48d.inc b/demosplash/k_40_48d.inc new file mode 100644 index 00000000..bd71525f --- /dev/null +++ b/demosplash/k_40_48d.inc @@ -0,0 +1,78 @@ +k_low: .byte $28 ; ysize=48 + .byte $A0,$22,$00, $11,$11, $00,$00, $01, $10, $A0,$19,$00, $10 + .byte $AC,$00, $01, $10, $A0,$19,$00, $01, $AD,$00, $11 + .byte $A0,$18,$00, $10, $00,$00, $50, $10, $A0,$22,$00, $11 + .byte $10, $00, $55, $A5,$11, $10, $A0,$1D,$00, $10 + .byte $31,$31, $10, $55, $A6,$11, $A0,$1D,$00, $11, $31 + .byte $33, $11, $15, $A6,$11, $A5,$00, $01, $A0,$16,$00 + .byte $11, $33, $11, $13, $11, $01,$01, $11,$11 + .byte $01, $10, $01, $11, $00,$00, $55, $A0,$18,$00 + .byte $11, $33, $11, $44, $04, $54,$54, $41 + .byte $54,$54, $14, $41, $11, $40, $04, $55 + .byte $A0,$17,$00, $11,$11, $13, $31, $44, $04, $5F + .byte $50, $44, $55, $5F, $10, $44, $14 + .byte $50, $55, $05, $A0,$17,$00, $11, $13, $03 + .byte $10, $14, $40, $45,$45, $14, $45,$45, $41 + .byte $14, $11, $15, $05, $00, $01, $A0,$16,$00 + .byte $10,$10, $00, $01, $11, $55,$55, $15, $11 + .byte $51, $55, $A4,$11, $A0,$19,$00, $01,$01, $A3,$00, $05 + .byte $55, $A3,$51, $55, $51, $A3,$11, $A0,$19,$00, $11,$11 + .byte $A4,$00, $55, $A4,$71, $55, $A3,$11, $A0,$19,$00, $11 + .byte $A5,$00, $05, $55, $17,$17, $A5,$11, $A0,$19,$00, $11,$11 + .byte $00,$00, $10, $00,$00, $55,$55, $A3,$11, $51,$51, $15 + .byte $A0,$19,$00, $01, $10, $00,$00, $11, $00,$00, $05 + .byte $55, $11, $51, $55, $15, $A3,$11, $A0,$18,$00 + .byte $11, $31, $33, $10, $A4,$00, $05, $A3,$55 + .byte $A3,$11, $01, $A0,$18,$00, $10, $01, $00, $01 + .byte $A4,$00, $80, $A5,$55, $A0,$1A,$00, $11, $01, $30,$30 + .byte $01, $A3,$00, $88, $A3,$55, $05, $A0,$1B,$00, $01 + .byte $11, $01,$01, $10, $00,$00, $55, $58, $85,$85 + .byte $A0,$1D,$00, $11,$11, $00,$00, $01, $00,$00, $55, $00 + .byte $50, $05, $A0,$1D,$00, $01,$01, $A4,$00, $50, $A3,$55 + .byte $A0,$1E,$00, $01,$01, $A4,$00, $55,$55, $05, $AB,$00 + .byte $A1 +k_high: .byte $28 ; ysize=48 + .byte $A0,$1A,$00, $C0, $A7,$CC, $22,$22, $CC,$CC, $C2, $2C + .byte $A0,$19,$00, $20, $CC,$CC, $5C, $5A, $0A,$0A, $5A + .byte $5C, $A4,$CC, $C2, $2C, $A0,$19,$00, $C2, $0A + .byte $00, $5A, $0A, $A3,$00, $0A, $5A, $5C + .byte $A3,$CC, $22, $A0,$18,$00, $2C, $5C, $00, $90 + .byte $DA, $50,$50, $A5,$00, $5A, $CC, $C4, $CC + .byte $A0,$17,$00, $22, $2C, $5A, $99, $A5,$DD, $DA + .byte $A3,$00, $5A, $CC, $C4, $CC, $A0,$16,$00, $20 + .byte $B2,$B2, $2C, $99, $A6,$DD, $5A, $A3,$00, $A3,$CC + .byte $A0,$16,$00, $22, $B2, $BB, $22, $D9, $A6,$DD + .byte $5A, $A3,$00, $CC, $42, $44, $A0,$15,$00, $22 + .byte $BB, $22, $2B, $22, $8D,$8D, $DD,$DD, $8D + .byte $D8, $8D, $DD, $00,$00, $99, $A3,$44, $A0,$15,$00 + .byte $22, $BB, $22, $66, $C6, $96,$96, $6D + .byte $96,$96, $D6, $6D, $DD, $60, $06, $99 + .byte $44,$44, $4C, $A0,$14,$00, $22,$22, $7B, $B2, $66 + .byte $C6, $9F, $98, $66, $99, $9F, $D8 + .byte $66, $D6, $90, $99, $C9, $A3,$CC, $A0,$14,$00 + .byte $22, $2B, $CB, $2C, $26, $6C, $69,$69 + .byte $D6, $69,$69, $6D, $D6, $DD, $D9, $59 + .byte $5C, $C2, $CC,$CC, $A0,$14,$00, $2C,$2C, $CC, $C2 + .byte $22, $99,$99, $79, $DD, $9D, $99, $A4,$DD + .byte $00, $0A, $5C, $CC,$CC, $A0,$14,$00, $C2,$C2, $44 + .byte $C4, $CC, $C9, $99, $A3,$97, $99, $9D + .byte $A3,$DD, $00,$00, $50, $CC,$CC, $A0,$14,$00, $22,$22, $44 + .byte $A3,$CC, $99, $A4,$F7, $99, $A3,$DD, $00,$00, $0A + .byte $CC,$CC, $A0,$14,$00, $22, $C4,$C4, $CC, $CB, $CC + .byte $C9, $99, $7F,$7F, $D7, $A4,$DD, $A3,$00, $CC,$CC + .byte $A0,$14,$00, $22,$22, $CC, $B4, $2C, $4C, $CC + .byte $99,$99, $A3,$DD, $9D,$9D, $D9, $A3,$00, $CC,$CC, $A0,$14,$00 + .byte $C2, $2C, $CC,$CC, $22, $CC,$CC, $C9, $99 + .byte $DD, $9D, $99, $D9, $A3,$DD, $00,$00, $CC,$CC + .byte $A0,$14,$00, $22, $B2, $BB, $24, $CC,$CC, $0C + .byte $00, $09, $A3,$99, $A3,$DD, $0D, $00,$00, $CC,$CC + .byte $A0,$14,$00, $2C, $C2, $CC, $C2, $CC, $A3,$00 + .byte $50, $A5,$99, $A4,$00, $0C, $CC, $A0,$14,$00, $22 + .byte $C2, $BC,$BC, $C2, $A3,$00, $5A, $A3,$99, $09 + .byte $A6,$00, $0C, $A0,$14,$00, $C2, $22, $C2, $42 + .byte $2C, $00,$00, $99, $9A, $59,$59, $A0,$1D,$00, $22,$22 + .byte $CC, $C4, $02, $00,$00, $99, $22, $92 + .byte $09, $A0,$1D,$00, $C2,$C2, $CC,$CC, $00,$00, $90, $A3,$99 + .byte $A0,$1E,$00, $C2,$C2, $CC, $0C, $00,$00, $99,$99, $09 + .byte $AB,$00 + .byte $A1 diff --git a/demosplash/missing.s b/demosplash/missing.s new file mode 100644 index 00000000..940d1e4a --- /dev/null +++ b/demosplash/missing.s @@ -0,0 +1,3575 @@ +; Missing scene + +; Uses the 40x48d page1/page2 every-1-scanline pageflip mode + +; by deater (Vince Weaver) + +missing_intro: + + ;=================== + ; init screen + jsr TEXT + jsr HOME + bit KEYRESET + + ;=================== + ; init vars + + lda #0 + sta DRAW_PAGE + + ;============================= + ; Load graphic page0 + + lda #$0c + sta BASH + lda #$00 + sta BASL ; load image to $c00 + + lda #0 + asl + asl ; which*4 + tay + + lda k_picture,Y + sta GBASL + lda k_picture+1,Y + sta GBASH + jsr load_rle_gr + + lda #4 + sta DRAW_PAGE + + jsr gr_copy_to_current ; copy to page1 + + ; GR part + bit PAGE1 + bit LORES ; 4 + bit SET_GR ; 4 + bit FULLGR ; 4 + + jsr wait_until_keypressed + + + ;============================= + ; Load graphic page1 + + lda #$0c + sta BASH + lda #$00 + sta BASL ; load image to $c00 + + lda #0 + asl + asl ; which*4 + tay + + lda k_picture+2,Y + sta GBASL + lda k_picture+3,Y + sta GBASH + jsr load_rle_gr + + lda #0 + sta DRAW_PAGE + + jsr gr_copy_to_current + + ; GR part + bit PAGE0 + + jsr wait_until_keypressed + + + ;============================== + ; setup graphics for vapor lock + ;============================== + + jsr vapor_lock + + ; vapor lock returns with us at beginning of hsync in line + ; 114 (7410 cycles), so with 5070 lines to go + + ; GR part + bit LORES ; 4 + bit SET_GR ; 4 + bit FULLGR ; 4 + + jsr gr_copy_to_current ; 6+ 9292 + + ; 5070 + 4550 = 9620 + ; 9292 + ; 12 + ; 6 + ; ==== + ; 310 + + ; - 3 for jmp + ; 307 + + ; Try X=9 Y=6 cycles=307 + + ldy #6 ; 2 +mloopA: ldx #9 ; 2 +mloopB: dex ; 2 + bne mloopB ; 2nt/3 + dey ; 2 + bne mloopA ; 2nt/3 + + jmp missing_display_loop ; 3 + +.align $100 + + ;================================================ + ; Display Loop + ;================================================ + ; each scan line 65 cycles + ; 1 cycle each byte (40cycles) + 25 for horizontal + ; Total of 12480 cycles to draw screen + ; Vertical blank = 4550 cycles (70 scan lines) + ; Total of 17030 cycles to get back to where was + + ; We want to alternate between page1 and page2 every 65 cycles + ; vblank = 4550 cycles to do scrolling + + + + ; want colors 01234567 + ; line 0: $X0 to $800 + ; line 1: $X1 to $400 + ; line 2: $X2 + ; line 3: $X3 + ; line 4: $4X + ; line 5: $5X + ; line 6: $6X + ; line 7: $7X + +missing_display_loop: + + ; UNROLL 96 TIMES! ARE WE MAD? YES! + +;========= +; 0(0) = $400 + ; 65 cycles total + bit PAGE0 ; 4 + lda #$0b ; 2 + sta $800 ; 4 + sta $801 ; 4 + sta $802 ; 4 + sta $803 ; 4 + sta $804 ; 4 + sta $805 ; 4 + sta $806 ; 4 + sta $807 ; 4 + sta $808 ; 4 + sta $809 ; 4 + sta $80a ; 4 + sta $80b ; 4 + sta $80c ; 4 + sta $80d ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$0f ; 2 + sta $400 ; 4 + sta $401 ; 4 + sta $402 ; 4 + sta $403 ; 4 + sta $404 ; 4 + sta $405 ; 4 + sta $406 ; 4 + sta $407 ; 4 + sta $408 ; 4 + sta $409 ; 4 + sta $40a ; 4 + sta $40b ; 4 + sta $40c ; 4 + sta $40d ; 4 + lda TEMP ; 3 + + +; 1 + ; 65 cycles + bit PAGE0 ; 4 + lda #$0b ; 2 + sta $800 ; 4 + sta $801 ; 4 + sta $802 ; 4 + sta $803 ; 4 + sta $804 ; 4 + sta $805 ; 4 + sta $806 ; 4 + sta $807 ; 4 + sta $808 ; 4 + sta $809 ; 4 + sta $80a ; 4 + sta $80b ; 4 + sta $80c ; 4 + sta $80d ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$30 ; 2 + sta $400 ; 4 + sta $401 ; 4 + sta $402 ; 4 + sta $403 ; 4 + sta $404 ; 4 + sta $405 ; 4 + sta $406 ; 4 + sta $407 ; 4 + sta $408 ; 4 + sta $409 ; 4 + sta $40a ; 4 + sta $40b ; 4 + sta $40c ; 4 + sta $40d ; 4 + lda TEMP ; 3 + +; 2 + ; 65 cycles + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $800 ; 4 + sta $801 ; 4 + sta $802 ; 4 + sta $803 ; 4 + sta $804 ; 4 + sta $805 ; 4 + sta $806 ; 4 + sta $807 ; 4 + sta $808 ; 4 + sta $809 ; 4 + sta $80a ; 4 + sta $80b ; 4 + sta $80c ; 4 + sta $80d ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $400 ; 4 + sta $401 ; 4 + sta $402 ; 4 + sta $403 ; 4 + sta $404 ; 4 + sta $405 ; 4 + sta $406 ; 4 + sta $407 ; 4 + sta $408 ; 4 + sta $409 ; 4 + sta $40a ; 4 + sta $40b ; 4 + sta $40c ; 4 + sta $40d ; 4 + lda TEMP ; 3 + +; 3 + ; 65 cycles + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $800 ; 4 + sta $801 ; 4 + sta $802 ; 4 + sta $803 ; 4 + sta $804 ; 4 + sta $805 ; 4 + sta $806 ; 4 + sta $807 ; 4 + sta $808 ; 4 + sta $809 ; 4 + sta $80a ; 4 + sta $80b ; 4 + sta $80c ; 4 + sta $80d ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $400 ; 4 + sta $401 ; 4 + sta $402 ; 4 + sta $403 ; 4 + sta $404 ; 4 + sta $405 ; 4 + sta $406 ; 4 + sta $407 ; 4 + sta $408 ; 4 + sta $409 ; 4 + sta $40a ; 4 + sta $40b ; 4 + sta $40c ; 4 + sta $40d ; 4 + lda TEMP ; 3 + +;=================== +; 4 (L1)=$480 + ; 65 cycles + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $880 ; 4 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $480 ; 4 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + +; 5 + ; 65 cycles + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $880 ; 4 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $480 ; 4 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 6 + ; 65 cycles + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $880 ; 4 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $480 ; 4 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 7 + ; 65 cycles + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $880 ; 4 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $500 ; 4 + lda #$00 ; 2 + sta $501 ; 4 + lda #$00 ; 2 + sta $502 ; 4 + lda #$00 ; 2 + sta $503 ; 4 + lda #$00 ; 2 + sta $504 ; 4 + lda #$00 ; 2 + sta $505 ; 4 + lda #$00 ; 2 + sta $506 ; 4 + lda #$00 ; 2 + sta $507 ; 4 + lda #$00 ; 2 + sta $508 ; 4 + bit krg ; 4 + lda TEMP ; 3 + +;================================ +; 8 (L2) = $500 + + ; 65 cycles + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $902 ; 4 + lda #$00 ; 2 + sta $903 ; 4 + lda #$00 ; 2 + sta $904 ; 4 + lda #$00 ; 2 + sta $905 ; 4 + lda #$00 ; 2 + sta $906 ; 4 + lda #$00 ; 2 + sta $907 ; 4 + lda #$00 ; 2 + sta $908 ; 4 + lda #$00 ; 2 + sta $909 ; 4 + lda #$00 ; 2 + sta $90a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $502 ; 4 + lda #$00 ; 2 + sta $503 ; 4 + lda #$00 ; 2 + sta $504 ; 4 + lda #$00 ; 2 + sta $505 ; 4 + lda #$00 ; 2 + sta $506 ; 4 + lda #$00 ; 2 + sta $507 ; 4 + lda #$00 ; 2 + sta $508 ; 4 + lda #$00 ; 2 + sta $509 ; 4 + lda #$00 ; 2 + sta $50a ; 4 + bit krg ; 4 + lda TEMP ; 3 + +; 9 + ; 65 cycles + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $902 ; 4 + lda #$00 ; 2 + sta $903 ; 4 + lda #$00 ; 2 + sta $904 ; 4 + lda #$00 ; 2 + sta $905 ; 4 + lda #$00 ; 2 + sta $906 ; 4 + lda #$00 ; 2 + sta $907 ; 4 + lda #$00 ; 2 + sta $908 ; 4 + lda #$00 ; 2 + sta $909 ; 4 + lda #$00 ; 2 + sta $90a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $502 ; 4 + lda #$00 ; 2 + sta $503 ; 4 + lda #$00 ; 2 + sta $504 ; 4 + lda #$10 ; 2 + sta $505 ; 4 + lda #$10 ; 2 + sta $506 ; 4 + lda #$10 ; 2 + sta $507 ; 4 + lda #$00 ; 2 + sta $508 ; 4 + lda #$00 ; 2 + sta $509 ; 4 + lda #$00 ; 2 + sta $50a ; 4 + bit krg ; 4 + lda TEMP ; 3 + +; 10 + ; 65 cycles + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $902 ; 4 + lda #$00 ; 2 + sta $903 ; 4 + lda #$00 ; 2 + sta $904 ; 4 + lda #$90 ; 2 + sta $905 ; 4 + lda #$90 ; 2 + sta $906 ; 4 + lda #$90 ; 2 + sta $907 ; 4 + lda #$00 ; 2 + sta $908 ; 4 + lda #$00 ; 2 + sta $909 ; 4 + lda #$00 ; 2 + sta $90a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $502 ; 4 + lda #$00 ; 2 + sta $503 ; 4 + lda #$10 ; 2 + sta $504 ; 4 + lda #$d0 ; 2 + sta $505 ; 4 + lda #$d0 ; 2 + sta $506 ; 4 + lda #$d0 ; 2 + sta $507 ; 4 + lda #$10 ; 2 + sta $508 ; 4 + lda #$00 ; 2 + sta $509 ; 4 + lda #$00 ; 2 + sta $50a ; 4 + bit krg ; 4 + lda TEMP ; 3 + +; 11 + ; 65 cycles + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $902 ; 4 + lda #$00 ; 2 + sta $903 ; 4 + lda #$90 ; 2 + sta $904 ; 4 + lda #$40 ; 2 + sta $905 ; 4 + lda #$40 ; 2 + sta $906 ; 4 + lda #$40 ; 2 + sta $907 ; 4 + lda #$90 ; 2 + sta $908 ; 4 + lda #$00 ; 2 + sta $909 ; 4 + lda #$00 ; 2 + sta $90a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $582 ; 4 + lda #$01 ; 2 + sta $583 ; 4 + lda #$0d ; 2 + sta $584 ; 4 + lda #$06 ; 2 + sta $585 ; 4 + lda #$06 ; 2 + sta $586 ; 4 + lda #$06 ; 2 + sta $587 ; 4 + lda #$0d ; 2 + sta $588 ; 4 + lda #$01 ; 2 + sta $589 ; 4 + lda #$00 ; 2 + sta $58a ; 4 + bit krg ; 4 + lda TEMP ; 3 + +;================================ +; 12 (L3) = $580 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $982 ; 4 + lda #$09 ; 2 + sta $983 ; 4 + lda #$04 ; 2 + sta $984 ; 4 + lda #$02 ; 2 + sta $985 ; 4 + lda #$02 ; 2 + sta $986 ; 4 + lda #$02 ; 2 + sta $987 ; 4 + lda #$04 ; 2 + sta $988 ; 4 + lda #$09 ; 2 + sta $989 ; 4 + lda #$00 ; 2 + sta $98a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$01 ; 2 + sta $582 ; 4 + lda #$0d ; 2 + sta $583 ; 4 + lda #$06 ; 2 + sta $584 ; 4 + lda #$00 ; 2 + sta $585 ; 4 + lda #$00 ; 2 + sta $586 ; 4 + lda #$00 ; 2 + sta $587 ; 4 + lda #$06 ; 2 + sta $588 ; 4 + lda #$0d ; 2 + sta $589 ; 4 + lda #$01 ; 2 + sta $58a ; 4 + bit krg ; 4 + lda TEMP ; 3 + +; 13 + + bit PAGE0 ; 4 + lda #$09 ; 2 + sta $982 ; 4 + lda #$04 ; 2 + sta $983 ; 4 + lda #$02 ; 2 + sta $984 ; 4 + lda #$00 ; 2 + sta $985 ; 4 + lda #$00 ; 2 + sta $986 ; 4 + lda #$00 ; 2 + sta $987 ; 4 + lda #$02 ; 2 + sta $988 ; 4 + lda #$04 ; 2 + sta $989 ; 4 + lda #$09 ; 2 + sta $98a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$d0 ; 2 + sta $582 ; 4 + lda #$60 ; 2 + sta $583 ; 4 + lda #$00 ; 2 + sta $584 ; 4 + lda #$00 ; 2 + sta $585 ; 4 + lda #$00 ; 2 + sta $586 ; 4 + lda #$00 ; 2 + sta $587 ; 4 + lda #$00 ; 2 + sta $588 ; 4 + lda #$60 ; 2 + sta $589 ; 4 + lda #$d0 ; 2 + sta $58a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + +; 14 + bit PAGE0 ; 4 + lda #$40 ; 2 + sta $982 ; 4 + lda #$20 ; 2 + sta $983 ; 4 + lda #$00 ; 2 + sta $984 ; 4 + lda #$00 ; 2 + sta $985 ; 4 + lda #$00 ; 2 + sta $986 ; 4 + lda #$00 ; 2 + sta $987 ; 4 + lda #$00 ; 2 + sta $988 ; 4 + lda #$20 ; 2 + sta $989 ; 4 + lda #$40 ; 2 + sta $98a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$60 ; 2 + sta $582 ; 4 + lda #$00 ; 2 + sta $583 ; 4 + lda #$00 ; 2 + sta $584 ; 4 + lda #$00 ; 2 + sta $585 ; 4 + lda #$00 ; 2 + sta $586 ; 4 + lda #$00 ; 2 + sta $587 ; 4 + lda #$00 ; 2 + sta $588 ; 4 + lda #$00 ; 2 + sta $589 ; 4 + lda #$60 ; 2 + sta $58a ; 4 + bit krg ; 4 + lda TEMP ; 3 + +; 15 + + bit PAGE0 ; 4 + lda #$20 ; 2 + sta $982 ; 4 + lda #$00 ; 2 + sta $983 ; 4 + lda #$00 ; 2 + sta $984 ; 4 + lda #$00 ; 2 + sta $985 ; 4 + lda #$00 ; 2 + sta $986 ; 4 + lda #$00 ; 2 + sta $987 ; 4 + lda #$00 ; 2 + sta $988 ; 4 + lda #$00 ; 2 + sta $989 ; 4 + lda #$20 ; 2 + sta $98a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $602 ; 4 + lda #$00 ; 2 + sta $603 ; 4 + lda #$00 ; 2 + sta $604 ; 4 + lda #$00 ; 2 + sta $605 ; 4 + lda #$00 ; 2 + sta $606 ; 4 + lda #$00 ; 2 + sta $607 ; 4 + lda #$00 ; 2 + sta $608 ; 4 + lda #$00 ; 2 + sta $609 ; 4 + lda #$00 ; 2 + sta $60a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + +;================================ +; 16 (L4) = $600 + + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $a02 ; 4 + lda #$00 ; 2 + sta $a03 ; 4 + lda #$00 ; 2 + sta $a04 ; 4 + lda #$00 ; 2 + sta $a05 ; 4 + lda #$05 ; 2 + sta $a06 ; 4 + lda #$00 ; 2 + sta $a07 ; 4 + lda #$00 ; 2 + sta $a08 ; 4 + lda #$00 ; 2 + sta $a09 ; 4 + lda #$20 ; 2 + sta $a0a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $602 ; 4 + lda #$00 ; 2 + sta $603 ; 4 + lda #$00 ; 2 + sta $604 ; 4 + lda #$00 ; 2 + sta $605 ; 4 + lda #$07 ; 2 + sta $606 ; 4 + lda #$00 ; 2 + sta $607 ; 4 + lda #$00 ; 2 + sta $608 ; 4 + lda #$00 ; 2 + sta $609 ; 4 + lda #$00 ; 2 + sta $60a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + +; 17 + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $a02 ; 4 + lda #$00 ; 2 + sta $a03 ; 4 + lda #$00 ; 2 + sta $a04 ; 4 + lda #$00 ; 2 + sta $a05 ; 4 + lda #$0f ; 2 + sta $a06 ; 4 + lda #$00 ; 2 + sta $a07 ; 4 + lda #$00 ; 2 + sta $a08 ; 4 + lda #$00 ; 2 + sta $a09 ; 4 + lda #$00 ; 2 + sta $a0a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $602 ; 4 + lda #$00 ; 2 + sta $603 ; 4 + lda #$00 ; 2 + sta $604 ; 4 + lda #$80 ; 2 + sta $605 ; 4 + lda #$80 ; 2 + sta $606 ; 4 + lda #$80 ; 2 + sta $607 ; 4 + lda #$00 ; 2 + sta $608 ; 4 + lda #$00 ; 2 + sta $609 ; 4 + lda #$40 ; 2 + sta $60a ; 4 + bit krg ; 4 + lda TEMP ; 3 + +; 18 + + bit PAGE0 ; 4 + lda #$b0 ; 2 + sta $a02 ; 4 + lda #$e0 ; 2 + sta $a03 ; 4 + lda #$e0 ; 2 + sta $a04 ; 4 + lda #$e0 ; 2 + sta $a05 ; 4 + lda #$e0 ; 2 + sta $a06 ; 4 + lda #$e0 ; 2 + sta $a07 ; 4 + lda #$c0 ; 2 + sta $a08 ; 4 + lda #$c0 ; 2 + sta $a09 ; 4 + lda #$40 ; 2 + sta $a0a ; 4 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$30 ; 2 + sta $602 ; 4 + lda #$e0 ; 2 + sta $603 ; 4 + lda #$e0 ; 2 + sta $604 ; 4 + lda #$e0 ; 2 + sta $605 ; 4 + lda #$e0 ; 2 + sta $606 ; 4 + lda #$e0 ; 2 + sta $607 ; 4 + lda #$c0 ; 2 + sta $608 ; 4 + lda #$c0 ; 2 + sta $609 ; 4 + lda #$c0 ; 2 + sta $60a ; 4 + bit krg ; 4 + lda TEMP ; 3 + +; 19 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + +;================================ +; 20 (L5) = $680 + + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + +; 21 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + +; 22 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + +; 23 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + +;================================ +; 24 (L6) = $700 + + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + +; 25 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + +; 26 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + +; 27 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + +;================================ +; 28 (L7) = $780 + + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + +; 29 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + +; 30 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 31 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 32 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 33 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 34 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 35 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 36 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 37 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 38 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 39 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 40 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 41 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 42 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 43 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 44 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 45 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 46 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 47 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 48 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 49 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 50 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 51 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 52 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 53 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 54 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 55 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 56 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 57 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 58 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 59 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 60 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 61 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 62 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + ; 63 + bit PAGE0 ; 4 + ; 65 cycles + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + inc krg ; 6 + bit krg ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$03 ; 2 + sta $450 ; 4 + sta $451 ; 4 + sta $452 ; 4 + sta $453 ; 4 + sta $454 ; 4 + sta $455 ; 4 + sta $456 ; 4 + sta $457 ; 4 + sta $458 ; 4 + sta $459 ; 4 + sta $45a ; 4 + sta $45b ; 4 + sta $45c ; 4 + sta $45d ; 4 + lda TEMP ; 3 + +;========= +; 64(L16) = $450 + + bit PAGE0 ; 4 + lda #$0b ; 2 + sta $850 ; 4 + sta $851 ; 4 + sta $852 ; 4 + sta $853 ; 4 + sta $854 ; 4 + sta $855 ; 4 + sta $856 ; 4 + sta $857 ; 4 + sta $858 ; 4 + sta $859 ; 4 + sta $85a ; 4 + sta $85b ; 4 + sta $85c ; 4 + sta $85d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$0f ; 2 + sta $450 ; 4 + sta $451 ; 4 + sta $452 ; 4 + sta $453 ; 4 + sta $454 ; 4 + sta $455 ; 4 + sta $456 ; 4 + sta $457 ; 4 + sta $458 ; 4 + sta $459 ; 4 + sta $45a ; 4 + sta $45b ; 4 + sta $45c ; 4 + sta $45d ; 4 + lda TEMP ; 3 + +; 65 + bit PAGE0 ; 4 + lda #$0b ; 2 + sta $850 ; 4 + sta $851 ; 4 + sta $852 ; 4 + sta $853 ; 4 + sta $854 ; 4 + sta $855 ; 4 + sta $856 ; 4 + sta $857 ; 4 + sta $858 ; 4 + sta $859 ; 4 + sta $85a ; 4 + sta $85b ; 4 + sta $85c ; 4 + sta $85d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$30 ; 2 + sta $450 ; 4 + sta $451 ; 4 + sta $452 ; 4 + sta $453 ; 4 + sta $454 ; 4 + sta $455 ; 4 + sta $456 ; 4 + sta $457 ; 4 + sta $458 ; 4 + sta $459 ; 4 + sta $45a ; 4 + sta $45b ; 4 + sta $45c ; 4 + sta $45d ; 4 + lda TEMP ; 3 + +; 66 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $850 ; 4 + sta $851 ; 4 + sta $852 ; 4 + sta $853 ; 4 + sta $854 ; 4 + sta $855 ; 4 + sta $856 ; 4 + sta $857 ; 4 + sta $858 ; 4 + sta $859 ; 4 + sta $85a ; 4 + sta $85b ; 4 + sta $85c ; 4 + sta $85d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $450 ; 4 + sta $451 ; 4 + sta $452 ; 4 + sta $453 ; 4 + sta $454 ; 4 + sta $455 ; 4 + sta $456 ; 4 + sta $457 ; 4 + sta $458 ; 4 + sta $459 ; 4 + sta $45a ; 4 + sta $45b ; 4 + sta $45c ; 4 + sta $45d ; 4 + lda TEMP ; 3 + +; 67 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $850 ; 4 + sta $851 ; 4 + sta $852 ; 4 + sta $853 ; 4 + sta $854 ; 4 + sta $855 ; 4 + sta $856 ; 4 + sta $857 ; 4 + sta $858 ; 4 + sta $859 ; 4 + sta $85a ; 4 + sta $85b ; 4 + sta $85c ; 4 + sta $85d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$02 ; 2 + sta $4d0 ; 4 + sta $4d1 ; 4 + sta $4d2 ; 4 + sta $4d3 ; 4 + sta $4d4 ; 4 + sta $4d5 ; 4 + sta $4d6 ; 4 + sta $4d7 ; 4 + sta $4d8 ; 4 + sta $4d9 ; 4 + sta $4da ; 4 + sta $4db ; 4 + sta $4dc ; 4 + sta $4dd ; 4 + lda TEMP ; 3 + +;========= +; 68(L17) = $4d0 + + bit PAGE0 ; 4 + lda #$06 ; 2 + sta $8d0 ; 4 + sta $8d1 ; 4 + sta $8d2 ; 4 + sta $8d3 ; 4 + sta $8d4 ; 4 + sta $8d5 ; 4 + sta $8d6 ; 4 + sta $8d7 ; 4 + sta $8d8 ; 4 + sta $8d9 ; 4 + sta $8da ; 4 + sta $8db ; 4 + sta $8dc ; 4 + sta $8dd ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$0f ; 2 + sta $4d0 ; 4 + sta $4d1 ; 4 + sta $4d2 ; 4 + sta $4d3 ; 4 + sta $4d4 ; 4 + sta $4d5 ; 4 + sta $4d6 ; 4 + sta $4d7 ; 4 + sta $4d8 ; 4 + sta $4d9 ; 4 + sta $4da ; 4 + sta $4db ; 4 + sta $4dc ; 4 + sta $4dd ; 4 + lda TEMP ; 3 + +; 69 + + bit PAGE0 ; 4 + lda #$06 ; 2 + sta $8d0 ; 4 + sta $8d1 ; 4 + sta $8d2 ; 4 + sta $8d3 ; 4 + sta $8d4 ; 4 + sta $8d5 ; 4 + sta $8d6 ; 4 + sta $8d7 ; 4 + sta $8d8 ; 4 + sta $8d9 ; 4 + sta $8da ; 4 + sta $8db ; 4 + sta $8dc ; 4 + sta $8dd ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$20 ; 2 + sta $4d0 ; 4 + sta $4d1 ; 4 + sta $4d2 ; 4 + sta $4d3 ; 4 + sta $4d4 ; 4 + sta $4d5 ; 4 + sta $4d6 ; 4 + sta $4d7 ; 4 + sta $4d8 ; 4 + sta $4d9 ; 4 + sta $4da ; 4 + sta $4db ; 4 + sta $4dc ; 4 + sta $4dd ; 4 + lda TEMP ; 3 + +; 70 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $8d0 ; 4 + sta $8d1 ; 4 + sta $8d2 ; 4 + sta $8d3 ; 4 + sta $8d4 ; 4 + sta $8d5 ; 4 + sta $8d6 ; 4 + sta $8d7 ; 4 + sta $8d8 ; 4 + sta $8d9 ; 4 + sta $8da ; 4 + sta $8db ; 4 + sta $8dc ; 4 + sta $8dd ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $4d0 ; 4 + sta $4d1 ; 4 + sta $4d2 ; 4 + sta $4d3 ; 4 + sta $4d4 ; 4 + sta $4d5 ; 4 + sta $4d6 ; 4 + sta $4d7 ; 4 + sta $4d8 ; 4 + sta $4d9 ; 4 + sta $4da ; 4 + sta $4db ; 4 + sta $4dc ; 4 + sta $4dd ; 4 + lda TEMP ; 3 + +; 71 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $8d0 ; 4 + sta $8d1 ; 4 + sta $8d2 ; 4 + sta $8d3 ; 4 + sta $8d4 ; 4 + sta $8d5 ; 4 + sta $8d6 ; 4 + sta $8d7 ; 4 + sta $8d8 ; 4 + sta $8d9 ; 4 + sta $8da ; 4 + sta $8db ; 4 + sta $8dc ; 4 + sta $8dd ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$04 ; 2 + sta $550 ; 4 + sta $551 ; 4 + sta $552 ; 4 + sta $553 ; 4 + sta $554 ; 4 + sta $555 ; 4 + sta $556 ; 4 + sta $557 ; 4 + sta $558 ; 4 + sta $559 ; 4 + sta $55a ; 4 + sta $55b ; 4 + sta $55c ; 4 + sta $55d ; 4 + lda TEMP ; 3 + + +;========= +; 72(L18) = $550 + + bit PAGE0 ; 4 + lda #$0c ; 2 + sta $950 ; 4 + sta $951 ; 4 + sta $952 ; 4 + sta $953 ; 4 + sta $954 ; 4 + sta $955 ; 4 + sta $956 ; 4 + sta $957 ; 4 + sta $958 ; 4 + sta $959 ; 4 + sta $95a ; 4 + sta $95b ; 4 + sta $95c ; 4 + sta $95d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$0f ; 2 + sta $550 ; 4 + sta $551 ; 4 + sta $552 ; 4 + sta $553 ; 4 + sta $554 ; 4 + sta $555 ; 4 + sta $556 ; 4 + sta $557 ; 4 + sta $558 ; 4 + sta $559 ; 4 + sta $55a ; 4 + sta $55b ; 4 + sta $55c ; 4 + sta $55d ; 4 + lda TEMP ; 3 + +; 73 + + bit PAGE0 ; 4 + lda #$0c ; 2 + sta $950 ; 4 + sta $951 ; 4 + sta $952 ; 4 + sta $953 ; 4 + sta $954 ; 4 + sta $955 ; 4 + sta $956 ; 4 + sta $957 ; 4 + sta $958 ; 4 + sta $959 ; 4 + sta $95a ; 4 + sta $95b ; 4 + sta $95c ; 4 + sta $95d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$40 ; 2 + sta $550 ; 4 + sta $551 ; 4 + sta $552 ; 4 + sta $553 ; 4 + sta $554 ; 4 + sta $555 ; 4 + sta $556 ; 4 + sta $557 ; 4 + sta $558 ; 4 + sta $559 ; 4 + sta $55a ; 4 + sta $55b ; 4 + sta $55c ; 4 + sta $55d ; 4 + lda TEMP ; 3 + +; 74 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $950 ; 4 + sta $951 ; 4 + sta $952 ; 4 + sta $953 ; 4 + sta $954 ; 4 + sta $955 ; 4 + sta $956 ; 4 + sta $957 ; 4 + sta $958 ; 4 + sta $959 ; 4 + sta $95a ; 4 + sta $95b ; 4 + sta $95c ; 4 + sta $95d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $550 ; 4 + sta $551 ; 4 + sta $552 ; 4 + sta $553 ; 4 + sta $554 ; 4 + sta $555 ; 4 + sta $556 ; 4 + sta $557 ; 4 + sta $558 ; 4 + sta $559 ; 4 + sta $55a ; 4 + sta $55b ; 4 + sta $55c ; 4 + sta $55d ; 4 + lda TEMP ; 3 + +; 75 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $950 ; 4 + sta $951 ; 4 + sta $952 ; 4 + sta $953 ; 4 + sta $954 ; 4 + sta $955 ; 4 + sta $956 ; 4 + sta $957 ; 4 + sta $958 ; 4 + sta $959 ; 4 + sta $95a ; 4 + sta $95b ; 4 + sta $95c ; 4 + sta $95d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$05 ; 2 + sta $5d0 ; 4 + sta $5d1 ; 4 + sta $5d2 ; 4 + sta $5d3 ; 4 + sta $5d4 ; 4 + sta $5d5 ; 4 + sta $5d6 ; 4 + sta $5d7 ; 4 + sta $5d8 ; 4 + sta $5d9 ; 4 + sta $5da ; 4 + sta $5db ; 4 + sta $5dc ; 4 + sta $5dd ; 4 + lda TEMP ; 3 + + +;========= +; 76(L19) = $5d0 + + bit PAGE0 ; 4 + lda #$07 ; 2 + sta $9d0 ; 4 + sta $9d1 ; 4 + sta $9d2 ; 4 + sta $9d3 ; 4 + sta $9d4 ; 4 + sta $9d5 ; 4 + sta $9d6 ; 4 + sta $9d7 ; 4 + sta $9d8 ; 4 + sta $9d9 ; 4 + sta $9da ; 4 + sta $9db ; 4 + sta $9dc ; 4 + sta $9dd ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$0f ; 2 + sta $5d0 ; 4 + sta $5d1 ; 4 + sta $5d2 ; 4 + sta $5d3 ; 4 + sta $5d4 ; 4 + sta $5d5 ; 4 + sta $5d6 ; 4 + sta $5d7 ; 4 + sta $5d8 ; 4 + sta $5d9 ; 4 + sta $5da ; 4 + sta $5db ; 4 + sta $5dc ; 4 + sta $5dd ; 4 + lda TEMP ; 3 + +; 77 + + bit PAGE0 ; 4 + lda #$07 ; 2 + sta $9d0 ; 4 + sta $9d1 ; 4 + sta $9d2 ; 4 + sta $9d3 ; 4 + sta $9d4 ; 4 + sta $9d5 ; 4 + sta $9d6 ; 4 + sta $9d7 ; 4 + sta $9d8 ; 4 + sta $9d9 ; 4 + sta $9da ; 4 + sta $9db ; 4 + sta $9dc ; 4 + sta $9dd ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$50 ; 2 + sta $5d0 ; 4 + sta $5d1 ; 4 + sta $5d2 ; 4 + sta $5d3 ; 4 + sta $5d4 ; 4 + sta $5d5 ; 4 + sta $5d6 ; 4 + sta $5d7 ; 4 + sta $5d8 ; 4 + sta $5d9 ; 4 + sta $5da ; 4 + sta $5db ; 4 + sta $5dc ; 4 + sta $5dd ; 4 + lda TEMP ; 3 + +; 78 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $9d0 ; 4 + sta $9d1 ; 4 + sta $9d2 ; 4 + sta $9d3 ; 4 + sta $9d4 ; 4 + sta $9d5 ; 4 + sta $9d6 ; 4 + sta $9d7 ; 4 + sta $9d8 ; 4 + sta $9d9 ; 4 + sta $9da ; 4 + sta $9db ; 4 + sta $9dc ; 4 + sta $9dd ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $5d0 ; 4 + sta $5d1 ; 4 + sta $5d2 ; 4 + sta $5d3 ; 4 + sta $5d4 ; 4 + sta $5d5 ; 4 + sta $5d6 ; 4 + sta $5d7 ; 4 + sta $5d8 ; 4 + sta $5d9 ; 4 + sta $5da ; 4 + sta $5db ; 4 + sta $5dc ; 4 + sta $5dd ; 4 + lda TEMP ; 3 + +; 79 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $9d0 ; 4 + sta $9d1 ; 4 + sta $9d2 ; 4 + sta $9d3 ; 4 + sta $9d4 ; 4 + sta $9d5 ; 4 + sta $9d6 ; 4 + sta $9d7 ; 4 + sta $9d8 ; 4 + sta $9d9 ; 4 + sta $9da ; 4 + sta $9db ; 4 + sta $9dc ; 4 + sta $9dd ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$01 ; 2 + sta $650 ; 4 + sta $651 ; 4 + sta $652 ; 4 + sta $653 ; 4 + sta $654 ; 4 + sta $655 ; 4 + sta $656 ; 4 + sta $657 ; 4 + sta $658 ; 4 + sta $659 ; 4 + sta $65a ; 4 + sta $65b ; 4 + sta $65c ; 4 + sta $65d ; 4 + lda TEMP ; 3 + + +;========= +; 80(L20) = $650 + + bit PAGE0 ; 4 + lda #$03 ; 2 + sta $a50 ; 4 + sta $a51 ; 4 + sta $a52 ; 4 + sta $a53 ; 4 + sta $a54 ; 4 + sta $a55 ; 4 + sta $a56 ; 4 + sta $a57 ; 4 + sta $a58 ; 4 + sta $a59 ; 4 + sta $a5a ; 4 + sta $a5b ; 4 + sta $a5c ; 4 + sta $a5d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$0f ; 2 + sta $650 ; 4 + sta $651 ; 4 + sta $652 ; 4 + sta $653 ; 4 + sta $654 ; 4 + sta $655 ; 4 + sta $656 ; 4 + sta $657 ; 4 + sta $658 ; 4 + sta $659 ; 4 + sta $65a ; 4 + sta $65b ; 4 + sta $65c ; 4 + sta $65d ; 4 + lda TEMP ; 3 + +; 81 + + bit PAGE0 ; 4 + lda #$03 ; 2 + sta $a50 ; 4 + sta $a51 ; 4 + sta $a52 ; 4 + sta $a53 ; 4 + sta $a54 ; 4 + sta $a55 ; 4 + sta $a56 ; 4 + sta $a57 ; 4 + sta $a58 ; 4 + sta $a59 ; 4 + sta $a5a ; 4 + sta $a5b ; 4 + sta $a5c ; 4 + sta $a5d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$10 ; 2 + sta $650 ; 4 + sta $651 ; 4 + sta $652 ; 4 + sta $653 ; 4 + sta $654 ; 4 + sta $655 ; 4 + sta $656 ; 4 + sta $657 ; 4 + sta $658 ; 4 + sta $659 ; 4 + sta $65a ; 4 + sta $65b ; 4 + sta $65c ; 4 + sta $65d ; 4 + lda TEMP ; 3 + +; 82 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $a50 ; 4 + sta $a51 ; 4 + sta $a52 ; 4 + sta $a53 ; 4 + sta $a54 ; 4 + sta $a55 ; 4 + sta $a56 ; 4 + sta $a57 ; 4 + sta $a58 ; 4 + sta $a59 ; 4 + sta $a5a ; 4 + sta $a5b ; 4 + sta $a5c ; 4 + sta $a5d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $650 ; 4 + sta $651 ; 4 + sta $652 ; 4 + sta $653 ; 4 + sta $654 ; 4 + sta $655 ; 4 + sta $656 ; 4 + sta $657 ; 4 + sta $658 ; 4 + sta $659 ; 4 + sta $65a ; 4 + sta $65b ; 4 + sta $65c ; 4 + sta $65d ; 4 + lda TEMP ; 3 + +; 83 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $a50 ; 4 + sta $a51 ; 4 + sta $a52 ; 4 + sta $a53 ; 4 + sta $a54 ; 4 + sta $a55 ; 4 + sta $a56 ; 4 + sta $a57 ; 4 + sta $a58 ; 4 + sta $a59 ; 4 + sta $a5a ; 4 + sta $a5b ; 4 + sta $a5c ; 4 + sta $a5d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$08 ; 2 + sta $6d0 ; 4 + sta $6d1 ; 4 + sta $6d2 ; 4 + sta $6d3 ; 4 + sta $6d4 ; 4 + sta $6d5 ; 4 + sta $6d6 ; 4 + sta $6d7 ; 4 + sta $6d8 ; 4 + sta $6d9 ; 4 + sta $6da ; 4 + sta $6db ; 4 + sta $6dc ; 4 + sta $6dd ; 4 + lda TEMP ; 3 + + +;========= +; 84(21) = $6d0 + + bit PAGE0 ; 4 + lda #$0d ; 2 + sta $ad0 ; 4 + sta $ad1 ; 4 + sta $ad2 ; 4 + sta $ad3 ; 4 + sta $ad4 ; 4 + sta $ad5 ; 4 + sta $ad6 ; 4 + sta $ad7 ; 4 + sta $ad8 ; 4 + sta $ad9 ; 4 + sta $ada ; 4 + sta $adb ; 4 + sta $adc ; 4 + sta $add ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$0f ; 2 + sta $6d0 ; 4 + sta $6d1 ; 4 + sta $6d2 ; 4 + sta $6d3 ; 4 + sta $6d4 ; 4 + sta $6d5 ; 4 + sta $6d6 ; 4 + sta $6d7 ; 4 + sta $6d8 ; 4 + sta $6d9 ; 4 + sta $6da ; 4 + sta $6db ; 4 + sta $6dc ; 4 + sta $6dd ; 4 + lda TEMP ; 3 + +; 85 + + bit PAGE0 ; 4 + lda #$0d ; 2 + sta $ad0 ; 4 + sta $ad1 ; 4 + sta $ad2 ; 4 + sta $ad3 ; 4 + sta $ad4 ; 4 + sta $ad5 ; 4 + sta $ad6 ; 4 + sta $ad7 ; 4 + sta $ad8 ; 4 + sta $ad9 ; 4 + sta $ada ; 4 + sta $adb ; 4 + sta $adc ; 4 + sta $add ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$80 ; 2 + sta $6d0 ; 4 + sta $6d1 ; 4 + sta $6d2 ; 4 + sta $6d3 ; 4 + sta $6d4 ; 4 + sta $6d5 ; 4 + sta $6d6 ; 4 + sta $6d7 ; 4 + sta $6d8 ; 4 + sta $6d9 ; 4 + sta $6da ; 4 + sta $6db ; 4 + sta $6dc ; 4 + sta $6dd ; 4 + lda TEMP ; 3 + +; 86 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $ad0 ; 4 + sta $ad1 ; 4 + sta $ad2 ; 4 + sta $ad3 ; 4 + sta $ad4 ; 4 + sta $ad5 ; 4 + sta $ad6 ; 4 + sta $ad7 ; 4 + sta $ad8 ; 4 + sta $ad9 ; 4 + sta $ada ; 4 + sta $adb ; 4 + sta $adc ; 4 + sta $add ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $6d0 ; 4 + sta $6d1 ; 4 + sta $6d2 ; 4 + sta $6d3 ; 4 + sta $6d4 ; 4 + sta $6d5 ; 4 + sta $6d6 ; 4 + sta $6d7 ; 4 + sta $6d8 ; 4 + sta $6d9 ; 4 + sta $6da ; 4 + sta $6db ; 4 + sta $6dc ; 4 + sta $6dd ; 4 + lda TEMP ; 3 + +; 87 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $ad0 ; 4 + sta $ad1 ; 4 + sta $ad2 ; 4 + sta $ad3 ; 4 + sta $ad4 ; 4 + sta $ad5 ; 4 + sta $ad6 ; 4 + sta $ad7 ; 4 + sta $ad8 ; 4 + sta $ad9 ; 4 + sta $ada ; 4 + sta $adb ; 4 + sta $adc ; 4 + sta $add ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$0c ; 2 + sta $750 ; 4 + sta $751 ; 4 + sta $752 ; 4 + sta $753 ; 4 + sta $754 ; 4 + sta $755 ; 4 + sta $756 ; 4 + sta $757 ; 4 + sta $758 ; 4 + sta $759 ; 4 + sta $75a ; 4 + sta $75b ; 4 + sta $75c ; 4 + sta $75d ; 4 + lda TEMP ; 3 + + +;========= +; 88(L22) = $750 + + bit PAGE0 ; 4 + lda #$0e ; 2 + sta $b50 ; 4 + sta $b51 ; 4 + sta $b52 ; 4 + sta $b53 ; 4 + sta $b54 ; 4 + sta $b55 ; 4 + sta $b56 ; 4 + sta $b57 ; 4 + sta $b58 ; 4 + sta $b59 ; 4 + sta $b5a ; 4 + sta $b5b ; 4 + sta $b5c ; 4 + sta $b5d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$0f ; 2 + sta $750 ; 4 + sta $751 ; 4 + sta $752 ; 4 + sta $753 ; 4 + sta $754 ; 4 + sta $755 ; 4 + sta $756 ; 4 + sta $757 ; 4 + sta $758 ; 4 + sta $759 ; 4 + sta $75a ; 4 + sta $75b ; 4 + sta $75c ; 4 + sta $75d ; 4 + lda TEMP ; 3 + +; 89 + + bit PAGE0 ; 4 + lda #$0e ; 2 + sta $b50 ; 4 + sta $b51 ; 4 + sta $b52 ; 4 + sta $b53 ; 4 + sta $b54 ; 4 + sta $b55 ; 4 + sta $b56 ; 4 + sta $b57 ; 4 + sta $b58 ; 4 + sta $b59 ; 4 + sta $b5a ; 4 + sta $b5b ; 4 + sta $b5c ; 4 + sta $b5d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$c0 ; 2 + sta $750 ; 4 + sta $751 ; 4 + sta $752 ; 4 + sta $753 ; 4 + sta $754 ; 4 + sta $755 ; 4 + sta $756 ; 4 + sta $757 ; 4 + sta $758 ; 4 + sta $759 ; 4 + sta $75a ; 4 + sta $75b ; 4 + sta $75c ; 4 + sta $75d ; 4 + lda TEMP ; 3 + +; 90 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $b50 ; 4 + sta $b51 ; 4 + sta $b52 ; 4 + sta $b53 ; 4 + sta $b54 ; 4 + sta $b55 ; 4 + sta $b56 ; 4 + sta $b57 ; 4 + sta $b58 ; 4 + sta $b59 ; 4 + sta $b5a ; 4 + sta $b5b ; 4 + sta $b5c ; 4 + sta $b5d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $750 ; 4 + sta $751 ; 4 + sta $752 ; 4 + sta $753 ; 4 + sta $754 ; 4 + sta $755 ; 4 + sta $756 ; 4 + sta $757 ; 4 + sta $758 ; 4 + sta $759 ; 4 + sta $75a ; 4 + sta $75b ; 4 + sta $75c ; 4 + sta $75d ; 4 + lda TEMP ; 3 + +; 91 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $b50 ; 4 + sta $b51 ; 4 + sta $b52 ; 4 + sta $b53 ; 4 + sta $b54 ; 4 + sta $b55 ; 4 + sta $b56 ; 4 + sta $b57 ; 4 + sta $b58 ; 4 + sta $b59 ; 4 + sta $b5a ; 4 + sta $b5b ; 4 + sta $b5c ; 4 + sta $b5d ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$09 ; 2 + sta $7d0 ; 4 + sta $7d1 ; 4 + sta $7d2 ; 4 + sta $7d3 ; 4 + sta $7d4 ; 4 + sta $7d5 ; 4 + sta $7d6 ; 4 + sta $7d7 ; 4 + sta $7d8 ; 4 + sta $7d9 ; 4 + sta $7da ; 4 + sta $7db ; 4 + sta $7dc ; 4 + sta $7dd ; 4 + lda TEMP ; 3 + + +;========= +; 92(L23) = $7d0 + + bit PAGE0 ; 4 + lda #$0d ; 2 + sta $bd0 ; 4 + sta $bd1 ; 4 + sta $bd2 ; 4 + sta $bd3 ; 4 + sta $bd4 ; 4 + sta $bd5 ; 4 + sta $bd6 ; 4 + sta $bd7 ; 4 + sta $bd8 ; 4 + sta $bd9 ; 4 + sta $bda ; 4 + sta $bdb ; 4 + sta $bdc ; 4 + sta $bdd ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$0f ; 2 + sta $7d0 ; 4 + sta $7d1 ; 4 + sta $7d2 ; 4 + sta $7d3 ; 4 + sta $7d4 ; 4 + sta $7d5 ; 4 + sta $7d6 ; 4 + sta $7d7 ; 4 + sta $7d8 ; 4 + sta $7d9 ; 4 + sta $7da ; 4 + sta $7db ; 4 + sta $7dc ; 4 + sta $7dd ; 4 + lda TEMP ; 3 + +; 93 + + bit PAGE0 ; 4 + lda #$0d ; 2 + sta $bd0 ; 4 + sta $bd1 ; 4 + sta $bd2 ; 4 + sta $bd3 ; 4 + sta $bd4 ; 4 + sta $bd5 ; 4 + sta $bd6 ; 4 + sta $bd7 ; 4 + sta $bd8 ; 4 + sta $bd9 ; 4 + sta $bda ; 4 + sta $bdb ; 4 + sta $bdc ; 4 + sta $bdd ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$90 ; 2 + sta $7d0 ; 4 + sta $7d1 ; 4 + sta $7d2 ; 4 + sta $7d3 ; 4 + sta $7d4 ; 4 + sta $7d5 ; 4 + sta $7d6 ; 4 + sta $7d7 ; 4 + sta $7d8 ; 4 + sta $7d9 ; 4 + sta $7da ; 4 + sta $7db ; 4 + sta $7dc ; 4 + sta $7dd ; 4 + lda TEMP ; 3 + +; 94 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $bd0 ; 4 + sta $bd1 ; 4 + sta $bd2 ; 4 + sta $bd3 ; 4 + sta $bd4 ; 4 + sta $bd5 ; 4 + sta $bd6 ; 4 + sta $bd7 ; 4 + sta $bd8 ; 4 + sta $bd9 ; 4 + sta $bda ; 4 + sta $bdb ; 4 + sta $bdc ; 4 + sta $bdd ; 4 + lda TEMP ; 3 + + bit PAGE1 ; 4 + lda #$00 ; 2 + sta $7d0 ; 4 + sta $7d1 ; 4 + sta $7d2 ; 4 + sta $7d3 ; 4 + sta $7d4 ; 4 + sta $7d5 ; 4 + sta $7d6 ; 4 + sta $7d7 ; 4 + sta $7d8 ; 4 + sta $7d9 ; 4 + sta $7da ; 4 + sta $7db ; 4 + sta $7dc ; 4 + sta $7dd ; 4 + lda TEMP ; 3 + +; 95 + + bit PAGE0 ; 4 + lda #$00 ; 2 + sta $bd0 ; 4 + sta $bd1 ; 4 + sta $bd2 ; 4 + sta $bd3 ; 4 + sta $bd4 ; 4 + sta $bd5 ; 4 + sta $bd6 ; 4 + sta $bd7 ; 4 + sta $bd8 ; 4 + sta $bd9 ; 4 + sta $bda ; 4 + sta $bdb ; 4 + sta $bdc ; 4 + sta $bdd ; 4 + lda TEMP ; 3 + + ; 65 cycles + bit PAGE1 ; 4 + lda #$03 ; 2 + sta $400 ; 4 + sta $401 ; 4 + sta $402 ; 4 + sta $403 ; 4 + sta $404 ; 4 + sta $405 ; 4 + sta $406 ; 4 + sta $407 ; 4 + sta $408 ; 4 + sta $409 ; 4 + sta $40a ; 4 + sta $40b ; 4 + sta $40c ; 4 + sta $40d ; 4 + lda TEMP ; 3 + + + + + ;====================================================== + ; We have 4550 cycles in the vblank, use them wisely + ;====================================================== + ; do_nothing should be + ; 4550 + ; -6 + ; -10 + ;============= + ; 4534 + + jsr do_nothing_missing ; 6 + + lda KEYPRESS ; 4 + bpl missing_no_keypress ; 3 + + rts + +missing_no_keypress: + + jmp missing_display_loop ; 3 + + + + ;================================= + ; do nothing + ;================================= + ; and take 4534-6 = 4528 cycles to do it + + + ; blah, current code the tight loops are right at a page boundary + +do_nothing_missing: + + ; want 4528-12=4516 + + ; Try X=4 Y=174 cycles=4525 R3 -3 X loops + + ; Try X=3 Y=215 cycles=4516 + + nop ; 2 + nop ; 2 + + nop ; 2 + nop ; 2 + + nop ; 2 + nop ; 2 + + + + ldy #215 ; 2 +gloop1: ldx #3 ; 2 +gloop2: dex ; 2 + bne gloop2 ; 2nt/3 + dey ; 2 + bne gloop1 ; 2nt/3 + + rts ; 6 + + + +k_picture: + .word k_low,k_high + +.include "k_40_48d.inc" + +krg: + .byte $0