mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-02-18 15:30:36 +00:00
9b12b6fd9b
- getting ready for major changes for 0.6.0. - be sure to download the 0.5.0 release to ensure proper functionality, as these rountines will not work together in the SRC or BIN folder during the transition - Beginning to significantly alter documentation
177 lines
3.7 KiB
NASM
177 lines
3.7 KiB
NASM
PRN MAC
|
|
IF ",]1
|
|
JSR XPRINT ; SPECIAL PRINT
|
|
ASC ]1 ; PUT STRING HERE
|
|
HEX 00 ; STRING TERMINATE
|
|
ELSE ; ELSE, PARAM IS
|
|
; MEMORY LOCATION
|
|
_MLIT ]1
|
|
JSR DPRINT
|
|
FIN
|
|
<<<
|
|
SPRN MAC
|
|
_AXLIT ]1
|
|
JSR PRNSTR
|
|
<<<
|
|
INP MAC
|
|
JSR SINPUT
|
|
<<<
|
|
GKEY MAC
|
|
JSR GETKEY
|
|
LDY #0
|
|
STY STROBE
|
|
<<<
|
|
SCPOS MAC
|
|
LDX ]1
|
|
STX CURSH
|
|
LDX ]2
|
|
STX CURSV
|
|
JSR VTAB
|
|
<<<
|
|
SETCX MAC
|
|
LDX ]1
|
|
STX CURSH
|
|
JSR VTAB
|
|
<<<
|
|
SETCY MAC
|
|
LDY ]1
|
|
STY CURSV
|
|
JSR VTAB
|
|
<<<
|
|
CURF MAC
|
|
LDA ]1
|
|
CLC ; POS
|
|
ADC CURSH
|
|
STA CURSH
|
|
JSR VTAB
|
|
<<<
|
|
CURB MAC
|
|
LDA CURSH
|
|
SEC
|
|
SBC ]1
|
|
STA CURSH
|
|
JSR VTAB
|
|
<<<
|
|
CURU MAC
|
|
LDA CURSV
|
|
SEC
|
|
SBC ]1
|
|
STA CURSV
|
|
JSR VTAB
|
|
<<<
|
|
CURD MAC
|
|
LDA CURSV
|
|
CLC
|
|
ADC ]1
|
|
STA CURSV
|
|
JSR VTAB
|
|
<<<
|
|
RCPOS MAC
|
|
LDY ]1
|
|
LDA ]2
|
|
JSR GBCALC
|
|
LDA (GBPSH),Y
|
|
<<<
|
|
PDL MAC
|
|
LDX ]1
|
|
JSR PREAD
|
|
<<<
|
|
PBX MAC
|
|
LDX #1
|
|
LDA ]1
|
|
BMI EXIT
|
|
LDX #0
|
|
EXIT
|
|
<<<
|
|
TVLIN MAC
|
|
LDA ]1
|
|
STA WPAR2
|
|
LDA ]2
|
|
STA WPAR2+1
|
|
LDA ]3
|
|
STA WPAR1
|
|
LDA ]4
|
|
STA BPAR1
|
|
JSR TVLINE
|
|
<<<
|
|
THLIN MAC
|
|
LDA ]1
|
|
STA WPAR1
|
|
LDA ]2
|
|
STA WPAR1+1
|
|
LDA ]3
|
|
STA BPAR1
|
|
LDA ]4
|
|
STA BPAR2
|
|
JSR THLINE
|
|
<<<
|
|
TRECF MAC
|
|
LDA ]1
|
|
STA WPAR1
|
|
LDA ]2
|
|
STA WPAR2
|
|
LDA ]3
|
|
STA WPAR1+1
|
|
LDA ]4
|
|
STA WPAR2+1
|
|
LDA ]5
|
|
STA BPAR1
|
|
JSR TRECTF
|
|
<<<
|
|
TPUT MAC
|
|
LDX ]1
|
|
LDY ]2
|
|
LDA ]3
|
|
JSR TXTPUT
|
|
<<<
|
|
DIE80 MAC
|
|
LDA #21
|
|
JSR COUT
|
|
<<<
|
|
COL80 MAC
|
|
LDA #18
|
|
JSR COUT
|
|
<<<
|
|
COL40 MAC
|
|
LDA #17
|
|
JSR COUT
|
|
<<<
|
|
MTXT0 MAC
|
|
LDA #24
|
|
JSR COUT
|
|
<<<
|
|
MTXT1 MAC
|
|
LDA #27
|
|
JSR COUT
|
|
<<<
|
|
WAIT MAC
|
|
]WTLP LDA KYBD
|
|
BPL ]WTLP
|
|
AND #$7F
|
|
STA STROBE
|
|
<<<
|
|
TLINE MAC
|
|
LDA ]1
|
|
STA WPAR1
|
|
LDA ]2
|
|
STA WPAR1+1
|
|
LDA ]3
|
|
STA WPAR2
|
|
LDA ]4
|
|
STA WPAR2+1
|
|
LDA ]5
|
|
STA BPAR1
|
|
JSR TBLINE
|
|
<<<
|
|
TCIRC MAC
|
|
LDA ]1
|
|
STA WPAR1
|
|
LDA ]2
|
|
STA WPAR2
|
|
LDA ]3
|
|
STA BPAR1
|
|
LDA ]4
|
|
STA BPAR2
|
|
JSR TCIRCLE
|
|
<<<
|