mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-12-03 18:49:28 +00:00
79 lines
1.4 KiB
Plaintext
79 lines
1.4 KiB
Plaintext
|
ADD16 MAC
|
||
|
|
_ISLIT ]1
|
||
|
|
_ISLIT ]2
|
||
|
|
JSR ADDIT16
|
||
|
|
<<<
|
||
|
|
SUB16 MAC
|
||
|
|
_ISLIT ]1
|
||
|
|
_ISLIT ]2
|
||
|
|
JSR SUBT16
|
||
|
|
<<<
|
||
|
|
MUL16 MAC
|
||
|
|
_ISLIT ]1
|
||
|
|
_ISLIT ]2
|
||
|
|
JSR MULT16
|
||
|
|
<<<
|
||
|
|
DIV16 MAC
|
||
|
|
_ISLIT ]1
|
||
|
|
_ISLIT ]2
|
||
|
|
IF S,]3 ; SIGNED
|
||
|
|
JSR SDIVD16
|
||
|
|
ELSE
|
||
|
|
JSR UDIVD16 ; UNSIGNED
|
||
|
|
FIN
|
||
|
|
<<<
|
||
|
|
REM16 MAC
|
||
|
|
_ISLIT ]1
|
||
|
|
_ISLIT ]2
|
||
|
|
IF S,]3 ; SIGNED
|
||
|
|
JSR SREMD16
|
||
|
|
ELSE
|
||
|
|
JSR UREMD16 ; UNSIGNED
|
||
|
|
FIN
|
||
|
|
<<<
|
||
|
|
RNDB MAC
|
||
|
|
LDA ]1 ; LOW
|
||
|
|
PHA
|
||
|
|
LDA ]2 ; HIGH
|
||
|
|
PHA
|
||
|
|
JSR RANDB
|
||
|
|
<<<
|
||
|
|
CMP16 MAC
|
||
|
|
_ISLIT ]1
|
||
|
|
_ISLIT ]2
|
||
|
|
JSR COMP16
|
||
|
|
<<<
|
||
|
|
MUL8 MAC
|
||
|
|
LDA ]1
|
||
|
|
PHA
|
||
|
|
LDA ]2
|
||
|
|
PHA
|
||
|
|
JSR MULT8
|
||
|
|
<<<
|
||
|
|
DIV8 MAC
|
||
|
|
LDA ]1
|
||
|
|
PHA
|
||
|
|
LDA ]2
|
||
|
|
PHA
|
||
|
|
JSR DIVD8
|
||
|
|
<<<
|
||
|
|
RND16 MAC
|
||
|
|
JSR RAND16
|
||
|
|
<<<
|
||
|
|
FPADD MAC
|
||
|
|
LDX #]1
|
||
|
|
LDY #>]1
|
||
|
|
JSR MOVFM
|
||
|
|
LDA #]2
|
||
|
|
LDY #>]2
|
||
|
|
JSR CONUPK
|
||
|
|
JSR NORM
|
||
|
|
LDA $9D
|
||
|
|
JSR FADDT
|
||
|
|
LDX #RETURN
|
||
|
|
LDY #>RETURN
|
||
|
|
JSR MOVMF
|
||
|
|
LDA #6
|
||
|
|
STA RETLEN
|
||
|
|
<<<
|