Previous File   Multiple Pages   Next File

* PAGE 1

0001 * 0002 * 0003 SUBR C$CTLU,CTLU CHARACTER TABLE LOOK-UP 0004 CF5 H316 AND DDP-516 0005 REL RELOCATABLE 0006 * 0007 * 0008 00000 0 000000 CTLU DAC ** RETURN ADDRESS 0009 00001 0 03 00015 ANA ='77 REDUCE CHARACTER TO 6 BITS 0010 00002 0406 77 ARR 1 COMPUTE WORD REQUIRED FROM TABLE 0011 00003 -0 06 00000 ADD* CTLU TABLE ADDRESS 0012 00004 0 12 00000 IRS CTLU TALLY RETURN ADDRESS 0013 00005 140320 CSA 0014 00006 0 04 00014 STA POIN POINTER 0015 00007 -0 02 00014 LDA* POIN GET REQUIRED WORD FROM TABLE 0016 00010 101001 SSC 0017 00011 141340 ICA REQUIRED CHARACTER WAS IN LEFT HALF OF WORD 0018 00012 141050 CAL DISCARD OTHER CHARACTER 0019 00013 -0 01 00000 JMP* CTLU RETURN 0020 * 0021 * 0022 * VARIABLES AND CONSTANTS 0023 * 0024 00014 POIN BSS 1 POINTER 0025 00015 000077 FIN LITERALS 0026 * 0027 * 0028 END END OF C$CTLU 04.JUN.70 G.S.LITTLE CTLU 000000 POIN 000014 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71
Previous File   Multiple Pages   Next File