mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-02-19 06:30:43 +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
293 lines
6.1 KiB
NASM
293 lines
6.1 KiB
NASM
_AXLIT MAC
|
|
IF #=]1
|
|
LDX ]1/$100
|
|
LDA ]1
|
|
ELSE
|
|
LDX ]1+1
|
|
LDA ]1
|
|
FIN
|
|
<<<
|
|
_AXSTR MAC
|
|
IF "=]1 ;...... IF ]1 IS A STRING
|
|
JMP __STRCNT2
|
|
]STRTMP STR ]1
|
|
__STRCNT2
|
|
LDX #>]STRTMP
|
|
LDA #<]STRTMP
|
|
ELSE
|
|
_AXLIT ]1
|
|
FIN
|
|
<<<
|
|
_ISLIT MAC
|
|
IF #=]1
|
|
LDA ]1/$100
|
|
PHA
|
|
LDA ]1
|
|
PHA
|
|
ELSE
|
|
LDA ]1+1
|
|
PHA
|
|
LDA ]1
|
|
PHA
|
|
FIN
|
|
<<<
|
|
_ISSTR MAC
|
|
IF "=]1 ;...... IF ]1 IS A STRING
|
|
JMP __STRCONT
|
|
]STRTMP STR ]1
|
|
__STRCONT
|
|
LDA #>]STRTMP
|
|
PHA
|
|
LDA #<]STRTMP
|
|
PHA
|
|
ELSE
|
|
_ISLIT ]1
|
|
FIN
|
|
<<<
|
|
_MLIT MAC
|
|
IF #=]1
|
|
LDA ]1/$100
|
|
STA ]2+1
|
|
LDA ]1
|
|
STA ]2
|
|
ELSE
|
|
LDA ]1+1
|
|
STA ]2+1
|
|
LDA ]1
|
|
STA ]2
|
|
FIN
|
|
<<<
|
|
_MSTR MAC
|
|
IF "=]1 ;...... IF ]1 IS A STRING
|
|
JMP __STRCONT
|
|
]STRTMP STR ]1
|
|
__STRCONT
|
|
LDA #>]STRTMP
|
|
STA ]2+1
|
|
LDA #<]STRTMP
|
|
STA ]2
|
|
ELSE
|
|
_ISLIT ]1
|
|
FIN
|
|
<<<
|
|
_PRN MAC
|
|
STY SCRATCH
|
|
JSR __P
|
|
ASC ]1
|
|
HEX 00
|
|
LDY SCRATCH
|
|
<<<
|
|
_WAIT MAC
|
|
]LP LDA ]KYBD
|
|
BPL ]LP
|
|
AND #$7F
|
|
STA ]STROBE
|
|
<<<
|
|
BCCL MAC
|
|
BCC ]TOBCC
|
|
]NOBCC JMP ]EXIT
|
|
]TOBCC JMP ]1
|
|
]EXIT
|
|
<<<
|
|
BCSL MAC
|
|
BCS ]TOBCS
|
|
]NOBCS JMP ]EXIT
|
|
]TOBCS JMP ]1
|
|
]EXIT
|
|
<<<
|
|
BEEP MAC
|
|
STY SCRATCH
|
|
LDX ]1
|
|
]LP1
|
|
JSR BELL
|
|
DEX
|
|
CPX #0
|
|
BNE ]LP1
|
|
LDY SCRATCH
|
|
<<<
|
|
BEQL MAC
|
|
BEQ ]TOBEQ
|
|
]NOBEQ JMP ]EXIT
|
|
]TOBEQ JMP ]1
|
|
]EXIT
|
|
<<<
|
|
BNEL MAC
|
|
BNE ]TOBNE
|
|
]NOBNE JMP ]EXIT
|
|
]TOBNE JMP ]1
|
|
]EXIT
|
|
<<<
|
|
BMIL MAC
|
|
BMI ]TOBMI
|
|
]NOBMI JMP ]EXIT
|
|
]TOBMI JMP ]1
|
|
]EXIT
|
|
<<<
|
|
BPLL MAC
|
|
BPL ]TOBPL
|
|
]NOBPL JMP ]EXIT
|
|
]TOBPL JMP ]1
|
|
]EXIT
|
|
<<<
|
|
BVCL MAC
|
|
BVC ]TOBVC
|
|
]NOBVC JMP ]EXIT
|
|
]TOBVC JMP ]1
|
|
]EXIT
|
|
<<<
|
|
BVSL MAC
|
|
BVS ]TOBVS
|
|
]NOBVS JMP ]EXIT
|
|
]TOBVS JMP ]1
|
|
]EXIT
|
|
<<<
|
|
CBRA MAC
|
|
JMP ]1
|
|
<<<
|
|
CPHX MAC
|
|
STA SCRATCH
|
|
TXA
|
|
PHA
|
|
LDA SCRATCH
|
|
<<<
|
|
CPHY MAC
|
|
STA SCRATCH
|
|
TYA
|
|
PHA
|
|
LDA SCRATCH
|
|
<<<
|
|
CPLX MAC
|
|
STA SCRATCH
|
|
PLA
|
|
TAX
|
|
LDA SCRATCH
|
|
<<<
|
|
CPLY MAC
|
|
STA SCRATCH
|
|
PLA
|
|
TAY
|
|
LDA SCRATCH
|
|
<<<
|
|
CTXY MAC
|
|
STA SCRATCH
|
|
TXA
|
|
TAY
|
|
LDA SCRATCH
|
|
<<<
|
|
CTYX MAC
|
|
STA SCRATCH
|
|
TYA
|
|
TAX
|
|
LDA SCRATCH
|
|
<<<
|
|
CLRHI MAC
|
|
AND #$F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
<<<
|
|
DELAY MAC
|
|
STY SCRATCH
|
|
LDY ]1
|
|
JSR DELAYMS
|
|
LDY SCRATCH
|
|
<<<
|
|
DUMP MAC
|
|
_AXLIT ]1
|
|
STY SCRATCH
|
|
LDY ]2
|
|
JSR __DUMP
|
|
LDY SCRATCH
|
|
<<<
|
|
GBIT MAC
|
|
LDA ]1
|
|
AND ]2
|
|
BEQ ]ZERO
|
|
LDA #1
|
|
JMP ]EXIT
|
|
]ZERO LDA #0
|
|
]EXIT <<<
|
|
ERRH MAC
|
|
STY SCRATCH
|
|
_AXLIT
|
|
JSR __ERRH
|
|
LDY SCRATCH
|
|
<<<
|
|
GRET MAC
|
|
STY SCRATCH
|
|
_AXLIT ]1
|
|
STA ADDR1
|
|
STX ADDR1+1
|
|
LDY #255
|
|
]LP
|
|
INY
|
|
LDA RETURN,Y
|
|
STA (ADDR1),Y ; ++<6C2B> COUNTER OFFSET
|
|
CPY RETLEN
|
|
BNE ]LP
|
|
LDY SCRATCH
|
|
<<<
|
|
MFILL MAC
|
|
STY SCRATCH
|
|
_MLIT ]1;WPAR1
|
|
_MLIT ]2;WPAR2
|
|
LDA ]3
|
|
STA BPAR1
|
|
JSR MEMFILL
|
|
LDY SCRATCH
|
|
MOV MAC
|
|
IF A=]1
|
|
IF X=]2
|
|
TAX
|
|
ELSE
|
|
IF Y=]2
|
|
TAY
|
|
ELSE
|
|
STA ]2
|
|
FIN
|
|
FIN
|
|
FIN
|
|
IF $=]1
|
|
IF A=]2
|
|
LDA ]1
|
|
ELSE
|
|
IF X=]2
|
|
LDX ]1
|
|
ELSE
|
|
IF Y=]2
|
|
LDY ]1
|
|
ELSE
|
|
STY SCRATCH
|
|
LDY ]1
|
|
STY ]2
|
|
LDY SCRATCH
|
|
FIN
|
|
FIN
|
|
FIN
|
|
FIN
|
|
]EXIT <<<
|
|
MOVB MAC
|
|
STY SCRATCH
|
|
_MLIT ]1;WPAR1
|
|
_MLIT ]2;WPAR2
|
|
_MLIT ]3;WPAR3
|
|
JSR MEMMOVE
|
|
LDY SCRATCH
|
|
<<<
|
|
MSWAP MAC
|
|
STY SCRATCH
|
|
_MLIT ]2;WPAR2
|
|
_MLIT ]1;WPAR1
|
|
LDA ]3
|
|
STA BPAR1
|
|
JSR MEMSWAP
|
|
LDY SCRATCH
|
|
<<<
|
|
PEEK MAC
|
|
LDA ]1
|
|
<<<
|
|
POKE MAC
|
|
STA ]1
|
|
<<<
|