mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
b1238af49d
this will probably upset people
55 lines
999 B
ArmAsm
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"
|
|
|
|
|