46 lines
970 B
ArmAsm
46 lines
970 B
ArmAsm
; For Help press H
|
|
|
|
print_help:
|
|
bit KEYRESET ; clear keyboard
|
|
bit SET_TEXT
|
|
|
|
jsr normal_text
|
|
|
|
lda #' '|$80
|
|
sta clear_all_color+1
|
|
jsr clear_all
|
|
|
|
lda #<help_text
|
|
sta OUTL
|
|
lda #>help_text
|
|
sta OUTH
|
|
jsr move_and_print_list
|
|
|
|
jsr page_flip
|
|
|
|
wait_for_keypress:
|
|
lda KEYPRESS
|
|
bpl wait_for_keypress
|
|
bit KEYRESET
|
|
|
|
|
|
bit SET_GR
|
|
rts
|
|
|
|
help_text:
|
|
.byte 0, 5,"CONTROLS:",0
|
|
.byte 3, 6, "A OR <- : MOVE LEFT",0
|
|
.byte 3, 7, "D OR -> : MOVE RIGHT",0
|
|
.byte 3, 8, "Q : JUMP LEFT",0
|
|
.byte 3, 9, "E : JUMP RIGHT",0
|
|
.byte 3,10, "Z : FINE LEFT",0
|
|
.byte 3,11, "C : FINE RIGHT",0
|
|
.byte 3,12, "M : FIRE LASERGUN",0
|
|
.byte 3,13, "P : POGO",0
|
|
.byte 3,15, "SPACEBAR : ACTION/JUMP",0
|
|
.byte 3,16, "RETURN : STATUS BAR",0
|
|
.byte 3,17, "ESC : QUITS",0
|
|
.byte 3,18, "CONTROL-T : TOGGLE SOUND",0
|
|
.byte 3,19, "J : ENABLE JOYSTICK",0
|
|
.byte 255
|