mirror of
https://github.com/aotta/PicoPAC
synced 2024-11-14 20:55:02 -05:00
397 lines
8.9 KiB
NASM
397 lines
8.9 KiB
NASM
|
|
; INTRAM
|
|
; 20-2f = char temp space
|
|
; 30 = temp exram pointer
|
|
; 31 = PAL/NTSC
|
|
; 32-35 = line colors
|
|
|
|
; only alterable during assemble-time: y0, gridfill
|
|
; alterable during runtime: x0, backcol
|
|
|
|
cpu 8048
|
|
|
|
include "g7000.h"
|
|
|
|
iram_disp_type equ 031h
|
|
iram_line_selected equ 37h
|
|
iram_mempage equ 36h
|
|
iram_timer equ 78h
|
|
|
|
x0 equ 018h ; between 000h and 024h
|
|
y0 equ 01ch ; multiple of 4, between 014h and 038h
|
|
gridfill equ 080h ; 000h or 080h
|
|
backcol equ 002h ; grid and background color
|
|
|
|
org 400h
|
|
|
|
jmp selectgame
|
|
jmp irq
|
|
retr
|
|
nop
|
|
; jmp vsyncirq ; VSYNC-interrupt
|
|
jmp vsync
|
|
jmp start
|
|
jmp soundirq
|
|
|
|
vsync
|
|
clr f1
|
|
cpl f1
|
|
mov r1,#0a2h
|
|
movx a,@r1
|
|
mov r0,#03fh
|
|
jmp 0030h
|
|
|
|
change_bank
|
|
dis i
|
|
anl p1,#0feh ; change to bank 2
|
|
call startchkpages
|
|
orl p1,#003h ;
|
|
anl p1,#0fdh ; change to bank 1
|
|
call startchkpages
|
|
anl p1,#0fch ; change to bank 0
|
|
call startchkpages
|
|
orl p1,#003h ; change to bank 3
|
|
en i
|
|
ret
|
|
|
|
|
|
start
|
|
startchkpages
|
|
mov r1,#iram_mempage
|
|
mov a,@r1
|
|
xrl a,#4
|
|
jnz chkpage5
|
|
call initpage4
|
|
ret
|
|
chkpage5
|
|
mov a,@r1
|
|
xrl a,#5
|
|
jnz chkpage6
|
|
call initpage5
|
|
ret
|
|
chkpage6
|
|
mov a,@r1
|
|
xrl a,#6
|
|
jnz chkpage7
|
|
call initpage6
|
|
ret
|
|
chkpage7
|
|
mov a,@r1
|
|
xrl a,#7
|
|
jnz chkpage8
|
|
call initpage7
|
|
ret
|
|
chkpage8
|
|
mov a,@r1
|
|
xrl a,#8
|
|
jnz chkpage9
|
|
call initpage8
|
|
ret
|
|
chkpage9
|
|
mov a,@r1
|
|
xrl a,#9
|
|
jnz chkpage10
|
|
call initpage9
|
|
ret
|
|
chkpage10
|
|
mov a,@r1
|
|
xrl a,#10
|
|
jnz chkpage11
|
|
call initpage10
|
|
ret
|
|
chkpage11
|
|
ret
|
|
|
|
initend
|
|
|
|
; --> color data (used for "initchars" and "initpage")
|
|
|
|
mov r0,#032h ; set text colors
|
|
mov @r0,#001h
|
|
inc r0
|
|
mov @r0,#023h
|
|
inc r0
|
|
mov @r0,#045h
|
|
inc r0
|
|
mov @r0,#067h
|
|
ret
|
|
|
|
|
|
calcchar
|
|
; call calcY
|
|
mov a,r5
|
|
rl a
|
|
rl a
|
|
mov r5,a
|
|
; mov a,r4
|
|
; rr a
|
|
; rr a
|
|
; cpl a
|
|
; inc a
|
|
; add a,r5
|
|
ret
|
|
putchar
|
|
call calcchar
|
|
movx @r1,a
|
|
ret
|
|
|
|
|
|
align 256
|
|
initpage4
|
|
call extramenable
|
|
mov r1,#0
|
|
mov r7,#pagedata4 & 0ffh
|
|
intpage4
|
|
mov a,r7
|
|
movp a,@a
|
|
mov r5,a
|
|
call putchar
|
|
inc r7
|
|
inc r1
|
|
mov a,r1
|
|
cpl a
|
|
jb7 intpage4
|
|
jmp initend
|
|
|
|
align 128
|
|
|
|
pagedata4:
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 000h, 006h, 00Fh
|
|
db 00Eh, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 001h, 001h, 00Fh
|
|
db 00Eh, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 001h, 004h, 01Bh
|
|
db 016h, 022h, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 001h, 009h, 028h
|
|
db 01Ch, 007h, 004h, 000h, 000h, 027h, 025h, 016h
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 002h, 000h, 00Fh
|
|
db 00Eh, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 002h, 004h, 00Fh
|
|
db 00Eh, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 002h, 008h, 01Bh
|
|
db 016h, 022h, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 003h, 000h, 01Bh
|
|
db 016h, 022h, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch
|
|
|
|
align 128
|
|
initpage5
|
|
call extramenable
|
|
mov r1,#0
|
|
mov r7,#pagedata5 & 0ffh
|
|
intpage5
|
|
mov a,r7
|
|
movp a,@a
|
|
mov r5,a
|
|
call putchar
|
|
inc r7
|
|
inc r1
|
|
mov a,r1
|
|
cpl a
|
|
jb7 intpage5
|
|
jmp initend
|
|
|
|
align 128
|
|
|
|
pagedata5:
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 003h, 001h, 028h
|
|
db 01Ch, 007h, 004h, 000h, 000h, 027h, 025h, 016h
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 003h, 005h, 00Fh
|
|
db 00Eh, 028h, 01Bh, 016h, 022h, 027h, 025h, 016h
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 003h, 006h, 01Bh
|
|
db 016h, 022h, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 004h, 000h, 028h
|
|
db 01Ch, 007h, 004h, 000h, 000h, 027h, 025h, 016h
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 004h, 003h, 00Fh
|
|
db 00Eh, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 005h, 005h, 00Fh
|
|
db 00Eh, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 025h, 013h, 002h
|
|
db 001h, 028h, 01Bh, 016h, 022h, 027h, 025h, 016h
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 01Ah, 012h, 026h
|
|
db 017h, 02Dh, 028h, 020h, 014h, 014h, 020h, 023h
|
|
|
|
align 128
|
|
initpage6
|
|
call extramenable
|
|
mov r1,#0
|
|
mov r7,#pagedata6 & 0ffh
|
|
intpage6
|
|
mov a,r7
|
|
movp a,@a
|
|
mov r5,a
|
|
call putchar
|
|
inc r7
|
|
inc r1
|
|
mov a,r1
|
|
cpl a
|
|
jb7 intpage6
|
|
jmp initend
|
|
|
|
align 128
|
|
|
|
pagedata6:
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 026h, 017h, 014h
|
|
db 017h, 028h, 023h, 013h, 020h, 019h, 01Dh, 028h
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 00Fh, 00Eh, 020h
|
|
db 02Ch, 014h, 020h, 01Ch, 028h, 01Bh, 016h, 022h
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 014h, 015h, 014h
|
|
db 020h, 02Dh, 01Fh, 01Dh, 020h, 026h, 028h, 01Bh
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 024h, 00Fh, 009h
|
|
db 028h, 012h, 022h, 020h, 026h, 00Fh, 00Eh, 012h
|
|
db 00Ch, 026h, 017h, 01Ah, 028h, 024h, 00Fh, 003h
|
|
db 001h, 028h, 012h, 022h, 020h, 026h, 00Fh, 00Eh
|
|
db 00Ch, 026h, 017h, 015h, 019h, 012h, 023h, 020h
|
|
db 014h, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 020h, 026h, 017h
|
|
db 01Fh, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 020h, 026h, 017h
|
|
db 01Fh, 028h, 020h, 00Eh, 014h, 027h, 025h, 016h
|
|
|
|
align 128
|
|
initpage7
|
|
call extramenable
|
|
mov r1,#0
|
|
mov r7,#pagedata7 & 0ffh
|
|
intpage7
|
|
mov a,r7
|
|
movp a,@a
|
|
mov r5,a
|
|
call putchar
|
|
inc r7
|
|
inc r1
|
|
mov a,r1
|
|
cpl a
|
|
jb7 intpage7
|
|
jmp initend
|
|
|
|
align 128
|
|
|
|
pagedata7:
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 023h, 020h, 00Eh
|
|
db 023h, 015h, 00Eh, 020h, 014h, 017h, 013h, 027h
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 01Dh, 012h, 00Eh
|
|
db 016h, 023h, 017h, 00Fh, 014h, 012h, 013h, 028h
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 01Eh, 01Ch, 028h
|
|
db 026h, 015h, 02Dh, 023h, 01Dh, 01Fh, 016h, 02Dh
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 01Fh, 023h, 028h
|
|
db 00Fh, 020h, 023h, 026h, 020h, 02Dh, 027h, 025h
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 01Fh, 023h, 028h
|
|
db 00Fh, 020h, 023h, 024h, 016h, 01Ah, 027h, 025h
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 01Fh, 014h, 020h
|
|
db 020h, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 01Fh, 014h, 020h
|
|
db 020h, 028h, 01Ah, 012h, 026h, 017h, 001h, 027h
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 01Fh, 014h, 020h
|
|
db 020h, 028h, 01Ah, 012h, 026h, 017h, 002h, 027h
|
|
|
|
align 128
|
|
initpage8
|
|
call extramenable
|
|
mov r1,#0
|
|
mov r7,#pagedata8 & 0ffh
|
|
intpage8
|
|
mov a,r7
|
|
movp a,@a
|
|
mov r5,a
|
|
call putchar
|
|
inc r7
|
|
inc r1
|
|
mov a,r1
|
|
cpl a
|
|
jb7 intpage8
|
|
jmp initend
|
|
|
|
align 128
|
|
|
|
pagedata8:
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 026h, 013h, 013h
|
|
db 017h, 025h, 017h, 014h, 017h, 027h, 025h, 016h
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 00Fh, 00Eh, 020h
|
|
db 02Dh, 012h, 014h, 028h, 00Eh, 020h, 02Dh, 01Ah
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 00Fh, 017h, 02Dh
|
|
db 01Ch, 027h, 025h, 016h, 02Dh, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 00Fh, 017h, 02Dh
|
|
db 01Ch, 028h, 020h, 00Eh, 00Eh, 027h, 025h, 016h
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 00Fh, 00Fh, 00Fh
|
|
db 028h, 017h, 002h, 012h, 026h, 027h, 025h, 016h
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 00Fh, 015h, 021h
|
|
db 021h, 00Eh, 012h, 028h, 00Fh, 016h, 012h, 023h
|
|
db 00Ch, 02Dh, 012h, 011h, 028h, 013h, 017h, 015h
|
|
db 014h, 012h, 006h, 006h, 027h, 025h, 016h, 02Dh
|
|
db 00Ch, 02Dh, 017h, 013h, 019h, 012h, 026h, 020h
|
|
db 02Dh, 00Ch, 02Eh, 012h, 015h, 013h, 017h, 00Fh
|
|
|
|
align 128
|
|
initpage9
|
|
call extramenable
|
|
mov r1,#0
|
|
mov r7,#pagedata9 & 0ffh
|
|
intpage9
|
|
mov a,r7
|
|
movp a,@a
|
|
mov r5,a
|
|
call putchar
|
|
inc r7
|
|
inc r1
|
|
mov a,r1
|
|
cpl a
|
|
jb7 intpage9
|
|
jmp initend
|
|
|
|
align 128
|
|
|
|
pagedata9:
|
|
db 00Ch, 02Dh, 014h, 019h, 023h, 028h, 005h, 007h
|
|
db 027h, 025h, 016h, 02Dh, 00Ch, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 02Dh, 014h, 019h, 023h, 028h, 023h, 01Dh
|
|
db 012h, 021h, 028h, 026h, 020h, 022h, 016h, 026h
|
|
db 00Ch, 02Dh, 014h, 019h, 023h, 028h, 012h, 022h
|
|
db 017h, 01Eh, 012h, 014h, 028h, 00Fh, 00Eh, 027h
|
|
db 00Ch, 02Dh, 014h, 019h, 023h, 028h, 016h, 02Dh
|
|
db 014h, 012h, 013h, 00Fh, 017h, 00Eh, 027h, 025h
|
|
db 00Ch, 02Dh, 014h, 019h, 023h, 028h, 026h, 017h
|
|
db 014h, 017h, 028h, 023h, 013h, 020h, 019h, 01Dh
|
|
db 00Ch, 02Dh, 014h, 019h, 023h, 028h, 019h, 01Dh
|
|
db 020h, 013h, 01Fh, 028h, 01Dh, 015h, 02Dh, 014h
|
|
db 00Ch, 02Dh, 014h, 019h, 023h, 028h, 014h, 015h
|
|
db 014h, 020h, 02Dh, 01Fh, 01Dh, 020h, 026h, 027h
|
|
db 00Ch, 017h, 002h, 028h, 000h, 006h, 027h, 025h
|
|
db 016h, 02Dh, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch
|
|
|
|
align 128
|
|
initpage10
|
|
call extramenable
|
|
mov r1,#0
|
|
mov r7,#pagedata10 & 0ffh
|
|
intpage10
|
|
mov a,r7
|
|
movp a,@a
|
|
mov r5,a
|
|
call putchar
|
|
inc r7
|
|
inc r1
|
|
mov a,r1
|
|
cpl a
|
|
jb7 intpage10
|
|
jmp initend
|
|
|
|
align 128
|
|
|
|
pagedata10:
|
|
db 00Ch, 017h, 002h, 028h, 000h, 007h, 027h, 025h
|
|
db 016h, 02Dh, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 017h, 002h, 028h, 001h, 000h, 027h, 025h
|
|
db 016h, 02Dh, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 017h, 002h, 028h, 001h, 001h, 027h, 025h
|
|
db 016h, 02Dh, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 017h, 002h, 028h, 001h, 004h, 027h, 025h
|
|
db 016h, 02Dh, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 017h, 002h, 028h, 001h, 006h, 027h, 025h
|
|
db 016h, 02Dh, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 017h, 002h, 028h, 001h, 009h, 027h, 025h
|
|
db 016h, 02Dh, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 017h, 002h, 028h, 002h, 001h, 027h, 025h
|
|
db 016h, 02Dh, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch
|
|
db 00Ch, 017h, 002h, 028h, 003h, 000h, 027h, 025h
|
|
db 016h, 02Dh, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch, 00Ch
|