I$PO

* PAGE 2

0051 00042 0 01 00036 JMP ZERO ZERO 0052 * 0053 00043 0 02 00063 LDA CKSM CHECKSUM 0054 00044 -0 01 00000 JMP* I$PO RETURN 0055 * 0056 * FRAME 0057 00045 0 000000 FRME DAC ** RETURN ADDRESS 0058 00046 0 10 00000 CALL I$PK HSR INPUT CHARACTER 0059 00047 0 11 00066 CAS ='223 0060 00050 100000 SKP 0061 00051 0 01 00060 JMP EXIT EXIT 0062 00052 0 10 00000 CALL C$IS CONVERT FROM INVISIBLE TO 6-BIT CODE 0063 00053 0 13 00064 IMA FLAG FLAG 0064 00054 0414 72 LGL 6 0065 00055 0 06 00064 ADD FLAG FLAG 0066 00056 0 04 00064 STA FLAG FLAG 0067 00057 -0 01 00045 JMP* FRME RETURN 0068 * 0069 00060 0 12 00000 EXIT IRS I$PO TALLY RETURN ADDRESS 0070 00061 0 01 00041 JMP END CLEAR BUFFER AND RETURN 0071 * 0072 * 0073 * CONSTANTS AND VARIABLES 0074 * 0075 00062 000000 BUFF BSZ 1 BUFFER 0076 00063 000000 CKSM BSZ 1 CHECKSUM 0077 00064 000000 FLAG BSZ 1 FLAG 0078 00065 000000 KEEP BSZ 1 KEEP 0079 * 0080 00066 000223 FIN LITERALS 00067 003000 00070 001000 00071 177703 0081 * 0082 * 0083 END END OF I$PO 6.JUN.70 P.J.VYSE BLER 000033 BUFF 000062 CKSM 000063 END 000041 EXIT 000060 FLAG 000064 FRME 000045 I$PO 000000 KEEP 000065 NEXT 000007 OBLK 000020 RSTR 000002 ZERO 000036 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71