74 lines
2.6 KiB
NASM
74 lines
2.6 KiB
NASM
;; input m0[0] start address
|
|
;; [X ] [Y ] [D1 ]
|
|
;; mov 0,ct0
|
|
;; mov mc0,ra0
|
|
|
|
;; variables:
|
|
;; m0[0] dma read start address (global)
|
|
;; m0[1] dma read value (local); post-shift 4-byte remainder (global)
|
|
;; m0[2] saved accumulator (global)
|
|
|
|
caller_setup:
|
|
mov 0,ct0
|
|
;; start address
|
|
mov mc0,ra0
|
|
mov 2,ct0
|
|
;; mov 0,mc0
|
|
|
|
parse_base10:
|
|
next_chunk:
|
|
clr a mov 1,ct0
|
|
;; dma d0,mc0,1
|
|
;; begin fake number 0x39322033 "92 3"
|
|
mvi 0x393220,pl
|
|
add mov alu,a mov 0x33,pl
|
|
rl8 mov alu,a
|
|
add mov all,mc0
|
|
;; end fake number
|
|
post_dma_load:
|
|
;; extract first (leftmost) digit
|
|
mov 1,ct0
|
|
mov mc0,a mov 0x7f,pl
|
|
rl8 mov alu,a ;;mov all,mc0 ; m0[1] 0x20323339
|
|
;; multiply saved accumulator by 10
|
|
;; [X ] [Y ] [D1 ]
|
|
mov m0,y mov 10,rx ; m0[2] 0x00000000
|
|
and mov all,pl
|
|
|
|
;; MUL: post-multiplication accumulator
|
|
;; P: post-mask digit
|
|
;; A: pre-xor string
|
|
mov 1,ct0
|
|
xor clr a mov all,mc0 ; m0[1] 0x20323300
|
|
|
|
;; FIXME: if 0x00 jump to "end of input"?
|
|
|
|
add mov alu,a mov 0x30,pl ; 0x30 ascii '0'
|
|
|
|
;; A: post-mask digit
|
|
;;
|
|
sub mov alu,a mov 10,pl
|
|
|
|
;; if ((0x39 - 0x30) < 0) goto non_digit;
|
|
jmp s,non_digit
|
|
;; possibly set S flag for `jmp ns,non_digit`
|
|
sub ; sub in delay slot
|
|
;; if (((0x39 - 0x30) - 10) >= 0) goto non_digit;
|
|
jmp ns,non_digit
|
|
mov mul,p mov 2,ct0 ; mov in delay slot
|
|
;; P: accumulator * 10 result
|
|
digit:
|
|
;; we have a valid digit; add it to the accumulator; save to m0[2]
|
|
;; [X ] [Y ] [D1 ]
|
|
jmp post_dma_load
|
|
add mov all,mc0 ; add in delay slot ; m0[2] 0x00000009
|
|
|
|
non_digit:
|
|
;; this is not a valid digit; return the accumulator
|
|
;; [X ] [Y ] [D1 ]
|
|
btm
|
|
clr a ; clr in delay slot
|
|
|
|
;; m0:
|
|
;; 00000000 32330000 00000009 0000000
|