falso
/
z80
mirror of https://github.com/falsovsky/z80.git
1
0
Fork 0
Code Issues Releases Wiki Activity

bleh

This commit is contained in:
Pedro de Oliveira 2014-08-17 05:15:36 +01:00
parent c3e5398cb6
commit 9f92abab8f
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
starfield/main.asm
View File

@ -2,24 +2,23 @@
org $7530
; System variables
tv_flag equ $5c3c ; TV flags
last_k equ $5c08 ; Last pressed key
clr_screen equ $0daf ; ROM routine to clear the screen
tv_flag EQU $5c3c ; TV flags
last_k EQU $5c08 ; Last pressed key
clr_screen EQU $0daf ; ROM routine to clear the screen
; Video RAM
LINHA9 equ $4820
LINHA10 equ $4840
LINHA11 equ $4860
LINHA9 EQU $4820
LINHA10 EQU $4840
LINHA11 EQU $4860
; Star Structure
; X - 1 Byte
; Y - 1 Byte
; X - 1 Byte - $00 - $ff
; Y - 1 Byte - $00 - $bf
; Z - 1 Byte
; Color - 1 Byte
STAR_SIZE equ $4
MAX_STARS equ 10
STARS ds STAR_SIZE * MAX_STARS, 0
STAR_SIZE EQU $4
MAX_STARS EQU 10
STARS DS STAR_SIZE * MAX_STARS, 0
start
xor a ; a = 0
@ -37,6 +36,7 @@ start
pop bc ; Get BC out of the stack
ret ; Exit to BASIC
PROC
INITIALIZE_STARS
push bc
ld b, MAX_STARS
@ -54,7 +54,10 @@ INITIALIZE_STARS_LOOP
djnz INITIALIZE_STARS_LOOP
pop bc
ret
ENDP
PROC
INCLUDE "clear.asm"
ENDP
end start
END start