mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-08 16:07:14 +00:00
51 lines
870 B
ArmAsm
51 lines
870 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 wait_until_keypressed ; tail call?
|
||
|
|
|
||
|
|
rts
|
||
|
|
|
||
|
|
; 0 1 2 3
|
||
|
|
; 0123456789012345678901234567890123456789
|
||
|
|
inst_text:
|
||
|
|
|
||
|
|
.byte 6, 0, "*** RASTERBARS IN SPACE ***",0
|
||
|
|
|
||
|
|
.byte 8, 3, "BY VINCE 'DEATER' WEAVER",0
|
||
|
|
|
||
|
|
.asciiz "WWW.DEATER.NET/WEAVE/VMWPROD"
|
||
|
|
|
||
|
|
.asciiz "======================================="
|
||
|
|
|
||
|
|
.asciiz "ARROWS, WASD: STEER"
|
||
|
|
.asciiz "Z: ACCELERATE"
|
||
|
|
.asciiz "SPACE: FIRE"
|
||
|
|
.asciiz "ESC: QUITS"
|
||
|
|
|
||
|
|
.asciiz "M: TOGGLE SOUND, CURRENTLY ON"
|
||
|
|
|
||
|
|
|