1987-01-29 22:10:18 +00:00
|
|
|
.define .diagnos
|
|
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
|
|
|
|
|
space = 040
|
|
|
|
|
del = 0177
|
|
|
|
|
|
|
|
|
|
.sect .data
|
|
|
|
|
.range: .data1 space, del-1
|
|
|
|
|
.align 2
|
|
|
|
|
|
|
|
|
|
.sect .text
|
|
|
|
|
.diagnos:
|
|
|
|
|
movem.l d0/d1/d2/a0, -(sp)
|
2013-05-07 23:48:48 +00:00
|
|
|
move.l (hol0), -(sp)
|
|
|
|
|
move.l (hol0+4), d2
|
1987-01-29 22:10:18 +00:00
|
|
|
beq 1f
|
|
|
|
|
move.l d2, a0
|
|
|
|
|
move.l #40, d0
|
|
|
|
|
3:
|
|
|
|
|
move.b (a0)+, d1
|
|
|
|
|
beq 2f
|
|
|
|
|
cmp2.b (.range), d1
|
|
|
|
|
bcs 1f
|
|
|
|
|
dbf d0, 3b
|
|
|
|
|
2:
|
|
|
|
|
move.l d2, -(sp)
|
|
|
|
|
pea (fmt)
|
1989-05-29 14:42:18 +00:00
|
|
|
jsr (printf)
|
1987-10-30 10:42:36 +00:00
|
|
|
lea (12, sp), sp
|
1987-01-29 22:10:18 +00:00
|
|
|
movem.l (sp)+, d0/d1/d2/a0
|
1989-05-29 14:42:18 +00:00
|
|
|
jmp (printf)
|
1987-01-29 22:10:18 +00:00
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
1:
|
|
|
|
|
move.l #unknwn, d2
|
|
|
|
|
bra 2b
|
|
|
|
|
|
1988-10-03 10:53:47 +00:00
|
|
|
.sect .bss
|
1989-05-29 14:42:18 +00:00
|
|
|
getal:
|
1988-10-03 10:53:47 +00:00
|
|
|
.space 12
|
1989-05-29 14:42:18 +00:00
|
|
|
char:
|
1988-10-03 10:53:47 +00:00
|
|
|
.space 1
|
|
|
|
|
.align 4
|
|
|
|
|
.sect .data
|
|
|
|
|
hexs:
|
|
|
|
|
.ascii "0123456789abcdef"
|
|
|
|
|
.align 4
|
|
|
|
|
.sect .text
|
1989-05-29 14:42:18 +00:00
|
|
|
printf:
|
1988-10-03 10:53:47 +00:00
|
|
|
movem.l d0/d1/d2/a0/a1/a2/a3/a4/a5/a6, -(sp)
|
|
|
|
|
lea (44, sp), a6 ! a6 <- address of arguments
|
|
|
|
|
move.l (a6)+, a5 ! a5 <- address of format
|
|
|
|
|
next: move.b (a5)+, d0
|
|
|
|
|
beq out
|
|
|
|
|
cmp.b #'%', d0
|
|
|
|
|
beq procnt
|
|
|
|
|
put: move.l d0, -(sp)
|
1989-05-29 14:42:18 +00:00
|
|
|
jsr (putchar) ! long argument on stack
|
1988-10-03 10:53:47 +00:00
|
|
|
tst.l (sp)+
|
|
|
|
|
bra next
|
|
|
|
|
|
|
|
|
|
procnt: move.b (a5)+, d0
|
|
|
|
|
cmp.b #'d', d0 ! NOTE: %d means unsigned.
|
|
|
|
|
beq digit
|
|
|
|
|
cmp.b #'x', d0
|
|
|
|
|
beq hex
|
|
|
|
|
cmp.b #'s', d0
|
|
|
|
|
beq string
|
|
|
|
|
cmp.b #'%', d0 ! second % has to be printed.
|
|
|
|
|
beq put
|
|
|
|
|
tst.b -(a5) ! normal char should be printed
|
|
|
|
|
bra next
|
|
|
|
|
|
|
|
|
|
string: move.l (a6)+, a2 ! a2 <- address of string
|
|
|
|
|
sloop: move.b (a2)+, d0
|
|
|
|
|
beq next
|
|
|
|
|
move.l d0, -(sp)
|
1989-05-29 14:42:18 +00:00
|
|
|
jsr (putchar) ! long argument on stack
|
1988-10-03 10:53:47 +00:00
|
|
|
tst.l (sp)+
|
|
|
|
|
bra sloop
|
|
|
|
|
|
|
|
|
|
digit: move.l (a6)+, d1 ! d1 <- integer
|
1989-05-29 14:42:18 +00:00
|
|
|
move.l #getal+12, a2 ! a2 <- ptr to last part of buf
|
1988-10-03 10:53:47 +00:00
|
|
|
clr.b -(a2) ! stringterminator
|
|
|
|
|
1: divul.l #10, d2:d1 ! d1 <- qotient; d2 <- remainder
|
|
|
|
|
add.l #'0', d2
|
|
|
|
|
move.b d2, -(a2)
|
|
|
|
|
tst.l d1 ! if quotient = 0 then ready
|
|
|
|
|
bne 1b
|
|
|
|
|
bra sloop ! print digitstring.
|
|
|
|
|
|
|
|
|
|
hex: move.l (a6)+, d1 ! d1 <- integer
|
1989-05-29 14:42:18 +00:00
|
|
|
move.l #getal+12, a2 ! a2 <- ptr to last part of buf
|
1988-10-03 10:53:47 +00:00
|
|
|
clr.b -(a2) ! stringterminator
|
|
|
|
|
move.l #7, d2 ! loop control
|
|
|
|
|
1: move.l d1, d0
|
|
|
|
|
and.l #15, d0
|
|
|
|
|
move.b (hexs,d0.w), -(a2) ! hex digit
|
|
|
|
|
asr.l #4, d1
|
|
|
|
|
dbf d2, 1b
|
|
|
|
|
bra sloop
|
|
|
|
|
|
|
|
|
|
out:
|
|
|
|
|
movem.l (sp)+, d0/d1/d2/a0/a1/a2/a3/a4/a5/a6
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
1989-05-29 14:42:18 +00:00
|
|
|
putchar:
|
1988-10-03 10:53:47 +00:00
|
|
|
move.l #1, -(sp)
|
|
|
|
|
pea (11,sp)
|
|
|
|
|
move.l #1, -(sp)
|
1992-06-30 15:22:07 +00:00
|
|
|
jsr (WRITE)
|
1988-10-03 10:53:47 +00:00
|
|
|
lea (12, sp), sp
|
|
|
|
|
rts
|
|
|
|
|
.align 2
|
|
|
|
|
|
1987-01-29 22:10:18 +00:00
|
|
|
.sect .data
|
|
|
|
|
fmt: .asciz "%s, line %d: "
|
|
|
|
|
unknwn: .asciz "unknown file"
|
|
|
|
|
.align 2
|
