1985-02-07 22:06:32 +00:00
|
|
|
.define .diagnos
|
1986-07-22 13:37:16 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
1985-02-07 22:06:32 +00:00
|
|
|
|
|
|
|
|
space = 040
|
|
|
|
|
del = 0177
|
|
|
|
|
|
1986-07-22 13:37:16 +00:00
|
|
|
.sect .text
|
1985-02-07 22:06:32 +00:00
|
|
|
.diagnos:
|
|
|
|
|
move.l hol0,-(sp)
|
1986-07-22 13:37:16 +00:00
|
|
|
move.l hol0+4,d2
|
1985-02-07 22:06:32 +00:00
|
|
|
beq 1f
|
|
|
|
|
move.l d2,a0
|
|
|
|
|
move.l #40,d0
|
|
|
|
|
3:
|
|
|
|
|
move.b (a0)+,d1
|
|
|
|
|
beq 2f
|
|
|
|
|
cmp.b #del,d1
|
|
|
|
|
bge 1f
|
|
|
|
|
cmp.b #space,d1
|
|
|
|
|
blt 1f
|
|
|
|
|
sub #1,d0
|
|
|
|
|
bgt 3b
|
1987-03-24 08:41:44 +00:00
|
|
|
clr.b (a0)
|
1985-02-07 22:06:32 +00:00
|
|
|
2:
|
|
|
|
|
move.l d2,-(sp)
|
|
|
|
|
pea fmt
|
1989-05-29 14:40:51 +00:00
|
|
|
jsr printf
|
1985-02-07 22:06:32 +00:00
|
|
|
add #12,sp
|
1989-05-29 14:40:51 +00:00
|
|
|
jmp printf
|
1985-02-07 22:06:32 +00:00
|
|
|
|
|
|
|
|
1:
|
|
|
|
|
move.l #unknwn,d2
|
|
|
|
|
bra 2b
|
|
|
|
|
|
1989-05-29 14:40:51 +00:00
|
|
|
.sect .bss
|
|
|
|
|
getal:
|
|
|
|
|
.space 12
|
|
|
|
|
char:
|
|
|
|
|
.space 1
|
|
|
|
|
.align 4
|
|
|
|
|
.sect .data
|
|
|
|
|
hexs:
|
|
|
|
|
.ascii "0123456789abcdef"
|
|
|
|
|
.align 4
|
|
|
|
|
.sect .text
|
|
|
|
|
printf:
|
|
|
|
|
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)
|
|
|
|
|
jsr putchar ! long argument on stack
|
|
|
|
|
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)
|
|
|
|
|
jsr putchar ! long argument on stack
|
|
|
|
|
tst.l (sp)+
|
|
|
|
|
bra sloop
|
|
|
|
|
|
|
|
|
|
digit: move.l (a6)+, d1 ! d1 <- integer
|
|
|
|
|
move.l #getal+12, a2 ! a2 <- ptr to last part of buf
|
|
|
|
|
clr.b -(a2) ! stringterminator
|
|
|
|
|
1:
|
|
|
|
|
move.l d1,-(sp)
|
|
|
|
|
move.l #10,-(sp)
|
|
|
|
|
jsr .dvu ! d1 <- qotient; d0 <- remainder
|
|
|
|
|
add.l #'0', d0
|
|
|
|
|
move.b d0, -(a2)
|
|
|
|
|
tst.l d1 ! if quotient = 0 then ready
|
|
|
|
|
bne 1b
|
|
|
|
|
bra sloop ! print digitstring.
|
|
|
|
|
|
|
|
|
|
hex: move.l (a6)+, d1 ! d1 <- integer
|
|
|
|
|
move.l #getal+12, a2 ! a2 <- ptr to last part of buf
|
|
|
|
|
clr.b -(a2) ! stringterminator
|
|
|
|
|
move.l #7, d2 ! loop control
|
|
|
|
|
1: move.l d1, d0
|
|
|
|
|
and.l #15, d0
|
|
|
|
|
move.l #hexs,a0
|
|
|
|
|
add.l d0,a0
|
|
|
|
|
move.b (a0), -(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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
putchar:
|
|
|
|
|
move.l #1, -(sp)
|
|
|
|
|
pea 11(sp)
|
|
|
|
|
move.l #1, -(sp)
|
1992-06-30 16:08:42 +00:00
|
|
|
jsr WRITE
|
1989-05-29 14:40:51 +00:00
|
|
|
lea 12(sp), sp
|
|
|
|
|
rts
|
|
|
|
|
.align 2
|
1986-07-22 13:37:16 +00:00
|
|
|
.sect .data
|
1985-02-07 22:06:32 +00:00
|
|
|
fmt: .asciz "%s, line %d: "
|
|
|
|
|
unknwn: .asciz "unknown file"
|
|
|
|
|
.align 2
|
