home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / Gameboy / ROMs / SHIP.ASM < prev    next >
Encoding:
Assembly Source File  |  1997-10-23  |  13.7 KB  |  450 lines
  1. ;               DEDICATED TO GUMPIE YOKOI 1941-1997
  2. ;
  3. ;            Megamania Clone (Megamania TM Activision)
  4. ;                          Version 1.1a
  5. ;
  6. ;      Source, Routines, Music and Data (C) 1997 Michael Mika
  7. ;      and Genetic Fantasia.  Any use of said copyright for
  8. ;      commercial distribution is STRICTLY prohibited.  This
  9. ;      document is provided for internal use only.
  10. ;      Any violation of said copyright is punishable BY LAW.
  11. ;
  12. ;      A simple demonstration of sprites and tiles.  Just
  13. ;      a ship that can be moved left and right with limits
  14. ;      and the capability to fire.  Feel free to try and add
  15. ;      bad guys and collisions.
  16. ;
  17. ;      Mike (mmika@geneticfantasia.com)
  18.  
  19. ; V1.1  - Added fire count, Jeff F., 23-Oct-97
  20. ; V1.1a - Added alien ship, Mike M., 24-Oct-97
  21.  
  22. hirambase       =       0ff80h
  23. lorambase       =       0c0a0h
  24. gfxtiles        =       $8800
  25. sprtiles        =       $8000
  26. gameon          =       %10100111  ;turn game screen on
  27. #DEFINE LOBYTEVAR(X)  X = lorambase \lorambase  .set (lorambase + 1)
  28. #DEFINE HIBYTEVAR(X)  X = hirambase \hirambase  .set (hirambase + 1)
  29. #DEFINE LOWORDVAR(X)  X = lorambase \lorambase  .set (lorambase + 2)
  30. #DEFINE HIWORDVAR(X)  X = hirambase \hirambase  .set (hirambase + 2)
  31. ; Create variables in low-ram
  32.  
  33. LOBYTEVAR(xpos)                 ; player X-Position
  34. LOBYTEVAR(fpos)                 ; shot Y-Position
  35.  
  36. .org $0000              ; Needed to fool tasm..
  37.  
  38. .org $0040              ; VBlank IRQ
  39.  reti                   ; Do nothing
  40. .org $0048              ; LCDC Status IRQ
  41.  reti                   ; Do nothing
  42. .org $0050              ; Timer Owerflow
  43.  reti                   ; Do nothing
  44. .org $0058              ; Serial Transfear Completion
  45.  reti                   ; Do nothing
  46. .org $0060              ; Hmm, this is a wierd on
  47.                         ; Im not sure how this one works
  48.                         ; Transition from high to low
  49.                         ; of pin p10-p13
  50.                         ; I think Its a hardware thing
  51.  reti                   ; Do nothing :)
  52. ; Irqs done..
  53.  
  54. .org $0100
  55.  
  56. ; GameBoy Header with correct checksum
  57. .db $00,$C3,$50,$01,$CE,$ED,$66,$66,$CC,$0D,$00,$0B,$03,$73,$00,$83
  58. .db $00,$0C,$00,$0D,$00,$08,$11,$1F,$88,$89,$00,$0E,$DC,$CC,$6E,$E6
  59. .db $DD,$DD,$D9,$99,$BB,$BB,$67,$63,$6E,$0E,$EC,$CC,$DD,$DC,$99,$9F
  60. .db $BB,$B9,$33,$3E     ; Standard Nintendo DO NOT CHANGE...
  61.  
  62. .db "MEGAMANIA       "  ; Cart name   16bytes
  63. .db $00,$00,$00         ; Not used
  64. .db $00                 ; Cart type   ROM Only
  65. .db $00                 ; ROM Size    32k
  66. .db $00                 ; RAM Size     0k
  67. .db $fe,$ba             ; Maker ID    $bafe=Genetic Fantasia
  68. .db $01                 ; Version     =1
  69. .db $ce                 ; Complement check (Important)
  70. .db $37,$69             ; Cheksum, fix this if you are going to
  71.                         ; run this in VGB
  72.  
  73. start                   ; This is addr $0150
  74.  ld a,0
  75.  ldh ($40),a
  76.  ld     sp,$fff4        ; Put the stack where the GB wants it
  77.  ld a,0
  78.  ld ($ff0f),a
  79.  ld     a,%00000000     ; VBLANK IRQs ON
  80.  ldh    ($ff),a
  81.  ei
  82.  
  83.  call initdma
  84. reset
  85.  ld a,0
  86.  sub    a               ; Misc standard init things..
  87.  ldh    ($41),a         ; LCDC Status
  88.  ldh    ($42),a         ; Screen scroll Y=0
  89.  ldh    ($43),a         ; Screen scroll X=0
  90.  call   clean
  91.  ld     a,%00000111     ; LCD Controller = Off (No picture on screen)
  92.                         ; WindowBank = $9800 (Not used)
  93.                         ; Window = OFF
  94.                         ; BG Chr = $8000
  95.                         ; BG Bank= $9800
  96.                         ; OBJ    = 8x8
  97.                         ; OBJ    = Off
  98.                         ; BG     = On
  99.  ldh    ($40),a
  100.  
  101.  
  102.  call   nor_col         ; Normal palette
  103.  
  104.  call   waitvbl         ; Must be in VBL before turning the screen On.
  105.  ld     a,gameon     ; LCD Controller = On
  106.  ldh    ($40),a
  107.  call   maincopy
  108.  
  109. ;############ setup
  110.  ld a,115           ; Y position of ship
  111.  ld ($c000),a
  112.  ld (xpos),a        ; Set ship near center
  113.  ld ($c004),a       ; Y position of 2nd ship sprite
  114.  ld a,0             ; Set frame and other goodies in sprite pseudo base
  115.  ld ($c00b),a       ; DMA copies $c000 to $c0a0 to sprite oam
  116.  ld ($c002),a
  117.  ld ($c003),a
  118.  ld ($c006),a
  119.  ld a,%00100000
  120.  ld ($c007),a
  121.  ld a,$ff
  122.  ld (fpos),a        ; Fire position at $ff (Offscreen)
  123.  ld a,2
  124.  ld ($c00a),a
  125.  
  126.  call ScoreReset    ; Set score to 0000      <----- J.F. 23-Oct-97
  127.  ld de,$0           ;                        <-----
  128.  call ScoreShow     ; Display Score on screen<-----
  129.  
  130. mainloop
  131.  call getkeys           ; Check for Start Key
  132.  bit $1,a
  133.  call nz,left
  134.  bit $0,a
  135.  call nz,right
  136.  bit $4,a
  137.  call nz,fire
  138.  call waitvbl
  139. ; Draw ship!
  140.  ld a,(xpos)
  141.  ld ($c001),a
  142.  add a,4
  143.  ld ($c009),a
  144.  add a,4
  145.  ld ($c005),a
  146.  ld a,(fpos)  ; if FPOS <> $ff then subtract 3 positions until it does equal
  147.  cp $ff       ; $ff!
  148.  jr z,main2
  149.  dec a
  150.  dec a
  151.  dec a
  152.  ld (fpos),a
  153. main2
  154.  ld ($c008),a
  155.  
  156.  call alien         ; Call Alien routine     <----- M.M. 24-Oct-97
  157.  call $ff80      ; call sprite DMA routine to copy $c000-$c0a0 to $fe00
  158.  jp mainloop
  159.  
  160. right:
  161.  push af
  162.  ld a,(xpos)
  163.  sub 8*20-12
  164.  jr nc,right2
  165.  add a,8*20-12
  166.  inc a
  167.  inc a
  168.  ld (xpos),a
  169. right2
  170.  pop af
  171.  ret
  172.  
  173. left:
  174.  push af
  175.  ld a,(xpos)
  176.  sub 12
  177.  jr c,left2
  178.  add a,12
  179.  dec a
  180.  dec a
  181.  ld (xpos),a
  182. left2
  183.  pop af
  184.  ret
  185.  
  186. fire:
  187.  push af
  188.  ld a,(fpos)
  189.  cp $ff
  190.  jr nz,fire2
  191.  ld a,116
  192.  ld (fpos),a
  193. fire2
  194.  pop af
  195.  ret
  196.  
  197. maincopy
  198.  ld hl,mainspr
  199.  ld de,sprtiles
  200.  ld bc,2048
  201.  call move
  202.  ld hl,tiles
  203.  ld de,gfxtiles
  204.  ld bc,2048
  205.  call move
  206.  ld hl,screen
  207.  ld de,$9800
  208.  ld bc,1024
  209.  call move
  210.  ret
  211.  
  212. move
  213.  ldh     a,(41h)
  214.  and     2
  215.  jr      nz,move
  216.  ld     a,(hli)
  217.  ld     (de),a
  218.  inc    de
  219.  dec    bc
  220.  ld     a,b             ; Are we done (is bc=0000??)
  221.  or     c
  222.  jr     nz, move
  223.  ret
  224.  
  225. move_char
  226.  ld     hl,$8000
  227.  ld     d,$00           ; move 256 bytes
  228.  ld     e,$12           ; x2=512
  229.  jp     mchar_loop
  230.  ret
  231.  
  232. mchar_loop
  233.  ldh     a,(41h)
  234.  and     2
  235.  jr     nz,mchar_loop
  236.  ld     a,(bc)
  237.  ld     (hli),a
  238.  inc    bc
  239.  dec    d
  240.  jp     nz,mchar_loop
  241.  dec    e
  242.  jp     nz,mchar_loop
  243.  ret
  244.  
  245. move_text
  246.  ld     hl,$d800
  247.  ld     d,$00
  248.  ld     e,$04           ; 256*4=1024=32x32=One whole GB Screen
  249.  jp     mtext_loop
  250.  
  251. mtext_loop
  252.  ld     a,(bc)
  253.  ;and    $3f             ; Lowest 6 bits only *removed* NOT TEXT
  254.  ld     (hli),a
  255.  inc    bc
  256.  dec    d
  257.  jp     nz,mtext_loop
  258.  dec    e
  259.  jp     nz,mtext_loop
  260.  ret
  261.  
  262.  
  263. ; **** Main Sprite Animation Frames ****
  264. screen
  265. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  266. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  267. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  268. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  269. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  270. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  271. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  272. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  273. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  274. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  275. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  276. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  277. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  278. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  279. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  280. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  281. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  282. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  283. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  284. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  285. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  286. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  287. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  288. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  289. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  290. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  291. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  292. .byte 087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h,087h
  293. .byte 088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h
  294. .byte 088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h,088h
  295. .byte 086h,080h,081h,082h,083h,084h,085h,086h,086h,086h,086h,086h,086h,086h,086h,086h
  296. .byte 086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h
  297. .byte 086h,086h,086h,086h,086h,086h,086h,08Ah,08Bh,08Ah,08Bh,08Ah,08Bh,086h,086h,086h
  298. .byte 086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h
  299. .byte 086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h
  300. .byte 086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h,086h
  301. mainspr
  302. .byte 001h,001h,007h,007h,01Fh,01Fh,01Fh,01Fh,007h,007h,007h,007h,001h,001h,001h,001h
  303. .byte 031h,031h,033h,033h,037h,037h,03Fh,03Fh,039h,039h,031h,031h,030h,030h,030h,030h
  304. .byte 018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h
  305. .byte 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  306. .byte 000h,000h,000h,000h,00Fh,00Fh,07Fh,07Fh,07Fh,07Fh,000h,000h,06Eh,06Eh,06Eh,06Eh
  307. .byte 000h,000h,07Fh,07Fh,07Fh,07Fh,00Fh,00Fh,000h,000h,000h,000h,000h,000h,000h,000h
  308. .byte 000h,000h,000h,000h,0F0h,0F0h,0FEh,0FEh,0FEh,0FEh,000h,000h,0EEh,0EEh,0EEh,0EEh
  309. .byte 000h,000h,0FEh,0FEh,0FEh,0FEh,0F0h,0F0h,000h,000h,000h,000h,000h,000h,000h,000h
  310. tiles
  311. .byte 000h,0FFh,07Ch,0FFh,060h,0FFh,078h,0FFh,060h,0FFh,07Ch,0FFh,000h,0FFh,000h,0FFh
  312. .byte 000h,0FFh,0C3h,0FFh,0F3h,0FFh,0FFh,0FFh,0CFh,0FFh,0C3h,0FFh,000h,0FFh,000h,0FFh
  313. .byte 000h,0FFh,03Eh,0FFh,030h,0FFh,03Ch,0FFh,030h,0FFh,03Eh,0FFh,000h,0FFh,000h,0FFh
  314. .byte 000h,0FFh,078h,0FFh,066h,0FFh,066h,0FFh,078h,0FFh,066h,0FFh,000h,0FFh,000h,0FFh
  315. .byte 000h,0FFh,078h,0FFh,060h,0FFh,066h,0FFh,066h,0FFh,07Eh,0FFh,000h,0FFh,000h,0FFh
  316. .byte 000h,0FFh,0CCh,0FFh,0FCh,0FFh,030h,0FFh,030h,0FFh,030h,0FFh,000h,0FFh,000h,0FFh
  317. .byte 000h,0FFh,000h,0FFh,000h,0FFh,000h,0FFh,000h,0FFh,000h,0FFh,000h,0FFh,000h,0FFh
  318. .byte 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  319. .byte 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,0FFh,000h,0FFh,000h,0FFh
  320. .byte 000h,0FFh,000h,0FFh,000h,0FFh,000h,0FFh,000h,0FFh,000h,0FFh,000h,0FFh,000h,0FFh
  321. .byte 07Fh,0FFh,006h,0FFh,007h,0FFh,00Fh,0FFh,00Fh,0FFh,007h,0FFh,006h,0FFh,07Fh,0FFh
  322. .byte 000h,0FFh,018h,0FFh,03Ch,0FFh,0FEh,0FFh,0FEh,0FFh,03Ch,0FFh,018h,0FFh,000h,0FFh
  323.  
  324. digits                          ;<----- J.F. 23-Oct-97
  325.  .include "digits.asm"          ;<-----
  326.  
  327. ; **** Libraries ****
  328. ; Get Keypad Button Status
  329. ; From Pan's technical document.
  330. ; The following bits are set if pressed.
  331. ;    $80 - Start   $8 - Down
  332. ;    $40 - Select  $4 - Up
  333. ;    $20 - B       $2 - Left
  334. ;    $10 - A       $1 - Right
  335.  
  336. getkeys
  337.  ld     a,$20
  338.  ldh    ($00),a         ;turn on P15
  339.  ldh    a,($00)         ;delay
  340.  ldh    a,($00)
  341.  
  342.  cpl
  343.  and    $0f
  344.  swap   a
  345.  ld     b,a
  346.  
  347.  ld     a,$10
  348.  ldh    ($00),a         ;turn on P14
  349.  ldh    a,($00)         ;delay
  350.  ldh    a,($00)
  351.  ldh    a,($00)
  352.  ldh    a,($00)
  353.  ldh    a,($00)
  354.  ldh    a,($00)
  355.  
  356.  cpl
  357.  and    $0f
  358.  or     b
  359.  swap   a
  360.  ret
  361.  
  362. nor_col                 ; Sets the colors to normal palette
  363.  ld     a,%10010011     ; grey 3=11 (Black)
  364.                         ; grey 2=10 (Dark grey)
  365.                         ; grey 1=01 (Ligth grey)
  366.                         ; grey 0=00 (Transparent)
  367.  ldh    ($47),a
  368.  ld     a,%01001011     ; grey 3=11 (Black)
  369.  
  370.  ldh    ($48),a         ; 48,49 are sprite palettes set same as background
  371.  ld     a,$00000000
  372.  ldh    ($49),a
  373.  ret
  374.  
  375. initdma                 ; Transfer DMA routine to RAM
  376.  ld     de,$ff80
  377.  ld     hl,dmacode
  378.  ld     bc,dmaend-dmacode
  379.  call   move
  380.  ret
  381.  
  382. dmacode                 ; Transfer sprite data from reg A pos. using DMA
  383.  di
  384.  push af
  385.  ld     a,$c0
  386.  ldh    ($46),a         ; Start DMA
  387.  ld     a,$28           ; Wait for 160ns
  388. dma_wait
  389.  dec    a
  390.  jr     nz,dma_wait
  391.  pop af
  392.  
  393.  ei
  394.  ret
  395. dmaend
  396.  
  397. waitvbl                 ; Wait for Vertical blank
  398.  push af
  399.  push bc
  400.  push de
  401.  push hl
  402.  ldh    a,($40)         ; LCD screen on??
  403.  add    a,a
  404.  jr     nc,wvb
  405. notyet
  406.  ldh    a,($44)         ; $ff44=LCDC Y-Pos
  407.  cp     $98             ; $98 and bigger = in VBL
  408.  jr     nz,notyet
  409. wvb
  410.  pop hl
  411.  pop de
  412.  pop bc
  413.  pop af
  414.  ret
  415.  
  416. spr_cls                 ; Clear Sprites
  417.  ld l,0
  418.  ld h,$c0
  419. spclear
  420.  ld a,$ff
  421.  ld (hl),a
  422.  inc l
  423.  ld a,l
  424.  cp $a0
  425.  jp nz,spclear
  426.  ret
  427.  
  428.  
  429. clean
  430.  ld     a,%00000000     ; VBLANK IRQs ON
  431.  ldh    ($ff),a
  432.  call spr_cls
  433.  ld     a,%00000011     ; LCD Controller = Off (No picture on screen)
  434.  ldh    ($40),a
  435.  ld a,0
  436.  ldh ($43),a
  437.  ldh ($42),a
  438.  call $ff80
  439.  call waitvbl
  440.  ret
  441.  
  442. ; Include score library
  443.  .include "score.asm"     ;<----- J.F. 23-Oct-97
  444. ; Include alien library
  445.  .include "alien.asm"     ;<----- M.M. 24-Oct-97
  446.  
  447. .block $008000-$          ; pad rest of rom with zeros
  448. .end
  449.  
  450.