mirror of
https://github.com/cc65/cc65.git
synced 2024-12-23 04:30:10 +00:00
adding gotox.s gotoy.s wherex.s wherey.s
This commit is contained in:
parent
1497330cc0
commit
7bc3bff83f
@ -1,3 +1,7 @@
|
|||||||
|
;
|
||||||
|
; jede jede@oric.org 2017-02-25
|
||||||
|
;
|
||||||
|
|
||||||
.export _clrscr
|
.export _clrscr
|
||||||
|
|
||||||
.importzp sp
|
.importzp sp
|
||||||
@ -25,7 +29,7 @@
|
|||||||
; reset display position
|
; reset display position
|
||||||
lda #$01
|
lda #$01
|
||||||
sta SCRY
|
sta SCRY
|
||||||
lda #$02
|
lda #$00
|
||||||
sta SCRX
|
sta SCRX
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
16
libsrc/telestrat/gotox.s
Normal file
16
libsrc/telestrat/gotox.s
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
;
|
||||||
|
; jede jede@oric.org 2017-02-25
|
||||||
|
;
|
||||||
|
.export _gotox
|
||||||
|
|
||||||
|
.import popa
|
||||||
|
|
||||||
|
.importzp sp
|
||||||
|
|
||||||
|
.include "telestrat.inc"
|
||||||
|
|
||||||
|
|
||||||
|
.proc _gotox
|
||||||
|
sta SCRX
|
||||||
|
rts
|
||||||
|
.endproc
|
@ -1,3 +1,6 @@
|
|||||||
|
;
|
||||||
|
; jede jede@oric.org 2017-02-25
|
||||||
|
;
|
||||||
.export _gotoxy
|
.export _gotoxy
|
||||||
|
|
||||||
.import popa
|
.import popa
|
||||||
|
14
libsrc/telestrat/gotoy.s
Normal file
14
libsrc/telestrat/gotoy.s
Normal file
@ -0,0 +1,14 @@
|
|||||||
|
;
|
||||||
|
; jede jede@oric.org 2017-02-25
|
||||||
|
;
|
||||||
|
.export _gotoy
|
||||||
|
|
||||||
|
.importzp sp
|
||||||
|
|
||||||
|
.include "telestrat.inc"
|
||||||
|
|
||||||
|
|
||||||
|
.proc _gotoy
|
||||||
|
sta SCRY
|
||||||
|
rts
|
||||||
|
.endproc
|
15
libsrc/telestrat/wherex.s
Normal file
15
libsrc/telestrat/wherex.s
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
;
|
||||||
|
; jede jede@oric.org 2017-02-25
|
||||||
|
;
|
||||||
|
.export _wherex
|
||||||
|
|
||||||
|
.importzp sp
|
||||||
|
|
||||||
|
.include "telestrat.inc"
|
||||||
|
|
||||||
|
|
||||||
|
.proc _wherex
|
||||||
|
ldx #$00
|
||||||
|
lda SCRX
|
||||||
|
rts
|
||||||
|
.endproc
|
15
libsrc/telestrat/wherey.s
Normal file
15
libsrc/telestrat/wherey.s
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
;
|
||||||
|
; jede jede@oric.org 2017-02-25
|
||||||
|
;
|
||||||
|
.export _wherey
|
||||||
|
|
||||||
|
.importzp sp
|
||||||
|
|
||||||
|
.include "telestrat.inc"
|
||||||
|
|
||||||
|
|
||||||
|
.proc _wherey
|
||||||
|
ldx #$00
|
||||||
|
lda SCRY
|
||||||
|
rts
|
||||||
|
.endproc
|
Loading…
Reference in New Issue
Block a user