mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-02-15 10:31:35 +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
176 lines
4.0 KiB
NASM
176 lines
4.0 KiB
NASM
]RIGHT DS 1
|
|
]LEFT DS 1
|
|
]LENGTH DS 1
|
|
]A DS 1
|
|
]X DS 1
|
|
]Y DS 1
|
|
]C DS 1
|
|
]Z DS 1
|
|
]N DS 1
|
|
]O DS 1
|
|
]HEXTAB ASC "0123456789ABCDEF"
|
|
]COUT EQU $FDF0
|
|
]KYBD EQU $C000
|
|
]STROBE EQU $C010
|
|
__GETRET
|
|
STA ADDR1
|
|
STX ADDR1+1
|
|
LDY #255
|
|
:LP
|
|
INY
|
|
LDA RETURN,Y
|
|
STA (ADDR1),Y ; COUNTER OFFSET
|
|
CPY RETLEN
|
|
BNE :LP
|
|
RTS
|
|
__SETPARM
|
|
STA ADDR1
|
|
STX ADDR1+1
|
|
STY PARLEN
|
|
LDY #255
|
|
:LP
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA PARAM,Y ; OFFSET BY COUNTER
|
|
CPY PARLEN
|
|
BNE :LP
|
|
RTS
|
|
__CLRHI
|
|
AND #$F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
RTS
|
|
__DUMP
|
|
STY ]LENGTH
|
|
STA ADDR1
|
|
STX ADDR1+1
|
|
LDA #$8D
|
|
JSR ]COUT
|
|
LDA ADDR1+1
|
|
JSR __CLRHI
|
|
TAX
|
|
LDA ]HEXTAB,X
|
|
JSR ]COUT
|
|
LDA ADDR1+1
|
|
AND #$0F
|
|
TAX
|
|
LDA ]HEXTAB,X
|
|
JSR ]COUT
|
|
LDA ADDR1
|
|
JSR __CLRHI
|
|
TAX
|
|
LDA ]HEXTAB,X
|
|
JSR ]COUT
|
|
LDA ADDR1
|
|
AND #$0F
|
|
TAX
|
|
LDA ]HEXTAB,X
|
|
JSR ]COUT
|
|
LDA #":" ;
|
|
JSR ]COUT
|
|
LDA #" "
|
|
JSR ]COUT
|
|
LDY #0
|
|
:LP
|
|
LDA (ADDR1),Y
|
|
JSR __CLRHI ; AT COUNTER OFFSET
|
|
STA ]LEFT
|
|
LDA (ADDR1),Y
|
|
AND #$0F
|
|
STA ]RIGHT
|
|
LDX ]LEFT
|
|
LDA ]HEXTAB,X
|
|
JSR ]COUT
|
|
LDX ]RIGHT
|
|
LDA ]HEXTAB,X
|
|
JSR ]COUT
|
|
LDA #160
|
|
JSR ]COUT
|
|
INY
|
|
CPY ]LENGTH
|
|
BNE :LP
|
|
RTS
|
|
__P
|
|
PLA
|
|
STA ADDR1
|
|
PLA
|
|
STA ADDR1+1
|
|
LDY #1
|
|
:LP LDA (ADDR1),Y
|
|
BEQ :DONE
|
|
JSR ]COUT
|
|
INY
|
|
BNE :LP
|
|
:DONE CLC
|
|
TYA
|
|
ADC ADDR1
|
|
STA ADDR1
|
|
LDA ADDR1+1
|
|
ADC #0
|
|
PHA ; IF NEEDED
|
|
LDA ADDR1
|
|
PHA
|
|
RTS
|
|
__W
|
|
:LP LDA ]KYBD
|
|
BPL :LP
|
|
AND #$7F
|
|
STA ]STROBE
|
|
RTS
|
|
__RSAV
|
|
STA ]A
|
|
STX ]X
|
|
STY ]Y
|
|
:C BCC :C0
|
|
BCS :C1
|
|
:Z BEQ :Z1
|
|
BNE :Z0
|
|
:N BMI :N1
|
|
BPL :N0
|
|
:O BVC :O0
|
|
BVS :O1
|
|
JMP :EXIT
|
|
:C0 LDA #0
|
|
STA ]C
|
|
JMP :Z
|
|
:C1 LDA #1
|
|
STA ]C
|
|
JMP :Z
|
|
:Z1 LDA #1
|
|
STA ]Z
|
|
JMP :N
|
|
:Z0 LDA #0
|
|
STA ]Z
|
|
JMP :N
|
|
:N1 LDA #1
|
|
STA ]N
|
|
JMP :O
|
|
:N0 LDA #0
|
|
STA ]N
|
|
JMP :O
|
|
:O0 LDA #0
|
|
STA ]O
|
|
JMP :EXIT
|
|
:O1 LDA #1
|
|
STA ]O
|
|
:EXIT
|
|
RTS
|
|
__ERRH
|
|
LDA #1
|
|
STA $AAB6
|
|
STA $75+1
|
|
STA $33
|
|
STA ADDR1
|
|
STX ADDR1+1
|
|
LDA #$FF
|
|
STA $D8
|
|
LDY #0
|
|
LDA (ADDR1),Y
|
|
STA $9D5A
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $9D5B
|
|
RTS
|