mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 22:54:59 +00:00
62 lines
827 B
Plaintext
62 lines
827 B
Plaintext
|
PR#3
|
|||
|
PREFIX /A2OSX.SRC
|
|||
|
LOMEM $C00
|
|||
|
INC 1
|
|||
|
AUTO 6
|
|||
|
.LIST OFF
|
|||
|
*--------------------------------------
|
|||
|
DecodeMac lda (ZPTmpPTR)
|
|||
|
cmp #12
|
|||
|
bne .9
|
|||
|
|
|||
|
ldy #1
|
|||
|
ldx #0
|
|||
|
|
|||
|
.1 lda (ZPTmpPTR),y
|
|||
|
jsr Asc2NibbleA
|
|||
|
bcs .9
|
|||
|
|
|||
|
asl
|
|||
|
asl
|
|||
|
asl
|
|||
|
asl
|
|||
|
sta MAC,x
|
|||
|
|
|||
|
iny
|
|||
|
lda (ZPTmpPTR),y
|
|||
|
jsr Asc2NibbleA
|
|||
|
bcs .9
|
|||
|
|
|||
|
ora MAC,x
|
|||
|
sta MAC,x
|
|||
|
inx
|
|||
|
iny
|
|||
|
cpy #13
|
|||
|
bne .1
|
|||
|
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
Asc2NibbleA cmp #$30
|
|||
|
bcc .9
|
|||
|
cmp #$3A
|
|||
|
bcs .1
|
|||
|
and #$0F
|
|||
|
clc
|
|||
|
rts
|
|||
|
.1 cmp #$41
|
|||
|
bcc .9
|
|||
|
cmp #$47
|
|||
|
bcs .9
|
|||
|
sbc #$36
|
|||
|
clc
|
|||
|
rts
|
|||
|
.9 sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
MAN
|
|||
|
SAVE DRV/X.NET.DRV.S
|