dos33fsprogs/space_bars/instructions.s
2019-06-13 21:21:20 -04:00

55 lines
999 B
ArmAsm

;================================
; Show some instructions
; return when a key is pressed
;================================
instructions:
;===================
; init screen
jsr TEXT
jsr HOME
bit KEYRESET
;===================
; init vars
lda #0
sta DRAW_PAGE
lda #<inst_text
sta OUTL
lda #>inst_text
sta OUTH
jsr move_and_print
jsr move_and_print
jsr move_and_print
jsr move_and_print
jsr move_and_print
jsr move_and_print
jsr move_and_print
jsr wait_until_keypressed ; tail call?
rts
; 0 1 2 3
; 0123456789012345678901234567890123456789
inst_text:
.byte 6, 0, "*** RASTERBARS IN SPACE ***",0
.byte 7, 3, "BY: VINCE 'DEATER' WEAVER",0
.byte 6, 5, "WWW.DEATER.NET/WEAVE/VMWPROD",0
.byte 0, 7,"=======================================",0
.byte 1,9, "ARROWS: LEFT/RIGHT -- A/Z: UP/DOWN",0
.byte 1,10, "SPACE: FIRE -- ,/.: ????",0
.byte 1,11, "ESC: QUITS",0
.asciiz "M: TOGGLE SOUND, CURRENTLY ON"