mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-01-10 06:29:47 +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
143 lines
2.2 KiB
NASM
143 lines
2.2 KiB
NASM
@GOTO MAC
|
|
JMP ]1
|
|
<<<
|
|
@GOSUB MAC
|
|
JSR ]1
|
|
<<<
|
|
@RETURN MAC
|
|
RTS
|
|
<<<
|
|
@END MAC
|
|
JMP REENTRY
|
|
<<<
|
|
@ONERR MAC
|
|
ERRH ]1
|
|
<<<
|
|
@PRINT MAC
|
|
PRN ]1
|
|
<<<
|
|
@INPUT MAC
|
|
INP
|
|
GRET ]1
|
|
<<<
|
|
@GET MAC
|
|
GKEY
|
|
STA RETURN
|
|
LDY #1
|
|
STA RETLEN
|
|
<<<
|
|
@HOME MAC
|
|
JSR $FC58
|
|
<<<
|
|
@HTAB MAC
|
|
SETCX ]1
|
|
<<<
|
|
@VTAB MAC
|
|
SETCY ]1
|
|
<<<
|
|
@TEXT MAC
|
|
LDA $C051
|
|
<<<
|
|
@LABEL MAC
|
|
]1
|
|
<<<
|
|
@DATA MAC
|
|
JSR REENTRY
|
|
HEX ]1
|
|
<<<
|
|
@POKE MAC
|
|
LDY #0
|
|
LDA ]1
|
|
STA ADDR1
|
|
LDA ]1/$100
|
|
STA ADDR1+1
|
|
LDA ]2
|
|
STA (ADDR1),Y
|
|
<<<
|
|
@PEEK MAC
|
|
LDA ]1
|
|
STA ADDR1
|
|
LDA ]1/$100
|
|
STA ADDR1+1
|
|
LDY #0
|
|
LDA (ADDR1),Y
|
|
STA RETURN
|
|
LDA #1
|
|
STA RETLEN
|
|
<<<
|
|
@CALL MAC
|
|
JSR ]1
|
|
<<<
|
|
@PDL MAC
|
|
PDL #0
|
|
<<<
|
|
@POS MAC
|
|
LDA $24
|
|
STA RETURN
|
|
LDY #1
|
|
STA RETURN
|
|
<<<
|
|
@INVERT MAC
|
|
LDA #$3F
|
|
STA $0032
|
|
<<<
|
|
@FLASH MAC
|
|
LDA #$7F
|
|
STA $0032
|
|
<<<
|
|
@NORMAL MAC
|
|
LDA #$FF
|
|
STA $0032
|
|
<<<
|
|
@STOP MAC
|
|
JMP REENTRY
|
|
<<<
|
|
@FOR MAC
|
|
FOR ]1;]2;]3;]4
|
|
<<<
|
|
@NEXT MAC
|
|
NEXT
|
|
<<<
|
|
@DIM1 MAC
|
|
DIM161 ]1;]2;]3;#0
|
|
<<<
|
|
@DIM2 MAC
|
|
DIM162 ]1;]2;]3;]4;#0
|
|
<<<
|
|
@LET MAC
|
|
<<<
|
|
@POP MAC
|
|
PLA
|
|
PLA
|
|
<<<
|
|
@IFGOTO MAC
|
|
IFJ ]1;]2;]3
|
|
<<<
|
|
@IFGSUB MAC
|
|
IFS ]1;]2;]3
|
|
<<<
|
|
@IFTHEN MAC
|
|
IFB ]1;]2;]3
|
|
<<<
|
|
@ENDIF MAC
|
|
ENDIFB
|
|
<<<
|
|
@GR MAC
|
|
<<<
|
|
@COLOR MAC
|
|
<<<
|
|
@PLOT MAC
|
|
<<<
|
|
@HLIN MAC
|
|
<<<
|
|
@VLIN MAC
|
|
<<<
|
|
@HGR MAC
|
|
<<<
|
|
@HGR2 MAC
|
|
<<<
|
|
@HPLOT MAC
|
|
<<<
|
|
@HCOLOR MAC
|
|
<<<
|