A2osX/DRV/X.NET.DRV.S.txt

62 lines
820 B
Plaintext
Raw Normal View History

2016-03-20 22:12:57 +00:00
PR#3
PREFIX /A2OSX.SRC
NEW
2016-03-20 22:12:57 +00:00
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