.title ihang ;3.2 version of ihang, etc. .ident /v1/ .psect ihang .mcall spwn$,dir$,stse$ spn: spwn$ MCR...,,,,,25. ;to mcr event flag 25 stp: stse$ 25. ;stop for ef 25 flag: .word 0 ;0=ifork, -1=ihang .psect pur,ro ihang:: mov #-1,flag ;indicate hang around ihang1:: ;unless realy a fork entry mov 2(r5),r0 ;get addr of cmd line mov r0,spn+s.pwca ;stuff into directive block clr r1 ;prepare to count line length mov #79.,r2 ;but limit it 5$: tstb (r0)+ ;look for null terminator beq 10$ inc r1 sob r2,5$ ;loop back for more 10$: mov r1,spn+s.pwcl ;stuff length dir$ #spn ;this is it tst flag beq 15$ ;skip stop for if ifork entry dir$ #stp ;now stop till its done 15$: rts pc ;and then return ifork:: clr flag br ihang1 iwait:: rts pc ;nop for now .end