mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-06-07 10:29:28 +00:00
9f35f32f67
- massive overhaul of architecture - first round of optimizations - first draft of the technical manual for the entire library - reorganization of directory structure
40 lines
1.0 KiB
Plaintext
40 lines
1.0 KiB
Plaintext
*
|
|
*``````````````````````````````*
|
|
* TXTPUT (NATHAN RIGGS) *
|
|
* *
|
|
* INPUT: *
|
|
* *
|
|
* .A = FILL CHAR *
|
|
* .X = X POSITION *
|
|
* .Y = Y POSITION *
|
|
* *
|
|
* OUTPUT *
|
|
* *
|
|
* CHAR TO SCREEN AT X,Y *
|
|
* *
|
|
* DESTROY: AXYNVBDIZCMS *
|
|
* ^^^^^ ^^^ *
|
|
* *
|
|
* CYCLES: 29+ *
|
|
* SIZE: 30 BYTES *
|
|
*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*
|
|
*
|
|
]Y1 EQU VARTAB ; 1 BYTE
|
|
]X1 EQU VARTAB+1 ; 1 BYTE
|
|
]F EQU VARTAB+3 ; 1 BYTE
|
|
CYC ON
|
|
*
|
|
TXTPUT
|
|
*
|
|
STA ]F ; GET FILL CHAR
|
|
STY ]Y1 ; GET Y POS
|
|
STX ]X1 ; GET XPOS
|
|
*
|
|
LDA ]Y1
|
|
LDY ]X1
|
|
JSR GBCALC ; GET SCREEN ADDRESS
|
|
LDA ]F
|
|
STA (GBPSH),Y ; PUSH CHAR TO SCREEN ADDR
|
|
:EXIT
|
|
RTS
|