fixes for exit status
This commit is contained in:
parent
05bac6c619
commit
901e1b7565
|
@ -209,7 +209,11 @@ ret_1W: move.l #0,d0
|
||||||
lea retarea,a5 ; bra 4f
|
lea retarea,a5 ; bra 4f
|
||||||
ret_0: move.w #-1,retsize
|
ret_0: move.w #-1,retsize
|
||||||
4: unlk a2 ; cmp.l a2,d6
|
4: unlk a2 ; cmp.l a2,d6
|
||||||
beq hlt_z ; move.l (sp)+,a3
|
bne 9f
|
||||||
|
cl -(sp)
|
||||||
|
jsr hlt_z
|
||||||
|
9:
|
||||||
|
move.l (sp)+,a3
|
||||||
move.l (sp)+,a0 !FILE OR PROC DES BASE IN a0
|
move.l (sp)+,a0 !FILE OR PROC DES BASE IN a0
|
||||||
#if count+flow+prof
|
#if count+flow+prof
|
||||||
move.l a0,curproc !SAVE PROC DES BASE CUR PROC
|
move.l a0,curproc !SAVE PROC DES BASE CUR PROC
|
||||||
|
|
|
@ -340,7 +340,6 @@ lhalt:
|
||||||
clr.l (a1)+ !skip file name
|
clr.l (a1)+ !skip file name
|
||||||
bra 4b !only new line
|
bra 4b !only new line
|
||||||
9:
|
9:
|
||||||
cl -(sp)
|
|
||||||
.sect .data
|
.sect .data
|
||||||
emlast: .asciz "em_last"
|
emlast: .asciz "em_last"
|
||||||
mess1: .asciz "no line processed yet\n"
|
mess1: .asciz "no line processed yet\n"
|
||||||
|
|
Loading…
Reference in a new issue