mirror of
https://github.com/cc65/cc65.git
synced 2024-06-15 02:29:32 +00:00
b5fef66f37
Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
43 lines
605 B
ArmAsm
43 lines
605 B
ArmAsm
;
|
|
; jede jede@oric.org 2017-01-22
|
|
|
|
.export _kbdclick1,_oups,_ping,_explode,_shoot,_zap
|
|
.include "telestrat.inc"
|
|
|
|
.proc _kbdclick1
|
|
ldx #<sound_bip_keyboard
|
|
ldy #>sound_bip_keyboard
|
|
BRK_TELEMON XSONPS
|
|
rts
|
|
sound_bip_keyboard:
|
|
.byte $1f,$00,$00,$00,$00,$00,$00,$3e,$10,$00,$00,$1f,$00,$00
|
|
.endproc
|
|
|
|
.proc _explode
|
|
BRK_TELEMON XEXPLO
|
|
rts
|
|
.endproc
|
|
|
|
.proc _oups
|
|
BRK_TELEMON XOUPS
|
|
rts
|
|
.endproc
|
|
|
|
.proc _ping
|
|
BRK_TELEMON XPING
|
|
rts
|
|
.endproc
|
|
|
|
.proc _shoot
|
|
BRK_TELEMON XSHOOT
|
|
rts
|
|
.endproc
|
|
|
|
.proc _zap
|
|
BRK_TELEMON XZAP
|
|
rts
|
|
.endproc
|
|
|
|
|
|
|