collapseos/apps/zasm/main.asm
2019-05-09 15:55:29 -04:00

83 lines
1.4 KiB
NASM

; *** Requirements ***
; blockdev
; JUMP_STRNCMP
; JUMP_ADDDE
; JUMP_UPCASE
; JUMP_UNSETZ
; JUMP_INTODE
; *** Code ***
; Read file through GetC routine pointer at HL and outputs its upcodes through
; the PutC routine pointer at DE.
main:
ld (ioGetCPtr), hl
ld (ioPutCPtr), de
.loop:
call ioReadLine
or a ; is A 0?
jr z, .stop ; We have EOF
call parseLine
jr nz, .stop
jr .loop
.stop:
ret
#include "util.asm"
#include "io.asm"
#include "parse.asm"
#include "literal.asm"
#include "instr.asm"
#include "directive.asm"
; Parse line in (HL), write the resulting opcode(s) in (DE) and returns the
; number of written bytes in IXL. Advances HL where tokenization stopped and DE
; to where we should write the next upcode.
; Sets Z if parse was successful, unset if there was an error or EOF.
parseLine:
push bc
call tokenize
ld a, b ; TOK_*
cp TOK_INSTR
jr z, .instr
cp TOK_DIRECTIVE
jr z, .direc
cp TOK_EMPTY
jr z, .success ; empty line? do nothing but don't error out.
jr .error ; token not supported
.instr:
ld a, c ; I_*
call parseInstruction
or a ; is zero?
jr z, .error
ld b, a
ld hl, instrUpcode
.loopInstr:
ld a, (hl)
call ioPutC
inc hl
djnz .loopInstr
jr .success
.direc:
ld a, c ; D_*
call parseDirective
ld b, a
ld hl, direcData
.loopDirec:
ld a, (hl)
call ioPutC
inc hl
djnz .loopDirec
jr .success
.success:
ld ixl, a
xor a ; ensure Z
jr .end
.error:
xor ixl
call JUMP_UNSETZ
.end:
pop bc
ret