mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-12-02 12:52:03 +00:00
29 lines
649 B
NASM
29 lines
649 B
NASM
|
]LEFT EQU VARTAB
|
||
|
|
]RIGHT EQU VARTAB+2
|
||
|
|
]HBYTE EQU VARTAB+4
|
||
|
|
]HEXTAB ASC "0123456789ABCDEF"
|
||
|
|
HEX2HEXASC
|
||
|
|
STA ]HBYTE
|
||
|
|
AND #$F0
|
||
|
|
LSR
|
||
|
|
LSR
|
||
|
|
LSR
|
||
|
|
LSR
|
||
|
|
STA ]LEFT
|
||
|
|
LDA ]HBYTE
|
||
|
|
AND #$0F
|
||
|
|
STA ]RIGHT
|
||
|
|
LDX ]LEFT
|
||
|
|
LDA ]HEXTAB,X
|
||
|
|
STA ]LEFT
|
||
|
|
LDX ]RIGHT
|
||
|
|
LDA ]HEXTAB,X
|
||
|
|
STA ]RIGHT
|
||
|
|
LDA ]LEFT
|
||
|
|
STA RETURN
|
||
|
|
LDA ]RIGHT
|
||
|
|
STA RETURN+1
|
||
|
|
LDA #2
|
||
|
|
STA RETLEN
|
||
|
|
RTS
|