.TITLE PWBOOL - WRITE BOOLEAN(@FILEVAR,BOOLEAN,FIELD WIDTH) .IDENT /780705/ ; PARMS ; 1. POINTER TO FILE BLOCK ; 2. BOOLEAN VALUE ; 3 FIELD WIDTH ; REGISTERS ; ; CALLS: $$$027 (MODIFIES STACK AND FAKES A CALL) .GLOBL $$$027 .PSECT $$$029:: MOV (SP),-(SP) ;JACK UP RETURN ADDRESS MOV 4(SP),2(SP) ;MOVE UP FIELD WIDTH MOV #5,4(SP) ;STRING LENGTH 5 TSTB 6(SP) ;CHECK WHICH STRING BEQ 1$ ; TO PRINT MOV #TSTR,6(SP) ; "TRUE" DEC 4(SP) ;STRING LENGTH 4 BR 2$ 1$: MOV #FSTR,6(SP) ; "FALSE" 2$: JMP $$$027 ;PRINT THE STRING TSTR: .ASCII /TRUE / FSTR: .ASCII /FALSE/ .END