| 1 $JOB REBUILD 9PAC $* $PAUSE PLEASE MOUNT SOURCE TAPE 5 ON UNIT A3 OPER. ACTION PAUSE| 1 ..CONTINUING| 1 $EXECUTE UPDATE 1 12/01/64 PAGE 1 | SYMBOLIC UPDATE DATA | 0 | UPDATE 4,3 | 0 $JOB REBUILD 9PAC INSERTED 0 $EXECUTE IBSFAP INSERTED | 0 * FAP 9P000001 DELETED | * FAP 9P000001 INSERTED | 0 *THE FOLLOWING EQU CARDS MUST BE PROPERLY SET UP ACCORDING TO 9P000470 DELETED | *THE FOLLOWING EQU CARDS MUST BE PROPERLY SET UP ACCORDING TO 9P000470 INSERTED 0 *THE MACHINE CONFIGURATION AND THE INSTALLATION STANDARD 9P000480 DELETED | *THE MACHINE CONFIGURATION AND THE INSTALLATION STANDARD 9P000480 INSERTED | 0 * 9P000490 DELETED | * 9P000490 INSERTED | 0 * 9P000500 DELETED * 9P000500 INSERTED | 0 * LINES PER PAGE FOR PREPROCESSOR PRINTING 9P000510 DELETED | * LINES PER PAGE FOR PREPROCESSOR PRINTING 9P000510 INSERTED | 0 BCTLN EQU 50 9P000520 DELETED | BCTLN EQU 55 9P000520 INSERTED 0 * 9P000530 DELETED | * 9P000530 INSERTED | 0 *SENSE SWITCHES 9P000540 DELETED | *SENSE SWITCHES 9P000540 INSERTED | 0 * 9P000550 DELETED * 9P000550 INSERTED | 0 *SENSE SWITCH FOR CHECKPOINT CONTROL. DOWN INITIATES CHECKPOINT. 9P000560 DELETED | *SENSE SWITCH FOR CHECKPOINT CONTROL. DOWN INITIATES CHECKPOINT. 9P000560 INSERTED | 0 SWTCP EQU 2 9P000570 DELETED | SWTCP EQU 2 9P000570 INSERTED 0 * 9P000580 DELETED | * 9P000580 INSERTED | 0 *SENSE SWITCH FOR LABEL CONTROL. DOWN IGNORES LABEL ERRORS. 9P000590 DELETED | *SENSE SWITCH FOR LABEL CONTROL. DOWN IGNORES LABEL ERRORS. 9P000590 INSERTED | 0 LERIG EQU 3 9P000600 DELETED LERIG EQU 3 9P000600 INSERTED | 0 * 9P000610 DELETED | * 9P000610 INSERTED | 1 12/01/64 PAGE 2 | SYMBOLIC UPDATE DATA 0 | 0 *STANDARD FILE BLOCK ORIGGIN. IF=0, ORIGIN IMMEDIATELY FOLLOWS IOCS. 9P000620 DELETED | *STANDARD FILE BLOCK ORIGGIN. IF=0, ORIGIN IMMEDIATELY FOLLOWS IOCS. 9P000620 INSERTED | 0 SFBO EQU 0 9P000630 DELETED | SFBO EQU 0 9P000630 INSERTED 0 * 9P000640 DELETED | * 9P000640 INSERTED | 0 *SENSE LIGHT CONTROL. IF=1, SENSE LIGHTS ARE RESERVED FOR IOCS. 9P000650 DELETED | *SENSE LIGHT CONTROL. IF=1, SENSE LIGHTS ARE RESERVED FOR IOCS. 9P000650 INSERTED | 0 * IF=0, IOCS DOES NOT ALTER SENSE LIGHTS. 9P000660 DELETED * IF=0, IOCS DOES NOT ALTER SENSE LIGHTS. 9P000660 INSERTED | 0 LITES EQU 0 9P000670 DELETED | LITES EQU 0 9P000670 INSERTED | 0 * 9P000680 DELETED | * 9P000680 INSERTED 0 *STANDARD DENSITY OF LABELED BLANK TAPE. 0=LOW, 1=HIGH. 9P000690 DELETED | *STANDARD DENSITY OF LABELED BLANK TAPE. 0=LOW, 1=HIGH. 9P000690 INSERTED | 0 SLDEN EQU 0 9P000700 DELETED | SLDEN EQU 1 9P000700 INSERTED | 0 * 9P000710 DELETED * 9P000710 INSERTED | 0 *PRINTER BOARD SENSE EXIT FOR DOUBLE SPACE.....1 THROUGH 10 9P000720 DELETED | *PRINTER BOARD SENSE EXIT FOR DOUBLE SPACE.....1 THROUGH 10 9P000720 INSERTED | 0 DBLSP EQU 4 9P000730 DELETED | DBLSP EQU 4 9P000730 INSERTED 0 * 9P000740 DELETED | * 9P000740 INSERTED | 0 NOCH EQU 2 TWO 7909 CHANNELS DEFINED IN IOCS 9P000750 DELETED | NOCH EQU 2 TWO 7909 CHANNELS DEFINED IN IOCS 9P000750 INSERTED | 0 * 9P000760 DELETED * 9P000760 INSERTED | 0 *END OF EQU CARDS TO BE DEFINED BY INSTALLATION. 9P000770 DELETED | *END OF EQU CARDS TO BE DEFINED BY INSTALLATION. 9P000770 INSERTED | 0 END 0 9P144730 DELETED | END -1 9P144730 INSERTED 0 ENDUP | 1 12/01/64 PAGE 3 | SYMBOLIC UPDATE DATA | 0 | UPDATE 4,3 0 * FAP RG000010 DELETED | * FAP RG000010 INSERTED | 0 END 0 RG151560 DELETED | END -1 RG151560 INSERTED | 0 REWIND 4 0 ENDUP | 1 12/01/64 PAGE 4 | SYMBOLIC UPDATE DATA | 0 | UPDATE 4,3 0 * FAP FP000010 DELETED | * FAP FP000010 INSERTED | 0 END 0 FP258420 DELETED | END -1 FP258420 INSERTED | 0 ENDFIL 3 0 ENDUP | 1 12/01/64 PAGE 5 | SYMBOLIC UPDATE DATA | 0 | UPDATE ,3,U 0 $IBSYS INSERTED | 0 $ENDFILE SYSPP1 INSERTED | 0 $REWIND SYSPP1 INSERTED | 0 $PAUSE PLEASE MOUNT A SCRATCH TAPE ON A3 INSERTED | 0 $SWITCH SYSPP1,SYSUT2 INSERTED 0 $* A3 WILL BECOME FINAL SYSTEM TAPE. INSERTED | 0 $IBEDT INSERTED | 0 *EDIT MAP,MODS INSERTED | 0 *PLACE 9PAC,4,1 INSERTED | 0 *AFTER MAIN INSERTED 0 *INSERT FILEMK INSERTED | 0 TAPE *INSERT 9PAC INSERTED | 0 *INSERT FILEMK INSERTED | 0 TAPE *INSERT 9PAC14 INSERTED | 0 *INSERT FILEMK INSERTED 0 TAPE *INSERT 9PAC12 INSERTED | 0 TAPE *INSERT 9PAC13 INSERTED | 0 *INSERT FILEMK INSERTED | 0 TAPE *INSERT 9PAC21 INSERTED | 0 TAPE *INSERT 9PAC22 INSERTED 0 TAPE *INSERT 9PAC23 INSERTED | 0 *INSERT FILEMK INSERTED | 0 TAPE *INSERT 9PAC31 INSERTED | 0 TAPE *INSERT 9PAC32 INSERTED | 0 *INSERT FILEMK INSERTED 0 TAPE *INSERT 9PAC41 INSERTED | 1 12/01/64 PAGE 6 | SYMBOLIC UPDATE DATA | 0 | TAPE *INSERT 9PAC42 INSERTED 0 TAPE *INSERT 9PAC43 INSERTED | 0 TAPE *INSERT 9PAC44 INSERTED | 0 TAPE *INSERT 9PAC45 INSERTED | 0 TAPE *INSERT 9PAC46 INSERTED | 0 TAPE *INSERT 9PAC47 INSERTED 0 TAPE *INSERT 9PAC48 INSERTED | 0 TAPE *INSERT 9PAC49 INSERTED | 0 TAPE *INSERT 9PAC4A INSERTED | 0 TAPE *INSERT 9PAC4B INSERTED | 0 *INSERT FILEMK INSERTED 0 TAPE *INSERT 9PAC33 INSERTED | 0 TAPE *INSERT 9PAC34 INSERTED | 0 *INSERT FILEMK INSERTED | 0 TAPE *INSERT 9PAC15 INSERTED | 0 *INSERT FILEMK INSERTED 0 ENDFIL 3 | 0 $IBSYS INSERTED | 0 $* NOW MOUNT STAGE10 ON A1 AND TAPE ON A3 ON A0. INSERTED | 0 $PAUSE AND REBOOT INSERTED | 0 $STOP INSERTED 0 ENDUP | 1 12/01/64 PAGE 7 | SYMBOLIC UPDATE DATA | 0 | $IBSYS LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING | TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS | | 3 B4 5608 0 0 0 0 0 0 | 4 A3 0 399 0 0 0 0 0 5 A2 0 26 0 0 0 0 0 | 6 B1 31 0 0 0 0 0 0 | 0 160 LINES OUTPUT. | 1 | $* PLEASE MOUNT B3 ON A1 $* PLEASE MOUNT SCRATCH TAPES ON A3,B3 $PAUSE OPER. ACTION PAUSE| 1 ..CONTINUING| 1 | 1 $JOB REBUILD 9PAC $EXECUTE IBSFAP 1 *7090-PR-924 7090/7094 9PAC PROCESSOR, RECORDS 9PAC,9PAC12,9PAC14 9P000000 * FAP 9P000001 1 LISTING OF 12/01/64 PAGE 1 | | ABS 9P000010 | SST 9P000030 | | | | | * 7090/7094 9PAC PROCESSOR 9P000070 | | * OPERATING UNDER THE IBSYS PROCESSOR (1301) 9P000090 | | * VERSION 4, MODIFICATION LEVEL 0 9P000110 | * PROGRAM NUMBER 7090-PR-924 9P000130 | 1 LISTING OF 12/01/64 PAGE 2 | | * IBSYS, IOEX AND DUMP 9P000150 * INTERMEDIATE DEFINITIONS. 9P000170 | * 9P000180 | 00101 SYDATE EQU SYSDAT 9P000190 | 00103 GOIBS EQU SYSRET 9P000200 | 00104 IBKEYS EQU SYSKEY 9P000210 00105 IBSSWS EQU SYSSWS 9P000220 | 00111 UCWAV EQU SYSUAV 9P000230 | 00735 TRAPS EQU (TRAPS 9P000240 | 00742 INTRAP EQU (TRPSW 9P000250 | 00706 BPRNT EQU (PROUT 9P000260 00723 STOPD EQU (STOPD 9P000270 | 00706 MWR EQU (PROUT 9P000280 | 00706 PROUT EQU (PROUT 9P000290 | 00734 TRAPX EQU (TRAPX 9P000300 | 00735 TRAP EQU (TRAPS 9P000310 00736 COMM EQU (COMMM 9P000320 | 00741 CHPSW EQU (CHPSW 9P000330 | 00742 TRPSW EQU (TRPSW 9P000340 | 00737 LTPOS EQU (LTPOS 9P000350 | 00740 SI EQU (IOXSI 9P000360 00721 BCD5 EQU (BCD5X 9P000370 | 00713 STOP EQU (STOPX 9P000380 | 00711 PAWS EQU (PAWSX 9P000390 | 00712 PAUSE EQU (PAUSE 9P000400 | 00714 SYUNCV EQU (SYMUN 9P000410 00702 ACTV EQU (ACTIV 9P000420 | 00722 CVPRT EQU (CVPRT 9P000430 | 1 LISTING OF 12/01/64 PAGE 3 | | *THE FOLLOWING EQU CARDS MUST BE PROPERLY SET UP ACCORDING TO 9P000470 *THE MACHINE CONFIGURATION AND THE INSTALLATION STANDARD 9P000480 | * 9P000490 | * 9P000500 | * LINES PER PAGE FOR PREPROCESSOR PRINTING 9P000510 | 00067 BCTLN EQU 55 9P000520 * 9P000530 | *SENSE SWITCHES 9P000540 | * 9P000550 | *SENSE SWITCH FOR CHECKPOINT CONTROL. DOWN INITIATES CHECKPOINT. 9P000560 | 00002 SWTCP EQU 2 9P000570 * 9P000580 | *SENSE SWITCH FOR LABEL CONTROL. DOWN IGNORES LABEL ERRORS. 9P000590 | 00003 LERIG EQU 3 9P000600 | * 9P000610 | *STANDARD FILE BLOCK ORIGGIN. IF=0, ORIGIN IMMEDIATELY FOLLOWS IOCS. 9P000620 00000 SFBO EQU 0 9P000630 | * 9P000640 | *SENSE LIGHT CONTROL. IF=1, SENSE LIGHTS ARE RESERVED FOR IOCS. 9P000650 | * IF=0, IOCS DOES NOT ALTER SENSE LIGHTS. 9P000660 | 00000 LITES EQU 0 9P000670 * 9P000680 | *STANDARD DENSITY OF LABELED BLANK TAPE. 0=LOW, 1=HIGH. 9P000690 | 00001 SLDEN EQU 1 9P000700 | * 9P000710 | *PRINTER BOARD SENSE EXIT FOR DOUBLE SPACE.....1 THROUGH 10 9P000720 00004 DBLSP EQU 4 9P000730 | * 9P000740 | 00002 NOCH EQU 2 TWO 7909 CHANNELS DEFINED IN IOCS 9P000750 | * 9P000760 | *END OF EQU CARDS TO BE DEFINED BY INSTALLATION. 9P000770 1 LISTING OF 12/01/64 PAGE 4 | | 00000 .. EQU 0 9P000790 | 00106 MGZE EQU 70 9P000800 | 00705 SMZE EQU 453 9P000810 03777 STZE EQU 2047 9P000820 | * 9P000830 | 1 LISTING OF 12/01/64 PAGE 5 | COMMUNICATION REGION AND SUBROUTINES. | 03776 ORG 2046 3776 OCTAL 9P000860 | 03776 114721236060 BCI 1,9PAC 9P000870 | 03777 434621242551 LOADER BCI 1,LOADER 9P000880 | 00100 ORG SYSTRA 9P000890 | 00100 0020 00 0 07566 TRA KA100 9P000900 04000 ORG LOADER+1 9P000910 | 04000 0021 00 0 05136 LOST TTR LOST01 9P000920 | 04001 606060606060 JOBID BCI 3, JOB NAME 9P000930 | * 9P000940 | *FILE CONTROL BLOCKS (FCB) 9P000950 * 9P000960 | 04004 FIL19 BSS 12 9P000970 | 04020 FIL18 BSS 12 9P000980 | 04034 FIL17 BSS 12 9P000990 | 04050 FIL16 BSS 12 9P001000 04064 FIL15 BSS 12 9P001010 | 04100 FIL14 BSS 12 9P001020 | 04114 FIL13 BSS 12 9P001030 | 04130 FIL12 BSS 12 9P001040 | 04144 FIL11 BSS 12 9P001050 04160 FIL10 BSS 12 9P001060 | 04174 FIL09 BSS 12 9P001070 | 04210 FIL08 BSS 12 9P001080 | 04224 FIL07 BSS 12 9P001090 | 04240 FIL06 BSS 12 9P001100 04254 FIL05 BSS 12 9P001110 | 04270 FIL04 BSS 12 9P001120 | 04304 FIL03 BSS 12 9P001130 | 04320 FIL02 BSS 12 9P001140 | 04334 FIL01 BSS 12 9P001150 04350 FIL00 BSS 12 9P001160 | 04364 UNBLK BSS 0 UP TO 9P001170 | 04364 UBLOK BSS 10 TEN INTERSYSTEM RESERVE UNITS 9P001180 | 04376 IN9PAC BSS 1 INITIAL JOB SWITCH 9P001190 | 04377 LUNBLK BSS 1 LOCATION AND LENGTH OF RESERVE UNIT BLOCK 9P001200 04400 OBJL1 BSS 1 OBJECT LOWER LIMIT INITIAL 9P001210 | 04401 OBJL2 BSS 1 OBJECT LOWER LIMIT CURRENT 9P001220 | 04402 OBJL3 BSS 1 OBJECT UPPER LIMIT CURRENT 9P001230 | 04403 OBJL4 BSS 1 OBJECT UPPER LIMIT INITIAL 9P001240 | 04404 OBJL5 BSS 1 OBJECT LOWER LIMIT STORAGE 9P001250 04405 OBJL6 BSS 1 OBJECT UPPER LIMIT STORAGE 9P001260 | 04406 FPRGSW BSS 1 /-FP OR RG, NZ FP-RG COMBINED 9P001270 | 04407 DISCIN BSS 1 ZERO-LIB ON TAPE, NZ-DISC 9P001280 | 04410 RGSMTP BSS 5 RG SYMTAP TEMPORARY STORAGE 9P001290 | 04415 BSS 25 BOONDOCKS 9P001300 1 LISTING OF 12/01/64 PAGE 6 | COMMUNICATION REGION AND SUBROUTINES. | | 04446 0021 00 0 05034 9PAC TTR JOBEND 9P001320 | 04447 000060000000 DATE BCI 1,00 000 SYSTEM DATE CELL 9P001330 04450 LAREA BSS 20 LABEL AREA 9P001340 | 04474 DUP 1,29 9P001350 | 04474 0 00000 0 00000 PZE 0 9P001360 | 04531 0 00000 0 00000 SYMTAP PZE 0 9P001370 | 04532 0 00000 0 00000 CKPTAP PZE 0 9P001380 04533 BUFF1 BSS 27 9P001390 | 04566 BUFF2 BSS 27 9P001400 | 04621 CARD BSS 27 9P001410 | 04654 0 00000 0 04350 FCBORG PZE FIL00 9P001420 | 04655 0 00000 0 00000 JOBTYP PZE JOB TYPE STORAGE 9P001430 04656 0 00000 0 00000 TAPIND PZE 0-FOLLOWS NZ-TAPE 9P001440 | 04657 0 00000 0 00000 BITIND PZE 0-BITS NZ-CHARACTERS 9P001450 | 04660 0 00000 0 00000 PCHIND PZE 0-NO PUNCH NZ-PUNCH 9P001460 | 04661 0 00000 0 00000 LSTIND PZE 0-NO LIST NZ-LIST 9P001470 | 04662 0 00000 0 00000 IND01 PZE 0 9P001480 04663 0 00000 0 00000 IND02 PZE 0 9P001490 | 04664 0 00000 0 00000 IND03 PZE 0 9P001500 | 04665 0 00000 0 00000 IND04 PZE 0 9P001510 | 04666 0 00000 0 00000 IND05 PZE 0 9P001520 | 04667 0 00000 0 00000 IND06 PZE 0 9P001530 04670 0 00000 0 00000 IND07 PZE 0 9P001540 | 04671 0 00000 0 00000 IND08 PZE 0 9P001550 | * 9P001560 | * 9P001570 | 04672 0 00000 0 00000 ZERO PZE 0 9P001580 04673 0 00000 0 00001 ONE PZE 1 9P001590 | 04674 0 00000 0 00002 TWO PZE 2 9P001600 | 04675 0 00000 0 00003 THREE PZE 3 9P001610 | 04676 0 00000 0 00004 FOUR PZE 4 9P001620 | 04677 0 00000 0 00005 FIVE PZE 5 9P001630 04700 0 00000 0 00006 SIX PZE 6 9P001640 | 04701 0 00000 0 00007 SEVEN PZE 7 9P001650 | 04702 0 00000 0 00010 EIGHT PZE 8 9P001660 | 04703 0 00000 0 00011 NINE PZE 9 9P001670 | 04704 0 00000 0 00012 TEN PZE 10 9P001680 04705 0 00000 0 00000 SP1IND PZE SPARE 9P001690 | 04706 0 00000 0 00000 IN1POS PZE IN1 POSIT AT START 9P001700 | 04707 0 00000 0 00000 NOSFD PZE 0 9P001710 | 04710 0 00000 0 00000 NOCHD PZE 0 9P001720 | 04711 3 00033 0 04533 UCOMD IORT BUFF1,,27 9P001730 04712 0 00000 0 00000 BCOMD PZE 0 9P001740 | 04713 3 00033 0 04566 IORT BUFF2,,27 9P001750 | 1 LISTING OF 12/01/64 PAGE 7 | COMMUNICATION REGION AND SUBROUTINES. | * CONSTANT POOL USED BY IOCS ROUTINES 9P001770 | * 9P001780 | 04714 0 00000 0 00000 L(0) PZE 0 9P001790 | 04715 0 00000 0 00001 L(1) PZE 1 9P001800 | 04716 +000000000377 L(377) OCT 377 9P001810 04717 +000000000400 L(400) OCT 400 9P001820 | 04720 0 00000 0 77777 ADDRS PZE -1 9P001830 | 04721 0 00001 0 00000 1DEC PZE 0,,1 9P001840 | 04721 1B17 EQU 1DEC 9P001850 | 04722 +000017600000 TTOCT OCT 17600000 9P001860 04723 0 00017 0 00000 L(15D) PZE 0,,15 9P001870 | 04724 0 04714 0 00000 L(0)D PZE 0,,L(0) 9P001880 | 04725 +020000000000 BIT4 DEC 1B4 9P001890 | 04726 +040000000000 BIT3 DEC 1B3 9P001900 | 04727 0 77777 0 00000 DECRE PZE 0,,-1 9P001910 04730 1 00000 0 00000 1PRE PON 0 9P001920 | 04731 2 00000 0 00000 PTW PTW 0 9P001930 | 04732 3 00000 0 00000 PTH PTH 0 9P001940 | 04733 -0 00000 0 00000 FOR FOR 0 9P001950 | 04734 -1 00000 0 00000 FVE FVE 0 9P001960 04735 -2 00000 0 00000 6PRE SIX 0 9P001970 | 04736 +100677777777 L(DWRC OCT 100677777777 9P001980 | 04737 +000600000000 LDWRC OCT 000600000000 9P001990 | 04740 0 00000 0 00002 L(2) PZE 2 9P002000 | 04741 0 00000 0 00003 L(3) PZE 3 9P002010 04742 0 00000 0 00050 L(40) PZE 40 9P002020 | 04743 0 00000 0 00721 L(465) PZE 465 9P002030 | 04744 606060606060 BLNKS BCI 1, 9P002040 | 04745 -3 00000 0 00000 7PRE SVN 0 9P002050 | 04746 B1FIN BSS 0 9P002060 04746 312262226251 IBSBSR BCI 1,IBSBSR 9P002070 | 04747 312262706263 IBSYST BCI 1,IBSYST 9P002080 | 04750 312262672523 IBSXEC BCI 1,IBSXEC 9P002090 | 04751 536263464760 CSTOP BCI 1,$STOP 9P002100 | 1 LISTING OF 12/01/64 PAGE 8 COMMUNICATION REGION AND SUBROUTINES. | | * 9P002120 | * 9P002130 | * THE FOLLOWING ROUTINE READS A SYSTEM RECORD AND TRANSFERS TO IT 9P002140 * 9P002150 | * 9P002160 | 04752 0634 00 4 04763 SYSRD SXA SYSRD1,4 9P002170 | 04753 -0500 00 4 00001 CAL 1,4 9P002180 | 04754 0602 00 0 00102 SLW SYSCUR 9P002190 04755 0602 00 0 04762 SLW SYSRD2+1 9P002200 | 04756 1 77777 4 04757 TXI *+1,4,-1 BYPASS THE BCI WORD 9P002210 | 04757 -0625 00 0 05030 STL STZRET SET SWITCH FOR RETURN 9P002220 | 04760 0020 00 0 05014 TRA STZLUP+1 9P002230 | D 04761 0074 01 4 00121 SYSRD2 TSX SYSLDR,4,1 9P002240 04762 114721236060 BCI 1,9PAC 9P002250 | 04763 0 00000 4 00000 SYSRD1 PZE **,4 STORAGE FOR XR4 9P002260 | * 9P002270 | * 9P002280 | *SUBROUTINE TO BACKSPACE A FILE ON THE SYSTEM TAPE. 9P002290 * CALLING SEQUENCE 9P002300 | * TSX BSFSYS,2 9P002310 | * RETURN 9P002320 | * 9P002330 | * 9P002340 04764 0520 00 0 04407 BSFSYS ZET DISCIN 9P002350 | 04765 0020 00 2 00001 TRA 1,2 9P002360 | 04766 0074 00 4 05505 TSX NDSRT,4 9P002370 | 04767 0 00006 0 00024 PZE 20,,6 9P002380 | 04770 0020 00 2 00001 TRA 1,2 9P002390 * 9P002400 | * 9P002410 | * 9P002420 | *SUBROUTINE TO BACKSPACE RECORD ON THE SYSTEM TAPE. 9P002430 | * CALLING SEQUENCE 9P002440 * TSX BSRSYS,2 9P002450 | * RETURN 9P002460 | * 9P002470 | * 9P002480 | 04771 0520 00 0 04407 BSRSYS ZET DISCIN 9P002490 04772 0020 00 2 00001 TRA 1,2 9P002500 | 04773 0074 00 4 05505 TSX NDSRT,4 9P002510 | 04774 0 00005 0 00024 PZE 20,,5 9P002520 | 04775 0020 00 2 00001 TRA 1,2 9P002530 | * 9P002540 * 9P002550 | * 9P002560 | *SUBROUTINE TO FORWARD SPACE A FILE ON THE SYSTEM TAPE. 9P002570 | * CALLING SEQUENCE 9P002580 | * TSX FSFSYS,2 9P002590 * RETURN 9P002600 | * 9P002610 | * 9P002620 | 04776 0520 00 0 04407 FSFSYS ZET DISCIN 9P002630 | 04777 0020 00 2 00001 TRA 1,2 9P002640 05000 0074 00 4 05255 TSX RD(WR),4 9P002650 | 05001 0 05012 0 00024 PZE 20,,FSRIOC 9P002660 | 1 LISTING OF 12/01/64 PAGE 9 | COMMUNICATION REGION AND SUBROUTINES. | 05002 0020 00 0 05000 TRA *-2 9P002670 | 05003 0020 00 2 00001 TRA 1,2 9P002680 | * 9P002690 | * 9P002700 | * 9P002710 *SUBROUTINE TO FORWARD SPACE A RECORD ON THE SYSTEM TAPE. 9P002720 | * CALLING SEQUENCE 9P002730 | * TSX FSRSYS,2 9P002740 | * RETURN 9P002750 | * 9P002760 * 9P002770 | 05004 0520 00 0 04407 FSRSYS ZET DISCIN 9P002780 | 05005 0020 00 2 00001 TRA 1,2 9P002790 | 05006 0074 00 4 05255 TSX RD(WR),4 9P002800 | 05007 0 05012 0 00024 PZE 20,,FSRIOC 9P002810 05010 0761 00 0 00000 NOP 9P002820 | 05011 0020 00 2 00001 TRA 1,2 9P002830 | 05012 3 00005 2 05012 FSRIOC IORTN *,,5 9P002840 | 1 LISTING OF 12/01/64 PAGE 10 | COMMUNICATION REGION AND SUBROUTINES. | *STORE ZERO LOOP SUB-ROUTINE 9P002860 | *THIS ROUTINE ZEROES ONE OR MORE AREAS OF CORE AS 9P002870 | * DESIGNATED IN THE CALLING SEQUENCE 9P002880 | * 9P002890 * 9P002900 | * CALLING SEQUENCE 9P002910 | * 9P002920 | * TSX STZLUP,4 9P002930 | * PRE FWA,,LWA-FWA 9P002940 * 9P002950 | * FWA IS THE FIRST WORD TO BE ZEROED 9P002960 | * LWA IS THE LAST WORD OF THE AREA TO BE ZEROED 9P002970 | * PRE IS MZE IF THERE ARE MORE AREAS TO BE ZEROED, 9P002980 | * PZE FOR THE LAST AREA TO BE ZEROED 9P002990 * NOTE, LWA IS NOT ITSELF ZEROED 9P003000 | * 9P003010 | 05013 0600 00 0 05030 STZLUP STZ STZRET 9P003020 | 05014 0634 00 2 05024 SXA STZLP2,2 9P003030 | 05015 0500 00 4 00001 STZLP1 CLA 1,4 9P003040 05016 -0734 00 2 00000 PDX 0,2 9P003050 | 05017 0621 00 0 05020 STA *+1 9P003060 | 05020 0600 00 2 00000 STZ **,2 ZERO CELLS 9P003070 | 05021 2 00001 2 05020 TIX *-1,2,1 9P003080 | 05022 0120 00 0 05024 TPL STZLP2 IF 1,4 MINUS, THERE IS MORE TO ZERO 9P003090 05023 1 77777 4 05015 TXI STZLP1,4,-1 9P003100 | 05024 0774 00 2 00000 STZLP2 AXT **,2 9P003110 | 05025 -0520 00 0 05030 NZT STZRET WHERE DID WE COME FROM 9P003120 | 05026 0020 00 4 00002 TRA 2,4 FROM A TSX STZLUP,4 9P003130 | 05027 0020 00 0 04761 TRA SYSRD2 FROM SYSRD 9P003140 05030 0 00000 0 00000 STZRET PZE 0 9P003150 | * 9P003160 | * 9P003170 | *WHEN FIXED OBJECT IS READ, TRANSFER IS TO START. 9P003180 | * 9P003190 * 9P003200 | 05031 0761 00 0 00000 START NOP POSSIBLE LINK TO SYSIDR 9P003210 | 05032 0761 00 0 00000 NOP POSSIBLE LINK TO SYSIDR 9P003220 | 05033 0020 00 0 00000 STOBJ TRA ** 9P003230 | * 9P003240 * THE FOLLOWING ROUTINE REPOSITIONS THE SYSTEM TAPE TO THE INITIAL 9P003250 | * RECORD AND SIMULATES AN EXECUTE 9PAC CONTROL CARD 9P003260 | * 9P003270 | * THE CALLING SEQUENCE IS EITHER 9P003280 | * TRA IOCS 9P003290 * OR TRA 9PAC 9P003300 | * 9P003310 | 05034 -0534 00 1 04377 JOBEND LXD LUNBLK,1 9P003320 | 05035 -3 00000 1 05055 TXL JOBEN6,1,0 9P003330 | 05036 -0534 00 2 04377 LXD LUNBLK,2 9P003340 05037 1 04364 1 05040 TXI *+1,1,UBLOK 9P003350 | 05040 0634 00 1 05044 SXA *+4,1 PUT SYMBOLIC DESIGNATION IN 9P003360 | 05041 0634 00 1 05046 SXA *+5,1 ADDRESS OF UCB WORD 1 9P003370 | 05042 0634 00 1 05047 SXA *+5,1 FOR EACH INTERSYSTEM RESERVE 9P003380 | 05043 0634 00 1 05052 SXA *+7,1 UNIT USED BY THIS JOB 9P003390 05044 -0500 00 2 00000 CAL **,2 9P003400 | 1 LISTING OF 12/01/64 PAGE 11 | COMMUNICATION REGION AND SUBROUTINES. | | 05045 0771 00 0 00022 ARS 18 9P003410 05046 0621 60 2 00000 STA* **,2 9P003420 | 05047 0441 60 2 00000 LDI* **,2 9P003430 | 05050 -0057 00 200000 RIL 200000 9P003440 | 05051 -0055 00 400000 SIL 400000 9P003450 | 05052 0604 00 2 00000 STI **,2 9P003460 05053 2 00001 2 05044 TIX *-7,2,1 9P003470 | 05054 -0634 00 0 04377 SXD LUNBLK,0 9P003480 | 05055 -0500 00 0 04505 JOBEN6 CAL SYMTAP-20 9P003490 | 05056 0737 00 1 00000 PAC 0,1 9P003500 | 05057 0622 00 0 05132 STD JOBEN3 9P003510 05060 -0520 00 0 05132 NZT JOBEN3 IS 9PAC FIRST 9P003520 | 05061 0020 00 0 05110 TRA JOBEN2 9P003530 | 05062 -0500 00 1 00002 CAL 2,1 TEST FOR CORRECT POSITION 9P003540 | 05063 -0320 00 0 05133 ANA JOBEN4 9P003550 | 05064 0322 00 0 05132 ERA JOBEN3 9P003560 05065 -0100 00 0 05100 TNZ JOBEN1 9P003570 | 05066 0761 00 0 00000 RDSYS NOP POSSIBLE LINK TO SYSIDR 9P003580 | 05067 0761 00 0 00000 NOP POSSIBLE LINK TO SYSIDR 9P003590 | 05070 0761 00 0 00000 NOP POSSIBLE LINK TO SYSIDR 9P003600 | 05071 0761 00 0 00000 NOP POSSIBLE LINK TO SYSIDR 9P003610 05072 0500 00 0 00133 CLA SYSJOB TO RESTORE AVAIL. CHAIN IF $JOB 9P003620 | 05073 -0760 00 0 00003 SSM B 9P003630 | 05074 0601 00 0 00133 STO SYSJOB B 9P003640 | 05075 0074 00 4 04752 TSX SYSRD,4 IS OK-READ 9P101 9P003650 | 05076 114721236060 LD9PAC BCI 1,9PAC LOADER 9P003660 05077 0 24450 0 31501 PZE REDAOL,,REDAOL-START 9P003670 | 05100 0074 00 2 04764 JOBEN1 TSX BSFSYS,2 9PAC NOT FIRST, 9P003680 | 05101 0074 00 2 05004 TSX FSRSYS,2 BACKSPACE ONE FILE 9P003690 | 05102 -0500 00 1 00002 CAL 2,1 TEST FOR CORRECT POSITION 9P003700 | 05103 -0320 00 0 05133 ANA JOBEN4 9P003710 05104 0322 00 0 05132 ERA JOBEN3 9P003720 | 05105 0100 00 0 05066 TZE RDSYS IS OK-READ 9P101 9P003730 | 05106 0074 00 2 04764 TSX BSFSYS,2 NG--TRY AGAIN 9P003740 | 05107 0020 00 0 05100 TRA JOBEN1 9P003750 | * 9P003760 * 9P003770 | 05110 0520 00 0 04407 JOBEN2 ZET DISCIN 9P003780 | 05111 0020 00 0 05066 TRA RDSYS 9P003790 | 05112 0074 00 4 05505 TSX NDSRT,4 9PAC IS FIRST 9P003800 | 05113 0 00003 0 00024 PZE 20,,3 REWIND 9P003810 05114 0020 00 0 05066 TRA RDSYS 9P003820 | * 9P003830 | * 9P003840 | * 9P003850 | * 9P003860 * 9P003870 | * 9P003880 | * 9P003890 | 05115 0761 00 0 00000 SGNOFF NOP POSSIBLE LINK TO SYSIDR 9P003900 | 05116 0761 00 0 00000 NOP POSSIBLE LINK TO SYSIDR 9P003910 05117 0020 00 0 00103 TRA SYSRET 9P003920 | 05120 BSS 10 9P003930 | 05132 0 00000 0 00000 JOBEN3 PZE 0 9P003940 | 05133 +077777077777 JOBEN4 OCT 077777077777 9P003950 | 1 LISTING OF 12/01/64 PAGE 12 COMMUNICATION REGION AND SUBROUTINES. | | *THE FOLLOWING ROUTINE, WHEN ENTERED WITH A 9P003970 | * TSX LOST,4 9P003980 | * WILL POSITION THE PARAMETER INPUT TO THE START OF THE NEXT 9P003990 * JOB AND PRINT ON-LINE THE FOLLOWING MESSAGES. 9P004000 | * 9P004010 | * 9PAC (RECORD) LOST CONTROL AT XXXXXX 9P004020 | * CANNOT CONTINUE THIS JOB 9P004030 | * ANY KEY DOWN --DUMP, PROCEED TO NEXT 9P004040 * ALL KEYS UP PROCEED TO NEXT 9P004050 | * OPERATOR ACTION PAUSE 9P004060 | * 9P004070 | *WHEN ENTRY IS MADE WITH A 9P004080 | * TSX DDEAD,4 9P004090 * THE FIRST LINE OF THE ABOVE MESSAGE IS OMITTED. 9P004100 | * 9P004110 | * 9P004120 | 05134 0634 00 4 05205 DDEAD SXA LOSTS1,4 9P004130 | 05135 0020 00 0 05154 TRA LOST10 9P004140 05136 0634 00 4 05205 LOST01 SXA LOSTS1,4 9P004150 | 05137 0602 00 0 05206 SLW LOSTS2 9P004160 | 05140 -0600 00 0 05207 STQ LOSTS3 9P004170 | 05141 0604 00 0 05210 STI LOSTS4 9P004180 | 05142 -0500 00 0 00102 CAL SYSCUR 9P004190 05143 0602 00 0 05212 SLW LOSTM1+1 9P004200 | 05144 -0754 00 4 00000 PXD 0,4 9P004210 | 05145 0760 00 0 00006 COM 9P004220 | 05146 0400 00 0 04673 ADD ONE 9P004230 | 05147 -0130 00 0 00000 XCL 9P004240 05150 0074 00 4 00720 TSX (BCD5R,4 9P004250 | 05151 0602 00 0 05216 SLW LOSTM1+5 9P004260 | 05152 0074 00 4 05642 TSX NLIST,4 9P004270 | 05153 0 04006 0 05211 PZE LOSTM1,,6+512*4 9P004280 | 05154 0074 00 4 05237 LOST10 TSX STNEXT,4 9P004290 05155 0074 00 4 05642 TSX NLIST,4 9P004300 | 05156 -0 04004 0 05217 MZE LOSTM2,,4+512*4 9P004310 | 05157 -0 00006 0 05223 MZE LOSTM3,,6 9P004320 | 05160 0 00006 0 05231 PZE LOSTM4,,6 9P004330 | 05161 -0534 00 1 04377 LXD LUNBLK,1 9P004340 05162 -0534 00 2 04377 LXD LUNBLK,2 9P004350 | 05163 -3 00000 1 05174 TXL LOST20,1,0 9P004360 | 05164 1 04364 1 05165 TXI *+1,1,UBLOK 9P004370 | 05165 0634 00 1 05167 SXA *+2,1 RESET RESERVE STATUS BITS 9P004380 | 05166 0634 00 1 05171 SXA *+3,1 IN RESERVE UNITS USED BY 9P004390 05167 0441 60 2 00000 LDI* **,2 THIS JOB. 9P004400 | 05170 -0057 00 040000 RIL 040000 9P004410 | 05171 0604 60 2 00000 STI* **,2 9P004420 | 05172 2 00001 2 05167 TIX *-3,2,1 9P004430 | 05173 -0634 00 0 04377 SXD LUNBLK,0 9P004440 05174 0074 00 4 00712 LOST20 TSX (PAUSE,4 9P004450 | 05175 0760 00 0 00004 ENK 9P004460 | 05176 -0130 00 0 00000 XCL 9P004470 | 05177 -0100 00 0 00115 TNZ SYSDMP 9P004480 | 05200 -0500 00 0 04721 CAL 1DEC SET BIT 17 OF 9P004490 05201 -0602 00 0 00133 ORS SYSJOB SYSJOB ON 9P004500 | 05202 -0500 00 0 04750 CAL IBSXEC 9P004510 | 1 LISTING OF 12/01/64 PAGE 13 | COMMUNICATION REGION AND SUBROUTINES. | 05203 0602 00 0 00132 SLW SYSGET SET SYSGET 9P004520 | 05204 0020 00 0 00103 TRA GOIBS TRA SYSRET 9P004530 | * 9P004540 | * 9P004550 | 05205 0 00000 0 00000 LOSTS1 PZE 0 9P004560 05206 0 00000 0 00000 LOSTS2 PZE 0 9P004570 | 05207 0 00000 0 00000 LOSTS3 PZE 0 9P004580 | 05210 0 00000 0 00000 LOSTS4 PZE 0 9P004590 | * 9P004600 | 05211 114721236074 LOSTM1 BCI 6,9PAC (XXXXXX) LOST CONTROL AT XXXXXX 9P004610 05217 232145454663 LOSTM2 BCI 4,CANNOT CONTINUE THIS JOB 9P004620 | 05223 214570604225 LOSTM3 BCI 6,ANY KEY DOWN --DUMP, PROCEED TO NEXT 9P004630 | 05231 214343604225 LOSTM4 BCI 6,ALL KEYS UP -- PROCEED TO NEXT 9P004640 | * 9P004650 | * 9P004660 *THE FOLLOWING ROUTINE POSITIONS SYSIN1 (PARAMETERS. TAPE 9P004670 | * TO THE START OF THE NEXT JOB. 9P004680 | * 9P004690 | * 9P004700 | 05237 0634 00 4 05252 STNEXT SXA STNEX1,4 9P004710 05240 0535 00 4 04504 LAC SYMTAP-21,4 9P004720 | 05241 -0500 00 4 00002 CAL 2,4 9P004730 | 05242 -0320 00 0 05254 ANA STNEX2 9P004740 | 05243 0100 00 0 05252 TZE STNEX1 9P004750 | 05244 -0500 00 0 05245 CAL *+1 9P004760 05245 0761 00 0 00000 NOP 9P004770 | 05246 0602 00 0 05301 SLW RDWR08 9P004780 | 05247 0074 00 4 05255 TSX RD(WR),4 9P004790 | 05250 2 04711 0 00025 PTW 21,,UCOMD 9P004800 | 05251 0020 00 0 05247 TRA *-2 9P004810 05252 0774 00 4 00000 STNEX1 AXT **,4 9P004820 | 05253 0020 00 4 00001 TRA 1,4 9P004830 | * 9P004840 | 05254 0 00000 0 77777 STNEX2 PZE -1 9P004850 | * 9P004860 * 9P004870 | 1 LISTING OF 12/01/64 PAGE 14 | GENERATORS CENTRAL I-O. | | *ACTIVITY OF DATA SELECTION AT 9PAC GENERATION TIME. 9P004890 * 9P004900 | * 9P004910 | *CALLING SEQUENCE 9P004920 | * 9P004930 | * TSX RD(WR),4 9P004940 * PRE UNIT,T,COMD 9P004950 | * RETURN 1 9P004960 | * RETURN 2 9P004970 | * 9P004980 | *WHERE 9P004990 * PRE IS PZE--READ WITH MESSAGE PRINTED ON REDUNDANCY 9P005000 | * PTW--READ WITHOUT MESSAGE PRINTED ON REDUNDANCY 9P005010 | * FOR--WRITE WITH MESSAGE PRINTED ON REDUNDANCY 9P005020 | * SIX--WRITE WITHOUT MESSAGE PRINTED ON REDUNDANCY 9P005030 | * 9P005040 * UNIT IS SYMBOLIC TAPE NUMBER AS FOLLOWS-- 9P005050 | * 00-19--CUSTOMER INPUT OR OUTPUT TAPES 9P005060 | * 20 --SYSTEM TAPE 9P005070 | * 21 --PARAMETER INPUT 9P005080 | * 22 --OBJECT PROGRAM PUNCH TAPE 9P005090 * 23 --LISTING TAPE 9P005100 | * 24 --SKEL. OBJECT PROGRAM 9P005110 | * 25 --FINAL OBJECT PROGRAM 9P005120 | * 26 --FP,HORIZ SEL--RG, TABLE OVERFLOW 9P005130 | * 27 --FP,PREPRO IN--RG, HAND CALC 9P005140 * 28 --FP,NOT USED --RG, OUTPUT DICT. 9P005150 | * 9P005160 | * T IS ZERO--SINGLE UNBUFFERED REQUEST 9P005170 | * ONE---BUFFERED REQUEST 9P005180 | * 9P005190 * 9P005200 | * COMD IS LOCATION OF I-O LIST, IF T IS ZERO 9P005210 | * LOCATION OF CELL BETWEEN TWO I-O COMMANDS 9P005220 | * IF T IS ONE, E.G. 9P005230 | * IORT BUF2,,N 9P005240 * COMD PZE A ,,LOC 9P005250 | * IORT BUF1,,N 9P005260 | * WHERE A IS ALTERNATOR, ORIG ZERO 9P005270 | * LOC IS CURRENT BUFFER LOCATION 9P005280 | * 9P005290 * 9P005300 | * RETURN 1 IS NORMAL 9P005310 | * 9P005320 | * 9P005330 | * RETURN 2 EOF ON READ, ETT ON WRITE 9P005340 * 9P005350 | * 9P005360 | *THE FOLLOWING IS THE FORMAT OF THE SYMBOLIC TAPE TABLE. 9P005370 | * 9P005380 | * BIT POSITION MEANING 9P005390 * S 1-TAPE IS LABELED, 0-NOT LABELED 9P005400 | * 1 1-BINARY MODE, 0-BCD MODE 9P005410 | * 2 1-HIGH DENSITY LABEL, 0-LOW DENSITY 9P005420 | * 3-17 TAPE POSITION, NUMBER OF FILES--SCRATCH USE ONLY. 9P005430 | 1 LISTING OF 12/01/64 PAGE 15 GENERATORS CENTRAL I-O. | | * 3-5 PADDING INDICATOR, CUSTOMER TAPES ONLY 9P005440 | * 6-17 BLOCKSIZE, CUSTOMER TAPES ONLY 9P005450 | * 18 1-DICT PRESENT, 0-NO DICTIONARY 9P005460 * 19 1-BINARY, 0-BCD MODE AT GENERATION TIME 9P005470 | * 20 1-HIGH, 0-LOW DENSITY AT GENERATION TIME 9P005480 | * 21-35 LOCATION OF UNIT CONTROL WORD 9P005490 | * 9P005500 | *THE FOLLOWING SPECIAL USE IS MADE OF THE UCB. 9P005510 * 9P005520 | * ON ENTRY TO SELECT PLUS 9P005530 | * UCB WORD 2 TAG IS BITS 18-20 OF SYMBOLIC TAPE TABLE 9P005540 | * UCB WORD 2 ADDRESS IS LOCATION OF I-O LIST 9P005550 | * 9P005560 * ON EXIT FROM TRAP. 9P005570 | * UCB WORD 1 BIT 21 IS 1 IF EITHER EOF OR ETT, 0 OTHERWISE. 9P005580 | * 9P005590 | 05255 0634 00 1 05346 RD(WR) SXA RDWR87,1 9P005600 | 05256 0634 00 2 05347 SXA RDWR88,2 9P005610 05257 0634 00 4 05350 SXA RDWR89,4 9P005620 | 05260 0604 00 0 05353 STI RD120 9P005630 | 05261 -0500 00 4 00001 CAL 1,4 9P005640 | 05262 0602 00 0 05354 SLW RD130 9P005650 | 05263 0625 00 0 05355 STT RD140 BUFFERING REQUEST FLAG 9P005660 05264 0630 00 0 05357 STP RD160 READ OR WRITE FLAG 9P005670 | 05265 0734 00 1 00000 PAX 0,1 9P005680 | 05266 -0500 00 1 04531 CAL SYMTAP,1 9P005690 | 05267 0602 00 0 05356 SLW RD150 9P005700 | 05270 0625 00 0 05357 STT RD160 MODE INDICATOR 9P005710 05271 0520 00 0 05355 ZET RD140 WAS BUFFERING REQUESTED 9P005720 | 05272 0020 00 0 05303 TRA RDWR10 9P005730 | 05273 0074 00 4 05364 TSX ISS01,4 NO--ISSUE REQ. TO IOEX 9P005740 | 05274 0535 00 4 05356 LAC RD150,4 9P005750 | 05275 0520 00 4 00001 ZET 1,4 WAIT FOR COM 9P005760 05276 0020 00 0 05275 TRA *-1 9P005770 | 05277 -3 00024 1 05337 TXL RDWR80,1,20 IF PARAMETER INPUT 9P005780 | 05300 3 00025 1 05337 TXH RDWR80,1,21 9P005790 | 05301 0074 00 4 06303 RDWR08 TSX CONVRT,4 CONVERT TO CARD AND 9P005800 | 05302 0020 00 0 05337 TRA RDWR80 RETURN TO MAIN 9P005810 * 9P005820 | * 9P005830 | * 9P005840 | *IF BUFFERING WERE REQUESTED 9P005850 | * 9P005860 05303 -0535 00 4 05354 RDWR10 LDC RD130,4 IS IT FIRST REQUEST 9P005870 | 05304 -0500 00 4 00000 CAL 0,4 9P005880 | 05305 -0734 00 2 00000 PDX 0,2 9P005890 | 05306 3 00000 2 05315 TXH RDWR20,2,0 9P005900 | 05307 0774 00 2 00001 AXT 1,2 YES--INITIALIZE FLIP-FLOP 9P005910 05310 -0754 00 2 00000 PXD 0,2 9P005920 | 05311 0622 00 4 00000 STD 0,4 9P005930 | 05312 0500 00 0 05354 CLA RD130 IS IT 1ST READ 9P005940 | 05313 -0120 00 0 05315 TMI RDWR20 9P005950 | 05314 0074 00 4 05364 TSX ISS01,4 YES 9P005960 * 9P005970 | * 9P005980 | 1 LISTING OF 12/01/64 PAGE 16 | GENERATORS CENTRAL I-O. | 05315 0535 00 4 05356 RDWR20 LAC RD150,4 WAIT FOR PREVIOUS REQUEST 9P005990 | 05316 0520 00 4 00001 ZET 1,4 9P006000 | 05317 0020 00 0 05316 TRA *-1 9P006010 | 05320 -0500 00 4 00000 CAL 0,4 DID LAST REQUEST RESULT 9P006020 | 05321 -0320 00 0 05360 ANA RD170 IN EOF OR ETT 9P006030 05322 -0100 00 0 05334 TNZ RDWR75 9P006040 | 05323 -3 00024 1 05332 TXL RDWR70,1,20 NO 9P006050 | 05324 3 00025 1 05332 TXH RDWR70,1,21 IF PARAMER INPUT 9P006060 | 05325 0074 00 4 06303 TSX CONVRT,4 CONVERT TO CARD 9P006070 | 05326 -0500 00 0 04622 CAL CARD+1 9P006080 05327 -0320 00 0 05362 ANA RD181 9P006090 | 05330 0322 00 0 05361 ERA RD180 SHOULD BUFFERING BE STOPPED 9P006100 | 05331 0100 00 0 05334 TZE RDWR75 9P006110 | 05332 0074 00 4 05364 RDWR70 TSX ISS01,4 NO-ISSUE REQUEST FOR NEXT 9P006120 | 05333 0020 00 0 05337 TRA RDWR80 9P006130 * 9P006140 | 05334 -0535 00 4 05354 RDWR75 LDC RD130,4 RDWR759P006150 | 05335 0760 00 0 00000 CLM 9P006160 | 05336 0622 00 4 00000 STD 0,4 9P006170 | * 9P006180 * 9P006190 | 05337 0535 00 4 05356 RDWR80 LAC RD150,4 RETURN TO MAIN 9P006200 | 05340 0560 00 4 00000 LDQ 0,4 9P006210 | 05341 -0500 00 0 05363 CAL RD182 9P006220 | 05342 0320 00 4 00000 ANS 0,4 9P006230 05343 -0130 00 0 00000 XCL 9P006240 | 05344 -0320 00 0 05360 ANA RD170 9P006250 | 05345 0441 00 0 05353 LDI RD120 9P006260 | 05346 0774 00 1 00000 RDWR87 AXT **,1 9P006270 | 05347 0774 00 2 00000 RDWR88 AXT **,2 9P006280 05350 0774 00 4 00000 RDWR89 AXT **,4 9P006290 | 05351 0100 00 4 00002 TZE 2,4 9P006300 | 05352 0020 00 4 00003 TRA 3,4 9P006310 | * 9P006320 | *RD(WR) STORAGE 9P006330 * 9P006340 | 05353 0 00000 0 00000 RD120 PZE 0 INDICATORS ON ENTRY 9P006350 | 05354 0 00000 0 00000 RD130 PZE 0 CALL SEQ WORD 9P006360 | 05355 0 00000 0 00000 RD140 PZE 0 CALL SEQ TAG 9P006370 | 05356 0 00000 0 00000 RD150 PZE 0 SYMTAP ENTRY 9P006380 05357 0 05427 0 00000 RD160 PZE 0,,SELECT UCW WORD 2 9P006390 | 05360 +000000400000 RD170 OCT 000000400000 EOF-EOT MASK 9P006400 | 05361 542545240000 RD180 BCI 1,*END00 UNBUFFERING CONSTANT 9P006410 | 05362 -377777770000 RD181 OCT 777777770000 9P006420 | 05363 -377777377777 RD182 OCT 777777377777 9P006430 1 LISTING OF 12/01/64 PAGE 17 | GENERATORS CENTRAL I-O. | | * 9P006450 | *THIS ROUTINE HANDLES INTERCHANGE OF BUFFERS 9P006460 * AND REQUESTING A RECORD FROM IOEX 9P006470 | * 9P006480 | * 9P006490 | 05364 0634 00 4 05423 ISS01 SXA ISS30,4 9P006500 | 05365 -0534 00 4 05354 LXD RD130,4 9P006510 05366 0520 00 0 05355 ZET RD140 WAS BUFFERING REQUESTED 9P006520 | 05367 0020 00 0 05372 TRA ISS08 9P006530 | 05370 0634 00 4 05357 SXA RD160,4 NO--GIVE I-O COMD LIST 9P006540 | 05371 0020 00 0 05404 TRA ISS20 9P006550 | * 9P006560 05372 0634 00 4 05376 ISS08 SXA ISS12,4 YES--FLIP BUFFERS 9P006570 | 05373 0634 00 4 05400 SXA ISS14,4 9P006580 | 05374 0634 00 4 05401 SXA ISS15,4 9P006590 | 05375 -0634 00 4 05402 SXD ISS16,4 9P006600 | 05376 -0535 00 4 00000 ISS12 LDC **,4 9P006610 05377 -0500 60 0 05376 CAL* *-1 9P006620 | 05400 0621 00 0 00000 ISS14 STA ** 9P006630 | 05401 -0634 00 4 00000 ISS15 SXD **,4 9P006640 | 05402 1 00000 4 05403 ISS16 TXI *+1,4,** 9P006650 | 05403 0634 00 4 05357 SXA RD160,4 GIVE I-O COMD LIST 9P006660 * 9P006670 | 05404 0535 00 4 05356 ISS20 LAC RD150,4 GIVE REQUEST TO IOEX 9P006680 | 05405 0520 00 4 00001 ZET 1,4 WAIT LOOP 9P006690 | 05406 0020 00 0 05405 TRA *-1 9P006700 | 05407 -0500 00 0 05357 CAL RD160 9P006710 05410 0564 00 0 04714 ENB L(0) 9P006720 | 05411 0602 00 4 00001 SLW 1,4 9P006730 | 05412 0564 60 0 00734 ENB* TRAPX 9P006740 | 05413 0074 00 4 00702 TSX (ACTIV,4 UNIT AVAILABLE 9P006750 | 05414 0 00000 1 04531 PZE SYMTAP,1 9P006760 05415 -3 00024 1 05423 TXL ISS30,1,20 9P006770 | 05416 -3 00025 1 05421 TXL ISS28,1,21 9P006780 | 05417 -3 00026 1 05425 TXL ISS32,1,22 9P006790 | 05420 0020 00 0 05423 TRA ISS30 9P006800 | 05421 -0500 00 0 05357 ISS28 CAL RD160 SET UP CONV LOC FOR PARM INPUT 9P006810 05422 0621 00 0 06307 STA CONV3 9P006820 | * 9P006830 | 05423 0774 00 4 00000 ISS30 AXT **,4 RETURN 9P006840 | 05424 0020 00 4 00001 TRA 1,4 9P006850 | * 9P006860 05425 0074 00 4 06504 ISS32 TSX KMA50,4 INCR SERIALS FOR PCH OUT 9P006870 | 05426 0020 00 0 05423 TRA ISS30 9P006880 | 1 LISTING OF 12/01/64 PAGE 18 | GENERATORS CENTRAL I-O. | * 9P006900 | *THE FOLLOWING ROUTINES SUPPLEMENT IOEX, I.E. REPLACE IOBS. 9P006910 | * 9P006920 | * 9P006930 | 05427 0634 00 4 05454 SELECT SXA SELP2,4 9P006940 05430 0634 00 1 05455 SXA SELP3,1 9P006950 | 05431 0737 00 4 00000 PAC 0,4 9P006960 | 05432 -0120 00 0 05461 TMI SELMI 9P006970 | *SELECT PLUS ENTRY 9P006980 | 05433 -0500 00 4 00001 SELPL CAL 1,4 9P006990 05434 0621 60 0 00727 STA* (RCHXI 9P007000 | 05435 -0320 00 0 05457 ANA SELP4 9P007010 | 05436 0767 00 0 00006 ALS 6 9P007020 | 05437 0361 00 4 00000 ACL 0,4 9P007030 | 05440 0771 00 0 00022 ARS 18 9P007040 05441 0621 00 0 05452 STA SELP1 9P007050 | 05442 0560 00 4 00001 LDQ 1,4 9P007060 | 05443 -0500 00 0 05460 CAL SELP5 9P007070 | 05444 0162 00 0 05446 TQP *+2 9P007080 | 05445 0767 00 0 00017 ALS 15 9P007090 05446 -0773 00 0 00001 RQL 1 9P007100 | 05447 0162 00 0 05451 TQP *+2 9P007110 | 05450 0600 60 0 00726 STZ* (RCTXI 9P007120 | 05451 0622 00 0 05452 STD SELP1 9P007130 | 05452 0762 00 0 00000 SELP1 RDS ** 9P007140 05453 0522 60 0 00727 XEC* (RCHXI 9P007150 | 05454 0774 00 4 00000 SELP2 AXT **,4 9P007160 | 05455 0774 00 1 00000 SELP3 AXT **,1 9P007170 | 05456 0020 00 4 00001 TRA 1,4 9P007180 | 05457 +000000200000 SELP4 OCT 000000200000 9P007190 05460 +076200766000 SELP5 OCT 076200766000 9P007200 | 05461 -0500 00 0 05501 SELMI CAL SELM59 9P007210 | 05462 0320 00 4 00000 ANS 0,4 SET OBJECT RETURN SWITCH 9P007220 | 05463 -0054 00 400000 LFT 400000 IS RECORD SHORT 9P007230 | 05464 0020 00 0 05472 TRA SELMI2 NO 9P007240 05465 -0500 00 0 05454 CAL SELP2 YES 9P007250 | 05466 0402 00 0 05502 SUB SELM6 9P007260 | 05467 0621 00 0 05454 STA SELP2 9P007270 | 05470 0500 00 4 00001 CLA 1,4 9P007280 | 05471 0120 00 0 05454 TPL SELP2 READ 9P007290 05472 -0046 00 0 00000 SELMI2 PIA 9P007300 | 05473 0771 00 0 00021 ARS 17 9P007310 | 05474 -0320 00 0 05503 ANA SELM7 9P007320 | 05475 -0602 00 4 00000 ORS 0,4 9P007330 | 05476 -0500 00 0 05504 CAL SELM8 9P007340 05477 0320 00 4 00001 ANS 1,4 9P007350 | 05500 0020 00 0 05454 TRA SELP2 9P007360 | * 9P007370 | * 9P007380 | * 9P007390 05501 -377777377777 SELM59 OCT 777777377777 9P007400 | 05502 +000000000001 SELM6 OCT 1 9P007410 | 05503 +000000400000 SELM7 OCT 000000400000 9P007420 | 05504 -0 00000 0 00000 SELM8 MZE 0 9P007430 | 1 LISTING OF 12/01/64 PAGE 19 GENERATORS CENTRAL I-O. | | * 9P007450 | * 9P007460 | * 9P007470 *THE FOLLOWING ROUTINE CENTRALIZES ALL NON-DATA SELECT 9P007480 | * ACTIVITY OF INPUT-OUTPUT UNITS 9P007490 | * 9P007500 | * 9P007510 | *CALLING SEQUENCE 9P007520 * 9P007530 | * TSX NDSRT,4 9P007540 | * PZE UNIT,,NDS OR PZE SYMTAP,1,NDS 9P007550 | * RETURN 9P007560 | * 9P007570 *WHERE UNIT IS SYMBOLIC TAPE NUMBER 9P007580 | * 1--SET DENSITY LOW 9P007590 | * 2--SET DENSITY HIGH 9P007600 | * 3--REW 9P007610 | * 4--RUN 9P007620 * 5--BSR 9P007630 | * 6--BSF 9P007640 | * 7--WEF 9P007650 | * 9P007660 | * 9P007670 05505 0634 00 1 05523 NDSRT SXA NDSR2,1 9P007680 | 05506 0634 00 4 05524 SXA NDSR3,4 9P007690 | 05507 -0500 00 4 00001 CAL 1,4 9P007700 | 05510 0622 00 0 05521 STD NDSR1 9P007710 | 05511 0734 00 4 00000 PAX 0,4 9P007720 05512 3 00036 4 05514 TXH *+2,4,30 9P007730 | 05513 0734 00 1 00000 PAX 0,1 9P007740 | 05514 -0500 00 1 04531 CAL SYMTAP,1 9P007750 | 05515 0737 00 4 00000 PAC 0,4 9P007760 | 05516 0520 00 4 00001 ZET 1,4 9P007770 05517 0020 00 0 05516 TRA *-1 9P007780 | 05520 0074 00 4 00704 TSX (NDATA,4 9P007790 | 05521 0 00000 1 04531 NDSR1 PZE SYMTAP,1,** 9P007800 | 05522 0761 00 0 00000 NOP 9P007810 | 05523 0774 00 1 00000 NDSR2 AXT **,1 9P007820 05524 0774 00 4 00000 NDSR3 AXT **,4 9P007830 | 05525 0020 00 4 00002 TRA 2,4 9P007840 | 1 LISTING OF 12/01/64 PAGE 20 | GENERATORS CENTRAL I-O. | * 9P007860 | * THE FOLLOWING ROUTINE HANDLES EOT FOR LIST AND PUNCH 9P007870 | * 9P007880 | * THE CALLING SEQUENCE IS 9P007890 | * TSX EOTSW,4 9P007900 * RETURN 9P007910 | * 9P007920 | * THE LAST REFERENCE TO RD(WR) IS ASSUMED AND 9P007930 | * 1. AN EOF IS WRITTEN 9P007940 | * 2. THE TAPE IS REWOUND AND UNLOADED 9P007950 * 3. A MESSAGE IS PRINTED TO THE OPERATOR 9P007960 | * 4. IF AN ALTERNATE EXISTS, A SWITCH OCCURS AND 9P007970 | * THE PROGRAM CONTINUES 9P007980 | * 5. IF NO ALTERNATE EXISTS, THE PROGRAM PAUSES FOR 9P007990 | * OPERATOR ACTION. 9P008000 * 9P008010 | * 9P008020 | 05526 0634 00 1 05612 EOTSW SXA EOT45,1 9P008030 | 05527 0634 00 2 05613 SXA EOT45+1,2 9P008040 | 05530 0634 00 4 05614 SXA EOT45+2,4 9P008050 05531 0534 00 1 05354 LXA RD130,1 9P008060 | 05532 0634 00 1 05535 SXA EOT07,1 9P008070 | 05533 0634 00 1 05537 SXA EOT09,1 9P008080 | 05534 0074 00 4 05505 TSX NDSRT,4 9P008090 | 05535 0 00007 0 00000 EOT07 PZE **,,7 WRITE EOF 9P008100 05536 0074 00 4 05505 TSX NDSRT,4 9P008110 | 05537 0 00004 0 00000 EOT09 PZE **,,4 REWIND-UNLOAD 9P008120 | 05540 -3 00026 1 05545 TXL EOT15,1,22 9P008130 | 05541 -0500 00 0 05616 CAL EOT50 IS LIST OUTPUT 9P008140 | 05542 0602 00 0 05622 SLW EOT52+2 9P008150 05543 -0774 00 2 00007 AXC 7,2 9P008160 | 05544 0020 00 0 05550 TRA EOT20 9P008170 | * 9P008180 | 05545 -0500 00 0 05617 EOT15 CAL EOT51 IS PUNCH OUTPUT 9P008190 | 05546 0602 00 0 05622 SLW EOT52+2 9P008200 05547 -0774 00 2 00013 AXC 11,2 9P008210 | * 9P008220 | 05550 -0500 00 0 00107 EOT20 CAL SYSUNI 9P008230 | 05551 0621 00 0 05561 STA EOT24 9P008240 | 05552 0400 00 0 05625 ADD EOT54 9P008250 05553 0621 00 0 05563 STA EOT26 9P008260 | * 9P008270 | * PUT UNIT TO MESSAGE 9P008280 | * 9P008290 | 05554 -0500 00 1 04531 CAL SYMTAP,1 9P008300 05555 0737 00 4 00000 PAC 0,4 9P008310 | 05556 0560 00 4 00000 LDQ 0,4 9P008320 | 05557 0074 00 4 00714 TSX (SYMUN,4 9P008330 | 05560 0602 00 0 05623 SLW EOT52+3 9P008340 | * 9P008350 05561 -0500 00 2 00000 EOT24 CAL **,2 ** EQU SYSUNI 9P008360 | 05562 0621 00 0 05624 STA EOT53 9P008370 | 05563 -0500 00 2 00000 EOT26 CAL **,2 ** EQU SYSUNI+1 9P008380 | 05564 -0320 00 0 05626 ANA EOT55 9P008390 | 05565 0100 00 0 05605 TZE EOT35 9P008400 1 LISTING OF 12/01/64 PAGE 21 | GENERATORS CENTRAL I-O. | | 05566 0322 00 0 05624 ERA EOT53 9P008410 | 05567 0100 00 0 05605 TZE EOT35 9P008420 * 9P008430 | * ALTERNATE EXISTS--SWITCH AND PROCEED 9P008440 | * 9P008450 | 05570 -0500 60 0 05563 CAL* EOT26 9P008460 | 05571 0560 60 0 05561 LDQ* EOT24 9P008470 05572 0602 60 0 05561 SLW* EOT24 9P008480 | 05573 -0600 60 0 05563 STQ* EOT26 9P008490 | 05574 -0765 00 0 00021 LGR 17 9P008500 | 05575 0400 00 0 05627 ADD EOT56 9P008510 | 05576 0622 00 0 05601 STD EOT30 9P008520 05577 0634 00 1 05601 SXA EOT30,1 9P008530 | 05600 0074 00 4 05505 TSX NDSRT,4 9P008540 | 05601 0 00000 0 00000 EOT30 PZE **,,** SET DENSITY 9P008550 | 05602 0074 00 4 05642 TSX NLIST,4 9P008560 | 05603 1 00004 0 05620 PON EOT52,,4 9P008570 05604 0020 00 0 05610 TRA EOT40 9P008580 | * 9P008590 | * NO ALTERNATE EXISTS--WAIT FOR OPERATOR 9P008600 | * 9P008610 | 05605 0074 00 4 05642 EOT35 TSX NLIST,4 9P008620 05606 1 00004 0 05620 PON EOT52,,4 9P008630 | 05607 0074 00 4 00712 TSX (PAUSE,4 9P008640 | * 9P008650 | * RETURN TO MAIN PROGRAM 9P008660 | * 9P008670 05610 -0500 60 0 05561 EOT40 CAL* EOT24 9P008680 | 05611 0621 00 1 04531 STA SYMTAP,1 9P008690 | 05612 0774 00 1 00000 EOT45 AXT **,1 9P008700 | 05613 0774 00 2 00000 AXT **,2 9P008710 | 05614 0774 00 4 00000 AXT **,4 9P008720 05615 0020 00 4 77777 TRA -1,4 9P008730 | 05616 606270624664 EOT50 BCI 1, SYSOU 9P008740 | 05617 606270624747 EOT51 BCI 1, SYSPP 9P008750 | 05620 606060605125 EOT52 BCI 4, REPLACE 9P008760 | 05624 0 00000 0 00000 EOT53 PZE TEMPORARY STORAGE 9P008770 05625 0 00000 0 00001 EOT54 PZE 1 9P008780 | 05626 +000000077777 EOT55 OCT 77777 9P008790 | 05627 0 00001 0 00000 EOT56 PZE 0,0,1 9P008800 | 1 LISTING OF 12/01/64 PAGE 22 | GENERATORS CENTRAL I-O. | * 9P008820 | * 9P008830 | * 9P008840 | * WRITE TO LIST TAPE FOR OFF-LINE PRINT OR ON-LINE PRINT T8502 9P008850 * T8504 9P008860 | * CALLING SEQUENCE- T8506 9P008870 | * T8508 9P008880 | * TSX FLIST,4 (OFF-LINE) TSX NLIST,4 (ON-LINE) T8510 9P008890 | * PRE LOC,,CT T8512 9P008900 * RETURN T8514 9P008910 | * T8516 9P008920 | *WHERE LOC IS THE LOCATION OF THE FIRST WORD OF THE LINE TO BE PRIT8518 9P008930 | * CT IS THE NUMBER OF WORDS TO BE PRINTED T8520 9P008940 | * PRE-PZE PRINT A LINE T8522 9P008950 * PON DOUBLE SPACE AND PRINT A LINE T8524 9P008960 | * PTW PRINT THIS HEADING LINE AND SAVE IT FOR SUBSEQUENT T8526 9P008970 | * PAGE HEADINGS. TO STOP HEADINGS ON EACH PAGE, T8528 9P008980 | * STZ TT020, HEAD AVAILABLE SWITCH. T8530 9P008990 | * PTH EJECT THE PAGE BEFORE PRINTING NEXT LINE T8532 9P009000 * TO PRINT MULTIPLE LINES, MAKE PREFIX MINUS, FOR FVE, SIX, ST8534 9P009010 | * ONE PREFIX WITH LOCATION AND COUNT FOR EACH LINE. THE LAST PT8536 9P009020 | * MUST BE PLUS T8538 9P009030 | * T8540 9P009040 | * 9P009050 * A TSX TO CLIST,4 IS THE SAME AS TSX N- OR FLIST EXCEPT FOR TAG 9P009060 | * OF 1,4. ACCORDING AS THE CONTENTS OF THE TAG ARE 1, 2, OR 3, 9P009070 | * A TEST IS MADE OF IND01, 02, 03 WITH APPROPRIATE TRANSFER 9P009080 | * TO N- OR FLIST. IMPROPER TAG RESULTS IN TRANSFER TO NLIST 9P009090 | * 9P009100 05630 0500 00 4 00001 CLIST CLA 1,4 9P009110 | 05631 -0320 00 0 05641 ANA CLIST1 TAG MASK 9P009120 | 05632 0634 00 1 05742 SXA T9290,1 9P009130 | 05633 -0763 00 0 00003 LGL 3 9P009140 | 05634 -0737 00 1 00000 PDC 0,1 9P009150 05635 -3 77774 1 05643 TXL NLIST+1,1,-4 ILLEGAL INDICATOR. PRINT ON LINE 9P009160 | 05636 -0520 00 1 04661 NZT IND01-1,1 9P009170 | 05637 0020 00 0 05647 TRA FLIST+1 9P009180 | 05640 0020 00 0 05643 TRA NLIST+1 9P009190 | 05641 +000000700000 CLIST1 OCT 000000700000 TAG MASK 9P009200 * 9P009210 | * T8544 9P009220 | * T8546 9P009230 | * T8548 9P009240 | 05642 0634 00 1 05742 NLIST SXA T9290,1 T8600 9P009250 05643 -0625 00 0 06020 STL TT001 ON-LINE PRINT T8610 9P009260 | 05644 -0534 00 1 06021 LXD TT010,1 LOAD COUNTER T8620 9P009270 | 05645 0020 00 0 05651 TRA *+4 T8630 9P009280 | 05646 0634 00 1 05742 FLIST SXA T9290,1 T8640 9P009290 | 05647 0600 00 0 06020 STZ TT001 OFF-LINE PRINT T8650 9P009300 05650 0534 00 1 06021 LXA TT010,1 LOAD COUNTER T8660 9P009310 | 05651 0604 00 0 06023 STI TT030 T8670 9P009320 | 05652 0634 00 2 05743 SXA T9300,2 T8680 9P009330 | 05653 0634 00 4 05736 T8690 SXA T9310,4 T8690 9P009340 | 05654 -0500 00 4 00001 CAL 1,4 T8700 9P009350 05655 0602 00 0 06075 SLW TT180 SAVE 1,4 T8710 9P009360 | 1 LISTING OF 12/01/64 PAGE 23 | GENERATORS CENTRAL I-O. | | 05656 0044 00 0 00000 PAI 9P009370 05657 -3 00066 1 05703 TXL T9010,1,BCTLN-1 READY FOR NEW PAGE--N/ T8720 9P009380 | 05660 0520 00 0 06020 ZET TT001 YES T8730 9P009390 | 05661 0020 00 0 05666 TRA T8790 ON-LINE T8740 9P009400 | 05662 0074 00 4 05255 TSX RD(WR),4 PRINT JOB CARD AND DATE T8750 9P009410 | 05663 -0 06067 0 00027 FOR 23,0,TT120 T8760 9P009420 05664 1 77776 1 05674 TXI T8840,1,-2 DECREMENT COUNTER T8770 9P009430 | 05665 0074 00 4 05526 TSX EOTSW,4 T8780 9P009440 | 05666 0074 00 4 00706 T8790 TSX MWR,4 T8790 9P009450 | 05667 0 00000 0 00003 PZE 3 9P009460 | 05670 0 01000 0 00000 PZE 0,,512 EJECT T8810 9P009470 05671 0 11014 0 06031 PZE TT070,0,12+512*9 PRINT *JOB AS HEADER TT88159P009480 | 05672 0 04002 0 06045 PZE TT070+12,0,2+512*4 TT88209P009490 | 05673 1 77776 1 05674 TXI *+1,1,-2 DECREMENT COUNTER T8830 9P009500 | 05674 -0520 00 0 06022 T8840 NZT TT020 IS HEAD AVAILABLE T8840 9P009510 | 05675 0020 00 0 05703 TRA T9010 NO. EXAMINE PREFIX T8850 9P009520 05676 -0056 00 200000 LNT 200000 YES. IS NEW HEAD DESIRED T8860 9P009530 | 05677 0020 00 0 05702 TRA *+3 NO T8870 9P009540 | 05700 -0056 00 100000 LNT 100000 T8680 9P009550 | 05701 0020 00 0 05765 TRA T9510 YES. GET IT T8890 9P009560 | 05702 0074 00 2 06004 TSX T9670,2 NO. PRINT PREVIOUS HEAD T8900 9P009570 05703 -0054 00 300000 T9010 LFT 300000 PRINT LINE, SINGLE SPACE T8910 9P009580 | 05704 0020 00 0 05747 TRA T9370 NO T8920 9P009590 | 05705 -0500 00 0 06047 CAL TT080 YES T8930 9P009600 | 05706 0621 00 0 06073 STA TT160 FOR SINGLE SPACE T8940 9P009610 | 05707 -0500 00 0 06075 T9050 CAL TT180 1,4 T8950 9P009620 05710 0520 00 0 06020 ZET TT001 T8960 9P009630 | 05711 0020 00 0 05721 TRA T9160 ON LINE T8970 9P009640 | 05712 -0320 00 0 06077 ANA TT191 T8980 9P009650 | 05713 0622 00 0 06074 STD TT170 9P009660 | 05714 0621 00 0 06074 STA TT170 T9110 9P009670 05715 0074 00 4 05255 TSX RD(WR),4 PRINT SINGLE LINE T9120 9P009680 | 05716 -0 06073 0 00027 FOR 23,0,TT160 T9130 9P009690 | 05717 1 77777 1 05727 TXI T9220,1,-1 DECREMENT COUNTER T9140 9P009700 | 05720 0074 00 4 05526 TSX EOTSW,4 T9150 9P009710 | 05721 -0320 00 0 06076 T9160 ANA TT190 ON-LINE. INSURE PZE T9160 9P009720 05722 0602 00 0 05725 SLW *+3 T9170 9P009730 | 05723 0074 00 4 00706 TSX MWR,4 T9180 9P009740 | 05724 0 00000 0 00001 PZE 1 T9190 9P009750 | 05725 0 00000 0 00000 PZE ..,,.. FILLED IN ABOVE T9200 9P009760 | 05726 1 77777 1 05727 TXI *+1,1,-1 DECREMENT COUNTER T9210 9P009770 05727 -3 00002 1 05745 T9220 TXL T9350,1,2 TEST FOR PAGE BOTTOM T9220 9P009780 | 05730 0520 00 0 06020 T9230 ZET TT001 SAVE LINE COUNTER T9230 9P009790 | 05731 0020 00 0 05734 TRA *+3 T9240 9P009800 | 05732 0634 00 1 06021 SXA TT010,1 T9250 9P009810 | 05733 0020 00 0 05735 TRA *+2 T9260 9P009820 05734 -0634 00 1 06021 SXD TT010,1 T9270 9P009830 | 05735 0441 00 0 06023 LDI TT030 RESTORE T9280 9P009840 | 05736 0774 00 4 00000 T9310 AXT **,4 9P009850 | 05737 0500 00 4 00001 CLA 1,4 9P009860 | 05740 0120 00 0 05742 TPL *+2 9P009870 05741 1 77777 4 05653 TXI T8690,4,-1 MINUS FOR MULTIPLE LINES 9P009880 | 05742 0774 00 1 00000 T9290 AXT **,1 9P009890 | 05743 0774 00 2 00000 T9300 AXT **,2 9P009900 | 05744 0020 00 4 00002 TRA 2,4 9P009910 | 1 LISTING OF 12/01/64 PAGE 24 GENERATORS CENTRAL I-O. | | 05745 0774 00 1 00067 T9350 AXT BCTLN,1 RESET COUNTER T9350 9P009920 | 05746 0020 00 0 05730 TRA T9230 T9360 9P009930 | 05747 -0054 00 200000 T9370 LFT 200000 T9370 9P009940 05750 0020 00 0 05763 TRA T9490 T9380 9P009950 | 05751 1 77777 1 05752 TXI *+1,1,-1 PRE WAS ONE DOUBLE SPACE T9390 9P009960 | 05752 0520 00 0 06020 ZET TT001 T9400 9P009970 | 05753 0020 00 0 05757 TRA T9450 ON-LINE T9410 9P009980 | 05754 -0500 00 0 06024 CAL TT040 T9420 9P009990 05755 0621 00 0 06073 STA TT160 OFF LINE CARRIAGE CONTROL T9430 9P010000 | 05756 0020 00 0 05707 TRA T9050 T9440 9P010010 | 05757 0074 00 4 00706 T9450 TSX MWR,4 T9450 9P010020 | 05760 0 00000 0 00001 PZE 1 T9460 9P010030 | 05761 0 00003 0 06025 PZE TT050,0,3 BLANK LINE T9470 9P010040 05762 0020 00 0 05707 TRA T9050 T9489 9P010050 | 05763 -0054 00 100000 T9490 LFT 100000 T9490 9P010060 | 05764 0020 00 0 05745 TRA T9350 EJECT ON NEXT LINE T9500 9P010070 | 05765 -0625 00 0 06022 T9510 STL TT020 HEADING. T9510 9P010080 | 05766 0774 00 2 00016 AXT 14,2 BLANK OLD HEAD T9520 9P010090 05767 -0500 00 0 06025 CAL TT050 T9530 9P010100 | 05770 0602 00 2 06067 SLW TT100+14,2 T9540 9P010110 | 05771 2 00001 2 05770 TIX *-1,2,1 T9550 9P010120 | 05772 -0500 00 0 06075 CAL TT180 MOVE HEAD T9560 9P010130 | 05773 -0734 00 4 00000 PDX 0,4 T9570 9P010140 05774 0774 00 2 00000 AXT 0,2 T9590 9P010150 | 05775 0621 00 0 05776 STA *+1 T9600 9P010160 | 05776 -0500 00 2 00000 CAL ..,2 T9610 9P010170 | 05777 0602 00 2 06051 SLW TT100,2 T9620 9P010180 | 06000 1 77777 2 06001 TXI *+1,2,-1 T9630 9P010190 06001 2 00001 4 05776 TIX *-3,4,1 T9640 9P010200 | 06002 0074 00 2 06004 TSX T9670,2 T9650 9P010210 | 06003 0020 00 0 05727 TRA T9220 T9660 9P010220 | 06004 1 77775 1 06005 T9670 TXI *+1,1,-3 DECREMENT LINE COUNTER T9670 9P010230 | 06005 0520 00 0 06020 ZET TT001 T9680 9P010240 06006 0020 00 0 06013 TRA T9740 ON-LINE T9690 9P010250 | 06007 0074 00 4 05255 TSX RD(WR),4 OFF-LINE T9700 9P010260 | 06010 -0 06071 0 00027 FOR 23,0,TT140 LINE OF BLANKS, HEAD, SPACE T9710 9P010270 | 06011 0020 00 2 00001 TRA 1,2 T9720 9P010280 | 06012 0074 00 4 05526 TSX EOTSW,4 T9730 9P010290 06013 0074 00 4 00706 T9740 TSX MWR,4 T9740 9P010300 | 06014 0 00000 0 00002 PZE 2 T9750 9P010310 | 06015 0 00003 0 06025 PZE TT050,0,3 LINE OF BLANKS T9760 9P010320 | 06016 0 04016 0 06051 PZE TT100,0,14+512*4 HEAD, SPACE T9770 9P010330 | 06017 0020 00 2 00001 TRA 1,2 T9780 9P010340 06020 0 00000 0 00000 TT001 PZE 0 STZ-OFF LINE. STL-ON LINE. TT001 9P010350 | 06021 0 00067 0 00067 TT010 PZE BCTLN,,BCTLN OFF-,,ON-LINE COUNTER STORAGE TT010 9P010360 | 06022 0 00000 0 00000 TT020 PZE 0 HEADING LINE AVAILABLE SWITCH TT020 9P010370 | 06023 0 00000 0 00000 TT030 PZE 0 INDICATOR STORAGE TT030 9P010380 | 06024 0 00000 0 06050 TT040 PZE TT090 DOUBLE SPACE CONTROL TT040 9P010390 06025 606060606060 TT050 BCI 3, TT050 9P010400 | 06030 016060606060 TT060 BCI 1,1 EJECT PRINTER TT060 9P010410 | 06031 DUP 1,12 9P010420 | 06031 606060606060 TT070 BCI 1, STORAGE FOR JOB CARD TT070 9P010430 | 06045 606060606060 TT071 BCI 1, TT071 9P010440 06046 606060606060 TT072 BCI 1, DATE TT072 9P010450 | 06047 0 00000 0 06025 TT080 PZE TT050 FOR SINGLE SPACE TT080 9P010460 | 1 LISTING OF 12/01/64 PAGE 25 | GENERATORS CENTRAL I-O. | 06050 006060606060 TT090 BCI 1,0 FOR DOUBLE SPACE TT090 9P010470 | 06051 606060606060 TT100 BCI 7, TT100 9P010480 | 06060 606060606060 BCI 7, TT110 9P010490 | 06067 2 00017 0 06030 TT120 IORP TT060,0,15 PRINT JOB CARD TT120 9P010500 | 06070 -1 00003 0 06025 IOCT TT050,,3 BLANK LINE TT130 9P010510 06071 2 00017 0 06050 TT140 IORP TT090,0,15 PRINT HEADING TT140 9P010520 | 06072 -1 00003 0 06025 IOCT TT050,,3 BLANK LINE TT150 9P010530 | 06073 -0 00001 0 00000 TT160 IOCP ..,0,1 PRINTER LINE CONTROL TT160 9P010540 | 06074 -1 00000 0 00000 TT170 IOCT **,0,** LINE TO BE PRINTED TT170 9P010550 | 06075 0 00000 0 00000 TT180 PZE 0 STORAGE FOR 1,4 TT180 9P010560 06076 +007777077777 TT190 OCT 007777077777 TT190 9P010570 | 06077 +000377077777 TT191 OCT 000377077777 9P010580 | 006105 B06105 BOOL 6105 (1)9P010585 | 06105 ORG B06105 (1)9P010586 | 06105 -0500 00 0 17615 BH30 CAL BQ00+4 GET COLS. 27-32 OF FILE CARD (1)9P010587 06106 0560 00 0 17616 LDQ BQ00+5 (1)9P010588 | 06107 -0763 00 0 00014 LGL 12 (1)9P010589 | 06110 -0340 00 0 06127 LAS BH40 ARE THEY BLANK (1)9P01058A | 06111 0020 00 0 06113 TRA *+2 NO (1)9P01058B | 06112 0020 00 0 06115 TRA *+3 YES (1)9P01058C 06113 0441 00 0 17610 LDI BSNK (1)9P01058D | 06114 0020 00 0 13406 TRA BH09+2 RETURN (1)9P01058E | 06115 0074 00 4 05646 TSX FLIST,4 OFF LINE ERROR MESSAGE (1)9P01058F | 06116 1 00007 0 06120 PON *+2,,7 (1)9P01058G | 06117 0074 00 4 04000 TSX LOST,4 JOB BLEW (1)9P01058H 06120 263143256023 BCI 7,FILE CARD INCOMPLETE. JOB DISCONTINUED. (1)9P01058I | 06127 606060606060 BH40 BCI 1, (1)9P01058J | 06130 BSS 76 BOONDOCKS (1)9P010590 | 06244 OBJECT BSS 0 9P010600 | 1 LISTING OF 12/01/64 PAGE 26 BINARY LOADING ROUTINES. | | *THIS ROUTINE SETS UP THE CARD CONVERSION ROUTINE 9P010620 | * 9P010630 | * CALLING SEQUENCE 9P010640 * TSX SETUP,4 9P010650 | * P 9P010660 | * 9P010670 | * WHERE P IS PZE--STANDARD COLUMN BINARY 9P010680 | * MZE--HOLLERITH COLUMN BINARY 9P010690 * 9P010700 | 06244 0634 00 1 06273 SETUP SXA SET20,1 9P010710 | 06245 0604 00 0 06275 STI SET30 9P010720 | 06246 -0500 00 0 04504 CAL SYMTAP-21 9P010730 | 06247 0044 00 0 00000 PAI 9P010740 06250 0737 00 1 00000 PAC 0,1 9P010750 | 06251 0054 00 200000 RFT 200000 9P010760 | 06252 0020 00 0 06255 TRA *+3 9P010770 | 06253 0560 00 0 06300 LDQ SET61 BCD CARD INPUT 9P010780 | 06254 0020 00 0 06262 TRA SET10 9P010790 06255 0500 00 4 00001 CLA 1,4 9P010800 | 06256 -0120 00 0 06261 TMI *+3 9P010810 | 06257 0560 00 0 06301 LDQ SET62 STANDARD COLUMN BINARY 9P010820 | 06260 0020 00 0 06262 TRA SET10 9P010830 | 06261 0560 00 0 06302 LDQ SET63 HOLLERITH COLUMN BINARY 9P010840 * 9P010850 | 06262 -0500 00 1 00000 SET10 CAL 0,1 9P010860 | 06263 -0320 00 0 06276 ANA SET40 9P010870 | 06264 0322 00 0 06277 ERA SET50 9P010880 | 06265 0100 00 0 06270 TZE *+3 9P010890 06266 -0130 00 0 00000 XCL FROM TAPE 9P010900 | 06267 0020 00 0 06271 TRA *+2 9P010910 | 06270 -0763 00 0 00022 LGL 18 FROM CARD READER 9P010920 | 06271 0621 00 0 06313 STA CONV1 9P010930 | 06272 0441 00 0 06275 LDI SET30 9P010940 06273 0774 00 1 00000 SET20 AXT **,1 9P010950 | 06274 0020 00 4 00002 TRA 2,4 9P010960 | * 9P010970 | * 9P010980 | * 9P010990 06275 0 00000 0 00000 SET30 PZE 9P011000 | 06276 +000777000000 SET40 OCT 000777000000 9P011010 | 06277 +000321000000 SET50 OCT 000321000000 9P011020 | * TAPE ,,CRDR 9P011030 | 06300 0 00000 0 06321 SET61 PZE MOV12 9P011040 06301 0 00000 0 06323 SET62 PZE MOV24 9P011050 | 06302 0 00000 0 12714 SET63 PZE HCBCD 9P011060 | * 9P011070 | 1 LISTING OF 12/01/64 PAGE 27 | BINARY LOADING ROUTINES. | *THIS ROUTINE TRANSFERS TO CORRECT CONVERSION ROUTINE 9P011090 | * IT MUST BE INITIALIZED BY SETUP. 9P011100 | * IT IS USED BY RD(WR) 9P011110 | * 9P011120 06303 0634 00 1 06315 CONVRT SXA CONV2,1 9P011130 | 06304 0634 00 2 06316 SXA CONV2+1,2 9P011140 | 06305 0634 00 4 06317 SXA CONV2+2,4 9P011150 | 06306 0604 00 0 06275 STI SET30 9P011160 | 06307 -0774 00 1 00000 CONV3 AXC **,1 9P011170 06310 -0500 00 1 00000 CAL 0,1 9P011180 | 06311 0734 00 1 00000 PAX 0,1 9P011190 | 06312 0774 00 2 04621 AXT CARD,2 9P011200 | 06313 0020 00 0 00000 CONV1 TRA ** 9P011210 | 06314 0441 00 0 06275 LDI SET30 9P011220 06315 0774 00 1 00000 CONV2 AXT **,1 9P011230 | 06316 0774 00 2 00000 AXT **,2 9P011240 | 06317 0774 00 4 00000 AXT **,4 9P011250 | 06320 0020 00 4 00001 TRA 1,4 9P011260 | * 9P011270 *THESE CONVERSION ROUTINES REQUIRE ONLY MOVING. 9P011280 | * MOV12 - 14 WORDS FROM BCD TAPE INPUT. 9P011290 | * MOV24 - 24 WORDS FROM COL BIN TAPE INPUT. 9P011300 | * 9P011310 | * 9P011320 06321 0774 00 4 00016 MOV12 AXT 14,4 9P011330 | 06322 0020 00 0 06324 TRA *+2 9P011340 | 06323 0774 00 4 00033 MOV24 AXT 27,4 9P011350 | 06324 -0634 00 4 06326 SXD *+2,4 9P011360 | 06325 -0634 00 4 06327 SXD *+2,4 9P011370 06326 1 00000 1 06327 TXI *+1,1,** 9P011380 | 06327 1 00000 2 06330 TXI *+1,2,** 9P011390 | 06330 0634 00 1 06335 SXA MOV50,1 9P011400 | 06331 0634 00 2 06336 SXA MOV50+1,2 9P011410 | 06332 -3 00016 4 06335 TXL MOV50,4,14 9P011420 06333 -0500 00 0 06341 CAL MOV60 ELIMINATE COL BIN INDICATOR 9P011430 | 06334 0320 60 0 06335 ANS* MOV50 9P011440 | 06335 -0500 00 4 00000 MOV50 CAL **,4 9P011450 | 06336 0602 00 4 00000 SLW **,4 9P011460 | 06337 2 00001 4 06335 TIX *-2,4,1 9P011470 06340 0020 00 0 06314 TRA CONV1+1 9P011480 | * 9P011490 | * 9P011500 | 06341 -377277777777 MOV60 OCT 777277777777 9P011510 | 1 LISTING OF 12/01/64 PAGE 28 TAPE POSITIONING ROUTINE--TPOSIT | | *THE FOLLOWING ROUTINE POSITIONS A GENERATION TIME TAPE 9P011540 | * AND SETS DENSITY 9P011550 | * 9P011560 * THE CALLING SEQUENCE IS 9P011570 | * 9P011580 | * TSX TPOSIT,4 9P011590 | * PRE UNIT 9P011600 | * 9P011610 * WHERE PRE IS 9P011620 | * PZE--REWIND AND POSITION TO BEGINNING OF DICTIONARY. 9P011630 | * PON--REWIND AND POSITION TO BEGINNING OF TEXT 9P011640 | * PTW--REWIND AND PASS LABEL AND EOF IF IT EXISTS 9P011650 | * FOR--WEOF AND RECORD TAPE POSITION 9P011660 * SVN--POSITION TO PREVIOUSLY RECORDED POSITION. 9P011670 | * 9P011680 | * UNIT IS APPLICATION NUMBER 9P011690 | * 9P011700 | * 9P011710 06342 0634 00 1 06375 TPOSIT SXA TPOS10,1 9P011720 | 06343 0634 00 4 06376 SXA TPOS11,4 9P011730 | 06344 0634 00 2 06377 SXA TPOS12,2 9P011740 | 06345 0500 00 4 00001 CLA 1,4 9P011750 | 06346 0621 00 0 06371 STA TPOS06 9P011760 06347 0734 00 1 00000 PAX 0,1 9P011770 | 06350 -0120 00 0 06401 TMI TPOS20 9P011780 | 06351 0074 00 4 05505 TPOS01 TSX NDSRT,4 REWIND 9P011790 | 06352 0 00003 1 04531 PZE SYMTAP,1,3 9P011800 | 06353 0074 00 4 06457 TPOS02 TSX LABPS,4 HANDLE LABEL 9P011810 06354 0020 00 0 06361 TRA TPOS03 9P011820 | 06355 0534 00 4 06376 LXA TPOS11,4 UNLABELED--CHECK CODE 9P011830 | 06356 -0500 00 4 00001 CAL 1,4 9P011840 | 06357 -0320 00 0 06455 ANA TPOS57 9P011850 | 06360 -0100 00 0 06373 TNZ TPOS07 IF PTW, DO NOT PASS DICT 9P011860 06361 0534 00 4 06376 TPOS03 LXA TPOS11,4 9P011870 | 06362 0500 00 4 00001 CLA 1,4 9P011880 | 06363 -0320 00 0 06446 ANA TPOS50 9P011890 | 06364 0100 00 0 06373 TZE TPOS07 BEGINNING OF DICTIONARY 9P011900 | 06365 -0500 00 1 04531 TPOS04 CAL SYMTAP,1 9P011910 06366 -0320 00 0 06454 ANA TPOS56 9P011920 | 06367 0100 00 0 06373 TZE TPOS07 9P011930 | 06370 0074 00 4 05255 TPOS05 TSX RD(WR),4 9P011940 | 06371 0 06453 0 00000 TPOS06 PZE **,,TPOS55 9P011950 | 06372 0020 00 0 06370 TRA *-2 9P011960 06373 -0500 00 1 04531 TPOS07 CAL SYMTAP,1 9P011970 | 06374 0074 00 2 06474 TSX SETDEN,2 TO SET DENSITY 9P011980 | 06375 0774 00 1 00000 TPOS10 AXT **,1 9P011990 | 06376 0774 00 4 00000 TPOS11 AXT **,4 9P012000 | 06377 0774 00 2 00000 TPOS12 AXT **,2 9P012010 06400 0020 00 4 00002 TRA 2,4 9P012020 | * 9P012030 | * 9P012040 | 06401 -0320 00 0 06447 TPOS20 ANA TPOS51 9P012050 | 06402 0100 00 0 06426 TZE TPOS30 9P012060 06403 -0500 00 1 04531 TPOS21 CAL SYMTAP,1 INITIALIZE FOR RETURN 9P012070 | 06404 0634 00 1 06423 SXA TPOS23,1 TO RECORDED POSITION 9P012080 | 1 LISTING OF 12/01/64 PAGE 29 | TAPE POSITIONING ROUTINE--TPOSIT | 06405 0622 00 0 06456 STD TPOS58 9P012090 | 06406 0500 00 1 04531 TPOS22 CLA SYMTAP,1 TEST FOR CORRECT POSITION 9P012100 | 06407 0737 00 4 00000 PAC 0,4 9P012110 | 06410 -0500 00 4 00002 CAL 2,4 9P012120 | 06411 -0320 00 0 06452 ANA TPOS54 9P012130 06412 -0340 00 0 06456 LAS TPOS58 9P012140 | 06413 0020 00 0 06416 TRA *+3 NOT YET THERE 9P012150 | 06414 0020 00 0 06375 TRA TPOS10 CORRECT POSITION 9P012160 | 06415 0074 00 4 04000 TSX LOST,4 LOST 9P012170 | 06416 0074 00 4 05505 TSX NDSRT,4 9P012180 06417 0 00006 1 04531 PZE SYMTAP,1,6 9P012190 | 06420 0074 00 4 05505 TSX NDSRT,4 9P012200 | 06421 0 00006 1 04531 PZE SYMTAP,1,6 9P012210 | 06422 0074 00 4 05255 TSX RD(WR),4 9P012220 | 06423 0 06453 0 00000 TPOS23 PZE **,,TPOS55 9P012230 06424 0074 00 4 04000 TSX LOST,4 9P012240 | 06425 0020 00 0 06406 TRA TPOS22 9P012250 | 06426 -0500 00 1 04531 TPOS30 CAL SYMTAP,1 9P012260 | 06427 0737 00 4 00000 PAC 0,4 9P012270 | 06430 -0500 00 4 00002 CAL 2,4 9P012280 06431 -0320 00 0 06452 ANA TPOS54 IS TAPE AT LOAD POINT 9P012290 | 06432 -0100 00 0 06434 TNZ *+2 NO 9P012300 | 06433 0074 00 4 06457 TSX LABPS,4 HANDLE LABELS 9P012310 | 06434 0761 00 0 00000 NOP IF LABELED OR NOT 9P012320 | 06435 -0500 00 1 04531 CAL SYMTAP,1 9P012330 06436 0074 00 2 06474 TSX SETDEN,2 TO SET DENSITY 9P012340 | 06437 0074 00 4 05505 TSX NDSRT,4 9P012350 | 06440 0 00007 1 04531 PZE SYMTAP,1,7 WRITE EOF 9P012360 | 06441 -0500 00 1 04531 CAL SYMTAP,1 9P012370 | 06442 0737 00 4 00000 PAC 0,4 9P012380 06443 -0500 00 4 00002 CAL 2,4 9P012390 | 06444 0622 00 1 04531 STD SYMTAP,1 RECORD TAPE POSITION 9P012400 | 06445 0020 00 0 06373 TRA TPOS07 9P012410 | *CONSTANTS AND TEMPORARY STORAGE 9P012420 | * 9P012430 06446 +100000000000 TPOS50 OCT 100000000000 9P012440 | 06447 +300000000000 TPOS51 OCT 300000000000 9P012450 | 06450 +000000400000 TPOS52 OCT 400000 9P012460 | 06451 +000000100000 TPOS53 OCT 100000 9P012470 | 06452 +077777000000 TPOS54 OCT 077777000000 9P012480 06453 3 00003 2 06453 TPOS55 IORTN *,,3 9P012490 | 06454 -000000400000 TPOS56 OCT 400000400000 9P012500 | 06455 +200000000000 TPOS57 OCT 200000000000 9P012510 | 06456 0 00000 0 00000 TPOS58 PZE 0 9P012520 | * 9P012530 * 9P012540 | *SUBROUTINE TO HANDLE LABELS 9P012550 | 06457 0634 00 1 06466 LABPS SXA LABP4,1 9P012560 | 06460 0634 00 4 06471 SXA LABP6,4 9P012570 | 06461 0500 00 1 04531 CLA SYMTAP,1 IS UNIT LABELED 9P012580 06462 0120 00 4 00002 TPL 2,4 NO--UNLABELED EXIT 9P012590 | 06463 -0765 00 0 00022 LGR 18 9P012600 | 06464 0074 00 2 06474 TSX SETDEN,2 TO SET DENSITY 9P012610 | 06465 0074 00 4 05255 LABP3 TSX RD(WR),4 9P012620 | 06466 2 06473 0 00000 LABP4 PTW **,0,LABP9 PASS OVER LABEL 9P012630 1 LISTING OF 12/01/64 PAGE 30 | TAPE POSITIONING ROUTINE--TPOSIT | | 06467 0761 00 0 00000 NOP 9P012640 | 06470 0534 00 1 06466 LABP5 LXA LABP4,1 9P012650 06471 0774 00 4 00000 LABP6 AXT **,4 9P012660 | 06472 0020 00 4 00001 LABP7 TRA 1,4 RETURN 9P012670 | 06473 3 00016 2 06473 LABP9 IORTN *,,14 9P012680 | * 9P012690 | * 9P012700 *SUBROUTINE TO SET DENSITY (SYMTAP BIT 20) 9P012710 | * 9P012720 | 06474 -0320 00 0 06451 SETDEN ANA TPOS53 9P012730 | 06475 0100 00 0 06501 TZE *+4 9P012740 | 06476 0074 00 4 05505 TSX NDSRT,4 9P012750 06477 0 00002 1 04531 PZE SYMTAP,1,2 SET DENSITY HIGH 9P012760 | 06500 0020 00 2 00001 TRA 1,2 9P012770 | 06501 0074 00 4 05505 TSX NDSRT,4 9P012780 | 06502 0 00001 1 04531 PZE SYMTAP,1,1 SET DENSITY LOW 9P012790 | 06503 0020 00 2 00001 TRA 1,2 9P012800 1 LISTING OF 12/01/64 PAGE 31 | MISCELLANEOUS SUB-ROUTINES | | * 9P012820 | * 9P012830 * KMA10 9P012840 | * ROUTINE TO INCREASE CARD SERIAL (76-80) KMA20 9P012850 | * KMA30 9P012860 | * KMA40 9P012870 | 06504 0634 00 4 06530 KMA50 SXA KMC50,4 KMA50 9P012880 06505 0774 00 4 00005 AXT 5,4 KMA60 9P012890 | 06506 -0500 60 4 06537 KMA70 CAL* KMD50,4 KMA70 9P012900 | 06507 -0320 00 4 06544 ANA KME00,4 KMA80 9P012910 | 06510 -0765 00 0 00001 LGR 1 KMA90 9P012920 | 06511 0602 00 0 06551 SLW KME50 KMB00 9P012930 06512 -0320 00 4 06544 ANA KME00,4 KMB10 9P012940 | 06513 -0100 00 0 06520 TNZ KMB70 KMB20 9P012950 | 06514 -0625 00 0 06552 STL KME60 KMB30 9P012960 | 06515 -0500 00 4 06551 CAL KME50,4 KMB40 9P012970 | 06516 0602 00 0 06551 SLW KME50 KMB50 9P012980 06517 0020 00 0 06521 TRA *+2 KMB60 9P012990 | 06520 0600 00 0 06552 KMB70 STZ KME60 KMB70 9P013000 | 06521 -0500 00 4 06544 CAL KME00,4 KMB80 9P013010 | 06522 0760 00 0 00006 COM KMB90 9P013020 | 06523 0320 60 4 06537 ANS* KMD50,4 KMC00 9P013030 06524 -0500 00 0 06551 CAL KME50 KMC10 9P013040 | 06525 -0602 60 4 06537 ORS* KMD50,4 KMC20 9P013050 | 06526 0520 00 0 06552 ZET KME60 KMC30 9P013060 | 06527 2 00001 4 06506 TIX KMA70,4,1 KMC40 9P013070 | 06530 0774 00 4 00000 KMC50 AXT **,4 KMC50 9P013080 06531 0020 00 4 00001 TRA 1,4 KMC60 9P013090 | * KMC70 9P013100 | * KMC80 9P013110 | * KMC90 9P013120 | 06532 0 00000 0 06555 PZE KME90 KMD00 9P013130 06533 0 00000 0 06555 PZE KME90 KMD10 9P013140 | 06534 0 00000 0 06554 PZE KME80 KMD20 9P013150 | 06535 0 00000 0 06554 PZE KME80 KMD30 9P013160 | 06536 0 00000 0 06554 PZE KME80 KMD40 9P013170 | 06537 +000077770000 KMD50 OCT 000077770000 KMD50 9P013180 06540 -377700000000 OCT 777700000000 KMD60 9P013190 | 06541 +000000007777 OCT 000000007777 KMD70 9P013200 | 06542 +000077770000 OCT 000077770000 KMD80 9P013210 | 06543 -377700000000 OCT 777700000000 KMD90 9P013220 | 06544 +000010000000 KME00 OCT 000010000000 KME00 9P013230 06545 +100000000000 OCT 100000000000 KME10 9P013240 | 06546 +000000001000 OCT 000000001000 KME20 9P013250 | 06547 +000010000000 OCT 000010000000 KME30 9P013260 | 06550 +100000000000 OCT 100000000000 KME40 9P013270 | 06551 0 00000 0 00000 KME50 PZE 0 TEMP STORAGE KME50 9P013280 06552 0 00000 0 00000 KME60 PZE 0 OVERFLOW SWITCH KME60 9P013290 | 06553 0 00000 0 00000 KME70 PZE 0 SERIAL 73-75 KME70 9P013300 | 06554 0 00000 0 00000 KME80 PZE 0 SERIAL 76-78 KME80 9P013310 | 06555 0 00000 0 00000 KME90 PZE 0 SERIAL 79-80 KME90 9P013320 | 06556 0 00000 0 00000 PZE 0 9P013330 1 LISTING OF 12/01/64 PAGE 32 | MISCELLANEOUS SUB-ROUTINES | | * 9P013350 | * THIS ROUTINE WRITES MESSAGE TO OPERATOR WHEN END OF TAPE 9P013360 * IS ENCOUNTERED ON A SCRATCH TAPE, 9P013370 | * WHEN WRITING DICTIONARIES, ETC 9P013380 | * 9P013390 | * IR 1 MUST CONTAIN FILE NUMBER 9P013400 | * 9P013410 * 9P013420 | * 9P013430 | 06557 0634 00 4 06573 SCEOT SXA SCE21,4 9P013440 | 06560 -0500 00 4 77776 CAL -2,4 9P013450 | 06561 0734 00 1 00000 PAX 0,1 9P013460 06562 -0500 00 1 04531 CAL SYMTAP,1 9P013470 | 06563 0737 00 4 00000 PAC 0,4 9P013480 | 06564 0560 00 4 00000 LDQ 0,4 9P013490 | 06565 0074 00 4 00714 TSX (SYMUN,4 9P013500 | 06566 0602 00 0 06601 SLW SCE22+4 9P013510 06567 0074 00 4 05642 TSX NLIST,4 9P013520 | 06570 -1 00007 0 06575 MON SCE22,,7 9P013530 | 06571 0 00006 0 06604 PZE SCE23,,6 9P013540 | 06572 0074 00 4 00712 TSX (PAUSE,4 9P013550 | 06573 0774 00 4 00000 SCE21 AXT **,4 9P013560 06574 0074 00 4 05134 TSX DDEAD,4 9P013570 | * 9P013580 | * 9P013590 | 06575 254663602545 SCE22 BCI 7,EOT ENCOUNTERED ON CANNOT PROCEED. 9P013600 | 06604 512547432123 SCE23 BCI 6,REPLACE WITH LONGER TAPE AND RESTART 9P013610 * 9P013620 | 06612 RGORG BSS 0 RG ORIGIN SYMBOL 9P013630 | * 9P013640 | 1 LISTING OF 12/01/64 PAGE 33 | BINARY LOADING ROUTINES | * KI800 9P013670 | * THE FOLLOWING ROUTINE LOADS A BINARY PROGRAM KI805 9P013680 | * CORE IS ZEROED FROM OBJL1 TO OBJL4 KI810 9P013690 | * KI815 9P013700 * KI820 9P013710 | 06612 -0500 00 0 04403 KI825 CAL OBJL4 KI825 9P013720 | 06613 0621 00 0 06616 STA KI845 KI830 9P013730 | 06614 0402 00 0 04400 SUB OBJL1 KI835 9P013740 | 06615 0734 00 4 00000 PAX 0,4 KI840 9P013750 06616 0600 00 4 00000 KI845 STZ **,4 KI845 9P013760 | 06617 2 00001 4 06616 TIX *-1,4,1 KI850 9P013770 | 06620 0600 00 0 04712 STZ BCOMD KI855 9P013780 | 06621 0074 00 4 06244 TSX SETUP,4 KI856 9P013790 | 06622 0 00000 0 00000 PZE 0 KI857 9P013800 * KI860 9P013810 | 06623 0074 00 4 07251 KI865 TSX KNB00,4 KI865 9P013820 | 06624 0020 00 0 06623 TRA *-1 EOF NOT EXPECTED KI870 9P013830 | 06625 -0534 00 4 04621 LXD CARD,4 KI875 9P013840 | 06626 -3 00000 4 06642 TXL KI945,4,0 PROGRAM IS LOADED KI880 9P013850 06627 0754 00 4 00000 PXA 0,4 KI885 9P013860 | 06630 0401 00 0 06641 ADM KI935 KI890 9P013870 | 06631 0621 00 0 06635 STA KI915 CARD +2+COUNT KI895 9P013880 | 06632 0754 00 4 00000 PXA 0,4 KI900 9P013890 | 06633 0401 00 0 04621 ADM CARD KI905 9P013900 06634 0621 00 0 06636 STA *+2 LOAD ADDR PLUS COUNT KI910 9P013910 | 06635 -0500 00 4 00000 KI915 CAL **,4 KI915 9P013920 | 06636 0602 00 4 00000 SLW **,4 MOVE TO PLACE KI920 9P013930 | 06637 2 00001 4 06635 TIX *-2,4,1 KI925 9P013940 | 06640 0020 00 0 06623 TRA KI865 KI930 9P013950 06641 0 00000 0 04623 KI935 PZE CARD+2 KI935 9P013960 | * KI940 9P013970 | 06642 -0500 00 0 04621 KI945 CAL CARD 9P013980 | 06643 0621 00 0 05033 STA STOBJ 9P013990 | 06644 0534 00 4 04655 LXA JOBTYP,4 9P014000 06645 3 77776 4 06701 TXH KJ010,4,-2 TRA IF RG 9P014010 | 06646 -3 00000 4 06701 TXL KJ010,4,0 TRA IF RG 9P014020 | 06647 -0320 00 0 05626 ANA EOT55 FP 9P014030 | 06650 0322 00 0 13126 ERA KAB91 9P014040 | 06651 0100 00 0 06674 TZE KI955 HORIZ 9P014050 * 9P014060 | *INITIALIZE FP SEQUENCE BUFFERS FOR SUMMARY RECORDS 9P014070 | * 9P014080 | * 9P014090 | 06652 -0500 00 0 06677 CAL KI975 SET-UP LOAD SEQUENCE 9P014100 06653 0602 00 0 06675 SLW KI955+1 9P014110 | 06654 -0500 00 0 06700 CAL KI975+1 9P014120 | 06655 0602 00 0 06676 SLW KI955+2 9P014130 | 06656 0774 00 1 00106 AXT MGZE,1 9P014140 | 06657 0500 00 1 72565 KI951 CLA MGTBL+MGZE+1,1 KI951 9P014150 06660 0120 00 0 06672 TPL KI954 9P014160 | 06661 -0500 00 1 72564 CAL MGTBL+MGZE,1 9P014170 | 06662 0402 00 0 04673 SUB ONE 9P014180 | 06663 0621 00 0 06670 STA *+5 9P014190 | 06664 0534 00 4 72455 LXA Y1002,4 9P014200 06665 1 77777 4 06666 TXI *+1,4,-1 9P014210 | 1 LISTING OF 12/01/64 PAGE 34 | BINARY LOADING ROUTINES | | 06666 0760 00 0 00000 CLM 9P014220 06667 0760 00 0 00006 COM 9P014230 | 06670 0602 00 4 00000 SLW 0,4 9P014240 | 06671 2 00001 4 06670 TIX *-1,4,1 9P014250 | 06672 2 00002 1 06657 KI954 TIX KI951,1,2 KI954 9P014260 | 06673 0020 00 0 06701 TRA KJ010 9P014270 * 9P014280 | 06674 0074 00 4 04752 KI955 TSX SYSRD,4 TO READ SYSTEM RECORD AND EXEC OBJ KI955 9P014290 | 06675 0 00000 0 00000 PZE 0 FOR RECORD NAME 9P014300 | 06676 0 00000 0 00000 PZE 0 FOR RECORD LIMITS, TO BE ZEROED 9P014310 | * AND EXECUTE OBJECT KI960 9P014320 * KI965 9P014330 | * KI970 9P014340 | 06677 114721230102 KI975 BCI 1,9PAC12 FPFIXD 9P014350 | 06700 0 04065 0 23636 PZE DXIFPF,,DXIFPF-DEXIF 9P014360 | 1 LISTING OF 12/01/64 PAGE 35 SUBDIVIDE MEMORY INTO BUFFERS WHEN BINARY LOADING | | * KJ000 9P014380 | *DIVIDE AVAILABLE CORE INTO BUFFERS. 9P014390 | * 9P014400 06701 -0500 00 0 04402 KJ010 CAL OBJL3 LOWER LIMIT OF UPPER OBJECT PROGRAM KJ010 9P014410 | 06702 0402 00 0 04401 SUB OBJL2 UPPER LIMIT OF LOWER OBJECT PROGRAM 9P014420 | 06703 0402 00 0 07214 SUB KJA35 NR BUFFER POOL CONTROL WORDS 9P014430 | 06704 0601 00 0 07212 STO KJA30 NR CELLS AVAILABLE FOR I-O BUFFERS 9P014440 | *RESET SWITCH6.2,9,10,11,12 ACCORDING TO PRESENT CONTENTS OF 9P014450 *SYMTAP AND FCB. RESET SYMTAP, IF NECESSARY. 9P014460 | * 9P014470 | 06705 0774 00 1 00000 AXT 0,1 9P014480 | 06706 0441 00 1 72657 KJ020 LDI SWTCH,1 9P014490 | 06707 -0054 00 100000 LFT 100000 IS UNIT USED BY FP OR RG 9P014500 06710 0020 00 0 06716 TRA KJ021 YES 9P014510 | 06711 -0500 00 1 04531 CAL SYMTAP,1 NO. IS IT A HAND CALC UNIT 9P014520 | 06712 -0320 00 0 07207 ANA KJA15 9P014530 | 06713 0100 00 0 07021 TZE KJ040 NO. 9P014540 | 06714 0622 00 1 72753 STD BUSZE,1 YES. 9P014550 06715 0020 00 0 07006 TRA KJ025+2 9P014560 | 06716 -0057 00 000002 KJ021 RIL 000002 RESET SWTCH 6.2 9P014570 | 06717 0057 00 007770 RIR 007770 RESET SWTCH 9,10, 11 9P014580 | 06720 0634 00 1 07245 SXA KJA90,1 CALCULATE FCB LOCATION 9P014590 | 06721 0560 00 0 07246 LDQ KJA91 FOR THIS UNIT 9P014600 06722 0200 00 0 07245 MPY KJA90 12 TIMES UNIT NUMBER 9P014610 | 06723 -0600 00 0 07245 STQ KJA90 9P014620 | 06724 -0500 00 0 04654 CAL FCBORG 9P014630 | 06725 0402 00 0 07245 SUB KJA90 9P014640 | 06726 0621 00 0 06727 STA *+1 ADDRESS OF FCB FOR THIS UNIT 9P014650 06727 -0774 00 4 00000 AXC **,4 9P014660 | 06730 -0500 00 4 00001 CAL 1,4 IF BIT 10 OF FCB WORD 2 9P014670 | 06731 -0763 00 0 00012 LGL 10 IS A ONE, SET SWTCH 6.2 9P014680 | 06732 -0760 00 0 00001 PBT 9P014690 | 06733 0020 00 0 06735 TRA *+2 9P014700 06734 -0055 00 000002 SIL 000002 9P014710 | 06735 -0500 00 4 00004 CAL 4,4 SET SWITCHES 11 AND 12 9P014720 | 06736 0771 00 0 00022 ARS 18 9P014730 | 06737 -0320 00 0 07210 ANA KJA16 9P014740 | 06740 0043 00 0 00000 OAI 9P014750 06741 0622 00 4 00004 STD 4,4 AND CLEAR TEMP STORAGE 9P014760 | 06742 -0500 00 1 04531 CAL SYMTAP,1 SET PADDING SWTCH 9 9P014770 | 06743 0771 00 0 00025 ARS 21 9P014780 | 06744 -0320 00 0 07247 ANA KJA92 0000 0000 7000 9P014790 | 06745 0043 00 0 00000 OAI 9P014800 *IF DECREMENT OF SYMTAP, 1 IS 7777, DETERMINE BLOCKING. 9P014810 | *RESET SWTCH 10. IF SYMTAP,1 IS ZERO AND IF THIS IS AN RG UNIT, 9P014820 | *SET SYMTAP,1 ACCORDING TO NU,1 9P014830 | * 9P014840 | 06746 -0500 00 1 04531 CAL SYMTAP,1 9P014850 06747 -0320 00 0 07207 ANA KJA15 0077 7700 0000 9P014860 | 06750 -0100 00 0 06756 TNZ KJ022 9P014870 | 06751 -0056 00 010000 LNT 010000 IS IT RG 9P014880 | 06752 0020 00 0 07021 TRA KJ040 NO 9P014890 | 06753 0055 00 000200 SIR 000200 SET SWITCH UNBLOCKED 9P014900 06754 0560 00 1 72633 LDQ NU,1 9P014910 | 06755 0020 00 0 06775 TRA KJ024 9P014920 | 1 LISTING OF 12/01/64 PAGE 36 | SUBDIVIDE MEMORY INTO BUFFERS WHEN BINARY LOADING | 06756 0322 00 0 07207 KJ022 ERA KJA15 9P014930 | 06757 0100 00 0 06763 TZE *+4 TRANSFER ON NO GROUPING 9P014940 | 06760 -0500 00 1 04531 CAL SYMTAP,1 9P014950 | 06761 -0320 00 0 07207 ANA KJA15 9P014960 | 06762 0020 00 0 07004 TRA KJ025 9P014970 06763 0560 00 1 72633 LDQ NU,1 GROUPED, MULTIPLY BY FIVE 9P014980 | 06764 0200 00 0 04677 MPY FIVE 9P014990 | 06765 -0500 00 1 72633 CAL NU,1 9P015000 | 06766 -0340 00 0 07250 LAS KJA93 16 9P015010 | 06767 0020 00 0 06774 TRA KJ023 BY 5 9P015020 06770 0020 00 0 06771 TRA *+1 BY 10 9P015030 | 06771 0055 00 000500 SIR 000500 SET SWTCH 10,5, GROUP BY 10 9P015040 | 06772 -0763 00 0 00001 LGL 1 MULTIPLY BY TWO 9P015050 | 06773 0020 00 0 06775 TRA *+2 9P015060 | 06774 0055 00 000300 KJ023 SIR 000300 SET SWTCH 10.3, GROUP BY 5 9P015070 06775 -0500 00 0 07207 KJ024 CAL KJA15 PLACE VALUE IN MQ IN SYMTAP,1 9P015080 | 06776 0760 00 0 00006 COM 9P015090 | 06777 0320 00 1 04531 ANS SYMTAP,1 9P015100 | 07000 -0773 00 0 00022 RQL 18 9P015110 | 07001 -0130 00 0 00000 XCL 9P015120 07002 -0320 00 0 07207 ANA KJA15 9P015130 | 07003 -0602 00 1 04531 ORS SYMTAP,1 9P015140 | 07004 0622 00 1 72753 KJ025 STD BUSZE,1 BUILD LEFT HALF BUSZE,1 9P015150 | 07005 0604 00 1 72657 STI SWTCH,1 9P015160 | 07006 0771 00 0 00022 ARS 18 9P015170 07007 0400 00 0 04674 ADD TWO FOR BUFFER CONTROL WORDS 9P015180 | 07010 0601 00 1 07206 STO KJA10,1 SIZE OF ONE BUFFER WITH BCW 9P015190 | 07011 0074 00 4 07141 TSX KJ500,4 DETERMINE SET SIZE 9P015200 | 07012 -0056 00 200000 LNT 200000 9P015210 | 07013 0020 00 0 07017 TRA KJ030 OUTPUT 9P015220 07014 0400 00 0 07211 ADD KJA20 INPUT 9P015230 | 07015 0601 00 0 07211 STO KJA20 NR WORDS IN INPUT SET 9P015240 | 07016 1 00001 1 07022 TXI KJ045,1,1 9P015250 | 07017 0400 00 0 07213 KJ030 ADD KJA25 KJ030 9P015260 | 07020 0601 00 0 07213 STO KJA25 9P015270 07021 1 00001 1 07022 KJ040 TXI KJ045,1,1 KJ040 9P015280 | 07022 -3 00023 1 06706 KJ045 TXL KJ020,1,19 FINISHED ON NO TRANSFER KJ045 9P015290 | * 9P015300 | 07023 0534 00 2 04401 LXA OBJL2,2 9P015310 | 07024 -0500 00 0 07212 CAL KJA30 NUMBER CELLS AVAILABLE 9P015320 07025 0402 00 0 07211 SUB KJA20 NR WORDS IN ALL INPUT SETS 9P015330 | 07026 -0120 00 0 07071 TMI KJ100 NOT ROOM FOR ONE SET 9P015340 | 07027 0131 00 0 00000 XCA 9P015350 | 07030 -0754 00 0 00000 PXD 0,0 HOW MANY OUTPUT SETS 9P015360 | 07031 0220 00 0 07213 DVH KJA25 WORDS PER OUTPUT SET 9P015370 07032 0131 00 0 00000 XCA 9P015380 | 07033 0100 00 0 07071 TZE KJ100 NOT ROOM FOR ONE SET 9P015390 | 07034 0601 00 0 07215 STO KJA40 NUMBER POSSIBLE SETS-OUTPUT 9P015400 | *DIVIDE CORE ON A WEIGHTED BASIS. INPUT, ONE SET. OUTPUT, 9P015410 | * NUMBER OF SETS IN KJA40. BUFFER WEIGHTS,DETERMINED BY 9P015420 * KJ500,AS FOLLOWS 9P015430 | * 0-25 WORDS,WEIGHT FOUR 9P015440 | * 26-200 WORDS,WEIGHT THREE 9P015450 | * OVER 200 WORDS,WEIGHT TWO 9P015460 | 07035 0774 00 1 00000 AXT 0,1 9P015470 1 LISTING OF 12/01/64 PAGE 37 | SUBDIVIDE MEMORY INTO BUFFERS WHEN BINARY LOADING | | 07036 -0500 00 1 07206 KJ060 CAL KJA10,1 KJ060 9P015480 | 07037 0100 00 0 07066 TZE KJ080 GET ANOTHER SET 9P015490 07040 0074 00 4 07141 TSX KJ500,4 DETERMINE SET SIZE 9P015500 | 07041 0601 00 0 07216 STO KJA50 9P015510 | 07042 0500 00 0 04674 CLA TWO DETERMINE NR BUFFERS IN THIS SET 9P015520 | 07043 -0054 00 002000 LFT 002000 9P015530 | 07044 0500 00 0 04675 CLA THREE 9P015540 07045 -0054 00 004000 LFT 004000 9P015550 | 07046 0500 00 0 04676 CLA FOUR 9P015560 | 07047 -0054 00 200000 LFT 200000 ON,IF INPUT 9P015570 | 07050 0020 00 0 07054 TRA KJ070 9P015580 | 07051 0131 00 0 00000 XCA 9P015590 07052 0200 00 0 07215 MPY KJA40 NUMBER OF OUTPUT SETS 9P015600 | 07053 0131 00 0 00000 XCA 9P015610 | 07054 0621 00 1 72753 KJ070 STA BUSZE,1 BUILD RIGHT HALF OF BUSZE,1 KJ070 9P015620 | 07055 0754 00 2 00000 PXA 0,2 NEXT BUFFER STARTS HERE 9P015630 | 07056 0621 00 1 72727 STA BULOC,1 BUILD BULOC,1 9P015640 07057 0774 00 4 00001 AXT 1,4 ONE INPUT SET 9P015650 | 07060 -0056 00 200000 LNT 200000 ON IF INPUT,DO NOT LOOP 9P015660 | 07061 0534 00 4 07215 LXA KJA40,4 NR OUTPUT SETS 9P015670 | 07062 0400 00 0 07216 ADD KJA50 9P015680 | 07063 2 00001 4 07062 TIX *-1,4,1 9P015690 07064 0400 00 0 04674 ADD TWO FOR BUFFER POOL CONTROL WORDS 9P015700 | 07065 0734 00 2 00000 PAX 0,2 9P015710 | 07066 1 00001 1 07067 KJ080 TXI *+1,1,1 GET NEXT UNIT KJ080 9P015720 | 07067 -3 00023 1 07036 TXL KJ060,1,19 ARE THERE MORE UNITS 9P015730 | 07070 0020 00 0 06674 TRA KI955 FINISHED 9P015740 * 9P015750 | *NOT ENOUGH ROOM FOR ONE WEIGHTED SET 9P015760 | 07071 0500 00 0 07206 KJ100 CLA KJA10 9P015770 | 07072 0774 00 1 00023 AXT 19,1 9P015780 | 07073 0400 00 1 07206 ADD KJA10,1 9P015790 07074 2 00001 1 07073 TIX *-1,1,1 9P015800 | 07075 0601 00 0 07216 STO KJA50 NR CELLS FOR ONE BUFFER PER FILE 9P015810 | 07076 0560 00 0 07212 LDQ KJA30 NR CELLS AVAILABLE 9P015820 | 07077 -0754 00 0 00000 PXD 0,0 9P015830 | 07100 0220 00 0 07216 DVH KJA50 9P015840 07101 0131 00 0 00000 XCA 9P015850 | 07102 0100 00 0 07136 TZE KJ150 NOT ROOM FOR ONE BUFFER PER SET 9P015860 | 07103 0621 00 0 07107 STA KJ120 9P015870 | 07104 0402 00 0 04673 SUB ONE 9P015880 | 07105 0100 00 0 07125 TZE KJ140 ONLY ONE-WRITE INEFFICIENT MESSAGE 9P015890 07106 0774 00 1 00000 KJ110 AXT 0,1 9P015900 | 07107 0774 00 4 00000 KJ120 AXT **,4 9P015910 | 07110 -0520 00 1 07206 NZT KJA10,1 9P015920 | 07111 0020 00 0 07122 TRA KJ130 NO ENTRY. GET NEXT UNIT 9P015930 | 07112 0754 00 4 00000 PXA 0,4 9P015940 07113 0621 00 1 72753 STA BUSZE,1 BUILD NR BUFFERS ENTRY 9P015950 | 07114 0754 00 2 00000 PXA 0,2 9P015960 | 07115 0621 00 1 72727 STA BULOC,1 BUILD FIRST WORD OF BUFFER LOCATION 9P015970 | 07116 0400 00 1 07206 ADD KJA10,1 9P015980 | 07117 2 00001 4 07116 TIX *-1,4,1 9P015990 07120 0400 00 0 04674 ADD TWO FOR POOL CONTROL WORDS 9P016000 | 07121 0734 00 2 00000 PAX 0,2 9P016010 | 07122 1 00001 1 07123 KJ130 TXI *+1,1,1 9P016020 | 1 LISTING OF 12/01/64 PAGE 38 | SUBDIVIDE MEMORY INTO BUFFERS WHEN BINARY LOADING | 07123 -3 00023 1 07107 TXL KJ120,1,19 GET NEXT UNIT 9P016030 | 07124 0020 00 0 06674 TRA KI955 FINISHED 9P016040 | * 9P016050 | 07125 0520 00 0 04662 KJ140 ZET IND01 TO WRITE INEFFICIENT MESSAGE KJ140 9P016060 07126 0020 00 0 07131 TRA *+3 9P016070 | 07127 0074 00 4 05646 TSX FLIST,4 9P016080 | 07130 3 00011 0 07217 PTH KJA60,0,9 INEFFICIENT MESSAGE 9P016090 | 07131 0074 00 4 05642 TSX NLIST,4 9P016100 | 07132 -2 00011 0 07217 SIX KJA60,0,9 9P016110 07133 0 00004 0 07230 PZE KJA70,0,4 PRESS START 9P016120 | 07134 0074 00 4 00712 TSX (PAUSE,4 9P016130 | 07135 0020 00 0 07106 TRA KJ110 9P016140 | * 9P016150 | 07136 0074 00 4 05642 KJ150 TSX NLIST,4 DROP DEAD,NOT ENOUGH SPACE 9P016160 07137 0 00011 0 07234 PZE KJA80,0,9 9P016170 | 07140 0074 00 4 05134 TSX DDEAD,4 9P016180 | * 9P016190 | * 9P016200 | *DETERMINE BUFFER SET SIZE--NOT POOL SIZE,HOWEVER 9P016210 * ENTER WITH SINGLE BUFFER SIZE IN AC 9P016220 | * RETURN WITH SIZE OF SINGLE WEIGHTED SET IN AC 9P016230 | * INDICATORS SET AS FOLLOWS 9P016240 | * BUILD FOUR BUFFERS PER SET SIL 006000 9P016250 | * THREE BUFFERS PER SET SIL 002000 9P016260 * TWO BUFFERS PER SET NONE 9P016270 | * IF INPUT TYPE UNIT SIL 200000 9P016280 | * 9P016290 | * 9P016300 | 07141 0441 00 1 72657 KJ500 LDI SWTCH,1 KJ500 9P016310 07142 -0340 00 0 07161 LAS KJA05 200 9P016320 | 07143 0020 00 0 07154 TRA KJ520 BUILD TWO 9P016330 | 07144 0020 00 0 07152 TRA KJ510 BUILD THREE 9P016340 | 07145 -0340 00 0 07162 LAS KJA06 25 9P016350 | 07146 0020 00 0 07152 TRA KJ510 BUILD THREE 9P016360 07147 0020 00 0 07150 TRA *+1 BUILD FOUR 9P016370 | 07150 -0055 00 004000 SIL 004000 BUILD FOUR BUFFERS PER SET 9P016380 | 07151 0400 00 1 07206 ADD KJA10,1 SINGLE BUFFER SIZE 9P016390 | 07152 -0055 00 002000 KJ510 SIL 002000 BUILD THREE BUFFERS PER SET KJ510 9P016400 | 07153 0400 00 1 07206 ADD KJA10,1 9P016410 07154 0400 00 1 07206 KJ520 ADD KJA10,1 BUILD TWO BUFFERS PER SET KJ520 9P016420 | 07155 -0054 00 000001 LFT 000001 INPUT OR OUTPUT 9P016430 | 07156 0020 00 0 07160 TRA KJ530 OUTPUT 9P016440 | 07157 -0055 00 200000 SIL 200000 TREAT ALL OTHER UNITS AS INPUT 9P016450 | 07160 0020 00 4 00001 KJ530 TRA 1,4 KJ530 9P016460 * 9P016470 | 07161 +000000000310 KJA05 DEC 200 KJA05 9P016480 | 07162 +000000000031 KJA06 DEC 25 KJA06 9P016490 | 07163 DUP 1,19 9P016500 | 07163 0 00000 0 00000 PZE 9P016510 07206 0 00000 0 00000 KJA10 PZE 0 BLOCK SIZE+2 FOR BUF CONTROL WORDS KJA10 9P016520 | 07207 +007777000000 KJA15 OCT 007777000000 KJA15 9P016530 | 07210 +000000000077 KJA16 OCT 77 KJA16 9P016540 | 07211 0 00000 0 00000 KJA20 PZE 0 STORAGE FOR NR WORDS IN INPUT SETS KJA20 9P016550 | 07212 0 00000 0 00000 KJA30 PZE 0 NR CELLS AVAILABLE FOR I-O BUFFERS KJA30 9P016560 07213 0 00000 0 00000 KJA25 PZE 0 STORAGE FOR NR WORDS IN OUTPUT SETS KJA25 9P016570 | 1 LISTING OF 12/01/64 PAGE 39 | SUBDIVIDE MEMORY INTO BUFFERS WHEN BINARY LOADING | | 07214 0 00000 0 00050 KJA35 PZE 40 NR BUFFER POOL CONTROL WORDS KJA35 9P016580 07215 0 00000 0 00000 KJA40 PZE 0 NR POSSIBLE OUTPUT SETS KJA40 9P016590 | 07216 0 00000 0 00000 KJA50 PZE 0 WORDS IN BUFFER SET KJA50 9P016600 | 07217 314525262631 KJA60 BCI 7,INEFFICIENT I-O. ROOM FOR ONLY ONE BUFFER KJA60 9P016610 | 07226 472551606445 BCI 2,PER UNIT 9P016620 | 07230 475125626260 KJA70 BCI 4,PRESS START TO PROCEED KJA70 9P016630 07234 602725452551 KJA80 BCI 6, GENERATOR LIMITATION-NOT ENOUGH SPA KJA80 9P016640 | 07242 232560264651 BCI 3,CE FOR I-O BUFFERS 9P016650 | 07245 0 00000 0 00000 KJA90 PZE 0 WORK CELL 9P016660 | 07246 0 00000 0 00014 KJA91 PZE 12 9P016670 | 07247 +000000007000 KJA92 OCT 000000007000 9P016680 07250 +000000000020 KJA93 DEC 16 9P016690 | 1 LISTING OF 12/01/64 PAGE 40 | BINARY LOADING CARD READING SUBROUTINE | | * 9P016710 * THIS ROUTINE READS CARDS WHEN LOADING BINARY DICTIONARIES 9P016720 | * OR OBJECT PROGRAMS 9P016730 | * 9P016740 | * THE CALLING SEQUENCE IS 9P016750 | * TSX KNB00,4 9P016760 * EOF OR *END RETURN 9P016770 | * NORMAL RETURN 9P016780 | * 9P016790 | * CHECKSUMS ARE CHECKED AND MESSAGE WRITTEN ON ERROR. 9P016800 | * THE RECORD IS ACCEPTED 9P016810 * 9P016820 | * 9P016830 | * 9P016840 | 07251 0634 00 4 07354 KNB00 SXA KNE00,4 KNB00 9P016850 | 07252 0074 00 4 05255 TSX RD(WR),4 KNB05 9P016860 07253 0 04712 1 00025 PZE 21,1,BCOMD KNB10 9P016870 | 07254 0020 00 0 07256 TRA *+2 KNB15 9P016880 | 07255 0020 00 0 07356 TRA KNE10 EOF KNB20 9P016890 | 07256 -0500 00 0 04622 CAL CARD+1 TEST FOR *END KNB21 9P016900 | 07257 0322 00 0 07413 ERA KNF22 KNB22 9P016910 07260 0100 00 0 07356 TZE KNE10 KNB23 9P016920 | 07261 -0500 00 0 04621 CAL CARD TEST FOR $* KNB24 9P016930 | 07262 -0320 00 0 07414 ANA KNF23 KNB25 9P016940 | 07263 0322 00 0 07415 ERA KNF24 KNB26 9P016950 | 07264 -0100 00 0 07270 TNZ KNB31 KNB27 9P016960 07265 0074 00 4 05630 TSX CLIST,4 KNB28 9P016970 | 07266 1 00014 3 04621 PON CARD,3,12 KNB29 9P016980 | 07267 0020 00 0 07252 TRA KNB00+1 KNB30 9P016990 | 07270 -0774 00 1 00000 KNB31 AXC 0,1 KNB31 9P017000 | 07271 -0500 00 0 04621 CAL CARD KNB32 9P017010 07272 -0320 00 0 07416 ANA KNF25 KNB33 9P017020 | 07273 -0340 00 1 07367 KNB35 LAS KNF01,1 TEST FOR SPECIAL KNB35 9P017030 | 07274 0020 00 0 07276 TRA *+2 KNB40 9P017040 | 07275 0522 00 1 07374 XEC KNF06,1 KNB45 9P017050 | 07276 0520 00 1 07370 ZET KNF01+1,1 KNB50 9P017060 07277 1 77777 1 07273 TXI KNB35,1,-1 KNB55 9P017070 | * KNB60 9P017080 | * NO SPECIAL CODE--TEST CHECKSUM KNB65 9P017090 | * KNB70 9P017100 | 07300 -0500 00 0 04622 CAL CARD+1 9P017110 07301 0100 00 0 07354 TZE KNE00 OMIT IT ZERO KNB75 9P017120 | 07302 -0500 00 0 04621 CAL CARD KNB80 9P017130 | 07303 -0320 00 0 07401 ANA KNF11 KNB85 9P017140 | 07304 -0734 00 4 00000 PDX 0,4 KNB90 9P017150 | 07305 -0774 00 1 00000 AXC 0,1 KNB95 9P017160 07306 -0500 00 0 04621 CAL CARD KNC00 9P017170 | 07307 0361 00 0 07417 ACL KNF26 MOVE ROUTINE TOOK OUT COL BIN INDIC 9P017180 | 07310 0361 00 1 04623 ACL CARD+2,1 KNC05 9P017190 | 07311 1 77777 1 07312 TXI *+1,1,-1 KNC10 9P017200 | 07312 2 00001 4 07310 TIX *-2,4,1 KNC15 9P017210 07313 0322 00 0 04622 ERA CARD+1 KNC20 9P017220 | 07314 0100 00 0 07354 TZE KNE00 KNC25 9P017230 | * CHECKSUM ERROR--CONVERT SERIAL KNC30 9P017240 | 07315 0774 00 4 00001 AXT 1,4 KNC35 9P017250 | 1 LISTING OF 12/01/64 PAGE 41 BINARY LOADING CARD READING SUBROUTINE | | 07316 0634 00 4 07341 SXA KNC35,4 KNC40 9P017260 | 07317 0774 00 1 00002 AXT 2,1 KNC45 9P017270 | 07320 0774 00 2 00003 AXT 3,2 KNC50 9P017280 07321 0560 00 2 04654 KNC55 LDQ CARD+27,2 KNC55 9P017290 | 07322 0774 00 4 00003 AXT 3,4 KNC60 9P017300 | 07323 0754 00 0 00000 KNC65 PXA 0,0 KNC65 9P017310 | 07324 -0763 00 0 00014 LGL 12 KNC70 9P017320 | 07325 0634 00 4 07337 SXA KNC25,4 KNC75 9P017330 07326 0774 00 4 00146 AXT KHL00-KHK00+2,4 KNC80 9P017340 | 07327 -0340 00 4 07566 LAS KHL00+2,4 KNC85 9P017350 | 07330 0020 00 0 07332 TRA *+2 KNC90 9P017360 | 07331 0020 00 0 07333 TRA *+2 KNC95 9P017370 | 07332 2 00002 4 07327 TIX *-3,4,2 KND00 9P017380 07333 -0500 00 1 07410 CAL KNF17+2,1 KND05 9P017390 | 07334 0767 00 0 00006 ALS 6 KND10 9P017400 | 07335 -0501 00 4 07567 ORA KHL00+3,4 KND15 9P017410 | 07336 0602 00 1 07410 SLW KNF17+2,1 KND20 9P017420 | 07337 0774 00 4 00000 KNC25 AXT **,4 KND25 9P017430 07340 2 00001 4 07323 TIX KNC65,4,1 KND30 9P017440 | 07341 -0774 00 4 00001 KNC35 AXC 1,4 KND35 9P017450 | 07342 0634 00 4 07341 SXA *-1,4 KND40 9P017460 | 07343 1 77777 2 07344 TXI *+1,2,-1 KND45 9P017470 | 07344 3 00001 4 07321 TXH KNC55,4,1 KND50 9P017480 07345 2 00001 1 07321 TIX KNC55,1,1 KND55 9P017490 | 07346 -0500 00 0 07407 CAL KNF17+1 KND60 9P017500 | 07347 -0320 00 0 07412 ANA KNF21 KND65 9P017510 | 07350 -0501 00 0 07411 ORA KNF20 KND70 9P017520 | 07351 0602 00 0 07407 SLW KNF17+1 KND75 9P017530 * KND80 9P017540 | 07352 0074 00 4 05642 TSX NLIST,4 KND85 9P017550 | 07353 1 00007 0 07402 PON KNF12,,7 KND90 9P017560 | * KND95 9P017570 | 07354 0774 00 4 00000 KNE00 AXT **,4 KNE00 9P017580 07355 0020 00 4 00002 TRA 2,4 NORMAL RETURN KNE05 9P017590 | 07356 0534 00 4 07354 KNE10 LXA KNE00,4 KNE10 9P017600 | 07357 0020 00 4 00001 TRA 1,4 EOF OR *END RETURN KNE15 9P017610 | * KNE20 9P017620 | 07360 0074 00 4 00117 KNE25 TSX SYSIDR,4 KNE25 9P017630 07361 0 00030 0 04621 PZE CARD,,24 KNE26 9P017640 | 07362 0020 00 0 07252 TRA KNB00+1 KNE27 9P017650 | * KNE28 9P017660 | * KNE29 9P017670 | 07363 0074 00 4 05630 KNE30 TSX CLIST,4 KNE30 9P017680 07364 1 00024 3 04621 PON CARD,3,20 KNE31 9P017690 | 07365 0074 00 4 00712 TSX (PAUSE,4 KNE32 9P017700 | 07366 0020 00 0 07252 TRA KNB00+1 KNE33 9P017710 | * KNE34 9P017720 | * KNE35 9P017730 07367 533122000000 KNF01 BCI 1,$IB000 $IBSYS KNF01 9P017740 | 07370 533124000000 BCI 1,$ID000 $ID KNF02 9P017750 | 07371 534721000000 BCI 1,$PA000 $PAUSE KNF03 9P017760 | 07372 0 00000 0 00000 PZE 0 KNF04 9P017770 | 07373 0 00000 0 00000 PZE 0 KNF05 9P017780 07374 0020 00 0 05115 KNF06 TRA SGNOFF KNF06 9P017790 | 07375 0020 00 0 07360 TRA KNE25 KNF07 9P017800 | 1 LISTING OF 12/01/64 PAGE 42 | BINARY LOADING CARD READING SUBROUTINE | 07376 0020 00 0 07363 TRA KNE30 KNF08 9P017810 | 07377 0074 00 4 04000 TSX LOST,4 9P017820 | 07400 0074 00 4 04000 TSX LOST,4 9P017830 | 07401 +000077000000 KNF11 OCT 000077000000 KNF11 9P017840 | 07402 233025234262 KNF12 BCI 4,CHECKSUM ERROR ON CARD KNF12 9P017850 07406 606060606060 KNF17 BCI 3, KNF17 9P017860 | 07411 +000060606060 KNF20 OCT 000060606060 KNF20 9P017870 | 07412 -377700000000 KNF21 OCT 777700000000 KNF21 9P017880 | 07413 542545246060 KNF22 BCI 1,*END KNF22 9P017890 | 07414 -377700000000 KNF23 OCT 777700000000 KNF23 9P017900 07415 535400000000 KNF24 BCI 1,$*0000 KNF24 9P017910 | 07416 -377777000000 KNF25 OCT 777777000000 KNF25 9P017920 | 07417 +000500000000 KNF26 OCT 000500000000 KNF26 9P017930 | * KHJ80 9P017940 | * KHJ90 9P017950 07420 +000000001000 KHK00 OCT 1000 KHK00 9P017960 | 07421 000000000000 KHK01 BCI 1,000000 KHK01 9P017970 | 07422 +000000000400 OCT 0400 KHK02 9P017980 | 07423 000000000001 BCI 1,000001 KHK03 9P017990 | 07424 +000000000200 OCT 0200 KHK04 9P018000 07425 000000000002 BCI 1,000002 KHK05 9P018010 | 07426 +000000000100 OCT 0100 KHK06 9P018020 | 07427 000000000003 BCI 1,000003 KHK07 9P018030 | 07430 +000000000040 OCT 0040 KHK08 9P018040 | 07431 000000000004 BCI 1,000004 KHK09 9P018050 07432 +000000000020 OCT 0020 KHK10 9P018060 | 07433 000000000005 BCI 1,000005 KHK11 9P018070 | 07434 +000000000010 OCT 0010 KHK12 9P018080 | 07435 000000000006 BCI 1,000006 KHK13 9P018090 | 07436 +000000000004 OCT 0004 KHK14 9P018100 07437 000000000007 BCI 1,000007 KHK15 9P018110 | 07440 +000000000002 OCT 0002 KHK16 9P018120 | 07441 000000000010 BCI 1,000008 KHK17 9P018130 | 07442 +000000000001 OCT 0001 KHK18 9P018140 | 07443 000000000011 BCI 1,000009 KHK19 9P018150 07444 +000000000102 OCT 0102 KHK20 9P018160 | 07445 000000000013 BCI 1,00000= KHK21 9P018170 | 07446 +000000000042 OCT 0042 KHK22 9P018180 | 07447 000000000014 BCI 1,00000' KHK23 9P018190 | 07450 +000000004000 OCT 4000 KHK24 9P018200 07451 000000000020 BCI 1,00000+ KHK25 9P018210 | 07452 +000000004400 OCT 4400 KHK26 9P018220 | 07453 000000000021 BCI 1,00000A KHK27 9P018230 | 07454 +000000004200 OCT 4200 KHK28 9P018240 | 07455 000000000022 BCI 1,00000B KHK29 9P018250 07456 +000000004100 OCT 4100 KHK30 9P018260 | 07457 000000000023 BCI 1,00000C KHK31 9P018270 | 07460 +000000004040 OCT 4040 KHK32 9P018280 | 07461 000000000024 BCI 1,00000D KHK33 9P018290 | 07462 +000000004020 OCT 4020 KHK34 9P018300 07463 000000000025 BCI 1,00000E KHK35 9P018310 | 07464 +000000004010 OCT 4010 KHK36 9P018320 | 07465 000000000026 BCI 1,00000F KHK37 9P018330 | 07466 +000000004004 OCT 4004 KHK38 9P018340 | 07467 000000000027 BCI 1,00000G KHK39 9P018350 1 LISTING OF 12/01/64 PAGE 43 | BINARY LOADING CARD READING SUBROUTINE | | 07470 +000000004002 OCT 4002 KHK40 9P018360 | 07471 000000000030 BCI 1,00000H KHK41 9P018370 07472 +000000004001 OCT 4001 KHK42 9P018380 | 07473 000000000031 BCI 1,00000I KHK43 9P018390 | 07474 +000000005000 OCT 5000 KHK44 9P018400 | 07475 000000000032 BCI 1,00000? KHK45 9P018410 | 07476 +000000004102 OCT 4102 KHK46 9P018420 07477 000000000033 BCI 1,00000. KHK47 9P018430 | 07500 +000000004042 OCT 4042 KHK48 9P018440 | 07501 000000000034 BCI 1,00000) KHK49 9P018450 | 07502 +000000002000 OCT 2000 KHK50 9P018460 | 07503 000000000040 BCI 1,00000- KHK51 9P018470 07504 +000000002400 OCT 2400 KHK52 9P018480 | 07505 000000000041 BCI 1,00000J KHK53 9P018490 | 07506 +000000002200 OCT 2200 KHK54 9P018500 | 07507 000000000042 BCI 1,00000K KHK55 9P018510 | 07510 +000000002100 OCT 2100 KHK56 9P018520 07511 000000000043 BCI 1,00000L KHK57 9P018530 | 07512 +000000002040 OCT 2040 KHK58 9P018540 | 07513 000000000044 BCI 1,00000M KHK59 9P018550 | 07514 +000000002020 OCT 2020 KHK60 9P018560 | 07515 000000000045 BCI 1,00000N KHK61 9P018570 07516 +000000002010 OCT 2010 KHK62 9P018580 | 07517 000000000046 BCI 1,00000O KHK63 9P018590 | 07520 +000000002004 OCT 2004 KHK64 9P018600 | 07521 000000000047 BCI 1,00000P KHK65 9P018610 | 07522 +000000002002 OCT 2002 KHK66 9P018620 07523 000000000050 BCI 1,00000Q KHK67 9P018630 | 07524 +000000002001 OCT 2001 KHK68 9P018640 | 07525 000000000051 BCI 1,00000R KHK69 9P018650 | 07526 +000000003000 OCT 3000 KHK70 9P018660 | 07527 000000000052 BCI 1,00000! KHK71 9P018670 07530 +000000002102 OCT 2102 KHK72 9P018680 | 07531 000000000053 BCI 1,00000$ KHK73 9P018690 | 07532 +000000000000 OCT 0000 KHK74 9P018700 | 07533 000000000060 BCI 1,00000 KHK75 9P018710 | 07534 +000000001400 OCT 1400 KHK76 9P018720 07535 000000000061 BCI 1,00000/ KHK77 9P018730 | 07536 +000000001200 OCT 1200 KHK78 9P018740 | 07537 000000000062 BCI 1,00000S KHK79 9P018750 | 07540 +000000001100 OCT 1100 KHK80 9P018760 | 07541 000000000063 BCI 1,00000T KHK81 9P018770 07542 +000000001040 OCT 1040 KHK82 9P018780 | 07543 000000000064 BCI 1,00000U KHK83 9P018790 | 07544 +000000001020 OCT 1020 KHK84 9P018800 | 07545 000000000065 BCI 1,00000V KHK85 9P018810 | 07546 +000000001010 OCT 1010 KHK86 9P018820 07547 000000000066 BCI 1,00000W KHK87 9P018830 | 07550 +000000001004 OCT 1004 KHK88 9P018840 | 07551 000000000067 BCI 1,00000X KHK89 9P018850 | 07552 +000000001002 OCT 1002 KHK90 9P018860 | 07553 000000000070 BCI 1,00000Y KHK91 9P018870 07554 +000000001001 OCT 1001 KHK92 9P018880 | 07555 000000000071 BCI 1,00000Z KHK93 9P018890 | 07556 +000000001202 OCT 1202 KHK94 9P018900 | 1 LISTING OF 12/01/64 PAGE 44 | BINARY LOADING CARD READING SUBROUTINE | 07557 +000000000072 OCT 72 CARD PUNCHES 0-2-8 KHK95 9P018910 | 07560 +000000001102 OCT 1102 KHK96 9P018920 | 07561 000000000073 BCI 1,00000, KHK97 9P018930 | 07562 +000000001042 OCT 1042 KHK98 9P018940 07563 000000000074 BCI 1,00000( KHK99 9P018950 | 07564 +000000002042 KHL00 OCT 2042 KHL00 9P018960 | 07565 000000000054 KHL01 BCI 1,00000* KHL01 9P018970 | 1 LISTING OF 12/01/64 PAGE 45 | JOB AND FILE CARD PROCESSING | * KA010 9P018990 | * KA020 9P019000 | * KA030 9P019010 | * KA040 9P019020 * KA050 9P019030 | * KA060 9P019040 | * KA070 9P019050 | 07566 NIAM1 BSS 0 MAIN1 ORIGIN SYSMBOL 9P019060 | * 9P019070 07566 0535 00 2 00106 KA100 LAC SYSPOS,2 SET XR TO UCB 9P019080 | 07567 0500 00 2 00137 CLA SYSLB1-1,2 9P019090 | 07570 0737 00 2 00000 PAC 0,2 9P019100 | 07571 0634 00 2 07677 SXA KA470,2 9P019110 | 07572 -0500 00 0 13020 CAL KAA50 TEST FOR INITIAL ENTRY 9P019120 07573 -0340 00 0 04376 LAS IN9PAC KA105 9P019130 | 07574 0020 00 0 07576 TRA *+2 KA110 9P019140 | 07575 0020 00 0 07610 TRA KA215 9P019150 | 07576 0602 00 0 04376 SLW IN9PAC KA120 9P019160 | 07577 -0500 00 0 00133 CAL SYSJOB HAS PRESENT JOB 9P019170 07600 -0320 00 0 04721 ANA 1DEC ALREADY FAILED 9P019180 | 07601 0100 00 0 07605 TZE *+4 NO 9P019190 | 07602 -0500 00 0 04750 CAL IBSXEC YES 9P019200 | 07603 0602 00 0 00132 SLW SYSGET IBSXEC TO SYSGET 9P019210 | 07604 0020 00 0 00103 TRA GOIBS TRA SYSRET 9P019220 07605 0074 00 4 00117 TSX SYSIDR,4 SIGN ON 9PAC 9P019230 | 07606 1 00004 1 13136 PON KAC30,1,4 9P019240 | 07607 0020 00 0 07610 TRA KA215 KA125 9P019250 | * KA130 9P019260 | * KA200 9P019270 * RELEASE ALL PREVIOUSLY ASSIGNED UNITS KA205 9P019280 | * KA210 9P019290 | 07610 -0500 00 0 13021 KA215 CAL KAA51 KA215 9P019300 | 07611 0602 00 0 04377 SLW LUNBLK KA220 9P019310 | 07612 -0500 00 0 00111 CAL SYSUAV KA225 9P019320 07613 0771 00 0 00022 ARS 18 9P019330 | 07614 0361 00 0 00111 ACL SYSUAV 9P019340 | 07615 0621 00 0 07617 STA *+2 9P019350 | 07616 -0534 00 1 00111 LXD SYSUAV,1 9P019360 | 07617 0600 00 1 00000 STZ **,1 9P019370 07620 2 00001 1 07617 TIX *-1,1,1 9P019380 | 07621 -0500 00 0 00112 CAL SYSUCW 9P019390 | 07622 0621 00 0 07676 STA BA005 9P019400 | 07623 -0734 00 1 00000 PDX 0,1 9P019410 | 07624 0441 60 0 07676 BA001 LDI* BA005 9P019420 07625 -0054 00 040100 LFT 40100 IF RESERVE OR CARD MACHINE. 9P019430 | 07626 0020 00 0 07671 TRA BA004 DO NOT PROCESS IT. 9P019440 | 07627 -0056 00 400000 LNT 400000 IF ASSIGNED 9P019450 | 07630 0020 00 0 07652 TRA BA002 TEST FOR SYSTEM UNIT 9P019460 | 07631 -0054 00 200000 LFT 200000 IF DETACHED 9P019470 07632 0020 00 0 07671 TRA BA004 DO NOT PROCESS IT 9P019480 | 07633 0057 00 077777 BA003 RIR 77777 RESET ADDRESS 9P019490 | 07634 0604 60 0 07676 STI* BA005 STORE UCB WORD 1 9P019500 | 07635 -0057 00 760777 RIL 760777 RESET ALL BUT CHANNEL NUMBER 9P019510 | 07636 -0046 00 0 00000 PIA X 9P019520 07637 0771 00 0 00033 ARS 27 X 9P019530 | 1 LISTING OF 12/01/64 PAGE 46 | JOB AND FILE CARD PROCESSING | | 07640 0402 00 0 04715 SUB L(1) COMPUTE L(AVAILABILITY CHAIN 9P019540 07641 0361 00 0 00111 ACL SYSUAV LOCATOR) FOR CHANNEL 9P019550 | 07642 0734 00 4 00000 PAX 0,4 FIND LAST UNIT IN CHAIN 9P019560 | 07643 -3 00000 4 07647 TXL *+4,4,0 FOUND. 9P019570 | 07644 0737 00 2 00000 PAC 0,2 STEP TO NEXT UNIT 9P019580 | 07645 -0500 00 2 00000 CAL 0,2 X 9P019590 07646 0020 00 0 07642 TRA *-4 TEST FOR END OF CHAIN 9P019600 | 07647 -0500 00 0 07676 CAL BA005 PUT THIS UNIT AT END OF CHAIN. 9P019610 | 07650 0621 00 2 00000 STA 0,2 X 9P019620 | 07651 0020 00 0 07671 TRA BA004 STEP TO NEXT UCB 9P019630 | 07652 -0500 00 0 00107 BA002 CAL SYSUNI GET SYSUNI LOCATOR. 9P019640 07653 0771 00 0 00022 ARS 18 COMPUTE INDEX ADDRESS. 9P019650 | 07654 0734 00 4 00000 PAX 0,4 X 9P019660 | 07655 0361 00 0 00107 ACL SYSUNI X 9P019670 | 07656 0621 00 0 07657 STA *+1 X 9P019680 | 07657 -0500 00 4 00000 CAL **,4 PICK UP SYSTEM UNIT 9P019690 07660 -0320 00 0 04720 ANA ADDRS MASK OFF L(UCW) 9P019700 | 07661 0322 00 0 07676 ERA BA005 COMPARE WITH THIS UNIT 9P019710 | 07662 0100 00 0 07667 TZE BA004-2 EXIT IF SYSTEM UNIT 9P019720 | 07663 2 00001 4 07657 TIX *-4,4,1 STEP TO NEXT UNIT. 9P019730 | 07664 -0057 00 200000 RIL 200000 UNIT WAS LEFT OUT IN LEFT FIELD 9P019740 07665 -0055 00 400000 SIL 400000 SET REPOSITIONING FLAG AND. 9P019750 | 07666 0020 00 0 07633 TRA BA003 UNASSIGNED FLAG. PUT UNIT IN CHAIN. 9P019760 | 07667 -0057 00 200000 RIL 200000 RESET NO REPOSITIONING FLAG 9P019770 | 07670 0604 60 0 07676 STI* BA005 IN SYSTEM UCB WORD 1 9P019780 | 07671 0534 00 4 07676 BA004 LXA BA005,4 PICK UP L(UCW) 9P019790 07672 1 00004 4 07673 TXI *+1,4,4 STEP TO NEXT 9P019800 | 07673 0634 00 4 07676 SXA BA005,4 UNIT. 9P019810 | 07674 2 00004 1 07624 TIX BA001,1,4 X 9P019820 | 07675 0020 00 0 07677 TRA *+2 9P019830 | 07676 0 00000 0 00000 BA005 PZE ** CURRENT UNIT UNDER TEST 9P019840 * KA455 9P019850 | * SETUP SYSTEM UNITS KA460 9P019860 | * KA465 9P019870 | 07677 -0774 00 4 00000 KA470 AXC **,4 KA470 9P019880 | 07700 0754 00 4 00000 PXA 0,4 9P019890 07701 0621 00 0 04505 STA SYMTAP-20 9P019900 | 07702 0535 00 1 04505 LAC SYMTAP-20,1 9P019910 | 07703 0441 00 1 00000 LDI 0,1 9P019920 | 07704 -0056 00 020100 LNT 020100 9P019930 | 07705 0020 00 0 07710 TRA *+3 9P019940 07706 -0625 00 0 04407 STL DISCIN SYSLB IS 1301 9P019950 | 07707 0020 00 0 07716 TRA KA515 9P019960 | 07710 0600 00 0 04407 STZ DISCIN SYSLB IS 729 9P019970 | 07711 -0500 00 1 00000 CAL 0,1 9P019980 | 07712 -0501 00 0 07733 ORA KA580+1 9P019990 07713 0625 00 0 04505 STT SYMTAP-20 9P020000 | 07714 -0500 00 1 00002 CAL 2,1 9P020010 | 07715 0622 00 0 04505 STD SYMTAP-20 9P020020 | * 9P020030 | * 9P020040 * 9P020050 | 07716 0535 00 4 00107 KA515 LAC SYSUNI,4 KA515 9P020060 | 07717 0774 00 1 00003 AXT 3,1 FOR LIST, PUNCH, INPUT KA520 9P020070 | 07720 0522 00 1 07732 KA525 XEC KA565+3,1 KA525 9P020080 | 1 LISTING OF 12/01/64 PAGE 47 JOB AND FILE CARD PROCESSING | | 07721 0621 00 1 04505 STA SYMTAP-20,1 KA530 9P020090 | 07722 -0765 00 0 00024 LGR 20 KA535 9P020100 | 07723 0400 00 1 07735 ADD KA580+3,1 KA540 9P020110 07724 0625 00 1 04505 STT SYMTAP-20,1 KA545 9P020120 | 07725 2 00001 1 07720 TIX KA525,1,1 KA550 9P020130 | 07726 0020 00 0 07735 TRA KA600 KA555 9P020140 | * KA560 9P020150 | 07727 -0500 00 4 00007 KA565 CAL 7,4 KA565 9P020160 07730 -0500 00 4 00013 CAL 11,4 KA570 9P020170 | 07731 -0500 00 4 00011 CAL 9,4 KA575 9P020180 | 07732 0 00000 4 00000 KA580 PZE 0,4 MODE BIT KA580 9P020190 | 07733 0 00000 6 00000 PZE 0,6 KA585 9P020200 | 07734 0 00000 4 00000 PZE 0,4 KA590 9P020210 * KA599 9P020220 | 07735 0534 00 4 00120 KA600 LXA SYSCOR,4 KA600 9P020230 | 07736 0634 00 4 07740 SXA *+2,4 KA602 9P020240 | 07737 1 46277 4 07740 TXI *+1,4,-REDAOL ZERO CORES KA604 9P020250 | 07740 0600 00 4 00000 STZ **,4 KA605 9P020260 07741 2 00001 4 07740 TIX *-1,4,1 KA610 9P020270 | 07742 0774 00 4 00372 AXT IN9PAC-FIL19,4 ZERO FCB S KA615 9P020280 | 07743 0600 00 4 04376 STZ IN9PAC,4 KA620 9P020290 | 07744 2 00001 4 07743 TIX *-1,4,1 KA625 9P020300 | * KA630 9P020310 07745 0074 00 4 06244 TSX SETUP,4 SETUP CONVERSION ROUTINE KA635 9P020320 | 07746 0 00000 0 00000 PZE KA640 9P020330 | * KA645 9P020340 | 07747 0074 00 4 10167 KA650 TSX KB110,4 READ A CARD KA650 9P020350 | 07750 2 04711 0 00025 PTW 21,,UCOMD KA655 9P020360 07751 0020 00 0 07753 TRA *+2 KA660 9P020370 | 07752 0020 00 0 07747 TRA KA650 KA665 9P020380 | * KA670 9P020390 | 07753 -0774 00 1 00000 AXC 0,1 TEST FOR JOB KA675 9P020400 | 07754 -0500 00 0 04623 CAL CARD+2 KA680 9P020410 07755 -0340 00 1 13146 KA685 LAS JOBS,1 KA685 9P020420 | 07756 0020 00 0 07760 TRA *+2 KA690 9P020430 | 07757 0522 00 1 07775 XEC KA765,1 KA695 9P020440 | 07760 0520 00 1 13147 ZET JOBS+1,1 KA700 9P020450 | 07761 1 77777 1 07755 TXI KA685,1,-1 KA705 9P020460 * IMPROPER FIRST CARD KA710 9P020470 | 07762 0074 00 4 00706 KA715 TSX (PROUT,4 KA715 9P020480 | 07763 0 00000 0 00001 PZE 1 KA720 9P020490 | 07764 0 04005 0 07770 PZE KA745,,5+512*4 KA725 9P020500 | 07765 -0500 00 0 07767 CAL *+2 KA730 9P020510 07766 0602 00 0 07762 SLW KA715 KA735 9P020520 | 07767 0020 00 0 07747 TRA KA650 KA740 9P020530 | 07770 114721236062 KA745 BCI 5,9PAC SEARCHING FOR JOB CARD KA745 9P020540 | * KA750 9P020550 | * PROCESS JOB CARD KA755 9P020560 * KA760 9P020570 | 07775 0020 00 0 10012 KA765 TRA KA822 RG GEN KA765 9P020580 | 07776 0020 00 0 10006 TRA KA800 RG BIN KA770 9P020590 | 07777 0020 00 0 10012 TRA KA822 FP NEW KA775 9P020600 | 10000 0020 00 0 10012 TRA KA822 FP GEN KA780 9P020610 10001 0020 00 0 10006 TRA KA800 FP BIN KA785 9P020620 | 10002 0020 00 0 10271 TRA KB300 9PAC SORT NOT VALID KA790 9P020630 | 1 LISTING OF 12/01/64 PAGE 48 | JOB AND FILE CARD PROCESSING | 10003 0074 00 4 04000 TSX LOST,4 9P020640 | 10004 0074 00 4 04000 TSX LOST,4 9P020650 | 10005 0074 00 4 04000 TSX LOST,4 9P020660 | 10006 -0500 00 0 13025 KA800 CAL KAA56 BINARY LOADING KA800 9P020670 | 10007 -0602 00 0 04504 ORS SYMTAP-21 KA805 9P020680 10010 0074 00 4 06244 TSX SETUP,4 SET CONVERSION FOR *FILE KA810 9P020690 | 10011 -0 00000 0 00000 MZE IN BINARY KA815 9P020700 | * KA820 9P020710 | 10012 0761 00 0 00000 KA822 NOP POSSIBLE LINK TO SYSIDR KA822 9P020720 | 10013 0761 00 0 00000 NOP POSSIBLE LINK TO SYSIDR 9P020730 10014 0020 00 0 10015 TRA KA825 9P020740 | 10015 0634 00 1 04655 KA825 SXA JOBTYP,1 GENERATION KA825 9P020750 | * INITIALIZE OBJECT LIMITS 9P020760 | 10016 -3 00000 1 10020 TXL *+2,1,0 ZERO, IS RG 9P020770 | 10017 -3 77776 1 10023 TXL *+4,1,-2 IF -2, -3, -4, IS FP 9P020780 10020 0774 00 4 72607 AXT CTTBL,4 RG UPPER 9P020790 | 10021 0774 00 2 17551 AXT DEXIF,2 RG LOWER 9P020800 | 10022 0020 00 0 10025 TRA *+3 9P020810 | 10023 0774 00 4 71544 AXT OBSUM-1,4 FP UPPER 9P020820 | 10024 0774 00 2 23636 AXT DXIFPF,2 FP LOWER 9P020830 10025 0754 00 2 00000 PXA 0,2 9P020840 | 10026 0602 00 0 04400 SLW OBJL1 LOWER 9P020850 | 10027 0602 00 0 04401 SLW OBJL2 LOWER 9P020860 | 10030 0754 00 4 00000 PXA 0,4 9P020870 | 10031 0602 00 0 04402 SLW OBJL3 UPPER 9P020880 10032 0602 00 0 04403 SLW OBJL4 UPPER 9P020890 | 10033 0774 00 4 00006 AXT 6,4 9P020900 | 10034 0560 00 0 04624 LDQ CARD+3 SET INDICATORS KA835 9P020910 | 10035 0754 00 0 00000 KA840 PXA 0,0 KA840 9P020920 | 10036 0600 00 4 04664 STZ IND02+1,4 KA845 9P020930 10037 -0763 00 0 00006 LGL 6 KA850 9P020940 | 10040 0322 00 0 13026 ERA KAA57 KA855 9P020950 | 10041 0100 00 0 10043 TZE *+2 KA860 9P020960 | 10042 -0625 00 4 04664 STL IND02+1,4 KA865 9P020970 | 10043 2 00001 4 10035 TIX KA840,4,1 KA870 9P020980 10044 0774 00 4 00006 AXT 6,4 KA875 9P020990 | 10045 0560 00 0 04625 LDQ CARD+4 KA880 9P021000 | 10046 0754 00 0 00000 KA885 PXA 0,0 KA885 9P021010 | 10047 0600 00 4 04672 STZ IND08+1,4 KA890 9P021020 | 10050 -0763 00 0 00006 LGL 6 KA895 9P021030 10051 0322 00 0 13026 ERA KAA57 KA900 9P021040 | 10052 0100 00 0 10054 TZE *+2 KA905 9P021050 | 10053 -0625 00 4 04672 STL IND08+1,4 KA910 9P021060 | 10054 2 00001 4 10046 TIX KA885,4,1 KA915 9P021070 | 10055 0600 00 0 04406 STZ FPRGSW 9P021080 * KA930 9P021090 | 10056 0774 00 4 00003 AXT 3,4 MOVE JOB NAME KA935 9P021100 | 10057 -0500 00 4 04631 CAL CARD+8,4 KA940 9P021110 | 10060 0602 00 4 04004 SLW JOBID+3,4 KA945 9P021120 | 10061 2 00001 4 10057 TIX *-2,4,1 KA960 9P021130 10062 0774 00 4 00014 AXT 12,4 MOVE JOB CARD TO PRINT KA965 9P021140 | 10063 -0500 00 4 04635 CAL CARD+12,4 KA970 9P021150 | 10064 0602 00 4 06045 SLW TT070+12,4 KA975 9P021160 | 10065 2 00001 4 10063 TIX *-2,4,1 KA980 9P021170 | 10066 -0500 00 0 13114 CAL KAB67 MOVE DATE KA985 9P021180 1 LISTING OF 12/01/64 PAGE 49 | JOB AND FILE CARD PROCESSING | | 10067 0560 00 0 00101 LDQ SYSDAT KA990 9P021190 | 10070 -0763 00 0 00014 LGL 12 KA995 9P021200 10071 0602 00 0 06045 SLW TT071 KB000 9P021210 | 10072 0754 00 0 00000 PXA 0,0 KB005 9P021220 | 10073 -0763 00 0 00014 LGL 12 KB010 9P021230 | 10074 0767 00 0 00006 ALS 6 KB015 9P021240 | 10075 -0763 00 0 00014 LGL 12 KB020 9P021250 10076 -0501 00 0 13116 ORA KAB69 /00/00 KB030 9P021260 | 10077 0602 00 0 06046 SLW TT072 KB035 9P021270 | 10100 0074 00 4 05646 TSX FLIST,4 JOB CARD OFF LINE KB040 9P021280 | 10101 -2 00003 0 06025 SIX TT050,,3 KB045 9P021290 | 10102 3 00000 0 00000 PTH 0 KB050 9P021300 10103 0074 00 4 05642 TSX NLIST,4 JOB CARD ON LINE KB055 9P021310 | 10104 2 00003 0 06025 PTW TT050,,3 BLANK HEADING KB060 9P021320 | * KB065 9P021330 | 10105 0074 00 4 12753 TSX KNA50,4 INITIALIZE PUNCH SERIALS KB070 9P021340 | * CONVERT DATE FOR LABELS KB075 9P021350 10106 -0500 00 0 00101 BLOAD CAL SYSDAT PICKUP SYSTEM DATE 9P021360 | 10107 -0130 00 0 00000 XCL 9P021370 | 10110 -0773 00 0 00030 RQL 24 POSITION TO YEAR 9P021380 | 10111 0774 00 2 00014 AXT 12,2 9P021390 | 10112 0074 00 4 17267 TSX BCONV,4 CONVERT YEAR 9P021400 10113 -0320 00 0 10152 ANA BG90 9P021410 | 10114 0602 00 0 17641 SLW BM00 SET LEAP YEAR TEST 9P021420 | 10115 0774 00 2 00014 AXT 12,2 9P021430 | 10116 0074 00 4 17267 TSX BCONV,4 CONVERT MONTH 9P021440 | 10117 0737 00 1 00000 PAC 0,1 9P021450 10120 -3 77763 1 10140 TXL BG01,1,-13 ERROR-MONTH GREATER THAN 12 9P021460 | 10121 0774 00 2 00014 AXT 12,2 9P021470 | 10122 0074 00 4 17267 TSX BCONV,4 CONVERT DAY 9P021480 | 10123 0400 00 1 10152 ADD BG90,1 ADD BASE COUNT FOR MONTH 9P021490 | 10124 3 77775 1 10127 TXH *+3,1,-3 IS MONTH JAN OR FEB 9P021500 10125 -0520 00 0 17641 NZT BM00 NO-LEAP YEAR TEST 9P021510 | 10126 0400 00 0 17603 ADD BONE ADJUST FOR LEAP YEAR 9P021520 | 10127 -0130 00 0 00000 XCL 9P021530 | 10130 0074 00 4 17303 TSX BCVR,4 CONVERT DAY OF YEAR TO BCD 9P021540 | 10131 -0765 00 0 00030 LGR 24 9P021550 10132 -0500 00 0 00101 CAL SYSDAT 9P021560 | 10133 -0765 00 0 00014 LGR 12 YEAR TO FILE DATE 9P021570 | 10134 -0130 00 0 00000 XCL 9P021580 | 10135 -0320 00 0 10150 ANA BG05 9P021590 | 10136 0602 00 0 04447 SLW BDATB STORE FILE DATE 9P021600 10137 0020 00 0 10271 BG02 TRA KB300 9P021610 | 10140 0074 00 4 05642 BG01 TSX NLIST,4 DATE ERROR 9P021620 | 10141 0 00002 0 17105 PZE BU11,0,2 9P021630 | 10142 -0500 00 0 10151 CAL BG06 9P021640 | 10143 0602 00 0 04447 SLW BDATB 9P021650 10144 0020 00 0 10271 TRA KB300 9P021660 | 10145 +171717171717 BG025 OCT 171717171717 9P021670 | 10146 000061000061 BG03 BCI 1,00/00/ 9P021680 | 10147 000060606060 BG04 BCI 1,00 9P021690 | 10150 +171777171717 BG05 OCT 171777171717 9P021700 10151 000060000000 BG06 BCI 1,00 000 9P021710 | 10152 +000000000003 BG90 OCT 000000000003 9P021720 | 10153 0 00000 0 00000 PZE 0 JAN 9P021730 | 1 LISTING OF 12/01/64 PAGE 50 | JOB AND FILE CARD PROCESSING | 10154 0 00000 0 00037 PZE 31 FEB 9P021740 | 10155 0 00000 0 00073 PZE 59 MAR 9P021750 | 10156 0 00000 0 00132 PZE 90 APR 9P021760 | 10157 0 00000 0 00170 PZE 120 MAY 9P021770 10160 0 00000 0 00227 PZE 151 JUN 9P021780 | 10161 0 00000 0 00265 PZE 181 JUL 9P021790 | 10162 0 00000 0 00324 PZE 212 AUG 9P021800 | 10163 0 00000 0 00363 PZE 243 SEP 9P021810 | 10164 0 00000 0 00421 PZE 273 OCT 9P021820 10165 0 00000 0 00460 PZE 304 NOV 9P021830 | 10166 0 00000 0 00516 PZE 334 DEC 9P021840 | * KB095 9P021850 | * ROUTINE TO READ PARAMETER TAPE AND HANDLE SPECIAL MONITOR CARDS KB100 9P021860 | * KB105 9P021870 10167 0634 00 4 10175 KB110 SXA KB140,4 KB110 9P021880 | 10170 -0500 00 4 00001 CAL 1,4 KB115 9P021890 | 10171 0602 00 0 10173 SLW *+2 KB120 9P021900 | 10172 0074 00 4 05255 KB125 TSX RD(WR),4 KB125 9P021910 | 10173 0 00000 0 00000 PZE ** KB130 9P021920 10174 0020 00 0 10177 TRA *+3 KB135 9P021930 | 10175 0774 00 4 00000 KB140 AXT **,4 KB140 9P021940 | 10176 0020 00 4 00003 TRA 3,4 KB145 9P021950 | 10177 -0774 00 4 00000 AXC 0,4 KB150 9P021960 | 10200 -0500 00 0 04621 KB155 CAL CARD KB155 9P021970 10201 -0340 00 4 10222 LAS KB210,4 KB165 9P021980 | 10202 0020 00 0 10204 TRA *+2 KB170 9P021990 | 10203 0522 00 4 10231 XEC KB230,4 KB175 9P022000 | 10204 0520 00 4 10223 ZET KB210+1,4 KB180 9P022010 | 10205 1 77777 4 10200 TXI KB155,4,-1 KB185 9P022020 10206 -0500 00 0 04621 CAL CARD KB186 9P022030 | 10207 -0320 00 0 10220 ANA KB206 KB187 9P022040 | 10210 0322 00 0 10221 ERA KB209 KB188 9P022050 | 10211 -0100 00 0 10215 TNZ *+4 KB189 9P022060 | 10212 0074 00 4 05642 KB185 TSX NLIST,4 9P022070 10213 1 00016 0 04621 PON CARD,,14 KB191 9P022080 | 10214 0020 00 0 10172 TRA KB125 KB192 9P022090 | 10215 0534 00 4 10175 LXA KB140,4 KB193 9P022100 | 10216 0020 00 4 00002 TRA 2,4 KB195 9P022110 | * KB200 9P022120 10217 +007777000000 KB205 OCT 007777000000 KB205 9P022130 | 10220 -377700000000 KB206 OCT 777700000000 KB206 9P022140 | 10221 535400000000 KB209 BCI 1,$*0000 KB209 9P022150 | 10222 533122627062 KB210 BCI 1,$IBSYS 9P022160 | 10223 534146226060 BCI 1,$JOB 9P022170 10224 536263464760 BCI 1,$STOP 9P022180 | 10225 533124606060 BCI 1,$ID 9P022190 | 10226 532567252364 BCI 1,$EXECU 9P022200 | 10227 534721646225 BCI 1,$PAUSE 9P022210 | 10230 000000000000 BCI 1,000000 9P022220 * 9P022230 | 10231 0020 00 0 05115 KB230 TRA SGNOFF 9P022240 | 10232 0020 00 0 10240 TRA KB235 9P022250 | 10233 0020 00 0 10247 TRA KB245 9P022260 | 10234 0020 00 0 10252 TRA KB255 9P022270 10235 0020 00 0 10255 TRA KB265 9P022280 | 1 LISTING OF 12/01/64 PAGE 51 | JOB AND FILE CARD PROCESSING | | 10236 0020 00 0 10265 TRA KB275 9P022290 10237 0074 00 4 04000 TSX LOST,4 9P022300 | * 9P022310 | 10240 -0500 00 0 04746 KB235 CAL IBSBSR 9P022320 | 10241 0602 00 0 00132 SLW SYSGET SET SYSGET 9P022330 | 10242 0500 00 0 00133 CLA SYSJOB B 9P022340 10243 -0760 00 0 00003 SSM 9P022350 | 10244 0761 00 0 00000 NOP 9P022360 | 10245 0601 00 0 00133 STO SYSJOB 9P022370 | 10246 0074 00 4 00113 TSX SYSRPT,4 9P022380 | * 9P022390 10247 -0500 00 0 04751 KB245 CAL CSTOP 9P022400 | 10250 0602 00 0 00132 SLW SYSGET SET SYSGET 9P022410 | 10251 0020 00 0 00103 TRA GOIBS TRA SYSRET 9P022420 | * 9P022430 | 10252 0074 00 4 00117 KB255 TSX SYSIDR,4 KB255 9P022440 10253 0 00000 0 04621 PZE CARD KB260 9P022450 | 10254 0020 00 0 10212 TRA KB185 9P022460 | * KB270 9P022470 | 10255 -0500 00 0 04623 KB265 CAL CARD+2 POSITION 9P022480 | 10256 0560 00 0 04624 LDQ CARD+3 SYSNAM 9P022490 10257 -0763 00 0 00022 LGL 18 IN AC 9P022500 | 10260 -0340 00 0 05076 LAS LD9PAC IS THIS STILL 9PAC ' 9P022510 | 10261 0020 00 0 10263 TRA *+2 NO 9P022520 | 10262 0020 00 0 10172 TRA KB125 YES 9P022530 | 10263 0602 00 0 00132 SLW SYSGET SYSNAM TO SYSGET 9P022540 10264 0020 00 0 00103 TRA GOIBS 9P022550 | * 9P022560 | 10265 0074 00 4 05642 KB275 TSX NLIST,4 PRINT IT KB275 9P022570 | 10266 1 00016 0 04621 PON CARD,,14 KB276 9P022580 | 10267 0074 00 4 00712 TSX (PAUSE,4 KB279 9P022590 10270 0020 00 0 10172 TRA KB125 KB280 9P022600 | * KB285 9P022610 | 1 LISTING OF 12/01/64 PAGE 52 | JOB AND FILE CARD PROCESSING | * READ A FILE CARD KB290 9P022630 | * KB295 9P022640 | 10271 0074 00 4 10167 KB300 TSX KB110,4 KB300 9P022650 | 10272 0 04712 1 00025 PZE 21,1,BCOMD KB310 9P022660 | 10273 0020 00 0 10275 TRA *+2 KB320 9P022670 10274 0020 00 0 10271 TRA *-3 KB330 9P022680 | 10275 -0500 00 0 04622 CAL CARD+1 KB340 9P022690 | 10276 -0320 00 0 05362 ANA RD181 KB350 9P022700 | 10277 0322 00 0 05361 ERA RD180 KB360 9P022710 | 10300 0100 00 0 10474 TZE KG050 END OF *FILE CARDS KB370 9P022720 * KC010 9P022730 | *PROCESS A *FILE CARD KC020 9P022740 | * KC030 9P022750 | * KC040 9P022760 | 10301 0774 00 4 00014 KC050 AXT 12,4 MOVE CARD IMAGE KC050 9P022770 10302 -0500 00 4 04635 CAL CARD+12,4 TO BQ00 FOR IOCS KC100 9P022780 | 10303 0602 00 4 17625 SLW BQ00+12,4 PREPROCESSOR ROUTINES KC200 9P022790 | 10304 2 00001 4 10302 TIX *-2,4,1 KC300 9P022800 | 10305 -0500 00 0 17620 CAL BQ00+7 ASSURE BLANK AS KC400 9P022810 | 10306 -0320 00 0 13131 ANA KAC03 FIRST CHARACTER KC500 9P022820 10307 -0501 00 0 13130 ORA KAC02 OF FILE SERIAL KC600 9P022830 | 10310 0602 00 0 17620 SLW BQ00+7 AND KC700 9P022840 | 10311 0074 00 4 13323 KC800 TSX BFILE,4 PROCESS IOCS ENTRIES KC800 9P022850 | * KC900 9P022860 | *PROCESS SPECIAL 9PAC ENTRIES OF *FILE CARD KD100 9P022870 * KD200 9P022880 | * KD300 9P022890 | 10312 0441 00 0 17601 KD400 LDI BZERO KD400 9P022900 | 10313 -0500 00 0 04622 CAL CARD+1 9P022910 | 10314 0560 00 0 04623 LDQ CARD+2 9P022920 10315 -0765 00 0 00006 LGR 6 9P022930 | 10316 0074 00 4 17205 TSX BCNTR,4 9P022940 | 10317 0 00006 0 17573 PZE BW13,,2*3 SCAN OPEN OPTION 9P022950 | 10320 0074 00 4 17205 TSX BCNTR,4 9P022960 | 10321 0 00010 0 17563 PZE BW12,,2*4 SCAN CLOSE OPTION 9P022970 10322 -0046 00 0 00000 PIA 9P022980 | 10323 -0602 00 1 00004 ORS 4,1 9P022990 | * KD510 9P023000 | * KD520 9P023010 | *BUILD SYMTAP ENTRY KD530 9P023020 * KD540 9P023030 | 10324 0534 00 2 13032 KD550 LXA KAB10,2 UNIT NUMBER KD550 9P023040 | 10325 -0500 00 0 10325 CAL * NZ ADDRESS KD554 9P023050 | 10326 0621 00 2 04531 STA SYMTAP,2 KD555 9P023060 | 10327 0441 00 1 00001 LDI 1,1 KD560 9P023070 10330 -0500 00 1 00001 CAL 1,1 KD570 9P023080 | 10331 -0763 00 0 00022 LGL 18 KD580 9P023090 | 10332 -0054 00 000400 LFT 000400 KD590 9P023100 | 10333 0020 00 0 10336 TRA *+3 KD600 9P023110 | 10334 -0320 00 0 13033 ANA KAB11 NOT LABELED KD610 9P023120 10335 0020 00 0 10343 TRA KD680 KD620 9P023130 | 10336 -0765 00 0 00001 LGR 1 KD630 9P023140 | 10337 -0054 00 003000 LFT 003000 KD640 9P023150 | 10340 -0765 00 0 00001 LGR 1 OUTPUT FILE KD650 9P023160 | 10341 -0320 00 0 13033 ANA KAB11 KD660 9P023170 1 LISTING OF 12/01/64 PAGE 53 | JOB AND FILE CARD PROCESSING | | 10342 0361 00 0 13034 ACL KAB12 KD670 9P023180 | 10343 0630 00 2 04531 KD680 STP SYMTAP,2 LABEL FLAGS KD680 9P023190 10344 0441 00 0 17601 LDI BZERO KD690 9P023200 | 10345 0560 00 0 04621 LDQ CARD KD700 9P023210 | 10346 -0773 00 0 00006 RQL 6 KD710 9P023220 | 10347 0074 00 4 17205 TSX BCNTR,4 SCAN DICTIONARY FLAG KD720 9P023230 | 10350 0 00020 0 13043 PZE KAB20,,4*4 KD730 9P023240 10351 0054 00 400000 RFT 400000 KD740 9P023250 | 10352 0020 00 0 10361 TRA KD780 KD750 9P023260 | 10353 0441 00 1 00001 LDI 1,1 NO DICTIONARY-- KD760 9P023270 | 10354 0057 00 600000 RIR 600000 SET MODE AND DENSITY KD761 9P023280 | 10355 -0054 00 004000 LFT 004000 EQUAL TO FILE KD762 9P023290 10356 0055 00 200000 SIR 200000 KD763 9P023300 | 10357 -0046 00 0 00000 PIA KD764 9P023310 | 10360 0020 00 0 10377 TRA KD920 KD770 9P023320 | 10361 -0500 00 1 00001 KD780 CAL 1,1 KD780 9P023330 | 10362 -0763 00 0 00011 LGL 9 KD790 9P023340 10363 -0760 00 0 00001 PBT KD800 9P023350 | 10364 0020 00 0 10371 TRA KD860 KD810 9P023360 | 10365 0534 00 2 13032 LXA KAB10,2 DICT AND LABELS KD820 9P023370 | 10366 -0500 00 2 04531 CAL SYMTAP,2 KD830 9P023380 | 10367 -0765 00 0 00022 LGR 18 KD840 9P023390 10370 0020 00 0 10377 TRA KD920 KD850 9P023400 | 10371 0056 00 040000 KD860 RNT 040000 DICT AND NO LABELS KD860 9P023410 | 10372 0020 00 0 10376 TRA KD910 KD870 9P023420 | 10373 -0500 00 1 00001 CAL 1,1 KD880 9P023430 | 10374 -0320 00 0 13035 ANA KAB13 KD890 9P023440 10375 0043 00 0 00000 OAI KD900 9P023450 | 10376 -0046 00 0 00000 KD910 PIA KD910 9P023460 | 10377 0534 00 2 13032 KD920 LXA KAB10,2 KD920 9P023470 | 10400 0625 00 2 04531 STT SYMTAP,2 STORE DICTIONARY FLAGS KD930 9P023480 | * KD940 9P023490 * KD950 9P023500 | 10401 0441 00 1 00001 LDI 1,1 KD955 9P023510 | 10402 -0056 00 003000 LNT 003000 IS THIS A CKPT FILE KD960 9P023520 | 10403 0020 00 0 10407 TRA KE010 KD965 9P023530 | 10404 -0500 00 0 13031 CAL KAB09 YES-- KD970 9P023540 10405 0602 00 0 04532 SLW CKPTAP KD975 9P023550 | 10406 0020 00 0 10460 TRA KE230 KD976 9P023560 | * KD980 9P023570 | * KD990 9P023580 | 10407 -3 00010 2 10435 KE010 TXL KE015,2,8 IF HORIZONTAL 9P023590 10410 -3 00011 2 10412 TXL *+2,2,9 9P023600 | 10411 0020 00 0 10435 TRA KE015 9P023610 | 10412 -0500 00 0 04627 CAL CARD+6 SCAN INPUT DENSITY 9P023620 | 10413 0560 00 0 04630 LDQ CARD+7 9P023630 | 10414 -0765 00 0 00006 LGR 6 9P023640 10415 0754 00 0 00000 PXA 0,0 9P023650 | 10416 -0763 00 0 00006 LGL 6 9P023660 | 10417 0322 00 0 13043 ERA KAB20 9P023670 | 10420 0100 00 0 10423 TZE *+3 9P023680 | 10421 0760 00 0 00000 CLM 9P023690 10422 0020 00 0 10424 TRA *+2 9P023700 | 10423 -0500 00 0 13022 CAL KAA53 9P023710 | 10424 0625 00 0 04476 STT SYMTAP-27 9P023720 | 1 LISTING OF 12/01/64 PAGE 54 | JOB AND FILE CARD PROCESSING | 10425 0754 00 0 00000 PXA 0,0 AND INPUT LOCATION 9P023730 | 10426 -0763 00 0 00006 LGL 6 9P023740 | 10427 0322 00 0 13026 ERA KAA57 9P023750 | 10430 0600 00 0 13027 STZ KAB58 9P023760 10431 0100 00 0 10433 TZE *+2 9P023770 | 10432 -0625 00 0 13027 STL KAB58 9P023780 | 10433 -0500 00 0 13030 CAL KAB59 AND ASSUME 200 BLOCKSIZE 9P023790 | 10434 0020 00 0 10456 TRA KE180 9P023800 | * 9P023810 10435 0560 00 0 13036 KE015 LDQ KAB14 IF NOT HORIZ, SCAN BLOCKSIZE 9P023820 | 10436 0074 00 4 17226 TSX BSCAN,4 KE020 9P023830 | 10437 3 00000 2 10443 TXH KE070,2,0 KE030 9P023840 | 10440 0560 00 0 13037 LDQ KAB15 WAS BLANK--ASSUME 500 KE040 9P023850 | 10441 0774 00 2 00030 AXT 24,2 KE050 9P023860 10442 0020 00 0 10454 TRA KE160 KE060 9P023870 | 10443 0056 00 000010 KE070 RNT 000010 KE070 9P023880 | 10444 0020 00 0 10450 TRA KE120 KE080 9P023890 | 10445 0560 00 0 17601 LDQ BZERO WAS N--UNBLOCKED KE090 9P023900 | 10446 0774 00 2 00006 AXT 6,2 KE100 9P023910 10447 0020 00 0 10454 TRA KE160 KE110 9P023920 | 10450 0056 00 000004 KE120 RNT 000004 KE120 9P023930 | 10451 0020 00 0 10454 TRA KE160 KE130 9P023940 | 10452 0560 00 0 13040 LDQ KAB16 WAS G--GROUPED KE140 9P023950 | 10453 0774 00 2 00030 AXT 24,2 KE150 9P023960 10454 0074 00 4 17267 KE160 TSX BCONV,4 CONVERT TO BINARY KE160 9P023970 | 10455 -0763 00 0 00022 LGL 18 KE170 9P023980 | 10456 0534 00 4 13032 KE180 LXA KAB10,4 KE180 9P023990 | 10457 0622 00 4 04531 STD SYMTAP,4 KE190 9P024000 | * KE200 9P024010 * KE210 9P024020 | * KE220 9P024030 | 10460 0441 00 0 17601 KE230 LDI BZERO EDIT PADDING FLAG KE230 9P024040 | 10461 0560 00 0 04625 LDQ CARD+4 KE240 9P024050 | 10462 -0773 00 0 00022 RQL 18 KE250 9P024060 10463 0074 00 4 17205 TSX BCNTR,4 KE260 9P024070 | 10464 0 00012 0 13053 PZE KAB30,,2*5 KE270 9P024080 | 10465 -0046 00 0 00000 PIA KE280 9P024090 | 10466 0534 00 1 13032 LXA KAB10,1 KE290 9P024100 | 10467 -0602 00 1 04531 ORS SYMTAP,1 KE300 9P024110 * KE310 9P024120 | * KE320 9P024130 | * KE330 9P024140 | 10470 -0520 00 0 04660 NZT PCHIND BINARY DECK REQUESTED KE340 9P024150 | 10471 0020 00 0 10271 TRA KB300 NO--READ NEXT CARD KE350 9P024160 10472 0074 00 4 12607 TSX PCHFIL,4 YES--PUNCH CARD KE360 9P024170 | 10473 0020 00 0 10271 TRA KB300 KE370 9P024180 | 1 LISTING OF 12/01/64 PAGE 55 | JOB AND FILE CARD PROCESSING | 10474 0520 00 0 04660 KG050 ZET PCHIND KG050 9P024200 | 10475 0074 00 4 12607 TSX PCHFIL,4 PUNCH *END CARD KG055 9P024210 | 10476 0074 00 4 06244 TSX SETUP,4 SET CONVERSIONS FOR KG060 9P024220 | 10477 0 00000 0 00000 PZE 0 REMAINDER OF INPUT KG065 9P024230 | * KG070 9P024240 10500 0534 00 2 04655 LXA JOBTYP,2 KG075 9P024250 | 10501 0522 00 2 10502 XEC *+1,2 KG080 9P024260 | 10502 0020 00 0 10565 TRA KG328 RGGEN KG085 9P024270 | 10503 0020 00 0 10662 TRA KH000 RGBIN KG090 9P024280 | 10504 0020 00 0 10513 TRA KG125 FPNEW KG095 9P024290 10505 0020 00 0 10513 TRA KG125 FPGEN KG100 9P024300 | 10506 0020 00 0 10513 TRA KG125 FPBIN KG105 9P024310 | 10507 0074 00 4 04000 TSX LOST,4 9P024320 | 10510 0074 00 4 04000 TSX LOST,4 9P024330 | 10511 0074 00 4 04000 TSX LOST,4 9P024340 10512 0074 00 4 04000 TSX LOST,4 9P024350 | * KG115 9P024360 | * FP--SETUP EXTRA TAPES KG120 9P024370 | 10513 0520 00 0 04671 KG125 ZET IND08 9P024380 | 10514 0020 00 0 30166 TRA CVR010 9P024390 10515 -0520 00 0 04520 NZT SYMTAP-9 9P024400 | 10516 0020 00 0 10541 TRA KG235 NO HORIZ KG130 9P024410 | 10517 -0520 00 0 13027 NZT KAB58 HORIZ--IS INPUT SYSIN 9P024420 | 10520 0020 00 0 10525 TRA *+5 9P024430 | 10521 -0500 00 0 11261 CAL KDB20+4 9P024440 10522 0602 00 0 11245 SLW KDB10+4 9P024450 | 10523 -0500 00 0 11354 CAL KDC04 9P024460 | 10524 0020 00 0 10533 TRA KG165 9P024470 | 10525 -0500 00 0 04174 CAL FIL09 HORIZ--NEED HORIZ IN UNIT KG135 9P024480 | 10526 -0320 00 0 11351 ANA KDC01 OF OPPOSITE CHANNEL FROM KG140 9P024490 10527 0100 00 0 10532 TZE *+3 HORIZONTAL PREPRO OUTPUT. KG145 9P024500 | 10530 -0500 00 0 11352 CAL KDC02 MAKE IT CH A KG150 9P024510 | 10531 0020 00 0 10533 TRA *+2 KG155 9P024520 | 10532 -0500 00 0 11353 CAL KDC03 MAKE IT CH B KG160 9P024530 | 10533 0602 00 0 11241 KG165 SLW KDB10 KG165 9P024540 10534 0074 00 4 11172 TSX KDE00,4 KG170 9P024550 | 10535 0621 00 0 10537 STA *+2 KG175 9P024560 | 10536 0074 00 4 11221 TSX KDA00,4 KG180 9P024570 | 10537 0 11241 0 00000 KG185 PZE **,,KDB10 KG185 9P024580 | 10540 0020 00 0 10547 TRA KG295 KG190 9P024590 * KG195 9P024600 | * NO HORIZ THIS FP RUN KG200 9P024610 | * NEED A UTILITY IF GEN KG225 9P024620 | * KG230 9P024630 | 10541 0535 00 2 04655 KG235 LAC JOBTYP,2 KG235 9P024640 10542 3 00003 2 10547 TXH KG295,2,3 KG240 9P024650 | 10543 0074 00 4 11172 TSX KDE00,4 KG245 9P024660 | 10544 0621 00 0 10546 STA *+2 KG250 9P024670 | 10545 0074 00 4 11221 TSX KDA00,4 ASSIGN UT TO SYMTAP-24 KG255 9P024680 | 10546 0 11255 0 00000 KG260 PZE **,,KDB20 KG260 9P024690 * KG265 9P024700 | * KG270 9P024710 | 10547 -0520 00 0 04517 KG295 NZT SYMTAP-10 IS AN RG INPUT SPECIFIED KG295 9P024720 | 10550 0020 00 0 10662 TRA KH000 NO-- KG297 9P024730 | 10551 -0625 00 0 04406 STL FPRGSW KG300 9P024740 1 LISTING OF 12/01/64 PAGE 56 | JOB AND FILE CARD PROCESSING | | 10552 -0500 00 0 04522 CAL SYMTAP-7 FP AND RG IN COMBINATION KG305 9P024750 | 10553 0602 00 0 04517 SLW SYMTAP-10 --MAKE RG INPUT EQUAL KG306 9P024760 10554 -0634 00 0 04517 SXD SYMTAP-10,0 WITH ZERO BLOCK LENGTH KG307 9P024770 | 10555 0774 00 4 00014 AXT 12,4 --TO FP MASTER OUTPUT KG310 9P024780 | 10556 -0500 00 4 04240 CAL FIL07+12,4 KG311 9P024790 | 10557 0602 00 4 04174 SLW FIL10+12,4 KG312 9P024800 | 10560 2 00001 4 10556 TIX *-2,4,1 KG313 9P024810 10561 -0500 00 0 13132 CAL KAC04 EXCEPT TO FLAG AS INPUT KG314 9P024820 | 10562 0320 00 0 04161 ANS FIL10+1 KG315 9P024830 | 10563 -0500 00 0 04733 CAL FOR BUT EXCLUDE FROM FILE LIST KG316 9P024840 | 10564 -0602 00 0 04164 ORS FIL10+4 KG317 9P024850 | * KG320 9P024860 * KG322 9P024870 | * RGGEN--SET UP EXTRA UNITS KG324 9P024880 | * KG326 9P024890 | 10565 0774 00 4 00023 KG328 AXT 19,4 TEST FOR OUTPUT DICTIONARIES KG328 9P024900 | 10566 3 00012 4 10570 KG330 TXH KG338,4,10 KG330 9P024910 10567 3 00006 4 10574 TXH KG346,4,6 KG332 9P024920 | 10570 -0500 00 4 04531 KG338 CAL SYMTAP,4 KG338 9P024930 | 10571 0100 00 0 10574 TZE KG346 KG340 9P024940 | 10572 -0320 00 0 06450 ANA TPOS52 KG342 9P024950 | 10573 -0100 00 0 10600 TNZ KG350 YES KG344 9P024960 10574 2 00001 4 10566 KG346 TIX KG330,4,1 KG346 9P024970 | 10575 0520 00 0 04666 ZET IND05 9P024980 | 10576 0020 00 0 10600 TRA KG350 9P024990 | 10577 0020 00 0 10604 TRA KG390 9P025000 | * KG349 9P025010 10600 0074 00 4 11172 KG350 TSX KDE00,4 ONE UT NEEDED FOR DICT STOR KG350 9P025020 | 10601 0621 00 0 10603 STA *+2 FOR SYMTAP-28 KG360 9P025030 | 10602 0074 00 4 11221 TSX KDA00,4 KG370 9P025040 | 10603 0 11271 0 00000 KG380 PZE **,,KDB30 KG380 9P025050 | 10604 0774 00 1 00000 KG390 AXT 0,1 COUNT NUMBER OF OUTPUTS KG390 9P025060 10605 0535 00 2 00147 LAC SYSOU1,2 SAVE L(UCB) SYSOU1,-OU2 9P025070 | 10606 -0634 00 2 11011 SXD KH602,2 UNITS. DO NOT USE SYSOU 9P025080 | 10607 0535 00 2 00150 LAC SYSOU2,2 FOR RG SCRATCH 9P025090 | 10610 -0634 00 2 11014 SXD KH605,2 9P025100 | 10611 0774 00 4 00344 AXT 12*19,4 KG400 9P025110 10612 3 00170 4 10614 KG405 TXH KG425,4,12*10 KG405 9P025120 | 10613 3 00110 4 10642 TXH KG485,4,12*6 KG410 9P025130 | 10614 -0500 00 4 04351 KG425 CAL FIL00+1,4 KG425 9P025140 | 10615 -0320 00 0 11355 ANA KDC10 KG430 9P025150 | 10616 0100 00 0 10642 TZE KG485 NOT AN OUTPUT KG435 9P025160 10617 -0500 00 4 04350 CAL FIL00,4 KG436 9P025170 | 10620 0734 00 2 00000 PAX 0,2 9P025180 | 10621 1 77770 2 10622 TXI *+1,2,-8 -RELATIVE POSITION OF OU1 IN SYSUNI 9P025190 | 10622 -3 00000 2 10642 TXL KG485,2,0 IF OU1, DO NOT COUNT 9P025200 | 10623 0734 00 2 00000 PAX 0,2 9P025210 10624 1 77767 2 10625 TXI *+1,2,-9 -RELATIVE POSITION OF OU2 IN SYSUN1 9P025220 | 10625 -3 00000 2 10642 TXL KG485,2,0 IF OU2, DO NOT COUNT 9P025230 | 10626 0737 00 2 00000 PAC 0,2 TEST UCB WORD 1, BIT 4 FOR CHANNEL KG439 9P025240 | 10627 0441 00 2 00000 LDI 0,2 IF CHANNEL IS 7909, UNIT WILL NOT KG440 9P025250 | 10630 -0054 00 020000 LFT 020000 BE ACCEPTABLE FOR RG SCRATCH UNIT KG442 9P025260 10631 0020 00 0 10642 TRA KG485 KG444 9P025270 | 10632 1 00001 1 10633 TXI *+1,1,1 COUNT PRIMARY UNIT KG448 9P025280 | 10633 0621 00 0 11357 STA KDC12 KG450 9P025290 | 1 LISTING OF 12/01/64 PAGE 57 | JOB AND FILE CARD PROCESSING | 10634 -0765 00 0 00022 LGR 18 KG455 9P025300 | 10635 -0320 00 0 11356 ANA KDC11 KG460 9P025310 | 10636 0100 00 0 10642 TZE KG485 NO SEC UNIT KG465 9P025320 | 10637 0322 00 0 11357 ERA KDC12 KG470 9P025330 10640 0100 00 0 10642 TZE KG485 KG475 9P025340 | 10641 1 00001 1 10642 TXI *+1,1,1 COUNT SECONDARY KG480 9P025350 | 10642 2 00014 4 10612 KG485 TIX KG405,4,12 KG485 9P025360 | 10643 3 00002 1 10662 TXH KH000,1,2 NEED NO SCRATCH KG500 9P025370 | 10644 3 00001 1 10656 TXH KG555,1,1 NEED ONE SCRATCH KG505 9P025380 10645 3 00000 1 10652 TXH KG520,1,0 NEED TWO SCRATCH KG510 9P025390 | 10646 0074 00 4 11172 TSX KDE00,4 NEED THREE SCRATCH KG515 9P025400 | 10647 0621 00 0 10651 STA *+2 KG516 9P025410 | 10650 0074 00 4 11221 TSX KDA00,4 KG517 9P025420 | 10651 0 11335 0 00000 PZE **,0,KDB60 KG518 9P025430 10652 0074 00 4 11172 KG520 TSX KDE00,4 KG520 9P025440 | 10653 0621 00 0 10655 STA *+2 KG540 9P025450 | 10654 0074 00 4 11221 TSX KDA00,4 KG545 9P025460 | 10655 0 11321 0 00000 PZE **,,KDB50 KG550 9P025470 | 10656 0074 00 4 11172 KG555 TSX KDE00,4 KG555 9P025480 10657 0621 00 0 10661 STA *+2 KG560 9P025490 | 10660 0074 00 4 11221 TSX KDA00,4 KG570 9P025500 | 10661 0 11305 0 00000 PZE **,,KDB40 KG575 9P025510 | * KG580 9P025520 | 1 LISTING OF 12/01/64 PAGE 58 JOB AND FILE CARD PROCESSING | | * KG590 9P025540 | * KG595 9P025550 | 10662 0500 00 0 11360 KH000 CLA KDC20 ASSIGN TAPES KH000 9P025560 10663 0560 00 0 04377 LDQ LUNBLK KH005 9P025570 | 10664 0074 00 4 17656 TSX UNITAS,4 KH010 9P025580 | * KH015 9P025590 | 10665 0074 00 4 17662 TSX BC009P,4 TO LIST TAPE REQUIREMENTS KH020 9P025600 | * KH025 9P025610 * BUILD SYMTAP ENTRIES FOR CUSTOMER TAPES KH030 9P025620 | * KH035 9P025630 | 10666 0774 00 4 00005 AXT 5,4 KH036 9P025640 | 10667 -0500 00 0 13121 CAL KAB78 KH038 9P025650 | 10670 0602 00 4 04415 SLW RGSMTP+5,4 KH039 9P025660 10671 2 00001 4 10670 TIX *-1,4,1 KH040 9P025670 | * KH041 9P025680 | 10672 0774 00 4 00024 AXT 20,4 KH042 9P025690 | 10673 0774 00 2 00000 AXT 0,2 KH045 9P025700 | 10674 0774 00 1 00000 AXT 0,1 KH050 9P025710 10675 -0520 00 1 04531 KH055 NZT SYMTAP,1 KH055 9P025720 | 10676 0020 00 0 10701 TRA *+3 KH060 9P025730 | 10677 -0500 00 2 04350 CAL FIL00,2 KH065 9P025740 | 10700 0621 00 1 04531 STA SYMTAP,1 KH070 9P025750 | 10701 1 00001 1 10702 TXI *+1,1,1 KH075 9P025760 10702 1 00014 2 10703 TXI *+1,2,12 KH080 9P025770 | 10703 2 00001 4 10675 TIX KH055,4,1 KH085 9P025780 | * KH090 9P025790 | * KH095 9P025800 | * BUILD SYMTAP ENTRIES FOR GENERATORS KH100 9P025810 * KH105 9P025820 | 10704 0534 00 2 04655 LXA JOBTYP,2 KH110 9P025830 | 10705 0522 00 2 10706 XEC *+1,2 KH115 9P025840 | 10706 0020 00 0 10767 TRA KH500 RGGEN KH120 9P025850 | 10707 0020 00 0 11051 TRA KH800 RGBIN KH1259P025860 10710 0020 00 0 10717 TRA KH175 FP NEW KH130 9P025870 | 10711 0020 00 0 10717 TRA KH175 FPGEN KH135 9P025880 | 10712 0020 00 0 10761 TRA KH355 FPBIN KH140 9P025890 | 10713 0074 00 4 04000 TSX LOST,4 9P025900 | 10714 0074 00 4 04000 TSX LOST,4 9P025910 10715 0074 00 4 04000 TSX LOST,4 9P025920 | 10716 0074 00 4 04000 TSX LOST,4 9P025930 | * KH150 9P025940 | * KH155 9P025950 | * KH160 9P025960 1 LISTING OF 12/01/64 PAGE 59 | JOB AND FILE CARD PROCESSING | | * KH165 9P025980 | * SET UP FO FP SCRATCH KH170 9P025990 10717 -0500 00 0 04522 KH175 CAL SYMTAP-7 KH175 9P026000 | 10720 0621 00 0 04500 STA SYMTAP-25 KH180 9P026010 | 10721 0630 00 0 04500 STP SYMTAP-25 KH185 9P026020 | 10722 -0500 00 0 04521 CAL SYMTAP-8 KH190 9P026030 | 10723 0621 00 0 04477 STA SYMTAP-26 KH195 9P026040 10724 0630 00 0 04477 STP SYMTAP-26 KH200 9P026050 | 10725 -0500 00 0 13123 CAL KAB80 KH205 9P026060 | 10726 0625 00 0 04500 STT SYMTAP-25 KH210 9P026070 | 10727 0625 00 0 04477 STT SYMTAP-26 KH215 9P026080 | * KH220 9P026090 10730 -0500 00 0 13122 CAL KAB79 KH225 9P026100 | 10731 0441 00 0 04522 LDI SYMTAP-7 KH230 9P026110 | 10732 0054 00 400000 RFT 400000 KH235 9P026120 | 10733 0020 00 0 10736 TRA *+3 KH240 9P026130 | 10734 0625 00 0 04522 STT SYMTAP-7 KH245 9P026140 10735 -0625 00 0 04707 STL NOSFD KH250 9P026150 | 10736 -0500 00 0 13122 CAL KAB79 KH255 9P026160 | 10737 0441 00 0 04521 LDI SYMTAP-8 KH260 9P026170 | 10740 0054 00 400000 RFT 400000 KH265 9P026180 | 10741 0020 00 0 10744 TRA *+3 KH270 9P026190 10742 0625 00 0 04521 STT SYMTAP-8 KH275 9P026200 | 10743 -0625 00 0 04710 STL NOCHD KH280 9P026210 | * KH285 9P026220 | * KH290 9P026230 | * KH295 9P026240 10744 0535 00 4 10546 KH300 LAC KG260,4 KH300 9P026250 | 10745 3 00000 4 10747 TXH *+2,4,0 KH305 9P026260 | 10746 -0774 00 4 04174 AXC FIL09,4 KH310 9P026270 | 10747 -0500 00 4 00000 CAL 0,4 KH315 9P026280 | 10750 0621 00 0 04501 STA SYMTAP-24 KH320 9P026290 10751 -0500 00 0 13123 CAL KAB80 KH325 9P026300 | 10752 0625 00 0 04501 STT SYMTAP-24 KH330 9P026310 | 10753 0441 00 4 00001 LDI 1,4 KH332 9P026320 | 10754 -0054 00 000400 LFT 000400 KH334 9P026330 | 10755 0361 00 0 17602 ACL BMZE KH336 9P026340 10756 0054 00 200000 RFT 200000 KH338 9P026350 | 10757 0361 00 0 06446 ACL TPOS50 KH340 9P026360 | 10760 0630 00 0 04501 STP SYMTAP-24 KH342 9P026370 | 10761 0535 00 4 10537 KH355 LAC KG185,4 KH355 9P026380 | 10762 -3 00000 4 10765 TXL KH380,4,0 KH360 9P026390 10763 -0500 00 4 00000 CAL 0,4 KH365 9P026400 | 10764 0621 00 0 04476 STA SYMTAP-27 KH370 9P026410 | 10765 -0520 00 0 04406 KH380 NZT FPRGSW KH380 9P026420 | 10766 0020 00 0 11051 TRA KH800 KH3909P026430 | 1 LISTING OF 12/01/64 PAGE 60 JOB AND FILE CARD PROCESSING | | * HANDLE RG GEN SCRATCH TAPES KH490 9P026450 | * KH495 9P026460 | 10767 0535 00 4 10603 KH500 LAC KG380,4 KH500 9P026470 10770 0600 00 0 04412 STZ RGSMTP+2 UNIT 29 NOT USED FOR RG KH502 9P026480 | 10771 -3 00000 4 10774 TXL KH535,4,0 KH505 9P026490 | 10772 -0500 00 4 00000 CAL 0,4 KH510 9P026500 | 10773 0621 00 0 04410 STA RGSMTP KH515 9P026510 | * KH520 9P026520 * INITIALIZE FOR REMAINDER KH525 9P026530 | * KH530 9P026540 | 10774 -0500 00 0 04504 KH535 CAL SYMTAP-21 KH535 9P026550 | 10775 0737 00 4 00000 PAC 0,4 KH540 9P026560 | 10776 -0500 00 4 00000 CAL 0,4 KH545 9P026570 10777 -0320 00 0 11461 ANA KEC11 KH550 9P026580 | 11000 0602 00 0 11460 SLW KEC10 SYSIN1 CH KH555 9P026590 | 11001 0774 00 1 00344 AXT 12*19,1 BUILD TABLE OF AVAILABLE TAPES KH560 9P026600 | 11002 3 00170 1 11004 KH565 TXH KH585,1,12*10 KH565 9P026610 | 11003 3 00110 1 11034 TXH KH665,1,12*6 KH580 9P026620 11004 -0500 00 1 04351 KH585 CAL FIL00+1,1 KH585 9P026630 | 11005 -0320 00 0 11355 ANA KDC10 KH590 9P026640 | 11006 0100 00 0 11034 TZE KH665 KH595 9P026650 | 11007 -0500 00 1 04350 CAL FIL00,1 KH600 9P026660 | 11010 0734 00 2 00000 PAX 0,2 KH601 9P026670 11011 1 00000 2 11012 KH602 TXI *+1,2,** SEE KG437 KH602 9P026680 | 11012 -3 00000 2 11034 TXL KH665,2,0 KH603 9P026690 | 11013 0734 00 2 00000 PAX 0,2 KH604 9P026700 | 11014 1 00000 2 11015 KH605 TXI *+1,2,** SEE KG438 KH605 9P026710 | 11015 -3 00000 2 11034 TXL KH665,2,0 KH606 9P026720 11016 0737 00 4 00000 PAC 0,4 $9P026730 | 11017 0441 00 4 00000 LDI 0,4 UCB WORD 1 $9P026740 | 11020 -0054 00 020000 LFT 020000 IF BIT FOUR OF WORD ONE IS A ONE, $9P026750 | 11021 0020 00 0 11034 TRA KH665 CHANNEL IS 7909. DO NOT USE FOR SCRATCH $9P026760 | 11022 0621 00 0 11361 STA KDC30 KH610 9P026770 11023 -0734 00 2 00000 PDX 0,2 KH615 9P026780 | 11024 0634 00 2 11362 SXA KDC31,2 KH620 9P026790 | 11025 0074 00 4 11363 TSX KEE00,4 KH625 9P026800 | 11026 -0500 00 0 11362 CAL KDC31 KH630 9P026810 | 11027 0100 00 0 11034 TZE KH665 KH635 9P026820 11030 0322 00 0 11361 ERA KDC30 KH640 9P026830 | 11031 0100 00 0 11034 TZE KH665 KH645 9P026840 | 11032 -0500 00 0 11362 CAL KDC31 KH650 9P026850 | 11033 0074 00 4 11363 TSX KEE00,4 KH660 9P026860 | 11034 2 00014 1 11002 KH665 TIX KH565,1,12 KH665 9P026870 * KH670 9P026880 | * KH675 9P026890 | 11035 0074 00 4 11410 TSX KEA00,4 KH700 9P026900 | 11036 0 00000 0 11036 PZE * KH705 9P026910 | 11037 0621 00 0 04414 STA RGSMTP+4 SYMTAP-24 KH710 9P026920 11040 0630 00 0 04414 STP RGSMTP+4 KH715 9P026930 | 11041 0074 00 4 11410 TSX KEA00,4 KH720 9P026940 | 11042 0 00000 0 00000 PZE 0 KH725 9P026950 | 11043 0621 00 0 04413 STA RGSMTP+3 SYMTAP-25 KH730 9P026960 | 11044 0630 00 0 04413 STP RGSMTP+3 KH735 9P026970 11045 0074 00 4 11410 TSX KEA00,4 KH760 9P026980 | 11046 0 00000 0 11046 PZE * KH765 9P026990 | 1 LISTING OF 12/01/64 PAGE 61 | JOB AND FILE CARD PROCESSING | 11047 0621 00 0 04411 STA RGSMTP+1 SYMTAP-27 KH770 9P027000 | 11050 0630 00 0 04411 STP RGSMTP+1 KH775 9P027010 | * KH780 9P027020 | * KH785 9P027030 | 1 LISTING OF 12/01/64 PAGE 62 JOB AND FILE CARD PROCESSING | | 11051 0074 00 4 11462 KH800 TSX KED00,4 PROTECT SYSUNI DENSITIES KH8009P027050 | 11052 0 00024 0 04532 PZE SYMTAP+1,,20 KH8109P027060 | 11053 0074 00 4 11462 TSX KED00,4 KH8159P027070 11054 0 00005 0 04502 PZE SYMTAP-23,,5 KH8209P027080 | 11055 0074 00 4 11462 TSX KED00,4 KH8309P027090 | 11056 0 00005 0 04415 PZE RGSMTP+5,,5 KH8409P027100 | 1 LISTING OF 12/01/64 PAGE 63 | JOB AND FILE CARD PROCESSING | * KI000 9P027120 | * WRITE LABELS TO ALL CUSTOMER OUTPUT TAPES KI005 9P027130 | * KI010 9P027140 | 11057 0774 00 1 00000 KI015 AXT 0,1 KI015 9P027150 11060 -0774 00 2 04350 AXC FIL00,2 KI020 9P027160 | 11061 0774 00 4 00024 AXT 20,4 KI025 9P027170 | 11062 -0500 00 2 00001 KI030 CAL 1,2 KI030 9P027180 | 11063 -0320 00 0 11355 ANA KDC10 KI035 9P027190 | 11064 0100 00 0 11073 TZE KI075 NOT OUTPUT KI040 9P027200 11065 0500 00 1 04531 CLA SYMTAP,1 KI045 9P027210 | 11066 0100 00 0 11073 TZE KI075 NOT USED KI050 9P027220 | 11067 0120 00 0 11073 TPL KI075 9P027230 | 11070 0634 00 4 11072 SXA KI070,4 KI060 9P027240 | 11071 0074 00 4 12331 TSX KE450,4 TO WRITE LABELS KI065 9P027250 11072 0774 00 4 00000 KI070 AXT **,4 KI070 9P027260 | 11073 1 00001 1 11074 KI075 TXI *+1,1,1 KI075 9P027270 | 11074 1 00014 2 11075 TXI *+1,2,12 KI080 9P027280 | 11075 2 00001 4 11062 TIX KI030,4,1 KI085 9P027290 | 11076 0020 00 0 11077 TRA KI200 KI090 9P027300 * KI095 9P027310 | 11077 0534 00 2 04655 KI200 LXA JOBTYP,2 KI200 9P027320 | 11100 0522 00 2 11101 XEC *+1,2 KI205 9P027330 | 11101 0020 00 0 11127 TRA KI425 RGGEN KI210 9P027340 | 11102 0020 00 0 11137 TRA KI525 RGBIN KI215 9P027350 11103 0020 00 0 11112 TRA KI270 FPNEW KI220 9P027360 | 11104 0020 00 0 11112 TRA KI270 FPGEN KI225 9P027370 | 11105 0020 00 0 11147 TRA KI575 FPBIN KI230 9P027380 | 11106 0074 00 4 04000 TSX LOST,4 9P027390 | 11107 0074 00 4 04000 TSX LOST,4 9P027400 11110 0074 00 4 04000 TSX LOST,4 9P027410 | 11111 0074 00 4 04000 TSX LOST,4 9P027420 | * KI240 9P027430 | 1 LISTING OF 12/01/64 PAGE 64 | JOB AND FILE CARD PROCESSING | * FPGEN--POSITION MASTER FILES AND CHANGE OUTPUT FILE TO BEFORE KI245 9P027450 | * THEIR B-RECORDS, POSITION SYSTEM TAPE TO FP AND KI250 9P027460 | * TRANSFER TO HSKP1. KI255 9P027470 | * KI260 9P027480 * KI265 9P027490 | 11112 -0520 00 0 04531 KI270 NZT SYMTAP KI270 9P027500 | 11113 0020 00 0 11116 TRA *+3 KI271 9P027510 | 11114 0074 00 4 06342 TSX TPOSIT,4 KI272 9P027520 | 11115 0 00000 0 00000 PZE 0 MASTER IN KI275 9P027530 11116 0074 00 4 06342 TSX TPOSIT,4 KI280 9P027540 | 11117 0 00000 0 00007 PZE 7 MASTER OUT KI285 9P027550 | 11120 0074 00 4 06342 TSX TPOSIT,4 KI290 9P027560 | 11121 0 00000 0 00010 PZE 8 CHANGE AND ERROR OUT KI295 9P027570 | 11122 0074 00 2 04776 TSX FSFSYS,2 PASS OBJECT KI300 9P027580 11123 0074 00 2 04776 TSX FSFSYS,2 AND RG KI310 9P027590 | 11124 0074 00 4 04752 TSX SYSRD,4 PASS CONTROL TO FP KI330 9P027600 | 11125 114721230301 BCI 1,9PAC31 HSKP1 9P027610 | 11126 0 21713 0 31501 PZE REDAOL,,REDAOL-NIAM1 KI332 9P027620 | * KI335 9P027630 * KI340 9P027640 | * KI345 9P027650 | * KI400 9P027660 | * RGGEN--MOVE SYMTAP ENTRIES TO PLACE, POSITION SYSTEM TAPE TO RG KI405 9P027670 | * AND TRANSFER TO PHASE ONE KI410 9P027680 * KI415 9P027690 | * KI420 9P027700 | 11127 0774 00 1 00005 KI425 AXT 5,1 KI425 9P027710 | 11130 -0500 00 1 04415 CAL RGSMTP+5,1 KI430 9P027720 | 11131 0602 00 1 04502 SLW SYMTAP-23,1 KI435 9P027730 11132 2 00001 1 11130 TIX *-2,1,1 KI440 9P027740 | 11133 0074 00 2 04776 TSX FSFSYS,2 PASS OBJECT KI450 9P027750 | 11134 0074 00 4 04752 TSX SYSRD,4 PASS CONTROL TO RG KI461 9P027760 | 11135 114721230201 BCI 1,9PAC21 KI462 9P027770 | 11136 0 22667 0 31501 PZE REDAOL,,REDAOL-RGORG KI464 9P027780 * KI465 9P027790 | * KI470 9P027800 | * KI475 9P027810 | * KI500 9P027820 | * RGBIN--POSITION SYSTEM TAPE TO RG FIXED AND TRANSFER TO KI505 9P027830 * LOAD BINARY PROGRAM KI510 9P027840 | * KI515 9P027850 | * KI520 9P027860 | 11137 0074 00 2 05004 KI525 TSX FSRSYS,2 PASS FPFIXD KI525 9P027870 | 11140 -0500 00 0 11145 CAL KI546 SET UP TSX TO SYSRD 9P027880 11141 0602 00 0 06675 SLW KI955+1 9P027890 | 11142 -0500 00 0 11146 CAL KI547 9P027900 | 11143 0602 00 0 06676 SLW KI955+2 9P027910 | 11144 0020 00 0 11163 TRA KI750 KI545 9P027920 | 11145 114721230103 KI546 BCI 1,9PAC13 RGFIXD KI546 9P027930 11146 0 03777 0 76777 KI547 PZE SORTT+STZE,,STZE KI547 9P027940 | * KI550 9P027950 | * FPBIN--POSITION SYSTEM TAPE TO EITHER FPFIXD OR TO KI555 9P027960 | * HORIZONTAL PREPROCESSOR AND LOAD BINARY KI560 9P027970 | * KI565 9P027980 * KI570 9P027990 | 1 LISTING OF 12/01/64 PAGE 65 | JOB AND FILE CARD PROCESSING | | 11147 -0520 00 0 04520 KI575 NZT SYMTAP-9 ARE HORIZONTALS PRESENT KI575 9P028000 11150 0020 00 0 11163 TRA KI750 NO-- KI580 9P028010 | 11151 0774 00 1 00003 AXT 3,1 PASS FPFIXD, RGFIXD, OBJECT KI585 9P028020 | 11152 0074 00 2 05004 TSX FSRSYS,2 KI590 9P028030 | 11153 2 00001 1 11152 TIX *-1,1,1 KI600 9P028040 | 11154 -0500 00 0 11161 CAL KI611 SET UP TSX TO SYSRD 9P028050 11155 0602 00 0 06675 SLW KI955+1 9P028060 | 11156 -0500 00 0 11162 CAL KI612 9P028070 | 11157 0602 00 0 06676 SLW KI955+2 9P028080 | 11160 0020 00 0 11163 TRA KI750 KI610 9P028090 | 11161 114721230105 KI611 BCI 1,9PAC15 PREPRO KI611 9P028100 11162 0 16156 0 31501 KI612 PZE REDAOL,,REDAOL-LDRBON KI612 9P028110 | * KI615 9P028120 | * KI620 9P028130 | 1 LISTING OF 12/01/64 PAGE 66 | JOB AND FILE CARD PROCESSING | * KI700 9P028150 | * TRANSFER TO HERE WHEN BINARY LOADING. SYSTEM TAPE KI705 9P028160 | * IS PROPERLY POSITIONED KI710 9P028170 | * KI715 9P028180 *LOAD DICTIONARY HOUSEKEEPING RECORDS KI720 9P028190 | * AND LAYOUT MASKS KI725 9P028200 | * FILES ARE NOT PROPERLY KI730 9P028210 | * POSITIONED KI735 9P028220 | * OTHERS ARE NOT. KI735 9P028230 * KI740 9P028240 | * KI745 9P028250 | 11163 0441 00 0 17601 KI750 LDI BZERO INITIALIZE COUNTS KI750 9P028260 | 11164 0600 00 0 04712 STZ BCOMD KI755 9P028270 | 11165 0074 00 4 07251 KI760 TSX KNB00,4 KI760 9P028280 11166 0020 00 0 06612 TRA KI825 KI765 9P028290 | 11167 -0534 00 4 04623 LXD CARD+2,4 KI770 9P028300 | 11170 -3 00003 4 11523 TXL KFB00,4,3 WRITE DICTIONARY KI775 9P028310 | 11171 0020 00 0 12275 TRA KFH00 COPY DICTIONARY KI780 9P028320 | * KI785 9P028330 * KI790 9P028340 | * KI795 9P028350 | 1 LISTING OF 12/01/64 PAGE 67 | JOB AND FILE CARD PROCESSING | * 9P028370 | * ROUTINE TO LOCATE AN EMPTY FCB TO USE TO ASSIGN AN AUXILLARY 9P028380 | * SCRATCH UNIT 9P028390 | * 9P028400 | * THE CALLING SEQUENCE IS 9P028410 * TSX KDE00,4 9P028420 | * RETURN WITH AC ADDRESS EQUAL TO EMPTY FCB 9P028430 | * 9P028440 | * 9P028450 | 11172 0634 00 4 11212 KDE00 SXA KDE74,4 KDE00 9P028460 11173 0774 00 4 00344 AXT 12*19,4 KDE05 9P028470 | 11174 3 00220 4 11200 KDE10 TXH KDE30,4,12*12 KDE10 9P028480 | 11175 3 00204 4 11202 TXH KDE40,4,12*11 KDE15 9P028490 | 11176 3 00154 4 11200 TXH KDE30,4,12*9 KDE20 9P028500 | 11177 3 00110 4 11202 TXH KDE40,4,12*6 KDE25 9P028510 11200 -0520 00 4 04350 KDE30 NZT FIL00,4 KDE30 9P028520 | 11201 0020 00 0 11207 TRA KDE65 KDE35 9P028530 | 11202 2 00014 4 11174 KDE40 TIX KDE10,4,12 KDE40 9P028540 | 11203 0074 00 4 00706 TSX (PROUT,4 KDE45 9P028550 | 11204 0 00000 0 00001 PZE 1 KDE50 9P028560 11205 0 04004 0 11215 PZE KDE85,,4+512*4 KDE55 9P028570 | 11206 0774 00 4 00344 AXT 12*19,4 KDE60 9P028580 | 11207 0754 00 4 00000 KDE65 PXA 0,4 KDE65 9P028590 | 11210 -0760 00 0 00003 SSM KDE70 9P028600 | 11211 0400 00 0 11214 ADD KDE80 KDE72 9P028610 11212 0774 00 4 00000 KDE74 AXT **,4 KDE74 9P028620 | 11213 0020 00 4 00001 TRA 1,4 KDE76 9P028630 | * KDE78 9P028640 | 11214 0 00000 0 04350 KDE80 PZE FIL00 KDE80 9P028650 | 11215 634646604421 KDE85 BCI 4,TOO MANY FILES USED KDE85 9P028660 * KDE90 9P028670 | * KDE95 9P028680 | 1 LISTING OF 12/01/64 PAGE 68 | JOB AND FILE CARD PROCESSING | * 9P028700 | * SUBROUTINE TO MOVE PRECODED FILE CONTROL BLOCK 9P028710 | * FOR AUXILLARY TAPES SUCH AS 9P028720 | * KDB00 EMPTY MASTER FILE -FP 9P028730 | * KDB10 HORIZONTAL INPUT -FP 9P028740 * KDB20 SCRATCH -FP 9P028750 | * KDB30 SCRATCH 24 -RG 9P028760 | * KDB40 SCRATCH-LESS THAN 4 RG OUTPUTS 9P028770 | * KDB50 SCRATCH-LESS THAN 3 RG OUTPUTS 9P028780 | * KDB60 SCRATCH-LESS THAN 2 RG OUTPUTS 9P028790 * 9P028800 | * 9P028810 | * THE CALLING SEQUENCE IS 9P028820 | * TSX KDA00,4 9P028830 | * PZE FILNN,,PRECODE 9P028840 * RETURN 9P028850 | * WHERE FILNN IS LOCATION OF FCB 9P028860 | * AND PRECODE IS LOCATION OF PRECODED FCB 9P028870 | * 9P028880 | 11221 0634 00 1 11235 KDA00 SXA KDA65,1 KDA00 9P028890 11222 0634 00 2 11236 SXA KDA65+1,2 KDA10 9P028900 | 11223 0634 00 4 11237 SXA KDA65+2,4 KDA15 9P028910 | 11224 -0500 00 4 00001 CAL 1,4 KDA20 9P028920 | 11225 -0737 00 1 00000 PDC 0,1 KDA25 9P028930 | 11226 0737 00 2 00000 PAC 0,2 KDA30 9P028940 11227 0774 00 4 00014 AXT 12,4 KDA35 9P028950 | 11230 -0500 00 1 00000 CAL 0,1 KDA40 9P028960 | 11231 0602 00 2 00000 SLW 0,2 KDA45 9P028970 | 11232 1 77777 1 11233 TXI *+1,1,-1 KDA50 9P028980 | 11233 1 77777 2 11234 TXI *+1,2,-1 KDA55 9P028990 11234 2 00001 4 11230 TIX *-4,4,1 KDA60 9P029000 | 11235 0774 00 1 00000 KDA65 AXT **,1 KDA65 9P029010 | 11236 0774 00 2 00000 AXT **,2 KDA70 9P029020 | 11237 0774 00 4 00000 AXT **,4 KDA75 9P029030 | 11240 0020 00 4 00002 TRA 2,4 KDA80 9P029040 * KDA90 9P029050 | * KDA95 9P029060 | 11241 -040417440417 KDB10 OCT 440417440417 KDB10 9P029070 | 11242 +000000000000 OCT 000000000000 KDB11 9P029080 | 11243 0 00000 0 00000 PZE 0 KDB12 9P029090 11244 0 00000 0 00000 PZE 0 KDB13 9P029100 | 11245 0 00000 0 00000 PZE 0 KDB14 9P029110 | 11246 0 00000 0 00000 PZE 0 KDB15 9P029120 | 11247 605454545454 BCI 1, ***** KDB16 9P029130 | 11250 600000000160 BCI 1, 0001 KDB17 9P029140 11251 606060000000 BCI 1, 000 KDB18 9P029150 | 11252 304651317146 BCI 3,HORIZONTAL INPUT KDB19 9P029160 | 11255 +000000000023 KDB20 OCT 000000000023 UT4 KDB20 9P029170 | 11256 +004000700000 OCT 004000700000 KDB21 9P029180 | 11257 0 00000 0 00000 PZE 0 KDB22 9P029190 11260 0 00000 0 00000 PZE 0 KDB23 9P029200 | 11261 -0 00000 0 00000 FOR 0 KDB24 9P029210 | 11262 0 00000 0 00000 PZE 0 KDB25 9P029220 | 11263 605454545454 BCI 1, ***** KDB26 9P029230 | 11264 600000000160 BCI 1, 0001 KDB27 9P029240 1 LISTING OF 12/01/64 PAGE 69 | JOB AND FILE CARD PROCESSING | | 11265 606060000000 BCI 1, 000 KDB28 9P029250 | 11266 264760627044 BCI 3,FP SYMTAP-24 KDB29 9P029260 11271 +000000000023 KDB30 OCT 000000000023 UT4 KDB30 9P029270 | 11272 +004000700000 OCT 004000700000 KDB31 9P029280 | 11273 0 00000 0 00000 PZE 0 KDB32 9P029290 | 11274 0 00000 0 00000 PZE 0 KDB33 9P029300 | 11275 -0 00000 0 00000 FOR 0 KDB34 9P029310 11276 0 00000 0 00000 PZE 0 KDB35 9P029320 | 11277 605454545454 BCI 1, ***** KDB36 9P029330 | 11300 600000000160 BCI 1, 0001 KDB37 9P029340 | 11301 606060000000 BCI 1, 000 KDB38 9P029350 | 11302 512760627044 BCI 3,RG SYMTAP-24 KDB39 9P029360 11305 +000000000022 KDB40 OCT 000000000022 UT3 KDB40 9P029370 | 11306 +006000700000 OCT 006000700000 KDB41 9P029380 | 11307 0 00000 0 00000 PZE 0 KDB42 9P029390 | 11310 0 00000 0 00000 PZE 0 KDB43 9P029400 | 11311 -0 00000 0 00000 FOR 0 KDB44 9P029410 11312 0 00000 0 00000 PZE 0 KDB45 9P029420 | 11313 605454545454 BCI 1, ***** KDB46 9P029430 | 11314 600000000160 BCI 1, 0001 KDB47 9P029440 | 11315 606060000000 BCI 1, 000 KDB48 9P029450 | 11316 512760622351 BCI 3,RG SCRATCH 1 KDB49 9P029460 11321 +000000000021 KDB50 OCT 000000000021 UT 2 KDB50 9P029470 | 11322 +006000700000 OCT 006000700000 KDB51 9P029480 | 11323 0 00000 0 00000 PZE 0 KDB52 9P029490 | 11324 0 00000 0 00000 PZE KDB53 9P029500 | 11325 -0 00000 0 00000 FOR 0 KDB54 9P029510 11326 0 00000 0 00000 PZE 0 KDB55 9P029520 | 11327 605454545454 BCI 1, ***** KDB56 9P029530 | 11330 600000000160 BCI 1, 0001 KDB57 9P029540 | 11331 606060000000 BCI 1, 000 KDB58 9P029550 | 11332 512760622351 BCI 3,RG SCRATCH 2 KDB59 9P029560 11335 +000000000020 KDB60 OCT 000000000020 UT 1 KDB60 9P029570 | 11336 +006000700000 OCT 006000700000 KDB61 9P029580 | 11337 0 00000 0 00000 PZE 0 KDB62 9P029590 | 11340 0 00000 0 00000 PZE 0 KDB63 9P029600 | 11341 -0 00000 0 00000 FOR 0 KDB64 9P029610 11342 0 00000 0 00000 PZE 0 KDB65 9P029620 | 11343 605454545454 BCI 1, ***** KDB66 9P029630 | 11344 600000000160 BCI 1, 0001 KDB67 9P029640 | 11345 606060000000 BCI 1, 000 KDB68 9P029650 | 11346 512760622351 BCI 3,RG SCRATCH 3 KDB69 9P029660 * 9P029670 | 11351 +000000000360 KDC01 OCT 000000000360 KDC01 9P029680 | 11352 -040417440417 KDC02 OCT 440417440417 ANY UNIT A CHANNEL KDC02 9P029690 | 11353 -040437440437 KDC03 OCT 440437440437 ANY UNIT B CHANNEL KDC03 9P029700 | 11354 0 00012 0 00012 KDC04 PZE 10,,10 KDC04 9P029710 11355 +003000000000 KDC10 OCT 003000000000 KDC10 9P029720 | 11356 +000000077777 KDC11 OCT 000000077777 KDC11 9P029730 | 11357 0 00000 0 00000 KDC12 PZE 0 TEMP STORAGE KDC12 9P029740 | 11360 -0 00360 0 04004 KDC20 MZE FIL19,,20*12 KDC20 9P029750 | 11361 0 00000 0 00000 KDC30 PZE 0 KDC30 9P029760 11362 0 00000 0 00000 KDC31 PZE 0 KDC31 9P029770 | 1 LISTING OF 12/01/64 PAGE 70 | JOB AND FILE CARD PROCESSING | | * THIS ROUTINE BUILDS TABLES OF UCW LOCATIONS OF 9P029790 * OUTPUT TAPES FOR LATTER ASSIGNMENT OF RG SCRATCH KEE 9P029800 | * KEE 9P029810 | * THE CALLING SEQUENCE IS KEE 9P029820 | * CAL FCB WORD 1 KEE 9P029830 | * TSX KEE00,4 KEE 9P029840 * RETURN KEE 9P029850 | * KEE 9P029860 | * KEE 9P029870 | 11363 0634 00 1 11404 KEE00 SXA KEE85,1 KEE00 9P029880 | 11364 0634 00 2 11405 SXA KEE85+1,2 KEE02 9P029890 11365 0634 00 4 11406 SXA KEE85+2,4 KEE10 9P029900 | 11366 0774 00 1 00000 AXT 0,1 KEE15 9P029910 | 11367 0621 00 0 11370 STA *+1 KEE20 9P029920 | 11370 -0500 00 0 00000 KEE25 CAL ** KEE25 9P029930 | 11371 -0320 00 0 11461 ANA KEC11 KEE30 9P029940 11372 0322 00 0 11460 ERA KEC10 KEE35 9P029950 | 11373 0100 00 0 11375 TZE *+2 KEE40 9P029960 | 11374 0774 00 1 00001 AXT 1,1 KEE45 9P029970 | 11375 -0500 00 1 11457 CAL KEC06,1 KEE50 9P029980 | 11376 -0734 00 2 00000 PDX 0,2 KEE55 9P029990 11377 2 00001 2 11400 TIX *+1,2,1 KEE60 9P030000 | 11400 -0754 00 2 00000 PXD 0,2 KEE65 9P030010 | 11401 0622 00 1 11457 STD KEC06,1 KEE70 9P030020 | 11402 -0500 00 0 11370 CAL KEE25 KEE75 9P030030 | 11403 0621 60 1 11457 STA* KEC06,1 KEE80 9P030040 11404 0774 00 1 00000 KEE85 AXT **,1 KEE85 9P030050 | 11405 0774 00 2 00000 AXT **,2 KEE90 9P030060 | 11406 0774 00 4 00000 AXT **,4 KEE95 9P030070 | 11407 0020 00 4 00001 TRA 1,4 KEF00 9P030080 | * KEF05 9P030090 * KEF15 9P030100 | 1 LISTING OF 12/01/64 PAGE 71 | JOB AND FILE CARD PROCESSING | | * 9P030120 *THIS ROUTINE LOCATES AN OUTPUT TAPE AVAILABLE FOR SCRATCH 9P030130 | * 9P030140 | *THE CALLING SEQUENCE IS 9P030150 | * TSX KEA00,4 9P030160 | * PZE X 1ST CHOICE, SYSIN1 CHANNEL IF ZERO 9P030170 * RETURN WITH UCW LOAATION IN ADDRESS 9P030180 | * 9P030190 | * 9P030200 | 11410 0634 00 1 11436 KEA00 SXA KEB05,1 KEA00 9P030210 | 11411 0634 00 2 11437 SXA KEB05+1,2 KEA05 9P030220 11412 0634 00 4 11440 SXA KEB05+2,4 KEA10 9P030230 | 11413 0774 00 1 00000 AXT 0,1 KEA15 9P030240 | 11414 -0520 00 4 00001 NZT 1,4 KEA20 9P030250 | 11415 0774 00 1 00001 AXT 1,1 KEA25 9P030260 | 11416 -0500 00 1 11443 CAL KEC02,1 KEA30 9P030270 11417 -0734 00 2 00000 PDX 0,2 KEA35 9P030280 | 11420 2 00001 2 11421 TIX *+1,2,1 KEA40 9P030290 | 11421 -0754 00 2 00000 PXD 0,2 KEA45 9P030300 | 11422 0622 00 1 11443 STD KEC02,1 KEA50 9P030310 | 11423 -0500 60 1 11443 CAL* KEC02,1 KEA55 9P030320 11424 -0100 00 0 11436 TNZ KEB05 KEA60 9P030330 | 11425 -3 00000 1 11427 TXL *+2,1,0 KEA65 9P030340 | 11426 0774 00 1 77777 AXT -1,1 KEA70 9P030350 | 11427 1 00001 1 11430 TXI *+1,1,1 KEA75 9P030360 | 11430 -0500 00 1 11443 CAL KEC02,1 KEA80 9P030370 11431 -0734 00 2 00000 PDX 0,2 KEA85 9P030380 | 11432 2 00001 2 11433 TIX *+1,2,1 KEA90 9P030390 | 11433 -0754 00 2 00000 PXD 0,2 K KEA95 9P030400 | 11434 0622 00 1 11443 STD KEC02,1 KEB00 9P030410 | 11435 -0500 60 1 11443 CAL* KEC02,1 KEB05 9P030420 11436 0774 00 1 00000 KEB05 AXT **,1 KEB10 9P030430 | 11437 0774 00 2 00000 AXT **,2 KEB15 9P030440 | 11440 0774 00 4 00000 AXT **,4 KEB20 9P030450 | 11441 0020 00 4 00002 TRA 2,4 KEB25 9P030460 | * KEB30 9P030470 * KEB35 9P030480 | * KEB40 9P030490 | 11442 0 00006 2 11451 KEC01 PZE KEC03,2,6 KEC01 9P030500 | 11443 0 00006 2 11456 KEC02 PZE KEC04,2,6 KEC02 9P030510 | 11444 DUP 1,5 9P030520 11444 0 00000 0 00000 PZE 0 9P030530 | 11451 KEC03 BSS 0 KEC03 9P030540 | 11451 DUP 1,5 9P030550 | 11451 0 00000 0 00000 PZE 0 9P030560 | 11456 KEC04 BSS 0 KEC04 9P030570 11456 0 00006 2 11451 KEC05 PZE KEC03,2,6 KEC05 9P030580 | 11457 0 00006 2 11456 KEC06 PZE KEC04,2,6 KEC06 9P030590 | 11460 0 00000 0 00000 KEC10 PZE 0 SYSIN1 CHANNEL KEC10 9P030600 | 11461 +007000000000 KEC11 OCT 007000000000 KEC11 9P030610 | * 9P030620 1 LISTING OF 12/01/64 PAGE 72 | JOB AND FILE CARD PROCESSING | | * 9P030640 | *SUBROUTINE TO SETUP DENSITY BITS OF 7090 9PAC UNITS SO 9P030650 * THAT DENSITIES SPECIFIED BY THE SYSTEM UNIT FUNCTION TABLE 9P030660 | * (SYSUNI) WILL OVERRIDE ANY 7090 9PAC OR *FILE 9P030670 | * CARD SPECIFICATION. 9P030680 | * 9P030690 | * 9P030700 *THE CALLING SEQUENCE IS 9P030710 | * TSX KED00,4 9P030720 | * PZE TABLE,,CT 9P030730 | * RETURL 9P030740 | * 9P030750 *WHERE TABLE POINTS TO A TABLE OF THE FORM OF SYMTAP 9P030760 | * AND CT IS THE NUMBER OF ENTRIES 9P030770 | * 9P030780 | *INDEX REGISTER 2 IS DESTROYED 9P030790 | * 9P030800 * 9P030810 | * 9P030820 | 11462 0634 00 4 11507 KED00 SXA KED50,4 9P030830 | 11463 -0500 00 4 00001 CAL 1,4 9P030840 | 11464 0621 00 0 11475 STA KED20 TABLE 9P030850 11465 -0734 00 4 00000 PDX 0,4 COUNT FROM 1,4 9P030860 | 11466 -0500 00 0 00107 CAL SYSUNI 9P030870 | 11467 -0734 00 2 00000 PDX 0,2 COUNT FROM SYSUNI 9P030880 | 11470 0754 00 2 00000 PXA 0,2 9P030890 | 11471 0621 00 0 11474 STA KED10 9P030900 11472 0400 00 0 00107 ADD SYSUNI 9P030910 | 11473 0621 00 0 11501 STA KED30 9P030920 | 11474 0774 00 2 00000 KED10 AXT **,2 9P030930 | 11475 -0500 00 4 00000 KED20 CAL **,4 TABLE ENTRY 9P030940 | 11476 -0320 00 0 04720 ANA ADDRS 9P030950 11477 0100 00 0 11506 TZE KED40 9P030960 | 11500 0602 00 0 11520 SLW KED90 9P030970 | 11501 -0500 00 2 00000 KED30 CAL **,2 SYSUNI ENTRY 9P030980 | 11502 -0320 00 0 04720 ANA ADDRS 9P030990 | 11503 0322 00 0 11520 ERA KED90 9P031000 11504 0100 00 0 11511 TZE KED60 TRANSFER ON MATCHING ENTRIES 9P031010 | 11505 2 00001 2 11501 TIX KED30,2,1 9P031020 | 11506 2 00001 4 11474 KED40 TIX KED10,4,1 9P031030 | 11507 0774 00 4 00000 KED50 AXT **,4 9P031040 | 11510 0020 00 4 00002 TRA 2,4 9P031050 11511 0560 60 0 11501 KED60 LDQ* KED30 SYSUNI ENTRY 9P031060 | 11512 -0500 60 0 11475 CAL* KED20 TABLE ENTRY 9P031070 | 11513 -0320 00 0 11521 ANA KED91 9P031080 | 11514 0162 00 0 11516 TQP *+2 DENSITY~ PLUS-LOW..MINUS-HIGH 9P031090 | 11515 -0501 00 0 11522 ORA KED92 HIGH DENSITY ZIGGERS 9P031100 11516 0602 60 0 11475 SLW* KED20 9P031110 | 11517 0020 00 0 11506 TRA KED40 9P031120 | * 9P031130 | * 9P031140 | * 9P031150 11520 0 00000 0 00000 KED90 PZE 0 TEMP STORAGE 9P031160 | 11521 -277777677777 KED91 OCT 677777677777 9P031170 | 11522 +100000100000 KED92 OCT 100000100000 9P031180 | 1 LISTING OF 12/01/64 PAGE 73 | JOB AND FILE CARD PROCESSING | * 9P031200 | *THIS ROUTINE WRITES DICTIONARIES 9P031210 | * TO TAPE WHEN LOADING A BINARY PROGRAM. 9P031220 | * 1. THE OUTPUT TAPE IS AT START OF TEXT 9P031230 * 2. AN EOF IS WRITTEN AFTER EACH DICT P-RECORD. 9P031240 | * 3. FOR STACKED DICTIONARIES, THE LAST P-RECORD AND ITS EOF 9P031250 | * ARE ERASES AND THE NEXT B-RECORD IS NOT WRITTEN. 9P031260 | * 9P031270 | * 9P031280 * 9P031290 | * 9P031300 | 11523 -0500 00 0 04621 KFB00 CAL CARD INITIALIZE TO MOVE KFB00 9P031310 | 11524 -0734 00 4 00000 PDX 0,4 KFB05 9P031320 | 11525 1 77777 4 11526 TXI *+1,4,-1 KFB10 9P031330 11526 0737 00 2 00000 PAC 0,2 KFB15 9P031340 | 11527 -0754 00 4 00000 PXD 0,4 9P031350 | 11530 0361 00 0 11620 ACL KFE06 ACCUMULATE COUNT FOR OUTPUT KFB25 9P031360 | 11531 0622 00 0 11620 STD KFE06 KFB30 9P031370 | 11532 -0774 00 1 00000 AXC 0,1 KFB35 9P031380 11533 -0500 00 1 04624 CAL CARD+3,1 MOVE INPUT TO KFB40 9P031390 | 11534 0602 00 2 11621 SLW KFE07,2 OUTPUT BUFFER KFB45 9P031400 | 11535 1 77777 1 11536 TXI *+1,1,-1 KFB50 9P031410 | 11536 1 77777 2 11537 TXI *+1,2,-1 KFB55 9P031420 | 11537 2 00001 4 11533 TIX *-4,4,1 KFB60 9P031430 11540 0500 00 0 04623 CLA CARD+2 KFB65 9P031440 | 11541 0120 00 0 11165 TPL KI760 TO READ ANOTHER CARD KFB70 9P031450 | * KFB75 9P031460 | * KFB80 9P031470 | * KFB85 9P031480 11542 0734 00 1 00000 PAX 0,1 INIT FILE NUMBER KFB90 9P031490 | 11543 0634 00 1 11565 SXA KFC90,1 KFB95 9P031500 | 11544 0634 00 1 11567 SXA KFD00,1 KFC00 9P031510 | 11545 0634 00 1 11573 SXA KFD15+2,1 KFC05 9P031520 | 11546 0634 00 1 11575 SXA KFD35+1,1 KFC10 9P031530 11547 0634 00 1 11604 SXA KFD75,1 KFC15 9P031540 | * KFC20 9P031550 | 11550 0600 00 0 11616 STZ KFE04 KFC25 9P031560 | 11551 -0500 00 0 04623 CAL CARD+2 KFC30 9P031570 | 11552 -0734 00 2 00000 PDX 0,2 KFC35 9P031580 11553 -3 00002 2 11574 TXL KFD35,2,2 KFC40 9P031590 | 11554 -0500 00 0 04624 CAL CARD+3 KFC45 9P031600 | 11555 -0320 00 0 11613 ANA KFE01 KFC50 9P031610 | 11556 0602 00 0 11616 SLW KFE04 KFC55 9P031620 | 11557 0322 00 0 11614 ERA KFE02 KFC60 9P031630 11560 -0100 00 0 11574 TNZ KFD35 KFC65 9P031640 | 11561 -0500 00 0 11617 CAL KFE05 KFC70 9P031650 | 11562 0767 00 1 00024 ALS 20,1 KFC75 9P031660 | 11563 0046 00 0 11571 TIF KFD15 KFC80 9P031670 | 11564 0074 00 4 05505 TSX NDSRT,4 KFC85 9P031680 11565 0 00005 0 00000 KFC90 PZE **,,5 KFC90 9P031690 | 11566 0074 00 4 05505 TSX NDSRT,4 KFC95 9P031700 | 11567 0 00005 0 00000 KFD00 PZE **,,5 KFD00 9P031710 | 11570 0020 00 0 11605 TRA KFD80 KFD05 9P031720 | * KFD10 9P031730 11571 0043 00 0 00000 KFD15 OAI KFD15 9P031740 | 1 LISTING OF 12/01/64 PAGE 74 | JOB AND FILE CARD PROCESSING | | 11572 0074 00 4 06342 TSX TPOSIT,4 KFD20 9P031750 11573 0 00000 0 00000 PZE ** KFD25 9P031760 | * KFD30 9P031770 | 11574 0074 00 4 05255 KFD35 TSX RD(WR),4 KFD35 9P031780 | 11575 -0 11620 0 00000 FOR **,,KFE06 KFD40 9P031790 | 11576 0020 00 0 11600 TRA *+2 KFD45 9P031800 11577 0074 00 4 06557 TSX SCEOT,4 KFD50 9P031810 | 11600 -0500 00 0 11616 CAL KFE04 KFD55 9P031820 | 11601 0322 00 0 11615 ERA KFE03 KFD60 9P031830 | 11602 -0100 00 0 11605 TNZ *+3 KFD65 9P031840 | 11603 0074 00 4 05505 TSX NDSRT,4 KFD70 9P031850 11604 0 00007 0 00000 KFD75 PZE **,,7 KFD75 9P031860 | 11605 -0500 00 0 11617 KFD80 CAL KFE05 KFD80 9P031870 | 11606 0622 00 0 11620 STD KFE06 KFD85 9P031880 | 11607 0774 00 4 00454 AXT 300,4 KFD86 9P031890 | 11610 0600 00 4 12275 STZ KFE07+300,4 KFD87 9P031900 11611 2 00001 4 11610 TIX *-1,4,1 KFD88 9P031910 | 11612 0020 00 0 11165 TRA KI760 TO READ ANOTHER CARD KFD90 9P031920 | * KFD95 9P031930 | * KFE00 9P031940 | 11613 -370000000000 KFE01 OCT 770000000000 KFE01 9P031950 11614 220000000000 KFE02 BCI 1,B00000 KFE02 9P031960 | 11615 470000000000 KFE03 BCI 1,P00000 KFE03 9P031970 | 11616 0 00000 0 00000 KFE04 PZE 0 KFE04 9P031980 | 11617 0 00000 0 00001 KFE05 PZE 1 KFE05 9P031990 | 11620 -1 00000 0 11621 KFE06 IOCT KFE07,,** KFE06 9P032000 11621 KFE07 BSS 300 KFE07 9P032010 | * KFE08 9P032020 | * KFE09 9P032030 | * KFE10 9P032040 | 1 LISTING OF 12/01/64 PAGE 75 JOB AND FILE CARD PROCESSING | | * KFG00 9P032060 | *THIS ROUTINE TAPE DUPLICATES A DICTIONARY FROM AN INPUT KFG10 9P032070 | * TO AN OUTPUT FILE WHEN LOADING A BINARY DECK KFG20 9P032080 * KFG30 9P032090 | *INPUT FILE NUMBER IN BITS 24-29 OF WORD 3 KFG40 9P032100 | *OUTPUT FILE NUMBER IN BITS 30-35 OF WORD 3 KFG50 9P032110 | * KFG60 9P032120 | * KFG70 9P032130 * KFG80 9P032140 | * KFG90 9P032150 | 12275 -0500 00 0 04623 KFH00 CAL CARD+2 INITIALIZE KFH00 9P032160 | 12276 -0765 00 0 00006 LGR 6 KFH05 9P032170 | 12277 -0320 00 0 12327 ANA KFK01 KFH10 9P032180 12300 0621 00 0 12311 STA KFH65 INPUT FILE NUMBER KFH15 9P032190 | 12301 0621 00 0 12315 STA KFH80+1 KFH20 9P032200 | 12302 -0763 00 0 00006 LGL 6 KFH25 9P032210 | 12303 -0320 00 0 12327 ANA KFK01 KFH30 9P032220 | 12304 0621 00 0 12313 STA KFH65+2 OUTPUT FILE NUMBER KFH35 9P032230 12305 0621 00 0 12320 STA KFJ00 KFH40 9P032240 | 12306 0621 00 0 12323 STA KFJ25+1 KFH45 9P032250 | 12307 0734 00 1 00000 PAX 0,1 KFH50 9P032260 | * KFH55 9P032270 | 12310 0074 00 4 06342 TSX TPOSIT,4 AND FILE POSITIONS KFH60 9P032280 12311 0 00000 0 00000 KFH65 PZE ** KFH65 9P032290 | 12312 0074 00 4 06342 TSX TPOSIT,4 KFH70 9P032300 | 12313 0 00000 0 00000 PZE ** KFH75 9P032310 | 12314 0074 00 4 05255 KFH80 TSX RD(WR),4 READ KFH80 9P032320 | 12315 0 12330 0 00000 PZE **,,KFK02 KFH85 9P032330 12316 0020 00 0 12322 TRA KFJ25 KFH90 9P032340 | 12317 0074 00 4 05505 TSX NDSRT,4 ON EOF--WRITE EOF KFH95 9P032350 | 12320 0 00007 0 00000 KFJ00 PZE **,,7 KFJ00 9P032360 | 12321 0020 00 0 11165 TRA KI760 AND RETURN KFJ05 9P032370 | * KFJ10 9P032380 * KFJ15 9P032390 | * KFJ20 9P032400 | 12322 0074 00 4 05255 KFJ25 TSX RD(WR),4 KFJ25 9P032410 | 12323 -0 12330 0 00000 FOR **,,KFK02 KFJ30 9P032420 | 12324 0020 00 0 12314 TRA KFH80 KFJ35 9P032430 12325 0074 00 4 06557 TSX SCEOT,4 KFJ40 9P032440 | 12326 0020 00 0 12314 TRA KFH80 KFJ45 9P032450 | * KFJ50 9P032460 | * KFJ55 9P032470 | * KFJ60 9P032480 12327 +000000000077 KFK01 OCT 000000000077 KFK01 9P032490 | 12330 -1 00016 0 11621 KFK02 IOCT KFE07,,14 KFK03 9P032500 | * KFK04 9P032510 | * KFK05 9P032520 | 1 LISTING OF 12/01/64 PAGE 76 JOB AND FILE CARD PROCESSING | | * KLF50 9P032540 | * 9P032550 | * 9P032560 *SUBROUTINE TO PREPARE AND WRITE A LABEL AND EOF 9P032570 | *THE CALLING SEQUENCE IS 9P032580 | * AXT UNIT,1 9P032590 | * AXT L(FCB),2 9P032600 | * TSX KE450,4 9P032610 * RETURN 9P032620 | * 9P032630 | *THE LABEL DENSITY IS SET FROM SYMTAP PREFIX 9P032640 | *THE LABEL IS PREPARED AND WRITTEN 9P032650 | *AN EOF IS WRITTEN 9P032660 *THE TAPE IS NOT REWOUND 9P032670 | * 9P032680 | * 9P032690 | * 9P032700 | 12331 0634 00 2 12433 KE450 SXA KF180,2 KE450 9P032710 12332 0634 00 1 12434 SXA KF180+1,1 KE460 9P032720 | 12333 0634 00 4 12435 SXA KF180+2,4 KE470 9P032730 | 12334 0634 00 1 12336 SXA *+2,1 KE475 9P032740 | 12335 0074 00 4 05505 TSX NDSRT,4 REWIND KE480 9P032750 | 12336 0 00003 0 00000 PZE **,,3 KE485 9P032760 12337 -0500 00 0 13115 KE490 CAL KAB68 REPLACE WITH TSX KF300,4 KE490 9P032770 | 12340 0602 00 0 04451 SLW LAREA+1 TO CHECK OUTPUT LABEL KE495 9P032780 | 12341 0500 00 0 13105 CLA KAB60 YES--PREPARE LABEL KE500 9P032790 | 12342 0601 00 0 04450 STO LAREA KE510 9P032800 | 12343 0500 00 2 00006 CLA 6,2 FILE SERIAL KE520 9P032810 12344 0601 00 0 04452 STO LAREA+2 KE530 9P032820 | 12345 -0500 00 2 00007 CAL 7,2 REEL SEQUENCE NUMBER KE540 9P032830 | 12346 0602 00 0 04453 SLW LAREA+3 KE550 9P032840 | 12347 0560 00 0 04447 LDQ DATE TODAYS DATE KE560 9P032850 | 12350 -0600 00 0 04454 STQ LAREA+4 KE570 9P032860 12351 0500 00 2 00010 CLA 8,2 RETENTION DAYS KE580 9P032870 | 12352 0601 00 0 04455 STO LAREA+5 KE590 9P032880 | 12353 -0500 00 0 13106 CAL KAB61 KE600 9P032890 | 12354 0604 00 0 04462 STI LAREA+10 KE610 9P032900 | 12355 0441 00 2 00001 LDI 1,2 KE620 9P032910 12356 0054 00 100000 RFT 100000 FILE DENSITY KE630 9P032920 | 12357 0361 00 0 13107 ACL KAB62 KE640 9P032930 | 12360 -0054 00 004000 LFT 004000 MODE KE650 9P032940 | 12361 0361 00 0 13110 ACL KAB63 KE660 9P032950 | 12362 -0054 00 000100 LFT 000100 CHECKSUM KE670 9P032960 12363 0361 00 0 13111 ACL KAB64 KE680 9P032970 | 12364 -0054 00 000200 LFT 000200 BLOCK SEQ NUMBER KE690 9P032980 | 12365 0361 00 0 13112 ACL KAB65 KE700 9P032990 | 12366 -0056 00 040000 LNT 040000 IF OPENING KE710 9P033000 | 12367 0020 00 0 12372 TRA *+3 NO CHECKPOINT KE720 9P033010 12370 -0054 00 200000 LFT 200000 KE730 9P033020 | 12371 0361 00 0 13113 ACL KAB66 KE740 9P033030 | 12372 0602 00 0 04456 SLW LAREA+6 KE750 9P033040 | 12373 0560 00 2 00011 LDQ 9,2 FILE NAME KE760 9P033050 | 12374 -0600 00 0 04457 STQ LAREA+7 KE770 9P033060 12375 0560 00 2 00012 LDQ 10,2 KE780 9P033070 | 12376 -0600 00 0 04460 STQ LAREA+8 KE790 9P033080 | 1 LISTING OF 12/01/64 PAGE 77 | JOB AND FILE CARD PROCESSING | 12377 0560 00 2 00013 LDQ 11,2 KE800 9P033090 | 12400 -0600 00 0 04461 STQ LAREA+9 KE810 9P033100 | 12401 0441 00 0 04462 LDI LAREA+10 KE820 9P033110 | 12402 0774 00 4 00004 AXT 4,4 KE830 9P033120 | 12403 -0500 00 0 13114 CAL KAB67 KE840 9P033130 12404 0602 00 4 04466 SLW LAREA+14,4 KE850 9P033140 | 12405 2 00001 4 12404 TIX *-1,4,1 KE860 9P033150 | * KE890 9P033160 | * KE900 9P033170 | * KE910 9P033180 12406 -0500 00 1 04531 CAL SYMTAP,1 MODIFY SYMTAP TEMP KE930 9P033190 | 12407 0625 00 0 13117 STT KAB70 KE940 9P033200 | 12410 -0765 00 0 00022 LGR 18 KE950 9P033210 | 12411 0625 00 1 04531 STT SYMTAP,1 KE960 9P033220 | 12412 -0763 00 0 00003 LGL 3 KE970 9P033230 12413 -0320 00 0 13110 ANA KAB63 KE980 9P033240 | 12414 0400 00 0 13110 ADD KAB63 KE999 9P033250 | 12415 0622 00 0 12422 STD KF090 KF010 9P033260 | 12416 0634 00 1 12422 SXA KF090,1 KF030 9P033270 | 12417 0634 00 1 12424 SXA KF110,1 KF040 9P033280 12420 0634 00 1 12430 SXA KF150,1 KF050 9P033290 | 12421 0074 00 4 05505 TSX NDSRT,4 KF060 9P033300 | 12422 0 00000 0 00000 KF090 PZE **,,** SET DENSITY FOR LABELS KF090 9P033310 | 12423 0074 00 4 05255 TSX RD(WR),4 WRITE KF100 9P033320 | 12424 -0 13120 0 00000 KF110 FOR **,,KAB71 KF110 9P033330 12425 0020 00 0 12427 TRA *+2 KF120 9P033340 | 12426 0761 00 0 00000 NOP ASSUME NO EOT ON B LABEL KF130 9P033350 | 12427 0074 00 4 05505 TSX NDSRT,4 KF140 9P033360 | 12430 0 00007 0 00000 KF150 PZE **,,7 WRITE EOF KF150 9P033370 | 12431 -0500 00 0 13117 CAL KAB70 KF160 9P033380 12432 0625 00 1 04531 STT SYMTAP,1 RESTORE SYMTAPE KF170 9P033390 | 12433 0774 00 2 00000 KF180 AXT **,2 KF180 9P033400 | 12434 0774 00 1 00000 AXT **,1 KF190 9P033410 | 12435 0774 00 4 00000 AXT **,4 KF200 9P033420 | 12436 0020 00 4 00001 TRA 1,4 KF210 9P033430 * KF220 9P033440 | * KF230 9P033450 | * KF240 9P033460 | * KF250 9P033470 | *THE FOLLOWING ROUTINES READ AN OUTPUT LABEL AND TESTS ITS 9P033480 * VALIDITY. THEY ARE USED ONLY IF AN INSTALLATION PATCHES 9P033490 | * KE490 WITH A 9P033500 | * TSX KF300,4 9P033510 | * 9P033520 | * 9P033530 12437 0634 00 4 12555 KF300 SXA KF510,4 9P033540 | 12440 0634 00 1 12447 SXA KF305,1 9P033550 | 12441 -0500 00 2 00001 CAL 1,2 SET DENSITY TO READ LABEL 9P033560 | 12442 0767 00 0 00001 ALS 1 9P033570 | 12443 -0320 00 0 04721 ANA 1DEC 9P033580 12444 0361 00 0 04721 ACL 1DEC 9P033590 | 12445 0622 00 0 12447 STD KF305 9P033600 | 12446 0074 00 4 05505 TSX NDSRT,4 9P033610 | 12447 0 00000 0 00000 KF305 PZE **,,** 9P033620 | 12450 0634 00 1 12452 SXA *+2,1 9P033630 1 LISTING OF 12/01/64 PAGE 78 | JOB AND FILE CARD PROCESSING | | 12451 0074 00 4 05255 KF310 TSX RD(WR),4 READ LABEL 9P033640 | 12452 0 13120 0 00000 PZE **,,KAB71 9P033650 * TEST FOR LEGALITY 9P033660 | 12453 -0500 00 0 04450 CAL LAREA 9P033670 | 12454 0322 00 0 12516 ERA KF360 IF 1BLANK 9P033680 | 12455 0100 00 0 12553 TZE KF500 OK TO USE 9P033690 | 12456 -0500 00 0 04450 CAL LAREA 9P033700 12457 0322 00 0 13105 ERA KAB60 IF NOT 1HDR 9P033710 | 12460 -0100 00 0 12522 TNZ KF400 REEL NOT USABLE 9P033720 | 12461 -0500 00 0 04454 CAL LAREA+4 COMPARE CREATION DATE 9P033730 | 12462 0622 00 0 12517 STD KF361 9P033740 | 12463 0361 00 0 04454 ACL LAREA+4 PLUS RETENTION DAYS 9P033750 12464 0074 00 4 12501 TSX KF340,4 9P033760 | 12465 0361 00 0 12520 ACL KF362 9P033770 | 12466 -0340 00 0 12517 LAS KF361 9P033780 | 12467 0020 00 0 12475 TRA KF325 9P033790 | 12470 0761 00 0 00000 NOP 9P033800 12471 -0340 00 0 04447 KF320 LAS DATE WITH CURRENT DATE 9P033810 | 12472 0020 00 0 12553 TRA KF500 OK TO USE 9P033820 | 12473 0020 00 0 12553 TRA KF500 OK TO USE 9P033830 | 12474 0020 00 0 12524 TRA KF410 RETENTION NOT EXPIRED 9P033840 | * 9P033850 12475 0361 00 0 12521 KF325 ACL KF363 ACCOUNT FOR DATE 9P033860 | 12476 0074 00 4 12501 TSX KF340,4 YEAR OVERFLOW 9P033870 | 12477 0361 00 0 12520 ACL KF362 9P033880 | 12500 0020 00 0 12471 TRA KF320 9P033890 | * 9P033900 12501 -0320 00 0 12513 KF340 ANA KF351 BCD CONVERT AFTER ADDITION 9P033910 | 12502 0361 00 0 12514 ACL KF352 9P033920 | 12503 0320 00 0 12515 ANS KF353 9P033930 | 12504 -0400 00 0 12515 SBM KF353 9P033940 | 12505 0767 00 0 00003 ALS 3 9P033950 12506 -0400 00 0 12515 SBM KF353 9P033960 | 12507 0771 00 0 00003 ARS 3 9P033970 | 12510 0560 00 0 04744 LDQ BLNKS 9P033980 | 12511 -0600 00 0 12515 STQ KF353 9P033990 | 12512 0020 00 4 00001 TRA 1,4 9P034000 12513 +171717171717 KF351 OCT 171717171717 9P034010 | 12514 +006666666666 KF352 OCT 006666666666 9P034020 | 12515 -206060606060 KF353 OCT 606060606060 9P034030 | * 9P034040 | 12516 012243214542 KF360 BCI 1,1BLANK 9P034050 12517 060160030605 KF361 BCI 1,61 365 LDOYR 9P034060 | 12520 000060000000 KF362 BCI 1,00 000 BLP4 9P034070 | 12521 000011060305 KF363 BCI 1,009635 M365 9P034080 | * 9P034090 | * 9P034100 * 9P034110 | 12522 -0500 00 0 12562 KF400 CAL KF600 INVALID REEL 9P034120 | 12523 0020 00 0 12525 TRA *+2 9P034130 | 12524 -0500 00 0 12563 KF410 CAL KF601 RETENTION NOT EXPIRED 9P034140 | 12525 0602 00 0 12544 SLW KF450 9P034150 12526 0774 00 4 00000 AXT 0,4 CONVERT UNIT 9P034160 | 12527 0560 60 2 00000 LDQ* 0,2 9P034170 | 12530 0564 00 0 04714 ENB L(0) 9P034180 | 1 LISTING OF 12/01/64 PAGE 79 | JOB AND FILE CARD PROCESSING | 12531 0074 00 4 00714 TSX (SYMUN,4 9P034190 | 12532 0602 00 0 12575 SLW KF604+1 9P034200 | 12533 -0500 00 2 00011 CAL 9,2 MOVE FILE NAME 9P034210 | 12534 0602 00 0 12576 SLW KF604+2 9P034220 12535 -0500 00 2 00012 CAL 10,2 9P034230 | 12536 0602 00 0 12577 SLW KF604+3 9P034240 | 12537 -0500 00 2 00013 CAL 11,2 9P034250 | 12540 0602 00 0 12600 SLW KF604+4 9P034260 | 12541 0074 00 4 05642 TSX NLIST,4 PRINT LABEL ERROR MESSAGES 9P034270 12542 -1 00007 0 12574 MON KF604,,7 9P034280 | 12543 -1 00014 0 04450 MON LAREA,,12 9P034290 | 12544 -1 00000 0 00000 KF450 MON **,,** 9P034300 | 12545 1 00004 0 12603 PON KF605,,4 9P034310 | 12546 0074 00 4 00712 TSX (PAUSE,4 9P034320 12547 0760 00 0 00163 SWT LERIG XEC SWTE 9P034330 | 12550 0020 00 0 12557 TRA KF550 9P034340 | 12551 -0500 00 0 13115 CAL KAB68 INTRODUCE ***** 9P034350 | 12552 0602 00 0 04451 SLW LAREA+1 AS TAPE SERIAL 9P034360 | * 9P034370 12553 0074 00 4 00705 KF500 TSX (NDSLX,4 ACCEPT AS USABLE FILE 9P034380 | 12554 0 00005 2 00000 PZE 0,2,BSROP 9P034390 | 12555 0774 00 4 00000 KF510 AXT **,4 9P034400 | 12556 0020 00 4 00002 TRA 2,4 9P034410 | * 9P034420 * 9P034430 | 12557 0074 00 4 00705 KF550 TSX (NDSLX,4 OPERATOR SAYS HE WILL CHANGE REELS 9P034440 | 12560 0 00004 2 00000 PZE 0,2,RUNOP 9P034450 | 12561 0020 00 0 12451 TRA KF310 9P034460 | * 9P034470 * 9P034480 | * 9P034490 | * MESSAGES AND CONSTANTS 9P034500 | 12562 -1 00004 0 12564 KF600 MON KF602,,4 INVALID REEL MESSAGE 9P034510 | 12563 -1 00004 0 12570 KF601 MON KF603,,4 RETENTION NOT EXPIRED 9P034520 12564 604664634764 KF602 BCI 4, OUTPUT REEL INVALID 9P034530 | 12570 605125632545 KF603 BCI 4, RETENTION NOT EXPIRED 9P034540 | 12574 644531636060 KF604 BCI 7,UNIT XXXXXXFILE NAME PRINTED LABEL ERROR 9P034550 | 12603 312660626266 KF605 BCI 1,IF SSW * DOWN IGNORED 9P034560 | 12604 600360244666 KF606 VFD O6/60,6/LERIG,O24/60244666 9P034570 12605 456031274546 KF607 BCI 2,N IGNORED 9P034580 | * 9P034590 | * 9P034600 | 1 LISTING OF 12/01/64 PAGE 80 | JOB AND FILE CARD PROCESSING | * KHA00 9P034620 | *THIS ROUTINE PUNCHES A *FILE CARD IN COL BINARY KHA10 9P034630 | * WHICH WHEN PUNCHED LOOKS LIKE A HOLLERITH CARD KHA20 9P034640 | * KHA30 9P034650 * KHA40 9P034660 | 12607 0634 00 1 12653 PCHFIL SXA KHE40,1 KHA50 9P034670 | 12610 0634 00 2 12654 SXA KHE50,2 KHA60 9P034680 | 12611 0634 00 4 12655 SXA KHE60,4 KHA70 9P034690 | 12612 0774 00 4 00001 AXT 1,4 KHA80 9P034700 12613 0634 00 4 12636 SXA KHC80,4 KHA90 9P034710 | 12614 0774 00 1 00014 AXT 12,1 CONVERT FORMAT KHB00 9P034720 | 12615 0774 00 2 00030 AXT 24,2 KHB10 9P034730 | 12616 0560 00 1 04635 KHB20 LDQ CARD+12,1 KHB20 9P034740 | 12617 0774 00 4 00003 KHB30 AXT 3,4 KHB30 9P034750 12620 0754 00 0 00000 KHB40 PXA 0,0 KHB40 9P034760 | 12621 -0763 00 0 00006 LGL 6 KHB50 9P034770 | 12622 0634 00 4 12634 SXA KHC60,4 KHB60 9P034780 | 12623 0774 00 4 00146 AXT KHL01-KHK01+2,4 KHB70 9P034790 | 12624 -0340 00 4 07567 LAS KHL01+2,4 KHB80 9P034800 12625 0020 00 0 12627 TRA *+2 KHB90 9P034810 | 12626 0020 00 0 12630 TRA *+2 KHC00 9P034820 | 12627 2 00002 4 12624 TIX *-3,4,2 KHC10 9P034830 | 12630 -0500 00 2 12707 CAL KHF00+24,2 KHC20 9P034840 | 12631 0767 00 0 00014 ALS 12 KHC30 9P034850 12632 -0501 00 4 07566 ORA KHL01+1,4 KHC40 9P034860 | 12633 0602 00 2 12707 SLW KHF00+24,2 KHC50 9P034870 | 12634 0774 00 4 00000 KHC60 AXT **,4 KHC60 9P034880 | 12635 2 00001 4 12620 TIX KHB40,4,1 KHC70 9P034890 | 12636 -0774 00 4 00001 KHC80 AXC 1,4 KHC80 9P034900 12637 0634 00 4 12636 SXA *-1,4 KHC90 9P034910 | 12640 1 77777 2 12641 TXI *+1,2,-1 KHD00 9P034920 | 12641 3 00001 4 12617 TXH KHB30,4,1 KHD10 9P034930 | 12642 2 00001 1 12616 TIX KHB20,1,1 KHD20 9P034940 | * KHD30 9P034950 12643 -0500 00 0 12657 CAL KHF00 ADD COL BIN INDICATOR KHD40 9P034960 | 12644 -0320 00 0 12707 ANA KHF10 KHD50 9P034970 | 12645 -0501 00 0 12711 ORA KHF20 KHD60 9P034980 | 12646 0602 00 0 12657 SLW KHF00 KHD70 9P034990 | * KHD80 9P035000 12647 0074 00 4 05255 TSX RD(WR),4 WRITE KHD90 9P035010 | 12650 -0 12712 0 00026 FOR 22,,KHF30 KHE00 9P035020 | 12651 0020 00 0 12653 TRA *+2 KHE10 9P035030 | 12652 0420 00 0 00000 HPR KHE20 9P035040 | * KHE30 9P035050 12653 0774 00 1 00000 KHE40 AXT **,1 RETURN KHE40 9P035060 | 12654 0774 00 2 00000 KHE50 AXT **,2 KHE50 9P035070 | 12655 0774 00 4 00000 KHE60 AXT **,4 KHE60 9P035080 | 12656 0020 00 4 00001 TRA 1,4 KHE70 9P035090 | * KHE80 9P035100 * KHE90 9P035110 | 12657 KHF00 BSS 24 KHF00 9P035120 | 12707 +000077777777 KHF10 OCT 000077777777 KHF10 9P035130 | 12710 -377277777777 KHF15 OCT 777277777777 KHF15 9P035140 | 12711 +000500000000 KHF20 OCT 000500000000 KHF20 9P035150 12712 -0 00030 0 12657 KHF30 IOCP KHF00,,24 KHF30 9P035160 | 1 LISTING OF 12/01/64 PAGE 81 | JOB AND FILE CARD PROCESSING | | 12713 3 00003 0 06553 IORT KME70,,3 KHF31 9P035170 * KHF40 9P035180 | * KHF50 9P035190 | 1 LISTING OF 12/01/64 PAGE 82 | JOB AND FILE CARD PROCESSING | * KHF50 9P035210 | * KHG00 9P035220 | *THIS ROUTINE CONVERTS A *FILE CARD WHICH LOOKED KHG10 9P035230 | * A HOLLERITH CARD BEFORE GOING CARD-TO-TAPE. KHG20 9P035240 | * KHG30 9P035250 * KHG40 9P035260 | 12714 0634 00 1 12722 HCBCD SXA KHH10,1 KHG50 9P035270 | 12715 1 00030 1 12716 TXI *+1,1,24 KHG60 9P035280 | 12716 0634 00 1 12725 SXA KHH40,1 KHG70 9P035290 | 12717 0774 00 4 00001 AXT 1,4 KHG80 9P035300 12720 0634 00 4 12745 SXA KHJ00,4 KHG90 9P035310 | 12721 -0500 00 0 12710 CAL KHF15 KHH00 9P035320 | 12722 0320 00 0 00000 KHH10 ANS ** KHH10 9P035330 | 12723 0774 00 1 00014 AXT 12,1 KHH20 9P035340 | 12724 0774 00 2 00030 AXT 24,2 KHH30 9P035350 12725 0560 00 2 00000 KHH40 LDQ **,2 KHH40 9P035360 | 12726 0774 00 4 00003 AXT 3,4 KHH50 9P035370 | 12727 0754 00 0 00000 KHH60 PXA 0,0 KHH60 9P035380 | 12730 -0763 00 0 00014 LGL 12 KHH70 9P035390 | 12731 0634 00 4 12743 SXA KHI80,4 KHH80 9P035400 12732 0774 00 4 00146 AXT KHL00-KHK00+2,4 KHH90 9P035410 | 12733 -0340 00 4 07566 LAS KHL00+2,4 KHI00 9P035420 | 12734 0020 00 0 12736 TRA *+2 KHI10 9P035430 | 12735 0020 00 0 12737 TRA *+2 KHI20 9P035440 | 12736 2 00002 4 12733 TIX *-3,4,2 9P035450 12737 -0500 00 1 04635 CAL CARD+12,1 KHI40 9P035460 | 12740 0767 00 0 00006 ALS 6 KHI50 9P035470 | 12741 -0501 00 4 07567 ORA KHL00+3,4 KHI60 9P035480 | 12742 0602 00 1 04635 SLW CARD+12,1 KHI70 9P035490 | 12743 0774 00 4 00000 KHI80 AXT **,4 KHI80 9P035500 12744 2 00001 4 12727 TIX KHH60,4,1 KHI90 9P035510 | 12745 -0774 00 4 00001 KHJ00 AXC 1,4 KHJ00 9P035520 | 12746 0634 00 4 12745 SXA KHJ00,4 KHJ10 9P035530 | 12747 1 77777 2 12750 TXI *+1,2,-1 KHJ20 9P035540 | 12750 3 00001 4 12725 TXH KHH40,4,1 KHJ30 9P035550 12751 2 00001 1 12725 TIX KHH40,1,1 KHJ40 9P035560 | 12752 0020 00 0 06314 TRA CONV1+1 KHJ50 9P035570 | * KHJ60 9P035580 | * KHJ70 9P035590 | 1 LISTING OF 12/01/64 PAGE 83 JOB AND FILE CARD PROCESSING | | * KNA00 9P035610 | * THE FOLLOWING ROUTINE INITIALIZES THE SERIAL NUMBERS TO BE KNA10 9P035620 | * PUNCHED IN COLUMNS 73-80 KNA20 9P035630 * KNA30 9P035640 | * KNA40 9P035650 | 12753 0634 00 1 13014 KNA50 SXA KND30,1 KNA50 9P035660 | 12754 0634 00 2 13015 SXA KND40,2 KNA60 9P035670 | 12755 0634 00 4 13016 SXA KND50,4 KNA70 9P035680 12756 0774 00 4 00001 AXT 1,4 KNA80 9P035690 | 12757 0634 00 4 13002 SXA KNC80,4 KNA90 9P035700 | 12760 0774 00 1 00002 AXT 2,1 KNB00 9P035710 | 12761 0774 00 2 00003 AXT 3,2 KNB10 9P035720 | 12762 0560 00 1 04637 KNB20 LDQ CARD+14,1 KNB20 9P035730 12763 0774 00 4 00003 KNB30 AXT 3,4 KNB30 9P035740 | 12764 0754 00 0 00000 KNB40 PXA 0,0 KNB40 9P035750 | 12765 -0763 00 0 00006 LGL 6 KNB50 9P035760 | 12766 0634 00 4 13000 SXA KNC60,4 KNB60 9P035770 | 12767 0774 00 4 00146 AXT KHL01-KHK01+2,4 KNB70 9P035780 12770 -0340 00 4 07567 LAS KHL01+2,4 KNB80 9P035790 | 12771 0020 00 0 12773 TRA *+2 KNB90 9P035800 | 12772 0020 00 0 12774 TRA *+2 KNC00 9P035810 | 12773 2 00002 4 12770 TIX *-3,4,2 KNC10 9P035820 | 12774 -0500 00 2 06556 CAL KME70+3,2 KNC20 9P035830 12775 0767 00 0 00014 ALS 12 KNC30 9P035840 | 12776 -0501 00 4 07566 ORA KHL01+1,4 KNC40 9P035850 | 12777 0602 00 2 06556 SLW KME70+3,2 KNC50 9P035860 | 13000 0774 00 4 00000 KNC60 AXT **,4 KNC60 9P035870 | 13001 2 00001 4 12764 TIX KNB40,4,1 KNC70 9P035880 13002 -0774 00 4 00000 KNC80 AXC **,4 KNC80 9P035890 | 13003 0634 00 4 13002 SXA *-1,4 KNC90 9P035900 | 13004 1 77777 2 13005 TXI *+1,2,-1 KND00 9P035910 | 13005 3 00001 4 12763 TXH KNB30,4,1 KND10 9P035920 | 13006 2 00001 1 12762 TIX KNB20,1,1 KND20 9P035930 13007 0520 00 0 06555 ZET KME70+2 KND21 9P035940 | 13010 0020 00 0 13014 TRA KND30 KND22 9P035950 | 13011 -0500 00 0 13135 CAL KAC20 KND23 9P035960 | 13012 0602 00 0 06555 SLW KME70+2 KND24 9P035970 | 13013 0602 00 0 06554 SLW KME70+1 KND25 9P035980 13014 0774 00 1 00000 KND30 AXT **,1 KND30 9P035990 | 13015 0774 00 2 00000 KND40 AXT **,2 KND40 9P036000 | 13016 0774 00 4 00000 KND50 AXT **,4 KND50 9P036010 | 13017 0020 00 4 00001 TRA 1,4 KND60 9P036020 | * KND70 9P036030 * KND80 9P036040 | * KND90 9P036050 | 1 LISTING OF 12/01/64 PAGE 84 | JOB AND FILE CARD PROCESSING | * KAA10 9P036070 | * KAA20 9P036080 | * KAA30 9P036090 | * KAA40 9P036100 | 13020 314511472123 KAA50 BCI 1,IN9PAC KAA50 9P036110 13021 0 00000 0 04364 KAA51 PZE UBLOK,0,** KAA51 9P036120 | 13022 0 00000 1 00000 KAA53 PZE 0,1 DENSITY MASK 9P036130 | 13023 533122627062 KAA54 BCI 1,$IBSYS 9P036140 | 13024 544146226060 KAA55 BCI 1,*JOB 9P036150 | 13025 0 00000 2 00000 KAA56 PZE 0,2 BINARY MODE INDICATOR 9P036160 13026 000000000060 KAA57 BCI 1,00000 9P036170 | 13027 0 00000 0 00000 KAB58 PZE 0 0-HOR INPUT FROM TAPE, NZ, FROM SYSIN 9P036180 | 13030 +000310000000 KAB59 OCT 000310000000 HORIZONTAL BLOCKSIZE 9P036190 | 13031 0 00000 0 00000 KAB09 PZE 0 FCB STORAGE 9P036200 | 13032 0 00000 0 00000 KAB10 PZE 0 UNIT NUMBER STORAGE 9P036210 13033 1 00000 0 00000 KAB11 PON 0 9P036220 | 13034 -0 00000 0 00000 KAB12 MZE 0 9P036230 | 13035 +000000100000 KAB13 OCT 000000100000 9P036240 | 13036 300030000000 KAB14 VFD 6/6*4,12/24,3/0,15/0 9P036250 | 13037 000500000000 KAB15 BCI 1,050000 9P036260 13040 040011050000 KAB16 BCI 1,409500 9P036270 | 13041 0 00000 0 00000 KAB17 PZE 0 STORAGE FOR HORIZ INPUT CHAN 9P036280 | 13042 +003400000000 KAB18 OCT 003400000000 9P036290 | 13043 000000000030 KAB20 BCI 1,00000H SCAN DICTIONARY FLAG 9P036300 | 13044 +000000500000 OCT 000000500000 9P036310 13045 000000000043 BCI 1,00000L 9P036320 | 13046 +000000400000 OCT 000000400000 9P036330 | 13047 000000000062 BCI 1,00000S 9P036340 | 13050 +000000440000 OCT 000000440000 9P036350 | 13051 000000000060 BCI 1,00000 9P036360 13052 +000000000000 OCT 000000000000 9P036370 | 13053 000000000001 KAB30 BCI 1,000001 EDIT PADDING FLAG. 9P036380 | 13054 +050000000000 OCT 050000000000 9P036390 | 13055 000000000002 BCI 1,000002 9P036400 | 13056 +030000000000 OCT 030000000000 9P036410 13057 000000000003 BCI 1,000003 9P036420 | 13060 +050000000000 OCT 050000000000 9P036430 | 13061 000000000004 BCI 1,000004 9P036440 | 13062 +030000000000 OCT 030000000000 9P036450 | 13063 000000000060 BCI 1,00000 9P036460 13064 +000000000000 OCT 000000000000 9P036470 | 13065 000000000023 KAB40 BCI 1,00000C 9P036480 | 13066 +003000000000 OCT 003000000000 9P036490 | 13067 000000000047 BCI 1,00000P 9P036500 | 13070 +001000000000 OCT 001000000000 9P036510 13071 000000000063 BCI 1,00000T 9P036520 | 13072 +002000000000 OCT 002000000000 9P036530 | 13073 000000000001 BCI 1,000001 9P036540 | 13074 +000000000000 OCT 000000000000 9P036550 | 13075 000000000002 BCI 1,000002 9P036560 13076 +000000000000 OCT 000000000000 9P036570 | 13077 000000000003 BCI 1,000003 9P036580 | 13100 +002000000000 OCT 002000000000 9P036590 | 13101 000000000004 BCI 1,000004 9P036600 | 13102 +002000000000 OCT 002000000000 9P036610 1 LISTING OF 12/01/64 PAGE 85 | JOB AND FILE CARD PROCESSING | | 13103 000000000031 BCI 1,00000I 9P036620 | 13104 +000000000000 OCT 000000000000 9P036630 13105 013024516060 KAB60 BCI 1,1HDR 9P036640 | 13106 -2 00000 0 00000 KAB61 SIX 0,0,0 9P036650 | 13107 000100000000 KAB62 BCI 1,010000 1P2 9P036660 | 13110 0 00001 0 00000 KAB63 PZE 0,0,1 1DEC 9P036670 | 13111 000000010000 KAB64 BCI 1,000100 1P4 9P036680 13112 000000000100 KAB65 BCI 1,000010 1P5 9P036690 | 13113 0 00000 0 00001 KAB66 PZE 1 L(1) 9P036700 | 13114 606060606060 KAB67 BCI 1, BLNKS 9P036710 | 13115 605454545454 KAB68 BCI 1, ***** 9P036720 | 13116 610000610000 KAB69 BCI 1,/00/00 KAB69 9P036730 13117 0 00000 0 00000 KAB70 PZE 0 TEMP STOR 9P036740 | 13120 3 00016 0 04450 KAB71 IORT LAREA,,14 9P036750 | 13121 0 00000 7 00000 KAB78 PZE 0,7 KAB78 9P036760 | 13122 0 00000 5 00000 KAB79 PZE 0,5 9P036770 | 13123 0 00000 3 00000 KAB80 PZE 0,3 9P036780 13124 +000000400000 KAB84 OCT 000000400000 9P036790 | 13125 3 77777 2 00000 KAB90 IORTN 0,,-1 9P036800 | 13126 0 00000 0 04752 KAB91 PZE SYSRD 9P036810 | 13127 -370000000000 KAC01 OCT 770000000000 9P036820 | 13130 600000000000 KAC02 BCI 1, 00000 9P036830 13131 +007777777777 KAC03 OCT 007777777777 9P036840 | 13132 -374777777777 KAC04 OCT 774777777777 9P036850 | 13133 600000000160 KAC10 BCI 1, 0001 9P036860 | 13134 2 00000 0 00000 KAC11 PTW 0 9P036870 | 13135 +100010001000 KAC20 OCT 100010001000 KAC20 9P036880 13136 114721236062 KAC30 BCI 4,9PAC SIGN-ON 9P036890 | 13142 475146232562 KAC31 BCI 4,PROCESS 9PAC PARAMETERS 9P036900 | 13146 512727254560 JOBS BCI 1,RGGEN 9P036910 | 13147 512722314560 BCI 1,RGBIN 9P036920 | 13150 264745256660 BCI 1,FPNEW 9P036930 13151 264727254560 BCI 1,FPGEN 9P036940 | 13152 264722314560 BCI 1,FPBIN 9P036950 | 13153 114762516360 BCI 1,9PSRT 9P036960 | 13154 0 00000 0 00000 PZE 0 9P036970 | 13155 0 00000 0 00000 PZE 0 9P036980 13156 0 00000 0 00000 PZE 0 9P036990 | 13323 LDRBON BES 100 BOONDOCKS 9P037000 | 1 LISTING OF 12/01/64 PAGE 86 | ROUTINES TAKEN FROM IOCS PREPROCESSOR | * *FILE PREP 9P037030 | * 709/7090 INPUT-OUTPUT CONTROL SYSTEM - PREPROCESSOR 9P037040 | * 9P037050 | * 9P037060 | *MISCELLANEOUS DEFINITIONS 9P037070 * 9P037080 | 00014 BFCBL EQU 12 LENGTH OF A FILE CONTROL BLOCK 9P037090 | 04447 BDATB EQU DATE DATE CELL (FILE FORM) 9P037100 | | | | | * FILE CONTROL CARD PROCESSING 9P037120 | 13323 0560 00 0 17326 BFILE LDQ BY00 9P037140 | 13324 0074 00 4 17226 TSX BSCAN,4 SCAN FILE NUMBER FIELD 9P037150 | 13325 -3 00000 2 13527 TXL BH03,2,0 TRANSFER IF FIELD IS BLANK 9P037160 | 13326 0054 00 000174 RFT 000174 9P037170 | 13327 0020 00 0 13537 TRA BH04 ERROR-FIELD NOT NUMERIC 9P037180 13330 0074 00 4 17267 TSX BCONV,4 CONVERT 9P037190 | 13331 0734 00 4 00000 PAX 0,4 9P037200 | 13332 -3 00000 4 13537 TXL BH04,4,0 9P037210 | 13333 3 00000 4 13537 BH00 TXH BH04,4,** ERROR-FILE NO. EXCEEDS LIMIT 9P037220 | 13334 -0130 00 0 00000 XCL 9P037230 13335 0204 12 0 17607 VLM BFCB,0,10 9P037240 | 13336 0763 00 0 00012 LLS 10 9P037250 | 13337 0402 00 0 17607 SUB BFCB BASE LOCATION FOR FCB 9P037260 | 13340 0400 00 0 17651 ADD BFORG 9P037270 | 13341 0737 00 1 00000 PAC 0,1 9P037280 13342 0774 00 4 00003 BH01 AXT 3,4 TEST FOR BLANK FILE NAME 9P037290 | 13343 -0500 00 4 17625 CAL BQ00+12,4 9P037300 | 13344 0322 00 0 17606 ERA BLANKZ 9P037310 | 13345 -0100 00 0 13350 TNZ *+3 9P037320 | 13346 2 00001 4 13343 TIX *-3,4,1 9P037330 13347 0020 00 0 13356 TRA *+7 9P037340 | 13350 -0500 00 0 17622 CAL BQ00+9 MOVE FILE NAME 9P037350 | 13351 0602 00 1 00011 SLW 9,1 9P037360 | 13352 -0500 00 0 17623 CAL BQ00+10 9P037370 | 13353 0602 00 1 00012 SLW 10,1 9P037380 13354 -0500 00 0 17624 CAL BQ00+11 9P037390 | 13355 0602 00 1 00013 SLW 11,1 9P037400 | 13356 0560 00 0 17334 LDQ BY08 SCAN FILE SERIAL 9P037410 | 13357 0074 00 4 17226 TSX BSCAN,4 9P037420 | 13360 -3 00000 2 13363 TXL BH20,2,0 DO NOT STORE IF BLANKS 9P037430 13361 0560 00 0 17620 LDQ BQ00+7 9P037440 | 13362 -0600 00 1 00006 STQ 6,1 STORE FILE SERIAL 9P037450 | 13363 0560 00 0 17335 BH20 LDQ BY09 SCAN RETENTION DAYS 9P037460 | 13364 0074 00 4 17226 TSX BSCAN,4 9P037470 | 13365 -0754 00 0 00000 PXD 0,0 9P037480 13366 -0765 00 2 00030 LGR 24,2 9P037490 | 13367 -0500 00 0 17606 CAL BLANKZ 9P037500 | 13370 -0765 00 0 00014 LGR 12 9P037510 | 13371 -0600 00 1 00010 STQ 8,1 STORE RETENTION DAYS 9P037520 | 13372 0560 00 0 17333 LDQ BY07 SCAN REEL SEQUENCE NUMBER 9P037530 1 LISTING OF 12/01/64 PAGE 87 | ROUTINES TAKEN FROM IOCS PREPROCESSOR | | 13373 0074 00 4 17226 TSX BSCAN,4 9P037540 | 13374 -3 00000 2 13551 TXL BH10,2,0 TRANSFER IF BLANK 9P037550 13375 0054 00 000174 RFT 000174 9P037560 | 13376 0020 00 0 13553 TRA BH11 ERROR-FIELD IS NOT NUMERIC 9P037570 | 13377 -0754 00 0 00000 PXD 0,0 9P037580 | 13400 -0765 00 2 00030 LGR 24,2 9P037590 | 13401 -0500 00 0 17606 CAL BLANKZ 9P037600 13402 -0765 00 0 00014 LGR 12 9P037610 | 13403 -0773 00 0 00006 RQL 6 9P037620 | 13404 -0600 00 1 00007 BH09 STQ 7,1 STORE REEL SEQUENCE NUMBER 9P037630 | 13405 0020 00 0 06105 TRA BH30 CHECK COLS. 27-32 (1)9P037640 | 13406 0560 00 0 17615 LDQ BQ00+4 9P037650 13407 -0773 00 0 00014 RQL 12 9P037660 | 13410 0074 00 4 17205 TSX BCNTR,4 SCAN LIST CONTROL 9P037670 | 13411 0 00004 0 17450 PZE BW10,,2*2 9P037680 | 13412 0604 00 1 00004 STI 4,1 9P037690 | 13413 0441 00 0 17601 LDI BZERO 9P037700 13414 0074 00 4 17205 TSX BCNTR,4 SCAN FILE TYPE 9P037710 | 13415 0 00010 0 17350 PZE BW00,,2*4 9P037720 | 13416 0074 00 4 17205 TSX BCNTR,4 SCAN MULTI-REEL FLAG 9P037730 | 13417 0 00006 0 17360 PZE BW01,,2*3 9P037740 | 13420 0074 00 4 17205 TSX BCNTR,4 SCAN DENSITY FLAG 9P037750 13421 0 00004 0 17366 PZE BW02,,2*2 9P037760 | 13422 0560 00 0 17616 LDQ BQ00+5 9P037770 | 13423 0074 00 4 17205 TSX BCNTR,4 SCAN MODE FLAG 9P037780 | 13424 0 00010 0 17372 PZE BW03,,2*4 9P037790 | 13425 0074 00 4 17205 TSX BCNTR,4 SCAN LABEL FLAG 9P037800 13426 0 00010 0 17402 PZE BW04,,2*4 9P037810 | 13427 0074 00 4 17205 TSX BCNTR,4 SCAN SEQUENCE COUNT FLAG 9P037820 | 13430 0 00004 0 17412 PZE BW05,,2*2 9P037830 | 13431 0074 00 4 17205 TSX BCNTR,4 SCAN CHECKSUM FLAG 9P037840 | 13432 0 00004 0 17416 PZE BW06,,2*2 9P037850 13433 0074 00 4 17205 TSX BCNTR,4 SCAN CHECKPOINT CONVENTION 9P037860 | 13434 0 00012 0 17422 PZE BW07,,2*5 9P037870 | 13435 0056 00 400000 RNT 400000 STANDARD LABEL CONVENTION 9P037880 | 13436 0020 00 0 13445 TRA BH035 NO 9P037890 | 13437 005700200000 VFD O15/00570,3/0,1/1-SLDEN,2/2,15/0 9P037900 13440 0054 00 100000 RFT 100000 SET OUTPUT LABEL TO FILE DENSITY 9P037910 | 13441 0055 00 200000 SIR 200000 9P037920 | 13442 -0054 00 003000 LFT 003000 IS THIS INPUT 9P037930 | 13443 0020 00 0 13447 TRA BH036 NO 9P037940 | 13444 0057 00 400000 RIR 400000 YES 9P037950 13445 0054 00 200000 BH035 RFT 200000 SET INPUT LABEL TO FILE DENSITY 9P037960 | 13446 0055 00 400000 SIR 400000 9P037970 | 13447 0604 00 1 00001 BH036 STI 1,1 9P037980 | 13450 0560 00 0 17327 LDQ BY01 SCAN UNIT 1 FIELD 9P037990 | 13451 0074 00 4 17226 TSX BSCAN,4 9P038000 13452 3 00000 2 13454 TXH *+2,2,0 IF BLANK 9P038010 | 13453 1 60377 2 13462 TXI BH08-1,2,SECOND+ANY ASSIGN ANY UNIT 9P038020 | 13454 -3 00006 2 13457 TXL *+3,2,6 IF ONLY 1 CHARACTER OR 9P038030 | 13455 3 00014 2 13457 TXH *+2,2,12 OVER 2, USE NORMAL ASSIGNMENT. 9P038040 | 13456 0020 00 0 13564 TRA BH037 SPECIAL TEST FOR SYSTEM UNITS 9P038050 13457 0074 00 4 16441 TSX BASGN,4 ASSIGN UNIT 1 9P038060 | 13460 -3 00000 2 13542 TXL BH06,2,0 ERROR-ILLEGAL UNIT 9P038070 | 13461 3 77776 2 13556 TXH BH12,2,-2 9P038080 | 1 LISTING OF 12/01/64 PAGE 88 | ROUTINES TAKEN FROM IOCS PREPROCESSOR | 13462 0754 00 2 00000 PXA 0,2 9P038090 | 13463 0044 00 0 00000 BH08 PAI 9P038100 | 13464 0560 00 0 17613 LDQ BQ00+2 9P038110 | 13465 -0773 00 0 00030 RQL 24 9P038120 13466 0074 00 4 17205 TSX BCNTR,4 SCAN IMMEDIATE MOUNTING FLAG 9P038130 | 13467 0 00004 0 17434 PZE BW08,,2*2 9P038140 | 13470 0604 00 1 00000 STI 0,1 9P038150 | 13471 -0754 00 2 00000 PXD 0,2 AND DUPLICATE AS 9P038160 | 13472 0622 00 1 00000 STD 0,1 UNIT 2 9P038170 13473 0560 00 0 17330 LDQ BY02 SCAN UNIT 2 FIELD 9P038180 | 13474 0074 00 4 17226 TSX BSCAN,4 9P038190 | 13475 -3 00000 2 13504 TXL BH02,2,0 FIELD IS BLANK 9P038200 | 13476 0500 00 0 16061 CLA DUCBW IS THIS DISK $9P038210 | 13477 -0100 00 0 13627 TNZ DCYL YES $9P038220 13500 0074 00 4 16441 TSX BASGN,4 ASSIGN UNIT 2 9P038230 | 13501 -3 00000 2 13546 TXL BH07,2,0 ERROR-ILLEGAL UNIT 9P038240 | 13502 -0754 00 2 00000 PXD 0,2 9P038250 | 13503 0622 00 1 00000 STD 0,1 STORE UCW2 LOCATION 9P038260 | 13504 0560 00 0 17616 BH02 LDQ BQ00+5 9P038270 13505 -0773 00 0 00036 RQL 30 9P038280 | 13506 0441 00 0 17601 LDI BZERO 9P038290 | 13507 0074 00 4 17205 TSX BCNTR,4 SCAN RESTART POSITIONING 9P038300 | 13510 0 00004 0 17454 PZE BW11,,2*2 CONTROL FLAG 9P038310 | 13511 0056 00 000001 RNT 000001 IS THE CONTROL ON 9P038320 13512 0020 00 0 13526 TRA BH025 NO 9P038330 | 13513 -0500 00 1 00000 CAL 0,1 9P038340 | 13514 0734 00 2 00000 PAX 0,2 UCB1 9P038350 | 13515 -0734 00 4 00000 PDX 0,4 UCB2 9P038360 | 13516 -3 37777 2 13520 TXL *+2,2,SECOND-1 SKIP IF ASSIGNED 9P038370 13517 1 00400 2 13520 TXI *+1,2,NOREP SET FLAG FOR NO REPOSITIONING 9P038380 | 13520 -3 37777 4 13522 TXL *+2,4,SECOND-1 SKIP IF ASSIGNED 9P038390 | 13521 1 00400 4 13522 TXI *+1,4,NOREP SET FLAG FOR NO REPOSITIONING 9P038400 | 13522 -0754 00 4 00000 PXD 0,4 UNIT IS DESIGNATED. REPLACE 9P038410 | 13523 0622 00 1 00000 STD 0,1 UNIT DESIGNATION INTO 9P038420 13524 0754 00 2 00000 PXA 0,2 FCB WORD 1 9P038430 | 13525 0621 00 1 00000 STA 0,1 X 9P038440 | 13526 0020 00 0 10312 BH025 TRA BB00 9P038450 | 13527 0534 00 1 17653 BH03 LXA BMORG,1 NEXT LOCATION IN MISC. STORAGE $9P038460 | 13530 0534 00 4 17653 LXA BMORG,4 $9P038470 13531 3 00000 4 13534 TXH *+3,4,0 TRANSFER IF NOT FIRST USE 9P038480 | 13532 0535 00 4 17650 LAC BUFIN,4 INITILIZE MISCELLANEOUS STORAGE $9P038490 | 13533 0535 00 1 17650 LAC BUFIN,1 $9P038500 | 13534 1 77764 4 13535 TXI *+1,4,-BFCBL 9P038510 | 13535 0634 00 4 17653 SXA BMORG,4 SET NEXT AVAILABLE LOCATION 9P038520 13536 0020 00 0 13342 TRA BH01 9P038530 | 13537 0074 00 4 05642 BH04 TSX BERR,4 FCB NUMBER ERROR 9P038540 | 13540 0 00006 0 17071 PZE BU07,,6 9P038550 | 13541 0020 00 0 13527 TRA BH03 STORE IN MISCELLANEOUS BLOCK 9P038560 | 13542 0074 00 4 05642 BH06 TSX BERR,4 UNIT 1 ERROR 9P038570 13543 0 00003 0 17077 PZE BU08,,3 9P038580 | 13544 -0754 00 0 00000 PXD 0,0 9P038590 | 13545 0020 00 0 13463 TRA BH08 NO UNIT LOCATION STORED 9P038600 | 13546 0074 00 4 05642 BH07 TSX BERR,4 UNIT 2 ERROR 9P038610 | 13547 0 00003 0 17102 PZE BU09,,3 9P038620 13550 0020 00 0 13504 TRA BH02 NO UNIT LOCATION STORED 9P038630 | 1 LISTING OF 12/01/64 PAGE 89 | ROUTINES TAKEN FROM IOCS PREPROCESSOR | | 13551 0560 00 0 13563 BH10 LDQ BH90 FORCE SEQUENCE NUMBER 1 9P038640 13552 0020 00 0 13404 TRA BH09 9P038650 | 13553 0074 00 4 05642 BH11 TSX BERR,4 INDICATE REEL SEQUENCE ERROR 9P038660 | 13554 0 00006 0 17122 PZE BU15,,6 9P038670 | 13555 0020 00 0 13551 TRA BH10 9P038680 | 13556 -0500 00 0 17602 BH12 CAL BMZE INDICATE INTERNAL FILE 9P038690 13557 0602 00 1 00003 SLW 3,1 9P038700 | 13560 -0500 00 0 17610 CAL BSNK SET UP BUFFER CHAIN 9P038710 | 13561 0602 00 1 00000 SLW 0,1 9P038720 | 13562 0020 00 0 13526 TRA BH025 9P038730 | 13563 600000000160 BH90 BCI 1, 0001 9P038740 13564 -0754 00 0 00000 BH037 PXD 0,0 IF UNIT 1 IS DESIGNATED 9P038750 | 13565 -0763 00 0 00014 LGL 12 IN, OU, PP OR CK, THE 9P038760 | 13566 0774 00 2 00004 AXT 4,2 PRIMARY AND SECONDARY UNITS 9P038770 | 13567 -0340 00 2 13602 LAS BH038+4,2 ARE ASSIGNED FROM THE 9P038780 | 13570 0020 00 0 13572 TRA *+2 CURRENT SYSTEM UNITS. 9P038790 13571 0020 60 2 13606 TRA* BH039+4,2 X 9P038800 | 13572 2 00001 2 13567 TIX *-3,2,1 X 9P038810 | 13573 0774 00 2 00014 AXT 12,2 NOT ANY OF THESE SO 9P038820 | 13574 -0765 00 0 00014 LGR 12 REVERT BACK TO 9P038830 | 13575 0020 00 0 13457 TRA BH08-4 SYMBOLIC ASSIGNMENTS. 9P038840 13576 000000003145 BH038 BCI 1,0000IN 9P038850 | 13577 000000004664 BCI 1,0000OU 9P038860 | 13600 000000004747 BCI 1,0000PP 9P038870 | 13601 000000002342 BCI 1,0000CK 9P038880 | 13602 0000 00 0 13606 BH039 HTR BH03A 9P038890 13603 0000 00 0 13615 HTR BH03B 9P038900 | 13604 0000 00 0 13617 HTR BH03C 9P038910 | 13605 0000 00 0 13621 HTR BH03D 9P038920 | 13606 0441 00 0 13623 BH03A LDI IN1IN2 SYSTEM INPUT TAPES 9P038930 | 13607 0560 00 0 17613 BH03E LDQ BQ00+2 SCAN MOUNT INDICATOR 9P038940 13610 -0773 00 0 00030 RQL 24 X 9P038950 | 13611 0074 00 4 17205 TSX BCNTR,4 X 9P038960 | 13612 0 00004 0 17434 PZE BW08,,2*2 X 9P038970 | 13613 0604 00 1 00000 STI 0,1 UNITS ARE ASSIGNED. 9P038980 | 13614 0020 00 0 13504 TRA BH02 FINISH SCAN 9P038990 13615 0441 00 0 13624 BH03B LDI OU1OU2 SYSTEM OUTPUT TAPES 9P039000 | 13616 0020 00 0 13607 TRA BH03E 9P039010 | 13617 0441 00 0 13625 BH03C LDI PP1PP2 PERIPHERAL PUNCH TAPES 9P039020 | 13620 0020 00 0 13607 TRA BH03E 9P039030 | 13621 0441 00 0 13626 BH03D LDI CK1CK2 CHECKPOINT TAPES 9P039040 13622 0020 00 0 13607 TRA BH03E 9P039050 | 13623 0 00013 0 00012 IN1IN2 PZE SYSIN1+1-SYSLB1,,SYSIN2+1-SYSLB1 9P039060 | 13624 0 00011 0 00010 OU1OU2 PZE SYSOU1+1-SYSLB1,,SYSOU2+1-SYSLB1 9P039070 | 13625 0 00015 0 00014 PP1PP2 PZE SYSPP1+1-SYSLB1,,SYSPP2+1-SYSLB1 9P039080 | 13626 0 00017 0 00016 CK1CK2 PZE SYSCK1+1-SYSLB1,,SYSCK2+1-SYSLB1 9P039090 13627 0054 00 000174 DCYL RFT 000174 $9P039100 | 13630 0020 00 0 13754 TRA DCYLER $9P039110 | 13631 0074 00 4 17267 TSX BCONV,4 CONVERT $9P039120 | 13632 0734 00 2 00000 PAX 0,2 $9P039130 | 13633 3 00372 2 13754 CYGO1 TXH DCYLER,2,250 $9P039140 13634 0634 00 2 13636 SXA CYCNT,2 SAVE NO. OF CYCL. $9P039150 | 13635 0560 00 0 17617 LDQ BQ00+6 PICK UP 1ST CYL. $9P039160 | 13636 0754 00 0 00000 CYCNT PXA 0,0 $9P039170 | 13637 -0763 00 0 00003 LGL 3 SHIFT OFF 1ST BITS $9P039180 | 1 LISTING OF 12/01/64 PAGE 90 ROUTINES TAKEN FROM IOCS PREPROCESSOR | | 13640 0771 00 0 00003 ARS 3 $9P039190 | 13641 -0763 00 0 00003 LGL 3 TEST FOR $9P039200 | 13642 -0100 00 0 13646 TNZ *+4 TEST $9P039210 13643 0500 00 1 00000 CLA 0,1 $9P039220 | 13644 0760 00 0 00003 SSP $9P039230 | 13645 0020 00 0 13650 TRA *+3 $9P039240 | 13646 0500 00 1 00000 CLA 0,1 $9P039250 | 13647 -0760 00 0 00003 SSM $9P039260 13650 0601 00 1 00000 STO 0,1 $9P039270 | 13651 0560 00 0 17333 LDQ BY07 $9P039280 | 13652 0074 00 4 17226 TSX BSCAN,4 YES $9P039290 | 13653 0054 00 000174 RFT 000174 1ST CHARACTER $9P039300 | 13654 0020 00 0 16062 TRA DSCAL1 $9P039310 13655 0074 00 4 17267 TSX BCONV,4 $9P039320 | 13656 -0320 00 0 04720 ANA ADDRS $9P039330 | 13657 -0130 00 0 00000 XCL BINARY START $9P039340 | 13660 0200 00 0 04742 MPY L(40) CYL. TO MQ $9P039350 | 13661 -0130 00 0 00000 XCL INCRESE BY TRACKS $9P039360 13662 0734 00 2 00000 PAX 0,2 PUT THE BINARY HEAD $9P039370 | 13663 -0754 00 2 00000 DKERR2 PXD 0,2 AND TRACK OF STARTING CYL. $9P039380 | 13664 0622 00 1 00007 STD 7,1 INTO THE FCB $9P039390 | 13665 0500 00 0 13636 CLA CYCNT PICK UP NO. OF CYL $9P039400 | 13666 -0320 00 0 04720 ANA ADDRS CREATE BINARY HEAD $9P039410 13667 -0130 00 0 00000 XCL AND TRACK $9P039420 | 13670 0634 00 2 13636 SXA CYCNT,2 SUBTRACT ONE $9P039430 | 13671 0200 00 0 04742 MPY L(40) ADD STARTING $9P039440 | 13672 -0130 00 0 00000 XCL CYL AND PUT $9P039450 | 13673 0402 00 0 04715 SUB L(1) IN FCW EIGHT $9P039460 13674 0400 00 0 13636 ADD CYCNT $9P039470 | 13675 0621 00 1 00007 STA 7,1 $9P039480 | 13676 0734 00 2 00000 PAX 0,2 $9P039490 | 13677 -3 23417 2 13705 DKERR3 TXL DKERR5,2,9999 $9P039500 | 13700 0020 00 0 16032 TRA DKERR $9P039510 13701 -0500 00 0 13677 DKERR4 CAL DKERR3 $9P039520 | 13702 -0734 00 2 00000 PDX 0,2 $9P039530 | 13703 0754 00 2 00000 PXA 0,2 $9P039540 | 13704 0621 00 1 00007 STA 7,1 $9P039550 | 13705 0500 00 0 00110 DKERR5 CLA SYSUBC L (UCB) AND NO. OF WORDS $9P039560 13706 0621 00 0 13711 STA DUCB $9P039570 | 13707 -0774 00 2 00000 DUCBCH AXC **,2 $9P039580 | 13710 1 00001 2 13711 TXI *+1,2,1 CHAN-1 IN IR2 $9P039590 | 13711 0500 00 2 00000 DUCB CLA **,2 GET - UCB ADDRESS,, NO. UCB S $9P039600 | 13712 -0734 00 4 00000 PDX 0,4 NUMBER OF WORDS $9P039610 13713 0737 00 2 00000 PAC 0,2 FIRST UCB $9P039620 | 13714 -0500 00 2 00000 DTAGIN CAL 0,2 GET THE WANTED $9P039630 | 13715 -0320 00 0 04727 ANA DECRE FORM OF UCB $9P039640 | 13716 -0340 00 0 16061 LAS DUCBW COMPARE FOR $9P039650 | 13717 0020 00 0 13721 TRA *+2 MATCH OF WANTED UCB $9P039660 13720 0020 00 0 13727 TRA DFOND FOUND STORE IT $9P039670 | 13721 1 77774 2 13722 TXI *+1,2,-4 $9P039680 | 13722 2 00001 4 13714 TIX DTAGIN,4,1 IF MORE TRY AGAIN $9P039690 | 13723 0074 00 4 05642 TSX BERR,4 PRINT ERROR $9P039700 | 13724 0 00005 0 16047 PZE NOARM,,5 $9P039710 13725 0600 00 1 00000 STZ 0,1 ZERO OUT FCB 1 $9P039720 | 13726 0020 00 0 13751 TRA DMASK-2 $9P039730 | 1 LISTING OF 12/01/64 PAGE 91 | ROUTINES TAKEN FROM IOCS PREPROCESSOR | 13727 0754 00 2 00000 DFOND PXA 0,2 $9P039740 | 13730 0630 00 2 00000 STP 0,2 $9P039750 | 13731 0737 00 2 00000 PAC 0,2 $9P039760 | 13732 0754 00 2 00000 PXA 0,2 $9P039770 | 13733 0621 00 1 00000 STA 0,1 L(UCB) TO FCB $9P039780 13734 -0500 00 0 13553 CAL BH11 PUT MOUNT FLAG ON $9P039790 | 13735 0625 00 1 00000 STT 0,1 IN FCB $9P039800 | 13736 0441 00 1 00006 LDI 6,1 GET LABEL $9P039810 | 13737 0445 00 0 13753 RIS DMASK CLEAR BLANKS $9P039820 | 13740 -0054 00 000077 LFT 77 RIGHT CHARACTER $9P039830 13741 0020 00 0 13743 TRA *+2 YES $9P039840 | 13742 -0055 00 000012 SIL 12 MAKE THE REST 12 $9P039850 | 13743 -0054 00 007700 LFT 7700 LEFT CHARACTER $9P039860 | 13744 0020 00 0 13746 TRA *+2 YES $9P039870 | 13745 -0055 00 001200 SIL 1200 MAKE NOTHING 12 $9P039880 13746 0604 00 1 00006 STI 6,1 $9P039890 | 13747 -0500 00 0 13636 CAL CYCNT GET STARTING ADDRESS $9P039900 | 13750 0621 00 1 00006 STA 6,1 STORE IN FCW 7 $9P039910 | 13751 0600 00 0 16061 STZ DUCBW $9P039920 | 13752 0020 00 0 10312 TRA BB00 $9P039930 13753 -370000777777 DMASK OCT 770000777777 $9P039940 | 13754 0500 00 0 13633 DCYLER CLA CYGO1 $9P039950 | 13755 -0734 00 2 00000 PDX 0,2 $9P039960 | 13756 0020 00 0 13634 TRA CYGO1+1 $9P039970 | * UNIT ASSIGNMENT ROUTINE 9P039980 | 13757 -0737 00 4 00000 BA000 PDC 0,4 COMPLEMENT BLOCK LENGTH $9P040000 | 13760 -3 00000 4 17660 TXL BG08,4,0 EXIT IF BLOCK LENGTH IS ZERO 9P040010 | 13761 -0634 00 4 14120 SXD BA07,4 9P040020 | 13762 0634 00 1 14123 SXA BA10,1 SAVE XR1, XR2 9P040030 13763 0634 00 2 14124 SXA BA11,2 9P040040 | 13764 0604 00 0 16076 STI BA99 AND INDICATORS 9P040050 | 13765 0634 00 0 14137 SXA BA32,0 RESET ANALYSES TABLE ENTRY COUNTER. 9P040060 | 13766 0621 00 0 14012 STA BA02 9P040070 | 13767 0774 00 4 77764 AXT -BFCBL,4 SET IR4 TO - FCB LENGTH $9P040080 13770 0402 00 0 17603 SUB BONE $9P040090 | 13771 0621 00 0 14101 STA BA70 2ND FCW $9P040100 | 13772 0402 00 0 17603 SUB BONE 9P040110 | 13773 0621 00 0 14107 STA BA71 9P040120 | 13774 -0634 00 4 14117 SXD BA06,4 STORE INCREMENT 9P040130 13775 -0500 00 0 00107 CAL SYSUNI 9P040140 | 13776 0621 00 0 16075 STA BTABL 9P040150 | 13777 -0737 00 4 00000 PDC 0,4 9P040160 | 14000 1 77777 4 14001 TXI *+1,4,-1 9P040170 | 14001 -0634 00 4 14017 SXD BA03,4 9P040180 14002 -0535 00 4 00112 LDC SYSUCW,4 9P040190 | 14003 -0634 00 4 14006 SXD *+3,4 9P040200 | 14004 0535 00 4 00112 LAC SYSUCW,4 9P040210 | 14005 -0634 00 4 14026 SXD BA037+1,4 9P040220 | 14006 1 00000 4 14007 TXI *+1,4,** 9P040230 14007 -0634 00 4 14025 SXD BA037,4 9P040240 | 14010 0774 00 4 00000 AXT 0,4 9P040250 | 14011 0774 00 2 00002 BA01 AXT 2,2 9P040260 | 14012 -0500 00 4 00000 BA02 CAL **,4 ADDRESS OF 1ST FCB WORD ONE $9P040270 | 14013 0522 00 2 16073 XEC BA80+2,2 PICK UP DEC- THEN ADDRESS $9P040280 1 LISTING OF 12/01/64 PAGE 92 | ROUTINES TAKEN FROM IOCS PREPROCESSOR | | 14014 -3 00000 1 14116 TXL BA05,1,0 9P040290 | 14015 -3 40000 1 14126 TXL BA30,1,16384 9P040300 14016 0634 00 1 14045 SXA BA0381,1 SAVE IR1 FOR DISK $9P040310 | 14017 3 00000 1 14022 BA03 TXH *+3,1,** 9P040320 | 14020 -3 00001 2 14116 TXL BA05,2,1 IGNORE INTERNAL FILE. 9P040330 | 14021 0020 00 0 16065 TRA BA40 9P040340 | 14022 1 00001 1 14023 TXI *+1,1,1 9P040350 14023 -0500 60 0 16075 CAL* BTABL TABLE ENTRY 9P040360 | 14024 0737 00 1 00000 PAC 0,1 9P040370 | 14025 -3 00000 1 16065 BA037 TXL BA40,1,** 9P040380 | 14026 3 00000 1 16065 TXH BA40,1,** 9P040390 | 14027 0441 00 1 00000 LDI 0,1 9P040400 14030 -0056 00 400000 LNT 400000 IS UNIT ALREADY AVAILABLE 9P040410 | 14031 0020 00 0 14041 TRA BA038 9P040420 | 14032 -0056 00 020100 LNT 020100 CHECK FOR DISK $9P040430 | 14033 0020 00 0 14035 TRA *+2 NO $9P040440 | 14034 0020 00 0 16067 TRA BA50 YES NOT AVAILABLE $9P040450 14035 -0054 00 200000 LFT 200000 IS UNIT ATTACHED 9P040460 | 14036 0020 00 0 16067 TRA BA50 NO 9P040470 | 14037 -0057 00 400000 RIL 400000 MAKE UNIT AVAILABLE 9P040480 | 14040 0604 00 1 00000 STI 0,1 9P040490 | 14041 -0056 00 020100 BA038 LNT 020100 CHECK FOR DISK $9P040500 14042 0020 00 0 14100 TRA BA0386 NO CONTINUE WITH TAPE $9P040510 | 14043 3 00001 2 16067 TXH BA50,2,1 IGNORE SECONDARY REFERENCE $9P040520 | 14044 0634 00 2 14073 SXA BA0385,2 $9P040530 | 14045 0774 00 2 00000 BA0381 AXT **,2 $9P040540 | 14046 0601 00 0 16077 STO BA100 SAVE AC $9P040550 14047 -0500 00 0 00107 CAL SYSUNI GET DISK LIMITS $9P040560 | 14050 0400 00 0 16100 ADD L(18) OF DESIRED UNIT $9P040570 | 14051 0621 00 0 14052 STA *+1 INTO THE MQ $9P040580 | 14052 0560 00 2 00000 LDQ **,2 $9P040590 | 14053 -0763 00 0 00022 LGL 18 MOVE DEND INTO AC $9P040600 14054 0534 00 2 14012 LXA BA02,2 GET FCB ORG IN IR2 $9P040610 | 14055 1 00007 2 14056 TXI *+1,2,7 POINT AT FCB WORD 8 $9P040620 | 14056 0634 00 2 14057 SXA BA0383,2 $9P040630 | 14057 0621 00 4 00000 BA0383 STA **,4 PUT DEND INTO WORD 8 $9P040640 | 14060 -0620 60 0 14057 SLQ* BA0383 PUT DORG INTO WORD 8 $9P040650 14061 -0620 60 0 14012 SLQ* BA02 PUT DORG INTO WORD 1 $9P040660 | 14062 1 77777 2 14063 TXI *+1,2,-1 POINT TO FCW WORD 7 $9P040670 | 14063 0634 00 2 14057 SXA BA0383,2 $9P040680 | 14064 -0763 00 0 00022 LGL 18 PUT DORG IN AC $9P040690 | 14065 0621 60 0 14057 STA* BA0383 PUT DORG IN WORD 7 $9P040700 14066 -0500 60 0 14057 CAL* BA0383 GET WORD 7 $9P040710 | 14067 -0320 00 0 14076 ANA BA0387 AND DETERMINE THE $9P040720 | 14070 -0100 00 0 14072 TNZ *+2 HOME ADDRESS IDEN $9P040730 | 14071 0500 00 0 14077 CLA BA0388 OTHER THAN ZERO IF $9P040740 | 14072 0622 60 0 14057 STD* BA0383 ZERO MAKE IT 12'S $9P040750 14073 0774 00 2 00000 BA0385 AXT **,2 $9P040760 | 14074 0500 00 0 16077 CLA BA100 RESTORE AC $9P040770 | 14075 0020 00 0 14113 TRA BA04 CONTINUE $9P040780 | 14076 +007777000000 BA0387 OCT 007777000000 $9P040790 | 14077 +001212000000 BA0388 OCT 001212000000 $9P040800 14100 -0130 00 0 00000 BA0386 XCL $9P040810 | 14101 0441 00 4 00000 BA70 LDI **,4 ADDRESS + 1 OF FCB $9P040820 | 14102 0162 00 0 14105 TQP *+3 $9P040830 | 1 LISTING OF 12/01/64 PAGE 93 | ROUTINES TAKEN FROM IOCS PREPROCESSOR | 14103 0055 00 100000 SIR 100000 $9P040840 | 14104 0020 00 0 14106 TRA *+2 $9P040850 | 14105 0057 00 100000 RIR 100000 $9P040860 | 14106 0604 60 0 14101 STI* BA70 $9P040870 14107 0441 00 4 00000 BA71 LDI **,4 FLAG UNIT AS $9P040880 | 14110 -0055 00 200000 SIL 200000 SYSTEM UNITS $9P040890 | 14111 0604 60 0 14107 STI* BA71 X $9P040900 | 14112 -0130 00 0 00000 BA039 XCL 9P040910 | 14113 -3 00001 2 14115 BA04 TXL *+2,2,1 9P040920 14114 0767 00 0 00022 ALS 18 9P040930 | 14115 0522 00 2 16075 XEC BA81+2,2 9P040940 | 14116 2 00001 2 14012 BA05 TIX BA02,2,1 9P040950 | 14117 1 00000 4 14120 BA06 TXI *+1,4,** 9P040960 | 14120 3 00000 4 14011 BA07 TXH BA01,4,** 9P040970 14121 0020 00 0 14144 TRA BA33 GO ANALIZE SECONDARY REFERENCES. 9P040980 | 14122 0441 00 0 16076 LDI BA99 RESTORE INDICATORS 9P040990 | 14123 0774 00 1 00000 BA10 AXT **,1 RESTORE XRS 9P041000 | 14124 0774 00 2 00000 BA11 AXT **,2 9P041010 | 14125 0020 00 0 17660 TRA BG08 9P041020 * UNIT IS IN SECONDARY TABLE 9P041030 | 14126 0754 00 1 00000 BA30 PXA 0,1 ENTER DESIGNATION AND 9P041040 | 14127 0737 00 1 00000 PAC 0,1 INDEX TO REFERENCE WORD 9P041050 | 14130 0754 00 1 00000 PXA 0,1 IN TABLE FOR ANALYSIS. 9P041060 | 14131 0044 00 0 00000 PAI UNIT TO INDICATORS 9P041070 14132 -0754 00 4 00000 PXD 0,4 INDEX TO FCB TO 9P041080 | 14133 0043 00 0 00000 OAI INDICATORS 9P041090 | 14134 -0754 00 2 00000 PXD 0,2 PRIMARY OR SECONDARY 9P041100 | 14135 0767 00 0 00017 ALS 15 UNIT TO PREFIX 9P041110 | 14136 0043 00 0 00000 OAI OF INDICATORS. 9P041120 14137 0774 00 1 00000 BA32 AXT 0,1 ENTER DESIGNATION IN 9P041130 | 14140 0604 00 1 15434 STI BA991,1 TABLE BA991. 9P041140 | 14141 1 77777 1 14142 TXI *+1,1,-1 STEP TO NEXT ENTRY. 9P041150 | 14142 0634 00 1 14137 SXA BA32,1 SAVE POSITION. 9P041160 | 14143 0020 00 0 14116 TRA BA05 $9P041170 1 LISTING OF 12/01/64 PAGE 94 | TABLE OF UNITS MUST BE SORTED | | 14144 0535 00 4 14137 BA33 LAC BA32,4 9P041190 | 14145 0535 00 2 14137 LAC BA32,2 9P041200 14146 0535 00 1 14137 LAC BA32,1 9P041210 | 14147 -3 00000 1 14122 TXL BA10-1,1,0 EXIT IF NO ENTRIES 9P041220 | 14150 1 15434 1 14151 TXI *+1,1,BA991 COMPUTE INDEX ADDRESS 9P041230 | 14151 0634 00 1 14153 SXA *+2,1 FOR COMPARING ENTRIES. 9P041240 | 14152 0634 00 1 14156 SXA *+4,1 X 9P041250 14153 -0500 00 2 00000 BA33A CAL **,2 PICKUP AN ENTRY 9P041260 | 14154 -0320 00 0 14175 ANA UMASK MASK OUT NO REPOSITION FLAG 9P041270 | 14155 0621 00 0 15267 STA BA992 SORT ON ADDRESS ONLY 9P041280 | 14156 -0500 00 4 00000 BA33B CAL **,4 COMPARE ENTRIES 9P041290 | 14157 -0320 00 0 14175 ANA UMASK X 9P041300 14160 0340 00 0 15267 CAS BA992 X 9P041310 | 14161 0020 00 0 14170 TRA BA33C SWAP ENTRIES. 9P041320 | 14162 0774 00 0 00000 AXT 0,0 NOP (1 CYCLE) 9P041330 | 14163 2 00001 2 14153 TIX BA33A,2,1 9P041340 | 14164 -2 00001 4 14176 TNX BA34,4,1 STEP TO NEXT ENTRY. 9P041350 14165 0754 00 4 00000 PXA 0,4 X 9P041360 | 14166 0734 00 2 00000 PAX 0,2 X 9P041370 | 14167 0020 00 0 14153 TRA BA33A X 9P041380 | 14170 -0500 60 0 14153 BA33C CAL* BA33A SWAP ENTRIES. 9P041390 | 14171 0560 60 0 14156 LDQ* BA33B X 9P041400 14172 0602 60 0 14156 SLW* BA33B X 9P041410 | 14173 -0600 60 0 14153 STQ* BA33A X 9P041420 | 14174 0020 00 0 14153 TRA BA33A BACK TO COMPARE. 9P041430 | 14175 +000000077377 UMASK OCT 77377 9P041440 | 000400 NOREP BOOL 400 NO REPOSITIONING ON RESTART 9P041450 001000 MODII BOOL 1000 MOD II OR V SPECIFIED. 9P041460 | 002000 REMOVE BOOL 2000 REMOVE RESERVE STATUS. 9P041470 | 004000 RESERV BOOL 4000 RESERVE UNIT FOR/FROM ANOTHER SYSTEM.9P041480 | 010000 SYMBOL BOOL 10000 SYMBOLIC CHANNEL DESIGNATED. 9P041490 | 020000 SAME BOOL 20000 (*) UNIT2 DESIGNATED 9P041500 020377 ANY BOOL 20377 BLANK UNIT DESIGNATED 9P041510 | 040000 SECOND BOOL 40000 RELATIVE UNIT IS IN SECONDARY TABLE. 9P041520 | 1 LISTING OF 12/01/64 PAGE 95 | UNIT ASSIGNMENT | * UNITS TO BE ASSIGNED ARE IN THE FOLLOWING ORDER. 9P041540 | * REAL CHANNEL MOD IV RELATIVE UNIT 9P041550 | * REAL CHANNEL MOD II RELATIVE UNIT 9P041560 | * INTER SYSTEM RESERVE MOD IV RELATIVE CHANNEL/UNIT 9P041570 | * INTER SYSTEM RESERVE MOD II RELATIVE CHANNEL/UNIT 9P041580 * SYMBOLIC MOD IV RELATIVE CHANNEL/UNIT 9P041590 | * SYMBOLIC MOD II RELATIVE CHANNEL/UNIT 9P041600 | * ANY CHANNEL ANY UNIT (BLANK IN FILE CARD) 9P041610 | * * (SAME TYPE UNITS) 9P041620 | * CARD AND SYSTEM UNITS HAVE BEEN ASSIGNED 9P041630 | * UNIT ASSIGNMENTS ARE FINALIZED BY THIS ROUTINE 9P041650 | 14176 0074 00 4 15273 BA34 TSX BAMAP,4 GENERATE TABLE OF AVAILABLE UNITS. 9P041660 | 14177 0535 00 2 14137 LAC BA32,2 PICKUP COUNT OF UNITS 9P041670 | 14200 -0500 60 0 14153 BA34A CAL* BA33A GET UNIT DESIGNATION. 9P041680 14201 0621 00 0 15267 STA BA992 SAVE INDICATOR BITS FOR UNIT 9P041690 | 14202 0634 00 2 14227 SXA BA34B,2 SAVE CURRENT STARTING INDEX. 9P041700 | 14203 -2 00001 2 14222 TNX BA34E,2,1 EXIT IF LAST UNIT 9P041710 | 14204 0441 60 0 14153 BA34D LDI* BA33A PICK UP NEXT UNIT 9P041720 | 14205 0440 00 0 15267 IIS BA992 COMPARE WITH LAST ONE 9P041730 14206 0054 00 037377 RFT 37377 9P041740 | 14207 0020 00 0 14212 TRA BA34C DIFFERENT 9P041750 | 14210 2 00001 2 14204 TIX BA34D,2,1 SAME UNIT 9P041760 | 14211 0020 00 0 14222 TRA BA34E NO MORE. PROCESS LAST GROUP. 9P041770 | 14212 0774 00 1 00000 BA34C AXT 0,1 COUNT UNIT 9P041780 14213 0054 00 037360 RFT 37360 IF UNIT ONLY DIFFERENT 9P041790 | 14214 1 00001 1 14225 TXI BA34F,1,1 NO. OTHER DESIGNATION DIFFERENT. 9P041800 | 14215 1 00001 1 14216 TXI *+1,1,1 UNIT ONLY. STEP UNIT COUNT. 9P041810 | 14216 -0500 60 0 14153 CAL* BA33A GET NEXT UNIT DESIGNATION 9P041820 | 14217 0621 00 0 15267 STA BA992 TO COUNT DIFFERENT UNITS 9P041830 14220 0634 00 1 14212 SXA BA34C,1 SAVE COUNT AND GO 9P041840 | 14221 2 00001 2 14204 TIX BA34D,2,1 BACK FOR NEXT UNIT 9P041850 | 14222 0774 00 2 00000 BA34E AXT 0,2 LAST UNIT TO BE ASSIGNED 9P041860 | 14223 0534 00 1 14212 LXA BA34C,1 PICKUP COUNT. 9P041870 | 14224 1 00001 1 14225 TXI *+1,1,1 ACCOUNT FOR FIRST UNIT. 9P041880 14225 0634 00 0 14212 BA34F SXA BA34C,0 RESET UNIT COUNTER 9P041890 | 14226 -0634 00 2 14317 SXD BA34X,2 SAVE POSITION INDICATOR 9P041900 | 14227 0774 00 2 00000 BA34B AXT **,2 RELOAD FIRST UNIT INDEX 9P041910 | 14230 0441 60 0 14153 LDI* BA33A FIRST UNIT TYPE TO INDICATORS 9P041920 | 14231 -0046 00 0 00000 PIA SET FIRST UNIT DESIGNATION 9P041930 14232 0621 00 0 15267 STA BA992 INTO BA992 FOR COMPARE 9P041940 | 14233 -0634 00 1 15271 SXD BA994,1 UNIT COUNT TO BA994 9P041950 | 14234 0056 00 020377 RNT ANY IS IT BLANK TYPE 9P041960 | 14235 0020 00 0 14237 TRA *+2 NO 9P041970 | 14236 0020 00 0 15117 TRA BA34G YES, ASSIGN ANY UNIT 9P041980 14237 0054 00 020000 RFT SAME IS IT (*) TYPE 9P041990 | 14240 0020 00 0 14740 TRA BA34H YES, ASSIGN ANY UNIT OR SAME UNIT 9P042000 | 14241 0054 00 010000 RFT SYMBOL IS IT S-Z CHANNEL 9P042010 | 14242 0020 00 0 14542 TRA BA34I YES, FIND CHANNEL THAT FITS. 9P042020 | 14243 0054 00 004000 RFT RESERV IS IT J-Q RESERVE UNIT. 9P042030 14244 0020 00 0 14371 TRA BA34J YES, FIND UNIT OR CHANNEL THAT FITS. 9P042040 | 14245 0500 00 0 00110 CLA SYSUBC REAL CHANNEL SET LIMIT TEST 9P042050 | 14246 0622 00 0 14256 STD BA34Q FOR THIS MACHINE 9P042060 | 14247 -0046 00 0 00000 PIA NO. MOD IV OR VI DESIRED 9P042070 | 14250 -0765 00 0 00010 LGR 8 CHANNEL AND UNIT TO MQ 9P042080 1 LISTING OF 12/01/64 PAGE 96 | UNIT ASSIGNMENT | | 14251 -0754 00 0 00000 PXD 0,0 CLEAR AC 9P042090 | 14252 -0763 00 0 00004 LGL 4 CHANNEL NO (-1) TO AC 9P042100 14253 0734 00 1 00000 PAX 0,1 TO IR1 9P042110 | 14254 1 00001 1 14255 TXI *+1,1,1 CHANNEL NO TO IR1 9P042120 | 14255 0502 00 0 15271 CLS BA994 COUNT TO AC 9P042130 | 14256 3 00000 1 14542 BA34Q TXH BA34I,1,** REVERT TO SYMBOLIC 9P042140 | 14257 0054 00 001000 RFT MODII 9P042150 14260 0020 00 0 14325 TRA BA34K 9P042160 | 14261 -0340 00 1 15434 LAS BAUIV,1 COMPARE WITH MOD IV CONTROL 9P042170 | 14262 0020 00 0 14542 TRA BA34I NOT ENOUGH UNITS. REVERT TO SYMBOLIC 9P042180 | 14263 -1 00000 0 14263 STR * SHOULD NEVER BE EQUAL 9P042190 | 14264 0400 00 1 15434 ADD BAUIV,1 REDUCE COUNT OF UNITS 9P042200 14265 0622 00 1 15434 STD BAUIV,1 ON CHANNEL. 9P042210 | 14266 0621 00 0 15270 BA34N STA BA993 SAVE UNIT ADDRESS 9P042220 | 14267 -0500 60 1 15434 CAL* BAUIV,1 TAKE UNIT OUT OF CHAIN 9P042230 | 14270 0621 00 1 15434 STA BAUIV,1 X 9P042240 | 14271 0500 60 0 15270 CLA* BA993 MAKE UNIT AVAILABLE 9P042250 14272 0441 00 0 15267 LDI BA992 AND SET NO REPOSITIONING 9P042260 | 14273 0054 00 000400 RFT NOREP FLAG IF REQUIRED. 9P042270 | 14274 -0501 00 0 04731 ORA PTW X 9P042280 | 14275 0602 60 0 15270 SLW* BA993 X 9P042290 | 14276 0441 60 0 14153 BA34O LDI* BA33A PICK UP UNIT DESIGNATION 9P042300 14277 0440 00 0 15267 IIS BA992 COMPARE UNITS 9P042310 | 14300 0054 00 000017 RFT 17 X 9P042320 | 14301 0020 00 0 14321 TRA BA34M DIFFERENT, STEP TO NEXT UNIT 9P042330 | 14302 -0046 00 0 00000 PIA SAME 9P042340 | 14303 -0734 00 4 00000 PDX 0,4 FILE INDEX TO IR4 9P042350 14304 0771 00 0 00017 ARS 15 PRIMARY OR SECONDARY 9P042360 | 14305 0634 00 1 14315 SXA *+8,1 UNIT TO 9P042370 | 14306 -0734 00 1 00000 PDX 0,1 IR1 9P042380 | 14307 -0500 00 0 15270 CAL BA993 PICKUP L(UCW) 9P042390 | 14310 -3 00001 1 14314 TXL *+4,1,1 TRANSFER IF PRIMARY UNIT. 9P042400 14311 0767 00 0 00022 ALS 18 SECONDARY UNIT TO 9P042410 | 14312 0622 60 0 14012 STD* BA02 FILE CONTROL BLOCK 9P042420 | 14313 0020 00 0 14315 TRA *+2 X 9P042430 | 14314 0621 60 0 14012 STA* BA02 PRIMARY UNIT TO FCB 9P042440 | 14315 0774 00 1 00000 AXT **,1 RELOAD CHANNEL NO. IN IR1 9P042450 14316 -2 00001 2 15157 TNX BA35A,2,1 EXIT IF LAST UNIT 9P042460 | 14317 -3 00000 2 14200 BA34X TXL BA34A,2,** BACK IF LAST OF GROUP. 9P042470 | 14320 0020 00 0 14276 TRA BA34O BACK FOR NEXT UNIT OF GROUP 9P042480 | 14321 -0500 60 0 14153 BA34M CAL* BA33A STEP TO NEXT UNIT. 9P042490 | 14322 0621 00 0 15267 STA BA992 SAVE DESIGNATION 9P042500 14323 -0500 00 1 15434 CAL BAUIV,1 PICKUP UNIT FROM CHAIN 9P042510 | 14324 0020 00 0 14266 TRA BA34N AND USE IT NEXT. 9P042520 | 1 LISTING OF 12/01/64 PAGE 97 | MOD II REAL CHANNEL REQUIRED | 14325 -0340 00 1 15424 BA34K LAS BAUII,1 COMPARE WITH MOD II CONTROL 9P042540 | 14326 0020 00 0 14542 TRA BA34I NOT ENOUGH UNITS. TRY SYMBOLIC 9P042550 | 14327 -1 00000 0 14327 STR * SHOULD NEVER BE EQUAL 9P042560 | 14330 0400 00 1 15424 ADD BAUII,1 ADJUST COUNT OF UNITS ON 9P042570 | 14331 0622 00 1 15424 STD BAUII,1 CHANNEL. SAVE. REMAINING NO. 9P042580 14332 0621 00 0 15270 BA34P STA BA993 SAVE L(UCW) 9P042590 | 14333 -0500 60 1 15424 CAL* BAUII,1 REMOVE UNIT FROM CHAIN. 9P042600 | 14334 0621 00 1 15424 STA BAUII,1 X 9P042610 | 14335 0500 60 0 15270 CLA* BA993 MAKE UNIT AVAILABLE AND 9P042620 | 14336 0441 00 0 15267 LDI BA992 SET NO REPOSITIONING 9P042630 14337 0054 00 000400 RFT NOREP FLAG IF REQUIRED. 9P042640 | 14340 -0501 00 0 04731 ORA PTW X 9P042650 | 14341 0602 60 0 15270 SLW* BA993 X 9P042660 | 14342 0441 60 0 14153 BA34R LDI* BA33A PICKUP UNIT INDICATORS 9P042670 | 14343 0440 00 0 15267 IIS BA992 COMPARE UNITS 9P042680 14344 0054 00 000017 RFT 17 X 9P042690 | 14345 0020 00 0 14365 TRA BA34S DIFFERENT UNITS. STEP TO NEXT. 9P042700 | 14346 -0046 00 0 00000 PIA SAME. USE CURRENT UNIT. 9P042710 | 14347 -0734 00 4 00000 PDX 0,4 FILE INDEX TO IR4. 9P042720 | 14350 0771 00 0 00017 ARS 15 PRIMARY OR SECONDARY 9P042730 14351 0634 00 1 14361 SXA *+8,1 UNIT TO 9P042740 | 14352 -0734 00 1 00000 PDX 0,1 IR1 9P042750 | 14353 -0500 00 0 15270 CAL BA993 PICKUP L(UCB) 9P042760 | 14354 -3 00001 1 14360 TXL *+4,1,1 TRANSFER IF PRIMARY UNIT. 9P042770 | 14355 0767 00 0 00022 ALS 18 PLACE L(UCB) IN 9P042780 14356 0622 60 0 14012 STD* BA02 SECONDARY UNIT OF FCB 9P042790 | 14357 0020 00 0 14361 TRA *+2 X 9P042800 | 14360 0621 60 0 14012 STA* BA02 SET PRIMARY UNIT. 9P042810 | 14361 0774 00 1 00000 AXT **,1 RELOAD IR1 WITH CHANNEL NO. 9P042820 | 14362 -2 00001 2 15157 TNX BA35A,2,1 EXIT IF NO MORE UNITS. 9P042830 14363 0522 00 0 14317 XEC BA34X BACK FOR NEXT GROUP. 9P042840 | 14364 0020 00 0 14342 TRA BA34R BACK FOR NEXT UNIT. 9P042850 | 14365 -0500 60 0 14153 BA34S CAL* BA33A UNITS ARE DIFFERENT. 9P042860 | 14366 0621 00 0 15267 STA BA992 STEP TO NEXT UNIT 9P042870 | 14367 -0500 00 1 15424 CAL BAUII,1 PICKUP L(UCW) 9P042880 14370 0020 00 0 14332 TRA BA34P AND USE IT. 9P042890 | 1 LISTING OF 12/01/64 PAGE 98 | INTER SYSTEM RESERVE TYPE REQUIRED. | | 14371 -0500 00 0 00112 BA34J CAL SYSUCW LOOK FOR UNIT IN 9P042910 14372 0622 00 0 14374 STD *+2 UCW. SET UP INDEX TO 9P042920 | 14373 0734 00 1 00000 PAX 0,1 UNITS. 9P042930 | 14374 1 00000 1 14375 TXI *+1,1,** X 9P042940 | 14375 0634 00 1 14407 SXA BA34Y,1 SAVE INDEX ADDRESS 9P042950 | 14376 -0734 00 1 00000 PDX 0,1 COUNT TO IR1 9P042960 14377 -0500 00 0 15267 CAL BA992 RESTORE ORIGINAL SYMBOL 9P042970 | 14400 -0765 00 0 00010 LGR 8 USED IN FILE CARD 9P042980 | 14401 -0500 00 0 17604 CAL BTWO X 9P042990 | 14402 -0763 00 0 00004 LGL 4 X 9P043000 | 14403 0400 00 0 04715 ADD L(1) X 9P043010 14404 0767 00 0 00002 ALS 2 X 9P043020 | 14405 -0763 00 0 00004 LGL 4 X 9P043030 | 14406 0621 00 0 15272 STA BA995 SAVE IT FOR COMPARISON. 9P043040 | 14407 0441 00 1 00000 BA34Y LDI **,1 FIND UNIT WITH MATCHING 9P043050 | 14410 -0054 00 040000 LFT 40000 NAME. 9P043060 14411 0020 00 0 14414 TRA *+3 UNIT IS RESERVE. TEST IT. 9P043070 | 14412 2 00004 1 14407 TIX BA34Y,1,4 TRY NEXT ONE. 9P043080 | 14413 0020 00 0 14451 TRA BA34W NOT IN RESERVE STATUS YET. 9P043090 | 14414 0440 00 0 15272 IIS BA995 COMPARE ADDRESS OF UCW TO 9P043100 | 14415 0054 00 077777 RFT 77777 SYMBOLIC DESIGNATION. 9P043110 14416 0020 00 0 14412 TRA *-4 NO MATCH. 9P043120 | 14417 0754 00 1 00000 PXA 0,1 UNIT FOUND 9P043130 | 14420 0760 00 0 00006 COM COMPUTE UCW ADDRESS 9P043140 | 14421 0361 00 0 14407 ACL BA34Y X 9P043150 | 14422 0621 00 0 15270 STA BA993 SAVE IT 9P043160 14423 0441 60 0 14153 LDI* BA33A PICK UP INDICATORS FOR UNIT 9P043170 | 14424 0500 60 0 15270 CLA* BA993 GET UCB WORD 1 9P043180 | 14425 0054 00 002000 RFT REMOVE SET FLAG FOR REMOVAL OF 9P043190 | 14426 -0501 00 0 04725 ORA BIT4 RESERVE STATUS. 9P043200 | 14427 0054 00 000400 RFT NOREP SET NO REPOSITIONING FLAG IF 9P043210 14430 -0501 00 0 04731 ORA PTW DESIRED. 9P043220 | 14431 0602 60 0 15270 SLW* BA993 MAKE UNIT AVAILABLE. 9P043230 | 14432 -0046 00 0 00000 PIA ASSIGN UNIT TO 9P043240 | 14433 -0734 00 4 00000 PDX 0,4 FILE. PICKUP FILE INDEX. 9P043250 | 14434 0771 00 0 00017 ARS 15 PRIMARY OR SECONDARY 9P043260 14435 -0734 00 1 00000 PDX 0,1 UNIT TO IR1 9P043270 | 14436 0500 00 0 15270 CLA BA993 PICK UP L(UCW) 9P043280 | 14437 -3 00001 1 14443 TXL *+4,1,1 TRANSFER IF PRIMARY. 9P043290 | 14440 0767 00 0 00022 ALS 18 SECONDARY UNIT IS 9P043300 | 14441 0622 60 0 14012 STD* BA02 DECREMENT OF FCB WORD 1. 9P043310 14442 0020 00 0 14444 TRA *+2 X 9P043320 | 14443 0621 60 0 14012 STA* BA02 ASSIGN PRIMARY UNIT. 9P043330 | 14444 -2 00001 2 15157 TNX BA35A,2,1 EXIT IF LAST ONE. 9P043340 | 14445 0522 00 0 14317 XEC BA34X RETURN IF LAST OF GROUP 9P043350 | 14446 -0500 60 0 14153 CAL* BA33A PICKUP NEXT UNIT 9P043360 14447 0621 00 0 15267 STA BA992 SAVE INDICATORS 9P043370 | 14450 0020 00 0 14371 TRA BA34J GO GET IT. 9P043380 | 1 LISTING OF 12/01/64 PAGE 99 | RESERVE UNIT REQUIRED FOR OUTPUT OR INPUT NOT GENERATED | 14451 -0500 60 0 14153 BA34W CAL* BA33A TEST FOR INPUT UNIT 9P043400 | 14452 -0734 00 4 00000 PDX 0,4 GET INDEX TO FILE. 9P043410 | 14453 0441 60 0 14101 LDI* BA70 PICKUP FILE BITS. 9P043420 | 14454 -0054 00 003000 LFT OUTPUT CHECK FOR OUTPUT. 9P043430 | 14455 0020 00 0 14457 TRA *+2 OK. 9P043440 14456 0020 00 0 15772 TRA BLAST5 INPUT NOT DEFINED-ERROR. 9P043450 | 14457 -0500 00 0 00110 BA34Z CAL SYSUBC SET LIMIT TEST. 9P043460 | 14460 0622 00 0 14467 STD BA34T TRY EQUATING SYMBOLIC TO 9P043470 | 14461 -0500 00 0 15267 CAL BA992 ACTUAL CHANNEL FIRST. 9P043480 | 14462 -0765 00 0 00010 LGR 8 CHANNEL NO.-1 TO MQ 9P043490 14463 -0754 00 0 00000 PXD 0,0 CLEAR AC. 9P043500 | 14464 -0763 00 0 00004 LGL 4 CHANNEL TO AC 9P043510 | 14465 0734 00 1 00000 PAX 0,1 TO IR1 9P043520 | 14466 1 00001 1 14467 TXI *+1,1,1 X 9P043530 | 14467 3 00000 1 14517 BA34T TXH BA34U,1,** OUT OF SYSTEM. GET ANY UNIT. 9P043540 14470 0441 60 0 14153 LDI* BA33A TEST FOR 9P043550 | 14471 0056 00 001000 RNT MODII MOD II (OR V) 9P043560 | 14472 0020 00 0 14503 TRA *+9 MOD IV (OR VI) DESIRED. 9P043570 | 14473 -0500 00 1 15424 BA341 CAL BAUII,1 PICKUP A MOD II (OR V). 9P043580 | 14474 0100 00 0 14517 TZE BA34U NONE AVAILABLE ON CHANNEL. 9P043590 14475 0621 00 0 15270 STA BA993 GOT ONE. USE IT 9P043600 | 14476 0402 00 0 04721 SUB 1B17 REDUCE COUNT OF REMAINING MOD IIS 9P043610 | 14477 0622 00 1 15424 STD BAUII,1 SAVE REDUCED COUNT. 9P043620 | 14500 -0500 60 1 15424 CAL* BAUII,1 RECHAIN UNITS. 9P043630 | 14501 0621 00 1 15424 STA BAUII,1 X 9P043640 14502 0020 00 0 14512 TRA *+8 GO ASSIGN IT 9P043650 | 14503 -0500 00 1 15434 BA342 CAL BAUIV,1 PICK UP A MOD IV (OR VI). 9P043660 | 14504 0100 00 0 14517 TZE BA34U NONE AVAILABLE ON CHANNEL. 9P043670 | 14505 0621 00 0 15270 STA BA993 GOT ONE. 9P043680 | 14506 0402 00 0 04721 SUB 1B17 REDUCE UNIT COUNT. 9P043690 14507 0622 00 1 15434 STD BAUIV,1 SAVE REMAINING UNIT COUNT. 9P043700 | 14510 -0500 60 1 15434 CAL* BAUIV,1 REMOVE UNIT FROM CHAIN. 9P043710 | 14511 0621 00 1 15434 STA BAUIV,1 X 9P043720 | 14512 -0500 00 0 15272 CAL BA995 PUT SYMBOLIC DESIGNATION 9P043730 | 14513 0621 60 0 15270 STA* BA993 INTO UCB WORD 1. 9P043740 14514 -0500 00 0 04726 CAL BIT3 FLAG AS INTER SYSTEM 9P043750 | 14515 -0602 60 0 15270 ORS* BA993 RESERVE. GO FIND IT 9P043760 | 14516 0020 00 0 14371 TRA BA34J AGAIN AND ASSIGN IT. 9P043770 | 14517 -0534 00 1 00110 BA34U LXD SYSUBC,1 MAKE A SYMBOLIC ASSIGNMENT. 9P043780 | 14520 0056 00 001000 RNT MODII MOD II 9P043790 14521 0020 00 0 14532 TRA BA34V NO. MOD IV DESIRED. 9P043800 | 14522 0520 00 1 15424 ZET BAUII,1 FIND A CHANNEL WITH MOD II 9P043810 | 14523 0020 00 0 14473 TRA BA341 TAPES. FOUND ONE. 9P043820 | 14524 2 00001 1 14522 TIX *-2,1,1 TRY NEXT CHANNEL. 9P043830 | 14525 -0534 00 1 00110 LXD SYSUBC,1 NO. MOD II DRIVES LEFT 9P043840 14526 0520 00 1 15434 ZET BAUIV,1 TRY MOD IV 9P043850 | 14527 0020 00 0 14503 TRA BA342 FOUND ONE. 9P043860 | 14530 2 00001 1 14526 TIX *-2,1,1 TRY NEXT CHANNEL. 9P043870 | 14531 0020 00 0 15750 TRA BLAST NO MORE UNITS AVAILABLE. 9P043880 | 14532 0520 00 1 15434 BA34V ZET BAUIV,1 MOD IV DESIRED. FIND ONE. 9P043890 14533 0020 00 0 14503 TRA BA342 GOT ONE. 9P043900 | 14534 2 00001 1 14532 TIX *-2,1,1 TRY NEXT CHANNEL. 9P043910 | 14535 -0534 00 1 00110 LXD SYSUBC,1 NO MORE MOD IV TAPES 9P043920 | 14536 0520 00 1 15424 ZET BAUII,1 TRY MOD II. 9P043930 | 14537 0020 00 0 14473 TRA BA341 FOUND ONE. 9P043940 1 LISTING OF 12/01/64 PAGE 100 | RESERVE UNIT REQUIRED FOR OUTPUT OR INPUT NOT GENERATED | | 14540 2 00001 1 14536 TIX *-2,1,1 TRY NEXT CHANNEL. 9P043950 | 14541 0020 00 0 15750 TRA BLAST NO MORE UNITS AVAILABLE. 9P043960 1 LISTING OF 12/01/64 PAGE 101 | SYMBOLIC CHAIN | | * SYMBOLIC CHANNEL DESIGNATED. CHAIN LOCATORS NOW SORTED BY 9P043980 | * NUMBER OF UNITS ON CHANNEL. 9P043990 14542 -0534 00 4 00110 BA34I LXD SYSUBC,4 NO. OF CHANNEL TO IR4 9P044000 | 14543 -0534 00 1 00110 LXD SYSUBC,1 AND IR1 9P044010 | 14544 -0500 00 1 15424 CAL BAUII,1 SORT MOD IIS 9P044020 | 14545 -0340 00 4 15424 LAS BAUII,4 COMPARE LOCATORS 9P044030 | 14546 0020 00 0 14561 TRA *+11 EXCHANGE LOCATORS. 9P044040 14547 0774 00 0 00000 AXT 0,0 NOP (1 CYCLE) 9P044050 | 14550 -0500 00 1 15434 CAL BAUIV,1 COMPARE MOD IVS 9P044060 | 14551 -0340 00 4 15434 LAS BAUIV,4 X 9P044070 | 14552 0020 00 0 14565 TRA *+11 EXCHANGE LOCATORS. 9P044080 | 14553 0774 00 0 00000 AXT 0,0 NOP (1 CYCLE) 9P044090 14554 2 00001 4 14544 TIX BA34I+2,4,1 BACK FOR NEXT COMPARE 9P044100 | 14555 -2 00001 1 14571 TNX BA343,1,1 STEP TO NEXT SET. 9P044110 | 14556 0754 00 1 00000 PXA 0,1 X 9P044120 | 14557 0734 00 4 00000 PAX 0,4 X 9P044130 | 14560 0020 00 0 14544 TRA BA34I+2 X 9P044140 14561 0560 00 4 15424 LDQ BAUII,4 EXCHANGE MODII 9P044150 | 14562 0602 00 4 15424 SLW BAUII,4 LOCATORS. 9P044160 | 14563 -0600 00 1 15424 STQ BAUII,1 X 9P044170 | 14564 0020 00 0 14550 TRA *-12 BACK TO COMPARE MOD IVS 9P044180 | 14565 0560 00 4 15434 LDQ BAUIV,4 EXCHANGE MOD IV 9P044190 14566 0602 00 4 15434 SLW BAUIV,4 LOCATORS. 9P044200 | 14567 -0600 00 1 15434 STQ BAUIV,1 X 9P044210 | 14570 0020 00 0 14554 TRA *-12 BACK TO STEP TO NEXT COMPARE. 9P044220 | 14571 -0534 00 1 00110 BA343 LXD SYSUBC,1 FIND A CHANNEL 9P044230 | 14572 0441 60 0 14153 LDI* BA33A WITH ENOUGH UNITS TO SATISFY 9P044240 14573 -0634 00 1 14601 SXD BA370,1 SAVE IR FOR COMPARE $9P044250 | 14574 -0046 00 0 00000 PIA GET CHANNEL 9P044260 | 14575 0771 00 0 00004 ARS 4 NUMBER IN IR1 9P044270 | 14576 -0320 00 0 14643 ANA BA347+2 FOR COMPARE 9P044280 | 14577 0734 00 1 00000 PAX 0,1 9P044290 14600 1 00001 1 14601 TXI *+1,1,1 9P044300 | 14601 3 00000 1 14615 BA370 TXH BA372,1,** 9P044310 | 14602 0502 00 0 15271 CLS BA994 TEST FOR MOD II TAPES 9P044320 | 14603 0056 00 001000 RNT MODII 9P044330 | 14604 0020 00 0 14611 TRA BA371 9P044340 14605 -0340 00 1 15424 LAS BAUII,1 9P044350 | 14606 0020 00 0 14615 TRA BA372 9P044360 | 14607 -1 00000 0 00000 STR 0 9P044370 | 14610 0020 00 0 14627 TRA BA348-2 BACK TO SOMBOLIC 9P044380 | 14611 -0340 00 1 15434 BA371 LAS BAUIV,1 TEST FOR MOD IV TAPES 9P044390 14612 0020 00 0 14615 TRA BA372 9P044400 | 14613 -1 00000 0 00000 STR 0 9P044410 | 14614 0020 00 0 14677 TRA BA349-2 BACK TO SYMBOLIC 9P044420 | 14615 -0534 00 1 00110 BA372 LXD SYSUBC,1 9P044430 | 14616 0502 00 0 15271 CLS BA994 THIS SET. 9P044440 14617 0056 00 001000 RNT MODII MOD II OR IV 9P044450 | 14620 0020 00 0 14671 TRA BA344 MOD IV DESIRED. 9P044460 | 14621 -0340 00 1 15424 LAS BAUII,1 COMPARE WITH MOD II LOCATORS 9P044470 | 14622 0020 00 0 14625 TRA *+3 NOT ENOUGH. 9P044480 | 14623 -1 00000 0 14623 STR * SHOULD NEVER BE EQUAL. 9P044490 14624 0020 00 0 14627 TRA *+3 FOUND 9P044500 | 14625 2 00001 1 14621 TIX *-4,1,1 TRY NEXT CHANNEL. 9P044510 | 14626 0020 00 0 14670 TRA BA344-1 TRY MOD IV S 9P044520 | 1 LISTING OF 12/01/64 PAGE 102 | SYMBOLIC CHAIN | 14627 0400 00 1 15424 ADD BAUII,1 REDUCE COUNT BY NO. OF UNITS 9P044530 | 14630 0622 00 1 15424 STD BAUII,1 IN SET AND SAVE REMAINDER. 9P044540 | 14631 0621 00 0 15270 BA348 STA BA993 SAVE L (UCW) 9P044550 | 14632 -0500 60 1 15424 CAL* BAUII,1 REMOVE UNIT FROM CHAIN. 9P044560 14633 0621 00 1 15424 STA BAUII,1 X 9P044570 | 14634 0500 60 0 15270 CLA* BA993 PICK UP UCB WORD 1 9P044580 | 14635 0441 00 0 15267 LDI BA992 SET NO REPOSITIONING FLAG 9P044590 | 14636 0054 00 000400 RFT NOREP IF DESIRED. 9P044600 | 14637 -0501 00 0 04731 ORA PTW X 9P044610 14640 0602 60 0 15270 SLW* BA993 MAKE UNIT AVAILABLE. 9P044620 | 14641 0441 60 0 14153 BA347 LDI* BA33A SEE IF UNITS CHANGED. 9P044630 | 14642 0440 00 0 15267 IIS BA992 X 9P044640 | 14643 0054 00 000017 RFT 17 TEST FOR SAME OR FIRST UNIT 9P044650 | 14644 0020 00 0 14664 TRA BA345 DIFFERENT. GET ANOTHER ONE. 9P044660 14645 -0046 00 0 00000 PIA SAME. ASSIGN UNIT. 9P044670 | 14646 -0734 00 4 00000 PDX 0,4 PICKUP INDEX TO FCB 9P044680 | 14647 0771 00 0 00017 ARS 15 PRIMARY OR SECONDARY 9P044690 | 14650 0634 00 1 14660 SXA *+8,1 UNIT TO IR 1 9P044700 | 14651 -0734 00 1 00000 PDX 0,1 X 9P044710 14652 -0500 00 0 15270 CAL BA993 PICKUP L(UCW) 9P044720 | 14653 -3 00001 1 14657 TXL *+4,1,1 TRANSFER IF PRIMARY UNIT. 9P044730 | 14654 0767 00 0 00022 ALS 18 SECONDARY UNIT TO 9P044740 | 14655 0622 60 0 14012 STD* BA02 DECREMENT OF FCB WORD 1 9P044750 | 14656 0020 00 0 14660 TRA *+2 X 9P044760 14657 0621 60 0 14012 STA* BA02 ASSIGN PRIMARY UNIT. 9P044770 | 14660 0774 00 1 00000 AXT **,1 RELOAD CHANNEL INDEX. 9P044780 | 14661 -2 00001 2 15157 TNX BA35A,2,1 EXIT IF LAST UNIT. 9P044790 | 14662 0522 00 0 14317 XEC BA34X EXIT IF LAST UNIT OF SET. 9P044800 | 14663 0020 00 0 14641 TRA BA347 ASSIGN NEXT UNIT OF SET. 9P044810 14664 -0500 60 0 14153 BA345 CAL* BA33A GET NEXT UNIT INDICATORS 9P044820 | 14665 0621 00 0 15267 STA BA992 FOR COMPARE. 9P044830 | 14666 -0500 00 1 15424 CAL BAUII,1 GET NEXT MOD II IN CHAIN. 9P044840 | 14667 0020 00 0 14631 TRA BA348 GO ASSIGN IT. 9P044850 | 14670 -0534 00 1 00110 LXD SYSUBC,1 9P044860 14671 -0340 00 1 15434 BA344 LAS BAUIV,1 FIND A CHANNEL WITH ENOUGH 9P044870 | 14672 0020 00 0 14675 TRA *+3 MOD IV TAPES. NOT THIS ONE. 9P044880 | 14673 -1 00000 0 14673 STR * SHOULD NEVER BE EQUAL. 9P044890 | 14674 0020 00 0 14677 TRA *+3 FOUND. 9P044900 | 14675 2 00001 1 14671 TIX *-4,1,1 TRY NEXT CHANNEL. 9P044910 14676 0020 00 0 15036 TRA BA346 COMBINE MOD II S AND MODIVS 9P044920 | 14677 0400 00 1 15434 ADD BAUIV,1 FOUND. REDUCE COUNT BY SET COUNT 9P044930 | 14700 0622 00 1 15434 STD BAUIV,1 SAVE REMAINDER. 9P044940 | 14701 0621 00 0 15270 BA349 STA BA993 SAVE L (UCW) 9P044950 | 14702 -0500 60 1 15434 CAL* BAUIV,1 REMOVE UNIT FROM CHAIN 9P044960 14703 0621 00 1 15434 STA BAUIV,1 X 9P044970 | 14704 0500 60 0 15270 CLA* BA993 PICK UP UCB WORD 1 9P044980 | 14705 0441 00 0 15267 LDI BA992 GET INDICATORS FOR UNIT. 9P044990 | 14706 0054 00 000400 RFT NOREP SET NO REPOSITIONING FLAG 9P045000 | 14707 -0501 00 0 04731 ORA PTW IF DESIRED. 9P045010 14710 0602 60 0 15270 SLW* BA993 MAKE UNIT AVAILABLE. 9P045020 | 14711 0441 60 0 14153 BA350 LDI* BA33A COMPARE UNITS OF SET FOR 9P045030 | 14712 0440 00 0 15267 IIS BA992 SAME OR FIRST UNIT. 9P045040 | 14713 0054 00 000017 RFT 17 X 9P045050 | 14714 0020 00 0 14734 TRA BA351 DIFFERENT UNIT.STEP TO NEXT ONE. 9P045060 14715 -0046 00 0 00000 PIA SAME UNIT. GET INDEX 9P045070 | 1 LISTING OF 12/01/64 PAGE 103 | SYMBOLIC CHAIN | | 14716 -0734 00 4 00000 PDX 0,4 TO FCB IN IR 4 9P045080 14717 0771 00 0 00017 ARS 15 PRIMARY OR SECONDARY UNIT 9P045090 | 14720 0634 00 1 14730 SXA *+8,1 TO IR 1. 9P045100 | 14721 -0734 00 1 00000 PDX 0,1 X 9P045110 | 14722 -0500 00 0 15270 CAL BA993 GET L (UCW) 9P045120 | 14723 -3 00001 1 14727 TXL *+4,1,1 TRANSFER IF PRIMARY UNIT 9P045130 14724 0767 00 0 00022 ALS 18 ASSIGN SECONDARY UNIT 9P045140 | 14725 0622 60 0 14012 STD* BA02 X 9P045150 | 14726 0020 00 0 14730 TRA *+2 X 9P045160 | 14727 0621 60 0 14012 STA* BA02 ASSIGN PRIMARY UNIT. 9P045170 | 14730 0774 00 1 00000 AXT **,1 RESTORE CHANNEL INDEX. 9P045180 14731 -2 00001 2 15157 TNX BA35A,2,1 EXIT IF NO MORE UNITS. 9P045190 | 14732 0522 00 0 14317 XEC BA34X EXIT IF LAST OF SET. 9P045200 | 14733 0020 00 0 14711 TRA BA350 GO ASSIGN NEXT UNIT OF SET. 9P045210 | 14734 -0500 60 0 14153 BA351 CAL* BA33A STEP TO NEXT UNIT 9P045220 | 14735 0621 00 0 15267 STA BA992 SAVE UNIT FOR COMPARE. 9P045230 14736 -0500 00 1 15434 CAL BAUIV,1 GET NEXT UNIT IN CHAIN 9P045240 | 14737 0020 00 0 14701 TRA BA349 BACK TO ASSIGN NEXT UNIT. 9P045250 | 1 LISTING OF 12/01/64 PAGE 104 | SECONDARY UNIT SEARCH | * (*) IN FILE CARD AS SECONDARY UNIT SEARCH FOR IDENTICAL TYPE. 9P045270 | 14740 -0046 00 0 00000 BA34H PIA UNIT TYPE FROM PRIMARY 9P045280 | 14741 0774 00 4 00000 AXT 0,4 GET INDEX TO FCB $9P045290 | 14742 0771 00 0 00017 ARS 15 TEST TO MAKE SURE IT 9P045300 | 14743 -0734 00 1 00000 PDX 0,1 IS SECONDARY UNIT 9P045310 14744 3 00001 1 14750 TXH *+4,1,1 X 9P045320 | 14745 0074 00 4 05642 TSX BERR,4 GOOF. * IN PRIMARY UNIT. 9P045330 | 14746 0 00004 0 15766 PZE BAERM,,4 9P045340 | 14747 0020 00 0 15034 TRA BA352 DO NOT ASSIGN UNIT. 9P045350 | 14750 -0500 60 0 14012 CAL* BA02 GET FCB WORD 1 9P045360 14751 0737 00 1 00000 PAC 0,1 INDEX TO PRIMARY UCB 9P045370 | 14752 -0500 00 1 00000 CAL 0,1 GET UCB WORD 1 9P045380 | 14753 0771 00 0 00011 ARS 9 CHANNEL NO. TO AC 14-17 9P045390 | 14754 -0320 00 0 04723 ANA L(15D) MASK OFF CHANNEL NO. 9P045400 | 14755 0441 00 1 00000 LDI 0,1 UCW TO INDICATORS 9P045410 14756 -0734 00 1 00000 PDX 0,1 CHANNEL NO. TO IR 1 9P045420 | 14757 -0056 00 100000 LNT 100000 IS IT A MOD IV 9P045430 | 14760 0020 00 0 15002 TRA BA353 NO 9P045440 | 14761 -0520 00 1 15434 BA356 NZT BAUIV,1 GET A MOD IV FROM SAME CHAN. 9P045450 | 14762 0020 00 0 15013 TRA BA354 NO MORE MOD IV UNITS ON CHANNEL 9P045460 14763 -0500 00 1 15434 CAL BAUIV,1 GOT ONE. 9P045470 | 14764 0402 00 0 04721 SUB 1B17 REDUCE COUNT OF MOD IVS ON 9P045480 | 14765 0622 00 1 15434 STD BAUIV,1 CHANNEL. 9P045490 | 14766 0621 00 0 15270 STA BA993 SAVE L (UCW) 9P045500 | 14767 -0500 60 1 15434 CAL* BAUIV,1 REMOVE UNIT FROM CHAIN 9P045510 14770 0621 00 1 15434 STA BAUIV,1 X 9P045520 | 14771 0500 60 0 15270 BA355 CLA* BA993 PICK UP UCB WORD 1 9P045530 | 14772 -0054 00 200000 LFT 200000 SET NO REPOSITIONING FLAGS 9P045540 | 14773 -0501 00 0 04731 ORA PTW SAME. 9P045550 | 14774 0602 60 0 15270 SLW* BA993 MAKE UNIT AVAILABLE. 9P045560 14775 0500 00 0 15270 CLA BA993 ASSIGN UNIT AS 9P045570 | 14776 0767 00 0 00022 ALS 18 SECONDARY FOR FILE. 9P045580 | 14777 0622 60 0 14012 STD* BA02 X 9P045590 | 15000 -2 00001 2 15157 TNX BA35A,2,1 EXIT IF NO MORE UNITS 9P045600 | 15001 0020 00 0 14200 TRA BA34A HANDLE THESE ONE AT A TIME. 9P045610 15002 -0520 00 1 15424 BA353 NZT BAUII,1 GET A MOD II ON SAME CHANNEL. 9P045620 | 15003 0020 00 0 15013 TRA BA354 NO MORE MOD II UNITS ON CHANNEL 9P045630 | 15004 -0500 00 1 15424 CAL BAUII,1 GOT ONE. 9P045640 | 15005 0402 00 0 04721 SUB 1B17 REDUCE COUNT OF UNITS ON 9P045650 | 15006 0622 00 1 15424 STD BAUII,1 CHANNEL. SAVE REMAINDER. 9P045660 15007 0621 00 0 15270 STA BA993 SAVE L (UCW) 9P045670 | 15010 -0500 60 1 15424 CAL* BAUII,1 REMOVE UNIT FROM CHAIN. 9P045680 | 15011 0621 00 1 15424 STA BAUII,1 X 9P045690 | 15012 0020 00 0 14771 TRA BA355 GO ASSIGN IT. 9P045700 | 15013 -0520 00 1 15424 BA354 NZT BAUII,1 TRY MOD II ON SAME CHANNEL 9P045710 15014 0020 00 0 15016 TRA *+2 NO MOD IIS 9P045720 | 15015 0020 00 0 15002 TRA BA353 FOUND ONE. 9P045730 | 15016 -0520 00 1 15434 NZT BAUIV,1 TRY MOD IV ON SAME CHANNEL 9P045740 | 15017 0020 00 0 15021 TRA *+2 NO MOD IVS 9P045750 | 15020 0020 00 0 14761 TRA BA356 FOUND ONE. 9P045760 15021 -0534 00 1 00110 LXD SYSUBC,1 TRY ANY UNIT ANYWHERE. 9P045770 | 15022 -0520 00 1 15424 NZT BAUII,1 MOD II 9P045780 | 15023 0020 00 0 15025 TRA *+2 NO. 9P045790 | 15024 0020 00 0 15002 TRA BA353 FOUND ONE. 9P045800 | 15025 -0520 00 1 15434 NZT BAUIV,1 MOD IV 9P045810 1 LISTING OF 12/01/64 PAGE 105 | SECONDARY UNIT SEARCH | | 15026 0020 00 0 15030 TRA *+2 NO. 9P045820 | 15027 0020 00 0 14761 TRA BA356 FOUND ONE. 9P045830 15030 2 00001 1 15022 TIX *-6,1,1 TRY NEXT CHANNEL 9P045840 | 15031 -0500 60 0 14012 CAL* BA02 NONE ANYWHERE SO ASSIGN 9P045850 | 15032 0767 00 0 00022 ALS 18 PRIMARY AS SECONDARY 9P045860 | 15033 0622 60 0 14012 STD* BA02 UNIT 9P045870 | 15034 -2 00001 2 15157 BA352 TNX BA35A,2,1 EXIT IF NO MORE UNITS 9P045880 15035 0020 00 0 14200 TRA BA34A HANDEL THESE ONE AT A TIME. 9P045890 | * CALL FOR COMBINED MOD II AND MODIV CHANNEL. 9P045900 | 15036 0520 00 0 15067 BA346 ZET BATST HAVE WE BEEN THRU THIS BEFORE. 9P045910 | 15037 0020 00 0 15072 TRA BA360 YES 9P045920 | 15040 -0625 00 0 15067 STL BATST NO FLAG THAT WE HAVE. 9P045930 15041 -0534 00 1 00110 LXD SYSUBC,1 NO. OF CHANNELS TO IR 1 9P045940 | 15042 0520 00 1 15424 ZET BAUII,1 ANY MOD IIS 9P045950 | 15043 0020 00 0 15050 TRA *+5 YES 9P045960 | 15044 2 00001 1 15042 BA361 TIX *-2,1,1 NO 9P045970 | 15045 0520 00 0 15070 ZET BATTS DID WE COMBINE ANY 9P045980 15046 0020 00 0 14542 TRA BA34I YES. 9P045990 | 15047 0020 00 0 15072 TRA BA360 NO. COMBINE CHANNELS. 9P046000 | 15050 -0520 00 1 15434 NZT BAUIV,1 FOUND MOD IIS ANY MOD IVS 9P046010 | 15051 0020 00 0 15744 TRA BABBB NO. 9P046020 | 15052 -0625 00 0 15070 STL BATTS YES FLAG COMBINED UNITS 9P046030 15053 -0500 00 1 15434 CAL BAUIV,1 FIND END OF MOD IV CHAIN 9P046040 | 15054 -0734 00 4 00000 PDX 0,4 X 9P046050 | 15055 0621 00 0 15270 STA BA993 X 9P046060 | 15056 -2 00001 4 15061 TNX *+3,4,1 FOUND END OF CHAIN. 9P046070 | 15057 0500 60 0 15270 CLA* BA993 STEP TO NEXT ENTRY 9P046080 15060 0020 00 0 15055 TRA *-3 X 9P046090 | 15061 -0500 00 1 15424 CAL BAUII,1 LINK MOD IIS TO END OF 9P046100 | 15062 0621 60 0 15270 STA* BA993 MOD IV CHAIN. 9P046110 | 15063 0361 00 1 15434 ACL BAUIV,1 ADD COUNTS 9P046120 | 15064 0622 00 1 15434 STD BAUIV,1 SAVE TOTAL AND 9P046130 15065 0600 00 1 15424 STZ BAUII,1 CLEAR MOD II LOCATOR. 9P046140 | 15066 0020 00 0 15044 TRA BA361 BACK TO COMBINE OTHER CHANNELS 9P046150 | 15067 0 00000 0 00000 BATST PZE ** COMBINATION ENTRY FLAG 9P046160 | 15070 0 00000 0 00000 BATTS PZE ** UNITS HAVE BEEN COMBINED FLAG. 9P046170 | 15071 0 00000 0 00000 BATTT PZE ** CHANNELS HAVE BEEN COMBINED FLAG. 9P046180 15072 0520 00 0 15071 BA360 ZET BATTT SECOND ENTRY TO THIS ROUTINE 9P046190 | 15073 0020 00 0 15750 TRA BLAST CAUSES EXIT. NOT ENOUGH UNITS. 9P046200 | 15074 -0625 00 0 15071 STL BATTT FLAG ENTRANCE TO THIS ROUTINE. 9P046210 | 15075 -0534 00 1 00110 LXD SYSUBC,1 NO. OF CHANNELS TO IR 1 9P046220 | 15076 0520 00 1 15434 ZET BAUIV,1 ANY UNITS ON THIS CHANNEL 9P046230 15077 0020 00 0 15101 TRA *+2 YES. 9P046240 | 15100 2 00001 1 15076 TIX *-2,1,1 STEP TO NEXT CHANNEL. 9P046250 | 15101 -2 00001 1 15750 TNX BLAST,1,1 NOT ENOUGH UNITS IF ONLY 1 CHANNEL. 9P046260 | 15102 -0500 00 1 15434 BA36A CAL BAUIV,1 COMBINE UNITS FROM BOTH CHANNELS. 9P046270 | 15103 -0734 00 4 00000 PDX 0,4 FIND END OF CHAIN ON 2ND CHANNEL 9P046280 15104 0621 00 0 15270 STA BA993 X 9P046290 | 15105 -2 00001 4 15110 TNX *+3,4,1 X 9P046300 | 15106 -0500 60 0 15270 CAL* BA993 X 9P046310 | 15107 0020 00 0 15104 TRA *-3 X 9P046320 | 15110 -0500 00 1 15433 CAL BAUIV-1,1 LINK FIRST CHAIN TO SECOND 9P046330 15111 0621 60 0 15270 STA* BA993 X 9P046340 | 15112 0361 00 1 15434 ACL BAUIV,1 COMBINE COUNTS 9P046350 | 15113 0622 00 1 15434 STD BAUIV,1 X 9P046360 | 1 LISTING OF 12/01/64 PAGE 106 | SECONDARY UNIT SEARCH | 15114 0600 00 1 15433 STZ BAUIV-1,1 CLEAR 1ST CHANNEL LOCATOR. 9P046370 | 15115 2 00001 1 15102 TIX BA36A,1,1 COMBINE ALL UNITS ON 1 CHANNEL. 9P046380 | 15116 0020 00 0 14542 TRA BA34I TRY AGAIN. 9P046390 | 15117 -0054 00 200000 BA34G LFT 200000 IF SECONDARY UNIT IT IS 9P046410 | 15120 0020 00 0 15155 TRA BA362 PROCESSED LATER 9P046420 | 15121 -0534 00 1 00110 LXD SYSUBC,1 ASSIGN BLANK PRIMARY UNIT 9P046430 | 15122 0520 00 1 15434 ZET BAUIV,1 FIND A UNIT ANY WHERE. 9P046440 | 15123 0020 00 0 15130 TRA BA363 FOUND ONE. 9P046450 15124 0520 00 1 15424 ZET BAUII,1 TRY A MOD II 9P046460 | 15125 0020 00 0 15137 TRA BA364 FOUND ONE. 9P046470 | 15126 2 00001 1 15122 TIX *-4,1,1 STEP TO NEXT CHANNEL 9P046480 | 15127 0020 00 0 15750 TRA BLAST NO MORE UNITS ANY WHERE. 9P046490 | 15130 -0500 00 1 15434 BA363 CAL BAUIV,1 ASSIGN A MOD IV TO TO FILE 9P046500 15131 0621 00 0 15270 STA BA993 REMOVE UNIT FROM CHAIN. 9P046510 | 15132 0402 00 0 04721 SUB 1B17 X 9P046520 | 15133 0622 00 1 15434 STD BAUIV,1 X 9P046530 | 15134 -0500 60 1 15434 CAL* BAUIV,1 X 9P046540 | 15135 0621 00 1 15434 STA BAUIV,1 X 9P046550 15136 0020 00 0 15145 TRA BA365 GO ASSIGN IT. 9P046560 | 15137 -0500 00 1 15424 BA364 CAL BAUII,1 PICK UP A MOD II AND 9P046570 | 15140 0621 00 0 15270 STA BA993 ASSIGN IT 9P046580 | 15141 0402 00 0 04721 SUB 1B17 X 9P046590 | 15142 0622 00 1 15424 STD BAUII,1 X 9P046600 15143 -0500 60 1 15424 CAL* BAUII,1 X 9P046610 | 15144 0621 00 1 15424 STA BAUII,1 X 9P046620 | 15145 -0046 00 0 00000 BA365 PIA UNIT DESIGNATION TO AC. 9P046630 | 15146 -0734 00 4 00000 PDX 0,4 FILE INDEX TO IR 4 9P046640 | 15147 -0500 00 0 15270 CAL BA993 ASSIGN PRIMARY UNIT 9P046650 15150 0621 60 0 14012 STA* BA02 TO FILE. 9P046660 | 15151 0500 60 0 15270 CLA* BA993 SET NO REPOSITIONING 9P046670 | 15152 0054 00 000400 RFT NOREP FLAG IF DESIGNATED. 9P046680 | 15153 -0501 00 0 04731 ORA PTW X 9P046690 | 15154 0602 60 0 15270 SLW* BA993 MAKE UNIT AVAILABLE. 9P046700 15155 2 00001 2 14200 BA362 TIX BA34A,2,1 BACK FOR NEXT UNIT. 9P046710 | 15156 0020 00 0 15157 TRA BA35A ALL DONE. 9P046720 | 1 LISTING OF 12/01/64 PAGE 107 | FINAL WRAP UP ROUTINE FOR ASSIGNING TAPES | 15157 0535 00 2 14137 BA35A LAC BA32,2 PICKUP COUNT OF UNITS 9P046740 | 15160 -0500 60 0 14153 CAL* BA33A PICKUP AN ENTRY 9P046750 | 15161 -0734 00 4 00000 PDX 0,4 INDEX TO FCB TO IR 4 9P046760 | 15162 -0500 60 0 14012 CAL* BA02 GET FIRST WORD OF FCB 9P046770 | 15163 -0734 00 1 00000 PDX 0,1 ASSIGN SECONDARY UNIT 9P046780 15164 -3 37777 1 15167 TXL *+3,1,16383 SAME AS PRIMARY IF NOT 9P046790 | 15165 0767 00 0 00022 ALS 18 ASSIGNED ALREADY. 9P046800 | 15166 0622 60 0 14012 STD* BA02 X 9P046810 | 15167 -0500 60 0 14012 CAL* BA02 ANY INTER SYSTEM RESERVE 9P046820 | 15170 0737 00 1 00000 PAC 0,1 UNITS THAT ARE TO BE REMOVED 9P046830 15171 0441 00 1 00000 LDI 0,1 FROM RESERVE STATUS 9P046840 | 15172 -0054 00 020000 LFT 20000 ARE NOW REMOVED. 9P046850 | 15173 -0057 00 060000 RIL 60000 IF BIT 4 IS ON (REMOVE FLAG) 9P046860 | 15174 0604 00 1 00000 STI 0,1 IN UCW, RESET BITS 3 AND 4. 9P046870 | 15175 -0737 00 1 00000 PDC 0,1 BOTH PRIMARY AND SECONDARY 9P046880 15176 0441 00 1 00000 LDI 0,1 UNITS. ARE TESTED FOR 9P046890 | 15177 -0054 00 020000 LFT 20000 REMOVE STATUS. 9P046900 | 15200 -0057 00 060000 RIL 60000 X 9P046910 | 15201 0604 00 1 00000 STI 0,1 X 9P046920 | 15202 2 00001 2 15160 TIX BA35A+1,2,1 BACK FOR NEXT FILE. 9P046930 15203 -0500 00 0 00111 CAL SYSUAV REGENERATE AVAILABILITY 9P046940 | 15204 0622 00 0 15206 STD *+2 CHAINS. 9P046950 | 15205 0734 00 1 00000 PAX 0,1 START BY CLEARING 9P046960 | 15206 1 00000 1 15207 TXI *+1,1,** LOCATOR WORDS. 9P046970 | 15207 0634 00 1 15211 SXA *+2,1 X 9P046980 15210 -0734 00 1 00000 PDX 0,1 X 9P046990 | 15211 0600 00 1 00000 STZ **,1 X 9P047000 | 15212 2 00001 1 15211 TIX *-1,1,1 X 9P047010 | 15213 -0500 00 0 00112 CAL SYSUCW PICKUP UNIT BLOCK PARAMETERS. 9P047020 | 15214 0622 00 0 15216 STD *+2 AND SET UP INDEX 9P047030 15215 0734 00 1 00000 PAX 0,1 ADDRESS. 9P047040 | 15216 1 00000 1 15217 TXI *+1,1,** X 9P047050 | 15217 0634 00 1 15221 SXA *+2,1 X 9P047060 | 15220 -0734 00 2 00000 PDX 0,2 X 9P047070 | 15221 0441 00 2 00000 BA35C LDI **,2 UCW WORD 1 TO INDICATORS 9P047080 15222 -0056 00 400000 LNT 400000 NOT ASSIGNED. 9P047090 | 15223 0020 00 0 15251 TRA BA35E ASSIGNED. SEE IF RESERVED 9P047100 | 15224 -0054 00 240100 LFT 240100 ATTACHED, NOT RESERVE OR CARD. 9P047110 | 15225 0020 00 0 15251 TRA BA35E TEST FOR RESERVE $9P047120 | 15226 -0046 00 0 00000 PIA UCW TO AC 9P047130 15227 0771 00 0 00011 ARS 9 CHANNEL TO AC 14-17 9P047140 | 15230 -0320 00 0 04723 ANA L(15D) MASK CHANNEL NO. 9P047150 | 15231 0402 00 0 04721 SUB 1B17 -1 9P047160 | 15232 0771 00 0 00022 ARS 18 TO AC 32-35 9P047170 | 15233 0361 00 0 00111 ACL SYSUAV COMPUTE AVAILABILITY CHAIN LOCATOR 9P047180 15234 0621 00 0 15240 STA *+4 ADDRESS. 9P047190 | 15235 0754 00 2 00000 PXA 0,2 COMPUTE UCW ADDRESS 9P047200 | 15236 0760 00 0 00006 COM BY ADDING 2S COMPLIMENT 9P047210 | 15237 0361 00 0 15221 ACL BA35C OF IR2 TO INDEX ADD.(CARRY FORCED) 9P047220 | 15240 0560 00 0 00000 LDQ ** PICK UP LOCATOR WORD 9P047230 15241 0621 60 0 15240 STA* *-1 AND LINK UCW TO 9P047240 | 15242 0621 00 0 15244 STA *+2 CHAIN OF AVAILABLE UNITS 9P047250 | 15243 0131 00 0 00000 XCA X 9P047260 | 15244 0621 00 0 00000 STA ** X 9P047270 | 15245 2 00004 2 15221 BA35D TIX BA35C,2,4 BACK FOR NEXT UNIT. 9P047280 1 LISTING OF 12/01/64 PAGE 108 | FINAL WRAP UP ROUTINE FOR ASSIGNING TAPES | | 15246 0535 00 2 15256 LAC BA35F,2 SAVE COUNT OF RESERVE UNITS 9P047290 | 15247 -0634 00 2 04377 SXD LUNBLK,2 FOR POST PROCESSOR 9P047300 15250 0020 00 0 14122 TRA BA10-1 ALL DONE 9P047310 | 15251 -0056 00 040000 BA35E LNT 40000 TEST UNIT FOR $9P047320 | 15252 0020 00 0 15245 TRA BA35D RESERVE STATUS. NO. 9P047330 | 15253 0754 00 2 00000 PXA 0,2 RESERVED COMPUTE 9P047340 | 15254 0760 00 0 00006 COM L (UCW) 9P047350 15255 0361 00 0 15221 ACL BA35C X 9P047360 | 15256 0774 00 1 00000 BA35F AXT 0,1 SAVE IN UNIT BLOCK. 9P047370 | 15257 0600 00 1 04364 STZ UNBLK,1 CLEAR ENTRY 9P047380 | 15260 0621 00 1 04364 STA UNBLK,1 X 9P047390 | 15261 -0500 60 1 04364 CAL* UNBLK,1 PICKUP SYMBOL USED. 9P047400 15262 0767 00 0 00022 ALS 18 SAVE IN DECREMENT OF 9P047410 | 15263 0622 00 1 04364 STD UNBLK,1 UNIT BLOCK 9P047420 | 15264 1 77777 1 15265 TXI *+1,1,-1 STEP ENTRY COUNT. 9P047430 | 15265 0634 00 1 15256 SXA BA35F,1 SAVE IT. 9P047440 | 15266 0020 00 0 15245 TRA BA35D BACK FOR NEXT UNIT. 9P047450 15267 0 00000 0 00000 BA992 PZE ** UNIT INDICATOR BITS 9P047460 | 15270 0 00000 0 00000 BA993 PZE ** L (UCW) BEING ASSIGNED. 9P047470 | 15271 0 00000 0 00000 BA994 PZE 0,,** COUNT OF DIFFERENT UNITS IN GROUP 9P047480 | 15272 0 00000 0 00000 BA995 PZE ** SYMBOLIC DESIGNATION OF RESERVE UNIT.9P047490 | 15273 -0500 00 0 00107 BAMAP CAL SYSUNI GENERATE AVAILABLE UNIT CHAINS 9P047500 15274 0622 00 0 15276 STD *+2 COMPUTE INDEX ADDRESS TO 9P047510 | 15275 0734 00 1 00000 PAX 0,1 SYSTEM UNIT TABLE. 9P047520 | 15276 1 00000 1 15277 TXI *+1,1,** X 9P047530 | 15277 0634 00 1 15412 SXA BA996,1 X 9P047540 | 15300 -0500 00 0 00112 CAL SYSUCW START WITH FIRST UNIT 9P047550 15301 0621 00 0 15413 STA BA997 X 9P047560 | 15302 -0734 00 1 00000 PDX 0,1 WORD COUNT TO IR 1 9P047570 | 15303 0634 00 1 15407 SXA BAMP7,1 SAVE CURRENT COUNT. 9P047580 | 15304 0441 60 0 15413 BAMP1 LDI* BA997 PICKUP UCB WORD 1 9P047590 | 15305 -0054 00 040100 LFT 40100 RESERVE OR CARD 9P047600 15306 0020 00 0 15404 TRA BAMP2 YES, STEP TO NEXT UNIT. 9P047610 | 15307 -0054 00 400000 LFT 400000 ASSIGNED. 9P047620 | 15310 0020 00 0 15340 TRA BAMP3 NO. 9P047630 | 15311 -0534 00 2 00107 LXD SYSUNI,2 MAYBE. COMPARE WITH 9P047640 | 15312 -0500 60 0 15412 CAL* BA996 SYSTEM UNITS 9P047650 15313 -0320 00 0 04720 ANA ADDRS X 9P047660 | 15314 0322 00 0 15413 ERA BA997 X 9P047670 | 15315 0100 00 0 15404 TZE BAMP2 IS USED AS SYSTEM UNIT 9P047680 | 15316 2 00001 2 15312 TIX *-4,2,1 TRY NEXT SYSUNI ENTRY 9P047690 | 15317 -0057 00 200000 RIL 200000 UNIT WAS LEFT IN LEFT FIELD. 9P047700 15320 -0055 00 400000 SIL 400000 SET NOT ASSIGNED AND REPOSITION FLAGS9P047710 | 15321 0604 60 0 15413 STI* BA997 IN UCB WORD 1 9P047720 | 15322 -0500 60 0 15413 BAMP5 CAL* BA997 PUT UNIT IN CHAIN. 9P047730 | 15323 0771 00 0 00011 ARS 9 GET CHANNEL NO. 9P047740 | 15324 -0320 00 0 04723 ANA L(15D) MASK IT OFF. 9P047750 15325 -0734 00 2 00000 PDX 0,2 CHANNEL TO IR 2 9P047760 | 15326 -0056 00 100000 LNT 100000 MOD IV 9P047770 | 15327 0020 00 0 15343 TRA BAMPI NO. PUT IN MOD II CHAIN. 9P047780 | 15330 -0500 00 2 15434 CAL BAUIV,2 PUT UNIT IN MOD IV CHAIN 9P047790 | 15331 -0100 00 0 15353 TNZ BAMP4 CHAIN IS STARTED. 9P047800 15332 -0500 00 0 15413 CAL BA997 START CHAIN. 9P047810 | 15333 0361 00 0 04721 ACL 1B17 COUNT 1 UNIT 9P047820 | 15334 0602 00 2 15434 SLW BAUIV,2 PUT IN LOCATOR 9P047830 | 1 LISTING OF 12/01/64 PAGE 109 | FINAL WRAP UP ROUTINE FOR ASSIGNING TAPES | 15335 -0754 00 0 00000 PXD 0,0 CLEAR ADDRESS 9P047840 | 15336 0621 60 0 15413 STA* BA997 OF UCB WORD 1 9P047850 | 15337 0020 00 0 15404 TRA BAMP2 STEP TO NEXT UNIT. 9P047860 | 15340 -0054 00 200000 BAMP3 LFT 200000 UNIT NOT ASSIGNED. 9P047870 15341 0020 00 0 15404 TRA BAMP2 DETACHED. STEP TO NEXT UNIT 9P047880 | 15342 0020 00 0 15322 TRA BAMP5 ATTACHED, PUT IN CHAIN. 9P047890 | 15343 -0500 00 2 15424 BAMPI CAL BAUII,2 PUT MOD II UNIT IN MOD II CHAIN. 9P047900 | 15344 -0100 00 0 15370 TNZ BAMP6 CHAIN STARTED 9P047910 | 15345 -0500 00 0 15413 CAL BA997 START MOD II CHAIN. 9P047920 15346 0361 00 0 04721 ACL 1B17 FIRST UNIT 9P047930 | 15347 0602 00 2 15424 SLW BAUII,2 SET LOCATOR. 9P047940 | 15350 -0754 00 0 00000 PXD 0,0 CLEAR ADDRESS 9P047950 | 15351 0621 60 0 15413 STA* BA997 OF UCB WORD 1 9P047960 | 15352 0020 00 0 15404 TRA BAMP2 STEP TO NEXT UNIT 9P047970 15353 -0734 00 1 00000 BAMP4 PDX 0,1 FIND END OF MOD IV CHAIN. 9P047980 | 15354 0621 00 0 15270 STA BA993 X 9P047990 | 15355 -2 00001 1 15360 TNX *+3,1,1 END FOUND 9P048000 | 15356 -0500 60 0 15270 CAL* BA993 STEP TO NEXT LINK 9P048010 | 15357 0020 00 0 15354 TRA *-3 X 9P048020 15360 -0500 00 0 15413 CAL BA997 PUT UNIT AT END OF CHAIN 9P048030 | 15361 0621 60 0 15270 STA* BA993 X 9P048040 | 15362 -0500 00 2 15434 CAL BAUIV,2 STEP COUNT OF UNITS IN 9P048050 | 15363 0361 00 0 04721 ACL 1B17 CHAIN BY ONE. 9P048060 | 15364 0622 00 2 15434 STD BAUIV,2 SAVE COUNT 9P048070 15365 -0754 00 0 00000 PXD 0,0 CLEAR ADDRESS OF 9P048080 | 15366 0621 60 0 15413 STA* BA997 UCB WORD 1 9P048090 | 15367 0020 00 0 15404 TRA BAMP2 STEP TO NEXT UNIT 9P048100 | 15370 -0734 00 1 00000 BAMP6 PDX 0,1 FIND END OF MOD II CHAIN. 9P048110 | 15371 0621 00 0 15270 STA BA993 X 9P048120 15372 -2 00001 1 15375 TNX *+3,1,1 FOUND. 9P048130 | 15373 -0500 60 0 15270 CAL* BA993 STEP TO NEXT 9P048140 | 15374 0020 00 0 15371 TRA *-3 LINK. 9P048150 | 15375 -0500 00 0 15413 CAL BA997 PUT UNIT AT END OF CHAIN 9P048160 | 15376 0621 60 0 15270 STA* BA993 X 9P048170 15377 -0500 00 2 15424 CAL BAUII,2 STEP COUNT OF UNITS IN 9P048180 | 15400 0361 00 0 04721 ACL 1B17 CHAIN BY ONE 9P048190 | 15401 0622 00 2 15424 STD BAUII,2 SAVE COUNT 9P048200 | 15402 -0754 00 0 00000 PXD 0,0 CLEAR ADDRESS OF 9P048210 | 15403 0621 60 0 15413 STA* BA997 UCB WORD 1 9P048220 15404 0534 00 1 15413 BAMP2 LXA BA997,1 STEP TO NEXT UNIT. 9P048230 | 15405 1 00004 1 15406 TXI *+1,1,4 BUMP ADDRESS BY 4. 9P048240 | 15406 0634 00 1 15413 SXA BA997,1 X 9P048250 | 15407 0774 00 1 00000 BAMP7 AXT **,1 GET COUNT OF REMAINING UCWS 9P048260 | 15410 2 00004 1 15303 TIX BAMP1-1,1,4 STEP TO NEXT UNIT. 9P048270 15411 0020 00 4 00001 TRA 1,4 ALL DONE. 9P048280 | 15412 0 00000 2 00000 BA996 PZE **,2 INDIRECT ADDRESS TO SYSUNI. 9P048290 | 15413 0 00000 0 00000 BA997 PZE ** L (UCW) UNDER TEST 9P048300 | 15414 DUP 1,8 CHAIN LOCATOR WORDS FOR 9P048310 | 15414 0 00000 0 00000 PZE MOD II UNITS BY CHANNEL. 9P048320 15424 BAUII BSS 0 X 9P048330 | 15424 DUP 1,8 CHAIN LOCATOR WORDS FOR 9P048340 | 15424 0 00000 0 00000 PZE MOD IV UNITS BY CHANNEL. 9P048350 | 15434 BAUIV BSS 0 X 9P048360 | 15434 BA991 BSS 200 ROOM FOR 100 FILES. 9P048370 15744 -0500 00 1 15424 BABBB CAL BAUII,1 MOD II UNITS TO FILL 9P048380 | 1 LISTING OF 12/01/64 PAGE 110 | FINAL WRAP UP ROUTINE FOR ASSIGNING TAPES | | 15745 0602 00 1 15434 SLW BAUIV,1 VOID MOD IV CHAIN. 9P048390 15746 0600 00 1 15424 STZ BAUII,1 CLEAR MOD II LOCATOR 9P048400 | 15747 0020 00 0 15044 TRA BA361 TRY NEXT CHANNEL. 9P048410 | | 15750 0754 00 2 00000 BLAST PXA 0,2 CONVERT NUMBER OF 9P048430 | 15751 0074 00 4 00716 TSX (DECVA,4 UNITS NOT ASSIGNED AND 9P048440 15752 -0600 00 0 15757 STQ BLAST3 PRINT MESSAGE FOR OPERATOR. 9P048450 | 15753 0074 00 4 00706 TSX (PROUT,4 X 9P048460 | 15754 0 00000 0 00001 PZE 1 9P048470 | 15755 0 00007 0 15757 PZE BLAST3,,7 X 9P048480 | 15756 0074 00 4 05134 BLAST2 TSX DDEAD,4 9P048490 15757 606060606060 BLAST3 BCI 7, UNITS NOT ASSIGNED. NONE AVAILABLE. 9P048500 | 15766 624644256064 BAERM BCI 4,SOME UNIT 1 IS (*) 9P048510 | 15772 0074 00 4 05642 BLAST5 TSX NLIST,4 9P048520 | 15773 -0 00007 0 16002 MZE BLAST6,,7 9P048530 | 15774 -0 00011 0 16011 MZE BLAST7,,9 9P048540 15775 0 00007 0 16022 PZE BLAST8,,7 9P048550 | 15776 0074 00 4 00711 TSX (PAWSX,4 9P048560 | 15777 0760 00 0 00164 SWT 4 9P048570 | 16000 0074 00 4 05134 TSX DDEAD,4 9P048580 | 16001 0020 00 0 14457 TRA BA34Z 9P048590 16002 314563255160 BLAST6 BCI 7,INTER SYSTEM RESERVE INPUT NOT AVAILABLE. 9P048600 | 16011 312660622545 BLAST7 BCI 6,IF SENSE SWITCH 4 DOWN, ANOTHER UNIT 9P048610 | 16017 606631434360 BCI 3, WILL BE ASSIGNED. 9P048620 | 16022 312660622545 BLAST8 BCI 7,IF SENSE SWITCH 4 UP, JOB WILL BE SKIPPED. 9P048630 | 16031 000000000024 BTD BCI 1,00000D $9P048640 16032 0074 00 4 05642 DKERR TSX BERR,4 $9P048650 | 16033 0 00011 0 16036 PZE DKERR1,,9 $9P048660 | 16034 0074 00 4 00712 TSX PAUSE,4 OPERATOR PAUSE $9P048670 | 16035 0020 00 0 13701 TRA DKERR4 $9P048680 | 16036 237043604331 DKERR1 BCI 9,CYL LIMIT ERROR-MAX SIZE GIVEN PRESS START TO CONTINUE$9P048690 16047 604546606264 NOARM BCI 5, NO SUCH ACCESS-MUST CORRECT $9P048700 | 16054 602370433145 DSCAL BCI 5, CYLINDER START NON-NUMERIC $9P048710 | 16061 0 00000 0 00000 DUCBW PZE 9P048720 | 16062 0074 00 4 05642 DSCAL1 TSX BERR,4 $9P048730 | 16063 0 00005 0 16054 PZE DSCAL,,5 $9P048740 16064 0074 00 4 05134 TSX DDEAD,4 $9P048750 | 1 LISTING OF 12/01/64 PAGE 111 | INVALID UCB REFERENCE IN TABLE | | 16065 -0754 00 0 00000 BA40 PXD 0,0 9P048770 16066 0020 00 0 14113 TRA BA04 9P048780 | * UNIT IN TABLE NOT ATTACHED 9P048790 | 16067 -0754 00 0 00000 BA50 PXD 0,0 9P048800 | 16070 0020 00 0 14113 TRA BA04 9P048810 | | 16071 -0737 00 1 00000 BA80 PDC 0,1 9P048840 | 16072 0737 00 1 00000 PAC 0,1 9P048850 | 16073 0622 60 0 14012 BA81 STD* BA02 9P048860 | 16074 0621 60 0 14012 STA* BA02 9P048870 | 16075 0 00000 1 00000 BTABL PZE **,1 9P048890 | 16076 BA99 BSS 1 9P048900 | 16077 0 00000 0 00000 BA100 PZE 0 $9P048910 | 16100 0 00000 0 00022 L(18) PZE 18 $9P048920 1 LISTING OF 12/01/64 PAGE 112 | SCAN AND LIST CONTROL BLOCKS | | | 16101 0441 00 0 17601 BC00 LDI BZERO INITIALIZE INDICATORS 9P048950 16102 0535 00 1 17650 LAC BUFIN,1 9P048960 | 16103 -0634 00 1 16106 SXD *+3,1 FIRST PASS 9P048970 | 16104 0535 00 1 17651 LAC BFORG,1 9P048980 | 16105 0774 00 2 00000 AXT 0,2 FILE CONTROL BLOCK COUNT 9P048990 | 16106 -3 00000 1 16303 BC01 TXL BC05,1,** IS THIS PASS COMPLETE 9P049000 16107 1 00001 2 16110 TXI *+1,2,1 NO-INCREMENT FCB COUNT 9P049010 | 16110 0500 00 1 00004 CLA 4,1 9P049020 | 16111 -0120 00 0 16243 TMI BC04 TRANSFER IF FILE IS LIST SUPPRESSED 9P049030 | 16112 0500 00 1 00000 CLA 0,1 9P049040 | 16113 0100 00 0 16243 TZE BC04 9P049050 16114 0054 00 000004 RFT 000004 IS THIS A RESTART SCAN 9P049060 | 16115 0020 00 0 04000 TRA BC73 YES 9P049070 | 16116 0057 00 000010 BC015 RIR 000010 INDICATE FIRST LINE 9P049080 | 16117 0774 00 4 00014 BC016 AXT 12,4 CLEAR IMAGE TO BLANKS 9P049090 | 16120 0560 00 0 17606 LDQ BLANKZ 9P049100 16121 -0600 00 4 17625 STQ BQ00+12,4 9P049110 | 16122 2 00001 4 16121 TIX *-1,4,1 9P049120 | 16123 0054 00 000010 RFT 000010 9P049130 | 16124 0020 00 0 16153 TRA BC021 9P049140 | 16125 0054 00 000001 RFT 000001 IS THIS THE MISC. BLOCK 9P049150 16126 0020 00 0 16135 TRA BC02 YES 9P049160 | 16127 0754 00 2 00000 PXA 0,2 NO-GET FILE NUMBER 9P049170 | 16130 -0130 00 0 00000 XCL 9P049180 | 16131 0074 00 4 17303 TSX BCVR,4 CONVERT TO BCD 9P049190 | 16132 -0130 00 0 00000 XCL 9P049200 16133 -0773 00 0 00022 RQL 18 9P049210 | 16134 -0600 00 0 17612 STQ BQ00+1 IN IMAGE 9P049220 | 16135 -0500 00 1 00011 BC02 CAL 9,1 GET FILE TITLE 9P049230 | 16136 0602 00 0 17613 SLW BQ00+2 9P049240 | 16137 -0500 00 1 00012 CAL 10,1 9P049250 16140 0602 00 0 17614 SLW BQ00+3 9P049260 | 16141 -0500 00 1 00013 CAL 11,1 9P049270 | 16142 0602 00 0 17615 SLW BQ00+4 9P049280 | 16143 0500 00 1 00003 CLA 3,1 9P049290 | 16144 -0120 00 0 16264 TMI BC045 TRANSFER IF INTERNAL 9P049300 16145 0500 00 1 00000 CLA 0,1 $9P049310 | 16146 0737 00 4 00000 PAC 0,4 $9P049320 | 16147 -0500 00 4 00000 CAL 0,4 $9P049330 | 16150 -0320 00 0 16356 ANA BC940 IS THIS A DISK FILE $9P049340 | 16151 -0100 00 0 16315 TNZ BC60 YES $9P049350 16152 -0500 00 1 00000 CAL 0,1 9P049360 | 16153 0074 00 4 16362 BC021 TSX BC90,4 UNIT TO BCD 9P049370 | 16154 -0130 00 0 00000 XCL 9P049380 | 16155 -0773 00 0 00006 RQL 6 9P049390 | 16156 -0600 00 0 17616 STQ BQ00+5 AND IMAGE 9P049400 16157 -0500 00 0 16340 CAL BC81 9P049410 | 16160 0602 00 0 17617 SLW BQ00+6 9P049420 | 16161 0560 00 1 00007 LDQ 7,1 REEL SEQUENCE NUMBER 9P049430 | 16162 -0773 00 0 00006 RQL 6 9P049440 | 16163 0054 00 000010 RFT 000010 IS THIS THE FIRST LINE 9P049450 16164 0020 00 0 16267 TRA BC10 NO 9P049460 | 16165 -0600 00 0 17620 STQ BQ00+7 9P049470 | 1 LISTING OF 12/01/64 PAGE 113 | SCAN AND LIST CONTROL BLOCKS | 16166 -0500 00 1 00000 CAL 0,1 YES-TEST FOR IMMEDIATE MOUNTING 9P049480 | 16167 -0320 00 0 16353 ANA BC910 9P049490 | 16170 0100 00 0 16176 TZE BC022 9P049500 | 16171 -0500 00 0 16337 CAL BC80 ASTERISK FOR IMMEDIATE MOUNTING 9P049510 | 16172 0602 00 0 17611 SLW BQ00 9P049520 16173 0622 00 0 17652 STD BERCT 9P049530 | 16174 0054 00 000004 RFT 000004 IS THIS A RESTART 9P049540 | 16175 0020 00 0 16231 TRA BC024+1 9P049550 | 16176 0604 00 0 17644 BC022 STI BM00+3 NO 9P049560 | 16177 0441 00 1 00001 LDI 1,1 9P049570 16200 -0054 00 003000 LFT 003000 IS THIS AN INPUT FILE 9P049580 | 16201 0020 00 0 16203 TRA *+2 NO 9P049590 | 16202 0020 00 0 16230 TRA BC024 YES-LINE FINISHED 9P049600 | 16203 -0500 00 0 16341 CAL BC82 HERE IF OUTPUT 9P049610 | 16204 0602 00 0 17622 SLW BQ00+9 $9P049620 16205 -0054 00 000400 LFT 000400 IS THIS A LABELLED FILE 9P049630 | 16206 0020 00 0 16211 TRA *+3 YES 9P049640 | 16207 0774 00 4 16350 AXT BC85+2,4 UNLABELLED $9P049650 | 16210 0020 00 0 16223 TRA BC023 9P049660 | 16211 0500 00 1 00000 CLA 0,1 $9P049670 16212 0737 00 4 00000 PAC 0,4 $9P049680 | 16213 -0500 00 4 00000 CAL 0,4 $9P049690 | 16214 -0320 00 0 16356 ANA BC940 IS THIS A DISK FILE $9P049700 | 16215 0100 00 0 16220 TZE *+3 NO $9P049710 | 16216 0774 00 4 16352 AXT BC86+2,4 $9P049720 16217 0020 00 0 16223 TRA BC023 $9P049730 | 16220 0774 00 4 16344 AXT BC83+2,4 $9P049740 | 16221 0054 00 400000 RFT 400000 9P049750 | 16222 0774 00 4 16346 AXT BC84+2,4 HIGH DEN $9P049760 | 16223 0634 00 4 16225 BC023 SXA *+2,4 9P049770 16224 0774 00 4 00002 AXT 2,4 MOVE OUTPUT TAPE MOUNTING ORDERS $9P049780 | 16225 -0500 00 4 00000 CAL **,4 9P049790 | 16226 0602 00 4 17625 SLW BQ00+12,4 9P049800 | 16227 2 00001 4 16225 TIX *-2,4,1 9P049810 | 16230 0441 00 0 17644 BC024 LDI BM00+3 RESTORE INDICATORS 9P049820 16231 0054 00 000002 RFT 000002 9P049830 | 16232 0020 00 0 16240 TRA BC03 9P049840 | 16233 0055 00 000002 SIR 000002 9P049850 | 16234 0074 00 4 05642 TSX BWRT,4 FCB HEADER 1 9P049860 | 16235 0 00011 0 17144 PZE BU51,,9 9P049870 16236 0074 00 4 05642 TSX BWRT,4 FCB HEADER 2 9P049880 | 16237 0 00014 0 17155 PZE BU52,,12 9P049890 | 16240 0074 00 4 05642 BC03 TSX BWRT,4 9P049900 | 16241 0 00014 0 17611 PZE BQ00,,12 9P049910 | 16242 0054 00 000010 RFT 000010 IS THIS THE FIRST LINE 9P049920 16243 1 77764 1 16106 BC04 TXI BC01,1,-BFCBL NO-TO NEXT FILE CONTROL BLOCK 9P049930 | 16244 0500 00 1 00003 CLA 3,1 9P049940 | 16245 -0120 00 0 16243 TMI BC04 TRANSFER IF INTERNAL FILE 9P049950 | 16246 0500 00 1 00000 CLA 0,1 $9P049960 | 16247 0737 00 4 00000 PAC 0,4 $9P049970 16250 -0500 00 4 00000 CAL 0,4 $9P049980 | 16251 -0320 00 0 16356 ANA BC940 $9P049990 | 16252 -0100 00 0 16243 TNZ BC04 $9P050000 | 16253 -0500 00 1 00000 CAL 0,1 SEE IF ADDITIONAL LINE IS NEEDED 9P050010 | 16254 0621 00 0 16352 STA BC900 9P050020 1 LISTING OF 12/01/64 PAGE 114 | SCAN AND LIST CONTROL BLOCKS | | 16255 -0734 00 4 00000 PDX 0,4 9P050030 | 16256 0754 00 4 00000 PXA 0,4 UNIT 2 9P050040 16257 -0340 00 0 16352 LAS BC900 9P050050 | 16260 0020 00 0 16262 TRA *+2 9P050060 | 16261 0020 00 0 16243 TRA BC04 UNITS EQUAL-NO ADDITIONAL LINE 9P050070 | 16262 0055 00 000010 SIR 000010 9P050080 | 16263 0020 00 0 16117 TRA BC016 TO EXTRA LINE 9P050090 16264 -0500 00 0 16354 BC045 CAL BC930 9P050100 | 16265 0602 00 0 17616 SLW BQ00+5 9P050110 | 16266 0020 00 0 16231 TRA BC024+1 9P050120 | 16267 0634 00 2 16301 BC10 SXA BC11,2 SAVE FILE BLOCK NUMBER 9P050130 | 16270 0774 00 2 00030 AXT 24,2 9P050140 16271 0074 00 4 17267 TSX BCONV,4 9P050150 | 16272 0400 00 0 17603 ADD BONE 9P050160 | 16273 -0130 00 0 00000 XCL 9P050170 | 16274 0074 00 4 17303 TSX BCVR,4 9P050180 | 16275 -0320 00 0 16355 ANA BC920 9P050190 16276 -0130 00 0 00000 XCL 9P050200 | 16277 -0773 00 0 00014 RQL 12 9P050210 | 16300 -0600 00 0 17620 STQ BQ00+7 9P050220 | 16301 0774 00 2 00000 BC11 AXT **,2 RESTORE FILE BLOCK NUMBER 9P050230 | 16302 0020 00 0 16176 TRA BC022 9P050240 16303 0054 00 000004 BC05 RFT 000004 WAS THIS A RESTART SCAN 9P050250 | 16304 0020 00 0 04000 TRA BC70 YES-EXIT 9P050260 | 16305 0054 00 000001 RFT 000001 FINISHING MISCELLANEOUS BLOCK 9P050270 | 16306 0020 00 0 04000 BC06 TRA BC50 9P050280 | 16307 0534 00 1 17653 LXA BMORG,1 NO-SET UP TO SCAN 9P050290 16310 -3 00000 1 16306 TXL BC06,1,0 MISCELLANEOUS BLOCK 9P050300 | 16311 -0634 00 1 16106 SXD BC01,1 9P050310 | 16312 0535 00 1 17650 LAC BUFIN,1 9P050320 | 16313 0055 00 000001 SIR 000001 9P050330 | 16314 0020 00 0 16106 TRA BC01 9P050340 16315 0560 00 4 00000 BC60 LDQ 0,4 $9P050350 | 16316 0074 00 4 00714 TSX (SYMUN,4 SYMBOLIC UNIT $9P050360 | 16317 0602 00 0 17616 SLW BQ00+5 TO IMAGE $9P050370 | 16320 -0500 00 0 16357 CAL BC88 $9P050380 | 16321 0602 00 0 17617 SLW BQ00+6 TRKS $9P050390 16322 0500 00 1 00007 CLA 7,1 $9P050400 | 16323 0074 00 4 00715 TSX (DECVD,4 FIRST TRACK ADDRESS $9P050410 | 16324 -0773 00 0 00014 RQL 12 $9P050420 | 16325 -0130 00 0 00000 XCL $9P050430 | 16326 -0501 00 0 16360 ORA BC87 $9P050440 16327 0602 00 0 17620 SLW BQ00+7 $9P050450 | 16330 0500 00 1 00007 CLA 7,1 $9P050460 | 16331 0074 00 4 00716 TSX (DECVA,4 LAST TRACK ADDRESS $9P050470 | 16332 -0773 00 0 00006 RQL 6 $9P050480 | 16333 -0130 00 0 00000 XCL $9P050490 16334 -0501 00 0 16361 ORA BC89 $9P050500 | 16335 0602 00 0 17621 SLW BQ00+8 $9P050510 | 16336 0020 00 0 16176 TRA BC022 $9P050520 | 16337 606060605460 BC80 BCI 1, * 9P050530 | 16340 605125254360 BC81 BCI 1, REEL 9P050540 16341 224321454240 BC82 BCI 1,BLANK- 9P050550 | 16342 434660242545 BC83 BCI 2,LO DEN LAB $9P050560 | 16344 303160242545 BC84 BCI 2,HI DEN LAB $9P050570 | 1 LISTING OF 12/01/64 PAGE 115 | SCAN AND LIST CONTROL BLOCKS | 16346 644543212225 BC85 BCI 2,UNLABELLED $9P050580 | 16350 432122254343 BC86 BCI 2,LABELLED $9P050590 | 16352 0 00000 0 00000 BC900 PZE 0 9P050600 | 16353 -000000400000 BC910 OCT 400000400000 9P050610 16354 606023465125 BC930 BCI 1, CORE 9P050620 | 16355 -377717171717 BC920 OCT 777717171717 9P050630 | 16356 +020000000000 BC940 OCT 020000000000 $9P050640 | 16357 606351426260 BC88 BCI 1, TRKS $9P050650 | 16360 +000000000040 BC87 OCT 000000000040 $9P050660 16361 -200000000000 BC89 OCT 600000000000 $9P050670 | 1 LISTING OF 12/01/64 PAGE 116 | GENERATE BCD I/O UNIT DESIGNATION | | * CALLING SEQUENCE 9P050690 | * TSX BC90,4 9P050710 | | * INPUT-UNIT CONTROL WORD LOCATION IN ACCUMULATOR ADDRESS 9P050730 | * OUTPUT-BCD UNIT DESIGNATION IN LOGICAL ACCUMULATOR 9P050750 | * RIGHT JUSTIFIED WITH LEADING BLANKS 9P050760 | | * TAPE - XNN (X=CHANNEL LETTER, N=1,...,10) 9P050780 | * CARD UNITS-RDX,PUX,PRX 9P050790 | * NOTE-IF THE UCW LOCATION IS ZERO, THE ACCUMULATOR IS 9P050810 | * ALL BLANKS. 9P050820 | | 16362 0634 00 4 16407 BC90 SXA BC91,4 SAVE XR4 9P050840 16363 0634 00 2 16410 SXA BC94,2 IR2 9P050850 | 16364 0604 00 0 16440 STI BC97 AND INDICATORS 9P050860 | 16365 0737 00 4 00000 PAC 0,4 UCW LOCATION 9P050870 | 16366 -3 00000 4 16431 TXL BC93,4,0 TRANSFER IF NO UNIT 9P050880 | 16367 -0500 00 4 00000 CAL 0,4 9P050890 16370 -0765 00 0 00033 LGR 27 POSITION IO ADDRESS 9P050900 | 16371 -0320 00 0 16433 ANA BC95 KEEP CHANNEL NUMBER 9P050910 | 16372 -0501 00 0 16437 ORA BC96 12-ZONE, LEADING BLANKS 9P050920 | 16373 0602 00 0 17643 SLW BM00+2 SAVE CHANNEL LETTER 9P050930 | 16374 -0754 00 0 00000 PXD 0,0 9P050940 16375 -0763 00 0 00003 LGL 3 9P050950 | 16376 0760 00 0 00001 LBT 9P050960 | 16377 0020 00 0 16413 TRA BC92 TRANSFER IF TAPE 9P050970 | 16400 -0754 00 0 00000 PXD 0,0 9P050980 | 16401 -0763 00 0 00002 LGL 2 9P050990 16402 0737 00 4 00000 PAC 0,4 9P051000 | 16403 -0500 00 0 17643 CAL BM00+2 9P051010 | 16404 -0765 00 0 00006 LGR 6 9P051020 | 16405 -0500 00 4 16433 CAL BC95,4 UNIT ABBREVIATION 9P051030 | 16406 -0763 00 0 00006 LGL 6 SUFFIX CHANNEL LETTER 9P051040 16407 0774 00 4 00000 BC91 AXT **,4 RESTORE XR4 9P051050 | 16410 0774 00 2 00000 BC94 AXT **,2 IR2 9P051060 | 16411 0441 00 0 16440 LDI BC97 AND INDICATORS 9P051070 | 16412 0020 00 4 00001 TRA 1,4 EXIT 9P051080 | 16413 -0754 00 0 00000 BC92 PXD 0,0 HERE IF TAPE 9P051090 16414 -0763 00 0 00006 LGL 6 GET UNIT NUMBER 9P051100 | 16415 0734 00 4 00000 PAX 0,4 9P051110 | 16416 2 00020 4 16417 TIX *+1,4,16 MAY BE BINARY ADDRESS 9P051120 | 16417 0754 00 4 00000 PXA 0,4 9P051130 | 16420 -0130 00 0 00000 XCL 9P051140 16421 0074 00 4 17303 TSX BCVR,4 CONVERT NUMBER TO BCD 9P051150 | 16422 0560 00 0 17606 LDQ BLANKZ 9P051160 | 16423 -0765 00 0 00014 LGR 12 9P051170 | 16424 0774 00 2 00014 AXT 12,2 LEFT JUSTIFY UNIT NUMBER 9P051180 | 16425 0074 00 4 17264 TSX BSCNA,4 9P051190 16426 -0500 00 0 17643 CAL BM00+2 PREFIX CHANNEL LETTER 9P051200 | 16427 -0763 00 0 00014 LGL 12 9P051210 | 16430 0020 00 0 16407 TRA BC91 9P051220 | 16431 -0500 00 0 17606 BC93 CAL BLANKZ 9P051230 | 1 LISTING OF 12/01/64 PAGE 117 GENERATE BCD I/O UNIT DESIGNATION | | 16432 0020 00 0 16407 TRA BC91 9P051240 | 16433 +000000000017 BC95 OCT 000000000017 9P051250 | 16434 606060605124 BCI 1, RD 9P051260 16435 606060604764 BCI 1, PU 9P051270 | 16436 606060604751 BCI 1, PR 9P051280 | 16437 606060606020 BC96 BCI 1, + 9P051290 | 16440 0 00000 0 00000 BC97 PZE 0 9P051300 | 1 LISTING OF 12/01/64 PAGE 118 I/O UNIT ASSIGNMENT ROUTINE | | * THIS ROUTINE, ENTERED AFTER AN INITIAL SCAN OF THE 9P051320 | * UNIT FIELD, USING BSCAN, CONVERTS THE SYMBOLIC 9P051330 | * UNIT DESIGNATION TO AN INTERMEDIATE DESIGNATION FOR THE UNIT. 9P051340 | * CALLING SEQUENCE 9P051360 | | * TSX BASGN,4 9P051380 | * ENTRY 9P051400 | * 1.X2 CONTAINS THE COUNT OF SIGNIFICANT BITS IN THE 9P051410 | * SYMBOLIC UNIT DESIGNATION. 9P051420 | * 2.THE HIGH MQ CONTAINS THE UNIT DESIGNATION 9P051430 | * 3.THE RIGHT INDICATORS CONTAIN THE CHARACTER TYPES 9P051440 * FROM BSCAN. 9P051450 | | * EXIT 9P051470 | * 1,THE INTERMEDIATE DESIGNATION IS IN XR2.C(XR2)=0 IF THE 9P051480 | * UNIT IS NOT PRESENT OR IF THE SYMBOLIC DESIGNATION 9P051490 * IS ILLEGAL. C(IR2)=77777 IF THE FILE IS INTERNAL. 9P051500 | | * THE SYMBOLIC UNIT DESIGNATION MUST BE OF THE 9P051520 | * FOLLOWING FORM 9P051530 | * TAPE- XMR 9P051550 | * WHERE X=LOGICAL CHANNEL (A,..,H), SYMBOLIC CHANNEL (S,..Z) 9P051560 | * OR INTER SYSTEM RESERVE SYMBOLIC CHANNEL (J,..,Q) 9P051570 | * N=UNIT NUMBER (0,...,9). N=0 IS EQUIVALENT TO 9P051580 | * N=10. 9P051590 * R=II FOR A MODEL II TAPE DRIVE OR R TO INDICATE 9P051600 | * AN INTER SYSTEM RESERVE INPUT IS TO BE REMOVED FROM 9P051610 | * RESERVE STATUS 9P051620 | * ON-LINE READER - RDX 9P051630 | * ON-LINE PRINTER - PRX 9P051640 * ON-LINE PUNCH - PUX 9P051650 | * WHERE X=LOGICAL CHANNEL (A,...,H) 9P051660 | * SYSTEM UNITS OF THE SET 9P051670 | * LB1,LB2,LB3,LB4,CRD,PRT,PCH,OU1,OU2,IN1,IN2,PP1,PP2,CK1,CK2,UT1, 9P051680 | * UT2,UT3,UT4. 9P051690 | 16441 0634 00 4 16755 BASGN SXA BT99,4 SAVE IRS 9P051710 | 16442 0634 00 1 16756 SXA BT99+1,1 9P051720 | 16443 0634 00 2 16461 SXA BT00,2 SAVE BIT COUNT 9P051730 | 16444 -3 00014 2 16446 TXL BT01,2,12 IF ONLY 2 CHARACTERS IT IS TAPE 9P051740 16445 -3 00022 2 16573 TXL BT02,2,18 IF 3 CHARACTERS TEST SYSUNI. 9P051750 | 16446 0774 00 2 00006 BT01 AXT 6,2 4 CHARACTERS OR 2 OR 1 9P051760 | 16447 0074 00 4 17264 TSX BSCNA,4 SCAN FIRST CHARACTER. 9P051770 | 16450 0054 00 000030 RFT 30 IS IT J-R OR S-Z ALPHABETIC 9P051780 | 16451 0020 00 0 16645 TRA BT10 YES 9P051790 16452 0056 00 000004 RNT 4 IS IT A-I ALPHABETIC 9P051800 | 16453 0020 00 0 16563 TRA BT500 TEST FOR * MEANING SAME UNIT TYPE 9P051810 | 16454 -0763 00 0 00002 LGL 2 ROLL OFF ZONE 9P051820 | 16455 -0754 00 0 00000 PXD 0,0 CLEAR IT 9P051830 | 16456 -0763 00 0 00004 LGL 4 NUMERIC TO AC 9P051840 16457 0734 00 1 00000 PAX 0,1 SAVE IT IN IR1 9P051850 | 16460 3 00010 1 16760 TXH BT515,1,8 TRANSFER IF INTERNAL FILE 9P051860 | 1 LISTING OF 12/01/64 PAGE 119 | I/O UNIT ASSIGNMENT ROUTINE | 16461 0774 00 2 00000 BT00 AXT **,2 9P051870 | 16462 -3 00006 2 16556 TXL BT01A,2,6 CHANNEL ONLY DESIGNATED 9P051880 | 16463 0774 00 2 00006 AXT 6,2 9P051890 | 16464 0074 00 4 17264 TSX BSCNA,4 SCAN UNIT NUMBER 9P051900 | 16465 0054 00 000174 RFT 174 TEST FOR NUMERIC 9P051910 16466 0020 00 0 16516 TRA BT04A NOT NUMERIC TEST MODEL 9P051920 | 16467 -0754 00 0 00000 PXD 0,0 9P051930 | 16470 -0763 00 0 00006 LGL 6 UNIT TO AC 9P051940 | 16471 -0100 00 0 16473 TNZ *+2 IF ZERO 9P051950 | 16472 -0500 00 0 17605 CAL BTEN MAKE IT 10 9P051960 16473 0734 00 2 00000 PAX 0,2 UNIT TO IR2 9P051970 | 16474 -0754 00 1 00000 PXD 0,1 CHANNEL TO AC 9P051980 | 16475 0402 00 0 04721 SUB 1B17 -1 9P051990 | 16476 0767 00 0 00004 ALS 4 *16 9P052000 | 16477 0622 00 0 16500 STD *+1 TO 9P052010 16500 1 00000 2 16501 TXI *+1,2,** IR2 9P052020 | 16501 1 40000 2 16502 BT04 TXI *+1,2,SECOND SET SYMBOLIC UNIT DESIGNATED 9P052030 | 16502 0534 00 1 16461 LXA BT00,1 PICKUP CHARACTER COUNT. 9P052040 | 16503 -3 00014 1 16755 TXL BT99,1,12 DONE IF ONLY 2 CHARACTERS. 9P052050 | 16504 3 00022 1 16520 TXH BT03,1,18 4 CHARACTERS, TEST II OR IV. 9P052060 16505 -0754 00 0 00000 BT04B PXD 0,0 SINGLE CHARACTER 9P052070 | 16506 -0763 00 0 00006 LGL 6 TO AC. 9P052080 | 16507 -0340 00 0 16770 LAS BTR COMPARE WITH R 9P052090 | 16510 0020 00 0 16512 TRA *+2 NO. TRY V FOR MOD V 9P052100 | 16511 1 02000 2 16755 TXI BT99,2,REMOVE REMOVE RESERVE STATUS 9P052110 16512 -0340 00 0 16771 LAS BTV COMPARE WITH MOD V 9P052120 | 16513 0020 00 0 16754 TRA BT51 ERROR 9P052130 | 16514 1 01000 2 16755 TXI BT99,2,MODII FLAG MOD II OR V DESIRED 9P052140 | 16515 0020 00 0 16754 TRA BT51 ERROR 9P052150 | 16516 0056 00 000004 BT04A RNT 4 A - I ALPHABETIC 9P052160 16517 0020 00 0 16505 TRA BT04B NO, CHECK FOR REMOVE 9P052170 | 16520 -0754 00 0 00000 BT03 PXD 0,0 CLEAR AC 9P052180 | 16521 -0763 00 0 00014 LGL 12 2 CHARACTERS TO AC 9P052190 | 16522 -0340 00 0 16765 LAS BTII COMPARE WITH II 9P052200 | 16523 0020 00 0 16525 TRA *+2 NO. 9P052210 16524 1 01000 2 16755 TXI BT99,2,MODII FLAG MODEL II DESIRED 9P052220 | 16525 -0340 00 0 16766 LAS BTIV COMPARE WITH IV 9P052230 | 16526 0020 00 0 16754 TRA BT51 ERROR 9P052240 | 16527 0020 00 0 16755 TRA BT99 MOD IV OK. 9P052250 | 16530 -0765 00 0 00006 LGR 6 SET UP AND $9P052260 16531 -0340 00 0 16031 LAS BTD COMPARE WITH 'D' $9P052270 | 16532 0020 00 0 16754 TRA BT51 $9P052280 | 16533 0020 00 0 16535 TRA DASGN SET UP AS DISK UCW $9P052290 | 16534 0020 00 0 16754 TRA BT51 $9P052300 | 16535 0500 00 0 04715 DASGN CLA L(1) 7909 BIT AND RESERVE BIT $9P052310 16536 0767 00 0 00007 ALS 7 LEAVE ROOM FOR CHAN. $9P052320 | 16537 0400 00 0 04715 ADD L(1) DEVICE BIT $9P052330 | 16540 -0763 00 0 00004 LGL 4 GET RID $9P052340 | 16541 0771 00 0 00004 ARS 4 OFF EXCESS $9P052350 | 16542 -0763 00 0 00004 LGL 4 GET ACCESS $9P052360 16543 0771 00 0 00002 ARS 2 SHIFT OFF EXCESS $9P052370 | 16544 -0763 00 0 00004 LGL 4 GET MODULE $9P052380 | 16545 0621 00 0 16061 STA DUCBW $9P052390 | 16546 0754 00 1 00000 PXA 0,1 PUT CHANNEL $9P052400 | 16547 0767 00 0 00011 ALS 9 IN THE $9P052410 1 LISTING OF 12/01/64 PAGE 120 | I/O UNIT ASSIGNMENT ROUTINE | | 16550 -0602 00 0 16061 ORS DUCBW TEMP. UCBW $9P052420 | 16551 0634 00 1 13707 SXA DUCBCH,1 $9P052430 16552 0534 00 1 16061 LXA DUCBW,1 $9P052440 | 16553 0600 00 0 16061 STZ DUCBW $9P052450 | 16554 -0634 00 1 16061 SXD DUCBW,1 $9P052460 | 16555 0020 00 0 16755 TRA BT99 $9P052470 | 16556 -0754 00 1 00000 BT01A PXD 0,1 CHANNEL ONLY. USE TRUE 9P052480 16557 0402 00 0 04721 SUB 1B17 UNIT ZERO 9P052490 | 16560 0767 00 0 00004 ALS 4 CHANNEL-1 * 16 9P052500 | 16561 -0734 00 2 00000 PDX 0,2 TO IR2 9P052510 | 16562 1 40000 2 16755 TXI BT99,2,SECOND EXIT. 9P052520 | 16563 -0754 00 0 00000 BT500 PXD 0,0 9P052530 16564 -0763 00 0 00006 LGL 6 9P052540 | 16565 -0340 00 0 16767 LAS BTS 9P052550 | 16566 0020 00 0 16754 TRA BT51 9P052560 | 16567 0020 00 0 16571 TRA *+2 9P052570 | 16570 0020 00 0 16754 TRA BT51 9P052580 16571 0774 00 2 60000 AXT SAME+SECOND,2 SAME TYPE UNIT FLAG $9P052590 | 16572 0020 00 0 16755 TRA BT99 9P052600 | * 3 CHARACTERS ARE DESIGNATED FOR UNIT. TEST FOR SYSTEM TYPE. 9P052610 | 16573 -0754 00 0 00000 BT02 PXD 0,0 CLEAR AC 9P052620 | 16574 -0763 00 0 00022 LGL 18 3 CHARACTERS TO AC 9P052630 16575 0774 00 2 00001 AXT 1,2 SET INDEX TO FIRST SYS UNI. 9P052640 | 16576 0774 00 4 00000 AXT 0,4 POINTER TO FIRST SYMBOLIC UNIT. 9P052650 | 16577 -0340 00 4 16772 LAS BTTBL,4 COMPARE WITH TABLE. 9P052660 | 16600 1 00001 2 16603 TXI *+3,2,1 NOT THIS ONE. 9P052670 | 16601 0020 00 0 16755 TRA BT99 SYSTEM UNIT FOUND. 9P052680 16602 1 00001 2 16603 TXI *+1,2,1 NOT YET. 9P052690 | 16603 1 77777 4 16604 TXI *+1,4,-1 TRY NEXT ONE. 9P052700 | 16604 3 77755 4 16577 TXH *-5,4,-19 BACK UNLESS 9P052710 | 16605 -0765 00 0 00006 LGR 6 NOT SYSTEM UNIT. MAY BE 9P052720 | 16606 0774 00 1 00003 AXT 3,1 CARD UNIT 9P052730 16607 -0340 00 1 16765 LAS BT91+3,1 TRY PRINTER, 9P052740 | 16610 0020 00 0 16612 TRA *+2 PUNCH, THEN READER. 9P052750 | 16611 0020 00 0 16615 TRA BT021 FOUND. TEST CHANNEL. 9P052760 | 16612 2 00001 1 16607 TIX *-3,1,1 TRY NEXT TYPE 9P052770 | 16613 -0765 00 0 00014 LGR 12 NOT CARD UNIT 9P052780 16614 0020 00 0 16446 TRA BT01 BACK TO TAPE. 9P052790 | 16615 1 77777 1 16616 BT021 TXI *+1,1,-1 UNIT TYPE FOR ASSIGNMENT 9P052800 | 16616 -0754 00 1 00000 PXD 0,1 9P052810 | 16617 0622 00 0 16643 STD BT023 9P052820 | 16620 0767 00 0 00002 ALS 2 9P052830 16621 0622 00 0 16644 STD BT022 9P052840 | 16622 0774 00 2 00006 AXT 6,2 SCAN CHANNEL 9P052850 | 16623 0074 00 4 17264 TSX BSCNA,4 DESIGNATION 9P052860 | 16624 0056 00 000004 RNT 4 IS IT A-I ALPHABETIC. 9P052870 | 16625 0020 00 0 16754 TRA BT51 NO. ERROR. 9P052880 16626 -0763 00 0 00002 LGL 2 SHIFT OFF ZONE 9P052890 | 16627 -0754 00 0 00000 PXD 0,0 X 9P052900 | 16630 -0763 00 0 00004 LGL 4 NUMERIC TO AC 9P052910 | 16631 0734 00 1 00000 PAX 0,1 TO IR1 9P052920 | 16632 0402 00 0 17603 SUB BONE CHANNEL-1 9P052930 16633 0361 00 0 00110 ACL SYSUBC A BASE OF UNIT CONFIGURATION 9P052940 | 16634 0622 00 0 16635 STD *+1 TABLE. NO OF CHANNEL TO COMPARE. 9P052950 | 16635 3 00000 1 16754 TXH BT51,1,** ERROR. CHANNEL NOT ON SYSTEM. 9P052960 | 1 LISTING OF 12/01/64 PAGE 121 | I/O UNIT ASSIGNMENT ROUTINE | 16636 0621 00 0 16637 STA *+1 PICKUP CONFIGURATION OF 9P052970 | 16637 -0500 00 0 00000 CAL ** CHANNEL DESIGNATED. 9P052980 | 16640 0734 00 2 00000 PAX 0,2 9P052990 | 16641 0771 00 0 00017 ARS 15 PREFIX CONTAINS CARD EQUIP. COUNT. 9P053000 16642 -0734 00 1 00000 PDX 0,1 NO. OF CARD UNITS TO IR1 9P053010 | 16643 -3 00000 1 16754 BT023 TXL BT51,1,** ERROR. UNIT NOT ON CHANNEL 9P053020 | 16644 1 00000 2 16755 BT022 TXI BT99,2,** DESIGNATE CARD UNIT. 9P053030 | * UNIT IS SYMBOLIC CHANNEL TEST TYPE. 9P053040 | 16645 0056 00 000010 BT10 RNT 10 J-R ALPHABETIC 9P053050 16646 0020 00 0 16674 TRA BT30 S-Z ALPHABETIC. 9P053060 | * UNIT IS J-R ALPHABETIC INDICATING INTER SYSTEM RESERVE UNIT. 9P053070 | 16647 -0763 00 0 00002 LGL 2 ROLL OFF ZONE 9P053080 | 16650 -0754 00 0 00000 PXD 0,0 CLEAR IT 9P053090 | 16651 -0763 00 0 00004 LGL 4 NUMERIC TO AC 9P053100 16652 0734 00 1 00000 PAX 0,1 SAVE CHANNEL NUMBER. 9P053110 | 16653 0534 00 2 16461 LXA BT00,2 CHECK FOR CHANNEL ONLY 9P053120 | 16654 -3 00006 2 16730 TXL BT11,2,6 USE TRUE UNIT ZERO. 9P053130 | 16655 0774 00 2 00006 AXT 6,2 SCAN UNIT NUMBER 9P053140 | 16656 0074 00 4 17264 TSX BSCNA,4 X 9P053150 16657 0054 00 000174 RFT 174 TEST FOR NUMERIC 9P053160 | 16660 0020 00 0 16735 TRA BT12 ALPHABETIC TEST MOD TYPE 9P053170 | 16661 -0754 00 0 00000 PXD 0,0 CLEAR AC 9P053180 | 16662 -0763 00 0 00006 LGL 6 NUMBER TO AC 9P053190 | 16663 -0100 00 0 16665 TNZ *+2 SUBSTITUTE 9P053200 16664 -0500 00 0 17605 CAL BTEN 10 FOR ZERO 9P053210 | 16665 0734 00 2 00000 PAX 0,2 UNIT TO IR2 9P053220 | 16666 -0754 00 1 00000 PXD 0,1 CHANNEL NO. TO AC 9P053230 | 16667 0402 00 0 04721 SUB 1B17 -1 9P053240 | 16670 0767 00 0 00004 ALS 4 *16 9P053250 16671 0622 00 0 16672 STD *+1 TO 9P053260 | 16672 1 00000 2 16673 TXI *+1,2,** IR2 9P053270 | 16673 1 04000 2 16501 TXI BT04,2,RESERV GO FINISH OUT DESIGNATION. 9P053280 | 16674 -0763 00 0 00002 BT30 LGL 2 ROLL OF ZONE 9P053290 | 16675 -0754 00 0 00000 PXD 0,0 CLEAR IT OUT 9P053300 16676 -0763 00 0 00004 LGL 4 NUMERIC TO AC 9P053310 | 16677 0734 00 1 00000 PAX 0,1 SAVE CHANNEL NO. (+1) 9P053320 | 16700 0534 00 2 16461 LXA BT00,2 TEST FOR 9P053330 | 16701 -3 00006 2 16722 TXL BT31,2,6 CHANNEL ONLY 9P053340 | 16702 0774 00 2 00006 AXT 6,2 SCAN 9P053350 16703 0074 00 4 17264 TSX BSCNA,4 UNIT NUMBER 9P053360 | 16704 0054 00 000174 RFT 174 TEST FOR NUMERIC 9P053370 | 16705 0020 00 0 16754 TRA BT51 ERROR NOT NUMERIC 9P053380 | 16706 -0754 00 0 00000 PXD 0,0 CLEAR AC 9P053390 | 16707 -0763 00 0 00006 LGL 6 UNIT NUMBER TO AC 9P053400 16710 -0100 00 0 16712 TNZ *+2 SUBSTITUTE 10 FOR 9P053410 | 16711 -0500 00 0 17605 CAL BTEN ZERO. 9P053420 | 16712 0734 00 2 00000 PAX 0,2 UNIT TO IR2 9P053430 | 16713 -0754 00 1 00000 PXD 0,1 CHANNEL+1 TO AC 9P053440 | 16714 0402 00 0 04721 SUB 1B17 -1=CHANNEL 9P053450 16715 0402 00 0 04721 SUB 1B17 -1 9P053460 | 16716 0767 00 0 00004 ALS 4 *16 9P053470 | 16717 0622 00 0 16720 STD *+1 TO 9P053480 | 16720 1 00000 2 16721 TXI *+1,2,** IR2 9P053490 | 16721 1 10000 2 16501 TXI BT04,2,SYMBOL GO FINISH OUT DESIGNATION. 9P053500 16722 -0754 00 1 00000 BT31 PXD 0,1 CHANNEL ONLY 9P053510 | 1 LISTING OF 12/01/64 PAGE 122 | I/O UNIT ASSIGNMENT ROUTINE | | 16723 0402 00 0 04721 SUB 1B17 DESIGNATED 9P053520 16724 0402 00 0 04721 SUB 1B17 USE TRUE UNIT ZERO 9P053530 | 16725 0767 00 0 00004 ALS 4 X 9P053540 | 16726 -0734 00 2 00000 PDX 0,2 X 9P053550 | 16727 1 50000 2 16755 TXI BT99,2,SECOND+SYMBOL EXIT WITH SYMBOLIC CHAN. ONLY 9P053560 | 16730 -0754 00 1 00000 BT11 PXD 0,1 CHANNEL ONLY DESIGNATED 9P053570 16731 0402 00 0 04721 SUB 1B17 USE TRUE UNIT ZERO 9P053580 | 16732 0767 00 0 00004 ALS 4 X 9P053590 | 16733 -0734 00 2 00000 PDX 0,2 CHANNEL-1 * 16 TO IR2 9P053600 | 16734 1 04000 2 16755 TXI BT99,2,RESERV EXIT WITH CHANNEL ONLY 9P053610 | 16735 -0754 00 1 00000 BT12 PXD 0,1 9P053620 16736 0402 00 0 04721 SUB 1B17 9P053630 | 16737 0767 00 0 00004 ALS 4 9P053640 | 16740 -0734 00 2 00000 PDX 0,2 9P053650 | 16741 1 44000 2 16742 TXI *+1,2,SECOND+RESERV 9P053660 | 16742 0056 00 000004 RNT 4 A - I ALPHABETIC 9P053670 16743 0020 00 0 16516 TRA BT04A NO, TEST FOR REMOVE 9P053680 | 16744 -0754 00 0 00000 PXD 0,0 9P053690 | 16745 -0763 00 0 00014 LGL 12 9P053700 | 16746 -0340 00 0 16765 LAS BTII MOD II 9P053710 | 16747 0020 00 0 16751 TRA *+2 NO. 9P053720 16750 1 01000 2 16755 TXI BT99,2,MODII INDICATE MOD II 9P053730 | 16751 -0340 00 0 16766 LAS BTIV MOD IV 9P053740 | 16752 0020 00 0 16754 TRA BT51 NO ERROR 9P053750 | 16753 0020 00 0 16755 TRA BT99 YES OK 9P053760 | * ERROR UNIT IS ILLEGAL 9P053770 16754 0774 00 2 00000 BT51 AXT 0,2 9P053780 | 16755 0774 00 4 00000 BT99 AXT **,4 9P053790 | 16756 0774 00 1 00000 AXT **,1 9P053800 | 16757 0020 00 4 00001 TRA 1,4 9P053810 | * INTERNAL FILE IS DESIGNATED 9P053820 16760 0774 00 2 77777 BT515 AXT -1,2 9P053830 | 16761 0020 00 0 16755 TRA BT99 9P053840 | 16762 000000004751 BT91 BCI 1,0000PR 9P053850 | 16763 000000004764 BCI 1,0000PU 9P053860 | 16764 000000005124 BCI 1,0000RD 9P053870 16765 000000003131 BTII BCI 1,0000II 9P053880 | 16766 000000003165 BTIV BCI 1,0000IV 9P053890 | 16767 000000000054 BTS BCI 1,00000* 9P053900 | 16770 000000000051 BTR BCI 1,00000R 9P053910 | 16771 000000000065 BTV BCI 1,00000V 9P053920 16772 000000432201 BTTBL BCI 1,000LB1 9P053930 | 16773 000000432202 BCI 1,000LB2 9P053940 | 16774 000000432203 BCI 1,000LB3 9P053950 | 16775 000000432204 BCI 1,000LB4 9P053960 | 16776 000000235124 BCI 1,000CRD 9P053970 16777 000000476351 BCI 1,000PTR 9P053980 | 17000 000000472330 BCI 1,000PCH 9P053990 | 17001 000000466401 BCI 1,000OU1 9P054000 | 17002 000000466402 BCI 1,000OU2 9P054010 | 17003 000000314501 BCI 1,000IN1 9P054020 17004 000000314502 BCI 1,000IN2 9P054030 | 17005 000000474701 BCI 1,000PP1 9P054040 | 17006 000000474702 BCI 1,000PP2 9P054050 | 17007 000000234201 BCI 1,000CK1 9P054060 | 1 LISTING OF 12/01/64 PAGE 123 I/O UNIT ASSIGNMENT ROUTINE | | 17010 000000234202 BCI 1,000CK2 9P054070 | 17011 000000646301 BCI 1,000UT1 9P054080 | 17012 000000646302 BCI 1,000UT2 9P054090 17013 000000646303 BCI 1,000UT3 9P054100 | 17014 000000646304 BCI 1,000UT4 9P054110 | | * ERROR MESSAGES 9P054130 | 17015 603146236260 BU00 BCI 9, IOCS PREPROCESSOR ERROR LIST. JOB- XXXXXXXXXXXXXXXXXX 9P054150 | 17026 606060606060 BCI 3, PAGE XXX 9P054160 | 17031 606060606060 BU01 BCI 9, CARD XXX 9P054170 | 17042 606060606060 BCI 3, 9P054180 | 17045 314343252721 BU02 BCI 6,ILLEGAL OPERATION-- (XXXXXX) 9P054190 17053 263143256022 BU04 BCI 5,FILE BLOCK ORIGIN NOT OCTAL 9P054200 | 17060 263143256023 BU05 BCI 5,FILE CONTROL BLOCK COUNT ERROR 9P054210 | 17065 263143256022 BU06 BCI 4,FILE BLOCK WILL NOT FIT 9P054220 | 17071 263143256023 BU07 BCI 6,FILE CONTROL BLOCK NUMBER ERROR 9P054230 | 17077 644531636001 BU08 BCI 3,UNIT 1 ILLEGAL 9P054240 17102 644531636002 BU09 BCI 3,UNIT 2 ILLEGAL 9P054250 | 17105 242163256025 BU11 BCI 2,DATE ERROR 9P054260 | 17107 414622602321 BU12 BCI 4,JOB CARD OUT OF PLACE 9P054270 | 17113 234645635146 BU13 BCI 3,CONTROL CARD EOF 9P054280 | 17116 234645635146 BU14 BCI 4,CONTROL CARD REDUNDANCY 9P054290 17122 512525436062 BU15 BCI 6,REEL SEQUENCE NUMBER NOT NUMERIC 9P054300 | | * ASSIGNMENT LISTING HEADERS 9P054320 | | 17130 604146224060 BU50 BCI 9, JOB- XXXXXXXXXXXXXXXXXX DATE 00/00/00 9P054340 17141 606060606060 BCI 3, PAGE XXX 9P054350 | 17144 606060263143 BU51 BCI 9, FILE DESCRIPTIONS (MOUNT FILES MARKED WITH *)-- 9P054360 | 17155 606060606060 BU52 BCI 9, NO. FILE NAME UNIT MOUNT TAPES-- 9P054370 | 17166 606060606060 BCI 3, 9P054380 | 17171 444664456360 BU595 BCI 4,MOUNT INDICATED TAPES 9P054390 17175 234645633145 BU60 BCI 8,CONTINUE IF CONTROL CARD ERRORS CAN BE IGNORED 9P054400 | 1 LISTING OF 12/01/64 PAGE 124 | FILE CONTROL ITEM SCAN | | * CALLING SEQUENCE 9P054420 | * TSX BCNTR,4 9P054440 | * PZE L,,2*N 9P054450 | | * WHERE L IS THE ORIGIN OF A TABLE OF N WORD PAIRS 9P054470 * WORD 1 BCI 1,00000X 9P054480 | * WORD 2 OCT NNNNNNNNNNNN 9P054490 | * X IS A PERMITTED BCD CONTROL CHARACTER. WORD 2 IS 9P054500 | * THE CORRESPONDING INDICATOR SETTING. 9P054510 | * ENTRY 9P054530 | * THE BCD CONTROL CHARACTER IS IN THE MQ.BITS S,1-5 9P054540 | | * EXIT 9P054560 | * THE MQ HAS BEEN SHIFTED LEFT 6 BITS. A TABLE LOOK-UP 9P054570 * HAS BEEN MADE TO MATCH THE CONTROL CHARACTER. WHEN 9P054580 | * A MATCH OCCURS, THE NEXT TABLE WORD IS ORED TO THE 9P054590 | * INDICATORS. IF NO MATCH OCCURS, THE LAST TABLE WORD 9P054600 | * IS ORED TO THE INDICATORS. 9P054610 | 17205 0634 00 4 17224 BCNTR SXA BR01,4 SAVE XR4 9P054630 | 17206 -0500 00 4 00001 CAL 1,4 9P054640 | 17207 0734 00 4 00000 PAX 0,4 9P054650 | 17210 0622 00 0 17211 STD *+1 9P054660 | 17211 1 00000 4 17212 TXI *+1,4,** 9P054670 17212 0634 00 4 17216 SXA BR00,4 9P054680 | 17213 -0534 00 4 17211 LXD *-2,4 9P054690 | 17214 -0754 00 0 00000 PXD 0,0 9P054700 | 17215 -0763 00 0 00006 LGL 6 GET CONTROL CHARACTER 9P054710 | 17216 0340 00 4 00000 BR00 CAS **,4 TABLE LOOK-UP 9P054720 17217 0020 00 0 17221 TRA *+2 9P054730 | 17220 0020 00 0 17222 TRA *+2 9P054740 | 17221 2 00002 4 17216 TIX *-3,4,2 9P054750 | 17222 1 77777 4 17223 TXI *+1,4,-1 9P054760 | 17223 0442 60 0 17216 OSI* BR00 9P054770 17224 0774 00 4 00000 BR01 AXT **,4 RESTORE XR4 9P054780 | 17225 0020 00 4 00002 TRA 2,4 EXIT 9P054790 | 1 LISTING OF 12/01/64 PAGE 125 | FIELD SCAN ROUTINE | * CALLING SEQUENCE 9P054810 | | * TSX BSCAN,4 9P054830 | | * ENTRY 9P054850 * 1. THE MQ CONTAINS THE APPROPRIATE CONTROL CARD 9P054860 | * FIELD DEFINITION WORD 9P054870 | * VFD 6/6*N,12/S,3/0,15/L 9P054880 | * N=NUMBER OF CHARACTERS IN FIELD(LESS THAN OR EQUAL TO 6) 9P054890 | * L=RELATIVE LOCATION IN CONTROL CARD IMAGE(BQ00) OF THE 9P054900 * WORD IN WHICH THE FIELD BEGINS(L=0,1,...,11) 9P054910 | * S=AMOUNT OF RIGHT SHIFT REQUIRED TO LEFT JUSTIFY 9P054920 | * THE FIELD IN THE MQ IF A IS LOADED WITH C(L), THE 9P054930 | * MQ WITH C(L+1) 9P054940 | * EXIT 9P054960 | * 1. X2 CONTAINS 6*M, WHERE M IS THE NUMBER OF 9P054970 | * SIGNIFICANT (NON-BLANK) CHARACTERS IN THE 9P054980 | * FIELD. 9P054990 | * 2. THE 6*M HIGH BITS OF THE MQ CONTAIN THE M 9P055000 * SIGNIFICANT CHARACTERS OF THE FIELD. TRAILING 9P055010 | * BLANKS HAVE BEEN REPLACED BY ZEROS. IF THE 9P055020 | * FIELD IS ENTIRELY BLANK, THE HIGH 6*N BITS OF 9P055030 | * THE MQ ARE ZERO, AND C(X2)=0. 9P055040 | * 3. THE RIGHT INDICATOR BITS INDICATE THE CHARACTER 9P055050 * TYPES ENCOUNTERED BY THE SCAN (BLANK SETS NO 9P055060 | * INDICATOR) 9P055070 | | * 35 OCTAL NUMERIC (0,...,7) 9P055090 | * 34 DECIMAL NUMERIC (8,9) 9P055100 * 33 ALPHABETIC (A-I) 9P055110 | * 32 ALPHABETIC (J-R) 9P055120 | * 31 ALPHABETIC (S-Z) 9P055130 | * 30 CONNECTORS,SPECIAL CHARACTERS 9P055140 | * 29 ILLEGAL CHARACTERS 9P055150 | * NOTE- C(XR1) ARE PRESERVED. 9P055170 | | 17226 0634 00 4 17262 BSCAN SXA BS04,4 SAVE XRS 9P055190 | 17227 0634 00 1 17261 SXA BS03,1 9P055200 17230 -0754 00 0 00000 PXD 0,0 9P055210 | 17231 -0763 00 0 00006 LGL 6 GET BIT COUNT OF FIELD 9P055220 | 17232 -0773 00 0 00014 RQL 12 9P055230 | 17233 0734 00 2 00000 PAX 0,2 9P055240 | 17234 -0130 00 0 00000 XCL 9P055250 17235 -0737 00 4 00000 PDC 0,4 RELATIVE LOCATION OF FIELD 9P055260 | 17236 0621 00 0 17241 STA *+3 9P055270 | 17237 -0500 00 4 17611 CAL BQ00,4 9P055280 | 17240 0560 00 4 17612 LDQ BQ00+1,4 9P055290 | 17241 -0765 00 0 00000 LGR ** FIELD TO HIGH MQ 9P055300 17242 0634 00 2 17255 BS05 SXA BS02,2 INITIALIZE FINAL SHIFT 9P055310 | 17243 0057 00 777777 RIR 777777 9P055320 | 17244 0774 00 4 00000 AXT 0,4 INITIALIZE SIG. BIT COUNT 9P055330 | 17245 -0154 01 1 17460 BS00 CRQ BZ00,1,1 SCAN NEXT CHARACTER 9P055340 | 17246 -3 00000 1 17254 TXL BS01,1,0 TRANSFER IF BLANK 9P055350 1 LISTING OF 12/01/64 PAGE 126 | FIELD SCAN ROUTINE | | 17247 0754 00 1 00000 PXA 0,1 9P055360 | 17250 0043 00 0 00000 OAI SET INDICATOR FOR TYPE 9P055370 17251 3 00000 4 17253 TXH *+2,4,0 IS THIS FIRST NON-BLANK 9P055380 | 17252 0634 00 2 17255 SXA BS02,2 YES 9P055390 | 17253 1 00006 4 17254 TXI *+1,4,6 INCREMENT SIG. BIT COUNT 9P055400 | 17254 2 00006 2 17245 BS01 TIX BS00,2,6 DONE 9P055410 | 17255 0774 00 2 00000 BS02 AXT **,2 NO 9P055420 17256 -0773 00 2 00044 RQL 36,2 POSITION FIELD 9P055430 | 17257 0754 00 4 00000 PXA 0,4 MOVE SIG. BIT COUNT 9P055440 | 17260 0734 00 2 00000 PAX 0,2 9P055450 | 17261 0774 00 1 00000 BS03 AXT **,1 RESTORE XRS 9P055460 | 17262 0774 00 4 00000 BS04 AXT **,4 9P055470 17263 0020 00 4 00001 TRA 1,4 EXIT 9P055480 | | * ALTERNATE SCAN 9P055500 | | * CALLING SEQUENCE 9P055520 | * TSX BSCNA,4 9P055540 | | * ENTRY 9P055560 | * 1. X2 CONTAINS 6*N, THE NUMBER OF BITS TO SCAN. 9P055570 * 2. THE HIGH 6*N BITS OF THE MQ CONTAIN N BCD 9P055580 | * CHARACTERS TO BE SCANNED. 9P055590 | | * EXIT 9P055610 | * THE SAME INFORMATION IS PROVIDED AS ON EXIT 9P055620 * FROM BSCAN. 9P055630 | | * NOTE - THIS ROUTINE IS MERELY AN ALTERNATE ENTRY TO BSCAN. 9P055650 | | 17264 0634 00 4 17262 BSCNA SXA BS04,4 SAVE XRS 9P055670 17265 0634 00 1 17261 SXA BS03,1 9P055680 | 17266 0020 00 0 17242 TRA BS05 ENTER BSCAN 9P055690 | 1 LISTING OF 12/01/64 PAGE 127 | BCD TO BINARY INTEGER CONVERSION | * CALLING SEQUENCE 9P055710 | | * TSX BCONV,4 9P055730 | | * ENTRY 9P055750 * 1. N NUMERIC BCD CHARACTERS IN HIGH ORDER MQ. (N MUST BE 9P055760 | * 6 OR LESS). 9P055770 | * 2. 6*N IN X2. 9P055780 | | * EXIT 9P055800 * 1. BINARY INTEGER IN LOGICAL ACCUMULATOR,B=35. 9P055810 | | 17267 0600 00 0 17645 BCONV STZ BN00 INITIALIZE SUMMER 9P055830 | 17270 -0754 00 0 00000 PXD 0,0 9P055840 | 17271 -0763 00 0 00006 BCON1 LGL 6 GET NEXT DIGIT 9P055850 17272 0361 00 0 17645 ACL BN00 ADD SUMMER 9P055860 | 17273 -2 00006 2 17302 TNX BCON2,2,6 TO EXIT IF COMPLETED 9P055870 | 17274 -0600 00 0 17646 STQ BN00+1 9P055880 | 17275 -0130 00 0 00000 XCL 9P055890 | 17276 0200 00 0 17605 MPY BTEN 9P055900 17277 -0600 00 0 17645 STQ BN00 SAVE PARTIAL PRODUCT 9P055910 | 17300 0560 00 0 17646 LDQ BN00+1 9P055920 | 17301 0020 00 0 17271 TRA BCON1 9P055930 | 17302 0020 00 4 00001 BCON2 TRA 1,4 EXIT 9P055940 | 1 LISTING OF 12/01/64 PAGE 128 BINARY TO BCD CONVERSION ROUTINE | | * CALLING SEQUENCE 9P055960 | * TSX BCVR,4 9P055970 | * ENTRY 9P055990 | * UNSIGNED BINARY INTEGER (LESS THAN OR EQUAL TO 999999) IN MQ. 9P056000 | | * EXIT 9P056020 | * BCD INTEGER IN A, WITH LEADING BLANKS IF NECESSARY. 9P056030 | * NOTES 9P056050 | * 1. ZERO CONVERTS TO ALL BLANKS. 9P056060 | * 2. THE MQ IS NORMALLY ZERO ON EXIT. IF THE INPUT INTEGER 9P056070 | * IS GREATER THAN 999999, THE QUOTIENT, 9P056080 * N/1000000, IS IN THE MQ. 9P056090 | 17303 0634 00 4 17320 BCVR SXA BCVR4,4 SAVE XR4 9P056100 | 17304 0774 00 4 00044 AXT 36,4 9P056110 | 17305 0600 00 0 17645 STZ BN00 9P056120 | 17306 -0754 00 0 00000 BCVR1 PXD 0,0 9P056130 17307 0221 00 0 17605 DVP BTEN GET NEXT DIGIT 9P056140 | 17310 0100 00 0 17322 TZE BCVR5 9P056150 | 17311 0767 00 4 00044 ALS 36,4 9P056160 | 17312 -0602 00 0 17645 ORS BN00 9P056170 | 17313 1 77772 4 17314 BCVR2 TXI *+1,4,-6 9P056180 17314 3 00000 4 17306 TXH BCVR1,4,0 9P056190 | 17315 -0500 00 0 17606 BCVR3 CAL BLANKZ 9P056200 | 17316 0767 00 4 00044 ALS 36,4 9P056210 | 17317 -0501 00 0 17645 ORA BN00 9P056220 | 17320 0774 00 4 00000 BCVR4 AXT **,4 RESTORE XR4 9P056230 17321 0020 00 4 00001 TRA 1,4 EXIT 9P056240 | 17322 -0600 00 0 17646 BCVR5 STQ BN00+1 9P056250 | 17323 0520 00 0 17646 ZET BN00+1 9P056260 | 17324 0020 00 0 17313 TRA BCVR2 CONTINUE-NOT DONE 9P056270 | 17325 0020 00 0 17315 TRA BCVR3 CONVERSION FINISHED 9P056280 | * CONTROL CARD FIELD DEFINITIONS 9P056300 | | 17326 220000000001 BY00 VFD 6/6*3,12/0,3/0,15/1 FILE OR UNIT NUMBER 9P056320 | 17327 300006000002 BY01 VFD 6/6*4,12/6,3/0,15/2 UNIT1 9P056330 17330 300022000003 BY02 VFD 6/6*4,12/18,3/0,15/3 UNIT 2 9P056340 | 17331 220030000005 BY03 VFD 6/6*3,12/24,3/0,15/5 FILE CONTROL BLOCK COUNT 9P056350 | 17332 360036000007 BY05 VFD 6/6*5,12/30,3/0,15/7 FILE BLOCK ORIGIN 9P056360 | 17333 300036000006 BY07 VFD 6/6*4,12/30,3/0,15/6 REEL SEQUENCE NUMBER FIELD 9P056370 | 17334 360036000007 BY08 VFD 6/6*5,12/30,3/0,15/7 FILE SERIAL NUMBER FIELD 9P056380 17335 300036000010 BY09 VFD 6/6*4,12/30,3/0,15/8 RETENTION DAYS 9P056390 | 1 LISTING OF 12/01/64 PAGE 129 | CONTROL CARD OPERATION LIST | | 17336 542631432560 BZ02 BCI 1,*FILE 9P056410 17337 0 00000 0 13323 PZE BFILE 9P056420 | 17340 542421632560 BCI 1,*DATE 9P056430 | 17341 0 00000 0 04000 PZE BDATE 9P056440 | 17342 544146226060 BJOBB BCI 1,*JOB 9P056450 | 17343 0 00000 0 04000 PZE BJ50 ERROR MESSAGE 9P056460 17344 544346212460 BCI 1,*LOAD 9P056470 | 17345 0 00000 0 10106 PZE BLOAD 9P056480 | 17346 543122627062 BCI 1,*IBSYS $9P056490 | 17347 0 00000 0 04000 PZE BB006 $9P056500 | 17350 BFST BSS 0 THIS MUST TERMINATE THE OP LIST 9P056510 | * TABLES FOR FILE CONTROL ITEMS 9P056530 | | | * FILE TYPE TABLE 9P056560 | 17350 000000000023 BW00 BCI 1,00000C CHECKPOINT 9P056580 | 17351 +003000000000 OCT 003000000000 9P056590 | 17352 000000000047 BCI 1,00000P PARTIAL OUTPUT 9P056600 | 17353 +001000000000 OCT 001000000000 9P056610 17354 000000000063 BCI 1,00000T TOTAL OUTPUT 9P056620 | 17355 +002000000000 OCT 002000000000 9P056630 | 17356 000000000031 BCI 1,00000I INPUT 9P056640 | 17357 +000000000000 OCT 000000000000 9P056650 | * MULTI-REEL FLAG TABLE 9P056670 | | 17360 000000000044 BW01 BCI 1,00000M MULTI-REEL (UNLABELLED ONLY) 9P056690 | 17361 +000040000000 OCT 000040000000 9P056700 | 17362 000000000043 BCI 1,00000L LABEL SEARCH (LABELLED ONLY) 9P056710 17363 +000040000000 OCT 000040000000 9P056720 | 17364 000000000060 BCI 1,00000 9P056730 | 17365 +000000000000 OCT 000000000000 9P056740 | | * DENSITY FLAG TABLE 9P056760 | 17366 000000000030 BW02 BCI 1,00000H HIGH 9P056780 | 17367 +000000100000 OCT 000000100000 9P056790 | 17370 000000000043 BCI 1,00000L LOW 9P056800 | 17371 +000000000000 OCT 000000000000 9P056810 | * MODE FLAG TABLE 9P056830 | | 17372 000000000045 BW03 BCI 1,00000N MIXED,SPECIAL (1ST RECORD BINARY) 9P056850 | 17373 -004000000000 OCT 404000000000 9P056860 17374 000000000022 BCI 1,00000B BINARY 9P056870 | 17375 +004000000000 OCT 004000000000 9P056880 | 17376 000000000044 BCI 1,00000M MIXED (FIRST RECORD BCD) 9P056890 | 17377 -000000000000 OCT 400000000000 9P056900 | 17400 000000000024 BCI 1,00000D DECIMAL 9P056910 17401 +000000000000 OCT 000000000000 9P056920 | 1 LISTING OF 12/01/64 PAGE 130 | CONTROL CARD OPERATION LIST | | * LABEL FLAG TABLE 9P056940 | 17402 000000000030 BW04 BCI 1,00000H LABELLED-HIGH DENSITY 9P056960 | 17403 +000400200000 OCT 000400200000 9P056970 | 17404 000000000043 BCI 1,00000L LABELLED-LOW DENSITY 9P056980 | 17405 +000400000000 OCT 000400000000 9P056990 17406 000000000062 BCI 1,00000S STANDARD SCRATCH TAPE CONVENTION 9P057000 | 17407 +000400400000 OCT 000400400000 9P057010 | 17410 000000000060 BCI 1,00000 UNLABELLED 9P057020 | 17411 +000000000000 OCT 000000000000 9P057030 | * SEQUENCE COUNT FLAG TABLE 9P057050 | | 17412 000000000062 BW05 BCI 1,00000S YES-FORCE BINARY MODE 9P057070 | 17413 +004200000000 OCT 004200000000 9P057080 | 17414 000000000060 BCI 1,00000 NO 9P057090 17415 +000000000000 OCT 000000000000 9P057100 | | * CHECKSUM FLAG TABLE 9P057120 | | 17416 000000000023 BW06 BCI 1,00000C YES-FORCE BINARY MODE, SEQUENCE 9P057140 17417 +004300000000 OCT 004300000000 9P057150 | 17420 000000000060 BCI 1,00000 NO 9P057160 | 17421 +000000000000 OCT 000000000000 9P057170 | | * CHECKPOINT CONVENTION TABLE 9P057190 | 17422 000000000002 BW07 BCI 1,000002 CHECKPOINT ON THIS FILE 9P057210 | 17423 +200000000000 OCT 200000000000 9P057220 | 17424 000000000026 BCI 1,00000F 9P057230 | 17425 +200000000000 OCT 200000000000 9P057240 17426 000000000001 BCI 1,000001 CHECKPOINT ON CHECKPOINT FILE 9P057250 | 17427 +100000000000 OCT 100000000000 9P057260 | 17430 000000000023 BCI 1,00000C 9P057270 | 17431 +100000000000 OCT 100000000000 9P057280 | 17432 000000000000 BCI 1,000000 9P057290 17433 +000000000000 OCT 000000000000 9P057300 | | * IMMEDIATE MOUNTING FLAG 9P057320 | | 17434 000000000060 BW08 BCI 1,00000 NO 9P057340 17435 +000000000000 OCT 000000000000 9P057350 | 17436 000000000054 BCI 1,00000* 9P057360 | 17437 -000000400000 OCT 400000400000 9P057370 | | * IOCS LOADING CONTROL TABLE 9P057390 | 17440 000000000025 BW09 BCI 1,00000E EXECUTOR ONLY 9P057410 | 17441 0 00000 0 00003 PZE 3 9P057420 | 17442 000000000044 BCI 1,00000M MINIMUM IOCS 9P057430 | 17443 0 00000 0 00002 PZE 2 9P057440 17444 000000000022 BCI 1,00000B BASIC IOCS WITHOUT LABELS 9P057450 | 17445 0 00000 0 00001 PZE 1 9P057460 | 17446 000000000043 BCI 1,00000L IOCS WITH LABEL PACKAGE 9P057470 | 17447 0 00000 0 00000 PZE 0 9P057480 | 1 LISTING OF 12/01/64 PAGE 131 CONTROL CARD OPERATION LIST | | * LIST CONTROL FLAG 9P057500 | | 17450 000000000060 BW10 BCI 1,00000 LIST THIS FILE 9P057520 17451 0 00000 0 00000 PZE 0 9P057530 | 17452 000000000045 BCI 1,00000N DO NOT LIST 9P057540 | 17453 -0 00000 0 00000 MZE 0 9P057550 | | * RESTART POSITIONING CONTROL FLAG 9P057570 | 17454 000000000060 BW11 BCI 1,00000 BLANK-REPOSITION 9P057590 | 17455 0 00000 0 00000 PZE 0 9P057600 | 17456 000000000045 BCI 1,00000N SUPPRESS RESTART REPOSITIONING 9P057610 | 17457 0 00000 0 00001 PZE 1 9P057620 | * CONVERSION TABLE FOR FIELD SCAN 9P057640 | | 17460 +000000000001 BZ00 OCT 000000000001 0 9P057660 | 17461 +010000000001 OCT 010000000001 1 9P057670 17462 +020000000001 OCT 020000000001 2 9P057680 | 17463 +030000000001 OCT 030000000001 3 9P057690 | 17464 +040000000001 OCT 040000000001 4 9P057700 | 17465 +050000000001 OCT 050000000001 5 9P057710 | 17466 +060000000001 OCT 060000000001 6 9P057720 17467 +070000000001 OCT 070000000001 7 9P057730 | 17470 +100000000002 OCT 100000000002 8 9P057740 | 17471 +110000000002 OCT 110000000002 9 9P057750 | 17472 -140000000100 OCT 540000000100 ILLEGAL(*) 9P057760 | 17473 +130000000040 OCT 130000000040 = 9P057770 17474 +140000000040 OCT 140000000040 , 9P057780 | 17475 -140000000100 OCT 540000000100 ILLEGAL(*) 9P057790 | 17476 -140000000100 OCT 540000000100 ILLEGAL(*) 9P057800 | 17477 -140000000100 OCT 540000000100 ILLEGAL(*) 9P057810 | 17500 +200000000040 OCT 200000000040 + 9P057820 17501 +210000000004 OCT 210000000004 A 9P057830 | 17502 +220000000004 OCT 220000000004 B 9P057840 | 17503 +230000000004 OCT 230000000004 C 9P057850 | 17504 +240000000004 OCT 240000000004 D 9P057860 | 17505 +250000000004 OCT 250000000004 E 9P057870 17506 +260000000004 OCT 260000000004 F 9P057880 | 17507 +270000000004 OCT 270000000004 G 9P057890 | 17510 +300000000004 OCT 300000000004 H 9P057900 | 17511 +310000000004 OCT 310000000004 I 9P057910 | 17512 +320000000040 OCT 320000000040 0-11 9P057920 17513 +330000000040 OCT 330000000040 . 9P057930 | 17514 +340000000040 OCT 340000000040 ) 9P057940 | 17515 -140000000100 OCT 540000000100 ILLEGAL(*) 9P057950 | 17516 -140000000100 OCT 540000000100 ILLEGAL(*) 9P057960 | 17517 -140000000100 OCT 540000000100 ILLEGAL(*) 9P057970 17520 -000000000040 OCT 400000000040 - 9P057980 | 17521 -010000000010 OCT 410000000010 J 9P057990 | 17522 -020000000010 OCT 420000000010 K 9P058000 | 17523 -030000000010 OCT 430000000010 L 9P058010 | 17524 -040000000010 OCT 440000000010 M 9P058020 17525 -050000000010 OCT 450000000010 N 9P058030 | 17526 -060000000010 OCT 460000000010 O 9P058040 | 1 LISTING OF 12/01/64 PAGE 132 | CONTROL CARD OPERATION LIST | 17527 -070000000010 OCT 470000000010 P 9P058050 | 17530 -100000000010 OCT 500000000010 Q 9P058060 | 17531 -110000000010 OCT 510000000010 R 9P058070 | 17532 -120000000040 OCT 520000000040 0-12 9P058080 | 17533 -130000000040 OCT 530000000040 $ 9P058090 17534 -140000000040 OCT 540000000040 $ 9P058100 | 17535 -140000000100 OCT 540000000100 ILLEGAL(*) 9P058110 | 17536 -140000000100 OCT 540000000100 ILLEGAL(*) 9P058120 | 17537 -140000000100 OCT 540000000100 ILLEGAL(*) 9P058130 | 17540 +000000000000 OCT 000000000000 BLANK 9P058140 17541 -210000000040 OCT 610000000040 / 9P058150 | 17542 -220000000020 OCT 620000000020 S 9P058160 | 17543 -230000000020 OCT 630000000020 T 9P058170 | 17544 -240000000020 OCT 640000000020 U 9P058180 | 17545 -250000000020 OCT 650000000020 V 9P058190 17546 -260000000020 OCT 660000000020 W 9P058200 | 17547 -270000000020 OCT 670000000020 X 9P058210 | 17550 -300000000020 OCT 700000000020 Y 9P058220 | 17551 -310000000020 OCT 710000000020 Z 9P058230 | 17552 -140000000100 OCT 540000000100 ILLEGAL(*) 9P058240 17553 -330000000040 OCT 730000000040 , 9P058250 | 17554 -340000000040 OCT 740000000040 ( 9P058260 | 17555 -140000000100 OCT 540000000100 ILLEGAL(*) 9P058270 | 17556 -140000000100 OCT 540000000100 ILLEGAL(*) 9P058280 | 17557 -140000000100 OCT 540000000100 ILLEGAL(*) 9P058290 17560 -200000000001 BZ10 OCT 600000000001 9P058300 | 17561 -200000000000 OCT 600000000000 9P058310 | 17562 +000000000001 BZ12 OCT 000000000001 9P058320 | | | | 1 LISTING OF 12/01/64 PAGE 133 | OVERLAYS OF IOCS PREPROCESSOR ROUTINES USED WITH 9PAC | * 9P058390 | * 9P058400 | * 9P058410 | 17563 000000000064 BW12 BCI 1,00000U CLOSE OPTIONS 9P058420 | 17564 +000000000000 OCT 00000000 9P058430 17565 000000000045 BCI 1,00000N 9P058440 | 17566 +000040000000 OCT 40000000 9P058450 | 17567 000000000062 BCI 1,00000S 9P058460 | 17570 +000050000000 OCT 50000000 9P058470 | 17571 000000000051 BCI 1,00000R 9P058480 17572 +000020000000 OCT 20000000 9P058490 | 17573 000000000045 BW13 BCI 1,00000N OPEN OPTIONS 9P058500 | 17574 +000004000000 OCT 4000000 9P058510 | 17575 000000000062 BCI 1,00000S 9P058520 | 17576 +000005000000 OCT 5000000 9P058530 17577 000000000051 BCI 1,00000R 9P058540 | 17600 +000000000000 OCT 0000000 9P058550 | 17601 0 00000 0 00000 BZERO PZE 0 9P058560 | 17602 -0 00000 0 00000 BMZE MZE 0 9P058570 | 17603 0 00000 0 00001 BONE PZE 1 9P058580 17604 0 00000 0 00002 BTWO PZE 2 9P058590 | 17605 0 00000 0 00012 BTEN PZE 10 9P058600 | 17606 606060606060 BLANKZ BCI 1, 9P058610 | 17607 0 00000 0 00014 BFCB PZE BFCBL LENGTH OF FILE CONTROL BLOCK 9P058620 | 17610 0 00000 0 04714 BSNK PZE L(0) 9P058630 * 9P058640 | * BUFFERS 9P058650 | * 9P058660 | 17611 BQ00 BSS 24 CONTROL CARD OUTPUT BUFFER 9P058670 | 17641 DUP 1,4 9P058680 17641 0 00000 0 00000 BM00 PZE 0 WORKING STORAGE BLOCK 9P058690 | 17645 DUP 1,3 9P058700 | 17645 0 00000 0 00000 BN00 PZE 0 WORKING STORAGE BLOCK 9P058710 | * 9P058720 | *SPECIAL 9PAC DEFINITIONS OF PREPROCESSOR LOCATIONS 9P058730 * 9P058740 | 05642 BERR SYN NLIST 9P058750 | 05642 BWRT SYN NLIST 9P058760 | 17650 0 00000 0 04004 BUFIN PZE FIL19 9P058770 | 17651 0 00000 0 04350 BFORG PZE FIL00 9P058780 17652 0 00000 0 00000 BERCT PZE 0 9P058790 | 04000 BC73 SYN LOST 9P058800 | 04000 BC70 SYN LOST 9P058810 | 04000 BC50 SYN LOST 9P058820 | 17653 0 00000 0 00000 BMORG PZE 0 9P058830 04000 BDATE SYN LOST 9P058840 | 04000 BJ50 SYN LOST 9P058850 | 04000 BB006 SYN LOST 9P058860 | 17654 0 00000 0 00000 BCDCT PZE 0 9P058870 | 17655 0 00000 0 00000 BX00 PZE 0 9P058880 10312 BB00 SYN KC800+1 9P058890 | 17656 SPDEF BSS 0 LAST OF SPECIAL DEFINITIONS 9P058900 | 1 LISTING OF 12/01/64 PAGE 134 | OVERLAYS OF IOCS PREPROCESSOR ROUTINES USED WITH 9PAC | * 9P058920 | *CALCULATE FCB ORIGIN FOR 9PAC STORAGE FIL00-19 9P058930 | * 9P058940 | 17656 BSS BH00-1-* 9P058950 | 13332 3 00023 4 13537 TXH BH04,4,19 ERROR IF EXCEEDS LIMIT 9P058960 13333 0621 00 0 13032 KC125 STA KAB10 9P058970 | 13334 -0130 00 0 00000 XCL 9P058980 | 13335 0204 12 0 17607 VLM BFCB,0,10 9P058990 | 13336 0763 00 0 00012 LLS 10 9P059000 | 13337 0402 00 0 04654 SUB FCBORG 9P059010 13340 0621 00 0 13031 STA KAB09 9P059020 | * 9P059030 | *DEFINE BLANK FILE NUMBER AS ERROR 9P059040 | * 9P059050 | 13341 BSS BFILE+2-* 9P059060 13325 -3 00000 2 13537 TXL BH04,2,0 9P059070 | * 9P059080 | *DEFINE ERROR TO BE FILE 19. 9P059090 | * 9P059100 | 13326 BSS BH03-* 9P059110 13527 0774 00 4 00023 AXT 19,4 9P059120 | 13530 0754 00 4 00000 PXA 0,4 9P059130 | 13531 0020 00 0 13333 TRA KC125 9P059140 | * 9P059150 | *REDEFINE FILE TYPE 9P059160 * 9P059170 | 13532 BSS BH09+9-* 9P059180 | 13415 0 00020 0 13065 PZE KAB40,,2*8 9P059190 | * 9P059200 | *MAKE UNIT ASSIGNMENT A SUBROUTINE 9P059210 * 9P059220 | 13416 BSS SPDEF-* 9P059230 | 17656 0634 00 4 17660 UNITAS SXA UNITA1,4 9P059240 | 17657 0020 00 0 13757 TRA BA000 9P059250 | * 9P059260 17660 0774 00 4 00000 UNITA1 AXT **,4 9P059270 | 17661 0020 00 4 00001 TRA 1,4 9P059280 | 17660 BG08 SYN UNITA1 9P059290 | * 9P059300 | * 9P059310 * 9P059320 | * 9P059330 | * 9P059340 | * 9P059350 | * 9P059360 * 9P059370 | *MAKE FILE LIST A SUBROUTINE 9P059380 | * 9P059390 | 17662 BSS UNITA1+2-* 9P059400 | 17662 0634 00 4 17666 BC009P SXA BC709P+2,4 9P059410 17663 0020 00 0 16101 TRA BC00 9P059420 | * 9P059430 | 17664 0520 00 0 17652 BC709P ZET BERCT 9P059440 | 17665 0074 00 4 00712 TSX (PAUSE,4 9P059450 | 17666 0774 00 4 00000 AXT **,4 9P059460 1 LISTING OF 12/01/64 PAGE 135 | OVERLAYS OF IOCS PREPROCESSOR ROUTINES USED WITH 9PAC | | 17667 0020 00 4 00001 TRA 1,4 9P059470 | * 9P059480 * 9P059490 | *MODIFICATIONS TO FILE LIST 9P059500 | * 9P059510 | 17670 BSS BC01-1-* 9P059520 | 16105 0774 00 2 77777 AXT -1,2 9P059530 16106 3 00000 1 16303 TXH BC05,1,** IS THIS PASS COMPLETE 9P059540 | * 9P059550 | 16107 BSS BC04-* 9P059560 | 16243 1 00014 1 16106 BC049P TXI BC01,1,BFCBL 9P059570 | * 9P059580 16244 BSS BC05-* 9P059590 | 16303 0761 00 0 00000 NOP 9P059600 | 16304 0761 00 0 00000 NOP 9P059610 | 16305 0761 00 0 00000 NOP 9P059620 | 16306 0020 00 0 17664 TRA BC709P 9P059630 * 9P059640 | * 9P059650 | *MODIFICATIONS TO BSCAN ROUTINE 9P059660 | * 9P059670 | 16307 BSS BS05-3-* 9P059680 17237 -0500 00 4 04621 CAL CARD,4 9P059690 | 17240 0560 00 4 04622 LDQ CARD+1,4 9P059700 | * 9P059710 | * 9P059720 | *MODIFICATIONS TO FILE NUMBER FIELD DEFINITION 9P059730 * 9P059740 | 17241 BSS BY00-* 9P059750 | 17326 140036000002 VFD 6/6*2,12/30,3/0,15/2 9P059760 | 17327 BSS BC709P+3-* 9P059770 | 1 LISTING OF 12/01/64 PAGE 136 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | 30000 ORG 12288 9P059790 | 30000 +000000600000 CVRS02 OCT 000000600000 SKEL SYMTAP. 9P059800 | 30001 454660224043 CVRS03 BCI 5,NO B-LABEL ON 709-9PAC FILE 9P059810 30006 220000000000 CVRS04 BCI 1,B00000 9P059820 | 30007 470000000000 CVRS05 BCI 1,P00000 9P059830 | 30010 606060606060 NUDICT BCI 7, 9P059840 | 30017 606060606060 BCI 7, 9P059850 | 30026 3 00016 0 30010 CVRS06 IORT NUDICT,,14 9P059860 30027 0 00000 0 00000 CVRS07 PZE 0 RECORD LENGTH. 9P059870 | 30030 -377700000000 CVRS08 OCT 777700000000 9P059880 | 30031 0 00001 0 00000 CVRS09 PZE 0,0,1 9P059890 | 30032 0 00000 0 00000 CVRS10 PZE 0 RECTBL CTR 9P059900 | 30033 0 00000 0 00000 CVRS11 PZE 0 CNTTBL CTR. 9P059910 00226 CVRS12 EQU 150 RECTBL SIZE 9P059920 | 01130 CVRS13 EQU 600 CNTTBL SIZE 9P059930 | 30034 606060606060 CVRS16 BCI 1, BLANKS 9P059940 | 30035 3 00016 0 30150 CVRS17 IORT DICREC,,14 9P059950 | 30036 0 00000 2 32153 CVRS18 PZE RECTBL-3,2 9P059960 30037 0 00000 2 32156 CVRS19 PZE CNTTBL,2 9P059970 | 30040 +101000200000 CVRS20 OCT 101000200000 SWITCH UNIT 0 9P059980 | 30041 +101003260000 CVRS21 OCT 101003260000 SWITCH UNIT 7 9P059990 | 30042 0 00000 0 00002 CVRS22 PZE 2 9P060000 | 30043 +007777000000 CVRS23 OCT 007777000000 9P060010 30044 0 00000 0 34436 CVRS24 PZE IOBUFR BULOC-FILE 0 9P060020 | 30045 +007777777777 CVRS30 OCT 007777777777 9P060030 | 30046 600000000000 CVRS31 BCI 1, 00000 9P060040 | 30047 -377777770077 CVRS32 OCT 777777770077 9P060050 | 30050 000000006000 CVRS33 BCI 1,0000 0 9P060060 30051 +000000777777 CVRS34 OCT 000000777777 9P060070 | 30052 606060000000 CVRS35 BCI 1, 000 9P060080 | 30053 -377777000077 CVRS36 OCT 777777000077 9P060090 | 30054 000000606000 CVRS37 BCI 1,000 0 9P060100 | 30055 -370000000000 CVRS38 OCT 770000000000 9P060110 1 LISTING OF 12/01/64 PAGE 137 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | *SUBROUTINE TO READ A DICTIONARY RECORD OF A 9P060130 | * 9PAC STD FILE 9P060140 * 9P060150 | *THE CHECKSUM IS TESTED. 9P060160 | * 9P060170 | *ON RETURN 1,4 --- 9P060180 | * THE DICTIONARY RECORD STARTS IN CELL DICREC. 9P060190 * THE ADDRESS OF CELL DICTRT CONTAINS 9P060200 | * 1 Z-RECORD 9P060210 | * 2 R-RECORD 9P060220 | * 3 P-RECORD 9P060230 | * 4 G-RECORD 9P060240 * 5 F-RECORD 9P060250 | * 6 E-RECORD 9P060260 | * 7 B-RECORD 9P060270 | * 9P060280 | * 9P060290 * 9P060300 | 30056 0634 00 1 30115 CVRRD SXA CVRD30,1 9P060310 | 30057 0634 00 2 30116 SXA CVRD30+1,2 9P060320 | 30060 0634 00 4 30117 SXA CVRD30+2,4 9P060330 | 30061 0774 00 2 00012 AXT 10,2 ERROR COUNT 9P060340 30062 0074 00 4 05255 CVRD10 TSX RD(WR),4 READ RECORD 9P060350 | 30063 0 30147 0 00000 PZE 0,,CVRRD6 9P060360 | 30064 0020 00 0 30066 TRA *+2 9P060370 | 30065 0074 00 4 04000 TSX LOST,4 EOF BEFORE P-LAP. 9P060380 | 30066 0774 00 2 00007 AXT 7,2 9P060390 30067 -0500 00 0 30150 CAL DICREC 9P060400 | 30070 -0320 00 0 30140 ANA CVRRD4 9P060410 | 30071 -0340 00 2 30131 LAS CVRRD2+7,2 9P060420 | 30072 0020 00 0 30074 TRA *+2 9P060430 | 30073 0020 00 0 30076 TRA CVRD20 9P060440 30074 2 00001 2 30071 TIX *-3,2,1 9P060450 | 30075 0761 00 0 00000 NOP INVALID--ASSUME Z 9P060460 | 30076 0634 00 2 30121 CVRD20 SXA DICTRT,2 9P060470 | 30077 -0500 00 2 30140 CAL CVRRD3+7,2 TEST CHECKSUM 9P060480 | 30100 0734 00 4 00000 PAX 0,4 9P060490 30101 -0774 00 2 30150 AXC DICREC,2 9P060500 | 30102 0760 00 0 00000 CLM 9P060510 | 30103 0361 00 2 00000 ACL 0,2 9P060520 | 30104 1 77777 2 30105 TXI *+1,2,-1 9P060530 | 30105 2 00001 4 30103 TIX *-2,4,1 9P060540 30106 0322 00 2 00000 ERA 0,2 9P060550 | 30107 0100 00 0 30115 TZE CVRD30 9P060560 | 30110 0074 00 4 05505 TSX NDSRT,4 CHECKSUM ERROR 9P060570 | 30111 0 00005 0 00000 PZE 0,,5 9P060580 | 30112 2 00001 1 30062 TIX CVRD10,1,1 9P060590 30113 0074 00 4 05642 TSX NLIST,4 9P060600 | 30114 1 00006 0 30141 PON CVRRD5,,6 9P060610 | * 9P060620 | * 9P060630 | 30115 0774 00 1 00000 CVRD30 AXT **,1 9P060640 30116 0774 00 2 00000 AXT **,2 9P060650 | 30117 0774 00 4 00000 AXT **,4 9P060660 | 30120 0020 00 4 00001 TRA 1,4 9P060670 | 1 LISTING OF 12/01/64 PAGE 138 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | * 9P060680 | * 9P060690 | * 9P060700 | 30121 0 00000 0 00000 DICTRT PZE 0 LABEL TYPE 9P060710 30122 220000000000 CVRRD2 BCI 1,B00000 9P060720 | 30123 250000000000 BCI 1,E00000 9P060730 | 30124 260000000000 BCI 1,F00000 9P060740 | 30125 270000000000 BCI 1,G00000 9P060750 | 30126 470000000000 BCI 1,P00000 9P060760 30127 510000000000 BCI 1,R00000 9P060770 | 30130 710000000000 BCI 1,Z00000 9P060780 | 30131 0 00000 0 00010 CVRRD3 PZE 8 B- FULL WORD LENGTH 9P060790 | 30132 0 00000 0 00007 PZE 7 E 9P060800 | 30133 0 00000 0 00014 PZE 12 F 9P060810 30134 0 00000 0 00003 PZE 3 G 9P060820 | 30135 0 00000 0 00010 PZE 8 P 9P060830 | 30136 0 00000 0 00010 PZE 8 R 9P060840 | 30137 0 00000 0 00010 PZE 8 Z 9P060850 | 30140 -370000000000 CVRRD4 OCT 770000000000 9P060860 30141 233042626444 CVRRD5 BCI 6,CHKSUM ERROR READING DICTIONARY 9P060870 | 30147 3 00016 0 30150 CVRRD6 IORT DICREC,,14 9P060880 | 30150 DICREC BSS 14 9P060890 | 1 LISTING OF 12/01/64 PAGE 139 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | * 9P060910 | * SET UP TAPES FOR FILE CONVERTER 9P060920 | * 9P060930 | 30166 -0500 00 0 30000 CVR010 CAL CVRS02 9P060940 30167 -0602 00 0 04531 ORS SYMTAP 9P060950 | 30170 0500 00 0 11360 CLA KDC20 ASSIGN TAPES 9P060960 | 30171 0560 00 0 04377 LDQ LUNBLK 9P060970 | 30172 0074 00 4 17656 TSX UNITAS,4 9P060980 | 30173 0074 00 4 17662 TSX BC009P,4 AND NOTIFY OPERATOR 9P060990 30174 -0500 00 0 04350 CAL FIL00 SET UP SYMTAP. 9P061000 | 30175 0621 00 0 04531 STA SYMTAP 9P061010 | 30176 -0500 00 0 04224 CAL FIL07 9P061020 | 30177 0621 00 0 04522 STA SYMTAP-7 9P061030 | 30200 0074 00 4 05505 TSX NDSRT,4 REWIND BOTH TAPES. 9P061040 30201 0 00003 0 00007 PZE 7,,3 9P061050 | 30202 0074 00 4 05505 TSX NDSRT,4 9P061060 | 30203 0 00003 0 00000 PZE 0,,3 9P061070 | 30204 0441 00 0 04225 LDI FIL07+1 TRANSLATE OR COMPARE 9P061080 | 30205 -0054 00 003000 LFT 003000 9P061090 30206 0020 00 0 30216 TRA CVR015 TRANSLATE 9P061100 | 30207 -0625 00 0 04670 STL IND07 COMPARE 9P061110 | 30210 0500 00 0 04522 CLA SYMTAP-7 IS 7090 FILE LABELED 9P061120 | 30211 0120 00 0 30225 TPL CVR020 NO 9P061130 | 30212 0074 00 4 05255 TSX RD(WR),4 YES--PASS LABEL. 9P061140 30213 0 13120 0 00007 PZE 7,,KAB71 9P061150 | 30214 0020 00 0 30225 TRA CVR020 9P061160 | 30215 0074 00 4 04000 TSX LOST,4 9P061170 | 30216 0500 00 0 04522 CVR015 CLA SYMTAP-7 IS OUTPUT LABELED 9P061180 | 30217 0120 00 0 30225 TPL CVR020 9P061190 30220 0774 00 1 00007 AXT 7,1 9P061200 | 30221 -0774 00 2 04224 AXC FIL07,2 9P061210 | 30222 0074 00 4 12331 TSX KE450,4 WRITE LABELS 9P061220 | 30223 0074 00 4 05505 TSX NDSRT,4 9P061230 | 30224 0 00005 0 00007 PZE 7,,5 ERASE EOF. 9P061240 * 9P061250 | 30225 0074 00 4 30056 CVR020 TSX CVRRD,4 READ B-LABEL. 9P061260 | 30226 0534 00 4 30121 LXA DICTRT,4 9P061270 | 30227 -3 00006 4 30231 TXL *+2,4,6 9P061280 | 30230 -3 00007 4 30237 TXL CVR030,4,7 9P061290 30231 0074 00 4 05642 TSX NLIST,4 NOT B-LABEL. 9P061300 | 30232 1 00005 0 30001 PON CVRS03,,5 9P061310 | 30233 0074 00 4 05642 TSX NLIST,4 9P061320 | 30234 1 00014 0 30150 PON DICREC,,12 9P061330 | 30235 0074 00 4 00712 TSX (PAUSE,4 9P061340 30236 0020 00 0 30225 TRA CVR020 9P061350 | 30237 0774 00 2 00030 CVR030 AXT 24,2 9P061360 | 30240 0560 00 0 30151 LDQ DICREC+1 BLOCKSIZE. 9P061370 | 30241 0074 00 4 17267 TSX BCONV,4 9P061380 | 30242 -0763 00 0 00022 LGL 18 9P061390 30243 0622 00 0 04531 STD SYMTAP 9P061400 | 30244 0520 00 0 04670 ZET IND07 TRANSLATE OR COMPARE 9P061410 | 30245 0020 00 0 30500 TRA CVR200 COMPARE 9P061420 | 30246 -0500 00 0 30006 CAL CVRS04 BUILD NEW B-RECORD 9P061430 | 30247 0602 00 0 30010 SLW NUDICT 9P061440 30250 -0500 00 0 04232 CAL FIL07+6 MOVE FILE SERIAL 9P061450 | 1 LISTING OF 12/01/64 PAGE 140 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | 30251 0602 00 0 30011 SLW NUDICT+1 9P061460 30252 0774 00 4 00003 AXT 3,4 MOVE FILE NAME 9P061470 | 30253 -0500 00 4 04240 CAL FIL07+12,4 9P061480 | 30254 0602 00 4 30015 SLW NUDICT+5,4 9P061490 | 30255 2 00001 4 30253 TIX *-2,4,1 9P061500 | * WRITE B-RECORD 9P061510 30256 0074 00 4 05255 TSX RD(WR),4 9P061520 | 30257 -0 30026 0 00007 FOR 7,,CVRS06 9P061530 | 30260 0020 00 0 30262 TRA CVR040 9P061540 | 30261 0074 00 4 06557 TSX SCEOT,4 ETT WRITING B-REC. 9P061550 | * 9P061560 * 9P061570 | 30262 0074 00 4 30056 CVR040 TSX CVRRD,4 READ A DICT RECORD 9P061580 | 30263 0535 00 4 30121 LAC DICTRT,4 9P061590 | 30264 0020 00 4 30265 TRA *+1,4 9P061600 | 30265 0074 00 4 04000 TSX LOST,4 0 9P061610 30266 0074 00 4 04000 TSX LOST,4 1-Z 9P061620 | 30267 0074 00 4 04000 TSX LOST,4 2-R 9P061630 | 30270 0020 00 0 30430 TRA CVR120 3-P 9P061640 | 30271 0020 00 0 30401 TRA CVR100 4-G 9P061650 | 30272 0020 00 0 30366 TRA CVR090 5-F 9P061660 30273 0020 00 0 30275 TRA CVR050 6-E 9P061670 | 30274 0074 00 4 04000 TSX LOST,4 7-B 9P061680 | * 9P061690 | 30275 -0500 00 0 30151 CVR050 CAL DICREC+1 9P061700 | 30276 0560 00 0 30152 LDQ DICREC+2 9P061710 30277 -0765 00 0 00006 LGR 6 9P061720 | 30300 0774 00 2 00030 AXT 24,2 9P061730 | 30301 0074 00 4 17267 TSX BCONV,4 9P061740 | 30302 0602 00 0 30027 SLW CVRS07 9P061750 | 30303 0340 00 0 72633 CAS NU 9P061760 30304 0602 00 0 72633 SLW NU 9P061770 | 30305 0761 00 0 00000 NOP 9P061780 | 30306 0534 00 4 30032 LXA CVRS10,4 BUILD RECORD TABLE 9P061790 | 30307 -0500 00 0 30151 CAL DICREC+1 9P061800 | 30310 -0763 00 0 00022 LGL 18 9P061810 30311 -0320 00 0 30030 ANA CVRS08 9P061820 | 30312 0602 00 4 32153 SLW RECTBL-3,4 RT 9P061830 | 30313 -0500 00 0 30027 CAL CVRS07 9P061840 | 30314 -0763 00 0 00022 LGL 18 9P061850 | 30315 0602 00 4 32154 SLW RECTBL-2,4 LENGTH 9P061860 30316 1 00003 4 30317 TXI *+1,4,3 9P061870 | 30317 -3 00226 4 30321 TXL CVR060,4,CVRS12 9P061880 | 30320 0074 00 4 04000 TSX LOST,4 9P061890 | 30321 0634 00 4 30032 CVR060 SXA CVRS10,4 9P061900 | 30322 -0500 00 0 72703 CAL TBLTL 9P061910 30323 0400 00 0 30031 ADD CVRS09 9P061920 | 30324 0602 00 0 72703 SLW TBLTL 9P061930 | * BUILD COUNT TABLE 9P061940 | 30325 0534 00 4 30033 LXA CVRS11,4 9P061950 | 30326 -0500 00 0 30151 CAL DICREC+1 9P061960 30327 -0763 00 0 00022 LGL 18 9P061970 | 30330 -0320 00 0 30030 ANA CVRS08 9P061980 | 30331 0602 00 4 32156 SLW CNTTBL,4 9P061990 | 30332 1 77764 4 30333 TXI *+1,4,-12 9P062000 | 1 LISTING OF 12/01/64 PAGE 141 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | 30333 3 76647 4 30335 TXH CVR070,4,-CVRS13-1 9P062010 | 30334 0074 00 4 04000 TSX LOST,4 9P062020 | 30335 0634 00 4 30033 CVR070 SXA CVRS11,4 9P062030 30336 -0500 00 0 72600 CAL CTTBL-7 9P062040 | 30337 0400 00 0 30031 ADD CVRS09 9P062050 | 30340 0602 00 0 72600 SLW CTTBL-7 9P062060 | 30341 -0500 00 0 30152 CAL DICREC+2 BLANK OUT GH--NO LONGER USED 9P062070 | 30342 -0320 00 0 30047 ANA CVRS32 9P062080 30343 -0501 00 0 30050 ORA CVRS33 9P062090 | 30344 0602 00 0 30152 SLW DICREC+2 9P062100 | 30345 0520 00 0 04670 ZET IND07 TRANSLATE OR COMPARE 9P062110 | 30346 0020 00 0 30531 TRA CVR240+1 9P062120 | 30347 -0500 00 0 04232 CAL FIL07+6 TRANSLATE-- 9P062130 30350 -0320 00 0 30045 ANA CVRS30 USE NEW FILE SERIAL 9P062140 | 30351 -0501 00 0 30123 ORA CVRRD2+1 9P062150 | 30352 0602 00 0 30150 SLW DICREC 9P062160 | 30353 0560 00 0 30156 LDQ DICREC+6 9P062170 | 30354 -0763 00 0 00006 LGL 6 9P062180 30355 0560 00 0 30034 LDQ CVRS16 9P062190 | 30356 -0763 00 0 00036 LGL 30 9P062200 | 30357 0602 00 0 30156 SLW DICREC+6 9P062210 | 30360 0774 00 4 00006 AXT 6,4 9P062220 | 30361 -0500 00 0 30151 CAL DICREC+1 9P062230 30362 -0320 00 0 30045 ANA CVRS30 9P062240 | 30363 -0501 00 0 30046 ORA CVRS31 9P062250 | 30364 0602 00 0 30151 SLW DICREC+1 9P062260 | 30365 0020 00 0 30410 TRA CVR110 9P062270 | * 9P062280 * 9P062290 | 30366 0560 00 0 30162 CVR090 LDQ DICREC+10 AN F RECORD 9P062300 | 30367 -0763 00 0 00014 LGL 12 9P062310 | 30370 0560 00 0 30034 LDQ CVRS16 9P062320 | 30371 -0763 00 0 00030 LGL 24 9P062330 30372 0602 00 0 30162 SLW DICREC+10 9P062340 | 30373 -0500 00 0 30152 CAL DICREC+2 DO NOT MOVE FLD DESIG 9P062350 | 30374 -0320 00 0 30053 ANA CVRS36 9P062360 | 30375 -0501 00 0 30054 ORA CVRS37 9P062370 | 30376 0602 00 0 30152 SLW DICREC+2 9P062380 30377 0774 00 4 00012 AXT 10,4 9P062390 | 30400 0020 00 0 30410 TRA CVR110 9P062400 | * 9P062410 | * 9P062420 | 30401 0560 00 0 30152 CVR100 LDQ DICREC+2 A G RECORD 9P062430 30402 -0763 00 0 00006 LGL 6 9P062440 | 30403 0560 00 0 30034 LDQ CVRS16 9P062450 | 30404 -0763 00 0 00036 LGL 30 9P062460 | 30405 0602 00 0 30152 SLW DICREC+2 9P062470 | 30406 0774 00 4 00002 AXT 2,4 9P062480 30407 0020 00 0 30410 TRA CVR110 9P062490 | 30410 -0774 00 1 30150 CVR110 AXC DICREC,1 MOVE REST OF RECORD 9P062500 | 30411 -0774 00 2 30010 AXC NUDICT,2 9P062510 | 30412 -0500 00 1 00000 CAL 0,1 9P062520 | 30413 0602 00 2 00000 SLW 0,2 9P062530 30414 1 77777 1 30415 TXI *+1,1,-1 9P062540 | 30415 1 77777 2 30416 TXI *+1,2,-1 9P062550 | 1 LISTING OF 12/01/64 PAGE 142 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | 30416 2 00001 4 30412 TIX *-4,4,1 9P062560 | 30417 0074 00 4 05255 TSX RD(WR),4 AND WRITE 9P062570 | 30420 -0 30026 0 00007 FOR 7,,CVRS06 9P062580 | 30421 0020 00 0 30423 TRA *+2 9P062590 | 30422 0074 00 4 06557 TSX SCEOT,4 9P062600 30423 0774 00 4 00016 AXT 14,4 BLANK AREA 9P062610 | 30424 -0500 00 0 30034 CAL CVRS16 9P062620 | 30425 0602 00 4 30026 SLW NUDICT+14,4 9P062630 | 30426 2 00001 4 30425 TIX *-1,4,1 9P062640 | 30427 0020 00 0 30262 TRA CVR040 9P062650 30430 -0500 00 0 30007 CVR120 CAL CVRS05 A P-RECORD. 9P062660 | 30431 0602 00 0 30010 SLW NUDICT 9P062670 | 30432 -0500 00 0 04232 CAL FIL07+6 MOVE FILE SERIAL 9P062680 | 30433 0602 00 0 30011 SLW NUDICT+1 9P062690 | 30434 0774 00 4 00003 AXT 3,4 MOVE FILE NAME 9P062700 30435 -0500 00 4 04240 CAL FIL07+12,4 9P062710 | 30436 0602 00 4 30015 SLW NUDICT+5,4 9P062720 | 30437 2 00001 4 30435 TIX *-2,4,1 9P062730 | * 9P062740 | 30440 0074 00 4 05255 TSX RD(WR),4 9P062750 30441 -0 30026 0 00007 FOR 7,,CVRS06 9P062760 | 30442 0020 00 0 30444 TRA CVR130 9P062770 | 30443 0074 00 4 06557 TSX SCEOT,4 9P062780 | 30444 0074 00 4 05255 CVR130 TSX RD(WR),4 PASS EOF IN. 9P062790 | 30445 0 30035 0 00000 PZE 0,,CVRS17 9P062800 30446 0074 00 4 04000 TSX LOST,4 9P062810 | 30447 0074 00 4 05505 TSX NDSRT,4 WRITE EOF OUT 9P062820 | 30450 0 00007 0 00007 PZE 7,,7 9P062830 | 30451 0020 00 0 30637 TRA CVR400 9P062840 | *SUBROUTINE TO PRINT MESSAGE WHEN DICTIONARY RECORDS 9P062850 * DO NOT COMPARE. 9P062860 | * 9P062870 | * 9P062880 | 30452 0634 00 4 30467 DICERR SXA DICER2,4 9P062890 | 30453 -0500 00 4 00001 CAL 1,4 9P062900 30454 0400 00 0 30471 ADD DICER5 9P062910 | 30455 0622 00 0 30464 STD DICER1+1 9P062920 | 30456 0520 00 0 30472 ZET DICER6 9P062930 | 30457 0020 00 0 30463 TRA DICER1 9P062940 | 30460 -0625 00 0 30472 STL DICER6 9P062950 30461 0074 00 4 05642 TSX NLIST,4 9P062960 | 30462 1 00005 0 30473 PON DICER7,,5 9P062970 | 30463 0074 00 4 05642 DICER1 TSX NLIST,4 9P062980 | 30464 1 00000 0 30150 PON DICREC,,** 9P062990 | 30465 0074 00 4 05642 TSX NLIST,4 9P063000 30466 0 00016 0 30010 PZE NUDICT,,14 9P063010 | 30467 0774 00 4 00000 DICER2 AXT **,4 9P063020 | 30470 0020 00 4 00002 TRA 2,4 9P063030 | * 9P063040 | * 9P063050 30471 0 00001 0 00000 DICER5 PZE 0,0,1 9P063060 | 30472 0 00000 0 00000 DICER6 PZE 0 9P063070 | 30473 633025602646 DICER7 BCI 5,THE FOLLOWING DO NOT COMPARE 9P063080 | *COMPARISON OF 709 AND 7090 FILES 9P063090 | * 9P063100 1 LISTING OF 12/01/64 PAGE 143 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | * 9P063110 | * 9P063120 30500 0074 00 4 05255 CVR200 TSX RD(WR),4 READ 7090 9P063130 | 30501 0 30026 0 00007 PZE 7,,CVRS06 9P063140 | 30502 0020 00 0 30506 TRA *+4 9P063150 | 30503 0020 00 0 30500 TRA CVR200 9P063160 | 30504 -0500 00 0 30010 CAL NUDICT IS IT A B-LABEL 9P063170 30505 -0320 00 0 30140 ANA CVRRD4 9P063180 | 30506 0322 00 0 30006 ERA CVRS04 9P063190 | 30507 0100 00 0 30512 TZE CVR230 9P063200 | 30510 0074 00 4 30452 CVR220 TSX DICERR,4 9P063210 | 30511 0 00005 0 00000 PZE 0,0,5 9P063220 30512 0074 00 4 05255 CVR230 TSX RD(WR),4 READ A 7090 DICT 9P063230 | 30513 0 30026 0 00007 PZE 7,,CVRS06 9P063240 | 30514 0020 00 0 30515 TRA CVR235 9P063250 | 30515 0074 00 4 30056 CVR235 TSX CVRRD,4 READ A 709 DICT 9P063260 | 30516 0535 00 4 30121 LAC DICTRT,4 9P063270 30517 0020 00 4 30520 TRA *+1,4 9P063280 | 30520 0074 00 4 04000 TSX LOST,4 0 9P063290 | 30521 0074 00 4 04000 TSX LOST,4 1-Z 9P063300 | 30522 0074 00 4 04000 TSX LOST,4 2-R 9P063310 | 30523 0020 00 0 30621 TRA CVR300 3-P 9P063320 30524 0020 00 0 30572 TRA CVR260 4-G 9P063330 | 30525 0020 00 0 30554 TRA CVR250 5-F 9P063340 | 30526 0020 00 0 30530 TRA CVR240 6-E 9P063350 | 30527 0074 00 4 04000 TSX LOST,4 7-B 9P063360 | 30530 0020 00 0 30275 CVR240 TRA CVR050 AN E RECORD 9P063370 30531 -0500 00 0 30047 CAL CVRS32 DO NOT COMPARE GH ZIGGER 9P063380 | 30532 0320 00 0 30152 ANS DICREC+2 9P063390 | 30533 0320 00 0 30012 ANS NUDICT+2 9P063400 | 30534 -0500 00 0 30055 CAL CVRS38 DO NOT COMPARE FILE SERIAL 9P063410 | 30535 0320 00 0 30150 ANS DICREC 9P063420 30536 0320 00 0 30010 ANS NUDICT 9P063430 | 30537 -0500 00 0 30051 CAL CVRS34 9P063440 | 30540 0320 00 0 30151 ANS DICREC+1 9P063450 | 30541 0320 00 0 30011 ANS NUDICT+1 9P063460 | 30542 0560 00 0 30156 LDQ DICREC+6 9P063470 30543 -0763 00 0 00006 LGL 6 9P063480 | 30544 0560 00 0 30034 LDQ CVRS16 9P063490 | 30545 -0763 00 0 00036 LGL 30 9P063500 | 30546 0322 00 0 30016 ERA NUDICT+6 9P063510 | 30547 0774 00 4 00006 AXT 6,4 9P063520 30550 0100 00 0 30604 TZE CVR270 9P063530 | 30551 0074 00 4 30452 TSX DICERR,4 9P063540 | 30552 0 00006 0 00000 PZE 0,0,6 9P063550 | 30553 0020 00 0 30512 TRA CVR230 9P063560 | * 9P063570 * 9P063580 | 30554 -0500 00 0 30152 CVR250 CAL DICREC+2 AN F RECORD 9P063590 | 30555 -0320 00 0 30053 ANA CVRS36 9P063600 | 30556 -0501 00 0 30054 ORA CVRS37 9P063610 | 30557 0602 00 0 30152 SLW DICREC+2 9P063620 30560 0560 00 0 30162 LDQ DICREC+10 9P063630 | 30561 -0763 00 0 00014 LGL 12 9P063640 | 30562 0560 00 0 30034 LDQ CVRS16 9P063650 | 1 LISTING OF 12/01/64 PAGE 144 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | 30563 -0763 00 0 00030 LGL 24 9P063660 | 30564 0774 00 4 00012 AXT 10,4 9P063670 | 30565 0322 00 0 30022 ERA NUDICT+10 9P063680 | 30566 0100 00 0 30604 TZE CVR270 9P063690 30567 0074 00 4 30452 TSX DICERR,4 9P063700 | 30570 0 00012 0 00000 PZE 0,0,10 9P063710 | 30571 0020 00 0 30512 TRA CVR230 9P063720 | * 9P063730 | * 9P063740 30572 0560 00 0 30152 CVR260 LDQ DICREC+2 A G RECORD 9P063750 | 30573 -0763 00 0 00006 LGL 6 9P063760 | 30574 0560 00 0 30034 LDQ CVRS16 9P063770 | 30575 -0763 00 0 00036 LGL 30 9P063780 | 30576 0774 00 4 00002 AXT 2,4 9P063790 30577 0322 00 0 30012 ERA NUDICT+2 9P063800 | 30600 0100 00 0 30604 TZE CVR270 9P063810 | 30601 0074 00 4 30452 TSX DICERR,4 9P063820 | 30602 0 00002 0 00000 PZE 0,0,2 9P063830 | 30603 0020 00 0 30512 TRA CVR230 9P063840 * 9P063850 | * 9P063860 | *COMPARE REMAINDER OF RECORD 9P063870 | * 9P063880 | * 9P063890 30604 -0634 00 4 30617 CVR270 SXD CVR275+1,4 9P063900 | 30605 -0774 00 1 30150 AXC DICREC,1 9P063910 | 30606 -0774 00 2 30010 AXC NUDICT,2 9P063920 | 30607 -0500 00 1 00000 CAL 0,1 9P063930 | 30610 0322 00 2 00000 ERA 0,2 9P063940 30611 -0100 00 0 30616 TNZ CVR275 9P063950 | 30612 1 77777 1 30613 TXI *+1,1,-1 9P063960 | 30613 1 77777 2 30614 TXI *+1,2,-1 9P063970 | 30614 2 00001 4 30607 TIX *-5,4,1 9P063980 | 30615 0020 00 0 30512 TRA CVR230 9P063990 * 9P064000 | 30616 0074 00 4 30452 CVR275 TSX DICERR,4 9P064010 | 30617 0 00000 0 00000 PZE 0 9P064020 | 30620 0020 00 0 30512 TRA CVR230 9P064030 | * 9P064040 30621 -0500 00 0 30010 CVR300 CAL NUDICT A 709 P-LABEL 9P064050 | 30622 -0320 00 0 30140 ANA CVRRD4 IS IT A 7090 P-LABEL ALSO 9P064060 | 30623 0322 00 0 30007 ERA CVRS05 9P064070 | 30624 0100 00 0 30630 TZE CVR320 9P064080 | 30625 0074 00 4 30452 CVR310 TSX DICERR,4 9P064090 30626 0 00005 0 00000 PZE 0,0,5 9P064100 | 30627 0020 00 0 30630 TRA CVR320 9P064110 | * 9P064120 | * 9P064130 | 30630 0074 00 4 05255 CVR320 TSX RD(WR),4 PASS EOF 9P064140 30631 0 30035 0 00000 PZE 0,,CVRS17 9P064150 | 30632 0074 00 4 04000 TSX LOST,4 9P064160 | 30633 0074 00 4 05255 TSX RD(WR),4 9P064170 | 30634 0 30026 0 00007 PZE 7,,CVRS06 9P064180 | 30635 0074 00 4 04000 TSX LOST,4 9P064190 30636 0020 00 0 30637 TRA CVR400 9P064200 | 1 LISTING OF 12/01/64 PAGE 145 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | *CLEAN UP AND INITIALIZE FOR TEXT. 9P064220 * 9P064230 | * 9P064240 | * 9P064250 | 30637 -0500 00 0 30036 CVR400 CAL CVRS18 COMPLETE 9P064260 | 30640 0400 00 0 72703 ADD TBLTL 9P064270 30641 0602 00 0 72703 SLW TBLTL 709 RECORD TABLE 9P064280 | 30642 0602 00 0 72674 SLW TBLTL-7 7090 RECORD TABLE 9P064290 | 30643 -0500 00 0 30037 CAL CVRS19 9P064300 | 30644 0400 00 0 72600 ADD CTTBL-7 9P064310 | 30645 0602 00 0 72600 SLW CTTBL-7 COUNT TABLE 9P064320 30646 -0500 00 0 72633 CAL NU 9P064330 | 30647 0602 00 0 72624 SLW NU-7 MAX REC LENGTH TABLE 9P064340 | 30650 0500 00 0 04354 CLA FIL00+4 CLOSE OPTION 9P064350 | 30651 -0765 00 0 00017 LGR 15 9P064360 | 30652 0630 00 0 04354 STP FIL00+4 9P064370 30653 -0737 00 4 00000 PDC 0,4 9P064380 | 30654 -0500 00 0 30040 CAL CVRS20 9P064390 | 30655 -0501 00 4 31312 ORA SCES06,4 9P064400 | 30656 0602 00 0 72657 SLW SWTCH 709 SWITCH TABLE 9P064410 | 30657 0500 00 0 04230 CLA FIL07+4 9P064420 30660 -0765 00 0 00017 LGR 15 9P064430 | 30661 0630 00 0 04230 STP FIL07+4 9P064440 | 30662 -0737 00 4 00000 PDC 0,4 9P064450 | 30663 -0500 00 0 30041 CAL CVRS21 9P064460 | 30664 0520 00 0 04670 ZET IND07 9P064470 30665 -0500 00 0 30040 CAL CVRS20 9P064480 | 30666 -0501 00 4 31312 ORA SCES06,4 9P064490 | 30667 0602 00 0 72650 SLW SWTCH-7 7090 SWITCH TABLE 9P064500 | 30670 -0500 00 0 04531 CVR410 CAL SYMTAP BUSZE TABLE 9P064510 | 30671 -0320 00 0 30043 ANA CVRS23 9P064520 30672 0400 00 0 30042 ADD CVRS22 9P064530 | 30673 0602 00 0 72753 SLW BUSZE 9P064540 | 30674 -0500 00 0 04522 CAL SYMTAP-7 9P064550 | 30675 -0320 00 0 30043 ANA CVRS23 9P064560 | 30676 0400 00 0 30042 ADD CVRS22 9P064570 30677 0602 00 0 72744 SLW BUSZE-7 9P064580 | * 9P064590 | 30700 -0500 00 0 30044 CAL CVRS24 BULOC TABLE 9P064600 | 30701 0602 00 0 72727 SLW BULOC 9P064610 | 30702 -0500 00 0 04531 CAL SYMTAP 9P064620 30703 -0320 00 0 30043 ANA CVRS23 9P064630 | 30704 -0765 00 0 00022 LGR 18 9P064640 | 30705 0400 00 0 30042 ADD CVRS22 9P064650 | 30706 0767 00 0 00001 ALS 1 MULT BY TWO 9P064660 | 30707 0400 00 0 30042 ADD CVRS22 9P064670 30710 0400 00 0 30044 ADD CVRS24 9P064680 | 30711 0602 00 0 72720 SLW BULOC-7 9P064690 | * 9P064700 | 1 LISTING OF 12/01/64 PAGE 146 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | *BRING IN OBJECT AND COMPARE OR TRANSLATE TEXT 9P064720 | * 9P064730 | * 9P064740 | * 9P064750 30712 0774 00 4 30717 AXT TEXT,4 9P064760 | 30713 0634 00 4 05033 SXA STOBJ,4 9P064770 | 30714 0074 00 4 04752 TSX SYSRD,4 9P064780 | 30715 114721230102 BCI 1,9PAC12 9P064790 | 30716 0 11305 0 17551 PZE DEXIF,,DEXIF-OBJECT 9P064800 1 LISTING OF 12/01/64 PAGE 147 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | *TEXT FILE INITIALIZING ROUTINE 9P064820 | * 9P064830 * 9P064840 | 30717 -0500 00 0 30736 TEXT CAL TEXT10 MODIFY 9 PAC 9P064850 | 30720 0630 00 0 15731 STP JBD30 TO OPEN. NO REW, NO LABELS 9P064860 | 30721 -0500 00 0 30737 CAL TEXT20 9 9P064870 | 30722 0602 00 0 16174 SLW INPUT 9P064880 30723 0774 00 1 00007 AXT 7,1 9P064890 | 30724 0074 00 4 15674 TSX JBA70,4 OPEN IOCS FILE 9P064900 | 30725 0774 00 1 00000 AXT 0,1 9P064910 | 30726 0074 00 4 15674 TSX JBA70,4 OPEN 9PAC STD FILE 9P064920 | 30727 0774 00 4 31332 AXT BLSNT,4 INITIALIZE NEWRD FOR SF 9P064930 30730 0634 00 4 17334 SXA NEWRD,4 9P064940 | 30731 -0520 00 0 04670 NZT IND07 9P064950 | 30732 0020 00 0 30741 TRA MOVE 9P064960 | 30733 -0500 00 0 30740 CAL TEXT30 9P064970 | 30734 0602 00 0 22634 SLW Y6270+2 9P064980 30735 0020 00 0 30760 TRA COMP 9P064990 | * 9P065000 | * 9P065010 | 30736 -1 00000 0 00000 TEXT10 MON 0 9P065020 | 30737 0441 00 1 72657 TEXT20 LDI SWTCH,1 9P065030 30740 1 77767 2 22635 TEXT30 TXI Y6270+3,2,-9 9P065040 | 1 LISTING OF 12/01/64 PAGE 148 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | *ROUTINE TO MOVE 709 STD FILE TO 7090 STD FILE 9P065060 * 9P065070 | 30741 0774 00 1 00000 MOVE AXT 0,1 9P065080 | 30742 0074 00 4 31065 TSX SFREAD,4 9P065090 | 30743 0020 00 0 30745 TRA *+2 9P065100 | 30744 0020 00 0 17005 TRA EOJOB 9P065110 30745 0535 00 1 17310 LAC INLOC,1 9P065120 | 30746 0535 00 2 17301 LAC SFLOC,2 9P065130 | 30747 0534 00 4 15627 LXA RDLEN,4 9P065140 | 30750 -0500 00 1 00000 CAL 0,1 9P065150 | 30751 0602 00 2 00000 SLW 0,2 9P065160 30752 1 77777 1 30753 TXI *+1,1,-1 9P065170 | 30753 1 77777 2 30754 TXI *+1,2,-1 9P065180 | 30754 2 00001 4 30750 TIX *-4,4,1 9P065190 | 30755 0774 00 1 00007 AXT 7,1 9P065200 | 30756 0074 00 4 22641 TSX Y6410,4 9P065210 30757 0020 00 0 30741 TRA MOVE 9P065220 | 1 LISTING OF 12/01/64 PAGE 149 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | *ROUTINE TO COMPARE TEXT OF 709 STD FILE TO 7090 STD FILE 9P065240 * 9P065250 | * 9P065260 | 30760 0774 00 1 00000 COMP AXT 0,1 READ 709 9P065270 | 30761 0074 00 4 31065 TSX SFREAD,4 9P065280 | 30762 0020 00 0 30764 TRA *+2 9P065290 30763 0020 00 0 31031 TRA COMP30 9P065300 | 30764 0774 00 1 00007 AXT 7,1 READ 7090 9P065310 | 30765 0074 00 4 22624 TSX Y6210,4 9P065320 | 30766 0020 00 0 30770 TRA *+2 9P065330 | 30767 0020 00 0 31035 TRA COMP40 9P065340 30770 0535 00 1 17310 LAC INLOC,1 9P065350 | 30771 0535 00 2 17301 LAC SFLOC,2 9P065360 | 30772 0534 00 4 15627 LXA RDLEN,4 9P065370 | 30773 -0500 00 1 00000 CAL 0,1 9P065380 | 30774 0322 00 2 00000 ERA 0,2 9P065390 30775 -0100 00 0 31002 TNZ COMP10 9P065400 | 30776 1 77777 1 30777 TXI *+1,1,-1 9P065410 | 30777 1 77777 2 31000 TXI *+1,2,-1 9P065420 | 31000 2 00001 4 30773 TIX *-5,4,1 9P065430 | 31001 0020 00 0 30760 TRA COMP 9P065440 31002 0522 00 0 31154 COMP10 XEC SFNB25 9P065450 | 31003 -0320 00 0 31040 ANA COMP70 9P065460 | 31004 0602 00 0 20261 SLW BDBIN 9P065470 | 31005 0074 00 4 20213 TSX TOBCD,4 9P065480 | 31006 -0500 00 0 20263 CAL BDBCR 9P065490 31007 0602 00 0 31056 SLW COMP83 9P065500 | 31010 -0500 00 0 04227 CAL FIL07+3 9P065510 | 31011 -0320 00 0 31041 ANA COMP71 9P065520 | 31012 -0765 00 0 00022 LGR 18 9P065530 | 31013 0602 00 0 20261 SLW BDBIN 9P065540 31014 0074 00 4 20213 TSX TOBCD,4 9P065550 | 31015 -0500 00 0 20263 CAL BDBCR 9P065560 | 31016 0602 00 0 31060 SLW COMP83+2 9P065570 | 31017 0520 00 0 31042 ZET COMP75 9P065580 | 31020 0020 00 0 31026 TRA COMP20 9P065590 31021 -0625 00 0 31042 STL COMP75 9P065600 | 31022 0074 00 4 05642 TSX NLIST,4 9P065610 | 31023 1 00010 0 31043 PON COMP80,,8 9P065620 | 31024 0074 00 4 05642 TSX NLIST,4 9P065630 | 31025 0 00003 0 31053 PZE COMP82,,3 9P065640 31026 0074 00 4 05642 COMP20 TSX NLIST,4 9P065650 | 31027 1 00003 0 31056 PON COMP83,,3 9P065660 | 31030 0020 00 0 30760 TRA COMP 9P065670 | 31031 0774 00 1 00007 COMP30 AXT 7,1 EOF ON 709. 9P065680 | 31032 0074 00 4 22624 TSX Y6210,4 9P065690 31033 0020 00 0 31035 TRA COMP40 9P065700 | 31034 0020 00 0 17005 TRA EOJOB 9P065710 | * 9P065720 | 31035 0074 00 4 05642 COMP40 TSX NLIST,4 9P065730 | 31036 1 00004 0 31061 PON COMP84,,4 9P065740 31037 0020 00 0 17005 TRA EOJOB 9P065750 | * 9P065760 | * 9P065770 | 31040 +000000777777 COMP70 OCT 000000777777 9P065780 | 1 LISTING OF 12/01/64 PAGE 150 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | 31041 +077777000000 COMP71 OCT 077777000000 9P065790 | 31042 0 00000 0 00000 COMP75 PZE 0 9P065800 | 31043 512523465124 COMP80 BCI 5,RECORDS IN THE FOLLOWING BLOCKS 9P065810 31050 606024466045 COMP81 BCI 3, DO NOT COMPARE 9P065820 | 31053 600700116060 COMP82 BCI 3, 709 7090 9P065830 | 31056 606060606060 COMP83 BCI 3, 9P065840 | 31061 632147256260 COMP84 BCI 4,TAPES UNEQUAL IN LENGTH 9P065850 | 1 LISTING OF 12/01/64 PAGE 151 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | *SPECIAL ROUTINES TO READ 709 9PAC STD FILES. 9P065870 | * 9P065880 | * 9P065890 31065 0634 00 4 31070 SFREAD SXA SFRD01,4 9P065900 | 31066 0074 00 4 31101 TSX SFINPT,4 TO READ. 9P065910 | 31067 0020 00 0 31072 TRA SFRD02 9P065920 | 31070 0774 00 4 00000 SFRD01 AXT **,4 9P065930 | 31071 0020 00 4 00002 TRA 2,4 EOF RETURN. 9P065940 31072 -0500 60 0 17310 SFRD02 CAL* RECRD 9P065950 | 31073 0074 00 4 22603 TSX Y6010,4 SEARCH FOR RT 9P065960 | 31074 1 77777 2 31075 TXI *+1,2,-1 9P065970 | 31075 0074 00 4 22620 TSX Y6150,4 COUNT 9P065980 | 31076 0534 00 4 31070 LXA SFRD01,4 9P065990 31077 0535 00 2 17301 LAC SFLOC,2 9P066000 | 31100 0020 00 4 00001 TRA 1,4 NORMAL RETURN. 9P066010 | 31101 0634 00 4 15620 SFINPT SXA IDEX4,4 9P066020 | 31102 0634 00 1 15626 SXA UNIT,1 9P066030 | 31103 -0500 60 1 17334 CAL* NEWRD,1 9P066040 31104 -0340 00 0 31332 LAS BLSNT 9P066050 | 31105 0020 00 0 31107 TRA *+2 9P066060 | 31106 0074 00 4 31137 TSX SFNEWB,4 9P066070 | 31107 0500 60 1 17334 CLA* NEWRD,1 REMOVE G.H. ZIGGER 9P066080 | 31110 0602 60 1 17334 SLW* NEWRD,1 9P066090 * 9P066100 | 31111 0500 00 1 72703 CLA TBLTL,1 9P066110 | 31112 -0734 00 4 00000 PDX 0,4 NO. OF RT THIS UNIT 9P066120 | 31113 0774 00 2 00000 AXT 0,2 9P066130 | 31114 -0500 60 1 17334 CAL* NEWRD,1 COMPARE THIS R.T. 9P066140 31115 -0320 00 0 15621 ANA TPMSK 9P066150 | 31116 -0340 60 1 72703 LAS* TBLTL,1 WITH TYPES THIS UNIT 9P066160 | 31117 1 00003 2 31122 TXI *+3,2,3 9P066170 | 31120 1 77777 2 31124 TXI *+4,2,-1 9P066180 | 31121 1 00003 2 31122 TXI *+1,2,3 9P066190 31122 2 00001 4 31116 TIX *-4,4,1 9P066200 | 31123 0074 00 4 16072 TSX TYPER,4 9P066210 | 31124 -0500 00 1 17334 CAL NEWRD,1 9P066220 | 31125 0621 60 1 72703 STA* TBLTL,1 9P066230 | 31126 -0500 60 1 72703 CAL* TBLTL,1 9P066240 31127 0602 00 1 17310 SLW RECRD,1 9P066250 | 31130 -0734 00 4 00000 PDX 0,4 9P066260 | 31131 0754 00 4 00000 PXA 0,4 9P066270 | 31132 0601 00 0 15627 STO RDLEN 9P066280 | 31133 0400 00 1 17334 ADD NEWRD,1 9P066290 31134 0601 00 1 17334 STO NEWRD,1 9P066300 | 31135 0534 00 4 15620 LXA IDEX4,4 9P066310 | 31136 0020 00 4 00001 TRA 1,4 9P066320 | * 9P066330 | * 9P066340 * 9P066350 | *THE FOLLOWING ROUTINE READS A 9PAC STD FILE 9P066360 | * 9P066370 | * 9P066380 | * 9P066390 31137 0634 00 4 31206 SFNEWB SXA SFNB50,4 9P066400 | 31140 0774 00 2 00012 SFNB10 AXT 10,2 9P066410 | 1 LISTING OF 12/01/64 PAGE 152 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | 31141 0754 00 1 00000 PXA 0,1 9P066420 | 31142 0767 00 0 00001 ALS 1 9P066430 | 31143 0734 00 4 00000 PAX 0,4 9P066440 | 31144 -0500 00 4 17240 CAL FILES,4 9P066450 | 31145 0621 00 0 31147 STA *+2 9P066460 31146 0074 00 4 06264 TSX READ,4 9P066470 | 31147 0 04000 0 00000 PZE **,,LOST 9P066480 | 31150 0 31213 0 31217 PZE SFEOF,,SFERR 9P066490 | 31151 3 00000 2 00000 SFNB20 IORTN **,,** 9P066500 | * 9P066510 31152 -0500 00 0 31151 CAL SFNB20 9P066520 | 31153 0621 00 0 31154 STA *+1 9P066530 | 31154 -0500 00 0 00000 SFNB25 CAL ** FIRST WORD 9P066540 | 31155 -0734 00 4 00000 PDX 0,4 9P066550 | 31156 0754 00 4 00000 PXA 0,4 9P066560 31157 0361 00 0 31154 ACL SFNB25 9P066570 | 31160 0621 00 0 31162 STA *+2 9P066580 | 31161 0621 00 0 31164 STA *+3 9P066590 | 31162 -0500 00 0 00000 CAL ** 9P066600 | 31163 0760 00 0 00006 COM 9P066610 31164 0361 00 4 00000 ACL **,4 DEVELOPE CHECKSUM. 9P066620 | 31165 2 00001 4 31164 TIX *-1,4,1 9P066630 | 31166 0760 00 0 00006 COM 9P066640 | 31167 0100 00 0 31172 TZE SFNB30 9P066650 | 31170 0560 00 0 31210 LDQ SFNB60 CHKSUM ERROR. 9P066660 31171 0020 00 0 31213 TRA SFERR 9P066670 | 31172 0500 60 0 31154 SFNB30 CLA* SFNB25 TEST BLOCK SEQ 9P066680 | 31173 -0320 00 0 31212 ANA SFNB62 KEEP TAG, ADDR. 9P066690 | 31174 0340 00 0 31333 CAS SEQNO 9P066700 | 31175 0020 00 0 31177 TRA *+2 9P066710 31176 0020 00 0 31201 TRA SFNB40 9P066720 | 31177 0560 00 0 31211 LDQ SFNB61 9P066730 | 31200 0020 00 0 31213 TRA SFERR 9P066740 | * 9P066750 | 31201 0400 00 0 04673 SFNB40 ADD ONE 9P066760 31202 0601 00 0 31333 STO SEQNO 9P066770 | 31203 -0500 00 0 31154 CAL SFNB25 9P066780 | 31204 0400 00 0 04673 ADD ONE 9P066790 | 31205 0621 00 1 17334 STA NEWRD,1 9P066800 | 31206 0774 00 4 00000 SFNB50 AXT **,4 9P066810 31207 0020 00 4 00001 TRA 1,4 9P066820 | * 9P066830 | * 9P066840 | * 9P066850 | 31210 +200000000000 SFNB60 OCT 200000000000 CHKSUM ERROR 9P066860 31211 +100000000000 SFNB61 OCT 100000000000 BLOCK SEQ ERROR. 9P066870 | 31212 +000000777777 SFNB62 OCT 000000777777 9P066880 | * 9P066890 | *ERROR READING 709 9PAC STD FILE. 9P066900 | * 9P066910 31213 0074 00 4 16416 SFERR TSX JC550,4 9P066920 | 31214 0020 00 0 31141 TRA SFNB10+1 REREAD 9P066930 | 31215 0020 00 0 31140 TRA SFNB10 SKIP 9P066940 | 31216 0020 00 0 31152 TRA SFNB20+1 ACCEPT. 9P066950 | * 9P066960 1 LISTING OF 12/01/64 PAGE 153 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | | *EOF RETURN READING 709 9PAC STD FILE 9P066970 | * 9P066980 * 9P066990 | 31217 0074 00 4 05255 SFEOF TSX RD(WR),4 9P067000 | 31220 0 31331 0 00000 PZE 0,,SCES20 9P067010 | 31221 0761 00 0 00000 NOP 9P067020 | 31222 -0500 00 0 30150 CAL DICREC IS THIS AN R-LABEL 9P067030 31223 -0320 00 0 31305 ANA SCES01 9P067040 | 31224 0322 00 0 31307 ERA SCES03 9P067050 | 31225 0100 00 0 31231 TZE SFEOF1 9P067060 | 31226 0074 00 4 15776 TSX JCA50,4 NO. CLOSE 9P067070 | 31227 0534 00 4 15620 LXA IDEX4,4 NO--GIVE EOF TO MAIN. 9P067080 31230 0020 00 4 00002 TRA 2,4 9P067090 | * 9P067100 | 31231 -0500 00 0 04531 SFEOF1 CAL SYMTAP IS R, START NEXT REEL. 9P067110 | 31232 0737 00 4 00000 PAC 0,4 9P067120 | 31233 0560 00 4 00000 LDQ 0,4 9P067130 31234 0074 00 4 00720 TSX (BCD5R,4 9P067140 | 31235 0602 00 0 31317 SLW SCES10+1 9P067150 | 31236 0074 00 4 05642 TSX NLIST,4 9P067160 | 31237 1 00010 0 31316 PON SCES10,,8 9P067170 | 31240 0074 00 4 00712 TSX (PAUSE,4 9P067180 31241 0074 00 4 05255 SCEOF2 TSX RD(WR),4 READ B-RECORD. 9P067190 | 31242 0 31331 0 00000 PZE 0,,SCES20 9P067200 | 31243 0761 00 0 00000 NOP 9P067210 | 31244 -0500 00 0 30150 CAL DICREC 9P067220 | 31245 -0320 00 0 31305 ANA SCES01 9P067230 31246 0322 00 0 31311 ERA SCES05 9P067240 | 31247 -0100 00 0 31271 TNZ SCEOF4 NOT A B-REC 9P067250 | 31250 -0500 00 0 30150 CAL DICREC 9P067260 | 31251 -0320 00 0 31306 ANA SCES02 9P067270 | 31252 -0765 00 0 00022 LGR 18 9P067280 31253 0602 00 0 20066 SLW B1020 9P067290 | 31254 0074 00 4 17747 TSX TOBIN,4 9P067300 | 31255 0761 00 0 00000 NOP 9P067310 | 31256 0500 00 0 31334 CLA SCESRN 9P067320 | 31257 0400 00 0 04673 ADD ONE 9P067330 31260 0340 00 0 20064 CAS B1000 9P067340 | 31261 0020 00 0 31271 TRA SCEOF4 NOT CORRECT REEL NO. 9P067350 | 31262 0020 00 0 31264 TRA *+2 9P067360 | 31263 0020 00 0 31271 TRA SCEOF4 9P067370 | 31264 0601 00 0 31334 STO SCESRN 9P067380 31265 0074 00 4 05255 SCEOF3 TSX RD(WR),4 PASS EOF 9P067390 | 31266 0 31331 0 00000 PZE 0,,SCES20 9P067400 | 31267 0020 00 0 31265 TRA *-2 9P067410 | 31270 0020 00 0 31140 TRA SFNB10 9P067420 | * 9P067430 31271 0074 00 4 05642 SCEOF4 TSX NLIST,4 9P067440 | 31272 1 00003 0 31326 PON SCES12,,3 9P067450 | 31273 0074 00 4 05642 TSX NLIST,4 9P067460 | 31274 1 00010 0 30150 PON DICREC,,8 9P067470 | 31275 -0774 00 4 31277 AXC *+2,4 9P067480 31276 0634 00 4 16433 SXA JC660+1,4 9P067490 | 31277 0020 00 0 16466 TRA JC860 9P067500 | 31300 0020 00 0 31241 TRA SCEOF2 REREAD 9P067510 | 1 LISTING OF 12/01/64 PAGE 154 | 709-9PAC TO 7090-9PAC FILE TRANSLATOR | 31301 0761 00 0 00000 NOP SKIP 9P067520 | 31302 0500 00 0 20064 CLA B1000 ACCEPT. 9P067530 | 31303 0601 00 0 31334 STO SCESRN 9P067540 | 31304 0020 00 0 31265 TRA SCEOF3 9P067550 * 9P067560 | *STORAGE FOR STD FILE, EOF ROUTINE 9P067570 | * 9P067580 | * 9P067590 | 31305 -370000000000 SCES01 OCT 770000000000 9P067600 31306 +007777000000 SCES02 OCT 007777000000 9P067610 | 31307 510000000000 SCES03 BCI 1,R00000 9P067620 | 31310 710000000000 SCES04 BCI 1,Z00000 9P067630 | 31311 220000000000 SCES05 BCI 1,B00000 9P067640 | 31312 +000000000000 SCES06 OCT 00 CLOSE OPTION TABLE 9P067650 31313 +000000000020 OCT 20 CLOSE OPTION TABLE 9P067660 | 31314 +000000000040 OCT 40 CLOSE OPTION TABLE 9P067670 | 31315 +000000000050 OCT 50 CLOSE OPTION TABLE 9P067680 | 31316 644531636060 SCES10 BCI 5,UNIT , MOUNT NEXT REEL 9P067690 | 31323 070011601147 SCES11 BCI 3,709 9PAC STD FILE 9P067700 31326 224051252346 SCES12 BCI 3,B-RECORD ERROR 9P067710 | 31331 3 00016 0 30150 SCES20 IORT DICREC,,14 9P067720 | 31332 535300000000 BLSNT BCI 1,$$0000 9P067730 | 31333 0 00000 0 00001 SEQNO PZE 1 9P067740 | 31334 0 00000 0 00001 SCESRN PZE 1 REEL NUMBER 9P067750 31335 BSS 100 BOONDOCKS 9P067760 | 31501 REDAOL BSS 1 9P067770 | 32156 RECTBL BES 300 9P067780 | 32156 CNTTBL BSS 1200 9P067790 | 34436 IOBUFR BSS 10000 9P067800 00000 TCD 0 9P067810 | 1 LISTING OF 12/01/64 PAGE 155 | ROUTINES COPIED FROM IOBS | | * 9P067830 60056 BSS OBJECT-* ORIGIN FOR 9PAC OBJECT 9P067840 | * 9P067860 | 06244 114721230104 BCI 1,9PAC14 9P067870 | 06245 462241252363 TCJBO BCI 1,OBJECT 9P067880 | 00100 ORG SYSTRA 9P067890 00100 0020 00 0 05031 TRA START 9P067900 | 06246 ORG TCJBO+1 9P067910 | * 9P067920 | 1 LISTING OF 12/01/64 PAGE 156 | ROUTINES COPIED FROM IOBS | 06246 0021 00 0 06314 IOCS TTR ENDMSG END OF JOB 9P067940 | 06250 BES 1 9P067950 | 06252 BES 2 9P067960 | 06252 -0625 00 0 06537 DEFINE STL ROUTE DEFINE A BUFFER POOL 9P067970 06253 -3 06612 0 06511 TXL ENTRY,,DEFIN. 9P067980 | 06254 -0625 00 0 06537 JOIN STL ROUTE JOIN TWO BUFFER POOLS 9P067990 | 06255 -3 06662 0 06511 TXL ENTRY,,JOINX 9P068000 | 06256 -0625 00 0 06537 ATTACH STL ROUTE ATTACH FILES TO A 9P068010 | 06257 -3 06714 0 06511 TXL ENTRY,,ATTCH. BUFFER POOL 9P068020 06260 -0625 00 0 06537 CLOSE STL ROUTE CLOSE FILE(S),OPTIONALLY 9P068030 | 06261 -3 06701 0 06511 TXL ENTRY,,CLOSE. DETACHING FROM A POOL 9P068040 | 06262 -0625 00 0 06537 OPEN STL ROUTE OPEN A FILE 9P068050 | 06263 -3 07205 0 06511 TXL ENTRY,,OPEN. 9P068060 | 06264 -0625 00 0 06537 READ STL ROUTE BUFFERED READ 9P068070 06265 -3 07333 0 06511 TXL ENTRY,,READ. 9P068080 | 06266 -0625 00 0 06537 WRITE STL ROUTE BUFFERED WRITE 9P068090 | 06267 -3 07360 0 06511 TXL ENTRY,,WRITE. 9P068100 | 06270 -0625 00 0 06537 COPY STL ROUTE TRANSFER INPUT BUFFER(S) 9P068110 | 06271 -3 13155 0 06511 TXL ENTRY,,COPY. TO OUTPUT FILE 9P068120 06272 -0625 00 0 06537 REW STL ROUTE REWIND A FILE 9P068130 | 06273 -3 13424 0 06511 TXL ENTRY,,REW. 9P068140 | 06274 -0625 00 0 06537 WEF STL ROUTE WEF (OUTPUT FILE ONLY) 9P068150 | 06275 -3 13426 0 06511 TXL ENTRY,,WEF. 9P068160 | 06276 -0625 00 0 06537 BSR STL ROUTE BACKSPACE PHYSICAL 9P068170 06277 -3 13345 0 06511 TXL ENTRY,,BSR. RECORD 9P068180 | 06300 -0625 00 0 06537 BSF STL ROUTE BACKSPACE TO BEGINNING 9P068190 | 06301 -3 13373 0 06511 TXL ENTRY,,BSF. OF DATA FILE 9P068200 | 06302 -0625 00 0 06537 CKPT STL ROUTE INITIATE CHECKPOINT 9P068210 | 06303 0020 00 0 13610 TRA CKPT. ON CHECKPOINT FILE 9P068220 06304 -0625 00 0 06537 STASH STL ROUTE BUFFER TRANSFER 9P068230 | 06305 -3 13150 0 06511 TXL ENTRY,,STASH. 9P068240 | 06314 BES 6 9P068250 | 1 LISTING OF 12/01/64 PAGE 157 | ROUTINES COPIED FROM IOBS | 06314 0074 00 4 05642 ENDMSG TSX NLIST,4 9P068270 | 06315 1 00005 0 06317 PON ENDMG1,,5 9P068280 | 06316 0021 00 0 05034 TTR JOBEND 9P068290 | 06317 414622606264 ENDMG1 BCI 5,JOB SUCCESSFULLY EXECUTED. 9P068300 06324 BSS 11 TO FILL SPACE 9P068310 | 06337 -0 00000 0 00000 LFLBLK MZE **,,** L(FILE BLOCK),,SIZE 9P068320 | 06340 0 00000 0 00000 CPFILE PZE ** CURRENT CHECKPOINT FILE 9P068330 | 06341 600000000001 CPSEQ BCI 1, 00001 SEQ NUMBER + 1 OF LAST CHECKPOINT 9P068340 | 06342 0 00000 0 00000 LTSX PZE 0,,** L(TSX) 9P068350 06343 0 00000 0 00000 XEOB PZE 0,,** L( EOB EXIT) 9P068360 | 06344 0 00000 0 00000 XEOF PZE **,,0 L( EOF EXIT) 9P068370 | 06345 0 00000 0 00000 XERR PZE 0,,** L( ERROR EXIT) 9P068380 | 06346 0 00000 0 00000 LTRAD PZE **,,0 LAST TRANSMIT ADDRESS 9P068390 | 06347 0 00000 0 00000 TRANS PZE **,,0 TRANSMIT ADDRESS 9P068400 06350 0 00000 0 00000 WDCT PZE 0,,** WORD COUNT 9P068410 | 06351 0 00000 0 00000 IRS PZE **,,** INDEX REGISTER STORAGE 9P068420 | 06352 0 00000 0 00000 SENSE PZE 0,,0 SENSE INDICATOR STORAGE 9P068430 | 06353 3 00000 0 00000 FCW IORT **,,** IO WORD FOR BUFS AND IN IOCS SWITCH 9P068440 | 06355 BES 1 9P068450 06355 0021 00 0 13653 CKPT1 TTR CHCPT 9P068460 | 06356 0021 00 0 06362 SWITCD TTR MONSW POST SWITCH OF SYSTEM UNITS 9P068470 | 06357 0021 00 0 06431 MONEOF TTR TEOR TEST FOR END OF REEL 9P068480 | * CONTROL SWITCHES 9P068490 | 06360 0760 00 0 00162 SWTC SWT SWTCP 9P068510 | 06361 0760 00 0 00163 SWTE SWT LERIG 9P068520 | 1 LISTING OF 12/01/64 PAGE 158 | ROUTINES COPIED FROM IOBS | * REEL SWITCH POSTING ROUTINE. 9P068540 | 06362 -0500 00 2 00000 MONSW CAL 0,2 NOTE SWITCH IN 9P068550 | 06363 0634 00 4 06370 SXA MONS4,4 SYSTEM UNITS 9P068560 | 06364 0737 00 4 00000 PAC 0,4 TEST FOR 9P068570 | 06365 0622 00 0 06366 STD *+1 SAME UNIT 9P068580 06366 1 00000 4 06367 TXI *+1,4,** X 9P068590 | 06367 3 00000 4 06372 TXH *+3,4,0 SWAP ENTRIES 9P068600 | 06370 0774 00 4 00000 MONS4 AXT **,4 SAME UNIT. 9P068610 | 06371 0020 00 4 00001 TRA 1,4 EXIT 9P068620 | 06372 0621 00 0 06427 STA MONS1 DIFFERENT UNITS SAVE L(UCW)1 9P068630 06373 0771 00 0 00022 ARS 18 X 9P068640 | 06374 0621 00 0 06430 STA MONS2 SAVE L(UCW)2 9P068650 | 06375 -0500 00 0 00107 CAL SYSUNI GET INDEX TO SYSUNI 9P068660 | 06376 0771 00 0 00022 ARS 18 COMPUTE INDEX ADDRESS 9P068670 | 06377 0361 00 0 00107 ACL SYSUNI X 9P068680 06400 0621 00 0 06413 STA MONS3 X 9P068690 | 06401 0634 00 2 06425 SXA MONS5,2 SAVE IR2 9P068700 | 06402 -0534 00 4 00107 LXD SYSUNI,4 NUMBER OF UNITS IN SYSUNI 9P068710 | 06403 -0534 00 2 00107 LXD SYSUNI,2 X 9P068720 | 06404 0621 00 0 06405 STA *+1 X 9P068730 06405 -0500 00 4 00000 MONS6 CAL **,4 FIND SYSTEM FUNCTION 9P068740 | 06406 -0320 00 0 04720 ANA ADDRS USING UNIT 1 9P068750 | 06407 0322 00 0 06427 ERA MONS1 X 9P068760 | 06410 0100 00 0 06413 TZE *+3 FOUND. 9P068770 | 06411 2 00001 4 06405 TIX *-4,4,1 NOT YET. 9P068780 06412 0020 00 0 06425 TRA MONS5 ALL DONE 9P068790 | 06413 -0500 00 2 00000 MONS3 CAL **,2 FIND SYSTEM FUNCTION 9P068800 | 06414 -0320 00 0 04720 ANA ADDRS USING UNIT 2 9P068810 | 06415 0322 00 0 06430 ERA MONS2 X 9P068820 | 06416 0100 00 0 06421 TZE *+3 FOUND. 9P068830 06417 2 00001 2 06413 TIX MONS3,2,1 NOT YET. 9P068840 | 06420 0020 00 0 06425 TRA MONS5 ALL DONE. 9P068850 | 06421 0500 00 0 06427 CLA MONS1 SWITCH 9P068860 | 06422 0621 60 0 06413 STA* MONS3 SYSTEM UNITS. 9P068870 | 06423 0500 00 0 06430 CLA MONS2 X 9P068880 06424 0621 60 0 06405 STA* MONS6 X 9P068890 | 06425 0774 00 2 00000 MONS5 AXT **,2 RESTORE IR2 9P068900 | 06426 0020 00 0 06370 TRA MONS4 GO RESTORE IR1 AND EXIT. 9P068910 | 06427 0 00000 0 00000 MONS1 PZE ** UNIT 1 (L(UCW)) 9P068920 | 06430 0 00000 0 00000 MONS2 PZE ** UNIT 2 (L(UCW)) 9P068930 1 LISTING OF 12/01/64 PAGE 159 | ROUTINES COPIED FROM IOBS | | 06431 0634 00 4 06453 TEOR SXA EORX4,4 SAVE IR4 9P068950 | 06432 0604 00 0 06477 STI EORI SAVE INDICATORS 9P068960 06433 -0500 00 0 06457 CAL EORT SET UP SELECT 9P068970 | 06434 0774 00 4 00000 AXT 0,4 TEST FOR 9P068980 | 06435 0441 60 2 00000 LDI* 0,2 CARD UNIT 9P068990 | 06436 -0054 00 000100 LFT 100 X 9P069000 | 06437 0020 00 0 06453 TRA EORX4 ALWAYS EOF IF CARD UNIT 9P069010 06440 -0774 00 4 00001 AXC 1,4 TO READ NEXT RECORD 9P069020 | 06441 0602 60 2 00000 SLW* 0,2 AFTER END OF FILE 9P069030 | 06442 0074 00 4 00702 TSX (ACTIV,4 ACTIVATE FILE 9P069040 | 06443 -0 00000 2 00000 MZE 0,2 WITH PRIORITY. 9P069050 | 06444 0074 00 4 00704 TSX (NDATA,4 BACK SPACE OVER 9P069060 06445 0 00005 2 00000 PZE 0,2,BSROP RECORD. 9P069070 | 06446 -0774 00 4 00001 AXC 1,4 WAIT TILL 9P069080 | 06447 0520 60 2 00000 ZET* 0,2 ALL DONE. 9P069090 | 06450 0020 00 0 06447 TRA *-1 X 9P069100 | 06451 -0500 00 0 04450 CAL LAREA COMPARE WITH 9P069110 06452 0322 00 0 06476 ERA MONEOR MONITOR END REEL 9P069120 | 06453 0774 00 4 00000 EORX4 AXT **,4 RESTORE IR4 9P069130 | 06454 0441 00 0 06477 LDI EORI RESTORE INDICATORS 9P069140 | 06455 0100 00 4 00002 TZE 2,4 EXIT IF END REEL 9P069150 | 06456 0020 00 4 00001 TRA 1,4 END OF FILE. 9P069160 06457 0 06460 0 06475 EORT PZE EORIOC,,*+1 SELECT WORD. 9P069170 | 06460 0737 00 2 00000 PAC 0,2 SELECT ROUTINE. 9P069180 | 06461 -0120 00 0 06473 TMI EORM TRANSFER IF POSTING. 9P069190 | 06462 -0500 00 2 00000 CAL 0,2 SET UP FOR 9P069200 | 06463 0771 00 0 00022 ARS 18 READ 9P069210 06464 0621 00 0 06465 STA *+1 X 9P069220 | 06465 0762 00 0 00000 RDS ** SELECT UNIT 9P069230 | 06466 -0500 00 2 00001 CAL 1,2 PICK UP COMMAND LOCATION. 9P069240 | 06467 0621 60 0 00727 STA* (RCHXI INTO RCHX 9P069250 | 06470 0522 60 0 00727 XEC* (RCHXI READ INTO LABEL AREA. 9P069260 06471 0600 60 0 00726 STZ* (RCTXI SUPPRESS REDUNDANCY CHECKING. 9P069270 | 06472 0020 00 4 00001 TRA 1,4 RETURN TO IOEX. 9P069280 | 06473 0600 00 2 00001 EORM STZ 1,2 CLEAR UCB WORD 2 9P069290 | 06474 0020 00 4 00001 TRA 1,4 RETURN TO IOEX. 9P069300 | 06475 3 00016 0 04450 EORIOC IORT LAREA,,14 COMMAND TO READ RECORD. 9P069310 06476 532545245125 MONEOR BCI 1,$ENDRE EL MONITOR END OF REEL DESIGNATION. 9P069320 | 06477 0 00000 0 00000 EORI PZE **,,** TEMP STORAGE FOR INDICATORS 9P069330 | 1 LISTING OF 12/01/64 PAGE 160 | ROUTINES COPIED FROM IOBS | * I O B S SECTION OF I O C S 9P069350 | * B U F F E R I N G R O U T I N E S 9P069360 | 1 LISTING OF 12/01/64 PAGE 161 | ROUTINES COPIED FROM IOBS | * INDICATOR ASSIGNMENTS 9P069380 | | 400000 MXDMD BOOL 400000 IF=1 MIXED MODE FILE $9P069400 | 200000 CP1 BOOL 200000 CKPT BITS-ALLOWABLE CODES $9P069410 | 100000 CP2 BOOL 100000 ARE 00,01,10 $9P069420 040000 OPEND BOOL 40000 IF=1 FILE OPEN 9P069430 | 020000 RESER BOOL 20000 IF=1 FILE RESERVE TYPE 9P069440 | 010000 NINHIB BOOL 10000 IF=1 FILE NOT INHIBITED 9P069450 | 004000 MODE BOOL 04000 IF=1 BINARY FILE 9P069460 | 002000 TTO BOOL 02000 IF=1 TT0 IF BOTH=0 INPUT 9P069470 001000 PTO BOOL 01000 IF=1 PT0 BOTH=1 CKPT 9P069480 | 000400 LABEL BOOL 00400 IF=1 LABELS 9P069490 | 000200 BLKSEQ BOOL 00200 IF=1 BLOCK SEQ CHECKS 9P069500 | 000100 CKSUMS BOOL 00100 IF=1 CKECKSUMS 9P069510 | 000040 SEARCH BOOL 00040 IF = 1 LABEL SEARCHING 9P069520 000040 MULTI BOOL 00040 IF=1 MULTIPLE REEL FILE 9P069530 | 000020 GIVUP BOOL 00020 IF=1 BUFFER GIVEN UP RECENTLY 9P069540 | 000010 RUSH BOOL 00010 IF=1 RUSH THIS BUFFER 9P069550 | 000004 NOEOT BOOL 00004 IF=1 NO EOT 9P069560 | 000002 DETACH BOOL 00002 IF=1 FILE WAS PERM CLOSED 9P069570 000001 RHIST BOOL 00001 IF=1 A RUSH DID OCCUR 9P069580 | 000004 LRDEN BOOL 4 IF=1 READ HI DENSITY LABEL 9P069590 | 000002 LWDEN BOOL 2 IF=1 WRITE HI DENSITY LABEL 9P069600 | 100000 FDEN BOOL 100000 IF FILE DENSITY HIGH THEN=1 $9P069610 | 040000 DONLY BOOL 40000 IF=1 ONLY DISCONNECT PRESENT BUFFER 9P069620 020000 DISCN BOOL 20000 IF=1 IOCD OR IORY DISCONNECT BUFFER 9P069630 | 010000 GENER BOOL 10000 IF=1 GENERATED DISCONNECT 9P069640 | 004000 EOB BOOL 04000 IF=1 END OF BUFFER (0 WORDS LEFT) 9P069650 | 002000 INSAT BOOL 02000 IF=1 INITIAL CONDITIONS SATISFIED 9P069660 | 001000 REINT BOOL 01000 IF=1 NO BUFFER REQUESTED 9P069670 000400 HOLD BOOL 00400 IF=1 HOLD PRESENT BUF WHEN RELEASED 9P069680 | 000200 SWATT BOOL 00200 IF=1 ATTACH ROUTINE IN CONTROL 9P069690 | 000200 HELD BOOL 00200 IF=1 A BUFFER WAS HELD 9P069700 | 000100 EOBXIT BOOL 00100 IF=1 EOB EXIT SHOULD BE TAKEN 9P069710 | 000100 STSH BOOL 00100 IF =1 STASH ROUTINE 9P069720 000040 CPYFN BOOL 00040 IF =1 COPY MODE 9P069730 | 000020 RDSWIT BOOL 00020 IF=1 READ ROUTINE IN CONTROL 9P069740 | 000010 XECNT BOOL 00010 IF=1 A IOXYN WAS EXECUTED ON BUFFER 9P069750 | 000004 RETAIN BOOL 00004 IF=1 RETAIN CONTENT INTERNAL FILE 9P069760 | 000004 NOREW BOOL 00004 IF=1 NO REW CLOSE 9P069770 000004 IOSY BOOL 00004 IF=1, IOSY WRITE 9P069780 | 000002 NORUN BOOL 00002 IF=1 NO REW UNLD 9P069790 | 000002 NOEOF BOOL 00002 IF=1, NO EOF ON SYNC 9P069800 | 000001 NORED BOOL 00001 IF=1 NO REDUNDANCY OCCURRED 9P069810 | 100000 FREEUP BOOL 100000 IF=1 ONLY FREE-UP A BUFFER $9P069820 000001 CPYHLD BOOL 00001 COPY ROUTINE INDICATOR 9P069830 | 000001 NOEOFM BOOL 00001 IF =1 NO EOF WRITTEN ON CLOSE 9P069840 | 000001 INTRD BOOL 00001 IF=1 SET READ MODE OPEN INTERNAL 9P069850 | 1 LISTING OF 12/01/64 PAGE 162 | MULTIPLE CONDITION INDICATOR ASSIGNMENTS | 024000 CDBTS BOOL 24000 DISCN+EOB 9P069870 | 074044 EACIO BOOL 74044 DONLY+DISCN+GENER+EOB+CPYFN+IOSY 9P069880 | 030031 SEVER BOOL 30031 RESER+NINHIB+RUSH+GIVUP+RHIST 9P069890 | 003000 OUTPUT BOOL 03000 PTO+TTO 9P069900 040002 OPDET BOOL 40002 OPEND+DETACH 9P069910 | 060000 RESOP BOOL 60000 RESER+OPEND 9P069920 | 040004 OPNEOT BOOL 40004 OPEND+NOEOT 9P069930 | 000030 RANDG BOOL 00030 RUSH+GIVUP 9P069940 | 044400 EOBITS BOOL 44400 DONLY+EOB+HOLD 9P069950 030000 DIGEN BOOL 30000 DISCN+GENER 9P069960 | 000031 PRIBTS BOOL 00031 GIVUP+RUSH+RHIST 9P069970 | 024004 EBDSY BOOL 24004 DISCN+EOB+IOSY 9P069980 | 000003 NOREOF BOOL 00003 NORED + NOEOF 9P069990 | 000011 RBITS BOOL 00011 RUSH + RHIST $9P070000 040004 OPNEOF BOOL 40004 OPENED+NOEOT (NOEOF) 9P070010 | 010004 NETIH BOOL 10004 NO EOT+NINHIB 9P070020 | 000006 REWNUN BOOL 00006 NORUN + NOREW $9P070030 | * CONSTANTS AND MASKS FOR INDICATORS 9P070040 | 06500 -3 00000 7 74044 NEWIO SVN EACIO,7,0 RESET SI AT NEW COMMAND 9P070060 | 06501 -1 00000 0 24000 CDTCT FVE CDBTS,0,0 CHANGE IOCD TO IOCT 9P070070 | 06502 -300000600000 IOOP OCT 700000600000 IO COMMAND OP CODE MASK 9P070080 | 06503 -3 57777 7 77570 NTRES SVN -1-SWATT-NOREW-NORUN-NOEOFM,7,-1-RESER 9P070090 | 06504 -3 67777 7 77777 NOTIN SVN -1,7,-1-NINHIB 9P070100 06505 -3 77773 7 77777 EOTBT SVN -1,7,-1-NOEOT 9P070110 | 06506 0 00004 0 00000 NEOTBT PZE 0,,NOEOT 9P070120 | 06507 0 04000 0 00000 MODBT PZE 0,0,MODE 9P070130 | 06510 0 03000 0 00000 EOFBT PZE 0,0,OUTPUT MASK FOR BSF $9P070140 | 1 LISTING OF 12/01/64 PAGE 163 COMMON ENTRY TO ALL JOBS ROUTINES | | * SAVES 1. SENSE INDICATORS AND ALL INDEX REGISTERS 9P070160 | * 2.L(ENTRY) TO ROUTINE (I.E. L(TSX)) 9P070170 | * 3.L(TSX+2) 9P070180 * 4.PLACES IN CELL -FCW- AND IN IR2 COMPLEMENTED 9P070190 | * A.L(POOL) FOR DEFINE,JOIN AND ATTACH 9P070200 | * B.L(FILE) FOR ALL OTHER IOCS ROUTINES 9P070210 | * 5.PLACES IN CELL-XEOB- 9P070220 | * A.EOB EXIT FOR READ AND WRITE 9P070230 * B.L(POOL2) FOR JOIN 9P070240 | * C.L(FILE2) FOR COPY AND STASH 9P070250 | * 6.PLACES FILE CONTROL BITS IN SI 9P070260 | | 06511 0520 00 0 04714 ENTRY ZET L(0) 9P070280 06512 0074 00 4 00713 TSX STOP,4 $9P070290 | 06513 0604 00 0 06352 STI SENSE $9P070300 | 06514 0760 00 0 00141 INCON SLN 1 TURN ON IOCS CONTROL LITE 9P070310 | 06514 BES INCON+LITES-* 9P070320 | 06514 -0634 00 4 06342 SXD LTSX,4 SAVE L(ENTRY) 9P070330 06515 1 77776 4 06516 TXI *+1,4,-2 9P070340 | 06516 0634 00 4 07710 SXA GTIOX,4 SAVE L(TSX)+2 9P070350 | 06517 0634 00 2 06351 SXA IRS,2 SAVE IR2 9P070360 | 06520 -0634 00 1 06351 SXD IRS,1 SAVE IR1 9P070370 | 06521 0500 00 4 77777 CLA -1,4 SAVE IN -LFCW- AND IR2(COMPLEMENTED) 9P070380 06522 0564 00 0 04714 ENB L(0) THE FOLLOWING DISABLING TRAPS 9P070390 | 06523 0621 00 0 06353 STA FCW L(BPC) FOR DEFINE,JOIN AND ATTACH 9P070400 | 06524 0737 00 2 00000 PAC 0,2 L(FCW) FOR READ,WRITE,COPY,REW, 9P070410 | 06525 0622 00 0 06343 STD XEOB WEF,OPEN AND CLOSE 9P070420 | 06526 0520 00 0 11737 ZET DERR TEST FOR ANY DISK $9P070430 06527 0074 00 4 00713 TSX STOP,4 HAS BEEN A DISK ERROR $9P070440 | 06530 0441 00 2 00006 LDI 6,2 TEST FOR END OF TRACK + EOB EXIT $9P070450 | 06531 0056 00 700000 RNT 700000 $9P070460 | 06532 0020 00 0 06534 TRA *+2 NO $9P070470 | 06533 0020 00 0 11132 TRA ENDTRK YES $9P070480 06534 BES *-6+NOCH/NOCH*6-* OVERLAY $9P070490 | 06534 0441 00 2 00001 LDI 1,2 FILE INDICATORS TO SI 9P070500 | 06535 0057 00 077777 RIR 77777 $9P070510 | 06536 0564 00 0 00735 ENB TRAPS ALLOW TRAPS (FILE BITS IN SI) 9P070520 | 06537 -0534 00 1 00000 ROUTE LXD **,1 FIND L( ROUTINE ) 9P070530 06540 0634 00 1 06544 SXA GO,1 WHICH WAS CALLED 9P070540 | 06541 0600 00 0 13120 STZ TCHEX CLEAR TCH SWITCH 9P070550 | 06542 -3 07205 1 06544 TXL GO,1,OPEN. IF REFERENCE TO A FILE 9P070560 | 06543 -0054 00 000004 LFT NOEOT AND EOT OR NON-LABELED EOF 9P070570 | 06544 0021 00 0 00000 GO TTR ** GO TO ROUTINE CALLED 9P070580 06545 -0054 00 003000 LFT OUTPUT IS FILE INPUT 9P070590 | 06546 0020 00 0 06556 TRA ENT2 OR OUTPUT 9P070600 | 06547 -0054 00 000400 LFT LABEL IF LABELLED INPUT 9P070610 | 06550 0020 60 0 06544 TRA* GO GO TO ROUTINE WHICH WILL GIVE EOF 9P070620 | 06551 0074 00 1 12433 TSX SWITCH,1 IF EOF NON LABELED FILE AGAIN 9P070630 06552 0074 00 4 13613 TSX CPINT,4 CHECKPOINT IF SPECIFIED 9P070640 | 06553 -0055 00 000004 ENT1 SIL NOEOT REFERENCED,SWITCH REELS AND 9P070650 | 06554 0534 00 4 07710 LXA GTIOX,4 RESTORE IR4 AND 9P070660 | 06555 0020 60 0 06544 TRA* GO GO....... 9P070670 | 06556 0074 00 1 12376 ENT2 TSX EOTOF,1 HANDLE EOT 9P070680 06557 0020 00 0 06553 TRA ENT1 TURN OFF EOT AND CONTINUE 9P070690 | 1 LISTING OF 12/01/64 PAGE 164 | COMMON. EXIT ROUTINE - COMXIT- | | * TRA COMXIT 9P070710 * NO RETURN POSSIBLE 9P070720 | * THIS ROUTINE RESTORES 9P070730 | * 1.IR2,IR1,SI 9P070740 | * 2. FILE CONTROL BITS TO FILE WORDS 9P070750 | * AND PLACES HISTORY IN THE AC 9P070760 | 06560 -0057 00 700000 NOPXIT RIL 700000 RESET OP CODE 9P070780 | 06561 0534 00 4 07710 LXA GTIOX,4 PLACE CORRECT $9P070790 | 06562 1 77777 4 06563 TXI *+1,4,-1 EXIT FOR $9P070800 | 06563 0634 00 4 07710 SXA GTIOX,4 NOP ENTRY $9P070810 06564 0074 00 1 07660 TSX FEXIT,1 9P070820 | 06565 0564 00 0 04714 COMXIT ENB L(0) DISABLE TRAPS 9P070830 | 06566 -0046 00 0 00000 PIA RESTORE CONTROL 9P070840 | 06567 0622 00 2 00001 STD 1,2 BITS TO FILE 9P070850 | 06570 0634 00 0 06353 SXA FCW,0 SET IOBS SWITCH =0 9P070860 06571 0564 00 0 00735 ENB TRAPS ALLOW TRAPS 9P070870 | 06572 0522 00 0 06360 EX14 XEC SWTC IF ASSIGNED SENSE 9P070880 | 06573 0020 00 0 06601 TRA EX19 SWITCH FOR CKPTS 9P070890 | 06574 0760 00 0 00142 EX15 SLN SWTCP BY OPERATOR IS PLACED DOWN 9P070900 | 06574 BES EX15+LITES-* 9P070910 06574 0520 00 0 13652 ZET CPSW DOWN WAIT TILL PLACED UP 9P070920 | 06575 0020 00 0 06602 TRA EX23 THEN DOWN... 9P070930 | 06576 -0625 00 0 13652 STL CPSW SENSE LITE ON SIGNIFIES THAT 9P070940 | 06577 0074 00 4 13610 TSX CKPT.,4 THE CORRESPONDING SENSE 9P070950 | 06600 0020 00 0 06602 TRA EX23 SWITCH HAS NOT BEEN SENSED 9P070960 06601 0600 00 0 13652 EX19 STZ CPSW IN THE UP POSITION. 9P070970 | 06602 -0760 00 0 00142 EX20 SLT SWTCP TURN OFF SENSE LITE 9P070980 | 06603 0761 00 0 00000 NOP WHEN SWITCH DETECTED 9P070990 | 06602 BES EX20+LITES*2-* UP.... 9P071000 | 06602 0500 00 0 06346 EX23 CLA LTRAD HISTORY TO AC 9P071010 06603 0534 00 4 07710 EX24 LXA GTIOX,4 IF TCH OCCURRED 9P071020 | 06604 0520 00 0 13120 ZET TCHEX EXIT AT L(1ST TCH) +1 9P071030 | 06605 0534 00 4 13120 LXA TCHEX,4 ELSE AT NORMAL EXIT 9P071040 | 06606 0534 00 2 06351 EX34 LXA IRS,2 RESTORE IR2 9P071050 | 06607 -0534 00 1 06351 LXD IRS,1 9P071060 06610 0441 00 0 06352 LDI SENSE RESTORE SI 9P071070 | 06611 -0760 00 0 00141 LVCON SLT 1 TURN OFF IOCS CONTROL LITE 9P071080 | 06612 0761 00 0 00000 NOP 9P071090 | 06611 BES LVCON+LITES*2-* 9P071100 | 06611 0021 00 4 00000 TTR 0,4 RETURN TO USER 9P071110 1 LISTING OF 12/01/64 PAGE 165 | DEFINE A. BUFFER POOL | | * CALLING SEQUENCE 9P071130 | * TSX DEFINE,4 9P071140 * PZE L(POOL) 9P071150 | * PZE N,,EFF BUF SIZE 9P071160 | * RETURN 9P071170 | * WHERE 9P071180 | * L(POOL) = LOCATION OF BUFFER POOL 9P071190 * N= NUMBER OF BUFFERS TO BE FORMED 9P071200 | * EFF BUF SIZE = THE DESIRED EFFECTIVE BUFFER SIZE 9P071210 | * COMMENTS- 9P071220 | * 1.THE SIZE OF A POOL = N(EFF BUF SIZE +2)+2 9P071230 | * 2.THE FIRST TWO CELLS OF THE SPECIFIED AREA 9P071240 * ARE MADE INTO THE BUFFER POOL CONTROL CELLS 9P071250 | * 3.THE MAXIMUM NUMBER OF BUFFERS PER POOL =32,767 9P071260 | | 06612 0502 00 4 77777 DEFIN. CLS -1,4 SAVE 9P071280 | 06613 0361 00 0 04715 ACL L(1) L(POOL+1) 9P071290 06614 0621 00 0 06623 STA DE1 9P071300 | 06615 0361 00 0 04715 ACL L(1) SET LOCATION 9P071310 | 06616 0621 00 0 06636 STA DE3 OF 1ST BUFFER 9P071320 | 06617 0601 60 0 06353 STO* FCW SET BPC= FOR BUF1,,0 9P071330 | 06620 -0500 00 4 00000 CAL 0,4 SET SECOND WORD 9P071340 06621 -0320 00 0 04727 ANA DECRE OF POOL = 9P071350 | 06622 -0763 00 0 00004 LGL 4 S-13= BUF. SIZE 9P071360 | 06623 0602 00 0 00000 DE1 SLW ** 14-35 = 0 9P071370 | 06624 0500 00 4 00000 CLA 0,4 SET IORT 9P071380 | 06625 0622 00 0 06353 STD FCW =IORT POOL,,SIZE 9P071390 06626 -0734 00 1 00000 PDX 0,1 PLACE SIZE+2 9P071400 | 06627 1 00002 1 06630 TXI *+1,1,2 INTO IR1 9P071410 | 06630 0734 00 2 00000 PAX 0,2 NUMBER OF BUFFERS 9P071420 | 06631 0767 00 0 00022 ALS 18 TO IR2 9P071430 | 06632 0622 60 0 06353 STD* FCW AND POOL 9P071440 06633 0500 00 0 06636 CLA DE3 GO SETUP 9P071450 | 06634 0020 00 0 06646 TRA DE5 CHAIN MECHANISM 9P071460 | 06635 0500 00 0 06353 DE2 CLA FCW CHAIN BUFFER POOL 9P071470 | 06636 0600 00 0 00000 DE3 STZ ** 1ST BUFFER CONTROL WORD 9P071480 | 06637 0621 60 0 06636 STA* *-1 = 0 00000 0 CHAIN 9P071490 06640 0601 00 0 00000 DE4 STO ** 2ND= IORT BPC,,SIZE 9P071500 | 06641 -2 00001 2 06656 TNX DE6,2,1 TEST IF N FORMED 9P071510 | 06642 0754 00 1 00000 PXA 0,1 CHAIN LAST 9P071520 | 06643 0361 00 0 06636 ACL DE3 BUF TO NEXT 9P071530 | 06644 0621 60 0 06636 STA* DE3 FINAL BUFFER IS 9P071540 06645 0621 00 0 06636 STA DE3 CHAINED TO BPC 9P071550 | 06646 0361 00 0 04715 DE5 ACL L(1) 9P071560 | 06647 -0320 00 0 04720 ANA ADDRS 9P071570 | 06650 0340 00 0 06661 CAS DE7 IF BUFFER 9P071580 | 06651 0020 00 0 06654 TRA *+3 BEING DEFINED IS 9P071590 06652 0020 00 0 06654 TRA *+2 IN SYSTEM -GIVE 9P071600 | 06653 0020 00 0 06663 TRA PERR '' POOL ERROR '' 9P071610 | 06654 0621 00 0 06640 STA DE4 9P071620 | 06655 0020 00 0 06635 TRA DE2 9P071630 | 06656 0500 00 0 06636 DE6 CLA DE3 PLACE L(LAST BUFFER) IN 9P071640 06657 0621 60 0 06623 STA* DE1 2ND WD BPC FOR POSSIBLE JOIN 9P071650 | 06660 1 77777 4 06606 TXI EX34,4,-1 EXIT AT 3,4 9P071660 | 06661 0 00000 0 15547 DE7 PZE B6FIN+2,,0 LOWER LIMIT OF BUFFERS 9P071670 | 1 LISTING OF 12/01/64 PAGE 166 | DEFINE A. BUFFER POOL | * JOIN ENTRY POINT 9P071680 | * PLACED HERE FOR L(ENTRY) CHECK IN EOT CHECK SUPPRESS 9P071690 | | 06662 0020 00 0 13123 JOINX TRA JOIN. GO TO JOIN 9P071710 | * POOL DEFINITION OR JOIN ERROR HANDLER 9P071730 | * ENTRY AT TSXR STORES AC AS MESSAGE PARAM, ADDS L(TSX) AND PRINTS 9P071740 | 06663 -0500 00 0 06700 PERR CAL PRR1 POOL ERROR MESSAGE USE 9P071750 | 06664 -0535 00 1 06342 TSXR LDC LTSX,1 FIND L(TSX) 9P071760 06665 0602 00 0 06675 SLW TSXR1 STORE MESSAGE PARAM 9P071770 | 06666 0754 00 1 00000 PXA 0,1 L(TSX) TO AC 9P071780 | 06667 -0765 00 0 00017 LGR 15 9P071790 | 06670 0564 00 0 04714 ENB L(0) TRAP PROTECT BCD5 ROUTINE 9P071800 | 06671 0074 00 4 00721 TSX BCD5,4 9P071810 06672 0602 00 0 13122 SLW TEMP 9P071820 | 06673 0074 00 4 00706 TSX PROUT,4 PRINT MESSAGE 9P071830 | 06674 0 00000 0 00002 PZE 2 ADDING L(TSX) 9P071840 | 06675 -0 00000 0 00000 TSXR1 MZE **,,** TO END OF IT 9P071850 | 06676 0 00001 0 13122 PZE TEMP,,1 9P071860 06677 0074 00 4 00713 TSX STOP,4 STOP -IMPOSSIBLE TO CONTINUE 9P071870 | 06700 -0 00003 0 12307 PRR1 MZE MESS5,,3 9P071880 | 1 LISTING OF 12/01/64 PAGE 167 | ATTACH AND CLOSE ROUTINE | * CALLING SEQUENCES 9P071900 | | * TSX ATTACH,4 MULTIPLE-FILE ATTACH 9P071920 | * PZE POOL TO SPECIFIED POOL 9P071930 | * PZE LIST,,FILECT 9P071940 | * TSX CLOSE,4 MULTIPLE FILE CLOSE 9P071960 | * PRE LIST,,FILECT 9P071970 | | * TSX CLOSE,4 SINGLE FILE CLOSE 9P071990 * PRE FILE 9P072000 | * PRE=PZE REWIND UNLOAD 9P072010 | * =PTW REWIND 9P072020 | * =MZE NO REWIND 9P072030 | * =MON NO EOF OR TRAILERS 9P072040 * RESTRICTIONS 9P072050 | * 1. ALL FILES TO USE A GIVEN POOL MUST BE ATTACHED 9P072060 | * IN ONE ATTACH CALLING SEQUENCE 9P072070 | * 2. RESERVE FILES MUST BE OPENED VIA OPEN ROUTINE 9P072080 | * 3. THE BUFFERS SET ASIDE FOR A GROUP ARE REGAINED WHEN 9P072090 * THE SVN WORD IS REFERENCED IN A CLOSE LIST 9P072100 | * 4. IF A RESERVE GROUP WORD APPEARS IN A CLOSE LIST 9P072110 | * THE ENTIRE GROUP OF RESERVE FILES MUST APPEAR AND 9P072120 | * BE INCLUDED IN THE FILECT. 9P072130 | * 5. LAST RESERVE GROUP MUST HAVE AT LEAST ONE FILE 9P072140 * 6. ALL IMMEDIATE FILES MUST PRECEDE ALL RESERVE FILES 9P072150 | * 7. FILES OF MORE THAN ONE POOL MAY APPEAR IN A CLOSE 9P072160 | * LIST. 9P072170 | * 8. A FILE IF REWOUND UNLOADED MAY NEVER AGAIN 9P072180 | * BE REFERENCED 9P072190 | * CLOSE ROUTINE 9P072210 | 06701 0774 00 1 07117 CLOSE. AXT SHUT,1 PLACE CLOSE ACTION IN CALL 9P072220 | 06702 0600 00 0 13121 STZ 7GRP TO SUBROUTINES 9P072230 | 06703 -0500 00 4 77777 CAL -1,4 PLACE CLOSE 9P072240 06704 0771 00 0 00041 ARS 33 MODE BITS IN 9P072250 | 06705 0044 00 0 00000 PAI SI 9P072260 | 06706 0500 00 4 77777 CLA -1,4 9P072270 | 06707 -0734 00 2 00000 PDX 0,2 TEST FOR SINGLE OR 9P072280 | 06710 3 00000 2 06725 TXH CA1,2,0 MULTIPLE CLOSE 9P072290 06711 0634 00 4 06712 SXA *+1,4 DUMMY LIST HANDLER TO 9P072300 | 06712 -0774 00 2 00000 AXC **,2 HANDLE ONE FILE IN 9P072310 | 06713 1 77776 2 06727 TXI CA2,2,-2 ACTUAL CALLING SEQUENCE 9P072320 | * ATTACH ROUTINE 9P072330 | 06714 0621 00 0 07270 ATTCH. STA LBC SAVE L(POOL) 9P072340 06715 0500 00 0 10651 CLA 1TAG SET OUTPUT CHAIN =0 9P072350 | 06716 0621 00 2 00001 STA 1,2 IF POOL HAS BEEN 9P072360 | 06717 -0320 00 2 00001 ANA 1,2 JOINED TO ANOTHER POOL GIVE 9P072370 | 06720 -0100 00 0 06663 TNZ PERR '' POOL ERROR '' 9P072380 | 06721 0441 00 0 07037 LDI CA27 PLACE ATTACH MODE BIT IN SI 9P072390 06722 0774 00 1 07214 AXT OPAT,1 PLACE OPEN CALL 9P072400 | 06723 0500 00 4 00000 CLA 0,4 FOR SUBROUTINE 9P072410 | 06724 1 77777 4 06725 TXI CA1,4,-1 ADVANCE EXIT TO ACCT FOR XTRA WORD 9P072420 | 1 LISTING OF 12/01/64 PAGE 168 | COMMON ROUTINE ATTACH AND CLOSE | 06725 0734 00 2 00000 CA1 PAX 0,2 PLACE L(LIST)-1 9P072440 | 06726 1 77777 2 06727 TXI *+1,2,-1 IN LIST PROCESSOR 9P072450 | 06727 0634 00 2 07066 CA2 SXA CA51,2 9P072460 | 06730 0622 00 0 07035 STD CA26 PLACE FILE COUNT IN INDEX CELL 9P072470 06731 0634 00 4 07710 SXA GTIOX,4 SAVE L(EXIT) 9P072480 | 06732 0634 00 1 07025 SXA CA23+1,1 PLACE CALL FOR OPEN OR SHUT 9P072490 | 06733 0056 00 000200 RNT SWATT ATTACH OR 9P072500 | 06734 0020 00 0 06770 TRA CA10 CLOSE 9P072510 | * ATTACH SUPERVISOR 9P072520 06735 0074 00 4 07057 CA3 TSX CA50,4 GET ENTRY FROM LIST 9P072530 | 06736 0020 00 0 06754 TRA CA6 ENTRY IS PZE FILE 9P072540 | 06737 0535 00 1 07026 LAC CA24,1 ENTRY IS SVN FILECT,,BUFCT 9P072550 | 06740 -0634 00 1 06743 SXD CA4,1 STORE FILECT FOR REDUCING BUFCT 9P072560 | 06741 -0734 00 1 00000 PDX 0,1 REDUCE $9P072570 06742 -0734 00 4 00000 PDX 0,4 THE $9P072580 | 06743 1 00000 4 06744 CA4 TXI *+1,4,** BUFFER CT FOR GROUP SUCH 9P072590 | 06744 -0754 00 4 00000 PXD 0,4 THAT THE SPECIFIED NUMBER 9P072600 | 06745 0622 60 0 07066 STD* CA51 OF FILES CAN ALWAYS BE OPENED 9P072610 | 06746 0534 00 2 07066 LXA CA51,2 SAVE L(SVN) WORD SUCH THAT IT 9P072620 06747 0634 00 2 06751 SXA CA5,2 CAN BE PLACED IN EACH RESERVE FILE 9P072630 | 06750 -0055 00 020000 SIL RESER SET RESERVE BIT 9P072640 | 06751 -0754 00 1 00000 CA5 PXD **,1 REDUCE IBACT BY 9P072650 | 06752 0074 00 1 07401 TSX ADIBC,1 BUFFER COUNT FOR THE GROUP 9P072660 | 06753 0020 00 0 06735 TRA CA3 PROCESS FILE LIST 9P072670 * FILE HANDLER (ATTACH) 9P072680 | | 06754 -0054 00 040002 CA6 LFT OPDET IF ATTEMPTED ATTACH OF AN OPEN OR 9P072700 | 06755 0020 00 0 07107 TRA CA60 DETACHED FILE -ERROR STOP 9P072710 | 06756 0500 00 0 07270 CLA LBC PLACE L(POOL) IN 9P072720 06757 0621 00 2 00002 STA 2,2 FILE CONTROL WORDS 9P072730 | 06760 0767 00 0 00022 ALS 18 2ND WORD ADDRESS AND 9P072740 | 06761 0622 00 2 00004 STD 4,2 5TH WORD DECREMENT 9P072750 | 06762 -0054 00 000400 LFT LABEL IF LABELLED FILE SETUP 9P072760 | 06763 0074 00 1 14304 CA6.5 TSX NSLST,1 L(LABEL ROUTINE) 9P072770 06764 -0500 00 0 06751 CAL CA5 IF THE FILE 9P072780 | 06765 -0054 00 020000 LFT RESER IS A RESERVE FILE 9P072790 | 06766 0621 00 2 00003 STA 3,2 PLACE L(SVN WORD) 9P072800 | 06767 0020 00 0 07015 TRA CA20 IN FILE CONTROL BLOCK 9P072810 | * CLOSE SUPERVISOR 9P072820 06770 0074 00 4 07057 CA10 TSX CA50,4 PROCESS ENTRY IN FILE LIST 9P072830 | 06771 0020 00 0 07011 TRA CA13 ENTRY WAS PZE FILE 9P072840 | 06772 0520 00 0 13121 ZET 7GRP ENTRY IS SVN WORD 9P072850 | 06773 0074 00 4 06777 TSX CA11,4 IF A SVN OCCURRED BEFORE-UPDATE 9P072860 | 06774 0500 00 0 07066 CLA CA51 ITS COUNTS AND SAVE THE 9P072870 06775 0621 00 0 13121 STA 7GRP LOCATION OF THE NEW SVN WORD 9P072880 | 06776 0020 00 0 06770 TRA CA10 PROCESS FILE LIST 9P072890 | *POST-PROCESSOR OF SVN WORD (AFTER FILES OF THE GROUP HAVE BEEN CLOSED) 9P072900 | 06777 0500 60 0 13121 CA11 CLA* 7GRP UP THE BUFFER COUNT 9P072910 | 07000 0734 00 1 00000 PAX 0,1 BY THE FILECT OF THE 9P072920 07001 -0634 00 1 07003 SXD CA12,1 GROUP , THEN ADJUST 9P072930 | 07002 -0734 00 1 00000 PDX 0,1 IBACT BY THE INCREMENTED 9P072940 | 07003 1 00000 1 07004 CA12 TXI *+1,1,** BUFFER COUNT THAT WAS 9P072950 | 07004 -0754 00 1 00000 PXD 0,1 RESERVED SOLELY FOR 9P072960 | 07005 0622 60 0 13121 STD* 7GRP THE RESERVE GROUPS USAGE 9P072970 07006 -0760 00 0 00003 SSM SET TO ADD THIS COUNT. 9P072980 | 1 LISTING OF 12/01/64 PAGE 169 | COMMON ROUTINE ATTACH AND CLOSE | | 07007 0074 00 1 07401 TSX ADIBC,1 9P072990 07010 0020 00 4 00001 TRA 1,4 EXIT 9P073000 | * FILE PROCESSOR(CLOSE) 9P073010 | 07011 -0054 00 060000 CA13 LFT RESOP IF FILE IS ALREADY 9P073020 | 07012 0020 00 0 07014 TRA *+2 PERMANENTLY CLOSED 9P073030 | 07013 0020 00 0 07031 TRA CA25 THIS CLOSE IS A NOP 9P073040 07014 0074 00 4 07375 TSX FNLBC,4 FIND L(POOL) 9P073050 | * GENERAL FILE HANDLER ATTACH AND CLOSE 9P073060 | 07015 0535 00 4 07270 CA20 LAC LBC,4 L(POOL) TO IR4 9P073070 | 07016 -0054 00 020000 LFT RESER IF THE FILE IS A RESERVE, COUNTS 9P073080 | 07017 0020 00 0 07024 TRA CA23 HAVE BEEN ADJUSTED ALREADY 9P073090 07020 -0054 00 002000 LFT TTO 1ST TTO(ATTACH) AND LAST TTO (CLOSE) 9P073100 | 07021 0020 00 0 07044 TRA CA40 AFFECTS BY ONE BUFFER 9P073110 | 07022 0502 00 0 04721 CA22 CLS 1DEC ADJUST IBACT BY $9P073120 | 07023 0074 00 1 07401 TSX ADIBC,1 1 EACH INPUT,PTO AND 1 ALL TTOS 9P073130 | 07024 0564 00 0 00735 CA23 ENB TRAPS ALLOW TRAPS 9P073140 07025 0074 00 4 00000 TSX **,4 EITHER OPEN OR 9P073150 | 07026 0 00000 0 00000 CA24 PZE ** SHUT THE FILE 9P073160 | 07027 -0046 00 0 00000 PIA PLACE CONTROL BITS 9P073170 | 07030 0622 00 2 00001 STD 1,2 IN FILE 9P073180 | 07031 -0534 00 1 07035 CA25 LXD CA26,1 ADVANCE 9P073190 07032 -2 00001 1 07037 TNX CA27,1,1 ALONG FILE LIST 9P073200 | 07033 -0634 00 1 07035 SXD CA26,1 AS LONG AS MORE FILES 9P073210 | 07034 0056 00 000200 RNT SWATT RETURN TO 9P073220 | 07035 -3 00000 0 06770 CA26 TXL CA10,0,** CA10 (CLOSE) 9P073230 | 07036 0020 00 0 06735 TRA CA3 CA3 (ATTACH) 9P073240 07037 0056 00 000200 CA27 RNT SWATT IF A SVN APPEARED 9P073250 | 07040 -0520 00 0 13121 NZT 7GRP IN A CLOSE LIST AND 9P073260 | 07041 0020 00 0 06570 TRA COMXIT+3 LIST ENDS ADJUST SVN WORD 9P073270 | 07042 0074 00 4 06777 TSX CA11,4 COUNTS BEFORE 9P073280 | 07043 0020 60 0 07041 TRA* *-2 EXITING 9P073290 1 LISTING OF 12/01/64 PAGE 170 | COMMON ROUTINE ATTACH AND CLOSE | | * TTO FILE HANDLER 9P073310 | 07044 -0500 00 4 00001 CA40 CAL 1,4 DETERMINE IF THIS 9P073320 07045 0056 00 000200 RNT SWATT TTO IS THE FIRST ONE 9P073330 | 07046 -0760 00 0 00003 SSM ATTACHED OR THE LAST 9P073340 | 07047 0400 00 0 07246 ADD 2TAG ONE CLOSED, IF SO 9P073350 | 07050 0602 00 4 00001 SLW 1,4 ADJUST IBACT BY ONE 9P073360 | 07051 -0320 00 0 04722 ANA TTOCT NOTE.... RESERVE FILES (TTO) 9P073370 07052 0100 00 0 07022 TZE CA22 ARE NOT INCLUDED IN TTO CT 9P073380 | 07053 0322 00 0 07246 ERA 2TAG NOR DO THEY AFFECT 9P073390 | 07054 0054 00 000200 RFT SWATT ANY COUNTS AS THEY ARE HANDLED 9P073400 | 07055 0100 00 0 07022 TZE CA22 BY SVN WORD 9P073410 | 07056 0020 00 0 07024 TRA CA23 9P073420 * FILE LIST PROCESSOR 9P073430 | 07057 0500 00 0 07066 CA50 CLA CA51 ADVANCE IN LIST 9P073440 | 07060 0361 00 0 04715 ACL L(1) NOTE... THAT L(LIST)-1 ORIGINALLY 9P073450 | 07061 0621 00 0 07066 STA CA51 IN LIST LOCATOR 9P073460 | 07062 0056 00 000200 RNT SWATT RESET ALL CONTROL BITS EXCEPT 9P073470 07063 -0057 00 020000 RIL RESER SWATT AND IF ATTACHING 9P073480 | 07064 0445 00 0 06503 RIS NTRES RESERVE BIT 9P073490 | 07065 0564 00 0 04714 ENB L(0) TRAP PROTECT 9P073500 | 07066 -0500 00 0 00000 CA51 CAL ** WHILE ADJUSTING 9P073510 | 07067 0737 00 2 00000 PAC 0,2 COUNTS 9P073520 07070 0621 00 0 07026 STA CA24 L(FILE) TO IR2 AND CA24 9P073530 | 07071 0621 00 0 06353 STA FCW IN FCW CELL 9P073540 | 07072 -0320 00 0 04735 ANA 6PRE CHECK IF SIX OR 9P073550 | 07073 0043 00 0 00000 OAI SVN WORD APPEARS 9P073560 | 07074 0500 60 0 07066 CLA* CA51 PICKUP LIST ENTRY 9P073570 07075 -0056 00 600000 LNT 600000 SIX OR SVN 9P073580 | 07076 0020 00 0 07100 TRA *+2 IF SO EXIT 9P073590 | 07077 0020 00 4 00002 TRA 2,4 AT 2,4 9P073600 | 07100 0054 00 000200 RFT SWATT IF ATTACHING 9P073610 | 07101 0622 00 2 00002 STD 2,2 SAVE L(NON-STANDARD LABEL PKG.) 9P073620 07102 0500 00 2 00001 CLA 1,2 PLACE FILE CONTROL BITS 9P073630 | 07103 -0057 00 700000 RIL 700000 RESET SIX OR SVN CODE IN SI PREFIX 9P073640 | 07104 -0320 00 0 13114 ANA PDMSK IN SENSE INDICATORS 9P073650 | 07105 0043 00 0 00000 OAI AND EXIT AT 9P073660 | 07106 0020 00 4 00001 TRA 1,4 1,4 9P073670 * OPEN ERROR MESSAGE SENDER 9P073680 | 07107 0074 00 4 07562 CA60 TSX DRANO,4 UNIT NO. TO MESSAGE 9P073690 | 07110 0074 00 4 00706 TSX PROUT,4 PRINT ERROR MESSAGE 9P073700 | 07111 0 00000 0 00003 PZE 3 DETACHED FILE 9P073710 | 07112 -0 00002 0 12302 MZE MESS1,,2 AND STOP. 9P073720 07113 -0 00003 2 00011 MZE 9,2,3 IF OPERATOR 9P073730 | 07114 0 00006 0 12321 PZE MESS7,,6 PROCEEDS THEN FILE IS 9P073740 | 07115 0074 00 4 00711 TSX PAWS,4 NOT OPENED 9P073750 | 07116 0020 00 0 07210 TRA OP1+1 9P073760 | 1 LISTING OF 12/01/64 PAGE 171 DE-ACTIVATE FILE | | * CALLING SEQUENCE 9P073780 | * TSX SHUT,4 IR2 MUST= -L(FCW) 9P073790 | * ** ** 9P073800 * RETURNS AT CA24+1 9P073810 | | 07117 0055 00 002000 SHUT SIR INSAT SET INITIAL CONDITIONS SATISFIED 9P073830 | 07120 -0056 00 060000 LNT RESOP IF CLOSING AN OPEN 9P073840 | 07121 0020 00 0 07125 TRA *+4 RESERVE FILE 9P073850 07122 0500 60 2 00003 CLA* 3,2 ADD 1 TO SIMOPENCT 9P073860 | 07123 0361 00 0 04715 ACL L(1) ALLOWING ANOTHER FILE 9P073870 | 07124 0621 60 2 00003 STA* 3,2 OF THE GROUP TO BE OPENED LATER 9P073880 | 07125 0500 00 2 00003 SH1 CLA 3,2 HANDLE INTERNAL 9P073890 | 07126 -0120 00 0 13532 TMI INTCL FILE SEPARATELY 9P073900 07127 -0056 00 003000 LNT OUTPUT IF CHECKPOINT FILE OR 9P073910 | 07130 -0056 00 040000 LNT OPEND IF FILE NEVER 9P073920 | 07131 0020 00 0 07136 TRA SH2+1 OPENED OR ALREADY CLOSED, CLEANUP 9P073930 | 07132 -0054 00 003000 LFT OUTPUT INPUT OR 9P073940 | 07133 0020 00 0 07162 TRA SH5 OUTPUT FILE 9P073950 | * CLOSE INPUT FILE 9P073970 | 07134 0074 00 4 11212 TSX UNBFI,4 UNBUFFER INPUT FILE 9P073980 | 07135 0074 00 4 07414 SH2 TSX REDCT,4 PREPARE REDUNDANCY HISTORY 9P073990 | 07136 -0500 00 2 00000 CAL 0,2 MAKE SURE EOF 9P074000 07137 -0320 00 0 04733 ANA FOR FLAG IS OFF 9P074010 | 07140 0630 00 2 00000 STP 0,2 9P074020 | 07141 0054 00 000004 RFT NOREW IF NO REWIND 9P074030 | 07142 0020 00 0 07155 TRA SH4.1 SPECIFIED SKIP OUT 9P074040 | 07143 -0500 00 0 07323 CAL 3DEC FORM REW CODE (=3) 9P074050 07144 0056 00 000002 RNT NORUN OR REW UNLOAD 9P074060 | 07145 0361 00 0 04721 ACL 1DEC CODE (=4) 9P074070 | 07146 0622 00 0 07150 STD *+2 9P074080 | 07147 0074 00 4 12671 TSX NDSEL+1,4 ISSUE REW 9P074090 | 07150 0 00000 2 00000 PZE 0,2,** OR RUN 9P074100 07151 0054 00 000006 RFT REWNUN IF REWOUND AND $9P074110 | 07152 0020 00 0 07155 TRA SH4.1 UNLOADED 9P074120 | 07153 -0055 00 000002 SIL DETACH PRINT MESSAGE 9P074130 | 07154 0074 00 4 07517 TSX UNMNT,4 TO OPERATOR 9P074140 | 07155 -0054 00 020000 SH4.1 LFT RESER RESET FILE 9P074150 07156 0520 00 0 13121 ZET 7GRP BITS UNLESS SINGLE CLOSE 9P074160 | 07157 -0057 00 030031 RIL SEVER OF A RESERVE FILE 9P074170 | 07160 -0057 00 040000 RIL OPEND RESET OPENED BIT 9P074180 | 07161 0020 00 0 07027 TRA CA24+1 EXIT 9P074190 | * CLOSE OUTPUT FILE 9P074210 | 07162 0074 00 4 11317 SH5 TSX UNBFO,4 WAIT TILL ALL I/O IS DONE 9P074220 | 07163 0054 00 000001 RFT NOEOFM IF MON OPTION 9P074230 | 07164 0020 00 0 07172 TRA SH3 SKIP EOF AND LABEL WRITES 9P074240 | 07165 0074 00 4 12671 TSX NDSEL+1,4 WRITE 9P074250 07166 0 00007 2 00000 PZE 0,2,WEFOP EOF 9P074260 | 07167 0761 00 0 00000 NOP IGNORE EOT 9P074270 | 07170 -0054 00 000400 SH9 LFT LABEL IF LABELLED 9P074280 | 07171 0074 00 1 14707 TSX LABCO,1 FILE THEN WRITE TRAILER 9P074290 | 07172 0535 00 4 07270 SH3 LAC LBC,4 L(POOL) TO IR4 9P074300 07173 -0634 00 2 07176 SXD SH33,2 REMOVE FILE FROM 9P074310 | 07174 0500 00 4 00001 SH32 CLA 1,4 OUTPUT CHAIN BY FINDING 9P074320 | 1 LISTING OF 12/01/64 PAGE 172 | DE-ACTIVATE FILE | 07175 0734 00 1 00000 PAX 0,1 FILE THAT REFERENCES CLOSING 9P074330 | 07176 1 00000 1 07177 SH33 TXI *+1,1,** FILE AND REPLACING CHAINS. 9P074340 | 07177 -3 00000 1 07202 TXL SH34,1,0 FOUND. 9P074350 | 07200 0737 00 4 00000 PAC 0,4 NOT FOUND. ADVANCE 9P074360 | 07201 0020 00 0 07174 TRA SH32 ALONG CHAIN. 9P074370 07202 0500 00 2 00001 SH34 CLA 1,2 REPLACE CHAIN IN FILE THAT 9P074380 | 07203 0621 00 4 00001 STA 1,4 REFERENCED CLOSING FILE 9P074390 | 07204 0020 00 0 07135 TRA SH2 AND EXIT. 9P074400 | 1 LISTING OF 12/01/64 PAGE 173 | OPEN ROUTINE | * OPEN THE SPECIFIED FILE (OPTIONAL NO- REWIND) 9P074420 | | * CALLING SEQUENCE 9P074440 | * TSX OPEN,4 9P074450 * P FILE 9P074460 | * WHERE 9P074470 | * P= PZE REWIND BEFORE OPEN 9P074480 | * P= MZE NO REWIND 9P074490 | * P= MON NO REWIND, NO LABELS 9P074500 * ACTIONS .... 9P074510 | * 1. ALLOWS ACTUAL I/O TO BE EXECUTED 9P074520 | * 2. INITIATES PRIMARY INPUT BUFFER INPUT FILE 9P074530 | * 3. LABELS HANDLED AT OPEN INPUT OR OUTPUT 9P074540 | 07205 -0056 00 040000 OPEN. LNT OPEND IF FILE ALREADY OPN 9P074560 | 07206 0020 00 0 07220 TRA OP2 CLEAR INHIBITED INDICATOR 9P074570 | 07207 -0055 00 040004 OP1 SIL OPNEOT SET OPEN AND NO EOT CODE 9P074580 | 07210 0600 00 2 00005 STZ 5,2 CLEAR ERROR HISTORY 9P074590 | 07211 0054 00 000200 RFT SWATT IF ATTACHING 9P074600 07212 0020 00 0 07027 TRA CA24+1 RETURN THERE 9P074610 | 07213 0020 00 0 06565 TRA COMXIT ELSE EXIT TO USER 9P074620 | 07214 -0056 00 020000 OPAT LNT RESER RESERVE FILES ARE 9P074630 | 07215 1 77776 4 07220 TXI OP2,4,-2 NOT OPENED AT ATTACHMENT 9P074640 | 07216 -0055 00 010004 SIL NETIH SET NO EOT CODE+ NOT INHIBITED 9P074650 07217 0020 00 0 07027 TRA CA24+1 9P074660 | 07220 -0055 00 010004 OP2 SIL NETIH SET NO EOT + NOT INHIB 9P074670 | 07221 -0054 00 000002 LFT DETACH IF FILE HAS BEEN REWOUND-UNLOADED 9P074680 | 07222 0020 00 0 07107 TRA CA60 PRINT ERROR MESSAGE 9P074690 | 07223 -0056 00 020000 LNT RESER IF FILE IS RESERVE TYPE 9P074700 07224 0020 00 0 07233 TRA OP4 CHECK TO MAKE 9P074710 | 07225 0500 60 2 00003 CLA* 3,2 SURE THAT NO MORE 9P074720 | 07226 0734 00 1 00000 PAX 0,1 THAN THE SPECIFIED 9P074730 | 07227 1 77777 1 07230 TXI *+1,1,-1 NUMBER OF FILES ARE 9P074740 | 07230 3 10000 1 07321 TXH OP10,1,4096 SIMULTANEOUSLY OPENED 9P074750 07231 0754 00 1 00000 PXA 0,1 9P074760 | 07232 0621 60 2 00003 STA* 3,2 9P074770 | 07233 0500 00 2 00003 OP4 CLA 3,2 OPEN INTERNAL FILE 9P074780 | 07234 -0120 00 0 13461 TMI INTOP HANDLED SEPARATELY 9P074790 | 07235 0634 00 4 07250 SXA 2TAG+2,4 SAVE IR 4 9P074800 07236 0560 00 2 00000 LDQ 0,2 CHECK 9P074810 | 07237 -0773 00 0 00022 RQL 18 REEL IS MOUNTED 9P074820 | 07240 0162 00 0 07327 TQP OP11 IF NOT INFORM OPERATOR 9P074830 | 07241 0754 00 0 00000 OP4.5 PXA 0,0 SET BLOCK SEQUENCE $9P074840 | 07242 0622 00 2 00003 STD 3,2 EQUAL TO ZERO $9P074850 07243 0500 00 0 07403 CLA L(0)A SET SYNC ADDRESS 9P074860 | 07244 0621 00 2 00004 STA 4,2 = L(0) 9P074870 | 07245 0074 00 4 00704 TSX (NDATA,4 TEST LEGALITY $9P074880 | 07246 0 00000 2 00000 2TAG PZE 0,2,TESTP OF UNIT 9P074890 | 07247 0074 00 4 11200 TSX DENSE,4 SET FILE DENSITY 9P074900 07250 0774 00 4 00000 AXT **,4 9P074910 | 07251 0500 00 4 77777 CLA -1,4 9P074920 | 07252 0120 00 0 07256 TPL *+4 IF PZE- REW 9P074930 | 07253 -0320 00 0 04730 ANA 1PRE MZE- NO REW 9P074940 | 07254 -0100 00 0 07312 TNZ OP9.3 MON-NO REW, NO LABELS 9P074950 07255 0020 00 0 07260 TRA OP6 9P074960 | 1 LISTING OF 12/01/64 PAGE 174 | OPEN ROUTINE | | 07256 0074 00 4 12671 TSX NDSEL+1,4 REWIND BEFORE 9P074970 07257 0 00003 2 00000 PZE 0,2,REWOP OPEN 9P074980 | 07260 -0054 00 003000 OP6 LFT OUTPUT IF OUTPUT, WORK 9P074990 | 07261 0020 00 0 07272 TRA OP9 IS DONE EXCEPT LABELS 9P075000 | | * OPEN INPUT FILE 9P075020 07262 0074 00 4 07375 TSX FNLBC,4 FIND L(POOL) 9P075030 | 07263 -0054 00 000400 LFT LABEL LABEL ACTION 9P075040 | 07264 0074 00 1 14372 OP7 TSX LABCI,1 OPEN INPUT 9P075050 | 07265 -0754 00 0 00000 PXD 0,0 CLEAR BUFFER COUNT 9P075060 | 07266 0621 00 2 00001 STA 1,2 IN FCB. 9P075070 07267 0074 00 1 10333 TSX BORBF,1 INITIATE READ 9P075080 | 07270 0761 00 0 00000 LBC NOP IF POSSIBLE ... L(POOL)... 9P075090 | 07271 0020 00 0 07207 TRA OP1 EXIT 9P075100 | | * OPEN OUTPUT FILE 9P075120 07272 -0056 00 003000 OP9 LNT OUTPUT LOOK FOR CHECKPOINT 9P075130 | 07273 0020 00 0 07277 TRA OP9.1 FILE DEFINITION 9P075140 | 07274 -0500 00 0 06353 CAL FCW BY OPENING 9P075150 | 07275 0621 00 0 06340 STA CPFILE OUTPUT FILE 9P075160 | 07276 0020 00 0 07207 TRA OP1 CODE= PTO+TTO 9P075170 07277 -0054 00 000400 OP9.1 LFT LABEL ACTION 9P075180 | 07300 0074 00 1 14537 OP9.2 TSX LABOO,1 OPEN OUTPUT 9P075190 | 07301 0074 00 4 07375 TSX FNLBC,4 FIND L(POOL) 9P075200 | 07302 0535 00 4 07270 LAC LBC,4 L(POOL) TO IR4 9P075210 | 07303 0500 00 4 00001 CLA 1,4 PLACE OUTPUT 9P075220 07304 0621 00 2 00001 STA 1,2 FILE IN SYNCING 9P075230 | 07305 0500 00 0 06353 CLA FCW CHAIN USED TO 9P075240 | 07306 0054 00 000200 RFT SWATT FORCE AN OUTPUT 9P075250 | 07307 0500 00 0 07026 CLA CA24 BUFFER TO BE 9P075260 | 07310 0621 00 4 00001 STA 1,4 RELEASED TO THE 9P075270 07311 0020 00 0 07207 TRA OP1 BUFFER POOL 9P075280 | * BYPASS REWIND AND LABEL ACTION. 9P075290 | 07312 -0056 00 003000 OP9.3 LNT OUTPUT TEST FOR CHECKPOINT 9P075300 | 07313 0020 00 0 07315 TRA *+2 NO. 9P075310 | 07314 0020 00 0 07274 TRA OP9+2 ASSIGN CHECKPOINT. 9P075320 07315 -0054 00 003000 LFT OUTPUT INPUT OR 9P075330 | 07316 0020 00 0 07301 TRA OP9.2+1 OUTPUT. ENTER IN CHAIN. 9P075340 | 07317 0074 00 4 07375 TSX FNLBC,4 INPUT. FIND L(POOL) 9P075350 | 07320 0020 00 0 07265 TRA OP7+1 INITIATE READ. 9P075360 | * ERROR TOO MANY RESERVES OPEN 9P075380 | 07321 0074 00 4 00706 OP10 TSX PROUT,4 PRINT RESERVE FILE 9P075390 | 07322 0 00000 0 00002 PZE 2 CONFLICT ERROR 9P075400 | 07323 -0 00003 2 00011 3DEC MZE 9,2,3 AND STOP.... IF STARTED 9P075410 | 07324 0 00007 0 12312 PZE MESS6,,7 NO OPEN OCCOURS 9P075420 07325 0074 00 4 00711 TSX PAWS,4 9P075430 | 07326 0020 00 0 07210 TRA OP1+1 9P075440 | | * FILE IS NOT MOUNTED SEND INSTRUCTIONS TO OPERATOR 9P075460 | 07327 -0500 00 2 00007 OP11 CAL 7,2 REEL NUMBER TO MOUNT 9P075470 07330 0074 00 4 07532 TSX MOUNT,4 9P075480 | 07331 0074 00 4 00712 TSX PAUSE,4 WAIT FOR OPERATOR 9P075490 | 07332 0020 00 0 07241 TRA OP4.5 PROCEED IN OPEN 9P075500 | 1 LISTING OF 12/01/64 PAGE 175 | BUFFERED READ ROUTINE | * TSX READ,4 BUFFERED READ 9P075520 | * PZE FILE,,EOB END OF BLOCK 9P075530 | * PZE EOF,,ERR END OF FILE AND 9P075540 | * * ERROR EXITS 9P075550 * * 9P075560 | * IO-LIST 9P075570 | * * 9P075580 | * RETURN 9P075590 | * THE AC CONTAINS AT EXIT A HISTORY OF THE 9P075610 | * IO ACTION TAKEN. THE FOLLOWING INFORMATION 9P075620 | * IS GIVEN. 9P075630 | * 1. THE LOCATION +1 OF THE LAST WORD ''READ'' 9P075640 | * 2. THE NUMBER OF WORDS REMAINING IN THE 9P075650 * BUFFER AREA ATTACHED TO THE FILE 9P075660 | | 07333 0055 00 000020 READ. SIR RDSWIT SET READ SWITCH $9P075680 | 07334 1 77777 4 07335 TXI *+1,4,-1 ACCOUNT FOR EXTRA 9P075690 | 07335 0634 00 4 07710 SXA GTIOX,4 WORD IN CALLING SEQUENCE 9P075700 07336 0500 00 4 77777 CLA -1,4 SAVE MODAL EXITS 9P075710 | 07337 0621 00 0 06344 STA XEOF END OF FILE 9P075720 | 07340 0622 00 0 06345 STD XERR ERROR (CKSUM,URR,BLOCK SEQUENCE) 9P075730 | 07341 -0056 00 040004 LNT OPNEOF IF FILE NOT OPEN OR AT LABEL EOF 9P075740 | 07342 0020 00 0 07615 TRA EOFER TAKE END OF FILE EXIT 9P075750 07343 -0054 00 003000 LFT OUTPUT IF OUTPUT FILE 9P075760 | 07344 0020 00 0 06560 TRA NOPXIT DO NOTHING, JUST EXIT. 9P075770 | 07345 0074 00 4 07375 TSX FNLBC,4 FIND L(POOL) 9P075780 | 07346 -0054 00 000020 LFT GIVUP WAS A BUFFER GIVEN UP LAST READ 9P075790 | 07347 0074 00 1 10333 TSX BORBF,1 YES-TRY TO TAKE ONE BACK 9P075800 07350 -0057 00 000020 RIL GIVUP COULDNT-TURN OFF GIVE-UP INDIC 9P075810 | 07351 -0634 00 0 10154 SXD SYNCT,0 PRESET SYNCT TO ZERO 9P075820 | 07352 0074 00 4 07701 TSX RDWRT,4 READ DIRECTING MASTER CONTROL TO 9P075830 | 07353 0074 00 1 10370 TSX RELES,1 1.DISCONNECT VIA RELEASE ROUTINE 9P075840 | 07354 0074 00 1 10167 TSX SYNCR,1 2.CONNECT VIA SYNC ROUTINE 9P075850 07355 0 00000 0 10032 PZE TRM1 3.TRANSMIT FROM 9P075860 | 07356 0 00000 0 10033 PZE TRM2 BUFFER TO WORKING STORAGE 9P075870 | 07357 0020 00 0 10114 TRA RSRD 4.HANDLE IORY AND IOSY WITH -RSRD- 9P075880 | 1 LISTING OF 12/01/64 PAGE 176 | BUFFERED WRITE ROUTINE | * TSX WRITE,4 BUFFERED WRITE 9P075900 | * PZE FILE,,EOB END OF BLOCK EXIT 9P075910 | * * 9P075920 | * * 9P075930 * IO-LIST 9P075940 | * * 9P075950 | * RETURN 9P075960 | | * THE AC CONTAINS AT EXIT A HISTORY OF THE 9P075980 * IO ACTION TAKEN. THE FOLLOWING INFORMATION 9P075990 | * IS GIVEN. 9P076000 | * 1. THE LOCATION+1 OF THE LAST WORD''WRITTEN'' 9P076010 | * 2. THE NUMBER OF WORDS REMAINING IN THE 9P076020 | * BUFFER AREA ATTACHED TO THE FILE 9P076030 | 07360 -0056 00 003000 WRITE. LNT OUTPUT CAN'T WRITE ON CKPT FILE 9P076050 | 07361 -0056 00 040000 LNT OPEND IF FILE NOT OPEN 9P076060 | 07362 0020 00 0 06560 TRA NOPXIT DO NOTHING JUST EXIT 9P076070 | 07363 -0054 00 003000 LFT OUTPUT IF OUTPUT FILE 9P076080 07364 0020 00 0 07366 TRA *+2 ALL IS WELL. 9P076090 | 07365 0020 00 0 06560 TRA NOPXIT INPUT, DO NOTHING, JUST EXIT 9P076100 | 07366 0074 00 4 07375 TSX FNLBC,4 FIND L(POOL) 9P076110 | 07367 0074 00 4 07701 TSX RDWRT,4 WRITE DIRECTING MASTER CONTROL TO 9P076120 | 07370 0074 00 1 10527 TSX TRUNC,1 1.DISCONNECT VIA TRUNCATE ROUTINE 9P076130 07371 0074 00 1 10617 TSX GTBUF,1 2.CONNECT VIA GET BUFFER FROM POOL 9P076140 | 07372 0 00000 0 10033 PZE TRM2 3.TRANSMIT FROM 9P076150 | 07373 0 00000 0 10032 PZE TRM1 WORKING STORAGE TO BUFFER 9P076160 | 07374 0020 00 0 10122 TRA RSWR 4. HANDLE IORY AND IOSY WITH -RSWR- 9P076170 | 1 LISTING OF 12/01/64 PAGE 177 BUFFERED WRITE ROUTINE | | * FIND L(BPC) FROM FILE CONTROL WORD 9P076190 | * TSX FNLBC,4 IR2 MUST = -L(FILE) IR1 DESTROYED 9P076200 | 07375 0500 00 2 00004 FNLBC CLA 4,2 9P076210 07376 -0734 00 1 00000 PDX 0,1 9P076220 | 07377 0634 00 1 07270 SXA LBC,1 9P076230 | 07400 0020 00 4 00001 TRA 1,4 9P076240 | | * ADJUST INPUT BUFFER AVAILABILITY COUNT ( ATTACH AND CLOSE ) 9P076260 * TSX ADIBC,1 9P076270 | 07401 0054 00 000200 ADIBC RFT SWATT ADJUST IBACT BY 9P076280 | 07402 0760 00 0 00003 SSP $9P076290 | 07403 0564 00 0 04714 L(0)A ENB L(0) TRAP PROTECT 9P076300 | 07404 0400 60 0 07270 ADD* LBC +1 CLOSE INPUT,PTO,LAST TTO 9P076310 07405 0120 00 0 07411 TPL AD1 -1 ATTACH INPUT, PTO, 1ST TTO 9P076320 | 07406 0622 60 0 07270 STD* LBC +RESCT CLOSE RESERVE GROUP 9P076330 | 07407 0564 00 0 00735 ENB TRAPS 9P076340 | 07410 0020 00 1 00001 TRA 1,1 -RESCT ATTACH RESERVE GROUP 9P076350 | * ERROR IBACT NEGATIVE 9P076360 07411 -0500 00 0 07413 AD1 CAL AD2 PICK UP MESSAGE PARAM 9P076370 | 07412 0020 00 0 06664 TRA TSXR AND GO ADD L(TSX) ,PRINT AND STOP 9P076380 | 07413 -0 00003 0 12327 AD2 MZE MESS8,,3 '' ATTACH ERROR AT ***** '' 9P076390 | * ROUTINE TO PREPARE REDUNDANCY ERROR COUNTS ON 9P076400 | * PRINTER FOR THE OPERATOR 9P076410 | 07414 0634 00 4 07451 REDCT SXA RCT1,4 SAVE IR4 9P076430 | 07415 -0500 00 2 00005 CAL 5,2 IF ERROR HISTORY 9P076440 | 07416 0767 00 0 00004 ALS 4 IS ZERO THEN BYPASS ERROR PRINT 9P076450 | 07417 0100 00 0 07447 TZE RCT0 ELSE ERROR HISTORY IS PRINTED 9P076460 07420 0074 00 4 07562 TSX DRANO,4 DRIVE ADDRESS TO MESSAGE 9P076470 | 07421 0560 00 2 00007 LDQ 7,2 REEL SEQ 9P076480 | 07422 -0600 00 0 12342 STQ MES10+1 TO MESSAGE 9P076490 | 07423 0500 00 2 00003 CLA 3,2 RECORD 9P076500 | 07424 0074 00 4 00715 TSX (DECVD,4 COUNT 9P076510 07425 -0600 00 0 12344 STQ MES10+3 9P076520 | 07426 0500 00 2 00005 CLA 5,2 REDUN 9P076530 | 07427 0074 00 4 00716 TSX (DECVA,4 COUNT $9P076540 | 07430 -0600 00 0 12353 STQ MES12 9P076550 | 07431 0500 00 2 00005 CLA 5,2 PERM. OR 9P076560 07432 0074 00 4 00715 TSX (DECVD,4 ERASE COUNT $9P076570 | 07433 -0600 00 0 12356 STQ MES12+3 9P076580 | 07434 0500 00 0 12360 CLA MES13 PLACE ''ERASE'' FOR OUTPUT 9P076590 | 07435 -0054 00 003000 LFT OUTPUT OR ''PERM.'' FOR INPUT 9P076600 | 07436 0500 00 0 12361 CLA MES14 IN MESSAGE 9P076610 07437 0601 00 0 12357 STO MES12+4 9P076620 | 07440 0074 00 4 00706 TSX PROUT,4 PRINT 9P076630 | 07441 0 00000 0 00004 PZE 4 9P076640 | 07442 -0 00002 0 12302 MZE MESS1,,2 9P076650 | 07443 -0 00003 2 00011 MZE 9,2,3 9P076660 07444 0 00006 0 12341 PZE MES10,,6 9P076670 | 07445 0 04011 0 12347 PZE MES11,,9+512*DBLSP 9P076680 | 07446 0600 00 2 00005 STZ 5,2 SET ERROR INFO =0 9P076690 | 07447 0754 00 0 00000 RCT0 PXA 0,0 SET BLOCK SEQUENCE 9P076700 | 07450 0622 00 2 00003 STD 3,2 BLOCK CT 9P076710 07451 0774 00 4 00000 RCT1 AXT **,4 RESTORE IR4 9P076720 | 07452 0020 00 4 00001 TRA 1,4 EXIT 9P076730 | 1 LISTING OF 12/01/64 PAGE 178 | BUFFER COUNT ADJUSTMENT ROUTINES | * TSX TOKBF,4 WHEN A BUFFER IS DESIRED TO BE TAKEN 9P076750 | * ERROR RETURN CANT TAKE ONE EXIT .. IR1 KILLED AT EITHER 9P076760 | | * TSX BCKBF,1 WHEN A BUFFER RETURNED TO THE POOL 9P076780 | * IR4 MUST= -L(POOL) 9P076790 | 07453 0564 00 0 04714 TOKBB ENB L(0) TRAP PROTECT 9P076810 | 07454 0634 00 4 07473 TOKBF SXA TK3,4 SAVE IR4 9P076820 | 07455 -0056 00 020000 LNT RESER IF A RESERVE FILE 9P076830 | 07456 0020 00 0 07463 TRA TK1 THEN REDUCE THE RESERVE BUFFER 9P076840 07457 0500 60 2 00003 CLA* 3,2 COUNT AND IF IT 9P076850 | 07460 -0734 00 1 00000 PDX 0,1 GOES NEGATIVE THEN 9P076860 | 07461 1 77777 1 07462 TXI *+1,1,-1 REDUCE POOL CT ALSO 9P076870 | 07462 -3 10000 1 07470 TXL TK2,1,4096 9P076880 | 07463 -0500 60 0 07270 TK1 CAL* LBC REDUCE POOL CT FOR ALL 9P076890 07464 -0734 00 4 00000 PDX 0,4 IMMEDIATE FILES 9P076900 | 07465 -3 00000 4 07475 TXL TK4,4,0 AND ABOVE RESERVE FILES 9P076910 | 07466 0402 00 0 04721 SUB 1DEC 9P076920 | 07467 0622 60 0 07270 STD* LBC 9P076930 | 07470 -0754 00 1 00000 TK2 PXD 0,1 RESTORE RESERVE 9P076940 07471 -0054 00 020000 LFT RESER BUFFER COUNT IF A RESERVE 9P076950 | 07472 0622 60 2 00003 STD* 3,2 FILE 9P076960 | 07473 0774 00 4 00000 TK3 AXT **,4 RESTORE IR4 9P076970 | 07474 0020 00 4 00002 TRA 2,4 EXIT 9P076980 | 07475 0534 00 4 07473 TK4 LXA TK3,4 TAKE ERROR EXIT 9P076990 07476 0020 00 4 00001 TRA 1,4 9P077000 | | * RESTORE BUFFER COUNT TO RESERVE GROUP AND OR POOL 9P077020 | | 07477 0535 00 4 07270 BCKBB LAC LBC,4 -L(POOL) TO IR4 9P077040 07500 -0056 00 020000 BCKBF LNT RESER IF A ARESERVE 9P077050 | 07501 0020 00 0 07511 TRA BK1 FILE THEN INCREMENT 9P077060 | 07502 0634 00 1 07510 SXA BK2,1 SAVE IR1 9P077070 | 07503 0500 60 2 00003 CLA* 3,2 THE RESERVE BUFFER COUNT FIRST 9P077080 | 07504 -0734 00 1 00000 PDX 0,1 9P077090 07505 0361 00 0 04721 ACL 1DEC 9P077100 | 07506 0622 60 2 00003 STD* 3,2 9P077110 | 07507 -3 10000 1 07515 TXL BK3,1,4096 IF IT WAS NEGATIVE INCREMENT 9P077120 | 07510 0774 00 1 00000 BK2 AXT **,1 RESTORE IR1 9P077130 | 07511 -0500 00 4 00000 BK1 CAL 0,4 POOL CT ALSO 9P077140 07512 0400 00 0 04721 ADD 1DEC 9P077150 | 07513 0622 00 4 00000 STD 0,4 9P077160 | 07514 0020 00 1 00001 TRA 1,1 EXIT 9P077170 | 07515 0534 00 1 07510 BK3 LXA BK2,1 RESTORE IR1 9P077180 | 07516 0020 00 1 00001 TRA 1,1 AND TAKE EXIT 9P077190 1 LISTING OF 12/01/64 PAGE 179 | PRINT REEL DISMOUNTING INSTRUCTIONS TO OPERATOR | | 07517 0634 00 4 07530 UNMNT SXA UNM1,4 SAVE IR4 9P077210 | 07520 0074 00 4 07562 TSX DRANO,4 ABS UNIT TO MESSAGE 9P077220 07521 -0500 00 2 00007 CAL 7,2 REEL NUMBER 9P077230 | 07522 0602 00 0 12367 SLW MES23+2 TO MESSAGE 9P077240 | 07523 0074 00 4 00706 TSX PROUT,4 PRINT 9P077250 | 07524 0 00000 0 00003 PZE 3 '' UNIT ***** 9P077260 | 07525 -0 00002 0 12302 MZE MESS1,,2 FILE-NAME 9P077270 07526 -0 00003 2 00011 MZE 9,2,3 REMOVE REEL ***** '' 9P077280 | 07527 0 04003 0 12365 PZE MES23,,3+512*DBLSP 9P077290 | 07530 0774 00 4 00000 UNM1 AXT **,4 9P077300 | 07531 0020 00 4 00001 TRA 1,4 EXIT 9P077310 | * PRINT INSTRUCTIONS TO OPERATOR TO MOUNT A NEW REEL 9P077330 | * THE REEL NUMBER MUST BE IN THE AC 9P077340 | | 07532 0634 00 4 07555 MOUNT SXA MNT3,4 SAVE IR4 9P077360 | 07533 0602 00 0 12367 SLW MES23+2 SAVE REEL NUMBER IN MESSAGE 9P077370 07534 0074 00 4 07562 TSX DRANO,4 UNIT NUMBER TO MESSAGE 9P077380 | 07535 0500 00 0 07557 CLA MNT4 IF INPUT FILE 9P077390 | 07536 -0054 00 003000 LFT OUTPUT ''MOUNT REEL *****'' 9P077400 | 07537 0020 00 0 07541 TRA *+2 IF NON-LABELED OUTPUT 9P077410 | 07540 0020 00 0 07544 TRA MNT1 ''MOUNT BLANK'' 9P077420 07541 0500 00 0 07560 CLA MNT5 IF LABELED OUTPUT 9P077430 | 07542 -0054 00 000400 LFT LABEL '' MOUNT LABELED BLANK'' 9P077440 | 07543 0500 00 0 07561 CLA MNT6 9P077450 | 07544 0601 00 0 07551 MNT1 STO *+5 EXTRA MESSAGE TO LIST 9P077460 | 07545 0074 00 4 00706 MNT2 TSX PROUT,4 PRINT INSTRUCTIONS TO OPERATOR 9P077470 07546 0 00000 0 00004 PZE 4 9P077480 | 07547 -0 00002 0 12302 MZE MESS1,,2 9P077490 | 07550 -0 00003 2 00011 MZE 9,2,3 9P077500 | 07551 -0 00000 0 00000 MZE ** 9P077510 | 07552 0 00002 0 12366 PZE MES23+1,,2 9P077520 07553 0500 00 0 07545 CLA MNT2 SET INDICATOR THAT UNIT IS 9P077530 | 07554 0625 00 2 00000 STT 0,2 MOUNTED 9P077540 | 07555 0774 00 4 00000 MNT3 AXT **,4 9P077550 | 07556 0020 00 4 00001 TRA 1,4 9P077560 | 07557 -0 00001 0 12370 MNT4 MZE MES24,,1 9P077570 07560 -0 00002 0 12370 MNT5 MZE MES24,,2 9P077580 | 07561 -0 00003 0 15216 MNT6 MZE LMSG5,,3 9P077590 | 1 LISTING OF 12/01/64 PAGE 180 | FIND TAPE ADDRESS AND PLACE IN MESSAGEWUNIT*****W | * TSX DRANO,4 EXECUTES ENB L(0),NO ENB TRAPS 9P077610 | | 07562 0634 00 4 07570 DRANO SXA *+6,4 CLEAR IR4 FOR * ADDRESSING 9P077630 | 07563 0774 00 4 00000 AXT 0,4 9P077640 | 07564 0560 60 2 00000 LDQ* 0,2 9P077650 07565 0564 00 0 04714 ENB L(0) TRAP PROTECT SYUNCV ROUTINE 9P077660 | 07566 0074 00 4 00714 TSX SYUNCV,4 CONVERT UNIT TO SYMBOLIC 9P077670 | 07567 0602 00 0 12303 SLW MESS1+1 9P077680 | 07570 0774 00 4 00000 AXT **,4 9P077690 | 07571 0020 00 4 00001 TRA 1,4 9P077700 | * FOLDED CHECKSUM CALCULATOR 9P077720 | * CHECKSUMS LOCATOR SPECIFICATION 9P077730 | * FOR FILE AND LEAVES 9P077740 | * FOLDED 18 BIT CHECKSUM IN MQ S-17 9P077750 | * CALLING SEQUENCE 9P077770 | | * TSX SUMMIT,1 IR2 MUST = -L(FILE) 9P077790 | 07572 0500 60 0 10542 SUMMIT CLA* TR5 SETUP NUMBER 9P077810 | 07573 0634 00 1 07613 SXA SUM3,1 SAVE IR1 9P077820 | 07574 -0734 00 1 00000 PDX 0,1 WDS TO 9P077830 | 07575 0754 00 0 00000 PXA 0,0 CHECKSUM 9P077840 | 07576 0020 00 0 07600 TRA *+2 DONT CHECKSUM BLOCK SEQ WORD 9P077850 07577 0361 00 1 00000 SUM1 ACL **,1 CHECKSUM 9P077860 | 07600 2 00001 1 07577 2PRE TIX *-1,1,1 BUFFER 9P077870 | 07601 -0130 00 0 00000 XCL FOLD 9P077880 | 07602 0600 00 0 13122 STZ TEMP CHECKSUM TO 18 BITS 9P077890 | 07603 -0620 00 0 13122 SLQ TEMP UPPER BITS S-17 9P077900 07604 -0130 00 0 00000 XCL ADDED TO LOWER BITS 18-35 9P077910 | 07605 0767 00 0 00022 ALS 18 THEN OVERFLOW ADDED 9P077920 | 07606 0361 00 0 13122 ACL TEMP TO SUM 9P077930 | 07607 0760 00 0 00001 LBT FOLDED 18-BIT 9P077940 | 07610 0020 00 0 07612 TRA SUM2 CHECKSUM 9P077950 07611 0361 00 0 04721 ACL 1DEC LEFT IN MQ 9P077960 | 07612 -0130 00 0 00000 SUM2 XCL CHECKSUM IN MQ S-17 9P077970 | 07613 0774 00 1 00000 SUM3 AXT **,1 9P077980 | 07614 0021 00 1 00001 TTR 1,1 9P077990 | 1 LISTING OF 12/01/64 PAGE 181 COMMON SUBROUTINE-ERROR EXITS HANDLER | | * HANDLES EOB,EOF,AND URR EXITS 9P078010 | | 07615 0500 00 4 00000 EOFER CLA 0,4 END OF FILE 9P078030 07616 -0320 00 0 04730 ANA 1PRE EXIT INPUT FILE 9P078040 | 07617 -0057 00 100000 RIL 100000 NOT OPEN 9P078050 | 07620 0043 00 0 00000 OAI PLACE 1ST COMMAND IN SI 9P078060 | 07621 1 77777 4 07622 TXI *+1,4,-1 STEP GTIOX TO NEXT 9P078070 | 07622 0634 00 4 07710 SXA GTIOX,4 COMMAND 9P078080 07623 0020 00 0 07631 TRA EOF.0 TAKE EOF EXIT 9P078090 | 07624 -0054 00 000400 EOFEX LFT LABEL END OF FILE 9P078100 | 07625 0074 00 1 14333 TSX LAEOF,1 LABELED FILE 9P078110 | 07626 -0054 00 000040 LFT MULTI MULTI-REEL 9P078120 | 07627 -0057 00 000004 RIL NOEOT SET NEXT REFERENCE SWITCH 9P078130 07630 -0055 00 010000 SIL NINHIB SET NEXT REF TO READ UNLESS EOT ON 9P078140 | 07631 0074 00 1 07660 EOF.0 TSX FEXIT,1 FIND EXIT AND UPDATE HISTORY 9P078150 | 07632 0535 00 4 06344 LAC XEOF,4 PLACE EOF EXIT INTO EXIT ROUTINE 9P078160 | 07633 0634 00 4 13120 EOF.1 SXA TCHEX,4 9P078170 | 07634 0054 00 000200 RFT HELD IF BUFFERS IN HOLD CHAIN 9P078180 07635 0074 00 4 10751 TSX HOOK,4 CONNECT THEM TO FILE BEFORE EXIT 9P078190 | 07636 0560 00 0 06342 LDQ LTSX LOAD EXIT HISTORY 9P078200 | 07637 0020 00 0 06565 TRA COMXIT EXIT 9P078210 | 07640 -0500 00 0 04730 SEQEX CAL 1PRE LOAD SEQUENCE ERROR CODE 9P078220 | 07641 0020 00 0 07645 TRA BLKEX TAKE BLOCK ERROR EXIT 9P078230 07642 0500 00 0 10251 CKSEX CLA SY7.1 STORE UPDATED 9P078240 | 07643 0622 00 2 00003 STD 3,2 BLOCK SEQ NUMBER 9P078250 | 07644 -0500 00 0 07600 CAL 2PRE LOAD CHECKSUM ERROR CODE 9P078260 | 07645 0056 00 000001 BLKEX RNT NORED IF REDUNDANCY ERROR 9P078270 | 07646 0361 00 0 04733 ACL FOR ALSO OCCURRED ADD REDUN BIT 9P078280 07647 0020 00 0 07651 TRA ERREX TAKE ERROR EXIT 9P078290 | 07650 -0500 00 0 07650 URREX CAL * SET UNRECOVERABLE REDUNDANCY 9P078300 | 07651 0630 00 0 06342 ERREX STP LTSX CODE IN HISTORY 9P078310 | 07652 0074 00 1 07660 TSX FEXIT,1 URR,CKS AND BLOCK SEQ 9P078320 | 07653 -0535 00 4 06345 LDC XERR,4 ERROR EXITS 9P078330 07654 0020 00 0 07633 TRA EOF.1 9P078340 | 07655 0074 00 1 07660 EOBEX TSX FEXIT,1 SETUP HISTORY 9P078350 | 07656 -0535 00 4 06343 BOFEX LDC XEOB,4 AND TAKE EOB EXIT ( OR BOF) 9P078360 | 07657 0020 00 0 07633 TRA EOF.1 9P078370 | * FIND NORMAL EXIT AND PREPARE HISTORY 9P078380 07660 0534 00 4 07710 FEXIT LXA GTIOX,4 PLACE L(OP)+1 9P078390 | 07661 -0634 00 4 06346 SXD LTRAD,4 INTO HISTORY 9P078400 | 07662 0520 00 0 13120 ZET TCHEX HAS A TCH OCCOURRED 9P078410 | 07663 0020 00 0 07676 TRA TCHOC YES- 9P078420 | 07664 -0054 00 100000 LFT 100000 NO-IS THIS OP AN IOXT 9P078430 07665 0020 00 0 07677 TRA EXFND YES- EXIT IS AT NEXT CELL 9P078440 | 07666 0020 00 0 07670 TRA *+2 CHECK THIS COMMAND FOR IOCD 9P078450 | 07667 1 77777 4 07670 TXI *+1,4,-1 NO- 9P078460 | 07670 -0500 00 4 77777 CAL -1,4 SEARCH 9P078470 | 07671 -0765 00 0 00042 LGR 34 FOR 9P078480 07672 0100 00 0 07674 TZE *+2 EXIT 9P078490 | 07673 0162 00 0 07667 TQP *-4 9P078500 | 07674 0634 00 4 07710 SXA GTIOX,4 PLACE COMPUTED EXIT 9P078510 | 07675 0020 00 0 07677 TRA *+2 9P078520 | 07676 0534 00 4 13120 TCHOC LXA TCHEX,4 IF TCH SET TCH EXIT 9P078530 07677 0634 00 4 06342 EXFND SXA LTSX,4 STORE L(EXIT) 9P078540 | 07700 0020 00 1 00001 TRA 1,1 RETURN 9P078550 | 1 LISTING OF 12/01/64 PAGE 182 | IOBS ROUTINES FOR HANDLING BUFFERS | * BUFFER LOGIC AND EXECUTING I/O COMMANDS 9P078570 | * MASTER CONTROL ROUTINE 9P078580 | * FOR READ AND WRITE 9P078590 | * TSX RDWRT,4 IR2 MUST = -L(FCW) 9P078600 | * OP ROUTINE 1. BUFFER DISCONNECT ROUTINE 9P078610 * OP ROUTINE 2. BUFFER CONNECT ROUTINE 9P078620 | * PRE TRM1 OR TRM2 3. SPECIFY DIRECTION OF 9P078630 | * PRE TRM2 OR TRM1 TRANSMITTING 9P078640 | * OP ROUTINE 4. IORY AND IOSY HANDLER ROUTINE 9P078650 | * THIS ROUTINE WILL RELINQUISH CONTROL ONLY TO THE 9P078660 * ROUTINES IN THE CALLING SEQUENCE LIST . CONTROL IS GIVEN 9P078670 | * XEC N,4 9P078680 | | 07701 0500 60 2 00002 RDWRT CLA* 2,2 LOCATOR OF BUF IN USE TO AC 9P078700 | 07702 0600 00 0 06347 STZ TRANS SET TRANSMIT HISTORY TO ZERO 9P078710 07703 0120 00 0 07707 TPL GTIOX-1 TEST IF ATTACHED BUFFER 9P078720 | 07704 -0320 00 0 04734 ANA FVE SHOULD BE DISCONNECTED 9P078730 | 07705 0100 00 0 07707 TZE GTIOX-1 NONE ATTACHED 9P078740 | 07706 0522 00 4 00001 XEC 1,4 DISCONNECT-NON TRANSMIT USED IT UP 9P078750 | 07707 0055 00 002000 SIR INSAT SET INITIAL CONDITIONS SATISFIED 9P078760 * GET NEXT IO COMMAND 9P078770 | * THIS ROUTINE GETS THE NEXT COMMAND IN THE IO LIST AND 9P078780 | * 1. PLACES ITS OP IN THE SI (PREFIX AND TAG) 9P078790 | * 2. COMPUTES CORRECT INDIRECT ADDRESS IF SPECIFIED 9P078800 | * 3. HANDLES TCH COMMANDS AND RECORDS EXIT IF TCH APPEARS 9P078810 * 4. PLACES WORD COUNT OF IO COMMAND IN-WDCT- 9P078820 | * 5. PLACES TRANSMIT ADDRESS IN -TRANS- 9P078830 | | 07710 0774 00 1 00000 GTIOX AXT **,1 PICKUP IO COMMAND LOCATION 9P078850 | 07711 0634 00 1 07722 SXA INDIR,1 ASSUME IOXYN NOT * ADDRESSED 9P078860 07712 1 77777 1 07713 TXI *+1,1,-1 SETUP L(NEXT) 9P078870 | 07713 0634 00 1 07710 SXA GTIOX,1 IOXY 9P078880 | 07714 -0500 00 1 77777 CAL -1,1 THIS IO COMMAND TO AC 9P078890 | 07715 0621 00 0 06347 STA TRANS SAVE TRANSMIT LOC 9P078900 | 07716 0737 00 1 00000 PAC 0,1 SAVE ADDRESS FOR IOXYN* OR TCH 9P078910 07717 0622 00 0 06350 STD WDCT SAVE WORD COUNT 9P078920 | 07720 0445 00 0 06500 RIS NEWIO PLACE OP IN SI PRESETTING SWITCHES 9P078930 | 07721 -0320 00 0 06502 ANA IOOP AND NOT DISTURBING FILE 9P078940 | 07722 0043 00 0 00000 INDIR OAI ** CONDITION OR HISTORY BITS 9P078950 | 07723 -0634 00 0 10074 SXD DUMMY,0 PRESET IOSY DUMMY COUNT 9P078960 07724 -0054 00 600000 LFT 600000 SEPARATE TCH AND IOCD 9P078970 | 07725 0020 00 0 07731 TRA GT1 FROM IOCP,IOCT,IOSP,IOST,IORP, IORT 9P078980 | 07726 -0054 00 100000 LFT 100000 IOCD OR TCH COMMAND 9P078990 | 07727 0020 00 0 10141 TRA TCH TCH 9P079000 | 07730 0440 00 0 06501 IIS CDTCT IOCD-CHANGE TO IOCT, SET DISCONNECT 9P079010 07731 0056 00 400000 GT1 RNT 400000 IS INDIRECT ADDRESSING SPECIFIED 9P079020 | 07732 0020 00 0 07736 TRA RW0 NO 9P079030 | 07733 0634 00 1 07722 SXA INDIR,1 SETUP * ADDRESSING IF NON-TRANSMIT 9P079040 | 07734 0500 60 0 06347 CLA* TRANS 9P079050 | 07735 0621 00 0 06347 STA TRANS 9P079060 * IO COMMAND IS OBTAINED -EXECUTE IT 9P079070 | 07736 -0520 00 0 06350 RW0 NZT WDCT IF WORD COUNT IS 9P079080 | 07737 -0056 00 400000 LNT 400000 ZERO ON IOCY OR IOSY 9P079090 | 07740 0020 00 0 07742 TRA RW1 DO NOTHING-GO TO TEST EXIT 9P079100 | 07741 0020 00 0 10035 TRA RW8 9P079110 1 LISTING OF 12/01/64 PAGE 183 | IOBS ROUTINES FOR HANDLING BUFFERS | | 07742 0500 60 2 00002 RW1 CLA* 2,2 PICKUP BUFFER FROM FILE CONTROL WORD 9P079120 | 07743 0120 00 0 07746 TPL RW2 BUFFER IS CONNECTED TO FILE 9P079130 07744 0522 00 4 00002 RW1.4 XEC 2,4 GET NEXT BUFFER 9P079140 | 07745 0500 60 2 00002 CLA* 2,2 PICKUP BUFFER CONTROL WORD 9P079150 | * BUFFER IS CONNECTED-GO AHEAD AND EXECUTE 9P079160 | 07746 0734 00 1 00000 RW2 PAX 0,1 SAVE ADDRESS FOR IOXYN **,,CT 9P079170 | 07747 -0320 00 0 04727 ANA DECRE MASK OUT NUMBER OF WORDS LEFT 9P079180 07750 -0100 00 0 07752 TNZ RW2.1 IF SOME WORDS ARE 9P079190 | 07751 -0734 00 1 00000 PDX 0,1 AVAILABLE AND COMMAND IS 9P079200 | 07752 0054 00 200000 RW2.1 RFT 200000 IOXYN , SET L(AVAIL) TO TRANS LOC 9P079210 | 07753 0634 00 1 06347 SXA TRANS,1 IF NONE AVAIL , ZERO TO TRANS LOC 9P079220 | * DETERMINE IF CONTROL SHOULD BE RELEASED FOR IORY AND IOSY 9P079230 07754 -0054 00 200000 LFT 200000 SEPARATE IORY AND IOSY FROM IOCY 9P079240 | 07755 0522 00 4 00005 XEC 5,4 BRANCH TO IOR-IOS CONTROL 9P079250 | * COUNT CONTROL EXECUTION 9P079260 | 07756 -0100 00 0 07763 TNZ RW2.3 COUNT CONTROL- SOME WORDS AVAILABLE 9P079270 | 07757 0055 00 010000 SIR GENER SET GENERATED DISCONNECT 9P079280 07760 0522 00 4 00001 XEC 1,4 DISCONNECT 9P079290 | 07761 0057 00 010000 RIR GENER RESET GENER BIT 9P079300 | 07762 0020 00 0 07744 TRA RW1.4 AND GO ATTACH NEXT ONE 9P079310 | 07763 0402 00 0 06350 RW2.3 SUB WDCT REDUCE AVAIL WORD COUNT 9P079320 | 07764 0100 00 0 07774 TZE RW4.5 IF EMPTY SET EOB FOR POSSIBLE HOLD 9P079330 07765 0120 00 0 07775 TPL RW5 IS BUFFER OVERFLOWED 9P079340 | 07766 0622 00 0 10074 STD DUMMY YES- SAVE NUMBER OFF 9P079350 | 07767 -0056 00 200000 LNT 200000 UNLESS COMMAND IS IOSY 9P079360 | 07770 0055 00 010000 SIR GENER SET BIT FOR GENERATED COMMAND 9P079370 | 07771 0400 00 0 06350 RW3 ADD WDCT FORM COUNT TO EXECUTE 9P079380 07772 0622 00 0 06350 RW4 STD WDCT ON THIS BUFFER 9P079390 | 07773 0754 00 0 00000 PXA 0,0 SET ZERO REMAINING WORDS 9P079400 | 07774 0055 00 004000 RW4.5 SIR EOB TURN ON EOB INDICATOR 9P079410 | * SETUP AND TRANSMIT -IF NON-TRANSMITTING OP ACTUAL TRANSMIT SKIPPED 9P079420 | 07775 0056 00 200004 RW5 RNT IOSY+200000 DO NOT ALLOW IOSYN WRITE $9P079430 07776 0622 60 2 00002 STD* 2,2 TO ADJUST LOCATOR 9P079440 | 07777 0622 00 0 06346 STD LTRAD SAVE NUMBER AVAIL WDS INTO HISTORY 9P079450 | 10000 0056 00 200000 RNT 200000 IF IOXYN **,,CT 9P079460 | 10001 0020 00 0 10006 TRA RW6 OR IOXYN* ADDR,,CT 9P079470 | 10002 0500 00 0 06347 CLA TRANS THEN PLACE L(WORDS) 9P079480 10003 0534 00 1 07722 LXA INDIR,1 INTO ** OR ADDR 9P079490 | 10004 0621 00 1 00000 STA 0,1 RESPECTIVELY 9P079500 | 10005 0055 00 000010 SIR XECNT INDICATE IOXYN EXECUTED 9P079510 | 10006 -0534 00 1 06350 RW6 LXD WDCT,1 FORM FIRST 9P079520 | 10007 0754 00 1 00000 PXA 0,1 TRANSMIT 9P079530 10010 0361 60 2 00002 ACL* 2,2 ADDRESS 9P079540 | 10011 0056 00 200004 RNT IOSY+200000 AGAIN IOSYN MUST NOT $9P079550 | 10012 0621 60 2 00002 STA* 2,2 ADJUST LOCATOR 9P079560 | 10013 0621 60 4 00003 STA* 3,4 STORE ADDRESS FOR TRANSMIT 9P079570 | 10014 0754 00 1 00000 PXA 0,1 COMPUTE 9P079580 10015 0361 00 0 06347 ACL TRANS SECOND TRANSMIT ADDRESS 9P079590 | 10016 0621 60 4 00004 STA* 4,4 AND STORE IT 9P079600 | 10017 0621 00 0 06346 STA LTRAD SAVE L(LAST WD)+1 FOR HISTORY 9P079610 | 10020 -3 00000 1 10035 TXL RW8,1,0 IF WDCT = 0 SKIP TRANSMIT 9P079620 | 10021 0534 00 1 06347 LXA TRANS,1 TEST FIRST XMIT 9P079630 10022 -3 00000 1 10024 TXL *+2,1,0 ILLEGAL TO WRITE INSIDE IOCS $9P079640 | 10023 0522 00 0 10026 XEC RW7 FOR BOUNDS ERROR 9P079650 | 10024 0534 00 1 10033 LXA TRM2,1 IF TRANSMIT INSIDE 9P079660 | 1 LISTING OF 12/01/64 PAGE 184 | IOBS ROUTINES FOR HANDLING BUFFERS | 10025 -3 00000 1 10027 TXL *+2,1,0 THE 9P079670 | 10026 -3 15544 1 10103 RW7 TXL BOUND,1,B6FIN-1 SYSTEM BOUNDRIES STOP $9P079680 | 10027 0054 00 200000 RFT 200000 IF NON-TRANSMITTING 9P079690 | 10030 0020 00 0 10035 TRA RW8 SKIP OVER MOVES 9P079700 10031 -0534 00 1 06350 LXD WDCT,1 WDCT TO IR1 9P079710 | 10032 -0500 00 1 00000 TRM1 CAL **,1 TRANSMIT 9P079720 | 10033 0602 00 1 00000 TRM2 SLW **,1 1.BUFFER TO WS (READ) 9P079730 | 10034 2 00001 1 10032 TIX *-2,1,1 2.WS TO BUFFER (WRITE) 9P079740 | * TERMINATE IO COMMAND 9P079750 10035 -0520 00 0 06343 RW8 NZT XEOB IF USER NOT LOCATING 9P079760 | 10036 0057 00 004000 RIR EOB IGNORE SPECIAL ACTIONS AT EOB 9P079770 | 10037 0056 00 004000 RNT EOB IF EOB DID NOT OCCUR 9P079780 | 10040 0020 00 0 10043 TRA RW9 GO DO NORMAL TERMINATION PROCEDURE 9P079790 | 10041 0054 00 000010 RFT XECNT IF LOCATING AND EOB OCCURS AND 9P079800 10042 0055 00 000400 SIR HOLD WORDS LOCATED, SETUP HOLD 9P079810 | 10043 0054 00 030000 RW9 RFT DIGEN IS A BUFFER TO BE DISCONNECTED 9P079820 | 10044 0020 00 0 10056 TRA RW13 YES 9P079830 | 10045 -0056 00 100000 RW10 LNT 100000 IS COMMAND 9P079840 | 10046 0020 00 0 07710 TRA GTIOX IOXP OR IOXT 9P079850 10047 0054 00 000200 RW12 RFT HELD IF A HOLD OCCURRED 9P079860 | 10050 0074 00 4 10751 TSX HOOK,4 SETUP BUFFER HOLD CHAIN IN FILE 9P079870 | 10051 0054 00 000020 RFT RDSWIT IF READING EXECUTE 9P079880 | 10052 0074 00 4 10151 TSX RDPRI,4 SPECIAL PRIORITY TESTS BEFORE EXIT 9P079890 | 10053 0054 00 000100 RFT EOBXIT EXIT AT 9P079900 10054 0020 00 0 07655 TRA EOBEX -EOB EXIT 9P079910 | 10055 0020 00 0 06565 TRA COMXIT -NORMAL EXIT 9P079920 | 10056 0522 00 4 00001 RW13 XEC 1,4 DISCONNECT(DISCN,EOB,HOLD,XECNT =0 ) 9P079930 | 10057 0056 00 010000 RNT GENER IS COMMAND ONLY PARTIALLY DONE 9P079940 | 10060 0020 00 0 10045 TRA RW10 -NO IT IS COMPLETE 9P079950 10061 0057 00 010000 RIR GENER RESET GENER BIT 9P079960 | 10062 -0054 00 200000 LFT 200000 IF IOCY 9P079970 | 10063 0020 00 0 10072 TRA RW14+2 NO- IOSY INTERRUPTED 9P079980 | 10064 0056 00 200000 RNT 200000 IF IOCYN 9P079990 | 10065 0020 00 0 10070 TRA RW14 NO -IOC TRANSMITTING 9P080000 10066 0520 00 0 06343 ZET XEOB IF IOCYN LOCATING 9P080010 | 10067 0020 00 0 10075 TRA RW16 TAKE EOB INTERRUPT EXIT 9P080020 | 10070 0500 60 4 00004 RW14 CLA* 4,4 SETUP NEW TRANSMIT 9P080030 | 10071 0621 00 0 06347 STA TRANS ADDRESS 9P080040 | 10072 0500 00 0 10074 CLA DUMMY SET NEW 9P080050 10073 0622 00 0 06350 STD WDCT WORD COUNT 9P080060 | 10074 -3 00000 0 07736 DUMMY TXL RW0,,** EXECUTE GENERATED COMMAND 9P080070 | 10075 -0500 00 0 07600 RW16 CAL 2PRE SET EOB IOCYN 9P080080 | 10076 0020 00 0 10100 TRA RW17+1 INTERRUPTED CODE 9P080090 | 10077 -0500 00 0 10077 RW17 CAL * SET END OF BUFFERS CODE 9P080100 10100 0630 00 0 06342 STP LTSX STORE CODE 9P080110 | 10101 0055 00 000100 SIR EOBXIT SET AND TAKE 9P080120 | 10102 0020 00 0 10047 TRA RW12 EOB EXIT 9P080130 | | * BOUNDS ERROR IO COMMAND 9P080150 10103 -3 00000 1 10027 BOUND TXL RW7+1,1,0 ALLOW 77777 AS LAST ADDRESS 9P080160 | 10104 0535 00 1 07710 LAC GTIOX,1 PLACE L(IOXY) IN IR1 9P080170 | 10105 -0500 00 0 12336 CAL MESS9+4 PLACE ''WRITE'' $9P080180 | 10106 0054 00 000020 RFT RDSWIT ON IF READ $9P080190 | 10107 -0500 00 0 12337 CAL MESS9+5 OR ''READ'' $9P080200 10110 0602 00 0 12335 SLW MESS9+3 IN MESSAGE $9P080210 | 1 LISTING OF 12/01/64 PAGE 185 | IOBS ROUTINES FOR HANDLING BUFFERS | | 10111 -0500 00 0 10113 CAL *+2 PARAM TO AC 9P080220 10112 1 77777 1 06665 TXI TSXR+1,1,-1 GO PRINT, L(IOXY) IN IR1 9P080230 | 10113 -0 00004 0 12332 MZE MESS9,,4 ''BOUNDS ERROR READ (WRITE) *****'' $9P080240 | 1 LISTING OF 12/01/64 PAGE 186 | IOBS ROUTINES FOR HANDLING BUFFERS | * HANDLER FOR IORY AND IOSY READING 9P080260 | 10114 -0054 00 400000 RSRD LFT 400000 IS COMMAND IORY OR IOSY 9P080270 | 10115 0020 00 0 07763 TRA RW2.3 IOSY-LET COUNT CONTROL HANDLE IT 9P080280 | 10116 0534 00 1 07710 LXA GTIOX,1 -L(IOXY+1) TO IR1 9P080290 | 10117 0622 00 1 77777 STD -1,1 SET ASSIGNED WORD CT INTO IORY 9P080300 10120 0055 00 020000 SIR DISCN SET COMMAND DISCONNECT 9P080310 | 10121 0020 00 0 07772 TRA RW4 EXECUTE READ 9P080320 | | * HANDLER FOR IORY AND IOSY WRITING 9P080340 | 10122 0055 00 000004 RSWR SIR IOSY ASSUME IT TO BE IOSY 9P080350 10123 -0056 00 400000 LNT 400000 IS IT ACTUALLY IOSY 9P080360 | 10124 0051 00 024004 IIR EBDSY NO-SET EOB DISCONNECT, TURN OFF IOSY 9P080370 | 10125 0402 00 0 06350 SUB WDCT REDUCE WORD COUNT AVAILABLE 9P080380 | 10126 0120 00 0 07775 TPL RW5 IF ENOUGH WERE AVAIL,EXECUTE COMMAND 9P080390 | 10127 -0056 00 400000 LNT 400000 NOT ENOUGH 9P080400 10130 0020 00 0 07771 TRA RW3 IORY- REDUCE CT AND EXECUTE 9P080410 | 10131 -0534 00 1 10074 LXD DUMMY,1 IF SECOND ATTEMPT ON IOSY 9P080420 | 10132 3 00000 1 07771 TXH RW3,1,0 IS STILL TOO BIG, THEN REDUCE COUNT 9P080430 | 10133 0055 00 010000 SIR GENER IOSY -SET GENER TO DO ON NEXT BUF 9P080440 | 10134 0500 00 0 06350 CLA WDCT SETUP GENERATED 9P080450 10135 0622 00 0 10074 STD DUMMY COMMAND 9P080460 | 10136 0054 00 000010 RFT XECNT IF AN IOXYN WAS 9P080470 | 10137 0055 00 004000 SIR EOB ALREADY EXECUTED SET EOB TESTS 9P080480 | 10140 0020 00 0 10035 TRA RW8 GO RELEASE THIS BUF AND DO GENER 9P080490 | * HANDLER TCH COMMAND 9P080510 | 10141 0500 00 0 07710 TCH CLA GTIOX PICKUP L(TCH)+1 9P080520 | 10142 -0520 00 0 13120 NZT TCHEX IF 1ST TCH THEN 9P080530 | 10143 0621 00 0 13120 STA TCHEX EXIT = L(TCH)+1 9P080540 | 10144 0056 00 400000 RNT 400000 IF NOT INDIRECT 9P080550 10145 0020 00 0 07711 TRA GTIOX+1 TCH EXECUTED 9P080560 | 10146 -0500 00 1 00000 CAL 0,1 INDIRECTLY ADDRESSED TCH 9P080570 | 10147 0737 00 1 00000 PAC 0,1 GO ONE MORE LEVEL AND 9P080580 | 10150 0020 00 0 07711 TRA GTIOX+1 EXIT 9P080590 | * PRIORITY EXIT TESTS FOR READ 9P080610 | 10151 0500 00 2 00001 RDPRI CLA 1,2 IF THE FILE HAS MORE BUFFERS 9P080620 | 10152 -0320 00 0 04716 ANA L(377) 9P080630 | 10153 0734 00 1 00000 PAX 0,1 REQUESTED THAN WERE SYNCED BY 9P080640 | 10154 3 00000 1 10156 SYNCT TXH *+2,1,** THIS READ,THEN FILE IS ENOUGH 9P080650 10155 0020 00 0 10157 TRA *+2 AHEAD. TURN OFF RUSH AND GIVUP BITS 9P080660 | 10156 -0057 00 000031 RIL PRIBTS AND EXIT. 9P080670 | 10157 0054 00 001000 RFT REINT IF LAST BUF SYNCED 9P080680 | 10160 0020 00 0 10164 TRA *+4 GIVE FILE A KICK 9P080690 | 10161 -0056 00 000001 LNT RHIST IF NUMBER REQUESTED LT OR = SYNCT 9P080700 10162 0020 00 4 00001 TRA 1,4 AND RUSH OCCURRED TRY TO GET 9P080710 | 10163 -0057 00 000020 RIL GIVUP BUFFER NOW, IF CANT LEAVE GIVUP ON. 9P080720 | 10164 0074 00 1 10333 TSX BORBF,1 IF NO RUSH OCCURRED 9P080730 | 10165 -0055 00 000020 SIL GIVUP LEAVE GIVUP AS IS,IF IT IS ON A 9P080740 | 10166 0020 00 4 00001 TRA 1,4 NEW BUFFER WILL BE GOTTEN NEXT READ 9P080750 1 LISTING OF 12/01/64 PAGE 187 | READ SUBROUTINE - SYNCR- | | * GETS A BUFFER FROM THE EXECUTOR 9P080770 | * VIA THE SYNC ROUTINE 9P080780 | * TSX SYNCR,1 IR2 MUST = -L(FCW) 9P080800 | * RETURN INDEXS ARE NOT DISTRUBED 9P080810 | | 10167 0634 00 4 10273 SYNCR SXA SY8.2,4 SAVE IR4 9P080830 10170 0634 00 1 10274 SXA SY8.1,1 IR1 9P080840 | 10171 0055 00 000003 SIR NOREOF SET REDUN + EOF SWITCHES 9P080850 | 10172 0564 00 0 04714 SY3 ENB L(0) TRAP PROTECT $9P080860 | 10173 -0520 60 2 00004 NZT* 4,2 ANYTHING TO SYNC 9P080870 | 10174 0020 00 0 10310 TRA SY10 -NO 9P080880 10175 0560 60 2 00004 LDQ* 4,2 SAVE 1ST WD BUFFER 9P080890 | 10176 0500 00 2 00004 CLA 4,2 SYNCED BUFFER TO 9P080900 | 10177 0621 00 2 00002 STA 2,2 BUFFER IN USE ADDRESS 9P080910 | 10200 -0500 00 2 00001 CAL 1,2 REDUCE COUNT OF 9P080920 | 10201 0361 00 0 04716 ACL L(377) BUFS AHEAD,INCREMENT BUFS IN USE 9P080930 10202 0621 00 2 00001 STA 1,2 9P080940 | 10203 0131 00 0 00000 XCA UPDATE SYNC 9P080950 | 10204 0621 00 2 00004 STA 4,2 CHAIN CARRYING L(END) 9P080960 | 10205 0520 60 2 00004 ZET* 4,2 IN DECREMENT FIRST ENTRY 9P080970 | 10206 0622 60 2 00004 STD* 4,2 UNLESS NO CHAIN EXISTS 9P080980 10207 0564 00 0 00735 ENB TRAPS ALLOW TRAPS 9P080990 | 10210 -0765 00 0 00041 LGR 33 SET EOF AND/ OR REDUN 9P081000 | 10211 0041 00 0 00000 IIA BITS=0 IF CONDITION OCCURRED 9P081010 | 10212 -0534 00 1 10154 LXD SYNCT,1 ADVANCE COUNT 9P081020 | 10213 1 00001 1 10214 TXI *+1,1,1 OF BUFFERS 9P081030 10214 -0634 00 1 10154 SXD SYNCT,1 USED THIS READ 9P081040 | 10215 -0500 00 2 00002 CAL 2,2 9P081050 | 10216 0361 00 0 04715 ACL L(1) 9P081060 | 10217 0737 00 4 00000 PAC 0,4 IR4 = -L(IORT) 9P081070 | 10220 0361 00 0 04715 ACL L(1) SET LOCATOR ADDRESS 9P081080 10221 0601 60 2 00002 STO* 2,2 = BUFFER + 2 9P081090 | 10222 -0320 00 0 13112 ANA XCPTP CLEAR POSSIBLE P BIT 9P081100 | 10223 0402 00 4 00000 SUB 0,4 LOCATOR - IORT 9P081110 | 10224 0767 00 0 00022 ALS 18 = WORD COUNT 9P081120 | 10225 0622 60 2 00002 STD* 2,2 PLACE IN LOCATOR DECREMENT 9P081130 10226 0056 00 000002 RNT NOEOF DID EOF OCCUR 9P081140 | 10227 0020 00 0 10323 TRA SY11 - YES 9P081150 | 10230 0500 00 2 00001 CLA 1,2 IF LAST BUFFER 9P081160 | 10231 -0320 00 0 04716 ANA L(377) AHEAD IS 9P081170 | 10232 0734 00 1 00000 PAX 0,1 SYNCED OUT 9P081180 10233 -0500 00 2 00003 CAL 3,2 AND NOT 9P081190 | 10234 -0760 00 0 00001 PBT AN INTERNAL FILE 9P081200 | 10235 -3 00000 1 10276 TXL SY9,1,0 INITIATE ANOTHER 9P081210 | 10236 0400 00 0 04721 SY5.6 ADD 1DEC BLOCK SEQUENCE 9P081220 | 10237 -0056 00 000200 LNT BLKSEQ BLOCK SEQ CHECK 9P081230 10240 0020 00 0 10270 TRA SY7.7 -NO 9P081240 | 10241 0622 00 0 10251 STD SY7.1 SAVE SEQ NUMBER FOR TEST 9P081250 | 10242 -0500 60 2 00002 CAL* 2,2 REDUCE 9P081260 | 10243 0402 00 0 04721 SUB 1DEC USABLE WORD COUNT 9P081270 | 10244 0622 60 2 00002 STD* 2,2 BY ONE 9P081280 10245 -0500 00 4 00000 CAL 0,4 SET L(BLOCK SEQ. WD.) 9P081290 | 10246 0402 00 0 04715 SUB L(1) IN TEST CELL 9P081300 | 10247 0621 00 0 10250 STA SY7 9P081310 | 1 LISTING OF 12/01/64 PAGE 188 | READ SUBROUTINE - SYNCR- | 10250 0535 00 1 00000 SY7 LAC **,1 CHECK BLOCK 9P081320 | 10251 1 00000 1 10252 SY7.1 TXI *+1,1,** SEQUENCE 9P081330 | 10252 3 00000 1 07640 TXH SEQEX,1,0 ADVANCED BY ONE 9P081340 | 10253 -0056 00 000100 LNT CKSUMS ARE CHECKSUMS TO BE CHECKED 9P081350 10254 0020 00 0 10267 TRA SY7.6 -NO 9P081360 | 10255 0621 00 0 10263 STA SY7.5 -YES SAVE L(BLK WORD) 9P081370 | 10256 0621 00 0 07577 STA SUM1 SET LAST CKSUM ADDRESS+1 9P081380 | 10257 0500 60 2 00002 CLA* 2,2 CHECKSUM WDCT TO AC 9P081390 | 10260 0361 00 0 04721 ACL 1DEC DONT CHECKSUM CKSUM WD 9P081400 10261 0074 00 1 07573 TSX SUMMIT+1,1 FORM FOLDED CHECKSUM 9P081410 | 10262 -0620 00 0 13122 SLQ TEMP FOR COMPARE 9P081420 | 10263 -0500 00 0 00000 SY7.5 CAL ** DOES CHECKSUM COMPUTED 9P081430 | 10264 -0320 00 0 13114 ANA PDMSK COMPARE WITH 9P081440 | 10265 0322 00 0 13122 ERA TEMP CHECKSUM IN BLOCK WORD 9P081450 10266 -0100 00 0 07642 TNZ CKSEX IF NOT TAKE CKSUM ERROR EXIT 9P081460 | 10267 0500 00 0 10251 SY7.6 CLA SY7.1 SEQ NUMBER TO AC 9P081470 | 10270 0622 00 2 00003 SY7.7 STD 3,2 STORE NEW UPDATED NUMBER IN FILE 9P081480 | 10271 0056 00 000001 RNT NORED IF URR OCCURRED 9P081490 | 10272 0020 00 0 07650 TRA URREX TAKE ERROR EXIT 9P081500 10273 0774 00 4 00000 SY8.2 AXT **,4 RESTORE IR4 9P081510 | 10274 0774 00 1 00000 SY8.1 AXT **,1 IR1 9P081520 | 10275 0021 00 1 00001 TTR 1,1 RETURN 9P081530 | | * LAST BUFFER SYNCED 9P081550 10276 0074 00 1 10333 SY9 TSX BORBF,1 LAST SYNCED -INITIATE ANOTHER 9P081560 | 10277 0055 00 001000 SIR REINT COULDNT, SET REINITIATE LATER BIT 9P081570 | 10300 -0500 00 2 00003 CAL 3,2 BLK SEQ NUMBER-1 TO AC 9P081580 | 10301 0020 00 0 10236 TRA SY5.6 CONTINUE 9P081590 | * NO B UFFER A VAILABLE WHEN NEEDED 9P081610 | 10302 0520 00 0 06343 SY9.3 ZET XEOB IF EOB IS PROVIDED 9P081620 | 10303 0020 00 0 10077 TRA RW17 TAKE IT , ELSE GIVE 9P081630 | 10304 0020 00 0 10663 TRA GET4 '' ILLEGAL FILE USE '' ERROR 9P081640 | 1 LISTING OF 12/01/64 PAGE 189 RUSH SITUATION - NO BUFFER READY FOR SYNC | | 10305 0074 00 4 10613 TSX OBTIB,4 FORCE OUTPUT TO GIVE UP BUFFER 9P081660 | 10306 0074 00 1 10333 TSX BORBF,1 INITIATE READ 9P081670 | 10307 0020 00 0 10305 TRA *-2 COULDN,T 9P081680 10310 0500 00 2 00003 SY10 CLA 3,2 EOB ON INTERNAL $9P081690 | 10311 -0120 00 0 07624 TMI EOFEX FILE IS = END OF FILE 9P081700 | 10312 -0055 00 000011 SIL RBITS SET RUSH PRIORITY BITS $9P081710 | 10313 0760 00 0 00142 SY10.1 SLN 2 SET WAITING LITE 9P081720 | 10313 BES SY10.1+LITES-* ON 9P081730 10313 -0774 00 4 00001 AXC 1,4 IS THERE ANY REQUEST 9P081740 | 10314 -0520 60 2 00000 NZT* 0,2 TO BE SYNCED 9P081750 | 10315 0020 00 0 10306 TRA SY10-2 -NO 9P081760 | 10316 0074 00 4 00703 TSX ACTV+1,4 -YES ACTIVIATE PRIORITY 9P081770 | 10317 -0 00000 2 00000 MZE 0,2 THAT FILE 9P081780 10320 -0520 60 2 00004 NZT* 4,2 WAIT TILL 9P081790 | 10321 0020 00 0 10320 TRA *-1 READ IS COMPLETED 9P081800 | 10322 -0760 00 0 00142 SY10.2 SLT 2 TURN WAIT LITE OFF 9P081810 | 10323 0761 00 0 00000 NOP 9P081820 | 10322 BES SY10.2+LITES*2-* 9P081830 10322 0020 00 0 10172 TRA SY3 CONTINUE SYNC OUT 9P081840 | | * EOF ON SYNC 9P081860 | 10323 0074 00 1 10367 SY11 TSX DISCON,1 DISCONNECT BUFFER 9P081870 | 10324 0560 00 2 00002 LDQ 2,2 CHECK FOR TRAILERS. 9P081880 10325 -0773 00 0 00001 RQL 1 ONLY TYPE OF FILE FOR 9P081890 | 10326 0162 00 0 07624 TQP EOFEX MONITOR CONTROL OF EOF'S 9P081900 | 10327 0074 00 4 06357 TSX MONEOF,4 EXECUTE MONITOR EOF CONTROL 9P081910 | 10330 0020 00 0 07624 TRA EOFEX AND TAKE EOF EXIT 9P081920 | 10331 0074 00 1 12433 TSX SWITCH,1 2,4 RETURN CAUSES REEL SWITCH 9P081930 10332 0020 00 0 10171 TRA SYNCR+2 AND AUTOMATIC PROCEED 9P081940 | 1 LISTING OF 12/01/64 PAGE 190 | READ SUBROUTINE-BORBF- | | * ATTEMPT TO TAKE A BUFFER FROM POOL 9P081960 * IF ONE IS AVAILABLE THEN INITIATE A READ INTO IT 9P081970 | | * TSX BORBF,1 IR2 MUST = -L(FILE) 9P081990 | * ERROR RETURN INDEX REGISTERS ARE 9P082000 | * NORMAL RETURN NOT DISTURBED 9P082010 | 10333 0634 00 1 10365 BORBF SXA BOR8,1 SAVE IR1 9P082030 | 10334 0634 00 4 10342 SXA BOR2,4 SAVE IR4 9P082040 | 10335 0535 00 4 07270 LAC LBC,4 IF NO BUFFERS 9P082050 | 10336 0564 00 0 04714 ENB L(0) TRAP PROTECT 9P082060 10337 0500 60 4 00000 CLA* 0,4 ARE PRESENTLY 9P082070 | 10340 0120 00 0 10345 TPL BOR3 AVAIL THEN EXIT AT 1,1 9P082080 | 10341 0534 00 1 10365 LXA BOR8,1 RESTORE IR1 9P082090 | 10342 0774 00 4 00000 BOR2 AXT **,4 RESTORE IR4 9P082100 | 10343 0564 00 0 00735 ENB TRAPS 9P082110 10344 0020 00 1 00001 TRA 1,1 AND EXIT 9P082120 | 10345 -0056 00 010000 BOR3 LNT NINHIB IF FILE INHIBITED 9P082130 | 10346 1 77777 1 10342 TXI BOR2,1,-1 EXIT AT 2,1 9P082140 | 10347 0621 00 0 06342 STA LTSX SAVE L(NEXT BUFFER) 9P082150 | 10350 0500 00 2 00001 CLA 1,2 IF INITIAL 9P082160 10351 0734 00 4 00000 PAX 0,4 BUFFER DONT 9P082170 | 10352 -3 00000 4 10355 TXL *+3,4,0 ADJUST COUNTS 9P082180 | 10353 0074 00 4 07454 TSX TOKBF,4 ADJUST BUFFRR COUNTS 9P082190 | 10354 0020 00 0 10341 TRA BOR2-1 NO BUFFER AVAILABLE 9P082200 | 10355 0560 60 0 07270 LDQ* LBC L(BUF) TO MQ FOR SELECT 9P082210 10356 0500 00 0 06342 CLA LTSX UPDATE POOL 9P082220 | 10357 0621 60 0 07270 STA* LBC BUFFER CHAIN 9P082230 | 10360 -0500 00 2 00001 CAL 1,2 UP COUNT BUFFERS 9P082240 | 10361 0400 00 0 04715 ADD L(1) IN USE BY 9P082250 | 10362 0621 00 2 00001 STA 1,2 THE FILE 9P082260 10363 0564 00 0 00735 ENB TRAPS RESTORE TRAPPING 9P082270 | 10364 0074 00 1 10766 TSX RDSEL,1 ISSUE STACKED SELECT 9P082280 | 10365 0774 00 1 00000 BOR8 AXT **,1 RESTORE IR1 9P082290 | 10366 1 77777 1 10342 TXI BOR2,1,-1 EXIT AT 2,1 9P082300 | 1 LISTING OF 12/01/64 PAGE 191 INPUT BUFFER RELEASE ROUTINES | | * RELEASE CONNECTED BUFFER (HELD IF HOLD=1) AND REINITIATE ON PRIORITY 9P082320 | * TSX RELES,1 CANNOT BE USED AT TRAP 9P082330 | * RETURN IR2 MUST=-L(FILE), LBC= L(POOL) 9P082340 | * DISCONNECT PRESENT BUFFER (HELD IF HOLD =1) 9P082360 | * TSX DISCON,1 CANNOT BE USED AT TRAP 9P082370 | * RETURN IR2 MUST=-L(FILE) ,LBC =L(POOL) 9P082380 | 10367 0055 00 040000 DISCON SIR DONLY SET DISCONNECT ONLY 9P082400 | 10370 0055 00 000020 RELES SIR RDSWIT SET RELEASE MODE 9P082410 | 10371 0634 00 1 10413 SXA RE2,1 SAVE IR1 9P082420 | 10372 0634 00 4 10414 SXA RE3,4 IR4 9P082430 | 10373 0500 60 2 00002 RE1 CLA* 2,2 IS A BUFFER 9P082440 10374 0120 00 0 10423 TPL RE4 CONNECTED NORMALLY 9P082450 | 10375 0621 00 0 10463 STA TCHAN SAVE L( POSS. HOLD CHAIN. 9P082460 | 10376 -0320 00 0 04745 ANA 7PRE IF BUFFER HELD 9P082470 | 10377 0100 00 0 10413 TZE RE2 OR NO BUFFER CONNECTED 9P082480 | * RELEASE HELD BUFFERS 9P082500 | 10400 0056 00 000020 RNT RDSWIT RELEASE OR 9P082510 | 10401 0020 00 0 10531 TRA TR1 TRUNCATE 9P082520 | 10402 0535 00 4 07270 LAC LBC,4 9P082530 | 10403 0560 00 2 00002 LDQ 2,2 L(BUF TO MQ) 9P082540 10404 0074 00 1 10457 TSX POOLRD,1 RELEASE BUFFER 9P082550 | 10405 0056 00 040000 RNT DONLY UNLESS DISCONNECT ONLY 9P082560 | 10406 0074 00 1 10507 TSX CKGIV,1 IF GIVUP ON REINITIATE 9P082570 | 10407 0500 00 0 10463 RE1.5 CLA TCHAN CHAIN HELD 9P082580 | 10410 0621 00 2 00002 STA 2,2 BUFFERS 9P082590 10411 0056 00 000040 RNT CPYFN UNLESS COPYING 9P082600 | 10412 0020 00 0 10373 TRA RE1 RELEASE ALL HELD BUFFERS 9P082610 | 10413 0774 00 1 00000 RE2 AXT **,1 RESTORE IR1 9P082620 | 10414 0774 00 4 00000 RE3 AXT **,4 IR4 9P082630 | 10415 0056 00 010000 RNT GENER IF GENERATED DISCONNECT SAVE 9P082640 10416 0057 00 020000 RIR DISCN COMMAND DISCONNECT BIT 9P082650 | 10417 0057 00 044400 RIR EOBITS 9P082660 | 10420 0054 00 000020 RFT RDSWIT 9P082670 | 10421 0057 00 000010 RIR XECNT 9P082680 | 10422 0020 00 1 00001 TRA 1,1 EXIT 9P082690 | * RELEASE BUFFER IN USE 9P082710 | 10423 0056 00 002000 RE4 RNT INSAT IF INITIAL CONDITIONS NOT 9P082720 | 10424 0020 00 0 10413 TRA RE2 SATISFIED NO DISCONNECT OF BUFFER 9P082730 | 10425 0056 00 000020 RNT RDSWIT RELEASE OR 9P082740 10426 0020 00 0 10536 TRA TR1.1 TRUNCATE 9P082750 | 10427 0056 00 000400 RNT HOLD IS HOLD BIT ON 9P082760 | 10430 0020 00 0 10434 TRA RE5 ENTER HOLD 9P082770 | 10431 0074 00 4 10726 TSX ENTHLD,4 BUFFER INTO 9P082780 | 10432 0055 00 040000 SIR DONLY SET SKIP OF PRIORITY CHECKS 9P082790 10433 0020 00 0 10437 TRA RE6 HOLD CHAIN 9P082800 | 10434 0560 00 2 00002 RE5 LDQ 2,2 L(BUF) TO MQ 9P082810 | 10435 0535 00 4 07270 LAC LBC,4 9P082820 | 10436 0074 00 1 10457 TSX POOLRD,1 BUFFER TO POOL 9P082830 | 10437 0500 00 0 07270 RE6 CLA LBC SET FILE TO REFER 9P082840 10440 0621 00 2 00002 STA 2,2 TO POOL 9P082850 | 10441 0056 00 040000 RNT DONLY IF DISCONNECT ONLY 9P082860 | 1 LISTING OF 12/01/64 PAGE 192 | INPUT BUFFER RELEASE ROUTINES | 10442 0074 00 1 10507 TSX CKGIV,1 DONT PRIORITY INITIATE 9P082870 | 10443 0020 00 0 10413 TRA RE2 9P082880 | * RELEASE BUFFER FROM INTERNAL FILE 9P082890 | 10444 0074 00 1 13571 RE7 TSX ENTIN,1 ENTER BUFFER INTO CHAIN 9P082900 | 10445 0564 00 0 00735 ENB TRAPS ALLOW TRAPS 9P082910 10446 0056 00 002000 RNT INSAT EXIT EITHER TO 9P082920 | 10447 0020 00 0 10407 TRA RE1.5 RELEASING HELD 9P082930 | 10450 0020 00 0 10437 TRA RE6 RELEASING THOSE IN USE 9P082940 | 1 LISTING OF 12/01/64 PAGE 193 | RELEASE INPUT BUFFER TO POOL | * IR2 = -L(FILE) 9P082960 | * IR4 = -L(POOL) 9P082970 | * TSX TOPOOL,1 FILE BITS TO SI FIRST L(BUF) IN MQ 9P082980 | * TO CLOS,1 DECREASES BIUCT L(BUF) IN MQ 9P082990 * POOLRD,1 RELEASES BUF TO POOL L(BUF) IN MQ 9P083000 | | 10451 0441 00 2 00001 TOPOOL LDI 1,2 FILE BITS TO 9P083020 | 10452 0057 00 077777 RIR 77777 SI-RIGHT SIDE TO ZERO 9P083030 | 10453 0564 00 0 04714 TOCLOS ENB L(0) TRAP PROTECT 9P083040 10454 -0500 00 2 00001 CAL 1,2 REDUCE 9P083050 | 10455 0361 00 0 04716 ACL L(377) BUF IN USE CT, INCRE LOGICAL USE 9P083060 | 10456 0621 00 2 00001 STA 1,2 USE COUNT 9P083070 | * RELEASE INPUT BUF TO POOL 9P083080 | 10457 0564 00 0 04714 POOLRD ENB L(0) TRAP PROTECT 9P083090 10460 -0500 00 2 00001 CAL 1,2 REDUCE CT 9P083100 | 10461 0402 00 0 04717 SUB L(400) OF BUFS LOGICALLY 9P083110 | 10462 0621 00 2 00001 STA 1,2 IN USE BY FILE 9P083120 | 10463 0131 00 0 00000 TCHAN XCA ** L(BUF) TO AC 9P083130 | 10464 0056 00 000100 RNT STSH IF STASH AND XEOB IS NOT ZERO 9P083140 10465 0020 00 0 10471 TRA *+4 (SIGNIFYING RELEASE ALREADY 9P083150 | 10466 0520 00 0 06343 ZET XEOB ACCOUNTED FOR BY TSX BCKBF,1 ) 9P083160 | 10467 0020 00 0 10504 TRA PRD2+1 SKIP TO EXIT, ALL STASHES ARE 9P083170 | 10470 0020 00 0 10474 TRA PRD1 DESTRUCTIVE RELEASES FROM INPUT 9P083180 | 10471 0560 00 2 00003 LDQ 3,2 IF AN INTERNAL FILE 9P083190 10472 0162 00 0 10474 TQP *+2 GO OUT AND CHECK DESTRUCTIVE 9P083200 | 10473 -0120 00 0 10444 TMI RE7 READ MODE OR NOT 9P083210 | 10474 0634 00 1 10503 PRD1 SXA PRD2,1 SAVE IR1 9P083220 | 10475 0056 00 000040 RNT CPYFN UNLESS COPYING 9P083230 | 10476 0074 00 1 12263 TSX BTP2,1 RELEASE BUF TO POOL 9P083240 10477 0500 00 2 00001 CLA 1,2 IF LAST 9P083250 | 10500 0734 00 1 00000 PAX 0,1 BUFFER 9P083260 | 10501 -3 00000 1 10503 TXL PRD2,1,0 IN USE THEN SKIP 9P083270 | 10502 0074 00 1 07500 TSX BCKBF,1 ADJUST BUFFER COUNTS 9P083280 | 10503 0774 00 1 00000 PRD2 AXT **,1 RESTORE IR1 9P083290 10504 -0520 00 0 00742 NZT INTRAP UNLESS AT TRAP 9P083300 | 10505 0564 00 0 00735 ENB TRAPS RESTORE TRAPPING 9P083310 | 10506 0020 00 1 00001 TRA 1,1 EXIT 9P083320 | 1 LISTING OF 12/01/64 PAGE 194 | PRIORITY REINITIATE AN INPUT BUFFER | 10507 0500 00 2 00003 CKGIV CLA 3,2 IF AN INTERNAL FILE 9P083340 | 10510 -0120 00 1 00001 TMI 1,1 SKIP PRIORITY 9P083350 | 10511 -0500 00 2 00001 CAL 1,2 IF NO 9P083360 | 10512 -0320 00 0 04716 ANA L(377) BUFFERS 9P083370 10513 0100 00 0 10522 TZE CK2 AHEAD 9P083380 | 10514 -0054 00 000020 LFT GIVUP OR BUFFER ALREADY 9P083390 | 10515 0020 00 0 10522 TRA CK2 GIVEN UP REINITIATE 9P083400 | 10516 -0055 00 000020 SIL GIVUP 9P083410 | 10517 -0056 00 000010 CK1 LNT RUSH IF RUSH OCCURRED 9P083420 10520 0020 00 1 00001 TRA 1,1 REINITIATE , ELSE EXIT 9P083430 | 10521 -0057 00 000030 RIL RANDG RESET RUSH AND GIVUP BITS 9P083440 | 10522 0634 00 1 10525 CK2 SXA CK3,1 SAVE IR1 9P083450 | 10523 0074 00 1 10333 TSX BORBF,1 INITIATE BUFFER 9P083460 | 10524 0055 00 001000 SIR REINT COULDN'T SET REINITIATE AT EXIT 9P083470 10525 0774 00 1 00000 CK3 AXT **,1 RESTORE 9P083480 | 10526 0020 00 0 10517 TRA CK1 GO TEST RUSH 9P083490 | 1 LISTING OF 12/01/64 PAGE 195 | WRITE SUBROUTINE-TRUNC- | * TRUNCATE AN OUTPUT BUFFER 9P083510 | | * TSX TRUNC,1 WITH IR2=-L(FCW) 9P083530 | * RETURN INDEX REGISTERS ARE NOT DISTURBED 9P083540 | 10527 0057 00 000020 TRUNC RIR RDSWIT SET TRUNCATE MODE 9P083560 | 10530 0020 00 0 10371 TRA RELES+1 USE RELES ROUTINE 9P083570 | | * TRUNCATE HELD BUFFERS 9P083590 | 10531 0500 60 2 00002 TR1 CLA* 2,2 HOLD CODE TO AC 9P083600 10532 0074 00 1 10760 TSX WRSLH,1 ISSUE SELECT FOR HELD BUFFER 9P083610 | 10533 0500 00 0 10463 CLA TCHAN UPDATE FILE 9P083620 | 10534 0621 00 2 00002 STA 2,2 HOLD CHAIN 9P083630 | 10535 0020 00 0 10373 TRA RE1 CONTINUE TO END OF HOLD CHAIN 9P083640 | * TRUNCATE BUFFER IN USE 9P083660 | 10536 -0500 00 2 00002 TR1.1 CAL 2,2 FIND 9P083670 | 10537 0361 00 0 04715 ACL L(1) L(IORT) 9P083680 | 10540 0621 00 0 10542 STA TR5 9P083690 | 10541 0500 60 2 00002 CLA* 2,2 SET L(LAST WD) INTO IORT 9P083700 10542 0621 00 0 00000 TR5 STA ** 9P083710 | 10543 -0056 00 000200 LNT BLKSEQ IF SEQUENCING IS DESIRED 9P083720 | 10544 0020 00 0 10551 TRA TR6 SAVE ADDRESSES 9P083730 | 10545 0621 00 0 10602 STA TR10 FOR CHECKSUMMING CALC. 9P083740 | 10546 0621 00 0 07577 STA SUM1 AND STORE 9P083750 10547 0361 00 0 04715 ACL L(1) 9P083760 | 10550 0621 60 2 00002 STA* 2,2 9P083770 | 10551 -0500 60 0 10542 TR6 CAL* TR5 FORM WORD COUNT OF BUFFER 9P083780 | 10552 0402 00 0 10542 SUB TR5 AND PLACE IT 9P083790 | 10553 -0056 00 000200 LNT BLKSEQ 9P083800 10554 0402 00 0 04715 SUB L(1) IN IORT 9P083810 | 10555 0767 00 0 00022 ALS 18 9P083820 | 10556 0622 60 0 10542 STD* TR5 9P083830 | 10557 -0320 00 0 04727 ANA DECRE 9P083840 | 10560 -0054 00 000200 LFT BLKSEQ IF ONLY ONE WORD (THE BLKSEQ WORD) 9P083850 10561 0402 00 0 04721 SUB 1DEC EXISTS OR IF NO DATA WORDS 9P083860 | 10562 -0100 00 0 10577 TNZ TR9 EXIST THEN 9P083870 | 10563 0560 00 2 00002 LDQ 2,2 DONT WRITE BUFFER OUT 9P083880 | 10564 0535 00 4 07270 LAC LBC,4 L(POOL) TO IR4 9P083890 | 10565 -0500 00 4 00001 CAL 1,4 RESTORE 9P083900 10566 0771 00 0 00004 ARS 4 SIZE TO 9P083910 | 10567 0622 60 0 10542 STD* TR5 IORT 9P083920 | 10570 0564 00 0 04714 ENB L(0) TRAP PROTECT 9P083930 | 10571 0074 00 1 12262 TSX BTP1,1 BUFFER IN POOL 9P083940 | 10572 0500 00 2 00003 CLA 3,2 IF AN INTERNAL FILE THEN 9P083950 10573 0120 00 0 10575 TPL *+2 ADJUST BUFFER COUNTS 9P083960 | 10574 0074 00 1 07500 TSX BCKBF,1 AS ONE WAS BORROWED IN GTBUF 9P083970 | 10575 0564 00 0 00735 ENB TRAPS ALLOW TRAPS AND EXIT SO 9P083980 | 10576 0020 00 0 10610 TRA TR3 NO WRITE OR HOLD EXECUTED 9P083990 | 10577 -0056 00 000100 TR9 LNT CKSUMS ARE CKSUMS DESIRED 9P084000 10600 0020 00 0 10603 TRA *+3 9P084010 | 10601 0074 00 1 07572 TSX SUMMIT,1 FORM AND STORE IN BLKSEQ 9P084020 | 10602 -0620 00 0 00000 TR10 SLQ ** WORD THE 18 BIT 9P084030 | 10603 0056 00 000400 RNT HOLD IS BUFFER TO BE HELD 9P084040 | 10604 0020 00 0 10607 TRA TR2 OR WRITTEN 9P084050 1 LISTING OF 12/01/64 PAGE 196 | WRITE SUBROUTINE-TRUNC- | | 10605 0074 00 4 10726 TSX ENTHLD,4 ENTER IT IN HOLD CHAIN 9P084060 | 10606 0020 00 0 10610 TRA TR3 9P084070 10607 0074 00 1 10763 TR2 TSX WRSEL,1 WRITE BUFFER 9P084080 | 10610 0500 00 0 07270 TR3 CLA LBC SET FILE REFERENCE 9P084090 | 10611 0621 00 2 00002 STA 2,2 TO POOL 9P084100 | 10612 0020 00 0 10413 TRA RE2 9P084110 | 1 LISTING OF 12/01/64 PAGE 197 WRITE SUBROUTINES-GTBUF-AND-OBTIB- | | * GET A BUFFER AND ATTACH TO OUTPUT FILE (GTBUF) 9P084130 | * TSX GTBUF,1 IR2 =-L(FILE) 9P084140 | * RETURN INDICES NOT DISTURBED 9P084150 | * FORCE AN OUTPUT BUFFER TO BE RELEASED TO THE POOL 9P084170 | * TSX OBTIB,4 IR2 NOT DISTURBED 9P084180 | * RETURN IR1 DESTROYED 9P084190 | 10613 0634 00 4 10722 OBTIB SXA GET8,4 SAVE IR4 9P084210 | 10614 0055 00 100000 SIR FREEUP SET FREE UP BUFFER ONLY MODE $9P084220 | 10615 0074 00 1 10626 TSX GET0,1 FREE OUTPUT BUFFER TO POOL 9P084230 | 10616 0020 00 4 00001 TRA 1,4 EXIT 9P084240 | 10617 0634 00 4 10722 GTBUF SXA GET8,4 SAVE IR4 9P084260 | 10620 0500 00 2 00003 CLA 3,2 IF AN INTERNAL FILE 9P084270 | 10621 0120 00 0 10626 TPL GET0 CHECK TO MAKE SURE AFTER 9P084280 | 10622 0634 00 1 10723 SXA GET8+1,1 SAVING INDEX 1 , 9P084290 | 10623 0074 00 4 07453 TSX TOKBB,4 THAT FILE IS ALLOWED 9P084300 10624 0020 00 0 10302 TRA SY9.3 TO TAKE A BUFFER , IF SO 9P084310 | 10625 0020 00 0 10627 TRA *+2 SKIP SAVING OF IR1 9P084320 | 10626 0634 00 1 10723 GET0 SXA GET8+1,1 SAVE IR1 9P084330 | 10627 0535 00 4 07270 LAC LBC,4 SETUP SUCH THAT IF SYNC IS 9P084340 | 10630 0500 00 4 00001 CLA 1,4 NECESSARY IT WILL BE STARTED 9P084350 10631 0560 60 4 00000 LDQ* 0,4 WITH FIRST FILE 9P084360 | 10632 0162 00 0 10667 TQP GET5 BUF AVAIL-GO JOIN WITH FILE 9P084370 | | * NO BUFFER AVAILABLE 9P084390 | 10633 -0320 00 0 04720 GET1 ANA ADDRS CHECK IF NO OUTPUT 9P084400 10634 -0100 00 0 10641 TNZ *+5 CHAIN LEFT-CHECK BUF AVAIL 9P084410 | 10635 0535 00 1 07270 LAC LBC,1 L(BPCW) 9P084420 | 10636 0560 60 1 00000 LDQ* 0,1 9P084430 | 10637 0162 00 0 10667 TQP GET5 BUF AVAIL-JOIN IT 9P084440 | 10640 0020 00 0 10302 TRA SY9.3 NONE-TRY EOB 9P084450 10641 0621 00 0 10644 STA CPY7 SETUP SYNC SEQUENCE 9P084460 | 10642 0535 00 1 10644 LAC CPY7,1 FOR * ADDRESSING OF 2ND UCW 9P084470 | 10643 0500 00 1 00000 CLA 0,1 PLACE L(UCW) 9P084480 | 10644 0737 00 4 00000 CPY7 PAC **,4 IN IR4 9P084490 | 10645 0500 00 4 00001 CLA 1,4 IF PRIORITY WORD 9P084500 10646 0100 00 0 10656 TZE GET2 =0 OR NOT AN OUTPUT FILE 9P084510 | 10647 0120 00 0 10661 TPL GET3 THEN TRY NEXT FILE IN CHAIN 9P084520 | 10650 0074 00 4 00703 TSX ACTV+1,4 ACTIVATE THIS UNIT GIVING 9P084530 | 10651 -0 00000 1 00000 1TAG MZE 0,1 IT HIGH PRIORITY 9P084540 | 10652 0535 00 4 07270 LAC LBC,4 WAIT UNTIL 9P084550 10653 0500 60 4 00000 CLA* 0,4 A BUFFER PLACED IN 9P084560 | 10654 0120 00 0 10667 TPL GET5 POOL BY TRAP 9P084570 | 10655 0020 00 0 10653 TRA *-2 ROUTINE 9P084580 | 1 LISTING OF 12/01/64 PAGE 198 | WRITE SUBROUTINES-GTBUF-AND-OBTIB- | * UNIT HAS NO REQUESTS WAITING 9P084600 | 10656 0500 00 1 00001 GET2 CLA 1,1 IF UNIT NOT ACTIVE 9P084610 | 10657 -0320 00 0 06506 ANA NEOTBT AND EOT CONDITION 9P084620 | 10660 0100 00 0 12372 TZE SYEOT IS ON THEN HANDEL IT NOW 9P084630 10661 0500 00 1 00001 GET3 CLA 1,1 ADVANCE AROUND 9P084640 | 10662 0020 00 0 10633 TRA GET1 OUTPUT CHAIN 9P084650 | * ERROR-NO FILES CAN GIVUP BUFFERS - ILLEGAL FILE USE - 9P084660 | 10663 0074 00 4 00706 GET4 TSX PROUT,4 AN ILLEGAL FILE USAGE SUCH 9P084670 | 10664 0 00000 0 00001 PZE 1 AS USING A TTO AS A PTO 9P084680 10665 0 00003 0 12362 PZE MES22,,3 WILL CAUSE THIS ERROR 9P084690 | 10666 0074 00 4 00713 TSX STOP,4 9P084700 | | * GOT A BUFFER - READY IT FOR OUTPUT 9P084720 | 10667 0054 00 100000 GET5 RFT FREEUP $9P084730 10670 0020 00 0 10722 TRA GET8 BUFFER DONT CONNECT IT TO A FILE 9P084740 | 10671 0564 00 0 04714 ENB L(0) TRAP PROTECT 9P084750 | 10672 0056 00 000200 RNT HELD IF A HELD BUFFER 9P084760 | 10673 0020 00 0 10703 TRA GET6 EXIST,COUNT 9P084770 | 10674 0500 00 2 00003 CLA 3,2 SHOULD BE ADJUSTED 9P084780 10675 -0120 00 0 10701 TMI *+4 ( EXCEPT INTERNAL FILES) 9P084790 | 10676 0074 00 4 07454 TSX TOKBF,4 FOR EACH ADDITIONAL BUFFER 9P084800 | 10677 0020 00 0 10302 TRA SY9.3 CANT-TAKE EOB OR GIVE ERROR PRINT 9P084810 | 10700 0535 00 4 07270 LAC LBC,4 L(POOL) TO IR4 9P084820 | 10701 -0500 00 0 04745 CAL 7PRE SET CODE 7 9P084830 10702 0630 60 0 13116 STP* HOLDS INTO PREVIOUS HELD BUFFER 9P084840 | 10703 0500 60 4 00000 GET6 CLA* 0,4 UPDATE AVAILABLE 9P084850 | 10704 0621 00 0 10644 STA CPY7 BUFFER CHAIN 9P084860 | 10705 0500 00 4 00000 CLA 0,4 SET L(BUF) 9P084870 | 10706 0621 00 2 00002 STA 2,2 INTO FILE REFERENCE 9P084880 10707 0361 00 0 04715 ACL L(1) SAVE 9P084890 | 10710 0621 00 0 10716 STA GET7 L(IORT) 9P084900 | 10711 0361 00 0 04715 ACL L(1) SET LOCATOR 9P084910 | 10712 0621 60 2 00002 STA* 2,2 = PZE *+2,,** 9P084920 | 10713 -0500 00 0 10644 CAL CPY7 UPDATE POOL TO REFER 9P084930 10714 0621 00 4 00000 STA 0,4 TO NEXT BUFFER 9P084940 | 10715 0564 00 0 00735 ENB TRAPS ALLOW TRAPS 9P084950 | 10716 0500 00 0 00000 GET7 CLA ** PICKUP IORT 9P084960 | 10717 -0054 00 000200 LFT BLKSEQ AND FORM 9P084970 | 10720 0402 00 0 04721 SUB 1DEC EFFECTIVE SIZE OF BUFFER 9P084980 10721 0622 60 2 00002 STD* 2,2 SET LOCATOR = PZE *+2,,EFF.SIZE. 9P084990 | 10722 0774 00 4 00000 GET8 AXT **,4 RESTORE IR4 9P085000 | 10723 0774 00 1 00000 AXT **,1 1 9P085010 | 10724 0057 00 100000 RIR FREEUP RESET FREEUP BIT $9P085020 | 10725 0020 00 1 00001 TRA 1,1 EXIT 9P085030 1 LISTING OF 12/01/64 PAGE 199 | HOLD FUNCTION SUBROUTINES | | * ENTER BUFFER ATTACHED TO FILE INTO HOLD CHAIN 9P085050 | * TSX ENTHLD,4 IR2 MUST = -L(FILE) 9P085070 | * RETURN IR1 DESTROYED 9P085080 | | 10726 0500 00 2 00002 ENTHLD CLA 2,2 L(BUFFER) TO AC 9P085100 | 10727 0054 00 000200 RFT HELD IF ALREADY HOLDING 9P085110 10730 0020 00 0 10735 TRA EN1 SKIP INITIALIZATION 9P085120 | 10731 0734 00 1 00000 PAX 0,1 ENTER 1ST BUFFER 9P085130 | 10732 0055 00 000200 SIR HELD IN CHAIN 9P085140 | 10733 -0634 00 1 13116 SXD HOLDS,1 PRESET * STORE 9P085150 | 10734 0020 00 0 10736 TRA *+2 9P085160 10735 0621 60 0 13116 EN1 STA* HOLDS PLACE BUFFER IN CHAIN 9P085170 | 10736 0621 00 0 13116 STA HOLDS UPDATE CHAIN 9P085180 | 10737 -0500 00 0 04734 CAL FVE PLACE HOLD BITS 9P085190 | 10740 0630 60 0 13116 STP* HOLDS IN BUFFER 9P085200 | 10741 -0054 00 003000 LFT OUTPUT DETERMINE FILE TYPE 9P085210 10742 0020 00 4 00001 TRA 1,4 OUTPUT 9P085220 | | * HANDLER HOLD INPUT FILE 9P085240 | 10743 0500 00 2 00002 CLA 2,2 IF REGENERATIVE INTERNAL FILE 9P085250 | 10744 -0120 00 4 00001 TMI 1,4 RETAIN FULL BLOCK SIZE 9P085260 10745 0535 00 1 13116 LAC HOLDS,1 PLACE LOGICAL END OF BUFFER 9P085270 | 10746 0500 60 2 00002 CLA* 2,2 INTO IORT FOR POSSIBLE COPY 9P085280 | 10747 0621 00 1 00001 STA 1,1 AT A LATER TIME 9P085290 | 10750 0020 00 4 00001 TRA 1,4 EXIT 9P085300 | * SETUP HOLD CHAIN 9P085320 | * IN FILE AT EXIT 9P085330 | * FROM READ OR WRITE 9P085340 | | * CALLING SEQUENCE 9P085360 | * TSX HOOK,4 IR2 MUST= -L(FILE) 9P085380 | * RETURN 9P085390 | | 10751 0500 00 2 00002 HOOK CLA 2,2 9P085410 10752 0621 60 0 13116 STA* HOLDS 9P085420 | 10753 -0534 00 1 13116 LXD HOLDS,1 9P085430 | 10754 0754 00 1 00000 PXA 0,1 9P085440 | 10755 0621 00 2 00002 STA 2,2 9P085450 | 10756 0057 00 000200 RIR HELD 9P085460 10757 0020 00 4 00001 TRA 1,4 9P085470 | 1 LISTING OF 12/01/64 PAGE 200 | SELECT ROUTINES AND COMMUNICATION ROUTINES WITH EXECUTOR | | * EQU CARDS FOR SYMBOLIC DEFINITION OF IOEX COMMUNICATIONS 9P085490 | 00007 WEFOP EQU 7 WEF 9P085510 | 00006 BSFOP EQU 6 BSF 9P085520 | 00005 BSROP EQU 5 BSR 9P085530 | 00004 RUNOP EQU 4 RUN 9P085540 00003 REWOP EQU 3 REW 9P085550 | 00002 SDNHP EQU 2 SDNH 9P085560 | 00001 SDNLP EQU 1 SDNL 9P085570 | 00000 TESTP EQU 0 TEST OP 9P085580 | 1 LISTING OF 12/01/64 PAGE 201 SELECT ROUTINES (ENTER BUF. INTO REQUEST STATUS) | | * TSX RDSEL,1 L(BUF) IN MQ (21-35) 9P085600 | * TSX WRSEL,1 2,2 (21-35) 9P085610 | * TSX WRSLH,1 WRITE HELD BUFFER 9P085620 * IR4 IS DESTROYED 9P085630 | | 10760 -0340 00 0 04732 WRSLH LAS PTH IF WRITING HELD BUFFER 9P085650 | 10761 0020 00 0 11142 TRA SEL5 CODE 7 (NOT LAST) ADJUST COUNTS 9P085660 | 10762 0 11335 0 00000 SEL4 PZE **,,ISSUE SELECT WORD 9P085670 10763 0500 00 2 00003 WRSEL CLA 3,2 HANDLE INTERNAL FILE 9P085680 | 10764 -0120 00 0 11151 TMI SEL5.8 SEPARATELY 9P085690 | 10765 0560 00 2 00002 LDQ 2,2 L(BUF) TO MQ 9P085700 | 10766 0131 00 0 00000 RDSEL XCA 9P085710 | 10767 0621 00 0 10762 STA SEL4 L(BUF) TO SEL4 9P085720 10770 0560 00 0 04724 LDQ L(0)D SET BUFFER 9P085730 | 10771 -0763 00 0 00022 LGL 18 1ST WD = 9P085740 | 10772 0602 60 0 10762 SLW* SEL4 PZE L(0),,* 9P085750 | 10773 -0774 00 4 00001 SEL0 AXC 1,4 9P085760 | 10774 0564 00 0 04714 ENB L(0) 9P085770 10775 0500 60 2 00000 CLA* 0,2 CHECK FILE ALREADY 9P085780 | 10776 0100 00 0 11020 TZE SEL3 ACTIVE 9P085790 | 10777 0621 00 0 11010 STA SEL1 YES 9P085800 | 11000 -0500 00 0 06353 CAL FCW $9P085810 | 11001 0774 00 4 00000 AXT 0,4 $9P085820 11002 0322 60 2 00000 ERA* 0,2 IS THIS THE SAME FILE $9P085830 | 11003 -0320 00 0 04720 ANA ADDRS $9P085840 | 11004 0100 00 0 11010 TZE SEL1 YES $9P085850 | 11005 0074 00 4 00703 SEL1.6 TSX (ACTVX,4 NO $9P085860 | 11006 -0 00000 2 00000 MZE 0,2 $9P085870 11007 0020 00 0 10773 TRA SEL0 $9P085880 | 11010 0500 00 0 00000 SEL1 CLA ** ADD NEW 9P085890 | 11011 -0737 00 4 00000 PDC 0,4 BUFFER TO END 9P085900 | 11012 0500 00 0 10762 CLA SEL4 OF EXISTING 9P085910 | 11013 0621 00 4 00000 STA 0,4 BUFFER CHAIN 9P085920 11014 0767 00 0 00022 ALS 18 SET L(NEW BUF) INTO 9P085930 | 11015 0622 60 0 11010 STD* SEL1 DECREMENT 1ST ENTRY 9P085940 | 11016 0564 00 0 00735 ENB TRAPS ALLOW TRAPS 9P085950 | 11017 0020 00 1 00001 TRA 1,1 EXIT 9P085960 | * ENTER INITIAL SELECT 9P085980 | 11020 -0056 00 010004 SEL3 LNT NETIH IF NO EOT OR NOT INHIBITED IS OFF 9P085990 | 11021 0020 00 0 11167 TRA SEL6 GO HANDLE IT SPECIAL 9P086000 | 11022 0774 00 4 00000 AXT 0,4 CHECK FOR 9P086010 | 11023 0500 60 2 00000 CLA* 0,2 ENTERING INITIAL SELECT ON 9P086020 11024 -0765 00 0 00022 LGR 18 UNIT TO WHICH MULTIPLE FILES 9P086030 | 11025 0162 00 0 11035 TQP SEL2.5 ARE ATTACHED AND ONE OF THEM 9P086040 | 11026 -0763 00 0 00022 LGL 18 HAS ENCOUNTERED EOT 9P086050 | 11027 0621 00 0 10644 STA CPY7 IF SO THEN HANDLE 9P086060 | 11030 0634 00 1 11034 SXA SEL2.4,1 EOT ON THE FILE LAST ATTACHED 9P086070 11031 0074 00 4 13235 TSX CPY6,4 (THAT SPECIFIED IN UCW WD 1 ADDR.) 9P086080 | 11032 0074 00 1 12376 SEL2 TSX EOTOF,1 9P086090 | 11033 0074 00 4 13235 TSX CPY6,4 9P086100 | 11034 0774 00 1 00000 SEL2.4 AXT **,1 RESTORE IR1 9P086110 | 11035 0604 00 0 11125 SEL2.5 STI TEMIND $9P086120 11036 0774 00 4 00000 AXT 0,4 GET FILE BLOCK ADDRESS $9P086130 | 11037 -0500 00 0 06353 CAL FCW AND STORE IN UCW ONE $9P086140 | 1 LISTING OF 12/01/64 PAGE 202 | SELECT ROUTINES (ENTER BUF. INTO REQUEST STATUS) | 11040 0621 60 2 00000 STA* 0,2 $9P086150 | 11041 0441 60 2 00000 LDI* 0,2 UCW 1 $9P086160 | 11042 -0054 00 020000 LFT 20000 1301 $9P086170 | 11043 0020 00 0 11055 TRA SEL2.6 MAYBE $9P086180 | 11044 0441 00 0 11125 SEL2.7 LDI TEMIND NO $9P086190 11045 -0774 00 4 00001 AXC 1,4 9P086200 | 11046 -0500 00 0 10762 CAL SEL4 9P086210 | 11047 -0054 00 003000 LFT OUTPUT 9P086220 | 11050 -0501 00 0 04733 ORA FOR OUTPUT 9P086230 | 11051 0602 60 2 00000 SLW* 0,2 STORE ISSUE IN UCW 2 9P086240 11052 0074 00 4 00703 TSX ACTV+1,4 ACTIVATE 9P086250 | 11053 0 00000 2 00000 PZE 0,2 THIS FILE 9P086260 | 11054 0020 00 1 00001 TRA 1,1 9P086270 | 11055 -0056 00 000100 SEL2.6 LNT 100 1301 $9P086280 | 11056 0020 00 0 11141 TRA SEL8 NO $9P086290 11057 0634 00 1 11123 SXA TEMIND-2,1 YES $9P086300 | 11060 -0046 00 0 00000 PIA 9P086310 | 11061 0771 00 0 00006 ARS 6 9P086320 | 11062 -0734 00 4 00000 PDX 0,4 CHANNEL NR IN XR 4 9P086330 | 11063 0622 00 0 11067 STD SEL3.1+2 SAVE CHANNEL NR 9P086340 11064 0774 00 1 00070 AXT ENDLIS-LCOMAD,1 $9P086350 | 11065 0500 00 1 12201 SEL3.1 CLA ENDLIS+4,1 CHECK 4TH WORD OF LIST TO SEE IF SAME 9P086360 | 11066 -0737 00 4 00000 PDC 0,4 CHANNEL. IF SO, TELL THEM TO HURRY UP 9P086370 | 11067 1 00000 4 11070 TXI *+1,4,** IF NOT, GO TO NEXT LIST 9P086380 | 11070 -3 00000 4 11126 TXL SEL3.2,4,0 9P086390 11071 2 00034 1 11065 TIX SEL3.1,1,COMADL-LCOMAD 9P086400 | 11072 0774 00 1 00070 AXT ENDLIS-LCOMAD,1 $9P086410 | 11073 0500 00 1 12175 SEL2.9 CLA ENDLIS,1 $9P086420 | 11074 0100 00 0 11077 TZE *+3 $9P086430 | 11075 2 00034 1 11073 TIX *-2,1,COMADL-LCOMAD $9P086440 11076 0020 00 0 11141 TRA SEL8 $9P086450 | 11077 0564 00 0 04714 SEL3.3 ENB L(0) TRAP PROTECT 9P086460 | 11100 0754 00 1 00000 PXA 0,1 AC = COMMAND LIST $9P086470 | 11101 0402 00 0 11073 SUB SEL2.9 STORE L(LIST) $9P086480 | 11102 0734 00 4 00000 PAX 0,4 IN XR4 9P086490 11103 0737 00 1 00000 PAC 0,1 ADDRESS OF LIST IN IR1 $9P086500 | 11104 0500 00 0 10762 CLA SEL4 ADDRESS OF BUFFER $9P086510 | 11105 0621 00 1 00000 STA 0,1 INTO LIST WORD $9P086520 | 11106 0767 00 0 00022 ALS 18 ADDRESS AND $9P086530 | 11107 0622 00 1 00000 STD 0,1 DECREMENT $9P086540 11110 0634 00 4 10762 SXA SEL4,4 SAVE L(COMMAND LIST) 9P086550 | 11111 0500 00 0 11067 CLA SEL3.1+2 CHANNEL NUMBER 9P086560 | 11112 0622 00 1 00004 STD 4,1 MINUS ONE) IN TCH OF LIST $9P086570 | 11113 0500 00 2 00000 CLA 0,2 PUT -L(UCB) IN IR4 $9P086580 | 11114 0737 00 4 00000 PAC 0,4 $9P086590 11115 0560 00 2 00006 LDQ 6,2 CHECK IF EOF ON DISK $9P086600 | 11116 0162 00 0 11122 TQP SEL2.8 NO $9P086610 | 11117 0771 00 0 00022 ARS 18 PUT CORRECT SEEK $9P086620 | 11120 0621 00 2 00006 STA 6,2 IN WORD SEVEN $9P086630 | 11121 0630 00 2 00006 STP 6,2 AND TURN OFF EOF BIT $9P086640 11122 0074 00 1 12227 SEL2.8 TSX D9,1 SEEK NECESSARY $9P086650 | 11123 0774 00 1 00000 AXT **,1 NO $9P086660 | 11124 0020 00 0 11044 TRA SEL2.7 RETURN $9P086670 | 11125 BES SEL2.6+NOCH/NOCH**-NOCH/NOCH*SEL2.6-* $9P086680 | 11125 0 00000 0 00000 TEMIND PZE $9P086690 1 LISTING OF 12/01/64 PAGE 203 | SELECT ROUTINES (ENTER BUF. INTO REQUEST STATUS) | | 11126 0500 00 1 12175 SEL3.2 CLA ENDLIS,1 BUSY $9P086700 | 11127 0100 00 0 11077 TZE SEL3.3 NO $9P086710 11130 0564 00 0 00735 ENB TRAPS 9P086720 | 11131 0020 00 0 11126 TRA *-3 $9P086730 | 11132 0074 00 4 00706 ENDTRK TSX PROUT,4 PRINT OUT NOTICE $9P086740 | 11133 0 00000 0 00002 PZE 2 TO OPERATOR $9P086750 | 11134 -0 00003 2 00011 MZE 9,2,3 $9P086760 11135 0 00003 0 12304 PZE MESS2,,3 AND STOP $9P086770 | 11136 0441 00 2 00001 LDI 1,2 RESTORE IND $9P086780 | 11137 0057 00 077777 RIR 77777 $9P086790 | 11140 0020 00 0 07656 TRA BOFEX $9P086800 | 11141 0020 00 0 00115 SEL8 TRA SYSDMP REQ. IMPOSSIBLE $9P086810 11142 BES SEL3.2+NOCH/NOCH**-NOCH/NOCH*SEL3.2-* $9P086820 | 1 LISTING OF 12/01/64 PAGE 204 | | * ADVANCE RESERVE GROUP BUF.CT. IF NO-COPY WRITE RESERVE 9P086840 | 11142 0500 00 2 00003 SEL5 CLA 3,2 IF AN INTERNAL FILE 9P086850 11143 -0120 00 0 11151 TMI SEL5.8 HANDLE IT SEPARATELY 9P086860 | 11144 0634 00 1 11147 SXA SEL5.6,1 SAVE IR1 9P086870 | 11145 0564 00 0 04714 ENB L(0) DISABLE TRAPS 9P086880 | 11146 0074 00 1 07477 TSX BCKBB,1 9P086890 | 11147 0774 00 1 00000 SEL5.6 AXT **,1 RESTORE IR1 9P086900 11150 0020 00 0 10765 TRA WRSEL+2 RETURN TO WRITE 9P086910 | * WRITE INTERNAL FILE BUFFER 9P086920 | 11151 0634 00 1 11147 SEL5.8 SXA SEL5.6,1 SAVE IR1 9P086930 | 11152 0500 00 2 00002 CLA 2,2 L(BUF) 9P086940 | 11153 0737 00 1 00000 PAC 0,1 TO IR1 9P086950 11154 0535 00 4 07270 LAC LBC,4 RESTORE SIZE TO 9P086960 | 11155 0500 00 4 00001 CLA 1,4 IORT 9P086970 | 11156 0771 00 0 00004 ARS 4 9P086980 | 11157 0622 00 1 00001 STD 1,1 9P086990 | 11160 0500 00 2 00002 CLA 2,2 SET THIS BUFFER 9P087000 11161 0074 00 1 13571 SEL5.9 TSX ENTIN,1 INTO RE-GENERATIVE CHAIN 9P087010 | 11162 -0500 00 2 00003 CAL 3,2 ADVANCE BLOCK SEQ 9P087020 | 11163 0361 00 0 04721 ACL 1DEC 9P087030 | 11164 0622 00 2 00003 STD 3,2 9P087040 | 11165 0534 00 1 11147 LXA SEL5.6,1 RESTORE IR1 9P087050 11166 0020 00 1 00001 TRA 1,1 EXIT 9P087060 | | * EOF OR EOT ENCOUNTERED 9P087080 | 11167 -0054 00 003000 SEL6 LFT OUTPUT INPUT FILE OR PUTPUT FILE 9P087090 | 11170 0020 00 0 11174 TRA SEL7-1 9P087100 11171 0560 00 0 10762 LDQ SEL4 RELEASE BUFFER 9P087110 | 11172 0535 00 4 07270 LAC LBC,4 -L(POOL) TO IR4 9P087120 | 11173 0020 00 0 10453 TRA TOCLOS TOCLOS EXITS AT 1,1 9P087130 | | * EOT OCCURRED 9P087150 11174 0634 00 1 11176 SXA *+2,1 SAVE IR1 9P087160 | 11175 0074 00 1 12376 SEL7 TSX EOTOF,1 HANDLE EOT 9P087170 | 11176 0774 00 1 00000 AXT **,1 RESTORE IR1 9P087180 | 11177 0020 00 0 10773 TRA SEL0 AND CONTINUE 9P087190 | 1 LISTING OF 12/01/64 PAGE 205 DENSITY SETTING ROUTINE | | * TSX DENSE,4 9P087210 | | 11200 0500 00 2 00001 DENSE CLA 1,2 PLACE FILE 9P087230 11201 -0320 00 0 10651 ANA 1TAG DENSITY BIT 9P087240 | 11202 0767 00 0 00003 ALS 3 IN DECREMENT 9P087250 | 11203 0361 00 0 04721 ACL 1DEC ADD 1 TO FORM 9P087260 | 11204 0622 00 0 11207 STD *+3 LOW DEN. = 1 9P087270 | 11205 0634 00 4 11210 SXA *+3,4 HI DEN. = 2 9P087280 11206 0074 00 4 00705 TSX (NDSLX,4 SET DENSITY 9P087290 | 11207 0 00000 2 00000 PZE 0,2,** 9P087300 | 11210 0774 00 4 00000 AXT **,4 RESTORE IR4 9P087310 | 11211 0020 00 4 00001 TRA 1,4 EXIT 9P087320 | 1 LISTING OF 12/01/64 PAGE 206 UNBUFFER INPUT FILE | | * TSX UNBFI,4 DESTROYS IR1 9P087340 | | 11212 0634 00 4 11315 UNBFI SXA UB7,4 SAVE IR4 9P087360 11213 0074 00 1 10367 TSX DISCON,1 DISCONNECT BUF IN USE( IF ANY) 9P087370 | 11214 0564 00 0 04714 UB1 ENB L(0) TRAP PROTECT 9P087380 | 11215 -0774 00 4 00001 AXC 1,4 IF NO BUFS IN REQ 9P087390 | 11216 0500 60 2 00000 CLA* 0,2 CHAIN THEN GO RELEASE 9P087400 | 11217 0100 00 0 11253 TZE UB4 SYNC CHAIN 9P087410 11220 -0774 00 4 00000 UB1.1 AXC 0,4 $9P087420 | 11221 0560 60 2 00000 LDQ* 0,2 CHECK FOR DISK $9P087430 | 11222 -0773 00 0 00004 RQL 4 $9P087440 | 11223 0162 00 0 11225 TQP *+2 $9P087450 | 11224 0020 00 0 11245 TRA UB3 DISK, GO TO UB3 $9P087460 11225 BES UB1.1+NOCH/NOCH*5-* $9P087470 | 11225 0621 00 0 11227 STA UB2 SAVE L(1ST REQ) 9P087480 | 11226 0500 00 0 11214 CLA UB1 SAVE REQ CHAIN AND UNLESS ONLY 9P087490 | 11227 -0520 60 0 00000 UB2 NZT* ** ONE REQ , BLOCK REQ SEQUENCE 9P087500 | 11230 0020 00 0 11245 TRA UB3 HOOKING REMAINDER OF REQ 9P087510 11231 0560 60 0 11227 LDQ* UB2 CHAIN TO SYNC CHAIN... IF ONLY 9P087520 | 11232 0621 60 0 11227 STA* UB2 ONE REQ GO DIRECTLY TO FORCE 9P087530 | 11233 0131 00 0 00000 XCA ITS COMPLETION 9P087540 | 11234 -0520 60 2 00004 NZT* 4,2 IF SYNC CHAIN DOES NOT EXIST FORM 9P087550 | 11235 0020 00 0 11277 TRA UB5 ONE FROM BLOCKED REQ CHAIN 9P087560 11236 0560 00 2 00004 LDQ 4,2 ADD 2ND ON REQS 9P087570 | 11237 0621 00 2 00004 STA 4,2 TO SYNC CHAIN 9P087580 | 11240 -0737 00 1 00000 PDC 0,1 9P087590 | 11241 0131 00 0 00000 XCA 9P087600 | 11242 0621 00 1 00000 STA 0,1 9P087610 11243 0500 60 1 00000 CLA* 0,1 9P087620 | 11244 0622 60 2 00004 STD* 4,2 9P087630 | 11245 0564 00 0 00735 UB3 ENB TRAPS FORCE LAST REQUEST TO BE COMPLETED 9P087640 | 11246 0760 00 0 00142 UB3.2 SLN 2 SET WAIT LITE ON 9P087650 | 11246 BES UB3.2+LITES-* 9P087660 11246 0074 00 4 00703 TSX ACTV+1,4 WHICH AT TRAP WILL 9P087670 | 11247 -0 00000 2 00000 MZE 0,2 BE ENTERED INTO 9P087680 | 11250 -0774 00 4 00001 AXC 1,4 SYNC CHAIN 9P087690 | 11251 0520 60 2 00000 ZET* 0,2 WAIT 9P087700 | 11252 0020 00 0 11251 TRA *-1 9P087710 11253 -0760 00 0 00142 UB3.3 SLT 2 TURN OFF WAIT LITE 9P087720 | 11254 0761 00 0 00000 NOP 9P087730 | 11253 BES UB3.3+LITES*2-* 9P087740 | | * ALL BUFFERS IN SYNC CHAIN 9P087760 11253 -0634 00 0 10154 UB4 SXD SYNCT,0 PRESET SYNC CT 9P087770 | 11254 0600 00 0 13122 STZ TEMP SET EOF DELETE SWITCH =0 9P087780 | 11255 0500 60 2 00004 UB4.1 CLA* 4,2 PLACE BUFFERS 9P087790 | 11256 0100 00 0 11301 TZE UB6 FROM SYNC CHAIN 9P087800 | 11257 0120 00 0 11263 TPL *+4 TO POOL ,+ BUFFERS 9P087810 11260 -0534 00 1 10154 LXD SYNCT,1 HAVE NOT BEEN LOADED, COUNT 9P087820 | 11261 1 00001 1 11262 TXI *+1,1,1 NUMBER OF BACKSPACES 9P087830 | 11262 -0634 00 1 10154 SXD SYNCT,1 NECESSARY TO REPOSITION 9P087840 | 11263 0560 00 2 00004 LDQ 4,2 TO POOL 9P087850 | 11264 0621 00 2 00004 STA 4,2 9P087860 11265 -0320 00 0 04735 ANA 6PRE IS THERE AN EOF ASSOCIATED 9P087870 | 11266 0100 00 0 11274 TZE UB4.2 WITH THIS BUFFER 9P087880 | 1 LISTING OF 12/01/64 PAGE 207 | UNBUFFER INPUT FILE | 11267 0131 00 0 00000 XCA YES- SO PICKUP 9P087890 | 11270 0737 00 1 00000 PAC 0,1 THE TAPE POSITION 9P087900 | 11271 0131 00 0 00000 XCA AND SAVE FOR AFTER BSR 9P087910 | 11272 0500 00 1 00002 CLA 2,1 ACROSS EOF MARK 9P087920 | 11273 0601 00 0 13122 STO TEMP 9P087930 11274 0535 00 4 07270 UB4.2 LAC LBC,4 9P087940 | 11275 0074 00 1 10453 TSX TOCLOS,1 9P087950 | 11276 0020 00 0 11255 TRA UB4.1 9P087960 | | * FORM NEW SYNC CHAIN 9P087980 11277 0621 00 2 00004 UB5 STA 4,2 FORM NEW SYNC CHAIN 9P087990 | 11300 0020 00 0 11245 TRA UB3 AND CONTINUE 9P088000 | | * EXIT SEQUENCE 9P088020 | 11301 -0534 00 1 10154 UB6 LXD SYNCT,1 IF BUFFERS WERE DELETED 9P088030 11302 -3 00000 1 11315 TXL UB7,1,0 SETUP AND BACKSPACE 9P088040 | 11303 0074 00 4 12671 TSX NDSEL+1,4 9P088050 | 11304 0 00005 2 00000 PZE 0,2,BSROP 9P088060 | 11305 -0520 00 0 13122 NZT TEMP IF BSR ACROSS EOF MARK 9P088070 | 11306 1 77777 1 11302 UB6.3 TXI *-4,1,-1 RESTORE TAPE POSITION 9P088080 11307 0500 00 0 13122 CLA TEMP AND CONTINUE 9P088090 | 11310 -0774 00 4 00002 AXC 2,4 9P088100 | 11311 0601 60 2 00000 STO* 0,2 9P088110 | 11312 0600 00 0 13122 STZ TEMP 9P088120 | 11313 -0055 00 010000 SIL NINHIB UN-INHIBIT FILE 9P088130 11314 0020 00 0 11306 TRA UB6.3 9P088140 | 11315 0774 00 4 00000 UB7 AXT **,4 RESTORE IR4 9P088150 | 11316 0020 00 4 00001 TRA 1,4 EXIT 9P088160 | 1 LISTING OF 12/01/64 PAGE 208 | UNBUFFER OUTPUT FILE | * (WAITS TILL ALL IO ACTIVITY CEASES) 9P088180 | * TSX UNBFO,4 DESTROYS IR1 9P088190 | | 11317 0634 00 4 11327 UNBFO SXA UNBO2,4 SAVE IR4 9P088210 11320 0074 00 1 10527 TSX TRUNC,1 TRUNCATE BUF IN USE (IF ANY) 9P088220 | 11321 0760 00 0 00142 UNBF1 SLN 2 SET WAIT LITE ON 9P088230 | 11321 BES UNBF1+LITES-* 9P088240 | 11321 -0774 00 4 00001 UNBF2 AXC 1,4 IF UNIT HAS REQUESTS 9P088250 | 11322 -0520 60 2 00000 NZT* 0,2 TO DO GIVE IT 9P088260 11323 0020 00 0 11327 TRA UNBO PRIORITY AND WAIT..... 9P088270 | 11324 0074 00 4 00703 TSX ACTV+1,4 FOR ALL REQUESTS TO GET DONE 9P088280 | 11325 -0 00000 2 00000 MZE 0,2 9P088290 | 11326 0020 00 0 11321 TRA UNBF2 9P088300 | 11327 -0760 00 0 00142 UNBO SLT 2 TURN OFF WAIT LITE 9P088310 11330 0761 00 0 00000 NOP 9P088320 | 11327 BES UNBO+LITES*2-* 9P088330 | 11327 0774 00 4 00000 UNBO2 AXT **,4 9P088340 | 11330 -0520 60 2 00004 NZT* 4,2 IF EOT OCCURRED HANDLE IT NOW 9P088350 | 11331 0020 00 4 00001 TRA 1,4 ELSE EXIT 9P088360 11332 0074 00 1 12376 TSX EOTOF,1 9P088370 | 11333 0020 00 0 11324 TRA UNBO-3 9P088380 | 1 LISTING OF 12/01/64 PAGE 209 | IOCS SELECT ROUTINES | * (INITIATE A SELECT AND POST ITS COMPLETION) 9P088400 | | 11334 0 00000 0 00000 CHATY PZE UNIT AND CHANNEL TYPE $9P088420 | 11335 0634 00 4 11545 ISSUE SXA S3,4 SAVE IR4 9P088430 | 11336 0634 00 1 11546 SXA S3+1,1 SAVE IR1 9P088440 11337 0737 00 4 00000 PAC 0,4 -L(UCW) TO IR4 9P088450 | 11340 0131 00 0 00000 XCA SAVE + OR - ENTRY 9P088460 | 11341 0500 00 4 00000 CLA 0,4 L(FILE) 9P088470 | 11342 0737 00 2 00000 PAC 0,2 TO IR2 9P088480 | 11343 -0046 00 0 00000 CHATT PIA SAVE INDICATORS $9P088490 11344 0441 00 4 00000 LDI 0,4 1ST WORD OF UCB $9P088500 | 11345 -0056 00 020000 LNT 20000 CHANNEL TYPE $9P088510 | 11346 0020 00 0 11360 TRA PTEST-2 7607 CHANNEL $9P088520 | 11347 -0056 00 000100 LNT 100 7909 CHANNEL $9P088530 | 11350 0020 00 0 11354 TRA *+4 HYPER $9P088540 11351 0044 00 0 00001 PAI 1 1301- RESTORE INDICATORS $9P088550 | 11352 0500 00 0 11351 CLA *-1 $9P088560 | 11353 0020 00 0 11356 TRA PTES $9P088570 | 11354 0044 00 0 00002 PAI 2 RESTORE INDICATORS $9P088580 | 11355 0500 00 0 11354 CLA *-1 $9P088590 11356 0601 00 0 11334 PTES STO CHATY 1-1301,2-HYPER,0-7607 $9P088600 | 11357 0020 00 0 11362 TRA PTEST $9P088610 | 11360 0044 00 0 00000 PAI RESTORE INDICATORS $9P088620 | 11361 BES CHATT+NOCH/NOCH**-NOCH/NOCH*CHATT-* $9P088630 | 11361 0600 00 0 11334 STZ CHATY 7607 CHANNEL $9P088640 11362 0162 00 0 11500 PTEST TQP SELP SEPARATE SEL+ENTRY $9P088650 | 11363 0520 00 0 11334 ZET CHATY CHANNEL TYPE $9P088660 | 11364 0020 00 0 11551 TRA MSEL 7909 CHANNEL $9P088670 | * SELECT (-) ENTRY = POST COMPLETION 9P088680 | 11365 -0054 00 400000 LFT 400000 IF SHORT RECORD 9P088690 11366 0020 00 0 11374 TRA MXMDT INDICATION IS ON 9P088700 | 11367 -0500 00 0 11545 CAL S3 (CODE NOT= 4,5, OR 6) 9P088710 | 11370 0402 00 0 04715 SUB L(1) THEN SETUP TO EXIT 9P088720 | 11371 0621 00 0 11545 STA S3 AT 2,4 9P088730 | 11372 0500 00 4 00001 CLA 1,4 IF READING 9P088740 11373 0120 00 0 11545 TPL S3 DISCARD NOISE RECORD 9P088750 | 11374 0500 00 2 00001 MXMDT CLA 1,2 IF MIXED MODE 9P088760 | 11375 -0120 00 0 12533 TMI MXMOD PERFORM EXTRA CALCULATIONS 9P088770 | 11376 0500 60 0 00725 SELM1 CLA* (URRXI IF ANY TAPE 9P088780 | 11377 0100 00 0 11402 TZE *+3 ERRORS OCCURRED 9P088790 11400 0361 00 2 00005 ACL 5,2 ADJUST ERROR 9P088800 | 11401 0602 00 2 00005 SLW 5,2 COUNTS 9P088810 | 11402 0074 00 1 12271 TSX URC1,1 UPDATE REQUEST CHAIN 9P088820 | 11403 -0535 00 1 00736 LDC COMM,1 RESTORE TO 9P088830 | 11404 0162 00 0 11433 TQP POSTR IF MQ + READ IS DONE 9P088840 | * POST WRITE COMPLETION 9P088860 | 11405 0500 00 2 00004 SELM3 CLA 4,2 -L(POOL) TO IR4 $9P088870 | 11406 -0737 00 4 00000 PDC 0,4 9P088880 | 11407 -0500 00 4 00001 CAL 1,4 RESTORE BUFFER 9P088890 11410 0771 00 0 00004 ARS 4 SIZE TO IORT 9P088900 | 11411 0622 00 1 77777 STD -1,1 TO IORT 9P088910 | 11412 0074 00 1 12262 TSX BTP1,1 PLACE BUF IN POOL 9P088920 | 11413 -0056 00 200000 LNT 200000 DID EOT OCCUR 9P088930 | 11414 0020 00 0 11545 TRA S3 RESTORE IR4 AND BACK TO IOEX 9P088940 1 LISTING OF 12/01/64 PAGE 210 | IOCS SELECT ROUTINES | | * EOT HANDLE TRAP WRITE 9P088950 | 11415 -0774 00 4 00001 AXC 1,4 9P088960 11416 0500 60 2 00000 CLA* 0,2 9P088970 | 11417 0100 00 0 11421 TZE *+2 9P088980 | 11420 0621 00 2 00004 STA 4,2 9P088990 | 11421 0560 00 0 06505 LDQ EOTBT 9P089000 | * INHIBIT BITS TO FILE 9P089010 11422 0600 60 2 00000 INEX STZ* 0,2 SET PRIORITY EQUAL TO ZERO $9P089020 | 11423 -0634 00 2 11426 SXD INEX2,2 FILE BLOCK ADDRESS $9P089030 | 11424 -0130 00 0 00000 XCL MASK TO AC 9P089040 | 11425 0534 00 1 06353 LXA FCW,1 $9P089050 | 11426 1 00000 1 11427 INEX2 TXI *+1,1,** 9P089060 11427 3 00000 1 11431 TXH INEX4,1,0 9P089070 | 11430 0320 00 0 00740 ANS (IOXSI 9P089080 | 11431 0320 00 2 00001 INEX4 ANS 1,2 9P089090 | 11432 0020 00 0 11545 TRA S3 9P089100 | * POST READ COMPLETION 9P089120 | 11433 -0500 00 0 00736 POSTR CAL COMM 9P089130 | 11434 0621 00 1 77777 STA -1,1 ADDRESS+1 OF LAST WD READ IN IORT $9P089140 | 11435 -0046 00 0 00000 PIA 9P089150 | 11436 0630 00 1 77776 STP -2,1 SAVE COND OF LAST RECORD IN BCW $9P089160 11437 0500 60 2 00004 CLA* 4,2 DOES SYNC CHAIN EXIST 9P089170 | 11440 0100 00 0 11472 TZE PSTR8 NO 9P089180 | 11441 -0737 00 1 00000 PDC 0,1 SAVE L(END) 9P089190 | 11442 0131 00 0 00000 XCA L(BUF) TO AC 9P089200 | 11443 0621 00 1 00000 STA 0,1 UPDATE 9P089210 11444 0560 00 0 04724 LDQ L(0)D SYNC CHAIN 9P089220 | 11445 -0763 00 0 00022 LGL 18 9P089230 | 11446 0621 60 1 00000 STA* 0,1 $9P089240 | 11447 0622 60 2 00004 PSTR3 STD* 4,2 L(BUFF) TO BUFF CW $9P089250 | 11450 -0056 00 200000 LNT 200000 IF NO EOF $9P089260 11451 0020 00 0 11545 TRA S3 THEN EXIT 9P089270 | | * EOF HANDLER TRAP INPUT 9P089290 | 11452 0634 00 4 11465 SXA PSTR5,4 SAVE L(UCW) 9P089300 | 11453 0520 00 0 11334 ZET CHATY $9P089310 11454 0020 00 0 11664 TRA DEOF1 $9P089320 | 11455 0560 00 0 00737 LDQ LTPOS SAVE TAPE POSITION 9P089330 | 11456 -0600 60 0 00736 STQ* COMM JUST PRIOR TO EOF MARK 9P089340 | 11457 -0520 00 4 00001 PSTR4 NZT 1,4 IF LAST BUFFER 9P089350 | 11460 0020 00 0 11467 TRA PSTR6 DO NOTHING 9P089360 11461 0074 00 1 12271 PSTR2 TSX URC1,1 DELETE AHEAD $9P089370 | 11462 0500 00 2 00004 CLA 4,2 L(POOL) TO IR4 9P089380 | 11463 -0737 00 4 00000 PDC 0,4 9P089390 | 11464 0074 00 1 10451 TSX TOPOOL,1 BUFFERS 9P089400 | 11465 0774 00 4 00000 PSTR5 AXT **,4 RESTORE L(UCW) 9P089410 11466 0020 00 0 11457 TRA PSTR4 DELETE ALL 9P089420 | 11467 -0774 00 4 00001 PSTR6 AXC 1,4 SET UP REFERENCE TO 2ND 9P089430 | 11470 0560 00 0 06504 LDQ NOTIN WD UCW AND 9P089440 | 11471 0020 00 0 11422 TRA INEX GO INHIBIT FILE 9P089450 | 1 LISTING OF 12/01/64 PAGE 211 IOCS SELECT ROUTINES | | * START SYNC CHAIN 9P089470 | 11472 0131 00 0 00000 PSTR8 XCA PUT BUF READ IN AC $9P089480 | 11473 0621 00 2 00004 STA 4,2 9P089490 11474 0560 00 0 04724 LDQ L(0)D 9P089500 | 11475 -0763 00 0 00022 LGL 18 9P089510 | 11476 0621 60 2 00004 STA* 4,2 L(1) IN BUF CW $9P089520 | 11477 0020 00 0 11447 TRA PSTR3 9P089530 | 1 LISTING OF 12/01/64 PAGE 212 SELECT (+) ENTRY | | * SIGN OF UCW WD2 0-RD 1-WR 9P089550 | * INSERTS *+1 INTO IORT 9P089560 | * INSERTS BLOCK SEQ NUMBER IF DESIRED 9P089570 * AND INCREMENTS IT IN FILE WORDS 9P089580 | | 11500 0441 00 2 00001 SELP LDI 1,2 FILE BITS TO SI 9P089600 | 11501 -0054 00 400000 LFT MXDMD IF MIXED MODE $9P089610 | 11502 0020 00 0 12563 TRA MXMP SKIP OUT 9P089620 11503 0520 00 0 11334 ZET CHATY 7909 CHANNEL $9P089630 | 11504 0020 00 0 11757 TRA DRWRS YES $9P089640 | 11505 0500 00 4 00001 CLA 1,4 GET ADDRESS OF 9P089650 | 11506 0361 00 0 04715 ACL L(1) THE IORT TO BE USED 9P089660 | 11507 0621 60 0 00727 STA* (RCHXI 9P089670 11510 0621 00 0 11527 STA S1+1 9P089680 | 11511 0120 00 0 11526 TPL S1 THIS IS READ $9P089690 | 11512 0520 60 0 00725 ZET* (URRXI ERROR ON THIS BLOCK 9P089700 | 11513 0020 00 0 11526 TRA S1 YES START ACTIVITY 9P089710 | 11514 0621 00 0 11524 STA S0 NO 9P089720 11515 0131 00 0 00000 XCA SAVE ADDRESS OF IORT 9P089730 | 11516 0500 00 2 00003 CLA 3,2 GET BLOCK SEQ 9P089740 | 11517 0361 00 0 04721 ACL 1DEC UP BY ONE 9P089750 | 11520 0622 00 2 00003 STD 3,2 9P089760 | 11521 -0056 00 000200 LNT BLKSEQ CHECK FOR BLOCK SEQING 9P089770 11522 0020 00 0 11525 TRA S1-1 NO 9P089780 | 11523 0771 00 0 00022 ARS 18 YES 9P089790 | 11524 0621 60 0 00000 S0 STA* ** STORE BLOCK SEQ IN LAST WORD OF BUFF 9P089800 | 11525 0131 00 0 00000 XCA ADDRESS OF IORT IN MQ 9P089810 | 11526 0361 00 0 04715 S1 ACL L(1) 9P089820 11527 0621 00 0 00000 STA ** PUT ADDRESS OF IORT + 1 IN IORT 9P089830 | 11530 0500 00 2 00001 CLA 1,2 FORM SELECT 9P089840 | 11531 -0320 00 0 06507 ANA MODBT INSERTING TAPE MODE BIT 9P089850 | 11532 0771 00 0 00007 ARS 7 9P089860 | 11533 -0501 00 4 00000 ORA 0,4 9P089870 11534 0771 00 0 00022 RWRS ARS 18 9P089880 | 11535 0621 00 0 11543 STA SELCT UNIT ADDRESS TO SELECT 9P089890 | 11536 0500 00 0 11550 CLA S2 9P089900 | 11537 0560 00 4 00001 LDQ 1,4 9P089910 | 11540 0162 00 0 11542 TQP *+2 RDS IN SELECT 9P089920 11541 0767 00 0 00017 ALS 15 WRS IN SELECT 9P089930 | 11542 0622 00 0 11543 STD SELCT 9P089940 | 11543 0762 00 0 00000 SELCT RDS ** SEL 9P089950 | 11544 0522 60 0 00727 XEC* (RCHXI RCHX 9P089960 | 11545 0774 00 4 00000 S3 AXT **,4 9P089970 11546 0774 00 1 00000 AXT **,1 9P089980 | 11547 0020 00 4 00001 TRA 1,4 RETURN TO IOEX 9P089990 | 11550 +076200766000 S2 OCT 076200766000 9P090000 | 1 LISTING OF 12/01/64 PAGE 213 | 7909 CHANNEL SELECT ROUTINES | 11551 -0054 00 007100 MSEL LFT 7100 TEST UNUSUAL END $9P090020 | 11552 0020 00 0 11740 TRA DERR+1 9P090030 | 11553 0441 00 2 00000 LDI 0,2 TEST IF EOF HAS OCCURED $9P090040 | 11554 -0054 00 200000 LFT 200000 FROM LAST READ $9P090050 11555 0020 00 0 11754 TRA SEOFI YES $9P090060 | 11556 0500 60 4 00001 CLA* 1,4 GET FLAG WORD USED $9P090070 | 11557 0400 00 0 04715 ADD L(1) FOR THIS OPERATION $9P090080 | 11560 0621 00 0 11561 STA *+1 $9P090090 | 11561 0441 00 0 00000 LDI ** PUT FLAG WORD IN INDICATORS $9P090100 11562 -0056 00 400000 LNT 400000 IS RECORD COMPLETE $9P090110 | 11563 0020 00 0 11672 TRA FINREC NO-FINISH RECORD $9P090120 | 11564 -0054 00 200000 LFT 200000 EOF OCCUR $9P090130 | 11565 0020 00 0 11751 SEOF TRA SEOH YES - HANDLE STRANGE EOF $9P090140 | 11566 0441 00 0 04733 LDI FOR SET INDICATORS AS 7607 $9P090150 11567 0500 00 2 00001 SELM2 CLA 1,2 IF MIXED MODE $9P090160 | 11570 -0120 00 0 12574 TMI 1KA PERFORM EXTRA CALC. 9P090170 | 11571 0500 60 0 00725 CLA* (URRXI IF ERRORS ADJUST $9P090180 | 11572 0100 00 0 11575 TZE *+3 ERROR COUNTS IN FCB $9P090190 | 11573 0361 00 2 00005 ACL 5,2 $9P090200 11574 0602 00 2 00005 SLW 5,2 $9P090210 | 11575 0500 60 4 00001 CLA* 1,4 MAKE BUFFER $9P090220 | 11576 0621 00 0 11631 STA SELM4+1 ADDRESS AVAILABLE $9P090230 | 11577 -0500 00 4 00001 CAL 1,4 $9P090240 | 11600 0402 00 0 04715 SUB L(1) $9P090250 11601 0634 00 4 11604 SXA *+3,4 SAVE IR4 $9P090260 | 11602 0737 00 4 00000 PAC 0,4 IR4=-L(COMM-1) $9P090270 | 11603 0074 00 1 12272 TSX URC1+1,1 UPDATE REQUEST CHAIN $9P090280 | 11604 0774 00 4 00000 SELM5 AXT **,4 RESTORE IR4 $9P090290 | 11605 0500 00 0 11334 CLA CHATY 1301 OR HYPER $9P090300 11606 0760 00 0 00001 LBT 1301 $9P090310 | 11607 0020 00 0 11141 TRA SEL8 HYPER $9P090320 | 11610 0074 00 1 12212 TSX CKSEE,1 UPDATE SEEK ADDRESS $9P090330 | 11611 0500 00 4 00001 CLA 1,4 PUT ADDRESS OF $9P090340 | 11612 0737 00 1 00000 PAC 0,1 COMD CHAIN IN IR 1 $9P090350 11613 0634 00 1 11634 SXA ER,1 SAVE ADDRESS OF COMD CHAIN $9P090360 | 11614 0600 00 1 00001 STZ 1,1 ZERO OUT COUNT SAVED $9P090370 | 11615 -0500 00 1 00010 CAL 8,1 $9P090380 | 11616 0361 00 0 04715 ACL L(1) $9P090390 | 11617 0737 00 1 00000 PAC 0,1 ITR1=-L(1ST WORD IN BUF) $9P090400 11620 -0500 00 0 06353 CAL FCW RESTORE IORT $9P090410 | 11621 0630 00 1 77777 STP -1,1 IN BUFFER $9P090420 | 11622 0560 00 4 00001 LDQ 1,4 $9P090430 | 11623 -0520 60 4 00001 NZT* 1,4 IF ZERO-ZERO OUT $9P090440 | 11624 0600 00 4 00001 STZ 1,4 2ND WORD OF UCB $9P090450 11625 0162 00 0 11630 TQP SELM4 IF MQ + READ IS DONE $9P090460 | 11626 0560 00 0 11631 LDQ SELM4+1 PUT BUFF ADDRESS IN MQ $9P090470 | 11627 0020 00 0 11405 TRA SELM3 GO POST WRITE COMPLETION $9P090480 | 11630 -0500 00 0 11631 SELM4 CAL *+1 $9P090490 | 11631 0131 00 0 00000 XCA ** MQ = ADDRESS OF BUF CW $9P090500 11632 0634 00 1 11636 SXA C8,1 $9P090510 | 11633 -0500 00 1 77777 CAL -1,1 PICK UP COUNT FROM FLAG $9P090520 | 11634 0774 00 1 00000 ER AXT **,1 $9P090530 | 11635 0401 00 1 00011 ADM 9,1 NEXT AVAIL WORD IN BUFFER $9P090540 | 11636 0774 00 1 00000 C8 AXT **,1 IR1=L(1ST WD IN BUF) $9P090550 11637 0621 00 1 77777 STA -1,1 ADDRESS +1 OF LAST WD. READ IN IORT $9P090560 | 1 LISTING OF 12/01/64 PAGE 214 | 7909 CHANNEL SELECT ROUTINES | | 11640 -0054 00 200000 LFT 200000 IF EOF GO $9P090570 11641 0074 00 4 11651 TSX EOF,4 TAKE CARE OF IT $9P090580 | 11642 0500 00 2 00004 CLA 4,2 PICK UP AND $9P090590 | 11643 -0737 00 4 00000 PDC 0,4 RESTORE THE $9P090600 | 11644 -0500 00 4 00001 CAL 1,4 BUFFER SIZE $9P090610 | 11645 0771 00 0 00004 ARS 4 IN THE IORT $9P090620 11646 0622 00 1 77777 STD -1,1 NOW GO POST $9P090630 | 11647 0522 00 0 11604 XEC SELM5 READ COMPLETION $9P090640 | 11650 0020 00 0 11435 TRA POSTR+2 SOME JOB $9P090650 | 11651 0560 00 2 00000 EOF LDQ 0,2 EXCHANGE START AND $9P090660 | 11652 -0500 00 2 00006 CAL 6,2 FINISH OF FILE $9P090670 11653 -0763 00 0 00022 LGL 18 PUT A MINUS $9P090680 | 11654 0622 00 2 00000 STD 0,2 IN WORD SEVEN $9P090690 | 11655 0621 00 2 00006 STA 6,2 TO INDICATE SPECIAL $9P090700 | 11656 0502 00 2 00006 CLS 6,2 HANDLING NEEDED $9P090710 | 11657 0601 00 2 00006 STO 6,2 FOR NEXT DATA OPER. $9P090720 11660 0560 00 0 11631 LDQ SELM4+1 RESTORE ADDRESS OF BUF IN MQ $9P090730 | 11661 0020 00 4 00001 TRA 1,4 GO HOME $9P090740 | 11662 0441 00 0 04700 DEOF LDI SIX SET IND AS TAPE EOF $9P090750 | 11663 0020 00 0 11567 TRA SELM2 $9P090760 | 11664 -0520 00 4 00001 DEOF1 NZT 1,4 IF LAST BUFFER $9P090770 11665 0020 00 0 11467 TRA PSTR6 DO NOTHING $9P090780 | 11666 -0500 60 4 00001 CAL* 1,4 DISK OPERATIONS $9P090790 | 11667 0600 60 4 00001 STZ* 1,4 ARE DONE FOR NOW $9P090800 | 11670 0621 00 4 00001 STA 1,4 RESTORE REQUEST CHAIN $9P090810 | 11671 0020 00 0 11461 TRA PSTR2 AS TAPE (UCB2) $9P090820 11672 -0054 00 200000 FINREC LFT 200000 IOCS EOF $9P090830 | 11673 0020 00 0 11662 TRA DEOF YES $9P090840 | 11674 0500 00 4 00001 CLA 1,4 $9P090850 | 11675 0737 00 1 00000 PAC 0,1 -L(COMMANDS)IN IR1 $9P090860 | 11676 0500 00 1 00001 CLA 1,1 PICK UP AND COUNT $9P090870 11677 0634 00 2 11701 SXA *+2,2 $9P090880 | 11700 0074 00 2 12243 TSX SIZE,2 COUNT FOR DISK OPERATION $9P090890 | 11701 0774 00 2 00000 D7 AXT **,2 RESTORE IR2 $9P090900 | 11702 -0520 00 1 00001 NZT 1,1 IF ZERO MAKE $9P090910 | 11703 -0625 00 1 00001 STL 1,1 NON-ZERO FOR SEL + $9P090920 11704 0500 00 4 00001 CLA 1,4 READ OR WRITE $9P090930 | 11705 -0120 00 0 11733 TMI D3 WRITE $9P090940 | 11706 -0500 00 1 00011 D4 CAL 9,1 PUT THE NEXT READ 9P090950 | 11707 0400 00 0 04743 ADD L(465) IN WORD IN THE $9P090960 | 11710 0621 00 1 00011 STA 9,1 COMMAND $9P090970 11711 0634 00 1 11713 SXA *+2,1 $9P090980 | 11712 0074 00 1 12212 TSX CKSEE,1 IS SEEK NECESSARY $9P090990 | 11713 0774 00 1 00000 AXT **,1 RESTORE IR1 $9P091000 | 11714 0500 00 2 00006 CLA 6,2 CREATE BCD CHARACTERS $9P091010 | 11715 0634 00 4 11717 SXA *+2,4 FOR THE NEXT PREPARE $9P091020 11716 0074 00 4 00716 TSX (DECVA,4 TO VERIFY COMMAND $9P091030 | 11717 0774 00 4 00000 AXT **,4 $9P091040 | 11720 0500 00 2 00006 CLA 6,2 GET REC LAB $9P091050 | 11721 0400 00 0 11747 ADD TRKC UP TRACK COUNT $9P091060 | 11722 0602 00 2 00006 SLW 6,2 FOR RECORD $9P091070 11723 0771 00 0 00006 ARS 6 AND PUT IN $9P091080 | 11724 0601 00 0 11726 STO *+2 P.V. WORD $9P091090 | 11725 0074 00 2 00743 TSX (FDAMT,2 $9P091100 | 11726 0 00000 0 00000 PZE $9P091110 | 1 LISTING OF 12/01/64 PAGE 215 7909 CHANNEL SELECT ROUTINES | | 11727 0 00000 1 00017 PZE 15,1 $9P091120 | 11730 0522 00 0 11701 XEC D7 $9P091130 | 11731 0074 00 4 12175 TSX WCHK,4 $9P091140 11732 0020 00 0 11545 TRA S3 RETURN TO IOEX $9P091150 | 11733 0500 60 1 00010 D3 CLA* 8,1 UPDATE NEXT TRACK $9P091160 | 11734 0361 00 0 04721 ACL 1DEC IN FILE $9P091170 | 11735 0622 60 1 00010 STD* 8,1 $9P091180 | 11736 0020 00 0 11706 TRA D4 $9P091190 11737 0 00000 0 00000 DERR PZE 0 FLAG FOR ERROR IN HA2, FORMAT, ETC. $9P091200 | 11740 0500 00 4 00001 CLA 1,4 GET COMMAND LIST ADDRESS 9P091210 | 11741 0737 00 1 00000 PAC 0,1 FOR STZ OPERATION 9P091220 | 11742 0600 00 1 00001 STZ 1,1 DO IT 9P091230 | 11743 0600 00 1 00000 STZ 0,1 TO BOTH COMMAND LISTS WORDS 9P091240 11744 0600 00 4 00001 STZ 1,4 ZERO OUT REQUEST 9P091250 | 11745 -0625 00 0 11737 STL DERR SET UNUSUAL END INDICATION 9P091260 | 11746 0020 00 0 11545 TRA S3 GO BACK 9P091270 | 11747 +010000000000 TRKC OCT 010000000000 $9P091280 | 11750 +007777777777 TRKRC OCT 007777777777 $9P091290 11751 -0500 00 0 04731 SEOH CAL PTW SET EOF BIT ON $9P091300 | 11752 0630 00 2 00000 STP 0,2 FOR STRANGE EOF $9P091310 | 11753 0020 00 0 11566 TRA SEOF+1 FINISH READ $9P091320 | 11754 -0057 00 200000 SEOFI RIL 200000 TURN OFF $9P091330 | 11755 0604 00 2 00000 STI 0,2 STRANGE EOF $9P091340 11756 0020 00 0 11662 TRA DEOF CONTINUE $9P091350 | 1 LISTING OF 12/01/64 PAGE 216 | SELECT PLUS FOR 7909 CHANNEL | | 11757 0500 00 4 00001 DRWRS CLA 1,4 READ OR WRITE $9P091370 11760 0361 00 0 04740 ACL L(2) (L) OF R OR W SELECT $9P091380 | 11761 0120 00 0 11763 TPL *+2 READ $9P091390 | 11762 0361 00 0 04741 ACL L(3) WRITE $9P091400 | 11763 0621 60 0 00727 STA* (RCHXI SET START CHAN INST $9P091410 | 11764 0520 60 0 00725 ZET* (URRXI FIRST TIME THRU $9P091420 11765 0020 00 0 12063 TRA C3 NO $9P091430 | 11766 0621 00 0 12021 STA C7 $9P091440 | 11767 0500 00 4 00001 CLA 1,4 ADDRESS OF COMMD $9P091450 | 11770 0737 00 1 00000 PAC 0,1 LIST TO IR1 $9P091460 | 11771 0520 00 1 00001 ZET 1,1 PARTIAL RECORD $9P091470 11772 0020 00 0 12063 TRA C3 YES START CHANNEL $9P091480 | 11773 0120 00 0 12010 TPL DRWRS1 IF READ $9P091490 | 11774 -0500 00 2 00003 CAL 3,2 $9P091500 | 11775 0361 00 0 04721 ACL 1DEC UP BLOCK COUNT $9P091510 | 11776 0622 00 2 00003 STD 3,2 $9P091520 11777 -0056 00 000200 LNT BLKSEQ $9P091530 | 12000 0020 00 0 12010 TRA DRWRS1 NO BLOCK SEQ $9P091540 | 12001 0771 00 0 00022 ARS 18 $9P091550 | 12002 0131 00 0 00000 XCA SAVE COUNT $9P091560 | 12003 0500 60 4 00001 CLA* 1,4 LOC OF BUF TO BE USED $9P091570 12004 0361 00 0 04715 ACL L(1) $9P091580 | 12005 0621 00 0 12007 STA *+2 $9P091590 | 12006 0131 00 0 00000 XCA RESTORE COUNT $9P091600 | 12007 0621 60 0 00000 STA* ** (L) OF LAST WORD OF BUF $9P091610 | 12010 0500 00 2 00001 DRWRS1 CLA 1,2 SET THE $9P091620 12011 -0320 00 0 06507 ANA MODBT MODE OF $9P091630 | 12012 0100 00 0 12020 TZE L(22)+1 BCD MODE $9P091640 | 12013 0500 00 0 12016 CLA L(6) BINARY MODE $9P091650 | 12014 0020 00 0 12021 TRA L(22)+2 $9P091660 | 12015 0 00000 0 00005 L(5) PZE 5 $9P091670 12016 0 00000 0 00006 L(6) PZE 6 $9P091680 | 12017 0 00000 0 00026 L(22) PZE 22 $9P091690 | 12020 0500 00 0 12017 CLA L(22) $9P091700 | 12021 -0602 00 0 00000 C7 ORS ** ADDRESS OF SMS $9P091710 | 12022 0500 00 0 11334 CLA CHATY HYPER OR 1301 $9P091720 12023 0760 00 0 00001 LBT $9P091730 | 12024 0020 00 0 11141 TRA SEL8 HYPER SELECT PLUS $9P091740 | 12025 0500 00 1 00000 CLA 0,1 ADDRESS OF BUFFER $9P091750 | 12026 0361 00 0 04715 ACL L(1) $9P091760 | 12027 0621 00 1 00010 STA 8,1 ADDRESS OF 2ND BUF WORD $9P091770 12030 0361 00 0 04715 ACL L(1) $9P091780 | 12031 0621 00 1 00011 STA 9,1 ADDRESS OF 3RD BUF WORD $9P091790 | 12032 0500 60 1 00010 CLA* 8,1 PICK UP COUNT $9P091800 | 12033 0771 00 0 00022 ARS 18 MOVE COUNT OVER $9P091810 | 12034 -0320 00 0 04720 ANA ADDRS MASK ALL BUT ADDRESS $9P091820 12035 0634 00 2 12037 SXA *+2,2 $9P091830 | 12036 0074 00 2 12243 TSX SIZE,2 CHECK RECORD SIZE $9P091840 | 12037 0774 00 2 00000 C9 AXT **,2 $9P091850 | 12040 -0500 00 2 00006 CAL 6,2 CREATE BCD CHARACTER $9P091860 | 12041 -0320 00 0 11750 ANA TRKRC CHANGE THE TRACK $9P091870 12042 0400 00 0 11747 ADD TRKC COUNT TO ONE FOR RECORD $9P091880 | 12043 0602 00 2 00006 SLW 6,2 PUT BACK TO FCB $9P091890 | 12044 0634 00 4 12046 SXA *+2,4 FOR PV COMMAND $9P091900 | 12045 0074 00 4 00716 TSX (DECVA,4 $9P091910 | 1 LISTING OF 12/01/64 PAGE 217 SELECT PLUS FOR 7909 CHANNEL | | 12046 0774 00 4 00000 C2 AXT **,4 $9P091920 | 12047 -0500 00 2 00006 CAL 6,2 GET SEEK ADDRESS $9P091930 | 12050 0400 00 0 04715 ADD L(1) $9P091940 12051 0767 00 0 00022 ALS 18 MOVE SEEK ADDRESS OVER $9P091950 | 12052 0622 60 1 00010 STD* 8,1 PUT NEXT SEEK IN FLAG $9P091960 | 12053 -0500 00 2 00006 CAL 6,2 LABEL FOR $9P091970 | 12054 0771 00 0 00006 ARS 6 RECORD ADDRESS $9P091980 | 12055 0601 00 0 12057 STO *+2 $9P091990 12056 0074 00 2 00743 TSX (FDAMT,2 PLACE P.V. COMMAND $9P092000 | 12057 0 00000 0 00000 PZE BITS IN PROPER PLACE $9P092010 | 12060 0 00000 1 00017 PZE 15,1 $9P092020 | 12061 0522 00 0 12037 XEC C9 RESTORE IR2 $9P092030 | 12062 0074 00 4 12175 TSX WCHK,4 CHECK FOR WRITE CHECK $9P092040 12063 0522 00 0 11546 C3 XEC S3+1 RESTORE IR1 $9P092050 | 12064 -0500 00 2 00000 CAL 0,2 IS THERE A STRANGE $9P092060 | 12065 0767 00 0 00001 ALS 1 EOF ON THIS FILE - $9P092070 | 12066 -0760 00 0 00001 PBT $9P092080 | 12067 0020 00 0 11544 TRA S3-1 NO $9P092090 12070 0522 00 0 12046 XEC C2 YES - RESTORE XR4 $9P092100 | 12071 0500 60 4 00001 CLA* 1,4 YES $9P092110 | 12072 0361 00 0 04715 ACL L(1) GET FLAG WORD $9P092120 | 12073 0621 00 0 12100 STA DRWRS2 ADDRESS AND SAVE $9P092130 | 12074 -0500 00 2 00006 CAL 6,2 GET SEEK ADDRESS $9P092140 12075 0402 00 0 04715 SUB L(1) MINUS 1 AND STORE $9P092150 | 12076 0621 00 4 00003 STA 3,4 IN UCB 4 AND FCB 7 $9P092160 | 12077 0621 00 2 00006 STA 6,2 $9P092170 | 12100 0600 00 0 00000 DRWRS2 STZ ** SET FLAG WORD TO ZERO $9P092180 | 12101 0774 00 2 00131 AXT SYSTWT,2 START CHANNEL $9P092190 12102 0754 00 2 00000 PXA 0,2 FOR A $9P092200 | 12103 0621 60 0 00727 STA* (RCHXI TRAP $9P092210 | 12104 0020 00 0 11544 TRA S3-1 GO $9P092220 | 12105 0 00000 0 00000 LCOMAD PZE CHAIN TO BUFFERS $9P092230 | 12106 0 00000 0 00000 PZE COUNT FOR MULTI TRACK RECORD $9P092240 12107 -30 0000 0 00000 SMS ** SET MODE FOR READ $9P092250 | 12110 20 0000 2 12124 CTLR *+12 PREPARE DISK FOR READ $9P092260 | 12111 1 00000 0 12115 TCH *+4 GO DO DATA MOVEMENT $9P092270 | 12112 -30 0000 0 00000 SMS ** SET MODE FOR WRITE $9P092280 | 12113 -24 0000 2 00000 LCC 0 COUNTER FOR WRITE CHECK $9P092290 12114 24 0000 0 12124 CTLW *+8 PREPARE DISK FOR WRITE $9P092300 | 12115 -0 00001 0 00000 CPYP **,,1 FLAG WORD MOVEMENT $9P092310 | 12116 -0 00000 0 00000 CPYP **,,** DATA MOVEMENT $9P092320 | 12117 -1 00000 0 00000 CPYD 0,,0 DISCONNECT DATA MOVEMENT $9P092330 | 12120 -24 0000 0 12122 TDC *+2 CHECK FOR WRITE CHECK $9P092340 12121 1 00000 0 00131 TCH SYSTWT INTERUPT CPU $9P092350 | 12122 24 0000 0 12126 CTLW *+4 PREPARE FOR WRITE CHECK $9P092360 | 12123 1 00000 0 12115 TCH *-6 GO DO WRITE CHECK $9P092370 | 12124 1010 1212 1212 DVTA ,, 9P092380 | 12126 1006 1212 1212 DWRC ,, 9P092390 12130 BSS 9 $9P092400 | 12141 0 00000 0 00000 COMADL PZE $9P092410 | 12142 0 00000 0 00000 PZE $9P092420 | 12143 -30 0000 0 00000 SMS ** $9P092430 | 12144 20 0000 2 12160 CTLR *+12 $9P092440 12145 1 00000 0 12151 TCH *+4 $9P092450 | 12146 -30 0000 0 00000 SMS ** $9P092460 | 1 LISTING OF 12/01/64 PAGE 218 | SELECT PLUS FOR 7909 CHANNEL | 12147 -24 0000 2 00000 LCC 0 $9P092470 | 12150 24 0000 0 12160 CTLW *+8 $9P092480 | 12151 -0 00001 0 00000 CPYP **,,1 $9P092490 | 12152 -0 00000 0 00000 CPYP **,,** $9P092500 | 12153 -1 00000 0 00000 CPYD 0,,0 $9P092510 12154 -24 0000 0 12156 TDC *+2 $9P092520 | 12155 1 00000 0 00131 TCH SYSTWT $9P092530 | 12156 24 0000 0 12162 CTLW *+4 $9P092540 | 12157 1 00000 0 12151 TCH *-6 $9P092550 | 12160 1010 1212 1212 DVTA ,, $9P092560 12162 1006 1212 1212 DWRC ,, $9P092570 | 12164 BSS 9 $9P092580 | 12175 0 00000 0 00000 PZE $9P092590 | 12176 0 00000 0 00000 PZE $9P092600 | 12177 -30 0000 0 00000 SMS ** $9P092610 12200 20 0000 2 12214 CTLR *+12 $9P092620 | 12201 1 00000 0 12205 TCH *+4 $9P092630 | 12202 -30 0000 0 00000 SMS ** $9P092640 | 12203 -24 0000 2 00000 LCC 0 $9P092650 | 12204 24 0000 0 12214 CTLW *+8 $9P092660 12205 -0 00001 0 00000 CPYP **,,1 $9P092670 | 12206 -0 00000 0 00000 CPYP **,,** $9P092680 | 12207 -1 00000 0 00000 CPYD 0,,0 $9P092690 | 12210 -24 0000 0 12212 TDC *+2 $9P092700 | 12211 1 00000 0 00131 TCH SYSTWT $9P092710 12212 24 0000 0 12216 CTLW *+4 $9P092720 | 12213 1 00000 0 12205 TCH *-6 $9P092730 | 12214 1010 1212 1212 DVTA ,, $9P092740 | 12216 1006 1212 1212 DWRC ,, $9P092750 | 12220 BSS 9 $9P092760 12231 0 00000 0 00000 PZE $9P092770 | 12232 0 00000 0 00000 PZE $9P092780 | 12233 -30 0000 0 00000 SMS ** $9P092790 | 12234 20 0000 2 12250 CTLR *+12 $9P092800 | 12235 1 00000 0 12241 TCH *+4 $9P092810 12236 -30 0000 0 00000 SMS ** $9P092820 | 12237 -24 0000 2 00000 LCC 0 $9P092830 | 12240 24 0000 0 12250 CTLW *+8 $9P092840 | 12241 -0 00001 0 00000 CPYP **,,1 $9P092850 | 12242 -0 00000 0 00000 CPYP **,,** $9P092860 12243 -1 00000 0 00000 CPYD 0,,0 $9P092870 | 12244 -24 0000 0 12246 TDC *+2 $9P092880 | 12245 1 00000 0 00131 TCH SYSTWT $9P092890 | 12246 24 0000 0 12252 CTLW *+4 $9P092900 | 12247 1 00000 0 12241 TCH *-6 $9P092910 12250 1010 1212 1212 DVTA ,, $9P092920 | 12252 1006 1212 1212 DWRC ,, $9P092930 | 12254 BSS 9 $9P092940 | 12175 ENDLIS BES LCOMAD+NOCH*28-* $9P092950 | 1 LISTING OF 12/01/64 PAGE 219 | * THIS SETS UP FOR A WRITE CHECK $9P092970 | * TSX WCHK,4 $9P092980 | * RETURN $9P092990 | * $9P093000 12175 0500 00 2 00000 WCHK CLA 0,2 $9P093010 | 12176 -0120 00 0 12201 TMI *+3 WRITE CHECK NEC. $9P093020 | 12177 0754 00 0 00000 PXA 0,0 PUT ZERO IN LCC $9P093030 | 12200 0020 00 0 12210 TRA STCC $9P093040 | 12201 -0500 00 1 00017 CAL 15,1 PUT THE PREPARE 9P093050 12202 -0320 00 0 04736 ANA L(DWRC TO VERIFY IN THE $9P093060 | 12203 -0501 00 0 04737 ORA LDWRC $9P093070 | 12204 0602 00 1 00021 SLW 17,1 WRITE CHECK ORDER 9P093080 | 12205 0500 00 1 00020 CLA 16,1 9P093090 | 12206 0601 00 1 00022 STO 18,1 9P093100 12207 0500 00 0 04715 CLA L(1) PUT ONE IN LCC $9P093110 | 12210 0621 00 1 00006 STCC STA 6,1 $9P093120 | 12211 0020 00 4 00001 TRA 1,4 RETURN $9P093130 | * $9P093140 | * TSX CKSEE,1 $9P093150 * RETURN $9P093160 | * $9P093170 | * $9P093180 | 12212 -0500 00 2 00006 CKSEE CAL 6,2 UPDATE SEEK $9P093190 | 12213 0322 00 2 00007 ERA 7,2 ADDRESS $9P093200 12214 -0320 00 0 04720 ANA ADDRS $9P093210 | 12215 0100 00 0 12257 TZE ENTRK NO MORE TRACKS FOR FILE $9P093220 | 12216 -0500 00 2 00006 CAL 6,2 $9P093230 | 12217 0400 00 0 04715 ADD L(1) $9P093240 | 12220 0621 00 2 00006 STA 6,2 NEXT ADDRESS FOR SEEK $9P093250 12221 -0500 00 4 00003 CAL 3,4 $9P093260 | 12222 0400 00 0 04715 ADD L(1) $9P093270 | 12223 0621 00 4 00003 STA 3,4 UPDATE SEEK ADDRESS $9P093280 | 12224 0322 00 2 00006 ERA 6,2 SAME ARM POSITION $9P093290 | 12225 -0320 00 0 04720 ANA ADDRS AS DESIRED $9P093300 12226 0100 00 0 12232 TZE D8 YES $9P093310 | 12227 -0500 00 2 00006 D9 CAL 6,2 NO, PUT DESIRED $9P093320 | 12230 0621 00 4 00003 STA 3,4 POSITION IN REQUEST $9P093330 | 12231 0020 00 0 12240 TRA D6 AND ASK FOR SEEK $9P093340 | 12232 0500 00 4 00003 D8 CLA 3,4 GET POSITION AND $9P093350 12233 -0320 00 0 04720 ANA ADDRS CHECK IF ANOTHER $9P093360 | 12234 0131 00 0 00000 XCA SEEK NEC. NOW $9P093370 | 12235 0754 00 0 00000 PXA 0,0 $9P093380 | 12236 0221 00 0 04742 DVP L(40) $9P093390 | 12237 -0100 00 1 00001 TNZ 1,1 RETURN IF NO SEEK $9P093400 12240 0502 00 4 00002 D6 CLS 2,4 SET 3RD UCW TO $9P093410 | 12241 0601 00 4 00002 STO 2,4 DEMAND A SEEK $9P093420 | 12242 0020 00 1 00001 TRA 1,1 $9P093430 | * $9P093440 | * COUNT IN ACC $9P093450 * TSX SIZE,2 $9P093460 | * RETURN $9P093470 | * $9P093480 | 12243 0402 00 0 04743 SIZE SUB L(465) COMPARE WITH MAX COUNT $9P093490 | 12244 -0120 00 0 12253 TMI D1 LESS THAN FULL TRACK $9P093500 12245 0621 00 1 00001 STA 1,1 SAVE EXTRA WORD COUNT $9P093510 | 12246 0500 00 0 04743 CLA L(465) GET MAX COUNT $9P093520 | 1 LISTING OF 12/01/64 PAGE 220 | | 12247 0602 60 1 00010 C1 SLW* 8,1 PUT IN FLAG WORD $9P093530 12250 0767 00 0 00022 ALS 18 PUT COUNT IN $9P093540 | 12251 0622 00 1 00011 STD 9,1 COPY INSTR $9P093550 | 12252 0020 00 2 00001 TRA 1,2 RETURN $9P093560 | 12253 0400 00 0 04743 D1 ADD L(465) GET COUNT BACK $9P093570 | 12254 0600 00 1 00001 STZ 1,1 ZERO OUT EXTRA COUNT $9P093580 12255 -0501 00 0 04733 ORA FOR SET FLAG WORD FOR COMPLETE RECORD $9P093590 | 12256 0020 00 0 12247 TRA C1 FINISH UP $9P093600 | 12257 0500 00 0 11750 ENTRK CLA TRKRC SET END OF TRACK $9P093610 | 12260 0625 00 2 00006 STT 6,2 $9P093620 | 12261 0020 00 1 00001 TRA 1,1 INDICATION AND RETURN $9P093630 12262 BES MSEL+NOCH/NOCH**-NOCH/NOCH*MSEL-* $9P093640 | 1 LISTING OF 12/01/64 PAGE 221 | BTP (BUFFER TO POOL) ROUTINE | | * TSX BTP,1 9P093660 | * L(BUF) IN AC IR4 = -L(POOL) TSX BTP2,1 9P093680 | * MQ TSX BTP1,1 9P093690 | | 12262 0131 00 0 00000 BTP1 XCA L(BUF. IN USE IN AC $9P093710 12263 0560 00 4 00000 BTP2 LDQ 0,4 MQ= AVAIL CHAIN $9P093720 | 12264 0621 00 4 00000 STA 0,4 PUT BUF IN USE BACK $9P093730 | 12265 0131 00 0 00000 XCA BUF FROM CHAIN IN AC $9P093740 | 12266 0600 60 4 00000 STZ* 0,4 ZERO IN BUF CW $9P093750 | 12267 0621 60 4 00000 STA* 0,4 ADDRESS OF CHAIN $9P093760 12270 0020 00 1 00001 TRA 1,1 9P093770 | | * URC (UPDATE REQUEST CHAIN) 9P093790 | * IR4 = -L(UCW) TSX URC1,1 9P093800 | 12271 0560 00 4 00001 URC1 LDQ 1,4 2ND WORD OF UCB IN MQ $9P093820 | 12272 0500 60 4 00001 CLA* 1,4 CHAIN 1ST WORD OF BCW $9P093830 | 12273 0621 00 4 00001 STA 1,4 PUT AD OF NEXT BUF IN UCB 2 $9P093840 | 12274 -0520 60 4 00001 NZT* 1,4 LOC OF ZERO $9P093850 | 12275 0020 00 0 12300 TRA *+3 9P093860 12276 0622 60 4 00001 STD* 1,4 NO, NEXT BUF IN CHAIN IN UCW 2 $9P093870 | 12277 0020 00 1 00001 TRA 1,1 9P093880 | 12300 0600 00 4 00001 STZ 1,4 SET PRIORITY EQUAL TO ZERO $9P093890 | 12301 0020 00 1 00001 TRA 1,1 9P093900 | 1 LISTING OF 12/01/64 PAGE 222 MESSAGES FOR MINIMUM IOCS | | 12302 606445316360 MESS1 BCI 2, UNIT ***** 9P093920 | 12304 237043336043 MESS2 BCI 3,CYL. LIMITS XCEDED $9P093930 | 12307 474646436025 MESS5 BCI 3,POOL ERROR TSX AT 9P093940 12312 604647254560 MESS6 BCI 7, OPEN COUNT EXCEEDED - OPEN NOT POSSIBLE 9P093950 | 12321 604546636021 MESS7 BCI 6, NOT AVAILABLE FOR INITIALIZATION 9P093960 | 12327 602163632123 MESS8 BCI 3, ATTACH ERROR AT 9P093970 | 12332 603143432527 MESS9 BCI 7, ILLEGAL TRANSMIT ***** WRITE READ ***** $9P093980 | 12341 605125254360 MES10 BCI 6, REEL ***** - ***** RECORDS 9P093990 12347 606060606060 MES11 BCI 4, REDUNDANCY HISTORY 9P094000 | 12353 605454545454 MES12 BCI 5, ***** RECOVERED ***** ERASE 9P094010 | 12360 604725514433 MES13 BCI 1, PERM. 9P094020 | 12361 602551216225 MES14 BCI 1, ERASE 9P094030 | 12362 314343252721 MES22 BCI 3,ILLEGAL FILE USE 9P094040 12365 512544466525 MES23 BCI 3,REMOVE REEL ***** 9P094050 | 12370 604446644563 MES24 BCI 2, MOUNT BLANK 9P094060 | 1 LISTING OF 12/01/64 PAGE 223 | EOT HANDLER FOR EOT ENCOUNTERED | * IN SEARCHING OUTPUT FILE CHAIN 9P094080 | | * TRA SYEOT L(FILE) IN CPY7 ADDRESS 9P094100 | * RETURNS AT GET1 IRS 1 AND 4 DESTROYED 9P094110 | 12372 0074 00 4 13235 SYEOT TSX CPY6,4 SET L(FILE) W/EOT IN IR2 AND SI 9P094130 | 12373 0074 00 1 12376 TSX EOTOF,1 HANDLE EOT 9P094140 | 12374 0074 00 4 13235 TSX CPY6,4 RESTORE ORIGINAL FILE BITS 9P094150 | 12375 0020 00 0 10633 TRA GET1 AND IR2 THEN EXIT 9P094160 | * EOT HANDLER OUTPUT FILE 9P094180 | | * TSX EOTOF,1 IR2 = -L(FILE) 9P094200 | * RETURN INDICES NOT DISTURBED 9P094210 | 12376 0634 00 4 12427 EOTOF SXA ETOF5,4 SAVE IR4 9P094230 | 12377 0634 00 1 12430 SXA ETOF6,1 IR1 9P094240 | 12400 0074 00 4 12671 TSX NDSEL+1,4 WEF ON OLD 9P094250 | 12401 0 00007 2 00000 PZE 0,2,WEFOP FILE 9P094260 | 12402 0761 00 0 00000 NOP IGNORE EOT 9P094270 12403 -0054 00 000400 LFT LABEL IF LABELLED 9P094280 | 12404 0074 00 1 14717 ETOF3 TSX LBEOT,1 WRITE TRAILERS 9P094290 | 12405 0074 00 1 12433 TSX SWITCH,1 SWITCH REELS 9P094300 | 12406 -0054 00 000400 LFT LABEL IF LABELLED 9P094310 | 12407 0074 00 1 14537 TSX LABOO,1 CHECK AND PREPARE LABELS 9P094320 12410 0074 00 4 13613 TSX CPINT,4 INITIATE CHECKPOINT (CONDITIONAL) 9P094330 | 12411 -0055 00 000004 SIL NOEOT SET NO EOT CONDITION 9P094340 | 12412 -0520 60 2 00004 NZT* 4,2 IF NO SELECTS TO DO 9P094350 | 12413 0020 00 0 12427 TRA ETOF5 SKIP OUT 9P094360 | 12414 0500 00 2 00004 CLA 4,2 SET EOT CHAIN OF SELECTS 9P094370 12415 0621 00 0 12432 STA ETOF7 INTO UCW OF 9P094380 | 12416 -0500 00 0 12432 CAL ETOF7 NEW REEL 9P094390 | 12417 -0774 00 4 00001 AXC 1,4 9P094400 | 12420 0564 00 0 04714 ENB L(0) 9P094410 | 12421 -0602 60 2 00000 ORS* 0,2 9P094420 12422 0500 00 0 07403 CLA L(0)A SET EOT CHAIN 9P094430 | 12423 0621 00 2 00004 STA 4,2 = 0 9P094440 | 12424 0564 00 0 00735 ENB TRAPS 9P094450 | 12425 0074 00 4 00703 TSX ACTV+1,4 ACTIVATE 9P094460 | 12426 0 00000 2 00000 PZE 0,2 NEW REEL 9P094470 12427 0774 00 4 00000 ETOF5 AXT **,4 RESTORE IR4 9P094480 | 12430 0774 00 1 00000 ETOF6 AXT **,1 IR1 9P094490 | 12431 0020 00 1 00001 TRA 1,1 EXIT 9P094500 | 12432 -0 11335 0 00000 ETOF7 FOR **,,ISSUE SELECT WORD FOR EOT RESTART 9P094510 | 1 LISTING OF 12/01/64 PAGE 224 REEL SWITCHING ROUTINE | | * TSX SWITCH,1 IR2 MUST = -L(FILE) 9P094530 | * RETURN INDICES NOT DISTURBED 9P094540 | * ACTIONS 9P094560 | * 1. REWINDS UNLOADS OLD REEL 9P094570 | * 2. SWITCHES TO ALTERNATE UNIT 9P094580 | * 3. PRINTS MESSAGE TO OPERATOR 9P094590 | * 4. ADVANCES REEL SEQ. NUMBER 9P094600 * 5. STOPS IF NEXT REEL TO BE ON SAME DRIVE 9P094610 | | 12433 0634 00 4 12507 SWITCH SXA SW3,4 SAVE IR4 9P094630 | 12434 0634 00 1 12510 SXA SW4,1 IR1 9P094640 | 12435 0074 00 4 12671 TSX NDSEL+1,4 REWIND UNLOAD 9P094650 12436 0 00004 2 00000 PZE 0,2,RUNOP OLD REEL 9P094660 | 12437 0074 00 4 07414 TSX REDCT,4 PREPARE REDUNDANCY HISTORY 9P094670 | 12440 0074 00 4 07517 TSX UNMNT,4 PRINT UNMOUNT INSTRUCTIONS 9P094680 | 12441 0500 00 2 00000 CLA 0,2 SET IR1 =0 9P094690 | 12442 0737 00 1 00000 PAC 0,1 FOR SINGLE DRIVE FILE 9P094700 12443 0622 00 0 12444 STD *+1 NOT=0 FOR MULTI-DRIVE 9P094710 | 12444 1 00000 1 12445 TXI *+1,1,** 9P094720 | 12445 -0500 00 2 00007 CAL 7,2 UPDATE 9P094730 | 12446 0361 00 0 13115 ACL 1P5 REEL SEQUENCE 9P094740 | 12447 0074 00 4 12516 TSX BCDCV,4 NUMBER IN 9P094750 12450 0361 00 0 14303 ACL HLBLK FILE WORDS 9P094760 | 12451 0602 00 2 00007 SLW 7,2 9P094770 | 12452 0500 00 2 00000 CLA 0,2 9P094780 | 12453 0074 00 4 12512 TSX ROTAT,4 9P094790 | 12454 -3 00000 1 12475 TXL SW2,1,0 IF SINGLE DRIVE, SKIP FURTHER TESTS 9P094800 12455 0131 00 0 00000 XCA SAVE AC 9P094810 | 12456 0500 00 0 06353 CLA FCW PLACE L(FILE) IN 9P094820 | 12457 0774 00 4 00000 AXT 0,4 SECOND UNIT 9P094830 | 12460 0621 60 2 00000 STA* 0,2 9P094840 | 12461 0131 00 0 00000 XCA CHECK LEGALITY 9P094850 12462 -0120 00 0 12470 TMI SW1-1 OF UNIT TO BE MOUNTED 9P094860 | 12463 0074 00 4 00704 TSX (NDATA,4 $9P094870 | 12464 0 00000 2 00000 PZE 0,2,TESTP 9P094880 | 12465 -0500 00 2 00007 CAL 7,2 IF NOT MOUNTED 9P094890 | 12466 0074 00 4 07532 TSX MOUNT,4 TELL OPERATOR 9P094900 12467 0074 00 4 00712 TSX PAUSE,4 TO MOUNT NOW 9P094910 | 12470 0074 00 4 12512 TSX ROTAT,4 9P094920 | 12471 -0500 00 2 00007 SW1 CAL 7,2 TELL OPERATOR 9P094930 | 12472 0361 00 0 13115 ACL 1P5 TO MOUNT REEL N+2 9P094940 | 12473 0074 00 4 12516 TSX BCDCV,4 ON UNIT OF REEL N 9P094950 12474 0361 00 0 14303 ACL HLBLK ( IF MULTI-DRIVE) 9P094960 | 12475 0074 00 4 07532 SW2 TSX MOUNT,4 9P094970 | 12476 0074 00 4 12512 TSX ROTAT,4 9P094980 | 12477 3 00000 1 12501 TXH *+2,1,0 IF SAME DRIVE 9P094990 | 12500 0074 00 4 00712 TSX PAUSE,4 PAUSE FOR OPERATOR 9P095000 12501 -0055 00 010000 SIL NINHIB UN-INHIBIT FILE 9P095010 | 12502 0074 00 4 11200 TSX DENSE,4 9P095020 | 12503 0560 00 2 00002 LDQ 2,2 IF MONITORED END OPTION 9P095030 | 12504 -0773 00 0 00001 RQL 1 IS SPECIFIED 9P095040 | 12505 0162 00 0 12507 TQP SW3 LET SUPERVISORY 9P095050 12506 0074 00 4 06356 TSX SWITCD,4 SYSTEM NOTE CHANGE 9P095060 | 12507 0774 00 4 00000 SW3 AXT **,4 RESTORE IR4 9P095070 | 1 LISTING OF 12/01/64 PAGE 225 | REEL SWITCHING ROUTINE | 12510 0774 00 1 00000 SW4 AXT **,1 9P095080 | 12511 0020 00 1 00001 TRA 1,1 EXIT 9P095090 | | * ROTATE FILE WORD 1 9P095110 | * (CHANGE TO ALT UCW) 9P095120 12512 0560 00 2 00000 ROTAT LDQ 0,2 9P095130 | 12513 -0773 00 0 00022 RQL 18 9P095140 | 12514 -0600 00 2 00000 STQ 0,2 9P095150 | 12515 0020 00 4 00001 TRA 1,4 9P095160 | * BCD CONVERT AFTER ADD IN AC 9P095180 | | * TSX BCDCV,4 9P095200 | | 12516 -0320 00 0 12530 BCDCV ANA 17SS 9P095220 12517 0361 00 0 12531 ACL 66SS 9P095230 | 12520 0320 00 0 12532 ANS 60SS 9P095240 | 12521 -0400 00 0 12532 SBM 60SS 9P095250 | 12522 0767 00 0 00003 ALS 3 9P095260 | 12523 -0400 00 0 12532 SBM 60SS 9P095270 12524 0771 00 0 00003 ARS 3 9P095280 | 12525 0560 00 0 04744 LDQ BLNKS 9P095290 | 12526 -0600 00 0 12532 STQ 60SS 9P095300 | 12527 0020 00 4 00001 TRA 1,4 9P095310 | 12530 +171717373717 17SS OCT 171717373717 9P095320 12531 +006666666666 66SS OCT 006666666666 9P095330 | 12532 -206060606060 60SS OCT 606060606060 9P095340 | 1 LISTING OF 12/01/64 PAGE 226 | MIXED MODE SELECT AND POSTING PRE-SUPERVISOR | * ACTIONS 9P095360 | * 1. ASSUMES MODE BIT OF FILE AS MODE TO TRY FIRST 9P095370 | * 2. IF 10 REDUNDANCIES OCCUR IT WILL 9P095380 | * REVERT TO OTHER MODE FOR TEN MORE TRIES 9P095390 | * 3. IF 10 REDUNDANCIES AGAIN OCCUR THE FIRST 9P095400 * MODE WILL BE USED AND THE RECORD WILL BE READ 9P095410 | * WITHOUT REDUNDANCY CHECKING 9P095420 | * 4. AT TRAP LAST WORD OF RECORD IS CHECKED 9P095430 | * CONTENTS.. XX XX XX X0 XX XX BCD BCD 9P095440 | * XX XX XX X5 XX XX BIN BIN 9P095450 * XX XX XX X1 XX XX BCD BIN 9P095460 | * XX XX XX X1 XX XX BIN BCD 9P095470 | * THESE CORRESPOND TO LAST WORDS OF STANDARD LOOKAHEAD 9P095480 | * XX XX 00 00 00 00 BCD BCD 9P095490 | * 00 01 00 05 00 04 BIN BIN 9P095500 * XX XX 11 11 07 07 BCD BIN 9P095510 | * 00 00 00 01 00 00 BIN BCD 9P095520 | * 5. WRITE MIXED MODE WORKS ............ 9P095530 | 12533 0500 00 4 00000 MXMOD CLA 0,4 MIXED MODE 9P095540 | 12534 -0320 00 0 13113 ANA L(64D) CARD EQUIPMENT 9P095550 12535 -0100 00 0 12652 TNZ CDMXM CHECKS FOR EOF CARD 9P095560 | 12536 0604 00 0 12562 STI MX2 SAVE SI 9P095570 | 12537 -0056 00 100000 LNT 100000 IF NO REDUNDANCY ANALYZE 9P095580 | 12540 0020 00 0 12610 TRA LKAD LOOK AHEAD BITS 9P095590 | 12541 0441 00 4 00001 LDI 1,4 IF CODE 3 THEN 9P095600 12542 -0056 00 300000 LNT 300000 10 TRIES ON FIRST MODE DONE 9P095610 | 12543 0020 00 0 12556 TRA MX1 9P095620 | 12544 -0057 00 200000 RIL 200000 SET NEXT PERM REDUN TO CAUSE 9P095630 | 12545 0600 60 0 00725 MX0 STZ* (URRXI ERROR PRINT 9P095640 | 12546 0604 00 4 00001 STI 1,4 9P095650 12547 0441 00 2 00001 LDI 1,2 REVERSE 9P095660 | 12550 -0051 00 004000 IIL MODE MODE OF 9P095670 | 12551 0604 00 2 00001 STI 1,2 SELECT 9P095680 | 12552 0074 00 1 12636 TSX INVM,1 IF FILE IN REF INVERT MODE IN SI 9P095690 | 12553 0534 00 1 11546 LXA S3+1,1 RESTORE IR 1 9P095700 12554 0534 00 4 11545 LXA S3,4 RETURN TO 9P095710 | 12555 0020 00 4 00003 TRA 3,4 EXECUTOR TO RE-TRY 9P095720 | * SECOND AND THIRD MODE TRIES SEL- 9P095730 | 12556 -0056 00 100000 MX1 LNT 100000 IF THIRD TRY (SAME AS 1ST MODE) 9P095740 | 12557 0020 00 0 12607 TRA LKAD-1 ACCEPT AS PERM. REDUN. 9P095750 12560 -0051 00 300000 IIL 300000 IF SECOND GO TRY AGAIN 9P095760 | 12561 0020 00 0 12545 TRA MX0 AT FIRST MODE 9P095770 | 12562 0 00000 0 00000 MX2 PZE ** SI STORAGE 9P095780 | * SEL+ ENTRY MIXED MODE READ OR WRITE 9P095790 | 12563 0441 00 4 00001 MXMP LDI 1,4 IF FIRST TIME 9P095800 12564 -0054 00 300000 LFT 300000 SELECT SET ALTERNATOR 9P095810 | 12565 0020 00 0 12570 TRA MX3 CODE =3 9P095820 | 12566 -0051 00 300000 IIL 300000 9P095830 | 12567 0604 00 4 00001 STI 1,4 RESTORE UCW 2ND WORD 9P095840 | 12570 -0056 00 100000 MX3 LNT 100000 FOR 2ND MODE JUST CONTINUE 9P095850 12571 0600 60 0 00726 STZ* (RCTXI THIRD TRY DISABLE REDUNDANCY 9P095860 | 12572 0441 00 2 00001 LDI 1,2 RESTORE SI 9P095870 | 12573 0020 00 0 11503 TRA SELP+3 EXIT 9P095880 | 1 LISTING OF 12/01/64 PAGE 227 | MIXED MODE SELECT AND POSTING PRE-SUPERVISOR | * INTERROGATE LOOKAHEAD BITS 9P095900 | 12574 -0054 00 200000 1KA LFT 200000 EOF 9P095910 | 12575 0020 00 0 11571 TRA SELM2+2 NO CHANGE IN MODE 9P095920 | 12576 0604 00 0 12562 STI MX2 SAVE INDICATORS 9P095930 12577 0441 00 2 00001 LDI 1,2 PLACE MODE OF FILE IN IND. 9P095940 | 12600 0500 00 4 00001 CLA 1,4 9P095950 | 12601 0737 00 1 00000 PAC 0,1 9P095960 | 12602 0500 00 1 00011 CLA 9,1 LAST COMMAND 9P095970 | 12603 0771 00 0 00022 ARS 18 9P095980 12604 0400 00 1 00011 ADD 9,1 LAST WORD READ +1 9P095990 | 12605 0737 00 1 00000 PAC 0,1 9P096000 | 12606 0020 00 0 12614 TRA LWRD+1 9P096010 | 12607 BES 1KA+NOCH/NOCH**-NOCH/NOCH*1KA-* 9P096020 | 12607 0441 00 0 12562 LDI MX2 9P096030 12610 -0054 00 200000 LKAD LFT 200000 EOF 9P096040 | 12611 0020 00 0 12625 TRA MX5 NO CHANGE IN MODE 9P096050 | 12612 0441 00 2 00001 LDI 1,2 9P096060 | 12613 0535 00 1 00736 LWRD LAC COMM,1 INTERROGATE $9P096070 | 12614 0500 00 1 77777 CLA -1,1 LAST WORD IN BUFFER 9P096080 12615 -0320 00 0 12634 ANA MXBB2 9P096090 | 12616 -0056 00 004000 LNT MODE TEST MODE $9P096100 | 12617 0100 00 0 12625 TZE MX5 NEXT REC. BIN $9P096110 | 12620 -0320 00 0 10367 ANA DISCON 9P096120 | 12621 -0100 00 0 12625 TNZ MX5 NO - NEXT REC BCD $9P096130 12622 -0051 00 004000 MX7 IIL MODE CHANGE MODE BIT $9P096140 | 12623 0604 00 2 00001 STI 1,2 STORE IN FILE BITS 9P096150 | 12624 0074 00 1 12636 TSX INVM,1 IF FILE IN REF CHANGE SI STORAGE 9P096160 | 12625 0441 00 0 12562 MX5 LDI MX2 RESTORE SI FOR SELM 9P096170 | 12626 0534 00 1 11546 LXA S3+1,1 RESTORE IR1 9P096180 12627 0500 00 0 11334 CLA CHATY 9P096190 | 12630 -0100 00 0 11571 TNZ SELM2+2 9P096200 | 12631 0500 00 0 12635 CLA XCPT3 9P096210 | 12632 -0320 00 4 00001 ANA 1,4 9P096220 | 12633 0020 00 0 11376 TRA SELM1 POST COMPLETION 9P096230 12634 +000000050000 MXBB2 OCT 000000050000 BIN'BIN LOOK AHEAD 9P096240 | 12635 -077777777777 XCPT3 OCT 477777777777 9P096250 | | * INVERT MODE BIT IN IOEX SI STORAGE IF THIS FILE IS CURRENTLY 9P096270 | * BEING REFERENCED BY THE IOBS 9P096280 12636 0634 00 1 12650 INVM SXA INVM1,1 SAVE IR1 9P096290 | 12637 0500 00 4 00000 CLA 0,4 IF FILE IS 9P096300 | 12640 0767 00 0 00022 ALS 18 CURRENTLY BEING 9P096310 | 12641 0622 00 0 12643 STD *+2 REFERENCED BY IOBS 9P096320 | 12642 0535 00 1 06353 LAC FCW,1 THEN MODIFY MODE 9P096330 12643 1 00000 1 12644 TXI *+1,1,** BIT IN SENSE INDICATORS 9P096340 | 12644 3 00000 1 12650 TXH *+4,1,0 AS STORED BY 9P096350 | 12645 0441 00 0 00740 LDI (IOXSI IOEX....... 9P096360 | 12646 -0051 00 004000 IIL MODE 9P096370 | 12647 0604 00 0 00740 STI (IOXSI 9P096380 12650 0774 00 1 00000 INVM1 AXT **,1 RESTORE IR1 9P096390 | 12651 0020 00 1 00001 TRA 1,1 EXIT 9P096400 | * CHECK FOR EOF CARD = 8L(-),7L(-) 9P096410 | 12652 0634 00 4 12664 CDMXM SXA CDMX4,4 SAVE IR4 9P096420 | 12653 -0500 00 4 00001 CAL 1,4 FIND L(9L)-2 9P096430 12654 0737 00 4 00000 PAC 0,4 IF BOTH 9P096440 | 1 LISTING OF 12/01/64 PAGE 228 | MIXED MODE SELECT AND POSTING PRE-SUPERVISOR | | 12655 0500 00 4 00004 CLA 4,4 8L AND 7L 9P096450 12656 0120 00 0 12664 TPL CDMX4 ARE 9P096460 | 12657 0500 00 4 00006 CLA 6,4 (-) TREAT IT AS 9P096470 | 12660 0120 00 0 12664 TPL CDMX4 END OF FILE 9P096480 | 12661 -0534 00 4 00736 LXD COMM,4 SET L(IORT)+1 9P096490 | 12662 0634 00 4 00736 SXA COMM,4 AS LAST WD STORED+1 9P096500 12663 -0055 00 200000 SIL 200000 SET EOF BIT 9P096510 | 12664 0774 00 4 00000 CDMX4 AXT **,4 RESTORE IR4 9P096520 | 12665 0020 00 0 11376 TRA SELM1 RETURN 9P096530 | 1 LISTING OF 12/01/64 PAGE 229 | NON-DATA OPERATION CHECK FOR DISK | * $9P096550 | 12666 0441 00 0 12670 DIND LDI SVDID $9P096560 | 12667 0020 00 0 00705 TRA (NDSLX GO TO IOEX $9P096570 | 12670 0 00000 0 00000 SVDID PZE $9P096580 12671 0634 00 4 12676 SXA D7909,4 SAVE IR4 AND $9P096590 | 12672 0604 00 0 12670 STI SVDID INDICATORS $9P096600 | 12673 0500 60 4 00001 CLA* 1,4 9P096610 | 12674 0737 00 4 00000 PAC 0,4 $9P096620 | 12675 0441 00 4 00000 LDI 0,4 PICK UP 1ST UCW $9P096630 12676 0774 00 4 00000 D7909 AXT **,4 $9P096640 | 12677 -0056 00 020100 LNT 020100 1301 $9P096650 | 12700 0020 00 0 12666 TRA DIND NO $9P096660 | 12701 0560 00 2 00006 7KA LDQ 6,2 CHECK FOR EOF $9P096670 | 12702 0162 00 0 12705 TQP *+3 NO $9P096680 12703 0074 00 4 11651 TSX EOF,4 YES $9P096690 | 12704 0522 00 0 12676 XEC D7909 $9P096700 | 12705 0500 00 4 00001 CLA 1,4 YES $9P096710 | 12706 -0734 00 4 00000 PDX 0,4 CODE FOR NDATA IN IR4 $9P096720 | 12707 -3 00004 4 13014 TXL DBSF2+1,4,4 REW OR RUN 3 OR 4 $9P096730 12710 3 00005 4 12733 TXH DWEF,4,5 BSF-6 WEF-7 $9P096740 | 12711 0520 00 0 13122 ZET TEMP $9P096750 | 12712 0600 00 0 13122 STZ TEMP $9P096760 | 12713 0560 00 2 00006 LDQ 6,2 GET CURRENT POSITION FOR BSR - 5 $9P096770 | 12714 -0500 00 2 00000 CAL 0,2 GET BOF AND $9P096780 12715 0771 00 0 00022 ARS 18 TEST IF POSITION $9P096790 | 12716 -0400 00 2 00006 SBM 6,2 NOW, IS SAME $9P096800 | 12717 -0320 00 0 04720 ANA ADDRS IF SO $9P096810 | 12720 0100 00 0 12725 TZE DNDSEL NO BACKSPACE - NOP $9P096820 | 12721 0754 00 0 00000 PXA 0,0 GET COUNT OF TRACKS IN RECORD $9P096830 12722 0763 00 0 00005 LLS 5 DEDUCT TRACKS $9P096840 | 12723 0402 00 2 00006 SUB 6,2 AND PUT IT BACK $9P096850 | 12724 0621 00 2 00006 STA 6,2 FOR NEXT SEEK $9P096860 | 12725 0522 00 0 12666 DNDSEL XEC DIND PLACE BACK AND $9P096870 | 12726 0522 00 0 12676 XEC D7909 RETURN $9P096880 12727 0020 00 4 00002 TRA 2,4 $9P096890 | 12730 0522 00 0 12676 DNDNOP XEC D7909 $9P096900 | 12731 0522 00 0 12666 XEC DIND $9P096910 | 12732 0020 00 0 13411 TRA BSF5 $9P096920 | 12670 NDSEL EQU SVDID $9P096930 12733 0634 00 4 13011 DWEF SXA DWEF1,4 $9P096940 | 12734 0634 00 1 13012 SXA DWEF1+1,1 $9P096950 | 12735 -3 00006 4 13030 TXL DBSF,4,6 BSF $9P096960 | 12736 -0774 00 4 00001 DBSF1 AXC 1,4 $9P096970 | 12737 0500 60 2 00000 CLA* 0,2 GET 2ND WORD OF UCB $9P096980 12740 -0100 00 0 12737 TNZ *-1 WAIT FOR LAST WRITE $9P096990 | 12741 0564 00 0 04714 ENB L(0) $9P097000 | 12742 0500 00 2 00006 CLA 6,2 $9P097010 | 12743 -0320 00 0 04727 ANA DECRE $9P097020 | 12744 0771 00 0 00006 ARS 6 $9P097030 12745 0601 00 0 12770 STO DSMSB $9P097040 | 12746 0634 00 2 12772 SXA DWEF6,2 $9P097050 | 12747 0500 00 2 00001 CLA 1,2 TEST MODE $9P097060 | 12750 -0320 00 0 06507 ANA MODBT 9P097070 | 12751 0100 00 0 12754 TZE *+3 BCD MODE 9P097080 12752 0500 00 0 12016 CLA L(6) BINARY MODE 9P097090 | 1 LISTING OF 12/01/64 PAGE 230 | NON-DATA OPERATION CHECK FOR DISK | | 12753 0020 00 0 12755 TRA *+2 9P097100 12754 0500 00 0 12017 CLA L(22) 9P097110 | 12755 -0602 00 0 12770 ORS DSMSB 9P097120 | 12756 0500 00 2 00000 CLA 0,2 GET UCB ADDRESS $9P097130 | 12757 0621 00 0 12762 STA DAXC $9P097140 | 12760 0500 00 2 00006 CLA 6,2 $9P097150 12761 0074 00 4 00716 TSX (DECVA,4 $9P097160 | 12762 -0774 00 4 00000 DAXC AXC **,4 'L(UCB) $9P097170 | 12763 0502 00 4 00002 CLS 2,4 REQUEST SEEK $9P097180 | 12764 0601 00 4 00002 STO 2,4 WITH MINUS SIGN $9P097190 | 12765 0500 00 2 00006 CLA 6,2 AND CORRECT $9P097200 12766 0621 00 4 00003 STA 3,4 $9P097210 | 12767 0074 00 2 00743 TSX (FDAMT,2 IOEX ROUTINE TO SET ORDER $9P097220 | 12770 000031000006 DSMSB BCI 1,00I006 $9P097230 | 12771 0 00000 0 13026 PZE DVTA $9P097240 | 12772 0774 00 2 00000 DWEF6 AXT **,2 L(FCB) $9P097250 12773 -0625 00 0 13025 STL DWAIT MAKE WAIT CELL NONZERO $9P097260 | 12774 0774 00 1 13062 AXT DISUE,1 SET ADDRESS OFSELECT ROUTINE IN $9P097270 | 12775 -0754 00 1 00000 PXD 0,1 $9P097280 | 12776 0622 00 4 00001 STD 1,4 SECOND WORD OF UCB $9P097290 | 12777 0074 00 4 00703 TSX (ACTVX,4 ACTIVATE CHAIN OF CHANNEL COMMANDS $9P097300 13000 -0 00000 2 00000 MZE 0,2 $9P097310 | 13001 0520 00 0 13025 ZET DWAIT WAIT FOR SELECT MINUS 9P097320 | 13002 0020 00 0 13001 TRA *-1 TO FINISH $9P097330 | 13003 0522 00 0 13011 XEC DWEF1 $9P097340 | 13004 -3 00006 4 13055 TXL DBSF3,4,6 FINISH BACKSPACE FILE $9P097350 13005 -0500 00 2 00006 CAL 6,2 SET UP SEEK $9P097360 | 13006 0361 00 0 04715 ACL L(1) AND FILE START $9P097370 | 13007 0621 00 2 00006 STA 6,2 ADDRESS FOR $9P097380 | 13010 0074 00 4 11651 TSX EOF,4 BACKSPACE FILE $9P097390 | 13011 0774 00 4 00000 DWEF1 AXT **,4 AT LAST $9P097400 13012 0774 00 1 00000 AXT **,1 $9P097410 | 13013 0020 00 0 12725 DBSF2 TRA DNDSEL WRITE EOF IS DONE $9P097420 | 13014 -0500 00 2 00007 CAL 7,2 GET BOT ADDRESS 9P097430 | 13015 0622 00 2 00000 STD 0,2 PUT IN BOTH WORD 1 AND WORD 7 9P097440 | 13016 0771 00 0 00022 ARS 18 9P097450 13017 0621 00 2 00006 STA 6,2 9P097460 | 13020 -3 00003 4 12725 TXL DNDSEL,4,3 $9P097470 | 13021 0754 00 0 00000 PXA 0,0 $9P097480 | 13022 0621 00 2 00000 STA 0,2 ZERO OUT UCB $9P097490 | 13023 0057 00 000006 RIR REWNUN NO MESSAGE TO BE PRINTED $9P097500 13024 0020 00 0 12725 TRA DNDSEL $9P097510 | 13025 0 00000 0 00000 DWAIT PZE $9P097520 | 13026 1010 1212 1212 DVTA DVTA ,, 9P097530 | 13030 0441 00 2 00006 DBSF LDI 6,2 1ST TIME AROUND $9P097540 | 13031 -0054 00 600000 LFT 600000 $9P097550 13032 0020 00 0 13041 TRA DBSF4 NOT 1ST TIME $9P097560 | 13033 0500 00 2 00000 CLA 0,2 EXCHANGE SEEK POINTER $9P097570 | 13034 0771 00 0 00022 DBSF6 ARS 18 TO BE BEGINNING $9P097580 | 13035 0621 00 2 00006 STA 6,2 OF THE FILE $9P097590 | 13036 -0500 00 0 04700 CAL SIX PUT NOT FIRST $9P097600 13037 0630 00 2 00006 STP 6,2 TIME THRU FLAG ON $9P097610 | 13040 0020 00 0 12730 TRA DNDNOP EXIT $9P097620 | 13041 -0054 00 200000 DBSF4 LFT 200000 $9P097630 | 13042 0020 00 0 13047 TRA DBSF5 NOT FIRST TIME THRU $9P097640 | 1 LISTING OF 12/01/64 PAGE 231 NON-DATA OPERATION CHECK FOR DISK | | 13043 -0046 00 0 00000 PIA ** PUT SEEK ADDRESS $9P097650 | 13044 0767 00 0 00022 ALS 18 AND BEGINNING OF $9P097660 | 13045 0622 00 2 00000 STD 0,2 FILE EQUAL $9P097670 13046 0020 00 0 13036 TRA DBSF6+2 EXIT $9P097680 | 13047 0774 00 4 13106 DBSF5 AXT DCTL1,4 SET START CHANNEL $9P097690 | 13050 0634 00 4 13075 SXA DSELP+2,4 FOR BACKSPACE $9P097700 | 13051 -0046 00 0 00000 PIA $9P097710 | 13052 0402 00 0 04715 SUB L(1) MAKE SEEK ADDRESS $9P097720 13053 0621 00 2 00006 STA 6,2 EOF ADDRESS $9P097730 | 13054 0020 00 0 12736 TRA DBSF1 GET FLAG FOR EOF $9P097740 | 13055 0774 00 4 13102 DBSF3 AXT DCTL,4 RESTORE START $9P097750 | 13056 0634 00 4 13075 SXA DSELP+2,4 CHANNEL FOR EOF $9P097760 | 13057 -0500 00 0 13111 CAL DFLAG GET NEW B.O.F. $9P097770 13060 0622 00 2 00000 STD 0,2 AND PUT IT IN THE $9P097780 | 13061 0020 00 0 13034 TRA DBSF6 1ST WORD OF FCB, EXIT $9P097790 | * $9P097800 | 13062 0361 00 0 04715 DISUE ACL L(1) GET ADDRESS OF $9P097810 | 13063 0621 00 0 13071 STA DSELM1 UCB + 1 $9P097820 13064 0534 00 2 12772 LXA DWEF6,2 -L (FILE) IN IR2 $9P097830 | 13065 0120 00 0 13073 TPL DSELP $9P097840 | 13066 -0054 00 001000 LFT 001000 $9P097850 | 13067 0020 00 0 13072 TRA DSELM1+1 TRY AGAIN $9P097860 | 13070 0600 00 0 13025 STZ DWAIT $9P097870 13071 0600 00 0 00000 DSELM1 STZ ** $9P097880 | 13072 0020 00 4 00001 TRA 1,4 RETURN $9P097890 | 13073 -0500 00 2 00000 DSELP CAL 0,2 PUT FILE $9P097900 | 13074 0622 00 0 13111 STD DFLAG START POINT IN FLAG $9P097910 | 13075 0774 00 2 13102 AXT DCTL,2 COMM. LIST $9P097920 13076 0754 00 2 00000 PXA 0,2 $9P097930 | 13077 0621 60 0 00727 STA* (RCHXI $9P097940 | 13100 0522 60 0 00727 XEC* (RCHXI SEL+ START CHANNEL $9P097950 | 13101 0020 00 0 13072 TRA DSELM1+1 EOF LOCATION $9P097960 | * 7909 CHANNEL PROGRAM $9P097970 * $9P097980 | 13102 -30 0000 4 12770 DCTL SMS* DSMSB SELECT INTERFACE NUMBER 9P097990 | 13103 24 0000 0 13026 CTLW DVTA $9P098000 | 13104 -1 00001 0 13111 CPYD DFLAG,,1 $9P098010 | 13105 1 00000 0 00131 TCH SYSTWT $9P098020 13106 -30 0000 4 12770 DCTL1 SMS* DSMSB CHANNEL ROUTINE $9P098030 | 13107 20 0000 2 13026 CTLR DVTA FOR BACK SPACE $9P098040 | 13110 1 00000 0 13104 TCH DCTL+2 FILE ROUTINE $9P098050 | 13111 2 00000 0 00000 DFLAG PTW EOF FLAG WORD $9P098060 | 13112 BES 7KA+NOCH/NOCH**-NOCH/NOCH*7KA-* $9P098070 1 LISTING OF 12/01/64 PAGE 232 | CONSTANT POOL | | 13112 +377777777777 XCPTP OCT 377777777777 9P098090 | 13113 0 00100 0 00000 L(64D) PZE 0,,64 9P098100 13114 -3 77777 0 00000 PDMSK SVN ,,-1 9P098110 | 13115 000000000100 1P5 BCI 1,000010 $9P098120 | | * TEMPORARY STORAGE 9P098140 | 13116 0 00000 0 13116 HOLDS PZE * CHAIN CELL 9P098150 13117 0 00000 0 00000 CHCIR PZE ** USED TO CHECK SYNC CIRCUT 9P098160 | 13120 0 00000 0 00000 TCHEX PZE ** TCH SWITCH 9P098170 | 13121 0 00000 0 00000 7GRP PZE ** CLOSE RESERVE GROUP ERASEABLE 9P098180 | 13122 0 00000 0 00000 TEMP PZE ** ERASEABLE STORAGE 9P098190 | 13123 BASIO BSS 0 END MINIMUM IOBS 9P098200 1 LISTING OF 12/01/64 PAGE 233 | JOIN TWO BUFFER POOLS | | * TSX JOIN,4 9P098220 | * PZE POOL1,,POOL2 9P098230 | * 1.POOL2 IS APPENDED TO POOL1 9P098250 | * 2.POOL2 MUST HAVE AT LAST REFERENCE BEEN DEFINED 9P098260 | * 3.POOL1 MAY HAVE FILES ATTACHED 9P098270 | * 4.POOL1 OR POOL2 MUST NOT HAVE 9P098280 * PREVIOUSLY JOINED ELSEWHERE 9P098290 | * 5.AFTER TSX JOIN,4 POOL2 NO LONGER EXISTS 9P098300 | | 13123 -0535 00 1 06343 JOIN. LDC XEOB,1 CHECK IF EITHER 9P098320 | 13124 0441 00 1 00001 LDI 1,1 FILE JOINED 9P098330 13125 0442 00 2 00001 OSI 1,2 ELSEWHERE 9P098340 | 13126 0054 00 100000 RFT 100000 IF SO GIVE 9P098350 | 13127 0020 00 0 06663 TRA PERR ''POOL ERROR'' 9P098360 | 13130 -0500 00 1 00001 CAL 1,1 CHECK IF BUFFERS ARE 9P098370 | 13131 0322 00 2 00001 ERA 1,2 THE SAME SIZE 9P098380 13132 0771 00 0 00026 ARS 22 IF NOT GIVE 9P098390 | 13133 -0100 00 0 06663 TNZ PERR POOL ERROR 9P098400 | 13134 0564 00 0 04714 ENB L(0) TRAP PROTECT 9P098410 | 13135 0560 00 2 00000 LDQ 0,2 JOIN THE BUFFER POOLS 9P098420 | 13136 0500 00 1 00000 CLA 0,1 BY- 9P098430 13137 0621 00 2 00000 STA 0,2 CHAIN (1) TO END CHAIN(2) 9P098440 | 13140 0131 00 0 00000 XCA CHAIN(2) TO CHAIN(1) 9P098450 | 13141 0621 60 1 00001 STA* 1,1 9P098460 | 13142 0361 00 1 00000 ACL 0,1 SUM BUFFER COUNTS 9P098470 | 13143 0622 00 2 00000 STD 0,2 AND SET IN POOL1 9P098480 13144 0564 00 0 00735 ENB TRAPS ALLOW TRAPS 9P098490 | 13145 -0500 00 0 13146 CAL *+1 SET JOINED 9P098500 | 13146 0625 00 1 00001 STT 1,1 CODE INTO POOL2 9P098510 | 13147 0020 00 0 06603 TRA EX24 EXIT 9P098520 | 1 LISTING OF 12/01/64 PAGE 234 COPY AND STASH ROUTINES | | * TSX COPY,4 TSX STASH,4 9P098540 | * PZE FILE1,,FILE2 PZE FILE1,,FILE2 9P098550 | * PZE NTS 9P098560 * COMMENTS... 9P098570 | * 1. NO ACTION IF NO INPUT BUFFER 9P098580 | * 2. PRESENT OUTPUT BUFFER,IF ANY, TRUNCATED 9P098590 | 13150 1 77777 4 13151 STASH. TXI *+1,4,-1 SETUP L( NORMAL EXIT) 9P098600 | 13151 0634 00 4 07710 SXA GTIOX,4 9P098610 13152 0500 00 4 77777 CLA -1,4 SAVE 9P098620 | 13153 0621 00 0 06344 STA XEOF NTS EXIT 9P098630 | 13154 0055 00 000100 SIR STSH SET STASH MODE 9P098640 | 13155 -0056 00 040000 COPY. LNT OPEND IF INPUT FILE 9P098650 | 13156 0020 00 0 06565 TRA COMXIT NOT OPEN THEN EXIT 9P098660 13157 0074 00 4 07375 TSX FNLBC,4 FIND L(POOL) 9P098670 | 13160 -0534 00 1 06343 LXD XEOB,1 SET FILE2 INTO 9P098680 | 13161 0634 00 1 10644 SXA CPY7,1 SWITCHING ROUTINE 9P098690 | 13162 0074 00 4 13235 TSX CPY6,4 SWITCH TO OTHER FILES CONTROLS 9P098700 | 13163 -0056 00 040000 LNT OPEND IF OUTPUT FILE 9P098710 13164 0020 00 0 06565 TRA COMXIT NOT OPEN ,THEN EXIT 9P098720 | 13165 -0625 00 0 13176 STL CPY2+1 SET COPY MODE 9P098730 | 13166 0761 00 0 13177 NOP CPY2+2 TRA* 9P098740 | 13167 0055 00 002000 SIR INSAT SET INITIAL CONDITIONS SATISFIED 9P098750 | 13170 0074 00 1 10527 TSX TRUNC,1 TRUNCATE ANY OUTPUT BUFFER 9P098760 13171 0054 00 000100 RFT STSH BRANCH TO 9P098770 | 13172 0020 00 0 13255 TRA STSH1 STASH ROUTINE 9P098780 | 13173 0074 00 4 13235 CPY1 TSX CPY6,4 REVERSE FILE BITS TO FILE1 9P098790 | 13174 0057 00 000001 RIR CPYHLD RESET COPY HOLD 9P098800 | 13175 0055 00 000040 CPY2 SIR CPYFN SET COPY MODE FOR RELES+TRUNC 9P098810 13176 0020 60 0 00000 TRA* ** DUMMY TRANSFER FOR CASES 2 + 4 STASH 9P098820 | 13177 0500 60 2 00002 CLA* 2,2 IF NO BUFFERS ATTACHED 9P098830 | 13200 0621 00 0 13235 STA CPY6 SAVE L( POSSIBLE HOLD CHAIN) 9P098840 | 13201 0120 00 0 13213 TPL CPY3 TO FILE , THEN EXIT 9P098850 | 13202 0055 00 000001 SIR CPYHLD SET HOLD CHAIN COPY 9P098860 13203 -0320 00 0 04730 ANA 1PRE IS NEGATIVE BUFFER 9P098870 | 13204 0100 00 0 06565 TZE COMXIT A HELD BUFFER OR THE POOL 9P098880 | 13205 0500 00 2 00002 CLA 2,2 SETUP BUFFER AS 9P098890 | 13206 0737 00 4 00000 PAC 0,4 IF JUST FILLED BY WRITE 9P098900 | 13207 0500 00 4 00001 CLA 1,4 ROUTINE 9P098910 13210 0621 60 2 00002 STA* 2,2 9P098920 | 13211 0560 00 0 04714 LDQ L(0) 9P098930 | 13212 -0620 60 2 00002 SLQ* 2,2 9P098940 | 13213 0500 00 2 00002 CPY3 CLA 2,2 ATTACH INPUT 9P098950 | 13214 0074 00 4 13235 TSX CPY6,4 BUFFER TO 9P098960 13215 0621 00 2 00002 STA 2,2 OUTPUT FILE 9P098970 | 13216 0074 00 1 10527 TSX TRUNC,1 TRUNCATE TRANSFERRED BUFFER 9P098980 | 13217 0074 00 4 13235 TSX CPY6,4 RELEASE ASSIGNMENT 9P098990 | 13220 0535 00 4 07270 LAC LBC,4 (-L(POOL) TO IR4) 9P099000 | 13221 0560 00 2 00002 LDQ 2,2 FROM INPUT 9P099010 13222 0074 00 1 10457 TSX POOLRD,1 FILE 9P099020 | 13223 0074 00 1 10507 TSX CKGIV,1 DO PRIORITY FOR RELEASE 9P099030 | 13224 0055 00 000040 SIR CPYFN SET COPY FUNCTION BIT BACK ON 9P099040 | 13225 -0057 00 000020 RIL GIVUP RESET GIVUP PRIORITY 9P099050 | 13226 0500 00 0 13235 CLA CPY6 9P099060 13227 0056 00 000001 RNT CPYHLD IF NOT A HELD BUFFER 9P099070 | 13230 0500 00 0 07270 CLA LBC L(POOL) TO AC 9P099080 | 1 LISTING OF 12/01/64 PAGE 235 | COPY AND STASH ROUTINES | 13231 0621 00 2 00002 STA 2,2 9P099090 | 13232 0056 00 000001 RNT CPYHLD IF COPYING A HELD BUFFER 9P099100 | 13233 0020 00 0 06565 TRA COMXIT CONTINUE ELSE EXIT 9P099110 | 13234 0020 00 0 13175 TRA CPY2 - CONTINUE 9P099120 | * ROUTINE TO REVERSE FILE CONTROLS 9P099130 * (SI AND IR2) FROM FILE A TO FILE B 9P099140 | 13235 0131 00 0 00000 CPY6 XCA ** SAVE AC 9P099150 | 13236 0564 00 0 04714 ENB L(0) TRAP PROTECT 9P099160 | 13237 -0046 00 0 00000 PIA RESTORE CONTROL 9P099170 | 13240 0622 00 2 00001 STD 1,2 BITS TO FILE 9P099180 13241 0534 00 1 10644 LXA CPY7,1 SWITCH 9P099190 | 13242 0534 00 2 06353 LXA FCW,2 TO OTHER 9P099200 | 13243 0634 00 1 06353 SXA FCW,1 FILE 9P099210 | 13244 0634 00 2 10644 SXA CPY7,2 9P099220 | 13245 0535 00 2 06353 LAC FCW,2 PLACE 2ND 9P099230 13246 0500 00 2 00001 CLA 1,2 FILES CONTROL 9P099240 | 13247 -0320 00 0 04727 ANA DECRE BITS IN SI 9P099250 | 13250 -0057 00 077777 RIL 077777 9P099260 | 13251 0043 00 0 00000 OAI 9P099270 | 13252 0564 00 0 00735 ENB TRAPS ALLOW TRAPS 9P099280 13253 0131 00 0 00000 XCA RESTORE AC 9P099290 | 13254 0020 00 4 00001 TRA 1,4 EXIT 9P099300 | | * STASH MASTER CONTROL ROUTINE 9P099320 | 13255 0600 00 0 06343 STSH1 STZ XEOB SET STASH SWITCH =0 9P099330 13256 0500 00 2 00003 CLA 3,2 FOR CASES 2 AND 4 (FILE2 INTERNAL 9P099340 | 13257 -0120 00 0 13312 TMI STSH3 OUTPUT) SKIP TO STSH3 9P099350 | 13260 0074 00 4 13235 TSX CPY6,4 IF FILE2 REGULAR OUTPUT 9P099360 | 13261 -0054 00 003000 LFT OUTPUT AND FILE1 IS AN INTERNAL OUTPUT 9P099370 | 13262 0020 00 0 13264 TRA STSH2 (CASE 1) , SKIP TO STSH2 9P099380 13263 0020 00 0 13174 TRA CPY2-1 CASE 3 USES COPY ROUTINE 9P099390 | * TRANSFER OF FIRST BUFFER OF A FILE (CASE 1) 9P099400 | 13264 0074 00 1 10527 STSH2 TSX TRUNC,1 TRUNCATE ANY OUTPUT PREPARED 9P099410 | 13265 0500 60 2 00000 CLA* 0,2 IF NO OUTPUT IN REGEN CHAIN 9P099420 | 13266 0100 00 0 07632 TZE EOF.0+1 YET TAKE NTS EXIT 9P099430 13267 0560 00 2 00000 LDQ 0,2 REMOVE 1ST 9P099440 | 13270 0621 00 2 00000 STA 0,2 BUFFER FROM 9P099450 | 13271 0520 60 2 00000 ZET* 0,2 FILE1'S REGEN 9P099460 | 13272 0622 60 2 00000 STD* 0,2 CHAIN AND PLACE 9P099470 | 13273 -0600 00 0 13122 STQ TEMP INTO REGULAR OUTPUT FILE 9P099480 13274 0535 00 4 13122 LAC TEMP,4 FOR ACTUAL OUTPUT 9P099490 | 13275 0500 00 4 00001 CLA 1,4 SETUP BUFFER SO LOCATOR 9P099500 | 13276 0600 00 4 00000 STZ 0,4 SHOWS BUFFER CONTENT 9P099510 | 13277 0621 00 4 00000 STA 0,4 9P099520 | 13300 0564 00 0 04714 ENB L(0) TRAP PROTECT 9P099530 13301 0074 00 1 07477 TSX BCKBB,1 RELEASE ONE FROM OUTPUT-1 9P099540 | 13302 -0500 00 2 00003 CAL 3,2 REDUCE 9P099550 | 13303 0361 00 0 04727 ACL DECRE SEQUENCE 9P099560 | 13304 0622 00 2 00003 STD 3,2 COUNT BY ONE 9P099570 | 13305 0074 00 4 13236 TSX CPY6+1,4 SWITCH TO FILE 2 BITS 9P099580 13306 0621 00 2 00002 STA 2,2 OUTPUT 9P099590 | 13307 0055 00 000040 SIR CPYFN 9P099600 | 13310 0074 00 1 10527 TSX TRUNC,1 BUFFER 9P099610 | 13311 0020 00 0 06565 TRA COMXIT EXIT 9P099620 | 1 LISTING OF 12/01/64 PAGE 236 COPY AND STASH ROUTINES | | * SETUP CASES 2 + 4 STASH 9P099640 | 13312 -0625 00 0 13176 STSH3 STL CPY2+1 SET TRANSFER TO 9P099650 | 13313 0761 00 0 13315 NOP STSH4 STASH EXIT TEST 9P099660 13314 0020 00 0 13173 TRA CPY1 FOR NTS CONDITIONS 9P099670 | * CASE S 2 AND 4 STASH EXECUTION( TESTS COUNTS BEFORE COPY) 9P099680 | 13315 0600 00 0 06343 STSH4 STZ XEOB SET STASH SWITCH=0 9P099690 | 13316 0500 60 2 00002 CLA* 2,2 IF NO NEXT 9P099700 | 13317 0120 00 0 13322 TPL STSH5 BUFFER TO BE 9P099710 13320 -0320 00 0 04730 ANA 1PRE STASHED,THEN 9P099720 | 13321 0100 00 0 06565 TZE COMXIT EXIT 9P099730 | 13322 0074 00 4 13235 STSH5 TSX CPY6,4 CHANGE TO FILE 2 BITS 9P099740 | 13323 0074 00 4 07453 TSX TOKBB,4 CAN FILE2 ACCEPT A BUFFER 9P099750 | 13324 0020 00 0 13327 TRA STSH6 -NO 9P099760 13325 0074 00 4 13235 TSX CPY6,4 BACK TO FILE 1 BITS 9P099770 | 13326 0020 00 0 13177 TRA CPY2+2 COPY THAT BUFFER 9P099780 | 13327 0074 00 4 13235 STSH6 TSX CPY6,4 BACK TO FILE 1 BITS 9P099790 | 13330 0520 00 0 06343 ZET XEOB IF SWITCH NOT =0 COUNT 9P099800 | 13331 0020 00 0 13342 TRA STSH7 MUST BE RESTORED AND NTS EXIT TAKEN 9P099810 13332 0500 00 2 00001 CLA 1,2 IF PRIME BUFFER 9P099820 | 13333 0402 00 0 04717 SUB L(400) COUNT SHOULD NOT 9P099830 | 13334 0734 00 1 00000 PAX 0,1 BE ADJUSTED 9P099840 | 13335 -3 00000 1 07632 TXL EOF.0+1,1,0 TAKE NTS EXIT 9P099850 | 13336 -0625 00 0 06343 STL XEOB STE SWITCH NOT =0 FOR 2 ND TIME THRU 9P099860 13337 0564 00 0 04714 ENB L(0) TRAP PROTECT 9P099870 | 13340 0074 00 1 07477 TSX BCKBB,1 RELEASE COUNT FROM INPUT 9P099880 | 13341 0020 00 0 13322 TRA STSH5 SEE IF THAT WILL ALLOW OUTPUT 9P099890 | 13342 0074 00 4 07453 STSH7 TSX TOKBB,4 RESTORE BUFFER COUNT TO FILE1 9P099900 | 13343 -0625 00 0 06343 STL XEOB ERROR IF THIS INSTRUCTION EXECUTED 9P099910 13344 0020 00 0 07632 TRA EOF.0+1 TAKE NTS EXIT 9P099920 | 1 LISTING OF 12/01/64 PAGE 237 | BSR (BACKSPACE RECORD) ROUTINE | | * TSX BSR,4 9P099940 * PZE FILE,,BOFEX BOFEX= BEGINNING OF FILE EXIT 9P099950 | | * ACTIONS 9P099970 | * 1. UNBUFFERS FILE 9P099980 | * 2. IF TAPE AT FILE -N- RECORD -0- BOF EXIT OCCURS 9P099990 * 3. ELSE BSR GIVEN AND BLOCK SEQ. REDUCED BY ONE 9P100000 | | 13345 0020 00 0 13360 BSR. TRA BSCKS PERFORM CHECKS AND UNBUFFER 9P100020 | 13346 -0774 00 4 00002 AXC 2,4 IF CURRENT POSITION 9P100030 | 13347 0500 60 2 00000 CLA* 0,2 IS AT FILE -N- 9P100040 13350 -0320 00 0 04720 ANA ADDRS RECORD -0- THEN 9P100050 | 13351 0100 00 0 07656 TZE BOFEX GIVE ''BEGINNING OF FILE '' EXIT 9P100060 | 13352 0074 00 4 12671 TSX NDSEL+1,4 EXECUTE 9P100070 | 13353 0 00005 2 00000 PZE 0,2,BSROP BACKSPACE 9P100080 | 13354 -0500 00 2 00003 CAL 3,2 REDUCE 9P100090 13355 0402 00 0 04721 SUB 1DEC BLOCK SEQUENCE 9P100100 | 13356 0622 00 2 00003 BSR2 STD 3,2 9P100110 | 13357 0020 00 0 06565 TRA COMXIT EXIT 9P100120 | * ENTRY ROUTINE COMMON TO BSR AND BSF 9P100130 | 13360 -0056 00 040000 BSCKS LNT OPEND IF FILE NOT OPEN 9P100140 13361 0020 00 0 06565 TRA COMXIT TAKE NORMAL EXIT 9P100150 | 13362 0074 00 4 07375 TSX FNLBC,4 FIND L(POOL) 9P100160 | 13363 0055 00 002000 SIR INSAT SET INITIAL CONDITIONS SATISFIED 9P100170 | 13364 -0054 00 003000 LFT OUTPUT IF INPUT FILE 9P100180 | 13365 0020 00 0 13371 TRA BSC2 UNBUFFER 9P100190 13366 0074 00 4 11212 TSX UNBFI,4 INPUT 9P100200 | 13367 0535 00 1 06544 BSC1 LAC GO,1 LOAD -L(BSR.) OR -L(BSF.) 9P100210 | 13370 0020 00 1 00001 TRA 1,1 AND RETURN 9P100220 | 13371 0074 00 4 11317 BSC2 TSX UNBFO,4 UNBUFFER OUTPUT 9P100230 | 13372 0020 00 0 13367 TRA BSC1 FILE 9P100240 1 LISTING OF 12/01/64 PAGE 238 | BSF (BACKSPACE FILE) ROUTINE | | * TSX BSF,4 9P100260 | * PZE FILE,,CT 9P100270 | * ACTIONS 9P100290 | * 1. UNBUFFERS FILE 9P100300 | * 2. GIVES CT NUMBER OF BSF'S 9P100310 | * 3. FORWARD SPACE ONE RECORD (OVER EOF MARK) EXCPT AT LOAD 9P100320 * 4. IF CT =0 ,FILE ONLY UNBUFFERS 9P100330 | | 13373 0020 00 0 13360 BSF. TRA BSCKS PERFORM CHECKS AND UNBUFFER 9P100350 | 13374 -0534 00 1 06343 LXD XEOB,1 IF BSF COUNT 9P100360 | 13375 -3 00000 1 06565 TXL COMXIT,1,0 =0 JUST EXIT 9P100370 13376 0074 00 4 12671 TSX NDSEL+1,4 BACKSPACE 9P100380 | 13377 0 00006 2 00000 BSF1 PZE 0,2,BSFOP N FILES 9P100390 | 13400 -0774 00 4 00002 AXC 2,4 IF AT LOAD 9P100400 | 13401 -0520 60 2 00000 NZT* 0,2 POINT DONT 9P100410 | 13402 0020 00 0 13417 TRA BSF2 MOVE FORWARD 9P100420 13403 2 00001 1 13376 TIX BSF1-1,1,1 OR CONTINUE TO BACKSPACE $9P100430 | 13404 -0057 00 003000 RIL OUTPUT SET FOR READ $9P100440 | 13405 0560 00 0 13421 LDQ BSF3 ISSUE DUMMY READ 9P100450 | 13406 0074 00 1 10766 TSX RDSEL,1 ACROSS EOF MARK 9P100460 | 13407 0760 00 0 00142 BSF4 SLN 2 SET WAIT LITE ON 9P100470 13407 BES BSF4+LITES-* 9P100480 | 13407 -0520 60 2 00004 NZT* 4,2 WAIT TILL 9P100490 | 13410 0020 00 0 13407 TRA *-1 READ DONE 9P100500 | 13411 -0760 00 0 00142 BSF5 SLT 2 TURN OFF WAIT LITE 9P100510 | 13412 0761 00 0 00000 NOP 9P100520 13411 BES BSF5+LITES*2-* 9P100530 | 13411 -0055 00 010000 SIL NINHIB SET NOT INHIBITED $9P100540 | 13412 -0500 00 2 00001 CAL 1,2 SET INDICATORS $9P100550 | 13413 -0320 00 0 06510 ANA EOFBT TO THE CORRECT $9P100560 | 13414 0043 00 0 00000 OAI STATUS READ OR WRITE $9P100570 13415 0500 00 0 07403 CLA L(0)A SET SYNC 9P100580 | 13416 0621 00 2 00004 STA 4,2 CHAIN EQUAL ZERO 9P100590 | 13417 0754 00 0 00000 BSF2 PXA 0,0 CLEAR BLOCK SEQUENCE 9P100600 | 13420 0020 00 0 13356 TRA BSR2 COUNT 9P100610 | 13421 0 00000 0 13422 BSF3 PZE *+1 DUMMY BUFFER FOR DUMMY 9P100620 13422 0 00000 0 04714 PZE L(0),,0 READ ACROSS EOF 9P100630 | 13423 3 00000 2 00000 IORTN **,,0 9P100640 | 1 LISTING OF 12/01/64 PAGE 239 | REWIND AND WRITE EOF ROUTINES | * CALLING SEQUENCES 9P100660 | * TSX REW(WEF),4 9P100670 | * PZE FILE,,EOT 9P100680 | * RETURN 9P100690 | * WHERE 9P100700 * FILE SPECIFIES THE DESIRED FILE 9P100710 | * COMMENTS 9P100720 | * 1. WEF ON INPUT IS A NOP 9P100730 | * 2. WEF OR REW ON LABELLED FILE IS NOP 9P100740 | * 3. EOT EXIT IS TAKEN IF EOT OCCURS ON WEF 9P100750 * 4. ANY EOF THAT HAS BEEN DETECTED BUT NOT 9P100760 | * YET LOGICALLY REACHED IS CANCELLED DUE TO THE 9P100770 | * UNBUFFERING PROCESS THAT TAKES PLACE 9P100780 | | 13424 0774 00 1 00003 REW. AXT REWOP,1 REWIND ENTRY 9P100800 13425 0020 00 0 13427 TRA *+2 PRESET REW OP CODE 9P100810 | 13426 0774 00 1 00007 WEF. AXT WEFOP,1 WEF ENTRY 9P100820 | 13427 -0056 00 000400 LNT LABEL IF FILE IS LABELLED OR 9P100830 | 13430 -0056 00 040000 LNT OPEND NOT OPEN THEN 9P100840 | 13431 0020 00 0 06565 TRA COMXIT EXIT 9P100850 13432 -0634 00 1 13451 SXD REW4,1 SET OP CODE 9P100860 | 13433 0055 00 002000 SIR INSAT SET INITIAL CONDITIONS SATISFIED 9P100870 | 13434 -0056 00 003000 LNT OUTPUT IF FILE IS A 9P100880 | 13435 0020 00 0 13437 TRA *+2 CKPT FILE THEN SKIP 9P100890 | 13436 0020 00 0 13450 TRA REW3 DIRECTLY TO ND SEL 9P100900 13437 0074 00 4 07375 TSX FNLBC,4 FIND L(POOL) 9P100910 | 13440 -0054 00 003000 LFT OUTPUT IS FILE INPUT 9P100920 | 13441 0020 00 0 13447 TRA REW2 OR OUTPUT 9P100930 | 13442 -0534 00 1 13451 LXD REW4,1 SELECT TO IR1 9P100940 | 13443 1 77771 1 13444 TXI *+1,1,-WEFOP WEF ON INPUT FILE 9P100950 13444 -3 00000 1 06565 TXL COMXIT,1,0 IS A NOP 9P100960 | 13445 0074 00 4 11212 TSX UNBFI,4 UNBUFFER INPUT FILE 9P100970 | 13446 0020 00 0 13450 TRA REW3 9P100980 | 13447 0074 00 4 11317 REW2 TSX UNBFO,4 UNBUFFER OUTPUT 9P100990 | 13450 0074 00 4 12671 REW3 TSX NDSEL+1,4 REQUEST 9P101000 13451 0 00000 2 00000 REW4 PZE 0,2,** REW OR WEF 9P101010 | 13452 -0055 00 010000 SIL NINHIB CANCEL ANY EOF 9P101020 | 13453 0074 00 4 07414 TSX REDCT,4 PREPARE REDUNDANCY HISTORY 9P101030 | 13454 -0520 60 2 00004 NZT* 4,2 CHECK FOR EOT 9P101040 | 13455 0020 00 0 06565 TRA COMXIT EXIT 9P101050 13456 -0535 00 4 06343 LDC XEOB,4 TAKE 9P101060 | 13457 0634 00 4 07710 SXA GTIOX,4 EOT 9P101070 | 13460 0020 00 0 06565 TRA COMXIT EXIT 9P101080 | 1 LISTING OF 12/01/64 PAGE 240 | INTERNAL FILE OPEN | 13461 -0500 00 4 77777 INTOP CAL -1,4 PLACE OPTION 9P101100 | 13462 0771 00 0 00041 ARS 33 BITS IN SI 9P101110 | 13463 0043 00 0 00000 OAI 9P101120 | 13464 0056 00 000001 RNT INTRD READ OR 9P101130 13465 0020 00 0 13505 TRA IOP3 WRITE 9P101140 | 13466 -0057 00 003000 RIL OUTPUT SET INPUT TYPE 9P101150 | 13467 0500 00 2 00003 CLA 3,2 SET 9P101160 | 13470 0771 00 0 00022 ARS 18 SEQ CT+1 9P101170 | 13471 0361 00 0 04715 ACL L(1) AS THE 9P101180 13472 0621 00 2 00001 STA 1,2 NUMBER OF BUFFERS 9P101190 | 13473 0622 00 2 00003 STD 3,2 AVAILABLE 9P101200 | 13474 0500 00 2 00000 CLA 0,2 SET RE-GENERATIVE 9P101210 | 13475 0621 00 2 00004 STA 4,2 BUFFER CHAIN SYNC 9P101220 | 13476 0500 00 0 07403 CLA L(0)A SET RE-GEN 9P101230 13477 0621 00 2 00000 STA 0,2 = L(0) 9P101240 | 13500 -0046 00 0 00000 PIA SET READ 9P101250 | 13501 0771 00 0 00002 ARS 2 MODE (DESTRUCTIVE 9P101260 | 13502 0767 00 0 00043 ALS 35 OR NOT) 9P101270 | 13503 0630 00 2 00002 STP 2,2 9P101280 13504 0020 00 0 07207 TRA OP1 EXIT 9P101290 | 13505 0056 00 000004 IOP3 RNT RETAIN 9P101300 | 13506 0074 00 4 13513 TSX DESTRY,4 9P101310 | 13507 -0055 00 001000 SIL PTO 9P101320 | 13510 -0500 00 0 07403 CAL L(0)A $9P101330 13511 0621 00 2 00004 STA 4,2 $9P101340 | 13512 0020 00 0 07207 TRA OP1 9P101350 | | * DESTROY CONTENT OF FILE (RELEASE TO POOL) 9P101370 | 13513 0754 00 0 00000 DESTRY PXA 0,0 SET 9P101380 13514 0621 00 2 00001 STA 1,2 BUF IN USE CT 9P101390 | 13515 0622 00 2 00003 STD 3,2 AND SEQ CT =0 9P101400 | 13516 0634 00 4 13530 SXA DEST2,4 SAVE IR4 9P101410 | 13517 0074 00 4 07375 TSX FNLBC,4 FIND L(POOL) 9P101420 | 13520 0535 00 4 07270 LAC LBC,4 L(POOL) 0O IR4 9P101430 13521 0500 60 2 00000 DEST1 CLA* 0,2 RELEASE 9P101440 | 13522 0100 00 0 13530 TZE DEST2 ALL 9P101450 | 13523 0560 00 2 00000 LDQ 0,2 BUFFERS 9P101460 | 13524 0621 00 2 00000 STA 0,2 IN USE 9P101470 | 13525 0074 00 1 12262 TSX BTP1,1 9P101480 13526 0074 00 1 07502 TSX BCKBF+2,1 9P101490 | 13527 0020 00 0 13521 TRA DEST1 9P101500 | 13530 0774 00 4 00000 DEST2 AXT **,4 RESTORE IR4 9P101510 | 13531 0020 00 4 00001 TRA 1,4 EXIT 9P101520 | 1 LISTING OF 12/01/64 PAGE 241 INTERNAL FILE CLOSE | | 13532 -0054 00 003000 INTCL LFT OUTPUT DISCONNECT 9P101540 | 13533 0020 00 0 13536 TRA *+3 ANY BUFFERS 9P101550 | 13534 0074 00 1 10367 TSX DISCON,1 IN USE 9P101560 13535 0020 00 0 13537 TRA *+2 9P101570 | 13536 0074 00 1 10527 TSX TRUNC,1 9P101580 | 13537 -0500 00 2 00003 CAL 3,2 SUM 9P101590 | 13540 0771 00 0 00022 ARS 18 BUFFERS IN 9P101600 | 13541 0361 00 2 00001 ACL 1,2 USE CT AND 9P101610 13542 0767 00 0 00022 ALS 18 SEQ CT FOR 9P101620 | 13543 -0054 00 040000 LFT OPEND FILE OPEN $9P101630 | 13544 -0054 00 003000 LFT OUTPUT TRUE NUMBER OF BUFFERS 9P101640 | 13545 0020 00 0 13547 TRA *+2 ADJUST COUNT 9P101650 | 13546 0402 00 0 04721 SUB 1DEC BY ONE AS AN EXTRA 9P101660 13547 0622 00 2 00003 STD 3,2 WAS ADDED WHEN INPUT 9P101670 | 13550 0621 00 2 00001 STA 1,2 WAS OPENED 9P101680 | 13551 0500 60 2 00000 CLA* 0,2 FORM IN 9P101690 | 13552 0100 00 0 13566 TZE ICL2 0,2 THE 9P101700 | 13553 -0737 00 1 00000 PDC 0,1 COMPLETE 9P101710 13554 0500 00 2 00004 CLA 4,2 CHAIN OF 9P101720 | 13555 0621 00 1 00000 STA 0,1 BUFFERS 9P101730 | 13556 0500 60 2 00004 CLA* 4,2 THAT ARE 9P101740 | 13557 0100 00 0 13561 TZE *+2 CURRENTLY 9P101750 | 13560 0622 60 2 00000 STD* 0,2 IN USE 9P101760 13561 0500 00 0 07403 ICL1 CLA L(0)A BY THE FILE 9P101770 | 13562 0621 00 2 00004 STA 4,2 9P101780 | 13563 0056 00 000004 RNT RETAIN IF BUFFERS ARE NOT TO BE 9P101790 | 13564 0074 00 4 13513 TSX DESTRY,4 RETAINED RELEASE THEM TO POOL 9P101800 | 13565 0020 00 0 07155 TRA SH4.1 EXIT 9P101810 13566 0500 00 2 00004 ICL2 CLA 4,2 IF RE-GEN =L(0) 9P101820 | 13567 0621 00 2 00000 STA 0,2 SET SYNC CHAIN 9P101830 | 13570 0020 00 0 13561 TRA ICL1 IN THERE 9P101840 | 1 LISTING OF 12/01/64 PAGE 242 | ENTER BUFFER INTO INTERNAL FILE | 13571 0634 00 1 13606 ENTIN SXA EIN,1 SAVE IR1 9P101860 | 13572 0131 00 0 00000 XCA SAVE L(BUF) IN MQ 9P101870 | 13573 0500 60 2 00000 CLA* 0,2 INSERT BUFFER 9P101880 | 13574 -0100 00 0 13577 TNZ *+3 INTO RE-GENERATIVE CHAIN 9P101890 13575 0535 00 1 06353 LAC FCW,1 SETTING UP IR1 AS L(FILE) 9P101900 | 13576 0020 00 0 13600 TRA *+2 IF NO CHAIN EXISTS 9P101910 | 13577 -0737 00 1 00000 PDC 0,1 L(END) CHAIN TO IR1 9P101920 | 13600 0131 00 0 00000 XCA L(BUF) TO AC 9P101930 | 13601 0621 00 1 00000 STA 0,1 9P101940 13602 0560 00 0 04724 LDQ L(0)D 9P101950 | 13603 -0763 00 0 00022 LGL 18 9P101960 | 13604 0601 60 1 00000 STO* 0,1 9P101970 | 13605 0622 60 2 00000 STD* 0,2 9P101980 | 13606 0774 00 1 00000 EIN AXT **,1 9P101990 13607 0020 00 1 00001 TRA 1,1 9P102000 | 1 LISTING OF 12/01/64 PAGE 243 | IOCS REQUESTED CHECKPOINT BY USER ON CHECKPOINT FILE | | * OR OPERATOR VIA SENSE SWITCH ON CHECKPOINT FILE 9P102020 | 13610 0604 00 0 13623 CKPT. STI CPT2 SET CKPT ON CKPT 9P102040 | 13611 0441 00 0 04730 LDI 1PRE FILE CODE =(01) 9P102050 | 13612 0020 00 0 13615 TRA CPINT+2 GO INITIATE CHECKPOINT 9P102060 | * INTERNAL INITIATE CHECKPOINT 9P102070 * INITIATES ON CODE SPECIFIED WITH FILE BITS 9P102080 | | * TSX CPINT,4 9P102100 | * RETURN 9P102110 | 13613 0604 00 0 13623 CPINT STI CPT2 SAVE SI 9P102130 | 13614 0441 00 2 00001 LDI 1,2 FILE BITS 9P102140 | 13615 0634 00 4 13621 SXA CPT1,4 TO SI 9P102150 | 13616 -0054 00 300000 LFT CP1+CP2 $9P102160 | 13617 0020 00 0 13624 TRA CPT3 IF CODE=(00) NO CKPTS 9P102170 13620 0441 00 0 13623 LDI CPT2 RESTORE SI 9P102180 | 13621 0774 00 4 00000 CPT1 AXT **,4 RESTORE IR4 9P102190 | 13622 0020 00 4 00001 TRA 1,4 EXIT 9P102200 | 13623 0 00000 0 00000 CPT2 PZE 0,,0 SI TEMP STORAGE 9P102210 | 13624 -0056 00 100000 CPT3 LNT CP2 IS CHECKPOINT $9P102220 13625 0020 00 0 13630 TRA CPT4 REQ'D ON CKPT FILE 9P102230 | 13626 0534 00 4 06340 LXA CPFILE,4 YES 9P102240 | 13627 0020 00 0 13634 TRA CPT5 9P102250 | 13630 -0054 00 003000 CPT4 LFT OUTPUT IS OUTPUT FILE 9P102260 | 13631 -0056 00 000400 LNT LABEL LABELLED,IF NOT 9P102270 13632 0020 00 0 13620 TRA CPT1-1 CKPT NOT ALLOWED 9P102280 | 13633 0534 00 4 06353 LXA FCW,4 IF CKPT FILE OR FILE 9P102290 | 13634 0634 00 4 13641 CPT5 SXA CPT6,4 TO BE WRITTEN ON 9P102300 | 13635 -3 00000 4 13620 TXL CPT1-1,4,0 DOESNT EXIST THEN EXIT 9P102310 | 13636 -0500 00 0 06337 CAL LFLBLK MOVE FILE BLOCK LOCATION 9P102320 13637 0602 00 0 13642 SLW CPT6+1 INTO CKPT 9P102330 | 13640 0074 00 4 06355 TSX CKPT1,4 CALL 9P102340 | 13641 0 06341 0 00000 CPT6 PZE **,,CPSEQ 9P102350 | 13642 0 00000 0 00000 PZE **,,** 9P102360 | 13643 0020 00 0 13620 TRA CPT1-1 IGNORE CKPT ERROR 9P102370 13644 -0500 00 0 06341 CAL CPSEQ ADVANCE 9P102380 | 13645 0361 00 0 04715 ACL L(1) CPSEQ NUMBER 9P102390 | 13646 0074 00 4 12516 TSX BCDCV,4 9P102400 | 13647 0361 00 0 04735 ACL 6PRE ADD HI -BLANK 9P102410 | 13650 0602 00 0 06341 SLW CPSEQ 9P102420 13651 0020 00 0 13620 TRA CPT1-1 EXIT 9P102430 | 13652 0 00000 0 00000 CPSW PZE **,,0 =0 IF CKPT SENSE SWITCH WAS UP 9P102440 | 1 LISTING OF 12/01/64 PAGE 244 | CHECKPOINT ROUTINE PART 1 -DUMP | * CALLING SEQUENCE 9P102460 | * TSX CKPT1,4 9P102470 | * PZE FILE,T,L(ID) 9P102480 | * P L,,N 9P102490 | * ERROR RETURN 9P102500 * NORMAL RETURN 9P102510 | * IF P=PZE, L IS LOCATION OF MESSAGE BLOCK 9P102520 | | * =MZE, LS IS LOCATION OF FCW BLOCK 9P102540 | * UPON RETURN THE ACCUMULATOR CONTAINS THE RESTART CODE-- 9P102550 * PZE FILE CT,DN,TAPE ADDRESS 9P102560 | | * ERROR RETURN IS GIVEN, IF CHECKPOINT DUMP IS ATTEMPTED AT OTHER 9P102580 | * THAN BEGINNING OF FILE OR ON UNAVAILABLE TAPE. 9P102590 | 13653 -0625 00 0 14042 CHCPT STL CHP3 9P102600 13654 0021 00 0 14017 TTR STORE 9P102610 | 13655 -0534 00 2 00112 LXD SYSUCW,2 9P102620 | 13656 -0634 00 2 13660 SXD *+2,2 9P102630 | 13657 0534 00 2 00112 LXA SYSUCW,2 9P102640 | 13660 1 00000 2 13661 TXI *+1,2,** 9P102650 13661 1 00002 2 13662 TXI *+1,2,2 9P102660 | 13662 0634 00 2 13666 SXA CHP41,2 9P102670 | 13663 -0534 00 2 00112 LXD SYSUCW,2 9P102680 | 13664 0502 00 0 00112 CLS SYSUCW 9P102690 | 13665 0601 00 0 14003 STO CHP25 9P102700 13666 0441 00 2 00000 CHP41 LDI **,2 TEST FOR COMPLEMENT RECORD COUNT. 9P102710 | 13667 0054 00 400000 RFT 400000 9P102720 | 13670 0020 00 0 14000 TRA CHP40 9P102730 | 13671 2 00004 2 13666 TIX *-3,2,4 9P102740 | 13672 -0500 00 0 14301 CAL TRPCH 9P102750 13673 0767 00 1 77777 ALS -1,1 9P102760 | 13674 -0320 00 0 00735 ANA (TRAPS 9P102770 | 13675 0602 00 0 14302 SLW ONETRP 9P102780 | 13676 0535 00 1 14050 LAC CHP1,1 -L(UCW) 9P102790 | 13677 0441 00 1 00000 LDI 0,1 UCW WORD1 9P102800 13700 -0054 00 600000 LFT 600000 9P102810 | 13701 1 00001 4 14150 TXI CHPX2,4,1 THE TAPE IS UNAVAILABLE 9P102820 | 13702 0774 00 4 14302 AXT ONETRP,4 9P102830 | 13703 0634 00 4 00734 SXA (TRAPX,4 9P102840 | 13704 0074 00 4 00702 TSX ACTV,4 HOLD UNTIL THIS UNIT IS FREE 9P102850 13705 -0 00000 0 14050 MZE CHP1 9P102860 | 13706 0520 00 1 00001 ZET 1,1 9P102870 | 13707 0020 00 0 13706 TRA *-1 9P102880 | 13710 0441 00 1 00002 LDI 2,1 CURRENT TAPE POSITION 9P102890 | 13711 0534 00 4 14147 LXA CHPX4,4 9P102900 13712 0054 00 777777 RFT 777777 TEST FOR BEGINNING OF FILE 9P102910 | 13713 1 00001 4 14150 TXI CHPX2,4,1 9P102920 | 13714 -0500 00 4 00002 CAL 2,4 9P102930 | 13715 0621 00 0 14007 STA CHP14+2 SET UP IORT FOR MESSAGE BLOCK 9P102940 | 13716 0622 00 0 14007 STD CHP14+2 9P102950 13717 -0501 00 0 04732 ORA PTH 9P102960 | 13720 0630 00 0 14007 STP CHP14+2 9P102970 | 13721 -0500 00 4 00001 CAL 1,4 9P102980 | 13722 -0734 00 4 00000 PDX 0,4 SET UP IOCP FOR IO 9P102990 | 13723 0634 00 4 14005 SXA CHP14,4 9P103000 1 LISTING OF 12/01/64 PAGE 245 | CHECKPOINT ROUTINE PART 1 -DUMP | | 13724 -0500 60 0 14005 CAL* CHP14 ID INTO MESSAGE 9P103010 | 13725 0602 00 0 14012 SLW CMT5+2 9P103020 13726 -0046 00 0 00000 CHPSS PIA ** 9P103030 | 13727 -0734 00 2 00000 PDX 0,2 9P103040 | 13730 0754 00 2 00000 PXA 0,2 9P103050 | 13731 -0765 00 0 00017 LGR 15 9P103060 | 13732 -0500 00 1 00000 CAL 0,1 9P103070 13733 0771 00 0 00017 ARS 15 9P103080 | 13734 -0765 00 0 00025 LGR 21 9P103090 | 13735 0774 00 4 00044 AXT 36,4 9P103100 | 13736 0767 00 0 00003 ALS 3 LEFT HALF OF RESTART CODE 9P103110 | 13737 -0763 00 0 00003 LGL 3 9P103120 13740 2 00006 4 13736 TIX *-2,4,6 9P103130 | 13741 0602 00 0 14014 SLW CMT5+4 9P103140 | 13742 -0754 00 0 00000 PXD 0,0 9P103150 | 13743 0767 00 0 00003 ALS 3 RIGHT HALF OF RESTART CODE 9P103160 | 13744 -0763 00 0 00003 LGL 3 9P103170 13745 2 00001 4 13743 TIX *-2,4,1 9P103180 | 13746 0560 00 0 04744 LDQ BLNKS 9P103190 | 13747 -0765 00 0 00006 LGR 6 9P103200 | 13750 -0600 00 0 14016 STQ CMT5+6 9P103210 | 13751 -0501 00 0 04700 ORA SIX 9P103220 13752 0602 00 0 14015 SLW CMT5+5 9P103230 | 13753 0560 00 1 00000 LDQ 0,1 9P103240 | 13754 0074 00 4 00722 TSX CVPRT,4 PRINT CHECKPOINT LINE 9P103250 | 13755 0 04007 0 14010 PZE CMT5,,7+512*DBLSP 9P103260 | 13756 0774 00 4 00735 AXT (TRAPS,4 9P103270 13757 0634 00 4 00734 SXA (TRAPX,4 9P103280 | 13760 1 00001 2 13761 TXI *+1,2,1 UPDATE CHECKPOINT TAPE POSITION 9P103290 | 13761 -0754 00 2 00000 PXD 0,2 BY BUMPING FILE CT 9P103300 | 13762 0602 00 1 00002 SLW 2,1 9P103310 | 13763 0604 00 0 14231 STI CHPTP 9P103320 13764 0634 00 0 13726 SXA CHPSS,0 9P103330 | 13765 0774 00 4 00006 AXT 6,4 SAVE SENSE SWITCH CONDITION 9P103340 | 13766 -0500 00 0 04721 CAL 1B17 9P103350 | 13767 0760 00 4 00167 PSE 119,4 SWT 7,4 9P103360 | 13770 0020 00 0 13772 TRA *+2 9P103370 13771 -0602 00 0 13726 ORS CHPSS 9P103380 | 13772 0771 00 0 00001 ARS 1 9P103390 | 13773 2 00001 4 13767 TIX *-4,4,1 9P103400 | 13774 0774 00 2 00001 AXT 1,2 1 INTO X2 FOR WRS 9P103410 | 13775 -0625 00 0 00741 STL (CHPSW 9P103420 13776 0564 00 0 00735 ENB (TRAPS 9P103430 | 13777 0020 00 0 14106 TRA CHP4 9P103440 | 14000 0054 00 200000 CHP40 RFT 200000 TEST FOR READING OR WRITING 9P103450 | 14001 0020 00 0 13671 TRA CHP41+3 $9P103460 | 14002 1 00001 4 14150 TXI CHPX2,4,1 EXIT-IMPROPER TAPE POSITION 9P103470 14003 -0 00000 0 00000 CHP25 IOCP **,,** 9P103480 | 14004 -0 00001 0 13726 IOCP CHPSS,,1 9P103490 | 14005 -0 00001 0 00000 CHP14 IOCP **,,1 9P103500 | 14006 -0 00001 0 14007 IOCP *+1,,1 9P103510 | 14007 3 00000 0 00000 IORT **,,** 9P103520 14010 602330252342 CMT5 BCI 7, CHECKPOINT XXXXXX CODE XXXXXX XXXXXX 9P103530 | 1 LISTING OF 12/01/64 PAGE 246 | STORE ROUTINE | | * CALLING SEQUENCE 9P103550 * STL CHC3 9P103560 | * TTR STORE 9P103570 | | * USED BY CHECK POINT ROUTINES 9P103590 | * 1. SAVES INDEX REGISTERS 9P103600 * 2. SETS UP INDIRECTLY ADDRESSABLE CELL FOR DUMP TAPE 9P103610 | * 3. SETS UP CHANNEL INSTRUCTIONS 9P103620 | * 4. PLACES -(CHANNEL NO.) INTO X1 9P103630 | | 14017 0564 00 0 04714 STORE ENB L(0) DISHBLE TRAPS 9P103650 14020 0604 00 0 14104 STI CHPSI SAVE SENSE INDICATOR 9P103660 | 14021 0634 00 4 14147 SXA CHPX4,4 SAVE INDEX REGISTERS 9P103670 | 14022 0634 00 2 14150 SXA CHPX2,2 9P103680 | 14023 0634 00 1 14163 SXA CHPX1,1 9P103690 | 14024 0634 00 0 14074 SXA CHPSL,0 9P103700 14025 0774 00 1 00004 AXT 4,1 SAVE SENSE LIGHT CONDITION 9P103710 | 14026 -0500 00 0 04715 CAL L(1) 9P103720 | 14027 -0760 00 1 00145 SLT 5,1 9P103730 | 14030 0020 00 0 14032 TRA *+2 9P103740 | 14031 -0602 00 0 14074 ORS CHPSL 9P103750 14032 0767 00 0 00001 ALS 1 9P103760 | 14033 2 00001 1 14027 TIX *-4,1,1 9P103770 | 14034 -0500 00 4 00001 CAL 1,4 FILE,T 9P103780 | 14035 0044 00 0 00020 CHP2 PAI 16 9P103790 | 14036 0621 00 0 14040 STA *+2 9P103800 14037 0056 00 100000 RNT 100000 TEST FOR INDIRECT ADDRESSING 9P103810 | 14040 -0500 00 0 00000 CAL ** 9P103820 | 14041 0621 00 0 14050 STA CHP1 9P103830 | 14042 -0774 00 2 00000 CHP3 AXC **,2 9P103840 | 14043 -3 14043 2 14050 TXL CHP1,2,* 9P103850 14044 0634 00 4 14047 SXA *+3,4 9P103860 | 14045 0074 00 4 00704 TSX (NDATA,4 9P103870 | 14046 0 00000 0 14050 PZE CHP1,0,TESTP 9P103880 | 14047 0774 00 4 00000 AXT **,4 9P103890 | 14050 -0500 00 0 00000 CHP1 CAL ** UCW WORD1 9P103900 14051 0622 00 0 14105 STD CHP19 9P103910 | 14052 0771 00 0 00022 ARS 18 PHYSICAL TAPE ADDRESS 9P103920 | 14053 -0501 00 0 14035 ORA CHP2 SET MODE TO BINARY 9P103930 | 14054 0774 00 1 00005 AXT 5,1 9P103940 | 14055 0621 00 1 14175 STA CHP7+3,1 SET UP SELECT INSTRUCTIONS 9P103950 14056 2 00001 1 14055 TIX *-1,1,1 9P103960 | 14057 0771 00 0 00011 ARS 9 9P103970 | 14060 -0320 00 0 14061 ANA *+1 9P103980 | 14061 0737 00 1 00017 PAC 15,1 -(CHANNEL NO.) 9P103990 | 14062 1 00001 1 14063 TXI *+1,1,1 9P104000 14063 0560 60 0 00731 LDQ* (TRCXI 9P104010 | 14064 -0620 00 0 14215 SLQ CHP17 TRCX 9P104020 | 14065 0560 60 0 00730 LDQ* (TCOXI 9P104030 | 14066 -0500 00 0 00717 CAL (CKWAT 9P104040 | 14067 0361 00 0 04715 ACL L(1) 9P104050 14070 0621 00 0 14071 STA *+1 9P104060 | 14071 -0620 00 0 00000 SLQ ** TCOX 9P104070 | 14072 -0500 60 0 00727 CAL* (RCHXI 9P104080 | 14073 -0501 00 0 14234 ORA D48 9P104090 | 1 LISTING OF 12/01/64 PAGE 247 STORE ROUTINE | | 14074 -0130 00 0 00000 CHPSL XCL ** SENSE LIGHT CONDITION 9P104100 | 14075 -0620 00 0 14205 SLQ CHP15 RCHX* 9P104110 | 14076 0560 60 0 00732 LDQ* (ETTXI 9P104120 14077 -0600 00 0 14212 STQ CHP16 9P104130 | 14100 0560 60 0 00733 LDQ* (TEFXI 9P104140 | 14101 -0620 00 0 14214 SLQ CHP13 TEFX 9P104150 | 14102 1 77777 1 14103 TXI *+1,1,-1 9P104160 | 14103 0020 00 2 00001 TRA 1,2 9P104170 14104 0 00000 0 00000 CHPSI 9P104180 | 14105 0 00000 0 00000 CHP19 PZE 0,,** 9P104190 | 1 LISTING OF 12/01/64 PAGE 248 | STORE ROUTINE | * EXIT 9P104210 | * DUMP OR RESTORE CORE 9P104220 | * RESTORE INDEX REGISTERS 9P104230 | | 14106 -0535 00 1 00110 CHP4 LDC SYSUBC,1 -NO. OF CHANNELS TO X1 9P104250 14107 1 00001 1 14110 TXI *+1,1,1 DELAY UNTIL 9P104260 | 14110 0520 60 0 00724 ZET* (CHXAC ALL CHANNELS 9P104270 | 14111 0020 00 0 14106 TRA CHP4 BECOME DORMANT. 9P104280 | 14112 3 00000 1 14107 TXH *-3,1,0 9P104290 | 14113 0564 00 0 04714 ENB L(0) DISABLE TRAPS 9P104300 14114 0600 00 0 00741 STZ (CHPSW $9P104310 | 14115 -3 00000 2 14122 TXL *+5,2,0 $9P104320 | 14116 0774 00 1 00004 CHP75 AXT 4,1 $9P104330 | 14117 0074 00 4 14201 CHP72 TSX RDWR,4 WRITE MESSAGE BLOCK 9P104340 | 14120 0 00000 0 14003 PZE CHP25 9P104350 14121 0020 00 0 14174 TRA CHP6 9P104360 | 14122 0074 00 4 14201 TSX RDWR,4 9P104370 | 14123 0 00000 0 14232 PZE CHP8 9P104380 | 14124 0020 00 0 14174 TRA CHP6 RTC RETURN 9P104390 | 14125 0774 00 2 00002 AXT 2,2 2 INTO X2 FOR WEF 9P104400 14126 0074 00 4 14201 TSX RDWR,4 9P104410 | 14127 0 00000 0 00000 PZE 9P104420 | 14130 0020 00 0 14174 TRA CHP6 9P104430 | 14131 0774 00 4 04714 AXT L(0),4 9P104440 | 14132 0634 00 4 00734 SXA (TRAPX,4 9P104450 14133 -0534 00 1 00110 LXD SYSUBC,1 9P104460 | 14134 -0634 00 1 14135 SXD *+1,1 9P104470 | 14135 1 00000 1 14136 TXI *+1,1,** 9P104480 | 14136 1 00012 1 14137 TXI *+1,1,10 9P104490 | 14137 0634 00 1 14144 SXA *+5,1 9P104500 14140 1 00001 1 14141 TXI *+1,1,1 9P104510 | 14141 0634 00 1 14145 SXA *+4,1 9P104520 | 14142 1 77765 1 14143 TXI *+1,1,-11 9P104530 | 14143 -0500 00 0 14164 CAL CHP10 ACTIVATE ALL CHANNELS 9P104540 | 14144 0621 00 1 00000 STA **,1 9P104550 14145 0020 00 1 00000 TRA **,1 9P104560 | 14146 2 00002 1 14144 CHP11 TIX *-2,1,2 9P104570 | 14147 0774 00 4 00000 CHPX4 AXT **,4 RESTORE INDEX REGISTERS 9P104580 | 14150 0774 00 2 00000 CHPX2 AXT **,2 9P104590 | 14151 0760 00 0 00140 SLF 9P104600 14152 0774 00 1 00004 AXT 4,1 RESTORE SENSE LIGHTS 9P104610 | 14153 -0500 00 0 14074 CAL CHPSL 9P104620 | 14154 0760 00 0 00001 LBT 9P104630 | 14155 0020 00 0 14157 TRA *+2 9P104640 | 14156 0760 00 1 00145 SLN 5,1 9P104650 14157 0771 00 0 00001 ARS 1 9P104660 | 14160 2 00001 1 14154 TIX *-4,1,1 9P104670 | 14161 0774 00 1 00735 AXT (TRAPS,1 9P104680 | 14162 0634 00 1 00734 SXA (TRAPX,1 9P104690 | 14163 0774 00 1 00000 CHPX1 AXT **,1 9P104700 14164 -0046 00 0 14146 CHP10 PIA CHP11 TAPE POSITION OF CHECK POINT 9P104710 | 14165 0441 00 0 14104 LDI CHPSI RESTORE SENSE INDICATOR 9P104720 | 14166 0564 00 0 00735 ENB (TRAPS 9P104730 | 14167 0020 00 4 00004 TRA 4,4 EXIT 9P104740 | 1 LISTING OF 12/01/64 PAGE 249 READ OR WRITE CHECKPOINT | | * UPON ENTRY X2 MUST CONTAIN 9P104760 | * 0 FOR RDS 9P104770 | * 1 FOR WRS 9P104780 * 2 FOR WEF 9P104790 | 14170 -0772 00 0 01200 CHPRW RUNA ** 9P104800 | 14171 0770 00 0 01200 WEFA ** 9P104810 | 14172 0766 00 0 01220 CHP7 WTBA ** 9P104820 | 14173 0762 00 0 01220 RTBA ** 9P104830 14174 0764 00 0 01200 CHP6 BSRA ** 9P104840 | 14175 -3 00000 2 14202 TXL RDWR+1,2,0 TXL IF RDS 9P104850 | 14176 0522 00 0 14172 XEC CHP7 9P104860 | 14177 0522 00 0 14212 XEC CHP16 9P104870 | 14200 0020 00 0 14217 TRA CHP18 EOT ON ERASE 9P104880 14201 0634 00 4 14227 RDWR SXA CHP20+4,4 9P104890 | 14202 0522 00 2 14253 XEC CHPRDO+1,2 9P104900 | 14203 0522 00 2 14173 XEC CHP7+1,2 SELX 9P104910 | 14204 3 00001 2 14206 TXH *+2,2,1 TXH IF WEF 9P104920 | 14205 0540 60 4 00001 CHP15 RCHA* 1,4 9P104930 14206 0074 00 4 00717 TSX (CKWAT,4 9P104940 | 14207 0534 00 4 14227 LXA CHP20+4,4 9P104950 | 14210 0760 00 0 00005 IOT 9P104960 | 14211 0020 00 0 14223 TRA CHP20 I/O CHECK 9P104970 | 14212 -0760 00 0 01000 CHP16 ETTA 9P104980 14213 0020 00 0 14235 TRA CHP70 9P104990 | 14214 0030 00 0 14214 CHP13 TEFA * 9P105000 | 14215 0022 00 4 00002 CHP17 TRCA 2,4 9P105010 | 14216 0020 00 4 00003 TRA 3,4 9P105020 | 14217 0560 00 0 14105 CHP18 LDQ CHP19 9P105030 14220 0074 00 4 00722 TSX CVPRT,4 9P105040 | 14221 0 00002 0 14275 PZE CMT4,,2 9P105050 | 14222 0074 00 4 00713 TSX STOP,4 9P105060 | 14223 0074 00 4 00706 CHP20 TSX PROUT,4 9P105070 | 14224 0 00000 0 00001 PZE 1 9P105080 14225 0 00002 0 14277 PZE CMT8,,2 9P105090 | 14226 0074 00 4 00711 TSX PAWS,4 9P105100 | 14227 0774 00 4 00000 AXT **,4 9P105110 | 14230 0020 00 0 14212 TRA CHP16 9P105120 | 14231 0 00000 0 00000 CHPTP PZE ** 9P105130 14232 -0 00001 0 00000 CHP8 IOCP 0,,1 9P105140 | 14233 0 77777 0 00001 IOCD 1,,-1 9P105150 | 14234 0 00060 0 00000 D48 PZE 0,0,48 9P105160 | 14235 0535 00 4 14050 CHP70 LAC CHP1,4 HERE ON EOT 9P105170 | 14236 0600 00 4 00002 STZ 2,4 9P105180 14237 0522 00 0 14170 XEC CHPRW RUN 9P105190 | 14240 0074 00 4 00706 TSX PROUT,4 9P105200 | 14241 0 00000 0 00001 PZE 1 9P105210 | 14242 0 04011 0 14264 PZE CHP71,,9+512*DBLSP 9P105220 | 14243 0020 00 0 14117 TRA CHP72 9P105230 14244 0074 00 4 00706 CHP73 TSX (PROUT,4 $9P105240 | 14245 0 00000 0 00001 PZE 1 9P105250 | 14246 0 04010 0 14254 PZE CHP74,,8+512*DBLSP 9P105260 | 14247 0074 00 4 00712 TSX (PAUSE,4 9P105270 | 14250 0020 00 0 14116 TRA CHP75 9P105280 14251 0761 00 0 00000 NOP 9P105290 | 14252 -2 00001 1 14244 CHPRDO TNX CHP73,1,1 9P105300 | 1 LISTING OF 12/01/64 PAGE 250 | READ OR WRITE CHECKPOINT | 14253 0761 00 0 00000 NOP 9P105310 | 14254 222124602342 CHP74 BCI 8,BAD CKECKPOINT TAPE, MOUNT NEW REEL TO CONTINUE 9P105320 | 14264 254663402330 CHP71 BCI 9,EOT-CHECKPOINT INVALID. MOUNT NEW REEL TO CONTINUE. 9P105330 | 14275 254663604645 CMT4 BCI 2,EOT ON ERASE 9P105340 | 14277 316146602330 CMT8 BCI 2,I/O CHECK 9P105350 1 LISTING OF 12/01/64 PAGE 251 | BASIC IOCS CONSTANTS | | 14301 0 00001 0 00001 TRPCH PZE 1,,1 9P105370 | 14302 0 00000 0 00000 ONETRP PZE ** 9P105380 14303 600000000060 HLBLK BCI 1, 0000 9P105390 | 14304 FULIO BSS 0 END BASIC IOBS 9P105400 | 1 LISTING OF 12/01/64 PAGE 252 | SETUP L(NON-STANDARD LABEL IMAGE PACKAGE) | * USED BY ATTACH ROUTINE 9P105420 | | * TSX NSLST,1 IR2 MUST= -L(FILE) 9P105440 | * RETURN INDICES NOT DISTURBED 9P105450 | 14304 0500 00 2 00002 NSLST CLA 2,2 IF L(LABEL) SPECIFIED 9P105470 | 14305 -0320 00 0 04727 ANA DECRE IN ATTACH LIST LEAVE AS IS 9P105480 | 14306 -0100 00 1 00001 TNZ 1,1 ELSE SET L(STANDARD LABEL) 9P105490 | 14307 0500 00 0 14326 CLA LBRTN ROUTINES IN FILE 9P105500 | 14310 0622 00 2 00002 STD 2,2 3RD WORD DECREMENT 9P105510 14311 0020 00 1 00001 TRA 1,1 EXIT 9P105520 | | * SETUP INDIRECT REFERENCES TO LABEL IMAGE HANDLING ROUTINES 9P105540 | | * THE ROUTINE SPECIFIED IN THE DECREMENT OF WORD 3 9P105560 * OF THE FILE IS USED AS THE BASE ADDRESS OF THE 9P105570 | * FIVE (5) IMAGE ROUTINES WHICH ARE USED 9P105580 | | * TSX LBSET,1 -L(FILE) IN IR2 9P105600 | * RETURN IR4 DESTROYED 9P105610 14312 0500 00 2 00002 LBSET CLA 2,2 SETUP LIST OF 9P105620 | 14313 0771 00 0 00022 ARS 18 ENTRIES TO 9P105630 | 14314 0774 00 4 00005 AXT 5,4 IMAGE ROUTINES 9P105640 | 14315 0621 00 4 14326 STA LABRT5+1,4 9P105650 | 14316 0361 00 0 04715 ACL L(1) 9P105660 14317 2 00001 4 14315 TIX *-2,4,1 9P105670 | 14320 0020 00 1 00001 TRA 1,1 9P105680 | 14321 0074 00 1 00000 LABRT1 TSX **,1 INPUT LABEL CHECK 9P105690 | 14322 0074 00 1 00000 LABRT2 TSX **,1 INPUT TRAILER CHECK 9P105700 | 14323 0074 00 1 00000 LABRT3 TSX **,1 CHECK LABEL FOR VALID OUTPUT REEL 9P105710 14324 0074 00 1 00000 LABRT4 TSX **,1 PREPARE OUTPUT TRAILER 9P105720 | 14325 0074 00 1 00000 LABRT5 TSX **,1 PREPARE OUTPUT LABEL 9P105730 | | * STANDARD LABEL IMAGE ROUTINES 9P105750 | 14326 -3 14326 0 15256 LBRTN TXL LCKIN,,LBRTN INPUT LABEL CHECK 9P105760 14327 0020 00 0 15351 TRA TCKIN INPUT TRAILER CHECK 9P105770 | 14330 0020 00 0 15373 TRA LCKOF CHECK LABEL FOR VALID OUTPUT REEL 9P105780 | 14331 0020 00 0 15425 TRA TPROF PREPARE OUTPUT TRAILER 9P105790 | 14332 0020 00 0 15443 TRA LPROF PREPARE OUTPUT LABEL 9P105800 | 1 LISTING OF 12/01/64 PAGE 253 LABEL HANDLER AT EOF | | * TSX LAEOF,1 9P105820 | * EXITS AT SYNCR+2 IF EOR TRAILER ENCOUNTERED 9P105830 | * EXITS AT EOF.1 IF EOF TRAILER ENCOUNTERED 9P105840 * (IN LAST CASE,EOF FOLLOWING TRAILER IS SKIPPED) 9P105850 | | 14333 0634 00 4 14360 LAEOF SXA LF1,4 SAVE IR4 9P105870 | 14334 0634 00 1 14361 SXA LF2,1 1 9P105880 | 14335 0074 00 1 14312 TSX LBSET,1 SETUP LABEL IMAGE CALLS 9P105890 14336 0074 00 4 14746 TSX RDLAB,4 READ TRAILER 9P105900 | 14337 0020 00 0 14365 TRA LF3 NO TRAILER EXIT OR EOF EXIT 9P105910 | 14340 0522 00 0 14322 XEC LABRT2 XEC TRAILER CHECK 9P105920 | 14341 0162 00 0 14353 TQP LF0.1 EOR- SWITCH REELS AND CONTINUE $9P105930 | 14342 0774 00 4 00000 AXT 0,4 $9P105940 14343 -0500 60 2 00000 CAL* 0,2 $9P105950 | 14344 -0320 00 0 14705 ANA BC941 $9P105960 | 14345 -0100 00 0 14360 TNZ LF1 $9P105970 | 14346 -0057 00 000004 RIL NOEOT EOF- SKIP OVER EOF MARK AND EXIT 9P105980 | 14347 0074 00 4 14732 TSX SKIP,4 9P105990 14350 -0520 00 0 13122 NZT TEMP IF SEQUENCE ERROR 9P106000 | 14351 0020 00 0 07631 TRA EOF.0 TAKE EOF EXIT 9P106010 | 14352 0020 00 0 07640 TRA SEQEX TAKE SEQUNCE EXIT 9P106020 | 14353 0074 00 1 12433 LF0.1 TSX SWITCH,1 SWITCH REELS $9P106030 | 14354 0604 00 0 13623 STI CPT2 SAVE INDICATORS 9P106040 14355 0074 00 1 14372 TSX LABCI,1 HANDLE LABELS NEW REEL 9P106050 | 14356 0441 00 0 13623 LDI CPT2 RESTORE INDICATORS 9P106060 | 14357 0074 00 4 13613 TSX CPINT,4 ISSUE CONDITIONAL CHECKPOINT 9P106070 | 14360 0774 00 4 00000 LF1 AXT **,4 RESTORE IR4 9P106080 | 14361 0774 00 1 00000 LF2 AXT **,1 1 9P106090 14362 -0520 00 0 13122 NZT TEMP UNLESS SEQ ERROR IN TRAILER 9P106100 | 14363 0020 00 0 10171 TRA SYNCR+2 CONTINUE TO SYNC 9P106110 | 14364 0020 00 0 07640 TRA SEQEX 9P106120 | 14365 0074 00 4 00706 LF3 TSX PROUT,4 WHEN TRAILER NOT RECOGNIZALBE 9P106130 | 14366 0 00000 0 00002 PZE 2 BECAUSE OF LENGTH 9P106140 14367 -0 00003 2 00011 MZE 9,2,3 PRINT '' NO TRAILER'' 9P106150 | 14370 0 04002 0 15235 PZE LMG11,,2+512*DBLSP AND TAKE EOF EXIT 9P106160 | 14371 0020 00 0 07631 TRA EOF.0 9P106170 | 1 LISTING OF 12/01/64 PAGE 254 | LABEL HANDLER INPUT FILE | * TSX LABCI,1 9P106190 | * RETURN 9P106200 | | 14372 0634 00 4 14437 LABCI SXA LH4,4 SAVE IR4 9P106220 14373 0634 00 1 14440 SXA LH5,1 1 9P106230 | 14374 0774 00 4 00000 AXT ,4 $9P106240 | 14375 -0500 60 2 00000 CAL* ,2 $9P106250 | 14376 -0320 00 0 14705 ANA BC941 $9P106260 | 14377 0100 00 0 14401 TZE *+2 $9P106270 14400 -0625 00 0 14706 STL DHDR DISK HEADER FLAG $9P106280 | 14401 0074 00 1 14312 TSX LBSET,1 SETUP LABEL IMAGE CALLS 9P106290 | 14402 0020 00 0 14405 TRA LH2 SKIP UNLOAD(FOR ERROR RETRY) 9P106300 | 14403 0074 00 4 12671 LH1 TSX NDSEL+1,4 UNLOAD IF ERROR 9P106310 | 14404 0 00004 2 00000 PZE 0,2,RUNOP RE-TRY AFTER REEL SWITCH 9P106320 14405 0074 00 4 14724 LH2 TSX LBDNR,4 SET DENSITY FOR READING LABEL 9P106330 | 14406 0074 00 4 14746 TSX RDLAB,4 READ LABEL 9P106340 | 14407 0020 00 0 14445 TRA LH7 EOF OR NO LABEL EXIT 9P106350 | 14410 0522 00 0 14321 LH2.5 XEC LABRT1 VALIDATE CORRECT LABEL 9P106360 | 14411 0020 00 0 14427 TRA LH3 OK 9P106370 14412 -0520 00 0 14706 NZT DHDR $9P106380 | 14413 0020 00 0 14416 TRA *+3 $9P106390 | 14414 -0500 00 0 14444 CAL LH6.5 DISK $9P106400 | 14415 0020 00 0 14421 TRA LH2.6 $9P106410 | 14416 -0054 00 000040 LFT SEARCH IF SEARCHING GO OUT AND TEST 9P106420 14417 0020 00 0 14452 TRA LH8 9P106430 | 14420 -0500 00 0 14443 CAL LH6 PRINT 9P106440 | 14421 0074 00 4 15161 LH2.6 TSX LBERR,4 ''INPUT REEL INVALID'' $9P106450 | 14422 0522 00 0 06361 XEC SWTE IF SENSE SWITCH ASSIGNED IS UP 9P106460 | 14423 0020 00 0 14403 TRA LH1 9P106470 14424 0520 00 0 14706 ZET DHDR $9P106480 | 14425 0020 00 0 14437 TRA LH4 DISK, EXIT $9P106490 | 14426 0020 00 0 14433 TRA LH3.5 SKIP SEARCH FOUND PRINT $9P106500 | 14427 0520 00 0 14706 LH3 ZET DHDR $9P106510 | 14430 0020 00 0 14437 TRA LH4 DISK, EXIT $9P106520 14431 0520 00 0 14525 ZET LH11 IF SEARCHING AND CORRECT $9P106530 | 14432 0020 00 0 14517 TRA LH10 LABEL IS FOUND TELL OPERATOR 9P106540 | 14433 0074 00 4 14732 LH3.5 TSX SKIP,4 SKIP EOF AFTER LABEL $9P106550 | 14434 0074 00 4 11200 TSX DENSE,4 SET FILE DENSITY 9P106560 | 14435 -0054 00 200000 LFT 200000 IF CHECKPOINT FOLLOWS 9P106570 14436 0074 00 4 14732 TSX SKIP,4 SKIP OVER THAT FILE. 9P106580 | 14437 0774 00 4 00000 LH4 AXT **,4 RESTORE IR4 9P106590 | 14440 0774 00 1 00000 LH5 AXT **,1 IR1 9P106600 | 14441 0600 00 0 14706 STZ DHDR RESET DISK HEADER FLAG $9P106610 | 14442 0020 00 1 00001 TRA 1,1 EXIT 9P106620 14443 0 00003 0 15177 LH6 PZE LMSG1,,3 ERROR MESSAGE PARAMETER 9P106630 | 14444 0 00001 0 04744 LH6.5 PZE BLNKS,,1 $9P106640 | 14445 0074 00 4 00706 LH7 TSX PROUT,4 IF NO LABEL ON INPUT 9P106650 | 14446 0 00000 0 00002 PZE 2 PRINT '' NO LABEL'' AND 9P106660 | 14447 -0 00003 2 00011 MZE 9,2,3 AND CONTINUE FURTHER 9P106670 14450 0 04004 0 15212 PZE LMSG4,,4+512*DBLSP LABEL CHECKS WILL CATCH ERRROR 9P106680 | 14451 0020 00 0 14410 TRA LH2.5 9P106690 | * LABEL SEARCHING ROUTINES 9P106700 | 14452 0520 00 0 14525 LH8 ZET LH11 IF INITIAL ENTRY 9P106710 | 14453 0020 00 0 14464 TRA LH9 PRINT LABEL SEARCHING MESSAGE 9P106720 14454 -0625 00 0 14525 STL LH11 AND GIVE OPERATOR CHOICE 9P106730 | 1 LISTING OF 12/01/64 PAGE 255 | LABEL HANDLER INPUT FILE | | 14455 0074 00 4 00706 TSX PROUT,4 PRINT MESSAGE INFORMING OPERATOR OF 9P106740 14456 0 00000 0 00002 PZE 2 THE IMPENDING SEARCH 9P106750 | 14457 -0 00003 2 00011 MZE 9,2,3 9P106760 | 14460 0 00011 0 15237 PZE LMG12,,9 9P106770 | 14461 -0625 00 0 15042 STL SERSW SET SWITCH CELL NON ZERO 9P106780 | 14462 0522 00 0 06361 XEC SWTE IF SENSE SWITCH IS ORIGINALLY 9P106790 14463 0600 00 0 15042 STZ SERSW DOWN 9P106800 | 14464 -0760 00 0 00143 LH8.5 SLT LERIG IF LITE IS ON LEAVE IT ON 9P106810 | 14465 0520 00 0 15042 ZET SERSW IF OFF AND SENSE SWITCH WAS DOWN 9P106820 | 14466 0760 00 0 00143 SLN LERIG TURN IT ON FOR OPERATOR 9P106830 | 14464 BES LH8.5+LITES*3-* 9P106840 14464 0074 00 4 00706 LH9 TSX PROUT,4 PRINT THE LABEL OF BYPASSED 9P106850 | 14465 0 00000 0 00001 PZE 1 FILE FOR OPERATOR 9P106860 | 14466 0 00014 0 04450 PZE LAREA,,12 9P106870 | 14467 0074 00 4 14732 TSX SKIP,4 SKIP OVER EOF FOLLOWING LABEL 9P106880 | 14470 0074 00 4 14526 TSX LH14,4 CHECK OPERATOR INTERVENTION 9P106890 14471 0074 00 4 11200 TSX DENSE,4 SET FILE DENSITY 9P106900 | 14472 0500 00 0 04456 CLA LAREA+6 IF CHECKPOINT FOLLOWS 9P106910 | 14473 0760 00 0 00001 LBT THEN SKIP OVER IT 9P106920 | 14474 0020 00 0 14477 TRA LH9.5 9P106930 | 14475 0074 00 4 14732 TSX SKIP,4 SKIP CKPT RECORD ( A FILE) 9P106940 14476 0074 00 4 14526 TSX LH14,4 CHECK OPERATOR INTERVENTION 9P106950 | 14477 0074 00 4 14732 LH9.5 TSX SKIP,4 SKIP OVER BODY OF DATA FILE 9P106960 | 14500 0074 00 4 14526 TSX LH14,4 CHECK OPERATOR INTERVENTION 9P106970 | 14501 0074 00 4 14746 TSX RDLAB,4 READ TRAILER 9P106980 | 14502 0020 00 0 14512 TRA LH9.9 EOF OR NO TRAILER EXIT 9P106990 14503 0522 00 0 14322 LH9.2 XEC LABRT2 VALIDATE TRAILER 9P107000 | 14504 0162 00 0 14510 TQP LH9.8 MQ + IF EOR 9P107010 | 14505 0074 00 4 14732 TSX SKIP,4 SKIP OVER EOF AFTER TRAILER 9P107020 | 14506 0074 00 4 14526 TSX LH14,4 CHECK OPERATOR INTERVENTION 9P107030 | 14507 0020 00 0 14405 TRA LH2 GO CHECK NEXT FILE 9P107040 14510 0074 00 1 12433 LH9.8 TSX SWITCH,1 SWITCH REELS IF EOR 9P107050 | 14511 0020 00 0 14405 TRA LH2 GO CONTINUE SEARCH 9P107060 | 14512 0074 00 4 00706 LH9.9 TSX PROUT,4 PRINT 9P107070 | 14513 0 00000 0 00002 PZE 2 '' NO TRAILER'' AND 9P107080 | 14514 -0 00003 2 00011 MZE 9,2,3 AND CONTINUE 9P107090 14515 0 04002 0 15235 PZE LMG11,,2+512*DBLSP 9P107100 | 14516 0020 00 0 14503 TRA LH9.2 9P107110 | * LABEL FOUND...... NOTIFY THE OPERATOR 9P107120 | 14517 0074 00 4 00706 LH10 TSX PROUT,4 PRINT 9P107130 | 14520 0 00000 0 00002 PZE 2 '' FILE-NAME'' 9P107140 14521 -0 00003 2 00011 MZE 9,2,3 ''FOUND'' 9P107150 | 14522 0 00001 0 15234 PZE LMG10,,1 9P107160 | 14523 0600 00 0 14525 STZ LH11 SET SEARCH SWITCH =0 9P107170 | 14524 0020 00 0 14427 TRA LH3 GO PROCESS FILE 9P107180 | 14525 0 00000 0 00000 LH11 PZE ** SEARCH SWITCH 9P107190 | * INTERRUPT SEARCH IF OPERATOR PLACES SENSE SWITCH 4 DOWN 9P107210 | 14526 -0520 00 0 15042 LH14 NZT SERSW IF SENSE SWITCH WERE ORIGINALLY 9P107220 | 14527 0020 00 0 14533 TRA LH15 UP THEN TEST FOR INTERRUPT 9P107230 | 14530 0522 00 0 06361 XEC SWTE IF DOWN THEN RECORD WHEN 9P107240 14531 0600 00 0 15042 STZ SERSW IT IS PLACED UP 9P107250 | 14532 0522 00 0 06361 LH14.5 XEC SWTE AS LONG AS IT STAYS DOWN 9P107260 | 14533 -0760 00 0 00143 SLT LERIG LEAVE CORRESPONDING SENSE LITE ON 9P107270 | 14532 BES LH14.5+LITES*2-* 9P107280 | 1 LISTING OF 12/01/64 PAGE 256 LABEL HANDLER INPUT FILE | | 14532 0020 00 4 00001 TRA 1,4 EXIT 9P107290 | 14533 0520 00 0 14525 LH15 ZET LH11 IF SEARCHING AND 9P107300 | 14534 0522 00 0 06361 XEC SWTE IF SENSE SWITCH DOWN AFTER BEING UP 9P107310 14535 0020 00 4 00001 TRA 1,4 THEN INTERRUPT SEARCH 9P107320 | 14536 0020 00 0 14403 TRA LH1 ELSE CONTINUE 9P107330 | 1 LISTING OF 12/01/64 PAGE 257 | LABEL HANDLER OPEN OUTPUT FILE | * TSX LABOO,1 9P107350 | | 14537 0634 00 4 14655 LABOO SXA LOO3,4 SAVE IR4 9P107370 | 14540 0634 00 1 14656 SXA LOO4,1 IR1 9P107380 | 14541 0074 00 1 14312 TSX LBSET,1 SETUP CALLS ON IMAGE ROUTINES 9P107390 14542 0774 00 4 00000 AXT ,4 $9P107400 | 14543 -0500 60 2 00000 CAL* ,2 $9P107410 | 14544 -0320 00 0 14705 ANA BC941 IS THIS DISK $9P107420 | 14545 0100 00 0 14550 TZE *+3 NO $9P107430 | 14546 -0625 00 0 14706 STL DHDR DISK HEADER FLAG $9P107440 14547 0020 00 0 14561 TRA LOO1 $9P107450 | 14550 0074 00 4 14724 LOOZ TSX LBDNR,4 SET DENSITY FOR READING LABELS 9P107460 | 14551 -0774 00 4 00002 AXC 2,4 IF REEL 9P107470 | 14552 0500 60 2 00000 CLA* 0,2 NOT AT LOAD POINT 9P107480 | 14553 0601 00 0 13122 STO TEMP SAVE ORIGINAL TAPE POS 9P107490 14554 0100 00 0 14561 TZE LOO1 GO INTRODUCE ***** 9P107500 | 14555 0020 00 0 14576 TRA LOO2-2 AS TAPE SERIAL NUMBER 9P107510 | 14556 0074 00 4 12671 TSX NDSEL+1,4 REWIND UNLOAD IF 9P107520 | 14557 0 00004 2 00000 PZE 0,2,RUNOP REEL INVALID BEFORE RE-TRY 9P107530 | 14560 0600 00 0 13122 STZ TEMP SET TEMP =0 SHOWING LOAD PT START 9P107540 14561 0074 00 4 14746 LOO1 TSX RDLAB,4 READ LABEL ON OUTPUT REEL 9P107550 | 14562 0020 00 0 14674 TRA LOO10 EOF OR NO LABEL 9P107560 | 14563 0522 00 0 14323 XEC LABRT3 VALIDATE OK FOR USE 9P107570 | 14564 0020 00 0 14600 TRA LOO2 -OK 9P107580 | 14565 0020 00 0 14570 TRA *+3 -RETENTION NOT EXPIRED 9P107590 14566 0500 00 0 14672 CLA LOO8 -INVALID REEL 9P107600 | 14567 0020 00 0 14571 TRA *+2 9P107610 | 14570 0500 00 0 14673 CLA LOO9 9P107620 | 14571 0074 00 4 15161 TSX LBERR,4 PRINT LABEL ERROR 9P107630 | 14572 0522 00 0 06361 XEC SWTE AND CAUSE ... IF SENSE SWITCH 9P107640 14573 0020 00 0 14556 TRA LOO1-3 IS DOWN ACCEPT AS OK 9P107650 | 14574 0520 00 0 14706 ZET DHDR $9P107660 | 14575 0020 00 0 14621 TRA LOO2.3 DISK $9P107670 | 14576 -0500 00 0 15254 CAL ASTER INTRODUCE ***** 9P107680 | 14577 0602 00 0 04451 SLW LAREA+1 AS TAPE SERIAL NUMBER 9P107690 14600 0520 00 0 14706 LOO2 ZET DHDR $9P107700 | 14601 0020 00 0 14621 TRA LOO2.3 DISK $9P107710 | 14602 -0774 00 4 00003 AXC 3,4 IF TAPE WAS INITIALLY $9P107720 | 14603 -0500 00 0 04451 CAL LAREA+1 AT LOAD POINT PLACE TAPE 9P107730 | 14604 -0520 00 0 13122 NZT TEMP SERIAL NUMBER INTO UCW 9P107740 14605 0602 60 2 00000 SLW* 0,2 WORD 4. IF NOT AT LOAD POINT 9P107750 | 14606 -0500 60 2 00000 CAL* 0,2 PICK UP TAPE SERIAL NUMBER 9P107760 | 14607 0602 00 0 04451 SLW LAREA+1 FROM UCW WORD 4 AND PLACE 9P107770 | 14610 -0054 00 040000 LFT OPEND IN LABEL AREA FOR FILE S/N. 9P107780 | 14611 0020 00 0 14615 TRA *+4 AND FILE SERIAL IS 9P107790 14612 -0500 00 0 04451 CAL LAREA+1 ZERO THEN ASSIGN TAPE 9P107800 | 14613 -0520 00 2 00006 NZT 6,2 SERIAL AS FILE SERIAL NUMBER 9P107810 | 14614 0602 00 2 00006 SLW 6,2 9P107820 | 14615 0520 00 0 13122 ZET TEMP UNLESS TAPE WERE AT LD PT 9P107830 | 14616 0020 00 0 14621 TRA *+3 INITIALLY, SKIP 9P107840 14617 0074 00 4 12671 TSX NDSEL+1,4 BSR OF LABEL READ 9P107850 | 14620 0 00005 2 00000 PZE 0,2,BSROP 9P107860 | 14621 0522 00 0 14325 LOO2.3 XEC LABRT5 PREPARE LABEL RECORD $9P107870 | 14622 0074 00 4 14727 TSX LBDNW,4 SET LABEL DENSITY FOR WRITING 9P107880 | 14623 0074 00 4 14756 TSX WRLAB,4 WRITE LABEL $9P107890 1 LISTING OF 12/01/64 PAGE 258 | LABEL HANDLER OPEN OUTPUT FILE | | 14624 0020 00 0 14661 TRA LOO6 EOT-CAUSE REEL SWITCH 9P107900 | 14625 -0054 00 040000 LFT OPEND IF FILE BEING 9P107910 14626 0020 00 0 14654 TRA LOO3-1 OPENED PRINT 9P107920 | 14627 0074 00 4 07562 TSX DRANO,4 LABEL ON LINE 9P107930 | 14630 -0520 00 0 14706 NZT DHDR $9P107940 | 14631 0020 00 0 14634 TRA LOO2.8 $9P107950 | 14632 0774 00 4 14702 AXT DLABEL,4 DISK $9P107960 14633 0634 00 4 14646 SXA LOO2.6,4 $9P107970 | 14634 0500 00 2 00001 LOO2.8 CLA 1,2 INSERT $9P107980 | 14635 -0765 00 0 00021 LGR 17 LABEL DENSITY $9P107990 | 14636 0500 00 0 15233 CLA LMSG9+4 INTO MESSAGE 9P108000 | 14637 0162 00 0 14641 TQP *+2 9P108010 14640 0500 00 0 15232 CLA LMSG9+3 9P108020 | 14641 0601 00 0 15230 STO LMSG9+1 9P108030 | 14642 0074 00 4 00706 LOO2.5 TSX PROUT,4 $9P108040 | 14643 0 00000 0 00004 PZE 4 9P108050 | 14644 -0 00002 0 12302 MZE MESS1,,2 '' UNIT ***** **FILE-NAME**'' 9P108060 14645 -0 00003 2 00011 MZE 9,2,3 ''LABEL HIGH DENSITY'' OR 9P108070 | 14646 0 00003 0 15227 LOO2.6 PZE LMSG9,,3 ''LABEL LOW DENSITY'' $9P108080 | 14647 0 04014 0 04450 PZE LAREA,,12+512*DBLSP 9P108090 | 14650 -0520 00 0 14706 NZT DHDR $9P108100 | 14651 0020 00 0 14654 TRA LOO3-1 $9P108110 14652 0774 00 4 15227 AXT LMSG9,4 DISK $9P108120 | 14653 0634 00 4 14646 SXA LOO2.6,4 $9P108130 | 14654 0074 00 4 11200 TSX DENSE,4 9P108140 | 14655 0774 00 4 00000 LOO3 AXT **,4 RESTORE IR4 9P108150 | 14656 0774 00 1 00000 LOO4 AXT **,1 9P108160 14657 0600 00 0 14706 STZ DHDR RESET DISK HEADER FLAG $9P108170 | 14660 0020 00 1 00001 TRA 1,1 EXIT 9P108180 | * EOT OCCURRED WHILE WRITING LABEL 9P108190 | 14661 0074 00 4 12671 LOO6 TSX NDSEL+1,4 WRITE EOF SIGNIFYING 9P108200 | 14662 0 00007 2 00000 PZE 0,2,WEFOP END DATA 9P108210 14663 0761 00 0 00000 NOP IGNORE EOT 9P108220 | 14664 -0500 00 0 15525 CAL 1EOR PREPARE AND 9P108230 | 14665 0522 00 0 14324 XEC LABRT4 WRITE EOR 9P108240 | 14666 0074 00 4 14756 TSX WRLAB,4 TRAILER 9P108250 | 14667 0761 00 0 00000 NOP (IGNORING EOT) 9P108260 14670 0074 00 1 12433 TSX SWITCH,1 SWITCH REELS 9P108270 | 14671 0020 00 0 14550 TRA LOOZ CONTINUE ON NEXT REEL 9P108280 | 14672 0 00004 0 15202 LOO8 PZE LMSG2,,4 ''OUTPUT REEL INVALID'' 9P108290 | 14673 0 00004 0 15206 LOO9 PZE LMSG3,,4 ''RETENTION NOT EXPIRED'' 9P108300 | * SHORT LABEL RECORD ON REEL TO BE USED 9P108310 14674 -0500 00 0 14701 LOO10 CAL LOO11 PRINT '' NO LABEL ERROR 9P108320 | 14675 0074 00 4 15161 TSX LBERR,4 AND STOP 9P108330 | 14676 0522 00 0 06361 XEC SWTE IF SENSE SWITCH IS DOWN 9P108340 | 14677 0020 00 0 14556 TRA LOO1-3 ACCEPT REEL AS OK 9P108350 | 14700 0020 00 0 14576 TRA LOO2-2 ELSE RUN AND RETRY 9P108360 14701 0 04004 0 15212 LOO11 PZE LMSG4,,4+512*DBLSP 9P108370 | 14702 243162426026 DLABEL BCI 3,DISK FILE LABEL $9P108380 | 14705 +020000000000 BC941 OCT 020000000000 $9P108390 | 14706 0 00000 0 00000 DHDR PZE $9P108400 | 1 LISTING OF 12/01/64 PAGE 259 LABEL CLOSE OUTPUT FILE | | * TSX LABCO,1 9P108420 | * RETURN 9P108430 | 14707 0634 00 4 14655 LABCO SXA LOO3,4 SAVE IR4 9P108450 | 14710 0634 00 1 14656 SXA LOO4,1 IR1 9P108460 | 14711 0074 00 1 14312 TSX LBSET,1 SETUP IMAGE CALLS 9P108470 | 14712 -0500 00 0 15526 CAL 1EOF PREPARE AND 9P108480 | 14713 0522 00 0 14324 LCO1 XEC LABRT4 WRITE EOF 9P108490 14714 0074 00 4 14756 TSX WRLAB,4 TRAILER 9P108500 | 14715 0020 00 0 14655 TRA LOO3 IGNORE EOT (IOEX DOES RECORD IT) 9P108510 | 14716 0020 00 0 14655 TRA LOO3 EXIT 9P108520 | | * LABEL OUTPUT AT EOT 9P108540 | * TSX LBEOT,1 9P108560 | * RETURN 9P108570 | | 14717 0634 00 4 14655 LBEOT SXA LOO3,4 SAVE IR4 9P108590 14720 0634 00 1 14656 SXA LOO4,1 IR1 9P108600 | 14721 0074 00 1 14312 TSX LBSET,1 SETUP IMAGE CALLS 9P108610 | 14722 -0500 00 0 15525 CAL 1EOR FORM AND WRITE 9P108620 | 14723 0020 00 0 14713 TRA LCO1 EOR TRAILER 9P108630 | * DENSITY SETTING ROUTINES 9P108650 | * FOR LABEL READING AND WRITING 9P108660 | | * TSX LBDNR,4 SET READ DENSITY 9P108680 | * TSX LBDNW,4 SET WRITE DENSITY 9P108690 | 14724 0500 00 2 00001 LBDNR CLA 1,2 SET DENSITY 9P108710 | 14725 0771 00 0 00002 ARS 2 LABEL READING 9P108720 | 14726 0020 00 0 11201 TRA DENSE+1 9P108730 | 14727 0500 00 2 00001 LBDNW CLA 1,2 SET DENSITY 9P108740 14730 0771 00 0 00001 ARS 1 LABEL WRITING 9P108750 | 14731 0020 00 0 11201 TRA DENSE+1 9P108760 | 1 LISTING OF 12/01/64 PAGE 260 | FORWARD SPACE FILE | * TSX SKIP,4 9P108780 | | 14732 0634 00 4 14743 SKIP SXA SK1,4 SAVE IR4 9P108800 | 14733 -0500 00 0 14745 CAL SK2 PLACE SKIP SELECT 9P108810 | 14734 -0774 00 4 00001 AXC 1,4 IN UNIT CONTROL 9P108820 14735 -0602 60 2 00000 ORS* 0,2 WORD 9P108830 | 14736 0500 00 0 14737 SKXWT CLA *+1 SET 9P108840 | 14737 0621 00 0 15057 STA WAIT WAIT FOR TRAP 9P108850 | 14740 0074 00 4 00703 TSX ACTV+1,4 ACTIVATE WITH 9P108860 | 14741 -0 00000 2 00000 MZE 0,2 PRIORITY 9P108870 14742 0522 00 0 15057 XEC WAIT WAIT 9P108880 | * RETURNS HERE WHEN EOF REACHED 9P108890 | 14743 0774 00 4 00000 SK1 AXT **,4 RESTORE IR4 9P108900 | 14744 0020 00 4 00001 TRA 1,4 EXIT 9P108910 | 14745 0 15015 0 15031 SK2 PZE SSL1,,SKSEL SELECT CALL WORD 9P108920 | * READ OR WRITE LABEL 9P108940 | | * TSX RDLAB,4 9P108960 | * EOF OR SHORT RECORD RETURN 9P108970 * NORMAL RETURN 9P108980 | * TSX WRLAB,4 9P108990 | * EOT OR SHORT RECORD WRITTEN (CAN'T HAPPEN) 9P109000 | * NORMAL RETURN 9P109010 | 14746 0500 00 2 00000 RDLAB CLA ,2 $9P109030 | 14747 0621 00 0 14750 STA *+1 $9P109040 | 14750 -0500 00 0 00000 CAL ** IS THIS DISK $9P109050 | 14751 -0320 00 0 14705 ANA BC941 $9P109060 | 14752 -0100 00 0 15060 TNZ RDLBD YES $9P109070 14753 0500 00 0 14771 CLA RWL1 $9P109080 | 14754 0600 00 0 14772 STZ RWL3 $9P109090 | 14755 0020 00 0 14765 TRA RWL4 $9P109100 | 14756 0500 00 2 00000 WRLAB CLA ,2 $9P109110 | 14757 0621 00 0 14760 STA *+1 $9P109120 14760 -0500 00 0 00000 CAL ** IS THIS DISK $9P109130 | 14761 -0320 00 0 14705 ANA BC941 $9P109140 | 14762 -0100 00 0 15062 TNZ WRLBD YES $9P109150 | 14763 0502 00 0 14771 CLS RWL1 $9P109160 | 14764 -0625 00 0 14772 STL RWL3 9P109170 14765 0634 00 4 15000 RWL4 SXA WRL2,4 SAVE IR4 $9P109180 | 14766 -0774 00 4 00001 AXC 1,4 SAVE FILE 9P109190 | 14767 0601 60 2 00000 STO* 0,2 STORE SELECT WORD $9P109200 | 14770 0020 00 0 14736 TRA SKXWT 9P109210 | 14771 0 15020 0 15030 RWL1 PZE LSL1,,LBSEL SELECT WORD $9P109220 14772 0 00000 0 00000 RWL3 PZE ** RD OR WR LABEL SWITCH 9P109230 | 1 LISTING OF 12/01/64 PAGE 261 | RETURN HERE WHEN LABEL I/O COMPLETED | | 14773 -0520 00 0 14772 WRL1 NZT RWL3 IF WRITE LABLE $9P109250 14774 0020 00 0 15000 TRA WRL2 THEN WRITE EOF 9P109260 | 14775 0074 00 4 12671 TSX NDSEL+1,4 ALSO 9P109270 | 14776 0 00007 2 00000 PZE 0,2,WEFOP 9P109280 | 14777 0761 00 0 00000 NOP IGNORE EOT 9P109290 | 15000 0774 00 4 00000 WRL2 AXT **,4 RESTORE IR4 9P109300 15001 0500 00 0 15034 CLA LBSHS IF LABEL I/O HISTORY 9P109310 | 15002 0100 00 4 00002 TZE 2,4 CELL IS ZERO THEN OK EXIT 9P109320 | * READ GOT EOF OR NOT A 14 WORD RECORD , WRITE GOT EOT 9P109330 | 15003 0774 00 4 00014 AXT 12,4 BLANK OUT LABEL AREA 9P109340 | 15004 0560 00 0 04744 LDQ BLNKS LABEL RECORD 9P109350 15005 -0600 00 4 04466 STQ LAREA+14,4 BLANK OUT LABEL 9P109360 | 15006 2 00001 4 15005 TIX *-1,4,1 AREA 9P109370 | 15007 0560 00 0 15255 LDQ BLNK SET UP 9P109380 | 15010 -0600 00 0 04450 STQ LAREA STANDARD BLANK LABEL 9P109390 | 15011 0560 00 0 15254 LDQ ASTER 9P109400 15012 -0600 00 0 04451 STQ LAREA+1 9P109410 | 15013 0534 00 4 15000 LXA WRL2,4 RESTORE IR4 9P109420 | 15014 0020 00 4 00001 TRA 1,4 TAKE LABEL ERROR EXIT 9P109430 | | * SPECIAL SELECTS FOR 9P109450 * FORWARD SPACE FILE 9P109460 | * READ AND WRITE LABELS 9P109470 | | 15015 -0120 00 0 15035 SKSEL TMI SKSM SEL+ OR SEL- 9P109490 | 15016 0600 60 0 00726 STZ* (RCTXI SET NO REDUNDANCY CHECKING 9P109500 15017 0020 00 0 15021 TRA *+2 FOR FORWARD SPACE FILE 9P109510 | 15020 -0120 00 0 15043 LBSEL TMI LBSM LABEL SEL+ OR SEL- 9P109520 | 15021 0634 00 4 11545 SXA S3,4 SAVE IR4 9P109530 | 15022 0634 00 1 11546 SXA S3+1,1 IR1 9P109540 | 15023 0737 00 4 00000 PAC 0,4 -L(UCW) TO IR4 9P109550 15024 0500 00 4 00001 CLA 1,4 SET L(RCHX) 9P109560 | 15025 0621 60 0 00727 STA* (RCHXI 9P109570 | 15026 -0500 00 4 00000 CAL 0,4 UNIT TO AC DECREMENT 9P109580 | 15027 0020 00 0 11534 TRA RWRS ISSUE SELECT 9P109590 | 15030 3 00016 0 04450 LSL1 IORT LAREA,,14 I/O LABEL 9P109600 15031 -0 77777 2 00000 SSL1 IOCPN **,,32767 IO FORWARD 9P109610 | 15032 1 00000 0 15031 TCH *-1 SPACE FILE 9P109620 | 15033 3 15031 0 04466 SCHLS IORT LAREA+14,,LSL1+1 SCHX COMPARE FOR LABEL LENGTH CHECK 9P109630 | 15034 0 00000 0 00000 LBSHS PZE ** SPECIAL SELECT HISTORY CELL 9P109640 | 1 LISTING OF 12/01/64 PAGE 262 POSTING ROUTINES FOR SPECIAL LABEL SELECTS | | * SKIP SEL- 9P109660 | 15035 0737 00 2 14743 SKSM PAC SK1,2 -L(UCW) TO IR2 9P109670 | 15036 0500 00 0 15035 CLA SKSM SET NO WAIT 9P109680 15037 0621 00 0 15057 SKS1 STA WAIT IN WAIT SWITCH 9P109690 | 15040 0600 00 2 00001 STZ 1,2 CLEAR UCW PRIORITY 9P109700 | 15041 0020 00 4 00001 TRA 1,4 EXIT 9P109710 | 15042 0 00000 0 00000 SERSW PZE ** SENSE SWITCH TEST CELL SEARCHING 9P109720 | * LABEL SEL- 9P109740 | 15043 -0056 00 400000 LBSM LNT 400000 IF SHORT RECORD ( 2 WORD REDUN) 9P109750 | 15044 0020 00 4 00002 TRA 2,4 IGNORE IT ( IT IS NOISE) 9P109760 | 15045 0737 00 2 14773 LBS1 PAC WRL1,2 -L(UCW) TO IR2 9P109770 | 15046 0445 00 0 15250 RIS XCPT2 STORE EOF OR EOT BIT 9P109780 15047 0604 00 0 15034 STI LBSHS IN HISTORY CELL 9P109790 | 15050 -0500 00 0 00736 CAL COMM COMPARE SCHX VALUE 9P109800 | 15051 -0340 00 0 15033 LAS SCHLS WITH PREDICTED TO CHECK 9P109810 | 15052 -0625 00 0 15034 STL LBSHS 9P109820 | 15053 0020 00 0 15055 TRA *+2 9P109830 15054 -0625 00 0 15034 STL LBSHS 9P109840 | 15055 0500 00 0 15045 CLA LBS1 SETUP WAIT 9P109850 | 15056 0020 00 0 15037 TRA SKS1 RETURN ADDRESS 9P109860 | | * TRAP WAITING FOR SKIP AND LABEL SELECTS 9P109880 15057 0020 00 0 00000 WAIT TRA ** WAIT 9P109890 | | * DISK LABEL ROUTINES $9P109910 | | 15060 0560 00 0 15126 RDLBD LDQ RWL1D DISK READ SELECT WORD $9P109930 15061 0020 00 0 15063 TRA *+2 $9P109940 | 15062 0560 00 0 15127 WRLBD LDQ RWL2D DISK WRITE SELECT WORD $9P109950 | 15063 0634 00 4 15124 SXA WRL2D,4 SAVE IR4 $9P109960 | 15064 -0500 00 2 00000 CAL ,2 9P109970 | 15065 0737 00 4 00000 PAC ,4 UCB $9P109980 15066 0520 00 4 00001 ZET 1,4 WAIT FOR FREE ARM $9P109990 | 15067 0020 00 0 15066 TRA *-1 $9P110000 | 15070 -0600 00 4 00001 STQ 1,4 STORE SELECT WORD $9P110010 | 15071 0771 00 0 00022 ARS 18 $9P110020 | 15072 -0520 00 0 14706 NZT DHDR HEADER OR TRAILER $9P110030 15073 0020 00 0 15114 TRA TRAIL TRAILER $9P110040 | 15074 0621 00 4 00003 STA 3,4 SEEK ADDRESS TO UCB $9P110050 | 15075 0500 00 4 00001 CLA 1,4 $9P110060 | 15076 -0120 00 0 15101 TMI *+3 $9P110070 | 15077 -0054 00 003000 LFT 003000 UNLESS $9P110080 15100 0020 00 0 15104 TRA *+4 READING OUTPUT FILE $9P110090 | 15101 0500 00 4 00003 CLA 3,4 $9P110100 | 15102 0400 00 0 04715 ADD L(1) UP TRACK COUNT $9P110110 | 15103 0621 00 2 00006 STA 6,2 $9P110120 | 15104 -0754 00 0 00000 PXD ,0 $9P110130 15105 0630 00 2 00006 STP 6,2 $9P110140 | 15106 0500 00 2 00006 CLA 6,2 $9P110150 | 15107 0771 00 0 00006 ARS 6 $9P110160 | 15110 -0320 00 0 15251 ANA MSK1 HA2 TO FDAMT $9P110170 | 15111 -0501 00 0 12016 ORA L(6) 9P110180 15112 0601 00 0 15135 STO SMSX $9P110190 | 15113 0020 00 0 15116 TRA BCK1 $9P110200 | 1 LISTING OF 12/01/64 PAGE 263 | POSTING ROUTINES FOR SPECIAL LABEL SELECTS | 15114 0402 00 0 04715 TRAIL SUB L(1) SEEK ADDRESS $9P110210 | 15115 0621 00 4 00003 STA 3,4 TO UCB $9P110220 | 15116 0502 00 4 00002 BCK1 CLS 2,4 $9P110230 | 15117 0601 00 4 00002 STO 2,4 SET ACTIVITY FLAG $9P110240 | 15120 -0500 00 4 00003 CAL 3,4 9P110250 15121 0074 00 4 00716 TSX (DECVA,4 9P110260 | 15122 -0600 00 0 13122 STQ TEMP 9P110270 | 15123 0020 00 0 14736 TRA SKXWT GO ACTIVATE $9P110280 | 15124 0774 00 4 00000 WRL2D AXT **,4 $9P110290 | 15125 0020 00 4 00002 TRA 2,4 $9P110300 15126 0 15130 0 15152 RWL1D PZE LSL1D,,LBSLD $9P110310 | 15127 -0 15130 0 15155 RWL2D MZE LSL2D,,LBSLD $9P110320 | 15130 0634 00 4 15142 LBSLD SXA SAV,4 9P110330 | 15131 0737 00 4 00000 PAC ,4 $9P110340 | 15132 -0120 00 0 15144 TMI LBSDM SEL(-) 9P110350 15133 0560 00 0 13122 LDQ TEMP TTTT TO MQ 9P110360 | 15134 0074 00 2 00743 TSX (FDAMT,2 PREPARE ORDER $9P110370 | 15135 +000012120006 SMSX OCT 000012120006 $9P110380 | 15136 0 00000 0 15150 PZE DVTN $9P110390 | 15137 0500 00 4 00001 CLA 1,4 $9P110400 15140 0621 60 0 00727 STA* (RCHXI $9P110410 | 15141 0522 60 0 00727 XEC* (RCHXI $9P110420 | 15142 0774 00 4 00000 SAV AXT **,4 $9P110430 | 15143 0020 00 4 00001 TRA 1,4 $9P110440 | 15144 0500 00 0 15063 LBSDM CLA WRLBD+1 9P110450 15145 0621 00 0 15057 STA WAIT $9P110460 | 15146 0600 00 4 00001 STZ 1,4 9P110470 | 15147 0020 00 0 15142 TRA SAV 9P110480 | 15150 1004 1212 1212 DVTN DVTN ,, 9P110490 | 15152 -30 0000 4 15135 LSL1D SMS* SMSX $9P110500 15153 20 0000 2 15150 CTLR DVTN $9P110510 | 15154 1 00000 0 15157 TCH *+3 $9P110520 | 15155 -30 0000 4 15135 LSL2D SMS* SMSX $9P110530 | 15156 24 0000 0 15150 CTLW DVTN $9P110540 | 15157 -1 00016 0 04450 CPYD LAREA,,14 $9P110550 15160 1 00000 0 00131 TCH SYSTWT $9P110560 | 15161 BES RDLBD+NOCH/NOCH**-NOCH/NOCH*RDLBD-* $9P110570 | | * GENERAL MESSAGE ROUTINE FOR ALL TYPES LABEL ERRORS 9P110590 | * TSX LBERR,4 AC= ERROR PROUT PARAM 9P110610 | * RETURN AFTER PAUSE 9P110620 | | 15161 0634 00 4 15175 LBERR SXA LBR1,4 SAVE IR4 9P110640 | 15162 0602 00 0 15172 SLW LBR0 STORE MESSAGE PARAM 9P110650 15163 0074 00 4 07562 TSX DRANO,4 FIND UNIT ADDRESS 9P110660 | 15164 0074 00 4 00706 TSX PROUT,4 PRINT 9P110670 | 15165 0 00000 0 00006 PZE 6 9P110680 | 15166 -0 00002 0 12302 MZE MESS1,,2 ''UNIT ***** **FILE-NAME** 9P110690 | 15167 -0 00003 2 00011 MZE 9,2,3 LABEL ERROR'' 9P110700 15170 0 00002 0 15225 PZE LMSG8,,2 '' ** LABEL ** '' 9P110710 | 15171 0 00014 0 04450 PZE LAREA,,12 '' ADDITIONAL MESSAGE '' 9P110720 | 15172 0 00000 0 00000 LBR0 PZE **,,** ''IF SSW * DOWN IGNORED'' 9P110730 | 15173 0 00004 0 15221 PZE LMSG6,,4 9P110740 | 15174 0074 00 4 00712 TSX PAUSE,4 PAUSE 9P110750 1 LISTING OF 12/01/64 PAGE 264 | POSTING ROUTINES FOR SPECIAL LABEL SELECTS | | 15175 0774 00 4 00000 LBR1 AXT **,4 RESTORE IR4 9P110760 | 15176 0020 00 4 00001 TRA 1,4 EXIT 9P110770 1 LISTING OF 12/01/64 PAGE 265 | LABEL MESSAGES | | 15177 314547646360 LMSG1 BCI 3,INPUT REEL INVALID 9P110790 | 15202 604664634764 LMSG2 BCI 4, OUTPUT REEL INVALID 9P110800 15206 605125632545 LMSG3 BCI 4, RETENTION NOT EXPIRED 9P110810 | 15212 604546604321 LMSG4 BCI 4, NO LABEL, BLANK CREATED 9P110820 | 15216 604446644563 LMSG5 BCI 3, MOUNT LAB. BLANK 9P110830 | 15221 312660626266 LMSG6 BCI 1,IF SSW * DOWN IGNORED 9P110840 | 15222 600360244666 VFD O6/60,6/LERIG,O24/60244666 9P110850 15223 456031274546 BCI 2,N IGNORED 9P110860 | 15225 432122254360 LMSG8 BCI 2,LABEL ERROR 9P110870 | 15227 432122254360 LMSG9 BCI 5,LABEL **** DENSITYHIGH D LOW D 9P110880 | 15234 602646644524 LMG10 BCI 1, FOUND 9P110890 | 15235 604546606351 LMG11 BCI 2, NO TRAILER 9P110900 15237 606225215123 LMG12 BCI 6, SEARCH SKIP LIST FOLLOWS... IF SSW * DOWN REMOUNT 9P110910 | 15245 036024466645 VFD 6/LERIG,O30/6024466645 9P110920 | 15246 605125444664 BCI 2, REMOUNT 9P110930 | * CONSTANTS LABEL PACKAGE 9P110940 | 15250 -177777777777 XCPT2 OCT 577777777777 9P110950 15251 +000077770000 MSK1 OCT 000077770000 $9P110960 | 15252 +200000400000 MSK2 OCT 200000400000 9P110970 | 15253 +000077777777 MSK4 OCT 000077777777 9P110980 | 15254 605454545454 ASTER BCI 1, ***** 9P110990 | 15255 012243214542 BLNK BCI 1,1BLANK 9P111000 1 LISTING OF 12/01/64 PAGE 266 | LABEL CHECK INPUT FILE | | * TSX LCKIN,1 9P111020 | * RETURN LABEL OK 9P111030 * RETURN LABEL ERROR 9P111040 | | * THIS ROUTINE COMPARES 1. FILE SERIAL NUMBER ) FOR TAPE ONLY $9P111060 | * 2. REEL SEQUENCE NUMBER) $9P111070 | * 3. 18 CHARACTER FILE NAME 9P111080 | 15256 0634 00 1 15344 LCKIN SXA LCKI3,1 SAVE IR1 9P111100 | 15257 0634 00 4 15345 SXA LCKI4,4 SAVE IR4 9P111110 | 15260 0600 00 0 14104 STZ CHPSI 9P111120 | 15261 -0500 00 0 06353 CAL FCW PLACE L(FILE)+12 9P111130 15262 0361 00 0 15523 ACL L(12) INTO COMPARE 9P111140 | 15263 0621 00 0 15302 STA LCKI2 9P111150 | 15264 -0520 00 0 14706 NZT DHDR $9P111160 | 15265 0020 00 0 15272 TRA *+5 9P111170 | 15266 0774 00 1 00003 AXT 3,1 9P111180 15267 0774 00 4 00003 AXT 3,4 9P111190 | 15270 0560 00 0 04714 LDQ L(0) 9P111200 | 15271 0020 00 0 15275 TRA LCKI1 $9P111210 | 15272 0774 00 1 00006 AXT 6,1 COMPARE 9P111220 | 15273 0774 00 4 00010 AXT 8,4 FILE WD. TO LABEL WD. 9P111230 15274 0560 00 0 15523 LDQ PTWP 7 3 9P111240 | 15275 -0500 00 4 04462 LCKI1 CAL LAREA+10,4 8 4 9P111250 | 15276 3 00005 1 15300 TXH *+2,1,5 9P111260 | 15277 3 00003 1 15302 TXH *+3,1,3 10-12 8-10 9P111270 | 15300 -0520 60 0 15302 NZT* *+2 IF FILE NAME FIRST 6 CHAR 9P111280 15301 0020 00 0 15304 TRA *+3 =0 SKIP NAME CHECK 9P111290 | 15302 0322 00 1 00000 LCKI2 ERA **,1 ERROR CHECK 9P111300 | 15303 0100 00 0 15305 TZE *+2 9P111310 | 15304 0601 00 0 14104 STO CHPSI 9P111320 | 15305 0162 00 0 15310 TQP *+3 9P111330 15306 1 77777 1 15307 TXI *+1,1,-1 9P111340 | 15307 1 77774 4 15311 TXI *+2,4,-4 9P111350 | 15310 1 77777 4 15311 TXI *+1,4,-1 9P111360 | 15311 -0773 00 0 00001 RQL 1 9P111370 | 15312 2 00001 1 15275 TIX LCKI1,1,1 9P111380 15313 -0057 00 204300 RIL CP1+MODE+CKSUMS+BLKSEQ 9P111390 | 15314 -0500 00 0 04450 CAL LAREA 9P111400 | 15315 0322 00 0 15255 ERA BLNK BYPASS IF BLANK LABEL 9P111410 | 15316 0100 00 0 15344 TZE LCKI3 9P111420 | 15317 0604 00 0 13122 STI TEMP HOLD SI TEMPORARILY 9P111430 15320 0754 00 0 00000 PXA 0,0 9P111440 | 15321 0441 00 0 04456 LDI LAREA+6 9P111450 | 15322 -0054 00 000002 LFT 2 9P111460 | 15323 -0501 00 0 04733 ORA FOR MIXED MODE 9P111470 | 15324 -0054 00 000001 LFT 1 9P111480 15325 -0501 00 0 06507 ORA MODBT BINARY 9P111490 | 15326 0056 00 000100 RNT 000100 9P111500 | 15327 0020 00 0 15333 TRA *+4 NO BLOCK SEQUENCE 9P111510 | 15330 0054 00 010000 RFT 010000 9P111520 | 15331 -0501 00 0 13113 ORA L(64D) BLOCK SEQUENCE AND CHECKSUMS 9P111530 15332 -0501 00 0 15535 ORA 2P2 BLOCK SEQUENCE BUT NO CHECKSUMS 9P111540 | 15333 0441 00 0 13122 LDI TEMP 9P111550 | 15334 0560 00 0 04456 LDQ LAREA+6 9P111560 | 1 LISTING OF 12/01/64 PAGE 267 | LABEL CHECK INPUT FILE | 15335 -0773 00 0 00043 RQL 35 9P111570 | 15336 0162 00 0 15341 TQP *+3 9P111580 | 15337 0361 00 0 15252 ACL MSK2 CHECK POINT AT 9P111590 | 15340 -0055 00 200000 SIL CP1 EACH REEL SWITCH 9P111600 15341 0630 00 2 00001 STP 1,2 MIXED MODE AND CHECKPOINT BITS 9P111610 | 15342 -0320 00 0 04727 ANA DECRE 9P111620 | 15343 0043 00 0 00000 OAI BLOCK SEQUENCE AND CHECKSUMS 9P111630 | 15344 0774 00 1 00000 LCKI3 AXT **,1 RESTORE IR1 9P111640 | 15345 0774 00 4 00000 LCKI4 AXT **,4 IR4 9P111650 15346 -0520 00 0 14104 NZT CHPSI 9P111660 | 15347 0020 00 1 00001 TRA 1,1 EXIT 9P111670 | 15350 0020 00 1 00002 TRA 2,1 EXIT 9P111680 | | * TRAILER CHECK INPUT FILE 9P111700 * TSX TCKIN,1 9P111710 | * RETURN IF OK TAKES SEQEX IF SEQ CHECK FAILS 9P111720 | * AT EITHER RETURN MQ + EOR TRAILER 9P111730 | * MQ - EOF TRAILER 9P111740 | 15351 0634 00 4 15370 TCKIN SXA TCK1,4 SAVE IR4 9P111750 15352 -0500 00 0 04450 CAL LAREA PLACE TEMP + IF EOR 9P111760 | 15353 0322 00 0 15525 ERA 1EOR - IF EOF 9P111770 | 15354 0100 00 0 15356 TZE *+2 9P111780 | 15355 -0760 00 0 00003 SSM 9P111790 | 15356 0601 00 0 13122 STO TEMP 9P111800 15357 -0500 00 2 00003 CAL 3,2 CHECK TRAILER COUNT 9P111810 | 15360 0074 00 4 00715 TSX (DECVD,4 FIRST IN BCD 9P111820 | 15361 -0130 00 0 00000 XCL 9P111830 | 15362 0322 00 0 04451 ERA LAREA+1 9P111840 | 15363 0100 00 0 15367 TZE TCK1-1 IF THERE IS AN ERROR 9P111850 15364 0560 00 2 00003 LDQ 3,2 TRY CHECKING IN OCTAL 9P111860 | 15365 0074 00 4 00720 TSX BCD5-1,4 AGREE THEN 9P111870 | 15366 0322 00 0 04451 ERA LAREA+1 EXIT .. ELSE TAKE 9P111880 | 15367 0560 00 0 13122 LDQ TEMP SEQUENCE ERROR EXIT 9P111890 | 15370 0774 00 4 00000 TCK1 AXT **,4 RESTORE IR4 9P111900 15371 0601 00 0 13122 STO TEMP SAVE SEQ CONDITION (=0 OK) 9P111910 | 15372 0020 00 1 00001 TRA 1,1 EXIT 9P111920 | 1 LISTING OF 12/01/64 PAGE 268 | CHECK LABEL OF SUPPOSED USEABLE OUTPUT REEL FOR LEGALITY | * TSX LCKOF,1 9P111940 | * RETURN USEABLE 9P111950 | * RETENTION NOT EXPIRED $9P111960 | * NOT USABLE $9P111970 | 15373 -0500 00 0 04450 LCKOF CAL LAREA IF 1ST WORD = 1BLANK 9P111990 | 15374 0322 00 0 15255 ERA BLNK REEL OK TO USE 9P112000 | 15375 0100 00 1 00001 TZE 1,1 9P112010 | 15376 -0500 00 0 04450 CAL LAREA IF NOT 1BLANK OR 1HDR 9P112020 | 15377 0322 00 0 15527 ERA 1HDR REEL NOT USEABLE 9P112030 15400 -0100 00 1 00003 TNZ 3,1 9P112040 | 15401 0634 00 4 15415 SXA LCK1,4 SAVE IR4 9P112050 | 15402 -0500 00 0 04454 CAL LAREA+4 IF DATE(CREATION)+ RETENTION DAYS 9P112060 | 15403 -0320 00 0 12530 ANA 17SS HAS NOT BEEN REACHED 9P112070 | 15404 0361 00 0 04455 ACL LAREA+5 THEN TAKE RETENTION NOT 9P112080 15405 0074 00 4 12516 LCK2 TSX BCDCV,4 EXPIRED EXIT 9P112090 | 15406 0602 00 0 14772 SLW RWL3 9P112100 | 15407 -0320 00 0 15253 ANA MSK4 9P112110 | 15410 -0340 00 0 15530 LAS LDOYR CHECK SUM OVERFLOW 9P112120 | 15411 0020 00 0 15422 TRA LCK3 TO NEXT YEAR 9P112130 15412 0774 00 0 00000 AXT 0,0 9P112140 | 15413 -0500 00 0 14772 CAL RWL3 9P112150 | 15414 0361 00 0 15531 ACL BLP4 9P112160 | 15415 0774 00 4 00000 LCK1 AXT **,4 9P112170 | 15416 -0340 00 0 04447 LAS DATE IF ''SAVE DATE'' 9P112180 15417 0020 00 1 00002 TRA 2,1 NOT REACHED 9P112190 | 15420 0020 00 1 00001 TRA 1,1 THEN REEL IS 9P112200 | 15421 0020 00 1 00001 TRA 1,1 '' RETENTION PROTECTED'' 9P112210 | 15422 -0500 00 0 14772 LCK3 CAL RWL3 9P112220 | 15423 0361 00 0 15532 ACL M365 ADD 1 YEAR, SUBTRACT 365 DAYS 9P112230 15424 0020 00 0 15405 TRA LCK2 9P112240 | | * PREPARE OUTPUT TRAILER 9P112260 | * LOGICAL AC MUST CONTAIN EITHER 1EOF OR 1EOR $9P112270 | * TSX TPROF,1 9P112280 * RETURN 9P112290 | | 15425 0634 00 4 15345 TPROF SXA LCKI4,4 SAVE IR4 9P112310 | 15426 0602 00 0 04450 SLW LAREA SET 1EOR OR 1EOF 9P112320 | 15427 -0500 00 2 00003 CAL 3,2 CONVERT BLOCK COUNT 9P112330 15430 0074 00 4 00715 TSX (DECVD,4 TO BCD 9P112340 | 15431 -0600 00 0 04451 STQ LAREA+1 STORE IN TRAILER LABEL 9P112350 | 15432 0560 00 2 00000 LDQ 0,2 INSERT IN TRAILER 9P112360 | 15433 -0773 00 0 00025 RQL 21 CONVERT UCW USED 9P112370 | 15434 0074 00 4 00721 TSX (BCD5X,4 TO SPREAD OCTAL $9P112380 15435 0602 00 0 04452 SLW LAREA+2 AND INSERT IN TRAILER 9P112390 | 15436 0774 00 4 00013 AXT 11,4 FOR POSSIBLE VISUAL 9P112400 | 15437 0560 00 0 04744 LDQ BLNKS USE LATER ON 9P112410 | 15440 -0600 00 4 04466 STQ LAREA+14,4 9P112420 | 15441 2 00001 4 15440 TIX *-1,4,1 9P112430 15442 0020 00 0 15345 TRA LCKI4 EXIT 9P112440 | 1 LISTING OF 12/01/64 PAGE 269 | PREPARE LABEL OUTPUT FILE | | * TSX LPROF,1 9P112460 * RETURN 9P112470 | | 15443 0634 00 4 15345 LPROF SXA LCKI4,4 SAVE IR4 9P112490 | 15444 0500 00 0 15527 CLA 1HDR SET 1ST WORD 9P112500 | 15445 0601 00 0 04450 STO LAREA = 1HDR 9P112510 15446 0560 00 0 04447 LDQ DATE 5TH $9P112520 | 15447 -0600 00 0 04454 STQ LAREA+4 =TODAYS DATE $9P112530 | 15450 0500 00 2 00010 CLA 8,2 6TH $9P112540 | 15451 0601 00 0 04455 STO LAREA+5 =RETENTION DAYS $9P112550 | 15452 -0520 00 0 14706 NZT DHDR $9P112560 15453 0020 00 0 15461 TRA LPRFA TAPE $9P112570 | 15454 0774 00 4 00003 AXT 3,4 $9P112580 | 15455 -0500 00 0 04744 CAL BLNKS $9P112590 | 15456 0602 00 4 04454 SLW LAREA+4,4 $9P112600 | 15457 2 00001 4 15456 TIX *-1,4,1 $9P112610 15460 0020 00 0 15465 TRA LPRFB $9P112620 | 15461 0500 00 2 00006 LPRFA CLA 6,2 3RD $9P112630 | 15462 0601 00 0 04452 STO LAREA+2 = FILE SERIAL 9P112640 | 15463 -0500 00 2 00007 CAL 7,2 4TH 9P112650 | 15464 0602 00 0 04453 SLW LAREA+3 =REEL SEQUENCE NUMBER 9P112660 15465 -0500 00 0 04735 LPRFB CAL 6PRE FIRST CHARACTER BLANK $9P112670 | 15466 0604 00 0 04462 STI LAREA+10 SAVE SI TEMPORARILY 9P112680 | 15467 0441 00 2 00001 LDI 1,2 9P112690 | 15470 0054 00 100000 RFT FDEN FILE DENSITY $9P112700 | 15471 0361 00 0 15533 ACL 1P2 =1 IF HI 9P112710 15472 -0054 00 004000 LFT MODE MODE 9P112720 | 15473 0361 00 0 04721 ACL 1DEC =1 IF BINARY 9P112730 | 15474 -0054 00 400000 LFT 400000 IF MIXED MODE 9P112740 | 15475 0361 00 0 15524 ACL 2DEC =2 OR 3 (M OR N) 9P112750 | 15476 -0054 00 000100 LFT CKSUMS CHECKSUM 9P112760 15477 0361 00 0 15534 ACL 1P4 =1 IF PRESENT 9P112770 | 15500 -0054 00 000200 LFT BLKSEQ BLOCK SEQ 9P112780 | 15501 0361 00 0 13115 ACL 1P5 =1 IF PRESENT 9P112790 | 15502 -0056 00 040000 LNT OPEND IF OPENING 9P112800 | 15503 0020 00 0 15506 TRA *+3 NO CHECKPOINT 9P112810 15504 -0054 00 200000 LFT CP1 BIT IN LABEL $9P112820 | 15505 0361 00 0 04715 ACL L(1) CKPT BIT 9P112830 | 15506 0602 00 0 04456 SLW LAREA+6 =1 IF CHECKPOINT FOLLOWS 9P112840 | 15507 0560 00 2 00011 LDQ 9,2 FILE NAME 9P112850 | 15510 -0600 00 0 04457 STQ LAREA+7 TO LABEL 9P112860 15511 0560 00 2 00012 LDQ 10,2 9P112870 | 15512 -0600 00 0 04460 STQ LAREA+8 9P112880 | 15513 0560 00 2 00013 LDQ 11,2 9P112890 | 15514 -0600 00 0 04461 STQ LAREA+9 9P112900 | 15515 0441 00 0 04462 LDI LAREA+10 RESTORE SI 9P112910 15516 0774 00 4 00004 AXT 4,4 BLANK OUT 9P112920 | 15517 -0500 00 0 04744 CAL BLNKS WORDS 11 TO 14 9P112930 | 15520 0602 00 4 04466 SLW LAREA+14,4 9P112940 | 15521 2 00001 4 15520 TIX *-1,4,1 9P112950 | 15522 0020 00 0 15345 TRA LCKI4 EXIT 9P112960 1 LISTING OF 12/01/64 PAGE 270 | CONSTANTS FOR LABEL IMAGE ROUTINES | | 15523 2 00000 0 00014 L(12) PTW 12 9P112980 | 15524 0 00002 0 00000 2DEC PZE 0,,2 9P112990 15523 PTWP EQU L(12) 9P113000 | 15525 012546516060 1EOR BCI 1,1EOR 9P113010 | 15526 012546266060 1EOF BCI 1,1EOF 9P113020 | 15527 013024516060 1HDR BCI 1,1HDR 9P113030 | 15530 060160030605 LDOYR BCI 1,61 365 9P113040 15531 000060000000 BLP4 BCI 1,00 000 9P113050 | 15532 000011060305 M365 BCI 1,009635 9P113060 | 15533 000100000000 1P2 BCI 1,010000 9P113070 | 15534 000000010000 1P4 BCI 1,000100 9P113080 | 15535 000200000000 2P2 BCI 1,020000 9P113090 | 15545 BES 7 PATCH AREA 9P113110 | 15545 B6FIN BSS 0 ...END LABEL IOCS STORAGE......... 9P113120 | 15545 CHK11 BSS 0 UCW TABLE AND SS WORD 9P113130 | 1 LISTING OF 12/01/64 PAGE 271 CONSTANTS FOR LABEL IMAGE ROUTINES | | *THE FOLLOWING CONSTITUTE ALL THE MODIFICATIONS TO 9P113150 | * IOBS OF IOCS VERSION C MADE BY 9 PAC. 9P113160 | * THEY ARE CONCENTRATED HERE FOR EASE IN REPLACING 9P113170 * DIFFERENT VERSIONS OF IOCS 9P113180 | * 9P113190 | * 9P113200 | * 9P113210 | 15545 SAVORG BSS 0 SAVE IC. 9P113220 * 9P113230 | 15545 BSS OP6-* ORG AT OP6 9P113240 | 07260 0020 00 0 15546 TRA 9PAOPN 9P113250 | * 9P113260 | * 9P113270 * 9P113280 | 07261 BSS LOOZ+3-* ORG AT LOOZ+3 9P113290 | 14553 0020 00 0 15576 LOOZ1 TRA 9PALAB 9P113300 | 14554 BSS LOO2.3-* DEFINE SYMBOL 9P113310 | 14621 0522 00 0 14325 LOO15 XEC LABRT5 9P113320 14622 BSS LOO2.3+6-* DEFINE SYMBOL 9P113330 | 14627 0074 00 4 07562 LOO16 TSX DRANO,4 9P113340 | * 9P113350 | 14630 BSS CHPSS+19-* 9P113360 | 13751 -0501 00 0 04735 ORA 6PRE REDEFINE SIX 9P113370 * 9P113380 | * 9P113390 | 13752 BSS LFLBLK-* GIVE IOCS LOC,,LENGTH OF FCB S 9P113400 | 06337 -0 00360 0 04004 MZE FIL19,,20*12 9P113410 | * 9P113420 * 9P113430 | 06340 BSS SEL8-* 9P113440 | 11141 0074 00 4 05134 TSX DDEAD,4 9P113450 | * 9P113460 | * 9P113470 * 9P113480 | *THE FOLLOWING ROUTINE SKIPS 9PAC DICTIONARY WHEN THE FILE IS UNLABELED.9P113490 | * 9P113500 | * 9P113510 | 11142 BSS SAVORG+1-* RESTORE ORIGIN 9P113520 15546 0634 00 1 15566 9PAOPN SXA OP69P3,1 9P113530 | 15547 -0534 00 1 06351 LXD IRS,1 9PAC 9P113540 | 15550 0500 00 1 04531 CLA SYMTAP,1 9PAC 9P113550 | 15551 -0120 00 0 15566 TMI OP69P3 9PAC, TAPE IS LABELED 9P113560 | 15552 -0320 00 0 15570 ANA OP69P4 9PAC 9P113570 15553 0100 00 0 15566 TZE OP69P3 9PAC, NO DICTIONARY 9P113580 | 15554 0634 00 1 15561 SXA OP69P2,1 9PAC 9P113590 | 15555 0534 00 1 15566 LXA OP69P3,1 9PAC 9P113600 | 15556 -0500 00 1 00001 CAL 1,1 9PAC, SAVE UCW2 9P113610 | 15557 0602 00 0 15571 SLW OP69P5 9PAC 9P113620 15560 0074 00 4 05255 TSX RD(WR),4 9PAC, SKIP DICTIONARY 9P113630 | 15561 2 15572 0 00000 OP69P2 PTW **,,OP69P6 9PAC 9P113640 | 15562 0020 00 0 15560 TRA *-2 9PAC 9P113650 | 15563 -0500 00 0 15571 CAL OP69P5 9PAC, RESTORE IOCS 9P113660 | 15564 0602 00 1 00001 SLW 1,1 9PAC 9P113670 15565 0074 00 4 11200 TSX DENSE,4 9PAC 9P113680 | 15566 0774 00 1 00000 OP69P3 AXT **,1 9PAC 9P113690 | 1 LISTING OF 12/01/64 PAGE 272 | CONSTANTS FOR LABEL IMAGE ROUTINES | 15567 0020 00 0 15573 TRA OP69P7 9PAC 9P113700 | 15570 0 00000 4 00000 OP69P4 PZE 0,4 9PAC 9P113710 | 15571 0 00000 0 00000 OP69P5 PZE 0 9PAC 9P113720 | 15572 -1 77777 2 00000 OP69P6 IOCTN 0,,-1 9PAC 9P113730 | 15573 -0054 00 003000 OP69P7 LFT OUTPUT 9P113740 15574 0020 00 0 07261 TRA OP6+1 9P113750 | 15575 0020 00 0 07262 TRA OP6+2 9P113760 | * 9P113770 | * 9P113780 | 15576 0601 00 0 13122 9PALAB STO TEMP 9P113790 15577 -0500 00 0 15254 CAL ASTER 9P113800 | 15600 0602 00 0 04451 SLW LAREA+1 9P113810 | 15601 0074 00 4 00705 TSX (NDSLX,4 9P113820 | 15602 0 00003 2 00000 PZE 0,2,REWOP 9P113830 | 15603 -0054 00 040000 LFT OPEND 9P113840 15604 0020 00 0 14621 TRA LOO15 9P113850 | 15605 -0774 00 4 00001 AXC 1,4 9P113860 | 15606 0600 60 2 00000 STZ* 0,2 9P113870 | 15607 0074 00 4 14732 TSX SKIP,4 9P113880 | 15610 -0774 00 4 00001 AXC 1,4 9P113890 15611 -0500 00 0 15611 CAL * 9P113900 | 15612 0630 60 2 00000 STP* 0,2 9P113910 | 15613 0522 00 0 14325 XEC LABRT5 9P113920 | 15614 0020 00 0 14627 TRA LOO16 9P113930 | 15615 -0500 00 0 13122 CAL TEMP 9P113940 15616 0020 00 0 14554 TRA LOOZ1+1 9P113950 | * 9P113960 | * 9P113970 | * 9P113980 | 1 LISTING OF 12/01/64 PAGE 273 FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | *CENTRALIZE INPUT-OUTPUT FOR 9PAC OBJECT PROGRAMS. 9P114000 | * 9P114010 | * 9P114020 *STORAGE FOR OBJECT. 9P114030 | 15617 111111111111 PADNG BCI 1,999999 9P114040 | 15620 0 00000 0 00000 IDEX4 PZE 0 9P114050 | 15621 -377700000000 TPMSK OCT 777700000000 9P114060 | 15622 +000000007777 CDMSK OCT 000000007777 9P114070 15623 +000100000000 EOFSW OCT 000100000000 9P114080 | 15624 -0 00000 0 00000 RIBSW MZE 0 9P114090 | 15625 +010000000000 OPNSW OCT 10000000000 9P114100 | 15626 0 00000 0 00000 UNIT PZE 0 9P114110 | 15627 0 00000 0 00000 RDLEN PZE 0 9P114120 15630 0 00000 0 00000 BUFER PZE 0 ANY DESIRED USE 9P114130 | 15631 0 00000 0 00000 BINBF PZE 0 9P114140 | 15632 BSS 13 9P114150 | 15647 0 00000 0 00000 BCDBF PZE 0 9P114160 | * 9P114170 *CENTRALIZE INPUT-OUTPUT FOR 9PAC OBJECT PROGRAMS. JAA10 9P114180 | * JAA20 9P114190 | *THE FOLLOWING PROGRAMS ARE EXECUTED ON THE FIRST REFERENCE JAA30 9P114200 | * TO INPUT. THEY OPEN ALL FILES, INITIALIZE TRAPPING CELLS JAA40 9P114210 | * AND INITIALIZE BUFFER LOCATIONS AND COUNTS. JAA50 9P114220 * IR1 IS SET TO UNIT. JAA60 9P114230 | * JAA70 9P114240 | 15650 0634 00 1 15670 JAA80 SXA JAC80,1 JAA80 9P114250 | 15651 0634 00 4 15671 SXA JAC90,4 JAA90 9P114260 | 15652 -0500 00 0 04532 CAL CKPTAP JAB10 9P114270 15653 0100 00 0 15657 TZE JAB80 JAB20 9P114280 | 15654 0621 00 0 15656 STA *+2 JAB30 9P114290 | 15655 0074 00 4 06262 TSX OPEN,4 JAB40 9P114300 | 15656 0 00000 0 00000 PZE ** JAB50 9P114310 | * JAB60 9P114320 * JAB70 9P114330 | 15657 0774 00 2 00024 JAB80 AXT 20,2 JAB80 9P114340 | 15660 0774 00 1 00000 AXT 0,1 JAB90 9P114350 | 15661 0441 00 1 72657 JAC10 LDI SWTCH,1 JAC10 9P114360 | 15662 -0054 00 100000 LFT 100000 IS UNIT USED JAC20 9P114370 15663 0074 00 4 15674 TSX JBA70,4 YES--DEFINE, ATTACH, OPEN JAC30 9P114380 | 15664 1 00001 1 15665 TXI *+1,1,1 ANY MORE UNITS JAC40 9P114390 | 15665 2 00001 2 15661 TIX JAC10,2,1 JAC50 9P114400 | 15666 -0500 00 0 15673 CAL JAG10 JAC60 9P114410 | 15667 0602 00 0 16174 SLW INPUT JAC70 9P114420 15670 0774 00 1 00000 JAC80 AXT **,1 JAC80 9P114430 | 15671 0774 00 4 00000 JAC90 AXT **,4 JAC90 9P114440 | 15672 0020 00 0 16174 TRA INPUT JAD10 9P114450 | * JAD20 9P114460 | * JAD30 9P114470 * JAD40 9P114480 | 15673 0441 00 1 72657 JAG10 LDI SWTCH,1 THIS IS A CONSTANT JAG10 9P114490 | 1 LISTING OF 12/01/64 PAGE 274 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | * JBA10 9P114510 | *THE FOLLOWING ARE SUBROUTINES FOR FIXED OBJECT I-O. JBA20 9P114520 | * JBA30 9P114530 | *THIS ROUTINE DEFINES, ATTACHES, AND OPENS FILES JBA40 9P114540 | * AND INITIALIZES BUFFERS. JBA50 9P114550 * JBA60 9P114560 | 15674 0634 00 4 15772 JBA70 SXA JBG70,4 JBA70 9P114570 | 15675 0441 00 1 72657 LDI SWTCH,1 JBA80 9P114580 | 15676 -0500 00 1 72727 CAL BULOC,1 INIT. CALL SEQ. AND JBA90 9P114590 | 15677 0602 00 0 15703 SLW JBB50 DEFINE A BUFFER POOL. JBB10 9P114600 15700 -0500 00 1 72753 CAL BUSZE,1 JBB20 9P114610 | 15701 0602 00 0 15704 SLW JBB50+1 JBB30 9P114620 | 15702 0074 00 4 06252 TSX DEFINE,4 JBB40 9P114630 | 15703 0 00000 0 00000 JBB50 PZE ** JBB50 9P114640 | 15704 0 00000 0 00000 PZE ** JBB60 9P114650 15705 -0500 00 1 72727 CAL BULOC,1 INIT. CALL SEQ. AND ATTACH JBB70 9P114660 | 15706 0602 00 0 15726 SLW JBC90 JBB80 9P114670 | 15707 0754 00 1 00000 PXA 0,1 JBB90 9P114680 | 15710 0767 00 0 00001 ALS 1 JBC10 9P114690 | 15711 0734 00 4 00000 PAX 0,4 JBC20 9P114700 15712 -0500 00 4 17240 CAL FILES,4 JBC30 9P114710 | 15713 0621 00 0 15731 STA JBD30 JBC40 9P114720 | 15714 -0500 00 1 72657 CAL SWTCH,1 GIVE OPEN OPTION JBC44 9P114730 | 15715 -0763 00 0 00041 LGL 33 JBC45 9P114740 | 15716 0630 00 0 15731 STP JBD30 JBC46 9P114750 15717 -0500 00 1 17264 CAL LSLOC,1 JBC50 9P114760 | 15720 -0765 00 0 00022 LGR 18 JBC60 9P114770 | 15721 0621 00 0 15727 STA JBD10 JBC70 9P114780 | 15722 -0500 00 1 72753 CAL BUSZE,1 JBC74 9P114790 | 15723 -0763 00 0 00022 LGL 18 JBC75 9P114800 15724 0622 00 4 17237 STD LISTS,4 JBC76 9P114810 | 15725 0074 00 4 06256 TSX ATTACH,4 JBC80 9P114820 | 15726 0 00000 0 00000 JBC90 PZE ** JBC90 9P114830 | 15727 0 00001 0 00000 JBD10 PZE **,,1 JBD10 9P114840 | 15730 0074 00 4 06262 TSX OPEN,4 OPEN THE FILE JBD20 9P114850 15731 0 00000 0 00000 JBD30 PZE ** WITH OPTION JBD30 9P114860 | 15732 0441 00 1 72657 LDI SWTCH,1 JBD40 9P114870 | 15733 -0056 00 000001 LNT 000001 INPUT OR OUTPUT FILE JBD50 9P114880 | 15734 0020 00 0 15771 TRA JBG60 JBD60 9P114890 | 15735 -0500 00 0 15731 CAL JBD30 OUTPUT--LOCATE BUFFER JBD70 9P114900 15736 0621 00 0 15744 STA JBE30 JBD80 9P114910 | 15737 -0500 00 1 72753 CAL BUSZE,1 JBD90 9P114920 | 15740 -0054 00 000002 LFT 000002 JBD95 9P114930 | 15741 0402 00 0 04721 SUB 1B17 JBD96 9P114940 | 15742 0622 00 0 15745 STD JBE40 JBE10 9P114950 15743 0074 00 4 06266 TSX WRITE,4 JBE20 9P114960 | 15744 0 15775 0 00000 JBE30 PZE **,,JBH40 JBE30 9P114970 | 15745 -3 00000 2 00000 JBE40 IOSTN **,,** JBE40 9P114980 | 15746 -0500 00 0 15745 CAL JBE40 JBE50 9P114990 | 15747 0621 00 1 17334 STA NEWRD,1 JBE60 9P115000 15750 0621 00 1 17310 STA RECRD,1 JBE70 9P115010 | 15751 0621 00 1 17264 STA OUTLC,1 JBE80 9P115020 | 15752 -0765 00 0 00022 LGR 18 JBE90 9P115030 | 15753 0621 00 1 17360 STA CTREM,1 JBF10 9P115040 | 15754 0441 00 1 72657 LDI SWTCH,1 SHOULD BUFFERS BE PRESET JBF20 9P115050 1 LISTING OF 12/01/64 PAGE 275 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | 15755 0056 00 100000 RNT 100000 JBF30 9P115060 | 15756 0020 00 0 15772 TRA JBG70 NO JBF40 9P115070 15757 -0500 00 1 17360 CAL CTREM,1 INIT BUFFERS WITH JBF50 9P115080 | 15760 0734 00 4 00000 PAX 0,4 JBF60 9P115090 | 15761 0400 00 1 17334 ADD NEWRD,1 JBF70 9P115100 | 15762 0621 00 0 15766 STA JBG30 JBF80 9P115110 | 15763 0754 00 0 00000 PXA 0,0 ZEROS JBF90 9P115120 15764 0054 00 010000 RFT 010000 OR JBG10 9P115130 | 15765 -0500 00 0 15774 CAL JBG90 BLANKS JBG20 9P115140 | 15766 0602 00 4 00000 JBG30 SLW **,4 JBG30 9P115150 | 15767 2 00001 4 15766 TIX JBG30,4,1 JBG40 9P115160 | 15770 0020 00 0 15772 TRA JBG70 JBG50 9P115170 15771 0600 00 1 17360 JBG60 STZ CTREM,1 INPUT FILE JBG60 9P115180 | 15772 0774 00 4 00000 JBG70 AXT **,4 JBG70 9P115190 | 15773 0020 00 4 00001 TRA 1,4 JBG80 9P115200 | 15774 606060606060 JBG90 BCI 1, JBG90 9P115210 | | | | | | *END OF BUFFER RETURN (EOB) FROM IOCS LOCATE 1ST OUTPUT. JBH10 9P115230 | * JBH20 9P115240 | * JBH30 9P115250 | 15775 0074 00 4 04000 JBH40 TSX LOST,4 JBH40 9P115260 | | | | | | * JCA10 9P115280 | * JCA20 9P115290 | * THIS ROUTINE CLOSES THE FILE INDICATED BY IR1 JCA30 9P115300 * JCA40 9P115310 | 15776 0634 00 4 16011 JCA50 SXA JCB40,4 JCA50 9P115320 | 15777 0754 00 1 00000 PXA 0,1 JCA60 9P115330 | 16000 0767 00 0 00001 ALS 1 JCA70 9P115340 | 16001 0734 00 4 00000 PAX 0,4 JCA80 9P115350 16002 -0500 00 4 17240 CAL FILES,4 JCA90 9P115360 | 16003 0621 00 0 16010 STA JCB30 JCB10 9P115370 | 16004 -0500 00 1 72657 CAL SWTCH,1 JCB15 9P115380 | 16005 -0763 00 0 00036 LGL 30 JCB16 9P115390 | 16006 0630 00 0 16010 STP JCB30 GIVE OPTION WHEN CLOSING JCB20 9P115400 16007 0074 00 4 06260 TSX CLOSE,4 JCB25 9P115410 | 16010 0 00000 0 00000 JCB30 PZE ** JCB30 9P115420 | 16011 0774 00 4 00000 JCB40 AXT **,4 JCB40 9P115430 | 16012 0020 00 4 00001 TRA 1,4 JCB50 9P115440 | * JCB60 9P115450 * JCB70 9P115460 | * JCB80 9P115470 | * JCB90 9P115480 | 1 LISTING OF 12/01/64 PAGE 276 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | * JDA10 9P115490 | * THIS ROUTINE ASKS IS THERE MORE INPUT JDA20 9P115500 | * IR1 CONTAINS SYMBOLIC UNIT NUMBER JDA30 9P115510 | * IR2 CONTAINS - FILE BLOCK ORIGIN JDA40 9P115520 * JDA50 9P115530 | * RETURN IS 1,4 IF ANSWER IS NO. JDA60 9P115540 | * 2,4 IF ANSWER IS YES. JDA70 9P115550 | * JDA80 9P115560 | * JDA90 9P115570 16013 0634 00 4 16042 JDB10 SXA JDE10,4 JDB10 9P115580 | 16014 0774 00 4 00000 AXT 0,4 PLACE UNIT IN MESSAGE JDB20 9P115590 | 16015 -0500 60 2 00000 CAL* 0,2 JDB30 9P115600 | 16016 -0765 00 0 00036 LGR 30 JDB40 9P115610 | 16017 0754 00 2 00000 PXA 0,2 JDB50 9P115620 16020 0774 00 4 00004 AXT 4,4 JDB60 9P115630 | 16021 0767 00 0 00003 ALS 3 JDB70 9P115640 | 16022 -0763 00 0 00003 LGL 3 JDB80 9P115650 | 16023 2 00001 4 16021 TIX *-2,4,1 JDB90 9P115660 | 16024 0767 00 0 00014 ALS 12 JDC10 9P115670 16025 0361 00 0 16046 ACL JDF10 JDC20 9P115680 | 16026 0602 00 0 16054 SLW JDF30 JDC30 9P115690 | 16027 -0500 00 2 00011 CAL 9,2 PLACE NAME IN MESSAGE JDC40 9P115700 | 16030 0602 00 0 16055 SLW JDF30+1 JDC50 9P115710 | 16031 -0500 00 2 00012 CAL 10,2 JDC60 9P115720 16032 0602 00 0 16056 SLW JDF30+2 JDC70 9P115730 | 16033 -0500 00 2 00013 CAL 11,2 JDC80 9P115740 | 16034 0602 00 0 16057 SLW JDF30+3 JDC90 9P115750 | 16035 0074 00 4 05630 TSX CLIST,4 JDD10 9P115760 | 16036 -1 00011 0 16047 MON JDF20,0,9 JDD20 9P115770 16037 -1 00006 0 16060 MON JDF40,0,6 JDD30 9P115780 | 16040 1 00004 0 16066 PON JDF50,0,4 JDD60 9P115790 | 16041 0074 00 4 00712 TSX (PAUSE,4 PAUSE FOR OPERATOR JDD90 9P115800 | 16042 0774 00 4 00000 JDE10 AXT **,4 JDE10 9P115810 | 16043 0760 00 0 00164 SWT 4 JDF20 9P115820 16044 0020 00 4 00001 TRA 1,4 JDE30 9P115830 | 16045 0020 00 4 00002 TRA 2,4 JDE40 9P115840 | * JDE50 9P115850 | * JDE60 9P115860 | * JDE70 9P115870 * JDE80 9P115880 | * JDE90 9P115890 | 16046 000000007360 JDF10 BCI 1,0000, JDF10 9P115900 | 16047 316260633025 JDF20 BCI 5,IS THERE MORE INPUT ON UNIT JDF20 9P115910 | 16054 606060606060 JDF30 BCI 4, JDF30 9P115920 16060 626660046064 JDF40 BCI 6,SW 4 UP''NO, SW 4 DOWN''YES JDF40 9P115930 | 16066 475125626260 JDF50 BCI 4,PRESS START TO PROCEED JDF50 9P115940 | * JEA10 9P115950 | *THE FOLLOWING ROUTINE IS ENTERED WHEN A RECORD JEA20 9P115960 | * TYPE CANNOT BE FOUND WHILE DOING A TABLE LOOK-UP JEA30 9P115970 * TO FIND ITS LENGTH. ENTRY TYPER+1,4 ALLOWS JEA40 9P115980 | * OPTION TO START NEXT BLOCK. JEA50 9P115990 | * JEA60 9P116000 | * JEA70 9P116010 | 16072 0020 00 0 16101 TYPER TRA JEB80 JEA80 9P116020 16073 0602 00 0 16106 SLW JED10 JEA90 9P116030 | 1 LISTING OF 12/01/64 PAGE 277 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | 16074 0074 00 4 05630 TSX CLIST,4 JEB10 9P116040 16075 -1 00007 0 16106 MON JED10,0,7 JEB20 9P116050 | 16076 1 00006 0 16115 PON JED20,0,6 JEB40 9P116060 | 16077 0074 00 4 00712 TSX (PAUSE,4 JEB50 9P116070 | 16100 0020 00 0 16250 TRA JB150 JEB60 9P116080 | 16101 0602 00 0 16123 JEB80 SLW JED30 JEB70 9P116090 16102 0634 00 4 16106 SXA JED10,4 JEB75 9P116100 | 16103 0074 00 4 05630 TSX CLIST,4 JEB80 9P116110 | 16104 1 00005 0 16123 PON JED30,0,5 JEB90 9P116120 | 16105 0074 00 4 05134 TSX DDEAD,4 JEC50 9P116130 | * JEC60 9P116140 * JEC70 9P116150 | * JEC80 9P116160 | * JEC90 9P116170 | 16106 606060606060 JED10 BCI 7, RECORD TYPE NOT SPECIFIED FOR INPUT JED10 9P116180 | 16115 475125626260 JED20 BCI 6,PRESS START TO START NEW TAPE RECORD JED20 9P116190 16123 606060606060 JED30 BCI 5, RECORD TYPE NOT FOUND JED30 9P116200 | * JED50 9P116210 | * JFA10 9P116220 | *ROUTINE TO PLACE - LOCATION OF FILE BLOCK TO IR2 JFA20 9P116230 | * JFA30 9P116240 * JFA40 9P116250 | 16130 0754 00 1 00000 JFA50 PXA 0,1 JFA50 9P116260 | 16131 0767 00 0 00001 ALS 1 JFA60 9P116270 | 16132 0734 00 2 00000 PAX 0,2 JFA70 9P116280 | 16133 -0500 00 2 17240 CAL FILES,2 JFA80 9P116290 16134 0737 00 2 00000 PAC 0,2 JFA90 9P116300 | 16135 0020 00 4 00001 TRA 1,4 JFB10 9P116310 | * JFB20 9P116320 | * JFB30 9P116330 | * JFB40 9P116340 * JGA10 9P116350 | *SUBROUTINE TO SIDE-POCKET GROUP HEADERS JGA20 9P116360 | * JGA30 9P116370 | * JGA40 9P116380 | 16136 0634 00 4 16170 JGA50 SXA JGD50,4 JGA50 9P116390 16137 0500 00 1 72703 CLA TBLTL,1 JGA60 9P116400 | 16140 -0734 00 4 00000 PDX 0,4 NUMBER OF RT JGA70 9P116410 | 16141 -0774 00 2 00002 AXC 2,2 JGA80 9P116420 | 16142 0500 60 1 72703 JGA90 CLA* TBLTL,1 JGA90 9P116430 | 16143 -0120 00 0 16145 TMI *+2 IS RECORD OF THIS TYPE IN BLOCK JGB10 9P116440 16144 1 00001 2 16166 TXI JGD30,2,1 NO-- JGB20 9P116450 | 16145 -0320 00 0 16172 ANA JGD90 JGB30 9P116460 | 16146 0630 60 1 72703 STP* TBLTL,1 LAST RECORD THIS TYPE IN S.P. JGB40 9P116470 | 16147 -0100 00 0 16151 TNZ *+2 IS THIS A GROUP HEADER JGB50 9P116480 | 16150 1 00001 2 16166 TXI JGD30,2,1 NO-- JGB60 9P116490 16151 0621 00 0 16161 STA JGC70 INIT MOVE LOOP STORE ADDR TO S.P. JGB80 9P116500 | 16152 1 00001 2 16153 TXI *+1,2,1 JGB90 9P116510 | 16153 -0500 60 1 72703 CAL* TBLTL,1 WORD 2 OF RECORD TABLE JGC10 9P116520 | 16154 0634 00 4 16165 SXA JGD20,4 JGC20 9P116530 | 16155 -0737 00 4 00000 PDC 0,4 -LENGTH TO MOVE LOOP COUNT JGC30 9P116540 16156 0621 00 0 16160 STA *+2 INIT MOVE LOOP LOAD ADDR JGC40 9P116550 | 16157 1 00001 4 16160 TXI *+1,4,1 JGC50 9P116560 | 16160 0560 00 4 00000 LDQ **,4 MOVE LOOP JGC60 9P116570 | 16161 -0600 00 4 00000 JGC70 STQ **,4 JGC70 9P116580 | 1 LISTING OF 12/01/64 PAGE 278 FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | 16162 3 00000 4 16157 TXH *-3,4,0 JGC80 9P116590 | 16163 -0500 00 0 16161 CAL JGC70 UPDATE TYPE BUCKET JGC90 9P116600 | 16164 0621 60 1 72703 STA* TBLTL,1 JGD10 9P116610 16165 0774 00 4 00000 JGD20 AXT **,4 JGD20 9P116620 | 16166 -2 00001 4 16170 JGD30 TNX JGD50,4,1 FINISHED ALL RT JGD30 9P116630 | 16167 1 00002 2 16142 TXI JGA90,2,2 NO--WORK ON NEXT RT JGD40 9P116640 | 16170 0774 00 4 00000 JGD50 AXT **,4 YES--RETURN JGD50 9P116650 | 16171 0020 00 4 00001 TRA 1,4 JGD60 9P116660 * JGD70 9P116670 | * JGD80 9P116680 | 16172 +000000077777 JGD90 OCT 000000077777 JGD90 9P116690 | * 9P116700 | 1 LISTING OF 12/01/64 PAGE 279 FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | *THE FOLLOWING PROGRAMS ARE FOR READING ALL FILES. JA010 9P116720 | * JA020 9P116730 | *THE CALLING SEQUENCE IS JA030 9P116740 * TSX INPUT,4 OR TSX INPTN,4 JA040 9P116750 | * RETURN JA050 9P116760 | * RETURN 1 IF EOF JA060 9P116770 | * JA070 9P116780 | * IR1 CONTAINS SYMBOLIC UNIT NUMBER ON ENTRY. JA080 9P116790 * JA090 9P116800 | * RETURN IS 1,4 FOR FP. JA100 9P116810 | * RETURN IS INDIRECTLY THROUGH WORD 3 OF TBLTL JA110 9P116820 | * WITH IR1 SET - LOC OF RECORD JA120 9P116830 | * JA130 9P116840 * RETURN 1 IS 2,4 FOR BOTH FP AND RG. JA140 9P116850 | 16173 0761 00 0 00000 INPTN NOP JA150 9P116860 | 16174 0020 00 0 15650 INPUT TRA JAA80 LDI SWTCH,1 AFTER 1ST TIME JA160 9P116870 | 16175 0634 00 4 15620 SXA IDEX4,4 JA170 9P116880 | 16176 -0056 00 010000 LNT 010000 JA180 9P116890 16177 0020 00 0 16203 TRA JA230 FROM FP. JA190 9P116900 | 16200 -0520 00 0 04406 NZT FPRGSW FROM RG--IS IT BOTH JA200 9P116910 | 16201 0020 00 0 16215 TRA JA360 RETURN TO RG JA210 9P116920 | 16202 0020 00 0 16771 TRA JL200 RETURN TO FP WRITE JA220 9P116930 | 16203 -0520 00 1 17404 JA230 NZT BKSPT,1 WAS BKSP MACRO USED JA230 9P116940 16204 0020 00 0 16215 TRA JA360 NO JA240 9P116950 | 16205 0634 00 2 16213 SXA JA310,2 YES--COUNT AND RETURN TO MAIN JA250 9P116960 | 16206 -0500 00 1 17645 CAL BKSCT,1 JA260 9P116970 | 16207 0734 00 2 00000 PAX 0,2 JA270 9P116980 | 16210 0500 60 0 72577 CLA* CTTBL-8 JA280 9P116990 16211 0400 00 0 04673 ADD ONE JA290 9P117000 | 16212 0601 60 0 72577 STO* CTTBL-8 JA300 9P117010 | 16213 0774 00 2 00000 JA310 AXT **,2 JA310 9P117020 | 16214 0020 00 4 00001 TRA 1,4 JA320 9P117030 | * JA330 9P117040 *IS NEXT RECORD IN THIS BLOCK JA340 9P117050 | * JA350 9P117060 | 16215 -0520 00 1 17360 JA360 NZT CTREM,1 JA360 9P117070 | 16216 0020 00 0 16242 TRA JA550 NO--GET NEW BLOCK JA370 9P117080 | 16217 0056 00 001000 RNT 001000 IS PADDING ALLOWED 9P117090 16220 0020 00 0 16270 TRA JB400 NO--NEXT RECORD IS IN THIS BLOCK 9P117100 | 16221 -0500 00 0 17142 CAL JN150 INITIALIZE TEST FOR PACDING 9P117110 | 16222 0560 00 0 17143 LDQ JN160 9P117120 | 16223 0056 00 003000 RNT 003000 9P117130 | 16224 -0130 00 0 00000 XCL 9P117140 16225 0602 00 0 15617 SLW PADNG 9P117150 | 16226 -0500 60 1 17334 CAL* NEWRD,1 MAYBE--IS IT PADDING JA380 9P117160 | 16227 0322 00 0 15617 ERA PADNG JA390 9P117170 | 16230 -0100 00 0 16270 TNZ JB400 NEXT RECORD IS IN THIS BLOCK JA400 9P117180 | 16231 -0500 00 1 72633 CAL NU,1 JA410 9P117190 16232 0734 00 4 00000 PAX 0,4 JA420 9P117200 | 16233 0400 00 1 17334 ADD NEWRD,1 JA430 9P117210 | 16234 0621 00 0 16235 STA *+1 JA440 9P117220 | 16235 -0500 00 4 00000 CAL **,4 JA450 9P117230 | 16236 0322 00 0 15617 ERA PADNG JA460 9P117240 16237 -0100 00 0 16270 TNZ JB400 NEXT RECORD IS IN THIS BLOCK JA470 9P117250 | 16240 2 00001 4 16235 TIX *-3,4,1 JA480 9P117260 | 1 LISTING OF 12/01/64 PAGE 280 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | 16241 0020 00 0 16242 TRA JA550 IS PADDING--GET NEXT BLOCK JA490 9P117270 | * JA500 9P117280 | 1 LISTING OF 12/01/64 PAGE 281 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | *GET NEXT RECORD FROM A NEW BLOCK JA520 9P117300 | * JA530 9P117310 | * JA540 9P117320 | 16242 -0054 00 000100 JA550 LFT 000100 HAS EOF BEEN REACHED JA550 9P117330 | 16243 0020 00 0 16407 TRA JC430 YES--EOF RETURN TO MAIN JA560 9P117340 16244 -0056 00 010000 LNT 010000 FP OR RG JA570 9P117350 | 16245 0020 00 0 16250 TRA JB150 IS FP JA580 9P117360 | 16246 0074 00 4 16136 TSX JGA50,4 IS RG--HANDLE GROUP HEADERS JA590 9P117370 | 16247 0020 00 0 16250 TRA JB150 JA600 9P117380 | *GET NEXT BLOCK FROM IOCS JB110 9P117390 * JB120 9P117400 | * JB130 9P117410 | * JB140 9P117420 | 16250 0774 00 2 00012 JB150 AXT 10,2 INIT COUNT FOR ERROR ROUTINE JB150 9P117430 | 16251 0754 00 1 00000 JB160 PXA 0,1 INIT CALL SEQUENCE JB160 9P117440 16252 0767 00 0 00001 ALS 1 JB170 9P117450 | 16253 0734 00 4 00000 PAX 0,4 JB180 9P117460 | 16254 -0500 00 4 17240 CAL FILES,4 JB190 9P117470 | 16255 0621 00 0 16257 STA JB220 JB200 9P117480 | 16256 0074 00 4 06264 TSX READ,4 JB210 9P117490 16257 0 16554 0 00000 JB220 PZE **,,JD420 JB220 9P117500 | 16260 0 16412 0 16357 PZE JC150,,JC500 EOF,,EFROR JB230 9P117510 | 16261 3 00000 2 00000 JB240 IORTN **,,** FIRST WORD,,COUNT JB240 9P117520 | 16262 -0500 00 0 16261 JB250 CAL JB240 JB250 9P117530 | 16263 0621 00 1 17334 STA NEWRD,1 INIT LOCATION OF NEXT RECORD JB260 9P117540 16264 -0765 00 0 00022 LGR 18 AND JB270 9P117550 | 16265 0621 00 1 17360 STA CTREM,1 COUNT OF WORDS TO BE PROCESSED JB280 9P117560 | 16266 0441 00 1 72657 LDI SWTCH,1 JB290 9P117570 | 16267 0020 00 0 16270 TRA JB400 SAME AS IF NEXT RECORD IN JB300 9P117580 | * SAME BLOCK JB310 9P117590 * JB320 9P117600 | * JB330 9P117610 | * JB340 9P117620 | 1 LISTING OF 12/01/64 PAGE 282 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | *THE NEXT RECORD IS IN THIS BLOCK JB360 9P117640 | *ENTER RG JB420FROM FP WHEN RUNNING TOGETHER JB370 9P117650 | * JB380 9P117660 | * JB390 9P117670 16270 -0500 00 1 17334 JB400 CAL NEWRD,1 UPDATE LOCATION OF THIS RECORD JB400 9P117680 | 16271 0621 00 1 17310 STA RECRD,1 JB410 9P117690 | 16272 -0054 00 011000 JB420 LFT 011000 WHERE IS LENGTH FOUND JB420 9P117700 | 16273 0020 00 0 16277 TRA JB500 BY TABLE LOOK UP OF RT JB430 9P117710 | 16274 0500 00 1 72633 CLA NU,1 ALL RECORDS ARE SAME LENGTH JB440 9P117720 16275 0601 00 0 15627 STO RDLEN JB450 9P117730 | 16276 0020 00 0 16333 TRA JB760 JB460 9P117740 | * JB470 9P117750 | * JB480 9P117760 | * JB490 9P117770 16277 0500 00 1 72703 JB500 CLA TBLTL,1 TABLE LOOK-UP RT FOR LENGTH JB500 9P117780 | 16300 -0734 00 4 00000 PDX 0,4 NUMBER OF RT JB510 9P117790 | 16301 0774 00 2 00000 AXT 0,2 JB520 9P117800 | 16302 -0500 60 1 17334 CAL* NEWRD,1 RECORD TYPE THIS RECORD JB530 9P117810 | 16303 -0320 00 0 15621 ANA TPMSK JB540 9P117820 16304 -0340 60 1 72703 LAS* TBLTL,1 JB550 9P117830 | 16305 1 00003 2 16310 TXI *+3,2,3 JB560 9P117840 | 16306 1 77777 2 16314 TXI JB630,2,-1 JB570 9P117850 | 16307 1 00003 2 16310 TXI *+1,2,3 JB580 9P117860 | 16310 2 00001 4 16304 TIX *-4,4,1 JB590 9P117870 16311 -0056 00 010010 LNT 010010 CAN RT BE OMITTED BY RG JB600 9P117880 | 16312 0074 00 4 16073 TSX TYPER+1,4 NO--NOR BY FP. JB610 9P117890 | 16313 1 77774 2 16314 TXI JB630,2,-4 JB620 9P117900 | 16314 -0500 00 1 17334 JB630 CAL NEWRD,1 JB630 9P117910 | 16315 0560 60 1 72703 LDQ* TBLTL,1 JB635 9P117920 16316 0621 60 1 72703 STA* TBLTL,1 UPDATE TYPE BUCKET JB640 9P117930 | 16317 0621 00 0 16350 STA JB840 JB650 9P117940 | 16320 -0500 60 1 72703 CAL* TBLTL,1 JB660 9P117950 | 16321 0602 00 1 17310 SLW RECRD,1 UPDATE LENGTH AND LOCATION BY UNIT JB670 9P117960 | 16322 -0734 00 4 00000 PDX 0,4 JB680 9P117970 16323 1 77777 2 16324 TXI *+1,2,-1 JB690 9P117980 | 16324 -0500 60 1 72703 CAL* TBLTL,1 JB700 9P117990 | 16325 -0760 00 0 00003 SSM JB710 9P118000 | 16326 0601 60 1 72703 STO* TBLTL,1 RECORD OF THIS TYPE IN BLOCK JB720 9P118010 | 16327 -0734 00 2 00000 PDX 0,2 JB725 9P118020 16330 0634 00 2 16352 SXA JB850,2 JB730 9P118030 | 16331 0754 00 4 00000 PXA 0,4 JB740 9P118040 | 16332 0601 00 0 15627 STO RDLEN LENGTH JB750 9P118050 | 16333 0400 00 1 17334 JB760 ADD NEWRD,1 JB760 9P118060 | 16334 0601 00 1 17334 STO NEWRD,1 UPDATE NEXT RECORD LOCATION JB770 9P118070 16335 0500 00 1 17360 CLA CTREM,1 JB780 9P118080 | 16336 0402 00 0 15627 SUB RDLEN JB790 9P118090 | 16337 3 00011 1 16342 TXH *+3,1,9 IF THIS IS HORIZ UNIT, SET CTREM-9 TO 9P118100 | 16340 -3 00010 1 16342 TXL *+2,1,8 ZERO TO ACCOUNT FOR HORIZONTAL RECORDS 9P118110 | 16341 -0754 00 0 00000 PXD 0,0 BEING UNBLOCKED 9P118120 16342 0120 00 0 16344 TPL *+2 JB793 9P118130 | 16343 -0754 00 0 00000 PXD 0,0 JB796 9P118140 | 16344 0601 00 1 17360 STO CTREM,1 COUNT OF WORDS LEFT IN BLOCK JB800 9P118150 | 16345 0534 00 4 15620 LXA IDEX4,4 JB810 9P118160 | 16346 -0056 00 010000 LNT 010000 JB820 9P118170 16347 0020 00 4 00001 TRA 1,4 RETURN TO MAIN IF FP. JB830 9P118180 | 1 LISTING OF 12/01/64 PAGE 283 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | 16350 -0774 00 1 00000 JB840 AXC **,1 INITIALIZE FOR RG JB840 9P118190 16351 0020 00 0 16353 JB845 TRA *+2 (STQ 1,4 AFTER FIRST) JB845 9P118200 | 16352 0020 00 0 00000 JB850 TRA ** RETURN TO MAIN JB850 9P118210 | 16353 -0500 00 0 16356 CAL JB890 CHANGE RG RUN-IN JB860 9P118220 | 16354 0602 00 0 16351 SLW JB845 SWITCH TO JB870 9P118230 | 16355 0020 00 0 16352 TRA JB850 JB880 9P118240 16356 -0600 00 4 00001 JB890 STQ 1,4 SAVE LOC OF LAST OF THIS TYPE JB890 9P118250 | 1 LISTING OF 12/01/64 PAGE 284 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | * JC110 9P118270 *EOF RETURN FROM IOCS. JC120 9P118280 | * JC130 9P118290 | * JC140 9P118300 | 16357 0754 00 1 00000 JC150 PXA 0,1 JC150 9P118310 | 16360 0767 00 0 00001 ALS 1 JC160 9P118320 16361 0734 00 4 00000 PAX 0,4 JC170 9P118330 | 16362 -0500 00 4 17240 CAL FILES,4 JC180 9P118340 | 16363 0737 00 2 00000 PAC 0,2 FILE BLOCK ORIGIN JC190 9P118350 | 16364 0441 00 2 00001 LDI 1,2 JC200 9P118360 | 16365 -0056 00 000400 LNT 000400 IS FILE LABELED JC210 9P118370 16366 0020 00 0 16377 TRA JC350 NO JC220 9P118380 | 16367 0074 00 4 15776 TSX JCA50,4 YES--CLOSE JC230 9P118390 | 16370 0441 00 1 72657 LDI SWTCH,1 JC240 9P118400 | 16371 -0056 00 010000 LNT 010000 JC250 9P118410 | 16372 0020 00 0 16405 TRA JC410 FP - EOF RETURN. JC260 9P118420 16373 0074 00 4 16013 TSX JDB10,4 TO ASK, IS THERE MORE JC270 9P118430 | 16374 0020 00 0 16405 TRA JC410 NO-MORE JC280 9P118440 | 16375 0074 00 4 15674 TSX JBA70,4 YES - REOPEN AND READ JC290 9P118450 | 16376 0020 00 0 16250 TRA JB150 JC300 9P118460 | * JC310 9P118470 * JC320 9P118480 | *EOF FOR UNLABELED FILES. JC330 9P118490 | * JC340 9P118500 | 16377 -0056 00 000040 JC350 LNT 000040 IS M REEL FILE JC350 9P118510 | 16400 0020 00 0 16404 TRA JC400 JC360 9P118520 16401 0074 00 4 16013 TSX JDB10,4 YES--ASK IS THERE MORE JC370 9P118530 | 16402 0020 00 0 16404 TRA JC400 NO MORE JC380 9P118540 | 16403 0020 00 0 16250 TRA JB150 IS MORE--READ IT JC390 9P118550 | 16404 0074 00 4 15776 JC400 TSX JCA50,4 CLOSE FILE JC400 9P118560 | 16405 -0500 00 0 15623 JC410 CAL EOFSW SET EOF SWITCH ON JC410 9P118570 16406 -0602 00 1 72657 ORS SWTCH,1 JC420 9P118580 | 16407 0600 00 1 17360 JC430 STZ CTREM,1 EOF RETURN TO MAIN JC430 9P118590 | 16410 0534 00 4 15620 LXA IDEX4,4 JC440 9P118600 | 16411 0020 00 4 00002 TRA 2,4 JC450 9P118610 | 1 LISTING OF 12/01/64 PAGE 285 FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | *ERROR RETURN FROM IOCS JC470 9P118630 | * JC480 9P118640 | * JC490 9P118650 16412 0074 00 4 16416 JC500 TSX JC550,4 JC500 9P118660 | 16413 0020 00 0 16251 TRA JB160 REREAD JC510 9P118670 | 16414 0020 00 0 16250 TRA JB150 SKIP JC520 9P118680 | 16415 0020 00 0 16262 TRA JB250 ACCEPT JC530 9P118690 | * JC540 9P118700 16416 0634 00 4 16433 JC550 SXA JC660+1,4 JC550 9P118710 | 16417 0634 00 2 16432 SXA JC660,2 JC560 9P118720 | 16420 0074 00 4 16130 TSX JFA50,4 SETUP LOCATIONS JC570 9P118730 | 16421 0621 00 0 16431 STA JC650 JC580 9P118740 | 16422 0754 00 0 00000 PXA 0,0 IS IT PERMANENT JC590 9P118750 16423 -0763 00 0 00001 LGL 1 JC600 9P118760 | 16424 -0100 00 0 16435 TNZ JC700 YES JC610 9P118770 | 16425 0534 00 2 16432 LXA JC660,2 JC620 9P118780 | 16426 2 00001 2 16430 TIX *+2,2,1 JC625 9P118790 | 16427 0020 00 0 16435 TRA JC700 YES JC630 9P118800 16430 0074 00 4 06276 JC640 TSX BSR,4 NO--BACKSPACE RECORD JC640 9P118810 | 16431 0 16432 0 00000 JC650 PZE **,,*+1 JC650 9P118820 | 16432 0774 00 2 00000 JC660 AXT **,2 AND TRY AGAIN JC660 9P118830 | 16433 0774 00 4 00000 AXT **,4 JC670 9P118840 | 16434 0020 00 4 00001 TRA 1,4 JC680 9P118850 * JC690 9P118860 | 16435 -0600 00 0 15630 JC700 STQ BUFER JC700 9P118870 | 16436 -0100 00 0 16451 TNZ JC740-1 WAS PERM READ MESSAGE PRINTED JC705 9P118880 | 16437 -0500 60 0 16431 CAL* JC650 NO--PRINT IT JC710 9P118890 | 16440 0737 00 2 00000 PAC 0,2 JC715 9P118900 16441 0560 00 2 00002 LDQ 2,2 JC720 9P118910 | 16442 0074 00 4 00720 TSX (BCD5R,4 JC724 9P118920 | 16443 0602 00 0 16545 SLW JD360+1 JC726 9P118930 | 16444 0074 00 4 00720 TSX (BCD5R,4 JC728 9P118940 | 16445 0602 00 0 16547 SLW JD360+3 JC730 9P118950 16446 0560 00 2 00000 LDQ 0,2 JC732 9P118960 | 16447 0074 00 4 00722 TSX (CVPRT,4 JC734 9P118970 | 16450 0 04010 0 16544 PZE JD360,,8+512*DBLSP JC736 9P118980 | 16451 0534 00 2 16432 LXA JC660,2 JC738 9P118990 | 16452 0500 00 0 15630 JC740 CLA BUFER JC740 9P119000 16453 -0120 00 0 16462 TMI JC820 IS CHKSUM ERROR. JC750 9P119010 | 16454 -0763 00 0 00001 LGL 1 JC760 9P119020 | 16455 -0760 00 0 00001 PBT JC770 9P119030 | 16456 0020 00 0 16465 TRA JC850 JC780 9P119040 | 16457 0074 00 4 05630 TSX CLIST,4 IS SEQUENCE ERROR JC790 9P119050 16460 1 00003 0 16507 PON JD300,0,3 JC800 9P119060 | 16461 0020 00 0 16465 TRA JC850 JC810 9P119070 | 16462 0074 00 4 05630 JC820 TSX CLIST,4 JC820 9P119080 | 16463 1 00003 0 16512 PON JD310,0,3 JC830 9P119090 | 16464 0020 00 0 16465 TRA JC850 JC840 9P119100 16465 0074 00 4 06302 JC850 TSX CKPT,4 TAKE A CHECKPOINT JC850 9P119110 | 16466 0074 00 4 05630 JC860 TSX CLIST,4 JC860 9P119120 | 16467 -1 00005 0 16515 MON JD320,0,5 JC870 9P119130 | 16470 -1 00006 0 16522 MON JD330,0,6 JC880 9P119140 | 16471 -1 00006 0 16530 MON JD340,0,6 JC890 9P119150 16472 1 00006 0 16536 PON JD350,0,6 JD130 9P119160 | 16473 0074 00 4 00712 TSX (PAUSE,4 JD140 9P119170 | 1 LISTING OF 12/01/64 PAGE 286 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | 16474 0760 00 0 00004 ENK JD150 9P119180 | 16475 0534 00 4 16433 LXA JC660+1,4 JD155 9P119190 | 16476 0754 00 0 00000 PXA 0,0 JD160 9P119200 | 16477 0763 00 0 00041 LLS 33 JD170 9P119210 | 16500 -0100 00 4 00002 TNZ 2,4 KEY 33--SKIP JD180 9P119220 16501 0763 00 0 00001 LLS 1 JD190 9P119230 | 16502 -0100 00 4 00003 TNZ 3,4 KEY 34--ACCEPT JD200 9P119240 | 16503 0763 00 0 00001 LLS 1 JD210 9P119250 | 16504 0100 00 0 16466 TZE JC860 NO KEY DOWN. JD220 9P119260 | 16505 0774 00 2 00012 AXT 10,2 KEY 35--REREAD. JD230 9P119270 16506 0020 00 0 16430 TRA JC640 JD240 9P119280 | * JD250 9P119290 | * JD260 9P119300 | * JD270 9P119310 | * JD280 9P119320 * JD290 9P119330 | 16507 622550642545 JD300 BCI 3,SEQUENCE ERROR. JD300 9P119340 | 16512 233025234262 JD310 BCI 3,CHECKSUM ERROR JD310 9P119350 | 16515 622563604645 JD320 BCI 5,SET ONE OF KEYS 33-35 DOWN JD320 9P119360 | 16522 606060600303 JD330 BCI 6, 33 - TO SKIP THIS TAPE RECORD JD330 9P119370 16530 606060600304 JD340 BCI 6, 34 - TO ACCEPT THIS TAPE RECORD JD340 9P119380 | 16536 606060600305 JD350 BCI 6, 35 - TO REREAD THIS TAPE RECORD JD350 9P119390 | * JD360 9P119400 | 16544 606026314325 JD360 BCI 4, FILE XXXXX REC. XXXXX JD360 9P119410 | 16550 606051255144 BCI 4, RERMANENT READ REDUN. JD361 9P119420 * JD370 9P119430 | * JD380 9P119440 | | | | | *END OF BUFFER RETURN (EOB) FROM IOCS READ. JD400 9P119460 | * JD410 9P119470 | 16554 0074 00 4 04000 JD420 TSX LOST,4 JD420 9P119480 1 LISTING OF 12/01/64 PAGE 287 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | * JJ010 9P119500 | *THE FOLLOWING ROUTINES WRITE ALL FILES. JJ020 9P119510 * IR1 CONTAINS SYMBOLIC UNIT ON ENTRY JJ030 9P119520 | * EXIT IS 1,4 JJ040 9P119530 | * JJ050 9P119540 | *RETURN TO FP AT JJ350 FROM RG WHEN IN COMBINATION JJ060 9P119550 | * JJ070 9P119560 * JJ080 9P119570 | * JJ090 9P119580 | 16555 0634 00 4 15620 OUTPT SXA IDEX4,4 JJ100 9P119590 | 16556 0441 00 1 72657 LDI SWTCH,1 JJ110 9P119600 | 16557 -0054 00 010000 LFT 010000 JJ120 9P119610 16560 0020 00 0 16564 TRA JJ180 ENTRY FROM RG JJ130 9P119620 | 16561 0520 00 0 04406 ZET FPRGSW WAS IT A COMBINED RUN JJ140 9P119630 | 16562 0020 00 0 16757 TRA JL100 YES--SET UP TO ENTER RG JJ150 9P119640 | 16563 0020 00 0 16605 TRA JJ350 NO-- JJ160 9P119650 | * JJ170 9P119660 16564 -0500 00 4 00000 JJ180 CAL 0,4 WAS PRT MACRO USED JJ180 9P119670 | 16565 -0320 00 0 16670 ANA JJ910 JJ190 9P119680 | 16566 0100 00 0 16605 TZE JJ350 NO-- JJ200 9P119690 | 16567 -0500 00 0 16670 CAL JJ910 JJ202 9P119700 | 16570 0760 00 0 00006 COM JJ203 9P119710 16571 0320 00 4 00000 ANS 0,4 JJ204 9P119720 | 16572 -0500 00 1 72633 CAL NU,1 YES--REINITIALIZE BUFFER JJ210 9P119730 | 16573 0734 00 4 00000 PAX 0,4 JJ220 9P119740 | 16574 0400 00 1 17310 ADD RECRD,1 JJ230 9P119750 | 16575 0621 00 0 16601 STA JJ280 JJ240 9P119760 16576 0754 00 0 00000 PXA 0,0 WITH ZEROS JJ250 9P119770 | 16577 0054 00 010000 RFT 010000 OR JJ260 9P119780 | 16600 -0500 00 0 15774 CAL JBG90 BLANKS JJ270 9P119790 | 16601 0602 00 4 00000 JJ280 SLW **,4 JJ280 9P119800 | 16602 2 00001 4 16601 TIX *-1,4,1 JJ290 9P119810 16603 0534 00 4 15620 LXA IDEX4,4 AND RETURN RG JJ300 9P119820 | 16604 0020 00 4 00004 TRA 4,4 SKIPPING COUNTS JJ310 9P119830 | * JJ320 9P119840 | * JJ330 9P119850 | * JJ340 9P119860 16605 -0054 00 001000 JJ350 LFT 001000 WHERE IS RECORD LENGTH FOUND JJ350 9P119870 | 16606 0020 00 0 16612 TRA JJ400 JJ360 9P119880 | 16607 -0500 00 1 72633 CAL NU,1 ALL RECORDS SAME LENGTH JJ370 9P119890 | 16610 0621 00 0 15627 STA RDLEN JJ380 9P119900 | 16611 0020 00 0 16642 TRA JJ650 JJ390 9P119910 16612 0634 00 1 15626 JJ400 SXA UNIT,1 TABLE LOOK-UP TO FIND LENGTH JJ400 9P119920 | 16613 0500 00 1 72703 CLA TBLTL,1 JJ410 9P119930 | 16614 -0734 00 4 00000 PDX 0,4 JJ420 9P119940 | 16615 0774 00 2 00000 AXT 0,2 JJ430 9P119950 | 16616 -0500 60 1 17334 CAL* NEWRD,1 RECORD TYPE THIS RECORD JJ440 9P119960 16617 -0320 00 0 15621 ANA TPMSK JJ450 9P119970 | 16620 -0340 60 1 72703 LAS* TBLTL,1 JJ460 9P119980 | 16621 1 00003 2 16624 TXI *+3,2,3 JJ470 9P119990 | 16622 1 77776 2 16630 TXI JJ540,2,-2 JJ480 9P120000 | 16623 1 00003 2 16624 TXI *+1,2,3 JJ490 9P120010 16624 2 00001 4 16620 TIX *-4,4,1 JJ500 9P120020 | 16625 -0056 00 010010 LNT 010010 CAN RT BE OMITTED BY RG JJ510 9P120030 | 16626 0074 00 4 16072 TSX TYPER,4 NO--NOR BY FP JJ520 9P120040 | 1 LISTING OF 12/01/64 PAGE 288 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | 16627 1 77773 2 16630 TXI JJ540,2,-5 JJ530 9P120050 | 16630 -0500 00 0 15624 JJ540 CAL RIBSW JJ540 9P120060 | 16631 0630 60 1 72703 STP* TBLTL,1 RECORD OF THIS TYPE IN BLOCK JJ550 9P120070 | 16632 1 00001 2 16633 TXI *+1,2,1 JJ560 9P120080 16633 -0500 00 1 17334 CAL NEWRD,1 JJ570 9P120090 | 16634 0621 60 1 72703 STA* TBLTL,1 JJ580 9P120100 | 16635 -0500 60 1 72703 CAL* TBLTL,1 JJ590 9P120110 | 16636 -0734 00 4 00000 PDX 0,4 JJ600 9P120120 | 16637 0754 00 4 00000 PXA 0,4 JJ610 9P120130 16640 0621 00 0 15627 STA RDLEN JJ620 9P120140 | 16641 0534 00 1 15626 LXA UNIT,1 JJ630 9P120150 | * JJ640 9P120160 | 16642 0500 00 1 17360 JJ650 CLA CTREM,1 DECR COUNT OF WORDS REMAINING JJ650 9P120170 | 16643 0402 00 0 15627 SUB RDLEN JJ660 9P120180 16644 0120 00 0 16646 TPL *+2 RECORD LEN GREATER BLOCK LEN 9P120190 | 16645 0074 00 4 04000 TSX LOST,4 YES - STOP JOB 9P120200 | 16646 0601 00 1 17360 STO CTREM,1 JJ670 9P120210 | 16647 0402 00 1 72633 SUB NU,1 WILL ANOTHER RECORD FIT IN BLOCK JJ680 9P120220 | 16650 -0120 00 0 16664 TMI JJ820 NO--WRITE AND START ANOTHER JJ690 9P120230 16651 0500 00 1 17334 CLA NEWRD,1 YES--UPDATE LOCATIONS JJ700 9P120240 | 16652 0400 00 0 15627 ADD RDLEN JJ710 9P120250 | 16653 0621 00 1 17334 STA NEWRD,1 JJ720 9P120260 | 16654 0621 00 1 17310 STA RECRD,1 JJ730 9P120270 | 16655 0056 00 000100 RNT 000100 JJ740 9P120280 16656 0020 00 0 16665 TRA JJ830 JJ750 9P120290 | 16657 0402 00 0 04673 SUB ONE PUT IN GROUP MARK JJ760 9P120300 | 16660 0621 00 0 16662 STA *+2 JJ770 9P120310 | 16661 -0500 00 0 16667 CAL JJ900 JJ780 9P120320 | 16662 0602 00 0 00000 SLW ** JJ790 9P120330 16663 0020 00 0 16665 TRA JJ830 JJ800 9P120340 | * JJ810 9P120350 | 16664 0074 00 4 16671 JJ820 TSX JK070,4 WRITE BLOCK JJ820 9P120360 | 16665 0534 00 4 15620 JJ830 LXA IDEX4,4 RETURN TO MAIN JJ830 9P120370 | 16666 0020 00 4 00001 TRA 1,4 JJ840 9P120380 * JJ850 9P120390 | * JJ860 9P120400 | * JJ870 9P120410 | * JJ880 9P120420 | 16667 -206060606072 JJ900 OCT 606060606072 JJ900 9P120430 16670 +000077000000 JJ910 OCT 000077000000 JJ910 9P120440 | 1 LISTING OF 12/01/64 PAGE 289 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | * JK010 9P120460 *ROUTINE TO WRITE TO TAPE. JK020 9P120470 | * HANDLES GROUP HEADERS FOR F.P. MASTER OUT JK030 9P120480 | * HANDLES BUFFER INITIALIZIATION FOR RG OUTPUT JK040 9P120490 | * JK050 9P120500 | * JK060 9P120510 16671 0634 00 4 16754 JK070 SXA JK740,4 JK070 9P120520 | 16672 -3 00006 1 16705 TXL JK400,1,6 IF NOT FP MASTER OUTPUT JK080 9P120530 | 16673 3 00010 1 16705 TXH JK400,1,8 NOR FP CHANGE OUTPUT JK090 9P120540 | 16674 3 00007 1 16676 TXH *+2,1,7 JK100 9P120550 | 16675 0074 00 4 16136 TSX JGA50,4 HANDLE G H FOR FP MASTER OUT ONLY JK110 9P120560 16676 -0520 00 0 04406 NZT FPRGSW BOTH FP AND RG JK120 9P120570 | 16677 0020 00 0 16705 TRA JK400 JK130 9P120580 | 16700 0634 00 1 16703 SXA JK170,1 YES--HANDLE GROUP HEADERS JK140 9P120590 | 16701 0774 00 1 00012 AXT 10,1 FOR RG ALSO. JK150 9P120600 | 16702 0074 00 4 16136 TSX JGA50,4 JK160 9P120610 16703 0774 00 1 00000 JK170 AXT **,1 JK170 9P120620 | 16704 0020 00 0 16705 TRA JK400 JK180 9P120630 | * JK190 9P120640 | * JK380 9P120650 | * JK390 9P120660 16705 0754 00 1 00000 JK400 PXA 0,1 INIT CALL SEQ AND JK400 9P120670 | 16706 0767 00 0 00001 ALS 1 TSX IOCS TO WRITE JK410 9P120680 | 16707 0734 00 4 00000 PAX 0,4 JK420 9P120690 | 16710 -0500 00 4 17240 CAL FILES,4 JK430 9P120700 | 16711 0621 00 0 16726 STA JW540 JK440 9P120710 16712 0621 00 0 16731 STA JW555 9P120720 | 16713 -0500 00 1 72753 CAL BUSZE,1 JK450 9P120730 | 16714 -0054 00 000002 LFT 000002 JK455 9P120740 | 16715 0402 00 0 04721 SUB 1B17 JK456 9P120750 | 16716 0622 00 0 16732 STD JW560 JK460 9P120760 16717 -0765 00 0 00022 LGR 18 JK470 9P120770 | 16720 0402 00 1 17360 SUB CTREM,1 JK480 9P120780 | 16721 -0763 00 0 00022 LGL 18 JK490 9P120790 | 16722 0622 00 0 16727 STD JW550 JK500 9P120800 | 16723 -0500 00 1 17264 CAL OUTLC,1 JK510 9P120810 16724 0621 00 0 16727 STA JW550 JK520 9P120820 | 16725 0074 00 4 06266 TSX WRITE,4 JK530 9P120830 | 16726 0 16756 0 00000 JW540 PZE **,,JK790 JK540 9P120840 | 16727 -1 00000 2 00000 JW550 IOCTN **,,** WRITE THIS BUFFER 9P120850 | 16730 0074 00 4 06266 TSX WRITE,4 LOCATE NEXT BUFFER 9P120860 16731 0 16756 0 00000 JW555 PZE **,,JK790 LOC FCB,,END OF BUFFER 9P120870 | 16732 -3 00000 2 00000 JW560 IOSTN **,,** FIRST WORD,,WORD COUNT 9P120880 | 16733 -0500 00 0 16732 CAL JW560 INIT LOCATION AND COUNT JK570 9P120890 | 16734 0621 00 1 17334 STA NEWRD,1 JK580 9P120900 | 16735 0621 00 1 17310 STA RECRD,1 JK590 9P120910 16736 0621 00 1 17264 STA OUTLC,1 JK600 9P120920 | 16737 -0765 00 0 00022 LGR 18 JK610 9P120930 | 16740 0621 00 1 17360 STA CTREM,1 JK620 9P120940 | 16741 0441 00 1 72657 LDI SWTCH,1 SHOULD BUFFERS BE PRESET JK630 9P120950 | 16742 0056 00 100000 RNT 100000 JK635 9P120960 16743 0020 00 0 16754 TRA JK740 JK640 9P120970 | 16744 0734 00 4 00000 PAX 0,4 INIT BUFFERS WITH JK650 9P120980 | 16745 0400 00 1 17334 ADD NEWRD,1 JK660 9P120990 | 16746 0621 00 0 16752 STA JK710 JK670 9P121000 | 1 LISTING OF 12/01/64 PAGE 290 FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | 16747 0754 00 0 00000 PXA 0,0 ZEROS JK680 9P121010 | 16750 0054 00 010000 RFT 010000 OR JK690 9P121020 | 16751 -0500 00 0 15774 CAL JBG90 BLANKS JK700 9P121030 16752 0602 00 4 00000 JK710 SLW **,4 JK710 9P121040 | 16753 2 00001 4 16752 TIX *-1,4,1 JK720 9P121050 | * JK730 9P121060 | 16754 0774 00 4 00000 JK740 AXT **,4 JK740 9P121070 | 16755 0020 00 4 00001 TRA 1,4 JK750 9P121080 | | | | *END OF BUFFER (EOB) RETURN FROM IOCS WRITE JK770 9P121100 | * JK780 9P121110 | 16756 0074 00 4 04000 JK790 TSX LOST,4 JK790 9P121120 | 1 LISTING OF 12/01/64 PAGE 291 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | *THESE PROGRAMS TIE FP AND RG TOGETHER JL010 9P121140 | * JL020 9P121150 | *JUST BEFORE FP WRITES A RECORD, CONTROL IS PASSED JL030 9P121160 | * TO RG THROUGH JL100 SIMULATING A RG READ REQUEST. JL040 9P121170 * JL050 9P121180 | *THE NEXT TIME RG REQUESTS A READ, CONTROL IS RETURNED JL060 9P121190 | * TO FP THROUGH JL200 TO COMPLETE WRITE AND TO JL070 9P121200 | * CONTINUE FP PROCESSING. JL080 9P121210 | * JL090 9P121220 16757 0534 00 4 15620 JL100 LXA IDEX4,4 JL100 9P121230 | 16760 0634 00 4 16771 SXA JL200,4 SAVE FP WRITE ENTRY JL105 9P121240 | 16761 0534 00 4 17003 LXA JM350,4 JL110 9P121250 | 16762 0634 00 4 15620 SXA IDEX4,4 ASSUME RG READ ENTRY JL115 9P121260 | 16763 0634 00 1 16773 SXA JL220,1 SAVE FP UNIT JL120 9P121270 16764 -0500 00 1 17310 CAL RECRD,1 GIVE FP WRITE RECORD JL130 9P121280 | 16765 0774 00 1 00012 AXT 10,1 TO RG INPUT JL140 9P121290 | 16766 0621 00 1 17334 STA NEWRD,1 NEXT READ RECORD JL150 9P121300 | 16767 0441 00 1 72657 LDI SWTCH,1 JL160 9P121310 | 16770 0020 00 0 16272 TRA JB420 JL170 9P121320 * JL180 9P121330 | * JL190 9P121340 | 16771 0774 00 4 00000 JL200 AXT **,4 RESTORE FP WRITE ENTRY JL200 9P121350 | 16772 0020 00 0 16776 JL210 TRA JL250 (SXA IDEX4,4 AFTER 1ST) JL210 9P121360 | 16773 0774 00 1 00000 JL220 AXT **,1 RESTORE FP WRITE UNIT JL220 9P121370 16774 0441 00 1 72657 LDI SWTCH,1 JL230 9P121380 | 16775 0020 00 0 16605 TRA JJ350 JL240 9P121390 | 16776 0534 00 1 15620 JL250 LXA IDEX4,1 INITIALIZE RG READ JL250 9P121400 | 16777 0634 00 1 17003 SXA JM350,1 ENTRY LOCATION JL260 9P121410 | 17000 -0500 00 0 17004 CAL JM360 JL270 9P121420 17001 0602 00 0 16772 SLW JL210 JL280 9P121430 | 17002 0020 00 0 16772 TRA JL210 JL290 9P121440 | * JL300 9P121450 | * JL310 9P121460 | * JL320 9P121470 * JL330 9P121480 | * JL340 9P121490 | 17003 0 00000 0 00000 JM350 PZE ** JL350 9P121500 | 17004 0634 00 4 15620 JM360 SXA IDEX4,4 JL360 9P121510 | * JL370 9P121520 * JL380 9P121530 | * JL390 9P121540 | 1 LISTING OF 12/01/64 PAGE 292 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | * JM010 9P121560 | *THE FOLLOWING ROUTINES CLEAN OUT BUFFERS AND CLOSE JM020 9P121570 | * ALL OUTPUT FILE AT END OF JOB JM030 9P121580 | * JM040 9P121590 | * JM050 9P121600 * JM060 9P121610 | * JM070 9P121620 | * JM080 9P121630 | * JM090 9P121640 | 17005 0534 00 4 17003 EOJOB LXA JM350,4 JM100 9P121650 17006 -3 00000 4 17012 TXL JM150,4,0 JM110 9P121660 | 17007 0600 00 0 17003 STZ JM350 IF FP-RG COMBINATION-- JM120 9P121670 | 17010 0774 00 1 00012 AXT 10,1 SET XR1 TO RG INPUT JM125 9P121680 | 17011 0020 00 4 00002 TRA 2,4 GIVE EOF RETURN TO RG. JM130 9P121690 | * JM140 9P121700 17012 0774 00 1 00024 JM150 AXT 20,1 JM150 9P121710 | 17013 0441 00 1 72657 JM160 LDI SWTCH,1 JM160 9P121720 | 17014 -0056 00 100001 LNT 100001 IS UNIT USED AS OUTPUT JM170 9P121730 | 17015 0020 00 0 17041 TRA JM390 JM180 9P121740 | 17016 -0500 00 1 72753 CAL BUSZE,1 YES-- JM190 9P121750 17017 -0765 00 0 00022 LGR 18 DOES A PARTIAL BUFFER JM200 9P121760 | 17020 0402 00 1 17360 SUB CTREM,1 NEED WRITING JM210 9P121770 | 17021 0100 00 0 17040 TZE JM380 JM220 9P121780 | 17022 0056 00 001000 RNT 001000 YES--IS PADDING REQUESTED JM230 9P121790 | 17023 0020 00 0 17037 TRA JM370 JM240 9P121800 17024 -0500 00 1 17360 CAL CTREM,1 YES-- JM250 9P121810 | 17025 0734 00 4 00000 PAX 0,4 INIT LOOP FOR JM260 9P121820 | 17026 0400 00 1 17310 ADD RECRD,1 JM270 9P121830 | 17027 0621 00 0 17034 STA JM330 JM280 9P121840 | 17030 -0500 00 0 17142 CAL JN150 BCD HIGH PADDING JM290 9P121850 17031 0560 00 0 17143 LDQ JN160 BIN HIGH PADDING JM300 9P121860 | 17032 0056 00 003000 RNT 003000 JM310 9P121870 | 17033 -0130 00 0 00000 XCL JM320 9P121880 | 17034 0602 00 4 00000 JM330 SLW **,4 AND FILL REMAINDER OF BUFFER JM330 9P121890 | 17035 2 00001 4 17034 TIX JM330,4,1 JM340 9P121900 17036 0600 00 1 17360 STZ CTREM,1 TO WRITE FULL BLOCK JM345 9P121910 | * JM350 9P121920 | * JM360 9P121930 | 17037 0074 00 4 16671 JM370 TSX JK070,4 WRITE TO TAPE JM370 9P121940 | 17040 0074 00 4 15776 JM380 TSX JCA50,4 IOCS CLOSE FILE JM380 9P121950 17041 2 00001 1 17013 JM390 TIX JM160,1,1 MORE UNITS TO PROCESS JM390 9P121960 | * JM400 9P121970 | * JM410 9P121980 | 17042 -0500 00 0 04532 CAL CKPTAP IS THERE A CKPT FILE JM412 9P121990 | 17043 0100 00 0 17047 TZE JM426 JM414 9P122000 17044 0621 00 0 17046 STA *+2 YES--CLOSE IT. JM416 9P122010 | 17045 0074 00 4 06260 TSX CLOSE,4 JM118 9P122020 | 17046 2 00000 0 00000 PTW ** JM420 9P122030 | * JM422 9P122040 | * JM424 9P122050 17047 0774 00 1 00012 JM426 AXT 10,1 IS THIS RG RUN JM426 9P122060 | 17050 0441 00 1 72657 LDI SWTCH,1 JM430 9P122070 | 17051 -0056 00 010000 LNT 010000 9P122080 | 17052 0020 00 0 17134 TRA JM960 JM450 9P122090 | 17053 0074 00 4 16130 TSX JFA50,4 YES--PRINT COUNTS FOR RG JM460 9P122100 1 LISTING OF 12/01/64 PAGE 293 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | 17054 -0500 00 2 00011 CAL 9,2 JM470 9P122110 | 17055 0602 00 0 17152 SLW JN200 JM480 9P122120 17056 -0500 00 2 00012 CAL 10,2 JM490 9P122130 | 17057 0602 00 0 17153 SLW JN200+1 JM500 9P122140 | 17060 -0500 00 2 00013 CAL 11,2 JM510 9P122150 | 17061 0602 00 0 17154 SLW JN200+2 JM520 9P122160 | 17062 -0500 00 1 17404 CAL RDCNT,1 INPUT RECORD COUNT JM530 9P122170 17063 0602 00 0 17156 SLW JN200+4 JM570 9P122180 | 17064 0074 00 4 05630 TSX CLIST,4 JM580 9P122190 | 17065 1 00010 3 17152 PON JN200,3,8 JM590 9P122200 | * JM610 9P122210 | 17066 0774 00 1 00024 AXT 20,1 JM620 9P122220 17067 0441 00 1 72657 JM630 LDI SWTCH,1 JM630 9P122230 | 17070 -0056 00 010001 LNT 010001 IS IT RG OUTPUT JM640 9P122240 | 17071 0020 00 0 17133 TRA JM950 JM645 9P122250 | 17072 0500 00 1 17404 CLA RDCNT,1 JM650 9P122260 | 17073 0602 00 0 17156 SLW JN200+4 JM690 9P122270 17074 0074 00 4 16130 TSX JFA50,4 JM700 9P122280 | 17075 -0500 00 2 00011 CAL 9,2 JM710 9P122290 | 17076 0602 00 0 17152 SLW JN200 JM720 9P122300 | 17077 -0500 00 2 00012 CAL 10,2 JM730 9P122310 | 17100 0602 00 0 17153 SLW JN200+1 JM740 9P122320 17101 -0500 00 2 00013 CAL 11,2 JM750 9P122330 | 17102 0602 00 0 17154 SLW JN200+2 JM760 9P122340 | 17103 0074 00 4 05630 TSX CLIST,4 JM770 9P122350 | 17104 1 00010 3 17152 PON JN200,3,8 JM780 9P122360 | * JM790 9P122370 17105 -0520 00 1 17404 NZT RDCNT,1 JM800 9P122380 | 17106 0020 00 0 17133 TRA JM950 JM810 9P122390 | 17107 0441 00 1 72657 LDI SWTCH,1 PRINT GROUP SWITCH MESSAGE JM820 9P122400 | 17110 0056 00 000100 RNT 000100 JM830 9P122410 | 17111 0020 00 0 17133 TRA JM950 JM840 9P122420 17112 -0500 00 0 17144 CAL JN162 JM850 9P122430 | 17113 0320 00 0 17164 ANS JN220+2 JM852 9P122440 | 17114 -0500 00 0 17145 CAL JN164 JM854 9P122450 | 17115 0320 00 0 17166 ANS JN220+4 JM856 9P122460 | 17116 -0500 00 0 17150 CAL JN180 JM858 9P122470 17117 0056 00 000300 RNT 000300 JM860 9P122480 | 17120 -0500 00 0 17151 CAL JN190 JM862 9P122490 | 17121 -0602 00 0 17166 ORS JN220+4 JM864 9P122500 | 17122 0560 00 1 72633 LDQ NU,1 CONVERT WORDS TO CHARACTERS JM866 9P122510 | 17123 0200 00 0 04700 MPY SIX JM868 9P122520 17124 -0130 00 0 00000 XCL JM870 9P122530 | 17125 0074 00 4 00716 TSX (DECVA,4 JM880 9P122540 | 17126 -0130 00 0 00000 XCL JM882 9P122550 | 17127 -0320 00 0 17146 ANA JN166 JM884 9P122560 | 17130 -0602 00 0 17164 ORS JN220+2 JM886 9P122570 17131 0074 00 4 05630 TSX CLIST,4 JM890 9P122580 | 17132 1 00007 3 17162 PON JN220,3,7 JM900 9P122590 | * JM910 9P122600 | * JM920 9P122610 | * JM930 9P122620 * JM940 9P122630 | 17133 2 00001 1 17067 JM950 TIX JM630,1,1 MORE UNITS TO PROCESS JM950 9P122640 | 17134 0774 00 1 00007 JM960 AXT 7,1 JM960 9P122650 | 1 LISTING OF 12/01/64 PAGE 294 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | 17135 -0500 00 1 72657 CAL SWTCH,1 JM970 9P122660 | 17136 -0320 00 0 17147 ANA JN170 JM980 9P122670 | 17137 0322 00 0 17147 ERA JN170 JM990 9P122680 | 17140 0100 00 0 22754 TZE Y8010 TO PRINT FP COUNTS JN010 9P122690 17141 0020 00 0 06246 TRA IOCS TO PRINT JOB COMPLETE JN020 9P122700 | * JN030 9P122710 | * JN040 9P122720 | * JN050 9P122730 | * JN060 9P122740 * JN070 9P122750 | * JN080 9P122760 | * JN090 9P122770 | * JN110 9P122780 | *THE FOLLOWING ARE CONSTANTS, MESSAGES, ETC USED JN120 9P122790 * WITH INPUT-OUTPUT JN130 9P122800 | * JN140 9P122810 | 17142 111111111111 JN150 BCI 1,999999 BCD HIGH PADDING JN150 9P122820 | 17143 -377777777777 JN160 OCT 777777777777 BIN HIGH PADDING JN160 9P122830 | 17144 -377777000000 JN162 OCT 777777000000 JN162 9P122840 17145 -377777770000 JN164 OCT 777777770000 JN164 9P122850 | 17146 +000000777777 JN166 OCT 000000777777 JN166 9P122860 | 17147 +100000000000 JN170 OCT 100000000000 JN170 9P122870 | 17150 000000006005 JN180 BCI 1,0000 5 9P122880 | 17151 000000000100 JN190 BCI 1,000010 9P122890 17152 606060606060 JN200 BCI 5, JN200 9P122900 | 17157 604346273123 BCI 3, LOGICAL RECORD JN210 9P122910 | 17162 466463476463 JN220 BCI 7,OUTPUT GROUPED XXX CHAR/REC,XX REC/BLOCK. JN220 9P122920 | 1 LISTING OF 12/01/64 PAGE 295 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | *THE FOLLOWING TABLES ARE USED AT OBJECT TIME 9P122940 | * 9P122950 | *THE FOLLOWING ARE THE LISTS FOR IOCS 9P122960 | * 9P122970 17171 -3 00000 0 00001 SVN 1,,** 19 9P122980 | 17172 0 00000 0 04004 PZE FIL19 9P122990 | 17173 -3 00000 0 00001 SVN 1,,** 18 9P123000 | 17174 0 00000 0 04020 PZE FIL18 9P123010 | 17175 -3 00000 0 00001 SVN 1,,** 17 9P123020 17176 0 00000 0 04034 PZE FIL17 9P123030 | 17177 -3 00000 0 00001 SVN 1,,** 16 9P123040 | 17200 0 00000 0 04050 PZE FIL16 9P123050 | 17201 -3 00000 0 00001 SVN 1,,** 15 9P123060 | 17202 0 00000 0 04064 PZE FIL15 9P123070 17203 -3 00000 0 00001 SVN 1,,** 14 9P123080 | 17204 0 00000 0 04100 PZE FIL14 9P123090 | 17205 -3 00000 0 00001 SVN 1,,** 13 9P123100 | 17206 0 00000 0 04114 PZE FIL13 9P123110 | 17207 -3 00000 0 00001 SVN 1,,** 12 9P123120 17210 0 00000 0 04130 PZE FIL12 9P123130 | 17211 -3 00000 0 00001 SVN 1,,** 11 9P123140 | 17212 0 00000 0 04144 PZE FIL11 9P123150 | 17213 -3 00000 0 00001 SVN 1,,** 10 9P123160 | 17214 0 00000 0 04160 PZE FIL10 9P123170 17215 -3 00000 0 00001 SVN 1,,** 9 9P123180 | 17216 0 00000 0 04174 PZE FIL09 9P123190 | 17217 -3 00000 0 00001 SVN 1,,** 8 9P123200 | 17220 0 00000 0 04210 PZE FIL08 9P123210 | 17221 -3 00000 0 00001 SVN 1,,** 7 9P123220 17222 0 00000 0 04224 PZE FIL07 9P123230 | 17223 -3 00000 0 00001 SVN 1,,** 6 9P123240 | 17224 0 00000 0 04240 PZE FIL06 9P123250 | 17225 -3 00000 0 00001 SVN 1,,** 5 9P123260 | 17226 0 00000 0 04254 PZE FIL05 9P123270 17227 -3 00000 0 00001 SVN 1,,** 4 9P123280 | 17230 0 00000 0 04270 PZE FIL04 9P123290 | 17231 -3 00000 0 00001 SVN 1,,** 3 9P123300 | 17232 0 00000 0 04304 PZE FIL03 9P123310 | 17233 -3 00000 0 00001 SVN 1,,** 2 9P123320 17234 0 00000 0 04320 PZE FIL02 9P123330 | 17235 -3 00000 0 00001 SVN 1,,** 1 9P123340 | 17236 0 00000 0 04334 PZE FIL01 9P123350 | 17237 -3 00000 0 00001 LISTS SVN 1,,** 0 9P123360 | 17240 0 00000 0 04350 FILES PZE FIL00 9P123370 * 9P123380 | * 9P123390 | *THE FOLLOWING TABLE IS LOCATION OF LISTS ADD OUTPUT LOCATIONS 9P123400 | * 9P123410 | * 9P123420 17241 0 17171 0 00001 PZE 1,,LISTS-38 9P123430 | 17242 0 17173 0 00001 PZE 1,,LISTS-36 9P123440 | 17243 0 17175 0 00001 PZE 1,,LISTS-34 9P123450 | 17244 0 17177 0 00001 PZE 1,,LISTS-32 9P123460 | 17245 0 17201 0 00001 PZE 1,,LISTS-30 9P123470 17246 0 17203 0 00001 PZE 1,,LISTS-28 9P123480 | 1 LISTING OF 12/01/64 PAGE 296 | FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | 17247 0 17205 0 00001 PZE 1,,LISTS-26 9P123490 17250 0 17207 0 00001 PZE 1,,LISTS-24 9P123500 | 17251 0 17211 0 00001 PZE 1,,LISTS-22 9P123510 | 17252 0 17213 0 00001 PZE 1,,LISTS-20 9P123520 | 17253 0 17215 0 00001 PZE 1,,LISTS-18 9P123530 | 17254 0 17217 0 00001 PZE 1,,LISTS-16 9P123540 17255 0 17221 0 00001 PZE 1,,LISTS-14 9P123550 | 17256 0 17223 0 00001 PZE 1,,LISTS-12 9P123560 | 17257 0 17225 0 00001 PZE 1,,LISTS-10 9P123570 | 17260 0 17227 0 00001 PZE 1,,LISTS-8 9P123580 | 17261 0 17231 0 00001 PZE 1,,LISTS-6 9P123590 17262 0 17233 0 00001 PZE 1,,LISTS-4 9P123600 | 17263 0 17235 0 00001 PZE 1,,LISTS-2 9P123610 | 17264 0 17237 0 00001 LSLOC PZE 1,,LISTS 9P123620 | 17264 OUTLC EQU LSLOC 9P123630 | * 9P123640 * 9P123650 | * 9P123660 | *THIS TABLE KEEPS LOCATION OF CURRENT RECORD BY UNIT. 9P123670 | * USED AT OBJECT TIME. 9P123680 | * 9P123690 * 9P123700 | 17265 0 00000 0 00000 PZE 9P123710 | 17266 0 00000 0 00000 PZE 9P123720 | 17267 0 00000 0 00000 PZE 9P123730 | 17270 0 00000 0 00000 PZE 9P123740 17271 0 00000 0 00000 PZE 9P123750 | 17272 0 00000 0 00000 PZE 9P123760 | 17273 0 00000 0 00000 PZE 9P123770 | 17274 0 00000 0 00000 PZE 9P123780 | 17275 0 00000 0 00000 PZE 9P123790 17276 0 00000 0 00000 RGLOC PZE 9P123800 | 17277 0 00000 0 00000 PZE 9P123810 | 17300 0 00000 0 00000 CHLOC PZE 9P123820 | 17301 0 00000 0 00000 SFLOC PZE 9P123830 | 17302 0 00000 0 00000 PZE 9P123840 17303 0 00000 0 00000 PZE 9P123850 | 17304 0 00000 0 00000 PZE 9P123860 | 17305 0 00000 0 00000 PZE 9P123870 | 17306 0 00000 0 00000 PZE 9P123880 | 17307 0 00000 0 00000 PZE 9P123890 17310 0 00000 0 00000 INLOC PZE 9P123900 | 17310 RECRD EQU INLOC 9P123910 | * 9P123920 | * 9P123930 | *FIRST WORD OF NEXT RECORD BY UNIT 9P123940 * 9P123950 | 17311 BSS 19 9P123960 | 17334 0 00000 0 00000 NEWRD PZE 0 9P123970 | * 9P123980 | *THE FOLLOWING TABLE KEEPS COUNT OF WORDS REMAINING TO BE PROCESSE 9P123990 * IN AN IMPUT BUFFER OR AWAILABLE FOR AN OUTPUT BUFFER. 9P124000 | * 9P124010 | 17335 BSS 19 9P124020 | 17360 0 00000 0 00000 CTREM PZE 9P124030 | 1 LISTING OF 12/01/64 PAGE 297 FIXED OBJECT FOR FP AND RG---LOGICAL RECORD HANDLING | | 17361 DUP 1,19 9P124040 | 17361 0 00000 0 00000 PZE 0 9P124050 | 17404 0 00000 0 00000 BKSPT PZE 0 9P124060 17404 RDCNT SYN BKSPT RG RECORD COUNTS 9P124070 | * 9P124080 | 17405 BSS 100 FIXED BOONDOCKS 9P124090 | 17551 DEXIF BSS 1 9P124100 | 00000 TCD 0 9P124110 1 LISTING OF 12/01/64 PAGE 298 | FPFIXD FIXED ROUTINES OF FP | | 17552 114721230102 BCI 1,9PAC12 9P124140 | 17553 264726316724 BCI 1,FPFIXD 9P124150 00100 ORG SYSTRA 9P124160 | 00100 0020 00 0 17622 TRA Z1000 9P124170 | 17554 ORG DEXIF+3 9P124180 | 17554 0502 00 0 17310 BKSPC CLS INLOC 9P124190 | 17555 0771 00 0 00022 ARS 18 9P124200 17556 0400 00 0 17334 ADD NEWRD SUBTRACT RECORD LENGTH 9P124210 | 17557 0621 00 0 17334 STA NEWRD FROM LOCATION OF NEXT RECORD 9P124220 | 17560 0020 00 4 00001 TRA 1,4 9P124230 | 1 LISTING OF 12/01/64 PAGE 299 | FPFIXD FIXED ROUTINES OF FP | * 9P124250 | *ROUTINE TO DELETE A RECORD FROM SOURCE FILE OUT. 9P124260 | * ENTERED AS A RESULT OF A PACKET WITH D ACTION. 9P124270 | * 9P124280 17561 0634 00 4 15620 DELET SXA IDEX4,4 9P124290 | 17562 0774 00 1 00007 AXT 7,1 9P124300 | 17563 0500 00 1 72703 CLA TBLTL,1 9P124310 | 17564 -0734 00 4 00000 PDX 0,4 9P124320 | 17565 0774 00 2 00000 AXT 0,2 9P124330 17566 -0500 60 1 17334 CAL* NEWRD,1 9P124340 | 17567 -0320 00 0 15621 ANA TPMSK 9P124350 | 17570 -0340 60 1 72703 LAS* TBLTL,1 9P124360 | 17571 1 00003 2 17574 TXI *+3,2,3 9P124370 | 17572 1 77776 2 17576 TXI *+4,2,-2 9P124380 17573 1 00003 2 17574 TXI *+1,2,3 9P124390 | 17574 2 00001 4 17570 TIX *-4,4,1 9P124400 | 17575 0074 00 4 16072 TSX TYPER,4 9P124410 | 17576 0500 60 1 72703 CLA* TBLTL,1 9P124420 | 17577 0100 00 0 17620 TZE DLET2 9P124430 17600 0630 60 1 72703 STP* TBLTL,1 9P124440 | 17601 0621 00 0 17611 STA *+8 9P124450 | 17602 1 00001 2 17603 TXI *+1,2,1 9P124460 | 17603 -0500 60 1 72703 CAL* TBLTL,1 9P124470 | 17604 -0737 00 4 00000 PDC 0,4 9P124480 17605 -0500 00 1 17334 CAL NEWRD,1 9P124490 | 17606 0621 00 0 17610 STA *+2 9P124500 | 17607 1 00001 4 17610 TXI *+1,4,1 9P124510 | 17610 0560 00 4 00000 LDQ ..,4 9P124520 | 17611 -0600 00 4 00000 STQ ..,4 9P124530 17612 3 00000 4 17607 TXH *-3,4,0 9P124540 | 17613 -0500 00 0 17611 CAL *-2 9P124550 | 17614 0621 60 1 72703 STA* TBLTL,1 9P124560 | 17615 0500 60 1 72703 CLA* TBLTL,1 9P124570 | 17616 0534 00 4 15620 LXA IDEX4,4 9P124580 17617 0020 00 4 00001 TRA 1,4 9P124590 | 17620 -0500 00 1 17334 DLET2 CAL NEWRD,1 9P124600 | 17621 1 00001 2 17614 TXI *-5,2,1 9P124610 | 1 LISTING OF 12/01/64 PAGE 300 | FPFIXD FIXED ROUTINES OF FP | 17622 BSS 19 9P124630 | 17645 BKSCT BSS 1 9P124640 | 17646 BSS 19 9P124650 | 17671 NSLCT BSS 1 9P124660 17672 BSS 19 9P124670 | 17715 Y9920 BSS 1 9P124680 | 17716 BSS 19 9P124690 | 17741 Y9940 BSS 1 9P124700 | 1 LISTING OF 12/01/64 PAGE 301 FPFIXD FIXED ROUTINES OF FP | | *THE FOLLOWING ROUTINE EITHER 9P124720 | * 1. READS RGFIXD--WHEN FP AND RG ARE IN COMBINATION. 9P124730 | * 2. READS OBJECT--WHEN FP STANDS ALONE. 9P124740 *IT OVERLAYS FPFIXD OBJECT TABLES AND ZEROS ITSELF ON EXIT) 9P124750 | *ENTRY IS MADE WHEN FPFIXD IS READ. 9P124760 | * 9P124770 | * 9P124780 | 17622 ORG BKSCT-19 9P124790 17622 -0520 00 0 04707 Z1000 NZT NOSFD 9P124800 | 17623 0020 00 0 17632 TRA Z1080 9P124810 | 17624 0500 00 0 04522 CLA SYMTAP-7 IF NO DIXT ON MASTER OUT 9P124820 | 17625 0120 00 0 17632 TPL Z1080 9P124830 | 17626 0074 00 4 06342 TSX TPOSIT,4 AND TAPE IS LABELED 9P124840 17627 0 00000 0 00007 PZE 7 9P124850 | 17630 0074 00 4 05505 TSX NDSRT,4 WRITE EOF TO ERASE 9P124860 | 17631 0 00007 0 00007 PZE 7,0,7 9P124870 | 17632 -0520 00 0 04710 Z1080 NZT NOCHD 9P124880 | 17633 0020 00 0 17642 TRA Z1160 9P124890 17634 0500 00 0 04521 CLA SYMTAP-8 IF NO DICT ON CHG FILE OUT 9P124900 | 17635 0120 00 0 17642 TPL Z1160 9P124910 | 17636 0074 00 4 06342 TSX TPOSIT,4 AND TAPE IS LABELED 9P124920 | 17637 0 00000 0 00010 PZE 8 9P124930 | 17640 0074 00 4 05505 TSX NDSRT,4 WRITE EOF TO ERASE 9P124940 17641 0 00007 0 00010 PZE 8,0,7 9P124950 | 17642 0074 00 4 05630 Z1160 TSX CLIST,4 WRITE GENERATION COMPLERE 9P124960 | 17643 0 00006 3 17657 PZE Z1410,3,6 9P124970 | * 9P124980 | 17644 -0520 00 0 04406 NZT FPRGSW TEST IF FP-RG COMBINED 9P124990 17645 0020 00 0 17652 TRA Z1260 9P125000 | 17646 0074 00 4 04752 TSX SYSRD,4 YES--READ RGFIXD 9P125010 | 17647 114721230103 BCI 1,9PAC13 9P125020 | 17650 -0 03777 0 76777 MZE SORTT+STZE,,STZE 9P125030 | 17651 0 00120 0 17742 PZE CVBIN,,CVBIN-Z1000 9P125040 * 9P125050 | 17652 0074 00 2 05004 Z1260 TSX FSRSYS,2 FP ALONE, PASS RGFIXD 9P125060 | 17653 0074 00 4 04752 TSX SYSRD,4 AND READ OBJECT 9P125070 | 17654 114721230104 BCI 1,9PAC14 9P125080 | 17655 -0 11305 0 17551 MZE DEXIF,,DEXIF-OBJECT 9P125090 17656 0 00120 0 17742 PZE CVBIN,,CVBIN-Z1000 9P125100 | * 9P125110 | * 9P125120 | 17657 602631432560 Z1410 BCI 6, FILE PROCESSOR GENERATION COMPLETE 9P125130 | * 9P125140 1 LISTING OF 12/01/64 PAGE 302 | FPFIXD FIXED ROUTINES OF FP | | 17742 ORG Y9940+1 9P125160 | 1 LISTING OF 12/01/64 PAGE 303 FPFIXD FIXED ROUTINES OF FP | | * BCD TO BINARY SUB-ROUTINE 9P125180 | * 9P125190 | 17742 -0625 00 0 20100 CVBIN STL B1090 9P125200 17743 -0500 00 0 15646 CAL BCDBF-1 B0002 9P125210 | 17744 0602 00 0 20065 SLW B1010 B0003 9P125220 | 17745 -0500 00 0 15647 CAL BCDBF B0004 9P125230 | 17746 0602 00 0 20066 SLW B1020 9P125240 | 17747 0634 00 4 20020 TOBIN SXA B0460,4 B0010 9P125250 17750 0634 00 1 20021 B0011 SXA B0461,1 B0011 9P125260 | 17751 0600 00 0 20067 B0012 STZ B1025 B0012 9P125270 | 17752 0441 00 0 20066 LDI B1020 B0020 9P125280 | 17753 0600 00 0 20064 STZ B1000 B0021O9P125290 | 17754 -0500 00 0 20070 CAL B1030 B0030 9P125300 17755 0320 00 0 20066 ANS B1020 B0040 9P125310 | 17756 -0520 00 0 20066 NZT B1020 B0050 9P125320 | 17757 0020 00 0 17766 TRA B0070 B0060 9P125330 | 17760 -0500 00 0 20066 CAL B1020 B0061 9P125340 | 17761 -0320 00 0 20076 ANA B1070 B0062 9P125350 17762 0402 00 0 20075 SUB B1060 B0063 9P125360 | 17763 -0100 00 0 17766 TNZ *+3 B0064 9P125370 | 17764 -0500 00 0 20077 CAL B1080 B0065O9P125380 | 17765 0320 00 0 20066 ANS B1020 B0066 9P125390 | 17766 -0520 00 0 20065 B0070 NZT B1010 B0070 9P125400 17767 0020 00 0 17776 TRA B0150 B0080 9P125410 | 17770 0560 00 0 20065 LDQ B1010 B0090 9P125420 | 17771 0074 00 1 20037 TSX B0500,1 B0100 9P125430 | 17772 0131 00 0 00000 XCA B0110 9P125440 | 17773 0200 00 0 20073 MPY B1040 B0120 9P125450 17774 0131 00 0 00000 XCA B0130 9P125460 | 17775 0601 00 0 20064 STO B1000 B0140 9P125470 | 17776 0560 00 0 20066 B0150 LDQ B1020 B0150 9P125480 | 17777 0074 00 1 20037 TSX B0500,1 B0160 9P125490 | 20000 0400 00 0 20064 ADD B1000 B0370 9P125500 20001 0056 00 000040 RNT 40 B0380 9P125510 | 20002 0020 00 0 20006 TRA *+4 B0390 9P125520 | 20003 0054 00 000020 RFT 20 B0400 9P125530 | 20004 0020 00 0 20023 TRA B0470 B0410 9P125540 | 20005 -0760 00 0 00003 SSM B0420 9P125550 20006 0601 00 0 20064 STO B1000 B0430 9P125560 | 20007 0600 00 0 20065 STZ B1010 B0440 9P125570 | 20010 0600 00 0 20066 STZ B1020 B0450 9P125580 | 20011 -0520 00 0 20100 NZT B1090 B0451 9P125590 | 20012 0020 00 0 20020 TRA B0460 B0452 9P125600 20013 0600 00 0 20100 STZ B1090 B0453 9P125610 | 20014 -0500 00 0 20064 CAL B1000 B0454 9P125620 | 20015 0602 00 0 15631 SLW BINBF B0455 9P125630 | 20016 0600 00 0 15646 STZ BCDBF-1 B0456 9P125640 | 20017 0600 00 0 15647 STZ BCDBF B0457 9P125650 20020 0774 00 4 00000 B0460 AXT 0,4 B0460 9P125660 | 20021 0774 00 1 00000 B0461 AXT 0,1 B046019P125670 | 20022 0020 00 4 00002 TRA 2,4 B0461 9P125680 | 20023 0600 00 0 20065 B0470 STZ B1010 B0470 9P125690 | 20024 0600 00 0 20066 STZ B1020 B0480 9P125700 20025 -0520 00 0 20100 NZT B1090 B0481 9P125710 | 20026 0020 00 0 20034 TRA *+6 B0482 9P125720 | 1 LISTING OF 12/01/64 PAGE 304 | FPFIXD FIXED ROUTINES OF FP | 20027 0600 00 0 20100 STZ B1090 B0483 9P125730 | 20030 -0500 00 0 20064 CAL B1000 B0484 9P125740 | 20031 0602 00 0 15631 SLW BINBF B0485 9P125750 | 20032 0600 00 0 15646 STZ BCDBF-1 B0486 9P125760 | 20033 0600 00 0 15647 STZ BCDBF B0487 9P125770 20034 0534 00 4 20020 LXA B0460,4 B0490 9P125780 | 20035 0534 00 1 20021 LXA B0461,1 B049019P125790 | 20036 0020 00 4 00001 TRA 1,4 B0491 9P125800 | 20037 0774 00 4 00006 B0500 AXT 6,4 NUMERIC TEST B0500 9P125810 | 20040 -0754 00 0 00000 B0510 PXD 0,0 B0510 9P125820 20041 -0763 00 0 00006 LGL 6 B0515 9P125830 | 20042 -0340 00 0 20074 LAS B1050 COMPARE WITH NINE B0520 9P125840 | 20043 0020 00 0 20057 TRA B0600 GREATER, TRY BLANK TEST B0525 9P125850 | 20044 0020 00 0 20046 TRA *+2 EQUAL 9 CLOSE SWITCH B0530 9P125860 | 20045 0100 00 0 20047 TZE *+2 IF ZERO, DONT CLOSE SWITCH B0535 9P125870 20046 -0625 00 0 20067 STL B1025 B0540 9P125880 | 20047 2 00001 4 20040 B0545 TIX B0510,4,1 B0545 9P125890 | 20050 -0500 00 0 20072 CAL B1036 CHANGE ALL BLANKS TO ZERO B0550 9P125900 | 20051 0320 60 1 77777 ANS* -1,1 B0555 9P125910 | 20052 -0754 00 0 00000 PXD 0,0 B0560 9P125920 20053 0522 00 1 77777 XEC -1,1 B0565 9P125930 | 20054 -0114 06 0 20101 CAQ B2000,0,6 B0570 9P125940 | 20055 0771 00 0 00020 ARS 16 B0575 9P125950 | 20056 0020 00 1 00001 TRA 1,1 B0580 9P125960 | 20057 -0340 00 0 20071 B0600 LAS B1035 IS IT A BLANK B0600 9P125970 20060 0020 00 0 20023 TRA B0470 NO, ERROR B0610 9P125980 | 20061 0520 00 0 20067 ZET B1025 YES, IS IT LEADING B0620 9P125990 | 20062 0020 00 0 20023 TRA B0470 NO, ERROR B0630 9P126000 | 20063 0020 00 0 20047 TRA B0545 YES B0640 9P126010 | 20064 0 00000 0 00000 B1000 PZE BINARY WORD B1000 9P126020 20065 0 00000 0 00000 B1010 PZE BCD WORD 1 B1010 9P126030 | 20066 0 00000 0 00000 B1020 PZE BCD WORD 2 B1020 9P126040 | 20064 DBBIN SYN B1000 9P126050 | 20065 DBBCL SYN B1010 9P126060 | 20066 DBBCR SYN B1020 9P126070 20067 0 00000 0 00000 B1025 PZE 0 LEADING BLANK SWITCH B1025 9P126080 | 20070 -377777777717 B1030 OCT 777777777717 MASK B1030 9P126090 | 20071 +000000000060 B1035 OCT 60 BLANK B1035 9P126100 | 20072 +171717171717 B1036 OCT 171717171717 ZERO BLANKS B1136 9P126110 | 20073 +000003641100 B1040 DEC 1000000 B1040 9P126120 20074 +000000000011 B1050 OCT 11 B1050 9P126130 | 20075 +000000000012 B1060 OCT 12 B1060 9P126140 | 20076 +000000000077 B1070 OCT 77 B1070 9P126150 | 20077 -377777777700 B1080 OCT 777777777700 B1080 9P126160 | 20100 0 00000 0 00000 B1090 PZE 0 CVBIN SWITCH B1090 9P126170 1 LISTING OF 12/01/64 PAGE 305 | FPFIXD FIXED ROUTINES OF FP | | * SUB-RTN BCD TO BINARY CONVERSION TABLES 9P126190 | * 9P126200 20101 0 00000 0 20113 B2000 PZE B2100 BCD TO BINARY TABLE B2000 9P126210 | 20102 0 60650 0 20113 PZE B2100,,25000 100,000 B2010 9P126220 | 20103 1 41520 0 20113 PON B2100,,17232 B2020 9P126230 | 20104 2 22370 0 20113 PTW B2100,,9464 B2030 9P126240 | 20105 3 03240 0 20113 PTH B2100,,1696 B2040 9P126250 20106 3 64110 0 20113 PTH B2100,,26696 B2050 9P126260 | 20107 -0 44760 0 20113 MZE B2100,,18928 B2060 9P126270 | 20110 -1 25630 0 20113 MON B2100,,11160 B2070 9P126280 | 20111 -2 06500 0 20113 MTW B2100,,3392 B2080 9P126290 | 20112 -2 67350 0 20113 MTW B2100,,28392 B2090 9P126300 20113 0 00000 0 20125 B2100 PZE B2200 B2100 9P126310 | 20114 0 04704 0 20125 PZE B2200,,2500 10,000 B2110 9P126320 | 20115 0 11610 0 20125 PZE B2200,,5000 B2120 9P126330 | 20116 0 16514 0 20125 PZE B2200,,7500 B2130 9P126340 | 20117 0 23420 0 20125 PZE B2200,,10000 B2140 9P126350 20120 0 30324 0 20125 PZE B2200,,12500 B2150 9P126360 | 20121 0 35230 0 20125 PZE B2200,,15000 B2160 9P126370 | 20122 0 42134 0 20125 PZE B2200,,17500 B2170 9P126380 | 20123 0 47040 0 20125 PZE B2200,,20000 B2180 9P126390 | 20124 0 53744 0 20125 PZE B2200,,22500 B2190 9P126400 20125 0 00000 0 20137 B2200 PZE B2300 B2200 9P126410 | 20126 0 00372 0 20137 PZE B2300,,250 1,000 B2210 9P126420 | 20127 0 00764 0 20137 PZE B2300,,500 B2220 9P126430 | 20130 0 01356 0 20137 PZE B2300,,750 B2230 9P126440 | 20131 0 01750 0 20137 PZE B2300,,1000 B2240 9P126450 20132 0 02342 0 20137 PZE B2300,,1250 B2250 9P126460 | 20133 0 02734 0 20137 PZE B2300,,1500 B2260 9P126470 | 20134 0 03326 0 20137 PZE B2300,,1750 B2270 9P126480 | 20135 0 03720 0 20137 PZE B2300,,2000 B2280 9P126490 | 20136 0 04312 0 20137 PZE B2300,,2250 B2290 9P126500 20137 0 00000 0 20151 B2300 PZE B2400,, B2300 9P126510 | 20140 0 00031 0 20151 PZE B2400,,25 100 B2310 9P126520 | 20141 0 00062 0 20151 PZE B2400,,50 B2320 9P126530 | 20142 0 00113 0 20151 PZE B2400,,75 B2330 9P126540 | 20143 0 00144 0 20151 PZE B2400,,100 B2340 9P126550 20144 0 00175 0 20151 PZE B2400,,125 B2350 9P126560 | 20145 0 00226 0 20151 PZE B2400,,150 B2360 9P126570 | 20146 0 00257 0 20151 PZE B2400,,175 B2370 9P126580 | 20147 0 00310 0 20151 PZE B2400,,200 B2380 9P126590 | 20150 0 00341 0 20151 PZE B2400,,225 B2390 9P126600 20151 0 00000 0 20163 B2400 PZE B2500 B2400 9P126610 | 20152 0 00002 4 20163 PZE B2500,4,2 10 B2410 9P126620 | 20153 0 00005 0 20163 PZE B2500,,5 B2420 9P126630 | 20154 0 00007 4 20163 PZE B2500,4,7 B2430 9P126640 | 20155 0 00012 0 20163 PZE B2500,,10 B2440 9P126650 20156 0 00014 4 20163 PZE B2500,4,12 B2450 9P126660 | 20157 0 00017 0 20163 PZE B2500,,15 B2460 9P126670 | 20160 0 00021 4 20163 PZE B2500,4,17 B2470 9P126680 | 20161 0 00024 0 20163 PZE B2500,,20 B2480 9P126690 | 20162 0 00026 4 20163 PZE B2500,4,22 B2490 9P126700 20163 0 00000 0 00000 B2500 PZE B2500 9P126710 | 20164 0 00000 2 00000 PZE 0,2,0 1 B2510 9P126720 | 20165 0 00000 4 00000 PZE 0,4,0 B2520 9P126730 | 1 LISTING OF 12/01/64 PAGE 306 | FPFIXD FIXED ROUTINES OF FP | 20166 0 00000 6 00000 PZE 0,6,0 B2530 9P126740 | 20167 0 00001 0 00000 PZE 0,,1 B2540 9P126750 | 20170 0 00001 2 00000 PZE 0,2,1 B2550 9P126760 | 20171 0 00001 4 00000 PZE 0,4,1 B2560 9P126770 20172 0 00001 6 00000 PZE 0,6,1 B2570 9P126780 | 20173 0 00002 0 00000 PZE 0,,2 B2580 9P126790 | 20174 0 00002 2 00000 PZE 0,2,2 B2590 9P126800 | 1 LISTING OF 12/01/64 PAGE 307 | FPFIXD FIXED ROUTINES OF FP | *THIS ROUTINE IS USED IN CONNECTION WITH MIN-MAX ERROR REPORTS 9P126820 | 20175 0634 00 4 20206 CHBCD SXA CHBCD1,4 PLACE THE SIX MOST SIGNIFICANT 9P126830 | 20176 0602 00 0 20261 SLW B6000 DIGITS IN THE ACC 9P126840 | 20177 0074 00 4 20213 TSX TOBCD,4 9P126850 20200 -0500 00 0 20262 CAL B6010 LEFT WORD 9P126860 | 20201 0560 00 0 20263 LDQ B6020 RIGHT WORD 9P126870 | 20202 0100 00 0 20205 TZE CHBCD2 9P126880 | 20203 -0763 00 0 00006 LGL 6 9P126890 | 20204 -0100 00 0 20203 TNZ *-1 9P126900 20205 -0130 00 0 00000 CHBCD2 XCL 9P126910 | 20206 0774 00 4 00000 CHBCD1 AXT **,4 9P126920 | 20207 0020 00 4 00001 TRA 1,4 9P126930 | * 9P126940 | * BINARY TO BCD B5000 9P126950 20210 -0625 00 0 20270 CVBCD STL B6070 B5001 9P126960 | 20211 -0500 00 0 15631 CAL BINBF B5002 9P126970 | 20212 0602 00 0 20261 SLW B6000 B5003 9P126980 | 20213 0500 00 0 20261 TOBCD CLA B6000 BINARY WORD B5010 9P126990 | 20214 0560 00 0 20264 LDQ B6030 ZEROS B5020 9P127000 20215 0765 00 0 00022 LRS 18 B5030 9P127010 | 20216 0224 22 0 20266 VDH B6050,0,18 B5040 9P127020 | 20217 0601 00 0 20265 STO B6040 STORAGE B5050 9P127030 | 20220 -0763 00 0 00022 LGL 18 B5060 9P127040 | 20221 -0754 00 0 00000 PXD 0,0 ZERO AC B5070 9P127050 20222 -0114 01 0 20275 CAQ B7100,,1 TABLE 2 B5080 9P127060 | 20223 -0114 01 0 20375 CAQ B7200,,1 TABLE 3 B5090 9P127070 | 20224 -0114 01 0 20475 CAQ B7300,,1 TABLE 4 B5100 9P127080 | 20225 0114 06 0 20575 CVR B7400,,6 PROPOGATE CARRYS TABLE 5 B5110 9P127090 | 20226 0602 00 0 20262 SLW B6010 STORE PART 1-LEFT WORD B5120 9P127100 20227 0560 00 0 20265 LDQ B6040 STORAGE B5130 9P127110 | 20230 -0763 00 0 00014 LGL 12 B5140 9P127120 | 20231 -0754 00 0 00000 PXD 0,0 B5150 9P127130 | 20232 -0114 01 0 20271 CAQ B7000,,1 TABLE 1 B5160 9P127140 | 20233 -0114 01 0 20275 CAQ B7100,,1 TABLE 2 B5170 9P127150 20234 -0114 01 0 20375 CAQ B7200,,1 TABLE 3 B5180 9P127160 | 20235 -0114 01 0 20475 CAQ B7300,,1 TABLE 4 B5190 9P127170 | 20236 0114 06 0 20575 CVR B7400,,6 PROPOGATE CARRYS TABLE 5 B5200 9P127180 | 20237 0602 00 0 20263 SLW B6020 RIGHT WORD B5210 9P127190 | 20240 0500 00 0 20261 CLA B6000 BINARY WORD B5220 9P127200 20241 0120 00 0 20251 TPL *+8 B5230 9P127210 | 20242 -0500 00 0 20263 CAL B6020 B5231 9P127220 | 20243 -0320 00 0 20076 ANA B1070 B5232 9P127230 | 20244 -0100 00 0 20247 TNZ *+3 B5233 9P127240 | 20245 -0500 00 0 20075 CAL B1060 B5234 9P127250 20246 -0602 00 0 20263 ORS B6020 B5235 9P127260 | 20247 -0500 00 0 20267 CAL B6060 MINUS-MASK B5240 9P127270 | 20250 -0602 00 0 20263 ORS B6020 B5250 9P127280 | 20251 -0520 00 0 20270 NZT B6070 B5251 9P127290 | 20252 0020 00 0 20260 TRA *+6 B5252 9P127300 20253 0600 00 0 20270 STZ B6070 B5253 9P127310 | 20254 -0500 00 0 20262 CAL B6010 B5254 9P127320 | 20255 0602 00 0 15646 SLW BCDBF-1 B5255 9P127330 | 20256 -0500 00 0 20263 CAL B6020 B5256 9P127340 | 20257 0602 00 0 15647 SLW BCDBF B5257 9P127350 20260 0020 00 4 00001 TRA 1,4 B5260 9P127360 | 1 LISTING OF 12/01/64 PAGE 308 | FPFIXD FIXED ROUTINES OF FP | | 20261 0 00000 0 00000 B6000 PZE BINARY WORD B6000 9P127370 20262 0 00000 0 00000 B6010 PZE LEFT BCD B6010 9P127380 | 20263 0 00000 0 00000 B6020 PZE RIGHT BCD B6020 9P127390 | 20264 0 00000 0 00000 B6030 PZE 0 ZEROS B6030 9P127400 | 20265 0 00000 0 00000 B6040 PZE STORAGE WORD B6040 9P127410 | 20266 +000003641100 B6050 DEC 1000000 ONE MILLION B6050 9P127420 20267 +000000000040 B6060 OCT 40 MINUS-MASK B6060 9P127430 | 20270 0 00000 0 00000 B6070 PZE 0 CVBCD SWITCH B6070 9P127440 | 20261 BDBIN SYN B6000 B6071 9P127450 | 20262 BDBCL SYN B6010 B6072 9P127460 | 20263 BDBCR SYN B6020 B6073 9P127470 20271 0 00000 0 00000 B7000 PZE 0 TABLE 1-0000000 OCATL B7000 9P127480 | 20272 020602010404 BCI 1,262144 1 B7001 9P127490 | 20273 050204021010 BCI 1,524288 2 B7002 9P127500 | 20274 071006040302 BCI 1,786432 3 B7003 9P127510 | 20275 0 00000 0 00000 B7100 PZE 0 TABLE 2-00000 OCTAL B7100 9P127520 20276 000004001106 BCI 1,004096 B7101 9P127530 | 20277 000010011102 BCI 1,008192 B7102 9P127540 | 20300 000102021010 BCI 1,012288 B7103 9P127550 | 20301 000106031004 BCI 1,016384 B7104 9P127560 | 20302 000200041000 BCI 1,020480 B7105 9P127570 20303 000204050706 BCI 1,024576 B7106 9P127580 | 20304 000210060702 BCI 1,028672 B7107 9P127590 | 20305 000302070610 BCI 1,032768 B7010 9P127600 | 20306 000306100604 BCI 1,036864 B7011 9P127610 | 20307 000400110600 BCI 1,040960 B7012 9P127620 20310 000405000506 BCI 1,045056 B7013 9P127630 | 20311 000411010502 BCI 1,049152 B7014 9P127640 | 20312 000503020410 BCI 1,053248 B7015 9P127650 | 20313 000507030404 BCI 1,057344 B7016 9P127660 | 20314 000601040400 BCI 1,061440 B7017 9P127670 20315 000605050306 BCI 1,065536 B7020 9P127680 | 20316 000611060302 BCI 1,069632 B7021 9P127690 | 20317 000703070210 BCI 1,073728 B7022 9P127700 | 20320 000707100204 BCI 1,077824 B7023 9P127710 | 20321 001001110200 BCI 1,081920 B7024 9P127720 20322 001006000106 BCI 1,086016 B7025 9P127730 | 20323 001100010102 BCI 1,090112 B7026 9P127740 | 20324 001104020010 BCI 1,094208 B7027 9P127750 | 20325 001110030004 BCI 1,098304 B7130 9P127760 | 20326 010002040000 BCI 1,102400 B7131 9P127770 20327 010006041106 BCI 1,106496 B7132 9P127780 | 20330 010100051102 BCI 1,110592 B7133 9P127790 | 20331 010104061010 BCI 1,114688 B7134 9P127800 | 20332 010110071004 BCI 1,118784 B7135 9P127810 | 20333 010202101000 BCI 1,122880 B7136 9P127820 20334 010206110706 BCI 1,126976 B7137 9P127830 | 20335 010301000702 BCI 1,131072 B7140 9P127840 | 20336 010305010610 BCI 1,135168 B7141 9P127850 | 20337 010311020604 BCI 1,139264 B7142 9P127860 | 20340 010403030600 BCI 1,143360 B7143 9P127870 20341 010407040506 BCI 1,147456 B7144 9P127880 | 20342 010501050502 BCI 1,151552 B7145 9P127890 | 20343 010505060410 BCI 1,155648 B7146 9P127900 | 20344 010511070404 BCI 1,159744 B7147 9P127910 | 1 LISTING OF 12/01/64 PAGE 309 FPFIXD FIXED ROUTINES OF FP | | 20345 010603100400 BCI 1,163840 B7150 9P127920 | 20346 010607110306 BCI 1,167936 B7151 9P127930 | 20347 010702000302 BCI 1,172032 B7152 9P127940 20350 010706010210 BCI 1,176128 B7153 9P127950 | 20351 011000020204 BCI 1,180224 B7154 9P127960 | 20352 011004030200 BCI 1,184320 B7155 9P127970 | 20353 011010040106 BCI 1,188416 B7156 9P127980 | 20354 011102050102 BCI 1,192512 B7157 9P127990 20355 011106060010 BCI 1,196608 B7160 9P128000 | 20356 020000070004 BCI 1,200704 B7161 9P128010 | 20357 020004100000 BCI 1,204800 B7162 9P128020 | 20360 020010101106 BCI 1,208896 B7163 9P128030 | 20361 020102111102 BCI 1,212992 B7164 9P128040 20362 020107001010 BCI 1,217088 B7165 9P128050 | 20363 020201011004 BCI 1,221184 B7166 9P128060 | 20364 020205021000 BCI 1,225280 B7167 9P128070 | 20365 020211030706 BCI 1,229376 B7170 9P128080 | 20366 020303040702 BCI 1,233472 B7171 9P128090 20367 020307050610 BCI 1,237568 B7172 9P128100 | 20370 020401060604 BCI 1,241664 B7173 9P128110 | 20371 020405070600 BCI 1,245760 B7174 9P128120 | 20372 020411100506 BCI 1,249856 B7175 9P128130 | 20373 020503110502 BCI 1,253952 B7176 9P128140 20374 020510000410 BCI 1,258048 B7177 9P128150 | 20375 0 00000 0 00000 B7200 PZE 0 TABLE 3-000 OCTAL B7200 9P128160 | 20376 000000000604 BCI 1,000064 B7201 9P128170 | 20377 000000010210 BCI 1,000128 B7202 9P128180 | 20400 000000011102 BCI 1,000192 B7203 9P128190 20401 000000020506 BCI 1,000256 B7204 9P128200 | 20402 000000030200 BCI 1,000320 B7205 9P128210 | 20403 000000031004 BCI 1,000384 B7206 9P128220 | 20404 000000040410 BCI 1,000448 B7207 9P128230 | 20405 000000050102 BCI 1,000512 B7210 9P128240 20406 000000050706 BCI 1,000576 B7211 9P128250 | 20407 000000060400 BCI 1,000640 B7212 9P128260 | 20410 000000070004 BCI 1,000704 B7213 9P128270 | 20411 000000070610 BCI 1,000768 B7214 9P128280 | 20412 000000100302 BCI 1,000832 B7215 9P128290 20413 000000101106 BCI 1,000896 B7216 9P128300 | 20414 000000110600 BCI 1,000960 B7217 9P128310 | 20415 000001000204 BCI 1,001024 B7220 9P128320 | 20416 000001001010 BCI 1,001088 B7221 9P128330 | 20417 000001010502 BCI 1,001152 B7222 9P128340 20420 000001020106 BCI 1,001216 B7223 9P128350 | 20421 000001021000 BCI 1,001280 B7224 9P128360 | 20422 000001030404 BCI 1,001344 B7225 9P128370 | 20423 000001040010 BCI 1,001408 B7226 9P128380 | 20424 000001040702 BCI 1,001472 B7227 9P128390 20425 000001050306 BCI 1,001536 B7230 9P128400 | 20426 000001060000 BCI 1,001600 B7231 9P128410 | 20427 000001060604 BCI 1,001664 B7232 9P128420 | 20430 000001070210 BCI 1,001728 B7233 9P128430 | 20431 000001071102 BCI 1,001792 B7234 9P128440 20432 000001100506 BCI 1,001856 B7235 9P128450 | 20433 000001110200 BCI 1,001920 B7236 9P128460 | 1 LISTING OF 12/01/64 PAGE 310 | FPFIXD FIXED ROUTINES OF FP | 20434 000001111004 BCI 1,001984 B7237 9P128470 | 20435 000002000410 BCI 1,002048 B7240 9P128480 | 20436 000002010102 BCI 1,002112 B7241 9P128490 | 20437 000002010706 BCI 1,002176 B7242 9P128500 | 20440 000002020400 BCI 1,002240 B7243 9P128510 20441 000002030004 BCI 1,002304 B7244 9P128520 | 20442 000002030610 BCI 1,002368 B7245 9P128530 | 20443 000002040302 BCI 1,002432 B7246 9P128540 | 20444 000002041106 BCI 1,002496 B7247 9P128550 | 20445 000002050600 BCI 1,002560 B7250 9P128560 20446 000002060204 BCI 1,002624 B7251 9P128570 | 20447 000002061010 BCI 1,002688 B7252 9P128580 | 20450 000002070502 BCI 1,002752 B7253 9P128590 | 20451 000002100106 BCI 1,002816 B7254 9P128600 | 20452 000002101000 BCI 1,002880 B7255 9P128610 20453 000002110404 BCI 1,002944 B7256 9P128620 | 20454 000003000010 BCI 1,003008 B7257 9P128630 | 20455 000003000702 BCI 1,003072 B7260 9P128640 | 20456 000003010306 BCI 1,003136 B7261 9P128650 | 20457 000003020000 BCI 1,003200 B7262 9P128660 20460 000003020604 BCI 1,003264 B7263 9P128670 | 20461 000003030210 BCI 1,003328 B7264 9P128680 | 20462 000003031102 BCI 1,003392 B7265 9P128690 | 20463 000003040506 BCI 1,003456 B7266 9P128700 | 20464 000003050200 BCI 1,003520 B7267 9P128710 20465 000003051004 BCI 1,003584 B7270 9P128720 | 20466 000003060410 BCI 1,003648 B7271 9P128730 | 20467 000003070102 BCI 1,003712 B7272 9P128740 | 20470 000003070706 BCI 1,003776 B7273 9P128750 | 20471 000003100400 BCI 1,003840 B7274 9P128760 20472 000003110004 BCI 1,003904 B7275 9P128770 | 20473 000003110610 BCI 1,003968 B7276 9P128780 | 20474 000004000302 BCI 1,004032 B7277 9P128790 | 20475 0 00000 0 00000 B7300 PZE 0 TABLE 4-0 OCTAL B7300 9P128800 | 20476 000000000001 BCI 1,000001 B7301 9P128810 20477 000000000002 BCI 1,000002 B7302 9P128820 | 20500 000000000003 BCI 1,000003 B7303 9P128830 | 20501 000000000004 BCI 1,000004 B7304 9P128840 | 20502 000000000005 BCI 1,000005 B7305 9P128850 | 20503 000000000006 BCI 1,000006 B7306 9P128860 20504 000000000007 BCI 1,000007 B7307 9P128870 | 20505 000000000010 BCI 1,000008 B7310 9P128880 | 20506 000000000011 BCI 1,000009 B7311 9P128890 | 20507 000000000100 BCI 1,000010 B7312 9P128900 | 20510 000000000101 BCI 1,000011 B7313 9P128910 20511 000000000102 BCI 1,000012 B7314 9P128920 | 20512 000000000103 BCI 1,000013 B7315 9P128930 | 20513 000000000104 BCI 1,000014 B7316 9P128940 | 20514 000000000105 BCI 1,000015 B7317 9P128950 | 20515 000000000106 BCI 1,000016 B7320 9P128960 20516 000000000107 BCI 1,000017 B7321 9P128970 | 20517 000000000110 BCI 1,000018 B7322 9P128980 | 20520 000000000111 BCI 1,000019 B7323 9P128990 | 20521 000000000200 BCI 1,000020 B7324 9P129000 | 20522 000000000201 BCI 1,000021 B7325 9P129010 1 LISTING OF 12/01/64 PAGE 311 | FPFIXD FIXED ROUTINES OF FP | | 20523 000000000202 BCI 1,000022 B7326 9P129020 | 20524 000000000203 BCI 1,000023 B7327 9P129030 20525 000000000204 BCI 1,000024 B7330 9P129040 | 20526 000000000205 BCI 1,000025 B7331 9P129050 | 20527 000000000206 BCI 1,000026 B7332 9P129060 | 20530 000000000207 BCI 1,000027 B7333 9P129070 | 20531 000000000210 BCI 1,000028 B7334 9P129080 20532 000000000211 BCI 1,000029 B7335 9P129090 | 20533 000000000300 BCI 1,000030 B7336 9P129100 | 20534 000000000301 BCI 1,000031 B7337 9P129110 | 20535 000000000302 BCI 1,000032 B7340 9P129120 | 20536 000000000303 BCI 1,000033 B7341 9P129130 20537 000000000304 BCI 1,000034 B7342 9P129140 | 20540 000000000305 BCI 1,000035 B7343 9P129150 | 20541 000000000306 BCI 1,000036 B7344 9P129160 | 20542 000000000307 BCI 1,000037 B7345 9P129170 | 20543 000000000310 BCI 1,000038 B7346 9P129180 20544 000000000311 BCI 1,000039 B7347 9P129190 | 20545 000000000400 BCI 1,000040 B7350 9P129200 | 20546 000000000401 BCI 1,000041 B7351 9P129210 | 20547 000000000402 BCI 1,000042 B7352 9P129220 | 20550 000000000403 BCI 1,000043 B7353 9P129230 20551 000000000404 BCI 1,000044 B7354 9P129240 | 20552 000000000405 BCI 1,000045 B7355 9P129250 | 20553 000000000406 BCI 1,000046 B7356 9P129260 | 20554 000000000407 BCI 1,000047 B7357 9P129270 | 20555 000000000410 BCI 1,000048 B7360 9P129280 20556 000000000411 BCI 1,000049 B7361 9P129290 | 20557 000000000500 BCI 1,000050 B7362 9P129300 | 20560 000000000501 BCI 1,000051 B7363 9P129310 | 20561 000000000502 BCI 1,000052 B7364 9P129320 | 20562 000000000503 BCI 1,000053 B7365 9P129330 20563 000000000504 BCI 1,000054 B7366 9P129340 | 20564 000000000505 BCI 1,000055 B7367 9P129350 | 20565 000000000506 BCI 1,000056 B7370 9P129360 | 20566 000000000507 BCI 1,000057 B7371 9P129370 | 20567 000000000510 BCI 1,000058 B7372 9P129380 20570 000000000511 BCI 1,000059 B7373 9P129390 | 20571 000000000600 BCI 1,000060 B7374 9P129400 | 20572 000000000601 BCI 1,000061 B7375 9P129410 | 20573 000000000602 BCI 1,000062 B7376 9P129420 | 20574 000000000603 BCI 1,000063 B7377 9P129430 20575 0 00000 0 20575 B7400 PZE B7400,,0 TABLE 5-PROPOGATE CARRYS B7400 9P129440 | 20576 0 10000 0 20575 PZE B7400,,4096 B7401 9P129450 | 20577 0 20000 0 20575 PZE B7400,,8192 B7402 9P129460 | 20600 0 30000 0 20575 PZE B7400,,12288 B7403 9P129470 | 20601 0 40000 0 20575 PZE B7400,,16384 B7404 9P129480 20602 0 50000 0 20575 PZE B7400,,20480 B7405 9P129490 | 20603 0 60000 0 20575 PZE B7400,,24576 B7406 9P129500 | 20604 0 70000 0 20575 PZE B7400,,28672 B7407 9P129510 | 20605 1 00000 0 20575 PON B7400,,0 B7408 9P129520 | 20606 1 10000 0 20575 PON B7400,,4096 B7409 9P129530 20607 0 00000 0 20576 PZE B7400+1,,0 B7410 9P129540 | 20610 0 10000 0 20576 PZE B7400+1,,4096 B7411 9P129550 | 20611 0 20000 0 20576 PZE B7400+1,,8192 B7412 9P129560 | 1 LISTING OF 12/01/64 PAGE 312 | FPFIXD FIXED ROUTINES OF FP | 20612 0 30000 0 20576 PZE B7400+1,,12288 B7413 9P129570 | 20613 0 40000 0 20576 PZE B7400+1,,16384 B7414 9P129580 | 20614 0 50000 0 20576 PZE B7400+1,,20480 B7415 9P129590 | 20615 0 60000 0 20576 PZE B7400+1,,24576 B7416 9P129600 20616 0 70000 0 20576 PZE B7400+1,,28672 B7417 9P129610 | 20617 1 00000 0 20576 PON B7400+1,,0 B7418 9P129620 | 20620 1 10000 0 20576 PON B7400+1,,4096 B7419 9P129630 | 20621 0 00000 0 20577 PZE B7400+2,,0 B7420 9P129640 | 20622 0 10000 0 20577 PZE B7400+2,,4096 B7421 9P129650 20623 0 20000 0 20577 PZE B7400+2,,8192 B7422 9P129660 | 20624 0 30000 0 20577 PZE B7400+2,,12288 B7423 9P129670 | 20625 0 40000 0 20577 PZE B7400+2,,16384 B7424 9P129680 | 20626 0 50000 0 20577 PZE B7400+2,,20480 B7425 9P129690 | 20627 0 60000 0 20577 PZE B7400+2,,24576 B7426 9P129700 20630 0 70000 0 20577 PZE B7400+2,,28672 B7427 9P129710 | 20631 1 00000 0 20577 PON B7400+2,,0 B7428 9P129720 | 20632 1 10000 0 20577 PON B7400+2,,4096 B7429 9P129730 | 20633 0 00000 0 20600 PZE B7400+3,,0 B7430 9P129740 | 20634 0 10000 0 20600 PZE B7400+3,,4096 B7431 9P129750 20635 0 20000 0 20600 PZE B7400+3,,8192 B7432 9P129760 | 20636 0 30000 0 20600 PZE B7400+3,,12288 B7433 9P129770 | 20637 0 40000 0 20600 PZE B7400+3,,16384 B7434 9P129780 | 20640 0 50000 0 20600 PZE B7400+3,,20480 B7435 9P129790 | 20641 0 60000 0 20600 PZE B7400+3,,24576 B7436 9P129800 1 LISTING OF 12/01/64 PAGE 313 | FPFIXD FIXED ROUTINES OF FP | | 20642 0634 00 4 20656 TO702 SXA R0190,4 R0010 9P129820 | 20643 0602 00 0 20660 SLW R0900 R0020 9P129830 20644 -0500 00 4 00001 CAL 1,4 R0030 9P129840 | 20645 0734 00 4 00000 PAX 0,4 R0040 9P129850 | 20646 -0500 00 0 20660 CAL R0900 R0050 9P129860 | 20647 -0320 00 4 20671 ANA R0920+6,4 R0070 9P129870 | 20650 0520 00 0 04665 ZET IND04 702 OR 709 SEQUENCE 9P129880 20651 0020 00 0 20656 TRA R0190 709 9P129890 | 20652 -0501 00 4 20677 ORA R0930+6,4 R0080 9P129900 | 20653 0114 06 0 20677 CVR R1000,0,6 R0090 9P129910 | 20654 0602 00 0 20661 SLW R0901 R0100 9P129920 | 20655 -0500 00 0 20661 CAL R0901 R0180 9P129930 20656 0774 00 4 00000 R0190 AXT 0,4 R0190 9P129940 | 20657 0020 00 4 00002 TRA 2,4 R0200 9P129950 | 20660 0 00000 0 00000 R0900 PZE SAVE AC R0900 9P129960 | 20661 0 00000 0 00000 R0901 PZE SAVE RESULT R0901 9P129970 | 20662 0 00000 0 00063 R0902 PZE 51 R0902 9P129980 20663 -377777777777 R0920 OCT 777777777777 R0920 9P129990 | 20664 +007777777777 OCT 007777777777 R0921 9P130000 | 20665 +000077777777 OCT 000077777777 R0922 9P130010 | 20666 +000000777777 OCT 000000777777 R0923 9P130020 | 20667 +000000007777 OCT 000000007777 R0924 9P130030 20670 +000000000077 OCT 000000000077 R0925 9P130040 | 20671 +000000000000 R0930 OCT 000000000000 R0930 9P130050 | 20672 -200000000000 OCT 600000000000 R0931 9P130060 | 20673 -206000000000 OCT 606000000000 R0932 9P130070 | 20674 -206060000000 OCT 606060000000 R0933 9P130080 20675 -206060600000 OCT 606060600000 R0934 9P130090 | 20676 -206060606000 OCT 606060606000 R0935 9P130100 | 20677 -1 10000 0 20677 R1000 FVE R1000,0,4096 0 51 R1000 9P130110 | 20700 -1 20000 0 20677 FVE R1000,0,8192 1 52 R1001 9P130120 | 20701 -1 30000 0 20677 FVE R1000,0,12288 2 53 R1002 9P130130 20702 -1 40000 0 20677 FVE R1000,0,16384 3 54 R1003 9P130140 | 20703 -1 50000 0 20677 FVE R1000,0,20480 4 55 R1004 9P130150 | 20704 -1 60000 0 20677 FVE R1000,0,24576 5 56 R1005 9P130160 | 20705 -1 70000 0 20677 FVE R1000,0,28672 6 57 R1006 9P130170 | 20706 -2 00000 0 20677 SIX R1000,0,0 7 60 R1007 9P130180 20707 -2 10000 0 20677 SIX R1000,0,4096 8 61 R1010 9P130190 | 20710 -2 20000 0 20677 SIX R1000,0,8192 9 62 R1011 9P130200 | 20711 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1012 9P130210 | 20712 1 20000 0 20677 PON R1000,0,8192 = 12 R1013 9P130220 | 20713 1 30000 0 20677 PON R1000,0,12288 ' 13 R1014 9P130230 20714 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1015 9P130240 | 20715 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1016 9P130250 | 20716 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1017 9P130260 | 20717 0 30000 0 20677 PZE R1000,0,12288 + 03 R1020 9P130270 | 20720 1 50000 0 20677 PON R1000,0,20480 A 15 R1021 9P130280 20721 1 60000 0 20677 PON R1000,0,24576 B 16 R1022 9P130290 | 20722 1 70000 0 20677 PON R1000,0,28672 C 17 R1023 9P130300 | 20723 2 00000 0 20677 PTW R1000,0,0 D 20 R1024 9P130310 | 20724 2 10000 0 20677 PTW R1000,0,4096 E 21 R1025 9P130320 | 20725 2 20000 0 20677 PTW R1000,0,8192 F 22 R1026 9P130330 20726 2 30000 0 20677 PTW R1000,0,12288 G 23 R1027 9P130340 | 20727 2 40000 0 20677 PTW R1000,0,16384 H 24 R1030 9P130350 | 20730 2 50000 0 20677 PTW R1000,0,20480 I 25 R1031 9P130360 | 1 LISTING OF 12/01/64 PAGE 314 | FPFIXD FIXED ROUTINES OF FP | 20731 1 40000 0 20677 PON R1000,0,16384 ? 14 R1032 9P130370 | 20732 0 10000 0 20677 PZE R1000,0,4096 . 01 R1033 9P130380 | 20733 0 20000 0 20677 PZE R1000,0,8192 ) 02 R1034 9P130390 | 20734 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1035 9P130400 20735 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1036 9P130410 | 20736 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1037 9P130420 | 20737 0 60000 0 20677 PZE R1000,0,24576 - 06 R1040 9P130430 | 20740 2 70000 0 20677 PTW R1000,0,28672 J 27 R1041 9P130440 | 20741 3 00000 0 20677 PTH R1000,0,0 K 30 R1042 9P130450 20742 3 10000 0 20677 PTH R1000,0,4096 L 31 R1043 9P130460 | 20743 3 20000 0 20677 PTH R1000,0,8192 M 32 R1044 9P130470 | 20744 3 30000 0 20677 PTH R1000,0,12288 N 33 R1045 9P130480 | 20745 3 40000 0 20677 PTH R1000,0,16384 O 34 R1046 9P130490 | 20746 3 50000 0 20677 PTH R1000,0,20480 P 35 R1047 9P130500 20747 3 60000 0 20677 PTH R1000,0,24576 Q 36 R1050 9P130510 | 20750 3 70000 0 20677 PTH R1000,0,28672 R 37 R1051 9P130520 | 20751 2 60000 0 20677 PTW R1000,0,24576 ! 26 R1052 9P130530 | 20752 0 40000 0 20677 PZE R1000,0,16384 $ 04 R1053 9P130540 | 20753 0 50000 0 20677 PZE R1000,0,20480 * 05 R1054 9P130550 20754 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1055 9P130560 | 20755 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1056 9P130570 | 20756 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1057 9P130580 | 20757 0 00000 0 20677 PZE R1000,0,0 BLANK 00 R1060 9P130590 | 20760 0 70000 0 20677 PZE R1000,0,28672 / 07 R1061 9P130600 20761 -0 10000 0 20677 FOR R1000,0,4096 S 41 R1062 9P130610 | 20762 -0 20000 0 20677 FOR R1000,0,8192 T 42 R1063 9P130620 | 20763 -0 30000 0 20677 FOR R1000,0,12288 U 43 R1064 9P130630 | 20764 -0 40000 0 20677 FOR R1000,0,16384 V 44 R1065 9P130640 | 20765 -0 50000 0 20677 FOR R1000,0,20480 W 45 R1066 9P130650 20766 -0 60000 0 20677 FOR R1000,0,24576 X 46 R1067 9P130660 | 20767 -0 70000 0 20677 FOR R1000,0,28672 Y 47 R1070 9P130670 | 20770 -1 00000 0 20677 FVE R1000,0,0 Z 50 R1071 9P130680 | 20771 -0 00000 0 20677 FOR R1000,0,0 RM 40 R1072 9P130690 | 20772 1 00000 0 20677 PON R1000,0,0 , 10 R1073 9P130700 20773 1 10000 0 20677 PON R1000,0,4096 ( 11 R1074 9P130710 | 20774 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1075 9P130720 | 20775 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1076 9P130730 | 20776 -2 30000 0 20677 SIX R1000,0,12288 ERROR 63 R1077 9P130740 | 1 LISTING OF 12/01/64 PAGE 315 FPFIXD FIXED ROUTINES OF FP | | 20777 0520 00 0 04665 TO709 ZET IND04 702 OR 709 R5010 9P130760 | 21000 0020 00 4 00002 TRA 2,4 709 R5011 9P130770 | 21001 0634 00 4 21012 SXA R5180,4 R5012 9P130780 21002 0602 00 0 21016 SLW R5900 R5020 9P130790 | 21003 -0500 00 4 00001 CAL 1,4 R5110 9P130800 | 21004 0734 00 4 00000 PAX 0,4 R5120 9P130810 | 21005 3 00006 4 21014 TXH R5200,4,6 ERROR 4 R5130 9P130820 | 21006 -0500 00 0 21016 CAL R5900 R5140 9P130830 21007 0114 06 0 21021 CVR R6000,0,6 R5150 9P130840 | 21010 -0320 00 4 20671 ANA R0920+6,4 R5160 9P130850 | 21011 0602 00 0 21017 SLW R5901 R5170 9P130860 | 21012 0774 00 4 00000 R5180 AXT 0,4 R5180 9P130870 | 21013 0020 00 4 00002 TRA 2,4 R5190 9P130880 21014 0754 00 0 00000 R5200 PXA 0,0 R5200 9P130890 | 21015 0020 00 0 21012 TRA R5180 R5210 9P130900 | 21016 0 00000 0 00000 R5900 PZE R5900 9P130910 | 21017 0 00000 0 00000 R5901 PZE R5901 9P130920 | 21020 0 00000 0 00063 R5902 PZE 51 R5902 9P130930 21021 -2 00000 0 21021 R6000 SIX R6000,0,0 BLANK 60 R6000 9P130940 | 21022 3 30000 0 21021 PTH R6000,0,12288 . 33 R6001 9P130950 | 21023 3 40000 0 21021 PTH R6000,0,16384 ) 34 R6002 9P130960 | 21024 3 00000 0 21021 PTH R6000,0,0 + 20 R6003 9P130970 | 21025 -1 30000 0 21021 FVE R6000,0,12288 $ 53 R6004 9P130980 21026 -1 40000 0 21021 FVE R6000,0,16384 * 54 R6005 9P130990 | 21027 -0 00000 0 21021 FOR R6000,0,0 - 40 R6006 9P131000 | 21030 -2 10000 0 21021 SIX R6000,0,4096 / 61 R6007 9P131010 | 21031 -3 30000 0 21021 SVN R6000,0,12288 , 73 R6010 9P131020 | 21032 -3 40000 0 21021 SVN R6000,0,16384 ( 74 R6011 9P131030 21033 1 30000 0 21021 PON R6000,0,12288 = 13 R6012 9P131040 | 21034 1 40000 0 21021 PON R6000,0,16384 ' 14 R6013 9P131050 | 21035 3 20000 0 21021 PTH R6000,0,8192 ? 32 R6014 9P131060 | 21036 2 10000 0 21021 PTW R6000,0,4096 A 21 R6015 9P131070 | 21037 2 20000 0 21021 PTW R6000,0,8192 B 22 R6016 9P131080 21040 2 30000 0 21021 PTW R6000,0,12288 C 23 R6017 9P131090 | 21041 2 40000 0 21021 PTW R6000,0,16384 D 24 R6020 9P131100 | 21042 2 50000 0 21021 PTW R6000,0,20480 E 25 R6021 9P131110 | 21043 2 60000 0 21021 PTW R6000,0,24576 F 26 R6022 9P131120 | 21044 2 70000 0 21021 PTW R6000,0,28672 G 27 R6023 9P131130 21045 3 00000 0 21021 PTH R6000,0,0 H 30 R6024 9P131140 | 21046 3 10000 0 21021 PTH R6000,0,4096 I 31 R6025 9P131150 | 21047 -1 20000 0 21021 FVE R6000,0,8192 ! 52 R6026 9P131160 | 21050 -0 10000 0 21021 FOR R6000,0,4096 J 41 R6027 9P131170 | 21051 -0 20000 0 21021 FOR R6000,0,8192 K 42 R6030 9P131180 21052 -0 30000 0 21021 FOR R6000,0,12288 L 43 R6031 9P131190 | 21053 -0 40000 0 21021 FOR R6000,0,16384 M 44 R6032 9P131200 | 21054 -0 50000 0 21021 FOR R6000,0,20480 N 45 R6033 9P131210 | 21055 -0 60000 0 21021 FOR R6000,0,24576 O 46 R6034 9P131220 | 21056 -0 70000 0 21021 FOR R6000,0,28672 P 47 R6035 9P131230 21057 -1 00000 0 21021 FVE R6000,0,0 Q 50 R6036 9P131240 | 21060 -1 10000 0 21021 FVE R6000,0,4096 R 51 R6037 9P131250 | 21061 -3 20000 0 21021 SVN R6000,0,8192 9P131260 | 21062 -2 20000 0 21021 SIX R6000,0,8192 S 62 R6041 9P131270 | 21063 -2 30000 0 21021 SIX R6000,0,12288 T 63 R6042 9P131280 21064 -2 40000 0 21021 SIX R6000,0,16384 U 64 R6043 9P131290 | 21065 -2 50000 0 21021 SIX R6000,0,20480 V 65 R6044 9P131300 | 1 LISTING OF 12/01/64 PAGE 316 | FPFIXD FIXED ROUTINES OF FP | 21066 -2 60000 0 21021 SIX R6000,0,24576 W 66 R6045 9P131310 | 21067 -2 70000 0 21021 SIX R6000,0,28672 X 67 R6046 9P131320 | 21070 -3 00000 0 21021 SVN R6000,0,0 Y 70 R6047 9P131330 | 21071 -3 10000 0 21021 SVN R6000,0,4096 Z 71 R6050 9P131340 | 21072 0 00000 0 21021 PZE R6000,0,0 O 00 R6051 9P131350 21073 0 10000 0 21021 PZE R6000,0,4096 1 01 R6052 9P131360 | 21074 0 20000 0 21021 PZE R6000,0,8192 2 02 R6053 9P131370 | 21075 0 30000 0 21021 PZE R6000,0,12288 3 03 R6054 9P131380 | 21076 0 40000 0 21021 PZE R6000,0,16384 4 04 R6055 9P131390 | 21077 0 50000 0 21021 PZE R6000,0,20480 5 05 R6056 9P131400 21100 0 60000 0 21021 PZE R6000,0,24576 6 06 R6057 9P131410 | 21101 0 70000 0 21021 PZE R6000,0,28672 7 07 R6060 9P131420 | 21102 1 00000 0 21021 PON R6000,0,0 8 10 R6061 9P131430 | 21103 1 10000 0 21021 PON R6000,0,4096 9 11 R6062 9P131440 | 1 LISTING OF 12/01/64 PAGE 317 FPFIXD FIXED ROUTINES OF FP | | * 9P131460 | * HORDO SUBROUTINE. HORIZONTAL INTERPRETER 9P131470 | * 9P131480 21104 0634 00 4 21164 HORDO SXA PX242,4 SAVE XR4 PX000 9P131490 | 21105 0634 00 1 21165 SXA PX243,1 PX001 9P131500 | 21106 0604 00 0 21414 STI PXA10 SAVE INDICES PX00159P131510 | 21107 -0500 00 4 00001 CAL 1,4 SET UP FOR REJECT PX002 9P131520 | 21110 0621 00 0 21413 STA PY930 PX00219P131530 21111 0400 00 0 04673 ADD ONE PX003 9P131540 | 21112 0621 00 0 21427 STA PXB30 PX004 9P131550 | 21113 0621 00 0 21343 STA PY454 FOR THE TSXS PX005 9P131560 | 21114 0621 00 0 21321 STA PY374 PX006 9P131570 | 21115 0621 00 0 21135 STA PX013 PX00619P131580 21116 0771 00 0 00022 ARS 18 PX007 9P131590 | 21117 0400 00 0 21427 ADD PXB30 PX008 9P131600 | 21120 0621 00 0 21431 STA PXB50 FLD 2 ADDR PX010 9P131610 | 21121 0400 00 0 04675 ADD THREE PX011 9P131620 | 21122 0621 00 0 21432 STA PXB60 FLD 5 ADDR PX012 9P131630 21123 0535 00 1 22176 LAC DICLO,1 1ST WD OF DICT PX013 9P131640 | 21124 -0500 00 1 00000 CAL 0,1 PX01309P131650 | 21125 -0340 00 0 21423 LAS PXA80 ALL ONES PX01309P131660 | 21126 0020 00 0 21142 TRA PX014 PX01309P131670 | 21127 0020 00 0 21131 TRA *+2 PX01309P131680 21130 0020 00 0 21142 TRA PX014 PX01309P131690 | 21131 -0500 00 1 00001 CAL 1,1 PX01309P131700 | 21132 0602 00 0 21136 SLW *+4 PX01309P131710 | 21133 -0500 00 1 00002 CAL 2,1 PX01309P131720 | 21134 0602 00 0 21137 SLW *+3 PX01309P131730 21135 0074 00 4 00000 PX013 TSX 0,4 PX01319P131740 | 21136 606060606060 BCI 2, PX01319P131750 | 21140 1 00012 1 21141 TXI *+1,1,10 PX01319P131760 | 21141 0020 00 0 22210 TRA MERGE PX01319P131770 | 21142 0500 00 1 00003 PX014 CLA 3,1 SF WORD NO PX014 9P131780 21143 0621 00 0 21415 STA PXA20 * PX020 9P131790 | 21144 0441 00 1 00001 LDI 1,1 TEST MODE PX040 9P131800 | 21145 -0056 00 010000 LNT 10000 * PX050 9P131810 | 21146 0020 00 0 21265 TRA PY170 * BINARY PX060 9P131820 | 21147 0500 00 1 00002 CLA 2,1 INIT XR4 WITH SIZE PX070 9P131830 21150 0734 00 4 00000 PAX 0,4 * PX080 9P131840 | 21151 -0054 00 000100 LFT 100 TEST MODE FOR PCKED OR UNPCPX090 9P131850 | 21152 0020 00 0 21167 TRA PX260 * PACKED PX100 9P131860 | 21153 -0500 00 1 00014 PX110 CAL 12,1 MOVE VALUE TO SF PX110 9P131870 | 21154 0602 60 0 21415 SLW* PXA20 * PX160 9P131880 21155 -2 00044 4 21162 TNX PX240,4,36 HAS ALL OF VALUE BEEN MOVEDPX190 9P131890 | 21156 -0500 00 0 21415 CAL PXA20 MODIFY S.F. WORD NO. PX200 9P131900 | 21157 0400 00 0 21426 ADD PXB20 * 1 PX210 9P131910 | 21160 0602 00 0 21415 SLW PXA20 * PX220 9P131920 | 21161 1 77777 1 21153 TXI PX110,1,-1 INCR TO NEXT WORD OF VALUE PX230 9P131930 21162 0634 00 1 22200 PX240 SXA HORXR,1 SAVE XR1 IN HORXR PX240 9P131940 | 21163 0441 00 0 21414 LDI PXA10 RESTORE INDICS PX241 9P131950 | 21164 0774 00 4 00000 PX242 AXT 0,4 RESTORE XR4 PX242 9P131960 | 21165 0774 00 1 00000 PX243 AXT 0,1 RESTORE XR1 PX243 9P131970 | 21166 0020 00 4 00002 TRA 2,4 OUT PX250 9P131980 21167 2 00044 4 21167 PX260 TIX PX260,4,36 CALC NO. OF CHARS IN LEFT WPX260 9P131990 | 21170 0634 00 4 21416 SXA PXA30,4 * PX270 9P132000 | 1 LISTING OF 12/01/64 PAGE 318 | FPFIXD FIXED ROUTINES OF FP | 21171 0500 00 1 00004 CLA 4,1 BUILD LEFT MASK PX280 9P132010 | 21172 0621 00 0 21174 STA *+2 * PX290 9P132020 | 21173 -0500 00 0 21423 CAL PXA80 * PX300 9P132030 | 21174 0771 00 0 00000 ARS 0 * PX310 9P132040 | 21175 0602 00 0 21422 SLW PXA70 * PX320 9P132050 21176 0760 00 0 00006 COM BUILD COMPL MASK PX330 9P132060 | 21177 0602 00 0 21424 SLW PXA90 * PX340 9P132070 | 21200 0500 00 1 00002 CLA 2,1 INIT XR4 WITH SIZE + BIT NOPX350 9P132080 | 21201 0400 00 1 00004 ADD 4,1 * PX360 9P132090 | 21202 0734 00 4 00000 PAX 0,4 * PX370 9P132100 21203 0500 00 0 21417 CLA PXA40 CALC SHIFT PX380 9P132110 | 21204 0402 00 1 00004 SUB 4,1 * PX390 9P132120 | 21205 0402 00 0 21416 SUB PXA30 * PX400 9P132130 | 21206 0120 00 0 21211 TPL PX440 IS SHIFT NEG PX410 9P132140 | 21207 0400 00 0 21417 ADD PXA40 ADD 36 TO SHIFT PX420 9P132150 21210 1 00001 1 21211 TXI *+1,1,1 DECR VALUE PICK UP PX430 9P132160 | 21211 0621 00 0 21420 PX440 STA PXA50 INIT SHIFT OF VALUE PX440 9P132170 | 21212 0621 00 0 21421 STA PXA60 INIT SHIFT OF RT MASK PX450 9P132180 | 21213 -2 00044 4 21251 TNX PX970,4,36 PX460 9P132190 | 21214 -0500 00 0 21424 CAL PXA90 PX520 9P132200 21215 0320 60 0 21415 ANS* PXA20 PX530 9P132210 | 21216 -0500 00 1 00014 CAL 12,1 PX540 9P132220 | 21217 1 77777 1 21220 TXI *+1,1,-1 PX550 9P132230 | 21220 0560 00 1 00014 LDQ 12,1 PX560 9P132240 | 21221 0522 00 0 21420 XEC PXA50 PX570 9P132250 21222 -0320 00 0 21422 ANA PXA70 PX580 9P132260 | 21223 -0602 60 0 21415 ORS* PXA20 PX590 9P132270 | 21224 -0500 00 0 21415 PX620 CAL PXA20 MODIFY C PX620 9P132280 | 21225 0400 00 0 21426 ADD PXB20 * PX630 9P132290 | 21226 0602 00 0 21415 SLW PXA20 * PX640 9P132300 21227 -2 00044 4 21236 TNX PX780,4,36 PX650 9P132310 | 21230 -0500 00 1 00014 CAL 12,1 PX700 9P132320 | 21231 1 77777 1 21232 TXI *+1,1,-1 PX710 9P132330 | 21232 0560 00 1 00014 LDQ 12,1 PX720 9P132340 | 21233 0522 00 0 21420 XEC PXA50 PX730 9P132350 21234 0602 60 0 21415 SLW* PXA20 PX740 9P132360 | 21235 0020 00 0 21224 TRA PX620 PX770 9P132370 | 21236 -0500 00 0 21423 PX780 CAL PXA80 BUILD RT MASK PX780 9P132380 | 21237 0522 00 0 21421 XEC PXA60 * PX790 9P132390 | 21240 0602 00 0 21422 SLW PXA70 * PX800 9P132400 21241 0760 00 0 00006 COM * PX810 9P132410 | 21242 0602 00 0 21424 SLW PXA90 * PX820 9P132420 | 21243 -0500 00 0 21424 CAL PXA90 PX890 9P132430 | 21244 0320 60 0 21415 ANS* PXA20 PX900 9P132440 | 21245 -0500 00 1 00014 CAL 12,1 PX910 9P132450 21246 0522 00 0 21421 XEC PXA60 PX920 9P132460 | 21247 -0602 60 0 21415 ORS* PXA20 PX930 9P132470 | 21250 0020 00 0 21162 TRA PX240 PX960 9P132480 | 21251 -0500 00 0 21423 PX970 CAL PXA80 BUILD RT MASK + COMBINE PX970 9P132490 | 21252 0522 00 0 21421 XEC PXA60 * PX980 9P132500 21253 -0320 00 0 21422 ANA PXA70 * PX990 9P132510 | 21254 0602 00 0 21422 SLW PXA70 * PY000 9P132520 | 21255 0760 00 0 00006 COM * PY010 9P132530 | 21256 0602 00 0 21424 SLW PXA90 * PY020 9P132540 | 21257 -0500 00 0 21424 CAL PXA90 PY090 9P132550 1 LISTING OF 12/01/64 PAGE 319 | FPFIXD FIXED ROUTINES OF FP | | 21260 0320 60 0 21415 ANS* PXA20 PY100 9P132560 | 21261 -0500 00 1 00014 CAL 12,1 PY110 9P132570 21262 0522 00 0 21421 XEC PXA60 PY120 9P132580 | 21263 -0602 60 0 21415 ORS* PXA20 PY130 9P132590 | 21264 0020 00 0 21162 TRA PX240 PY160 9P132600 | 21265 -0500 00 1 00013 PY170 CAL 11,1 TEST ACTION PY170 9P132610 | 21266 0760 00 0 00001 LBT PY180 9P132620 21267 0020 00 0 21272 TRA *+3 PY190 9P132630 | 21270 0500 00 1 00014 CLA 12,1 REPLACE PY200 9P132640 | 21271 0020 00 0 21303 TRA PY290 PY210 9P132650 | 21272 0771 00 0 00004 ARS 4 PY220 9P132660 | 21273 0760 00 0 00001 LBT PY230 9P132670 21274 0020 00 0 21277 TRA *+3 TO NEG ACCUM PY240 9P132680 | 21275 0500 00 1 00014 CLA 12,1 PY250 9P132690 | 21276 0020 00 0 21300 TRA *+2 PY260 9P132700 | 21277 0502 00 1 00014 CLS 12,1 PY270 9P132710 | 21300 0400 60 0 21415 ADD* PXA20 PY280 9P132720 21301 -0100 00 0 21303 TNZ *+2 PY285 9P132730 | 21302 0760 00 0 00003 SSP PY286 9P132740 | 21303 0601 00 0 15630 PY290 STO BUFER PY290 9P132750 | 21304 0500 00 1 00006 CLA 6,1 IS MAX BLANK PY300 9P132760 | 21305 0340 00 0 21425 CAS PXB10 * PY310 9P132770 21306 0020 00 0 21310 TRA *+2 PY320 9P132780 | 21307 0020 00 0 21325 TRA PY380 PY330 9P132790 | 21310 0340 00 0 15630 CAS BUFER PY340 9P132800 | 21311 0020 00 0 21325 TRA PY380 PY350 9P132810 | 21312 0020 00 0 21325 TRA PY380 PY360 9P132820 21313 0500 00 0 15630 CLA BUFER PY365 9P132830 | 21314 0074 00 4 20175 TSX CHBCD,4 PY366 9P132840 | 21315 0601 60 0 21432 STO* PXB60 STORE VALUE PY370 9P132850 | 21316 -0500 60 0 22176 CAL* DICLO FOR REJ PY371 9P132860 | 21317 -0320 00 0 21430 ANA PXB40 PY372 9P132870 21320 0602 60 0 21431 SLW* PXB50 STORE FLD = PY373 9P132880 | 21321 0074 00 4 00000 PY374 TSX 0,4 PY374 9P132890 | 21322 622660442167 BCI 1,SF MAX PY375 9P132900 | 21323 606325626360 BCI 1, TEST PY376 9P132910 | 21324 0020 00 0 21410 TRA PY900 LOOP FOR NEXT FLD PY377 9P132920 21325 0500 00 1 00005 PY380 CLA 5,1 PY380 9P132930 | 21326 0340 00 0 21425 CAS PXB10 PY390 9P132940 | 21327 0020 00 0 21331 TRA *+2 PY400 9P132950 | 21330 0020 00 0 21347 TRA PY470 PY410 9P132960 | 21331 0340 00 0 15630 CAS BUFER PY430 9P132970 21332 0020 00 0 21335 TRA *+3 PY440 9P132980 | 21333 0761 00 0 00000 NOP PY441 9P132990 | 21334 0020 00 0 21347 TRA PY470 9P133000 | 21335 0500 00 0 15630 CLA BUFER PY445 9P133010 | 21336 0074 00 4 20175 TSX CHBCD,4 PY446 9P133020 21337 0601 60 0 21432 STO* PXB60 STORE VALUE PY450 9P133030 | 21340 -0500 60 0 22176 CAL* DICLO PY451 9P133040 | 21341 -0320 00 0 21430 ANA PXB40 PY452 9P133050 | 21342 0602 60 0 21431 SLW* PXB50 STORE FLD = PY453 9P133060 | 21343 0074 00 4 00000 PY454 TSX 0,4 PY454 9P133070 21344 622660443145 BCI 1,SF MIN PY455 9P133080 | 21345 606325626360 BCI 1, TEST PY456 9P133090 | 21346 0020 00 0 21410 TRA PY900 LOOP FOR NEXT FLD PY457 9P133100 | 1 LISTING OF 12/01/64 PAGE 320 | FPFIXD FIXED ROUTINES OF FP | 21347 0500 00 1 00000 PY470 CLA 0,1 SUM FWD TEST PY470 9P133110 | 21350 0120 00 0 21375 TPL PY660 * NO PY480 9P133120 | 21351 -0774 00 4 71545 AXC OBSUM,4 PY490 9P133130 | 21352 -0340 00 4 00000 PY500 LAS 0,4 PY500 9P133140 21353 1 77775 4 21352 TXI *-1,4,-3 PY510 9P133150 | 21354 1 77776 4 21356 PY520 TXI *+2,4,-2 PY520 9P133160 | 21355 0420 00 0 00650 HPR 424 PY530 9P133170 | 21356 -0500 00 4 00000 CAL 0,4 PY540 9P133180 | 21357 -0760 00 0 00001 PBT PY541 9P133190 21360 0020 00 0 21362 TRA *+2 PY542 9P133200 | 21361 0020 00 0 21370 TRA PY610 PY543 9P133210 | 21362 0621 00 0 21364 STA *+2 PY550 9P133220 | 21363 0621 00 0 21367 STA PY600 PY560 9P133230 | 21364 0500 00 0 00000 CLA 0 PY570 9P133240 21365 0402 60 0 21415 SUB* PXA20 PY580 9P133250 | 21366 0400 00 0 15630 ADD BUFER PY590 9P133260 | 21367 0601 00 0 00000 PY600 STO 0 PY600 9P133270 | 21370 1 77777 4 21371 PY610 TXI *+1,4,-1 PY610 9P133280 | 21371 0500 00 1 00000 CLA 0,1 PY620 9P133290 21372 -0340 00 4 00000 LAS 0,4 PY630 9P133300 | 21373 0020 00 0 21375 TRA *+2 PY640 9P133310 | 21374 0020 00 0 21354 TRA PY520 PY650 9P133320 | 21375 -0500 00 0 15630 PY660 CAL BUFER PY660 9P133330 | 21376 0602 60 0 21415 SLW* PXA20 PY710 9P133340 21377 0020 00 0 21162 TRA PX240 PY740 9P133350 | 21400 0535 00 1 22176 STEPP LAC DICLO,1 PY750 9P133360 | 21401 0441 00 1 00001 LDI 1,1 PY760 9P133370 | 21402 -0056 00 010000 LNT 10000 PY770 9P133380 | 21403 0020 00 0 21162 TRA PX240 IF BINARY PY780 9P133390 21404 -0500 00 1 00002 CAL 2,1 BCD PY790 9P133400 | 21405 0734 00 4 00000 PAX 0,4 PY800 9P133410 | 21406 -2 00044 4 21162 TNX PX240,4,36 PY810 9P133420 | 21407 1 77777 1 21406 TXI *-1,1,-1 PY820 9P133430 | 21410 0634 00 1 22200 PY900 SXA HORXR,1 PY900 9P133440 21411 0441 00 0 21414 LDI PXA10 PY910 9P133450 | 21412 0534 00 1 21165 LXA PX243,1 PY920 9P133460 | 21413 0020 00 0 00000 PY930 TRA 0 PY930 9P133470 | 21414 0 00000 0 00000 PXA10 PZE INDICATOR STORE PXA10 9P133480 | 21415 0 00000 2 00000 PXA20 PZE 0,2 INDIRECT STORE PXA20 9P133490 21416 0 00000 0 00000 PXA30 PZE STORE PXA30 9P133500 | 21417 0 00000 0 00044 PXA40 PZE 36 36 PXA40 9P133510 | 21420 -0763 00 0 00000 PXA50 LGL 0 SHIFT PXA50 9P133520 | 21421 0767 00 0 00000 PXA60 ALS 0 SHIFT PXA60 9P133530 | 21422 0 00000 0 00000 PXA70 PZE MASK PXA70 9P133540 21423 -377777777777 PXA80 OCT 777777777777 BCD77 PXA80 9P133550 | 21424 0 00000 0 00000 PXA90 PZE MASK COMPLEMENTED PXA90 9P133560 | 21425 606060606060 PXB10 BCI 1, BLANK WORD PXB10 9P133570 | 21426 0 00000 0 00001 PXB20 PZE 1 1 PXB20 9P133580 | 21427 0 00000 0 00000 PXB30 PZE 0 2ND WD OF REJ PKG PXB30 9P133590 21430 +000077777777 PXB40 OCT 77777777 FLD = MASK PXB40 9P133600 | 21431 0 00000 0 00000 PXB50 PZE 0 FLD 2 ADDR PXB50 9P133610 | 21432 0 00000 0 00000 PXB60 PZE 0 FLD 5 ADDR PXB60 9P133620 | 1 LISTING OF 12/01/64 PAGE 321 | FPFIXD FIXED ROUTINES OF FP | * 9P133640 | * GET, PUT( AND SUM OBJECT SUBROUTINES 9P133650 | * 9P133660 | * GETBI OBJECT SUBROUTINE 9P133670 * 9P133680 | 21433 0634 00 2 21440 GETBI SXA U0060,2 SAVE XR2 U0010 9P133690 | 21434 -0500 60 4 00001 CAL* 1,4 U0020 9P133700 | 21435 0737 00 2 00000 PAC 0,2 U0030 9P133710 | 21436 -0500 60 4 00002 CAL* 2,4 U0040 9P133720 21437 0602 00 0 15631 SLW BINBF U0050 9P133730 | 21440 0774 00 2 00000 U0060 AXT 0,2 U0060 9P133740 | 21441 0020 00 4 00003 TRA 3,4 U0070 9P133750 | * 9P133760 | * GETUN OBJECT SUBROUTINE 9P133770 * 9P133780 | 21442 0634 00 1 21463 GETUN SXA U0240,1 SAVE XR1 U0100 9P133790 | 21443 0634 00 2 21464 SXA U0250,2 SAVE XR2 U0110 9P133800 | 21444 0600 00 0 15646 STZ BCDBF-1 U0111 9P133810 | 21445 0774 00 1 00001 AXT 1,1 INIT XR1 TO 1 U0120 9P133820 21446 -0500 00 4 00002 CAL 2,4 INIT XR2 WITH SIZE U0130 9P133830 | 21447 0734 00 2 00000 PAX 0,2 * U0140 9P133840 | 21450 -2 00044 2 21452 TNX *+2,2,36 CALC NO OF WORDS TO MOVE U0150 9P133850 | 21451 1 00001 1 21450 TXI *-1,1,1 * U0160 9P133860 | 21452 -3 00016 1 21455 TXL *+3,1,14 U0170 9P133870 21453 0420 00 0 00737 HPR 479 * NO-ERROR U0180 9P133880 | 21454 0774 00 1 00016 AXT 14,1 U0185 9P133890 | 21455 -0500 60 4 00001 CAL* 1,4 INIT XR2 TO 1ST WORD COMPL U0190 9P133900 | 21456 0737 00 2 00000 PAC 0,2 * U0200 9P133910 | 21457 -0500 60 4 00003 U0210 CAL* 3,4 MOVE WORD TO BUFFER U0210 9P133920 21460 0602 00 1 15650 SLW BCDBF+1,1 * U0220 9P133930 | 21461 -2 00001 1 21463 TNX U0240,1,1 HAVE ALL WORDS BEEN MOVED U0230 9P133940 | 21462 1 77777 2 21457 TXI U0210,2,-1 U0231 9P133950 | 21463 0774 00 1 00000 U0240 AXT 0,1 RESTORE SR1 U0240 9P133960 | 21464 0774 00 2 00000 U0250 AXT 0,2 RESTORE XR2 U0250 9P133970 21465 0020 00 4 00005 TRA 5,4 U0260 9P133980 | * 9P133990 | * GETPA OBJECT SUBROUTINE 9P134000 | * 9P134010 | 21466 0634 00 1 21533 GETPA SXA U0850,1 SAVE XR1 U0500 9P134020 21467 0634 00 2 21534 SXA U0860,2 SAVE XR2 U0510 9P134030 | 21470 0600 00 0 15646 STZ BCDBF-1 U0511 9P134040 | 21471 -0500 60 4 00001 CAL* 1,4 INIT XR2 WITH FIRST WORD C U0520 9P134050 | 21472 0737 00 2 00000 PAC 0,2 * U0530 9P134060 | 21473 0774 00 1 00001 AXT 1,1 INIT SR1 TO 1 U0540 9P134070 21474 0500 00 4 00002 CLA 2,4 CALC NO OF MOVES U0550 9P134080 | 21475 0402 00 0 21767 U0560 SUB U3500 *36 U0560 9P134090 | 21476 0100 00 0 21501 TZE U0600 * U0570 9P134100 | 21477 -0120 00 0 21501 TMI U0600 * U0580 9P134110 | 21500 1 00001 1 21475 TXI U0560,1,1 * U0590 9P134120 21501 -3 00016 1 21504 U0600 TXL *+3,1,14 U0600 9P134130 | 21502 0420 00 0 00740 HPR 480 *YES-ERROR U0610 9P134140 | 21503 0774 00 1 00016 AXT 14,1 U0615 9P134150 | 21504 0621 00 0 21514 STA U0700 INIT SHIFT OF MASK U0620 9P134160 | 21505 0400 00 4 00004 ADD 4,4 ADD BIT NO TO GET SHIFT U0630 9P134170 21506 0120 00 0 21511 TPL U0670 IS SHIFT NEG U0640 9P134180 | 1 LISTING OF 12/01/64 PAGE 322 | FPFIXD FIXED ROUTINES OF FP | | 21507 0400 00 0 21767 ADD U3500 * YES-ADD 36 TO SHIFT U0650 9P134190 21510 1 00001 2 21511 TXI *+1,2,1 * U0660 9P134200 | 21511 0621 00 0 21521 U0670 STA U0750 INIT SHIFT INSTRS U0670 9P134210 | 21512 0621 00 0 21530 STA U0820 * U0680 9P134220 | 21513 -0500 00 0 21770 CAL U3510 BUILD LEFT MASK U0690 9P134230 | 21514 0771 00 0 00000 U0700 ARS 0 * U0700 9P134240 21515 0602 00 0 21771 SLW U3520 * U0710 9P134250 | 21516 -0500 60 4 00003 CAL* 3,4 MOVE 1ST WORD U0720 9P134260 | 21517 1 77777 2 21520 TXI *+1,2,-1 * U0730 9P134270 | 21520 0560 60 4 00003 LDQ* 3,4 * U0740 9P134280 | 21521 -0763 00 0 00000 U0750 LGL 0 * U0750 9P134290 21522 -0320 00 0 21771 ANA U3520 * U0760 9P134300 | 21523 0602 00 1 15650 SLW BCDBF+1,1 * U0770 9P134310 | 21524 -2 00001 1 21533 U0780 TNX U0850,1,1 ANY MORE WORDS TO MOVE U0780 9P134320 | 21525 -0500 60 4 00003 CAL* 3,4 MOVE REMAINING WORDS U0790 9P134330 | 21526 1 77777 2 21527 TXI *+1,2,-1 * U0800 9P134340 21527 0560 60 4 00003 LDQ* 3,4 * U0810 9P134350 | 21530 -0763 00 0 00000 U0820 LGL 0 * U0820 9P134360 | 21531 0602 00 1 15650 SLW BCDBF+1,1 * U0830 9P134370 | 21532 0020 00 0 21524 TRA U0780 BACK TO TEST FOR MORE WORDSU0840 9P134380 | 21533 0774 00 1 00000 U0850 AXT 0,1 RESTORE XR1 U0850 9P134390 21534 0774 00 2 00000 U0860 AXT 0,2 RESTORE XR2 U0860 9P134400 | 21535 0020 00 4 00005 TRA 5,4 U0870 9P134410 | * 9P134420 | * PUTBI OBJECT SUBROUTINE 9P134430 | * 9P134440 21536 0634 00 1 21646 PUTBI SXA U1440,1 SAVE XR1 U1000 9P134450 | 21537 0634 00 2 21647 SXA U1450,2 SAVE XR2 U1001 9P134460 | 21540 0634 00 4 21650 SXA U1455,4 U100119P134470 | 21541 0535 00 2 17301 LAC SFLOC,2 INIT XR2 U1002 9P134480 | 21542 -0500 00 4 00005 CAL 5,4 SET UP FOR REJECT U1003 9P134490 21543 0621 00 0 21777 STA U3580 U1005 9P134500 | 21544 0400 00 0 04673 ADD ONE U1006 9P134510 | 21545 0621 00 0 21572 STA U1084 U1007 9P134520 | 21546 0621 00 0 21614 STA U1154 FOR THE TSXS U1008 9P134530 | 21547 0771 00 0 00022 ARS 18 U1009 9P134540 21550 0400 00 0 21777 ADD U3580 U1010 9P134550 | 21551 0400 00 0 04673 ADD ONE U1011 9P134560 | 21552 0621 00 0 22001 STA U3600 FLD 2 ADDR U1012 9P134570 | 21553 0400 00 0 04675 ADD THREE 3 U1013 9P134580 | 21554 0621 00 0 22002 STA U3610 FLD 5 ADDR U1014 9P134590 21555 0500 00 4 00004 CLA 4,4 IS MAX BLANK U1019 9P134600 | 21556 0340 00 0 21773 CAS U3540 *BLANK WORD U1020 9P134610 | 21557 0020 00 0 21561 TRA *+2 * U1030 9P134620 | 21560 0020 00 0 21576 TRA U1090 *YES U1040 9P134630 | 21561 0340 00 0 15631 CAS BINBF MAX TO VALUE U1050 9P134640 21562 0020 00 0 21576 TRA U1090 U1060 9P134650 | 21563 0020 00 0 21576 TRA U1090 U1070 9P134660 | 21564 -0500 00 0 15631 CAL BINBF U1075 9P134670 | 21565 0074 00 4 20175 TSX CHBCD,4 U1076 9P134680 | 21566 0602 60 0 22002 SLW* U3610 STORE VALUE U1080 9P134690 21567 -0500 00 4 00001 CAL 1,4 U1081 9P134700 | 21570 -0320 00 0 22000 ANA U3590 U1082 9P134710 | 21571 0602 60 0 22001 SLW* U3600 STORE FIELD = U1083 9P134720 | 21572 0074 00 4 00000 U1084 TSX 0,4 U1084 9P134730 | 1 LISTING OF 12/01/64 PAGE 323 FPFIXD FIXED ROUTINES OF FP | | 21573 622660442167 BCI 1,SF MAX U1085 9P134740 | 21574 606325626360 BCI 1, TEST U1086 9P134750 | 21575 0020 00 0 21646 TRA U1440 U1087 9P134760 21576 0500 00 4 00003 U1090 CLA 3,4 IS MIN BLANK U1090 9P134770 | 21577 0340 00 0 21773 CAS U3540 * BLANK WORD U1100 9P134780 | 21600 0020 00 0 21602 TRA *+2 * U1110 9P134790 | 21601 0020 00 0 21620 TRA U1160 * YES U1120 9P134800 | 21602 0340 00 0 15631 CAS BINBF U1130 9P134810 21603 0020 00 0 21606 TRA *+3 U1140 9P134820 | 21604 0761 00 0 00000 NOP U1141 9P134830 | 21605 0020 00 0 21620 TRA U1160 U1142 9P134840 | 21606 -0500 00 0 15631 CAL BINBF U1147 9P134850 | 21607 0074 00 4 20175 TSX CHBCD,4 U1148 9P134860 21610 0602 60 0 22002 SLW* U3610 STORE VALUE U1150 9P134870 | 21611 -0500 00 4 00001 CAL 1,4 U1151 9P134880 | 21612 -0320 00 0 22000 ANA U3590 U1152 9P134890 | 21613 0602 60 0 22001 SLW* U3600 STORE FIELD = U1153 9P134900 | 21614 0074 00 4 00000 U1154 TSX 0,4 U1154 9P134910 21615 622660443145 BCI 1,SF MIN U1155 9P134920 | 21616 606325626360 BCI 1, TEST U1156 9P134930 | 21617 0020 00 0 21646 TRA U1440 U1157 9P134940 | 21620 0500 00 4 00001 U1160 CLA 1,4 U1160 9P134950 | 21621 0120 00 0 21644 TPL U1360 MOVE VALUE U1170 9P134960 21622 -0774 00 1 71545 AXC OBSUM,1 U1180 9P134970 | 21623 -0340 00 1 00000 U1190 LAS 0,1 U1190 9P134980 | 21624 1 77775 1 21623 TXI *-1,1,-3 U1200 9P134990 | 21625 1 77776 1 21627 U1210 TXI *+2,1,-2 U1210 9P135000 | 21626 0420 00 0 00743 HPR 483 FLD NO NOT IN SUM TBL U1220 9P135010 21627 0500 00 1 00000 CLA 0,1 U1230 9P135020 | 21630 -0120 00 0 21637 TMI U1310 U1240 9P135030 | 21631 0621 00 0 21636 STA U1300 U1250 9P135040 | 21632 0621 00 0 21633 STA *+1 U1260 9P135050 | 21633 0500 00 0 00000 CLA 0 SUM TO U1270 9P135060 21634 0402 60 4 00002 SUB* 2,4 REMOVE OLD VALUE U1280 9P135070 | 21635 0400 00 0 15631 ADD BINBF ADD NEW VALUE U1290 9P135080 | 21636 0601 00 0 00000 U1300 STO 0 * U1300 9P135090 | 21637 1 77777 1 21640 U1310 TXI *+1,1,-1 MODIFY TO NEXT FLD NO U1310 9P135100 | 21640 0500 00 4 00001 CLA 1,4 U1320 9P135110 21641 -0340 00 1 00000 LAS 0,1 U1330 9P135120 | 21642 0020 00 0 21644 TRA *+2 U1340 9P135130 | 21643 0020 00 0 21625 TRA U1210 U1350 9P135140 | 21644 -0500 00 0 15631 U1360 CAL BINBF STORE NEW VALUE U1360 9P135150 | 21645 0602 60 4 00002 SLW* 2,4 * U1410 9P135160 21646 0774 00 1 00000 U1440 AXT 0,1 RESTORE XR1 U1440 9P135170 | 21647 0774 00 2 00000 U1450 AXT 0,2 RESTORE XR2 U1450 9P135180 | 21650 0774 00 4 00000 U1455 AXT 0,4 U1455 9P135190 | 21651 0020 00 4 00006 TRA 6,4 RETURN U1460 9P135200 | 1 LISTING OF 12/01/64 PAGE 324 FPFIXD FIXED ROUTINES OF FP | | * 9P135220 | * PUTUN OBJECT SUBROUTINE 9P135230 | * 9P135240 21652 0634 00 1 21670 PUTUN SXA U3200,1 SAVE SR1 U3000 9P135250 | 21653 0634 00 2 21671 SXA U3210,2 SAVE SR2 U3010 9P135260 | 21654 0500 00 4 00001 CLA 1,4 INIT XR2 TO SIZE U3020 9P135270 | 21655 0734 00 2 00000 PAX 0,2 * U3030 9P135280 | 21656 0774 00 1 00001 AXT 1,1 INIT XR1 TO 1 U3040 9P135290 21657 -2 00044 2 21661 TNX *+2,2,36 CALC NO OF WDS TO MOVE U3050 9P135300 | 21660 1 00001 1 21657 TXI *-1,1,1 INCR XR1 BY 1 U3060 9P135310 | 21661 -3 00016 1 21663 TXL *+2,1,14 TEST LIMIT U3070 9P135320 | 21662 0420 00 0 00745 HPR 485 EXCEEDED TABLE U3080 9P135330 | 21663 0535 00 2 17301 LAC SFLOC,2 U3090 9P135340 21664 -0500 00 1 15650 U3100 CAL BCDBF+1,1 MOVE VALUE U3100 9P135350 | 21665 0602 60 4 00002 SLW* 2,4 * U3150 9P135360 | 21666 -2 00001 1 21670 TNX *+2,1,1 TEST FOR LAST WORD U3180 9P135370 | 21667 1 77777 2 21664 TXI U3100,2,-1 DECT XR2 BY 1 U3190 9P135380 | 21670 0774 00 1 00000 U3200 AXT 0,1 RESTORE XR1 U3200 9P135390 21671 0774 00 2 00000 U3210 AXT 0,2 RESTORE XR2 U3210 9P135400 | 21672 0020 00 4 00004 TRA 4,4 RETURN U3220 9P135410 | * 9P135420 | * PUTPA OBJECT SUBROUTINE 9P135430 | * 9P135440 21673 0634 00 1 21757 PUTPA SXA U2730,1 SAVE XR1 U2000 9P135450 | 21674 0634 00 2 21760 SXA U2740,2 SAVE XR2 U2010 9P135460 | 21675 0535 00 2 17301 LAC SFLOC,2 INIT XR2 TO 1ST WORD COMPL U2020 9P135470 | 21676 0774 00 1 00001 AXT 1,1 INIT XR1 TO 1 U2030 9P135480 | 21677 0500 00 4 00001 CLA 1,4 CALC NO OF WORDS TO MOVE U2040 9P135490 21700 0402 00 0 21767 U2050 SUB U3500 * 36 U2050 9P135500 | 21701 -0120 00 0 21705 TMI U2100 * U2060 9P135510 | 21702 0100 00 0 21704 TZE U2090 * U2070 9P135520 | 21703 1 00001 1 21700 TXI U2050,1,1 * U2080 9P135530 | 21704 -0760 00 0 00003 U2090 SSM SET ACC MINUS U2090 9P135540 21705 -3 00016 1 21707 U2100 TXL *+2,1,14 IS SIZE LARGER THAN BUFFER U2100 9P135550 | 21706 0420 00 0 00744 HPR 484 *YES ERROR U2110 9P135560 | 21707 0400 00 4 00003 ADD 3,4 CALC SHIFT-ADD BIT NO U2120 9P135570 | 21710 -0120 00 0 21713 TMI U2160 IS SHIFT POSITIVE U2130 9P135580 | 21711 0402 00 0 21767 SUB U3500 * YES-SUB 36 FROM SHIFT U2140 9P135590 21712 1 00001 1 21713 TXI *+1,1,1 * ADD 1 TO NO OF MOVES U2150 9P135600 | 21713 0621 00 0 21774 U2160 STA U3550 INIT SHIFT OF VALUE U2160 9P135610 | 21714 0621 00 0 21716 STA *+2 INIT ALS OF RT MASK U2170 9P135620 | 21715 -0500 00 0 21770 CAL U3510 BUILD RT MASK U2180 9P135630 | 21716 0767 00 0 00000 ALS 0 * U2190 9P135640 21717 0602 00 0 21772 SLW U3530 * U2200 9P135650 | 21720 0760 00 0 00006 COM BUILD RT MASK COMPL U2210 9P135660 | 21721 0602 00 0 21776 SLW U3570 * U2220 9P135670 | 21722 -0500 00 4 00003 CAL 3,4 INIT ARS FOR LEFT MASK U2230 9P135680 | 21723 0621 00 0 21725 STA *+2 * U2240 9P135690 21724 -0500 00 0 21770 CAL U3510 BUILD LEFT MASK U2250 9P135700 | 21725 0771 00 0 00000 ARS 0 * U2260 9P135710 | 21726 -3 00001 1 21762 TXL U2760,1,1 IS THERE ONLY 1 WORD U2270 9P135720 | 21727 0602 00 0 21771 SLW U3520 STORE LEFT MASK U2280 9P135730 | 21730 0760 00 0 00006 COM BUILD LEFT MASK COMPL U2290 9P135740 21731 0602 00 0 21775 SLW U3560 * U2300 9P135750 | 21732 -0500 00 0 21775 CAL U3560 * LEFT MASK COMPL U2360 9P135760 | 1 LISTING OF 12/01/64 PAGE 325 | FPFIXD FIXED ROUTINES OF FP | 21733 0320 60 4 00002 ANS* 2,4 * U2370 9P135770 | 21734 -0500 00 1 15650 CAL BCDBF+1,1 * U2380 9P135780 | 21735 1 77777 1 21736 TXI *+1,1,-1 * U2390 9P135790 | 21736 0560 00 1 15650 LDQ BCDBF+1,1 * U2400 9P135800 | 21737 0522 00 0 21774 XEC U3550 * SHIFT U2410 9P135810 21740 -0320 00 0 21771 ANA U3520 * LEFT MASK U2420 9P135820 | 21741 -0602 60 4 00002 ORS* 2,4 * U2430 9P135830 | 21742 1 77777 2 21743 U2460 TXI *+1,2,-1 INCR XR2 BY -1 U2460 9P135840 | 21743 -3 00001 1 21751 TXL U2600,1,1 ANY MIDDLE WORDS TO MOVE U2470 9P135850 | 21744 -0500 00 1 15650 CAL BCDBF+1,1 * U2520 9P135860 21745 0560 00 1 15651 LDQ BCDBF+2,1 * U2540 9P135870 | 21746 0522 00 0 21774 XEC U3550 * SHIFT U2550 9P135880 | 21747 0602 60 4 00002 SLW* 2,4 * U2560 9P135890 | 21750 1 77777 1 21742 TXI U2460,1,-1 DECR XR1 U2590 9P135900 | 21751 -0500 00 0 21776 U2600 CAL U3570 RT MASK COMPL U2600 9P135910 21752 0320 60 4 00002 ANS* 2,4 * U2660 9P135920 | 21753 -0500 00 1 15650 CAL BCDBF+1,1 * U2670 9P135930 | 21754 0522 00 0 21774 XEC U3550 * SHIFT U2680 9P135940 | 21755 -0320 00 0 21772 ANA U3530 * RT MASK U2690 9P135950 | 21756 -0602 60 4 00002 ORS* 2,4 * U2700 9P135960 21757 0774 00 1 00000 U2730 AXT 0,1 RESTORE XR1 U2730 9P135970 | 21760 0774 00 2 00000 U2740 AXT 0,2 RESTORE XR2 U2740 9P135980 | 21761 0020 00 4 00004 TRA 4,4 U2750 9P135990 | 21762 -0320 00 0 21772 U2760 ANA U3530 COMBINE MASKS U2760 9P136000 | 21763 0602 00 0 21772 SLW U3530 * TO RT MASK U2770 9P136010 21764 0760 00 0 00006 COM * U2780 9P136020 | 21765 0602 00 0 21776 SLW U3570 T TO RT MASK COMPL U2790 9P136030 | 21766 0020 00 0 21751 TRA U2600 U2800 9P136040 | * 9P136050 | * GET-PUT OBJECT STORAGE 9P136060 21767 0 00000 0 00044 U3500 PZE 36 36 U3500 9P136070 | 21770 -377777777777 U3510 OCT 777777777777 BCD77 U3510 9P136080 | 21771 0 00000 0 00000 U3520 PZE LEFT MASK U3520 9P136090 | 21772 0 00000 0 00000 U3530 PZE RT MASK U3530 9P136100 | 21773 606060606060 U3540 BCI 1, BLANK WORD U3540 9P136110 21774 -0763 00 0 00000 U3550 LGL 0 LEFT SHIFT U3550 9P136120 | 21775 0 00000 0 00000 U3560 PZE LEFT MASK COMP U3560 9P136130 | 21776 0 00000 0 00000 U3570 PZE RT MASK COMP U3570 9P136140 | 21777 0 00000 0 00000 U3580 PZE 0 1ST WD OF REJ PKG U3580 9P136150 | 22000 +000077777777 U3590 OCT 77777777 FLD= MASK U3590 9P136160 22001 0 00000 0 00000 U3600 PZE 0 FLD 2 ADDR U3600 9P136170 | 22002 0 00000 0 00000 U3610 PZE 0 FLD 5 ADDR U3610 9P136180 | 1 LISTING OF 12/01/64 PAGE 326 | FPFIXD FIXED ROUTINES OF FP | * 9P136200 | * 9P136210 | * OBJECT PROGRAM SUMRY SUBROUTINE 9P136220 | * 9P136230 | * 9P136240 22003 0634 00 1 22047 SUMRY SXA U5210,1 U5010 9P136250 | 22004 0634 00 4 22050 SXA U5220,4 U5011 9P136260 | 22005 -0500 00 4 00002 CAL 2,4 SET UP FOR REJECT U5012 9P136270 | 22006 0621 00 0 21777 STA U3580 U5013 9P136280 | 22007 0400 00 0 04673 ADD ONE U5014 9P136290 22010 0621 00 0 22027 STA U5073 FOR TSX U5015 9P136300 | 22011 0771 00 0 00022 ARS 18 U5016 9P136310 | 22012 0400 00 0 21777 ADD U3580 U5017 9P136320 | 22013 0400 00 0 04673 ADD ONE U5020 9P136330 | 22014 0621 00 0 22001 STA U3600 FLD 2 ADDR U5021 9P136340 22015 0400 00 0 04675 ADD THREE U5022 9P136350 | 22016 0621 00 0 22002 STA U3610 FLD 5 ADDR U5023 9P136360 | 22017 -0774 00 1 71545 AXC OBSUM,1 U5014 9P136370 | 22020 0500 00 4 00001 CLA 1,4 U5030 9P136380 | 22021 -0340 00 1 00000 LAS 0,1 U5040 9P136390 22022 1 77775 1 22021 TXI *-1,1,-3 U5050 9P136400 | 22023 1 77776 1 22033 U5060 TXI *+8,1,-2 U5060 9P136410 | 22024 -0500 00 4 00001 CAL 1,4 U5070 9P136420 | 22025 -0320 00 0 22000 ANA U3590 U5071 9P136430 | 22026 0602 60 0 22001 SLW* U3600 STORE FLD = U5072 9P136440 22027 0074 00 4 00000 U5073 TSX 0,4 U5073 9P136450 | 22030 454660626444 BCI 1,NO SUM U5074 9P136460 | 22031 602631254324 BCI 1, FIELD U5075 9P136470 | 22032 0020 00 0 22047 TRA U5210 U5076 9P136480 | 22033 0500 00 1 00000 CLA 0,1 U5080 9P136490 22034 -0120 00 0 22042 TMI U5150 U5090 9P136500 | 22035 0621 00 0 22041 STA *+4 U5100 9P136510 | 22036 0621 00 0 22037 STA *+1 U5110 9P136520 | 22037 0500 00 0 00000 CLA 0 SUM TO U5120 9P136530 | 22040 0400 00 0 15631 ADD BINBF U5130 9P136540 22041 0601 00 0 00000 STO 0 U5140 9P136550 | 22042 1 77777 1 22043 U5150 TXI *+1,1,-1 MODIFY TO NEXT FLD NO U5150 9P136560 | 22043 0500 00 4 00001 CLA 1,4 U5160 9P136570 | 22044 -0340 00 1 00000 LAS 0,1 U5170 9P136580 | 22045 0020 00 0 22047 TRA *+2 U5180 9P136590 22046 0020 00 0 22023 TRA U5060 U5190 9P136600 | 22047 0774 00 1 00000 U5210 AXT 0,1 U5210 9P136610 | 22050 0774 00 4 00000 U5220 AXT 0,4 9P136620 | 22051 0020 00 4 00003 TRA 3,4 RETURN U5230 9P136630 | * OBJECT TO - FROM PROGRAM NN000 9P136640 22052 0634 00 4 22166 TOFRM SXA NN082,4 SAVE XR FOUR NN00109P136650 | 22053 0500 00 4 00001 CLA 1,4 NN00209P136660 | 22054 0400 00 0 17300 ADD CHLOC NN00309P136670 | 22055 0400 00 0 04673 ADD ONE NN00409P136680 | 22056 0621 00 0 22061 STA NN010 SLW BLANKS NN00509P136690 22057 0522 00 4 00002 XEC 2,4 NN00609P136700 | 22060 -0500 00 0 22170 CAL NNA01 BLANKS NN00709P136710 | 22061 0602 00 1 00000 NN010 SLW 0,1 NN01009P136720 | 22062 2 00001 1 22061 TIX *-1,1,1 NN01109P136730 | 22063 0535 00 4 22176 LAC DICLO,4 NN01209P136740 1 LISTING OF 12/01/64 PAGE 327 | FPFIXD FIXED ROUTINES OF FP | | 22064 -0500 00 4 00000 CAL 0,4 NN01219P136750 | 22065 0322 00 0 21423 ERA PXA80 NN01229P136760 22066 0100 00 0 22164 TZE NN080 NN01239P136770 | 22067 -0500 00 0 17301 CAL SFLOC NN01309P136780 | 22070 0400 00 4 00003 ADD 3,4 NN01409P136790 | 22071 0737 00 2 00000 PAC 0,2 NN01509P136800 | 22072 0560 00 4 00002 LDQ 2,4 SIZE NN01609P136810 22073 -0754 00 0 00000 PXD 0,0 NN01709P136820 | 22074 0220 00 0 22172 DVH NNA03 36 NN01809P136830 | 22075 0601 00 0 22173 STO NNA04 LMASK TEMP NN01909P136840 | 22076 0400 00 4 00004 ADD 4,4 BIT INCR NN02009P136850 | 22077 0621 00 0 22152 STA NN062 SHIFT NN02109P136860 22100 -0520 00 0 22173 NZT NNA04 NN02119P136870 | 22101 0020 00 0 22106 TRA NN026 NN02129P136880 | 22102 0402 00 0 22172 SUB NNA03 36 NN02209P136890 | 22103 0120 00 0 22105 TPL *+2 NN02309P136900 | 22104 1 00001 2 22106 TXI *+2,2,1 NN02409P136910 22105 0621 00 0 22152 STA NN062 SHIFT NN02509P136920 | 22106 -0130 00 0 00000 NN026 XCL 0 NN026 9P136930 | 22107 0520 00 0 22173 ZET NNA04 L MASK TEMP NN02709P136940 | 22110 0400 00 0 04673 ADD ONE NN02809P136950 | 22111 0734 00 1 00000 PAX 0,1 NN02909P136960 22112 -0500 00 0 22173 CAL NNA04 L MASK TEMP NN03009P136970 | 22113 0100 00 0 22117 TZE *+4 NN03109P136980 | 22114 0621 00 0 22116 STA *+2 NN03209P136990 | 22115 -0500 00 0 22171 CAL NNA02 ALL ONES NN03309P137000 | 22116 0767 00 0 00000 ALS 0 NN03409P137010 22117 0320 60 0 22061 ANS* NN010 NN03509P137020 | 22120 0760 00 0 00006 COM 0 NN03609P137030 | 22121 0602 00 0 22173 SLW NNA04 L MASK. NN03709P137040 | 22122 0441 00 4 00001 LDI 1,4 NN03809P137050 | 22123 -0054 00 010000 LFT 010000 NN03909P137060 22124 0020 00 0 22150 TRA NN060 BCD NN04009P137070 | 22125 -0500 00 0 22173 CAL NNA04 NN04019P137080 | 22126 0322 00 0 22171 ERA NNA02 NN04029P137090 | 22127 -0100 00 0 22131 TNZ *+2 NN04039P137100 | 22130 1 00001 2 22131 TXI *+1,2,1 NN04049P137110 * CONVERT AND PUT AWAY INARY FIELD NN04059P137120 | 22131 0500 00 2 00001 CLA 1,2 NN04109P137130 | 22132 0601 00 0 20261 STO BDBIN NN04209P137140 | 22133 0074 00 4 20213 TSX TOBCD,4 NN04309P137150 | 22134 -3 00001 1 22144 TXL NN054,1,1 NN04409P137160 22135 -0500 00 0 20262 CAL BDBCL NN04509P137170 | 22136 -0320 00 0 22173 ANA NNA04 LMASK NN04609P137180 | 22137 -0602 60 0 22061 ORS* NN010 NN04709P137190 | 22140 1 77777 1 22141 TXI *+1,1,-1 NN04809P137200 | 22141 -0500 00 0 20263 CAL BDBCR NN04909P137210 22142 0602 60 0 22061 SLW* NN010 NN05209P137220 | 22143 0020 00 0 22164 TRA NN080 TO OUT NN05309P137230 | 22144 -0500 00 0 20263 NN054 CAL BDBCR NN05409P137240 | 22145 -0320 00 0 22173 ANA NNA04 NN05509P137250 | 22146 -0602 60 0 22061 ORS* NN010 NN05609P137260 22147 0020 00 0 22164 TRA NN080 NN05709P137270 | * PUT AWAY BCD FIELD NN05999P137280 | 22150 -0500 00 2 00000 NN060 CAL 0,2 NN06009P137290 | 1 LISTING OF 12/01/64 PAGE 328 | FPFIXD FIXED ROUTINES OF FP | 22151 0560 00 2 00001 LDQ 1,2 NN06109P137300 | 22152 -0763 00 0 00000 NN062 LGL 0 MODIFIED NN06209P137310 | 22153 -0320 00 0 22173 ANA NNA04 LMASK NN06309P137320 | 22154 -0602 60 0 22061 ORS* NN010 NN06409P137330 22155 0020 00 0 22162 TRA NN070 NN06509P137340 | 22156 -0500 00 2 00000 NN066 CAL 0,2 NN06609P137350 | 22157 0560 00 2 00001 LDQ 1,2 NN06709P137360 | 22160 0522 00 0 22152 XEC NN062 SHIFT NN06809P137370 | 22161 0602 60 0 22061 SLW* NN010 NN06909P137380 22162 1 77777 2 22163 NN070 TXI *+1,2,-1 NN07009P137390 | 22163 2 00001 1 22156 TIX NN066,1,1 NN07109P137400 | * GET OUT NN07999P137410 | 22164 0535 00 1 22174 NN080 LAC MRGLO,1 NN08009P137420 | 22165 0535 00 2 17301 LAC SFLOC,2 NN08109P137430 22166 0774 00 4 00000 NN082 AXT 0,4 NN08209P137440 | 22167 0020 00 4 00003 TRA 3,4 NN08309P137450 | * STORAGE NNA00 9P137460 | 22170 606060606060 NNA01 BCI 1, NNA01 9P137470 | 22171 -377777777777 NNA02 OCT 777777777777 NNA02 9P137480 22172 0 00000 0 00044 NNA03 PZE 36 NNA03 9P137490 | 22173 0 00000 0 00000 NNA04 PZE 0 LMASK NNA04 9P137500 | 1 LISTING OF 12/01/64 PAGE 329 | FPFIXD FIXED ROUTINES OF FP | * OBJECT PROGRAM STORAGE X0000 9P137520 | 22174 0 00000 0 00000 MRGLO PZE LOC LEFT WORD ML CHANGE X0040 9P137530 | 22175 0 00000 0 00000 MLCUR PZE * SEQ BUFFER X0050 9P137540 | 22176 0 00000 0 00000 DICLO PZE HORIZ-LEFT WORD DECT RECORDX0090 9P137550 | 22177 0 00000 0 00000 VALLO PZE * -* -VALUE FIELD X0100 9P137560 22200 0 00000 0 00000 HORXR PZE * -RIGHT WORD PREV VALUE FLX0110 9P137570 | 22201 0 00000 0 00000 ESWCH PZE DELETE SWITCHES-ZERO CLOSEDX0150 9P137580 | 22202 0 00000 0 00000 DSWCH PZE * -N/Z OPEN X0160 9P137590 | 22203 0 00000 0 00000 HIGH PZE ML SF ZERO IS HIGH X0170 9P137600 | 22204 0 00000 0 00000 EQUAL PZE ZERO IS EQUAL X0180 9P137610 22205 0 00000 0 00000 PSWCH PZE FOR OBJECT X0195 9P137620 | 22206 0 00000 0 00000 REJSW PZE OX0196 9P137630 | 1 LISTING OF 12/01/64 PAGE 330 | FPFIXD FIXED ROUTINES OF FP | * 9P137650 | * 9P137660 | * 9P137670 | * 9P137680 | * OBJECT MERGE Y0000 9P137690 * 9P137700 | * 9P137710 | 22207 -0625 00 0 22317 MRGUN STL Y1008 MERGE-UNMATCHED Y000059P137720 | 22210 -0520 00 0 22314 MERGE NZT Y1005 SUMM LOW SW Y0001 9P137730 | 22211 0020 00 0 00000 TRA 0 TO READ PACKAGE Y0002 9P137740 22212 0535 00 4 22175 LAC MLCUR,4 Y0002 9P137750 | 22213 0534 00 1 72455 LXA Y1002,1 Y0004 9P137760 | 22214 0760 00 0 00000 CLM Y0005 9P137770 | 22215 0760 00 0 00006 COM Y0006 9P137780 | 22216 -2 00001 1 22221 TNX *+3,1,1 Y0007 9P137790 22217 0602 00 4 00000 SLW 0,4 Y0008 9P137800 | 22220 1 77777 4 22216 TXI *-2,4,-1 Y0009 9P137810 | 22221 0534 00 2 72562 MGRCD LXA MGTBL+MGZE-2,2 Y0010 9P137820 | 22222 0634 00 2 22225 SXA Y0050,2 Y0020 9P137830 | 22223 0534 00 4 72454 LXA Y1001,4 NO. BUFFERS TO MATCH Y0030 9P137840 22224 0020 00 0 22234 TRA Y0110 Y0040 9P137850 | 22225 -0500 00 1 00000 Y0050 CAL 0,1 Y0050 9P137860 | 22226 -0340 00 1 00000 Y0060 LAS 0,1 Y0060 9P137870 | 22227 0020 00 0 22252 TRA Y0240 Y0070 9P137880 | 22230 0020 00 0 22232 TRA *+2 Y0080 9P137890 22231 0020 00 0 22233 TRA *+2 Y0090 9P137900 | 22232 2 00001 1 22225 Y0100 TIX Y0050,1,1 Y0100 9P137910 | 22233 -2 00002 4 22240 Y0105 TNX Y0150,4,2 Y0105 9P137920 | 22234 0534 00 1 72455 Y0110 LXA Y1002,1 Y0110 9P137930 | 22235 0522 00 4 72562 XEC MGTBL+MGZE-2,4 Y0120 9P137940 22236 0634 00 2 22226 SXA Y0060,2 Y0130 9P137950 | 22237 3 00000 4 22225 TXH Y0050,4,0 Y0140 9P137960 | 22240 0534 00 1 72454 Y0150 LXA Y1001,1 Y0150 9P137970 | 22241 -0500 00 0 22225 CAL Y0050 Y0160 9P137980 | 22242 0621 00 0 22312 STA Y1003 Y0170 9P137990 22243 -0500 00 1 72562 Y0180 CAL MGTBL+MGZE-2,1 Y0180 9P138000 | 22244 -0320 00 0 22313 ANA Y1004 Y0190 9P138010 | 22245 -0340 00 0 22312 LAS Y1003 Y0191 9P138020 | 22246 0020 00 0 22250 TRA *+2 Y0200 9P138030 | 22247 0020 00 0 22255 TRA Y0270 Y0210 9P138040 22250 2 00002 1 22243 TIX Y0180,1,2 Y0220 9P138050 | 22251 1 77776 1 22310 TXI Y0310,1,-2 Y0230 9P138060 | 22252 0534 00 2 22226 Y0240 LXA Y0060,2 Y0240 9P138070 | 22253 0634 00 2 22225 SXA Y0050,2 Y0250 9P138080 | 22254 0020 00 0 22233 TRA Y0105 Y0260 9P138090 22255 -0500 00 0 22225 Y0270 CAL Y0050 Y0270 9P138100 | 22256 0402 00 0 72455 SUB Y1002 Y0275 9P138110 | 22257 0621 00 0 22175 STA MLCUR Y0280 9P138120 | 22260 0500 00 1 72563 CLA MGTBL+MGZE-1,1 Y028019P138130 | 22261 -0120 00 0 22264 TMI *+3 Y028029P138140 22262 0600 00 0 22314 STZ Y1005 SUMM LOW SW Y028039P138150 | 22263 0020 00 0 22270 TRA *+5 Y028049P138160 | 22264 -0625 00 0 22314 STL Y1005 SUMM LOW SW Y028059P138170 | 22265 0621 00 0 22266 STA *+1 Y028069P138180 | 22266 -0625 00 0 00000 STL 0 SUMM ENTRY SW Y028079P138190 1 LISTING OF 12/01/64 PAGE 331 | FPFIXD FIXED ROUTINES OF FP | | 22267 0020 00 0 22277 TRA *+8 Y028089P138200 | 22270 0737 00 4 00000 PAC 0,4 Y0282 9P138210 22271 0400 00 0 04676 ADD FOUR Y0283 9P138220 | 22272 0621 00 0 22211 STA MERGE+1 Y0284 9P138230 | 22273 0522 00 4 00000 XEC 0,4 Y0290 9P138240 | 22274 0522 00 4 00001 XEC 1,4 Y0291 9P138250 | 22275 0522 00 4 00002 XEC 2,4 Y0292 9P138260 22276 0522 00 4 00003 XEC 3,4 Y0293 9P138270 | 22277 -0520 00 0 22316 NZT Y1007 SUMM ID MERGE SW Y0294 9P138280 | 22300 0020 00 0 22304 TRA *+4 Y0295 9P138290 | 22301 0535 00 4 22316 LAC Y1007,4 Y0296 9P138300 | 22302 0600 00 0 22316 STZ Y1007 Y0297 9P138310 22303 0020 00 4 00001 TRA 1,4 Y0298 9P138320 | 22304 -0520 00 0 22317 Y0300 NZT Y1008 Y0300 9P138330 | 22305 0020 60 0 72452 TRA* Y0302 9P138340 | 22306 0600 00 0 22317 STZ Y1008 Y0303 9P138350 | 22307 0020 60 0 72453 TRA* Y0304 9P138360 22310 -3 00000 1 22243 Y0310 TXL Y0180,1,0 Y0310 9P138370 | 22311 0074 00 4 04000 TSX LOST,4 Y0320 9P138380 | 22312 0 00000 0 00000 Y1003 PZE 0 FOR TABLE SEARCH Y1003 9P138390 | 22313 +000000077777 Y1004 OCT 77777 Y1004 9P138400 | 22314 0 00000 0 00000 Y1005 PZE 0 SUMM LOW SWITCH Y1005 9P138410 22315 0 00000 0 00007 Y1006 PZE 7 SUMM RECORD SW Y1006 9P138420 | 22316 0 00000 0 00000 Y1007 PZE 0 SUMM ID MERGE SWITCH Y1007 9P138430 | 22317 0 00000 0 00000 Y1008 PZE UNM-SW Y1008 9P138440 | 1 LISTING OF 12/01/64 PAGE 332 | FPFIXD FIXED ROUTINES OF FP | * SAVE AND RESTORE INDEX REGISTERS Y2000 9P138460 | 22320 -0625 00 0 22206 REJXR STL REJSW Y2005 9P138470 | 22321 0634 00 1 22367 SAVXR SXA Y2090,1 Y2010 9P138480 | 22322 0634 00 2 22370 SXA Y2100,2 Y2020 9P138490 22323 0634 00 4 22371 SXA Y2110,4 Y2030 9P138500 | 22324 -0500 00 4 00001 CAL 1,4 Y2040 9P138510 | 22325 -0734 00 1 00000 PDX 0,1 Y2050 9P138520 | 22326 0634 00 1 22376 SXA Y2139,1 Y205059P138530 | 22327 0621 00 0 22365 STA Y2078 Y2051 9P138540 22330 0771 00 0 00017 ARS 15 Y2052 9P138550 | 22331 -0734 00 2 00000 PDX 0,2 Y2053 9P138560 | 22332 -3 00000 2 22365 TXL Y2078,2,0 Y2054 9P138570 | 22333 -0634 00 2 22354 SXD Y2063,2 Y2055 9P138580 | 22334 0500 00 1 72607 CLA CTTBL,1 Y2056 9P138590 22335 -0734 00 4 00000 PDX 0,4 Y2057 9P138600 | 22336 0774 00 2 00000 AXT 0,2 Y2058 9P138610 | 22337 -0500 60 1 17310 CAL* RECRD,1 Y2059 9P138620 | 22340 0604 00 0 15630 STI BUFER Y206009P138630 | 22341 0044 00 0 00000 PAI Y206019P138640 22342 -0056 00 520000 LNT 520000 9P138650 | 22343 0020 00 0 22345 TRA *+2 9P138660 | 22344 -0320 00 0 22435 ANA Y2402 9P138670 | 22345 -0056 00 320000 LNT 320000 Y206029P138680 | 22346 0020 00 0 22350 TRA *+2 Y206039P138690 22347 -0320 00 0 22435 ANA Y2402 007700000000 Y206049P138700 | 22350 -0320 00 0 22434 ANA Y2401 177700000000 Y206059P138710 | 22351 0441 00 0 15630 LDI BUFER Y206069P138720 | 22352 -0340 60 1 72607 LAS* CTTBL,1 Y2061 9P138730 | 22353 1 77770 2 22356 TXI *+3,2,-8 Y2062 9P138740 22354 1 00000 2 22361 Y2063 TXI *+5,2,.. Y2063 9P138750 | 22355 1 77770 2 22356 TXI *+1,2,-8 Y2064 9P138760 | 22356 2 00001 4 22352 TIX *-4,4,1 Y2065 9P138770 | 22357 0074 00 4 22564 TSX PRERR,4 Y2066 9P138780 | 22360 0020 00 0 22365 TRA Y2078 Y2067 9P138790 22361 1 77770 2 22362 TXI *+1,2,-8 Y2068 9P138800 | 22362 0500 60 1 72607 CLA* CTTBL,1 Y2069 9P138810 | 22363 0400 00 0 04673 ADD ONE Y2070 9P138820 | 22364 0601 60 1 72607 STO* CTTBL,1 Y2071 9P138830 | 22365 0074 00 4 00000 Y2078 TSX ..,4 Y2078 9P138840 22366 0020 00 0 22373 TRA Y2130 Y2080 9P138850 | 22367 0774 00 1 00000 Y2090 AXT ..,1 Y2090 9P138860 | 22370 0774 00 2 00000 Y2100 AXT ..,2 Y2100 9P138870 | 22371 0774 00 4 00000 Y2110 AXT ..,4 Y2110 9P138880 | 22372 0020 00 4 00003 TRA 3,4 Y2120 9P138890 22373 -0500 00 0 22365 Y2130 CAL Y2078 Y2130 9P138900 | 22374 0322 00 0 22433 ERA Y2400 Y2131 9P138910 | 22375 -0100 00 0 22425 TNZ Y2352 Y2132 9P138920 | 22376 0774 00 1 00000 Y2139 AXT ..,1 Y2139 9P138930 | 22377 0500 00 1 72607 CLA CTTBL,1 Y2140 9P138940 22400 -0734 00 4 00000 PDX 0,4 Y2150 9P138950 | 22401 0774 00 2 00000 AXT 0,2 Y2160 9P138960 | 22402 -0500 60 1 17310 CAL* RECRD,1 RECORD TYPE THIS RECORD Y2170 9P138970 | 22403 -0320 00 0 15621 ANA TPMSK 777700000000 Y2180 9P138980 | 22404 -0340 60 1 72607 LAS* CTTBL,1 Y2190 9P138990 22405 1 00003 2 22410 TXI *+3,2,3 Y2200 9P139000 | 1 LISTING OF 12/01/64 PAGE 333 | FPFIXD FIXED ROUTINES OF FP | | 22406 1 77777 2 22412 TXI Y2250,2,-1 Y2210 9P139010 22407 1 00003 2 22410 TXI *+1,2,3 Y2220 9P139020 | 22410 2 00001 4 22404 TIX *-4,4,1 Y2230 9P139030 | 22411 0074 00 4 16072 TSX TYPER,4 Y2240 9P139040 | 22412 0500 60 1 72607 Y2250 CLA* CTTBL,1 Y2250 9P139050 | 22413 0400 00 0 04673 ADD ONE Y2260 9P139060 22414 0601 60 1 72607 STO* CTTBL,1 Y2270 9P139070 | 22415 -0500 00 1 17404 CAL BKSPT,1 Y2280 9P139080 | 22416 0100 00 0 22427 TZE Y2360 Y2290 9P139090 | 22417 0761 00 0 00000 NOP Y2310 9P139100 | 22420 1 77777 2 22421 TXI *+1,2,-1 Y2320 9P139110 22421 0500 60 1 72607 CLA* CTTBL,1 Y2330 9P139120 | 22422 0400 00 0 04673 ADD ONE Y2340 9P139130 | 22423 0601 60 1 72607 STO* CTTBL,1 Y2350 9P139140 | 22424 0020 00 0 22427 TRA Y2360 Y2351 9P139150 | 22425 0534 00 1 22376 Y2352 LXA Y2139,1 Y2352 9P139160 22426 0761 00 0 00000 NOP Y2353 9P139170 | 22427 0534 00 1 22367 Y2360 LXA Y2090,1 Y2360 9P139180 | 22430 0534 00 2 22370 LXA Y2100,2 Y2370 9P139190 | 22431 0534 00 4 22371 LXA Y2110,4 Y2380 9P139200 | 22432 0020 00 4 00002 TRA 2,4 Y2390 9P139210 22433 0074 00 4 16174 Y2400 TSX INPUT,4 THIS IS A CONSTANT Y2400 9P139220 | 22434 +177700000000 Y2401 OCT 177700000000 Y2401 9P139230 | 22435 +007700000000 Y2402 OCT 007700000000 Y2402 9P139240 | 1 LISTING OF 12/01/64 PAGE 334 | FPFIXD FIXED ROUTINES OF FP | * IMPOSSIBLE ERROR DROP DEAD MESSAGE Y3000 9P139260 | 22436 0634 00 4 22442 IMPOS SXA *+4,4 Y3010 9P139270 | 22437 0074 00 4 05630 TSX CLIST,4 Y3020 9P139280 | 22440 0 00010 3 22443 PZE Y3200,3,8 Y3030 9P139290 22441 0074 00 4 05134 TSX DDEAD,4 Y3040 9P139300 | 22442 0 00000 0 00000 PZE 0 Y3050 9P139310 | 22443 314447466262 Y3200 BCI 5,IMPOSSIBLE MASTER INPUT SEQUEN Y3200 9P139320 | 22450 232560465160 BCI 3,CE OR RECORD TYPE. Y3210 9P139330 | 1 LISTING OF 12/01/64 PAGE 335 FPFIXD FIXED ROUTINES OF FP | | 22453 0634 00 4 22512 HCKSM SXA Y4300,4 Y4010 9P139350 | 22454 0600 00 0 17347 STZ CTREM-9 UNBLOCKED INPUT Y4015 9P139360 | 22455 0535 00 4 22176 LAC DICLO,4 Y4020 9P139370 22456 -0500 00 4 77777 CAL -1,4 Y4030 9P139380 | 22457 0600 00 4 77777 STZ -1,4 Y4035 9P139390 | 22460 -0765 00 0 00022 LGR 18 Y4040 9P139400 | 22461 0737 00 4 00000 PAC 0,4 Y4050 9P139410 | 22462 0754 00 0 00000 PXA 0,0 Y4060 9P139420 22463 -0763 00 0 00022 LGL 18 Y4070 9P139430 | 22464 0602 00 0 22514 SLW Y4320 Y4080 9P139440 | 22465 -0500 00 0 22174 CAL MRGLO Y4090 9P139450 | 22466 0621 00 0 22511 STA Y4280 Y4097 9P139460 | 22467 0621 00 0 22472 STA *+3 Y4100 9P139470 22470 0760 00 0 00000 CLM Y4110 9P139480 | 22471 1 00001 4 22472 TXI *+1,4,1 Y4120 9P139490 | 22472 0361 00 4 00000 ACL 0,4 Y4130 9P139500 | 22473 3 00000 4 22471 TXH *-2,4,0 Y4140 9P139510 | 22474 0621 00 0 22515 STA Y4330 Y4150 9P139520 22475 0625 00 0 22515 STT Y4330 Y4160 9P139530 | 22476 0771 00 0 00022 ARS 18 Y4170 9P139540 | 22477 -0320 00 0 22515 ANA Y4330 Y4180 9P139550 | 22500 0322 00 0 22514 ERA Y4320 Y4190 9P139560 | 22501 0100 00 0 22512 TZE Y4300 Y4200 9P139570 22502 0074 00 4 05630 TSX CLIST,4 Y4210 9P139580 | 22503 1 00006 0 22516 PON Y4500,0,6 Y4220 9P139590 | 22504 -0500 00 0 22176 CAL DICLO Y4230 9P139600 | 22505 0402 00 0 22174 SUB MRGLO Y4240 9P139610 | 22506 0767 00 0 00022 ALS 18 Y4250 9P139620 22507 0622 00 0 22511 STD Y4280 Y4260 9P139630 | 22510 0074 00 4 05630 TSX CLIST,4 Y4270 9P139640 | 22511 1 00000 0 00000 Y4280 PON **,0,** Y4280 9P139650 | 22512 0774 00 4 00000 Y4300 AXT 0,4 Y4300 9P139660 | 22513 0020 00 4 00001 TRA 1,4 Y4310 9P139670 22514 0 00000 0 00000 Y4320 PZE 0 SAVE CKSUM Y4320 9P139680 | 22515 0 00000 0 00000 Y4330 PZE 0 TO FOLD CKSUM Y4330 9P139690 | 22516 264643434666 Y4500 BCI 6,FOLLOWING HORIZ RECORD CKSUM ERROR Y4500 9P139700 | 1 LISTING OF 12/01/64 PAGE 336 | FPFIXD FIXED ROUTINES OF FP | 22524 0634 00 1 22560 PRICT SXA Y5240,1 Y5010 9P139720 | 22525 0634 00 2 22561 SXA Y5250,2 Y5020 9P139730 | 22526 0634 00 4 22562 SXA Y5260,4 Y5030 9P139740 | 22527 -0500 00 4 77776 CAL -2,4 Y5040 9P139750 22530 -0320 00 0 15622 ANA CDMSK 000000007777 Y5050 9P139760 | 22531 0767 00 0 00030 ALS 24 Y5060 9P139770 | 22532 -0130 00 0 00000 XCL Y5070 9P139780 | 22533 0774 00 1 00010 AXT 8,1 Y5080 9P139790 | 22534 0500 00 1 72607 CLA CTTBL,1 Y5090 9P139800 22535 -0734 00 4 00000 PDX 0,4 Y5100 9P139810 | 22536 0774 00 2 00000 AXT 0,2 Y5110 9P139820 | 22537 -0130 00 0 00000 XCL Y5120 9P139830 | 22540 -0340 60 1 72607 LAS* CTTBL,1 Y5130 9P139840 | 22541 1 77770 2 22544 TXI *+3,2,-8 Y5140 9P139850 22542 1 77773 2 22547 TXI *+5,2,-5 Y5150 9P139860 | 22543 1 77770 2 22544 TXI *+1,2,-8 Y5160 9P139870 | 22544 2 00001 4 22540 TIX *-4,4,1 Y5170 9P139880 | 22545 0074 00 4 22564 TSX PRERR,4 Y5180 9P139890 | 22546 0020 00 0 22560 TRA Y5240 Y5185 9P139900 22547 0500 60 1 72607 CLA* CTTBL,1 Y5190 9P139910 | 22550 0400 00 0 04673 ADD ONE Y5200 9P139920 | 22551 0601 60 1 72607 STO* CTTBL,1 Y5210 9P139930 | 22552 1 00004 2 22553 TXI *+1,2,4 Y5220 9P139940 | 22553 -0500 60 1 72607 CAL* CTTBL,1 Y5222 9P139950 22554 0734 00 1 00000 PAX 0,1 Y5224 9P139960 | 22555 1 77773 2 22556 TXI *+1,2,-5 Y5226 9P139970 | 22556 0754 00 2 00000 PXA 0,2 Y5230 9P139980 | 22557 0621 00 1 17645 STA BKSCT,1 Y5235 9P139990 | 22560 0774 00 1 00000 Y5240 AXT ..,1 Y5240 9P140000 22561 0774 00 2 00000 Y5250 AXT ..,2 Y5250 9P140010 | 22562 0774 00 4 00000 Y5260 AXT ..,4 Y5260 9P140020 | 22563 0020 00 4 00001 TRA 1,4 Y5270 9P140030 | 22564 0602 00 0 22572 PRERR SLW Y5320 Y5280 9P140040 | 22565 0634 00 4 22570 SXA Y5307,4 Y5285 9P140050 22566 0074 00 4 05630 TSX CLIST,4 Y5290 9P140060 | 22567 1 00011 0 22572 PON Y5320,0,9 Y5300 9P140070 | 22570 0774 00 4 00000 Y5307 AXT ..,4 Y5307 9P140080 | 22571 0020 00 4 00001 TRA 1,4 Y5310 9P140090 | 22572 606060606060 Y5320 BCI 2, Y5320 9P140100 22574 475131465131 BCI 7,PRIORITY NUMBER NOT FOUND FOR COUNTING Y5330 9P140110 | * 9P140120 | * 9P140130 | * SEARCH CONT TABLE SOURCE FILE FOR RECORD TYPE 9P140140 | * 9P140150 22603 0634 00 4 22616 Y6010 SXA Y6110,4 Y6010 9P140160 | 22604 -0534 00 4 72600 LXD CTTBL-7,4 Y6020 9P140170 | 22605 0774 00 2 00000 AXT 0,2 Y6030 9P140180 | 22606 -0320 00 0 15621 ANA TPMSK 777700000000 Y6035 9P140190 | 22607 -0340 60 0 72600 LAS* CTTBL-7 Y6040 9P140200 22610 1 77764 2 22613 TXI *+3,2,-12 Y6050 9P140210 | 22611 0020 00 0 22616 TRA Y6110 Y6060 9P140220 | 22612 1 77764 2 22613 TXI *+1,2,-12 Y6070 9P140230 | 22613 2 00001 4 22607 TIX *-4,4,1 Y6080 9P140240 | 22614 0074 00 4 16072 TSX TYPER,4 Y6090 9P140250 22615 0020 00 0 00000 TRA 0 LEFT OPEN FOR FUTURE ESCAPE FROM TYPER Y6100 9P140260 | 1 LISTING OF 12/01/64 PAGE 337 | FPFIXD FIXED ROUTINES OF FP | | 22616 0774 00 4 00000 Y6110 AXT ..,4 Y6110 9P140270 22617 0020 00 4 00001 TRA 1,4 Y6120 9P140280 | 22620 0500 60 0 72600 Y6150 CLA* CTTBL-7 Y6150 9P140290 | 22621 0400 00 0 04673 ADD ONE Y6160 9P140300 | 22622 0601 60 0 72600 STO* CTTBL-7 Y6170 9P140310 | 22623 0020 00 4 00001 TRA 1,4 Y6180 9P140320 * 9P140330 | * COUNT SF READS 9P140340 | * 9P140350 | 22624 0634 00 4 22630 Y6210 SXA Y6250,4 Y6210 9P140360 | 22625 0074 00 4 16174 TSX INPUT,4 Y6220 9P140370 22626 0020 00 0 22632 TRA Y6270 Y6230 9P140380 | 22627 -0625 00 0 22676 STL Y6698 A7 EOF SW Y6240 9P140390 | 22630 0774 00 4 00000 Y6250 AXT ..,4 Y6250 9P140400 | 22631 0020 00 4 00002 TRA 2,4 Y6260 9P140410 | 22632 -0500 60 1 17310 Y6270 CAL* RECRD,1 Y6270 9P140420 22633 0074 00 4 22603 TSX Y6010,4 Y6280 9P140430 | 22634 1 77777 2 22635 TXI *+1,2,-1 Y6290 9P140440 | 22635 0074 00 4 22620 TSX Y6150,4 Y6300 9P140450 | 22636 0534 00 4 22630 LXA Y6250,4 Y6310 9P140460 | 22637 0535 00 2 17301 LAC SFLOC,2 Y6313 9P140470 22640 0020 00 4 00001 TRA 1,4 Y6320 9P140480 | * 9P140490 | * COUNT SF WRITES 9P140500 | * 9P140510 | 22641 0634 00 4 22646 Y6410 SXA Y6460,4 Y6410 9P140520 22642 -0500 60 0 17301 CAL* SFLOC Y6420 9P140530 | 22643 0074 00 4 22603 TSX Y6010,4 Y6430 9P140540 | 22644 1 77767 2 22645 TXI *+1,2,-9 Y6440 9P140550 | 22645 0074 00 4 22620 TSX Y6150,4 Y6450 9P140560 | 22646 0774 00 4 00000 Y6460 AXT ..,4 Y6460 9P140570 22647 0020 00 0 16555 TRA OUTPT Y6470 9P140580 | * 9P140590 | * COUNT SF BKSP AND INSERTS--NONSUMMARY 9P140600 | * 9P140610 | 22650 0634 00 4 22673 Y6510 SXA Y6650,4 Y6510 9P140620 22651 0520 00 0 22676 ZET Y6698 A7 EOJ SW Y6520 9P140630 | 22652 0020 00 0 22664 TRA Y6580 Y6530 9P140640 | 22653 -0500 60 0 17310 CAL* RECRD Y6540 9P140650 | 22654 0074 00 4 22603 TSX Y6010,4 Y6550 9P140660 | 22655 1 77776 2 22656 TXI *+1,2,-2 Y6560 9P140670 22656 0074 00 4 22620 TSX Y6150,4 Y6570 9P140680 | 22657 -0500 00 0 17310 CAL RECRD ADJUST CTREM Y6571 9P140690 | 22660 -0734 00 4 00000 PDX 0,4 Y6572 9P140700 | 22661 0754 00 4 00000 PXA 0,4 Y6573 9P140710 | 22662 0400 00 0 17360 ADD CTREM Y6574 9P140720 22663 0601 00 0 17360 STO CTREM Y6575 9P140730 | 22664 0520 00 0 22677 Y6580 ZET Y6699 SUMM INSERT SW Y6580 9P140740 | 22665 0020 00 0 22672 TRA Y6640 Y6590 9P140750 | 22666 -0500 60 0 17301 CAL* SFLOC Y6600 9P140760 | 22667 0074 00 4 22603 TSX Y6010,4 Y6610 9P140770 22670 1 77775 2 22671 TXI *+1,2,-3 Y6620 9P140780 | 22671 0074 00 4 22620 TSX Y6150,4 Y6630 9P140790 | 22672 0600 00 0 22677 Y6640 STZ Y6699 Y6640 9P140800 | 22673 0774 00 4 00000 Y6650 AXT ..,4 Y6650 9P140810 | 1 LISTING OF 12/01/64 PAGE 338 FPFIXD FIXED ROUTINES OF FP | | 22674 0535 00 2 17301 LAC SFLOC,2 Y6653 9P140820 | 22675 0020 00 0 17554 TRA BKSPC Y6660 9P140830 | 22676 0 00000 0 00000 Y6698 PZE 0 A7 EOJ SWITCH Y6698 9P140840 22677 0 00000 0 00000 Y6699 PZE 0 SUMM INSERT SWITCH Y6699 9P140850 | * 9P140860 | * COUNT SF SUMMARY INSERTS 9P140870 | * 9P140880 | 22700 0634 00 4 22707 Y6710 SXA Y6770,4 Y6710 9P140890 22701 0020 00 4 00001 TRA 1,4 REMOVE WHEN COUNTING TIMING FIXED Y6711 9P140900 | 22702 -0625 00 0 22677 STL Y6699 Y6720 9P140910 | 22703 -0500 60 0 17301 CAL* SFLOC Y6730 9P140920 | 22704 0074 00 4 22603 TSX Y6010,4 Y6740 9P140930 | 22705 1 77774 2 22706 TXI *+1,2,-4 Y6750 9P140940 22706 0074 00 4 22620 TSX Y6150,4 Y6760 9P140950 | 22707 0774 00 4 00000 Y6770 AXT ..,4 Y6770 9P140960 | 22710 0535 00 2 17301 LAC SFLOC,2 Y6773 9P140970 | 22711 0020 00 4 00001 TRA 1,4 Y6780 9P140980 | * 9P140990 * COUNT SF DELETIONS 9P141000 | * 9P141010 | 22712 0634 00 4 22717 Y6810 SXA Y6860,4 Y6810 9P141020 | 22713 -0500 60 0 17301 CAL* SFLOC Y6820 9P141030 | 22714 0074 00 4 22603 TSX Y6010,4 Y6830 9P141040 22715 1 77770 2 22716 TXI *+1,2,-8 Y6840 9P141050 | 22716 0074 00 4 22620 TSX Y6150,4 Y6850 9P141060 | 22717 0774 00 4 00000 Y6860 AXT ..,4 Y6860 9P141070 | 22720 0020 00 0 17561 TRA DELET Y6870 9P141080 | * 9P141090 * PRINT MESSAGE ON SEQ ERROR CHANGE DRIVES 9P141100 | * 9P141110 | 22721 0634 00 4 22743 Y7010 SXA Y7120,4 Y7010 9P141120 | 22722 0634 00 1 22744 SXA Y7121,1 Y7015 9P141130 | 22723 0535 00 1 17300 LAC CHLOC,1 Y7020 9P141140 22724 -0500 00 1 00002 CAL 2,1 Y7030 9P141150 | 22725 0322 00 0 22751 ERA Y7192 Y7040 9P141160 | 22726 -0100 00 0 22743 TNZ Y7120 Y7050 9P141170 | 22727 0604 00 0 15630 STI BUFER Y7060 9P141180 | 22730 0441 00 0 22753 LDI Y7199 Y7063 9P141190 22731 -0500 00 1 00000 CAL 0,1 Y7066 9P141200 | 22732 -0320 00 0 22434 ANA Y2401 Y7070 9P141210 | 22733 0043 00 0 00000 OAI Y7073 9P141220 | 22734 -0056 00 120000 LNT 120000 Y7076 9P141230 | 22735 0020 00 0 22737 TRA *+2 Y7080 9P141240 22736 -0057 00 120000 RIL 120000 Y7083 9P141250 | 22737 0604 00 0 22750 STI Y7191 Y7086 9P141260 | 22740 0441 00 0 15630 LDI BUFER Y7090 9P141270 | 22741 0074 00 4 05630 TSX CLIST,4 Y7100 9P141280 | 22742 1 00005 0 22746 PON Y7190,0,5 Y7110 9P141290 22743 0774 00 4 00000 Y7120 AXT ..,4 Y7120 9P141300 | 22744 0774 00 1 00000 Y7121 AXT ..,1 Y7121 9P141310 | 22745 0020 00 0 22320 TRA REJXR Y7130 9P141320 | 22746 475131465131 Y7190 BCI 2,PRIORITY Y7190 9P141330 | 22750 606060606060 Y7191 BCI 1, Y7191 9P141340 22751 622550606060 Y7192 BCI 2,SEQ ERROR Y7192 9P141350 | 22753 000060606060 Y7199 BCI 1,00 Y7199 9P141360 | 1 LISTING OF 12/01/64 PAGE 339 | FPFIXD FIXED ROUTINES OF FP | * 9P141370 | * PRINT SF COUNTS 9P141380 | * 9P141390 | 22754 0074 00 4 05630 Y8010 TSX CLIST,4 Y8010 9P141400 | 22755 -3 00000 2 00000 SVN 0,2 Y8012 9P141410 22756 2 00006 0 23161 PTW Y8900,0,6 Y8014 9P141420 | 22757 -0534 00 4 72600 LXD CTTBL-7,4 Y8016 9P141430 | 22760 0634 00 4 23141 Y8020 SXA Y8733,4 Y8020 9P141440 | 22761 0774 00 2 77777 Y8030 AXT -1,2 Y8030 9P141450 | 22762 0774 00 4 77777 AXT -1,4 Y8040 9P141460 22763 0500 60 0 72600 Y8050 CLA* CTTBL-7 Y8050 9P141470 | 22764 0400 00 4 23251 ADD Y8910,4 Y8060 9P141480 | 22765 0601 00 4 23251 STO Y8910,4 Y8070 9P141490 | 22766 1 77777 2 22767 TXI *+1,2,-1 Y8080 9P141500 | 22767 -3 77765 4 22771 TXL *+2,4,-11 Y8090 9P141510 22770 1 77777 4 22763 TXI Y8050,4,-1 Y8100 9P141520 | 22771 0534 00 2 22761 Y8110 LXA Y8030,2 Y8110 9P141530 | 22772 0500 60 0 72600 CLA* CTTBL-7 -1 B Y8120 9P141540 | 22773 1 77777 2 22774 TXI *+1,2,-1 Y8130 9P141550 | 22774 0402 60 0 72600 SUB* CTTBL-7 -2 C Y8140 9P141560 22775 0601 00 0 23270 STO Y8925 X Y8150 9P141570 | 22776 1 77777 2 22777 TXI *+1,2,-1 Y8160 9P141580 | 22777 0500 60 0 72600 CLA* CTTBL-7 -3 D Y8170 9P141590 | 23000 1 77777 2 23001 TXI *+1,2,-1 Y8180 9P141600 | 23001 0400 60 0 72600 ADD* CTTBL-7 -4 E Y8190 9P141610 23002 1 77777 2 23003 TXI *+1,2,-1 Y8200 9P141620 | 23003 0400 60 0 72600 ADD* CTTBL-7 -5 F Y8210 9P141630 | 23004 0601 00 0 23271 STO Y8926 Y Y8220 9P141640 | 23005 1 77777 2 23006 TXI *+1,2,-1 Y8230 9P141650 | 23006 0500 60 0 72600 CLA* CTTBL-7 -6 G Y8240 9P141660 23007 1 77777 2 23010 TXI *+1,2,-1 Y8250 9P141670 | 23010 0400 60 0 72600 ADD* CTTBL-7 -7 H Y8260 9P141680 | 23011 1 77777 2 23012 TXI *+1,2,-1 Y8270 9P141690 | 23012 0400 60 0 72600 ADD* CTTBL-7 -8 I Y8280 9P141700 | 23013 0601 00 0 23272 STO Y8927 Z Y8290 9P141710 23014 1 77777 2 23015 TXI *+1,2,-1 Y8300 9P141720 | 23015 0500 00 0 23270 CLA Y8925 X Y8310 9P141730 | 23016 0400 00 0 23271 ADD Y8926 Y Y8220 9P141740 | 23017 0402 00 0 23272 SUB Y8927 Z Y8331 9P141750 | 23020 0601 00 0 23267 STO Y8924 W Y8340 9P141760 23021 0500 60 0 72600 CLA* CTTBL-7 -9 J Y8350 9P141770 | 23022 0601 00 0 23265 STO Y8922 SAVE J Y8360 9P141780 | 23023 0402 00 0 23267 SUB Y8924 W Y8370 9P141790 | 23024 0601 00 0 23266 STO Y8923 V Y8380 9P141800 | 23025 0534 00 2 22761 LXA Y8030,2 -1 Y8390 9P141810 23026 1 00001 2 23027 TXI *+1,2,1 Y8400 9P141820 | 23027 -0500 60 0 72600 CAL* CTTBL-7 +0 RECORD TYPE Y8410 9P141830 | 23030 -0320 00 0 15621 ANA TPMSK Y8420 9P141840 | 23031 -0501 00 0 23273 ORA Y8928 Y8430 9P141850 | 23032 0602 00 0 23171 SLW Y8901+2 Y8440 9P141860 23033 1 77777 2 23034 TXI *+1,2,-1 Y8450 9P141870 | 23034 0500 60 0 72600 CLA* CTTBL-7 -1 B Y8460 9P141880 | 23035 0601 00 0 20261 STO BDBIN Y8470 9P141890 | 23036 0074 00 4 20213 TSX TOBCD,4 Y8480 9P141900 | 23037 -0500 00 0 20263 CAL BDBCR Y8490 9P141910 1 LISTING OF 12/01/64 PAGE 340 | FPFIXD FIXED ROUTINES OF FP | | 23040 0602 00 0 23174 SLW Y8901+5 Y8500 9P141920 | 23041 0534 00 2 22761 LXA Y8030,2 Y851009P141930 23042 1 77777 2 23043 TXI *+1,2,-1 Y851309P141940 | 23043 0500 60 0 72600 CLA* CTTBL-7 -2 C Y851709P141950 | 23044 0601 00 0 20261 STO BDBIN Y852009P141960 | 23045 0074 00 4 20213 TSX TOBCD,4 Y852309P141970 | 23046 -0500 00 0 20263 CAL BDBCR Y852709P141980 23047 0602 00 0 23177 SLW Y8902+2 Y853009P141990 | 23050 0500 00 0 23270 CLA Y8925 X Y853309P142000 | 23051 0601 00 0 20261 STO BDBIN Y853709P142010 | 23052 0074 00 4 20213 TSX TOBCD,4 Y854009P142020 | 23053 -0500 00 0 20263 CAL BDBCR Y854309P142030 23054 0602 00 0 23202 SLW Y8902+5 Y854709P142040 | 23055 0074 00 4 05630 TSX CLIST,4 LINE 1 Y855009P142050 | 23056 1 00014 2 23167 PON Y8901,2,12 Y855309P142060 | 23057 0020 00 0 23076 TRA Y8603 REMOVE WHEN COUNTING TIMING FIXED Y855509P142070 | 23060 0534 00 2 22761 LXA Y8030,2 Y855709P142080 23061 1 77776 2 23062 TXI *+1,2,-2 Y856009P142090 | 23062 0500 60 0 72600 CLA* CTTBL-7 -3 D Y856309P142100 | 23063 0601 00 0 20261 STO BDBIN Y856709P142110 | 23064 0074 00 4 20213 TSX TOBCD,4 Y857009P142120 | 23065 -0500 00 0 20263 CAL BDBCR Y857309P142130 23066 0602 00 0 23205 SLW Y8903+2 Y857709P142140 | 23067 0534 00 2 22761 LXA Y8030,2 Y858009P142150 | 23070 1 77775 2 23071 TXI *+1,2,-3 Y858309P142160 | 23071 0500 60 0 72600 CLA* CTTBL-7 -4 E Y858709P142170 | 23072 0601 00 0 20261 STO BDBIN Y859009P142180 23073 0074 00 4 20213 TSX TOBCD,4 Y859309P142190 | 23074 -0500 00 0 20263 CAL BDBCR Y859709P142200 | 23075 0602 00 0 23210 SLW Y8903+5 Y860009P142210 | 23076 0500 00 0 23271 Y8603 CLA Y8926 Y Y860309P142220 | 23077 0601 00 0 20261 STO BDBIN Y860709P142230 23100 0074 00 4 20213 TSX TOBCD,4 Y861009P142240 | 23101 -0500 00 0 20263 CAL BDBCR Y861309P142250 | 23102 0602 00 0 23216 SLW Y8904+5 Y861709P142260 | 23103 0074 00 4 05630 TSX CLIST,4 LINE 2 Y862009P142270 | 23104 0 00014 2 23203 PZE Y8903,2,12 Y862309P142280 23105 0500 00 0 23272 CLA Y8927 Z Y862709P142290 | 23106 0601 00 0 20261 STO BDBIN Y863009P142300 | 23107 0074 00 4 20213 TSX TOBCD,4 Y863309P142310 | 23110 -0500 00 0 20263 CAL BDBCR Y863709P142320 | 23111 0602 00 0 23232 SLW Y8906+5 Y864009P142330 23112 0074 00 4 05630 TSX CLIST,4 LINE 3 Y864309P142340 | 23113 0 00014 2 23217 PZE Y8905,2,12 Y864709P142350 | 23114 0500 00 0 23265 CLA Y8922 J Y865009P142360 | 23115 0601 00 0 20261 STO BDBIN Y865309P142370 | 23116 0074 00 4 20213 TSX TOBCD,4 Y865709P142380 23117 -0500 00 0 20263 CAL BDBCR Y866009P142390 | 23120 0602 00 0 23235 SLW Y8907+2 Y866309P142400 | 23121 0500 00 0 23266 CLA Y8923 V Y866709P142410 | 23122 0601 00 0 20261 STO BDBIN Y867009P142420 | 23123 0074 00 4 20213 TSX TOBCD,4 Y867309P142430 23124 -0500 00 0 20263 CAL BDBCR Y867709P142440 | 23125 0560 00 0 23266 LDQ Y8923 Y868009P142450 | 23126 0162 00 0 23131 TQP *+3 Y870009P142460 | 1 LISTING OF 12/01/64 PAGE 341 | FPFIXD FIXED ROUTINES OF FP | 23127 -0320 00 0 20070 ANA B1030 Y870109P142470 | 23130 -0501 00 0 23274 ORA Y8929 NEGATIVE Y870309P142480 | 23131 0602 00 0 23240 SLW Y8907+5 Y870709P142490 | 23132 0500 00 0 23267 CLA Y8924 W Y871009P142500 23133 0601 00 0 20261 STO BDBIN Y871309P142510 | 23134 0074 00 4 20213 TSX TOBCD,4 Y871709P142520 | 23135 -0500 00 0 20263 CAL BDBCR Y872009P142530 | 23136 0602 00 0 23246 SLW Y8908+5 Y872309P142540 | 23137 0074 00 4 05630 TSX CLIST,4 LINE 4 Y872709P142550 23140 0 00014 2 23233 PZE Y8907,2,12 Y873009P142560 | 23141 0774 00 4 00000 Y8733 AXT ..,4 Y873309P142570 | 23142 0534 00 2 22761 LXA Y8030,2 Y873409P142580 | 23143 1 77764 2 23144 TXI *+1,2,-12 Y873509P142590 | 23144 0634 00 2 22761 SXA Y8030,2 Y873609P142600 23145 2 00001 4 22760 TIX Y8020,4,1 Y873709P142610 | 23146 -3 00000 4 23275 TXL Y9010,4,0 Y874009P142620 | 23147 0774 00 2 23251 AXT Y8910,2 Y874309P142630 | 23150 0634 00 2 72600 SXA CTTBL-7,2 Y874709P142640 | 23151 0774 00 2 77777 AXT -1,2 Y875009P142650 23152 0634 00 2 22761 SXA Y8030,2 Y875309P142660 | 23153 -0500 00 0 23247 CAL Y8909 Y875709P142670 | 23154 0602 00 0 23167 SLW Y8901 Y876009P142680 | 23155 -0500 00 0 23250 CAL Y8909+1 Y876309P142690 | 23156 0602 00 0 23170 SLW Y8901+1 Y876709P142700 23157 0634 00 0 23141 SXA Y8733,0 SET ADDR TO ZERO Y876809P142710 | 23160 1 77777 4 22771 TXI Y8110,4,-1 Y877009P142720 | 23161 442162632551 Y8900 BCI 6,MASTER FILE COUNTS BY RECORD TYPE-- Y8900 9P142730 | 23167 512523465124 Y8901 BCI 6,RECORD TYPE XX READ IN XXXXX Y8901 9P142740 | 23175 606022426247 Y8902 BCI 6, BKSP XXXXX NET IN XXXXX Y8902 9P142750 23203 314562255163 Y8903 BCI 6,INSERT Y8903 9P142760 | 23211 606060606060 Y8904 BCI 6, TOT. INS. XXXXX Y8904 9P142770 | 23217 242543256325 Y8905 BCI 6,DELETE Y8905 9P142780 | 23225 606060606060 Y8906 BCI 6, TOT. DEL. XXXXX Y8906 9P142790 | 23233 234664456360 Y8907 BCI 6,COUNT OUT XXXXX ERROR XXXXX Y8907 9P142800 23241 606060606060 Y8908 BCI 6, TOT ABOVE XXXXX Y8908 9P142810 | 23247 634663214360 Y8909 BCI 2,TOTAL FILE Y8909 9P142820 | 23251 606060606060 Y8910 BCI 1, A RECORD TYPE Y8910 9P142830 | 23252 0 00000 0 00000 Y8911 PZE 0 B READ Y8911 9P142840 | 23253 0 00000 0 00000 Y8912 PZE 0 C BKSP Y8912 9P142850 23254 0 00000 0 00000 Y8913 PZE 0 D INSERT EXT Y8913 9P142860 | 23255 0 00000 0 00000 Y8914 PZE 0 E INSERT SUMMARY Y8914 9P142870 | 23256 0 00000 0 00000 Y8915 PZE 0 F INSERT PARENT Y8915 9P142880 | 23257 0 00000 0 00000 Y8916 PZE 0 G DELETE D Y8916 9P142890 | 23260 0 00000 0 00000 Y8917 PZE 0 H DELETE E Y8917 9P142900 23261 0 00000 0 00000 Y8918 PZE 0 I DELETE FROM PARENT Y8918 9P142910 | 23262 0 00000 0 00000 Y8919 PZE 0 J WRITE Y8919 9P142920 | 23263 0 00000 0 00000 Y8920 PZE 0 K SPARE Y8920 9P142930 | 23264 0 00000 0 00000 Y8921 PZE 0 L SPARE Y8921 9P142940 | 23265 0 00000 0 00000 Y8922 PZE 0 SAVE J Y8922 9P142950 23266 0 00000 0 00000 Y8923 PZE 0 V WORK J-W Y8923 9P142960 | 23267 0 00000 0 00000 Y8924 PZE 0 W WORK L+Y+Z Y8924 9P142970 | 23270 0 00000 0 00000 Y8925 PZE 0 X WORK B-C Y8925 9P142980 | 23271 0 00000 0 00000 Y8926 PZE 0 Y WORK D+E+F Y8926 9P142990 | 23272 0 00000 0 00000 Y8927 PZE 0 Z WORK G+H+I Y8927 9P143000 23273 000060606060 Y8928 BCI 1,00 Y8928 9P143010 | 1 LISTING OF 12/01/64 PAGE 342 | FPFIXD FIXED ROUTINES OF FP | | 23274 400000000000 Y8929 BCI 1,-00000 Y8929 9P143020 * 9P143030 | * PRINT B8 AND CHANGE INPUT COUNTS 9P143040 | * 9P143050 | 23275 0520 00 0 04671 Y9010 ZET IND08 Y9010 9P143060 | 23276 0020 00 0 06246 TRA IOCS Y9012 9P143070 23277 -0534 00 4 72577 LXD CTTBL-8,4 Y9015 9P143080 | 23300 0774 00 2 77777 AXT -1,2 Y9020 9P143090 | 23301 0500 60 0 72577 Y9030 CLA* CTTBL-8 Y9030 9P143100 | 23302 0734 00 1 00000 PAX 0,1 Y9040 9P143110 | 23303 1 77777 2 23304 TXI *+1,2,-1 Y9050 9P143120 23304 0500 60 0 72577 CLA* CTTBL-8 Y9060 9P143130 | 23305 0400 00 0 23470 ADD Y9945 REJECT Y9070 9P143140 | 23306 0601 00 0 23470 STO Y9945 REJECT Y9080 9P143150 | 23307 1 77777 2 23310 TXI *+1,2,-1 Y9090 9P143160 | 23310 0500 60 0 72577 CLA* CTTBL-8 Y9100 9P143170 23311 1 77777 2 23312 TXI *+1,2,-1 Y9110 9P143180 | 23312 0400 60 0 72577 ADD* CTTBL-8 Y9120 9P143190 | 23313 0400 00 0 23471 ADD Y9946 REPORT Y9130 9P143200 | 23314 0601 00 0 23471 STO Y9946 REPORT Y9140 9P143210 | 23315 1 77777 2 23316 TXI *+1,2,-1 Y9150 9P143220 23316 0500 60 0 72577 CLA* CTTBL-8 Y9160 9P143230 | 23317 0400 00 1 17715 ADD Y9920,1 SELECT Y9170 9P143240 | 23320 0601 00 1 17715 STO Y9920,1 SELECT Y9180 9P143250 | 23321 1 77777 2 23322 TXI *+1,2,-1 Y9190 9P143260 | 23322 0500 60 0 72577 CLA* CTTBL-8 Y9200 9P143270 23323 0400 00 1 17741 ADD Y9940,1 BKSP Y9210 9P143280 | 23324 0601 00 1 17741 STO Y9940,1 BKSP Y9220 9P143290 | 23325 -2 00001 4 23327 TNX *+2,4,1 Y9230 9P143300 | 23326 1 77775 2 23301 TXI Y9030,2,-3 Y9240 9P143310 | 23327 0500 00 0 23470 CLA Y9945 REJECT Y9250 9P143320 23330 0601 00 0 20261 STO BDBIN Y9260 9P143330 | 23331 0074 00 4 20213 TSX TOBCD,4 Y9270 9P143340 | 23332 -0500 00 0 20263 CAL BDBCR Y9280 9P143350 | 23333 0602 00 0 23440 SLW Y9902+2 Y9290 9P143360 | 23334 0500 00 0 23471 CLA Y9946 REPORT Y9300 9P143370 23335 0601 00 0 20261 STO BDBIN Y9310 9P143380 | 23336 0074 00 4 20213 TSX TOBCD,4 Y9320 9P143390 | 23337 -0500 00 0 20263 CAL BDBCR Y9330 9P143400 | 23340 0602 00 0 23435 SLW Y9901+5 Y9340 9P143410 | 23341 0500 00 0 23470 CLA Y9945 Y9350 9P143420 23342 0400 00 0 23471 ADD Y9946 Y9360 9P143430 | 23343 0601 00 0 20261 STO BDBIN Y9370 9P143440 | 23344 0074 00 4 20213 TSX TOBCD,4 Y9380 9P143450 | 23345 -0500 00 0 20263 CAL BDBCR Y9390 9P143460 | 23346 0602 00 0 23443 SLW Y9902+5 Y9400 9P143470 23347 0074 00 4 05630 TSX CLIST,4 Y9410 9P143480 | 23350 -1 00003 2 23465 MON Y9906,2,3 Y9420 9P143490 | 23351 2 00005 0 23460 PTW Y9905,0,5 Y9430 9P143500 | 23352 0074 00 4 05630 TSX CLIST,4 9P143510 | 23353 1 00014 2 23430 PON Y9901,2,12 9P143520 23354 0774 00 1 00001 AXT 1,1 Y9430 9P143530 | 23355 0441 00 1 72657 Y9440 LDI SWTCH,1 Y9440 9P143540 | 23356 -0056 00 100000 LNT 100000 Y9445 9P143550 | 23357 0020 00 0 23423 TRA Y9770 Y9450 9P143560 | 1 LISTING OF 12/01/64 PAGE 343 FPFIXD FIXED ROUTINES OF FP | | 23360 -0054 00 010000 LFT 010000 Y9455 9P143570 | 23361 0020 00 0 23423 TRA Y9770 Y9460 9P143580 | 23362 0754 00 1 00000 PXA 0,1 Y9465 9P143590 23363 0767 00 0 00001 ALS 1 Y9470 9P143600 | 23364 0734 00 4 00000 PAX 0,4 Y9475 9P143610 | 23365 -0500 00 4 17240 CAL FILES,4 Y9480 9P143620 | 23366 0737 00 4 00000 PAC 0,4 Y9485 9P143630 | 23367 -0500 00 4 00011 CAL 9,4 Y9490 9P143640 23370 0602 00 0 23444 SLW Y9903 Y9500 9P143650 | 23371 -0500 00 4 00012 CAL 10,4 Y9510 9P143660 | 23372 0602 00 0 23445 SLW Y9903+1 Y9250 9P143670 | 23373 0500 00 1 17715 CLA Y9920,1 SELECT Y9530 9P143680 | 23374 0601 00 0 20261 STO BDBIN Y9540 9P143690 23375 0074 00 4 20213 TSX TOBCD,4 Y9550 9P143700 | 23376 -0500 00 0 20263 CAL BDBCR Y9560 9P143710 | 23377 0602 00 0 23447 SLW Y9903+3 Y9570 9P143720 | 23400 0500 00 1 17741 CLA Y9940,1 BKSP Y9580 9P143730 | 23401 0601 00 0 20261 STO BDBIN Y9590 9P143740 23402 0074 00 4 20213 TSX TOBCD,4 Y9600 9P143750 | 23403 -0500 00 0 20263 CAL BDBCR Y9610 9P143760 | 23404 0602 00 0 23451 SLW Y9903+5 Y9620 9P143770 | 23405 0500 00 1 17671 CLA NSLCT,1 NON SELECT Y9630 9P143780 | 23406 0601 00 0 20261 STO BDBIN Y9640 9P143790 23407 0074 00 4 20213 TSX TOBCD,4 Y9650 9P143800 | 23410 -0500 00 0 20263 CAL BDBCR Y9660 9P143810 | 23411 0602 00 0 23454 SLW Y9904+2 Y9670 9P143820 | 23412 0500 00 1 17715 CLA Y9920,1 Y9680 9P143830 | 23413 0400 00 1 17671 ADD NSLCT,1 Y9690 9P143840 23414 0402 00 1 17741 SUB Y9940,1 Y9700 9P143850 | 23415 0601 00 0 20261 STO BDBIN Y9710 9P143860 | 23416 0074 00 4 20213 TSX TOBCD,4 Y9720 9P143870 | 23417 -0500 00 0 20263 CAL BDBCR Y9730 9P143880 | 23420 0602 00 0 23457 SLW Y9904+5 Y9740 9P143890 23421 0074 00 4 05630 TSX CLIST,4 Y9750 9P143900 | 23422 1 00014 2 23444 PON Y9903,2,12 Y9760 9P143910 | 23423 1 00001 1 23424 Y9770 TXI *+1,1,1 Y9770 9P143920 | 23424 3 00010 1 23426 TXH *+2,1,8 Y9780 9P143930 | 23425 3 00006 1 23423 TXH *-2,1,6 Y9790 9P143940 23426 -3 00023 1 23355 TXL Y9440,1,19 Y9800 9P143950 | 23427 0020 00 0 06246 TRA IOCS 9P143960 | 23430 233027602145 Y9901 BCI 6,CHG AND ERROR CHANGE REPORTS XXXXX Y9901 9P143970 | 23436 605125412523 Y9902 BCI 6, REJECTS XXXXX TOTAL XXXXX Y9902 9P143980 | 23444 644531636060 Y9903 BCI 6,UNIT XXXX SEL XXXXX BKSP XXXXX Y9903 9P143990 23452 604546454062 Y9904 BCI 6, NON-SELECT XXXXX TOTAL XXXXX Y9904 9P144000 | 23460 233021452725 Y9905 BCI 5,CHANGE FILE COUNTS BY UNIT -- Y9905 9P144010 | 23465 606060606060 Y9906 BCI 3, Y9906 9P144020 | 23470 0 00000 0 00000 Y9945 PZE 0 REJECT Y9945 9P144030 | 23471 0 00000 0 00000 Y9946 PZE 0 REPORT Y9946 9P144040 23472 BSS 100 FPFIXD BOONDOCKS 9P144050 | 23636 DXIFPF BSS 1 9P144060 | 1 LISTING OF 12/01/64 PAGE 344 | FPFIXD FIXED ROUTINES OF FP | 71545 ORG 32623-MGZE-SMZE-STZE-512 OBJECT TABLES 9P144080 | * 9P144090 | * BUT HAVE THEIR ENTRIES GENERATED. 9P144100 | * 9P144110 | 71545 OBSUM BSS SMZE 9P144120 * 9P144130 | 72452 Y0302 BSS 1 9P144140 | 72453 Y0304 BSS 1 9P144150 | 72454 Y1001 BSS 1 9P144160 | 72455 Y1002 BSS 1 9P144170 * 9P144180 | 72456 MGTBL BSS MGZE 9P144190 | *THIS TABLE IS USED FOR INDIRECT ENTRY TO COUNT TABLES. 9P144200 | * TAG OF 2, NO. OF TYPES PER UNIT IN DECREMENT. 9P144210 | * 9P144220 72564 BSS 19 9P144230 | 72607 CTTBL BSS 1 9P144240 | * 9P144250 | 72610 BSS 19 9P144260 | 72633 NU BSS 1 9P144270 * 9P144280 | * 9P144290 | 72634 BSS 19 9P144300 | 72657 SWTCH BSS 1 9P144310 | * 9P144320 *POSITION 9P144330 | * 1 FILE USED 0-NO 1-YES 9P144340 | * 2.1 FILE OF 0-FP 1-RG 9P144350 | * 2.2 RG OUTPUT 0- REPORT 1- RECORD 9P144360 | * 3.1 DICT ATTACHED 0-NO 1-YES 9P144370 * 3.1 ALSO RECORD LENGTH CONSTANT=0, VARIABLE=1 9P144380 | * 3.2 3.2 AND 3.4 ARE USED BY FP I-O GENERATOR AS TEMPORARY SWITCHES 9P144390 | * 4 EOF REACHED 0-NO 1-YES 9P144400 | * 5 ZZ RT ALLOWED 0-NO 1-YES 9P144410 | * 6.1 FILE TYPE 0-INPUT 1-OUTPUT 9P144420 * 6.2 WITH SEQ WORD 0-NO 1-YES 9P144430 | * 7 INIT BUFFERS 0-NO 1-YES 9P144440 | * 8 WITH 0-ZEROS 1-BLANKS 9P144450 | * 9 OUTPUT PADDING 0-NO 3-BCD HI 5-BIN HI 9P144460 | * 10 OUTPUT GROUPING 0-N0 2-UNBLOCKED 3-BY 5 5-BY 10 9P144470 * 11 CLOSE OPTIONS 0-RUN 2-REW 4-NO REW 9P144480 | * 5-NO REW, NO EOF, NO TRAILERS 9P144490 | * 12 OPEN OPTIONS 0-REW 4-NOREW 5-NO REW,NO LABEL ACTION 9P144500 | * 9P144510 | * 9P144520 *THE FOLLOWING TABLE IS USED FOR INDIRECT ENTRY TO RECORD TABLE 9P144530 | * TO FIND LENGTH BY RECORD TYPE AND LOCATION OF 9P144540 | * PREVIOUS RECORD BY RECORD TYPE. 9P144550 | * 9P144560 | * 9P144570 72660 BSS 19 9P144580 | 72703 TBLTL BSS 1 9P144590 | * 9P144600 | * 9P144610 | 72704 BSS 19 9P144620 1 LISTING OF 12/01/64 PAGE 345 | FPFIXD FIXED ROUTINES OF FP | | 72727 BULOC BSS 1 9P144630 | * 9P144640 * 9P144650 | * 9P144660 | 72730 BSS 19 9P144670 | 72753 BUSZE BSS 1 9P144680 | * 9P144690 72754 BSS 19 9P144700 | 72777 SPARE BSS 1 9P144710 | 73000 SORTT BSS STZE 9P144720 | 77777 END -1 9P144730 | 1 LISTING OF 12/01/64 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 76777 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS 12247 C1 12256 | 12046 C2 12070 | 12063 C3 11765,11772 | 12021 C7 11766 | 11636 C8 11632 12037 C9 12061 | 12253 D1 12244 | 11733 D3 11705 | 11706 D4 11736 | 12240 D6 12231 11701 D7 11730 | 12232 D8 12226 | 12227 D9 11122 | 11634 ER 11613 | 6544 GO 6540, 6542, 6550, 6555,13367 0 .. 0, 5725, 5776, 6073,17610,17611,22354,22365,22367,22370,22371,22376,22560,22561,22562,22570,22616 | 22630,22646,22673,22707,22717,22743,22744,23141 | 72633 NU 6754, 6763, 6765,30303,30304,30646,30647,16231,16274,16572,16607,16647,17122 | 11524 S0 11514 | 11526 S1 11510,11511,11513,11522 11550 S2 11536 | 11545 S3 11335,11336,11367,11371,11373,11414,11432,11451,11732,11746,12063,12067,12104,12553,12554,12626,15021 | 15022 | 740 SI 0 | 12574 1KA 11570,12607 15533 1P2 15471 | 15534 1P4 15477 | 13115 1P5 12446,12472,15501 | 15535 2P2 15332 | 12701 7KA 13112 7411 AD1 7405 | 7413 AD2 7411 | 20377 ANY 13453,14176,14234 | 7511 BK1 7501 | 7510 BK2 7502, 7515 7515 BK3 7507 | 6300 BSF | 6276 BSR 16430 | 16031 BTD 16531 | 16770 BTR 16507 16767 BTS 16565 | 16771 BTV 16512 | 6725 CA1 6710, 6724 | 6727 CA2 6713 | 6735 CA3 6753, 7036 6743 CA4 6740 | 6751 CA5 6747, 6764 | 6754 CA6 6736 | 10517 CK1 10526 | 10522 CK2 10513,10515 10525 CK3 10522 | 1 LISTING OF 12/01/64 PAGE 2 | POST PROCESSOR ASSEMBLY DATA | | 200000 CP1 6500,13616,15313,15340,15504 100000 CP2 6500,13616,13624 | 14234 D48 14073 | 6623 DE1 6614, 6657 | 6635 DE2 6655 | 6636 DE3 6616, 6633, 6643, 6644, 6645, 6656 6640 DE4 6654 | 6646 DE5 6634 | 6656 DE6 6641 | 6661 DE7 6650 | 13606 EIN 13571 10735 EN1 10730 | 4000 EOB 6500, 7774,10036,10037,10137 | 11651 EOF 11641,12703,13010 | 6353 FCW 6523, 6570, 6617, 6625, 6632, 6635, 7071, 7274, 7305,11000,11037,11425,11620,12456,12642,13242,13243 | 13245,13575,13633,15261 4733 FOR 10563, 7137, 7646,11050,11566,12255,15323 | 4734 FVE 7704,10737 | 7731 GT1 7725 | 6351 IRS 6517, 6520, 6606, 6607,15547 | 7270 LBC 6714, 6756, 7015, 7172, 7302, 7377, 7404, 7406, 7463, 7467, 7477,10335,10355,10357,10402,10435,10437 10564,10610,10627,10635,10652,10700,11154,11172,11274,13220,13230,13520 | 14360 LF1 14333,14345 | 14361 LF2 14334 | 14365 LF3 14337 | 14403 LH1 14423,14536 14405 LH2 14402,14507,14511 | 14427 LH3 14411,14524 | 14437 LH4 14372,14425,14430 | 14440 LH5 14373 | 14443 LH6 14420 14445 LH7 14407 | 14452 LH8 14417 | 14464 LH9 14453 | 706 MWR 0, 5666, 5723, 5757, 6013 | 12545 MX0 12561 12556 MX1 12543 | 12562 MX2 12536,12576,12607,12625 | 12570 MX3 12565 | 12625 MX5 12611,12617,12621 | 12622 MX7 4673 ONE 5146, 6662, 7104,31201,31204,31257,16211,16657,21111,21544,21551,22007,22013,22055,22110,22363,22413 | 22422,22550,22621 | 7207 OP1 7116, 7271, 7276, 7311, 7326,13504,13512 | 7220 OP2 7206, 7215 | 7233 OP4 7224 7260 OP6 7255,15545,15574,15575 | 7264 OP7 7320 | 7272 OP9 7261, 7314 | 4732 PTH 10760,13717 | 1000 PTO 6500,13507 4731 PTW 14274,14340,14430,14637,14707,14773,15153,11751 | 10373 RE1 10412,10535 | 10413 RE2 10371,10377,10424,10443,10612 | 10414 RE3 10372 | 1 LISTING OF 12/01/64 PAGE 3 POST PROCESSOR ASSEMBLY DATA | | 10423 RE4 10374 | 10434 RE5 10430 | 10437 RE6 10433,10450 10444 RE7 10473 | 6272 REW | 7736 RW0 7732,10074 | 7742 RW1 7740 | 7746 RW2 7743 7771 RW3 10130,10132 | 7772 RW4 10121 | 7775 RW5 7765,10126 | 10006 RW6 10001 | 10026 RW7 10023,10103 10035 RW8 7741,10020,10030,10140 | 10043 RW9 10040 | 15142 SAV 15130,15147 | 7125 SH1 | 7135 SH2 7131, 7204 7172 SH3 7164 | 7162 SH5 7133 | 7170 SH9 | 4700 SIX 11662,13036,13751,17123 | 14743 SK1 14732,15035 14745 SK2 14733 | 12471 SW1 12462 | 12475 SW2 12454 | 12507 SW3 12433,12505 | 12510 SW4 12434 10172 SY3 10322 | 10250 SY7 10247 | 10276 SY9 10235 | 10141 TCH 7727 | 4704 TEN 7463 TK1 7456 | 7470 TK2 7462 | 7473 TK3 7454, 7475 | 7475 TK4 7465 | 10531 TR1 10401 10607 TR2 10604 | 10610 TR3 10576,10606 | 10542 TR5 7572,10540,10551,10552,10556,10567 | 10551 TR6 10544 | 10577 TR9 10562 2000 TTO 6500, 7020 | 4674 TWO 7007, 7042, 7064, 7120 | 11214 UB1 11226 | 11227 UB2 11225,11231,11232 | 11245 UB3 11224,11230,11300 11253 UB4 11217 | 11277 UB5 11235 | 11301 UB6 11256 | 11315 UB7 11212,11302 | 6274 WEF 12530 17SS 12516,15403 | 4721 1B17 4722,14476,14506,14764,15005,15132,15141,15231,15333,15346,15363,15400,16475,16557,16667,16714,16715 | 1 LISTING OF 12/01/64 PAGE 4 | POST PROCESSOR ASSEMBLY DATA | 16723,16724,16731,16736,13766,15741,16715 | 4721 1DEC 4722, 5200, 7600,12443,12444, 7022, 7145, 7466, 7505, 7512, 7611,10236,10243,10260,10561,10720,11163 | 11203,11517,11734,11775,13355,13546,15473 | 15526 1EOF 14712 | 15525 1EOR 14664,14722,15353 15527 1HDR 15377,15444 | 4730 1PRE 7253, 7616, 7640,13203,13320,13611 | 10651 1TAG 6715,11201 | 15524 2DEC 15475 | 7600 2PRE 7644,10075 7246 2TAG 7047, 7053, 7235 | 7323 3DEC 7143 | 12532 60SS 12520,12521,12523,12526 | 12531 66SS 12517 | 4735 6PRE 7072,11265,13647,15465,13751 13121 7GRP 6702, 6772, 6775, 6777, 7005, 7040, 7156 | 4745 7PRE 10376,10701 | 4446 9PAC | 702 ACTV 0,10316,10650,11052,11246,11324,12425,13704,14740 | 14011 BA01 14120 14012 BA02 13766,14054,14061,14116,14312,14314,14356,14360,14441,14443,14655,14657,14725,14727,14750,14777,15031 | 15033,15150,15162,15166,15167,16073,16074 | 14017 BA03 14001 | 14113 BA04 14075,16066,16070 | 14116 BA05 14014,14020,14143 14117 BA06 13774 | 14120 BA07 13761 | 14123 BA10 13762,14147,15250 | 14124 BA11 13763 | 14126 BA30 14015 14137 BA32 13765,14142,14144,14145,14146,14177,15157 | 14144 BA33 14121 | 14176 BA34 14164 | 16065 BA40 14021,14025,14026 | 16067 BA50 14034,14036,14043 14101 BA70 13771,14106,14453 | 14107 BA71 13773,14111 | 16071 BA80 14013 | 16073 BA81 14115 | 16076 BA99 13764,14122 10312 BB00 13526,13752,17656 | 16101 BC00 17663 | 16106 BC01 16243,16311,16314,17670,16243 | 16135 BC02 16126 | 16240 BC03 16232 16243 BC04 16111,16113,16245,16252,16261,16107 | 16303 BC05 16106,16244 | 16306 BC06 16310 | 16267 BC10 16164 | 16301 BC11 16267 4000 BC50 16306,17653 | 16315 BC60 16151 | 4000 BC70 16304,17653 | 4000 BC73 16115,17653 | 16337 BC80 16171 1 LISTING OF 12/01/64 PAGE 5 | POST PROCESSOR ASSEMBLY DATA | | 16340 BC81 16157 | 16341 BC82 16203 16342 BC83 16220 | 16344 BC84 16222 | 16346 BC85 16207 | 16350 BC86 16216 | 16360 BC87 16326 16357 BC88 16320 | 16361 BC89 16334 | 16362 BC90 16153 | 16407 BC91 16362,16430,16432 | 16413 BC92 16377 16431 BC93 16366 | 16410 BC94 16363 | 16433 BC95 16371,16405 | 16437 BC96 16372 | 16440 BC97 16364,16411 721 BCD5 0, 6671,15365 | 15116 BCK1 15113 | 17303 BCVR 10130,16131,16274,16421 | 5642 BERR 13537,13542,13546,13553,13723,14745,16032,16062,17650 | 17607 BFCB 13335,13337,13335 17350 BFST | 10140 BG01 10120 | 10137 BG02 | 10146 BG03 | 10147 BG04 10150 BG05 10135 | 10151 BG06 10142 | 17660 BG08 13760,14125,17662 | 10152 BG90 10113,10123 | 13333 BH00 17656 13342 BH01 13536 | 13504 BH02 13475,13550,13614 | 13527 BH03 13325,13541,13326 | 13537 BH04 13327,13332,13333,13332,13325 | 13542 BH06 13460 13546 BH07 13501 | 13463 BH08 13453,13545,13575 | 13404 BH09 6114,13552,13532 | 13551 BH10 13374,13555 | 13553 BH11 13376,13734 13556 BH12 13461 | 13363 BH20 13360 | 6105 BH30 13405 | 6127 BH40 6110 | 13563 BH90 13551 4726 BIT3 14514 | 4725 BIT4 14426 | 4000 BJ50 17343,17654 | 15255 BLNK 15007,15315,15374 | 15531 BLP4 15414 17641 BM00 10114,10125,16176,16230,16373,16403,16426 | 17602 BMZE 10755,13556 | 17645 BN00 17267,17272,17274,17277,17300,17305,17312,17317,17322,17323 | 1 LISTING OF 12/01/64 PAGE 6 | POST PROCESSOR ASSEMBLY DATA | 17603 BONE 10126,13770,13772,16272,16632 | 10342 BOR2 10334,10346,10354,10366 | 10345 BOR3 10340 | 10365 BOR8 10333,10341 17611 BQ00 6105, 6106,10303,10305,10310,13343,13350,13352,13354,13361,13406,13422,13464,13504,13607,13635,16121 | 16134,16136,16140,16142,16156,16160,16165,16172,16204,16226,16241,16265,16300,16317,16321,16327,16335 | 17237,17240 | 17216 BR00 17212,17223 | 17224 BR01 17205 17245 BS00 17254 | 17254 BS01 17246 | 17255 BS02 17242,17252 | 17261 BS03 17227,17265 | 17262 BS04 17226,17264 17242 BS05 17266,16307 | 13367 BSC1 13372 | 13371 BSC2 13365 | 13377 BSF1 13403 | 13417 BSF2 13402 13421 BSF3 13405 | 13407 BSF4 13410 | 13411 BSF5 12732,13413 | 13373 BSF. 6301 | 17610 BSNK 6113,13560 13356 BSR2 13420 | 13345 BSR. 6277 | 16461 BT00 16443,16502,16653,16700 | 16446 BT01 16444,16614 | 16573 BT02 16445 16520 BT03 16504 | 16501 BT04 16673,16721 | 16645 BT10 16451 | 16730 BT11 16654 | 16735 BT12 16660 16674 BT30 16646 | 16722 BT31 16701 | 16754 BT51 16513,16515,16526,16532,16534,16566,16570,16625,16635,16643,16705,16752 | 16762 BT91 16607 | 16755 BT99 16441,16442,16503,16511,16514,16524,16527,16555,16562,16572,16601,16644,16727,16734,16750,16753,16761 17605 BTEN 16472,16664,16711,17276,17307 | 16765 BTII 16522,16746 | 16766 BTIV 16525,16751 | 12262 BTP1 10571,11412,13525 | 12263 BTP2 10476 17604 BTWO 14401 | 17015 BU00 | 17031 BU01 | 17045 BU02 | 17053 BU04 17060 BU05 | 17065 BU06 | 17071 BU07 13540 | 17077 BU08 13543 | 17102 BU09 13547 17105 BU11 10141 | 1 LISTING OF 12/01/64 PAGE 7 | POST PROCESSOR ASSEMBLY DATA | | 17107 BU12 17113 BU13 | 17116 BU14 | 17122 BU15 13554 | 17130 BU50 | 17144 BU51 16235 17155 BU52 16237 | 17175 BU60 | 17350 BW00 13415 | 17360 BW01 13417 | 17366 BW02 13421 17372 BW03 13424 | 17402 BW04 13426 | 17412 BW05 13430 | 17416 BW06 13432 | 17422 BW07 13434 17434 BW08 13467,13612 | 17440 BW09 | 17450 BW10 13411 | 17454 BW11 13510 | 17563 BW12 10321 17573 BW13 10317 | 5642 BWRT 16234,16236,16240,17650 | 17655 BX00 | 17326 BY00 13323,17241 | 17327 BY01 13450 17330 BY02 13473 | 17331 BY03 | 17332 BY05 | 17333 BY07 13372,13651 | 17334 BY08 13356 17335 BY09 13363 | 17460 BZ00 17245 | 17336 BZ02 | 17560 BZ10 | 17562 BZ12 6770 CA10 6734, 6776, 7035 | 6777 CA11 6773, 7042 | 7003 CA12 7001 | 7011 CA13 6771 | 7015 CA20 6767 7022 CA22 7052, 7055 | 7024 CA23 6732, 7017, 7056 | 7026 CA24 6737, 7070, 7161, 7212, 7217, 7307 | 7031 CA25 7013 | 7035 CA26 6730, 7031, 7033 7037 CA27 6721, 7032 | 7044 CA40 7021 | 7057 CA50 6735, 6770 | 7066 CA51 6727, 6745, 6746, 6774, 7057, 7061, 7074 | 7107 CA60 6755, 7222 4621 CARD 5326, 6312, 6625, 6633, 6641, 6642, 7256, 7261, 7266, 7271, 7300, 7302, 7306, 7310, 7313, 7321, 7361 | 7364, 7754,10034,10045,10057,10063,10200,10206,10213,10253,10255,10256,10266,10275,10302,10313,10314 | 10345,10412,10413,10461,11167,11523,11533,11540,11551,11554,12275,12616,12737,12742,12762,17237,17240 | 14050 CHP1 13676,13705,14041,14043,14046,14235 | 1 LISTING OF 12/01/64 PAGE 8 POST PROCESSOR ASSEMBLY DATA | | 14035 CHP2 14053 | 14042 CHP3 13653 | 14106 CHP4 13777,14111 14174 CHP6 14121,14124,14130 | 14172 CHP7 14055,14176,14203 | 14232 CHP8 14123 | 6302 CKPT 16465 | 14275 CMT4 14221 14010 CMT5 13725,13741,13750,13752,13755 | 14277 CMT8 14225 | 736 COMM 0,11403,11433,11456,12613,12661,12662,15050 | 30760 COMP 30735,31001,31030 | 6270 COPY 13652 CPSW 6574, 6576, 6601 | 13621 CPT1 13615,13632,13635,13643,13651 | 13623 CPT2 13610,13613,13620,14354,14356 | 13624 CPT3 13617 | 13630 CPT4 13625 13634 CPT5 13627 | 13641 CPT6 13634,13637 | 13173 CPY1 13314 | 13175 CPY2 13165,13166,13234,13263,13312,13326 | 13213 CPY3 13201 13235 CPY6 11031,11033,12372,12374,13162,13173,13200,13214,13217,13226,13260,13305,13322,13325,13327 | 10644 CPY7 10641,10642,10704,10713,11027,13161,13241,13244 | 4447 DATE 12347,12471,13323,15416,15446 | 12762 DAXC 12757 | 13030 DBSF 12735 13102 DCTL 13055,13075,13110 | 13627 DCYL 13477 | 11662 DEOF 11673,11756 | 11737 DERR 6526,11552,11745 | 14706 DHDR 14400,14412,14424,14427,14441,14546,14574,14600,14630,14650,14657,15072,15264,15452 12666 DIND 12700,12725,12731 | 13711 DUCB 13706 | 13026 DVTA 12771,13103,13107 | 15150 DVTN 15136,15153,15156 | 12733 DWEF 12710 6553 ENT1 6557 | 6556 ENT2 6546 | 6477 EORI 6432, 6454 | 6473 EORM 6461 | 6457 EORT 6433 6572 EX14 | 6574 EX15 6575 | 6601 EX19 6573 | 6602 EX20 6604 | 6602 EX23 6575, 6600 6603 EX24 13147 | 6606 EX34 6660 | 100000 FDEN 6500,15470 | 4677 FIVE 6764 | 4676 FOUR 7046,22271 10626 GET0 10615,10621 | 10633 GET1 10662,12375 | 1 LISTING OF 12/01/64 PAGE 9 | POST PROCESSOR ASSEMBLY DATA | 10656 GET2 10646 | 10661 GET3 10647 | 10663 GET4 10304 | 10667 GET5 10632,10637,10654 | 10703 GET6 10673 10716 GET7 10710 | 10722 GET8 10613,10617,10622,10626,10670 | 200 HELD 6500, 7634,10047,10672,10727,10732,10756 | 22203 HIGH | 400 HOLD 6500,10042,10427,10603 10751 HOOK 7635,10050 | 13561 ICL1 13570 | 13566 ICL2 13552 | 11422 INEX 11471 | 12636 INVM 12552,12624 6246 IOCS 17141,23276,23427 | 6502 IOOP 7721 | 13505 IOP3 13465 | 4 IOSY 6500, 7775,10011,10122 | 13146 JOBS 7755, 7760 6254 JOIN | 15172 LBR0 15162 | 15175 LBR1 15161 | 15045 LBS1 15055 | 15043 LBSM 15020 15415 LCK1 15401 | 15405 LCK2 15424 | 15422 LCK3 15411 | 14713 LCO1 14723 | 14517 LH10 14432 14525 LH11 14431,14452,14454,14523,14533 | 14526 LH14 14470,14476,14500,14506 | 14533 LH15 14527 | 12610 LKAD 12540,12557 | 14561 LOO1 14547,14554,14573,14677 14600 LOO2 14555,14564,14700 | 14655 LOO3 14537,14626,14651,14707,14715,14716,14717 | 14656 LOO4 14540,14710,14720 | 14661 LOO6 14624 | 14672 LOO8 14566 14673 LOO9 14570 | 14550 LOOZ 14671, 7261 | 4000 LOST 6117, 6415, 6424, 7377, 7400,10003,10004,10005,10237,10507,10510,10511,10512,10713,10714,10715,10716 | 11106,11107,11110,11111,17653,17654,30065,30215,30265,30266,30267,30274,30320,30334,30446,30520,30521 | 30522,30527,30632,30635,31147,15775,16554,16645,16756,22311 15030 LSL1 14771,15033 | 6342 LTSX 6514, 6664, 7636, 7651, 7677,10100,10347,10356 | 12613 LWRD 12606 | 4714 L(0) 4724, 5410,12530,17610, 6511, 6522, 6565, 6670, 7065, 7403, 7453, 7565,10172,10336,10453,10457,10570 | 10671,10774,11077,11145,11214,12420,12741,13134,13211,13236,13300,13337,13422,14017,14113,14131,15270 4715 L(1) 7640,13673,14403,16535,16537, 6613, 6615, 6646, 7060, 7123,10216,10220,10246,10361,10537,10547,10554 | 10707,10711,11370,11506,11526,11557,11600,11616,12004,12026,12030,12050,12072,12075,12207,12217,12222 | 13006,13052,13062,13471,13645,14026,14067,14316,15102,15114,15505 | 4740 L(2) 11760 | 4741 L(3) 11762 1 LISTING OF 12/01/64 PAGE 10 | POST PROCESSOR ASSEMBLY DATA | | 12015 L(5) | 12016 L(6) 12013,12752,15111 15532 M365 15423 | 106 MGZE 0, 6656, 6657, 6661,22221,22235,22243,22260,71545,72456 | 7544 MNT1 7540 | 7545 MNT2 7553 | 7555 MNT3 7532 7557 MNT4 7535 | 7560 MNT5 7541 | 7561 MNT6 7543 | 4000 MODE 6500, 6507,12550,12616,12622,12646,15313,15472 | 30741 MOVE 30732,30757 11551 MSEL 11364,12262 | 15251 MSK1 15110 | 15252 MSK2 15337 | 15253 MSK4 15407 | 12563 MXMP 11502 4703 NINE | 2 NOCH 0, 6534,11125,11142,11225,11361,12265,12262,12607,13112,15161 | 7321 OP10 7230 | 7327 OP11 7240 | 7214 OPAT 6722 6262 OPEN 15655,15730 | 711 PAWS 0, 7115, 7325,14226 | 6663 PERR 6653, 6720,13127,13133 | 10474 PRD1 10470 | 10503 PRD2 10467,10474,10501 6700 PRR1 6663 | 11356 PTES 11353 | 15523 PTWP 15274,15525 | 7447 RCT0 7417 | 7451 RCT1 7414 14201 RDWR 14117,14122,14126,14175 | 6264 READ 31146,16256 | 13447 REW2 13441 | 13450 REW3 13436,13446 | 13451 REW4 13432,13442 13424 REW. 6273 | 10114 RSRD 7357 | 10122 RSWR 7374 | 10 RUSH 6500,10517 | 10045 RW10 10060 10047 RW12 10102 | 10056 RW13 10044 | 10070 RW14 10063,10065 | 10075 RW16 10067 | 10077 RW17 10076,10303 14771 RWL1 14753,14763 | 14772 RWL3 14754,14764,14773,15406,15413,15422 | 14765 RWL4 14755 | 11534 RWRS 15027 | 20000 SAME 14176,14237,16571 10773 SEL0 11007,11177 | 11010 SEL1 10777,11004,11015 | 11032 SEL2 | 1 LISTING OF 12/01/64 PAGE 11 | POST PROCESSOR ASSEMBLY DATA | 11020 SEL3 10776 | 10762 SEL4 10767,10772,11012,11046,11104,11110,11171 | 11142 SEL5 10761 | 11167 SEL6 11021 11175 SEL7 11170 | 11141 SEL8 11056,11076,11607,12024, 6340 | 11500 SELP 11362,12573 | 11565 SEOF 11753 | 11751 SEOH 11565 0 SFBO 0 | 7174 SH32 7201 | 7176 SH33 7173 | 7202 SH34 7177 | 7117 SHUT 6701 12243 SIZE 11700,12036 | 14732 SKIP 14347,14433,14436,14467,14475,14477,14505,15607 | 15037 SKS1 15056 | 15035 SKSM 15015,15036 | 15135 SMSX 15112,15152,15155 705 SMZE 0,71545 | 15031 SSL1 14745 | 12210 STCC 12200 | 713 STOP 0, 6512, 6527, 6677,10666,14222 | 100 STSH 6500,10464,13154,13171 3777 STZE 0,11146,17650,71545,73000 | 7577 SUM1 10256,10546 | 7612 SUM2 7610 | 7613 SUM3 7573 | 6360 SWTC 6572 6361 SWTE 14422,14462,14530,14532,14534,14572,14676 | 10310 SY10 10174,10315 | 10323 SY11 10227 | 15370 TCK1 15351,15363 | 13122 TEMP 6672, 6676, 7602, 7603, 7606,10262,10265,11254,11273,11305,11307,11312,12711,12712,13273,13274,14350 14362,14553,14560,14604,14615,15122,15133,15317,15333,15356,15367,15371,15576,15615 | 6431 TEOR 6357 | 30717 TEXT 30712 | 10602 TR10 10545 | 735 TRAP 0 11747 TRKC 11721,12042 | 10032 TRM1 7355, 7373 | 10033 TRM2 7356, 7372,10024 | 6664 TSXR 7412,10112 | 11327 UNBO 11323,11331,11333 15626 UNIT 31102,16612,16641 | 7530 UNM1 7517 | 12271 URC1 11402,11461,11603 | 15057 WAIT 14737,14742,15037,15145 | 12175 WCHK 11731,12062 6350 WDCT 7717, 7736, 7763, 7771, 7772,10006,10031,10073,10125,10134 | 13426 WEF. 6275 | 14773 WRL1 15045 | 15000 WRL2 14765,14774,15013 | 6343 XEOB 6525, 7656,10035,10066,10302,10466,13123,13160,13255,13315,13330,13336,13343,13374,13456 6344 XEOF 7337, 7632,13153 | 1 LISTING OF 12/01/64 PAGE 12 | POST PROCESSOR ASSEMBLY DATA | | 6345 XERR 7340, 7653 4672 ZERO | 4720 ADDRS 7660,11476,11502,13656,13666,15313, 6406, 6414, 6647,10633,11003,12034,12214,12225,12233,12717,13350 | 7401 ADIBC 6752, 7007, 7023 | 15254 ASTER 14576,15011,15577 | 17750 B0011 17751 B0012 | 17766 B0070 17757 | 17776 B0150 17767 | 20020 B0460 17747,20012,20034 | 20021 B0461 17750,20035 20023 B0470 20004,20060,20062 | 20037 B0500 17771,17777 | 20040 B0510 20047 | 20047 B0545 20063 | 20057 B0600 20043 20064 B1000 31260,31302,17753,17775,20000,20006,20014,20030,20067 | 20065 B1010 17744,17766,17770,20007,20023,20067 | 20066 B1020 31253,17746,17752,17755,17756,17760,17765,17776,20010,20024,20067 | 20067 B1025 17751,20046,20061 | 20070 B1030 17754,23127 20071 B1035 20057 | 20072 B1036 20050 | 20073 B1040 17773 | 20074 B1050 20042 | 20075 B1060 17762,20245 20076 B1070 17761,20243 | 20077 B1080 17764 | 20100 B1090 17742,20011,20013,20025,20027 | 4746 B1FIN | 20101 B2000 20054 20113 B2100 20101,20102,20103,20104,20105,20106,20107,20110,20111,20112 | 20125 B2200 20113,20114,20115,20116,20117,20120,20121,20122,20123,20124 | 20137 B2300 20125,20126,20127,20130,20131,20132,20133,20134,20135,20136 | 20151 B2400 20137,20140,20141,20142,20143,20144,20145,20146,20147,20150 | 20163 B2500 20151,20152,20153,20154,20155,20156,20157,20160,20161,20162 20261 B6000 20176,20212,20213,20240,20271 | 20262 B6010 20200,20226,20254,20271 | 20263 B6020 20201,20237,20242,20246,20250,20256,20271 | 20264 B6030 20214 | 20265 B6040 20217,20227 20266 B6050 20216 | 20267 B6060 20247 | 20270 B6070 20210,20251,20253 | 15545 B6FIN 6661,10026 | 20271 B7000 20232 20275 B7100 20222,20233 | 20375 B7200 20223,20234 | 20475 B7300 20224,20235 | 20575 B7400 20225,20236,20575,20576,20577,20600,20601,20602,20603,20604,20605,20606,20607,20610,20611,20612,20613 | 20614,20615,20616,20617,20620,20621,20622,20623,20624,20625,20626,20627,20630,20631,20632,20633,20634 20635,20636,20637,20640,20641 | 13757 BA000 17657 | 7624 BA001 7674 | 7652 BA002 7630 | 1 LISTING OF 12/01/64 PAGE 13 POST PROCESSOR ASSEMBLY DATA | | 7633 BA003 7666 | 7671 BA004 7626, 7632, 7651, 7662 | 7676 BA005 7622, 7624, 7634, 7647, 7661, 7670, 7671, 7673 14025 BA037 14005,14007 | 14041 BA038 14031 | 14112 BA039 | 16077 BA100 14046,14074 | 14153 BA33A 14163,14167,14170,14173,14174,14200,14204,14216,14230,14276,14321,14342,14365,14423,14446,14451,14470 14572,14641,14664,14711,14734,15160 | 14156 BA33B 14171,14172 | 14170 BA33C 14161 | 14473 BA341 14523,14537 | 14503 BA342 14527,14533 14571 BA343 14555 | 14671 BA344 14620,14626 | 14664 BA345 14644 | 15036 BA346 14676 | 14641 BA347 14576,14663 14631 BA348 14610,14667 | 14701 BA349 14614,14737 | 14200 BA34A 14317,15001,15035,15155 | 14227 BA34B 14202 | 14212 BA34C 14207,14220,14223,14225 14204 BA34D 14210,14221 | 14222 BA34E 14203,14211 | 14225 BA34F 14214 | 15117 BA34G 14236 | 14740 BA34H 14240 14542 BA34I 14242,14256,14262,14326,14554,14560,15046,15116 | 14371 BA34J 14244,14450,14516 | 14325 BA34K 14260 | 14321 BA34M 14301 | 14266 BA34N 14324 14276 BA34O 14320 | 14332 BA34P 14370 | 14256 BA34Q 14246 | 14342 BA34R 14364 | 14365 BA34S 14345 14467 BA34T 14460 | 14517 BA34U 14467,14474,14504 | 14532 BA34V 14521 | 14451 BA34W 14413 | 14317 BA34X 14226,14363,14445,14662,14732 14407 BA34Y 14375,14412,14421 | 14457 BA34Z 16001 | 14711 BA350 14733 | 14734 BA351 14714 | 15034 BA352 14747 15002 BA353 14760,15015,15024 | 15013 BA354 14762,15003 | 14771 BA355 15012 | 14761 BA356 15020,15027 | 15157 BA35A 14316,14362,14444,14661,14731,15000,15034,15156,15202 15221 BA35C 15237,15245,15255 | 15245 BA35D 15252,15266 | 1 LISTING OF 12/01/64 PAGE 14 | POST PROCESSOR ASSEMBLY DATA | 15251 BA35E 15223,15225 | 15256 BA35F 15246,15265 | 15072 BA360 15037,15047 | 15044 BA361 15066,15747 | 15155 BA362 15120 15130 BA363 15123 | 15137 BA364 15125 | 15145 BA365 15136 | 15102 BA36A 15115 | 14601 BA370 14573 14611 BA371 14604 | 14615 BA372 14601,14606,14612 | 15434 BA991 14140,14150 | 15267 BA992 14155,14160,14201,14205,14217,14232,14272,14277,14322,14336,14343,14366,14377,14447,14461,14635,14642 | 14665,14705,14712,14735 15270 BA993 14266,14271,14275,14307,14332,14335,14341,14353,14422,14424,14431,14436,14475,14505,14513,14515,14631 | 14634,14640,14652,14701,14704,14710,14722,14766,14771,14774,14775,15007,15055,15057,15062,15104,15106 | 15111,15131,15140,15147,15151,15154,15354,15356,15361,15371,15373,15376 | 15271 BA994 14233,14255,14602,14616 | 15272 BA995 14406,14414,14512 15412 BA996 15277,15312 | 15413 BA997 15301,15304,15314,15321,15322,15332,15336,15345,15351,15360,15366,15375,15403,15404,15406 | 15744 BABBB 15051 | 15766 BAERM 14746 | 15273 BAMAP 14176 15304 BAMP1 15410 | 15404 BAMP2 15306,15315,15337,15341,15352,15367 | 15340 BAMP3 15310 | 15353 BAMP4 15331 | 15322 BAMP5 15342 15370 BAMP6 15344 | 15407 BAMP7 15303 | 15343 BAMPI 15327 | 16441 BASGN 13457,13500 | 13123 BASIO 15067 BATST 15036,15040 | 15070 BATTS 15045,15052 | 15071 BATTT 15072,15074 | 15424 BAUII 14325,14330,14331,14333,14334,14367,14473,14477,14500,14501,14522,14536,14544,14545,14561,14562,14563 | 14605,14621,14627,14630,14632,14633,14666,15002,15004,15006,15010,15011,15013,15022,15042,15061,15065 15124,15137,15142,15143,15144,15343,15347,15377,15401,15744,15746 | 15434 BAUIV 14261,14264,14265,14267,14270,14323,14503,14507,14510,14511,14526,14532,14550,14551,14565,14566,14567 | 14611,14671,14677,14700,14702,14703,14736,14761,14763,14765,14767,14770,15016,15025,15050,15053,15063 | 15064,15076,15102,15110,15112,15113,15114,15122,15130,15133,15134,15135,15330,15334,15362,15364,15745 | 4000 BB006 17347,17654 16116 BC015 | 16117 BC016 16263 | 16153 BC021 16124 | 16176 BC022 16170,16302,16336 | 16223 BC023 16210,16217 16230 BC024 16175,16202,16266 | 16264 BC045 16144 | 16352 BC900 16254,16257 | 16353 BC910 16167 | 16355 BC920 16275 1 LISTING OF 12/01/64 PAGE 15 | POST PROCESSOR ASSEMBLY DATA | | 16354 BC930 16264 | 16356 BC940 16150,16214,16251 14705 BC941 14344,14376,14544,14751,14761 | 15647 BCDBF 17743,17745,20016,20017,20032,20033,20255,20257,21444,21460,21470,21523,21531,21664,21734,21736,21744 | 21745,21753 | 17654 BCDCT | 12516 BCDCV 12447,12473,13646,15405 7477 BCKBB 11146,13301,13340 | 7500 BCKBF 10502,10574,13526 | 17205 BCNTR 10316,10320,10347,10463,13410,13414,13416,13420,13423,13425,13427,13431,13433,13466,13507,13611 | 4712 BCOMD 6620, 7253,10272,11164 | 17271 BCON1 17301 17302 BCON2 17273 | 17267 BCONV 10112,10116,10122,10454,13330,13631,13655,16271,30241,30301 | 67 BCTLN 0, 5657, 5745, 6021 | 17306 BCVR1 17314 | 17313 BCVR2 17324 17315 BCVR3 17325 | 17320 BCVR4 17303 | 17322 BCVR5 17310 | 4447 BDATB 10136,10143,13323 | 4000 BDATE 17341,17654 20262 BDBCL 20271,22135 | 20263 BDBCR 31006,31015,20271,22141,22144,23037,23046,23053,23065,23074,23101,23110,23117,23124,23135,23332,23337 | 23345,23376,23403,23410,23417 | 20261 BDBIN 31004,31013,20271,22132,23035,23044,23051,23063,23072,23077,23106,23115,23122,23133,23330,23335,23343 | 23374,23401,23406,23415 17652 BERCT 16173,17664 | 14 BFCBL 13323,13534,13767,16243,17607,16243 | 13323 BFILE 10311,17337,13341 | 17651 BFORG 13340,16104 | 10145 BG025 13526 BH025 13512,13562 | 13445 BH035 13436 | 13447 BH036 13443 | 13564 BH037 13456 | 13576 BH038 13567 13602 BH039 13571 | 13606 BH03A 13602 | 13615 BH03B 13603 | 13617 BH03C 13604 | 13621 BH03D 13605 13607 BH03E 13616,13620,13622 | 15631 BINBF 20015,20031,20211,21437,21561,21564,21602,21606,21635,21644,22040 | 17342 BJOBB | 17645 BKSCT 16206,17622,22557 | 17554 BKSPC 22675 17404 BKSPT 16203,17405,22415 | 15750 BLAST 14531,14541,15073,15101,15127 | 7645 BLKEX 7641 | 4744 BLNKS 12510,12525,13746,14444,15004,15437,15455,15517 | 10106 BLOAD 17345 31332 BLSNT 30727,31104 | 17653 BMORG 13527,13530,13535,16307 | 7656 BOFEX 11140,13351 | 1 LISTING OF 12/01/64 PAGE 16 | POST PROCESSOR ASSEMBLY DATA | 10333 BORBF 7267, 7347,10164,10276,10306,10523 | 10103 BOUND 10026 | 706 BPRNT 0 | 17226 BSCAN 10436,13324,13357,13364,13373,13451,13474,13652 13360 BSCKS 13345,13373 | 17264 BSCNA 16425,16447,16464,16623,16656,16703 | 6 BSFOP 10760,13377 | 5 BSROP 12554, 6445,10760,11304,13353,14620 | 16556 BT01A 16462 16615 BT021 16611 | 16644 BT022 16621 | 16643 BT023 16617 | 16516 BT04A 16466,16743 | 16505 BT04B 16517 16563 BT500 16453 | 16760 BT515 16460 | 16075 BTABL 13776,14023 | 16772 BTTBL 16577 | 17171 BU595 15630 BUFER 16435,16452,21303,21310,21313,21331,21335,21366,21375,22340,22351,22727,22740 | 4533 BUFF1 4711 | 4566 BUFF2 4713 | 17650 BUFIN 13532,13533,16102,16312 | 72727 BULOC 7056, 7115,30701,30711,15676,15705 72753 BUSZE 6714, 7004, 7054, 7113,30673,30677,15700,15722,15737,16713,17016 | 17601 BZERO 10312,10344,10445,10460,11163,13413,13506,16101 | 6763 CA6.5 | 24000 CDBTS 6500, 6501 | 15622 CDMSK 22530 12664 CDMX4 12652,12656,12660 | 12652 CDMXM 12535 | 6501 CDTCT 7730 | 11343 CHATT 11361 | 11334 CHATY 11356,11361,11363,11453,11503,11605,12022,12627 20175 CHBCD 21314,21336,21565,21607 | 13117 CHCIR | 13653 CHCPT 6355 | 15545 CHK11 | 17300 CHLOC 22054,22723 14164 CHP10 14143 | 14146 CHP11 14164 | 14214 CHP13 14101 | 14005 CHP14 13715,13716,13720,13723,13724 | 14205 CHP15 14075 14212 CHP16 14077,14177,14230 | 14215 CHP17 14064 | 14217 CHP18 14200 | 14105 CHP19 14051,14217 | 14223 CHP20 14201,14207,14211 14003 CHP25 13665,14120 | 14000 CHP40 13670 | 13666 CHP41 13662,14001 | 14235 CHP70 14213 | 14264 CHP71 14242 14117 CHP72 14243 | 1 LISTING OF 12/01/64 PAGE 17 | POST PROCESSOR ASSEMBLY DATA | | 14244 CHP73 14252 14254 CHP74 14246 | 14116 CHP75 14250 | 14170 CHPRW 14237 | 14104 CHPSI 14020,14165,15260,15304,15346 | 14074 CHPSL 14024,14031,14153 13726 CHPSS 13764,13771,14004,14630 | 741 CHPSW 0 | 14231 CHPTP 13763 | 14163 CHPX1 14023 | 14150 CHPX2 13701,13713,14002,14022 14147 CHPX4 13711,14021 | 10507 CKGIV 10406,10442,13223 | 6355 CKPT1 13640 | 13610 CKPT. 6303, 6577 | 12212 CKSEE 11610,11712 7642 CKSEX 10266 | 5630 CLIST 7265, 7363,16035,16074,16103,16457,16462,16466,17064,17103,17131,17642,22437,22502,22510,22566,22741 | 22754,23055,23103,23112,23137,23347,23352,23421 | 6260 CLOSE 16007,17045 | 6313 CONV1 6271, 6340,12752 6315 CONV2 6303, 6304, 6305 | 6307 CONV3 5422 | 13155 COPY. 6271 | 13613 CPINT 6552,12410,13612,14357 | 6341 CPSEQ 13641,13644,13650 40 CPYFN 6500,10411,10475,13175,13224,13307 | 4751 CSTOP 10247 | 17360 CTREM 15753,15757,15771,16215,16265,16335,16344,16407,16642,16646,16720,16740,17020,17024,17036,22454,22662 | 22663 | 72607 CTTBL 10020,30336,30340,30644,30645,16210,16212,22334,22352,22362,22364,22377,22404,22412,22414,22421,22423 22534,22540,22547,22551,22553,22604,22607,22620,22622,22757,22763,22772,22774,22777,23001,23003,23006 | 23010,23012,23021,23027,23034,23043,23062,23071,23150,23277,23301,23304,23310,23312,23316,23322 | 20210 CVBCD | 17742 CVBIN 17651,17656 | 722 CVPRT 0,13754,14220 30056 CVRRD 30225,30262,30515 | 13636 CYCNT 13634,13665,13670,13674,13747 | 13633 CYGO1 13754,13756 | 12676 D7909 12671,12704,12726,12730 | 16535 DASGN 16533 20065 DBBCL 20067 | 20066 DBBCR 20067 | 20064 DBBIN 20067 | 4 DBLSP 0, 7445, 7527,13755,14242,14246,14370,14450,14515,14647,14701,16450 | 12736 DBSF1 13054 13013 DBSF2 12707 | 13055 DBSF3 13004 | 13041 DBSF4 13032 | 13047 DBSF5 13042 | 13034 DBSF6 13046,13061 13106 DCTL1 13047 | 5134 DDEAD 6574, 7140,15756,16000,16064,11141,16105,22441 | 4727 DECRE 13715, 6621, 7747,10557,12743,13247,13303,14305,15342 | 17561 DELET 22720 | 1 LISTING OF 12/01/64 PAGE 18 POST PROCESSOR ASSEMBLY DATA | | 11200 DENSE 7247,12502,14434,14471,14654,14726,14731,15565 | 11664 DEOF1 11454 | 13521 DEST1 13527 13530 DEST2 13516,13522 | 17551 DEXIF 6700,10021,30716,17554,17655 | 13111 DFLAG 13057,13074,13104 | 13727 DFOND 13720 | 22176 DICLO 21123,21316,21340,21400,22063,22455,22504 30000 DIGEN 6500,10043 | 20000 DISCN 6500,10120,10416 | 13062 DISUE 12774 | 16032 DKERR 13700 | 17620 DLET2 17577 13753 DMASK 13726,13737 | 40000 DONLY 6500,10367,10405,10432,10441 | 7562 DRANO 7107, 7420, 7520, 7534,14627,15163,14627 | 11757 DRWRS 11504 | 16054 DSCAL 16063 13073 DSELP 13050,13056,13065 | 12770 DSMSB 12745,12755,13102,13106 | 22202 DSWCH | 16061 DUCBW 13476,13716,13751,16545,16550,16552,16553,16554 | 10074 DUMMY 7723, 7766,10072,10131,10135 13025 DWAIT 12773,13001,13070 | 13011 DWEF1 12733,12734,13003 | 12772 DWEF6 12746,13064 | 74044 EACIO 6500 | 24004 EBDSY 6500,10124 4702 EIGHT | 13571 ENTIN 10444,11161 | 12257 ENTRK 12215 | 6511 ENTRY 6253, 6255, 6257, 6261, 6263, 6265, 6267, 6271, 6273, 6275, 6277, 6301, 6305 | 7655 EOBEX 10054 6510 EOFBT 13413 | 7615 EOFER 7342 | 7624 EOFEX 10311,10326,10330 | 7631 EOF.0 7623,13266,13335,13344,14351,14371 | 7633 EOF.1 7654, 7657 15623 EOFSW 16405 | 17005 EOJOB 30744,31034,31037 | 6453 EORX4 6431, 6437 | 5535 EOT07 5532 | 5537 EOT09 5533 5545 EOT15 5540 | 5550 EOT20 5544 | 5561 EOT24 5551, 5571, 5572, 5610 | 5563 EOT26 5553, 5570, 5573 | 5601 EOT30 5576, 5577 5605 EOT35 5565, 5567 | 5610 EOT40 5604 | 5612 EOT45 5526, 5527, 5530 | 5616 EOT50 5541 | 5617 EOT51 5545 5620 EOT52 5542, 5546, 5560, 5603, 5606 | 5624 EOT53 5562, 5566 | 1 LISTING OF 12/01/64 PAGE 19 | POST PROCESSOR ASSEMBLY DATA | 5625 EOT54 5552 | 5626 EOT55 5564, 6647 | 5627 EOT56 5575 | 6505 EOTBT 11421 | 12376 EOTOF 6556,11032,11175,11332,12373 5526 EOTSW 5665, 5720, 6012 | 22204 EQUAL | 7651 ERREX 7647 | 22201 ESWCH | 12404 ETOF3 12427 ETOF5 12376,12413 | 12430 ETOF6 12377 | 12432 ETOF7 12415,12416 | 7677 EXFND 7665 | 7660 FEXIT 6564, 7631, 7652, 7655 4350 FIL00 4654,10614,10617,10677,11004,11007,11060,11200,11214,17651,30174,30650,30652,17240 | 4334 FIL01 17236 | 4320 FIL02 17234 | 4304 FIL03 17232 | 4270 FIL04 17230 4254 FIL05 17226 | 4240 FIL06 17224 | 4224 FIL07 10556,30176,30204,30221,30250,30253,30347,30432,30435,30657,30661,31010,17222 | 4210 FIL08 17220 | 4174 FIL09 10525,10746,17216 4160 FIL10 10557,10562,10564,17214 | 4144 FIL11 17212 | 4130 FIL12 17210 | 4114 FIL13 17206 | 4100 FIL14 17204 4064 FIL15 17202 | 4050 FIL16 17200 | 4034 FIL17 17176 | 4020 FIL18 17174 | 4004 FIL19 7742,11360,17650, 6337,17172 17240 FILES 31144,15712,16002,16133,16254,16362,16710,23365 | 5646 FLIST 5637, 6115, 7127,10100 | 7375 FNLBC 7014, 7262, 7301, 7317, 7345, 7366,13157,13362,13437,13517 | 14304 FULIO | 10000 GENER 6500, 7757, 7761, 7770,10057,10061,10133,10415 21433 GETBI | 21466 GETPA | 21442 GETUN | 20 GIVUP 6500, 7346, 7350,10163,10165,10514,10516,13225 | 103 GOIBS 0, 5204, 7604,10251,10264 10617 GTBUF 7371 | 7710 GTIOX 6516, 6554, 6561, 6563, 6603, 6731, 7335, 7622, 7660, 7674, 7703, 7705, 7713,10046,10104,10116,10141 | 10145,10150,13151,13457 | 12714 HCBCD 6302 | 22453 HCKSM 14303 HLBLK 12450,12474 | 13116 HOLDS 10702,10733,10735,10736,10740,10745,10752,10753 | 21104 HORDO | 22200 HORXR 21162,21410 | 15620 IDEX4 31101,31135,31227,16175,16345,16410,16555,16603,16665,16757,16762,16776,17004,17561,17616 1 LISTING OF 12/01/64 PAGE 20 | POST PROCESSOR ASSEMBLY DATA | | 22436 IMPOS | 6514 INCON 6515 4662 IND01 5636, 7125 | 4663 IND02 10036,10042 | 4664 IND03 | 4665 IND04 20650,20777 | 4666 IND05 10575 4667 IND06 | 4670 IND07 30207,30244,30345,30664,30731 | 4671 IND08 10047,10053,10513,23275 | 7722 INDIR 7711, 7733,10003 | 11426 INEX2 11423 11431 INEX4 11427 | 17310 INLOC 30745,30770,17311,17554 | 16173 INPTN | 16174 INPUT 30722,15667,15672,22433,22625 | 2000 INSAT 6500, 7117, 7707,10423,10446,13167,13363,13433 13532 INTCL 7126 | 13461 INTOP 7234 | 1 INTRD 6500,13464 | 12650 INVM1 12636 | 5364 ISS01 5273, 5314, 5332 5372 ISS08 5367 | 5376 ISS12 5372 | 5400 ISS14 5373 | 5401 ISS15 5374 | 5402 ISS16 5375 5404 ISS20 5371 | 5421 ISS28 5416 | 5423 ISS30 5364, 5415, 5420, 5426 | 5425 ISS32 5417 | 11335 ISSUE 10762,12432 16203 JA230 16177 | 16213 JA310 16205 | 16215 JA360 16201,16204 | 16242 JA550 16216,16241 | 15650 JAA80 16174 15657 JAB80 15653 | 15661 JAC10 15665 | 15670 JAC80 15650 | 15671 JAC90 15651 | 15673 JAG10 15666 16250 JB150 16100,16245,16247,16376,16403,16414 | 16251 JB160 16413 | 16257 JB220 16255 | 16261 JB240 16262 | 16262 JB250 16415 16270 JB400 16220,16230,16237,16267 | 16272 JB420 16770 | 16277 JB500 16273 | 16314 JB630 16306,16313 | 16333 JB760 16276 16350 JB840 16317 | 16351 JB845 16354 | 16352 JB850 16330,16355 | 1 LISTING OF 12/01/64 PAGE 21 | POST PROCESSOR ASSEMBLY DATA | 16356 JB890 16353 | 15674 JBA70 30724,30726,15663,16375 | 15703 JBB50 15677,15701 | 15726 JBC90 15706 15727 JBD10 15721 | 15731 JBD30 30720,15713,15716,15735 | 15744 JBE30 15736 | 15745 JBE40 15742,15746 | 15766 JBG30 15762,15767 15771 JBG60 15734 | 15772 JBG70 15674,15756,15770 | 15774 JBG90 15765,16600,16751 | 15775 JBH40 15744 | 16357 JC150 16260 16377 JC350 16366 | 16404 JC400 16400,16402 | 16405 JC410 16372,16374 | 16407 JC430 16243 | 16412 JC500 16260 16416 JC550 31213,16412 | 16430 JC640 16506 | 16431 JC650 16421,16437 | 16432 JC660 31276,16416,16417,16425,16451,16475 | 16435 JC700 16424,16427 16452 JC740 16436 | 16462 JC820 16453 | 16465 JC850 16456,16461,16464 | 16466 JC860 31277,16504 | 15776 JCA50 31226,16367,16404,17040 16010 JCB30 16003,16006 | 16011 JCB40 15776 | 16507 JD300 16460 | 16512 JD310 16463 | 16515 JD320 16467 16522 JD330 16470 | 16530 JD340 16471 | 16536 JD350 16472 | 16544 JD360 16443,16445,16450 | 16554 JD420 16257 16013 JDB10 16373,16401 | 16042 JDE10 16013 | 16046 JDF10 16025 | 16047 JDF20 16036 | 16054 JDF30 16026,16030,16032,16034 16060 JDF40 16037 | 16066 JDF50 16040 | 16101 JEB80 16072 | 16106 JED10 16073,16075,16102 | 16115 JED20 16076 16123 JED30 16101,16104 | 16130 JFA50 16420,17053,17074 | 16136 JGA50 16246,16675,16702 | 16142 JGA90 16167 | 16161 JGC70 16151,16163 16165 JGD20 16154 | 1 LISTING OF 12/01/64 PAGE 22 | POST PROCESSOR ASSEMBLY DATA | | 16166 JGD30 16144,16150 16170 JGD50 16136,16166 | 16172 JGD90 16145 | 16564 JJ180 16560 | 16601 JJ280 16575 | 16605 JJ350 16563,16566,16775 16612 JJ400 16606 | 16630 JJ540 16622,16627 | 16642 JJ650 16611 | 16664 JJ820 16650 | 16665 JJ830 16656,16663 16667 JJ900 16661 | 16670 JJ910 16565,16567 | 16671 JK070 16664,17037 | 16703 JK170 16700 | 16705 JK400 16672,16673,16677,16704 16752 JK710 16746 | 16754 JK740 16671,16743 | 16756 JK790 16726,16731 | 16757 JL100 16562 | 16771 JL200 16202,16760 16772 JL210 17001,17002 | 16773 JL220 16763 | 16776 JL250 16772 | 17012 JM150 17006 | 17013 JM160 17041 17034 JM330 17027,17035 | 17003 JM350 16761,16777,17005,17007 | 17004 JM360 17000 | 17037 JM370 17023 | 17040 JM380 17021 17041 JM390 17015 | 17047 JM426 17043 | 17067 JM630 17133 | 17133 JM950 17071,17106,17111 | 17134 JM960 17052 17142 JN150 16221,17030 | 17143 JN160 16222,17031 | 17144 JN162 17112 | 17145 JN164 17114 | 17146 JN166 17127 17147 JN170 17136,17137 | 17150 JN180 17116 | 17151 JN190 17120 | 17152 JN200 17055,17057,17061,17063,17065,17073,17076,17100,17102,17104 | 17162 JN220 17113,17115,17121,17130,17132 4001 JOBID 10060 | 13123 JOIN. 6662 | 6662 JOINX 6255 | 16726 JW540 16711 | 16727 JW550 16722,16724 16731 JW555 16712 | 16732 JW560 16716,16733 | 7566 KA100 100 | 7610 KA215 7575, 7607 | 1 LISTING OF 12/01/64 PAGE 23 POST PROCESSOR ASSEMBLY DATA | | 7677 KA470 7571 | 7716 KA515 7707 | 7720 KA525 7725 7727 KA565 7720 | 7732 KA580 7712, 7723 | 7735 KA600 7726 | 7747 KA650 7752, 7767 | 7755 KA685 7761 7762 KA715 7766 | 7770 KA745 7764 | 7775 KA765 7757 | 10006 KA800 7776,10001 | 10012 KA822 7775, 7777,10000 10015 KA825 10014 | 10035 KA840 10043 | 10046 KA885 10054 | 13020 KAA50 7572 | 13021 KAA51 7610 13022 KAA53 10423 | 13023 KAA54 | 13024 KAA55 | 13025 KAA56 10006 | 13026 KAA57 10040,10051,10427 13031 KAB09 10404,13340 | 13032 KAB10 10324,10365,10377,10456,10466,13333 | 13033 KAB11 10334,10341 | 13034 KAB12 10342 | 13035 KAB13 10374 13036 KAB14 10435 | 13037 KAB15 10440 | 13040 KAB16 10452 | 13041 KAB17 | 13042 KAB18 13043 KAB20 10350,10417 | 13053 KAB30 10464 | 13065 KAB40 13415 | 13027 KAB58 10430,10432,10517 | 13030 KAB59 10433 13105 KAB60 12341,12457 | 13106 KAB61 12353 | 13107 KAB62 12357 | 13110 KAB63 12361,12413,12414 | 13111 KAB64 12363 13112 KAB65 12365 | 13113 KAB66 12371 | 13114 KAB67 10066,12403 | 13115 KAB68 12337,12551 | 13116 KAB69 10076 13117 KAB70 12407,12431 | 13120 KAB71 12424,12452,30213 | 13121 KAB78 10667 | 13122 KAB79 10730,10736 | 13123 KAB80 10725,10751 13124 KAB84 | 13125 KAB90 | 1 LISTING OF 12/01/64 PAGE 24 | POST PROCESSOR ASSEMBLY DATA | 13126 KAB91 6650 | 13127 KAC01 | 13130 KAC02 10307 | 13131 KAC03 10306 | 13132 KAC04 10561 13133 KAC10 | 13134 KAC11 | 13135 KAC20 13011 | 13136 KAC30 7606 | 13142 KAC31 10167 KB110 7747,10271 | 10172 KB125 10214,10262,10270 | 10175 KB140 10167,10215 | 10200 KB155 10205 | 10212 KB185 10254 10217 KB205 | 10220 KB206 10207 | 10221 KB209 10210 | 10222 KB210 10201,10204 | 10231 KB230 10203 10240 KB235 10232 | 10247 KB245 10233 | 10252 KB255 10234 | 10255 KB265 10235 | 10265 KB275 10236 10271 KB300 10002,10137,10144,10471,10473 | 10301 KC050 | 13333 KC125 13531 | 10311 KC800 17656 | 10312 KD400 10324 KD550 | 10343 KD680 10335 | 10361 KD780 10352 | 10371 KD860 10364 | 10376 KD910 10372 10377 KD920 10360,10370 | 11221 KDA00 10536,10545,10602,10650,10654,10660 | 11235 KDA65 11221,11222,11223 | 11241 KDB10 10522,10533,10537 | 11255 KDB20 10521,10546 11271 KDB30 10603 | 11305 KDB40 10661 | 11321 KDB50 10655 | 11335 KDB60 10651 | 11351 KDC01 10526 11352 KDC02 10530 | 11353 KDC03 10532 | 11354 KDC04 10523 | 11355 KDC10 10615,11005,11063 | 11356 KDC11 10635 11357 KDC12 10633,10637 | 11360 KDC20 10662,30170 | 11361 KDC30 11022,11030 | 11362 KDC31 11024,11026,11032 | 11172 KDE00 10534,10543,10600,10646,10652,10656 1 LISTING OF 12/01/64 PAGE 25 | POST PROCESSOR ASSEMBLY DATA | | 11174 KDE10 11202 | 11200 KDE30 11174,11176 11202 KDE40 11175,11177 | 11207 KDE65 11201 | 11212 KDE74 11172 | 11214 KDE80 11211 | 11215 KDE85 11205 10407 KE010 10403 | 10435 KE015 10407,10411 | 10443 KE070 10437 | 10450 KE120 10444 | 10454 KE160 10442,10447,10451 10456 KE180 10434 | 10460 KE230 10406 | 12331 KE450 11071,30222 | 12337 KE490 | 11410 KEA00 11035,11041,11045 11436 KEB05 11410,11411,11412,11424 | 11442 KEC01 | 11443 KEC02 11416,11422,11423,11430,11434,11435 | 11451 KEC03 11442,11456 | 11456 KEC04 11443,11457 11456 KEC05 | 11457 KEC06 11375,11401,11403 | 11460 KEC10 11000,11372 | 11461 KEC11 10777,11371 | 11462 KED00 11051,11053,11055 11474 KED10 11471,11506 | 11475 KED20 11464,11512,11516 | 11501 KED30 11473,11505,11511 | 11506 KED40 11477,11517 | 11507 KED50 11462 11511 KED60 11504 | 11520 KED90 11500,11503 | 11521 KED91 11513 | 11522 KED92 11515 | 11363 KEE00 11025,11033 11370 KEE25 11402 | 11404 KEE85 11363,11364,11365 | 12422 KF090 12415,12416 | 12424 KF110 12417 | 12430 KF150 12420 12433 KF180 12331,12332,12333 | 12437 KF300 | 12447 KF305 12440,12445 | 12451 KF310 12561 | 12471 KF320 12500 12475 KF325 12467 | 12501 KF340 12464,12476 | 12513 KF351 12501 | 12514 KF352 12502 | 12515 KF353 12503,12504,12506,12511 12516 KF360 12454 | 12517 KF361 12462,12466 | 12520 KF362 12465,12477 | 1 LISTING OF 12/01/64 PAGE 26 | POST PROCESSOR ASSEMBLY DATA | 12521 KF363 12475 | 12522 KF400 12460 | 12524 KF410 12474 | 12544 KF450 12525 12553 KF500 12455,12472,12473 | 12555 KF510 12437 | 12557 KF550 12550 | 12562 KF600 12522 | 12563 KF601 12524 12564 KF602 12562 | 12570 KF603 12563 | 12574 KF604 12532,12534,12536,12540,12542 | 12603 KF605 12545 | 12604 KF606 12605 KF607 | 11523 KFB00 11170 | 11565 KFC90 11543 | 11567 KFD00 11544 | 11571 KFD15 11545,11563 11574 KFD35 11546,11553,11560 | 11604 KFD75 11547 | 11605 KFD80 11570 | 11613 KFE01 11555 | 11614 KFE02 11557 11615 KFE03 11601 | 11616 KFE04 11550,11556,11600 | 11617 KFE05 11561,11605 | 11620 KFE06 11530,11531,11575,11606 | 11621 KFE07 11534,11610,11620,12330 12275 KFH00 11171 | 12311 KFH65 12300,12304 | 12314 KFH80 12301,12324,12326 | 12320 KFJ00 12305 | 12322 KFJ25 12306,12316 12327 KFK01 12277,12303 | 12330 KFK02 12315,12323 | 10474 KG050 10300 | 10513 KG125 10504,10505,10506 | 10533 KG165 10524 10537 KG185 10761 | 10541 KG235 10516 | 10546 KG260 10744 | 10547 KG295 10540,10542 | 10565 KG328 10502 10566 KG330 10574 | 10570 KG338 10566 | 10574 KG346 10567,10571 | 10600 KG350 10573,10576 | 10603 KG380 10767 10604 KG390 10577 | 10612 KG405 10642 | 10614 KG425 10612 | 10642 KG485 10613,10616,10622,10625,10631,10636,10640 | 10652 KG520 10645 10656 KG555 10644 | 1 LISTING OF 12/01/64 PAGE 27 | POST PROCESSOR ASSEMBLY DATA | | 10662 KH000 10503,10550,10643 10675 KH055 10703 | 10717 KH175 10710,10711 | 10744 KH300 | 10761 KH355 10712 | 10765 KH380 10762 10767 KH500 10706 | 10774 KH535 10771 | 11002 KH565 11034 | 11004 KH585 11002 | 11011 KH602 10606 11014 KH605 10610 | 11034 KH665 11003,11006,11012,11015,11021,11027,11031 | 11051 KH800 10707,10766 | 12616 KHB20 12642 | 12617 KHB30 12641 12620 KHB40 12635 | 12634 KHC60 12622 | 12636 KHC80 12613 | 12653 KHE40 12607 | 12654 KHE50 12610 12655 KHE60 12611 | 12657 KHF00 12630,12633,12643,12646,12712 | 12707 KHF10 12644 | 12710 KHF15 12721 | 12711 KHF20 12645 12712 KHF30 12650 | 12722 KHH10 12714 | 12725 KHH40 12716,12750,12751 | 12727 KHH60 12744 | 12743 KHI80 12731 12745 KHJ00 12720,12746 | 7420 KHK00 7326,12732 | 7421 KHK01 12623,12767 | 7564 KHL00 7326, 7327, 7335,12732,12733,12741 | 7565 KHL01 12623,12624,12632,12767,12770,12776 11057 KI015 | 11062 KI030 11075 | 11072 KI070 11070 | 11073 KI075 11064,11066,11067 | 11077 KI200 11076 11112 KI270 11103,11104 | 11127 KI425 11101 | 11137 KI525 11102 | 11145 KI546 11140 | 11146 KI547 11142 11147 KI575 11105 | 11161 KI611 11154 | 11162 KI612 11156 | 11163 KI750 11144,11150,11160 | 11165 KI760 11541,11612,12321 6612 KI825 11166 | 6616 KI845 6613 | 6623 KI865 6640 | 6635 KI915 6631 | 1 LISTING OF 12/01/64 PAGE 28 POST PROCESSOR ASSEMBLY DATA | | 6641 KI935 6630 | 6642 KI945 6626 | 6657 KI951 6672 6672 KI954 6660 | 6674 KI955 6651, 6653, 6655, 7070, 7124,11141,11143,11155,11157 | 6677 KI975 6652, 6654 | 6701 KJ010 6645, 6646, 6673 | 6706 KJ020 7022 6716 KJ021 6710 | 6756 KJ022 6750 | 6774 KJ023 6767 | 6775 KJ024 6755 | 7004 KJ025 6715, 6762 7017 KJ030 7013 | 7021 KJ040 6713, 6752 | 7022 KJ045 7016, 7021 | 7036 KJ060 7067 | 7054 KJ070 7050 7066 KJ080 7037 | 7071 KJ100 7026, 7033 | 7106 KJ110 7135 | 7107 KJ120 7103, 7123 | 7122 KJ130 7111 7125 KJ140 7105 | 7136 KJ150 7102 | 7141 KJ500 7011, 7040 | 7152 KJ510 7144, 7146 | 7154 KJ520 7143 7160 KJ530 7156 | 7161 KJA05 7142 | 7162 KJA06 7145 | 7206 KJA10 7010, 7036, 7071, 7073, 7110, 7116, 7151, 7153, 7154 | 7207 KJA15 6712, 6747, 6756, 6761, 6775, 7002 7210 KJA16 6737 | 7211 KJA20 7014, 7015, 7025 | 7213 KJA25 7017, 7020, 7031 | 7212 KJA30 6704, 7024, 7076 | 7214 KJA35 6703 7215 KJA40 7034, 7052, 7061 | 7216 KJA50 7041, 7062, 7075, 7100 | 7217 KJA60 7130, 7132 | 7230 KJA70 7133 | 7234 KJA80 7137 7245 KJA90 6720, 6722, 6723, 6725 | 7246 KJA91 6721 | 7247 KJA92 6744 | 7250 KJA93 6766 | 6504 KMA50 5425 6506 KMA70 6527 | 6520 KMB70 6513 | 6530 KMC50 6504 | 6537 KMD50 6506, 6523, 6525 | 6544 KME00 6507, 6512, 6521 6551 KME50 6511, 6515, 6516, 6524 | 6552 KME60 6514, 6520, 6526 | 1 LISTING OF 12/01/64 PAGE 29 | POST PROCESSOR ASSEMBLY DATA | 6553 KME70 12713,12774,12777,13007,13012,13013 | 6554 KME80 6534, 6535, 6536 | 6555 KME90 6532, 6533 | 12753 KNA50 10105 | 7251 KNB00 6623, 7267, 7362, 7366,11165 12762 KNB20 13006 | 12763 KNB30 13005 | 7270 KNB31 7264 | 7273 KNB35 7277 | 12764 KNB40 13001 7337 KNC25 7325 | 7341 KNC35 7316 | 7321 KNC55 7344, 7345 | 13000 KNC60 12766 | 7323 KNC65 7340 13002 KNC80 12757 | 13014 KND30 12753,13010 | 13015 KND40 12754 | 13016 KND50 12755 | 7354 KNE00 7251, 7301, 7314, 7356 7356 KNE10 7255, 7260 | 7360 KNE25 7375 | 7363 KNE30 7376 | 7367 KNF01 7273, 7276 | 7374 KNF06 7275 7401 KNF11 7303 | 7402 KNF12 7353 | 7406 KNF17 7333, 7336, 7346, 7351 | 7411 KNF20 7350 | 7412 KNF21 7347 7413 KNF22 7257 | 7414 KNF23 7262 | 7415 KNF24 7263 | 7416 KNF25 7272 | 7417 KNF26 7307 14372 LABCI 7264,14355 | 14707 LABCO 7171 | 400 LABEL 6500, 6547, 6762, 7170, 7263, 7277, 7542, 7624,12403,12406,13427,13631 | 14537 LABOO 7300,12407 | 6465 LABP3 6466 LABP4 6457, 6470 | 6470 LABP5 | 6471 LABP6 6460 | 6472 LABP7 | 6473 LABP9 6466 6457 LABPS 6353, 6433 | 14333 LAEOF 7625 | 4450 LAREA 12340,12342,12344,12346,12350,12352,12354,12372,12374,12376,12400,12401,12404,12453,12456,12461,12463 | 12543,12552,13120, 6451, 6475,14466,14472,14577,14603,14607,14612,14647,15005,15010,15012,15030,15033 | 15157,15171,15275,15314,15321,15334,15352,15362,15366,15373,15376,15402,15404,15426,15431,15435,15440 15445,15447,15451,15456,15462,15464,15466,15506,15510,15512,15514,15515,15520,15600 | 14724 LBDNR 14405,14550 | 14727 LBDNW 14622 | 14717 LBEOT 12404 | 15161 LBERR 14421,14571,14675 1 LISTING OF 12/01/64 PAGE 30 | POST PROCESSOR ASSEMBLY DATA | | 14326 LBRTN 14307,14326 | 15144 LBSDM 15132 15020 LBSEL 14771 | 14312 LBSET 14335,14401,14541,14711,14721 | 15034 LBSHS 15001,15047,15052,15054 | 15130 LBSLD 15126,15127 | 15275 LCKI1 15271,15312 15302 LCKI2 15263 | 15344 LCKI3 15256,15316 | 15345 LCKI4 15257,15425,15442,15443,15522 | 15256 LCKIN 14326 | 15373 LCKOF 14330 15530 LDOYR 15410 | 4737 LDWRC 12203 | 3 LERIG 0,12547,12604, 6361,14464,14466,14533,15222,15245 | 14353 LF0.1 14341 | 14410 LH2.5 14451 14421 LH2.6 14415 | 14433 LH3.5 14426 | 14444 LH6.5 14414 | 14464 LH8.5 14467 | 14503 LH9.2 14516 14477 LH9.5 14474 | 14510 LH9.8 14504 | 14512 LH9.9 14502 | 17237 LISTS 15724,17241,17242,17243,17244,17245,17246,17247,17250,17251,17252,17253,17254,17255,17256,17257,17260 | 17261,17262,17263,17264 0 LITES 0, 6515, 6575, 6604, 6613,10314,10324,11247,11255,11322,11331,13410,13413,14467,14534 | 15234 LMG10 14522 | 15235 LMG11 14370,14515 | 15237 LMG12 14460 | 15177 LMSG1 14443 15202 LMSG2 14672 | 15206 LMSG3 14673 | 15212 LMSG4 14450,14701 | 15216 LMSG5 7561 | 15221 LMSG6 15173 15225 LMSG8 15170 | 15227 LMSG9 14636,14640,14641,14646,14652 | 14674 LOO10 14562 | 14701 LOO11 14674 | 14621 LOO15 15604 14627 LOO16 15614 | 14553 LOOZ1 15616 | 15461 LPRFA 15453 | 15465 LPRFB 15460 | 15443 LPROF 14332 4 LRDEN 6500 | 15152 LSL1D 15126 | 15155 LSL2D 15127 | 17264 LSLOC 15717,17265 | 737 LTPOS 0,11455 6346 LTRAD 6602, 7661, 7777,10017 | 6611 LVCON 6613 | 2 LWDEN 6500 | 1 LISTING OF 12/01/64 PAGE 31 | POST PROCESSOR ASSEMBLY DATA | 7403 L(0)A 7243,12422,13415,13476,13510,13561 | 4724 L(0)D 10770,11444,11474,13602 | 15523 L(12) 15262,15525 | 16100 L(18) 14050 12017 L(22) 12012,12014,12020,12754 | 4742 L(40) 13660,13671,12236 | 22210 MERGE 21141,22272 | 12341 MES10 7422, 7425, 7444 | 12347 MES11 7445 12353 MES12 7430, 7433, 7437 | 12360 MES13 7434 | 12361 MES14 7436 | 12362 MES22 10665 | 12365 MES23 7522, 7527, 7533, 7552 12370 MES24 7557, 7560 | 12302 MESS1 7112, 7442, 7525, 7547, 7567,14644,15166 | 12304 MESS2 11135 | 12307 MESS5 6700 | 12312 MESS6 7324 12321 MESS7 7114 | 12327 MESS8 7413 | 12332 MESS9 10105,10107,10110,10113 | 22221 MGRCD | 72456 MGTBL 6657, 6661,22221,22235,22243,22260 22175 MLCUR 22212,22257 | 6507 MODBT 11531,12011,12750,15325 | 1000 MODII 14176,14257,14471,14520,14603,14617,16514,16524,16750 | 6427 MONS1 6372, 6407, 6421 | 6430 MONS2 6374, 6415, 6423 6413 MONS3 6400, 6417, 6422 | 6370 MONS4 6363, 6426 | 6425 MONS5 6401, 6412, 6420 | 6405 MONS6 6424 | 6362 MONSW 6356 7532 MOUNT 7330,12466,12475 | 6321 MOV12 6300 | 6323 MOV24 6301 | 6335 MOV50 6330, 6331, 6332, 6334 | 6341 MOV60 6333 22174 MRGLO 22164,22465,22505 | 22207 MRGUN | 40 MULTI 6500, 7626 | 12634 MXBB2 12615 | 400000 MXDMD 6500,11501 11374 MXMDT 11366 | 12533 MXMOD 11375 | 12670 NDSEL 7147, 7165, 7256,11303,12400,12435,12733,13352,13376,13450,14403,14556,14617,14661,14775 | 5521 NDSR1 5510 | 5523 NDSR2 5505 5524 NDSR3 5506 | 5505 NDSRT 4766, 4773, 5112, 5534, 5536, 5600, 6351, 6416, 6420, 6437, 6476, 6501,11564,11566,11603,12317,12335 | 12421,12427,12446,30110,30200,30202,30223,30447,17630,17640 | 10004 NETIH 6500, 7216, 7220,11020 | 6500 NEWIO 7720 17334 NEWRD 30730,31103,31107,31110,31114,31124,31133,31134,31205,15747,15761,16226,16233,16263,16270,16302,16314 | 1 LISTING OF 12/01/64 PAGE 32 | POST PROCESSOR ASSEMBLY DATA | | 16333,16334,16616,16633,16651,16653,16734,16745,16766,17556,17557,17566,17605,17620 7566 NIAM1 11126 | 5642 NLIST 5152, 5155, 5602, 5605, 5635, 5640, 6567, 7131, 7136, 7352,10103,10140,10212,10265,12541,15772,17650 | 30113,30231,30233,30461,30463,30465,31022,31024,31026,31035,31236,31271,31273, 6314 | 22061 NN010 22056,22117,22137,22142,22146,22154,22161 | 22106 NN026 22101 22144 NN054 22134 | 22150 NN060 22124 | 22152 NN062 22077,22105,22160 | 22156 NN066 22163 | 22162 NN070 22155 22164 NN080 22066,22143,22147 | 22166 NN082 22052 | 22170 NNA01 22060 | 22171 NNA02 22115,22126 | 22172 NNA03 22074,22102 22173 NNA04 22075,22100,22107,22112,22121,22125,22136,22145,22153 | 16047 NOARM 13724 | 4710 NOCHD 10743,17632 | 2 NOEOF 6500,10226 | 4 NOEOT 6500, 6505, 6506, 6543, 6553, 7627,12411,14346 1 NORED 6500, 7645,10271 | 400 NOREP 13517,13521,14176,14273,14337,14427,14636,14706,15152 | 4 NOREW 6500, 6503, 7141 | 2 NORUN 6500, 6503, 7144 | 4707 NOSFD 10735,17622 6504 NOTIN 11470 | 17671 NSLCT 23405,23413 | 14304 NSLST 6763 | 6503 NTRES 7064 | 4400 OBJL1 6614,10026 4401 OBJL2 6702, 7023,10027 | 4402 OBJL3 6701,10031 | 4403 OBJL4 6612,10032 | 4404 OBJL5 | 4405 OBJL6 71545 OBSUM 10023,21351,21622,22017 | 10613 OBTIB 10305 | 7241 OP4.5 7332 | 7277 OP9.1 7273 | 7300 OP9.2 7316 7312 OP9.3 7254 | 40002 OPDET 6500, 6754 | 40000 OPEND 6500, 7130, 7160, 7205, 7361,13155,13163,13360,13430,13543,14610,14625,15502,15603 | 7205 OPEN. 6263, 6542 | 15625 OPNSW 17264 OUTLC 15751,16723,16736,17265 | 16555 OUTPT 22647 | 15617 PADNG 16225,16227,16236 | 712 PAUSE 0,16034, 7331,12467,12500,15174 | 13114 PDMSK 7104,10264 11433 POSTR 11404,11650 | 22564 PRERR 22357,22545 | 22524 PRICT | 706 PROUT 0, 6673, 7110, 7321, 7440, 7523, 7545,10663,11132,14223,14240,14365,14445,14455,14464,14512,14517 | 1 LISTING OF 12/01/64 PAGE 33 POST PROCESSOR ASSEMBLY DATA | | 14642,15164 | 11461 PSTR2 11671 | 11447 PSTR3 11477 11457 PSTR4 11466 | 11465 PSTR5 11452 | 11467 PSTR6 11460,11665 | 11472 PSTR8 11440 | 22205 PSWCH 11362 PTEST 11346,11357 | 21536 PUTBI | 21673 PUTPA | 21652 PUTUN | 21135 PX013 21115 21142 PX014 21126,21130 | 21153 PX110 21161 | 21162 PX240 21155,21250,21264,21377,21403,21406 | 21164 PX242 21104 | 21165 PX243 21105,21412 21167 PX260 21152,21167 | 21211 PX440 21206 | 21224 PX620 21235 | 21236 PX780 21227 | 21251 PX970 21213 21414 PXA10 21106,21163,21411 | 21415 PXA20 21143,21154,21156,21160,21215,21223,21224,21226,21234,21244,21247,21260,21263,21300,21365,21376 | 21416 PXA30 21170,21205 | 21417 PXA40 21203,21207 | 21420 PXA50 21211,21221,21233 21421 PXA60 21212,21237,21246,21252,21262 | 21422 PXA70 21175,21222,21240,21253,21254 | 21423 PXA80 21125,21173,21236,21251,22065 | 21424 PXA90 21177,21214,21242,21243,21256,21257 | 21425 PXB10 21305,21326 21426 PXB20 21157,21225 | 21427 PXB30 21112,21117 | 21430 PXB40 21317,21341 | 21431 PXB50 21120,21320,21342 | 21432 PXB60 21122,21315,21337 21265 PY170 21146 | 21303 PY290 21271 | 21321 PY374 21114 | 21325 PY380 21307,21311,21312 | 21343 PY454 21113 21347 PY470 21330,21334 | 21352 PY500 | 21354 PY520 21374 | 21367 PY600 21363 | 21370 PY610 21361 21375 PY660 21350 | 21410 PY900 21324,21346 | 21413 PY930 21110 | 20656 R0190 20642,20651 | 20660 R0900 20643,20646 20661 R0901 20654,20655 | 20662 R0902 | 1 LISTING OF 12/01/64 PAGE 34 | POST PROCESSOR ASSEMBLY DATA | 20663 R0920 20647,21010 | 20671 R0930 20652 | 20677 R1000 20653,20677,20700,20701,20702,20703,20704,20705,20706,20707,20710,20711,20712,20713,20714,20715,20716 | 20717,20720,20721,20722,20723,20724,20725,20726,20727,20730,20731,20732,20733,20734,20735,20736,20737 | 20740,20741,20742,20743,20744,20745,20746,20747,20750,20751,20752,20753,20754,20755,20756,20757,20760 20761,20762,20763,20764,20765,20766,20767,20770,20771,20772,20773,20774,20775,20776 | 21012 R5180 21001,21015 | 21014 R5200 21005 | 21016 R5900 21002,21006 | 21017 R5901 21011 21020 R5902 | 21021 R6000 21007,21021,21022,21023,21024,21025,21026,21027,21030,21031,21032,21033,21034,21035,21036,21037,21040 | 21041,21042,21043,21044,21045,21046,21047,21050,21051,21052,21053,21054,21055,21056,21057,21060,21061 | 21062,21063,21064,21065,21066,21067,21070,21071,21072,21073,21074,21075,21076,21077,21100,21101,21102 | 21103 30 RANDG 6500,10521 | 11 RBITS 6500,10312 | 5353 RD120 5260, 5345 | 5354 RD130 5262, 5303, 5312, 5334, 5365, 5531 | 5355 RD140 5263, 5271, 5366 5356 RD150 5267, 5274, 5315, 5337, 5404 | 5357 RD160 5264, 5270, 5370, 5403, 5407, 5421 | 5360 RD170 5321, 5344 | 5361 RD180 5330,10277 | 5362 RD181 5327,10276 5363 RD182 5341 | 17404 RDCNT 17062,17072,17105,17405 | 14746 RDLAB 14336,14406,14501,14561 | 15060 RDLBD 14752,15161 | 15627 RDLEN 30747,30772,31132,16275,16332,16336,16610,16640,16643,16652 10151 RDPRI 10052 | 10766 RDSEL 10364,13406 | 5066 RDSYS 5105, 5111, 5114 | 7701 RDWRT 7352, 7367 | 10407 RE1.5 10447 7333 READ. 6265 | 17310 RECRD 31072,31127,15750,16271,16321,16574,16654,16735,16764,17026,17311,22337,22402,22632,22653,22657 | 7414 REDCT 7135,12437,13453 | 1000 REINT 6500,10157,10277,10524 | 22206 REJSW 22320 22320 REJXR 22745 | 10370 RELES 7353,10530 | 20000 RESER 6500, 6503, 6750, 6765, 7016, 7063, 7155, 7214, 7223, 7455, 7471, 7500 | 60000 RESOP 6500, 7011, 7120 | 3 REWOP 7257,10760,13424,15602 17276 RGLOC | 6612 RGORG 11136 | 1 RHIST 6500,10161 | 15624 RIBSW 16630 | 12512 ROTAT 12453,12470,12476 6537 ROUTE 6252, 6254, 6256, 6260, 6262, 6264, 6266, 6270, 6272, 6274, 6276, 6300, 6302, 6304 | 4 RUNOP 12560,10760,12436,14404,14557 | 7744 RW1.4 7762 | 7752 RW2.1 7750 | 7763 RW2.3 7756,10115 1 LISTING OF 12/01/64 PAGE 35 | POST PROCESSOR ASSEMBLY DATA | | 7774 RW4.5 7764 | 15126 RWL1D 15060 15127 RWL2D 15062 | 22321 SAVXR | 6573 SCE21 6557 | 6575 SCE22 6566, 6570 | 6604 SCE23 6571 6557 SCEOT 11577,12325,30261,30422,30443 | 15033 SCHLS 15051 | 2 SDNHP 10760 | 1 SDNLP 10760 | 11543 SELCT 11535,11542 11376 SELM1 12633,12665 | 11567 SELM2 11663,12575,12630 | 11405 SELM3 11627 | 11630 SELM4 11576,11625,11626,11660 | 11604 SELM5 11647 5502 SELM6 5466 | 5503 SELM7 5474 | 5504 SELM8 5476 | 5461 SELMI 5432 | 5452 SELP1 5441, 5451 5454 SELP2 5427, 5465, 5467, 5471, 5500 | 5455 SELP3 5430 | 5457 SELP4 5435 | 5460 SELP5 5443 | 5433 SELPL 6352 SENSE 6513, 6610 | 11754 SEOFI 11555 | 7640 SEQEX 10252,14352,14364 | 31333 SEQNO 31174,31202 | 15042 SERSW 14461,14463,14465,14526,14531 6262 SET10 6254, 6260 | 6273 SET20 6244 | 6275 SET30 6245, 6272, 6306, 6314 | 6276 SET40 6263 | 6277 SET50 6264 6300 SET61 6253 | 6301 SET62 6257 | 6302 SET63 6261 | 6244 SETUP 6621, 7745,10010,10476 | 4701 SEVEN 30031 SEVER 6500, 7157 | 31217 SFEOF 31150 | 31213 SFERR 31150,31171,31200 | 17301 SFLOC 30746,30771,31077,21541,21663,21675,22067,22165,22637,22642,22666,22674,22703,22710,22713 | 7155 SH4.1 7142, 7152,13565 15015 SKSEL 14745 | 14736 SKXWT 14770,15123 | 1 SLDEN 0,13437 | 73000 SORTT 11146,17650 | 72777 SPARE 17656 SPDEF 13416 | 5031 START 5077, 100 | 6304 STASH | 1 LISTING OF 12/01/64 PAGE 36 | POST PROCESSOR ASSEMBLY DATA | 21400 STEPP | 5033 STOBJ 6643,30713 | 723 STOPD 0 | 14017 STORE 13654 13255 STSH1 13172 | 13264 STSH2 13262 | 13312 STSH3 13257 | 13315 STSH4 13313 | 13322 STSH5 13317,13341 13327 STSH6 13324 | 13342 STSH7 13331 | 22003 SUMRY | 12670 SVDID 12666,12672,12733 | 200 SWATT 6500, 6503, 6733, 7034, 7037, 7045, 7054, 7062, 7100, 7211, 7306, 7401 72657 SWTCH 6706, 7005, 7141,30656,30667,30737,15661,15673,15675,15714,15732,15754,16004,16266,16370,16406,16556 | 16741,16767,16774,17013,17050,17067,17107,17135,23355 | 2 SWTCP 0, 6360, 6574, 6602 | 10236 SY5.6 10301 | 10251 SY7.1 7642,10241,10267 10263 SY7.5 10255 | 10267 SY7.6 10254 | 10270 SY7.7 10240 | 10274 SY8.1 10170 | 10273 SY8.2 10167 10302 SY9.3 10624,10640,10677 | 12372 SYEOT 10660 | 10167 SYNCR 7354,10332,14363 | 10154 SYNCT 7351,10212,10214,11253,11260,11262,11301 | 4752 SYSRD 5075, 6674,11124,11134,13126,30714,17646,17653 5653 T8690 5741 | 5666 T8790 5661 | 5674 T8840 5664 | 5703 T9010 5657, 5675 | 5707 T9050 5756, 5762 5721 T9160 5711 | 5727 T9220 5717, 6003 | 5730 T9230 5746 | 5742 T9290 5632, 5642, 5646 | 5743 T9300 5652 5736 T9310 5653 | 5745 T9350 5727, 5764 | 5747 T9370 5704 | 5757 T9450 5753 | 5763 T9490 5750 5765 T9510 5701 | 6004 T9670 5702, 6002 | 6013 T9740 6006 | 72703 TBLTL 30322,30324,30640,30641,30642,31111,31116,31125,31126,16137,16142,16146,16153,16164,16277,16304,16315 | 16316,16320,16324,16326,16613,16620,16631,16634,16635,17563,17570,17576,17600,17603,17614,17615 10463 TCHAN 10375,10407,10533 | 13120 TCHEX 6541, 6604, 6605, 7633, 7662, 7676,10142,10143 | 7676 TCHOC 7663 | 6245 TCJBO 6246 | 15351 TCKIN 14327 0 TESTP 7246,10760,12464,14046 | 1 LISTING OF 12/01/64 PAGE 37 | POST PROCESSOR ASSEMBLY DATA | | 4675 THREE 7044,21121,21553,22015 20642 TO702 | 20777 TO709 | 20213 TOBCD 31005,31014,20177,22133,23036,23045,23052,23064,23073,23100,23107,23116,23123,23134,23331,23336,23344 | 23375,23402,23407,23416 | 17747 TOBIN 31254 22052 TOFRM | 7453 TOKBB 10623,13323,13342 | 7454 TOKBF 10353,10676 | 15621 TPMSK 31115,16303,16617,17567,22403,22606,23030 | 15425 TPROF 14331 10536 TR1.1 10426 | 15114 TRAIL 15073 | 6347 TRANS 7702, 7715, 7734, 7735, 7753,10002,10015,10021,10071 | 735 TRAPS 0, 6536, 6571, 7024, 7407,10207,10343,10363,10445,10505,10575,10715,11016,11130,11245,12424,13144 | 13252 734 TRAPX 0, 5412 | 11750 TRKRC 12041,12257 | 14301 TRPCH 13672 | 742 TRPSW 0 | 10527 TRUNC 7370,11320,13170,13216,13264,13310,13536 6675 TSXR1 6665 | 6020 TT001 5643, 5647, 5660, 5710, 5730, 5752, 6005 | 6021 TT010 5644, 5650, 5732, 5734 | 6022 TT020 5674, 5765 | 6023 TT030 5651, 5735 6024 TT040 5754 | 6025 TT050 5761, 5767, 6015, 6047, 6070, 6072,10101,10104 | 6030 TT060 6067 | 6031 TT070 5671, 5672,10064 | 6045 TT071 10071 6046 TT072 10077 | 6047 TT080 5705 | 6050 TT090 6024, 6071 | 6051 TT100 5770, 5777, 6016 | 6067 TT120 5663 6071 TT140 6010 | 6073 TT160 5706, 5716, 5755 | 6074 TT170 5713, 5714 | 6075 TT180 5655, 5707, 5772 | 6076 TT190 5721 6077 TT191 5712 | 4722 TTOCT 7051 | 16072 TYPER 31123,16312,16626,17575,22411,22614 | 21440 U0060 21433 | 21457 U0210 21462 21463 U0240 21442,21461 | 21464 U0250 21443 | 21475 U0560 21500 | 21501 U0600 21476,21477 | 21511 U0670 21506 21514 U0700 21504 | 21521 U0750 21511 | 21524 U0780 21532 | 21530 U0820 21512 | 1 LISTING OF 12/01/64 PAGE 38 POST PROCESSOR ASSEMBLY DATA | | 21533 U0850 21466,21524 | 21534 U0860 21467 | 21572 U1084 21545 21576 U1090 21560,21562,21563 | 21614 U1154 21546 | 21620 U1160 21601,21605 | 21623 U1190 | 21625 U1210 21643 21636 U1300 21631 | 21637 U1310 21630 | 21644 U1360 21621 | 21646 U1440 21536,21575,21617 | 21647 U1450 21537 21650 U1455 21540 | 21700 U2050 21703 | 21704 U2090 21702 | 21705 U2100 21701 | 21713 U2160 21710 21742 U2460 21750 | 21751 U2600 21743,21766 | 21757 U2730 21673 | 21760 U2740 21674 | 21762 U2760 21726 21664 U3100 21667 | 21670 U3200 21652 | 21671 U3210 21653 | 21767 U3500 21475,21507,21700,21711 | 21770 U3510 21513,21715,21724 21771 U3520 21515,21522,21727,21740 | 21772 U3530 21717,21755,21762,21763 | 21773 U3540 21556,21577 | 21774 U3550 21713,21737,21746,21754 | 21775 U3560 21731,21732 21776 U3570 21721,21751,21765 | 21777 U3580 21543,21550,22006,22012 | 22000 U3590 21570,21612,22025 | 22001 U3600 21552,21571,21613,22014,22026 | 22002 U3610 21554,21566,21610,22016 22023 U5060 22046 | 22027 U5073 22010 | 22042 U5150 22034 | 22047 U5210 22003,22032 | 22050 U5220 22004 11220 UB1.1 11225 | 11246 UB3.2 11247 | 11253 UB3.3 11255 | 11255 UB4.1 11276 | 11274 UB4.2 11266 11306 UB6.3 11314 | 4364 UBLOK 5037, 5164,13021 | 4711 UCOMD 5250, 7750 | 111 UCWAV 0 | 14175 UMASK 14154,14157 11321 UNBF1 11322 | 11321 UNBF2 11326 | 1 LISTING OF 12/01/64 PAGE 39 | POST PROCESSOR ASSEMBLY DATA | 11212 UNBFI 7134,13366,13445 | 11317 UNBFO 7162,13371,13447 | 4364 UNBLK 15257,15260,15261,15263 | 11327 UNBO2 11317 | 7517 UNMNT 7154,12440 7650 URREX 10272 | 22177 VALLO | 7 WEFOP 7166,10760,12401,13426,13443,14662,14776 | 6266 WRITE 15743,16725,16730 | 15124 WRL2D 15063 14756 WRLAB 14623,14666,14714 | 15062 WRLBD 14762,15144 | 10763 WRSEL 10607,11150 | 10760 WRSLH 10532 | 15250 XCPT2 15046 12635 XCPT3 12631 | 13112 XCPTP 10222 | 10 XECNT 6500,10005,10041,10136,10421 | 22225 Y0050 22222,22232,22237,22241,22253,22255 | 22226 Y0060 22236,22252 22232 Y0100 | 22233 Y0105 22254 | 22234 Y0110 22224 | 22240 Y0150 22233 | 22243 Y0180 22250,22310 22252 Y0240 22227 | 22255 Y0270 22247 | 22304 Y0300 | 72452 Y0302 22305 | 72453 Y0304 22307 22310 Y0310 22251 | 72454 Y1001 22223,22240 | 72455 Y1002 6664,22213,22234,22256 | 22312 Y1003 22242,22245 | 22313 Y1004 22244 22314 Y1005 22210,22262,22264 | 22315 Y1006 | 22316 Y1007 22277,22301,22302 | 22317 Y1008 22207,22304,22306 | 22354 Y2063 22333 22365 Y2078 22327,22332,22360,22373 | 22367 Y2090 22321,22427 | 22370 Y2100 22322,22430 | 22371 Y2110 22323,22431 | 22373 Y2130 22366 22376 Y2139 22326,22425 | 22412 Y2250 22406 | 22425 Y2352 22375 | 22427 Y2360 22416,22424 | 22433 Y2400 22374 22434 Y2401 22350,22732 | 22435 Y2402 22344,22347 | 22443 Y3200 22440 | 22511 Y4280 22466,22507 | 22512 Y4300 22453,22501 1 LISTING OF 12/01/64 PAGE 40 | POST PROCESSOR ASSEMBLY DATA | | 22514 Y4320 22464,22500 | 22515 Y4330 22474,22475,22477 22516 Y4500 22503 | 22560 Y5240 22524,22546 | 22561 Y5250 22525 | 22562 Y5260 22526 | 22570 Y5307 22565 22572 Y5320 22564,22567 | 22603 Y6010 31073,22633,22643,22654,22667,22704,22714 | 22616 Y6110 22603,22611 | 22620 Y6150 31075,22635,22645,22656,22671,22706,22716 | 22624 Y6210 30765,31032 22630 Y6250 22624,22636 | 22632 Y6270 30734,30740,22626 | 22641 Y6410 30756 | 22646 Y6460 22641 | 22650 Y6510 22664 Y6580 22652 | 22672 Y6640 22665 | 22673 Y6650 22650 | 22676 Y6698 22627,22651 | 22677 Y6699 22664,22672,22702 22700 Y6710 | 22707 Y6770 22700 | 22712 Y6810 | 22717 Y6860 22712 | 22721 Y7010 22743 Y7120 22721,22726 | 22744 Y7121 22722 | 22746 Y7190 22742 | 22750 Y7191 22737 | 22751 Y7192 22725 22753 Y7199 22730 | 22754 Y8010 17140 | 22760 Y8020 23145 | 22761 Y8030 22771,23025,23041,23060,23067,23142,23144,23152 | 22763 Y8050 22770 22771 Y8110 23160 | 23076 Y8603 23057 | 23141 Y8733 22760,23157 | 23161 Y8900 22756 | 23167 Y8901 23032,23040,23056,23154,23156 23175 Y8902 23047,23054 | 23203 Y8903 23066,23075,23104 | 23211 Y8904 23102 | 23217 Y8905 23113 | 23225 Y8906 23111 23233 Y8907 23120,23131,23140 | 23241 Y8908 23136 | 23247 Y8909 23153,23155 | 23251 Y8910 22764,22765,23147 | 23252 Y8911 23253 Y8912 | 23254 Y8913 | 23255 Y8914 | 1 LISTING OF 12/01/64 PAGE 41 | POST PROCESSOR ASSEMBLY DATA | 23256 Y8915 | 23257 Y8916 | 23260 Y8917 | 23261 Y8918 23262 Y8919 | 23263 Y8920 | 23264 Y8921 | 23265 Y8922 23022,23114 | 23266 Y8923 23024,23121,23125 23267 Y8924 23020,23023,23132 | 23270 Y8925 22775,23015,23050 | 23271 Y8926 23004,23016,23076 | 23272 Y8927 23013,23017,23105 | 23273 Y8928 23031 23274 Y8929 23130 | 23275 Y9010 23146 | 23301 Y9030 23326 | 23355 Y9440 23426 | 23423 Y9770 23357,23361 23430 Y9901 23340,23353 | 23436 Y9902 23333,23346 | 23444 Y9903 23370,23372,23377,23404,23422 | 23452 Y9904 23411,23420 | 23460 Y9905 23351 23465 Y9906 23350 | 17715 Y9920 23317,23320,23373,23412 | 17741 Y9940 17742,23323,23324,23400,23414 | 23470 Y9945 23305,23306,23327,23341 | 23471 Y9946 23313,23314,23334,23342 17622 Z1000 100,17651,17656 | 17632 Z1080 17623,17625 | 17642 Z1160 17633,17635 | 17652 Z1260 17645 | 17657 Z1410 17643 15576 9PALAB 14553 | 15546 9PAOPN 7260 | 6256 ATTACH 15725 | 6714 ATTCH. 6257 | 6105 B 6105 6100, 6105 14045 BA0381 14016 | 14057 BA0383 14056,14060,14063,14065,14066,14072 | 14073 BA0385 14044 | 14100 BA0386 14042 | 14076 BA0387 14067 14077 BA0388 14071 | 17662 BC009P 10665,30173 | 16243 BC049P | 17664 BC709P 17662,16306,17327 | 4657 BITIND 17606 BLANKZ 13344,13367,13401,16120,16422,16431,17315 | 15756 BLAST2 | 15757 BLAST3 15752,15755 | 15772 BLAST5 14456 | 16002 BLAST6 15773 16011 BLAST7 15774 | 1 LISTING OF 12/01/64 PAGE 42 | POST PROCESSOR ASSEMBLY DATA | | 16022 BLAST8 15775 200 BLKSEQ 6500,10237,10543,10553,10560,10717,11521,11777,15313,15500 | 4764 BSFSYS 5100, 5106 | 4771 BSRSYS | 20206 CHBCD1 20175 | 20205 CHBCD2 20202 14252 CHPRDO 14202 | 13626 CK1CK2 13621 | 4532 CKPTAP 10405,15652,17042 | 100 CKSUMS 6500,10253,10577,15313,15476 | 5641 CLIST1 5631 6701 CLOSE. 6261 | 32156 CNTTBL 30037,30331 | 12141 COMADL 11071,11075 | 31002 COMP10 30775 | 31026 COMP20 31020 31031 COMP30 30763 | 31035 COMP40 30767,31033 | 31040 COMP70 31003 | 31041 COMP71 31011 | 31042 COMP75 31017,31021 31043 COMP80 31023 | 31050 COMP81 | 31053 COMP82 31025 | 31056 COMP83 31007,31016,31027 | 31061 COMP84 31036 6565 COMXIT 7041, 7213, 7637,10055,13156,13164,13204,13233,13311,13321,13357,13361,13375,13431,13444,13455,13460 | 6303 CONVRT 5301, 5325 | 6340 CPFILE 7275,13626 | 1 CPYHLD 6500,13174,13202,13227,13232 | 30166 CVR010 10514 30216 CVR015 30206 | 30225 CVR020 30211,30214,30217,30236 | 30237 CVR030 30230 | 30262 CVR040 30260,30427 | 30275 CVR050 30273,30530 30321 CVR060 30317 | 30335 CVR070 30333 | 30366 CVR090 30272 | 30401 CVR100 30271 | 30410 CVR110 30365,30400,30407 30430 CVR120 30270 | 30444 CVR130 30442 | 30500 CVR200 30245,30503 | 30510 CVR220 | 30512 CVR230 30507,30553,30571,30603,30615,30620 30515 CVR235 30514 | 30530 CVR240 30346,30526 | 30554 CVR250 30525 | 30572 CVR260 30524 | 30604 CVR270 30550,30566,30600 30616 CVR275 30604,30611 | 30621 CVR300 30523 | 30625 CVR310 | 30630 CVR320 30624,30627 | 1 LISTING OF 12/01/64 PAGE 43 POST PROCESSOR ASSEMBLY DATA | | 30637 CVR400 30451,30636 | 30670 CVR410 | 30062 CVRD10 30112 30076 CVRD20 30073 | 30115 CVRD30 30056,30057,30060,30107 | 30122 CVRRD2 30071,30351 | 30131 CVRRD3 30077 | 30140 CVRRD4 30070,30505,30622 30141 CVRRD5 30114 | 30147 CVRRD6 30063 | 30000 CVRS02 30166 | 30001 CVRS03 30232 | 30006 CVRS04 30246,30506 30007 CVRS05 30430,30623 | 30026 CVRS06 30257,30420,30441,30501,30513,30634 | 30027 CVRS07 30302,30313 | 30030 CVRS08 30311,30330 | 30031 CVRS09 30323,30337 30032 CVRS10 30306,30321 | 30033 CVRS11 30325,30335 | 226 CVRS12 30034,30317 | 1130 CVRS13 30034,30333 | 30034 CVRS16 30355,30370,30403,30424,30544,30562,30574 30035 CVRS17 30445,30631 | 30036 CVRS18 30637 | 30037 CVRS19 30643 | 30040 CVRS20 30654,30665 | 30041 CVRS21 30663 30042 CVRS22 30672,30676,30705,30707 | 30043 CVRS23 30671,30675,30703 | 30044 CVRS24 30700,30710 | 30045 CVRS30 30350,30362 | 30046 CVRS31 30363 30047 CVRS32 30342,30531 | 30050 CVRS33 30343 | 30051 CVRS34 30537 | 30052 CVRS35 | 30053 CVRS36 30374,30555 30054 CVRS37 30375,30556 | 30055 CVRS38 30534 | 13754 DCYLER 13630,13633 | 6252 DEFINE 15702 | 6612 DEFIN. 6253 13513 DESTRY 13506,13564 | 2 DETACH 6500, 7153, 7221 | 30463 DICER1 30455,30457 | 30467 DICER2 30452 | 30471 DICER5 30454 30472 DICER6 30456,30460 | 30473 DICER7 30462 | 30452 DICERR 30510,30551,30567,30601,30616,30625 | 30150 DICREC 30035,30067,30101,30147,30234,30240,30275,30276,30307,30326,30341,30344,30352,30353,30357,30361,30364 | 30366,30372,30373,30376,30401,30405,30410,30464,30532,30535,30540,30542,30554,30557,30560,30572,30605 31222,31244,31250,31274,31331 | 30121 DICTRT 30076,30226,30263,30516 | 1 LISTING OF 12/01/64 PAGE 44 | POST PROCESSOR ASSEMBLY DATA | 4407 DISCIN 4764, 4771, 4776, 5004, 5110, 7706, 7710 | 10367 DISCON 10323,11213,12620,13534 | 16036 DKERR1 16033 | 13663 DKERR2 | 13677 DKERR3 13701 13701 DKERR4 16035 | 13705 DKERR5 13677 | 14702 DLABEL 14632 | 12730 DNDNOP 13040 | 12725 DNDSEL 12720,13013,13020,13024 12010 DRWRS1 11773,12000 | 12100 DRWRS2 12073 | 16062 DSCAL1 13654 | 13071 DSELM1 13063,13067,13101 | 13714 DTAGIN 13722 13707 DUCBCH 16551 | 23636 DXIFPF 6700,10024 | 12175 ENDLIS 11064,11065,11072,11073,11126 | 6317 ENDMG1 6315 | 6314 ENDMSG 6246 11132 ENDTRK 6533 | 10726 ENTHLD 10431,10605 | 44400 EOBITS 6500,10417 | 100 EOBXIT 6500,10053,10101 | 6475 EORIOC 6457 4654 FCBORG 6724,13337 | 11672 FINREC 11563 | 4406 FPRGSW 10055,10551,10765,16200,16561,16676,17644 | 100000 FREEUP 6500,10614,10667,10724 | 4776 FSFSYS 11122,11123,11133 5012 FSRIOC 5001, 5007 | 5004 FSRSYS 5101,11137,11152,17652 | 104 IBKEYS 0 | 4746 IBSBSR 10240 | 105 IBSSWS 0 4750 IBSXEC 5202, 7602 | 4747 IBSYST | 13623 IN1IN2 13606 | 4706 IN1POS | 4376 IN9PAC 7573, 7576, 7742, 7743 742 INTRAP 0,10504 | 34436 IOBUFR 30044 | 134 .CHEXI | 135 .MODSW | 5100 JOBEN1 5065, 5107 5110 JOBEN2 5061 | 5132 JOBEN3 5057, 5060, 5064, 5104 | 5133 JOBEN4 5063, 5103 | 5055 JOBEN6 5035 | 5034 JOBEND 4446, 6316 4655 JOBTYP 6644,10015,10500,10541,10704,11077 | 14321 LABRT1 14410 | 14322 LABRT2 14340,14503 | 14323 LABRT3 14563 | 14324 LABRT4 14665,14713 1 LISTING OF 12/01/64 PAGE 45 | POST PROCESSOR ASSEMBLY DATA | | 14325 LABRT5 14315,14621,15613 | 12105 LCOMAD 11064,11071,11072,11075,12265 5076 LD9PAC 10260 | 13323 LDRBON 11162 | 6337 LFLBLK 13636,13752 | 14532 LH14.5 14534 | 3777 LOADER 4000 14621 LOO2.3 14575,14601,14554,14622 | 14642 LOO2.5 | 14646 LOO2.6 14633,14653 | 14634 LOO2.8 14631 | 5136 LOST01 4000 5154 LOST10 5135 | 5174 LOST20 5163 | 5211 LOSTM1 5143, 5151, 5153 | 5217 LOSTM2 5156 | 5223 LOSTM3 5157 5231 LOSTM4 5160 | 5205 LOSTS1 5134, 5136 | 5206 LOSTS2 5137 | 5207 LOSTS3 5140 | 5210 LOSTS4 5141 4661 LSTIND | 4377 LUNBLK 5034, 5036, 5054, 5161, 5162, 5173, 7611,10663,15247,30171 | 4723 L(15D) 14754,15230,15324 | 4716 L(377) 10152,10201,10231,10455,10512 | 4717 L(400) 10461,13333 4743 L(465) 11707,12243,12246,12253 | 13113 L(64D) 12534,15331 | 4736 L(DWRC 12202 | 6357 MONEOF 10327 | 6476 MONEOR 6452 6506 NEOTBT 10657 | 10000 NINHIB 6500, 6504, 7630,10345,11313,12501,13411,13452 | 1 NOEOFM 6500, 6503, 7163 | 6560 NOPXIT 7344, 7362, 7365 | 3 NOREOF 6500,10171 30010 NUDICT 30026,30247,30251,30254,30411,30425,30431,30433,30436,30466,30504,30533,30536,30541,30546,30565,30577 | 30606,30621 | 6244 OBJECT 30716,60056,17655 | 14302 ONETRP 13675,13702 | 15561 OP69P2 15554 15566 OP69P3 15546,15551,15553,15555 | 15570 OP69P4 15552 | 15571 OP69P5 15557,15563 | 15572 OP69P6 15561 | 15573 OP69P7 15567 40004 OPNEOF 6500, 7341 | 40004 OPNEOT 6500, 7207 | 13624 OU1OU2 13615 | 3000 OUTPUT 14454, 6500, 6510, 6545, 7127, 7132, 7260, 7272, 7312, 7315, 7343, 7360, 7363, 7435, 7536,10741,11047 | 11167,13261,13364,13404,13434,13440,13466,13532,13544,13630,15573 12607 PCHFIL 10472,10475 | 4660 PCHIND 10470,10474 | 10457 POOLRD 10404,10436,13222 | 1 LISTING OF 12/01/64 PAGE 46 | POST PROCESSOR ASSEMBLY DATA | 13625 PP1PP2 13617 | 31 PRIBTS 6500,10156 | 20 RDSWIT 6500, 7333,10051,10106,10370,10400,10420,10425,10527 | 5301 RDWR08 5246 5303 RDWR10 5272 | 5315 RDWR20 5306, 5313 | 5332 RDWR70 5323, 5324 | 5334 RDWR75 5322, 5331 | 5337 RDWR80 5277, 5300, 5302, 5333 5346 RDWR87 5255 | 5347 RDWR88 5256 | 5350 RDWR89 5257 | 5255 RD(WR) 5000, 5006, 5247, 5662, 5715, 6007, 6370, 6422, 6465, 7252,10172,11574,12314,12322,12423,12451,12647 | 30062,30212,30256,30417,30440,30444,30500,30512,30630,30633,31217,31241,31265,15560 32156 RECTBL 30036,30312,30315 | 31501 REDAOL 5077, 7737,11126,11136,11162 | 2000 REMOVE 14176,14425,16511 | 4000 RESERV 14176,14243,16673,16734,16741 | 4 RETAIN 6500,13505,13563 6 REWNUN 6500, 7151,13023 | 4410 RGSMTP 10670,10770,10773,11037,11040,11043,11044,11047,11050,11056,11130 | 15545 SAVORG 11142 | 31241 SCEOF2 31300 | 31265 SCEOF3 31304 31271 SCEOF4 31247,31261,31263 | 31305 SCES01 31223,31245 | 31306 SCES02 31251 | 31307 SCES03 31224 | 31310 SCES04 31311 SCES05 31246 | 31312 SCES06 30655,30666 | 31316 SCES10 31235,31237 | 31323 SCES11 | 31326 SCES12 31272 31331 SCES20 31220,31242,31266 | 31334 SCESRN 31256,31264,31303 | 40 SEARCH 6500,14416 | 40000 SECOND 13453,13516,13520,14176,16501,16562,16571,16727,16741 | 11005 SEL1.6 11034 SEL2.4 11030 | 11035 SEL2.5 11025 | 11055 SEL2.6 11043,11125 | 11044 SEL2.7 11124 | 11122 SEL2.8 11116 11073 SEL2.9 11101 | 11065 SEL3.1 11063,11071,11111 | 11126 SEL3.2 11070,11142 | 11077 SEL3.3 11127 | 11147 SEL5.6 11144,11151,11165 11151 SEL5.8 10764,11143 | 11161 SEL5.9 | 5427 SELECT 5357 | 5501 SELM59 5461 | 5472 SELMI2 5464 6474 SETDEN 6374, 6436, 6464 | 1 LISTING OF 12/01/64 PAGE 47 | POST PROCESSOR ASSEMBLY DATA | | 31231 SFEOF1 31225 31101 SFINPT 31066 | 31140 SFNB10 31214,31215,31270 | 31151 SFNB20 31152,31216 | 31154 SFNB25 31002,31157,31172,31203 | 31172 SFNB30 31167 31201 SFNB40 31176 | 31206 SFNB50 31137 | 31210 SFNB60 31170 | 31211 SFNB61 31177 | 31212 SFNB62 31173 31137 SFNEWB 31106 | 31070 SFRD01 31065,31076 | 31072 SFRD02 31067 | 31065 SFREAD 30742,30761 | 5115 SGNOFF 7374,10231 4705 SP1IND | 13150 STASH. 6305 | 5252 STNEX1 5237, 5243 | 5254 STNEX2 5242 | 5237 STNEXT 5154 5015 STZLP1 5023 | 5024 STZLP2 5014, 5022 | 5013 STZLUP 4760 | 5030 STZRET 4757, 5013, 5025 | 7572 SUMMIT 10261,10601 6356 SWITCD 12506 | 12433 SWITCH 6551,10331,12405,14353,14510,14670 | 10313 SY10.1 10314 | 10322 SY10.2 10324 | 101 SYDATE 0 10000 SYMBOL 14176,14241,16721,16727 | 4531 SYMTAP 5055, 5240, 5266, 5414, 5514, 5521, 5554, 5611, 6246, 6352, 6365, 6373, 6403, 6406, 6417, 6421, 6426 | 6435, 6440, 6441, 6444, 6461, 6477, 6502, 6562, 6711, 6742, 6746, 6760, 6777, 7003, 7701, 7702, 7713 | 7715, 7721, 7724,10007,10326,10343,10366,10400,10424,10457,10467,10515,10547,10552,10553,10554,10570 | 10675,10700,10717,10720,10721,10722,10723,10724,10726,10727,10731,10734,10737,10742,10750,10752,10760 10764,10774,11052,11054,11065,11112,11131,11147,12406,12411,12432,30167,30175,30177,30210,30216,30243 | 30670,30674,30702,31231,15550,17624,17634 | 122 SYSACC | 114 SYSCEM | 155 SYSCK1 13626 156 SYSCK2 13626 | 120 SYSCOR 7735 | 144 SYSCRD | 102 SYSCUR 4754, 5142 | 124 SYSCYD 101 SYSDAT 0,10067,10106,10132 | 115 SYSDMP 5177,11141 | 77777 SYSEND | 132 SYSGET 5203, 7603,10241,10250,10263 | 117 SYSIDR 7360, 7605,10252 151 SYSIN1 13623 | 152 SYSIN2 13623 | 116 SYSIOX | 133 SYSJOB 5072, 5074, 5201, 7577,10242,10245 | 1 LISTING OF 12/01/64 PAGE 48 POST PROCESSOR ASSEMBLY DATA | | 104 SYSKEY 0 | 140 SYSLB1 7567,13623,13624,13625,13626 | 141 SYSLB2 142 SYSLB3 | 143 SYSLB4 | 121 SYSLDR 4761 | 3720 SYSORG | 147 SYSOU1 10605,13624 150 SYSOU2 10607,13624 | 146 SYSPCH | 123 SYSPID | 106 SYSPOS 7566 | 153 SYSPP1 13625 154 SYSPP2 13625 | 145 SYSPRT | 4763 SYSRD1 4752 | 4761 SYSRD2 4755, 5027 | 103 SYSRET 0, 5117 113 SYSRPT 10246 | 126 SYSSLD | 105 SYSSWS 0 | 127 SYSTCH | 100 SYSTRA 100 131 SYSTWT 12101,12121,12155,12211,12245,13105,15160 | 111 SYSUAV 0, 7612, 7614, 7616, 7641,15203,15233 | 110 SYSUBC 13705,14245,14457,14517,14525,14535,14542,14543,14571,14615,14670,15021,15041,15075,15121,16633,14106 | 14133 | 112 SYSUCW 7621,14002,14004,14371,15213,15300,13655,13657,13663,13664 107 SYSUNI 5550, 7652, 7655, 7716,11466,11472,13775,14047,15273,15311, 6375, 6377, 6402, 6403 | 157 SYSUT1 | 160 SYSUT2 | 161 SYSUT3 | 162 SYSUT4 714 SYUNCV 0, 7566 | 4656 TAPIND | 11125 TEMIND 11035,11044,11057 | 30736 TEXT10 30717 | 30737 TEXT20 30721 30740 TEXT30 30733 | 10453 TOCLOS 11173,11275 | 10451 TOPOOL 11464 | 6351 TPOS01 | 6353 TPOS02 6361 TPOS03 6354 | 6365 TPOS04 | 6370 TPOS05 | 6371 TPOS06 6346 | 6373 TPOS07 6360, 6364, 6367, 6445 6375 TPOS10 6342, 6414 | 6376 TPOS11 6343, 6355, 6361 | 6377 TPOS12 6344 | 6401 TPOS20 6350 | 6403 TPOS21 6406 TPOS22 6425 | 6423 TPOS23 6404 | 1 LISTING OF 12/01/64 PAGE 49 | POST PROCESSOR ASSEMBLY DATA | 6426 TPOS30 6402 | 6446 TPOS50 6363,10757 | 6447 TPOS51 6401 | 6450 TPOS52 10572 | 6451 TPOS53 6474 6452 TPOS54 6411, 6431 | 6453 TPOS55 6371, 6423 | 6454 TPOS56 6366 | 6455 TPOS57 6357 | 6456 TPOS58 6405, 6412 6342 TPOSIT 11114,11116,11120,11572,12310,12312,17626,17636 | 17660 UNITA1 17656,17662 | 17656 UNITAS 10664,30172 | 7360 WRITE. 6267 | 702 (ACTIV 0, 5413, 6442 703 (ACTVX 11005,12777 | 720 (BCD5R 5150,31234,16442,16444 | 721 (BCD5X 0,15434 | 741 (CHPSW 0,13775,14114 | 724 (CHXAC 14110 750 (CHXSP | 717 (CKWAT 14066,14206 | 746 (COMMD | 736 (COMMM 0 | 722 (CVPRT 0,16447 716 (DECVA 15751,16331, 7427,11716,12045,12761,15121,17125 | 715 (DECVD 16323, 7424, 7432,15360,15430 | 710 (ENBSW | 732 (ETTXI 14076 | 743 (FDAMT 11725,12056,12767,15134 747 (IBCDZ | 740 (IOXSI 0,11430,12645,12647 | 737 (LTPOS 0 | 704 (NDATA 5520, 6444, 7245,12463,14045 | 705 (NDSLX 12553,12557,11206,12667,15601 712 (PAUSE 0, 5174, 5607, 6572, 7134, 7365,10267,12546,17665,30235,31240,14247,16041,16077,16473 | 711 (PAWSX 0,15776 | 706 (PROUT 0, 7762,11203,15753,14244 | 707 (PUNCH | 727 (RCHXI 5434, 5453, 6467, 6470,11507,11544,11763,12103,13077,13100,14072,15025,15140,15141 726 (RCTXI 5450, 6471,12571,15016 | 744 (SDCXI | 745 (STCXI | 723 (STOPD 0 | 713 (STOPX 0 714 (SYMUN 0, 5557, 6565,12531,16316 | 730 (TCOXI 14065 | 733 (TEFXI 14100 | 735 (TRAPS 0,13674,13756,13776,14161,14166 | 734 (TRAPX 0,13703,13757,14132,14162 731 (TRCXI 14063 | 742 (TRPSW 0 | 725 (URRXI 11376,11512,11571,11764,12545 | 1 LISTING OF 12/01/64 PAGE 50 | POST PROCESSOR ASSEMBLY DATA | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 *7090-PR-924 7090/7094 9PAC PROCESSOR REPORTS GENERATOR RG000000 * FAP RG000010 1 LISTING OF 12/01/64 PAGE 1 | | ABS RG000030 | SST RG000040 | | | | | | | | | * 7090/7094 9PAC PROCESSOR - REPORTS GENERATOR RG000070 * OPERATING WITH THE IBSYS PROCESSOR (729) RG000080 | * PROGRAM NUMBER 7090-PR-924 RG000090 | * VERSION 4, MODIFICATION LEVEL 0 RG000100 | 1 LISTING OF 12/01/64 PAGE 2 | COMMUNICATIONS REQION FOR CENTRAL I/O | 073000 RGFXD BOOL 73000 RG000120 | 004621 CARD BOOL 04621 RG000130 | 004447 DATE BOOL 04447 RG000140 | 006246 IOCS BOOL 6246 RG000150 004000 LOST BOOL 04000 RG000160 | 004712 BCOMD BOOL 04712 RG000170 | 005630 CLIST BOOL 5630 RG000180 | 005134 DDEAD BOOL 5134 RG000190 | 005526 EOTSW BOOL 5526 RG000200 004350 FIL00 BOOL 04350 RG000210 | 005646 FLIST BOOL 5646 RG000220 | 004662 IND01 BOOL 04662 RG000230 | 006553 KME70 BOOL 6553 RG000240 | 004672 LZERO BOOL 04672 RG000250 005505 NDSRT BOOL 5505 RG000260 | 005642 NLIST BOOL 5642 RG000270 | 004400 OBJL1 BOOL 04400 RG000280 | 006612 RGORG BOOL 6612 RG000290 | 006557 SCEOT BOOL 6557 RG000300 005033 STOBJ BOOL 5033 RG000310 | 004752 SYSRD BOOL 4752 RG000320 | 006245 TCJBO BOOL 6245 RG000330 | 004657 BITIND BOOL 04657 RG000340 | 004764 BSFSYS BOOL 4764 RG000350 004771 BSRSYS BOOL 4771 RG000360 | 004406 FPRGSW BOOL 04406 RG000370 | 004776 FSFSYS BOOL 4776 RG000380 | 005004 FSRSYS BOOL 5004 RG000390 | 004655 JOBTYP BOOL 04655 RG000400 004661 LSTIND BOOL 04661 RG000410 | 004660 PCHIND BOOL 04660 RG000420 | 005255 RD(WR) BOOL 5255 RG000430 | 004410 RGSMTP BOOL 04410 RG000440 | 006474 SETDEN BOOL 6474 RG000450 005115 SGNOFF BOOL 5115 RG000460 | 005013 STZLUP BOOL 5013 RG000470 | 004531 SYMTAP BOOL 04531 RG000480 | 006342 TPOSIT BOOL 6342 RG000490 | 017551 DEXIF BOOL 17551 RG000500 017005 EOJOB BOOL 17005 RG000510 | 016174 INPUT BOOL 16174 RG000520 | 017334 NEWRD BOOL 17334 RG000530 | 016555 OUTPT BOOL 16555 RG000540 | 017404 RDCNT BOOL 17404 RG000550 017310 RECRD BOOL 17310 RG000560 | 016057 INOUT BOOL 16057 RG000570 | 002326 INOUTZ BOOL 02326 RG000580 | 00706 MWR EQU (PROUT RG000590 | 00117 SYSACT EQU SYSIDR RG000600 04663 IND02 EQU IND01+1 RG000610 | 04664 IND03 EQU IND01+2 RG000620 | 04401 OBJL2 EQU OBJL1+1 RG000630 | 04402 OBJL3 EQU OBJL1+2 RG000640 | 04403 OBJL4 EQU OBJL1+3 RG000650 04404 OBJL5 EQU OBJL1+4 RG000660 | 1 LISTING OF 12/01/64 PAGE 3 | COMMUNICATIONS REQION FOR CENTRAL I/O | | 04405 OBJL6 EQU OBJL1+5 RG000670 06252 DEFINE EQU IOCS+4 RG000680 | 06254 JOIN EQU IOCS+6 RG000690 | 06256 ATTACH EQU IOCS+8 RG000700 | 06260 CLOSE EQU IOCS+10 RG000710 | 06262 OPEN EQU IOCS+12 RG000720 06264 READ EQU IOCS+14 RG000730 | 06266 WRITE EQU IOCS+16 RG000740 | 06270 COPY EQU IOCS+18 RG000750 | 06272 REW EQU IOCS+20 RG000760 | 06274 WEF EQU IOCS+22 RG000770 06276 BSR EQU IOCS+24 RG000780 | 06300 BSF EQU IOCS+26 RG000790 | 06302 CKPT EQU IOCS+28 RG000800 | 06304 STASH EQU IOCS+30 RG000810 | * RG000820 04350 FILE00 EQU FIL00 LOCATIONS OF FILE CONTROL BLOCKS RG000830 | 04334 FILE01 EQU FILE00-12 * RG000840 | 04320 FILE02 EQU FILE01-12 * RG000850 | 04304 FILE03 EQU FILE02-12 * RG000860 | 04270 FILE04 EQU FILE03-12 * RG000870 04254 FILE05 EQU FILE04-12 * RG000880 | 04240 FILE06 EQU FILE05-12 * RG000890 | 04224 FILE07 EQU FILE06-12 * RG000900 | 04210 FILE08 EQU FILE07-12 * RG000910 | 04174 FILE09 EQU FILE08-12 RG000920 04160 FILE10 EQU FILE09-12 * RG000930 | 04144 FILE11 EQU FILE10-12 * RG000940 | 04130 FILE12 EQU FILE11-12 * RG000950 | 04114 FILE13 EQU FILE12-12 * RG000960 | 04100 FILE14 EQU FILE13-12 * RG000970 04064 FILE15 EQU FILE14-12 * RG000980 | 04050 FILE16 EQU FILE15-12 * RG000990 | 04034 FILE17 EQU FILE16-12 * RG001000 | 04020 FILE18 EQU FILE17-12 * RG001010 | 04004 FILE19 EQU FILE18-12 * RG001020 1 LISTING OF 12/01/64 PAGE 4 | FIXED OBJECT PROGRAM 9PAC13 | | 73000 ORG RGFXD FOR RG FIXED RG001050 | 73000 114721230103 BCI 1,9PAC13 FILE1 RECORD 3 RG001060 73001 512726316724 BCI 1,RGFIXD RG001070 | 00100 ORG SYSTRA RG001080 | 00100 0020 00 0 73002 TRA FX000 RG001090 | 73002 ORG RGFXD+2 RG001100 | 73002 0074 00 4 04752 FX000 TSX SYSRD,4 GET COMMON FIXED OBJECT RG001110 73003 114721230104 BCI 1,9PAC14 RG001120 | 73004 0 11304 0 17551 PZE DEXIF,,DEXIF-TCJBO RG001130 | 73005 0 00000 0 00000 BINBUF PZE OBJECT PROGRAM BINARY BUFFER RG001140 | 73023 BCDBUF BES 13 OBJECT PROGRAM BCD BUFFER RG001150 | 73023 0 00000 0 00000 PZE * RG001160 * SUBROUTINE TO CHANGE SIGN OF BCD VALUE RG001170 | 73024 0441 00 0 73023 BCDCHS LDI BCDBUF RG001180 | 73025 0056 00 000052 RNT 52 TEST FOR MINUS ZERO RG001190 | 73026 0020 00 0 73032 TRA *+4 RG001200 | 73027 0057 00 000077 RIR 77 YES, CHANGE TO 00 RG001210 73030 0604 00 0 73023 STI BCDBUF RG001220 | 73031 0020 00 4 00001 TRA 1,4 RG001230 | 73032 0054 00 000077 RFT 77 TEST FOR PLUS ZERO RG001240 | 73033 0020 00 0 73037 TRA *+4 RG001250 | 73034 0055 00 000052 SIR 52 YES, CHANGE TO 52 RG001260 73035 0604 00 0 73023 STI BCDBUF RG001270 | 73036 0020 00 4 00001 TRA 1,4 RG001280 | 73037 0051 00 000040 IIR 40 NON ZERO LOW ORDER DIGIT RG001290 | 73040 0604 00 0 73023 STI BCDBUF RG001300 | 73041 0020 00 4 00001 TRA 1,4 RG001310 * RG001320 | * SUB R AREA REMAINS IN CORE . USED AT OBJECT TIME ONLU RG001330 | * NEW BINBCD SUBR USES FAP TO ASSEMBLE RG001340 | * RG001350 | 73042 0600 00 0 73022 BINBCD STZ BCDBUF-1 RG001360 73043 0500 00 0 73005 CLA BINBUF RG001370 | 73044 0100 00 0 73105 TZE CONV2 RG001380 | 73045 0560 00 0 04672 LDQ LZERO RG001390 | 73046 0131 00 0 00000 XCA RG001400 | 73047 0221 00 0 73107 DVP CONV3 RG001410 73050 0601 00 0 73110 STO CONV4 RG001420 | 73051 0131 00 0 00000 XCA RG001430 | 73052 0100 00 0 73062 TZE CONV1 RG001440 | 73053 -0765 00 0 00022 LGR 18 RG001450 | 73054 0754 00 0 00000 PXA 0,0 RG001460 73055 -0114 01 0 73170 CAQ TABLEC,,1 RG001470 | 73056 -0114 01 0 73270 CAQ TABLED,,1 RG001480 | 73057 -0114 01 0 73370 CAQ TABLEE,,1 RG001490 | 73060 0114 06 0 73120 CVR TABL2,,6 RG001500 | 73061 0602 00 0 73022 SLW BCDBUF-1 RG001510 73062 0560 00 0 73110 CONV1 LDQ CONV4 RG001520 | 73063 -0763 00 0 00014 LGL 12 RG001530 | 73064 0754 00 0 00000 PXA 0,0 RG001540 | 73065 -0114 01 0 73114 CAQ TABLES,,1 RG001550 | 73066 -0114 01 0 73170 CAQ TABLEC,,1 RG001560 73067 -0114 01 0 73270 CAQ TABLED,,1 RG001570 | 73070 -0114 01 0 73370 CAQ TABLEE,,1 RG001580 | 73071 0114 06 0 73120 CVR TABL2,,6 RG001590 | 1 LISTING OF 12/01/64 PAGE 5 | FIXED OBJECT PROGRAM 9PAC13 | 73072 0602 00 0 73023 SLW BCDBUF RG001600 | 73073 0500 00 0 73005 CLA BINBUF RG001610 | 73074 0120 00 4 00001 TPL 1,4 RG001620 | 73075 -0500 00 0 73023 CAL BCDBUF RG001630 73076 -0320 00 0 73111 ANA CONV5 RG001640 | 73077 -0100 00 0 73102 TNZ *+3 RG001650 | 73100 -0500 00 0 73112 CAL CONV6 RG001660 | 73101 -0602 00 0 73023 ORS BCDBUF RG001670 | 73102 -0500 00 0 73113 CAL CONV7 RG001680 73103 -0602 00 0 73023 ORS BCDBUF RG001690 | 73104 0020 00 4 00001 TRA 1,4 RG001700 | 73105 0600 00 0 73023 CONV2 STZ BCDBUF RG001710 | 73106 0020 00 4 00001 TRA 1,4 RG001720 | 73107 +000003641100 CONV3 DEC 1000000 RG001730 73110 0 00000 0 00000 CONV4 PZE RG001740 | 73111 +000000000077 CONV5 OCT 77 RG001750 | 73112 +000000000012 CONV6 OCT 12 RG001760 | 73113 +000000000040 CONV7 OCT 40 RG001770 | * RG001780 * RG001790 | 73114 0 00000 0 00000 TABLES PZE 0 RG001800 | 73115 020602010404 BCI 1,262144 RG001810 | 73116 050204021010 BCI 1,524288 RG001820 | 73117 071006040302 BCI 1,786432 RG001830 73120 DUP 1,10 RG001840 | 73120 000000073120 TABL2 VFD 6/*-TABL2,30/TABL2 RG001850 | 73121 010000073120 | 73122 020000073120 | 73123 030000073120 73124 040000073120 | 73125 050000073120 | 73126 060000073120 | 73127 070000073120 | 73130 100000073120 73131 110000073120 | 73132 DUP 1,10 RG001860 | 73132 000000073121 VFD 6/*-TABL2-10,30/TABL2+1 RG001870 | 73133 010000073121 | 73134 020000073121 73135 030000073121 | 73136 040000073121 | 73137 050000073121 | 73140 060000073121 | 73141 070000073121 73142 100000073121 | 73143 110000073121 | 73144 DUP 1,10 RG001880 | 73144 000000073122 VFD 6/*-TABL2-20,30/TABL2+2 RG001890 | 73145 010000073122 73146 020000073122 | 73147 030000073122 | 73150 040000073122 | 73151 050000073122 | 73152 060000073122 73153 070000073122 | 1 LISTING OF 12/01/64 PAGE 6 | FIXED OBJECT PROGRAM 9PAC13 | | 73154 100000073122 73155 110000073122 | 73156 DUP 1,10 RG001900 | 73156 000000073123 VFD 6/*-TABL2-30,30/TABL2+3 RG001910 | 73157 010000073123 | 73160 020000073123 73161 030000073123 | 73162 040000073123 | 73163 050000073123 | 73164 060000073123 | 73165 070000073123 73166 100000073123 | 73167 110000073123 | 73170 000000000000 TABLEC BCI 8,000000004096008192012288016384020480024576028672 RG001920 | 73171 000004001106 | 73172 000010011102 73173 000102021010 | 73174 000106031004 | 73175 000200041000 | 73176 000204050706 | 73177 000210060702 73200 000302070610 BCI 8,032768036864040960045056049152053248057344061440 RG001930 | 73201 000306100604 | 73202 000400110600 | 73203 000405000506 | 73204 000411010502 73205 000503020410 | 73206 000507030404 | 73207 000601040400 | 73210 000605050306 BCI 8,065536069632073728077824081920086016090112094208 RG001940 | 73211 000611060302 73212 000703070210 | 73213 000707100204 | 73214 001001110200 | 73215 001006000106 | 73216 001100010102 73217 001104020010 | 73220 001110030004 BCI 8,098304102400106496110592114688118784122880126976 RG001950 | 73221 010002040000 | 73222 010006041106 | 73223 010100051102 73224 010104061010 | 73225 010110071004 | 73226 010202101000 | 73227 010206110706 | 73230 010301000702 BCI 8,131072135168139264143360147456151552155648159744 RG001960 73231 010305010610 | 73232 010311020604 | 73233 010403030600 | 73234 010407040506 | 73235 010501050502 73236 010505060410 | 73237 010511070404 | 73240 010603100400 BCI 8,163840167936172032176128180224184320188416192512 RG001970 | 73241 010607110306 | 1 LISTING OF 12/01/64 PAGE 7 FIXED OBJECT PROGRAM 9PAC13 | | 73242 010702000302 | 73243 010706010210 | 73244 011000020204 73245 011004030200 | 73246 011010040106 | 73247 011102050102 | 73250 011106060010 BCI 8,196608200704204800208896212992217088221184225280 RG001980 | 73251 020000070004 73252 020004100000 | 73253 020010101106 | 73254 020102111102 | 73255 020107001010 | 73256 020201011004 73257 020205021000 | 73260 020211030706 BCI 8,229376233472237568241664245760249856253952258048 RG001990 | 73261 020303040702 | 73262 020307050610 | 73263 020401060604 73264 020405070600 | 73265 020411100506 | 73266 020503110502 | 73267 020510000410 | 73270 000000000000 TABLED BCI 8,000000000064000128000192000256000320000384000448 RG002000 73271 000000000604 | 73272 000000010210 | 73273 000000011102 | 73274 000000020506 | 73275 000000030200 73276 000000031004 | 73277 000000040410 | 73300 000000050102 BCI 8,000512000576000640000704000768000832000896000960 RG002010 | 73301 000000050706 | 73302 000000060400 73303 000000070004 | 73304 000000070610 | 73305 000000100302 | 73306 000000101106 | 73307 000000110600 73310 000001000204 BCI 8,001024001088001152001216001280001344001408001472 RG002020 | 73311 000001001010 | 73312 000001010502 | 73313 000001020106 | 73314 000001021000 73315 000001030404 | 73316 000001040010 | 73317 000001040702 | 73320 000001050306 BCI 8,001536001600001664001728001792001856001920001984 RG002030 | 73321 000001060000 73322 000001060604 | 73323 000001070210 | 73324 000001071102 | 73325 000001100506 | 73326 000001110200 73327 000001111004 | 73330 000002000410 BCI 8,002048002112002176002240002304002368002432002496 RG002040 | 1 LISTING OF 12/01/64 PAGE 8 | FIXED OBJECT PROGRAM 9PAC13 | 73331 000002010102 | 73332 000002010706 | 73333 000002020400 | 73334 000002030004 | 73335 000002030610 73336 000002040302 | 73337 000002041106 | 73340 000002050600 BCI 8,002560002624002688002752002816002880002944003008 RG002050 | 73341 000002060204 | 73342 000002061010 73343 000002070502 | 73344 000002100106 | 73345 000002101000 | 73346 000002110404 | 73347 000003000010 73350 000003000702 BCI 8,003072003136003200003264003328003392003456003520 RG002060 | 73351 000003010306 | 73352 000003020000 | 73353 000003020604 | 73354 000003030210 73355 000003031102 | 73356 000003040506 | 73357 000003050200 | 73360 000003051004 BCI 8,003584003648003712003776003840003904003968004032 RG002070 | 73361 000003060410 73362 000003070102 | 73363 000003070706 | 73364 000003100400 | 73365 000003110004 | 73366 000003110610 73367 000004000302 | 73370 000000000000 TABLEE BCI 8,000000000001000002000003000004000005000006000007 RG002080 | 73371 000000000001 | 73372 000000000002 | 73373 000000000003 73374 000000000004 | 73375 000000000005 | 73376 000000000006 | 73377 000000000007 | 73400 000000000010 BCI 8,000008000009000010000011000012000013000014000015 RG002090 73401 000000000011 | 73402 000000000100 | 73403 000000000101 | 73404 000000000102 | 73405 000000000103 73406 000000000104 | 73407 000000000105 | 73410 000000000106 BCI 8,000016000017000018000019000020000021000022000023 RG002100 | 73411 000000000107 | 73412 000000000110 73413 000000000111 | 73414 000000000200 | 73415 000000000201 | 73416 000000000202 | 73417 000000000203 1 LISTING OF 12/01/64 PAGE 9 | FIXED OBJECT PROGRAM 9PAC13 | | 73420 000000000204 BCI 8,000024000025000026000027000028000029000030000031 RG002110 | 73421 000000000205 73422 000000000206 | 73423 000000000207 | 73424 000000000210 | 73425 000000000211 | 73426 000000000300 73427 000000000301 | 73430 000000000302 BCI 8,000032000033000034000035000036000037000038000039 RG002120 | 73431 000000000303 | 73432 000000000304 | 73433 000000000305 73434 000000000306 | 73435 000000000307 | 73436 000000000310 | 73437 000000000311 | 73440 000000000400 BCI 8,000040000041000042000043000044000045000046000047 RG002130 73441 000000000401 | 73442 000000000402 | 73443 000000000403 | 73444 000000000404 | 73445 000000000405 73446 000000000406 | 73447 000000000407 | 73450 000000000410 BCI 8,000048000049000050000051000052000053000054000055 RG002140 | 73451 000000000411 | 73452 000000000500 73453 000000000501 | 73454 000000000502 | 73455 000000000503 | 73456 000000000504 | 73457 000000000505 73460 000000000506 BCI 8,000056000057000058000059000060000061000062000063 RG002150 | 73461 000000000507 | 73462 000000000510 | 73463 000000000511 | 73464 000000000600 73465 000000000601 | 73466 000000000602 | 73467 000000000603 | 1 LISTING OF 12/01/64 PAGE 10 | FIXED OBJECT PROGRAM 9PAC13 | 73470 0441 00 0 73023 BCDBIN LDI BCDBUF RG002170 | 73471 -0500 00 0 73540 CAL BCDB05 RG002180 | 73472 0320 00 0 73022 ANS BCDBUF-1 RG002190 | 73473 0320 00 0 73023 ANS BCDBUF RG002200 73474 -0754 00 0 00000 PXD 0,0 RG002210 | 73475 0560 00 0 73023 LDQ BCDBUF RG002220 | 73476 -0114 01 0 73543 CAQ CQTRG,,1 RG002230 | 73477 -0114 01 0 73555 CAQ CQTRG1,,1 RG002240 | 73500 -0114 01 0 73567 CAQ CQTRG2,,1 RG002250 73501 -0114 01 0 73601 CAQ CQTRG3,,1 RG002260 | 73502 -0114 01 0 73613 CAQ CQTRG4,,1 RG002270 | 73503 -0114 01 0 73625 CAQ TBGRG,,1 RG002280 | 73504 0771 00 0 00017 ARS 15 RG002290 | 73505 -0520 00 4 00001 NZT 1,4 RG002300 73506 0020 00 0 73525 TRA BCDB01 RG002310 | 73507 0601 00 0 73005 STO BINBUF RG002320 | 73510 -0754 00 0 00000 PXD 0,0 RG002330 | 73511 0560 00 0 73022 LDQ BCDBUF-1 RG002340 | 73512 -0114 01 0 73543 CAQ CQTRG,,1 RG002350 73513 -0114 01 0 73555 CAQ CQTRG1,,1 RG002360 | 73514 -0114 01 0 73567 CAQ CQTRG2,,1 RG002370 | 73515 -0114 01 0 73601 CAQ CQTRG3,,1 RG002380 | 73516 -0114 01 0 73613 CAQ CQTRG4,,1 RG002390 | 73517 -0114 01 0 73625 CAQ TBGRG,,1 RG002400 73520 0771 00 0 00017 ARS 15 RG002410 | 73521 0131 00 0 00000 XCA RG002420 | 73522 0200 00 0 73541 MPY BCDB07 RG002430 | 73523 0131 00 0 00000 XCA RG002440 | 73524 0400 00 0 73005 ADD BINBUF RG002450 73525 0056 00 000040 BCDB01 RNT 40 RG002460 | 73526 0020 00 0 73536 TRA BCDB03 RG002470 | 73527 0054 00 000020 RFT 20 RG002480 | 73530 0020 00 0 73536 TRA BCDB03 RG002490 | 73531 0131 00 0 00000 XCA RG002500 73532 -0500 00 0 73542 CAL BCDB09 RG002510 | 73533 -0602 00 0 73023 ORS BCDBUF RG002520 | 73534 0131 00 0 00000 XCA RG002530 | 73535 -0760 00 0 00003 SSM RG002540 | 73536 0601 00 0 73005 BCDB03 STO BINBUF RG002550 73537 0020 00 4 00002 TRA 2,4 RG002560 | 73540 +171717171717 BCDB05 OCT 171717171717 RG002570 | 73541 +000003641100 BCDB07 DEC 1000000 RG002580 | 73542 +000000000040 BCDB09 OCT 40 RG002590 | 73543 CQTRG DUP 1,10 RG002600 73543 000000000000 VFD 18/**12500-CQTRG*12500,18/0 RG002610 | 73544 030324000000 | 73545 060650000000 | 73546 111174000000 | 73547 141520000000 73550 172044000000 | 73551 222370000000 | 73552 252714000000 | 73553 303240000000 | 73554 333564000000 73555 CQTRG1 DUP 1,10 RG002620 | 1 LISTING OF 12/01/64 PAGE 11 | FIXED OBJECT PROGRAM 9PAC13 | | 73555 000000000000 VFD 18/**1250-CQTRG1*1250,18/0 RG002630 73556 002342000000 | 73557 004704000000 | 73560 007246000000 | 73561 011610000000 | 73562 014152000000 73563 016514000000 | 73564 021056000000 | 73565 023420000000 | 73566 025762000000 | 73567 CQTRG2 DUP 1,10 RG002640 73567 000000000000 VFD 18/**125-CQTRG2*125,18/0 RG002650 | 73570 000175000000 | 73571 000372000000 | 73572 000567000000 | 73573 000764000000 73574 001161000000 | 73575 001356000000 | 73576 001553000000 | 73577 001750000000 | 73600 002145000000 73601 CQTRG3 DUP 1,10 RG002660 | 73601 000000000000 VFD 21/**100-CQTRG3*100,15/0 RG002670 | 73602 000014400000 | 73603 000031000000 | 73604 000045400000 73605 000062000000 | 73606 000076400000 | 73607 000113000000 | 73610 000127400000 | 73611 000144000000 73612 000160400000 | 73613 CQTRG4 DUP 1,10 RG002680 | 73613 000000000000 VFD 21/**10-CQTRG4*10,15/0 RG002690 | 73614 000001200000 | 73615 000002400000 73616 000003600000 | 73617 000005000000 | 73620 000006200000 | 73621 000007400000 | 73622 000010600000 73623 000012000000 | 73624 000013200000 | 73625 TBGRG DUP 1,10 RG002700 | 73625 000000000000 VFD 21/*-TBGRG,15/0 RG002710 | 73626 000000100000 73627 000000200000 | 73630 000000300000 | 73631 000000400000 | 73632 000000500000 | 73633 000000600000 73634 000000700000 | 73635 000001000000 | 73636 000001100000 | 73637 0 00000 0 00000 PZE 0 RG002720 | 1 LISTING OF 12/01/64 PAGE 12 FIXED OBJECT PROGRAM 9PAC13 | | 73640 0634 00 1 73666 GET003 SXA *+22,1 RG002740 | 73641 0535 00 1 73666 LAC *+21,1 RG002750 | 73642 0634 00 1 73745 SXA GETTMP+1,1 RG002760 73643 -0500 00 4 00002 CAL 2,4 RG002770 | 73644 -0734 00 1 00000 PDX 0,1 RG002780 | 73645 0634 00 1 73663 SXA *+14,1 RG002790 | 73646 -0500 00 4 00001 CAL 1,4 RG002800 | 73647 -0734 00 1 00000 PDX 0,1 RG002810 73650 0634 00 1 73744 SXA GETTMP,1 RG002820 | 73651 0400 00 0 73745 ADD GETTMP+1 RG002830 | 73652 0400 00 0 73744 ADD GETTMP RG002840 | 73653 0621 00 0 73661 STA *+6 RG002850 | 73654 0400 00 0 04673 ADD LZERO+1 RG002860 73655 0621 00 0 73662 STA *+5 RG002870 | 73656 -0500 60 0 73661 CAL* *+3 RG002880 | 73657 -0320 60 4 00002 ANA* 2,4 RG002890 | 73660 0020 00 0 73662 TRA *+2 RG002900 | 73661 -0500 00 1 00000 CAL 0,1 RG002910 73662 0560 00 1 00000 LDQ 0,1 RG002920 | 73663 -0763 00 0 00000 LGL 0 RG002930 | 73664 0602 00 1 73024 SLW BCDBUF+1,1 PUT WORD TO BCD BUFFER RG002940 | 73665 2 00001 1 73661 TIX *-4,1,1 RG002950 | 73666 0774 00 1 00000 AXT 0,1 RG002960 73667 0020 00 4 00003 TRA 3,4 RG002970 | 73670 0634 00 1 73721 GET002 SXA *+25,1 RG002980 | 73671 0535 00 1 73721 LAC *+24,1 RG002990 | 73672 0634 00 1 73745 SXA GETTMP+1,1 RG003000 | 73673 -0500 00 4 00002 CAL 2,4 RG003010 73674 -0734 00 1 00000 PDX 0,1 RG003020 | 73675 0634 00 1 73711 SXA *+12,1 RG003030 | 73676 0634 00 1 73716 SXA *+16,1 RG003040 | 73677 -0500 00 4 00001 CAL 1,4 RG003050 | 73700 -0734 00 1 00000 PDX 0,1 RG003060 73701 0634 00 1 73744 SXA GETTMP,1 RG003070 | 73702 0400 00 0 73745 ADD GETTMP+1 RG003080 | 73703 0400 00 0 73744 ADD GETTMP RG003090 | 73704 0621 00 0 73715 STA *+9 RG003100 | 73705 0402 00 0 04673 SUB LZERO+1 PUT ADDRESS TO CLA RG003110 73706 0621 00 0 73714 STA *+6 RG003120 | 73707 0754 00 0 00000 PXA 0,0 CLEAR ACCUMULATOR RG003130 | 73710 0560 60 0 73715 LDQ* *+5 LOAD LEF WORD RG003140 | 73711 -0763 00 0 00000 LGL 0 RG003150 | 73712 -0320 60 4 00002 ANA* 2,4 MASK OUT LEFTMOST WORD RG003160 73713 0020 00 0 73717 TRA *+4 RG003170 | 73714 -0500 00 1 00000 CAL 0,1 LOAD UP RG003180 | 73715 0560 00 1 00000 LDQ 0,1 * RG003190 | 73716 -0763 00 0 00000 LGL 0 SHIFT RG003200 | 73717 0602 00 1 73024 SLW BCDBUF+1,1 PUT WORD TO BCD BUFFER RG003210 73720 2 00001 1 73714 TIX *-4,1,1 IS THIS LAST WORD OF FIELD RG003220 | 73721 0774 00 1 00000 AXT 0,1 * YES RG003230 | 73722 0020 00 4 00003 TRA 3,4 TRA OUT-ACT RG003240 | 73723 0634 00 1 73742 GET001 SXA *+15,1 RG003250 | 73724 0535 00 1 73742 LAC *+14,1 RG003260 73725 0634 00 1 73745 SXA GETTMP+1,1 SAVE IR 1 RG003270 | 73726 -0500 00 4 00001 CAL 1,4 GET = OF WORDS IN FIELD RG003280 | 1 LISTING OF 12/01/64 PAGE 13 | FIXED OBJECT PROGRAM 9PAC13 | 73727 -0734 00 1 00000 PDX 0,1 * RG003290 | 73730 0634 00 1 73744 SXA GETTMP,1 * RG003300 | 73731 0400 00 0 73744 ADD GETTMP BUILD PICK UP ADDRESS RG003310 | 73732 0400 00 0 73745 ADD GETTMP+1 * RG003320 | 73733 0621 00 0 73737 STA *+4 FIX ADDRESS OF CAL RG003330 73734 -0500 60 0 73737 CAL* *+3 PICK UP RIGHTMOST WORD RG003340 | 73735 -0320 60 4 00002 ANA* 2,4 * MASK IT RG003350 | 73736 0020 00 0 73740 TRA *+2 * RG003360 | 73737 -0500 00 1 00000 CAL 0,1 PICK UP WORD RG003370 | 73740 0602 00 1 73024 SLW BCDBUF+1,1 PUT WORD TO BCD BUFFER RG003380 73741 2 00001 1 73737 TIX *-2,1,1 IS THIS THE LAST WORD RG003390 | 73742 0774 00 1 00000 AXT 0,1 RESTORE IR 1 RG003400 | 73743 0020 00 4 00003 TRA 3,4 TRA OUT RG003410 | 73744 GETTMP BSS 2 TEMPORARY STORAGE RG003420 | * SIGN SUBROUTINE .192MS+VALUE--.384MS-VALUE RG003430 * TSX SIGN,4 RG003440 | * PZE REL. WORD,0,REL CHARACTER RG003450 | 73746 0441 00 0 73023 SIGN LDI BCDBUF TEST FOR NEGATIVE RG003460 | 73747 0056 00 000040 RNT 40 * YES RG003470 | 73750 0020 00 0 73760 TRA SPI014 *NO RG003480 73751 0634 00 4 73757 SXA SPI013,4 SAVE IR4 RG003490 | 73752 -0500 00 4 00001 CAL 1,4 MODIFY ANS**,2 INSTRUCTION RG003500 | 73753 0621 00 0 73756 STA *+3 * RG003510 | 73754 -0734 00 4 00000 PDX 0,4 * RG003520 | 73755 -0500 00 4 73770 CAL HYPTBL,4 INSERT BLANK IN OUTPUT LINE RG003530 73756 0320 00 2 00000 ANS **,2 * RG003540 | 73757 0774 00 4 00000 SPI013 AXT 0,4 RESTORE IR4 RG003550 | 73760 0057 00 000060 SPI014 RIR 60 DELETE SIGN RG003560 | 73761 0604 00 0 73023 STI BCDBUF * RG003570 | 73762 0020 00 4 00002 TRA 2,4 EXIT RG003580 73763 -377777777740 OCT 777777777740 5-REL CHARACTER CODE RG003590 | 73764 -377777774077 OCT 777777774077 4 RG003600 | 73765 -377777407777 OCT 777777407777 3 RG003610 | 73766 -377740777777 OCT 777740777777 2 RG003620 | 73767 -374077777777 OCT 774077777777 1 RG003630 73770 -007777777777 HYPTBL OCT 407777777777 0 RG003640 | * HOUSEKEEPING ROUTINE .168MS MINIMUM .264MS MAXIMUM RG003650 | * TSX HSKPG1,4 FOR ONE WORD HSKPE2,4 FOR TWO WORDS RG003660 | * RG003670 | 73771 0441 00 0 73023 HSKPG1 LDI BCDBUF REMOVE ZONES FROM 1 WORD RG003680 73772 0056 00 000012 RNT 12 * RG003690 | 73773 0020 00 0 73775 TRA *+2 * RG003700 | 73774 0057 00 000017 RIR 17 * RG003710 | 73775 0445 00 0 74000 RIS *+3 * RG003720 | 73776 0604 00 0 73023 STI BCDBUF * RG003730 73777 0020 00 4 00001 TRA 1,4 * RG003740 | 74000 -206060606000 OCT 606060606000 RG003750 | 74001 0441 00 0 73023 HSKPG2 LDI BCDBUF REMOVE ZONE FROM 2 WORDS RG003760 | 74002 0056 00 000012 RNT 12 * RG003770 | 74003 0020 00 0 74005 TRA *+2 * RG003780 74004 0057 00 000017 RIR 17 * RG003790 | 74005 0445 00 0 74000 RIS *-5 RG003800 | 74006 0604 00 0 73023 STI BCDBUF * RG003810 | 74007 -0500 00 0 74012 CAL *+3 * RG003820 | 74010 0320 00 0 73022 ANS BCDBUF-1 * RG003830 1 LISTING OF 12/01/64 PAGE 14 | FIXED OBJECT PROGRAM 9PAC13 | | 74011 0020 00 4 00001 TRA 1,4 * RG003840 | 74012 +171717171717 OCT 171717171717 RG003850 * ZERO ELIMINATION SUBROUTINE .120MS MINIMUM-.180 MAXIMUM RG003860 | * TSX ZELIM1,4 FOR 1 WORD ZELIM2,4 FOR 2 WORDS RG003870 | * PZE LOCATION 1ST INSTRUCTION BEYOND UNLOAD RG003880 | 74013 -0500 00 0 73023 ZELIM1 CAL BCDBUF ZERO ELIMINATION ON 1 WORD RG003890 | 74014 -0320 00 0 74017 ANA *+3 * RG003900 74015 0100 60 4 00001 TZE* 1,4 ZERO,BYPASS UNLOAD RG003910 | 74016 0020 00 4 00002 TRA 2,4 NON ZERO RG003920 | 74017 +171717171717 OCT 171717171717 RG003930 | 74020 -0500 00 0 73022 ZELIM2 CAL BCDBUF-1 ZERO ELIMINATION ON 2 WORDS RG003940 | 74021 -0100 00 4 00002 TNZ 2,4 NON ZERO RG003950 74022 -0500 00 0 73023 CAL BCDBUF RG003960 | 74023 -0320 00 0 74017 ANA *-4 RG003970 | 74024 0100 60 4 00001 TZE* 1,4 ZERO, BYPASS UNLOAD RG003980 | 74025 0020 00 4 00002 TRA 2,4 NON ZERO RG003990 | * SUPPRESS LEADING ZEROS RG004000 * 7CHARACTERS. NO PUNCTUATION RG004010 | 74026 0634 00 1 74036 SPNP7C SXA SPI066,1 * RG004020 | 74027 0560 00 0 73022 LDQ BCDBUF-1 * RG004030 | 74030 -0154 06 1 74250 CRQ NPTBL1,1,6 * RG004040 | 74031 -0600 00 0 74246 STQ INTBUF-1 * RG004050 74032 0560 00 0 73023 LDQ BCDBUF * RG004060 | 74033 3 74255 1 74035 TXH *+2,1,NPTBL * RG004070 | 74034 -0154 06 0 74255 CRQ NPTBL,0,6 * RG004080 | 74035 -0600 00 0 74247 STQ INTBUF * RG004090 | 74036 0774 00 1 00000 SPI066 AXT 0,1 * RG004100 74037 0020 00 4 00001 TRA 1,4 * RG004110 | * SUPPRESS LEADING ZEROS RG004120 | * 8 CHARACTERS. NO PUNCTUATION. RG004130 | 74040 0634 00 1 74050 SPNP8C SXA SPI080,1 * RG004140 | 74041 0560 00 0 73022 LDQ BCDBUF-1 * RG004150 74042 -0154 06 1 74251 CRQ NPTBL2,1,6 * RG004160 | 74043 -0600 00 0 74246 STQ INTBUF-1 * RG004170 | 74044 0560 00 0 73023 LDQ BCDBUF * RG004180 | 74045 3 74255 1 74047 TXH *+2,1,NPTBL * RG004190 | 74046 -0154 06 0 74255 CRQ NPTBL,0,6 * RG004200 74047 -0600 00 0 74247 STQ INTBUF * RG004210 | 74050 0774 00 1 00000 SPI080 AXT 0,1 * RG004220 | 74051 0020 00 4 00001 TRA 1,4 * RG004230 | * SUPPRESS LEADING ZEROS AND INSERT DECIMAL. RG004240 | * 6 CHARACTERS. ONE DECIMAL PLACE. RG004250 74052 0634 00 1 74065 SP1D6C SXA SPI094,1 * RG004260 | 74053 0754 00 0 00000 PXA 0,0 RG004270 | 74054 0560 00 0 73023 LDQ BCDBUF * RG004280 | 74055 -0763 00 0 00006 LGL 6 * RG004290 | 74056 -0130 00 0 00000 XCL * RG004300 74057 -0154 06 1 74250 CRQ NPTBL1,1,6 * RG004310 | 74060 -0600 00 0 74246 SPI089 STQ INTBUF-1 * RG004320 | 74061 -0130 00 0 00000 XCL * RG004330 | 74062 3 74255 1 74067 TXH *+5,1,NPTBL * RG004340 | 74063 -0154 06 0 74307 CRQ PTBL4,0,6 * RG004350 74064 -0600 00 0 74247 STQ INTBUF * RG004360 | 74065 0774 00 1 00000 SPI094 AXT 0,1 * RG004370 | 74066 0020 00 4 00001 TRA 1,4 * RG004380 | 1 LISTING OF 12/01/64 PAGE 15 | FIXED OBJECT PROGRAM 9PAC13 | 74067 -0154 06 0 74535 CRQ PTBL4A,0,6 * RG004390 | 74070 -0600 00 0 74247 STQ INTBUF * RG004400 | 74071 0534 00 1 74065 LXA SPI094,1 * RG004410 | 74072 0020 00 4 00001 TRA 1,4 * RG004420 * SUPPRESS LEADING ZEROS AND INSERT DECIMAL RG004430 | * 7 CHARACTERS, ONE DECIMAL PLACE. RG004440 | 74073 0634 00 1 74065 SP1D7C SXA SPI094,1 * RG004450 | 74074 -0500 00 0 73022 CAL BCDBUF-1 * RG004460 | 74075 0560 00 0 73023 LDQ BCDBUF * RG004470 74076 -0763 00 0 00006 LGL 6 * RG004480 | 74077 -0130 00 0 00000 XCL * RG004490 | 74100 -0154 06 1 74251 CRQ NPTBL2,1,6 * RG004500 | 74101 0020 00 0 74060 TRA SPI089 * RG004510 | * SUPPRESS LEADING ZEROS. INSERT DECIMAL. RG004520 * 8 CHARACTERS. 1 DECIMAL PLACE RG004530 | 74102 0634 00 1 74065 SP1D8C SXA SPI094,1 * RG004540 | 74103 -0500 00 0 73022 CAL BCDBUF-1 * RG004550 | 74104 0560 00 0 73023 LDQ BCDBUF * RG004560 | 74105 -0763 00 0 00006 LGL 6 * RG004570 74106 -0130 00 0 00000 XCL * RG004580 | 74107 -0154 06 1 74252 CRQ NPTBL3,1,6 * RG004590 | 74110 0020 00 0 74060 TRA SPI089 * RG004600 | * SUPPRESS LEADING ZEROS. INSERT DECIMAL RG004610 | * 6 CHARACTERS. 2 DECIMAL PLACES. RG004620 74111 0634 00 1 74124 SP2D6C SXA SPI131,1 * RG004630 | 74112 0754 00 0 00000 PXA 0,0 * RG004640 | 74113 0560 00 0 73023 LDQ BCDBUF * RG004650 | 74114 -0763 00 0 00006 LGL 6 * RG004660 | 74115 -0130 00 0 00000 XCL * RG004670 74116 -0154 06 1 74250 CRQ NPTBL1,1,6 * RG004680 | 74117 -0600 00 0 74246 SPI126 STQ INTBUF-1 * RG004690 | 74120 -0130 00 0 00000 XCL * RG004700 | 74121 3 74255 1 74126 TXH *+5,1,NPTBL * RG004710 | 74122 -0154 06 0 74321 CRQ PTBL3,0,6 * RG004720 74123 -0600 00 0 74247 STQ INTBUF * RG004730 | 74124 0774 00 1 00000 SPI131 AXT 0,1 * RG004740 | 74125 0020 00 4 00001 TRA 1,4 * RG004750 | 74126 -0154 06 0 74547 CRQ PTBL3A,0,6 * RG004760 | 74127 -0600 00 0 74247 STQ INTBUF * RG004770 74130 0534 00 1 74124 LXA SPI131,1 * RG004780 | 74131 0020 00 4 00001 TRA 1,4 * RG004790 | * SUPPRESS LEADING ZEROES AND INSERT DECIMAL RG004800 | * 7 CHARACTERS. TWO DECIMAL PLACES RG004810 | 74132 0634 00 1 74124 SP2D7C SXA SPI131,1 * RG004820 74133 -0500 00 0 73022 CAL BCDBUF-1 * RG004830 | 74134 0560 00 0 73023 LDQ BCDBUF * RG004840 | 74135 -0763 00 0 00006 LGL 6 * RG004850 | 74136 -0130 00 0 00000 XCL * RG004860 | 74137 -0154 06 1 74251 CRQ NPTBL2,1,6 * RG004870 74140 0020 00 0 74117 TRA SPI126 * RG004880 | * SUPPRESS LEADING ZEROS AND INSERT DECIMAL RG004890 | * 8 CHARACTERS. TWO DECIMAL PLACES RG004900 | 74141 0634 00 1 74124 SP2D8C SXA SPI131,1 * RG004910 | 74142 -0500 00 0 73022 CAL BCDBUF-1 * RG004920 74143 0560 00 0 73023 LDQ BCDBUF * RG004930 | 1 LISTING OF 12/01/64 PAGE 16 | FIXED OBJECT PROGRAM 9PAC13 | | 74144 -0763 00 0 00006 LGL 6 * RG004940 74145 -0130 00 0 00000 XCL * RG004950 | 74146 -0154 06 1 74252 CRQ NPTBL3,1,6 * RG004960 | 74147 0020 00 0 74117 TRA SPI126 * RG004970 | * SUPPRESS LEADING ZEROS AND INSERT DECIMAL. RG004980 | * 6 CHARACTERS. THREE DECIMAL PLACES. RG004990 74150 0634 00 1 74163 SP3D6C SXA SPI174,1 * RG005000 | 74151 0754 00 0 00000 PXA 0,0 * RG005010 | 74152 0560 00 0 73023 LDQ BCDBUF * RG005020 | 74153 -0763 00 0 00006 LGL 6 * RG005030 | 74154 -0130 00 0 00000 XCL * RG005040 74155 -0154 06 1 74250 CRQ NPTBL1,1,6 * RG005050 | 74156 -0600 00 0 74246 SPI169 STQ INTBUF-1 * RG005060 | 74157 -0130 00 0 00000 XCL * RG005070 | 74160 3 74255 1 74165 TXH *+5,1,NPTBL * RG005080 | 74161 -0154 06 0 74333 CRQ PTBL2,0,6 * RG005090 74162 -0600 00 0 74247 STQ INTBUF * RG005100 | 74163 0774 00 1 00000 SPI174 AXT 0,1 * RG005110 | 74164 0020 00 4 00001 TRA 1,4 * RG005120 | 74165 -0154 06 0 74561 CRQ PTBL2A,0,6 * RG005130 | 74166 -0600 00 0 74247 STQ INTBUF * RG005140 74167 0534 00 1 74163 LXA SPI174,1 * RG005150 | 74170 0020 00 4 00001 TRA 1,4 * RG005160 | * SUPPRESS LEADING ZEROS AND INSERT DECIMAL. RG005170 | * 7 CHARACTERS. THREE DECIMAL PLACES. RG005180 | 74171 0634 00 1 74163 SP3D7C SXA SPI174,1 * RG005190 74172 -0500 00 0 73022 CAL BCDBUF-1 * RG005200 | 74173 0560 00 0 73023 LDQ BCDBUF * RG005210 | 74174 -0763 00 0 00006 LGL 6 * RG005220 | 74175 -0130 00 0 00000 XCL * RG005230 | 74176 -0154 06 1 74251 CRQ NPTBL2,1,6 * RG005240 74177 0020 00 0 74156 TRA SPI169 * RG005250 | * SUPPRESS LEADING ZEROS. INSERT DECIMAL. RG005260 | * 8 CHARACTERS. THREE DECIMAL PLACES. RG005270 | 74200 0634 00 1 74163 SP3D8C SXA SPI174,1 * RG005280 | 74201 -0500 00 0 73022 CAL BCDBUF-1 * RG005290 74202 0560 00 0 73023 LDQ BCDBUF * RG005300 | 74203 -0763 00 0 00006 LGL 6 * RG005310 | 74204 -0130 00 0 00000 XCL * RG005320 | 74205 -0154 06 1 74252 CRQ NPTBL3,1,6 * RG005330 | 74206 0020 00 0 74156 TRA SPI169 * RG005340 * SUPPRESS LEADING ZEROS. INSERT DECIMAL. RG005350 | * 6 CHARACTERS. FOUR DECIMAL PLACES. RG005360 | 74207 0634 00 1 74222 SP4D6C SXA SPI212,1 * RG005370 | 74210 0754 00 0 00000 PXA 0,0 * RG005380 | 74211 0560 00 0 73023 LDQ BCDBUF * RG005390 74212 -0763 00 0 00006 LGL 6 * RG005400 | 74213 -0130 00 0 00000 XCL * RG005410 | 74214 -0154 06 1 74250 CRQ NPTBL1,1,6 * RG005420 | 74215 -0600 00 0 74246 SPI206 STQ INTBUF-1 * RG005430 | 74216 -0130 00 0 00000 XCL * RG005440 74217 3 74255 1 74224 TXH *+5,1,NPTBL * RG005450 | 74220 -0154 06 0 74345 CRQ PTBL1,0,6 * RG005460 | 74221 -0600 00 0 74247 STQ INTBUF * RG005470 | 74222 0774 00 1 00000 SPI212 AXT 0,1 * RG005480 | 1 LISTING OF 12/01/64 PAGE 17 FIXED OBJECT PROGRAM 9PAC13 | | 74223 0020 00 4 00001 TRA 1,4 * RG005490 | 74224 -0154 06 0 74573 CRQ PTBL1A,0,6 * RG005500 | 74225 -0600 00 0 74247 STQ INTBUF * RG005510 74226 0534 00 1 74222 LXA SPI212,1 * RG005520 | 74227 0020 00 4 00001 TRA 1,4 * RG005530 | * SUPPRESS LEADING ZEROS. INSERT DECIMAL. RG005540 | * 7 CHARACTERS. FOUR DECIMAL PLACES. RG005550 | 74230 0634 00 1 74222 SP4D7C SXA SPI212,1 * RG005560 74231 -0500 00 0 73022 CAL BCDBUF-1 * RG005570 | 74232 0560 00 0 73023 LDQ BCDBUF * RG005580 | 74233 -0763 00 0 00006 LGL 6 * RG005590 | 74234 -0130 00 0 00000 XCL * RG005600 | 74235 -0154 06 1 74251 CRQ NPTBL2,1,6 * RG005610 74236 0020 00 0 74215 TRA SPI206 * RG005620 | * SUPPRESS LEADING ZEROS. INSERT DECIMAL. RG005630 | * 8 CHARACTERS. FOUR DECIMAL PLACES. RG005640 | 74237 0634 00 1 74222 SP4D8C SXA SPI212,1 * RG005650 | 74240 -0500 00 0 73022 CAL BCDBUF-1 * RG005660 74241 0560 00 0 73023 LDQ BCDBUF * RG005670 | 74242 -0763 00 0 00006 LGL 6 * RG005680 | 74243 -0130 00 0 00000 XCL * RG005690 | 74244 -0154 06 1 74252 CRQ NPTBL3,1,6 * RG005700 | 74245 0020 00 0 74215 TRA SPI206 * RG005710 74246 0 00000 0 00000 PZE INTERMEDIATE BUFFER RG005720 | 74247 0 00000 0 00000 INTBUF PZE * RG005730 | 74250 0 00000 0 74251 NPTBL1 PZE NPTBL2 RG005740 | 74251 0 00000 0 74252 NPTBL2 PZE NPTBL3 RG005750 | 74252 0 00000 0 74253 NPTBL3 PZE NPTBL4 RG005760 74253 0 00000 0 74254 NPTBL4 PZE NPTBL5 RG005770 | 74254 0 00000 0 74255 NPTBL5 PZE NPTBL RG005780 | 74255 -2 00000 0 74255 NPTBL SIX NPTBL ZERO TO BLANK RG005790 | 74256 DUP 1,9 RG005800 | 74256 010000074272 VFD 6/*-NPTBL,30/NPTBLB RG005810 74257 020000074272 | 74260 030000074272 | 74261 040000074272 | 74262 050000074272 | 74263 060000074272 74264 070000074272 | 74265 100000074272 | 74266 110000074272 | 74267 -2 00000 0 74272 SIX NPTBLB,, 2/8 TO BLANK RG005820 | 74270 3 40000 0 74272 TXH NPTBLB,,16384 3/8 TO ) RG005830 74271 3 40000 0 74272 TXH NPTBLB,,16384 4/8 TO ) RG005840 | 74272 NPTBLB DUP 1,10 RG005850 | 74272 000000074272 VFD 6/*-NPTBLB,30/NPTBLB RG005860 | 74273 010000074272 | 74274 020000074272 74275 030000074272 | 74276 040000074272 | 74277 050000074272 | 74300 060000074272 | 74301 070000074272 74302 100000074272 | 74303 110000074272 | 1 LISTING OF 12/01/64 PAGE 18 | FIXED OBJECT PROGRAM 9PAC13 | 74304 0 00000 0 74272 PZE NPTBLB 2/8 TO ZERO RG005870 | 74305 3 40000 0 74272 TXH NPTBLB,,16384 3/8 TO ) RG005880 | 74306 3 40000 0 74272 TXH NPTBLB,,16384 4/8 TO ) RG005890 | 74307 -2 00000 0 74321 PTBL4 SIX PTBL3 0 TO BLANK RG005900 | 74310 DUP 1,9 RG005910 74310 010000074547 VFD 6/*-PTBL4,30/PTBL3A RG005920 | 74311 020000074547 | 74312 030000074547 | 74313 040000074547 | 74314 050000074547 74315 060000074547 | 74316 070000074547 | 74317 100000074547 | 74320 110000074547 | 74321 -2 00000 0 74333 PTBL3 SIX PTBL2 ZERO TO BLANK RG005930 74322 DUP 1,9 RG005940 | 74322 010000074561 VFD 6/*-PTBL3,30/PTBL2A RG005950 | 74323 020000074561 | 74324 030000074561 | 74325 040000074561 74326 050000074561 | 74327 060000074561 | 74330 070000074561 | 74331 100000074561 | 74332 110000074561 74333 -2 00000 0 74345 PTBL2 SIX PTBL1 ZERO TO BLANK RG005960 | 74334 DUP 1,9 RG005970 | 74334 010000074573 VFD 6/*-PTBL2,30/PTBL1A RG005980 | 74335 020000074573 | 74336 030000074573 74337 040000074573 | 74340 050000074573 | 74341 060000074573 | 74342 070000074573 | 74343 100000074573 74344 110000074573 | 74345 -2 00000 0 74357 PTBL1 SIX PTBL0 ZERO TO BLANK RG005990 | 74346 DUP 1,9 RG006000 | 74346 010000074357 VFD 6/*-PTBL1,30/PTBL0 RG006010 | 74347 020000074357 74350 030000074357 | 74351 040000074357 | 74352 050000074357 | 74353 060000074357 | 74354 070000074357 74355 100000074357 | 74356 110000074357 | 74357 PTBL0 DUP 1,10 RG006020 | 74357 330000074371 VFD O6/33,30/TBL0+10**-PTBL0*10 RG006030 | 74360 330000074403 74361 330000074415 | 74362 330000074427 | 74363 330000074441 | 74364 330000074453 | 74365 330000074465 1 LISTING OF 12/01/64 PAGE 19 | FIXED OBJECT PROGRAM 9PAC13 | | 74366 330000074477 | 74367 330000074511 74370 330000074523 | * TABLES TO REPLACE EXAMINED CHARACTER RG006040 | * WITH THE PRECEEDING CHARACTER. RG006050 | 74371 TBL0 DUP 1,10 RG006060 | 74371 000000074371 VFD 6/0,30/TBL0+10**-TBL0*10 RG006070 74372 000000074403 | 74373 000000074415 | 74374 000000074427 | 74375 000000074441 | 74376 000000074453 74377 000000074465 | 74400 000000074477 | 74401 000000074511 | 74402 000000074523 | 74403 TBL1 DUP 1,10 RG006080 74403 010000074371 VFD 6/1,30/TBL0+10**-TBL1*10 RG006090 | 74404 010000074403 | 74405 010000074415 | 74406 010000074427 | 74407 010000074441 74410 010000074453 | 74411 010000074465 | 74412 010000074477 | 74413 010000074511 | 74414 010000074523 74415 TBL2 DUP 1,10 RG006100 | 74415 020000074371 VFD 6/2,30/TBL0+10**-TBL2*10 RG006110 | 74416 020000074403 | 74417 020000074415 | 74420 020000074427 74421 020000074441 | 74422 020000074453 | 74423 020000074465 | 74424 020000074477 | 74425 020000074511 74426 020000074523 | 74427 TBL3 DUP 1,10 RG006120 | 74427 030000074371 VFD 6/3,30/TBL0+10**-TBL3*10 RG006130 | 74430 030000074403 | 74431 030000074415 74432 030000074427 | 74433 030000074441 | 74434 030000074453 | 74435 030000074465 | 74436 030000074477 74437 030000074511 | 74440 030000074523 | 74441 TBL4 DUP 1,10 RG006140 | 74441 040000074371 VFD 6/4,30/TBL0+10**-TBL4*10 RG006150 | 74442 040000074403 74443 040000074415 | 74444 040000074427 | 74445 040000074441 | 1 LISTING OF 12/01/64 PAGE 20 | FIXED OBJECT PROGRAM 9PAC13 | 74446 040000074453 | 74447 040000074465 | 74450 040000074477 | 74451 040000074511 74452 040000074523 | 74453 TBL5 DUP 1,10 RG006160 | 74453 050000074371 VFD 6/5,30/TBL0+10**-TBL5*10 RG006170 | 74454 050000074403 | 74455 050000074415 74456 050000074427 | 74457 050000074441 | 74460 050000074453 | 74461 050000074465 | 74462 050000074477 74463 050000074511 | 74464 050000074523 | 74465 TBL6 DUP 1,10 RG006180 | 74465 060000074371 VFD 6/6,30/TBL0+10**-TBL6*10 RG006190 | 74466 060000074403 74467 060000074415 | 74470 060000074427 | 74471 060000074441 | 74472 060000074453 | 74473 060000074465 74474 060000074477 | 74475 060000074511 | 74476 060000074523 | 74477 TBL7 DUP 1,10 RG006200 | 74477 070000074371 VFD 6/7,30/TBL0+10**-TBL7*10 RG006210 74500 070000074403 | 74501 070000074415 | 74502 070000074427 | 74503 070000074441 | 74504 070000074453 74505 070000074465 | 74506 070000074477 | 74507 070000074511 | 74510 070000074523 | 74511 TBL8 DUP 1,10 RG006220 74511 100000074371 VFD 6/8,30/TBL0+10**-TBL8*10 RG006230 | 74512 100000074403 | 74513 100000074415 | 74514 100000074427 | 74515 100000074441 74516 100000074453 | 74517 100000074465 | 74520 100000074477 | 74521 100000074511 | 74522 100000074523 74523 TBL9 DUP 1,10 RG006240 | 74523 110000074371 VFD 6/9,30/TBL0+10**-TBL9*10 RG006250 | 74524 110000074403 | 74525 110000074415 | 74526 110000074427 74527 110000074441 | 1 LISTING OF 12/01/64 PAGE 21 | FIXED OBJECT PROGRAM 9PAC13 | | 74530 110000074453 74531 110000074465 | 74532 110000074477 | 74533 110000074511 | 74534 110000074523 | * TABLES TO REPLACE ZERO WITH ZERO. RG006260 74535 PTBL4A DUP 1,10 RG006270 | 74535 000000074547 VFD 6/*-PTBL4A,30/PTBL3A RG006280 | 74536 010000074547 | 74537 020000074547 | 74540 030000074547 74541 040000074547 | 74542 050000074547 | 74543 060000074547 | 74544 070000074547 | 74545 100000074547 74546 110000074547 | 74547 PTBL3A DUP 1,10 RG006290 | 74547 000000074561 VFD 6/*-PTBL3A,30/PTBL2A RG006300 | 74550 010000074561 | 74551 020000074561 74552 030000074561 | 74553 040000074561 | 74554 050000074561 | 74555 060000074561 | 74556 070000074561 74557 100000074561 | 74560 110000074561 | 74561 PTBL2A DUP 1,10 RG006310 | 74561 000000074573 VFD 6/*-PTBL2A,30/PTBL1A RG006320 | 74562 010000074573 74563 020000074573 | 74564 030000074573 | 74565 040000074573 | 74566 050000074573 | 74567 060000074573 74570 070000074573 | 74571 100000074573 | 74572 110000074573 | 74573 PTBL1A DUP 1,10 RG006330 | 74573 000000074357 VFD 6/*-PTBL1A,30/PTBL0 RG006340 74574 010000074357 | 74575 020000074357 | 74576 030000074357 | 74577 040000074357 | 74600 050000074357 74601 060000074357 | 74602 070000074357 | 74603 100000074357 | 74604 110000074357 | 1 LISTING OF 12/01/64 PAGE 22 FIXED OBJECT PROGRAM 9PAC13 | | * STORE FOR PRINT OBJECT SUBROUTINE RG006360 | * CALL SEQ PLUS ONE BITS S ON IS ONE WORD RG006370 | * 1 ON IS ZERO ELIM RG006380 * 2 ZERO IS ZERO SUPPRESS RG006390 | * 3 ON IS * NOT BLANK RG006400 | * 4-8 LEFT WD INCR-BIN RG006410 | * 9-14 36 MINUS BIT RG006420 | * 15-20 36 MINUS FRAC. WORD RG006430 * 21-35 LEFT DATA WORD RG006440 | * CALL SEQ PLUS TWO BITS S-5 RIGHT PUNCT RG006450 | * 6-11 NEXT RIGHT RG006460 | * 12-17 ETC RG006470 | * 18-23 ETC RG006480 * 24-29 ETC RG006490 | * 30-35 ETC RG006500 | * RG006510 | * RG006520 | 74605 0560 00 4 00001 SP0190 LDQ 1,4 RG006530 74606 0162 00 0 74610 TQP *+2 RG006540 | 74607 0600 00 0 73022 STZ BCDBUF-1 IF 1-6 CHAR FIELD RG006550 | 74610 -0773 00 0 00001 RQL 1 RG006560 | 74611 0162 00 0 74616 TQP *+5 IF NO ZERO ELIMINATION RG006570 | 74612 0520 00 0 73022 ZET BCDBUF-1 RG006580 74613 0020 00 0 74616 TRA *+3 RG006590 | 74614 -0520 00 0 73023 NZT BCDBUF RG006600 | 74615 0020 00 4 00003 TRA 3,4 ZERO FIELD-NO PRINTING RG006610 | 74616 0634 00 1 74770 SXA SP1146,1 RG006620 | 74617 0634 00 2 74771 SXA SP1147,2 RG006630 74620 0634 00 4 74772 SXA SP1148,4 RG006640 | 74621 -0773 00 0 00001 RQL 1 RG006650 | 74622 -0625 00 0 75023 STL SZEROS SET FOR SUPPRESSION RG006660 | 74623 0162 00 0 74625 TQP *+2 IF SUPPRESSION DESIRED RG006670 | 74624 0600 00 0 75023 STZ SZEROS NO ZERO SUPPRESSION RG006680 74625 -0773 00 0 00001 RQL 1 RG006690 | 74626 -0500 00 0 75017 CAL SBLNKR RIGHT CHAR BLANK RG006700 | 74627 0162 00 0 74631 TQP *+2 RG006710 | 74630 -0500 00 0 75016 CAL SASTER RIGHT CHAR * RG006720 | 74631 0602 00 0 75022 SLW SSUPRS SUPPRESSION CHARACTER RG006730 74632 0754 00 0 00000 PXA 0,0 INIT FOR LHPP SLW RG006740 | 74633 0763 00 0 00005 LLS 5 XR2 IS COMP WORD ZERO RG006750 | 74634 0737 00 1 00000 PAC 0,1 OF PRINT LINE RG006760 | 74635 -0634 00 1 74636 SXD *+1,1 RG006770 | 74636 1 00000 2 74637 TXI *+1,2,0 XR2 NOW LHPP SLW COMP RG006780 74637 1 00001 2 74640 TXI *+1,2,1 RG006790 | 74640 0634 00 2 74712 SXA SP0960,2 TO AXT RG006800 | * RG006810 | 74641 0754 00 0 00000 PXA 0,0 INIT AC FOR LHPP SHIFT RG006820 | 74642 0763 00 0 00006 LLS 6 RG006830 74643 0621 00 0 74677 STA SP0760 TO ARS AFTER CAL RG006840 | * RG006850 | 74644 0754 00 0 00000 PXA 0,0 INIT MQ FOR BCD BUFFER RG006860 | 74645 0763 00 0 00006 LLS 6 RG006870 | 74646 0621 00 0 74675 STA SP0730 TO RQL AFTER XEC-LDQ RG006880 * RG006890 | 74647 0763 00 0 00017 LLS 15 RG006900 | 1 LISTING OF 12/01/64 PAGE 23 | FIXED OBJECT PROGRAM 9PAC13 | 74650 0621 00 0 74744 STA SP1240 RG006910 | * RG006920 | 74651 0560 00 4 00002 LDQ 2,4 PUNCTUATION KEY RG006930 | 74652 0774 00 4 77777 AXT -1,4 RG006940 | 74653 0754 00 0 00000 PXA 0,0 RG006950 74654 -0763 00 0 00006 LGL 6 RG006960 | 74655 0100 00 0 74660 TZE *+3 RG006970 | 74656 0621 00 4 75031 STA SAXT04-1,4 RG006980 | 74657 1 00001 4 74653 TXI *-4,4,1 RG006990 | 74660 0634 00 4 74723 SXA SP1060,4 FOR PUNCTUATION TABLE USE RG007000 * RG007010 | 74661 0522 00 4 75032 XEC SAXT04,4 INIT XR4 FOR SUBROUTINE RG007020 | * RG007030 | 74662 0535 00 1 74675 LAC SP0730,1 INIT XRI RG007040 | 74663 1 00044 1 74664 TXI *+1,1,36 RG007050 74664 0441 00 0 73023 LDI BCDBUF RG007060 | 74665 0054 00 000040 RFT 40 RG007070 | 74666 -0625 00 0 75024 STL SNEGSW NEGATIVE FIELD RG007080 | 74667 0057 00 000060 RIR 60 RG007090 | 74670 0056 00 000012 RNT 12 RG007100 74671 0020 00 0 74673 TRA *+2 NOT ZERO CHARACTER RG007110 | 74672 0057 00 000017 RIR 17 MODIFY + OR - ZERO RG007120 | 74673 0604 00 0 73023 STI BCDBUF RG007130 | 74674 0522 00 0 74744 XEC SP1240 INITIALIZE MQ RG007140 | 74675 -0773 00 0 00000 SP0730 RQL 0 RG007150 * RG007160 | 74676 -0500 00 2 00001 CAL 1,2 INIT AC RG007170 | 74677 0771 00 0 00000 SP0760 ARS 0 RG007180 | * RG007190 | 74700 0534 00 2 74677 LXA SP0760,2 INIT XR2 RG007200 * RG007210 | 74701 -0763 00 0 00006 SP0900 LGL 6 RG007220 | 74702 -0520 00 0 75023 NZT SZEROS RG007230 | 74703 0020 00 0 74711 TRA *+6 RG007240 | 74704 0044 00 0 00000 PAI RG007250 74705 0054 00 000077 RFT 77 RG007260 | 74706 0020 00 0 74710 TRA *+2 RG007270 | 74707 0020 00 0 74774 TRA SP1510 RG007280 | 74710 0600 00 0 75023 SP0920 STZ SZEROS RG007290 | * RG007300 74711 2 00006 2 74720 SP0950 TIX SP1030,2,6 RG007310 | 74712 0774 00 2 00000 SP0960 AXT 0,2 RG007320 | 74713 1 77777 2 74714 TXI *+1,2,-1 RG007330 | 74714 0634 00 2 74712 SXA SP0960,2 RG007340 | 74715 0602 00 2 00000 SLW 0,2 RG007350 74716 0754 00 0 00000 PXA 0,0 RG007360 | 74717 0774 00 2 00044 AXT 36,2 RG007370 | * RG007380 | 74720 2 00003 4 74736 SP1030 TIX SP1180,4,3 TIME FOR PUNCTUATION RG007390 | 74721 0767 00 0 00006 ALS 6 YES, INSERT IT RG007400 74722 -0501 00 4 75022 ORA SSUPRS,4 RG007410 | 74723 0774 00 4 00000 SP1060 AXT **,4 RG007420 | 74724 1 77777 4 74725 TXI *+1,4,-1 GET NEXT PUNCTUATION RG007430 | 74725 0634 00 4 74723 SXA SP1060,4 RG007440 | 74726 0522 00 4 75032 XEC SAXT04,4 RG007450 1 LISTING OF 12/01/64 PAGE 24 | FIXED OBJECT PROGRAM 9PAC13 | | 74727 2 00006 2 74736 TIX SP1180,2,6 IS OUTPUT WORD FULL RG007460 | 74730 0534 00 2 74712 LXA SP0960,2 YES, INSERT INTO LINE RG007470 74731 1 77777 2 74732 TXI *+1,2,-1 RG007480 | 74732 0634 00 2 74712 SXA SP0960,2 RG007490 | 74733 0602 00 2 00000 SLW 0,2 RG007500 | 74734 0754 00 0 00000 PXA 0,0 RG007510 | 74735 0774 00 2 00044 AXT 36,2 INITIALIZE CHARACTER COUNTER RG007520 * RG007530 | 74736 2 00006 1 74701 SP1180 TIX SP0900,1,6 IS INPUT WORD USED UP RG007540 | 74737 0534 00 1 74744 LXA SP1240,1 YES, WAS THIS LAST WORD RG007550 | 74740 1 00001 1 74741 TXI *+1,1,1 RG007560 | 74741 3 73023 1 74746 TXH SP1130,1,BCDBUF YES, TEST FOR SIGN RG007570 74742 0634 00 1 74744 SXA SP1240,1 NO, GET NEXT WORD RG007580 | 74743 0774 00 1 00044 AXT 36,1 INITIALIZE CHARACTER COUNTER RG007590 | 74744 0560 00 0 00000 SP1240 LDQ ** LOCATION OF INPUT WORD RG007600 | 74745 0020 00 0 74701 TRA SP0900 RG007610 | * RG007620 74746 -0520 00 0 75024 SP1130 NZT SNEGSW RG007630 | 74747 0020 00 0 74760 TRA SP1400 RG007640 | 74750 0600 00 0 75024 STZ SNEGSW RG007650 | 74751 -0130 00 0 00000 XCL RG007660 | 74752 -0500 00 0 75015 CAL SHYPHR RG007670 74753 -0602 00 0 73023 ORS BCDBUF RG007680 | 74754 -0130 00 0 00000 XCL RG007690 | 74755 0767 00 0 00006 ALS 6 RG007700 | 74756 -0501 00 0 75015 ORA SHYPHR RG007710 | 74757 1 77772 2 74760 TXI *+1,2,-6 RG007720 74760 0534 00 1 74712 SP1400 LXA SP0960,1 RG007730 | 74761 1 77777 1 74762 TXI *+1,1,-1 RG007740 | 74762 0634 00 2 74766 SXA *+4,2 RG007750 | 74763 1 77734 2 74764 TXI *+1,2,-36 RG007760 | 74764 0560 00 1 00000 LDQ 0,1 RG007770 74765 -0773 00 2 00000 RQL 0,2 RG007780 | 74766 -0763 00 0 00000 LGL 0 RG007790 | 74767 0602 00 1 00000 SLW 0,1 RG007800 | 74770 0774 00 1 00000 SP1146 AXT 0,1 RG007810 | 74771 0774 00 2 00000 SP1147 AXT 0,2 RG007820 74772 0774 00 4 00000 SP1148 AXT 0,4 RG007830 | 74773 0020 00 4 00003 TRA 3,4 RG007840 | * RG007850 | 74774 -0501 00 0 75022 SP1510 ORA SSUPRS RG007860 | 74775 -3 00001 4 74710 TXL SP0920,4,1 RG007870 * RG007880 | 74776 2 00006 2 75005 TIX SP1630,2,6 RG007890 | 74777 0534 00 2 74712 LXA SP0960,2 RG007900 | 75000 1 77777 2 75001 TXI *+1,2,-1 RG007910 | 75001 0634 00 2 74712 SXA SP0960,2 RG007920 75002 0602 00 2 00000 SLW 0,2 RG007930 | 75003 0754 00 0 00000 PXA 0,0 RG007940 | 75004 0774 00 2 00044 AXT 36,2 RG007950 | * RG007960 | 75005 3 00003 4 74720 SP1630 TXH SP1030,4,3 RG007970 75006 0767 00 0 00006 ALS 6 RG007980 | 75007 -0501 00 0 75022 ORA SSUPRS RG007990 | 75010 0534 00 4 74723 LXA SP1060,4 RG008000 | 1 LISTING OF 12/01/64 PAGE 25 | FIXED OBJECT PROGRAM 9PAC13 | 75011 1 77777 4 75012 TXI *+1,4,-1 RG008010 | 75012 0634 00 4 74723 SXA SP1060,4 RG008020 | 75013 0522 00 4 75032 XEC SAXT04,4 RG008030 | 75014 1 00003 4 74711 TXI SP0950,4,3 RG008040 * RG008050 | * RG008060 | * STORAGE-CONSTANTS-SWITCHES RG008070 | * RG008080 | 75015 000000000040 SHYPHR BCI 1,00000- RG008090 75016 000000000054 SASTER BCI 1,00000* RG008100 | 75017 000000000060 SBLNKR BCI 1,00000 RG008110 | 75020 000000000073 BCI 1,00000, RG008120 | 75021 000000000033 SPUNCT BCI 1,00000. RG008130 | 75022 000000000000 SSUPRS BCI 1,000000 SUPPRESSION CHARACTER RG008140 75023 0 00000 0 00000 SZEROS PZE 0 IF NOT ZERO SUPPRESS ZEROES RG008150 | 75024 0 00000 0 00000 SNEGSW PZE 0 IF NOT ZERO A NEGATIVE FIELD RG008160 | 75025 0774 00 4 00000 AXT 0,4 PUNCTUATION TIMING TABLE RG008170 | 75026 0774 00 4 00000 AXT 0,4 TO BE XEC OPERATED RG008180 | 75027 0774 00 4 00000 AXT 0,4 RG008190 75030 0774 00 4 00000 AXT 0,4 RG008200 | 75031 0774 00 4 00000 AXT 0,4 RG008210 | 75032 0774 00 4 00000 SAXT04 AXT 0,4 RG008220 | 75033 0774 00 4 77774 AXT -4,4 RG008230 | 75034 0774 00 4 77774 AXT -4,4 RG008240 * RG FIXED END OF JOB ROUTINE RG008250 | 75035 0761 00 0 00000 RGEOJ NOP RG008260 | 75036 0774 00 1 00024 AXT 20,1 CONVERT RECORD COUNTS RG008270 | 75037 0441 00 1 72660 RGE20 LDI SWTCH+1,1 RG008280 | 75040 -0056 00 110000 LNT 110000 TEST FOR RG FILE RG008290 75041 0020 00 0 75047 TRA RGE90 NO RG008300 | 75042 0500 00 1 17405 CLA RDCNT+1,1 YES RG008310 | 75043 0601 00 0 73005 STO BINBUF RG008320 | 75044 0074 00 4 73042 TSX BINBCD,4 RG008330 | 75045 -0500 00 0 73023 CAL BCDBUF RG008340 75046 0602 00 1 17405 SLW RDCNT+1,1 RG008350 | 75047 2 00001 1 75037 RGE90 TIX RGE20,1,1 LOOP FOR ALL UNITS RG008360 | 75050 0020 00 0 17005 TRA EOJOB RG008370 | * RG008380 | * SUBROUTINE TO WRITE EOJ LOGICAL COUNTS RG008390 * CALLING SEQUENCE RG008400 | * TSX TZZPRT,1 RG008410 | * PZE RN,,RT RN=REPORT NUMBER RT=RECORD TYPE RG008420 | * PZE A A=ADDRESS OF RECORD COUNT RG008430 | * RG008440 75051 0520 00 0 75105 TZZPRT ZET TZZ903 FIRST TIME RG008450 | 75052 0020 00 0 75057 TRA *+5 NO RG008460 | 75053 -0625 00 0 75105 STL TZZ903 YES. EJECT, PRINT HEADING RG008470 | 75054 0074 00 4 05630 TSX CLIST,4 RG008480 | 75055 -3 00000 2 00000 SVN 0,2 EJECT RG008490 75056 2 00006 0 75106 PTW TZZ904,,6 HEADING LINE FOR RECORD COUNTS RG008500 | 75057 -0500 00 1 00001 CAL 1,1 BUILD EOJ MESSAGE RG008510 | 75060 0621 00 0 75075 STA TZZ900+1 RG008520 | 75061 0622 00 0 75104 STD TZZ902 RG008530 | 75062 -0500 60 1 00002 CAL* 2,1 GET RECORD COUNT RG008540 75063 0601 00 0 73005 STO BINBUF RG008550 | 1 LISTING OF 12/01/64 PAGE 26 | FIXED OBJECT PROGRAM 9PAC13 | | 75064 0074 00 4 73042 TSX BINBCD,4 RG008560 75065 -0774 00 2 75077 AXC TZZ901,2 RG008570 | 75066 0074 00 4 74605 TSX SP0190,4 RG008580 | 75067 0 00440 0 73023 PZE BCDBUF,,288 RG008590 | 75070 +050000000000 OCT 050000000000 RG008600 | 75071 0074 00 4 05630 TSX CLIST,4 RG008610 75072 0 00011 2 75074 PZE TZZ900,2,9 RG008620 | 75073 0020 00 1 00003 TRA 3,1 RETURN RG008630 | 75074 606060512547 TZZ900 BCI 3, REPORT XX USES RG008640 | 75075 465163606767 | 75076 606462256260 75077 606060606060 TZZ901 BCI 1, RG008650 | 75100 606051252346 BCI 4, RECORDS OF RECORD TYPE RG008660 | 75101 512462604626 | 75102 605125234651 | 75103 246063704725 75104 606060606060 TZZ902 BCI 1, RG008670 | 75105 0 00000 0 00000 TZZ903 PZE 0 ONE TIME SWITCH RG008680 | 75106 605125474651 TZZ904 BCI 6, REPORTS GENERATOR RECORD COUNTS RG008690 | 75107 636260272545 | 75110 255121634651 75111 605125234651 | 75112 246023466445 | 75113 636260606060 | 00000 TCD 0 END OF RG FIXED OBJECT RG008700 | 1 LISTING OF 12/01/64 PAGE 27 CONSTANT AREA COMMON TO ALL PHASES | | 06612 ORG RGORG FOR PHASE 1 RG008730 | 06612 114721230201 BCI 1,9PAC21 FILE 2 RECORD 1 RG008740 | 06613 512747306201 BCI 1,RGPHS1 RG008750 00100 ORG SYSTRA RG008760 | 00100 0020 00 0 56106 TRA DP000 TRANSFER TO START OF PHASE 1 RG008770 | 06614 ORG RGORG+2 RG008780 | 06614 +000000000000 ZERO DEC 0 RG008790 | 06615 +000000000001 ONE DEC 1 RG008800 06616 +000000000002 TWO DEC 2 RG008810 | 06617 +000000000003 THREE DEC 3 RG008820 | 06620 +000000000004 FOUR DEC 4 RG008830 | 06621 +000000000005 FIVE DEC 5 RG008840 | 06622 +000000000006 SIX DEC 6 RG008850 06623 +000000000007 SEVEN DEC 7 RG008860 | 06624 +000000000010 EIGHT DEC 8 RG008870 | 06625 +000000000011 NINE DEC 9 RG008880 | 06626 +000000000012 TEN DEC 10 RG008890 | 06627 DUP 1,90 RG008900 06627 0 00000 0 00013 PZE *+10-TEN DECIMAL CONSTANTS 11 THRU 100 RG008910 | 06630 0 00000 0 00014 | 06631 0 00000 0 00015 | 06632 0 00000 0 00016 | 06633 0 00000 0 00017 06634 0 00000 0 00020 | 06635 0 00000 0 00021 | 06636 0 00000 0 00022 | 06637 0 00000 0 00023 | 06640 0 00000 0 00024 06641 0 00000 0 00025 | 06642 0 00000 0 00026 | 06643 0 00000 0 00027 | 06644 0 00000 0 00030 | 06645 0 00000 0 00031 06646 0 00000 0 00032 | 06647 0 00000 0 00033 | 06650 0 00000 0 00034 | 06651 0 00000 0 00035 | 06652 0 00000 0 00036 06653 0 00000 0 00037 | 06654 0 00000 0 00040 | 06655 0 00000 0 00041 | 06656 0 00000 0 00042 | 06657 0 00000 0 00043 06660 0 00000 0 00044 | 06661 0 00000 0 00045 | 06662 0 00000 0 00046 | 06663 0 00000 0 00047 | 06664 0 00000 0 00050 06665 0 00000 0 00051 | 06666 0 00000 0 00052 | 06667 0 00000 0 00053 | 06670 0 00000 0 00054 | 06671 0 00000 0 00055 06672 0 00000 0 00056 | 06673 0 00000 0 00057 | 1 LISTING OF 12/01/64 PAGE 28 | CONSTANT AREA COMMON TO ALL PHASES | 06674 0 00000 0 00060 | 06675 0 00000 0 00061 | 06676 0 00000 0 00062 | 06677 0 00000 0 00063 | 06700 0 00000 0 00064 06701 0 00000 0 00065 | 06702 0 00000 0 00066 | 06703 0 00000 0 00067 | 06704 0 00000 0 00070 | 06705 0 00000 0 00071 06706 0 00000 0 00072 | 06707 0 00000 0 00073 | 06710 0 00000 0 00074 | 06711 0 00000 0 00075 | 06712 0 00000 0 00076 06713 0 00000 0 00077 | 06714 0 00000 0 00100 | 06715 0 00000 0 00101 | 06716 0 00000 0 00102 | 06717 0 00000 0 00103 06720 0 00000 0 00104 | 06721 0 00000 0 00105 | 06722 0 00000 0 00106 | 06723 0 00000 0 00107 | 06724 0 00000 0 00110 06725 0 00000 0 00111 | 06726 0 00000 0 00112 | 06727 0 00000 0 00113 | 06730 0 00000 0 00114 | 06731 0 00000 0 00115 06732 0 00000 0 00116 | 06733 0 00000 0 00117 | 06734 0 00000 0 00120 | 06735 0 00000 0 00121 | 06736 0 00000 0 00122 06737 0 00000 0 00123 | 06740 0 00000 0 00124 | 06741 0 00000 0 00125 | 06742 0 00000 0 00126 | 06743 0 00000 0 00127 06744 0 00000 0 00130 | 06745 0 00000 0 00131 | 06746 0 00000 0 00132 | 06747 0 00000 0 00133 | 06750 0 00000 0 00134 06751 0 00000 0 00135 | 06752 0 00000 0 00136 | 06753 0 00000 0 00137 | 06754 0 00000 0 00140 | 06755 0 00000 0 00141 06756 0 00000 0 00142 | 06757 0 00000 0 00143 | 06760 0 00000 0 00144 | 06761 0 00000 1 00000 TAG1 PZE ,1 RG008920 | 06762 0 00000 2 00000 TAG2 PZE ,2 RG008930 1 LISTING OF 12/01/64 PAGE 29 | CONSTANT AREA COMMON TO ALL PHASES | | 06763 0 00000 4 00000 TAG4 PZE ,4 RG008940 | 06764 0 00001 0 00000 DCRM1 PZE ,,1 RG008950 06765 0 00002 0 00000 DCRM2 PZE ,,2 RG008960 | 06766 0 00003 0 00000 DCRM3 PZE ,,3 RG008970 | 06767 0 00004 0 00000 DCRM4 PZE ,,4 RG008980 | 06770 0 00005 0 00000 DCRM5 PZE ,,5 RG008990 | 06771 0 00006 0 00000 DCRM6 PZE ,,6 RG009000 06772 0 00007 0 00000 DCRM7 PZE ,,7 RG009010 | 06773 0 00010 0 00000 DCRM8 PZE ,,8 RG009020 | 06774 0 00011 0 00000 DCRM9 PZE ,,9 RG009030 | 06775 1 00000 0 00000 PRFX1 PON RG009040 | 06776 2 00000 0 00000 PRFX2 PTW RG009050 06777 -0 00000 0 00000 PRFX4 MZE RG009060 | 07000 -2 00000 0 00000 PRFX6 MTW RG009070 | 06635 A SYN TEN+7 21)8 RG009080 | 06636 B SYN TEN+8 22)8 RG009090 | 06637 C SYN TEN+9 23)8 RG009100 06640 D SYN TEN+10 24)8 RG009110 | 06641 E SYN TEN+11 25)8 RG009120 | 06642 F SYN TEN+12 26)8 RG009130 | 06643 G SYN TEN+13 27)8 RG009140 | 06644 H SYN TEN+14 30)8 RG009150 06645 I SYN TEN+15 31)8 RG009160 | 06655 J SYN TEN+23 41)8 RG009170 | 06656 K SYN TEN+24 42)8 RG009180 | 06657 L SYN TEN+25 43)8 RG009190 | 06660 M SYN TEN+26 44)8 RG009200 06661 N SYN TEN+27 45)8 RG009210 | 06662 O SYN TEN+28 46)8 RG009220 | 06663 P SYN TEN+29 47)8 RG009230 | 06664 Q SYN TEN+30 50)8 RG009240 | 06665 R SYN TEN+31 51)8 RG009250 06676 S SYN TEN+40 62)8 RG009260 | 06677 T SYN TEN+41 63)8 RG009270 | 06700 U SYN TEN+42 64)8 RG009280 | 06701 V SYN TEN+43 65)8 RG009290 | 06702 W SYN TEN+44 66)8 RG009300 06703 X SYN TEN+45 67)8 RG009310 | 06654 MINUS SYN TEN+22 40)8 RG009320 | 06707 COMMA SYN TEN+49 73)8 RG009330 | 06647 PERIOD SYN TEN+17 33)8 RG009340 | 06674 BLANK SYN TEN+38 60)8 RG009350 06634 PLUS SYN TEN+6 20)8 RG009360 | 06670 ASTRIK SYN TEN+34 54)8 RG009370 | 06627 EQUAL SYN TEN+1 13)8 RG009380 | 06675 SLASH SYN TEN+39 61)8 RG009390 | 06710 LEFTPR SYN TEN+50 74)8 RG009400 06650 RGHTPR SYN TEN+18 34)8 RG009410 | 07001 606060606060 BLNKS BCI 1, RG009420 | 06713 BCD01 SYN TEN+53 000000000077 RG009430 | 07002 +000000007700 BCD02 OCT 7700 RG009440 | 07003 +000000007777 BCD03 OCT 7777 RG009450 07004 +000000770000 BCD04 OCT 770000 RG009460 | 07005 +000000770077 BCD05 OCT 770077 RG009470 | 07006 +000000777700 BCD06 OCT 777700 RG009480 | 1 LISTING OF 12/01/64 PAGE 30 | CONSTANT AREA COMMON TO ALL PHASES | 07007 +000000777777 BCD07 OCT 777777 RG009490 | 07010 +000077000000 BCD10 OCT 77000000 RG009500 | 07011 +000077000077 BCD11 OCT 77000077 RG009510 | 07012 +000077007700 BCD12 OCT 77007700 RG009520 07013 +000077007777 BCD13 OCT 000077007777 RG009530 | 07014 +000077770000 BCD14 OCT 000077770000 RG009540 | 07015 +000077770077 BCD15 OCT 000077770077 RG009550 | 07016 +000077777700 BCD16 OCT 000077777700 RG009560 | 07017 +000077777777 BCD17 OCT 000077777777 RG009570 07020 +007700000000 BCD20 OCT 007700000000 RG009580 | 07021 +007700000077 BCD21 OCT 007700000077 RG009590 | 07022 +007700007700 BCD22 OCT 007700007700 RG009600 | 07023 +007700007777 BCD23 OCT 007700007777 RG009610 | 07024 +007700770000 BCD24 OCT 007700770000 RG009620 07025 +007700770077 BCD25 OCT 007700770077 RG009630 | 07026 +007700777700 BCD26 OCT 007700777700 RG009640 | 07027 +007700777777 BCD27 OCT 007700777777 RG009650 | 07030 +007777000000 BCD30 OCT 007777000000 RG009660 | 07031 +007777000077 BCD31 OCT 007777000077 RG009670 07032 +007777007700 BCD32 OCT 007777007700 RG009680 | 07033 +007777007777 BCD33 OCT 007777007777 RG009690 | 07034 +007777770000 BCD34 OCT 007777770000 RG009700 | 07035 +007777770077 BCD35 OCT 007777770077 RG009710 | 07036 +007777777700 BCD36 OCT 007777777700 RG009720 07037 +007777777777 BCD37 OCT 007777777777 RG009730 | 07040 -370000000000 BCD40 OCT 770000000000 RG009740 | 07041 -370000000077 BCD41 OCT 770000000077 RG009750 | 07042 -370000007700 BCD42 OCT 770000007700 RG009760 | 07043 -370000007777 BCD43 OCT 770000007777 RG009770 07044 -370000770000 BCD44 OCT 770000770000 RG009780 | 07045 -370000770077 BCD45 OCT 770000770077 RG009790 | 07046 -370000777700 BCD46 OCT 770000777700 RG009800 | 07047 -370000777777 BCD47 OCT 770000777777 RG009810 | 07050 -370077000000 BCD50 OCT 770077000000 RG009820 07051 -370077000077 BCD51 OCT 770077000077 RG009830 | 07052 -370077007700 BCD52 OCT 770077007700 RG009840 | 07053 -370077007777 BCD53 OCT 770077007777 RG009850 | 07054 -370077770000 BCD54 OCT 770077770000 RG009860 | 07055 -370077770077 BCD55 OCT 770077770077 RG009870 07056 -370077777700 BCD56 OCT 770077777700 RG009880 | 07057 -370077777777 BCD57 OCT 770077777777 RG009890 | 07060 -377700000000 BCD60 OCT 777700000000 RG009900 | 07061 -377700000077 BCD61 OCT 777700000077 RG009910 | 07062 -377700007700 BCD62 OCT 777700007700 RG009920 07063 -377700007777 BCD63 OCT 777700007777 RG009930 | 07064 -377700770000 BCD64 OCT 777700770000 RG009940 | 07065 -377700770077 BCD65 OCT 777700770077 RG009950 | 07066 -377700777700 BCD66 OCT 777700777700 RG009960 | 07067 -377700777777 BCD67 OCT 777700777777 RG009970 07070 -377777000000 BCD70 OCT 777777000000 RG009980 | 07071 -377777000077 BCD71 OCT 777777000077 RG009990 | 07072 -377777007700 BCD72 OCT 777777007700 RG010000 | 07073 -377777007777 BCD73 OCT 777777007777 RG010010 | 07074 -377777770000 BCD74 OCT 777777770000 RG010020 07075 -377777770077 BCD75 OCT 777777770077 RG010030 | 1 LISTING OF 12/01/64 PAGE 31 | CONSTANT AREA COMMON TO ALL PHASES | | 07076 -377777777700 BCD76 OCT 777777777700 RG010040 07077 -377777777777 BCD77 OCT 777777777777 RG010050 | 07100 0 00002 0 00002 DBL02 PZE 2,,2 RG010060 | 07101 +171717171717 K1717 OCT 171717171717 RG010070 | 07102 TEMP BSS 10 RG010080 | 07114 REC1 BSS 36 RG010090 07160 0 00000 0 00000 ARTEMP PZE RG010100 | * RG010110 | 07161 0 00000 0 04621 CARDA PZE CARD RG010120 | 07162 PARA BSS 50 PARAMETER WORK AREA RG010130 | 07173 CARDS EQU PARA+9 * RG010140 07174 LINE EQU CARDS+1 * RG010150 | 07174 TEMPAR EQU CARDS+1 * RG010160 | 07244 DTBL BSS 12 RG010170 | 07260 0 00000 4 07244 LDTBL PZE DTBL,4,0 RG010180 | 07261 0 00000 0 00000 CAUNT PZE RG010190 07262 0 00000 0 00000 CONTR PZE RG010200 | 07263 0 00000 0 00000 COUNT PZE RG010210 | 07264 0 00000 0 00000 EDT4 PZE RG010220 | 07265 0 00000 0 00000 EWT4 PZE RG010230 | 07266 0 00000 0 00000 EWT6 PZE RG010240 07267 0 00000 0 00000 EWT7 PZE RG010250 | 07270 0 00000 0 00000 EWT8 PZE RG010260 | 07271 0 00000 0 00000 EWT9 PZE RG010270 | 07272 0 00000 0 00000 EWT10 PZE RG010280 | 07273 0 00000 0 00000 EWT12 PZE RG010290 07274 0 00000 0 00000 LFNBR PZE RG010300 | 07275 0 00000 0 00000 LINEST PZE RG010310 | 07276 0 00000 0 00000 MOTEMP PZE RG010320 | 07277 0 00000 0 00000 MSTRSW PZE RG010330 | 07300 0 00000 0 00000 PARCTR PZE RG010340 07301 0 00000 0 00000 PILB5 PZE RG010350 | 07302 0 00000 0 00000 SAVIND PZE RG010360 | 07303 0 00000 0 00000 SIGNIN PZE RG010370 | 07304 0 00000 0 00000 SPCOMP PZE RG010380 | 07305 0 00000 0 00000 START PZE RG010390 07306 0 00000 0 00000 STIRT PZE RG010400 | 06614 ZEROS EQU ZERO RG010410 | 06615 MCA1 EQU ONE RG010420 | 07307 0 00000 0 00000 P2XA0 PZE RG010430 | 07310 0 00000 0 00000 P2XA1 PZE RG010440 07311 0 00000 0 00000 P2XA2 PZE RG010450 | 07312 717100000000 P2XA3 BCI 1,ZZ0000 RECORD TYPR ZZ RG010460 | 07313 0 00000 0 00000 P2XA4 PZE RG010470 | 07314 0 00000 0 00000 ZZSWT PZE RG010480 | * RG010490 07315 -377700000000 MASK OCT 777700000000 RG010500 | 07316 -377777777700 OCT 777777777700 +1 RG010510 | 07317 -377777777770 OCT 777777777770 +2 RG010520 | 07320 +000000000000 OCT 000000000000 +3 RG010530 | 07321 +000077000000 OCT 000077000000 +4 RG010540 07322 +000000001777 OCT 000000001777 +5 RG010550 | 07323 -377777777777 OCT 777777777777 +6 RG010560 | 07324 -370000000000 OCT 770000000000 +7 RG010570 | 07325 -377777000000 OCT 777777000000 +8 RG010580 | 1 LISTING OF 12/01/64 PAGE 32 CONSTANT AREA COMMON TO ALL PHASES | | 07326 +000000000005 OCT 000000000005 +9 RG010590 | 07327 +000000000004 OCT 000000000004 +10 RG010600 | 07330 -100000000000 OCT 500000000000 +11 RG010610 07331 -000000000000 OCT 400000000000 +12 RG010620 | 07332 +000000000077 OCT 000000000077 +13 RG010630 | 07333 +000000000040 OCT 000000000040 +14 RG010640 | 07334 +000000077777 OCT 000000077777 +15 RG010650 | 07335 +000000000037 OCT 000000000037 +16 RG010660 07336 -377777007777 OCT 777777007777 +17 RG010670 | 07337 +000000007700 OCT 000000007700 +18 RG010680 | 07340 +000100000000 OCT 000100000000 +19 RG010690 | 07341 +000000000040 MASK01 OCT 000000000040 RG010700 | 07342 +000000006060 MASK03 OCT 000000006060 RG010710 07343 +000000606060 MASK04 OCT 000000606060 RG010720 | 07344 +200000400000 MASK11 OCT 200000400000 RG010730 | 07345 +000001000000 MASK12 OCT 000001000000 RG010740 | 07346 +000000006000 MASK14 OCT 000000006000 RG010750 | 07347 +000050000000 MSKDC5 OCT 000050000000 RG010760 * RG010770 | 07350 +030000000021 CALCD OCT 030000000021 RG010780 | 07351 +140000000023 OCT 140000000023 RG010790 | 07352 +370000000027 OCT 370000000027 RG010800 | 07353 -030000000031 OCT 430000000031 RG010810 07354 -270000000045 OCT 670000000045 RG010820 | 07355 0 00000 0 00000 LVCNT PZE RG010830 | 07356 0 00000 0 00000 EMITSW PZE EMIT SWITCH RG010840 | 07357 0 00000 0 00000 EDT1 PZE RG010850 | 07360 0 00000 0 00000 EDT2 PZE RG010860 07361 0 00000 0 00000 EDT3 PZE RG010870 | 07362 0 00000 0 00000 COMMAN PZE RG010880 | 07363 0 00000 0 00000 IRBC PZE RG010890 | 07364 0 00000 0 00000 EDT5 PZE RG010900 | 07365 0 00000 0 00000 PERM PZE RG010910 07366 0 00000 0 00000 INTRPC PZE RG010920 | 07367 +000000000060 MASK02 OCT 000000000060 RG010930 | 07370 0 00000 0 00000 TEMP1 PZE RG010940 | 07371 0 00000 0 00000 TEMP2 PZE RG010950 | 07372 0 00000 0 00000 TEMP3 PZE RG010960 07373 0 00000 0 00000 TEMP5 PZE RG010970 | 07374 0 00000 0 07174 LCARDS PZE TEMPAR RG010980 | 07375 0 00000 0 00000 HCSW1 PZE RG010990 | 07376 0 00000 0 00000 HCSW2 PZE RG011000 | 07377 3 00003 2 07377 NTCMD IORTN *,,3 NON-TRANSMITT COMMAND RG011010 * RG011020 | * FILE CONTROL BLOCK REFERENCE TABLE RG011030 | * RG011040 | 07400 0 00000 4 04020 PZE FILE19+12,4 * RG011050 | 07401 0 00000 4 04034 PZE FILE18+12,4 * RG011060 07402 0 00000 4 04050 PZE FILE17+12,4 * RG011070 | 07403 0 00000 4 04064 PZE FILE16+12,4 * RG011080 | 07404 0 00000 4 04100 PZE FILE15+12,4 * RG011090 | 07405 0 00000 4 04114 PZE FILE14+12,4 * RG011100 | 07406 0 00000 4 04130 PZE FILE13+12,4 * RG011110 07407 0 00000 4 04144 PZE FILE12+12,4 * RG011120 | 07410 0 00000 4 04160 PZE FILE11+12,4 * RG011130 | 1 LISTING OF 12/01/64 PAGE 33 | CONSTANT AREA COMMON TO ALL PHASES | 07411 0 00000 4 04174 PZE FILE10+12,4 * RG011140 | 07412 0 00000 4 04210 PZE FILE09+12,4 * RG011150 | 07413 0 00000 4 04224 PZE FILE08+12,4 * RG011160 | 07414 0 00000 4 04240 PZE FILE07+12,4 * RG011170 | 07415 0 00000 4 04254 PZE FILE06+12,4 * RG011180 07416 0 00000 4 04270 PZE FILE05+12,4 * RG011190 | 07417 0 00000 4 04304 PZE FILE04+12,4 * RG011200 | 07420 0 00000 4 04320 PZE FILE03+12,4 * RG011210 | 07421 0 00000 4 04334 PZE FILE02+12,4 * RG011220 | 07422 0 00000 4 04350 PZE FILE01+12,4 * RG011230 07423 0 00000 4 04364 FCBLOC PZE FILE00+12,4 * RG011240 | * RG011250 | * CORE LAYOUT CONSTANTS RG011260 | 04404 ICBNG EQU OBJL5 LOWER LIMIT OF PROGRAM RG011270 | 04401 ICULC EQU OBJL2 LOCATION OF NEXT INSTRUCTION RG011280 04402 CCULC EQU OBJL3 LOCATION OF NEXT CONSTANT RG011290 | 04405 CCEND EQU OBJL6 UPPER LIMIT OF PROGRAM RG011300 | 07424 0 00000 0 00000 EOPSW PZE SET TO NON-ZERO ON END OF PACKET RG011310 | 07425 0 00000 0 00000 EOJSW PZE SET TO NON-ZERO ON END OF JOB RG011320 | 1 LISTING OF 12/01/64 PAGE 34 TABLES | | * RG011340 | 00037 P2BL3 EQU 31 ALL REPORTS TABLE FOR OUTPUT RG011350 | 07426 ARTO BSS P2BL3 * RG011360 07465 0 00040 0 00000 ARTOM PZE ,,P2BL3+1 MONITOR RG011370 | * RG011380 | 1 LISTING OF 12/01/64 PAGE 35 | TABLE OF I/O COMMANDS | 07466 000031462324 BCI 1,00IOCD RG011400 | 07467 0 00000 0 00000 IOCD 0,,0 RG011410 | 07470 000031462347 BCI 1,00IOCP RG011420 | 07471 -0 00000 0 00000 IOCP 0,,0 RG011430 | 07472 000031462363 BCI 1,00IOCT RG011440 07473 -1 00000 0 00000 IOCT 0,,0 RG011450 | 07474 000031465147 BCI 1,00IORP RG011460 | 07475 2 00000 0 00000 IORP 0,,0 RG011470 | 07476 000031465163 BCI 1,00IORT RG011480 | 07477 3 00000 0 00000 IORT 0,,0 RG011490 07500 000031466247 BCI 1,00IOSP RG011500 | 07501 -2 00000 0 00000 IOSP 0,,0 RG011510 | 07502 000031466263 BCI 1,00IOST RG011520 | 07503 -3 00000 0 00000 IOST 0,,0 RG011530 | 07504 0 00016 0 00000 COMDS PZE 0,,14 RG011540 1 LISTING OF 12/01/64 PAGE 36 | TABLE OF NON-GENERATED SYSTEM SYMBOLS | | 07505 BSS 34 EXPANSION AREA RG011560 | 07547 002343316263 BCI 1,0CLIST RG011570 07550 0 00000 0 05630 PZE CLIST RG011580 | 07551 002643316263 BCI 1,0FLIST RG011590 | 07552 0 00000 0 05646 PZE FLIST RG011600 | 07553 004543316263 BCI 1,0NLIST RG011610 | 07554 0 00000 0 05642 PZE NLIST RG011620 07555 131331454763 BCI 1,==INPT RG011630 | 07556 0 00000 0 17276 PZE RECRD-10 RG011640 | 07557 000071255146 BCI 1,00ZERO RG011650 | 07560 0 00000 0 04672 PZE LZERO RG011660 | 07561 000000464525 BCI 1,000ONE RG011670 07562 0 00000 0 04673 PZE LZERO+1 RG011680 | 07563 000000636646 BCI 1,000TWO RG011690 | 07564 0 00000 0 04674 PZE LZERO+2 RG011700 | 07565 006330512525 BCI 1,0THREE RG011710 | 07566 0 00000 0 04675 PZE LZERO+3 RG011720 07567 000026466451 BCI 1,00FOUR RG011730 | 07570 0 00000 0 04676 PZE LZERO+4 RG011740 | 07571 000026316525 BCI 1,00FIVE RG011750 | 07572 0 00000 0 04677 PZE LZERO+5 RG011760 | 07573 000000623167 BCI 1,000SIX RG011770 07574 0 00000 0 04700 PZE LZERO+6 RG011780 | 07575 006225652545 BCI 1,0SEVEN RG011790 | 07576 0 00000 0 04701 PZE LZERO+7 RG011800 | 07577 002531273063 BCI 1,0EIGHT RG011810 | 07600 0 00000 0 04702 PZE LZERO+8 RG011820 07601 000045314525 BCI 1,00NINE RG011830 | 07602 0 00000 0 04703 PZE LZERO+9 RG011840 | 07603 000000632545 BCI 1,000TEN RG011850 | 07604 0 00000 0 04704 PZE LZERO+10 RG011860 | 07605 222324233062 BCI 1,BCDCHS RG011870 07606 0 00000 0 73024 PZE BCDCHS RG011880 | 07607 226426434623 BCI 1,BUFLOC RG011890 | 07610 0 00000 0 72727 PZE BUFLOC RG011900 | 07611 226426627125 BCI 1,BUFSZE RG011910 | 07612 0 00000 0 72753 PZE BUFSZE RG011920 07613 263143250000 BCI 1,FILE00 RG011930 | 07614 0 00000 0 04350 PZE FILE00 RG011940 | 07615 263143250001 BCI 1,FILE01 RG011950 | 07616 0 00000 0 04334 PZE FILE01 RG011960 | 07617 263143250002 BCI 1,FILE02 RG011970 07620 0 00000 0 04320 PZE FILE02 RG011980 | 07621 263143250003 BCI 1,FILE03 RG011990 | 07622 0 00000 0 04304 PZE FILE03 RG012000 | 07623 263143250004 BCI 1,FILE04 RG012010 | 07624 0 00000 0 04270 PZE FILE04 RG012020 07625 263143250005 BCI 1,FILE05 RG012030 | 07626 0 00000 0 04254 PZE FILE05 RG012040 | 07627 263143250006 BCI 1,FILE06 RG012050 | 07630 0 00000 0 04240 PZE FILE06 RG012060 | 07631 263143250007 BCI 1,FILE07 RG012070 07632 0 00000 0 04224 PZE FILE07 RG012080 | 07633 263143250010 BCI 1,FILE08 RG012090 | 07634 0 00000 0 04210 PZE FILE08 RG012100 | 1 LISTING OF 12/01/64 PAGE 37 | TABLE OF NON-GENERATED SYSTEM SYMBOLS | 07635 263143250011 BCI 1,FILE09 RG012110 | 07636 0 00000 0 04174 PZE FILE09 RG012120 | 07637 263143250100 BCI 1,FILE10 RG012130 | 07640 0 00000 0 04160 PZE FILE10 RG012140 07641 263143250101 BCI 1,FILE11 RG012150 | 07642 0 00000 0 04144 PZE FILE11 RG012160 | 07643 263143250102 BCI 1,FILE12 RG012170 | 07644 0 00000 0 04130 PZE FILE12 RG012180 | 07645 263143250103 BCI 1,FILE13 RG012190 07646 0 00000 0 04114 PZE FILE13 RG012200 | 07647 263143250104 BCI 1,FILE14 RG012210 | 07650 0 00000 0 04100 PZE FILE14 RG012220 | 07651 263143250105 BCI 1,FILE15 RG012230 | 07652 0 00000 0 04064 PZE FILE15 RG012240 07653 263143250106 BCI 1,FILE16 RG012250 | 07654 0 00000 0 04050 PZE FILE16 RG012260 | 07655 263143250107 BCI 1,FILE17 RG012270 | 07656 0 00000 0 04034 PZE FILE17 RG012280 | 07657 263143250110 BCI 1,FILE18 RG012290 07660 0 00000 0 04020 PZE FILE18 RG012300 | 07661 263143250111 BCI 1,FILE19 RG012310 | 07662 0 00000 0 04004 PZE FILE19 RG012320 | 07663 242526314525 BCI 1,DEFINE RG012330 | 07664 0 00000 0 06252 PZE DEFINE RG012340 07665 000041463145 BCI 1,00JOIN RG012350 | 07666 0 00000 0 06254 PZE JOIN RG012360 | 07667 216363212330 BCI 1,ATTACH RG012370 | 07670 0 00000 0 06256 PZE ATTACH RG012380 | 07671 002343466225 BCI 1,0CLOSE RG012390 07672 0 00000 0 06260 PZE CLOSE RG012400 | 07673 000046472545 BCI 1,00OPEN RG012410 | 07674 0 00000 0 06262 PZE OPEN RG012420 | 07675 000051252124 BCI 1,00READ RG012430 | 07676 0 00000 0 06264 PZE READ RG012440 07677 006651316325 BCI 1,0WRITE RG012450 | 07700 0 00000 0 06266 PZE WRITE RG012460 | 07701 000023464770 BCI 1,00COPY RG012470 | 07702 0 00000 0 06270 PZE COPY RG012480 | 07703 000000512566 BCI 1,000REW RG012490 07704 0 00000 0 06272 PZE REW RG012500 | 07705 000000662526 BCI 1,000WEF RG012510 | 07706 0 00000 0 06274 PZE WEF RG012520 | 07707 000000226251 BCI 1,000BSR RG012530 | 07710 0 00000 0 06276 PZE BSR RG012540 07711 000000226226 BCI 1,000BSF RG012550 | 07712 0 00000 0 06300 PZE BSF RG012560 | 07713 000023424763 BCI 1,00CKPT RG012570 | 07714 0 00000 0 06302 PZE CKPT RG012580 | 07715 006263216230 BCI 1,0STASH RG012590 07716 0 00000 0 06304 PZE STASH RG012600 | 07717 000000446651 BCI 1,000MWR RG012610 | 07720 0 00000 0 00706 PZE MWR RG012620 | 07721 222324226426 BCI 1,BCDBUF RG012630 | 07722 0 00000 0 73023 PZE BCDBUF RG012640 07723 223145226426 BCI 1,BINBUF RG012650 | 1 LISTING OF 12/01/64 PAGE 38 | TABLE OF NON-GENERATED SYSTEM SYMBOLS | | 07724 0 00000 0 73005 PZE BINBUF RG012660 07725 222324223145 BCI 1,BCDBIN RG012670 | 07726 0 00000 0 73470 PZE BCDBIN RG012680 | 07727 223145222324 BCI 1,BINBCD RG012690 | 07730 0 00000 0 73042 PZE BINBCD RG012700 | 07731 000031462362 BCI 1,00IOCS RG012710 07732 0 00000 0 06246 PZE IOCS RG012720 | 07733 0 00164 0 00000 RGSYM PZE 0,,116 RG012730 | 1 LISTING OF 12/01/64 PAGE 39 | TABLE OF INSTRUCTIONS | 07734 BSS 40 EXPANSION AREA RG012750 | 10004 000000212343 BCI 1,000ACL RG012760 | 10005 0361 00 0 00000 ACL 0 RG012770 | 10006 000000212424 BCI 1,000ADD RG012780 | 10007 0400 00 0 00000 ADD 0 RG012790 10010 000000212444 BCI 1,000ADM RG012800 | 10011 0401 00 0 00000 ADM 0 RG012810 | 10012 000000214362 BCI 1,000ALS RG012820 | 10013 0767 00 0 00000 ALS 0 RG012830 | 10014 000000214521 BCI 1,000ANA RG012840 10015 -0320 00 0 00000 HCANA ANA 0 RG012850 | 10016 000000214562 BCI 1,000ANS RG012860 | 10017 0320 00 0 00000 HCANS ANS 0 RG012870 | 10020 000000215162 BCI 1,000ARS RG012880 | 10021 0771 00 0 00000 HCARS ARS 0 RG012890 10022 000000216723 BCI 1,000AXC RG012900 | 10023 -0774 00 0 00000 AXC 0,0 RG012910 | 10024 000000216763 BCI 1,000AXT RG012920 | 10025 0774 00 0 00000 AXT 0,0 RG012930 | 10026 000000232143 BCI 1,000CAL RG012940 10027 -0500 00 0 00000 HCCAL CAL 0 RG012950 | 10030 000000232150 BCI 1,000CAQ RG012960 | 10031 -0114 00 0 00000 CAQ 0,,0 RG012970 | 10032 000000232162 BCI 1,000CAS RG012980 | 10033 0340 00 0 00000 CAS 0 RG012990 10034 000000233062 BCI 1,000CHS RG013000 | 10035 0760 00 0 00002 CHS RG013010 | 10036 000000234321 BCI 1,000CLA RG013020 | 10037 0500 00 0 00000 HCCLA CLA 0 RG013030 | 10040 000000234344 BCI 1,000CLM RG013040 10041 0760 00 0 00000 CLM RG013050 | 10042 000000234362 BCI 1,000CLS RG013060 | 10043 0502 00 0 00000 CLS 0 RG013070 | 10044 000000234644 BCI 1,000COM RG013080 | 10045 0760 00 0 00006 COM RG013090 10046 000000235150 BCI 1,000CRQ RG013100 | 10047 -0154 00 0 00000 CRQ 0,,0 RG013110 | 10050 000000236551 BCI 1,000CVR RG013120 | 10051 0114 00 0 00000 CVR 0,,0 RG013130 | 10052 000000242363 BCI 1,000DCT RG013140 10053 0760 00 0 00012 DCT RG013150 | 10054 000000246530 BCI 1,000DVH RG013160 | 10055 0220 00 0 00000 DVH 0 RG013170 | 10056 000000246547 BCI 1,000DVP RG013180 | 10057 0221 00 0 00000 DVP 0 RG013190 10060 000000254542 BCI 1,000ENK RG013200 | 10061 0760 00 0 00004 ENK RG013210 | 10062 000000255121 BCI 1,000ERA RG013220 | 10063 0322 00 0 00000 HCERA ERA 0 RG013230 | 10064 000000256344 BCI 1,000ETM RG013240 10065 0760 00 0 00007 ETM RG013250 | 10066 000000262124 BCI 1,000FAD RG013260 | 10067 0300 00 0 00000 FAD 0 RG013270 | 10070 000000262144 BCI 1,000FAM RG013280 | 10071 0304 00 0 00000 FAM 0 RG013290 1 LISTING OF 12/01/64 PAGE 40 | TABLE OF INSTRUCTIONS | | 10072 000000262430 BCI 1,000FDH RG013300 | 10073 0240 00 0 00000 FDH 0 RG013310 10074 000000262447 BCI 1,000FDP RG013320 | 10075 0241 00 0 00000 FDP 0 RG013330 | 10076 000000264447 BCI 1,000FMP RG013340 | 10077 0260 00 0 00000 FMP 0 RG013350 | 10100 000000264651 BCI 1,000FOR RG013360 10101 -0 00000 0 00000 FOR RG013370 | 10102 000000265145 BCI 1,000FRN RG013380 | 10103 0760 00 0 00011 FRN RG013390 | 10104 000000266222 BCI 1,000FSB RG013400 | 10105 0302 00 0 00000 FSB 0 RG013410 10106 000000266244 BCI 1,000FSM RG013420 | 10107 0306 00 0 00000 FSM 0 RG013430 | 10110 000000266525 BCI 1,000FVE RG013440 | 10111 -1 00000 0 00000 FVE RG013450 | 10112 000000304751 BCI 1,000HPR RG013460 10113 0420 00 0 00000 HPR RG013470 | 10114 000000306351 BCI 1,000HTR RG013480 | 10115 0000 00 0 00000 HTR 0 RG013490 | 10116 000000313121 BCI 1,000IIA RG013500 | 10117 0041 00 0 00000 IIA RG013510 10120 000000313143 BCI 1,000IIL RG013520 | 10121 -0051 00 000000 IIL 0 RG013530 | 10122 000000313151 BCI 1,000IIR RG013540 | 10123 0051 00 000000 IIR 0 RG013550 | 10124 000000313162 BCI 1,000IIS RG013560 10125 0440 00 0 00000 IIS 0 RG013570 | 10126 000000314663 BCI 1,000IOT RG013580 | 10127 0760 00 0 00005 IOT RG013590 | 10130 000000432123 BCI 1,000LAC RG013600 | 10131 0535 00 0 00000 LAC 0,0 RG013610 10132 000000432162 BCI 1,000LAS RG013620 | 10133 -0340 00 0 00000 LAS 0 RG013630 | 10134 000000432263 BCI 1,000LBT RG013640 | 10135 0760 00 0 00001 LBT RG013650 | 10136 000000432423 BCI 1,000LDC RG013660 10137 -0535 00 0 00000 LDC 0,0 RG013670 | 10140 000000432431 BCI 1,000LDI RG013680 | 10141 0441 00 0 00000 HCLDI LDI 0 RG013690 | 10142 000000432450 BCI 1,000LDQ RG013700 | 10143 0560 00 0 00000 LDQ 0 RG013710 10144 000000432663 BCI 1,000LFT RG013720 | 10145 -0054 00 000000 LFT 0 RG013730 | 10146 000000432743 BCI 1,000LGL RG013740 | 10147 -0763 00 0 00000 LGL 0 RG013750 | 10150 000000432751 BCI 1,000LGR RG013760 10151 -0765 00 0 00000 LGR 0 RG013770 | 10152 000000434362 BCI 1,000LLS RG013780 | 10153 0763 00 0 00000 LLS 0 RG013790 | 10154 000000434563 BCI 1,000LNT RG013800 | 10155 -0056 00 000000 LNT 0 RG013810 10156 000000435162 BCI 1,000LRS RG013820 | 10157 0765 00 0 00000 LRS 0 RG013830 | 10160 000000436344 BCI 1,000LTM RG013840 | 1 LISTING OF 12/01/64 PAGE 41 | TABLE OF INSTRUCTIONS | 10161 -0760 00 0 00007 LTM RG013850 | 10162 000000436721 BCI 1,000LXA RG013860 | 10163 0534 00 0 00000 LXA 0,0 RG013870 | 10164 000000436724 BCI 1,000LXD RG013880 10165 -0534 00 0 00000 LXD 0,0 RG013890 | 10166 000000444645 BCI 1,000MON RG013900 | 10167 -1 00000 0 00000 MON RG013910 | 10170 000000444751 BCI 1,000MPR RG013920 | 10171 -0200 00 0 00000 MPR 0 RG013930 10172 000000444770 BCI 1,000MPY RG013940 | 10173 0200 00 0 00000 MPY 0 RG013950 | 10174 000000446225 BCI 1,000MSE RG013960 | 10175 -0760 00 0 00000 MSE 0 RG013970 | 10176 000000446330 BCI 1,000MTH RG013980 10177 -3 00000 0 00000 MTH RG013990 | 10200 000000446366 BCI 1,000MTW RG014000 | 10201 -2 00000 0 00000 MTW RG014010 | 10202 000000447125 BCI 1,000MZE RG014020 | 10203 -0 00000 0 00000 MZE RG014030 10204 000000454647 BCI 1,000NOP RG014040 | 10205 0761 00 0 00000 NOP RG014050 | 10206 000000457163 BCI 1,000NZT RG014060 | 10207 -0520 00 0 00000 NZT 0 RG014070 | 10210 000000462131 BCI 1,000OAI RG014080 10211 0043 00 0 00000 OAI RG014090 | 10212 000000462663 BCI 1,000OFT RG014100 | 10213 0444 00 0 00000 OFT 0 RG014110 | 10214 000000464563 BCI 1,000ONT RG014120 | 10215 0446 00 0 00000 HCONT ONT 0 RG014130 10216 000000465121 BCI 1,000ORA RG014140 | 10217 -0501 00 0 00000 ORA 0 RG014150 | 10220 000000465162 BCI 1,000ORS RG014160 | 10221 -0602 00 0 00000 HCORS ORS 0 RG014170 | 10222 000000466231 BCI 1,000OSI RG014180 10223 0442 00 0 00000 OSI 0 RG014190 | 10224 000000472123 BCI 1,000PAC RG014200 | 10225 0737 00 0 00000 PAC ,0 RG014210 | 10226 000000472131 BCI 1,000PAI RG014220 | 10227 0044 00 0 00000 PAI RG014230 10230 000000472167 BCI 1,000PAX RG014240 | 10231 0734 00 0 00000 PAX ,0 RG014250 | 10232 000000472263 BCI 1,000PBT RG014260 | 10233 -0760 00 0 00001 PBT RG014270 | 10234 000000472423 BCI 1,000PDC RG014280 10235 -0737 00 0 00000 PDC ,0 RG014290 | 10236 000000472467 BCI 1,000PDX RG014300 | 10237 -0734 00 0 00000 PDX ,0 RG014310 | 10240 000000473121 BCI 1,000PIA RG014320 | 10241 -0046 00 0 00000 PIA RG014330 10242 000000474645 BCI 1,000PON RG014340 | 10243 1 00000 0 00000 PON RG014350 | 10244 000000476225 BCI 1,000PSE RG014360 | 10245 0760 00 0 00000 HCPSE PSE 0 RG014370 | 10246 000000476330 BCI 1,000PTH RG014380 10247 3 00000 0 00000 PTH RG014390 | 1 LISTING OF 12/01/64 PAGE 42 | TABLE OF INSTRUCTIONS | | 10250 000000476366 BCI 1,000PTW RG014400 10251 2 00000 0 00000 PTW RG014410 | 10252 000000476721 BCI 1,000PXA RG014420 | 10253 0754 00 0 00000 PXA ,0 RG014430 | 10254 000000476724 BCI 1,000PXD RG014440 | 10255 -0754 00 0 00000 PXD ,0 RG014450 10256 000000477125 BCI 1,000PZE RG014460 | 10257 0 00000 0 00000 PZE RG014470 | 10260 000000512663 BCI 1,000RFT RG014480 | 10261 0054 00 000000 RFT 0 RG014490 | 10262 000000513121 BCI 1,000RIA RG014500 10263 -0042 00 0 00000 RIA RG014510 | 10264 000000513143 BCI 1,000RIL RG014520 | 10265 -0057 00 000000 RIL 0 RG014530 | 10266 000000513151 BCI 1,000RIR RG014540 | 10267 0057 00 000000 RIR 0 RG014550 10270 000000513162 BCI 1,000RIS RG014560 | 10271 0445 00 0 00000 RIS 0 RG014570 | 10272 000000514524 BCI 1,000RND RG014580 | 10273 0760 00 0 00010 RND RG014590 | 10274 000000514563 BCI 1,000RNT RG014600 10275 0056 00 000000 RNT 0 RG014610 | 10276 000000515043 BCI 1,000RQL RG014620 | 10277 -0773 00 0 00000 RQL 0 RG014630 | 10300 000000622244 BCI 1,000SBM RG014640 | 10301 -0400 00 0 00000 SBM 0 RG014650 10302 000000623143 BCI 1,000SIL RG014660 | 10303 -0055 00 000000 SIL 0 RG014670 | 10304 000000623151 BCI 1,000SIR RG014680 | 10305 0055 00 000000 SIR 0 RG014690 | 10306 000000623167 BCI 1,000SIX RG014700 10307 -2 00000 0 00000 SIX RG014710 | 10310 000000624326 BCI 1,000SLF RG014720 | 10311 0760 00 0 00140 SLF RG014730 | 10312 000000624345 BCI 1,000SLN RG014740 | 10313 0760 00 0 00140 SLN 0 RG014750 10314 000000624350 BCI 1,000SLQ RG014760 | 10315 -0620 00 0 00000 SLQ 0 RG014770 | 10316 000000624363 BCI 1,000SLT RG014780 | 10317 -0760 00 0 00140 SLT 0 RG014790 | 10320 000000624366 BCI 1,000SLW RG014800 10321 0602 00 0 00000 SLW 0 RG014810 | 10322 000000626244 BCI 1,000SSM RG014820 | 10323 -0760 00 0 00003 SSM RG014830 | 10324 000000626247 BCI 1,000SSP RG014840 | 10325 0760 00 0 00003 SSP RG014850 10326 000000626321 BCI 1,000STA RG014860 | 10327 0621 00 0 00000 STA 0 RG014870 | 10330 000000626324 BCI 1,000STD RG014880 | 10331 0622 00 0 00000 STD 0 RG014890 | 10332 000000626331 BCI 1,000STI RG014900 10333 0604 00 0 00000 STI 0 RG014910 | 10334 000000626343 BCI 1,000STL RG014920 | 10335 -0625 00 0 00000 STL 0 RG014930 | 10336 000000626346 BCI 1,000STO RG014940 | 1 LISTING OF 12/01/64 PAGE 43 TABLE OF INSTRUCTIONS | | 10337 0601 00 0 00000 HCSTO STO 0 RG014950 | 10340 000000626347 BCI 1,000STP RG014960 | 10341 0630 00 0 00000 STP 0 RG014970 10342 000000626350 BCI 1,000STQ RG014980 | 10343 -0600 00 0 00000 STQ 0 RG014990 | 10344 000000626351 BCI 1,000STR RG015000 | 10345 -1 00000 0 00000 STR RG015010 | 10346 000000626363 BCI 1,000STT RG015020 10347 0625 00 0 00000 STT 0 RG015030 | 10350 000000626371 BCI 1,000STZ RG015040 | 10351 0600 00 0 00000 STZ 0 RG015050 | 10352 000000626422 BCI 1,000SUB RG015060 | 10353 0402 00 0 00000 SUB 0 RG015070 10354 000000626545 BCI 1,000SVN RG015080 | 10355 -3 00000 0 00000 SVN RG015090 | 10356 000000626663 BCI 1,000SWT RG015100 | 10357 0760 00 0 00160 SWT 0 RG015110 | 10360 000000626721 BCI 1,000SXA RG015120 10361 0634 00 0 00000 SXA 0,0 RG015130 | 10362 000000626724 BCI 1,000SXD RG015140 | 10363 -0634 00 0 00000 SXD 0,0 RG015150 | 10364 000000632330 BCI 1,000TCH RG015160 | 10365 1 00000 0 00000 TCH 0 RG015170 10366 000000633126 BCI 1,000TIF RG015180 | 10367 0046 00 0 00000 TIF 0 RG015190 | 10370 000000633146 BCI 1,000TIO RG015200 | 10371 0042 00 0 00000 TIO 0 RG015210 | 10372 000000633167 BCI 1,000TIX RG015220 10373 2 00000 0 00000 TIX 0,0,0 RG015230 | 10374 000000634350 BCI 1,000TLQ RG015240 | 10375 0040 00 0 00000 TLQ 0 RG015250 | 10376 000000634431 BCI 1,000TMI RG015260 | 10377 -0120 00 0 00000 TMI 0 RG015270 10400 000000634546 BCI 1,000TNO RG015280 | 10401 -0140 00 0 00000 TNO 0 RG015290 | 10402 000000634567 BCI 1,000TNX RG015300 | 10403 -2 00000 0 00000 TNX 0,0,0 RG015310 | 10404 000000634571 BCI 1,000TNZ RG015320 10405 -0100 00 0 00000 TNZ 0 RG015330 | 10406 000000634665 BCI 1,000TOV RG015340 | 10407 0140 00 0 00000 TOV 0 RG015350 | 10410 000000634743 BCI 1,000TPL RG015360 | 10411 0120 00 0 00000 TPL 0 RG015370 10412 000000635047 BCI 1,000TQP RG015380 | 10413 0162 00 0 00000 TQP 0 RG015390 | 10414 000000635121 BCI 1,000TRA RG015400 | 10415 0020 00 0 00000 TRA 0 RG015410 | 10416 000000636267 BCI 1,000TSX RG015420 10417 0074 00 0 00000 TSX 0,0 RG015430 | 10420 000000636351 BCI 1,000TTR RG015440 | 10421 0021 00 0 00000 TTR 0 RG015450 | 10422 000000636730 BCI 1,000TXH RG015460 | 10423 3 00000 0 00000 TXH 0,0,0 RG015470 10424 000000636731 BCI 1,000TXI RG015480 | 10425 1 00000 0 00000 TXI 0,0,0 RG015490 | 1 LISTING OF 12/01/64 PAGE 44 | TABLE OF INSTRUCTIONS | 10426 000000636743 BCI 1,000TXL RG015500 | 10427 -3 00000 0 00000 TXL 0,0,0 RG015510 | 10430 000000637125 BCI 1,000TZE RG015520 | 10431 0100 00 0 00000 TZE 0 RG015530 | 10432 000000642144 BCI 1,000UAM RG015540 10433 -0304 00 0 00000 UAM 0 RG015550 | 10434 000000642621 BCI 1,000UFA RG015560 | 10435 -0300 00 0 00000 UFA 0 RG015570 | 10436 000000642644 BCI 1,000UFM RG015580 | 10437 -0260 00 0 00000 UFM 0 RG015590 10440 000000642662 BCI 1,000UFS RG015600 | 10441 -0302 00 0 00000 UFS 0 RG015610 | 10442 000000646244 BCI 1,000USM RG015620 | 10443 -0306 00 0 00000 USM 0 RG015630 | 10444 000000652430 BCI 1,000VDH RG015640 10445 0224 00 0 00000 VDH 0,,0 RG015650 | 10446 000000652447 BCI 1,000VDP RG015660 | 10447 0225 00 0 00000 VDP 0,,0 RG015670 | 10450 000000654344 BCI 1,000VLM RG015680 | 10451 0204 00 0 00000 VLM 0,,0 RG015690 10452 000000672321 BCI 1,000XCA RG015700 | 10453 0131 00 0 00000 XCA RG015710 | 10454 000000672343 BCI 1,000XCL RG015720 | 10455 -0130 00 0 00000 XCL RG015730 | 10456 000000672523 BCI 1,000XEC RG015740 10457 0522 00 0 00000 XEC 0 RG015750 | 10460 000000712563 BCI 1,000ZET RG015760 | 10461 0520 00 0 00000 ZET 0 RG015770 | 10462 0 00456 0 00000 OPCDS PZE 0,,302 RG015780 | * RG015790 1 LISTING OF 12/01/64 PAGE 45 | TABLES | | * RG015810 | 03720 DSC EQU 2000 INPUT FIELD DEFINITION TABLE RG015820 10463 DSIF BSS DSC * RG015830 | 14403 0 03720 4 10463 DSIFM PZE DSIF,4,DSC * RG015840 | 14404 0 00000 4 10463 DSIFL PZE DSIF,4,0 CURRENT LOCATION OF FIELD RECORDS RG015850 | * RG015860 | 03720 DSF EQU 2000 OUTPUT FIELD DEFINITION TABLE RG015870 14405 DSOF BSS DSF * RG015880 | 20325 0 03722 4 14405 DSOFM PZE DSOF,4,DSF+2 MONITOR RG015890 | 20326 0 00000 4 14405 DSOFL PZE DSOF,4,0 * RG015900 | * RG015910 | 03720 P2JD2 EQU DSF RG015920 20325 FFTBL EQU DSOFM FIELD FORMAT TABLE RG015930 | * RG015940 | 00620 DSB EQU 400 INPUT RT TABLE RG015950 | 20327 DSIE BSS DSB * RG015960 | 21147 0 00622 0 00000 DSIEM PZE ,,DSB+2 MONITOR RG015970 * RG015980 | 00620 DSE EQU 400 OUTPUT RT TABLE RG015990 | 21150 DSOE BSS DSE * RG016000 | 21770 0 00620 4 21150 DSOEM PZE DSOE,4,DSE * RG016010 | * RG016020 00046 P2JC1 EQU 38 EACH REPORT TABLE RG016030 | 21771 ERTBL BSS P2JC1 * RG016040 | * INFORMATION RELATIVE TO EACH REPORT RG016050 | 22027 FILNO EQU ERTBL+30 FILE NUMBER RG016060 | 22030 STKSW EQU ERTBL+31 STACK INDICATOR RG016070 22031 RRSWT EQU ERTBL+32 RECORD INDICATOR RG016080 | 22032 PSWCH EQU ERTBL+33 PUNCH INDICATOR RG016090 | 22033 CNRLC EQU ERTBL+34 SYSTEM CONSTANT COUNT RG016100 | 22034 RPTNO EQU ERTBL+35 REPORT NUMBER RG016110 | 22035 HCCNT EQU ERTBL+36 NUMBER OF HAND CALCS RG016120 22036 HCRDS EQU ERTBL+37 NUMBER OF H C RECORDS ON 27 RG016130 | * RG016140 | 00620 P2JB5 EQU 400 LINE FORMAT TABLE RG016150 | 22657 LFTBL BES P2JB5 * RG016160 | 22657 0 00622 0 00000 PZE ,,P2JB5+2 MONITOR RG016170 * RG016180 | 00062 P2JB6 EQU 50 CONTROL BREAK TABLE RG016190 | 22742 CBTBL BES P2JB6 * RG016200 | 22742 0 00063 0 00000 PZE ,,P2JB6+1 MONITOR RG016210 | * RG016220 00702 P2JB9 EQU 450 SYMBOLIC COUNTER TABLE RG016230 | 23645 SCTBL BES P2JB9 * RG016240 | 23645 0 00705 0 00000 PZE ,,P2JB9+3 MONITOR RG016250 | * RG016260 | 00310 P2JC6 EQU 200 CONSTANT SYMBOL TABLE RG016270 24156 CNSYM BES P2JC6 * RG016280 | 24156 0 00312 0 00000 PZE ,,P2JC6+2 MONITOR RG016290 | * RG016300 | 01750 P2JD1 EQU 1000 CONSTANT INSTRUCTION TABLE RG016310 | 26127 CNINS BES P2JD1 * RG016320 26127 0 01752 0 00000 PZE ,,P2JD1+2 MONITOR RG016330 | 26130 512547330000 HCBUF BCI 1,REP.00 HAND CALC FLAG WORD RG016340 | 26131 0 00000 0 00000 HCNAM PZE NAME OF CURRENT CALC RG016350 | 1 LISTING OF 12/01/64 PAGE 46 | TABLES | 26132 0 00000 0 00000 HCIPT PZE CORRESPONDING INSERT POINT RG016360 | 26133 0 00000 0 00000 PZE EXTRA WORD RG016370 | * RG016380 | 01750 P2JC7 EQU 1000 HAND CALCULATION SYMBOL TABLE RG016390 30104 HCSYM BES P2JC7 * RG016400 | 30104 0 01750 0 00000 PZE ,,P2JC7 MONITOR RG016410 | * RG016420 | 01750 P2JC8 EQU 1000 HAND CALCULATION INSTRUCTION AREA RG016430 | 32055 HCINS BES P2JC8 * RG016440 32055 0 01752 0 00000 PZE ,,P2JC8+2 MONITOR RG016450 | * RG016460 | 01747 P2JC2 EQU 999 FIELD NAME TABLE RG016470 | 34025 FNTBL BES P2JC2 * RG016480 | 34025 0 01752 0 00000 PZE ,,P2JC2+3 MONITOR RG016490 * RG016500 | 00454 P2JC4 EQU 300 CALCULATION NAME TABLE RG016510 | 34502 CALTB BES P2JC4 * RG016520 | 34502 0 00456 0 00000 PZE ,,P2JC4+2 MONITOR RG016530 | * RG016540 01212 P2JC3 EQU 650 LITERAL TABLE RG016550 | 33267 ORG CALTB-P2JC3-1 * RG016560 | 34501 LTTBL BES P2JC3 * RG016570 | 34501 0 00000 0 00000 PZE MONITOR RG016580 | * RG016590 * RG016600 | * RG016610 | * RG016620 | * DICTIONARY FORMATION AREA RG016630 | 22660 ORG LFTBL+1 RG016640 11622 P2JC9 EQU CALTB-LFTBL-1 RG016650 | 22660 DICT BSS P2JC9 DICTIONARY TABLE RG016660 | 34502 0 11635 0 00000 DICTM PZE ,,P2JC9+11 MONITOR RG016670 | * RG016680 | * RG016690 * RG016700 | * RG016710 | 10463 ORG OPCDS+1 RG016720 | 03721 P2JB2 EQU DSC/2+DSF/2+1 GENERERATED SYMBOLS TABLE RG016730 | 14404 ICPSD BES P2JB2 * RG016740 14404 0 03723 0 00000 PZE ,,P2JB2+2 MONITOR RG016750 | * RG016760 | 03721 P2JB3 EQU P2JB2 SYMBOL NEEDED TABLE RG016770 | 20326 ICNPD BES P2JB3 * RG016780 | 20326 0 03723 0 00000 PZE ,,P2JB3+2 MONITOR RG016790 34503 ORG CALTB+1 RG016800 | 1 LISTING OF 12/01/64 PAGE 47 | ERROR SUBROUTINE | | 34503 0634 00 4 34526 ERROR SXA ER090,4 SAVE XR4 RG016830 34504 0074 00 4 34553 TSX TRACE,4 RECORD INFORMATION RG016840 | 34505 0534 00 4 34526 LXA ER090,4 RESTORE XR4 RG016850 | 34506 -0500 00 0 34552 CAL ERSWT STEP ERROR SWITCH BY ONE RG016860 | 34507 0400 00 0 06615 ADD ONE RG016870 | 34510 0602 00 0 34552 SLW ERSWT RG016880 34511 -0500 00 0 34530 CAL ER100 RG016890 | 34512 -0602 00 4 00001 ORS 1,4 RG016900 | 34513 -0500 00 0 34531 CAL ER101 UPDATE ERROR COUNT RG016910 | 34514 0400 00 0 06615 ADD ONE RG016920 | 34515 0602 00 0 34531 SLW ER101 RG016930 34516 -0340 00 0 34532 LAS ER102 TEST ERROR COUNT RG016940 | 34517 0020 00 0 34522 TRA *+3 RG016950 | 34520 0020 00 0 05630 TRA CLIST OK RG016960 | 34521 0020 00 0 05630 TRA CLIST OK RG016970 | 34522 0074 00 4 05642 TSX NLIST,4 TOO MANY ERRORS RG016980 34523 1 00010 0 34533 PON ER103,,8 RG016990 | 34524 0074 00 4 05646 TSX FLIST,4 WRITE MESSAGE ONLINE AND OFF RG017000 | 34525 1 00010 0 34533 PON ER103,,8 RG017010 | 34526 0774 00 4 00000 ER090 AXT **,4 RESTORE XR4 RG017020 | 34527 0020 00 0 05134 TRA DDEAD STOP GENERATION RG017030 34530 1 00000 1 00000 ER100 PON 0,1,0 RG017040 | 34531 0 00000 0 00000 ER101 PZE RG017050 | 34532 +000000000310 ER102 DEC 200 RG017060 | 34533 272545255121 ER103 BCI 8,GENERATION HALTED -- TOO MANY ERRORS RG017070 | 34534 633146456030 34535 214363252460 | 34536 404060634646 | 34537 604421457060 | 34540 255151465162 | 34541 606060606060 34542 606060606060 | 34543 234645243163 ER104 BCI 3,CONDITION IGNORED RG017080 | 34544 314645603127 | 34545 454651252460 | 34546 256725236463 ER105 BCI 4,EXECUTION IMPOSSIBLE RG017090 34547 314645603144 | 34550 474662623122 | 34551 432560606060 | 34552 0 00000 0 00000 ERSWT PZE 0 EXECUTION IMPOSSIBLE IF 100 OR MORE RG017100 | 1 LISTING OF 12/01/64 PAGE 48 TRACE SUBROUTINE | | * RECORDS LOCATIONS FROM LAST 80 ENTRIES INTO TRACE RG017120 | * RG017130 | 34553 -0520 00 0 34716 TRACE NZT DEBSW TEST FOR DEBUG RUN RG017140 34554 0020 00 4 00001 TRA 1,4 NO RG017150 | 34555 0634 00 4 34570 SXA TRC20,4 YES, RECORD LOCATION OF TSX RG017160 | 34556 0535 00 4 34570 LAC TRC20,4 RG017170 | 34557 0634 00 4 34572 SXA TRC21,4 RG017180 | 34560 -0534 00 4 34715 LXD TRCBF,4 RG017190 34561 2 00001 4 34563 TIX TRC10,4,1 RG017200 | 34562 0774 00 4 00120 AXT TRC90,4 RG017210 | 34563 -0634 00 4 34715 TRC10 SXD TRCBF,4 RG017220 | 34564 -0600 00 0 34573 STQ TRC22 SAVE MQ RG017230 | 34565 0560 00 0 34572 LDQ TRC21 RG017240 34566 -0600 00 4 34715 STQ TRCBF,4 RG017250 | 34567 0560 00 0 34573 LDQ TRC22 RESTORE MQ RG017260 | 34570 0774 00 4 00000 TRC20 AXT **,4 RG017270 | 34571 0020 00 4 00001 TRA 1,4 RETURN RG017280 | 34572 0 00000 0 00000 TRC21 PZE RG017290 34573 0 00000 0 00000 TRC22 PZE RG017300 | 34574 0 00000 0 00000 TRC23 PZE RG017310 | 00120 TRC90 EQU 80 RG017320 | 34715 TRCBF BES TRC90 BUFFER RG017330 | 34715 0 00000 0 00000 PZE MONITOR RG017340 34716 0 00000 0 00000 DEBSW PZE SETTING TO NONZERO CAUSES CKPNT DUMPS RG017350 | 34717 0634 00 1 34760 TDUMP SXA TDU90,1 SAVE XRS RG017360 | 34720 0634 00 2 34761 SXA TDU91,2 RG017370 | 34721 0634 00 4 34762 SXA TDU92,4 RG017380 | 34722 -0734 00 1 00000 PDX 0,1 RG017390 34723 0761 00 0 00000 NOP RG017400 | 34724 0634 00 1 34764 SXA TDU93,1 RG017410 | 34725 0400 00 0 34764 ADD TDU93 RG017420 | 34726 0621 00 0 34730 STA TDU10 RG017430 | 34727 0774 00 2 00022 TDU08 AXT 18,2 RG017440 34730 0560 00 1 00000 TDU10 LDQ **,1 RG017450 | 34731 -0754 00 0 00000 PXD 0,0 RG017460 | 34732 0774 00 4 00006 AXT 6,4 CONVERT TO BCD RG017470 | 34733 0767 00 0 00003 ALS 3 RG017480 | 34734 -0763 00 0 00003 LGL 3 RG017490 34735 2 00001 4 34733 TIX *-2,4,1 RG017500 | 34736 0602 00 2 35007 SLW TDBUF+18,2 RG017510 | 34737 -0754 00 0 00000 PXD 0,0 RG017520 | 34740 0774 00 4 00006 AXT 6,4 RG017530 | 34741 0767 00 0 00003 ALS 3 RG017540 34742 -0763 00 0 00003 LGL 3 RG017550 | 34743 2 00001 4 34741 TIX *-2,4,1 RG017560 | 34744 0602 00 2 35010 SLW TDBUF+19,2 RG017570 | 34745 -2 00003 2 34747 TNX *+2,2,3 TEST FOR FULL LINE RG017580 | 34746 2 00001 1 34730 TIX TDU10,1,1 NO, TEST FOR MORE WORDS RG017590 34747 0074 00 4 05646 TSX FLIST,4 WRITE WORD TO OFF LINE TAPE RG017600 | 34750 0 00022 0 34765 PZE TDBUF,,18 RG017610 | 34751 0774 00 2 00022 AXT 18,2 RG017620 | 34752 -0500 00 0 07001 CAL BLNKS RG017630 | 34753 0602 00 2 35007 SLW TDBUF+18,2 CLEAR OUT BUFFER RG017640 34754 2 00001 2 34753 TIX *-1,2,1 RG017650 | 34755 2 00001 1 34727 TIX TDU08,1,1 RG017660 | 1 LISTING OF 12/01/64 PAGE 49 | TRACE SUBROUTINE | 34756 0074 00 4 05646 TSX FLIST,4 LEAVE SPACE AFTER LAST WORD RG017670 | 34757 0 00006 0 34765 PZE TDBUF,,6 RG017680 | 34760 0774 00 1 00000 TDU90 AXT **,1 RESTORE XRS RG017690 | 34761 0774 00 2 00000 TDU91 AXT **,2 RG017700 | 34762 0774 00 4 00000 TDU92 AXT **,4 RG017710 34763 0020 00 4 00001 TRA 1,4 RETURN RG017720 | 34764 0 00000 0 00000 TDU93 PZE RG017730 | 34765 606060606060 TDBUF BCI 9, RG017740 | 34766 606060606060 | 34767 606060606060 34770 606060606060 | 34771 606060606060 | 34772 606060606060 | 34773 606060606060 | 34774 606060606060 34775 606060606060 | 34776 606060606060 BCI 9, RG017750 | 34777 606060606060 | 35000 606060606060 | 35001 606060606060 35002 606060606060 | 35003 606060606060 | 35004 606060606060 | 35005 606060606060 | 35006 606060606060 1 LISTING OF 12/01/64 PAGE 50 | END OF TAPE SUBROUTINE | | 35007 0020 00 0 06557 ENDTP TRA SCEOT GO TO CENTRAL END OF TAPE ROUTINE RG017770 | 1 LISTING OF 12/01/64 PAGE 51 SUBROUTINE TO FIND APPROXIMATION TO VALUE | | 35010 0634 00 1 35063 GUESS SXA GU030,1 SAVE XRS RG017790 | 35011 0634 00 4 35064 SXA GU031,4 RG017800 | 35012 0634 00 2 35065 SXA GU032,2 RG017810 35013 0602 00 0 35122 SLW GU900 SAVE VALUE BEING APPROXIMATED RG017820 | 35014 0500 00 4 00002 CLA 2,4 RG017830 | 35015 0734 00 2 00000 PAX 0,2 GET TABLE SIZE RG017840 | 35016 -0600 00 0 35125 STQ GU903 SAVE MASK RG017850 | 35017 -0500 00 4 00001 CAL 1,4 RG017860 35020 0622 00 0 35054 STD GU024 NO OF WORDS PER TABLE ENTRY RG017870 | 35021 0621 00 0 35027 STA GU010 LOCATION OF TABLE RG017880 | 35022 0600 00 0 35123 STZ GU901 INITIALIZE TEMPORARY CELLS RG017890 | 35023 -0625 00 0 35124 STL GU902 RG017900 | 35024 -0500 00 0 35122 GU008 CAL GU900 GET TABLE ENTRY RG017910 35025 -0520 60 0 35027 NZT* GU010 YEST FOR VALID ENTRY RG017920 | 35026 0020 00 0 35054 TRA GU024 NO RG017930 | 35027 0322 00 2 00000 GU010 ERA **,2 COMPARE TO TABLE ENTRY RG017940 | 35030 -0320 00 0 35125 ANA GU903 RG017950 | 35031 0774 00 4 00000 AXT 0,4 COMPUTE WEIGHT OF DIFFERENCE RG017960 35032 0774 00 1 00003 GU018 AXT 3,1 RG017970 | 35033 -0634 00 4 35042 SXD GU021,4 RG017980 | 35034 0100 00 0 35044 GU020 TZE GU022 RG017990 | 35035 0760 00 0 00001 LBT RG018000 | 35036 0020 00 0 35040 TRA *+2 RG018010 35037 1 00001 4 35040 TXI *+1,4,1 RG018020 | 35040 0771 00 0 00001 ARS 1 RG018030 | 35041 2 00001 1 35034 TIX GU020,1,1 RG018040 | 35042 -3 00000 4 35032 GU021 TXL GU018,4,** RG018050 | 35043 1 00001 4 35032 TXI GU018,4,1 RG018060 35044 0754 00 4 00000 GU022 PXA 0,4 WEIGHT FOUND RG018070 | 35045 -0340 00 0 35124 LAS GU902 COMPARE TO PREVIOUS APPROXIMATION RG018080 | 35046 0020 00 0 35054 TRA GU024 WORSE RG018090 | 35047 0020 00 0 35054 TRA GU024 SAME RG018100 | 35050 0601 00 0 35124 STO GU902 BETTER,UPDATE APPROXIMATE VALUE RG018110 35051 -0500 60 0 35027 CAL* GU010 RG018120 | 35052 -0320 00 0 35125 ANA GU903 RG018130 | 35053 0602 00 0 35123 SLW GU901 RG018140 | 35054 2 00000 2 35024 GU024 TIX GU008,2,** HAS COMPLETE TABLE BEEN TESTED RG018150 | 35055 -0500 00 0 35123 CAL GU901 YES RG018160 35056 0100 00 0 35063 TZE GU030 TEST FOR SUCCESSFUL GUESS RG018170 | 35057 0602 00 0 40601 SLW ERM95 YES, TELL USER OF ASSUMPTION RG018180 | 35060 0074 00 4 34503 TSX ERROR,4 RG018190 | 35061 -0 00007 0 40601 MZE ERM95,,7 RG018200 | 35062 0 00012 0 40610 PZE ERM96,,10 RG018210 35063 0774 00 1 00000 GU030 AXT **,1 RETURN RG018220 | 35064 0774 00 4 00000 GU031 AXT **,4 RG018230 | 35065 0774 00 2 00000 GU032 AXT **,2 RG018240 | 35066 -0500 00 0 35123 CAL GU901 RG018250 | 35067 0020 00 4 00003 TRA 3,4 RG018260 * RG018270 | * SUBROUTINE TO COMPARE TWO VALUES AND COMPUTE WHICH ONE IS BETTER RG018280 | * RG018290 | 35070 0634 00 1 35110 GU100 SXA GU150,1 SAVE XRS RG018300 | 35071 0634 00 2 35111 SXA GU151,2 RG018310 35072 0602 00 0 35121 SLW GU199 SAVE ENTRY RG018320 | 35073 0322 00 0 35122 ERA GU900 RG018330 | 1 LISTING OF 12/01/64 PAGE 52 | SUBROUTINE TO FIND APPROXIMATION TO VALUE | 35074 0774 00 2 00000 AXT 0,2 RG018340 | 35075 0774 00 1 00003 GU110 AXT 3,1 COMPUTE WEIGHT OF DIFFERENCE RG018350 | 35076 -0634 00 2 35105 SXD GU130,2 RG018360 | 35077 0100 00 0 35107 GU112 TZE GU140 RG018370 | 35100 0760 00 0 00001 LBT RG018380 35101 0020 00 0 35103 TRA *+2 RG018390 | 35102 1 00001 2 35103 TXI *+1,2,1 RG018400 | 35103 0771 00 0 00001 ARS 1 RG018410 | 35104 2 00001 1 35077 TIX GU112,1,1 RG018420 | 35105 -3 00000 2 35075 GU130 TXL GU110,2,** RG018430 35106 1 00001 2 35075 TXI GU110,2,1 RG018440 | 35107 0754 00 2 00000 GU140 PXA 0,2 COMPARE TO PREVIOUS APPROXIMATION RG018450 | 35110 0774 00 1 00000 GU150 AXT **,1 RG018460 | 35111 0774 00 2 00000 GU151 AXT **,2 RG018470 | 35112 -0340 00 0 35124 LAS GU902 RG018480 35113 0020 00 4 00001 TRA 1,4 WORSE RG018490 | 35114 0020 00 4 00001 TRA 1,4 SAME RG018500 | 35115 0602 00 0 35124 SLW GU902 BETTER, UPDATE WEIGHT FACTOR RG018510 | 35116 -0500 00 0 35121 CAL GU199 RG018520 | 35117 0602 00 0 35123 SLW GU901 SAVE BEST VALUE RG018530 35120 0020 00 4 00001 TRA 1,4 RETURN RG018540 | 35121 0 00000 0 00000 GU199 PZE RG018550 | 35122 0 00000 0 00000 GU900 PZE 0 VALUE BEING APPROXIMATED RG018560 | 35123 0 00000 0 00000 GU901 PZE 0 CLOSEST APPROXIMATION RG018570 | 35124 0 00000 0 00000 GU902 PZE 0 NUMERICAL WEIGHT OF APPROXIMATION RG018580 35125 0 00000 0 00000 GU903 PZE 0 VALUE MASK RG018590 | 1 LISTING OF 12/01/64 PAGE 53 | SUBROUTINE FOR BUILDING CONSTANTS | | * CALLING SEQUENCE RG018610 * L TSX STEPC,4 RG018620 | * L+1 PZE A,,D RG018630 | * A=ADDRESS OF LAST CONSTANT RG018640 | * D=NUMBER OF CONSTANTS RG018650 | * THE CONSTANTS USED ARE THE ONES BETWEEN A+1-D AND A RG018660 * RG018670 | 00144 CCSZE EQU 100 BUFFER SIZE FOR CONSTANTS RG018680 | 35126 3 00143 0 00000 CCBUF IORT **,,CCSZE-1 RG018690 | 35127 BSS CCSZE-1 * RG018700 | 35272 3 00143 0 00000 IORT **,,CCSZE-1 * RG018710 35273 BSS CCSZE-1 * RG018720 | 35436 3 00152 0 35126 IORT CCBUF,,CCSZE+6 RG018730 | 35437 0 00000 2 35126 CCCMD PZE CCBUF,2,0 * RG018740 | 35440 3 00152 0 35272 IORT CCBUF+CCSZE,,CCSZE+6 RG018750 | * RG018760 35441 0634 00 1 35516 STEPC SXA CC120,1 SAVE INDEX REGISTERS RG018770 | 35442 0634 00 2 35517 SXA CC121,2 * RG018780 | 35443 -0600 00 0 35522 STQ CC123 RG018790 | 35444 0634 00 4 35520 CC020 SXA CC122,4 * RG018800 | 35445 0500 00 4 00001 CLA 1,4 RG018810 35446 0761 00 0 00000 NOP RG018820 | 35447 -0734 00 1 00000 PDX 0,1 * RG018830 | 35450 -3 00000 1 35516 TXL CC120,1,0 * RG018840 | 35451 1 77777 1 35452 TXI *+1,1,-1 RG018850 | 35452 -0634 00 1 35511 SXD CC115,1 * RG018860 35453 0774 00 1 00000 AXT 0,1 INITIALIZE CONSTANT COUNTER RG018870 | 35454 0774 00 2 77634 CC080 AXT -CCSZE,2 INITIALIZE OUTPUT COUNTER RG018880 | 35455 0500 00 0 04402 CLA CCULC INITIALIZE CCULC COUNTER RG018890 | 35456 0340 00 0 04401 CC090 CAS ICULC COMPARE TO INSTRUCTION COUNTER RG018900 | 35457 1 00001 2 35472 TXI CC100,2,1 * RG018910 35460 0074 00 4 34503 TSX ERROR,4 NO CORE LEFT, ERROR RG018920 | 35461 0 00007 0 35463 PZE CC098,,7 RG018930 | 35462 0074 00 4 04000 TSX LOST,4 RG018940 | 35463 633025602725 CC098 BCI 7,THE GENERATED PROGRAM HAS EXCEEDED CORE RG018950 | 35464 452551216325 35465 246047514627 | 35466 512144603021 | 35467 626025672325 | 35470 252425246023 | 35471 465125606060 35472 0560 60 4 00001 CC100 LDQ* 1,4 GET CONSTANT RG018960 | 35473 -0600 60 0 35437 STQ* CCCMD MOVE TO OUTPUT AREA RG018970 | 35474 -3 77776 2 35507 TXL CC110,2,-2 RG018980 | 35475 0774 00 2 00000 AXT 0,2 RG018990 | 35476 0621 60 0 35437 STA* CCCMD YES, BUILD I/O COMMAND RG019000 35477 0601 00 0 04402 STO CCULC SAVE CCULC RG019010 | 35500 0074 00 4 05255 TSX RD(WR),4 WRITE TO TAPE RG019020 | 35501 -0 35437 1 00031 MZE 25,1,CCCMD RG019030 | 35502 0020 00 0 35504 TRA CC105 NORMAL RETURN RG019040 | 35503 0074 00 4 35007 TSX ENDTP,4 END OF TAPE RETURN RG019050 35504 0500 00 0 04402 CC105 CLA CCULC RESTORE COUNTERS RG019060 | 35505 0534 00 4 35520 LXA CC122,4 * RG019070 | 35506 -0774 00 2 00144 AXC CCSZE,2 * RG019080 | 35507 1 00001 1 35510 CC110 TXI *+1,1,1 INCREMENT CONSTANT COUNTER RG019090 | 1 LISTING OF 12/01/64 PAGE 54 SUBROUTINE FOR BUILDING CONSTANTS | | 35510 0402 00 0 06615 SUB ONE RG019100 | 35511 -3 00000 1 35456 CC115 TXL CC090,1,** TEST FOR MORE CONSTANTS RG019110 | 35512 0601 00 0 04402 STO CCULC UPDATE CCULC RG019120 35513 0400 00 0 06615 ADD ONE RG019130 | 35514 0634 00 2 35454 SXA CC080,2 RECORD OUTPUT AREA USED RG019140 | 35515 0560 00 0 35522 LDQ CC123 RG019150 | 35516 0774 00 1 00000 CC120 AXT **,1 RESTORE INDEX REGISTERS RG019160 | 35517 0774 00 2 00000 CC121 AXT **,2 * RG019170 35520 0774 00 4 00000 CC122 AXT **,4 * RG019180 | 35521 0020 00 4 00002 TRA 2,4 RETURN RG019190 | 35522 0 00000 0 00000 CC123 PZE 0 MQ STORAGE RG019200 | 1 LISTING OF 12/01/64 PAGE 55 | SUBROUTINE TO BUILD MASKS | * CALLING SEQUENCE RG019220 | * TSX STEPM,4 RG019230 | * PZE A A=LOCATION OF MASK RG019240 | * THE MASKS MUST BE ONES THAT ARE NOT ALTERED BY THE RG019250 * GENERATED PROGRAM RG019260 | * RG019270 | 35523 0634 00 1 35551 STEPM SXA MC120,1 SAVE XRS RG019280 | 35524 0634 00 2 35552 SXA MC121,2 RG019290 | 35525 0634 00 4 35553 SXA MC122,4 RG019300 35526 0761 00 0 00000 NOP RG019310 | 35527 0774 00 2 00310 AXT P2JD3,2 TEST FOR MASK ALREADY AVAILABLE RG019320 | 35530 -0500 60 4 00001 CAL* 1,4 RG019330 | 35531 0100 00 0 35543 TZE MC090 RG019340 | 35532 -0340 00 2 36065 LAS MSKTB,2 RG019350 35533 0020 00 0 35535 TRA *+2 RG019360 | 35534 0020 00 0 35550 TRA MC100 YES, GO GET LOCATION RG019370 | 35535 2 00002 2 35532 TIX *-3,2,2 RG019380 | 35536 -0534 00 2 36065 LXD MSKTB,2 RG019390 | 35537 2 00002 2 35541 TIX *+2,2,2 RG019400 35540 0774 00 2 00310 AXT P2JD3,2 RG019410 | 35541 -0634 00 2 36065 SXD MSKTB,2 RG019420 | 35542 0602 00 2 36065 SLW MSKTB,2 NO, MAKE ENTRY TO MSKTB RG019430 | 35543 0500 00 4 00001 MC090 CLA 1,4 R RG019440 | 35544 0621 00 0 35546 STA *+2 RG019450 35545 0074 00 4 35441 TSX STEPC,4 GO TO STEPC TO ASSIGN LOCATION RG019460 | 35546 0 00001 0 00000 PZE **,,1 RG019470 | 35547 0601 00 2 36066 STO MSKTB+1,2 RG019480 | 35550 0500 00 2 36066 MC100 CLA MSKTB+1,2 GET LOCATION OF MASK RG019490 | 35551 0774 00 1 00000 MC120 AXT **,1 RESTORE XRS RG019500 35552 0774 00 2 00000 MC121 AXT **,2 RG019510 | 35553 0774 00 4 00000 MC122 AXT **,4 RG019520 | 35554 0020 00 4 00002 TRA 2,4 RETURN RG019530 | 00310 P2JD3 EQU 200 MASK TABLE RG019540 | 36065 MSKTB BES P2JD3 RG019550 36065 0 00312 0 00000 PZE ,,P2JD3+2 MONITOR RG019560 | 1 LISTING OF 12/01/64 PAGE 56 | SUBROUTINE TO PUT MISSING ADDRESS ES TO TAPE | | 36066 0634 00 1 36130 MAPUT SXA MA140,1 SAVE XRS RG019580 36067 0634 00 2 36131 SXA MA140+1,2 RG019590 | 36070 0634 00 4 36132 SXA MA140+2,4 RG019600 | 36071 0774 00 1 03721 AXT P2JB3,1 INITIALIZE XRS FOR NPD SCAN RG019610 | 36072 0774 00 2 03723 AXT P2JB3+2,2 RG019620 | 36073 -0500 00 1 20326 MA110 CAL ICNPD,1 RG019630 36074 -0340 00 0 66172 LAS ADMSK TEST FOR SYMBOL RG019640 | 36075 1 77776 2 36120 TXI MA130,2,-2 YES,GO CONCATENATE ENTRY RG019650 | 36076 0074 00 4 04000 TSX LOST,4 RG019660 | 36077 -0534 00 4 36323 LXD MABUF,4 NO,PUT TO OUTPUT BUFFER RG019670 | 36100 2 00002 4 36111 TIX MA120,4,2 RG019680 36101 0634 00 2 36106 SXA MA112,2 RG019690 | 36102 0074 00 2 40565 TSX IC500,2 RG019700 | 36103 -0754 00 0 00000 PXD 0,0 RG019710 | 36104 0621 00 0 36131 STA MA140+1 RG019720 | 36105 0074 00 4 36134 TSX MA200,4 RG019730 36106 0774 00 2 00000 MA112 AXT **,2 RG019740 | 36107 0774 00 4 00144 MA114 AXT P2JD4,4 RG019750 | 36110 -0500 00 1 20326 CAL ICNPD,1 RG019760 | 36111 -0634 00 4 36323 MA120 SXD MABUF,4 UPDATE BUFFER MONITOR RG019770 | 36112 0602 00 4 36323 SLW MABUF,4 RG019780 36113 -0500 00 1 20327 CAL ICNPD+1,1 RG019790 | 36114 0602 00 4 36324 SLW MABUF+1,4 RG019800 | 36115 0600 00 1 20326 STZ ICNPD,1 ZERO DELETED ENTRY RG019810 | 36116 0600 00 1 20327 STZ ICNPD+1,1 RG019820 | 36117 0020 00 0 36125 TRA MA134 RG019830 36120 0600 00 1 20326 MA130 STZ ICNPD,1 CONCATENATE SYMBOLIC RESIDUE RG019840 | 36121 0602 00 2 20326 SLW ICNPD,2 RG019850 | 36122 -0500 00 1 20326 CAL ICNPD,1 RG019860 | 36123 0600 00 1 20327 STZ ICNPD+1,1 RG019870 | 36124 0602 00 2 20326 SLW ICNPD,2 RG019880 36125 0520 00 1 20330 MA134 ZET ICNPD+2,1 TEST FOR MORE NPD ENTRIES RG019890 | 36126 2 00002 1 36073 TIX MA110,1,2 RG019900 | 36127 -0634 00 2 20326 SXD ICNPD,2 ADJUST NPD MONITOR RG019910 | 36130 0774 00 1 00000 MA140 AXT **,1 RESTORE XRS RG019920 | 36131 0774 00 2 00000 AXT **,2 RG019930 36132 0774 00 4 00000 AXT **,4 RG019940 | 36133 0020 00 4 00001 TRA 1,4 RETURN RG019950 | 36134 0634 00 4 36154 MA200 SXA MA220,4 RG019960 | 36135 0535 00 4 04500 LAC SYMTAP-25,4 RG019970 | 36136 0520 00 4 00001 ZET 1,4 RG019980 36137 0020 00 0 36136 TRA *-1 RG019990 | 36140 -0535 00 4 36323 LDC MABUF,4 RG020000 | 36141 1 00146 4 36142 TXI *+1,4,P2JD4+2 RG020010 | 36142 -3 00000 4 36154 TXL MA220,4,0 RG020020 | 36143 0761 00 0 00000 NOP RG020030 36144 0074 00 4 05255 TSX RD(WR),4 RG020040 | 36145 -0 36324 0 00031 MZE 25,,MACMD RG020050 | 36146 0020 00 0 36150 TRA *+2 RG020060 | 36147 0074 00 4 35007 TSX ENDTP,4 RG020070 | 36150 0074 00 4 05013 TSX STZLUP,4 ZERO BUFFER RG020080 36151 0 00144 0 36323 PZE MABUF,,P2JD4 RG020090 | 36152 0774 00 4 00146 AXT P2JD4+2,4 RG020100 | 36153 -0634 00 4 36323 SXD MABUF,4 RG020110 | 36154 0774 00 4 00000 MA220 AXT **,4 RG020120 | 1 LISTING OF 12/01/64 PAGE 57 SUBROUTINE TO PUT MISSING ADDRESS ES TO TAPE | | 36155 0020 00 4 00001 TRA 1,4 RG020130 | 00144 P2JD4 EQU 100 MISSING ADDRESS BUFFER RG020140 | 36156 3 00144 0 10324 IORT P3C12,,P2JD4 * RG020150 36323 MABUF BES P2JD4 * RG020160 | 36323 0 00146 0 00000 PZE ,,P2JD4+2 MONITOR RG020170 | 36324 3 00152 0 36156 MACMD IORT MABUF-P2JD4-1,,P2JD4+6 RG020180 | 1 LISTING OF 12/01/64 PAGE 58 | SUBROUTINE TO BUILD INSTRUCTION TO GET INPUT | * CALLING SEQUENCE RG020200 | * TSX P2GET,4 RG020210 | * P P=PZE IMPLIES LEAVE VALUE IN INPUT BUFFER RG020220 | * THE GENERATED INSTRUCTIONS ASSUME XR1 LOCATES INPUT RG020230 * RG020240 | 36325 0634 00 1 36524 P2GET SXA P2G90,1 SAVE XRS RG020250 | 36326 0634 00 2 36525 SXA P2G91,2 RG020260 | 36327 0634 00 4 36526 SXA P2G92,4 RG020270 | 36330 0500 00 4 00001 CLA 1,4 RG020280 36331 0074 00 4 34553 TSX TRACE,4 RG020290 | 36332 0604 00 0 36532 STI P2G93 RG020300 | 36333 0441 00 0 07165 LDI PARA+3 INITIALIZE RG020310 | 36334 0774 00 2 00000 AXT 0,2 RG020320 | 36335 -0057 00 777077 RIL 777077 RG020330 36336 -0120 00 0 36340 TMI *+2 RG020340 | 36337 -0055 00 000001 SIL 000001 RG020350 | 36340 -0500 00 0 07166 CAL PARA+4 RG020360 | 36341 -0765 00 0 00032 LGR 26 RG020370 | 36342 0602 00 0 36534 SLW P2WI RG020380 36343 -0754 00 0 00000 PXD 0,0 RG020390 | 36344 -0763 00 0 00012 LGL 10 RG020400 | 36345 0602 00 0 36535 SLW P2BI RG020410 | 36346 -0754 00 0 00000 PXD 0,0 RG020420 | 36347 -0763 00 0 00012 LGL 10 RG020430 36350 0602 00 0 36536 SLW P2LI RG020440 | 36351 -0773 00 0 00005 RQL 5 IS INPUT BCD OR BINARY RG020450 | 36352 0162 00 0 36367 TQP P2G04 RG020460 | * RG020470 | * INPUT FIELD IS BINARY RG020480 * RG020490 | 36353 0500 00 0 36534 CLA P2WI IS SIGN TO BE REVERSED RG020500 | 36354 0621 00 0 36556 STA P2GP9 RG020510 | 36355 0621 00 0 36557 STA P2GP9+1 RG020520 | 36356 -0500 00 0 36557 CAL P2GP9+1 NO, BUILD CLA WORD,1 RG020530 36357 -0054 00 000700 LFT 000700 RG020540 | 36360 -0500 00 0 36556 CAL P2GP9 YES, BUILD CLS WORD,1 RG020550 | 36361 0602 00 2 36776 SLW TWA,2 RG020560 | 36362 -0056 00 000001 LNT 000001 IS VALUE TO BE FORMATTED RG020570 | 36363 1 77777 2 36522 TXI P2G80,2,-1 NO RG020580 36364 -0500 00 0 36554 CAL P2GP8 YES, BUILD STO BINBUF RG020590 | 36365 0602 00 2 36777 SLW TWA+1,2 RG020600 | 36366 1 77776 2 36522 TXI P2G80,2,-2 RG020610 | 36367 0402 00 0 06660 P2G04 SUB TEN+26 RG020620 | 36370 -0120 00 0 36436 TMI P2G30 RG020630 36371 0100 00 0 36436 TZE P2G30 RG020640 | * RG020650 | * BCD FIELD GREATER THAN ONE WORD IN LENGTH RG020660 | * RG020670 | 36372 0500 00 0 36535 CLA P2BI CONVERT LENGTH TO WORDS RG020680 36373 0400 00 0 36536 ADD P2LI RG020690 | 36374 0131 00 0 00000 XCA RG020700 | 36375 -0754 00 0 00000 PXD 0,0 RG020710 | 36376 0221 00 0 06660 DVP TEN+26 COMPUTE SHIFT RG020720 | 36377 -0763 00 0 00022 LGL 18 RG020730 36400 0602 00 0 36545 SLW P2GP3+4 RG020740 | 1 LISTING OF 12/01/64 PAGE 59 | SUBROUTINE TO BUILD INSTRUCTION TO GET INPUT | | 36401 -0600 00 0 36544 STQ P2GP3+3 RG020750 36402 -0100 00 0 36405 TNZ P2G10 TEST SHIFT RG020760 | * CASE 1,NO SHIFT NEEDED, FIELD RIGHT JUSTIFIED RG020770 | 36403 0560 00 0 36541 LDQ P2GP3 BUILD TSX GET001,4 RG020780 | 36404 0020 00 0 36412 TRA P2G16 RG020790 | 36405 0771 00 0 00022 P2G10 ARS 18 RG020800 36406 0340 00 0 36535 CAS P2BI RG020810 | 36407 0020 00 0 36431 TRA P2G20 RG020820 | 36410 0020 00 0 36411 TRA *+1 RG020830 | * CASE 3,EXTRA WORD NOT NEEDED AFTER SHIFT RG020840 | 36411 0560 00 0 36543 LDQ P2GP3+2 BUILD TSX GET003,4 RG020850 36412 0500 00 0 06660 P2G16 CLA TEN+26 RG020860 | 36413 0402 00 0 36535 P2G18 SUB P2BI RG020870 | 36414 -0600 00 2 36776 STQ TWA,2 RG020880 | 36415 0734 00 4 00000 PAX 0,4 BUILD MASK RG020890 | 36416 -0500 00 0 07077 CAL BCD77 RG020900 36417 0771 00 4 00044 ARS 36,4 RG020910 | 36420 0602 00 0 36533 SLW P2G99 RG020920 | 36421 0074 00 4 35523 TSX STEPM,4 RG020930 | 36422 0 00000 0 36533 PZE P2G99 RG020940 | 36423 -0501 00 0 36545 ORA P2GP3+4 BUILD CALLING SEQUENCE RG020950 36424 0602 00 2 37000 SLW TWA+2,2 RG020960 | 36425 -0500 00 0 36544 CAL P2GP3+3 RG020970 | 36426 -0501 00 0 36534 ORA P2WI RG020980 | 36427 0602 00 2 36777 SLW TWA+1,2 RG020990 | 36430 1 77775 2 36516 TXI P2G42,2,-3 RG021000 * CASE 2,EXTRA WORD STILL NEEDED AFTER SHIFT RG021010 | 36431 -0534 00 4 36544 P2G20 LXD P2GP3+3,4 BUILD TSX GET002,4 RG021020 | 36432 1 00001 4 36433 TXI *+1,4,1 UPDATE LENGTH RG021030 | 36433 -0634 00 4 36544 SXD P2GP3+3,4 RG021040 | 36434 0560 00 0 36542 LDQ P2GP3+1 RG021050 36435 0020 00 0 36413 TRA P2G18 RG021060 | * RG021070 | * BCD FIELD LESS THAN OR EQUAL TO ONE WORD RG021080 | * RG021090 | 36436 -0500 00 0 36534 P2G30 CAL P2WI LOCATE WORD RG021100 36437 0621 00 0 36546 STA P2GP4 RG021110 | 36440 0400 00 0 06615 ADD ONE RG021120 | 36441 0621 00 0 36547 STA P2GP4+1 RG021130 | 36442 -0500 00 0 36546 CAL P2GP4 RG021140 | 36443 0602 00 2 36776 SLW TWA,2 BUILD CAL WORD,1 RG021150 36444 0500 00 0 06660 CLA TEN+26 RG021160 | 36445 0402 00 0 36536 SUB P2LI RG021170 | 36446 0402 00 0 36535 SUB P2BI RG021180 | 36447 0340 00 0 06614 CAS ZERO DOES FIELD OVERLAP WORD RG021190 | 36450 1 77777 2 36461 TXI P2G32,2,-1 RG021200 36451 1 77777 2 36464 TXI P2G34,2,-1 RG021210 | 36452 0621 00 0 36550 STA P2GP4+2 YES, BUILD LDQ WORD+1(4 RG021220 | 36453 -0500 00 0 36547 CAL P2GP4+1 RG021230 | 36454 0602 00 2 36777 SLW TWA+1,2 RG021240 | 36455 -0500 00 0 36550 CAL P2GP4+2 BUILD LGL L+B-36 RG021250 36456 0602 00 2 37000 SLW TWA+2,2 RG021260 | 36457 0534 00 4 36536 LXA P2LI,4 RG021270 | 36460 1 77775 2 36466 TXI P2G36,2,-3 RG021280 | * RG021290 | 1 LISTING OF 12/01/64 PAGE 60 SUBROUTINE TO BUILD INSTRUCTION TO GET INPUT | | 36461 -0501 00 0 10021 P2G32 ORA HCARS FIELD RIGHT JUSTIFIED RG021300 | 36462 0602 00 2 36776 SLW TWA,2 BUILD ARS 36-B-L RG021310 | 36463 1 77777 2 36464 TXI P2G34,2,-1 RG021320 36464 0534 00 4 36536 P2G34 LXA P2LI,4 RG021330 | 36465 3 00043 4 36476 TXH P2G38,4,35 IS A MASK NECESSARY RG021340 | 36466 -0500 00 0 07077 P2G36 CAL BCD77 YES RG021350 | 36467 0771 00 4 00044 ARS 36,4 RG021360 | 36470 0602 00 0 36533 SLW P2G99 COMPUTE MASK RG021370 36471 0074 00 4 35523 TSX STEPM,4 RG021380 | 36472 0 00000 0 36533 PZE P2G99 RG021390 | 36473 -0501 00 0 10015 ORA HCANA RG021400 | 36474 0602 00 2 36776 SLW TWA,2 BUILD ANA MASK RG021410 | 36475 1 77777 2 36476 TXI *+1,2,-1 RG021420 36476 -0054 00 000700 P2G38 LFT 000700 TEST SIGN REVERSAL RG021430 | 36477 -0056 00 000001 LNT 000001 YES, CAN ERA BE USED RG021440 | 36500 0020 00 0 36507 TRA P2G40 NO RG021450 | 36501 0074 00 4 35523 TSX STEPM,4 YES, BUILD ERA MINUS RG021460 | 36502 0 00000 0 06654 PZE MINUS RG021470 36503 -0501 00 0 10063 ORA HCERA RG021480 | 36504 0602 00 2 36776 SLW TWA,2 RG021490 | 36505 -0057 00 000700 RIL 000700 RG021500 | 36506 1 77777 2 36507 TXI *+1,2,-1 RG021510 | 36507 -0056 00 000001 P2G40 LNT 000001 IS VALUE TO BE FORMATTED RG021520 36510 0020 00 0 36516 TRA P2G42 NO RG021530 | 36511 -0500 00 0 36555 CAL P2GP8+1 YES, BUILD SLW BCDBUF RG021540 | 36512 0602 00 2 36776 SLW TWA,2 RG021550 | 36513 -0500 00 0 36553 CAL P2GP7 BUILD STZ BCDBUF-1 RG021560 | 36514 0602 00 2 36777 SLW TWA+1,2 RG021570 36515 1 77776 2 36516 TXI *+1,2,-2 RG021580 | 36516 -0054 00 000700 P2G42 LFT 000700 TEST FOR SIGN REVERSAL RG021590 | 36517 0020 00 0 36521 TRA *+2 RG021600 | 36520 -0500 00 0 36552 CAL P2GP6 YES, BUILD TSX BCDCHS,4 RG021610 | 36521 0602 00 2 36776 SLW TWA,2 RG021620 36522 0500 00 2 06614 P2G80 CLA ZERO,2 RG021630 | 36523 0601 00 0 36540 STO WDCNT RG021640 | 36524 0774 00 1 00000 P2G90 AXT **,1 RESTORE XRS RG021650 | 36525 0774 00 2 00000 P2G91 AXT **,2 RG021660 | 36526 0774 00 4 00000 P2G92 AXT **,4 RG021670 36527 0441 00 0 36532 LDI P2G93 RG021680 | 36530 0560 00 0 06614 LDQ ZERO RG021690 | 36531 0020 00 4 00002 TRA 2,4 RETURN RG021700 | 36532 0 00000 0 00000 P2G93 PZE RG021710 | 36533 0 00000 0 00000 P2G99 PZE RG021720 * RG021730 | 36534 0 00000 0 00000 P2WI PZE INPUT WORD RG021740 | 36535 0 00000 0 00000 P2BI PZE INPUT BIT RG021750 | 36536 0 00000 0 00000 P2LI PZE INPUT LENGTH RG021760 | 36537 0 00000 0 00000 P2MI PZE INPUT MODE RG021770 36540 0 00000 0 00000 WDCNT PZE NUMBER OF INSTRUCTIONS RG021780 | * P2GET INSTRUCTIONS RG021790 | 36541 0074 00 4 73723 P2GP3 TSX GET001,4 GET SUBROUTINES RG021800 | 36542 0074 00 4 73670 TSX GET002,4 * RG021810 | 36543 0074 00 4 73640 TSX GET003,4 * RG021820 36544 0 00000 0 00000 PZE **,,** * RG021830 | 36545 0 00000 0 00000 PZE **,,** * RG021840 | 1 LISTING OF 12/01/64 PAGE 61 | SUBROUTINE TO BUILD INSTRUCTION TO GET INPUT | * RG021850 | 36546 -0500 00 1 00000 P2GP4 CAL **,1 PICK UP BCD FIELD RG021860 | 36547 0560 00 1 00000 LDQ **,1 * RG021870 | 36550 -0763 00 0 00000 LGL ** * RG021880 | 36551 -0320 00 0 00000 ANA ** * RG021890 * RG021900 | 36552 0074 00 4 73024 P2GP6 TSX BCDCHS,4 CHANGE SIGN OF BCD FIELD RG021910 | * RG021920 | 36553 0600 00 0 73022 P2GP7 STZ BCDBUF-1 PROVIDE LEADING ZEROES RG021930 | * RG021940 36554 0601 00 0 73005 P2GP8 STO BINBUF PUT TO BUFFER RG021950 | 36555 0602 00 0 73023 SLW BCDBUF * RG021960 | * RG021970 | 36556 0502 00 1 00000 P2GP9 CLS **,1 PICK UP BINARY FIELD AND CHANGE FIELD RG021980 | 36557 0500 00 1 00000 CLA **,1 PICK UP BINARY FIELD AS IS RG021990 1 LISTING OF 12/01/64 PAGE 62 | BCD TO BINARY CONVERSION SUBROUTINE | | 36560 0634 00 1 36601 BCDBIC SXA *+17,1 RG022010 | 36561 0774 00 1 00006 AXT 6,1 RG022020 36562 -0500 00 0 07101 CAL K1717 RG022030 | 36563 0320 60 4 00001 ANS* 1,4 RG022040 | 36564 0600 00 0 36603 STZ BCDBIS RG022050 | 36565 0560 00 0 06614 LDQ ZEROS RG022060 | 36566 0500 60 4 00001 CLA* 1,4 RG022070 36567 -0765 00 0 00006 LGR 6 RG022080 | 36570 0601 60 4 00001 STO* 1,4 RG022090 | 36571 -0773 00 0 00006 RQL 6 RG022100 | 36572 0200 00 1 36725 MPY TABLE1+6,1 RG022110 | 36573 -0130 00 0 00000 XCL RG022120 36574 0400 00 0 36603 ADD BCDBIS RG022130 | 36575 0601 00 0 36603 STO BCDBIS RG022140 | 36576 2 00001 1 36565 TIX BCDBIC+5,1,1 RG022150 | 36577 0500 00 0 36603 CLA BCDBIS RG022160 | 36600 0601 60 4 00001 STO* 1,4 RG022170 36601 0774 00 1 00000 AXT 0,1 RG022180 | 36602 0020 00 4 00002 TRA 2,4 RG022190 | 36560 BCDBI SYN BCDBIC RG022200 | 36603 0 00000 0 00000 BCDBIS PZE RG022210 | 1 LISTING OF 12/01/64 PAGE 63 BINARY TO BCD CONVERSION SUBROUTINE | | 36604 0634 00 4 36627 XBIBCD SXA XBI190,4 SAVE XRS RG022230 | 36605 0634 00 2 36630 SXA XBI191,2 RG022240 | 36606 0500 00 4 00001 CLA 1,4 PROCESS CALLING SEQUENCE RG022250 36607 -0737 00 2 00000 PDC 0,2 RG022260 | 36610 0500 60 4 00001 CLA* 1,4 LOAD VALUE RG022270 | 36611 0600 00 2 00000 STZ 0,2 ZERO BCD STORAGE RG022280 | 36612 -0100 00 0 36615 TNZ *+3 RG022290 | 36613 0534 00 2 36630 LXA XBI191,2 RETURN IF VALUE IS ZERO RG022300 36614 0020 00 4 00002 TRA 2,4 RG022310 | 36615 0131 00 0 00000 XCA RG022320 | 36616 0774 00 4 00044 AXT 36,4 INITIALIZE LOOP RG022330 | 36617 0162 00 0 36622 TQP XBI110 TEST FOR MINUS VALUE RG022340 | 36620 0500 00 0 06654 CLA MINUS YES, INSERT SIGN RG022350 36621 0601 00 2 00000 STO 0,2 RG022360 | 36622 0754 00 0 00000 XBI110 PXA 0,0 CLEAR AC RG022370 | 36623 0221 00 0 06626 DVP TEN CONVERT TO BCD RG022380 | 36624 0767 00 4 00044 ALS 36,4 RG022390 | 36625 -0602 00 2 00000 ORS 0,2 RG022400 36626 2 00006 4 36622 TIX XBI110,4,6 RG022410 | 36627 0774 00 4 00000 XBI190 AXT **,4 RESTORE XRS RG022420 | 36630 0774 00 2 00000 XBI191 AXT **,2 RG022430 | 36631 0131 00 0 00000 XCA TEST FOR VALUE TOO LARGE RG022440 | 36632 0100 00 4 00002 TZE 2,4 NO, RETURN RG022450 36633 0074 00 4 34503 TSX ERROR,4 YES, WRITE ERROR MESSAGE RG022460 | 36634 0 00006 0 36637 PZE XBIERR,,6 RG022470 | 36635 0534 00 4 36627 LXA XBI190,4 RG022480 | 36636 0020 00 4 00002 TRA 2,4 RETURN RG022490 | 36637 223145215170 XBIERR BCI 6,BINARY VALUE TOO LARGE FOR XBIBCD RG022500 36640 606521436425 | 36641 606346466043 | 36642 215127256026 | 36643 465160672231 | 36644 222324606060 1 LISTING OF 12/01/64 PAGE 64 | BCD TO BINARY SUBROUTINE FOR 10 DIGITS | | 36645 0634 00 4 36702 FUBCDB SXA *+29,4 RG022520 | 36646 0774 00 4 00006 AXT 6,4 RG022530 36647 0600 00 0 36716 STZ COTEMP RG022540 | 36650 -0500 00 0 36715 CAL T2 RG022550 | 36651 0560 00 0 06614 LDQ ZEROS RG022560 | 36652 -0765 00 0 00006 LGR 6 RG022570 | 36653 -0773 00 0 00006 RQL 6 RG022580 36654 0601 00 0 36715 STO T2 RG022590 | 36655 -0754 00 0 00000 PXD 0,0 RG022600 | 36656 0200 00 4 36725 MPY TABLE1+6,4 RG022610 | 36657 0131 00 0 00000 XCA RG022620 | 36660 0400 00 0 36716 ADD COTEMP RG022630 36661 0601 00 0 36716 STO COTEMP RG022640 | 36662 2 00001 4 36650 TIX FUBCDB+3,4,1 RG022650 | 36663 0774 00 4 00004 AXT 4,4 RG022660 | 36664 -0500 00 0 36714 CAL T1 RG022670 | 36665 0560 00 0 06614 LDQ ZEROS RG022680 36666 -0765 00 0 00006 LGR 6 RG022690 | 36667 -0773 00 0 00006 RQL 6 RG022700 | 36670 0601 00 0 36714 STO T1 RG022710 | 36671 -0754 00 0 00000 PXD 0,0 RG022720 | 36672 0200 00 4 36731 MPY TABLE2+4,4 RG022730 36673 0131 00 0 00000 XCA RG022740 | 36674 0400 00 0 36716 ADD COTEMP RG022750 | 36675 0601 00 0 36716 STO COTEMP RG022760 | 36676 2 00001 4 36664 TIX *-10,4,1 RG022770 | 36677 0500 00 0 36714 CLA T1 RG022780 36700 0100 00 0 36702 TZE *+2 RG022790 | 36701 0074 00 4 36704 TSX CONVER,4 RG022800 | 36702 0774 00 4 00000 AXT 0,4 RG022810 | 36703 0020 00 4 00001 TRA 1,4 RG022820 | 36704 0634 00 4 36711 CONVER SXA *+5,4 RG022830 36705 0500 00 0 06615 CLA MCA1 RG022840 | 36706 -0602 00 0 34552 ORS ERSWT RG022850 | 36707 0074 00 4 34503 TSX ERROR,4 RG022860 | 36710 0 00007 0 37757 PZE ERM20,,7 RG022870 | 36711 0774 00 4 00000 AXT 0,4 RG022880 36712 0020 00 4 00001 TRA 1,4 RG022890 | 36713 0 00000 0 00000 IOCD 0,0,0 RG022900 | 36714 0 00000 0 00000 T1 PZE RG022910 | 36715 0 00000 0 00000 T2 PZE RG022920 | 36716 0 00000 0 00000 COTEMP PZE RG022930 36717 +000000000001 TABLE1 DEC 1 RG022940 | 36720 +000000000012 DEC 10 RG022950 | 36721 +000000000144 DEC 100 RG022960 | 36722 +000000001750 DEC 1000 RG022970 | 36723 +000000023420 DEC 10000 RG022980 36724 +000000303240 DEC 100000 RG022990 | 36725 +000003641100 TABLE2 DEC 1000000 RG023000 | 36726 +000046113200 DEC 10000000 RG023010 | 36727 +000575360400 DEC 100000000 RG023020 | 36730 +007346545000 DEC 1000000000 RG023030 1 LISTING OF 12/01/64 PAGE 65 | MISCELLANEOUS CONSTANTS, COMMANDS, AND MASKS | | 36731 0 00000 0 00000 FFTEMP PZE TEMPORARY STORAGE FOR FIELD LENGTH RG023050 | 36732 0 00000 0 00000 LENGST PZE LENGTH STORAGE RG023060 36733 000000606060 E6215 BCI 1,000 3 BLANKS RG023070 | 36734 OUTENT BSS 3 TEMPORARY STORAGE FOR OUTPUT ENTRIES RG023080 | 36737 0 00000 0 00000 LSTLNO PZE RG023090 | 36740 0 00000 0 37031 ICOM1 PZE COMMON RG023100 | 36741 0 00000 0 37037 ICOM6 PZE COMMON+6 RG023110 * GORDONS CLOSE GAP CONSTANTS AND AREAS RG023120 | 36742 0 00000 0 07173 LOCTAR PZE TEMPAR-1 RG023130 | 36743 606060000000 KBLNK BCI 1, 000 RG023140 | 36744 +130000000000 LFTEQ OCT 130000000000 RG023150 | 36745 +000000000001 ACNCTR DEC 1 RG023160 36746 +240000000000 DCON OCT 240000000000 RG023170 | 36747 +300000000000 HCON OCT 300000000000 RG023180 | 36750 -230000000000 TCON OCT 630000000000 RG023190 | 36751 -300000000000 YCON OCT 700000000000 RG023200 | 36752 +000006000000 EDD06 OCT 000006000000 00 00 06 00 00 00 ONLY RG023210 36753 +000000000060 CONBL OCT 000000000060 RG023220 | 36754 +006000000000 BLCON OCT 006000000000 RG023230 | 36755 -206000000000 BBLNK OCT 606000000000 RG023240 | 36756 +000000000000 CONL OCT 000000000000 TO CORRECT L CONSTANT TO O ZERO RG023250 | 36757 +000001000041 EDMK05 OCT 000001000041 RG023260 36760 +000000000041 EDMK06 OCT 000000000041 RG023270 | 36761 +000000000600 EDMK07 OCT 000000000600 RG023280 | 36762 -007700000000 EDMK10 OCT 407700000000 RG023290 | 36763 +000100000000 EDMK13 OCT 000100000000 RG023300 | 36764 +000000000040 EDMK15 OCT 000000000040 RG023310 36765 -377600000000 EDMK20 OCT 777600000000 RG023320 | 36766 +070000000000 EDMK22 OCT 070000000000 RG023330 | 36767 -377400000000 EDMK23 OCT 777400000000 RG023340 | 36770 0 00000 0 00000 LENTMP PZE TEMPORARY STORAGE RG023350 | 36771 -0 00003 0 36772 HCCMD IOCP *+1,,3 IO TO READ AND WRITE SYMBOLS/INSTRS. RG023360 36772 -0 00000 0 26134 IOCP HCSYM-P2JC7,,** RG023370 | 36773 -0 00004 0 26130 IOCP HCBUF,,4 RG023380 | 36774 -0 00000 0 30105 IOCP HCINS-P2JC8,,** RG023390 | 36775 3 00004 0 26130 IORT HCBUF,,4 RG023400 | 36776 TWA BSS 25 TEMPORARY WORK AREA RG023410 37027 TWA2 BSS 2 * RG023420 | 37031 TEMPA BSS 70 * RG023430 | 37031 COMMON EQU TEMPA RG023440 | 37137 0 00000 0 00000 SPICFL PZE 0 PHASE 2 ONE-TIME SWITCH RG023450 | 37140 3 04760 0 21150 TBCMD IORT DSOE,,CNINS-DSOE+1 RG023460 37141 0 00000 0 00000 HCWD1 PZE SKELETON INSTRUCTION RG023470 | 37142 0 00000 0 00000 HCWD2 PZE SYMBOLIC ADDRESS RG023480 | 37143 0 00000 0 00000 HCWD3 PZE 0 TEMP OCTAL STORAGE RG023490 | 37144 0 00000 0 00000 HCOCTM PZE 0 MINUS OCTAL SWITCH RG023500 | 37145 BSS 300 PATCH AREA COMMON TO ALL PHASES RG023510 1 LISTING OF 12/01/64 PAGE 66 | PHASE 1 ERROR MESSAGES | | 37621 P1ORG BSS 0 PHASE 1 PROPER RG023540 | 37621 634646604421 ERM01 BCI 4,TOO MANY PARAMETERS RG023550 37622 457060472151 | 37623 214425632551 | 37624 626060606060 | 37625 263125432460 ERM02 BCI 5,FIELD FORMAT NOT USED RG023560 | 37626 264651442163 37627 604546636064 | 37630 622524606060 | 37631 606060606060 | 37632 454660216262 ERM03 BCI 6,NO ASSOC. RT FOUND FOR XXX LINE RG023570 | 37633 462333605163 37634 602646644524 | 37635 602646516060 | 37636 676767604331 | 37637 452560606060 | 37640 633025603145 BCI 5,THE INPUT RT XX WILL BE USED RG023580 37641 476463605163 | 37642 606767606631 | 37643 434360222560 | 37644 646225246060 | 37645 676767676767 ERM04 BCI 8,XXXXXX IS USED TO DEFINE TWO DIFFERENT FIELDS RG023590 37646 603162606462 | 37647 252460634660 | 37650 242526314525 | 37651 606366466024 | 37652 312626255125 37653 456360263125 | 37654 432462606060 | 37655 232143604521 ERM05 BCI 5,CAL NAME MISSING COLS 11-15 RG023600 | 37656 442560443162 | 37657 623145276023 37660 464362600101 | 37661 400105606060 | 37662 314343252721 ERM06 BCI 5,ILLEGAL OUTPUT ENTRY RG023610 | 37663 436046646347 | 37664 646360254563 37665 517060606060 | 37666 606060606060 | 37667 633025602631 ERM07 BCI 7,THE FIRST DEFINTIION WILL BE USED RG023620 | 37670 516263602425 | 37671 263145633131 37672 464560663143 | 37673 436022256064 | 37674 622524606060 | 37675 606060606060 | 37676 263125432460 EROR5M BCI 5,FIELD NOT FOUND IN FIELD FORMA RG023630 37677 454663602646 | 37700 644524603145 | 37701 602631254324 | 37702 602646514421 | 37703 636063212243 BCI 5,T TABLE RG023640 37704 256060606060 | 37705 606060606060 | 37706 606060606060 | 1 LISTING OF 12/01/64 PAGE 67 | PHASE 1 ERROR MESSAGES | 37707 606060606060 | 37710 314547646360 ERMS8 BCI 7,INPUT RECORD TYPE IS BLANK ON CARD 0000 RG023650 | 37711 512523465124 | 37712 606370472560 37713 316260224321 | 37714 454260464560 | 37715 232151246060 | 37716 000000006060 | 37717 232151246062 ERM11 BCI 3,CARD SHOULD BE A01 RG023660 37720 304664432460 | 37721 222560210001 | 37722 232151246062 ERM12 BCI 3,CARD SHOULD BE A02 RG023670 | 37723 304664432460 | 37724 222560210002 37725 634646604421 ERM13 BCI 7,TOO MANY PACKETS, CURRENT PACKET IGNORED RG023680 | 37726 457060472123 | 37727 422563627360 | 37730 236451512545 | 37731 636047212342 37732 256360312745 | 37733 465125246060 | 37734 314343252721 ERM14 BCI 4,ILLEGAL FILE NUMBER RG023690 | 37735 436026314325 | 37736 604564442225 37737 516060606060 | 37740 454660512523 ERM15 BCI 5,NO RECORD OR REPORT INDICATOR RG023700 | 37741 465124604651 | 37742 605125474651 | 37743 636031452431 37744 232163465160 | 37745 314343252721 ERM16 BCI 3,ILLEGAL CARD TYPE RG023710 | 37746 436023215124 | 37747 606370472560 | 37750 234643644445 ERM17 BCI 3,COLUMN 4 ILLEGAL RG023720 37751 600460314343 | 37752 252721436060 | 37753 454660263143 ERM18 BCI 4,NO FILE NUMBER,0 ASSUMED RG023730 | 37754 256045644422 | 37755 255173006021 37756 626264442524 | 37757 234645652551 ERM20 BCI 7,CONVERTED BINARY FIELD OVER 10 DIGITS RG023740 | 37760 632524602231 | 37761 452151706026 | 37762 312543246046 37763 652551600100 | 37764 602431273163 | 37765 626060606060 | 37766 255151020140 ERM21 BCI 5,ERR21-ACTH-RECORD TYPE IN FIRS RG023750 | 37767 212363304051 37770 252346512460 | 37771 637047256031 | 37772 456026315162 | 37773 636066465124 BCI 5,T WORD IS BLANK RG023760 | 37774 603162602243 37775 214542606060 | 1 LISTING OF 12/01/64 PAGE 68 | PHASE 1 ERROR MESSAGES | | 37776 606060606060 37777 606060606060 | 40000 255151020240 ERM22 BCI 5,ERR22-PRT-LINE NO NOT FOUND IN RG023770 | 40001 475163404331 | 40002 452560454660 | 40003 454663602646 40004 644524603145 | 40005 602646514421 BCI 5, FORMAT TABLE SCAN RG023780 | 40006 636063212243 | 40007 256062232145 | 40010 606060606060 40011 606060606060 | 40012 255151020340 ERM23 BCI 5,ERR23-PRT- LINE NO NOT FOUND I RG023790 | 40013 475163406043 | 40014 314525604546 | 40015 604546636026 40016 466445246031 | 40017 456021626246 BCI 5,N ASSOC RECORD TABLE SCAN RG023800 | 40020 236051252346 | 40021 512460632122 | 40022 432560622321 40023 456060606060 | 40024 454660466463 ERM24 BCI 8,NO OUTPUT ENTRY FOR CAL FUNCTION COLS 49-54 RG023810 | 40025 476463602545 | 40026 635170602646 | 40027 516023214360 40030 266445236331 | 40031 464560234643 | 40032 626004114005 | 40033 046060606060 | 40034 255151020540 ERM25 BCI 5,ERR25-CAL-IN TRYING TO USE ART RG023820 40035 232143403145 | 40036 606351703145 | 40037 276063466064 | 40040 622560215163 | 40041 606330256031 BCI 5, THE IRT HAS BLANK RG023830 40042 516360302162 | 40043 602243214542 | 40044 606060606060 | 40045 606060606060 | 40046 255151020640 ERM26 BCI 5,ERR26-EMIT-TOO MANY LEVELS FOR RG023840 40047 254431634063 | 40050 464660442145 | 40051 706043256525 | 40052 436260264651 | 40053 606221442560 BCI 5, SAME EMIT PARAMETER RG023850 40054 254431636047 | 40055 215121442563 | 40056 255160606060 | 40057 606060606060 | 40060 255151020740 ERM27 BCI 5,ERR27-EMIT- ALL OUTPUT ENTRIES RG023860 40061 254431634060 | 40062 214343604664 | 40063 634764636025 | 40064 456351312562 | 1 LISTING OF 12/01/64 PAGE 69 PHASE 1 ERROR MESSAGES | | 40065 603145603145 BCI 5, IN INPUT RECORD ARE BLANK RG023870 | 40066 476463605125 | 40067 234651246021 40070 512560224321 | 40071 454260606060 | 40072 255151021040 ERM28 BCI 5,ERR28-EMIT- LINE NO NOT FOUND RG023880 | 40073 254431634060 | 40074 433145256045 40075 466045466360 | 40076 264664452460 | 40077 314560216262 BCI 5,IN ASSOC RECORD TABLE SCAN RG023890 | 40100 462360512523 | 40101 465124606321 40102 224325606223 | 40103 214560606060 | 40104 676767676767 ERM29 BCI 7,XXXXXX NOT FOUND IN FIELD FORMAT TABLE RG023900 | 40105 604546636026 | 40106 466445246031 40107 456026312543 | 40110 246026465144 | 40111 216360632122 | 40112 432560606060 | 40113 456360474662 BCI 5,NT POS NOT FOUND IN FFT SCAN RG023910 40114 604546636026 | 40115 466445246031 | 40116 456026266360 | 40117 622321456060 | 40120 255151030040 ERM30 BCI 5,ERR30-EMIT-SIGN ERROR- BOTH ZO RG023920 40121 254431634062 | 40122 312745602551 | 40123 514651406022 | 40124 466330607146 | 40125 452560223163 BCI 5,NE BITS IN UNITS POSITION RG023930 40126 626031456064 | 40127 453163626047 | 40130 466231633146 | 40131 456060606060 | 40132 255151030140 ERM31 BCI 5,ERR31-SCB-RECORD TYPE BLANK RG023940 40133 622322405125 | 40134 234651246063 | 40135 704725602243 | 40136 214542606060 | 40137 606060606060 BCI 5, RG023950 40140 606060606060 | 40141 606060606060 | 40142 606060606060 | 40143 606060606060 | 40144 314547646360 ERM32 BCI 5,INPUT RT BLANK COLS 5 AND 6 RG023960 40145 516360224321 | 40146 454260234643 | 40147 626005602145 | 40150 246006606060 | 40151 606060606060 BCI 5, RG023970 40152 606060606060 | 40153 606060606060 | 1 LISTING OF 12/01/64 PAGE 70 | PHASE 1 ERROR MESSAGES | 40154 606060606060 | 40155 606060606060 | 40156 314343252721 ERM33 BCI 9,ILLEGAL ENTRY POINT SPECIFIED BY CAL OPERATION RG023980 | 40157 436025456351 | 40160 706047463145 40161 636062472523 | 40162 312631252460 | 40163 227060232143 | 40164 604647255121 | 40165 633146456060 40166 606060606060 | 40167 444651256063 ERM34 BCI 7,MORE THAN 4 FIELD PARAS WITH SAME NUMBER RG023990 | 40170 302145600460 | 40171 263125432460 | 40172 472151216260 40173 663163306062 | 40174 214425604564 | 40175 442225516060 | 40176 676767676767 ERM35 BCI 5,XXXXXX IS USED MORE THAN ONCE RG024000 | 40177 603162606462 40200 252460444651 | 40201 256063302145 | 40202 604645232560 | 40203 234645626321 ERM36 BCI 6,CONSTANT SYMBOL GREATER THAN 0099 RG024010 | 40204 456360627044 40205 224643602751 | 40206 252163255160 | 40207 633021456000 | 40210 001111606060 | 40211 234645626321 ERM37 BCI 8,CONSTANT HAS SYMBOLIC ADDRESS. ILLEGAL IN RG. RG024020 40212 456360302162 | 40213 606270442246 | 40214 433123602124 | 40215 245125626233 | 40216 603143432527 40217 214360314560 | 40220 512733606060 | 40221 454660432545 ERM38 BCI 6,NO LENGTH SPECIFIED IN COLS 33-35 RG024030 | 40222 276330606247 | 40223 252331263125 40224 246031456023 | 40225 464362600303 | 40226 400305606060 | 40227 314447514647 ERM40 BCI 6,IMPROPER OUTPUT RECORD TYPE 000000 RG024040 | 40230 255160466463 40231 476463605125 | 40232 234651246063 | 40233 704725606060 | 40234 000000000000 | 40235 634646604421 ERM42 BCI 6,TOO MANY CONTROL BREAK PARAMETERS RG024050 40236 457060234645 | 40237 635146436022 | 40240 512521426047 | 40241 215121442563 | 40242 255162606060 1 LISTING OF 12/01/64 PAGE 71 | PHASE 1 ERROR MESSAGES | | 40243 246231256063 ERM44 BCI 7,DSIE TABLE FULL,INPUT DICTIONARY TOO LARGE RG024060 | 40244 212243256026 40245 644343733145 | 40246 476463602431 | 40247 236331464521 | 40250 517060634646 | 40251 604321512725 40252 314547646360 ERM45 BCI 4,INPUT RT XX UNDEFINED RG024070 | 40253 516360606767 | 40254 606445242526 | 40255 314525246060 | 40256 466463476463 ERM46 BCI 4,OUTPUT RT XX UNDEFINED RG024080 40257 605163606767 | 40260 606445242526 | 40261 314525246060 | 40262 254626606225 ERM47 BCI 5,EOF SEARCHING INPUT DICTIONARY RG024090 | 40263 215123303145 40264 276031454764 | 40265 636024312363 | 40266 314645215170 | 40267 634646604421 ERM48 BCI 6,TOO MANY F RECORDS FOR INPUT RT XX RG024100 | 40270 457060266051 40271 252346512462 | 40272 602646516031 | 40273 454764636051 | 40274 636060606767 | 40275 263125432460 ERM49 BCI 4,FIELD XXXXXX UNDEFINED RG024110 40276 676767676767 | 40277 606445242526 | 40300 314525246060 | 40301 627044224643 ERM50 BCI 6,SYMBOL TABLE FULL XXXXXX UNDEFINED RG024120 | 40302 606321224325 40303 602664434360 | 40304 676767676767 | 40305 606445242526 | 40306 314525246060 | 40307 454660476051 ERM51 BCI 4,NO P RECORD FOUND IN DICT RG024130 40310 252346512460 | 40311 264664452460 | 40312 314560243123 | 40313 644524252631 ERM52 BCI 5,UNDEFINED DICTIONARY RECORD RG024140 | 40314 452524602431 40315 236331464521 | 40316 517060512523 | 40317 465124606060 | 40320 254563517060 ERM53 BCI 3,ENTRY NOT MADE RG024150 | 40321 454663604421 40322 242560606060 | 40323 314547646360 ERM54 BCI 6,INPUT RT XX DUPLICATELY DEFINED RG024160 | 40324 516360606767 | 40325 602464474331 | 40326 232163254370 40327 602425263145 | 40330 252460606060 | 40331 236451512545 ERM55 BCI 5,CURRENT DEFINITION IGNORED RG024170 | 1 LISTING OF 12/01/64 PAGE 72 | PHASE 1 ERROR MESSAGES | 40332 636024252631 | 40333 453163314645 | 40334 603127454651 | 40335 252460606060 40336 246231266063 ERM56 BCI 7,DSIF TABLE FULL,INPUT DICTIONARY TOO LARGE RG024180 | 40337 212243256026 | 40340 644343733145 | 40341 476463602431 | 40342 236331464521 40343 517060634646 | 40344 604321512725 | 40345 246246256063 ERM57 BCI 7,DSOE TABLE FULL, TOO MANY E TYPE CARDS RG024190 | 40346 212243256026 | 40347 644343736060 40350 634646604421 | 40351 457060256063 | 40352 704725602321 | 40353 512462606060 | 40354 246246266063 ERM58 BCI 7,DSOF TABLE FULL, TOO MANY F TYPE CARDS RG024200 40355 212243256026 | 40356 644343736060 | 40357 634646604421 | 40360 457060266063 | 40361 704725602321 40362 512462606060 | 40363 466463476463 ERM59 BCI 6,OUTPUT RT XX DUPLICATELY DEFINED RG024210 | 40364 605163606767 | 40365 602464474331 | 40366 232163254370 40367 602425263145 | 40370 252460606060 | 40371 264643434666 ERM60 BCI 5,FOLLOWING CARD SHOULD BE CALC RG024220 | 40372 314527602321 | 40373 512460623046 40374 644324602225 | 40375 602321432360 | 40376 676767676767 ERM61 BCI 7,XXXXXX ROUTINE IS NOT REFERENCED BY CAL RG024230 | 40377 605146646331 | 40400 452560316260 40401 454663605125 | 40402 262551254523 | 40403 252460227060 | 40404 232143606060 | 40405 232151246045 ERM62 BCI 4,CARD NEEDS C IN COLUMN 1 RG024240 40406 252524626023 | 40407 603145602346 | 40410 436444456001 | 40411 634646604421 ERM63 BCI 5,TOO MANY SYSTEM CONSTANTS RG024250 | 40412 457060627062 40413 632544602346 | 40414 456263214563 | 40415 626060606060 | 40416 676767676767 ERM64 BCI 4,XXXXXX LEFT UNDEFINED RG024260 | 40417 604325266360 40420 644524252631 | 1 LISTING OF 12/01/64 PAGE 73 | PHASE 1 ERROR MESSAGES | | 40421 452524606060 40422 314343252721 ERM65 BCI 4,ILLEGAL OPERATION CODE RG024270 | 40423 436046472551 | 40424 216331464560 | 40425 234624256060 | 40426 676767676767 ERM66 BCI 6,XXXXXX NOT SPECIFIED AS FIELD NAME RG024280 40427 604546636062 | 40430 472523312631 | 40431 252460216260 | 40432 263125432460 | 40433 452144256060 40434 314343252721 ERM69 BCI 4,ILLEGAL ADDRESS FIELD RG024290 | 40435 436021242451 | 40436 256262602631 | 40437 254324606060 | 40440 314343252721 ERM70 BCI 4,ILLEGAL DECREMENT FIELD RG024300 40441 436024252351 | 40442 254425456360 | 40443 263125432460 | 40444 314343252721 ERM72 BCI 3,ILLEGAL TAG RG024310 | 40445 436063212760 40446 606060606060 | 40447 212424512562 ERM74 BCI 4,ADDRESS FIELD BLANK RG024320 | 40450 626026312543 | 40451 246022432145 | 40452 426060606060 40453 314562635164 ERM75 BCI 4,INSTRUCTION FIELD BLANK RG024330 | 40454 236331464560 | 40455 263125432460 | 40456 224321454260 | 40457 477125602162 BCI 2,PZE ASSUMED RG024340 40460 626444252460 | 40461 676767676767 ERM76 BCI 5,XXXXXX IS DUPLICATELY DEFINED RG024350 | 40462 603162602464 | 40463 474331232163 | 40464 254370602425 40465 263145252460 | 40466 454660514664 ERM77 BCI 6,NO ROUTINE FOUND FOR XXXXXXCALC RG024360 | 40467 633145256026 | 40470 466445246026 | 40471 465160606060 40472 676767676767 | 40473 232143236060 | 40474 644524252631 ERM79 BCI 5,UNDEFINED SYSTEM SYMBOL RG024370 | 40475 452524606270 | 40476 626325446062 40477 704422464360 | 40500 606060606060 | 40501 443162646225 ERM80 BCI 4,MISUSE OF PUNCTUATION RG024380 | 40502 604626604764 | 40503 452363642163 40504 314645606060 | 40505 634660442145 ERM81 BCI 5,TO MANY CONSTANT LOCATIONS RG024390 | 40506 706023464562 | 40507 632145636043 | 1 LISTING OF 12/01/64 PAGE 74 PHASE 1 ERROR MESSAGES | | 40510 462321633146 | 40511 456260606060 | 40512 622363224360 ERM82 BCI 7,SCTBL FULL, TOO MANY H AND T FORMAT FIELDS RG024400 40513 266443437360 | 40514 634646604421 | 40515 457060306021 | 40516 452460636026 | 40517 465144216360 40520 263125432462 | 40521 264563224360 ERM83 BCI 7,FNTBL FULL, TOO MANY INPUT FIELD NAMES RG024410 | 40522 266443437360 | 40523 634646604421 | 40524 457060314547 40525 646360263125 | 40526 432460452144 | 40527 256260606060 | 40530 262663224360 ERM84 BCI 6,FFTBL FULL, TOO MANY FORMAT FIELDS RG024420 | 40531 266443437360 40532 634646604421 | 40533 457060264651 | 40534 442163602631 | 40535 254324626060 | 40536 432663224360 ERM85 BCI 7,LFTBL FULL, TOO MANY FORMAT LINES RG024430 40537 266443437360 | 40540 634646604421 | 40541 457060264651 | 40542 442163604331 | 40543 452562606060 40544 606060606060 | 40545 232143632260 ERM86 BCI 7,CALTB FULL, TOO MANY CAL PARAMETER CARDS RG024440 | 40546 266443437360 | 40547 634646604421 | 40550 457060232143 40551 604721512144 | 40552 256325516023 | 40553 215124626060 | 40554 256725236463 ERM90 BCI 4,EXECUTION IMPOSSIBLE RG024450 | 40555 314645603144 40556 474662623122 | 40557 432560606060 | 40560 512523465124 ERM91 BCI 5,RECORD OUTPUT ON-LINE ILLEGAL RG024460 | 40561 604664634764 | 40562 636046454043 40563 314525603143 | 40564 432527214360 | 40565 454663602343 ERM92 BCI 6,NOT CLEAR WHETHER RECORD OR REPORT RG024470 | 40566 252151606630 | 40567 256330255160 40570 512523465124 | 40571 604651605125 | 40572 474651636060 | 40573 512547465163 ERM93 BCI 3,REPORT IS ASSUMED RG024480 | 40574 603162602162 40575 626444252460 | 40576 512523465124 ERM94 BCI 3,RECORD IS ASSUMED RG024490 | 1 LISTING OF 12/01/64 PAGE 75 | PHASE 1 ERROR MESSAGES | 40577 603162602162 | 40600 626444252460 | 40601 676767676767 ERM95 BCI 7,XXXXXX WILL BE USED IN ORDER TO CONTINUE RG024500 | 40602 606631434360 | 40603 222560646225 40604 246031456046 | 40605 512425516063 | 40606 466023464563 | 40607 314564256060 | 40610 312660633031 ERM96 BCI 6,IF THIS ASSUMPTION IS INCORRECT, RG024510 40611 626021626264 | 40612 444763314645 | 40613 603162603145 | 40614 234651512523 | 40615 637360606060 40616 256725236463 ERM97 BCI 4,EXECUTION IMPROBABLE RG024520 | 40617 314645603144 | 40620 475146222122 | 40621 432560606060 | 40622 454663602545 ERM98 BCI 6,NOT ENOUGH CORE LEFT FOR BUFFERS RG024530 40623 466427306023 | 40624 465125604325 | 40625 266360264651 | 40626 602264262625 | 40627 516260606060 40630 634646604421 ERMA1 BCI 6 TOO MANY F RECORDS FOR OUTPUT RT RG024540 | 40631 457060266051 | 40632 252346512462 | 40633 602646516046 | 40634 646347646360 40635 516360606060 | 40636 466463476463 ERMA2 BCI 6,OUTPUT FIELD DUPLICATELY DEFINED RG024550 | 40637 602631254324 | 40640 602464474331 | 40641 232163254370 40642 602425263145 | 40643 252460606060 | 40644 465163602651 ERMA3 BCI 8,ORT FROM F RECORD DOES NOT CHECK WITH E RECORD RG024560 | 40645 464460266051 | 40646 252346512460 40647 244625626045 | 40650 466360233025 | 40651 234260663163 | 40652 306025605125 | 40653 234651246060 40654 636646604331 ERMA5 BCI 7,TWO LINES HAVE SAME LINE NUMBER RG024570 | 40655 452562603021 | 40656 652560622144 | 40657 256043314525 | 40660 604564442225 40661 516060606060 | 40662 606060606060 | 40663 676767604331 ERMB1 BCI 7,XXX LINE NOT FOUND IN LINE FORMAT TABLE RG024580 | 40664 452560454663 | 40665 602646644524 1 LISTING OF 12/01/64 PAGE 76 | PHASE 1 ERROR MESSAGES | | 40666 603145604331 | 40667 452560264651 40670 442163606321 | 40671 224325606060 | 40672 466463476463 ERMB2 BCI 8,OUTPUT RT XX NOT FOUND IN LINE FORMAT TABLE RG024590 | 40673 605163606767 | 40674 604546636026 40675 466445246031 | 40676 456043314525 | 40677 602646514421 | 40700 636063212243 | 40701 256060606060 40702 606045466060 ERM43 BCI 4, NO 000000LINE FOUND RG024600 | 40703 000000000000 | 40704 433145256060 | 40705 264664452460 | 1 LISTING OF 12/01/64 PAGE 77 PHASE 1 PROPER | | * PARAMETER FORMATION AREA RG024620 | 13560 P2JC5 EQU 6000 PARAMETER TABLE RG024630 | 40706 PART BSS P2JC5 * RG024640 54466 0 00000 0 00000 PARTM PZE MONITOR RG024650 | 54467 0 00000 0 40706 PARED PZE PART LOCATION OF CURRENT ENTRY RG024660 | 54470 0 00000 0 54465 COMRED PZE PARTM-1 LOCATION OF CURRENT VECTOR RG024670 | * RG024680 | * FUNCTION TABLE RG024690 54471 000051232670 FUNTBL BCI 1,00RCFY RG024700 | 54472 000051232645 BCI 1,00RCFN RG024710 | 54473 000026232670 BCI 1,00FCFY RG024720 | 54474 000026232645 BCI 1,00FCFN RG024730 | 54475 000051512370 BCI 1,00RRCY RG024740 54476 000026512370 BCI 1,00FRCY RG024750 | 54477 000023267030 BCI 1,00CFYH RG024760 | 54500 000023704530 BCI 1,00CYNH RG024770 | 54501 000023267043 BCI 1,00CFYL RG024780 | 54502 000023704543 BCI 1,00CYNL RG024790 54503 000051237030 BCI 1,00RCYH RG024800 | 54504 000051237043 BCI 1,00RCYL RG024810 | 54505 000023267065 BCI 1,00CFYV RG024820 | 54506 000000212363 BCI 1,000ACT RG024830 | 54507 000000475163 BCI 1,000PRT RG024840 54510 000000622322 BCI 1,000SCB RG024850 | 54511 000047212725 BCI 1,00PAGE RG024860 | 54512 000023466445 BCI 1,00COUN RG024870 | 54513 000000232143 BCI 1,000CAL RG024880 | 54514 000025443163 KEMIT BCI 1,00EMIT RG024890 54515 BSS 10 FOR ADDITIONAL FUNCTIONS RG024900 | * FUNCTION SWITCH WORD TABLE RG024910 | 54527 +340017000012 FUNSWW OCT 340017000012 RCFY RG024920 | 54530 +340021000012 OCT 340021000012 RCFN RG024930 | 54531 +340027000012 OCT 340027000012 FCFY RG024940 54532 +340031000012 OCT 340031000012 FCFN RG024950 | 54533 +320023000010 OCT 320023000010 RRCY RG024960 | 54534 +320033000010 OCT 320033000010 FRCF RG024970 | 54535 +340017000012 OCT 340017000012 CFYH RG024980 | 54536 +340021000012 OCT 340021000012 CYNH RG024990 54537 +340027000012 OCT 340027000012 CFYL RG025000 | 54540 +340031000012 OCT 340031000012 CYNL RG025010 | 54541 +320023000010 OCT 320023000010 RCYH RG025020 | 54542 +320033000010 OCT 320033000010 RCYL RG025030 | 54543 +360035000012 OCT 360035000012 CFYV RG025040 54544 +300025000005 OCT 300025000005 ACT RG025050 | 54545 +240072000005 OCT 240072000005 PRT RG025060 | 54546 +200041000005 OCT 200041000005 SCB RG025070 | 54547 +100050001000 OCT 100050001000 PAGE RG025080 | 54550 +100060000001 OCT 100060000001 COUNT RG025090 54551 +100057000000 OCT 100057000000 CAL RG025100 | 54552 +000046000000 OCT 000046000000 EMIT RG025110 | 54553 BSS 10 FOR ADDITIONAL FUNCTIONS RG025120 | * FUNCTION VECTOR TABLE RG025130 | 54565 0 00000 0 60723 FUNTRA PZE FUN001 RG025140 54566 0 00000 0 60723 PZE FUN001 RG025150 | 54567 0 00000 0 60723 PZE FUN001 RG025160 | 1 LISTING OF 12/01/64 PAGE 78 | PHASE 1 PROPER | 54570 0 00000 0 60723 PZE FUN001 RG025170 | 54571 0 00000 0 60723 PZE FUN001 RG025180 | 54572 0 00000 0 60723 PZE FUN001 RG025190 | 54573 0 00000 0 60723 PZE FUN001 RG025200 | 54574 0 00000 0 60723 PZE FUN001 RG025210 54575 0 00000 0 60723 PZE FUN001 RG025220 | 54576 0 00000 0 60723 PZE FUN001 RG025230 | 54577 0 00000 0 60723 PZE FUN001 RG025240 | 54600 0 00000 0 60723 PZE FUN001 RG025250 | 54601 0 00000 0 60723 PZE FUN001 RG025260 54602 0 00000 0 60723 PZE FUN001 RG025270 | 54603 0 00000 0 60723 PZE FUN001 RG025280 | 54604 0 00000 0 60723 PZE FUN001 RG025290 | 54605 0 00000 0 60723 PZE FUN001 RG025300 | 54606 0 00000 0 60723 PZE FUN001 RG025310 54607 0 00000 0 60723 PZE FUN001 RG025320 | 54610 0 00000 0 60723 PZE FUN001 RG025330 | 54611 BSS 10 FOR ADDITIONAL FUNCTIONS RG025340 | * RG025350 | 54623 234645635146 FUNEM1 BCI 5,CONTROL BREAK TABLE OVERFLOW RG025360 54624 436022512521 | 54625 426063212243 | 54626 256046652551 | 54627 264346666060 | 54630 0 00000 0 15625 ENDP3 PZE P3END RG025370 1 LISTING OF 12/01/64 PAGE 79 | TROBLE SUBROUTINE, PART TABLE OVERFLOW | | 54631 0634 00 4 54705 TROBLE SXA TR900,4 SAVE XRS RG025390 | 54632 0634 00 2 54706 SXA TR901,2 RG025400 54633 0074 00 4 54711 TSX PRSRT,4 SORT PARAMETERS RG025410 | 54634 0520 00 0 54710 ZET TRSWT TEST FOR PREVIOUS OVERFLOW RG025420 | 54635 0020 00 0 54670 TRA TR110 YES RG025430 | 54636 -0625 00 0 54710 TR098 STL TRSWT RG025440 | 54637 0074 00 4 05505 TSX NDSRT,4 RG025450 54640 0 00007 0 00030 PZE 24,,7 WRITE EOF ON SCRATCH RG025460 | 54641 0500 00 0 07300 CLA PARCTR SAVE PARAMETER COUNT RG025470 | 54642 0601 00 0 54466 STO PARTM RG025480 | 54643 0074 00 4 05255 TSX RD(WR),4 WRITE PART TO 24 AS ONE RECORD RG025490 | 54644 -0 54647 0 00030 MZE 24,,TR104 RG025500 54645 0020 00 0 54653 TRA TR108 RG025510 | 54646 0074 00 4 35007 TSX ENDTP,4 END OF TAPE RETURN RG025520 | 54647 3 13561 0 40706 TR104 IORT PART,,P2JC5+1 RG025530 | 54650 634646604421 TR106 BCI 3,TOO MANY PARAMETERS RG025540 | 54651 457060472151 54652 214425632551 | 54653 TR108 BSS 0 RG025550 | 54653 0074 00 4 05505 TSX NDSRT,4 WRITE EOFS RG025560 | 54654 0 00007 0 00030 PZE 24,,7 WRITE EOF ON SCRATCH RG025570 | 54655 0074 00 4 05505 TSX NDSRT,4 RG025580 54656 0 00007 0 00030 PZE 24,,7 WRITE EOF ON SCRATCH RG025590 | 54657 0774 00 2 00003 AXT 3,2 POSITION BACK TO START RG025600 | 54660 0074 00 4 05505 TSX NDSRT,4 RG025610 | 54661 0 00006 0 00033 PZE 27,,6 RG025620 | 54662 2 00001 2 54660 TIX *-2,2,1 RG025630 54663 -0634 00 0 54647 SXD TR104,0 RG025640 | 54664 0074 00 4 05255 TSX RD(WR),4 RG025650 | 54665 0 54647 0 00033 PZE 27,,TR104 RG025660 | 54666 0074 00 4 04000 TSX LOST,4 SHOULD GET EOF RG025670 | 54667 0020 00 0 54675 TRA TR112 RG025680 54670 0074 00 4 34503 TR110 TSX ERROR,4 ERROR ROUTINE RG025690 | 54671 -0 00004 0 54650 MZE TR106,,4 RG025700 | 54672 0 00004 0 40554 PZE ERM90,,4 RG025710 | 54673 -0625 00 0 34552 TR111 STL ERSWT RG025720 | 54674 0074 00 4 04000 TSX LOST,4 RG025730 54675 0500 00 0 07300 TR112 CLA PARCTR UPDATE PARAMETER COUNT RG025740 | 54676 0400 00 0 22025 ADD ERTBL+28 RG025750 | 54677 0621 00 0 22025 STA ERTBL+28 RG025760 | 54700 0600 00 0 07300 STZ PARCTR RG025770 | 54701 0774 00 4 40706 AXT PART,4 RESET COUNTERS RG025780 54702 0634 00 4 54467 SXA PARED,4 RG025790 | 54703 0774 00 4 54465 AXT PARTM-1,4 RG025800 | 54704 0634 00 4 54470 SXA COMRED,4 RG025810 | 54705 0774 00 4 00000 TR900 AXT **,4 RETURN RG025820 | 54706 0774 00 2 00000 TR901 AXT **,2 RG025830 54707 0020 00 4 00001 TRA 1,4 RG025840 | 54710 0 00000 0 00000 TRSWT PZE NON-ZERO IF TABLE HAS OVERFLOWED RG025850 | 1 LISTING OF 12/01/64 PAGE 80 | SUBROUTINE TO SORT PARAMETER TABLE | 54711 0634 00 4 54746 PRSRT SXA PRS90,4 SAVE XRS RG025870 | 54712 0634 00 1 54747 SXA PRS91,1 RG025880 | 54713 0634 00 2 54750 SXA PRS92,2 RG025890 | 54714 0534 00 2 07300 LXA PARCTR,2 RG025900 | 54715 1 00003 2 54716 TXI PRS08,2,3 RG025910 54716 0534 00 1 07300 PRS08 LXA PARCTR,1 INITIALIZE FOR LOOP RG025920 | 54717 0600 00 0 54752 STZ PRSWT RG025930 | 54720 -2 00001 1 54746 TNX PRS90,1,1 TEST FOR ONLY ONE ENTRY RG025940 | 54721 0774 00 4 00000 PRS10 AXT 0,4 NO RG025950 | 54722 -0500 60 1 54465 PRS12 CAL* PARTM-1,1 COMPARE ENTRIES RG025960 54723 -0340 60 1 54466 LAS* PARTM,1 RG025970 | 54724 0020 00 0 54735 TRA PRS18 CORRECT ORDER RG025980 | 54725 1 77777 4 54734 TXI PRS16,4,-1 EQUAL, TEST NEXT WORD RG025990 | 54726 -0625 00 0 54752 STL PRSWT RG026000 | 54727 -0500 00 1 54465 PRS14 CAL PARTM-1,1 REVERSE ORDER OF ENTRIES RG026010 54730 0560 00 1 54466 LDQ PARTM,1 RG026020 | 54731 0602 00 1 54466 SLW PARTM,1 RG026030 | 54732 -0600 00 1 54465 STQ PARTM-1,1 RG026040 | 54733 0020 00 0 54735 TRA PRS18 RG026050 | 54734 3 77775 4 54722 PRS16 TXH PRS12,4,-3 TEST FIRST 3 WORDS OF ENTRY RG026060 54735 2 00001 1 54721 PRS18 TIX PRS10,1,1 CORRECT ORDER, LOOP RG026070 | 54736 2 00001 2 54744 TIX PRS84,2,1 TROUBLE IN SORTING RG026080 | 54737 0074 00 4 34503 TSX ERROR,4 YES RG026090 | 54740 -0 00005 0 54753 MZE PRS82,,5 RG026100 | 54741 0 00004 0 40554 PZE ERM90,,4 RG026110 54742 -0625 00 0 34552 STL ERSWT RG026120 | 54743 0020 00 0 54746 TRA PRS90 RG026130 | 54744 0520 00 0 54752 PRS84 ZET PRSWT RG026140 | 54745 0020 00 0 54716 TRA PRS08 RG026150 | 54746 0774 00 4 00000 PRS90 AXT **,4 RESTORE RG026160 54747 0774 00 1 00000 PRS91 AXT **,1 RG026170 | 54750 0774 00 2 00000 PRS92 AXT **,2 RG026180 | 54751 0020 00 4 00001 TRA 1,4 RETURN RG026190 | 54752 0 00000 0 00000 PRSWT PZE CHANGE SWITCH RG026200 | 54753 472151214425 PRS82 BCI 5,PARAMETER TABLE WILL NOT SORT RG026210 54754 632551606321 | 54755 224325606631 | 54756 434360454663 | 54757 606246516360 | 54760 0761 00 0 00000 NOP RG026220 54761 0761 00 0 00000 NOP RG026230 | 54762 0761 00 0 00000 NOP RG026240 | 54763 0761 00 0 00000 NOP RG026250 | 54764 0761 00 0 00000 NOP RG026260 | 54765 0761 00 0 00000 NOP RG026270 54766 0761 00 0 00000 NOP RG026280 | 1 LISTING OF 12/01/64 PAGE 81 | SUBROUTINE TO TEST CARD COLUMNS BY CHARACTER | | * CALLING SEQUENCE RG026300 * TSX CTEST,4 RG026310 | * PZE A,T RG026320 | * PZE B,T,D D=POSITIVE RETURN RG026330 | * NEGATIVE RETURN RG026340 | * A,T IS CARD COLUMN TO BE TESTED (1-80) RG026350 * B,T IS LOCATION OF TEST CHARACTER RG026360 | * D IS TRANSFER LOCATION FOR TEST POSITIVE RG026370 | * IF TEST NEGATIVE THE AC WILL BE SHIFTED LEFT RG026380 | * 6 BITS AND THE TESTED CHARACTER PUT INTO LOW ORDER VACANCY RG026390 | * IF POSITIVE AC IS NOT ALTERED, MQ IS DESTROYED RG026400 * CARD IS ASSUMED TO BE LOCATED AT CARD RG026410 | * THE CALLING SEQUENCE CAN BE EXTENDED TO TEST FOR ANY NO RG026420 | * OF CHARACTERS BY USING MZE FOR ALL BUT LAST TEST RG026430 | * RG026440 | 54767 0634 00 2 55011 CTEST SXA CT020,2 SAVE XRS RG026450 54770 0634 00 1 55012 SXA CT021,1 * RG026460 | 54771 0602 00 0 55031 SLW CT900 SAVE AC RG026470 | 54772 0767 00 0 00006 ALS 6 * RG026480 | 54773 0602 00 0 55032 SLW CT901 SAVE AC SHIFTED RG026490 | 54774 -0500 00 4 00001 CAL 1,4 DETERMINE COLUMN RG026500 54775 0400 00 0 55033 ADD CT902 * RG026510 | 54776 0602 00 0 55034 SLW CT903 * RG026520 | 54777 0560 60 0 55034 LDQ* CT903 * RG026530 | 55000 0204 07 0 06622 VLM SIX,,7 * RG026540 | 55001 0225 07 0 06660 VDP TEN+26,,7 * RG026550 55002 0734 00 2 00000 PAX 0,2 DETERMINE NECESSARY SHIFT RG026560 | 55003 -0130 00 0 00000 XCL * RG026570 | 55004 0737 00 1 00000 PAC 0,1 * RG026580 | 55005 -3 00000 2 55027 TXL CT050,2,0 IS SHIFT NECESSARY RG026590 | 55006 -0500 00 1 04621 CAL CARD,1 * RG026600 55007 0771 00 2 00044 ARS 36,2 YES, RIGHT JUSTIFY IN AC RG026610 | 55010 -0320 00 0 06713 CT010 ANA BCD01 * RG026620 | 55011 0774 00 2 00000 CT020 AXT **,2 RESTORE XRS RG026630 | 55012 0774 00 1 00000 CT021 AXT **,1 * RG026640 | 55013 -0340 60 4 00002 CT030 LAS* 2,4 COMPARE TO TEST CHARACTER RG026650 55014 0020 00 0 55016 TRA *+2 * RG026660 | 55015 0020 00 0 55023 TRA CT040 * RG026670 | 55016 0560 00 4 00002 LDQ 2,4 * RG026680 | 55017 0162 00 0 55021 TQP *+2 TEST NEGATIVE RG026690 | 55020 1 77777 4 55013 TXI CT030,4,-1 ANY MORE TESTS RG026700 55021 -0501 00 0 55032 ORA CT901 NO RG026710 | 55022 0020 00 4 00003 TRA 3,4 RETURN RG026720 | 55023 -0500 00 4 00002 CT040 CAL 2,4 TEST POSITIVE RG026730 | 55024 -0737 00 4 00000 PDC 0,4 GET TRANSFER ADDRESS RG026740 | 55025 -0500 00 0 55031 CAL CT900 RETURN TO SPECIFIED LOCATION RG026750 55026 0020 00 4 00000 TRA 0,4 * RG026760 | 55027 -0500 00 1 04620 CT050 CAL CARD-1,1 COLUMN IS MULTIPLE OF SIX RG026770 | 55030 0020 00 0 55010 TRA CT010 NO SHIFT NECESSARY RG026780 | 55031 0 00000 0 00000 CT900 PZE 0 AC STORAGE RG026790 | 55032 0 00000 0 00000 CT901 PZE 0 AC SHIFTED RG026800 55033 0 00000 0 06614 CT902 PZE ZERO RG026810 | 55034 0 00000 0 00000 CT903 PZE 0 MODIFIED CALLING SEQUENCE RG026820 | 1 LISTING OF 12/01/64 PAGE 82 | SUBROUTINE TO GET FIELD FROM PARAMETER CARD | * THE BCD VALUE WILL BE LEFT RIGHT JUSTIFIED IN THE AC RG026840 | * WITH ALL BLANKS ELIMINATED RG026850 | * CALLING SEQUENCE RG026860 | * TSX GETVF,4 RG026870 | * PZE A RG026880 * PZE L,,R RG026890 | * NORMAL RETURN RG026900 | * A = LOCATION OF PARAMETER CARD RG026910 | * R = RIGHTMOST CARD COLUMN OF FIELD RG026920 | * L = LEFTMOST CARD COLUMN OF FIELD RG026930 * RG026940 | * THE PREVIOUS CONTENTS OF THE AC AND MQ WILL BE LOST RG026950 | * RG026960 | 55035 0634 00 1 55100 GETVF SXA GE130,1 SAVE XRS RG026970 | 55036 0634 00 2 55101 SXA GE131,2 RG026980 55037 0634 00 4 55102 SXA GE132,4 RG026990 | 55040 0600 00 0 55104 STZ GE900 RG027000 | 55041 0600 00 0 55105 STZ GE901 RG027010 | 55042 0500 00 4 00001 CLA 1,4 PROCESS CALLING SEQUENCE RG027020 | 55043 0621 00 0 55057 STA GE120 RG027030 55044 0500 00 4 00002 CLA 2,4 RG027040 | 55045 0622 00 0 55050 STD GE110 RG027050 | 55046 0402 00 0 06615 SUB ONE RG027060 | 55047 0737 00 4 00000 PAC 0,4 RG027070 | 55050 1 00000 4 55051 GE110 TXI *+1,4,** XR4 CONTAINS SIZE OF FIELD RG027080 55051 0131 00 0 00000 GE112 XCA RG027090 | 55052 0204 07 0 06622 VLM SIX,,7 RG027100 | 55053 0225 07 0 06660 VDP TEN+26,,7 RG027110 | 55054 0737 00 2 00000 PAC 0,2 RG027120 | 55055 -0130 00 0 00000 XCL RG027130 55056 0737 00 1 00000 PAC 0,1 RG027140 | 55057 0560 00 1 00000 GE120 LDQ **,1 POSITION LEFTMOST CHAR RG027150 | 55060 -0773 00 2 00000 RQL 0,2 RG027160 | 55061 -0754 00 0 00000 GE122 PXD 0,0 GET A CHARACTER RG027170 | 55062 -0763 00 0 00006 LGL 6 RG027180 55063 -0340 00 0 06674 LAS BLANK TEST FOR BLANK RG027190 | 55064 0020 00 0 55066 TRA *+2 RG027200 | 55065 0020 00 0 55072 TRA GE126 YES, IGNORE RG027210 | 55066 -0501 00 0 55105 ORA GE901 RG027220 | 55067 0602 00 0 55104 SLW GE900 RG027230 55070 0767 00 0 00006 ALS 6 RG027240 | 55071 0602 00 0 55105 SLW GE901 RG027250 | 55072 -2 00001 4 55077 GE126 TNX GE128,4,1 TEST FOR END OF FIELD RG027260 | 55073 1 77772 2 55074 TXI *+1,2,-6 NO, GET NEXT COLUMN RG027270 | 55074 3 77734 2 55061 TXH GE122,2,-36 TEST FOR NEW WORD RG027280 55075 0774 00 2 00000 AXT 0,2 YES RG027290 | 55076 1 77777 1 55057 TXI GE120,1,-1 NEXT COLUMN IN NEW WORD RG027300 | * RG027310 | 55077 -0500 00 0 55104 GE128 CAL GE900 GET COMPLETED FIELD RG027320 | 55100 0774 00 1 00000 GE130 AXT **,1 RESTORE XRS RG027330 55101 0774 00 2 00000 GE131 AXT **,2 RG027340 | 55102 0774 00 4 00000 GE132 AXT **,4 RG027350 | 55103 0020 00 4 00003 TRA 3,4 RETURN RG027360 | * RG027370 | 55104 0 00000 0 00000 GE900 PZE 0 AC STORAGE RG027380 1 LISTING OF 12/01/64 PAGE 83 | SUBROUTINE TO GET FIELD FROM PARAMETER CARD | | 55105 0 00000 0 00000 GE901 PZE 0 AC SHIFTED RG027390 | 1 LISTING OF 12/01/64 PAGE 84 SUBROUTINE TO CHANGE LNID TO AST | | * THE AC IS ASSUMED TO CONTAIN LNID LEFT JUSTIFIED RG027410 | * IF THE AST CAN BE FOUND IT WILL BE LEFT IN START RG027420 | * IF NOT THE IRT WILL BE USED AND AN ERROR MESSAGE WILL BE WRITTEN RG027430 * THE CARD IS ASSUMED TO BE AT CARDS+1 RG027440 | * ON RETURN AST WILL BE LEFT JUSTIFIED IN THE AC RG027450 | * RG027460 | 55106 0634 00 4 55152 SB100 SXA SB132,4 SAVE XR4 RG027470 | 55107 -0320 00 0 07070 ANA BCD70 MASK IN LNID RG027480 55110 0100 00 0 55151 TZE SB130 RG027490 | 55111 0602 00 0 55154 SLW SB140 RG027500 | 55112 0774 00 4 00620 AXT P2JB5,4 RG027510 | 55113 -0500 00 4 22657 SB110 CAL LFTBL,4 SEARCH LFTBL FOR LNID RG027520 | 55114 -0320 00 0 07070 ANA BCD70 RG027530 55115 -0340 00 0 55154 LAS SB140 RG027540 | 55116 0020 00 0 55120 TRA *+2 RG027550 | 55117 0020 00 0 55132 TRA SB120 FOUND, GO GET AST RG027560 | 55120 0520 00 4 22661 ZET LFTBL+2,4 RG027570 | 55121 2 00002 4 55113 TIX SB110,4,2 RG027580 55122 0560 00 0 55154 LDQ SB140 NOT FOUND, ERROR RG027590 | 55123 -0620 00 0 40663 SLQ ERMB1 RG027600 | 55124 0074 00 4 34503 TSX ERROR,4 RG027610 | 55125 -0 00007 0 40663 MZE ERMB1,,7 RG027620 | 55126 0 00000 4 40554 PZE ERM90,4 RG027630 55127 -0754 00 0 00000 PXD 0,0 RG027640 | 55130 -0625 00 0 34552 STL ERSWT NO RECOVERY RG027650 | 55131 0020 00 0 55151 TRA SB130 RG027660 | * RG027670 | 55132 -0500 00 4 22657 SB120 CAL LFTBL,4 GET ASSOCIATED RT RG027680 55133 0767 00 0 00030 ALS 24 RG027690 | 55134 -0100 00 0 55151 TNZ SB130 TEST FOR BLANK AST RG027700 | 55135 -0500 00 0 07174 CAL CARDS+1 YES, GET INPUT RT RG027710 | 55136 -0320 00 0 07003 ANA BCD03 RG027720 | 55137 -0602 00 4 22657 ORS LFTBL,4 RG027730 55140 0602 00 0 07305 SLW START RG027740 | 55141 0767 00 0 00022 ALS 18 RG027750 | 55142 0622 00 0 37642 STD ERM03+8 RG027760 | 55143 0560 00 4 22657 LDQ LFTBL,4 RG027770 | 55144 -0620 00 0 37636 SLQ ERM03+4 RG027780 55145 0074 00 4 34503 TSX ERROR,4 ERROR, BLANK AST RG027790 | 55146 0 00013 0 37632 PZE ERM03,,11 RG027800 | 55147 -0500 00 0 07305 CAL START RG027810 | 55150 0767 00 0 00030 ALS 24 POSITION AST RG027820 | 55151 0602 00 0 07305 SB130 SLW START SAVE AST RG027830 55152 0774 00 4 00000 SB132 AXT **,4 RESTORE XR4 RG027840 | 55153 0020 00 4 00001 TRA 1,4 RG027850 | 55154 0 00000 0 00000 SB140 PZE LNID STORAGE RG027860 | 1 LISTING OF 12/01/64 PAGE 85 | SUBROUTINE TO CHANGE ORT TO LNID | * THE OUTPUT RECORD TYPE IS ASSUMED TO BE IN AC RG027880 | * ON RETURN LNID WILL BE LEFT JUSTIFIED IN THE AC RG027890 | * RG027900 | 55155 0634 00 4 55201 SB150 SXA SB180,4 SAVE SR4 RG027910 55156 -0320 00 0 07003 ANA BCD03 RG027920 | 55157 0602 00 0 55203 SLW SB191 SAVE ORT RG027930 | 55160 0774 00 4 00620 AXT P2JB5,4 RG027940 | 55161 -0500 00 4 22660 SB160 CAL LFTBL+1,4 SEARCH LFTBL FOR ORT RG027950 | 55162 -0320 00 0 07003 ANA BCD03 RG027960 55163 0322 00 0 55203 ERA SB191 RG027970 | 55164 0100 00 0 55177 TZE SB170 FOUND, GET LNID RG027980 | 55165 0520 00 4 22661 ZET LFTBL+2,4 RG027990 | 55166 2 00002 4 55161 TIX SB160,4,2 RG028000 | 55167 -0500 00 0 55203 CAL SB191 NOT FOUND, ERROR RG028010 55170 0621 00 0 40673 STA ERMB2+1 RG028020 | 55171 0074 00 4 34503 TSX ERROR,4 RG028030 | 55172 -0 00010 0 40672 MZE ERMB2,,8 RG028040 | 55173 0 00004 0 40554 PZE ERM90,,4 RG028050 | 55174 -0625 00 0 34552 STL ERSWT RG028060 55175 -0754 00 0 00000 PXD 0,0 RG028070 | 55176 0020 00 0 55201 TRA SB180 RG028080 | 55177 -0500 00 4 22657 SB170 CAL LFTBL,4 RG028090 | 55200 -0320 00 0 07070 ANA BCD70 RG028100 | 55201 0774 00 4 00000 SB180 AXT **,4 RESTORE XR4 RG028110 55202 0020 00 4 00001 TRA 1,4 RETURN RG028120 | 55203 0 00000 0 00000 SB191 PZE ORT STORE RG028130 | 1 LISTING OF 12/01/64 PAGE 86 | SUBROUTINE TO GET FIELD SPECS FROM FFTBL | * AC ASSUMED TO CONTAIN LNID AND RMP IN BCD RG028150 | * ON RETURN AC WILL CONTAIN 2ND WORD AND MQ 3RD WORD RG028160 | * RG028170 | 55204 0634 00 4 55264 SB200 SXA SB240,4 SAVE XR4 RG028180 | 55205 0774 00 4 03720 SB208 AXT P2JD2,4 RG028190 55206 -0340 00 4 20325 SB210 LAS FFTBL,4 SEARCH FFTBL FOR LNID, RMP RG028200 | 55207 0020 00 0 55211 TRA *+2 RG028210 | 55210 0020 00 0 55245 TRA SB220 RG028220 | 55211 0520 00 4 20330 ZET FFTBL+3,4 RG028230 | 55212 2 00003 4 55206 TIX SB210,4,3 RG028240 55213 0602 00 0 40104 SLW ERM29 ERROR, FIELD NOT FOUND RG028250 | 55214 -0625 00 0 35124 STL GU902 TRY TO GUESS CORRECT FIELD RG028260 | 55215 0602 00 0 35122 SLW GU900 RG028270 | 55216 0600 00 0 35123 STZ GU901 RG028280 | 55217 0634 00 2 55236 SXA SB218,2 SAVE XR2 RG028290 55220 0774 00 2 03720 AXT P2JD2,2 RG028300 | 55221 0500 00 2 20326 SB212 CLA FFTBL+1,2 RG028310 | 55222 -0120 00 0 55226 TMI SB214 ELIMINATE USED FIELDS RG028320 | 55223 -0500 00 2 20325 CAL FFTBL,2 RG028330 | 55224 0100 00 0 55226 TZE SB214 RG028340 55225 0074 00 4 35070 TSX GU100,4 RG028350 | 55226 2 00003 2 55221 SB214 TIX SB212,2,3 RG028360 | 55227 -0500 00 0 35123 CAL GU901 RG028370 | 55230 0602 00 0 40601 SLW ERM95 RG028380 | 55231 0074 00 4 34503 TSX ERROR,4 TELL USER OF ASSUMPTION RG028390 55232 -0 00007 0 40104 MZE ERM29,,7 RG028400 | 55233 -0 00007 0 40601 MZE ERM95,,7 RG028410 | 55234 0 00012 0 40610 PZE ERM96,,10 RG028420 | 55235 -0500 00 0 35123 CAL GU901 RG028430 | 55236 0774 00 2 00000 SB218 AXT **,2 PROCESS APPROXIMATE FIELD RG028440 55237 -0100 00 0 55205 TNZ SB208 RG028450 | 55240 0074 00 4 34503 TSX ERROR,4 RG028460 | 55241 0 00004 0 40554 PZE ERM90,,4 RG028470 | 55242 -0625 00 0 34552 STL ERSWT RG028480 | 55243 -0763 00 0 00120 LGL 80 CLEAR AC AND MQ RG028490 55244 0020 00 0 55264 TRA SB240 RG028500 | * RG028510 | 55245 0602 00 0 55266 SB220 SLW SB247 SAVE LNID AND RMPP RG028520 | 55246 0502 00 4 20326 CLS FFTBL+1,4 2ND WORD RG028530 | 55247 -0120 00 0 55257 TMI SB230 RG028540 55250 0634 00 4 55255 SXA SB224,4 ERROR, FIELD USED MORE THAN ONCE RG028550 | 55251 -0500 00 4 20325 CAL FFTBL,4 RG028560 | 55252 0602 00 0 40176 SLW ERM35 RG028570 | 55253 0074 00 4 34503 TSX ERROR,4 RG028580 | 55254 0 00005 0 40176 PZE ERM35,,5 RG028590 55255 0774 00 4 00000 SB224 AXT **,4 RG028600 | 55256 0500 00 4 20326 CLA FFTBL+1,4 RG028610 | 55257 0601 00 4 20326 SB230 STO FFTBL+1,4 RG028620 | 55260 0760 00 0 00003 SSP RG028630 | 55261 0602 00 0 55267 SLW SB248 SAVE 2ND WORD RG028640 55262 0560 00 4 20327 LDQ FFTBL+2,4 3RD WORD RG028650 | 55263 -0600 00 0 55270 STQ SB249 SAVE 3RD WORD RG028660 | 55264 0774 00 4 00000 SB240 AXT **,4 RETURN RG028670 | 55265 0020 00 4 00001 TRA 1,4 RG028680 | 55266 0 00000 0 00000 SB247 PZE RG028690 1 LISTING OF 12/01/64 PAGE 87 | SUBROUTINE TO GET FIELD SPECS FROM FFTBL | | 55267 0 00000 0 00000 SB248 PZE RG028700 | 55270 0 00000 0 00000 SB249 PZE RG028710 1 LISTING OF 12/01/64 PAGE 88 | SUBROUTINES TO MAKE PART TABLE ENTRY | | *CALLING SEQUENCE RG028730 | * TSX SB300,4 RG028740 * PZE SIZE OF ENTRY RG028750 | * SB300 WILL DO AN LAC PARED,1 RG028760 | * SB350 WILL RESTORE XR1 RG028770 | * RG028780 | 55271 0634 00 4 55304 SB300 SXA SB320,4 SAVE XR4 RG028790 55272 0634 00 1 55327 SXA SB391,1 SAVE XR1 FOR SB350 RG028800 | 55273 0500 00 4 00001 SB302 CLA 1,4 RG028810 | 55274 0601 00 0 55331 STO SB399 SAVE SIZE FOR SB350 RG028820 | 55275 0400 00 0 54467 ADD PARED RG028830 | 55276 0340 00 0 54470 CAS COMRED TEST FOR ENOUGH ROOM RG028840 55277 0020 00 0 55300 TRA *+1 RG028850 | 55300 0020 00 0 55303 TRA SB310 RG028860 | 55301 0535 00 1 54467 LAC PARED,1 SET XR1 RG028870 | 55302 0020 00 4 00002 TRA 2,4 RETURN RG028880 | 55303 0074 00 4 54631 SB310 TSX TROBLE,4 RG028890 55304 0774 00 4 00000 SB320 AXT **,4 RG028900 | 55305 0020 00 0 55273 TRA SB302 RG028910 | * RG028920 | *SUBROUTINE TO CLOSE OUT ENTRY RG028930 | *THESE TWO ROUTINES MUST BE USED TOGETHER RG028940 * RG028950 | 55306 0634 00 4 55326 SB350 SXA SB390,4 SAVE XR4 RG028960 | 55307 0500 00 0 55331 CLA SB399 GET SIZE OF ENTRY RG028970 | 55310 0621 00 1 00003 SB360 STA 3,1 BUILD WORD 4 RG028980 | 55311 0767 00 0 00022 ALS 18 RG028990 55312 -0501 00 0 54467 ORA PARED BUILD COMMAND RG029000 | 55313 -0501 00 0 06763 ORA TAG4 RG029010 | 55314 0601 60 0 54470 STO* COMRED RG029020 | 55315 0500 00 0 54467 CLA PARED UPDATE PARED RG029030 | 55316 0400 00 0 55331 ADD SB399 RG029040 55317 0601 00 0 54467 STO PARED RG029050 | 55320 0500 00 0 54470 CLA COMRED UPDATE COMRED RG029060 | 55321 0402 00 0 06615 SUB ONE RG029070 | 55322 0601 00 0 54470 STO COMRED RG029080 | 55323 0500 00 0 07300 CLA PARCTR COUNT ENTRY RG029090 55324 0400 00 0 06615 ADD ONE RG029100 | 55325 0601 00 0 07300 STO PARCTR RG029110 | 55326 0774 00 4 00000 SB390 AXT **,4 RG029120 | 55327 0774 00 1 00000 SB391 AXT **,1 RESTORE XR1 FROM SB300 RG029130 | 55330 0020 00 4 00001 TRA 1,4 RETURN RG029140 55331 0 00000 0 00000 SB399 PZE SIZE OF ENTRY RG029150 | 1 LISTING OF 12/01/64 PAGE 89 | SUBROUTINE TO MAKE FNTBL ENTRY | | * THE CARD IS ASSUMED TO BE AT CARDS+1 RG029170 * RG029180 | 55332 0634 00 1 55422 SB400 SXA SB442,1 SAVE XRS RG029190 | 55333 0634 00 2 55423 SXA SB443,2 RG029200 | 55334 0634 00 4 55424 SXA SB444,4 RG029210 | 55335 0074 00 4 55035 TSX GETVF,4 GET FIELD NAME RG029220 55336 0 00000 0 07174 PZE CARDS+1 RG029230 | 55337 0 00017 0 00013 PZE 11,,15 RG029240 | 55340 0602 00 0 55427 SLW SB449 SAVE FIELD NAME RG029250 | 55341 0100 00 0 55422 TZE SB442 TEST FOR NO NAME RG029260 | 55342 -0500 00 0 07174 CAL CARDS+1 GET RT AND FIELD NUMBER RG029270 55343 0560 00 0 07175 LDQ CARDS+2 RG029280 | 55344 -0765 00 0 00014 LGR 12 RG029290 | 55345 -0600 00 0 56302 STQ RFTYPE RG029300 | 55346 0520 00 0 55426 ZET SB448 RG029310 | 55347 0020 00 0 55354 TRA SB410 RG029320 55350 0074 00 4 55565 TSX DTS,4 RG029330 | 55351 0 00000 0 00000 PZE RG029340 | 55352 0520 00 0 56271 ZET DPSW2 TEST FOR DICTIONARY RG029350 | 55353 0074 00 4 55522 TSX SB500,4 YES RG029360 | 55354 0600 00 0 55426 SB410 STZ SB448 RG029370 55355 0774 00 2 01747 AXT P2JC2,2 RG029380 | 55356 0500 00 2 34025 CLA FNTBL,2 TEST FOR NAME USED BEFORE RG029390 | 55357 -0340 00 0 55427 LAS SB449 RG029400 | 55360 0020 00 0 55362 TRA *+2 RG029410 | 55361 0020 00 0 55403 TRA SB430 YES RG029420 55362 2 00003 2 55356 TIX *-4,2,3 RG029430 | 55363 -0500 00 0 55427 CAL SB449 NO MAKE ENTRY TO FNTBL RG029440 | 55364 -0534 00 2 34025 LXD FNTBL,2 NO,MAKE ENTRY TO FNTBL RG029450 | 55365 2 00003 2 55373 TIX SB420,2,3 RG029460 | 55366 0602 00 0 40416 SLW ERM64 RG029470 55367 0074 00 4 34503 TSX ERROR,4 ERROR,FNTBL FULL RG029480 | 55370 -0 00007 0 40521 MZE ERM83,,7 RG029490 | 55371 0 00004 0 40416 PZE ERM64,,4 RG029500 | 55372 0020 00 0 55422 TRA SB442 RG029510 | 55373 -0634 00 2 34025 SB420 SXD FNTBL,2 RG029520 55374 0602 00 2 34025 SLW FNTBL,2 WORD 1 RG029530 | 55375 -0500 00 0 56277 CAL DPWBLM RG029540 | 55376 0602 00 2 34026 SLW FNTBL+1,2 WORD 2 RG029550 | 55377 -0500 00 0 56302 CAL RFTYPE RG029560 | 55400 -0320 00 0 07060 ANA BCD60 RG029570 55401 0602 00 2 34027 SLW FNTBL+2,2 WORD3 RG029580 | 55402 0020 00 0 55416 TRA SB440 RG029590 | 55403 -0500 00 2 34026 SB430 CAL FNTBL+1,2 RG029600 | 55404 0322 00 0 56277 ERA DPWBLM RG029610 | 55405 -0100 00 0 55412 TNZ SB432 RG029620 55406 -0500 00 2 34027 CAL FNTBL+2,2 RG029630 | 55407 0322 00 0 56302 ERA RFTYPE RG029640 | 55410 -0320 00 0 07060 ANA BCD60 RG029650 | 55411 0100 00 0 55416 TZE SB440 RG029660 | 55412 0500 00 2 34025 SB432 CLA FNTBL,2 INSERT DUPLICATELY DEFINED ZIGGER RG029670 55413 -0760 00 0 00003 SSM RG029680 | 55414 0601 00 2 34025 STO FNTBL,2 RG029690 | 55415 0020 00 0 55422 TRA SB442 RG029700 | 55416 -0500 00 0 07203 SB440 CAL CARDS+8 TEST COLUMN 48 RG029710 | 1 LISTING OF 12/01/64 PAGE 90 SUBROUTINE TO MAKE FNTBL ENTRY | | 55417 0322 00 0 06674 ERA BLANK RG029720 | 55420 -0320 00 0 06713 ANA BCD01 RG029730 | 55421 -0602 00 2 34027 ORS FNTBL+2,2 ACCUMULATE ZIGGER RG029740 55422 0774 00 1 00000 SB442 AXT **,1 RESTORE XRS RG029750 | 55423 0774 00 2 00000 SB443 AXT **,2 RG029760 | 55424 0774 00 4 00000 SB444 AXT **,4 RG029770 | 55425 0020 00 4 00001 TRA 1,4 RETURN RG029780 | 55426 0 00000 0 00000 SB448 PZE RG029790 55427 0 00000 0 00000 SB449 PZE RG029800 | 1 LISTING OF 12/01/64 PAGE 91 | SUBROUTINE TO PROCESS CAL NAME | | * THE CARD IS ASSUMED TO BE AT CARDS+1 RG029820 * RG029830 | 55430 0634 00 1 55512 SB450 SXA SB490,1 SAVE XRS RG029840 | 55431 0634 00 2 55513 SXA SB491,2 RG029850 | 55432 0634 00 4 55514 SXA SB492,4 RG029860 | 55433 0604 00 0 55517 STI SB493 SAVE INDICATORS RG029870 55434 0074 00 4 55035 TSX GETVF,4 GET CAL NAME RG029880 | 55435 0 00000 0 07174 PZE CARDS+1 RG029890 | 55436 0 00017 0 00013 PZE 11,,15 RG029900 | 55437 0602 00 0 55521 SLW SB499 RG029910 | 55440 -0100 00 0 55444 TNZ SB454 RG029920 55441 0074 00 4 34503 TSX ERROR,4 ERROR,NO NAME RG029930 | 55442 -0 00005 0 37655 MZE ERM05,,5 RG029940 | 55443 0 00014 0 07174 PZE CARDS+1,,12 RG029950 | 55444 0074 00 4 55035 SB454 TSX GETVF,4 GET INSERT POINT RG029960 | 55445 0 00000 0 07174 PZE CARDS+1 RG029970 55446 0 00066 0 00061 PZE 49,,54 RG029980 | 55447 -0340 00 0 07037 SB456 LAS BCD37 LEFT JUSTIFY INSERT POINT RG029990 | 55450 0020 00 0 55454 TRA SB458 RG030000 | 55451 0074 00 4 04000 TSX LOST,4 RG030010 | 55452 0767 00 0 00006 ALS 6 RG030020 55453 -0100 00 0 55447 TNZ SB456 RG030030 | 55454 0602 00 0 55520 SB458 SLW SB498 RG030040 | 55455 -0100 00 0 55462 TNZ SB460 RG030050 | 55456 0074 00 4 34503 TSX ERROR,4 ERROR,NO INSERT POINT RG030060 | 55457 -0 00010 0 40024 MZE ERM24,,8 RG030070 55460 0 00014 0 07174 PZE CARDS+1,,12 RG030080 | 55461 0020 00 0 55512 TRA SB490 RG030090 | 55462 -0500 00 0 55521 SB460 CAL SB499 RG030100 | 55463 0100 00 0 55512 TZE SB490 RG030110 | 55464 0774 00 2 00454 AXT P2JC4,2 IS ENTRY ALREADY IN CALTB RG030120 55465 -0340 00 2 34502 LAS CALTB,2 CHECK FOR SAME NAME RG030130 | 55466 0020 00 0 55470 TRA *+2 RG030140 | 55467 0020 00 0 55472 TRA SB462 RG030150 | 55470 2 00002 2 55465 TIX *-3,2,2 RG030160 | 55471 0020 00 0 55476 TRA SB464 RG030170 55472 -0500 00 0 55520 SB462 CAL SB498 RG030180 | 55473 -0340 00 2 34503 LAS CALTB+1,2 CHECK FOR SAME INSERT POINT RG030190 | 55474 0020 00 0 55476 TRA *+2 RG030200 | 55475 0020 00 0 55512 TRA SB490 YES,DO NOT MAKE ENTRY RG030210 | 55476 -0534 00 2 34502 SB464 LXD CALTB,2 NO,MAKE ENTRY TO CALTB RG030220 55477 -0500 00 0 55521 CAL SB499 RG030230 | 55500 2 00002 2 55506 TIX SB466,2,2 RG030240 | 55501 0602 00 0 40416 SLW ERM64 RG030250 | 55502 0074 00 4 34503 TSX ERROR,4 ERROR,CALTB FULL RG030260 | 55503 -0 00007 0 40545 MZE ERM86,,7 RG030270 55504 0 00004 0 40416 PZE ERM64,,4 RG030280 | 55505 0020 00 0 55512 TRA SB490 RG030290 | 55506 -0634 00 2 34502 SB466 SXD CALTB,2 RG030300 | 55507 0602 00 2 34502 SLW CALTB,2 WORD 1 RG030310 | 55510 -0500 00 0 55520 CAL SB498 RG030320 55511 0602 00 2 34503 SLW CALTB+1,2 WORD 2 RG030330 | 55512 0774 00 1 00000 SB490 AXT **,1 RESTORE XRS RG030340 | 55513 0774 00 2 00000 SB491 AXT **,2 RG030350 | 55514 0774 00 4 00000 SB492 AXT **,4 RG030360 | 1 LISTING OF 12/01/64 PAGE 92 SUBROUTINE TO PROCESS CAL NAME | | 55515 0441 00 0 55517 LDI SB493 RESTORE INDICATORS RG030370 | 55516 0020 00 4 00001 TRA 1,4 RETURN RG030380 | 55517 0 00000 0 00000 SB493 PZE RG030390 55520 0 00000 0 00000 SB498 PZE RG030400 | 55521 0 00000 0 00000 SB499 PZE RG030410 | 1 LISTING OF 12/01/64 PAGE 93 | SUBROUTINE TO MODIFY WBLM BY INC AND LENGTH | * WBLM ASSUMED TO BE IN DPWBLM, CARD AT CARDS+1 RG030430 | * RG030440 | 55522 0634 00 4 55562 SB500 SXA SB540,4 SAVE XR4 RG030450 | 55523 0074 00 4 55771 TSX DTS60,4 EXPAND WBLM RG030460 | 55524 0074 00 4 55035 TSX GETVF,4 GET INCREMENT RG030470 55525 0 00000 0 07174 PZE CARDS+1 RG030480 | 55526 0 00040 0 00036 PZE 30,,32 COLUMN 30-32 RG030490 | 55527 0602 00 0 55564 SLW SB548 RG030500 | 55530 0100 00 0 55550 TZE SB520 RG030510 | 55531 0074 00 4 36560 TSX BCDBIC,4 CONVERT TO BINARY RG030520 55532 0 00000 0 55564 PZE SB548 RG030530 | 55533 0765 00 0 00043 LRS 35 RG030540 | 55534 0221 00 0 06660 DVP TEN+26 RG030550 | 55535 0400 00 0 56274 ADD DPBIT RG030560 | 55536 0601 00 0 56274 STO DPBIT UPDATE BIT RG030570 55537 0402 00 0 06660 SUB TEN+26 RG030580 | 55540 -0120 00 0 55545 TMI SB510 RG030590 | 55541 0601 00 0 56274 STO DPBIT RG030600 | 55542 0500 00 0 56273 CLA DPWORD RG030610 | 55543 0400 00 0 06615 ADD ONE RG030620 55544 0601 00 0 56273 STO DPWORD RG030630 | 55545 0131 00 0 00000 SB510 XCA UPDATE WORD RG030640 | 55546 0400 00 0 56273 ADD DPWORD RG030650 | 55547 0601 00 0 56273 STO DPWORD RG030660 | 55550 0074 00 4 55035 SB520 TSX GETVF,4 GET LENGTH RG030670 55551 0 00000 0 07174 PZE CARDS+1 RG030680 | 55552 0 00043 0 00041 PZE 33,,35 COLUMNS 33-35 RG030690 | 55553 0100 00 0 55557 TZE SB530 RG030700 | 55554 0602 00 0 56275 SLW DPLGTH REPLACE LENGTH RG030710 | 55555 0074 00 4 36560 TSX BCDBIC,4 CONVERT TO BINARY RG030720 55556 0 00000 0 56275 PZE DPLGTH RG030730 | 55557 0074 00 4 56006 SB530 TSX DTS70,4 COMBINE WBLM RG030740 | 55560 -0500 00 0 56277 CAL DPWBLM RG030750 | 55561 0602 00 0 63401 SLW PLCHR SAVE FOR CLASSIFY TEST RG030760 | 55562 0774 00 4 00000 SB540 AXT **,4 RG030770 55563 0020 00 4 00001 TRA 1,4 RG030780 | 55564 0 00000 0 00000 SB548 PZE INCREM STORAGE RG030790 | 1 LISTING OF 12/01/64 PAGE 94 | DICTIONARY SEARCH SUBROUTINE | * ROUTINE TO GET WORD, BIT, LENGTH, AND MODE OF FIELD RG030810 | * CALLING SEQUENCE RG030820 | * L TSX DTS,4 RG030830 | * L+1 PRE RG030840 | * PRE=PZE IMPLIES INPUT FIELD RG030850 * PRE=MZE IMPLIES OUTPUT FIELD RG030860 | * RECORD TYPE AND FIELD NO ASSUMED TO BE IN RFTYPE RG030870 | * RESULTS LEFT IN DPWORD, DPBIT, DPLGTH, DPMODE RG030880 | * AND DPWBLM RESPECTIVELY RG030890 | * RG030900 55565 0634 00 1 55762 DTS SXA DTS59,1 SAVEXRS RG030910 | 55566 0634 00 2 55760 SXA DTS57,2 * RG030920 | 55567 0634 00 4 55761 SXA DTS58,4 * RG030930 | 55570 -0500 00 0 56302 CAL RFTYPE EXTRACT RT RG030940 | 55571 -0320 00 0 07060 ANA BCD60 * RG030950 55572 0602 00 0 56017 SLW DTSRT * RG030960 | 55573 -0100 00 0 55604 TNZ DTS01 RG030970 | 55574 0074 00 4 34503 TSX ERROR,4 ERROR, INPUT RT BLANK RG030980 | 55575 0 00005 0 40144 PZE ERM32,,5 RG030990 | 55576 -0500 00 0 07305 CAL START TRY TO RECOVER RG031000 55577 -0100 00 0 55604 TNZ DTS01 RG031010 | 55600 0074 00 4 34503 TSX ERROR,4 ERROR , ASSOC RT BLANK RG031020 | 55601 0 00004 0 40554 PZE ERM90,,4 NO RECOVERY RG031030 | 55602 -0625 00 0 34552 STL ERSWT RG031040 | 55603 0020 00 0 55753 TRA DTS52 RG031050 55604 0560 00 4 00001 DTS01 LDQ 1,4 RG031060 | 55605 0162 00 0 55630 TQP DTS06 INPUT RG031070 | 55606 0774 00 2 00620 AXT DSE,2 OUTPUT RG031080 | 55607 -0500 00 2 21770 DTS02 CAL DSOEM,2 SEARCH OUTPUT RT TABLE RG031090 | 55610 -0320 00 0 07060 ANA BCD60 RG031100 55611 -0340 00 0 56017 LAS DTSRT RG031110 | 55612 0020 00 0 55614 TRA *+2 RG031120 | 55613 -0100 00 0 55626 TNZ DTS04 RG031130 | 55614 0520 00 2 21772 ZET DSOEM+2,2 RG031140 | 55615 2 00002 2 55607 TIX DTS02,2,2 RG031150 55616 -0500 00 0 56017 CAL DTSRT ERROR, RT CANNOT BE FOUND RG031160 | 55617 0771 00 0 00030 ARS 24 RG031170 | 55620 0621 00 0 40257 STA ERM46+1 RG031180 | 55621 0074 00 4 34503 TSX ERROR,4 RG031190 | 55622 -0 00004 0 40256 MZE ERM46,,4 RG031200 55623 0 00004 0 40554 PZE ERM90,,4 RG031210 | 55624 -0625 00 0 34552 STL ERSWT RG031220 | 55625 0020 00 0 55753 TRA DTS52 RG031230 | 55626 -0500 00 2 21771 DTS04 CAL DSOEM+1,2 RT FOUND RG031240 | 55627 0020 00 0 55740 TRA DTS46 GO TO GET FIELD SPECS RG031250 * RG031260 | 55630 0774 00 2 00620 DTS06 AXT DSB,2 INPUT RG031270 | 55631 -0500 00 2 21147 DTS08 CAL DSIEM,2 SEARCH DSIE TABLE RG031280 | 55632 -0320 00 0 07060 ANA BCD60 RG031290 | 55633 0100 00 0 55640 TZE DTS10 RG031300 55634 -0340 00 0 56017 LAS DTSRT RG031310 | 55635 0020 00 0 55637 TRA *+2 RG031320 | 55636 0020 00 0 55662 TRA DTS14 RE FOUND RG031330 | 55637 2 00002 2 55631 TIX DTS08,2,2 RT NOT IN DIE TABLE RG031340 | 55640 -0520 00 0 56271 DTS10 NZT DPSW2 TEST FOR INPUT DICTIONARY RG031350 1 LISTING OF 12/01/64 PAGE 95 | DICTIONARY SEARCH SUBROUTINE | | 55641 0020 00 0 55652 TRA DTS12 NO, MAKE ENTRY FOR RT RG031360 | 55642 -0500 00 0 56017 CAL DTSRT YES, ERROR RG031370 55643 0771 00 0 00030 ARS 24 RG031380 | 55644 0621 00 0 40253 STA ERM45+1 RG031390 | 55645 0074 00 4 34503 TSX ERROR,4 RG031400 | 55646 -0 00004 0 40252 MZE ERM45,,4 RG031410 | 55647 0 00004 0 40554 PZE ERM90,,4 RG031420 55650 -0625 00 0 34552 STL ERSWT RG031430 | 55651 0020 00 0 55753 TRA DTS52 RG031440 | 55652 -0500 00 0 56017 DTS12 CAL DTSRT MAKE ENTRY TO DSIE TABLE RG031450 | 55653 0602 00 0 56300 SLW DPRT RG031460 | 55654 -0500 00 0 07313 CAL P2XA4 GET CONSTANT RECORD LENGTH RG031470 55655 0602 00 0 56301 SLW DPRL RG031480 | 55656 0074 00 4 36560 TSX BCDBIC,4 RG031490 | 55657 0 00000 0 56301 PZE DPRL RG031500 | 55660 0074 00 4 56436 TSX DP300,4 RG031510 | 55661 -0534 00 2 21147 LXD DSIEM,2 RG031520 55662 -0500 00 0 06770 DTS14 CAL DCRM5 SET RT USED INDICATORS RG031530 | 55663 -0602 00 2 21147 ORS DSIEM,2 RG031540 | 55664 0520 00 0 56271 ZET DPSW2 TEST FOR INPUT DICTIONARY RG031550 | 55665 0020 00 0 55670 TRA DTS20 YES, GO GET FIELD SPECS RG031560 | 55666 0074 00 4 56345 TSX DP150,4 NO, COMPUTE FIELD SPECS RG031570 55667 0020 00 0 55757 TRA DTS56 RG031580 | * RG031590 | 55670 -0500 00 2 21150 DTS20 CAL DSIE+DSB+1,2 LOCATE FIELD RECORDS RG031600 | 55671 -0100 00 0 55740 TNZ DTS46 ARE THEY IN CORE RG031610 | 55672 0622 00 0 14403 DTS22 STD DSIFM NO, GET FROM TAPE RG031620 55673 0074 00 4 06342 TSX TPOSIT,4 POSITION TAPE TO DICTIONARY RG031630 | 55674 0 00000 0 00012 PZE 10 * RG031640 | 55675 0074 00 4 05255 DTS24 TSX RD(WR),4 READ DICTIONARY RECORD RG031650 | 55676 0 56266 1 00012 PZE 10,1,DPCMD * RG031660 | 55677 0020 00 0 55703 TRA DTS26 * RG031670 55700 0074 00 4 34503 DTS25 TSX ERROR,4 ERROR, ILLEGAL EOF RG031680 | 55701 0 00007 0 40262 PZE ERM47,,7 * RG031690 | 55702 0020 00 0 55753 TRA DTS52 * RG031700 | 55703 0535 00 4 56266 DTS26 LAC DPCMD,4 SEARCH FOR CORRECT RT RG031710 | 55704 -0500 00 4 00000 CAL 0,4 * RG031720 55705 0771 00 0 00036 ARS 30 * RG031730 | 55706 -0340 00 0 06641 LAS E * RG031740 | 55707 0020 00 0 55675 TRA DTS24 * RG031750 | 55710 0020 00 0 55712 TRA DTS28 * RG031760 | 55711 0020 00 0 55675 TRA DTS24 * RG031770 55712 -0500 00 4 00001 DTS28 CAL 1,4 * RG031780 | 55713 0767 00 0 00022 ALS 18 * RG031790 | 55714 -0320 00 0 07060 ANA BCD60 * RG031800 | 55715 -0340 00 0 56017 LAS DTSRT * RG031810 | 55716 0020 00 0 55675 TRA DTS24 * RG031820 55717 0020 00 0 55721 TRA DTS30 * RG031830 | 55720 0020 00 0 55675 TRA DTS24 * RG031840 | * CORRECT RT FOUND BRING IN CORRESPONDING F RECORDS RG031850 | 55721 0074 00 4 05255 DTS30 TSX RD(WR),4 READ DICTIONARY RECORD RG031860 | 55722 0 56266 1 00012 PZE 10,1,DPCMD * RG031870 55723 0020 00 0 55725 TRA DTS32 * RG031880 | 55724 0020 00 0 55700 TRA DTS25 ERROR, EOF RG031890 | 55725 -0500 60 0 56266 DTS32 CAL* DPCMD TEST FOR F RECORD RG031900 | 1 LISTING OF 12/01/64 PAGE 96 | DICTIONARY SEARCH SUBROUTINE | 55726 0771 00 0 00036 ARS 30 * RG031910 | 55727 -0340 00 0 06642 LAS F * RG031920 | 55730 0020 00 0 55732 TRA *+2 * RG031930 | 55731 0020 00 0 55735 TRA DTS34 * RG031940 55732 -0500 00 0 14404 DTS33 CAL DSIFL NO, ASSUME F RECORDS ALL IN RG031950 | 55733 0602 00 2 21150 SLW DSIEM+1,2 RG031960 | 55734 0020 00 0 55740 TRA DTS46 * RG031970 | 55735 0074 00 4 56307 DTS34 TSX DP100,4 YES, GET FIELD SPECS RG031980 | 55736 0074 00 4 56530 TSX DP400,4 MAKE ENTRY TO DSIF TABLE RG031990 55737 0020 00 0 55721 TRA DTS30 GET NEXT RECORD RG032000 | * SEARCH FOR FIELD SPECIFICATIONS RG032010 | 55740 -0734 00 4 00000 DTS46 PDX 0,4 RG032020 | 55741 0621 00 0 55743 STA DTS50 RG032030 | 55742 -0500 00 0 56302 CAL RFTYPE RG032040 55743 -0340 00 4 00000 DTS50 LAS **,4 RG032050 | 55744 0020 00 0 55746 TRA *+2 RG032060 | 55745 1 77777 4 55755 TXI DTS54,4,-1 RG032070 | 55746 2 00002 4 55743 TIX DTS50,4,2 RG032080 | 55747 0602 00 0 40276 SLW ERM49+1 RG032090 55750 0074 00 4 34503 TSX ERROR,4 RG032100 | 55751 0 00004 0 40275 PZE ERM49,,4 RG032110 | 55752 -0625 00 0 34552 STL ERSWT RG032120 | 55753 0600 00 0 56277 DTS52 STZ DPWBLM RG032130 | 55754 0020 00 0 55757 TRA DTS56 RG032140 55755 -0500 60 0 55743 DTS54 CAL* DTS50 RG032150 | 55756 0602 00 0 56277 SLW DPWBLM RG032160 | 55757 0074 00 4 55771 DTS56 TSX DTS60,4 EXPAND WBLM RG032170 | 55760 0774 00 2 00000 DTS57 AXT **,2 RG032180 | 55761 0774 00 4 00000 DTS58 AXT **,4 RG032190 55762 0774 00 1 00000 DTS59 AXT **,1 RG032200 | 55763 0560 00 4 00001 LDQ 1,4 RG032210 | 55764 0162 00 0 55766 TQP *+2 INPUT RG032220 | 55765 0020 00 4 00002 TRA 2,4 RG032230 | 55766 -0500 00 0 56277 CAL DPWBLM RG032240 55767 0602 00 0 63401 SLW PLCHR SAVE W,B,L,M FOR CLASSIFY FUNCTIONS RG032250 | 55770 0020 00 4 00002 TRA 2,4 RG032260 | 55771 -0500 00 0 56277 DTS60 CAL DPWBLM EXPAND WBLM RG032270 | 55772 -0765 00 0 00032 LGR 26 RG032280 | 55773 0602 00 0 56273 SLW DPWORD WORD RG032290 55774 -0754 00 0 00000 PXD 0,0 RG032300 | 55775 -0763 00 0 00012 LGL 10 RG032310 | 55776 0602 00 0 56274 SLW DPBIT BIT RG032320 | 55777 -0754 00 0 00000 PXD 0,0 RG032330 | 56000 -0763 00 0 00012 LGL 10 RG032340 56001 0602 00 0 56275 SLW DPLGTH LENGTH RG032350 | 56002 -0754 00 0 00000 PXD 0,0 RG032360 | 56003 -0763 00 0 00006 LGL 6 RG032370 | 56004 0602 00 0 56276 SLW DPMODE MODE RG032380 | 56005 0020 00 4 00001 TRA 1,4 RG032390 * RG032400 | 56006 -0500 00 0 56273 DTS70 CAL DPWORD COMBINE WBLM RG032410 | 56007 0767 00 0 00012 ALS 10 RG032420 | 56010 -0501 00 0 56274 ORA DPBIT RG032430 | 56011 0767 00 0 00012 ALS 10 RG032440 56012 -0501 00 0 56275 ORA DPLGTH RG032450 | 1 LISTING OF 12/01/64 PAGE 97 | DICTIONARY SEARCH SUBROUTINE | | 56013 0767 00 0 00006 ALS 6 RG032460 56014 -0501 00 0 56276 ORA DPMODE RG032470 | 56015 0602 00 0 56277 SLW DPWBLM RG032480 | 56016 0020 00 4 00001 TRA 1,4 RG032490 | * RG032500 | 56017 0 00000 0 00000 DTSRT PZE DTS RECORD TYPE STORAGE RG032510 1 LISTING OF 12/01/64 PAGE 98 | PHASE I SUBROUTINE TO READ PARAMETER PACKETS | | 56020 0634 00 4 56077 PREAD SXA PRD90,4 SAVE XR4 RG032530 | 56021 0520 00 0 07425 ZET EOJSW RG032540 56022 0020 00 4 00001 TRA 1,4 RG032550 | 56023 0074 00 4 05255 PRD02 TSX RD(WR),4 GO TO CENTRAL I/O RG032560 | 56024 0 04712 1 00025 PZE 21,1,BCOMD * RG032570 | 56025 0020 00 0 56032 TRA PRD06 NORMAL RETURN RG032580 | 56026 -0625 00 0 07424 STL EOPSW SET END OF PACKET SWITCH RG032590 56027 -0625 00 0 07425 STL EOJSW SET END OF JOB SWITCH RG032600 | 56030 0534 00 4 56077 LXA PRD90,4 RG032610 | 56031 0020 00 4 00001 TRA 1,4 EOF RETURN RG032620 | 56032 0600 00 0 07425 PRD06 STZ EOJSW RESET SWITCHES RG032630 | 56033 0600 00 0 07424 STZ EOPSW RG032640 56034 -0500 00 0 04621 PRD10 CAL CARD TEST FOR MONITOR CONTROL CARDS RG032650 | 56035 -0340 00 0 56105 LAS PRD99 * RG032660 | 56036 0020 00 0 56040 TRA *+2 * RG032670 | 56037 0020 00 0 56074 TRA PRD60 RG032680 | 56040 -0340 00 0 56103 LAS PRD97 RG032690 56041 0020 00 0 56043 TRA *+2 RG032700 | 56042 0020 00 0 05115 TRA SGNOFF $IBSYS RG032710 | 56043 -0320 00 0 07070 ANA BCD70 * RG032720 | 56044 -0340 00 0 56104 LAS PRD98 * RG032730 | 56045 0020 00 0 56047 TRA *+2 * RG032740 56046 0020 00 0 56071 TRA PRD50 * RG032750 | 56047 -0320 00 0 07060 ANA BCD60 RG032760 | 56050 -0340 00 0 56102 LAS PRD96 RG032770 | 56051 0020 00 0 56053 TRA *+2 RG032780 | 56052 0020 00 0 56064 TRA PRD20 $*, COMMENT CARD RG032790 56053 -0500 00 0 04622 CAL CARD+1 RG032800 | 56054 -0320 00 0 07074 ANA BCD74 RG032810 | 56055 0322 00 0 56101 ERA PRD95 RG032820 | 56056 0100 00 0 56026 TZE PRD02+3 RG032830 | 56057 0074 00 4 54767 TSX CTEST,4 TEST FOR END OF PACKET RG032840 56060 0 00000 0 00001 PZE 1 RG032850 | 56061 -0 56076 0 06635 MZE A,,PRD72 YES RG032860 | 56062 0 56064 0 06670 PZE ASTRIK,,PRD20 RG032870 | 56063 0020 00 0 56077 TRA PRD90 NO RG032880 | 56064 0074 00 4 05642 PRD20 TSX NLIST,4 PRINT COMMENT ON LINE RG032890 56065 0 00014 0 04621 PZE CARD,,12 RG032900 | 56066 0074 00 4 05646 PRD22 TSX FLIST,4 AND OFF-LINE RG032910 | 56067 0 00014 0 04621 PZE CARD,,12 RG032920 | 56070 0020 00 0 56023 TRA PRD02 RG032930 | 56071 0074 00 4 00117 PRD50 TSX SYSIDR,4 $ID RG032940 56072 0 00000 0 04621 PZE CARD * RG032950 | 56073 0020 00 0 56023 TRA PRD02 RG032960 | 56074 0074 00 4 00712 PRD60 TSX (PAUSE,4 $PAUSE RG032970 | 56075 0020 00 0 56023 TRA PRD02 RG032980 | 56076 -0625 00 0 07424 PRD72 STL EOPSW RG032990 56077 0774 00 4 00000 PRD90 AXT **,4 RETURN TO PHASE 1 RG033000 | 56100 0020 00 4 00002 TRA 2,4 NORMAL RETURN RG033010 | 56101 542545240000 PRD95 BCI 1,*END00 RG033020 | 56102 535400000000 PRD96 BCI 1,$*0000 RG033030 | 56103 533122627062 PRD97 BCI 1,$IBSYS RG033040 56104 533124000000 PRD98 BCI 1,$ID000 RG033050 | 56105 534721646225 PRD99 BCI 1,$PAUSE RG033060 | 1 LISTING OF 12/01/64 PAGE 99 | ROUTINE TO BRING IN INPUT DICTIONARY SPECS | 56106 0441 00 0 04517 DP000 LDI SYMTAP-10 TEST FOR INPUT DICTIONARY RG033080 | 56107 0600 00 0 56271 STZ DPSW2 RG033090 | 56110 0056 00 400000 RNT 400000 RG033100 | 56111 0020 00 0 56222 TRA DP028 NO,BYPASS PROCESSING OD DICTIONARY RG033110 | 56112 -0625 00 0 56271 STL DPSW2 YES,SET DICTIONARY SWITCH RG033120 56113 -0500 00 0 56304 CAL DP040 RG033130 | 56114 0602 00 0 14403 SLW DSIFM RG033140 | 56115 -0500 00 0 56305 CAL DP045 RG033150 | 56116 0602 00 0 14404 SLW DSIFL RG033160 | 56117 -0500 00 0 56306 CAL DP050 RG033170 56120 0602 00 0 21147 SLW DSIEM RG033180 | 56121 0074 00 4 06342 TSX TPOSIT,4 YES, POSITION DICTIONARY RG033190 | 56122 0 00000 0 00012 PZE 10 * RG033200 | 56123 0074 00 4 05255 DP006 TSX RD(WR),4 READ RECORD RG033210 | 56124 0 56266 1 00012 PZE 10,1,DPCMD * RG033220 56125 0020 00 0 56133 TRA DP010 * RG033230 | 56126 0520 00 0 56272 DP008 ZET DPSW3 WAS A P RECORD READ RG033240 | 56127 0020 00 0 56227 TRA DP030 YES,ALL DONE RG033250 | 56130 0074 00 4 34503 TSX ERROR,4 NO,ERROR RG033260 | 56131 0 00005 0 40262 PZE ERM47,,5 * RG033270 56132 0020 00 0 56227 TRA DP030 * RG033280 | 56133 0535 00 1 56266 DP010 LAC DPCMD,1 TEST FOR B RECORD RG033290 | 56134 -0500 00 1 00000 CAL 0,1 RG033300 | 56135 0771 00 0 00036 ARS 30 * RG033310 | 56136 -0340 00 0 06636 LAS B * RG033320 56137 0020 00 0 56141 TRA DP012 * RG033330 | 56140 0020 00 0 56123 TRA DP006 YES, IGNORE RG033340 | 56141 -0340 00 0 06641 DP012 LAS E NO, TEST FOR E RECORD RG033350 | 56142 0020 00 0 56144 TRA *+2 * RG033360 | 56143 0020 00 0 56154 TRA DP014 YES, PROCESS RG033370 56144 -0340 00 0 06663 LAS P NO, TEST FOR P RECORD RG033380 | 56145 0020 00 0 56147 TRA *+2 * RG033390 | 56146 0020 00 0 56152 TRA DP013 RG033400 | 56147 0074 00 4 34503 TSX ERROR,4 NO, ERROR RG033410 | 56150 0 00005 0 40313 PZE ERM52,,5 UNIDENTIFIED RECORD RG033420 56151 0020 00 0 56123 TRA DP006 CONTINUE PROCESSING RG033430 | 56152 -0625 00 0 56272 DP013 STL DPSW3 SET P ENCOUNTERED SWITCH RG033440 | 56153 0020 00 0 56123 TRA DP006 RG033450 | * PROCESS E RECORD RG033460 | 56154 -0500 00 1 00000 DP014 CAL 0,1 CHECK SERIAL NO RG033470 56155 -0320 00 0 07037 ANA BCD37 RG033480 | 56156 -0501 00 0 07000 ORA PRFX6 RG033490 | 56157 0774 00 4 00006 AXT 6,4 RG033500 | 56160 -0340 60 0 07411 LAS* FCBLOC-10 RG033510 | 56161 0020 00 0 56163 TRA *+2 RG033520 56162 0020 00 0 56173 TRA DP015 RG033530 | 56163 0520 00 0 04406 ZET FPRGSW IF COMBINED RUN, SKIP ERROR MESSAGE RG033540 | 56164 0020 00 0 56173 TRA DP015 RG033550 | 56165 0500 00 0 56266 CLA DPCMD RG033560 | 56166 0621 00 0 56171 STA *+3 RG033570 56167 0074 00 4 34503 TSX ERROR,4 ERROR, SERIAL NO DOES NOT CHECK RG033580 | 56170 -0 00011 0 60110 MZE PIF18,,9 RG033590 | 56171 -0 00014 0 00000 MZE **,,12 RG033600 | 56172 0 00003 0 34543 PZE ER104,,3 RG033610 | 56173 0074 00 4 56415 DP015 TSX DP200,4 GET RT SPECS RG033620 1 LISTING OF 12/01/64 PAGE 100 | ROUTINE TO BRING IN INPUT DICTIONARY SPECS | | 56174 0074 00 4 56436 TSX DP300,4 MAKE ENTRY TO DSIE RG033630 | 56175 0074 00 4 05255 DP016 TSX RD(WR),4 GET NEXT RECORD RG033640 56176 0 56266 1 00012 PZE 10,1,DPCMD * RG033650 | 56177 0020 00 0 56201 TRA DP018 * RG033660 | 56200 0020 00 0 56126 TRA DP008 EOF RETURN RG033670 | 56201 0535 00 1 56266 DP018 LAC DPCMD,1 RG033680 | 56202 -0500 00 1 00000 CAL 0,1 TEST FOR F RECORD RG033690 56203 0771 00 0 00036 ARS 30 * RG033700 | 56204 -0340 00 0 06642 LAS F * RG033710 | 56205 0020 00 0 56207 TRA *+2 * RG033720 | 56206 0020 00 0 56217 TRA DP020 YES, PROCESS RG033730 | 56207 -0340 00 0 06643 LAS G * RG033740 56210 0020 00 0 56212 TRA *+2 * RG033750 | 56211 0020 00 0 56175 TRA DP016 IF G RECORD, IGNORE RG033760 | 56212 -0534 00 4 21147 LXD DSIEM,4 END OF F RECORDS RG033770 | 56213 0560 00 0 14404 LDQ DSIFL PUT LOCATION OF FIELD RG033780 | 56214 -0600 00 4 21150 STQ DSIE+DSB+1,4 ENTRIES TO DSIE TABLE RG033790 56215 0622 00 0 14404 STD DSIFL * RG033800 | 56216 0020 00 0 56141 TRA DP012 * RG033810 | * PROCESS F RECORD RG033820 | 56217 0074 00 4 56307 DP020 TSX DP100,4 GET FIELD SPECS RG033830 | 56220 0074 00 4 56530 TSX DP400,4 MAKE ENTRY TO DSIF RG033840 56221 0020 00 0 56175 TRA DP016 RG033850 | 56222 0600 00 0 56301 DP028 STZ DPRL RG033860 | 56223 -0500 00 0 07312 CAL P2XA3 RG033870 | 56224 0602 00 0 56300 SLW DPRT RG033880 | 56225 -0625 00 0 07314 STL ZZSWT RG033890 56226 0074 00 4 56436 TSX DP300,4 RG033900 | 56227 0600 00 0 56272 DP030 STZ DPSW3 RG033910 | 56230 0020 00 0 56700 TRA P1A00 GO PROCESS PACKETS RG033920 | 56231 DPBUF BSS 28 DICTIONARY RECORD BUFFER RG033930 | 56265 3 00016 0 56231 IORT DPBUF,,14 RG033940 56266 0 00000 0 00000 DPCMD PZE RG033950 | 56267 3 00016 0 56247 IORT DPBUF+14,,14 RG033960 | 56270 0 00000 0 00000 DPSW1 PZE RG033970 | 56271 0 00000 0 00000 DPSW2 PZE RG033980 | 56272 0 00000 0 00000 DPSW3 PZE RG033990 56273 0 00000 0 00000 DPWORD PZE 0 WORD RG034000 | 56274 0 00000 0 00000 DPBIT PZE 0 BIT RG034010 | 56275 0 00000 0 00000 DPLGTH PZE 0 LENGTH RG034020 | 56276 0 00000 0 00000 DPMODE PZE 0 MODE RG034030 | 56277 0 00000 0 00000 DPWBLM PZE 0 WORD, BIT, LENGTH, MODE RG034040 56300 0 00000 0 00000 DPRT PZE 0 RECORD TYPE RG034050 | 56301 0 00000 0 00000 DPRL PZE 0 RECORD LENGTH RG034060 | 56302 0 00000 0 00000 RFTYPE PZE 0 RECORD TYPE AND FIELD NO. RG034070 | 56303 0 00000 0 00000 DPRMP PZE RIGHTMOST PRINT POSITION RG034080 | 56304 0 03722 4 10463 DP040 PZE DSIF,4,DSC+2 RG034090 56305 0 00000 4 10463 DP045 PZE DSIF,4,0 RG034100 | 56306 0 00622 0 00000 DP050 PZE 0,0,DSB+2 RG034110 | 1 LISTING OF 12/01/64 PAGE 101 | SUBROUTINE TO COMPUTE FIELD SPECS FROM F RECORD | * XR1 ASSUMED TO LOCATE RECORD RG034130 | * RG034140 | 56307 0634 00 4 56411 DP100 SXA DP190,4 SAVE XRS RG034150 | 56310 0634 00 2 56412 SXA DP191,2 * RG034160 | 56311 0634 00 1 56413 SXA DP192,1 * RG034170 56312 -0500 00 1 00002 CAL 2,1 RG034180 | 56313 0560 00 1 00003 LDQ 3,1 RG034190 | 56314 -0765 00 0 00006 LGR 6 RG034200 | 56315 -0600 00 0 07102 STQ TEMP RG034210 | 56316 0074 00 4 36560 TSX BCDBIC,4 RG034220 56317 0 00000 0 07102 PZE TEMP RG034230 | 56320 0765 00 0 00043 LRS 35 RG034240 | 56321 0221 00 0 06760 DVP TEN+90 RG034250 | 56322 -0600 00 0 56273 STQ DPWORD RG034260 | 56323 0601 00 0 56274 STO DPBIT RG034270 56324 -0500 00 1 00001 CAL 1,1 RG034280 | 56325 0560 00 1 00002 LDQ 2,1 RG034290 | 56326 -0763 00 0 00006 LGL 6 RG034300 | 56327 -0320 00 0 07007 ANA BCD07 RG034310 | 56330 0602 00 0 56275 SLW DPLGTH RG034320 56331 0074 00 4 36560 TSX BCDBIC,4 RG034330 | 56332 0 00000 0 56275 PZE DPLGTH RG034340 | 56333 -0500 00 1 00000 CAL 0,1 RT AND FIELD NO RG034350 | 56334 0560 00 1 00001 LDQ 1,1 RG034360 | 56335 -0763 00 0 00006 LGL 6 RG034370 56336 0602 00 0 56302 SLW RFTYPE RG034380 | 56337 0500 00 0 06614 CLA ZERO MODE RG034390 | 56340 0774 00 4 00003 AXT 3,4 RG034400 | 56341 -0773 00 0 00005 RQL 5 RG034410 | 56342 -0763 00 0 00001 LGL 1 RG034420 56343 2 00001 4 56341 TIX *-2,4,1 RG034430 | 56344 0020 00 0 56400 TRA DP160 RG034440 | 1 LISTING OF 12/01/64 PAGE 102 | SUBROUTINE TO GET FIELD SPECS FROM CARD | * CARD ASSUMED TO BE AT CARDS+1 RG034460 | * RG034470 | 56345 0634 00 4 56411 DP150 SXA DP190,4 RG034480 | 56346 0634 00 2 56412 SXA DP191,2 RG034490 | 56347 0634 00 1 56413 SXA DP192,1 RG034500 56350 -0500 00 0 56302 CAL RFTYPE RG034510 | 56351 -0320 00 0 07017 ANA BCD17 RG034520 | 56352 0602 00 0 07102 SLW TEMP RG034530 | 56353 0074 00 4 36560 TSX BCDBIC,4 RG034540 | 56354 0 00000 0 07102 PZE TEMP RG034550 56355 0765 00 0 00043 LRS 35 CONVERT CHARACTERS TO BITS RG034560 | 56356 0200 00 0 06622 MPY SIX RG034570 | 56357 0221 00 0 06660 DVP TEN+26 RG034580 | 56360 -0600 00 0 56273 STQ DPWORD RG034590 | 56361 0601 00 0 56274 STO DPBIT RG034600 56362 0074 00 4 55035 TSX GETVF,4 GET FIELD LENGTH RG034610 | 56363 0 00000 0 07174 PZE CARDS+1 RG034620 | 56364 0 00043 0 00041 PZE 33,,35 COLUMNS 33-35 RG034630 | 56365 0602 00 0 56275 SLW DPLGTH RG034640 | 56366 -0100 00 0 56372 TNZ DP154 RG034650 56367 0074 00 4 34503 TSX ERROR,4 ERROR, FIELD LENGTH BLANK RG034660 | 56370 -0 00006 0 40221 MZE ERM38,,6 RG034670 | 56371 0 00014 0 07174 PZE CARDS+1,,12 RG034680 | 56372 0074 00 4 36560 DP154 TSX BCDBIC,4 CONVERT LENGTH TO BINARY RG034690 | 56373 0 00000 0 56275 PZE DPLGTH RG034700 56374 0765 00 0 00043 LRS 35 CONVERT CHARACTERS TO BITS RG034710 | 56375 0200 00 0 06622 MPY SIX RG034720 | 56376 -0600 00 0 56275 STQ DPLGTH SAVE FIELD LENGTH RG034730 | 56377 0500 00 0 06622 CLA SIX RG034740 | 56400 0602 00 0 56276 DP160 SLW DPMODE RG034750 56401 -0765 00 0 00006 LGR 6 RG034760 | 56402 -0500 00 0 56275 CAL DPLGTH RG034770 | 56403 -0765 00 0 00012 LGR 10 RG034780 | 56404 -0500 00 0 56274 CAL DPBIT RG034790 | 56405 -0765 00 0 00012 LGR 10 RG034800 56406 -0500 00 0 56273 CAL DPWORD RG034810 | 56407 -0765 00 0 00012 LGR 10 RG034820 | 56410 -0600 00 0 56277 STQ DPWBLM RG034830 | 56411 0774 00 4 00000 DP190 AXT **,4 RETURN RG034840 | 56412 0774 00 2 00000 DP191 AXT **,2 * RG034850 56413 0774 00 1 00000 DP192 AXT **,1 * RG034860 | 56414 0020 00 4 00001 TRA 1,4 * RG034870 | 1 LISTING OF 12/01/64 PAGE 103 | SUBROUTINE TO GET RT AND LENGTH FROM E RECORD | * XR1 ASSUMED TO CONTAIN LOCATION OF RECORD RG034890 | * RG034900 | 56415 0634 00 4 56432 DP200 SXA DP290,4 SAVE XRS RG034910 | 56416 0634 00 2 56433 SXA DP291,2 * RG034920 | 56417 0634 00 1 56434 SXA DP292,1 * RG034930 56420 -0500 00 0 07060 CAL BCD60 RG034940 | 56421 0602 00 0 56300 SLW DPRT RECORD TYPE RG034950 | 56422 -0500 00 1 00001 CAL 1,1 RG034960 | 56423 0560 00 1 00002 LDQ 2,1 RG034970 | 56424 -0763 00 0 00022 LGL 18 RG034980 56425 0320 00 0 56300 ANS DPRT RG034990 | 56426 -0320 00 0 07017 ANA BCD17 RG035000 | 56427 0602 00 0 56301 SLW DPRL RECORD LENGTH RG035010 | 56430 0074 00 4 36560 TSX BCDBIC,4 RG035020 | 56431 0 00000 0 56301 PZE DPRL RG035030 56432 0774 00 4 00000 DP290 AXT **,4 RG035040 | 56433 0774 00 2 00000 DP291 AXT **,2 RG035050 | 56434 0774 00 1 00000 DP292 AXT **,1 RG035060 | 56435 0020 00 4 00001 TRA 1,4 RG035070 | 1 LISTING OF 12/01/64 PAGE 104 SUBROUTINE TO MAKE ENTRY TO DSIE TABLE | | * INPUT RT ASSUMED TO BE LEFT JUSTIFIED IN DPRT RG035090 | * RECORD LENGTH ASSUMED TO BE IN ADDRESS OF DPRL RG035100 | * RG035110 56436 0634 00 4 56471 DP300 SXA DP340,4 SAVE XR4 RG035120 | 56437 0774 00 4 00620 AXT DSB,4 RG035130 | 56440 -0500 00 4 21147 DP302 CAL DSIE+DSB,4 RG035140 | 56441 -0320 00 0 07060 ANA BCD60 RG035150 | 56442 -0340 00 0 56300 LAS DPRT RG035160 56443 0020 00 0 56445 TRA *+2 RG035170 | 56444 0020 00 0 56454 TRA DP304 RG035180 | 56445 2 00002 4 56440 TIX DP302,4,2 RG035190 | 56446 -0534 00 4 21147 LXD DSIEM,4 RG035200 | 56447 2 00002 4 56462 TIX DP310,4,2 RG035210 56450 0074 00 4 34503 TSX ERROR,4 RG035220 | 56451 -0 00007 0 40243 MZE ERM44,,7 RG035230 | 56452 0 00003 0 40320 PZE ERM53,,3 RG035240 | 56453 0020 00 0 56471 TRA DP340 RG035250 | 56454 0771 00 0 00030 DP304 ARS 24 RG035260 56455 0621 00 0 40324 STA ERM54+1 RG035270 | 56456 0074 00 4 34503 TSX ERROR,4 RG035280 | 56457 -0 00006 0 40323 MZE ERM54,,6 RG035290 | 56460 0 00005 0 40331 PZE ERM55,,5 RG035300 | 56461 0020 00 0 56471 TRA DP340 RG035310 56462 -0634 00 4 21147 DP310 SXD DSIEM,4 RG035320 | 56463 -0500 00 0 56300 CAL DPRT RG035330 | 56464 -0501 00 0 56301 ORA DPRL RG035340 | 56465 0602 00 4 21147 SLW DSIEM,4 RG035350 | 56466 -0500 00 0 14404 CAL DSIFL RG035360 56467 0602 00 4 21150 SLW DSIEM+1,4 RG035370 | 56470 -0634 00 0 14404 SXD DSIFL,0 RG035380 | 56471 0774 00 4 00000 DP340 AXT **,4 RETURN RG035390 | 56472 0020 00 4 00001 TRA 1,4 RG035400 | 1 LISTING OF 12/01/64 PAGE 105 SUBROUTINE TO MAKE ENTRY TO DSOE TABLE | | * OUTPUT RECORD TYPE ASSUMED TO BE LEFT JUSTIFIED IN DPRT RG035420 | * RECORD LENGTH ASSUMED TO BE IN ADDRESS OF DPRL RG035430 | * RG035440 56473 0634 00 4 56526 DP350 SXA DP390,4 RG035450 | 56474 0774 00 4 00620 AXT DSE,4 RG035460 | 56475 -0500 00 4 21770 DP352 CAL DSOE+DSE,4 RG035470 | 56476 -0320 00 0 07060 ANA BCD60 RG035480 | 56477 -0340 00 0 56300 LAS DPRT RG035490 56500 0020 00 0 56502 TRA *+2 RG035500 | 56501 0020 00 0 56511 TRA DP354 RG035510 | 56502 2 00002 4 56475 TIX DP352,4,2 RG035520 | 56503 -0534 00 4 21770 LXD DSOEM,4 RG035530 | 56504 2 00002 4 56517 TIX DP360,4,2 RG035540 56505 0074 00 4 34503 TSX ERROR,4 RG035550 | 56506 -0 00007 0 40345 MZE ERM57,,7 RG035560 | 56507 0 00003 0 40320 PZE ERM53,,3 RG035570 | 56510 0020 00 0 56526 TRA DP390 RG035580 | 56511 0771 00 0 00030 DP354 ARS 24 BUILD ERROR MESSAGE RG035590 56512 0621 00 0 40364 STA ERM59+1 RG035600 | 56513 0074 00 4 34503 TSX ERROR,4 ERROR, RT DUPLICATELY DEFINED RG035610 | 56514 -0 00006 0 40363 MZE ERM59,,6 RG035620 | 56515 0 00005 0 40331 PZE ERM55,,5 RG035630 | 56516 0020 00 0 56526 TRA DP390 RG035640 56517 -0634 00 4 21770 DP360 SXD DSOEM,4 RG035650 | 56520 -0500 00 0 56300 CAL DPRT RG035660 | 56521 -0501 00 0 56301 ORA DPRL RG035670 | 56522 0602 00 4 21770 SLW DSOEM,4 RG035680 | 56523 -0500 00 0 20326 CAL DSOFL RG035690 56524 0602 00 4 21771 SLW DSOEM+1,4 RG035700 | 56525 -0634 00 0 20326 SXD DSOFL,0 RG035710 | 56526 0774 00 4 00000 DP390 AXT **,4 RG035720 | 56527 0020 00 4 00001 TRA 1,4 RG035730 | 1 LISTING OF 12/01/64 PAGE 106 SUBROUTINE TO MAKE ENTRY TO DSIF TABLE | | * WBLM ASSUMED TO BE IN DPWBLM RG035750 | * RT AND FIELD NUMBER ASSUMED TO BE IN RFTYPE RG035760 | * RG035770 56530 0634 00 4 56573 DP400 SXA DP440,4 SAVE XRS RG035780 | 56531 0634 00 2 56574 SXA DP441,2 * RG035790 | 56532 -0534 00 4 14403 DP402 LXD DSIFM,4 TEST FOR TABLE FULL RG035800 | 56533 2 00002 4 56563 TIX DP430,4,2 * RG035810 | 56534 -0534 00 4 14404 LXD DSIFL,4 YES, TEST F RECORD COUNT RG035820 56535 -3 03716 4 56547 TXL DP410,4,DSC-2 ERROR, TOO MANY F RECORDS RG035830 | 56536 -0500 00 0 56300 CAL DPRT * RG035840 | 56537 0771 00 0 00030 ARS 24 * RG035850 | 56540 0621 00 0 40274 STA ERM48+5 * RG035860 | 56541 -0500 00 0 56302 CAL RFTYPE * RG035870 56542 0602 00 0 40276 SLW ERM49+1 * RG035880 | 56543 0074 00 4 34503 TSX ERROR,4 * RG035890 | 56544 -0 00006 0 40267 MZE ERM48,,6 * RG035900 | 56545 0 00004 0 40275 PZE ERM49,,4 * RG035910 | 56546 0020 00 0 56573 TRA DP440 IGNORE RECORD CONTINUE RG035920 * ERASE OLD F RECORDS TO MAKE ROOM FOR NEW RG035930 | 56547 0774 00 2 03720 DP410 AXT DSC,2 SAVE F RECORDS FOR CURRENT RT RG035940 | 56550 -0500 60 0 14404 CAL* DSIFL * RG035950 | 56551 0602 00 2 14403 SLW DSIF+DSC,2 * RG035960 | 56552 1 77777 2 56553 TXI *+1,2,-1 * RG035970 56553 2 00001 4 56550 TIX *-3,4,1 * RG035980 | 56554 -0634 00 2 14403 SXD DSIFM,2 * RG035990 | 56555 1 10463 4 56556 TXI *+1,4,DSIF * RG036000 | 56556 0634 00 4 14404 SXA DSIFL,4 * RG036010 | 56557 0774 00 2 00620 AXT DSB,2 ERASE ALL PREVIOUS REFERENCES TO F RECORDS RG036020 56560 0600 00 2 14404 STZ DSIFM+1,2 RG036030 | 56561 2 00002 2 56560 TIX *-1,2,2 * RG036040 | 56562 0020 00 0 56532 TRA DP402 PROCESS CURRENT F RECORD RG036050 | 56563 -0634 00 4 14403 DP430 SXD DSIFM,4 RG036060 | 56564 -0500 00 0 56302 CAL RFTYPE RG036070 56565 0602 00 4 14403 SLW DSIFM,4 WORD1 RG036080 | 56566 -0500 00 0 56277 CAL DPWBLM RG036090 | 56567 0602 00 4 14404 SLW DSIFM+1,4 WORD2 RG036100 | 56570 -0500 00 0 14404 CAL DSIFL RG036110 | 56571 0400 00 0 07100 ADD DBL02 RG036120 56572 0602 00 0 14404 SLW DSIFL RG036130 | 56573 0774 00 4 00000 DP440 AXT **,4 RG036140 | 56574 0774 00 2 00000 DP441 AXT **,2 RG036150 | 56575 0020 00 4 00001 TRA 1,4 RG036160 | 1 LISTING OF 12/01/64 PAGE 107 SUBROUTINE TO MAKE ENTRY TO DSOF TABLE | | * WBLM ASSUMED TO BE IN DPWBLM RG036180 | * RT AND FIELD NUMBER ASSUMED TO BE IN RFTYPE RG036190 | * RG036200 56576 0634 00 4 56615 DP450 SXA DP490,4 RG036210 | 56577 -0534 00 4 20325 LXD DSOFM,4 RG036220 | 56600 2 00002 4 56605 TIX DP460,4,2 RG036230 | 56601 0074 00 4 34503 TSX ERROR,4 RG036240 | 56602 -0 00007 0 40354 MZE ERM58,,7 RG036250 56603 0 00003 0 40320 PZE ERM53,,3 RG036260 | 56604 0020 00 0 56615 TRA DP490 RG036270 | 56605 -0634 00 4 20325 DP460 SXD DSOFM,4 RG036280 | 56606 -0500 00 0 56302 CAL RFTYPE RG036290 | 56607 0602 00 4 20325 SLW DSOFM,4 RG036300 56610 -0500 00 0 56277 CAL DPWBLM RG036310 | 56611 0602 00 4 20326 SLW DSOFM+1,4 RG036320 | 56612 -0500 00 0 20326 CAL DSOFL RG036330 | 56613 0400 00 0 07100 ADD DBL02 RG036340 | 56614 0602 00 0 20326 SLW DSOFL RG036350 56615 0774 00 4 00000 DP490 AXT **,4 RG036360 | 56616 0020 00 4 00001 TRA 1,4 RG036370 | 1 LISTING OF 12/01/64 PAGE 108 | SUBROUTINE TO PROCESS INPUT RECORD TYPE | * INPUT RT ASSUMED TO BE LEFT JUSTIFIED IN AC RG036390 | * CARD ASSUMED TO BE AT CARDS+1 RG036400 | * RG036410 | 56617 0634 00 4 56674 DP500 SXA DP540,4 SAVE XRS RG036420 | 56620 0634 00 2 56675 SXA DP541,2 RG036430 56621 0634 00 1 56676 SXA DP542,1 RG036440 | 56622 -0774 00 1 07174 AXC CARDS+1,1 SET XR1 RG036450 | 56623 0602 00 0 07102 SLW TEMP RG036460 | 56624 0774 00 2 00620 AXT DSB,2 RG036470 | 56625 -0100 00 0 56632 TNZ DP510 TEST FOR IRT BLANK RG036480 56626 0074 00 4 34503 TSX ERROR,4 YES,ERROR RG036490 | 56627 -0 00005 0 40144 MZE ERM32,,5 RG036500 | 56630 0 00014 0 07174 PZE CARDS+1,,12 RG036510 | 56631 0020 00 0 56674 TRA DP540 RG036520 | 56632 -0500 00 2 21147 DP510 CAL DSIEM,2 SCAN DSIE TABLE RG036530 56633 -0320 00 0 07060 ANA BCD60 RG036540 | 56634 0322 00 0 07102 ERA TEMP RG036550 | 56635 0100 00 0 56672 TZE DP530 RG036560 | 56636 0520 00 2 21151 ZET DSIEM+2,2 RG036570 | 56637 2 00002 2 56632 TIX DP510,2,2 RG036580 56640 -0500 00 0 07102 CAL TEMP R RG036590 | 56641 -0340 00 0 07312 LAS P2XA3 RG036600 | 56642 0020 00 0 56644 TRA *+2 RG036610 | 56643 0020 00 0 56655 TRA DP512 RG036620 | 56644 -0520 00 0 56271 NZT DPSW2 RG036630 56645 0020 00 0 56661 TRA DP520 RG036640 | 56646 -0500 00 0 07102 CAL TEMP RG036650 | 56647 0771 00 0 00030 ARS 24 RG036660 | 56650 0621 00 0 40253 STA ERM45+1 RG036670 | 56651 0074 00 4 34503 TSX ERROR,4 RG036680 56652 -0 00004 0 40252 MZE ERM45,,4 RG036690 | 56653 0 00014 0 07174 PZE CARDS+1,,12 RG036700 | 56654 0020 00 0 56674 TRA DP540 RG036710 | 56655 0602 00 0 56300 DP512 SLW DPRT RG036720 | 56656 0600 00 0 56301 STZ DPRL RG036730 56657 -0625 00 0 07314 STL ZZSWT RG036740 | 56660 0020 00 0 56670 TRA DP522 RG036750 | 56661 -0500 00 1 00000 DP520 CAL 0,1 RG036760 | 56662 0767 00 0 00030 ALS 24 RG036770 | 56663 0602 00 0 56300 SLW DPRT RECORD TYPE RG036780 56664 -0500 00 0 07313 CAL P2XA4 RG036790 | 56665 0602 00 0 56301 SLW DPRL RG036800 | 56666 0074 00 4 36560 TSX BCDBIC,4 RG036810 | 56667 0 00000 0 56301 PZE DPRL RG036820 | 56670 0074 00 4 56436 DP522 TSX DP300,4 MAKE ENTRY TO DSIE TABLE RG036830 56671 -0534 00 2 21147 LXD DSIEM,2 RG036840 | 56672 -0500 00 0 06764 DP530 CAL DCRM1 RG036850 | 56673 -0602 00 2 21147 ORS DSIEM,2 DESIGNATE RT AS USED RG036860 | 56674 0774 00 4 00000 DP540 AXT **,4 RG036870 | 56675 0774 00 2 00000 DP541 AXT **,2 RG036880 56676 0774 00 1 00000 DP542 AXT **,1 RG036890 | 56677 0020 00 4 00001 TRA 1,4 RG036900 | 1 LISTING OF 12/01/64 PAGE 109 | INITIALIZE FOR PHASE I | 56700 P1A00 BSS 0 TRANSFER POINT FOR PHASE 1 RG036920 | 56700 0074 00 4 05630 TSX CLIST,4 WRITE START OF PHASE 1 MESSAGE RG036930 | 56701 0 00003 3 65417 PZE PIT89,3,3 RG036940 | 56702 0774 00 1 00030 AXT 24,1 RECORD POSITION OF SCRATCH TAPES RG036950 | 56703 0500 00 1 04531 P1A02 CLA SYMTAP,1 TEST FOR SCRATCH USED RG036960 56704 -0320 00 0 07003 ANA BCD03 RG036970 | 56705 0100 00 0 56711 TZE P1A04 NO, DO NOT POSITION RG036980 | 56706 0634 00 1 56710 SXA *+2,1 YES RG036990 | 56707 0074 00 4 06342 TSX TPOSIT,4 * RG037000 | 56710 -0 00000 0 00000 MZE ** * RG037010 56711 1 00001 1 56712 P1A04 TXI *+1,1,1 RG037020 | 56712 -3 00034 1 56703 TXL P1A02,1,28 LOOP FOR ALL UNITS RG037030 | * RG037040 | 56713 0500 00 0 04401 CLA OBJL2 SAVE OBJECT LIMITS RG037050 | 56714 0340 00 0 54630 CAS ENDP3 IF THE START OF THE RG037060 56715 0020 00 0 56721 TRA *+4 GENERATED OBJECT PROGRAM RG037070 | 56716 0020 00 0 56721 TRA *+3 WOULD CLOBBER PHASE 3, MOVE RG037080 | 56717 0500 00 0 54630 CLA ENDP3 START OF GENERATED OBJECT TO AFTER RG037090 | 56720 0601 00 0 04401 STO OBJL2 PHASE 3 RG037100 | 56721 0601 00 0 04404 STO OBJL5 RG037110 56722 0500 00 0 04402 CLA OBJL3 RG037120 | 56723 0601 00 0 04405 STO OBJL6 RG037130 | 1 LISTING OF 12/01/64 PAGE 110 | PROCESS A01 CARD | 56724 0074 00 4 56020 P1A10 TSX PREAD,4 GET 1ST CARD OF PACKET RG037150 | 56725 0074 00 4 57247 TSX P1A90,4 ILLEGAL EOF RG037160 | 56726 0074 00 4 54767 P1A11 TSX CTEST,4 TEST FOR A01 RG037170 | 56727 0 00000 0 00001 PZE 1 * RG037180 | 56730 0 56732 0 06635 PZE A,,P1A12 * RG037190 56731 0020 00 0 56735 TRA P1A14 * RG037200 | 56732 0074 00 4 54767 P1A12 TSX CTEST,4 * RG037210 | 56733 0 00000 0 00003 PZE 3 * RG037220 | 56734 0 56741 0 06615 PZE ONE,,P1A16 * RG037230 | 56735 0074 00 4 34503 P1A14 TSX ERROR,4 ERROR NOT A01 RG037240 56736 -0 00003 0 37717 MZE ERM11,,3 * RG037250 | 56737 0 00014 0 04621 PZE CARD,,12 * RG037260 | 56740 0020 00 0 56724 TRA P1A10 SEARCH FOR A01 CARD RG037270 | 56741 0074 00 4 05013 P1A16 TSX STZLUP,4 INITIALIZE TABLES RG037280 | 56742 0 12511 0 34502 PZE CALTB,,CALTB-ERTBL RG037290 56743 0074 00 4 05013 TSX STZLUP,4 RG037300 | 56744 0 13560 0 54466 PZE PARTM,,P2JC5 RG037310 | 56745 0774 00 4 00622 AXT P2JB5+2,4 INITIALIZE MONITORS RG037320 | 56746 -0634 00 4 22657 SXD LFTBL,4 RG037330 | 56747 0774 00 4 40706 AXT PART,4 RG037340 56750 0634 00 4 54467 SXA PARED,4 RG037350 | 56751 0774 00 4 54465 AXT PARTM-1,4 RG037360 | 56752 0634 00 4 54470 SXA COMRED,4 RG037370 | 56753 0600 00 0 07300 STZ PARCTR RG037380 | 56754 0600 00 0 07424 STZ EOPSW RESET SWITCHES RG037390 56755 0600 00 0 07425 STZ EOJSW RG037400 | 56756 0600 00 0 07277 STZ MSTRSW RG037410 | 56757 0600 00 0 36737 STZ LSTLNO RG037420 | 56760 0500 00 0 06615 CLA ONE RG037430 | 56761 0601 00 0 36745 STO ACNCTR RG037440 56762 0441 00 0 06614 LDI ZERO RG037450 | 56763 0774 00 4 00014 AXT 12,4 MOVE A01 CARD INTO ERTBL RG037460 | 56764 -0500 00 4 04635 CAL CARD+12,4 * RG037470 | 56765 0602 00 4 22005 SLW ERTBL+12,4 * RG037480 | 56766 2 00001 4 56764 TIX *-2,4,1 * RG037490 56767 -0500 00 0 04622 CAL CARD+1 RG037500 | 56770 0771 00 0 00014 ARS 12 RG037510 | 56771 -0320 00 0 06713 ANA BCD01 RG037520 | 56772 -0340 00 0 06674 LAS BLANK RG037530 | 56773 0020 00 0 56775 TRA *+2 RG037540 56774 0020 00 0 57003 TRA *+7 RG037550 | 56775 -0500 00 0 07342 CAL MASK03 RG037560 | 56776 0767 00 0 00006 ALS 6 RG037570 | 56777 -0501 00 0 06654 ORA MINUS RG037580 | 57000 0767 00 0 00022 ALS 18 RG037590 57001 -0602 00 0 22022 ORS ERTBL+25 RG037600 | 57002 0020 00 0 57007 TRA *+5 RG037610 | 57003 -0500 00 0 06654 CAL MINUS RG037620 | 57004 0767 00 0 00014 ALS 12 RG037630 | 57005 -0501 00 0 07342 ORA MASK03 RG037640 57006 0020 00 0 57000 TRA *-6 RG037650 | 57007 0074 00 4 05630 TSX CLIST,4 PRINT A01 CARD RG037660 | 57010 1 00014 3 21771 PON ERTBL,3,12 * RG037670 | * RG037680 | * BUILD ENTRY FOR ARTO TABLE RG037690 1 LISTING OF 12/01/64 PAGE 111 | PROCESS A01 CARD | | * RG037700 | * FORMAT OF ARTO TABLE RG037710 * S RECORD/REPORT INDICATOR RG037720 | * 1 STACKING RG037730 | * 2 ON-LINE RG037740 | * 3-17 FILE NUMBER RG037750 | * 18-19 NOT USED RG037760 * 21-35 MAXIMUM RECORD LENGTH RG037770 | * RG037780 | 57011 -0534 00 1 07465 P1A20 LXD ARTOM,1 TEST FOR ARTO FULL RG037790 | 57012 2 00001 1 57020 TIX P1A22,1,1 * RG037800 | 57013 0074 00 4 34503 TSX ERROR,4 YES,ERROR RG037810 57014 0 00007 0 37725 PZE ERM13,,7 * RG037820 | 57015 -0625 00 0 07424 STL EOPSW RG037830 | 57016 -0625 00 0 07425 STL EOJSW RG037840 | 57017 0020 00 0 65336 TRA PIT80 GO TO END OF JOB RG037850 | 57020 -0634 00 1 07465 P1A22 SXD ARTOM,1 UPDATE ARTO COUNT RG037860 57021 0074 00 4 54767 TSX CTEST,4 TEST FOR RECORD GENERATION RG037870 | 57022 0 00000 0 00011 PZE 9 COLUMN 9 RG037880 | 57023 0 57027 0 06674 PZE BLANK,,P1A26 * RG037890 | 57024 0502 00 0 06615 CLS ONE SET ARTO RG037900 | 57025 0601 00 1 07465 P1A24 STO ARTO+P2BL3,1 * RG037910 57026 0020 00 0 57044 TRA P1A34 * RG037920 | 57027 0074 00 4 54767 P1A26 TSX CTEST,4 TEST FOR REPORT GENERATION RG037930 | 57030 0 00000 0 00012 PZE 10 COLUMN 10 RG037940 | 57031 0 57034 0 06674 PZE BLANK,,P1A28 * RG037950 | 57032 0600 60 0 57025 STZ* P1A24 * RG037960 57033 0020 00 0 57037 TRA P1A32 * RG037970 | 57034 0074 00 4 34503 P1A28 TSX ERROR,4 ERROR RG037980 | 57035 -0 00005 0 37740 MZE ERM15,,5 NO RECORD/REPORT INDICATION RG037990 | 57036 0 00014 0 04621 PZE CARD,,12 * RG038000 | 57037 0600 00 0 22032 P1A32 STZ PSWCH RG038010 57040 0074 00 4 54767 TSX CTEST,4 RG038020 | 57041 0 00000 0 00014 PZE 12 RG038030 | 57042 0 57044 0 06674 PZE BLANK,,P1A34 RG038040 | 57043 -0625 00 0 22032 STL PSWCH RG038050 | 57044 0774 00 2 00002 P1A34 AXT 2,2 RG038060 57045 0500 00 0 06614 CLA ZERO RG038070 | 57046 0074 00 4 54767 P1A36 TSX CTEST,4 RG038080 | 57047 0 00000 2 00011 PZE 9,2 RG038090 | 57050 -0 57066 0 06674 MZE BLANK,,P1A38 RG038100 | 57051 -0 57077 0 06661 MZE N,,P1A42 RG038110 57052 0 57074 0 06676 PZE S,,P1A40 RG038120 | 57053 2 00001 2 57046 TIX P1A36,2,1 RG038130 | 57054 0601 00 0 07102 STO TEMP RG038140 | 57055 0074 00 4 36560 TSX BCDBIC,4 RG038150 | 57056 0 00000 0 07102 PZE TEMP RG038160 57057 -0340 00 0 06637 LAS TEN+9 RG038170 | 57060 0020 00 0 57117 TRA P1A52 RG038180 | 57061 0020 00 0 57062 TRA *+1 RG038190 | 57062 -0340 00 0 22027 LAS FILNO RG038200 | 57063 0020 00 0 57065 TRA *+2 RG038210 57064 0020 00 0 57074 TRA P1A40 RG038220 | 57065 0020 00 0 57112 TRA P1A50 RG038230 | 57066 2 00001 2 57046 P1A38 TIX P1A36,2,1 RG038240 | 1 LISTING OF 12/01/64 PAGE 112 | PROCESS A01 CARD | 57067 0074 00 4 34503 TSX ERROR,4 RG038250 | 57070 -0 00004 0 37753 MZE ERM18,,4 RG038260 | 57071 0 00014 0 04621 PZE CARD,,12 RG038270 | 57072 -0754 00 0 00000 PXD 0,0 ***RG038280 57073 0020 00 0 57112 TRA P1A50 RG038290 | 57074 -0500 00 1 07464 P1A40 CAL ARTOM-1,1 STACKING SITUATION RG038300 | 57075 -0501 00 0 06776 ORA PRFX2 RG038310 | 57076 0020 00 0 57107 TRA P1A46 RG038320 | 57077 0500 60 0 57025 P1A42 CLA* P1A24 ON-LINE INDICATED RG038330 57100 0120 00 0 57106 TPL P1A44 TEST FOR REPORT RG038340 | 57101 0074 00 4 34503 TSX ERROR,4 ERROR,RECORD RG038350 | 57102 -0 00005 0 40560 MZE ERM91,,5 * RG038360 | 57103 -0 00014 0 04621 MZE CARD,,12 RG038370 | 57104 0 00004 0 40554 PZE ERM90,,4 RG038380 57105 -0625 00 0 34552 STL ERSWT RG038390 | 57106 -0501 00 0 06775 P1A44 ORA PRFX1 REPORT ON-LINE RG038400 | 57107 0602 60 0 57025 P1A46 SLW* P1A24 RG038410 | 57110 -0734 00 4 00000 PDX 0,4 RG038420 | 57111 0754 00 4 00000 PXA 0,4 RG038430 57112 0601 00 0 22027 P1A50 STO FILNO UPDATE FILE NUMBER RG038440 | 57113 0534 00 4 22027 LXA FILNO,4 FILE NUMBER TO ARTO TABLE RG038450 | 57114 -0754 00 4 00000 PXD 0,4 RG038460 | 57115 0622 60 0 57025 STD* P1A24 RG038470 | 57116 0020 00 0 57124 TRA P1A54 RG038480 57117 0074 00 4 34503 P1A52 TSX ERROR,4 * RG038490 | 57120 -0 00004 0 37734 MZE ERM14,,4 * RG038500 | 57121 -0 00004 0 40554 MZE ERM90,,4 * RG038510 | 57122 0 00014 0 04621 PZE CARD,,12 * RG038520 | 57123 -0625 00 0 34552 STL ERSWT RG038530 57124 0500 00 0 07307 P1A54 CLA P2XA0 COUNT REPORT RG038540 | 57125 0400 00 0 06615 ADD ONE RG038550 | 57126 0601 00 0 07307 STO P2XA0 RG038560 | 57127 0601 00 0 22034 STO RPTNO UPDATE REPORT NUMBER RG038570 | 1 LISTING OF 12/01/64 PAGE 113 PROCESS A02 CARD | | 57130 0074 00 4 56020 P1A60 TSX PREAD,4 GET 2ND CARD OF PACKET RG038590 | 57131 0074 00 4 57247 TSX P1A90,4 ILLEGAL EOF RG038600 | 57132 0074 00 4 54767 TSX CTEST,4 TEST FOR A02 RG038610 57133 0 00000 0 00001 PZE 1 * RG038620 | 57134 0 57136 0 06635 PZE A,,P1A62 * RG038630 | 57135 0020 00 0 57141 TRA P1A64 * RG038640 | 57136 0074 00 4 54767 P1A62 TSX CTEST,4 * RG038650 | 57137 0 00000 0 00003 PZE 3 * RG038660 57140 0 57145 0 06616 PZE TWO,,P1A66 * RG038670 | 57141 0074 00 4 34503 P1A64 TSX ERROR,4 ERROR,NOT A02 RG038680 | 57142 -0 00003 0 37722 MZE ERM12,,3 * RG038690 | 57143 0 00014 0 04621 PZE CARD,,12 * RG038700 | 57144 0020 00 0 57130 TRA P1A60 SEARCH FOR A02 RG038710 57145 0761 00 0 00000 P1A66 NOP RG038720 | 57146 0074 00 4 55035 TSX GETVF,4 GET RECORD LENGTH RG038730 | 57147 0 00000 0 04621 PZE CARD RG038740 | 57150 0 00042 0 00037 PZE 31,,34 RG038750 | 57151 -0100 00 0 57153 TNZ *+2 TEST FOR BLANKS RG038760 57152 -0500 00 0 06720 CAL TEN+58 GET BCD 14 RG038770 | 57153 -0520 00 0 07313 NZT P2XA4 TEST FOR PREVIOUS LENGTH RG038780 | 57154 0602 00 0 07313 SLW P2XA4 NO, THIS IS FIRST A02 CARD RG038790 | 57155 -0340 00 0 07313 LAS P2XA4 COMPARE AGAINST PREVIOUS LENGTH RG038800 | 57156 0020 00 0 57160 TRA *+2 RG038810 57157 0020 00 0 57205 TRA P1A70 RG038820 | 57160 0602 00 0 57174 SLW P1A68+3 ERROR, INCONSISTENT LENGH RG038830 | 57161 -0500 00 0 07313 CAL P2XA4 RG038840 | 57162 0602 00 0 57204 SLW P1A68+11 RG038850 | 57163 0074 00 4 34503 TSX ERROR,4 RG038860 57164 -0 00014 0 57171 MZE P1A68,,12 RG038870 | 57165 -0 00014 0 04621 MZE CARD,,12 RG038880 | 57166 0 00004 0 34546 PZE ER105,,4 RG038890 | 57167 -0625 00 0 34552 STL ERSWT NO RECOVERY RG038900 | 57170 0020 00 0 57205 TRA P1A70 RG038910 57171 236451512545 P1A68 BCI 5,CURRENT RECORD LENGTH RG038920 | 57172 636051252346 | 57173 512460432545 | 57174 276330606060 | 57175 606060606060 57176 454663602346 BCI 7,NOT CONSISTENT WITH PREVIOUS LENGTH RG038930 | 57177 456231626325 | 57200 456360663163 | 57201 306047512565 | 57202 314664626043 57203 254527633060 | 57204 606060606060 | 57205 0774 00 4 00014 P1A70 AXT 12,4 MOVE A02 INTO ERTBL RG038940 | 57206 -0500 00 4 04635 CAL CARD+12,4 * RG038950 | 57207 0602 00 4 22021 SLW ERTBL+24,4 RG038960 57210 2 00001 4 57206 TIX *-2,4,1 * RG038970 | 57211 0074 00 4 05630 TSX CLIST,4 PRINT A02 CARD RG038980 | 57212 0 00014 3 22005 PZE ERTBL+12,3,12 * RG038990 | 57213 -0500 00 0 22012 CAL ERTBL+17 GET MASTER RECORD TYPE RG039000 | 57214 -0320 00 0 07003 ANA BCD03 RG039010 57215 -0602 00 0 22022 ORS ERTBL+25 RG039020 | 57216 0074 00 4 56020 P1A80 TSX PREAD,4 GET 3RD CARD RG039030 | 1 LISTING OF 12/01/64 PAGE 114 | PROCESS A02 CARD | 57217 0074 00 4 57247 TSX P1A90,4 ILLEGAL EOF RG039040 | 57220 0074 00 4 54767 TSX CTEST,4 TEST TYPE OF CARD RG039050 | 57221 0 00000 0 00001 PZE 1 * RG039060 | 57222 -0 57216 0 06636 MZE B,,P1A80 TYPE B,IGNORE CARD RG039070 | 57223 -0 57777 0 06641 MZE E,,PIF00 * RG039080 57224 -0 57777 0 06642 MZE F,,PIF00 * RG039090 | 57225 -0 57235 0 06644 MZE H,,P1A82 * RG039100 | 57226 -0 57235 0 06640 MZE D,,P1A82 * RG039110 | 57227 -0 57235 0 06677 MZE T,,P1A82 * RG039120 | 57230 0 63066 0 06614 PZE ZERO,,DANZST * RG039130 57231 0074 00 4 34503 TSX ERROR,4 ERROR,ILLEGAL TYPE RG039140 | 57232 -0 00003 0 37745 MZE ERM16,,3 * RG039150 | 57233 0 00014 0 04621 PZE CARD,,12 * RG039160 | 57234 0020 00 0 57216 TRA P1A80 SEARCH FOR VALID TYPE RG039170 | 57235 -0534 00 1 07465 P1A82 LXD ARTOM,1 REPORT GENERATION RG039180 57236 0500 00 1 07465 CLA ARTO+P2BL3,1 TEST ARTO FOR CORRECT SETTING RG039190 | 57237 0120 00 0 57245 TPL P1A84 * RG039200 | 57240 0074 00 4 34503 TSX ERROR,4 NO,ERROR MESSAGE RG039210 | 57241 -0 00006 0 40565 MZE ERM92,,6 * RG039220 | 57242 0 00003 0 40573 PZE ERM93,,3 * RG039230 57243 0500 00 1 07465 CLA ARTO+P2BL3,1 SET ARTO TO REPORT RG039240 | 57244 0602 60 0 57243 SLW* *-1 * RG039250 | 57245 0600 00 0 22031 P1A84 STZ RRSWT SET REPORT SWITCH RG039260 | 57246 0020 00 0 57265 TRA P1B00 RG039270 | 57247 0634 00 4 57253 P1A90 SXA P1A92,4 RG039280 57250 0074 00 4 34503 TSX ERROR,4 RG039290 | 57251 -0 00010 0 57255 MZE P1A93,,8 RG039300 | 57252 0 00003 0 34533 PZE ER103,,3 RG039310 | 57253 0774 00 4 00000 P1A92 AXT **,4 RG039320 | 57254 0020 00 0 04000 TRA LOST RG039330 57255 314343252721 P1A93 BCI 8,ILLEGAL EOF ENCOUNTERED PROCESSING A01,A02 CARDS RG039340 | 57256 436025462660 | 57257 254523466445 | 57260 632551252460 | 57261 475146232562 57262 623145276021 | 57263 000173210002 | 57264 602321512462 | 1 LISTING OF 12/01/64 PAGE 115 | PROCESSING OF H,D,T FIELD FORMAT CARDS | 57265 0774 00 4 03720 P1B00 AXT P2JD2,4 INITIALIZE FFTBL RG039360 | 57266 0600 00 4 20325 STZ FFTBL,4 RG039370 | 57267 2 00001 4 57266 TIX *-1,4,1 RG039380 | 57270 0774 00 4 03723 AXT P2JD2+3,4 RG039390 57271 -0634 00 4 20325 SXD FFTBL,4 RG039400 | 57272 0020 00 0 57726 TRA P1B90 COUNT LINE RG039410 | * RG039420 | 57273 -0500 00 0 04621 P1B01 CAL CARD GET FORMAT LINE NUMBER RG039430 | 57274 -0320 00 0 07070 ANA BCD70 RG039440 57275 0602 00 0 07274 SLW LFNBR RG039450 | 57276 -0500 00 0 07011 CAL BCD11 INITIALIZE PART MASK RG039460 | 57277 0320 00 0 57772 ANS COD44 RG039470 | 57300 0074 00 4 55035 TSX GETVF,4 GET AST RG039480 | 57301 0 00000 0 04621 PZE CARD RG039490 57302 0 00006 0 00005 PZE 5,,6 COLUMNS 5 AND 6 RG039500 | 57303 0074 00 4 54767 TSX CTEST,4 RG039510 | 57304 0 00000 0 00001 PZE 1 RG039520 | 57305 -0 57456 0 06640 MZE D,,P1B28 RG039530 | 57306 0 57310 0 06677 PZE T,,*+2 RG039540 57307 -0501 00 0 07003 ORA BCD03 AST FOR H LINE RG039550 | 57310 -0501 00 0 57775 ORA TLAST AST FOR T LINE RG039560 | 57311 0602 00 0 07305 P1B01A SLW START SAVE AST RG039570 | 57312 0074 00 4 54767 TSX CTEST,4 TEST CONTINUATION COLUMN RG039580 | 57313 0 00000 0 00004 PZE 4 RG039590 57314 0 57323 0 06615 PZE ONE,,P1B02 RG039600 | 57315 0074 00 4 34503 TSX ERROR,4 ERROR,1ST CARD NOT NO 1 RG039610 | 57316 -0 00003 0 37750 MZE ERM17,,3 RG039620 | 57317 0 00014 0 04621 PZE CARD,,12 RG039630 | 57320 0074 00 4 56020 TSX PREAD,4 SEARCH FOR NO 1 CARD RG039640 57321 0074 00 4 57742 TSX P1B92,4 ILLEGAL EOF RG039650 | 57322 0020 00 0 57726 TRA P1B90 RG039660 | * RG039670 | 57323 0774 00 4 00014 P1B02 AXT 12,4 MOVE 1ST CARD TO WORK AREA RG039680 | 57324 -0500 00 4 04635 CAL CARD+12,4 RG039690 57325 0602 00 4 07210 SLW LINE+12,4 RG039700 | 57326 2 00001 4 57324 TIX *-2,4,1 RG039710 | 57327 0774 00 1 00024 AXT 20,1 GET CONTINUATION CARDS RG039720 | 57330 0774 00 2 00002 AXT 2,2 RG039730 | 57331 0074 00 4 56020 P1B04 TSX PREAD,4 RG039740 57332 0074 00 4 57742 TSX P1B92,4 ILLEGAL EOF RG039750 | 57333 -0500 00 0 04621 CAL CARD RG039760 | 57334 -0320 00 0 07070 ANA BCD70 RG039770 | 57335 0322 00 0 07274 ERA LFNBR RG039780 | 57336 -0100 00 0 57356 TNZ P1B08 RG039790 57337 0074 00 4 54767 TSX CTEST,4 TEST FOR CORRECT CARD NO RG039800 | 57340 0 00000 0 00004 PZE 4 RG039810 | 57341 0 57345 2 06620 PZE TWO+2,2,P1B06 RG039820 | 57342 0074 00 4 34503 TSX ERROR,4 ERROR,INCONSISTANT CARD NO RG039830 | 57343 -0 00003 0 37750 MZE ERM17,,3 RG039840 57344 0 00014 0 04621 PZE CARD,,12 IGNORE ERROR RG039850 | 57345 0774 00 4 00012 P1B06 AXT 10,4 MOVE CONTINUATION CARDS TO WORK AREA RG039860 | 57346 -0500 00 4 04635 CAL CARD+12,4 RG039870 | 57347 0602 00 1 07234 SLW LINE+32,1 RG039880 | 57350 1 77777 1 57351 TXI *+1,1,-1 RG039890 57351 2 00001 4 57346 TIX *-3,4,1 RG039900 | 1 LISTING OF 12/01/64 PAGE 116 | PROCESSING OF H,D,T FIELD FORMAT CARDS | | 57352 2 00001 2 57331 TIX P1B04,2,1 RG039910 57353 0074 00 4 56020 TSX PREAD,4 RG039920 | 57354 0074 00 4 57742 TSX P1B92,4 ILLEGAL EOF RG039930 | 57355 0020 00 0 57361 TRA P1B10 RG039940 | 57356 -0500 00 0 07001 P1B08 CAL BLNKS BLANK OUT PART OF LINE NOT USED RG039950 | 57357 0602 00 1 07234 SLW LINE+32,1 RG039960 57360 2 00001 1 57357 TIX *-1,1,1 RG039970 | * RG039980 | * COMPLETE LINE IN WORK AREA,START VARIABLE FIELD SCAN RG039990 | * RG040000 | 57361 0774 00 1 00000 P1B10 AXT 0,1 XR1 SCANS LINE FROM RIGHT TO LEFT RG040010 57362 -0500 00 0 07001 CAL BLNKS COMPUTE LINE LENGTH RG040020 | 57363 -0340 00 1 07233 LAS LINE+31,1 RG040030 | 57364 0020 00 0 57366 TRA *+2 RG040040 | 57365 1 00001 1 57367 TXI *+2,1,1 RG040050 | 57366 0020 00 0 57370 TRA *+2 RG040060 57367 -3 00035 1 57363 TXL *-4,1,29 TEST FOR END OF LINE RG040070 | 57370 0500 00 1 06652 CLA ZERO+30,1 RG040080 | 57371 0601 00 0 57776 STO MAXLL SAVE CURRENT LINE LENGTH RG040090 | 57372 0502 00 0 06615 CLS ONE INITIALIZE TEMPORARY LOCATIONS RG040100 | 57373 0601 00 0 07265 STO EWT4 RIGHTMOST PRINT POSITION RG040110 57374 0600 00 0 07266 STZ EWT6 PUNCTUATION COUNT RG040120 | 57375 0600 00 0 07267 STZ EWT7 CONSECUTIVE X COUNT RG040130 | 57376 0600 00 0 07270 STZ EWT8 FIELD LENGTH RG040140 | 57377 0600 00 0 07273 STZ EWT12 PUNCTUATION KEY RG040150 | 57400 0774 00 1 00036 AXT 30,1 XR1 CONTROLS WORD IN LINE RG040160 57401 0774 00 2 00006 AXT 6,2 XR2 CONTROLS CHAR IN WORD RG040170 | 57402 0560 00 1 07234 P1B12 LDQ LINE+32,1 GET CHARACTER RG040180 | 57403 0500 00 0 06614 CLA ZERO RG040190 | 57404 -0763 00 0 00006 LGL 6 RG040200 | 57405 -0600 60 0 57402 STQ* P1B12 REPLACE BY ZERO IN LINE RG040210 57406 -0520 00 0 07270 NZT EWT8 ARE WE WITHIN VARIABLE FIELD RG040220 | 57407 0020 00 0 57556 TRA P1B52 NO, GO PROCESS LITERAL RG040230 | 57410 0774 00 4 00004 AXT 4,4 YES,TEST FOR VARIABLE CHAR. RG040240 | 57411 -0340 00 4 57422 LAS P1B14+4,4 RG040250 | 57412 0020 00 0 57414 TRA *+2 RG040260 57413 0020 00 0 57422 TRA P1B16 RG040270 | 57414 2 00001 4 57411 TIX *-3,4,1 RG040280 | 57415 0020 00 0 57503 TRA P1B30 NO,END VARIABLE FIELD RG040290 | 57416 000000000067 P1B14 BCI 1,00000X RG040300 | 57417 000000000033 BCI 1,00000. RG040310 57420 000000000073 BCI 1,00000, RG040320 | 57421 000000000034 BCI 1,00000) RG040330 | 57422 3 00003 4 57446 P1B16 TXH P1B24,4,3 YES,TEST FOR PUNCTUATION RG040340 | 57423 0500 00 0 07267 CLA EWT7 YES,PROCESS PUNCTUATION RG040350 | 57424 -0340 00 0 06633 LAS TEN+5 RG040360 57425 0020 00 0 57430 TRA P1B18 RG040370 | 57426 0020 00 0 57427 TRA *+1 RG040380 | 57427 -0100 00 0 57434 TNZ P1B20 RG040390 | 57430 0074 00 4 34503 P1B18 TSX ERROR,4 ERROR,MISUSE OF PUNCTUATION RG040400 | 57431 -0 00004 0 40501 MZE ERM80,,4 RG040410 57432 0 00024 0 07174 PZE LINE,,20 RG040420 | 57433 0020 00 0 57444 TRA P1B22 IGNORE PUNCTUATION RG040430 | 57434 0767 00 0 00002 P1B20 ALS 2 INSERT INTO PUNCTUATION KEY RG040440 | 57435 -0501 00 4 06620 ORA ZERO+4,4 RG040450 | 1 LISTING OF 12/01/64 PAGE 117 PROCESSING OF H,D,T FIELD FORMAT CARDS | | 57436 0534 00 4 07266 LXA EWT6,4 RG040460 | 57437 3 00036 4 57430 TXH P1B18,4,30 IS PUNCTUATION KEY FULL RG040470 | 57440 0767 00 4 00036 ALS 30,4 NO, UPDATE PUNCTUATION KEY RG040480 57441 -0602 00 0 07273 ORS EWT12 RG040490 | 57442 1 00006 4 57443 TXI *+1,4,6 RG040500 | 57443 0634 00 4 07266 SXA EWT6,4 RG040510 | 57444 0600 00 0 07267 P1B22 STZ EWT7 ZERO CONSECUTIVE X COUNT RG040520 | 57445 0020 00 0 57451 TRA P1B26 RG040530 57446 0500 00 0 07267 P1B24 CLA EWT7 NOT PUNCTUATION,COUNT X RG040540 | 57447 0400 00 0 06615 ADD ONE RG040550 | 57450 0601 00 0 07267 STO EWT7 RG040560 | 57451 0500 00 0 07270 P1B26 CLA EWT8 INCREMENT FIELD LENGTH RG040570 | 57452 0400 00 0 06615 ADD ONE RG040580 57453 0601 00 0 07270 STO EWT8 RG040590 | 57454 -0500 00 0 06674 CAL BLANK GET BLANK TO REPLACE VARIABLE RG040600 | 57455 0020 00 0 57556 TRA P1B52 RG040610 | 57456 0100 00 0 57471 P1B28 TZE P1B29 RG040620 | 57457 -0340 00 0 07312 LAS P2XA3 TEST FOR RT ZZ RG040630 57460 0020 00 0 57311 TRA P1B01A RG040640 | 57461 0020 00 0 57463 TRA *+2 RG040650 | 57462 0020 00 0 57311 TRA P1B01A RG040660 | 57463 -0625 00 0 07314 STL ZZSWT MAKE ZZ ENTRY TO DSIE RG040670 | 57464 0602 00 0 56300 SLW DPRT RG040680 57465 0600 00 0 56301 STZ DPRL RG040690 | 57466 0074 00 4 56436 TSX DP300,4 RG040700 | 57467 -0500 00 0 56300 CAL DPRT RG040710 | 57470 0020 00 0 57311 TRA P1B01A RG040720 | 57471 0074 00 4 34503 P1B29 TSX ERROR,4 RG040730 57472 -0 00005 0 57476 MZE *+4,,5 RG040740 | 57473 0 00014 0 04621 PZE CARD,,12 RG040750 | 57474 -0754 00 0 00000 PXD 0,0 RG040760 | 57475 0020 00 0 57311 TRA P1B01A RG040770 | 57476 216262462331 BCI 5,ASSOCIATED RECORD TYPE MISSING RG040780 57477 216325246051 | 57500 252346512460 | 57501 637047256044 | 57502 316262314527 | * RG040790 * END OF VARIABLE FIELD,MAKE ENTRY TO FIELD FORMAT TABLE RG040800 | * RG040810 | 57503 0602 00 0 07271 P1B30 SLW EWT9 SAVE CHARACTER RG040820 | 57504 0534 00 4 07266 LXA EWT6,4 TEST FOR ANY PUNCTUATION RG040830 | 57505 -3 00000 4 57522 TXL P1B36,4,0 RG040840 57506 0500 00 0 07267 CLA EWT7 YES,IS CONSECUTIVE X COUNT ZERO RG040850 | 57507 -0340 00 0 06633 LAS TEN+5 ERROR, COUNT GREATER THAN 15 RG040860 | 57510 0020 00 0 57514 TRA P1B32 RG040870 | 57511 0020 00 0 57513 TRA *+2 RG040880 | 57512 0100 00 0 57522 TZE P1B36 RG040890 57513 -3 00036 4 57520 TXL P1B34,4,30 NO, IS PUNCTUATION KEY FULL RG040900 | 57514 0074 00 4 34503 P1B32 TSX ERROR,4 YES,ERROR RG040910 | 57515 -0 00004 0 40501 MZE ERM80,,4 RG040920 | 57516 0 00024 0 07174 PZE LINE,,20 RG040930 | 57517 0500 00 0 06614 CLA ZERO RG040940 57520 0767 00 4 00040 P1B34 ALS 32,4 NO, UPDATE PUNCTUATION KEY RG040950 | 57521 -0602 00 0 07273 ORS EWT12 RG040960 | 1 LISTING OF 12/01/64 PAGE 118 | PROCESSING OF H,D,T FIELD FORMAT CARDS | 57522 -0534 00 4 20325 P1B36 LXD FFTBL,4 TEST FOR FFT FULL RG040970 | 57523 2 00003 4 57527 TIX P1B38,4,3 RG040980 | 57524 0074 00 4 34503 TSX ERROR,4 YES,ERROR RG040990 | 57525 0 00006 0 40530 PZE ERM84,,6 RG041000 | 57526 0020 00 0 57544 TRA P1B40 DO NOT MAKE ENTRY RG041010 57527 -0634 00 4 20325 P1B38 SXD FFTBL,4 NOT FULL,COUNT ENTRY RG041020 | 57530 0074 00 4 36604 TSX XBIBCD,4 CONVERT RIGHT MOST PP O BCD RG041030 | 57531 0 56303 0 07265 PZE EWT4,,DPRMP RG041040 | 57532 0500 00 0 56303 CLA DPRMP RG041050 | 57533 -0534 00 4 20325 LXD FFTBL,4 RESTORE XR4 RG041060 57534 -0501 00 0 07274 ORA LFNBR RG041070 | 57535 0602 00 4 20325 SLW FFTBL,4 WORD 1 RG041080 | 57536 0500 00 0 07270 CLA EWT8 RG041090 | 57537 0601 00 4 20326 STO FFTBL+1,4 WORD 2 RG041100 | 57540 -0500 00 0 07273 CAL EWT12 RG041110 57541 0602 00 4 20327 SLW FFTBL+2,4 WORD 3 RG041120 | 57542 0500 00 0 07265 CLA EWT4 RG041130 | 57543 0601 00 0 56303 STO DPRMP RG041140 | 57544 0600 00 0 07266 P1B40 STZ EWT6 ZERO PUNCTUATION COUNT RG041150 | 57545 0600 00 0 07267 STZ EWT7 ZERO CONSECUTIVE X COUNT RG041160 57546 0600 00 0 07270 STZ EWT8 ZERO FIELD LENGTH RG041170 | 57547 0600 00 0 07273 STZ EWT12 ZERO PUNCTUATION KEY RG041180 | 57550 0520 00 0 07265 ZET EWT4 TEST FOR 1 CHAR FIELD IN RG041190 | 57551 0020 00 0 57555 TRA P1B42 COLUMN 13 RG041200 | 57552 -0500 00 0 06634 CAL PLUS YES,RESTORE PLUS AS POSSIBLE RG041210 57553 0767 00 0 00006 ALS 6 CARRIAGE CONTROL CHARACTER RG041220 | 57554 0320 60 0 57402 ANS* P1B12 RG041230 | 57555 -0500 00 0 07271 P1B42 CAL EWT9 GET CHARACTER RG041240 | * RG041250 | * TEST LITERAL CHARACTER RG041260 * RG041270 | 57556 -0340 00 0 06634 P1B52 LAS PLUS TEST FOR START OF NEW FIELD RG041280 | 57557 0020 00 0 57561 TRA *+2 RG041290 | 57560 0020 00 0 57446 TRA P1B24 YES,COUNT X RG041300 | 57561 -0602 60 0 57402 ORS* P1B12 NO,RESTORE LITERAL TO LINE RG041310 57562 0500 00 0 07265 CLA EWT4 INCREMENT RIGHTMOST COUNT RG041320 | 57563 0400 00 0 06615 ADD ONE RG041330 | 57564 0601 00 0 07265 STO EWT4 RG041340 | 57565 2 00001 2 57402 P1B54 TIX P1B12,2,1 TEST FOR END OF WORD RG041350 | 57566 2 00001 1 57401 TIX P1B12-1,1,1 TEST FOR END OF LINE RG041360 * RG041370 | * END OF FORMAT LINE,MAKE ENTRY TO LINE FORMAT TABLE RG041380 | * RG041390 | 57567 0520 00 0 07270 P1B60 ZET EWT8 DID LINE END WITH VARIABLE FIELD RG041400 | 57570 0020 00 0 57503 TRA P1B30 YES,GO PROCESS FIELD RG041410 57571 -0534 00 4 22657 LXD LFTBL,4 TEST FOR LFT FULL RG041420 | 57572 2 00002 4 57576 TIX P1B62,4,2 * RG041430 | 57573 0074 00 4 34503 TSX ERROR,4 YES,ERROR RG041440 | 57574 0 00007 0 40536 PZE ERM85,,7 RG041450 | 57575 0020 00 0 57621 TRA P1B70 DO NOT MAKE ENTRY RG041460 57576 -0634 00 4 22657 P1B62 SXD LFTBL,4 BUILD ENTRY RG041470 | 57577 -0500 00 0 07274 CAL LFNBR RG041480 | 57600 -0501 00 0 07305 ORA START RG041490 | 57601 0602 00 4 22657 SLW LFTBL,4 RG041500 | 57602 -0500 00 0 07175 CAL LINE+1 * RG041510 1 LISTING OF 12/01/64 PAGE 119 | PROCESSING OF H,D,T FIELD FORMAT CARDS | | 57603 -0320 00 0 07070 ANA BCD70 * RG041520 | 57604 0602 00 4 22660 SLW LFTBL+1,4 RG041530 57605 -0500 00 0 07176 CAL LINE+2 * RG041540 | 57606 0771 00 0 00022 ARS 18 CC CHARACTER RG041550 | 57607 -0320 00 0 07004 ANA BCD04 RG041560 | 57610 -0602 00 4 22657 ORS LFTBL,4 RG041570 | 57611 -0520 00 0 34716 NZT DEBSW RG041580 57612 0020 00 0 57621 TRA P1B70 RG041590 | 57613 0754 00 4 00000 PXA 0,4 RG041600 | 57614 0737 00 4 00000 PAC 0,4 RG041610 | 57615 1 22657 4 57616 TXI *+1,4,LFTBL RG041620 | 57616 0754 00 4 00000 PXA 0,4 RG041630 57617 -0501 00 0 06765 ORA DCRM2 RG041640 | 57620 0074 00 4 34717 TSX TDUMP,4 RG041650 | * RG041660 | * MAKE ENTRY TO PARAMETER TABLE FOR LITERALS RG041670 | * PARED CONTAINS LOCATION OF NEXT PART ENTRY RG041680 * COMRED CONTAINS LOCATION OF CORRESPONDING I/O COMMAND RG041690 | * RG041700 | 57621 0774 00 1 00036 P1B70 AXT 30,1 SCAN FOR LEFTMOST LITERAL WORD RG041710 | 57622 -0500 00 0 07001 CAL BLNKS RG041720 | 57623 0560 00 0 06614 LDQ ZERO RG041730 57624 -0340 00 1 07234 P1B72 LAS LINE+32,1 RG041740 | 57625 0020 00 0 57627 TRA *+2 RG041750 | 57626 0020 00 0 57640 TRA P1B74 RG041760 | 57627 -0500 00 0 07174 CAL LINE WORD RELATIVE POSITION FOUND RG041770 | 57630 0771 00 0 00036 ARS 30 TEST LINE TYPE RG041780 57631 -0340 00 0 06644 LAS H RG041790 | 57632 0020 00 0 57643 TRA P1B76+1 T LINE RG041800 | 57633 0020 00 0 57642 TRA P1B76 H LINE RG041810 | 57634 0560 00 1 06652 LDQ ZERO+30,1 D LINE,GET WORD RELATIVE LOCATION RG041820 | 57635 -0500 00 0 07174 CAL LINE GET AST OF D LINE RG041830 57636 0767 00 0 00030 ALS 24 RG041840 | 57637 0020 00 0 57644 TRA P1B78 RG041850 | 57640 2 00001 1 57624 P1B74 TIX P1B72,1,1 RG041860 | 57641 0020 00 0 57707 TRA P1B89 RG041870 | 57642 -0501 00 0 57774 P1B76 ORA COD44+2 GET AST OF H LINE RG041880 57643 -0501 00 0 57773 ORA COD44+1 GET AST OF T LINE RG041890 | 57644 -0320 00 0 07060 P1B78 ANA BCD60 SAVE AST RG041900 | 57645 -0602 00 0 57772 ORS COD44 RG041910 | 57646 -0600 00 0 07271 STQ EWT9 SAVE WORD RELATIVE LOCATION RG041920 | 57647 -0774 00 1 00035 P1B80 AXC 29,1 SCAN FOR RIGHTMOST LITERAL WORD RG041930 57650 -0500 00 0 07001 CAL BLNKS RG041940 | 57651 -0340 00 1 07176 P1B82 LAS LINE+2,1 RG041950 | 57652 0020 00 0 57654 TRA *+2 RG041960 | 57653 1 00001 1 57651 TXI P1B82,1,1 PASS OVER RIGHTMOST BLANKS RG041970 | 57654 0500 00 1 06615 CLA ONE,1 NON BLANK WORD FOUND RG041980 57655 0734 00 1 00000 PAX 0,1 COMPUTE LOCATION FOR STEPC RG041990 | 57656 1 07175 1 57657 TXI *+1,1,LINE+1 RG042000 | 57657 0634 00 1 57667 SXA P1B84,1 RG042010 | 57660 0402 00 0 07271 SUB EWT9 COMPUTE LENGTH RG042020 | 57661 0601 00 0 07270 STO EWT8 LENGTH OF LITERAL RG042030 57662 0767 00 0 00022 ALS 18 RG042040 | 57663 0622 00 0 57667 STD P1B84 RG042050 | 57664 0074 00 4 55271 TSX SB300,4 INITIALIZE FOR PART ENTRY RG042060 | 1 LISTING OF 12/01/64 PAGE 120 | PROCESSING OF H,D,T FIELD FORMAT CARDS | 57665 0 00000 0 00010 PZE 8 FOR LITERAL 8 WORDS RG042070 | 57666 0074 00 4 35441 TSX STEPC,4 YES,GO TO STEPC WITH LITERAL RG042080 | 57667 0 00000 1 00000 P1B84 PZE **,1,** RG042090 | 57670 0761 00 0 00000 NOP RG042100 57671 0761 00 0 00000 NOP RG042110 | 57672 0767 00 0 00022 ALS 18 ABSOLUTE LOCATION OF LITERAL RG042120 | 57673 -0501 00 0 07270 ORA EWT8 LENGTH OF LITERAL RG042130 | 57674 0602 00 1 00004 SLW 4,1 RG042140 | 57675 0020 00 0 57676 TRA P1B88 RG042150 57676 -0500 00 0 07271 P1B88 CAL EWT9 RG042160 | 57677 0602 00 1 00007 SLW 7,1 WORD 8 RG042170 | 57700 -0500 00 0 07274 CAL LFNBR RG042180 | 57701 0602 00 1 00006 SLW 6,1 WORD 7 RG042190 | 57702 0771 00 0 00014 ARS 12 RG042200 57703 -0320 00 0 07006 ANA BCD06 RG042210 | 57704 -0501 00 0 57772 ORA COD44 RG042220 | 57705 0602 00 1 00000 SLW 0,1 WORD 1 RG042230 | 57706 0074 00 4 55306 TSX SB350,4 CLOSE OUT PART ENTRY RG042240 | 57707 -0534 00 1 07465 P1B89 LXD ARTOM,1 UPDATE MAXIMUM LINE LENGTH RG042250 57710 -0500 00 1 07465 CAL ARTOM,1 RG042260 | 57711 -0320 00 0 07003 ANA BCD03 RG042270 | 57712 0602 00 0 07102 SLW TEMP RG042280 | 57713 0500 00 0 56303 CLA DPRMP TEST FOR WORD BOUNDARY RG042290 | 57714 0400 00 0 06615 ADD ONE RG042300 57715 0765 00 0 00043 LRS 35 SHIFT RIGHT FOR DIVIDE RG042310 | 57716 0221 00 0 06622 DVP SIX RG042320 | 57717 0601 00 0 56303 STO DPRMP RG042330 | 57720 -0500 00 0 57776 CAL MAXLL RG042340 | 57721 -0520 00 0 56303 NZT DPRMP RG042350 57722 0400 00 0 06615 ADD ONE YES, ADD EXTRA WORD FOR POSSIBLE MINUS RG042360 | 57723 -0340 00 0 07102 LAS TEMP RG042370 | 57724 0621 00 1 07465 STA ARTOM,1 RG042380 | 57725 0020 00 0 57726 TRA *+1 RG042390 | 57726 0074 00 4 54767 P1B90 TSX CTEST,4 TEST NEXT CARD RG042400 57727 0 00000 0 00001 PZE 1 RG042410 | 57730 -0 57760 0 06644 MZE H,,P1B96 RG042420 | 57731 -0 57762 0 06640 MZE D,,P1B97 RG042430 | 57732 -0 57766 0 06677 MZE T,,P1B98 RG042440 | 57733 0 63066 0 06614 PZE ZERO,,DANZST FIELD PARAMETER RG042450 57734 0074 00 4 34503 TSX ERROR,4 ERROR, ILLEGAL CARD RG042460 | 57735 -0 00003 0 37745 MZE ERM16,,3 RG042470 | 57736 0 00014 0 04621 PZE CARD,,12 RG042480 | 57737 0074 00 4 56020 TSX PREAD,4 IGNORE CARD RG042490 | 57740 0074 00 4 57742 TSX P1B92,4 ILLEGAL EOF RG042500 57741 0020 00 0 57726 TRA P1B90 RG042510 | 57742 0634 00 4 57746 P1B92 SXA P1B94,4 RG042520 | 57743 0074 00 4 34503 TSX ERROR,4 RG042530 | 57744 -0 00010 0 57750 MZE P1B95,,8 RG042540 | 57745 0 00003 0 34533 PZE ER103,,3 RG042550 57746 0774 00 4 00000 P1B94 AXT **,4 RG042560 | 57747 0020 00 0 04000 TRA LOST RG042570 | 57750 314343252721 P1B95 BCI 8,ILLEGAL EOF ENCOUNTERED PROCESSING H,D,T CARDS RG042580 | 57751 436025462660 | 57752 254523466445 57753 632551252460 | 1 LISTING OF 12/01/64 PAGE 121 | PROCESSING OF H,D,T FIELD FORMAT CARDS | | 57754 475146232562 57755 623145276030 | 57756 732473636023 | 57757 215124626060 | 57760 0500 00 0 06764 P1B96 CLA DCRM1 COUNT H LINE RG042590 | 57761 0020 00 0 57763 TRA *+2 RG042600 57762 0500 00 0 06615 P1B97 CLA ONE COUNT D LINE RG042610 | 57763 0400 00 0 22024 ADD ERTBL+27 RG042620 | 57764 0601 60 0 57763 STO* *-1 RG042630 | 57765 0020 00 0 57273 TRA P1B01 RG042640 | 57766 0500 00 0 22025 P1B98 CLA ERTBL+28 COUNT T LINE RG042650 57767 0400 00 0 06764 ADD DCRM1 RG042660 | 57770 0601 00 0 22025 STO ERTBL+28 RG042670 | 57771 0020 00 0 57273 TRA P1B01 RG042680 | * RG042690 | 57772 +000001000044 COD44 OCT 000001000044 D LINE RG042700 57773 -377400000000 OCT 777400000000 T LINE RG042710 | 57774 -377700000000 OCT 777700000000 H LINE RG042720 | 57775 +000000007776 TLAST OCT 7776 RG042730 | 57776 0 00000 0 00000 MAXLL PZE MAXIMUM LINE LENGTH RG042740 | 1 LISTING OF 12/01/64 PAGE 122 PROCESSING OF OUTPUT E AND F RECORDS | | 57777 -0534 00 1 07465 PIF00 LXD ARTOM,1 IS CURRENT PACKET STACKED RG042760 | 60000 0500 00 1 07465 CLA ARTOM,1 TEST ARTO FOR CORRECT SETTING RG042770 | 60001 -0120 00 0 60005 TMI *+4 RG042780 60002 0074 00 4 34503 TSX ERROR,4 RG042790 | 60003 -0 00006 0 40565 MZE ERM92,,6 RG042800 | 60004 0 00003 0 40576 PZE ERM94,,3 RG042810 | 60005 -0625 00 0 22031 STL RRSWT SET RECORD SWITCH RG042820 | 60006 -0500 00 0 06777 CAL PRFX4 RG042830 60007 -0602 00 1 07465 ORS ARTOM,1 RG042840 | 60010 0441 00 1 07465 LDI ARTOM,1 RG042850 | 60011 -0054 00 200000 LFT 200000 RG042860 | 60012 0020 00 0 60071 TRA PIF04 YES RG042870 | 60013 -0520 00 0 60657 NZT PIFSW1 HAVE DICTIONARIES BEEN WRITTEN RG042880 60014 0020 00 0 60017 TRA *+3 NO RG042890 | 60015 0074 00 4 05505 TSX NDSRT,4 YES, BACKSPACE OVER EOF RG042900 | 60016 0 00005 0 00034 PZE 28,,5 RG042910 | 60017 -0625 00 0 60657 STL PIFSW1 RG042920 | 60020 0774 00 4 03722 AXT DSF+2,4 NO, INITIALIZE FOR NEW OUTPUT FILE RG042930 60021 -0634 00 4 20325 SXD DSOFM,4 INITIALIZE DSOF TABLE RG042940 | 60022 0774 00 4 03720 AXT DSF,4 RG042950 | 60023 0600 00 4 20325 STZ DSOFM,4 RG042960 | 60024 2 00001 4 60023 TIX *-1,4,1 RG042970 | 60025 0774 00 4 00622 AXT DSE+2,4 INITIALIZE DSOE TABLE RG042980 60026 -0634 00 4 21770 SXD DSOEM,4 RG042990 | 60027 0774 00 4 00620 AXT DSE,4 RG043000 | 60030 0600 00 4 21770 STZ DSOEM,4 RG043010 | 60031 2 00001 4 60030 TIX *-1,4,1 RG043020 | 60032 0774 00 4 14405 AXT DSOF,4 INITIALIZE DSOF LOCATION MONITOR RG043030 60033 0754 00 4 00000 PXA 0,4 RG043040 | 60034 -0501 00 0 06763 ORA TAG4 RG043050 | 60035 0602 00 0 20326 SLW DSOFL RG043060 | 60036 0534 00 1 22027 LXA FILNO,1 BUILD B RECORD RG043070 | 60037 0534 00 4 06632 LXA TEN+4,4 RG043080 60040 -0754 00 4 00000 PXD 0,4 RG043090 | 60041 0601 00 0 07114 STO REC1 RG043100 | 60042 0600 00 0 07115 STZ REC1+1 RG043110 | 60043 0754 00 1 00000 PXA 0,1 RG043120 | 60044 -0501 00 0 06766 ORA DCRM3 RG043130 60045 0602 00 0 07116 SLW REC1+2 RG043140 | 60046 -0500 00 0 06636 CAL B RG043150 | 60047 0767 00 0 00036 ALS 30 RG043160 | 60050 0602 00 0 07117 SLW REC1+3 RG043170 | 60051 0774 00 4 00006 AXT 6,4 RG043180 60052 -0500 60 1 07423 CAL* FCBLOC,1 RG043190 | 60053 0602 00 0 07115 SLW REC1+1 RG043200 | 60054 0774 00 4 00003 AXT 3,4 RG043210 | 60055 -0500 60 1 07423 CAL* FCBLOC,1 RG043220 | 60056 0602 00 4 07124 SLW REC1+8,4 RG043230 60057 2 00001 4 60055 TIX *-2,4,1 RG043240 | 60060 0774 00 4 00006 AXT 6,4 RG043250 | 60061 -0500 00 0 07001 CAL BLNKS RG043260 | 60062 0602 00 4 07133 SLW REC1+15,4 RG043270 | 60063 2 00001 4 60062 TIX *-1,4,1 RG043280 60064 0074 00 4 05255 TSX RD(WR),4 WRITE B RECORD RG043290 | 60065 -0 60070 0 00034 MZE 28,,PIF02 RG043300 | 1 LISTING OF 12/01/64 PAGE 123 | PROCESSING OF OUTPUT E AND F RECORDS | 60066 0020 00 0 60075 TRA PIF06 RG043310 | 60067 0074 00 4 35007 TSX ENDTP,4 RG043320 | 60070 3 00016 0 07114 PIF02 IORT REC1,,14 RG043330 | * RG043340 | 60071 0074 00 4 05505 PIF04 TSX NDSRT,4 BACKSPACE OVER EOF RG043350 60072 0 00005 0 00034 PZE 28,,5 RG043360 | 60073 0074 00 4 05505 TSX NDSRT,4 BACKSPACE OVER P RECORD RG043370 | 60074 0 00005 0 00034 PZE 28,,5 RG043380 | 60075 0074 00 4 54767 PIF06 TSX CTEST,4 RG043390 | 60076 0 00000 0 00001 PZE 1 RG043400 60077 -0 60124 0 06641 MZE E,,PIF20 RG043410 | 60100 -0 60635 0 06614 MZE ZERO,,PIF96 RG043420 | 60101 0 60105 0 06636 PZE B,,PIF08 IGNORE B RECORD RG043430 | 60102 0074 00 4 34503 TSX ERROR,4 ERROR, ILLEGAL CARD RG043440 | 60103 -0 00005 0 40313 MZE ERM52,,5 RG043450 60104 0 00014 0 04621 PZE CARD,,12 RG043460 | 60105 0074 00 4 56020 PIF08 TSX PREAD,4 IGNORE CARD RG043470 | 60106 0074 00 4 60663 TSX PIF99,4 ILLEGAL EOF RG043480 | 60107 0020 00 0 60075 TRA PIF06 RG043490 | 60110 602631432560 PIF18 BCI 9, FILE SERIAL NO. IN E RECORD DOES NOT EQUAL FILE CARD RG043500 60111 622551312143 | 60112 604546336031 | 60113 456025605125 | 60114 234651246024 | 60115 462562604546 60116 636025506421 | 60117 436026314325 | 60120 602321512460 | 60121 234645243163 PIF19 BCI 3,CONDITION IGNORED RG043510 | 60122 314645603127 60123 454651252460 | * RG043520 | * PROCESS E RECORD RG043530 | * RG043540 | 60124 -0500 00 0 04621 PIF20 CAL CARD CHECK FILE SERIAL NUMBER RG043550 60125 -0320 00 0 07037 ANA BCD37 RG043560 | 60126 -0501 00 0 07000 ORA PRFX6 RG043570 | 60127 -0340 00 0 07115 LAS REC1+1 RG043580 | 60130 0020 00 0 60132 TRA *+2 RG043590 | 60131 0020 00 0 60136 TRA PIF24 RG043600 60132 0074 00 4 34503 TSX ERROR,4 ERROR, SERIAL NO DOES NOT CHECK RG043610 | 60133 -0 00011 0 60110 MZE PIF18,,9 RG043620 | 60134 -0 00014 0 04621 MZE CARD,,12 RG043630 | 60135 0 00003 0 60121 PZE PIF19,,3 IGNORE ERROR RG043640 | 60136 -0534 00 2 22657 PIF24 LXD LFTBL,2 MAKE ENTRY TO LINE FORMAT TABLE RG043650 60137 2 00002 2 60147 TIX PIF26,2,2 RG043660 | 60140 0074 00 4 34503 TSX ERROR,4 ERROR, TABLE FULL RG043670 | 60141 -0 00002 0 40536 MZE ERM85,,2 RG043680 | 60142 -0 00014 0 04621 MZE CARD,,12 RG043690 | 60143 -0 00004 0 40350 MZE ERM57+3,,4 RG043700 60144 0 00004 0 40554 PZE ERM90,,4 EXECUTION IMPOSSIBLE RG043710 | 60145 -0625 00 0 34552 STL ERSWT RG043720 | 60146 0020 00 0 60212 TRA PIF40 BYPASS ENTRY TO LFTBL RG043730 | 60147 -0634 00 2 22657 PIF26 SXD LFTBL,2 RG043740 | 60150 0774 00 1 00003 AXT 3,1 GET LNID RG043750 1 LISTING OF 12/01/64 PAGE 124 | PROCESSING OF OUTPUT E AND F RECORDS | | 60151 0074 00 4 54767 PIF28 TSX CTEST,4 RG043760 | 60152 0 00000 1 00051 PZE 41,1 RG043770 60153 0 60200 0 06674 PZE BLANK,,PIF32 ERROR, ILLEGAL BLANK RG043780 | 60154 2 00001 1 60151 TIX PIF28,1,1 RG043790 | 60155 0074 00 4 54767 PIF29 TSX CTEST,4 GET CC CHARACTER RG043800 | 60156 0 00000 0 00015 PZE 13 RG043810 | 60157 0 04000 0 07003 PZE BCD03,,LOST RG043820 60160 0774 00 1 00002 AXT 2,1 RG043830 | 60161 0074 00 4 54767 PIF30 TSX CTEST,4 GET AST RG043840 | 60162 0 00000 1 00012 PZE 10,1 RG043850 | 60163 0 60205 0 06674 PZE BLANK,,PIF34 RG043860 | 60164 2 00001 1 60161 TIX PIF30,1,1 RG043870 60165 0602 00 2 22657 PIF31 SLW LFTBL,2 RG043880 | 60166 -0500 00 0 04622 CAL CARD+1 RG043890 | 60167 0771 00 0 00006 ARS 6 RG043900 | 60170 -0320 00 0 07003 ANA BCD03 RG043910 | 60171 -0501 00 0 36743 ORA KBLNK SET ON LINE INDICATORS OFF RG043920 60172 0602 00 2 22660 SLW LFTBL+1,2 RG043930 | 60173 -0100 00 0 60212 TNZ PIF40 RG043940 | 60174 0074 00 4 34503 TSX ERROR,4 ILLEGAL ORT RG043950 | 60175 -0 00005 0 40227 MZE ERM40,,5 RG043960 | 60176 0 00014 0 04621 PZE CARD,,12 RG043970 60177 0020 00 0 60212 TRA PIF40 RG043980 | 60200 0074 00 4 34503 PIF32 TSX ERROR,4 ILLEGAL LNID RG043990 | 60201 -0 00004 0 40203 MZE ERM36,,4 RG044000 | 60202 0 00014 0 04621 PZE CARD,,12 RG044010 | 60203 -0754 00 0 00000 PXD 0,0 RG044020 60204 0020 00 0 60155 TRA PIF29 RG044030 | 60205 0074 00 4 34503 PIF34 TSX ERROR,4 ILLEGAL AST RG044040 | 60206 -0 00005 0 40211 MZE ERM37,,5 RG044050 | 60207 0 00014 0 04621 PZE CARD,,12 RG044060 | 60210 -0754 00 0 00000 PXD 0,0 RG044070 60211 0020 00 0 60165 TRA PIF31 RG044080 | * RG044090 | 60212 -0500 00 2 22660 PIF40 CAL LFTBL+1,2 GET ORT FOR FUTURE REFERENCE RG044100 | 60213 0767 00 0 00030 ALS 24 RG044110 | 60214 0602 00 0 56300 SLW DPRT RG044120 60215 0600 00 0 56301 STZ DPRL RG044130 | 60216 0774 00 6 11622 AXT P2JC9,6 INITIALIZE DICTIONARY AREA RG044140 | 60217 -0634 00 2 34502 SXD DICTM,2 RG044150 | 60220 0600 00 4 34502 STZ DICTM,4 RG044160 | 60221 2 00001 4 60220 TIX *-1,4,1 RG044170 60222 0600 00 0 60656 STZ PIFSW RG044180 | 60223 0774 00 1 00013 PIF42 AXT 11,1 INSERT NEW RECORD INTO DICTIONARY RG044190 | 60224 -0500 00 1 04634 CAL CARD+11,1 RG044200 | 60225 0602 00 2 34502 SLW DICTM,2 RG044210 | 60226 1 77777 2 60227 TXI *+1,2,-1 RG044220 60227 2 00001 1 60224 TIX *-3,1,1 RG044230 | 60230 -0634 00 2 34502 SXD DICTM,2 RG044240 | 60231 0074 00 4 56020 PIF44 TSX PREAD,4 GET A CARD RG044250 | 60232 0074 00 4 60663 TSX PIF99,4 ILLEGAL EOF RG044260 | 60233 0074 00 4 54767 TSX CTEST,4 RG044270 60234 0 00000 0 00001 PZE 1 RG044280 | 60235 -0 60244 0 06642 MZE F,,PIF50 RG044290 | 60236 -0 60407 0 06641 MZE E,,PIF80 RG044300 | 1 LISTING OF 12/01/64 PAGE 125 | PROCESSING OF OUTPUT E AND F RECORDS | 60237 0 60407 0 06614 PZE ZERO,,PIF80 RG044310 | 60240 0074 00 4 34503 TSX ERROR,4 ERROR, ILLEGAL CARD TYPE RG044320 | 60241 -0 00005 0 40313 MZE ERM52,,5 RG044330 | 60242 0 00014 0 04621 PZE CARD,,12 RG044340 60243 0020 00 0 60231 TRA PIF44 IGNORE CARD RG044350 | * RG044360 | * PROCESS F RECORD RG044370 | * RG044380 | 60244 0774 00 1 00002 PIF50 AXT 2,1 TEST ORT AGAINST E RECORD RG044390 60245 -0754 00 0 00000 PXD 0,0 RG044400 | 60246 0074 00 4 54767 PIF52 TSX CTEST,4 RG044410 | 60247 0 00000 1 00004 PZE 4,1 RG044420 | 60250 0 60251 0 06674 PZE BLANK,,*+1 RG044430 | 60251 2 00001 1 60246 TIX PIF52,1,1 RG044440 60252 -0100 00 0 60261 TNZ PIF54 RG044450 | 60253 -0500 00 0 07030 CAL BCD30 IF ORT BLANK ON F, GET FROM E RG044460 | 60254 0320 00 0 04621 ANS CARD RG044470 | 60255 -0500 00 0 56300 CAL DPRT RG044480 | 60256 0771 00 0 00006 ARS 6 RG044490 60257 -0602 00 0 04621 ORS CARD RG044500 | 60260 0020 00 0 60272 TRA PIF56 RG044510 | * RG044520 | 60261 0767 00 0 00030 PIF54 ALS 24 RG044530 | 60262 -0520 00 0 56300 NZT DPRT IF ORT BLANK ON E, GET FROM F RG044540 60263 0602 00 0 56300 SLW DPRT RG044550 | 60264 -0340 00 0 56300 LAS DPRT RG044560 | 60265 0020 00 0 60267 TRA *+2 RG044570 | 60266 0020 00 0 60272 TRA PIF56 RG044580 | 60267 0074 00 4 34503 TSX ERROR,4 ERROR, TWO DIFFERENT RECORD TYPES RG044590 60270 -0 00010 0 40644 MZE ERMA3,,8 RG044600 | 60271 0 00014 0 04621 PZE CARD,,12 RG044610 | 60272 0520 00 0 60656 PIF56 ZET PIFSW TEST FOR INCREMENT SPECIFIED RG044620 | 60273 0020 00 0 60312 TRA PIF60 NO, PROCESS F RECORD LATER RG044630 | 60274 -0500 00 0 04623 CAL CARD+2 YES, PROCESS F RECORD NOW RG044640 60275 0560 00 0 04624 LDQ CARD+3 RG044650 | 60276 -0763 00 0 00036 LGL 30 RG044660 | 60277 0322 00 0 07001 ERA BLNKS RG044670 | 60300 -0100 00 0 60303 TNZ PIF58 RG044680 | 60301 -0625 00 0 60656 STL PIFSW RG044690 60302 0020 00 0 60312 TRA PIF60 RG044700 | 60303 -0774 00 1 04621 PIF58 AXC CARD,1 LOCATE F RECORD RG044710 | 60304 0074 00 4 56307 TSX DP100,4 COMPUTE FIELD SPECS RG044720 | 60305 0074 00 4 56576 TSX DP450,4 MAKE ENTRY TO DSOF TABLE RG044730 | 60306 -0500 00 0 56277 CAL DPWBLM RG044740 60307 -0340 00 0 56301 LAS DPRL UPDATE INFO TO COMPUTE RL RG044750 | 60310 0602 00 0 56301 SLW DPRL RG044760 | 60311 0020 00 0 60312 TRA *+1 RG044770 | 60312 -0534 00 2 34502 PIF60 LXD DICTM,2 TEST FOR ROOM IN DICT RG044780 | 60313 2 00013 2 60343 TIX PIF70,2,11 RG044790 60314 -0500 00 0 56300 CAL DPRT NO, ERROR, TOO MANY F RECORDS RG044800 | 60315 0771 00 0 00030 ARS 24 RG044810 | 60316 0621 00 0 40635 STA ERMA1+5 RG044820 | 60317 0074 00 4 34503 TSX ERROR,4 RG044830 | 60320 0 00006 0 40630 PZE ERMA1,,6 RG044840 60321 -0500 00 0 04621 PIF62 CAL CARD RG044850 | 1 LISTING OF 12/01/64 PAGE 126 | PROCESSING OF OUTPUT E AND F RECORDS | | 60322 0560 00 0 04622 LDQ CARD+1 RG044860 60323 -0763 00 0 00006 LGL 6 RG044870 | 60324 0602 00 0 40276 SLW ERM49+1 RG044880 | 60325 0074 00 4 34503 TSX ERROR,4 RG044890 | 60326 0 00004 0 40275 PZE ERM49,,4 RG044900 | 60327 0074 00 4 56020 PIF64 TSX PREAD,4 RG044910 60330 0074 00 4 60663 TSX PIF99,4 ILLEGAL EOF RG044920 | 60331 0074 00 4 54767 TSX CTEST,4 RG044930 | 60332 0 00000 0 00001 PZE 1 RG044940 | 60333 -0 60321 0 06642 MZE F,,PIF62 IGNORE EXTRANEOUS F RECORDS RG044950 | 60334 -0 60407 0 06641 MZE E,,PIF80 RG044960 60335 0 60407 0 06614 PZE ZERO,,PIF80 RG044970 | 60336 0074 00 4 34503 TSX ERROR,4 ERROR, ILLEGAL CARD RG044980 | 60337 -0 00005 0 40313 MZE ERM52,,5 RG044990 | 60340 0 00014 0 04621 PZE CARD,,12 RG045000 | 60341 0020 00 0 60327 TRA PIF64 IGNORE ILLEGAL CARD RG045010 60342 0020 00 0 60312 TRA PIF60 RG045020 | 60343 -0634 00 2 34502 PIF70 SXD DICTM,2 RG045030 | 60344 -0500 00 0 04621 PIF72 CAL CARD TEST FOR CARDS IN SEQUENCE RG045040 | 60345 -0340 00 2 34467 LAS DICTM-11,2 RG045050 | 60346 1 00013 2 60223 TXI PIF42,2,11 YES RG045060 60347 0020 00 0 60351 TRA *+2 RG045070 | 60350 0020 00 0 60361 TRA PIF74 RG045080 | 60351 -0500 00 2 34470 CAL DICTM-10,2 RG045090 | 60352 -0320 00 0 07040 ANA BCD40 RG045100 | 60353 0602 00 0 07102 SLW TEMP RG045110 60354 -0500 00 0 04622 CAL CARD+1 RG045120 | 60355 -0320 00 0 07040 ANA BCD40 RG045130 | 60356 -0340 00 0 07102 LAS TEMP RG045140 | 60357 1 00013 2 60223 TXI PIF42,2,11 YES RG045150 | 60360 0020 00 0 60367 TRA PIF76 RG045160 60361 0774 00 1 00013 PIF74 AXT 11,1 NO, OUT OF SEQUENCE RG045170 | 60362 -0500 00 2 34501 CAL DICTM-1,2 MAKE ROOM FOR INSERTION RG045180 | 60363 0602 00 2 34514 SLW DICTM+10,2 RG045190 | 60364 1 00001 2 60365 TXI *+1,2,1 RG045200 | 60365 2 00001 1 60362 TIX *-3,1,1 RG045210 60366 0020 00 0 60344 TRA PIF72 RG045220 | 60367 0074 00 4 34503 PIF76 TSX ERROR,4 ERROR, TWO FIELD NUMBERS EQUAL RG045230 | 60370 -0 00006 0 40636 MZE ERMA2,,6 RG045240 | 60371 -0 00014 0 04621 MZE CARD,,12 RG045250 | 60372 0 00005 0 40331 PZE ERM55,,5 RG045260 60373 -0500 00 2 34515 CAL DICTM+11,2 RG045270 | 60374 0600 00 2 34515 STZ DICTM+11,2 RG045280 | 60375 0602 00 2 34502 SLW DICTM,2 RG045290 | 60376 0520 00 2 34516 ZET DICTM+12,2 RG045300 | 60377 2 00001 2 60373 TIX *-4,2,1 RG045310 60400 0020 00 0 60231 TRA PIF44 IGNORE CARD RG045320 | 60401 263125432460 PIF79 BCI 6,FIELD INCREMENTS COMPUTED FOR RT RG045330 | 60402 314523512544 | 60403 254563626023 | 60404 464447646325 60405 246026465160 | 60406 516360606060 | * RG045340 | * E RECORD AND CORRESPONDING F RECORDS IN CORE AND SORTED RG045350 | 1 LISTING OF 12/01/64 PAGE 127 PROCESSING OF OUTPUT E AND F RECORDS | | * RG045360 | 60407 0520 00 0 60656 PIF80 ZET PIFSW TEST FOR INCREMENT ASSIGNMENT RG045370 | 60410 0020 00 0 60427 TRA PIF81 YES, GO ASSIGN INCREMENTS RG045380 60411 -0500 00 0 56301 CAL DPRL NO, EXTRACT RL FOR DSOE TABLE RG045390 | 60412 -0765 00 0 00032 LGR 26 RG045400 | 60413 0602 00 0 56273 SLW DPWORD RG045410 | 60414 -0754 00 0 00000 PXD 0,0 RG045420 | 60415 -0763 00 0 00012 LGL 10 RG045430 60416 0602 00 0 56274 SLW DPBIT RG045440 | 60417 -0754 00 0 00000 PXD 0,0 RG045450 | 60420 -0763 00 0 00012 LGL 10 RG045460 | 60421 0602 00 0 56275 SLW DPLGTH RG045470 | 60422 -0754 00 0 00000 PXD 0,0 RG045480 60423 -0763 00 0 00006 LGL 6 RG045490 | 60424 0602 00 0 56276 SLW DPMODE RG045500 | 60425 0774 00 3 00000 AXT 0,3 RG045510 | 60426 0020 00 0 60515 TRA PIF90 RG045520 | 60427 -0634 00 0 20326 PIF81 SXD DSOFL,0 INITIALIZE FOR INCREMENT ASSIGNMENT RG045530 60430 -0500 00 0 22661 CAL DICT+1 RG045540 | 60431 0771 00 0 00006 ARS 6 RG045550 | 60432 -0320 00 0 07003 ANA BCD03 RG045560 | 60433 0621 00 0 60406 STA PIF79+5 RG045570 | 60434 0074 00 4 05630 TSX CLIST,4 RG045580 60435 1 00006 3 60401 PON PIF79,3,6 RG045590 | 60436 0600 00 0 56273 STZ DPWORD RG045600 | 60437 0600 00 0 56274 STZ DPBIT RG045610 | 60440 0774 00 1 00003 AXT 3,1 RG045620 | 60441 -0500 00 1 60663 PIF82 CAL PIFF98+3,1 PICK UP MODE IN PACKED FORM RG045630 60442 0602 00 0 56276 SLW DPMODE RG045640 | 60443 0774 00 2 11607 AXT P2JC9-11,2 RG045650 | 60444 -0500 00 2 34503 PIF84 CAL DICTM+1,2 GET F RECORD RG045660 | 60445 -0320 00 0 07034 ANA BCD34 RG045670 | 60446 0322 00 1 60656 ERA PIF98+3,1 TEST FOR CURRENT MODE RG045680 60447 -0100 00 0 60533 TNZ PIF92 NO RG045690 | 60450 -0500 00 0 06713 CAL BCD01 YES, INSERT WORD AND BIT INTO RECORD RG045700 | 60451 0320 00 2 34505 ANS DICTM+3,2 RG045710 | 60452 -0500 00 0 07076 CAL BCD76 RG045720 | 60453 0320 00 2 34504 ANS DICTM+2,2 RG045730 60454 0560 00 0 56273 LDQ DPWORD TO CONVERT WORD AND BIT RG045740 | 60455 0200 00 0 06760 MPY TEN+90 AT ONE FELL SWOOP RG045750 | 60456 -0130 00 0 00000 XCL RG045760 | 60457 0400 00 0 56274 ADD DPBIT RG045770 | 60460 0601 00 0 07102 STO TEMP RG045780 60461 0074 00 4 36604 TSX XBIBCD,4 RG045790 | 60462 0 07102 0 07102 PZE TEMP,,TEMP RG045800 | 60463 0560 00 0 07102 LDQ TEMP PICK UP CONVERTED VALUE RG045810 | 60464 -0754 00 0 00000 PXD 0,0 RG045820 | 60465 -0763 00 0 00006 LGL 6 RG045830 60466 -0602 00 2 34504 ORS DICTM+2,2 RG045840 | 60467 -0130 00 0 00000 XCL RG045850 | 60470 -0602 00 2 34505 ORS DICTM+3,2 RG045860 | * RG045870 | 60471 -0500 00 2 34503 CAL DICTM+1,2 GET FIELD LENGTH RG045880 60472 0560 00 2 34504 LDQ DICTM+2,2 RG045890 | 60473 -0763 00 0 00006 LGL 6 RG045900 | 1 LISTING OF 12/01/64 PAGE 128 | PROCESSING OF OUTPUT E AND F RECORDS | 60474 -0320 00 0 07007 ANA BCD07 RG045910 | 60475 0602 00 0 56275 SLW DPLGTH RG045920 | 60476 0074 00 4 36560 TSX BCDBIC,4 RG045930 | 60477 0 00000 0 56275 PZE DPLGTH RG045940 | * RG045950 60500 -0500 00 2 34502 CAL DICTM,2 GET RT AND FIELD NUMBER RG045960 | 60501 0560 00 2 34503 LDQ DICTM+1,2 RG045970 | 60502 -0763 00 0 00006 LGL 6 RG045980 | 60503 0602 00 0 56302 SLW RFTYPE RG045990 | 60504 -0500 00 0 56273 CAL DPWORD GET WORD, BIT, LENGTH, MODE RG046000 60505 0767 00 0 00012 ALS 10 RG046010 | 60506 -0501 00 0 56274 ORA DPBIT RG046020 | 60507 0767 00 0 00012 ALS 10 RG046030 | 60510 -0501 00 0 56275 ORA DPLGTH RG046040 | 60511 0767 00 0 00006 ALS 6 RG046050 60512 -0501 00 0 56276 ORA DPMODE RG046060 | 60513 0602 00 0 56277 SLW DPWBLM RG046070 | * RG046080 | 60514 0074 00 4 56576 TSX DP450,4 MAKE ENTRY TO DSOF TABLE RG046090 | * RG046100 60515 0441 00 0 56276 PIF90 LDI DPMODE UPDATE WORD AND BIT INCREMENTS RG046110 | 60516 0500 00 0 56274 CLA DPBIT RG046120 | 60517 0400 00 0 56275 ADD DPLGTH RG046130 | 60520 0765 00 0 00043 LRS 35 RG046140 | 60521 0221 00 0 06660 DVP TEN+26 RG046150 60522 0601 00 0 56274 STO DPBIT RG046160 | 60523 0131 00 0 00000 XCA RG046170 | 60524 0400 00 0 56273 ADD DPWORD RG046180 | 60525 0056 00 000002 RNT 000002 SKIP ON PACKED RG046190 | 60526 -0520 00 0 56274 NZT DPBIT RG046200 60527 0020 00 0 60532 TRA *+3 RG046210 | 60530 0400 00 0 06615 ADD ONE UNPACKED AND BIT UNEQUAL 0 RG046220 | 60531 0600 00 0 56274 STZ DPBIT RG046230 | 60532 0601 00 0 56273 STO DPWORD PACKED OR (UNPACKED AND BIT EQUAL 0) RG046240 | 60533 2 00013 2 60444 PIF92 TIX PIF84,2,11 REPEAT FOR ALL RECORDS RG046250 60534 2 00001 1 60441 TIX PIF82,1,1 REPEAT FOR ALL MODES RG046260 | 60535 0500 00 0 56273 CLA DPWORD COMPUTE RECORD LENGTH RG046270 | 60536 0520 00 0 56274 ZET DPBIT RG046280 | 60537 0400 00 0 06615 ADD ONE RG046290 | 60540 0601 00 0 56301 STO DPRL RG046300 60541 0074 00 4 55035 TSX GETVF,4 TEST FOR LENGTH SPECIFIED RG046310 | 60542 0 00000 0 22660 PZE DICT RG046320 | 60543 0 00017 0 00014 PZE 12,,15 RG046330 | 60544 0100 00 0 60572 TZE PIF93 RG046340 | 60545 0602 00 0 07102 SLW TEMP YES, CONVERT TO BINARY RG046350 60546 0074 00 4 36560 TSX BCDBIC,4 RG046360 | 60547 0 00000 0 07102 PZE TEMP RG046370 | 60550 -0340 00 0 56301 LAS DPRL RG046380 | 60551 0601 00 0 56301 STO DPRL RG046390 | 60552 0020 00 0 60572 TRA PIF93 RG046400 60553 0074 00 4 34503 TSX ERROR,4 ERROR, LENGTH TOO SMALL RG046410 | 60554 -0 00013 0 60557 MZE *+3,,11 RG046420 | 60555 0 00014 0 04621 PZE CARD,,12 RG046430 | 60556 0020 00 0 60572 TRA PIF93 RG046440 | 60557 624725233126 BCI 6,SPECIFIED RECORD LENGTH TOO SMALL RG046450 1 LISTING OF 12/01/64 PAGE 129 | PROCESSING OF OUTPUT E AND F RECORDS | | 60560 312524605125 | 60561 234651246043 60562 254527633060 | 60563 634646606244 | 60564 214343606060 | 60565 234644476463 BCI 5,COMPUTED LENGTH WILL BE USED RG046460 | 60566 252460432545 60567 276330606631 | 60570 434360222560 | 60571 646225246060 | 60572 0074 00 4 56473 PIF93 TSX DP350,4 MAKE ENTRY TO DSOE TABLE RG046470 | * RG046480 60573 0074 00 4 36604 TSX XBIBCD,4 INSERT RL INTO E RECORD RG046490 | 60574 0 07102 0 56301 PZE DPRL,,TEMP RG046500 | 60575 0560 00 0 07102 LDQ TEMP RG046510 | 60576 -0773 00 0 00014 RQL 12 RG046520 | 60577 -0500 00 0 22661 CAL DICT+1 RG046530 60600 0771 00 0 00006 ARS 6 RG046540 | 60601 -0763 00 0 00006 LGL 6 RG046550 | 60602 0602 00 0 22661 SLW DICT+1 INSERT RECORD LENGTH RG046560 | 60603 -0620 00 0 22662 SLQ DICT+2 RG046570 | 60604 0534 00 1 22027 LXA FILNO,1 RG046580 60605 0500 00 0 56301 CLA DPRL RG046590 | 60606 0340 00 1 72633 CAS MAXRL,1 RG046600 | 60607 0601 00 1 72633 STO MAXRL,1 RG046610 | 60610 0020 00 0 60611 TRA *+1 RG046620 | * RG046630 * WRITE DICTIONARY TO SCRATCH 28 AS ONE RECORD RG046640 | * RG046650 | 60611 -0535 00 2 34502 PIF94 LDC DICTM,2 GET TOTAL WORD COUNT RG046660 | 60612 0774 00 1 22660 AXT DICT,1 RG046670 | 60613 0774 00 4 04230 AXT P3BSZ,4 INITIALIZE WORD COUNTS RG046680 60614 -0634 00 4 60652 SXD PIF97+1,4 RG046690 | 60615 1 00003 4 60616 TXI *+1,4,3 RG046700 | 60616 -0634 00 4 07114 SXD REC1,4 RG046710 | 60617 1 11622 2 60624 TXI PIF95,2,P2JC9 RG046720 | * RG046730 60620 0074 00 4 05255 TSX RD(WR),4 WRITE OUT FULL BLOCKS RG046740 | 60621 -0 60651 0 00034 MZE 28,,PIF97 RG046750 | 60622 1 04230 1 60624 TXI PIF95,1,P3BSZ RG046760 | 60623 0074 00 4 35007 TSX ENDTP,4 RG046770 | 60624 0634 00 1 60652 PIF95 SXA PIF97+1,1 LOCATE BLOCK RG046780 60625 2 04230 2 60620 TIX *-5,2,P3BSZ TEST FOR MORE FULL BLOCKS RG046790 | * NO, WRITE OUT FINAL BLOCK RG046800 | 60626 -0634 00 2 60652 SXD PIF97+1,2 RG046810 | 60627 1 00003 2 60630 TXI *+1,2,3 SET CONTROL WORD COUNT RG046820 | 60630 -0634 00 2 07114 SXD REC1,2 RG046830 60631 0074 00 4 05255 TSX RD(WR),4 RG046840 | 60632 -0 60651 0 00034 MZE 28,,PIF97 RG046850 | 60633 0020 00 0 60075 TRA PIF06 RG046860 | 60634 0074 00 4 35007 TSX ENDTP,4 RG046870 | 60635 -0500 00 0 06663 PIF96 CAL P BUILD P RECORD RG046880 60636 0767 00 0 00036 ALS 30 RG046890 | 60637 0602 00 0 07117 SLW REC1+3 RG046900 | 60640 0534 00 4 06632 LXA TEN+4,4 CORRECT RECORD COUNT RG046910 | 1 LISTING OF 12/01/64 PAGE 130 | PROCESSING OF OUTPUT E AND F RECORDS | 60641 -0634 00 4 07114 SXD REC1,4 FOR P-LABEL RG046920 | 60642 0074 00 4 05255 TSX RD(WR),4 WRITE P RECORD RG046930 | 60643 -0 60070 0 00034 MZE 28,,PIF02 RG046940 | 60644 0020 00 0 60646 TRA *+2 RG046950 60645 0074 00 4 35007 TSX ENDTP,4 RG046960 | 60646 0074 00 4 05505 TSX NDSRT,4 WRITE EOF RG046970 | 60647 0 00007 0 00034 PZE 28,,7 RG046980 | 60650 0020 00 0 63066 TRA DANZST RG046990 | 60651 -0 00003 0 07114 PIF97 IOCP REC1,,3 I/O COMMAND USED TO WRITE DICT RG047000 60652 -1 00000 0 22660 IOCT DICT,,** RG047010 | 60653 000100000000 PIF98 BCI 1,010000 MODE LIST USED FOR SORTING RG047020 | 60654 000101000000 BCI 1,011000 * RG047030 | 60655 000000010000 BCI 1,000100 * RG047040 | 60656 0 00000 0 00000 PIFSW PZE SET TO NON-ZERO IF INCREMENTS RG047050 * ARE TO BE COMPUTED AUTOMATICALLY RG047060 | 60657 0 00000 0 00000 PIFSW1 PZE 0 NON-ZERO IF DICTIONARIES HAVE BEEN WRITTEN RG047070 | 60660 +000000000004 PIFF98 DEC 4 PACKED MODE TABLE. UNPACKED RG047080 | 60661 +000000000006 DEC 6 PACKED RG047090 | 60662 +000000000001 DEC 1 BINARY RG047100 60663 0634 00 4 60667 PIF99 SXA *+4,4 RG047110 | 60664 0074 00 4 34503 TSX ERROR,4 RG047120 | 60665 -0 00010 0 60671 MZE *+4,,8 RG047130 | 60666 0 00003 0 34533 PZE ER103,,3 RG047140 | 60667 0774 00 4 00000 AXT **,4 RG047150 60670 0020 00 0 04000 TRA LOST RG047160 | 60671 314343252721 BCI 8,ILLEGAL EOF ENCOUNTERED PROCESSING E,F CARDS RG047170 | 60672 436025462660 | 60673 254523466445 | 60674 632551252460 60675 475146232562 | 60676 623145276025 | 60677 732660232151 | 60700 246260606060 | 1 LISTING OF 12/01/64 PAGE 131 PROCESSING OF FIELD PARAMETER CARDS | | 60701 -1 00036 0 21771 PITK1 IOCT ERTBL,0,30 RG047190 | 60702 3 00000 0 22656 PITK2 IORT LFTBL-1,0,0 RG047200 | 60703 3 00000 0 22741 PITK3 IORT CBTBL-1,0,0 RG047210 60704 3 00044 0 07114 PITK5 IORT REC1,0,36 RG047220 | 60705 3 00000 0 07114 PITK6 IORT REC1,0,0 RG047230 | 60706 -1 00000 0 00000 PITK7 IOCT **,,** RG047240 | * TABLE LOOK UP ON FUNCTION TABLE TO GET SWITCH WORD RG047250 | * IF FOUND, LOAD SENSE INDIC WITH SWITCH WORD + CONTINUE RG047260 * IF NOT, THIS IS A NON-NUMERIC, NON-FUNCTION TYPE FIELD RG047270 | * PARAMETER--RETURN TO PROCESS AS SUCH RG047280 | 60707 0441 00 4 54565 FUN000 LDI FUNSWW+30,4 GET CONTROL BITS RG047290 | 60710 -0046 00 0 00000 PIA RG047300 | 60711 -0602 00 0 07262 ORS CONTR RG047310 60712 0774 00 2 00014 AXT 12,2 MOVE CARD TO WORK AREA RG047320 | 60713 -0500 00 2 04635 CAL CARD+12,2 RG047330 | 60714 0602 00 2 07210 SLW CARDS+13,2 RG047340 | 60715 2 00001 2 60713 TIX *-2,2,1 RG047350 | 60716 0600 00 0 63306 STZ SLT01 RESET SWITCH 1 RG047360 60717 0535 00 2 54467 LAC PARED,2 RG047370 | 60720 0634 00 4 60722 SXA FUNXR4,4 SAVE TABLE VECTOR RG047380 | 60721 0020 60 4 54623 TRA* FUNTRA+30,4 GO TO CORRECT RTN RG047390 | 60722 0774 00 4 00000 FUNXR4 AXT **,4 RG047400 | * TEST EACH REPORT TABLE FOR RECORD OR REPORT RG047410 * INDICATION-IF REPORT,SET INDICATOR POS 1 RG047420 | 60723 -0520 00 0 22031 FUN001 NZT RRSWT TEST FOR REPORT OUTPUT RG047430 | 60724 -0055 00 400000 SIL 400000 RG047440 | * TEST SIR POS 2 RG047450 | 60725 -0056 00 200000 LNT 200000 RG047460 60726 0020 00 0 61406 TRA FUN500 CAL, EMIT, PAGE, COUN RG047470 | * ALL CLASSIFIES, RECLASSIFIES, PRT, SCB, ACT RG047480 | * CHECK FOR SUFFICIENT SPACE IN O/A RG047490 | * YES, CONTINUE--NO, TRA TO TROUBLE ROUTINE RG047500 | 60727 -0046 00 0 00000 PIA RG047510 60730 0621 00 0 60740 STA FUN002 RG047520 | 60731 0621 00 0 07304 STA SPCOMP RG047530 | 60732 -0500 00 0 54470 CAL COMRED RG047540 | 60733 0402 00 0 54467 SUB PARED RG047550 | 60734 -0340 00 0 07304 LAS SPCOMP RG047560 60735 0020 00 0 60740 TRA FUN002 RG047570 | 60736 0020 00 0 60740 TRA FUN002 RG047580 | 60737 0074 00 4 54631 TSX TROBLE,4 RG047590 | * ZERO OUT N WORDS IN OUTPUT AREA-PAREA RG047600 | 60740 0774 00 1 00000 FUN002 AXT 0,1 IRA-LENGTH TO BE ZEROED RG047610 60741 -0046 00 0 00000 PIA RG047620 | 60742 0400 00 0 54467 ADD PARED RG047630 | 60743 0621 00 0 60744 STA *+1 RG047640 | 60744 0600 00 1 00000 STZ 0,1 RG047650 | 60745 2 00001 1 60744 TIX *-1,1,1 RG047660 * PLACE OP CODE IN O/A RG047670 | 60746 0767 00 0 00006 ALS 6 RG047680 | 60747 0771 00 0 00030 ARS 24 RG047690 | 60750 -0602 00 2 00000 ORS 0,2 RG047700 | * PLACE 1 IN O/A FOR REPORT-ZERO FOR RECORD RG047710 60751 -0754 00 0 00000 PXD 0,0 RG047720 | 60752 -0054 00 400000 LFT 400000 RG047730 | 1 LISTING OF 12/01/64 PAGE 132 | PROCESSING OF FIELD PARAMETER CARDS | 60753 -0500 00 0 07345 CAL MASK12 RG047740 | 60754 -0602 00 2 00000 ORS 0,2 RG047750 | 60755 0535 00 1 07161 LAC CARDA,1 TO FIX FOR SCB RG047760 | * TEST SIR POS 3 RG047770 | 60756 -0056 00 100000 LNT 100000 RG047780 60757 0020 00 0 61261 TRA FUN300 PRT,SCB RG047790 | * ALL CLASSIFIES, RECLASSIFIES, ACT RG047800 | * PICK UP FIRST WORD-POSITION FOR TESTING RECORD TYPE RG047810 | 60760 0535 00 1 07161 LAC CARDA,1 IRA-COMP INPUT AREA RG047820 | 60761 -0754 00 0 00000 PXD 0,0 RG047830 60762 0560 00 1 00000 LDQ 0,1 RG047840 | 60763 -0773 00 0 00030 RQL 24 RG047850 | 60764 -0763 00 0 00014 LGL 12 RG047860 | * TEST SIR POS 4 RG047870 | 60765 -0056 00 040000 LNT 40000 RG047880 60766 0020 00 0 61226 TRA FUN010 RECLASSIFIES, ACT RG047890 | * CFYH, CFNH, CFYL, CFNL, CFYV RG047900 | * TEST RECORD TYPE FOR BLANK RG047910 | * NO, PLACE IN O/A--YES, PLACE PREVIOUS ART IN O/A RG047920 | 60767 -0340 00 0 07342 LAS MASK03 IRB-COMP OF O/A RG047930 60770 0020 00 0 60772 TRA *+2 RG047940 | 60771 0020 00 0 60775 TRA S0010 RG047950 | 60772 0767 00 0 00030 ALS 24 RG047960 | 60773 -0602 00 2 00000 ORS 0,2 RG047970 | 60774 0020 00 0 60777 TRA S0020 RG047980 60775 -0500 00 0 07306 S0010 CAL STIRT GET INPUT RECORD TYPE RG047990 | 60776 -0602 00 2 00000 ORS 0,2 RG048000 | * PLACE PREVIOUS INPUT RECORD TYPE IN O/A RG048010 | 60777 -0500 00 0 07306 S0020 CAL STIRT RG048020 | 61000 -0602 00 2 00001 ORS 1,2 RG048030 * PLACE PREV. PAR. W/B/L/M IN O/A-STORE -ODE FOR LATER USE RG048040 | 61001 -0500 00 0 63401 CAL PLCHR RG048050 | 61002 -0602 00 2 00004 ORS 4,2 RG048060 | 61003 -0320 00 0 06623 ANA SEVEN RG048070 | 61004 0601 00 0 07276 STO MOTEMP RG048080 * MOVE CLASSIFICATION TABLE TO O/A RG048090 | 61005 0074 00 4 62661 TSX MOVTBL,4 RG048100 | * TEST SIR POS 5 RG048110 | 61006 -0056 00 020000 LNT 20000 RG048120 | 61007 0020 00 0 61014 TRA S0030 ALL CLASSIFIES RG048130 * CFYV RG048140 | * PICK UP SCB AND PLACE IN O/A RG048150 | 61010 -0500 00 1 00007 CAL 7,1 IRA-COMP OF INPUT AREA RG048160 | 61011 -0320 00 0 07010 ANA BCD10 RG048170 | 61012 0767 00 0 00014 ALS 12 RG048180 61013 -0602 00 2 00003 ORS 3,2 RG048190 | * CFYH, CFNH, CFYL, CFNL, CFYV RG048200 | * PICK UP RANGE INDICATION AND STORE IN O/A AS COND RG048210 | 61014 -0500 00 1 00003 S0030 CAL 3,1 RG048220 | 61015 -0320 00 0 07346 ANA MASK14 RG048230 61016 0767 00 0 00022 ALS 18 RG048240 | 61017 -0602 00 2 00003 ORS 3,2 RG048250 | * PACK 3 WORDS OF FIRST RANGE VALUE INTO 2 WORDS RG048260 | * PRELIMINARY TO ELIMINATING BLANKS AND RIGHT JUSTIFYING RG048270 | * FIRST RANGE VALUE RG048280 1 LISTING OF 12/01/64 PAGE 133 | PROCESSING OF FIELD PARAMETER CARDS | | * T1, HIGH ORDER--T2, LOW ORDER OF VALUE RG048290 | 61020 0560 00 1 00003 LDQ 3,1 RG048300 61021 -0500 00 1 00002 CAL 2,1 RG048310 | 61022 -0765 00 0 00014 LGR 12 RG048320 | 61023 -0600 00 0 36715 STQ T2 RG048330 | 61024 0560 00 1 00002 LDQ 2,1 RG048340 | 61025 -0500 00 1 00001 CAL 1,1 RG048350 61026 -0765 00 0 00014 LGR 12 RG048360 | 61027 -0600 00 0 36714 STQ T1 RG048370 | 61030 0600 00 0 07263 STZ COUNT RG048380 | * COUNT BCD BLANKS FOR RIGHT JUSTIFYING 1ST RANGE VALUE RG048390 | 61031 0074 00 4 62727 TSX FUBLCT,4 RG048400 61032 0 00000 0 36714 PZE T1 RG048410 | 61033 0074 00 4 62727 TSX FUBLCT,4 RG048420 | 61034 0 00000 0 36715 PZE T2 RG048430 | * ELIMINATE BLANKS AND RIGHT JUSTIFY 1ST RANGE VALUE RG048440 | 61035 0500 00 0 07276 CLA MOTEMP TEST FOR BCD RG048450 61036 0771 00 0 00002 ARS 2 * RG048460 | 61037 0760 00 0 00001 LBT * RG048470 | 61040 0020 00 0 61050 TRA FUNZ01 BINARY RG048480 | 61041 -0500 00 0 63401 CAL PLCHR PICK UP LENGTH OF FIELD RG048490 | 61042 0771 00 0 00006 ARS 6 * RG048500 61043 -0320 00 0 07322 ANA MASK+5 * RG048510 | 61044 0601 00 0 07301 STO PILB5 RG048520 | 61045 -0500 00 0 06724 CAL TEN+62 RG048530 | 61046 0402 00 0 07301 SUB PILB5 RG048540 | 61047 0020 00 0 61053 TRA FUNZ01+3 * RG048550 61050 0560 00 0 07263 FUNZ01 LDQ COUNT RG048560 | 61051 0200 00 0 06622 MPY SIX RG048570 | 61052 0131 00 0 00000 XCA RG048580 | 61053 0621 00 0 61056 STA *+3 RG048590 | 61054 -0500 00 0 36714 CAL T1 RG048600 61055 0560 00 0 36715 LDQ T2 RG048610 | 61056 -0765 00 0 00000 LGR 0 RG048620 | 61057 -0600 00 0 36715 STQ T2 RG048630 | 61060 0602 00 0 36714 SLW T1 RG048640 | * CHECK FOR BINARY, CONVERT IF YES RG048650 61061 0500 00 0 07276 CLA MOTEMP RG048660 | 61062 0771 00 0 00002 ARS 2 RG048670 | 61063 0760 00 0 00001 LBT RG048680 | 61064 0020 00 0 61066 TRA *+2 RG048690 | 61065 0020 00 0 61121 TRA FUN003 NO CONVERSION RG048700 * STORE SIGN OVER UNITS POS PREPARATORY TO CONVERSION RG048710 | 61066 0604 00 0 07302 STI SAVIND SAVE INDICATORS RG048720 | 61067 0441 00 0 36715 LDI T2 GET VALUE TO RG048730 | 61070 0056 00 000012 RNT 000012 CHECK FOR PLUS OR RG048740 | 61071 0020 00 0 61074 TRA *+3 MINUS ZERO. IF YES, RG048750 61072 0057 00 000017 RIR 000017 CHANGE TO ZERO. RG048760 | 61073 0604 00 0 36715 STI T2 RG048770 | 61074 -0046 00 0 00000 PIA RG048780 | 61075 0441 00 0 07302 LDI SAVIND RESTORE INDICATORS RG048790 | 61076 -0320 00 0 07341 ANA MASK01 RG048800 61077 -0100 00 0 61102 TNZ *+3 RG048810 | 61100 0600 00 0 07303 STZ SIGNIN RG048820 | 61101 0020 00 0 61106 TRA S0040 RG048830 | 1 LISTING OF 12/01/64 PAGE 134 | PROCESSING OF FIELD PARAMETER CARDS | 61102 0602 00 0 07303 SLW SIGNIN RG048840 | 61103 -0500 00 0 07341 CAL MASK01 RG048850 | 61104 0760 00 0 00006 COM RG048860 | 61105 0320 00 0 36715 ANS T2 RG048870 * CONVERT VALUE + STORE IN O/A WORD 7 RG048880 | 61106 0074 00 4 36645 S0040 TSX FUBCDB,4 RG048890 | 61107 -0500 00 0 36716 CAL COTEMP RG048900 | 61110 0602 00 2 00006 SLW 6,2 RG048910 | * STORE SIGN IN O/A WORD 7 RG048920 61111 -0500 00 0 07276 CAL MOTEMP RG048930 | 61112 0760 00 0 00001 LBT RG048940 | 61113 0020 00 0 61125 TRA S0050 RG048950 | 61114 -0500 00 0 07303 CAL SIGNIN RG048960 | 61115 0771 00 0 00005 ARS 5 RG048970 61116 0767 00 0 00043 ALS 35 RG048980 | 61117 -0602 00 2 00006 ORS 6,2 RG048990 | 61120 0020 00 0 61125 TRA S0050 RG049000 | * FOR CONDITIONS NOT NEEDING CONVERSION RG049010 | * STORE UNCONVERTED VALUE IN O/A WORDS 6 + 7 RG049020 61121 -0500 00 0 36714 FUN003 CAL T1 RG049030 | 61122 0602 00 2 00005 SLW 5,2 RG049040 | 61123 -0500 00 0 36715 CAL T2 RG049050 | 61124 0602 00 2 00006 SLW 6,2 RG049060 | * TEST FOR RANGE--YES, CONTINUE--NO, TRA TO FUOUT RG049070 61125 -0754 00 0 00000 S0050 PXD 0,0 RG049080 | 61126 0560 00 2 00003 LDQ 3,2 RG049090 | 61127 -0773 00 0 00007 RQL 7 RG049100 | 61130 -0763 00 0 00001 LGL 1 RG049110 | 61131 0100 00 0 61133 TZE *+2 RG049120 61132 0020 00 0 61217 TRA FUOUT RG049130 | * PACK 3 WORDS OF SECOND VALUE INTO 2 WORDS RG049140 | * PRELIMINARY TO ELIMINATING BLANKS AND RIGHT JUSTIFYING RG049150 | * SECOND RANGE VALUE RG049160 | * T1, HIGH ORDER--T2, LOW ORDER OF VALUE RG049170 61133 0560 00 1 00005 LDQ 5,1 RG049180 | 61134 -0500 00 1 00004 CAL 4,1 RG049190 | 61135 -0765 00 0 00006 LGR 6 RG049200 | 61136 -0600 00 0 36715 STQ T2 RG049210 | 61137 0560 00 1 00004 LDQ 4,1 RG049220 61140 -0500 00 1 00003 CAL 3,1 RG049230 | 61141 -0765 00 0 00006 LGR 6 RG049240 | 61142 -0600 00 0 36714 STQ T1 RG049250 | 61143 0600 00 0 07263 STZ COUNT RG049260 | * COUNT BCD BLANKS FOR RIGHT JUSTIFYING 2ND VALUE RG049270 61144 0074 00 4 62727 TSX FUBLCT,4 RG049280 | 61145 0 00000 0 36714 PZE T1 RG049290 | 61146 0074 00 4 62727 TSX FUBLCT,4 RG049300 | 61147 0 00000 0 36715 PZE T2 RG049310 | * ELIMINATE BLANKS AND RIGHT JUSTIFY 2ND RANGE VALUE RG049320 61150 0560 00 0 07263 LDQ COUNT RG049330 | 61151 0200 00 0 06622 MPY SIX RG049340 | 61152 0131 00 0 00000 XCA RG049350 | 61153 0621 00 0 61156 STA *+3 RG049360 | 61154 -0500 00 0 36714 CAL T1 RG049370 61155 0560 00 0 36715 LDQ T2 RG049380 | 1 LISTING OF 12/01/64 PAGE 135 | PROCESSING OF FIELD PARAMETER CARDS | | 61156 -0765 00 0 00000 LGR 0 RG049390 61157 -0600 00 0 36715 STQ T2 RG049400 | 61160 0602 00 0 36714 SLW T1 RG049410 | * CHECK FOR BINARY, CONVERT IF YES RG049420 | 61161 0500 00 0 07276 CLA MOTEMP RG049430 | 61162 0771 00 0 00002 ARS 2 RG049440 61163 0760 00 0 00001 LBT RG049450 | 61164 0020 00 0 61166 TRA *+2 RG049460 | 61165 0020 00 0 61213 TRA FUN004 RG049470 | * STORE SIGN OVER UNITS POS PREPARATORY TO CONVERSION RG049480 | 61166 -0500 00 0 36715 CAL T2 RG049490 61167 -0320 00 0 07341 ANA MASK01 RG049500 | 61170 -0100 00 0 61173 TNZ *+3 RG049510 | 61171 0600 00 0 07303 STZ SIGNIN RG049520 | 61172 0020 00 0 61200 TRA S0060 RG049530 | 61173 0602 00 0 07303 SLW SIGNIN RG049540 61174 -0500 00 0 07341 CAL MASK01 RG049550 | 61175 0760 00 0 00006 COM RG049560 | 61176 -0320 00 0 36715 ANA T2 RG049570 | 61177 0602 00 0 36715 SLW T2 RG049580 | * CONVERT 2ND VALUE + STORE IN O/A WORD 9 RG049590 61200 0074 00 4 36645 S0060 TSX FUBCDB,4 RG049600 | 61201 -0500 00 0 36716 CAL COTEMP RG049610 | 61202 0602 00 2 00010 SLW 8,2 RG049620 | * STORE SIGN IN O/A WORD 9 RG049630 | 61203 -0500 00 0 07276 CAL MOTEMP RG049640 61204 0760 00 0 00001 LBT RG049650 | 61205 0020 00 0 61217 TRA FUOUT RG049660 | 61206 -0500 00 0 07303 CAL SIGNIN RG049670 | 61207 0771 00 0 00005 ARS 5 RG049680 | 61210 0767 00 0 00043 ALS 35 RG049690 61211 -0602 00 2 00010 ORS 8,2 RG049700 | 61212 0020 00 0 61217 TRA FUOUT RG049710 | * FOR CONDITIONS NOT NEEDING CONVERSION RG049720 | * STORE UNCONVERTED VALUE IN O/A WORDS 8 + 9 RG049730 | 61213 -0500 00 0 36714 FUN004 CAL T1 RG049740 61214 0602 00 2 00007 SLW 7,2 RG049750 | 61215 -0500 00 0 36715 CAL T2 RG049760 | 61216 0602 00 2 00010 SLW 8,2 RG049770 | * EXIT FOR ALL FUNCTIONS RG049780 | * BUILD PARAMETER COMMAND FROM FOLLOWING RG049790 * COUNT EQUALS SIR ADDRESS - 1 RG049800 | * IORP AND TAG OF 4 FROM STORAGE RG049810 | * ADDRESS EQUALS PARED RG049820 | * BUILD COMMAND AND STORE IN COMRED RG049830 | 61217 -0046 00 0 00000 FUOUT PIA RG049840 61220 0402 00 0 06615 SUB ONE RG049850 | 61221 0621 00 0 55331 STA SB399 RG049860 | 61222 0535 00 1 54467 LAC PARED,1 RG049870 | 61223 0074 00 4 55306 TSX SB350,4 CLOSE OUT PART ENTRY RG049880 | * RG049890 * TURN OFF SENSE LITE 1--WHEN ON, THIS BYPASSES THE READ RG049900 | * ROUTINE FOR FIELD PARAMETERS HAVING MULTIPLE CARDS WITH RG049910 | * THE SAME LINE NUMBER RG049920 | 61224 0600 00 0 63306 FUOUT1 STZ SLT01 RESET SWITCH 1 RG049930 | 1 LISTING OF 12/01/64 PAGE 136 PROCESSING OF FIELD PARAMETER CARDS | | 61225 0020 00 0 63126 TRA ID RG049940 | * RCYH, RCYL, ACT RG049950 | * TEST SIR POS 5 RG049960 61226 -0056 00 020000 FUN010 LNT 20000 RG049970 | 61227 0020 00 0 61240 TRA FUN200 ACT RG049980 | * RCYH, RCYL RG049990 | * PLACE ART IN O/A RG050000 | 61230 0767 00 0 00030 ALS 24 IRB-COMP OF O/A RG050010 61231 -0602 00 2 00000 ORS 0,2 RG050020 | * MOVE CLASS TABLE TO O/A RG050030 | 61232 0074 00 4 62661 TSX MOVTBL,4 RG050040 | * PICK UP VALUE AND PLACE IN O/A-TRA TO +UOUT RG050050 | * TO COMPLETE PROCESSING OF RCYH, RCYL PARAMETER RG050060 61233 -0500 00 1 00001 CAL 1,1 IRA-COMP OF INPUT AREA RG050070 | 61234 0771 00 0 00006 ARS 6 RG050080 | 61235 -0320 00 0 06713 ANA BCD01 RG050090 | 61236 -0602 00 2 00006 ORS 6,2 RG050100 | 61237 0020 00 0 61217 TRA FUOUT RG050110 * ACT RG050120 | * CHECK FOR BLANK ART-IF NOT STORE FOR MASTER COMP RG050130 | 61240 -0340 00 0 07342 FUN200 LAS MASK03 RG050140 | 61241 0020 00 0 61243 TRA *+2 RG050150 | 61242 0020 00 0 62746 TRA ARTROR RG050160 61243 0602 00 0 07160 SLW ARTEMP RG050170 | 61244 0767 00 0 00030 ALS 24 RG050180 | 61245 -0602 00 2 00000 ORS 0,2 RG050190 | * CHECK FOR MASTER RECORD--EQUAL, STORE ACT PARED IN RG050200 | * MASTER RECORD ACT SWITCH WORD RG050210 61246 0774 00 4 00005 AXT 5,4 RG050220 | 61247 -0500 00 0 22022 CAL ERTBL+25 RG050230 | 61250 -0320 00 0 07003 ANA BCD03 RG050240 | 61251 -0340 00 0 07160 LAS ARTEMP RG050250 | 61252 0020 00 0 61257 TRA S0070 RG050260 61253 0020 00 0 61255 TRA *+2 RG050270 | 61254 0020 00 0 61257 TRA S0070 RG050280 | 61255 -0500 00 0 54467 CAL PARED RG050290 | 61256 0621 00 0 07277 STA MSTRSW RG050300 | * MOVE CLASS TABLE TO O/A AND TRA TO FUOUT RG050310 * TO COMPLETE PROCESSING OF ACT PARAMETER RG050320 | 61257 0074 00 4 62661 S0070 TSX MOVTBL,4 RG050330 | 61260 0020 00 0 61217 TRA FUOUT RG050340 | * PRT, SCB RG050350 | * TEST SIR POS 4 RG050360 61261 -0056 00 040000 FUN300 LNT 40000 RG050370 | 61262 0020 00 0 61342 TRA FUN400 SCB RG050380 | * PRT RG050390 | * SCAN LINE FORMAT TABLE WITH LINE NO. RG050400 | * FOR REPORTS OR OUTPUT REC. TYPE FOR RECORDS. RG050410 * IF FOUND, STORE USED INDIC IN TABLE /TAG OF 1 IN WD 2/ RG050420 | * IF NOT FOUND-TRA TO ERROR ROUTINE RG050430 | 61263 0535 00 1 07161 LAC CARDA,1 RG050440 | 61264 -0054 00 400000 LFT 400000 RG050450 | 61265 0020 00 0 61314 TRA Z0002 REPORT RG050460 61266 -0500 00 1 00010 CAL 8,1 RECORD RG050470 | 61267 0771 00 0 00030 ARS 24 GET OUTPUT RECORD RG050480 | 1 LISTING OF 12/01/64 PAGE 137 | PROCESSING OF FIELD PARAMETER CARDS | 61270 0602 00 0 07275 SLW LINEST TYPE. RG050490 | 61271 0774 00 4 00620 AXT P2JB5,4 RG050500 | 61272 -0500 00 4 22660 Z0001 CAL LFTBL+1,4 IS OUTPUT RECORD TYPE RG050510 | 61273 -0320 00 0 07007 ANA BCD07 IN LINE FORMAT TBL RG050520 | 61274 0100 00 0 61276 TZE *+2 RG050530 61275 -0340 00 0 07275 LAS LINEST RG050540 | 61276 0020 00 0 61300 TRA *+2 NO RG050550 | 61277 0020 00 0 61302 TRA *+3 YES RG050560 | 61300 2 00002 4 61272 TIX Z0001,4,2 RG050570 | 61301 0020 00 0 62753 TRA LINERR RG050580 61302 -0500 00 0 06761 CAL TAG1 PUT USED INDICATION IN RG050590 | 61303 -0602 60 0 61272 ORS* Z0001 2ND WORD OF LINE FORMAT TBL. RG050600 | 61304 -0500 00 4 22657 CAL LFTBL,4 PLACE LN AND LV IN RG050610 | 61305 0771 00 0 00014 ARS 12 O/A RG050620 | 61306 -0320 00 0 07006 ANA BCD06 RG050630 61307 -0602 00 2 00000 ORS 0,2 RG050640 | * SCAN AST TBL WITH OUTPUT RECORD TYPE TO RG050650 | * SECURE ASSOC. REC. TYPE FOR O1A. IF NOT FOUND, RG050660 | * TRA TO ERROR ROUTINE. RG050670 | 61310 -0500 00 4 22657 CAL LFTBL,4 RG050680 61311 0767 00 0 00030 ALS 24 RG050690 | 61312 -0602 00 2 00000 ORS 0,2 RG050700 | 61313 0020 00 0 61340 TRA Z0004 RG050710 | 61314 -0500 00 0 07070 Z0002 CAL BCD70 IRA-COMP OF INPUT AREA RG050720 | 61315 -0320 00 1 00010 ANA 8,1 IRB-COMP OF O/A RG050730 61316 0602 00 0 07275 SLW LINEST IRC-NO OF WDS IN LINE FORMAT TABLRG050740 | 61317 0774 00 4 00620 AXT P2JB5,4 RG050750 | 61320 -0500 00 4 22657 FUN301 CAL LFTBL,4 RG050760 | 61321 -0320 00 0 07070 ANA BCD70 RG050770 | 61322 -0340 00 0 07275 LAS LINEST RG050780 61323 0020 00 0 61325 TRA *+2 RG050790 | 61324 0020 00 0 61327 TRA *+3 RG050800 | 61325 2 00002 4 61320 TIX FUN301,4,2 RG050810 | 61326 0020 00 0 62753 TRA LINERR RG050820 | 61327 -0500 00 0 06761 CAL TAG1 RG050830 61330 -0602 00 4 22660 ORS LFTBL+1,4 RG050840 | * SCAN AR TABLE WITH LINE NO TO SECURE ART-STORE IN O/A RG050850 | * IF NOT FOUND, TRA TO ERROR ROUTINE RG050860 | 61331 -0500 00 4 22657 CAL LFTBL,4 RG050870 | 61332 0767 00 0 00030 ALS 24 RG050880 61333 -0602 00 2 00000 ORS 0,2 RG050890 | * PLACE LN + LV IN O/A RG050900 | 61334 0560 00 0 07275 LDQ LINEST RG050910 | 61335 -0773 00 0 00006 RQL 6 RG050920 | 61336 -0763 00 0 00022 LGL 18 RG050930 61337 -0602 00 2 00000 ORS 0,2 RG050940 | * MOVE CLASS TABLE TO O/A AND TRA TO FUOUT RG050950 | * TO COMPLETE PROCESSING OF PRT PARAMETER RG050960 | 61340 0074 00 4 62661 Z0004 TSX MOVTBL,4 RG050970 | 61341 0020 00 0 61217 TRA FUOUT RG050980 * SCB RG050990 | * STORE SCB INDICATION IN O/A RG051000 | 61342 -0500 00 0 06615 FUN400 CAL ONE RG051010 | 61343 0767 00 0 00030 ALS 24 RG051020 | 61344 -0602 00 2 00003 ORS 3,2 RG051030 1 LISTING OF 12/01/64 PAGE 138 | PROCESSING OF FIELD PARAMETER CARDS | | * CHECK REC.TYPE FOR BLANK-YES,ERROR-NO,PLACE IN ART OF O/ARG051040 | 61345 0500 00 1 00000 CLA 0,1 RG051050 61346 -0320 00 0 07003 ANA BCD03 RG051060 | 61347 -0340 00 0 07342 LAS MASK03 RG051070 | 61350 0020 00 0 61352 TRA *+2 RG051080 | 61351 0020 00 0 63032 TRA RTERRO RG051090 | 61352 0767 00 0 00030 ALS 24 RG051100 61353 0020 00 0 61354 TRA FUN405 RG051110 | 61354 -0602 00 2 00000 FUN405 ORS 0,2 RG051120 | 61355 0600 00 2 00001 STZ 1,2 RG051130 | 61356 -0602 00 2 00001 ORS 1,2 RG051140 | * MOVE CLASS TABLE TO O/A RG051150 61357 0074 00 4 62661 TSX MOVTBL,4 RG051160 | * PLACE CONTROL BREAK LEVEL IN O/A AND TRA TO FUOUT RG051170 | * TO COMPLETE PROCESSING OF SCB PARAMETER RG051180 | 61360 -0500 00 1 00007 CAL 7,1 RG051190 | 61361 -0320 00 0 07002 ANA BCD02 RG051200 61362 0767 00 0 00030 ALS 24 RG051210 | 61363 -0602 00 2 00003 ORS 3,2 RG051220 | 61364 0761 00 0 00000 NOP RG051230 | 61365 0602 00 0 07102 SLW TEMP RG051240 | 61366 -0500 00 1 00000 CAL 0,1 RG051250 61367 -0320 00 0 07003 ANA BCD03 RG051260 | 61370 0767 00 0 00006 ALS 6 RG051270 | 61371 -0602 00 0 07102 ORS TEMP RG051280 | 61372 0767 00 0 00014 ALS 12 RG051290 | 61373 -0501 00 0 07102 ORA TEMP RG051300 61374 -0534 00 4 22742 LXD CBTBL,4 RG051310 | 61375 -2 00001 4 63051 TNX FUNE01,4,1 TEST FOR CB TABLE FULL RG051320 | 61376 -0634 00 4 22742 SXD CBTBL,4 UPDATE CB MONITOR RG051330 | 61377 0602 00 4 22742 SLW CBTBL,4 MAKE ENTRY TO CB TABLE RG051340 | 61400 0500 00 0 61405 CLA CBCTR COUNT CONTROL BREAK RG051350 61401 0400 00 0 06615 ADD ONE RG051360 | 61402 0602 00 4 22742 SLW CBTBL,4 RG051370 | 61403 0601 00 0 61405 STO CBCTR RG051380 | 61404 0020 00 0 61217 TRA FUOUT RG051390 | 61405 0 00000 0 00000 CBCTR PZE 0 CONTROL BREAK COUNTER RG051400 * PAGE, COUN, EMIT, CAL RG051410 | * ISOLATE CAL PARAMETER FOR ADDITIONAL TESTING RG051420 | * TEST SIR POS 3 RG051430 | 61406 -0056 00 100000 FUN500 LNT 100000 RG051440 | 61407 0020 00 0 61755 TRA FUN800 EMIT RG051450 * PAGE, COUN, CAL RG051460 | * TEST SIR POS 4 RG051470 | 61410 -0056 00 000007 R0010 LNT 7 RG051480 | 61411 0020 00 0 61641 TRA FUN501 PAGE, COUN RG051490 | * CAL RG051500 * TEST SIR POS 1 RG051510 | 61412 -0056 00 400000 LNT 400000 RG051520 | 61413 0020 00 0 61547 TRA FUN503 CAL-RECORD RG051530 | * CAL-REPORT RG051540 | * LOCATE CAL OUTPUT ENTRY IN INPUT AREA RG051550 * IF BLANK-CHECK NEXT ENTRY-ALL BLANK TRA TO ERROR RG051560 | 61414 0774 00 4 00000 AXT 0,4 IRA-COMP OF INPUT AREA RG051570 | 61415 0535 00 1 07161 LAC CARDA,1 RG051580 | 1 LISTING OF 12/01/64 PAGE 139 | PROCESSING OF FIELD PARAMETER CARDS | 61416 -0500 00 1 00010 CAL 8,1 IRC-LOCATION OF ENTRY RG051590 | 61417 -0340 00 0 07001 LAS BLNKS RG051600 | 61420 0020 00 0 61422 TRA *+2 RG051610 | 61421 0020 00 0 61423 TRA *+2 RG051620 61422 0020 00 0 61452 TRA FUN502 RG051630 | 61423 1 00001 4 61424 TXI *+1,4,1 RG051640 | 61424 -0500 00 1 00011 CAL 9,1 RG051650 | 61425 0560 00 1 00012 LDQ 10,1 RG051660 | 61426 -0763 00 0 00014 LGL 12 RG051670 61427 -0320 00 0 07077 ANA BCD77 RG051680 | 61430 -0340 00 0 07001 LAS BLNKS RG051690 | 61431 0020 00 0 61433 TRA *+2 RG051700 | 61432 0020 00 0 61434 TRA *+2 RG051710 | 61433 0020 00 0 61452 TRA FUN502 RG051720 61434 1 00001 4 61435 TXI *+1,4,1 RG051730 | 61435 -0500 00 1 00012 CAL 10,1 RG051740 | 61436 0560 00 1 00013 LDQ 11,1 RG051750 | 61437 -0763 00 0 00030 LGL 24 RG051760 | 61440 -0320 00 0 07077 ANA BCD77 RG051770 61441 -0340 00 0 07001 LAS BLNKS RG051780 | 61442 0020 00 0 61444 TRA *+2 RG051790 | 61443 0020 00 0 61445 TRA *+2 RG051800 | 61444 0020 00 0 61452 TRA FUN502 RG051810 | 61445 1 00001 4 61446 TXI *+1,4,1 RG051820 61446 -0500 00 1 00015 CAL 13,1 RG051830 | 61447 -0340 00 0 07001 LAS BLNKS RG051840 | 61450 0020 00 0 61452 TRA FUN502 RG051850 | 61451 0020 00 0 62765 S0090 TRA ERRBLK RG051860 | * STORE ENTRY LOCATION FOR LATER MANIPULATION RG051870 61452 0602 00 0 37031 FUN502 SLW COMMON RG051880 | 61453 -0765 00 0 00036 LGR 30 RG051890 | 61454 -0340 00 0 06627 LAS EQUAL RG051900 | 61455 0020 00 0 61460 TRA N0051 RG051910 | 61456 0020 00 0 61473 TRA N0060 RG051920 61457 0020 00 0 61460 TRA N0051 RG051930 | 61460 -0340 00 0 06640 N0051 LAS D TEST FOR D RG051940 | 61461 0020 00 0 63164 TRA CTG13 NO RG051950 | 61462 0020 00 0 61464 TRA *+2 RG051960 | 61463 0020 00 0 63164 TRA CTG13 NO RG051970 61464 -0500 00 0 37031 CAL COMMON GET OUTPUT LNID RG051980 | 61465 0074 00 4 55106 N0053 TSX SB100,4 GET CORRESPONDING AST RG051990 | 61466 0761 00 0 00000 NOP RG052000 | 61467 0761 00 0 00000 NOP RG052010 | 61470 0761 00 0 00000 NOP RG052020 61471 0074 00 4 56617 TSX DP500,4 DESIGNATE RT AS USED RG052030 | 61472 0020 00 0 63164 TRA CTG13 RG052040 | 61473 0500 00 0 54470 N0060 CLA COMRED IS THERE ROOM IN PAREA RG052050 | 61474 0402 00 0 54467 SUB PARED RG052060 | 61475 0340 00 0 06622 CAS SIX RG052070 61476 0020 00 0 61501 TRA *+3 RG052080 | 61477 0020 00 0 61501 TRA *+2 RG052090 | 61500 0074 00 4 54631 TSX TROBLE,4 RG052100 | 61501 0774 00 4 00006 AXT 6,4 RG052110 | 61502 0754 00 4 00000 PXA 0,4 RG052120 61503 0400 00 0 54467 ADD PARED RG052130 | 1 LISTING OF 12/01/64 PAGE 140 | PROCESSING OF FIELD PARAMETER CARDS | | 61504 0621 00 0 61505 STA N0070 RG052140 61505 0600 00 4 00000 N0070 STZ 00,4 RG052150 | 61506 2 00001 4 61505 TIX N0070,4,1 ZERO OUT PARAMETER AREA RG052160 | 61507 0535 00 2 54467 LAC PARED,2 RG052170 | 61510 -0774 00 1 04621 AXC CARD,1 XR1 LOCATES CARD RG052180 | 61511 0754 00 0 00000 PXA 0,0 RG052190 61512 0560 00 0 37031 LDQ COMMON PICK UP AST RG052200 | 61513 -0773 00 0 00006 RQL 6 RG052210 | 61514 -0763 00 0 00014 LGL 12 RG052220 | 61515 0767 00 0 00030 ALS 24 RG052230 | 61516 -0602 00 2 00000 ORS 0,2 STORE AST RG052240 61517 0074 00 4 56617 TSX DP500,4 DESIGNATE RT AS USED RG052250 | * RG052260 | 61520 -0500 00 0 06764 CAL DCRM1 RG052270 | 61521 -0520 00 0 22031 NZT RRSWT TEST FOR REPORT OUTPUT RG052280 | 61522 -0602 00 2 00000 ORS 0,2 YES, REPORT ZIGGER TO WORD 1 RG052290 61523 -0602 00 2 00003 ORS 3,2 RG052300 | 61524 0560 00 0 37031 LDQ COMMON RG052310 | 61525 -0773 00 0 00022 RQL 18 RG052320 | 61526 0754 00 0 00000 PXA 0,0 RG052330 | 61527 -0763 00 0 00006 LGL 6 RG052340 61530 0602 00 0 37032 SLW COMMON+1 RG052350 | 61531 0774 00 4 00005 AXT 5,4 RG052360 | 61532 -0500 00 4 07355 N0100 CAL CALCD+5,4 DETERMINE OPERATION RG052370 | 61533 -0320 00 0 07332 ANA MASK+13 RG052380 | 61534 -0340 00 0 37032 LAS COMMON+1 RG052390 61535 0020 00 0 61537 TRA *+2 RG052400 | 61536 0020 00 0 61603 TRA N0110 RG052410 | 61537 2 00001 4 61532 TIX N0100,4,1 RG052420 | 61540 -0625 00 0 34552 STL ERSWT RG052430 | 61541 -0500 00 0 37031 CAL COMMON RG052440 61542 0602 00 0 40166 SLW ERM33+8 RG052450 | 61543 0074 00 4 34503 TSX ERROR,4 RG052460 | 61544 -0 00011 0 40156 MZE ERM33,,9 ILLEGAL INSERT POINT RG052470 | 61545 0 00004 0 40554 PZE ERM90,,4 EXECUTION IMPOSSIBLE RG052480 | 61546 0020 00 0 63126 TRA ID RG052490 61547 0774 00 4 00000 FUN503 AXT 0,4 RG052500 | 61550 1 77773 4 61551 TXI *+1,4,-5 RG052510 | 61551 -0634 00 4 61601 SXD N0040,4 RG052520 | 61552 0774 00 4 00000 AXT 0,4 RG052530 | 61553 1 77777 4 61554 TXI *+1,4,-1 RG052540 61554 -0500 00 4 04630 CAL CARD+7,4 GET D LEVEL OUTPUT ENTRY RG052550 | 61555 -0340 00 0 07001 LAS BLNKS RG052560 | 61556 0020 00 0 61560 TRA *+2 RG052570 | 61557 0020 00 0 61601 TRA N0040 RG052580 | 61560 -0765 00 0 00036 LGR 30 IS 1ST CHARACTER = RG052590 61561 -0340 00 0 06627 LAS EQUAL RG052600 | 61562 0020 00 0 61567 TRA N0032 NO RG052610 | 61563 0020 00 0 61565 TRA *+2 RG052620 | 61564 0020 00 0 61567 TRA N0032 NO RG052630 | 61565 -0763 00 0 00036 LGL 30 RG052640 61566 0020 00 0 61452 TRA FUN502 RG052650 | 61567 -0763 00 0 00006 N0032 LGL 6 GET OUTPUT RECORD TYPE RG052660 | 61570 0074 00 4 55155 TSX SB150,4 GET CORRESPONDING LNID RG052670 | 61571 0020 00 0 61465 TRA N0053 RG052680 | 1 LISTING OF 12/01/64 PAGE 141 PROCESSING OF FIELD PARAMETER CARDS | | 61572 0020 00 0 61465 TRA N0053 TO FIND RT INE TABLE RG052690 | 61573 1 77777 4 61574 N0030 TXI *+1,4,-1 RG052700 | 61574 -0500 00 4 04630 CAL CARD+7,4 RG052710 61575 -0340 00 0 07001 LAS BLNKS RG052720 | 61576 0020 00 0 61600 TRA *+2 RG052730 | 61577 0020 00 0 61601 TRA N0040 RG052740 | 61600 0020 00 0 61452 TRA FUN502 RG052750 | 61601 3 00000 4 61573 N0040 TXH N0030,4,00 RG052760 61602 0020 00 0 62765 TRA ERRBLK RG052770 | 61603 0754 00 0 00000 N0110 PXA 0,0 RG052780 | 61604 0560 00 4 07355 LDQ CALCD+5,4 STORE OPERATION CODE RG052790 | 61605 -0763 00 0 00006 LGL 6 RG052800 | 61606 -0602 00 2 00000 ORS 0,2 RG052810 61607 -0500 00 0 37032 CAL COMMON+1 TEST FOR ENTRY POINT RG052820 | 61610 -0340 00 0 06661 LAS N RG052830 | 61611 0020 00 0 61613 TRA *+2 RG052840 | 61612 0020 00 0 61614 TRA *+2 RG052850 | 61613 0020 00 0 61620 TRA N0110A RG052860 61614 -0500 00 0 37031 CAL COMMON RG052870 | 61615 -0320 00 0 07003 ANA BCD03 RG052880 | 61616 0767 00 0 00006 ALS 6 RG052890 | 61617 -0602 00 2 00000 ORS 0,2 RG052900 | 61620 0074 00 4 55035 N0110A TSX GETVF,4 GET INPUT RT RG052910 61621 0 00000 0 04621 PZE CARD RG052920 | 61622 0 00006 0 00005 PZE 5,,6 COLUMNS 5 AND 6 RG052930 | 61623 0767 00 0 00030 ALS 24 RG052940 | 61624 -0100 00 0 61627 TNZ N0130 IF ZERO USE ASSOC RT RG052950 | 61625 -0500 00 2 00000 N0120 CAL 0,2 RG052960 61626 -0320 00 0 07315 ANA MASK RG052970 | 61627 -0602 00 2 00001 N0130 ORS 1,2 RG052980 | 61630 0074 00 4 62661 TSX MOVTBL,4 RG052990 | 61631 -0500 00 0 06622 CAL SIX RG053000 | 61632 -0602 00 2 00003 ORS 3,2 STORE PARAMETER LENGTH RG053010 61633 0600 00 2 00004 STZ 4,2 RG053020 | * RG053030 | * MAKE ENTRY TO CALTB TABLE UNLESS ALREADY THERE RG053040 | * RG053050 | 61634 0074 00 4 55430 TSX SB450,4 MAKE ENTRY TO CALTB RG053060 61635 -0500 00 0 55521 CAL SB499 RG053070 | 61636 0602 00 2 00005 SLW 5,2 CAL NAME TO PARAMETER RG053080 | 61637 0055 00 000007 N0140 SIR 7 RG053090 | 61640 0020 00 0 61217 TRA FUOUT RG053100 | 61641 0604 00 0 07262 FUN501 STI CONTR RG053110 * RG053120 | 61642 -0774 00 1 04621 AXC CARD,1 XR1 USED TO REFERENCE CARD RG053130 | 61643 -0056 00 000050 LNT 000050 TEST FOR COUNT RG053140 | 61644 0020 00 0 61657 TRA FUN520 RG053150 | 61645 -0500 00 1 00007 FUN510 CAL 7,1 GET ACCUMULATE ZIGGER RG053160 61646 -0320 00 0 06713 ANA BCD01 RG053170 | 61647 0322 00 0 06674 ERA BLANK TEST FOR BLANK RG053180 | 61650 -0056 00 000050 LNT 000050 TEST FOR COUN FUNCTION RG053190 | 61651 -0100 00 0 63164 TNZ CTG13 IF COUN AND BLANK TRANSFER RG053200 | 61652 -0500 00 0 07076 CAL BCD76 NO, PAGE RG053210 61653 0320 00 1 00007 ANS 7,1 INSERT ACCUMULATE ZIGGER RG053220 | 61654 -0500 00 0 06654 CAL MINUS * RG053230 | 1 LISTING OF 12/01/64 PAGE 142 | PROCESSING OF FIELD PARAMETER CARDS | 61655 -0602 00 1 00007 ORS 7,1 * RG053240 | 61656 0020 00 0 63164 TRA CTG13 RG053250 | 61657 -0625 00 0 55426 FUN520 STL SB448 RG053260 | 61660 0074 00 4 55332 TSX SB400,4 RG053270 | 61661 0074 00 4 55035 TSX GETVF,4 RG053280 61662 0 00000 0 04621 PZE CARD RG053290 | 61663 0 00006 0 00005 PZE 5,,6 RG053300 | 61664 0767 00 0 00030 ALS 24 RG053310 | 61665 0074 00 4 55522 TSX SB500,4 RG053320 | 61666 0020 00 0 61645 TRA FUN510 RG053330 * RG053340 | * PAGE-COUN-CAL RG053350 | * PLACE OP CODE IN O/A RG053360 | 61667 -0054 00 000007 FUN600 LFT 000007 RG053370 | 61670 0020 00 0 61747 TRA CALPAR RG053380 61671 -0046 00 0 00000 PIA RG053390 | 61672 0767 00 0 00006 ALS 6 RG053400 | 61673 0771 00 0 00030 ARS 24 RG053410 | 61674 -0602 60 0 54467 ORS* PARED RG053420 | * TEST SIR POS 14 RG053430 61675 -0054 00 000020 LFT 20 RG053440 | 61676 0020 00 0 61727 TRA FUN602 COUN RG053450 | * PAGE-CAL RG053460 | * PICK UP LV + LN AND PLACE IN O/A RG053470 | 61677 0560 00 0 07204 LDQ TEMPAR+8 RG053480 61700 -0754 00 0 00000 PXD 0,0 RG053490 | 61701 -0773 00 0 00006 RQL 6 RG053500 | 61702 -0763 00 0 00014 LGL 12 RG053510 | 61703 0767 00 0 00006 ALS 6 RG053520 | 61704 -0602 60 0 54467 ORS* PARED RG053530 * PAGE RG053540 | * PLACE 7777 AS ART FOR PAGE PARAMETER RG053550 | 61705 -0500 00 0 07315 CAL MASK RG053560 | 61706 -0602 60 0 54467 ORS* PARED RG053570 | 61707 -0056 00 400000 LNT 400000 RG053580 61710 0020 00 0 61712 TRA PAGERR RG053590 | 61711 0020 00 0 64057 TRA PIC48 RG053600 | 61712 0074 00 4 34503 PAGERR TSX ERROR,4 RG053610 | 61713 0 00012 0 61715 PZE PAGMSG,0,10 RG053620 | 61714 0020 00 0 63126 TRA ID RG053630 61715 472127256047 PAGMSG BCI 5,PAGE PARAMETER ILLEGAL FOR RECORDS RG053640 | 61716 215121442563 | 61717 255160314343 | 61720 252721436026 | 61721 465160512523 61722 465124626060 BCI 5,ORDS RG053650 | 61723 606060606060 | 61724 606060606060 | 61725 606060606060 | 61726 606060606060 * COUN RG053660 | * TEST IRT FOR BLANKS--YES, TRA TO ERROR ROUTINE--NO, RG053670 | * PLACE IRT IN COUN PARAMETER AS ART RG053680 | 61727 -0500 00 0 07174 FUN602 CAL TEMPAR TO CORRECT COUNT IRT RG053690 | 61730 -0320 00 0 07003 ANA BCD03 RG053700 1 LISTING OF 12/01/64 PAGE 143 | PROCESSING OF FIELD PARAMETER CARDS | | 61731 0340 00 0 07342 CAS MASK03 RG053710 | 61732 0020 00 0 61734 TRA *+2 RG053720 61733 0074 00 4 63037 TSX IRTERO,4 RG053730 | 61734 -0130 00 0 00000 XCL RG053740 | 61735 -0500 00 0 07017 CAL BCD17 RG053750 | 61736 0320 60 0 54467 ANS* PARED RG053760 | 61737 -0500 00 0 07306 CAL STIRT RG053770 61740 -0602 60 0 54467 ORS* PARED RG053780 | * TEST SIR POS 1 RG053790 | 61741 -0500 00 0 06714 CAL TEN+54 RG053800 | 61742 0535 00 4 54467 LAC PARED,4 RG053810 | 61743 -0602 00 4 00002 ORS 2,4 RG053820 61744 -0056 00 400000 S0100 LNT 400000 RG053830 | 61745 0020 00 0 64066 TRA S0110 RG053840 | 61746 0020 00 0 64057 TRA PIC48 RG053850 | 61747 0535 00 4 54467 CALPAR LAC PARED,4 RG053860 | 61750 -0500 00 0 06764 CAL DCRM1 RG053870 61751 -0602 00 4 00003 ORS 3,4 RG053880 | 61752 0020 00 0 64030 TRA PIC531 RG053890 | * CAL- /= SIGN, BLANK, NON-NUMERIC/ RG053900 | * CHECK FOR AVAILABLE SPACE IN O/A RG053910 | * IF O.K., CONTINUE-NO, TRA TO TROUBLE ROUTINE RG053920 * EMIT RG053930 | * GET NEXT RECORD RG053940 | 61753 0074 00 4 56020 S0170 TSX PREAD,4 RG053950 | 61754 0020 00 0 64702 TRA PIT01 END-OF PACKET RG053960 | * TEST FOR EQ LINE NOS-UNEQ, TEST FOR EMIT-EQ, PROCEED RG053970 61755 0600 00 0 63306 FUN800 STZ SLT01 RESET SWITCH 1 RG053980 | 61756 0761 00 0 00000 NOP RG053990 | 61757 -0500 00 0 04621 CAL CARD RG054000 | 61760 -0320 00 0 07070 ANA BCD70 RG054010 | 61761 -0340 00 0 36737 LAS LSTLNO RG054020 61762 0020 00 0 61764 TRA *+2 RG054030 | 61763 0020 00 0 62002 TRA FUN801 RG054040 | 61764 0602 00 0 36737 SLW LSTLNO RG054050 | * UNEQ LINE NO TEST FOR EMIT - YES, PROCEED-NO, TRA TO RG054060 | * NON FUNCTION ROUTINE RG054070 61765 -0500 00 0 04622 CAL CARD+1 RG054080 | 61766 0771 00 0 00014 ARS 12 RG054090 | 61767 -0340 00 0 54514 LAS KEMIT RG054100 | 61770 0020 00 0 61772 TRA *+2 RG054110 | 61771 0020 00 0 61776 TRA S0120 RG054120 61772 0441 00 0 06614 LDI ZEROS RG054130 | 61773 -0625 00 0 63306 STL SLT01 SET SWITCH 1 ON RG054140 | 61774 0600 00 0 36737 STZ LSTLNO RG054150 | 61775 0020 00 0 63126 TRA ID RG054160 | * TURN OFF USED SWITCH =2 IN SENSE INDIC REGISTER RG054170 61776 -0057 00 020000 S0120 RIL 020000 RG054180 | 61777 0600 00 0 07356 STZ EMITSW RG054190 | * INITIALIZE SCAN ROUTINE RG054200 | 62000 0502 00 0 06615 CLS ONE RG054210 | 62001 0601 00 0 07355 STO LVCNT RG054220 62002 0634 00 0 62025 FUN801 SXA S0130,0 RG054230 | 62003 0634 00 0 62007 SXA FUN802,0 RG054240 | 62004 0634 00 0 62043 SXA FUN806,0 RG054250 | 1 LISTING OF 12/01/64 PAGE 144 | PROCESSING OF FIELD PARAMETER CARDS | * TEST SIR POS 1 RG054260 | 62005 -0056 00 400000 FUN805 LNT 400000 RG054270 | 62006 0020 00 0 62043 TRA FUN806 RECORD RG054280 | * REPORT RG054290 * TEST FOR CARD INPUT /3 ENTRIES/ IF YES AND 3 ENTRIES RG054300 | * HAVE BEEN CHECKED - GET NEXT RECORD RG054310 | * IF TAPE INPUT - CHECK 4TH- IF EVERY ENTRY BLANK, ERROR RG054320 | 62007 0774 00 4 00000 FUN802 AXT 0,4 IRC-COMP OF N RG054330 | 62010 -3 00000 4 62020 S0180 TXL S0160,4,0 RG054340 62011 3 77775 4 62020 TXH S0160,4,-3 N EQUALS COMP OF INCREMENT RG054350 | * TEST USED SWITCH =1-THIS SWITCH IS OFF RG054360 | * IF ALL ENTRIES IN INPUT RECORD ARE BLANK-TRA TO ERROR RG054370 | 62012 -0056 00 040000 LNT 40000 RG054380 | 62013 0020 00 0 63004 TRA OUTENR RG054390 62014 -0057 00 040000 RIL 40000 RG054400 | 62015 0020 00 0 61753 TRA S0170 RG054410 | * ZERO OUT LGL INSTR AND INCREASE LEVEL COUNT RG054420 | 62016 -0754 00 0 00000 FUN803 PXD 0,0 RG054430 | 62017 0621 00 0 62025 STA S0130 RG054440 62020 0500 00 0 07355 S0160 CLA LVCNT RG054450 | 62021 0400 00 0 06615 ADD ONE RG054460 | 62022 0601 00 0 07355 STO LVCNT RG054470 | * PICK UP ENTRY, CHECK FOR BLANKS-NO, PROCESS OUTPUT ENTRY RG054480 | * YES, TRA TO CHECK NEXT ENTRY RG054490 * NON BLANK, SET USED SWITCH =1 IN SENSE INDIC REGISTER RG054500 | 62023 -0500 00 4 04631 FUN804 CAL CARD+8,4 RG054510 | 62024 0560 00 4 04632 LDQ CARD+9,4 RG054520 | 62025 -0763 00 0 00000 S0130 LGL 00 RG054530 | 62026 1 77777 4 62027 TXI *+1,4,-1 RG054540 62027 0634 00 4 62007 SXA FUN802,4 RG054550 | 62030 -0320 00 0 07077 ANA BCD77 RG054560 | 62031 -0340 00 0 07001 LAS BLNKS TEST FOR OUTPUT ENTRY RG054570 | 62032 0020 00 0 62034 TRA *+2 RG054580 | 62033 0020 00 0 62010 TRA S0180 RG054590 62034 0602 00 0 36734 SLW OUTENT RG054600 | 62035 -0600 00 0 36735 STQ OUTENT+1 RG054610 | 62036 -0055 00 040000 SIL 40000 RG054620 | 62037 -0500 00 0 62025 CAL S0130 RG054630 | 62040 0400 00 0 06630 ADD TEN+2 MODIFY SHIFT RG054640 62041 0621 00 0 62025 STA S0130 RG054650 | 62042 0020 00 0 62065 TRA FUN808 RG054660 | * RECORD - EMIT RG054670 | * TEST FOR CARD INPUT /4 ENTRIES/ IF YES AND 4 ENTRIES RG054680 | * HAVE CHECKED, GET NEXT RECORD RG054690 * IF TAPE INPUT, CHECK 5TH RECORD RG054700 | 62043 0774 00 4 00000 FUN806 AXT 0,4 IRC-SAME AS AT FUN802 RG054710 | 62044 -3 00000 4 62052 S0210 TXL FUN807,4,0 RG054720 | 62045 3 77774 4 62052 TXH FUN807,4,-4 RG054730 | * IF ALL IN INPUT RECORD ARE BLANK - TRA TO ERROR RG054740 62046 -0056 00 040000 S0200 LNT 040000 RG054750 | 62047 0020 00 0 63004 TRA OUTENR RG054760 | 62050 -0057 00 040000 RIL 40000 RG054770 | 62051 0020 00 0 61753 TRA S0170 RG054780 | * PICK UP ENTRY, CHECK FOR BLANKS-NO, PROCESS OUTPUT ENTRY RG054790 * YES, CHECK NEXT ENTRY RG054800 | 1 LISTING OF 12/01/64 PAGE 145 | PROCESSING OF FIELD PARAMETER CARDS | | * NON BLANK, SET USED SWITCH =1 IN SENSE INDIC REGISTER RG054810 62052 0500 00 0 07355 FUN807 CLA LVCNT RG054820 | 62053 0400 00 0 06615 ADD ONE RG054830 | 62054 0601 00 0 07355 STO LVCNT RG054840 | 62055 -0500 00 4 04631 CAL CARD+8,4 RG054850 | 62056 1 77777 4 62057 TXI *+1,4,-1 RG054860 62057 0634 00 4 62043 SXA FUN806,4 RG054870 | 62060 -0340 00 0 07001 LAS BLNKS RG054880 | 62061 0020 00 0 62063 TRA *+2 RG054890 | 62062 0020 00 0 62044 TRA S0210 RG054900 | 62063 0602 00 0 36734 SLW OUTENT RG054910 62064 -0055 00 040000 SIL 40000 RG054920 | * CHECK LEVEL COUNT-OVER 9,TRA TO ERROR-EQ,GET INPUT RECORDRG054930 | * CHECK O/A FOR SUFFICIENT SPACE-YES,ZER- OUT - NO,TROUBLE RG054940 | 62065 0500 00 0 07355 FUN808 CLA LVCNT RG054950 | 62066 0340 00 0 06625 CAS NINE RG054960 62067 0020 00 0 62777 TRA CNTLVE RG054970 | 62070 0761 00 0 00000 NOP RG054980 | 62071 -0500 00 0 54470 CAL COMRED RG054990 | 62072 0402 00 0 54467 SUB PARED RG055000 | 62073 0340 00 0 06625 CAS NINE RG055010 62074 0020 00 0 62077 TRA *+3 RG055020 | 62075 0020 00 0 62077 TRA *+2 RG055030 | 62076 0074 00 4 54631 TSX TROBLE,4 RG055040 | 62077 0774 00 4 00011 AXT 9,4 RG055050 | 62100 0754 00 4 00000 PXA 0,4 RG055060 62101 0400 00 0 54467 ADD PARED RG055070 | 62102 0621 00 0 62103 STA *+1 RG055080 | 62103 0600 00 4 00000 STZ 0,4 RG055090 | 62104 2 00001 4 62103 TIX *-1,4,1 RG055100 | 62105 0535 00 2 54467 LAC PARED,2 RG055110 * TEST SIR POS. 5-USED SWITCH =2-MULTIPLE CARDS WITH SAME RG055120 | * LINE NUMBER RG055130 | 62106 -0054 00 020000 LFT 20000 RG055140 | 62107 0020 00 0 62146 TRA FUN809 RG055150 | * FIRST EMIT ENTRY OF POSSIBLE MULTIPLE RG055160 * PLACE OP CODE,CLASS,TABLE,RI,LENGTH OF ENTRY IN O/A RG055170 | 62110 -0055 00 020000 SIL 20000 IRB-COMP OF O/A RG055180 | 62111 -0056 00 400000 LNT 400000 RG055190 | 62112 0020 00 0 62122 TRA S0145 RG055200 | 62113 -0500 00 0 36735 CAL OUTENT+1 RG055210 62114 0771 00 0 00030 ARS 24 RG055220 | 62115 -0320 00 0 06713 ANA BCD01 RG055230 | 62116 0402 00 0 06674 SUB BLANK RG055240 | 62117 0100 00 0 62122 TZE S0145 RG055250 | 62120 -0500 00 0 06667 CAL TEN+33 RG055260 62121 0020 00 0 62125 TRA S0145+3 RG055270 | 62122 -0046 00 0 00000 S0145 PIA IRA COMP OF INPUT AREA RG055280 | 62123 0771 00 0 00022 ARS 18 RG055290 | 62124 -0320 00 0 06713 ANA BCD01 GET OPERATION CODE RG055300 | 62125 -0602 00 2 00000 ORS 0,2 RG055310 62126 -0774 00 1 04621 AXC CARD,1 RG055320 | 62127 0074 00 4 62661 TSX MOVTBL,4 RG055330 | 62130 -0500 00 0 06625 CAL NINE INSERT SIZE OF ENTRY RG055340 | 62131 -0602 00 2 00003 ORS 3,2 RG055350 | 1 LISTING OF 12/01/64 PAGE 146 PROCESSING OF FIELD PARAMETER CARDS | | 62132 -0754 00 0 00000 PXD 0,0 RG055360 | 62133 -0054 00 400000 LFT 400000 RG055370 | 62134 -0500 00 0 06764 CAL DCRM1 RG055380 62135 -0602 00 2 00000 ORS 0,2 RG055390 | * MOVE 1ST 4 WDS OF PARAMETER TO TEMPORARY AREA FOR ENTRIESRG055400 | * OF SAME EMIT RG055410 | 62136 0774 00 4 00004 AXT 4,4 RG055420 | 62137 0754 00 4 00000 PXA 0,4 RG055430 62140 0400 00 0 54467 ADD PARED RG055440 | 62141 0621 00 0 62142 STA *+1 RG055450 | 62142 0500 00 4 00000 CLA 0,4 RG055460 | 62143 0601 00 4 07200 STO TEMPAR+4,4 RG055470 | 62144 2 00001 4 62142 TIX *-2,4,1 RG055480 62145 0020 00 0 62156 TRA FUN810 RG055490 | * FOR EMIT ENTRY WITH 1ST 4 WDS SET UP ALREADY,MOVE TO O/A RG055500 | 62146 0774 00 4 00004 FUN809 AXT 4,4 RG055510 | 62147 0754 00 4 00000 PXA 0,4 RG055520 | 62150 -0774 00 1 04621 AXC CARD,1 RG055530 62151 0400 00 0 54467 ADD PARED RG055540 | 62152 0621 00 0 62154 STA *+2 RG055550 | 62153 0500 00 4 07200 CLA TEMPAR+4,4 RG055560 | 62154 0601 00 4 00000 STO 0,4 RG055570 | 62155 2 00001 4 62153 TIX *-2,4,1 RG055580 * SCAN ARTABLE FOR ART USING LINE NO AS ARGUMENT RG055590 | 62156 -0500 00 0 36734 FUN810 CAL OUTENT IRB-ARTABLE SIZE RG055600 | 62157 -0520 00 0 22031 NZT RRSWT TEST FOR RECORD OUTPUT RG055610 | 62160 0020 00 0 62163 TRA *+3 NO, REPORT RG055620 | 62161 0771 00 0 00030 ARS 24 RG055630 62162 0074 00 4 55155 TSX SB150,4 GET CORRESPONDING LNID RG055640 | 62163 0602 00 0 63377 SLW PMET RG055650 | 62164 -0320 00 0 07040 ANA BCD40 RG055660 | 62165 -0340 00 0 36750 LAS TCON T LINE RG055670 | 62166 0020 00 0 62170 TRA *+2 NO RG055680 62167 0020 00 0 62172 TRA *+3 YES RG055690 | 62170 -0500 00 0 63377 CAL PMET RG055700 | 62171 0020 00 0 62174 TRA *+3 RG055710 | 62172 -0500 00 0 36767 CAL EDMK23 T-LINE EMIT ART RG055720 | 62173 0020 00 0 62175 TRA *+2 RG055730 62174 0074 00 4 55106 TSX SB100,4 GET AST FROM LFTBL RG055740 | 62175 0535 00 2 54467 LAC PARED,2 RG055750 | * RG055760 | 62176 0761 00 0 00000 NOP RG055770 | 62177 -0602 00 2 00000 S0230 ORS 0,2 RG055780 * TEST SIR POS 1 RG055790 | 62200 -0056 00 400000 LNT 400000 RG055800 | 62201 0020 00 0 62214 TRA FUN813 RECORD RG055810 | * REPORT RG055820 | * PLACE LV AND LN, LN IDEN IN O/A RG055830 62202 0560 00 0 36734 LDQ OUTENT RG055840 | 62203 -0754 00 0 00000 PXD 0,0 RG055850 | 62204 -0773 00 0 00006 RQL 6 RG055860 | 62205 -0763 00 0 00014 LGL 12 RG055870 | 62206 0767 00 0 00006 ALS 6 RG055880 62207 -0602 00 2 00000 ORS 0,2 RG055890 | 62210 -0500 00 0 36734 CAL OUTENT RG055900 | 1 LISTING OF 12/01/64 PAGE 147 | PROCESSING OF FIELD PARAMETER CARDS | 62211 -0320 00 0 07070 ANA BCD70 RG055910 | 62212 -0602 00 2 00006 ORS 6,2 RG055920 | 62213 0020 00 0 62244 TRA FUN814 RG055930 | * RECORD RG055940 | * PLACE OUTPUT ENTRY LEVEL, REC. TYPE + FIELD NO. IN O/A RG055950 62214 -0500 00 0 36734 FUN813 CAL OUTENT RG055960 | 62215 0602 00 0 56302 SLW RFTYPE RG055970 | 62216 0771 00 0 00030 ARS 24 POSITION ORT RG055980 | 62217 0074 00 4 55155 TSX SB150,4 GET CORRESPONDING LNID RG055990 | 62220 0602 00 2 00006 SLW 6,2 RG056000 62221 0771 00 0 00014 ARS 12 RG056010 | 62222 -0320 00 0 07006 ANA BCD06 RG056020 | 62223 -0602 00 2 00000 ORS 0,2 RG056030 | * DICTIONARY SEARCH FOR W/B/L/M RG056040 | 62224 0074 00 4 55565 TSX DTS,4 RG056050 62225 -0 00000 0 00000 MZE OUTPUT SEARCH RG056060 | 62226 0020 00 0 62247 TRA FUN815 RG056070 | 62227 314447514647 ER001 BCI 6,IMPROPER OUTPUT RECORD TYPE RG056080 | 62230 255160466463 | 62231 476463605125 62232 234651246063 | 62233 704725606060 | 62234 606060606060 | 62235 314565214331 ER002 BCI 4,INVALID FIELD FUNCTION RG056090 | 62236 246026312543 62237 246026644523 | 62240 633146456060 | 62241 232143606321 ER003 BCI 3,CAL TABLE FULL RG056100 | 62242 224325602664 | 62243 434360606060 * REPORT RG056110 | 62244 -0500 00 0 36734 FUN814 CAL OUTENT GET LNID AND RMP RG056120 | 62245 0074 00 4 55204 TSX SB200,4 SEARCH FFTBL FOR SPECS RG056130 | 62246 0602 00 0 36731 SLW FFTEMP RG056140 | * RG056150 * RG056160 | 62247 -0500 00 1 00005 FUN815 CAL 5,1 PICK UP 6TH WORD RG056170 | 62250 0771 00 0 00006 ARS 6 RG056180 | 62251 -0320 00 0 07007 ANA BCD07 RG056190 | 62252 -0340 00 0 36733 LAS E6215 000000606060 RG056200 62253 0020 00 0 62255 TRA *+2 RG056210 | 62254 0020 00 0 63044 TRA EMLERR EMIT LEN. ERROR RG056220 | 62255 0602 00 0 36732 SLW LENGST RG056230 | 62256 0074 00 4 36560 TSX BCDBIC,4 CONVERT LENGTH TO BIN RG056240 | 62257 0 00000 0 36732 PZE LENGST RG056250 * TEST SIR POS 1 RG056260 | 62260 -0054 00 400000 LFT 400000 RG056270 | 62261 0020 00 0 62405 TRA FUN823 REPORT RG056280 | * RECORD RG056290 | * TEST MODE FOR BI INDIC-YES,CONVERT RG056300 62262 0500 00 0 56276 CLA DPMODE GET MODE RG056310 | 62263 0771 00 0 00002 ARS 2 RG056320 | 62264 0760 00 0 00001 LBT RG056330 | 62265 0020 00 0 62267 TRA *+2 RG056340 | 62266 0020 00 0 62405 TRA FUN823 RG056350 1 LISTING OF 12/01/64 PAGE 148 | PROCESSING OF FIELD PARAMETER CARDS | | * MODIFY LGR INSTR. FOR CALC. LENGTH OF FIELD/MAX 10 BCD/ RG056360 | 62267 0500 00 0 36732 CLA LENGST RG056370 62270 0402 00 0 06710 SUB TEN+50 RG056380 | 62271 0760 00 0 00003 SSP RG056390 | 62272 0400 00 0 06630 ADD TEN+2 RG056400 | 62273 0621 00 0 62306 STA FUN819 RG056410 | * RIGHT JUSTIFY EMIT FIELD INTO 2 WDS,T1 + T2-T2, LOW ORDERRG056420 62274 0535 00 1 07161 LAC CARDA,1 IRA-COMP OF INPUT AREA RG056430 | 62275 -0500 00 1 00001 CAL 1,1 RG056440 | 62276 0560 00 1 00002 LDQ 2,1 RG056450 | 62277 -0763 00 0 00030 LGL 24 RG056460 | 62300 0602 00 0 37031 SLW COMMON RG056470 62301 -0754 00 0 00000 PXD 0,0 RG056480 | 62302 -0763 00 0 00014 LGL 12 RG056490 | 62303 0560 00 1 00003 LDQ 3,1 RG056500 | 62304 -0765 00 0 00014 LGR 12 RG056510 | 62305 -0500 00 0 37031 CAL COMMON RG056520 62306 -0765 00 0 00000 FUN819 LGR 0 RG056530 | 62307 0602 00 0 36714 SLW T1 RG056540 | 62310 -0600 00 0 36715 STQ T2 RG056550 | * TEST FOR SIGNED INDICATION-YES,STORE SIGN IF MINUS RG056560 | * STORE ZERO IF NO SIGN OR PLUS - IF BOTH, ERROR RG056570 62311 0600 00 0 07303 STZ SIGNIN RG056580 | 62312 0500 00 0 56276 CLA DPMODE GET MODE RG056590 | 62313 0760 00 0 00001 LBT RG056600 | 62314 0020 00 0 62331 TRA S0290 RG056610 | 62315 0500 00 0 07367 CLA MASK02 RG056620 62316 -0320 00 0 36715 ANA T2 RG056630 | 62317 0760 00 0 00006 COM RG056640 | 62320 0320 00 0 36715 ANS T2 RG056650 | 62321 0760 00 0 00006 COM RG056660 | 62322 0771 00 0 00004 ARS 4 RG056670 62323 0100 00 0 62331 TZE S0290 RG056680 | 62324 0340 00 0 06616 CAS TWO RG056690 | 62325 0020 00 0 62330 TRA S0300 RG056700 | 62326 0601 00 0 07303 STO SIGNIN RG056710 | 62327 0020 00 0 62331 TRA S0290 RG056720 62330 0074 00 4 63023 S0300 TSX SIGNER,4 RG056730 | * CONVERT FIELD TO BINARY-MAX 10 BCD RG056740 | 62331 0074 00 4 36645 S0290 TSX FUBCDB,4 RG056750 | * ADJUST BINARY FLD TO LENGTH SET ASIDE BY FLD FORMAT TABLERG056760 | * ERASE POSSIBLE BIT IN SIGN POS-STORE SIGN IF NEEDED RG056770 62332 0500 00 0 56275 CLA DPLGTH GET LENGTH RG056780 | 62333 0621 00 0 62337 STA S0310 RG056790 | 62334 0621 00 0 62347 STA S0320 RG056800 | 62335 0560 00 0 07077 FUN820 LDQ BCD77 RG056810 | 62336 -0754 00 0 00000 PXD 0,0 RG056820 62337 -0763 00 0 00000 S0310 LGL 00 RG056830 | 62340 -0320 00 0 36716 ANA COTEMP RG056840 | 62341 0601 00 0 36716 STO COTEMP RG056850 | 62342 0500 00 0 56276 CLA DPMODE GET MODE RG056860 | 62343 0760 00 0 00001 LBT RG056870 62344 0020 00 0 62355 TRA S0325 RG056880 | 62345 -0754 00 0 00000 PXD 0,0 RG056890 | 62346 0560 00 0 07331 LDQ MASK+12 RG056900 | 1 LISTING OF 12/01/64 PAGE 149 | PROCESSING OF FIELD PARAMETER CARDS | 62347 -0763 00 0 00000 S0320 LGL 0 RG056910 | 62350 0760 00 0 00006 COM RG056920 | 62351 0320 00 0 36716 ANS COTEMP RG056930 | 62352 0760 00 0 00006 COM RG056940 62353 0520 00 0 07303 ZET SIGNIN RG056950 | 62354 -0602 00 0 36716 ORS COTEMP RG056960 | * CHECK FOR SHIFTING CONVERTED WORD TO RIGHT /MINUS/ RG056970 | * LEFT /PLUS/ OR NONE /ZERO/ RG056980 | 62355 0500 00 0 06660 S0325 CLA TEN+26 RG056990 62356 0402 00 0 56274 SUB DPBIT RG057000 | 62357 0402 00 0 56275 SUB DPLGTH RG057010 | 62360 0100 00 0 62366 TZE S0330 RG057020 | 62361 -0120 00 0 62371 TMI FUN821 RG057030 | 62362 0621 00 0 62364 STA *+2 RG057040 62363 -0500 00 0 36716 CAL COTEMP RG057050 | 62364 0767 00 0 00000 ALS 0 RG057060 | 62365 0602 00 0 36716 SLW COTEMP RG057070 | * PLACE FIELD IN C-TABLE RG057080 | 62366 0074 00 4 35523 S0330 TSX STEPM,4 MASK TO CONSTANT AREA RG057090 62367 0 00000 0 36716 PZE COTEMP RG057100 | 62370 0020 00 0 62401 TRA FUN822 RG057110 | * MINUS CONDITION RG057120 | 62371 0621 00 0 62374 FUN821 STA *+3 RG057130 | 62372 0500 00 0 36716 CLA COTEMP RG057140 62373 0560 00 0 06614 LDQ ZEROS RG057150 | 62374 -0765 00 0 00000 LGR 0 RG057160 | 62375 0602 00 0 37031 SLW COMMON RG057170 | 62376 -0600 00 0 37032 STQ COMMON+1 RG057180 | * PLACE FIELD IN C-TABLE RG057190 62377 0074 00 4 35441 TSX STEPC,4 RG057200 | 62400 0 00002 1 37032 PZE COMMON+1,1,2 RG057210 | * STORE C-TABLE WORD LOCATION IN WI OF O/A RG057220 | 62401 0535 00 2 54467 FUN822 LAC PARED,2 RG057230 | 62402 0767 00 0 00022 ALS 18 RG057240 62403 -0602 00 2 00004 ORS 4,2 RG057250 | 62404 0020 00 0 62576 TRA FUN827 RG057260 | * REPORTS-RECORDS NEEDING NO CONVERSION RG057270 | * ADJUST CALC LENGTH TO BITS,CHECK FOR FULL WORDS AND RG057280 | * STORE OVERAGE MINUS 36 FOR ADJUSTING LAST WORD RG057290 62405 0560 00 0 36732 FUN823 LDQ LENGST RG057300 | 62406 -0754 00 0 00000 PXD 0,0 RG057310 | 62407 -0600 00 0 36770 STQ LENTMP RG057320 | 62410 0221 00 0 06660 DVP TEN+26 RG057330 | 62411 0100 00 0 62413 TZE *+2 RG057340 62412 0402 00 0 06660 SUB TEN+26 RG057350 | 62413 0621 00 0 62522 STA FUN824 RG057360 | 62414 0621 00 0 62523 STA S0340 RG057370 | * TEST SIR POS 1 RG057380 | 62415 -0056 00 400000 LNT 400000 RG057390 62416 0020 00 0 62451 TRA S0350 RECORD RG057400 | * REPORT RG057410 | * ADJUST FIELD FORMAT TABLE LENGTH FOR STORING IN LENG RG057420 | 62417 -0500 00 0 36731 CAL FFTEMP RG057430 | 62420 -0320 00 0 07007 ANA BCD07 RG057440 62421 0131 00 0 00000 XCA RG057450 | 1 LISTING OF 12/01/64 PAGE 150 | PROCESSING OF FIELD PARAMETER CARDS | | 62422 0200 00 0 06622 MPY SIX RG057460 62423 -0600 00 0 56275 STQ DPLGTH RG057470 | 62424 0535 00 2 54467 LAC PARED,2 CALCULATE BIT POSITION RG057480 | 62425 -0500 00 0 36734 CAL OUTENT RG057490 | 62426 -0320 00 0 07007 ANA BCD07 RG057500 | 62427 0602 00 0 07102 SLW TEMP RG057510 62430 0074 00 4 36560 TSX BCDBIC,4 RG057520 | 62431 0 00000 0 07102 PZE TEMP RG057530 | 62432 0560 00 0 07102 LDQ TEMP RG057540 | 62433 0200 00 0 06622 MPY SIX RG057550 | 62434 0131 00 0 00000 XCA RG057560 62435 0402 00 0 56275 SUB DPLGTH RG057570 | 62436 0400 00 0 06622 ADD SIX RG057580 | 62437 -0130 00 0 00000 XCL RG057590 | 62440 -0754 00 0 00000 PXD 0,0 RG057600 | 62441 0221 00 0 06660 DVP TEN+26 RG057610 62442 -0130 00 0 00000 XCL RG057620 | 62443 0767 00 0 00032 ALS 26 RG057630 | 62444 -0602 00 2 00007 ORS 7,2 RG057640 | 62445 0131 00 0 00000 XCA RG057650 | 62446 0621 00 0 56274 STA DPBIT RG057660 62447 0767 00 0 00020 ALS 16 RG057670 | 62450 -0602 00 2 00007 ORS 7,2 RG057680 | 62451 -0500 00 0 56274 S0350 CAL DPBIT CALCULATE LOOP CONTROL RG057690 | 62452 0400 00 0 56275 ADD DPLGTH RG057700 | 62453 -0130 00 0 00000 XCL RG057710 62454 -0754 00 0 00000 PXD 0,0 RG057720 | 62455 0600 00 0 07373 STZ TEMP5 RG057730 | 62456 0221 00 0 06660 DVP TEN+26 RG057740 | 62457 -0100 00 0 62461 TNZ *+2 RG057750 | 62460 -0625 00 0 07373 STL TEMP5 RG057760 62461 -0130 00 0 00000 XCL RG057770 | 62462 -0520 00 0 07373 NZT TEMP5 RG057780 | 62463 0400 00 0 06615 ADD ONE RG057790 | 62464 0621 00 0 62536 STA FUN825 RG057800 | * CALC AMOUNT OF RIGHT JUST-IF GREATER THAN FIELD ALLOTTED RG057810 * BY FLD FORMAT TABLE PLACE DIFFERENCE TO PROPERLY JUSTIFY RG057820 | * PLACE BIT IN JUSTIFICATION ROUTINE RG057830 | 62465 -0500 00 0 36770 S0360 CAL LENTMP RG057840 | 62466 0402 00 0 56275 SUB DPLGTH RG057850 | 62467 0100 00 0 62472 TZE *+3 RG057860 62470 0120 00 0 62500 TPL S0370 RG057870 | 62471 -0754 00 0 00000 PXD 0,0 RG057880 | 62472 0621 00 0 62533 STA S0380 RG057890 | 62473 0621 00 0 62532 STA S0390 RG057900 | 62474 0500 00 0 06660 S0400 CLA TEN+26 RG057910 62475 0402 00 0 56274 SUB DPBIT RG057920 | 62476 0621 00 0 62540 STA FUN826 RG057930 | 62477 0020 00 0 62505 TRA *+6 RG057940 | 62500 0400 00 0 06615 S0370 ADD ONE RG057950 | 62501 0621 00 0 62533 STA S0380 RG057960 62502 0621 00 0 62532 STA S0390 RG057970 | 62503 -0754 00 0 00000 PXD 0,0 RG057980 | 62504 0020 00 0 62474 TRA S0400 RG057990 | * JUSTIFY FIELD TO LEFT RG058000 | 1 LISTING OF 12/01/64 PAGE 151 PROCESSING OF FIELD PARAMETER CARDS | | 62505 0535 00 1 07161 LAC CARDA,1 IRA-COMP OF INPUT AREA RG058010 | 62506 0535 00 2 36740 LAC ICOM1,2 IRB-COMP OF TEMPORARY STORAGE RG058020 | 62507 0534 00 4 36732 LXA LENGST,4 RG058030 62510 -0500 00 1 00001 CAL 1,1 IRC-CALCULATED LENGTH OF FIELD RG058040 | 62511 0560 00 1 00002 S0410 LDQ 2,1 RG058050 | 62512 -0763 00 0 00030 LGL 24 RG058060 | 62513 -3 00044 4 62522 TXL FUN824,4,36 RG058070 | 62514 0602 00 2 00000 SLW 0,2 RG058080 62515 -0754 00 0 00000 PXD 0,0 RG058090 | 62516 1 77777 1 62517 TXI *+1,1,-1 RG058100 | 62517 1 77777 2 62520 TXI *+1,2,-1 RG058110 | 62520 -0763 00 0 00014 LGL 12 RG058120 | 62521 1 77734 4 62511 TXI S0410,4,-36 RG058130 * BLANK OUT UNNEEDED PORTION OF LAST WORD OF FIELD RG058140 | 62522 0771 00 0 00000 FUN824 ARS 0 RG058150 | 62523 0767 00 0 00000 S0340 ALS 00 RG058160 | 62524 0602 00 2 00000 SLW 0,2 RG058170 | 62525 0600 00 2 00001 STZ 1,2 RG058180 * POSITION FIELD TO BIT POS SPECIFIED IN FIELD FORMAT TABLERG058190 | * IF CALCULATED LENGTH WAS TOO MUCH, BLANK OUT DIFFERENCE RG058200 | * IN HIGH ORDER RG058210 | 62526 0535 00 1 36740 LAC ICOM1,1 IRA-COMP OF 1ST TEMP AREA RG058220 | 62527 0535 00 2 36741 LAC ICOM6,2 IRB-COMP OF 2ND TEMP AREA RG058230 62530 -0500 00 1 00000 CAL 0,1 IRC-NO OF WORDS RG058240 | 62531 0560 00 1 00001 LDQ 1,1 RG058250 | 62532 -0763 00 0 00000 S0390 LGL 00 RG058260 | 62533 -0765 00 0 00000 S0380 LGR 00 RG058270 | 62534 0602 00 1 00000 SLW 0,1 RG058280 62535 0754 00 0 00000 PXA 0,0 RG058290 | 62536 0774 00 4 00000 FUN825 AXT 0,4 RG058300 | 62537 0560 00 1 00000 LDQ 0,1 RG058310 | 62540 -0763 00 0 00000 FUN826 LGL 0 36-BIT RG058320 | 62541 0602 00 2 00000 SLW 0,2 RG058330 62542 1 77777 1 62543 TXI *+1,1,-1 RG058340 | 62543 1 77777 4 62544 TXI *+1,4,-1 RG058350 | 62544 -3 00000 4 62550 TXL *+4,4,0 RG058360 | 62545 1 77777 2 62546 TXI *+1,2,-1 RG058370 | 62546 -0500 00 1 77777 CAL -1,1 RG058380 62547 0020 00 0 62537 TRA FUN825+1 RG058390 | * ADJUST STEP CC ROUTINE FOR WORD LOCATION RG058400 | 62550 0754 00 2 00000 PXA 0,2 RG058410 | 62551 0760 00 0 00006 COM RG058420 | 62552 0400 00 0 06615 ADD ONE RG058430 62553 0621 00 0 62565 STA S0430 RG058440 | 62554 -0500 00 0 62536 CAL FUN825 RG058450 | 62555 0767 00 0 00022 ALS 18 RG058460 | 62556 0622 00 0 62565 STD S0430 RG058470 | * MOVE EMIT FIELD TO STORAGE RG058480 62557 -0500 00 0 07356 CAL EMITSW RG058490 | 62560 0100 00 0 62564 TZE *+4 RG058500 | 62561 0535 00 2 54467 LAC PARED,2 RG058510 | 62562 -0602 00 2 00004 ORS 4,2 RG058520 | 62563 0020 00 0 62614 TRA S044B RG058530 62564 0074 00 4 35441 TSX STEPC,4 RG058540 | 62565 0 00000 1 00000 S0430 PZE 0,1,0 RG058550 | 1 LISTING OF 12/01/64 PAGE 152 | PROCESSING OF FIELD PARAMETER CARDS | * STORE C-TABLE WORD LOC. IN WI OF O/A RG058560 | 62566 0535 00 2 54467 LAC PARED,2 RG058570 | 62567 0767 00 0 00022 ALS 18 RG058580 | 62570 -0602 00 2 00004 ORS 4,2 RG058590 | 62571 0622 00 0 07356 STD EMITSW RG058600 62572 -0500 00 0 62565 CAL S0430 RG058610 | 62573 0771 00 0 00014 ARS 12 RG058620 | 62574 -0320 00 0 07006 ANA BCD06 RG058630 | 62575 -0602 00 0 07356 ORS EMITSW RG058640 | * CALCULATE WORDS STORED IN BITS-INCL BIT POS AND EXCESS- RG058650 * PLACE IN O/A RG058660 | 62576 0500 00 0 56274 FUN827 CLA DPBIT RG058670 | 62577 0400 00 0 56275 ADD DPLGTH RG058680 | 62600 0131 00 0 00000 XCA RG058690 | 62601 -0754 00 0 00000 PXD 0,0 RG058700 62602 0221 00 0 06660 DVP TEN+26 RG058710 | 62603 0100 00 0 62607 TZE S0440 RG058720 | 62604 0131 00 0 00000 XCA RG058730 | 62605 0400 00 0 06615 ADD ONE RG058740 | 62606 0131 00 0 00000 XCA RG058750 62607 -0754 00 0 00000 S0440 PXD 0,0 RG058760 | 62610 -0773 00 0 00032 RQL 26 RG058770 | 62611 -0763 00 0 00012 LGL 10 RG058780 | 62612 0767 00 0 00006 ALS 6 RG058790 | 62613 -0602 00 2 00004 ORS 4,2 RG058800 62614 -0500 00 0 56275 S044B CAL DPLGTH PLACE LENGTH IN OUTPUT ENTRY RG058810 | 62615 0767 00 0 00006 ALS 6 RG058820 | 62616 -0602 00 2 00007 ORS 7,2 RG058830 | * TEST SIR POS 1 RG058840 | 62617 -0054 00 400000 LFT 400000 RG058850 62620 0020 00 0 62633 TRA FUN828 REPORT RG058860 | * RECORD RG058870 | * STORE MODE IN MO + MI AND WORD IN WO RG058880 | 62621 -0500 00 0 56274 CAL DPBIT RG058890 | 62622 0767 00 0 00020 ALS 16 RG058900 62623 -0602 00 2 00007 ORS 7,2 RG058910 | 62624 0500 00 0 56276 CLA DPMODE RG058920 | 62625 -0602 00 2 00004 ORS 4,2 RG058930 | 62626 -0602 00 2 00007 ORS 7,2 RG058940 | 62627 0500 00 0 56273 CLA DPWORD RG058950 62630 0767 00 0 00032 ALS 26 RG058960 | 62631 -0602 00 2 00007 ORS 7,2 RG058970 | 62632 0020 00 0 62642 TRA FUN829 RG058980 | * REPORT RG058990 | * TEST WRITE INDIC OF OUTPUT ENTRY FOR BLANK RG059000 * YES-PLACE L IN PRINT MODE OF O/A RG059010 | * NO-PLACE THIS IN PRINT MODE OF O/A RG059020 | 62633 0560 00 0 36735 FUN828 LDQ OUTENT+1 RG059030 | 62634 -0754 00 0 00000 PXD 0,0 RG059040 | 62635 -0763 00 0 00006 LGL 6 RG059050 62636 -0602 00 2 00006 S0460 ORS 6,2 RG059060 | * PLACE 7 IN MO AND MI OF O/A RG059070 | 62637 0500 00 0 06623 S0450 CLA SEVEN RG059080 | 62640 -0602 00 2 00004 ORS 4,2 RG059090 | 62641 -0602 00 2 00007 ORS 7,2 RG059100 1 LISTING OF 12/01/64 PAGE 153 | PROCESSING OF FIELD PARAMETER CARDS | | * DEVELOP COMMAND RG059110 | 62642 -0500 00 0 06625 FUN829 CAL NINE RG059120 62643 0767 00 0 00022 ALS 18 RG059130 | 62644 -0501 00 0 07344 ORA MASK11 RG059140 | 62645 0400 00 0 54467 ADD PARED RG059150 | 62646 0602 60 0 54470 SLW* COMRED RG059160 | * ADJUST PARED AND COMRED RG059170 62647 -0500 00 0 06625 CAL NINE RG059180 | 62650 0400 00 0 54467 ADD PARED RG059190 | 62651 0621 00 0 54467 STA PARED RG059200 | 62652 -0500 00 0 54470 CAL COMRED RG059210 | 62653 0402 00 0 06615 SUB ONE RG059220 62654 0621 00 0 54470 STA COMRED RG059230 | * ADJUST PARAMETER COUNTER AND RETURN TO BEGINNING OF EMIT RG059240 | 62655 -0500 00 0 07300 CAL PARCTR RG059250 | 62656 0400 00 0 06615 ADD ONE RG059260 | 62657 0621 00 0 07300 STA PARCTR RG059270 62660 0020 00 0 62005 TRA FUN805 RG059280 | * PICK UP CLASSIFICATION AND STORE IN O/A RG059290 | 62661 0634 00 1 62723 MOVTBL SXA MOVT50,1 SAVE XRS RG059300 | 62662 0634 00 2 62724 SXA MOVT51,2 RG059310 | 62663 -0774 00 1 04621 AXC CARD,1 RG059320 62664 0600 00 0 62726 STZ MOVT99 RG059330 | 62665 0774 00 2 00006 AXT 6,2 RG059340 | 62666 0560 00 1 00006 LDQ 6,1 RG059350 | 62667 0600 00 0 07370 MOVT10 STZ TEMP1 RG059360 | 62670 -0754 00 0 00000 MOVT20 PXD 0,0 RG059370 62671 -0763 00 0 00006 LGL 6 RG059380 | 62672 0340 00 0 36753 CAS CONBL RG059390 | 62673 0020 00 0 62675 TRA *+2 RG059400 | 62674 -0754 00 0 00000 PXD 0,0 RG059410 | 62675 -0501 00 0 07370 ORA TEMP1 RG059420 62676 3 00001 2 62706 TXH MOVT30,2,1 RG059430 | 62677 0520 00 0 62726 ZET MOVT99 RG059440 | 62700 0020 00 0 62711 TRA MOVT40 RG059450 | 62701 -0625 00 0 62726 STL MOVT99 RG059460 | 62702 0602 00 0 07372 SLW TEMP3 RG059470 62703 0774 00 2 00002 AXT 2,2 RG059480 | 62704 0560 00 1 00007 LDQ 7,1 RG059490 | 62705 0020 00 0 62667 TRA MOVT10 RG059500 | 62706 0767 00 0 00006 MOVT30 ALS 6 RG059510 | 62707 0602 00 0 07370 SLW TEMP1 RG059520 62710 1 77777 2 62670 TXI MOVT20,2,-1 RG059530 | 62711 -0763 00 0 00030 MOVT40 LGL 24 RG059540 | 62712 0602 00 0 07371 SLW TEMP2 RG059550 | 62713 0535 00 2 54467 LAC PARED,2 RG059560 | 62714 -0500 00 0 07372 CAL TEMP3 RG059570 62715 0560 00 0 07371 LDQ TEMP2 RG059580 | 62716 -0765 00 0 00014 LGR 12 RG059590 | 62717 -0602 00 2 00001 ORS 1,2 RG059600 | 62720 -0763 00 0 00030 LGL 24 RG059610 | 62721 0767 00 0 00014 ALS 12 RG059620 62722 -0602 00 2 00002 ORS 2,2 RG059630 | 62723 0774 00 1 00000 MOVT50 AXT **,1 RG059640 | 62724 0774 00 2 00000 MOVT51 AXT **,2 RG059650 | 1 LISTING OF 12/01/64 PAGE 154 | PROCESSING OF FIELD PARAMETER CARDS | 62725 0020 00 4 00001 TRA 1,4 RG059660 | 62726 0 00000 0 00000 MOVT99 PZE 0 STORAGE RG059670 | * COUNT BLANKS IN RANGE FIELD RG059680 | 62727 0634 00 4 62744 FUBLCT SXA FUBL30,4 RG059690 62730 0560 60 4 00001 LDQ* 1,4 RG059700 | 62731 0774 00 4 00006 AXT 6,4 RG059710 | 62732 -0754 00 0 00000 FUBL10 PXD 0,0 RG059720 | 62733 -0763 00 0 00006 LGL 6 RG059730 | 62734 -0340 00 0 06674 LAS BLANK RG059740 62735 0020 00 0 62743 TRA FUBL20 RG059750 | 62736 0020 00 0 62740 TRA *+2 RG059760 | 62737 0020 00 0 62743 TRA FUBL20 RG059770 | 62740 0500 00 0 07263 CLA COUNT RG059780 | 62741 0400 00 0 06615 ADD ONE RG059790 62742 0601 00 0 07263 STO COUNT RG059800 | 62743 2 00001 4 62732 FUBL20 TIX FUBL10,4,1 RG059810 | 62744 0774 00 4 00000 FUBL30 AXT **,4 RG059820 | 62745 0020 00 4 00002 TRA 2,4 RG059830 | * POSITION OUTPUT ENTRY FOUND IN MAIN ROUTINE RG059840 62746 0500 00 0 06615 ARTROR CLA MCA1 RG059850 | 62747 -0602 00 0 34552 ORS ERSWT RG059860 | 62750 0074 00 4 34503 TSX ERROR,4 RG059870 | 62751 0 00012 0 37766 PZE ERM21,0,10 RG059880 | 62752 0020 00 0 61224 TRA FUOUT1 RG059890 62753 0500 00 0 06615 LINERR CLA MCA1 RG059900 | 62754 -0602 00 0 34552 ORS ERSWT RG059910 | 62755 0074 00 4 34503 TSX ERROR,4 RG059920 | 62756 0 00012 0 40000 PZE ERM22,0,10 RG059930 | 62757 0020 00 0 61224 TRA FUOUT1 RG059940 62760 0500 00 0 06615 ARTERO CLA MCA1 RG059950 | 62761 -0602 00 0 34552 ORS ERSWT RG059960 | 62762 0074 00 4 34503 TSX ERROR,4 RG059970 | 62763 0 00012 0 40012 PZE ERM23,0,10 RG059980 | 62764 0020 00 0 61224 TRA FUOUT1 RG059990 62765 0500 00 0 06615 ERRBLK CLA MCA1 RG060000 | 62766 -0602 00 0 34552 ORS ERSWT RG060010 | 62767 0074 00 4 34503 TSX ERROR,4 RG060020 | 62770 0 00012 0 40024 PZE ERM24,0,10 RG060030 | 62771 0020 00 0 61224 TRA FUOUT1 RG060040 62772 0500 00 0 06615 IRTERR CLA MCA1 RG060050 | 62773 -0602 00 0 34552 ORS ERSWT RG060060 | 62774 0074 00 4 34503 TSX ERROR,4 RG060070 | 62775 0 00012 0 40034 PZE ERM25,0,10 RG060080 | 62776 0020 00 0 61224 TRA FUOUT1 RG060090 62777 0500 00 0 06615 CNTLVE CLA MCA1 RG060100 | 63000 -0602 00 0 34552 ORS ERSWT RG060110 | 63001 0074 00 4 34503 TSX ERROR,4 RG060120 | 63002 0 00012 0 40046 PZE ERM26,0,10 RG060130 | 63003 0020 00 0 61754 TRA FUN800-1 RG060140 63004 -0500 00 0 06615 OUTENR CAL MCA1 RG060150 | 63005 -0602 00 0 34552 ORS ERSWT RG060160 | 63006 0074 00 4 34503 TSX ERROR,4 RG060170 | 63007 0 00012 0 40060 PZE ERM27,0,10 RG060180 | 63010 0020 00 0 61754 TRA FUN800-1 RG060190 63011 -0500 00 0 06615 ARTERR CAL MCA1 RG060200 | 1 LISTING OF 12/01/64 PAGE 155 | PROCESSING OF FIELD PARAMETER CARDS | | 63012 -0602 00 0 34552 ORS ERSWT RG060210 63013 0074 00 4 34503 TSX ERROR,4 RG060220 | 63014 0 00012 0 40072 PZE ERM28,0,10 RG060230 | 63015 0020 00 0 62005 TRA FUN805 RG060240 | 63016 0500 00 0 06615 HELP CLA MCA1 RG060250 | 63017 -0602 00 0 34552 ORS ERSWT RG060260 63020 0074 00 4 34503 TSX ERROR,4 RG060270 | 63021 0 00012 0 40104 PZE ERM29,0,10 RG060280 | 63022 0020 00 0 62005 TRA FUN805 RG060290 | 63023 0634 00 4 63030 SIGNER SXA *+5,4 RG060300 | 63024 0500 00 0 06615 CLA MCA1 RG060310 63025 -0602 00 0 34552 ORS ERSWT RG060320 | 63026 0074 00 4 34503 TSX ERROR,4 RG060330 | 63027 0 00012 0 40120 PZE ERM30,0,10 RG060340 | 63030 0774 00 4 00000 AXT 0,4 RG060350 | 63031 0020 00 4 00001 TRA 1,4 RG060360 63032 -0500 00 0 06615 RTERRO CAL MCA1 RG060370 | 63033 -0602 00 0 34552 ORS ERSWT RG060380 | 63034 0074 00 4 34503 TSX ERROR,4 RG060390 | 63035 0 00012 0 40132 PZE ERM31,0,10 RG060400 | 63036 0020 00 0 61224 TRA FUOUT1 RG060410 63037 0500 00 0 06615 IRTERO CLA MCA1 RG060420 | 63040 -0602 00 0 34552 ORS ERSWT RG060430 | 63041 0074 00 4 34503 TSX ERROR,4 RG060440 | 63042 0 00012 0 40144 PZE ERM32,0,10 RG060450 | 63043 0020 00 4 00001 TRA 1,4 RG060460 63044 -0500 00 0 06615 EMLERR CAL MCA1 RG060470 | 63045 -0602 00 0 34552 ORS ERSWT RG060480 | 63046 0074 00 4 34503 TSX ERROR,4 RG060490 | 63047 0 00005 0 40221 PZE ERM38,0,5 RG060500 | 63050 0020 00 0 61224 TRA FUOUT1 RG060510 63051 0500 00 0 06615 FUNE01 CLA MCA1 RG060520 | 63052 -0602 00 0 34552 ORS ERSWT RG060530 | 63053 0074 00 4 34503 TSX ERROR,4 RG060540 | 63054 0 00005 0 54623 PZE FUNEM1,0,5 RG060550 | 63055 0020 00 0 61217 TRA FUOUT RG060560 63056 0634 00 4 63064 EMOVTB SXA F007,4 RG060570 | 63057 -0500 00 0 07374 CAL LCARDS RG060580 | 63060 0621 00 0 62663 STA MOVTBL+2 RG060590 | 63061 0074 00 4 62661 TSX MOVTBL,4 RG060600 | 63062 -0500 00 0 07161 CAL CARDA F005 RG060610 63063 0621 00 0 62663 STA MOVTBL+2 RG060620 | 63064 0774 00 4 00000 F007 AXT 00,4 RG060630 | 63065 0020 00 4 00001 TRA 1,4 RG060640 | 63066 0074 00 4 35441 DANZST TSX STEPC,4 RG060650 | 63067 0 00003 0 07323 PZE MASK+6,0,3 RG060660 63070 0621 00 0 21771 STA ERTBL SAVE ADDRESS OF CB WORD RG060670 | * RG060680 | * INITIALIZE FOR PROCESSING OF FIELD PARAMETERS AND HAND CALCS RG060690 | 63071 0074 00 4 05013 DANZ20 TSX STZLUP,4 ZERO TABLE AREA RG060700 | 63072 0 11622 0 34502 PZE CALTB,,CALTB-LFTBL-1 RG060710 63073 0761 00 0 00000 NOP RG060720 | 63074 0761 00 0 00000 NOP RG060730 | * RG060740 | 63075 0774 00 4 00063 AXT P2JB6+1,4 INITIALIZE MONITORS RG060750 | 1 LISTING OF 12/01/64 PAGE 156 PROCESSING OF FIELD PARAMETER CARDS | | 63076 -0634 00 4 22742 SXD CBTBL,4 RG060760 | 63077 0774 00 4 00705 AXT P2JB9+3,4 RG060770 | 63100 -0634 00 4 23645 SXD SCTBL,4 RG060780 63101 0774 00 4 00312 AXT P2JC6+2,4 RG060790 | 63102 -0634 00 4 24156 SXD CNSYM,4 RG060800 | 63103 0774 00 4 01752 AXT P2JD1+2,4 RG060810 | 63104 -0634 00 4 26127 SXD CNINS,4 RG060820 | 63105 -0500 00 0 22034 CAL RPTNO RG060830 63106 0602 00 0 26130 SLW HCBUF RG060840 | 63107 0774 00 4 01750 AXT P2JC7,4 RG060850 | 63110 -0634 00 4 30104 SXD HCSYM,4 RG060860 | 63111 0774 00 4 01752 AXT P2JC8+2,4 RG060870 | 63112 -0634 00 4 32055 SXD HCINS,4 RG060880 63113 0774 00 4 01752 AXT P2JC2+3,4 RG060890 | 63114 -0634 00 4 34025 SXD FNTBL,4 RG060900 | 63115 0774 00 4 00456 AXT P2JC4+2,4 RG060910 | 63116 -0634 00 4 34502 SXD CALTB,4 RG060920 | 63117 -0625 00 0 63306 STL SLT01 SET SWITCH 1 ON RG060930 63120 0761 00 0 00000 NOP RG060940 | 63121 0761 00 0 00000 NOP RG060950 | 63122 0761 00 0 00000 NOP RG060960 | 63123 0761 00 0 00000 NOP RG060970 | 63124 0074 00 4 34553 TSX TRACE,4 TAKE INTERNAL CHECKPOINT RG060980 63125 0600 00 0 22033 STZ CNRLC RG060990 | * ROUTINE TO READ FIELD PARAMETER CARDS RG061000 | 63126 0520 00 0 07425 ID ZET EOJSW TEST FOR END OF JOB RG061010 | 63127 0020 00 0 64702 TRA PIT01 YES RG061020 | 63130 0441 00 0 06614 LDI ZERO NO, BUILD CONTROL WORD RG061030 63131 -0520 00 0 22031 NZT RRSWT TEST FOR REPORT/RECORD RG061040 | 63132 -0055 00 400000 SIL 400000 REPORT RG061050 | 63133 0604 00 0 07262 STI CONTR RECORD RG061060 | 63134 0520 00 0 63306 ZET SLT01 TEST SWITCH 1 RG061070 | 63135 0020 00 0 63140 TRA *+3 ON RG061080 63136 0074 00 4 56020 TSX PREAD,4 OFF, READ A PARAMETER CARD RG061090 | 63137 0020 00 0 64702 TRA PIT01 EOF, CLOSE OUT PACKET RG061100 | 63140 0600 00 0 63306 STZ SLT01 RESET SWITCH 1 RG061110 | * RG061120 | 63141 -0774 00 1 04621 CTG01 AXC CARD,1 XR1 LOCATES CARD RG061130 63142 0074 00 4 54767 TSX CTEST,4 TEST CARD TYPE RG061140 | 63143 0 00000 0 00001 PZE 1 RG061150 | 63144 -0 63153 0 06614 MZE ZERO,,CTG04 RG061160 | 63145 -0 64702 0 06635 MZE A,,PIT01 START OF NEW PACKET RG061170 | 63146 0 65432 0 06637 PZE C,,HC000 START OF HAND CALC ROUTINES RG061180 63147 0074 00 4 34503 TSX ERROR,4 ERROR, ILLEGAL CARD RG061190 | 63150 -0 00003 0 37745 MZE ERM16,,3 RG061200 | 63151 0 00014 0 04621 PZE CARD,,12 RG061210 | 63152 0020 00 0 63126 TRA ID IGNORE CARD RG061220 | 63153 0074 00 4 55035 CTG04 TSX GETVF,4 GET COLUMNS 7-10 RG061230 63154 0 00000 0 04621 PZE CARD RG061240 | 63155 0 00012 0 00007 PZE 7,,10 RG061250 | 63156 0100 00 0 63164 TZE CTG13 RG061260 | 63157 0774 00 4 00036 AXT 30,4 TEST FOR FUNCTION RG061270 | 63160 -0340 00 4 54527 LAS FUNTBL+30,4 RG061280 63161 0020 00 0 63163 TRA *+2 RG061290 | 63162 0020 00 0 60707 TRA FUN000 YES, GO PROCESS FUNCTION RG061300 | 1 LISTING OF 12/01/64 PAGE 157 | PROCESSING OF FIELD PARAMETER CARDS | 63163 2 00001 4 63160 TIX *-3,4,1 RG061310 | 63164 0600 00 0 07366 CTG13 STZ INTRPC INITIALIZE PARAMETER COUNTS RG061320 | 63165 0600 00 0 07263 STZ COUNT RG061330 | 63166 0774 00 1 00000 AXT 0,1 RG061340 | 63167 0774 00 4 00050 CTG2 AXT 40,4 ZERO OUT TEMPAR RG061350 63170 0600 00 4 07244 STZ TEMPAR+40,4 RG061360 | 63171 2 00001 4 63170 TIX *-1,4,1 RG061370 | 63172 -0500 00 1 04621 CTG21 CAL CARD,1 MOVE FIRST 8 WORDS TO RG061380 | 63173 0602 00 1 07174 SLW TEMPAR,1 WORK AREA RG061390 | 63174 1 77777 1 63175 TXI *+1,1,-1 RG061400 63175 3 77770 1 63172 TXH CTG21,1,-8 RG061410 | 63176 -0500 00 0 04621 CAL CARD GET LINE NUMBER RG061420 | 63177 -0320 00 0 07070 ANA BCD70 RG061430 | 63200 0602 00 0 07357 SLW EDT1 RG061440 | 63201 0774 00 4 00005 AXT 5,4 INIT. MAX. PARA. LOOP RG061450 63202 0634 00 4 63203 SXA CTG12,4 RG061460 | 63203 0774 00 4 00000 CTG12 AXT 0,4 TEST FOR MAX. OF FOUR OF SAME RG061470 | 63204 2 00001 4 63213 TIX CTG26,4,1 PARAMETER NUMBER RG061480 | 63205 0560 00 0 07357 LDQ EDT1 RG061490 | 63206 -0620 00 0 40176 SLQ ERM34+7 RG061500 63207 0074 00 4 34503 TSX ERROR,4 ERROR,TOO MANY CONTINUATION CARDS RG061510 | 63210 0 00010 0 40167 PZE ERM34,,8 RG061520 | 63211 -0625 00 0 63305 STL CTG99 RG061530 | 63212 0020 00 0 63421 TRA PIC00 RG061540 | 63213 0634 00 4 63203 CTG26 SXA CTG12,4 RG061550 63214 0774 00 2 00000 AXT 0,2 RG061560 | * REM IS THIS A REPORT RG061570 | 63215 -0056 00 400000 LNT 400000 TEST RG061580 | 63216 0020 00 0 63242 TRA CTGREC NO-TRA TO MOVE AND COUNT RG061590 | REPORT-MOVE,PACK AND COUNT RG061600 * 3 PARA./ 141 OFF RG061610 | 63217 0774 00 4 00044 CTGRPT AXT 36,4 INITIALIZE LOOP RG061620 | 63220 -0500 00 2 04631 CTG30 CAL CARD+8,2 GET OUTPUT ENTRY RG061630 | 63221 0560 00 2 04632 LDQ CARD+9,2 RG061640 | 63222 -0763 00 4 00044 LGL 36,4 POSITION RG061650 63223 -0320 00 0 07077 ANA BCD77 RG061660 | 63224 -0340 00 0 07001 LAS BLNKS CHECK FOR BLANKS RG061670 | 63225 0020 00 0 63227 TRA *+2 NO RG061680 | 63226 0020 00 0 63237 TRA CTG40 YES RG061690 | 63227 0602 00 1 07174 SLW TEMPAR,1 RG061700 63230 -0130 00 0 00000 XCL MOVE TWO WORDS TO WORK AREA AND RG061710 | 63231 -0320 00 0 07315 ANA MASK COUNT 2 MASK 777700000000 RG061720 | 63232 0602 00 1 07175 SLW TEMPAR+1,1 RG061730 | 63233 -0500 00 0 07263 CAL COUNT RG061740 | 63234 0400 00 0 06616 ADD TWO RG061750 63235 0602 00 0 07263 SLW COUNT RG061760 | 63236 1 77776 1 63237 TXI *+1,1,-2 ADD TWO TO TEMPAR INDEX RG061770 | 63237 1 77777 2 63240 CTG40 TXI *+1,2,-1 RG061780 | 63240 2 00014 4 63220 TIX CTG30,4,12 RG061790 | 63241 0020 00 0 63265 TRA CTGCDA CARD INPUT OR FINAL OF TAPE INPUTRG061800 MOVE AND COUNT RECORD PARAMETER RG061810 | 63242 0774 00 4 00004 CTGREC AXT 4,4 INITIALIZE LOOP RG061820 | 63243 -0500 00 2 04631 CTG8 CAL CARD+8,2 GET OUTPUT ENTRY RG061830 | 63244 -0340 00 0 07001 LAS BLNKS TEST FOR BLANKS RG061840 | 63245 0020 00 0 63247 TRA *+2 IF NOT,STORE IN W.A. RG061850 1 LISTING OF 12/01/64 PAGE 158 | PROCESSING OF FIELD PARAMETER CARDS | | 63246 -0754 00 0 00000 PXD 0,0 RG061860 | 63247 0602 00 1 07174 SLW TEMPAR,1 RG061870 63250 -0100 00 0 63255 TNZ CTG9 IF BLANK /WITH ZERO TEST/ RG061880 | 63251 -0500 00 0 07366 CAL INTRPC ADD ONE TO INTERIM COUNT RG061890 | 63252 0400 00 0 06615 ADD ONE TRA TO INDEX RG061900 | 63253 0602 00 0 07366 SLW INTRPC RG061910 | 63254 0020 00 0 63262 TRA CTG11 RG061920 63255 -0500 00 0 07366 CTG9 CAL INTRPC IF NOT BLANK /NON ZERO/ RG061930 | 63256 0400 00 0 06615 ADD ONE ADD INTERIM COUNTER PLUS ONE RG061940 | 63257 0400 00 0 07263 ADD COUNT TO PARAMETER COUNTER RG061950 | 63260 0602 00 0 07263 SLW COUNT RG061960 | 63261 0600 00 0 07366 STZ INTRPC INIT. INTERIM COUNTER RG061970 63262 1 77777 2 63263 CTG11 TXI *+1,2,-1 INPUT INDEX RG061980 | 63263 1 77777 1 63264 TXI *+1,1,-1 W.A. INDEX RG061990 | 63264 2 00001 4 63243 TIX CTG8,4,1 LOOP END INDEX RG062000 | 63265 0074 00 4 56020 CTGCDA TSX PREAD,4 GET A RECORD FROM INPUT AREA RG062010 | 63266 0020 00 0 63274 TRA CTG50 EOF ENCOUNTERED RG062020 63267 -0500 60 0 07161 CAL* CARDA RG062030 | 63270 -0320 00 0 07070 ANA BCD70 RG062040 | 63271 -0340 00 0 07357 LAS EDT1 MOVE, COUNT AND/OR PACK RG062050 | 63272 0020 00 0 63274 TRA *+2 IF NOT, CONTINUE RG062060 | 63273 0020 00 0 63203 TRA CTG12 RG062070 * TURN OFF SENSE LITES-PLACE COMP RG062080 | * OF W.A. IN INDEX RG062090 | 63274 0600 00 0 63306 CTG50 STZ SLT01 RESER SWITCH 1 RG062100 | 63275 0761 00 0 00000 NOP RG062110 | 63276 0600 00 0 63307 STZ SLT02 RG062120 63277 0761 00 0 00000 NOP RG062130 | 63300 0600 00 0 63310 STZ SLT03 RG062140 | 63301 0761 00 0 00000 NOP RG062150 | 63302 -0500 00 0 36742 CAL LOCTAR RG062160 | 63303 0737 00 2 00000 PAC 0,2 RG062170 63304 0020 00 0 63421 TRA PIC00 RG062180 | 63305 0 00000 0 00000 CTG99 PZE 0 STORAGE RG062190 | 63306 0 00000 0 00000 SLT01 PZE 0 SWITCH 1 RG062200 | 63307 0 00000 0 00000 SLT02 PZE 0 SWITCH 2 RG062210 | 63310 0 00000 0 00000 SLT03 PZE 0 SWITCH 3 RG062220 63311 0634 00 4 63374 SOR00 SXA SOR61,4 SAVE XR RG062230 | 63312 0774 00 4 00030 AXT 24,4 NUMBER OF ENTRIES RG062240 | 63313 -0500 00 4 07234 SOR04 CAL TEMPAR+32,4 GET ENTRY RG062250 | 63314 -0320 00 0 07040 ANA BCD40 RG062260 | 63315 -0340 00 0 36747 LAS HCON H LINE RG062270 63316 0020 00 0 63320 TRA *+2 RG062280 | 63317 0020 00 0 63330 TRA SOR09 RG062290 | 63320 -0340 00 0 06614 LAS ZERO ENTRY ZERO RG062300 | 63321 0020 00 0 63323 TRA *+2 RG062310 | 63322 0020 00 0 63325 TRA *+3 RG062320 63323 2 00002 4 63313 SOR06 TIX SOR04,4,2 RG062330 | 63324 0020 00 0 63333 TRA SOR11 ALL ENTRIES TAKEN CARE OF NOW SORT RG062340 | 63325 0760 00 0 00006 COM CHANGE 0S TO 7S RG062350 | 63326 0602 00 4 07234 SLW TEMPAR+32,4 RG062360 | 63327 0020 00 0 63323 TRA SOR06 RG062370 63330 -0500 00 0 07040 SOR09 CAL BCD40 RG062380 | 63331 -0602 00 4 07234 ORS TEMPAR+32,4 CHANGE H TO 7 S RG062390 | 63332 0020 00 0 63323 TRA SOR06 RG062400 | 1 LISTING OF 12/01/64 PAGE 159 | PROCESSING OF FIELD PARAMETER CARDS | 63333 0774 00 4 00026 SOR11 AXT 22,4 INITIALIZE FOR 11 COMPARES RG062410 | 63334 0600 00 0 63376 STZ REVSW ZERO SWITCH RG062420 | 63335 -0500 00 4 07232 SOR12 CAL TEMPAR+30,4 GET ENTRY RG062430 | 63336 -0340 00 4 07234 LAS TEMPAR+32,4 COMPARE TO FOLLOWING ENTRY RG062440 63337 0020 00 0 63361 TRA SOR18 RG062450 | 63340 0761 00 0 00000 NOP RG062460 | 63341 2 00002 4 63335 TIX SOR12,4,2 RG062470 | 63342 0520 00 0 63376 SOR13 ZET REVSW ANY CHANGES IN ENTRY ORDER RG062480 | 63343 0020 00 0 63333 TRA SOR11 YES, SORT AGAIN RG062490 63344 0774 00 4 00030 AXT 24,4 RG062500 | 63345 -0500 00 4 07234 SOR14 CAL TEMPAR+32,4 GET ENTRY RG062510 | 63346 -0340 00 0 07077 LAS BCD77 RG062520 | 63347 0020 00 0 63354 TRA *+5 RG062530 | 63350 0020 00 0 63352 TRA *+2 RG062540 63351 0020 00 0 63354 TRA *+3 RG062550 | 63352 0600 60 0 63345 STZ* SOR14 CONVERT 7 S TO 0 S RG062560 | 63353 0020 00 0 63357 TRA SOR15 RG062570 | 63354 -0340 00 0 36751 LAS YCON H ENTRY RG062580 | 63355 -0500 00 0 63402 CAL SORCN RG062590 63356 0320 00 4 07234 ANS TEMPAR+32,4 CHANGE 7 S TO H RG062600 | 63357 2 00002 4 63345 SOR15 TIX SOR14,4,2 ALL ENTRIES CHECKED RG062610 | 63360 0020 00 0 63374 TRA SOR61 RG062620 | 63361 -0625 00 0 63376 SOR18 STL REVSW SET SWITCH RG062630 | 63362 -0500 00 4 07234 CAL TEMPAR+32,4 REVERSE ENTRIES RG062640 63363 0560 00 4 07232 LDQ TEMPAR+30,4 RG062650 | 63364 -0600 00 4 07234 STQ TEMPAR+32,4 RG062660 | 63365 0602 00 4 07232 SLW TEMPAR+30,4 RG062670 | 63366 -0500 00 4 07233 CAL TEMPAR+31,4 2ND WORD RG062680 | 63367 0560 00 4 07235 LDQ TEMPAR+33,4 RG062690 63370 -0600 00 4 07233 STQ TEMPAR+31,4 RG062700 | 63371 0602 00 4 07235 SLW TEMPAR+33,4 RG062710 | 63372 2 00002 4 63335 TIX SOR12,4,2 RG062720 | 63373 0020 00 0 63342 TRA SOR13 RG062730 | 63374 0774 00 4 00000 SOR61 AXT **,4 RESTORE RG062740 63375 0020 00 4 00001 TRA 1,4 RETURN RG062750 | 63376 0 00000 0 00000 REVSW PZE RG062760 | 63377 0 00000 0 00000 PMET PZE RG062770 | 63400 0 00000 0 00000 TCAL PZE RG062780 | 63401 0 00000 0 00000 PLCHR PZE RG062790 63402 +307777777777 SORCN OCT 307777777777 RG062800 | 63403 0761 00 0 00000 NOP RG062810 | 63404 0761 00 0 00000 NOP RG062820 | 63405 0761 00 0 00000 NOP RG062830 | 63406 0761 00 0 00000 NOP RG062840 63407 0761 00 0 00000 NOP RG062850 | 63410 0761 00 0 00000 NOP RG062860 | 63411 0761 00 0 00000 NOP RG062870 | 63412 0761 00 0 00000 NOP RG062880 | 63413 0761 00 0 00000 NOP RG062890 63414 0761 00 0 00000 NOP RG062900 | 63415 0761 00 0 00000 NOP RG062910 | 63416 0761 00 0 00000 NOP RG062920 | 63417 0761 00 0 00000 NOP RG062930 | 63420 0761 00 0 00000 NOP RG062940 * PROCESS FIELD PARAMETERS RG062950 | 1 LISTING OF 12/01/64 PAGE 160 | PROCESSING OF FIELD PARAMETER CARDS | | 63421 -0774 00 2 07173 PIC00 AXC CARDS,2 XR2 LOCATES CARD RG062960 63422 0500 00 0 07263 CLA COUNT RG062970 | 63423 0601 00 0 07261 STO CAUNT RG062980 | 63424 0441 00 0 07262 LDI CONTR RG062990 | 63425 -0054 00 400000 LFT 400000 RG063000 | 63426 0074 00 4 63311 TSX SOR00,4 SORT OUTPUT ENTRIES RG063010 63427 0600 00 0 07305 STZ START INITIALIZE ASSOC RT RG063020 | 63430 0600 00 0 07306 STZ STIRT INITIALIZE INPUT RT RG063030 | 63431 -0500 00 2 00011 CAL 9,2 GET OUTPUT ENTRY RG063040 | 63432 -0054 00 400000 LFT 400000 TEST FOR RECORD OUTPUT RG063050 | 63433 0020 00 0 63447 TRA PIC16 NO RG063060 63434 0771 00 0 00030 ARS 24 POSITION OUTPUT RT RG063070 | 63435 0100 00 0 63452 TZE PIC18 TEST FOR ZERO ORT RG063080 | 63436 0074 00 4 55155 TSX SB150,4 CONVERT ORT TO LNID RG063090 | 63437 0602 00 0 63377 SLW PMET SAVE TEMPORARILY RG063100 | 63440 -0320 00 0 07040 ANA BCD40 RG063110 63441 -0340 00 0 36750 LAS TCON T LINE RG063120 | 63442 0020 00 0 63446 TRA *+4 NO RG063130 | 63443 0020 00 0 63445 TRA *+2 YES RG063140 | 63444 0020 00 0 63446 TRA *+2 NO RG063150 | 63445 -0625 00 0 63400 STL TCAL SET SWITCH RG063160 63446 -0500 00 0 63377 CAL PMET RESTORE RG063170 | 63447 -0320 00 0 07070 PIC16 ANA BCD70 RG063180 | 63450 0100 00 0 63452 TZE PIC18 RG063190 | 63451 0074 00 4 55106 TSX SB100,4 GET AST FROM LNID RG063200 | 63452 0074 00 4 55035 PIC18 TSX GETVF,4 PUT IRT INTO STIRT FIRST TWO CHAR RG063210 63453 0 00000 0 07174 PZE CARDS+1 RG063220 | 63454 0 00006 0 00005 PZE 5,,6 RG063230 | 63455 0767 00 0 00030 ALS 24 POSITION RG063240 | 63456 0602 00 0 07306 SLW STIRT RG063250 | 63457 -0054 00 100000 LFT 100000 TEST FOR CAL, PAGE, OR COUN RG063260 63460 0020 00 0 63577 TRA PIC23 RG063270 | 63461 -0100 00 0 63471 TNZ PIC19 TEST FOR BLANK INPUT RT RG063280 | 63462 0074 00 4 34503 TSX ERROR,4 RG063290 | 63463 -0 00005 0 40144 MZE ERM32,,5 RG063300 | 63464 0 00014 0 07174 PZE CARDS+1,,12 RG063310 63465 -0500 00 0 07305 CAL START GET AST FOR SUBSTITUTION RG063320 | 63466 -0100 00 0 63471 TNZ PIC19 RG063330 | 63467 -0625 00 0 34552 STL ERSWT ERROR, AST BLANK ALSO NO RECOVERY RG063340 | 63470 0020 00 0 63503 TRA PIC20 RG063350 | 63471 0602 00 0 56302 PIC19 SLW RFTYPE SAVE INPUT RECORD TYPE RG063360 63472 0761 00 0 00000 NOP ***RG063370 | 63473 -0500 00 0 07175 CAL CARDS+2 GET FIELD NUMBER ***RG063380 | 63474 0771 00 0 00014 ARS 12 COLUMNS 7-10 ***RG063390 | 63475 -0602 00 0 56302 ORS RFTYPE RG063400 | 63476 0074 00 4 55565 TSX DTS,4 GET FIELD SPECS RG063410 63477 0 00000 0 00000 PZE RG063420 | 63500 0520 00 0 56271 ZET DPSW2 TEST FOR INPUT DICTIONARY RG063430 | 63501 0074 00 4 55522 TSX SB500,4 YES, PROCESS INCREMENT AND LENGTH RG063440 | 63502 0074 00 4 55332 TSX SB400,4 PROCESS FIELD NAME RG063450 | 63503 -0054 00 040000 PIC20 LFT 040000 TEST FOR PRT FUNCTION RG063460 63504 0020 00 0 63577 TRA PIC23 YES RG063470 | CONTROL BREAK AREA RG063480 | 63505 0074 00 4 55035 PIC21 TSX GETVF,4 TEST IF NOT A CB RG063490 | 63506 0 00000 0 07174 PZE CARDS+1 RG063500 | 1 LISTING OF 12/01/64 PAGE 161 PROCESSING OF FIELD PARAMETER CARDS | | 63507 0 00057 0 00057 PZE 47,,47 COLUMN 47 RG063510 | 63510 0100 00 0 63577 TZE PIC23 YES THERE IS NOT A CB - TRA RG063520 | 63511 -0534 00 4 22742 PIC22 LXD CBTBL,4 LOCATION OF NEXT RG063530 63512 2 00001 4 63520 TIX PIC14,4,1 CB ENTRY RG063540 | 63513 0074 00 4 34503 TSX ERROR,4 RG063550 | 63514 -0 00006 0 40235 MZE ERM42,,6 CB TABLE FULL RG063560 | 63515 0 00004 0 40554 PZE ERM90,,4 RG063570 | 63516 -0625 00 0 34552 STL ERSWT RG063580 63517 0020 00 0 63577 TRA PIC23 RG063590 | 63520 -0634 00 4 22742 PIC14 SXD CBTBL,4 RG063600 | 63521 0601 00 0 07361 STO EDT3 EDT3 CONTAINS CARDS+8 ARS6 RG063610 | 63522 -0500 00 0 07305 CAL START GET ASSOCIATED RECORD TYPE RG063620 | 63523 -0340 00 0 07040 LAS BCD40 TEST FOR T LINE OUTPUT ONLY RG063630 63524 0020 00 0 63525 TRA *+1 RG063640 | 63525 -0500 00 0 07306 CAL STIRT YES, USE IRT AS AST RG063650 | 63526 -0130 00 0 00000 XCL RG063660 | 63527 -0500 00 0 07361 CAL EDT3 RG063670 | 63530 -0763 00 0 00014 LGL 12 RG063680 63531 0560 00 0 07306 LDQ STIRT RG063690 | 63532 -0763 00 0 00014 LGL 12 RG063700 | 63533 0767 00 0 00006 ALS 6 RG063710 | 63534 0602 00 4 22742 S0570 SLW CBTBL,4 STORE IN36 CB TABLE FIRST TIME RG063720 | 63535 0602 00 0 07264 SLW EDT4 EDT4 CONTAINS CB TABLE WORD RG063730 63536 0500 00 0 61405 CLA CBCTR ADD TO CB COUNTER RG063740 | 63537 0400 00 0 06615 ADD ONE RG063750 | 63540 0601 00 0 61405 STO CBCTR RG063760 | * BUILD CONTROL BREAK PARAMETER RG063770 | 63541 0074 00 4 55271 TSX SB300,4 INITIALIZE FOR PART ENTRY RG063780 63542 0 00000 0 00006 PZE 6 RG063790 | 63543 -0500 00 0 07305 CAL START GET ASSOCIATED RT RG063800 | 63544 -0340 00 0 07040 LAS BCD40 TEST FOR T LINE OUTPUT ONLY RG063810 | 63545 0020 00 0 63546 TRA *+1 RG063820 | 63546 -0500 00 0 07306 CAL STIRT YES, USE IRT AS AST RG063830 63547 -0100 00 0 63551 TNZ *+2 RG063840 | 63550 -0500 00 0 07306 CAL STIRT RG063850 | 63551 -0501 00 0 36760 ORA EDMK06 OP CODE 33 RG063860 | 63552 -0520 00 0 22031 NZT RRSWT RG063870 | 63553 -0501 00 0 06764 ORA DCRM1 REPORT RG063880 63554 0602 00 1 00000 SLW 0,1 WORD 1 RG063890 | 63555 -0500 00 0 07306 CAL STIRT GET INPUT RT RG063900 | 63556 -0100 00 0 63560 TNZ *+2 RG063910 | 63557 -0500 00 0 07305 CAL START RG063920 | 63560 0602 00 1 00001 SLW 1,1 WORD 2 RG063930 63561 0600 00 1 00002 STZ 2,1 WORD 3 RG063940 | 63562 -0500 00 0 07361 CAL EDT3 RG063950 | 63563 0767 00 0 00036 ALS 30 RG063960 | 63564 -0501 00 0 06622 ORA SIX RG063970 | 63565 0602 00 1 00003 SLW 3,1 WORD 4 RG063980 63566 0760 00 0 00006 COM RG063990 | 63567 0602 00 1 00002 SLW 2,1 FOR SEQUENCING PURPOSES ONLY RG064000 | 63570 -0500 00 0 56277 CAL DPWBLM RG064010 | 63571 0602 00 1 00004 SLW 4,1 WORD 5 RG064020 | 63572 0074 00 4 55035 TSX GETVF,4 GET FIELD NAME RG064030 63573 0 00000 0 07174 PZE CARDS+1 RG064040 | 63574 0 00017 0 00013 PZE 11,,15 RG064050 | 1 LISTING OF 12/01/64 PAGE 162 | PROCESSING OF FIELD PARAMETER CARDS | 63575 0602 00 1 00005 SLW 5,1 WORD 6 RG064060 | 63576 0074 00 4 55306 TSX SB350,4 CLOSE OUT PART ENTRY RG064070 | * RG064080 | 63577 0634 00 2 07363 PIC23 SXA IRBC,2 SAVE XR2 RG064090 | 63600 0534 00 4 07263 LXA COUNT,4 TEST FOR ANY OUTPUT ENTRIES RG064100 63601 0520 00 2 00011 ZET 9,2 RG064110 | 63602 0020 00 0 63615 TRA PIC24 YES RG064120 | 63603 1 77777 2 63604 TXI *+1,2,-1 RG064130 | 63604 2 00001 4 63601 TIX *-3,4,1 RG064140 | 63605 0074 00 4 55332 TSX SB400,4 NO, MAKE SURE OF ENTRY TO FNTBL RG064150 63606 -0500 00 0 07203 CAL CARDS+8 RG064160 | 63607 -0320 00 0 06713 ANA BCD01 TEST FOR ACCUMULATION RG064170 | 63610 0322 00 0 06674 ERA BLANK RG064180 | 63611 0100 00 0 64551 TZE S0600 RG064190 | 63612 -0625 00 0 64007 STL SW12 RG064200 63613 0500 00 0 06617 CLA THREE RG064210 | 63614 0601 00 0 07263 STO COUNT RG064220 | 63615 0534 00 2 07363 PIC24 LXA IRBC,2 RESTORE XR2 RG064230 | 63616 0560 00 0 07263 LDQ COUNT RG064240 | 63617 0200 00 0 06617 MPY THREE RG064250 63620 0131 00 0 00000 XCA RG064260 | 63621 0400 00 0 06624 ADD EIGHT RG064270 | 63622 0621 00 0 63624 STA *+2 RG064280 | 63623 0074 00 4 55271 TSX SB300,4 INITIALIZE FOR PART ENTRY RG064290 | 63624 0 00000 0 00000 PZE ** RG064300 63625 0500 00 0 54467 CLA PARED RG064310 | 63626 0621 00 0 07364 STA EDT5 RG064320 | 63627 0500 00 0 56277 CLA DPWBLM BUILD FIELD PARAMETER RG064330 | 63630 0601 00 1 00004 STO 4,1 STORE WBLM IN +IFTH WORD RG064340 | 63631 0441 00 0 07262 LDI CONTR RG064350 63632 -0056 00 400000 LNT 400000 WRITING REPORT RG064360 | 63633 0020 00 0 63637 TRA PIC25 NO-TRA RG064370 | 63634 0500 00 0 06764 CLA DCRM1 GET REPORT ZIGGER RG064380 | * 00 00 01 00 00 00 RG064390 | 63635 0601 00 1 00000 STO 0,1 RG064400 63636 0020 00 0 63640 TRA PIC42 RG064410 | 63637 0600 00 1 00000 PIC25 STZ 0,1 IN CASE OF RECORDS PUT 0 EQUALS RG064420 | * RI OF FIRST WORD RG064430 | 63640 0074 00 4 55035 PIC42 TSX GETVF,4 GET FIELD OR CALNAME RG064440 | 63641 0 00000 0 07174 PZE CARDS+1 RG064450 63642 0 00017 0 00013 PZE 11,,15 COLUMNS 11-15 RG064460 | 63643 0602 00 1 00005 SLW 5,1 PUT FIELD OR CALL NAME INTO RG064470 | * SIXTH WORD RG064480 | 63644 0441 00 0 07262 LDI CONTR RG064490 | 63645 -0056 00 000007 LNT 000007 CAL PARAMETER RG064500 63646 0020 00 0 63650 TRA *+2 RG064510 | 63647 0074 00 4 55430 TSX SB450,4 MAKE ENTRY TO CALTB RG064520 | DEVELOP LENGTH + SR RG064530 | 63650 -0500 00 0 07201 S0660 CAL CARDS+6 RG064540 | 63651 -0320 00 0 06713 ANA BCD01 IS PICKUP RG064550 * MODE BLANK RG064560 | 63652 -0340 00 0 06674 LAS BLANK TEST FOR LANK RG064570 | 63653 0020 00 0 63663 TRA S0620 NO RG064580 | 63654 0020 00 0 63656 TRA *+2 YES THEREFORE SR EQUALS 0 RG064590 | 63655 0020 00 0 63663 TRA S0620 NO RG064600 1 LISTING OF 12/01/64 PAGE 163 | PROCESSING OF FIELD PARAMETER CARDS | | 63656 0500 00 0 07263 CLA COUNT GET COUNT RG064610 | 63657 0400 00 0 06622 ADD SIX ADD CONSTANT BASIC 6 RG064620 63660 0601 00 0 07365 STO PERM RG064630 | 63661 0601 00 1 00003 STO 3,1 STORE IN 4TH WORD OF FIELD PARAM RG064640 | 63662 0020 00 0 63667 TRA PIC43 RG064650 | 63663 -0500 00 0 07263 S0620 CAL COUNT 3645 RG064660 | 63664 0401 00 0 06622 ADM SIX RG064670 63665 -0501 00 0 36763 ORA EDMK13 00 01 00 00 00 00 THIS PUTS A1 RG064680 | * EQUALS SR RG064690 | 63666 0602 00 1 00003 SLW 3,1 RG064700 | 63667 0761 00 0 00000 PIC43 NOP DEVELOP ACCUMULATE INDICATION RG064710 | 63670 -0500 00 0 07203 CAL CARDS+8 IS ACCUMULATE COLUMN BLANK RG064720 63671 -0320 00 0 06713 ANA BCD01 RG064730 | 63672 -0340 00 0 06674 LAS BLANK TEST FOR BLANK RG064740 | 63673 0020 00 0 63700 TRA S0630 NO RG064750 | 63674 0020 00 0 63676 TRA *+2 YES PUT ZEROS IN THIRD WORD RG064760 | * OF PARAM RG064770 63675 0020 00 0 63700 TRA S0630 NO RG064780 | 63676 0600 00 1 00002 STZ 2,1 RG064790 | 63677 0020 00 0 63727 TRA PIC44 RG064800 | 63700 0441 00 0 07262 S0630 LDI CONTR RG064810 | 63701 0055 00 000001 SIR 000001 SET A BIT INTO 35TH OF CONT. WORDRG064820 63702 0604 00 0 07262 STI CONTR RG064830 | 63703 0602 00 0 07357 SLW EDT1 EDT1 NOW CONTAINS ACC INDIC RG064840 | * RIGHT JUSTIFIED RG064850 | 63704 -0320 00 0 07335 ANA MASK+16 17 KNOCK OUT EVERY- RG064860 | * THING EXCEPT LAST 4 BITS RG064870 63705 0100 00 0 63711 TZE S0640 TRANSFER IF DASH WHICH IS AN RG064880 | * MINUS 10/0000 RG064890 | 63706 0500 00 0 07357 CLA EDT1 PUT ALPHA IN PARAM RG064900 | 63707 0601 00 1 00002 STO 2,1 STORE IN THIRD WORD OF PARAM RG064910 | 63710 0020 00 0 63727 TRA PIC44 RG064920 63711 -0500 00 0 07206 S0640 CAL CARDS+11 CHECK IF NEXT OUTPUT IS A D RG064930 | 63712 -0056 00 400000 LNT 400000 RG064940 | 63713 0020 00 0 63720 TRA N001 N001 RG064950 | 63714 -0320 00 0 07040 ANA BCD40 RG064960 | 63715 -0340 00 0 36746 LAS DCON 24 00 00 00 00 00 COMPARE RG064970 63716 0020 00 0 63720 TRA *+2 RG064980 | 63717 0020 00 0 63723 TRA S0650 RG064990 | 63720 0500 00 0 36764 N001 CLA EDMK15 RG065000 | 63721 0601 00 1 00002 STO 2,1 STORE INTO THIRD WORD OF PARAM RG065010 | 63722 0020 00 0 63727 TRA PIC44 RG065020 63723 0500 00 0 36745 S0650 CLA ACNCTR GET ACCUMULATE NUMBER COUNTER RG065030 | 63724 0601 00 1 00002 STO 2,1 RG065040 | 63725 0400 00 0 06615 ADD ONE ADJUST FOR NEXT PARAMETER RG065050 | 63726 0601 00 0 36745 STO ACNCTR RG065060 | DEVELOP CLASSIFICATION TABLE AND IRT RG065070 63727 0534 00 2 07363 PIC44 LXA IRBC,2 RESTORE XR2 RG065080 | * RG065090 | 63730 0560 00 0 06614 LDQ ZEROS RG065100 | 63731 -0500 00 0 07174 CAL CARDS+1 RG065110 | 63732 -0765 00 0 00014 LGR 12 RG065120 63733 -0600 00 1 00001 STQ 1,1 PUT IN IRT + 1ST 1/2 OF CLASS TBLRG065130 | 63734 0074 00 4 63056 TSX EMOVTB,4 E TABLE MOVE RG065140 | 63735 -0520 00 0 64007 NZT SW12 RG065150 | 1 LISTING OF 12/01/64 PAGE 164 | PROCESSING OF FIELD PARAMETER CARDS | 63736 0020 00 0 63776 TRA PIC44A RG065160 | 63737 0600 00 0 64007 STZ SW12 RG065170 | 63740 0535 00 4 54467 LAC PARED,4 RG065180 | 63741 0600 00 4 00006 STZ 6,4 RG065190 63742 0600 00 4 00007 STZ 7,4 RG065200 | 63743 0600 00 4 00010 STZ 8,4 RG065210 | 63744 -0500 00 0 07174 CAL CARDS+1 RG065220 | 63745 0767 00 0 00030 ALS 24 RG065230 | 63746 -0501 00 0 06674 ORA BLANK RG065240 63747 -0602 00 4 00000 ORS 0,4 RG065250 | 63750 -0500 00 0 06625 CAL NINE RG065260 | 63751 0767 00 0 00022 ALS 18 RG065270 | 63752 -0501 00 0 06776 ORA PRFX2 RG065280 | 63753 -0501 00 0 06763 ORA TAG4 RG065290 63754 -0501 00 0 54467 ORA PARED RG065300 | 63755 0602 60 0 54470 SLW* COMRED RG065310 | 63756 0500 00 0 54467 CLA PARED RG065320 | 63757 0400 00 0 06625 ADD NINE RG065330 | 63760 0601 00 0 54467 STO PARED RG065340 63761 0500 00 0 54470 CLA COMRED RG065350 | 63762 0402 00 0 06615 SUB MCA1 RG065360 | 63763 0601 00 0 54470 STO COMRED RG065370 | 63764 0500 00 0 07300 CLA PARCTR RG065380 | 63765 0400 00 0 06615 ADD MCA1 RG065390 63766 0601 00 0 07300 STO PARCTR RG065400 | 63767 0441 00 0 07262 LDI CONTR RG065410 | 63770 -0056 00 100060 LNT 100060 RG065420 | 63771 0020 00 0 64551 TRA S0600 RG065430 | 63772 -0500 00 0 06615 CAL ONE RG065440 63773 0767 00 0 00006 ALS 6 RG065450 | 63774 -0602 00 4 00002 ORS 2,4 RG065460 | 63775 0020 00 0 64551 TRA S0600 RG065470 | 63776 0441 00 0 07262 PIC44A LDI CONTR RG065480 | 63777 -0056 00 400000 LNT 400000 WRITING REPORT RG065490 64000 0020 00 0 64010 TRA PIC47 NO RG065500 | 64001 -0500 00 0 07204 CAL CARDS+9 YES-IS THIS OUTPUT PARAM A D RG065510 | 64002 -0320 00 0 07040 ANA BCD40 RG065520 | 64003 -0340 00 0 36746 LAS DCON COMPARE TO D RG065530 | 64004 0020 00 0 64072 TRA PIC46 RG065540 64005 0020 00 0 64010 TRA PIC47 Y RG065550 | 64006 0020 00 0 64072 TRA PIC46 RG065560 | 64007 0 00000 0 00000 SW12 PZE RG065570 | DEVELOP FIRST WORD OF PARAMETER RG065580 | 64010 -0500 00 0 07305 PIC47 CAL START RG065590 64011 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG065600 | 64012 -0320 00 0 07060 ANA BCD60 RG065610 | 64013 -0130 00 0 00000 XCL RG065620 | 64014 -0500 00 0 07010 PIC53 CAL BCD10 RG065630 | 64015 0320 60 0 54467 ANS* PARED RG065640 64016 -0520 00 0 63400 NZT TCAL T LINE RG065650 | 64017 0020 00 0 64024 TRA *+5 NO RG065660 | 64020 -0056 00 100057 LNT 100057 CALC RG065670 | 64021 0020 00 0 64024 TRA *+3 NO RG065680 | 64022 0560 00 0 07060 LDQ BCD60 SET ART RG065690 64023 0600 00 0 63400 STZ TCAL ZERO SWITCH RG065700 | 1 LISTING OF 12/01/64 PAGE 165 | PROCESSING OF FIELD PARAMETER CARDS | | 64024 -0130 00 0 00000 XCL RG065710 64025 -0602 60 0 54467 ORS* PARED PUT IN ART INTO 1ST WORD OF PARAMRG065720 | 64026 -0054 00 100000 LFT 100000 TEST CAL, PAGE, OR COUN RG065730 | 64027 0020 00 0 61667 TRA FUN600 TRA IF SO/INSERT AFTER PIC 53+3/ RG065740 | 64030 -0056 00 400000 PIC531 LNT 400000 RG065750 | 64031 0020 00 0 64061 TRA PAC48 RG065760 64032 0441 00 0 07262 LDI CONTR RG065770 | 64033 0054 00 001000 RFT 001000 RG065780 | 64034 0020 00 0 64041 TRA S0670 RG065790 | 64035 -0500 00 2 00011 CAL 9,2 PICK UP THIS PARAM RG065800 | 64036 0771 00 0 00014 ARS 12 RG065810 64037 -0320 00 0 07006 ANA BCD06 RG065820 | 64040 -0602 60 0 54467 ORS* PARED PUT IN LV AND LN INTO 1ST WORD RG065830 | * OF PARAM RG065840 | CHECK IF GROUP INDICATED RG065850 | 64041 -0500 00 2 00012 S0670 CAL 10,2 GET SECOND WORD RG065860 64042 -0320 00 0 07020 ANA BCD20 RG065870 | 64043 -0340 00 0 36754 LAS BLCON 00 60 00 00 00 00 IS IT BLANK RG065880 | 64044 0020 00 0 64046 TRA *+2 NO RG065890 | 64045 0020 00 0 64057 TRA PIC48 YES RG065900 | 64046 -0500 00 0 06664 CAL TEN+30 GET OP CODE 40 RG065910 64047 -0056 00 000007 PIC50 LNT 000007 IS THIS A CAL RG065920 | 64050 0020 00 0 64052 TRA *+2 NO RG065930 | 64051 0402 00 0 06615 SUB MCA1 YES, SUB 1 FROM OP CODE RG065940 | 64052 -0602 60 0 54467 ORS* PARED PUT OP CODE INTO 1ST WORD OF O/A RG065950 | * 40 OR 48 RG065960 64053 -0520 00 0 63307 NZT SLT02 DID WE GO THRU T ROUTE RG065970 | 64054 0020 00 0 64231 TRA PIC49 RG065980 | 64055 0600 00 0 63307 STZ SLT02 RESET SWITCH 2 RG065990 | 64056 1 77775 1 64231 TXI PIC49,1,-3 ADJUST XR1 RG066000 | * RG066010 64057 -0500 00 0 06674 PIC48 CAL TEN+38 RG066020 | 64060 0020 00 0 64047 TRA PIC50 RG066030 | 64061 -0500 00 0 06674 PAC48 CAL TEN+38 RECORDS - GET OP CODE 48 RG066040 | 64062 -0056 00 000007 LNT 000007 IS THIS A CAL RG066050 | 64063 0020 00 0 64065 TRA *+2 NO RG066060 64064 0402 00 0 06615 SUB MCA1 YES, SUB 1 FROM OP CODE RG066070 | 64065 -0602 60 0 54467 ORS* PARED PUT IN OP CODE FIRST WORD RG066080 | 64066 -0520 00 0 63310 S0110 NZT SLT03 TEST SWITCH 3 RG066090 | 64067 0020 00 0 64231 TRA PIC49 RG066100 | 64070 0600 00 0 63310 STZ SLT03 RESET SWITCH 3 RG066110 64071 1 77775 1 64231 TXI PIC49,1,-3 ADJUST XR1 RG066120 | 64072 -0056 00 100050 PIC46 LNT 100050 RG066130 | 64073 0020 00 0 64111 TRA S0680 RG066140 | 64074 -0054 00 000007 LFT 000007 RG066150 | 64075 0020 00 0 64111 TRA S0680 RG066160 64076 -0500 00 0 07323 CAL MASK+6 RG066170 | 64077 0535 00 4 54467 LAC PARED,4 RG066180 | 64100 0602 00 4 00001 SLW 1,4 RG066190 | 64101 -0500 00 0 07203 CAL CARDS+8 PUT CONTROL RG066200 | 64102 -0320 00 0 07002 ANA BCD02 BREAK INDICATOR RG066210 64103 -0340 00 0 07346 LAS MASK14 INTO PARAMETER RG066220 | 64104 0020 00 0 64106 TRA *+2 RG066230 | 64105 0020 00 0 64010 TRA PIC47 RG066240 | 64106 0767 00 0 00030 ALS 24 RG066250 | 1 LISTING OF 12/01/64 PAGE 166 PROCESSING OF FIELD PARAMETER CARDS | | 64107 -0602 00 4 00003 ORS 3,4 RG066260 | 64110 0020 00 0 64010 TRA PIC47 RG066270 | 64111 -0340 00 0 36747 S0680 LAS HCON IS IT AN H RG066280 64112 0020 00 0 64135 TRA PIC51 RG066290 | 64113 0020 00 0 64115 TRA *+2 RG066300 | 64114 0020 00 0 64135 TRA PIC51 NO RG066310 | 64115 -0500 00 2 00011 CAL 9,2 RG066320 | 64116 0771 00 0 00014 ARS 12 RG066330 64117 -0320 00 0 07006 ANA BCD06 RG066340 | 64120 -0501 00 0 07060 ORA BCD60 RG066350 | 64121 -0602 60 0 54467 ORS* PARED PUT IN LV + LN + ART RG066360 | 64122 -0500 00 0 07076 CAL BCD76 RG066370 | 64123 0320 60 0 54467 ANS* PARED ZERO OUT OP CODE RG066380 64124 0441 00 0 07262 LDI CONTR RG066390 | 64125 -0056 00 000007 LNT 000007 RG066400 | 64126 0020 00 0 64231 TRA PIC49 RG066410 | 64127 0535 00 4 54467 LAC PARED,4 RG066420 | 64130 -0500 00 0 06764 CAL DCRM1 RG066430 64131 -0602 00 4 00003 ORS 3,4 RG066440 | 64132 -0500 00 0 07332 CAL MASK+13 000000000077 RG066450 | 64133 -0602 00 4 00000 ORS 0,4 RG066460 | 64134 0020 00 0 64231 TRA PIC49 RG066470 | 64135 -0340 00 0 36750 PIC51 LAS TCON 63 00 00 00 00 00 IS IT A T RG066480 64136 0020 00 0 64140 TRA *+2 RG066490 | 64137 0020 00 0 64144 TRA S0780 RG066500 | 64140 -0500 00 0 07204 CAL CARDS+9 GET LNID AND RMP RG066510 | 64141 0602 00 0 37666 SLW ERM06+4 FOR ERROR MESSAGE RG066520 | 64142 0074 00 4 34503 TSX ERROR,4 WRITE MESSAGE RG066530 64143 0 00005 0 37662 PZE ERM06,,5 RG066540 | 64144 0441 00 0 07262 S0780 LDI CONTR GET CONTROL WORD RG066550 | 64145 0056 00 000001 RNT 000001 WAS IT ACCUMULATED RG066560 | 64146 0020 00 0 64172 TRA PIC52 NO RG066570 | 64147 0600 00 1 00006 STZ 6,1 YES RG066580 64150 0600 00 1 00007 STZ 7,1 ZERO OUT FIRST OUTPUT PARAMETER RG066590 | 64151 0600 00 1 00010 STZ 8,1 RG066600 | 64152 0441 00 0 07262 LDI CONTR RG066610 | 64153 0055 00 001000 SIR 001000 RG066620 | 64154 0604 00 0 07262 STI CONTR RG066630 64155 -0625 00 0 63307 STL SLT02 TURN ON SWITCH 2 RG066640 | 64156 -0625 00 0 63310 STL SLT03 TURN ON SWITCH 3 RG066650 | 64157 0500 00 0 07263 CLA COUNT RG066660 | 64160 -0054 00 400000 LFT 400000 RG066670 | 64161 0400 00 0 06616 ADD TWO RG066680 64162 0601 00 0 07263 STO COUNT RG066690 | 64163 0074 00 4 55035 TSX GETVF,4 GET INPUT RECORD TYPE RG066700 | 64164 0 00000 0 07174 PZE CARDS+1 RG066710 | 64165 0 00006 0 00005 PZE 5,,6 RG066720 | 64166 0767 00 0 00030 ALS 24 RG066730 64167 -0100 00 0 64011 TNZ PIC47+1 TEST FOR ZERO IRT RG066740 | 64170 -0625 00 0 34552 STL ERSWT RG066750 | 64171 0020 00 0 64221 TRA PIC45C YES, ERROR RG066760 | 64172 0441 00 0 07262 PIC52 LDI CONTR NOT ACCUMULATED RG066770 | 64173 -0056 00 400000 LNT 400000 WRITING REPORT RG066780 64174 0020 00 0 64203 TRA *+7 RG066790 | 64175 0500 00 0 36765 S0710 CLA EDMK20 LOAD ART FOR T LINE RG066800 | 1 LISTING OF 12/01/64 PAGE 167 | PROCESSING OF FIELD PARAMETER CARDS | 64176 -0056 00 000007 LNT 000007 IS THIS A CAL RG066810 | 64177 0020 00 0 64201 TRA *+2 NO RG066820 | 64200 0402 00 0 36763 SUB EDMK13 YES, MODIFY ART TO 7775 RG066830 | 64201 0131 00 0 00000 XCA RG066840 | 64202 0020 00 0 64014 TRA PIC53 RG066850 64203 0500 00 0 07263 CLA COUNT RG066860 | 64204 0402 00 0 06615 SUB ONE RG066870 | 64205 0601 00 0 07263 STO COUNT RG066880 | 64206 0020 00 0 64175 TRA S0710 RG066890 | * RG066900 * SEARCH LFTBL FOR ASSOCIATED RECORD TYPE RG066910 | * RG066920 | 64207 -0500 00 2 00011 PIC45 CAL 9,2 GET OUTPUT ENTRY RG066930 | 64210 -0320 00 0 07070 ANA BCD70 RG066940 | 64211 -0054 00 400000 LFT 400000 TEST FOR RECORD GENERATION RG066950 64212 0020 00 0 64227 TRA PIC45B NO RG066960 | 64213 0771 00 0 00030 ARS 24 YES, POSITION OUTPUT RT RG066970 | 64214 -0100 00 0 64226 TNZ PIC45A TEST FOR ZERO ORT RG066980 | 64215 0074 00 4 55035 TSX GETVF,4 YES, GET INPUT RT INSTEAD RG066990 | 64216 0 00000 0 07174 PZE CARDS+1 RG067000 64217 0 00006 0 00005 PZE 5,,6 RG067010 | 64220 -0100 00 0 64226 TNZ PIC45A TEST FOR ZERO IRT RG067020 | 64221 0074 00 4 34503 PIC45C TSX ERROR,4 YES, ERROR RG067030 | 64222 -0 00005 0 40144 MZE ERM32,,5 RG067040 | 64223 -0 00014 0 04621 MZE CARD,,12 RG067050 64224 0 00004 0 40554 PZE ERM90,,4 EXECUTION IMPOSSIBLE RG067060 | 64225 0020 00 0 64551 TRA S0600 RG067070 | 64226 0074 00 4 55155 PIC45A TSX SB150,4 CHANGE ORT TO LNID RG067080 | 64227 0074 00 4 55106 PIC45B TSX SB100,4 CHANGE LNID TO AST RG067090 | 64230 0020 00 0 64010 TRA PIC47 RG067100 * RG067110 | 64231 0441 00 0 07262 PIC49 LDI CONTR RG067120 | 64232 -0056 00 400000 LNT 400000 WRITING REPORT RG067130 | 64233 0020 00 0 64304 TRA PIC57 NO RG067140 | 64234 -0500 00 2 00011 PIC58 CAL 9,2 YES - DEVELOP OUTPUT OF PARAMETERRG067150 64235 -0320 00 0 07070 ANA BCD70 GET LNID FROM CARD RG067160 | 64236 0602 00 1 00006 SLW 6,1 PUT LINE ID INTO PARAMETER RG067170 | * /FORMAT LINE NO./ RG067180 | * TABLE LOOKUP /LEFT JUST./ RG067190 | * RG067200 64237 0600 00 1 00007 STZ 7,1 INITIALIZE WORDS 8,9 RG067210 | 64240 0600 00 1 00010 STZ 8,1 RG067220 | 64241 -0500 00 2 00011 CAL 9,2 RG067230 | 64242 -0320 00 0 07007 ANA BCD07 RG067240 | 64243 -0340 00 0 07343 LAS MASK04 TEST FOR RIGHT MOST PTINT POSITION RG067250 64244 0020 00 0 64246 TRA *+2 RG067260 | 64245 0020 00 0 64300 TRA PAC58 NO RG067270 | 64246 0602 00 0 07264 SLW EDT4 YES, SAVE RMPP RG067280 | 64247 -0500 00 2 00011 CAL 9,2 RG067290 | 64250 0074 00 4 55204 TSX SB200,4 GET FIELD SPECS FROM FFTBL RG067300 64251 -0600 00 1 00010 STQ 8,1 WORD 9 RG067310 | 64252 0601 00 0 07360 STO EDT2 LENGTH RG067320 | 64253 0131 00 0 00000 XCA RG067330 | 64254 0204 35 0 06622 VLM SIX,,29 AND RG067340 | 64255 0131 00 0 00000 XCA RG067350 1 LISTING OF 12/01/64 PAGE 168 | PROCESSING OF FIELD PARAMETER CARDS | | 64256 -0501 00 0 06623 ORA SEVEN RG067360 | 64257 0602 00 1 00007 SLW 7,1 TO WORD 8 RG067370 64260 0074 00 4 36560 TSX BCDBIC,4 CONVERT RMPP TO BINARY RG067380 | 64261 0 00000 0 07264 PZE EDT4 RG067390 | 64262 0400 00 0 06615 ADD ONE COMPUTE WORD AND BIT RG067400 | 64263 0402 00 0 07360 SUB EDT2 RG067410 | 64264 0131 00 0 00000 XCA RG067420 64265 0200 00 0 06622 MPY SIX RG067430 | 64266 0221 00 0 06660 DVP TEN+26 RG067440 | 64267 -0773 00 0 00012 RQL 10 POSITION WORD AND BIT RG067450 | 64270 -0765 00 0 00012 LGR 10 RG067460 | 64271 -0773 00 0 00032 RQL 26 RG067470 64272 -0130 00 0 00000 XCL RG067480 | 64273 -0602 00 1 00007 ORS 7,1 WORD AND BIT TO WORD 8 RG067490 | * RG067500 | 64274 0560 00 2 00012 LDQ 10,2 GET PRINT METHOD RG067510 | 64275 -0763 00 0 00006 LGL 6 RG067520 64276 -0320 00 0 06623 ANA SEVEN RG067530 | 64277 -0602 00 1 00006 ORS 6,1 PRINT METHOD TO WORD 7 RG067540 | 64300 0441 00 0 07262 PAC58 LDI CONTR RG067550 | 64301 -0056 00 020000 LNT 020000 TEST D SWITCH RG067560 | 64302 0020 00 0 64370 TRA PIC59 OFF RG067570 64303 0020 00 0 64456 TRA PIC60 ON RG067580 | * RG067590 | 64304 0441 00 0 07262 PIC57 LDI CONTR RG067600 | 64305 0056 00 000002 RNT 000002 SECOND TIME OR LATER THROUGH HERERG067610 | 64306 0020 00 0 64310 TRA *+2 NO - 1ST TIME THROUGH RG067620 64307 0020 00 0 64357 TRA PAC57 YES - OTHER TIME RG067630 | 64310 0520 00 2 00011 ZET 9,2 TEST IF 1ST OUTPUT PARAM IS ZERO RG067640 | 64311 0020 00 0 64316 TRA S0770 NOT ZERO TRANSFER RG067650 | 64312 0055 00 000002 SIR 000002 SET ON FOR NEXT TIME RG067660 | 64313 0604 00 0 07262 STI CONTR RG067670 64314 0600 00 0 65427 STZ LVCTR ZERO OUT LEVEL COUNTER RG067680 | 64315 0020 00 0 64144 TRA S0780 RG067690 | 64316 0055 00 000002 S0770 SIR 000002 RG067700 | 64317 0604 00 0 07262 STI CONTR RG067710 | 64320 -0500 00 0 07071 CAL BCD71 RG067720 64321 0320 60 0 54467 ANS* PARED RG067730 | 64322 -0500 00 2 00011 CAL 9,2 RG067740 | 64323 0771 00 0 00030 ARS 24 POSITION RG067750 | 64324 0074 00 4 55155 TSX SB150,4 GET CORRESPONDING LNID RG067760 | 64325 0771 00 0 00014 ARS 12 RG067770 64326 -0320 00 0 07006 ANA BCD06 RG067780 | 64327 -0602 60 0 54467 ORS* PARED RG067790 | 64330 0500 00 2 00011 S0800 CLA 9,2 RG067800 | 64331 -0320 00 0 07017 ANA BCD17 RG067810 | 64332 -0340 00 0 65430 LAS FMASK RG067820 64333 0020 00 0 64335 TRA *+2 RG067830 | 64334 0020 00 0 64350 TRA Q0050 RG067840 | 64335 0500 00 2 00011 CLA 9,2 RG067850 | 64336 0601 00 0 56302 STO RFTYPE INITIALIZE DICTIONARY SEARCH RG067860 | 64337 -0500 00 2 00011 CAL 9,2 RG067870 64340 0771 00 0 00030 ARS 24 POSITION OUTPUT RECORD TYPE RG067880 | 64341 0074 00 4 55155 TSX SB150,4 GET CORRESPONDING LNID RG067890 | 64342 0602 00 1 00006 SLW 6,1 RG067900 | 1 LISTING OF 12/01/64 PAGE 169 | PROCESSING OF FIELD PARAMETER CARDS | 64343 0074 00 4 55565 TSX DTS,4 DICTIONARY SEARCH RG067910 | 64344 -0 00000 0 00000 MZE OUTPUT SEARCH RG067920 | 64345 0560 00 0 56277 LDQ DPWBLM GET WBLM RG067930 | 64346 -0600 00 1 00007 STQ 7,1 PUT WBLM INTO RECORD FIELD PARAM RG067940 64347 0020 00 0 64370 TRA PIC59 RG067950 | 64350 -0500 00 2 00011 Q0050 CAL 9,2 RG067960 | 64351 0771 00 0 00030 ARS 24 POSITION OUTPUT RECORD TYPE RG067970 | 64352 0074 00 4 55155 TSX SB150,4 GET CORRESPONDING LNID RG067980 | 64353 0602 00 1 00006 SLW 6,1 RG067990 64354 0600 00 1 00007 STZ 7,1 RG068000 | 64355 0600 00 1 00010 STZ 8,1 RG068010 | 64356 0020 00 0 64370 TRA PIC59 RG068020 | SECOND TIME THROUGH RG068030 | 64357 0520 00 2 00011 PAC57 ZET 9,2 IS OUTPUT PARAM ZERO RG068040 64360 0020 00 0 64362 TRA S0790 RG068050 | 64361 0020 00 0 64371 TRA PIC59+1 RG068060 | 64362 0441 00 0 07262 S0790 LDI CONTR OUTPUT NOT ZERO FIRST TIME HERE RG068070 | 64363 0056 00 000004 RNT 000004 RG068080 | 64364 0020 00 0 64330 TRA S0800 NO OTHER TIMES RG068090 64365 0055 00 000004 SIR 000004 RG068100 | 64366 0604 00 0 07262 STI CONTR RG068110 | 64367 0020 00 0 64330 TRA S0800 RG068120 | 64370 1 77775 1 64371 PIC59 TXI *+1,1,-3 RG068130 | 64371 -0500 00 0 07261 S0820 CAL CAUNT RG068140 64372 0441 00 0 07262 LDI CONTR RG068150 | 64373 -0056 00 400000 LNT 400000 WRITING REPORT RG068160 | 64374 0020 00 0 64401 TRA S0810 NO RG068170 | 64375 0402 00 0 06616 SUB TWO YES, SUBTRACT 2 FROM CAUNT RG068180 | 64376 0602 00 0 07261 SLW CAUNT RG068190 64377 0100 00 0 64456 TZE PIC60 LAST OUTPUT PARAMETER-REPORT- RG068200 | * YES-TRA RG068210 | 64400 1 77776 2 64405 TXI PIC61,2,-2 NO-ADJUST INPUT INDEX RG068220 | 64401 0402 00 0 06615 S0810 SUB ONE RECORD, SUBTRACT 1 FROM CAUNT RG068230 | 64402 0602 00 0 07261 SLW CAUNT RG068240 64403 0100 00 0 64456 TZE PIC60 LAST OUTPUT PARAM-RECORD-YES-TRA RG068250 | 64404 1 77777 2 64304 TXI PIC57,2,-1 NO-ADJUST INPUT INDEX RG068260 | CHECK NEXT PARAMETERS RG068270 | 64405 -0500 00 2 00011 PIC61 CAL 9,2 RG068280 | 64406 -0320 00 0 07040 ANA BCD40 RG068290 64407 -0340 00 0 36746 LAS DCON IS THIS NEXT PARAM A D RG068300 | 64410 0020 00 0 64422 TRA PIC62 NO RG068310 | 64411 0020 00 0 64413 TRA *+2 YES - A D RG068320 | 64412 0020 00 0 64422 TRA PIC62 NO RG068330 | 64413 -0534 00 4 07260 LXD LDTBL,4 PUT COUNT OF DTABLE INTO INDEX RG068340 64414 0754 00 2 00000 PXA 0,2 PUT ADDRESS OF CURRENT D INTO TBLRG068350 | 64415 0621 60 0 07260 STA* LDTBL IN COMPLEMENT FORM RG068360 | 64416 0761 00 0 00000 NOP RG068370 | 64417 1 77777 4 64420 TXI *+1,4,-1 RG068380 | 64420 -0634 00 4 07260 SXD LDTBL,4 RG068390 64421 0020 00 0 64371 TRA S0820 RG068400 | IF NOT A D-IS THIS NEXT PARAM A H RG068410 | 64422 -0340 00 0 36747 PIC62 LAS HCON RG068420 | 64423 0020 00 0 64452 TRA PIC63 TRA TO T-CHECK RG068430 | 64424 0020 00 0 64426 TRA *+2 YES RG068440 64425 0020 00 0 64452 TRA PIC63 NO RG068450 | 1 LISTING OF 12/01/64 PAGE 170 | PROCESSING OF FIELD PARAMETER CARDS | | * ADD ONE TO T+H COUNTER RG068460 64426 0774 00 4 00620 S0830 AXT P2JB5,4 RG068470 | 64427 0761 00 0 00000 NOP RG068480 | 64430 -0500 00 2 00011 CAL 9,2 RG068490 | 64431 -0320 00 0 07070 ANA BCD70 RG068500 | 64432 0602 00 0 07357 SLW EDT1 RG068510 64433 -0500 00 4 22657 PAC62 CAL LFTBL,4 RG068520 | 64434 -0320 00 0 07070 ANA BCD70 RG068530 | 64435 -0340 00 0 07357 LAS EDT1 RG068540 | 64436 0020 00 0 64440 TRA *+2 RG068550 | 64437 0020 00 0 64442 TRA *+3 RG068560 64440 2 00002 4 64433 TIX PAC62,4,2 RG068570 | 64441 0020 00 0 64647 TRA EROR7 RG068580 | 64442 0761 00 0 00000 NOP RG068590 | 64443 0761 00 0 00000 NOP RG068600 | 64444 0761 00 0 00000 NOP RG068610 64445 0761 00 0 00000 NOP RG068620 | 64446 -0500 00 4 22660 CAL LFTBL+1,4 RG068630 | 64447 0400 00 0 06615 ADD ONE RG068640 | 64450 0602 60 0 64446 SLW* *-2 RG068650 | 64451 0020 00 0 64234 TRA PIC58 RG068660 IF NOT A H- SHOULD IT BE A T RG068670 | 64452 -0340 00 0 36750 PIC63 LAS TCON RG068680 | 64453 0020 00 0 64623 TRA EROR6 RG068690 | 64454 0020 00 0 64426 TRA S0830 TRANSFER TO ADD TO T AND H COUNTER RG068700 | 64455 0020 00 0 64623 TRA EROR6 RG068710 BUILD COMMAND FOR FIELD PARAMETER RG068720 | 64456 0500 00 0 07300 PIC60 CLA PARCTR RG068730 | 64457 0400 00 0 06615 ADD ONE ADD ONE TO PARAMETER COUNTER RG068740 | 64460 0601 00 0 07300 STO PARCTR RG068750 | 64461 0500 00 0 54470 CLA COMRED GET ADDRESS OF NEXT EMPTY RG068760 * COMMAND LOCATION RG068770 | 64462 0621 00 0 64545 STA PIC67 STORE IT BELOW RG068780 | 64463 0402 00 0 06615 SUB ONE ADJUST FOR NEXT TIME RG068790 | 64464 0601 00 0 54470 STO COMRED RESTORE RG068800 | DEVELOP PROPER COUNT FIRST TIME RG068810 64465 0441 00 0 07262 LDI CONTR RG068820 | 64466 0056 00 000010 RNT 000010 RG068830 | 64467 0020 00 0 64471 TRA *+2 YES - ADJUST FOR D REPEATED RG068840 | 64470 0020 00 0 64532 TRA PIC68 NO TRA AROUND RG068850 | 64471 -0535 00 4 07260 LDC LDTBL,4 RG068860 64472 0754 00 4 00000 PXA 0,4 FIND HOW MANY D/S REPEATED RG068870 | 64473 0621 00 0 07364 STA EDT5 RG068880 | 64474 0754 00 4 00000 PXA 0,4 RG068890 | 64475 0767 00 0 00001 ALS 1 STORE IN EDT4 AFTER MULT. BY 2 RG068900 | 64476 0401 00 0 07364 ADM EDT5 RG068910 64477 0601 00 0 07264 STO EDT4 RG068920 | 64500 0500 00 0 06622 CLA SIX RG068930 | 64501 -0056 00 400000 LNT 400000 WRITING REPORT RG068940 | 64502 0020 00 0 64504 TRA *+2 RECORD RG068950 | 64503 0020 00 0 64512 TRA S0840 RG068960 64504 0131 00 0 00000 XCA RG068970 | 64505 0500 00 0 07263 CLA COUNT ADJUST COUNT RG068980 | 64506 0767 00 0 00001 ALS 1 FOR EXTRA D/S RG068990 | 64507 0400 00 0 07263 ADD COUNT RG069000 | 1 LISTING OF 12/01/64 PAGE 171 PROCESSING OF FIELD PARAMETER CARDS | | 64510 0601 00 0 07357 STO EDT1 RG069010 | 64511 0020 00 0 64517 TRA S0850 RG069020 | 64512 0131 00 0 00000 S0840 XCA RG069030 64513 0500 00 0 07263 CLA COUNT RG069040 | 64514 0771 00 0 00001 ARS 1 RG069050 | 64515 0400 00 0 07263 ADD COUNT RG069060 | 64516 0601 00 0 07357 STO EDT1 RG069070 | 64517 0131 00 0 00000 S0850 XCA RG069080 64520 0400 00 0 07357 ADD EDT1 RG069090 | 64521 0402 00 0 07264 SUB EDT4 SUB NO. OF EXTRA D/S RG069100 | 64522 0601 00 0 07365 STO PERM STORE IN PERM PROPER COUNT RG069110 | 64523 0055 00 000010 SIR 000010 ADJUST CONTROL WORD RG069120 | 64524 0604 00 0 07262 STI CONTR RG069130 64525 0500 00 0 54467 CLA PARED RG069140 | 64526 0400 00 0 06617 ADD THREE TO PUT PROPER LENGTH RG069150 | 64527 0621 00 0 64531 STA *+2 INTO LENGTH OF RECORD RG069160 | 64530 0500 00 0 07365 CLA PERM RG069170 | 64531 0621 00 0 00000 STA 0 RG069180 64532 0500 00 0 54467 PIC68 CLA PARED RG069190 | 64533 0621 00 0 07362 STA COMMAN STORE IN ADDRESS OF COMMAND RG069200 | 64534 0400 00 0 07365 ADD PERM RG069210 | 64535 0621 00 0 64601 STA PIC69 RG069220 | 64536 0601 00 0 54467 STO PARED ADJUST PARED FOR NEXT TIME RG069230 64537 0500 00 0 07365 CLA PERM GET PROPER COUNT RG069240 | 64540 0621 00 0 64567 STA S0860 STORE IN ENOUGH ROOM QUESTION RG069250 | 64541 0767 00 0 00022 ALS 18 SHIFT LEFT RG069260 | 64542 0622 00 0 07362 STD COMMAN STORE IN DECREMENT OF COMMAN RG069270 | 64543 0500 00 0 07362 CLA COMMAN RG069280 64544 -0501 00 0 06763 ORA TAG4 INSERT TAG INTO COMMAND RG069290 | 64545 0601 00 0 00000 PIC67 STO 0 STORE COMMAND RG069300 | 64546 -0534 00 4 07260 LXD LDTBL,4 RG069310 | 64547 0754 00 4 00000 PXA 0,4 RG069320 | 64550 -0100 00 0 64564 TNZ PIC65 ANY EXTRA D/S -YES-TRA-ROOM RG069330 64551 0600 00 0 07262 S0600 STZ CONTR RESET EVERY THING SWITCH OFF RG069340 | 64552 0441 00 0 07262 LDI CONTR RG069350 | 64553 0600 00 0 07263 STZ COUNT RG069360 | 64554 0600 00 0 07261 STZ CAUNT RG069370 | 64555 -0625 00 0 63306 STL SLT01 SET SWITCH 1 ON RG069380 64556 0761 00 0 00000 NOP RG069390 | 64557 0600 00 0 63307 STZ SLT02 RESET SWITCH 2 RG069400 | 64560 0761 00 0 00000 NOP RG069410 | 64561 0600 00 0 63310 STZ SLT03 RESET SWITCH 3 RG069420 | 64562 0761 00 0 00000 NOP RG069430 64563 0020 00 0 63126 TRA ID END - REPEAT RG069440 | 64564 0441 00 0 07262 PIC65 LDI CONTR RG069450 | 64565 -0055 00 020000 SIL 020000 TURN D SWITCH ON RG069460 | 64566 0604 00 0 07262 STI CONTR RG069470 | 64567 0774 00 4 00000 S0860 AXT 00,4 RG069480 64570 0754 00 4 00000 PXA 0,4 RG069490 | 64571 0400 00 0 54467 ADD PARED RG069500 | 64572 0340 00 0 54470 CAS COMRED IS THERE ENOUGH ROOM RG069510 | 64573 0761 00 0 00000 NOP NO RG069520 | 64574 0074 00 4 54631 TSX TROBLE,4 RG069530 64575 0534 00 4 64567 LXA S0860,4 RG069540 | 64576 0754 00 4 00000 PXA 0,4 RG069550 | 1 LISTING OF 12/01/64 PAGE 172 | PROCESSING OF FIELD PARAMETER CARDS | 64577 0400 00 0 54467 ADD PARED RG069560 | 64600 0621 00 0 64602 STA *+2 RG069570 | 64601 0500 00 4 00000 PIC69 CLA 0,4 OLD PARED + PERM RG069580 | 64602 0601 00 4 00000 STO 0,4 NEW PARED + PERM RG069590 | 64603 2 00001 4 64601 TIX PIC69,4,1 RG069600 64604 0500 00 0 54467 CLA PARED PLACE NEW PARED RG069610 | 64605 0737 00 1 00000 PAC 0,1 INTO INDEX 1 RG069620 | 64606 0761 00 0 00000 NOP RG069630 | 64607 0761 00 0 00000 NOP RG069640 | 64610 -0500 00 0 07010 CAL BCD10 RG069650 64611 0320 00 1 00000 ANS 0,1 TO CORRECT ANA IN REPEAT DS RG069660 | 64612 0600 00 1 00006 STZ 6,1 OF FIRST WORD RG069670 | 64613 0600 00 1 00007 STZ 7,1 AND 6TH AND 7TH WORD RG069680 | 64614 0600 00 1 00010 STZ 8,1 PAGE 29 RG069690 | 64615 -0534 00 4 07260 LXD LDTBL,4 RG069700 64616 1 00001 4 64617 TXI *+1,4,1 RG069710 | 64617 0500 60 0 07260 CLA* LDTBL AJDUST INDEX B FROM D TABLE RG069720 | 64620 0734 00 2 00000 PAX 0,2 TO GET PROPER OUTPUT PARAM RG069730 | 64621 -0634 00 4 07260 SXD LDTBL,4 DECREASE D COUNTER BY ONE RG069740 | 64622 0020 00 0 64207 TRA PIC45 RG069750 64623 -0500 00 2 00011 EROR6 CAL 9,2 WRITE ERROR MESSAGE RG069760 | 64624 0602 00 0 40703 SLW ERM43+1 RG069770 | 64625 0074 00 4 34503 TSX ERROR,4 RG069780 | 64626 0 00004 0 40702 PZE ERM43,,4 RG069790 | 64627 -0500 00 0 06615 CAL ONE RG069800 64630 -0602 00 0 34552 ORS ERSWT RG069810 | 64631 0020 00 0 64426 TRA S0830 RG069820 | 64632 -0320 00 0 07325 ANA MASK+8 RG069830 | 64633 0602 00 0 37707 SLW EROR5M+9 RG069840 | 64634 -0500 00 0 07357 CAL EDT1 RG069850 64635 -0320 00 0 07007 ANA BCD07 RG069860 | 64636 0602 00 0 07357 SLW EDT1 RG069870 | 64637 0074 00 4 36604 TSX XBIBCD,4 RG069880 | 64640 0 07357 0 07357 PZE EDT1,0,EDT1 RG069890 | 64641 -0500 00 0 07357 CAL EDT1 RG069900 64642 -0602 00 0 37707 ORS EROR5M+9 RG069910 | 64643 0074 00 4 34503 TSX ERROR,4 RG069920 | 64644 0 00012 0 37676 PZE EROR5M,0,10 RG069930 | 64645 -0500 00 0 06615 CAL ONE RG069940 | 64646 -0602 00 0 34552 ORS ERSWT RG069950 64647 -0500 00 0 07357 EROR7 CAL EDT1 WRITE ERROR MESSAGE RG069960 | 64650 0602 00 0 40703 SLW ERM43+1 RG069970 | 64651 0074 00 4 34503 TSX ERROR,4 RG069980 | 64652 0 00004 0 40702 PZE ERM43,,4 RG069990 | 64653 -0500 00 0 06615 CAL ONE RG070000 64654 -0602 00 0 34552 ORS ERSWT RG070010 | 64655 0020 00 0 64234 TRA PIC58 RG070020 | 64656 0634 00 4 64662 PIC90 SXA PIC92,4 RG070030 | 64657 0074 00 4 34503 TSX ERROR,4 RG070040 | 64660 -0 00012 0 64664 MZE PIC93,,10 RG070050 64661 0 00004 0 64676 PZE PIC94,,4 RG070060 | 64662 0774 00 4 00000 PIC92 AXT **,4 RG070070 | 64663 0020 00 0 64702 TRA PIT01 RG070080 | 64664 314343252721 PIC93 BCI 6,ILLEGAL EOF ENCOUNTERED PROCESSING RG070090 | 64665 436025462660 1 LISTING OF 12/01/64 PAGE 173 | PROCESSING OF FIELD PARAMETER CARDS | | 64666 254523466445 | 64667 632551252460 64670 475146232562 | 64671 623145276060 | 64672 263125432460 BCI 4,FIELD PARAMETER CARDS RG070100 | 64673 472151214425 | 64674 632551602321 64675 512462606060 | 64676 254524604626 PIC94 BCI 4,END OF PACKET ASSUMED RG070110 | 64677 604721234225 | 64700 636021626264 | 64701 442524606060 1 LISTING OF 12/01/64 PAGE 174 | END OF PACKET CLEANUP ROUTINES | | * RG070130 | 64702 0520 00 0 22031 PIT01 ZET RRSWT TEST FOR REPORT GENERATION RG070140 64703 0020 00 0 64721 TRA PIT05 NO RG070150 | 64704 0774 00 1 03720 AXT P2JD2,1 YES, TEST FOR UNUSED FIELDS RG070160 | 64705 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG070170 | 64706 0500 00 1 20326 PIT02 CLA FFTBL+1,1 RG070180 | 64707 -0120 00 0 64717 TMI PIT04 RG070190 64710 -0500 00 1 20325 CAL FFTBL,1 RG070200 | 64711 0602 00 0 37631 SLW ERM02+4 RG070210 | 64712 -0320 00 0 07007 ANA BCD07 TEST FOR POSSIBLE CC CHARACTER OF PLUS RG070220 | 64713 0100 00 0 64717 TZE PIT04 IF SO, IGNORE ERROR RG070230 | 64714 0074 00 4 34503 TSX ERROR,4 YES, WRITE ERROR MESSAGE RG070240 64715 0 00005 0 37625 PZE ERM02,,5 RG070250 | 64716 0761 00 0 00000 NOP RG070260 | 64717 0520 00 1 20330 PIT04 ZET FFTBL+3,1 RG070270 | 64720 2 00003 1 64706 TIX PIT02,1,3 RG070280 | * RG070290 * SORT LFTBL IN THE ORDER DXX,HDX,TYX,HYX RG070300 | * THE HYX LINES TO BE IN DESCENDING ORDER RELATIVE TO YX RG070310 | * RG070320 | 64721 0774 00 1 00620 PIT05 AXT P2JB5,1 RG070330 | 64722 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG070340 64723 0441 00 1 22657 PIT06 LDI LFTBL,1 CHANGE HYX FOR SORTING RG070350 | 64724 -0056 00 002000 LNT 002000 RG070360 | 64725 -0056 00 100000 LNT 100000 TEST FOR H RG070370 | 64726 0020 00 0 64731 TRA PIT08 NO RG070380 | 64727 -0051 00 477700 IIL 477700 YES RG070390 64730 0604 00 1 22657 STI LFTBL,1 RG070400 | 64731 0520 00 1 22661 PIT08 ZET LFTBL+2,1 RG070410 | 64732 2 00002 1 64723 TIX PIT06,1,2 RG070420 | 64733 0774 00 1 00616 PIT10 AXT P2JB5-2,1 INITIALIZE FOR SORT RG070430 | 64734 0600 00 0 65423 STZ PITSW SWITCH USED IF CHANGE RG070440 64735 -0520 00 1 22657 PIT12 NZT LFTBL,1 RG070450 | 64736 0020 00 0 64761 TRA PIT16 RG070460 | 64737 -0500 00 1 22657 CAL LFTBL,1 RG070470 | 64740 -0340 00 1 22655 LAS LFTBL-2,1 RG070480 | 64741 0020 00 0 64760 TRA PIT14 GREATER OK RG070490 64742 0020 00 0 64744 TRA *+2 EQUAL, ERROR RG070500 | 64743 0020 00 0 64750 TRA PIT13 RG070510 | 64744 0602 00 0 40662 SLW ERMA5+6 RG070520 | 64745 0074 00 4 34503 TSX ERROR,4 RG070530 | 64746 0 00007 0 40654 PZE ERMA5,,7 TWO LINES EQUAL RG070540 64747 -0625 00 0 34552 STL ERSWT RG070550 | 64750 -0625 00 0 65423 PIT13 STL PITSW LESS, CHANGE ORDER RG070560 | 64751 0560 00 1 22655 LDQ LFTBL-2,1 RG070570 | 64752 0602 00 1 22655 SLW LFTBL-2,1 RG070580 | 64753 -0600 00 1 22657 STQ LFTBL,1 RG070590 64754 -0500 00 1 22660 CAL LFTBL+1,1 RG070600 | 64755 0560 00 1 22656 LDQ LFTBL-1,1 RG070610 | 64756 0602 00 1 22656 SLW LFTBL-1,1 RG070620 | 64757 -0600 00 1 22660 STQ LFTBL+1,1 RG070630 | 64760 2 00002 1 64735 PIT14 TIX PIT12,1,2 LOOP FOR ALL ENTRIES RG070640 64761 0520 00 0 65423 PIT16 ZET PITSW TEST FOR ANY CHANGES RG070650 | 64762 0020 00 0 64733 TRA PIT10 YES, REPEAT SORT RG070660 | * RG070670 | 1 LISTING OF 12/01/64 PAGE 175 | END OF PACKET CLEANUP ROUTINES | 64763 0774 00 1 00620 AXT P2JB5,1 RG070680 | 64764 0441 00 1 22657 PIT18 LDI LFTBL,1 CHANGE HYX BACK RG070690 | 64765 -0056 00 770000 LNT 770000 TEST FOR H RG070700 | 64766 0020 00 0 64771 TRA PIT20 NO RG070710 64767 -0051 00 477700 IIL 477700 YES RG070720 | 64770 0604 00 1 22657 STI LFTBL,1 RG070730 | 64771 -0520 00 0 34716 PIT20 NZT DEBSW TEST DEBUG SWITCH RG070740 | 64772 0020 00 0 65001 TRA PIT21 RG070750 | 64773 0754 00 1 00000 PXA 0,1 WRITE LFTBL OFF LINE RG070760 64774 0737 00 4 00000 PAC 0,4 RG070770 | 64775 1 22657 4 64776 TXI *+1,4,LFTBL RG070780 | 64776 0754 00 4 00000 PXA 0,4 RG070790 | 64777 -0501 00 0 06765 ORA DCRM2 RG070800 | 65000 0074 00 4 34717 TSX TDUMP,4 RG070810 65001 0520 00 1 22661 PIT21 ZET LFTBL+2,1 LOOP FOR ALL NON ZERO ENTRIES RG070820 | 65002 2 00002 1 64764 TIX PIT18,1,2 RG070830 | * RG070840 | * PROCESS LFTBL RG070850 | * BUILD ACT PACKAGES FOR NON-MASTER RTS RG070860 * BUILD PRT PACKAGES WHERE DESIGNATED RG070870 | * RG070880 | 65003 0774 00 2 00620 PIT22 AXT P2JB5,2 INITIALIZE FOR LFTBL SCAN RG070890 | 65004 0441 00 2 22657 PIT23 LDI LFTBL,2 RG070900 | 65005 -0056 00 240000 LNT 240000 TEST FOR D LINE ENTRY RG070910 65006 0020 00 0 65070 TRA PIT26 NO RG070920 | 65007 0441 00 2 22660 LDI LFTBL+1,2 GET WORD 2 RG070930 | 65010 0054 00 100000 RFT 100000 TEST FOR NORMAL PRINT RG070940 | 65011 0020 00 0 65027 TRA PIT24 NO RG070950 | 65012 0074 00 4 55271 TSX SB300,4 YES, INITIALIZE PART FOR ENTRY RG070960 65013 0 00000 0 00004 PZE 4 RG070970 | 65014 0560 00 2 22657 LDQ LFTBL,2 BUILD WRITE PARAMETER RG070980 | 65015 -0773 00 0 00030 RQL 24 RG070990 | 65016 -0130 00 0 00000 XCL RG071000 | 65017 -0320 00 0 07066 ANA BCD66 RG071010 65020 -0520 00 0 22031 NZT RRSWT RG069471 RG071020 | 65021 -0501 00 0 06764 ORA DCRM1 RG071030 | 65022 -0501 00 0 65426 ORA COD72 RG071040 | 65023 0602 00 1 00000 SLW 0,1 WORD 1 RG071050 | 65024 0600 00 1 00001 STZ 1,1 WORD 2 RG071060 65025 0600 00 1 00002 STZ 2,1 WORD 3 RG071070 | 65026 0074 00 4 55306 TSX SB350,4 CLOSE OUT PART ENTRY RG071080 | * RG071090 | 65027 -0520 00 0 07277 PIT24 NZT MSTRSW WAS MASTER RT SPECIFIED RG071100 | 65030 0020 00 0 65070 TRA PIT26 NO RG071110 65031 -0500 00 0 22022 CAL ERTBL+25 RG071120 | 65032 -0320 00 0 07003 ANA BCD03 RG071130 | 65033 0602 00 0 22022 SLW ERTBL+25 MASTER RECORD TYPE RG071140 | 65034 -0500 00 2 22657 CAL LFTBL,2 YES, BUILD ACT PACKAGES FOR NON-MASTERS RG071150 | 65035 -0320 00 0 07003 ANA BCD03 RG071160 65036 -0340 00 0 22022 LAS ERTBL+25 RG071170 | 65037 0020 00 0 65041 TRA *+2 RG071180 | 65040 0020 00 0 65070 TRA PIT26 MASTER, DO NOT NEED ACT RG071190 | 65041 0602 00 0 07102 SLW TEMP RG071200 | 65042 -0500 00 2 22661 CAL LFTBL+2,2 ONLY ONE ACT PER AST RG071210 65043 -0320 00 0 07003 ANA BCD03 DOES ACT GET BUILT NOW RG071220 | 1 LISTING OF 12/01/64 PAGE 176 | END OF PACKET CLEANUP ROUTINES | | 65044 -0340 00 0 07102 LAS TEMP RG071230 65045 0020 00 0 65047 TRA *+2 RG071240 | 65046 0020 00 0 65070 TRA PIT26 NO, NOT YET RG071250 | 65047 0074 00 4 55271 TSX SB300,4 YES, INITIALIZE PART FOR ENTRY RG071260 | 65050 0 00000 0 00004 PZE 4 RG071270 | 65051 0535 00 4 07277 LAC MSTRSW,4 LOCATE ACT INFO RG071280 65052 -0500 00 4 00000 CAL 0,4 RG071290 | 65053 -0320 00 0 07016 ANA BCD16 RG071300 | 65054 0602 00 1 00000 SLW 0,1 WORD 1 RG071310 | 65055 -0500 00 2 22657 CAL LFTBL,2 RG071320 | 65056 0767 00 0 00030 ALS 24 RG071330 65057 -0501 00 0 06622 ORA SIX RG071340 | 65060 -0602 00 1 00000 ORS 0,1 RG071350 | 65061 -0500 00 4 00001 CAL 1,4 RG071360 | 65062 0602 00 1 00001 SLW 1,1 WORD 2 RG071370 | 65063 -0500 00 4 00002 CAL 2,4 RG071380 65064 0602 00 1 00002 SLW 2,1 WORD 3 RG071390 | 65065 0500 00 0 06620 CLA FOUR RG071400 | 65066 0602 00 1 00003 SLW 3,1 WORD 4 RG071410 | 65067 0074 00 4 55306 TSX SB350,4 CLOSE OUT PART ENTRY RG071420 | 65070 2 00002 2 65004 PIT26 TIX PIT23,2,2 LOOP THRU LFTBL RG071430 * RG071440 | * BUILD DUMMY PACKAGES FOR UNUSED INPUT RTS RG071450 | * RG071460 | 65071 0774 00 2 00620 AXT DSB,2 RG071470 | 65072 0441 00 2 21147 PIT28 LDI DSIEM,2 SCAN DSIE TABLE RG071480 65073 -0520 00 2 21147 NZT DSIEM,2 TEST FOR ENTRY RG071490 | 65074 0020 00 0 65112 TRA PIT30 NO RG071500 | 65075 -0056 00 000004 LNT 000004 WAS RT USED IN THIS PACKET RG071510 | 65076 0020 00 0 65102 TRA *+4 RG071520 | 65077 -0057 00 000004 RIL 000004 YES, RESET USED INDICATOR RG071530 65100 0604 00 2 21147 STI DSIEM,2 RG071540 | 65101 0020 00 0 65112 TRA PIT30 RG071550 | 65102 0074 00 4 55271 TSX SB300,4 NO, MAKE PART ENTRY RG071560 | 65103 0 00000 0 00004 PZE 4 RG071570 | 65104 0445 00 0 07017 RIS BCD17 BUILD PART ENTRY RG071580 65105 0604 00 1 00000 STI 0,1 WORD 1 CODE 00 RG071590 | 65106 0600 00 1 00001 STZ 1,1 WORD 2 RG071600 | 65107 0600 00 1 00002 STZ 2,1 WORD 3 RG071610 | 65110 0600 00 1 00003 STZ 3,1 WORD 4 RG071620 | 65111 0074 00 4 55306 TSX SB350,4 CLOSE OUT PART ENTRY RG071630 65112 2 00002 2 65072 PIT30 TIX PIT28,2,2 LOOP THRU DSIE TABLE RG071640 | * RG071650 | * BUILD LITERAL PACKAGES FOR OUTPUT RECORD TYPES RG071660 | * RG071670 | 65113 -0520 00 0 22031 NZT RRSWT TEST FOR RECORD OUTPUT RG071680 65114 0020 00 0 65154 TRA PIT33 NO, BYPASS THIS SECTION RG071690 | 65115 0774 00 2 00620 AXT DSE,2 YES, SCAN DSOE TABLE RG071700 | 65116 0441 00 2 21770 PIT31 LDI DSOEM,2 RG071710 | 65117 -0056 00 000002 LNT 000002 WAS RT USED IN THIS PACKET RG071720 | 65120 0020 00 0 65153 TRA PIT32 NO RG071730 65121 0074 00 4 55271 TSX SB300,4 YES, INITIALIZE FOR PART TABLE ENTRY RG071740 | 65122 0 00000 0 00010 PZE 8 RG071750 | 65123 -0500 00 2 21770 CAL DSOEM,2 GET OUTPUT RT RG071760 | 65124 0771 00 0 00030 ARS 24 RG071770 | 1 LISTING OF 12/01/64 PAGE 177 END OF PACKET CLEANUP ROUTINES | | 65125 0074 00 4 55155 TSX SB150,4 GET LNID RG071780 | 65126 0602 00 1 00006 SLW 6,1 WORD 7 RG071790 | 65127 0771 00 0 00014 ARS 12 RG071800 65130 -0320 00 0 07006 ANA BCD06 RG071810 | 65131 0602 00 1 00000 SLW 0,1 RG071820 | 65132 -0500 00 1 00006 CAL 6,1 RG071830 | 65133 0074 00 4 55106 TSX SB100,4 GET AST RG071840 | 65134 -0501 00 0 06660 ORA TEN+26 RG071850 65135 -0602 00 1 00000 ORS 0,1 WORD 1 RG071860 | 65136 0600 00 1 00001 STZ 1,1 WORD 2 RG071870 | 65137 0600 00 1 00002 STZ 2,1 WORD 3 RG071880 | 65140 0600 00 1 00005 STZ 5,1 WORD 6 RG071890 | 65141 0600 00 1 00007 STZ 7,1 WORD 8 RG071900 65142 -0500 00 2 21770 CAL DSOEM,2 GET ORT RG071910 | 65143 -0320 00 0 07060 ANA BCD60 RG071920 | 65144 0602 00 0 07102 SLW TEMP RG071930 | 65145 0074 00 4 35441 TSX STEPC,4 PUT RT TO CONSTANT AREA RG071940 | 65146 0 00001 0 07102 PZE TEMP,,1 RG071950 65147 0767 00 0 00022 ALS 18 RG071960 | 65150 -0501 00 0 06615 ORA ONE RG071970 | 65151 0602 00 1 00004 SLW 4,1 WORD 5 RG071980 | 65152 0074 00 4 55306 TSX SB350,4 CLOSE OUT PART ENTRY RG071990 | 65153 2 00002 2 65116 PIT32 TIX PIT31,2,2 LOOP THRU DSOE TABLE RG072000 * RG072010 | * RG072020 | 65154 0500 00 0 07300 PIT33 CLA PARCTR UPDATE PARAMETER COUNT RG072030 | 65155 0400 00 0 22025 ADD ERTBL+28 RG072040 | 65156 0601 00 0 22025 STO ERTBL+28 RG072050 * RG072060 | * SORT CBTBL IN DESCENDING ORDER RG072070 | * RG072080 | 65157 0534 00 4 61405 LXA CBCTR,4 GET CB COUNTER RG072090 | 65160 0600 00 0 65423 PIT34 STZ PITSW INITIALIZE RG072100 65161 0774 00 2 00061 AXT P2JB6-1,2 RG072110 | 65162 -0500 00 2 22741 PIT36 CAL CBTBL-1,2 COMPARE ENTRIES RG072120 | 65163 0560 00 0 06614 LDQ ZERO RG072130 | 65164 -0340 00 2 22742 LAS CBTBL,2 RG072140 | 65165 0020 00 0 65173 TRA PIT38 HI, OK RG072150 65166 0020 00 0 65173 TRA PIT38 EQUAL ENTRIES IGNORE RG072160 | 65167 0560 00 2 22742 LDQ CBTBL,2 LOW, CHANGE ORDER RG072170 | 65170 -0600 00 2 22741 STQ CBTBL-1,2 RG072180 | 65171 0602 00 2 22742 SLW CBTBL,2 RG072190 | 65172 -0625 00 0 65423 STL PITSW SET SWITCH RG072200 65173 2 00001 2 65162 PIT38 TIX PIT36,2,1 LOOP THRU CBTBL RG072210 | 65174 0520 00 0 65423 ZET PITSW WERE THERE ANY CHANGES RG072220 | 65175 0020 00 0 65160 TRA PIT34 YES, SORT AGAIN RG072230 | 65176 -0634 00 4 22026 SXD ERTBL+29,4 SAVE CB COUNT RG072240 | * RG072250 * CHECK CALTB FOR UNUSED ENTRIES RG072260 | * RG072270 | 65177 0774 00 2 00454 AXT P2JC4,2 RG072280 | 65200 0500 00 2 34502 PIT40 CLA CALTB,2 GET CALC NAME RG072290 | 65201 0100 00 0 65212 TZE PIT42 RG072300 65202 -0120 00 0 65212 TMI PIT42 RG072310 | 65203 0767 00 0 00006 ALS 6 RG072320 | 1 LISTING OF 12/01/64 PAGE 178 | END OF PACKET CLEANUP ROUTINES | 65204 -0501 00 0 06674 ORA BLANK RG072330 | 65205 0602 00 0 40472 SLW ERM77+4 RG072340 | 65206 0074 00 4 34503 TSX ERROR,4 RG072350 | 65207 -0 00006 0 40466 MZE ERM77,,6 RG072360 | 65210 0 00004 0 40554 PZE ERM90,,4 RG072370 65211 -0625 00 0 34552 STL ERSWT RG072380 | 65212 0520 00 2 34504 PIT42 ZET CALTB+2,2 RG072390 | 65213 2 00002 2 65200 TIX PIT40,2,2 RG072400 | * RG072410 | 65214 0074 00 4 54711 PIT46 TSX PRSRT,4 SORT PARAMETERS RG072420 65215 -0625 00 0 65425 STL CORSW INITIALIZE SWITCHES RG072430 | 65216 -0625 00 0 65424 STL TAPSW RG072440 | 65217 -0520 00 0 54710 NZT TRSWT TEST FOR TAPE RECORDS RG072450 | 65220 0020 00 0 65236 TRA PIT52 NO RG072460 | 65221 0600 00 0 65424 STZ TAPSW YES RG072470 65222 0074 00 4 05255 TSX RD(WR),4 GET TAPE RECORDS FROM 24 RG072480 | 65223 0 65226 0 00030 PZE 24,,PIT48 RG072490 | 65224 0020 00 0 65227 TRA PIT50 RG072500 | 65225 0074 00 4 04000 TSX LOST,4 ISSEGAL EOF RG072510 | 65226 3 13560 0 34502 PIT48 IORT TAPEM,,P2JC5 RG072520 65227 0534 00 2 34502 PIT50 LXA TAPEM,2 INITIALIZE LOOPS RG072530 | 65230 -0634 00 2 65273 SXD PIT64,2 RG072540 | 65231 0774 00 2 00001 AXT 1,2 RG072550 | 65232 0074 00 4 05505 TSX NDSRT,4 POSITION 24 RG072560 | 65233 0 00005 0 00030 PZE 24,,5 RG072570 65234 0074 00 4 05505 TSX NDSRT,4 RG072580 | 65235 0 00006 0 00030 PZE 24,,6 RG072590 | 65236 0534 00 1 07300 PIT52 LXA PARCTR,1 RG072600 | 65237 -3 00000 1 65243 TXL PIT53,1,0 RG072610 | 65240 -0634 00 1 65264 SXD PIT60,1 RG072620 65241 0774 00 1 00001 AXT 1,1 RG072630 | 65242 0600 00 0 65425 STZ CORSW RG072640 | 65243 0074 00 4 05255 PIT53 TSX RD(WR),4 WRITE TABLES TO 24 RG072650 | 65244 -0 37140 0 00030 MZE 24,,TBCMD RG072660 | 65245 0020 00 0 65247 TRA PIT54 RG072670 65246 0074 00 4 35007 TSX ENDTP,4 RG072680 | 34502 TAPEM EQU CALTB RG072690 | 65247 0520 00 0 65424 PIT54 ZET TAPSW RG072700 | 65250 0020 00 0 65261 TRA PIT58 NO MORE TAPE RECORDS RG072710 | 65251 0520 00 0 65425 ZET CORSW RG072720 65252 0020 00 0 65270 TRA PIT62 NO MORE CORE RECORDS RG072730 | 65253 0774 00 4 00000 AXT 0,4 RG072740 | 65254 -3 77775 4 65270 PIT56 TXL PIT62,4,-3 RG072750 | 65255 -0500 60 1 54466 CAL* PARTM,1 RG072760 | 65256 -0340 60 2 34502 LAS* TAPEM,2 RG072770 65257 0020 00 0 65270 TRA PIT62 RG072780 | 65260 1 77777 4 65254 TXI PIT56,4,-1 RG072790 | 65261 0500 00 1 54466 PIT58 CLA PARTM,1 WRITE CORE RECORD RG072800 | 65262 0074 00 4 65300 TSX PIT70,4 RG072810 | 65263 1 00001 1 65264 TXI *+1,1,1 RG072820 65264 -3 00000 1 65247 PIT60 TXL PIT54,1,** RG072830 | 65265 -0625 00 0 65425 STL CORSW RG072840 | 65266 0520 00 0 65424 ZET TAPSW RG072850 | 65267 0020 00 0 65336 TRA PIT80 RG072860 | 65270 0500 00 2 34502 PIT62 CLA TAPEM,2 WRITE TAPE RECORD RG072870 1 LISTING OF 12/01/64 PAGE 179 | END OF PACKET CLEANUP ROUTINES | | 65271 0074 00 4 65300 TSX PIT70,4 RG072880 | 65272 1 00001 2 65273 TXI *+1,2,1 RG072890 65273 -3 00000 2 65247 PIT64 TXL PIT54,2,** RG072900 | 65274 -0625 00 0 65424 STL TAPSW RG072910 | 65275 0520 00 0 65425 ZET CORSW RG072920 | 65276 0020 00 0 65336 TRA PIT80 RG072930 | 65277 0020 00 0 65261 TRA PIT58 RG072940 65300 0634 00 4 65325 PIT70 SXA PIT74,4 WRITE PARAMETER RECORD TO 24 RG072950 | 65301 0621 00 0 65335 STA PIT79 RG072960 | 65302 0622 00 0 65335 STD PIT79 RG072970 | 65303 -0734 00 4 00000 PDX 0,4 RG072980 | 65304 3 00003 4 65315 TXH PIT72,4,3 TEST FOR SHORT RECORDS RG072990 65305 0754 00 1 00000 PXA 0,1 RG073000 | 65306 0602 00 0 65332 SLW PIT78+3 RG073010 | 65307 0074 00 4 36604 TSX XBIBCD,4 YES, ERROR MESSAGE RG073020 | 65310 0 65332 0 65332 PZE PIT78+3,,PIT78+3 RG073030 | 65311 0074 00 4 34503 TSX ERROR,4 RG073040 65312 0 00006 0 65327 PZE PIT78,,6 RG073050 | 65313 -0625 00 0 34552 STL ERSWT RG073060 | 65314 0020 00 0 65323 TRA PIT73 RG073070 | 65315 0074 00 4 05255 PIT72 TSX RD(WR),4 PUT RECORD TO 24 RG073080 | 65316 -0 65335 0 00030 MZE 24,,PIT79 RG073090 65317 0020 00 0 65321 TRA *+2 RG073100 | 65320 0074 00 4 35007 TSX ENDTP,4 END OF TAPE RETURN RG073110 | 65321 -0520 00 0 34716 NZT DEBSW TEST DEBUG SWITCH RG073120 | 65322 0020 00 0 65325 TRA PIT74 RG073130 | 65323 -0500 00 0 65335 PIT73 CAL PIT79 DUMP PARAMETER TABLE ENTRY RG073140 65324 0074 00 4 34717 TSX TDUMP,4 RG073150 | 65325 0774 00 4 00000 PIT74 AXT **,4 RETURN RG073160 | 65326 0020 00 4 00001 TRA 1,4 RG073170 | * RG073180 | 65327 472151214425 PIT78 BCI 6,PARAMETER RECORD XXXXXX TOO SHORT RG073190 65330 632551605125 | 65331 234651246060 | 65332 676767676767 | 65333 606346466062 | 65334 304651636060 65335 3 00000 0 00000 PIT79 IORT **,,** RG073200 | * RG073210 | 65336 0074 00 4 05505 PIT80 TSX NDSRT,4 WRITE EOF ON PARAMETER TAPE RG073220 | 65337 0 00007 0 00030 PZE 24,,7 RG073230 | 65340 0074 00 4 05505 TSX NDSRT,4 WRITE EOF O HAND CALC TAPE RG073240 65341 0 00007 0 00033 PZE 27,,7 RG073250 | 65342 -0520 00 0 07425 NZT EOJSW TEST FOR MORE PACKETS RG073260 | 65343 0020 00 0 56726 TRA P1A11 YES RG073270 | 65344 0774 00 1 00004 AXT 4,1 RG073280 | 65345 0074 00 4 05505 TSX NDSRT,4 CLOSE OUT PARAMETER TAPE 24 RG073290 65346 0 00007 0 00030 PZE 24,,7 RG073300 | 65347 2 00001 1 65345 TIX *-2,1,1 RG073310 | 65350 0074 00 4 06342 TSX TPOSIT,4 POSITION TAPE 24 FOR PHASE 2 RG073320 | 65351 -3 00000 0 00030 SVN 24 RG073330 | 65352 0774 00 1 00004 AXT 4,1 RG073340 65353 0074 00 4 05505 TSX NDSRT,4 CLOSE OUT HAND CALC TAPE 27 RG073350 | 65354 0 00007 0 00033 PZE 27,,7 RG073360 | 65355 2 00001 1 65353 TIX *-2,1,1 RG073370 | 1 LISTING OF 12/01/64 PAGE 180 | END OF PACKET CLEANUP ROUTINES | 65356 0074 00 4 06342 TSX TPOSIT,4 POSITION TAPE 27 FOR PHASE 2 RG073380 | 65357 -3 00000 0 00033 SVN 27 RG073390 | 65360 0534 00 1 04475 LXA SYMTAP-28,1 TEST FOR DICTIONARIES RG073400 | 65361 -3 00000 1 65364 TXL *+3,1,0 RG073410 65362 0074 00 4 05505 TSX NDSRT,4 YES, WRITE EOF ON DICT TAPE RG073420 | 65363 0 00007 0 00034 PZE 28,,7 RG073430 | 65364 0074 00 4 05630 TSX CLIST,4 WRITE END OF PHASE 1 MESSAGE RG073440 | 65365 0 00003 3 65414 PZE PIT88,3,3 RG073450 | 65366 0500 00 0 34552 PIT84 CLA ERSWT TEST FOR EXCESS OF CODING ERRORS RG073460 65367 -0340 00 0 06760 LAS TEN+90 RG073470 | 65370 0020 00 0 65375 TRA PIT86 RG073480 | 65371 0020 00 0 65375 TRA PIT86 RG073490 | 65372 0074 00 4 04752 TSX SYSRD,4 NO, GET PHASE 2 RG073500 | 65373 114721230202 BCI 1,9PAC22 RG073510 65374 0 32743 0 72564 PZE RGFXD-140,,RGFXD-140-P2ORG RG073520 | 65375 0074 00 4 05642 PIT86 TSX NLIST,4 YES, WRITE ERROR MESSAGE RG073530 | 65376 0 00012 0 65402 PZE PIT87,,10 RG073540 | 65377 0074 00 4 05646 TSX FLIST,4 RG073550 | 65400 0 00012 0 65402 PZE PIT87,,10 RG073560 65401 0074 00 4 05134 TSX DDEAD,4 DUMP PHASE 1 AND STOP RG073570 | 65402 272545255121 PIT87 BCI 3,GENERATION HALTED RG073580 | 65403 633146456030 | 65404 214363252460 | 65405 222523216462 BCI 7,BECAUSE OF NON-RECOVERABLE CODING ERRORS RG073590 65406 256046266045 | 65407 464540512523 | 65410 466525512122 | 65411 432560234624 | 65412 314527602551 65413 514651626060 | 65414 254524604626 PIT88 BCI 3,END OF PHASE 1 RG073600 | 65415 604730216225 | 65416 600160606060 | 65417 626321516360 PIT89 BCI 3,START OF PHASE 1 RG073610 65420 462660473021 | 65421 622560016060 | 65422 3 00062 0 07174 PIT90 IORT TEMPAR,,50 RG073620 | * RG073630 | 65423 0 00000 0 00000 PITSW PZE USED IN SORTING TO DENOTE CHANGE RG073640 65424 0 00000 0 00000 TAPSW PZE RG073650 | 65425 0 00000 0 00000 CORSW PZE RG073660 | 65426 +000000000072 COD72 OCT 72 PRT MASK RG073670 | 65427 0 00000 0 00000 LVCTR PZE LINE LEVEL COUNTER RG073680 | 65430 000060606060 FMASK BCI 1,00 4 BLANKS RG073690 65431 0 00000 0 00000 HCRLC PZE RELATIVE LOCATION COUNTER OF LOCATION SYMB RG073700 | 1 LISTING OF 12/01/64 PAGE 181 | PROCESS SYMBOLIC CARDS | | * XR2 USED TO TIX THRU SUBFIELD RG073720 * XR4 USED FOR TABLE LOOKUP AND SUBROUTINES RG073730 | * AS MANY RECORDS WILL BE BUILD AS IS NECESSARY FOR CALC RG073740 | * THERE IS NO SET LIMIT ON NUMBER OF SYMBOLS OR INSTRUCTIONS RG073750 | * HOWEVER OVER 1000 SYMBOLS TENDS TO SLOW PROCESSING RG073760 | * DOWN UNLESS SYMBOL IS WITHIN 500 WORDS OF REFERENCING RG073770 * LOCATION RG073780 | 65432 HC000 BSS 0 INITIALIZE FOR HAND CALCS RG073790 | 65432 0074 00 4 54767 HC004 TSX CTEST,4 RG073800 | 65433 0 00000 0 00001 PZE 1 RG073810 | 65434 0 65440 0 06637 PZE C,,HC010 FOR C RG073820 65435 0074 00 4 34503 TSX ERROR,4 NO, ERROR RG073830 | 65436 -1 00004 0 40405 MON ERM62,,4 * RG073840 | 65437 0 00014 0 04621 PZE CARD,,12 * RG073850 | 65440 -0500 00 0 04622 HC010 CAL CARD+1 TEST FOR CALC PSEUDO-OP RG073860 | 65441 -0340 00 0 65452 LAS KCALC * RG073870 65442 0020 00 0 65444 TRA *+2 * RG073880 | 65443 0020 00 0 65456 TRA HC020 * RG073890 | 65444 0074 00 4 34503 TSX ERROR,4 NO, ERROR RG073900 | 65445 -1 00005 0 40371 MON ERM60,,5 * RG073910 | 65446 0 00014 0 04621 PZE CARD,,12 * RG073920 65447 0074 00 4 56020 TSX PREAD,4 GET ANOTHER CARD RG073930 | 65450 0020 00 0 66415 TRA HC592 ILLEGAL EOF RG073940 | 65451 0020 00 0 65432 TRA HC004 RG073950 | 65452 602321432360 KCALC BCI 1, CALC CALC PSEUDO-OP RG073960 | 65453 -0534 00 2 30104 HC018 LXD HCSYM,2 TEST FOR BUFFERS EMPTY RG073970 65454 3 01750 2 65456 TXH HC020,2,P2JC7 RG073980 | 65455 0074 00 4 66746 TSX HCWRT,4 NO, WRITE TO TAPE RG073990 | 65456 HC020 BSS 0 RG074000 | 65456 0774 00 4 01750 AXT P2JC7,4 INITIALIZE HC SYMBOL TABLE RG074010 | 65457 -0634 00 4 30104 SXD HCSYM,4 RG074020 65460 0600 00 4 30104 STZ HCSYM,4 RG074030 | 65461 2 00001 4 65460 TIX *-1,4,1 RG074040 | 65462 0774 00 4 01752 AXT P2JC8+2,4 INITIALIZE HC INSTR TABLE RG074050 | 65463 -0634 00 4 32055 SXD HCINS,4 RG074060 | 65464 0600 00 0 65431 STZ HCRLC RG074070 65465 -0500 00 0 06615 CAL ONE RG074080 | 65466 0602 00 0 26133 SLW HCBUF+3 RG074090 | 65467 0074 00 4 55035 TSX GETVF,4 GET CALC NAME RG074100 | 65470 0 00000 0 04621 PZE CARD RG074110 | 65471 0 00024 0 00020 PZE 16,,20 COLUMNS 16-20 RG074120 65472 0100 00 0 65510 TZE HC024 RG074130 | 65473 0774 00 4 00454 AXT P2JC4,4 RG074140 | 65474 0602 00 0 07102 HC022 SLW TEMP RG074150 | 65475 0500 00 4 34502 CLA CALTB,4 RG074160 | 65476 -0340 00 0 07102 LAS TEMP RG074170 65477 0020 00 0 65501 TRA *+2 RG074180 | 65500 0020 00 0 65520 TRA HC026 RG074190 | 65501 2 00002 4 65475 TIX *-4,4,2 RG074200 | 65502 -0500 00 0 07102 CAL TEMP RG074210 | 65503 0602 00 0 40376 SLW ERM61 RG074220 65504 0074 00 4 34503 TSX ERROR,4 RG074230 | 65505 -1 00007 0 40376 MON ERM61,,7 RG074240 | 65506 0 00014 0 04621 PZE CARD,,12 RG074250 | 65507 0020 00 0 65534 TRA HC030 RG074260 | 1 LISTING OF 12/01/64 PAGE 182 PROCESS SYMBOLIC CARDS | | 65510 0074 00 4 34503 HC024 TSX ERROR,4 RG074270 | 65511 -1 00004 0 40447 MON ERM74,,4 RG074280 | 65512 -0 00014 0 04621 MZE CARD,,12 RG074290 65513 0 00004 0 40554 PZE ERM90,,4 RG074300 | 65514 0600 00 0 26131 STZ HCNAM RG074310 | 65515 0600 00 0 26132 STZ HCIPT RG074320 | 65516 -0625 00 0 34552 STL ERSWT RG074330 | 65517 0020 00 0 65534 TRA HC030 RG074340 65520 0602 00 0 26131 HC026 SLW HCNAM RG074350 | 65521 -0760 00 0 00003 SSM NOTE CALC AS USED RG074360 | 65522 0601 00 4 34502 STO CALTB,4 RG074370 | 65523 -0500 00 4 34503 CAL CALTB+1,4 RG074380 | 65524 0602 00 0 26132 SLW HCIPT RG074390 65525 0500 00 4 34502 CLA CALTB,4 NOTE ALL REFERENCES AS USED RG074400 | 65526 -0340 00 0 07102 LAS TEMP RG074410 | 65527 0020 00 0 65531 TRA *+2 RG074420 | 65530 -0760 00 0 00003 SSM RG074430 | 65531 0601 00 4 34502 STO CALTB,4 RG074440 65532 0520 00 4 34504 ZET CALTB+2,4 RG074450 | 65533 2 00002 4 65525 TIX *-6,4,2 RG074460 | * GET NEXT CARD RG074470 | 65534 0074 00 4 56020 HC030 TSX PREAD,4 GET A CARD RG074480 | 65535 0020 00 0 66420 TRA HC600 EOF ENCOUNTERED RG074490 65536 0074 00 4 54767 TSX CTEST,4 RG074500 | 65537 0 00000 0 00001 PZE 1 RG074510 | 65540 -0 65547 0 06637 MZE C,,HC032 RG074520 | 65541 -0 66436 0 06614 MZE ZERO,,HC605 RG074530 | 65542 0 66420 0 06635 PZE A,,HC600 A, END OF CALC ROUTINES RG074540 65543 0074 00 4 34503 TSX ERROR,4 ERROR, NO C OR A IN COLUMN 1 RG074550 | 65544 -1 00004 0 40405 MON ERM62,,4 RG074560 | 65545 0 00014 0 04621 PZE CARD,,12 RG074570 | 65546 0020 00 0 65534 TRA HC030 RG074580 | 65547 -0500 00 0 04622 HC032 CAL CARD+1 TEST FOR NEW CALC RG074590 65550 -0340 00 0 65452 LAS KCALC RG074600 | 65551 0020 00 0 65553 TRA *+2 RG074610 | 65552 0020 00 0 65453 TRA HC018 YES, INITIALIZE FOR NEW CALC RG074620 | 65553 0600 00 0 07375 STZ HCSW1 INITIALIZE FOR NEW CARD RG074630 | 65554 0600 00 0 07376 STZ HCSW2 RG074640 65555 0600 00 0 66463 STZ HCSW3 RG074650 | 65556 0600 00 0 66464 STZ HCSW4 RG074660 | 65557 0600 00 0 66465 STZ HCSW5 RG074670 | 65560 0600 00 0 37141 STZ HCWD1 RG074680 | 65561 0600 00 0 37142 STZ HCWD2 RG074690 65562 0600 00 0 66457 STZ HC900 ZERO TEMPORARY CELLS RG074700 | 65563 0600 00 0 66460 STZ HC901 RG074710 | 65564 0600 00 0 66461 STZ HC902 RG074720 | 65565 -0500 00 0 06614 HC034 CAL ZERO GET LOCATION FIELD RG074730 | 65566 0774 00 2 00005 AXT 5,2 RG074740 65567 0074 00 4 54767 HC036 TSX CTEST,4 RG074750 | 65570 0 00000 2 00007 PZE 7,2 RG074760 | 65571 0 65572 0 06674 PZE BLANK,,*+1 RG074770 | 65572 2 00001 2 65567 TIX HC036,2,1 RG074780 | 65573 0100 00 0 65577 TZE HC060 IS THERE A SYMBOL RG074790 65574 0602 00 0 65576 SLW HC038 RG074800 | 65575 0074 00 4 66611 TSX HCPSD,4 YES, DEFINE SYMBOL RG074810 | 1 LISTING OF 12/01/64 PAGE 183 | PROCESS SYMBOLIC CARDS | 65576 606060606060 HC038 BCI 1, RG074820 | * RG074830 | * PROCESS OPERATION FIELD RG074840 | * RG074850 | 65577 0774 00 2 00004 HC060 AXT 4,2 MAX SIZE OF OPERATION RG074860 65600 0774 00 1 00101 AXT 65,1 MAX SIZE VARIABLE FIELD RG074870 | 65601 -0500 00 0 06614 CAL ZERO RG074880 | 65602 0074 00 4 54767 HC062 TSX CTEST,4 GET OPERATION FIELD RG074890 | 65603 0 00000 1 00111 PZE 73,1 RG074900 | 65604 -0 65611 0 06670 MZE ASTRIK,,HC070 RG074910 65605 0 65611 0 06674 PZE BLANK,,HC070 RG074920 | 65606 1 77777 1 65607 TXI *+1,1,-1 RG074930 | 65607 2 00001 2 65602 TIX HC062,2,1 RIGHT JUSTIFY IN AC RG074940 | 65610 -0100 00 0 65631 TNZ HC090 4 CHAR RG074950 | 65611 0100 00 0 65625 HC070 TZE HC080 RG074960 65612 -0534 00 4 10462 LXD OPCDS,4 3 CHAR RG074970 | 65613 -0340 00 4 10462 HC072 LAS OPCDS,4 TEST INSTRUCTION LIST RG074980 | 65614 0020 00 0 65616 TRA *+2 RG074990 | 65615 0020 00 0 65650 TRA HC110 INSTRUCTION FOUND RG075000 | 65616 2 00002 4 65613 TIX HC072,4,2 RG075010 65617 -0534 00 4 66512 LXD PSOPS,4 RG075020 | 65620 -0340 00 4 66512 HC074 LAS PSOPS,4 TEST PSEUDO-OP RG075030 | 65621 0020 00 0 65623 TRA *+2 RG075040 | 65622 0020 00 0 65701 TRA HC130 YES, PROCESS PSEUDO-OP RG075050 | 65623 2 00002 4 65620 TIX HC074,4,2 RG075060 65624 0020 00 0 65636 TRA HC098 GO TEST MACRO LIST RG075070 | 65625 0074 00 4 34503 HC080 TSX ERROR,4 INSTRUCTION FIELD BLANK RG075080 | 65626 -1 00006 0 40453 MON ERM75,,6 ASSUME PZE RG075090 | 65627 0 00014 0 04621 PZE CARD,,12 RG075100 | 65630 0020 00 0 66047 TRA HC300 GO PROCESS ADDRESS FIELD RG075110 65631 -0534 00 4 07504 HC090 LXD COMDS,4 TEST COMMAND LIST RG075120 | 65632 -0340 00 4 07504 LAS COMDS,4 RG075130 | 65633 0020 00 0 65635 TRA *+2 RG075140 | 65634 0020 00 0 65663 TRA HC120 COMMAND FOUND RG075150 | 65635 2 00002 4 65632 TIX *-3,4,2 RG075160 65636 -0534 00 4 66477 HC098 LXD MACRO,4 TEST MACRO LIST RG075170 | 65637 -0340 00 4 66477 LAS MACRO,4 RG075180 | 65640 0020 00 0 65642 TRA *+2 RG075190 | 65641 0020 60 4 66500 TRA* MACRO+1,4 RG075200 | 65642 2 00002 4 65637 TIX *-3,4,2 RG075210 65643 0074 00 4 34503 HC100 TSX ERROR,4 ERROR, ILLEGAL OPERATION RG075220 | 65644 -1 00004 0 40422 MON ERM65,,4 RG075230 | 65645 -0 00014 0 04621 MZE CARD,,12 RG075240 | 65646 0 00004 0 40616 PZE ERM97,,4 EXECUTION IS NOT RECOMMENDED RG075250 | 65647 0020 00 0 66047 TRA HC300 GO PROCESS ADDRESS FIELD RG075260 65650 -0500 00 4 10463 HC110 CAL OPCDS+1,4 GET MACHINE EQUIVALENCE RG075270 | 65651 0602 00 0 37141 SLW HCWD1 RG075280 | 65652 0074 00 4 54767 TSX CTEST,4 TEST FOR INDIRECT ADDRESS RG075290 | 65653 0 00000 1 00111 PZE 73,1 RG075300 | 65654 -0 66047 0 06674 MZE BLANK,,HC300 NO, GO PROCESS ADDRESS RG075310 65655 0 65657 0 06670 PZE ASTRIK,,HC112 YES RG075320 | 65656 0020 00 0 65643 TRA HC100 ERROR, ILLEGAL OPERATION RG075330 | 65657 0441 00 0 37141 HC112 LDI HCWD1 RG075340 | 65660 -0055 00 000060 SIL 000060 RG075350 | 65661 0604 00 0 37141 STI HCWD1 RG075360 1 LISTING OF 12/01/64 PAGE 184 | PROCESS SYMBOLIC CARDS | | 65662 0020 00 0 66047 TRA HC300 GO PROCESS ADDRESS FIELD RG075370 | 65663 -0500 00 4 07505 HC120 CAL COMDS+1,4 GET MACHINE EQUIVALENCE RG075380 65664 0602 00 0 37141 SLW HCWD1 RG075390 | 65665 0074 00 4 54767 HC122 TSX CTEST,4 TEST FOR INDIRECT ADDRESS RG075400 | 65666 0 00000 1 00111 PZE 73,1 AND/OR NON-XMITT RG075410 | 65667 -0 66047 0 06674 MZE BLANK,,HC300 NEITHER GO PROCESS ADDRESS RG075420 | 65670 -0 65673 0 06661 MZE N,,HC124 RG075430 65671 0 65676 0 06670 PZE ASTRIK,,HC126 RG075440 | 65672 0020 00 0 65643 TRA HC100 ERROR, ILLEGAL OPERATION RG075450 | 65673 -0500 00 0 06763 HC124 CAL TAG4 RG075460 | 65674 -0602 00 0 37141 ORS HCWD1 INSERT NON-XMITT ZIGGER RG075470 | 65675 1 77777 1 65665 TXI HC122,1,-1 TEST FOR INDIRECT ADDRESS RG075480 65676 -0500 00 0 06762 HC126 CAL TAG2 RG075490 | 65677 -0602 00 0 37141 ORS HCWD1 INSERT INDIRECT ADDRESS ZIGGER RG075500 | 65700 1 77777 1 66047 TXI HC300,1,-1 GO PROCESS ADDRESS RG075510 | * RG075520 | * EXPAND PSEUDO-OPS RG075530 * RG075540 | 65701 0634 00 4 65711 HC130 SXA HC134,4 POSITION 1ST SUBFIELD RG075550 | 65702 0500 00 0 06614 CLA ZERO RG075560 | 65703 0774 00 2 00007 AXT 7,2 RG075570 | 65704 -2 00001 2 65711 HC132 TNX HC134,2,1 DO NOT GO PAST COLUMN 16 RG075580 65705 1 77777 1 65706 TXI *+1,1,-1 RG075590 | 65706 0074 00 4 54767 TSX CTEST,4 RG075600 | 65707 0 00000 1 00111 PZE 73,1 RG075610 | 65710 0 65704 0 06674 PZE BLANK,,HC132 RG075620 | 65711 0774 00 4 00000 HC134 AXT **,4 RG075630 65712 0020 60 4 66513 TRA* PSOPS+1,4 GO TO APPROPRIATE ROUTINE RG075640 | * DEC PSEUDO-OP RG075650 | 65713 0500 00 0 06614 HC140 CLA ZERO GET VALUE OF SUBFIELD RG075660 | 65714 0074 00 4 66513 TSX FSCAN,4 RG075670 | 65715 0020 00 0 65717 TRA HC142 RG075680 65716 0020 00 0 66041 TRA HC200 ERROR, ILLEGAL ADDRESS RG075690 | 65717 0601 00 0 37141 HC142 STO HCWD1 RG075700 | 65720 0600 00 0 37142 STZ HCWD2 RG075710 | 65721 0074 00 4 66674 TSX HCPUT,4 PUT INSTRUCTION TO BUFFER RG075720 | 65722 0074 00 4 54767 TSX CTEST,4 RG075730 65723 0 00000 1 00111 PZE 73,1 RG075740 | 65724 0 65726 0 06707 PZE COMMA,,HC144 TEST FOR ANY MORE SUBFIELDS RG075750 | 65725 0020 00 0 66046 TRA HC210 NO, GET NEXT CARD RG075760 | 65726 1 77777 1 65713 HC144 TXI HC140,1,-1 YES, GET FIELD RG075770 | * OCT PSEUDO-OP RG075780 65727 0500 00 0 06614 HC150 CLA ZERO INITIALIZE RG075790 | 65730 0600 00 0 37144 STZ HCOCTM SET SIGN INDICATORTO PLUS RG075800 | 65731 0600 00 0 37143 STZ HCWD3 RG075810 | 65732 0074 00 4 54767 TSX CTEST,4 RG075820 | 65733 0 00000 1 00111 PZE 73,1 RG075830 65734 -0 65740 0 06634 MZE PLUS,,HC152+1 TEST FOR SIGN RG075840 | 65735 0 65737 0 06654 PZE MINUS,,HC152 RG075850 | 65736 0020 00 0 65741 TRA HC154 RG075860 | 65737 -0625 00 0 37144 HC152 STL HCOCTM RG075870 | 65740 1 77777 1 65741 TXI *+1,1,-1 RG075880 65741 0074 00 4 54767 HC154 TSX CTEST,4 GET VALUE RG075890 | 65742 0 00000 1 00111 PZE 73,1 RG075900 | 65743 -0 65755 0 06674 MZE BLANK,,HC156 RG075910 | 1 LISTING OF 12/01/64 PAGE 185 | PROCESS SYMBOLIC CARDS | 65744 0 65756 0 06707 PZE COMMA,,HC156+1 RG075920 | 65745 0044 00 0 00000 PAI TEST FOR ILLEGAL CHARACTER RG075930 | 65746 0054 00 000070 RFT 70 RG075940 | 65747 0020 00 0 66041 TRA HC200 ERROR, NOT OCTAL INTEGER RG075950 65750 -0765 00 0 00003 LGR 3 CONVERT FROM BCD TO OCTAL RG075960 | 65751 -0500 00 0 37143 CAL HCWD3 THIS PROCEDURE IS NECESSARY IN ORDER RG075970 | 65752 -0763 00 0 00003 LGL 3 TO PRESERVE THE FIRST OF RG075980 | 65753 0602 00 0 37143 SLW HCWD3 A 12 CHARACTER OCTAL WORD RG075990 | 65754 2 00001 1 65741 TIX HC154,1,1 TEST FOR END OF VARIABLE FIELD RG076000 65755 -0625 00 0 07375 HC156 STL HCSW1 YES, SET SWITCH RG076010 | 65756 0520 00 0 37144 ZET HCOCTM WAS SIGN MINUS RG076020 | 65757 -0501 00 0 06777 ORA PRFX4 YES. OR MINUS TO P-BIT RG076030 | 65760 0602 00 0 37141 SLW HCWD1 NO RG076040 | 65761 0600 00 0 37142 STZ HCWD2 NO SYMBOL RG076050 65762 0074 00 4 66674 TSX HCPUT,4 PUT WORD TO BUFFER RG076060 | 65763 -0520 00 0 07375 NZT HCSW1 TEST FOR END OF VARIABLE FIELD RG076070 | 65764 2 00001 1 65727 TIX HC150,1,1 NO, PROCESS NEXT SUBFIELD RG076080 | 65765 0020 00 0 66046 TRA HC210 YES, GET NEXT CARD RG076090 | * BES AND BSS PSEUDO-OPS RG076100 65766 -0625 00 0 66463 HC170 STL HCSW3 BSS ENTRY POINT RG076110 | 65767 0074 00 4 66513 HC172 TSX FSCAN,4 BES ENTRY POINT RG076120 | 65770 0120 00 0 65772 TPL *+2 GET ADDRESS FIELD RG076130 | 65771 0020 00 0 66041 TRA HC200 ERROR, SYMBOLIC OR NEGATIVE RG076140 | 65772 0100 00 0 65776 TZE HC173 IF WORD COUNT ZERO, NO INSTRUCTIONS RG076150 65773 0734 00 2 00000 PAX 0,2 RG076160 | 65774 0074 00 4 66674 TSX HCPUT,4 PUT ZEROES TO BUFFER RG076170 | 65775 2 00001 2 65774 TIX *-1,2,1 RG076180 | 65776 0520 00 0 66463 HC173 ZET HCSW3 WAS ENTRY BES RG076190 | 65777 0020 00 0 66015 TRA HC176 RG076200 66000 -0520 00 0 07376 NZT HCSW2 YES, WAS THERE A CONSTANT SYMBOL RG076210 | 66001 0020 00 0 66007 TRA HC174 NO, TEST FOR LOCATION SYMBOL RG076220 | 66002 -0534 00 4 24156 LXD CNSYM,4 RG076230 | 66003 -0500 00 0 22033 CAL CNRLC UPDATE LOCATION OF CONSTANT SYMBOL RG076240 | 66004 0761 00 0 00000 NOP RG076250 66005 0602 00 4 24157 SLW CNSYM+1,4 RG076260 | 66006 0020 00 0 66015 TRA HC176 RG076270 | 66007 -0520 00 0 66465 HC174 NZT HCSW5 RG076280 | 66010 0020 00 0 66015 TRA HC176 RG076290 | 66011 -0534 00 4 30104 LXD HCSYM,4 RG076300 66012 -0500 00 0 65431 CAL HCRLC UPDATE LOCATION OF LOCATION SYMBOL RG076310 | 66013 0761 00 0 00000 NOP RG076320 | 66014 0602 00 4 30105 SLW HCSYM+1,4 RG076330 | 66015 0020 00 0 66046 HC176 TRA HC210 GO GET NEXT CARD RG076340 | * BCI PSEUDO-OP RG076350 66016 0074 00 4 66513 HC190 TSX FSCAN,4 GET WORD COUNT RG076360 | 66017 0120 00 0 66021 TPL *+2 RG076370 | 66020 0020 00 0 66041 TRA HC200 ERROR, SYMBOLIC OR NEGATIVE RG076380 | 66021 -0100 00 0 66023 TNZ *+2 RG076390 | 66022 0500 00 0 06626 CLA TEN RG076400 66023 0734 00 2 00000 PAX 0,2 RG076410 | 66024 3 00012 2 66041 TXH HC200,2,10 TEST FOR COUNT IN EXCESS OF 10 RG076420 | 66025 0634 00 2 66036 HC192 SXA HC196,2 RG076430 | 66026 0774 00 2 00006 AXT 6,2 RG076440 | 66027 1 77777 1 66030 HC194 TXI *+1,1,-1 GET A BCD WORD RG076450 66030 0074 00 4 54767 TSX CTEST,4 RG076460 | 1 LISTING OF 12/01/64 PAGE 186 | PROCESS SYMBOLIC CARDS | | 66031 0 00000 1 00111 PZE 73,1 RG076470 66032 0 66041 0 06713 PZE BCD01,,HC200 RG076480 | 66033 2 00001 2 66027 TIX HC194,2,1 RG076490 | 66034 0602 00 0 37141 SLW HCWD1 PUT TO BUFFER RG076500 | 66035 0074 00 4 66674 TSX HCPUT,4 RG076510 | 66036 0774 00 2 00000 HC196 AXT **,2 RG076520 66037 2 00001 2 66025 TIX HC192,2,1 TEST FOR MORE WORDS RG076530 | 66040 0020 00 0 66046 TRA HC210 NO, GO GET NEXT CARD RG076540 | * ILLEGAL ADDRESS RG076550 | 66041 0074 00 4 34503 HC200 TSX ERROR,4 WRITE ERROR RG076560 | 66042 -1 00004 0 40434 MON ERM69,,4 RG076570 66043 -0 00014 0 04621 MZE CARD,,12 RG076580 | 66044 0 00004 0 40554 PZE ERM90,,4 RG076590 | 66045 -0625 00 0 34552 STL ERSWT EXECUTION IMPOSSIBLE RG076600 | * GET NEXT CARD RG076610 | 66046 0020 00 0 65534 HC210 TRA HC030 GET A CARD RG076620 * RG076630 | * PROCESS ADDRESS, TAG, AND DECREMENT RG076640 | * RG076650 | 66047 0500 00 0 06614 HC300 CLA ZERO POSITION ADDRESS FIELD RG076660 | 66050 0774 00 2 00007 AXT 7,2 RG076670 66051 -2 00001 2 66056 HC302 TNX HC304,2,1 DO NOT GO PAST COLUMN 16 RG076680 | 66052 1 77777 1 66053 TXI *+1,1,-1 RG076690 | 66053 0074 00 4 54767 TSX CTEST,4 RG076700 | 66054 0 00000 1 00111 PZE 73,1 RG076710 | 66055 0 66051 0 06674 PZE BLANK,,HC302 RG076720 66056 0074 00 4 66513 HC304 TSX FSCAN,4 GET ELEMENT RG076730 | 66057 0020 00 0 66064 TRA HC306 CONSTANT RG076740 | 66060 0520 00 0 37142 ZET HCWD2 SYMBOL RG076750 | 66061 0020 00 0 66041 TRA HC200 ERROR, ALREADY A SYMBOL RG076760 | 66062 0601 00 0 37142 STO HCWD2 RG076770 66063 0020 00 0 66071 TRA HC310 RG076780 | 66064 0120 00 0 66067 HC306 TPL HC308 RG076790 | 66065 0737 00 4 00000 PAC 0,4 RG076800 | 66066 0754 00 4 00000 PXA 0,4 RG076810 | 66067 0401 00 0 37141 HC308 ADM HCWD1 RG076820 66070 0621 00 0 37141 STA HCWD1 RG076830 | 66071 0074 00 4 54767 HC310 TSX CTEST,4 TEST FOR MORE ELEMENTS RG076840 | 66072 0 00000 1 00111 PZE 73,1 RG076850 | 66073 -0 66100 0 06707 MZE COMMA,,HC330 NO, COMMA ENCOUNTERED RG076860 | 66074 0 66076 0 06674 PZE BLANK,,HC320 NO, BLANK ENCOUNTERED RG076870 66075 3 00001 1 66056 TXH HC304,1,1 RG076880 | 66076 0074 00 4 66674 HC320 TSX HCPUT,4 NO, END OF CARD RG076890 | 66077 0020 00 0 66046 TRA HC210 GO GET NEXT CARD RG076900 | * COMMA ENCOUNTERED PROCESS TAG RG076910 | 66100 -2 00001 1 66076 HC330 TNX HC320,1,1 GET TAG FIELD RG076920 66101 0074 00 4 66513 TSX FSCAN,4 RG076930 | 66102 0120 00 0 66110 TPL HC340 RG076940 | 66103 0074 00 4 34503 HC332 TSX ERROR,4 ILLEGAL TAG RG076950 | 66104 -1 00003 0 40444 MON ERM72,,3 RG076960 | 66105 -0 00014 0 04621 MZE CARD,,12 RG076970 66106 0 00004 0 40554 PZE ERM90,,4 EXECUTION IMPOSSIBLE RG076980 | 66107 0020 00 0 66045 TRA HC210-1 GO GET NEXT CARD RG076990 | 66110 -0340 00 0 06623 HC340 LAS SEVEN RG077000 | 66111 0020 00 0 66103 TRA HC332 RG077010 | 1 LISTING OF 12/01/64 PAGE 187 PROCESS SYMBOLIC CARDS | | 66112 0020 00 0 66113 TRA *+1 RG077020 | 66113 0767 00 0 00017 ALS 15 RG077030 | 66114 -0602 00 0 37141 ORS HCWD1 INSERT TAG INTO INSTRUCTION RG077040 66115 0074 00 4 54767 TSX CTEST,4 TEST CHAR FOLLOWING TAG RG077050 | 66116 0 00000 1 00111 PZE 73,1 RG077060 | 66117 -0 66076 0 06674 MZE BLANK,,HC320 BLANK, GO GET NEXT CARD RG077070 | 66120 0 66122 0 06707 PZE COMMA,,HC350 COMMA, PROCESS DECREMENT RG077080 | 66121 0020 00 0 66103 TRA HC332 RG077090 * COMMA ENCOUNTERED PROCESS DECREMENT RG077100 | 66122 -2 00001 1 66076 HC350 TNX HC320,1,1 GET DECREMENT FIELD RG077110 | 66123 0074 00 4 66513 TSX FSCAN,4 RG077120 | 66124 0020 00 0 66132 TRA HC360 RG077130 | 66125 0074 00 4 34503 HC352 TSX ERROR,4 ILLEGAL DECREMENT RG077140 66126 -0 00004 0 40440 MZE ERM70,,4 RG077150 | 66127 -0 00014 0 04621 MZE CARD,,12 RG077160 | 66130 0 00004 0 40554 PZE ERM90,,4 EXECUTION IMPOSSIBLE RG077170 | 66131 0020 00 0 66045 TRA HC210-1 GO GET NEXT CARD RG077180 | 66132 0734 00 4 00000 HC360 PAX 0,4 UPDATE DECREMENT CONTENTS RG077190 66133 0120 00 0 66135 TPL *+2 RG077200 | 66134 0737 00 4 00000 PAC 0,4 RG077210 | 66135 -0754 00 4 00000 PXD 0,4 RG077220 | 66136 0401 00 0 37141 ADM HCWD1 RG077230 | 66137 0622 00 0 37141 STD HCWD1 RG077240 66140 0074 00 4 54767 TSX CTEST,4 TEST FOR MORE ELEMENTS RG077250 | 66141 0 00000 1 00111 PZE 73,1 RG077260 | 66142 -0 66122 0 06634 MZE PLUS,,HC350 YES RG077270 | 66143 0 66122 0 06654 PZE MINUS,,HC350 YES RG077280 | 66144 0020 00 0 66076 TRA HC320 NO, INSTRUCTION COMPLETE RG077290 * EXPANSION OF GET MACRO RG077300 | 66145 0500 00 0 06614 HC400 CLA ZERO GET FIELD NAME RG077310 | 66146 0774 00 1 00011 AXT 9,1 RG077320 | 66147 0074 00 4 55035 HC402 TSX GETVF,4 GET FIELD NAME RG077330 | 66150 0 00000 0 04621 PZE CARD RG077340 66151 0 00024 0 00020 PZE 16,,20 COLUMNS 16-20 RG077350 | 66152 -0100 00 0 66161 TNZ HC404 TEST FOR BLANK ADDRESS RG077360 | 66153 0074 00 4 34503 TSX ERROR,4 YES, WRITE ERROR MESSAGE RG077370 | 66154 -0 00004 0 40447 MZE ERM74,,4 RG077380 | 66155 -0 00014 0 04621 MZE CARD,,12 RG077390 66156 0 00004 0 34546 PZE ER105,,4 RG077400 | 66157 -0625 00 0 34552 STL ERSWT EXECUTION IMPOSSIBLE RG077410 | 66160 0020 00 0 65534 TRA HC030 RG077420 | 66161 0602 00 0 07110 HC404 SLW TEMP+6 RG077430 | 66162 0774 00 2 01747 AXT P2JC2,2 RG077440 66163 0500 00 2 34025 CLA FNTBL,2 RG077450 | 66164 -0340 00 0 07110 LAS TEMP+6 RG077460 | 66165 0020 00 0 66167 TRA *+2 RG077470 | 66166 0020 00 0 66204 TRA HC406 RG077480 | 66167 2 00003 2 66163 TIX *-4,2,3 RG077490 66170 -0500 00 0 07110 CAL TEMP+6 RG077500 | 66171 0602 00 0 40426 SLW ERM66 ERROR, NOT IN TABLE RG077510 | 66172 0074 00 4 34503 TSX ERROR,4 RG077520 | 66173 -0 00006 0 40426 MZE ERM66,,6 RG077530 | 66174 0 00014 0 04621 PZE CARD,,12 RG077540 66175 -0500 00 0 40426 CAL ERM66 GET NAME RG077550 | 66176 0560 00 0 07077 LDQ BCD77 RG077560 | 1 LISTING OF 12/01/64 PAGE 188 | PROCESS SYMBOLIC CARDS | 66177 0074 00 4 35010 TSX GUESS,4 RG077570 | 66200 0 00003 2 34025 PZE FNTBL,2,3 RG077580 | 66201 0 00000 0 01747 PZE P2JC2 RG077590 | 66202 -0320 00 0 07037 ANA BCD37 RG077600 | 66203 0020 00 0 66161 TRA HC404 RG077610 66204 0120 00 0 66215 HC406 TPL HC410 TEST FOR FIELD DUPLICATELY DEFINED RG077620 | 66205 0560 00 0 07001 LDQ BLNKS RG077630 | 66206 -0765 00 0 00006 LGR 6 RG077640 | 66207 -0100 00 0 66206 TNZ *-1 RG077650 | 66210 -0600 00 0 37645 STQ ERM04 RG077660 66211 0074 00 4 34503 TSX ERROR,4 YES, WRITE ERROR MESSAGE RG077670 | 66212 -0 00010 0 37645 MZE ERM04,,8 RG077680 | 66213 -0 00007 0 37667 MZE ERM07,,7 RG077690 | 66214 0 00012 0 40610 PZE ERM96,,10 RG077700 | 66215 0441 00 2 34027 HC410 LDI FNTBL+2,2 TEST FOR ACCUMULATION RG077710 66216 0054 00 000077 RFT 000077 RG077720 | 66217 0020 00 0 66236 TRA HC430 YES RG077730 | 66220 -0500 00 2 34026 HC412 CAL FNTBL+1,2 NO, GET WBLM FOR P2GET RG077740 | 66221 0602 00 0 07166 SLW PARA+4 RG077750 | 66222 0600 00 0 07165 STZ PARA+3 RG077760 66223 0074 00 4 36325 TSX P2GET,4 BUILD GET PACKAGE RG077770 | 66224 0 00000 0 00000 PZE 0 RG077780 | 66225 0534 00 2 36540 LXA WDCNT,2 RG077790 | 66226 0600 00 0 37142 STZ HCWD2 RG077800 | 66227 0774 00 1 00000 AXT 0,1 RG077810 66230 -0500 00 1 36776 HC420 CAL TWA,1 PUT INSTRUCTIONS TO BUFFER RG077820 | 66231 0602 00 0 37141 SLW HCWD1 RG077830 | 66232 0074 00 4 66674 TSX HCPUT,4 RG077840 | 66233 1 77777 1 66234 TXI *+1,1,-1 RG077850 | 66234 2 00001 2 66230 TIX HC420,2,1 RG077860 66235 0020 00 0 66046 TRA HC210 GET NEXT CARD RG077870 | 66236 -0500 00 0 26132 HC430 CAL HCIPT TEST FOR T LINE AS INSERT POINT RG077880 | 66237 0771 00 0 00036 ARS 30 RG077890 | 66240 -0340 00 0 06677 LAS T RG077900 | 66241 0020 00 0 66220 TRA HC412 NO,GO TO P2GET RG077910 66242 0020 00 0 66244 TRA HC440 RG077920 | 66243 0020 00 0 66220 TRA HC412 RG077930 | 66244 -0500 00 2 34025 HC440 CAL FNTBL,2 YES, BUILD SCTBL ENTRY RG077940 | 66245 -0534 00 4 23645 LXD SCTBL,4 RG077950 | 66246 2 00003 4 66255 TIX HC450,4,3 RG077960 66247 0602 00 0 40416 SLW ERM64 RG077970 | 66250 0074 00 4 34503 TSX ERROR,4 ERROR,SCTBL FULL RG077980 | 66251 -0 00007 0 40512 MZE ERM82,,7 RG077990 | 66252 -0 00004 0 40416 MZE ERM64,,4 RG078000 | 66253 0 00004 0 40554 PZE ERM90,,4 RG078010 66254 0020 00 0 66045 TRA HC210-1 RG078020 | 66255 -0634 00 4 23645 HC450 SXD SCTBL,4 RG078030 | 66256 -0501 00 0 07040 ORA BCD40 RG078040 | 66257 0602 00 4 23645 HC452 SLW SCTBL,4 NAME RG078050 | 66260 -0500 00 0 26132 CAL HCIPT RG078060 66261 -0320 00 0 07070 ANA BCD70 RG078070 | 66262 0602 00 4 23646 HC454 SLW SCTBL+1,4 LNID RG078080 | 66263 -0500 00 2 34027 CAL FNTBL+2,2 RG078090 | 66264 0771 00 0 00022 ARS 18 RG078100 | 66265 -0320 00 0 07006 ANA BCD06 IRT RG078110 1 LISTING OF 12/01/64 PAGE 189 | PROCESS SYMBOLIC CARDS | | 66266 -0602 60 0 66262 ORS* HC454 RG078120 | 66267 0600 00 4 23647 STZ SCTBL+2,4 3RD WORD RG078130 66270 -0500 00 0 10037 CAL HCCLA BUILD INSTRUCTIONS RG078140 | 66271 0602 00 0 37141 SLW HCWD1 RG078150 | 66272 -0500 60 0 66257 CAL* HC452 RG078160 | 66273 0601 00 0 37142 STO HCWD2 RG078170 | 66274 -0500 60 0 66263 CAL* HC454+1 RG078180 66275 -0320 00 0 06713 ANA BCD01 RG078190 | 66276 0621 00 0 37141 STA HCWD1 RG078200 | 66277 0074 00 4 66674 TSX HCPUT,4 CLA BINARY VALUE RG078210 | 66300 -0500 00 0 10337 CAL HCSTO RG078220 | 66301 0602 00 0 37141 SLW HCWD1 RG078230 66302 -0500 00 0 66470 CAL CBNBF ***RG078240 | 66303 0602 00 0 37142 SLW HCWD2 ***RG078250 | 66304 0074 00 4 66674 TSX HCPUT,4 STO BIN BUF RG078260 | 66305 0020 00 0 66046 TRA HC210 GO GET NEXT CARD RG078270 | * RG078280 * EXPANSION OF SET AND TEST MACROS RG078290 | * RG078300 | 66306 0600 00 0 66462 HC500 STZ HC903 SET ENTRY RG078310 | 66307 -0500 00 0 10027 CAL HCCAL RG078320 | 66310 0560 00 0 10221 LDQ HCORS RG078330 66311 0020 00 0 66315 TRA HC520 RG078340 | 66312 -0625 00 0 66462 HC510 STL HC903 TEST ENTRY RG078350 | 66313 -0500 00 0 10141 CAL HCLDI RG078360 | 66314 0560 00 0 10215 LDQ HCONT RG078370 | 66315 0602 00 0 37141 HC520 SLW HCWD1 RG078380 66316 -0600 00 0 66457 STQ HC900 RG078390 | 66317 0600 00 0 66461 STZ HC902 RG078400 | 66320 -0500 00 0 21771 CAL ERTBL RG078410 | 66321 0774 00 2 00007 AXT 7,2 RG078420 | 66322 -2 00001 2 66041 HC530 TNX HC200,2,1 RG078430 66323 1 77777 1 66324 TXI *+1,1,-1 RG078440 | 66324 0074 00 4 54767 TSX CTEST,4 RG078450 | 66325 0 00000 1 00111 PZE 73,1 RG078460 | 66326 -0 66332 0 06657 MZE L,,HC540 RG078470 | 66327 -0 66351 0 06665 MZE R,,HC548 ***RG078480 66330 0 66322 0 06674 PZE BLANK,,HC530 RG078490 | 66331 0020 00 0 66041 TRA HC200 RG078500 | 66332 0400 00 0 06615 HC540 ADD ONE ADDRESS OF CLASSIFY TABLE RG078510 | 66333 0621 00 0 37141 STA HCWD1 RG078520 | 66334 0621 00 0 66457 STA HC900 RG078530 66335 0500 00 0 06614 CLA ZERO RG078540 | 66336 0774 00 2 00004 AXT 4,2 EXPAND INTEGERS INTO BITS RG078550 | 66337 0767 00 0 00011 HC544 ALS 9 RG078560 | 66340 0602 00 0 66460 SLW HC901 RG078570 | 66341 1 77777 1 66342 TXI *+1,1,-1 RG078580 66342 0074 00 4 54767 TSX CTEST,4 RG078590 | 66343 0 00000 1 00111 PZE 73,1 RG078600 | 66344 0 66362 0 06614 PZE ZERO,,HC562 RG078610 | 66345 0734 00 4 00000 PAX 0,4 RG078620 | 66346 -2 00040 4 66353 TNX HC550,4,32 TEST FOR VALID INTEGERS RG078630 66347 -0625 00 0 66461 STL HC902 RG078640 | 66350 0020 00 0 66355 TRA HC560 RG078650 | 66351 0400 00 0 06616 HC548 ADD TWO ***RG078660 | 1 LISTING OF 12/01/64 PAGE 190 | PROCESS SYMBOLIC CARDS | 66352 0020 00 0 66333 TRA HC540+1 ***RG078670 | 66353 0520 00 0 66461 HC550 ZET HC902 RG078680 | 66354 0020 00 0 66041 TRA HC200 RG078690 | 66355 -3 00000 4 66041 HC560 TXL HC200,4,0 RG078700 66356 3 00011 4 66041 TXH HC200,4,9 RG078710 | 66357 -0500 00 0 06615 CAL ONE RG078720 | 66360 0767 00 4 00011 ALS 9,4 RG078730 | 66361 -0501 00 0 66460 ORA HC901 RG078740 | 66362 2 00001 2 66337 HC562 TIX HC544,2,1 GET 4 INTEGERS RG078750 66363 0520 00 0 66462 ZET HC903 SET OR TEST RG078760 | 66364 0020 00 0 66377 TRA HC570 RG078770 | 66365 -0520 00 0 66461 NZT HC902 SET RG078780 | 66366 0020 00 0 66372 TRA HC564 RG078790 | 66367 0760 00 0 00006 COM RG078800 66370 0560 00 0 10017 LDQ HCANS RG078810 | 66371 -0620 00 0 66457 SLQ HC900 RG078820 | 66372 0602 00 0 66460 HC564 SLW HC901 RG078830 | 66373 0074 00 4 35441 TSX STEPC,4 RG078840 | 66374 0 00001 0 66460 PZE HC901,,1 RG078850 66375 0621 00 0 37141 STA HCWD1 RG078860 | 66376 0020 00 0 66407 TRA HC590 RG078870 | 66377 -0520 00 0 66461 HC570 NZT HC902 TEST RG078880 | 66400 0020 00 0 66403 TRA HC580 RG078890 | 66401 0560 00 0 10215 LDQ HCONT RG078900 66402 -0600 00 0 66457 STQ HC900 RG078910 | 66403 0602 00 0 66460 HC580 SLW HC901 RG078920 | 66404 0074 00 4 35441 TSX STEPC,4 RG078930 | 66405 0 00001 0 66460 PZE HC901,,1 RG078940 | 66406 0621 00 0 66457 STA HC900 RG078950 66407 0600 00 0 37142 HC590 STZ HCWD2 PUT 1ST INSTR TO BUFFER RG078960 | 66410 0074 00 4 66674 TSX HCPUT,4 RG078970 | 66411 -0500 00 0 66457 CAL HC900 RG078980 | 66412 0602 00 0 37141 SLW HCWD1 RG078990 | 66413 0074 00 4 66674 TSX HCPUT,4 PUT 2ND INSTR TO BUFFER RG079000 66414 0020 00 0 66046 TRA HC210 GO GET NEXT CARD RG079010 | 66415 0074 00 4 34503 HC592 TSX ERROR,4 ERROR, ILLEGAL EOF RG079020 | 66416 -0 00010 0 66447 MZE HC620,,8 RG079030 | 66417 0 00004 0 64676 PZE PIC94,,4 ASSUME END OF PACKET RG079040 | * END OF PACKET RG079050 66420 -0535 00 2 26127 HC600 LDC CNINS,2 SAVE CONSTANT AREA FOR CONSTANTS RG079060 | 66421 1 01752 2 66422 TXI *+1,2,P2JD1+2 RG079070 | 66422 -3 00000 2 66436 TXL HC605,2,0 RG079080 | 66423 -0634 00 2 66425 SXD HC602,2 RG079090 | 66424 0074 00 4 35441 TSX STEPC,4 RG079100 66425 0 00000 0 06614 HC602 PZE ZERO,,** RG079110 | 66426 0621 00 0 07102 STA TEMP RG079120 | 66427 0621 00 0 26127 STA CNINS STORE LOADING ADDRESS OF CONSTANTS RG079130 | 66430 0774 00 2 00310 AXT P2JC6,2 RG079140 | 66431 0500 00 2 24157 HC604 CLA CNSYM+1,2 DEFINE CONSTANT SYMBOLS RG079150 66432 0400 00 0 07102 ADD TEMP RG079160 | 66433 0601 00 2 24157 STO CNSYM+1,2 RG079170 | 66434 0520 00 2 24160 ZET CNSYM+2,2 RG079180 | 66435 2 00002 2 66431 TIX HC604,2,2 RG079190 | 66436 -0534 00 2 32055 HC605 LXD HCINS,2 TEST FOR ANY INSTRUCTIONS LEFT RG079200 66437 3 01750 2 66441 TXH HC606,2,P2JC8 RG079210 | 1 LISTING OF 12/01/64 PAGE 191 | PROCESS SYMBOLIC CARDS | | 66440 0074 00 4 66746 TSX HCWRT,4 YES, PUT TO TAPE RG079220 66441 -0520 00 0 07425 HC606 NZT EOJSW TEST FOR END OF JOB RG079230 | 66442 0020 00 0 64702 TRA PIT01 YES RG079240 | 66443 0074 00 4 54767 TSX CTEST,4 NO, TEST CARD TYPE RG079250 | 66444 0 00000 0 00001 PZE 1 RG079260 | 66445 0 63141 0 06614 PZE ZERO,,CTG01 RETURN TO PROCESSING PARAMETERS RG079270 66446 0020 00 0 64702 TRA PIT01 NEW PACKET RG079280 | * RG079290 | 66447 314343252721 HC620 BCI 8,ILLEGAL EOF ENCOUNTERED PROCESSING CALC CARDS RG079300 | 66450 436025462660 | 66451 254523466445 66452 632551252460 | 66453 475146232562 | 66454 623145276023 | 66455 214323602321 | 66456 512462606060 66457 0 00000 0 00000 HC900 PZE TEMPORARY CELLS RG079310 | 66460 0 00000 0 00000 HC901 PZE RG079320 | 66461 0 00000 0 00000 HC902 PZE RG079330 | 66462 0 00000 0 00000 HC903 PZE RG079340 | 66463 0 00000 0 00000 HCSW3 PZE BSS VS BES SWITCH RG079350 66464 0 00000 0 00000 HCSW4 PZE RG079360 | 66465 0 00000 0 00000 HCSW5 PZE LOCATION SYMBOL SWITCH RG079370 | 66466 002300000000 C00XX BCI 1,0C0000 CONSTANT SYMBOL SKELETON RG079380 | 66467 +007760606060 CNMSK OCT 007760606060 CONSTANT SYMBOL MASK RG079390 | 66470 223145226426 CBNBF BCI 1,BINBUF ***RG079400 * RG079410 | 66471 000000272563 BCI 1,000GET -6 RG079420 | 66472 0 00000 0 66145 PZE HC400 -5 RG079430 | 66473 000000622563 BCI 1,000SET -4 RG079440 | 66474 0 00000 0 66306 PZE HC500 -3 RG079450 66475 000063256263 BCI 1,00TEST -2 RG079460 | 66476 0 00000 0 66312 PZE HC510 -1 RG079470 | 66477 0 00006 0 00000 MACRO PZE ,,6 LIST OF MACROS RG079480 | 66500 000000226262 BCI 1,000BSS -10 RG079490 | 66501 0 00000 0 65766 PZE HC170 -9 RG079500 66502 000000222562 BCI 1,000BES -8 RG079510 | 66503 0 00000 0 65767 PZE HC172 -7 RG079520 | 66504 000000462363 BCI 1,000OCT -6 RG079530 | 66505 0 00000 0 65727 PZE HC150 -5 RG079540 | 66506 000000242523 BCI 1,000DEC -4 RG079550 66507 0 00000 0 65713 PZE HC140 -3 RG079560 | 66510 000000222331 BCI 1,000BCI -2 RG079570 | 66511 0 00000 0 66016 PZE HC190 -1 RG079580 | 66512 0 00012 0 00000 PSOPS PZE ,,10 LIST OF PSEUDO-OPS RG079590 | 1 LISTING OF 12/01/64 PAGE 192 SUBROUTINE TO GET ELEMENT OF VARIABLE FIELD | | * 73,1 IS ASSUMED TO BE LEFT-MOST CHARACTER POSITION RG079610 | * ELEMENT WITH ITS SIGN WILL BE LEFT IN AC RG079620 | * CALLING SEQUENCE RG079630 * TSX FSCAN,4 RG079640 | * RETURN IF ELEMENT IS A CONSTANT RG079650 | * RETURN IF ELEMENT IS A SYMBOL RG079660 | * ON RETURN 73,1 IS POSITION TO RIGHT OF ELEMENT RG079670 | 66513 0634 00 4 66602 FSCAN SXA FSC50,4 INITIALIZE RG079680 66514 0600 00 0 66607 STZ FSC90 RG079690 | 66515 0604 00 0 66610 STI FSC91 RG079700 | 66516 0074 00 4 54767 FSC10 TSX CTEST,4 TEST FOR SIGN RG079710 | 66517 0 00000 1 00111 PZE 73,1 RG079720 | 66520 -0 66604 0 06654 MZE MINUS,,FSC60 RG079730 66521 0 66605 0 06634 PZE PLUS,,FSC60+1 RG079740 | 66522 0074 00 4 54767 FSC20 TSX CTEST,4 TEST FOR SYSTEM SYMBOL RG079750 | 66523 0 00000 1 00111 PZE 73,1 RG079760 | 66524 -0 66555 0 06627 MZE EQUAL,,FSC34 ***RG079770 | 66525 0 66550 0 06614 PZE ZERO,,FSC32 ***RG079780 66526 -0754 00 0 00000 PXD 0,0 NO RG079790 | 66527 0074 00 4 54767 FSC24 TSX CTEST,4 GET NORMAL ELEMENT RG079800 | 66530 0 00000 1 00111 PZE 73,1 TEST FOR END OF ELEMENT RG079810 | 66531 -0 66536 0 06654 MZE MINUS,,FSC30 RG079820 | 66532 -0 66536 0 06634 MZE PLUS,,FSC30 RG079830 66533 -0 66536 0 06707 MZE COMMA,,FSC30 RG079840 | 66534 0 66536 0 06674 PZE BLANK,,FSC30 RG079850 | 66535 2 00001 1 66527 TIX FSC24,1,1 RG079860 | 66536 0044 00 0 00000 FSC30 PAI END OF ELEMENT RG079870 | 66537 0444 00 0 07001 OFT BLNKS TEST FOR ZONES RG079880 66540 0020 00 0 66577 TRA FSC40 YES,SYMBOL RG079890 | 66541 0602 00 0 07102 SLW TEMP NO, CONSTANT RG079900 | 66542 0074 00 4 36560 TSX BCDBIC,4 CONVERT TO BINARY RG079910 | 66543 0 00000 0 07102 PZE TEMP RG079920 | 66544 0520 00 0 66607 ZET FSC90 RG079930 66545 -0760 00 0 00003 SSM GET SIGN RG079940 | 66546 0534 00 4 66602 LXA FSC50,4 RG079950 | 66547 0020 00 4 00001 TRA 1,4 RETURN WITH BINARY VALUE RG079960 | 66550 0074 00 4 54767 FSC32 TSX CTEST,4 ***RG079970 | 66551 0 00000 1 00112 PZE 74,1 ***RG079980 66552 0 66555 0 06614 PZE ZERO,,FSC34 ***RG079990 | 66553 -0754 00 0 00000 PXD 0,0 ***RG080000 | 66554 0020 00 0 66527 TRA FSC24 ***RG080010 | 66555 0634 00 2 66576 FSC34 SXA FSC38,2 SAVE XR2 RG080020 | 66556 0774 00 2 00006 AXT 6,2 RG080030 66557 -0754 00 0 00000 PXD 0,0 RG080040 | 66560 0074 00 4 54767 FSC36 TSX CTEST,4 GET SYSTEM SYMBOL RG080050 | 66561 0 00000 1 00111 PZE 73,1 RG080060 | 66562 0 66041 0 06674 PZE BLANK,,HC200 RG080070 | 66563 -2 00001 1 66041 TNX HC200,1,1 RG080080 66564 2 00001 2 66560 TIX FSC36,2,1 RG080090 | 66565 0602 00 0 66744 SLW SLATEM RG080100 | 66566 -0320 00 0 07003 ANA BCD03 RG080110 | 66567 0322 00 0 66745 ERA SLARN RG080120 | 66570 -0100 00 0 66575 TNZ FSC37 RG080130 66571 -0500 00 0 66744 CAL SLATEM RG080140 | 66572 -0320 00 0 07074 ANA BCD74 RG080150 | 1 LISTING OF 12/01/64 PAGE 193 | SUBROUTINE TO GET ELEMENT OF VARIABLE FIELD | 66573 -0501 00 0 22034 ORA RPTNO RG080160 | 66574 0020 00 0 66576 TRA FSC38 RG080170 | 66575 -0500 00 0 66744 FSC37 CAL SLATEM RG080180 | 66576 0774 00 2 00000 FSC38 AXT **,2 RG080190 | 66577 0520 00 0 66607 FSC40 ZET FSC90 RG080200 66600 -0760 00 0 00003 SSM GET SIGN RG080210 | 66601 0441 00 0 66610 LDI FSC91 RG080220 | 66602 0774 00 4 00000 FSC50 AXT **,4 RESTORE XR4 RG080230 | 66603 0020 00 4 00002 TRA 2,4 RETURN WITH SYMBOL RG080240 | 66604 -0625 00 0 66607 FSC60 STL FSC90 SET SIGN OF ELEMENT RG080250 66605 2 00001 1 66522 TIX FSC20,1,1 RG080260 | 66606 0020 00 0 66536 TRA FSC30 RG080270 | 66607 0 00000 0 00000 FSC90 PZE 0 RG080280 | 66610 0 00000 0 00000 FSC91 PZE RG080290 | 1 LISTING OF 12/01/64 PAGE 194 WE-ARE-AT SUBROUTINE FOR HAND CALCS | | 66611 0634 00 1 66670 HCPSD SXA HCS70,1 RG080310 | 66612 0634 00 2 66671 SXA HCS70+1,2 RG080320 | 66613 0634 00 4 66672 SXA HCS70+2,4 RG080330 66614 -0500 00 4 00001 CAL 1,4 RG080340 | 66615 -0320 00 0 66467 ANA CNMSK RG080350 | 66616 0322 00 0 66466 ERA C00XX RG080360 | 66617 0100 00 0 66641 TZE HCS30 RG080370 | 66620 -0625 00 0 66465 STL HCSW5 SET LOCATION SYMBOL SWITCH RG080380 66621 0774 00 2 01750 AXT P2JC7,2 TEST FOR MULTIPLY DEFINED SYMBOLS RG080390 | 66622 -0500 00 4 00001 CAL 1,4 RG080400 | 66623 -0340 00 2 30104 HCS10 LAS HCSYM,2 RG080410 | 66624 0020 00 0 66626 TRA *+2 RG080420 | 66625 0020 00 0 66662 TRA HCS60 YES,ERROR RG080430 66626 0520 60 0 66623 ZET* HCS10 RG080440 | 66627 2 00002 2 66623 TIX HCS10,2,2 RG080450 | 66630 -0534 00 2 30104 LXD HCSYM,2 NO, MAKE NEW ENTRY RG080460 | 66631 2 00002 2 66633 TIX HCS20,2,2 RG080470 | 66632 0774 00 2 01750 AXT P2JC7,2 IF TABLE FULL, START OVER RG080480 66633 -0634 00 2 30104 HCS20 SXD HCSYM,2 RG080490 | 66634 -0500 00 4 00001 CAL 1,4 RG080500 | 66635 0602 00 2 30104 SLW HCSYM,2 SYMBOL RG080510 | 66636 -0500 00 0 65431 CAL HCRLC RG080520 | 66637 0602 00 2 30105 SLW HCSYM+1,2 RELATIVE LOCATION RG080530 66640 0020 00 0 66670 TRA HCS70 RG080540 | 66641 -0625 00 0 07376 HCS30 STL HCSW2 SET CONSTANT SYMBOL SWITCH RG080550 | 66642 0774 00 2 00310 AXT P2JC6,2 TEST FOR MULTIPLY DEFINED CONSTANTS RG080560 | 66643 -0500 00 4 00001 CAL 1,4 RG080570 | 66644 -0340 00 2 24156 HCS40 LAS CNSYM,2 RG080580 66645 0020 00 0 66647 TRA *+2 RG080590 | 66646 0020 00 0 66662 TRA HCS60 YES, ERROR RG080600 | 66647 0520 60 0 66644 ZET* HCS40 RG080610 | 66650 2 00002 2 66644 TIX HCS40,2,2 RG080620 | 66651 -0534 00 2 24156 LXD CNSYM,2 NO, MAKE NEW ENTRY RG080630 66652 2 00002 2 66654 TIX HCS50,2,2 RG080640 | 66653 0774 00 2 00310 AXT P2JC6,2 RG080650 | 66654 -0634 00 2 24156 HCS50 SXD CNSYM,2 RG080660 | 66655 -0500 00 4 00001 CAL 1,4 RG080670 | 66656 0602 00 2 24156 SLW CNSYM,2 CONSTANT SYMBOL RG080680 66657 -0500 00 0 22033 CAL CNRLC RG080690 | 66660 0602 00 2 24157 SLW CNSYM+1,2 RELATIVE LOCATION RG080700 | 66661 0020 00 0 66670 TRA HCS70 RG080710 | 66662 0602 00 0 40461 HCS60 SLW ERM76 DUPLICATELY DEFINED SYMBOL RG080720 | 66663 0074 00 4 34503 TSX ERROR,4 RG080730 66664 -1 00005 0 40461 MON ERM76,,5 GET NPD ENTRY RG080740 | 66665 -0 00014 0 04621 MZE CARD,,12 RG080750 | 66666 0 00004 0 40554 PZE ERM90,,4 RG080760 | 66667 -0625 00 0 34552 STL ERSWT RG080770 | 66670 0774 00 1 00000 HCS70 AXT **,1 RETURN RG080780 66671 0774 00 2 00000 AXT **,2 RG080790 | 66672 0774 00 4 00000 AXT **,4 RG080800 | 66673 0020 00 4 00002 TRA 2,4 RG080810 | 1 LISTING OF 12/01/64 PAGE 195 | ROUTINE TO BUFFER INSTRUCTIONS | 66674 0634 00 4 66742 HCPUT SXA HCP50,4 SAVE XR4 RG080830 | 66675 0520 00 0 07376 ZET HCSW2 TEST FOR CONSTANT RG080840 | 66676 0020 00 0 66714 TRA HCP30 YES, PUT TO CONSTANT BUFFER RG080850 | 66677 -0534 00 4 32055 HCP10 LXD HCINS,4 NO, PUT TO HAND CALC BUFFER RG080860 66700 2 00002 4 66703 TIX HCP20,4,2 TEST FOR BUFFER FULL RG080870 | 66701 0074 00 4 66746 TSX HCWRT,4 YES, WRITE TO TAPE RG080880 | 66702 0020 00 0 66677 TRA HCP10 RG080890 | 66703 -0634 00 4 32055 HCP20 SXD HCINS,4 PUT 2 WORDS TO BUFFER RG080900 | 66704 -0500 00 0 37141 CAL HCWD1 RG080910 66705 0602 00 4 32055 SLW HCINS,4 RG080920 | 66706 -0500 00 0 37142 CAL HCWD2 RG080930 | 66707 0602 00 4 32056 SLW HCINS+1,4 RG080940 | 66710 0500 00 0 65431 CLA HCRLC UPDATE RELATIVE LOCATION RG080950 | 66711 0400 00 0 06615 ADD ONE RG080960 66712 0601 00 0 65431 STO HCRLC RG080970 | 66713 0020 00 0 66742 TRA HCP50 RG080980 | 66714 -0534 00 4 26127 HCP30 LXD CNINS,4 CONSTANT TO BUFFER RG080990 | 66715 2 00002 4 66732 TIX HCP40,4,2 RG081000 | 66716 0074 00 4 34503 TSX ERROR,4 RG081010 66717 -0 00007 0 66723 MZE HCP38,,7 RG081020 | 66720 0 00004 0 40554 PZE ERM90,,4 RG081030 | 66721 -0625 00 0 34552 STL ERSWT RG081040 | 66722 0020 00 0 66742 TRA HCP50 RG081050 | 66723 634646604421 HCP38 BCI 7,TOO MANY HAND CALC OUT-OF-LINE CONSTANTS RG081060 66724 457060302145 | 66725 246023214323 | 66726 604664634046 | 66727 264043314525 | 66730 602346456263 66731 214563626060 | 66732 -0634 00 4 26127 HCP40 SXD CNINS,4 RG081070 | 66733 -0500 00 0 37141 CAL HCWD1 RG081080 | 66734 0602 00 4 26127 SLW CNINS,4 RG081090 | 66735 -0500 00 0 37142 CAL HCWD2 RG081100 66736 0602 00 4 26130 SLW CNINS+1,4 RG081110 | 66737 0500 00 0 22033 CLA CNRLC RG081120 | 66740 0400 00 0 06615 ADD ONE RG081130 | 66741 0601 00 0 22033 STO CNRLC RG081140 | 66742 0774 00 4 00000 HCP50 AXT **,4 RETURN RG081150 66743 0020 00 4 00001 TRA 1,4 RG081160 | 66744 0 00000 0 00000 SLATEM PZE 0 RG081170 | 66745 +000000005145 SLARN OCT 5145 RG081180 | 1 LISTING OF 12/01/64 PAGE 196 | ROUTINE TO WRITE HAND CALC BUFFERS TO TAPE | 66746 0634 00 4 66772 HCWRT SXA HCW40,4 SAVE XR4 RG081200 | 66747 -0535 00 4 30104 LDC HCSYM,4 COMPUTE SYMBOL COUNT RG081210 | 66750 1 01752 4 66751 TXI *+1,4,P2JC7+2 RG081220 | 66751 -0634 00 4 36772 SXD HCCMD+1,4 RG081230 66752 -0535 00 4 32055 LDC HCINS,4 COMPUTE INSRRUCTION COUNT RG081240 | 66753 1 01752 4 66754 TXI *+1,4,P2JC8+2 RG081250 | 66754 -0634 00 4 36774 SXD HCCMD+3,4 RG081260 | 66755 -3 00000 4 66772 TXL HCW40,4,0 TEST FOR NO INSTRUCTIONS RG081270 | 66756 0074 00 4 05255 HCW30 TSX RD(WR),4 WRITE SYMBOLS AND INSTRS TO TAPE RG081280 66757 -0 36771 0 00033 MZE 27,,HCCMD RG081290 | 66760 0020 00 0 66762 TRA *+2 RG081300 | 66761 0074 00 4 35007 TSX ENDTP,4 RG081310 | 66762 0500 00 0 22036 CLA HCRDS COUNT TAPE RECORD RG081320 | 66763 0400 00 0 06615 ADD ONE RG081330 66764 0601 00 0 22036 STO HCRDS RG081340 | 66765 0500 00 0 26133 CLA HCBUF+3 RG081350 | 66766 0400 00 0 06615 ADD ONE RG081360 | 66767 0601 00 0 26133 STO HCBUF+3 INSERT SEQUENCE WORK RG081370 | 66770 0774 00 4 01752 AXT P2JC8+2,4 RG081380 66771 -0634 00 4 32055 SXD HCINS,4 RG081390 | 66772 0774 00 4 00000 HCW40 AXT **,4 RG081400 | 66773 0020 00 4 00001 TRA 1,4 RETURN RG081410 | 67304 P1END BES 200 RG081420 | 00000 TCD 0 END OF PHASE 1 RG081430 1 LISTING OF 12/01/64 PAGE 197 | PHASE 2 9PAC22 | | 37621 P2ORG EQU P1ORG RG081460 | 37621 ORG P2ORG RG081470 37621 114721230202 BCI 1,9PAC22 FILE 2 RECORD 2 RG081480 | 37622 512747306202 BCI 1,RGPHS2 RG081490 | 00100 ORG SYSTRA RG081500 | 00100 0020 00 0 52554 TRA P2000 TRANSFER TO START OF PHASE 2 RG081510 | 37623 ORG P2ORG+2 RG081520 37623 606063302560 P2MM1 BCI 2, THE RG081530 | 37624 606060606060 | 37625 606321224325 BCI 3, TABLE IS FULL RG081540 | 37626 603162602664 | 37627 434360606060 37630 606060606060 P2MM2 BCI 3, RG081550 | 37631 606060606060 | 37632 606060606060 | 37633 633031626031 BCI 5,THIS IS NOT FOUND IN THE RG081560 | 37634 626045466360 37635 264664452460 | 37636 314560633025 | 37637 606060606060 | 37640 632122432560 BCI 1,TABLE RG081570 | 37641 602551514651 P2MM3 BCI 5, ERROR CONDITION NUMBER RG081580 37642 602346452431 | 37643 633146456045 | 37644 644422255160 | 37645 606060606060 | 37646 -0500 00 2 37665 P2M01 CAL P2M05,2 SET UP MESSAGE RG081590 37647 0602 00 0 37624 SLW P2MM1+1 X RG081600 | 37650 0074 00 4 34503 TSX ERROR,4 PRINT RG081610 | 37651 0 00005 0 37623 PZE P2MM1,0,5 X RG081620 | 37652 0000 00 0 37652 HTR * STOP RG081630 | 37653 606047622460 BCI 5, PSD NPD SR LFT CBT RG081640 37654 606045472460 | 37655 606062516060 | 37656 606043266360 | 37657 606023226360 | 37660 606063312460 BCI 5, TID CNT SORT SYMB BETA RG081650 37661 606023456360 | 37662 606246516360 | 37663 606270442260 | 37664 602225632160 | 37665 0560 00 0 37632 P2M05 LDQ P2MM2+2 SET UP MESSAGE RG081660 37666 -0600 00 0 37630 STQ P2MM2 X RG081670 | 37667 0634 00 4 37675 SXA P2M04,4 SAVE RETURN RG081680 | 37670 0602 00 0 37631 P2M03 SLW P2MM2+1 X RG081690 | 37671 -0500 00 2 37665 CAL P2M05,2 GET NAME OF TABLE RG081700 | 37672 0602 00 0 37637 SLW P2MM2+7 X RG081710 37673 0074 00 4 34503 TSX ERROR,4 PRINT RG081720 | 37674 0 00011 0 37630 PZE P2MM2,0,9 X RG081730 | 37675 0774 00 4 00000 P2M04 AXT 0,4 RETURN TO MAIN RG081740 | 37676 0020 00 4 00001 TRA 1,4 X RG081750 | 37677 0634 00 4 37712 P2M06 SXA P2M07,4 SAVE XR4 RG081760 37700 0500 00 4 00001 CLA 1,4 GET ERROR NUMBER RG081770 | 37701 -0765 00 0 00011 LGR 9 SET UP MESSAGE RG081780 | 37702 0774 00 4 00003 AXT 3,4 X RG081790 | 1 LISTING OF 12/01/64 PAGE 198 | PHASE 2 9PAC22 | 37703 -0500 00 0 37632 CAL P2MM2+2 X RG081800 | 37704 0767 00 0 00003 ALS 3 X RG081810 | 37705 -0763 00 0 00003 LGL 3 X RG081820 | 37706 2 00001 4 37704 TIX *-2,4,1 X RG081830 37707 0602 00 0 37645 SLW P2MM3+4 X RG081840 | 37710 0074 00 4 34503 TSX ERROR,4 PRINT RG081850 | 37711 0 00005 0 37641 PZE P2MM3,0,5 X RG081860 | 37712 0774 00 4 00000 P2M07 AXT 0,4 RETURN TO MAIN RG081870 | 37713 0020 00 4 00002 TRA 2,4 RG081880 1 LISTING OF 12/01/64 PAGE 199 | SUBROUTINE FOR BUILDING INSTRUCTIONS | | * CALLING SEQUENCE RG081900 | * LDQ KEY RG081910 * TSX STEPI,4 RG081920 | * P A,T,D, RG081930 | * P=PZE IMPLIES END OF INSTRUCTIONS RG081940 | * P=MZE IMPLIES MORE INSTRUCTIONS RG081950 | * A=ADDRESS OF IST INSTRUCTION IN BLOCK RG081960 * T=1 IMPLIES USE EACH INSTR ONLY ONCE RG081970 | * T=0 IMPLIES USE SAME INSTR D TIMES RG081980 | * D=NO OF INSTRUCTIONS AND UNDEFINED SYMBOLSRG081990 | * KEY IS DIVIDED INTO 12 SEGMENTS, THUS THE RG082000 | * FIRST 12 INSTRUCTION CAN HAVE THEIR ADDRESS RG082010 * MODIFIED RG082020 | * IF KEY=0, USE ADDRESS FOUND IN INSTRUCTION RG082030 | * =1, USE SELF-ADDRESS FOUND IN INSTRUCTION RG082040 | * =2, USE SELF+ADDRESS FOUND IN INSTRUCTION RG082050 | * =3, SEARCH ICPSD TABLE FOR VALUE OF SYMBOL RG082060 * SPECIFIED. IF SYMBOL UNDEFINED RG082070 | * MAKE ENTRY TO ICNPD TABLE. RG082080 | * =4, MAKE ENTRY TO ICNPD TABLE RG082090 | * =5, GET ADDRESS FROM SUBROUTINE TABLE RG082100 | * RG082110 00144 ICSZE EQU 100 BUFFER SIZE FOR INSTRUCTIONS RG082120 | 37714 3 00143 0 00000 ICBUF IORT **,,ICSZE-1 INSTRUCTION BUFFER RG082130 | 37715 BSS ICSZE-1 * RG082140 | 40060 3 00143 0 00000 IORT **,,ICSZE-1 RG082150 | 40061 BSS ICSZE-1 * RG082160 40224 3 00152 0 37714 IORT ICBUF,,ICSZE+6 RG082170 | 40225 0 00000 2 37714 ICCMD PZE ICBUF,2,0 * RG082180 | 40226 3 00152 0 40060 IORT ICBUF+ICSZE,,ICSZE+6 RG082190 | * RG082200 | 40227 0634 00 1 40315 STEPI SXA IC121,1 SAVE INDEX REGISTERS RG082210 40230 0634 00 2 40316 SXA IC122,2 * RG082220 | 40231 0634 00 4 40317 IC020 SXA IC123,4 * RG082230 | 40232 -0500 00 0 06775 CAL PRFX1 RG082240 | 40233 -0602 00 4 00001 ORS 1,4 RG082250 | 40234 0500 00 4 00001 CLA 1,4 GET INSTRUCTION COUNT RG082260 40235 -0734 00 1 00000 PDX 0,1 * RG082270 | 40236 -3 00000 1 40315 TXL IC121,1,0 * RG082280 | 40237 0754 00 1 00000 PXA 0,1 * RG082290 | 40240 0401 00 4 00001 ADM 1,4 LOCATE BLOCK OF INSTRUCTIONS RG082300 | 40241 0621 00 0 40270 STA IC100 RG082310 40242 0774 00 2 00000 IC080 AXT **,2 INITIALIZE BUFFER MONITOR RG082320 | 40243 0500 00 0 04401 IC090 CLA ICULC GET INSTRUCTION LOCATION COUNT RG082330 | 40244 3 00000 2 40246 TXH *+2,2,0 TEST FO* START OF NEW BUDFER RG082340 | 40245 0621 60 0 40225 STA* ICCMD YES RG082350 | 40246 0340 00 0 04402 CAS CCULC TEST FOR FULL CORE RG082360 40247 0761 00 0 00000 NOP * RG082370 | 40250 0020 00 0 40252 TRA *+2 * RG082380 | 40251 1 77777 2 40264 TXI IC095,2,-1 RG082390 | 40252 0074 00 4 34503 TSX ERROR,4 * RG082400 | 40253 0 00006 0 40256 PZE IC094,,6 ERROR MESSAGE RG082410 40254 -0625 00 0 34552 STL ERSWT EXECUTION IMPOSSIBLE RG082420 | 40255 0074 00 4 04000 TSX LOST,4 RG082430 | 40256 272545255121 IC094 BCI 6,GENERATED PROGRAM HAS EXCEEDED CORE RG082440 | 1 LISTING OF 12/01/64 PAGE 200 | SUBROUTINE FOR BUILDING INSTRUCTIONS | 40257 632524604751 | 40260 462751214460 | 40261 302162602567 | 40262 232525242524 40263 602346512560 | 40264 0500 00 0 06614 IC095 CLA ZERO PROCESS MODIFICATION KEY RG082450 | 40265 -0763 00 0 00003 LGL 3 * RG082460 | 40266 0734 00 4 00000 PAX 0,4 * RG082470 | 40267 -0600 00 0 40501 STQ IC900 SAVE MQ RG082480 40270 -0500 00 1 00000 IC100 CAL **,1 GET INSTRUCTION RG082490 | 40271 0602 60 0 40225 SLW* ICCMD PUT TO OUTPUT BUFFER RG082500 | 40272 0020 00 4 40302 TRA *+8,4 ADDRESS MODIFICATION CODE RG082510 | 40273 0020 00 0 40302 TRA IC110 7 RG082520 | 40274 0020 00 0 40302 TRA IC110 6 RG082530 40275 0020 00 0 40427 TRA IC200 5 SUBROUTINE RG082540 | 40276 1 77777 1 40374 TXI IC170,1,-1 4 SYMBOL NOT PASSED RG082550 | 40277 1 77777 1 40327 TXI IC160,1,-1 3 SYMBOL RG082560 | 40300 0020 00 0 40325 TRA IC140 2 *+A RG082570 | 40301 0020 00 0 40323 TRA IC130 1 *-A RG082580 40302 0621 60 0 40225 IC110 STA* ICCMD 0 INSERT MODIFIED ADDRESS RG082590 | 40303 0500 00 0 04401 CLA ICULC UPDATE LOCATION COUNTER RG082600 | 40304 0400 00 0 06615 ADD ONE RG082610 | 40305 0601 00 0 04401 STO ICULC RG082620 | 40306 3 77635 2 40312 TXH IC120,2,1-ICSZE RG082630 40307 0634 00 2 40242 SXA IC080,2 SAVE BUFFER COUNT RG082640 | 40310 0074 00 2 40565 TSX IC500,2 WRITE OUT BUFFER RG082650 | 40311 0774 00 2 00000 AXT 0,2 RG082660 | 40312 0560 00 0 40501 IC120 LDQ IC900 RESTORE MQ RG082670 | 40313 2 00001 1 40243 TIX IC090,1,1 TEST FOR MORE INSTRCUTIONS RG082680 40314 0634 00 2 40242 SXA IC080,2 SAVE BUFFER COUNTER RG082690 | 40315 0774 00 1 00000 IC121 AXT **,1 RESTORE XRS RG082700 | 40316 0774 00 2 00000 IC122 AXT **,2 RG082710 | 40317 0774 00 4 00000 IC123 AXT **,4 RG082720 | 40320 0500 00 0 04401 CLA ICULC RG079518 RG082730 40321 0402 00 0 06615 SUB ONE RETURN WITH CURRENT LOCATION IN AC RG082740 | 40322 0020 00 4 00002 TRA 2,4 RETURN RG082750 | 40323 0737 00 4 00000 IC130 PAC 0,4 GET NEGATIVE ADDRESS RG082760 | 40324 0754 00 4 00000 PXA 0,4 * RG082770 | 40325 0400 00 0 04401 IC140 ADD ICULC ADD CURRENT LOCATION RG082780 40326 0020 00 0 40302 TRA IC110 * *-A OR *+A RG082790 | 40327 -0500 60 0 40270 IC160 CAL* IC100 GET SYMBOL RG082800 | 40330 0074 00 4 40466 TSX IC400,4 TEST FOR GENERATED SYMBOL RG082810 | 40331 0020 00 0 40343 TRA IC166 NO RG082820 | 40332 0774 00 4 03721 AXT P2JB2,4 YES RG082830 40333 -0340 00 4 14404 IC162 LAS ICPSD,4 SEARCH FOR SYMBOL RG082840 | 40334 0020 00 0 40336 TRA *+2 RG082850 | 40335 1 00001 1 40340 TXI IC164,1,1 RG082860 | 40336 2 00002 4 40333 TIX IC162,4,2 RG082870 | 40337 0020 00 0 40374 TRA IC170 NOT FOUND RG082880 40340 -0500 60 0 40270 IC164 CAL* IC100 SYMBOL FOUND RG082890 | 40341 0401 00 4 14405 ADM ICPSD+1,4 GET ACTUAL LOCATION RG082900 | 40342 1 77777 1 40302 TXI IC110,1,-1 RG082910 | 40343 0602 00 0 40373 IC166 SLW IC168+9 BUILD ERROR MESSAGE RG082920 | 40344 0535 00 4 40317 LAC IC123,4 RG082930 40345 0754 00 4 00000 PXA 0,4 RG082940 | 1 LISTING OF 12/01/64 PAGE 201 | SUBROUTINE FOR BUILDING INSTRUCTIONS | | 40346 -0765 00 0 00017 LGR 15 RG082950 40347 0774 00 4 00005 AXT 5,4 RG082960 | 40350 0767 00 0 00003 ALS 3 RG082970 | 40351 -0763 00 0 00003 LGL 3 RG082980 | 40352 2 00001 4 40350 TIX *-2,4,1 RG082990 | 40353 -0501 00 0 07000 ORA PRFX6 RG083000 40354 0602 00 0 40366 SLW IC168+4 RG083010 | 40355 0074 00 4 34503 TSX ERROR,4 RG083020 | 40356 -0 00012 0 40362 MZE IC168,,10 RG083030 | 40357 0 00004 0 34546 PZE ER105,,4 RG083040 | 40360 -0625 00 0 34552 STL ERSWT RG083050 40361 0020 00 0 40314 TRA IC121-1 RG083060 | 40362 627062632544 IC168 BCI 5,SYSTEM ERROR AT LOCATION RG083070 | 40363 602551514651 | 40364 602163604346 | 40365 232163314645 40366 606060606060 | 40367 603143432527 BCI 5, ILLEGAL ADDRESS SYMBOL RG083080 | 40370 214360212424 | 40371 512562626062 | 40372 704422464360 40373 606060606060 | 40374 -0500 60 0 40270 IC170 CAL* IC100 GET SYMBOL RG083090 | 40375 0074 00 4 40466 TSX IC400,4 TEST FOR GENERATED SYMBOL RG083100 | 40376 0020 00 0 40343 TRA IC166 NO, ERROR RG083110 | 40377 -0534 00 4 20326 LXD ICNPD,4 YES, MAKE ENTRY TO SYMBOLS NEEDED TBL RG083120 40400 2 00002 4 40422 TIX IC175,4,2 * RG083130 | 40401 0074 00 4 36066 TSX MAPUT,4 PUT COMPLETED ADDRESSES TO TAPE 25 RG083140 | 40402 -0534 00 4 20326 LXD ICNPD,4 RG083150 | 40403 -0500 60 0 40270 CAL* IC100 RG083160 | 40404 2 00002 4 40422 TIX IC175,4,2 TRY AGAIN RG083170 40405 0074 00 4 34503 TSX ERROR,4 * RG083180 | 40406 -0 00005 0 40415 MZE IC174,,5 RG083190 | 40407 0 00004 0 40411 PZE IC173,,4 RG083200 | 40410 0020 00 0 40302 TRA IC110 RG083210 | 40411 634646604421 IC173 BCI 4,TOO MANY PARAMETERS RG083220 40412 457060472151 | 40413 214425632551 | 40414 626060606060 | 40415 443162623145 IC174 BCI 5,MISSING ADDRESS TABLE FULL RG083230 | 40416 276021242451 40417 256262606321 | 40420 224325602664 | 40421 434360606060 | 40422 0602 00 4 20326 IC175 SLW ICNPD,4 WORD 1 RG083240 | 40423 0500 00 0 04401 CLA ICULC * RG083250 40424 0602 00 4 20327 SLW ICNPD+1,4 WORD 2, CURRENT LOCATION RG083260 | 40425 -0634 00 4 20326 SXD ICNPD,4 * RG083270 | 40426 0020 00 0 40303 TRA IC110+1 RG083280 | 40427 -0534 00 4 40564 IC200 LXD ICSRT,4 RG083290 | 40430 -0634 00 4 40433 SXD IC205,4 RG083300 40431 0774 00 4 00062 AXT P2JB4,4 RG083310 | 40432 0621 00 0 40613 STA ICTEM RG083320 | 40433 -3 00000 4 40444 IC205 TXL IC210,4,** RG083330 | 40434 0500 00 4 40564 CLA ICSRT,4 RG083340 | 1 LISTING OF 12/01/64 PAGE 202 SUBROUTINE FOR BUILDING INSTRUCTIONS | | 40435 0771 00 0 00022 ARS 18 RG083350 | 40436 0340 00 0 40613 CAS ICTEM RG083360 | 40437 1 77777 4 40433 TXI IC205,4,-1 RG083370 40440 0020 00 0 40442 TRA *+2 RG083380 | 40441 1 77777 4 40433 TXI IC205,4,-1 RG083390 | 40442 0500 00 4 40564 CLA ICSRT,4 RG083400 | 40443 0020 00 0 40302 TRA IC110 RG083410 | 40444 0074 00 4 04000 IC210 TSX LOST,4 SYSTEM ERROR RG083420 40445 0634 00 4 40461 IC300 SXA IC310,4 RG083430 | 40446 -0534 00 1 20326 LXD ICNPD,1 RG083440 | 40447 2 00002 1 40463 TIX IC312,1,2 RG083450 | 40450 -0600 00 0 40465 STQ IC320 SAVE MQ AS POSSIBLE KEY RG083460 | 40451 0074 00 4 36066 TSX MAPUT,4 TRY TO REDUCE ICNPD TABLE RG083470 40452 -0534 00 1 20326 LXD ICNPD,1 RG083480 | 40453 2 00002 1 40461 TIX IC310,1,2 RG083490 | 40454 0074 00 4 34503 TSX ERROR,4 ERROR, NO RECOVERY RG083500 | 40455 -0 00005 0 40415 MZE IC174,,5 ICNPD FULL RG083510 | 40456 0 00004 0 40411 PZE IC173,,4 RG083520 40457 0534 00 4 40461 LXA IC310,4 RG083530 | 40460 0020 00 0 04000 TRA LOST RG083540 | 40461 0774 00 4 00000 IC310 AXT **,4 RG083550 | 40462 0560 00 0 40465 LDQ IC320 RG083560 | 40463 -0634 00 1 20326 IC312 SXD ICNPD,1 RG083570 40464 0020 00 4 00001 TRA 1,4 RG083580 | 40465 0 00000 0 00000 IC320 PZE RG083590 | 40466 0602 00 0 40500 IC400 SLW IC420 TEST FOR GENERATED SYMBOL RG083600 | 40467 0771 00 0 00022 ARS 18 RG083610 | 40470 -0340 00 0 06713 LAS BCD01 TEST FOR 00==RT RG083620 40471 0771 00 0 00014 ARS 12 NO, TEST FOR =RTXRN RG083630 | 40472 0020 00 0 40473 TRA *+1 RG083640 | 40473 -0340 00 0 06627 LAS EQUAL RG083650 | 40474 0020 00 0 40476 TRA *+2 RG083660 | 40475 1 77777 4 40476 TXI *+1,4,-1 RG083670 40476 -0500 00 0 40500 CAL IC420 RESTORE AC RG083680 | 40477 0020 00 4 00001 TRA 1,4 RETURN RG083690 | 40500 0 00000 0 00000 IC420 PZE RG083700 | * RG083710 | 40501 0 00000 0 00000 IC900 PZE RG083720 00062 P2JB4 EQU 50 SIZE OF SUBROUTINE TABLE RG083730 | 40502 0 00001 0 73723 PZE GET001,,1 PRESET VALUES RG083740 | 40503 0 00002 0 73670 PZE GET002,,2 * RG083750 | 40504 0 00003 0 73640 PZE GET003,,3 * RG083760 | 40505 0 00004 0 73470 PZE BCDBIN,,4 * RG083770 40506 0 00005 0 73042 PZE BINBCD,,5 * RG083780 | 40507 0 00006 0 74605 PZE SP0190,,6 * RG083790 | 40510 BSS P2JB4-6 * RG083800 | 40564 0 00054 0 00000 ICSRT IOCD **,0,P2JB4-6 MONITOR RG083810 | 40565 0634 00 2 40601 IC500 SXA IC520,2 SUBROUTINE TO WRITE OUT INSTRUCTION BUFFERSRG083820 40566 0634 00 4 40602 SXA IC521,4 SAVE XRS RG083830 | 40567 0535 00 2 40242 LAC IC080,2 RG083840 | 40570 -3 00000 2 40600 TXL IC510,2,0 RG083850 | 40571 -0754 00 2 00000 PXD 0,2 RG083860 | 40572 0774 00 2 00000 AXT 0,2 RG083870 40573 0622 60 0 40225 STD* ICCMD RG083880 | 40574 0074 00 4 05255 TSX RD(WR),4 PUT TO TAPE 25 RG083890 | 1 LISTING OF 12/01/64 PAGE 203 | SUBROUTINE FOR BUILDING INSTRUCTIONS | 40575 -0 40225 1 00031 MZE 25,1,ICCMD RG083900 | 40576 0020 00 0 40600 TRA IC510 RG083910 | 40577 0074 00 4 35007 TSX ENDTP,4 RG083920 | 40600 0634 00 2 40242 IC510 SXA IC080,2 INITIALIZE BUFFER MONITOR RG083930 | 40601 0774 00 2 00000 IC520 AXT **,2 RESTORE XRS RG083940 40602 0774 00 4 00000 IC521 AXT **,4 RG083950 | 40603 0020 00 2 00001 TRA 1,2 RETURN RG083960 | 40604 0634 00 4 40611 IC600 SXA IC620,4 WE ARE AT ROUTINE RG083970 | 40605 -0500 00 4 00001 CAL 1,4 RG083980 | 40606 0602 00 0 40610 SLW *+2 RG083990 40607 0074 00 4 40674 TSX CCNPD,4 RG084000 | 40610 0 00000 0 00000 PZE ** RG084010 | 40611 0774 00 4 00000 IC620 AXT **,4 RG084020 | 40612 0020 00 0 40614 TRA CCPSD RG084030 | * RG084040 40613 0 00000 0 00000 ICTEM PZE 0 RG084050 | 1 LISTING OF 12/01/64 PAGE 204 | SUBROUTINE FOR DEFINING SYMBOLS FOR LATER REFERENCE | | 40614 0634 00 4 40650 CCPSD SXA CC440,4 SAVE XR4 RG084070 40615 -0500 00 4 00001 CAL 1,4 GET SYMBOL RG084080 | 40616 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG084090 | 40617 0560 00 0 04401 LDQ ICULC GET CURRENT LOCATION RG084100 | 40620 -0534 00 4 14404 LXD ICPSD,4 DEFINED SYSTEMS TABLE RG084110 | 40621 3 00000 4 40623 TXH *+2,4,0 TEST FOR MONITOR INITIALIZED RG084120 40622 1 03721 4 40623 TXI *+1,4,P2JB2 NO, INITIALIZE MONITOR RG084130 | 40623 0774 00 4 03721 CC410 AXT P2JB2,4 TEST FOR SYMBOL DEFINED BEFORE RG084140 | 40624 -0340 00 4 14404 LAS ICPSD,4 RG084150 | 40625 0020 00 0 40627 TRA *+2 RG084160 | 40626 0020 00 0 40647 TRA CC422 YES, RE-DEFINE SYMBOL RG084170 40627 0520 00 4 14406 ZET ICPSD+2,4 RG084180 | 40630 2 00002 4 40624 TIX *-4,4,2 RG084190 | 40631 -0534 00 4 14404 LXD ICPSD,4 TEST DEFINED SYMBOLS TABLE RG084200 | 40632 2 00002 4 40645 TIX CC420,4,2 * RG084210 | 40633 0602 00 0 40642 SLW CC419+3 ERROR, TABLE FULL RG084220 40634 0074 00 4 34503 TSX ERROR,4 * RG084230 | 40635 0 00006 0 40637 PZE CC419,,6 RG084240 | 40636 0020 00 0 40650 TRA CC440 * RG084250 | 40637 627044224643 CC419 BCI 6,SYMBOL TABLE FULL XXXXXX UNDEFINED RG084260 | 40640 606321224325 40641 602664434360 | 40642 676767676767 | 40643 606445242526 | 40644 314525246060 | 40645 -0634 00 4 14404 CC420 SXD ICPSD,4 RG084270 40646 0602 00 4 14404 SLW ICPSD,4 WORD 1, SYMBOL RG084280 | 40647 -0600 00 4 14405 CC422 STQ ICPSD+1,4 WORD 2, CURRENT LOCATION RG084290 | 40650 0774 00 4 00000 CC440 AXT **,4 RETURN RG084300 | 40651 -0520 00 0 34716 CC442 NZT DEBSW TEST DEBUG SWITCH RG084310 | 40652 0020 00 4 00002 TRA 2,4 * RG084320 40653 -0500 00 4 00001 CAL 1,4 GET SYMBOL RG084330 | 40654 0602 00 0 40673 SLW CC444+2 RG084340 | 40655 -0130 00 0 00000 XCL GET LOCATION OF SYMBOL RG084350 | 40656 -0765 00 0 00017 LGR 15 RG084360 | 40657 0774 00 4 00005 AXT 5,4 RG084370 40660 0767 00 0 00003 ALS 3 RG084380 | 40661 -0763 00 0 00003 LGL 3 RG084390 | 40662 2 00001 4 40660 TIX *-2,4,1 RG084400 | 40663 -0501 00 0 07000 ORA PRFX6 RG084410 | 40664 0602 00 0 40671 SLW CC444 RG084420 40665 0074 00 4 05646 TSX FLIST,4 PRINT SYMBOL FOR DEBUGGING RG084430 | 40666 0 00003 0 40671 PZE CC444,,3 RG084440 | 40667 0534 00 4 40650 LXA CC440,4 RG084450 | 40670 0020 00 4 00002 TRA 2,4 RG084460 | 40671 606060606060 CC444 BCI 3, RG084470 40672 606060606060 | 40673 606060606060 | * RG084480 | 1 LISTING OF 12/01/64 PAGE 205 | SUBROUTINE FOR DEFINING PREVIOUSLY USED SYMBOLS | 40674 0634 00 2 40712 CCNPD SXA CC470,2 SAVE XRS RG084500 | 40675 0634 00 4 40713 SXA CC471,4 RG084510 | 40676 0560 00 0 06614 LDQ ZERO RG084520 | 40677 0774 00 2 03721 AXT P2JB3,2 RG084530 40700 -0500 00 2 20326 CC450 CAL ICNPD,2 RG084540 | 40701 -0340 00 4 00001 LAS 1,4 RG084550 | 40702 0020 00 0 40704 TRA *+2 RG084560 | 40703 0020 00 0 40707 TRA CC460 RG084570 | 40704 0520 00 2 20330 ZET ICNPD+2,2 RG084580 40705 2 00002 2 40700 TIX CC450,2,2 RG084590 | 40706 0020 00 0 40712 TRA CC470 RG084600 | 40707 0560 00 0 04401 CC460 LDQ ICULC RG084610 | 40710 -0600 00 2 20326 STQ ICNPD,2 RG084620 | 40711 2 00002 2 40700 TIX CC450,2,2 GET ANY OTHER REFERENCES RG084630 40712 0774 00 2 00000 CC470 AXT **,2 RG084640 | 40713 0774 00 4 00000 CC471 AXT **,4 RG084650 | 40714 0020 00 4 00002 TRA 2,4 RETURN RG084660 | * RG084670 | 40715 0634 00 4 40650 CC480 SXA CC440,4 RG084680 40716 0020 00 0 40623 TRA CC410 RG084690 | 1 LISTING OF 12/01/64 PAGE 206 | PHASE 2 CONSTANTS AND MASKS | | * LIST OF AREAS IN PHAS 2A RG084720 22657 P2AA0 EQU LFTBL LINE FORMAT TABLE RG084730 | 22742 P2AA1 EQU CBTBL CONTROL BREAK TABLE RG084740 | 21771 P2AA2 EQU ERTBL EACH REPORT TABLE RG084750 | 07162 P2AA3 EQU PARA PARAMETER WORK AREA RG084760 | 10624 P2JB7 EQU 4500 RG084770 51543 P2AA5 BES P2JB7 TEMP ID AREA RG084780 | 51543 0 10624 0 00000 PZE 0,0,P2JB7 TID MONITOR RG084790 | 23645 P2AA6 EQU SCTBL SYMBOLIC COUNTER TABLE RG084800 | 00372 P2JB8 EQU 250 RG084810 | 52136 P2JAA BES P2JB8 BETA AREA RG084820 52136 0 00372 0 00000 PZE 0,0,P2JB8 MONITOR RG084830 | * HOUSEKEEPING RG084840 | 52137 P2CTA BSS 5 RESULTS AREA RG084850 | 52144 P2CTB BSS 9 NOT WORK AREA RG084860 | 52167 P2BGE BES 10 AREA FOR CALCS RG084870 52251 ACTBL BES 50 RG084880 | 52251 +000000000000 P2AA4 DEC 0,0,0,0 MEMORY OF LOCATIONS RG084890 | 52252 +000000000000 | 52253 +000000000000 | 52254 +000000000000 52255 0535 00 1 00000 LAC 0,1 PACKAGE TO CHANGE IRA RG084900 | 52256 +000000000000 DEC 0 SETTING OF IRA RG084910 | 52257 3 00000 1 00002 TXH 2,1,0 TEST RG084920 | 52260 0000 00 0 00000 HTR 0 STOP RG084930 | * LIST OF COMMANDS RG084940 52261 3 00621 0 22037 P2AC0 IORT P2AA0-P2JB5,0,P2JB5+1 FOR LFT RG084950 | 52262 3 01213 0 33267 P2AC1 IORT LTTBL-P2JC3,,P2JC3+1 RG084960 | 52263 3 77777 0 21150 P2AC2 IORT DSOE,,-1 IO TO READ TABLES INTO PHASE 2 RG084970 | 52264 3 00062 0 07162 P2AC3 IORT PARA,,50 I/O TO READ PARAMETER RECORDS RG084980 | 52265 3 00703 0 22743 P2AC5 IORT P2AA6-P2JB9,0,P2JB9+1 FOR TAPE B RG084990 * LIST OF TEMPORARIES RG085000 | 52266 +000000000000 P2AT0 DEC 0 TEMPORARY RG085010 | 52267 +000000000000 P2AT1 DEC 0 AREA FOR = RTORN RG085020 | * LIST OF MASKS RG085030 | 52270 -377700000000 P2AM0 OCT 777700000000 FOR ART RG085040 52271 +000000007777 P2AM1 OCT 7777 FOR RN RG085050 | 52272 +000000000077 P2AM2 OCT 77 FOR OP CODE + RN IN ERT RG085060 | 52273 -377000000000 P2AM3 OCT 777000000000 RG085070 | 52274 +000000777700 P2AM4 OCT 000000777700 RG085080 | * LIST OF CONSTANTS RG085090 52275 433145256060 P2AK0 BCI 1,LINE NAME OF TABLE RG085100 | 52276 234563225142 P2AK1 BCI 1,CNTBRK X RG085110 | 52277 000000210001 P2AK2 BCI 1,000A01 X RG085120 | 52300 624651636060 P2AK3 BCI 1,SORT X RG085130 | 52301 130000000000 P2AK4 BCI 1,=00000 = RG085140 52302 000000215151 P2AK5 BCI 1,000ARR ARR RG085150 | 52303 +000000000003 P2AK6 DEC 3 3 OR A ENTRY RG085160 | 52304 +000000000001 P2AK7 DEC 1 1 RG085170 | 52305 +000000000006 P2AK8 DEC 6 REPEAT ACT RG085180 | 52306 +000000000033 P2AK9 DEC 27 RCYL RG085190 52307 000000230000 P2AKA BCI 1,000C00 C RG085200 | 52310 +000000000014 P2AKB DEC 12 C ENTRY RG085210 | 52311 +000000000025 P2AKC DEC 21 ACT RG085220 | 52312 +000000000017 P2AKD DEC 15 CFYH RG085230 | 1 LISTING OF 12/01/64 PAGE 207 PHASE 2 CONSTANTS AND MASKS | | 52313 +000000000021 P2AKE DEC 17 CYNH RG085240 | 52314 +000000000023 P2AKF DEC 19 RCYH RG085250 | 52315 000060606060 P2AKG BCI 1,00 BLANKS RG085260 52316 +000000000027 P2AKH DEC 23 CFYL RG085270 | 52317 +000000000031 P2AKI DEC 25 CYNL RG085280 | 52320 +000000000035 P2AKJ DEC 29 CFYV RG085290 | 52321 000000270000 P2AKK BCI 1,000G00 G RG085300 | 52322 +000000000002 P2AKL DEC 2 2 RG085310 52323 000013130000 P2AKM BCI 1,00==00 == RG085320 | 52324 +000000000037 P2AKN DEC 31 GENTRY RG085330 | 52325 +000000000041 P2AKO DEC 33 CB RG085340 | 52326 000000310000 P2AKP BCI 1,000I00 I RG085350 | 52327 +000000000043 P2AKQ DEC 35 I ENTRY RG085360 52330 +000000000004 P2AKR DEC 4 PLUS SYMBOLIC KEY RG085370 | 52331 +000000000044 P2AKS DEC 36 D LINE LITERAL RG085380 | 52332 000000420000 P2AKT BCI 1,000K00 K RG085390 | 52333 +000000000047 Z2AKU DEC 39 RG085400 | 52334 +000000000050 P2AKU DEC 40 G PORTIONS RG085410 52335 +000000000057 Z2AKV DEC 47 RG085420 | 52336 +000000000060 P2AKV DEC 48 D LINES RG085430 | 52337 +000000000067 P2AKW DEC 55 N ENTRY RG085440 | 52340 +000000000072 P2AKX DEC 58 PRT RG085450 | 52341 000000470000 P2AKY BCI 1,000P00 P RG085460 52342 000000710000 P2AKZ BCI 1,000Z00 Z RG085470 | 52343 637171000002 P2AMZ BCI 1,TZZ002 ID FOR TZZ LINE RG085480 | 52344 000000234563 P2AMY BCI 1,000CNT CNT RG085490 | 52345 0000 00 0 56323 P2AMX HTR HCGET RG085500 | 52346 0761 00 0 00000 P2AMW NOP RG085510 52347 +000001000000 P2AMV OCT 000001000000 RG085520 | 52350 +000000000046 P2AMU DEC 38 EMIT RG085530 | 52351 +000000000053 EMIT2 DEC 43 RG085540 | 52352 0 00000 0 00000 P2ZZ2 PZE 0 ART COMPARE AREA RG085550 | * RESET CFY TABLE PACKAGE RG085560 52353 0600 00 0 00000 P2AP0 STZ 0 RESET LEFT RG085570 | 52354 0600 00 0 00000 STZ 0 RESET RIGHT RG085580 | * PARTIAL RESET CFY PACKAGE RG085590 | 52355 -0500 00 0 00000 P2AP1 CAL 0 RESET LEFT RG085600 | 52356 0320 00 0 00000 ANS 0 X RG085610 52357 -0500 00 0 00000 CAL 0 RESET RIGHT RG085620 | 52360 0320 00 0 00000 ANS 0 X RG085630 | * SELECT RECORD COUNTER PACKAGE RG085640 | 52361 0500 00 0 00000 P2AP2 CLA 0 GET RECORD COUNTER RG085650 | 52362 0400 00 0 04673 ADD LZERO+1 RG085660 52363 0601 00 0 00000 STO 0 RETURN RG085670 | * LINE COUNTER TEST PACKAGE RG085680 | 52364 0500 00 0 00000 P2AP3 CLA 0 GET LINE COUNTER RG085690 | 52365 0120 00 0 00002 TPL 2 TEST RG085700 | 52366 0074 00 4 00000 TSX 0,4 DO HEADINGS RG085710 52367 135330240000 BCI 1,=$HD00 RG085720 | * G SWITCH PACKAGE RG085730 | 52370 0441 00 0 00000 P2AP4 LDI 0 GET CB WORD RG085740 | 52371 0056 00 001000 RNT 001000 TEST RG085750 | 52372 0020 00 0 00000 TRA 0 RG085760 52373 +000000000000 DEC 0 NO BREAK RG085770 | 52374 0057 00 001777 RIR 001777 RESET CB WORD RG085780 | 1 LISTING OF 12/01/64 PAGE 208 | PHASE 2 CONSTANTS AND MASKS | 52375 0604 00 0 00000 STI 0 RETURN RG085790 | * GO TO NEXT REPORT PACKAGE RG085800 | 52376 0020 00 0 00000 P2AP6 TRA 0 RG085810 | 52377 +000000000000 DEC 0 RG085820 | * DECREASE LINE COUNTER PACKAGE RG085830 52400 +000400000000 OCT 400000000 KEYS RG085840 | 52401 0500 00 0 00000 P2AP5 CLA 0 GET COUNTER RG085850 | 52402 0402 00 0 04673 SUB LZERO+1 RG085860 | 52403 0601 00 0 00000 STO 0 RETURN RG085870 | * WRITE PACKAGE RG085880 52404 0074 00 4 00000 TSX 0,4 WRITE RG085890 | 52405 131366510000 BCI 1,==WR00 RG085900 | 52406 +000240000000 OCT 240000000 KEYS RG085910 | 52407 0754 00 2 00000 P2AP7 PXA 0,2 GET ADDRESS OF OUTPUT RG085920 | 52410 0737 00 2 00000 PAC 0,2 X RG085930 * SET CFY TABLE PACKAGE RG085940 | 52411 -0500 00 0 00000 P2AP8 CAL 0 GET MASK RG085950 | 52412 -0602 00 0 00000 ORS 0 SET RG085960 | 52413 -0500 00 0 00000 CAL 0 GET MASK RG085970 | 52414 -0602 00 0 00000 ORS 0 SET RG085980 * PICK UP ADDRESS PACKAGE RG085990 | 52415 0535 00 2 00000 P2AP9 LAC 0,2 RG086000 | 52416 131313130000 BCI 1,====00 RG086010 | 52417 0535 00 1 00000 LAC 0,1 RG086020 | 52420 000013135163 BCI 1,00==RT RG086030 * ON LINE WRITE PACKAGE RG086040 | 52421 0074 00 4 00000 TSX 0,4 RG086050 | 52422 131347514563 BCI 1,==PRNT RG086060 | 52423 0 00000 0 00000 P2APA PZE RG086070 | 52424 -100000000000 OCT 500000000000 KEYS RG086080 52425 +171717000000 OCT 171717000000 MASK OUT BLANKS RG086090 | 52426 0634 00 4 00011 FX100 SXA FX150-*,4 WRITE PACKAGE RG086100 | 52427 0634 00 1 00011 SXA FX151-*,1 RG086110 | 52430 0774 00 1 00000 FX110 AXT **,1 * RG086120 | 52431 0500 00 4 00000 CLA 0,4 SET CONDITIONAL PRINT ZIGGER RG086130 52432 0622 00 0 00001 STD 1 RG086140 | 52433 0074 00 4 16555 TSX OUTPT,4 RG086150 | 52434 -0500 00 1 17404 CAL RDCNT,1 RG086160 | 52435 0400 00 0 04673 ADD LZERO+1 RG086170 | 52436 0602 00 1 17404 SLW RDCNT,1 RG086180 52437 0774 00 4 00000 FX150 AXT **,4 RG086190 | 52440 0774 00 1 00000 FX151 AXT **,1 RG086200 | 52441 0020 00 4 00001 TRA 1,4 RG086210 | 52442 +220020000000 FX199 OCT 220020000000 ADDRESS MODIFCATION KEY RG086220 | * RG086230 52443 0774 00 1 00012 FX200 AXT 10,1 READ PACHAGE RG086240 | 52444 -0500 00 1 17404 CAL RDCNT,1 RG086250 | 52445 0400 00 0 04673 ADD LZERO+1 RG086260 | 52446 0602 00 1 17404 SLW RDCNT,1 RG086270 | 52447 0074 00 4 16174 TSX INPUT,4 RG086280 52450 0 00000 0 00000 PZE ** LOCATION OF PREVIOUS RECORD RG086290 | 52451 -0500 00 1 17404 CAL RDCNT,1 RG086300 | 52452 0402 00 0 04673 SUB LZERO+1 RG086310 | 52453 0602 00 1 17404 SLW RDCNT,1 RG086320 | 52454 0020 00 0 00000 TRA ** RG086330 1 LISTING OF 12/01/64 PAGE 209 | PHASE 2 CONSTANTS AND MASKS | | 52455 135325000001 BCI 1,=$E001 RG086340 | 52456 +000000000300 FX299 OCT 000000000300 ADDRESS MODIFICATION KEY RG086350 * RG086360 | 52457 0634 00 4 00024 FX300 SXA FX390-*,4 ON LINE WRITE SUBROUTINE RG086370 | 52460 0634 00 2 00026 SXA FX391-*,2 RG086380 | 52461 0441 00 4 00000 LDI 0,4 RG086390 | 52462 0754 00 2 00000 PXA 0,2 RG086400 52463 0737 00 2 00000 PAC 0,2 RG086410 | 52464 0634 00 2 00007 SXA FX310-*,2 RG086420 | 52465 0500 00 4 00001 CLA 1,4 RG086430 | 52466 0622 00 0 00005 STD FX310-* RG086440 | 52467 0734 00 2 00000 PAX 0,2 RG086450 52470 -0054 00 000001 LFT 000001 RG086460 | 52471 0020 00 0 00003 TRA FX320-* RG086470 | 52472 0074 00 4 05630 TSX CLIST,4 RG086480 | * RG086490 | 52473 1 00024 2 00000 FX310 PON **,2,20 RG086500 52474 -3 00000 2 00007 FX320 TXL FX390-*,2,0 RG086510 | 52475 0774 00 2 00000 AXT 0,2 RG086520 | 52476 -0534 00 4 77775 LXD FX310-*,4 RG086530 | 52477 -0500 00 0 00011 CAL FX392-* RG086540 | 52500 0602 60 0 77773 SLW* FX310-* BLANK OUT BUFFER RG086550 52501 1 77777 2 00001 TXI 1,2,-1 RG086560 | 52502 2 00001 4 00002 TIX 2,4,1 RG086570 | 52503 0774 00 4 00000 FX390 AXT **,4 RG086580 | 52504 0500 00 0 77766 CLA FX310-1-* RG086590 | 52505 0622 00 4 00000 STD 0,4 RG086600 52506 0774 00 2 00000 FX391 AXT **,2 RG086610 | * RG086620 | 52507 0020 00 4 00002 TRA 2,4 RETURN RG086630 | 52510 606060606060 FX392 BCI 1, RG086640 | 52511 +220002020020 FX399 OCT 220002020020 RG086650 52512 +020222210200 OCT 020222210200 RG086660 | * RG086670 | 52513 0020 00 0 75035 FX400 TRA RGEOJ RG086680 | * RG086690 | 52514 P2AQT DUP 1,10 RG086700 52514 000000052526 VFD 21/**100-P2AQT*100,15/P2AQT1 RG086710 | 52515 000014452526 | 52516 000031052526 | 52517 000045452526 | 52520 000062052526 52521 000076452526 | 52522 000113052526 | 52523 000127452526 | 52524 000144052526 | 52525 000160452526 52526 P2AQT1 DUP 1,10 RG086720 | 52526 000000052540 VFD 21/**10-P2AQT1*10,15/P2AQT2 RG086730 | 52527 000001252540 | 52530 000002452540 | 52531 000003652540 52532 000005052540 | 52533 000006252540 | 52534 000007452540 | 1 LISTING OF 12/01/64 PAGE 210 | PHASE 2 CONSTANTS AND MASKS | 52535 000010652540 | 52536 000012052540 | 52537 000013252540 | 52540 P2AQT2 DUP 1,10 RG086740 52540 000000000000 VFD 21/*-P2AQT2,15/0 RG086750 | 52541 000000100000 | 52542 000000200000 | 52543 000000300000 | 52544 000000400000 52545 000000500000 | 52546 000000600000 | 52547 000000700000 | 52550 000001000000 | 52551 000001100000 52552 0 00000 0 00000 SWAA6 PZE RG086760 | 52553 0 00000 0 00000 Z2XRA PZE RG086770 | 1 LISTING OF 12/01/64 PAGE 211 | INITIALIZE FOR PHASE 2 | 52554 0761 00 0 00000 P2000 NOP RG086800 | 52555 0500 00 0 04401 CLA ICULC GET INITIAL LOCATION FOR MESSAGE RG086810 | 52556 -0765 00 0 00017 LGR 15 RG086820 | 52557 0774 00 4 00005 AXT 5,4 RG086830 | 52560 0767 00 0 00003 ALS 3 RG086840 52561 -0763 00 0 00003 LGL 3 RG086850 | 52562 2 00001 4 52560 TIX *-2,4,1 RG086860 | 52563 -0501 00 0 07000 ORA PRFX6 RG086870 | 52564 0602 00 0 66160 SLW P2XK1+4 RG086880 | 52565 0520 00 0 37137 ZET SPICFL TEST ONE TIME SWITCH RG086890 52566 0020 00 0 52613 TRA P2002 ON RG086900 | 52567 0074 00 4 05630 TSX CLIST,4 WRITE START OF PHASE 2 MESSAGE RG086910 | 52570 0 00003 3 66077 PZE P2Z22,3,3 RG086920 | 52571 0074 00 4 05013 TSX STZLUP,4 RG086930 | 52572 0 03721 0 14404 PZE ICPSD,,P2JB2 RG086940 52573 0774 00 4 03723 AXT P2JB2+2,4 RG086950 | 52574 -0634 00 4 14404 SXD ICPSD,4 RG086960 | 52575 0074 00 4 05013 TSX STZLUP,4 RG086970 | 52576 0 03721 0 20326 PZE ICNPD,,P2JB3 RG086980 | 52577 0774 00 4 03723 AXT P2JB3+2,4 RG086990 52600 -0634 00 4 20326 SXD ICNPD,4 RG087000 | 52601 0500 00 0 06615 CLA ONE RG087010 | 52602 0601 00 0 07310 STO P2XA1 RG087020 | 52603 0074 00 4 40614 TSX CCPSD,4 WE ARE AT ==READ RG087030 | 52604 131351252124 BCI 1,==READ RG087040 52605 0074 00 4 40674 TSX CCNPD,4 RG087050 | 52606 131351252124 BCI 1,==READ RG087060 | 52607 0560 00 0 52456 LDQ FX299 BUILD ==READ PACKAGE RG087070 | 52610 0074 00 4 40227 TSX STEPI,4 RG087080 | 52611 0 00013 1 52443 PZE FX200,1,11 RG087090 52612 -0625 00 0 37137 STL SPICFL RG087100 | 52613 P2002 BSS 0 RG087110 | 52613 0774 00 4 10624 AXT P2JB7,4 RG087120 | 52614 -0634 00 4 51543 SXD P2AA5,4 RG087130 | 52615 0774 00 4 00372 AXT P2JB8,4 RG087140 52616 -0634 00 4 52136 SXD P2JAA,4 RG087150 | 52617 0600 00 0 07425 STZ EOJSW RG087160 | 52620 0074 00 4 05013 TSX STZLUP,4 INITIALIZE CALC BUFFERS RG087170 | 52621 0 03726 0 32056 PZE HCINS+1,,HCINS-HCBUF+1 RG087180 | 52622 0074 00 4 05255 P2006 TSX RD(WR),4 READ IN TABLES FROM 24 RG087190 52623 0 37140 0 00030 PZE 24,,TBCMD RG087200 | 52624 0020 00 0 52626 TRA P2008 RG087210 | 52625 0074 00 4 04000 TSX LOST,4 RG087220 | 52626 -0500 00 0 21771 P2008 CAL ERTBL RG087230 | 52627 0771 00 0 00022 ARS 18 RG087240 52630 -0340 00 0 52277 LAS P2AK2 RG087250 | 52631 0020 00 0 52633 TRA *+2 RG087260 | 52632 0020 00 0 52636 TRA P2010 RG087270 | 52633 0074 00 4 37677 TSX P2M06,4 RG087280 | 52634 +000000000202 OCT 202 RG087290 52635 0074 00 4 04000 TSX LOST,4 RG087300 | 52636 -0500 00 0 22034 P2010 CAL RPTNO RG087310 | 52637 -0340 00 0 07310 LAS P2XA1 RG087320 | 52640 0020 00 0 52642 TRA *+2 RG087330 | 52641 0020 00 0 52645 TRA P2012 RG087340 1 LISTING OF 12/01/64 PAGE 212 | INITIALIZE FOR PHASE 2 | | 52642 0074 00 4 37677 TSX P2M06,4 ERROR, ILLEGAL REPORT NO RG087350 | 52643 +000000000307 OCT 307 RG087360 52644 0074 00 4 04000 TSX LOST,4 RG087370 | 52645 0400 00 0 06615 P2012 ADD ONE RG087380 | 52646 0602 00 0 07310 SLW P2XA1 RG087390 | 52647 -0534 00 4 22657 LXD P2AA0,4 INITIALIZE TABLE MONITORS RG087400 | 52650 -3 00620 4 52652 TXL *+2,4,P2JB5 RG087410 52651 0774 00 4 00002 AXT 2,4 RG087420 | 52652 -3 00000 4 52654 TXL *+2,4,0 RG087430 | 52653 1 77776 4 52654 TXI *+1,4,-2 RG087440 | 52654 -0634 00 4 22657 SXD P2AA0,4 RG087450 | 52655 -0534 00 4 22742 LXD P2AA1,4 RG087460 52656 -3 00062 4 52660 TXL *+2,4,P2JB6 RG087470 | 52657 0774 00 4 00001 AXT 1,4 RG087480 | 52660 -3 00000 4 52662 TXL *+2,4,0 RG087490 | 52661 1 77777 4 52662 TXI *+1,4,-1 RG087500 | 52662 -0634 00 4 22742 SXD P2AA1,4 RG087510 52663 -0534 00 4 23645 LXD P2AA6,4 RG087520 | 52664 -3 00702 4 52666 TXL *+2,4,P2JB9 RG087530 | 52665 0774 00 4 00003 AXT 3,4 RG087540 | 52666 -3 00000 4 52670 TXL *+2,4,0 RG087550 | 52667 1 77775 4 52670 TXI *+1,4,-3 RG087560 52670 -0634 00 4 23645 SXD P2AA6,4 RG087570 | 52671 0534 00 1 22027 LXA FILNO,1 RG087580 | 52672 0441 00 1 72657 LDI SWTCH,1 RG087590 | 52673 -0055 00 110000 SIL 110000 SET USED ZIGGER RG087600 | 52674 0520 00 0 22031 ZET RRSWT RG087610 52675 -0055 00 021000 SIL 021000 SET RECORD ZIGGER RG087620 | 52676 0604 00 1 72657 STI SWTCH,1 RG087630 | 52677 0535 00 1 22027 P2020 LAC FILNO,1 COMPUTE BUFLOC-FILNO RG087640 | 52700 1 17310 1 52701 TXI *+1,1,RECRD RG087650 | 52701 0754 00 1 00000 PXA 0,1 RG087660 52702 -0130 00 0 00000 XCL RG087670 | 52703 -0500 00 0 52416 CAL P2AP9+1 BUILD ====RN RG087680 | 52704 -0320 00 0 07074 ANA BCD74 RG087690 | 52705 -0501 00 0 22034 ORA RPTNO RG087700 | 52706 0602 00 0 52710 SLW *+2 RG087710 52707 0074 00 4 40715 TSX CC480,4 DEFINE ====RN RG087720 | 52710 0 00000 0 00000 PZE ** RG087730 | * ORIGINAL INITIALIZATION I-STRING RG087740 | 1 LISTING OF 12/01/64 PAGE 213 | ROUTINE TO READ PARAMETER TAPE | 52711 0634 00 4 52726 P2AR0 SXA P2120,4 SAVE XR4 FOR RETURN RG087760 | 52712 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG087770 | 52713 0074 00 4 05255 TSX RD(WR),4 RG087780 | 52714 0 52264 0 00030 PZE 24,,P2AC3 RG087790 52715 0020 00 0 52720 TRA P2110 RG087800 | 52716 0534 00 4 52726 LXA P2120,4 RG087810 | 52717 0020 00 0 53731 TRA P2A1H EOF RG087820 | * RG087830 | 52720 -0500 00 0 07162 P2110 CAL P2AA3 GET AST RG087840 52721 0534 00 4 52726 LXA P2120,4 RG087850 | 52722 -0340 00 0 52273 LAS P2AM3 TEST AGAINST 7770 RG087860 | 52723 0020 00 0 52752 TRA P2140 RG087870 | 52724 0020 00 0 52725 TRA *+1 DETAIL LINE RG087880 | 52725 0771 00 0 00030 ARS 24 RG087890 52726 0774 00 4 00000 P2120 AXT **,4 COMPARE TO PREVIOUS AST RG087900 | 52727 -0340 00 0 52352 LAS P2ZZ2 RG087910 | 52730 0020 00 0 52737 TRA P2130 RG087920 | 52731 -0100 00 4 77774 TNZ -4,4 SAME AST , RETURN -4,4 RG087930 | 52732 0100 00 0 52736 TZE P2130-1 RG087940 52733 0074 00 4 37677 TSX P2M06,4 ERROR, LOWER AST RG087950 | 52734 +000000000206 OCT 206 RG087960 | 52735 -0625 00 0 34552 STL ERSWT RG087970 | 52736 -0500 00 0 52352 CAL P2ZZ2 RG087980 | 52737 0602 00 0 52352 P2130 SLW P2ZZ2 RG087990 52740 0520 00 0 52744 ZET P2132 IS THIS FIRST TIME THRU RG088000 | 52741 0020 00 0 52745 TRA P2134 NO RG088010 | 52742 -0625 00 0 52744 STL P2132 YES RG088020 | 52743 0020 00 0 52774 TRA P2A0H RG088030 | 52744 0 00000 0 00000 P2132 PZE ONE-TIME SWITCH RG088040 52745 0074 00 4 53305 P2134 TSX P2A0Z,4 RG088050 | 52746 -0520 00 0 61501 NZT E8064 RG088060 | 52747 0020 00 0 53700 TRA P2A1G RG088070 | 52750 -0625 00 0 61502 STL E8066 RG088080 | 52751 0020 00 0 53365 TRA P2A14 RG088090 52752 3 00000 0 57050 P2140 TXH ALPHA,0,0 IF SWITCH OFF, GO TO ALPHA RG088100 | 52753 -0500 00 0 06777 CAL PRFX4 IE, FOR 1ST T OR H LINE RG088110 | 52754 -0602 00 0 52752 ORS P2140 SET PREVIOUS SWITCH ON RG088120 | 52755 0074 00 4 63243 TSX G0010,4 RG088130 | 52756 -0520 00 0 61501 NZT E8064 RG088140 52757 0020 00 0 53700 TRA P2A1G RG088150 | 52760 -0500 00 0 52267 CAL P2AT1 RG088160 | 52761 -0501 00 0 52326 ORA P2AKP RG088170 | 52762 0602 00 0 52765 SLW P2142 RG088180 | 52763 0602 00 0 52767 SLW P2144 RG088190 52764 0074 00 4 40614 TSX CCPSD,4 WE-ARE-AT =RTIRN RG088200 | 52765 0 00000 0 00000 P2142 PZE RG088210 | 52766 0074 00 4 40674 TSX CCNPD,4 RG088220 | 52767 0 00000 0 00000 P2144 PZE RG088230 | 52770 -0534 00 4 22024 LXD ERTBL+27,4 TEST FOR ANY HEADING LINES RG088240 52771 -3 00000 4 53700 TXL P2A1G,4,0 NO RG088250 | 52772 0074 00 4 53456 TSX P2A16G,4 YES, BUILD TEST PACKAGE RG088260 | 52773 0020 00 0 53700 TRA P2A1G RG088270 | 1 LISTING OF 12/01/64 PAGE 214 | PHASE 2 PROPER | 52774 -0500 00 0 61154 P2A0H CAL IP03+2 RG088290 | 52775 0560 00 0 07162 LDQ P2AA3 GET ART RG088300 | 52776 -0763 00 0 00014 LGL 12 COMBINE RG088310 | 52777 0602 00 0 52256 SLW P2AA4+5 SAVE IRA SETTING RG088320 53000 0767 00 0 00022 ALS 18 POSITION RG088330 | 53001 -0501 00 0 52301 ORA P2AK4 =00000 RG088340 | 53002 0602 00 0 52267 SLW P2AT1 SAVE =RT RG088350 | 53003 0400 00 0 52302 ADD P2AK5 ADD ARR RG088360 | 53004 0602 00 0 53037 SLW P2A0I SET UP PHI RG088370 53005 0602 00 0 53043 SLW P2A0J SET UP THETA RG088380 | 53006 0500 00 0 53371 CLA P2A14+4 SET SW OFF-TO TXH RG088390 | 53007 0602 00 0 53371 SLW P2A14+4 RG088400 | 53010 -0500 00 0 22034 CAL RPTNO REPORT NUMBER RG088410 | 53011 -0320 00 0 52272 ANA P2AM2 X RG088420 53012 -0602 00 0 52267 ORS P2AT1 SAVE = RTORN RG088430 | 53013 0500 00 0 55611 CLA P2BBB RG088440 | 53014 0602 00 0 55611 SLW P2BBB RG088450 | 53015 0600 00 0 61501 STZ E8064 SET SW6 OFF RG088460 | 53016 0600 00 0 52252 STZ P2AA4+1 RG088470 53017 0600 00 0 52253 STZ P2AA4+2 RG088480 | 53020 0600 00 0 52254 STZ P2AA4+3 RG088490 | 53021 0600 00 0 54335 STZ P2JK2 RG088500 | 53022 0600 00 0 54336 STZ P2JK6 RG088510 | 53023 -0500 00 0 52267 CAL P2AT1 RG088520 53024 -0501 00 0 61550 ORA BCONST RG088530 | 53025 0602 00 0 53030 SLW *+3 RG088540 | 53026 0602 00 0 53032 SLW *+4 RG088550 | 53027 0074 00 4 40674 TSX CCNPD,4 RG088560 | 53030 +000000000000 DEC 0 RG088570 53031 0074 00 4 40614 TSX CCPSD,4 RG088580 | 53032 +000000000000 DEC 0 RG088590 | 53033 0600 00 0 61500 STZ SW8 RG088600 | 53034 0760 00 0 00000 CLM CLEAR MQ RG088610 | 53035 -0130 00 0 00000 XCL X RG088620 53036 0074 00 4 40674 TSX CCNPD,4 DO PHI RG088630 | 53037 +000000000000 P2A0I DEC 0 X RG088640 | 53040 -0130 00 0 00000 XCL WAS PHI EFFECTIVE RG088650 | 53041 -0100 00 0 53045 TNZ P2A0J+2 * RG088660 | 53042 0074 00 4 40614 TSX CCPSD,4 DO THETA RG088670 53043 +000000000000 P2A0J DEC 0 X RG088680 | 53044 -0625 00 0 61500 STL SW8 RG088690 | 53045 0500 00 0 07162 CLA P2AA3 GET OPERATION CODE RG088700 | 53046 -0320 00 0 52272 ANA P2AM2 RG088710 | 53047 0340 00 0 07320 CAS MASK+3 TEST FOR ZERO RG088720 53050 0020 00 0 53052 TRA *+2 RG088730 | 53051 0074 00 4 52711 TSX P2AR0,4 YES RG088740 | 53052 0520 00 0 61500 ZET SW8 RG088750 | 53053 0020 00 0 53063 TRA P2A0J1 RG088760 | 53054 -0500 00 0 61154 CAL IP03+2 RG088770 53055 0560 00 0 07162 LDQ PARA RG088780 | 53056 -0763 00 0 00014 LGL 12 RG088790 | 53057 0602 00 0 52256 SLW P2AA4+5 RG088800 | 53060 0560 00 0 55126 LDQ P2XRA RG088810 | 53061 0074 00 4 40227 TSX STEPI,4 RG088820 53062 0 00002 1 52255 PZE P2AA4+4,1,2 RG088830 | 1 LISTING OF 12/01/64 PAGE 215 | PHASE 2 PROPER | | 53063 0500 00 0 07162 P2A0J1 CLA P2AA3 GET OPERATION CODE RG088840 53064 -0320 00 0 52272 ANA P2AM2 X RG088850 | 53065 0340 00 0 52303 CAS P2AK6 IS THIS =A HC RG088860 | 53066 0020 00 0 53071 TRA P2A0L NO RG088870 | 53067 0074 00 4 56323 TSX HCGET,4 TO INSERT H C ROUTINE RG088880 | 53070 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG088890 53071 0500 00 0 07162 P2A0L CLA P2AA3 GET OPERATION CODE RG088900 | 53072 -0320 00 0 52272 ANA P2AM2 X RG088910 | 53073 0340 00 0 52305 CAS P2AK8 IS IT A REPEAT ACT RG088920 | 53074 0020 00 0 53102 TRA P2A0M+2 NO RG088930 | 53075 0074 00 4 53077 TSX *+2,4 YES RG088940 53076 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG088950 | 53077 1 77771 4 54544 TXI P2AR3,4,-7 BUILD ACT PACKAGE RG088960 | 53100 0500 00 0 07162 P2A0M CLA P2AA3 GET OPERATION CODE RG088970 | 53101 -0320 00 0 52272 ANA P2AM2 X RG088980 | 53102 0340 00 0 52320 CAS P2AKJ GREATER THEN RCYL RG088990 53103 0020 00 0 53106 TRA *+3 HI RG089000 | 53104 0020 00 0 53106 TRA *+2 EQ RG089010 | 53105 0020 00 0 53110 TRA P2A0N LO RG089020 | 53106 0502 00 0 53133 CLS P2A0O-2 SET SW 1 ON RG089030 | 53107 0601 00 0 53133 STO P2A0O-2 X RG089040 53110 -0500 00 0 22022 P2A0N CAL P2AA2+25 RG089050 | 53111 -0320 00 0 52271 ANA P2AM1 RG089060 | 53112 -0340 00 0 61547 LAS CON2BL AT E8385 RG089070 | 53113 0020 00 0 53115 TRA *+2 RG089080 | 53114 0020 00 0 53122 TRA Z2A0N RG089090 53115 0602 00 0 61506 SLW TEMPS RG089100 | 53116 -0500 00 0 07162 CAL P2AA3 RG089110 | 53117 0771 00 0 00030 ARS 24 RG089120 | 53120 0402 00 0 61506 SUB TEMPS RG089130 | 53121 -0100 00 0 53135 TNZ P2A0O RG089140 53122 -0500 00 0 21771 Z2A0N CAL P2AA2 GET ADDRESS OF RIGHT TABLE RG089150 | 53123 0400 00 0 52304 ADD P2AK7 X RG089160 | 53124 0621 00 0 52353 STA P2AP0 SET PACKAGE RG089170 | 53125 0400 00 0 52304 ADD P2AK7 +1 RG089180 | 53126 0621 00 0 52354 STA P2AP0+1 SET PACKAGE RG089190 53127 0760 00 0 00000 CLM SET KEYS TO ACTUAL RG089200 | 53130 -0130 00 0 00000 XCL X RG089210 | 53131 0074 00 4 40227 TSX STEPI,4 ESTABLISH PACKAGE RG089220 | 53132 0 00002 1 52353 PZE P2AP0,1,2 X RG089230 | 53133 3 00000 0 53222 TXH P2A0W-4,0,0 SW 1 RG089240 53134 0020 00 0 53151 TRA P2A0P RG089250 | 53135 0522 00 0 53133 P2A0O XEC P2A0O-2 EXECUTE SWITCH 1 RG089260 | 53136 -0500 00 0 21771 CAL P2AA2 GET ADDRESS OF RIGHT TABLE RG089270 | 53137 0400 00 0 52304 ADD P2AK7 X RG089280 | 53140 0621 00 0 52360 STA P2AP1+3 SET PACKAGE RG089290 53141 0400 00 0 52304 ADD P2AK7 +1 RG089300 | 53142 0621 00 0 52356 STA P2AP1+1 SET UP PACKAGE RG089310 | 53143 0760 00 0 00000 CLM SET KEYS TO ACTUAL RG089320 | 53144 -0130 00 0 00000 XCL X RG089330 | 53145 0074 00 4 40227 TSX STEPI,4 ESTABLISH PACKAGE RG089340 53146 0 00004 1 52355 PZE P2AP1,1,4 X RG089350 | 53147 0402 00 0 52304 SUB P2AK7 -1 RG089360 | 53150 0621 00 0 52252 STA P2AA4+1 SAVE ULTIMATE LOCATION RG089370 | 53151 -0500 00 0 52267 P2A0P CAL P2AT1 GET = RT RN RG089380 | 1 LISTING OF 12/01/64 PAGE 216 PHASE 2 PROPER | | 53152 0400 00 0 52307 ADD P2AKA ADD C RG089390 | 53153 0602 00 0 53155 SLW *+2 SET UP PHI RG089400 | 53154 0074 00 4 40674 TSX CCNPD,4 DO PHI RG089410 53155 +000000000000 DEC 0 WE ARE AT =RTCRN RG089420 | 53156 0500 00 0 07162 P2A0Q CLA P2AA3 GET OPERATION CODE RG089430 | 53157 -0320 00 0 52272 ANA P2AM2 X RG089440 | 53160 0340 00 0 52310 CAS P2AKB IS THIS AN HC FOR C RG089450 | 53161 0020 00 0 53164 TRA P2A0R NO RG089460 53162 0074 00 4 56323 TSX HCGET,4 TO INSERT H C ROUTINE RG089470 | 53163 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG089480 | 53164 0340 00 0 52311 P2A0R CAS P2AKC GREATER THAN ACTH RG089490 | 53165 0020 00 0 53226 TRA P2A0W YES RG089500 | 53166 0020 00 0 53172 TRA P2A0S NO RG089510 53167 0020 00 0 53172 TRA P2A0S NO RG089520 | 53170 0500 00 0 07162 CLA P2AA3 GET OPERATION CODE RG089530 | 53171 -0320 00 0 52272 ANA P2AM2 X RG089540 | 53172 0340 00 0 52312 P2A0S CAS P2AKD IS IT CFYH RG089550 | 53173 0020 00 0 53200 TRA P2A0T NO RG089560 53174 0074 00 4 55534 TSX P2AR4,4 TO CFY ROUTINE RG089570 | 53175 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG089580 | 53176 0500 00 0 07162 CLA P2AA3 GET OPERATION CODE RG089590 | 53177 -0320 00 0 52272 ANA P2AM2 X RG089600 | 53200 0340 00 0 52313 P2A0T CAS P2AKE IS IT CYNH RG089610 53201 0020 00 0 53206 TRA P2A0U NO RG089620 | 53202 0074 00 4 55543 TSX P2AR5,4 TO CYN ROUTINE RG089630 | 53203 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG089640 | 53204 0500 00 0 07162 CLA P2AA3 GET OPERATION CODE RG089650 | 53205 -0320 00 0 52272 ANA P2AM2 X RG089660 53206 0340 00 0 52314 P2A0U CAS P2AKF IS IT RCYH RG089670 | 53207 0020 00 0 53212 TRA P2A0V NOT RG089680 | 53210 0074 00 4 54633 TSX P2AR6,4 TO RCY ROUTINE RG089690 | 53211 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG089700 | 53212 0340 00 0 52311 P2A0V CAS P2AKC IS IT ACTH RG089710 53213 0020 00 0 53217 TRA *+4 NO RG089720 | 53214 0074 00 4 53216 TSX *+2,4 YES RG089730 | 53215 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG089740 | 53216 1 77762 4 54544 TXI P2AR3,4,-14 TO ACT ROUTINE RG089750 | 53217 0074 00 4 37677 TSX P2M06,4 X RG089760 53220 +000000000216 OCT 216 RG089770 | 53221 0074 00 4 04000 TSX LOST,4 RG089780 | 53222 0502 00 0 53133 CLS P2A0O-2 SET SW 1 OFF RG089790 | 53223 0601 00 0 53133 STO P2A0O-2 X RG089800 | 53224 0502 00 0 53257 CLS P2X0X SET SW 2 OFF RG089810 53225 0601 00 0 53257 STO P2X0X X RG089820 | 53226 0600 00 0 52266 P2A0W STZ P2AT0 ZERO OUT TEMPORARY RG089830 | 53227 0074 00 4 35441 TSX STEPC,4 ESTABLISH SELECT RECORD COUNTER RG089840 | 53230 0 00001 1 52266 PZE P2AT0,1,1 X RG089850 | 53231 0621 00 0 52361 STA P2AP2 SET UP PACKAGE RG089860 53232 0621 00 0 52363 STA P2AP2+2 X RG089870 | 53233 0760 00 0 00000 CLM GET KEYS IN MQ RG089880 | 53234 0131 00 0 00000 XCA X RG089890 | 53235 0074 00 4 40227 TSX STEPI,4 ESTABLISH PACKAGE RG089900 | 53236 0 00003 1 52361 PZE P2AP2,1,3 X RG089910 53237 -0534 00 1 51543 LXD P2AA5,1 GET TID MONITOR RG089920 | 53240 2 00002 1 53243 TIX *+3,1,2 BUMP RG089930 | 1 LISTING OF 12/01/64 PAGE 217 | PHASE 2 PROPER | 53241 0774 00 2 00005 AXT 5,2 PRINT TID FULL RG089940 | 53242 0074 00 4 37646 TSX P2M01,4 X RG089950 | 53243 -0634 00 1 51543 SXD P2AA5,1 RETURN MONITOR RG089960 | 53244 0500 00 0 52361 CLA P2AP2 GET ADDRESS OF COUNTER RG089970 | 53245 0621 00 1 51542 STA P2AA5-1,1 PUT IN TID AREA RG089980 53246 -0500 00 0 07162 CAL P2AA3 GET RT RG089990 | 53247 0771 00 0 00006 ARS 6 X RG090000 | 53250 0622 00 1 51542 STD P2AA5-1,1 PUT IN TID AREA RG090010 | 53251 0500 00 0 52267 CLA P2AT1 GET RN RG090020 | 53252 -0320 00 0 52271 ANA P2AM1 X RG090030 53253 0767 00 0 00006 ALS 6 X RG090040 | 53254 0601 00 1 51541 STO P2AA5-2,1 PUT IN TID AREA RG090050 | 53255 -0500 00 0 52343 CAL P2AMZ GET ID RG090060 | 53256 -0602 00 1 51541 ORS P2AA5-2,1 PUT IN AREA RG090070 | 53257 -3 00000 0 53263 P2X0X TXL *+4,0,0 SW 2 RG090080 53260 0502 00 0 53257 CLS P2X0X SW 2 OFF RG090090 | 53261 0601 00 0 53257 STO P2X0X X RG090100 | 53262 0020 00 0 53335 TRA P2A10 TRA TO CFYV RG090110 | 53263 0500 00 0 07162 CLA P2AA3 GET OPERATION CODE RG090120 | 53264 -0320 00 0 52272 ANA P2AM2 X RG090130 53265 0340 00 0 52316 CAS P2AKH IS IT CFYL RG090140 | 53266 0020 00 0 53273 TRA P2A0X NO RG090150 | 53267 0074 00 4 55534 TSX P2AR4,4 TO CFY ROUTINE RG090160 | 53270 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG090170 | 53271 0500 00 0 07162 CLA P2AA3 GET OPERATION CODE RG090180 53272 -0320 00 0 52272 ANA P2AM2 X RG090190 | 53273 0340 00 0 52317 P2A0X CAS P2AKI IS IT CYNL RG090200 | 53274 0020 00 0 53301 TRA P2A0Y NO RG090210 | 53275 0074 00 4 55543 TSX P2AR5,4 TO CYN ROUTINE RG090220 | 53276 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG090230 53277 0500 00 0 07162 CLA P2AA3 GET OPERATION CODE RG090240 | 53300 -0320 00 0 52272 ANA P2AM2 X RG090250 | 53301 0340 00 0 52306 P2A0Y CAS P2AK9 IS IT RCYL RG090260 | 53302 0020 00 0 53334 TRA P2A08 RG090270 | 53303 0074 00 4 54633 TSX P2AR6,4 TO RCY ROUTINE RG090280 53304 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG090290 | 53305 0634 00 4 53332 P2A0Z SXA P2A06,4 RG090300 | 53306 -0520 00 0 52252 NZT P2AA4+1 RG090310 | 53307 0020 00 4 00001 TRA 1,4 RG090320 | 53310 0074 00 4 40445 TSX IC300,4 MAKE 2 ICNPD ENTRIES RG090330 53311 0074 00 4 40445 TSX IC300,4 RG090340 | 53312 -0500 00 0 52254 CAL P2AA4+3 REVERSE MASK RG090350 | 53313 0760 00 0 00006 COM X RG090360 | 53314 0602 00 0 52254 SLW P2AA4+3 X RG090370 | 53315 -0500 00 0 52253 CAL P2AA4+2 REVERSE MASK RG090380 53316 0760 00 0 00006 COM X RG090390 | 53317 0602 00 0 52253 SLW P2AA4+2 X RG090400 | 53320 0074 00 4 35441 TSX STEPC,4 ESTABLISH MASKS FOR RESET RG090410 | 53321 0 00002 1 52254 PZE P2AA4+3,1,2 X RG090420 | 53322 0601 00 1 20324 STO ICNPD-2,1 RG090430 53323 0400 00 0 06615 ADD ONE RG090440 | 53324 0601 00 1 20326 STO ICNPD,1 RG090450 | 53325 -0500 00 0 52252 CAL P2AA4+1 RG090460 | 53326 0602 00 1 20325 SLW ICNPD-1,1 RG090470 | 53327 0402 00 0 06616 SUB TWO RG090480 1 LISTING OF 12/01/64 PAGE 218 | PHASE 2 PROPER | | 53330 0602 00 1 20327 SLW ICNPD+1,1 RG090490 | 53331 0600 00 0 52252 STZ P2AA4+1 RG090500 53332 0774 00 4 00000 P2A06 AXT **,4 RG090510 | 53333 0020 00 4 00001 TRA 1,4 RG090520 | * RG090530 | * RG090540 | 53334 0074 00 4 53305 P2A08 TSX P2A0Z,4 RG090550 53335 0500 00 0 07162 P2A10 CLA P2AA3 GET OPERATION CODE RG090560 | 53336 -0320 00 0 52272 ANA P2AM2 X RG090570 | 53337 0340 00 0 52320 CAS P2AKJ IS IT CFYV RG090580 | 53340 0020 00 0 53343 TRA P2A11 NO RG090590 | 53341 0074 00 4 55552 TSX P2AR7,4 TO SCB CFY ROUTINE RG090600 53342 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG090610 | 53343 -0500 00 0 52267 P2A11 CAL P2AT1 GET = RT RN RG090620 | 53344 0400 00 0 52321 ADD P2AKK ADD G RG090630 | 53345 0602 00 0 53347 SLW *+2 SET UP PHI RG090640 | 53346 0074 00 4 40674 TSX CCNPD,4 WE ARE AT =G RG090650 53347 +000000000000 DEC 0 X RG090660 | 53350 0500 00 0 07162 P2A12 CLA P2AA3 GET OPERATION CODE RG090670 | 53351 -0320 00 0 52272 ANA P2AM2 X RG090680 | 53352 0340 00 0 52324 CAS P2AKN IS IT HC FOR =G RG090690 | 53353 0020 00 0 53356 TRA *+3 NO RG090700 53354 0074 00 4 56274 TSX Z2AR2,4 TO HC ROUTINE RG090710 | 53355 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG090720 | 53356 0074 00 4 63243 TSX G0010,4 RG090730 | 53357 0500 00 0 07162 CLA P2AA3 GET OPERATION CODE RG090740 | 53360 -0320 00 0 52272 ANA P2AM2 X RG090750 53361 0340 00 0 52325 P2A13 CAS P2AKO IS IT A CONTROL BREAK RG090760 | 53362 0020 00 0 53365 TRA P2A14 NO RG090770 | 53363 0074 00 4 55563 TSX P2AR8,4 TO CB ROUTINE RG090780 | 53364 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG090790 | 53365 0500 00 0 55611 P2A14 CLA P2BBB GET CB SWITCH RG090800 53366 0760 00 0 00003 SSP TURN IT OFF RG090810 | 53367 0601 00 0 55611 STO P2BBB RETURN RG090820 | 53370 0600 00 0 61501 STZ E8064 SET SW 6 OFF RG090830 | 53371 3 00000 0 53402 TXH Z2A15,0,0 BEEN TO CB RG090840 | 53372 0502 00 0 55745 CLS P2BBN-3 NO, SET SWITCH RG090850 53373 0601 00 0 55745 STO P2BBN-3 X RG090860 | 53374 0020 00 0 55563 TRA P2AR8 GO TO CB RG090870 | 53375 0502 00 0 55745 CLS P2BBN-3 RESET SWITCH RG090880 | 53376 0602 00 0 55745 SLW P2BBN-3 X RG090890 | 53377 0500 00 0 55611 CLA P2BBB GET CB SW RG090900 53400 0602 00 0 55611 SLW P2BBB TURN SW OFF RG090910 | 53401 0600 00 0 61501 STZ E8064 * RG090920 | 53402 0500 00 0 53371 Z2A15 CLA P2A14+4 SET SW OFF RG090930 | 53403 0602 00 0 53371 SLW P2A14+4 RG090940 | 53404 -0500 00 0 52267 CAL P2AT1 GET =RT 0 RN RG090950 53405 0400 00 0 52326 ADD P2AKP ADD I RG090960 | 53406 0602 00 0 53411 SLW *+3 SET UP THETA RG090970 | 53407 0602 00 0 53413 SLW *+4 SET UP PHI RG090980 | 53410 0074 00 4 40614 TSX CCPSD,4 DO THETA RG090990 | 53411 +000000000000 DEC 0 X RG091000 53412 0074 00 4 40674 TSX CCNPD,4 DO PHI RG091010 | 53413 +000000000000 DEC 0 X RG091020 | 53414 -0520 00 0 61502 NZT E8066 TEST SW 7 RG091030 | 1 LISTING OF 12/01/64 PAGE 219 | PHASE 2 PROPER | 53415 0020 00 0 53420 TRA *+3 OFF RG091040 | 53416 0600 00 0 61502 STZ E8066 SET TO ON RG091050 | 53417 0020 00 0 52770 TRA P2144+1 RG091060 | 53420 0500 00 0 07162 CLA P2AA3 GET OPERATION CODE RG091070 53421 -0320 00 0 52272 ANA P2AM2 X RG091080 | 53422 0340 00 0 52327 CAS P2AKQ IS IT HC FOR =1 RG091090 | 53423 0020 00 0 53426 TRA P2A15 NO RG091100 | 53424 0074 00 4 56274 TSX Z2AR2,4 TO H CAL ROUTINE RG091110 | 53425 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG091120 53426 0074 00 4 63243 P2A15 TSX G0010,4 RG091130 | 53427 0441 00 0 22022 LDI P2AA2+25 GET REPORT INDICATION RG091140 | 53430 -0056 00 000060 LNT 000060 IS THIS A RECORD RG091150 | 53431 0020 00 0 53435 TRA *+4 NO RG091160 | 53432 0502 00 0 53552 CLS P2A1A+1 REVERSE SWITCH P2 RG091170 53433 0602 00 0 53552 SLW P2A1A+1 RG091180 | 53434 0020 00 0 53516 TRA P2A18 THIS IS A RECORD RG091190 | 53435 -0500 00 0 53552 CAL P2A1A+1 RG091200 | 53436 -0760 00 0 00003 SSM RG091210 | 53437 0601 00 0 53552 STO P2A1A+1 RG091220 53440 -0500 00 0 22006 CAL P2AA2+13 RG091230 | 53441 -0320 00 0 07325 ANA MASK+8 RG091240 | 53442 0100 00 0 53446 TZE *+4 RG091250 | 53443 0322 00 0 61536 ERA E8310 RG091260 | 53444 0100 00 0 53446 TZE *+2 RG091270 53445 0020 00 0 53450 TRA *+3 RG091280 | 53446 0600 00 0 22006 STZ P2AA2+13 RG091290 | 53447 0020 00 0 53432 TRA P2A15+4 RG091300 | 53450 -0534 00 4 22024 P2A16 LXD P2AA2+27,4 TEST FOR HEADING LINES RG091310 | 53451 -3 00000 4 53454 TXL P2A16H,4,0 RG091320 53452 0074 00 4 53456 TSX P2A16G,4 RG091330 | 53453 0020 00 0 53516 TRA P2A18 RG091340 | 53454 -0625 00 0 61466 P2A16H STL SWHH RG091350 | 53455 0020 00 0 53462 TRA P2A16K RG091360 | 53456 0634 00 4 53514 P2A16G SXA P2A17G,4 RG091370 53457 3 00000 0 53506 TXH P2A17,0,0 RG091380 | 53460 0502 00 0 53457 CLS *-1 REVERSE SWITCH RG091390 | 53461 0601 00 0 53457 STO *-2 X RG091400 | 53462 -0500 00 0 22006 P2A16K CAL P2AA2+13 GET LINES PER PAGE RG091410 | 53463 -0320 00 0 61540 ANA E8325 RG091420 53464 -0130 00 0 00000 XCL RG091430 | 53465 0760 00 0 00000 CLM RG091440 | 53466 -0114 03 0 52514 CAQ P2AQT,0,3 BCD TO BINARY RG091450 | 53467 0771 00 0 00017 ARS 15 POSITION RG091460 | 53470 0621 00 0 22006 STA P2AA2+13 TO ERT RG091470 53471 -0760 00 0 00003 SSM MAKE NEG RG091480 | 53472 0601 00 0 52266 STO P2AT0 SAVE RG091490 | 53473 0074 00 4 35441 TSX STEPC,4 ESTABLISH LINE COUNTER RG091500 | 53474 0 00001 1 52266 PZE P2AT0,1,1 X RG091510 | 53475 0621 00 0 52364 STA P2AP3 SET UP TEST PACKAGE RG091520 53476 0621 00 0 22005 STA P2AA2+12 TO ERT RG091530 | 53477 -0520 00 0 61466 NZT SWHH SEE E7992 RG091540 | 53500 0020 00 0 53503 TRA *+3 RG091550 | 53501 0600 00 0 61466 STZ SWHH RG091560 | 53502 0020 00 0 53516 TRA P2A18 RG091570 53503 0500 00 0 22034 CLA RPTNO REPORT NUMBER RG091580 | 1 LISTING OF 12/01/64 PAGE 220 | PHASE 2 PROPER | | 53504 -0320 00 0 52272 ANA P2AM2 X RG091590 53505 -0602 00 0 52367 ORS P2AP3+3 SET UP TEST PACKAGE RG091600 | 53506 0500 00 0 52330 P2A17 CLA P2AKR GET PLUS SYMBOLIC KEY RG091610 | 53507 -0765 00 0 00003 LGR 3 X RG091620 | 53510 0400 00 0 52322 ADD P2AKL GET PLUS RELATIVE KEY RG091630 | 53511 -0765 00 0 00006 LGR 6 X RG091640 53512 0074 00 4 40227 TSX STEPI,4 ESTABLISH TEST PACKAGE RG091650 | 53513 0 00004 1 52364 PZE P2AP3,1,4 X RG091660 | 53514 0774 00 4 00000 P2A17G AXT 0,4 RG091670 | 53515 0020 00 4 00001 TRA 1,4 EXIT RG091680 | 53516 0500 00 0 22034 P2A18 CLA RPTNO REPORT NUMBER RG091690 53517 -0320 00 0 52272 ANA P2AM2 X RG091700 | 53520 -0602 00 0 52416 ORS P2AP9+1 RG091710 | 53521 -0602 00 0 52405 ORS P2AP5+4 RG091720 | 53522 0560 00 0 07331 LDQ MASK+12 RG091730 | 53523 0074 00 4 40227 TSX STEPI,4 RG091740 53524 0 00002 1 52415 PZE P2AP9,1,2 RG091750 | 53525 -0500 00 0 61153 CAL IP03+1 RG091760 | 53526 0602 00 0 52256 SLW P2AA4+5 RG091770 | 53527 -0500 00 0 07162 CAL P2AA3 RG091780 | 53530 -0320 00 0 52274 ANA P2AM4 RG091790 53531 -0100 00 0 53534 TNZ *+3 RG091800 | 53532 0761 00 0 00000 NOP DO NOT REMOVE RG091810 | 53533 0074 00 4 57050 TSX ALPHA,4 RG091820 | 53534 0074 00 4 63243 TSX G0010,4 RG091830 | 53535 0500 00 0 07162 P2A19 CLA P2AA3 GET OP CODE RG091840 53536 -0320 00 0 52272 ANA P2AM2 X RG091850 | 53537 0340 00 0 52331 CAS P2AKS IS IT A D LINE LITERAL RG091860 | 53540 0020 00 0 53545 TRA P2A1A-4 NO RG091870 | 53541 0074 00 4 57050 TSX P2ARA,4 TO ALPHA ROUTINE RG091880 | 53542 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG091890 53543 0500 00 0 07162 CLA P2AA3 GET OP CODE RG091900 | 53544 -0320 00 0 52272 ANA P2AM2 X RG091910 | 53545 0340 00 0 52350 CAS P2AMU IS IT EMIT RG091920 | 53546 0020 00 0 53551 TRA P2A1A NO RG091930 | 53547 0074 00 4 57050 TSX P2ARA,4 TO ALPHA. RG091940 53550 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG091950 | 53551 0074 00 4 63243 P2A1A TSX G0010,4 CONDITIONAL RUN OUT RG091960 | 53552 -3 00000 0 53556 TXL P2A1B,0,0 SWITCH P2 RG091970 | 53553 0502 00 0 53552 CLS *-1 REVERSE SWITCH RG091980 | 53554 0601 00 0 53552 STO *-2 X RG091990 53555 0020 00 0 53646 TRA P2A1D SKIP G PORTION RG092000 | 53556 0534 00 4 22024 P2A1B LXA P2AA2+27,4 ANY D LINES RG092010 | 53557 -3 00000 4 53644 TXL P2A1D-2,4,0 RG092020 | 53560 -0534 00 4 22024 LXD P2AA2+27,4 ANY H LINES RG092030 | 53561 -3 00000 4 53644 TXL P2A1D-2,4,0 RG092040 53562 0500 00 0 52267 CLA P2AT1 RG092050 | 53563 0400 00 0 52332 ADD P2AKT ADD K RG092060 | 53564 0601 00 0 52373 STO P2AP4+3 SET UP PACKAGE RG092070 | 53565 0500 00 0 21771 CLA P2AA2 GET ADDRESS OF CB WORD RG092080 | 53566 0621 00 0 52370 STA P2AP4 RG092090 53567 0621 00 0 52375 STA P2AP4+5 RG092100 | 53570 0560 00 0 61520 LDQ E8220 * RG092110 | 53571 0074 00 4 40227 TSX STEPI,4 ESTABLISH PACKAGE RG092120 | 53572 0 00006 1 52370 PZE P2AP4,1,6 X RG092130 | 1 LISTING OF 12/01/64 PAGE 221 PHASE 2 PROPER | | 53573 0074 00 4 35441 TSX STEPC,4 RG092140 | 53574 0 00001 1 61537 PZE E8320,1,1 RG092150 | 53575 0621 00 0 61265 STA IP23 RG092160 53576 0634 00 0 61266 SXA IP23+1,0 RG092170 | 53577 0560 00 0 07320 LDQ MASK+3 RG092180 | 53600 0074 00 4 40227 TSX STEPI,4 RG092190 | 53601 0 00002 1 61265 PZE IP23,1,2 RG092200 | 53602 0500 00 0 07162 CLA P2AA3 GET OP CODE RG092210 53603 -0320 00 0 52272 ANA P2AM2 RG092220 | 53604 0340 00 0 52333 CAS Z2AKU IS IT G LINE CALCULATION RG092230 | 53605 0020 00 0 53610 TRA *+3 NO RG092240 | 53606 0074 00 4 57050 TSX P2ARA,4 TO ALPHA ROUTINE RG092250 | 53607 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG092260 53610 0074 00 4 63243 TSX G0010,4 RG092270 | 53611 0500 00 0 07162 CLA P2AA3 GET OPERATION CODE RG092280 | 53612 -0320 00 0 52272 ANA P2AM2 X RG092290 | 53613 0340 00 0 52334 CAS P2AKU IS IT FOR G PORTION RG092300 | 53614 0020 00 0 53617 TRA P2A1C NO RG092310 53615 0074 00 4 57050 TSX P2ARA,4 TO ALPHA ROUTINE RG092320 | 53616 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG092330 | 53617 0074 00 4 63243 P2A1C TSX G0010,4 CONDITIONAL RUN OUT RG092340 | 53620 -0500 00 0 07162 CAL P2AA3 RG092350 | 53621 -0320 00 0 52272 ANA P2AM2 RG092360 53622 -0340 00 0 52351 LAS EMIT2 RG092370 | 53623 0020 00 0 53626 TRA *+3 RG092380 | 53624 0074 00 4 57050 TSX ALPHA,4 RG092390 | 53625 0020 00 0 53774 TRA P2AR1 RG092400 | 53626 0074 00 4 63243 TSX G0010,4 RG092410 53627 0500 00 0 52364 CLA P2AP3 GET ADDRESS OF LINE COUNTER RG092420 | 53630 0621 00 0 52401 STA P2AP5 SET UP PACKAGE RG092430 | 53631 0621 00 0 52403 STA P2AP5+2 X RG092440 | 53632 -0500 00 0 61523 CAL E8250 RG092450 | 53633 0602 00 0 52402 SLW P2AP5+1 RG092460 53634 0560 00 0 07320 LDQ MASK+3 RG092470 | 53635 0074 00 4 40227 TSX STEPI,4 ESTABLISH PACKAGE RG092480 | 53636 0 00003 1 52401 PZE P2AP5,1,3 X RG092490 | 53637 -0500 00 0 52267 CAL P2AT1 GET =RT RN RG092500 | 53640 0400 00 0 52332 ADD P2AKT ADD K RG092510 53641 0602 00 0 53643 SLW *+2 SET UP PHI RG092520 | 53642 0074 00 4 40674 TSX CCNPD,4 DO PHI-WEAREAT =K RG092530 | 53643 +000000000000 DEC 0 X RG092540 | 53644 -0500 00 0 61153 CAL IP03+1 RG092550 | 53645 0602 00 0 52256 SLW P2AA4+5 RG092560 53646 0500 00 0 07162 P2A1D CLA P2AA3 GET OPERATION CODE RG092570 | 53647 -0320 00 0 52272 ANA P2AM2 * RG092580 | 53650 0340 00 0 52335 CAS Z2AKV COMP TO OP CODE 47 RG092590 | 53651 0020 00 0 53654 TRA *+3 NO RG092600 | 53652 0074 00 4 57050 TSX P2ARA,4 TSX TO ALPHA RG092610 53653 0020 00 0 53774 TRA P2AR1 SHY IS IT LOW RG092620 | 53654 0074 00 4 63243 TSX G0010,4 RG092630 | 53655 0500 00 0 07162 CLA P2AA3 RG092640 | 53656 -0320 00 0 52272 ANA P2AM2 X RG092650 | 53657 0340 00 0 52336 CAS P2AKV IS IT FOR D LINE RG092660 53660 0020 00 0 53663 TRA P2A1E NO RG092670 | 53661 0074 00 4 57050 TSX P2ARA,4 TO ALPHA ROUTINE RG092680 | 1 LISTING OF 12/01/64 PAGE 222 | PHASE 2 PROPER | 53662 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG092690 | 53663 0074 00 4 63243 P2A1E TSX G0010,4 CONDITIONAL RUN OUT RG092700 | 53664 0500 00 0 07162 CLA P2AA3 GET OPERATION CODE RG092710 | 53665 -0320 00 0 52272 ANA P2AM2 X RG092720 | 53666 0340 00 0 52337 CAS P2AKW IS IT HC FOR =N RG092730 53667 0020 00 0 53672 TRA *+3 NO RG092740 | 53670 0074 00 4 56274 TSX Z2AR2,4 TO HC ROUTINE RG092750 | 53671 0020 00 0 53774 TRA P2AR1 WHY IS IT LOW RG092760 | 53672 0074 00 4 63243 TSX G0010,4 RG092770 | 53673 0340 00 0 52340 P2A1F CAS P2AKX IS IT PRT RG092780 53674 0020 00 0 53700 TRA *+4 IT SHOULD BE. RG092790 | 53675 0074 00 4 53677 TSX *+2,4 YES RG092800 | 53676 0020 00 0 53774 TRA P2AR1 DROP DEAD RG092810 | 53677 1 77771 4 54340 TXI P2ARB,4,-7 TO PRT ROUTINE RG092820 | 53700 0074 00 4 63243 P2A1G TSX G0010,4 RG092830 53701 -0500 00 0 52267 CAL P2AT1 GET =RT RN RG092840 | 53702 0400 00 0 52341 ADD P2AKY ADD P RG092850 | 53703 0602 00 0 53705 SLW *+2 SET UP PHI RG092860 | 53704 0074 00 4 40674 TSX CCNPD,4 WE ARE AT =P RG092870 | 53705 +000000000000 DEC 0 X RG092880 53706 -0500 00 0 07162 CAL P2AA3 GET ART RG092890 | 53707 -0320 00 0 52270 ANA P2AM0 X RG092900 | 53710 0602 00 0 52266 SLW P2AT0 SAVE RG092910 | 53711 -0500 00 0 52267 CAL P2AT1 GET =RTORN RG092920 | 53712 0767 00 0 00006 ALS 6 X RG092930 53713 -0320 00 0 52270 ANA P2AM0 X RG092940 | 53714 -0340 00 0 52266 LAS P2AT0 ARE THEY EQUAL RG092950 | 53715 0020 00 0 53726 TRA P2A1H-3 NEXT IS LO RG092960 | 53716 0020 00 0 53432 TRA P2A15+4 FOR SAME ART RG092970 | 53717 -0500 00 0 52267 Z2A1G CAL P2AT1 GET =RT RN RG092980 53720 0400 00 0 52342 ADD P2AKZ ADD Z RG092990 | 53721 0602 00 0 53723 SLW *+2 SET UP PHU RG093000 | 53722 0074 00 4 40674 TSX CCNPD,4 WE ARE AT =P RG093010 | 53723 +000000000000 DEC 0 X RG093020 | 53724 0020 00 0 53751 TRA P2A1I SKIP EOJ RG093030 53725 0074 00 4 37677 TSX P2M06,4 NEXT RN LO RG093040 | 53726 +000000000310 OCT 310 RG093050 | 53727 -0625 00 0 34552 STL ERSWT RG093060 | 53730 0020 00 0 53717 TRA Z2A1G RG093070 | 53731 0634 00 4 53745 P2A1H SXA *+12,4 RG093080 53732 0074 00 4 63243 TSX G0010,4 RG093090 | 53733 -0500 00 0 52267 CAL P2AT1 RG093100 | 53734 0400 00 0 52341 ADD P2AKY RG093110 | 53735 0602 00 0 53737 SLW *+2 RG093120 | 53736 0074 00 4 40674 TSX CCNPD,4 WE ARE AT =RTPRN RG093130 53737 +000000000000 DEC 0 RG093140 | 53740 -0500 00 0 52267 CAL P2AT1 RG093150 | 53741 0400 00 0 52342 ADD P2AKZ RG093160 | 53742 0602 00 0 53744 SLW *+2 RG093170 | 53743 0074 00 4 40674 TSX CCNPD,4 WE ARE AT =RTZRN RG093180 53744 +000000000000 DEC 0 RG093190 | 53745 0774 00 4 00000 AXT 0,4 RG093200 | 53746 -3 24032 4 53772 TXL P2A1K,4,-* EOJ SW TEST RG093210 | 53747 0502 00 0 53762 CLS P2A1J SET SWITCH RG093220 | 53750 0601 00 0 53762 STO P2A1J X RG093230 1 LISTING OF 12/01/64 PAGE 223 | PHASE 2 PROPER | | 53751 0500 00 0 52267 P2A1I CLA P2AT1 GET =RTORN RG093240 | 53752 0601 00 0 52377 STO P2AP6+1 SET UP PACKAGE RG093250 53753 0500 00 0 52302 CLA P2AK5 GET ARR RG093260 | 53754 0621 00 0 52377 STA P2AP6+1 PUT IN PACKAGE RG093270 | 53755 0625 00 0 52377 STT P2AP6+1 X RG093280 | 53756 0560 00 0 52330 LDQ P2AKR GET PLUS SYMBOLIC KEY RG093290 | 53757 -0773 00 0 00041 RQL 33 X RG093300 53760 0074 00 4 40227 TSX STEPI,4 ESTABLISH PACKAGE RG093310 | 53761 0 00002 1 52376 PZE P2AP6,1,2 X RG093320 | 53762 3 00000 0 53772 P2A1J TXH P2A1K,0,0 IS THIS EOJ RG093330 | 53763 -0500 00 0 52273 CAL P2AM3 ANY MORE D LINE RG093340 | 53764 -0340 00 0 07162 LAS P2AA3 X RG093350 53765 0020 00 0 52774 TRA P2A0H YES, THIS IS ONE RG093360 | 53766 0761 00 0 00000 NOP NO RG093370 | 53767 0600 00 0 61507 STZ THSW SET ALPHA T+H LITERAL SW RG093380 | 53770 -0774 00 4 53775 AXC *+5,4 SET ALPHA RETURN RG093390 | 53771 0020 00 0 57050 TRA P2ARA TO ALPHA ROUTINE RG093400 53772 0020 00 0 64341 P2A1K TRA P2J50A RG093410 | 53773 +000000000000 DEC 0 SAVE AREA RG093420 | 53774 -0500 00 0 07162 P2AR1 CAL P2AA3 GET PARAMETER RG093430 | 53775 -0340 00 0 53773 LAS P2AR1-1 SAME AS LAST RG093440 | 53776 0020 00 0 54000 TRA *+2 NO RG093450 53777 0020 00 0 54002 TRA *+3 BAD PARAM SEQUENCE RG093460 | 54000 0602 00 0 53773 SLW P2AR1-1 SAVE RG093470 | 54001 0020 00 0 53700 TRA P2A1G GO ON RG093480 | 54002 0074 00 4 37677 TSX P2M06,4 BAD PARAM SEQ. RG093490 | 54003 +000000000210 OCT 210 RG093500 54004 0074 00 4 04000 TSX LOST,4 RG093510 | * ENTRY FOR TEST RG093520 | 54005 0634 00 1 54105 P2J0T SXA P2J05+1,1 SAVE INDEX REGISTERS RG093530 | 54006 0634 00 2 54106 SXA P2J05+2,2 SAVE INDEX REGISTERS RG093540 | 54007 -0500 00 0 07163 CAL P2AA3+1 GET LFT TABLE RG093550 54010 -0340 00 0 54335 LAS P2JK2 SAME AS LAST TIME RG093560 | 54011 0020 00 0 54013 TRA *+2 NO RG093570 | 54012 0020 00 0 54022 TRA P2J0V YES RG093580 | 54013 0602 00 0 54335 SLW P2JK2 UPDATE PREVIOUS RG093590 | 54014 -0500 00 0 07164 CAL P2AA3+2 GET RIGHT TABLE RG093600 54015 0771 00 0 00014 ARS 12 X RG093610 | 54016 0602 00 0 54336 P2J0U SLW P2JK6 UPDATE PREVIOUS RG093620 | 54017 0502 00 0 55026 CLS P2J0N SET SWITCH RG093630 | 54020 0601 00 0 55026 STO P2J0N X RG093640 | 54021 0020 00 0 54722 TRA P2CT0 TO CONVERT ROUTINE RG093650 54022 -0500 00 0 07164 P2J0V CAL P2AA3+2 GET RIGHT TABLE RG093660 | 54023 0771 00 0 00014 ARS 12 X RG093670 | 54024 -0340 00 0 54336 LAS P2JK6 SAME AS LAST TIME RG093680 | 54025 0020 00 0 54016 TRA P2J0U NO RG093690 | 54026 0020 00 0 54030 TRA *+2 YES RG093700 54027 0020 00 0 54016 TRA P2J0U NO RG093710 | 54030 0760 00 0 00000 CLM CLEAR AC RG093720 | 54031 0020 00 4 00001 TRA 1,4 EXIT FOR NO TEST RG093730 | * BUILD CLASSIFY TABLE TEST RG093740 | 54032 0520 00 0 52141 P2J00 ZET P2CTA+2 ANY TEST NEEDED RG093750 54033 0020 00 0 54036 TRA P2J01 YES RG093760 | 54034 0760 00 0 00000 CLM ZERO AC RG093770 | 54035 0020 00 0 54105 TRA P2J05+1 TRA TO RESTORE IR S RG093780 | 1 LISTING OF 12/01/64 PAGE 224 | PHASE 2 PROPER | 54036 0774 00 1 00002 P2J01 AXT 2,1 SET UP COUNT RG093790 | 54037 0774 00 2 00012 AXT 10,2 SET UP MONITOR RG093800 | 54040 0634 00 4 54104 SXA P2J05,4 SAVE RETURN RG093810 | 54041 0500 00 0 54322 CLA P2JA1 GET TXH RG093820 54042 0601 00 0 54307 STO P2JA0-11 PUT IN AREA RG093830 | 54043 0560 00 0 54334 LDQ P2JK1 GET PLUS RELATIVE KEY RG093840 | 54044 0441 00 0 52141 LDI P2CTA+2 GET INDICATION RG093850 | 54045 0054 00 170360 RFT 170360 ANY FOR TABLE 2 RG093860 | 54046 0020 00 0 54160 TRA P2J0C YES RG093870 54047 0500 00 0 54323 P2J02 CLA P2JA2 GET LDI RG093880 | 54050 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG093890 | 54051 -0500 00 0 21771 CAL P2AA2 GET ADDRESS OF LEFT TABLE RG093900 | 54052 0400 00 0 52304 ADD P2AK7 X RG093910 | 54053 0621 00 2 54322 STA P2JA0,2 PUT IN AREA RG093920 54054 -0773 00 0 00003 RQL 3 GET ACTUAL KEY RG093930 | 54055 -2 00001 2 54301 TNX P2J0M,2,1 BUMP MONITOR RG093940 | 54056 1 00001 1 54057 TXI *+1,1,1 INCREASE COUNT RG093950 | 54057 0054 00 000017 RFT 17 ANY POSITIVE FOR TABLE 1 RG093960 | 54060 0020 00 0 54110 TRA P2J06 YES RG093970 54061 0054 00 001400 P2J03 RFT 1400 D- 1L NEG RG093980 | 54062 0020 00 0 54064 TRA *+2 YES- TEST FOR C RG093990 | 54063 0020 00 0 54143 TRA P2J0A GET RFT RG094000 | 54064 0054 00 006000 RFT 6000 C- 1R NEG RG094010 | 54065 0020 00 0 54067 TRA *+2 YES- GET OMT RG094020 54066 0020 00 0 54151 TRA P2J0B GET LFT RG094030 | 54067 0500 00 0 54325 CLA P2JA4 GET OFT RG094040 | 54070 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG094050 | 54071 0074 00 4 35441 TSX STEPC,4 ESTABLISH MASK RG094060 | 54072 0 00001 1 52142 PZE P2CTA+3,1,1 X RG094070 54073 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG094080 | 54074 1 77777 1 54075 P2J04 TXI *+1,1,-1 ADJUST COUNT RG094090 | 54075 -3 00012 1 54100 TXL *+3,1,10 MAXIMUM RG094100 | 54076 -0773 00 0 00041 RQL 33 YES RG094110 | 54077 0020 00 0 54103 TRA *+4 POSITION KEYS RG094120 54100 -0773 00 1 00012 RQL 10,1 X RG094130 | 54101 -0773 00 1 00012 RQL 10,1 X RG094140 | 54102 -0773 00 1 00012 RQL 10,1 X RG094150 | 54103 0754 00 1 00000 PXA 0,1 GET COUNT RG094160 | 54104 0774 00 4 00000 P2J05 AXT 0,4 RESET RETURN RG094170 54105 0774 00 1 00000 AXT 0,1 X RG094180 | 54106 0774 00 2 00000 AXT 0,2 X RG094190 | 54107 0020 00 4 00001 TRA 1,4 TEST EXIT RG094200 | 54110 0054 00 000003 P2J06 RFT 3 H- 1L POSITIVE RG094210 | 54111 0020 00 0 54113 TRA *+2 YES- TEST FOR G RG094220 54112 0020 00 0 54126 TRA P2J08 NO- GRT RNT RG094230 | 54113 0054 00 000014 RFT 14 G- 1R POSITIVE RG094240 | 54114 0020 00 0 54116 TRA *+2 GET ONT RG094250 | 54115 0020 00 0 54134 TRA P2J09 GET LNT RG094260 | 54116 0500 00 0 54324 CLA P2JA3 GET ONT RG094270 54117 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG094280 | 54120 0074 00 4 35441 TSX STEPC,4 ESTABLISH MASK RG094290 | 54121 0 00001 1 52137 PZE P2CTA,1,1 X RG094300 | 54122 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG094310 | 54123 0054 00 007400 P2J07 RFT 7400 ANY NEG FOR TABLE 1 RG094320 54124 0020 00 0 54061 TRA P2J03 YES RG094330 | 1 LISTING OF 12/01/64 PAGE 225 | PHASE 2 PROPER | | 54125 0020 00 0 54074 TRA P2J04 NO RG094340 54126 0500 00 0 54327 P2J08 CLA P2JA6 GET RNT RG094350 | 54127 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG094360 | 54130 0500 00 0 52137 CLA P2CTA GET MASK RG094370 | 54131 0625 00 2 54322 STT P2JA0,2 PUT IN AREA RG094380 | 54132 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG094390 54133 0020 00 0 54123 TRA P2J07 RG094400 | 54134 0500 00 0 54326 P2J09 CLA P2JA5 GET LNT RG094410 | 54135 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG094420 | 54136 -0500 00 0 52137 CAL P2CTA GET MASK RG094430 | 54137 0771 00 0 00022 ARS 18 X RG094440 54140 0625 00 2 54322 STT P2JA0,2 PUT IN AREA RG094450 | 54141 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG094460 | 54142 0020 00 0 54123 TRA P2J07 RG094470 | 54143 0500 00 0 54331 P2J0A CLA P2JA8 GET RFT RG094480 | 54144 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG094490 54145 0500 00 0 52142 CLA P2CTA+3 GET MASK RG094500 | 54146 0625 00 2 54322 STT P2JA0,2 PUT IN AREA RG094510 | 54147 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG094520 | 54150 0020 00 0 54074 TRA P2J04 RG094530 | 54151 0500 00 0 54330 P2J0B CLA P2JA7 GET LFT RG094540 54152 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG094550 | 54153 -0500 00 0 52142 CAL P2CTA+3 GET MASK RG094560 | 54154 0771 00 0 00022 ARS 18 X RG094570 | 54155 0625 00 2 54322 STT P2JA0,2 PUT IN AREA RG094580 | 54156 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG094590 54157 0020 00 0 54074 TRA P2J04 RG094600 | 54160 0500 00 0 54323 P2J0C CLA P2JA2 GET LDI RG094610 | 54161 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG094620 | 54162 -0500 00 0 21771 CAL P2AA2 GET ADDRESS OF RIGHT TABLE RG094630 | 54163 0400 00 0 52322 ADD P2AKL X RG094640 54164 0621 00 2 54322 STA P2JA0,2 PUT IN AREA RG094650 | 54165 -0773 00 0 00003 RQL 3 GET ACTUAL KEY RG094660 | 54166 -2 00001 2 54301 TNX P2J0M,2,1 BUMP MONITOR RG094670 | 54167 1 00001 1 54170 TXI *+1,1,1 INCREASE COUNT RG094680 | 54170 0054 00 000360 RFT 000360 ANY YES FOR TABLE 2 RG094690 54171 0020 00 0 54210 TRA P2J0F YES RG094700 | 54172 0054 00 030000 P2J0D RFT 030000 B- 2L NEG RG094710 | 54173 0020 00 0 54175 TRA *+2 YES- TEST FOR A RG094720 | 54174 0020 00 0 54243 TRA P2J0J GET RFT RG094730 | 54175 0054 00 140000 RFT 140000 A- 2R NEG RG094740 54176 0020 00 0 54200 TRA *+2 YES- GET ONT RG094750 | 54177 0020 00 0 54251 TRA P2J0K GET LFT RG094760 | 54200 0500 00 0 54325 CLA P2JA4 GET OFT RG094770 | 54201 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG094780 | 54202 0074 00 4 35441 TSX STEPC,4 ESTABLISH MASK RG094790 54203 0 00001 1 52143 PZE P2CTA+4,1,1 X RG094800 | 54204 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG094810 | 54205 0054 00 007417 P2J0E RFT 007417 ANY FOR TABLE 1 RG094820 | 54206 0020 00 0 54047 TRA P2J02 YES RG094830 | 54207 0020 00 0 54074 TRA P2J04 NO RG094840 54210 0054 00 000060 P2J0F RFT 000060 F- 2L POSITIVE RG094850 | 54211 0020 00 0 54213 TRA *+2 YES- TEST FOR E RG094860 | 54212 0020 00 0 54226 TRA P2J0H NO- GET RNT RG094870 | 54213 0054 00 000300 RFT 000300 E- 2R POSITIVE RG094880 | 1 LISTING OF 12/01/64 PAGE 226 PHASE 2 PROPER | | 54214 0020 00 0 54216 TRA *+2 GET ONT RG094890 | 54215 0020 00 0 54234 TRA P2J0I GET LNT RG094900 | 54216 0500 00 0 54324 CLA P2JA3 GET ONT RG094910 54217 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG094920 | 54220 0074 00 4 35441 TSX STEPC,4 ESTABLISH MASK RG094930 | 54221 0 00001 1 52140 PZE P2CTA+1,1,1 X RG094940 | 54222 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG094950 | 54223 0054 00 170000 P2J0G RFT 170000 ANY NEG FOR TABLE 2 RG094960 54224 0020 00 0 54172 TRA P2J0D YES RG094970 | 54225 0020 00 0 54205 TRA P2J0E NO RG094980 | 54226 0500 00 0 54327 P2J0H CLA P2JA6 GET RNT RG094990 | 54227 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG095000 | 54230 0500 00 0 52140 CLA P2CTA+1 GET MASK RG095010 54231 0625 00 2 54322 STT P2JA0,2 PUT IN AREA RG095020 | 54232 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG095030 | 54233 0020 00 0 54223 TRA P2J0G RG095040 | 54234 0500 00 0 54326 P2J0I CLA P2JA5 GET LNT RG095050 | 54235 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG095060 54236 -0500 00 0 52140 CAL P2CTA+1 RG095070 | 54237 0771 00 0 00022 ARS 18 X RG095080 | 54240 0625 00 2 54322 STT P2JA0,2 PUT IN AREA RG095090 | 54241 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG095100 | 54242 0020 00 0 54223 TRA P2J0G RG095110 54243 0500 00 0 54331 P2J0J CLA P2JA8 GET F RFT RG095120 | 54244 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG095130 | 54245 0500 00 0 52143 CLA P2CTA+4 GET MASK RG095140 | 54246 0625 00 2 54322 STT P2JA0,2 PUT IN AREA RG095150 | 54247 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG095160 54250 0020 00 0 54205 TRA P2J0E RG095170 | 54251 0500 00 0 54330 P2J0K CLA P2JA7 GET LFT RG095180 | 54252 0601 00 2 54322 STO P2JA0,2 PUT IN AREA RG095190 | 54253 -0500 00 0 52143 CAL P2CTA+4 RG095200 | 54254 0771 00 0 00022 ARS 18 X RG095210 54255 0625 00 2 54322 STT P2JA0,2 PUT IN AREA RG095220 | 54256 0074 00 4 54260 TSX P2J0L,4 BUILD TRA RG095230 | 54257 0020 00 0 54205 TRA P2J0E RG095240 | 54260 0621 00 2 54322 P2J0L STA P2JA0,2 PUT IN AREA RG095250 | 54261 0500 00 0 54332 CLA P2JA9 GET TRA RG095260 54262 0601 00 2 54323 STO P2JA0+1,2 PUT IN AREA RG095270 | 54263 0754 00 1 00000 PXA 0,1 GET COUNT RG095280 | 54264 0402 00 0 61401 SUB C1+5 SUB 3 RG095290 | 54265 -0100 00 0 54272 TNZ *+5 RG095300 | 54266 -0500 00 0 07315 CAL MASK RG095310 54267 0320 00 2 54323 ANS P2JA0+1,2 RG095320 | 54270 -0754 00 0 00000 PXD 0,0 RG095330 | 54271 0020 00 0 54274 TRA *+3 RG095340 | 54272 0621 00 2 54323 STA P2JA0+1,2 PUT IN AREA RG095350 | 54273 0500 00 0 54333 CLA P2JK0 GET MINUS RELATIVE KEY RG095360 54274 -0765 00 0 00003 LGR 3 X RG095370 | 54275 -0773 00 0 00011 RQL 9 X RG095380 | 54276 -2 00002 2 54301 TNX P2J0M,2,2 BUMP MONITOR RG095390 | 54277 1 00002 1 54300 TXI *+1,1,2 INCREASE COUNT RG095400 | 54300 0020 00 4 00001 TRA 1,4 EXIT RG095410 54301 -3 00000 2 54303 P2J0M TXL *+2,2,0 RG095420 | 54302 0020 00 0 54277 TRA P2J0M-2 RG095430 | 1 LISTING OF 12/01/64 PAGE 227 | PHASE 2 PROPER | 54303 0074 00 4 37677 TSX P2M06,4 TEST PACKAGE TOO BIG RG095440 | 54304 +000000000212 OCT 212 RG095450 | 54305 0074 00 4 04000 TSX LOST,4 RG095460 | * CONSTANTS FOR TEST PACKAGE RG095470 | 54306 +000000000000 DEC 0 EXTRA WORD RG095480 54322 P2JA0 BES 11 AREA FOR RESULTS RG095490 | 54322 3 00000 0 00000 P2JA1 TXH 0,0,0 RG095500 | 54323 0441 00 0 00000 P2JA2 LDI 0 RG095510 | 54324 0446 00 0 00000 P2JA3 ONT 0 RG095520 | 54325 0444 00 0 00000 P2JA4 OFT 0 RG095530 54326 -0056 00 000000 P2JA5 LNT 0 RG095540 | 54327 0056 00 000000 P2JA6 RNT 0 RG095550 | 54330 -0054 00 000000 P2JA7 LFT 0 RG095560 | 54331 0054 00 000000 P2JA8 RFT 0 RG095570 | 54332 0020 60 0 00000 P2JA9 TRA* 0 RG095580 54333 +000000000001 P2JK0 DEC 1 MINUS RELATIVE KEY RG095590 | 54334 +000000000200 P2JK1 OCT 200 PLUS RELATIVE KEY RG095600 | 54335 +000000000000 P2JK2 DEC 0 PREVIOUS FOR TABLES RG095610 | 54336 +000000000000 P2JK6 DEC 0 X RG095620 | 54337 +000000000000 P2JK7 DEC 0 RG095630 * PRT ROUTINE RG095640 | 54340 0634 00 4 54470 P2ARB SXA P2J11,4 SAVE RETURN RG095650 | 54341 0500 00 0 22657 CLA P2AA0 GET LFT MONITOR RG095660 | 54342 -0100 00 0 54346 TNZ *+4 X RG095670 | 54343 0074 00 4 37677 TSX P2M06,4 NO LFT FOR LINE. RG095680 54344 +000000000211 OCT 211 RG095690 | 54345 0074 00 4 04000 TSX LOST,4 RG095700 | 54346 0622 00 0 54361 STD P2J31 SET LIMIT RG095710 | 54347 0774 00 1 00620 AXT P2JB5,1 SET LOOP RG095720 | 54350 -0500 00 0 07162 CAL P2AA3 GET ART RG095730 54351 0767 00 0 00014 ALS 12 LINE + LEVAL RG095740 | 54352 -0320 00 0 61445 ANA MASKA 00 77 77 00 00 00 RG095750 | 54353 0601 00 0 52266 STO P2AT0 SAVE RG095760 | 54354 0500 00 1 22657 P2J30 CLA P2AA0,1 GET ENTRY FROM LFT RG095770 | 54355 -0320 00 0 61445 ANA MASKA 00 77 77 00 00 00 RG095780 54356 0322 00 0 52266 ERA P2AT0 IS THIS IT RG095790 | 54357 0100 00 0 54366 TZE P2J32 YES RG095800 | 54360 1 77776 1 54361 TXI *+1,1,-2 NO RG095810 | 54361 3 00000 1 54354 P2J31 TXH P2J30,1,0 ANY LEFT RG095820 | 54362 0774 00 2 00007 AXT 7,2 NOT IN TABLE RG095830 54363 -0500 00 0 52266 CAL P2AT0 MESSAGE. RG095840 | 54364 0074 00 4 37665 TSX P2M05,4 X RG095850 | 54365 0074 00 4 04000 TSX LOST,4 NO OURS IS MISSING RG095860 | 54366 0074 00 4 54005 P2J32 TSX P2J0T,4 GET TEST RG095870 | 54367 0441 00 1 22660 LDI P2AA0+1,1 GET ON LINE INDICATION RG095880 54370 0100 00 0 54454 TZE P2J10 RG095890 | 54371 0734 00 4 00000 PAX 0,4 RG095900 | 54372 1 77777 4 54373 TXI *+1,4,-1 RG095910 | 54373 -0634 00 4 54402 SXD PR03,4 RG095920 | 54374 0402 00 0 61402 SUB C1+6 SUB 2 RG095930 54375 0621 00 0 54312 STA P2JA0-8 RG095940 | 54376 -0763 00 0 00014 LGL 12 RG095950 | 54377 -0500 00 0 61402 CAL C1+6 RG095960 | 54400 -0765 00 0 00011 LGR 9 RG095970 | 54401 0074 00 4 40227 TSX STEPI,4 STEP IC. -COND. TEST. RG095980 1 LISTING OF 12/01/64 PAGE 228 | PHASE 2 PROPER | | 54402 0 00000 1 54310 PR03 PZE P2JA0-10,1,0 RG095990 | 54403 0074 00 4 35523 TSX STEPM,4 BUILD ZIGGER FOR PRT FUNCTION RG096000 54404 0 00000 0 06764 PZE DCRM1 RG096010 | 54405 0621 00 0 61555 STA PRI03+1 RG096020 | 54406 0621 00 0 61561 STA PRI04+1 RG096030 | 54407 0621 00 0 61566 STA PRI05+1 RG096040 | 54410 0621 00 0 61574 STA PRI06+1 RG096050 54411 0074 00 4 35523 TSX STEPM,4 ELIMINATE PRT ZIGGER RG096060 | 54412 0 00000 0 07067 PZE BCD67 RG096070 | 54413 0621 00 0 61600 STA PRI07 RG096080 | 54414 0441 00 0 22022 PR06 LDI P2AA2+25 TEST FOR RPT. RG096090 | 54415 -0056 00 000060 LNT 60 RG096100 54416 0020 00 0 54424 TRA PR08 RPT. RG096110 | 54417 0560 00 0 61557 PR07 LDQ PRK03 REC.- LOAD KEY RG096120 | 54420 0074 00 4 40227 TSX STEPI,4 STEP IC. RG096130 | 54421 0 00003 1 61554 PZE PRI03,1,3 RG096140 | 54422 -0625 00 0 61602 STL PRTSW RG096150 54423 0020 00 0 54454 TRA P2J10 RG096160 | 54424 0441 00 1 22660 PR08 LDI P2AA0+1,1 TEST - ON LINE ONLY RG096170 | 54425 -0056 00 002000 LNT 002000 RG096180 | 54426 0020 00 0 54417 TRA PR07 YES RG096190 | 54427 -0500 00 0 22006 CAL P2AA2+13 NO.-TEST LINE/PAGE RG096200 54430 -0320 00 0 07325 ANA MASK+8 RG096210 | 54431 -0100 00 0 54441 TNZ PR09 RG096220 | 54432 -0054 00 200000 LFT 200000 TEST-ON LINE PRINT RG096230 | 54433 0020 00 0 54417 TRA PR07 NO RG096240 | 54434 0560 00 0 61564 LDQ PRK04 YES - SET KEYS RG096250 54435 0074 00 4 40227 TSX STEPI,4 STEP IC. RG096260 | 54436 0 00004 1 61573 PZE PRI06,1,4 RG096270 | 54437 -0625 00 0 61602 STL PRTSW RG096280 | 54440 0020 00 0 54454 TRA P2J10 RG096290 | 54441 -0054 00 200000 PR09 LFT 200000 TEST - ON LINE PRINT RG096300 54442 0020 00 0 54450 TRA PR10 NO. RG096310 | 54443 0560 00 0 61572 LDQ PRK05 YES - LOAD KEY RG096320 | 54444 0074 00 4 40227 TSX STEPI,4 STEP-IC. RG096330 | 54445 0 00005 1 61565 PZE PRI05,1,5 RG096340 | 54446 -0625 00 0 61602 STL PRTSW RG096350 54447 0020 00 0 54454 TRA P2J10 RG096360 | 54450 0560 00 0 61564 PR10 LDQ PRK04 LOAD KEYS RG096370 | 54451 0074 00 4 40227 TSX STEPI,4 RG096380 | 54452 0 00004 1 61560 PZE PRI04,1,4 RG096390 | 54453 -0625 00 0 61602 STL PRTSW RG096400 54454 0441 00 0 22022 P2J10 LDI P2AA2+25 TEST FOR REPORT RG096410 | 54455 -0056 00 000060 LNT 60 NO RG096420 | 54456 0020 00 0 54472 TRA PR12 YES RG096430 | 54457 0560 00 0 07331 PR11 LDQ MASK+12 LOAD KEY 40 00 00 00 00 00 RG096440 | 54460 0074 00 4 40227 TSX STEPI,4 STEP IC WRITE RG096450 54461 0 00002 1 52404 PZE P2AP5+3,1,2 RG096460 | 54462 -0520 00 0 61602 NZT PRTSW RG096470 | 54463 0020 00 0 54470 TRA P2J11 RG096480 | 54464 0560 00 0 61577 LDQ PRK07 RG096490 | 54465 0074 00 4 40227 TSX STEPI,4 RG096500 54466 0 00002 1 61600 PZE PRI07,1,2 RG096510 | 54467 0600 00 0 61602 STZ PRTSW RG096520 | 54470 0774 00 4 00000 P2J11 AXT 0,4 RG096530 | 1 LISTING OF 12/01/64 PAGE 229 | PHASE 2 PROPER | 54471 0020 00 0 52711 TRA P2AR0 READ PARAMETER RG096540 | 54472 0441 00 1 22660 PR12 LDI P2AA0+1,1 TEST FOR ON LINE ONLY RG096550 | 54473 -0054 00 002000 LFT 002000 YES RG096560 | 54474 0020 00 0 54504 TRA PR13 NO RG096570 54475 0534 00 4 22012 LXA P2AA2+17,4 GET OUTPUT WORD COUNT RG096580 | 54476 -0634 00 4 52423 SXD P2APA,4 TO DECR. -PZE- RG096590 | 54477 0634 00 0 52423 SXA P2APA,0 RG096600 | 54500 0560 00 0 07331 LDQ MASK+12 LOAD KEY RG096610 | 54501 0074 00 4 40227 TSX STEPI,4 RG096620 54502 0 00003 1 52421 PZE P2APA-2,1,3 RG096630 | 54503 0020 00 0 54470 TRA P2J11 RG096640 | 54504 -0500 00 0 22006 PR13 CAL P2AA2+13 TEST LINES PER PAGE RG096650 | 54505 -0320 00 0 07325 ANA MASK+8 RG096660 | 54506 0100 00 0 54531 TZE PR14 RG096670 54507 -0500 00 1 22657 CAL P2AA0,1 RG096680 | 54510 -0320 00 0 07004 ANA BCD04 RG096690 | 54511 0100 00 0 54520 TZE *+7 RG096700 | 54512 0402 00 0 06762 SUB TAG2 RG096710 | 54513 0100 00 0 54522 TZE *+7 RG096720 54514 0402 00 0 06763 SUB TAG4 RG096730 | 54515 0100 00 0 54524 TZE *+7 RG096740 | 54516 -0500 00 0 61524 CAL E8260 RG096750 | 54517 0020 00 0 54525 TRA *+6 RG096760 | 54520 -0500 00 0 61521 CAL E8230 O RG096770 54521 0020 00 0 54525 TRA *+4 RG096780 | 54522 -0500 00 0 61522 CAL E8240 + RG096790 | 54523 0020 00 0 54525 TRA *+2 RG096800 | 54524 -0500 00 0 61523 CAL E8250 BLANK RG096810 | 54525 0602 00 0 52402 SLW P2AP5+1 RG096820 54526 0560 00 0 07320 LDQ MASK+3 RG096830 | 54527 0074 00 4 40227 TSX STEPI,4 STEP 1C LINE CTR. DECR. RG096840 | 54530 0 00003 1 52401 PZE P2AP5,1,3 PKG. RG096850 | 54531 0441 00 1 22660 PR14 LDI P2AA0+1,1 TEST ON LINE PRINT RG096860 | 54532 -0054 00 200000 LFT 200000 RG096870 54533 0020 00 0 54457 TRA PR11 RG096880 | 54534 -0500 00 0 07323 CAL MASK+6 RG096890 | 54535 0621 00 0 52423 STA P2APA RG096900 | 54536 0534 00 4 22012 LXA P2AA2+17,4 RG096910 | 54537 -0634 00 4 52423 SXD P2APA,4 RG096920 54540 0560 00 0 07331 LDQ MASK+12 RG096930 | 54541 0074 00 4 40227 TSX STEPI,4 RG096940 | 54542 0 00003 1 52421 PZE P2APA-2,1,3 RG096950 | 54543 0020 00 0 54457 TRA PR11 RG096960 | * ACT ROUTINE RG096970 54544 0634 00 4 54570 P2AR3 SXA P2J12,4 SAVE RETURN RG096980 | 54545 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG096990 | 54546 0074 00 4 54005 TSX P2J0T,4 BUILD TEST RG097000 | 54547 0100 00 0 54570 TZE P2J12 NONE RG097010 | 54550 0402 00 0 52304 SUB P2AK7 SUB 1 RG097020 54551 0767 00 0 00022 ALS 18 POSITION RG097030 | 54552 0622 00 0 54567 STD P2J12-1 SET UP IC RG097040 | 54553 0074 00 4 40445 TSX IC300,4 MAKE ICNPD ENTRY RG097050 | 54554 -0534 00 4 20326 LXD ICNPD,4 RG097060 | 54555 -0500 00 0 52267 CAL P2AT1 GET =RTORN RG097070 54556 0602 00 4 20326 SLW ICNPD,4 RG097080 | 1 LISTING OF 12/01/64 PAGE 230 | PHASE 2 PROPER | | 54557 0500 00 0 52302 CLA P2AK5 GET ARR RG097090 54560 0621 00 4 20326 STA ICNPD,4 RG097100 | 54561 0625 00 4 20326 STT ICNPD,4 RG097110 | 54562 -0500 00 0 04401 CAL ICULC RG097120 | 54563 0400 00 0 61402 ADD C1+6 PLUS 2 RG097130 | 54564 0602 00 4 20327 SLW ICNPD+1,4 RG097140 54565 -0773 00 0 00003 RQL 3 RG097150 | 54566 0074 00 4 40227 TSX STEPI,4 ESTABLISH PACKAGE RG097160 | 54567 0 00000 1 54310 PZE P2JA0-10,1,0 RG097170 | 54570 0774 00 4 00000 P2J12 AXT 0,4 RESET RETURN RG097180 | 54571 0600 00 0 54335 STZ P2JK2 RG097190 54572 0600 00 0 54336 STZ P2JK6 RG097200 | 54573 0020 00 0 52711 TRA P2AR0 READ PARAMETER RG097210 | * SET TABLE ROUTINE RG097220 | 54574 0634 00 4 54630 P2CS0 SXA P2J15,4 SAVE RETURN RG097230 | 54575 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG097240 54576 0774 00 1 00000 AXT 0,1 SET FOR ONCE RG097250 | 54577 -0500 00 0 52137 CAL P2CTA ANY FOR LEFT RG097260 | 54600 0100 00 0 54614 TZE P2J13 NO RG097270 | 54601 -0602 00 0 52253 ORS P2AA4+2 X RG097280 | 54602 0074 00 4 35441 TSX STEPC,4 ESTABLISH MASK RG097290 54603 0 00001 1 52137 PZE P2CTA,1,1 X RG097300 | 54604 0621 00 0 52411 STA P2AP8 SET UP PACKAGE RG097310 | 54605 -0500 00 0 21771 CAL P2AA2 GET ADDRESS OF RIGHT TABLE RG097320 | 54606 0400 00 0 52304 ADD P2AK7 X RG097330 | 54607 0621 00 0 52412 STA P2AP8+1 PUT IN PACKAGE RG097340 54610 -0500 00 0 52140 CAL P2CTA+1 RG097350 | 54611 -0100 00 0 54613 TNZ *+2 RG097360 | 54612 0020 00 0 54627 TRA P2J14 NO RG097370 | 54613 0774 00 1 77776 AXT -2,1 SET FOR TWICE RG097380 | 54614 -0500 00 0 52140 P2J13 CAL P2CTA+1 BUILD PARTIAL RESET MASK RG097390 54615 -0602 00 0 52254 ORS P2AA4+3 X RG097400 | 54616 0074 00 4 35441 TSX STEPC,4 ESTABLISH MASK RG097410 | 54617 0 00001 1 52140 PZE P2CTA+1,1,1 X RG097420 | 54620 0621 00 1 52411 STA P2AP8,1 PUT IN PACKAGE RG097430 | 54621 -0500 00 0 21771 CAL P2AA2 GET ADDRESS OF LEFT TABLE RG097440 54622 0400 00 0 52322 ADD P2AKL X RG097450 | 54623 0621 00 1 52412 STA P2AP8+1,1 PUT IN PACKAGE RG097460 | 54624 -3 00000 1 54627 TXL P2J14,1,0 ONE/ OR TWO RG097470 | 54625 0500 00 0 52330 CLA P2AKR GET 4 RG097480 | 54626 0020 00 0 54630 TRA P2J15 RG097490 54627 0500 00 0 52322 P2J14 CLA P2AKL GET 2 RG097500 | 54630 0774 00 4 00000 P2J15 AXT 0,4 RESET RETURN RG097510 | 54631 0601 00 0 55531 STO P2CCZ SAVE COUNT OF INSTR RG097520 | 54632 0020 00 4 00001 TRA 1,4 EXIT RG097530 | * RECLASSIFY ROUTINE RG097540 54633 0634 00 4 54707 P2AR6 SXA P2J24,4 SAVE RETURN RG097550 | 54634 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG097560 | 54635 -0500 00 0 07170 CAL P2AA3+6 GET TABLE TO SET RG097570 | 54636 0600 00 0 54335 STZ P2JK2 RG097580 | 54637 0600 00 0 54336 STZ P2JK6 RG097590 54640 0734 00 1 00000 PAX 0,1 RG097600 | 54641 3 00007 1 54707 TXH P2J24,1,7 DROP OUT IF ILLEGAL RG097610 | 54642 3 00003 1 54646 TXH P2J20,1,3 IS IT LEFT RG097620 | 54643 -0500 00 0 07163 CAL P2AA3+1 GET LEFT TABLE RG097630 | 1 LISTING OF 12/01/64 PAGE 231 PHASE 2 PROPER | | 54644 0560 00 0 07163 LDQ P2AA3+1 X RG097640 | 54645 0020 00 0 54650 TRA P2J21 RG097650 | 54646 -0500 00 0 07164 P2J20 CAL P2AA3+2 GET RIGHT TABLE RG097660 54647 0560 00 0 07164 LDQ P2AA3+2 X RG097670 | 54650 -0320 00 1 54720 P2J21 ANA P2J25,1 ZERO TABLE TO SET RG097680 | 54651 -0130 00 0 00000 XCL RG097690 | 54652 -0501 00 1 54720 ORA P2J25,1 ZERO REST RG097700 | 54653 0322 00 1 54720 ERA P2J25,1 X RG097710 54654 3 00003 1 54661 TXH P2J22,1,3 IS IT LEFT RG097720 | 54655 0602 00 0 07171 SLW P2AA3+7 SET UP PARAMETER RG097730 | 54656 -0600 00 0 07163 STQ P2AA3+1 X RG097740 | 54657 0600 00 0 07172 STZ P2AA3+8 RG097750 | 54660 0020 00 0 54664 TRA P2J23 RG097760 54661 0602 00 0 07172 P2J22 SLW P2AA3+8 SET UP PARAMETER RG097770 | 54662 -0600 00 0 07164 STQ P2AA3+2 X RG097780 | 54663 0600 00 0 07171 STZ P2AA3+7 RG097790 | 54664 0074 00 4 54005 P2J23 TSX P2J0T,4 SET UP TEST RG097800 | 54665 0402 00 0 61376 SUB C1+2 ONE RG097810 54666 0621 00 0 54312 STA P2JA0-8 RG097820 | 54667 0767 00 0 00022 ALS 18 POSITION RG097830 | 54670 0622 00 0 54675 STD *+5 RG097840 | 54671 -0763 00 0 00014 LGL 12 RG097850 | 54672 -0500 00 0 52322 CAL P2AKL RG097860 54673 -0765 00 0 00011 LGR 9 RG097870 | 54674 0074 00 4 40227 TSX STEPI,4 ESTABLISH TEST RG097880 | 54675 0 00000 1 54310 PZE P2JA0-10,1,0 RG097890 | 54676 -0500 00 0 07171 CAL P2AA3+7 ADJUST PARAMETER RG097900 | 54677 0602 00 0 07163 SLW P2AA3+1 X RG097910 54700 -0500 00 0 07172 CAL P2AA3+8 X RG097920 | 54701 0602 00 0 07164 SLW P2AA3+2 X RG097930 | 54702 0074 00 4 54722 TSX P2CT0,4 SET UP KEYS RG097940 | 54703 0760 00 0 00000 CLM KEY KEYS RG097950 | 54704 -0130 00 0 00000 XCL X RG097960 54705 0074 00 4 40227 TSX STEPI,4 ESTABLISH SET RG097970 | 54706 0 00002 1 52411 PZE P2AP8,1,2 X RG097980 | 54707 0774 00 4 00000 P2J24 AXT 0,4 RESET RETURN RG097990 | 54710 0020 00 0 52711 TRA P2AR0 READ PARAMETER RG098000 | 54711 -377777007777 OCT 777777007777 MASK TABLE RG098010 54712 -377700777777 OCT 777700777777 RG098020 | 54713 -370077777777 OCT 770077777777 RG098030 | 54714 +007777777777 OCT 007777777777 RG098040 | 54715 -377777777700 OCT 777777777700 RG098050 | 54716 -377777770077 OCT 777777770077 RG098060 54717 -377777007777 OCT 777777007777 RG098070 | 54720 -377700777777 P2J25 OCT 777700777777 RG098080 | 54721 606060606060 P2J26 BCI 1, BLANKS RG098090 | * CONVERT PARAMETER CLASSIFY TABLE BY O L WICKS 6/23/58 RG098100 | 54722 0774 00 1 00016 P2CT0 AXT 14,1 STORE ZEROS TO WORK AREAS RG098110 54723 0600 00 1 52155 STZ P2CTA+14,1 X RG098120 | 54724 2 00001 1 54723 TIX *-1,1,1 X RG098130 | 54725 0774 00 2 77767 AXT -9,2 SET XR FOR 8 CHARACTERS RG098140 | 54726 0774 00 1 00004 P2CT1 AXT 4,1 SET UP IR FOR LOOPING RG098150 | 54727 -0500 00 0 07163 CAL P2AA3+1 GET 1ST 4 BCD CHARACTER RG098160 54730 0767 00 0 00015 ALS 13 UNPACK RG098170 | 54731 0771 00 0 00001 ARS 1 * RG098180 | 1 LISTING OF 12/01/64 PAGE 232 | PHASE 2 PROPER | 54732 -0100 00 0 54734 Z2CT1 TNZ *+2 RG098190 | 54733 1 00004 2 54754 TXI P2CT4+1,2,4 ALL CHARACTERS ARE BLANK RG098200 | 54734 -0130 00 0 00000 XCL RG098210 | 54735 0754 00 0 00000 PXA 0,0 CLEAR AC RG098220 | 54736 0767 00 0 00011 P2CT2 ALS 9 POSITION AC FOR ADDING NEXT CODE RG098230 54737 0602 00 0 55046 SLW P2CTD+2 RG098240 | 54740 0162 00 0 54742 TQP *+2 TEST FOR NEGATIVE RG098250 | 54741 0020 00 0 54766 TRA P2CT6 *YES RG098260 | 54742 0754 00 0 00000 PXA 0,0 CLEAR ACCUMULATOR RG098270 | 54743 -0763 00 0 00006 LGL 6 TEST FOR BLANK RG098280 54744 0100 00 0 54750 TZE *+4 *YES RG098290 | 54745 -0765 00 0 00006 LGR 6 RG098300 | 54746 -0500 00 0 55046 CAL P2CTD+2 RG098310 | 54747 0020 00 0 54761 TRA P2CT5 RG098320 | 54750 -0500 00 0 55046 CAL P2CTD+2 RG098330 54751 1 00001 2 54752 TXI *+1,2,1 REDUCE COUNT RG098340 | 54752 2 00001 1 54736 P2CT3 TIX P2CT2,1,1 IS THIS 4TH CHARACTER RG098350 | 54753 0602 00 2 52136 P2CT4 SLW P2CTA-1,2 STORE ENTRY FOR CLASSIFY TABLE RG098360 | 54754 3 77775 2 54777 TXH P2CT7,2,-3 IS THIS LAST CHARACTER RG098370 | 54755 -0500 00 0 07164 CAL P2AA3+2 GET 2ND 4 BCD CHARACTERS RG098380 54756 -0320 00 0 55044 ANA P2CTD UNPACK RG098390 | 54757 0774 00 1 00004 AXT 4,1 RG098400 | 54760 0020 00 0 54732 TRA Z2CT1 START CONVERTING RG098410 | 54761 0441 00 0 52141 P2CT5 LDI P2CTA+2 PUT COLUMN CODE IN CONTROL WORD 1 RG098420 | 54762 0442 00 2 55032 OSI P2CTC,2 X RG098430 54763 0604 00 0 52141 STI P2CTA+2 X RG098440 | 54764 -0114 01 0 55032 CAQ P2CTC,0,1 CONVERT CLASSIFY TABLE ENTRY RG098450 | 54765 1 00001 2 54752 TXI P2CT3,2,1 REDUCE COUNT RG098460 | 54766 0441 00 0 52144 P2CT6 LDI P2CTA+5 PUT COLUMN CODE IN CONTROL WORD 2RG098470 | 54767 0442 00 2 55032 OSI P2CTC,2 X RG098480 54770 0604 00 0 52144 STI P2CTA+5 X RG098490 | 54771 -0500 00 0 55046 CAL P2CTD+2 RG098500 | 54772 0765 00 0 00000 LRS 0 CHANGE SIGN RG098510 | 54773 -0114 01 0 55032 CAQ P2CTC,0,1 CONVERT CLASSIFY TABLE ENTRY RG098520 | 54774 0621 00 2 52143 STA P2CTB-1,2 SAVE FOR COMBINING RG098530 54775 -0500 00 0 55046 CAL P2CTD+2 RG098540 | 54776 1 00001 2 54752 TXI P2CT3,2,1 REDUCE COUNT RG098550 | 54777 -0500 00 0 52137 P2CT7 CAL P2CTA PUT CLASSIFY TABLE IN RESULTS AREA RG098560 | 55000 0602 00 0 52140 SLW P2CTA+1 X RG098570 | 55001 -0500 00 0 52143 CAL P2CTA+4 * RG098580 55002 0602 00 0 52137 SLW P2CTA X RG098590 | 55003 -0500 00 0 52144 CAL P2CTA+5 TEST FOR NEG RG098600 | 55004 -0100 00 0 55006 TNZ *+2 X RG098610 | 55005 0020 00 0 55026 TRA P2J0N TRANSFER OUT RG098620 | 55006 0767 00 0 00010 ALS 8 COMBINE COLUMN CONTROL WORD RG098630 55007 -0501 00 0 52141 ORA P2CTA+2 X RG098640 | 55010 0602 00 0 52141 SLW P2CTA+2 X RG098650 | 55011 0774 00 2 77767 AXT -9,2 COMBINE ENTRIED FOR NOTS RG098660 | 55012 0774 00 1 00003 P2CT8 AXT 3,1 X RG098670 | 55013 -0500 00 2 52143 CAL P2CTB-1,2 X RG098680 55014 0560 00 2 52142 P2CT9 LDQ P2CTB-2,2 X RG098690 | 55015 -0773 00 0 00033 RQL 27 X RG098700 | 55016 -0763 00 0 00011 LGL 9 X RG098710 | 55017 1 00001 2 55020 TXI *+1,2,1 REDUCE COUNT RG098720 | 55020 2 00001 1 55014 TIX P2CT9,1,1 IS THIS 4TH ENTRY RG098730 1 LISTING OF 12/01/64 PAGE 233 | PHASE 2 PROPER | | 55021 3 77775 2 55023 TXH *+2,2,-3 LAST WORD RG098740 | 55022 0602 00 0 52142 SLW P2CTA+3 STORE 1ST WORD FOR NOTS RG098750 55023 0602 00 0 52143 SLW P2CTA+4 STORE 2ND WORD FOR NOTS RG098760 | 55024 1 00001 2 55025 TXI *+1,2,1 REDUCE COUNT RG098770 | 55025 -3 77775 2 55012 TXL P2CT8,2,-3 ALL DONE RG098780 | 55026 -3 00000 0 54574 P2J0N TXL P2CS0,0,0 TO SET CLASSIFY ROUTINE RG098790 | 55027 0502 00 0 55026 CLS P2J0N REVERSE SWITCH RG098800 55030 0601 00 0 55026 STO P2J0N X RG098810 | 55031 0020 00 0 54032 TRA P2J00 TO TEST ROUTINE RG098820 | 55032 +000000000000 P2CTC DEC 0,256,128,64,32,16,8,4,2,1 CONVERT TABLE RG098830 | 55033 +000000000400 | 55034 +000000000200 55035 +000000000100 | 55036 +000000000040 | 55037 +000000000020 | 55040 +000000000010 | 55041 +000000000004 55042 +000000000002 | 55043 +000000000001 | 55044 -377777770000 P2CTD OCT 777777770000 MASK RG098840 | 55045 -377777777000 OCT 777777777000 MASK RG098850 | 55046 +000000000000 DEC 0 TEMP STORAGE RG098860 1 LISTING OF 12/01/64 PAGE 234 | SUBROUTINE TO PROCESS SETTING OF XR1 | | * SET XR1 TO PROPER INPUT RECORD TYPE LOCATION RG098880 | * DETERMINE IF RECORD TYPE SHOULD BE GROUP HEADER RG098890 55047 -0500 00 0 07163 P2XR1 CAL P2AA3+1 TEST FOR ANY INPUT RECORD TYPE RG098900 | 55050 -0320 00 0 07060 ANA BCD60 RG098910 | 55051 -0340 00 0 36755 LAS BBLNK RG098920 | 55052 0020 00 0 55055 TRA *+3 RG098930 | 55053 0020 00 4 00001 TRA 1,4 RG098940 55054 0100 00 4 00001 TZE 1,4 RG098950 | 55055 0634 00 4 55120 SXA P2XR5,4 RG098960 | 55056 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG098970 | 55057 0602 00 0 07102 SLW TEMP YES, COMPARE TO ASSOCIATED RECORD TYPE RG098980 | 55060 -0500 00 0 07162 CAL P2AA3 RG098990 55061 -0320 00 0 07060 ANA BCD60 RG099000 | 55062 -0340 00 0 07102 LAS TEMP RG099010 | 55063 0020 00 0 55065 TRA *+2 RG099020 | 55064 0020 00 0 55106 TRA P2XR4 RG099030 | 55065 0774 00 4 00620 AXT DSB,4 IRT NOT EQUAL TO AST RG099040 55066 -0500 00 4 21147 P2XR2 CAL DSIE+DSB,4 DESIGNATE IRT AS GROUP HEADER RG099050 | 55067 -0320 00 0 07060 ANA BCD60 RG099060 | 55070 -0340 00 0 07102 LAS TEMP RG099070 | 55071 0020 00 0 55073 TRA *+2 RG099080 | 55072 0020 00 0 55104 TRA P2XR3 RG099090 55073 2 00002 4 55066 TIX P2XR2,4,2 RG099100 | 55074 -0500 00 0 07102 CAL TEMP RG099110 | 55075 0771 00 0 00030 ARS 24 RG099120 | 55076 0621 00 0 55123 STA P2XR6+1 RG099130 | 55077 0074 00 4 34503 TSX ERROR,4 ERROR, CAN NOT FIND IRT IN DSIE RG099140 55100 -0 00004 0 55122 MZE P2XR6,,4 RG099150 | 55101 0 00004 0 34546 PZE ER105,,4 EXECUTION IMPOSSIBLE RG099160 | 55102 -0625 00 0 34552 STL ERSWT RG099170 | 55103 0020 00 0 55120 TRA P2XR5 RG099180 | 55104 -0500 00 0 06766 P2XR3 CAL DCRM3 INSERT GROUP HEADER RG099190 55105 -0602 60 0 55066 ORS* P2XR2 RG099200 | 55106 -0500 00 0 61154 P2XR4 CAL IP03+2 CONSTRUCT XR SETTING CONFIGURATION RG099210 | 55107 0560 00 0 07163 LDQ P2AA3+1 RG099220 | 55110 -0763 00 0 00014 LGL 12 RG099230 | 55111 -0340 00 0 52256 LAS P2AA4+5 COMPARE TO PRESENT XR SETTING RG099240 55112 0020 00 0 55114 TRA *+2 RG099250 | 55113 0020 00 0 55120 TRA P2XR5 SETTING OK, RETURN RG099260 | 55114 0601 00 0 52256 STO P2AA4+5 SUPPLY MISSING ADDRESS TO STEPI RG099270 | 55115 0560 00 0 55126 LDQ P2XRA RG099280 | 55116 0074 00 4 40227 TSX STEPI,4 GO TO STEPI FOR NEW SETTING RG099290 55117 0 00002 1 52255 PZE P2AA4+4,1,2 RG099300 | 55120 0774 00 4 00000 P2XR5 AXT **,4 RETURN RG099310 | 55121 0020 00 4 00001 TRA 1,4 RG099320 | 55122 314547646360 P2XR6 BCI 4,INPUT RT XX UNDEFINED RG099330 | 55123 516360606767 55124 606445242526 | 55125 314525246060 | 55126 -022000000000 P2XRA OCT 422000000000 KEYS RG099340 | 1 LISTING OF 12/01/64 PAGE 235 | PROCESS CLASSIFY FUNCTIONS | * SET UP GET AND COMPARE PKGS FOR OBJECT PROGRAM RG099360 | 55127 0634 00 4 55462 P2CC0 SXA P2CC8+1,4 RG099370 | 55130 0634 00 2 55461 SXA P2CC8,2 RG099380 | 55131 0074 00 4 55047 TSX P2XR1,4 RG099390 55132 0520 00 0 07167 ZET P2AA3+5 TEST FOR ONE OR 2 WORD VALUE RG099400 | 55133 0020 00 0 55300 TRA P2CC4 VALUE IS CONTAINED IN 2 WORDS RG099410 | 55134 0520 00 0 07171 ZET P2AA3+7 RG099420 | 55135 0020 00 0 55300 TRA P2CC4 RG099430 | * FIRST VALUE IS IN ONE WORD RG099440 55136 0074 00 4 35441 P2CC1 TSX STEPC,4 STEP CC WITH FIRST VALUE RG099450 | 55137 0 00001 1 07170 PZE P2AA3+6,1,1 X RG099460 | 55140 0621 00 0 55266 STA P2CCA+1 PUT LOC OF VAL IN 1ST INSTR RG099470 | 55141 0441 00 0 07166 LDI P2AA3+4 PUT MODE IN INDICATOR RG099480 | 55142 0056 00 000001 RNT 1 TEST IF SIGNED RG099490 55143 0020 00 0 55150 TRA *+5 X RG099500 | 55144 0500 00 0 55266 CLA P2CCA+1 MAKE COMPARE INSTR PROGER TYPE RG099510 | 55145 0760 00 0 00003 SSP X RG099520 | 55146 0601 00 0 55266 STO P2CCA+1 X-CAS RG099530 | 55147 0020 00 0 55153 TRA *+4 X RG099540 55150 0500 00 0 55266 CLA P2CCA+1 X RG099550 | 55151 -0760 00 0 00003 SSM X RG099560 | 55152 0601 00 0 55266 STO P2CCA+1 X-LAS RG099570 | 55153 0074 00 4 36325 TSX P2GET,4 GET INSTR FOR 1ST VAL GET RG099580 | 55154 -0 00000 0 00000 MZE X RG099590 55155 0534 00 1 36540 LXA WDCNT,1 STEP IC WITH INSTR FOR GET RG099600 | 55156 -0634 00 1 55160 SXD *+2,1 X RG099610 | 55157 0074 00 4 40227 TSX STEPI,4 X RG099620 | 55160 0 00000 1 36776 PZE TWA,1,0 X RG099630 | * TEST IF THIS IS FOR A RANGE-ONE WORD VALUE RG099640 55161 0441 00 0 07165 P2CC2 LDI P2AA3+3 GET CODE FROM PARAMETER RG099650 | 55162 -0056 00 002000 LNT 2000 TEST IF IT HAS 2ND VAL RG099660 | 55163 0020 00 0 55211 TRA P2CC3 RANGE RG099670 | 55164 -0520 00 0 61467 NZT CFYSW RG099680 | 55165 0020 00 0 55176 TRA P2CC2A RG099690 55166 0534 00 2 55531 LXA P2CCZ,2 CFY-ONE VALUE RG099700 | 55167 1 00001 2 55170 TXI *+1,2,1 RG099710 | 55170 0634 00 2 55271 SXA P2CCA+4,2 RG099720 | 55171 1 00002 2 55172 TXI *+1,2,2 RG099730 | 55172 0634 00 2 55267 SXA P2CCA+2,2 RG099740 55173 0774 00 2 00002 AXT 2,2 RG099750 | 55174 0634 00 2 55270 SXA P2CCA+3,2 RG099760 | 55175 0020 00 0 55205 TRA P2CC2B RG099770 | 55176 0774 00 2 00003 P2CC2A AXT 3,2 CYN-ONE VALUE RG099780 | 55177 0634 00 2 55267 SXA P2CCA+2,2 RG099790 55200 0534 00 2 55531 LXA P2CCZ,2 RG099800 | 55201 1 00002 2 55202 TXI *+1,2,2 RG099810 | 55202 0634 00 2 55270 SXA P2CCA+3,2 RG099820 | 55203 0774 00 2 00001 AXT 1,2 RG099830 | 55204 0634 00 2 55271 SXA P2CCA+4,2 RG099840 55205 0560 00 0 55265 P2CC2B LDQ P2CCA STEP I WITH COMPARE INST. RG099850 | 55206 0074 00 4 40227 TSX STEPI,4 X RG099860 | 55207 0 00004 1 55266 PZE P2CCA+1,1,4 X RG099870 | 55210 0020 00 0 55461 TRA P2CC8 STEP IC WITH SW PKG RG099880 | * RANGE-2ND VALUE IS ONE WORD RG099890 55211 0074 00 4 35441 P2CC3 TSX STEPC,4 STEP CC WITH 2ND VALUE RG099900 | 1 LISTING OF 12/01/64 PAGE 236 | PROCESS CLASSIFY FUNCTIONS | | 55212 0 00001 1 07172 PZE P2AA3+8,1,1 X RG099910 55213 0621 00 0 55273 STA P2CCB+1 MODIFY COMPARE INSTR RG099920 | 55214 -0500 00 0 55266 CAL P2CCA+1 X RG099930 | 55215 0630 00 0 55273 STP P2CCB+1 X RG099940 | 55216 0622 00 0 55273 STD P2CCB+1 X RG099950 | * COMPLETE TRA INSTR -1ST VAL RG099960 55217 0774 00 2 00003 AXT 3,2 RG099970 | 55220 0634 00 2 55267 SXA P2CCA+2,2 RG099980 | 55221 -0520 00 0 61467 NZT CFYSW RG099990 | 55222 0020 00 0 55235 TRA P2CC3A CYN-RANGE RG100000 | 55223 0774 00 2 00005 AXT 5,2 CFY-RANGE RG100010 55224 0634 00 2 55270 SXA P2CCA+3,2 RG100020 | 55225 0534 00 2 55531 LXA P2CCZ,2 RG100030 | 55226 1 00002 2 55227 TXI *+1,2,2 RG100040 | 55227 0634 00 2 55274 SXA P2CCB+2,2 RG100050 | 55230 1 00002 2 55231 TXI *+1,2,2 RG100060 55231 0634 00 2 55271 SXA P2CCA+4,2 RG100070 | 55232 0774 00 2 00001 AXT 1,2 RG100080 | 55233 0634 00 2 55275 SXA P2CCB+3,2 RG100090 | 55234 0020 00 0 55250 TRA P2CC3B RG100100 | 55235 0534 00 2 55531 P2CC3A LXA P2CCZ,2 CYN ON RANGE RG100110 55236 1 00001 2 55237 TXI *+1,2,1 RG100120 | 55237 0634 00 2 55277 SXA P2CCB+5,2 RG100130 | 55240 1 00001 2 55241 TXI *+1,2,1 RG100140 | 55241 0634 00 2 55275 SXA P2CCB+3,2 RG100150 | 55242 1 00004 2 55243 TXI *+1,2,4 RG100160 55243 0634 00 2 55270 SXA P2CCA+3,2 RG100170 | 55244 0774 00 2 00003 AXT 3,2 RG100180 | 55245 0634 00 2 55274 SXA P2CCB+2,2 RG100190 | 55246 0774 00 2 00005 AXT 5,2 RG100200 | 55247 0634 00 2 55271 SXA P2CCA+4,2 RG100210 55250 0560 00 0 55265 P2CC3B LDQ P2CCA STEPI WITH COMPARE INST 1ST VALUERG100220 | 55251 0074 00 4 40227 TSX STEPI,4 X RG100230 | 55252 0 00004 1 55266 PZE P2CCA+1,1,4 X RG100240 | 55253 0560 00 0 55272 LDQ P2CCB STEP IC WITH COMPARE FOR 2ND VAL RG100250 | 55254 0074 00 4 40227 TSX STEPI,4 X RG100260 55255 0 00003 1 55273 PZE P2CCB+1,1,3 X RG100270 | 55256 -0520 00 0 61467 NZT CFYSW RG100280 | 55257 0020 00 0 55261 TRA *+2 RG100290 | 55260 0020 00 0 55461 TRA P2CC8 STEP IC WITH SW PKG RG100300 | 55261 0560 00 0 55276 LDQ P2CCB+4 RG100310 55262 0074 00 4 40227 TSX STEPI,4 RG100320 | 55263 0 00001 1 55277 PZE P2CCB+5,1,1 RG100330 | 55264 0020 00 0 55461 TRA P2CC8 RG100340 | * OBJECT PROGRAM FOR 1ST VALUE COMPARE- RG100350 | * ONE WORD RG100360 55265 +022200000000 P2CCA OCT 022200000000 KEYS RG100370 | 55266 -0340 00 0 00000 LAS 0 COMPARE INSTR RG100380 | 55267 0020 00 0 00000 TRA 0 HIGH RG100390 | 55270 0020 00 0 00000 TRA 0 EQUAL RG100400 | 55271 0020 00 0 00000 TRA 0 LOW-GET OUT RG100410 * OBJECT PROGRAM FOR 2ND VALUE COMPARE- RG100420 | * ONE WORD RG100430 | 55272 +022000000000 P2CCB OCT 022000000000 KEYS RG100440 | 55273 -0340 00 0 00000 LAS 0 COMPARE RG100450 | 1 LISTING OF 12/01/64 PAGE 237 PROCESS CLASSIFY FUNCTIONS | | 55274 0020 00 0 00000 TRA 0 HI RG100460 | 55275 0020 00 0 00000 TRA 0 EQUAL RG100470 | 55276 +200000000000 OCT 200000000000 RG100480 55277 0020 00 0 00000 TRA 0 RG100490 | * FIRST VALUE IS 2 WORDS RG100500 | 55300 0074 00 4 35441 P2CC4 TSX STEPC,4 STEP CC WITH 1ST VALUE RG100510 | 55301 0 00002 1 07170 PZE P2AA3+6,1,2 X RG100520 | 55302 0621 00 0 55435 STA P2CCC+2 PUT LOC IN 1ST LAS INSTR RG100530 55303 0400 00 0 55523 ADD P2CCY ADD DEC 1 TO LOC RG100540 | 55304 0621 00 0 55442 STA P2CCC+7 PUT LOC IN 2ND LAS INSTR RG100550 | 55305 0074 00 4 36325 TSX P2GET,4 GET INSTR FOR OBJECT PROG GET RG100560 | 55306 -0 00000 0 00000 MZE RG100570 | 55307 0534 00 1 36540 LXA WDCNT,1 STEP IC WITH INSTR FOR GET RG100580 55310 -0634 00 1 55313 SXD *+3,1 RG100590 | 55311 0560 00 0 06614 LDQ ZERO RG100600 | 55312 0074 00 4 40227 TSX STEPI,4 X RG100610 | 55313 0 00000 1 36776 PZE TWA,1,0 X RG100620 | * TEST IF THIS IS FOR A RANGE-2 WORD VALUE RG100630 55314 0441 00 0 07165 P2CC5 LDI P2AA3+3 GET CODE FROM PARAMETER RG100640 | 55315 -0056 00 002000 LNT 2000 TEST IF IT HAS 2ND VAL RG100650 | 55316 0020 00 0 55353 TRA P2CC6 RANGE-2 VALUES RG100660 | * COMPLETE INSTRUCTION FOR OBJECT PROGRAM-ONE VALUE ONLY RG100670 | 55317 0534 00 2 55531 LXA P2CCZ,2 RG100680 55320 -0520 00 0 61467 NZT CFYSW RG100690 | 55321 0020 00 0 55335 TRA P2CC5A CYN 2 WORD VALUE RG100700 | 55322 1 00001 2 55323 TXI *+1,2,1 CFY 2 WORD VALUE RG100710 | 55323 0634 00 2 55445 SXA P2CCC+10,2 RG100720 | 55324 1 00002 2 55325 TXI *+1,2,2 RG100730 55325 0634 00 2 55443 SXA P2CCC+8,2 RG100740 | 55326 1 00003 2 55327 TXI *+1,2,3 RG100750 | 55327 0634 00 2 55440 SXA P2CCC+5,2 RG100760 | 55330 1 00002 2 55331 TXI *+1,2,2 RG100770 | 55331 0634 00 2 55436 SXA P2CCC+3,2 RG100780 55332 0774 00 2 00002 AXT 2,2 RG100790 | 55333 0634 00 2 55444 SXA P2CCC+9,2 RG100800 | 55334 0020 00 0 55347 TRA P2CC5C RG100810 | 55335 1 00002 2 55336 P2CC5A TXI *+1,2,2 RG100820 | 55336 0634 00 2 55444 SXA P2CCC+9,2 RG100830 55337 0774 00 2 00001 AXT 1,2 1 RG100840 | 55340 0634 00 2 55445 SXA P2CCC+10,2 RG100850 | 55341 1 00002 2 55342 TXI *+1,2,2 3 RG100860 | 55342 0634 00 2 55443 SXA P2CCC+8,2 RG100870 | 55343 1 00003 2 55344 TXI *+1,2,3 6 RG100880 55344 0634 00 2 55440 SXA P2CCC+5,2 RG100890 | 55345 1 00002 2 55346 TXI *+1,2,2 8 RG100900 | 55346 0634 00 2 55436 SXA P2CCC+3,2 RG100910 | * STEP IC WITH COMPARE INSTRUCTIONS RG100920 | 55347 0560 00 0 55433 P2CC5C LDQ P2CCC PUT KEYS IN MQ RG100930 55350 0074 00 4 40227 TSX STEPI,4 RG100940 | 55351 0 00012 1 55434 PZE P2CCC+1,1,10 RG100950 | 55352 0020 00 0 55461 TRA P2CC8 RG100960 | * RANGE-VALUES ARE CONTAINED IN TWO WORDS RG100970 | 55353 0074 00 4 35441 P2CC6 TSX STEPC,4 STEP CC WITH 2ND VALUE RG100980 55354 0 00002 1 07172 PZE P2AA3+8,1,2 X RG100990 | 55355 0621 00 0 55450 STA P2CCD+2 PUT LOC IN LAS INSTR FOR 2ND VAL RG101000 | 1 LISTING OF 12/01/64 PAGE 238 | PROCESS CLASSIFY FUNCTIONS | 55356 0400 00 0 55523 ADD P2CCY ADD DEC 1 TO LOC RG101010 | 55357 0621 00 0 55455 STA P2CCD+7 PUT LOC IN NEXT LAS INSTR. RG101020 | * COMPLETE INSTRUCTIONS FOR OBJECT PROGRAM-RANGE RG101030 | 55360 0774 00 2 00003 AXT 3,2 RG101040 | 55361 0634 00 2 55443 SXA P2CCC+8,2 RG101050 55362 0774 00 2 00010 AXT 8,2 RG101060 | 55363 0634 00 2 55436 SXA P2CCC+3,2 RG101070 | 55364 0534 00 2 55531 LXA P2CCZ,2 RG101080 | 55365 -0520 00 0 61467 NZT CFYSW RG101090 | 55366 0020 00 0 55406 TRA P2CC6A CFYN 2 WORD RANGE RG101100 55367 1 00003 2 55370 TXI *+1,2,3 CFY 2 WORD RANGE RG101110 | 55370 0634 00 2 55456 SXA P2CCD+8,2 RG101120 | 55371 1 00005 2 55372 TXI *+1,2,5 RG101130 | 55372 0634 00 2 55451 SXA P2CCD+3,2 RG101140 | 55373 1 00003 2 55374 TXI *+1,2,3 RG101150 55374 0634 00 2 55445 SXA P2CCC+10,2 RG101160 | 55375 1 00005 2 55376 TXI *+1,2,5 RG101170 | 55376 0634 00 2 55440 SXA P2CCC+5,2 RG101180 | 55377 0774 00 2 00001 AXT 1,2 RG101190 | 55400 0634 00 2 55460 SXA P2CCD+10,2 RG101200 55401 0774 00 2 00006 AXT 6,2 RG101210 | 55402 0634 00 2 55453 SXA P2CCD+5,2 RG101220 | 55403 0774 00 2 00014 AXT 12,2 RG101230 | 55404 0634 00 2 55444 SXA P2CCC+9,2 RG101240 | 55405 0020 00 0 55424 TRA P2CC6C RG101250 55406 1 00001 2 55407 P2CC6A TXI *+1,2,1 RG101260 | 55407 0634 00 2 55460 SXA P2CCD+10,2 RG101270 | 55410 1 00005 2 55411 TXI *+1,2,5 RG101280 | 55411 0634 00 2 55453 SXA P2CCD+5,2 RG101290 | 55412 1 00006 2 55413 TXI *+1,2,6 RG101300 55413 0634 00 2 55444 SXA P2CCC+9,2 RG101310 | 55414 0774 00 2 00003 AXT 3,2 RG101320 | 55415 0634 00 2 55456 SXA P2CCD+8,2 RG101330 | 55416 0774 00 2 00010 AXT 8,2 RG101340 | 55417 0634 00 2 55451 SXA P2CCD+3,2 RG101350 55420 0774 00 2 00013 AXT 11,2 RG101360 | 55421 0634 00 2 55445 SXA P2CCC+10,2 RG101370 | 55422 0774 00 2 00020 AXT 16,2 RG101380 | 55423 0634 00 2 55440 SXA P2CCC+5,2 RG101390 | * STEP IC WITH 1ST VALUE COMPARE INSTR RG101400 55424 0560 00 0 55433 P2CC6C LDQ P2CCC RG101410 | 55425 0074 00 4 40227 TSX STEPI,4 RG101420 | 55426 0 00012 1 55434 PZE P2CCC+1,1,10 RG101430 | * STEP IC WITH 2ND VALUE COMPARE INSTR RG101440 | 55427 0560 00 0 55433 LDQ P2CCC RG101450 55430 0074 00 4 40227 TSX STEPI,4 RG101460 | 55431 0 00012 1 55447 PZE P2CCD+1,1,10 RG101470 | 55432 0020 00 0 55461 TRA P2CC8 STEP IC WITH SET PKG RG101480 | * OBJECT PROGRAM FOR 1ST VALUE RG101490 | * COMPARE-2 WORD VALUE RG101500 55433 +002220022200 P2CCC OCT 002220022200 KEYS RG101510 | 55434 -0500 00 0 73022 CAL BCDBUF-1 RG101520 | 55435 -0340 00 0 00000 LAS 0 COMPARE TO 1ST WORD RG101530 | 55436 0020 00 0 00000 TRA 0 HIGH-CONT OR GET OUT RG101540 | 55437 0020 00 0 00002 TRA 2 OK RG101550 1 LISTING OF 12/01/64 PAGE 239 | PROCESS CLASSIFY FUNCTIONS | | 55440 0020 00 0 00000 TRA 0 GET OUT RG101560 | 55441 -0500 00 0 73023 CAL BCDBUF RG101570 55442 -0340 00 0 00000 LAS 0 COMPARE TO 2ND WORD RG101580 | 55443 0020 00 0 00000 TRA 0 HIGH-CONT RO GET OUT RG101590 | 55444 0020 00 0 00000 TRA 0 OK RG101600 | 55445 0020 00 0 00000 TRA 0 GET OUT RG101610 | * OBJECT PROGRAM FOR 2ND VALUE RG101620 * COMPARE-2 WORD VALUE RG101630 | 55446 +002200220000 P2CCD OCT 002200220000 KEYS RG101640 | 55447 -0500 00 0 73022 CAL BCDBUF-1 RG101650 | 55450 -0340 00 0 00000 LAS 0 COMPARE TO 1ST WORD RG101660 | 55451 0020 00 0 00000 TRA 0 RG101670 55452 0020 00 0 00002 TRA 2 RG101680 | 55453 0020 00 0 00000 TRA 0 RG101690 | 55454 -0500 00 0 73023 CAL BCDBUF RG101700 | 55455 -0340 00 0 00000 LAS 0 RG101710 | 55456 0020 00 0 00000 TRA 0 RG101720 55457 0020 00 0 00001 TRA 1 RG101730 | 55460 0020 00 0 00000 TRA 0 RG101740 | * STEP IC WITH SWITCH PKG RG101750 | 55461 0774 00 2 00000 P2CC8 AXT 0,2 RG101760 | 55462 0774 00 4 00000 AXT 0,4 RG101770 55463 0020 00 4 00001 TRA 1,4 RG101780 | * OBJECT PROGRAM FOR SWITCH PKG RG101790 | 55464 +222000000000 P2CCE OCT 222000000000 KEYS RG101800 | * STEP IC WITH SET PKG RG101810 | 55465 0634 00 4 55474 P2CC9 SXA *+7,4 RG101820 55466 0754 00 0 00000 PXA 0,0 RG101830 | 55467 -0130 00 0 00000 XCL RG101840 | 55470 0534 00 1 55531 LXA P2CCZ,1 RG101850 | 55471 -0634 00 1 55473 SXD *+2,1 RG101860 | 55472 0074 00 4 40227 TSX STEPI,4 RG101870 55473 0 00000 1 52411 PZE P2AP8,1,0 RG101880 | 55474 0774 00 4 00000 AXT 0,4 RETURN RG101890 | 55475 0020 00 4 00001 TRA 1,4 RG101900 | * SET PKG FOR CLASSIFY VALUE RG101910 | 55476 0634 00 4 55515 P2CSV SXA Z2CSV,4 SAVE IR 4 RG101920 55477 3 00000 0 55505 TXH *+6,0,0 RUN IN SWITCH RG101930 | 55500 0502 00 0 55477 CLS *-1 TURN OFF SWITCH RG101940 | 55501 0601 00 0 55477 STO *-2 X RG101950 | 55502 0074 00 4 35441 TSX STEPC,4 STEP CC WITH ZEROES FOR STORAGE RG101960 | 55503 0 00001 1 55520 PZE P2CVS,1,1 X RG101970 55504 0621 00 0 55522 STA P2CAA PUT ADDRESS IN PKG RG101980 | 55505 -0500 00 0 07165 CAL P2AA3+3 RG101990 | 55506 -0320 00 0 55517 ANA Z2CSV+2 MASK RG102000 | 55507 0602 00 0 55533 SLW P2CCZ+2 STEP CC WITH SCB CODE RG102010 | 55510 0074 00 4 35441 TSX STEPC,4 X RG102020 55511 0 00001 1 55533 PZE P2CCZ+2,1,1 X RG102030 | 55512 0621 00 0 55521 STA P2CVS+1 PUT ADDRESS IN PKG RG102040 | 55513 0500 00 0 55524 CLA P2CCY+1 DEC 2-COUNT OF INSTR RG102050 | 55514 0601 00 0 55531 STO P2CCZ RG102060 | 55515 0774 00 4 00000 Z2CSV AXT 0,4 RESET RETURN RG102070 55516 0020 00 4 00001 TRA 1,4 RETURN RG102080 | 55517 -370000000000 OCT 770000000000 MASK RG102090 | * OBJECT PROGRAM FOR CLASSIFY VALUE SET PKG RG102100 | 1 LISTING OF 12/01/64 PAGE 240 | PROCESS CLASSIFY FUNCTIONS | 55520 +000000000000 P2CVS OCT 000000000000 KEY RG102110 | 55521 0500 00 0 00000 CLA 0 RG102120 | 55522 0601 00 0 00000 P2CAA STO 0 RG102130 | * CONSTANTS RG102140 55523 +000000000001 P2CCY DEC 1,2,3,5,7,10 RG102150 | 55524 +000000000002 | 55525 +000000000003 | 55526 +000000000005 | 55527 +000000000007 55530 +000000000012 | 55531 +000000000000 P2CCZ DEC 0 STORAGE FOR NO OF SET INSTR RG102160 | 55532 +000000000010 DEC 8 RG102170 | 55533 +000000000000 DEC 0 STORAGE FOR CFYV SET ROUTINE RG102180 | * CFY-CLASSIFY SUB ROUTINE RG102190 55534 0634 00 4 55541 P2AR4 SXA P2RA4,4 SAVE XR4 RETURN RG102200 | 55535 0074 00 4 54722 TSX P2CT0,4 DO CONVERT + SET ROUTINES RG102210 | 55536 -0625 00 0 61467 STL CFYSW SEE E7996 RG102220 | 55537 0074 00 4 55127 TSX P2CC0,4 DO COMPARE ROUTINE + SW PKG RG102230 | 55540 0074 00 4 55465 TSX P2CC9,4 STEP IC WITH SET PKG RG102240 55541 0774 00 4 00000 P2RA4 AXT 0,4 RESTORE XR4-RETURN RG102250 | 55542 0020 00 0 52711 TRA P2AR0 READ NEXT PARAMETER RG102260 | * CYN-CLASSIFY NOT SUB ROUTINE RG102270 | 55543 0634 00 4 55550 P2AR5 SXA P2RA5,4 SAVE XR4 RETURN RG102280 | 55544 0074 00 4 54722 TSX P2CT0,4 DO CONVERT + SET ROUTINES RG102290 55545 0600 00 0 61467 STZ CFYSW RG102300 | 55546 0074 00 4 55127 TSX P2CC0,4 DO COMPARE ROUTINE + SW PKG RG102310 | 55547 0074 00 4 55465 TSX P2CC9,4 STEP IC WITH SET PKG RG102320 | 55550 0774 00 4 00000 P2RA5 AXT 0,4 RESTORE XR4-RETURN RG102330 | 55551 0020 00 0 52711 TRA P2AR0 READ NEXT PARAMETER RG102340 * CFYV-CLASSIFY VALUE SUB ROUTINE RG102350 | 55552 0634 00 4 55561 P2AR7 SXA P2RA7,4 SAVE XR4 RETURN RG102360 | 55553 0074 00 4 55476 TSX P2CSV,4 MAKE UP SET PKG RG102370 | 55554 0621 00 0 55531 STA P2CCZ SAVE COUNT RG102380 | 55555 -0625 00 0 61467 STL CFYSW SEE E7996 RG102390 55556 0074 00 4 55127 TSX P2CC0,4 DO CONPARE + SW PKG ROUTINES RG102400 | 55557 0074 00 4 40227 TSX STEPI,4 STEP IC WITH SET PKG RG102410 | 55560 0 00002 1 55521 PZE P2CVS+1,1,2 X RG102420 | 55561 0774 00 4 00000 P2RA7 AXT 0,4 RESTORE XR4-RETURN RG102430 | 55562 0020 00 0 52711 TRA P2AR0 READ PARAMETER RG102440 1 LISTING OF 12/01/64 PAGE 241 | PROCESS CONTROL BREAKS | | 55563 0634 00 4 56205 P2AR8 SXA P2BCT,4 SAVE IR4 RG102460 | 55564 0634 00 1 56204 SXA P2BCS,1 RG102470 55565 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG102480 | 55566 -0625 00 0 61501 STL E8064 SET SW 6 ON RG102490 | 55567 0560 00 0 07165 LDQ P2AA3+3 WD 4 OF PARAM RG102500 | 55570 0754 00 0 00000 PXA 0,0 CLEAR AC RG102510 | 55571 -0763 00 0 00006 LGL 6 SHIFT RG102520 55572 0602 00 0 56260 SLW P2BAG+3 STO CB LEVEL RG102530 | 55573 -0500 00 0 56264 P2BBA CAL P2BAH+2 LOAD MASK IN AC RG102540 | 55574 0320 00 0 56233 ANS P2BAC+8 MASK C B WORD RG102550 | 55575 0754 00 0 00000 PXA 0,0 RG102560 | 55576 0560 00 0 07163 LDQ P2AA3+1 RG102570 55577 -0763 00 0 00014 LGL 12 RG102580 | 55600 0602 00 0 56256 SLW P2BAG+1 RG102590 | 55601 0560 00 0 07162 LDQ P2AA3 LOAD WD 1 OF CB PARAM RG102600 | 55602 0754 00 0 00000 PXA 0,0 CLEAR AC RG102610 | 55603 -0763 00 0 00014 LGL 12 POSITION ART RG102620 55604 0602 00 0 56255 SLW P2BAG STORE TO ART COMPARE AREA RG102630 | 55605 0767 00 0 00014 ALS 12 MOVE ART RG102640 | 55606 -0501 00 0 56260 ORA P2BAG+3 OR IN CB LEVEL RG102650 | 55607 0767 00 0 00006 ALS 6 RG102660 | 55610 -0602 00 0 56233 ORS P2BAC+8 OR TO CB PKG RG102670 55611 3 00000 0 55750 P2BBB TXH P2BBN,0,0 RUN IN SW1- TXH TO START RG102680 | 55612 0502 00 0 55611 CLS P2BBB RESET SW 1 RG102690 | 55613 0601 00 0 55611 STO P2BBB STORE BACK RG102700 | 55614 3 00000 0 55631 P2BBC TXH P2BBE,0,0 RUN SW2 TX H TO START RG102710 | 55615 0502 00 0 55614 CLS P2BBC RESET SW2 RG102720 55616 0601 00 0 55614 STO P2BBC STORE BACK RG102730 | 55617 0500 00 0 21771 CLA P2AA2 GET ADDRESS OF CB WORD RG102740 | 55620 0621 00 0 56227 STA P2BAC+4 STO TO CB PKG RG102750 | 55621 0621 00 0 56235 STA P2BAD STO TO IND TEST PKG RG102760 | 55622 0621 00 0 56244 STA P2BAE STO TO RESET PKG-LDI RG102770 55623 0621 00 0 56246 STA P2BAE+2 STO TO RESET PKG-STI RG102780 | 55624 -0500 00 0 55044 CAL P2CTD CLEAR SYB LOC RG102790 | 55625 0320 00 0 56231 ANS P2BAC+6 OF TOTAL LINES IN CB PKG RG102800 | 55626 -0500 00 0 52267 CAL P2AT1 GET REPORT NO. RG102810 | 55627 -0320 00 0 52272 ANA P2AM2 * RG102820 55630 0621 00 0 56231 STA P2BAC+6 RG102830 | 55631 -0500 00 0 56233 P2BBE CAL P2BAC+8 SYMBOLIC IND TRANS FROM RG102840 | 55632 0602 00 0 56241 SLW P2BAD+4 CB PKG TO IND TEST PKG RG102850 | 55633 -0500 00 0 52271 CAL P2AM1 LOAD SYMB MASK RG102860 | 55634 -0320 00 0 22022 ANA P2AA2+25 MASK OUT RT FROM ERT RG102870 55635 -0340 00 0 56255 LAS P2BAG COMPARE MASTER TO ART RG102880 | 55636 0020 00 0 55640 TRA *+2 GEATER-TEST FOR RG102890 | 55637 0020 00 0 55703 TRA P2BBK EQUAL MASTER RG102900 | 55640 0522 00 0 55745 XEC P2BBN-3 TEST SWITCH RG102910 | 55641 -0500 00 0 56263 CAL P2BAH+1 RG102920 55642 0771 00 0 00001 ARS 1 RG102930 | 55643 0320 00 0 56263 ANS P2BAH+1 RG102940 | 55644 -3 00000 0 55656 P2BBF TXL P2BBG,0,0 17 RECORD-SW3 RG102950 | 55645 0502 00 0 55644 CLS P2BBF RESET SW3 RG102960 | 55646 0601 00 0 55644 STO P2BBF STORE BACK RG102970 55647 0502 00 0 56236 CLS P2BAD+1 CHANGE LNT TO RNT IN RG102980 | 55650 0601 00 0 56236 STO P2BAD+1 IND TEST PKG RG102990 | 55651 0502 00 0 56245 CLS P2BAE+1 CHANGE RIL TO RIR IN RG103000 | 1 LISTING OF 12/01/64 PAGE 242 | PROCESS CONTROL BREAKS | 55652 0601 00 0 56245 STO P2BAE+1 RESET PKG RG103010 | 55653 -0500 00 0 56262 CAL P2BAH RG103020 | 55654 0767 00 0 00022 ALS 18 RESET BIT IN IND CON-17 RG103030 | 55655 0601 00 0 56262 STO P2BAH RG103040 55656 -0500 00 0 56262 P2BBG CAL P2BAH SHIFT BIT ONE RG103050 | 55657 0771 00 0 00001 ARS 1 POSITION RG103060 | 55660 0602 00 0 56262 SLW P2BAH RIGHT RG103070 | 55661 0625 00 0 56236 STT P2BAD+1 STT AND STA TO RG103080 | 55662 0625 00 0 56245 STT P2BAE+1 IND TEST AND RG103090 55663 0621 00 0 56236 STA P2BAD+1 RESET RG103100 | 55664 0621 00 0 56245 STA P2BAE+1 PKGS RG103110 | 55665 -3 00000 0 55674 P2BBH TXL P2BAN,0,0 SW4-EQ OR LESS THAN 18 RG103120 | 55666 0771 00 0 00011 ARS 9 SHIFT BIT RG103130 | 55667 0760 00 0 00001 LBT TEST FOR 26 RECORD RG103140 55670 0020 00 0 55721 TRA P2BBL-1 TO STEP IC-IND TEST RG103150 | 55671 0074 00 4 37677 P2BCY TSX P2M06,4 MODE DOES NOT CHECK RG103160 | 55672 +000000000212 OCT 212 RG103170 | 55673 0074 00 4 04000 TSX LOST,4 RG103180 | 55674 0760 00 0 00001 P2BAN LBT TEST FOR RECORD 17 RG103190 55675 0020 00 0 55721 TRA P2BBL-1 TO STEP IC-IND TEST RG103200 | 55676 0502 00 0 55644 CLS P2BBF RESET RG103210 | 55677 0601 00 0 55644 STO P2BBF SW3 RG103220 | 55700 0502 00 0 55665 CLS P2BBH AND RG103230 | 55701 0601 00 0 55665 STO P2BBH SW4 RG103240 55702 0020 00 0 55721 TRA P2BBL-1 TO STEP IC-IND TEST RG103250 | 55703 0500 00 0 56263 P2BBK CLA P2BAH+1 CHANGE S BIT IN CB CONS RG103260 | 55704 -0760 00 0 00003 SSM RG103270 | 55705 0601 00 0 56263 STO P2BAH+1 RG103280 | 55706 -0500 00 0 07324 CAL MASK+7 SET SW ON RG103290 55707 0630 00 0 53371 STP P2A14+4 RG103300 | 55710 -0500 00 0 56262 CAL P2BAH GET WORD WITH BIT IN 18 RG103310 | 55711 0625 00 0 56236 STT P2BAD+1 STT + STA TO RG103320 | 55712 0625 00 0 56245 STT P2BAE+1 IND TEST RG103330 | 55713 0621 00 0 56236 STA P2BAD+1 AND RESET RG103340 55714 0621 00 0 56245 STA P2BAE+1 PKGS RG103350 | 55715 -0500 00 0 56270 CAL P2BAH+6 PUT IN F CB LEVEL RG103360 | 55716 -0602 00 0 56241 ORS P2BAD+4 X RG103370 | 55717 -0500 00 0 56271 CAL P2BAH+7 X RG103380 | 55720 0320 00 0 56241 ANS P2BAD+4 X RG103390 55721 0560 00 0 56234 LDQ P2BAD-1 KEY WORD TO MQ RG103400 | 55722 0074 00 4 40227 P2BBL TSX STEPI,4 STEP IC WITH IND RG103410 | 55723 0 00005 1 56235 PZE P2BAD,1,5 TEST PKG RG103420 | 55724 0760 00 0 00000 CLM RG103430 | 55725 0400 00 0 56255 ADD P2BAG ADD ART RG103440 55726 0560 00 0 07163 LDQ P2AA3+1 LOAD MQ WITH WD2 OF CB PARAM RG103450 | 55727 -0763 00 0 00014 LGL 12 SHIFT TO AC RG103460 | 55730 0767 00 0 00006 ALS 6 RG103470 | 55731 0400 00 0 56252 ADD P2BAF+3 ADD CONS OF 5 RG103480 | 55732 0602 00 0 56242 SLW P2BAE-2 TIDENT CONTROL WORD RG103490 55733 0774 00 1 00000 AXT 0,1 RG103500 | 55734 0774 00 2 00005 AXT 5,2 RG103510 | 55735 -0534 00 4 51543 LXD P2AA5,4 LOAD IR 4 WITH LOC IN TIDENT RG103520 | 55736 0500 00 1 56242 P2BBM CLA P2BAE-2,1 TRANSFER RESET RG103530 | 55737 0601 00 4 51543 STO P2AA5,4 PACKAGE TO TIDENT AREA RG103540 55740 1 77777 1 55741 TXI *+1,1,-1 RG103550 | 1 LISTING OF 12/01/64 PAGE 243 | PROCESS CONTROL BREAKS | | 55741 1 77777 4 55742 TXI *+1,4,-1 -1TO IR 4 RG103560 55742 -3 00001 4 56207 TXL P2BC1,4,1 CHECK TIDENT OVFLO RG103570 | 55743 2 00001 2 55736 TIX P2BBM,2,1 DONE RG103580 | 55744 -0634 00 4 51543 SXD P2AA5,4 LAST LOC IN TIDENT TO DEC TIDENT WD RG103590 | 55745 3 00000 0 53375 TXH Z2A15-5,0,0 TEST SWITCH RG103600 | 55746 -0500 00 0 56260 CAL P2BAG+3 GET CB LEVEL RG103610 55747 0020 00 0 55754 TRA P2BBO RG103620 | 55750 -0500 00 0 56260 P2BBN CAL P2BAG+3 GET CB RG103630 | 55751 -0340 00 0 56257 LAS P2BAG+2 COMPARE TO PREV CB BREAK RG103640 | 55752 0020 00 0 55754 TRA *+2 GREATER RG103650 | 55753 0020 00 0 55767 TRA P2BBS EQUAL RG103660 55754 0602 00 0 56257 P2BBO SLW P2BAG+2 RG103670 | 55755 0400 00 0 56253 ADD P2BAF+4 LESS ADD-10 RG103680 | 55756 0621 00 0 55761 STA P2BBP STA TO SHIFT RG103690 | 55757 0621 00 0 55762 STA P2BBP+1 INSTRUCTIONS RG103700 | 55760 -0500 00 0 56263 CAL P2BAH+1 GET CB CONS RG103710 55761 0771 00 0 00000 P2BBP ARS 0 SHIFT RG103720 | 55762 0767 00 0 00000 ALS 0 SHIFT RG103730 | 55763 0602 00 0 56261 SLW P2BAG+4 STO TO CB TEMP STO RG103740 | 55764 0074 00 4 35441 TSX STEPC,4 STEP CC WITH PROPER RG103750 | 55765 0 00001 1 56261 PZE P2BAG+4,1,1 CB CONS RG103760 55766 0621 00 0 56226 STA P2BAC+3 STO TO CB PKG RG103770 | 55767 0441 00 0 07165 P2BBS LDI P2AA3+3 WORD 4 OF CB PARAMETER RG103780 | 55770 -0054 00 001700 LFT 001700 TEST FOR SCB RG103790 | 55771 0020 00 0 56116 TRA P2BCM TRA TO SCB RIN RG103800 | 55772 -0500 00 0 06763 CAL TAG4 CONS WITH BIT IN 20 RG103810 55773 0771 00 0 00002 ARS 2 SHIFT BIT TO 20 RG103820 | 55774 0625 00 0 56213 STT P2BAA STT TO GET PKG1 RG103830 | 55775 0074 00 4 55047 TSX P2XR1,4 TRA TO IR SETTING TEST RG103840 | 55776 0560 00 0 07166 LDQ P2AA3+4 GET W,B,L,+ M FROM PARAM RG103850 | 55777 0760 00 0 00000 CLM RG103860 56000 -0763 00 0 00012 LGL 10 W TO AC RG103870 | 56001 0734 00 1 00000 PAX 0,1 W TO IR 1 RG103880 | 56002 0760 00 0 00000 CLM RG103890 | 56003 -0763 00 0 00012 LGL 10 POSITION B RG103900 | 56004 0602 00 0 56272 SLW P2BAJ STO TO WORK AREA B RG103910 56005 0734 00 2 00000 PAX 0,2 RG103920 | 56006 -0634 00 2 56035 SXD P2BCG+4,2 RG103930 | 56007 0400 00 0 56247 ADD P2BAF ADD 1 RG103940 | 56010 0621 00 0 56032 STA P2BCG+1 STO TO SHIFT RG103950 | 56011 0621 00 0 56033 STA P2BCG+2 INST RG103960 56012 0760 00 0 00000 CLM RG103970 | 56013 -0763 00 0 00012 LGL 10 POSITION L RG103980 | 56014 0734 00 2 00000 PAX 0,2 L TO IR 2 RG103990 | 56015 -0773 00 0 00003 RQL 3 RG104000 | 56016 0162 00 0 56020 TQP *+2 RG104010 56017 0020 00 0 56022 TRA *+3 RG104020 | 56020 0774 00 2 40044 AXT 16420,2 RG104030 | 56021 0020 00 0 56125 TRA P2BCO RG104040 | 56022 0520 00 0 56272 ZET P2BAJ PACKED BIT=0 RG104050 | 56023 0020 00 0 56031 TRA P2BCG RG104060 56024 -3 00044 2 56026 TXL *+2,2,36 TRA IR 2 LESS OR EQ TO 36 RG104070 | 56025 1 77734 2 56125 TXI P2BCO,2,-36 SUB 36 FROM L RG104080 | 56026 -0500 00 0 56266 CAL P2BAH+4 LESS 36-GET CONS OF 1 S RG104090 | 56027 0602 00 0 56273 SLW P2BAJ+1 STO TO CONS WORK AREA RG104100 | 1 LISTING OF 12/01/64 PAGE 244 PROCESS CONTROL BREAKS | | 56030 0020 00 0 56036 TRA P2BCH RG104110 | 56031 -0500 00 0 56266 P2BCG CAL P2BAH+4 GET ALL 1S CONSTANT RG104120 | 56032 0767 00 0 00000 ALS 0 B+1 IN ADDRESS RG104130 56033 0771 00 0 00000 ARS 0 X RG104140 | 56034 0602 00 0 56273 SLW P2BAJ+1 STO TO MASK WORK AREA RG104150 | 56035 1 00000 2 56036 TXI *+1,2,0 ADD B TO L RG104160 | 56036 0754 00 2 00000 P2BCH PXA 0,2 L TO AC FROM IR 2 RG104170 | 56037 0402 00 0 56254 SUB P2BAF+5 SUB 36 RG104180 56040 0734 00 2 00000 PAX 0,2 L BACK TO IR 2 RG104190 | 56041 0120 00 0 56051 TPL P2BCI+1 RG104200 | 56042 0621 00 0 56045 STA *+3 STO ADDRESS TO RG104210 | 56043 0621 00 0 56046 STA *+3 SHIFT INST RG104220 | 56044 -0500 00 0 56273 CAL P2BAJ+1 GET MASK WORK AREA RG104230 56045 0771 00 0 00000 ARS 0 SHIFT RG104240 | 56046 0767 00 0 00000 ALS 0 X RG104250 | 56047 0602 00 0 56273 SLW P2BAJ+1 STO TO MASIC WORK AREA RG104260 | 56050 0020 00 0 56053 P2BCI TRA *+3 SET L TO 36 RG104270 | 56051 0100 00 0 56053 TZE *+2 L 0 RG104280 56052 0020 00 0 56054 TRA *+2 RG104290 | 56053 0774 00 2 40044 AXT 16420,2 RG104300 | 56054 0074 00 4 35441 P2BCJ TSX STEPC,4 STEP CC WITH MASK RG104310 | 56055 0 00001 1 56273 PZE P2BAJ+1,1,1 RG104320 | 56056 0621 00 0 56220 STA P2BAB+1 STO ADDRESS TO GET PKG 2 RG104330 56057 0634 00 1 56217 SXA P2BAB,1 W TO GET PKG 2 RG104340 | 56060 0560 00 0 56216 LDQ P2BAB-1 GET PKG 2 KEYS TO MQ RG104350 | 56061 0074 00 4 40227 TSX STEPI,4 STEP IC WITH GET PKG 2 RG104360 | 56062 0 00002 1 56217 PZE P2BAB,1,2 X RG104370 | 56063 0074 00 4 35441 TSX STEPC,4 STEP CC WITH PREV RG104380 56064 0 00001 1 56266 PZE P2BAH+4,1,1 RG104390 | 56065 0621 00 0 56223 STA P2BAC STO ADDRESS TO CB RG104400 | 56066 0621 00 0 56221 STA P2BAB+2 E GET PKG 2 RG104410 | 56067 0560 00 0 56222 LDQ P2BAC-1 CB KEYS TO MQ RG104420 | 56070 0074 00 4 40227 TSX STEPI,4 STEP IC WITH CB PKG RG104430 56071 0 00011 1 56223 PZE P2BAC,1,9 RG104440 | 56072 0500 00 0 56260 CLA P2BAG+3 GET CB LEVEL RG104450 | 56073 0767 00 0 00014 ALS 12 SHIFT RG104460 | 56074 0400 00 0 56255 ADD P2BAG ADD ART RG104470 | 56075 0767 00 0 00014 ALS 12 SHIFT RG104480 56076 0400 00 0 56256 ADD P2BAG+1 ADD IRT RG104490 | 56077 0767 00 0 00006 ALS 6 SHIFT RG104500 | 56100 0400 00 0 56252 ADD P2BAF+3 ADD 5 RG104510 | 56101 0602 00 0 56215 SLW P2BAB-2 STO TIDENT CONTROL WD TO GET RG104520 | 56102 0634 00 1 56164 SXA P2BCQ,1 SAVE IR 1 RG104530 56103 0634 00 2 56165 SXA P2BCQ+1,2 AND 2 RG104540 | 56104 0774 00 1 00000 AXT 0,1 RG104550 | 56105 0774 00 2 00005 AXT 5,2 RG104560 | 56106 -0534 00 4 51543 LXD P2AA5,4 LOAD IR 4 WITH LAST LOC IN TID RG104570 | 56107 0500 00 1 56215 P2BCK CLA P2BAB-2,1 TRANSFER GET 2 PKG TO RG104580 56110 0601 00 4 51543 STO P2AA5,4 TIDENT RG104590 | 56111 1 77777 1 56112 TXI *+1,1,-1 ADD -1 TO IR 1 RG104600 | 56112 1 77777 4 56113 TXI *+1,4,-1 ADD -1 TO IR 4 RG104610 | 56113 -3 00001 4 56207 TXL P2BC1,4,1 CHECK TIDENT OVFLO RG104620 | 56114 2 00001 2 56107 TIX P2BCK,2,1 RG104630 56115 0020 00 0 56163 TRA P2BCQ-1 RG104640 | 56116 0774 00 2 40044 P2BCM AXT 16420,2 RG104650 | 1 LISTING OF 12/01/64 PAGE 245 | PROCESS CONTROL BREAKS | 56117 0760 00 0 00000 CLM RG104660 | 56120 0625 00 0 56213 STT P2BAA CLA 0,1 TO CLA 0 IN GET 1 RG104670 | 56121 0500 00 0 55522 CLA P2CAA GET SCB ADDRESS RG104680 | 56122 0621 00 0 56213 STA P2BAA STO TO GET PKG 1 RG104690 | 56123 0020 00 0 56126 TRA P2BCO+1 RG104700 56124 1 77734 2 56125 P2BCN TXI P2BCO,2,-36 SUB 36 FROM L RG104710 | 56125 0634 00 1 56213 P2BCO SXA P2BAA,1 W TO GET PKG 1 RG104720 | 56126 0560 00 0 56212 LDQ P2BAA-1 LDQ WITH GET PKG 1 KEYS RG104730 | 56127 0074 00 4 40227 TSX STEPI,4 STEP IC WITH GET PKG 1 RG104740 | 56130 0 00001 1 56213 PZE P2BAA,1,1 RG104750 56131 0074 00 4 35441 TSX STEPC,4 STEP CC WITH PREV RG104760 | 56132 0 00001 1 56266 PZE P2BAH+4,1,1 RG104770 | 56133 0621 00 0 56223 STA P2BAC STA TO CB PKG RG104780 | 56134 0621 00 0 56214 STA P2BAA+1 STA TO GET PKG 1 RG104790 | 56135 0560 00 0 56222 LDQ P2BAC-1 LDQ WITH CB PKG KEYS RG104800 56136 0074 00 4 40227 TSX STEPI,4 STEP IC WITH CB PKG RG104810 | 56137 0 00011 1 56223 PZE P2BAC,1,9 RG104820 | 56140 0500 00 0 56260 CLA P2BAG+3 GET CB LEVEL RG104830 | 56141 0767 00 0 00014 ALS 12 RG104840 | 56142 0400 00 0 56255 ADD P2BAG ADD ART RG104850 56143 0767 00 0 00014 ALS 12 RG104860 | 56144 0400 00 0 56256 ADD P2BAG+1 ADD IRT RG104870 | 56145 0767 00 0 00006 ALS 6 RG104880 | 56146 0400 00 0 07327 ADD MASK+10 CONS 5 RG104890 | 56147 0602 00 0 56211 SLW P2BAA-2 STO TIDENT CONTROL WD TO GET 1 RG104900 56150 0634 00 1 56164 SXA P2BCQ,1 SAVE IR 1 AND RG104910 | 56151 0634 00 2 56165 SXA P2BCQ+1,2 IR 2 RG104920 | 56152 0774 00 1 00000 AXT 0,1 RG104930 | 56153 0774 00 2 00004 AXT 4,2 RG104940 | 56154 -0534 00 4 51543 LXD P2AA5,4 LOAD IR 4 WITH LAST LOC IN TIDENT RG104950 56155 0500 00 1 56211 P2BCP CLA P2BAA-2,1 TRANSFER GET U +KG TO RG104960 | 56156 0601 00 4 51543 STO P2AA5,4 TIDENT AREA RG104970 | 56157 1 77777 1 56160 TXI *+1,1,-1 ADD -1 TO IR 1 RG104980 | 56160 1 77777 4 56161 TXI *+1,4,-1 ADD -1 TO IR 4 RG104990 | 56161 -3 00001 4 56207 TXL P2BC1,4,1 CHECK FOR TIDENT OVERFLO RG105000 56162 2 00001 2 56155 TIX P2BCP,2,1 RG105010 | 56163 -0634 00 4 51543 SXD P2AA5,4 LAST LOC BACK TO TIDENT WORD RG105020 | 56164 0774 00 1 00000 P2BCQ AXT 0,1 RESTORE IR 1 RG105030 | 56165 0774 00 2 00000 AXT 0,2 AND IR 2 RG105040 | 56166 0754 00 2 00000 PXA 0,2 IR 2 TO AC RG105050 56167 0402 00 0 56254 SUB P2BAF+5 SUB 36 RG105060 | 56170 2 40000 2 56204 TIX P2BCS,2,16384 RG105070 | 56171 0734 00 2 00000 PAX 0,2 RG105080 | 56172 -0120 00 0 56174 TMI P2BCR RG105090 | 56173 1 00001 1 56125 TXI P2BCO,1,1 INCREASE W BY 1 RG105100 56174 0621 00 0 56045 P2BCR STA P2BCI-3 RG105110 | 56175 0621 00 0 56046 STA P2BCI-2 RG105120 | 56176 0500 00 0 56266 CLA P2BAH+4 GET CONS OF 1 S RG105130 | 56177 0601 00 0 56273 STO P2BAJ+1 STO TO MASK AREA RG105140 | 56200 -0500 00 0 07166 CAL P2AA3+4 RG105150 56201 0771 00 0 00001 ARS 1 RG105160 | 56202 3 00043 2 56204 TXH P2BCS,2,35 RG105170 | 56203 1 00001 1 56044 TXI P2BCI-4,1,1 RG105180 | 56204 0774 00 1 00000 P2BCS AXT 0,1 RG105190 | 56205 0774 00 4 00000 P2BCT AXT 0,4 RESTORE IR 4 RG105200 1 LISTING OF 12/01/64 PAGE 246 | PROCESS CONTROL BREAKS | | 56206 0020 00 0 52711 TRA P2AR0 TRA TO READ A PARAMETER RG105210 | 56207 0774 00 2 00005 P2BC1 AXT 5,2 PRINT TID FULL. RG105220 56210 0074 00 4 37646 TSX P2M01,4 X RG105230 | * GET PKG 1 RG105240 | 56211 +000000000000 DEC 0,0 TIDENT WORD-KEYS RG105250 | 56212 +000000000000 | 56213 -0500 00 1 00000 P2BAA CAL 0,1 GET FIELD RG105260 56214 0602 00 0 00000 SLW 0 FOR TIDENT RG105270 | * GET PKG 2 RG105280 | 56215 +000000000000 DEC 0,0 TIDENT WORD-KEYS RG105290 | 56216 +000000000000 | 56217 -0500 00 1 00000 P2BAB CAL 0,1 GET FIELD RG105300 56220 -0320 00 0 00000 ANA 0 AND MASK TO AC RG105310 | 56221 0602 00 0 00000 SLW 0 FOR TIDENT RG105320 | * CONTROL BREAK PKG RG105330 | 56222 +022004400000 OCT 022004400000 KEY FOR CB PKG RG105340 | 56223 -0340 00 0 00000 P2BAC LAS 0 COMP TO PREV RG105350 56224 0020 00 0 00002 TRA 2 TRA *+2 RG105360 | 56225 0020 00 0 00005 TRA 5 TRA *+5 RG105370 | 56226 -0500 00 0 00000 CAL 0 CONTROL WORD RG105380 | 56227 0602 00 0 00000 SLW 0 CONTROL WORD AREA RG105390 | 56230 0074 00 4 00000 TSX 0,4 TRAN TO TOTAL LINES RG105400 56231 135363000000 BCI 1,=$T000 SYMB LOC OF TOTAL LINES RG105410 | 56232 0 00000 0 00000 PZE 0 TRA ADD FOR TRA TO IND RG105420 | 56233 130000530000 BCI 1,=00$00 SYMB LOC OF IND RG105430 | * INDICATIVE TEST PKG RG105440 | 56234 +002400000000 OCT 002400000000 KEY RG105450 56235 0441 00 0 00000 P2BAD LDI 0 LOAD SI WITH CONTROL WD RG105460 | 56236 -0056 00 000000 LNT 0 TEST SI WITH IND CONS RG105470 | 56237 0020 00 0 00002 TRA 2 TRA *+2 RG105480 | 56240 0020 00 0 00000 TRA 0 RG105490 | 56241 130000530000 BCI 1,=00$00 SYMB LOC OF IND RG105500 * RESET PKG FOR IND PICK-UP RG105510 | 56242 +000000000000 DEC 0,0 TIDENT CONTROL WORD-KEYS RG105520 | 56243 +000000000000 | 56244 0441 00 0 00000 P2BAE LDI 0 LOAD SI WITH CONTROL WORD RG105530 | 56245 -0057 00 000000 RIL 0 TEST SI WITH IND CONS RG105540 56246 0604 00 0 00000 STI 0 STO IND TO CONTROL WD AREA RG105550 | * CONSTANTS RG105560 | 56247 +000000000001 P2BAF DEC 1,-1,2,5,-10,36 RG105570 | 56250 -000000000001 | 56251 +000000000002 56252 +000000000005 | 56253 -000000000012 | 56254 +000000000044 | 56255 +000000000000 P2BAG DEC 0,0,0,0,0 ART, IRT, CB COMP, CB STO + CB CONS RG105580 | 56256 +000000000000 56257 +000000000000 | 56260 +000000000000 | 56261 +000000000000 | 56262 +000000400000 P2BAH OCT 000000400000 IND CONSTANT RG105590 | 56263 -377777777777 OCT 777777777777 CB CONST - ALT + AND - RG105600 56264 -370000770000 OCT 770000770000 AND ZEROS TO SYMB LOC OF IND RG105610 | 56265 -377777777700 OCT 777777777700 SYMB TOTAL TRA MASK RG105620 | 56266 -377777777777 OCT 777777777777 ALL 1 S RG105630 | 1 LISTING OF 12/01/64 PAGE 247 | PROCESS CONTROL BREAKS | 56267 000000260000 BCI 1,000F00 F RG105640 | 56270 +000000007700 OCT 7700 MASK RG105650 | 56271 -377777772677 OCT 777777772677 X RG105660 | 56272 P2BAJ BSS 2 B WORK AREA-MASK WORK AREA RG105670 56252 P2JK4 EQU P2BAF+3 +5 RG105680 | 1 LISTING OF 12/01/64 PAGE 248 | PROCESS HAND CALCULATIONS | | 56274 0634 00 4 56322 Z2AR2 SXA Z2AR22+1,4 RG105700 56275 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG105710 | 56276 0074 00 4 54005 TSX P2J0T,4 IS CONDITIONAL TEST REQUIRED RG105720 | 56277 0100 00 0 56322 TZE Z2AR22+1 NO RG105730 | 56300 0734 00 1 00000 PAX 0,1 RG105740 | 56301 1 77777 1 56302 TXI *+1,1,-1 RG105750 56302 -0773 00 0 00003 RQL 3 RG105760 | 56303 -0634 00 1 56321 SXD Z2AR22,1 RG105770 | 56304 -0500 00 0 61420 CAL CNDSW RG105780 | 56305 0100 00 0 56310 TZE *+3 RG105790 | 56306 0600 00 0 61420 STZ CNDSW RG105800 56307 0020 00 0 56315 TRA Z2AR21 RG105810 | 56310 0074 00 4 40445 TSX IC300,4 MAKE ICNPD ENTRY RG105820 | 56311 -0500 00 0 04401 CAL ICULC RG105830 | 56312 0602 00 1 20326 SLW ICNPD,1 RG105840 | 56313 -0500 00 0 61464 CAL SAVAD RG105850 56314 0602 00 1 20327 SLW ICNPD+1,1 RG105860 | 56315 -0500 00 0 04401 Z2AR21 CAL ICULC RG105870 | 56316 0400 00 0 61402 ADD C1+6 2 RG105880 | 56317 0602 00 0 61464 SLW SAVAD RG105890 | 56320 0074 00 4 40227 TSX STEPI,4 RG105900 56321 0 00000 1 54310 Z2AR22 PZE P2JA0-10,1,0 RG105910 | 56322 0774 00 4 00000 AXT 0,4 RG105920 | 1 LISTING OF 12/01/64 PAGE 249 | PHASE II SUBROUTINE TO PROCESS HAND CALCS | 56323 0634 00 1 56741 HCGET SXA HC850,1 SAVE XRS RG105940 | 56324 0634 00 2 56742 SXA HC850+1,2 RG105950 | 56325 0634 00 4 56743 SXA HC850+2,4 RG105960 | 56326 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG105970 | 56327 0600 00 0 52552 STZ SWAA6 RG105980 56330 -0500 00 0 07167 HC700 CAL P2AA3+5 COMPARE AGAINST CURRENT CALC RG105990 | 56331 -0340 00 0 26131 LAS HCNAM RG106000 | 56332 0020 00 0 56334 TRA *+2 RG106010 | 56333 0020 00 0 56376 TRA HC720 RG106020 | 56334 0074 00 1 56750 TSX HC860,1 GET ANOTHER CALC RG106030 56335 0 36771 0 00033 PZE 27,,HCCMD RG106040 | 56336 0020 00 0 56330 TRA HC700 RG106050 | 56337 0074 00 4 05505 TSX NDSRT,4 END OF FILE REACHED RG106060 | 56340 0 00006 0 00033 PZE 27,,6 POSITION TAPE TO SEARCH ENTIRE FILE RG106070 | 56341 0074 00 4 05505 TSX NDSRT,4 RG106080 56342 0 00006 0 00033 PZE 27,,6 RG106090 | 56343 0074 00 4 05255 TSX RD(WR),4 RG106100 | 56344 0 07377 0 00033 PZE 27,,NTCMD PASS IST RECORD RG106110 | 56345 0074 00 4 04000 TSX LOST,4 TAPE TROUBLE RG106120 | 56346 0074 00 1 56750 HC704 TSX HC860,1 RG106130 56347 0 36771 0 00033 PZE 27,,HCCMD RG106140 | 56350 0020 00 0 56373 TRA HC710 RG106150 | 56351 -0500 60 0 56330 HC706 CAL* HC700 GET NAME FOR MESSAGE RG106160 | 56352 0560 00 0 07001 LDQ BLNKS BUILD ERROR MESSAGE RG106170 | 56353 -0765 00 0 00006 LGR 6 RG106180 56354 -0100 00 0 56353 TNZ *-1 RG106190 | 56355 -0600 00 0 56365 STQ HC709 RG106200 | 56356 0074 00 4 34503 TSX ERROR,4 ERROR, HAND CALC CANNOT BE FOUND RG106210 | 56357 -0 00006 0 56365 MZE HC709,,6 RG106220 | 56360 0 00004 0 34546 PZE ER105,,4 EXECUTION IMPOSSIBLE RG106230 56361 -0625 00 0 34552 STL ERSWT RG106240 | 56362 0074 00 4 05505 TSX NDSRT,4 BACKSPACE OVER FILE MARK RG106250 | 56363 0 00006 0 00033 PZE 27,,6 RG106260 | 56364 0020 00 0 56741 TRA HC850 RG106270 | 56365 676767676767 HC709 BCI 6,XXXXXX HAND CALC ROUTINE MISSING RG106280 56366 603021452460 | 56367 232143236051 | 56370 466463314525 | 56371 604431626231 | 56372 452760606060 56373 -0500 60 0 56330 HC710 CAL* HC700 RG106290 | 56374 0322 00 0 26131 ERA HCNAM RG106300 | 56375 -0100 00 0 56346 TNZ HC704 RG106310 | * CORRECT HAND CALC FOUND RG106320 | 56376 0520 00 0 56761 HC720 ZET HCSW8 ARE WE PROCESSING T AND H LINESRG106330 56377 0020 00 0 56404 TRA HC722 YES,INSERT HAND CALC NOW RG106340 | 56400 -0500 00 0 07162 CAL P2AA3 NO,TEST FOR T OR H CALC RG106350 | 56401 -0340 00 0 56664 LAS HC790 RG106360 | 56402 0020 00 0 56712 TRA HC840 YES,BUILD TID ENTRY FOR LATER RG106370 | 56403 0020 00 0 56404 TRA *+1 NO,PROCESS CALC NOW RG106380 56404 0774 00 4 00004 HC722 AXT 4,4 RG106390 | 56405 0600 00 4 56767 STZ HCTMP+4,4 RG106400 | 56406 2 00001 4 56405 TIX *-1,4,1 RG106410 | 56407 -0320 00 0 07003 ANA BCD03 MASK 77 RG106420 | 56410 0100 00 0 56416 TZE *+6 THIS PACKET RG106430 1 LISTING OF 12/01/64 PAGE 250 | PHASE II SUBROUTINE TO PROCESS HAND CALCS | | 56411 -0500 00 0 26132 CAL HCIPT CHECK FOR 'RN' RG106440 | 56412 -0320 00 0 07003 ANA BCD03 MASK 77 RG106450 56413 0322 00 0 66745 ERA SLARN 'RN' RG106460 | 56414 0100 00 0 56416 TZE *+2 IS IT EQUAL TO RN RG106470 | 56415 -0625 00 0 52552 STL SWAA6 NO ' HCIPT IN ANOTHER PACKET RG106480 | 56416 -0500 00 0 26132 CAL HCIPT RG106490 | 56417 0100 00 0 56430 TZE HC724 RG106500 56420 0774 00 4 03721 AXT P2JB2,4 RG106510 | 56421 -0340 00 4 14404 LAS ICPSD,4 TEST FOR INSERT POINT DEFINED RG106520 | 56422 0020 00 0 56424 TRA *+2 RG106530 | 56423 0020 00 0 56430 TRA HC724 RG106540 | 56424 2 00002 4 56421 TIX *-3,4,2 RG106550 56425 0602 00 0 56427 SLW *+2 RG106560 | 56426 0074 00 4 40614 TSX CCPSD,4 WE ARE AT INSERT POINT RG106570 | 56427 0 00000 0 00000 PZE RG106580 | 56430 -0520 00 0 56762 HC724 NZT HCSW9 ARE XRS TO BE SAVED RG106590 | 56431 0020 00 0 56435 TRA HC726 NO RG106600 56432 0560 00 0 56665 LDQ HC791 YES( BUILD SXA FOR XR1, XR2 RG106610 | 56433 0074 00 4 40227 TSX STEPI,4 RG106620 | 56434 0 00004 1 56666 PZE HC792,1,4 RG106630 | 56435 0500 00 0 04401 HC726 CLA ICULC SAVE LOCATION OF FIRST INSTR RG106640 | 56436 0601 00 0 56766 STO HCTMP+3 RG106650 56437 0774 00 4 01750 HC730 AXT P2JC7,4 DEFINE HAND CALC SYMBOLS RG106660 | 56440 0500 00 4 30105 HC732 CLA HCSYM+1,4 RG106670 | 56441 0400 00 0 56766 ADD HCTMP+3 RG106680 | 56442 0601 00 4 30105 STO HCSYM+1,4 RG106690 | 56443 0520 00 4 30106 ZET HCSYM+2,4 RG106700 56444 2 00002 4 56440 TIX HC732,4,2 RG106710 | 56445 0774 00 2 01750 AXT P2JD1,2 TEST CONSTANTS FOR MISSING ADDRESSES RG106720 | 56446 -0500 00 2 26130 HC742 CAL CNINS+1,2 RG106730 | 56447 0100 00 0 56455 TZE HC744 TEST FOR SYMBOL RG106740 | 56450 0074 00 4 56767 TSX SYMSR,4 SEARCH FOR SYMBOL RG106750 56451 0020 00 0 56455 TRA HC744 SYMBOL NOT FOUND RG106760 | 56452 0401 00 2 26127 ADM CNINS,2 SYMBOL FOUND RG106770 | 56453 0621 00 2 26127 STA CNINS,2 UPDATE ADDRESS RG106780 | 56454 0600 00 2 26130 STZ CNINS+1,2 RG106790 | 56455 2 00002 2 56446 HC744 TIX HC742,2,2 RG106800 56456 0774 00 2 01750 HC768 AXT P2JC8,2 PROCESS H C INSTRUCTIONS RG106810 | 56457 -0535 00 4 36774 LDC HCCMD+3,4 INITIALIZE LOOP RG106820 | 56460 1 01752 4 56461 TXI *+1,4,P2JC8+2 RG106830 | 56461 -0634 00 4 56632 SXD HC780,4 RG106840 | 56462 -0500 00 0 56764 CAL HCTMP+1 UPDATE SEQUENCE NUMBER RG106850 56463 0400 00 0 06615 ADD ONE RG106860 | 56464 0602 00 0 56764 SLW HCTMP+1 RG106870 | 56465 -0340 00 0 26133 LAS HCBUF+3 RG106880 | 56466 0074 00 4 04000 TSX LOST,4 ERROR RG106890 | 56467 0020 00 0 56471 TRA *+2 OK RG106900 56470 0074 00 4 04000 TSX LOST,4 ERROR RG106910 | 56471 0500 00 2 32055 HC770 CLA HCINS,2 GET INSTRUCTION RG106920 | 56472 0601 00 0 37141 STO HCWD1 RG106930 | 56473 -0500 00 2 32056 CAL HCINS+1,2 GET SYMBOL RG106940 | 56474 0602 00 0 37142 SLW HCWD2 RG106950 56475 0100 00 0 56503 TZE HC772 TEST FOR MISSING ADDRESS RG106960 | 56476 0074 00 4 56767 TSX SYMSR,4 YES, SEARCH FOR DEFINITION RG106970 | 56477 0020 00 0 56507 TRA HC773 SYMBOL NOT FOUND RG106980 | 1 LISTING OF 12/01/64 PAGE 251 | PHASE II SUBROUTINE TO PROCESS HAND CALCS | 56500 0401 00 0 37141 HC771 ADM HCWD1 SYMBOL FOUND RG106990 | 56501 0621 00 0 37141 STA HCWD1 UPDATE ADDRESS RG107000 | 56502 0761 00 0 00000 NOP ***RG107010 | 56503 0560 00 0 06614 HC772 LDQ ZERO RG107020 56504 0074 00 4 40227 TSX STEPI,4 PUT COMPLETE INSTRUCTION AWAY RG107030 | 56505 0 00001 1 37141 PZE HCWD1,1,1 RG107040 | 56506 0020 00 0 56632 TRA HC780 RG107050 | 56507 0074 00 4 40466 HC773 TSX IC400,4 RG107060 | 56510 0020 00 0 56513 TRA *+3 RG107070 56511 -0500 00 2 32056 CAL HCINS+1,2 RG107080 | 56512 0020 00 0 56626 TRA HC779 RG107090 | 56513 0500 00 2 32056 CLA HCINS+1,2 RG107100 | 56514 -0340 00 0 06670 LAS ASTRIK RG107110 | 56515 0020 00 0 56517 TRA *+2 RG107120 56516 0020 00 0 56520 TRA *+2 RG107130 | 56517 0020 00 0 56525 TRA HC774 RG107140 | 56520 0534 00 4 04401 LXA ICULC,4 RG107150 | 56521 0120 00 0 56523 TPL *+2 RG107160 | 56522 0535 00 4 04401 LAC ICULC,4 RG107170 56523 0754 00 4 00000 PXA 0,4 RG107180 | 56524 0020 00 0 56500 TRA HC771 RG107190 | 56525 0074 00 1 56750 HC774 TSX HC860,1 RG107200 | 56526 0 56706 0 00033 PZE 27,,HC796 RG107210 | 56527 0074 00 1 56545 TSX HC776,1 RG107220 56530 0074 00 4 05505 TSX NDSRT,4 RG107230 | 56531 0 00006 0 00033 PZE 27,,6 RG107240 | 56532 0074 00 4 05505 TSX NDSRT,4 RG107250 | 56533 0 00006 0 00033 PZE 27,,6 RG107260 | 56534 0074 00 4 05255 TSX RD(WR),4 RG107270 56535 0 07377 0 00033 PZE 27,,NTCMD RG107280 | 56536 0074 00 4 04000 TSX LOST,4 RG107290 | 56537 0074 00 1 56750 HC775 TSX HC860,1 RG107300 | 56540 0 56706 0 00033 PZE 27,,HC796 RG107310 | 56541 0074 00 1 56545 TSX HC776,1 RG107320 56542 0074 00 4 05505 TSX NDSRT,4 RG107330 | 56543 0 00006 0 00033 PZE 27,,6 RG107340 | 56544 0020 00 0 56556 TRA HC777 RG107350 | 56545 -0500 00 0 26131 HC776 CAL HCNAM RG107360 | 56546 0322 00 0 07167 ERA P2AA3+5 RG107370 56547 -0100 00 1 77776 TNZ -2,1 RG107380 | 56550 -0500 00 0 26133 CAL HCBUF+3 RG107390 | 56551 0340 00 0 56764 CAS HCTMP+1 RG107400 | 56552 0020 00 0 56553 TRA *+1 RG107410 | 56553 0020 00 0 56556 TRA HC777 RG107420 56554 0074 00 4 56767 TSX SYMSR,4 RG107430 | 56555 0020 00 1 77776 TRA -2,1 RG107440 | 56556 0774 00 4 01750 HC777 AXT P2JC7,4 DEFINE NEW SYMBOLS RG107450 | 56557 0500 00 4 30105 CLA HCSYM+1,4 RG107460 | 56560 0400 00 0 56766 ADD HCTMP+3 RG107470 56561 0601 00 4 30105 STO HCSYM+1,4 RG107480 | 56562 2 00002 4 56557 TIX *-3,4,2 RG107490 | 56563 0500 00 0 26133 CLA HCBUF+3 RE-POSITION CALC TAPE RG107500 | 56564 0402 00 0 56764 SUB HCTMP+1 RG107510 | 56565 0100 00 0 56601 TZE HC778 RG107520 56566 0734 00 1 00000 PAX 0,1 RG107530 | 1 LISTING OF 12/01/64 PAGE 252 | PHASE II SUBROUTINE TO PROCESS HAND CALCS | | 56567 -0120 00 0 56574 TMI *+5 RG107540 56570 0074 00 4 05505 TSX NDSRT,4 RG107550 | 56571 0 00005 0 00033 PZE 27,,5 RG107560 | 56572 2 00001 1 56570 TIX *-2,1,1 RG107570 | 56573 0020 00 0 56601 TRA HC778 RG107580 | 56574 0074 00 4 05255 TSX RD(WR),4 RG107590 56575 0 07377 0 00033 PZE 27,,NTCMD RG107600 | 56576 0020 00 0 56600 TRA *+2 RG107610 | 56577 0074 00 4 04000 TSX LOST,4 RG107620 | 56600 2 00001 1 56574 TIX *-4,1,1 RG107630 | 56601 -0500 00 2 32056 HC778 CAL HCINS+1,2 PICK UP SYMBOL RG107640 56602 0074 00 4 56767 TSX SYMSR,4 FIND VALUE RG107650 | 56603 0020 00 0 56605 TRA *+2 RG107660 | 56604 0020 00 0 56500 TRA HC771 RG107670 | 56605 0500 00 2 32056 CLA HCINS+1,2 RG107680 | 56606 0560 00 0 07001 LDQ BLNKS RG107690 56607 -0765 00 0 00006 LGR 6 RG107700 | 56610 -0100 00 0 56607 TNZ *-1 RG107710 | 56611 -0600 00 0 56623 STQ *+10 RG107720 | 56612 0074 00 4 34503 TSX ERROR,4 RG107730 | 56613 -0 00007 0 56617 MZE *+4,,7 RG107740 56614 0 00004 0 34546 PZE ER105,,4 RG107750 | 56615 -0625 00 0 34552 STL ERSWT RG107760 | 56616 0020 00 0 56500 TRA HC771 RG107770 | 56617 302145246023 BCI 5,HAND CALCULATION SYMBOL RG107780 | 56620 214323644321 56621 633146456062 | 56622 704422464360 | 56623 606060606060 | 56624 644524252631 BCI 2,UNDEFINED RG107790 | 56625 452524606060 56626 0602 00 0 37142 HC779 SLW HCWD2 RG107800 | 56627 0560 00 0 06777 LDQ PRFX4 RG107810 | 56630 0074 00 4 40227 TSX STEPI,4 RG107820 | 56631 0 00002 1 37141 PZE HCWD1,1,2 RG107830 | 56632 -3 00000 2 56634 HC780 TXL *+2,2,** TEST FOR MORE INSTRUCTIONS RG107840 56633 1 77776 2 56471 TXI HC770,2,-2 YES RG107850 | 56634 0074 00 1 56750 TSX HC860,1 NO, GET NEXT RECORD RG107860 | 56635 0 36771 0 00033 PZE 27,,HCCMD RG107870 | 56636 0020 00 0 56642 TRA HC782 RG107880 | 56637 0074 00 4 05505 TSX NDSRT,4 EOF RETURN RG107890 56640 0 00005 0 00033 PZE 27,,5 RG107900 | 56641 0020 00 0 56645 TRA HC784 RG107910 | 56642 -0500 00 0 07167 HC782 CAL P2AA3+5 ARE WE STILL IN SAME CALC RG107920 | 56643 0322 00 0 26131 ERA HCNAM RG107930 | 56644 0100 00 0 56437 TZE HC730 YES, CONTINUE RG107940 56645 -0520 00 0 56762 HC784 NZT HCSW9 ARE XRS TO BE SAVED RG107950 | 56646 0020 00 0 56741 TRA HC850 NO RG107960 | 56647 0074 00 4 40674 TSX CCNPD,4 YES, BUILD AXT FOR XR1, SR2 RG107970 | 56650 136265675101 BCI 1,=SVXR1 DEFINE SVXR1 RG107980 | 56651 0560 00 0 06614 LDQ ZERO RG107990 56652 0074 00 4 40227 TSX STEPI,4 BUILD AXT **,1 RG108000 | 56653 0 00001 1 56662 PZE HC788,1,1 RG108010 | 56654 0074 00 4 40674 TSX CCNPD,4 DEFINE SVXR2 RG108020 | 56655 136265675102 BCI 1,=SVXR2 RG108030 | 1 LISTING OF 12/01/64 PAGE 253 PHASE II SUBROUTINE TO PROCESS HAND CALCS | | 56656 0560 00 0 06614 LDQ ZERO RG108040 | 56657 0074 00 4 40227 TSX STEPI,4 BUILD AXT **,2 RG108050 | 56660 0 00001 1 56663 PZE HC789,1,1 RG108060 56661 0020 00 0 56741 TRA HC850 RG108070 | 56662 0774 00 1 00000 HC788 AXT **,1 RG108080 | 56663 0774 00 2 00000 HC789 AXT **,2 RG108090 | 56664 -377277777777 HC790 OCT 777277777777 RG108100 | 56665 -040000000000 HC791 OCT 440000000000 RG108110 56666 0634 00 1 00000 HC792 SXA **,1 RG108120 | 56667 136265675101 BCI 1,=SVXR1 RG108130 | 56670 0634 00 2 00000 SXA **,2 RG108140 | 56671 136265675102 BCI 1,=SVXR2 RG108150 | 56672 633124606321 HC793 BCI 7,TID TABLE FULL,TOO MANY HEADING AND TOTAL RG108160 56673 224325602664 | 56674 434373634646 | 56675 604421457060 | 56676 302521243145 | 56677 276021452460 56700 634663214360 | 56701 433145256031 BCI 3,LINE INSTRUCTIONS RG108170 | 56702 456263516423 | 56703 633146456260 | 56704 +000000000045 HC794 OCT 45 RG108180 56705 304524234323 HC795 BCI 1,HNDCLC RG108190 | 56706 -0 00001 0 56710 HC796 IOCP *+2,,1 IO TO READ SYMBOLS ONLY RG108200 | 56707 -0 00002 2 00000 IOCPN ,,2 RG108210 | 56710 -0 00000 0 00000 IOCP **,,** RG108220 | 56711 3 00004 0 26130 IORT HCBUF,,4 RG108230 * BUILD TID ENTRY FOR H AND T CALCS RG108240 | 56712 -0534 00 2 51543 HC840 LXD P2AA5,2 TEST FOR ROOM IN TID TABLE RG108250 | 56713 2 00005 2 56720 TIX HC842,2,5 RG108260 | 56714 0074 00 4 34503 TSX ERROR,4 NO,ERROR RG108270 | 56715 -0 00012 0 56672 MZE HC793,,10 RG108280 56716 0 00004 0 34546 PZE ER105,,4 RG108290 | 56717 0020 00 0 56741 TRA HC850 RG108300 | 56720 -0634 00 2 51543 HC842 SXD P2AA5,2 RESTORE TID MONITOR RG108310 | 56721 -0500 00 0 07170 CAL P2AA3+6 RG108320 | 56722 -0100 00 0 56724 TNZ *+2 TEST FOR H LINE ENTRY RG108330 56723 -0500 00 0 07173 CAL P2AA3+9 NO, GET T LINE OUTPUT ENTRY RG108340 | 56724 0771 00 0 00022 ARS 18 RG108350 | 56725 0560 00 0 07163 LDQ P2AA3+1 RG108360 | 56726 -0763 00 0 00014 LGL 12 RG108370 | 56727 0767 00 0 00006 ALS 6 RG108380 56730 -0501 00 0 56704 ORA HC794 RG108390 | 56731 0602 00 2 51536 SLW P2AA5-5,2 RG108400 | 56732 0600 00 2 51537 STZ P2AA5-4,2 RG108410 | 56733 -0500 00 0 26131 CAL HCNAM RG108420 | 56734 0602 00 2 51540 SLW P2AA5-3,2 RG108430 56735 -0500 00 0 26132 CAL HCIPT RG108440 | 56736 0602 00 2 51541 SLW P2AA5-2,2 RG108450 | 56737 -0500 00 0 56705 CAL HC795 RG108460 | 56740 0602 00 2 51542 SLW P2AA5-1,2 RG108470 | 56741 0774 00 1 00000 HC850 AXT **,1 RESTORE XRS RG108480 56742 0774 00 2 00000 AXT **,2 RG108490 | 56743 0774 00 4 00000 AXT **,4 RG108500 | 1 LISTING OF 12/01/64 PAGE 254 | PHASE II SUBROUTINE TO PROCESS HAND CALCS | 56744 -0520 00 0 56760 NZT HCSW7 RG108510 | 56745 0020 00 0 52711 TRA P2AR0 GO GET NEXT PARAMETER RG108520 | 56746 0600 00 0 56760 STZ HCSW7 RG108530 | 56747 0020 00 4 00001 TRA 1,4 RG108540 | 56750 -0500 00 1 00001 HC860 CAL 1,1 SUBROUTINE TO GET HAND CALC RECORD RG108550 56751 0602 00 0 56755 SLW HC862 RG108560 | 56752 0074 00 4 05013 TSX STZLUP,4 RG108570 | 56753 0 01750 0 30104 PZE HCSYM,,P2JC7 RG108580 | 56754 0074 00 4 05255 TSX RD(WR),4 RG108590 | 56755 0 00000 0 00000 HC862 PZE **,,** RG108600 56756 0020 00 1 00002 TRA 2,1 NORMAL RETURN RG108610 | 56757 0020 00 1 00003 TRA 3,1 EOF RETURN RG108620 | 56760 0 00000 0 00000 HCSW7 PZE RG108630 | 56761 0 00000 0 00000 HCSW8 PZE RG108640 | 56762 0 00000 0 00000 HCSW9 PZE RG108650 56763 HCTMP BSS 4 TEMPORARY WORK AREA RG108660 | 1 LISTING OF 12/01/64 PAGE 255 | SUBROUTINE TO DEFINE ADDRESS SYMBOLS | | * SYMBOL WITH SIGN IN AC---COMPUTED VALUE IN AC ON RETURN RG108680 * RG108690 | 56767 0634 00 4 57042 SYMSR SXA SYM90,4 SAVE XRS RG108700 | 56770 0634 00 2 57043 SXA SYM91,2 RG108710 | 56771 0100 00 4 00001 TZE 1,4 RG108720 | 56772 -0340 00 0 07037 LAS BCD37 TEST FOR 6 CHARACTERS RG108730 56773 0020 00 0 57010 TRA SYM10 YES RG108740 | 56774 0020 00 0 56775 TRA *+1 RG108750 | 56775 0774 00 2 01750 AXT P2JC7,2 NO, SEARCH HC SYMBOLS RG108760 | 56776 -0340 00 2 30104 LAS HCSYM,2 RG108770 | 56777 0020 00 0 57001 TRA *+2 RG108780 57000 0074 00 4 57033 TSX SYM20,4 FOUND RG108790 | 57001 2 00002 2 56776 TIX *-3,2,2 RG108800 | 57002 0774 00 2 00310 AXT P2JC6,2 SEARCH CONSTANT SYMBOLS RG108810 | 57003 -0340 00 2 24156 LAS CNSYM,2 RG108820 | 57004 0020 00 0 57006 TRA *+2 RG108830 57005 0074 00 4 57033 TSX SYM20,4 FOUND RG108840 | 57006 2 00002 2 57003 TIX *-3,2,2 RG108850 | 57007 0761 00 0 00000 NOP RG108860 | 57010 -0534 00 2 07733 SYM10 LXD RGSYM,2 SEARCH SYSTEM SYMBOLS RG108870 | 57011 -0340 00 2 07733 LAS RGSYM,2 RG108880 57012 0020 00 0 57014 TRA *+2 RG108890 | 57013 0074 00 4 57033 TSX SYM20,4 FOUND RG108900 | 57014 2 00002 2 57011 TIX *-3,2,2 RG108910 | 57015 0774 00 2 03721 AXT P2JB2,2 SEARCH GENERATED SYMBOLS RG108920 | 57016 -0340 00 2 14404 LAS ICPSD,2 RG108930 57017 0020 00 0 57021 TRA *+2 RG108940 | 57020 0074 00 4 57033 TSX SYM20,4 FOUND RG108950 | 57021 2 00002 2 57016 TIX *-3,2,2 RG108960 | 57022 -0765 00 0 00036 LGR 30 TEST FOR ACCUMULATION FIELD RG108970 | 57023 -0340 00 0 06653 LAS TEN+21 RG108980 57024 0020 00 0 04000 TRA LOST RG108990 | 57025 0020 00 0 57030 TRA *+3 RG109000 | 57026 0634 00 0 37141 SXA HCWD1,0 ZERO ADDR. OF HCWD1 FOR * ADDR ING RG109010 | 57027 0020 00 0 57045 TRA SYM92 NO, MAKE ERROR RETURN RG109020 | 57030 -0130 00 0 00000 XCL YES RG109030 57031 0074 00 4 57710 TSX C1010,4 GET ACTUAL VALUE RG109040 | 57032 0020 00 0 57042 TRA SYM90 RG109050 | * RG109060 | 57033 1 77777 2 57034 SYM20 TXI *+1,2,-1 SYMBOL FOUND RG109070 | 57034 -0120 00 0 57037 TMI SYM30 RG109080 57035 -0500 60 4 77776 CAL* -2,4 GET VALUE RG109090 | 57036 0020 00 0 57042 TRA SYM90 RG109100 | 57037 -0500 60 4 77776 SYM30 CAL* -2,4 RG109110 | 57040 0737 00 4 00000 PAC 0,4 RG109120 | 57041 0754 00 4 00000 PXA 0,4 RG109130 57042 0774 00 4 00000 SYM90 AXT **,4 RESTORE XRS RG109140 | 57043 0774 00 2 00000 SYM91 AXT **,2 RG109150 | 57044 0020 00 4 00002 TRA 2,4 RG109160 | 57045 -0763 00 0 00036 SYM92 LGL 30 RG109170 | 57046 0534 00 2 57043 LXA SYM91,2 RG109180 57047 0020 00 4 00001 TRA 1,4 RG109190 | 1 LISTING OF 12/01/64 PAGE 256 | ALPHA SUBROUTINE | | 57050 0634 00 4 57110 ALPHA SXA A0055,4 SAVE IRS RG109210 57050 P2ARA SYN ALPHA ALPHA ROUTINE RG109220 | 57051 0634 00 2 57111 SXA A0056,2 * RG109230 | 57052 0634 00 1 57112 SXA A0057,1 * RG109240 | 57053 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG109250 | 57054 0600 00 0 61423 STZ CONVT RG109260 57055 0600 00 0 07376 STZ HCSW2 RG109270 | 57056 -0625 00 0 61421 STL CNTSW SET COUNT SW OFF RG109280 | 57057 0560 00 0 07166 LDQ PARA+4 RG109290 | 57060 -0763 00 0 00012 LGL 10 RG109300 | 57061 0754 00 0 00000 PXA 0,0 RG109310 57062 -0763 00 0 00012 LGL 10 RG109320 | 57063 0602 00 0 36535 SLW P2BI RG109330 | 57064 0754 00 0 00000 PXA 0,0 RG109340 | 57065 -0763 00 0 00012 LGL 10 RG109350 | 57066 0602 00 0 36536 SLW P2LI RG109360 57067 -0500 00 0 61460 CAL P2B02 INITIALIZE THE OUTPUT ENTRY ADDRERG109370 | 57070 0621 00 0 61453 STA OPE PARA+6 RG109380 | 57071 0400 00 0 61376 ADD C1+2 ADD 1 RG109390 | 57072 0621 00 0 61454 STA OPE1 PARA+7 RG109400 | 57073 0400 00 0 61376 ADD C1+2 RG109410 57074 0621 00 0 61455 STA OPE2 RG109420 | 57075 -0500 00 0 07165 CAL PARA+3 ARE THERE ANY OUTPUT ENTRIES RG109430 | 57076 -0320 00 0 07334 ANA MASK+15 RG109440 | 57077 0402 00 0 61377 SUB C1+3 SUBTRACT 6 FROM LEN OF ENTRY RG109450 | 57100 0100 00 0 57110 TZE A0055 IF NO OUTPUT ENTRIES RG109460 57101 0402 00 0 61401 SUB C1+5 SUB 3 FROM LENGTH OF ENTRY RG109470 | 57102 0621 00 0 61461 STA P2B03 RG109480 | 57103 0020 00 0 57114 TRA A0102 RG109490 | 57104 -0500 00 0 61515 A0050 CAL E8190 CONVERT HTLC TO P2AA5 RG109500 | 57105 0402 00 0 61427 SUB HTLC * RG109510 57106 0734 00 1 00000 PAX 0,1 * RG109520 | 57107 -0634 00 1 51543 SXD P2AA5,1 * RG109530 | 57110 0774 00 4 00000 A0055 AXT 0,4 RESTORE IRS RG109540 | 57111 0774 00 2 00000 A0056 AXT 0,2 * RG109550 | 57112 0774 00 1 00000 A0057 AXT 0,1 * RG109560 57113 0020 00 0 52711 TRA P2AR0 TO READ A PARAMETER AND OUT RG109570 | 57114 -0500 00 0 07162 A0102 CAL PARA TEST FOR T LINE LITERAL RG109580 | 57115 -0320 00 0 07315 ANA MASK * RG109590 | 57116 -0340 00 0 61532 LAS E8290 * RG109600 | 57117 0020 00 0 57121 TRA *+2 *NO RG109610 57120 0020 00 0 57125 TRA A0111 * EQUAL TO T LINE RG109620 | 57121 -0340 00 0 07315 LAS MASK TEST FOR H LINE LITERAL RG109630 | 57122 0020 00 0 57132 TRA A0116 *NO RG109640 | 57123 0020 00 0 57125 TRA *+2 * RG109650 | 57124 0020 00 0 57132 TRA A0116 *NO RG109660 57125 -0500 00 0 07162 A0111 CAL PARA * RG109670 | 57126 -0320 00 0 07332 ANA MASK+13 * RG109680 | 57127 -0340 00 0 61517 LAS E8210 * RG109690 | 57130 0020 00 0 57132 TRA *+2 *NO RG109700 | 57131 0020 00 0 57450 TRA A2011 *EQUAL TO H LINE RG109710 57132 -0500 00 0 07162 A0116 CAL PARA PICK UP OP CODE RG109720 | 57133 -0320 00 0 07332 ANA MASK+13 * RG109730 | 57134 -0340 00 0 61374 LAS C1 *IS IT A LITERAL PARAMETER, 36 RG109740 | 57135 0020 00 0 57137 TRA *+2 *NO RG109750 | 1 LISTING OF 12/01/64 PAGE 257 ALPHA SUBROUTINE | | 57136 0020 00 0 57231 TRA A0501 YES, GO TO LITERAL ROUTINE RG109760 | 57137 -0520 00 0 61507 A0121 NZT THSW TEST T+H SW RG109770 | 57140 0020 00 0 57210 TRA A0310 *OFF RG109780 57141 0634 00 0 52553 SXA Z2XRA,0 RG109790 | 57142 0074 00 4 55047 TSX P2XR1,4 RG109800 | 57143 0074 00 4 54005 TSX P2J0T,4 BUILD TEST CLASSIFY INSTRUCTIONS RG109810 | 57144 -0100 00 0 57163 TNZ A0135 RG109820 | 57145 0534 00 4 52553 LXA Z2XRA,4 RG109830 57146 -3 00000 4 57210 TXL A0310,4,0 RG109840 | 57147 0600 00 0 54335 STZ P2JK2 RG109850 | 57150 0600 00 0 54336 STZ P2JK6 RG109860 | 57151 0074 00 4 54005 TSX P2J0T,4 RG109870 | 57152 -0100 00 0 57163 TNZ A0135 RG109880 57153 0500 00 0 04401 CLA ICULC RG109890 | 57154 0402 00 0 61376 SUB C1+2 ONE RG109900 | 57155 0601 00 0 04401 STO ICULC RG109910 | 57156 0074 00 4 63243 TSX G0010,4 RG109920 | 57157 0500 00 0 04401 CLA ICULC RG109930 57160 0400 00 0 61376 ADD C1+2 ONE RG109940 | 57161 0601 00 0 04401 STO ICULC RG109950 | 57162 0020 00 0 57210 TRA A0310 NONE REQUIRED. RG109960 | 57163 0734 00 1 00000 A0135 PAX 0,1 RG109970 | 57164 1 77777 1 57165 TXI *+1,1,-1 RG109980 57165 -0773 00 0 00003 RQL 3 RG109990 | 57166 -0634 00 1 57207 SXD A0300,1 PUT = OF INSTR TO STEP I RG110000 | 57167 -0500 00 0 61420 CAL CNDSW TEST CONDITIONAL SWITCH RG110010 | 57170 0100 00 0 57173 TZE A0190 *ZEROS, INDICATES 2ND TIME RG110020 | 57171 0600 00 0 61420 STZ CNDSW *SET SW TO ZERO RG110030 57172 0020 00 0 57203 TRA A0270 *TO SAVE LOCATION OF INSTR RG110040 | 57173 0074 00 4 40445 A0190 TSX IC300,4 MAKE ICNPD ENTRY RG110050 | 57174 -0500 00 0 04401 CAL ICULC *ENTER FIRST TBL WORD RG110060 | 57175 0534 00 4 52553 LXA Z2XRA,4 RG110070 | 57176 -3 00000 4 57200 TXL *+2,4,0 RG110080 57177 0402 00 0 61376 SUB C1+2 SUB 1 RG110090 | 57200 0602 00 1 20326 SLW ICNPD,1 * RG110100 | 57201 -0500 00 0 61464 CAL SAVAD *ENTER SECOND TBL WORD RG110110 | 57202 0602 00 1 20327 SLW ICNPD+1,1 * RG110120 | 57203 -0500 00 0 04401 A0270 CAL ICULC SAVE LOCATION OF INSTRUCTIONS RG110130 57204 0400 00 0 61402 ADD C1+6 ADD 2 RG110140 | 57205 0602 00 0 61464 SLW SAVAD * RG110150 | 57206 0074 00 4 40227 TSX STEPI,4 STEP I WITH INSTRUCTIONS RG110160 | 57207 0 00000 1 54310 A0300 PZE P2JA0-10,1,0 * RG110170 | 57210 -0500 00 0 07165 A0310 CAL PARA+3 TEST FOR HAND CALCULATION RG110180 57211 -0320 00 0 07321 ANA MASK+4 RG110190 | 57212 0100 00 0 57223 TZE A0420 * RG110200 | 57213 -0625 00 0 56760 STL HCSW7 RG110210 | 57214 0074 00 4 56323 TSX HCGET,4 HAND CALC ROUTINE RG110220 | 57215 -0500 00 0 51543 CAL P2AA5 CONVERT P2AA5 TO HTLC RG110230 57216 0771 00 0 00022 ARS 18 * RG110240 | 57217 0402 00 0 61515 SUB E8190 * RG110250 | 57220 0621 00 0 61427 STA HTLC * RG110260 | 57221 0600 00 0 07375 STZ HCSW1 SET HC SW ON RG110270 | 57222 0020 00 0 60127 TRA E1010 * RG110280 57223 -0500 00 0 51543 A0420 CAL P2AA5 CONVERT P2AA5 TO HTLC RG110290 | 57224 0771 00 0 00022 ARS 18 * RG110300 | 1 LISTING OF 12/01/64 PAGE 258 | ALPHA SUBROUTINE | 57225 0402 00 0 61515 SUB E8190 * RG110310 | 57226 0621 00 0 61427 STA HTLC * RG110320 | 57227 -0625 00 0 07375 STL HCSW1 SET HC SW OFF RG110330 | 57230 0020 00 0 57251 TRA A0700 * RG110340 | 57231 -0500 00 0 07166 A0501 CAL PARA+4 DET LENGTH OF FIELD IN WDS RG110350 57232 0734 00 1 00000 PAX ,1 RG110360 | 57233 -0500 60 0 61454 CAL* OPE1 WO PUT 1ST OUTPUT WRD ADD TO INSTRG110370 | 57234 0734 00 4 00000 PAX 0,4 RG110380 | 57235 -0500 00 0 07166 CAL PARA+4 WI ADDRESS OF LITERAL RG110390 | 57236 -0734 00 2 00000 PDX 0,2 RG110400 57237 0634 00 2 61161 A0600 SXA IP05,2 STORE ADDRESS TO CAL INSTR RG110410 | 57240 0634 00 4 61162 SXA IP05+1,4 STORE ADDRESS TO SLW INSTR. RG110420 | 57241 0560 00 0 07320 LDQ MASK+3 STEP I.C. WITH CAL + SLW RG110430 | 57242 0074 00 4 40227 TSX STEPI,4 * RG110440 | 57243 0 00002 1 61161 PZE IP05,1,2 * RG110450 57244 0534 00 4 61162 LXA IP05+1,4 RELOAD IR4 RG110460 | 57245 1 00001 2 57246 TXI *+1,2,1 ADD 1 TO IR2 RG110470 | 57246 1 00001 4 57247 TXI *+1,4,1 ADD 1 TO IR4 RG110480 | 57247 2 00001 1 57237 TIX A0600,1,1 RG110490 | 57250 0020 00 0 57110 TRA A0055 TRA TO REF 21 RG110500 57251 -0500 00 0 07162 A0700 CAL PARA GET OP CODE RG110510 | 57252 -0320 00 0 07332 ANA MASK+13 * RG110520 | 57253 -0340 00 0 61375 LAS C1+1 * RG110530 | 57254 0020 00 0 57257 TRA A0734 RG110540 | 57255 0020 00 0 57263 TRA A0750 EQUAL RG110550 57256 0020 00 0 60031 TRA D0011 RG110560 | 57257 -0340 00 0 52351 A0734 LAS EMIT2 RG110570 | 57260 0020 00 0 60031 TRA D0011 RG110580 | 57261 0020 00 0 57263 TRA A0750 RG110590 | 57262 0020 00 0 60031 TRA D0011 RG110600 57263 -0500 60 0 61454 A0750 CAL* OPE1 1ST WORD OF OUTPUT TO IR2 RG110610 | 57264 0771 00 0 00032 ARS 26 * RG110620 | 57265 0734 00 2 00000 PAX 0,2 * RG110630 | 57266 -0500 00 0 07166 CAL PARA+4 1ST WORD OF INPUT TO IR1 RG110640 | 57267 0771 00 0 00022 ARS 18 * RG110650 57270 0734 00 1 00000 PAX 0,1 RG110660 | 57271 0600 00 0 36540 STZ WDCNT RG110670 | 57272 -0500 00 0 07162 CAL PARA EMIT ROUTINE RG110680 | 57273 -0320 00 0 07321 ANA MASK+4 TEST FOR RECORD RG110690 | 57274 0100 00 0 57424 TZE A1020 YES RG110700 57275 -0500 60 0 61454 A0756 CAL* OPE1 LOAD OUTPUT PARAMETER RG110710 | 57276 0074 00 4 57543 TSX B0010,4 TO MASK ROUTINE RG110720 | 57277 -0 00000 0 00000 MZE RG110730 | 57300 -0500 00 0 61447 CAL MAD1A IS MASK REQUIRED RG110740 | 57301 0100 00 0 57315 TZE A0804 NO RG110750 57302 0621 00 0 61146 STA IP01 YES,PUT ADDRESS IN CAL+ANS RG110760 | 57303 0634 00 2 61147 SXA IP01+1,2 * RG110770 | 57304 0634 00 1 61150 SXA IP02,1 PUT ADDRESS IN CAL +ORS RG110780 | 57305 0634 00 2 61151 SXA IP02+1,2 * RG110790 | 57306 0774 00 4 00004 AXT 4,4 * RG110800 57307 -0500 00 4 61152 CAL IP02+2,4 MOVE INSTRUCTIONS TO TWA RG110810 | 57310 0602 00 4 37002 SLW TWA+4,4 * RG110820 | 57311 2 00001 4 57307 TIX *-2,4,1 * RG110830 | 57312 0500 00 0 61405 CLA C2+2 ADD 4 TO WORD COUNT RG110840 | 57313 0601 00 0 36540 STO WDCNT * RG110850 1 LISTING OF 12/01/64 PAGE 259 | ALPHA SUBROUTINE | | 57314 0020 00 0 57325 TRA A0830 RG110860 | 57315 0634 00 1 61161 A0804 SXA IP05,1 PUT ADDRESS IN CAL SLW RG110870 57316 0634 00 2 61162 SXA IP05+1,2 * RG110880 | 57317 -0500 00 0 61161 CAL IP05 MOVE INSTRUCTIONS TO TWA RG110890 | 57320 0602 00 0 36776 SLW TWA * RG110900 | 57321 -0500 00 0 61162 CAL IP05+1 * RG110910 | 57322 0602 00 0 36777 SLW TWA+1 * RG110920 57323 0500 00 0 61402 CLA C1+6 ADD 2 TO WORD COUNT RG110930 | 57324 0601 00 0 36540 STO WDCNT RG110940 | 57325 0520 00 0 57707 A0830 ZET B1300 TEST FOR ONE WORD ONLY RG110950 | 57326 0020 00 0 57374 TRA A0960 TRA TO 9A RG110960 | 57327 0534 00 4 61452 LXA MAD3,4 ANY INTERNAL WORDS RG110970 57330 -3 00000 4 57350 TXL A0880,4,0 NO RG110980 | 57331 0634 00 4 57346 A0840 SXA A0868,4 COUNT TO STORAGE RG110990 | 57332 1 00001 1 57333 TXI *+1,1,1 MOVE INSTRUCTINS TO TWA RG111000 | 57333 1 00001 2 57334 TXI *+1,2,1 * RG111010 | 57334 0634 00 1 61161 SXA IP05,1 * RG111020 57335 0634 00 2 61162 SXA IP05+1,2 * RG111030 | 57336 0500 00 0 36540 CLA WDCNT ADD 2 TO WORD COUNT RG111040 | 57337 0400 00 0 61402 ADD C1+6 * RG111050 | 57340 0601 00 0 36540 STO WDCNT * RG111060 | 57341 0737 00 4 00000 PAC 0,4 * RG111070 57342 0560 00 0 61161 LDQ IP05 * RG111080 | 57343 -0600 00 4 36774 STQ TWA-2,4 * RG111090 | 57344 0560 00 0 61162 LDQ IP05+1 * RG111100 | 57345 -0600 00 4 36775 STQ TWA-1,4 * RG111110 | 57346 0774 00 4 00000 A0868 AXT 0,4 * RG111120 57347 2 00001 4 57331 TIX A0840,4,1 * RG111130 | 57350 -0500 00 0 61451 A0880 CAL MAD2A RG111140 | 57351 0100 00 0 57374 TZE A0960 TRA TO 9A RG111150 | 57352 1 00001 1 57353 TXI *+1,1,1 ADD 1 TO IRI + IRE RG111160 | 57353 1 00001 2 57354 TXI *+1,2,1 * RG111170 57354 0621 00 0 61146 STA IP01 RG111180 | 57355 0634 00 2 61147 SXA IP01+1,2 * RG111190 | 57356 0634 00 1 61150 SXA IP02,1 PUT ADDRESS IN CAL + ORS RG111200 | 57357 0634 00 2 61151 SXA IP02+1,2 * RG111210 | 57360 0500 00 0 36540 CLA WDCNT ADD 4 TO COUNT RG111220 57361 0400 00 0 61405 ADD C2+2 * RG111230 | 57362 0601 00 0 36540 STO WDCNT * RG111240 | 57363 0737 00 4 00000 PAC 0,4 RG111250 | 57364 -0500 00 0 61146 CAL IP01 MOVE INSTRUCTIONS TO TWA RG111260 | 57365 0602 00 4 36772 SLW TWA-4,4 * RG111270 57366 -0500 00 0 61147 CAL IP01+1 * RG111280 | 57367 0602 00 4 36773 SLW TWA-3,4 * RG111290 | 57370 -0500 00 0 61150 CAL IP02 * RG111300 | 57371 0602 00 4 36774 SLW TWA-2,4 * RG111310 | 57372 -0500 00 0 61151 CAL IP02+1 * RG111320 57373 0602 00 4 36775 SLW TWA-1,4 * RG111330 | 57374 -0500 00 0 07162 A0960 CAL PARA TEST FOR T LINE RG111340 | 57375 -0320 00 0 07315 ANA MASK * RG111350 | 57376 -0340 00 0 61532 LAS E8290 * RG111360 | 57377 0761 00 0 00000 NOP * RG111370 57400 0020 00 0 57410 TRA A0990 YES RG111380 | 57401 0534 00 2 36540 LXA WDCNT,2 STEP I WITH INSTRUCTIONS RG111390 | 57402 3 00014 2 57532 TXH A3200,2,12 RG111400 | 1 LISTING OF 12/01/64 PAGE 260 | ALPHA SUBROUTINE | 57403 -0634 00 2 57406 SXD *+3,2 * FOR D LINE EMIT RG111410 | 57404 0560 00 0 07320 LDQ MASK+3 * RG111420 | 57405 0074 00 4 40227 TSX STEPI,4 * RG111430 | 57406 0 00000 1 36776 PZE TWA,1,0 * RG111440 57407 0020 00 0 57104 TRA A0050 TRA TO REF 9 RG111450 | 57410 0074 00 4 60052 A0990 TSX D9010,4 MOVE T LINE EMIT INSTR. RG111460 | 57411 0074 00 4 60063 TSX D9150,4 TO WORK AREA RG111470 | 57412 0500 00 0 36540 CLA WDCNT * RG111480 | 57413 0400 00 0 61371 ADD ADTWA * RG111490 57414 0621 00 0 57420 STA *+4 * RG111500 | 57415 0534 00 1 36540 LXA WDCNT,1 * RG111510 | 57416 3 00014 1 57521 TXH A3010,1,12 * RG111520 | 57417 0074 00 4 60073 A1000 TSX D9230,4 * ADD 1 TO HTLC RG111530 | 57420 -0500 00 1 00000 CAL 0,1 * RG111540 57421 0602 60 0 61427 SLW* HTLC * RG111550 | 57422 2 00001 1 57417 TIX A1000,1,1 * RG111560 | 57423 0020 00 0 57104 TRA A0050 RG111570 | 57424 -0500 00 0 07166 A1020 CAL PARA+4 RG111580 | 57425 0771 00 0 00006 ARS 6 RG111590 57426 -0320 00 0 07322 ANA MASK+5 RG111600 | 57427 0734 00 4 00000 PAX 0,4 RG111610 | 57430 0634 00 4 57445 A1030 SXA A1070,4 RG111620 | 57431 0634 00 1 61150 SXA IP02,1 SET UP CAL + ORS RG111630 | 57432 0634 00 2 61151 SXA IP02+1,2 * RG111640 57433 -0500 00 0 36540 CAL WDCNT ADD 2 TO WDCNT RG111650 | 57434 0400 00 0 61402 ADD C1+6 * RG111660 | 57435 0601 00 0 36540 STO WDCNT * RG111670 | 57436 0737 00 4 00000 PAC 0,4 * RG111680 | 57437 0560 00 0 61150 LDQ IP02 * RG111690 57440 -0600 00 4 36774 STQ TWA-2,4 * RG111700 | 57441 0560 00 0 61151 LDQ IP02+1 * RG111710 | 57442 -0600 00 4 36775 STQ TWA-1,4 * RG111720 | 57443 1 00001 2 57444 TXI *+1,2,1 * RG111730 | 57444 1 00001 1 57445 TXI *+1,1,1 * RG111740 57445 0774 00 4 00000 A1070 AXT 0,4 * RG111750 | 57446 2 00001 4 57430 TIX A1030,4,1 * RG111760 | 57447 0020 00 0 57374 TRA A0960 RG111770 | 57450 -0500 00 0 51543 A2011 CAL P2AA5 CONVERT P2AA5 TO HTLC RG111780 | 57451 0771 00 0 00022 ARS 18 * RG111790 57452 0402 00 0 61515 SUB E8190 * RG111800 | 57453 0621 00 0 61427 STA HTLC * RG111810 | 57454 0074 00 4 60052 TSX D9010,4 BUILD ID IN H+T AREA RG111820 | 57455 0074 00 4 60063 TSX D9150,4 BUILD KEY RG111830 | 57456 -0500 00 0 07333 CAL MASK+14 RG111840 57457 -0602 60 0 61430 ORS* HTLID RG111850 | 57460 -0500 00 0 07166 CAL PARA+4 SET NO. OF WORDS IN IR1 RG111860 | 57461 0734 00 1 00000 PAX 0,1 * RG111870 | 57462 -0500 60 0 61454 CAL* OPE1 SET IR 4 RG111880 | 57463 0734 00 4 00000 PAX 0,4 * RG111890 57464 -0500 00 0 07166 CAL PARA+4 SET IR 2 RG111900 | 57465 -0734 00 2 00000 PDX 0,2 RG111910 | 57466 3 00004 1 57504 TXH A2250,1,4 TEST LITERAL SIZE RG111920 | 57467 0634 00 2 61161 A2130 SXA IP05,2 LESS THAN 5 WORDS RG111930 | 57470 0634 00 4 61162 SXA IP05+1,4 * RG111940 57471 0074 00 4 60073 TSX D9230,4 STEP HTLC BY ONE RG111950 | 1 LISTING OF 12/01/64 PAGE 261 | ALPHA SUBROUTINE | | 57472 -0500 00 0 61161 CAL IP05 MOVE CAL TO HTWA RG111960 57473 0602 60 0 61427 SLW* HTLC * RG111970 | 57474 0074 00 4 60073 TSX D9230,4 MOVE SLW 0,2 TO HTWA RG111980 | 57475 -0500 00 0 61162 CAL IP05+1 * RG111990 | 57476 0602 60 0 61427 SLW* HTLC * RG112000 | 57477 0534 00 4 61162 LXA IP05+1,4 RG112010 57500 1 00001 2 57501 TXI *+1,2,1 * RG112020 | 57501 1 00001 4 57502 TXI *+1,4,1 * RG112030 | 57502 2 00001 1 57467 TIX A2130,1,1 * RG112040 | 57503 0020 00 0 57104 TRA A0050 TRA TO REF 9 RG112050 | 57504 0634 00 1 61335 A2250 SXA IP31,1 BUILD MOVE INSTRUCTIONS RG112060 57505 0634 00 4 61340 SXA IP31+3,4 * RG112070 | 57506 -0634 00 1 57507 SXD *+1,1 * RG112080 | 57507 1 00000 2 57510 TXI *+1,2,0 * RG112090 | 57510 0634 00 2 61337 SXA IP31+2,2 * RG112100 | 57511 0774 00 2 00007 AXT 7,2 * RG112110 57512 0074 00 4 60073 A2310 TSX D9230,4 * RG112120 | 57513 -0500 00 2 61344 CAL IP31+7,2 MOVE TO T+H AREA RG112130 | 57514 0602 60 0 61427 SLW* HTLC * RG112140 | 57515 2 00001 2 57512 TIX A2310,2,1 * RG112150 | 57516 -0500 00 0 61435 CAL KEY31 BUILD KEY RG112160 57517 0602 60 0 61432 SLW* HTLK RG112170 | 57520 0020 00 0 57104 TRA A0050 TRA TO REF 9 RG112180 | 57521 0774 00 2 00014 A3010 AXT 12,2 RG112190 | 57522 0074 00 4 60073 TSX D9230,4 RG112200 | 57523 -0500 00 2 37012 CAL TWA+12,2 RG112210 57524 0602 60 0 61427 SLW* HTLC RG112220 | 57525 2 00001 2 57522 TIX *-3,2,1 RG112230 | 57526 1 77764 1 57527 TXI *+1,1,-12 RG112240 | 57527 0074 00 4 60052 TSX D9010,4 RG112250 | 57530 0074 00 4 60063 TSX D9150,4 RG112260 57531 0020 00 0 57417 TRA A1000 RG112270 | 57532 0560 00 0 07320 A3200 LDQ MASK+3 RG112280 | 57533 0074 00 4 40227 TSX STEPI,4 RG112290 | 57534 0 00014 1 36776 PZE TWA,1,12 RG112300 | 57535 1 77764 2 57536 TXI *+1,2,-12 RG112310 57536 -0634 00 2 57541 SXD *+3,2 RG112320 | 57537 0560 00 0 07320 LDQ MASK+3 RG112330 | 57540 0074 00 4 40227 TSX STEPI,4 RG112340 | 57541 0 00000 1 37012 PZE TWA+12,1,0 RG112350 | 57542 0020 00 0 57104 TRA A0050 RG112360 57543 0634 00 4 57617 B0010 SXA B0500,4 SAVE IR 1 + 4 FOR RETURN RG112370 | 57544 0634 00 1 57620 SXA B0505,1 * RG112380 | 57545 0560 00 4 00001 LDQ 1,4 RG112390 | 57546 -0600 00 0 07371 STQ TEMP2 POT INPUT ONLY INDICATOR TO STOE RG112400 | 57547 0600 00 0 61446 STZ MAD1 CLEAR MASK ADDRESS RG112410 57550 0600 00 0 61450 STZ MAD2 * RG112420 | 57551 0600 00 0 61447 STZ MAD1A * RG112430 | 57552 0600 00 0 61451 STZ MAD2A * RG112440 | 57553 0600 00 0 57707 STZ B1300 RG112450 | 57554 -0765 00 0 00020 LGR 16 PUT BO TO STORAGE RG112460 57555 -0320 00 0 07322 ANA MASK+5 RG112470 | 57556 0601 00 0 61373 STO BIT RG112480 | 57557 -0754 00 0 00000 PXD 0,0, RG112490 | 57560 -0763 00 0 00012 LGL 10 PUT LO TO STORAGE RG112500 | 1 LISTING OF 12/01/64 PAGE 262 ALPHA SUBROUTINE | | 57561 0601 00 0 61440 STO LEN RG112510 | 57562 0400 00 0 61373 ADD BIT RG112520 | 57563 -0340 00 0 61374 LAS C1 COMPARE BO + LO TO 36 RG112530 57564 0020 00 0 57631 TRA B0610 HIGH RG112540 | 57565 0020 00 0 57622 TRA B0520 EQUAL RG112550 | 57566 0402 00 0 61374 SUB C1 LOW- SUB 36 RG112560 | 57567 0621 00 0 57571 STA B0200 RG112570 | 57570 -0500 00 0 07323 CAL MASK+6 RG112580 57571 0767 00 0 00000 B0200 ALS 0 RG112590 | 57572 0602 00 0 61503 SLW T1MSK * RG112600 | 57573 -0500 00 0 61373 CAL BIT RG112610 | 57574 0100 00 0 57601 TZE B0300 RG112620 | 57575 0621 00 0 57577 B0260 STA B0280 BUILD LEFT HALF IF NEEDED RG112630 57576 -0500 00 0 07323 CAL MASK+6 RG112640 | 57577 -0765 00 0 00000 B0280 LGR 0 RG112650 | 57600 0320 00 0 61503 ANS T1MSK RG112660 | 57601 0500 00 0 07371 B0300 CLA TEMP2 IS PICK UP MASK REQUIRED RG112670 | 57602 -0120 00 0 57610 TMI *+6 * RG112680 57603 0074 00 4 35441 TSX STEPC,4 BUILD STEP CC ROUTINE RG112690 | 57604 0 00001 1 61503 PZE T1MSK,1,1 RG112700 | 57605 0601 00 0 61446 STO MAD1 RG112710 | 57606 -0500 00 0 07371 CAL TEMP2 IS THERE IMPUT ONLY RG112720 | 57607 0100 00 0 57616 TZE B0480 YES RG112730 57610 -0500 00 0 61503 CAL T1MSK BUILD STORAGE MASK RG112740 | 57611 0760 00 0 00006 COM RG112750 | 57612 0602 00 0 61503 SLW T1MSK * RG112760 | 57613 0074 00 4 35441 TSX STEPC,4 BUILD STORAGE PUT MASK RG112770 | 57614 0 00001 1 61503 PZE T1MSK,1,1 RG112780 57615 0601 00 0 61447 STO MAD1A RG112790 | 57616 -0625 00 0 57707 B0480 STL B1300 SET ONE WORD INDICATOR ON RG112800 | 57617 0774 00 4 00000 B0500 AXT 0,4 RESTORE IR 1 +4 RG112810 | 57620 0774 00 1 00000 B0505 AXT 0,1 * RG112820 | 57621 0020 00 4 00002 TRA 2,4 OUT RG112830 57622 -0500 00 0 61373 B0520 CAL BIT IS BO ZERO RG112840 | 57623 0100 00 0 57616 TZE B0480 RG112850 | 57624 0621 00 0 57626 STA *+2 RG112860 | 57625 -0500 00 0 07323 CAL MASK+6 RG112870 | 57626 -0765 00 0 00000 LGR 0 RG112880 57627 0602 00 0 61503 SLW T1MSK RG112890 | 57630 0020 00 0 57601 TRA B0300 RG112900 | 57631 -0500 00 0 61373 B0610 CAL BIT IS LEADING MASK REQUIRED RG112910 | 57632 0100 00 0 57654 TZE B0850 NO RG112920 | 57633 0621 00 0 57635 STA B0660 RG112930 57634 -0500 00 0 07323 CAL MASK+6 BUILD LEFTHAND ACCUM MASK RG112940 | 57635 -0765 00 0 00000 B0660 LGR 0 RG112950 | 57636 0602 00 0 61503 SLW T1MSK RG112960 | 57637 0500 00 0 07371 B0700 CLA TEMP2 IS PICK UP MASK REQUIRED RG112970 | 57640 -0120 00 0 57646 TMI *+6 * RG112980 57641 0074 00 4 35441 TSX STEPC,4 STEP CC WITH 1ST MASK RG112990 | 57642 0 00001 1 61503 PZE T1MSK,1,1 RG113000 | 57643 0601 00 0 61446 STO MAD1 RG113010 | 57644 -0500 00 0 07371 CAL TEMP2 IS THERE INPUT ONLY RG113020 | 57645 0100 00 0 57654 TZE B0850 YES RG113030 57646 -0500 00 0 61503 CAL T1MSK BUILD STORAGE MASK RG113040 | 57647 0760 00 0 00006 COM RG113050 | 1 LISTING OF 12/01/64 PAGE 263 | ALPHA SUBROUTINE | 57650 0602 00 0 61503 SLW T1MSK RG113060 | 57651 0074 00 4 35441 TSX STEPC,4 RG113070 | 57652 0 00001 1 61503 PZE T1MSK,1,1 RG113080 | 57653 0601 00 0 61447 STO MAD1A RG113090 | 57654 -0500 00 0 61373 B0850 CAL BIT CALCULATE = OF WORDS + LAST MASK RG113100 57655 0400 00 0 61440 ADD LEN BO + LO RG113110 | 57656 0402 00 0 61374 SUB C1 SUB 36 RG113120 | 57657 -0130 00 0 00000 XCL SETUP DIVIDE RG113130 | 57660 -0754 00 0 00000 PXD 0,0, RG113140 | 57661 0220 00 0 61374 DVH C1 RG113150 57662 -0600 00 0 61452 STQ MAD3 NO OF FULL WORDS RG113160 | 57663 0100 00 0 57617 TZE B0500 RG113170 | 57664 0402 00 0 61374 SUB C1 SUB 36 RG113180 | 57665 0621 00 0 57667 STA B0980 NO OF SHIFTS RG113190 | 57666 -0500 00 0 07323 CAL MASK+6 RG113200 57667 0767 00 0 00000 B0980 ALS 0 RG113210 | 57670 0602 00 0 61503 SLW T1MSK RG113220 | 57671 0500 00 0 07371 CLA TEMP2 RG113230 | 57672 -0120 00 0 57700 TMI *+6 RG113240 | 57673 0074 00 4 35441 TSX STEPC,4 RG113250 57674 0 00001 1 61503 PZE T1MSK,1,1 RG113260 | 57675 0601 00 0 61450 B1070 STO MAD2 RG113270 | 57676 -0500 00 0 07371 CAL TEMP2 IS IT INPUT ONLY RG113280 | 57677 0100 00 0 57617 TZE B0500 NO - TO OUT RG113290 | 57700 -0500 00 0 61503 CAL T1MSK BUILD COMPLEMENT RG113300 57701 0760 00 0 00006 COM RG113310 | 57702 0602 00 0 61503 SLW T1MSK RG113320 | 57703 0074 00 4 35441 TSX STEPC,4 STEP CC WITH STORAGE MASK RG113330 | 57704 0 00001 1 61503 PZE T1MSK,1,1 RG113340 | 57705 0601 00 0 61451 STO MAD2A RG113350 57706 0020 00 0 57617 TRA B0500 RG113360 | 57707 0 00000 0 00000 B1300 PZE 0 RG113370 | 57710 0634 00 4 57757 C1010 SXA C1160,4 SAVE IR4 RG113380 | 57711 0634 00 2 57760 SXA C1170,2 SAVE IR2 RG113390 | 57712 0520 00 0 52552 ZET SWAA6 IS HAND CAL FOR THIS PACKET RG113400 57713 0020 00 0 57726 TRA C1100 RG113410 | 57714 0771 00 0 00006 ARS 6 RG113420 | 57715 -0501 00 0 07324 ORA MASK+7 RG113430 | 57716 -0534 00 4 23645 LXD P2AA6,4 GET CNT MONITOR RG113440 | 57717 -0634 00 4 57721 SXD C1050,4 STORE CNT COUNT TO LIMIT RG113450 57720 0774 00 2 00702 AXT P2JB9,2 LENGTH OF CNT TO IRC RG113460 | 57721 -3 00004 2 57726 C1050 TXL C1100,2,4 TEST LIMIT OF CNT RG113470 | 57722 -0340 00 2 23645 LAS P2AA6,2 COMPARE TO TABLE ENTRY RG113480 | 57723 0020 00 0 57725 TRA *+2 NOT EQ RG113490 | 57724 0020 00 0 57730 TRA *+4 EQ RG113500 57725 1 77775 2 57721 TXI C1050,2,-3 NOT EQ-CHECK MORE RG113510 | 57726 0074 00 4 57762 C1100 TSX C5010,4 NOT IN CNT-SET UP CTR RG113520 | 57727 0020 00 0 57757 TRA C1160 OUT RG113530 | 57730 0602 00 0 07370 SLW TEMP1 RG113540 | 57731 -0500 00 2 23646 CAL P2AA6+1,2 RG113550 57732 -0320 00 0 07325 ANA MASK+8 777777000000 RG113560 | 57733 0602 00 0 61506 SLW TEMPS RG113570 | 57734 -0500 00 0 07164 CAL P2AA3+2 RG113580 | 57735 -0320 00 0 07332 ANA MASK+13 RG113590 | 57736 0100 00 0 57742 TZE *+4 RG113600 1 LISTING OF 12/01/64 PAGE 264 | ALPHA SUBROUTINE | | 57737 0500 00 0 61453 CLA OPE RG113610 | 57740 0400 00 0 61401 ADD C1+5 RG113620 57741 0020 00 0 57743 TRA *+2 RG113630 | 57742 0500 00 0 61453 CLA OPE RG113640 | 57743 0601 00 0 61456 STO PSOPE RG113650 | 57744 -0500 60 0 61456 CAL* PSOPE RG113660 | 57745 -0320 00 0 07325 ANA MASK+8 RG113670 57746 -0340 00 0 61506 LAS TEMPS RG113680 | 57747 0020 00 0 57751 TRA *+2 RG113690 | 57750 0020 00 0 57753 TRA *+3 RG113700 | 57751 -0500 00 0 07370 CAL TEMP1 RG113710 | 57752 1 77775 2 57721 TXI C1050,2,-3 RG113720 57753 0500 00 2 23647 CLA P2AA6+2,2 RG113730 | 57754 -0100 00 0 57757 TNZ C1160 RG113740 | 57755 0074 00 4 57762 TSX C5010,4 RG113750 | 57756 0621 00 2 23647 STA P2AA6+2,2 RG113760 | 57757 0774 00 4 00000 C1160 AXT 0,4 RESTORE IRC RG113770 57760 0774 00 2 00000 C1170 AXT 0,2 RESTORE IR2 RG113780 | 57761 0020 00 4 00001 TRA 1,4 TRA OUT RG113790 | 57762 0634 00 1 60023 C5010 SXA C5320,1 SAVE IR A RG113800 | 57763 0634 00 4 60024 SXA C5330,4 SAVE IRC RG113810 | 57764 -0500 60 0 61453 CAL* OPE GET FIRST OUTPUT ENTRY RG113820 57765 0100 00 0 57773 TZE *+6 RG113830 | 57766 -0320 00 0 07324 ANA MASK+7 * RG113840 | 57767 -0340 00 0 61441 LAS LINED D LINE RG113850 | 57770 0020 00 0 60026 TRA C5360 NOT D RG113860 | 57771 0020 00 0 57773 TRA *+2 D LINE RG113870 57772 0020 00 0 60026 TRA C5360 NOT D LINE RG113880 | 57773 -0500 00 0 07164 CAL P2AA3+2 IS FIELD ACC P ALPHA RG113890 | 57774 -0320 00 0 07332 ANA MASK+13 X RG113900 | 57775 -0340 00 0 07333 LAS MASK+14 X RG113910 | 57776 0020 00 0 60000 TRA *+2 HI RG113920 57777 0020 00 0 60026 TRA C5360 EQ TO - ( NON ALPHA RG113930 | 60000 0602 00 0 61506 SLW TEMPS STORE ACC LEVEL RG113940 | 60001 0774 00 1 00063 AXT 51,1 RG113950 | 60002 -0500 00 1 52252 C5150 CAL ACTBL+1,1 X RG113960 | 60003 0100 00 0 60014 TZE C5250 NOT IN TABLE RG113970 60004 -0320 00 0 07332 ANA MASK+13 IN TABLE RG113980 | 60005 -0340 00 0 61506 LAS TEMPS CHECK FOR TABLE ENTRY RG113990 | 60006 0020 00 0 60010 TRA *+2 X RG114000 | 60007 0020 00 0 60012 TRA *+3 X RG114010 | 60010 2 00001 1 60002 TIX C5150,1,1 X RG114020 60011 0000 00 0 60011 HTR * ALPHA TABLE FULL RG114030 | 60012 -0500 00 1 52252 CAL ACTBL+1,1 GET ADDRESS OF CTR RG114040 | 60013 0020 00 0 60022 TRA C5310 X RG114050 | 60014 -0500 00 0 61506 C5250 CAL TEMPS GET ACC LEVEL RG114060 | 60015 0621 00 1 52252 STA ACTBL+1,1 PUT IN ALPHA TABLE RG114070 60016 0074 00 4 35441 TSX STEPC,4 STEP CC WITH CTR RG114080 | 60017 0 00001 0 07320 PZE MASK+3,0,1 RG114090 | 60020 0767 00 0 00022 ALS 18 SHIFT RG114100 | 60021 -0602 00 1 52252 ORS ACTBL+1,1 ADDRESS OF CTR TO TABLE RG114110 | 60022 0771 00 0 00022 C5310 ARS 18 SHIFT RG114120 60023 0774 00 1 00000 C5320 AXT 0,1 RESTORE IRA RG114130 | 60024 0774 00 4 00000 C5330 AXT 0,4 RESTORE IRC RG114140 | 60025 0020 00 4 00001 TRA 1,4 OUT RG114150 | 1 LISTING OF 12/01/64 PAGE 265 | ALPHA SUBROUTINE | 60026 0074 00 4 35441 C5360 TSX STEPC,4 RG114160 | 60027 0 00001 0 07320 PZE MASK+3,0,1 * RG114170 | 60030 0020 00 0 60023 TRA C5320 RETURN RG114180 | 60031 -0520 00 0 61507 D0011 NZT THSW TEST T + H SWITCH RG114190 60032 0020 00 0 60127 TRA E1010 RG114200 | 60033 -0500 00 0 07162 D1010 CAL PARA TEST FOR COUNT PARAMETER RG114210 | 60034 -0320 00 0 07332 ANA MASK+13 * RG114220 | 60035 -0340 00 0 61406 LAS C2+3 *IS OP CODE 48 RG114230 | 60036 0020 00 0 60127 TRA E1010 *NO RG114240 60037 0020 00 0 60041 TRA *+2 *YES RG114250 | 60040 0020 00 0 60127 TRA E1010 *NO RG114260 | 60041 -0500 00 0 07164 CAL PARA+2 *IS 48 CARD A COUNT RG114270 | 60042 -0320 00 0 07337 ANA MASK+18 * RG114280 | 60043 0100 00 0 60127 TZE E1010 *NO RG114290 60044 0600 00 0 61421 STZ CNTSW *SET COUNT SW ON RG114300 | 60045 -0500 00 0 61462 D2070 CAL PLUS1 PUT ADDRESS OF A ONE TO CLA RG114310 | 60046 0621 00 0 61217 STA IP15 RG114320 | 60047 -0774 00 4 60177 AXC E1560-1,4 RG114330 | 60050 -0500 00 0 07167 CAL PARA+5 RG114340 60051 0020 00 0 57710 TRA C1010 RG114350 | * CLOSE OUT CURRENT MASKS AND BUILD NEW ONES RG114360 | 60052 0500 00 0 61427 D9010 CLA HTLC BUILD ID FOR H+T AREA RG114370 | 60053 0400 00 0 61376 ADD C1+2 MODIFY LAST ID CTR RG114380 | 60054 0601 00 0 61427 STO HTLC RG114390 60055 0601 00 0 61430 STO HTLID MODIFY LAST ID CTR RG114400 | 60056 -0500 60 0 61453 CAL* OPE RG114410 | 60057 -0320 00 0 07325 ANA MASK+8 RG114420 | 60060 0400 00 0 61402 ADD C1+6 ADD 2 TO WORD COUNT RG114430 | 60061 0602 60 0 61427 SLW* HTLC RG114440 60062 0020 00 4 00001 TRA 1,4 RG114450 | 60063 0500 00 0 61427 D9150 CLA HTLC BUILD KEY FOR H+T AREA RG114460 | 60064 0400 00 0 61376 ADD C1+2 UPDATE H + T LOCATION CNTR ADD 1 RG114470 | 60065 0601 00 0 61427 STO HTLC H+T LOC CTR RG114480 | 60066 0601 00 0 61432 STO HTLK UPDATE LAST KEY IC RG114490 60067 0600 60 0 61432 STZ* HTLK PUT ZEROS IN KEY WORD RG114500 | 60070 0020 00 4 00001 TRA 1,4 RG114510 | 60071 0774 00 2 00005 AXT 5,2 PRINT TID FULL RG114520 | 60072 0074 00 4 37646 TSX P2M01,4 * RG114530 | 60073 0500 00 0 61427 D9230 CLA HTLC ADD 1 TO H+T LOCATION CTR RG114540 60074 0400 00 0 61376 ADD C1+2 + ID INSTR COUNT RG114550 | 60075 0601 00 0 61427 STO HTLC RG114560 | 60076 -0340 00 0 61431 LAS HTLIM RG114570 | 60077 0761 00 0 00000 NOP 0 RG114580 | 60100 0020 00 0 60071 TRA D9230-2 RG114590 60101 -0500 60 0 61430 CAL* HTLID PICK UP H+6 ID LOCATION CTR RG114600 | 60102 0400 00 0 61376 ADD C1+2 ADD 1 TO ID COUNTER RG114610 | 60103 0602 60 0 61430 D9350 SLW* HTLID * RG114620 | 60104 -0320 00 0 07335 ANA MASK+16 COMPARE TO 14 RG114630 | 60105 0402 00 0 52312 SUB P2AKD * RG114640 60106 -0120 00 4 00001 TMI 1,4 * RG114650 | 60107 0074 00 4 37677 TSX P2M06,4 * RG114660 | 60110 +000000000215 OCT 215 RG114670 | 60111 0074 00 4 04000 TSX LOST,4 RG114680 | 60112 -0500 60 0 61430 D9360 CAL* HTLID PLACE STEP I CODE IN KEY RG114690 60113 -0320 00 0 07335 ANA MASK+16 CALC ADDRESS 3/N-2/ARS RG114700 | 1 LISTING OF 12/01/64 PAGE 266 | ALPHA SUBROUTINE | | 60114 0402 00 0 61402 SUB C1+6 RG114710 60115 -0600 00 0 61531 STQ E8280 RG114720 | 60116 0131 00 0 00000 XCA * RG114730 | 60117 0200 00 0 61401 MPY C1+5 MULTIPLY BY 3 RG114740 | 60120 0131 00 0 00000 XCA * RG114750 | 60121 0621 00 0 60123 STA *+2 * RG114760 60122 -0500 00 4 00001 CAL 1,4 ADDRESS OF STEP I CODE RG114770 | 60123 0771 00 0 00000 ARS 0 * RG114780 | 60124 -0602 60 0 61432 ORS* HTLK * PLACE IN KEY RG114790 | 60125 0560 00 0 61531 LDQ E8280 RG114800 | 60126 0020 00 4 00002 TRA 2,4 RETURN RG114810 60127 -0500 60 0 61453 E1010 CAL* OPE TEST FOR H LINE RG114820 | 60130 -0320 00 0 07324 ANA MASK+7 * RG114830 | 60131 -0340 00 0 61442 LAS LINEH * RG114840 | 60132 0020 00 0 60134 TRA *+2 * RG114850 | 60133 0020 00 0 60213 TRA E2010 *EQUAL RG114860 60134 -0340 00 0 61443 LAS LINET TEST FOR T LINE RG114870 | 60135 0020 00 0 60137 TRA *+2 * RG114880 | 60136 0020 00 0 60300 TRA E2400 * EQUAL RG114890 | 60137 -0500 00 0 07375 E1140 CAL HCSW1 IS THIS A H CAL PARAMETER RG114900 | 60140 -0100 00 0 60147 TNZ E1150 *NO TER RG114910 60141 -0500 00 0 07164 CAL PARA+2 TEST FOR ACCUMULATION RG114920 | 60142 -0320 00 0 07332 ANA MASK+13 * RG114930 | 60143 -0100 00 0 60176 TNZ E1270 RG114940 | 60144 -0500 00 0 07327 CAL MASK+10 RG114950 | 60145 -0602 00 0 07166 ORS PARA+4 RG114960 60146 0020 00 0 60647 TRA E4010 RG114970 | 60147 0074 00 4 36325 E1150 TSX P2GET,4 BUILD TAKE INSTRUCTIONS RG114980 | 60150 0 00000 0 00000 PZE RG114990 | 60151 0534 00 4 36540 LXA WDCNT,4 STEP IC WITH INSTRUCTIONS IN W/A RG115000 | 60152 -0634 00 4 60154 SXD *+2,4 RG115010 60153 0074 00 4 40227 TSX STEPI,4 * RG115020 | 60154 0 00000 1 36776 PZE TWA,1,0 RG115030 | 60155 -0500 00 0 07164 CAL PARA+2 TEST FOR ACCUMULATION RG115040 | 60156 -0320 00 0 07332 ANA MASK+13 * RG115050 | 60157 0100 00 0 60647 TZE E4010 * NO, TRA TO REF 5 RG115060 60160 0441 00 0 07166 LDI PARA+4 IS INPUT BINARY RG115070 | 60161 0056 00 000004 RNT 4 * NO RG115080 | 60162 0020 00 0 60176 TRA E1270 YES RG115090 | 60163 0500 00 0 61374 CLA C1 COMPARE LEN TO 36 RG115100 | 60164 0402 00 0 36536 SUB P2LI RG115110 60165 -0120 00 0 60170 TMI *+3 * RG115120 | 60166 0600 00 0 61215 STZ IP14+1 SET FOR 1 WORD RG115130 | 60167 0020 00 0 60171 TRA *+2 * RG115140 | 60170 -0625 00 0 61215 STL IP14+1 SET FOR 2 WORDS RG115150 | 60171 0560 00 0 07330 LDQ MASK+11 BUILD CONVERT BCD - BIN LINKAGE RG115160 60172 0074 00 4 40227 TSX STEPI,4 STEP 1C WITH LINKAGE RG115170 | 60173 0 00002 1 61214 PZE IP14,1,2 * RG115180 | 60174 0500 00 0 61374 CLA C1 RG115190 | 60175 0601 00 0 61423 STO CONVT RG115200 | 60176 -0500 00 0 07167 E1270 CAL PARA+5 RG115210 60177 0074 00 4 57710 TSX C1010,4 RG115220 | 60200 0621 00 0 61220 E1560 STA IP15+1 STORE ADDRESS OF COUNTER TO INSTRRG115230 | 60201 0621 00 0 61221 STA IP15+2 * RG115240 | 60202 0560 00 0 07320 LDQ MASK+3 STEPI WITH INSTRUCTIONS RG115250 | 1 LISTING OF 12/01/64 PAGE 267 ALPHA SUBROUTINE | | 60203 0074 00 4 40227 TSX STEPI,4 * RG115260 | 60204 0 00003 1 61217 PZE IP15,1,3 * RG115270 | 60205 0520 00 0 61421 ZET CNTSW IS THIS A COUNT CARD RG115280 60206 0020 00 0 60647 TRA E4010 *NO RG115290 | 60207 -0500 00 0 61174 CAL IP10 * YES, RESTORE CAL INSTRUCTION RG115300 | 60210 0621 00 0 61217 STA IP15 TO BINARY BUFFER ADDRESS RG115310 | 60211 0621 00 0 61421 STA CNTSW SET CNTSW TO NO RG115320 | 60212 0020 00 0 61057 TRA E5010 TRA TO REF 6 RG115330 60213 -0500 00 0 07375 E2010 CAL HCSW1 IS THIS A HAND CAL PARAMETER RG115340 | 60214 0100 00 0 60346 TZE E2860+2 * YES RG115350 | 60215 0074 00 4 60052 TSX D9010,4 IDENTIFY AS HXX IN H + T AREA RG115360 | 60216 0074 00 4 60063 TSX D9150,4 SET UP AREA FOR KEY RG115370 | 60217 -0500 00 0 07163 CAL PARA+1 TEST FOR PAGE= PARAMETER RG115380 60220 -0340 00 0 07323 LAS MASK+6 X RG115390 | 60221 0020 00 0 60223 TRA E2110 X RG115400 | 60222 0020 00 0 60243 TRA E2220 *EQUAL, PAGE= PARAMETER RG115410 | 60223 0074 00 4 36325 E2110 TSX P2GET,4 TRA TO GET SUBROUTINE RG115420 | 60224 0 00000 0 00000 PZE * RG115430 60225 -0600 60 0 61432 STQ* HTLK UNLOAD KEY TO H+T AREA RG115440 | 60226 -0500 00 0 07163 CAL PARA+1 RG115450 | 60227 -0320 00 0 07315 ANA MASK RG115460 | 60230 0771 00 0 00022 ARS 18 RG115470 | 60231 -0602 60 0 61430 ORS* HTLID RG115480 60232 0500 00 0 36540 E2140 CLA WDCNT RG115490 | 60233 0400 00 0 61371 ADD ADTWA RG115500 | 60234 0621 00 0 60237 STA E2180 RG115510 | 60235 0534 00 1 36540 LXA WDCNT,1 LOAD COUNT TO 1R1 RG115520 | 60236 0074 00 4 60073 TSX D9230,4 ADD 1 TO H+T LOCATION CTR RG115530 60237 -0500 00 1 00000 E2180 CAL 0,1 MOVE INSTR TO H+T WORK AREA RG115540 | 60240 0602 60 0 61427 SLW* HTLC * RG115550 | 60241 2 00001 1 60236 TIX E2180-1,1,1 * LOOP RG115560 | 60242 0020 00 0 60275 TRA E2390 RG115570 | 60243 -0500 00 0 07167 E2220 CAL PARA+5 RG115580 60244 0074 00 4 57710 TSX C1010,4 RG115590 | 60245 0621 00 0 61220 STA IP15+1 UNLOAD ADDRESS OF CTR TO INSTR RG115600 | 60246 0621 00 0 61424 STA CPC RG115610 | 60247 0621 00 0 61221 STA IP15+2 * RG115620 | 60250 0074 00 4 60073 TSX D9230,4 ADD 1 TO HTLC RG115630 60251 -0500 00 0 61222 CAL IP16 MOVE CLA INST TO W/A RG115640 | 60252 0602 60 0 61427 SLW* HTLC * RG115650 | 60253 0774 00 1 00002 E2290 AXT 2,1 * RG115660 | 60254 0074 00 4 60073 TSX D9230,4 ADD 1 TO HTLC RG115670 | 60255 -0500 00 1 61222 CAL IP15+3,1 MOVE INST TO W/A RG115680 60256 0602 60 0 61427 SLW* HTLC * RG115690 | 60257 2 00001 1 60254 TIX E2290+1,1,1 * RG115700 | 60260 0074 00 4 60073 TSX D9230,4 RG115710 | 60261 -0500 00 0 61174 CAL IP10 RG115720 | 60262 0602 60 0 61427 SLW* HTLC RG115730 60263 0074 00 4 60073 TSX D9230,4 RG115740 | 60264 -0500 00 0 61224 CAL IP16+2 RG115750 | 60265 0602 60 0 61427 SLW* HTLC RG115760 | 60266 -0500 00 0 07347 CAL MSKDC5 RG115770 | 60267 0602 60 0 61432 SLW* HTLK RG115780 60270 -0500 00 0 07165 CAL PARA+3 TEST FOR CONTROL BREAK RG115790 | 60271 -0320 00 0 07324 ANA MASK+7 IN PAGE = PARAMETER RG115800 | 1 LISTING OF 12/01/64 PAGE 268 | ALPHA SUBROUTINE | 60272 0100 00 0 60275 TZE E2390 * RG115810 | 60273 0500 00 0 61374 CLA C1 SET SW 2 ON RG115820 | 60274 0601 00 0 61474 STO SW2 * RG115830 | 60275 0500 00 0 61374 E2390 CLA C1 SET SW 3 ON RG115840 | 60276 0601 00 0 61475 STO SW3 * RG115850 60277 0020 00 0 60647 TRA E4010 TRA TO REF 5 RG115860 | 60300 -0500 00 0 07164 E2400 CAL PARA+2 IS THIS ACCUMULATIVE RG115870 | 60301 -0320 00 0 07332 ANA MASK+13 * RG115880 | 60302 0100 00 0 60344 TZE E2860 *NO RG115890 | 60303 0074 00 4 60052 TSX D9010,4 BUILD TYPE A IDENT RG115900 60304 0074 00 4 60063 TSX D9150,4 BUILD KEY RG115910 | 60305 -0500 00 0 61220 E2580 CAL IP15+1 REF 13 YES RG115920 | 60306 0621 00 0 61165 STA IP08 TO CLA INST RG115930 | 60307 0621 00 0 61223 STA IP16+1 TO ST2 INST /CLEARS COVNTER/ RG115940 | 60310 0074 00 4 60073 TSX D9230,4 RG115950 60311 -0500 00 0 61165 CAL IP08 PUT CLA TO H+T AREA RG115960 | 60312 0602 60 0 61427 SLW* HTLC RG115970 | 60313 0074 00 4 60073 TSX D9230,4 RG115980 | 60314 -0500 00 0 61174 CAL IP10 RG115990 | 60315 0602 60 0 61427 SLW* HTLC RG116000 60316 -0500 00 0 61535 CAL E8300 SET INPUT MODE FO BINARY RG116010 | 60317 0320 00 0 07166 ANS PARA+4 RG116020 | 60320 0500 00 0 61453 CLA OPE GET OUTPUT ADDRESS RG116030 | 60321 0400 00 0 61401 ADD C1+5 MOVE UP BY 3 RG116040 | 60322 0621 00 0 60323 STA *+1 RG116050 60323 -0500 00 0 00000 CAL 0 PICK UP NEXT OUTPUT ENTRY RG116060 | 60324 -0320 00 0 07324 ANA MASK+7 * RG116070 | 60325 -0340 00 0 61443 LAS LINET COMPARE TO T RG116080 | 60326 0020 00 0 60330 TRA *+2 * HI RG116090 | 60327 0020 00 0 60331 TRA E2730 * EQ RG116100 60330 0020 00 0 60342 TRA E2850 RG116110 | 60331 -0500 00 0 07167 E2730 CAL PARA+5 RG116120 | 60332 0074 00 4 57710 TSX C1010,4 RG116130 | 60333 0621 00 0 61220 STA IP15+1 UNLOAD CTR ADDRESS TO ADD RG116140 | 60334 0621 00 0 61221 STA IP15+2 * STO RG116150 60335 0774 00 1 00002 AXT 2,1 RG116160 | 60336 0074 00 4 60073 E2780 TSX D9230,4 ADD 1 TO H+T LC RG116170 | 60337 -0500 00 1 61222 CAL IP15+3,1 RG116180 | 60340 0602 60 0 61427 SLW* HTLC RG116190 | 60341 2 00001 1 60336 TIX E2780,1,1 RG116200 60342 -0625 00 0 61476 E2850 STL SW4 TURN SW4 ON RG116210 | 60343 0020 00 0 60647 TRA E4010 TRA TO REF 5 RG116220 | 60344 -0500 00 0 07375 E2860 CAL HCSW1 IS THIS A H CAL PARAMETER RG116230 | 60345 -0100 00 0 60360 TNZ E2990 NO RG116240 | 60346 -0500 60 0 61453 CAL* OPE RG116250 60347 0100 00 0 60655 TZE E4070 RG116260 | 60350 -0500 60 0 61454 CAL* OPE1 RG116270 | 60351 0100 00 0 60655 TZE E4070 RG116280 | 60352 -0500 00 0 07327 CAL MASK+10 RG116290 | 60353 -0602 00 0 07166 ORS PARA+4 RG116300 60354 0074 00 4 61715 TSX P2PUT,4 RG116310 | 60355 0 00000 0 00000 PZE 0 RG116320 | 60356 -0625 00 0 07376 STL HCSW2 AT E8275 RG116330 | 60357 0020 00 0 60744 TRA E4750 RG116340 | 60360 0500 00 0 61427 E2990 CLA HTLC ADD 1 TO HTLC RG116350 1 LISTING OF 12/01/64 PAGE 269 | ALPHA SUBROUTINE | | 60361 0400 00 0 61376 ADD C1+2 * RG116360 | 60362 0601 00 0 61427 STO HTLC * RG116370 60363 0601 00 0 61430 STO HTLID * RG116380 | 60364 -0500 60 0 61453 CAL* OPE BUILD INDICATIVE ID RG116390 | 60365 -0763 00 0 00006 LGL 6 PUT LV TO T IDENT RG116400 | 60366 -0320 00 0 07324 ANA MASK+7 * RG116410 | 60367 0602 60 0 61430 SLW* HTLID * RG116420 60370 -0500 00 0 07162 CAL PARA PUT ART TO T IDENT RG116430 | 60371 -0320 00 0 07315 ANA MASK * RG116440 | 60372 -0340 00 0 61532 LAS E8290 COMPARE FOR T PARAMETER RG116450 | 60373 0020 00 0 60376 TRA *+3 *YES RG116460 | 60374 0020 00 0 60376 TRA *+2 *YES RG116470 60375 0020 00 0 60404 TRA E3018 NO RG116480 | 60376 -0500 00 0 07163 CAL PARA+1 RG116490 | 60377 -0320 00 0 07315 ANA MASK MOVE IRT TO ART RG116500 | 60400 -0765 00 0 00006 LGR 6 * RG116510 | 60401 -0602 60 0 61430 ORS* HTLID * RG116520 60402 -0765 00 0 00014 LGR 12 RG116530 | 60403 0020 00 0 60411 TRA E3020+1 RG116540 | 60404 0771 00 0 00006 E3018 ARS 6 RG116550 | 60405 -0602 60 0 61430 ORS* HTLID RG116560 | 60406 -0500 00 0 07163 CAL PARA+1 RG116570 60407 -0320 00 0 07315 ANA MASK * RG116580 | 60410 -0765 00 0 00022 E3020 LGR 18 RG116590 | 60411 0400 00 0 61402 ADD C1+6 *PUT 2 TO ID COUNTER RG116600 | 60412 -0602 60 0 61430 ORS* HTLID * RG116610 | 60413 0074 00 4 60063 TSX D9150,4 BUILD KEY RG116620 60414 0074 00 4 36325 TSX P2GET,4 BUILD TAKE INSTR RG116630 | 60415 0 00000 0 00000 PZE * RG116640 | 60416 -0600 60 0 61432 STQ* HTLK * RG116650 | 60417 0500 00 0 36540 CLA WDCNT PUT = OF INSTRUCTIONS TO IR=1 RG116660 | 60420 0400 00 0 61371 ADD ADTWA RG116670 60421 0621 00 0 60424 STA E3070+1 RG116680 | 60422 0534 00 1 36540 LXA WDCNT,1 PUT INSTRUCTIONS TO H+T AREA RG116690 | 60423 0074 00 4 60073 E3070 TSX D9230,4 RG116700 | 60424 -0500 00 1 00000 CAL 0,1 RG116710 | 60425 0602 60 0 61427 SLW* HTLC RG116720 60426 2 00001 1 60423 TIX E3070,1,1 RG116730 | 60427 -0500 60 0 61454 CAL* OPE1 RG116740 | 60430 -0320 00 0 07327 ANA MASK+10 RG116750 | 60431 0602 00 0 61506 SLW TEMPS RG116760 | 60432 -0500 60 0 61454 CAL* OPE1 RG116770 60433 -0100 00 0 60440 TNZ *+5 PRINT IS REQUIRED RG116780 | 60434 -0500 00 0 07166 CAL PARA+4 TEST INPUT MODE RG116790 | 60435 -0320 00 0 07327 ANA MASK+10 RG116800 | 60436 0100 00 0 60475 TZE E3330 BINARY RG116810 | 60437 0020 00 0 60515 TRA E3450 BCD RG116820 60440 -0500 00 0 07166 CAL PARA+4 RG116830 | 60441 -0320 00 0 07327 ANA MASK+10 RG116840 | 60442 -0340 00 0 61506 LAS TEMPS IS INPUT-OUTPUT MODE EQUAL RG116850 | 60443 0020 00 0 60445 TRA *+2 NO RG116860 | 60444 0020 00 0 60512 TRA E3420 YES RG116870 60445 -0625 00 0 61423 STL CONVT RG116880 | 60446 0441 00 0 07166 LDI PARA+4 NO RG116890 | 60447 0054 00 000004 RFT 4 IS INPUT MODE BINARY RG116900 | 1 LISTING OF 12/01/64 PAGE 270 | ALPHA SUBROUTINE | 60450 0020 00 0 60457 TRA E3300 NO RG116910 | 60451 0074 00 4 60112 TSX D9360,4 RG116920 | 60452 -100000000000 OCT 500000000000 RG116930 | 60453 0074 00 4 60073 TSX D9230,4 YES BUILD BINARY TO BCD LINKAGE RG116940 60454 -0500 00 0 61224 CAL IP16+2 RG116950 | 60455 0602 60 0 61427 SLW* HTLC RG116960 | 60456 0020 00 0 60515 TRA E3450 TO REFERENCE 19 RG116970 | 60457 0074 00 4 60112 E3300 TSX D9360,4 RG116980 | 60460 -100000000000 OCT 500000000000 RG116990 60461 0074 00 4 60073 TSX D9230,4 BUILD BCD TO BINARY LINKAGE RG117000 | 60462 -0500 00 0 61214 CAL IP14 RG117010 | 60463 0602 60 0 61427 SLW* HTLC * RG117020 | 60464 0500 00 0 61374 CLA C1 COMPARE LEN TO 36 RG117030 | 60465 0402 00 0 36536 SUB P2LI * RG117040 60466 -0120 00 0 60471 TMI *+3 * RG117050 | 60467 0600 00 0 61215 STZ IP14+1 SET FOR 1 WORD RG117060 | 60470 0020 00 0 60472 TRA *+2 * RG117070 | 60471 -0625 00 0 61215 STL IP14+1 SET FOR 2 WORDS RG117080 | 60472 0074 00 4 60073 TSX D9230,4 MOVE TO T + H AREA RG117090 60473 -0500 00 0 61215 CAL IP14+1 * RG117100 | 60474 0602 60 0 61427 SLW* HTLC * RG117110 | 60475 0074 00 4 60073 E3330 TSX D9230,4 BUILD CLA FROM BINARY BUFFER RG117120 | 60476 0500 00 0 61376 CLA C1+2 RG117130 | 60477 0601 00 0 36540 STO WDCNT RG117140 60500 -0500 00 0 61217 CAL IP15 RG117150 | 60501 0602 60 0 61427 SLW* HTLC RG117160 | 60502 -0500 00 0 07167 E3360 CAL PARA+5 RG117170 | 60503 0074 00 4 57710 TSX C1010,4 RG117180 | 60504 0621 00 0 61221 STA IP15+2 PUT ADDRESS IN STO INSTRUCTION RG117190 60505 0621 00 0 60570 STA E3720 RG117200 | 60506 0074 00 4 60073 TSX D9230,4 PUT STO INSTRUCTION TO H+T AREA RG117210 | 60507 -0500 00 0 61221 CAL IP15+2 RG117220 | 60510 0602 60 0 61427 SLW* HTLC RG117230 | 60511 0020 00 0 60556 TRA E3650 RG117240 60512 0441 60 0 61454 E3420 LDI* OPE1 IS OUTPUT BINARY RG117250 | 60513 0056 00 000004 RNT 4 RG117260 | 60514 0020 00 0 60475 TRA E3330 YES RG117270 | 60515 0560 00 0 36536 E3450 LDQ P2LI NO RG117280 | 60516 -0754 00 0 00000 PXD 0,0 RG117290 60517 0220 00 0 61374 DVH C1 DIVID B = OF BITS BY 36 RG117300 | 60520 0100 00 0 60531 TZE E3540 RG117310 | 60521 0131 00 0 00000 XCA RG117320 | 60522 0400 00 0 61376 ADD C1+2 ADD ONE TO = O+ WORDS RG117330 | 60523 0621 00 0 36540 E3510 STA WDCNT RG117340 60524 0621 00 0 61225 STA IP17 RG117350 | 60525 0734 00 1 00000 PAX 0,1 RG117360 | 60526 -0634 00 1 60027 SXD C5360+1,1 * RG117370 | 60527 -0634 00 1 60017 SXD C5250+3,1 * RG117380 | 60530 0020 00 0 60533 TRA E3560 RG117390 60531 0131 00 0 00000 E3540 XCA PUT = OF WORDS IN AC RG117400 | 60532 0020 00 0 60523 TRA E3510 RG117410 | 60533 -0500 00 0 07167 E3560 CAL PARA+5 TRA TO BUILD COUNTER RG117420 | 60534 0074 00 4 57710 TSX C1010,4 * RG117430 | 60535 0621 00 0 60570 STA E3720 RG117440 60536 0400 00 0 36540 ADD WDCNT LEFT HAND WORD PLUS = OF WORDS RG117450 | 1 LISTING OF 12/01/64 PAGE 271 | ALPHA SUBROUTINE | | 60537 0621 00 0 61227 STA IP17+2 TO SLW INSTRUCTION RG117460 60540 0534 00 1 61376 LXA C1+2,1 RESTORE COUNT TO 1 RG117470 | 60541 -0634 00 1 60027 SXD C5360+1,1 * RG117480 | 60542 -0634 00 1 60017 SXD C5250+3,1 * RG117490 | 60543 -0500 00 0 36540 CAL WDCNT COMPARE WORD COUNT TO 1 RG117500 | 60544 -0340 00 0 61376 LAS C1+2 * RG117510 60545 0020 00 0 60547 TRA *+2 NO RG117520 | 60546 0020 00 0 60630 TRA E3930 EQUAL RG117530 | 60547 0074 00 4 60112 TSX D9360,4 TRA TO BUIL+ 2EY RG117540 | 60550 +000100000000 OCT 000100000000 RG117550 | 60551 0774 00 1 00004 E3604 AXT 4,1 RG117560 60552 0074 00 4 60073 TSX D9230,4 ADD 1 TO H+T LC. RG117570 | 60553 -0500 00 1 61231 CAL IP17+4,1 RG117580 | 60554 0602 60 0 61427 SLW* HTLC MOVE PACKAGE TO H+T AREA RG117590 | 60555 2 00001 1 60552 TIX E3604+1,1,1 RG117600 | 60556 -0500 60 0 61453 E3650 CAL* OPE RG117610 60557 0100 00 0 60655 TZE E4070 RG117620 | 60560 -0500 60 0 61454 CAL* OPE1 RG117630 | 60561 0100 00 0 60655 TZE E4070 RG117640 | 60562 0074 00 4 60052 TSX D9010,4 IDENTIFY AS TXX LINE RG117650 | 60563 0074 00 4 60063 TSX D9150,4 BUILD KEY RG117660 60564 -0500 60 0 61453 CAL* OPE PICK UP 1ST OUTPUT ENTRY RG117670 | 60565 -0320 00 0 07332 ANA MASK+13 * RG117680 | 60566 -0100 00 0 60600 TNZ E3750 STORE FOR PRINT RG117690 | 60567 0074 00 4 61715 E3710 TSX P2PUT,4 * RG117700 | 60570 0 00000 0 00000 E3720 PZE 0 * RG117710 60571 -0500 60 0 61453 CAL* OPE OUTPUT ENTRY 1ST WORD RG117720 | 60572 -0320 00 0 07332 ANA MASK+13 00 00 00 00 00 77 RG117730 | 60573 0100 00 0 60752 TZE E4754 RG117740 | 60574 -0600 00 0 60576 STQ *+2 RG117750 | 60575 0074 00 4 60112 TSX D9360,4 PLACE KEY IN HTLC RG117760 60576 +000000000000 OCT 0 RG117770 | 60577 0020 00 0 61001 TRA E4780 TRA TO REF 8 RG117780 | 60600 -0500 00 0 36540 E3750 CAL WDCNT RG117790 | 60601 -0340 00 0 61376 LAS C1+2 COMPARE WORD COUNT TO 1 RG117800 | 60602 0020 00 0 60604 TRA *+2 NO RG117810 60603 0020 00 0 60617 TRA E3870 EQUAL TO 1 RG117820 | 60604 0621 00 0 61344 STA IP32 RG117830 | 60605 0400 00 0 60570 ADD E3720 RG117840 | 60606 0621 00 0 61345 STA IP32+1 RG117850 | 60607 0774 00 1 00004 AXT 4,1 RG117860 60610 0074 00 4 60073 E3800 TSX D9230,4 RG117870 | 60611 -0500 00 1 61350 CAL IP32+4,1 RG117880 | 60612 0602 60 0 61427 SLW* HTLC RG117890 | 60613 2 00001 1 60610 TIX E3800,1,1 RG117900 | 60614 -0500 00 0 07340 CAL MASK+19 RG117910 60615 0602 60 0 61432 SLW* HTLK RG117920 | 60616 0020 00 0 60567 TRA E3710 RG117930 | 60617 -0500 00 0 60570 E3870 CAL E3720 INITIALIZE CAL INSTR. RG117940 | 60620 0621 00 0 61350 STA IP33 * RG117950 | 60621 0074 00 4 60073 TSX D9230,4 ADD 1 TO HTLC RG117960 60622 -0500 00 0 61350 CAL IP33 MOVE CAL INSTR. TO W/A RG117970 | 60623 0602 60 0 61427 SLW* HTLC * RG117980 | 60624 0074 00 4 60073 TSX D9230,4 ADD 1 TO HTLC RG117990 | 60625 -0500 00 0 61175 CAL IP10+1 MOVE SLW INSTR. TO W/A RG118000 | 1 LISTING OF 12/01/64 PAGE 272 ALPHA SUBROUTINE | | 60626 0602 60 0 61427 SLW* HTLC * RG118010 | 60627 0020 00 0 60567 TRA E3710 RG118020 | 60630 -0500 00 0 60570 E3930 CAL E3720 INITIALZE SLW INSTR RG118030 60631 0621 00 0 61351 STA IP33+1 * RG118040 | 60632 0074 00 4 60073 TSX D9230,4 ADD 1 TO HTLC RG118050 | 60633 -0500 00 0 61352 CAL IP34 MOVE CAL INSTRUCTION RG118060 | 60634 0602 60 0 61427 SLW* HTLC * RG118070 | 60635 0074 00 4 60073 TSX D9230,4 ADD 1 TO HTLC RG118080 60636 -0500 00 0 61351 CAL IP33+1 MOVE SLW INSTRUCTION RG118090 | 60637 0602 60 0 61427 SLW* HTLC * RG118100 | 60640 0020 00 0 60556 TRA E3650 RG118110 | 60641 -0520 00 0 61476 E3952 NZT SW4 RG118120 | 60642 0020 00 0 60655 TRA E4070 RG118130 60643 0074 00 4 60073 TSX D9230,4 RG118140 | 60644 -0500 00 0 61223 CAL IP16+1 RG118150 | 60645 0602 60 0 61427 SLW* HTLC RG118160 | 60646 0020 00 0 60655 TRA E4070 RG118170 | 60647 0600 00 0 61510 E4010 STZ WDCT2 INITIALIZE INSTR. COUNTER RG118180 60650 -0500 60 0 61453 CAL* OPE IS THERE ANY PRINT MODE RG118190 | 60651 0100 00 0 60655 TZE E4070 *NO RG118200 | 60652 -0500 60 0 61454 CAL* OPE1 IS PRINT MODE BLANK RG118210 | 60653 0100 00 0 60641 TZE E3952 RG118220 | 60654 0020 00 0 60660 TRA *+4 *YES RG118230 60655 0600 00 0 61475 E4070 STZ SW3 SET SW 3 OFF RG118240 | 60656 0600 00 0 61476 STZ SW4 SET SW 4 OFF RG118250 | 60657 0020 00 0 61057 TRA E5010 TRA TO REF 6 RG118260 | 60660 0441 60 0 61454 LDI* OPE1 IS OUTPUT BCD RG118270 | 60661 0056 00 000004 RNT 4 * RG118280 60662 0020 00 0 60677 TRA E4230 *NO RG118290 | 60663 -0500 00 0 61423 CAL CONVT *YES, IS INPUT CONVERTED RG118300 | 60664 -0100 00 0 60674 TNZ E4210 *YES RG118310 | 60665 0441 00 0 07166 LDI PARA+4 NO, IS INPUT BCD RG118320 | 60666 0054 00 000004 RFT 4 * RG118330 60667 0020 00 0 60674 TRA E4210 YES RG118340 | 60670 0500 00 0 61376 CLA C1+2 NO, BUILD CONVERT BIN-BCD RG118350 | 60671 0601 00 0 61510 STO WDCT2 * RG118360 | 60672 -0500 00 0 61224 CAL IP16+2 * RG118370 | 60673 0602 00 0 37027 SLW TWA2 * RG118380 60674 0074 00 4 61715 E4210 TSX P2PUT,4 BUILD STORE FOR PRINT ROUTINE RG118390 | 60675 0 00000 0 00000 PZE RG118400 | 60676 0020 00 0 60725 TRA E4700 * RG118410 | 60677 -0500 00 0 07162 E4230 CAL PARA IS THIS A RECORD RG118420 | 60700 -0320 00 0 07321 ANA MASK+4 * RG118430 60701 0100 00 0 60703 TZE *+2 * RG118440 | 60702 0074 00 4 04000 TSX LOST,4 RG118450 | 60703 -0500 00 0 07375 CAL HCSW1 RG118460 | 60704 0100 00 0 60674 TZE E4210 RG118470 | 60705 -0500 00 0 61423 CAL CONVT HAS MODE BEEN CONVERTED RG118480 60706 -0100 00 0 60674 TNZ E4210 *YES RG118490 | 60707 0441 00 0 07166 LDI PARA+4 IS INPUT STATUS BCD RG118500 | 60710 0056 00 000004 RNT 4 * RG118510 | 60711 0020 00 0 60674 TRA E4210 *NO RG118520 | 60712 0500 00 0 61402 CLA C1+6 YES, BUILD CONVT BCD TO BIN RG118530 60713 0601 00 0 61510 STO WDCT2 SET WORK COUNT TO 2 RG118540 | 60714 -0500 00 0 61214 CAL IP14 * RG118550 | 1 LISTING OF 12/01/64 PAGE 273 | ALPHA SUBROUTINE | 60715 0602 00 0 37027 SLW TWA2 * RG118560 | 60716 0500 00 0 61374 CLA C1 COMPARE LENGTH TO 36 RG118570 | 60717 0402 00 0 36536 SUB P2LI * RG118580 | 60720 -0120 00 0 60723 TMI *+3 * RG118590 | 60721 0600 00 0 37030 STZ TWA2+1 SET TO ONE WORD RG118600 60722 0020 00 0 60724 TRA *+2 * RG118610 | 60723 -0625 00 0 37030 STL TWA2+1 SET FOR 2 WORDS RG118620 | 60724 0020 00 0 60674 TRA E4210 * RG118630 | 60725 -0500 00 0 61475 E4700 CAL SW3 IS THIS A HXX OUTPUT ENTRY RG118640 | 60726 0100 00 0 61012 TZE E4830 * NO RG118650 60727 0600 00 0 61475 STZ SW3 * TURN SW3 TO ZERO RG118660 | 60730 0500 00 0 61510 E4730 CLA WDCT2 RG118670 | 60731 0100 00 0 60744 TZE E4750 *NO RG118680 | 60732 0621 00 0 60737 STA E4740 *YES RG118690 | 60733 0400 00 0 61370 ADD ADTW2 * PLACE CONVERTS TO H + T RG118700 60734 0621 00 0 60741 STA E4744 RG118710 | 60735 0074 00 4 60112 TSX D9360,4 RG118720 | 60736 -100000000000 OCT 500000000000 RG118730 | 60737 0774 00 1 00000 E4740 AXT 0,1 * RG118740 | 60740 0074 00 4 60073 E4742 TSX D9230,4 * RG118750 60741 -0500 00 1 00000 E4744 CAL 0,1 * RG118760 | 60742 0602 60 0 61427 SLW* HTLC * RG118770 | 60743 2 00001 1 60740 TIX E4742,1,1 * RG118780 | 60744 0074 00 4 60052 E4750 TSX D9010,4 BUILD NEW H + T IDENT RG118790 | 60745 0074 00 4 60063 TSX D9150,4 BUILD NEW H + T KEY RG118800 60746 -0500 00 0 07376 CAL HCSW2 RG118810 | 60747 0100 00 0 60752 TZE *+3 RG118820 | 60750 -0500 00 0 07333 CAL MASK+14 RG118830 | 60751 -0602 60 0 61430 ORS* HTLID RG118840 | 60752 -0600 60 0 61432 E4754 STQ* HTLK * RG118850 60753 -0500 00 0 36540 CAL WDCNT HOW MANY RG118860 | 60754 0602 00 0 61506 SLW TEMPS RG118870 | 60755 0402 00 0 61414 SUB C4 RG118880 | 60756 0100 00 0 61001 TZE E4780 RG118890 | 60757 -0120 00 0 61001 TMI E4780 RG118900 60760 0601 00 0 36540 STO WDCNT PUT PUT INSTRUCTIONS TO H + T RG118910 | 60761 0774 00 1 00014 AXT 12,1 * 1ST KEY RG118920 | 60762 0074 00 4 60073 E4768 TSX D9230,4 * RG118930 | 60763 -0500 00 1 37012 CAL TWA+12,1 * RG118940 | 60764 0602 60 0 61427 SLW* HTLC * RG118950 60765 2 00001 1 60762 TIX E4768,1,1 * RG118960 | 60766 0560 00 0 61437 LDQ KEY3 LOAD 2ND KEY RG118970 | 60767 0074 00 4 60052 TSX D9010,4 BUILD ID FOR H+T AREA RG118980 | 60770 0074 00 4 60063 TSX D9150,4 BUILD KEY FOR H+T AREA RG118990 | 60771 -0500 00 0 07376 CAL HCSW2 RG119000 60772 0100 00 0 60775 TZE *+3 RG119010 | 60773 -0500 00 0 07333 CAL MASK+14 RG119020 | 60774 -0602 60 0 61430 ORS* HTLID RG119030 | 60775 -0600 60 0 61432 STQ* HTLK RG119040 | 60776 -0500 00 0 61506 CAL TEMPS RG119050 60777 0534 00 1 36540 LXA WDCNT,1 RG119060 | 61000 0020 00 0 61003 TRA E4780+2 RG119070 | 61001 -0500 00 0 36540 E4780 CAL WDCNT PLACE COUNT IN INDEX REG = 1 RG119080 | 61002 0734 00 1 00000 PAX 0,1 * RG119090 | 61003 0400 00 0 61371 ADD ADTWA * RG119100 1 LISTING OF 12/01/64 PAGE 274 | ALPHA SUBROUTINE | | 61004 0621 00 0 61006 STA E4784 * RG119110 | 61005 0074 00 4 60073 E4782 TSX D9230,4 * RG119120 61006 -0500 00 1 00000 E4784 CAL 0,1 * RG119130 | 61007 0602 60 0 61427 SLW* HTLC RG119140 | 61010 2 00001 1 61005 TIX E4782,1,1 * RG119150 | 61011 0020 00 0 61057 TRA E5010 TRA TO REF 6 RG119160 | 61012 -0500 00 0 61476 E4830 CAL SW4 IS THIS A TXX OUTPUT ENTRY RG119170 61013 0100 00 0 61026 TZE E4940 RG119180 | 61014 0600 00 0 61476 STZ SW4 RG119190 | 61015 0500 00 0 36540 CLA WDCNT BUILD STZ INSTR RG119200 | 61016 0400 00 0 61371 ADD ADTWA * RG119210 | 61017 0621 00 0 61024 STA E4920 * RG119220 61020 0500 00 0 36540 CLA WDCNT * RG119230 | 61021 0400 00 0 61376 ADD C1+2 * RG119240 | 61022 0621 00 0 36540 STA WDCNT RG119250 | 61023 -0500 00 0 61223 CAL IP16+1 * RG119260 | 61024 0602 00 0 00000 E4920 SLW 0 * RG119270 61025 0020 00 0 60730 TRA E4730 * RG119280 | 61026 -0520 00 0 61510 E4940 NZT WDCT2 ARE THERE ANY CONVERT INSTR RG119290 | 61027 0020 00 0 61037 TRA E4960 *NO RG119300 | 61030 -0600 00 0 61531 STQ E8280 STORE KEY RG119310 | 61031 0534 00 1 61510 LXA WDCT2,1 *YES, STEP IC WITH THEM RG119320 61032 -0634 00 1 61035 SXD *+3,1 * RG119330 | 61033 0560 00 0 07330 LDQ MASK+11 * RG119340 | 61034 0074 00 4 40227 TSX STEPI,4 * RG119350 | 61035 0 00000 1 37027 PZE TWA2,1,0 * RG119360 | 61036 0560 00 0 61531 LDQ E8280 LOAD KEY RG119370 61037 0500 00 0 36540 E4960 CLA WDCNT STEP IC WITH PUT INST RG119380 | 61040 0402 00 0 61414 SUB C4 * TWO KEYS RG119390 | 61041 0100 00 0 61053 TZE E4984 *NO RG119400 | 61042 -0120 00 0 61053 TMI E4984 *NO RG119410 | 61043 0734 00 1 00000 PAX 0,1 *YES STEP IC 1ST KEY RG119420 61044 -0634 00 1 61051 SXD E4980,1 * RG119430 | 61045 0074 00 4 40227 TSX STEPI,4 * RG119440 | 61046 0 00014 1 36776 PZE TWA,1,12 * RG119450 | 61047 0560 00 0 61437 LDQ KEY3 STEP IC WITH 2ND KEY RG119460 | 61050 0074 00 4 40227 TSX STEPI,4 * RG119470 61051 0 00000 1 37012 E4980 PZE TWA+12,1,0 * RG119480 | 61052 0020 00 0 61057 TRA E5010 TO REF 6 RG119490 | 61053 0534 00 1 36540 E4984 LXA WDCNT,1 STEP IC WITH ONLY KEY RG119500 | 61054 -0634 00 1 61056 SXD E4990,1 * RG119510 | 61055 0074 00 4 40227 TSX STEPI,4 * RG119520 61056 0 00000 1 36776 E4990 PZE TWA,1,0 * RG119530 | 61057 0500 00 0 61461 E5010 CLA P2B03 REF 6 ANY MORE OUTPUT ENTRIES RG119540 | 61060 0100 00 0 61074 TZE E5120 RG119550 | 61061 0402 00 0 61401 SUB C1+5 RG119560 | 61062 0601 00 0 61461 STO P2B03 * RG119570 61063 0500 00 0 61453 CLA OPE MOVE UP OUTPUT ENTRY PARAMETER LORG119580 | 61064 0400 00 0 61401 ADD C1+5 ADD 3 TO OPE LC RG119590 | 61065 0601 00 0 61453 STO OPE * RG119600 | 61066 0400 00 0 61376 ADD C1+2 * RG119610 | 61067 0601 00 0 61454 STO OPE1 * RG119620 61070 0400 00 0 61376 ADD C1+2 * RG119630 | 61071 0601 00 0 61455 STO OPE2 * RG119640 | 61072 0600 00 0 61423 STZ CONVT RG119650 | 1 LISTING OF 12/01/64 PAGE 275 | ALPHA SUBROUTINE | 61073 0020 00 0 60127 TRA E1010 TO REFERENCE 7 RG119660 | 61074 0500 00 0 61474 E5120 CLA SW2 SW2, IS THIS CONTROL BREAK RG119670 | 61075 0100 00 0 57104 TZE A0050 NO RG119680 | 61076 0600 00 0 61474 STZ SW2 YES RG119690 61077 0774 00 2 00620 AXT P2JB5,2 RG119700 | 61100 -0520 00 0 22657 NZT P2AA0 RG119710 | 61101 -0634 00 2 22657 SXD P2AA0,2 RG119720 | 61102 -0500 00 0 07165 CAL PARA+3 RG119730 | 61103 0771 00 0 00006 ARS 6 RG119740 61104 -0501 00 0 61443 ORA LINET RG119750 | 61105 0771 00 0 00030 ARS 24 RG119760 | 61106 0602 00 0 61506 SLW TEMPS RG119770 | 61107 0500 00 0 22657 CLA P2AA0 RG119780 | 61110 0622 00 0 61111 STD *+1 RG119790 61111 -3 00000 2 61135 E5152 TXL E5192,2,0 RG119800 | 61112 -0500 00 2 22657 CAL P2AA0,2 RG119810 | 61113 -0320 00 0 07315 ANA MASK RG119820 | 61114 -0765 00 0 00030 LGR 24 RG119830 | 61115 -0340 00 0 61506 LAS TEMPS RG119840 61116 0020 00 0 61120 TRA *+2 RG119850 | 61117 0020 00 0 61121 TRA *+2 RG119860 | 61120 1 77776 2 61111 TXI E5152,2,-2 RG119870 | 61121 -0500 00 2 22657 CAL P2AA0,2 RG119880 | 61122 -0320 00 0 07325 ANA MASK+8 RG119890 61123 -0501 00 0 61402 ORA C1+6 2 RG119900 | 61124 0602 00 0 61506 SLW TEMPS RG119910 | 61125 0074 00 4 60052 TSX D9010,4 RG119920 | 61126 0074 00 4 60063 TSX D9150,4 RG119930 | 61127 -0500 00 0 61506 CAL TEMPS RG119940 61130 0602 60 0 61430 SLW* HTLID RG119950 | 61131 0074 00 4 60073 TSX D9230,4 RG119960 | 61132 -0500 00 0 61424 CAL CPC RG119970 | 61133 0602 60 0 61427 SLW* HTLC RG119980 | 61134 0020 00 0 57104 TRA A0050 RG119990 61135 0074 00 4 34503 E5192 TSX ERROR,4 RG120000 | 61136 0 00006 0 61140 PZE E5198,0,6 RG120010 | 61137 0000 00 0 61137 HTR * RG120020 | 61140 314447514647 E5198 BCI 6,IMPROPER CB LEVEL IN PAGE PARAMETER RG120030 | 61141 255160232260 61142 432565254360 | 61143 314560472127 | 61144 256047215121 | 61145 442563255160 | 1 LISTING OF 12/01/64 PAGE 276 CONSTANTS | | 61146 -0500 00 0 00000 IP01 CAL 0 RG120050 | 61147 0320 00 2 00000 ANS 0,2 RG120060 | 61150 -0500 00 0 00000 IP02 CAL 0 RG120070 61151 -0602 00 2 00000 ORS 0,2 RG120080 | 61152 0535 00 1 00000 IP03 LAC 0,1 RG120090 | 61153 000013130000 BCI 1,00==00 RG120100 | 61154 000000001313 BCI 1,0000== RG120110 | 61155 -0500 00 1 00000 IP04 CAL 0,1 RG120120 61156 0560 00 1 00000 LDQ 0,1 RG120130 | 61157 -0763 00 0 00000 LGL 0 RG120140 | 61160 -0320 00 0 00000 ANA 0 RG120150 | 61161 -0500 00 0 00000 IP05 CAL 0 RG120160 | 61162 0602 00 2 00000 SLW 0,2 RG120170 61163 0601 00 2 00000 IP06 STO 0,2 RG120180 | 61164 -0765 00 0 00000 IP07 LGR 0 RG120190 | 61165 0500 00 0 00000 IP08 CLA 0 RG120200 | 61166 0400 00 0 00000 ADD 0 RG120210 | 61167 0601 00 0 00000 STO 0 RG120220 61170 -0130 00 0 00000 IP09 XCL RG120230 | 61171 0760 00 0 00000 CLM 0,0 RG120240 | 61172 -0763 00 0 00000 LGL 0 RG120250 | 61173 0763 00 0 00000 LLS 0 RG120260 | 61174 0601 00 0 73005 IP10 STO BINBUF PUT TO BINARY BUFFER RG120270 61175 0602 00 0 73023 SLW BCDBUF PUT TO BCD BUFFER RG120280 | 61176 0560 00 1 00000 IP11 LDQ 0,1 DO NOT MODIFY THESE INSTRS. RG120290 | 61177 -0765 00 0 00000 LGR 0 * * * RG120300 | 61200 0760 00 0 00000 CLM 0,0 * * * RG120310 | 61201 0763 00 0 00000 LLS 0 * * * RG120320 61202 -0500 00 1 00000 IP12 CAL 0,1 * * * RG120330 | 61203 -0320 00 0 00000 ANA 0 * * * RG120340 | 61204 -0763 00 0 00000 LGL 0 * * * RG120350 | 61205 0500 00 1 00000 CLA 0,1 * * * RG120360 | 61206 0074 00 4 00001 IP13 TSX 01,4 UNPACK 1 RG120370 61207 0 00000 0 00000 PZE 0,0,0 MASK LOC,0,WO RG120380 | 61210 0 00000 0 00000 PZE 0,0,0 RO,0,WORDS RG120390 | 61211 0 00000 0 00000 PZE 0,0,0 RG120400 | 61212 0074 00 4 00002 TSX 02,4 UNPACK 2 RG120410 | 61213 0074 00 4 00003 TSX 03,4 UNPACK 3 RG120420 61214 0074 00 4 00004 IP14 TSX 04,4 BCD TO BINARY CONVERSION RG120430 | 61215 0 00000 0 00000 PZE RG120440 | 61216 -0 00000 0 00000 MZE RG120450 | 61217 0500 00 0 73005 IP15 CLA BINBUF RG120460 | 61220 0400 00 0 00000 ADD 0 RG120470 61221 0601 00 0 00000 STO 0 RG120480 | 61222 0500 00 0 04673 IP16 CLA LZERO+1 PLUS ONE RG120490 | 61223 0600 00 0 00000 STZ 0 RG120500 | 61224 0074 00 4 00005 TSX 05,4 BINARY TO BCD CONVERSION LINKAGE RG120510 | 61225 0774 00 4 00000 IP17 AXT 0,4 RG120520 61226 -0500 00 4 73024 CAL BCDBUF+1,4 RG120530 | 61227 0602 00 4 00000 SLW 0,4 RG120540 | 61230 2 00001 4 00002 TIX 2,4,1 RG120550 | 61231 -0500 00 0 00000 IP18 CAL 0 RG120560 | 61232 0767 00 0 00000 ALS 0 RG120570 61233 -0602 00 2 00000 ORS 0,2 RG120580 | 61234 -0754 00 0 00000 IP19 PXD 0,0 RG120590 | 1 LISTING OF 12/01/64 PAGE 277 | CONSTANTS | 61235 0560 00 0 00000 LDQ 0 RG120600 | 61236 -0763 00 0 00000 LGL 0 RG120610 | 61237 -0602 00 2 00000 ORS 0,2 WD,2 RG120620 | 61240 -0130 00 0 00000 XCL RG120630 | 61241 -0602 00 2 00000 ORS 0,2 WD+1,2 RG120640 61242 0774 00 4 00000 IP20 AXT 0,4 N,J RG120650 | 61243 0600 60 0 00002 STZ* 2 RG120660 | 61244 0634 00 2 00007 SXA 7,2 +REL RG120670 | 61245 -0500 00 4 00000 CAL 0,4 RG120680 | 61246 0560 00 4 00000 LDQ 0,4 RG120690 61247 -0763 00 0 00000 LGL 0 RG120700 | 61250 -0602 00 2 00000 ORS 0,2 RG120710 | 61251 1 77777 2 00001 TXI 1,2,-1 +REL RG120720 | 61252 2 00001 4 00005 TIX 5,4,1 -REL RG120730 | 61253 0774 00 2 00000 AXT 0,2 RG120740 61254 0774 00 4 00000 IP21 AXT 0,4 +RELATIVE RG120750 | 61255 0634 00 2 00005 SXA 5,2 N,4 RG120760 | 61256 -0500 00 4 00000 CAL 0,4 RG120770 | 61257 -0602 00 2 00000 ORS 0,2 RG120780 | 61260 1 77777 2 00001 TXI 1,2,-1 + RELATIVE RG120790 61261 2 00001 4 00003 TIX 3,4,1 - RELATIVE RG120800 | 61262 0774 00 2 00000 AXT 0,2 RG120810 | 61263 0774 00 4 00000 IP22 AXT 0,4 NUMBER,4 RG120820 | 61264 0634 00 2 00000 SXA 0,2 RG120830 | 61265 -0500 00 0 00000 IP23 CAL 0 MADIA RG120840 61266 0320 00 2 00000 ANS 0,2 WO,2 RG120850 | 61267 -0500 00 4 73024 CAL BCDBUF+1,4 RG120860 | 61270 0560 00 4 00000 LDQ 0,4 RG120870 | 61271 -0763 00 0 00000 LGL 0 RG120880 | 61272 -0320 00 0 00000 ANA 0 MAD1 RG120890 61273 -0602 00 2 00000 ORS 0,2 WO,2 RG120900 | 61274 0020 00 0 00005 TRA 5 +REL RG120910 | 61275 -0500 00 4 73024 IP24 CAL BCDBUF+1,4 RG120920 | 61276 0602 00 2 00000 SLW 0,2 WO,2 RG120930 | 61277 1 77777 2 00001 TXI 1,2,-1 +REL RG120940 61300 2 00001 4 00003 TIX 3,4,1 -REL RG120950 | 61301 0774 00 2 00000 IP25 AXT 0,2 RG120960 | 61302 -0320 00 0 00000 IP26 ANA 0 MAD1 RG120970 | 61303 -0602 00 2 00000 ORS 0,2 WO,2 RG120980 | 61304 1 77777 4 00001 TXI 1,4,-1 RG120990 61305 1 77777 2 00001 TXI 1,2,-1 RG121000 | 61306 -0500 00 4 73024 CAL BCDBUF+1,4 RG121010 | 61307 0602 00 2 00000 SLW 0,2 WO,2 RG121020 | 61310 2 00001 4 00003 TIX 3,4,1 -REL RG121030 | 61311 -0500 00 4 73024 IP27 CAL BCDBUF+1,4 RG121040 61312 0560 00 4 00000 LDQ 0,4 RG121050 | 61313 -0763 00 0 00000 LGL 0 RG121060 | 61314 0602 00 2 00000 SLW 0,2 WO,2 RG121070 | 61315 1 77777 2 00001 TXI 1,2,-1 +REL RG121080 | 61316 1 77777 4 00001 TXI 1,4,-1 +REL RG121090 61317 3 00001 4 00006 TXH 6,4,1 -REL RG121100 | 61320 -0500 00 0 00000 CAL 0 MAD2A RG121110 | 61321 0320 00 2 00000 ANS 0,2 WO,2 RG121120 | 61322 -0500 00 0 73023 CAL BCDBUF RG121130 | 61323 0767 00 0 00000 ALS 0 RG121140 1 LISTING OF 12/01/64 PAGE 278 | CONSTANTS | | 61324 -0602 00 2 00000 ORS 0,2 WO,2 RG121150 | 61325 0074 00 4 00006 IP28 TSX 06,4 STORE FOR PRINT TYPE 1 RG121160 61326 0 00000 0 00000 PZE * RG121170 | 61327 0 00000 0 00000 PZE * CODE WORD RG121180 | 61330 0074 00 4 00007 IP29 TSX 07,4 SP 2, DOLLAR FORMAT WITH PUNCT RG121190 | 61331 0074 00 4 00010 TSX 08,4 * DOLLAR + CENTS WITH PUNCT RG121200 | 61332 0074 00 4 00011 TSX 09,4 * DOLLARS WITH BLANK PUNCT. RG121210 61333 0074 00 4 00012 TSX 10,4 * DOLLAR + CENTS WITH BLANKS RG121220 | 61334 0602 00 0 73005 IP30 SLW BINBUF RG121230 | 61335 0774 00 4 00000 IP31 AXT 0,4 RG121240 | 61336 0634 00 2 00005 SXA 5,2 +REL RG121250 | 61337 -0500 00 4 00000 CAL 0,4 LOC + NO OF WORDS ,4 RG121260 61340 0602 00 2 00000 SLW 0,2 REL WORD NO,2 RG121270 | 61341 1 77777 2 00001 TXI 1,2,-1 RG121280 | 61342 2 00001 4 00003 TIX 3,4,1 -REL RG121290 | 61343 0774 00 2 00000 AXT 0,2 RG121300 | 61344 0774 00 4 00000 IP32 AXT 0,4 RG121310 61345 -0500 00 4 00000 CAL 0,4 LOCATION + NO OF WORDS RG121320 | 61346 0602 00 4 73024 SLW BCDBUF+1,4 RG121330 | 61347 2 00001 4 00002 TIX 2,4,1 -RELATIVE RG121340 | 61350 -0500 00 0 00000 IP33 CAL 0 RG121350 | 61351 0602 00 0 00000 SLW 0 RG121360 61352 -0500 00 0 73023 IP34 CAL BCDBUF RG121370 | 61353 0020 00 0 00000 IP35 TRA 0 RG121380 | 61354 0020 60 0 00003 TRA* 3 RG121390 | 61355 +000001000000 OCT 000001000000 RG121400 | 61356 +000010010100 OCT 000010010100 RG121410 61357 0754 00 0 00000 IP36 PXA 0,0 RG121420 | 61360 0 00000 0 00000 PZE TO BE REPLACED BY PXA OR CAL RG121430 | 61361 0560 00 0 00000 LDQ ** RG121440 | 61362 -0763 00 0 00000 LGL ** RG121450 | 61363 0 00000 0 00000 PZE TO BE REPLACED BY ORS OR SLW RG121460 61364 -0500 00 0 00000 IP37 CAL ** RG121470 | 61365 0560 00 0 00000 LDQ ** RG121480 | 61366 -0763 00 0 00000 LGL ** RG121490 | 61367 0602 00 2 00000 SLW 0,2 RG121500 | 61370 0 00000 0 37027 ADTW2 PZE TWA2 RG121510 61371 0 00000 0 36776 ADTWA PZE TWA RG121520 | 61372 0 00000 0 00000 BINSW PZE BINARY SWITCH ON BIN RG121530 | 61373 0 00000 0 00000 BIT PZE RG121540 | 61374 +000000000044 C1 DEC 36,38,1,6,35,3,2 RG121550 | 61375 +000000000046 61376 +000000000001 | 61377 +000000000006 | 61400 +000000000043 | 61401 +000000000003 | 61402 +000000000002 61403 +000000000050 C2 DEC 40,14,4,48 RG121560 | 61404 +000000000016 | 61405 +000000000004 | 61406 +000000000060 | 61407 +000000000110 C3 DEC 72,0,-12,9,7 RG121570 61410 +000000000000 | 61411 -000000000014 | 61412 +000000000011 | 1 LISTING OF 12/01/64 PAGE 279 | CONSTANTS | 61413 +000000000007 | 61414 +000000000014 C4 DEC 12,37 RG121580 | 61415 +000000000045 | 61416 +000000000010 C5 DEC 8 RG121590 61417 +000000000012 C10 DEC 10 RG121600 | 61420 535353545454 CNDSW BCI 1,$$$*** CONDITIONAL SWITCH RG121610 | 61421 0 00000 0 00000 CNTSW PZE COUNT CARD SWITCH RG121620 | 61422 -0763 00 0 00000 CON1 LGL 0 TEST IF SHIFT REQUIRED RG121630 | 61423 0 00000 0 00000 CONVT PZE CONVERT TEST RG121640 61424 0600 00 0 00000 CPC STZ ** INSTRUCTION TO CLEAR PAGE COUNTER RG121650 | 61425 0 00000 0 00000 CTBL1 PZE CLASSIFY TABLE RG121660 | 61426 0 00000 0 00000 CTBL2 PZE RG121670 | 61427 0 00000 0 40716 HTLC PZE HTWA-1 H+T W/A LOCATION CTR RG121680 | 61430 0 00000 0 00000 HTLID PZE H+T W/A LAST IDENTIFICATION RG121690 61431 0 00000 0 51543 HTLIM PZE P2AA5 H+T LIMIT - 2 RG121700 | 61432 0 00000 0 00000 HTLK PZE H+T W/A LAST KEY RG121710 | 61433 -0500 00 4 61234 IPAD1 CAL IP18+3,4 RG121720 | 61434 -0500 00 4 61242 IPAD2 CAL IP19+6,4 RG121730 | 61435 +020021000000 KEY31 OCT 020021000000 RG121740 61436 +022000021000 KEY30 OCT 022000021000 RG121750 | 61437 0 00000 0 00000 KEY3 PZE RG121760 | 61440 0 00000 0 00000 LEN PZE RG121770 | 61441 240000000000 LINED BCI 1,D00000 RG121780 | 61442 300000000000 LINEH BCI 1,H00000 RG121790 61443 630000000000 LINET BCI 1,T00000 RG121800 | 61444 000000670000 LOCCN BCI 1,000X00 WE ARE AT LOCATION CONSTANT RG121810 | 61445 +007777000000 MASKA OCT 007777000000 RG121820 | 61446 0 00000 0 00000 MAD1 PZE ADDRESS OF LEFT HAND MASK RG121830 | 61447 0 00000 0 00000 MAD1A PZE COMP MASK RG121840 61450 0 00000 0 00000 MAD2 PZE ADDRESS OF RIGHT HAND MASK RG121850 | 61451 0 00000 0 00000 MAD2A PZE RG121860 | 61452 0 00000 0 00000 MAD3 PZE NUMBER OF WORDS RG121870 | 61453 0 00000 0 00000 OPE PZE OUTPUT ENTRY ADDRESS 1ST WORD RG121880 | 61454 0 00000 0 00000 OPE1 PZE OUTPUT ENTRY ADDRESS 2ND WORD RG121890 61455 0 00000 0 00000 OPE2 PZE OUTPUT ENTRY ADDRESS -3RD WORD RG121900 | 61456 0 00000 0 00000 PSOPE PZE 0 RG121910 | 40717 HTWA EQU P2AA5-P2JB7 RG121920 | 61457 0 00000 0 00000 P2B01 PZE B1 RG121930 | 61460 0 00000 0 07170 P2B02 PZE PARA+6 ADDRESS OF PARA +6 RG121940 61461 0 00000 0 00000 P2B03 PZE NO OF OUTPUT ENTRIES RG121950 | 61462 0 00000 0 04673 PLUS1 PZE LZERO+1 ADDRESS OF PLUS ONE RG121960 | 61463 0 00000 0 00000 SAVE1 PZE 0 LOC. OF LEFT HAND STORAGE WORD RG121970 | 61464 0 00000 0 00000 SAVAD PZE SAVE ULTIMATE ADDRESS RG121980 | 61465 0 00000 0 00000 SHSW PZE SHIFT SWITCH RG121990 61466 0 00000 0 00000 SWHH PZE 0 RG122000 | 61467 0 00000 0 00000 CFYSW PZE 0 CLASSIFY SW RG122010 | 61470 +000000004343 SP1 OCT 4343 XXX,XXX RG122020 | 61471 +000000004322 SP2 OCT 4322 XXX.XX RG122030 | 61472 +000000004362 SP3 OCT 4362 XXX XX RG122040 61473 +000000004363 SP4 OCT 4363 XXX XXX RG122050 | 61474 0 00000 0 00000 SW2 PZE SWITCH2 RG122060 | 61475 0 00000 0 00000 SW3 PZE SWITCH3 RG122070 | 61476 0 00000 0 00000 SW4 PZE SW4 RG122080 | 61477 +000000000000 SW5 DEC 0 SWITCH5 RG122090 61500 0 00000 0 00000 SW8 PZE 0 RG122100 | 1 LISTING OF 12/01/64 PAGE 280 | CONSTANTS | | 61501 0 00000 0 00000 E8064 PZE 0 SW.6 RG122110 61502 0 00000 0 00000 E8066 PZE 0 SW.7 RG122120 | 61503 0 00000 0 00000 T1MSK PZE TEMP MASK STORAGE RG122130 | 61504 0 00000 0 00000 TALC PZE TEMP AREA LOCATION COUNTER RG122140 | 61505 0 00000 0 37031 TASTA PZE TEMPA ADDRESS 1ST WORD OF TEMP AREA RG122150 | 61506 0 00000 0 00000 TEMPS PZE RG122160 61507 717171717171 THSW BCI 1,ZZZZZZ T+H SWITCH RG122170 | 61510 0 00000 0 00000 WDCT2 PZE 0 RG122180 | 61511 0 00000 0 00000 WDSW PZE RG122190 | 61512 0 00000 0 00000 WDSIN PZE RG122200 | 61513 0 00000 0 00000 WDOUT PZE RG122210 61514 0 00000 0 00000 CHRCNT PZE 0 RG122220 | 61515 0 00000 0 51542 E8190 PZE P2AA5-1 RG122230 | 61516 -377600000000 E8200 OCT 777600000000 RG122240 | 61517 +000000000044 E8210 OCT 000000000044 RG122250 | 61520 +004000000000 E8220 OCT 004000000000 RG122260 61521 0402 00 0 04674 E8230 SUB LZERO+2 0 RG122270 | 61522 0402 00 0 04672 E8240 SUB LZERO + RG122280 | 61523 0402 00 0 04673 E8250 SUB LZERO+1 BLANK RG122290 | 61524 -0760 00 0 00003 E8260 SSM OTHER TYPE CCC RG122300 | 61525 +020000210000 KEY1A OCT 020000210000 RG122310 61526 +020000200002 KEY2A OCT 020000200002 RG122320 | 61527 +100000000000 KEY2B OCT 100000000000 RG122330 | 61530 +020021000000 KEY3B OCT 020021000000 RG122340 | 61531 0 00000 0 00000 E8280 PZE 0 TEMP. KEY STORAGE RG122350 | 61532 -377400000000 E8290 OCT 777400000000 RG122360 61533 0 00000 0 73006 E8298 PZE BINBUF+1 RG122370 | 61534 0 00000 0 00000 E8299 PZE 0 RG122380 | 61535 -377777777773 E8300 OCT 777777777773 RG122390 | 61536 -206060000000 E8310 OCT 606060000000 RG122400 | 61537 +007777777777 E8320 OCT 007777777777 RG122410 61540 +171717000000 E8325 OCT 171717000000 RG122420 | 61541 0 00000 0 00000 E8360 PZE 0 INPUT NO OF WORDS RG122430 | 61542 0761 00 0 00000 E8365 NOP 0 RG122440 | 61543 0 00000 0 00000 E8370 PZE 0 OUTPUT NO OF WORDS RG122450 | 61544 +000000177700 E8375 OCT 000000177700 TO PRESERVE LENGTH RG122460 61545 0600 60 0 00002 E8380 STZ* 2 RG122470 | 61546 +030303030303 E8381 OCT 030303030303 RG122480 | 61547 000000006060 CON2BL BCI 1,0000 RG122490 | 61550 000000220000 BCONST BCI 1,000B00 RG122500 | 61551 0020 00 0 00002 PRI01 TRA 2 RG122510 61552 0020 00 0 00005 PRI02 TRA 5 RG122520 | 61553 0 00001 0 00000 PRK10 PZE 0,0,1 1 IN DECREMENT RG122530 | 61554 0020 00 0 00003 PRI03 TRA 3 RG122540 | 61555 -0500 00 0 00000 CAL 0 RG122550 | 61556 -0602 00 0 00001 ORS 1 RG122560 61557 +202000000000 PRK03 OCT 202000000000 RG122570 | 61560 0020 00 0 00004 PRI04 TRA 4 RG122580 | 61561 -0500 00 0 00000 CAL 0 RG122590 | 61562 -0602 00 0 00005 ORS 5 RG122600 | 61563 0020 00 0 00004 TRA 4 RG122610 61564 +202200000000 PRK04 OCT 202200000000 RG122620 | 61565 0020 00 0 00005 PRI05 TRA 5 RG122630 | 61566 -0500 00 0 00000 CAL 0 RG122640 | 61567 -0602 00 0 00006 ORS 6 RG122650 | 1 LISTING OF 12/01/64 PAGE 281 CONSTANTS | | 61570 -0602 00 0 00007 ORS 7 RG122660 | 61571 0020 00 0 00004 TRA 4 RG122670 | 61572 +202220000000 PRK05 OCT 202220000000 RG122680 61573 0020 00 0 00004 PRI06 TRA 4 RG122690 | 61574 -0500 00 0 00000 CAL 0 RG122700 | 61575 -0602 00 0 00004 ORS 4 RG122710 | 61576 -0602 00 0 00001 ORS 1 RG122720 | 61577 +010000000000 PRK07 OCT 010000000000 RG122730 61600 -0500 00 0 00000 PRI07 CAL 0 RG122740 | 61601 0320 00 0 00002 ANS 2 RG122750 | 61602 0 00000 0 00000 PRTSW PZE RG122760 | 61603 0560 00 0 73023 IP38 LDQ BCDBUF NO PUNCT. CONVERT ROUTINE RG122770 | 61604 -0600 00 0 74247 STQ INTBUF * RG122780 61605 0074 00 4 74040 TSX SPNP8C,4 SPNP8C RG122790 | 61606 0074 00 4 74026 TSX SPNP7C,4 SPNP7C RG122800 | 61607 -0154 06 0 74255 CRQ NPTBL,0,6 NO PUCTUATION 6 CHARACTERS RG122810 | 61610 -0154 06 0 74254 CRQ NPTBL5,0,6 NO PUNCTUATION 5 CHARACTERS RG122820 | 61611 -0154 06 0 74253 CRQ NPTBL4,0,6 NO PUNCTUATION 4 CHARACTERS RG122830 61612 -0154 06 0 74252 CRQ NPTBL3,0,6 NO PUNCTUATION CHARACTERS RG122840 | 61613 -0154 06 0 74251 CRQ NPTBL2,0,6 NO PUNCTUATION 2 CHARACTERS RG122850 | 61614 -0154 06 0 74250 CRQ NPTBL1,0,6 NO PUNCTUATION 1 CHARACTERS RG122860 | 61615 0 00000 0 00000 NPCRQ PZE 0 RG122870 | 61616 0074 00 4 73771 IP39 TSX HSKPG1,4 RG122880 61617 0074 00 4 74001 TSX HSKPG2,4 +1 RG122890 | 61620 0074 00 4 73746 TSX SIGN,4 +2 RG122900 | 61621 0074 00 4 74013 TSX ZELIM1,4 +3 RG122910 | 61622 0074 00 4 74020 TSX ZELIM2,4 +4 RG122920 | 61623 0774 00 4 00000 IP40 AXT 0,4 RG122930 61624 0634 00 2 00012 SXA 10,2 +1 RG122940 | 61625 -0500 00 4 00000 CAL 0,4 2 RG122950 | 61626 0560 00 4 00000 LDQ 0,4 3 RG122960 | 61627 -0763 00 0 00000 LGL 0 4 RG122970 | 61630 0602 00 2 00000 SLW 0,2 5 RG122980 61631 1 77777 2 00001 TXI 1,2,-1 6 RG122990 | 61632 2 00001 4 00005 TIX 5,4,1 7 RG123000 | 61633 -0500 00 4 00000 CAL 0,4 8 RG123010 | 61634 0767 00 0 00000 ALS 0 9 RG123020 | 61635 -0602 00 2 00000 ORS 0,2 10 RG123030 61636 0774 00 2 00000 AXT 0,2 11 RG123040 | 61637 0634 00 2 00017 SXA 15,2 12 RG123050 | 61640 0774 00 4 00000 IP41 AXT 0,4 RG123060 | 61641 0634 00 2 00007 SXA 7,2 +7 RG123070 | 61642 -0500 00 4 00000 CAL 0,4 RG123080 61643 -0602 00 2 00000 ORS 0,2 RG123090 | 61644 -0500 00 4 00000 CAL 0,4 RG123100 | 61645 0602 00 2 00000 SLW 0,2 RG123110 | 61646 1 77777 2 00001 TXI 1,2,-1 +1 RG123120 | 61647 2 00001 4 00003 TIX 3,4,1 -3 RG123130 61650 0774 00 2 00000 AXT 0,2 RG123140 | 61651 0634 00 2 00005 SXA 5,2 RG123150 | 61652 0 00000 0 00000 ZELSW PZE 0 ZERO ELIMINATE SW RG123160 | 61653 0 00000 0 74247 LOCINT PZE INTBUF LOCATION OF INT BUFFER RG123170 | 61654 0 00000 0 00000 LOCPZE PZE 0 LOCATION OF ZERO FLIM PZE RG123180 61655 -0773 00 0 00006 RQL 6 5 CHARACTERS RG123190 | 61656 -0773 00 0 00014 RQL 12 4 RG123200 | 1 LISTING OF 12/01/64 PAGE 282 | CONSTANTS | 61657 -0773 00 0 00022 RQL 18 3 RG123210 | 61660 -0773 00 0 00030 RQL 24 2 RG123220 | 61661 -0773 00 0 00036 RQL 30 1 RG123230 | 61662 0 00000 0 00000 RQLTBL PZE 0 RG123240 | 61663 -0154 00 0 74307 CRQ PTBL4,0,0 RG123250 61664 -0154 00 0 74321 CRQ PTBL3,0,0 RG123260 | 61665 -0154 00 0 74333 CRQ PTBL2,0,0 RG123270 | 61666 -0154 00 0 74345 CRQ PTBL1,0,0 RG123280 | 61667 0 00000 0 00000 CRQTBL PZE 0 RG123290 | 61670 +020000000000 KEY OCT 020000000000 RG123300 61671 +002000000000 OCT 002000000000 RG123310 | 61672 0074 00 4 74237 TSX SP4D8C,4 RG123320 | 61673 0074 00 4 74230 TSX SP4D7C,4 RG123330 | 61674 0074 00 4 74207 SP9140 TSX SP4D6C,4 RG123340 | 61675 0074 00 4 74200 TSX SP3D8C,4 RG123350 61676 0074 00 4 74171 TSX SP3D7C,4 RG123360 | 61677 0074 00 4 74150 SP9155 TSX SP3D6C,4 RG123370 | 61700 0074 00 4 74141 TSX SP2D8C,4 RG123380 | 61701 0074 00 4 74132 TSX SP2D7C,4 RG123390 | 61702 0074 00 4 74111 SP9170 TSX SP2D6C,4 RG123400 61703 0074 00 4 74102 TSX SP1D8C,4 RG123410 | 61704 0074 00 4 74073 TSX SP1D7C,4 RG123420 | 61705 0074 00 4 74052 SP9185 TSX SP1D6C,4 RG123430 | 61706 0 00000 4 61674 PZE SP9140,4 4 DECIMAL PLACES RG123440 | 61707 0 00000 4 61677 PZE SP9155,4 3 RG123450 61710 0 00000 4 61702 PZE SP9170,4 2 RG123460 | 61711 0 00000 4 61705 PZE SP9185,4 1 RG123470 | 61712 0 00000 0 00000 SPTSX PZE 0 RG123480 | 61713 -370000000000 SPMSK OCT 770000000000 RG123490 | 61714 +000000000017 OCT 000000000017 +1 RG123500 * RG123510 | 1 LISTING OF 12/01/64 PAGE 283 | P2PUT SUBROUTINE | | * RG123530 61715 0634 00 1 61776 P2PUT SXA F0410,1 SAVE IR S RG123540 | 61716 0634 00 2 61777 SXA F0420,2 * RG123550 | 61717 0634 00 4 62000 SXA F0430,4 * RG123560 | 61720 0600 00 0 36540 STZ WDCNT RG123570 | 61721 0774 00 1 00000 AXT 0,1 RG123580 61722 0560 60 0 61454 LDQ* OPE1 UNPACK OUTPUT ENTRY RG123590 | 61723 -0754 00 0 00000 PXD 0,0 STORE WORD RG123600 | 61724 -0763 00 0 00012 LGL 10 * RG123610 | 61725 0621 00 0 36534 STA P2WI * RG123620 | 61726 0621 00 0 61162 STA IP05+1 * RG123630 61727 -0754 00 0 00000 PXD 0,0 STORE BIT POSITION RG123640 | 61730 -0763 00 0 00012 LGL 10 * RG123650 | 61731 0621 00 0 36535 STA P2BI * RG123660 | 61732 -0754 00 0 00000 PXD 0,0 STORE LENGTH RG123670 | 61733 -0763 00 0 00012 LGL 10 * RG123680 61734 0621 00 0 36536 STA P2LI * RG123690 | 61735 0600 00 0 61477 STZ SW5 RG123700 | 61736 -0500 00 4 00001 CAL 1,4 RG123710 | 61737 0602 00 0 61463 SLW SAVE1 RG123720 | 61740 0600 00 0 61652 STZ ZELSW RG123730 61741 0774 00 2 00000 AXT 0,2 RG123740 | 61742 -0500 60 0 61453 CAL* OPE PICK UP 1ST OUTPUT ENTRY RG123750 | 61743 -0320 00 0 07332 ANA MASK+13 * RG123760 | 61744 -0100 00 0 62575 TNZ F5001 *STORE FOR PRINT RG123770 | 61745 -0500 00 0 61463 F0185 CAL SAVE1 TEST FOR PUT FROM STORAGE RG123780 61746 0441 60 0 61454 LDI* OPE1 TEST FOR BINARY RG123790 | 61747 -0100 00 0 61755 TNZ F0250 $ YES RG123800 | 61750 0054 00 000004 RFT 4 * YES RG123810 | 61751 0020 00 0 61754 TRA *+3 * NO RG123820 | 61752 -0500 00 0 61174 CAL IP10 STORE ADDRESS TO CAL + LDQ RG123830 61753 0020 00 0 61755 TRA *+2 * RG123840 | 61754 -0500 00 0 61175 CAL IP10+1 * RG123850 | 61755 0621 00 0 61231 F0250 STA IP18 * RG123860 | 61756 0621 00 0 61235 STA IP19+1 * RG123870 | 61757 0054 00 000006 RFT 6 UNPACKED RG123880 61760 0020 00 0 61762 TRA *+2 NO RG123890 | 61761 0020 00 0 61771 TRA F0340 RG123900 | 61762 -0500 00 0 36536 CAL P2LI COMPARE LENGTH TO 36 RG123910 | 61763 -0340 00 0 61374 LAS C1 * RG123920 | 61764 0020 00 0 62106 TRA F1200 * H1, TRA TO REF 4 RG123930 61765 0020 00 0 61767 TRA *+2 * EQ, RG123940 | 61766 0020 00 0 62003 TRA F0450 * LO, RG123950 | 61767 -0500 00 0 36535 CAL P2BI IS FIELD RIGHT JUSTIFIED RG123960 | 61770 -0100 00 0 62003 TNZ F0450 * NO RG123970 | 61771 -0500 00 0 61231 F0340 CAL IP18 * YES, MOVE TO TWA RG123980 61772 0602 00 2 36776 SLW TWA,2 * RG123990 | 61773 -0500 00 0 61162 CAL IP05+1 * SLW TO TWA +1 RG124000 | 61774 0602 00 2 36777 SLW TWA+1,2 * RG124010 | 61775 1 77776 2 62335 TXI F2320,2,-2 * SET WDCNT TO 2 RG124020 | 61776 0774 00 1 00000 F0410 AXT 0,1 REF 3, RESTORE IR S RG124030 61777 0774 00 2 00000 F0420 AXT 0,2 RG124040 | 62000 0774 00 4 00000 F0430 AXT 0,4 RG124050 | 62001 0602 00 0 61437 SLW KEY3 RG124060 | 62002 0020 00 4 00002 TRA 2,4 EXIT RG124070 | 1 LISTING OF 12/01/64 PAGE 284 P2PUT SUBROUTINE | | 62003 0441 00 0 07162 F0450 LDI PARA IS THIS A REPORT RG124080 | 62004 -0054 00 000001 LFT 1 * RG124090 | 62005 0020 00 0 62014 TRA F0540 * YES RG124100 62006 0500 00 0 36535 CLA P2BI RECORDS RG124110 | 62007 0400 00 0 36536 ADD P2LI * IS FIELD CONTAINED IN TWO WORDSRG124120 | 62010 -0340 00 0 61374 LAS C1 * COMPARE BIT PLUS LENGTH TO 36 RG124130 | 62011 0020 00 0 62072 TRA F1070 *H1 RG124140 | 62012 0020 00 0 62046 TRA F0880 RG124150 62013 0020 00 0 62046 TRA F0880 *LO RG124160 | 62014 -0500 60 0 61454 F0540 CAL* OPE1 RG124170 | 62015 0074 00 4 57543 TSX B0010,4 TO BUILD MASK SUBROUTINE RG124180 | 62016 -0 00000 0 00000 MZE * PUT DOWN ONLY RG124190 | 62017 -0500 00 0 61451 CAL MAD2A IS RIGHTMOST WORD MASKE+ INOUTPUTRG124200 62020 0100 00 0 62033 TZE F0700 * NO, TO REFERENCE 1 RG124210 | 62021 0621 00 0 61146 STA IP01 * YES, PUT MASK ADDRESSTO INST RG124220 | 62022 -0500 00 0 36534 CAL P2WI BUILD OUTPUT MASK INST RG124230 | 62023 0400 00 0 61376 ADD C1+2 * RG124240 | 62024 0621 00 0 61147 STA IP01+1 * RG124250 62025 -0500 00 0 61146 CAL IP01 PLACE INSTRUCTIONS IN TWA RG124260 | 62026 0602 00 2 36776 SLW TWA,2 * RG124270 | 62027 -0500 00 0 61147 CAL IP01+1 * RG124280 | 62030 0602 00 2 36777 SLW TWA+1,2 * RG124290 | 62031 1 77776 2 62032 TXI *+1,2,-2 * RG124300 62032 -0625 00 0 61477 STL SW5 RG124310 | 62033 -0500 00 0 61447 F0700 CAL MAD1A BUILD LEFTMOST MASKING INST-REF1 RG124320 | 62034 0621 00 0 61146 STA IP01 * RG124330 | 62035 -0500 00 0 36534 CAL P2WI * RG124340 | 62036 0621 00 0 61147 STA IP01+1 * RG124350 62037 -0500 00 0 61146 CAL IP01 * RG124360 | 62040 0602 00 2 36776 SLW TWA,2 * RG124370 | 62041 -0500 00 0 61147 CAL IP01+1 * RG124380 | 62042 0602 00 2 36777 SLW TWA+1,2 RG124390 | 62043 1 77776 2 62044 TXI *+1,2,-2 RG124400 62044 0520 00 0 61477 F0860 ZET SW5 REF 5 RG124410 | 62045 0020 00 0 62072 TRA F1070 TRA-FOR 2 WORDS RG124420 | 62046 -0500 00 0 36534 F0880 CAL P2WI CALCULATE ADDRESS FOR INSTR. RG124430 | 62047 0621 00 0 61233 STA IP18+2 * RG124440 | 62050 -0500 00 0 61374 CAL C1 * RG124450 62051 0402 00 0 36535 SUB P2BI * RG124460 | 62052 0402 00 0 36536 SUB P2LI * RG124470 | 62053 0100 00 0 62065 TZE F1054 RG124480 | 62054 0621 00 0 61232 STA IP18+1 * RG124490 | 62055 -0500 00 0 61433 CAL IPAD1 SET UP MOVE LOOP FOR 1 WORD RG124500 62056 0602 00 0 62060 SLW F1000 * RG124510 | 62057 0774 00 4 00003 AXT 3,4 * RG124520 | 62060 -0500 00 4 61234 F1000 CAL IP18+3,4 * TO BE MODIFIED RG124530 | 62061 0602 00 2 36776 SLW TWA,2 RG124540 | 62062 1 77777 2 62063 TXI *+1,2,-1 * RG124550 62063 2 00001 4 62060 TIX F1000,4,1 * RG124560 | 62064 0020 00 0 62335 TRA F2320 * RG124570 | 62065 -0500 00 0 61231 F1054 CAL IP18 RG124580 | 62066 0602 00 2 36776 SLW TWA,2 RG124590 | 62067 -0500 00 0 61233 CAL IP18+2 RG124600 62070 0602 00 2 36777 SLW TWA+1,2 RG124610 | 62071 1 77776 2 62335 TXI F2320,2,-2 RG124620 | 1 LISTING OF 12/01/64 PAGE 285 | P2PUT SUBROUTINE | 62072 -0500 00 0 36534 F1070 CAL P2WI SET UP 2 WORDS INSTRUCTIONS RG124630 | 62073 0621 00 0 61237 STA IP19+3 * RG124640 | 62074 0400 00 0 61376 ADD C1+2 * RG124650 | 62075 0621 00 0 61241 STA IP19+5 * RG124660 | 62076 0500 00 0 61407 CLA C3 * RG124670 62077 0402 00 0 36535 SUB P2BI * RG124680 | 62100 0402 00 0 36536 SUB P2LI * RG124690 | 62101 0621 00 0 61236 STA IP19+2 * RG124700 | 62102 -0500 00 0 61434 CAL IPAD2 SET UP MOVE LOOP FOR 2 WDS RG124710 | 62103 0602 00 0 62060 SLW F1000 * RG124720 62104 0774 00 4 00006 AXT 6,4 * RG124730 | 62105 0020 00 0 62060 TRA F1000 RG124740 | * IR2 CONTAINS TWOS COMPLIMENT OF RG124750 | * NUMBER OF WORDS TO TWA. RG124760 | 62106 0754 00 0 00000 F1200 PXA 0,0 RG124770 62107 0560 00 0 36536 LDQ P2LI GET LEN OF OUTPUT RG124780 | 62110 0220 00 0 61374 DVH C1 DIVIDE LEN BY 36 RG124790 | 62111 0100 00 0 62115 TZE *+4 NO REMAINDER RG124800 | 62112 -0130 00 0 00000 XCL * RG124810 | 62113 0400 00 0 61376 ADD C1+2 ADD ONE RG124820 62114 0020 00 0 62116 TRA *+2 * RG124830 | 62115 -0130 00 0 00000 XCL * RG124840 | 62116 0621 00 0 61512 STA WDSIN SAVE NO OF WORDS RG124850 | 62117 -0500 00 0 61463 CAL SAVE1 IS PUT FROM STORAGE RG124860 | 62120 -0100 00 0 62126 TNZ F1280 * YES RG124870 62121 0441 60 0 61454 LDI* OPE1 BCD OR BIN OUTPUT RG124880 | 62122 0054 00 000004 RFT 4 RG124890 | 62123 0020 00 0 63224 TRA F7200 BCD RG124900 | 62124 0500 00 0 61533 CLA E8298 BIN BIN BUFFER LOC +1 RG124910 | 62125 0402 00 0 61512 F1275 SUB WDSIN RG124920 62126 0621 00 0 61161 F1280 STA IP05 CAL SLW X,2 RG124930 | 62127 0621 00 0 61150 STA IP02 CAL+ORS X,2 RG124940 | 62130 0621 00 0 61361 STA IP36+2 1DQ RG124950 | 62131 0500 00 0 36535 F1290 CLA P2BI COMPUTE AMOUNT OF LEFT SHIFT RG124960 | 62132 0400 00 0 36536 ADD P2LI * RG124970 62133 0131 00 0 00000 F1300 XCA * RG124980 | 62134 0754 00 0 00000 PXA 0,0 * RG124990 | 62135 0220 00 0 61374 DVH C1 * RG125000 | 62136 0100 00 0 63226 TZE F7220 NO SHIFT REQUIRED RG125010 | 62137 0402 00 0 61374 SUB C1 SUBTRACT 36 RG125020 62140 0621 00 0 61465 STA SHSW AMOUNT OF LEFT SHIFT RG125030 | 62141 -0130 00 0 00000 XCL ADD ONE TO NUMBER OF WORDS RG125040 | 62142 0400 00 0 61376 ADD C1+2 * RG125050 | 62143 0621 00 0 61513 F1356 STA WDOUT * RG125060 | 62144 0441 00 0 07162 LDI PARA IS PUTPUT RECORD RG125070 62145 -0056 00 000001 LNT 1 RG125080 | 62146 0020 00 0 62543 TRA F4100 YES RG125090 | 62147 -0500 60 0 61454 CAL* OPE1 TSX TO BUILD RG125100 | 62150 0074 00 4 57543 TSX B0010,4 SUBROUTINE FOR OUTPUT RG125110 | 62151 -0 00000 0 00000 MZE RG125120 62152 -0500 00 0 61447 CAL MAD1A NO, IS LEFT MASK REQUIRED RG125130 | 62153 0100 00 0 62164 TZE F1520 NO. RG125140 | 62154 0621 00 0 61146 STA IP01 CAL ANS X,2 RG125150 | 62155 -0500 00 0 36534 CAL P2WI RG125160 | 62156 0621 00 0 61147 STA IP01+1 RG125170 1 LISTING OF 12/01/64 PAGE 286 | P2PUT SUBROUTINE | | 62157 -0500 00 0 61146 CAL IP01 MOVE CAL ANS TO TWA RG125180 | 62160 0602 00 2 36776 SLW TWA,2 AREA RG125190 62161 -0500 00 0 61147 CAL IP01+1 * RG125200 | 62162 0602 00 2 36777 SLW TWA+1,2 * RG125210 | 62163 1 77776 2 62164 TXI *+1,2,-2 UPDATE WORD COUNT RG125220 | 62164 -0500 00 0 61451 F1520 CAL MAD2A IS RIGHT MASK REQUIRED. RG125230 | 62165 0100 00 0 62200 TZE F1720 NO. RG125240 62166 0621 00 0 61146 STA IP01 YES RG125250 | 62167 0500 00 0 36534 CLA P2WI * RG125260 | 62170 0400 00 0 61376 ADD C1+2 ADD 1 RG125270 | 62171 0400 00 0 61452 ADD MAD3 ADD NO OF INTERNAL WORDS RG125280 | 62172 0621 00 0 61147 STA IP01+1 RG125290 62173 -0500 00 0 61146 CAL IP01 MOVE CAL ANS TO TWA RG125300 | 62174 0602 00 2 36776 SLW TWA,2 AREA RG125310 | 62175 -0500 00 0 61147 CAL IP01+1 RG125320 | 62176 0602 00 2 36777 SLW TWA+1,2 RG125330 | 62177 1 77776 2 62200 TXI *+1,2,-2 RG125340 62200 -0500 00 0 61465 F1720 CAL SHSW TEST IS SHIFT REQUIRED RG125350 | 62201 -0100 00 0 62244 TNZ F2100 YES RG125360 | 62202 0534 00 4 61512 LXA WDSIN,4 DOES NUMBER OF WORDS EXCEED 11 RG125370 | 62203 3 00013 4 63014 TXH F5600,4,11 TRA IF YES RG125380 | 62204 -0500 00 0 61447 CAL MAD1A NO IS LEFT MASK REQUIRED RG125390 62205 0100 00 0 62224 TZE F1880 *,NO RG125400 | 62206 -0500 00 0 36534 CAL P2WI *,YES RG125410 | 62207 0621 00 0 61151 STA IP02+1 TO ORS X,2 RG125420 | 62210 0400 00 0 61376 ADD C1+2 ADD ONE RG125430 | 62211 0621 00 0 61162 STA IP05+1 RG125440 62212 -0500 00 0 61161 CAL IP05 ADD ONE TO CAL INSTRUCTION RG125450 | 62213 0400 00 0 61376 ADD C1+2 ADD ONE RG125460 | 62214 0602 00 0 61161 SLW IP05 * RG125470 | 62215 -0500 00 0 61150 CAL IP02 MOVE INST PATTERN RG125480 | 62216 0602 00 2 36776 SLW TWA,2 TO WORK AREA RG125490 62217 -0500 00 0 61151 CAL IP02+1 * RG125500 | 62220 0602 00 2 36777 SLW TWA+1,2 * RG125510 | 62221 1 77776 2 62222 TXI *+1,2,-2 MODIFY COUNT RG125520 | 62222 0534 00 1 61512 LXA WDSIN,1 NUMBER OF WORDS MINUS ONE TO IR1 RG125530 | 62223 1 77777 1 62227 TXI F1900,1,-1 * RG125540 62224 -0500 00 0 36534 F1880 CAL P2WI RG125550 | 62225 0621 00 0 61162 STA IP05+1 RG125560 | 62226 0534 00 1 61512 LXA WDSIN,1 NUMBER OF WORDS TO IR1 RG125570 | 62227 -0500 00 0 61161 F1900 CAL IP05 ESTABLISH PATTERN RG125580 | 62230 0602 00 2 36776 SLW TWA,2 RG125590 62231 -0500 00 0 61162 CAL IP05+1 RG125600 | 62232 0602 00 2 36777 SLW TWA+1,2 RG125610 | 62233 1 77776 2 62234 TXI *+1,2,-2 RG125620 | 62234 -0500 00 0 61161 CAL IP05 AD ONE TO ADDRESS OF CAL RG125630 | 62235 0400 00 0 61376 ADD C1+2 * RG125640 62236 0602 00 0 61161 SLW IP05 * RG125650 | 62237 -0500 00 0 61162 CAL IP05+1 ADD ONE TO ADDRESS OF SLW RG125660 | 62240 0400 00 0 61376 ADD C1+2 RG125670 | 62241 0602 00 0 61162 SLW IP05+1 RG125680 | 62242 2 00001 1 62227 TIX F1900,1,1 RG125690 62243 0020 00 0 62335 TRA F2320 RG125700 | 62244 0621 00 0 61362 F2100 STA IP36+3 TO LGL RG125710 | 62245 0621 00 0 61366 STA IP37+2 TO LGL RG125720 | 1 LISTING OF 12/01/64 PAGE 287 | P2PUT SUBROUTINE | 62246 0621 00 0 61232 STA IP18+1 TO ALS RG125730 | 62247 0621 00 0 61627 STA IP40+4 RG125740 | 62250 0621 00 0 61634 STA IP40+9 RG125750 | 62251 0560 00 0 61357 LDQ IP36 COMPARE NO OF WORDS IN TO NO RG125760 62252 0500 00 0 61512 CLA WDSIN OF WORDS OUT RG125770 | 62253 0402 00 0 61513 SUB WDOUT * RG125780 | 62254 -0100 00 0 62261 TNZ *+5 * RG125790 | 62255 -0500 00 0 61361 CAL IP36+2 INCREASE LDQ ADDR BY ONE RG125800 | 62256 0400 00 0 61376 ADD C1+2 RG125810 62257 0602 00 0 61361 SLW IP36+2 RG125820 | 62260 0560 00 0 61150 LDQ IP02 SET CAL AS 1ST INSTR RG125830 | 62261 -0600 00 0 61360 STQ IP36+1 OR SET PXA AS 1ST INSTR RG125840 | 62262 0560 00 0 61151 LDQ IP02+1 LOAD ORS,2 RG125850 | 62263 -0500 00 0 61447 CAL MAD1A IS LEFT MASK REQUIRED RG125860 62264 -0100 00 0 62266 TNZ *+2 YES RG125870 | 62265 0560 00 0 61162 LDQ IP05+1 NO LOAD SLW 0,2 RG125880 | 62266 -0600 00 0 61363 STQ IP36+4 * RG125890 | 62267 -0500 00 0 36534 CAL P2WI INITIALIZE ORS OR SLW RG125900 | 62270 0621 00 0 61363 STA IP36+4 RG125910 62271 -0500 00 0 61361 CAL IP36+2 SET ADDR OF CAL RG125920 | 62272 0621 00 0 61364 STA IP37 RG125930 | 62273 0400 00 0 61376 ADD C1+2 ADD ONE RG125940 | 62274 0621 00 0 61365 STA IP37+1 SET ADDR OF LDQ RG125950 | 62275 -0500 00 0 61363 CAL IP36+4 SET INITIAL ADDRESS OF SLW RG125960 62276 0621 00 0 61630 STA IP40+5 RG125970 | 62277 0621 00 0 61635 STA IP40+10 RG125980 | 62300 0400 00 0 61376 ADD C1+2 ADD ONE RG125990 | 62301 0621 00 0 61367 STA IP37+3 RG126000 | 62302 0534 00 4 61512 LXA WDSIN,4 DOES NO OF WORDS EXCEED 5 RG126010 62303 3 00004 4 63106 TXH F6000,4,4 RG126020 | 62304 -0500 00 0 61360 CAL IP36+1 RG126030 | 62305 0602 00 2 36776 SLW TWA,2 RG126040 | 62306 -0500 00 0 61361 CAL IP36+2 RG126050 | 62307 0602 00 2 36777 SLW TWA+1,2 RG126060 62310 -0500 00 0 61362 CAL IP36+3 RG126070 | 62311 0602 00 2 37000 SLW TWA+2,2 RG126080 | 62312 -0500 00 0 61363 CAL IP36+4 RG126090 | 62313 0602 00 2 37001 SLW TWA+3,2 RG126100 | 62314 1 77774 2 62315 TXI *+1,2,-4 RG126110 62315 -0500 00 0 61452 CAL MAD3 ANY INTERMEDIATE WORDS RG126120 | 62316 -0100 00 0 62356 TNZ F2350 YES RG126130 | 62317 0500 00 0 61512 CLA WDSIN NO DOES NO OF WORDS RG126140 | 62320 0402 00 0 61513 SUB WDOUT IN EQUAL NO OF WORDS OUT RG126150 | 62321 -0100 00 0 62356 TNZ F2350 NO RG126160 62322 -0500 00 0 61364 CAL IP37 YES SET ADDR OF CAL RG126170 | 62323 0621 00 0 61231 STA IP18 AND ADDR OF ORS RG126180 | 62324 -0500 00 0 61367 CAL IP37+3 * RG126190 | 62325 0621 00 0 61233 STA IP18+2 RG126200 | 62326 -0500 00 0 61231 F2290 CAL IP18 ESTABLISH FINAL PATTERN RG126210 62327 0602 00 2 36776 SLW TWA,2 RG126220 | 62330 -0500 00 0 61232 CAL IP18+1 RG126230 | 62331 0602 00 2 36777 SLW TWA+1,2 RG126240 | 62332 -0500 00 0 61233 CAL IP18+2 RG126250 | 62333 0602 00 2 37000 SLW TWA+2,2 RG126260 62334 1 77775 2 62335 TXI *+1,2,-3 RG126270 | 1 LISTING OF 12/01/64 PAGE 288 | P2PUT SUBROUTINE | | 62335 0754 00 2 00000 F2320 PXA 0,2 ESTABLISH WORD COUNT RG126280 62336 0760 00 0 00006 COM AS ACTUAL RG126290 | 62337 0400 00 0 61376 ADD C1+2 * RG126300 | 62340 0621 00 0 36540 STA WDCNT * RG126310 | 62341 0520 00 0 61652 ZET ZELSW WAS IT WRITE MODE 2 OR 3 RG126320 | 62342 0020 00 0 62346 TRA *+4 YES RG126330 62343 0560 00 0 07320 LDQ MASK+3 NO SET UP KEYS OF RG126340 | 62344 0760 00 0 00000 CLM ALL ZEROS RG126350 | 62345 0020 00 0 61776 TRA F0410 LEAVE. RG126360 | 62346 0754 00 2 00000 PXA 0,2 DETERMINE RELATIVE ADDR RG126370 | 62347 0402 00 0 61654 SUB LOCPZE FOR PZE RG126380 62350 0534 00 1 61654 LXA LOCPZE,1 * RG126390 | 62351 0621 00 1 36776 STA TWA,1 PUT RELATIVE TRA TO PZE RG126400 | 62352 1 00001 1 62353 TXI *+1,1,1 READY IR1 RG126410 | 62353 0560 00 1 61670 LDQ KEY,1 SET UP PROPER KEY IN RG126420 | 62354 0760 00 0 00000 CLM MQ FOR PZE RG126430 62355 0020 00 0 61776 TRA F0410 LEAVE RG126440 | 62356 0734 00 1 00000 F2350 PAX 0,1 SET UP IR1 FOR LOOP RG126450 | 62357 -0500 00 0 61364 F2355 CAL IP37 MOVE PATTERN TO AREA RG126460 | 62360 0602 00 2 36776 SLW TWA,2 * RG126470 | 62361 -0500 00 0 61365 CAL IP37+1 RG126480 62362 0602 00 2 36777 SLW TWA+1,2 * RG126490 | 62363 -0500 00 0 61366 CAL IP37+2 * RG126500 | 62364 0602 00 2 37000 SLW TWA+2,2 * RG126510 | 62365 -0500 00 0 61367 CAL IP37+3 * RG126520 | 62366 0602 00 2 37001 SLW TWA+3,2 * RG126530 62367 1 77774 2 62370 TXI *+1,2,-4 RG126540 | 62370 2 00001 1 62377 TIX F2410,1,1 ANY MORE INTERMEDIATE WORDS. RG126550 | 62371 -0500 00 0 61365 CAL IP37+1 SET ADDR OF CAL RG126560 | 62372 0621 00 0 61231 STA IP18 AND ORS RG126570 | 62373 -0500 00 0 61367 CAL IP37+3 * RG126580 62374 0400 00 0 61376 ADD C1+2 * RG126590 | 62375 0621 00 0 61233 STA IP18+2 * RG126600 | 62376 0020 00 0 62326 TRA F2290 RG126610 | 62377 -0500 00 0 61364 F2410 CAL IP37 YES, UPDATE ADDRESSES RG126620 | 62400 0400 00 0 61376 ADD C1+2 * RG126630 62401 0621 00 0 61364 STA IP37 * RG126640 | 62402 -0500 00 0 61365 CAL IP37+1 * RG126650 | 62403 0400 00 0 61376 ADD C1+2 * RG126660 | 62404 0621 00 0 61365 STA IP37+1 * RG126670 | 62405 -0500 00 0 61367 CAL IP37+3 * RG126680 62406 0400 00 0 61376 ADD C1+2 * RG126690 | 62407 0621 00 0 61367 STA IP37+3 * RG126700 | 62410 0020 00 0 62357 TRA F2355 RG126710 | 62411 0600 00 0 37000 F2600 STZ TWA+2 ZERO PUNCTUATION KEY RG126720 | 62412 -0500 60 0 61455 CAL* OPE2 GET PUNCTUATION WORD RG126730 62413 -0320 00 0 61546 ANA E8381 IS THERE ANY PUNCTUATION RG126740 | 62414 0100 00 0 62443 TZE F2668 NO, DO NOT BUILD KEY RG126750 | 62415 0774 00 4 00044 AXT 36,4 TES, SCAN WORD FROM LEFT RG126760 | 62416 0560 60 0 61455 LDQ* OPE2 RG126770 | 62417 0754 00 0 00000 F2612 PXA 0,0 RG126780 62420 -0763 00 0 00004 LGL 4 IS CONSEC X COUNT ZERO RG126790 | 62421 0100 00 0 62437 TZE F2644 YES, STOP SCAN RG126800 | 62422 0402 00 0 61376 SUB C1+2 NO, CONVERT FOR SFP ROUTINE RG126810 | 62423 0602 00 0 61506 SLW TEMPS * RG126820 | 1 LISTING OF 12/01/64 PAGE 289 P2PUT SUBROUTINE | | 62424 0767 00 0 00001 ALS 1 * RG126830 | 62425 0400 00 0 61506 ADD TEMPS * RG126840 | 62426 0602 00 0 61506 SLW TEMPS * RG126850 62427 0754 00 0 00000 PXA 0,0 * RG126860 | 62430 -0763 00 0 00002 LGL 2 IS PUNCTUATION CODE ZERO RG126870 | 62431 0100 00 0 62437 TZE F2644 YES, STOP SCAN RG126880 | 62432 0400 00 0 61506 ADD TEMPS NO, FINISH CONVERTING RG126890 | 62433 0767 00 4 00044 ALS 36,4 ARRANGE IN REVERSE ORDER RG126900 62434 -0602 00 0 37000 ORS TWA+2 RG126910 | 62435 2 00006 4 62417 TIX F2612,4,6 RG126920 | 62436 0020 00 0 62443 TRA F2668 KEY COMPLETED RG126930 | 62437 -0500 00 0 37000 F2644 CAL TWA+2 LEFT JUSTIFY PUNCTUATION KEY RG126940 | 62440 0634 00 4 62441 SXA *+1,4 * RG126950 62441 0767 00 0 00000 ALS ** * RG126960 | 62442 0602 00 0 37000 SLW TWA+2 * RG126970 | 62443 -0500 00 0 61325 F2668 CAL IP28 MOVE ISX TO WORK AREA RG126980 | 62444 0602 00 0 36776 SLW TWA RG126990 | 62445 0441 00 0 07320 LDI MASK+3 ZERO OUT INDICATORS RG127000 62446 0520 60 0 61455 B63222 ZET* OPE2 TEST FOR PUNCTUATION RG127010 | 62447 0020 00 0 62457 TRA F2700 YES RG127020 | 62450 0500 60 0 61454 CLA* OPE1 NO, USE FIELD LENGTH RG127030 | 62451 0771 00 0 00006 ARS 6 RG127040 | 62452 -0320 00 0 07322 ANA MASK+5 RG127050 62453 0765 00 0 00043 LRS 35 RG127060 | 62454 0221 00 0 06622 DVP SIX CONVERT BITS TO CHARACTERS RG127070 | 62455 -0600 00 0 07370 STQ TEMP1 RG127080 | 62456 0020 00 0 62470 TRA F2800 RG127090 | 62457 0774 00 4 00006 F2700 AXT 6,4 RG127100 62460 0600 00 0 07370 STZ TEMP1 RG127110 | 62461 0560 60 0 61455 LDQ* OPE2 RG127120 | 62462 0754 00 0 00000 PXA 0,0 RG127130 | 62463 -0763 00 0 00004 LGL 4 RG127140 | 62464 0400 00 0 07370 ADD TEMP1 RG127150 62465 0601 00 0 07370 STO TEMP1 RG127160 | 62466 -0773 00 0 00002 RQL 2 RG127170 | 62467 2 00001 4 62462 TIX *-5,4,1 RG127180 | 62470 0534 00 4 07370 F2800 LXA TEMP1,4 RG127190 | 62471 0774 00 2 73024 AXT BCDBUF+1,2 RG127200 62472 1 77777 2 62473 TXI *+1,2,-1 RG127210 | 62473 2 00006 4 62472 TIX *-1,4,6 RG127220 | 62474 0754 00 0 00000 PXA 0,0 IR2 CONTAINS LEFT DATA WORD RG127230 | 62475 0754 00 4 00000 PXA 0,4 MULTIPLY C-IR1 BY 6 RG127240 | 62476 0767 00 0 00001 ALS 1 * RG127250 62477 0602 00 0 07371 SLW TEMP2 * RG127260 | 62500 0767 00 0 00001 ALS 1 * RG127270 | 62501 0400 00 0 07371 ADD TEMP2 E RG127280 | 62502 0602 00 0 07371 SLW TEMP2 RG127290 | 62503 0500 00 0 61374 CLA C1 36-C RG127300 62504 0402 00 0 07371 SUB TEMP2 * RG127310 | 62505 0767 00 0 00017 ALS 15 * RG127320 | 62506 0043 00 0 00000 OAI * RG127330 | 62507 -0500 00 0 36534 CAL P2WI LOAD WORK RG127340 | 62510 0767 00 0 00006 ALS 6 RG127350 62511 0400 00 0 61374 ADD C1 RG127360 | 62512 0402 00 0 36535 SUB P2BI ADD BIT POSITION RG127370 | 1 LISTING OF 12/01/64 PAGE 290 | P2PUT SUBROUTINE | 62513 0767 00 0 00025 ALS 21 RG127380 | 62514 0043 00 0 00000 OAI RG127390 | 62515 0754 00 2 00000 PXA 0,2 ADD LEFT DATA ADDRESS RG127400 | 62516 0043 00 0 00000 OAI RG127410 | 62517 0534 00 4 07370 LXA TEMP1,4 SET ONE WORD INDICATION RG127420 62520 3 00006 4 62522 TXH *+2,4,6 RG127430 | 62521 -0055 00 400000 SIL 400000 RG127440 | 62522 -0500 60 0 61453 CAL* OPE RG127450 | 62523 -0320 00 0 07332 ANA MASK+13 RG127460 | 62524 0760 00 0 00001 LBT RG127470 62525 -0055 00 100000 SIL 100000 RG127480 | 62526 -0765 00 0 00002 LGR 2 RG127490 | 62527 0162 00 0 62531 TQP *+2 RG127500 | 62530 -0055 00 200000 SIL 200000 RG127510 | 62531 -0765 00 0 00001 LGR 1 RG127520 62532 0162 00 0 62535 TQP *+3 RG127530 | 62533 -0055 00 040000 SIL 040000 RG127540 | 62534 -0057 00 100000 RIL 100000 RG127550 | 62535 0604 00 0 36777 STI TWA+1 STORE 1ST WORK OF LINKAGE RG127560 | 62536 0500 00 0 61401 CLA C1+5 SET WORD COUNT TO 3 RG127570 62537 0601 00 0 36540 F3100 STO WDCNT * RG127580 | 62540 0560 00 0 07330 LDQ MASK+11 SET MASK IN MQ RG127590 | 62541 -0754 00 0 00000 PXD 0,0 CLEAR AC RG127600 | 62542 0020 00 0 61776 TRA F0410 TRA TO REF 3 RG127610 | 62543 0600 00 0 61447 F4100 STZ MAD1A SET LEFT AND RIGHT RG127620 62544 0600 00 0 61451 STZ MAD2A MASK IND. OFF. T RG127630 | 62545 0600 00 0 61452 STZ MAD3 ZERO NO. OF INTER. WORDS RG127640 | 62546 -0500 00 0 36535 CAL P2BI COMPARE NO. OF OUTPUT RG127650 | 62547 0400 00 0 36536 ADD P2LI CHARACTERS TO 6. RG127660 | 62550 -0340 00 0 61374 LAS C1 RG127670 62551 0020 00 0 62555 TRA F4200 RG127680 | 62552 0020 00 0 62571 TRA F4320 RG127690 | 62553 -0625 00 0 61447 STL MAD1A SET LEFT MASK IND. ON RG127700 | 62554 0020 00 0 62200 TRA F1720 RG127710 | 62555 -0500 00 0 36535 F4200 CAL P2BI DOES OUTPUT WORD BEGIN RG127720 62556 0100 00 0 62560 TZE *+2 AT INCREMENT ZERO. RG127730 | 62557 -0625 00 0 61447 STL MAD1A NO, SET LEFT MASK IND. ON RG127740 | 62560 0400 00 0 36536 ADD P2LI GET OUTPUT LENGTH. RG127750 | 62561 0402 00 0 61374 SUB C1 CALCULATE NO. OF RG127760 | 62562 -0130 00 0 00000 XCL INTERMEDIATE WORDS RG127770 62563 -0754 00 0 00000 PXD 0,0 IN OUTPUT FIELD. RG127780 | 62564 0220 00 0 61374 DVH C1 RG127790 | 62565 -0600 00 0 61452 STQ MAD3 SET NO. OF INTER. WORDS. RG127800 | 62566 0100 00 0 62200 TZE F1720 IS RIGHT MASK REQUIRED. RG127810 | 62567 -0625 00 0 61451 STL MAD2A YES, SET IND. ON. RG127820 62570 0020 00 0 62200 TRA F1720 RG127830 | 62571 -0500 00 0 36535 F4320 CAL P2BI DOES OUTPUT FLD BEGIN RG127840 | 62572 0100 00 0 62200 TZE F1720 AT INC ZERO OF WORD. RG127850 | 62573 -0625 00 0 61447 STL MAD1A NO, LEFT MASK IND. ON. RG127860 | 62574 0020 00 0 62200 TRA F1720 RG127870 62575 0600 00 0 61652 F5001 STZ ZELSW SET SW TO ZERO RG127880 | 62576 -0500 60 0 61453 CAL* OPE RG127890 | 62577 -0320 00 0 61713 ANA SPMSK RG127900 | 62600 -0340 00 0 61441 LAS LINED IS IT A D LINE RG127910 | 62601 0020 00 0 62411 TRA F2600 NO USE OTHER SFP RG127920 1 LISTING OF 12/01/64 PAGE 291 | P2PUT SUBROUTINE | | 62602 0020 00 0 62604 TRA *+2 YES RG127930 | 62603 0020 00 0 62411 TRA F2600 NO RG127940 62604 0520 60 0 61455 ZET* OPE2 TEST FOR PUNCTUATION RG127950 | 62605 0020 00 0 62616 TRA F5170 YES RG127960 | 62606 -0500 60 0 61454 CAL* OPE1 NO, USE FIELD LENGTH RG127970 | 62607 0771 00 0 00006 ARS 6 RG127980 | 62610 -0320 00 0 07322 ANA MASK+5 RG127990 62611 0765 00 0 00043 LRS 35 RG128000 | 62612 0221 00 0 06622 DVP SIX CONVERT BITS TO CHARACTERS RG128010 | 62613 -0600 00 0 61514 STQ CHRCNT RG128020 | 62614 -0130 00 0 00000 XCL RG128030 | 62615 0020 00 0 62627 TRA F5180 RG128040 62616 F5170 BSS 0 RG128050 | 62616 0600 00 0 61514 STZ CHRCNT ADD UP NUMBER RG128060 | 62617 0774 00 4 00006 AXT 6,4 OF CHARACTERS RG128070 | 62620 0560 60 0 61455 LDQ* OPE2 * RG128080 | 62621 0754 00 0 00000 PXA 0,0 * RG128090 62622 -0763 00 0 00004 LGL 4 * RG128100 | 62623 0400 00 0 61514 ADD CHRCNT * RG128110 | 62624 0601 00 0 61514 STO CHRCNT * RG128120 | 62625 -0773 00 0 00002 RQL 2 * RG128130 | 62626 2 00001 4 62621 TIX *-5,4,1 * RG128140 62627 -0340 00 0 06624 F5180 LAS EIGHT RG128150 | 62630 0020 00 0 62411 TRA F2600 GREATER THAN 8 CHARACTERS RG128160 | 62631 0761 00 0 00000 NOP RG128170 | 62632 -0500 60 0 61453 CAL* OPE MODE 4 OR D RG128180 | 62633 -0320 00 0 61714 ANA SPMSK+1 * RG128190 62634 -0340 00 0 61405 LAS C2+2 * RG128200 | 62635 0020 00 0 62637 TRA *+2 NO RG128210 | 62636 0020 00 0 62411 TRA F2600 YES RG128220 | 62637 -0500 00 0 07166 CAL PARA+4 IS INPUT BINARY RG128230 | 62640 -0765 00 0 00002 LGR 2 * RG128240 62641 -0500 00 0 61514 CAL CHRCNT NO IS IT ONE WORD RG128250 | 62642 -0340 00 0 61377 LAS C1+3 COMPARE TO 6 RG128260 | 62643 0020 00 0 62647 TRA *+4 NO 2 WORDS RG128270 | 62644 0761 00 0 00000 NOP YES RG128280 | 62645 -0500 00 0 61616 CAL IP39 MOVE TSX HSKPG1,4 TO W.A. RG128290 62646 0020 00 0 62650 TRA *+2 * RG128300 | 62647 -0500 00 0 61617 CAL IP39+1 MOVE TSX HSKPG2,4 TO W.A. RG128310 | 62650 0602 00 0 36776 SLW TWA RG128320 | 62651 1 77777 2 62652 TXI *+1,2,-1 SET COUNT TO ONE RG128330 | 62652 0441 60 0 61453 F5190 LDI* OPE TEST FOR MODE 2 OR 3 RG128340 62653 0056 00 000002 RNT 2 RG128350 | 62654 0020 00 0 62672 TRA F5265 NO RG128360 | 62655 0056 00 000001 RNT 1 RG128370 | 62656 0020 00 0 62411 TRA F2600 RG128380 | 62657 0534 00 4 61514 LXA CHRCNT,4 RG128390 62660 3 00006 4 62663 TXH *+3,4,6 RG128400 | 62661 0560 00 0 61621 LDQ IP39+3 * BUILD TSX ZELIM1,4 RG128410 | 62662 0020 00 0 62664 TRA *+2 RG128420 | 62663 0560 00 0 61622 LDQ IP39+4 BUILD TSX ZELIM 2,4 RG128430 | 62664 -0600 00 2 36776 STQ TWA,2 MOVE TO TWA RG128440 62665 1 77777 2 62666 TXI *+1,2,-1 RG128450 | 62666 0634 00 2 61654 SXA LOCPZE,2 SAVE LOC OF PZE RG128460 | 62667 0600 00 2 36776 STZ TWA,2 SET UP PZE RG128470 | 1 LISTING OF 12/01/64 PAGE 292 | P2PUT SUBROUTINE | 62670 1 77777 2 62671 TXI *+1,2,-1 MODIFY COUNT BY 2 RG128480 | 62671 -0625 00 0 61652 STL ZELSW RG128490 | 62672 0441 60 0 61453 F5265 LDI* OPE RG128500 | 62673 0054 00 000060 RFT 60 RG128510 62674 0020 00 0 62721 TRA F5300 RG128520 | 62675 -0500 00 0 61620 CAL IP39+2 BUILD TSX SIGN,4 RG128530 | 62676 0602 00 2 36776 SLW TWA,2 RG128540 | 62677 0600 00 2 36777 STZ TWA+1,2 RG128550 | 62700 0500 00 0 36535 CLA P2BI RG128560 62701 0400 00 0 36536 ADD P2LI RG128570 | 62702 0131 00 0 00000 XCA RG128580 | 62703 0754 00 0 00000 PXA 0,0 RG128590 | 62704 0220 00 0 61374 DVH C1 RG128600 | 62705 0131 00 0 00000 XCA RG128610 62706 0400 00 0 36534 ADD P2WI RG128620 | 62707 0621 00 2 36777 STA TWA+1,2 RG128630 | 62710 0131 00 0 00000 XCA RG128640 | 62711 0100 00 0 62717 TZE *+6 RG128650 | 62712 0131 00 0 00000 XCA RG128660 62713 0754 00 0 00000 PXA 0,0 RG128670 | 62714 0220 00 0 61377 DVH C1+3 RG128680 | 62715 0131 00 0 00000 XCA RG128690 | 62716 0767 00 0 00022 ALS 18 RG128700 | 62717 0622 00 2 36777 STD TWA+1,2 RG128710 62720 1 77776 2 62721 TXI *+1,2,-2 RG128720 | 62721 -0500 60 0 61455 F5300 CAL* OPE2 RIGHT JUSTIFY FORMAT CODE RG128730 | 62722 0560 00 0 07320 LDQ MASK+3 * RG128740 | 62723 0600 00 0 61511 STZ WDSW RG128750 | 62724 0044 00 0 00000 F5315 PAI RG128760 62725 0054 00 000003 RFT 3 RG128770 | 62726 0020 00 0 62750 TRA F5400 RG128780 | 62727 0560 00 0 07320 LDQ MASK+3 RG128790 | 62730 0765 00 0 00006 LRS 6 RG128800 | 62731 -0100 00 0 62724 TNZ F5315 RG128810 62732 0534 00 4 61514 LXA CHRCNT,4 RG128820 | 62733 3 00006 4 62743 TXH F5385,4,6 COMPARE CHARACTER COUNT TO 6 RG128830 | 62734 0560 00 4 61615 LDQ NPCRQ,4 RG128840 | 62735 -0500 00 0 61603 CAL IP38 RG128850 | 62736 0602 00 2 36776 SLW TWA,2 RG128860 62737 -0600 00 2 36777 STQ TWA+1,2 RG128870 | 62740 -0500 00 0 61604 CAL IP38+1 RG128880 | 62741 0602 00 2 37000 SLW TWA+2,2 RG128890 | 62742 1 77775 2 63007 TXI F5540,2,-3 MODIFY COUNT BY 3 TRA TO C2 RG128900 | 62743 -0500 00 4 61615 F5385 CAL NPCRQ,4 RG128910 62744 0602 00 2 36776 SLW TWA,2 RG128920 | 62745 0500 00 0 61376 CLA C1+2 RG128930 | 62746 0601 00 0 61511 STO WDSW RG128940 | 62747 1 77777 2 63005 TXI F5537,2,-1 MODIFY COUNT B1 TRA TO C2 RG128950 | 62750 0040 00 0 62411 F5400 TLQ F2600 TEST FOR DECIMAL RG128960 62751 0054 00 777702 RFT 777702 RG128970 | 62752 0020 00 0 62411 TRA F2600 RG128980 | 62753 0763 00 0 00004 LLS 4 RG128990 | 62754 0534 00 4 61514 LXA CHRCNT,4 NO RG129000 | 62755 3 00005 4 62776 TXH F5505,4,5 COMPARE CHARACTER COUNT TO 5 RG129010 62756 -0500 00 0 61603 CAL IP38 BUILD LDQ AND RG129020 | 1 LISTING OF 12/01/64 PAGE 293 | P2PUT SUBROUTINE | | 62757 0602 00 2 36776 SLW TWA,2 STQ AND RQL RG129030 62760 -0500 00 0 61604 CAL IP38+1 * RG129040 | 62761 0602 00 2 37001 SLW TWA+3,2 * RG129050 | 62762 -0500 00 4 61662 CAL RQLTBL,4 * RG129060 | 62763 0602 00 2 36777 SLW TWA+1,2 * RG129070 | 62764 -0046 00 0 00000 PIA GET NO OF CHARACTERS TO RG129080 62765 0771 00 0 00002 ARS 2 LEFT OF DECIMAL POINT RG129090 | 62766 -0320 00 0 61714 ANA SPMSK+1 RG129100 | 62767 0734 00 1 00000 PAX 0,1 NO OF CHAR PRECEEDING DECIMAL RG129110 | 62770 -0500 00 1 61667 CAL CRQTBL,1 BUILD PROPER CRQ RG129120 | 62771 0602 00 2 37000 SLW TWA+2,2 * RG129130 62772 1 00001 4 62773 TXI *+1,4,1 COUNT PLUS ONE TO RG129140 | 62773 -0754 00 4 00000 PXD 0,4 DECR OF CRQ RG129150 | 62774 -0602 00 2 37000 ORS TWA+2,2 RG129160 | 62775 1 77774 2 63007 TXI F5540,2,-4 UPDATE COUNT TRA TO C2 RG129170 | 62776 -0320 00 0 61714 F5505 ANA SPMSK+1 NO OF DECIMAL PLACES RG129180 62777 0734 00 1 00000 PAX 0,1 RG129190 | 63000 3 00004 1 62411 TXH F2600,1,4 RG129200 | 63001 1 77772 4 63002 TXI *+1,4,-6 1R4 EQUALS NO OF CHAR LESS SIX RG129210 | 63002 -0500 60 1 61712 CAL* SPTSX,1 BUILD PROPER TSX TO RG129220 | 63003 0602 00 2 36776 SLW TWA,2 SUBROUTINE RG129230 63004 1 77777 2 63005 TXI *+1,2,-1 MODIFY COUNT RG129240 | 63005 0500 00 0 61376 F5537 CLA C1+2 RG129250 | 63006 0601 00 0 61511 STO WDSW RG129260 | 63007 -0500 00 0 61653 F5540 CAL LOCINT SFT UP LOC OF INTBUF RG129270 | 63010 0402 00 0 61511 SUB WDSW RG129280 63011 0621 00 0 61463 STA SAVE1 TO SAVE1 RG129290 | 63012 0441 60 0 61454 LDI* OPE1 RG129300 | 63013 0020 00 0 61745 TRA F0185 TO UNLOAD ROUTINE RG129310 | * IN THE COMMENTS, N EQUALS NUMBER RG129320 | * OF WORDS IN BUFFER OR STORAGE. RG129330 * X EQUALS THE RIGHT MOST WORD. RG129340 | 63014 -0500 00 0 61447 F5600 CAL MAD1A IS LEFT MASK REQUIRED RG129350 | 63015 0100 00 0 63056 TZE F5850 NO. RG129360 | 63016 -0500 00 0 61150 CAL IP02 YES RG129370 | 63017 0400 00 0 61512 ADD WDSIN RG129380 63020 0621 00 0 61644 STA IP41+4 CAL X+1,4 RG129390 | 63021 0402 00 0 61376 SUB C1+2 RG129400 | 63022 0621 00 0 61642 STA IP41+2 CAL X,4 RG129410 | 63023 0534 00 4 61512 LXA WDSIN,4 RG129420 | 63024 1 77777 4 63025 TXI *+1,4,-1 RG129430 63025 0634 00 4 61640 SXA IP41,4 AXT N-1,4 RG129440 | 63026 -0500 00 0 36534 CAL P2WI RG129450 | 63027 0621 00 0 61643 STA IP41+3 ORS 0,2 RG129460 | 63030 0400 00 0 61376 ADD C1+2 RG129470 | 63031 0621 00 0 61645 STA IP41+5 SLW 0+1,2 RG129480 63032 0774 00 4 00011 AXT 9,4 * RG129490 | 63033 -0500 00 4 61651 CAL IP41+9,4 MOVE INST PATTERN TO RG129500 | 63034 0602 00 2 36776 SLW TWA,2 TWA RG129510 | 63035 1 77777 2 63036 TXI *+1,2,-1 RG129520 | 63036 2 00001 4 63033 TIX *-3,4,1 RG129530 63037 0754 00 2 00000 PXA 0,2 ESTABLISH WORD COUNT RG129540 | 63040 0760 00 0 00006 COM AS ACTUAL RG129550 | 63041 0400 00 0 61376 ADD C1+2 * RG129560 | 63042 0621 00 0 36540 STA WDCNT * RG129570 | 1 LISTING OF 12/01/64 PAGE 294 P2PUT SUBROUTINE | | 63043 0441 00 0 07162 LDI PARA IS OUTPUT RECORD RG129580 | 63044 -0056 00 000001 LNT 1 RG129590 | 63045 0020 00 0 63053 TRA *+6 YES RG129600 63046 -0500 00 0 61525 CAL KEY1A NO GET KEY RG129610 | 63047 0771 00 0 00006 ARS 6 SHIFT RG129620 | 63050 -0130 00 0 00000 XCL RG129630 | 63051 0754 00 0 00000 PXA 0,0 CLEAR AC RG129640 | 63052 0020 00 0 61776 TRA F0410 LEAVE RG129650 63053 0560 00 0 61525 LDQ KEY1A GET KEY RG129660 | 63054 0754 00 0 00000 PXA 0,0 CLEAR AC RG129670 | 63055 0020 00 0 61776 TRA F0410 LEAVE RG129680 | 63056 -0500 00 0 61150 F5850 CAL IP02 CALCULATE RIGHT MOST RG129690 | 63057 0400 00 0 61512 ADD WDSIN WORD PLUS ONE OF DATA RG129700 63060 0621 00 0 61644 STA IP41+4 CAL X+1,4 RG129710 | 63061 -0500 00 0 36534 CAL P2WI ADDR OF LEFT MOST OUTPUT WORD RG129720 | 63062 0621 00 0 61645 STA IP41+5 SLW 0,2 RG129730 | 63063 -0500 00 0 61512 CAL WDSIN NO OF WORDS IN BUFFER RG129740 | 63064 0621 00 0 61640 STA IP41 AXT N,4 RG129750 63065 -0500 00 0 61640 CAL IP41 ESTABLISH AXT RG129760 | 63066 0602 00 2 36776 SLW TWA,2 * RG129770 | 63067 -0500 00 0 61651 CAL IP41+9 ESTABLISH SXA RG129780 | 63070 0602 00 2 36777 SLW TWA+1,2 * RG129790 | 63071 1 77776 2 63072 TXI *+1,2,-2 * RG129800 63072 0774 00 4 00005 AXT 5,4 RG129810 | 63073 -0500 00 4 61651 CAL IP41+9,4 ESTABLISH PATTERN RG129820 | 63074 0602 00 2 36776 SLW TWA,2 * RG129830 | 63075 1 77777 2 63076 TXI *+1,2,-1 RG129840 | 63076 2 00001 4 63073 TIX *-3,4,1 RG129850 63077 0754 00 2 00000 PXA 0,2 ESTABLISH WORD COUNT RG129860 | 63100 0760 00 0 00006 COM AS ACTUAL. RG129870 | 63101 0400 00 0 61376 ADD C1+2 * RG129880 | 63102 0621 00 0 36540 STA WDCNT * RG129890 | 63103 0754 00 0 00000 PXA 0,0 CLEAR AC RG129900 63104 0560 00 0 61530 LDQ KEY3B LOAD KEY RG129910 | 63105 0020 00 0 61776 TRA F0410 LEAVE RG129920 | 63106 -0500 00 0 61463 F6000 CAL SAVE1 TEST FOR PUT FROM STORAGE RG129930 | 63107 -0100 00 0 63231 TNZ F7300 *YES RG129940 | 63110 0441 60 0 61454 LDI* OPE1 *NO RG129950 63111 0054 00 000004 RFT 4 IS PUTPUT BINARY RG129960 | 63112 0020 00 0 63115 TRA F6090 NO RG129970 | 63113 -0500 00 0 61533 CAL E8298 BINARY BUFFER PLUS ONE RG129980 | 63114 0020 00 0 63116 TRA F6090+1 RG129990 | 63115 -0500 00 0 61226 F6090 CAL IP17+1 BCD BUFFER LOC PLUS ONE RG130000 63116 0621 00 0 61626 STA IP40+3 SET ADDRESSES OF LDQ X+1,4 RG130010 | 63117 0621 00 0 61633 STA IP40+8 CAL X+1,4 RG130020 | 63120 0402 00 0 61376 SUB C1+2 RG130030 | 63121 0621 00 0 61625 STA IP40+2 CAL X,4 RG130040 | 63122 0534 00 4 61512 LXA WDSIN,4 COUNT OF WORDS IN LESS ONE RG130050 63123 1 77777 4 63124 TXI *+1,4,-1 TO AXT RG130060 | 63124 0634 00 4 61623 SXA IP40,4 RG130070 | 63125 -0500 00 0 61447 CAL MAD1A IS LEFT MASK REQUIRED RG130080 | 63126 -0100 00 0 63153 TNZ F6300 YES RG130090 | 63127 0774 00 4 00014 AXT 12,4 MOVE INSTRUCTION PKG TO TWA RG130100 63130 -0500 00 4 61637 CAL IP40+12,4 * RG130110 | 63131 0602 00 2 36776 SLW TWA,2 * RG130120 | 1 LISTING OF 12/01/64 PAGE 295 | P2PUT SUBROUTINE | 63132 1 77777 2 63133 TXI *+1,2,-1 * RG130130 | 63133 2 00001 4 63130 TIX *-3,4,1 * RG130140 | 63134 0754 00 2 00000 PXA 0,2 ESTABLISH WORD COUNT RG130150 | 63135 0760 00 0 00006 COM * RG130160 | 63136 0400 00 0 61376 ADD C1+2 * RG130170 63137 0621 00 0 36540 STA WDCNT * RG130180 | 63140 0441 00 0 07162 LDI PARA IS OUTPUT A RECORD RG130190 | 63141 -0056 00 000001 LNT 1 * RG130200 | 63142 0020 00 0 63150 TRA *+6 YES RG130210 | 63143 -0500 00 0 61525 CAL KEY1A NO. SHIFT KEY RG130220 63144 0771 00 0 00006 ARS 6 * RG130230 | 63145 -0130 00 0 00000 XCL * RG130240 | 63146 0754 00 0 00000 PXA 0,0 CLEAR AC RG130250 | 63147 0020 00 0 61776 TRA F0410 LEAVE RG130260 | 63150 0754 00 0 00000 PXA 0,0 RG130270 63151 0560 00 0 61525 LDQ KEY1A RG130280 | 63152 0020 00 0 61776 TRA F0410 LEAVE RG130290 | 63153 0500 00 0 61512 F6300 CLA WDSIN DO NO. OF WORDS IN EQUAL RG130300 | 63154 0402 00 0 61513 SUB WDOUT NO. OF WORDS OUT. RG130310 | 63155 -0100 00 0 63161 TNZ *+4 NO RG130320 63156 0500 00 0 61512 CLA WDSIN YES. PUT NO OF WORDS IN RG130330 | 63157 0402 00 0 61402 SUB C1+6 LESS 2 TO AXT RG130340 | 63160 0621 00 0 61623 STA IP40 RG130350 | 63161 -0500 00 0 61623 CAL IP40 MOVE AXT RG130360 | 63162 0602 00 2 36776 SLW TWA,2 RG130370 63163 -0500 00 0 61637 CAL IP40+12 * SXA *+15,2 RG130380 | 63164 0602 00 2 36777 SLW TWA+1,2 RG130390 | 63165 -0500 00 0 61360 CAL IP36+1 * CAL OR PXA RG130400 | 63166 0602 00 2 37000 SLW TWA+2,2 RG130410 | 63167 -0500 00 0 61361 CAL IP36+2 * LDQ RG130420 63170 0602 00 2 37001 SLW TWA+3,2 RG130430 | 63171 -0500 00 0 61362 CAL IP36+3 * LGL RG130440 | 63172 0602 00 2 37002 SLW TWA+4,2 RG130450 | 63173 -0500 00 0 61363 CAL IP36+4 * ORS 0,2 RG130460 | 63174 0602 00 2 37003 SLW TWA+5,2 RG130470 63175 -0500 00 0 61631 CAL IP40+6 * TXI RG130480 | 63176 0602 00 2 37004 SLW TWA+6,2 RG130490 | 63177 1 77771 2 63200 TXI *+1,2,-7 MODIFY COUNT RG130500 | 63200 0774 00 4 00012 AXT 10,4 MOVE BALANCE OF PATTERN RG130510 | 63201 -0500 00 4 61637 CAL IP40+12,4 * RG130520 63202 0602 00 2 36776 SLW TWA,2 * RG130530 | 63203 1 77777 2 63204 TXI *+1,2,-1 MODIFY COUNT RG130540 | 63204 2 00001 4 63201 TIX *-3,4,1 RG130550 | 63205 0754 00 2 00000 PXA 0,2 ESTABLISH WORD COUNT RG130560 | 63206 0760 00 0 00006 COM AS ACTUAL RG130570 63207 0400 00 0 61376 ADD C1+2 * RG130580 | 63210 0621 00 0 36540 STA WDCNT * RG130590 | 63211 0441 00 0 07162 LDI PARA IS OUTPUT RECORD RG130600 | 63212 -0056 00 000001 LNT 1 RG130610 | 63213 0020 00 0 63221 TRA *+6 YES RG130620 63214 -0500 00 0 61526 CAL KEY2A NO RG130630 | 63215 0560 00 0 61527 LDQ KEY2B RG130640 | 63216 -0765 00 0 00014 LGR 12 RG130650 | 63217 -0130 00 0 00000 XCL RG130660 | 63220 0020 00 0 61776 TRA F0410 LEAVE RG130670 1 LISTING OF 12/01/64 PAGE 296 | P2PUT SUBROUTINE | | 63221 -0500 00 0 61527 CAL KEY2B RG130680 | 63222 0560 00 0 61526 LDQ KEY2A RG130690 63223 0020 00 0 61776 TRA F0410 LEAVE RG130700 | 63224 -0500 00 0 61226 F7200 CAL IP17+1 RG130710 | 63225 0020 00 0 62125 TRA F1275 RG130720 | 63226 0621 00 0 61465 F7220 STA SHSW RG130730 | 63227 -0130 00 0 00000 XCL RG130740 63230 0020 00 0 62143 TRA F1356 RG130750 | 63231 0560 00 0 36536 F7300 LDQ P2LI RG130760 | 63232 0754 00 0 00000 PXA 0,0 RG130770 | 63233 0220 00 0 61374 DVH C1 RG130780 | 63234 0100 00 0 63240 TZE *+4 RG130790 63235 0131 00 0 00000 XCA RG130800 | 63236 0400 00 0 61376 ADD C1+2 RG130810 | 63237 0020 00 0 63241 TRA *+2 RG130820 | 63240 0131 00 0 00000 XCA RG130830 | 63241 0400 00 0 61463 ADD SAVE1 RG130840 63242 0020 00 0 63116 TRA F6090+1 RG130850 | 1 LISTING OF 12/01/64 PAGE 297 | SUBROUTINE TO SUPPLY TRANSFER ADDRESS | | 63243 0634 00 1 63260 G0010 SXA G0100,1 DID WE BUILD ANY RG130870 63244 0634 00 4 63257 SXA G0080,4 RG130880 | 63245 0520 00 0 61420 ZET CNDSW CONDITIONAL PACKAGES RG130890 | 63246 0020 00 4 00001 TRA 1,4 *NO RG130900 | 63247 0074 00 4 40445 TSX IC300,4 YES, MAKE ICNPD ENTRY RG130910 | 63250 -0500 00 0 04401 CAL ICULC ENTER 1ST WORD IN TABLE RG130920 63251 0602 00 1 20326 SLW ICNPD,1 * RG130930 | 63252 -0500 00 0 61464 CAL SAVAD ENTER 2ND WORD IN NPD TABLE RG130940 | 63253 0602 00 1 20327 SLW ICNPD+1,1 * RG130950 | 63254 -0625 00 0 61420 STL CNDSW RESTORE CONDITIONAL SW RG130960 | 63255 0600 00 0 54335 STZ P2JK2 RG130970 63256 0600 00 0 54336 STZ P2JK6 RG130980 | 63257 0774 00 4 00000 G0080 AXT **,4 RG130990 | 63260 0774 00 1 00000 G0100 AXT 0,1 RESTORE IR 1 RG131000 | 63261 0020 00 4 00001 TRA 1,4 RG131010 | * RG131020 1 LISTING OF 12/01/64 PAGE 298 | PROCESS HEADING AND TOTAL ROUTINES | | * RG131040 | 63262 +000000000000 DEC 0 SWING L/P NEG RG131050 63263 0500 00 0 00000 Z2KAA CLA 0 TO HEAD AFTER RG131060 | 63264 -0760 00 0 00003 SSM X RG131070 | 63265 0601 00 0 00000 STO 0 X RG131080 | * PHASE 2B LEAVES ROOM FOR IC, CC, WE ARE AT AND TEMP ID AREA RG131090 | * FORMAT TXX, TFX + HXX LINES RG131100 63266 -0500 00 0 22034 P2KA1 CAL RPTNO REPORT NUMBER RG131110 | 63267 0074 00 4 34553 TSX TRACE,4 TAKE CHECK POINT RG131120 | 63270 -0320 00 0 65036 ANA P2JM1 * RG131130 | 63271 0621 00 0 63321 STA P2KA5+1 RN FOR =$TORN RG131140 | 63272 0621 00 0 64121 STA P2KS2+2 RN FOR =$ HORN TIVE RG131150 63273 0621 00 0 64126 STA P2KS3+3 RN FOR =$ HORN TOR RG131160 | 63274 0621 00 0 63623 STA P2KF1+1 RN FOR =$ HORN TIVE RG131170 | 63275 0621 00 0 63605 STA P2KB9+1 RN FOR =$EORN RG131180 | 63276 0621 00 0 63310 STA P2KA2+1 RN FOR =$ TO RN RG131190 | 63277 -0602 00 0 64147 ORS P2KSS+1 =00IRN RG131200 63300 -0602 00 0 64137 ORS P2KS5+4 RG131210 | 63301 -0340 00 0 64066 LAS P2KC1+1 COMPARE RN TO 1 RG131220 | 63302 0020 00 0 63604 TRA P2KB9 NOT FIRST RPT NO RG131230 | 63303 0020 00 0 63307 TRA P2KA2 1ST REPORT NO. RG131240 | 63304 0074 00 4 37677 TSX P2M06,4 X RG131250 63305 +000000000251 OCT 251 RG131260 | 63306 0074 00 4 04000 TSX LOST,4 RG131270 | 63307 0074 00 4 40614 P2KA2 TSX CCPSD,4 WE ARE AT THETA RG131280 | 63310 135325000000 BCI 1,=$E000 SAVE IMPUT ENTRY RG131290 | 63311 -0520 00 0 22742 P2KA3 NZT P2AA1 CONTROL BREAK MONITOR RG131300 63312 0020 00 0 63607 TRA P2KE1 NO CONTROL BREAKS RG131310 | 63313 0500 00 0 21771 CLA P2AA2 GET CONTROL WORD RG131320 | 63314 0621 00 0 64113 STA P2KS1+2 STO TO IND SET RG131330 | 63315 0560 00 0 64110 P2KA4 LDQ P2KS1-1 CB KEYS RG131340 | 63316 0074 00 4 40227 TSX STEPI,4 STEP IC WITH IND SET PKG RG131350 63317 0 00005 1 64111 PZE P2KS1,1,5 RG131360 | 63320 0074 00 4 40674 P2KA5 TSX CCNPD,4 WE ARE AT PHI RG131370 | 63321 135363000000 BCI 1,=$T000 X RG131380 | 63322 0560 00 0 64116 P2KA6 LDQ P2KS2-1 SAVE 1ND PKG-KEYS RG131390 | 63323 0074 00 4 40227 TSX STEPI,4 STEP IC WITH SAVE IND PKG RG131400 63324 0 00003 1 64117 PZE P2KS2,1,3 X RG131410 | 63325 0500 00 0 21771 CLA P2AA2 LOC OF CB WORD RG131420 | 63326 0621 00 0 64123 STA P2KS3 STO TO IND TEST SW PKG RG131430 | 63327 -0534 00 1 22742 P2KA7 LXD P2AA1,1 GET LAST CB LOCATION RG131440 | 63330 1 00001 1 63331 TXI *+1,1,1 BUMP IRA RG131450 63331 0754 00 0 00000 PXA 0,0 CLEAR AC RG131460 | 63332 0560 00 1 22742 LDQ P2AA1,1 LAST ENTRY IN CB TBL RG131470 | 63333 -0763 00 0 00006 LGL 6 POSITION CB RG131480 | 63334 0602 00 0 64067 SLW P2KC1+2 STO CB TO CB COMP AREA RG131490 | * TXX LINES RG131500 63335 -3 00000 2 63375 P2KAA TXL P2KAF,2,0 FORMATS ALL GONE RG131510 | 63336 -0754 00 0 00000 PXD 0,0 CLEAR AC RG131520 | 63337 0560 00 2 22657 LDQ P2AA0,2 LFT ENTRY RG131530 | 63340 -0763 00 0 00006 LGL 6 POSITION T RG131540 | 63341 -0340 00 0 64071 LAS P2KC1+4 COMP TO 00000T RG131550 63342 0020 00 0 63347 TRA P2KAB+3 ERROR RG131560 | 63343 0020 00 0 63352 TRA P2KAC CHECK TX RG131570 | 63344 0502 00 0 63465 P2KAB CLS P2KT2 SET SW 2 ON RG131580 | 1 LISTING OF 12/01/64 PAGE 299 | PROCESS HEADING AND TOTAL ROUTINES | 63345 0601 00 0 63465 STO P2KT2 X RG131590 | 63346 0020 00 0 63427 TRA P2KA9 ANY MORE CB RG131600 | 63347 0774 00 2 00007 AXT 7,2 NOT IN LFT RG131610 | 63350 0074 00 4 37665 TSX P2M05,4 X RG131620 63351 0074 00 4 04000 TSX LOST,4 RG131630 | 63352 -0763 00 0 00006 P2KAC LGL 6 RG131640 | 63353 -0340 00 0 64072 LAS P2KC1+5 COMP TO 0000TF RG131650 | 63354 0020 00 0 63347 TRA P2KAB+3 RG131660 | 63355 0020 00 0 63344 TRA P2KAB TF LINE RG131670 63356 3 00000 0 63400 P2KT1 TXH P2KAG,0,0 TX LINE SW 1 ON RG131680 | 63357 0602 00 0 64070 SLW P2KC1+3 STORE TX RG131690 | 63360 -0763 00 0 00006 LGL 6 POSITION TXX RG131700 | 63361 0602 00 0 64200 SLW P2KB2+1 STO TXX TO BETA SEARCH RG131710 | 63362 0502 00 0 63356 P2KAE CLS P2KT1 SET SWI ON RG131720 63363 0601 00 0 63356 STO P2KT1 X RG131730 | 63364 -0500 00 0 64200 P2KA8 CAL P2KB2+1 GET TXX RG131740 | 63365 -0320 00 0 64073 ANA P2KC1+6 TXX CONVERTED TO T LEVEL RG131750 | 63366 0771 00 0 00006 ARS 6 POSITION T LEVEL RG131760 | 63367 -0340 00 0 64067 LAS P2KC1+2 COMP T LEVEL TO CB RG131770 63370 0020 00 0 63427 TRA P2KA9 T LEVEL GREATER THAN CB RG131780 | 63371 0020 00 0 63414 TRA P2KBA+2 T LEVEL EQ CB RG131790 | 63372 0074 00 4 37677 TSX P2M06,4 T LESS THAN CB. RG131800 | 63373 +000000000252 OCT 252 RG131810 | 63374 0074 00 4 04000 TSX LOST,4 RG131820 63375 0502 00 0 63510 P2KAF CLS P2KT3 SET SW3 ON RG131830 | 63376 0601 00 0 63510 STO P2KT3 X RG131840 | 63377 0020 00 0 63344 TRA P2KAB ANY MORE CB RG131850 | 63400 -0340 00 0 64070 P2KAG LAS P2KC1+3 COMP TO LAST TX RG131860 | 63401 0020 00 0 63406 TRA *+5 NEW TX RG131870 63402 0020 00 0 63412 TRA P2KBA THIS TX EQUAL TO LAST TX RG131880 | 63403 0074 00 4 37677 TSX P2M06,4 T LEVEL DROP RG131890 | 63404 +000000000253 OCT 253 RG131900 | 63405 0074 00 4 04000 TSX LOST,4 RG131910 | 63406 0602 00 0 64070 SLW P2KC1+3 STO NEW TX RG131920 63407 -0763 00 0 00006 LGL 6 RG131930 | 63410 0621 00 0 64200 STA P2KB2+1 STO TXX TO BETA SEARCH PKG RG131940 | 63411 0020 00 0 63427 TRA P2KA9 ANY MORE CB RG131950 | 63412 -0763 00 0 00006 P2KBA LGL 6 RG131960 | 63413 0602 00 0 64200 SLW P2KB2+1 STO TXX TO BETA SEARCH RG131970 63414 0074 00 4 64173 TSX P2KB1,4 RG131980 | 63415 0441 00 2 22656 LDI P2AA0-1,2 GET LINE FORMAT RG131990 | 63416 -0056 00 000021 LNT 000021 HEADING AFTER RG132000 | 63417 0020 00 0 63335 TRA P2KAA NO RG132010 | 63420 0500 00 0 22005 CLA P2AA2+12 SET UP HEAD AFTER RG132020 63421 0621 00 0 63263 STA Z2KAA X RG132030 | 63422 0621 00 0 63265 STA Z2KAA+2 X RG132040 | 63423 0560 00 0 63262 LDQ Z2KAA-1 ESTABLISH HEAD AFTER RG132050 | 63424 0074 00 4 40227 TSX STEPI,4 X RG132060 | 63425 0 00003 1 63263 PZE Z2KAA,1,3 X RG132070 63426 0020 00 0 63335 TRA P2KAA RG132080 | 63427 1 00001 1 63430 P2KA9 TXI *+1,1,1 BUMP IRA RG132090 | 63430 3 00062 1 63467 TXH P2KD1,1,P2JB6 LAST C B ENTRY RG132100 | 63431 -0754 00 0 00000 PXD 0,0 CLEAR AC RG132110 | 63432 0560 00 1 22742 LDQ P2AA1,1 NEW CB ENTRY RG132120 63433 -0763 00 0 00006 LGL 6 POSITION CB LEVEL RG132130 | 1 LISTING OF 12/01/64 PAGE 300 | PROCESS HEADING AND TOTAL ROUTINES | | 63434 -0340 00 0 64067 LAS P2KC1+2 COMP TO LAST CB ENTRY RG132140 63435 0020 00 0 63442 TRA *+5 PROCESS RG132150 | 63436 0020 00 0 63427 TRA P2KA9 GET ANOTHER CB ENTRY RG132160 | 63437 0074 00 4 37677 TSX P2M06,4 C B LEVEL DROP RG132170 | 63440 +000000000254 OCT 254 RG132180 | 63441 0074 00 4 04000 TSX LOST,4 RG132190 63442 0602 00 0 64067 SLW P2KC1+2 RG132200 | 63443 -0500 00 0 64076 CAL P2KC1+9 GET MASK TO SET H LEVEL RG132210 | 63444 0320 00 0 64126 ANS P2KS3+3 AND OUT OLD H LEVEL RG132220 | 63445 0500 00 0 64067 CLA P2KC1+2 GET NEW CB RG132230 | 63446 0402 00 0 64066 SUB P2KC1+1 SUB 1 RG132240 63447 0767 00 0 00014 ALS 12 POSITION RG132250 | 63450 -0602 00 0 64126 ORS P2KS3+3 OR IN NEW H LEVEL RG132260 | 63451 0500 00 0 64067 CLA P2KC1+2 GET CURRENT CB RG132270 | 63452 0400 00 0 64075 ADD P2KC1+8 CONST-10 RG132280 | 63453 0621 00 0 63456 STA *+3 STO TO SHIFT INST RG132290 63454 0621 00 0 63457 STA *+3 X RG132300 | 63455 -0500 00 0 64074 CAL P2KC1+7 CONSTANT 1777 - RG132310 | 63456 0771 00 0 00000 ARS 0 SHIFT FOR CB CONTROL RG132320 | 63457 0767 00 0 00000 ALS 0 X RG132330 | 63460 0625 00 0 64124 STT P2KS3+1 STO TO IND TEST SW PKG RG132340 63461 0621 00 0 64124 STA P2KS3+1 X RG132350 | 63462 0560 00 0 64122 LDQ P2KS3-1 IND TEST SW-KEYS RG132360 | 63463 0074 00 4 40227 TSX STEPI,4 STEP IC WITH IND TEST SW PKG RG132370 | 63464 0 00004 1 64123 PZE P2KS3,1,4 X RG132380 | 63465 3 00000 0 63427 P2KT2 TXH P2KA9,0,0 SW 2 RG132390 63466 0020 00 0 63364 TRA P2KA8 RG132400 | * TF LINES RG132410 | 63467 0500 00 0 63356 P2KD1 CLA P2KT1 SW 1 OFF RG132420 | 63470 0760 00 0 00003 SSP X RG132430 | 63471 0601 00 0 63356 STO P2KT1 X RG132440 63472 0500 00 0 63465 CLA P2KT2 SW 2 OFF RG132450 | 63473 0760 00 0 00003 SSP X RG132460 | 63474 0601 00 0 63465 STO P2KT2 X RG132470 | 63475 -0500 00 0 64074 P2KD2 CAL P2KC1+7 GET IND TEST CONSTANT RG132480 | 63476 0625 00 0 64124 STT P2KS3+1 STO TO RNT INST RG132490 63477 0621 00 0 64124 STA P2KS3+1 X RG132500 | 63500 -0500 00 0 64076 CAL P2KC1+9 GET H LEVEL MASK RG132510 | 63501 0320 00 0 64126 ANS P2KS3+3 TAKE OUT OLD H LEVEL RG132520 | 63502 -0500 00 0 64067 CAL P2KC1+2 GET CURRENT CB RG132530 | 63503 0767 00 0 00014 ALS 12 POSITION RG132540 63504 -0602 00 0 64126 ORS P2KS3+3 OR IN HIGHEST H LEVEL RG132550 | 63505 0560 00 0 64122 LDQ P2KS3-1 STEP IC WITH EOJ TEST PKG RG132560 | 63506 0074 00 4 40227 TSX STEPI,4 RG132570 | 63507 0 00004 1 64123 PZE P2KS3,1,4 RG132580 | 63510 3 00000 0 63600 P2KT3 TXH P2KBD+2,0,0 SW 3 RG132590 63511 0560 00 2 22657 P2KD3 LDQ P2AA0,2 ENTRY FROM LFT RG132600 | 63512 -0754 00 0 00000 PXD 0,0 CLEAR AC RG132610 | 63513 -0763 00 0 00006 LGL 6 RG132620 | 63514 -0340 00 0 64071 LAS P2KC1+4 COMPARE TO T RG132630 | 63515 0020 00 0 63520 TRA *+3 GR-ERROR RG132640 63516 0020 00 0 63523 TRA *+5 EQ-T LINE RG132650 | 63517 0020 00 0 63537 TRA P2KBE LO-CHECK FOR H RG132660 | 63520 0074 00 4 37677 TSX P2M06,4 BAD LFT ENTRY. RG132670 | 63521 +000000000255 OCT 255 RG132680 | 1 LISTING OF 12/01/64 PAGE 301 PROCESS HEADING AND TOTAL ROUTINES | | 63522 0074 00 4 04000 TSX LOST,4 RG132690 | 63523 -0763 00 0 00006 LGL 6 RG132700 | 63524 -0340 00 0 64072 LAS P2KC1+5 COMP TO TF RG132710 63525 0020 00 0 63527 TRA *+2 GR-ERROR-HI TO TF RG132720 | 63526 0020 00 0 63532 TRA *+4 EQ-TF LINE RG132730 | 63527 0074 00 4 37677 TSX P2M06,4 X RG132740 | 63530 +000000000256 OCT 256 RG132750 | 63531 0074 00 4 04000 TSX LOST,4 RG132760 63532 -0763 00 0 00006 LGL 6 RG132770 | 63533 0602 00 0 64200 SLW P2KB2+1 STO TFX TO BETA SEARCH RG132780 | 63534 0074 00 4 64173 TSX P2KB1,4 TSX TO FORMAT TF LINE RG132790 | 63535 -3 00000 2 63602 P2KBB TXL P2KBD+4,2,0 FORMATS GONE RG132800 | 63536 0020 00 0 63511 TRA P2KD3 GET ANOTHER FORMAT RG132810 63537 0074 00 4 64317 P2KBE TSX P2KE2,4 TRA TO BUILD COUNT + EOT RG132820 | * HXX LINES RG132830 | 63540 0560 00 2 22657 P2KE3 LDQ P2AA0,2 GET FORMAT ENTRY RG132840 | 63541 -0754 00 0 00000 PXD 0,0 CLEAR AC RG132850 | 63542 -0763 00 0 00006 LGL 6 X RG132860 63543 -0340 00 0 64077 LAS P2KC1+10 COMP TO H RG132870 | 63544 0020 00 0 63546 TRA *+2 GR-ERROR-HI TO H RG132880 | 63545 0020 00 0 63551 TRA *+4 EQ-H RG132890 | 63546 0074 00 4 37677 TSX P2M06,4 X RG132900 | 63547 +000000000261 OCT 261 RG132910 63550 0074 00 4 04000 TSX LOST,4 RG132920 | 63551 -0763 00 0 00006 LGL 6 RG132930 | 63552 -0340 00 0 64070 LAS P2KC1+3 COMP TO LAST HX RG132940 | 63553 0020 00 0 63555 TRA *+2 GR-TRA *+2 RG132950 | 63554 0020 00 0 63573 TRA P2KBD-3 EQ RG132960 63555 0602 00 0 64070 SLW P2KC1+3 LO-STO HX TO COMP AREA RG132970 | 63556 -0763 00 0 00006 LGL 6 X RG132980 | 63557 0602 00 0 64200 SLW P2KB2+1 STO HXX TO BETA SEARCH RG132990 | 63560 -0500 00 0 64076 CAL P2KC1+9 RG133000 | 63561 0320 00 0 64126 ANS P2KS3+3 RG133010 63562 -0500 00 0 64070 CAL P2KC1+3 RG133020 | 63563 0767 00 0 00014 ALS 12 RG133030 | 63564 -0320 00 0 64103 ANA P2KC1+14 RG133040 | 63565 -0501 00 0 64126 ORA P2KS3+3 RG133050 | 63566 0602 00 0 64126 SLW P2KS3+3 RG133060 63567 0602 00 0 63571 SLW *+2 RG133070 | 63570 0074 00 4 64276 P2KEA TSX P2KE4,4 BUILD COUNT PKG RG133080 | 63571 0 00000 0 00000 PZE 0 X RG133090 | 63572 0020 00 0 63575 TRA P2KBD-1 GO TO FORMATING LINES RG133100 | 63573 -0763 00 0 00006 LGL 6 RG133110 63574 0602 00 0 64200 SLW P2KB2+1 STO HXX TO BETA SEARCH PKG RG133120 | 63575 0074 00 4 64173 TSX P2KB1,4 TRA TO FORMAT H LINES RG133130 | 63576 -3 00000 2 63622 P2KBD TXL P2KF1,2,0 FORMATS GONE RG133140 | 63577 0020 00 0 63540 TRA P2KE3 GET ANOTHER FORMAT RG133150 | 63600 0502 00 0 63510 CLS P2KT3 SET SW 3 OFF RG133160 63601 0601 00 0 63510 STO P2KT3 X RG133170 | 63602 0074 00 4 64317 TSX P2KE2,4 BUILD COUNT + E OF J RG133180 | 63603 0020 00 0 63622 TRA P2KF1 INDICATIVE ENTRY OMEGA RG133190 | 63604 0074 00 4 40674 P2KB9 TSX CCNPD,4 WE ARE AT PHI RG133200 | 63605 135325000000 BCI 1,=$E000 SAVE I/O ENTRY RG133210 63606 0020 00 0 63311 TRA P2KA3 RETURN TO CONTINUE RG133220 | 63607 -3 00000 2 63611 P2KE1 TXL *+2,2,0 FORMATS GONE RG133230 | 1 LISTING OF 12/01/64 PAGE 302 | PROCESS HEADING AND TOTAL ROUTINES | 63610 0020 00 0 63511 TRA P2KD3 TF LINE ROUTINE RG133240 | 63611 0074 00 4 64317 TSX P2KE2,4 BUILD COUNT + EOJ RG133250 | 63612 -0500 00 0 64126 CAL P2KS3+3 GET =$H0RN RG133260 | 63613 0602 00 0 63615 SLW *+2 * RG133270 | 63614 0074 00 4 64276 TSX P2KE4,4 TSX TO OMEGA RG133280 63615 0 00000 0 00000 PZE 0 RG133290 | 63616 0560 00 0 64140 LDQ P2KS7-1 STEP IC WITH TAA RG133300 | 63617 0074 00 4 40227 TSX STEPI,4 STEP IC WITH TRA RG133310 | 63620 0 00001 1 64141 PZE P2KS7,1,1 STEP IC WITH TRA RG133320 | 63621 0020 00 0 63627 TRA P2KF3-1 RG133330 63622 0074 00 4 64276 P2KF1 TSX P2KE4,4 CHECK NPD TABLE OMEGA RG133340 | 63623 135330000000 BCI 1,=$H000 X RG133350 | * INDICATIVE PIC-UP RG133360 | 63624 0560 00 0 64140 P2KF2 LDQ P2KS7-1 IND TRANS PKG-KEYS RG133370 | 63625 0074 00 4 40227 TSX STEPI,4 X RG133380 63626 0 00001 1 64141 PZE P2KS7,1,1 X RG133390 | 63627 0074 00 4 64753 TSX P2J70,4 JACKBETA SORT RG133400 | 63630 0774 00 1 00372 P2KF3 AXT P2JB8,1 LENGTH OF BETA TABLE TO IRA RG133410 | 63631 0500 00 0 52136 CLA P2JAA RG133420 | 63632 0622 00 0 64061 STD P2KG5 RG133430 63633 0622 00 0 63725 STD P2KF6 RG133440 | 63634 -0500 00 0 51544 CAL P2JAA-P2JB8 RG133450 | 63635 0100 00 0 65043 TZE P2X00 *, YES RG133460 | 63636 -0500 00 0 64103 CAL P2KC1+14 GET MASK RG133470 | 63637 0320 00 0 64101 ANS P2KC1+12 CLEAR RT + CB FROM =RT $ CB RG133480 63640 -0754 00 0 00000 PXD 0,0 CLEAR AC RG133490 | 63641 0560 60 1 52136 LDQ* P2JAA,1 TIDENT AREA RG133500 | 63642 -0763 00 0 00014 LGL 12 SHIFT ART TO AC RG133510 | 63643 0602 00 0 64070 SLW P2KC1+3 STO ART TO TEMP AREA RG133520 | 63644 0767 00 0 00014 ALS 12 RG133530 63645 -0763 00 0 00006 LGL 6 SHIFT CB TO AC 0XX00X RG133540 | 63646 0621 00 0 64067 STA P2KC1+2 STO CB TO TEMP AREA RG133550 | 63647 -0765 00 0 00006 LGR 6 SHIFT AC 00XX00 RG133560 | 63650 0771 00 0 00006 ARS 6 000XX0 RG133570 | 63651 -0763 00 0 00006 LGL 6 00XX0X RG133580 63652 0767 00 0 00006 ALS 6 0XX0X0 RG133590 | 63653 -0501 00 0 64101 ORA P2KC1+12 OR TO =00$00 RG133600 | 63654 0602 00 0 64101 SLW P2KC1+12 SET UP =RT=CB RG133610 | 63655 0602 00 0 63670 SLW P2KF4+1 RG133620 | 63656 -0625 00 0 64752 STL SWI RG133630 63657 -0754 00 0 00000 PXD 0,0 CLEAR AC RG133640 | 63660 -0763 00 0 00014 LGL 12 SHIFT IRT TO AC RG133650 | 63661 -0501 00 0 64105 ORA P2KC1+16 BUILD 00==RT RG133660 | 63662 0602 00 0 64151 SLW P2KST+1 STO TO IRA SET PKG RG133670 | 63663 -0500 00 0 22022 CAL P2AA2+25 RG133680 63664 -0320 00 0 64525 ANA P2JM0 RG133690 | 63665 0322 00 0 64070 ERA P2KC1+3 RG133700 | 63666 0100 00 0 63766 TZE Z2KFB RG133710 | 63667 0074 00 4 40604 P2KF4 TSX IC600,4 WE ARE AT =RT$CB RG133720 | 63670 0 00000 0 00000 PZE 0 RG133730 63671 -0520 00 0 64752 P2KF5 NZT SWI RG133740 | 63672 0020 00 0 63707 TRA P2KF5A RG133750 | 63673 0600 00 0 64752 STZ SWI RG133760 | 63674 0560 60 1 52136 LDQ* P2JAA,1 RG133770 | 63675 -0763 00 0 00022 LGL 18 RG133780 1 LISTING OF 12/01/64 PAGE 303 | PROCESS HEADING AND TOTAL ROUTINES | | 63676 -0754 00 0 00000 PXD 0,0 CLEAR AC RG133790 | 63677 -0763 00 0 00014 LGL 12 RG133800 63700 0100 00 0 63707 TZE P2KF5A RG133810 | 63701 -0501 00 0 64105 ORA P2KC1+16 BUILD 00==RT RG133820 | 63702 0602 00 0 64151 SLW P2KST+1 RG133830 | 63703 -0500 00 0 64106 CAL P2KC1+17 RG133840 | 63704 -0765 00 0 00011 LGR 9 RG133850 63705 0074 00 4 40227 TSX STEPI,4 RG133860 | 63706 0 00002 1 64150 PZE P2KST,1,2 RG133870 | 63707 -0500 60 1 52136 P2KF5A CAL* P2JAA,1 GET FIRST TIDENT ENTRY RG133880 | 63710 0402 00 0 64107 SUB P2KC2 SUB 2 RG133890 | 63711 -0320 00 0 65036 ANA P2JM1 RG133900 63712 0767 00 0 00022 ALS 18 SHIFT COUNT RG133910 | 63713 0622 00 0 63723 STD P2KFA STO TO PZE RG133920 | 63714 0500 00 1 52136 CLA P2JAA,1 GET BETA TABLE ENTRY RG133930 | 63715 0402 00 0 64066 SUB P2KC1+1 SUB 1 RG133940 | 63716 0621 00 0 63721 STA *+3 LOC OF KEYS RG133950 63717 0402 00 0 64066 SUB P2KC1+1 SUB 1 RG133960 | 63720 0621 00 0 63723 STA P2KFA STA TO PZE RG133970 | 63721 0560 00 0 00000 LDQ 0 KEYS TO MQ RG133980 | 63722 0074 00 4 40227 TSX STEPI,4 STEP IC WITH IND RG133990 | 63723 0 00000 1 00000 P2KFA PZE 0,1,0 X RG134000 63724 3 00000 0 64046 P2KT5 TXH P2KG3,0,0 SW 5 RG134010 | 63725 -3 00000 1 63754 P2KF6 TXL P2KG9,1,** RG134020 | 63726 1 77777 1 63727 TXI *+1,1,-1 RG134030 | 63727 0560 60 1 52136 LDQ* P2JAA,1 GET ENTRY RG134040 | 63730 0760 00 0 00000 CLM CLEAR AC RG134050 63731 -0763 00 0 00014 LGL 12 ART IN AC RG134060 | 63732 -0340 00 0 64070 P2KF7 LAS P2KC1+3 CMP TO LAST ART RG134070 | 63733 0020 00 0 64000 TRA P2KF8-3 RG134080 | 63734 0020 00 0 64003 TRA P2KF8 ART EQUAL RG134090 | 63735 3 00000 0 63741 P2KT6 TXH *+4,0,0 RG134100 63736 0074 00 4 37677 TSX P2M06,4 NO RESET FOR LAST ART RG134110 | 63737 +000000000257 OCT 257 RG134120 | 63740 0020 00 0 63754 TRA P2KG9 RG134130 | 63741 0602 00 0 64070 SLW P2KC1+3 STO NEW ART RG134140 | 63742 -0625 00 0 64752 STL SWI RG134150 63743 0502 00 0 63735 P2KG8 CLS P2KT6 SET SW 6 OFF RG134160 | 63744 0601 00 0 63735 STO P2KT6 X RG134170 | 63745 -0500 00 0 22022 CAL P2AA2+25 RG134180 | 63746 -0320 00 0 64525 ANA P2JM0 RG134190 | 63747 0322 00 0 64070 ERA P2KC1+3 RG134200 63750 0100 00 0 63766 TZE Z2KFB RG134210 | 63751 0760 00 0 00000 CLM CLEAR AC RG134220 | 63752 -0763 00 0 00006 LGL 6 POSITION CB RG134230 | 63753 0020 00 0 64033 TRA P2KFB RG134240 | 63754 0074 00 4 34503 P2KG9 TSX ERROR,4 RG134250 63755 -0 00006 0 63760 MZE *+3,,6 RG134260 | 63756 0 00003 0 34543 PZE ER104,,3 RG134270 | 63757 0020 00 0 65043 TRA P2X00 RG134280 | 63760 512562256360 BCI 6,RESET PACKAGE MAY BE INCOMPLETE RG134290 | 63761 472123422127 63762 256044217060 | 63763 222560314523 | 63764 464447432563 | 1 LISTING OF 12/01/64 PAGE 304 | PROCESS HEADING AND TOTAL ROUTINES | 63765 256060606060 | 63766 -0500 00 0 64070 Z2KFB CAL P2KC1+3 RG134300 | 63767 0767 00 0 00022 ALS 18 RG134310 | 63770 -0602 00 0 63776 ORS Z2KFZ+1 RG134320 63771 -0500 00 0 63776 CAL Z2KFZ+1 RG134330 | 63772 -0320 00 0 64525 ANA P2JM0 RG134340 | 63773 0771 00 0 00006 ARS 6 RG134350 | 63774 0621 00 0 64067 STA P2KC1+2 RG134360 | 63775 0074 00 4 40674 Z2KFZ TSX CCNPD,4 WE ARE AT PHI-=RT$CB RG134370 63776 130000532600 BCI 1,=00$F0 RG134380 | 63777 0020 00 0 64017 TRA P2KF9 RG134390 | 64000 0074 00 4 37677 TSX P2M06,4 ART DROP IN IND PV. RG134400 | 64001 +000000000260 OCT 260 RG134410 | 64002 0074 00 4 04000 TSX LOST,4 RG134420 64003 -0754 00 0 00000 P2KF8 PXD 0,0 CLEAR AC RG134430 | 64004 -0773 00 0 00006 RQL 6 SAVE CB IN MQ RG134440 | 64005 -0763 00 0 00014 LGL 12 IRT IN AC RG134450 | 64006 0400 00 0 64105 ADD P2KC1+16 ADD 00==00 RG134460 | 64007 -0340 00 0 64151 LAS P2KST+1 COMP TO ENTRY IN SET PKG RG134470 64010 0020 00 0 64012 TRA *+2 STO NEW IRT TO SET PKG RG134480 | 64011 0020 00 0 64017 TRA P2KF9 TRA TO CHECK CB RG134490 | 64012 0602 00 0 64151 SLW P2KST+1 STO NEW IRT TO SET PKG RG134500 | 64013 -0500 00 0 64106 CAL P2KC1+17 GET KEYS RG134510 | 64014 -0765 00 0 00011 LGR 9 KEYS TO MQ RG134520 64015 0074 00 4 40227 TSX STEPI,4 STEP IC WITH IR SET RG134530 | 64016 0 00002 1 64150 PZE P2KST,1,2 RG134540 | 64017 -0754 00 0 00000 P2KF9 PXD 0,0 CLEAR AC RG134550 | 64020 0560 60 1 52136 LDQ* P2JAA,1 RG134560 | 64021 -0773 00 0 00014 RQL 12 POSITION CB RG134570 64022 -0763 00 0 00006 LGL 6 CB TO AC RG134580 | 64023 -0340 00 0 64067 LAS P2KC1+2 COMP TO LAST CB RG134590 | 64024 0020 00 0 64026 TRA *+2 CONTROL BREAK RG134600 | 64025 0020 00 0 63671 TRA P2KF5 TRA TO GET INDICATIVE RG134610 | 64026 0100 00 0 64030 P2KG1 TZE *+2 ZERO RG134620 64027 0020 00 0 64033 TRA P2KFB NOT ZERO RG134630 | 64030 0502 00 0 63724 P2KG2 CLS P2KT5 SET SW 5 ON RG134640 | 64031 0601 00 0 63724 STO P2KT5 X RG134650 | 64032 0020 00 0 63671 TRA P2KF5 RG134660 | 64033 0602 00 0 64067 P2KFB SLW P2KC1+2 STO NEW CB RG134670 64034 -0500 00 0 64103 CAL P2KC1+14 CLEAR=RT=CB RG134680 | 64035 0320 00 0 64101 ANS P2KC1+12 X RG134690 | 64036 -0500 00 0 64070 CAL P2KC1+3 RG134700 | 64037 0767 00 0 00014 ALS 12 POSITION ART RG134710 | 64040 0400 00 0 64067 ADD P2KC1+2 ADD CB RG134720 64041 0767 00 0 00006 ALS 6 RG134730 | 64042 -0501 00 0 64101 ORA P2KC1+12 OR IN =00$00 RG134740 | 64043 0602 00 0 64101 SLW P2KC1+12 SET UP =RT=CB RG134750 | 64044 0602 00 0 63670 SLW P2KF4+1 STO TO WE ARE AT PHI RG134760 | 64045 0020 00 0 63667 TRA P2KF4 TRA TO WE ARE AT PHI RG134770 64046 0502 00 0 63724 P2KG3 CLS P2KT5 SET SW 5 OFF RG134780 | 64047 0601 00 0 63724 STO P2KT5 X RG134790 | 64050 -0500 00 0 64065 CAL P2KC1 RG134800 | 64051 0760 00 0 00006 COM RG134810 | 64052 0320 00 0 64147 ANS P2KSS+1 RG134820 64053 -0500 00 0 64070 CAL P2KC1+3 GET ART RG134830 | 1 LISTING OF 12/01/64 PAGE 305 | PROCESS HEADING AND TOTAL ROUTINES | | 64054 0767 00 0 00022 ALS 18 RG134840 64055 -0602 00 0 64147 ORS P2KSS+1 =XXIX0 RG134850 | 64056 0560 00 0 64145 LDQ P2KSS-1 IND RETURN PKG-KEYS RG134860 | 64057 0074 00 4 40227 TSX STEPI,4 IND RETURN PKG RG134870 | 64060 0 00002 1 64146 PZE P2KSS,1,2 X RG134880 | 64061 -3 00000 1 65043 P2KG5 TXL P2X00,1,0 RG134890 64062 0502 00 0 63735 P2KG7 CLS P2KT6 SET SW 6 ON RG134900 | 64063 0601 00 0 63735 STO P2KT6 X RG134910 | 64064 0020 00 0 63726 TRA P2KF6+1 RG134920 | * CONSTANTS RG134930 | 64065 +007777000000 P2KC1 OCT 007777000000 REPORT NO RG134940 64066 +000000000001 DEC 1 RG134950 | 64067 BSS 2 CB COMP-TX LEVEL RG134960 | 64071 000000000063 BCI 1,00000T RG134970 | 64072 000000006326 BCI 1,0000TF RG134980 | 64073 +000000007700 OCT 7700 RG134990 64074 +000000001777 OCT 1777 FOR CB LEVEL RG135000 | 64075 -000000000012 DEC -10 FOR CB RG135010 | 64076 -377777007777 OCT 777777007777 RG135020 | 64077 000000000030 BCI 1,00000H RG135030 | 64100 -377700007777 OCT 777700007777 RG135040 64101 130000530000 BCI 1,=00$00 RG135050 | 64102 000000002600 BCI 1,0000F0 RG135060 | 64103 -370000770000 OCT 770000770000 RG135070 | 64104 +000000000077 OCT 77 RG135080 | 64105 000013130000 BCI 1,00==00 RG135090 64106 +000000000422 OCT 422 RG135100 | 64107 +000000000002 P2KC2 DEC 2 RG135110 | * SET INDICATORS RG135120 | 64110 +000200000000 OCT 000200000000 END OF JOB ROUTINE RG135130 | 64111 -0754 00 0 00000 P2KS1 PXD 0,0 * RG135140 64112 0760 00 0 00006 COM * RG135150 | 64113 0602 00 0 00000 SLW ** * RG135160 | 64114 0074 00 4 00002 TSX 2,4 * RG135170 | 64115 0020 00 0 75035 TRA RGEOJ * RG135180 | * SAVE INDICATIVE ADDRESS RG135190 64116 +040000000000 OCT 040000000000 RG135200 | 64117 0500 00 4 00001 P2KS2 CLA 1,4 CONTROL BREAK ADDRESS RG135210 | 64120 0621 00 0 00000 STA 0 SAVE INDICATIVE ENTRY ADDRESS RG135220 | 64121 135330000000 BCI 1,=$H000 X RG135230 | * INDICATOR TEST SWITCH RG135240 64122 +004000000000 OCT 004000000000 RG135250 | 64123 0441 00 0 00000 P2KS3 LDI 0 RG135260 | 64124 0056 00 000000 RNT 0 RG135270 | 64125 0020 00 0 00000 TRA 0 RG135280 | 64126 135330000000 BCI 1,=$H000 RG135290 * PICK UP OUTPUT ADDRESS RG135300 | 64127 -000000000000 OCT 400000000000 RG135310 | 64130 0535 00 2 00000 P2KS4 LAC 0,2 RG135320 | 64131 131313130000 BCI 1,====00 RG135330 | * DECREASE LINE COUNTER RG135340 64132 +000400000000 OCT 400000000 RG135350 | 64133 0500 00 0 00000 P2KS5 CLA 0 LINE COUNTER RG135360 | 64134 0402 00 0 04673 SUB LZERO+1 RG135370 | 64135 0601 00 0 00000 STO 0 RG135380 | 1 LISTING OF 12/01/64 PAGE 306 PROCESS HEADING AND TOTAL ROUTINES | | * WRITE OUT PKG RG135390 | 64136 0074 00 4 00000 TSX 0,4 RG135400 | 64137 131366510000 BCI 1,==WR00 RG135410 * SET INDICATIVE ENTRY ADDRESS RG135420 | 64140 +000000000000 DEC 0 RG135430 | 64141 0020 00 0 00000 P2KS7 TRA 0 RG135440 | 64142 -000000000000 OCT 400000000000 RG135450 | 64143 0020 00 0 00000 P2KS9 TRA 0 RG135460 64144 000000000000 BCI 1,000000 RG135470 | * INDICATIVE RETURN PKG RG135480 | 64145 +300000000000 OCT 300000000000 RG135490 | 64146 0020 00 0 00000 P2KSS TRA 0 RG135500 | 64147 130000310000 BCI 1,=00I00 RG135510 * IRA SET PKG RG135520 | 64150 0535 00 1 00000 P2KST LAC 0,1 RG135530 | 64151 +000000000000 DEC 0 RG135540 | * ON LINE WRITE PACKAGE RG135550 | 64152 0074 00 4 00000 TSX 0,4 RG135560 64153 131347514563 BCI 1,==PRNT RG135570 | 64154 0 00000 0 00000 P2KB3 PZE RG135580 | 64155 -100000000000 OCT 500000000000 KEYS RG135590 | 64156 +000000770000 OCT 770000 CONSTANTS FOR DECREASE L/P RG135600 | 64157 0 00000 2 00000 PZE 0,2,0 X RG135610 64160 0 00000 4 00000 PZE 0,4,0 X RG135620 | 64161 0402 00 0 04672 SUB LZERO RG135630 | 64162 0402 00 0 04673 SUB LZERO+1 RG135640 | 64163 0402 00 0 04674 SUB LZERO+2 RG135650 | 64164 -0760 00 0 00003 SSM X RG135660 * FORMAT LINES, RG135670 | 64165 0500 00 0 64161 CLA P2KB3+5 SUB -1 RG135680 | 64166 0020 00 0 64247 TRA Z2KB3 RG135690 | 64167 0500 00 0 64162 CLA P2KB3+6 SUB -26 RG135700 | 64170 0020 00 0 64247 TRA Z2KB3 RG135710 64171 0500 00 0 64163 CLA P2KB3+7 SUB -27 RG135720 | 64172 0020 00 0 64247 TRA Z2KB3 RG135730 | 64173 0634 00 4 64266 P2KB1 SXA P2KB5+1,4 RG135740 | 64174 0560 00 0 64127 LDQ P2KS4-1 PICK UP OUTPUT ADDRESS-KEYS RG135750 | 64175 0074 00 4 40227 TSX STEPI,4 STEP IC WITH OUTPUT PKG RG135760 64176 0 00002 1 64130 PZE P2KS4,1,2 X RG135770 | 64177 0074 00 4 64546 P2KB2 TSX P2J50,4 JACK BAKER BETA SEARCH RG135780 | 64200 000000000000 BCI 1,000000 ADDRESS STORED FROM P2KAE-1 RG135790 | 64201 0441 00 0 22022 P2KB4 LDI P2AA2+25 RG135800 | 64202 -0056 00 000060 LNT 60 RG135810 64203 0020 00 0 64205 TRA *+2 RG135820 | 64204 0020 00 0 64270 TRA P2KB7 RG135830 | 64205 0441 00 2 22660 LDI P2AA0+1,2 RG135840 | 64206 -0056 00 200000 LNT 200000 ON LINE RG135850 | 64207 0020 00 0 64216 TRA P2KB4A ON LINE PRINT RG135860 64210 -0056 00 002000 LNT 002000 RG135870 | 64211 0020 00 0 64213 TRA *+2 RG135880 | 64212 0020 00 0 64230 TRA P2KB6 RG135890 | 64213 0634 00 0 64154 SXA P2KB3,0 RG135900 | 64214 -0625 00 0 65040 STL P2JR1 RG135910 64215 0020 00 0 64221 TRA *+4 RG135920 | 64216 0774 00 4 77777 P2KB4A AXT -1,4 RG135930 | 1 LISTING OF 12/01/64 PAGE 307 | PROCESS HEADING AND TOTAL ROUTINES | 64217 0634 00 4 64154 SXA P2KB3,4 RG135940 | 64220 0600 00 0 65040 STZ P2JR1 RG135950 | 64221 0534 00 4 22012 LXA P2AA2+17,4 RG135960 | 64222 -0634 00 4 64154 SXD P2KB3,4 RG135970 | 64223 0560 00 0 64142 LDQ P2KS7+1 +4 FOR KEY RG135980 64224 0074 00 4 40227 TSX STEPI,4 BUILD ON LINE WRITE RG135990 | 64225 0 00003 1 64152 PZE P2KB3-2,1,3 RG136000 | 64226 0520 00 0 65040 ZET P2JR1 RG136010 | 64227 0020 00 0 64262 TRA P2KB5-3 RG136020 | 64230 -0500 00 2 22657 P2KB6 CAL P2AA0,2 RG136030 64231 0771 00 0 00030 ARS 24 RG136040 | 64232 -0340 00 0 64526 LAS P2JKE RG136050 | 64233 0020 00 0 64235 TRA *+2 RG136060 | 64234 0020 00 0 64270 TRA P2KB7 RG136070 | 64235 -0500 00 0 22006 CAL P2AA2+13 RG136080 64236 0100 00 0 64270 TZE P2KB7 RG136090 | 64237 -0500 00 2 22657 CAL P2AA0,2 GET CCC RG136100 | 64240 -0320 00 0 64156 ANA P2KB3+2 X RG136110 | 64241 0100 00 0 64171 TZE P2KB1-2 DOUBLE SPACE RG136120 | 64242 0402 00 0 64157 SUB P2KB3+3 RG136130 64243 0100 00 0 64165 TZE P2KB1-6 NO SPACE RG136140 | 64244 0402 00 0 64160 SUB P2KB3+4 RG136150 | 64245 0100 00 0 64167 TZE P2KB1-4 SINGLE SPACE RG136160 | 64246 0500 00 0 64164 CLA P2KB3+8 RESET L/P RG136170 | 64247 0601 00 0 64134 Z2KB3 STO P2KS5+1 SET PACKAGE RG136180 64250 -0500 00 0 22005 CAL P2AA2+12 LOCATION OF L/P COUNTER RG136190 | 64251 -0320 00 0 64274 ANA Z2KB3A RG136200 | 64252 -0340 00 0 64275 LAS Z2KB3B RG136210 | 64253 0020 00 0 64255 TRA *+2 RG136220 | 64254 0020 00 0 64270 TRA P2KB7 RG136230 64255 0621 00 0 64133 STA P2KS5 TO CLA RG136240 | 64256 0621 00 0 64135 STA P2KS5+2 TO STO RG136250 | 64257 0560 00 0 64132 LDQ P2KS5-1 GET KEYS RG136260 | 64260 0074 00 4 40227 TSX STEPI,4 BUILD WRITE PACKAGE RG136270 | 64261 0 00005 1 64133 PZE P2KS5,1,5 RG136280 64262 0074 00 4 40674 TSX CCNPD,4 WE ARE AT = T+H RN RG136290 | 64263 136320300000 BCI 1,=T+H00 RG136300 | 64264 3 00000 0 64516 TXH P2J64,0,0 SWITCH TO HD RG136310 | 64265 1 77776 2 64266 P2KB5 TXI *+1,2,-2 LOCATE NEXT LINE FORMAT RG136320 | 64266 0774 00 4 00000 AXT 0,4 RETURN TO PROGRAM RG136330 64267 0020 00 4 00001 TRA 1,4 X RG136340 | 64270 0560 00 0 64127 P2KB7 LDQ P2KS4-1 RG136350 | 64271 0074 00 4 40227 TSX STEPI,4 RG136360 | 64272 0 00002 1 64136 PZE P2KS5+3,1,2 RG136370 | 64273 0020 00 0 64262 TRA P2KB5-3 RG136380 64274 +000000077777 Z2KB3A OCT 000000077777 RG136390 | 64275 000000006060 Z2KB3B BCI 1,0000 RG136400 | * OMEGA ROUTINE RG136410 | 64276 0634 00 4 64277 P2KE4 SXA *+1,4 SAVE XR4 RG136420 | 64277 0774 00 4 00000 AXT **,4 FOR DEBUG PURPOSES RG136430 64300 0774 00 1 03721 AXT P2JB3,1 SET UP LOOP RG136440 | 64301 -0500 00 1 20326 P2KE5 CAL ICNPD,1 GET SYMBOLIC FROM TABLE RG136450 | 64302 -0320 00 0 64076 ANA P2KC1+9 XXX0XX RG136460 | 64303 -0340 00 0 64121 LAS P2KS2+2 =$HORN RG136470 | 64304 0020 00 0 64306 TRA *+2 NOT THE ONE RG136480 1 LISTING OF 12/01/64 PAGE 308 | PROCESS HEADING AND TOTAL ROUTINES | | 64305 0020 00 0 64310 TRA P2KE6 RG136490 | 64306 2 00002 1 64301 TIX P2KE5,1,2 RG136500 64307 0020 00 4 00002 TRA 2,4 RETURN TO PROGRAM RG136510 | 64310 -0500 00 4 00001 P2KE6 CAL 1,4 =$H RN RG136520 | 64311 -0340 00 1 20326 LAS ICNPD,1 GET SYMBOLIC FROM TABLE RG136530 | 64312 0020 00 0 64306 TRA P2KE5+5 GET ANOTHER TABLE ENTRY RG136540 | 64313 0020 00 0 64314 TRA *+1 ENTRY H LEVEL RG136550 64314 0560 00 0 04401 LDQ ICULC GET IC ULTIMATE LOC COUNTER RG136560 | 64315 -0600 00 1 20326 STQ ICNPD,1 PUT IN TABLE RG136570 | 64316 0020 00 0 64306 TRA P2KE5+5 RG136580 | * BUILD COUNT PACKAGE RG136590 | 64317 0634 00 4 64337 P2KE2 SXA P2KEB+6,4 RG136600 64320 0074 00 4 64546 TSX P2J50,4 CALLING SEQUENCE FOR BETA RG136610 | 64321 000000637171 BCI 1,000TZZ X RG136620 | 64322 -0520 00 0 07425 P2KE7 NZT EOJSW FINISHED WITH LAST REPORT RG136630 | 64323 0020 00 0 64331 TRA P2KEB NO RG136640 | 64324 -0625 00 0 64330 STL P2KEB-1 SET UP EXIT SWITCH RG136650 64325 -0500 00 0 64327 CAL *+2 GET ==EOFJ RG136660 | 64326 0020 00 0 64333 TRA P2KEB+2 RG136670 | 64327 131325462641 BCI 1,==EOFJ END OF JOB SYMBOLIC RG136680 | 64330 +000000000000 DEC 0 END OF PHASE TWO SWITCH RG136690 | 64331 -0500 00 0 63310 P2KEB CAL P2KA2+1 =$ EORN RG136700 64332 0400 00 0 64066 ADD P2KC1+1 CONSTANT ONE RG136710 | 64333 0602 00 0 64144 SLW P2KS9+1 =$EORN+1 RG136720 | 64334 0560 00 0 64142 LDQ P2KS9-1 TRANSFER NEXT RECORD ENTRY RG136730 | 64335 0074 00 4 40227 TSX STEPI,4 X RG136740 | 64336 0 00002 1 64143 PZE P2KS9,1,2 X RG136750 64337 0774 00 4 00000 AXT 0,4 RETURN TO MAIN PROGRAM RG136760 | 64340 0020 00 4 00001 TRA 1,4 X RG136770 | 1 LISTING OF 12/01/64 PAGE 309 | PROCESS HEADING AND TOTAL ROUTINES | * PHASE 2 B HD SECTION RG136800 | 64341 -0500 00 0 22034 P2J50A CAL RPTNO REPORT NUMBER RG136810 | 64342 0602 00 0 64531 SLW P2JT0 * RG136820 | 64343 0074 00 4 34553 TSX TRACE,4 TAKE CHECK POINT RG136830 | 64344 -0500 00 0 07307 CAL P2XA0 NUMBER OF REPORTS -SEE PH 3B- RG136840 64345 -0340 00 0 64531 LAS P2JT0 ARE WE ON LAST REPORT. RG136850 | 64346 0020 00 0 64357 TRA P2J60 NO RG136860 | 64347 0020 00 0 64356 TRA P2J55A YES RG136870 | 64350 0074 00 4 37677 TSX P2M06,4 TOO BIG. RG136880 | 64351 +000000000626 OCT 626 RG136890 64352 0074 00 4 04000 TSX LOST,4 RG136900 | 64353 0761 00 0 00000 NOP DELETE ***** RG136910 | 64354 0761 00 0 00000 NOP DELETE ***** RG136920 | 64355 0020 00 0 64357 TRA P2J60 RG136930 | 64356 -0625 00 0 07425 P2J55A STL EOJSW SET LAST REPORT SW. RG136940 64357 0774 00 2 00620 P2J60 AXT P2JB5,2 SET LOOP RG136950 | 64360 -0520 00 0 22657 NZT P2AA0 ANY LFT RG136960 | 64361 -0634 00 2 22657 SXD P2AA0,2 NO RG136970 | 64362 -0500 00 0 22657 CAL P2AA0 LFT MONITOR RG136980 | 64363 0622 00 0 63335 STD P2KAA RG136990 64364 0622 00 0 63535 STD P2KBB RG137000 | 64365 0622 00 0 63576 STD P2KBD RG137010 | 64366 0622 00 0 63607 STD P2KE1 RG137020 | 64367 -0500 00 0 22034 CAL RPTNO SET UP REPORT NUMBER RG137030 | 64370 -0320 00 0 65036 ANA P2JM1 * RG137040 64371 -0602 00 0 64263 ORS P2KB5-2 * RG137050 | 64372 -0602 00 0 64131 ORS P2KS4+1 RG137060 | 64373 -0500 00 0 22031 CAL RRSWT RG137070 | 64374 0602 00 0 64751 SLW FORSW SET REPORT/RECORD SWITCH RG137080 | 64375 -0100 00 0 64406 TNZ P2J61-2 RG137090 64376 0761 00 0 00000 NOP RG137100 | 64377 0761 00 0 00000 NOP RG137110 | 64400 0761 00 0 00000 NOP RG137120 | 64401 0500 00 0 22034 CLA RPTNO REPORT NUMBER RG137130 | 64402 -0320 00 0 65036 ANA P2JM1 X RG137140 64403 -0602 00 0 64405 ORS *+2 SET PHI RG137150 | 64404 0074 00 4 40674 TSX CCNPD,4 DO PHI RG137160 | 64405 135330240000 BCI 1,=$HD00 X RG137170 | 64406 0500 00 0 22657 CLA P2AA0 GET LFT MONITOR RG137180 | 64407 0622 00 0 64410 STD *+1 SET LIMIT RG137190 64410 -3 00000 2 64425 P2J61 TXL P2J62,2,0 END OF TABLE RG137200 | 64411 -0500 00 2 22657 CAL P2AA0,2 GET AFORMAT RG137210 | 64412 -0765 00 0 00036 LGR 30 RG137220 | 64413 0340 00 0 64530 CAS P2JKH TTEST FORD FORMAT RG137230 | 64414 0020 00 0 64421 TRA *+5 NO- HD, T OR HLINE RG137240 64415 1 77776 2 64410 TXI P2J61,2,-2 D LINE- GET NEXT ENTRY RG137250 | 64416 0074 00 4 37677 TSX P2M06,4 BAD LFT ENTRY RG137260 | 64417 +000000000255 OCT 255 RG137270 | 64420 0074 00 4 04000 TSX LOST,4 RG137280 | 64421 -0763 00 0 00006 LGL 6 TEST FOR HD LINE RG137290 64422 0340 00 0 64526 CAS P2JKE IS IT HD RG137300 | 64423 0020 00 0 64425 TRA *+2 NO RG137310 | 64424 0020 00 0 64463 TRA P2J63 YES RG137320 | 64425 0520 00 0 64751 P2J62 ZET FORSW IS THIS A REPORT RG137330 | 64426 0020 00 0 63266 TRA P2KA1 NO RG137340 1 LISTING OF 12/01/64 PAGE 310 | PROCESS HEADING AND TOTAL ROUTINES | | 64427 0500 00 0 22006 CLA P2AA2+13 GET L/P CTR RG137350 | 64430 -0320 00 0 64525 ANA P2JM0 X RG137360 64431 0100 00 0 63266 TZE P2KA1 RG137370 | 64432 0402 00 0 64066 SUB P2KC1+1 RG137380 | 64433 0601 00 0 64531 STO P2JT0 SAVE RG137390 | 64434 -0534 00 4 22024 LXD P2AA2+27,4 RG137400 | 64435 -3 00000 4 63266 TXL P2KA1,4,0 RG137410 64436 0074 00 4 35441 TSX STEPC,4 ESTABLISH CONSTANT RG137420 | 64437 0 00001 1 64531 PZE P2JT0,1,1 X RG137430 | 64440 0621 00 0 64532 STA P2JP5 SET UP PACKAGE RG137440 | 64441 0500 00 0 22005 CLA P2AA2+12 GET LINE COUNT ADDRESS RG137450 | 64442 0621 00 0 64533 STA P2JP5+1 SET UP PACKAGE RG137460 64443 0560 00 0 64527 LDQ P2JKG GET KEYS RG137470 | 64444 0074 00 4 40227 TSX STEPI,4 ESTABLISH RESET L/P RG137480 | 64445 0 00002 1 64532 PZE P2JP5,1,2 * RG137490 | 64446 0074 00 4 40674 TSX CCNPD,4 RG137500 | 64447 135330246265 BCI 1,=$HDSV RG137510 64450 0500 00 0 21771 CLA P2AA2 RG137520 | 64451 0621 00 0 64535 STA P2JZY+1 RG137530 | 64452 0621 00 0 64537 STA P2JZY+3 RG137540 | 64453 0560 00 0 64740 LDQ P2JN6 RG137550 | 64454 0074 00 4 40227 TSX STEPI,4 RG137560 64455 0 00005 1 64534 PZE P2JZY,1,5 RG137570 | 64456 0020 00 0 63266 TRA P2KA1 TO T LINES RG137580 | 64457 0560 00 0 64541 Z2J60 LDQ Z2JP5-1 ESTABLISH ONE RG137590 | 64460 0074 00 4 40227 TSX STEPI,4 TIME PACKAGE RG137600 | 64461 0 00004 1 64542 PZE Z2JP5,1,4 X RG137610 64462 0020 00 0 64476 TRA Z2J63 RG137620 | 64463 0520 00 0 64751 P2J63 ZET FORSW IS THIS A REPORT RG137630 | 64464 0020 00 0 63266 TRA P2KA1 RG137640 | 64465 3 00000 0 64473 TXH *+6,0,0 RG137650 | 64466 0502 00 0 64465 CLS *-1 RG137660 64467 0601 00 0 64465 STO *-2 RG137670 | 64470 0560 00 0 64142 LDQ P2KS7+1 RG137680 | 64471 0074 00 4 40227 TSX STEPI,4 RG137690 | 64472 0 00002 1 64523 PZE P2JZX,1,2 RG137700 | 64473 0441 00 2 22660 LDI P2AA0+1,2 GET LINE FORMAT RG137710 64474 -0054 00 000001 LFT 1 ONE TIME HD RG137720 | 64475 0020 00 0 64457 TRA Z2J60 YES RG137730 | 64476 0500 00 0 22034 Z2J63 CLA RPTNO REPORT NUMBER RG137740 | 64477 -0320 00 0 65036 ANA P2JM1 X RG137750 | 64500 -0602 00 0 64131 ORS P2KS4+1 RG137760 64501 -0602 00 0 64137 ORS P2KS5+4 RG137770 | 64502 0560 00 0 64127 LDQ P2KS4-1 GET KEYS RG137780 | 64503 0074 00 4 40227 TSX STEPI,4 ESTABLISH PCIK UP RG137790 | 64504 0 00002 1 64130 PZE P2KS4,1,2 RG137800 | 64505 -0500 00 2 22657 CAL P2AA0,2 GET LINE NUMBER RG137810 64506 0771 00 0 00022 ARS 18 X RG137820 | 64507 0602 00 0 64511 SLW *+2 SET UP BETA RG137830 | 64510 0074 00 4 64546 TSX P2J50,4 DO BETA RG137840 | 64511 +000000000000 DEC 0 X RG137850 | 64512 0560 00 0 64132 LDQ P2KS5-1 GET KEYS RG137860 64513 0502 00 0 64264 CLS P2KB5-1 SET SWITCH RG137870 | 64514 0601 00 0 64264 STO P2KB5-1 X RG137880 | 64515 0020 00 0 64201 TRA P2KB4 DO WRITE PACKAGES, RG137890 | 1 LISTING OF 12/01/64 PAGE 311 | PROCESS HEADING AND TOTAL ROUTINES | 64516 0502 00 0 64264 P2J64 CLS P2KB5-1 RESET SWITCH RG137900 | 64517 0601 00 0 64264 STO P2KB5-1 X RG137910 | 64520 0074 00 4 40674 TSX CCNPD,4 TIE IN ONE TIME RG137920 | 64521 132221422551 BCI 1,=BAKER SWITCH IF ANY RG137930 64522 1 77776 2 64410 TXI P2J61,2,-2 BUMP MONITOR RG137940 | 64523 0634 00 4 00000 P2JZX SXA 0,4 RG137950 | 64524 135330246265 BCI 1,=$HDSV RG137960 | 64525 +000000007777 P2JM0 OCT 7777 FOR RN RG137970 | 64526 000000003024 P2JKE BCI 1,0000HD HD RG137980 64527 +002112442000 P2JKG OCT 002112442000 KEYS RG137990 | 64530 000000000024 P2JKH BCI 1,00000D RG138000 | 64531 +000000000000 P2JT0 DEC 0 TEMP RG138010 | 64532 0500 00 0 00000 P2JP5 CLA 0 RESET L/P PACKAGE RG138020 | 64533 0601 00 0 00000 STO 0 X RG138030 64534 0774 00 4 00000 P2JZY AXT 0,4 RESTORE RETURN RG138040 | 64535 0441 00 0 00000 LDI 0 RG138050 | 64536 0055 00 001000 SIR 001000 RG138060 | 64537 0604 00 0 00000 STI 0 RG138070 | 64540 0020 00 4 00001 TRA 1,4 RETURN RG138080 64541 -011000000000 OCT 411000000000 KEYS RG138090 | 64542 3 00000 0 00000 Z2JP5 TXH 0,0,0 ONE TIME HD RG138100 | 64543 132221422551 BCI 1,=BAKER PACKAGE RG138110 | 64544 0502 00 0 00001 CLS 1 X RG138120 | 64545 0601 00 0 00002 STO 2 X RG138130 1 LISTING OF 12/01/64 PAGE 312 | BETA SUBROUTINE | | 64546 0634 00 1 64577 P2J50 SXA P2J53+1,1 SAVE IRA RG138150 | 64547 0634 00 2 64600 SXA P2J53+2,2 SAVE IRB RG138160 64550 0600 00 0 65041 STZ P2JR2 RG138170 | 64551 0600 00 0 52256 STZ P2AA4+5 RG138180 | 64552 0500 00 0 51543 CLA P2AA5 GET MONITOR RG138190 | 64553 0622 00 0 64576 STD P2J53 SET LIMIT RG138200 | 64554 0774 00 1 10624 AXT P2JB7,1 SET LOOP RG138210 64555 -0500 00 1 51543 P2J51 CAL P2AA5,1 GET COUNT RG138220 | 64556 -0320 00 0 64731 ANA P2JKF X RG138230 | 64557 -0100 00 0 64561 TNZ *+2 RG138240 | 64560 0074 00 4 04000 TSX LOST,4 RG138250 | 64561 0737 00 2 00000 PAC 0,2 PREPARE TO MODIFY RG138260 64562 -0634 00 2 64575 SXD P2J52,2 X RG138270 | 64563 -0500 00 1 51543 CAL P2AA5,1 GET ID RG138280 | 64564 -0765 00 0 00005 LGR 5 RG138290 | 64565 0520 00 0 65041 ZET P2JR2 RG138300 | 64566 0020 00 0 64571 TRA *+3 RG138310 64567 0760 00 0 00001 LBT RG138320 | 64570 0020 00 0 64575 TRA P2J52 RG138330 | 64571 -0765 00 0 00015 LGR 13 RG138340 | 64572 0340 00 4 00001 CAS 1,4 IS THIS ONE RG138350 | 64573 0020 00 0 64575 TRA *+2 NO RG138360 64574 0020 00 0 64607 TRA P2J54 YES RG138370 | 64575 1 77777 1 64576 P2J52 TXI *+1,1,-1 MODIFY TO NEXT RG138380 | 64576 3 00000 1 64555 P2J53 TXH P2J51,1,0 ANY LEFT RG138390 | 64577 0774 00 1 00000 AXT 0,1 RESTORE IRA RG138400 | 64600 0774 00 2 00000 AXT 0,2 RESTORE IR 13 RG138410 64601 0520 00 0 65041 ZET P2JR2 RG138420 | 64602 0020 00 0 64605 TRA *+3 RG138430 | 64603 -0625 00 0 65041 STL P2JR2 RG138440 | 64604 0020 00 0 64554 TRA P2J51-1 REPEAT TID SCAN RG138450 | 64605 0600 00 0 64702 STZ P2JP0+1 SET FOR LXA NEXT TIME RG138460 64606 0020 00 4 00002 TRA 2,4 EXIT RG138470 | 64607 0634 00 4 64636 P2J54 SXA P2J55+3,4 SAVE IR4 RG138480 | 64610 0340 00 0 64735 CAS P2JKD IS THIS TZZ RG138490 | 64611 0020 00 0 64613 TRA *+2 NO RG138500 | 64612 0020 00 0 64641 TRA P2J56 YES RG138510 64613 -0500 00 1 51547 CAL P2AA5+4,1 TEST FOR HAND CALC RG138520 | 64614 -0340 00 0 56705 LAS HC795 RG138530 | 64615 0020 00 0 64617 TRA *+2 RG138540 | 64616 0020 00 0 64661 TRA P2J68 YES RG138550 | 64617 -0600 00 0 07163 STQ P2AA3+1 STORE INPUT RECORD TYPE RG138560 64620 0600 00 0 07162 STZ P2AA3 RG138570 | 64621 0074 00 4 55047 TSX P2XR1,4 TEST FOR LAC ====RT,1 RG138580 | 64622 0754 00 1 00000 P2J59 PXA 0,1 RG138590 | 64623 -0400 00 0 64734 SBM P2JKC X RG138600 | 64624 0621 00 0 64633 STA P2J55 SET UP IC RG138610 64625 -0754 00 2 00000 PXD 0,2 GET NUMBER OF INSTR RG138620 | 64626 0760 00 0 00006 COM X RG138630 | 64627 0402 00 0 64640 SUB Z2J55 SUBTRACT 1 RG138640 | 64630 0622 00 0 64633 STD P2J55 SET UP IC RG138650 | 64631 0560 00 1 51544 LDQ P2AA5+1,1 GET KEYS RG138660 64632 0074 00 4 40227 TSX STEPI,4 ESTABLISH PACKAGE RG138670 | 64633 0 00000 1 00000 P2J55 PZE 0,1 X RG138680 | 64634 -0500 00 0 65036 CAL P2JM1 MARK USED RG138690 | 1 LISTING OF 12/01/64 PAGE 313 | BETA SUBROUTINE | 64635 0622 00 1 51543 STD P2AA5,1 X RG138700 | 64636 0774 00 4 00000 AXT 0,4 RETURN IR4 RG138710 | 64637 0020 00 0 64575 TRA P2J52 FINISH SEARCH RG138720 | 64640 0 00001 0 00000 Z2J55 PZE 0,0,1 RG138730 * BUILD TZZ PRINT OUT RG138740 | 64641 -0754 00 0 00000 P2J56 PXD 0,0 BUILD TSX TZZPRT,1 RG138750 | 64642 -0763 00 0 00014 LGL 12 RG138760 | 64643 0602 00 0 64657 SLW P2J58+1 REPORT NUMBER RG138770 | 64644 0074 00 4 36604 TSX XBIBCD,4 RG138780 64645 0 00000 0 64657 PZE P2J58+1 RG138790 | 64646 -0500 00 1 51544 CAL P2AA5+1,1 RG138800 | 64647 0621 00 0 64660 STA P2J58+2 LOCATION OF RECORD COUNT RG138810 | 64650 -0320 00 0 07030 ANA BCD30 RG138820 | 64651 0622 00 0 64657 STD P2J58+1 RECORD TYPE RG138830 64652 0560 00 0 06614 LDQ ZERO RG138840 | 64653 0074 00 4 40227 TSX STEPI,4 RG138850 | 64654 0 00003 1 64656 PZE P2J58,1,3 RG138860 | 64655 0020 00 0 64634 TRA P2J55+1 RG138870 | 64656 0074 00 1 75051 P2J58 TSX TZZPRT,1 PRINT OUT PACKAGE RG138880 64657 0 00000 0 00000 PZE * RG138890 | 64660 0 00000 0 00000 PZE * RG138900 | * RG138910 | 64661 -0625 00 0 56760 P2J68 STL HCSW7 PROCESS HAND CALC RG138920 | 64662 -0625 00 0 56761 STL HCSW8 RG138930 64663 -0500 00 1 51545 CAL P2AA5+2,1 GET CALC NAME FOR HCGET RG138940 | 64664 0602 00 0 07167 SLW P2AA3+5 RG138950 | 64665 -0500 00 0 07164 CAL P2AA3+2 RG138960 | 64666 -0320 00 0 07332 ANA MASK+13 RG138970 | 64667 0100 00 0 64673 TZE *+4 RG138980 64670 0500 00 0 61453 CLA OPE RG138990 | 64671 0400 00 0 61401 ADD C1+5 RG139000 | 64672 0020 00 0 64674 TRA *+2 RG139010 | 64673 0500 00 0 61453 CLA OPE RG139020 | 64674 0601 00 0 61456 STO PSOPE RG139030 64675 -0500 00 1 51546 CAL P2AA5+3,1 GET LNID AND RG139040 | 64676 0602 60 0 61456 SLW* PSOPE SAVE FOR HCGET RG139050 | 64677 0074 00 4 56323 TSX HCGET,4 RG139060 | 64700 0020 00 0 64634 TRA P2J55+1 RG139070 | 64701 0535 00 1 00000 P2JP0 LAC 0,1 PACKAGE TO SET IRA RG139080 64702 +000000000000 DEC 0 X RG139090 | 64703 -3 00000 1 00000 TXL 0,1,0 RG139100 | * PICK UP ADDRESS FOR OUTPUT RG139110 | 64704 +000100000000 OCT 000100000000 RG139120 | 64705 -000000000000 OCT 400000000000 KEY RG139130 64706 0774 00 4 00013 P2JP1 AXT 11,4 RG139140 | 64707 -0500 00 0 00000 CAL 0 RG139150 | 64710 0602 00 4 73024 SLW BCDBUF+1,4 RG139160 | 64711 2 00001 4 00001 TIX 1,4,1 RG139170 | 64712 -0774 00 2 73005 AXC BINBUF,2 RG139180 * FORMAT RN RG139190 | 64713 0500 00 0 00000 P2JP2 CLA 0 LOC OF RN RG139200 | 64714 0601 00 2 00000 STO 0,2 X RG139210 | * FORMAT COUNT RG139220 | 64715 +005500000000 OCT 005500000000 RG139230 64716 +005000000000 OCT 5000000000 KEYS RG139240 | 1 LISTING OF 12/01/64 PAGE 314 | BETA SUBROUTINE | | 64717 0500 00 0 00000 P2JP3 CLA 0 COUNTER RG139250 64720 0601 00 0 73005 STO BINBUF RG139260 | 64721 0074 00 4 00005 TSX 5,4 BIN TO BCD RG139270 | 64722 0074 00 4 00006 TSX 6,4 RG139280 | 64723 +201443677775 OCT 201443677775 CONSTANT RG139290 | 64724 +100200000000 OCT 100200000000 CONSTANT RG139300 64725 -0500 00 0 00000 CAL 0 777777000000RG139310 | 64726 0320 00 2 00002 ANS 2,2 RG139320 | * FORMAT RT RG139330 | 64727 -0500 00 0 00000 P2JP4 CAL 0 LOC OF RT RG139340 | 64730 -0602 00 2 00002 ORS 2,2 RG139350 64731 +000000000037 P2JKF OCT 37 RG139360 | 64732 000000001313 P2JKA BCI 1,0000== FOR LXA SYMBOL RG139370 | 64733 -000000000000 P2JKB OCT 400000000000 KEYS RG139380 | 64734 0 00000 0 51545 P2JKC PZE P2AA5+2,0,0 CONSTANT RG139390 | 64735 000000637171 P2JKD BCI 1,000TZZ TZZ RG139400 64736 +000000000000 P2JT1 DEC 0 TEMP RG139410 | 64737 000000000073 P2JN5 BCI 1,00000, COMMA RG139420 | 64740 +000000000012 P2JN6 DEC 10 RG139430 | 64741 606060606060 P2JN7 BCI 1, BLANKS RG139440 | 64742 000000600000 P2JN8 BCI 1,000 00 BLANK RG139450 64743 0320 00 2 00013 P2JN9 ANS 11,2 RG139460 | 64744 +000000000001 P2JN1 DEC 1,3 RG139470 | 64745 +000000000003 | 64746 +201443677775 P2JN1A OCT 201443677775 CONSTANT RG139480 | 64747 +003000000000 P2JN1B OCT 003000000000 CONSTANT RG139490 64750 -377777000000 P2JN1C OCT 777777000000 RG139500 | 64751 0 00000 0 00000 FORSW PZE 0 RG139510 | 64752 0 00000 0 00000 SWI PZE 0 0 RG139520 | * PROGRAM TO SORT TID LEAVINGS RG139530 | 64753 0500 00 0 51543 P2J70 CLA P2AA5 GET MONITOR TID RG139540 64754 0634 00 4 65030 SXA P2J77,4 SAVE RETURN RG139550 | 64755 -0534 00 4 52136 LXD P2JAA,4 GET BETA TAB MONITOR RG139560 | 64756 0622 00 0 65005 STD P2J73 SET LIMIT RG139570 | 64757 0774 00 1 10624 AXT P2JB7,1 SET UP LOOP RG139580 | 64760 -0500 00 1 51543 P2J71 CAL P2AA5,1 GET AN ENTRY RG139590 64761 -0320 00 0 65036 ANA P2JM1 GET COUNT RG139600 | 64762 0737 00 2 00000 PAC 0,2 X RG139610 | 64763 -0634 00 2 65004 SXD P2J72,2 SET UP MODIFY RG139620 | 64764 0322 00 0 65036 ERA P2JM1 RG139630 | 64765 0771 00 0 00006 ARS 6 GET ID ONLY RG139640 64766 0100 00 0 65004 TZE P2J72 USED ENTRY RG139650 | 64767 -0500 00 1 51543 CAL P2AA5,1 NEW ENTRY RG139660 | 64770 0771 00 0 00014 ARS 12 GET LEVEL RG139670 | 64771 0622 00 1 51543 STD P2AA5,1 EXCHANGE RG139680 | 64772 0630 00 1 51543 STP P2AA5,1 X RG139690 64773 0767 00 0 00022 ALS 18 GET ART RG139700 | 64774 -0320 00 0 65037 ANA P2JM2 X RG139710 | 64775 -0602 00 1 51543 ORS P2AA5,1 EXCHANGE RG139720 | 64776 0754 00 1 00000 PXA 0,1 GET LOC OF ENTRY RG139730 | 64777 -0400 00 0 64753 SBM P2J70 X RG139740 65000 0601 00 4 52136 STO P2JAA,4 PUT IN TABLE RG139750 | 65001 2 00001 4 65004 TIX P2J72,4,1 BUMP MONITOR RG139760 | 65002 0774 00 2 00001 AXT 1,2 BETA TABLE FULL RG139770 | 65003 0074 00 4 37646 TSX P2M01,4 PRINT RG139780 | 1 LISTING OF 12/01/64 PAGE 315 BETA SUBROUTINE | | 65004 1 00000 1 65005 P2J72 TXI *+1,1,0 MODIFY TO NEXT RG139790 | 65005 3 00000 1 64760 P2J73 TXH P2J71,1,0 FINISH SEARCH RG139800 | 65006 3 00370 4 65034 TXH P2J78,4,P2JB8-2 RG139810 65007 -0634 00 4 65027 SXD P2J76,4 SET LIMIT RG139820 | 65010 0774 00 1 00000 AXT 0,1 GO TO SORT RG139830 | 65011 0774 00 6 00371 AXT P2JB8-1,6 SET LOOP RG139840 | 65012 -0500 60 2 52136 P2J74 CAL* P2JAA,2 GET ENTRY RG139850 | 65013 -0340 60 2 52135 LAS* P2JAA-1,2 IN ORDER RG139860 65014 0020 00 0 65017 TRA *+3 NO RG139870 | 65015 0761 00 0 00000 NOP YES RG139880 | 65016 0020 00 0 65025 TRA P2J75 YES RG139890 | 65017 -0500 00 2 52136 CAL P2JAA,2 EXCHANGE WITH PREV RG139900 | 65020 0560 00 2 52135 LDQ P2JAA-1,2 X RG139910 65021 -0600 00 2 52136 STQ P2JAA,2 X RG139920 | 65022 0602 00 2 52135 SLW P2JAA-1,2 X RG139930 | 65023 1 00001 2 65024 TXI *+1,2,1 GO TO NEXT PREV RG139940 | 65024 -3 00371 2 65012 TXL P2J74,2,P2JB8-1 X RG139950 | 65025 0774 00 2 00000 P2J75 AXT 0,2 MODIFY TO NEXT RG139960 65026 1 77777 6 65027 TXI *+1,6,-1 X RG139970 | 65027 3 00000 4 65012 P2J76 TXH P2J74,4,0 RG139980 | 65030 0774 00 4 00000 P2J77 AXT 0,4 RESET RETURN RG139990 | 65031 1 00001 2 65032 TXI *+1,2,1 RG140000 | 65032 -0634 00 2 52136 SXD P2JAA,2 SAVE MONITOR RG140010 65033 0020 00 4 00001 TRA 1,4 EXIT RG140020 | 65034 0774 00 2 00371 P2J78 AXT P2JB8-1,2 RG140030 | 65035 0020 00 0 65030 TRA P2J77 RG140040 | 65036 +077777000037 P2JM1 OCT 077777000037 RG140050 | 65037 -377700000000 P2JM2 OCT 777700000000 FOR ART RG140060 65040 +000000000000 P2JR1 DEC 0 RG140070 | 65041 +000000000000 P2JR2 DEC 0 RG140080 | 65042 000000006060 Z2JR3 BCI 1,0000 RG140090 | 1 LISTING OF 12/01/64 PAGE 316 | END OF PACKET PHASE II | 65043 -0500 00 0 22034 P2X00 CAL RPTNO BUILD ==WRRN SYMBOL RG140120 | 65044 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG140130 | 65045 -0501 00 0 66150 ORA P2XK2 RG140140 | 65046 0602 00 0 65050 SLW *+2 RG140150 65047 0074 00 4 40614 TSX CCPSD,4 WE ARE AT ==WRRN RG140160 | 65050 0 00000 0 00000 PZE RG140170 | 65051 0535 00 1 22034 LAC RPTNO,1 TEST FOR TYPE OF ==WRRN PACKAGE RG140180 | 65052 0441 00 1 07426 LDI ARTO,1 RG140190 | 65053 -0520 00 0 07425 NZT EOJSW RG140200 65054 -0056 00 200000 LNT 200000 RG140210 | 65055 0020 00 0 65066 TRA P2X02 RG140220 | 65056 -0500 00 0 22034 CAL RPTNO NEXT PACKET IS STACKED RG140230 | 65057 0400 00 0 06615 ADD ONE BUILD TRA ==WRXX XX=RN+1 RG140240 | 65060 -0501 00 0 66150 ORA P2XK2 RG140250 65061 0560 00 0 06777 LDQ PRFX4 RG140260 | 65062 0602 00 0 66164 SLW P2XK6+1 RG140270 | 65063 0074 00 4 40227 TSX STEPI,4 RG140280 | 65064 0 00002 1 66163 PZE P2XK6,1,2 RG140290 | 65065 0020 00 0 65140 TRA P2X08+3 RG140300 65066 -0056 00 200000 P2X02 LNT 200000 TEST FOR ON LINE RG140310 | 65067 0020 00 0 65075 TRA P2X04 NO RG140320 | 65070 -0625 00 0 07311 STL P2XA2 YES RG140330 | 65071 0560 00 0 06777 LDQ PRFX4 RG140340 | 65072 0074 00 4 40227 TSX STEPI,4 BUILD TRA ==+RNT RG140350 65073 0 00003 1 66165 PZE P2XK7,1,3 RG140360 | 65074 0020 00 0 65140 TRA P2X08+3 RG140370 | 65075 0500 00 1 07425 P2X04 CLA ARTO-1,1 GET FILE NUMBER RG140380 | 65076 0771 00 0 00022 ARS 18 RG140390 | 65077 0621 00 0 52430 STA FX110 RG140400 65100 0560 00 0 52442 LDQ FX199 RG140410 | 65101 0074 00 4 40227 TSX STEPI,4 STEPI WITH STANDARD WRITE PACKAGE RG140420 | 65102 0 00014 1 52426 PZE FX100,1,12 RG140430 | 65103 0500 00 1 07425 CLA ARTO-1,1 TEST FOR RECORD OR REPORT RG140440 | 65104 0120 00 0 65140 TPL P2X08+3 REPORT, ALL DONE RG140450 65105 0774 00 2 00620 AXT DSE,2 RECORD, BUILD 3 STEP TABLE RG140460 | 65106 0534 00 1 22027 LXA FILNO,1 RG140470 | 65107 -0500 00 0 04401 CAL ICULC BUILD TBTBL ENTRY RG140480 | 65110 -0501 00 0 06762 ORA TAG2 RG140490 | 65111 0602 00 1 72703 SLW TBLTL,1 RG140500 65112 0600 00 0 66147 STZ 3STEP+2 RG140510 | 65113 -0500 00 2 21770 P2X06 CAL DSOEM,2 RG140520 | 65114 0734 00 4 00000 PAX 0,4 RG140530 | 65115 -0320 00 0 07060 ANA BCD60 RG140540 | 65116 0602 00 0 66145 SLW 3STEP RG140550 65117 -0754 00 4 00000 PXD 0,4 RG140560 | 65120 0602 00 0 66146 SLW 3STEP+1 RG140570 | 65121 0754 00 4 00000 PXA 0,4 RG140580 | 65122 -0340 00 1 72633 LAS MAXRL,1 RG140590 | 65123 0602 00 1 72633 SLW MAXRL,1 RG140600 65124 0020 00 0 65125 TRA *+1 RG140610 | 65125 0560 00 0 06614 LDQ ZERO RG140620 | 65126 0074 00 4 40227 TSX STEPI,4 STEPI WITH 3STEP ENTRY RG140630 | 65127 0 00003 1 66145 PZE 3STEP,1,3 RG140640 | 65130 -0500 00 1 72703 CAL TBLTL,1 RG140650 65131 0400 00 0 06764 ADD DCRM1 RG140660 | 1 LISTING OF 12/01/64 PAGE 317 | END OF PACKET PHASE II | | 65132 0622 00 1 72703 STD TBLTL,1 RG140670 65133 0520 00 2 21772 ZET DSOEM+2,2 TEST FOR MORE RECORD TYPES RG140680 | 65134 2 00002 2 65113 TIX P2X06,2,2 YES, PROCESS NEXT RECORD TYPE RG140690 | 65135 0500 00 0 04401 P2X08 CLA ICULC COMPLETE TBLTL ENTRY RG140700 | 65136 0402 00 0 06617 SUB THREE RG140710 | 65137 0621 00 1 72703 STA TBLTL,1 RG140720 * WRITE PACKAGE BUILT, PRINT CORE LIMITS OF PROGRAM RG140730 | * RG140740 | 65140 0761 00 0 00000 P2X30 NOP RG140750 | 65141 0534 00 2 35454 LXA CC080,2 TEST FOR CONSTANTS LEFT RG140760 | 65142 1 00144 2 65143 TXI *+1,2,CCSZE RG140770 65143 -3 00000 2 65150 TXL *+5,2,0 RG140780 | 65144 0534 00 2 04402 LXA CCULC,2 SAVE CCULC RG140790 | 65145 0074 00 4 35441 TSX STEPC,4 CLOSE OUT BUFFER WITH ZEROS RG140800 | 65146 0 00144 0 06614 PZE ZERO,0,CCSZE RG140810 | 65147 0634 00 2 04402 SXA CCULC,2 RESTORE CCULC RG140820 65150 -0774 00 2 00144 AXC CCSZE,2 INITIALIZE BUFFER MONITIR RG140830 | 65151 0634 00 2 35454 SXA CC080,2 RG140840 | 65152 -0500 00 0 26127 CAL CNINS ASSIGN TO HC CONSTANTS THEIR ADDRESSES RG140850 | 65153 0621 00 0 26134 STA HCIPT+2 RG140860 | 65154 -0737 00 4 00000 PDC 0,4 CALCULATE ENTRIES TO CNINS TABLE RG140870 65155 1 01752 4 65156 TXI *+1,4,P2JD1+2 RG140880 | 65156 -3 00000 4 65226 TXL P2X31,4,0 SKIP WRITE OUT IF NO ENTRIES RG140890 | 65157 -0754 00 4 00000 PXD 0,4 RG140900 | 65160 -0765 00 0 00001 LGR 1 DIVIDE BY 2 FOR WORD COUNT RG140910 | 65161 0622 00 0 26134 STD HCIPT+2 STORE WORD COUNT IN I-O FOR RG140920 65162 0400 00 0 06767 ADD DCRM4 WRITE OUT. SELF LOADING I-O COMMAND RG140930 | 65163 0622 00 0 65211 STD P2X30A NR WORDS, AND 3 WORDS TO AVOID SHORT REC RG140940 | 65164 -0774 00 1 26135 AXC HCIPT+3,1 FOR ENTRY STORE RG140950 | 65165 0774 00 2 01750 AXT P2JD1,2 FOR ENTRY PICKUP RG140960 | 65166 0520 00 2 26130 ZET CNINS+1,2 XR4 CONTAINS NR ENTRIES RG140970 65167 0020 00 0 65212 TRA P2X30M ADDRESS WAS NOT ASSIGNED. ERROR RG140980 | 65170 -0500 00 2 26127 P2X30N CAL CNINS,2 RG140990 | 65171 0602 00 1 00000 SLW 0,1 RG141000 | 65172 2 00001 1 65173 TIX *+1,1,1 RG141010 | 65173 2 00002 2 65174 TIX *+1,2,2 RG141020 65174 2 00002 4 65166 TIX *-6,4,2 RG141030 | 65175 0600 00 1 00000 STZ 0,1 PUT IN THREE WORDS OF ZERO RG141040 | 65176 0600 00 1 00001 STZ 1,1 TO PREVENT SHORT RECORD RG141050 | 65177 0600 00 1 00002 STZ 2,1 MESSAGE RG141060 | 65200 0535 00 4 04500 LAC SYMTAP-25,4 WAIT FOR UNIT 25 RG141070 65201 0520 00 4 00001 ZET 1,4 RG141080 | 65202 0020 00 0 65201 TRA *-1 RG141090 | 65203 -0500 00 0 06777 CAL PRFX4 RG141100 | 65204 0630 00 0 26134 STP HCIPT+2 RG141110 | 65205 0074 00 4 05255 TSX RD(WR),4 RG141120 65206 -0 65211 0 00031 FOR 25,,P2X30A WRITE OUT CONSTANTS RG141130 | 65207 0020 00 0 65226 TRA P2X31 RG141140 | 65210 0074 00 4 06557 TSX SCEOT,4 RG141150 | 65211 3 00000 0 26134 P2X30A IORT HCIPT+2,,** RG141160 | 65212 0074 00 4 34503 P2X30M TSX ERROR,4 RG141170 65213 0 00010 0 65216 PZE P2EM20,,8 RG141180 | 65214 -0625 00 0 34552 STL ERSWT RG141190 | 65215 0020 00 0 65170 TRA P2X30N RG141200 | 65216 606225234645 P2EM20 BCI 8, SECOND WORD OF CNINS TABLE ENTRY NOT ZERO RG141210 | 1 LISTING OF 12/01/64 PAGE 318 END OF PACKET PHASE II | | 65217 246066465124 | 65220 604626602345 | 65221 314562606321 65222 224325602545 | 65223 635170604546 | 65224 636071255146 | 65225 606060606060 | 65226 0761 00 0 00000 P2X31 NOP RG141220 65227 0074 00 2 40565 TSX IC500,2 CLOSE OUT INSTRUCTION BUFFER RG141230 | 65230 0074 00 4 36604 TSX XBIBCD,4 CONVERT REPORT NR FOR MESSAGE RG141240 | 65231 0 07102 0 22034 PZE RPTNO,,TEMP RG141250 | 65232 0534 00 4 07102 LXA TEMP,4 RG141260 | 65233 -0634 00 4 66155 SXD P2XK1+1,4 RG141270 65234 0500 00 0 04401 CLA ICULC COMPUTE FINAL LOCATION RG141280 | 65235 0402 00 0 06615 SUB ONE RG141290 | 65236 -0765 00 0 00017 LGR 15 RG141300 | 65237 0774 00 4 00005 AXT 5,4 RG141310 | 65240 0767 00 0 00003 ALS 3 RG141320 65241 -0763 00 0 00003 LGL 3 RG141330 | 65242 2 00001 4 65240 TIX *-2,4,1 RG141340 | 65243 0767 00 0 00006 ALS 6 RG141350 | 65244 -0501 00 0 06674 ORA BLANK RG141360 | 65245 0602 00 0 66162 SLW P2XK1+6 RG141370 65246 0074 00 4 05630 TSX CLIST,4 PRINT AS UNCONDITIONAL MESSAGE RG141380 | 65247 1 00007 3 66154 PON P2XK1,3,7 RG141390 | 65250 0520 00 0 07425 ZET EOJSW TEST FOR END-OF-JOB RG141400 | 65251 0020 00 0 65265 TRA P2X32 YES RG141410 | 65252 0500 00 0 22034 CLA RPTNO TEST FOR MORE PACKETS RG141420 65253 -0340 00 0 07307 LAS P2XA0 REPORT COUNT RG141430 | 65254 0074 00 4 04000 TSX LOST,4 RG141440 | 65255 0020 00 0 65265 TRA P2X32 NO MORE PACKETS RG141450 | 65256 0074 00 2 04771 TSX BSRSYS,2 GET PHASE 2 AGAIN RG141460 | 65257 0074 00 4 05255 TSX RD(WR),4 PASS EOF ON HAND CALC TAPE RG141470 65260 0 07377 0 00033 PZE 27,,NTCMD RG141480 | 65261 0020 00 0 65257 TRA *-2 RG141490 | 65262 0074 00 4 04752 TSX SYSRD,4 RG141500 | 65263 114721230202 BCI 1,9PAC22 RG141510 | 65264 0 00372 0 52136 PZE P2JAA,,P2JB8 RG141520 1 LISTING OF 12/01/64 PAGE 319 | END OF JOB PHASE II | | 65265 0774 00 2 00037 P2X32 AXT P2BL3,2 UPDATE MAXIMUM RECORD LENGTH RG141540 | 65266 0500 00 2 07465 P2X33 CLA ARTOM,2 RG141550 65267 -0734 00 1 00000 PDX 0,1 GET FILE NUMBER RG141560 | 65270 -0320 00 0 07003 ANA BCD03 RG141570 | 65271 -0340 00 1 72633 LAS MAXRL,1 RG141580 | 65272 0602 00 1 72633 SLW MAXRL,1 SAVE MAXIMUM RECORD LENGTH RG141590 | 65273 2 00001 2 65266 TIX P2X33,2,1 RG141600 65274 2 00001 2 65266 TIX P2X33,2,1 LOOP FOR ALL REPORTS RG141610 | 65275 BSS 0 BUILD END OF JOB ROUTINES RG141620 | 65275 0074 00 4 40674 TSX CCNPD,4 RG141630 | 65276 131347514563 BCI 1,==PRNT WE ARE AT ==PRNT RG141640 | 65277 0074 00 4 40614 TSX CCPSD,4 RG141650 65300 131347514563 BCI 1,==PRNT RG141660 | 65301 0560 00 0 52511 LDQ FX399 RG141670 | 65302 0074 00 4 40227 TSX STEPI,4 BUILD ==PRNT ROUTINE RG141680 | 65303 0 00014 1 52457 PZE FX300,1,12 RG141690 | 65304 0560 00 0 52512 LDQ FX399+1 RG141700 65305 0074 00 4 40227 TSX STEPI,4 RG141710 | 65306 0 00016 1 52473 PZE FX300+12,1,14 RG141720 | * RG141730 | 65307 0074 00 4 40674 P2X36 TSX CCNPD,4 RG141740 | 65310 131325462641 BCI 1,==EOFJ WE ARE AT == EOFJ RG141750 65311 0074 00 4 40614 TSX CCPSD,4 RG141760 | 65312 131325462641 BCI 1,==EOFJ RG141770 | 65313 0560 00 0 06614 LDQ ZERO RG141780 | 65314 0074 00 4 40227 TSX STEPI,4 BUILD TRA EOJOB RG141790 | 65315 0 00001 1 52513 PZE FX400,1,1 RG141800 65316 0020 00 0 65317 TRA P2X40 RG141810 | * RG141820 | * BUILD SWTCH TABLE RG141830 | * RG141840 | 65317 0774 00 1 00024 P2X40 AXT 20,1 INITIALIZE RG141850 65320 0441 00 1 72660 P2X42 LDI SWTCH+1,1 RG141860 | * RG141870 | * SWITCH 1,WAS UNIT USED RG141880 | * RG141890 | 65321 -3 00012 1 65327 TXL P2X46,1,10 IS IT UNIT 10 RG141900 65322 3 00013 1 65327 TXH P2X46,1,11 TRANSFER ON NO RG141910 | 65323 -0055 00 110000 SIL 110000 SET SWTCH 1, USED. SWTCH 2, RG UNIT RG141920 | * RG141930 | * IF ZZ RECORD TYPE IS ALLOWED, FOR INPUT, SET SWTCH 5 RG141940 | * RG141950 65324 0520 00 0 07314 ZET ZZSWT IS ZZ RT ALLOWED RG141960 | 65325 -0055 00 000010 SIL 000010 YES. SET SWTCH 5 RG141970 | 65326 0020 00 0 65332 TRA P2X46+3 RG141980 | * RG141990 | * SET SWTCH 6.1 FOR OUTPUT UNITS RG142000 * RG142010 | 65327 -0056 00 010000 P2X46 LNT 010000 IS UNIT USED BY REPORTS GENERATOR RG142020 | 65330 0020 00 0 65436 TRA P2X54 NO RG142030 | 65331 -0055 00 100001 SIL 100001 OUTPUT, SET SWTCH 6.1. SWTCH 1, USED RG142040 | 65332 -0754 00 0 00000 PXD 0,0 RG142050 65333 0560 00 0 21773 LDQ P2AA2+2 ZZ OUTPUT RECORD TYPE RG142060 | 65334 -0763 00 0 00006 LGL 6 RG142070 | 65335 0100 00 0 65337 TZE *+2 NO RG142080 | 1 LISTING OF 12/01/64 PAGE 320 | END OF JOB PHASE II | 65336 -0055 00 000010 SIL 000010 SET ZZ OUTPUT SWITCH RG142090 | * RG142100 | * IS A DICTIONARY PRESENT. IF YES, SET SWTCH 3.1 RG142110 | * RG142120 65337 0560 00 1 04532 LDQ SYMTAP+1,1 RG142130 | 65340 -0773 00 0 00022 RQL 18 RG142140 | 65341 0162 00 0 65343 TQP *+2 RG142150 | 65342 -0055 00 001000 SIL 001000 YES. DICTIONARY IS PRESENT RG142160 | * RG142170 * SWTCH 6.2, SEQUENCE NUMBERS AND CHECKSUMS RG142180 | * RG142190 | 65343 0774 00 4 00013 AXT 11,4 GET WORD 2 OF FCB RG142200 | 65344 -0500 60 1 07424 CAL* FCBLOC+1,1 RG142210 | 65345 -0320 00 0 66170 ANA P2XK8 RG142220 65346 0100 00 0 65350 TZE P2X48 RG142230 | 65347 -0055 00 000002 SIL 000002 SEQNOS OR CHKSUMS RG142240 | * RG142250 | * SWITCH 7,INITIALIZATION OF BUFFERS RG142260 | * RG142270 65350 -0056 00 000001 P2X48 LNT 000001 IF INPUT, SKUP OUTPUT OPTIONS RG142280 | 65351 0020 00 0 65355 TRA P2X50 INPUT RG142290 | 65352 0055 00 100000 SIR 100000 RG142300 | * RG142310 | * SWITCH 8, INITIALIZE WITH BLANKS OR ZEROES RG142320 * RG142330 | 65353 -0056 00 020000 LNT 020000 RECORD OR REPORT RG142340 | 65354 0055 00 010000 SIR 010000 REPORT, BLANKS RG142350 | * RG142360 | * SWITCH 9, PADDING OPTIONS RG142370 * RG142380 | 65355 0560 00 1 04532 P2X50 LDQ SYMTAP+1,1 GET FROM SYMTAP TABLE RG142390 | 65356 -0754 00 0 00000 PXD 0,0 RG142400 | 65357 -0773 00 0 00003 RQL 3 RG142410 | 65360 -0763 00 0 00003 LGL 3 RG142420 65361 0767 00 0 00011 ALS 9 RG142430 | 65362 0043 00 0 00000 OAI RG142440 | * RG142450 | * SWITCH 10,720 GROUPING OPTION RG142460 | * RG142470 65363 -0754 00 0 00000 PXD 0,0 TEST FOR GROUPING RG142480 | 65364 -0763 00 0 00014 LGL 12 RG142490 | 65365 -0340 00 0 07003 LAS BCD03 RG142500 | 65366 0020 00 0 65400 TRA P2X51 RG142510 | 65367 0020 00 0 65400 TRA P2X51 RG142520 65370 -0100 00 0 65424 TNZ P2X52 RG142530 | 65371 0055 00 000200 SIR 000200 NO BLOCKING RG142540 | 65372 0560 00 1 72634 LDQ MAXRL+1,1 RG142550 | 65373 0020 00 0 65416 TRA P2X51A RG142560 | 65374 0074 00 4 34503 TSX ERROR,4 RG142570 65375 0 00007 0 66070 PZE P2EM14,,7 RG142580 | 65376 -0500 00 0 06642 CAL TEN+12 MAKE LINE LENGTH 22 WORDS RG142590 | 65377 0020 00 0 65404 TRA *+5 RG142600 | 65400 -0500 00 1 72634 P2X51 CAL MAXRL+1,1 RG142610 | 65401 -0340 00 0 06642 LAS TEN+12 ALLOW MAX LINE LENGTH OF 22 WORDS RG142620 65402 0020 00 0 65374 TRA *-6 RG142630 | 1 LISTING OF 12/01/64 PAGE 321 | END OF JOB PHASE II | | 65403 0761 00 0 00000 NOP RG142640 65404 0400 00 0 06615 ADD ONE RG142650 | 65405 0601 00 1 72634 STO MAXRL+1,1 UPDATE MAXIMUM RECORD LENGTH RG142660 | 65406 0055 00 000500 SIR 000500 INITIALIZE FACTOR TO 10 RG142670 | 65407 -0340 00 0 06634 LAS TEN+6 COMPARE TO SIXTEEN WORDS RG142680 | 65410 0051 00 000600 IIR 000600 GREATER, CHANGE TO 5 RG142690 65411 0761 00 0 00000 NOP RG142700 | 65412 -0130 00 0 00000 XCL RG142710 | 65413 0200 00 0 06621 MPY FIVE RG142720 | 65414 0056 00 000300 RNT 000300 IS FACTOR FIVE RG142730 | 65415 -0763 00 0 00001 LGL 1 NO, 10. MULTIPLY BY 2 RG142740 65416 -0773 00 0 00022 P2X51A RQL 18 RG142750 | 65417 -0500 00 0 07047 CAL BCD47 RG142760 | 65420 0320 00 1 04532 ANS SYMTAP+1,1 RG142770 | 65421 -0130 00 0 00000 XCL RG142780 | 65422 -0602 00 1 04532 ORS SYMTAP+1,1 RG142790 65423 0771 00 0 00022 ARS 18 RG142800 | 65424 -0340 00 1 72754 P2X52 LAS BUFSZE+1,1 UPDATE MAXIMUM BUFFER SIZE RG142810 | 65425 0601 00 1 72754 STO BUFSZE+1,1 RG142820 | 65426 0020 00 0 65427 TRA *+1 RG142830 | * RG142840 * SWITCH 11, CLOSE OPTIONS SWTCH 12 OPEN OPTIONS RG142850 | * RG142860 | 65427 0774 00 4 00010 AXT 8,4 GET WORD 5 OF FCB RG142870 | 65430 0500 60 1 07424 CLA* FCBLOC+1,1 RG142880 | 65431 0771 00 0 00022 P2X53 ARS 18 RG142890 65432 -0320 00 0 06713 ANA BCD01 MASK SWTCH CODES RG142900 | 65433 0043 00 0 00000 OAI RG142910 | 65434 0754 00 0 00000 PXA 0,0 CLEAR AC RG142920 | 65435 0622 60 1 07424 STD* FCBLOC+1,1 ZERO DECREMENT OF FCB WORD 5 RG142930 | 65436 0604 00 1 72660 P2X54 STI SWTCH+1,1 RG142940 65437 2 00001 1 65320 TIX P2X42,1,1 RG142950 | * BUILD 3-STEP TABLE FOR INPUT RG142960 | 65440 0774 00 2 00616 P2Y10 AXT DSB-2,2 SORT INPUT RECORD TYPE TABLE RG142970 | 65441 0600 00 0 65773 STZ P2YSW RG142980 | 65442 -0500 00 2 21145 CAL DSIEM-2,2 RG142990 65443 -0340 00 2 21147 LAS DSIEM,2 RG143000 | 65444 0020 00 0 65456 TRA P2Y11 OK RG143010 | 65445 0020 00 0 65456 TRA P2Y11 RG143020 | 65446 0560 00 2 21147 LDQ DSIEM,2 OUT OF ORDER RG143030 | 65447 0602 00 2 21147 SLW DSIEM,2 REVERSE ENTRIES RG143040 65450 -0600 00 2 21145 STQ DSIEM-2,2 RG143050 | 65451 -0500 00 2 21146 CAL DSIEM-1,2 RG143060 | 65452 0560 00 2 21150 LDQ DSIEM+1,2 RG143070 | 65453 0602 00 2 21150 SLW DSIEM+1,2 RG143080 | 65454 -0600 00 2 21146 STQ DSIEM-1,2 RG143090 65455 -0625 00 0 65773 STL P2YSW SET CHANGE SWITCH RG143100 | 65456 2 00002 2 65442 P2Y11 TIX P2Y10+2,2,2 RG143110 | 65457 0520 00 0 65773 ZET P2YSW RG143120 | 65460 0020 00 0 65440 TRA P2Y10 RG143130 | 65461 -0500 00 0 20327 CAL DSIE TEST FOR RT ZZ RG143140 65462 -0320 00 0 07060 ANA BCD60 RG143150 | 65463 0322 00 0 07312 ERA P2XA3 RG143160 | 65464 -0100 00 0 65470 TNZ *+4 RG143170 | 65465 0074 00 4 36560 TSX BCDBIC,4 YES, GET ZZ RECORD LENGTH RG143180 | 1 LISTING OF 12/01/64 PAGE 322 END OF JOB PHASE II | | 65466 0 00000 0 07313 PZE P2XA4 RG143190 | 65467 0621 00 0 20327 STA DSIE RG143200 | 65470 0500 00 0 06762 CLA TAG2 INITIALIZE TBLTL FOR INPUT RG143210 65471 0774 00 1 00012 AXT 10,1 RG143220 | 65472 0601 00 1 72703 STO TBLTL,1 RG143230 | 65473 0774 00 2 00620 AXT DSB,2 RG143240 | 65474 -0500 00 2 21147 P2Y12 CAL DSIEM,2 RG143250 | 65475 0734 00 4 00000 PAX 0,4 RG143260 65476 -0320 00 0 07060 ANA BCD60 RG143270 | 65477 0602 00 0 66145 SLW 3STEP IST WORD OF 3-STEP ENTRY RG143280 | 65500 -0634 00 4 66146 SXD 3STEP+1,4 2ND WORD OF 3 STEP ENTRY RG143290 | 65501 0441 00 2 21147 LDI DSIEM,2 RG143300 | 65502 -0500 00 0 66152 CAL P2XK4 BUILD TRANSFER ADDRESS SYMBOL RG143310 65503 -0056 00 000001 LNT 000001 RG143320 | 65504 0020 00 0 65510 TRA P2Y20 IF RECORD TYPE NOT USED == READ RG143330 | 65505 -0500 00 0 66145 CAL 3STEP RG143340 | 65506 0771 00 0 00006 ARS 6 RG143350 | 65507 -0501 00 0 66153 ORA P2XK5 IF RECORD TYPE USED =RTB01 RG143360 65510 0774 00 4 03721 P2Y20 AXT P2JB2,4 RG143370 | 65511 -0340 00 4 14404 LAS ICPSD,4 SEARCH FOR LOCATION OF SYMBOL RG143380 | 65512 0020 00 0 65514 TRA *+2 RG143390 | 65513 0020 00 0 65521 TRA P2Y30 RG143400 | 65514 0520 00 4 14404 ZET ICPSD,4 RG143410 65515 2 00002 4 65511 TIX *-4,4,2 RG143420 | 65516 0774 00 4 03721 AXT P2JB2,4 RG143430 | 65517 -0500 00 0 66152 CAL P2XK4 RG143440 | 65520 0020 00 0 65511 TRA P2Y20+1 RG143450 | 65521 -0500 00 4 14405 P2Y30 CAL ICPSD+1,4 GET TRANSFER POINT RG143460 65522 0767 00 0 00022 ALS 18 RG143470 | 65523 0601 00 0 66147 STO 3STEP+2 RG143480 | 65524 -0056 00 000003 LNT 3 TEST FOR GROUP HEADER RG143490 | 65525 0020 00 0 65533 TRA P2Y40 NO RG143500 | 65526 0500 00 0 66146 CLA 3STEP+1 YES,RESERVE SPACE IN CONSTANT AREA RG143510 65527 0622 00 0 65531 STD P2Y32 RG143520 | 65530 0074 00 4 35441 TSX STEPC,4 RG143530 | 65531 0 00000 0 06614 P2Y32 PZE ZERO,0,** RG143540 | 65532 0621 00 0 66147 STA 3STEP+2 LOCATION OF SIDE POCKET TO WORD 3 RG143550 | 65533 0500 00 0 04401 P2Y40 CLA ICULC RECORD LOCATION OF TABLE RG143560 65534 0621 00 1 72703 STA TBLTL,1 RG143570 | 65535 0560 00 0 06614 LDQ ZERO RG143580 | 65536 0074 00 4 40227 TSX STEPI,4 STEPI WITH 1ST WORD RG143590 | 65537 0 00001 1 66145 PZE 3STEP,1,1 RG143600 | 65540 -0500 00 0 66145 CAL 3STEP RG143610 65541 0771 00 0 00030 ARS 24 RG143620 | 65542 -0501 00 0 66151 ORA P2XK3 RG143630 | 65543 0602 00 0 65545 SLW *+2 RG143640 | 65544 0074 00 4 40614 TSX CCPSD,4 WE ARE AT 00==RT RG143650 | 65545 0 00000 0 00000 PZE RG143660 65546 0560 00 0 06614 LDQ ZERO RG143670 | 65547 0074 00 4 40227 TSX STEPI,4 STEPI WITH REMAINING 2 WORDS RG143680 | 65550 0 00002 1 66146 PZE 3STEP+1,1,2 RG143690 | 65551 -0500 00 1 72703 CAL TBLTL,1 RG143700 | 65552 0400 00 0 06764 ADD DCRM1 RG143710 65553 0622 00 1 72703 STD TBLTL,1 RG143720 | 65554 0520 00 2 21151 ZET DSIEM+2,2 TEST FOR MORE RECORD TYPES RG143730 | 1 LISTING OF 12/01/64 PAGE 323 | END OF JOB PHASE II | 65555 2 00002 2 65474 TIX P2Y12,2,2 RETURN FOR NEXT RECORD TYPE RG143740 | * CLEAN OUT BUFFERS RG143750 | 65556 0535 00 2 40242 P2Y42 LAC IC080,2 TEST FOR INSTRUCTIONS LEFT RG143760 | 65557 -3 00000 2 65570 TXL P2Y44,2,0 RG143770 | 65560 -0754 00 2 00000 PXD 0,2 YES, PUT TO TAPE RG143780 65561 0774 00 2 00000 AXT 0,2 RG143790 | 65562 0622 60 0 40225 STD* ICCMD RG143800 | 65563 0074 00 4 05255 TSX RD(WR),4 RG143810 | 65564 -0 40225 1 00031 MZE 25,1,ICCMD RG143820 | 65565 0020 00 0 65567 TRA *+2 RG143830 65566 0074 00 4 35007 TSX ENDTP,4 RG143840 | 65567 0634 00 0 40242 SXA IC080,0 INITIALIZE MONITOR RG143850 | 65570 0534 00 2 35454 P2Y44 LXA CC080,2 TEST FOR CONSTANTS LEFT RG143860 | 65571 1 00144 2 65572 TXI *+1,2,CCSZE RG143870 | 65572 -3 00000 2 65577 TXL P2Y46,2,0 RG143880 65573 0534 00 2 04402 LXA CCULC,2 SAVE CCULC RG143890 | 65574 0074 00 4 35441 TSX STEPC,4 CLOSE OUT BUFFER WITN ZEROES RG143900 | 65575 0 00144 0 06614 PZE ZERO,0,CCSZE RG143910 | 65576 0634 00 2 04402 SXA CCULC,2 RG143920 | 65577 0761 00 0 00000 P2Y46 NOP RG143930 65600 0774 00 1 00024 P2Y48 AXT 20,1 RG143940 | 65601 0500 00 1 72634 CLA MAXRL+1,1 RG143950 | 65602 0340 00 1 72754 CAS BUFSZE+1,1 RG143960 | 65603 0601 00 1 72754 STO BUFSZE+1,1 RG143970 | 65604 2 00001 1 65601 TIX *-3,1,1 RG143980 65605 2 00001 1 65601 TIX *-4,1,1 RG143990 | * RG144000 | 65606 0500 00 0 04402 P2Y52 CLA CCULC COMPUTE AMOUNT OF CORE AVAILABLE RG144010 | 65607 0402 00 0 04401 SUB ICULC FOR BUFFERS RG144020 | 65610 -0120 00 0 65734 TMI P2Y80 RG144030 65611 0400 00 0 06615 ADD ONE RG144040 | 65612 0774 00 1 00024 AXT 20,1 RG144050 | 65613 0520 00 1 72754 ZET BUFSZE+1,1 RG144060 | 65614 0402 00 0 06616 SUB TWO SUBTRACT 2 WORDS/BUFFER FOR IOCS RG144070 | 65615 2 00001 1 65613 TIX *-2,1,1 RG144080 65616 -0120 00 0 65734 TMI P2Y80 RG144090 | 65617 0601 00 0 07102 STO TEMP RG144100 | * RG144110 | 65620 0774 00 1 00024 P2Y54 AXT 20,1 COMPUTE WEIGHT FACTORS RG144120 | 65621 0500 00 1 72754 P2Y56 CLA BUFSZE+1,1 RG144130 65622 -0100 00 0 65634 TNZ P2Y57 RG144140 | 65623 -0500 00 1 04532 CAL SYMTAP+1,1 IF FILE IS NOT USED BY RG RG144150 | 65624 -0320 00 0 07030 ANA BCD30 IS IT A HAND CALC FILE RG144160 | 65625 0100 00 0 65642 TZE P2Y58 TRA IF NO RG144170 | 65626 -0765 00 0 00022 LGR 18 YES RG144180 65627 0601 00 1 72754 STO BUFSZE+1,1 MAKE ROOM IN BUFFERS RG144190 | 65630 0500 00 0 07102 CLA TEMP ADJUST TEMP RG144200 | 65631 0402 00 0 06616 SUB TWO RG144210 | 65632 0601 00 0 07102 STO TEMP RG144220 | 65633 0020 00 0 65641 TRA P2Y58-1 GIVE A WEIGHT OF TWO RG144230 65634 0734 00 2 00000 P2Y57 PAX 0,2 RG144240 | 65635 0500 00 0 06620 CLA FOUR RG144250 | 65636 -3 00031 2 65642 TXL P2Y58,2,25 RG144260 | 65637 0500 00 0 06617 CLA THREE RG144270 | 65640 -3 00310 2 65642 TXL P2Y58,2,200 RG144280 1 LISTING OF 12/01/64 PAGE 324 | END OF JOB PHASE II | | 65641 0500 00 0 06616 CLA TWO RG144290 | 65642 0601 00 1 72730 P2Y58 STO BUFLOC+1,1 RG144300 65643 2 00001 1 65621 TIX P2Y56,1,1 RG144310 | * RG144320 | 65644 0500 00 0 72741 P2Y60 CLA BUFSZE-10 COMPUTE SIZE OF INPUT BUFFER RG144330 | 65645 0400 00 0 06616 ADD TWO RG144340 | 65646 0131 00 0 00000 XCA RG144350 65647 0200 00 0 72715 MPY BUFLOC-10 RG144360 | 65650 -0600 00 0 07103 STQ TEMP+1 RG144370 | * RG144380 | 65651 0774 00 1 00024 P2Y62 AXT 20,1 COMPUTE TOTAL SIZE OF ALL BUFFERS RG144390 | 65652 0600 00 0 07104 STZ TEMP+2 RG144400 65653 0500 00 1 72754 P2Y64 CLA BUFSZE+1,1 RG144410 | 65654 0400 00 0 06616 ADD TWO RG144420 | 65655 0131 00 0 00000 XCA RG144430 | 65656 0200 00 1 72730 MPY BUFLOC+1,1 RG144440 | 65657 0131 00 0 00000 XCA RG144450 65660 0400 00 0 07104 ADD TEMP+2 RG144460 | 65661 0601 00 0 07104 STO TEMP+2 RG144470 | 65662 2 00001 1 65653 TIX P2Y64,1,1 RG144480 | 65663 -0100 00 0 65667 TNZ *+4 IF OUTPUT BUFFER SIZE IS ZERO RG144490 | 65664 0074 00 4 34503 TSX ERROR,4 DROP DEAD RG144500 65665 0 00006 0 66173 PZE ERMBF1,,6 RG144510 | 65666 0020 00 0 05134 TRA DDEAD RG144520 | 65667 0400 00 0 07103 ADD TEMP+1 RG144530 | 65670 0601 00 0 07104 STO TEMP+2 RG144540 | * RG144550 65671 0340 00 0 07102 P2Y66 CAS TEMP COMPARE TO AVAILABLE SPACE RG144560 | 65672 0020 00 0 65715 TRA P2Y70 NOT ENOUGH,REDUCE WEIGHTS RG144570 | 65673 0020 00 0 65744 TRA P2Y84 JUST ENOUGH ROOM RG144580 | 65674 0402 00 0 07103 SUB TEMP+1 MORE THAN ENOUGH RG144590 | 65675 0601 00 0 07104 STO TEMP+2 DIVIDE EXTRA INTO OUTPUT BUFFERS RG144600 65676 0560 00 0 06614 LDQ ZERO RG144610 | 65677 0500 00 0 07102 CLA TEMP AVAILABLE SPACE RG144620 | 65700 0402 00 0 07103 SUB TEMP+1 SIZE OF INPUT BUFFER RG144630 | 65701 0131 00 0 00000 XCA RG144640 | 65702 0221 00 0 07104 DVP TEMP+2 SIZE OF OUTPUT BUFFERS RG144650 65703 0131 00 0 00000 XCA RG144660 | 65704 0774 00 1 00024 AXT 20,1 INCREASE SIZE OF OUTPUT WEIGHT FACTORS RG144670 | 65705 0601 00 0 07104 STO TEMP+2 RG144680 | 65706 0534 00 4 72715 LXA BUFLOC-10,4 SAVE INPUT BUFFER WEIGHT FACTOR RG144690 | 65707 0560 00 1 72730 P2Y68 LDQ BUFLOC+1,1 RG144700 65710 0200 00 0 07104 MPY TEMP+2 ADJUST WEIGHT FACTORS RG144710 | 65711 -0600 00 1 72730 STQ BUFLOC+1,1 RG144720 | 65712 2 00001 1 65707 TIX *-3,1,1 RG144730 | 65713 0634 00 4 72715 SXA BUFLOC-10,4 RG144740 | 65714 0020 00 0 65744 TRA P2Y84 RG144750 65715 0774 00 2 00003 P2Y70 AXT 3,2 REDUCE WEIGHTS RG144760 | 65716 0774 00 1 00024 P2Y72 AXT 20,1 RG144770 | 65717 0754 00 2 00000 PXA 0,2 RG144780 | 65720 0340 00 1 72730 CAS BUFLOC+1,1 RG144790 | 65721 0020 00 0 65732 TRA P2Y74 RG144800 65722 0020 00 0 65732 TRA P2Y74 RG144810 | 65723 0601 00 1 72730 STO BUFLOC+1,1 RG144820 | 65724 0500 00 0 07104 CLA TEMP+2 ADJUST BUFFER SIZE TOTAL RG144830 | 1 LISTING OF 12/01/64 PAGE 325 | END OF JOB PHASE II | 65725 0402 00 1 72754 SUB BUFSZE+1,1 RG144840 | 65726 0402 00 0 06616 SUB TWO RG144850 | 65727 0601 00 0 07104 STO TEMP+2 RG144860 | 65730 0402 00 0 07102 SUB TEMP TEST AGAIN FOR SUFFICIENT ROOM RG144870 65731 -0120 00 0 65741 TMI P2Y82 YES RG144880 | 65732 2 00001 1 65717 P2Y74 TIX P2Y72+1,1,1 NOT YET RG144890 | 65733 2 00001 2 65716 TIX P2Y72,2,1 RG144900 | 65734 0074 00 4 34503 P2Y80 TSX ERROR,4 ERROR,INSUFFICIENT CORE RG144910 | 65735 -0 00006 0 40622 MZE ERM98,,6 RG144920 65736 0 00004 0 34546 PZE ER105,,4 EXECUTION IMPOSSIBLE RG144930 | 65737 -0625 00 0 34552 STL ERSWT RG144940 | 65740 0020 00 0 65774 TRA P2Z00 RG144950 | 65741 3 00001 2 65744 P2Y82 TXH P2Y84,2,1 RG144960 | 65742 0074 00 4 34503 TSX ERROR,4 RG144970 65743 0 00011 0 66201 PZE ERM89,,9 RG144980 | * RG144990 | 65744 0774 00 1 00024 P2Y84 AXT 20,1 COMPUTE BUFFER LOCATIONS RG145000 | 65745 0534 00 2 04401 LXA ICULC,2 GET BUFSZE INTO PROPER FORMAT RG145010 | 65746 0500 00 1 72754 P2Y86 CLA BUFSZE+1,1 RG145020 65747 0100 00 0 65766 TZE P2Y88 RG145030 | 65750 0400 00 0 06616 ADD TWO RG145040 | 65751 0131 00 0 00000 XCA RG145050 | 65752 0200 00 1 72730 MPY BUFLOC+1,1 RG145060 | 65753 -0600 00 0 07106 STQ TEMP+4 RG145070 65754 0500 00 1 72730 CLA BUFLOC+1,1 CONTAINS NUMBER OF BUFFERS RG145080 | 65755 -0765 00 0 00022 LGR 18 PLACE NUMBER OF BUFFERS RG145090 | 65756 0500 00 1 72754 CLA BUFSZE+1,1 INTO ADDRESS OF BUFSZE, RG145100 | 65757 -0763 00 0 00022 LGL 18 SIZE OF BUFFERS INTO RG145110 | 65760 0601 00 1 72754 STO BUFSZE+1,1 DECREMENT RG145120 65761 0754 00 2 00000 PXA 0,2 RG145130 | 65762 0621 00 1 72730 STA BUFLOC+1,1 STORE BUFFER START ADDRESS RG145140 | 65763 0400 00 0 07106 ADD TEMP+4 BUFFER SPACE REQUIRED RG145150 | 65764 0400 00 0 06616 ADD TWO FOR BUFFER POOL CONTROL WORDS RG145160 | 65765 0734 00 2 00000 PAX 0,2 RG145170 65766 2 00001 1 65746 P2Y88 TIX P2Y86,1,1 RG145180 | 65767 0534 00 4 04402 LXA CCULC,4 RG145190 | 65770 -0634 00 4 65771 SXD *+1,4 FINAL CHECK OF CORE AVAILABILITY RG145200 | 65771 -3 00000 2 65774 TXL P2Z00,2,** RG145210 | 65772 0074 00 4 04000 TSX LOST,4 IMPOSSIBLE RG145220 65773 0 00000 0 00000 P2YSW PZE RG145230 | * RG145240 | * TEST NPD TABLE FOR UNDEFINED SYMBOLS RG145250 | * RG145260 | 65774 0774 00 1 03721 P2Z00 AXT P2JB3,1 RG145270 65775 0074 00 4 34553 TSX TRACE,4 TAKE CHECKPOINT RG145280 | 65776 -0500 00 1 20326 P2Z02 CAL ICNPD,1 RG145290 | 65777 -0340 00 0 66172 LAS ADMSK TEST FOR SYMBOL RG145300 | 66000 0020 00 0 66003 TRA P2Z03 RG145310 | 66001 0074 00 4 04000 TSX LOST,4 RG145320 66002 0020 00 0 66044 TRA P2Z16 RG145330 | * RG145340 | 66003 -0320 00 0 07007 P2Z03 ANA BCD07 TEST FOR =RTARR RG145350 | 66004 0322 00 0 66212 ERA P2XK9 RG145360 | 66005 0100 00 0 66010 TZE P2Z04 YES, USE ==READ RG145370 66006 -0500 00 1 20326 CAL ICNPD,1 RG145380 | 1 LISTING OF 12/01/64 PAGE 326 | END OF JOB PHASE II | | 66007 0020 00 0 66011 TRA P2Z06 RG145390 66010 -0500 00 0 66152 P2Z04 CAL P2XK4 RG145400 | 66011 0774 00 2 03721 P2Z06 AXT P2JB2,2 RG145410 | 66012 -0340 00 2 14404 P2Z08 LAS ICPSD,2 RG145420 | 66013 0020 00 0 66015 TRA *+2 RG145430 | 66014 0020 00 0 66032 TRA P2Z12 RG145440 66015 0520 00 2 14406 ZET ICPSD+2,2 RG145450 | 66016 2 00002 2 66012 TIX P2Z08,2,2 RG145460 | 66017 -0320 00 0 07007 ANA BCD07 RG145470 | 66020 -0340 00 0 66212 LAS P2XK9 RG145480 | 66021 0020 00 0 66023 TRA *+2 RG145490 66022 0020 00 0 66010 TRA P2Z04 RG145500 | 66023 0771 00 0 00014 ARS 12 RG145510 | 66024 -0340 00 0 06636 LAS B TEST FOR =RTBRN RG145520 | 66025 0020 00 0 66027 TRA *+2 RG145530 | 66026 0020 00 0 66010 TRA P2Z04 RG145540 66027 -0625 00 0 66120 P2Z10 STL P2Z31 RG145550 | 66030 -0625 00 0 34552 STL ERSWT RG145560 | 66031 0020 00 0 66044 TRA P2Z16 RG145570 | 66032 0560 00 2 14405 P2Z12 LDQ ICPSD+1,2 GET LOCATION OF SYMBOL RG145580 | 66033 0765 00 0 00000 LRS 0 GET SIGN OF SYMBOL RG145590 66034 -0600 00 1 20326 STQ ICNPD,1 REPLACE SYMBOLIC ADDRESS RG145600 | 66035 0634 00 1 66043 SXA P2Z14,1 RG145610 | 66036 -0340 00 1 20326 LAS ICNPD,1 RG145620 | 66037 0020 00 0 66041 TRA *+2 RG145630 | 66040 -0600 00 1 20326 STQ ICNPD,1 RG145640 66041 0520 00 1 20330 ZET ICNPD+2,1 RG145650 | 66042 2 00002 1 66036 TIX *-4,1,2 RG145660 | 66043 0774 00 1 00000 P2Z14 AXT **,1 RG145670 | 66044 0520 00 1 20330 P2Z16 ZET ICNPD+2,1 RG145680 | 66045 2 00002 1 65776 TIX P2Z02,1,2 RG145690 66046 0074 00 4 36066 P2Z18 TSX MAPUT,4 PUT SYMBOL COUPLES TO TAPE RG145700 | 66047 0074 00 4 36134 TSX MA200,4 RG145710 | 66050 0520 00 0 66120 ZET P2Z31 TEST FOR UNDEFINED SYMBOLS RG145720 | 66051 0020 00 0 66105 TRA P2Z26 YES RG145730 | 66052 0500 00 0 34552 CLA ERSWT IS EXECUTION POSSIBLE RG145740 66053 0402 00 0 06760 SUB TEN+90 RG145750 | 66054 0120 00 0 66115 TPL P2Z30 ALAS, NO. RG145760 | 66055 0074 00 4 05505 P2Z20 TSX NDSRT,4 WRITE EOF ON 25 RG145770 | 66056 0 00007 0 00031 PZE 25,,7 RG145780 | 66057 0534 00 1 04475 LXA SYMTAP-28,1 RG145790 66060 -3 00000 1 66063 TXL *+3,1,0 RG145800 | 66061 0074 00 4 05505 TSX NDSRT,4 WRITE EIF ON 28 RG145810 | 66062 0 00007 0 00034 PZE 28,,7 RG145820 | 66063 0074 00 4 05630 TSX CLIST,4 WRITE END OF PHASE 2 MESSAGE RG145830 | 66064 0 00003 3 66102 PZE P2Z24,3,3 RG145840 66065 0074 00 4 04752 TSX SYSRD,4 GET PHASE 3 RG145850 | 66066 114721230203 BCI 1,9PAC23 RG145860 | 66067 0 00000 0 00000 PZE RG145870 | 66070 604331452560 P2EM14 BCI 7, LINE FOR GROUPING GREATER THAN 22 WORDS RG145880 | 66071 264651602751 66072 466447314527 | 66073 602751252163 | 66074 255160633021 | 66075 456002026066 | 1 LISTING OF 12/01/64 PAGE 327 END OF JOB PHASE II | | 66076 465124626060 | 66077 626321516360 P2Z22 BCI 3,START OF PHASE 2 RG145890 | 66100 462660473021 66101 622560026060 | 66102 254524604626 P2Z24 BCI 3,END OF PHASE 2 RG145900 | 66103 604730216225 | 66104 600260606060 | 66105 0074 00 4 34503 P2Z26 TSX ERROR,4 WRITE OUT UNDEFINED SYMBOLS RG145910 66106 0 00004 0 66121 PZE P2Z32,,4 RG145920 | 66107 0774 00 1 03721 AXT P2JB3,1 RG145930 | 66110 -0500 00 1 20326 P2Z28 CAL ICNPD,1 RG145940 | 66111 -0340 00 0 66172 LAS ADMSK RG145950 | 66112 0020 00 0 66130 TRA P2Z40 RG145960 66113 0020 00 0 66130 TRA P2Z40 RG145970 | 66114 2 00002 1 66110 TIX P2Z28,1,2 RG145980 | 66115 0074 00 4 34503 P2Z30 TSX ERROR,4 RG145990 | 66116 0 00010 0 66213 PZE ERM88,,8 EXECUTION NOT ATTEMPTED RG146000 | 66117 0020 00 0 05134 TRA DDEAD GO TO NEXT JOB RG146010 66120 0 00000 0 00000 P2Z31 PZE SWITCH RG146020 | 66121 644524252631 P2Z32 BCI 4,UNDEFINED SYSTEM SYMBOLS RG146030 | 66122 452524606270 | 66123 626325446062 | 66124 704422464362 66125 606060606060 P2Z33 BCI 3, RG146040 | 66126 606060606060 | 66127 606060606060 | 66130 0602 00 0 66126 P2Z40 SLW P2Z33+1 RG146050 | 66131 -0500 00 1 20326 CAL ICNPD,1 RG146060 66132 -0765 00 0 00017 LGR 15 RG146070 | 66133 0774 00 4 00005 AXT 5,4 RG146080 | 66134 0767 00 0 00003 ALS 3 RG146090 | 66135 -0763 00 0 00003 LGL 3 RG146100 | 66136 2 00001 4 66134 TIX *-2,4,1 RG146110 66137 -0501 00 0 07000 ORA PRFX6 RG146120 | 66140 0602 00 0 66127 SLW P2Z33+2 RG146130 | 66141 0074 00 4 34503 TSX ERROR,4 RG146140 | 66142 0 00003 0 66125 PZE P2Z33,,3 RG146150 | 66143 2 00002 1 66110 TIX P2Z28,1,2 RG146160 66144 0020 00 0 66115 TRA P2Z30 RG146170 | * RG146180 | 66145 3STEP BSS 3 3-STEP FORMATION AREA RG146190 | * RG146200 | 66150 131366510000 P2XK2 BCI 1,==WR00 RG146210 66151 000013130000 P2XK3 BCI 1,00==00 I/O SKELETON SYMBOLS RG146220 | 66152 131351252124 P2XK4 BCI 1,==READ * RG146230 | 66153 130000215151 P2XK5 BCI 1,=00ARR RG146240 | 66154 512547465163 P2XK1 BCI 7,REPORT XX USES LOCATIONS XXXXX THRU XXXXX RG146250 | 66155 606767606462 66156 256260434623 | 66157 216331464562 | 66160 606767676767 | 66161 606330516460 | 66162 676767676760 66163 0020 00 0 00000 P2XK6 TRA ** ==WRRN PACKAGE FOR STACKING RG146260 | 66164 131366510000 BCI 1,==WR00 * RG146270 | 1 LISTING OF 12/01/64 PAGE 328 | END OF JOB PHASE II | 66165 0020 00 0 00000 P2XK7 TRA ** RG146280 | 66166 131347514563 BCI 1,==PRNT RG146290 | 66167 0 00024 0 00001 PZE 1,,20 RG146300 | 66170 +000300000000 P2XK8 OCT 000300000000 RG146310 | 66171 -300000000000 PRMSK OCT 700000000000 RG146320 66172 +000000077777 ADMSK OCT 000000077777 RG146330 | 66173 454660466463 ERMBF1 BCI 6,NO OUTPUT BUFFERS WERE GENERATED RG146340 | 66174 476463602264 | 66175 262625516260 | 66176 662551256027 66177 254525512163 | 66200 252460606060 | 66201 314660442170 ERM89 BCI 9,IO MAY BE INEFFICIENT BECAUSE OF INSUFFICIENT CORE RG146350 | 66202 602225603145 | 66203 252626312331 66204 254563602225 | 66205 232164622560 | 66206 462660314562 | 66207 642626312331 | 66210 254563602346 66211 512560606060 | 66212 000000215151 P2XK9 BCI 1,000ARR RG146360 | 66213 256725236463 ERM88 BCI 8,EXECUTION NOT ATTEMPTED BECAUSE OF ABOVE ERRORS RG146370 | 66214 314645604546 | 66215 636021636325 66216 444763252460 | 66217 222523216462 | 66220 256046266021 | 66221 224665256025 | 66222 515146516260 66223 P2END BSS 1 RG146380 | 1 LISTING OF 12/01/64 PAGE 329 | GENERATED I/O TABLES | | 72610 ORG RGFXD-120 RG146400 72633 MAXRL BES 19 MAXIMUM RECORD LENGTH RG146410 | 72633 BSS 1 PZE RG146420 | * RG146430 | 72657 SWTCH BES 19 CONTROL SWITCHES RG146440 | 72657 BSS 1 PZE RG146450 * RG146460 | 72703 TBLTL BES 19 LOCATION OF 3-STEP TABLES RG146470 | 72703 BSS 1 PZE RG146480 | * RG146490 | 72727 BUFLOC BES 19 BUFFER LOCATION POOL RG146500 72727 BSS 1 PZE RG146510 | * RG146520 | 72753 BUFSZE BES 19 BUFFER SIZE M,,N RG146530 | 72753 BSS 1 PZE RG146540 | * RG146550 72777 SPARE BES 19 EXTRA TABLE RG146560 | 72777 BSS 1 PZE RG146570 | 00000 TCD 0 END OF PHASE 2 RG146580 | 1 LISTING OF 12/01/64 PAGE 330 | PHASE 3 BRING IN OBJECT PROGRAM | 07466 P3ORG EQU ARTOM+1 RG146610 | 07466 ORG P3ORG RG146620 | 07466 114721230203 BCI 1,9PAC23 FILE 2 RECORD 3 RG146630 | 07467 512747306203 BCI 1,RGPHS3 RG146640 00100 ORG SYSTRA RG146650 | 00100 0020 00 0 07470 TRA P3A00 TRANSFER TO START OF PHASE 3 RG146660 | 07470 ORG P3ORG+2 RG146670 | 07470 0074 00 4 05630 P3A00 TSX CLIST,4 WRITE START OF PHASE 3 MESSAGE RG146680 | 07471 0 00003 3 10705 PZE P3E98,3,3 RG146690 07472 0074 00 4 06342 TSX TPOSIT,4 POSITION TAPE TO START OF SCRATCH RG146700 | 07473 -3 00000 0 00031 SVN 25 RG146710 | 07474 0020 00 0 10276 TRA P3C00 RG146720 | 07475 0534 00 1 04475 P3A10 LXA SYMTAP-28,1 DICTIONARIES RG146730 | 07476 -3 00000 1 10472 TXL P3D00,1,0 TRANSFER ON NEITHER RG146740 07477 0074 00 4 06342 TSX TPOSIT,4 YES RG146750 | 07500 -3 00000 0 00034 SVN 28 POSITION TO RECORDED POSITION RG146760 | 07501 0774 00 1 00025 AXT 21,1 RG146770 | 07502 0600 00 1 07702 STZ P3A56+1,1 INITIALIZE SWITCHES RG146780 | 07503 2 00001 1 07502 TIX *-1,1,1 RG146790 07504 0074 00 4 05255 P3A24 TSX RD(WR),4 READ A RECORD RG146800 | 07505 0 07513 0 00034 PZE 28,,P3A25 RG146810 | 07506 0020 00 0 07514 TRA P3A25+1 RG146820 | 07507 0774 00 4 00024 AXT 20,4 FINISHED WITH DICTIONARIES RG146830 | 07510 0600 00 4 10202 STZ RCCTL,4 INITIALIZE COUNTS RG146840 07511 2 00001 4 07510 TIX *-1,4,1 RG146850 | 07512 0020 00 0 07726 TRA P3B00 FINISHED WITH DICTIONARIES RG146860 | 07513 3 04230 0 10716 P3A25 IORT P3BUF,,P3BSZ RG146870 | 07514 -0500 00 0 10721 CAL P3BUF+3 RG146880 | 07515 0771 00 0 00036 ARS 30 RG146890 07516 -0340 00 0 06636 LAS B RG146900 | 07517 0020 00 0 07521 TRA *+2 RG146910 | 07520 0020 00 0 07532 TRA P3A28 RG146920 | 07521 0074 00 4 34503 TSX ERROR,4 RG146930 | 07522 0 00006 0 07524 PZE P3A99,,6 RG146940 07523 0020 00 0 07532 TRA P3A28 RG146950 | 07524 016263605125 P3A99 BCI 6,1ST RECORD ON DICT TAPE NOT B-RECORD RG146960 | 07525 234651246046 | 07526 456024312363 | 07527 606321472560 07530 454663602240 | 07531 512523465124 | 07532 0534 00 1 10720 P3A28 LXA P3BUF+2,1 GET FILE NUMBER RG146970 | 07533 0600 00 0 07655 STZ PRECD RG146980 | 07534 0441 00 1 72657 LDI SWTCH,1 RG146990 07535 -0056 00 001000 LNT 001000 RG147000 | 07536 0020 00 0 07702 TRA P3A58 NO DICT FOR THIS UNIT. READ TO P RG147010 | 07537 -0520 00 1 07701 NZT P3A56,1 TEST FOR PREVIOUS DICTIONARY RG147020 | 07540 0020 00 0 07547 TRA P3A29 NO. THIS IS THE FIRST RG147030 | 07541 0774 00 2 00002 AXT 2,2 YES. BACKSPACE OVER EOF RG147040 07542 0634 00 1 07544 SXA *+2,1 AND P-LABEL RG147050 | 07543 0074 00 4 05505 TSX NDSRT,4 RG147060 | 07544 0 00005 0 00000 PZE **,,5 RG147070 | 07545 2 00001 2 07543 TIX *-2,2,1 RG147080 | 07546 0020 00 0 07554 TRA P3A32 SKIP WRITING B-RECORD RG147090 07547 0634 00 1 07551 P3A29 SXA *+2,1 NO PREVIOUS DICTIONARIES RG147100 | 1 LISTING OF 12/01/64 PAGE 331 | PHASE 3 BRING IN OBJECT PROGRAM | | 07550 0074 00 4 06342 TSX TPOSIT,4 POSITION OUTPUT UNIT TO RG147110 07551 0 00000 0 00000 PZE ** START OF DICTIONARY RG147120 | 07552 -0625 00 1 07701 STL P3A56,1 RG147130 | 07553 0020 00 0 07565 TRA P3A33 RG147140 | 07554 0074 00 4 05255 P3A32 TSX RD(WR),4 READ A DICT RECORD RG147150 | 07555 0 07513 0 00034 PZE 28,,P3A25 RG147160 07556 0020 00 0 07560 TRA *+2 RG147170 | 07557 0020 00 0 07713 TRA P3A60 EOF NOT EXPECTED, ERROR RG147180 | 07560 -0500 00 0 10721 CAL P3BUF+3 RG147190 | 07561 0771 00 0 00036 ARS 30 RG147200 | 07562 -0340 00 0 06663 LAS P RG147210 07563 0020 00 0 07565 TRA *+2 RG147220 | 07564 -0625 00 0 07655 STL PRECD SET P RECORD SWITCH RG147230 | 07565 -0534 00 2 10716 P3A33 LXD P3BUF,2 SET UP LIMITS FOR BLOCKED RG147240 | 07566 1 10702 2 07567 TXI *+1,2,P3BUF-12 RECORD PROCESSING RG147250 | 07567 -0634 00 2 07601 SXD P3A36,2 RG147260 07570 0774 00 2 10721 AXT P3BUF+3,2 RG147270 | 07571 0074 00 4 07603 P3A34 TSX P3A40,4 RG147280 | 07572 -0520 00 0 07655 NZT PRECD WAS THIS A P RECORD RG147290 | 07573 0020 00 0 07601 TRA P3A36 NO RG147300 | 07574 0634 00 1 07576 SXA *+2,1 YES RG147310 07575 0074 00 4 05505 TSX NDSRT,4 WRITE EOF ON OUTPUT RG147320 | 07576 0 00007 0 00000 PZE **,,7 RG147330 | 07577 0600 00 0 07655 STZ PRECD RG147340 | 07600 0020 00 0 07504 TRA P3A24 RG147350 | * RG147360 07601 3 00000 2 07554 P3A36 TXH P3A32,2,** RG147370 | 07602 1 00013 2 07571 TXI P3A34,2,11 RG147380 | * RG147390 | 07603 0634 00 1 07607 P3A40 SXA P3A42,1 FILE NUMBER RG147400 | 07604 0634 00 2 07653 SXA P3A50,2 LOCATION OF FIRST WORD RG147410 07605 0634 00 4 07634 SXA P3A43,4 RG147420 | 07606 0074 00 4 05255 TSX RD(WR),4 RG147430 | 07607 -0 07653 0 00000 P3A42 MZE **,,P3A50 RG147440 | 07610 0020 00 0 07612 TRA *+2 RG147450 | 07611 0074 00 4 35007 TSX ENDTP,4 RG147460 * RG147470 | 07612 -0520 00 0 04660 NZT PCHIND RG147480 | 07613 0020 00 0 07634 TRA P3A43 DO NOT PUNCH RG147490 | 07614 0634 00 1 07647 SXA P3A47,1 YES, PUNCH. XR1 IS FILE NR RG147500 | 07615 0634 00 2 07641 SXA P3A45,2 XR2 CONTAINS LOCATION OF FIRST WORD RG147510 07616 -0500 00 0 07645 CAL P3A46 CALCULATE CHECSUM RG147520 | 07617 0774 00 4 00004 AXT 4,4 LOADING WORD, CONTROL WORD RG147530 | 07620 0361 00 4 07653 ACL P3A47+4,4 3 BLANKS, 11 WORDS OF RECORD RG147540 | 07621 2 00001 4 07620 TIX *-1,4,1 RG147550 | 07622 0774 00 4 00013 AXT 11,4 RG147560 07623 0535 00 2 07641 LAC P3A45,2 RG147570 | 07624 0361 00 2 00000 ACL 0,2 RG147580 | 07625 1 77777 2 07626 TXI *+1,2,-1 RG147590 | 07626 2 00001 4 07624 TIX *-2,4,1 RG147600 | 07627 0602 00 0 07646 SLW P3A46+1 RG147610 07630 0074 00 4 05255 TSX RD(WR),4 WRITE RECORD OUT TO RG147620 | 07631 -0 07640 0 00026 MZE 22,,P3A44 PUNCH UNIT RG147630 | 07632 0020 00 0 07634 TRA P3A43 RG147640 | 07633 0074 00 4 05526 TSX EOTSW,4 RG147650 | 1 LISTING OF 12/01/64 PAGE 332 PHASE 3 BRING IN OBJECT PROGRAM | | * RG147660 | 07634 0774 00 4 00000 P3A43 AXT **,4 RG147670 | 07635 0534 00 2 07653 LXA P3A50,2 RG147680 07636 0534 00 1 07607 LXA P3A42,1 RG147690 | 07637 0020 00 4 00001 TRA 1,4 RG147700 | 07640 -0 00003 0 07645 P3A44 IOCP P3A46,,3 CONTROL WORD AND CHECKSUM RG147710 | 07641 -0 00013 0 00000 P3A45 IOCP **,,11 DICTIONARY RECORD RG147720 | 07642 -0 00003 0 07650 IOCP P3A48,,3 BLANKS RG147730 07643 -0 00007 0 10611 IOCP P3D70,,7 ZEROS RG147740 | 07644 -1 00003 0 06553 IOCT KME70,,3 SERIALS RG147750 | 07645 +000517000000 P3A46 OCT 000517000000 COL BIN INDICATOR AND COUNT RG147760 | 07646 0 00000 0 00000 PZE 0 CHECKSUM RG147770 | 07647 -0 00003 0 00000 P3A47 MZE **,,3 CONTROL WORD RG147780 07650 606060606060 P3A48 BCI 1, FILL RG147790 | 07651 606060606060 BCI 1, RG147800 | 07652 606060606060 BCI 1, RG147810 | * RG147820 | * RG147830 * RG147840 | 07653 -0 00013 0 00000 P3A50 IOCP **,,11 RECORD RG147850 | 07654 3 00003 0 07650 IORT P3A48,,3 FILL RG147860 | 07655 0 00000 0 00000 PRECD PZE 0 P LABEL SWITCH RG147870 | 07701 P3A56 BES 19 --DICTIONARY ON THIS TAPE--SWITCH RG147880 07701 0 00000 0 00000 PZE 0 RG147890 | * RG147900 | 07702 0074 00 4 05255 P3A58 TSX RD(WR),4 PASS TAPE TO THE NEXT P RECORD RG147910 | 07703 0 07513 0 00034 PZE 28,,P3A25 RG147920 | 07704 0020 00 0 07706 TRA *+2 RG147930 07705 0020 00 0 07713 TRA P3A60 RG147940 | 07706 -0500 00 0 10721 CAL P3BUF+3 RG147950 | 07707 0771 00 0 00036 ARS 30 RG147960 | 07710 0322 00 0 06663 ERA P RG147970 | 07711 -0100 00 0 07702 TNZ P3A58 NOT YET RG147980 07712 0020 00 0 07504 TRA P3A24 THIS IS A P RECORD RG147990 | 07713 0074 00 4 34503 P3A60 TSX ERROR,4 RG148000 | 07714 0 00007 0 07717 PZE P3A62,,7 RG148010 | 07715 -0625 00 0 34552 STL ERSWT RG148020 | 07716 0020 00 0 07726 TRA P3B00 RG148030 07717 314343252721 P3A62 BCI 7,ILLEGAL EOF ENCOUNTERED ON DICTIONARY TAPE RG148040 | 07720 436025462660 | 07721 254523466445 | 07722 632551252460 | 07723 464560243123 07724 633146452151 | 07725 706063214725 | 07726 0074 00 4 05255 P3B00 TSX RD(WR),4 READ RECORD RG148050 | 07727 0 10253 0 00034 PZE 28,,P3B90 RG148060 | 07730 0020 00 0 07732 TRA P3B20 RG148070 07731 0020 00 0 10122 TRA P3B75 RG148080 | 07732 -0500 00 0 10720 P3B20 CAL P3BUF+2 RG148090 | 07733 0734 00 1 00000 PAX 0,1 FILE NUMBER RG148100 | 07734 -0734 00 2 00000 PDX 0,2 CODE OF RECORD, 1-HSKP, 2-MASK RG148110 | 07735 3 00001 2 07726 TXH P3B00,2,1 HOUSEKEEPING RECORD RG148120 07736 -0500 00 1 10202 CAL RCCTL,1 RECORD COUNT FOR THIS FILE RG148130 | 07737 0100 00 0 07745 TZE P3B30 FIRST RECORD RG148140 | 1 LISTING OF 12/01/64 PAGE 333 | PHASE 3 BRING IN OBJECT PROGRAM | 07740 0400 00 0 06615 P3B24 ADD ONE NO RG148150 | 07741 0602 00 1 10202 SLW RCCTL,1 SAVE RECORD COUNT IN TABLE RG148160 | 07742 0114 01 0 10721 CVR P3BUF+3,,1 PUT RECORD COUNT IN RECORD RG148170 | 07743 0602 00 0 10721 SLW P3BUF+3 RG148180 | 07744 0020 00 0 07761 TRA P3B35 RG148190 07745 -0520 00 0 22032 P3B30 NZT PSWCH PUNCHED OUTPUT RG148200 | 07746 0020 00 0 07754 TRA P3B34 NO RG148210 | 07747 0634 00 1 07751 SXA *+2,1 YES RG148220 | 07750 0074 00 4 05255 TSX RD(WR),4 WRITE MONITOR FLAG TO TAPE RG148230 | 07751 -0 10254 0 00000 MZE **,,P3B91 RG148240 07752 0020 00 0 07740 TRA P3B24 RG148250 | 07753 0074 00 4 35007 TSX ENDTP,4 RG148260 | 07754 0634 00 1 07756 P3B34 SXA *+2,1 RG148270 | 07755 0074 00 4 05255 TSX RD(WR),4 WRITE MONITOR FLAG TO TAPE RG148280 | 07756 -0 10255 0 00000 MZE **,,P3B92 RG148290 07757 0020 00 0 07740 TRA P3B24 RG148300 | 07760 0074 00 4 35007 TSX ENDTP,4 RG148310 | 07761 0074 00 4 07763 P3B35 TSX P3B40,4 WRITE RECORDS TO OUTPUT TAPES RG148320 | 07762 0020 00 0 07726 TRA P3B00 ANY MORE RECORDS RG148330 | 07763 0634 00 1 07771 P3B40 SXA P3B42,1 RG148340 07764 0634 00 1 10117 SXA P3B71,1 RG148350 | 07765 0634 00 2 10120 SXA P3B72,2 RG148360 | 07766 0634 00 4 10116 SXA P3B70,4 RG148370 | 07767 0774 00 4 00000 AXT 0,4 RG148380 | 07770 0074 00 4 05255 TSX RD(WR),4 WRITE RECORD TO ITS OUTPUT TAPE RG148390 07771 -0 10203 0 00000 P3B42 MZE **,,P3B60 RG148400 | 07772 0020 00 0 07774 TRA *+2 RG148410 | 07773 0074 00 4 35007 TSX ENDTP,4 RG148420 | 07774 -0520 00 0 04660 NZT PCHIND PUNCH OBJECT DECK RG148430 | 07775 0020 00 0 10116 TRA P3B70 NO RG148440 07776 -0500 00 1 10202 CAL RCCTL,1 RECORD COUNT RG148450 | 07777 -0340 00 0 06615 LAS ONE RG148460 | 10000 0020 00 0 10021 TRA P3B44 RG148470 | 10001 0761 00 0 00000 NOP RG148480 | 10002 0020 00 0 10003 TRA P3B43 RG148490 10003 -0500 00 0 10204 P3B43 CAL P3B61 RG148500 | 10004 0602 00 0 10266 SLW P3B96-3 CONTROL WORD 1 RG148510 | 10005 0754 00 1 00000 PXA 0,1 RG148520 | 10006 -0760 00 0 00003 SSM RG148530 | 10007 0602 00 0 10270 SLW P3B96-1 CONTROL WORD 3 RG148540 10010 -0500 00 0 10266 CAL P3B96-3 RG148550 | 10011 0774 00 4 00006 AXT 6,4 RG148560 | 10012 0361 00 4 10276 ACL P3B96+5,4 COMPUTE CHECKSUM RG148570 | 10013 2 00001 4 10012 TIX *-1,4,1 RG148580 | 10014 0602 00 0 10257 SLW P3B95-2 CONTROL WORD 2 RG148590 10015 0074 00 4 05255 TSX RD(WR),4 MONITOR FLAG TO OBJECT PUNCH TAPE RG148600 | 10016 -0 10211 0 00026 MZE 22,,P3B65 RG148610 | 10017 0020 00 0 10021 TRA P3B44 RG148620 | 10020 0074 00 4 35007 TSX ENDTP,4 RG148630 | 10021 -0534 00 2 10716 P3B44 LXD P3BUF,2 NO OF WORDS IN RECORD RG148640 10022 1 77775 2 10023 TXI *+1,2,-3 RG148650 | 10023 0754 00 2 00000 PXA 0,2 RG148660 | 10024 0760 00 0 00006 COM RG148670 | 10025 -0763 00 0 00022 LGL 18 RG148680 | 10026 0622 00 0 10110 STD P3B48 RG148690 1 LISTING OF 12/01/64 PAGE 334 | PHASE 3 BRING IN OBJECT PROGRAM | | 10027 -2 00025 2 10063 TNX P3B46,2,21 RECORD FIT ON 1 BINARY CARD RG148700 | 10030 0560 00 0 10205 LDQ P3B62 NO RG148710 10031 -0763 00 0 00022 LGL 18 RG148720 | 10032 0400 00 0 06642 ADD TEN+12 RG148730 | 10033 -0763 00 0 00022 LGL 18 RG148740 | 10034 0520 00 0 10243 ZET P3B67 THRU THIS PATH BEFORE RG148750 | 10035 0400 00 0 06641 ADD TEN+11 YES RG148760 10036 -0625 00 0 10243 STL P3B67 SET SWITCH RG148770 | 10037 0602 00 0 10716 SLW P3BUF CONTROL WORD 1 RG148780 | 10040 0621 00 0 10205 STA P3B62 RG148790 | 10041 -0500 00 0 06777 CAL PRFX4 RG148800 | 10042 -0602 00 0 10720 ORS P3BUF+2 CONTROL WORD 3 RG148810 10043 0500 00 0 10055 CLA P3B45 RG148820 | 10044 0771 00 0 00022 ARS 18 RG148830 | 10045 0402 00 0 06641 SUB TEN+11 RG148840 | 10046 0767 00 0 00022 ALS 18 RG148850 | 10047 0622 00 0 10055 STD P3B45 RG148860 10050 0630 00 0 10055 STP P3B45 RG148870 | 10051 -0500 00 0 10716 CAL P3BUF RG148880 | 10052 0361 00 0 10720 ACL P3BUF+2 RG148890 | 10053 0361 00 4 10721 ACL P3BUF+3,4 COMPUTE CHECKSUM RG148900 | 10054 1 77777 4 10055 TXI *+1,4,-1 RG148910 10055 3 00000 4 10053 P3B45 TXH *-2,4,** RG148920 | 10056 0602 00 0 10717 SLW P3BUF+1 CONTROL WORD 2 RG148930 | 10057 0074 00 4 05255 TSX RD(WR),4 WRITE RECORD TO OBJECT PUNCH TAPE RG148940 | 10060 -0 10244 0 00026 MZE 22,,P3B68 RG148950 | 10061 0020 00 0 10023 TRA P3B44+2 FINISH THIS RECORD RG148960 10062 0074 00 4 35007 TSX ENDTP,4 RG148970 | 10063 -0754 00 4 00000 P3B46 PXD 0,4 RG148980 | 10064 -0501 00 0 10205 ORA P3B62 RG148990 | 10065 0520 00 0 10243 ZET P3B67 RECORD LONGER THAN 21 WDS RG149000 | 10066 0400 00 0 06641 ADD TEN+11 YES RG149010 10067 0602 00 0 10716 SLW P3BUF CONTROL WORD 1 RG149020 | 10070 0600 00 0 10243 STZ P3B67 TURN OFF SWITCH RG149030 | 10071 -0500 00 0 10205 CAL P3B62 RG149040 | 10072 -0320 00 0 07070 ANA BCD70 RG149050 | 10073 0602 00 0 10205 SLW P3B62 RG149060 10074 -0500 00 0 06777 CAL PRFX4 RG149070 | 10075 -0602 00 0 10720 ORS P3BUF+2 CONTROL WORD 3 RG149080 | 10076 -0634 00 2 10250 SXD P3B69+1,2 RG149090 | 10077 0754 00 2 00000 PXA 0,2 RG149100 | 10100 0402 00 0 06644 SUB TEN+14 RG149110 10101 0760 00 0 00006 COM RG149120 | 10102 -0763 00 0 00022 LGL 18 RG149130 | 10103 0622 00 0 10251 STD P3B69+2 RG149140 | 10104 -0500 00 0 10716 CAL P3BUF RG149150 | 10105 0361 00 0 10720 ACL P3BUF+2 RG149160 10106 0361 00 4 10721 ACL P3BUF+3,4 COMPUTE CHECKSUM RG149170 | 10107 1 77777 4 10110 TXI *+1,4,-1 RG149180 | 10110 3 00000 4 10106 P3B48 TXH *-2,4,** RG149190 | 10111 0602 00 0 10717 SLW P3BUF+1 CONTROL WORD 2 RG149200 | 10112 0074 00 4 05255 TSX RD(WR),4 WRITE RECORD TO OBJECT PUNCH TAPE RG149210 10113 -0 10247 0 00026 MZE 22,,P3B69 RG149220 | 10114 0020 00 0 10116 TRA P3B70 RG149230 | 10115 0074 00 4 35007 TSX ENDTP,4 RG149240 | 1 LISTING OF 12/01/64 PAGE 335 | PHASE 3 BRING IN OBJECT PROGRAM | 10116 0774 00 4 00000 P3B70 AXT **,4 RG149250 | 10117 0774 00 1 00000 P3B71 AXT **,1 RG149260 | 10120 0774 00 2 00000 P3B72 AXT **,2 RG149270 | 10121 0020 00 4 00001 TRA 1,4 RETURN RG149280 10122 0074 00 4 05505 P3B75 TSX NDSRT,4 BACKSPACE TAPE RG149290 | 10123 0 00006 0 00034 PZE 28,,6 RG149300 | 10124 0074 00 4 05505 TSX NDSRT,4 RG149310 | 10125 0 00006 0 00034 PZE 28,,6 RG149320 | 10126 0074 00 4 05255 TSX RD(WR),4 RG149330 10127 0 07377 0 00034 PZE 28,,NTCMD RG149340 | 10130 0074 00 4 04000 TSX LOST,4 NO EOF RG149350 | 10131 0074 00 4 05255 P3B76 TSX RD(WR),4 READ RECORD FROM TAPE RG149360 | 10132 0 10253 0 00034 PZE 28,,P3B90 RG149370 | 10133 0020 00 0 10135 TRA P3B78 RG149380 10134 0020 00 0 10150 TRA P3B785 RG149390 | 10135 -0500 00 0 10720 P3B78 CAL P3BUF+2 RG149400 | 10136 0734 00 1 00000 PAX 0,1 RG149410 | 10137 -0734 00 2 00000 PDX 0,2 RG149420 | 10140 -3 00001 2 10131 TXL P3B76,2,1 LAYOUT MASK RG149430 10141 -0500 00 1 10202 CAL RCCTL,1 YES RG149440 | 10142 0400 00 0 06615 ADD ONE RG149450 | 10143 0602 00 1 10202 SLW RCCTL,1 RG149460 | 10144 0114 01 0 10721 CVR P3BUF+3,,1 PUT RECORD COUNT IN RECORD RG149470 | 10145 0602 00 0 10721 SLW P3BUF+3 RG149480 10146 0074 00 4 07763 TSX P3B40,4 WRITE RECORD TO ITS OUTPUT TAPE RG149490 | 10147 0020 00 0 10131 TRA P3B76 ANY MORE RECORDS RG149500 | 10150 0020 00 0 10472 P3B785 TRA P3D00 RG149510 | 10151 -0 00002 0 10154 P3B79 IOCP P3B80,,2 RG149520 | 10152 -0 00026 0 10611 IOCP P3D70,,22 RG149530 10153 -1 00003 0 06553 IOCT KME70,,3 RG149540 | 10154 +000500000000 P3B80 OCT 000500000000 RG149550 | 10155 542545246060 BCI 1,*END RG149560 | 10202 RCCTL BES 20 RG149570 | 10202 0 00000 0 00000 PZE RG149580 10203 -1 00000 0 10721 P3B60 IOCT P3BUF+3,,** RG149590 | 10204 +000506000000 P3B61 OCT 000506000000 RG149600 | 10205 +000500000000 P3B62 OCT 000500000000 RG149610 | 10206 -0 00010 0 10256 P3B64 IOCP P3B95-3,,8 RG149620 | 10207 -0 00020 0 10214 IOCP P3B66,,16 RG149630 10210 3 00003 0 06553 IORT KME70,,3 RG149640 | 10211 -0 00010 0 10266 P3B65 IOCP P3B96-3,,8 RG149650 | 10212 -0 00020 0 10214 IOCP P3B66,,16 RG149660 | 10213 3 00003 0 06553 IORT KME70,,3 RG149670 | 10214 P3B66 BSS 23 RG149680 10243 0 00000 0 00000 P3B67 PZE RG149690 | 10244 -0 00003 0 10716 P3B68 IOCP P3BUF,,3 RG149700 | 10245 -0 00025 4 10721 IOCP P3BUF+3,4,21 RG149710 | 10246 3 00003 0 06553 IORT KME70,,3 RG149720 | 10247 -0 00003 0 10716 P3B69 IOCP P3BUF,,3 RG149730 10250 -0 00000 4 10721 IOCP P3BUF+3,4,** RG149740 | 10251 -0 00000 0 10214 IOCP P3B66,,** RG149750 | 10252 3 00003 0 06553 IORT KME70,,3 RG149760 | 10253 3 77777 0 10716 P3B90 IORT P3BUF,,-1 RG149770 | 10254 -1 00005 0 10261 P3B91 IOCT P3B95,,5 RG149780 10255 -1 00005 0 10271 P3B92 IOCT P3B96,,5 RG149790 | 1 LISTING OF 12/01/64 PAGE 336 | PHASE 3 BRING IN OBJECT PROGRAM | | 10256 BSS 3 RG149800 10261 604731476260 P3B95 BCI 5, PIPS PRINT/PUNCH DPROGRAM RG149810 | 10262 475131456361 | 10263 476445233060 | 10264 244751462751 | 10265 214460606060 10266 BSS 3 RG149820 | 10271 604731476260 P3B96 BCI 5, PIPS PRINT ONLY DPROGRAM RG149830 | 10272 475131456360 | 10273 464543706024 | 10274 475146275121 10275 446060606060 | | | | | 10276 P3C00 BSS 0 BRING OBJECT PROGRAM INTO CORE RG149850 | 10276 -0500 00 0 04405 CAL OBJL6 RG149860 | 10277 0621 00 0 10304 STA *+5 RG149870 | 10300 0402 00 0 04404 SUB OBJL5 RG149880 10301 -0763 00 0 00022 LGL 18 RG149890 | 10302 0622 00 0 10304 STD *+2 RG149900 | 10303 0074 00 4 05013 TSX STZLUP,4 RG149910 | 10304 0 00000 0 00000 PZE **,,** RG149920 | 10305 0600 00 0 10324 P3C02 STZ P3C12 RG149930 10306 0074 00 4 05255 TSX RD(WR),4 RG149940 | 10307 0 10321 0 00031 PZE 25,,P3C10 RG149950 | 10310 0020 00 0 10312 TRA *+2 RG149960 | 10311 0020 00 0 07475 TRA P3A10 RG149970 | 10312 0774 00 2 00144 AXT P2JD4,2 RG149980 10313 0500 00 2 10470 P3C04 CLA P3C13,2 FILL IN MISSING ADDRESSES RG149990 | 10314 0100 00 0 10305 TZE P3C02 RG150000 | 10315 0401 60 2 10471 ADM* P3C13+1,2 RG150010 | 10316 0621 60 2 10471 STA* P3C13+1,2 RG150020 | 10317 2 00002 2 10313 TIX P3C04,2,2 RG150030 10320 0020 00 0 10305 TRA P3C02 RG150040 | 10321 -0 00001 0 10322 P3C10 IOCP *+1,,1 RG150050 | 10322 -0 00000 0 00000 IOCP **,,** RG150060 | 10323 3 00003 2 00000 IORTN **,,3 RG150070 | 10324 P3C12 BSS P2JD4 RG150080 10470 0 00000 0 00000 P3C13 PZE RG150090 | 10471 0 00000 0 00000 P3C14 PZE RG150100 | 10472 P3D00 BSS 0 PUNCH OBJECT PROGRAM RG150110 | 10472 -0520 00 0 04660 NZT PCHIND PUNCH OUTPUT RG150120 | 10473 0020 00 0 10500 TRA *+5 NO RG150130 10474 0074 00 4 05255 TSX RD(WR),4 PUNCH A RG150140 | 10475 -0 10151 0 00026 MZE 22,,P3B79 COL. BINARY RG150150 | 10476 0020 00 0 10500 TRA *+2 *END CARD RG150160 | 10477 0074 00 4 05526 TSX EOTSW,4 RG150170 | 10500 -0520 00 0 04406 NZT FPRGSW IS IT A COMBINED RUN RG150180 10501 -0520 00 0 04660 NZT PCHIND NO,DO WE PUNCH RG150190 | 10502 0020 00 0 10662 TRA P3E00 COMB. RUN OR NO PUNCH RG150200 | 10503 -0500 00 0 10637 CAL P3D71 YES. UPPER LIMIT RG150210 | 10504 0402 00 0 04404 SUB OBJL5 STARTING ADDRESS RG150220 | 1 LISTING OF 12/01/64 PAGE 337 PHASE 3 BRING IN OBJECT PROGRAM | | 10505 0767 00 0 00022 ALS 18 RG150230 | 10506 -0501 00 0 04404 ORA OBJL5 RG150240 | 10507 0074 00 4 10517 TSX P3D05,4 PUNCH PROGRAM RG150250 10510 -0500 00 0 10640 CAL P3D72 PUNCH OBJECT LIMITS RG150260 | 10511 0074 00 4 10517 TSX P3D05,4 RG150270 | 10512 -0500 00 0 04404 CAL OBJL5 RG150280 | 10513 0074 00 4 10641 TSX P3D80,4 PUNCH TRANSFER CARD RG150290 | 10514 0074 00 4 05505 TSX NDSRT,4 WRITE EOF ON PUNCH TAPE RG150300 10515 0 00007 0 00026 PZE 22,,7 RG150310 | 10516 0020 00 0 10662 TRA P3E00 RG150320 | * RG150330 | *THIS ROUTINE WILL WRITE BINARY CARD IMAGES FOR SUBSEQUENT PUNCHING RG150340 | * RG150350 * TSX P3D05,4 RG150360 | * RG150370 | 10517 0634 00 1 10573 P3D05 SXA P3D52,1 RG150380 | 10520 0634 00 2 10574 SXA P3D52+1,2 RG150390 | 10521 0634 00 4 10575 SXA P3D52+2,4 RG150400 10522 0600 00 0 10603 STZ P3D64 INITIALIZE FOR FULL CARD RG150410 | 10523 -0734 00 1 00000 PDX 0,1 RG150420 | 10524 0621 00 0 10552 STA P3D30 INITIALIZE FIRST LOAD ADDRESS RG150430 | 10525 2 00026 1 10532 P3D08 TIX P3D10,1,22 FULL CARD TEST RG150440 | 10526 -0625 00 0 10603 STL P3D64 RG150450 10527 0754 00 1 00000 PXA 0,1 RG150460 | 10530 0734 00 2 00000 PAX 0,2 LESS THAN FULL COUNT RG150470 | 10531 0020 00 0 10533 TRA *+2 RG150480 | 10532 0774 00 2 00026 P3D10 AXT 22,2 RG150490 | 10533 0634 00 2 10606 SXA P3D67,2 SET COUNT RG150500 10534 -0500 00 0 10552 CAL P3D30 RG150510 | 10535 0621 00 0 10600 STA P3D61 SET FWA IN IO COMMAND RG150520 | 10536 0621 00 0 10607 STA P3D68 SET FWA IN CARD IMAGE RG150530 | 10537 0401 00 0 10606 ADM P3D67 RG150540 | 10540 0621 00 0 10552 STA P3D30 RG150550 10541 -0754 00 2 00000 PXD 0,2 RG150560 | 10542 0622 00 0 10600 STD P3D61 RG150570 | 10543 -0760 00 0 00003 SSM RG150580 | 10544 0400 00 0 10604 ADD P3D65 RG150590 | 10545 0622 00 0 10601 STD P3D62 SET COUNT OF PADDING ZEROS RG150600 10546 -0754 00 2 00000 PXD 0,2 RG150610 | 10547 -0501 00 0 10605 ORA P3D66 RG150620 | 10550 0622 00 0 10607 STD P3D68 COUNT TO WORD U OF CARD RG150630 | 10551 -0500 00 0 10607 CAL P3D68 DEVELOP CHECSUM RG150640 | 10552 0361 00 2 00000 P3D30 ACL **,2 RG150650 10553 2 00001 2 10552 TIX *-1,2,1 RG150660 | 10554 0602 00 0 10610 SLW P3D69 RG150670 | 10555 0322 00 0 10607 ERA P3D68 RG150680 | 10556 -0100 00 0 10564 TNZ P3D40 WRITE THE CARD IF NOT ALL ZEROS RG150690 | 10557 0534 00 2 10606 LXA P3D67,2 MIGHT BE ALL ZEROS. RG150700 10560 0520 60 0 10552 ZET* P3D30 CHECK EACH LOCATION RG150710 | 10561 0020 00 0 10564 TRA P3D40 AHA'AT LEAST ONE IS NOT ZERO'WRITE CARD RG150720 | 10562 2 00001 2 10560 TIX *-2,2,1 KEEP TRYING RG150730 | 10563 0020 00 0 10571 TRA P3D50 RG150740 | 10564 0074 00 4 05255 P3D40 TSX RD(WR),4 $WRITE ACOL BINARY RG150750 10565 -0 10577 0 00026 FOR 22,,P3D60 CARD IMAGE ON PUNCH UNIT RG150760 | 10566 0020 00 0 10570 TRA *+2 OK RG150770 | 1 LISTING OF 12/01/64 PAGE 338 | PHASE 3 BRING IN OBJECT PROGRAM | 10567 0074 00 4 05526 TSX EOTSW,4 EOT RG150780 | 10570 0020 00 0 10571 TRA P3D50 RG150790 | 10571 -0520 00 0 10603 P3D50 NZT P3D64 TEST FOR MORE RG150800 | 10572 0020 00 0 10525 TRA P3D08 YES RG150810 | 10573 0774 00 1 00000 P3D52 AXT **,1 RG150820 10574 0774 00 2 00000 AXT **,2 RG150830 | 10575 0774 00 4 00000 AXT **,4 RG150840 | 10576 0020 00 4 00001 TRA 1,4 RG150850 | 10577 -0 00002 0 10607 P3D60 IOCP P3D68,,2 RG150860 | 10600 -0 00000 0 00000 P3D61 IOCP **,,** FWA,,COUNT RG150870 10601 -0 00000 0 10611 P3D62 IOCP P3D70,,** 22-COUNT RG150880 | 10602 -1 00003 0 06553 P3D63 IOCT KME70,,3 SERIALS RG150890 | 10603 0 00000 0 00000 P3D64 PZE 0 FULL CARD SWITCH RG150900 | 10604 +000026000000 P3D65 OCT 000026000000 RG150910 | 10605 +000500000000 P3D66 OCT 000500000000 RG150920 10606 0 00000 0 00000 P3D67 PZE 0 COUNT THIS CARD RG150930 | 10607 0 00000 0 00000 P3D68 PZE 0 FIRST WORD STORAGE RG150940 | 10610 0 00000 0 00000 P3D69 PZE 0 SECOND WORD, CHECKSUM RG150950 | 10611 DUP 1,22 ZEROS FOR PADDING RG150960 | 10611 0 00000 0 00000 P3D70 PZE 0 RG150970 10612 0 00000 0 00000 | 10613 0 00000 0 00000 | 10614 0 00000 0 00000 | 10615 0 00000 0 00000 | 10616 0 00000 0 00000 10617 0 00000 0 00000 | 10620 0 00000 0 00000 | 10621 0 00000 0 00000 | 10622 0 00000 0 00000 | 10623 0 00000 0 00000 10624 0 00000 0 00000 | 10625 0 00000 0 00000 | 10626 0 00000 0 00000 | 10627 0 00000 0 00000 | 10630 0 00000 0 00000 10631 0 00000 0 00000 | 10632 0 00000 0 00000 | 10633 0 00000 0 00000 | 10634 0 00000 0 00000 | 10635 0 00000 0 00000 10636 0 00000 0 00000 | 10637 0 00000 0 73000 P3D71 PZE RGFXD RG150980 | 10640 0 00006 0 04400 P3D72 PZE OBJL1,,6 RG150990 | * RG151000 | *THIS ROUTINE PUNCHES A CARD TO SIGNAL THE BINARY LOADER RG151010 * TO START EXECUTION RG151020 | * RG151030 | *THE CALLING SEQUENCE IS RG151040 | * RG151050 | * CAL STARTING ADDRESS RG151060 * TSX P3D80,4 RG151070 | * RETURN RG151080 | * RG151090 | 10641 0634 00 4 10653 P3D80 SXA P3D81,4 RG151100 | 10642 0621 00 0 10655 STA P3D82 RG151110 1 LISTING OF 12/01/64 PAGE 339 | PHASE 3 BRING IN OBJECT PROGRAM | | 10643 0074 00 4 05255 TSX RD(WR),4 RG151120 | 10644 -0 10656 0 00026 FOR 22,,P3D83 RG151130 10645 0020 00 0 10647 TRA *+2 RG151140 | 10646 0074 00 4 05526 TSX EOTSW,4 RG151150 | 10647 0074 00 4 05255 TSX RD(WR),4 WRITE A *END CARD AFTER THE RG151160 | 10650 -0 10151 0 00026 MZE 22,,P3B79 TRANSFER CARD RG151170 | 10651 0020 00 0 10653 TRA *+2 RG151180 10652 0074 00 4 05526 TSX EOTSW,4 RG151190 | 10653 0774 00 4 00000 P3D81 AXT **,4 RG151200 | 10654 0020 00 4 00001 TRA 1,4 RG151210 | * RG151220 | * RG151230 10655 +000500000000 P3D82 OCT 000500000000 RG151240 | 10656 -0 00001 0 10655 P3D83 IOCP P3D82,,1 RG151250 | 10657 -0 00012 0 10611 IOCP P3D70,,10 RG151260 | 10660 -0 00015 0 10611 IOCP P3D70,,13 RG151270 | 10661 -1 00003 0 06553 IOCT KME70,,3 RG151280 1 LISTING OF 12/01/64 PAGE 340 | READ IN FIXED OBJECT AND PREPARE TO EXECUTE | | 10662 P3E00 BSS 0 CLOSE OUT PHASE 3 RG151300 | 10662 0074 00 4 05630 TSX CLIST,4 WRITE END OF PHASE 3 MESSAGE RG151310 10663 0 00006 3 10710 PZE P3E99,3,6 RG151320 | 10664 0500 00 0 04404 CLA OBJL5 RG151330 | 10665 0621 00 0 05033 STA STOBJ RG151340 | 10666 0520 00 0 04406 ZET FPRGSW POSITION SYSTEM TAPE RG151350 | 10667 0020 00 0 10677 TRA P3E10 RG151360 10670 0074 00 2 04764 TSX BSFSYS,2 RG151370 | 10671 0774 00 1 00003 AXT 3,1 RG151380 | 10672 0074 00 2 04771 TSX BSRSYS,2 RG151390 | 10673 2 00001 1 10672 TIX *-1,1,1 RG151400 | 10674 0074 00 4 04752 TSX SYSRD,4 RG151410 10675 114721230103 BCI 1,9PAC13 RG151420 | 10676 0 02033 0 75033 PZE SAXT04+1,,SAXT04+1-RGFXD RG151430 | 10677 0074 00 2 04776 P3E10 TSX FSFSYS,2 RG151440 | 10700 0074 00 2 05004 TSX FSRSYS,2 RG151450 | 10701 0074 00 2 05004 TSX FSRSYS,2 RG151460 10702 0074 00 4 04752 TSX SYSRD,4 RG151470 | 10703 114721230303 BCI 1,9PAC33 RG151480 | 10704 0 02326 0 16057 PZE INOUT,,INOUTZ RG151490 | * RG151500 | 10705 626321516360 P3E98 BCI 3,START OF PHASE 3 RG151510 10706 462660473021 | 10707 622560036060 | 10710 254524604626 P3E99 BCI 6,END OF PHASE 3, GENERATION COMPLETE RG151520 | 10711 604730216225 | 10712 600373602725 10713 452551216331 | 10714 464560234644 | 10715 474325632560 | 04230 P3BSZ EQU 11*200 BLOCK E/F RECORDS BY 200 RG151530 | 10716 P3BUF BSS P3BSZ+3 PHASE 3 DICTIONARY BUFFER RG151540 15625 P3END BES 300 PATCH AREA RG151550 | 77777 END -1 RG151560 | 1 LISTING OF 12/01/64 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 75114 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 6635 A 7001,56061,56730,57134,63145,65542 | 6636 B 7001,56136,57222,60046,60101 6637 C 7001,63146,65434,65540 | 6640 D 7001,57226,57305,57731,61460 | 6641 E 7001,55706,56141,57223,60077,60236,60334 | 6642 F 7001,55727,56204,57224,60235,60333 | 6643 G 7001,56207 6644 H 7001,57225,57631,57730 | 6645 I 7001 | 6655 J 7001 | 6656 K 7001 | 6657 L 7001,66326 6660 M 7001 | 6661 N 7001,57051,61610,65670 | 6662 O 7001 | 6663 P 7001,56144,60635 | 6664 Q 7001 6665 R 7001,66327 | 6676 S 7001,57052 | 6677 T 7001,57227,57306,57732,66240 | 6700 U 7001 | 6701 V 7001 6702 W 7001 | 6703 X 7001 | 61374 C1 54264,54374,54377,54563,54665,56316,57071,57073,57077,57101,57134,57154,57160,57177,57204,57253,57323 | 57337,57434,57563,57566,57656,57661,57664,57740,60053,60060,60064,60074,60102,60114,60117,60163,60174 | 60273,60275,60321,60361,60411,60464,60476,60517,60522,60540,60544,60601,60670,60712,60716,61021,61061 61064,61066,61070,61123,61763,62010,62023,62050,62074,62110,62113,62135,62137,62142,62170,62210,62213 | 62235,62240,62256,62273,62300,62337,62374,62400,62403,62406,62422 | 61403 C2 57312,57361,60035 | 61407 C3 62076 | 61414 C4 60755,61040 61416 C5 | 63126 ID 61225,61546,61714,61775,63152,64563 | 36714 T1 36664,36670,36677,61027,61032,61054,61060,61121,61142,61145,61154,61160,61213,62307 | 36715 T2 36650,36654,61023,61034,61055,61057,61067,61073,61105,61123,61136,61147,61155,61157,61166,61176,61177 | 61215,62310,62316,62320 61373 BIT 57556,57562,57573,57622,57631,57654 | 6300 BSF 0, 7712 | 6276 BSR 0, 7710 | 61417 C10 | 61424 CPC 60246,61132 620 DSB 20327,21147,55630,55670,56214,56306,56437,56440,56557,56624,65071,55065,55066 | 3720 DSC 10463,14403,10463,56304,56535,56547,56551 | 620 DSE 21150,21770,55606,56474,56475,60025,60027,65115 | 3720 DSF 14405,20325,20327,10463,60020,60022 | 55565 DTS 55350,62224,63476,64343 61670 KEY 62353 | 61440 LEN 57561,57655 | 706 MWR 0, 7720 | 6615 ONE 7307,34507,34514,35510,35513,36440,55046,55321,55324,55543,56734,56760,57024,57125,57314,57372,57447 | 1 LISTING OF 12/01/64 PAGE 2 POST PROCESSOR ASSEMBLY DATA | | 57452,57563,57654,57714,57722,57762,60530,60537,61220,61342,61401,62000,62021,62053,62463,62500,62552 | 62605,62653,62656,62741,63252,63256,63537,63725,63772,64204,64262,64401,64447,64457,64463,64627,64645 | 64653,65150,65465,66332,66357,66711,66740,66763,66766,40304,40321,52601,52645,53323,56463 61453 OPE 57070,57737,57742,57764,60056,60127,60320,60346,60364,60556,60564,60571,60650,61063,61065,61742 | 6272 REW 0, 7704 | 6622 SIX 55000,55052,56356,56375,56377,57716,61051,61151,61475,61631,62422,62433,62436,63564,63657,63664,64254 | 64265,64500,65057,62454 | 61470 SP1 61471 SP2 | 61472 SP3 | 61473 SP4 | 61474 SW2 60274,61074,61076 | 61475 SW3 60276,60655,60725,60727 61476 SW4 60342,60641,60656,61012,61014 | 61477 SW5 61735,62032,62044 | 61500 SW8 53033,53044,53052 | 64752 SWI | 6626 TEN 6627, 6630, 6631, 6632, 6633, 6634, 6635, 6636, 6637, 6640, 6641, 6642, 6643, 6644, 6645, 6646, 6647 6650, 6651, 6652, 6653, 6654, 6655, 6656, 6657, 6660, 6661, 6662, 6663, 6664, 6665, 6666, 6667, 6670 | 6671, 6672, 6673, 6674, 6675, 6676, 6677, 6700, 6701, 6702, 6703, 6704, 6705, 6706, 6707, 6710, 6711 | 6712, 6713, 6714, 6715, 6716, 6717, 6720, 6721, 6722, 6723, 6724, 6725, 6726, 6727, 6730, 6731, 6732 | 6733, 6734, 6735, 6736, 6737, 6740, 6741, 6742, 6743, 6744, 6745, 6746, 6747, 6750, 6751, 6752, 6753 | 6754, 6755, 6756, 6757, 6760, 7001, 7002,36367,36376,36412,36444,36623,55001,55053,55534,55537,56321 56357,57057,57152,57424,57507,60037,60455,60521,60640,61045,61741,62040,62120,62270,62272,62355,62410 | 62412,62441,62456,62474,62602,64046,64057,64061,64266,65134,65367,66022,57023 | 36776 TWA 36361,36365,36414,36424,36427,36443,36454,36456,36462,36474,36504,36512,36514,36521,66230,55160,55313 | 57310,57320,57322,57343,57345,57365,57367,57371,57373,57406,57440,57442,57523,57534,57541,60154,60763 | 61046,61051,61056,61371,61772,61774,62026,62030,62040,62042,62061,62066,62070,62160,62162,62174,62176 62216,62220,62230,62232,62305,62307,62311,62313,62327,62331,62333,62351,62360,62362,62364,62366,62411 | 62434,62437,62442,62444 | 6616 TWO 57140,57341,62324,63234,64161,64375,66351,53327 | 6274 WEF 0, 7706 | 7426 ARTO 57025,57236,57243 4621 CARD 0, 7161,55006,55027,56034,56053,56065,56067,56072,56737,56764,56767,57036,57071,57103,57122,57143 | 57147,57165,57206,57233,57273,57301,57317,57324,57333,57344,57346,57473,57736,60104,60124,60134,60142 | 60166,60176,60202,60207,60224,60242,60254,60257,60271,60274,60275,60303,60321,60322,60340,60344,60354 | 60371,60555,60713,61510,61554,61574,61621,61642,61662,61757,61765,62023,62024,62055,62126,62150,62663 | 63141,63151,63154,63172,63176,63220,63221,63243,64223,65437,65440,65446,65470,65506,65512,65545,65547 65627,65645,66043,66105,66127,66150,66155,66174,66665 | 6302 CKPT 0, 7714 | 61422 CON1 | 36756 CONL | 6270 COPY 0, 7702 63167 CTG2 | 63243 CTG8 63264 | 63255 CTG9 63250 | 4447 DATE 0 | 36746 DCON 63715,64003,64407 22660 DICT 60430,60542,60577,60602,60603,60612,60652 | 56301 DPRL 55655,55657,56222,56427,56431,56464,56521,56656,56665,56667,57465,60215,60307,60310,60411,60540,60550 | 60551,60574,60605 | 56300 DPRT 55653,56224,56421,56425,56442,56463,56477,56520,56536,56655,56663,57464,57467,60214,60255,60262,60263 | 60264,60314 20327 DSIE 55670,56214,56440,55066 | 10463 DSIF 14403,14404,56304,56305,56551,56555 | 1 LISTING OF 12/01/64 PAGE 3 | POST PROCESSOR ASSEMBLY DATA | 21150 DSOE 21770,37140,56475,52263 | 14405 DSOF 20325,20326,60032 | 7244 DTBL 7260 | 7357 EDT1 63200,63205,63271,63703,63706,64432,64435,64510,64516,64520,64634,64636,64640,64641,64647 | 7360 EDT2 64252,64263 7361 EDT3 63521,63527,63562 | 7264 EDT4 63535,64246,64261,64477,64521 | 7364 EDT5 63626,64473,64476 | 7265 EWT4 57373,57531,57542,57550,57562,57564 | 7266 EWT6 57374,57436,57443,57504,57544 7267 EWT7 57375,57423,57444,57446,57450,57506,57545 | 7270 EWT8 57376,57406,57451,57453,57536,57546,57567,57661,57673 | 7271 EWT9 57503,57555,57646,57660,57676 | 63064 F007 63056 | 6621 FIVE 6620 FOUR 65065 | 36747 HCON 63315,64111,64422 | 63016 HELP | 61427 HTLC 57105,57220,57226,57421,57453,57473,57476,57514,57524,60052,60054,60061,60063,60065,60073,60075,60240 | 60252,60256,60262,60265,60312,60315,60340,60360,60362,60425,60455,60463,60474,60501,60510,60554,60612 60623,60626,60634,60637,60645,60742,60764,61007,61133 | 61432 HTLK 57517,60066,60067,60124,60225,60267,60416,60615,60752,60775 | 40717 HTWA 61427,61457 | 6246 IOCS 0, 7732 | 61146 IP01 57302,57303,57354,57355,57364,57366,62021,62024,62025,62027,62034,62036,62037,62041,62154,62156,62157 62161,62166,62172,62173,62175 | 61150 IP02 57304,57305,57307,57356,57357,57370,57372,57431,57432,57437,57441,62127,62207,62215,62217,62260,62262 | 61152 IP03 52774,53054,53525,53644,55106 | 61155 IP04 | 61161 IP05 57237,57240,57243,57244,57315,57316,57317,57321,57334,57335,57342,57344,57467,57470,57472,57475,57477 61726,61773,62126,62211,62212,62214,62225,62227,62231,62234,62236,62237,62241,62265 | 61163 IP06 | 61164 IP07 | 61165 IP08 60306,60311 | 61170 IP09 61174 IP10 60207,60261,60314,60625,61752,61754 | 61176 IP11 | 61202 IP12 | 61206 IP13 | 61214 IP14 60166,60170,60173,60462,60467,60471,60473,60714 61217 IP15 60046,60200,60201,60204,60210,60245,60247,60255,60305,60333,60334,60337,60500,60504,60507 | 61222 IP16 60251,60264,60307,60454,60644,60672,61023 | 61225 IP17 60524,60537,60553 | 61231 IP18 61433,61755,61771,62047,62054,62060,62065,62067,62246,62323,62325,62326,62330,62332,62372,62375 | 61234 IP19 61434,61756,62073,62075,62101 61242 IP20 | 61254 IP21 | 61263 IP22 | 61265 IP23 53575,53576,53601 | 61275 IP24 61301 IP25 | 61302 IP26 | 61311 IP27 | 61325 IP28 62443 | 61330 IP29 1 LISTING OF 12/01/64 PAGE 4 | POST PROCESSOR ASSEMBLY DATA | | 61334 IP30 | 61335 IP31 57504,57505,57510,57513 61344 IP32 60604,60606,60611 | 61350 IP33 60620,60622,60631,60636 | 61352 IP34 60633 | 61353 IP35 | 61357 IP36 62130,62244,62251,62255,62257,62261,62266,62270,62271,62275,62304,62306,62310,62312 61364 IP37 62245,62272,62274,62301,62322,62324,62357,62361,62363,62365,62371,62373,62377,62401,62402,62404,62405 | 62407 | 61603 IP38 | 61616 IP39 | 61623 IP40 62247,62250,62276,62277 61640 IP41 | 7363 IRBC 63577,63615,63727 | 6254 JOIN 0, 7666 | 61437 KEY3 60766,61047,62001 | 7174 LINE 7244,57325,57347,57357,57363,57402,57432,57516,57602,57605,57624,57627,57635,57651,57656 4000 LOST 0,35462,36076,54666,54674,55451,57254,57747,60157,60670,65225,40255,40444,40460,52625,52635,52644 | 53221,54004,54305,54345,54365,55673,56345,56466,56470,56536,56577,57024,60111,60702 | 61446 MAD1 57547,57605,57643 | 61450 MAD2 57550,57675 | 61452 MAD3 57327,57662,62171,62315 7315 MASK 61043,61533,61626,61705,62346,63067,63231,63704,64076,64132,64632,53047,53441,53522,53577,53634,54266 | 54430,54457,54500,54505,54526,54534,54540,55706,56146,57076,57115,57121,57126,57133,57211,57241,57252 | 57273,57375,57404,57426,57456,57532,57537,57555,57570,57576,57625,57634,57666,57715,57732,57735,57745 | 57766,57774,57775,60004,60017,60027,60034,60042,60057,60104,60113,60130,60142,60144,60156,60171,60202 | 60220,60227,60271,60301,60324,60352,60366,60371,60377,60407,60430,60435,60441,60565,60572,60614,60700 60750,60773,61033,61113,61122,61743,62343,62445,62452 | 6615 MCA1 7307,36705,62746,62753,62760,62765,62772,62777,63004,63011,63016,63024,63032,63037,63044,63051,63762 | 63765,64051,64064 | 63720 N001 63713 | 6625 NINE 62066,62073,62130,62642,62647,63750,63757 61454 OPE1 57072,57233,57263,57275,57462,60350,60427,60432,60512,60560,60652,60660,61067,61722,61746,62014,62121 | 62147,62450 | 61455 OPE2 57074,61071,62412,62416,62446,62461 | 6262 OPEN 0, 7674 | 36535 P2BI 36345,36372,36406,36413,36446,57063,61731,61767,62006,62051,62077,62131 36536 P2LI 36350,36373,36445,36457,36464,57066,60164,60465,60515,60717,61734,61762,62007,62052,62100,62107,62132 | 36537 P2MI | 36534 P2WI 36342,36353,36426,36436,61725,62022,62035,62046,62072,62155,62167,62206,62224,62267 | 7162 PARA 7244,36333,36340,66221,66222,40717,52264,53055,57057,57075,57114,57125,57132,57210,57231,57235,57251 | 57266,57272,57374,57424,57460,57464,60033,60041,60050,60141,60145,60155,60160,60176,60217,60226,60243 60270,60300,60317,60331,60353,60370,60376,60406,60434,60440,60446,60502,60533,60665,60677,60707,61102 | 61460,62003,62144 | 40706 PART 54467,54647,54701,56747 | 7365 PERM 63660,64522,64530,64534,64537 | 6634 PLUS 7001,57552,57556,65734,66142,66521,66532 63377 PMET 62163,62170,63437,63446 | 54402 PR03 54373 | 54414 PR06 | 54417 PR07 54426,54433 | 54424 PR08 54416 54441 PR09 54431 | 54450 PR10 54442 | 54457 PR11 54533,54543 | 1 LISTING OF 12/01/64 PAGE 5 | POST PROCESSOR ASSEMBLY DATA | 54472 PR12 54456 | 54504 PR13 54474 | 54531 PR14 54506 | 6264 READ 0, 7676 7114 REC1 60041,60042,60045,60050,60053,60056,60062,60070,60127,60616,60630,60637,60641,60651,60704,60705 | 61465 SHSW 62140,62200 | 73746 SIGN 61620 | 64007 SW12 63612,63735,63737 | 61466 SWHH 53454,53477,53501 6761 TAG1 61302,61327 | 6762 TAG2 65676,54512 | 6763 TAG4 55313,60034,63753,64544,65673,54514,55772 | 61504 TALC | 74371 TBL0 74357,74360,74361,74362,74363,74364,74365,74366,74367,74370,74371,74372,74373,74374,74375,74376,74377 74400,74401,74402,74403,74404,74405,74406,74407,74410,74411,74412,74413,74414,74415,74416,74417,74420 | 74421,74422,74423,74424,74425,74426,74427,74430,74431,74432,74433,74434,74435,74436,74437,74440,74441 | 74442,74443,74444,74445,74446,74447,74450,74451,74452,74453,74454,74455,74456,74457,74460,74461,74462 | 74463,74464,74465,74466,74467,74470,74471,74472,74473,74474,74475,74476,74477,74500,74501,74502,74503 | 74504,74505,74506,74507,74510,74511,74512,74513,74514,74515,74516,74517,74520,74521,74522,74523,74524 74525,74526,74527,74530,74531,74532,74533,74534 | 74403 TBL1 74403,74404,74405,74406,74407,74410,74411,74412,74413,74414 | 74415 TBL2 74415,74416,74417,74420,74421,74422,74423,74424,74425,74426 | 74427 TBL3 74427,74430,74431,74432,74433,74434,74435,74436,74437,74440 | 74441 TBL4 74441,74442,74443,74444,74445,74446,74447,74450,74451,74452 74453 TBL5 74453,74454,74455,74456,74457,74460,74461,74462,74463,74464 | 74465 TBL6 74465,74466,74467,74470,74471,74472,74473,74474,74475,74476 | 74477 TBL7 74477,74500,74501,74502,74503,74504,74505,74506,74507,74510 | 74511 TBL8 74511,74512,74513,74514,74515,74516,74517,74520,74521,74522 | 74523 TBL9 74523,74524,74525,74526,74527,74530,74531,74532,74533,74534 63400 TCAL 63445,64016,64023 | 36750 TCON 62165,63441,64135,64452 | 7102 TEMP 56315,56317,56352,56354,56623,56634,56640,56646,57054,57056,57712,57723,60353,60356,60460,60462,60463 | 60545,60547,60574,60575,61365,61371,61373,62427,62431,62432,65041,65044,65144,65146,65474,65476,65502 | 65526,66161,66164,66170,66426,66432,66541,66543,55057,55062,55070,55074 61507 THSW 53767,57137,60031 | 37027 TWA2 60673,60715,60721,60723,61035,61370 | 61511 WDSW | 36751 YCON 63354 | 6614 ZERO 7307,36447,36522,36530,55033,56337,56762,57045,57230,57370,57403,57435,57517,57623,57634,57733,60100 60237,60335,63130,63144,63320,65163,65541,65565,65601,65702,65713,65727,66047,66145,66335,66344,66425 | 66445,66525,66552,40264,40676,55311,56503,56651,56656 | 66145 3STEP | 57104 A0050 57407,57423,57503,57520,57542,61075,61134 | 57110 A0055 57050,57100,57250 57111 A0056 57051 | 57112 A0057 57052 | 57114 A0102 57103 | 57125 A0111 57120 | 57132 A0116 57122,57124 57137 A0121 | 57163 A0135 57144,57152 | 57173 A0190 57170 | 57203 A0270 57172 | 57207 A0300 57166 57210 A0310 57140,57146,57162 | 1 LISTING OF 12/01/64 PAGE 6 | POST PROCESSOR ASSEMBLY DATA | | 57223 A0420 57212 57231 A0501 57136 | 57237 A0600 57247 | 57251 A0700 57230 | 57257 A0734 57254 | 57263 A0750 57255,57261 57275 A0756 | 57315 A0804 57301 | 57325 A0830 57314 | 57331 A0840 57347 | 57346 A0868 57331 57350 A0880 57330 | 57374 A0960 57326,57351,57447 | 57410 A0990 57400 | 57417 A1000 57422,57531 | 57424 A1020 57274 57430 A1030 57446 | 57445 A1070 57430 | 57450 A2011 57131 | 57467 A2130 57502 | 57504 A2250 57466 57512 A2310 57515 | 57521 A3010 57416 | 57532 A3200 57402 | 52251 ACTBL 60002,60012,60015,60021 | 66172 ADMSK 36074 61370 ADTW2 60733 | 61371 ADTWA 57413,60233,60420,61003,61016 | 57050 ALPHA 52752,53533,53624,57051 | 7465 ARTOM 57011,57020,57074,57235,57707,57710,57724,57777,60000,60007,60010 | 57543 B0010 57276,62015,62150 57571 B0200 57567 | 57575 B0260 | 57577 B0280 57575 | 57601 B0300 57574,57630 | 57616 B0480 57607,57623 57617 B0500 57543,57663,57677,57706 | 57620 B0505 57544 | 57622 B0520 57565 | 57631 B0610 57564 | 57635 B0660 57633 57637 B0700 | 57654 B0850 57632,57645 | 57667 B0980 57665 | 57675 B1070 | 57707 B1300 57325,57553,57616 36755 BBLNK 55051 | 6713 BCD01 7002,55010,55420,56771,60450,61235,61646,62115,62124,63607,63651,63671,66032,66275,40470 | 7002 BCD02 61361,64102 | 7003 BCD03 55136,55156,55162,56704,57214,57307,57711,60157,60170,60432,61250,61346,61367,61615,61730,65032,65035 | 65043,66566,56407,56412 7004 BCD04 57607,54510 | 7005 BCD05 | 7006 BCD06 57703,61306,62222,62574,64037,64117,64326,65130,66265 | 7007 BCD07 56327,60474,61273,62251,62420,62426,64242,64635,64712 | 1 LISTING OF 12/01/64 PAGE 7 POST PROCESSOR ASSEMBLY DATA | | 7010 BCD10 61011,64014,64610 | 7011 BCD11 57276 | 7012 BCD12 7013 BCD13 | 7014 BCD14 | 7015 BCD15 | 7016 BCD16 65053 | 7017 BCD17 56351,56426,61735,64331,65104 7020 BCD20 64042 | 7021 BCD21 | 7022 BCD22 | 7023 BCD23 | 7024 BCD24 7025 BCD25 | 7026 BCD26 | 7027 BCD27 | 7030 BCD30 60253 | 7031 BCD31 7032 BCD32 | 7033 BCD33 | 7034 BCD34 60445 | 7035 BCD35 | 7036 BCD36 7037 BCD37 55447,56155,60125,66202,56772 | 7040 BCD40 60352,60355,62164,63314,63330,63440,63523,63544,63714,64002,64406,66256 | 7041 BCD41 | 7042 BCD42 | 7043 BCD43 7044 BCD44 | 7045 BCD45 | 7046 BCD46 | 7047 BCD47 | 7050 BCD50 7051 BCD51 | 7052 BCD52 | 7053 BCD53 | 7054 BCD54 | 7055 BCD55 7056 BCD56 | 7057 BCD57 | 7060 BCD60 55400,55410,55571,55610,55632,55714,56047,56420,56441,56476,56633,57644,64012,64022,64120,65143,55050 | 55061,55067 | 7061 BCD61 7062 BCD62 | 7063 BCD63 | 7064 BCD64 | 7065 BCD65 | 7066 BCD66 65017 7067 BCD67 54412 | 7070 BCD70 55107,55114,55200,56043,57274,57334,57603,61314,61321,61760,62211,63177,63270,63447,64210,64235,64431 | 64434,66261 | 7071 BCD71 64320 | 7072 BCD72 7073 BCD73 | 7074 BCD74 56054,66572,52704 | 1 LISTING OF 12/01/64 PAGE 8 | POST PROCESSOR ASSEMBLY DATA | 7075 BCD75 | 7076 BCD76 60452,61652,64122 | 7077 BCD77 36416,36466,61427,61440,62030,62335,63223,63346,66176 | 36560 BCDBI 36603 | 4712 BCOMD 0,56024 61372 BINSW | 6674 BLANK 7001,55063,55417,56772,57023,57031,57042,57050,57454,60153,60163,60250,61647,62116,62734,63610,63652 | 63672,63746,65204,65571,65605,65654,65667,65710,65743,66055,66074,66117,66330,66534,66562 | 36754 BLCON 64043 | 7001 BLNKS 34752,57356,57362,57622,57650,60061,60277,61417,61430,61441,61447,61555,61575,62031,62060,63224,63244 66205,66537,56352,56606 | 66466 C00XX 66616 | 57710 C1010 57031,60051,60177,60244,60332,60503,60534 | 57721 C1050 57717,57725,57752 | 57726 C1100 57713,57721 57757 C1160 57710,57727,57754 | 57760 C1170 57711 | 57762 C5010 57726,57755 | 60002 C5150 60010 | 60014 C5250 60003,60527,60542 60022 C5310 60013 | 60023 C5320 57762,60030 | 60024 C5330 57763 | 60026 C5360 57770,57772,57777,60526,60541 | 7350 CALCD 61532,61604 34502 CALTB 33267,22660,34503,55465,55473,55476,55506,55507,55511,56742,63072,63116,65200,65212,65247,65475,65522 | 65523,65525,65531,65532 | 7161 CARDA 60755,60760,61263,61415,62274,62505,63062,63267 | 7173 CARDS 7244,55135,55336,55342,55343,55416,55435,55443,55445,55460,55525,55551,56363,56371,56622,56630,56653 | 60714,63421,63453,63464,63473,63506,63573,63606,63641,63650,63670,63711,63731,63744,64001,64101,64140 64164,64216 | 7261 CAUNT 63423,64371,64376,64402,64554 | 61405 CBCTR 61400,61403,63536,63540,65157 | 66470 CBNBF 66302 | 22742 CBTBL 60703,61374,61376,61377,61402,63076,63511,63520,63534,65162,65164,65167,65170,65171,40717 35444 CC020 | 35454 CC080 35514 | 35456 CC090 35511 | 35463 CC098 35461 | 35472 CC100 35457 35504 CC105 35502 | 35507 CC110 35474 | 35511 CC115 35452 | 35516 CC120 35441,35450 | 35517 CC121 35442 35520 CC122 35444,35505 | 35522 CC123 35443,35515 | 40623 CC410 40716 | 40637 CC419 40633,40635 | 40645 CC420 40632 40647 CC422 40626 | 40650 CC440 40614,40636,40667,40715 | 40651 CC442 | 40671 CC444 40654,40664,40666 | 40700 CC450 40705,40711 1 LISTING OF 12/01/64 PAGE 9 | POST PROCESSOR ASSEMBLY DATA | | 40707 CC460 40703 | 40712 CC470 40674,40706 40713 CC471 40675 | 40715 CC480 52707 | 35126 CCBUF 35436,35437,35440 | 35437 CCCMD 35473,35476,35501 | 4405 CCEND 7424 40674 CCNPD 40607,52605,52766,53027,53036,53154,53346,53412,53642,53704,53722,53736,53743,56647,56654 | 40614 CCPSD 40612,52603,52764,53031,53042,53410,56426 | 144 CCSZE 35126,35127,35272,35273,35436,35440,35454,35506 | 4402 CCULC 7424,35455,35477,35504,35512,40246 | 61467 CFYSW 55164,55221,55256,55320,55365,55536,55545,55555 5630 CLIST 0,75054,75071, 7550,34520,34521,56700,57007,57211,60434,65364,52472,52567 | 6260 CLOSE 0, 7672 | 61420 CNDSW 56304,56306,57167,57171 | 26127 CNINS 37140,63104,66420,66427,66714,66732,66734,66736,56446,56452,56453,56454 | 66467 CNMSK 66615 22033 CNRLC 22037,63125,66003,66657,66737,66741 | 24156 CNSYM 63102,66002,66005,66431,66433,66434,66644,66651,66654,66656,66660,57003 | 61421 CNTSW 57056,60044,60205,60211 | 57772 COD44 57277,57642,57643,57645,57704 | 65426 COD72 65022 7504 COMDS 65631,65632,65663 | 6707 COMMA 7001,65724,65744,66073,66120,66533 | 36753 CONBL 62672 | 7262 CONTR 60711,61641,63133,63424,63631,63644,63700,63702,63767,63776,64032,64124,64144,64152,64154,64172,64231 | 64300,64304,64313,64317,64362,64366,64372,64465,64524,64551,64552,64564,64566 73062 CONV1 73052 | 73105 CONV2 73044 | 73107 CONV3 73047 | 73110 CONV4 73050,73062 | 73111 CONV5 73076 73112 CONV6 73100 | 73113 CONV7 73102 | 61423 CONVT 57054,60175,60445,60663,60705,61072 | 65425 CORSW 65215,65242,65251,65265,65275 | 7263 COUNT 61030,61050,61143,61150,62740,62742,63165,63233,63235,63257,63260,63422,63600,63614,63616,63656,63663 64157,64162,64203,64205,64505,64507,64513,64515,64553 | 73543 CQTRG 73476,73512,73543,73544,73545,73546,73547,73550,73551,73552,73553,73554 | 55010 CT010 55030 | 55011 CT020 54767 | 55012 CT021 54770 55013 CT030 55020 | 55023 CT040 55015 | 55027 CT050 55005 | 55031 CT900 54771,55025 | 55032 CT901 54773,55021 55033 CT902 54775 | 55034 CT903 54776,54777 | 61425 CTBL1 | 61426 CTBL2 | 54767 CTEST 56057,56726,56732,57021,57027,57040,57046,57132,57136,57220,57303,57312,57337,57726,60075,60151,60155 60161,60233,60246,60331,63142,65432,65536,65567,65602,65652,65665,65706,65722,65732,65741,66030,66053 | 66071,66115,66140,66324,66342,66443,66516,66522,66527,66550,66560 | 63141 CTG01 66445 | 1 LISTING OF 12/01/64 PAGE 10 | POST PROCESSOR ASSEMBLY DATA | 63153 CTG04 63144 | 63262 CTG11 63254 | 63203 CTG12 63202,63213,63273 | 63164 CTG13 61461,61463,61472,61651,61656,63156 63172 CTG21 63175 | 63213 CTG26 63204 | 63220 CTG30 63240 | 63237 CTG40 63226 | 63274 CTG50 63266 63305 CTG99 63211 | 60031 D0011 57256,57260,57262 | 60033 D1010 | 60045 D2070 | 60052 D9010 57410,57454,57527,60215,60303,60562,60744,60767,61125 60063 D9150 57411,57455,57530,60216,60304,60413,60563,60745,60770,61126 | 60073 D9230 57417,57471,57474,57512,57522,60100,60236,60250,60254,60260,60263,60310,60313,60336,60423,60453,60461 | 60472,60475,60506,60552,60610,60621,60624,60632,60635,60643,60740,60762,61005,61131 | 60103 D9350 | 60112 D9360 60451,60457,60547,60575,60735 7100 DBL02 56571,56613 | 6764 DCRM1 56672,57760,57767,61520,61750,62134,63553,63634,64130,65021,54404 | 6765 DCRM2 57617,64777 | 6766 DCRM3 60044,55104 | 6767 DCRM4 6770 DCRM5 55662 | 6771 DCRM6 | 6772 DCRM7 | 6773 DCRM8 | 6774 DCRM9 5134 DDEAD 0,34527,65401 | 34716 DEBSW 34553,57611,64771,65321,40651 | 17551 DEXIF 0,73004 | 34502 DICTM 60217,60220,60225,60230,60312,60343,60345,60351,60362,60363,60373,60374,60375,60376,60444,60451,60453 | 60466,60470,60471,60472,60500,60501,60611 56106 DP000 100 | 56123 DP006 56140,56151,56153 | 56126 DP008 56200 | 56133 DP010 56125 | 56141 DP012 56137,56216 56152 DP013 56146 | 56154 DP014 56143 | 56173 DP015 56162,56164 | 56175 DP016 56211,56221 | 56201 DP018 56177 56217 DP020 56206 | 56222 DP028 56111 | 56227 DP030 56127,56132 | 56304 DP040 56113 | 56305 DP045 56115 56306 DP050 56117 | 56307 DP100 55735,56217,60304 | 56345 DP150 55666 | 56372 DP154 56366 | 56400 DP160 56344 56411 DP190 56307,56345 | 1 LISTING OF 12/01/64 PAGE 11 | POST PROCESSOR ASSEMBLY DATA | | 56412 DP191 56310,56346 56413 DP192 56311,56347 | 56415 DP200 56173 | 56432 DP290 56415 | 56433 DP291 56416 | 56434 DP292 56417 56436 DP300 55660,56174,56226,56670,57466 | 56440 DP302 56445 | 56454 DP304 56444 | 56462 DP310 56447 | 56471 DP340 56436,56453,56461 56473 DP350 60572 | 56475 DP352 56502 | 56511 DP354 56501 | 56517 DP360 56504 | 56526 DP390 56473,56510,56516 56530 DP400 55736,56220 | 56532 DP402 56562 | 56547 DP410 56535 | 56563 DP430 56533 | 56573 DP440 56530,56546 56574 DP441 56531 | 56576 DP450 60305,60514 | 56605 DP460 56600 | 56615 DP490 56576,56604 | 56617 DP500 61471,61517 56632 DP510 56625,56637 | 56655 DP512 56643 | 56661 DP520 56645 | 56670 DP522 56660 | 56672 DP530 56635 56674 DP540 56617,56631,56654 | 56675 DP541 56620 | 56676 DP542 56621 | 56274 DPBIT 55535,55536,55541,55776,56010,56323,56361,56404,60416,60437,60457,60506,60516,60522,60526,60531,60536 | 62356,62446,62451,62475,62576,62621 56231 DPBUF 56265,56267 | 56266 DPCMD 55676,55703,55722,55725,56124,56133,56165,56176,56201 | 56303 DPRMP 57531,57532,57543,57713,57717,57721 | 56270 DPSW1 | 56271 DPSW2 55352,55640,55664,56107,56112,56644,63500 56272 DPSW3 56126,56152,56227 | 21147 DSIEM 55631,55661,55663,55733,56120,56212,56446,56462,56465,56467,56632,56636,56671,56673,65072,65073,65100 | 14404 DSIFL 55732,56116,56213,56215,56466,56470,56534,56550,56556,56570,56572 | 14403 DSIFM 55672,56114,56532,56554,56560,56563,56565,56567 | 21770 DSOEM 55607,55614,55626,56503,56517,56522,56524,60026,60030,65116,65123,65142 20326 DSOFL 56523,56525,56612,56614,60035,60427 | 20325 DSOFM 20327,56577,56605,56607,56611,60021,60023 | 55604 DTS01 55573,55577 | 55607 DTS02 55615 | 55626 DTS04 55613 55630 DTS06 55605 | 55631 DTS08 55637 | 55640 DTS10 55633 | 55652 DTS12 55641 | 1 LISTING OF 12/01/64 PAGE 12 POST PROCESSOR ASSEMBLY DATA | | 55662 DTS14 55636 | 55670 DTS20 55665 | 55672 DTS22 55675 DTS24 55707,55711,55716,55720 | 55700 DTS25 55724 | 55703 DTS26 55677 | 55712 DTS28 55710 | 55721 DTS30 55717,55737 55725 DTS32 55723 | 55732 DTS33 | 55735 DTS34 55731 | 55740 DTS46 55627,55671,55734 | 55743 DTS50 55741,55746,55755 55753 DTS52 55603,55625,55651,55702 | 55755 DTS54 55745 | 55757 DTS56 55667,55754 | 55760 DTS57 55566 | 55761 DTS58 55567 55762 DTS59 55565 | 55771 DTS60 55523,55757 | 56006 DTS70 55557 | 56017 DTSRT 55572,55611,55616,55634,55642,55652,55715 | 60127 E1010 57222,60032,60036,60040,60043,61073 60137 E1140 | 60147 E1150 60140 | 60176 E1270 60143,60162 | 60200 E1560 60047 | 60213 E2010 60133 60223 E2110 60221 | 60232 E2140 | 60237 E2180 60234,60241 | 60243 E2220 60222 | 60253 E2290 60257 60275 E2390 60242,60272 | 60300 E2400 60136 | 60305 E2580 | 60331 E2730 60327 | 60336 E2780 60341 60342 E2850 60330 | 60344 E2860 60214,60302 | 60360 E2990 60345 | 60404 E3018 60375 | 60410 E3020 60403 60423 E3070 60421,60426 | 60457 E3300 60450 | 60475 E3330 60436,60514 | 60502 E3360 | 60512 E3420 60444 60515 E3450 60437,60456 | 60523 E3510 60532 | 60531 E3540 60520 | 60533 E3560 60530 | 60551 E3604 60555 60556 E3650 60511,60640 | 60567 E3710 60616,60627 | 1 LISTING OF 12/01/64 PAGE 13 | POST PROCESSOR ASSEMBLY DATA | 60570 E3720 60505,60535,60605,60617,60630 | 60600 E3750 60566 | 60610 E3800 60613 | 60617 E3870 60603 | 60630 E3930 60546 60641 E3952 60653 | 60647 E4010 60146,60157,60206,60277,60343 | 60655 E4070 60347,60351,60557,60561,60642,60646,60651 | 60674 E4210 60664,60667,60704,60706,60711,60724 | 60677 E4230 60662 60725 E4700 60676 | 60730 E4730 61025 | 60737 E4740 60732 | 60740 E4742 60743 | 60741 E4744 60734 60744 E4750 60357,60731 | 60752 E4754 60573 | 60762 E4768 60765 | 61001 E4780 60577,60756,60757,61000 | 61005 E4782 61010 61006 E4784 61004 | 61012 E4830 60726 | 61024 E4920 61017 | 61026 E4940 61013 | 61037 E4960 61027 61051 E4980 61044 | 61053 E4984 61041,61042 | 61056 E4990 61054 | 61057 E5010 60212,60657,61011,61052 | 61074 E5120 61060 61111 E5152 61120 | 61135 E5192 61111 | 61140 E5198 61136 | 36733 E6215 62252 | 61501 E8064 52746,52756,53015,53370,53401,55566 61502 E8066 52750,53414,53416 | 61515 E8190 57104,57217,57225,57452 | 61516 E8200 | 61517 E8210 57127 | 61520 E8220 53570 61521 E8230 54520 | 61522 E8240 54522 | 61523 E8250 53632,54524 | 61524 E8260 54516 | 61531 E8280 60115,60125,61030,61036 61532 E8290 57116,57376,60372 | 61533 E8298 62124 | 61534 E8299 | 61535 E8300 60316 | 61536 E8310 53443 61537 E8320 53574 | 61540 E8325 53463 | 61541 E8360 | 61542 E8365 | 61543 E8370 1 LISTING OF 12/01/64 PAGE 14 | POST PROCESSOR ASSEMBLY DATA | | 61544 E8375 | 61545 E8380 61546 E8381 62413 | 36752 EDD06 | 6624 EIGHT 63621 | 52351 EMIT2 53622,57257 | 54630 ENDP3 56714,56717 35007 ENDTP 35503,36147,54646,60067,60623,60634,60645,65246,65320,66761,40577 | 17005 EOJOB 0,75050 | 7425 EOJSW 56021,56027,56032,56755,57016,63126,65342,66441,52617 | 7424 EOPSW 56026,56033,56076,56754,57015 | 5526 EOTSW 0 6627 EQUAL 7001,61454,61561,66524,40473 | 62227 ER001 | 62235 ER002 | 62241 ER003 | 34526 ER090 34503,34505 34530 ER100 34511 | 34531 ER101 34513,34515 | 34532 ER102 34516 | 34533 ER103 34523,34525,57252,57745,60666 | 34543 ER104 56172 34546 ER105 57166,66156,40357,55101,56360,56614,56716 | 37621 ERM01 | 37625 ERM02 64711,64715 | 37632 ERM03 55142,55144,55146 | 37645 ERM04 66210,66212 37655 ERM05 55442 | 37662 ERM06 64141,64143 | 37667 ERM07 66213 | 37717 ERM11 56736 | 37722 ERM12 57142 37725 ERM13 57014 | 37734 ERM14 57120 | 37740 ERM15 57035 | 37745 ERM16 57232,57735,63150 | 37750 ERM17 57316,57343 37753 ERM18 57070 | 37757 ERM20 36710 | 37766 ERM21 62751 | 40000 ERM22 62756 | 40012 ERM23 62763 40024 ERM24 55457,62770 | 40034 ERM25 62775 | 40046 ERM26 63002 | 40060 ERM27 63007 | 40072 ERM28 63014 40104 ERM29 55213,55232,63021 | 40120 ERM30 63027 | 40132 ERM31 63035 | 40144 ERM32 55575,56627,63042,63463,64222 | 40156 ERM33 61542,61544 40167 ERM34 63206,63210 | 40176 ERM35 55252,55254 | 40203 ERM36 60201 | 1 LISTING OF 12/01/64 PAGE 15 | POST PROCESSOR ASSEMBLY DATA | 40211 ERM37 60206 | 40221 ERM38 56370,63047 | 40227 ERM40 60175 | 40235 ERM42 63514 40702 ERM43 64624,64626,64650,64652 | 40243 ERM44 56451 | 40252 ERM45 55644,55646,56650,56652 | 40256 ERM46 55620,55622 | 40262 ERM47 55701,56131 40267 ERM48 56540,56544 | 40275 ERM49 55747,55751,56542,56545,60324,60326 | 40301 ERM50 | 40307 ERM51 | 40313 ERM52 56150,60103,60241,60337 40320 ERM53 56452,56507,56603 | 40323 ERM54 56455,56457 | 40331 ERM55 56460,56515,60372 | 40336 ERM56 | 40345 ERM57 56506,60143 40354 ERM58 56602 | 40363 ERM59 56512,56514 | 40371 ERM60 65445 | 40376 ERM61 65503,65505 | 40405 ERM62 65436,65544 40411 ERM63 | 40416 ERM64 55366,55371,55501,55504,66247,66252 | 40422 ERM65 65644 | 40426 ERM66 66171,66173,66175 | 40434 ERM69 66042 40440 ERM70 66126 | 40444 ERM72 66104 | 40447 ERM74 65511,66154 | 40453 ERM75 65626 | 40461 ERM76 66662,66664 40466 ERM77 65205,65207 | 40474 ERM79 | 40501 ERM80 57431,57515 | 40505 ERM81 | 40512 ERM82 66251 40521 ERM83 55370 | 40530 ERM84 57525 | 40536 ERM85 57574,60141 | 40545 ERM86 55503 | 66213 ERM88 66201 ERM89 | 40554 ERM90 54672,54741,55126,55173,55241,55601,55623,55647,57104,57121,60144,61545,63515,64224,65210,65513,66044 | 66106,66130,66253,66666,66720 | 40560 ERM91 57102 | 40565 ERM92 57241,60003 40573 ERM93 57242 | 40576 ERM94 60004 | 40601 ERM95 35057,35061,55230,55233 | 40610 ERM96 35062,55234,66214 | 40616 ERM97 65646 40622 ERM98 | 1 LISTING OF 12/01/64 PAGE 16 | POST PROCESSOR ASSEMBLY DATA | | 40630 ERMA1 60316,60320 40636 ERMA2 60370 | 40644 ERMA3 60270 | 40654 ERMA5 64744,64746 | 40663 ERMB1 55123,55125 | 40672 ERMB2 55170,55172 37710 ERMS8 | 64623 EROR6 64453,64455 | 64647 EROR7 64441 | 34503 ERROR 35060,35460,36633,36707,54670,54737,55124,55145,55171,55231,55240,55253,55367,55441,55456,55502,55574 | 55600,55621,55645,55700,55750,56130,56147,56167,56367,56450,56456,56505,56513,56543,56601,56626,56651 56735,57013,57034,57067,57101,57117,57141,57163,57231,57240,57250,57315,57342,57430,57471,57514,57524 | 57573,57734,57743,60002,60102,60132,60140,60174,60200,60205,60240,60267,60317,60325,60336,60367,60553 | 60664,61543,61712,62750,62755,62762,62767,62774,63001,63006,63013,63020,63026,63034,63041,63046,63053 | 63147,63207,63462,63513,64142,64221,64625,64643,64651,64657,64714,64745,65206,65311,65435,65444,65504 | 65510,65543,65625,65643,66041,66103,66125,66153,66172,66211,66250,66415,66663,66716,37650,37673,37710 40252,40355,40405,40454,40634,55077,56356,56612,56714,61135 | 34552 ERSWT 34506,34510,36706,54673,54742,55130,55174,55242,55602,55624,55650,55752,57105,57123,57167,60145,61540 | 62747,62754,62761,62766,62773,63000,63005,63012,63017,63025,63033,63040,63045,63052,63467,63516,64170 | 64630,64646,64654,64747,65211,65313,65366,65516,66045,66157,66667,66721,40254,40360,52735,53727,55102 | 56361,56615 21771 ERTBL 22037,54676,54677,56742,56765,57001,57010,57207,57212,57213,57215,57763,57766,57770,60701,61247,63070 | 65031,65033,65036,65155,65156,65176,66320,40717,52626,52770 | 7272 EWT10 | 7273 EWT12 57377,57441,57521,57540,57547 | 61745 F0185 61755 F0250 61747 | 61771 F0340 61761 | 61776 F0410 61715,62345,62355 | 61777 F0420 61716 | 62000 F0430 61717 62003 F0450 61766,61770 | 62014 F0540 62005 | 62033 F0700 62020 | 62044 F0860 | 62046 F0880 62012,62013 62060 F1000 62056,62063,62103,62105 | 62065 F1054 62053 | 62072 F1070 62011,62045 | 62106 F1200 61764 | 62125 F1275 62126 F1280 62120 | 62131 F1290 | 62133 F1300 | 62143 F1356 | 62164 F1520 62153 62200 F1720 62165 | 62224 F1880 62205 | 62227 F1900 62223,62242 | 62244 F2100 62201 | 62326 F2290 62376 62335 F2320 61775,62064,62071,62243 | 62356 F2350 62316,62321 | 62357 F2355 62410 | 62377 F2410 62370 | 1 LISTING OF 12/01/64 PAGE 17 POST PROCESSOR ASSEMBLY DATA | | 62411 F2600 | 62417 F2612 62435 | 62437 F2644 62421,62431 62443 F2668 62414,62436 | 62457 F2700 62447 | 62470 F2800 62456 | 62537 F3100 | 62543 F4100 62146 62555 F4200 | 62571 F4320 | 62575 F5001 61744 | 62616 F5170 | 62627 F5180 62652 F5190 | 62672 F5265 | 62721 F5300 | 62724 F5315 | 62743 F5385 62750 F5400 | 62776 F5505 | 63005 F5537 | 63007 F5540 | 63014 F5600 62203 63056 F5850 | 63106 F6000 62303 | 63115 F6090 | 63153 F6300 | 63224 F7200 62123 63226 F7220 62136 | 63231 F7300 | 20325 FFTBL 20327,55206,55211,55221,55223,55246,55251,55256,55257,55262,57266,57271,57522,57527,57533,57535,57537 | 57541,64706,64710,64717 | 4350 FIL00 0 22027 FILNO 22037,57062,57112,57113,60036,60604,52671,52677 | 5646 FLIST 0, 7552,34524,34747,34756,56066,65377,40665 | 65430 FMASK 64332 | 34025 FNTBL 55356,55364,55373,55374,55376,55401,55403,55406,55412,55414,55421,63114,66163,66200,66215,66220,66244 | 66263 64751 FORSW | 66516 FSC10 | 66522 FSC20 66605 | 66527 FSC24 66535,66554 | 66536 FSC30 66531,66532,66533,66534,66606 66550 FSC32 66525 | 66555 FSC34 66524,66552 | 66560 FSC36 66564 | 66575 FSC37 66570 | 66576 FSC38 66555,66574 66577 FSC40 66540 | 66602 FSC50 66513,66546 | 66604 FSC60 66520,66521 | 66607 FSC90 66514,66544,66577,66604 | 66610 FSC91 66515,66601 66513 FSCAN 65714,65767,66016,66056,66101,66123 | 61217 FUOUT 61132,61205,61212,61237,61260,61341,61404,61640,63055 | 1 LISTING OF 12/01/64 PAGE 18 | POST PROCESSOR ASSEMBLY DATA | 73002 FX000 100 | 52426 FX100 | 52430 FX110 | 52437 FX150 52426 | 52440 FX151 52427 52442 FX199 | 52443 FX200 52611 | 52456 FX299 52607 | 52457 FX300 | 52473 FX310 52464,52466,52476,52500,52504 52474 FX320 52471 | 52503 FX390 52457,52474 | 52506 FX391 52460 | 52510 FX392 52477 | 52511 FX399 52513 FX400 | 63243 G0010 52755,53356,53426,53534,53551,53610,53617,53626,53654,53663,53672,53700,53732,57156 | 63257 G0080 | 63260 G0100 | 55050 GE110 55045 55051 GE112 | 55057 GE120 55043,55076 | 55061 GE122 55074 | 55072 GE126 55065 | 55077 GE128 55072 55100 GE130 55035 | 55101 GE131 55036 | 55102 GE132 55037 | 55104 GE900 55040,55067,55077 | 55105 GE901 55041,55066,55071 55035 GETVF 55335,55434,55444,55524,55550,56362,57146,57300,60541,61620,61661,63153,63452,63505,63572,63640,64163 | 64215,65467,66147 | 35024 GU008 35054 | 35027 GU010 35021,35025,35051 | 35032 GU018 35042,35043 35034 GU020 35041 | 35042 GU021 35033 | 35044 GU022 35034 | 35054 GU024 35020,35026,35046,35047 | 35063 GU030 35010,35056 35064 GU031 35011 | 35065 GU032 35012 | 35070 GU100 55225 | 35075 GU110 35105,35106 | 35077 GU112 35104 35105 GU130 35076 | 35107 GU140 35077 | 35110 GU150 35070 | 35111 GU151 35071 | 35121 GU199 35072,35116 35122 GU900 35013,35024,35073,55215 | 35123 GU901 35022,35053,35055,35066,35117,55216,55227,55235 | 35124 GU902 35023,35045,35050,35112,35115,55214 | 35125 GU903 35016,35030,35052 | 35010 GUESS 66177 1 LISTING OF 12/01/64 PAGE 19 | POST PROCESSOR ASSEMBLY DATA | | 65432 HC000 63146 | 65432 HC004 65451 65440 HC010 65434 | 65453 HC018 65552 | 65456 HC020 65443,65454 | 65474 HC022 | 65510 HC024 65472 65520 HC026 65500 | 65534 HC030 65507,65517,65546,66046,66160 | 65547 HC032 65540 | 65565 HC034 | 65567 HC036 65572 65576 HC038 65574 | 65577 HC060 65573 | 65602 HC062 65607 | 65611 HC070 65604,65605 | 65613 HC072 65616 65620 HC074 65623 | 65625 HC080 65611 | 65631 HC090 65610 | 65636 HC098 65624 | 65643 HC100 65656,65672 65650 HC110 65615 | 65657 HC112 65655 | 65663 HC120 65634 | 65665 HC122 65675 | 65673 HC124 65670 65676 HC126 65671 | 65701 HC130 65622 | 65704 HC132 65710 | 65711 HC134 65701,65704 | 65713 HC140 65726,66507 65717 HC142 65715 | 65726 HC144 65724 | 65727 HC150 65764,66505 | 65737 HC152 65734,65735 | 65741 HC154 65736,65754 65755 HC156 65743,65744 | 65766 HC170 66501 | 65767 HC172 66503 | 65776 HC173 65772 | 66007 HC174 66001 66015 HC176 65777,66006,66010 | 66016 HC190 66511 | 66025 HC192 66037 | 66027 HC194 66033 | 66036 HC196 66025 66041 HC200 65716,65747,65771,66020,66024,66032,66061,66322,66331,66354,66355,66356,66562,66563 | 66046 HC210 65725,65765,66015,66040,66077,66107,66131,66235,66254,66305,66414 | 66047 HC300 65630,65647,65654,65662,65667,65700 | 66051 HC302 66055 | 66056 HC304 66051,66075 66064 HC306 66057 | 66067 HC308 66064 | 66071 HC310 66063 | 1 LISTING OF 12/01/64 PAGE 20 | POST PROCESSOR ASSEMBLY DATA | 66076 HC320 66074,66100,66117,66122,66144 | 66100 HC330 66073 | 66103 HC332 66111,66121 | 66110 HC340 66102 66122 HC350 66120,66142,66143 | 66125 HC352 | 66132 HC360 66124 | 66145 HC400 66472 | 66147 HC402 66161 HC404 66152,66203 | 66204 HC406 66166 | 66215 HC410 66204 | 66220 HC412 66241,66243 | 66230 HC420 66234 66236 HC430 66217 | 66244 HC440 66242 | 66255 HC450 66246 | 66257 HC452 66272 | 66262 HC454 66266,66274 66306 HC500 66474 | 66312 HC510 66476 | 66315 HC520 66311 | 66322 HC530 66330 | 66332 HC540 66326,66352 66337 HC544 66362 | 66351 HC548 66327 | 66353 HC550 66346 | 66355 HC560 66350 | 66362 HC562 66344 66372 HC564 66366 | 66377 HC570 66364 | 66403 HC580 66400 | 66407 HC590 66376 | 66415 HC592 65450 66420 HC600 65535,65542 | 66425 HC602 66423 | 66431 HC604 66435 | 66436 HC605 65541,66422 | 66441 HC606 66437 66447 HC620 66416 | 56330 HC700 56336,56351,56373 | 56346 HC704 56375 | 56351 HC706 | 56365 HC709 56355,56357 56373 HC710 56350 | 56376 HC720 56333 | 56404 HC722 56377 | 56430 HC724 56417,56423 | 56435 HC726 56431 56437 HC730 56644 | 56440 HC732 56444 | 56446 HC742 56455 | 56455 HC744 56447,56451 | 56456 HC768 56471 HC770 56633 | 1 LISTING OF 12/01/64 PAGE 21 | POST PROCESSOR ASSEMBLY DATA | | 56500 HC771 56524,56604,56616 56503 HC772 56475 | 56507 HC773 56477 | 56525 HC774 56517 | 56537 HC775 | 56545 HC776 56527,56541 56556 HC777 56544,56553 | 56601 HC778 56565,56573 | 56626 HC779 56512 | 56632 HC780 56461,56506 | 56642 HC782 56636 56645 HC784 56641 | 56662 HC788 56653 | 56663 HC789 56660 | 56664 HC790 56401 | 56665 HC791 56432 56666 HC792 56434 | 56672 HC793 56715 | 56704 HC794 56730 | 56705 HC795 56737 | 56706 HC796 56526,56540 56712 HC840 56402 | 56720 HC842 56713 | 56741 HC850 56323,56324,56325,56364,56646,56661,56717 | 56750 HC860 56334,56346,56525,56537,56634 | 56755 HC862 56751 66457 HC900 65562,66316,66334,66371,66402,66406,66411 | 66460 HC901 65563,66340,66361,66372,66374,66403,66405 | 66461 HC902 65564,66317,66347,66353,66365,66377 | 66462 HC903 66306,66312,66363 | 10015 HCANA 36473 10017 HCANS 66370 | 10021 HCARS 36461 | 26130 HCBUF 36773,36775,63106,65466,66765,66767,52621,56465,56550,56563,56711 | 10027 HCCAL 66307 | 10037 HCCLA 66270 36771 HCCMD 66751,66754,66757,56335,56347,56457,56635 | 22035 HCCNT 22037 | 10063 HCERA 36503 | 56323 HCGET 52345,53067,53162,57214 | 32055 HCINS 36774,63112,65463,66436,66677,66703,66705,66707,66752,66771,52621,56471,56473,56511,56513,56601,56605 26132 HCIPT 65515,65524,66236,66260,56411,56416,56735 | 10141 HCLDI 66313 | 26131 HCNAM 65514,65520,56331,56374,56545,56643,56733 | 10215 HCONT 66314,66401 | 10221 HCORS 66310 66677 HCP10 66702 | 66703 HCP20 66700 | 66714 HCP30 66676 | 66723 HCP38 66717 | 66732 HCP40 66715 66742 HCP50 66674,66713,66722 | 66611 HCPSD 65575 | 10245 HCPSE | 66674 HCPUT 65721,65762,65774,66035,66076,66232,66277,66304,66410,66413 | 1 LISTING OF 12/01/64 PAGE 22 POST PROCESSOR ASSEMBLY DATA | | 22036 HCRDS 22037,66762,66764 | 65431 HCRLC 65464,66012,66636,66710,66712 | 66623 HCS10 66626,66627 66633 HCS20 66631 | 66641 HCS30 66617 | 66644 HCS40 66647,66650 | 66654 HCS50 66652 | 66662 HCS60 66625,66646 66670 HCS70 66611,66612,66613,66640,66661 | 10337 HCSTO 66300 | 7375 HCSW1 65553,65755,65763,57221,57227,60137,60213,60344,60703 | 7376 HCSW2 65554,66000,66641,66675,57055,60356,60746,60771 | 66463 HCSW3 65555,65766,65776 66464 HCSW4 65556 | 66465 HCSW5 65557,66007,66620 | 56760 HCSW7 56744,56746,57213 | 56761 HCSW8 56376 | 56762 HCSW9 56430,56645 30104 HCSYM 36772,63110,65453,65457,65460,66011,66014,66623,66630,66633,66635,66637,66747,56440,56442,56443,56557 | 56561,56753,56776 | 56763 HCTMP 56405,56436,56441,56462,56464,56551,56560,56564 | 66756 HCW30 | 66772 HCW40 66746,66755 37141 HCWD1 65560,65651,65657,65661,65664,65674,65677,65717,65760,66034,66067,66070,66114,66136,66137,66231,66271 | 66276,66301,66315,66333,66375,66412,66704,66733,56472,56500,56501,56505,56631,57026 | 37142 HCWD2 65561,65720,65761,66060,66062,66226,66273,66303,66407,66706,66735,56474,56626 | 37143 HCWD3 65731,65751,65753 | 66746 HCWRT 65455,66440,66701 61430 HTLID 57457,60055,60101,60103,60112,60231,60363,60367,60401,60405,60412,60751,60774,61130 | 61431 HTLIM 60076 | 40231 IC020 | 40242 IC080 40307,40314,40567,40600 | 40243 IC090 40313 40256 IC094 40253 | 40264 IC095 40251 | 40270 IC100 40241,40327,40340,40374,40403 | 40302 IC110 40273,40274,40326,40342,40410,40426,40443 | 40312 IC120 40306 40315 IC121 40227,40236,40361 | 40316 IC122 40230 | 40317 IC123 40231,40344 | 40323 IC130 40301 | 40325 IC140 40300 40327 IC160 40277 | 40333 IC162 40336 | 40340 IC164 40335 | 40343 IC166 40331,40376 | 40362 IC168 40343,40354,40356 40374 IC170 40276,40337 | 40411 IC173 40407,40456 | 40415 IC174 40406,40455 | 40422 IC175 40400,40404 | 40427 IC200 40275 40433 IC205 40430,40437,40441 | 40444 IC210 40433 | 1 LISTING OF 12/01/64 PAGE 23 | POST PROCESSOR ASSEMBLY DATA | 40445 IC300 53310,53311,54553,56310,57173 | 40461 IC310 40445,40453,40457 | 40463 IC312 40447 | 40465 IC320 40450,40462 | 40466 IC400 40330,40375,56507 40500 IC420 40466,40476 | 40565 IC500 36102,40310 | 40600 IC510 40570,40576 | 40601 IC520 40565 | 40602 IC521 40566 40604 IC600 | 40611 IC620 40604 | 40501 IC900 40267,40312 | 4404 ICBNG 7424 | 37714 ICBUF 40224,40225,40226 40225 ICCMD 40245,40271,40302,40573,40575 | 20326 ICNPD 36073,36110,36113,36115,36116,36120,36121,36122,36123,36124,36125,36127,40377,40402,40422,40424,40425 | 40446,40452,40463,40700,40704,40710,52576,52600,53322,53324,53326,53330,54554,54556,54560,54561,54564 | 56312,56314,57200,57202 | 36740 ICOM1 62506,62526 36741 ICOM6 62527 | 14404 ICPSD 40333,40341,40620,40624,40627,40631,40645,40646,40647,52572,52574,56421,57016 | 40564 ICSRT 40427,40434,40442 | 144 ICSZE 37714,37715,40060,40061,40224,40226,40306 | 40613 ICTEM 40432,40436 4401 ICULC 7424,35456,40243,40303,40305,40320,40325,40423,40617,40707,52555,54562,56311,56315,56435,56520,56522 | 57153,57155,57157,57161,57174,57203 | 4662 IND01 0 | 4663 IND02 0 | 4664 IND03 0 16057 INOUT 0 | 16174 INPUT 0,52447 | 61433 IPAD1 62055 | 61434 IPAD2 62102 | 7101 K1717 36562 36743 KBLNK 60171 | 65452 KCALC 65441,65550 | 54514 KEMIT 61767 | 61525 KEY1A | 61526 KEY2A 61527 KEY2B | 61436 KEY30 | 61435 KEY31 57516 | 61530 KEY3B | 6553 KME70 0 7260 LDTBL 64413,64415,64420,64471,64546,64615,64617,64621 | 7274 LFNBR 57275,57335,57534,57577,57700 | 22657 LFTBL 22660,55113,55120,55132,55137,55143,55161,55165,55177,56746,57571,57576,57601,57604,57610,57615,60136 | 60147,60165,60172,60212,60702,61272,61304,61310,61320,61330,61331,63072,64433,64446,64723,64730,64731 | 64735,64737,64740,64751,64752,64753,64754,64755,64756,64757,64764,64770,64775,65001,65004,65007,65014 65034,65042,65055,40717 | 36744 LFTEQ | 61441 LINED 57767 | 61442 LINEH 60131 | 61443 LINET 60134,60325,61104 1 LISTING OF 12/01/64 PAGE 24 | POST PROCESSOR ASSEMBLY DATA | | 61444 LOCCN | 34501 LTTBL 52262 7355 LVCNT 62001,62020,62022,62052,62054,62065 | 65427 LVCTR 64314 | 4672 LZERO 0,73045,73654,73705, 7560, 7562, 7564, 7566, 7570, 7572, 7574, 7576, 7600, 7602, 7604,52362,52402 | 52435,52445,52452,61222,61462,61521,61522,61523 | 36073 MA110 36126 36106 MA112 36101 | 36107 MA114 | 36111 MA120 36100 | 36120 MA130 36075 | 36125 MA134 36117 36130 MA140 36066,36067,36070,36104 | 36134 MA200 36105 | 36154 MA220 36134,36142 | 36323 MABUF 36077,36111,36112,36114,36140,36151,36153,36324 | 36324 MACMD 36145 66477 MACRO 65636,65637,65641 | 61447 MAD1A 57300,57551,57615,57653,62033,62152,62204,62263 | 61451 MAD2A 57350,57552,57705,62017,62164 | 36066 MAPUT 40401,40451 | 61445 MASKA 54352,54355 57776 MAXLL 57371,57720 | 72633 MAXRL 60606,60607 | 35543 MC090 35531 | 35550 MC100 35534 | 35551 MC120 35523 35552 MC121 35524 | 35553 MC122 35525 | 6654 MINUS 7001,36502,36620,56777,57003,61654,65735,66143,66520,66531 | 36065 MSKTB 35532,35536,35541,35542,35547,35550 | 61573 N0030 61601 61567 N0032 61562,61564 | 61601 N0040 61551,61557,61577 | 61460 N0051 61455,61457 | 61465 N0053 61571,61572 | 61473 N0060 61456 61505 N0070 61504,61506 | 61532 N0100 61537 | 61603 N0110 61536 | 61625 N0120 | 61627 N0130 61624 61637 N0140 | 5505 NDSRT 0,54637,54653,54655,54660,60015,60071,60073,60646,65232,65234,65336,65340,65345,65353,65362,56337 | 56341,56362,56530,56532,56542,56570,56637 | 17334 NEWRD 0 | 5642 NLIST 0, 7554,34522,56064,65375 61615 NPCRQ | 74255 NPTBL 74033,74034,74045,74046,74062,74121,74160,74217,74254,74255,74256,74257,74260,74261,74262,74263,74264 | 74265,74266,61607 | 7377 NTCMD 56344,56535,56575 | 4400 OBJL1 0 4401 OBJL2 0, 7424,56713,56720 | 4402 OBJL3 0, 7424,56722 | 4403 OBJL4 0 | 1 LISTING OF 12/01/64 PAGE 25 | POST PROCESSOR ASSEMBLY DATA | 4404 OBJL5 0, 7424,56721 | 4405 OBJL6 0, 7424,56723 | 10462 OPCDS 10463,65612,65613,65650 | 16555 OUTPT 0,52433 56700 P1A00 56230 | 56703 P1A02 56712 | 56711 P1A04 56705 | 56724 P1A10 56740 | 56726 P1A11 65343 56732 P1A12 56730 | 56735 P1A14 56731 | 56741 P1A16 56734 | 57011 P1A20 | 57020 P1A22 57012 57025 P1A24 57032,57077,57107,57115 | 57027 P1A26 57023 | 57034 P1A28 57031 | 57037 P1A32 57033 | 57044 P1A34 57026,57042 57046 P1A36 57053,57066 | 57066 P1A38 57050 | 57074 P1A40 57052,57064 | 57077 P1A42 57051 | 57106 P1A44 57100 57107 P1A46 57076 | 57112 P1A50 57065,57073 | 57117 P1A52 57060 | 57124 P1A54 57116 | 57130 P1A60 57144 57136 P1A62 57134 | 57141 P1A64 57135 | 57145 P1A66 57140 | 57171 P1A68 57160,57162,57164 | 57205 P1A70 57157,57170 57216 P1A80 57222,57234 | 57235 P1A82 57225,57226,57227 | 57245 P1A84 57237 | 57247 P1A90 56725,57131,57217 | 57253 P1A92 57247 57255 P1A93 57251 | 57265 P1B00 57246 | 57273 P1B01 57765,57771 | 57323 P1B02 57314 | 57331 P1B04 57352 57345 P1B06 57341 | 57356 P1B08 57336 | 57361 P1B10 57355 | 57402 P1B12 57405,57554,57561,57565,57566 | 57416 P1B14 57411 57422 P1B16 57413 | 57430 P1B18 57425,57437 | 57434 P1B20 57427 | 57444 P1B22 57433 | 57446 P1B24 57422,57560 57451 P1B26 57445 | 1 LISTING OF 12/01/64 PAGE 26 | POST PROCESSOR ASSEMBLY DATA | | 57456 P1B28 57305 57471 P1B29 57456 | 57503 P1B30 57415,57570 | 57514 P1B32 57510 | 57520 P1B34 57513 | 57522 P1B36 57505,57512 57527 P1B38 57523 | 57544 P1B40 57526 | 57555 P1B42 57551 | 57556 P1B52 57407,57455 | 57565 P1B54 57567 P1B60 | 57576 P1B62 57572 | 57621 P1B70 57575,57612 | 57624 P1B72 57640 | 57640 P1B74 57626 57642 P1B76 57632,57633 | 57644 P1B78 57637 | 57647 P1B80 | 57651 P1B82 57653 | 57667 P1B84 57657,57663 57676 P1B88 57675 | 57707 P1B89 57641 | 57726 P1B90 57272,57322,57741 | 57742 P1B92 57321,57332,57354,57740 | 57746 P1B94 57742 57750 P1B95 57744 | 57760 P1B96 57730 | 57762 P1B97 57731 | 57766 P1B98 57732 | 67304 P1END 37621 P1ORG 67304 | 52554 P2000 100 | 52613 P2002 52566 | 52622 P2006 | 52626 P2008 52624 52636 P2010 52632 | 52645 P2012 52641 | 52677 P2020 | 52720 P2110 52715 | 52726 P2120 52711,52716,52721 52737 P2130 52730,52732 | 52744 P2132 52740,52742 | 52745 P2134 52741 | 52752 P2140 52723,52754 | 52765 P2142 52762 52767 P2144 52763,53417 | 53332 P2A06 53305 | 53334 P2A08 53302 | 52774 P2A0H 52743,53765 | 53037 P2A0I 53004 53043 P2A0J 53005,53041 | 53071 P2A0L 53066 | 53100 P2A0M 53074 | 53110 P2A0N 53105 | 1 LISTING OF 12/01/64 PAGE 27 POST PROCESSOR ASSEMBLY DATA | | 53135 P2A0O 53106,53107,53121,53135,53222,53223 | 53151 P2A0P 53134 | 53156 P2A0Q 53164 P2A0R 53161 | 53172 P2A0S 53166,53167 | 53200 P2A0T 53173 | 53206 P2A0U 53201 | 53212 P2A0V 53207 53226 P2A0W 53133,53165 | 53273 P2A0X 53266 | 53301 P2A0Y 53274 | 53305 P2A0Z 52745,53334 | 53335 P2A10 53262 53343 P2A11 53340 | 53350 P2A12 | 53361 P2A13 | 53365 P2A14 52751,53006,53007,53362,53402,53403,55707 | 53426 P2A15 53423,53447,53716 53450 P2A16 | 53506 P2A17 53457 | 53516 P2A18 53434,53453,53502 | 53535 P2A19 | 53551 P2A1A 53432,53433,53435,53437,53540,53546 53556 P2A1B 53552 | 53617 P2A1C 53614 | 53646 P2A1D 53555,53557,53561 | 53663 P2A1E 53660 | 53673 P2A1F 53700 P2A1G 52747,52757,52771,52773,54001 | 53731 P2A1H 52717,53715 | 53751 P2A1I 53724 | 53762 P2A1J 53747,53750 | 53772 P2A1K 53746,53762 22657 P2AA0 40717,52261,52647,52654,54341,54354,54367,54424,54472,54507,54531,61100,61101,61107,61112,61121 | 22742 P2AA1 40717,52655,52662 | 21771 P2AA2 40717,53110,53122,53136,53427,53440,53446,53450,53462,53470,53476,53556,53560,53565,54051,54162,54414 | 54427,54454,54475,54504,54536,54605,54621,55617,55634 | 7162 P2AA3 40717,52720,52775,53045,53063,53071,53100,53116,53156,53170,53176,53204,53246,53263,53271,53277,53335 53350,53357,53420,53527,53535,53543,53602,53611,53620,53646,53655,53664,53706,53764,53774,54007,54014 | 54022,54350,54635,54643,54644,54646,54647,54655,54656,54657,54661,54662,54663,54676,54677,54700,54701 | 54727,54755,55047,55060,55107,55132,55134,55137,55141,55161,55212,55301,55314,55354,55505,55567,55576 | 55601,55726,55767,55776,56200,56330,56400,56546,56642,56721,56723,56725,57734,57773 | 52251 P2AA4 52777,53016,53017,53020,53057,53062,53150,53306,53312,53314,53315,53317,53321,53325,53331,53526,53645 54601,54615,55111,55114,55117 | 51543 P2AA5 52614,53237,53243,53245,53250,53254,53256,55735,55737,55744,56106,56110,56154,56156,56163,56712,56720 | 56731,56732,56734,56736,56740,57107,57215,57223,57450,61431,61457,61515 | 23645 P2AA6 51544,52265,52663,52670,57716,57722,57731,57753,57756 | 52261 P2AC0 52262 P2AC1 | 52263 P2AC2 | 52264 P2AC3 52714 | 52265 P2AC5 | 52275 P2AK0 52276 P2AK1 | 52277 P2AK2 52630 | 1 LISTING OF 12/01/64 PAGE 28 | POST PROCESSOR ASSEMBLY DATA | 52300 P2AK3 | 52301 P2AK4 53001 | 52302 P2AK5 53003,53753,54557 | 52303 P2AK6 53065 | 52304 P2AK7 53123,53125,53137,53141,53147,54052,54550,54606 52305 P2AK8 53073 | 52306 P2AK9 53301 | 52307 P2AKA 53152 | 52310 P2AKB 53160 | 52311 P2AKC 53164,53212 52312 P2AKD 53172,60105 | 52313 P2AKE 53200 | 52314 P2AKF 53206 | 52315 P2AKG | 52316 P2AKH 53265 52317 P2AKI 53273 | 52320 P2AKJ 53102,53337 | 52321 P2AKK 53344 | 52322 P2AKL 53510,54163,54622,54627,54672 | 52323 P2AKM 52324 P2AKN 53352 | 52325 P2AKO 53361 | 52326 P2AKP 52761,53405 | 52327 P2AKQ 53422 | 52330 P2AKR 53506,53756,54625 52331 P2AKS 53537 | 52332 P2AKT 53563,53640 | 52334 P2AKU 53613 | 52336 P2AKV 53657 | 52337 P2AKW 53666 52340 P2AKX 53673 | 52341 P2AKY 53702,53734 | 52342 P2AKZ 53720,53741 | 52270 P2AM0 53707,53713 | 52271 P2AM1 53111,53252,55633 52272 P2AM2 53011,53046,53064,53072,53101,53157,53171,53177,53205,53264,53272,53300,53336,53351,53360,53421,53504 | 53517,53536,53544,53603,53612,53621,53647,53656,53665,55627 | 52273 P2AM3 52722,53763 | 52274 P2AM4 53530 | 52350 P2AMU 53545 52347 P2AMV | 52346 P2AMW | 52345 P2AMX | 52344 P2AMY | 52343 P2AMZ 53255 52353 P2AP0 53124,53126,53132 | 52355 P2AP1 53140,53142,53146 | 52361 P2AP2 53231,53232,53236,53244 | 52364 P2AP3 53475,53505,53513,53627 | 52370 P2AP4 53564,53566,53567,53572 52401 P2AP5 53521,53630,53631,53633,53636,54461,54525,54530 | 52376 P2AP6 53752,53754,53755,53761 | 52407 P2AP7 | 52411 P2AP8 54604,54607,54620,54623,54706,55473 | 52415 P2AP9 52703,53520,53524 1 LISTING OF 12/01/64 PAGE 29 | POST PROCESSOR ASSEMBLY DATA | | 52423 P2APA 54476,54477,54502,54535,54537,54542 | 52514 P2AQT 52514,52515,52516,52517,52520,52521,52522,52523,52524,52525,53466 52711 P2AR0 53051,54471,54573,54710,55542,55551,55562,56206,56745,57113 | 53774 P2AR1 53070,53076,53163,53175,53203,53211,53215,53270,53276,53304,53342,53355,53364,53425,53542,53550,53607 | 53616,53625,53653,53662,53671,53676,53775,54000 | 54544 P2AR3 53077,53216 | 55534 P2AR4 53174,53267 55543 P2AR5 53202,53275 | 54633 P2AR6 53210,53303 | 55552 P2AR7 53341 | 55563 P2AR8 53363,53374 | 57050 P2ARA 53541,53547,53606,53615,53652,53661,53771,57051 54340 P2ARB 53677 | 52266 P2AT0 53226,53230,53472,53474,53710,53714,54353,54356,54363 | 52267 P2AT1 52760,53002,53012,53023,53151,53251,53343,53404,53562,53637,53701,53711,53717,53733,53740,53751,54555 | 55626 | 61457 P2B01 61460 P2B02 57067 | 61461 P2B03 57102,61057,61062 | 56213 P2BAA 55774,56120,56122,56125,56126,56130,56134,56147,56155 | 56217 P2BAB 56056,56057,56060,56062,56066,56101,56107 | 56223 P2BAC 55574,55610,55620,55625,55630,55631,55766,56065,56067,56071,56133,56135,56137 56235 P2BAD 55621,55632,55647,55650,55661,55663,55711,55713,55716,55720,55721,55723 | 56244 P2BAE 55622,55623,55651,55652,55662,55664,55712,55714,55732,55736 | 56247 P2BAF 55731,55755,56007,56037,56100,56167,56274 | 56255 P2BAG 55572,55600,55604,55606,55635,55725,55746,55750,55751,55754,55763,55765,56072,56074,56076,56140,56142 | 56144 56262 P2BAH 55573,55641,55643,55653,55655,55656,55660,55703,55705,55710,55715,55717,55760,56026,56031,56064,56132 | 56176 | 56272 P2BAJ 56004,56022,56027,56034,56044,56047,56055,56177 | 55674 P2BAN 55665 | 55573 P2BBA 55611 P2BBB 53013,53014,53365,53367,53377,53400,55612,55613 | 55614 P2BBC 55615,55616 | 55631 P2BBE 55614 | 55644 P2BBF 55645,55646,55676,55677 | 55656 P2BBG 55644 55665 P2BBH 55700,55701 | 55703 P2BBK 55637 | 55722 P2BBL 55670,55675,55702 | 55736 P2BBM 55743 | 55750 P2BBN 53372,53373,53375,53376,55611,55640 55754 P2BBO 55747 | 55761 P2BBP 55756,55757 | 55767 P2BBS 55753 | 56207 P2BC1 55742,56113,56161 | 56031 P2BCG 56006,56010,56011,56023 56036 P2BCH 56030 | 56050 P2BCI 56041,56174,56175,56203 | 56054 P2BCJ | 56107 P2BCK 56114 | 56116 P2BCM 55771 56124 P2BCN | 56125 P2BCO 56021,56025,56123,56124,56173 | 56155 P2BCP 56162 | 1 LISTING OF 12/01/64 PAGE 30 | POST PROCESSOR ASSEMBLY DATA | 56164 P2BCQ 56102,56103,56115,56150,56151 | 56174 P2BCR 56172 | 56204 P2BCS 55564,56170,56202 | 56205 P2BCT 55563 55671 P2BCY | 52167 P2BGE | 37 P2BL3 7426, 7465,57025,57236,57243 | 55522 P2CAA 55504,56121 | 55127 P2CC0 55537,55546,55556 55136 P2CC1 | 55161 P2CC2 | 55211 P2CC3 55163 | 55300 P2CC4 55133,55135 | 55314 P2CC5 55353 P2CC6 55316 | 55461 P2CC8 55127,55130,55210,55260,55264,55352,55432 | 55465 P2CC9 55540,55547 | 55265 P2CCA 55140,55144,55146,55150,55152,55170,55172,55174,55177,55202,55204,55205,55207,55214,55220,55224,55231 | 55243,55247,55250,55252 55272 P2CCB 55213,55215,55216,55227,55233,55237,55241,55245,55253,55255,55261,55263 | 55433 P2CCC 55302,55304,55323,55325,55327,55331,55333,55336,55340,55342,55344,55346,55347,55351,55361,55363,55374 | 55376,55404,55413,55421,55423,55424,55426,55427 | 55446 P2CCD 55355,55357,55370,55372,55400,55402,55407,55411,55415,55417,55431 | 55464 P2CCE 55523 P2CCY 55303,55356,55513 | 55531 P2CCZ 54631,55166,55200,55225,55235,55317,55364,55470,55507,55511,55514,55554 | 54574 P2CS0 55026 | 55476 P2CSV 55553 | 54722 P2CT0 54021,54702,55535,55544 54726 P2CT1 | 54736 P2CT2 54752 | 54752 P2CT3 54765,54776 | 54753 P2CT4 54733 | 54761 P2CT5 54747 54766 P2CT6 54741 | 54777 P2CT7 54754 | 55012 P2CT8 55025 | 55014 P2CT9 55020 | 52137 P2CTA 54032,54044,54072,54121,54130,54136,54145,54153,54203,54221,54230,54236,54245,54253,54577,54603,54610 54614,54617,54723,54753,54761,54763,54766,54770,54777,55000,55001,55002,55003,55007,55010,55022,55023 | 52144 P2CTB 54774,55013,55014 | 55032 P2CTC 54762,54764,54767,54773 | 55044 P2CTD 54737,54746,54750,54756,54771,54775,55624 | 55520 P2CVS 55503,55512,55560 66223 P2END | 36367 P2G04 36352 | 36405 P2G10 36402 | 36412 P2G16 36404 | 36413 P2G18 36435 36431 P2G20 36407 | 36436 P2G30 36370,36371 | 36461 P2G32 36450 | 36464 P2G34 36451,36463 | 36466 P2G36 36460 36476 P2G38 36465 | 1 LISTING OF 12/01/64 PAGE 31 | POST PROCESSOR ASSEMBLY DATA | | 36507 P2G40 36500 36516 P2G42 36430,36510 | 36522 P2G80 36363,36366 | 36524 P2G90 36325 | 36525 P2G91 36326 | 36526 P2G92 36327 36532 P2G93 36332,36527 | 36533 P2G99 36420,36422,36470,36472 | 36325 P2GET 66223,55153,55305,60147,60223,60414 | 36541 P2GP3 36400,36401,36403,36411,36423,36425,36431,36433,36434 | 36546 P2GP4 36437,36441,36442,36452,36453,36455 36552 P2GP6 36520 | 36553 P2GP7 36513 | 36554 P2GP8 36364,36511 | 36556 P2GP9 36354,36355,36356,36360 | 54032 P2J00 55031 54036 P2J01 54033 | 54047 P2J02 54206 | 54061 P2J03 54124 | 54074 P2J04 54125,54150,54157,54207 | 54104 P2J05 54005,54006,54035,54040 54110 P2J06 54060 | 54123 P2J07 54133,54142 | 54126 P2J08 54112 | 54134 P2J09 54115 | 54143 P2J0A 54063 54151 P2J0B 54066 | 54160 P2J0C 54046 | 54172 P2J0D 54224 | 54205 P2J0E 54225,54250,54257 | 54210 P2J0F 54171 54223 P2J0G 54233,54242 | 54226 P2J0H 54212 | 54234 P2J0I 54215 | 54243 P2J0J 54174 | 54251 P2J0K 54177 54260 P2J0L 54073,54122,54132,54141,54147,54156,54204,54222,54232,54241,54247,54256 | 54301 P2J0M 54055,54166,54276,54302 | 55026 P2J0N 54017,54020,55005,55027,55030 | 54005 P2J0T 54366,54546,54664,56276,57143,57151 | 54016 P2J0U 54025,54027 54022 P2J0V 54012 | 54454 P2J10 54370,54423,54440,54447 | 54470 P2J11 54340,54463,54503 | 54570 P2J12 54544,54547,54552 | 54614 P2J13 54600 54627 P2J14 54612,54624 | 54630 P2J15 54574,54626 | 54646 P2J20 54642 | 54650 P2J21 54645 | 54661 P2J22 54654 54664 P2J23 54660 | 54707 P2J24 54633,54641 | 54720 P2J25 54650,54652,54653 | 54721 P2J26 | 1 LISTING OF 12/01/64 PAGE 32 POST PROCESSOR ASSEMBLY DATA | | 54354 P2J30 54361 | 54361 P2J31 54346 | 54366 P2J32 54357 64546 P2J50 | 64555 P2J51 | 64575 P2J52 | 64576 P2J53 | 64607 P2J54 64633 P2J55 | 64641 P2J56 | 64656 P2J58 | 64622 P2J59 | 64357 P2J60 64410 P2J61 | 64425 P2J62 | 64463 P2J63 | 64516 P2J64 | 64661 P2J68 64753 P2J70 | 64760 P2J71 | 65004 P2J72 | 65005 P2J73 | 65012 P2J74 65025 P2J75 | 65027 P2J76 | 65030 P2J77 | 65034 P2J78 | 54322 P2JA0 54042,54050,54053,54070,54117,54127,54131,54135,54140,54144,54146,54152,54155,54161,54164,54201,54217 54227,54231,54235,54240,54244,54246,54252,54255,54260,54262,54267,54272,54375,54402,54567,54666,54675 | 56321,57207 | 54322 P2JA1 54041 | 54323 P2JA2 54047,54160 | 54324 P2JA3 54116,54216 54325 P2JA4 54067,54200 | 54326 P2JA5 54134,54234 | 54327 P2JA6 54126,54226 | 54330 P2JA7 54151,54251 | 54331 P2JA8 54143,54243 54332 P2JA9 54261 | 52136 P2JAA 52616 | 3721 P2JB2 10463,14404,14405,40332,40622,40623,52572,52573,56420,57015 | 3721 P2JB3 14405,20326,36071,36072,40677,52576,52577 | 62 P2JB4 40431,40502,40510,40564 620 P2JB5 22037,22657,55112,55160,56745,61271,61317,64426,64721,64733,64763,65003,52261,52650,54347,61077 | 62 P2JB6 22660,22742,63075,65161,52656 | 10624 P2JB7 40717,51543,52613,61457 | 372 P2JB8 51544,52136,52615 | 702 P2JB9 22743,23645,63077,52265,52664,57720 46 P2JC1 21771 | 1747 P2JC2 32056,34025,55355,63113,66162,66201 | 1212 P2JC3 34503,33267,52262 | 454 P2JC4 34026,34502,55464,63115,65177,65473 | 13560 P2JC5 40706,54647,56744,65226 310 P2JC6 23646,24156,63101,66430,66642,66653,57002 | 1750 P2JC7 26134,30104,36772,63107,65454,65456,66621,66632,66750,56437,56556,56753,56775 | 1 LISTING OF 12/01/64 PAGE 33 | POST PROCESSOR ASSEMBLY DATA | 1750 P2JC8 30105,32055,36774,63111,65462,66437,66753,66770,56456,56460 | 11622 P2JC9 22660,34502,60216,60443,60617 | 1750 P2JD1 24157,26127,63103,66421,56445 | 3720 P2JD2 20327,55205,55220,57265,57270,64704 | 310 P2JD3 35527,35540,35555,36065 144 P2JD4 36107,36141,36151,36152,36156,36157,36323,36324 | 54333 P2JK0 54273 | 54334 P2JK1 54043 | 54335 P2JK2 53021,54010,54013,54571,54636,57147 | 56252 P2JK4 56274 54336 P2JK6 53022,54016,54024,54572,54637,57150 | 54337 P2JK7 | 64732 P2JKA | 64733 P2JKB | 64734 P2JKC 64735 P2JKD | 64526 P2JKE | 64731 P2JKF | 64527 P2JKG | 64530 P2JKH 64525 P2JM0 | 65036 P2JM1 | 65037 P2JM2 | 64744 P2JN1 | 64737 P2JN5 64740 P2JN6 | 64741 P2JN7 | 64742 P2JN8 | 64743 P2JN9 | 64701 P2JP0 64706 P2JP1 | 64713 P2JP2 | 64717 P2JP3 | 64727 P2JP4 | 64532 P2JP5 65040 P2JR1 | 65041 P2JR2 | 64531 P2JT0 | 64736 P2JT1 | 64523 P2JZX 64534 P2JZY | 63266 P2KA1 | 63307 P2KA2 | 63311 P2KA3 | 63315 P2KA4 63320 P2KA5 | 63322 P2KA6 | 63327 P2KA7 | 63364 P2KA8 | 63427 P2KA9 63335 P2KAA | 63344 P2KAB | 63352 P2KAC | 63362 P2KAE | 63375 P2KAF 1 LISTING OF 12/01/64 PAGE 34 | POST PROCESSOR ASSEMBLY DATA | | 63400 P2KAG | 64173 P2KB1 64177 P2KB2 | 64154 P2KB3 | 64201 P2KB4 | 64265 P2KB5 | 64230 P2KB6 64270 P2KB7 | 63604 P2KB9 | 63412 P2KBA | 63535 P2KBB | 63576 P2KBD 63537 P2KBE | 64065 P2KC1 | 64107 P2KC2 | 63467 P2KD1 | 63475 P2KD2 63511 P2KD3 | 63607 P2KE1 | 64317 P2KE2 | 63540 P2KE3 | 64276 P2KE4 64301 P2KE5 | 64310 P2KE6 | 64322 P2KE7 | 63570 P2KEA | 64331 P2KEB 63622 P2KF1 | 63624 P2KF2 | 63630 P2KF3 | 63667 P2KF4 | 63671 P2KF5 63725 P2KF6 | 63732 P2KF7 | 64003 P2KF8 | 64017 P2KF9 | 63723 P2KFA 64033 P2KFB | 64026 P2KG1 | 64030 P2KG2 | 64046 P2KG3 | 64061 P2KG5 64062 P2KG7 | 63743 P2KG8 | 63754 P2KG9 | 64111 P2KS1 | 64117 P2KS2 64123 P2KS3 | 64130 P2KS4 | 64133 P2KS5 | 64141 P2KS7 | 64143 P2KS9 64146 P2KSS | 64150 P2KST | 63356 P2KT1 | 1 LISTING OF 12/01/64 PAGE 35 | POST PROCESSOR ASSEMBLY DATA | 63465 P2KT2 | 63510 P2KT3 | 63724 P2KT5 | 63735 P2KT6 37646 P2M01 53242,56210,60072 | 37670 P2M03 | 37675 P2M04 37667 | 37665 P2M05 37646,37671,54364 | 37677 P2M06 52633,52642,52733,53217,53725,54002,54303,54343,55671,60107 37712 P2M07 37677 | 37623 P2MM1 37647,37651 | 37630 P2MM2 37665,37666,37670,37672,37674,37703 | 37641 P2MM3 37707,37711 | 37621 P2ORG 65374,67304,37621,37623 61715 P2PUT 60354,60567,60674 | 55541 P2RA4 55534 | 55550 P2RA5 55543 | 55561 P2RA7 55552 | 65043 P2X00 65066 P2X02 | 65075 P2X04 | 65113 P2X06 | 65135 P2X08 | 53257 P2X0X 53224,53225,53260,53261 65140 P2X30 | 65226 P2X31 | 65265 P2X32 | 65266 P2X33 | 65307 P2X36 65317 P2X40 | 65320 P2X42 | 65327 P2X46 | 65350 P2X48 | 65355 P2X50 65400 P2X51 | 65424 P2X52 | 65431 P2X53 | 65436 P2X54 | 7307 P2XA0 57124,57126 7310 P2XA1 52602,52637,52646 | 7311 P2XA2 | 7312 P2XA3 56223,56641,57457 | 7313 P2XA4 55654,56664,57153,57154,57155,57161 | 66154 P2XK1 52564 66150 P2XK2 | 66151 P2XK3 | 66152 P2XK4 | 66153 P2XK5 | 66163 P2XK6 66165 P2XK7 | 66170 P2XK8 | 66212 P2XK9 | 55047 P2XR1 55131,55775,57142 | 55066 P2XR2 55073,55105 55104 P2XR3 55072 | 1 LISTING OF 12/01/64 PAGE 36 | POST PROCESSOR ASSEMBLY DATA | | 55106 P2XR4 55064 55120 P2XR5 55055,55103,55113 | 55122 P2XR6 55076,55100 | 55126 P2XRA 53060,55115 | 65440 P2Y10 | 65456 P2Y11 65474 P2Y12 | 65510 P2Y20 | 65521 P2Y30 | 65531 P2Y32 | 65533 P2Y40 65556 P2Y42 | 65570 P2Y44 | 65577 P2Y46 | 65600 P2Y48 | 65606 P2Y52 65620 P2Y54 | 65621 P2Y56 | 65634 P2Y57 | 65642 P2Y58 | 65644 P2Y60 65651 P2Y62 | 65653 P2Y64 | 65671 P2Y66 | 65707 P2Y68 | 65715 P2Y70 65716 P2Y72 | 65732 P2Y74 | 65734 P2Y80 | 65741 P2Y82 | 65744 P2Y84 65746 P2Y86 | 65766 P2Y88 | 65773 P2YSW | 65774 P2Z00 | 65776 P2Z02 66003 P2Z03 | 66010 P2Z04 | 66011 P2Z06 | 66012 P2Z08 | 66027 P2Z10 66032 P2Z12 | 66043 P2Z14 | 66044 P2Z16 | 66046 P2Z18 | 66055 P2Z20 66077 P2Z22 52570 | 66102 P2Z24 | 66105 P2Z26 | 66110 P2Z28 | 66115 P2Z30 66120 P2Z31 | 66121 P2Z32 | 66125 P2Z33 | 66130 P2Z40 | 1 LISTING OF 12/01/64 PAGE 37 POST PROCESSOR ASSEMBLY DATA | | 52352 P2ZZ2 52727,52736,52737 | 7470 P3A00 | 7475 P3A10 7504 P3A24 | 7513 P3A25 | 7532 P3A28 | 7547 P3A29 | 7554 P3A32 7565 P3A33 | 7571 P3A34 | 7601 P3A36 | 7603 P3A40 | 7607 P3A42 7634 P3A43 | 7640 P3A44 | 7641 P3A45 | 7645 P3A46 | 7647 P3A47 7650 P3A48 | 7653 P3A50 | 7701 P3A56 | 7702 P3A58 | 7713 P3A60 7717 P3A62 | 7524 P3A99 | 7726 P3B00 | 7732 P3B20 | 7740 P3B24 7745 P3B30 | 7754 P3B34 | 7761 P3B35 | 7763 P3B40 | 7771 P3B42 10003 P3B43 | 10021 P3B44 | 10055 P3B45 | 10063 P3B46 | 10110 P3B48 10203 P3B60 | 10204 P3B61 | 10205 P3B62 | 10206 P3B64 | 10211 P3B65 10214 P3B66 | 10243 P3B67 | 10244 P3B68 | 10247 P3B69 | 10116 P3B70 10117 P3B71 | 10120 P3B72 | 10122 P3B75 | 10131 P3B76 | 10135 P3B78 10151 P3B79 | 10154 P3B80 | 1 LISTING OF 12/01/64 PAGE 38 | POST PROCESSOR ASSEMBLY DATA | 10253 P3B90 | 10254 P3B91 | 10255 P3B92 | 10261 P3B95 | 10271 P3B96 4230 P3BSZ 60613,60622,60625 | 10716 P3BUF | 10276 P3C00 | 10305 P3C02 | 10313 P3C04 10321 P3C10 | 10324 P3C12 36156 | 10470 P3C13 | 10471 P3C14 | 10472 P3D00 10517 P3D05 | 10525 P3D08 | 10532 P3D10 | 10552 P3D30 | 10564 P3D40 10571 P3D50 | 10573 P3D52 | 10577 P3D60 | 10600 P3D61 | 10601 P3D62 10602 P3D63 | 10603 P3D64 | 10604 P3D65 | 10605 P3D66 | 10606 P3D67 10607 P3D68 | 10610 P3D69 | 10611 P3D70 | 10637 P3D71 | 10640 P3D72 10641 P3D80 | 10653 P3D81 | 10655 P3D82 | 10656 P3D83 | 10662 P3E00 10677 P3E10 | 10705 P3E98 | 10710 P3E99 | 15625 P3END 54630 | 7466 P3ORG 64061 PAC48 64031 | 64357 PAC57 64307 | 64300 PAC58 64245 | 64433 PAC62 64440 | 54467 PARED 54702,55275,55301,55312,55315,55317,56750,60717,60733,60742,61222,61255,61474,61503,61507,61674,61704 61706,61736,61740,61742,61747,62072,62101,62105,62140,62151,62175,62401,62424,62561,62566,62645,62650 | 62651,62713,63625,63740,63754,63756,63760,64015,64025,64040,64052,64065,64077,64121,64123,64127,64321 | 64327,64525,64532,64536,64571,64577,64604 | 54466 PARTM 54470,54642,54703,54722,54723,54727,54730,54731,54732,56744,56751,65255,65261 | 63421 PIC00 63212,63304 1 LISTING OF 12/01/64 PAGE 39 | POST PROCESSOR ASSEMBLY DATA | | 63520 PIC14 63512 | 63447 PIC16 63433 63452 PIC18 63435,63450 | 63471 PIC19 63461,63466 | 63503 PIC20 63470 | 63505 PIC21 | 63511 PIC22 63577 PIC23 63460,63504,63510,63517 | 63615 PIC24 63602 | 63637 PIC25 63633 | 63640 PIC42 63636 | 63667 PIC43 63662 63727 PIC44 63677,63710,63722 | 64207 PIC45 64622 | 64072 PIC46 64004,64006 | 64010 PIC47 64000,64005,64105,64110,64167,64230 | 64057 PIC48 61711,61746,64045 64231 PIC49 64054,64056,64067,64071,64126,64134 | 64047 PIC50 64060 | 64135 PIC51 64112,64114 | 64172 PIC52 64146 | 64014 PIC53 64202 64304 PIC57 64233,64404 | 64234 PIC58 64451,64655 | 64370 PIC59 64302,64347,64356,64361 | 64456 PIC60 64303,64377,64403 | 64405 PIC61 64400 64422 PIC62 64410,64412 | 64452 PIC63 64423,64425 | 64564 PIC65 64550 | 64545 PIC67 64462 | 64532 PIC68 64470 64601 PIC69 64535,64603 | 64656 PIC90 | 64662 PIC92 64656 | 64664 PIC93 64660 | 64676 PIC94 64661,66417 57777 PIF00 57223,57224 | 60070 PIF02 60065,60643 | 60071 PIF04 60012 | 60075 PIF06 60066,60107,60633 | 60105 PIF08 60101 60110 PIF18 56170,60133 | 60121 PIF19 60135 | 60124 PIF20 60077 | 60136 PIF24 60131 | 60147 PIF26 60137 60151 PIF28 60154 | 60155 PIF29 60204 | 60161 PIF30 60164 | 60165 PIF31 60211 | 60200 PIF32 60153 60205 PIF34 60163 | 60212 PIF40 60146,60173,60177 | 60223 PIF42 60346,60357 | 1 LISTING OF 12/01/64 PAGE 40 | POST PROCESSOR ASSEMBLY DATA | 60231 PIF44 60243,60400 | 60244 PIF50 60235 | 60246 PIF52 60251 | 60261 PIF54 60252 60272 PIF56 60260,60266 | 60303 PIF58 60300 | 60312 PIF60 60273,60302,60342 | 60321 PIF62 60333 | 60327 PIF64 60341 60343 PIF70 60313 | 60344 PIF72 60366 | 60361 PIF74 60350 | 60367 PIF76 60360 | 60401 PIF79 60433,60435 60407 PIF80 60236,60237,60334,60335 | 60427 PIF81 60410 | 60441 PIF82 60534 | 60444 PIF84 60533 | 60515 PIF90 60426 60533 PIF92 60447 | 60572 PIF93 60544,60552,60556 | 60611 PIF94 | 60624 PIF95 60617,60622 | 60635 PIF96 60100 60651 PIF97 60614,60621,60624,60626,60632 | 60653 PIF98 60446 | 60663 PIF99 60106,60232,60330 | 60656 PIFSW 60222,60272,60301,60407 | 7301 PILB5 61044,61046 64702 PIT01 61754,63127,63137,63145,64663,66442,66446 | 64706 PIT02 64720 | 64717 PIT04 64707,64713 | 64721 PIT05 64703 | 64723 PIT06 64732 64731 PIT08 64726 | 64733 PIT10 64762 | 64735 PIT12 64760 | 64750 PIT13 64743 | 64760 PIT14 64741 64761 PIT16 64736 | 64764 PIT18 65002 | 64771 PIT20 64766 | 65001 PIT21 64772 | 65003 PIT22 65004 PIT23 65070 | 65027 PIT24 65011 | 65070 PIT26 65006,65030,65040,65046 | 65072 PIT28 65112 | 65112 PIT30 65074,65101 65116 PIT31 65153 | 65153 PIT32 65120 | 65154 PIT33 65114 | 65160 PIT34 65175 | 65162 PIT36 65173 65173 PIT38 65165,65166 | 1 LISTING OF 12/01/64 PAGE 41 | POST PROCESSOR ASSEMBLY DATA | | 65200 PIT40 65213 65212 PIT42 65201,65202 | 65214 PIT46 | 65226 PIT48 65223 | 65227 PIT50 65224 | 65236 PIT52 65220 65243 PIT53 65237 | 65247 PIT54 65245,65264,65273 | 65254 PIT56 65260 | 65261 PIT58 65250,65277 | 65264 PIT60 65240 65270 PIT62 65252,65254,65257 | 65273 PIT64 65230 | 65300 PIT70 65262,65271 | 65315 PIT72 65304 | 65323 PIT73 65314 65325 PIT74 65300,65322 | 65327 PIT78 65306,65310,65312 | 65335 PIT79 65301,65302,65316,65323 | 65336 PIT80 57017,65267,65276 | 65366 PIT84 65375 PIT86 65370,65371 | 65402 PIT87 65376,65400 | 65414 PIT88 65365 | 65417 PIT89 56701 | 65422 PIT90 60701 PITK1 | 60702 PITK2 | 60703 PITK3 | 60704 PITK5 | 60705 PITK6 60706 PITK7 | 65423 PITSW 64734,64750,64761,65160,65172,65174 | 63401 PLCHR 55561,55767,61001,61041 | 61462 PLUS1 60045 | 56023 PRD02 56056,56070,56073,56075 56032 PRD06 56025 | 56034 PRD10 | 56064 PRD20 56052,56062 | 56066 PRD22 | 56071 PRD50 56046 56074 PRD60 56037 | 56076 PRD72 56061 | 56077 PRD90 56020,56030,56063 | 56101 PRD95 56055 | 56102 PRD96 56050 56103 PRD97 56040 | 56104 PRD98 56044 | 56105 PRD99 56035 | 56020 PREAD 56724,57130,57216,57320,57331,57353,57737,60105,60231,60327,61753,63136,63265,65447,65534 | 7655 PRECD 6775 PRFX1 57106,40232 | 6776 PRFX2 57075,63752 | 6777 PRFX4 60006,65757,52753,56627 | 7000 PRFX6 56156,60126,40353,40663,52563 | 1 LISTING OF 12/01/64 PAGE 42 POST PROCESSOR ASSEMBLY DATA | | 61551 PRI01 | 61552 PRI02 | 61554 PRI03 54405,54421 61560 PRI04 54406,54452 | 61565 PRI05 54407,54445 | 61573 PRI06 54410,54436 | 61600 PRI07 54413,54466 | 61557 PRK03 54417 61564 PRK04 54434,54450 | 61572 PRK05 54443 | 61577 PRK07 54464 | 61553 PRK10 | 66171 PRMSK 54716 PRS08 54715,54745 | 54721 PRS10 54735 | 54722 PRS12 54734 | 54727 PRS14 | 54734 PRS16 54725 54735 PRS18 54724,54733 | 54753 PRS82 54740 | 54744 PRS84 54736 | 54746 PRS90 54711,54720,54743 | 54747 PRS91 54712 54750 PRS92 54713 | 54711 PRSRT 54633,65214 | 54752 PRSWT 54717,54726,54744 | 61602 PRTSW 54422,54437,54446,54453,54462,54467 | 61456 PSOPE 57743,57744 66512 PSOPS 65617,65620,65712 | 22032 PSWCH 22037,57037,57043 | 74357 PTBL0 74345,74346,74347,74350,74351,74352,74353,74354,74355,74356,74357,74360,74361,74362,74363,74364,74365 | 74366,74367,74370,74573,74574,74575,74576,74577,74600,74601,74602,74603,74604 | 74345 PTBL1 74220,74333,74346,74347,74350,74351,74352,74353,74354,74355,74356,61666 74333 PTBL2 74161,74321,74334,74335,74336,74337,74340,74341,74342,74343,74344,61665 | 74321 PTBL3 74122,74307,74322,74323,74324,74325,74326,74327,74330,74331,74332,61664 | 74307 PTBL4 74063,74310,74311,74312,74313,74314,74315,74316,74317,74320,61663 | 64350 Q0050 64334 | 61410 R0010 10202 RCCTL | 17404 RDCNT 0,75042,75046,52434,52436,52444,52446,52451,52453 | 17310 RECRD 0, 7556,52700 | 63376 REVSW 63334,63342,63361 | 75037 RGE20 75047 75047 RGE90 75041 | 75035 RGEOJ 52513 | 73000 RGFXD 0,73000,73002,65374 | 6612 RGORG 0, 6612, 6614 | 7733 RGSYM 57010,57011 22034 RPTNO 22037,57127,63105,66573,52636,52705,53010,53503,53516 | 22031 RRSWT 22037,57245,60005,60723,61521,62157,63131,63552,64702,65020,65113,52674 | 60775 S0010 60771 | 60777 S0020 60774 | 61014 S0030 61007 61106 S0040 61101 | 61125 S0050 61113,61120 | 1 LISTING OF 12/01/64 PAGE 43 | POST PROCESSOR ASSEMBLY DATA | 61200 S0060 61172 | 61257 S0070 61252,61254 | 61451 S0090 | 61744 S0100 | 64066 S0110 61745 61776 S0120 61771 | 62025 S0130 62002,62017,62037,62041 | 62122 S0145 62112,62117,62121 | 62020 S0160 62010,62011 | 61753 S0170 62015,62051 62010 S0180 62033 | 62046 S0200 | 62044 S0210 62062 | 62177 S0230 | 62331 S0290 62314,62323,62327 62330 S0300 62325 | 62337 S0310 62333 | 62347 S0320 62334 | 62355 S0325 62344 | 62366 S0330 62360 62523 S0340 62414 | 62451 S0350 62416 | 62465 S0360 | 62500 S0370 62470 | 62533 S0380 62472,62501 62532 S0390 62473,62502 | 62474 S0400 62504 | 62511 S0410 62521 | 62565 S0430 62553,62556,62572 | 62607 S0440 62603 62614 S044B 62563 | 62637 S0450 | 62636 S0460 | 63534 S0570 | 64551 S0600 63611,63771,63775,64225 63663 S0620 63653,63655 | 63700 S0630 63673,63675 | 63711 S0640 63705 | 63723 S0650 63717 | 63650 S0660 64041 S0670 64034 | 64111 S0680 64073,64075 | 64175 S0710 64206 | 64316 S0770 64311 | 64144 S0780 64137,64315 64362 S0790 64360 | 64330 S0800 64364,64367 | 64401 S0810 64374 | 64371 S0820 64421 | 64426 S0830 64454,64631 64512 S0840 64503 | 64517 S0850 64511 | 64567 S0860 64540,64575 | 61464 SAVAD 56313,56317,57201,57205 | 61463 SAVE1 61737,61745,62117 1 LISTING OF 12/01/64 PAGE 44 | POST PROCESSOR ASSEMBLY DATA | | 55106 SB100 61465,62174,63451,64227,65133 | 55113 SB110 55121 55132 SB120 55117 | 55151 SB130 55110,55131,55134 | 55152 SB132 55106 | 55154 SB140 55111,55115,55122 | 55155 SB150 61570,62162,62217,63436,64226,64324,64341,64352,65125 55161 SB160 55166 | 55177 SB170 55164 | 55201 SB180 55155,55176 | 55203 SB191 55157,55163,55167 | 55204 SB200 62245,64250 55205 SB208 55237 | 55206 SB210 55212 | 55221 SB212 55226 | 55226 SB214 55222,55224 | 55236 SB218 55217 55245 SB220 55210 | 55255 SB224 55250 | 55257 SB230 55247 | 55264 SB240 55204,55244 | 55266 SB247 55245 55267 SB248 55261 | 55270 SB249 55263 | 55271 SB300 57664,63541,63623,65012,65047,65102,65121 | 55273 SB302 55305 | 55303 SB310 55300 55304 SB320 55271 | 55306 SB350 57706,61223,63576,65026,65067,65111,65152 | 55310 SB360 | 55326 SB390 55306 | 55327 SB391 55272 55331 SB399 55274,55307,55316,61221 | 55332 SB400 61660,63502,63605 | 55354 SB410 55347 | 55373 SB420 55365 | 55403 SB430 55361 55412 SB432 55405 | 55416 SB440 55402,55411 | 55422 SB442 55332,55341,55372,55415 | 55423 SB443 55333 | 55424 SB444 55334 55426 SB448 55346,55354,61657 | 55427 SB449 55340,55357,55363 | 55430 SB450 61634,63647 | 55444 SB454 55440 | 55447 SB456 55453 55454 SB458 55450 | 55462 SB460 55455 | 55472 SB462 55467 | 55476 SB464 55471 | 55506 SB466 55500 55512 SB490 55430,55461,55463,55475,55505 | 55513 SB491 55431 | 55514 SB492 55432 | 1 LISTING OF 12/01/64 PAGE 45 | POST PROCESSOR ASSEMBLY DATA | 55517 SB493 55433,55515 | 55520 SB498 55454,55472,55510 | 55521 SB499 55437,55462,55477,61635 | 55522 SB500 55353,61665,63501 55545 SB510 55540 | 55550 SB520 55530 | 55557 SB530 55553 | 55562 SB540 55522 | 55564 SB548 55527,55532 6557 SCEOT 0,35007 | 23645 SCTBL 63100,66245,66255,66257,66262,66267,51544 | 6623 SEVEN 61003,62637,64256,64276,66110 | 66745 SLARN 66567,56413 | 6675 SLASH 7001 63306 SLT01 60716,61224,61755,61773,63117,63134,63140,63274,64555 | 63307 SLT02 63276,64053,64055,64155,64557 | 63310 SLT03 63300,64066,64070,64156,64561 | 63311 SOR00 63426 | 63313 SOR04 63323 63323 SOR06 63327,63332 | 63330 SOR09 63317 | 63333 SOR11 63324,63343 | 63335 SOR12 63341,63372 | 63342 SOR13 63373 63345 SOR14 63352,63357 | 63357 SOR15 63353 | 63361 SOR18 63337 | 63374 SOR61 63311,63360 | 63402 SORCN 63355 72777 SPARE | 61713 SPMSK | 61712 SPTSX | 7305 START 55140,55147,55151,55576,57311,57600,63427,63465,63522,63543,63557,64010 | 6304 STASH 0, 7716 35441 STEPC 35545,57666,62377,62564,63066,65145,66373,66404,66424,53227,53320,53473,53573,54071,54120,54202,54220 | 54602,54616,55136,55211,55300,55353,55502,55510,55764,56054,56063,56131,57603,57613,57641,57651,57673 | 57703,60016,60026 | 40227 STEPI 52610,53061,53131,53145,53235,53512,53523,53571,53600,53635,53760,54401,54420,54435,54444,54451,54460 | 54465,54501,54527,54541,54566,54674,54705,55116,55157,55206,55251,55254,55262,55312,55350,55425,55430 55472,55557,55722,56061,56070,56127,56136,56320,56433,56504,56630,56652,56657,57206,57242,57405,57533 | 57540,60153,60172,60203,61034,61045,61050,61055 | 35523 STEPM 36421,36471,36501,62366,54403,54411 | 7306 STIRT 60775,60777,61737,63430,63456,63525,63531,63546,63550,63555 | 22030 STKSW 22037 5033 STOBJ 0 | 52552 SWAA6 56327,56415,57712 | 72657 SWTCH 75037,52672,52676 | 57010 SYM10 56773 | 57033 SYM20 57000,57005,57013,57020 57037 SYM30 57034 | 57042 SYM90 56767,57032,57036 | 57043 SYM91 56770,57046 | 57045 SYM92 57027 | 56767 SYMSR 56450,56476,56554,56602 4752 SYSRD 0,73002,65372 | 1 LISTING OF 12/01/64 PAGE 46 | POST PROCESSOR ASSEMBLY DATA | | 61503 T1MSK 57572,57600,57604,57610,57612,57614,57627,57636,57642,57646,57650,57652,57670,57674,57700,57702,57704 73120 TABL2 73060,73071,73120,73121,73122,73123,73124,73125,73126,73127,73130,73131,73132,73133,73134,73135,73136 | 73137,73140,73141,73142,73143,73144,73145,73146,73147,73150,73151,73152,73153,73154,73155,73156,73157 | 73160,73161,73162,73163,73164,73165,73166,73167 | 34502 TAPEM 65226,65227,65247,65256,65270 | 65424 TAPSW 65216,65221,65247,65266,65274 61505 TASTA | 37140 TBCMD 65244,52623 | 73625 TBGRG 73503,73517,73625,73626,73627,73630,73631,73632,73633,73634,73635,73636 | 72703 TBLTL | 6245 TCJBO 0,73004 34765 TDBUF 34736,34744,34750,34753,34757 | 34727 TDU08 34755 | 34730 TDU10 34726,34746 | 34760 TDU90 34717 | 34761 TDU91 34720 34762 TDU92 34721 | 34764 TDU93 34724,34725 | 34717 TDUMP 57620,65000,65324 | 7370 TEMP1 62667,62675,62707,57730,57751,62455,62460 | 7371 TEMP2 62712,62715,57546,57601,57606,57637,57644,57671,57676 7372 TEMP3 62702,62714 | 7373 TEMP5 62455,62460,62462 | 37031 TEMPA 37137,61505 | 61506 TEMPS 53115,53120,57733,57746,60000,60005,60014,60431,60442,60754,60776,61106,61115,61124,61127,62423,62425 | 62426,62432 6617 THREE 63613,63617,64526 | 57775 TLAST 57310 | 54636 TR098 | 54647 TR104 54644,54663,54665 | 54650 TR106 54671 54653 TR108 54645 | 54670 TR110 54635 | 54673 TR111 | 54675 TR112 54667 | 54705 TR900 54631 54706 TR901 54632 | 34553 TRACE 34504,36331,63124,64011,64705,64722,40616,52712,54545,54575,54634,55056,55565,56275,56326,57053 | 34563 TRC10 34561 | 34570 TRC20 34555,34556 | 34572 TRC21 34557,34565 34573 TRC22 34564,34567 | 34574 TRC23 | 120 TRC90 34562,34575 | 34715 TRCBF 34560,34563,34566 | 54710 TRSWT 54634,54636,65217 36540 WDCNT 36523,66225,55155,55307,57271,57313,57324,57336,57340,57360,57362,57401,57412,57415,57433,57435,60151 | 60232,60235,60417,60422,60477,60523,60536,60543,60600,60753,60760,60777,61001,61015,61020,61022,61037 | 61053,61720,62340 | 61510 WDCT2 60647,60671,60713,60730,61026,61031 | 61513 WDOUT 62143,62253,62320 61512 WDSIN 62116,62125,62202,62222,62226,62252,62302,62317 | 6266 WRITE 0, 7700 | 61272 Z0001 61300,61303 | 61314 Z0002 61265 | 1 LISTING OF 12/01/64 PAGE 47 POST PROCESSOR ASSEMBLY DATA | | 61340 Z0004 61313 | 53122 Z2A0N 53114 | 53402 Z2A15 53371,55745 53717 Z2A1G 53730 | 52333 Z2AKU 53604 | 52335 Z2AKV 53650 | 56274 Z2AR2 53354,53424,53670 | 55515 Z2CSV 55476,55506 54732 Z2CT1 54760 | 64640 Z2J55 | 64457 Z2J60 | 64476 Z2J63 | 64542 Z2JP5 65042 Z2JR3 | 63263 Z2KAA | 64247 Z2KB3 | 63766 Z2KFB | 63775 Z2KFZ 52553 Z2XRA 57141,57145,57175 | 61652 ZELSW 61740,62341 | 6614 ZEROS 7307,36565,36651,36665,61772,62373,63730 | 7314 ZZSWT 56225,56657,57463 | 36745 ACNCTR 56761,63723,63726 7160 ARTEMP 61243,61251 | 62760 ARTERO | 63011 ARTERR | 62746 ARTROR 61242 | 6670 ASTRIK 7001,56062,65604,65655,65671,56514 6256 ATTACH 0, 7670 | 62446 B63222 | 73525 BCDB01 73506 | 73536 BCDB03 73526,73530 | 73540 BCDB05 73471 73541 BCDB07 73522 | 73542 BCDB09 73532 | 36560 BCDBIC 36576,36603,55531,55555,55656,56316,56331,56353,56372,56430,56666,57055,60476,60546,62256,62430,64260 | 66542 | 73470 BCDBIN 7726,40505 36603 BCDBIS 36564,36574,36575,36577 | 73023 BCDBUF 73024,73030,73035,73040,73042,73061,73072,73075,73101,73103,73105,73470,73472,73473,73475,73511,73533 | 73664,73717,73740,73746,73761,73771,73776,74001,74006,74010,74013,74020,74022,74027,74032,74041,74044 | 74054,74074,74075,74103,74104,74113,74133,74134,74142,74143,74152,74172,74173,74201,74202,74211,74231 | 74232,74240,74241,74607,74612,74614,74664,74673,74741,74753,75045,75067, 7722,36553,36555,55434,55441 55447,55454,61175,61226,61267,61275,61306,61311,61322,61346,61352,61603 | 73024 BCDCHS 7606,36552 | 61550 BCONST 53024 | 73042 BINBCD 75044,75064, 7730,40506 | 73005 BINBUF 73043,73073,73507,73524,73536,75043,75063, 7724,36554,61174,61217,61334,61533 4657 BITIND 0 | 4764 BSFSYS 0 | 4771 BSRSYS 0 | 72727 BUFLOC 7610 | 72753 BUFSZE 7612 61747 CALPAR 61670 | 61514 CHRCNT | 1 LISTING OF 12/01/64 PAGE 48 | POST PROCESSOR ASSEMBLY DATA | 62777 CNTLVE 62067 | 7362 COMMAN 64533,64542,64543 | 37031 COMMON 36740,36741,37137,61452,61464,61512,61524,61530,61534,61541,61607,61614,62300,62305,62375,62376,62400 | 54470 COMRED 54704,55276,55314,55320,55322,56752,60732,61473,62071,62646,62652,62654,63755,63761,63763,64461,64464 | 64572 61547 CON2BL 53112 | 36704 CONVER 36701 | 36716 COTEMP 36647,36660,36661,36674,36675,61107,61201,62340,62341,62351,62354,62363,62365,62367,62372 | 73555 CQTRG1 73477,73513,73555,73556,73557,73560,73561,73562,73563,73564,73565,73566 | 73567 CQTRG2 73500,73514,73567,73570,73571,73572,73573,73574,73575,73576,73577,73600 73601 CQTRG3 73501,73515,73601,73602,73603,73604,73605,73606,73607,73610,73611,73612 | 73613 CQTRG4 73502,73516,73613,73614,73615,73616,73617,73620,73621,73622,73623,73624 | 61667 CRQTBL | 63265 CTGCDA 63241 | 63242 CTGREC 63216 63217 CTGRPT | 63071 DANZ20 | 63066 DANZST 57230,57733,60650 | 6252 DEFINE 0, 7664 | 56275 DPLGTH 55554,55556,56001,56012,56330,56332,56365,56373,56376,56402,60421,60475,60477,60510,60517,62332,62357 62423,62435,62452,62466,62577,62614 | 56276 DPMODE 56004,56014,56400,60424,60442,60512,60515,62262,62312,62342,62624 | 56277 DPWBLM 55375,55404,55560,55753,55756,55766,55771,56015,56410,56566,56610,60306,60513,63570,63627,64345 | 56273 DPWORD 55542,55544,55546,55547,55773,56006,56322,56360,56406,60413,60436,60454,60504,60524,60532,60535,62627 | 36757 EDMK05 36760 EDMK06 63551 | 36761 EDMK07 | 36762 EDMK10 | 36763 EDMK13 63665,64200 | 36764 EDMK15 63720 36765 EDMK20 64175 | 36766 EDMK22 | 36767 EDMK23 62172 | 7356 EMITSW 61777,62557,62571,62575 | 63044 EMLERR 62254 63056 EMOVTB 63734 | 66173 ERMBF1 | 37676 EROR5M 64633,64642,64644 | 62765 ERRBLK 61451,61602 | 7423 FCBLOC 56160,60052,60055 36731 FFTEMP 62246,62417 | 4350 FILE00 0, 7423, 7614 | 4334 FILE01 0, 7422, 7616 | 4320 FILE02 0, 7421, 7620 | 4304 FILE03 0, 7420, 7622 4270 FILE04 0, 7417, 7624 | 4254 FILE05 0, 7416, 7626 | 4240 FILE06 0, 7415, 7630 | 4224 FILE07 0, 7414, 7632 | 4210 FILE08 0, 7413, 7634 4174 FILE09 0, 7412, 7636 | 4160 FILE10 0, 7411, 7640 | 4144 FILE11 0, 7410, 7642 | 4130 FILE12 0, 7407, 7644 | 4114 FILE13 0, 7406, 7646 1 LISTING OF 12/01/64 PAGE 49 | POST PROCESSOR ASSEMBLY DATA | | 4100 FILE14 0, 7405, 7650 | 4064 FILE15 0, 7404, 7652 4050 FILE16 0, 7403, 7654 | 4034 FILE17 0, 7402, 7656 | 4020 FILE18 0, 7401, 7660 | 4004 FILE19 0, 7400, 7662 | 4406 FPRGSW 0,56163 4776 FSFSYS 0 | 5004 FSRSYS 0 | 36645 FUBCDB 36662,61106,61200,62331 | 62732 FUBL10 62743 | 62743 FUBL20 62735,62737 62744 FUBL30 62727 | 62727 FUBLCT 61031,61033,61144,61146 | 60707 FUN000 63162 | 60723 FUN001 54565,54566,54567,54570,54571,54572,54573,54574,54575,54576,54577,54600,54601,54602,54603,54604,54605 | 54606,54607,54610 60740 FUN002 60730,60735,60736 | 61121 FUN003 61065 | 61213 FUN004 61165 | 61226 FUN010 60766 | 61240 FUN200 61227 61261 FUN300 60757 | 61320 FUN301 61325 | 61342 FUN400 61262 | 61354 FUN405 61353 | 61406 FUN500 60726 61641 FUN501 61411 | 61452 FUN502 61422,61433,61444,61450,61566,61600 | 61547 FUN503 61413 | 61645 FUN510 61666 | 61657 FUN520 61644 61667 FUN600 64027 | 61727 FUN602 61676 | 61755 FUN800 61407,63003,63010 | 62002 FUN801 61763 | 62007 FUN802 62003,62027 62016 FUN803 | 62023 FUN804 | 62005 FUN805 62660,63015,63022 | 62043 FUN806 62004,62006,62057 | 62052 FUN807 62044,62045 62065 FUN808 62042 | 62146 FUN809 62107 | 62156 FUN810 62145 | 62214 FUN813 62201 | 62244 FUN814 62213 62247 FUN815 62226 | 62306 FUN819 62273 | 62335 FUN820 | 62371 FUN821 62361 | 62401 FUN822 62370 62405 FUN823 62261,62266 | 62522 FUN824 62413,62513 | 62536 FUN825 62464,62547,62554 | 1 LISTING OF 12/01/64 PAGE 50 | POST PROCESSOR ASSEMBLY DATA | 62540 FUN826 62476 | 62576 FUN827 62404 | 62633 FUN828 62620 | 62642 FUN829 62632 63051 FUNE01 61375 | 54623 FUNEM1 63054 | 54527 FUNSWW 60707 | 54471 FUNTBL 63160 | 54565 FUNTRA 60721 60722 FUNXR4 60720 | 61050 FUNZ01 61040,61047 | 61224 FUOUT1 62752,62757,62764,62771,62776,63036,63050 | 73723 GET001 36541,40502 | 73670 GET002 36542,40503 73640 GET003 36543,40504 | 73744 GETTMP 73642,73650,73651,73652,73672,73701,73702,73703,73725,73730,73731,73732 | 37144 HCOCTM 65730,65737,65756 | 73771 HSKPG1 61616 | 74001 HSKPG2 61617 73770 HYPTBL 73755 | 2326 INOUTZ 0 | 74247 INTBUF 74031,74035,74043,74047,74060,74064,74070,74117,74123,74127,74156,74162,74166,74215,74221,74225,61604 | 61653 | 7366 INTRPC 63164,63251,63253,63255,63261 63037 IRTERO 61733 | 62772 IRTERR | 134 .CHEXI | 135 .MODSW | 4655 JOBTYP 0 7374 LCARDS 63057 | 6710 LEFTPR 7001 | 36732 LENGST 62255,62257,62267,62405,62507 | 36770 LENTMP 62407,62465 | 62753 LINERR 61301,61326 7275 LINEST 61270,61275,61316,61322,61334 | 61653 LOCINT | 61654 LOCPZE 62347,62350 | 36742 LOCTAR 63302 | 4661 LSTIND 0 36737 LSTLNO 56757,61761,61764,61774 | 7341 MASK01 61076,61103,61167,61174 | 7367 MASK02 62315 | 7342 MASK03 56775,57005,60767,61240,61347,61731 | 7343 MASK04 64243 7344 MASK11 62644 | 7345 MASK12 60753 | 7346 MASK14 61015,64103 | 7276 MOTEMP 61004,61035,61061,61111,61161,61203 | 62667 MOVT10 62705 62670 MOVT20 62710 | 62706 MOVT30 62676 | 62711 MOVT40 62700 | 62723 MOVT50 62661 | 62724 MOVT51 62662 62726 MOVT99 62664,62677,62701 | 1 LISTING OF 12/01/64 PAGE 51 | POST PROCESSOR ASSEMBLY DATA | | 62661 MOVTBL 61005,61232,61257,61340,61357,61630,62127,63060,63061,63063 7347 MSKDC5 60266 | 7277 MSTRSW 56756,61256,65027,65051 | 61620 N 110A 61613 | 74250 NPTBL1 74030,74057,74116,74155,74214,61614 | 74251 NPTBL2 74042,74100,74137,74176,74235,74250,61613 74252 NPTBL3 74107,74146,74205,74244,74251,61612 | 74253 NPTBL4 74252,61611 | 74254 NPTBL5 74253,61610 | 74272 NPTBLB 74256,74257,74260,74261,74262,74263,74264,74265,74266,74267,74270,74271,74272,74273,74274,74275,74276 | 74277,74300,74301,74302,74303,74304,74305,74306 63004 OUTENR 62013,62047 | 36734 OUTENT 62034,62035,62063,62113,62156,62202,62210,62214,62244,62425,62633 | 57311 P1B01A 57460,57462,57470,57475 | 53063 P2A0J1 53053 | 53456 P2A16G 52772,53452 53454 P2A16H 53451 | 53462 P2A16K 53455 | 53514 P2A17G 53456 | 52526 P2AQT1 52514,52515,52516,52517,52520,52521,52522,52523,52524,52525,52526,52527,52530,52531,52532,52533,52534 | 52535,52536,52537 52540 P2AQT2 52526,52527,52530,52531,52532,52533,52534,52535,52536,52537,52540,52541,52542,52543,52544,52545,52546 | 52547,52550,52551 | 55176 P2CC2A 55165 | 55205 P2CC2B 55175 | 55235 P2CC3A 55222 55250 P2CC3B 55234 | 55335 P2CC5A 55321 | 55347 P2CC5C 55334 | 55406 P2CC6A 55366 | 55424 P2CC6C 55405 66070 P2EM14 | 65216 P2EM20 | 64341 P2J50A 53772 | 64356 P2J55A | 64746 P2JN1A 64747 P2JN1B | 64750 P2JN1C | 64216 P2KB4A | 63707 P2KF5A | 65211 P2X30A 65212 P2X30M | 65170 P2X30N | 65416 P2X51A | 10150 P3B785 | 61712 PAGERR 61710 61715 PAGMSG 61713 | 7300 PARCTR 54641,54675,54700,54714,54716,55323,55325,56753,62655,62657,63764,63766,64456,64460,65154,65236 | 4660 PCHIND 0 | 6647 PERIOD 7001 | 63776 PIC44A 63736 64226 PIC45A 64214,64220 | 64227 PIC45B 64212 | 64221 PIC45C 64171 | 64030 PIC531 61752 | 1 LISTING OF 12/01/64 PAGE 52 POST PROCESSOR ASSEMBLY DATA | | 60660 PIFF98 60441 | 60657 PIFSW1 60013,60017 | 74573 PTBL1A 74224,74334,74335,74336,74337,74340,74341,74342,74343,74344,74561,74562,74563,74564,74565,74566,74567 74570,74571,74572,74573,74574,74575,74576,74577,74600,74601,74602,74603,74604 | 74561 PTBL2A 74165,74322,74323,74324,74325,74326,74327,74330,74331,74332,74547,74550,74551,74552,74553,74554,74555 | 74556,74557,74560,74561,74562,74563,74564,74565,74566,74567,74570,74571,74572 | 74547 PTBL3A 74126,74310,74311,74312,74313,74314,74315,74316,74317,74320,74535,74536,74537,74540,74541,74542,74543 | 74544,74545,74546,74547,74550,74551,74552,74553,74554,74555,74556,74557,74560 74535 PTBL4A 74067,74535,74536,74537,74540,74541,74542,74543,74544,74545,74546 | 5255 RD(WR) 0,35500,36144,54643,54664,55675,55721,56023,56123,56175,60064,60620,60631,60642,65222,65243,65315 | 66756,40574,52622,52713,56343,56534,56574,56754 | 56302 RFTYPE 55345,55377,55407,55570,55742,56336,56350,56541,56564,56606,60503,62215,63471,63475,64336 | 6650 RGHTPR 7001 4410 RGSMTP 0 | 61662 RQLTBL | 63032 RTERRO 61351 | 75016 SASTER 74630 | 7302 SAVIND 61066,61075 75032 SAXT04 74656,74661,74726,75013 | 75017 SBLNKR 74626 | 6474 SETDEN 0 | 5115 SGNOFF 0,56042 | 75015 SHYPHR 74752,74756 63023 SIGNER 62330 | 7303 SIGNIN 61100,61102,61114,61171,61173,61206,62311,62326,62353 | 66744 SLATEM 66565,66571,66575 | 75024 SNEGSW 74666,74746,74750 | 74605 SP0190 75066,40507 74675 SP0730 74646,74662 | 74677 SP0760 74643,74700 | 74701 SP0900 74736,74745 | 74710 SP0920 74775 | 74711 SP0950 75014 74712 SP0960 74640,74714,74730,74732,74760,74777,75001 | 74720 SP1030 74711,75005 | 74723 SP1060 74660,74725,75010,75012 | 74746 SP1130 74741 | 74770 SP1146 74616 74771 SP1147 74617 | 74772 SP1148 74620 | 74736 SP1180 74720,74727 | 74744 SP1240 74650,74674,74737,74742 | 74760 SP1400 74747 74774 SP1510 74707 | 75005 SP1630 74776 | 74052 SP1D6C 61705 | 74073 SP1D7C 61704 | 74102 SP1D8C 61703 74111 SP2D6C 61702 | 74132 SP2D7C 61701 | 74141 SP2D8C 61700 | 74150 SP3D6C 61677 | 74171 SP3D7C 61676 74200 SP3D8C 61675 | 74207 SP4D6C 61674 | 1 LISTING OF 12/01/64 PAGE 53 | POST PROCESSOR ASSEMBLY DATA | 74230 SP4D7C 61673 | 74237 SP4D8C 61672 | 61674 SP9140 61706 | 61677 SP9155 61707 | 61702 SP9170 61710 61705 SP9185 61711 | 7304 SPCOMP 60731,60734 | 73757 SPI013 73751 | 73760 SPI014 73750 | 74036 SPI066 74026 74050 SPI080 74040 | 74060 SPI089 74101,74110 | 74065 SPI094 74052,74071,74073,74102 | 74117 SPI126 74140,74147 | 74124 SPI131 74111,74130,74132,74141 74156 SPI169 74177,74206 | 74163 SPI174 74150,74167,74171,74200 | 74215 SPI206 74236,74245 | 74222 SPI212 74207,74226,74230,74237 | 37137 SPICFL 52565,52612 74026 SPNP7C 61606 | 74040 SPNP8C 61605 | 75021 SPUNCT | 75022 SSUPRS 74631,74722,74774,75007 | 5013 STZLUP 0,36150,56741,56743,63071,52571,52575,52620,56752 4531 SYMTAP 0,36135,56106,56703,65360 | 122 SYSACC | 117 SYSACT 0 | 114 SYSCEM | 155 SYSCK1 156 SYSCK2 | 120 SYSCOR | 144 SYSCRD | 102 SYSCUR | 124 SYSCYD 101 SYSDAT | 115 SYSDMP | 77777 SYSEND | 132 SYSGET | 117 SYSIDR 0,56071 151 SYSIN1 | 152 SYSIN2 | 116 SYSIOX | 133 SYSJOB | 104 SYSKEY 140 SYSLB1 | 141 SYSLB2 | 142 SYSLB3 | 143 SYSLB4 | 121 SYSLDR 3720 SYSORG | 147 SYSOU1 | 150 SYSOU2 | 146 SYSPCH | 123 SYSPID 1 LISTING OF 12/01/64 PAGE 54 | POST PROCESSOR ASSEMBLY DATA | | 106 SYSPOS | 153 SYSPP1 154 SYSPP2 | 145 SYSPRT | 103 SYSRET | 113 SYSRPT | 126 SYSSLD 105 SYSSWS | 127 SYSTCH | 100 SYSTRA 100 | 131 SYSTWT | 111 SYSUAV 110 SYSUBC | 112 SYSUCW | 107 SYSUNI | 157 SYSUT1 | 160 SYSUT2 161 SYSUT3 | 162 SYSUT4 | 75023 SZEROS 74622,74624,74702,74710 | 36717 TABLE1 36572,36656 | 36725 TABLE2 36672 73170 TABLEC 73055,73066 | 73270 TABLED 73056,73067 | 73370 TABLEE 73057,73070 | 73114 TABLES 73065 | 7174 TEMPAR 7244, 7374,36742,61677,61727,62143,62153,63170,63173,63227,63232,63247,63313,63326,63331,63335,63336 63345,63356,63362,63363,63364,63365,63366,63367,63370,63371,65422 | 6342 TPOSIT 0,55673,56121,56707,65350,65356 | 54631 TROBLE 55303,60737,61500,62076,64574 | 75074 TZZ900 75060,75072 | 75077 TZZ901 75065 75104 TZZ902 75061 | 75105 TZZ903 75051,75053 | 75106 TZZ904 75056 | 75051 TZZPRT | 36622 XBI110 36617,36626 36627 XBI190 36604,36635 | 36630 XBI191 36605,36613 | 36604 XBIBCD 57530,60461,60573,64637,65307 | 36637 XBIERR 36634 | 56315 Z2AR21 56307 56321 Z2AR22 56274,56277,56303 | 64274 Z2KB3A | 64275 Z2KB3B | 74013 ZELIM1 61621 | 74020 ZELIM2 61622 702 (ACTIV | 703 (ACTVX | 720 (BCD5R | 721 (BCD5X | 741 (CHPSW 724 (CHXAC | 750 (CHXSP | 717 (CKWAT | 1 LISTING OF 12/01/64 PAGE 55 | POST PROCESSOR ASSEMBLY DATA | 746 (COMMD | 736 (COMMM | 722 (CVPRT | 716 (DECVA 715 (DECVD | 710 (ENBSW | 732 (ETTXI | 743 (FDAMT | 747 (IBCDZ 740 (IOXSI | 737 (LTPOS | 704 (NDATA | 705 (NDSLX | 712 (PAUSE 56074 711 (PAWSX | 706 (PROUT 0 | 707 (PUNCH | 727 (RCHXI | 726 (RCTXI 744 (SDCXI | 745 (STCXI | 723 (STOPD | 713 (STOPX | 714 (SYMUN 730 (TCOXI | 733 (TEFXI | 735 (TRAPS | 734 (TRAPX | 731 (TRCXI 742 (TRPSW | 725 (URRXI | 0 SYMBOLIC REFERENCE TABLE OVERFLOWED. LISTING INCOMPLETE. | | 0 NO ERROR IN ABOVE ASSEMBLY. 1 *7090-PR-924 7090/7094 9PAC PROCESSOR, FILE PROCESSOR FP000000 * FAP FP000010 1 LISTING OF 12/01/64 PAGE 1 | | ABS FP000030 | SST FP000040 | | | | | | * 7090/7094 9PAC PROCESSOR--FILE PROCESSOR FP000080 | | * OPERATING UNDER THE IBSYS PROCESSOR (1301) FP000100 | * PROGRAM NUMBER 7090-PR-924 FP000120 | | | * VERSION 4, MODIFICATION LEVEL 0 FP000140 | 1 LISTING OF 12/01/64 PAGE 2 | 00705 SMZE EQU 453 TO FOLLOW FIRST HED A FP000170 | 00106 MGZE EQU 70 FP000180 | 00113 OTZE EQU 75 FP000190 | 00113 VTZE EQU 75 FP000200 00062 SNZE EQU 50 FP000210 | 01441 SEQID EQU 801 FP000220 | 01440 STORGZ EQU 800 FP000230 | 04000 OBPGMZ EQU 2048 FP000240 | 01750 ATBL1Z EQU 1000 FP000250 03777 STZE EQU 02047 FP000260 | 01440 ALDEFZ EQU 800 400 TWO WORD ENTRIES FP000270 | 02260 NYDEFZ EQU 1200 400 THREE WORD ENTRIES FP000280 | 00062 GHSZE EQU 50 FP000290 | 00764 CLNHOZ EQU 500 DIFFERENCE BETWEEN CLNHO AND CLNVER FP000300 00000 .. EQU 0 FP000310 | 004621 CARD BOOL 04621 FP000320 | 004447 DATE BOOL 04447 FP000330 | 006246 IOCS BOOL 6246 FP000340 | 004000 LOST BOOL 04000 FP000350 004672 ZERO BOOL 04672 FP000360 | 004712 BCOMD BOOL 04712 FP000370 | 005630 CLIST BOOL 5630 FP000380 | 004751 CSTOP BOOL 4751 FP000390 | 005134 DDEAD BOOL 5134 FP000400 005526 EOTSW BOOL 5526 FP000410 | 004350 FIL00 BOOL 04350 FP000420 | 005646 FLIST BOOL 5646 FP000430 | 004662 IND01 BOOL 04662 FP000440 | 006612 KI825 BOOL 6612 FP000450 006553 KME70 BOOL 6553 FP000460 | 004672 LZERO BOOL 04672 FP000470 | 005505 NDSRT BOOL 5505 FP000480 | 007566 NIAM1 BOOL 7566 FP000490 | 005642 NLIST BOOL 5642 FP000500 004707 NOSFD BOOL 04707 FP000510 | 004400 OBJL1 BOOL 04400 FP000520 | 006612 RGORG BOOL 6612 FP000530 | 006557 SCEOT BOOL 6557 FP000540 | 006244 SETUP BOOL 6244 FP000550 005033 STOBJ BOOL 5033 FP000560 | 004752 SYSRD BOOL 4752 FP000570 | 006245 TCJBO BOOL 6245 FP000580 | 004657 BITIND BOOL 04657 FP000590 | 004764 BSFSYS BOOL 4764 FP000600 004771 BSRSYS BOOL 4771 FP000610 | 004654 FCBORG BOOL 04654 FP000620 | 004406 FPRGSW BOOL 04406 FP000630 | 004776 FSFSYS BOOL 4776 FP000640 | 005004 FSRSYS BOOL 5004 FP000650 004655 JOBTYP BOOL 04655 FP000660 | 004661 LSTIND BOOL 04661 FP000670 | 004660 PCHIND BOOL 04660 FP000680 | 005255 RD(WR) BOOL 5255 FP000690 | 004410 RGSMTP BOOL 04410 FP000700 006474 SETDEN BOOL 6474 FP000710 | 005115 SGNOFF BOOL 5115 FP000720 | 1 LISTING OF 12/01/64 PAGE 3 | | 005013 STZLUP BOOL 5013 FP000730 004531 SYMTAP BOOL 04531 FP000740 | 006342 TPOSIT BOOL 6342 FP000750 | 020261 BDBIN BOOL 20261 FP000760 | 015631 BINBF BOOL 15631 FP000770 | 017552 BKSPC BOOL 17552 FP000780 017404 BKSPT BOOL 17404 FP000790 | 015630 BUFER BOOL 15630 FP000800 | 020175 CHBCD BOOL 20175 FP000810 | 017300 CHLOC BOOL 17300 FP000820 | 020210 CVBCD BOOL 20210 FP000830 017742 CVBIN BOOL 17742 FP000840 | 020064 DBBIN BOOL 20064 FP000850 | 017561 DELET BOOL 17561 FP000860 | 017551 DEXIF BOOL 17551 FP000870 | 017005 EOJOB BOOL 17005 FP000880 021433 GETBI BOOL 21433 FP000890 | 021466 GETPA BOOL 21466 FP000900 | 021442 GETUN BOOL 21442 FP000910 | 022453 HCKSM BOOL 22453 FP000920 | 021104 HORDO BOOL 21104 FP000930 022436 IMPOS BOOL 22436 FP000940 | 016174 INPUT BOOL 16174 FP000950 | 022221 MGRCD BOOL 22221 FP000960 | 022174 MRGLO BOOL 22174 FP000970 | 022207 MRGUN BOOL 22207 FP000980 017334 NEWRD BOOL 17334 FP000990 | 016555 OUTPT BOOL 16555 FP001000 | 022564 PRERR BOOL 22564 FP001010 | 022524 PRICT BOOL 22524 FP001020 | 021536 PUTBI BOOL 21536 FP001030 021673 PUTPA BOOL 21673 FP001040 | 021652 PUTUN BOOL 21652 FP001050 | 017404 RDCNT BOOL 17404 FP001060 | 022320 REJXR BOOL 22320 FP001070 | 021400 STEPP BOOL 21400 FP001080 022003 SUMRY BOOL 22003 FP001090 | 020642 TO702 BOOL 20642 FP001100 | 020777 TO709 BOOL 20777 FP001110 | 020213 TOBCD BOOL 20213 FP001120 | 017747 TOBIN BOOL 17747 FP001130 022052 TOFRM BOOL 22052 FP001140 | 016072 TYPER BOOL 16072 FP001150 | 022315 Y1006 BOOL 22315 FP001160 | 022603 Y6010 BOOL 22603 FP001170 | 022620 Y6150 BOOL 22620 FP001180 022624 Y6210 BOOL 22624 FP001190 | 022641 Y6410 BOOL 22641 FP001200 | 022650 Y6510 BOOL 22650 FP001210 | 022700 Y6710 BOOL 22700 FP001220 | 022712 Y6810 BOOL 22712 FP001230 022721 Y7010 BOOL 22721 FP001240 | 023636 DXIFPF BOOL 23636 FP001250 | 004746 IBSBSR BOOL 4746 FP001260 | 005076 LD9PAC BOOL 5076 FP001270 | * FP001280 1 LISTING OF 12/01/64 PAGE 4 | | 00706 MWR EQU (PROUT FP001290 | 22175 MLCUR EQU MRGLO+1 FP001300 | 22176 DICLO EQU MRGLO+2 FP001310 22177 VALLO EQU MRGLO+3 FP001320 | 22200 HORXR EQU MRGLO+4 FP001330 | 22201 ESWCH EQU MRGLO+5 FP001340 | 22202 DSWCH EQU MRGLO+6 FP001350 | 22203 HIGH EQU MRGLO+7 FP001360 22204 EQUAL EQU MRGLO+8 FP001370 | 22205 ISWCH EQU MRGLO+9 FP001380 | 22206 PSWCH EQU MRGLO+10 FP001390 | 22207 REJSW EQU MRGLO+11 FP001400 | 15647 BCDBF EQU BINBF+14 FP001410 20262 BDBCL EQU BDBIN+1 FP001420 | 20263 BDBCR EQU BDBIN+2 FP001430 | 017645 BKSCT BOOL 17645 FP001440 | 17671 NSLCT EQU BKSCT+20 FP001450 | 17301 SFLOC EQU CHLOC+1 FP001460 17310 INLOC EQU CHLOC+8 FP001470 | 20065 DBBCL EQU DBBIN+1 FP001480 | 20066 DBBCR EQU DBBIN+2 FP001490 | 04334 FIL01 EQU FIL00-1*12 FP001500 | 04320 FIL02 EQU FIL00-2*12 FP001510 04304 FIL03 EQU FIL00-3*12 FP001520 | 04270 FIL04 EQU FIL00-4*12 FP001530 | 04254 FIL05 EQU FIL00-5*12 FP001540 | 04240 FIL06 EQU FIL00-6*12 FP001550 | 04224 FIL07 EQU FIL00-7*12 FP001560 04210 FIL08 EQU FIL00-8*12 FP001570 | 04174 FIL09 EQU FIL00-9*12 FP001580 | 04160 FIL10 EQU FIL00-10*12 FP001590 | 04144 FIL11 EQU FIL00-11*12 FP001600 | 04130 FIL12 EQU FIL00-12*12 FP001610 04114 FIL13 EQU FIL00-13*12 FP001620 | 04100 FIL14 EQU FIL00-14*12 FP001630 | 04064 FIL15 EQU FIL00-15*12 FP001640 | 04050 FIL16 EQU FIL00-16*12 FP001650 | 04034 FIL17 EQU FIL00-17*12 FP001660 04020 FIL18 EQU FIL00-18*12 FP001670 | 04004 FIL19 EQU FIL00-19*12 FP001680 | 16173 INPTN EQU INPUT-1 FP001690 | 22210 MERGE EQU MRGUN+1 FP001700 | 22316 Y1007 EQU Y1006+1 FP001710 04710 NOCHD EQU NOSFD+1 FP001720 | 22321 SAVXR EQU REJXR+1 FP001730 | 04401 OBJL2 EQU OBJL1+1 FP001740 | 04402 OBJL3 EQU OBJL1+2 FP001750 | 04403 OBJL4 EQU OBJL1+3 FP001760 04404 OBJL5 EQU OBJL1+4 FP001770 | 04405 OBJL6 EQU OBJL1+5 FP001780 | 04673 ONE EQU ZERO+1 FP001790 | 04674 TWO EQU ZERO+2 FP001800 | 04675 THREE EQU ZERO+3 FP001810 04676 FOUR EQU ZERO+4 FP001820 | 04677 FIVE EQU ZERO+5 FP001830 | 04700 SIX EQU ZERO+6 FP001840 | 1 LISTING OF 12/01/64 PAGE 5 | 04701 SEVEN EQU ZERO+7 FP001850 | 04702 EIGHT EQU ZERO+8 FP001860 | 04703 NINE EQU ZERO+9 FP001870 | 04704 TEN EQU ZERO+10 FP001880 | 06252 DEFINE EQU IOCS+4 FP001890 06254 JOIN EQU IOCS+6 FP001900 | 06256 ATTACH EQU IOCS+8 FP001910 | 06260 CLOSE EQU IOCS+10 FP001920 | 06262 OPEN EQU IOCS+12 FP001930 | 06264 READ EQU IOCS+14 FP001940 06266 WRITE EQU IOCS+16 FP001950 | 06270 COPY EQU IOCS+18 FP001960 | 06272 REW EQU IOCS+20 FP001970 | 06274 WEF EQU IOCS+22 FP001980 | 06276 BSR EQU IOCS+24 FP001990 06300 BSF EQU IOCS+26 FP002000 | 06302 CKPT EQU IOCS+28 FP002010 | 06304 STASH EQU IOCS+30 FP002020 | 06316 JOBID EQU IOCS+40 FP002030 | 06321 LAREA EQU IOCS+43 FP002040 00012 SIXCHZ EQU 10 FP002050 | 05642 TOPRT EQU NLIST FP002060 | 04401 ADRES EQU OBJL2 FP002070 | 17310 RECRD EQU INLOC FP002080 | * FP002090 1 LISTING OF 12/01/64 PAGE 6 | MAIN1 (9PAC31). GENERATOR SUB-ROUTINES. GENERAL | | * FP002120 | 07566 ORG NIAM1 FP002130 07566 114721230301 BCI 1,9PAC31 MAIN 1 FP002140 | 07567 442131450160 BCI 1,MAIN1 FP002150 | 00100 ORG SYSTRA FP002160 | 00100 0020 00 0 25542 TRA AB110 TO HSKP1 FP002170 | 07570 ORG NIAM1+2 FP002180 * FP002190 | * FP002200 | * FP002210 | * FP002220 | * FP002230 * SUB-RTN BCD TO BINARY CONVERSION UP TO ELEVEN BCD C FP002240 | * FP002250 | 07570 0600 00 0 07753 B0010 STZ B1031 B0010 FP002260 | 07571 0020 00 0 07573 TRA *+2 B0011 FP002270 | 07572 -0625 00 0 07753 B0012 STL B1031 B0012FP002280 07573 0634 00 4 07662 SXA B0460,4 B0013 FP002290 | 07574 0604 00 0 07773 STI B1090 B0014 FP002300 | 07575 0441 00 0 07751 LDI B1020 B0020 FP002310 | 07576 0600 00 0 07747 STZ B1000 B0021 FP002320 | 07577 -0500 00 0 07752 CAL B1030 B0030 FP002330 07600 0320 00 0 07751 ANS B1020 B0040 FP002340 | 07601 -0520 00 0 07751 NZT B1020 B0050 FP002350 | 07602 0020 00 0 07621 TRA *+15 B0060 FP002360 | 07603 -0500 00 0 07751 CAL B1020 B0061 FP002370 | 07604 -0320 00 0 10726 ANA BCD01 B0062 FP002380 07605 0402 00 0 07756 SUB B1060 B0063 FP002390 | 07606 -0100 00 0 07611 TNZ *+3 B0064 FP002400 | 07607 -0500 00 0 11023 CAL BCD76 B0065 FP002410 | 07610 0320 00 0 07751 ANS B1020 B0066 FP002420 | 07611 0560 00 0 07751 LDQ B1020 B0070 FP002430 07612 0774 00 4 00006 AXT 6,4 B0080 FP002440 | 07613 -0754 00 0 00000 PXD 0,0 B0090 FP002450 | 07614 -0763 00 0 00006 LGL 6 B0100 FP002460 | 07615 -0340 00 0 07755 LAS B1050 11 OCTAL B0110 FP002470 | 07616 0020 00 0 07672 TRA B0470 B0120 FP002480 07617 0761 00 0 00000 NOP B0130 FP002490 | 07620 2 00001 4 07613 TIX *-5,4,1 B0140 FP002500 | 07621 -0520 00 0 07750 NZT B1010 B0150 FP002510 | 07622 0020 00 0 07633 TRA *+9 B0160 FP002520 | 07623 0560 00 0 07750 LDQ B1010 B0170 FP002530 07624 0774 00 4 00006 AXT 6,4 B0180 FP002540 | 07625 -0754 00 0 00000 PXD 0,0 B0190 FP002550 | 07626 -0763 00 0 00006 LGL 6 B0200 FP002560 | 07627 -0340 00 0 07755 LAS B1050 11 OCTAL B0210 FP002570 | 07630 0020 00 0 07672 TRA B0470 B0220 FP002580 07631 0761 00 0 00000 NOP B0230 FP002590 | 07632 2 00001 4 07625 TIX *-5,4,1 B0240 FP002600 | 07633 -0754 00 0 00000 PXD 0,0 B0250 FP002610 | 07634 0560 00 0 07751 LDQ B1020 B0260 FP002620 | 07635 -0114 06 0 07774 CAQ B2000,0,6 B0270 FP002630 07636 0771 00 0 00020 ARS 16 B0280 FP002640 | 07637 -0520 00 0 07750 NZT B1010 B0290 FP002650 | 07640 0020 00 0 07651 TRA *+9 B0300 FP002660 | 1 LISTING OF 12/01/64 PAGE 7 | MAIN1 (9PAC31). GENERATOR SUB-ROUTINES. GENERAL | 07641 0601 00 0 07747 STO B1000 B0310 FP002670 | 07642 -0754 00 0 00000 PXD 0,0 B0320 FP002680 | 07643 0560 00 0 07750 LDQ B1010 B0330 FP002690 | 07644 -0114 06 0 07774 CAQ B2000,0,6 B0340 FP002700 07645 0771 00 0 00020 ARS 16 B0350 FP002710 | 07646 0131 00 0 00000 XCA FOR OBJECT B0351 FP002720 | 07647 0200 00 0 07754 MPY B1040 B0360 FP002730 | 07650 0131 00 0 00000 XCA FOR GENERATOR B0361 FP002740 | 07651 0400 00 0 07747 ADD B1000 B0370 FP002750 07652 0056 00 000040 RNT 40 B0380 FP002760 | 07653 0020 00 0 07657 TRA *+4 B0390 FP002770 | 07654 0054 00 000020 RFT 20 B0400 FP002780 | 07655 0020 00 0 07672 TRA B0470 B0410 FP002790 | 07656 -0760 00 0 00003 SSM B0420 FP002800 07657 0601 00 0 07747 STO B1000 B0430 FP002810 | 07660 0600 00 0 07750 STZ B1010 B0440 FP002820 | 07661 0600 00 0 07751 STZ B1020 B0450 FP002830 | 07662 0774 00 4 00000 B0460 AXT 0,4 B0460 FP002840 | 07663 -0520 00 0 07753 NZT B1031 B04600FP002850 07664 0020 00 0 07670 TRA *+4 B04600FP002860 | 07665 0765 00 0 00043 LRS 35 B04600FP002870 | 07666 0221 00 0 11033 DVP NMBR6 B04600FP002880 | 07667 -0100 00 0 07672 TNZ B0470 B04600FP002890 | 07670 0441 00 0 07773 LDI B1090 B04605FP002900 07671 0020 00 4 00001 B0461 TRA 1,4 B0461 FP002910 | 07672 0560 00 0 07750 B0470 LDQ B1010 B0470 FP002920 | 07673 0774 00 4 00006 AXT 6,4 B0480 FP002930 | 07674 0767 00 0 00003 ALS 3 B0490 FP002940 | 07675 -0763 00 0 00003 LGL 3 B0500 FP002950 07676 2 00001 4 07674 TIX *-2,4,1 B0510 FP002960 | 07677 0602 00 0 07763 SLW B1070+3 B0520 FP002970 | 07700 0774 00 4 00006 AXT 6,4 B0530 FP002980 | 07701 0767 00 0 00003 ALS 3 B0540 FP002990 | 07702 -0763 00 0 00003 LGL 3 B0550 FP003000 07703 2 00001 4 07701 TIX *-2,4,1 B0560 FP003010 | 07704 0602 00 0 07764 SLW B1070+4 B0570 FP003020 | 07705 0560 00 0 07751 LDQ B1020 B0580 FP003030 | 07706 0774 00 4 00006 AXT 6,4 B0590 FP003040 | 07707 0767 00 0 00003 ALS 3 B0600 FP003050 07710 -0763 00 0 00003 LGL 3 B0610 FP003060 | 07711 2 00001 4 07707 TIX *-2,4,1 B0620 FP003070 | 07712 0602 00 0 07765 SLW B1070+5 B0630 FP003080 | 07713 0774 00 4 00006 AXT 6,4 B0640 FP003090 | 07714 0767 00 0 00003 ALS 3 B0650 FP003100 07715 -0763 00 0 00003 LGL 3 B0660 FP003110 | 07716 2 00001 4 07714 TIX *-2,4,1 B0670 FP003120 | 07717 0602 00 0 07766 SLW B1070+6 B0680 FP003130 | 07720 0560 00 0 07662 LDQ B0460 B0710 FP003140 | 07721 -0500 00 0 07772 CAL B1080 BLANKS B0720 FP003150 07722 -0773 00 0 00025 RQL 21 B0730 FP003160 | 07723 0774 00 4 00005 AXT 5,4 B0740 FP003170 | 07724 0767 00 0 00003 ALS 3 B0750 FP003180 | 07725 -0763 00 0 00003 LGL 3 B0760 FP003190 | 07726 2 00001 4 07724 TIX *-2,4,1 B0770 FP003200 07727 0602 00 0 07757 SLW B1069 B0780 FP003210 | 1 LISTING OF 12/01/64 PAGE 8 | MAIN1 (9PAC31). GENERATOR SUB-ROUTINES. GENERAL | | 07730 0074 00 4 05630 TSX CLIST,4 FP003220 07731 0 00010 1 07757 PZE B1069,1,8 FP003230 | 07732 -0520 00 0 07753 NZT B1031 B0801 FP003240 | 07733 0020 00 0 07736 TRA *+3 B0802 FP003250 | 07734 0074 00 4 05630 TSX CLIST,4 FP003260 | 07735 0 00003 1 07767 PZE B1077,1,3 FP003270 07736 0074 00 4 05630 TSX CLIST,4 FP003280 | 07737 0 00014 1 04621 PZE CARD,1,12 FP003290 | 07740 0534 00 4 07662 B0810 LXA B0460,4 B0810 FP003300 | 07741 0600 00 0 07750 STZ B1010 B0814 FP003310 | 07742 0600 00 0 07751 STZ B1020 B0815 FP003320 07743 0600 00 0 07747 STZ B1000 B0816 FP003330 | 07744 -0625 00 0 11375 STL QUIT B0820 FP003340 | 07745 0441 00 0 07773 LDI B1090 B0821 FP003350 | 07746 0020 00 4 00001 TRA 1,4 B0830 FP003360 | 07747 0 00000 0 00000 B1000 PZE BINARY WORD B1000 FP003370 07750 0 00000 0 00000 B1010 PZE BCD WORD 1 B1010 FP003380 | 07751 0 00000 0 00000 B1020 PZE BCD WORD 2 B1020 FP003390 | 07752 -377777777717 B1030 OCT 777777777717 MASK B1030 FP003400 | 07753 0 00000 0 00000 B1031 PZE 0 MULT OF SIX SW(ZERO--DO NOT TEST B1031 FP003410 | 07754 +000003641100 B1040 DEC 1000000 B1040 FP003420 07755 +000000000011 B1050 OCT 11 B1050 FP003430 | 07756 +000000000012 B1060 OCT 12 B1060 FP003440 | 07757 606767676767 B1069 BCI 1, XXXXX B1069 FP003450 | 07760 222324402231 B1070 BCI 7,BCD-BIN CONV ERR XXXXXXXXXXXXXXXXXXXXXXXX B1070 FP003460 | 07761 456023464565 07762 602551516060 | 07763 606060606767 | 07764 676767676767 | 07765 676767676767 | 07766 676767676767 07767 454663602160 B1077 BCI 3,NOT A MULT OF SIX. B1077 FP003470 | 07770 446443636046 | 07771 266062316733 | 07772 606060606060 B1080 BCI 1, B1080 FP003480 | 07773 0 00000 0 00000 B1090 PZE B1090 FP003490 * FP003500 | * FP003510 | * SUB-RTN BCD TO BINARY CONVERSION TABLES FP003520 | * FP003530 | 07774 0 00000 0 10006 B2000 PZE B2100 BCD TO BINARY TABLE B2000 FP003540 07775 0 60650 0 10006 PZE B2100,,25000 100,000 B2010 FP003550 | 07776 1 41520 0 10006 PON B2100,,17232 B2020 FP003560 | 07777 2 22370 0 10006 PTW B2100,,9464 B2030 FP003570 | 10000 3 03240 0 10006 PTH B2100,,1696 B2040 FP003580 | 10001 3 64110 0 10006 PTH B2100,,26696 B2050 FP003590 10002 -0 44760 0 10006 MZE B2100,,18928 B2060 FP003600 | 10003 -1 25630 0 10006 MON B2100,,11160 B2070 FP003610 | 10004 -2 06500 0 10006 MTW B2100,,3392 B2080 FP003620 | 10005 -2 67350 0 10006 MTW B2100,,28392 B2090 FP003630 | 10006 0 00000 0 10020 B2100 PZE B2200 B2100 FP003640 10007 0 04704 0 10020 PZE B2200,,2500 10,000 B2110 FP003650 | 10010 0 11610 0 10020 PZE B2200,,5000 B2120 FP003660 | 10011 0 16514 0 10020 PZE B2200,,7500 B2130 FP003670 | 10012 0 23420 0 10020 PZE B2200,,10000 B2140 FP003680 | 1 LISTING OF 12/01/64 PAGE 9 MAIN1 (9PAC31). GENERATOR SUB-ROUTINES. GENERAL | | 10013 0 30324 0 10020 PZE B2200,,12500 B2150 FP003690 | 10014 0 35230 0 10020 PZE B2200,,15000 B2160 FP003700 | 10015 0 42134 0 10020 PZE B2200,,17500 B2170 FP003710 10016 0 47040 0 10020 PZE B2200,,20000 B2180 FP003720 | 10017 0 53744 0 10020 PZE B2200,,22500 B2190 FP003730 | 10020 0 00000 0 10032 B2200 PZE B2300 B2200 FP003740 | 10021 0 00372 0 10032 PZE B2300,,250 1,000 B2210 FP003750 | 10022 0 00764 0 10032 PZE B2300,,500 B2220 FP003760 10023 0 01356 0 10032 PZE B2300,,750 B2230 FP003770 | 10024 0 01750 0 10032 PZE B2300,,1000 B2240 FP003780 | 10025 0 02342 0 10032 PZE B2300,,1250 B2250 FP003790 | 10026 0 02734 0 10032 PZE B2300,,1500 B2260 FP003800 | 10027 0 03326 0 10032 PZE B2300,,1750 B2270 FP003810 10030 0 03720 0 10032 PZE B2300,,2000 B2280 FP003820 | 10031 0 04312 0 10032 PZE B2300,,2250 B2290 FP003830 | 10032 0 00000 0 10044 B2300 PZE B2400,, B2300 FP003840 | 10033 0 00031 0 10044 PZE B2400,,25 100 B2310 FP003850 | 10034 0 00062 0 10044 PZE B2400,,50 B2320 FP003860 10035 0 00113 0 10044 PZE B2400,,75 B2330 FP003870 | 10036 0 00144 0 10044 PZE B2400,,100 B2340 FP003880 | 10037 0 00175 0 10044 PZE B2400,,125 B2350 FP003890 | 10040 0 00226 0 10044 PZE B2400,,150 B2360 FP003900 | 10041 0 00257 0 10044 PZE B2400,,175 B2370 FP003910 10042 0 00310 0 10044 PZE B2400,,200 B2380 FP003920 | 10043 0 00341 0 10044 PZE B2400,,225 B2390 FP003930 | 10044 0 00000 0 10056 B2400 PZE B2500 B2400 FP003940 | 10045 0 00002 4 10056 PZE B2500,4,2 10 B2410 FP003950 | 10046 0 00005 0 10056 PZE B2500,,5 B2420 FP003960 10047 0 00007 4 10056 PZE B2500,4,7 B2430 FP003970 | 10050 0 00012 0 10056 PZE B2500,,10 B2440 FP003980 | 10051 0 00014 4 10056 PZE B2500,4,12 B2450 FP003990 | 10052 0 00017 0 10056 PZE B2500,,15 B2460 FP004000 | 10053 0 00021 4 10056 PZE B2500,4,17 B2470 FP004010 10054 0 00024 0 10056 PZE B2500,,20 B2480 FP004020 | 10055 0 00026 4 10056 PZE B2500,4,22 B2490 FP004030 | 10056 0 00000 0 00000 B2500 PZE B2500 FP004040 | 10057 0 00000 2 00000 PZE 0,2,0 1 B2510 FP004050 | 10060 0 00000 4 00000 PZE 0,4,0 B2520 FP004060 10061 0 00000 6 00000 PZE 0,6,0 B2530 FP004070 | 10062 0 00001 0 00000 PZE 0,,1 B2540 FP004080 | 10063 0 00001 2 00000 PZE 0,2,1 B2550 FP004090 | 10064 0 00001 4 00000 PZE 0,4,1 B2560 FP004100 | 10065 0 00001 6 00000 PZE 0,6,1 B2570 FP004110 10066 0 00002 0 00000 PZE 0,,2 B2580 FP004120 | 10067 0 00002 2 00000 PZE 0,2,2 B2590 FP004130 | * FP004140 | * FP004150 | * FP004160 1 LISTING OF 12/01/64 PAGE 10 | MAIN1 (9PAC31). GENERATOR SUB-ROUTINES. GENERAL | | * FP004180 | * BINARY TO BCD B5000 FP004190 * FP004200 | 10070 0500 00 0 10127 B5010 CLA B6000 BINARY WORD B5010 FP004210 | 10071 0560 00 0 10132 LDQ B6030 ZEROS B5020 FP004220 | 10072 0765 00 0 00022 LRS 18 B5030 FP004230 | 10073 0224 22 0 10134 VDH B6050,0,18 B5040 FP004240 10074 0601 00 0 10133 STO B6040 STORAGE B5050 FP004250 | 10075 -0763 00 0 00022 LGL 18 B5060 FP004260 | 10076 -0754 00 0 00000 PXD 0,0 ZERO AC B5070 FP004270 | 10077 -0114 01 0 10142 CAQ B7100,,1 TABLE 2 B5080 FP004280 | 10100 -0114 01 0 10242 CAQ B7200,,1 TABLE 3 B5090 FP004290 10101 -0114 01 0 10342 CAQ B7300,,1 TABLE 4 B5100 FP004300 | 10102 0114 06 0 10442 CVR B7400,,6 PROPOGATE CARRYS TABLE 5 B5110 FP004310 | 10103 0602 00 0 10130 SLW B6010 STORE PART 1-LEFT WORD B5120 FP004320 | 10104 0560 00 0 10133 LDQ B6040 STORAGE B5130 FP004330 | 10105 -0763 00 0 00014 LGL 12 B5140 FP004340 10106 -0754 00 0 00000 PXD 0,0 B5150 FP004350 | 10107 -0114 01 0 10136 CAQ B7000,,1 TABLE 1 B5160 FP004360 | 10110 -0114 01 0 10142 CAQ B7100,,1 TABLE 2 B5170 FP004370 | 10111 -0114 01 0 10242 CAQ B7200,,1 TABLE 3 B5180 FP004380 | 10112 -0114 01 0 10342 CAQ B7300,,1 TABLE 4 B5190 FP004390 10113 0114 06 0 10442 CVR B7400,,6 PROPOGATE CARRYS TABLE 5 B5200 FP004400 | 10114 0602 00 0 10131 SLW B6020 RIGHT WORD B5210 FP004410 | 10115 0500 00 0 10127 CLA B6000 BINARY WORD B5220 FP004420 | 10116 0120 00 0 10126 TPL *+8 B5230 FP004430 | 10117 -0500 00 0 10131 CAL B6020 B5231 FP004440 10120 -0320 00 0 10726 ANA BCD01 B5232 FP004450 | 10121 -0100 00 0 10124 TNZ *+3 B5233 FP004460 | 10122 -0500 00 0 07756 CAL B1060 B5234 FP004470 | 10123 -0602 00 0 10131 ORS B6020 B5235 FP004480 | 10124 -0500 00 0 10135 CAL B6060 MINUS-MASK B5240 FP004490 10125 -0602 00 0 10131 ORS B6020 B5250 FP004500 | 10126 0020 00 4 00001 TRA 1,4 B5260 FP004510 | 10127 0 00000 0 00000 B6000 PZE BINARY WORD B6000 FP004520 | 10130 0 00000 0 00000 B6010 PZE LEFT BCD B6010 FP004530 | 10131 0 00000 0 00000 B6020 PZE RIGHT BCD B6020 FP004540 10132 0 00000 0 00000 B6030 PZE 0 ZEROS B6030 FP004550 | 10133 0 00000 0 00000 B6040 PZE STORAGE WORD B6040 FP004560 | 10134 +000003641100 B6050 DEC 1000000 ONE MILLION B6050 FP004570 | 10135 +000000000040 B6060 OCT 40 MINUS-MASK B6060 FP004580 | 10136 0 00000 0 00000 B7000 PZE 0 TABLE 1-0000000 OCATL B7000 FP004590 10137 020602010404 BCI 1,262144 1 B7001 FP004600 | 10140 050204021010 BCI 1,524288 2 B7002 FP004610 | 10141 071006040302 BCI 1,786432 3 B7003 FP004620 | 10142 0 00000 0 00000 B7100 PZE 0 TABLE 2-00000 OCTAL B7100 FP004630 | 10143 000004001106 BCI 1,004096 B7101 FP004640 10144 000010011102 BCI 1,008192 B7102 FP004650 | 10145 000102021010 BCI 1,012288 B7103 FP004660 | 10146 000106031004 BCI 1,016384 B7104 FP004670 | 10147 000200041000 BCI 1,020480 B7105 FP004680 | 10150 000204050706 BCI 1,024576 B7106 FP004690 10151 000210060702 BCI 1,028672 B7107 FP004700 | 10152 000302070610 BCI 1,032768 B7010 FP004710 | 10153 000306100604 BCI 1,036864 B7011 FP004720 | 1 LISTING OF 12/01/64 PAGE 11 | MAIN1 (9PAC31). GENERATOR SUB-ROUTINES. GENERAL | 10154 000400110600 BCI 1,040960 B7012 FP004730 | 10155 000405000506 BCI 1,045056 B7013 FP004740 | 10156 000411010502 BCI 1,049152 B7014 FP004750 | 10157 000503020410 BCI 1,053248 B7015 FP004760 10160 000507030404 BCI 1,057344 B7016 FP004770 | 10161 000601040400 BCI 1,061440 B7017 FP004780 | 10162 000605050306 BCI 1,065536 B7020 FP004790 | 10163 000611060302 BCI 1,069632 B7021 FP004800 | 10164 000703070210 BCI 1,073728 B7022 FP004810 10165 000707100204 BCI 1,077824 B7023 FP004820 | 10166 001001110200 BCI 1,081920 B7024 FP004830 | 10167 001006000106 BCI 1,086016 B7025 FP004840 | 10170 001100010102 BCI 1,090112 B7026 FP004850 | 10171 001104020010 BCI 1,094208 B7027 FP004860 10172 001110030004 BCI 1,098304 B7130 FP004870 | 10173 010002040000 BCI 1,102400 B7131 FP004880 | 10174 010006041106 BCI 1,106496 B7132 FP004890 | 10175 010100051102 BCI 1,110592 B7133 FP004900 | 10176 010104061010 BCI 1,114688 B7134 FP004910 10177 010110071004 BCI 1,118784 B7135 FP004920 | 10200 010202101000 BCI 1,122880 B7136 FP004930 | 10201 010206110706 BCI 1,126976 B7137 FP004940 | 10202 010301000702 BCI 1,131072 B7140 FP004950 | 10203 010305010610 BCI 1,135168 B7141 FP004960 10204 010311020604 BCI 1,139264 B7142 FP004970 | 10205 010403030600 BCI 1,143360 B7143 FP004980 | 10206 010407040506 BCI 1,147456 B7144 FP004990 | 10207 010501050502 BCI 1,151552 B7145 FP005000 | 10210 010505060410 BCI 1,155648 B7146 FP005010 10211 010511070404 BCI 1,159744 B7147 FP005020 | 10212 010603100400 BCI 1,163840 B7150 FP005030 | 10213 010607110306 BCI 1,167936 B7151 FP005040 | 10214 010702000302 BCI 1,172032 B7152 FP005050 | 10215 010706010210 BCI 1,176128 B7153 FP005060 10216 011000020204 BCI 1,180224 B7154 FP005070 | 10217 011004030200 BCI 1,184320 B7155 FP005080 | 10220 011010040106 BCI 1,188416 B7156 FP005090 | 10221 011102050102 BCI 1,192512 B7157 FP005100 | 10222 011106060010 BCI 1,196608 B7160 FP005110 10223 020000070004 BCI 1,200704 B7161 FP005120 | 10224 020004100000 BCI 1,204800 B7162 FP005130 | 10225 020010101106 BCI 1,208896 B7163 FP005140 | 10226 020102111102 BCI 1,212992 B7164 FP005150 | 10227 020107001010 BCI 1,217088 B7165 FP005160 10230 020201011004 BCI 1,221184 B7166 FP005170 | 10231 020205021000 BCI 1,225280 B7167 FP005180 | 10232 020211030706 BCI 1,229376 B7170 FP005190 | 10233 020303040702 BCI 1,233472 B7171 FP005200 | 10234 020307050610 BCI 1,237568 B7172 FP005210 10235 020401060604 BCI 1,241664 B7173 FP005220 | 10236 020405070600 BCI 1,245760 B7174 FP005230 | 10237 020411100506 BCI 1,249856 B7175 FP005240 | 10240 020503110502 BCI 1,253952 B7176 FP005250 | 10241 020510000410 BCI 1,258048 B7177 FP005260 10242 0 00000 0 00000 B7200 PZE 0 TABLE 3-000 OCTAL B7200 FP005270 | 1 LISTING OF 12/01/64 PAGE 12 | MAIN1 (9PAC31). GENERATOR SUB-ROUTINES. GENERAL | | 10243 000000000604 BCI 1,000064 B7201 FP005280 10244 000000010210 BCI 1,000128 B7202 FP005290 | 10245 000000011102 BCI 1,000192 B7203 FP005300 | 10246 000000020506 BCI 1,000256 B7204 FP005310 | 10247 000000030200 BCI 1,000320 B7205 FP005320 | 10250 000000031004 BCI 1,000384 B7206 FP005330 10251 000000040410 BCI 1,000448 B7207 FP005340 | 10252 000000050102 BCI 1,000512 B7210 FP005350 | 10253 000000050706 BCI 1,000576 B7211 FP005360 | 10254 000000060400 BCI 1,000640 B7212 FP005370 | 10255 000000070004 BCI 1,000704 B7213 FP005380 10256 000000070610 BCI 1,000768 B7214 FP005390 | 10257 000000100302 BCI 1,000832 B7215 FP005400 | 10260 000000101106 BCI 1,000896 B7216 FP005410 | 10261 000000110600 BCI 1,000960 B7217 FP005420 | 10262 000001000204 BCI 1,001024 B7220 FP005430 10263 000001001010 BCI 1,001088 B7221 FP005440 | 10264 000001010502 BCI 1,001152 B7222 FP005450 | 10265 000001020106 BCI 1,001216 B7223 FP005460 | 10266 000001021000 BCI 1,001280 B7224 FP005470 | 10267 000001030404 BCI 1,001344 B7225 FP005480 10270 000001040010 BCI 1,001408 B7226 FP005490 | 10271 000001040702 BCI 1,001472 B7227 FP005500 | 10272 000001050306 BCI 1,001536 B7230 FP005510 | 10273 000001060000 BCI 1,001600 B7231 FP005520 | 10274 000001060604 BCI 1,001664 B7232 FP005530 10275 000001070210 BCI 1,001728 B7233 FP005540 | 10276 000001071102 BCI 1,001792 B7234 FP005550 | 10277 000001100506 BCI 1,001856 B7235 FP005560 | 10300 000001110200 BCI 1,001920 B7236 FP005570 | 10301 000001111004 BCI 1,001984 B7237 FP005580 10302 000002000410 BCI 1,002048 B7240 FP005590 | 10303 000002010102 BCI 1,002112 B7241 FP005600 | 10304 000002010706 BCI 1,002176 B7242 FP005610 | 10305 000002020400 BCI 1,002240 B7243 FP005620 | 10306 000002030004 BCI 1,002304 B7244 FP005630 10307 000002030610 BCI 1,002368 B7245 FP005640 | 10310 000002040302 BCI 1,002432 B7246 FP005650 | 10311 000002041106 BCI 1,002496 B7247 FP005660 | 10312 000002050600 BCI 1,002560 B7250 FP005670 | 10313 000002060204 BCI 1,002624 B7251 FP005680 10314 000002061010 BCI 1,002688 B7252 FP005690 | 10315 000002070502 BCI 1,002752 B7253 FP005700 | 10316 000002100106 BCI 1,002816 B7254 FP005710 | 10317 000002101000 BCI 1,002880 B7255 FP005720 | 10320 000002110404 BCI 1,002944 B7256 FP005730 10321 000003000010 BCI 1,003008 B7257 FP005740 | 10322 000003000702 BCI 1,003072 B7260 FP005750 | 10323 000003010306 BCI 1,003136 B7261 FP005760 | 10324 000003020000 BCI 1,003200 B7262 FP005770 | 10325 000003020604 BCI 1,003264 B7263 FP005780 10326 000003030210 BCI 1,003328 B7264 FP005790 | 10327 000003031102 BCI 1,003392 B7265 FP005800 | 10330 000003040506 BCI 1,003456 B7266 FP005810 | 10331 000003050200 BCI 1,003520 B7267 FP005820 | 1 LISTING OF 12/01/64 PAGE 13 MAIN1 (9PAC31). GENERATOR SUB-ROUTINES. GENERAL | | 10332 000003051004 BCI 1,003584 B7270 FP005830 | 10333 000003060410 BCI 1,003648 B7271 FP005840 | 10334 000003070102 BCI 1,003712 B7272 FP005850 10335 000003070706 BCI 1,003776 B7273 FP005860 | 10336 000003100400 BCI 1,003840 B7274 FP005870 | 10337 000003110004 BCI 1,003904 B7275 FP005880 | 10340 000003110610 BCI 1,003968 B7276 FP005890 | 10341 000004000302 BCI 1,004032 B7277 FP005900 10342 0 00000 0 00000 B7300 PZE 0 TABLE 4-0 OCTAL B7300 FP005910 | 10343 000000000001 BCI 1,000001 B7301 FP005920 | 10344 000000000002 BCI 1,000002 B7302 FP005930 | 10345 000000000003 BCI 1,000003 B7303 FP005940 | 10346 000000000004 BCI 1,000004 B7304 FP005950 10347 000000000005 BCI 1,000005 B7305 FP005960 | 10350 000000000006 BCI 1,000006 B7306 FP005970 | 10351 000000000007 BCI 1,000007 B7307 FP005980 | 10352 000000000010 BCI 1,000008 B7310 FP005990 | 10353 000000000011 BCI 1,000009 B7311 FP006000 10354 000000000100 BCI 1,000010 B7312 FP006010 | 10355 000000000101 BCI 1,000011 B7313 FP006020 | 10356 000000000102 BCI 1,000012 B7314 FP006030 | 10357 000000000103 BCI 1,000013 B7315 FP006040 | 10360 000000000104 BCI 1,000014 B7316 FP006050 10361 000000000105 BCI 1,000015 B7317 FP006060 | 10362 000000000106 BCI 1,000016 B7320 FP006070 | 10363 000000000107 BCI 1,000017 B7321 FP006080 | 10364 000000000110 BCI 1,000018 B7322 FP006090 | 10365 000000000111 BCI 1,000019 B7323 FP006100 10366 000000000200 BCI 1,000020 B7324 FP006110 | 10367 000000000201 BCI 1,000021 B7325 FP006120 | 10370 000000000202 BCI 1,000022 B7326 FP006130 | 10371 000000000203 BCI 1,000023 B7327 FP006140 | 10372 000000000204 BCI 1,000024 B7330 FP006150 10373 000000000205 BCI 1,000025 B7331 FP006160 | 10374 000000000206 BCI 1,000026 B7332 FP006170 | 10375 000000000207 BCI 1,000027 B7333 FP006180 | 10376 000000000210 BCI 1,000028 B7334 FP006190 | 10377 000000000211 BCI 1,000029 B7335 FP006200 10400 000000000300 BCI 1,000030 B7336 FP006210 | 10401 000000000301 BCI 1,000031 B7337 FP006220 | 10402 000000000302 BCI 1,000032 B7340 FP006230 | 10403 000000000303 BCI 1,000033 B7341 FP006240 | 10404 000000000304 BCI 1,000034 B7342 FP006250 10405 000000000305 BCI 1,000035 B7343 FP006260 | 10406 000000000306 BCI 1,000036 B7344 FP006270 | 10407 000000000307 BCI 1,000037 B7345 FP006280 | 10410 000000000310 BCI 1,000038 B7346 FP006290 | 10411 000000000311 BCI 1,000039 B7347 FP006300 10412 000000000400 BCI 1,000040 B7350 FP006310 | 10413 000000000401 BCI 1,000041 B7351 FP006320 | 10414 000000000402 BCI 1,000042 B7352 FP006330 | 10415 000000000403 BCI 1,000043 B7353 FP006340 | 10416 000000000404 BCI 1,000044 B7354 FP006350 10417 000000000405 BCI 1,000045 B7355 FP006360 | 10420 000000000406 BCI 1,000046 B7356 FP006370 | 1 LISTING OF 12/01/64 PAGE 14 | MAIN1 (9PAC31). GENERATOR SUB-ROUTINES. GENERAL | 10421 000000000407 BCI 1,000047 B7357 FP006380 | 10422 000000000410 BCI 1,000048 B7360 FP006390 | 10423 000000000411 BCI 1,000049 B7361 FP006400 | 10424 000000000500 BCI 1,000050 B7362 FP006410 | 10425 000000000501 BCI 1,000051 B7363 FP006420 10426 000000000502 BCI 1,000052 B7364 FP006430 | 10427 000000000503 BCI 1,000053 B7365 FP006440 | 10430 000000000504 BCI 1,000054 B7366 FP006450 | 10431 000000000505 BCI 1,000055 B7367 FP006460 | 10432 000000000506 BCI 1,000056 B7370 FP006470 10433 000000000507 BCI 1,000057 B7371 FP006480 | 10434 000000000510 BCI 1,000058 B7372 FP006490 | 10435 000000000511 BCI 1,000059 B7373 FP006500 | 10436 000000000600 BCI 1,000060 B7374 FP006510 | 10437 000000000601 BCI 1,000061 B7375 FP006520 10440 000000000602 BCI 1,000062 B7376 FP006530 | 10441 000000000603 BCI 1,000063 B7377 FP006540 | 10442 0 00000 0 10442 B7400 PZE B7400,,0 TABLE 5-PROPOGATE CARRYS B7400 FP006550 | 10443 0 10000 0 10442 PZE B7400,,4096 B7401 FP006560 | 10444 0 20000 0 10442 PZE B7400,,8192 B7402 FP006570 10445 0 30000 0 10442 PZE B7400,,12288 B7403 FP006580 | 10446 0 40000 0 10442 PZE B7400,,16384 B7404 FP006590 | 10447 0 50000 0 10442 PZE B7400,,20480 B7405 FP006600 | 10450 0 60000 0 10442 PZE B7400,,24576 B7406 FP006610 | 10451 0 70000 0 10442 PZE B7400,,28672 B7407 FP006620 10452 1 00000 0 10442 PON B7400,,0 B7408 FP006630 | 10453 1 10000 0 10442 PON B7400,,4096 B7409 FP006640 | 10454 0 00000 0 10443 PZE B7400+1,,0 B7410 FP006650 | 10455 0 10000 0 10443 PZE B7400+1,,4096 B7411 FP006660 | 10456 0 20000 0 10443 PZE B7400+1,,8192 B7412 FP006670 10457 0 30000 0 10443 PZE B7400+1,,12288 B7413 FP006680 | 10460 0 40000 0 10443 PZE B7400+1,,16384 B7414 FP006690 | 10461 0 50000 0 10443 PZE B7400+1,,20480 B7415 FP006700 | 10462 0 60000 0 10443 PZE B7400+1,,24576 B7416 FP006710 | 10463 0 70000 0 10443 PZE B7400+1,,28672 B7417 FP006720 10464 1 00000 0 10443 PON B7400+1,,0 B7418 FP006730 | 10465 1 10000 0 10443 PON B7400+1,,4096 B7419 FP006740 | 10466 0 00000 0 10444 PZE B7400+2,,0 B7420 FP006750 | 10467 0 10000 0 10444 PZE B7400+2,,4096 B7421 FP006760 | 10470 0 20000 0 10444 PZE B7400+2,,8192 B7422 FP006770 10471 0 30000 0 10444 PZE B7400+2,,12288 B7423 FP006780 | 10472 0 40000 0 10444 PZE B7400+2,,16384 B7424 FP006790 | 10473 0 50000 0 10444 PZE B7400+2,,20480 B7425 FP006800 | 10474 0 60000 0 10444 PZE B7400+2,,24576 B7426 FP006810 | 10475 0 70000 0 10444 PZE B7400+2,,28672 B7427 FP006820 10476 1 00000 0 10444 PON B7400+2,,0 B7428 FP006830 | 10477 1 10000 0 10444 PON B7400+2,,4096 B7429 FP006840 | 10500 0 00000 0 10445 PZE B7400+3,,0 B7430 FP006850 | 10501 0 10000 0 10445 PZE B7400+3,,4096 B7431 FP006860 | 10502 0 20000 0 10445 PZE B7400+3,,8192 B7432 FP006870 10503 0 30000 0 10445 PZE B7400+3,,12288 B7433 FP006880 | 10504 0 40000 0 10445 PZE B7400+3,,16384 B7434 FP006890 | 10505 0 50000 0 10445 PZE B7400+3,,20480 B7435 FP006900 | 10506 0 60000 0 10445 PZE B7400+3,,24576 B7436 FP006910 | * FP006920 1 LISTING OF 12/01/64 PAGE 15 | MAIN1 (9PAC31). ROUTINE FOR GENERATION HALTS | | * STL ROUTINE FOR HALTS T0000 FP006940 | * FP006950 * FP006960 | 10507 0634 00 4 10542 T0010 SXA T0400,4 SAVE4 T0010 FP006970 | 10510 0634 00 2 10543 SXA T0400+1,2 SAVE2 T0020 FP006980 | 10511 0634 00 1 10544 SXA T0400+2,1 SAVE1 T0030 FP006990 | 10512 0604 00 0 10555 STI T0700 SAVE SI T0040 FP007000 10513 -0600 00 0 10556 STQ T0710 SAVE MQ T0050 FP007010 | 10514 0602 00 0 10557 SLW T0720 SAVE AC T0060 FP007020 | 10515 0120 00 0 10520 TPL *+3 SAVE SIGN T0070 FP007030 | 10516 -0625 00 0 10560 STL T0730 NON-ZERO FOR MINUS T0080 FP007040 | 10517 0020 00 0 10521 TRA *+2 T0090 FP007050 10520 0600 00 0 10560 STZ T0730 ZERO FOR PLUS T0100 FP007060 | 10521 -0500 00 4 00001 CAL 1,4 T0200 FP007070 | 10522 0625 00 0 10563 STT T0760 SAVE TAG T0220 FP007080 | 10523 -0320 00 0 10561 ANA T0740 T0230 FP007090 | 10524 0602 00 0 10562 SLW T0750 T0240 FP007100 10525 0621 00 0 10554 STA T0480 T0250 FP007110 | 10526 -0500 00 0 10563 CAL T0760 TAG T0251 FP007120 | 10527 0771 00 0 00017 ARS 15 T0252 FP007130 | 10530 0734 00 4 00000 PAX 0,4 T0260 FP007140 | 10531 0020 60 4 10541 TRA* *+8,4 T0270 FP007150 10532 0074 00 4 04000 TSX LOST,4 TAG 7 NOT USED T0280 FP007160 | 10533 0074 00 4 04000 TSX LOST,4 TAG 6 NOT USED T0290 FP007170 | 10534 0020 00 0 10676 TRA T5010 T0300 FP007180 | 10535 0020 00 0 10643 TRA T4010 T0310 FP007190 | 10536 0020 00 0 10612 TRA T3010 TAG3 T0320 FP007200 10537 0020 00 0 10567 TRA T2010 TAG2 CODE MESSAGE T0330 FP007210 | 10540 0074 00 4 04000 TSX LOST,4 T0340 FP007220 | 10541 0074 00 4 04000 TSX LOST,4 T0350 FP007230 | 10542 0774 00 4 00000 T0400 AXT 0,4 RESTORE T0400 FP007240 | 10543 0774 00 2 00000 AXT 0,2 T0410 FP007250 10544 0774 00 1 00000 AXT 0,1 T0420 FP007260 | 10545 -0500 00 0 10566 CAL T1001 T4021 FP007270 | 10546 0602 00 0 10565 SLW T1000 T0422 FP007280 | 10547 0441 00 0 10555 LDI T0700 T0430 FP007290 | 10550 0560 00 0 10556 LDQ T0710 T0440 FP007300 10551 -0500 00 0 10557 CAL T0720 T0450 FP007310 | 10552 0520 00 0 10560 ZET T0730 T0460 FP007320 | 10553 -0760 00 0 00003 SSM T0470 FP007330 | 10554 0020 00 0 00000 T0480 TRA 0 T0480 FP007340 | 10555 0 00000 0 00000 T0700 PZE SI T0700 FP007350 10556 0 00000 0 00000 T0710 PZE MQ T0710 FP007360 | 10557 0 00000 0 00000 T0720 PZE AC T0720 FP007370 | 10560 0 00000 0 00000 T0730 PZE SIGN T0730 FP007380 | 10561 -377777077777 T0740 OCT 777777077777 MASK T0740 FP007390 | 10562 0 00000 0 00000 T0750 PZE STR T0750 FP007400 10563 0 00000 0 00000 T0760 PZE 0 TO SAVE TAG T0760 FP007410 | 10564 0 00000 0 00000 T0770 PZE 0 TO SAVE CELL ZERO T0770 FP007420 | * FP007430 | * FP007440 | * FP007450 * FP007460 | 10565 606060606060 T1000 BCI 1, STORAGE T1000 FP007470 | 10566 606060606060 T1001 BCI 1, BLANKS T1001 FP007480 | 1 LISTING OF 12/01/64 PAGE 16 | MAIN1 (9PAC31). ROUTINE FOR GENERATION HALTS | * FP007490 | * FP007500 | * FP007510 | 10567 -0534 00 4 10562 T2010 LXD T0750,4 T2010 FP007520 10570 0634 00 4 10127 SXA B6000,4 T2030 FP007530 | 10571 0074 00 4 10070 TSX B5010,4 T2040 FP007540 | 10572 -0500 00 0 10131 CAL B6020 T2050 FP007550 | 10573 0602 00 0 10607 SLW T2999+2 T2060 FP007560 | 10574 -0500 00 0 10565 CAL T1000 T2061 FP007570 10575 0602 00 0 10611 SLW T2999+4 T2062 FP007580 | 10576 0074 00 4 05630 TSX CLIST,4 FP007590 | 10577 -1 00005 1 10605 FVE T2999,1,5 FP007600 | 10600 0 00014 0 04621 PZE CARD,,12 FP007610 | 10601 -0625 00 0 11375 STL QUIT T2110 FP007620 10602 -0500 00 0 10566 CAL T1001 T2113 FP007630 | 10603 0602 00 0 10565 SLW T1000 T2114 FP007640 | 10604 0020 00 0 10542 TRA T0400 T2120 FP007650 | 10605 234624256060 T2999 BCI 3,CODE ERROR XXXXX T2999 FP007660 | 10606 255151465160 10607 606767676767 | 10610 606060606060 BCI 2, T29991FP007670 | 10611 606060606060 | * FP007680 | * FP007690 * FP007700 | * FP007710 | 10612 -0534 00 4 10562 T3010 LXD T0750,4 T3010 FP007720 | 10613 0634 00 4 10127 SXA B6000,4 T3030 FP007730 | 10614 0074 00 4 10070 TSX B5010,4 T3040 FP007740 10615 -0500 00 0 10131 CAL B6020 T3050 FP007750 | 10616 0602 00 0 10635 SLW T3999+2 T3060 FP007760 | 10617 -0500 00 0 10565 CAL T1000 T3061 FP007770 | 10620 0602 00 0 10637 SLW T3999+4 T3062 FP007780 | 10621 0520 00 0 04662 ZET IND01 ON-LINE FP007790 10622 0020 00 0 10626 TRA *+4 YES FP007800 | 10623 0074 00 4 05646 TSX FLIST,4 OFFLINE, TOO FP007810 | 10624 -1 00010 0 10633 FVE T3999,0,8 FP007820 | 10625 0 00014 0 04621 PZE CARD,0,12 FP007830 | 10626 0074 00 4 05642 TSX NLIST,4 FP007840 10627 -1 00010 0 10633 FVE T3999,0,8 FP007850 | 10630 0 00014 0 04621 PZE CARD,0,12 FP007860 | 10631 0761 00 0 00000 NOP FOR EXPANSION FP007870 | 10632 0074 00 4 05134 TSX DDEAD,4 FP007880 | 10633 454660512523 T3999 BCI 3,NO RECOVERY XXXXXX T3999 FP007890 10634 466525517060 | 10635 676767676767 | 10636 606060606060 BCI 2, T39991FP007900 | 10637 606060606060 | 10640 604721512144 BCI 3, PARAMETER ERROR T39992FP007910 10641 256325516025 | 10642 515146516060 | * FP007920 | 10643 -0534 00 4 10562 T4010 LXD T0750,4 T4010 FP007930 | 10644 0634 00 4 10127 SXA B6000,4 T4020 FP007940 10645 0074 00 4 10070 TSX B5010,4 T4030 FP007950 | 1 LISTING OF 12/01/64 PAGE 17 | MAIN1 (9PAC31). ROUTINE FOR GENERATION HALTS | | 10646 -0500 00 0 10131 CAL B6020 T4040 FP007960 10647 0602 00 0 10664 SLW T4999+2 T4050 FP007970 | 10650 -0500 00 0 10565 CAL T1000 T4060 FP007980 | 10651 0602 00 0 10666 SLW T4999+4 T4070 FP007990 | 10652 0520 00 0 04662 ZET IND01 ON-LINE FP008000 | 10653 0020 00 0 10656 TRA *+3 YES FP008010 10654 0074 00 4 05646 TSX FLIST,4 OFF-LINE, TOO FP008020 | 10655 1 00014 0 10662 PON T4999,0,12 FP008030 | 10656 0074 00 4 05642 TSX NLIST,4 FP008040 | 10657 0 00014 0 10662 PZE T4999,0,12 T4090 FP008050 | 10660 0761 00 0 00000 NOP FP008060 10661 0074 00 4 05134 TSX DDEAD,4 FP008070 | 10662 454660512523 T4999 BCI 3,NO RECOVERY XXXXXX T49990FP008080 | 10663 466525517060 | 10664 676767676767 | 10665 606060606060 BCI 2, T49991FP008090 10666 606060606060 | 10667 644525674743 BCI 7,UNEXPLAINED TRY AGAIN THEN DUMP CORES T49992FP008100 | 10670 213145252460 | 10671 635170602127 | 10672 213145606330 10673 254560246444 | 10674 476023465125 | 10675 626060606060 | * FP008110 | 10676 -0534 00 4 10562 T5010 LXD T0750,4 T5010 FP008120 10677 0634 00 4 10127 SXA B6000,4 T5020 FP008130 | 10700 0074 00 4 10070 TSX B5010,4 T5030 FP008140 | 10701 -0500 00 0 10131 CAL B6020 T5040 FP008150 | 10702 0602 00 0 10717 SLW T5999+2 T5050 FP008160 | 10703 -0500 00 0 10565 CAL T1000 T5060 FP008170 10704 0602 00 0 10721 SLW T5999+4 T5070 FP008180 | 10705 0520 00 0 04662 ZET IND01 ON-LINE FP008190 | 10706 0020 00 0 10711 TRA *+3 YES FP008200 | 10707 0074 00 4 05646 TSX FLIST,4 OFF-LINE, TOO FP008210 | 10710 1 00011 0 10715 PON T5999,0,9 FP008220 10711 0074 00 4 05642 TSX NLIST,4 FP008230 | 10712 0 00011 0 10715 PZE T5999,0,9 T5090 FP008240 | 10713 0761 00 0 00000 NOP FP008250 | 10714 0074 00 4 05134 TSX DDEAD,4 FP008260 | 10715 454660512523 T5999 BCI 3,NO RECOVERY XXXXXX T59990FP008270 10716 466525517060 | 10717 676767676767 | 10720 606060606060 BCI 2, T59991FP008280 | 10721 606060606060 | 10722 602725452551 BCI 4, GENERATOR LIMITATION T59992FP008290 10723 216346516043 | 10724 314431632163 | 10725 314645606060 | 1 LISTING OF 12/01/64 PAGE 18 | MAIN1 (9PAC31). CONSTANTS, TABLES | 10726 +000000000077 BCD01 OCT 000000000077 0B010 FP008310 | 10727 +000000007700 BCD02 OCT 000000007700 0B020 FP008320 | 10730 +000000007777 BCD03 OCT 000000007777 0B030 FP008330 | 10731 +000000770000 BCD04 OCT 000000770000 0B040 FP008340 10732 +000000770077 BCD05 OCT 000000770077 0B041 FP008350 | 10733 +000000777700 BCD06 OCT 000000777700 0B050 FP008360 | 10734 +000000777777 BCD07 OCT 000000777777 0B060 FP008370 | 10735 +000077000000 BCD10 OCT 000077000000 0B070 FP008380 | 10736 +000077000077 BCD11 OCT 000077000077 0B071 FP008390 10737 +000077007700 BCD12 OCT 000077007700 0B072 FP008400 | 10740 +000077007777 BCD13 OCT 000077007777 0B073 FP008410 | 10741 +000077770000 BCD14 OCT 000077770000 0B080 FP008420 | 10742 +000077770077 BCD15 OCT 000077770077 0B081 FP008430 | 10743 +000077777700 BCD16 OCT 000077777700 0B090 FP008440 10744 +000077777777 BCD17 OCT 000077777777 0B100 FP008450 | 10745 +007700000000 BCD20 OCT 007700000000 0B110 FP008460 | 10746 +007700000077 BCD21 OCT 007700000077 0B111 FP008470 | 10747 +007700007700 BCD22 OCT 007700007700 0B112 FP008480 | 10750 +007700007777 BCD23 OCT 007700007777 0B113 FP008490 10751 +007700770000 BCD24 OCT 007700770000 0B114 FP008500 | 10752 +007700770077 BCD25 OCT 007700770077 0B115 FP008510 | 10753 +007700777700 BCD26 OCT 007700777700 0B116 FP008520 | 10754 +007700777777 BCD27 OCT 007700777777 0B117 FP008530 | 10755 +007777000000 BCD30 OCT 007777000000 0B120 FP008540 10756 +007777000077 BCD31 OCT 007777000077 0B121 FP008550 | 10757 +007777007700 BCD32 OCT 007777007700 0B122 FP008560 | 10760 +007777007777 BCD33 OCT 007777007777 0B123 FP008570 | 10761 +007777770000 BCD34 OCT 007777770000 0B130 FP008580 | 10762 +007777770077 BCD35 OCT 007777770077 0B131 FP008590 10763 +007777777700 BCD36 OCT 007777777700 0B140 FP008600 | 10764 +007777777777 BCD37 OCT 007777777777 0B150 FP008610 | 10765 -370000000000 BCD40 OCT 770000000000 0B160 FP008620 | 10766 -370000000077 BCD41 OCT 770000000077 0B161 FP008630 | 10767 -370000007700 BCD42 OCT 770000007700 0B162 FP008640 10770 -370000007777 BCD43 OCT 770000007777 0B163 FP008650 | 10771 -370000770000 BCD44 OCT 770000770000 0B164 FP008660 | 10772 -370000770077 BCD45 OCT 770000770077 0B165 FP008670 | 10773 -370000777700 BCD46 OCT 770000777700 0B166 FP008680 | 10774 -370000777777 BCD47 OCT 770000777777 0B167 FP008690 10775 -370077000000 BCD50 OCT 770077000000 0B168 FP008700 | 10776 -370077000077 BCD51 OCT 770077000077 0B169 FP008710 | 10777 -370077007700 BCD52 OCT 770077007700 0B170 FP008720 | 11000 -370077007777 BCD53 OCT 770077007777 0B171 FP008730 | 11001 -370077770000 BCD54 OCT 770077770000 0B172 FP008740 11002 -370077770077 BCD55 OCT 770077770077 0B173 FP008750 | 11003 -370077777700 BCD56 OCT 770077777700 0B174 FP008760 | 11004 -370077777777 BCD57 OCT 770077777777 0B175 FP008770 | 11005 -377700000000 BCD60 OCT 777700000000 0B176 FP008780 | 11006 -377700000077 BCD61 OCT 777700000077 0B177 FP008790 11007 -377700007700 BCD62 OCT 777700007700 0B178 FP008800 | 11010 -377700007777 BCD63 OCT 777700007777 0B179 FP008810 | 11011 -377700770000 BCD64 OCT 777700770000 0B180 FP008820 | 11012 -377700770077 BCD65 OCT 777700770077 0B181 FP008830 | 11013 -377700777700 BCD66 OCT 777700777700 0B182 FP008840 11014 -377700777777 BCD67 OCT 777700777777 0B183 FP008850 | 1 LISTING OF 12/01/64 PAGE 19 | MAIN1 (9PAC31). CONSTANTS, TABLES | | 11015 -377777000000 BCD70 OCT 777777000000 0B184 FP008860 11016 -377777000077 BCD71 OCT 777777000077 0B185 FP008870 | 11017 -377777007700 BCD72 OCT 777777007700 0B186 FP008880 | 11020 -377777007777 BCD73 OCT 777777007777 0B188 FP008890 | 11021 -377777770000 BCD74 OCT 777777770000 0B190 FP008900 | 11022 -377777770077 BCD75 OCT 777777770077 0B192 FP008910 11023 -377777777700 BCD76 OCT 777777777700 0B200 FP008920 | 11024 -377777777777 BCD77 OCT 777777777777 0B210 FP008930 | 11025 0 00000 0 00000 NMBR0 PZE 0 0B300 FP008940 | 11026 0 00000 0 00001 NMBR1 PZE 1 0B310 FP008950 | 11027 0 00000 0 00002 NMBR2 PZE 2 0B320 FP008960 11030 0 00000 0 00003 NMBR3 PZE 3 0B330 FP008970 | 11031 0 00000 0 00004 NMBR4 PZE 4 0B340 FP008980 | 11032 0 00000 0 00005 NMBR5 PZE 5 0B350 FP008990 | 11033 0 00000 0 00006 NMBR6 PZE 6 0B360 FP009000 | 11034 0 00000 0 00007 NMBR7 PZE 7 0B370 FP009010 11035 0 00000 0 00010 NMBR8 PZE 8 0B380 FP009020 | 11036 0 00000 0 00011 NMBR9 PZE 9 0B390 FP009030 | 11037 0 00000 0 00000 PRE0 PZE IOCD MISC 0B400 FP009040 | 11040 1 00000 0 00000 PRE1 PON TCH TXI 0B410 FP009050 | 11041 2 00000 0 00000 PRE2 PTW IORP TIX 0B420 FP009060 11042 3 00000 0 00000 PRE3 PTH IORT TXH 0B430 FP009070 | 11043 -0 00000 0 00000 PRE4 FOR IOCP MISC 0B440 FP009080 | 11044 -1 00000 0 00000 PRE5 FVE IOCT STR 0B450 FP009090 | 11045 -2 00000 0 00000 PRE6 SIX IOSP TNX 0B460 FP009100 | 11046 -3 00000 0 00000 PRE7 SVN IOST TXL 0B470 FP009110 11047 0 00000 0 00000 TAG0 PZE 0,0 0B500 FP009120 | 11050 0 00000 1 00000 TAG1 PZE 0,1 0B510 FP009130 | 11051 0 00000 2 00000 TAG2 PZE 0,2 NON-TRANSMIT 0B520 FP009140 | 11052 0 00000 3 00000 TAG3 PZE 0,3 0B530 FP009150 | 11053 0 00000 4 00000 TAG4 PZE 0,4 0B540 FP009160 11054 0 00000 5 00000 TAG5 PZE 0,5 0B550 FP009170 | 11055 0 00000 6 00000 TAG6 PZE 0,6 0B560 FP009180 | 11056 0 00000 7 00000 TAG7 PZE 0,7 0B570 FP009190 | 11057 +000000000004 EQUIV DEC 4,5 TABLE TO CONVERT BINARY SIZ0C010 FP009200 | 11060 +000000000005 11061 +000000000007 DEC 7,8 TO EQUIV BCD SIZE IN BITS 0C020 FP009210 | 11062 +000000000010 | 11063 +000000000012 DEC 10,11 0C030 FP009220 | 11064 +000000000013 | 11065 +000000000016 DEC 14,15 0C040 FP009230 11066 +000000000017 | 11067 +000000000021 DEC 17,18 0C050 FP009240 | 11070 +000000000022 | 11071 +000000000024 DEC 20,21 0C060 FP009250 | 11072 +000000000025 11073 +000000000030 DEC 24,25 0C070 FP009260 | 11074 +000000000031 | 11075 +000000000033 DEC 27,28 0C080 FP009270 | 11076 +000000000034 | 11077 +000000000036 DEC 30,31 0C090 FP009280 11100 +000000000037 | 11101 +000000000042 DEC 34,35 0C100 FP009290 | 11102 +000000000043 | * HORIZONTAL DESCRIPTION TABLE OH000 FP009300 | 1 LISTING OF 12/01/64 PAGE 20 MAIN1 (9PAC31). CONSTANTS, TABLES | | 11103 606060606060 DESTL BCI 7, OH010 FP009310 | 11104 606060606060 | 11105 606060606060 11106 606060606060 | 11107 606060606060 | 11110 606060606060 | 11111 606060606060 | 11112 606060606060 BCI 7, 0H020 FP009320 11113 606060606060 | 11114 606060606060 | 11115 606060606060 | 11116 606060606060 | 11117 606060606060 11120 606060606060 | 11121 606060606060 BCI 7, 0H030 FP009330 | 11122 606060606060 | 11123 606060606060 | 11124 606060606060 11125 606060606060 | 11126 606060606060 | 11127 606060606060 | 11130 606060606060 BCI 7, 0H040 FP009340 | 11131 606060606060 11132 606060606060 | 11133 606060606060 | 11134 606060606060 | 11135 606060606060 | 11136 606060606060 11137 606060606060 BCI 7, 0H050 FP009350 | 11140 606060606060 | 11141 606060606060 | 11142 606060606060 | 11143 606060606060 11144 606060606060 | 11145 606060606060 | 11146 606060606060 BCI 7, 0H060 FP009360 | 11147 606060606060 | 11150 606060606060 11151 606060606060 | 11152 606060606060 | 11153 606060606060 | 11154 606060606060 | 11155 606060606060 BCI 7, 0H070 FP009370 11156 606060606060 | 11157 606060606060 | 11160 606060606060 | 11161 606060606060 | 11162 606060606060 11163 606060606060 | 11164 606060606060 BCI 7, 0H080 FP009380 | 11165 606060606060 | 11166 606060606060 | 11167 606060606060 11170 606060606060 | 11171 606060606060 | 1 LISTING OF 12/01/64 PAGE 21 | MAIN1 (9PAC31). CONSTANTS, TABLES | 11172 606060606060 | 11173 606060606060 BCI 7, 0H090 FP009390 | 11174 606060606060 | 11175 606060606060 | 11176 606060606060 11177 606060606060 | 11200 606060606060 | 11201 606060606060 | 11202 606060606060 BCI 7, 0H100 FP009400 | 11203 606060606060 11204 606060606060 | 11205 606060606060 | 11206 606060606060 | 11207 606060606060 | 11210 606060606060 11211 606060606060 BCI 7, 0H110 FP009410 | 11212 606060606060 | 11213 606060606060 | 11214 606060606060 | 11215 606060606060 11216 606060606060 | 11217 606060606060 | 11220 606060606060 BCI 7, 0H120 FP009420 | 11221 606060606060 | 11222 606060606060 11223 606060606060 | 11224 606060606060 | 11225 606060606060 | 11226 606060606060 | 11227 606060606060 BCI 7, 0H130 FP009430 11230 606060606060 | 11231 606060606060 | 11232 606060606060 | 11233 606060606060 | 11234 606060606060 11235 606060606060 | 11236 606060606060 BCI 7, 0H140 FP009440 | 11237 606060606060 | 11240 606060606060 | 11241 606060606060 11242 606060606060 | 11243 606060606060 | 11244 606060606060 | 11245 606060606060 BCI 7, 0H150 FP009450 | 11246 606060606060 11247 606060606060 | 11250 606060606060 | 11251 606060606060 | 11252 606060606060 | 11253 606060606060 11254 0 00000 0 00000 WDCNT PZE MAXIMUM PREPROCESSED PACKAG0H200 FP009460 | 1 LISTING OF 12/01/64 PAGE 22 | MAIN1 (9PAC31). CONSTANTS, TABLES | | * GENERATOR STORAGE LOCATIONS W0000 FP009480 11255 0761 00 0 11074 NOP NOP DESTL-7 W0020 FP009490 | 11256 D5900 BSS GHSZE FP009500 | 11340 0 00000 0 00062 PZE GHSZE FP009510 | 11341 0 00000 0 00000 SFPRV PZE * PREV. X0070 FP009520 | 11342 0 00000 0 00000 SFCUR PZE LEFT WORD SF 702 SEQ BUFFERX0060 FP009530 11343 0 00000 0 00000 SFLEN PZE LEN SF SEQ BUFFER X0080 FP009540 | 11344 BSS 19 W0080 FP009550 | 11367 -0 00000 0 00000 HRDWR MZE 0 W0081 FP009560 | 11370 0 00000 0 00000 RPTSW PZE 0 ZERO NO RPT UPDATE W0090 FP009570 | 11371 0 00000 0 00000 HPTSW PZE 0 ZERO NO REPORT HORZ W0100 FP009580 11372 0 00000 0 00000 UPDIC PZE 0 ZERO NO DICT UPDATE W0110 FP009590 | 11373 0 00000 0 00000 SELNT PZE 0 W0112 FP009600 | 11374 0 00000 0 00000 HPCSW PZE 0 W0113 FP009610 | 11375 0 00000 0 00000 QUIT PZE W0119 FP009620 | 11376 0 00000 0 00000 HORIZ PZE 0 ZERO NO HORIZONTALS W0120 FP009630 11377 0 00000 0 00000 HORRL PZE 0 LENGTH PRC PROCESSED HOR REW0130 FP009640 | 11400 0 00000 0 00000 HOPSU PZE 0 HORIZ PSEUDO UNIT W0135 FP009650 | 11401 0 00000 0 00000 HORFL PZE 0 LENGTH FIXED PORTION HOR REW0140 FP009660 | 11402 0 00000 0 00000 W0141 PZE 0 LIMIT AAG84 USED W0141 FP009670 | 11403 0 00000 0 00000 W0142 PZE 0 VALUE FOR OBJECT MLCUR W0142 FP009680 11404 0 00035 0 00000 VRJSZ PZE 0,0,29 SIZE OF INST PORTION--VERTICAL REJECW0143 FP009690 | 11405 0 00040 0 00000 HIRSZ PZE 0,0,32 --HORIZ INSERT RW0144 FP009700 | 11406 0 00037 0 00000 ORJSZ PZE 0,0,31 --OTHER REJCT PKW0145 FP009710 | 11407 0 00000 0 00000 UPWSL PZE NOT ZERO MEANS SEL FOR FLD =0001 IS PROVIDW0146 FP009720 | 11410 +000000077777 AAAAA OCT 000000077777 ADDRESS MASK WO149 FP009730 11411 0 00000 0 11411 W0150 PZE * MTCH PKG PROVIDED IF NOT ZERO W0150 FP009740 | 11412 0 00000 0 00000 NEWSW PZE 0 NOT ZERO IF NEW FILE CASE W0160 FP009750 | 1 LISTING OF 12/01/64 PAGE 23 | MAIN1 (9PAC31). SUBROUTINES | * FP009770 | * FP009780 | * SUB-RTN ENTER OBJECT PROGRAM TABLE FP009790 | * FP009800 | * ACCUM-----INSTRUCTION TO INSERT FP009810 * FP009820 | 11413 0634 00 4 11424 PRGMR SXA F0090,4 F0010 FP009830 | 11414 0534 00 4 11423 LXA F0080,4 F0020 FP009840 | 11415 1 00001 4 11416 TXI *+1,4,1 F0030 FP009850 | 11416 -3 03775 4 11421 TXL *+3,4,OBPGMZ-3 F0040 FP009860 11417 0074 00 4 10507 TSX T0010,4 FP009870 | 11420 -1 12000 5 00000 STR 0,5,5120 EXCEEDS OBPGM TABLE(2045 WORDS) F0050 FP009880 | 11421 0634 00 4 11423 SXA *+2,4 F0060 FP009890 | 11422 -0774 00 4 57563 AXC OBPGM+1,4 F0070 FP009900 | 11423 0602 00 4 00000 F0080 SLW 0,4 F0080 FP009910 11424 0774 00 4 00000 F0090 AXT 0,4 F0090 FP009920 | 11425 0020 00 4 00002 TRA 2,4 F0091 FP009930 | * FP009940 | 1 LISTING OF 12/01/64 PAGE 24 | MAIN1 (9PAC31). SUBROUTINES | * FP009960 | * SUB-RTN ENTER OBJECT STORAGE TABLE FP009970 | * FP009980 | * ACCUM-----VALUE TO INSERT FP009990 11426 0634 00 4 11437 STORR SXA G0090,4 G0010 FP010000 | 11427 0534 00 4 11436 LXA G0080,4 G0020 FP010010 | 11430 1 00001 4 11431 TXI *+1,4,1 G0030 FP010020 | 11431 -3 01436 4 11434 TXL *+3,4,STORGZ-2 G0040 FP010030 | 11432 0074 00 4 10507 TSX T0010,4 FP010040 11433 -1 12012 5 00000 STR 0,5,5130 EXCEEDS STORAGE TABLE (798WORDS) G0050 FP010050 | 11434 0634 00 4 11436 SXA *+2,4 G0060 FP010060 | 11435 -0774 00 4 65533 AXC STORG+1,4 G0070 FP010070 | 11436 0602 00 4 00000 G0080 SLW 0,4 G0080 FP010080 | 11437 0774 00 4 00000 G0090 AXT 0,4 G0090 FP010090 11440 0020 00 4 00001 TRA 1,4 G0091 FP010100 | * FP010110 | 1 LISTING OF 12/01/64 PAGE 25 | MAIN1 (9PAC31). SUBROUTINES | * FP010130 | * FP010140 | * SUB-RTN ENTER MISSING ADDRESS TABLE FP010150 | * FP010160 | * ACCUM-----CODE TO INSERT FP010170 11441 0634 00 4 11452 MADDR SXA H0090,4 H0010 FP010180 | 11442 0534 00 4 11451 LXA H0080,4 H0020 FP010190 | 11443 1 00001 4 11444 TXI *+1,4,1 H0030 FP010200 | 11444 -3 01746 4 11447 TXL *+3,4,ATBL1Z-2 H0080 FP010210 | 11445 0074 00 4 10507 TSX T0010,4 FP010220 11446 -1 12024 5 00000 STR 0,5,5140 EXCEEDS ATBL1 TABLE(998 WORDS) H0050 FP010230 | 11447 0634 00 4 11451 SXA *+2,4 H0060 FP010240 | 11450 -0774 00 4 63563 AXC ATBL1+1,4 H0070 FP010250 | 11451 0602 00 4 00000 H0080 SLW 0,4 H0080 FP010260 | 11452 0774 00 4 00000 H0090 AXT 0,4 H0090 FP010270 11453 0020 00 4 00001 TRA 1,4 H0091 FP010280 | * FP010290 | 1 LISTING OF 12/01/64 PAGE 26 | MAIN1 (9PAC31). SUBROUTINES | * FP010310 | * FP010320 | * SUB-RTN COMPUTE MISSING ADDRESS ENTRY LAST INSTR AN FP010330 | * FP010340 | * NOTE-----TR IN PLUS ONE WITH STORAGE RELA FP010350 * IF OTHER THAN LAST IS DESIRED FP010360 | * FP010370 | 11454 -0500 00 0 11436 SADDR CAL G0080 J0010 FP010380 | 11455 0621 00 0 11464 STA J1020 J0040 FP010390 | 11456 -0500 00 0 11423 CAL F0080 J0050 FP010400 11457 -0320 00 0 11463 ANA J1010 J0060 FP010410 | 11460 0767 00 0 00030 ALS 24 J0070 FP010420 | 11461 -0501 00 0 11464 ORA J1020 J0090 FP010430 | 11462 0020 00 0 11441 TRA MADDR J0100 FP010440 | * FP010450 11463 +000000003777 J1010 OCT 3777 J1010 FP010460 | 11464 +000071000000 J1020 OCT 71000000 J1020 FP010470 | * FP010480 | 1 LISTING OF 12/01/64 PAGE 27 | MAIN1 (9PAC31). SUBROUTINES | * FP010500 | * SUB-RTN COMPUTE MISSING ADDRESS ENTRY RELATIVE PGM FP010510 | * FP010520 | * ACCUM-----RELATIVE VALUE FP010530 * FP010540 | 11465 0601 00 0 11474 PADDR STO K1000 K0010 FP010550 | 11466 -0500 00 0 11423 CAL F0080 K0030 FP010560 | 11467 -0320 00 0 11475 ANA K1010 K0040 FP010570 | 11470 0767 00 0 00030 ALS 24 K0050 FP010580 11471 -0501 00 0 11474 ORA K1000 K0060 FP010590 | 11472 -0501 00 0 11476 ORA K1020 K0070 FP010600 | 11473 0020 00 0 11441 TRA MADDR K0080 FP010610 | * FP010620 | 11474 0 00000 0 00000 K1000 PZE K1000 FP010630 11475 +000000003777 K1010 OCT 3777 K1010 FP010640 | * FP010650 | 11476 +000070000000 K1020 OCT 70000000 K1020 FP010660 | * FP010670 | 1 LISTING OF 12/01/64 PAGE 28 MAIN1 (9PAC31). SUBROUTINES | | * FP010690 | * SUB-RTN COMPUTE MISSING ADDRESS ENTRY SPECIAL CODE FP010700 | * FP010710 * ACCUM-----SPECIAL CODE VALUE FP010720 | * FP010730 | 11477 0621 00 0 11506 GADDR STA L1010 L0010 FP010740 | 11500 -0500 00 0 11423 CAL F0080 L0015 FP010750 | 11501 -0320 00 0 11505 ANA L1000 L0020 FP010760 11502 0767 00 0 00030 ALS 24 L0030 FP010770 | 11503 -0501 00 0 11506 ORA L1010 L0040 FP010780 | 11504 0020 00 0 11441 TRA MADDR L0050 FP010790 | * FP010800 | 11505 +000000003777 L1000 OCT 3777 L1000 FP010810 11506 +000072000000 L1010 OCT 72000000 L1010 FP010820 | * FP010830 | 1 LISTING OF 12/01/64 PAGE 29 | MAIN1 (9PAC31). SUBROUTINES | * FP010850 | * SUB-RTN COMPUTE MISSING ADDRESS SYMBOLIC FP010860 | * FP010870 | * ACCUM SORT CODE FOUR BCD DIGITS FP010880 | * FP010890 11507 0601 00 0 11515 YADDR STO N1000 N0010 FP010900 | 11510 -0500 00 0 11423 CAL F0080 N0020 FP010910 | 11511 -0320 00 0 11516 ANA N1010 N0030 FP010920 | 11512 0767 00 0 00030 ALS 24 N0040 FP010930 | 11513 -0501 00 0 11515 ORA N1000 N0050 FP010940 11514 0020 00 0 11441 TRA MADDR N0060 FP010950 | * FP010960 | 11515 0 00000 0 00000 N1000 PZE N1000 FP010970 | 11516 +000000003777 N1010 OCT 3777 N1010 FP010980 | * FP010990 1 LISTING OF 12/01/64 PAGE 30 | MAIN1 (9PAC31). SUBROUTINES | | * FP011010 | * FP011020 * FP011030 | * SUB-ROUTINE COMPUTES INSTR ADDRESS FOR V0000 FP011040 | * CURRENT LOCATION OF RECORD TYPE V0001 FP011050 | * FP011060 | 11517 0634 00 4 11543 LADDR SXA V0170,4 V0010 FP011070 11520 0774 00 4 00144 AXT 100,4 TABLE SIZE V0020 FP011080 | 11521 -0320 00 0 10730 ANA BCD03 V0030 FP011090 | 11522 0774 00 2 77776 AXT -2,2 V0040 FP011100 | 11523 -0520 00 4 71544 NZT AAG84+100,4 V0050 FP011110 | 11524 0020 00 0 11531 TRA *+5 V0060 FP011120 11525 -0340 00 4 71544 LAS AAG84+100,4 V0070 FP011130 | 11526 0020 00 0 11530 TRA *+2 V0080 FP011140 | 11527 0020 00 0 11533 TRA *+4 V0090 FP011150 | 11530 2 00002 4 11523 TIX *-5,4,2 V0110 FP011160 | 11531 0074 00 4 10507 TSX T0010,4 FP011170 11532 -1 00032 2 11543 STR V0170,2,26 REC TYPE NOT IN TABLE V0120 FP011180 | 11533 -0520 00 4 71544 NZT AAG84+100,4 V0121 FP011190 | 11534 0020 00 0 11537 TRA *+3 V0122 FP011200 | 11535 1 00003 2 11536 TXI *+1,2,3 V0123 FP011210 | 11536 2 00002 4 11533 TIX *-3,4,2 V0124 FP011220 11537 0754 00 2 00000 PXA 0,2 V0130 FP011230 | 11540 0522 00 0 11422 XEC F0080-1 V0140 FP011240 | 11541 0621 60 0 11423 STA* F0080 2V0150 FP011250 | 11542 -0500 00 0 11545 CAL V1000 V0160 FP011260 | 11543 0774 00 4 00000 V0170 AXT 0,4 V0170 FP011270 11544 0020 00 0 11507 TRA YADDR V0180 FP011280 | 11545 +000065070003 V1000 OCT 65070003 V1000 FP011290 | 1 LISTING OF 12/01/64 PAGE 31 | MAIN1 (9PAC31). SUBROUTINES | * FP011310 | * FP011320 | * FP011330 | * SUB-RTN CLUANUP FUNCTIONS FP011340 | * FP011350 11546 -0625 00 0 11762 M0005 STL M0980 M0005 FP011360 | 11547 0634 00 4 11751 M0010 SXA M0780,4 M0010 FP011370 | 11550 0602 00 0 11756 SLW M0940 STORAGE M0011 FP011380 | 11551 -0501 00 0 11753 ORA M0910 1 M0012 FP011390 | 11552 0602 00 0 57562 SLW OBPGM M0130 FP011400 11553 -0500 00 0 11760 CAL M0960 MA M0014 FP011410 | 11554 -0501 00 0 11756 ORA M0940 M0015 FP011420 | 11555 0602 00 0 63562 SLW ATBL1 M0016 FP011430 | 11556 -0500 00 0 11757 CAL M0950 7000 OCTAL M0017 FP011440 | 11557 -0501 00 0 11756 ORA M0940 M0018 FP011450 11560 0602 00 0 65532 SLW STORG M0019 FP011460 | 11561 -0500 00 0 11436 CAL G0080 FP011470 | 11562 -0320 00 0 10730 ANA BCD03 FP011480 | 11563 0100 00 0 11601 TZE M0090 FP011490 | 11564 -0500 00 0 57562 CAL OBPGM FP011500 11565 -0320 00 0 10765 ANA BCD40 SAVE FIRST TWO OCTAL FP011510 | 11566 0322 00 0 11766 ERA M0984 AREA CODE 65 FP011520 | 11567 -0100 00 0 11574 TNZ *+5 NO. BUILD TRA FP011530 | 11570 -0500 00 0 11572 CAL *+2 YES. BUILD A NOP, INSTEAD FP011540 | 11571 0074 00 4 11413 TSX PRGMR,4 FP011550 11572 0761 00 0 00000 NOP FP011560 | 11573 0020 00 0 11601 TRA M0090 FP011570 | 11574 -0500 00 0 11576 CAL *+2 M0020 FP011580 | 11575 0074 00 4 11413 TSX PRGMR,4 M0030 FP011590 | 11576 0020 00 0 00000 TRA 0 AROUND STORAGE M0040 FP011600 11577 -0500 00 0 11761 CAL M0970 4 M0050 FP011610 | 11600 0074 00 4 11477 TSX GADDR,4 M0060 FP011620 | 11601 0534 00 4 11755 M0090 LXA M0930,4 M0090 FP011630 | 11602 1 00001 4 11603 TXI *+1,4,1 M0100 FP011640 | 11603 -3 03777 4 11606 TXL *+3,4,STZE M0110 FP011650 11604 0074 00 4 10507 TSX T0010,4 FP011660 | 11605 -1 12144 5 00000 STR 0,5,5220 EXCEEDS PROGRAM ID TABLE M0120 FP011670 | 11606 0634 00 4 11755 SXA M0930,4 M0130 FP011680 | 11607 -0774 00 4 72777 AXC SORTT-1,4 M0140 FP011690 | 11610 -0500 00 0 57562 CAL OBPGM M0150 FP011700 11611 0522 00 0 11755 XEC M0930 M0160 FP011710 | 11612 0534 00 4 11755 LXA M0930,4 M0170 FP011720 | 11613 1 00001 4 11614 TXI *+1,4,1 M0180 FP011730 | 11614 -3 03777 4 11617 TXL *+3,4,STZE M0190 FP011740 | 11615 0074 00 4 10507 TSX T0010,4 FP011750 11616 -1 12156 5 00000 STR 0,5,5230 EXCEEDS PROGRAM SIZE TABLE M0200 FP011760 | 11617 0634 00 4 11755 SXA M0930,4 M0210 FP011770 | 11620 -0774 00 4 72777 AXC SORTT-1,4 M0220 FP011780 | 11621 -0500 00 0 11423 CAL F0080 M0240 FP011790 | 11622 -0320 00 0 11754 ANA M0920 M0245 FP011800 11623 0767 00 0 00022 ALS 18 M0250 FP011810 | 11624 0522 00 0 11755 XEC M0930 M0260 FP011820 | 11625 0534 00 4 11755 LXA M0930,4 M0270 FP011830 | 11626 1 00001 4 11627 TXI *+1,4,1 M0280 FP011840 | 11627 -3 03777 4 11632 TXL *+3,4,STZE M0290 FP011850 1 LISTING OF 12/01/64 PAGE 32 | MAIN1 (9PAC31). SUBROUTINES | | 11630 0074 00 4 10507 TSX T0010,4 FP011860 | 11631 -1 12170 5 00000 STR 0,5,5240 EXCEEDS ASSOC STORAGE ID TABLE M0300 FP011870 11632 0634 00 4 11755 SXA M0930,4 M0310 FP011880 | 11633 -0774 00 4 72777 AXC SORTT-1,4 M0315 FP011890 | 11634 -0500 00 0 65532 CAL STORG M0320 FP011900 | 11635 0522 00 0 11755 XEC M0930 M0330 FP011910 | 11636 0534 00 4 11755 LXA M0930,4 M0340 FP011920 11637 1 00001 4 11640 TXI *+1,4,1 M0350 FP011930 | 11640 -3 03777 4 11643 TXL *+3,4,STZE M0360 FP011940 | 11641 0074 00 4 10507 TSX T0010,4 FP011950 | 11642 -1 12202 5 00000 STR 0,5,5250 EXCEEDS ASSOC STORAGE SIZE TABLE M0370 FP011960 | 11643 0634 00 4 11755 SXA M0930,4 M0380 FP011970 11644 -0774 00 4 72777 AXC SORTT-1,4 M0390 FP011980 | 11645 -0500 00 0 11436 CAL G0080 M0400 FP011990 | 11646 -0320 00 0 11754 ANA M0920 M0410 FP012000 | 11647 0767 00 0 00022 ALS 18 M0420 FP012010 | 11650 0522 00 0 11755 XEC M0930 M0430 FP012020 11651 0534 00 4 11423 LXA F0080,4 LENGTH PGM BLOCK M0440 FP012030 | 11652 0634 00 4 57563 SXA OBPGM+1,4 M0441 FP012040 | 11653 1 00002 4 11654 TXI *+1,4,2 M0450 FP012050 | 11654 -0634 00 4 11663 SXD M0510,4 M0460 FP012060 | 11655 3 00002 4 11657 TXH *+2,4,2 MAKE SURE BLOCK TO BE WRITTEN FP012070 11656 1 00001 4 11654 TXI *-2,4,1 IS MORE THAN TWO WORDS FP012080 | 11657 0074 00 4 05255 M0470 TSX RD(WR),4 M0470 FP012090 | 11660 -0 11663 0 00030 FOR 24,0,M0510 M0480 FP012100 | 11661 0020 00 0 11664 TRA *+3 M0490 FP012110 | 11662 0074 00 4 06557 TSX SCEOT,4 M0500 FP012120 11663 -1 00000 0 57562 M0510 IOCT OBPGM,0,** M0510 FP012130 | 11664 0534 00 4 11451 LXA H0080,4 M0545 FP012140 | 11665 0634 00 4 63563 SXA ATBL1+1,4 M0546 FP012150 | 11666 1 00002 4 11667 TXI *+1,4,2 M0550 FP012160 | 11667 -0634 00 4 11676 SXD M0610,4 M0560 FP012170 11670 3 00002 4 11672 TXH *+2,4,2 MAKE SURE BLOCK TO BE WRITTEN FP012180 | 11671 1 00001 4 11667 TXI *-2,4,1 IS MORE THAN TWO WORDS FP012190 | 11672 0074 00 4 05255 M0570 TSX RD(WR),4 M0570 FP012200 | 11673 -0 11676 0 00030 FOR 24,0,M0610 M0580 FP012210 | 11674 0020 00 0 11677 TRA *+3 M0590 FP012220 11675 0074 00 4 06557 TSX SCEOT,4 M0600 FP012230 | 11676 -1 00000 0 63562 M0610 IOCT ATBL1,0,** 14154 M0610 FP012240 | 11677 0534 00 4 11436 LXA G0080,4 M0640 FP012250 | 11700 0634 00 4 65533 SXA STORG+1,4 M0641 FP012260 | 11701 1 00002 4 11702 TXI *+1,4,2 M0650 FP012270 11702 -0634 00 4 11711 SXD M0710,4 M0660 FP012280 | 11703 3 00002 4 11705 TXH *+2,4,2 MAKE SURE BLOCK TO BE WRITTEN FP012290 | 11704 1 00001 4 11702 TXI *-2,4,1 IS MORE THAN TWO WORDS FP012300 | 11705 0074 00 4 05255 M0670 TSX RD(WR),4 M0670 FP012310 | 11706 -0 11711 0 00030 FOR 24,0,M0710 M0680 FP012320 11707 0020 00 0 11712 TRA *+3 M0690 FP012330 | 11710 0074 00 4 06557 TSX SCEOT,4 M0700 FP012340 | 11711 -1 00000 0 65532 M0710 IOCT STORG,0,** M0710 FP012350 | 11712 0535 00 4 11423 LAC F0080,4 UPDATE OBJL3, OBJECT PROGRAM LOWER M07301FP012360 | 11713 -0634 00 4 11717 SXD *+4,4 LIMIT FROM ABOVE. M07302FP012370 11714 0535 00 4 11436 LAC G0080,4 FROM CURRENT LOWER LIMIT, SUBTRACT M07303FP012380 | 11715 -0634 00 4 11720 SXD *+3,4 NUMBER OF CELLS BUILT BY PRGMR AND M07304FP012390 | 11716 0534 00 4 04402 LXA OBJL3,4 BY STORR M07305FP012400 | 1 LISTING OF 12/01/64 PAGE 33 | MAIN1 (9PAC31). SUBROUTINES | 11717 1 00000 4 11720 TXI *+1,4,.. M07306FP012410 | 11720 1 00000 4 11721 TXI *+1,4,.. M07307FP012420 | 11721 0634 00 4 04402 SXA OBJL3,4 M07308FP012430 | 11722 -0520 00 0 11762 NZT M0980 M07310FP012440 11723 0020 00 0 11742 TRA M0740 M07315FP012450 | 11724 0600 00 0 11762 STZ M0980 COUNT TABLES FOR STD CHANGEM07320FP012460 | 11725 -0500 00 0 11756 CAL M0940 M07325FP012470 | 11726 -0320 00 0 10745 ANA BCD20 M07330FP012480 | 11727 -0340 00 0 11763 LAS M0981 M07335FP012490 11730 0020 00 0 11732 TRA *+2 M07340FP012500 | 11731 0020 00 0 11742 TRA M0740 OUT FOR B7 M07345FP012510 | 11732 -0340 00 0 11764 LAS M0982 M07350FP012520 | 11733 0020 00 0 11735 TRA *+2 M07355FP012530 | 11734 0020 00 0 11742 TRA M0740 OUT FOR B8 M07360FP012540 11735 0774 00 4 01130 AXT 600,4 M07366FP012550 | 11736 0600 00 4 60715 STZ OBPGM+603,4 M07367FP012560 | 11737 2 00003 4 11736 TIX *-1,4,3 M07368FP012570 | 11740 -0501 00 0 11765 ORA M0983 M07393FP012580 | 11741 0020 00 0 11550 TRA M0010+1 M07397FP012590 11742 -0754 00 0 00000 M0740 PXD 0,0 M07400FP012600 | 11743 0621 00 0 11423 STA F0080 M0750 FP012610 | 11744 0621 00 0 11436 STA G0080 M0760 FP012620 | 11745 0621 00 0 11451 STA H0080 M0770 FP012630 | 11746 0774 00 4 07410 M0771 AXT OBPGMZ+ATBL1Z+STORGZ,4 FP012640 11747 0600 00 4 67172 STZ STORG+STORGZ,4 FP012650 | 11750 2 00001 4 11747 TIX *-1,4,1 M0773 FP012660 | 11751 0774 00 4 00000 M0780 AXT 0,4 M0780 FP012670 | 11752 0020 00 4 00001 TRA 1,4 M0781 FP012680 | 11753 0 00000 0 00001 M0910 PZE 1 M0910 FP012690 11754 +000000003777 M0920 OCT 3777 M0920 FP012700 | 11755 0602 00 4 00010 M0930 SLW 8,4 XEC INSTR M0930 FP012710 | 11756 0 00000 0 00000 M0940 PZE STORAGE M0940 FP012720 | 11757 +000000007000 M0950 OCT 7000 M0950 FP012730 | 11760 000000004421 M0960 BCI 1,0000MA M0960 FP012740 11761 0 00000 0 00004 M0970 PZE 4 M0970 FP012750 | 11762 0 00000 0 00000 M0980 PZE 0 SW FOR COUNT TABLES M0980 FP012760 | 11763 +000700000000 M0981 OCT 000700000000 M0981 FP012770 | 11764 +001000000000 M0982 OCT 001000000000 M0982 FP012780 | 11765 -250000070000 M0983 OCT 650000070000 M0983 FP012790 11766 -250000000000 M0984 OCT 650000000000 M0984 FP012800 | 1 LISTING OF 12/01/64 PAGE 34 | MAIN1 (9PAC31). SUBROUTINES | | * FP012820 * FP012830 | *THIS ROUTINE LOCATES CHANGE TAPE DICTIONARY AND S9100 FP012840 | * INITIALIZES READ ROUTINE-UPWRD-TO READ IT S9110 FP012850 | * S9120 FP012860 | * S9130 FP012870 11767 0634 00 4 11775 UPWST SXA S9240,4 S9140 FP012880 | 11770 -0500 00 0 15063 CAL VSA30 CONTAINS UNIT NUMBER S9150 FP012890 | 11771 0621 00 0 11774 STA S9230 S9160 FP012900 | 11772 0621 00 0 12005 STA S9290 S9170 FP012910 | 11773 0074 00 4 06342 TSX TPOSIT,4 REWIND, POSITION TO DICT S9220 FP012920 11774 0 00000 0 00000 S9230 PZE .. S9230 FP012930 | 11775 0774 00 4 00000 S9240 AXT ..,4 S9240 FP012940 | 11776 0020 00 4 00001 TRA 1,4 S9250 FP012950 | * S9260 FP012960 | 11777 0634 00 4 12007 UPWRD SXA S9310,4 S9270 FP012970 12000 1 77776 4 12001 TXI *+1,4,-2 S9180 FP012980 | 12001 -0754 00 4 00000 PXD 0,4 S9190 FP012990 | 12002 0760 00 0 00006 COM S9200 FP013000 | 12003 0622 00 0 12005 STD S9290 S9210 FP013010 | 12004 0074 00 4 05255 TSX RD(WR),4 READ S9280 FP013020 12005 0 00000 0 00000 S9290 PZE ..,0,.. S9290 FP013030 | 12006 0020 00 0 12011 TRA *+3 NORMAL S9300 FP013040 | 12007 0774 00 4 00000 S9310 AXT ..,4 EOF S9310 FP013050 | 12010 0020 00 4 00002 TRA 2,4 S9320 FP013060 | 12011 0534 00 4 12007 LXA S9310,4 S9330 FP013070 12012 0020 00 4 00003 TRA 3,4 S9340 FP013080 | * FP013090 | 1 LISTING OF 12/01/64 PAGE 35 | MAIN1 (9PAC31). SUBROUTINES | *THIS ROUTINE TAKES ACTION ON SPECIAL CONTROL CARDS FP013110 | * FP013120 | 12013 -0500 00 0 04621 BB900 CAL CARD FP013130 | 12014 -0760 00 0 00001 PBT FP013140 | 12015 0020 00 4 00002 TRA 2,4 CANNOT BE A $ CARD FP013150 12016 0634 00 4 12052 SXA BB912,4 MAY BE AN IBSYS CONTROL CARD FP013160 | 12017 0074 00 4 05642 TSX NLIST,4 FP013170 | 12020 0 00014 0 04621 PZE CARD,,12 FP013180 | 12021 -0500 00 0 04621 CAL CARD FP013190 | 12022 -0320 00 0 11015 ANA BCD70 FP013200 12023 0774 00 4 00006 AXT 6,4 FP013210 | 12024 -0340 00 4 12043 LAS BAB19,4 FP013220 | 12025 0020 00 0 12027 TRA *+2 FP013230 | 12026 0020 00 4 12052 TRA BB912,4 FP013240 | 12027 2 00001 4 12024 TIX *-3,4,1 FP013250 12030 -0320 00 0 11005 ANA BCD60 FP013260 | 12031 0322 00 0 12043 ERA BAB19 FP013270 | 12032 0100 00 0 12052 TZE BB912 IS IT REMARKS FP013280 | 12033 0534 00 4 12052 LXA BB912,4 NOT ANY,ERROR FP013290 | 12034 0020 00 4 00002 TRA 2,4 FP013300 12035 533122627062 BCI 1,$IBSYS FP013310 | 12036 534146226060 BCI 1,$JOB FP013320 | 12037 536263464760 BCI 1,$STOP FP013330 | 12040 533124606060 BCI 1,$ID FP013340 | 12041 532567252364 BCI 1,$EXECU FP013350 12042 534721646225 BCI 1,$PAUSE FP013360 | 12043 535400000000 BAB19 BCI 1,$*0000 FP013370 | * FP013380 | 12044 0020 00 0 05115 TRA SGNOFF FP013390 | 12045 0020 00 0 12057 TRA BB916 FP013400 12046 0020 00 0 12063 TRA BB918 FP013410 | 12047 0020 00 0 12054 TRA BB914 FP013420 | 12050 0020 00 0 12066 TRA BB920 FP013430 | 12051 0074 00 4 00712 TSX (PAUSE,4 FP013440 | 12052 0774 00 4 00000 BB912 AXT **,4 FP013450 12053 0020 00 4 00001 TRA 1,4 FP013460 | 12054 0074 00 4 00117 BB914 TSX SYSIDR,4 FP013470 | 12055 0 00000 0 04621 PZE CARD FP013480 | 12056 0020 00 0 12052 TRA BB912 FP013490 | 12057 -0500 00 0 04746 BB916 CAL IBSBSR FP013500 12060 0602 00 0 00132 SLW SYSGET SET STSGET FP013510 | 12061 -0760 00 0 00133 SSM SYSJOB FP013520 | 12062 0074 00 4 00113 TSX SYSRPT,4 FP013530 | 12063 -0500 00 0 04751 BB918 CAL CSTOP FP013540 | 12064 0602 00 0 00132 SLW SYSGET SET SYSGET FP013550 12065 0020 00 0 00103 TRA SYSRET FP013560 | 12066 -0500 00 0 04623 BB920 CAL CARD+2 POSITION FP013570 | 12067 0560 00 0 04624 LDQ CARD+3 SYSNAM FP013580 | 12070 -0763 00 0 00022 LGL 18 IN THE AC FP013590 | 12071 -0340 00 0 05076 LAS LD9PAC IS THIS STILL 9PAC FP013600 12072 0020 00 0 12074 TRA *+2 NO FP013610 | 12073 0020 00 0 12076 TRA BB922 YES FP013620 | 12074 0602 00 0 00132 SLW SYSGET SYSNAM TO SYSGET FP013630 | 12075 0020 00 0 00103 TRA SYSRET FP013640 | 12076 0074 00 4 12507 BB922 TSX MSYSRD,4 FP013650 1 LISTING OF 12/01/64 PAGE 36 | MAIN1 (9PAC31). SUBROUTINES | | 12077 114721236060 BCI 1,9PAC FP013660 | * FP013670 1 LISTING OF 12/01/64 PAGE 37 | MAIN1 (9PAC31). PROVIDE CHANGE REPORT LABLES | | * FP013690 | * PROVIDE CHANGE REPORT TAPE LABEL MZ000 FP013700 * FP013710 | * FP013720 | * HOUSKEEPING MZ001 FP013730 | * PROVIDE CHANGE REPORT TAPE LABEL MZ498 FP013740 | * CLEANUP MZ499 FP013750 * FP013760 | 12100 0634 00 4 12107 MZ500 SXA MZ650,4 MZ500 FP013770 | 12101 0074 00 4 05255 TSX RD(WR),4 MZ520 FP013780 | 12102 -0 12127 0 00010 FOR 8,,MZ960 MZ530 FP013790 | 12103 0020 00 0 12105 TRA *+2 MZ540 FP013800 12104 0761 00 0 00000 NOP EOT ON REPORT UNIT MZ550 FP013810 | 12105 0074 00 4 05505 TSX NDSRT,4 MZ560 FP013820 | 12106 0 00007 0 00010 PZE 8,,7 MZ570 FP013830 | 12107 0774 00 4 00000 MZ650 AXT 0,4 MZ650 FP013840 | 12110 0020 00 4 00001 TRA 1,4 MZ660 FP013850 12111 470001000000 MZ900 BCI 1,P01000 MZ900 FP013860 | 12112 000500002330 BCI 3,0500CHANGE REPORT MZ910 FP013870 | 12113 214527256051 | 12114 254746516360 | 12115 512523000000 MZ920 BCI 1,REC000 MZ920 FP013880 12116 000000002210 MZ930 BCI 1,0000B8 MZ930 FP013890 | 12117 000000000000 BCI 2,000000000000 MZ940 FP013900 | 12120 000000000000 | 12121 606060606060 BCI 6, MZ950 FP013910 | 12122 606060606060 12123 606060606060 | 12124 606060606060 | 12125 606060606060 | 12126 606060606060 | 12127 3 00016 0 12111 MZ960 IORT MZ900,,14 MZ960 FP013920 * FP013930 | 1 LISTING OF 12/01/64 PAGE 38 | MAIN1 (9PAC31). STORAGE AND CONSTANTS | | * FP013950 * FP013960 | * FP013970 | * FP013980 | * PERMANENT MAIN MEMORY STORAGE FP013990 | 12130 006346223145 GFPSY BCI 1,0TOBIN DAL01 FP014000 12131 0 00000 0 17747 PZE TOBIN DAL02 FP014010 | 12132 002422222351 BCI 1,0DBBCR DAL03 FP014020 | 12133 0 00000 0 20066 PZE DBBCR DAL04 FP014030 | 12134 002422222343 BCI 1,0DBBCL DAL05 FP014040 | 12135 0 00000 0 20065 PZE DBBCL DAL06 FP014050 12136 002422223145 BCI 1,0DBBIN DAL07 FP014060 | 12137 0 00000 0 20064 PZE DBBIN DAL08 FP014070 | 12140 006346222324 BCI 1,0TOBCD DAL09 FP014080 | 12141 0 00000 0 20213 PZE TOBCD DAL10 FP014090 | 12142 002224222351 BCI 1,0BDBCR DAL11 FP014100 12143 0 00000 0 20263 PZE BDBCR DAL12 FP014110 | 12144 002224222343 BCI 1,0BDBCL DAL13 FP014120 | 12145 0 00000 0 20262 PZE BDBCL DAL14 FP014130 | 12146 002224223145 BCI 1,0BDBIN DAL145FP014140 | 12147 0 00000 0 20261 PZE BDBIN DAL146FP014150 12150 006346070002 BCI 1,0TO702 DAL15 FP014160 | 12151 0 00000 0 20642 PZE TO702 DAL16 FP014170 | 12152 006346070011 BCI 1,0TO709 DAL17 FP014180 | 12153 0 00000 0 20777 PZE TO709 DAL18 FP014190 | 12154 006346475163 BCI 1,0TOPRT DAL19 FP014200 12155 0 00000 0 05642 PZE TOPRT DAL20 FP014210 | 12156 002223242226 BCI 1,0BCDBF DAL21 FP014220 | 12157 0 00000 0 15647 PZE BCDBF DAL22 FP014230 | 12160 002231452226 BCI 1,0BINBF DAL23 FP014240 | 12161 0 00000 0 15631 PZE BINBF DAL24 FP014250 12162 002431234346 BCI 1,0DICLO DAL25 FP014260 | 12163 0 00000 0 22176 PZE DICLO DAL26 FP014270 | 12164 006521434346 BCI 1,0VALLO DAL27 FP014280 | 12165 0 00000 0 22177 PZE VALLO DAL28 FP014290 | 12166 002462662330 BCI 1,0DSWCH DAL29 FP014300 12167 0 00000 0 22202 PZE DSWCH DAL30 FP014310 | 12170 002562662330 BCI 1,0ESWCH DAL31 FP014320 | 12171 0 00000 0 22201 PZE ESWCH DAL32 FP014330 | 12172 003162662330 BCI 1,0ISWCH DAL33 FP014340 | 12173 0 00000 0 22205 PZE ISWCH DAL34 FP014350 12174 006071255146 BCI 1,0 ZERO DAL35 FP014360 | 12175 0 00000 0 04672 PZE ZERO DAL36 FP014370 | 12176 006060464525 BCI 1,0 ONE DAL37 FP014380 | 12177 0 00000 0 04673 PZE ONE DAL38 FP014390 | 12200 006060636646 BCI 1,0 TWO DAL39 FP014400 12201 0 00000 0 04674 PZE TWO DAL40 FP014410 | 12202 006330512525 BCI 1,0THREE DAL41 FP014420 | 12203 0 00000 0 04675 PZE THREE DAL42 FP014430 | 12204 006026466451 BCI 1,0 FOUR DAL43 FP014440 | 12205 0 00000 0 04676 PZE FOUR DAL44 FP014450 12206 006026316525 BCI 1,0 FIVE DAL45 FP014460 | 12207 0 00000 0 04677 PZE FIVE DAL46 FP014470 | 12210 006060623167 BCI 1,0 SIX DAL47 FP014480 | 12211 0 00000 0 04700 PZE SIX DAL48 FP014490 | 1 LISTING OF 12/01/64 PAGE 39 MAIN1 (9PAC31). STORAGE AND CONSTANTS | | 12212 006225652545 BCI 1,0SEVEN DAL49 FP014500 | 12213 0 00000 0 04701 PZE SEVEN DAL50 FP014510 | 12214 002531273063 BCI 1,0EIGHT DAL51 FP014520 12215 0 00000 0 04702 PZE EIGHT DAL52 FP014530 | 12216 006045314525 BCI 1,0 NINE DAL53 FP014540 | 12217 0 00000 0 04703 PZE NINE DAL54 FP014550 | 12220 006060632545 BCI 1,0 TEN DAL55 FP014560 | 12221 0 00000 0 04704 PZE TEN DAL56 FP014570 12222 004451274346 BCI 1,0MRGLO DAL57 FP014580 | 12223 0 00000 0 22174 PZE MRGLO DAL58 FP014590 | 12224 005125416266 BCI 1,0REJSW DAL59 FP014600 | 12225 0 00000 0 22207 PZE REJSW DAL60 FP014610 | 12226 002365223145 BCI 1,0CVBIN DAL61 FP014620 12227 0 00000 0 17742 PZE CVBIN DAL62 FP014630 | 12230 002365222324 BCI 1,0CVBCD DAL63 FP014640 | 12231 0 00000 0 20210 PZE CVBCD DAL64 FP014650 | 12232 006226434623 BCI 1,0SFLOC DAL65 FP014660 | 12233 0 00000 0 17301 PZE SFLOC DAL66 FP014670 12234 004762662330 BCI 1,0PSWCH DAL71 FP014680 | 12235 0 00000 0 22206 PZE PSWCH DAL72 FP014690 | 12236 002330434623 BCI 1,0CHLOC DAL73 FP014700 | 12237 0 00000 0 17300 PZE CHLOC DAL74 FP014710 | 12240 003145434623 BCI 1,0INLOC DAL75 FP014720 12241 0 00000 0 17310 PZE INLOC DAL76 FP014730 | 12242 004543316263 BCI 1,0NLIST FP014740 | 12243 0 00000 0 05642 PZE NLIST FP014750 | 12244 002643316263 BCI 1,0FLIST FP014760 | 12245 0 00000 0 05646 PZE FLIST FP014770 12246 002343316263 BCI 1,0CLIST FP014780 | 12247 0 00000 0 05630 PZE CLIST FP014790 | 12250 006031462362 BCI 1,0 IOCS FP014800 | 12251 0 00000 0 06246 PZE IOCS FP014810 | 12252 002526314525 BCI 1,0EFINE FP014820 12253 0 00000 0 06252 PZE DEFINE FP014830 | 12254 006041463145 BCI 1,0 JOIN FP014840 | 12255 0 00000 0 06254 PZE JOIN FP014850 | 12256 006363212330 BCI 1,0TTACH FP014860 | 12257 0 00000 0 06256 PZE ATTACH FP014870 12260 002343466225 BCI 1,0CLOSE FP014880 | 12261 0 00000 0 06260 PZE CLOSE FP014890 | 12262 006046472545 BCI 1,0 OPEN FP014900 | 12263 0 00000 0 06262 PZE OPEN FP014910 | 12264 006051252124 BCI 1,0 READ FP014920 12265 0 00000 0 06264 PZE READ FP014930 | 12266 006651316325 BCI 1,0WRITE FP014940 | 12267 0 00000 0 06266 PZE WRITE FP014950 | 12270 006023464770 BCI 1,0 COPY FP014960 | 12271 0 00000 0 06270 PZE COPY FP014970 12272 006060512566 BCI 1,0 REW FP014980 | 12273 0 00000 0 06272 PZE REW FP014990 | 12274 006060662526 BCI 1,0 WEF FP015000 | 12275 0 00000 0 06274 PZE WEF FP015010 | 12276 006060226251 BCI 1,0 BSR FP015020 12277 0 00000 0 06276 PZE BSR FP015030 | 12300 006060226226 BCI 1,0 BSF FP015040 | 1 LISTING OF 12/01/64 PAGE 40 | MAIN1 (9PAC31). STORAGE AND CONSTANTS | 12301 0 00000 0 06300 PZE BSF FP015050 | 12302 006023424763 BCI 1,0 CKPT FP015060 | 12303 0 00000 0 06302 PZE CKPT FP015070 | 12304 006263216230 BCI 1,0STASH FP015080 | 12305 0 00000 0 06304 PZE STASH FP015090 12306 006060446651 BCI 1,0 MWR FP015100 | 12307 0 00000 0 00706 PZE MWR FP015110 | 12310 006024216325 BCI 1,0 DATE FP015120 | 12311 0 00000 0 04447 PZE DATE FP015130 | 12312 002264434623 BCI 1,0BULOC FP015140 12313 0 00000 0 72727 PZE BULOC FP015150 | 12314 002264627125 BCI 1,0BUSZE FP015160 | 12315 0 00000 0 72753 PZE BUSZE FP015170 | 12316 002631430000 BCI 1,0FIL00 FP015180 | 12317 0 00000 0 04350 PZE FIL00 FP015190 12320 002631430007 BCI 1,0FIL07 FP015200 | 12321 0 00000 0 04224 PZE FIL07 FP015210 | 12322 002631430010 BCI 1,0FIL08 FP015220 | 12323 0 00000 0 04210 PZE FIL08 FP015230 | 12324 002631430011 BCI 1,0FIL09 FP015240 12325 0 00000 0 04174 PZE FIL09 FP015250 | 12326 002631430100 BCI 1,0FIL10 FP015260 | 12327 0 00000 0 04160 PZE FIL10 FP015270 | 12330 002631430001 BCI 1,0FIL01 FP015280 | 12331 0 00000 0 04334 PZE FIL01 FP015290 12332 002631430002 BCI 1,0FIL02 FP015300 | 12333 0 00000 0 04320 PZE FIL02 FP015310 | 12334 002631430003 BCI 1,0FIL03 FP015320 | 12335 0 00000 0 04304 PZE FIL03 FP015330 | 12336 002631430004 BCI 1,0FIL04 FP015340 12337 0 00000 0 04270 PZE FIL04 FP015350 | 12340 002631430005 BCI 1,0FIL05 FP015360 | 12341 0 00000 0 04254 PZE FIL05 FP015370 | 12342 002631430006 BCI 1,0FIL06 FP015380 | 12343 0 00000 0 04240 PZE FIL06 FP015390 12344 002631430101 BCI 1,0FIL11 FP015400 | 12345 0 00000 0 04144 PZE FIL11 FP015410 | 12346 002631430102 BCI 1,0FIL12 FP015420 | 12347 0 00000 0 04130 PZE FIL12 FP015430 | 12350 002631430103 BCI 1,0FIL13 FP015440 12351 0 00000 0 04114 PZE FIL13 FP015450 | 12352 002631430104 BCI 1,0FIL14 FP015460 | 12353 0 00000 0 04100 PZE FIL14 FP015470 | 12354 002631430105 BCI 1,0FIL15 FP015480 | 12355 0 00000 0 04064 PZE FIL15 FP015490 12356 002631430106 BCI 1,0FIL16 FP015500 | 12357 0 00000 0 04050 PZE FIL16 FP015510 | 12360 002631430107 BCI 1,0FIL17 FP015520 | 12361 0 00000 0 04034 PZE FIL17 FP015530 | 12362 002631430110 BCI 1,0FIL18 FP015540 12363 0 00000 0 04020 PZE FIL18 FP015550 | 12364 002631430111 BCI 1,0FIL19 FP015560 | 12365 0 00000 0 04004 PZE FIL19 FP015570 | 12366 0 00000 0 00000 PZE 0 FP015580 | 12367 0 00000 0 00000 PZE 0 FP015590 1 LISTING OF 12/01/64 PAGE 41 | MAIN1 (9PAC31). STORAGE AND CONSTANTS | | 12370 004425512725 BCI 1,0MERGE FP015600 | 12371 0 00000 0 22210 PZE MERGE FP015610 12372 004427512324 BCI 1,0MGRCD FP015620 | 12373 0 00000 0 22221 PZE MGRCD FP015630 | 12374 004451276445 BCI 1,0MRGUN FP015640 | 12375 0 00000 0 22207 PZE MRGUN FP015650 | 12376 003144474662 BCI 1,0IMPOS FP015660 12377 0 00000 0 22436 PZE IMPOS FP015670 | 12400 006221656751 BCI 1,0SAVXR FP015680 | 12401 0 00000 0 22321 PZE SAVXR FP015690 | 12402 004664634763 BCI 1,0OUTPT FP015700 | 12403 0 00000 0 16555 PZE OUTPT FP015710 12404 002425432563 BCI 1,0DELET FP015720 | 12405 0 00000 0 17561 PZE DELET FP015730 | 12406 006346265144 BCI 1,0TOFRM FP015740 | 12407 0 00000 0 22052 PZE TOFRM FP015750 | 12410 003046512446 BCI 1,0HORDO FP015760 12411 0 00000 0 21104 PZE HORDO FP015770 | 12474 DAL99 BES 50 FOR BINARY SYSTEM SYMBOL ADDITIONS DAL99 FP015780 | * FP015790 | 12474 DUP 1,11 AAG981FP015800 | 12474 0 00000 0 00000 AAG98 PZE 0 DELETED RT TABLE, FOR COUNTING AAG981FP015810 12475 0 00000 0 00000 | 12476 0 00000 0 00000 | 12477 0 00000 0 00000 | 12500 0 00000 0 00000 | 12501 0 00000 0 00000 12502 0 00000 0 00000 | 12503 0 00000 0 00000 | 12504 0 00000 0 00000 | 12505 0 00000 0 00000 | 12506 0 00000 0 00000 1 LISTING OF 12/01/64 PAGE 42 | MAIN1 (9PAC31). MOVE SYSTEM TAPE | | * FP015830 | * FP015840 *READ SYSTEM TAPE FP015850 | * FP015860 | *CALLING SEQUENCE FP015870 | * FP015880 | * TSX MSYSRD,4 FP015890 * BCI 1,XXXXXX FP015900 | * FP015910 | *WHERE XXXXX IS DESIGNATION OF THE RECORD TO BE READ. FP015920 | * ITS FUNCTION NOW IS TO RESERVE SPACE FOR FP015930 | * DISC FILE USAGE. SINCE SYSRD TRANSFERS FP015940 * TO THE NEXT INSTRUCTION, THERE IS NO RETURN FP015950 | * FP015960 | 12507 0634 00 4 12511 MSYSRD SXA *+2,4 FP015970 | 12510 0020 00 0 04752 TRA SYSRD FP015980 | 12511 0 00000 0 00000 PZE 0 SAVE WHERE WE CAME FROM FP015990 * FP016000 | * FP016010 | 12512 BSS 102 MAIN1 BOONDOCKS FP016020 | 12660 MAIN1 BSS 1 FOR HSKP1 AND DICT MOVE ORIGIN SYMBOL FP016030 | * FP016040 * FP016050 | 1 LISTING OF 12/01/64 PAGE 43 | DICT (9PAC31). BUILD DICTIONARY | | * FP016070 * FP016080 | 12660 ORG MAIN1 FP016090 | * AE001 FP016100 | * REF. E-DICTIONARY LABEL AE002 FP016110 | * AE003 FP016120 12660 243123636060 BCI 1,DICT AE000 FP016130 | 12661 -0500 00 0 04232 AE010 CAL FIL07+6 FILE SERIAL NR AE010 FP016140 | 12662 -0320 00 0 10764 ANA BCD37 FP016150 | 12663 0074 00 4 14062 TSX AJ700,4 AE030 FP016160 | 12664 0 10764 0 16705 PZE WORK,,BCD37 AE040 FP016170 12665 -0500 00 0 17576 CAL BND25 BLANKS AE060 FP016180 | 12666 -0320 00 0 11015 ANA BCD70 AE070 FP016190 | 12667 0074 00 4 14062 TSX AJ700,4 AE080 FP016200 | 12670 0 11015 0 16706 PZE WORK+1,,BCD70 AE090 FP016210 | 12671 0600 00 0 16552 STZ AAG22 FP016220 12672 -0500 00 0 16547 CAL AAG19 PUT REC. TYPE TO TBL. AE101 FP016230 | 12673 0074 00 4 15612 TSX AU080,4 * AE102 FP016240 | 12674 -0500 00 0 16547 CAL AAG19 BUILD BNA WORD 1+2 AE110 FP016250 | 12675 0767 00 0 00030 ALS 24 * AE111 FP016260 | 12676 0602 00 0 17344 SLW BNA10 * AE112 FP016270 12677 -0500 00 0 16706 CAL WORK+1 * AE113 FP016280 | 12700 0560 00 0 16707 LDQ WORK+2 * AE114 FP016290 | 12701 -0763 00 0 00022 LGL 18 * AE115 FP016300 | 12702 -0320 00 0 10744 ANA BCD17 * AE116 FP016310 | 12703 0602 00 0 07751 SLW B1020 * AE117 FP016320 12704 0074 00 4 07570 TSX B0010,4 * AE118 FP016330 | 12705 -0500 00 0 07747 CAL B1000 * AE120 FP016340 | 12706 0601 00 0 17345 STO BNA10+1 * AE121 FP016350 | 12707 0500 00 0 16517 CLA AAG04 TEST APP SW AE128 FP016360 | 12710 0120 00 0 13032 TPL AE805 * OFF AE129 FP016370 12711 -0500 00 0 17576 CAL BND25 BLANKS FP016380 | 12712 -0320 00 0 10733 ANA BCD06 USED TO BE CHECKSUM AND GP HDR INDS FP016390 | 12713 0074 00 4 14062 TSX AJ700,4 * AE160 FP016400 | 12714 0 10733 0 16707 PZE WORK+2,,BCD06 FP016410 | 12715 -0500 00 0 16707 CAL WORK+2 TEST FOR P.C. CHG. AE290 FP016420 12716 0560 00 0 16710 LDQ WORK+3 * AE300 FP016430 | 12717 -0763 00 0 00006 LGL 6 * AE310 FP016440 | 12720 -0320 00 0 10730 ANA BCD03 * AE320 FP016450 | 12721 0602 00 0 16546 SLW AAG18 * AE330 FP016460 | 12722 -0500 00 0 04624 CAL CARD+3 * AE340 FP016470 12723 0771 00 0 00014 ARS 12 * AE350 FP016480 | 12724 -0320 00 0 10730 ANA BCD03 * AE360 FP016490 | 12725 -0340 00 0 16546 LAS AAG18 * AE370 FP016500 | 12726 0020 00 0 12730 TRA *+2 * AE380 FP016510 | 12727 0020 00 0 12765 TRA AE640 * NO CHG. AE390 FP016520 12730 -0340 00 0 16646 LAS AAG74 P.C. BLANK AE400 FP016530 | 12731 0020 00 0 12734 TRA *+3 AE410 FP016540 | 12732 0020 00 0 12755 TRA AE550 * YES AE420 FP016550 | 12733 0020 00 0 12736 TRA *+3 AE425 FP016560 | 12734 0074 00 4 10507 TSX T0010,4 AE426 FP016570 12735 -1 00146 2 12755 STR AE550,2,102 NEW PARENT CODE NOT NUMERIC AE427 FP016580 | 12736 0774 00 1 00144 AXT 100,1 SEACH REC. TYPE TBL AE430 FP016590 | 12737 -0520 00 1 71544 AE440 NZT AAG84+100,1 * AE440 FP016600 | 12740 0020 00 0 12744 TRA AE490 * NOT IN TBL AE450 FP016610 | 1 LISTING OF 12/01/64 PAGE 44 DICT (9PAC31). BUILD DICTIONARY | | 12741 -0340 00 1 71544 LAS AAG84+100,1 * AE460 FP016620 | 12742 0020 00 0 12746 TRA *+4 AE470 FP016630 | 12743 0020 00 0 12752 TRA AE520 * PC IS IN TBL. AE480 FP016640 12744 0074 00 4 10507 AE490 TSX T0010,4 FP016650 | 12745 -1 00147 2 12755 STR AE550,2,103 PARENT CODE NOT IN RT TABLE AE491 FP016660 | 12746 2 00002 1 12737 TIX AE440,1,2 AE500 FP016670 | 12747 0020 00 0 12744 TRA AE490 AE510 FP016680 | 12750 0074 00 4 10507 TSX T0010,4 FP016690 12751 -1 00150 2 12765 STR AE640,2,104 PT CODE NOT LOWER THAN CURRENT RT FP016700 | 12752 -0340 00 0 16547 AE520 LAS AAG19 PC US SF REC TYPE AE520 FP016710 | 12753 0020 00 0 12750 TRA *-3 AE530 FP016720 | 12754 0020 00 0 12753 TRA *-1 * AE540 FP016730 | 12755 -0765 00 0 00006 AE550 LGR 6 MOVE P.C. TO REC AE550 FP016740 12756 0074 00 4 14062 TSX AJ700,4 * AE560 FP016750 | 12757 0 10726 0 16707 PZE WORK+2,,BCD01 * AE570 FP016760 | 12760 -0500 00 0 04624 CAL CARD+3 AE590 FP016770 | 12761 -0320 00 0 10731 AE595 ANA BCD04 AE595 FP016780 | 12762 0767 00 0 00022 ALS 18 AE600 FP016790 12763 0074 00 4 14062 TSX AJ700,4 * AE610 FP016800 | 12764 0 10765 0 16710 PZE WORK+3,,BCD40 * AE620 FP016810 | 12765 -0500 00 0 04624 AE640 CAL CARD+3 CHG REC. DESC. AE640 FP016820 | 12766 0560 00 0 04625 LDQ CARD+4 * AE650 FP016830 | 12767 -0763 00 0 00022 LGL 18 AE660 FP016840 12770 -0320 00 0 10764 ANA BCD37 * AE670 FP016850 | 12771 0074 00 4 14062 TSX AJ700,4 * AE680 FP016860 | 12772 0 10764 0 16710 PZE WORK+3,,BCD37 * AE690 FP016870 | 12773 -0500 00 0 04625 CAL CARD+4 * AE710 FP016880 | 12774 0560 00 0 04626 LDQ CARD+5 * AE720 FP016890 12775 -0763 00 0 00022 LGL 18 * AE730 FP016900 | 12776 -0320 00 0 11024 ANA BCD77 * AE740 FP016910 | 12777 0074 00 4 14062 TSX AJ700,4 * AE741 FP016920 | 13000 0 11024 0 16711 PZE WORK+4,,BCD77 * AE742 FP016930 | 13001 -0500 00 0 04626 CAL CARD+5 * AE744 FP016940 13002 0560 00 0 04627 LDQ CARD+6 * AE745 FP016950 | 13003 -0763 00 0 00022 LGL 18 * AE746 FP016960 | 13004 -0320 00 0 11024 ANA BCD77 * AE747 FP016970 | 13005 0074 00 4 14062 TSX AJ700,4 * AE748 FP016980 | 13006 0 11024 0 16712 PZE WORK+5,,BCD77 * AE749 FP016990 13007 -0500 00 0 04627 CAL CARD+6 * AE751 FP017000 | 13010 0560 00 0 04630 LDQ CARD+7 FP017010 | 13011 -0765 00 0 00006 LGR 6 FP017020 | 13012 -0320 00 0 11024 ANA BCD77 FP017030 | 13013 0074 00 4 14062 TSX AJ700,4 * AE754 FP017040 13014 0 11024 0 16713 PZE WORK+6,,BCD77 FP017050 | 13015 0774 00 1 00007 AXT 7,1 MOVE LABEL TO W.A. AE760 FP017060 | 13016 -0500 00 1 16714 CAL WORK+7,1 AE761 FP017070 | 13017 0602 00 1 16666 SLW AAG83+7,1 AE762 FP017080 | 13020 2 00001 1 13016 TIX *-2,1,1 * AE763 FP017090 13021 0074 00 4 13067 TSX AG010,4 READ CHG AE790 FP017100 | 13022 0020 00 0 13031 TRA AE800 * AE791 FP017110 | 13023 0020 00 0 13031 TRA AE800 * AE792 FP017120 | 13024 0020 00 0 13334 TRA AH080 * AE793 FP017130 | 13025 0020 00 0 13334 TRA AH080 * AE794 FP017140 13026 0020 00 0 13334 TRA AH080 * AE795 FP017150 | 13027 0074 00 4 10507 TSX T0010,4 FP017160 | 1 LISTING OF 12/01/64 PAGE 45 | DICT (9PAC31). BUILD DICTIONARY | 13030 -1 00151 2 13021 STR *-7,2,105 REPT FUNC NOT ALLOWED FP017170 | 13031 0600 00 0 16517 AE800 STZ AAG04 SET APP SW OFF AE800 FP017180 | 13032 0074 00 4 16064 AE805 TSX AW500,4 P.C. TBL. + SEQ ID. AE805 FP017190 | 13033 -0774 00 2 16705 AXC WORK,2 AE806 FP017200 | 13034 0074 00 4 15564 TSX AT010,4 WRITE E REC. AE810 FP017210 13035 -0 00007 0 16705 IOCP WORK,,7 AE811 FP017220 | 13036 3 00007 0 16723 IORT BLK11,,7 AE812 FP017230 | 13037 0500 00 0 17345 CLA BNA10+1 SET WORD 3 OF BNA10 AE820 FP017240 | 13040 0601 00 0 17346 STO BNA10+2 * AE830 FP017250 | 13041 0074 00 4 16736 TSX BN010,4 TO GEN OBJ PROG AE840 FP017260 13042 0 00000 0 00000 PZE * AE850 FP017270 | 13043 0020 00 0 13334 TRA AH080 TO REF. A. AE860 FP017280 | * AF001 FP017290 | * REF. P END OF DICTIONARY REC. AF002 FP017300 | * AF003 FP017310 13044 -0500 00 0 16532 AF010 CAL AAG15 CHG LABEL EXEC CODE AF010 FP017320 | 13045 0767 00 0 00036 ALS 30 * TO P AF013 FP017330 | 13046 0074 00 4 14062 TSX AJ700,4 * AF016 FP017340 | 13047 0 10765 0 25645 PZE ABA60,,BCD40 FP017350 | 13050 0074 00 4 15564 TSX AT010,4 *WRITE P RECORD AF029 FP017360 13051 -0 00007 0 25645 IOCP ABA60,,7 FP017370 | 13052 3 00007 0 16723 IORT BLK11,,7 AF038 FP017380 | 13053 0520 00 0 11412 ZET NEWSW IF NEW CASE, THERE IS NO AF0390FP017390 | 13054 0020 00 0 13062 TRA AF090 INPUT MASTER TO POSITION AF0391FP017400 | 13055 0074 00 4 05255 TSX RD(WR),4 READ PAST MASTER-IN EOF AF040 FP017410 13056 0 13061 0 00000 PZE 0,,AF080 AF050 FP017420 | 13057 0020 00 0 13055 TRA *-2 EOF DID NOT FOLLOW P-LABEL AF060 FP017430 | 13060 0020 00 0 13062 TRA AF090 EOF AF070 FP017440 | 13061 3 00001 2 00000 AF080 IORTN 0,0,1 AF080 FP017450 | 13062 0074 00 4 05505 AF090 TSX NDSRT,4 WRITE EOF ON MASTER OUT AF090 FP017460 13063 0 00007 0 00007 PZE 7,0,7 AF100 FP017470 | 13064 0520 00 0 11412 ZET NEWSW AF111 FP017480 | 13065 0020 00 0 17311 TRA BEM30 AF112 FP017490 | * FP017500 | 13066 0020 00 0 17263 TRA BEL10 AF120 FP017510 * DICTIONARY CHANGES FP017520 | * READ PARAMETER DECK SUBROUTINE FP017530 | * FP017540 | 13067 0634 00 4 13075 AG010 SXA AG060,4 AG010 FP017550 | 13070 0074 00 4 05255 TSX RD(WR),4 AG020 FP017560 13071 0 04712 1 00025 PZE 21,1,BCOMD AG030 FP017570 | 13072 0020 00 0 13075 TRA AG060 AG040 FP017580 | 13073 0074 00 4 10507 TSX T0010,4 FP017590 | 13074 -1 07664 4 00000 STR 0,4,4020 EOF READING DICT PARAMETERS AG050 FP017600 | 13075 0774 00 4 00000 AG060 AXT ..,4 AG060 FP017610 * FP017620 | 13076 -0500 00 0 04621 CAL CARD SEQ. MAJ PRIORITY AG100 FP017630 | 13077 -0765 00 0 00030 LGR 24 AG110 FP017640 | 13100 -0340 00 0 16514 LAS AAG01 AG120 FP017650 | 13101 0020 00 0 13105 TRA AG160 HIGH AG130 FP017660 13102 0020 00 0 13145 TRA AG500 EQUAL AG140 FP017670 | 13103 0074 00 4 10507 TSX T0010,4 FP017680 | 13104 -1 00152 2 13070 STR AG010+1,2,106 SEQ ERROR CHANGES AG150 FP017690 | 13105 -0340 00 0 16553 AG160 LAS AAG23 FP017700 | 13106 0020 00 0 13112 TRA *+4 FP017710 1 LISTING OF 12/01/64 PAGE 46 | DICT (9PAC31). BUILD DICTIONARY | | 13107 0761 00 0 00000 NOP FP017720 | 13110 0602 00 0 16514 SLW AAG01 FP017730 13111 0020 00 0 13117 TRA AG200 FP017740 | 13112 -0500 00 0 04621 CAL CARD FP017750 | 13113 0074 00 4 12013 TSX BB900,4 FP017760 | 13114 0020 00 0 13070 TRA AG010+1 FP017770 | 13115 0074 00 4 10507 TSX T0010,4 FP017780 13116 -1 05727 3 00000 STR 0,3,3031 MAJ PRIOR NOT NUMERIC FP017790 | 13117 -0500 00 0 04622 AG200 CAL CARD+1 TEST FUNCTION AG200 FP017800 | 13120 -0340 00 0 16515 LAS AAG02 AG210 FP017810 | 13121 0020 00 0 13123 TRA *+2 AG220 FP017820 | 13122 0020 00 0 13127 TRA AG270 AG230 FP017830 13123 0600 00 0 16516 STZ AAG03 SET CHG SW TO OFF AG240 FP017840 | 13124 0500 00 0 16524 CLA AAG09 SET CHG REC TYPE TO MAX. AG245 FP017850 | 13125 0601 00 0 16525 STO AAG10 AG246 FP017860 | 13126 0020 00 4 00001 TRA 1,4 EXIT NO 1. AG250 FP017870 | 13127 0600 00 0 16520 AG270 STZ AAG05 RESET PREV FLD. NO. AG270 FP017880 13130 0500 00 0 16516 CLA AAG03 SET CHG SW TO ON AG280 FP017890 | 13131 -0760 00 0 00003 SSM * AG290 FP017900 | 13132 0601 00 0 16516 STO AAG03 * AG300 FP017910 | 13133 -0500 00 0 04623 CAL CARD+2 STORE CHG. REC TYPE AG310 FP017920 | 13134 -0765 00 0 00006 LGR 6 * AG320 FP017930 13135 -0320 00 0 10730 ANA BCD03 * AG330 FP017940 | 13136 -0340 00 0 16525 LAS AAG10 AG331 FP017950 | 13137 0020 00 0 13143 TRA AG340 AG332 FP017960 | 13140 0020 00 0 13141 TRA *+1 AG333 FP017970 | 13141 0074 00 4 10507 TSX T0010,4 FP017980 13142 -1 00154 2 13070 STR AG010+1,2,108 PARA-SF REC TYPE SEQ ERR AG334 FP017990 | 13143 0602 00 0 16525 AG340 SLW AAG10 AG340 FP018000 | 13144 0020 00 4 00002 TRA 2,4 EXIT NO. 2 AG350 FP018010 | 13145 -0500 00 0 04621 AG500 CAL CARD TEST FUNCTION - DICT AG500 FP018020 | 13146 0560 00 0 04622 LDQ CARD+1 AG510 FP018030 13147 -0763 00 0 00022 LGL 18 AG520 FP018040 | 13150 -0320 00 0 10744 ANA BCD17 AG530 FP018050 | 13151 -0340 00 0 16521 LAS AAG06 AG540 FP018060 | 13152 0020 00 0 13234 TRA AG680 AG550 FP018070 | 13153 0020 00 0 13155 TRA *+2 EQUAL AG560 FP018080 13154 0020 00 0 13234 TRA AG680 AG570 FP018090 | 13155 0074 00 1 13276 TSX AG900,1 TEST REC. TYPE + FLD. NO. AG571 FP018100 | 13156 -0500 00 0 04622 CAL CARD+1 FLD. NO. VS PREV. AG580 FP018110 | 13157 0560 00 0 04623 LDQ CARD+2 AG590 FP018120 | 13160 -0763 00 0 00022 LGL 18 AG600 FP018130 13161 -0320 00 0 10744 ANA BCD17 AG610 FP018140 | 13162 -0340 00 0 16520 LAS AAG05 AG620 FP018150 | 13163 0020 00 0 13167 TRA AG660 HIGH AG630 FP018160 | 13164 0020 00 0 13165 TRA *+1 AG640 FP018170 | 13165 0074 00 4 10507 TSX T0010,4 FP018180 13166 -1 00155 2 13070 STR AG010+1,2,109 PARA-SF FLD NO SEQ ERR AG650 FP018190 | 13167 0602 00 0 16520 AG660 SLW AAG05 UPDATE PREV. FIELD NO. AG660 FP018200 | 13170 0767 00 0 00006 ALS 6 AG670 FP018210 | 13171 -0501 00 0 16526 ORA AAG11 AG671 FP018220 | 13172 0602 00 0 16530 SLW AAG13 AG672 FP018230 13173 0600 00 0 16654 STZ AAG80 AG672 FP018240 | 13174 0020 00 4 00003 AG673 TRA 3,4 AG6730FP018250 | 13175 -0500 00 0 04623 CAL CARD+2 CONVERT CHARACTERS TO BITS AG6740FP018260 | 1 LISTING OF 12/01/64 PAGE 47 | DICT (9PAC31). BUILD DICTIONARY | 13176 0560 00 0 04624 LDQ CARD+3 AG6741FP018270 | 13177 -0763 00 0 00006 LGL 6 AG6742FP018280 | 13200 -0320 00 0 10734 ANA BCD07 AG6743FP018290 | 13201 0602 00 0 07751 SLW B1020 AG6744FP018300 13202 -0500 00 0 11021 CAL BCD74 AG6745FP018310 | 13203 0320 00 0 04623 ANS CARD+2 AG6746FP018320 | 13204 -0500 00 0 10764 CAL BCD37 AG6747FP018330 | 13205 0320 00 0 04624 ANS CARD+3 AG6748FP018340 | 13206 -0500 00 0 04624 CAL CARD+3 AG6750FP018350 13207 -0320 00 0 10745 ANA BCD20 AG6751FP018360 | 13210 0100 00 0 13214 TZE *+4 AG6752FP018370 | 13211 0074 00 4 07572 TSX B0012,4 AG6753FP018380 | 13212 0500 00 0 07747 CLA B1000 AG6754FP018390 | 13213 0020 00 0 13222 TRA AG677 AG6755FP018400 13214 0074 00 4 07570 TSX B0010,4 AG6760FP018410 | 13215 0500 00 0 07747 CLA B1000 AG6761FP018420 | 13216 0400 00 0 07747 ADD B1000 AG6762FP018430 | 13217 0402 00 0 11026 SUB NMBR1 AG6763FP018440 | 13220 0737 00 4 00000 PAC 0,4 AG6764FP018450 13221 -0500 00 4 11057 CAL EQUIV,4 AG6765FP018460 | 13222 0601 00 0 10127 AG677 STO B6000 AG6770FP018470 | 13223 0074 00 4 10070 TSX B5010,4 AG6771FP018480 | 13224 -0500 00 0 10131 CAL B6020 AG6772FP018490 | 13225 -0765 00 0 00006 LGR 6 AG6773FP018500 13226 -0602 00 0 04623 ORS CARD+2 AG6774FP018510 | 13227 -0130 00 0 00000 XCL AG6775FP018520 | 13230 -0320 00 0 10765 ANA BCD40 AG6776FP018530 | 13231 -0602 00 0 04624 ORS CARD+3 AG6777FP018540 | 13232 0774 00 4 00000 AG679 AXT ..,4 AG6790FP018550 13233 0020 00 4 00003 TRA 3,4 AG6791FP018560 | 13234 -0340 00 0 16522 AG680 LAS AAG07 TEST FOR SUMM AG680 FP018570 | 13235 0020 00 0 13237 TRA *+2 AG690 FP018580 | 13236 0020 00 0 13244 TRA AG760 EQUAL AG700 FP018590 | 13237 -0340 00 0 16523 LAS AAG08 TEST FOR REPT AG710 FP018600 13240 0020 00 0 13242 TRA *+2 AG720 FP018610 | 13241 0020 00 4 00006 TRA 6,4 EQUAL AG730 FP018620 | 13242 0074 00 4 10507 TSX T0010,4 FP018630 | 13243 -1 00156 2 13070 STR AG010+1,2,110 PARA-IMPROPER FUNCTION AG750 FP018640 | 13244 0074 00 1 13276 AG760 TSX AG900,1 TEST REC TYPE + FLD. NO. AG760 FP018650 13245 -0500 00 0 04622 CAL CARD+1 FLD. NO. VS. PREV AG761 FP018660 | 13246 0560 00 0 04623 LDQ CARD+2 AG770 FP018670 | 13247 -0763 00 0 00022 LGL 18 AG780 FP018680 | 13250 -0320 00 0 10744 ANA BCD17 AG790 FP018690 | 13251 0767 00 0 00006 ALS 6 AG780 FP018700 13252 -0501 00 0 16527 ORA AAG12 AG810 FP018710 | 13253 0602 00 0 16530 SLW AAG13 AG820 FP018720 | 13254 -0765 00 0 00006 LGR 6 AG830 FP018730 | 13255 -0340 00 0 16520 LAS AAG05 AG840 FP018740 | 13256 0020 00 0 13262 TRA AG871 AG850 FP018750 13257 0020 00 0 13265 TRA AG891 AG860 FP018760 | 13260 0074 00 4 10507 TSX T0010,4 FP018770 | 13261 -1 00157 2 13070 STR AG010+1,2,111 PARA-SF SUMM SEQ ERR AG870 FP018780 | 13262 0600 00 0 16654 AG871 STZ AAG80 AG871 FP018790 | 13263 0602 00 0 16520 AG880 SLW AAG05 UPDATE PREV FLD NO AG880 FP018800 13264 0020 00 4 00004 TRA 4,4 EXIT NO. 4 AG890 FP018810 | 1 LISTING OF 12/01/64 PAGE 48 | DICT (9PAC31). BUILD DICTIONARY | | 13265 -0500 00 0 04623 AG891 CAL CARD+2 AG891 FP018820 13266 0560 00 0 04624 LDQ CARD+3 AG892 FP018830 | 13267 -0763 00 0 00030 LGL 24 AG893 FP018840 | 13270 -0320 00 0 11024 ANA BCD77 AG894 FP018850 | 13271 -0340 00 0 16654 LAS AAG80 AG895 FP018860 | 13272 0020 00 0 13320 TRA AG991 AG896 FP018870 13273 0020 00 0 13274 TRA *+1 AG897 FP018880 | 13274 0074 00 4 10507 TSX T0010,4 FP018890 | 13275 -1 00160 2 13070 STR AG010+1,2,112 PARA-SUMM TO SEQ ERR AG898 FP018900 | 13276 0634 00 1 13316 AG900 SXA AG980,1 SAVE INDEX REGISTERS AG900 FP018910 | 13277 0634 00 4 13315 SXA AG970,4 * AG901 FP018920 13300 -0500 00 0 04622 CAL CARD+1 TEST REC. TYPE + FLD. NO. AG910 FP018930 | 13301 0560 00 0 04623 LDQ CARD+2 * FOR NUMERIC AG920 FP018940 | 13302 -0763 00 0 00022 LGL 18 * AG930 FP018950 | 13303 0602 00 0 07751 SLW B1020 * AG940 FP018960 | 13304 0074 00 4 16002 TSX AW010,4 TEST FOR NUN NUMERIC AG941 FP018970 13305 0020 00 0 13322 TRA AG993 AG960 FP018980 | 13306 -0500 00 0 07751 CAL B1020 AG963 FP018990 | 13307 -0765 00 0 00030 LGR 24 AG964 FP019000 | 13310 -0340 00 0 16525 LAS AAG10 AG965 FP019010 | 13311 0020 00 0 13313 TRA *+2 AG966 FP019020 13312 0020 00 0 13315 TRA AG970 AG967 FP019030 | 13313 0074 00 4 10507 TSX T0010,4 FP019040 | 13314 -1 00154 2 13070 STR AG010+1,2,108 PARA-SF REC TYPE SEQ ERR AG968 FP019050 | 13315 0774 00 4 00000 AG970 AXT 0,4 RESTORE INDEX REGISTERS AG970 FP019060 | 13316 0774 00 1 00000 AG980 AXT 0,1 * AG980 FP019070 13317 0020 00 1 00001 TRA 1,1 EXIT AG990 FP019080 | 13320 0602 00 0 16654 AG991 SLW AAG80 AG991 FP019090 | 13321 0020 00 4 00005 TRA 5,4 AG992 FP019100 | 13322 0074 00 4 10507 AG993 TSX T0010,4 AG993 FP019110 | 13323 -1 00161 2 13070 STR AG010+1,2,113 PARA-NON-NUMERIC RT AG994 FP019120 * DICTIONARY CHANGES FP019130 | * MERGE SOURCE FILE + CHANGES FP019140 | * FP019150 | 13324 0074 00 4 13067 AH010 TSX AG010,4 READ CHG. FILE AH010 FP019160 | 13325 0020 00 0 13334 TRA AH080 * 1 AH020 FP019170 13326 0020 00 0 13334 TRA AH080 * 2 AH030 FP019180 | 13327 0020 00 0 13334 TRA AH080 * 3 AH040 FP019190 | 13330 0020 00 0 13334 TRA AH080 * 4 AH050 FP019200 | 13331 0020 00 0 13334 TRA AH080 * 5 AH060 FP019210 | 13332 0074 00 4 10507 TSX T0010,4 FP019220 13333 -1 00151 2 13324 STR *-7,2,105 REPT FUNCTION NOT ALLOWED AH070 FP019230 | 13334 0520 00 0 11412 AH080 ZET NEWSW AH080 FP019240 | 13335 0020 00 0 16504 TRA AZ500 NEW CASE. SIMULATE P-LABEL AH081 FP019250 | 13336 0074 00 4 05255 TSX RD(WR),4 AH082 FP019260 | 13337 0 13343 0 00000 PZE 0,0,AH120 AH090 FP019270 13340 0020 00 0 13344 TRA AH170 AH100 FP019280 | 13341 0074 00 4 10507 TSX T0010,4 FP019290 | 13342 -1 07710 4 00000 STR 0,4,4040 MASTER-IN DICT, EOF NOT EXPECTED AH110 FP019300 | 13343 3 00016 0 16705 AH120 IORT WORK,,14 AH120 FP019310 | 13344 -0500 00 0 16705 AH170 CAL WORK TEST SF REC. CODE AH170 FP019320 13345 -0765 00 0 00036 LGR 30 AH180 FP019330 | 13346 -0340 00 0 16526 LAS AAG11 AH190 FP019340 | 13347 0020 00 0 13356 TRA *+7 AH200 FP019350 | 13350 0020 00 0 13545 TRA AI250 F AH210 FP019360 | 1 LISTING OF 12/01/64 PAGE 49 DICT (9PAC31). BUILD DICTIONARY | | 13351 -0340 00 0 16531 LAS AAG14 AH220 FP019370 | 13352 0020 00 0 13354 TRA *+2 AH230 FP019380 | 13353 0020 00 0 13366 TRA AH352 E AH240 FP019390 13354 0074 00 4 10507 TSX T0010,4 FP019400 | 13355 -1 06037 3 00000 STR 0,3,3103 DICT LABEL NOT E,F,G,OR P AH250 FP019410 | 13356 -0340 00 0 16532 LAS AAG15 AH260 FP019420 | 13357 0020 00 0 13354 TRA *-3 AH270 FP019430 | 13360 0020 00 0 16504 TRA AZ500 P AH280 FP019440 13361 -0340 00 0 16527 LAS AAG12 AH290 FP019450 | 13362 0020 00 0 13364 TRA *+2 AH300 FP019460 | 13363 0020 00 0 15314 TRA AR010 G AH310 FP019470 | 13364 0074 00 4 10507 TSX T0010,4 FP019480 | 13365 -1 06036 3 00000 STR 0,3,3102 DICT LABEL NOT E,F,G,OR P AH320 FP019490 * FP019500 | * DICTIONARY LABEL SF RECORD FP019510 | * FP019520 | 13366 -0500 00 0 16547 AH352 CAL AAG19 PREV SF REC. TYPE VS. AH352 FP019530 | 13367 -0340 00 0 16525 LAS AAG10 CHG REC TYPE AH352 FP019540 13370 0020 00 0 13376 TRA AH359 * HI AH353 FP019550 | 13371 0020 00 0 13373 TRA *+2 * EQ AH354 FP019560 | 13372 0020 00 0 13400 TRA AH361 * LO AH355 FP019570 | 13373 -0760 00 0 00003 SSM SET SW 2 TO ON AH356 FP019580 | 13374 0601 00 0 16645 STO AAG73 * AH357 FP019590 13375 0020 00 0 14555 TRA AN500 TO INSERT SF FLD AH358 FP019600 | 13376 0074 00 4 10507 AH359 TSX T0010,4 AH359 FP019610 | 13377 -1 10066 4 00000 STR 0,4,4150 CHG FILE RT NOT IN SF DICT AH360 FP019620 | 13400 -0500 00 0 16706 AH361 CAL WORK+1 SF REC. TYPE VS. PREV. AH361 FP019630 | 13401 -0765 00 0 00006 LGR 6 * AH362 FP019640 13402 -0320 00 0 10730 ANA BCD03 * AH363 FP019650 | 13403 -0340 00 0 16547 LAS AAG19 * AH364 FP019660 | 13404 0020 00 0 13410 TRA *+4 AH365 FP019670 | 13405 0020 00 0 13406 TRA *+1 * AH367 FP019680 | 13406 0074 00 4 10507 TSX T0010,4 FP019690 13407 -1 06477 3 00000 STR 0,3,3391 SF REC TYPES OUT OF ORDER AH368 FP019700 | 13410 0602 00 0 16547 SLW AAG19 UPDATE PREV REC TYPE AH369 FP019710 | 13411 0500 00 0 16517 AH370 CLA AAG04 TEST APP SW. AH370 FP019720 | 13412 0120 00 0 13416 TPL AH420 * OFF AH380 FP019730 | 13413 0760 00 0 00003 SSP SET APP. SW. TO OFF AH390 FP019740 13414 0601 00 0 16517 STO AAG04 * AH400 FP019750 | 13415 0020 00 0 16020 TRA AW110 TO REF. T AH410 FP019760 | 13416 0500 00 0 16516 AH420 CLA AAG03 TEST CHG SW. AH420 FP019770 | 13417 0120 00 0 13423 TPL AH470 * OFF AH430 FP019780 | 13420 0500 00 0 16533 CLA AAG16 TEST SW. 1A AH440 FP019790 13421 0120 00 0 13426 TPL AH500 * OFF AH450 FP019800 | 13422 0020 00 0 15602 TRA AU010 TO REF. I AH460 FP019810 | 13423 0500 00 0 16533 AH470 CLA AAG16 TEST SW. 1B AH470 FP019820 | 13424 0120 00 0 13432 TPL AH560 * OFF AH480 FP019830 | 13425 0020 00 0 13044 TRA AF010 TO REF. P AH490 FP019840 13426 -0500 00 0 16547 AH500 CAL AAG19 SF REC TYPE VS. CHG AH500 FP019850 | 13427 -0340 00 0 16525 LAS AAG10 AH510 FP019860 | 13430 0020 00 0 15602 TRA AU010 TO REF. I AH520 FP019870 | 13431 0020 00 0 13454 TRA AH700 AH530 FP019880 | 13432 -0500 00 0 16707 AH560 CAL WORK+2 MASK + STORE PARENT CODE AH560 FP019890 13433 0560 00 0 16710 LDQ WORK+3 * AH570 FP019900 | 13434 -0763 00 0 00006 LGL 6 * AH580 FP019910 | 1 LISTING OF 12/01/64 PAGE 50 | DICT (9PAC31). BUILD DICTIONARY | 13435 -0320 00 0 10730 ANA BCD03 * AH590 FP019920 | 13436 0602 00 0 16546 SLW AAG18 * AH600 FP019930 | 13437 0074 00 4 13442 TSX AH610,4 AH601 FP019940 | 13440 0020 00 0 12661 TRA AE010 AH602 FP019950 | 13441 0020 00 0 13452 TRA AH690 TO DELETE REC SUBROUTINE AH603 FP019960 13442 0774 00 1 00012 AH610 AXT 10,1 HAS PARENT BEEN DELETED AH610 FP019970 | 13443 -0500 00 1 16546 CAL AAG18,1 * AH620 FP019980 | 13444 0100 00 4 00001 TZE 1,4 * NO AH630 FP019990 | 13445 -0340 00 0 16546 LAS AAG18 * AH640 FP020000 | 13446 0020 00 4 00001 TRA 1,4 * NO AH650 FP020010 13447 0020 00 4 00002 TRA 2,4 * DELETE THIS REC. T. AH660 FP020020 | 13450 2 00001 1 13443 TIX *-5,1,1 * AH670 FP020030 | 13451 0020 00 4 00001 TRA 1,4 * NO AH680 FP020040 | 13452 0074 00 4 13504 AH690 TSX AI050,4 TO DELETE REC TYPE AH690 FP020050 | 13453 0020 00 0 13344 TRA AH170 * AH693 FP020060 13454 -0500 00 0 04624 AH700 CAL CARD+3 CHG ACTION CODE AH700 FP020070 | 13455 -0765 00 0 00030 LGR 24 * AH710 FP020080 | 13456 -0320 00 0 10726 ANA BCD01 * AH720 FP020090 | 13457 -0340 00 0 16551 LAS AAG21 * AH730 FP020100 | 13460 0020 00 0 13464 TRA AH770 * AH740 FP020110 13461 0020 00 0 13502 TRA AI010 D - DELETE AH750 FP020120 | 13462 0074 00 4 10507 AH760 TSX T0010,4 AH760 FP020130 | 13463 -1 06464 3 00000 STR 0,3,3380 DICT REL ACT NOT D,I,M,O AH761 FP020140 | 13464 -0340 00 0 16550 AH770 LAS AAG20 AH770 FP020150 | 13465 0020 00 0 13462 TRA AH760 AH780 FP020160 13466 0020 00 0 13470 TRA AH810 M- MODIFY AH790 FP020170 | 13467 0020 00 0 13462 TRA AH760 AH800 FP020180 | 13470 -0760 00 0 00003 AH810 SSM SET APP SW. TO ON AH810 FP020190 | 13471 0601 00 0 16517 STO AAG04 * AH820 FP020200 | 13472 -0500 00 0 04624 CAL CARD+3 CHG. PARENT TO WA AH830 FP020210 13473 -0765 00 0 00014 LGR 12 * AH840 FP020220 | 13474 -0320 00 0 10730 ANA BCD03 * AH850 FP020230 | 13475 0602 00 0 16546 SLW AAG18 * AH860 FP020240 | 13476 0074 00 4 13442 TSX AH610,4 TO TEST PARENT TABLE AH870 FP020250 | 13477 0020 00 0 12661 TRA AE010 TO REG. E. AH880 FP020260 13500 0074 00 4 10507 TSX T0010,4 FP020270 | 13501 -1 12266 5 00000 STR 0,5,5302 MORE THAN 10 RECORD TYPE DELETIONS AH890 FP020280 | 13502 0074 00 4 13504 AI010 TSX AI050,4 AI010 FP020290 | 13503 0020 00 0 13533 TRA AI125 AI020 FP020300 | * FP020310 1 LISTING OF 12/01/64 PAGE 51 | DICT (9PAC31). BUILD DICTIONARY | | * DELETE SF RECORD TYPE FP020330 | * FP020340 13504 0774 00 1 00012 AI050 AXT 10,1 REC. TYPE TO DELETE TBL. AI050 FP020350 | 13505 -0500 00 0 16547 CAL AAG19 * AI060 FP020360 | 13506 0602 00 1 16546 SLW AAG18,1 * AI070 FP020370 | 13507 2 00001 1 13512 TIX AI100,1,1 * AI080 FP020380 | 13510 0074 00 4 10507 TSX T0010,4 FP020390 13511 -1 12265 5 00000 STR 0,5,5301 MORE THAN 10 RECORD TYPE DELETIONS AI090 FP020400 | 13512 0634 00 1 13504 AI100 SXA AI050,1 * AI100 FP020410 | 13513 0634 00 4 13531 SXA AI115,4 AI101 FP020420 | 13514 -0500 00 0 16547 CAL AAG19 BUILD BNA10 WORD 1+2 AI102 FP020430 | 13515 0767 00 0 00030 ALS 24 * AI103 FP020440 13516 0602 00 0 17344 SLW BNA10 * AI104 FP020450 | 13517 -0500 00 0 16706 CAL WORK+1 * AI105 FP020460 | 13520 0560 00 0 16707 LDQ WORK+2 * AI106 FP020470 | 13521 -0763 00 0 00022 LGL 18 * AI107 FP020480 | 13522 -0320 00 0 10734 AI107 ANA BCD07 AI1071FP020490 13523 0602 00 0 07751 SLW B1020 * AI108 FP020500 | 13524 0074 00 4 07570 TSX B0010,4 * AI109 FP020510 | 13525 -0500 00 0 07747 CAL B1000 * AI111 FP020520 | 13526 0601 00 0 17345 STO BNA10+1 * AI112 FP020530 | 13527 0074 00 4 16736 TSX BN010,4 GEN OBJ PROG AI113 FP020540 13530 -0 00000 0 00000 MZE * AI114 FP020550 | 13531 0774 00 4 00000 AI115 AXT 0,4 EXIT AI115 FP020560 | 13532 0020 00 4 00001 TRA 1,4 AI116 FP020570 | 13533 0074 00 4 13067 AI125 TSX AG010,4 TO READ CHG FILE AI125 FP020580 | 13534 0020 00 0 13344 TRA AH170 * 1 AI130 FP020590 13535 0020 00 0 13344 TRA AH170 * 2 AI140 FP020600 | 13536 0020 00 0 13543 TRA AI190 * 3 AI150 FP020610 | 13537 0020 00 0 13543 TRA AI190 * 4 AI160 FP020620 | 13540 0020 00 0 13543 TRA AI190 * 5 AI170 FP020630 | 13541 0074 00 4 10507 TSX T0010,4 FP020640 13542 -1 00151 2 13533 STR *-7,2,105 AI180 FP020650 | 13543 0074 00 4 10507 AI190 TSX T0010,4 AI190 FP020660 | 13544 -1 00162 2 13534 STR *-8,2,114 REC TYPE DELETE NOT HEADR AI191 FP020670 | * FIELD DEFINITION SF RECORD FP020680 | * FP020690 13545 -0500 00 0 16705 AI250 CAL WORK SEQ. CHECK REC. TYPE AI250 FP020700 | 13546 -0765 00 0 00022 LGR 18 * AI260 FP020710 | 13547 -0320 00 0 10730 ANA BCD03 * AI270 FP020720 | 13550 -0340 00 0 16547 LAS AAG19 * AI280 FP020730 | 13551 0020 00 0 13553 TRA *+2 * AI290 FP020740 13552 0020 00 0 13555 TRA AI320 * EQUAL AI300 FP020750 | 13553 0074 00 4 10507 TSX T0010,4 FP020760 | 13554 -1 06500 3 00000 STR 0,3,3392 DICT CARD RT LOWER THAN PREV SF RT AI310 FP020770 | 13555 -0500 00 0 16705 AI320 CAL WORK SEQ CHECK FLD. NO AI320 FP020780 | 13556 0560 00 0 16706 LDQ WORK+1 * AI330 FP020790 13557 -0763 00 0 00006 LGL 6 * AI340 FP020800 | 13560 -0320 00 0 10744 ANA BCD17 * AI360 FP020810 | 13561 -0340 00 0 16552 LAS AAG22 * AI370 FP020820 | 13562 0020 00 0 13566 TRA AI410 * AI380 FP020830 | 13563 0020 00 0 13564 TRA *+1 * AI390 FP020840 13564 0074 00 4 10507 TSX T0010,4 FP020850 | 13565 -1 06510 3 00000 STR 0,3,3400 DICT CARD F= LOWER THAN PREV SF F= AI400 FP020860 | 13566 0602 00 0 16552 AI410 SLW AAG22 UPDATE PREV. FLD NO AI410 FP020870 | 1 LISTING OF 12/01/64 PAGE 52 | DICT (9PAC31). BUILD DICTIONARY | 13567 -0500 00 0 16706 CAL WORK+1 CONVERT FLD. SIZE AI431 FP020880 | 13570 0560 00 0 16707 LDQ WORK+2 * AI432 FP020890 | 13571 -0763 00 0 00006 LGL 6 * AI433 FP020900 | 13572 -0320 00 0 10734 ANA BCD07 * AI434 FP020910 13573 0602 00 0 07751 SLW B1020 * AI435 FP020920 | 13574 0074 00 4 16002 TSX AW010,4 T TEST FOR NUN NUMERIC AI436 FP020930 | 13575 0020 00 0 13577 TRA *+2 FP020940 | 13576 0020 00 0 13601 TRA *+3 FP020950 | 13577 0074 00 4 10507 TSX T0010,4 FP020960 13600 -1 00163 2 13601 STR *+1,2,115 NON-NUM FLD SIZE AI437 FP020970 | 13601 0074 00 4 07570 TSX B0010,4 * AI438 FP020980 | 13602 0500 00 0 07747 CLA B1000 * AI440 FP020990 | 13603 0601 00 0 16616 AI441 STO AAG62 AI441 FP021000 | 13604 -0500 00 0 16705 CAL WORK AI442 FP021010 13605 0560 00 0 16706 LDQ WORK+1 AI443 FP021020 | 13606 -0763 00 0 00006 LGL 6 AI444 FP021030 | 13607 0602 00 0 16704 SLW AAG97 CURRENT RT AND FLD AI445 FP021040 | 13610 -0500 00 0 04622 CAL CARD+1 AI446 FP021050 | 13611 0560 00 0 04623 LDQ CARD+2 AI447 FP021060 13612 -0763 00 0 00022 LGL 18 AI448 FP021070 | 13613 -0320 00 0 11024 ANA BCD77 AI449 FP021080 | 13614 0402 00 0 16704 SUB AAG97 CHANGE RT AND FLD NUMBER AI450 FP021090 | 13615 -0100 00 0 13633 TNZ AI458 VS SF RT AND FLD AI4501FP021100 | 13616 -0763 00 0 00006 LGL 6 EQUAL AI4502FP021110 13617 -0320 00 0 10726 ANA BCD01 AI4503FP021120 | 13620 0402 00 0 16550 SUB AAG20 ACTION M AI4504FP021130 | 13621 -0100 00 0 13633 TNZ AI458 NO AI4505FP021140 | 13622 -0500 00 0 16706 CAL WORK+1 YES AI4506FP021150 | 13623 -0320 00 0 10761 ANA BCD34 AI4507FP021160 13624 0602 00 0 16704 SLW AAG97 AI4508FP021170 | 13625 -0500 00 0 04624 CAL CARD+3 AI452 FP021180 | 13626 -0320 00 0 10761 ANA BCD34 AI453 FP021190 | 13627 0402 00 0 16704 SUB AAG97 MODE CHANGE AI454 FP021200 | 13630 -0100 00 0 13633 TNZ AI458 YES AI455 FP021210 13631 -0625 00 0 16703 STL AAG96 NO AI456 FP021220 | 13632 0020 00 0 14571 TRA AN610 AI457 FP021230 | 13633 -0500 00 0 16714 AI458 CAL WORK+7 TEST FOR SEQ LVL FLD AI458 FP021240 | 13634 0560 00 0 16715 LDQ WORK+8 AI459 FP021250 | 13635 -0763 00 0 00006 LGL 6 * AI460 FP021260 13636 -0320 00 0 10730 ANA BCD03 * AI470 FP021270 | 13637 0602 00 0 07751 SLW B1020 AI480 FP021280 | 13640 0074 00 4 16002 TSX AW010,4 * NON NUMERIC TEST AI490 FP021290 | 13641 0020 00 0 13717 TRA AJ010 AI500 FP021300 | 13642 -0760 00 0 00003 SSM SET SEQ. I.D. SW. ON AI510 FP021310 13643 0601 00 0 16554 STO AAG25 * AI520 FP021320 | 13644 0074 00 4 13647 AI521 TSX AI530,4 TO BUILD SEQ ID TABLE + CALAI521 FP021330 | 13645 -0774 00 2 16705 AXC WORK,2 AI522 FP021340 | 13646 0020 00 0 13721 TRA AJ012 AI523 FP021350 | 13647 0774 00 1 01446 AI530 AXT SEQID+5,1 BUILD SEQ ID TABLE AI530 FP021360 13650 2 00005 1 13653 TIX *+3,1,5 AI540 FP021370 | 13651 0074 00 4 10507 TSX T0010,4 FP021380 | 13652 -1 11716 5 00000 STR 0,5,5070 MORE THAN 99 SEQ LEVELS AI550 FP021390 | 13653 -0500 00 0 07751 CAL B1020 FP021400 | 13654 0602 00 1 71401 SLW AAG24+SEQID+1,1 LEVEL AI560 FP021410 13655 0522 00 4 00001 XEC 1,4 AI561 FP021420 | 1 LISTING OF 12/01/64 PAGE 53 | DICT (9PAC31). BUILD DICTIONARY | | 13656 -0500 00 2 00001 CAL 1,2 * AI570 FP021430 13657 -0320 00 0 10755 ANA BCD30 FP021440 | 13660 -0602 00 1 71401 ORS AAG24+SEQID+1,1 MODE AI590 FP021450 | 13661 -0500 00 2 00000 CAL 0,2 * AI600 FP021460 | 13662 0560 00 2 00001 LDQ 1,2 * AI610 FP021470 | 13663 -0763 00 0 00006 LGL 6 * AI620 FP021480 13664 0602 00 1 71400 SLW AAG24+SEQID,1 REC TYPE + FLD NR AI630 FP021490 | 13665 -0500 00 2 00002 CAL 2,2 CONVERT REC INCR.-BIN AI640 FP021500 | 13666 0560 00 2 00003 LDQ 3,2 AI650 FP021510 | 13667 -0763 00 0 00022 LGL 18 AI660 FP021520 | 13670 -0600 00 0 16546 STQ AAG18 AI670 FP021530 13671 -0320 00 0 10744 ANA BCD17 AI680 FP021540 | 13672 0602 00 0 07751 SLW B1020 AI690 FP021550 | 13673 0634 00 4 13704 SXA AI810,4 AI700 FP021560 | 13674 0634 00 1 13705 SXA AI810+1,1 AI710 FP021570 | 13675 0074 00 4 07570 TSX B0010,4 AI720 FP021580 13676 0560 00 0 07747 LDQ B1000 AI740 FP021590 | 13677 -0500 00 0 16546 CAL AAG18 AI750 FP021600 | 13700 -0600 00 0 16546 STQ AAG18 AI760 FP021610 | 13701 0771 00 0 00030 ARS 24 AI770 FP021620 | 13702 0602 00 0 07751 SLW B1020 AI780 FP021630 13703 0074 00 4 07570 TSX B0010,4 AI790 FP021640 | 13704 0774 00 4 00000 AI810 AXT 0,4 AI810 FP021650 | 13705 0774 00 1 00000 AXT 0,1 AI820 FP021660 | 13706 -0500 00 0 07747 CAL B1000 REC INCR TO TBL. AI830 FP021670 | 13707 0602 00 1 71403 SLW AAG24+SEQID+3,1 AI840 FP021680 13710 -0500 00 0 16546 CAL AAG18 * AI850 FP021690 | 13711 0602 00 1 71402 SLW AAG24+SEQID+2,1 AI860 FP021700 | 13712 -0500 00 0 16616 CAL AAG62 SIZE TO TBL AI880 FP021710 | 13713 0602 00 1 71404 SLW AAG24+SEQID+4,1 AI890 FP021720 | 13714 0600 00 1 71405 STZ AAG24+SEQID+5,1 AI900 FP021730 13715 0634 00 1 13647 SXA AI530,1 AI910 FP021740 | 13716 0020 00 4 00002 TRA 2,4 AI920 FP021750 | 13717 0760 00 0 00003 AJ010 SSP SET SEQ I.D. SW TO OFF AJ010 FP021760 | 13720 0601 00 0 16554 STO AAG25 * AJ011 FP021770 | 13721 0500 00 0 16517 AJ012 CLA AAG04 TEST APP. SW AJ012 FP021780 13722 0120 00 0 15310 TPL AQ400 OFF-WRITE F. REC. AJ020 FP021790 | 13723 -0500 00 0 16552 CAL AAG22 BUILD SF FLD NO BUFFER AJ030 FP021800 | 13724 0767 00 0 00006 ALS 6 * AJ040 FP021810 | 13725 -0501 00 0 16526 ORA AAG11 * AJ050 FP021820 | 13726 0602 00 0 16557 SLW AAG28 * AJ060 FP021830 13727 -0500 00 0 16547 AJ070 CAL AAG19 AJ070 FP021840 | 13730 -0340 00 0 16525 LAS AAG10 AJ071 FP021850 | 13731 0020 00 0 13734 TRA *+3 AJ072 FP021860 | 13732 0020 00 0 13736 TRA AJ076 AJ073 FP021870 | 13733 0020 00 0 13742 TRA AJ120 AJ074 FP021880 13734 0074 00 4 10507 TSX T0010,4 FP021890 | 13735 -1 06524 3 00000 STR 0,3,3412 DICT CHG RT LOWER THAN PREV SF RT FP021900 | 13736 -0500 00 0 16557 AJ076 CAL AAG28 SF VS. CHG. AJ076 FP021910 | 13737 -0340 00 0 16530 LAS AAG13 * AJ080 FP021920 | 13740 0020 00 0 14555 TRA AN500 * INSERT AJ090 FP021930 13741 0020 00 0 14073 TRA AK010 * AJ100 FP021940 | * FP021950 | 1 LISTING OF 12/01/64 PAGE 54 | DICT (9PAC31). BUILD DICTIONARY | * PROCESS F SF RECORD NO CHANGE FP021970 | * FP021980 | 13742 0074 00 1 13744 AJ120 TSX AJ140,1 AJ120 FP021990 | 13743 0020 00 0 14026 TRA AJ580 AJ130 FP022000 | 13744 0634 00 1 14024 AJ140 SXA AJ560,1 AJ140 FP022010 13745 -0500 00 0 16706 AJ150 CAL WORK+1 CALC. MODE OF SF REC AJ150 FP022020 | 13746 -0765 00 0 00022 LGR 18 AJ160 FP022030 | 13747 -0320 00 0 10730 ANA BCD03 AJ170 FP022040 | 13750 0100 00 0 13757 AJ180 TZE AJ250 UNPKD BIN AJ180 FP022050 | 13751 -0763 00 0 00006 LGL 6 AJ190 FP022060 13752 -0340 00 0 16613 LAS AAG60 AJ195 FP022070 | 13753 0020 00 0 13761 TRA AJ270 PKD BCD AJ200 FP022080 | 13754 0020 00 0 13763 TRA AJ290 UNPKD BCD AJ210 FP022090 | 13755 0074 00 4 10507 TSX T0010,4 FP022100 | 13756 -1 06046 3 00000 STR 0,3,3110 USING PKD BIN FLD-THIS IS INVALID AJ220 FP022110 13757 0774 00 2 00001 AJ250 AXT 1,2 INIT. IR 2 FOR TBL. AJ250 FP022120 | 13760 0020 00 0 13764 TRA AJ350 * AJ260 FP022130 | 13761 0774 00 2 00002 AJ270 AXT 2,2 * AJ270 FP022140 | 13762 0020 00 0 13764 TRA AJ350 * AJ280 FP022150 | 13763 0774 00 2 00003 AJ290 AXT 3,2 * AJ290 FP022160 13764 0522 00 2 16567 AJ350 XEC AAG40,2 INIT IR 4 FOR LOC IN TBL. AJ350 FP022170 | 13765 -0500 00 2 16563 CAL AAG36,2 TEST FOR TBL. LIMIT AJ351 FP022180 | 13766 -0320 00 0 10734 ANA BCD07 * AJ352 FP022190 | 13767 0400 00 0 16607 ADD AAG56 * AJ353 FP022200 | 13770 -0340 00 2 16606 LAS AAG55,2 * AJ354 FP022210 13771 0020 00 0 13774 TRA *+3 * AJ355 FP022220 | 13772 0020 00 0 13774 TRA *+2 * AJ356 FP022230 | 13773 0020 00 0 13776 TRA AJ360 * AJ357 FP022240 | 13774 0074 00 4 10507 TSX T0010,4 FP022250 | 13775 -1 11730 5 00000 STR 0,5,5080 EXCEED UNPKD BCD TBL (3500 WORDS) AJ358 FP022260 13776 -0500 00 2 16563 AJ360 CAL AAG36,2 CODE WORD TO TBL AJ360 FP022270 | 13777 0602 00 4 00000 SLW 0,4 * AJ370 FP022280 | 14000 0621 00 2 16573 STA AAG44,2 * AND CURRENT CODE WD. AJ380 FP022290 | 14001 2 00001 4 14002 TIX *+1,4,1 AJ390 FP022300 | 14002 0774 00 1 00013 AJ400 AXT 11,1 MOVE SF REC TO TABLE AJ400 FP022310 14003 -0500 00 1 16720 CAL WORK+11,1 AJ410 FP022320 | 14004 0602 00 4 00000 SLW 0,4 * AJ420 FP022330 | 14005 2 00001 4 14006 TIX *+1,4,1 * AJ430 FP022340 | 14006 2 00001 1 14003 TIX *-3,1,1 * AJ440 FP022350 | 14007 0754 00 4 00000 PXA 0,4 UPDATE CODE WORD ADDRESS AJ450 FP022360 14010 0760 00 0 00006 COM * AJ460 FP022370 | 14011 0400 00 0 16615 ADD AAG61 FP022380 | 14012 0621 00 2 16563 STA AAG36,2 * AJ470 FP022390 | 14013 0621 00 2 16567 STA AAG40,2 * LOC CTR. AJ471 FP022400 | 14014 0774 00 1 00000 AXT 0,1 * CODE AJ480 FP022410 14015 -0754 00 1 00000 PXD 0,1 * AJ490 FP022420 | 14016 0622 00 2 16563 STD AAG36,2 * AJ500 FP022430 | 14017 -0500 00 2 16563 CAL AAG36,2 * AJ510 FP022440 | 14020 0602 60 2 16573 SLW* AAG44,2 * AJ520 FP022450 | 14021 -0500 00 0 16552 CAL AAG22 FLD. NO. TO STORAGE AJ530 FP022460 14022 0602 00 0 16601 SLW AAG50 * AJ540 FP022470 | 14023 0634 00 2 16602 SXA AAG51,2 TBL. NO. LAST ENTRY-STORAGEAJ550 FP022480 | 14024 0774 00 1 00000 AJ560 AXT 0,1 EXIT - SUB ROUTINE AJ560 FP022490 | 14025 0020 00 1 00001 TRA 1,1 * AJ570 FP022500 | 14026 0074 00 4 14031 AJ580 TSX AJ600,4 ACCUM RECORD LEN AJ580 FP022510 1 LISTING OF 12/01/64 PAGE 55 | DICT (9PAC31). BUILD DICTIONARY | | 14027 0 00000 0 16616 PZE AAG62 AJ581 FP022520 | 14030 0020 00 0 13334 TRA AH080 TO REF. A. AJ590 FP022530 14031 0522 00 0 16602 AJ600 XEC AAG51 TEST FOR MODE OF ENTRY AJ600 FP022540 | 14032 -3 00000 2 14036 TXL AJ605,2,0 * AJ601 FP022550 | 14033 -3 00001 2 14040 TXL AJ610,2,1 * AJ602 FP022560 | 14034 -3 00002 2 14044 TXL AJ620,2,2 * AJ603 FP022570 | 14035 -3 00003 2 14050 TXL AJ630,2,3 * AJ604 FP022580 14036 0074 00 4 10507 AJ605 TSX T0010,4 AJ605 FP022590 | 14037 -1 10100 4 00000 STR 0,4,4160 MODE CODE LESS THAN ZERO AJ606 FP022600 | 14040 0500 00 0 16615 AJ610 CLA AAG61 UNPKD BIN MODE - ADD AJ610 FP022610 | 14041 0400 00 2 16600 ADD AAG49,2 * ONE TO WORD COUNT AJ611 FP022620 | 14042 0601 00 2 16600 STO AAG49,2 * AJ612 FP022630 14043 0020 00 4 00002 TRA 2,4 * EXIT AJ613 FP022640 | 14044 -0500 60 4 00001 AJ620 CAL* 1,4 PKD BCD MODE - ADD AJ620 FP022650 | 14045 0400 00 2 16600 ADD AAG49,2 * FLD. SIZE TO COUNTER AJ621 FP022660 | 14046 0601 00 2 16600 STO AAG49,2 * AJ622 FP022670 | 14047 0020 00 4 00002 TRA 2,4 * EXIT AJ623 FP022680 14050 0774 00 1 00001 AJ630 AXT 1,1 UNPKD BCD MIDE - AJ630 FP022690 | 14051 -0500 60 4 00001 CAL* 1,4 CALC NO. OF WORDS AJ631 FP022700 | 14052 0402 00 0 16556 SUB AAG27 * AJ632 FP022710 | 14053 0100 00 0 14056 TZE *+3 AJ633 FP022720 | 14054 -0120 00 0 14056 TMI *+2 AJ634 FP022730 14055 1 00001 1 14052 TXI *-3,1,1 * AJ635 FP022740 | 14056 0754 00 1 00000 PXA 0,1 ADD TO WORD COUNT AJ640 FP022750 | 14057 0400 00 2 16600 ADD AAG49,2 * AJ641 FP022760 | 14060 0601 00 2 16600 STO AAG49,2 * AJ642 FP022770 | 14061 0020 00 4 00002 TRA 2,4 * EXIT AJ643 FP022780 * AJ695 FP022790 | * MOVE CHANGE TO DICTIONARY + ALTER CHECK SUM AJ696 FP022800 | * CHANGE VALUE MASKED IN AC AJ697 FP022810 | * AJ698 FP022820 | 14062 -0130 00 0 00000 AJ700 XCL AJ700 FP022830 14063 -0500 00 4 00001 CAL 1,4 AJ710 FP022840 | 14064 -0737 00 1 00000 PDC 0,1 AJ730 FP022850 | 14065 -0500 00 1 00000 AJ791 CAL 0,1 AJ791 FP022860 | 14066 0760 00 0 00006 COM AJ792 FP022870 | 14067 0320 60 4 00001 ANS* 1,4 AJ793 FP022880 14070 -0130 00 0 00000 XCL AJ800 FP022890 | 14071 -0602 60 4 00001 ORS* 1,4 AJ810 FP022900 | 14072 0020 00 4 00002 TRA 2,4 AJ840 FP022910 | 14073 -0500 00 0 04623 AK010 CAL CARD+2 TEST ACTION CODE AK010 FP022920 | 14074 -0765 00 0 00014 LGR 12 * AK020 FP022930 14075 -0320 00 0 10726 ANA BCD01 * AK030 FP022940 | 14076 -0340 00 0 16551 LAS AAG21 * AK040 FP022950 | 14077 0020 00 0 14102 TRA *+3 AK050 FP022960 | 14100 0020 00 0 14546 TRA AN350 EQUALS - D AK060 FP022970 | 14101 0020 00 0 14114 TRA AK180 AK070 FP022980 14102 -0340 00 0 16550 LAS AAG20 AK080 FP022990 | 14103 0020 00 0 14111 TRA AK150 AK090 FP023000 | 14104 0020 00 0 14116 TRA AK190 EQUALS - M AK100 FP023010 | 14105 -0340 00 0 16610 LAS AAG57 AK110 FP023020 | 14106 0020 00 0 14114 TRA AK180 AK120 FP023030 14107 0020 00 0 14116 TRA AK190 EQUALS - L AK130 FP023040 | 14110 0020 00 0 14114 TRA AK180 AK140 FP023050 | 14111 -0340 00 0 16611 AK150 LAS AAG58 AK150 FP023060 | 1 LISTING OF 12/01/64 PAGE 56 | DICT (9PAC31). BUILD DICTIONARY | 14112 0020 00 0 14114 TRA AK180 AK160 FP023070 | 14113 0020 00 0 14116 TRA AK190 EQUAL - R AK170 FP023080 | 14114 0074 00 4 10507 AK180 TSX T0010,4 AK180 FP023090 | 14115 -1 06060 3 00000 STR 0,3,3120 IMPROPER CHANGE ACT CODE AK181 FP023100 * FP023110 | 1 LISTING OF 12/01/64 PAGE 57 | DICT (9PAC31). BUILD DICTIONARY | | * SF RECORD TO TABLE - OLD MODE FP023130 * FP023140 | 14116 0602 00 0 16623 AK190 SLW AAG67 AK190 FP023150 | 14117 0074 00 1 13744 AK200 TSX AJ140,1 SF REC. TO TBL. AK200 FP023160 | 14120 -0500 00 0 04623 AK201 CAL CARD+2 CONVERT CHG FLD SIZE-BIN AK201 FP023170 | 14121 0560 00 0 04624 LDQ CARD+3 * AK202 FP023180 14122 -0763 00 0 00006 LGL 6 * AK203 FP023190 | 14123 -0320 00 0 10734 ANA BCD07 * AK204 FP023200 | 14124 0602 00 0 07751 SLW B1020 * AK205 FP023210 | 14125 0074 00 4 16002 TSX AW010,4 * NON-NUMERIC TEST AK206 FP023220 | 14126 0020 00 0 14130 TRA *+2 FP023230 14127 0020 00 0 14132 TRA *+3 FP023240 | 14130 0074 00 4 10507 TSX T0010,4 FP023250 | 14131 -1 00163 2 14132 STR *+1,2,115 AK207 FP023260 | 14132 0074 00 4 07570 TSX B0010,4 * CONVERT TO BIN AK208 FP023270 | 14133 -0500 00 0 07747 CAL B1000 * AK210 FP023280 14134 0602 00 0 16625 SLW AAG69 * AK211 FP023290 | 14135 -0500 00 0 16706 CAL WORK+1 TEST FOR MODE CHG AK212 FP023300 | 14136 -0765 00 0 00014 LGR 12 * AK213 FP023310 | 14137 -0320 00 0 10734 ANA BCD07 * AK220 FP023320 | 14140 0602 00 0 16546 SLW AAG18 * AK230 FP023330 14141 -0500 00 0 04624 CAL CARD+3 * AK240 FP023340 | 14142 -0765 00 0 00014 LGR 12 * AK250 FP023350 | 14143 -0320 00 0 10734 ANA BCD07 * AK260 FP023360 | 14144 -0340 00 0 16546 LAS AAG18 * AK270 FP023370 | 14145 0020 00 0 14147 TRA *+2 * YES AK280 FP023380 14146 0020 00 0 14443 TRA AM200 * NO AK290 FP023390 | 14147 -0340 00 0 16613 LAS AAG60 TEST FOR PROPER NEW MODE AK300 FP023400 | 14150 0020 00 0 14157 TRA AK370 * AK310 FP023410 | 14151 0020 00 0 14163 TRA AK410 EQ- UNPKD BCD LOGICAL AK320 FP023420 | 14152 -0340 00 0 16615 LAS AAG61 AK330 FP023430 14153 0020 00 0 14155 TRA *+2 AK340 FP023440 | 14154 0020 00 0 14163 TRA AK410 EQ- UNPKD BIN ARITH. AK350 FP023450 | 14155 0074 00 4 10507 TSX T0010,4 FP023460 | 14156 -1 06535 3 00000 STR 0,3,3421 DICT MODE NOT 001,100,OR 110 AK360 FP023470 | 14157 -0340 00 0 16612 AK370 LAS AAG59 AK370 FP023480 14160 0020 00 0 14156 TRA *-2 AK380 FP023490 | 14161 0020 00 0 14163 TRA AK410 EQ- PKD BCD LOGICAL AK390 FP023500 | 14162 0020 00 0 14156 TRA AK370-1 AK400 FP023510 | 14163 0602 00 0 16701 AK410 SLW AAG94 AK410 FP023520 | 14164 -0500 00 0 16623 CAL AAG67 REC ACTION CODE AK411 FP023530 14165 -0340 00 0 16550 LAS AAG20 00000M AK412 FP023540 | 14166 0020 00 0 14170 TRA *+2 AK413 FP023550 | 14167 0020 00 0 14172 TRA AK416 AK414 FP023560 | 14170 0074 00 4 10507 TSX T0010,4 FP023570 | 14171 -1 00165 2 14172 STR AK416,2,117 MODE CHANGE WITH L OR R ACTION AK415 FP023580 14172 0774 00 1 00001 AK416 AXT 1,1 AK416 FP023590 | 14173 -0754 00 1 00000 PXD 0,1 AK417 FP023600 | 14174 0622 60 2 16573 STD* AAG44,2 CODE TO DELETE AK418 FP023610 | 14175 -0500 00 0 16701 CAL AAG94 AK419 FP023620 | 14176 0534 00 1 13647 LXA AI530,1 AK420 FP023630 14177 -0763 00 0 00014 LGL 12 AK4201FP023640 | 14200 0622 00 1 71401 STD AAG24+SEQID+1,1 STORE NEW MODE AK4202FP023650 | 14201 -0765 00 0 00022 LGR 18 TEST FOR BINARY( ILLEGAL AK4203FP023660 | 14202 -0100 00 0 14210 TNZ AK426 AK421 FP023670 | 1 LISTING OF 12/01/64 PAGE 58 DICT (9PAC31). BUILD DICTIONARY | | 14203 0600 00 0 16617 STZ AAG63 BCD TO BIN AK422 FP023680 | 14204 0500 00 0 16554 CLA AAG25 AK423 FP023690 | 14205 0120 00 0 14221 TPL AK450 AK424 FP023700 14206 0074 00 4 10507 TSX T0010,4 FP023710 | 14207 -1 00164 2 14221 STR AK450,2,116 MODE CHG SEQ FLD AK425 FP023720 | 14210 -0500 00 0 16546 AK426 CAL AAG18 AK426 FP023730 | 14211 -0765 00 0 00006 LGR 6 AK427 FP023740 | 14212 -0100 00 0 14220 TNZ AK440 AK428 FP023750 14213 -0760 00 0 00003 SSM BIN TO BCD AK429 FP023760 | 14214 0601 00 0 16617 STO AAG63 AK430 FP023770 | 14215 -0500 00 0 16552 AK436 CAL AAG22 AK436 FP023780 | 14216 0602 00 0 16626 SLW AAG70 DELETED FLD NR AK437 FP023790 | 14217 0020 00 0 14221 TRA AK450 AK438 FP023800 14220 -0625 00 0 16617 AK440 STL AAG63 BCD TO BIN AK440 FP023810 | 14221 -0500 00 0 16701 AK450 CAL AAG94 AK450 FP023820 | 14222 -0765 00 0 00006 LGR 6 AK460 FP023830 | 14223 0074 00 1 14225 TSX AK490,1 AK470 FP023840 | 14224 0020 00 0 14227 TRA AK510 AK480 FP023850 14225 0634 00 1 14024 AK490 SXA AJ560,1 AK490 FP023860 | 14226 0020 00 0 13750 TRA AJ180 AK500 FP023870 | 14227 0774 00 1 00003 AK510 AXT 3,1 SET CODE WORD-MODE CHG. AK510 FP023880 | 14230 -0754 00 1 00000 PXD 0,1 * AK520 FP023890 | 14231 0622 60 2 16573 STD* AAG44,2 * AK530 FP023900 14232 -0500 00 0 04624 AK540 CAL CARD+3 NEW MODE TO DICTIONARY AK540 FP023910 | 14233 -0320 00 0 10761 ANA BCD34 * AK550 FP023920 | 14234 0074 00 4 14062 TSX AJ700,4 * AK560 FP023930 | 14235 0 10761 0 16706 PZE WORK+1,,BCD34 * AK570 FP023940 | 14236 0500 00 0 16617 CLA AAG63 TEST TYPE OF MODE CHG AK590 FP023950 14237 -0100 00 0 14307 TNZ AL150 * NO SIZE CHG REQUIRED AK600 FP023960 | 14240 -0120 00 0 14272 TMI AL010 * CHANGE BIN TO BCD AK610 FP023970 | 14241 0500 00 0 16616 CLA AAG62 CHANGE BCD TO BIN AK620 FP023980 | 14242 -0340 00 0 16620 LAS AAG64 AK630 FP023990 | 14243 0020 00 0 14250 TRA AK690 BCD SIZE EXCEEDS LIMIT AK640 FP024000 14244 0020 00 0 14245 TRA *+1 AK650 FP024010 | 14245 -0765 00 0 00044 LGR 36 AK660 FP024020 | 14246 0220 00 0 16621 DVH AAG65 AK670 FP024030 | 14247 0100 00 0 14252 TZE AK700 AK680 FP024040 | 14250 0074 00 4 10507 AK690 TSX T0010,4 AK690 FP024050 14251 -1 00166 2 14252 STR AK700,2,118 IMPROPER BCD SIZE CHG AK691 FP024060 | 14252 0763 00 0 00044 AK700 LLS 36 AK700 FP024070 | 14253 0400 00 0 16622 ADD AAG66 AK710 FP024080 | 14254 0601 00 0 16546 STO AAG18 AK720 FP024090 | 14255 0500 60 0 16546 CLA* AAG18 AK730 FP024100 14256 0601 00 0 10127 STO B6000 AK731 FP024110 | 14257 0601 00 0 16625 AK740 STO AAG69 CALC. FLD. SIZE TO STORAGE AK740 FP024120 | 14260 0074 00 4 10070 TSX B5010,4 CONVERT BIN TO BCD AK750 FP024130 | 14261 -0500 00 0 10131 AK820 CAL B6020 AK820 FP024140 | 14262 -0765 00 0 00006 LGR 6 MOVE FLD SIZE TO AK830 FP024150 14263 0074 00 4 14062 TSX AJ700,4 FLD. SIZE TO DICTIONARY AK840 FP024160 | 14264 0 10730 0 16706 PZE WORK+1,,BCD03 * AK850 FP024170 | 14265 -0500 00 0 10131 CAL B6020 * AK870 FP024180 | 14266 0767 00 0 00036 ALS 30 * AK880 FP024190 | 14267 0074 00 4 14062 TSX AJ700,4 * AK890 FP024200 14270 0 10765 0 16707 PZE WORK+2,,BCD40 * AK900 FP024210 | 14271 0020 00 0 14307 TRA AL150 TO EDIT BALANCE OF CHG. AK940 FP024220 | 1 LISTING OF 12/01/64 PAGE 59 | DICT (9PAC31). BUILD DICTIONARY | 14272 0774 00 2 00006 AL010 AXT 6,2 CALC-BIN TO BCD SIZE AL010 FP024230 | 14273 0774 00 1 00023 AXT 19,1 AL020 FP024240 | 14274 -0500 00 0 16616 CAL AAG62 AL030 FP024250 | 14275 -0340 00 1 11103 LAS EQUIV+20,1 AL040 FP024260 | 14276 0020 00 0 14302 TRA *+4 AL050 FP024270 14277 0020 00 0 14304 TRA *+5 AL060 FP024280 | 14300 0074 00 4 10507 TSX T0010,4 AL065 FP024290 | 14301 -1 00167 2 14303 STR *+2,2,119 IMPROPER BIN SIZ SF AL070 FP024300 | 14302 1 00006 2 14303 TXI *+1,2,6 AL080 FP024310 | 14303 2 00002 1 14275 TIX *-6,1,2 AL090 FP024320 14304 0754 00 2 00000 PXA 0,2 AL100 FP024330 | 14305 0601 00 0 10127 STO B6000 AL110 FP024340 | 14306 0020 00 0 14257 TRA AK740 TO CONVERT AND TEST SIZE AL120 FP024350 | 14307 -0500 00 0 04625 AL150 CAL CARD+4 MIN IDENT TO DICT AL150 FP024360 | 14310 -0765 00 0 00022 LGR 18 * AL160 FP024370 14311 -0320 00 0 10733 ANA BCD06 * AL170 FP024380 | 14312 0074 00 4 14062 TSX AJ700,4 * AL180 FP024390 | 14313 0 10733 0 16714 PZE WORK+7,,BCD06 * AL190 FP024400 | 14314 -0500 00 0 04625 CAL CARD+4 EDIT MINIUM RANGE AL210 FP024410 | 14315 0560 00 0 04626 LDQ CARD+5 * AL220 FP024420 14316 -0763 00 0 00014 LGL 12 * AL230 FP024430 | 14317 -0320 00 0 11024 ANA BCD77 * AL240 FP024440 | 14320 -0340 00 0 16624 LAS AAG68 * AL250 FP024450 | 14321 0020 00 0 14324 TRA *+3 AL260 FP024460 | 14322 0020 00 0 14330 TRA AL310 * AL270 FP024470 14323 0020 00 0 14326 TRA *+3 AL275 FP024480 | 14324 0074 00 4 10507 TSX T0010,4 AL276 FP024490 | 14325 -1 00170 2 14330 STR AL310,2,120 MIN-MAX NOT NUMERIC OR BLANK AL277 FP024500 | 14326 0602 00 0 07751 SLW B1020 * AL280 FP024510 | 14327 0074 00 4 07570 TSX B0010,4 AL290 FP024520 14330 -0500 00 0 04625 AL310 CAL CARD+4 MOVE TO DICTIONARY AL310 FP024530 | 14331 -0320 00 0 10744 ANA BCD17 * AL320 FP024540 | 14332 0074 00 4 14062 TSX AJ700,4 * AL330 FP024550 | 14333 0 10744 0 16715 PZE WORK+8,,BCD17 * AL340 FP024560 | 14334 -0500 00 0 04626 CAL CARD+5 * AL360 FP024570 14335 -0320 00 0 11005 ANA BCD60 * AL370 FP024580 | 14336 0074 00 4 14062 TSX AJ700,4 * AL380 FP024590 | 14337 0 11005 0 16716 PZE WORK+9,,BCD60 * AL390 FP024600 | 14340 -0500 00 0 04626 CAL CARD+5 EDIT MAXIMUN RANGE AL410 FP024610 | 14341 0560 00 0 04627 LDQ CARD+6 * AL420 FP024620 14342 -0763 00 0 00014 LGL 12 * AL430 FP024630 | 14343 -0320 00 0 11024 ANA BCD77 * AL440 FP024640 | 14344 -0340 00 0 16624 LAS AAG68 * AL450 FP024650 | 14345 0020 00 0 14350 TRA *+3 AL460 FP024660 | 14346 0020 00 0 14354 TRA AL510 * AL470 FP024670 14347 0020 00 0 14352 TRA *+3 AL475 FP024680 | 14350 0074 00 4 10507 TSX T0010,4 AL476 FP024690 | 14351 -1 00170 2 14354 STR AL510,2,120 MIN-MAX NOT NUMERIC OR BLANK AL477 FP024700 | 14352 0602 00 0 07751 SLW B1020 * AL480 FP024710 | 14353 0074 00 4 07570 TSX B0010,4 AL490 FP024720 14354 -0500 00 0 04626 AL510 CAL CARD+5 MOVE TO DICTIONARY AL510 FP024730 | 14355 -0320 00 0 10744 ANA BCD17 AL520 FP024740 | 14356 0074 00 4 14062 TSX AJ700,4 AL530 FP024750 | 14357 0 10744 0 16716 PZE WORK+9,,BCD17 AL531 FP024760 | 14360 -0500 00 0 04627 CAL CARD+6 AL533 FP024770 1 LISTING OF 12/01/64 PAGE 60 | DICT (9PAC31). BUILD DICTIONARY | | 14361 -0320 00 0 11005 ANA BCD60 AL534 FP024780 | 14362 0074 00 4 14062 TSX AJ700,4 AL535 FP024790 14363 0 11005 0 16717 PZE WORK+10,,BCD60 AL536 FP024800 | 14364 -0500 00 0 04627 AL680 CAL CARD+6 MOVE TO DICTIONARY AL680 FP024810 | 14365 -0765 00 0 00022 LGR 18 * AL690 FP024820 | 14366 -0320 00 0 10726 ANA BCD01 * AL700 FP024830 | 14367 0074 00 4 14062 TSX AJ700,4 * AL710 FP024840 14370 0 10726 0 16713 PZE WORK+6,,BCD01 * AL720 FP024850 | 14371 -0500 00 0 04627 CAL CARD+6 * AL740 FP024860 | 14372 0560 00 0 17576 LDQ BND25 BLANK FP024870 | 14373 -0763 00 0 00022 LGL 18 * AL750 FP024880 | 14374 -0320 00 0 11023 ANA BCD76 FP024890 14375 0074 00 4 14062 TSX AJ700,4 * AL770 FP024900 | 14376 0 11023 0 16714 PZE WORK+7,,BCD76 FP024910 | 14377 -0500 00 0 04630 CAL CARD+7 FIELD DESCRIPTION AL780 FP024920 | 14400 -0320 00 0 10726 ANA BCD01 AL781 FP024930 | 14401 0074 00 4 14062 TSX AJ700,4 AL782 FP024940 14402 0 10726 0 16710 PZE WORK+3,,BCD01 AL783 FP024950 | 14403 -0500 00 0 04631 CAL CARD+8 AL790 FP024960 | 14404 0074 00 4 14062 TSX AJ700,4 AL791 FP024970 | 14405 0 11024 0 16711 PZE WORK+4,,BCD77 AL792 FP024980 | 14406 -0500 00 0 04632 CAL CARD+9 AL800 FP024990 14407 0074 00 4 14062 TSX AJ700,4 AL801 FP025000 | 14410 0 11024 0 16712 PZE WORK+5,,BCD77 AL802 FP025010 | 14411 -0500 00 0 04633 CAL CARD+10 AL810 FP025020 | 14412 -0320 00 0 11023 ANA BCD76 AL811 FP025030 | 14413 0074 00 4 14062 TSX AJ700,4 AL812 FP025040 14414 0 11023 0 16713 PZE WORK+6,,BCD76 AL813 FP025050 | 14415 -0500 00 0 04630 CAL CARD+7 EDIT DECIMAL POINT AL820 FP025060 | 14416 -0765 00 0 00006 LGR 6 * AL830 FP025070 | 14417 -0320 00 0 10763 ANA BCD36 WIL BLANK CHAR 14-17 FP025080 | 14420 0074 00 4 14062 TSX AJ700,4 * AL890 FP025090 14421 0 10763 0 16707 PZE WORK+2,,BCD36 FP025100 | 14422 -0500 00 0 04630 AM010 CAL CARD+7 EDIT REPLACE ONLY AM010 FP025110 | 14423 -0765 00 0 00006 LGR 6 * AM020 FP025120 | 14424 -0320 00 0 10726 ANA BCD01 AM030 FP025130 | 14425 -0340 00 0 16615 LAS AAG61 * AM040 FP025140 14426 0020 00 0 14440 TRA AM140 AM050 FP025150 | 14427 0020 00 0 14430 TRA *+1 * AM060 FP025160 | 14430 0767 00 0 00030 ALS 24 * AM070 FP025170 | 14431 0074 00 4 14062 AM080 TSX AJ700,4 MOVE TO DICTIONARY AM080 FP025180 | 14432 0 10745 0 16715 PZE WORK+8,,BCD20 * AM090 FP025190 14433 -0500 00 0 16624 AM110 CAL AAG68 BLANK AM110 FP025200 | 14434 0771 00 0 00014 ARS 12 AM111 FP025210 | 14435 0074 00 4 14062 TSX AJ700,4 * AM112 FP025220 | 14436 0 10744 0 16717 PZE WORK+10,,BCD17 * AM113 FP025230 | 14437 0020 00 0 14514 TRA AN010 AM130 FP025240 14440 -0500 00 0 04624 AM140 CAL CARD+3 AM140 FP025250 | 14441 -0320 00 0 10745 ANA BCD20 AM150 FP025260 | 14442 0020 00 0 14431 TRA AM080 AM160 FP025270 | * FP025280 | 1 LISTING OF 12/01/64 PAGE 61 DICT (9PAC31). BUILD DICTIONARY | | * SF DICT. CHANGE - NOT MODE CHANGE FP025300 | * FP025310 | 14443 0522 00 0 16602 AM200 XEC AAG51 SET INDEX TO TBL. NO. AM200 FP025320 14444 -0500 00 0 16625 CAL AAG69 TEST FOR SIZE CHG AM210 FP025330 | 14445 -0340 00 0 16616 LAS AAG62 * AM220 FP025340 | 14446 0020 00 0 14452 TRA AM250 * LENGTHEN AM230 FP025350 | 14447 0020 00 0 14307 TRA AL150 * NO CHG AM240 FP025360 | 14450 0774 00 1 00006 AXT 6,1 SHORTEN AM241 FP025370 14451 0020 00 0 14453 TRA AM270 AM242 FP025380 | 14452 0774 00 1 00004 AM250 AXT 4,1 AM250 FP025390 | 14453 -3 00001 2 14461 AM270 TXL AM350,2,1 TEST MODE-TR FOR BIN AM270 FP025400 | 14454 -0765 00 0 00044 LGR 36 EDIT BCD SIZE AM280 FP025410 | 14455 0220 00 0 16621 DVH AAG65 * AM290 FP025420 14456 0100 00 0 14471 TZE AM450 * OK AM300 FP025430 | 14457 0074 00 4 10507 TSX T0010,4 FP025440 | 14460 -1 00174 2 14471 STR AM450,2,124 IMPROPER BCD SIZE-CHNG FLD AM310 FP025450 | 14461 0774 00 4 00023 AM350 AXT 19,4 EDIT BIN SIZE AM350 FP025460 | 14462 0340 00 4 11103 CAS EQUIV+20,4 * AM360 FP025470 14463 0020 00 0 14466 TRA *+3 * AM370 FP025480 | 14464 0020 00 0 14471 TRA AM450 * OK AM380 FP025490 | 14465 0020 00 0 14467 TRA *+2 * AM390 FP025500 | 14466 2 00002 4 14462 TIX AM350+1,4,2 * AM400 FP025510 | 14467 0074 00 4 10507 TSX T0010,4 FP025520 14470 -1 00175 2 14471 STR AM450,2,125 IMPROPER BIN SIZE-CHNG FLD AM400 FP025530 | 14471 -0500 00 0 16623 AM450 CAL AAG67 TEST ACTION CODE AM450 FP025540 | 14472 -0340 00 0 16550 LAS AAG20 * AM460 FP025550 | 14473 0020 00 0 14476 TRA AM500 * R AM470 FP025560 | 14474 0020 00 0 14477 TRA AM510 * M AM480 FP025570 14475 0020 00 0 14501 TRA AM550 * L AM490 FP025580 | 14476 1 00001 1 14501 AM500 TXI AM550,1,1 ADD ONE TO INDEX AM500 FP025590 | 14477 0074 00 4 10507 AM510 TSX T0010,4 FLD ACTION NOT I FOR AM510 FP025600 | 14500 -1 06547 3 00000 STR 0,3,3431 RECORD ACTION I AM511 FP025610 | 14501 -0754 00 1 00000 AM550 PXD 0,1 PUT CODE IN CODEWORK AM550 FP025620 14502 0622 60 2 16573 STD* AAG44,2 * AM560 FP025630 | 14503 -0500 00 0 04623 AM570 CAL CARD+2 CHG SIZE TO OUTPUT AM570 FP025640 | 14504 -0320 00 0 10730 ANA BCD03 * AM580 FP025650 | 14505 0074 00 4 14062 TSX AJ700,4 * AM590 FP025660 | 14506 0 10730 0 16706 PZE WORK+1,,BCD03 * AM600 FP025670 14507 -0500 00 0 04624 CAL CARD+3 * AM620 FP025680 | 14510 -0320 00 0 10765 ANA BCD40 * AM630 FP025690 | 14511 0074 00 4 14062 TSX AJ700,4 * AM640 FP025700 | 14512 0 10765 0 16707 PZE WORK+2,,BCD40 * AM650 FP025710 | 14513 0020 00 0 14307 TRA AL150 EDIT BALANCE OF CHG AM680 FP025720 14514 0522 00 0 16602 AN010 XEC AAG51 MOVE CORRECTED REC - TBL AN010 FP025730 | 14515 0522 00 2 16567 XEC AAG40,2 AN020 FP025740 | 14516 -0500 00 2 16563 CAL AAG36,2 TEST TBL. LIMIT AN030 FP025750 | 14517 -0320 00 0 10734 ANA BCD07 AN040 FP025760 | 14520 0400 00 0 16607 ADD AAG56 AN050 FP025770 14521 -0340 00 2 16606 LAS AAG55,2 AN060 FP025780 | 14522 0020 00 0 14525 TRA *+3 AN070 FP025790 | 14523 0020 00 0 14525 TRA *+2 AN080 FP025800 | 14524 0020 00 0 14527 TRA AN110 OK AN090 FP025810 | 14525 0074 00 4 10507 TSX T0010,4 FP025820 14526 -1 11742 5 00000 STR 0,5,5090 EXCEED PKD BCD TBL (3500 WORDS) AN100 FP025830 | 14527 0774 00 1 00013 AN110 AXT 11,1 MOVE RECORD TO TABLE AN110 FP025840 | 1 LISTING OF 12/01/64 PAGE 62 | DICT (9PAC31). BUILD DICTIONARY | 14530 -0500 00 1 16720 CAL WORK+11,1 AN120 FP025850 | 14531 0602 00 4 00000 SLW 0,4 * AN130 FP025860 | 14532 2 00001 4 14533 TIX *+1,4,1 * AN140 FP025870 | 14533 2 00001 1 14530 TIX *-3,1,1 * AN150 FP025880 | 14534 0754 00 4 00000 PXA 0,4 UPDATE CODE WORD ADDRESS AN160 FP025890 14535 0760 00 0 00006 COM * AN170 FP025900 | 14536 0400 00 0 16615 ADD AAG61 FP025910 | 14537 0621 00 2 16563 STA AAG36,2 * AN180 FP025920 | 14540 0621 00 2 16567 STA AAG40,2 * AN190 FP025930 | 14541 0621 60 2 16573 STA* AAG44,2 * AN200 FP025940 14542 0074 00 4 14031 AN210 TSX AJ600,4 ACCUM REC LEN AN210 FP025950 | 14543 0 00000 0 16625 PZE AAG69 * AN220 FP025960 | 14544 0601 00 2 16600 STO AAG49,2 * AN230 FP025970 | 14545 0020 00 0 13324 AN300 TRA AH010 * AN300 FP025980 | * FP025990 1 LISTING OF 12/01/64 PAGE 63 | DICT (9PAC31). BUILD DICTIONARY | | * DELETE F SF DICT. RECORD FP026010 | * FP026020 14546 0074 00 1 13744 AN350 TSX AJ140,1 PUT RECORD TO TBL AN350 FP026030 | 14547 0774 00 1 00001 AXT 1,1 PLACE DELETE CODE AN360 FP026040 | 14550 -0754 00 1 00000 PXD 0,1 IN CODE WORD AN370 FP026050 | 14551 0622 60 2 16573 STD* AAG44,2 AN380 FP026060 | 14552 -0500 00 0 16552 CAL AAG22 FLD NO. TO STORAGE AN390 FP026070 14553 0602 00 0 16626 SLW AAG70 * AN400 FP026080 | 14554 0020 00 0 13324 TRA AH010 TO READ CHG AN410 FP026090 | 14555 -0500 00 0 04623 AN500 CAL CARD+2 TEST FOR I ACTION AN500 FP026100 | 14556 -0765 00 0 00014 LGR 12 * AN510 FP026110 | 14557 -0320 00 0 10726 ANA BCD01 * AN520 FP026120 14560 -0340 00 0 16627 LAS AAG71 * AN530 FP026130 | 14561 0020 00 0 14563 TRA *+2 * AN540 FP026140 | 14562 0020 00 0 14565 TRA AN570 * YES AN550 FP026150 | 14563 0074 00 4 10507 TSX T0010,4 FP026160 | 14564 -1 06550 3 00000 STR 0,3,3432 FLD ACTION NOT I FOR REC ACT I AN560 FP026170 14565 -0500 00 0 16530 AN570 CAL AAG13 TEST FOR G CHG AN570 FP026180 | 14566 0760 00 0 00001 LBT * AN580 FP026190 | 14567 0020 00 0 14571 TRA AN610 * F INSERT AN590 FP026200 | 14570 0020 00 0 15212 TRA AQ010 * G INSERT AN600 FP026210 | * FP026220 * INSERT F-SF-RECORD FP026230 | * FP026240 | 14571 0074 00 4 14573 AN610 TSX AN630,4 INSERT F SF REC. AN610 FP026250 | 14572 0020 00 0 15151 TRA AP650 AN620 FP026260 | 14573 0634 00 4 15147 AN630 SXA AP621,4 SAVE INDEX AN630 FP026270 14574 0774 00 1 00013 AXT 11,1 RESET WORK AREA TO ZERO AN640 FP026280 | 14575 0600 00 1 16643 STZ AAG72+11,1 AN650 FP026290 | 14576 2 00001 1 14575 TIX *-1,1,1 * AN660 FP026300 | 14577 -0500 00 0 04622 CAL CARD+1 TEST FOR FLD.NO. 1 AN661 FP026310 | 14600 0560 00 0 04623 LDQ CARD+2 AN662 FP026320 14601 -0763 00 0 00022 LGL 18 AN663 FP026330 | 14602 -0320 00 0 10744 ANA BCD17 AN664 FP026340 | 14603 0402 00 0 16615 SUB AAG61 AN665 FP026350 | 14604 -0100 00 0 14606 TNZ AN670 NO AN666 FP026360 | 14605 0020 00 0 15173 TRA AP800 YES AN667 FP026370 14606 -0500 00 0 16526 AN670 CAL AAG11 EXC CODE AN670 FP026380 | 14607 0560 00 0 04622 LDQ CARD+1 REC TYPE AN680 FP026390 | 14610 -0773 00 0 00022 RQL 18 FLD. NO AN690 FP026400 | 14611 -0763 00 0 00022 LGL 18 * AN700 FP026410 | 14612 0560 00 0 04623 LDQ CARD+2 * AN710 FP026420 14613 -0763 00 0 00014 LGL 12 * AN711 FP026430 | 14614 0602 00 0 16630 SLW AAG72 * TO INSERT AN712 FP026440 | 14615 -0130 00 0 00000 XCL * AN715 FP026450 | 14616 -0320 00 0 10765 ANA BCD40 * AN716 FP026460 | 14617 0602 00 0 16631 SLW AAG72+1 * AN717 FP026470 14620 -0500 00 0 04623 CAL CARD+2 CONVERT SIZE TO BINARY AN720 FP026480 | 14621 0560 00 0 04624 LDQ CARD+3 * AN721 FP026490 | 14622 -0763 00 0 00006 LGL 6 * AN722 FP026500 | 14623 -0320 00 0 10734 ANA BCD07 * AN723 FP026510 | 14624 0602 00 0 07751 SLW B1020 * AN724 FP026520 14625 0074 00 4 16002 TSX AW010,4 * NON NUMERIC TEST AN725 FP026530 | 14626 0020 00 0 14630 TRA *+2 FP026540 | 14627 0020 00 0 14632 TRA *+3 FP026550 | 1 LISTING OF 12/01/64 PAGE 64 | DICT (9PAC31). BUILD DICTIONARY | 14630 0074 00 4 10507 TSX T0010,4 FP026560 | 14631 -1 00176 2 14632 STR *+1,2,126 INSERT-SIZE NOT NUMERIC AN726 FP026570 | 14632 0074 00 4 07570 TSX B0010,4 * CONVERT TO BIN AN727 FP026580 | 14633 -0500 00 0 07747 CAL B1000 * AN729 FP026590 14634 -0100 00 0 14637 AN730 TNZ *+3 AN730 FP026600 | 14635 0074 00 4 10507 TSX T0010,4 FP026610 | 14636 -1 00213 2 14637 STR *+1,2,139 INSERT FLD SIZE OF ZERO AN7305FP026620 | 14637 0602 00 0 16625 SLW AAG69 * AN731 FP026630 | 14640 -0500 00 0 04624 CAL CARD+3 TEST MODE AN740 FP026640 14641 -0765 00 0 00014 LGR 12 AN741 FP026650 | 14642 -0320 00 0 10734 ANA BCD07 AN742 FP026660 | 14643 -0340 00 0 16613 LAS AAG60 AN750 FP026670 | 14644 0020 00 0 14652 TRA AN820 AN760 FP026680 | 14645 0020 00 0 14657 TRA AN850 PKD BCD AN770 FP026690 14646 -0340 00 0 16615 LAS AAG61 AN780 FP026700 | 14647 0020 00 0 14655 TRA AN840 AN790 FP026710 | 14650 0020 00 0 14665 TRA AN900 BIN AN800 FP026720 | 14651 0020 00 0 14655 TRA AN840 AN810 FP026730 | 14652 -0340 00 0 16612 AN820 LAS AAG59 AN820 FP026740 14653 0020 00 0 14655 TRA AN840 AN825 FP026750 | 14654 0020 00 0 14657 TRA AN850 UNPKD BCD AN830 FP026760 | 14655 0074 00 4 10507 AN840 TSX T0010,4 AN840 FP026770 | 14656 -1 06536 3 00000 STR 0,3,3422 DICT MODE NOT 001, 100, 110 FP026780 | 14657 -0500 00 0 07747 AN850 CAL B1000 TEST BCD SIZE AN850 FP026790 14660 -0765 00 0 00044 LGR 36 * AN860 FP026800 | 14661 0220 00 0 16621 DVH AAG65 * AN870 FP026810 | 14662 0100 00 0 14676 TZE AO010 * OK AN880 FP026820 | 14663 0074 00 4 10507 TSX T0010,4 FP026830 | 14664 -1 00177 2 14676 STR AO010,2,127 INSERT BCD SIZE IMPROPER AN890 FP026840 14665 0774 00 1 00023 AN900 AXT 19,1 TEST BIN SIZE AN900 FP026850 | 14666 -0500 00 0 07747 CAL B1000 * AN910 FP026860 | 14667 -0340 00 1 11103 LAS EQUIV+20,1 * AN920 FP026870 | 14670 0020 00 0 14673 TRA *+3 * AN930 FP026880 | 14671 0020 00 0 14676 TRA AO010 * OK AN940 FP026890 14672 0020 00 0 14674 TRA *+2 * AN950 FP026900 | 14673 2 00002 1 14667 TIX *-4,1,2 * AN960 FP026910 | 14674 0074 00 4 10507 TSX T0010,4 FP026920 | 14675 -1 00200 2 14676 STR AO010,2,128 INSERT BIN SIZE IMPROPER AN970 FP026930 | 14676 -0500 00 0 04624 AO010 CAL CARD+3 MODE TO INSERT REC. AO010 FP026940 14677 -0765 00 0 00014 LGR 12 FLD. SIZE * AO020 FP026950 | 14700 0560 00 0 04623 LDQ CARD+2 * AO030 FP026960 | 14701 -0773 00 0 00030 RQL 24 * AO040 FP026970 | 14702 -0763 00 0 00014 LGL 12 * AO050 FP026980 | 14703 -0320 00 0 10764 ANA BCD37 * AO060 FP026990 14704 -0602 00 0 16631 ORS AAG72+1 * AO070 FP027000 | 14705 -0500 00 0 04624 CAL CARD+3 * AO073 FP027010 | 14706 -0320 00 0 10765 ANA BCD40 * AO074 FP027020 | 14707 -0602 00 0 16632 ORS AAG72+2 AO075 FP027030 | 14710 -0500 00 0 04630 CAL CARD+7 EDIT DECIMAL PT. AO080 FP027040 14711 -0765 00 0 00006 LGR 6 * AO090 FP027050 | 14712 -0320 00 0 10763 ANA BCD36 FP027060 | 14713 -0602 00 0 16632 ORS AAG72+2 AO150 FP027070 | 14714 -0500 00 0 04630 CAL CARD+7 FLD DESCRIPTION AO180 FP027080 | 14715 -0320 00 0 10726 ANA BCD01 * AO190 FP027090 14716 -0602 00 0 16633 ORS AAG72+3 * AO200 FP027100 | 1 LISTING OF 12/01/64 PAGE 65 | DICT (9PAC31). BUILD DICTIONARY | | 14717 0774 00 1 00002 AXT 2,1 * AO220 FP027110 14720 -0500 00 1 04633 AO221 CAL CARD+10,1 * AO221 FP027120 | 14721 0602 00 1 16636 SLW AAG72+6,1 * AO222 FP027130 | 14722 2 00001 1 14720 TIX AO221,1,1 * AO225 FP027140 | 14723 -0500 00 0 04633 CAL CARD+10 * AO230 FP027150 | 14724 -0320 00 0 11023 ANA BCD76 * AO231 FP027160 14725 -0602 00 0 16636 ORS AAG72+6 * AO232 FP027170 | 14726 -0500 00 0 04627 AO410 CAL CARD+6 AUTH. TO LOOK-CHG AO410 FP027180 | 14727 -0765 00 0 00022 LGR 18 * AO420 FP027190 | 14730 -0320 00 0 10726 ANA BCD01 * AO430 FP027200 | 14731 -0602 00 0 16636 ORS AAG72+6 * AO431 FP027210 14732 -0130 00 0 00000 XCL * AO441 FP027220 | 14733 -0320 00 0 11015 ANA BCD70 * AO450 FP027230 | 14734 -0602 00 0 16637 ORS AAG72+7 * AO460 FP027240 | 14735 -0500 00 0 04625 CAL CARD+4 EDIT MIN IDENT AO480 FP027250 | 14736 -0765 00 0 00022 LGR 18 FP027260 14737 -0320 00 0 10733 ANA BCD06 FP027270 | 14740 -0602 00 0 16637 ORS AAG72+7 * AO540 FP027280 | 14741 -0500 00 0 04624 CAL CARD+3 EDIT SEQ LEVEL AO590 FP027290 | 14742 -0320 00 0 10730 ANA BCD03 * AO600 FP027300 | 14743 -0340 00 0 16646 LAS AAG74 * AO610 FP027310 14744 0020 00 0 14746 TRA *+2 * AO620 FP027320 | 14745 0020 00 0 15002 TRA AO680 * BLANKS AO630 FP027330 | 14746 0131 00 0 00000 XCA * AO640 FP027340 | 14747 -0600 00 0 07751 AO671 STQ B1020 AO671 FP027350 | 14750 0074 00 4 16002 TSX AW010,4 * NON NUM TEST AO672 FP027360 14751 0020 00 0 14753 TRA *+2 FP027370 | 14752 0020 00 0 14755 TRA AO674 FP027380 | 14753 0074 00 4 10507 TSX T0010,4 FP027390 | 14754 -1 00202 2 14755 STR *+1,2,130 INSERT SEQ LEVEL NOT BLANK-AO673 FP027400 | 14755 0520 00 0 07751 AO674 ZET B1020 FP027410 14756 0020 00 0 14761 TRA *+3 FP027420 | 14757 0074 00 4 10507 TSX T0010,4 FP027430 | 14760 -1 01212 2 14761 STR *+1,2,650 INVALID SEQ LEVEL--ZERO AO6750FP027440 | 14761 0074 00 4 13647 TSX AI530,4 AO6751FP027450 | 14762 -0774 00 2 16630 AXC AAG72,2 AO6752FP027460 14763 3 00763 1 15002 TXH AO680,1,499 AO6753FP027470 | 14764 -0500 00 1 71400 CAL AAG24+SEQID,1 AO6756FP027480 | 14765 -0340 00 1 71373 LAS AAG24+SEQID-5,1 AO6760FP027490 | 14766 0020 00 0 15002 TRA AO680 AO6761FP027500 | 14767 0020 00 0 14771 TRA *+2 FP027510 14770 0020 00 0 14773 TRA *+3 FP027520 | 14771 0074 00 4 10507 TSX T0010,4 FP027530 | 14772 -1 06750 3 00000 STR 0,3,3560 ONE SEQ LEVEL, TWO FIELDS FP027540 | 14773 0774 00 4 00005 AXT 5,4 AO6763FP027550 | 14774 -0500 00 1 71400 CAL AAG24+SEQID,1 PUT INSERTED SEQ AO6764FP027560 14775 0560 00 1 71373 LDQ AAG24+SEQID-5,1 LVL IN PROPER TABLE LOCATION AO6765FP027570 | 14776 0602 00 1 71373 SLW AAG24+SEQID-5,1 AO6770FP027580 | 14777 -0600 00 1 71400 STQ AAG24+SEQID,1 AO6775FP027590 | 15000 2 00001 1 15001 TIX *+1,1,1 GET NEXT ENTRY AO6780FP027600 | 15001 2 00001 4 14774 TIX *-5,4,1 DO IT AGAIN AO679 FP027610 15002 -0500 00 0 04624 AO680 CAL CARD+3 SEQ LEVEL TO INSERT AO680 FP027620 | 15003 -0765 00 0 00006 LGR 6 * AO690 FP027630 | 15004 -0320 00 0 10726 ANA BCD01 * AO700 FP027640 | 15005 -0602 00 0 16637 ORS AAG72+7 * AO701 FP027650 | 1 LISTING OF 12/01/64 PAGE 66 DICT (9PAC31). BUILD DICTIONARY | | 15006 -0130 00 0 00000 XCL * AO704 FP027660 | 15007 -0320 00 0 10765 ANA BCD40 * AO705 FP027670 | 15010 -0602 00 0 16640 ORS AAG72+8 * AO710 FP027680 15011 -0500 00 0 04630 CAL CARD+7 EDIT REPLACE ONLY AO740 FP027690 | 15012 -0765 00 0 00006 LGR 6 * AO750 FP027700 | 15013 -0320 00 0 10726 ANA BCD01 * AO760 FP027710 | 15014 -0340 00 0 16615 LAS AAG61 * AO770 FP027720 | 15015 0020 00 0 15020 TRA AO810 * AO780 FP027730 15016 0020 00 0 15023 TRA AO820 * AO790 FP027740 | 15017 0020 00 0 15023 TRA AO820 * AO800 FP027750 | 15020 -0500 00 0 04624 AO810 CAL CARD+3 REPLACE ONLY WAS BLANK AO810 FP027760 | 15021 -0320 00 0 10745 ANA BCD20 MAKE IT 1 IF BCD, 0 IF BIN AO815 FP027770 | 15022 0020 00 0 15024 TRA AO820+1 FP027780 15023 0767 00 0 00030 AO820 ALS 24 REPLACE ONLY TO INSERT AO820 FP027790 | 15024 -0602 00 0 16640 ORS AAG72+8 * AO830 FP027800 | 15025 0774 00 1 00002 AXT 2,1 MIN-MAX TO INSERT AO840 FP027810 | 15026 -0500 00 1 04627 AO850 CAL CARD+6,1 AO850 FP027820 | 15027 0560 00 1 04630 LDQ CARD+7,1 AO860 FP027830 15030 -0763 00 0 00014 LGL 12 AO870 FP027840 | 15031 -0320 00 0 11024 ANA BCD77 AO871 FP027850 | 15032 -0340 00 0 16624 LAS AAG68 AO880 FP027860 | 15033 0020 00 0 15036 TRA *+3 AO890 FP027870 | 15034 0020 00 0 15046 TRA AO950 AO895 FP027880 15035 0020 00 0 15040 TRA *+3 FP027890 | 15036 0074 00 4 10507 TSX T0010,4 FP027900 | 15037 -1 00204 2 15042 STR AO910,2,132 FP027910 | 15040 0602 00 0 16546 SLW AAG18 AO900 FP027920 | 15041 0602 00 0 07751 SLW B1020 AO905 FP027930 15042 0634 00 1 15044 AO910 SXA *+2,1 AO910 FP027940 | 15043 0074 00 4 07570 TSX B0010,4 AO915 FP027950 | 15044 0774 00 1 00000 AXT 0,1 AO930 FP027960 | 15045 -0500 00 0 16546 CAL AAG18 AO940 FP027970 | 15046 0560 00 0 16647 AO950 LDQ AAG75 AO950 FP027980 15047 -0765 00 0 00014 LGR 12 AO960 FP027990 | 15050 -0602 00 1 16642 ORS AAG72+10,1 AO970 FP028000 | 15051 -0130 00 0 00000 XCL AO973 FP028010 | 15052 -0602 00 1 16643 ORS AAG72+11,1 AO980 FP028020 | 15053 2 00001 1 15026 TIX AO850,1,1 AO990 FP028030 15054 -0500 00 0 16624 AP010 CAL AAG68 AP010 FP028040 | 15055 0771 00 0 00014 ARS 12 AP020 FP028050 | 15056 -0602 00 0 16642 ORS AAG72+10 * AP030 FP028060 | 15057 -0500 00 0 04624 CAL CARD+3 CALC. MODE AP050 FP028070 | 15060 -0765 00 0 00014 LGR 12 AP060 FP028080 15061 -0320 00 0 10734 ANA BCD07 AP070 FP028090 | 15062 -0340 00 0 16613 LAS AAG60 AP080 FP028100 | 15063 0020 00 0 15066 TRA AP120 PKD BCD AP090 FP028110 | 15064 0020 00 0 15070 TRA AP140 UNPKD BCD AP100 FP028120 | 15065 0020 00 0 15072 TRA AP160 UNPKD BIN AP110 FP028130 15066 0774 00 2 00002 AP120 AXT 2,2 SET IR 2 TO TBL. NO. AP120 FP028140 | 15067 0020 00 0 15073 TRA AP170 * AP130 FP028150 | 15070 0774 00 2 00003 AP140 AXT 3,2 * AP140 FP028160 | 15071 0020 00 0 15073 TRA AP170 * AP150 FP028170 | 15072 0774 00 2 00001 AP160 AXT 1,2 * AP160 FP028180 15073 0522 00 2 16567 AP170 XEC AAG40,2 SET IR 4 TO TBL LOC. AP170 FP028190 | 15074 0520 00 0 16703 AP173 ZET AAG96 WHAT CODE AP173 FP028200 | 1 LISTING OF 12/01/64 PAGE 67 | DICT (9PAC31). BUILD DICTIONARY | 15075 0020 00 0 15100 TRA *+3 AP175 FP028210 | 15076 -0500 00 0 16650 CAL AAG76 INSERT AP180 FP028220 | 15077 0020 00 0 15101 TRA *+2 AP183 FP028230 | 15100 -0754 00 0 00000 PXD 0,0 NOT INSERT AP185 FP028240 | 15101 0622 00 2 16563 STD AAG36,2 CODE WORD AP190 FP028250 15102 -0500 00 2 16563 CAL AAG36,2 CODE WORD TO TBL. AP200 FP028260 | 15103 0602 00 4 00000 SLW 0,4 * AP210 FP028270 | 15104 0602 00 2 16573 SLW AAG44,2 * TO CURRENT AP220 FP028280 | 15105 2 00001 4 15106 TIX *+1,4,1 * AP230 FP028290 | 15106 0074 00 1 15114 TSX AP300,1 PUT INSERT TO TBL. AP240 FP028300 15107 0774 00 1 00013 AXT 11,1 AP250 FP028310 | 15110 -0520 00 0 16703 AP260 NZT AAG96 AP260 FP028320 | 15111 0020 00 0 15145 TRA AP600 AP265 FP028330 | 15112 0600 00 0 16703 STZ AAG96 AP270 FP028340 | 15113 0020 00 0 14542 TRA AN210 AP275 FP028350 15114 0634 00 1 15141 AP300 SXA AP510,1 AP300 FP028360 | 15115 0522 00 1 00001 XEC 1,1 TEST FOR ROOM IN TBL AP320 FP028370 | 15116 0754 00 1 00000 PXA 0,1 * AP330 FP028380 | 15117 0400 00 2 16563 ADD AAG36,2 * AP340 FP028390 | 15120 -0320 00 0 10734 ANA BCD07 * AP350 FP028400 15121 -0340 00 2 16606 LAS AAG55,2 * AP360 FP028410 | 15122 0020 00 0 15143 TRA AP530 NO AP370 FP028420 | 15123 0020 00 0 15143 TRA AP530 NO AP380 FP028430 | 15124 -0500 00 1 16643 CAL AAG72+11,1 PUT INSERT IN TABLE AP390 FP028440 | 15125 0602 00 4 00000 SLW 0,4 * AP400 FP028450 15126 2 00001 4 15127 TIX *+1,4,1 * AP410 FP028460 | 15127 2 00001 1 15124 TIX *-3,1,1 * AP420 FP028470 | 15130 0754 00 4 00000 PXA 0,4 UPDATE CODE WORD ADDRESS AP430 FP028480 | 15131 0760 00 0 00006 COM * AP440 FP028490 | 15132 0400 00 0 16615 ADD AAG61 FP028500 15133 0621 00 2 16563 STA AAG36,2 * AP450 FP028510 | 15134 0621 00 2 16567 STA AAG40,2 * AP460 FP028520 | 15135 0621 60 2 16573 STA* AAG44,2 * AP470 FP028530 | 15136 -0500 00 0 16520 CAL AAG05 STORE FLD. NO. AP480 FP028540 | 15137 0602 00 0 16601 SLW AAG50 * AP490 FP028550 15140 0634 00 2 16602 SXA AAG51,2 * AP500 FP028560 | 15141 0774 00 1 00000 AP510 AXT 0,1 AP510 FP028570 | 15142 0020 00 1 00002 TRA 2,1 EXIT AP520 FP028580 | 15143 0074 00 4 10507 AP530 TSX T0010,4 EXCEED PKD BIN TABLE AP530 FP028590 | 15144 -1 11766 5 00000 STR 0,5,5110 (1 WORD, MODE INVALID) AP531 FP028600 15145 0074 00 4 14031 AP600 TSX AJ600,4 ACCUM REC LEN AP600 FP028610 | 15146 0 00000 0 16625 PZE AAG69 AP610 FP028620 | 15147 0774 00 4 00000 AP621 AXT 0,4 EXIT-INSERT F SF REC. AP621 FP028630 | 15150 0020 00 4 00001 TRA 1,4 SUB ROUTINE AP622 FP028640 | 15151 0074 00 4 13067 AP650 TSX AG010,4 TO READ CHG CARD AP650 FP028650 15152 0020 00 0 15161 TRA AP720 * 1 AP660 FP028660 | 15153 0020 00 0 15161 TRA AP720 * 2 AP670 FP028670 | 15154 0020 00 0 15170 TRA AP770 * 3 AP680 FP028680 | 15155 0020 00 0 15170 TRA AP770 * 4 AP690 FP028690 | 15156 0020 00 0 14555 TRA AN500 * 5 AP700 FP028700 15157 0074 00 4 10507 TSX T0010,4 FP028710 | 15160 -1 00151 2 15151 STR AP650,2,105 REPORT FUNCTION NOT ALLOWED AP710 FP028720 | 15161 0500 00 0 16645 AP720 CLA AAG73 TEST SW 2 AP720 FP028730 | 15162 0120 00 0 13727 TPL AJ070 * OFF TO REF. L. AP730 FP028740 | 15163 0760 00 0 00003 SSP SET SW 2 TO OFF AP740 FP028750 1 LISTING OF 12/01/64 PAGE 68 | DICT (9PAC31). BUILD DICTIONARY | | 15164 0601 00 0 16645 STO AAG73 * AP750 FP028760 | 15165 0500 00 0 16533 CLA AAG16 TEST SW 1 AP751 FP028770 15166 -0120 00 0 13411 TMI AH370 TO REF W AP752 FP028780 | 15167 0020 00 0 13366 TRA AH352 * AP760 FP028790 | 15170 0500 00 0 16645 AP770 CLA AAG73 TEST SW 2 AP770 FP028800 | 15171 0120 00 0 13727 TPL AJ070 * OFF AP780 FP028810 | 15172 0020 00 0 14555 TRA AN500 * ON AP790 FP028820 15173 -0500 00 0 04623 AP800 CAL CARD+2 SET SIZE TO 12 AP800 FP028830 | 15174 -0320 00 0 11021 ANA BCD74 AP810 FP028840 | 15175 -0501 00 0 16677 ORA AAG92 AP820 FP028850 | 15176 0602 00 0 04623 SLW CARD+2 AP830 FP028860 | 15177 -0500 00 0 04624 CAL CARD+3 AP840 FP028870 15200 -0320 00 0 10764 ANA BCD37 AP850 FP028880 | 15201 -0501 00 0 16700 ORA AAG93 AP860 FP028890 | 15202 0602 00 0 04624 SLW CARD+3 AP870 FP028900 | 15203 -0320 00 0 10730 ANA BCD03 TEST FOR SEQ LEVEL AP880 FP028910 | 15204 -0340 00 0 16646 LAS AAG74 AP890 FP028920 15205 0020 00 0 15210 TRA *+3 AP900 FP028930 | 15206 0020 00 0 15210 TRA *+2 AP910 FP028940 | 15207 0020 00 0 14606 TRA AN670 AP920 FP028950 | 15210 0074 00 4 10507 TSX T0010,4 FP028960 | 15211 -1 00172 2 14606 STR AN670,2,122 FLD NR1, NO SEQ LEVEL FP028970 15212 0074 00 4 15214 AQ010 TSX AQ015,4 EDIT + INSERT G REC AQ010 FP028980 | 15213 0020 00 0 15151 TRA AP650 AQ011 FP028990 | 15214 0634 00 4 15306 AQ015 SXA AQ360,4 AQ015 FP029000 | * FP029010 | 15215 -0500 00 0 16520 CAL AAG05 TEST FOR DELETED F AQ019 FP029020 15216 -0340 00 0 16626 LAS AAG70 * AQ020 FP029030 | 15217 0020 00 0 15223 TRA AQ070 * AQ030 FP029040 | 15220 0020 00 0 15221 TRA *+1 * YES AQ040 FP029050 | 15221 0074 00 4 10507 TSX T0010,4 FP029060 | 15222 -1 06072 3 00000 STR 0,3,3130 INSERT SUMM CARD ON DELETED FLD AQ060 FP029070 15223 -0340 00 0 16601 AQ070 LAS AAG50 G INSERT EQUAL LAST F AQ070 FP029080 | 15224 0020 00 0 15226 TRA *+2 * AQ080 FP029090 | 15225 0020 00 0 15230 TRA AQ110 * YES AQ090 FP029100 | 15226 0074 00 4 10507 TSX T0010,4 FP029110 | 15227 -1 06561 3 00000 STR 0,3,3441 SUMM CARD FLD= NOT EQUAL PREV FLD= AQ100 FP029120 15230 0522 00 0 16602 AQ110 XEC AAG51 AQ110 FP029130 | 15231 -3 00001 2 15234 TXL AQ140,2,1 BIN MODE-G AQ120 FP029140 | 15232 0074 00 4 10507 TSX T0010,4 FP029150 | 15233 -1 06104 3 00000 STR 0,3,3140 SUMMARIZED FLD IS BCD-MOST BE BIN AQ130 FP029160 | 15234 0774 00 1 00003 AQ140 AXT 3,1 RE-SET WORK AREA AQ140 FP029170 15235 0600 00 1 16643 STZ AAG72+11,1 AQ141,FP029180 | 15236 2 00001 1 15235 TIX *-1,1,1 * AQ142 FP029190 | 15237 -0500 00 0 04622 CAL CARD+1 BUILD G INSERT AQ143 FP029200 | 15240 0560 00 0 04623 LDQ CARD+2 AQ150 FP029210 | 15241 -0763 00 0 00014 LGL 12 AQ160 FP029220 15242 -0320 00 0 10764 ANA BCD37 AQ170 FP029230 | 15243 -0501 00 0 16651 ORA AAG77 AQ180 FP029240 | 15244 -0602 00 0 16640 ORS AAG72+8 AQ181 FP029250 | 15245 -0130 00 0 00000 XCL AQ190 FP029260 | 15246 -0320 00 0 10765 ANA BCD40 AQ191 FP029270 15247 -0602 00 0 16641 ORS AAG72+9 AQ192 FP029280 | 15250 -0500 00 0 04623 CAL CARD+2 AQ230 FP029290 | 15251 0560 00 0 04624 LDQ CARD+3 AQ240 FP029300 | 1 LISTING OF 12/01/64 PAGE 69 | DICT (9PAC31). BUILD DICTIONARY | 15252 -0763 00 0 00030 LGL 24 AQ250 FP029310 | 15253 0602 00 0 07751 SLW B1020 AQ260 FP029320 | 15254 0074 00 4 16002 TSX AW010,4 * NON NUM TEST AQ270 FP029330 | 15255 0020 00 0 15257 TRA *+2 FP029340 15256 0020 00 0 15261 TRA *+3 FP029350 | 15257 0074 00 4 10507 TSX T0010,4 FP029360 | 15260 -1 00205 2 15261 STR *+1,2,133 INSERT G TO NON-NUMERIC AQ280 FP029370 | 15261 -0500 00 0 07751 CAL B1020 TEST TO REC TYPE AQ281 FP029380 | 15262 -0765 00 0 00030 LGR 24 * AQ282 FP029390 15263 -0340 00 0 16525 LAS AAG10 AQ283 FP029400 | 15264 0020 00 0 15270 TRA AQ290 * AQ284 FP029410 | 15265 0020 00 0 15266 TRA *+1 * AQ285 FP029420 | 15266 0074 00 4 10507 TSX T0010,4 FP029430 | 15267 -1 00206 2 15270 STR *+1,2,134 INSERT G TO FLD NO SEQ ERR AQ286 FP029440 15270 -0500 00 0 07751 AQ290 CAL B1020 AQ290 FP029450 | 15271 -0765 00 0 00006 LGR 6 AQ300 FP029460 | 15272 -0602 00 0 16641 ORS AAG72+9 AQ310 FP029470 | 15273 -0763 00 0 00006 LGL 6 FP029480 | 15274 0560 00 0 17576 LDQ BND25 FP029490 15275 -0765 00 0 00006 LGR 6 FP029500 | 15276 -0600 00 0 16642 STQ AAG72+10 FP029510 | 15277 0522 00 2 16567 XEC AAG40,2 AQ330 FP029520 | 15300 0074 00 1 15114 TSX AP300,1 PUT G INSERT IN TBL AQ340 FP029530 | 15301 0774 00 1 00003 AXT 3,1 AQ350 FP029540 15302 0074 00 4 15513 AQ351 TSX AS570,4 ENTRY TO SUTBL AQ351 FP029550 | 15303 -0774 00 2 16640 AXC AAG72+8,2 FP029560 | 15304 -0500 00 0 16656 CAL AAG82 INSERT ZIGGER FP029570 | 15305 0630 00 1 72451 STP SUTBL+SMZE-1,1 * AQ354 FP029580 | * FP029590 * FP029600 | 15306 0774 00 4 00000 AQ360 AXT 0,4 AQ360 FP029610 | 15307 0020 00 4 00001 TRA 1,4 AQ370 FP029620 | 15310 0074 00 4 15564 AQ400 TSX AT010,4 WRITE F REC AQ400 FP029630 | 15311 -0 00013 0 16705 IOCP WORK,,11 AQ410 FP029640 15312 3 00003 0 16723 IORT BLK11,,3 AQ420 FP029650 | 15313 0020 00 0 13334 TRA AH080 * AQ430 FP029660 | 1 LISTING OF 12/01/64 PAGE 70 | DICT (9PAC31). BUILD DICTIONARY | * FP029680 | * SUMMARY SF RECORD FP029690 | * FP029700 | 15314 -0500 00 0 16705 AR010 CAL WORK SEQ CHECK SF REC AR010 FP029710 | 15315 0560 00 0 16706 LDQ WORK+1 * AR040 FP029720 15316 -0765 00 0 00022 LGR 18 * AR050 FP029730 | 15317 -0320 00 0 10730 ANA BCD03 * AR060 FP029740 | 15320 -0340 00 0 16547 LAS AAG19 * AR070 FP029750 | 15321 0020 00 0 15323 TRA *+2 * AR080 FP029760 | 15322 0020 00 0 15325 TRA AR110 * AR090 FP029770 15323 0074 00 4 10507 TSX T0010,4 FP029780 | 15324 -1 06116 3 00000 STR 0,3,3150 SUMM CARD RT NOT EQUAL PREV CARD RT AR100 FP029790 | 15325 -0763 00 0 00030 AR110 LGL 24 SEQ. FLD. NO. AR110 FP029800 | 15326 -0320 00 0 10744 ANA BCD17 * AR120 FP029810 | 15327 -0340 00 0 16552 LAS AAG22 * AR130 FP029820 15330 0020 00 0 15332 TRA *+2 AR140 FP029830 | 15331 0020 00 0 15334 TRA AR170 * AR150 FP029840 | 15332 0074 00 4 10507 TSX T0010,4 FP029850 | 15333 -1 06563 3 00000 STR 0,3,3443 SUMM CARD FLD= NOT EQUAL PREV FLD= AR160 FP029860 | 15334 -0340 00 0 16626 AR170 LAS AAG70 TEST FOR DELETED F AR170 FP029870 15335 0020 00 0 15337 TRA AR210 * AR180 FP029880 | 15336 0020 00 0 15417 TRA AR900 * YES AR190 FP029890 | 15337 0767 00 0 00006 AR210 ALS 6 BUILD SF BUFFER AR210 FP029900 | 15340 -0501 00 0 16527 ORA AAG12 * AR220 FP029910 | 15341 0602 00 0 16557 SLW AAG28 * AR230 FP029920 15342 0500 00 0 16517 AR320 CLA AAG04 TEST APP SW. AR320 FP029930 | 15343 0120 00 0 15510 TPL AS550 * OFF AR330 FP029940 | 15344 -0500 00 0 16547 AR340 CAL AAG19 SF RT VS PREV AR340 FP029950 | 15345 -0340 00 0 16525 LAS AAG10 * AR350 FP029960 | 15346 0020 00 0 15351 TRA *+3 AR360 FP029970 15347 0020 00 0 15353 TRA AR400 * AR370 FP029980 | 15350 0020 00 0 15424 TRA AS010 * LO AR380 FP029990 | 15351 0074 00 4 10507 TSX T0010,4 FP030000 | 15352 -1 06523 3 00000 STR 0,3,3411 DICT RT LOWER THAN PREV SF RT AR385 FP030010 | 15353 -0500 00 0 16557 AR400 CAL AAG28 SF FLD NO. VS CHG AR400 FP030020 15354 -0340 00 0 16530 LAS AAG13 * AR410 FP030030 | 15355 0020 00 0 15455 TRA AS250 * HI AR420 FP030040 | 15356 0020 00 0 15360 TRA AR450 * EQ AR430 FP030050 | 15357 0020 00 0 15424 TRA AS010 * LO AR440 FP030060 | 15360 -0500 00 0 04623 AR450 CAL CARD+2 TEST ACTION CODE AR450 FP030070 15361 -0765 00 0 00014 LGR 12 * AR460 FP030080 | 15362 -0320 00 0 10726 ANA BCD01 * AR470 FP030090 | 15363 -0340 00 0 16551 LAS AAG21 * AR480 FP030100 | 15364 0020 00 0 15370 TRA AR520 * AR490 FP030110 | 15365 0020 00 0 15374 TRA AR600 D AR500 FP030120 15366 0074 00 4 10507 TSX T0010,4 FP030130 | 15367 -1 06130 3 00000 STR 0,3,3160 DICT REC ACT FOR SUM REC NOT D OR I AR510 FP030140 | 15370 -0340 00 0 16627 AR520 LAS AAG71 * AR520 FP030150 | 15371 0020 00 0 15367 TRA *-2 * AR530 FP030160 | 15372 0020 00 0 15465 TRA AS320 I AR540 FP030170 15373 0020 00 0 15367 TRA *-4 * AR550 FP030180 | 15374 -0500 00 0 04623 AR600 CAL CARD+2 AR600 FP030190 | 15375 0560 00 0 04624 LDQ CARD+3 AR602 FP030200 | 15376 -0763 00 0 00030 LGL 24 AR604 FP030210 | 15377 0602 00 0 16702 SLW AAG95 AR606 FP030220 1 LISTING OF 12/01/64 PAGE 71 | DICT (9PAC31). BUILD DICTIONARY | | 15400 -0500 00 0 16706 CAL WORK+1 AR608 FP030230 | 15401 0560 00 0 16707 LDQ WORK+2 AR610 FP030240 15402 -0763 00 0 00006 LGL 6 AR620 FP030250 | 15403 -0320 00 0 11024 ANA BCD77 AR630 FP030260 | 15404 -0340 00 0 16702 LAS AAG95 AR640 FP030270 | 15405 0020 00 0 15410 TRA AR700 SF HI AR650 FP030280 | 15406 0020 00 0 15412 TRA AR710 AR660 FP030290 15407 0020 00 0 15424 TRA AS010 SF LO AR670 FP030300 | 15410 0074 00 4 10507 AR700 TSX T0010,4 AR700 FP030310 | 15411 -1 06573 3 00000 STR 0,3,3451 NO DICT FOR SUMMARY FLD FP030320 | 15412 0074 00 4 15513 AR710 TSX AS570,4 ENTRY TO SUTBL AR710 FP030330 | 15413 -0774 00 2 16705 AXC WORK,2 * AR720 FP030340 15414 -0500 00 0 16655 CAL AAG81 DELETE ZIGGER AR730 FP030350 | 15415 0630 00 1 72451 STP SUTBL+SMZE-1,1 * AR740 FP030360 | 15416 0020 00 0 13324 TRA AH010 TO READ CHG. AR750 FP030370 | 15417 0074 00 4 15513 AR900 TSX AS570,4 ENTRY TO SUTBL AR900 FP030380 | 15420 -0774 00 2 16705 AXC WORK,2 * AR901 FP030390 15421 -0500 00 0 16655 CAL AAG81 DELETE ZIGGER AR902 FP030400 | 15422 0630 00 1 72451 STP SUTBL+SMZE-1,1 * AR903 FP030410 | 15423 0020 00 0 13334 TRA AH080 TO READ SF AR910 FP030420 | 15424 0522 00 0 16602 AS010 XEC AAG51 INIT FOR MODE OF F REC. AS010 FP030430 | 15425 0522 00 2 16567 XEC AAG40,2 INIT IR 4 FOR TBL LOC. AS020 FP030440 15426 -0500 00 2 16563 CAL AAG36,2 TEST TBL LIMIT AS030 FP030450 | 15427 -0320 00 0 10734 ANA BCD07 * AS040 FP030460 | 15430 0400 00 0 16653 ADD AAG79 * AS050 FP030470 | 15431 -0340 00 2 16606 LAS AAG55,2 * AS060 FP030480 | 15432 0020 00 0 15435 TRA *+3 * AS070 FP030490 15433 0020 00 0 15435 TRA *+2 * AS080 FP030500 | 15434 0020 00 0 15437 TRA AS110 * AS090 FP030510 | 15435 0074 00 4 10507 TSX T0010,4 FP030520 | 15436 -1 11754 5 00000 STR 0,5,5100 EXCEED UNPKD BIN TBL (5000 WORDS) AS100 FP030530 | 15437 0774 00 1 00003 AS110 AXT 3,1 MOVE SF G TO TABLE AS110 FP030540 15440 -0500 00 1 16710 CAL WORK+3,1 AS120 FP030550 | 15441 0602 00 4 00000 SLW 0,4 * AS130 FP030560 | 15442 2 00001 4 15443 TIX *+1,4,1 * AS140 FP030570 | 15443 2 00001 1 15440 TIX *-3,1,1 * AS150 FP030580 | 15444 0754 00 4 00000 PXA 0,4 UPDATE CODE WORD ADDRESS AS160 FP030590 15445 0760 00 0 00006 COM * AS170 FP030600 | 15446 0400 00 0 16615 ADD AAG61 FP030610 | 15447 0621 00 2 16563 STA AAG36,2 * AS180 FP030620 | 15450 0621 00 2 16567 STA AAG40,2 * AS190 FP030630 | 15451 0621 60 2 16573 STA* AAG44,2 * AS200 FP030640 15452 0074 00 4 15513 TSX AS570,4 ENTRY TO SUTBL AS201 FP030650 | 15453 -0774 00 2 16705 AXC WORK,2 AS202 FP030660 | 15454 0020 00 0 13334 TRA AH080 TO REF. A. AS210 FP030670 | 15455 -0500 00 0 04623 AS250 CAL CARD+2 TEST ACTION CODE AS250 FP030680 | 15456 -0765 00 0 00014 LGR 12 * AS260 FP030690 15457 -0320 00 0 10726 ANA BCD01 * AS270 FP030700 | 15460 -0340 00 0 16627 LAS AAG71 * AS280 FP030710 | 15461 0020 00 0 15463 TRA *+2 * AS290 FP030720 | 15462 0020 00 0 15465 TRA AS320 * AS300 FP030730 | 15463 0074 00 4 10507 TSX T0010,4 FP030740 15464 -1 06632 3 00000 STR 0,3,3482 SUMM DICT FLD ACT NOT I FOR R ACT I AS310 FP030750 | 15465 -0500 00 0 16706 AS320 CAL WORK+1 TEST SF TO VS. CHG AS320 FP030760 | 15466 0560 00 0 16707 LDQ WORK+2 AS330 FP030770 | 1 LISTING OF 12/01/64 PAGE 72 | DICT (9PAC31). BUILD DICTIONARY | 15467 -0763 00 0 00006 LGL 6 AS340 FP030780 | 15470 -0320 00 0 11024 ANA BCD77 AS350 FP030790 | 15471 -0340 00 0 16654 LAS AAG80 AS360 FP030800 | 15472 0020 00 0 15477 TRA AS450 AS370 FP030810 15473 0020 00 0 15475 TRA *+2 AS380 FP030820 | 15474 0020 00 0 15424 TRA AS010 AS390 FP030830 | 15475 0074 00 4 10507 TSX T0010,4 FP030840 | 15476 -1 06142 3 00000 STR 0,3,3170 INSERT SUMM FLD WHERE ONE EXISTS AS410 FP030850 | 15477 0074 00 4 15214 AS450 TSX AQ015,4 EDIT + INSERT G IN TBL AS450 FP030860 15500 0074 00 4 13067 TSX AG010,4 READ A CHANGE AS460 FP030870 | 15501 0020 00 0 15344 TRA AR340 * 1 AS470 FP030880 | 15502 0020 00 0 15344 TRA AR340 * 2 AS480 FP030890 | 15503 0020 00 0 15344 TRA AR340 * 3 AS490 FP030900 | 15504 0020 00 0 15344 TRA AR340 * 4 AS500 FP030910 15505 0020 00 0 15344 TRA AR340 * 5 AS510 FP030920 | 15506 0074 00 4 10507 TSX T0010,4 FP030930 | 15507 -1 00151 2 15500 STR AS450+1,2,105 REPT FUNCTION NOT ALLOWED FP030940 | 15510 0074 00 4 15513 AS550 TSX AS570,4 BUILD SUM TABLE ENTRY AS550 FP030950 | 15511 -0774 00 2 16705 AXC WORK,2 AS560 FP030960 15512 0020 00 0 15560 TRA AS950 AS561 FP030970 | 15513 0522 00 4 00001 AS570 XEC 1,4 AS570 FP030980 | 15514 0634 00 4 15550 SXA AS870,4 AS580 FP030990 | 15515 0774 00 4 00702 AXT SMZE-3,4 AS590 FP031000 | 15516 0774 00 1 00705 AS600 AXT SMZE,1 AS600 FP031010 15517 2 00003 1 15522 TIX *+3,1,3 AS610 FP031020 | 15520 0074 00 4 10507 TSX T0010,4 FP031030 | 15521 -1 12132 5 00000 STR 0,5,5210 SUMM MORE THAN 150 FLDS(450/3 WRDS) AS620 FP031040 | 15522 0634 00 1 15516 SXA AS600,1 AS630 FP031050 | 15523 -0500 00 2 00000 CAL 0,2 PUT FROM IN TBL AS640 FP031060 15524 0560 00 2 00001 LDQ 1,2 * AS650 FP031070 | 15525 -0763 00 0 00006 LGL 6 * AS660 FP031080 | 15526 0602 00 1 72447 SLW SUTBL+SMZE-3,1 * AS670 FP031090 | 15527 -0500 00 2 00001 CAL 1,2 PUT TO IN AC AS680 FP031100 | 15530 0560 00 2 00002 LDQ 2,2 * AS690 FP031110 15531 -0763 00 0 00006 LGL 6 * AS700 FP031120 | 15532 -0320 00 0 11024 ANA BCD77 * AS710 FP031130 | 15533 0600 00 1 72450 STZ SUTBL+SMZE-2,1 ZERO TO TBL AS720 FP031140 | 15534 -0520 00 4 72450 NZT SUTBL+SMZE-2,4 AS760 FP031150 | 15535 0020 00 0 15552 TRA AS890 NOT IN TBL. AS770 FP031160 15536 -0340 00 4 72450 LAS SUTBL+SMZE-2,4 AS780 FP031170 | 15537 0020 00 0 15541 TRA *+2 AS790 FP031180 | 15540 0020 00 0 15544 TRA AS830 IS IN TBL AS800 FP031190 | 15541 2 00003 4 15534 TIX *-5,4,3 AS810 FP031200 | 15542 0074 00 4 10507 TSX T0010,4 FP031210 15543 -1 10150 4 00000 STR 0,4,4200 SUMM ENTRY NOT IN SUMM TABLE AS820 FP031220 | 15544 0602 00 1 72450 AS830 SLW SUTBL+SMZE-2,1 AS830 FP031230 | 15545 -0500 00 4 72451 CAL SUTBL+SMZE-1,4 AS840 FP031240 | 15546 0621 00 1 72451 STA SUTBL+SMZE-1,1 AS850 FP031250 | 15547 0600 00 1 72452 AS860 STZ SUTBL+SMZE,1 AS860 FP031260 15550 0774 00 4 00000 AS870 AXT 0,4 AS870 FP031270 | 15551 0020 00 4 00002 TRA 2,4 AS880 FP031280 | 15552 0602 00 1 72450 AS890 SLW SUTBL+SMZE-2,1 AS890 FP031290 | 15553 -0500 00 0 04401 CAL ADRES AS900 FP031300 | 15554 0602 00 1 72451 SLW SUTBL+SMZE-1,1 AS920 FP031310 15555 0400 00 0 16615 ADD AAG61 AS923 FP031320 | 1 LISTING OF 12/01/64 PAGE 73 | DICT (9PAC31). BUILD DICTIONARY | | 15556 0602 00 0 04401 SLW ADRES AS930 FP031330 15557 0020 00 0 15547 TRA AS860 AS940 FP031340 | 15560 0074 00 4 15564 AS950 TSX AT010,4 WRITE G SF. REC AS950 FP031350 | 15561 -0 00003 0 16705 IOCP WORK,,3 AS960 FP031360 | 15562 3 00013 0 16723 IORT BLK11,,11 AS970 FP031370 | 15563 0020 00 0 13334 TRA AH080 AS980 FP031380 * FP031390 | * WRITE OUTPUT DICTIONARY ROUTINE FP031400 | * FP031410 | 15564 0634 00 4 15576 AT010 SXA AT100,4 AT010 FP031420 | 15565 -0500 00 4 00001 CAL 1,4 IOCP FOR CONTENT AT020 FP031430 15566 0602 00 0 15600 SLW AT120 AT030 FP031440 | 15567 -0500 00 4 00002 CAL 2,4 IORT FOR BLANKS AT040 FP031450 | 15570 0602 00 0 15601 SLW AT130 AT050 FP031460 | 15571 0074 00 4 05255 TSX RD(WR),4 WRITE RECORD TO MASTER OUT AT060 FP031470 | 15572 -0 15600 0 00007 FOR 7,0,AT120 AT070 FP031480 15573 0020 00 0 15576 TRA AT100 AT080 FP031490 | 15574 0074 00 4 10507 TSX T0010,4 FP031500 | 15575 -1 07760 4 00000 STR 0,4,4080 EOT WRITING MASTER DICT AT090 FP031510 | 15576 0774 00 4 00000 AT100 AXT ..,4 AT100 FP031520 | 15577 0020 00 4 00003 TRA 3,4 AT110 FP031530 15600 0 00000 0 00000 AT120 PZE 0 STORAGE FOR IOCP AT120 FP031540 | 15601 0 00000 0 00000 AT130 PZE 0 STORAGE FOR IORT AT130 FP031550 | 1 LISTING OF 12/01/64 PAGE 74 | DICT (9PAC31). BUILD DICTIONARY | * AU001 FP031570 | * REF.I AU002 FP031580 | * INSERT NEW RECORD TYPE AU003 FP031590 | * AU004 FP031600 | 15602 -0500 00 0 04624 AU010 CAL CARD+3 REF I CHG REC. ACTION CODE AU010 FP031610 15603 0771 00 0 00030 ARS 24 * AU020 FP031620 | 15604 -0320 00 0 10726 ANA BCD01 * AU030 FP031630 | 15605 -0340 00 0 16627 LAS AAG71 * AU040 FP031640 | 15606 0020 00 0 15610 TRA *+2 * AU050 FP031650 | 15607 0020 00 0 15624 TRA AU160 I AU060 FP031660 15610 0074 00 4 10507 TSX T0010,4 FP031670 | 15611 -1 06552 3 00000 STR 0,3,3434 DICT FLD ACT NOT I FOR REC ACT I AU070 FP031680 | 15612 0774 00 1 00146 AU080 AXT 102,1 AU080 FP031690 | 15613 2 00002 1 15616 TIX *+3,1,2 AU090 FP031700 | 15614 0074 00 4 10507 TSX T0010,4 FP031710 15615 -1 12074 5 00000 STR 0,5,5180 EXCEED RECORD TYPE TABLE(99 RT) AU100 FP031720 | 15616 0602 00 1 71544 SLW AAG84+100,1 * AU110 FP031730 | 15617 0600 00 1 71545 STZ AAG84+101,1 * TABLE LENGTH ZIGGER AU120 FP031740 | 15620 0600 00 1 71546 STZ AAG84+102,1 AU120 FP031750 | 15621 0634 00 1 15612 SXA AU080,1 * AU130 FP031760 15622 0634 00 1 11402 SXA W0141,1 AU131 FP031770 | 15623 0020 00 4 00001 TRA 1,4 * AU140 FP031780 | 15624 0774 00 1 00010 AU160 AXT 8,1 CREATE NEW E REC FROM CHG. AU160 FP031790 | 15625 0600 00 1 16667 STZ AAG83+8,1 CLEAR WORK AREA AU170 FP031800 | 15626 2 00001 1 15625 TIX *-1,1,1 * AU180 FP031810 15627 -0760 00 0 00003 SSM SET INSERT REC. TYPE SW AU181 FP031820 | 15630 0601 00 0 16676 STO AAG91 TO ON AU182 FP031830 | 15631 -0500 00 0 16531 CAL AAG14 E CODE AU190 FP031840 | 15632 0767 00 0 00036 ALS 30 * AU200 FP031850 | 15633 -0602 00 0 16657 ORS AAG83 * AU210 FP031860 15634 -0500 00 0 04623 CAL CARD+2 EDIT REC TYPE-MUST BE NUMERAU240 FP031870 | 15635 0771 00 0 00006 ARS 6 * AU250 FP031880 | 15636 -0320 00 0 10730 ANA BCD03 * AU260 FP031890 | 15637 0602 00 0 07751 SLW B1020 * AU270 FP031900 | 15640 0074 00 4 16002 TSX AW010,4 * NON NUM TEST AU280 FP031910 15641 0020 00 0 15643 TRA *+2 AU281 FP031920 | 15642 0020 00 0 15645 TRA *+3 AU282 FP031930 | 15643 0074 00 4 10507 TSX T0010,4 FP031940 | 15644 -1 00207 2 15645 STR *+1,2,135 INSERT E REC TYPE NON NUM AU290 FP031950 | 15645 -0500 00 0 07751 CAL B1020 * AU300 FP031960 15646 0767 00 0 00006 ALS 6 * AU310 FP031970 | 15647 -0602 00 0 16660 ORS AAG83+1 * AU320 FP031980 | 15650 -0500 00 0 17576 CAL BND25 FP031990 | 15651 -0320 00 0 10733 ANA BCD06 FP032000 | 15652 0767 00 0 00006 ALS 6 * AU460 FP032010 15653 -0602 00 0 16661 ORS AAG83+2 * AU470 FP032020 | 15654 -0500 00 0 04624 CAL CARD+3 EDIT AND BUILD PARENT CODE AU500 FP032030 | 15655 0771 00 0 00014 ARS 12 * AU510 FP032040 | 15656 -0320 00 0 10730 ANA BCD03 * AU520 FP032050 | 15657 -0340 00 0 16646 LAS AAG74 P.C. BLANK AU521 FP032060 15660 0020 00 0 15663 TRA *+3 AU522 FP032070 | 15661 0020 00 0 15705 TRA AU660 * YES AU523 FP032080 | 15662 0020 00 0 15665 TRA *+3 AU524 FP032090 | 15663 0074 00 4 10507 TSX T0010,4 AU525 FP032100 | 15664 -1 00211 2 15705 STR AU660,2,137 INSERT E PC NON-NUM-BLANK AU526 FP032110 1 LISTING OF 12/01/64 PAGE 75 | DICT (9PAC31). BUILD DICTIONARY | | 15665 0774 00 1 00144 AXT 100,1 * SEARCH REC. TYPE TABLE AU530 FP032120 | 15666 -0520 00 1 71544 AU540 NZT AAG84+100,1 * * AU540 FP032130 15667 0020 00 0 15673 TRA AU590 * * NOT IN TABLE AU550 FP032140 | 15670 -0340 00 1 71544 LAS AAG84+100,1 * * AU560 FP032150 | 15671 0020 00 0 15675 TRA AU600 * * AU570 FP032160 | 15672 0020 00 0 15677 TRA AU620 * * AU580 FP032170 | 15673 0074 00 4 10507 AU590 TSX T0010,4 AU590 FP032180 15674 -1 06262 3 00000 STR 0,3,3250 PARENT RT CALLED FOR NOT INFRE AU591 FP032190 | 15675 2 00002 1 15666 AU600 TIX AU540,1,2 * AU600 FP032200 | 15676 0020 00 0 15673 TRA AU590 * * AU610 FP032210 | 15677 -0340 00 0 16525 AU620 LAS AAG10 * PARENT CODE LESS THAN RECAU620 FP032220 | 15700 0020 00 0 15703 TRA *+3 * * AU630 FP032230 15701 0020 00 0 15703 TRA *+2 * * AU640 FP032240 | 15702 0020 00 0 15705 TRA AU660 AU641 FP032250 | 15703 0074 00 4 10507 TSX T0010,4 FP032260 | 15704 -1 06274 3 00000 STR 0,3,3260 PAR RT GREATER OR EQ DICT CHG RT AU650 FP032270 | 15705 -0765 00 0 00006 AU660 LGR 6 AU660 FP032280 15706 -0602 00 0 16661 ORS AAG83+2 * AU670 FP032290 | 15707 -0130 00 0 00000 XCL * AU700 FP032300 | 15710 -0320 00 0 10765 ANA BCD40 * AU710 FP032310 | 15711 -0602 00 0 16662 ORS AAG83+3 * AU720 FP032320 | 15712 -0500 00 0 16525 CAL AAG10 RECORD TYPE TO TABLE AU750 FP032330 15713 0074 00 4 15612 TSX AU080,4 * AU760 FP032340 | 15714 -0500 00 0 04624 CAL CARD+3 BUILD REC. DESCRIPTION AU770 FP032350 | 15715 0560 00 0 04625 LDQ CARD+4 AU780 FP032360 | 15716 -0763 00 0 00022 LGL 18 AU790 FP032370 | 15717 -0320 00 0 10764 ANA BCD37 AU800 FP032380 15720 -0602 00 0 16662 ORS AAG83+3 AU810 FP032390 | 15721 -0763 00 0 00022 LGL 18 AU840 FP032400 | 15722 0560 00 0 04626 LDQ CARD+5 AU850 FP032410 | 15723 -0763 00 0 00022 LGL 18 AU860 FP032420 | 15724 -0320 00 0 11024 ANA BCD77 AU870 FP032430 15725 -0602 00 0 16663 ORS AAG83+4 AU880 FP032440 | 15726 -0763 00 0 00022 LGL 18 AU890 FP032450 | 15727 0560 00 0 04627 LDQ CARD+6 AU900 FP032460 | 15730 -0763 00 0 00022 LGL 18 AU910 FP032470 | 15731 -0602 00 0 16664 ORS AAG83+5 AU920 FP032480 15732 -0763 00 0 00006 LGL 6 FP032490 | 15733 0560 00 0 04630 LDQ CARD+7 FP032500 | 15734 -0765 00 0 00006 LGR 6 FP032510 | 15735 -0600 00 0 16665 STQ AAG83+6 FP032520 | 15736 -0500 00 0 04232 CAL FIL07+6 FILE SERIAL NR AV020 FP032530 15737 -0320 00 0 10764 ANA BCD37 * AV020 FP032540 | 15740 -0602 00 0 16657 ORS AAG83 * AV030 FP032550 | 15741 -0500 00 0 17576 CAL BND25 BLANKS AV060 FP032560 | 15742 -0320 00 0 11015 ANA BCD70 * AV070 FP032570 | 15743 -0602 00 0 16660 ORS AAG83+1 * AV080 FP032580 15744 0074 00 4 13067 AV110 TSX AG010,4 READ CHG. AV110 FP032590 | 15745 0020 00 0 16020 TRA AW110 TO REF. T AV120 FP032600 | 15746 0020 00 0 16020 TRA AW110 TO REF. T AV130 FP032610 | 15747 0020 00 0 15756 TRA AV180 * INSERT NEW F REC AV140 FP032620 | 15750 0020 00 0 15754 TRA *+4 AV150 FP032630 15751 0020 00 0 15770 TRA AV340 * INSERT NEW G REC. AV160 FP032640 | 15752 0074 00 4 10507 TSX T0010,4 AV169 FP032650 | 15753 -1 00151 2 15745 STR *-6,2,105 REPT FUNC NOT ALLOWED AV170 FP032660 | 1 LISTING OF 12/01/64 PAGE 76 | DICT (9PAC31). BUILD DICTIONARY | 15754 0074 00 4 10507 TSX T0010,4 AV171 FP032670 | 15755 -1 06562 3 00000 STR 0,3,3442 SUM CARD FLD = NOT EQU PREV FLD = AV172 FP032680 | 15756 -0500 00 0 04623 AV180 CAL CARD+2 F CHG ACTION IS I AV180 FP032690 | 15757 0771 00 0 00014 ARS 12 * AV190 FP032700 15760 -0320 00 0 10726 ANA BCD01 * AV200 FP032710 | 15761 -0340 00 0 16627 LAS AAG71 * AV210 FP032720 | 15762 0020 00 0 15764 TRA *+2 * AV220 FP032730 | 15763 0020 00 0 15766 TRA AV250 * YES AV230 FP032740 | 15764 0074 00 4 10507 TSX T0010,4 FP032750 15765 -1 06551 3 00000 STR 0,3,3433 DICT FLD ACT NOT I FOR REC ACT I AV240 FP032760 | 15766 0074 00 4 14573 AV250 TSX AN630,4 BUILD+INSERT F REC IN MODE AV250 FP032770 | 15767 0020 00 0 15744 TRA AV110 AV330 FP032780 | 15770 -0500 00 0 04623 AV340 CAL CARD+2 G CHG ACTION IS I AV340 FP032790 | 15771 0771 00 0 00014 ARS 12 * AV350 FP032800 15772 -0320 00 0 10726 ANA BCD01 * AV360 FP032810 | 15773 -0340 00 0 16627 LAS AAG71 * AV370 FP032820 | 15774 0020 00 0 15776 TRA *+2 * AV380 FP032830 | 15775 0020 00 0 16000 TRA AV410 * YES AV390 FP032840 | 15776 0074 00 4 10507 TSX T0010,4 FP032850 15777 -1 06631 3 00000 STR 0,3,3481 SUMM DICT FLD ACT NOT I FOR R ACT I AV400 FP032860 | 16000 0074 00 4 15214 AV410 TSX AQ015,4 BUILD + INSERT G IN TBL AV410 FP032870 | 16001 0020 00 0 15744 TRA AV110 AV420 FP032880 | 16002 0634 00 1 16014 AW010 SXA AW095,1 NON-NUMERIC TEST AW010 FP032890 | 16003 0774 00 1 00006 AXT 6,1 AW015 FP032900 16004 0560 00 0 07751 LDQ B1020 * AW020 FP032910 | 16005 0760 00 0 00000 CLM * AW030 FP032920 | 16006 -0763 00 0 00006 LGL 6 * AW040 FP032930 | 16007 0100 00 0 16013 TZE *+4 * AW050 FP032940 | 16010 -0340 00 0 16574 LAS AAG45 * 10 AW060 FP032950 16011 0020 00 0 16016 TRA AW100 AW070 FP032960 | 16012 0020 00 0 16016 TRA AW100 AW080 FP032970 | 16013 2 00001 1 16005 TIX *-6,1,1 * AW090 FP032980 | 16014 0774 00 1 00000 AW095 AXT ..,1 AW095 FP032990 | 16015 0020 00 4 00002 TRA 2,4 AW098 FP033000 16016 0534 00 1 16014 AW100 LXA AW095,1 AW100 FP033010 | 16017 0020 00 4 00001 TRA 1,4 AW102 FP033020 | * REF.T AW105 FP033030 | 1 LISTING OF 12/01/64 PAGE 77 | DICT (9PAC31). BUILD DICTIONARY | * PULL DICTIONARY RECORDS FROM MODE TABLES AW106 FP033050 | * WRITE OUTPUT DICTIONARY AW107 FP033060 | * AW108 FP033070 | 16020 0600 60 0 16560 AW110 STZ* AAG33 ZERO TO END-MODE TBL AW110 FP033080 16021 0600 60 0 16561 STZ* AAG34 * AW120 FP033090 | 16022 0600 60 0 16562 STZ* AAG35 * AW130 FP033100 | 16023 0600 60 0 16563 STZ* AAG36 * AW140 FP033110 | 16024 -0500 00 0 16576 CAL AAG47 CALC. NEW SF REC. LEN. AW150 FP033120 | 16025 -0765 00 0 00044 LGR 36 CALC. NO. OF WORDS FOR AW160 FP033130 16026 0220 00 0 16556 DVH AAG27 * PKD. BCD MODE AW170 FP033140 | 16027 -0600 00 0 16576 STQ AAG47 * AW180 FP033150 | 16030 0100 00 0 16034 TZE AW230 * AW190 FP033160 | 16031 -0500 00 0 16576 CAL AAG47 * AW200 FP033170 | 16032 0400 00 0 16615 ADD AAG61 * AW210 FP033180 16033 0601 00 0 16576 STO AAG47 * AW220 FP033190 | 16034 -0500 00 0 16575 AW230 CAL AAG46 ACCUM REC. LEN. + INIT. AW230 FP033200 | 16035 0560 00 0 16575 LDQ AAG46 REC. INCREMENTS AW240 FP033210 | 16036 0400 00 0 16576 ADD AAG47 * AW250 FP033220 | 16037 0600 00 0 16575 STZ AAG46 * AW260 FP033230 16040 -0600 00 0 16576 STQ AAG47 * AW270 FP033240 | 16041 0131 00 0 00000 XCA * AW280 FP033250 | 16042 -0500 00 0 16577 CAL AAG48 * AW290 FP033260 | 16043 -0600 00 0 16577 STQ AAG48 * AW300 FP033270 | 16044 0400 00 0 16577 ADD AAG48 * AW310 FP033280 16045 0601 00 0 17346 STO BNA10+2 NEW REC. LEN. FOR OBJ. PROGAW311 FP033290 | 16046 0601 00 0 10127 STO B6000 CONVERT REC. LEN TO BCD AW320 FP033300 | 16047 0074 00 4 10070 TSX B5010,4 * AW330 FP033310 | 16050 -0500 00 0 10131 CAL B6020 * AW350 FP033320 | 16051 -0765 00 0 00022 LGR 18 MOVE REC. LEN. TO REC. AW360 FP033330 16052 -0600 00 0 16546 STQ AAG18 * AW370 FP033340 | 16053 0074 00 4 14062 TSX AJ700,4 * AW380 FP033350 | 16054 0 10726 0 16660 PZE AAG83+1,,BCD01 * AW390 FP033360 | 16055 -0500 00 0 16546 CAL AAG18 * AW410 FP033370 | 16056 -0320 00 0 11015 ANA BCD70 * AW420 FP033380 16057 0074 00 4 14062 TSX AJ700,4 * AW430 FP033390 | 16060 0 11015 0 16661 PZE AAG83+2,,BCD70 AW440 FP033400 | 16061 0074 00 4 16064 TSX AW500,4 P.C. TBL + SEQ. I.D. AW460 FP033410 | 16062 -0774 00 2 16657 AXC AAG83,2 * AW470 FP033420 | 16063 0020 00 0 16111 TRA AW740 * AW480 FP033430 16064 0522 00 4 00001 AW500 XEC 1,4 AW500 FP033440 | 16065 -0500 00 2 00002 CAL 2,2 TEST FOR PARENT CODE AW510 FP033450 | 16066 0560 00 2 00003 LDQ 3,2 * AW520 FP033460 | 16067 -0763 00 0 00006 LGL 6 * AW530 FP033470 | 16070 -0320 00 0 10730 ANA BCD03 * AW540 FP033480 16071 -0340 00 0 16646 LAS AAG74 * AW550 FP033490 | 16072 0020 00 0 16077 TRA AW602 AW560 FP033500 | 16073 0020 00 4 00002 TRA 2,4 AW570 FP033510 | 16074 0774 00 1 00025 AW580 AXT 21,1 TEST TBL LIMIT AW580 FP033520 | 16075 2 00001 1 16101 TIX AW610,1,1 AW590 FP033530 16076 -1 12120 5 00000 STR 0,5,5200 EXCEED PARENT TABLE(ONLY 20 PRNTS) AW600 FP033540 | 16077 0074 00 4 10507 AW602 TSX T0010,4 AW602 FP033550 | 16100 -1 06617 3 00000 STR 0,3,3471 NON-NUM. SEQ LEVEL (GRT THAN BLANK) AW603 FP033560 | 16101 0621 00 1 67232 AW610 STA PATBL+20,1 BUILD TABLE ENTRY AW610 FP033570 | 16102 -0500 00 2 00001 CAL 1,2 * AW620 FP033580 16103 -0763 00 0 00014 LGL 12 * AW630 FP033590 | 1 LISTING OF 12/01/64 PAGE 78 | DICT (9PAC31). BUILD DICTIONARY | | 16104 -0320 00 0 10755 ANA BCD30 * AW640 FP033600 16105 0622 00 1 67232 STD PATBL+20,1 * AW650 FP033610 | 16106 0600 00 1 67233 STZ PATBL+21,1 * AW660 FP033620 | 16107 0634 00 1 16074 SXA AW580,1 * AW670 FP033630 | 16110 0020 00 4 00002 TRA 2,4 EXIT AW730 FP033640 | 16111 0074 00 4 15564 AW740 TSX AT010,4 WRITE DICTIONARY LABEL AW740 FP033650 16112 -0 00007 0 16657 IOCP AAG83,,7 AW750 FP033660 | 16113 3 00007 0 16723 IORT BLK11,,7 AW760 FP033670 | 1 LISTING OF 12/01/64 PAGE 79 | DICT (9PAC31). BUILD DICTIONARY | * AX001 FP033690 | * CORRECT DICT. REC. INCREMENTS IN MODE TBLS. AX002 FP033700 | * WRITE OUTPUT DICTIONARY AX003 FP033710 | * AX004 FP033720 | 16114 0774 00 1 00003 AXT 3,1 INITIALIZE FOR MODE TBL AX010 FP033730 16115 -0500 00 1 16673 AX020 CAL AAG88,1 SEARCH AX020 FP033740 | 16116 0621 00 1 16567 STA AAG40,1 INIT. MODE LOC. CTR. AX030 FP033750 | 16117 -0500 60 1 16673 CAL* AAG88,1 AX040 FP033760 | 16120 0602 00 1 16563 SLW AAG36,1 MOVE 1ST CODE WORDS TO W.A.AX050 FP033770 | 16121 2 00001 1 16115 TIX AX020,1,1 AX060 FP033780 16122 0522 00 0 16564 XEC AAG37 AX110 FP033790 | 16123 -0500 00 4 00001 CAL 1,4 AX120 FP033800 | 16124 0560 00 4 00002 LDQ 2,4 AX130 FP033810 | 16125 -0763 00 0 00006 LGL 6 AX140 FP033820 | 16126 -0320 00 0 10744 ANA BCD17 AX150 FP033830 16127 -0340 00 0 16615 LAS AAG61 1 AX160 FP033840 | 16130 0020 00 0 16132 TRA *+2 AX170 FP033850 | 16131 0020 00 0 16134 TRA AX200 OK AX180 FP033860 | 16132 0074 00 4 10507 TSX T0010,4 FP033870 | 16133 -1 06306 3 00000 STR 0,3,3270 REC TYPE NOT FLD 0001 AX190 FP033880 16134 0774 00 1 00003 AX200 AXT 3,1 AX200 FP033890 | 16135 0074 00 4 16140 TSX AX250,4 AX210 FP033900 | 16136 2 00001 1 16135 TIX *-1,1,1 AX220 FP033910 | 16137 0020 00 0 16172 TRA AX500 AX230 FP033920 | 16140 0634 00 4 16165 AX250 SXA AX440,4 SAVE FOR EXIT AX250 FP033930 16141 -0500 00 1 16563 CAL AAG36,1 TEST CODE WORD-CODE AX260 FP033940 | 16142 0100 00 0 16167 AX270 TZE AX460 * END OF MODE TABLE AX270 FP033950 | 16143 -0734 00 2 00000 PDX 0,2 * AX280 FP033960 | 16144 -3 00000 2 16151 TXL AX320,2,0 * NO CHG AX290 FP033970 | 16145 0621 00 0 16502 STA AZ410 SET OBJ PROG PZE AX291 FP033980 16146 -3 00001 2 16154 TXL AX350,2,1 * DELETE AX300 FP033990 | 16147 -3 00002 2 16151 TXL AX320,2,2 * INSERT AX310 FP034000 | 16150 0020 00 0 16160 TRA AX390 AX311 FP034010 | 16151 -0760 00 0 00003 AX320 SSM AX320 FP034020 | 16152 0601 00 1 16563 STO AAG36,1 AX330 FP034030 16153 0020 00 0 16160 TRA AX390 AX340 FP034040 | 16154 0621 00 1 16567 AX350 STA AAG40,1 GET NEXT TABLE ENTRY AX350 FP034050 | 16155 -0500 60 1 16563 CAL* AAG36,1 AX360 FP034060 | 16156 0602 00 1 16563 SLW AAG36,1 AX370 FP034070 | 16157 0020 00 0 16142 TRA AX270 AX380 FP034080 16160 0522 00 1 16567 AX390 XEC AAG40,1 SET IR 4 TO TBL. LOC. AX390 FP034090 | 16161 -0500 00 4 00001 CAL 1,4 MOVE TBL ENTRY FLD. NO. AX400 FP034100 | 16162 0560 00 4 00002 LDQ 2,4 * TO TEST W.A. AX410 FP034110 | 16163 -0763 00 0 00006 LGL 6 * AX420 FP034120 | 16164 0602 00 1 16573 SLW AAG44,1 * AX430 FP034130 16165 0774 00 4 00000 AX440 AXT 0,4 EXIT AX440 FP034140 | 16166 0020 00 4 00001 TRA 1,4 * AX450 FP034150 | 16167 -0500 00 0 16656 AX460 CAL AAG82 SET FLD. NO. TEST W.A. AX460 FP034160 | 16170 0602 00 1 16573 SLW AAG44,1 * TO MINES AX470 FP034170 | 16171 0020 00 0 16165 TRA AX440 * AX480 FP034180 16172 -0500 00 0 16570 AX500 CAL AAG41 SELECT LOWEST FLD. NO. AX500 FP034190 | 16173 -0340 00 0 16572 LAS AAG43 FROM MODE TBLS AX510 FP034200 | 16174 0020 00 0 16204 TRA AX600 AX520 FP034210 | 16175 0020 00 0 16211 TRA AX650 AX530 FP034220 | 16176 0560 00 0 16571 LDQ AAG42 AX540 FP034230 1 LISTING OF 12/01/64 PAGE 80 | DICT (9PAC31). BUILD DICTIONARY | | 16177 0040 00 0 16202 TLQ AX580 AX550 FP034240 | 16200 0774 00 1 00003 AXT 3,1 INIT. IR.1 FOR UNPKD-BCD AX560 FP034250 16201 0020 00 0 16214 TRA AX680 AX570 FP034260 | 16202 0774 00 1 00002 AX580 AXT 2,1 INIT IR.1 FOR PKD-BCD AX580 FP034270 | 16203 0020 00 0 16214 TRA AX680 AX590 FP034280 | 16204 -0500 00 0 16572 AX600 CAL AAG43 AX600 FP034290 | 16205 0560 00 0 16571 LDQ AAG42 AX610 FP034300 16206 0040 00 0 16202 TLQ AX580 AX620 FP034310 | 16207 0774 00 1 00001 AXT 1,1 INIT IR.1 FDR UNPKD-BIN AX630 FP034320 | 16210 0020 00 0 16214 TRA AX680 AX640 FP034330 | 16211 0560 00 0 16571 AX650 LDQ AAG42 AX650 FP034340 | 16212 0040 00 0 16202 TLQ AX580 AX660 FP034350 16213 0020 00 0 16462 TRA AZ160 EOF MODE TABLES AX670 FP034360 | 16214 0522 00 1 16567 AX680 XEC AAG40,1 SET TBL. LOC. CTR TO ADDRESAX680 FP034370 | 16215 0500 00 1 16563 CLA AAG36,1 OF OUTPUT DICTIONARY REC AX690 FP034380 | 16216 -0120 00 0 16220 TMI AX720 * AX700 FP034390 | 16217 2 00013 4 16220 TIX *+1,4,11 AX710 FP034400 16220 -0500 00 4 00002 AX720 CAL 2,4 CONVERT FLD SIZE-BIN AX720 FP034410 | 16221 0560 00 4 00003 LDQ 3,4 * AX730 FP034420 | 16222 -0763 00 0 00006 LGL 6 * AX740 FP034430 | 16223 -0320 00 0 10734 ANA BCD07 * AX750 FP034440 | 16224 0602 00 0 07751 SLW B1020 * AX760 FP034450 16225 0634 00 1 16233 SXA AX830,1 * AX770 FP034460 | 16226 0634 00 4 16234 SXA AX830+1,4 * AX780 FP034470 | 16227 0074 00 4 07570 TSX B0010,4 * AX790 FP034480 | 16230 -0500 00 0 07747 CAL B1000 * AX810 FP034490 | 16231 0602 00 0 16546 SLW AAG18 * AX820 FP034500 16232 0602 00 0 16616 SLW AAG62 * AX822 FP034510 | 16233 0774 00 1 00000 AX830 AXT 0,1 RESTORE INDEX AX830 FP034520 | 16234 0774 00 4 00000 AXT 0,4 * AX840 FP034530 | 16235 -3 00001 1 16311 TXL AY250,1,1 SELECT MODE TBL AX850 FP034540 | 16236 -3 00002 1 16273 TXL AY090,1,2 * AX860 FP034550 16237 -0500 00 0 16575 CAL AAG46 UNPKD BCD MODE AX870 FP034560 | 16240 0602 00 0 16652 SLW AAG78 * AX880 FP034570 | 16241 -0500 00 0 16546 CAL AAG18 TEST FLD SIZE TO 36 AX890 FP034580 | 16242 -0340 00 0 16556 LAS AAG27 * AX900 FP034590 | 16243 0020 00 0 16246 TRA AX940 * HI AX910 FP034600 16244 0020 00 0 16263 TRA AY010 * EQ AX920 FP034610 | 16245 0020 00 0 16270 TRA AY060 * LO AX930 FP034620 | 16246 -0765 00 0 00044 AX940 LGR 36 CALC NEW REC. INCR AX940 FP034630 | 16247 0220 00 0 16556 DVH AAG27 * AX950 FP034640 | 16250 0100 00 0 16260 TZE AX990 AX951 FP034650 16251 0402 00 0 16556 SUB AAG27 * AX960 FP034660 | 16252 0602 00 0 16546 SLW AAG18 * AX961 FP034670 | 16253 -0130 00 0 00000 XCL * AX962 FP034680 | 16254 0400 00 0 16615 ADD AAG61 * AX963 FP034690 | 16255 0400 00 0 16652 AX964 ADD AAG78 * AX964 FP034700 16256 0601 00 0 16575 STO AAG46 * AX970 FP034710 | 16257 0020 00 0 16316 TRA AY300 * TO CHANGE DICT REC. AX980 FP034720 | 16260 0600 00 0 16546 AX990 STZ AAG18 * AX990 FP034730 | 16261 -0130 00 0 00000 XCL * AX991 FP034740 | 16262 0020 00 0 16255 TRA AX964 * AX992 FP034750 16263 0600 00 0 16546 AY010 STZ AAG18 * AY010 FP034760 | 16264 -0500 00 0 16575 CAL AAG46 * AY020 FP034770 | 16265 0400 00 0 16615 ADD AAG61 * AY030 FP034780 | 1 LISTING OF 12/01/64 PAGE 81 | DICT (9PAC31). BUILD DICTIONARY | 16266 0602 00 0 16575 SLW AAG46 * AY040 FP034790 | 16267 0020 00 0 16316 TRA AY300 * TO CHANGE DICT REC AY050 FP034800 | 16270 0402 00 0 16556 AY060 SUB AAG27 * AY060 FP034810 | 16271 0602 00 0 16546 SLW AAG18 * AY070 FP034820 16272 0020 00 0 16264 TRA AY010+1 * AY080 FP034830 | 16273 0560 00 0 16546 AY090 LDQ AAG18 PKD-BCD MODE AY090 FP034840 | 16274 -0500 00 0 16576 CAL AAG47 CALC. REC. INCR. AY100 FP034850 | 16275 0602 00 0 16652 SLW AAG78 * AY110 FP034860 | 16276 -0500 00 0 16675 CAL AAG90 * AY120 FP034870 16277 0602 00 0 16546 SLW AAG18 * AY130 FP034880 | 16300 -0130 00 0 00000 XCL * AY140 FP034890 | 16301 0400 00 0 16675 ADD AAG90 * AY150 FP034900 | 16302 0765 00 0 00043 LRS 35 * AY160 FP034910 | 16303 0220 00 0 16556 DVH AAG27 * AY170 FP034920 16304 0602 00 0 16675 SLW AAG90 * AY180 FP034930 | 16305 0131 00 0 00000 XCA * AY190 FP034940 | 16306 0400 00 0 16576 ADD AAG47 * AY200 FP034950 | 16307 0602 00 0 16576 SLW AAG47 * AY210 FP034960 | 16310 0020 00 0 16316 TRA AY300 * TO CHG DICT. REC. AY220 FP034970 16311 0600 00 0 16546 AY250 STZ AAG18 UNPKD-BIN-MODE AY250 FP034980 | 16312 -0500 00 0 16577 CAL AAG48 CALC REC. INCREMENT AY260 FP034990 | 16313 0602 00 0 16652 SLW AAG78 * AY270 FP035000 | 16314 0400 00 0 16615 ADD AAG61 * AY280 FP035010 | 16315 0602 00 0 16577 SLW AAG48 * AY290 FP035020 16316 -0500 00 4 00010 AY300 CAL 8,4 TEST FOR DEQ LEVEL AY300 FP035030 | 16317 0560 00 4 00011 LDQ 9,4 * AY360 FP035040 | 16320 -0763 00 0 00006 LGL 6 * AY370 FP035050 | 16321 -0320 00 0 10730 ANA BCD03 * AY380 FP035060 | 16322 -0340 00 0 16646 LAS AAG74 * AY390 FP035070 16323 0020 00 0 16336 TRA AY498 AY400 FP035080 | 16324 0020 00 0 16353 TRA AY560 NOT SEQ. LEVEL AY410 FP035090 | 16325 -0500 00 1 16573 CAL AAG44,1 LOAD REC. TYPE + FLD. NO. AY420 FP035100 | 16326 0774 00 2 01441 AXT SEQID,2 SEARCH SEQID TABLE AY430 FP035110 | 16327 -0340 00 2 71400 LAS AAG24+SEQID,2 AY440 FP035120 16330 0020 00 0 16334 TRA *+4 AY450 FP035130 | 16331 0020 00 0 16340 TRA AY500 IS IN TBL. AY460 FP035140 | 16332 0074 00 4 10507 TSX T0010,4 FP035150 | 16333 -1 06320 3 00000 STR 0,3,3280 SEQ LEVEL NOT IN SEQ LEVEL TABLE AY470 FP035160 | 16334 2 00005 2 16327 TIX *-5,2,5 AY480 FP035170 16335 0020 00 0 16332 TRA *-3 AY490 FP035180 | 16336 0074 00 4 10507 AY498 TSX T0010,4 AY498 FP035190 | 16337 -1 00212 2 16353 STR AY560,2,138 SEQ LVL NOT NUM-BLANK FP035200 | 16340 -0500 00 1 16573 AY500 CAL AAG44,1 TEST FOR FLD NO 1 AY500 FP035210 | 16341 -0320 00 0 10744 ANA BCD17 * AY501 FP035220 16342 0402 00 0 16615 SUB AAG61 * AY502 FP035230 | 16343 -0100 00 0 16345 TNZ *+2 * NO AY503 FP035240 | 16344 0600 00 0 16546 STZ AAG18 * YES BIT INCR TO ZERO AY504 FP035250 | 16345 -0500 00 0 16546 CAL AAG18 MOVE BIT INCR TO TBL AY505 FP035260 | 16346 0602 00 2 71403 SLW AAG24+SEQID+3,2 AY510 FP035270 16347 -0500 00 0 16652 CAL AAG78 * WORD INCR AY520 FP035280 | 16350 0602 00 2 71402 SLW AAG24+SEQID+2,2 AY530 FP035290 | 16351 -0500 00 0 16616 CAL AAG62 * FLD. SIZE AY540 FP035300 | 16352 0602 00 2 71404 SLW AAG24+SEQID+4,2 AY550 FP035310 | 16353 0754 00 4 00000 AY560 PXA 0,4 INIT TBL. ENTRY LOCS. AY560 FP035320 16354 0760 00 0 00006 COM * AY570 FP035330 | 1 LISTING OF 12/01/64 PAGE 82 | DICT (9PAC31). BUILD DICTIONARY | | 16355 0400 00 0 16615 ADD AAG61 FP035340 16356 0734 00 4 00000 PAX 0,4 * AY580 FP035350 | 16357 1 00001 4 16360 TXI *+1,4,1 * AY590 FP035360 | 16360 0634 00 4 16414 SXA AY834,4 LOCATION OF FIRST WORD AY600 FP035370 | 16361 1 00002 4 16362 TXI *+1,4,2 AY610 FP035380 | 16362 0634 00 4 16403 SXA AY820,4 * LOC. OF 3RD WORD AY620 FP035390 16363 1 00001 4 16364 TXI *+1,4,1 * AY630 FP035400 | 16364 0634 00 4 16412 SXA AY830,4 * LOC. OF 4TH WORD AY640 FP035410 | 16365 1 00007 4 16366 TXI *+1,4,7 AY650 FP035420 | 16366 0634 00 4 16416 SXA AY840,4 SAVE TBL. LOC. CTR. AY690 FP035430 | 16367 0634 00 1 16441 SXA AZ010+1,1 SAVE IR 1 AY700 FP035440 16370 -0500 00 0 16546 CAL AAG18 CONVERT REC. INCR. TO BCD AY710 FP035450 | 16371 0602 00 0 10127 SLW B6000 * AY720 FP035460 | 16372 0074 00 4 10070 TSX B5010,4 * AY730 FP035470 | 16373 -0500 00 0 10131 CAL B6020 * AY740 FP035480 | 16374 0602 00 0 16546 SLW AAG18 * AY750 FP035490 16375 -0500 00 0 16652 CAL AAG78 * AY760 FP035500 | 16376 0602 00 0 10127 SLW B6000 * AY770 FP035510 | 16377 0074 00 4 10070 TSX B5010,4 * AY780 FP035520 | 16400 -0500 00 0 10131 CAL B6020 * AY790 FP035530 | 16401 -0765 00 0 00022 LGR 18 * AY800 FP035540 16402 0074 00 4 14062 TSX AJ700,4 MOVE REC INCR TO REC AY810 FP035550 | 16403 0 10726 0 00000 AY820 PZE 0,,BCD01 * AY820 FP035560 | 16404 -0500 00 0 16546 CAL AAG18 * AY823 FP035570 | 16405 -0765 00 0 00014 LGR 12 * AY825 FP035580 | 16406 -0500 00 0 10131 CAL B6020 * AY826 FP035590 16407 -0763 00 0 00022 LGL 18 * AY827 FP035600 | 16410 -0320 00 0 11023 ANA BCD76 * AY828 FP035610 | 16411 0074 00 4 14062 TSX AJ700,4 * AY829 FP035620 | 16412 0 11023 0 00000 AY830 PZE 0,,BCD76 * AY830 FP035630 | 16413 0074 00 4 15564 TSX AT010,4 WRITE F RECORD AY833 FP035640 16414 -0 00013 0 00000 AY834 IOCP 0,,11 AY834 FP035650 | 16415 3 00003 0 16723 IORT BLK11,,3 AY835 FP035660 | 16416 -0774 00 4 00000 AY840 AXC 0,4 RESTORE IRA AY840 FP035670 | 16417 -0500 00 4 00001 AY850 CAL 1,4 TEST FOR G REC AY850 FP035680 | 16420 -0320 00 0 10765 ANA BCD40 * AY860 FP035690 16421 -0340 00 0 16651 LAS AAG77 * AY870 FP035700 | 16422 0020 00 0 16440 TRA AZ010 * NO AY880 FP035710 | 16423 0020 00 0 16425 TRA AY910 * YES AY890 FP035720 | 16424 0020 00 0 16440 TRA AZ010 * NO AY900 FP035730 | 16425 0774 00 2 00003 AY910 AXT 3,2 MOVE G REC. TO WORK AREA AY910 FP035740 16426 -0500 00 4 00001 CAL 1,4 * AY920 FP035750 | 16427 0602 00 2 16633 SLW AAG72+3,2 AY930 FP035760 | 16430 2 00001 4 16431 TIX *+1,4,1 * AY940 FP035770 | 16431 2 00001 2 16426 TIX *-3,2,1 * AY950 FP035780 | 16432 0634 00 4 16436 SXA AY984,4 * 4 AY970 FP035790 16433 0074 00 4 15564 TSX AT010,4 WRITE G REC AY980 FP035800 | 16434 -0 00003 0 16630 IOCP AAG72,,3 AY981 FP035810 | 16435 3 00013 0 16723 IORT BLK11,,11 AY982 FP035820 | 16436 0774 00 4 00000 AY984 AXT 0,4 * AY984 FP035830 | 16437 0020 00 0 16417 TRA AY850 TO TEST FOR MORE GS AY985 FP035840 16440 2 00001 4 16441 AZ010 TIX *+1,4,1 ADD 1 TO LOC CTR AZ010 FP035850 | 16441 0774 00 1 00000 AXT 0,1 AZ015 FP035860 | 16442 0754 00 4 00000 PXA 0,4 FOR ADDRESS OF NEXT AZ020 FP035870 | 16443 0760 00 0 00006 COM CODE WORD AZ030 FP035880 | 1 LISTING OF 12/01/64 PAGE 83 DICT (9PAC31). BUILD DICTIONARY | | 16444 0400 00 0 16615 ADD AAG61 FP035890 | 16445 0621 00 0 16546 STA AAG18 AZ040 FP035900 | 16446 -0500 00 1 16563 CAL AAG36,1 TEST LOC CTR VS AZ050 FP035910 16447 -0320 00 0 10734 ANA BCD07 PREV CODE WORD ADDRESS AZ060 FP035920 | 16450 -0340 00 0 16546 LAS AAG18 * AZ070 FP035930 | 16451 0020 00 0 16453 TRA *+2 AZ080 FP035940 | 16452 0020 00 0 16455 TRA *+3 AZ090 FP035950 | 16453 0074 00 4 10507 TSX T0010,4 FP035960 16454 -1 10162 4 00000 STR 0,4,4210 TABLE ADDRESS IMPOSSIBLE AZ100 FP035970 | 16455 0621 00 1 16567 STA AAG40,1 UPDATE LOC. CTR. AZ111 FP035980 | 16456 -0500 00 4 00000 CAL 0,4 MOVE NEXT CODE WORD TO AZ120 FP035990 | 16457 0602 00 1 16563 SLW AAG36,1 W.A. AZ130 FP036000 | 16460 0074 00 4 16140 TSX AX250,4 AZ140 FP036010 16461 0020 00 0 16172 TRA AX500 AZ150 FP036020 | 16462 0500 00 0 16676 AZ160 CLA AAG91 TEST INSERT SW AZ160 FP036030 | 16463 0120 00 0 16501 TPL AZ400 * OFF AZ170 FP036040 | 16464 0600 00 0 16676 STZ AAG91 SET INSERT SW TO OFF AZ180 FP036050 | 16465 0774 00 1 00003 AZ190 AXT 3,1 RESET FOR NEW REC TYPE AZ190 FP036060 16466 -0500 00 1 16673 CAL AAG88,1 * AZ200 FP036070 | 16467 0621 00 1 16567 STA AAG40,1 AZ210 FP036080 | 16470 0602 00 1 16563 SLW AAG36,1 * CODE WORD AZ220 FP036090 | 16471 0600 00 1 16573 STZ AAG44,1 * CURRENT AZ230 FP036100 | 16472 0600 00 1 16600 STZ AAG49,1 * MODE SIZE CTR. AZ240 FP036110 16473 2 00001 1 16466 TIX *-5,1,1 * AZ250 FP036120 | 16474 0600 00 0 16675 STZ AAG90 * BIT INCR. CTR. AZ260 FP036130 | 16475 0600 00 0 16626 STZ AAG70 * LAST DELETED FLD. AZ270 FP036140 | 16476 0600 00 0 16552 STZ AAG22 * PREV SF FLD. NO. AZ280 FP036150 | 16477 0600 00 0 16502 STZ AZ410 * PZE-OBJ PROG. AZ290 FP036160 16500 0020 00 0 13416 TRA AH420 * TO REF. B AZ300 FP036170 | 16501 0074 00 4 16736 AZ400 TSX BN010,4 GEN. OBJ PROG. AZ400 FP036180 | 16502 0 00000 0 00000 AZ410 PZE * AZ410 FP036190 | 16503 0020 00 0 16465 TRA AZ190 * AZ420 FP036200 | 16504 -0760 00 0 00003 AZ500 SSM SET SW 1 TO ON AZ500 FP036210 16505 0601 00 0 16533 STO AAG16 * AZ510 FP036220 | 16506 -0500 00 0 16525 CAL AAG10 PREV SF REC TYPE VS CHG AZ520 FP036230 | 16507 0560 00 0 16547 LDQ AAG19 * AZ530 FP036240 | 16510 0040 00 0 13411 TLQ AH370 * LO AZ540 FP036250 | 16511 -0760 00 0 00003 SSM SET SW 2 TO ON AZ550 FP036260 16512 0601 00 0 16645 STO AAG73 * AZ560 FP036270 | 16513 0020 00 0 14555 TRA AN500 TO REF J AZ570 FP036280 | * FP036290 | * STORAGE AREA-DICTIONARY CHANGES FP036300 | * FP036310 16514 +000000000000 AAG01 DEC 0 PREV MAJOR PRIORITY AAG01 FP036320 | 16515 312363314645 AAG02 BCI 1,ICTION CONSTANT-ICTION AAG02 FP036330 | 16516 +000000000000 AAG03 DEC 0 CHANGE SWITCH AAG03 FP036340 | 16517 +000000000000 AAG04 DEC 0 APP. SWITCH AAG04 FP036350 | 16520 +000000000000 AAG05 DEC 0 PREV FLD. NO.-CHGS AAG05 FP036360 16521 000024312363 AAG06 BCI 1,00DICT CONSTANT - DICT AAG06 FP036370 | 16522 000062644444 AAG07 BCI 1,00SUMM CONSTANT - SUMM AAG07 FP036380 | 16523 000051254763 AAG08 BCI 1,00REPT CONSTANT - REPT AAG08 FP036390 | 16524 +377777777777 AAG09 OCT 377777777777 AAG09 FP036400 | 16525 +000000000000 AAG10 DEC 0 DICT. CHG. REC. TYPE AAG10 FP036410 16526 000000000026 AAG11 BCI 1,00000F AAG11 FP036420 | 16527 000000000027 AAG12 BCI 1,00000G AAG12 FP036430 | 1 LISTING OF 12/01/64 PAGE 84 | DICT (9PAC31). BUILD DICTIONARY | 16530 +000000000000 AAG13 DEC 0 CHG FLD. NO. BUFFER AAG13 FP036440 | 16531 000000000025 AAG14 BCI 1,00000E AAG14 FP036450 | 16532 000000000047 AAG15 BCI 1,00000P AAG15 FP036460 | 16533 +000000000000 AAG16 DEC 0 SWITCH 1 AAG16 FP036470 | 16534 +000000000000 AAG17 OCT 0,0,0,0,0,0,0,0,0,0 DELETED REC. TYPE TBL AAG17 FP036480 16535 +000000000000 | 16536 +000000000000 | 16537 +000000000000 | 16540 +000000000000 | 16541 +000000000000 16542 +000000000000 | 16543 +000000000000 | 16544 +000000000000 | 16545 +000000000000 | 16546 +000000000000 AAG18 DEC 0 MISC. W.A. NO.1 AAG18 FP036490 16547 +000000000000 AAG19 DEC 0 PREV. S.F. REC. TYPE AAG19 FP036500 | 16550 000000000044 AAG20 BCI 1,00000M AAG20 FP036510 | 16551 000000000024 AAG21 BCI 1,00000D AAG21 FP036520 | 16552 +000000000000 AAG22 DEC 0 PREV. SF FLD. NO. AAG22 FP036530 | 16553 000000001111 AAG23 BCI 1,000099 AAG23 FP036540 16554 +000000000000 AAG25 DEC 0 SEQ I.D. SWITCH AAG25 FP036550 | 16555 +000000000000 AAG26 DEC 0 SEQ I.D. LEN. IN WORDS AAG26 FP036560 | 16556 +000000000044 AAG27 DEC 36 AAG27 FP036570 | 16557 +000000000000 AAG28 DEC 0 SF FLD NO BUFFER AAG28 FP036580 | 16560 0 00000 0 30221 AAG33 PZE AAG29 CODEA - UNPKD BCD 3 AAG33 FP036590 16561 0 00000 0 37075 AAG34 PZE AAG30 CODEB - PKD BCD 2 AAG34 FP036600 | 16562 0 00000 0 45751 AAG35 PZE AAG31 CODEC - UNPKD BIN 1 AAG35 FP036610 | 16563 0 00000 0 57561 AAG36 PZE AAG32 CODED - PKD BIN 0 AAG36 FP036620 | 16564 -0774 00 4 30221 AAG37 AXC AAG29,4 UNPKD BCD TBL LOC. CTR. AAG37 FP036630 | 16565 -0774 00 4 37075 AAG38 AXC AAG30,4 PKD BCD TBL LOC. CTR. AAG38 FP036640 16566 -0774 00 4 45751 AAG39 AXC AAG31,4 UNPKD. BIN TBL. LOC. CTR. AAG39 FP036650 | 16567 -0774 00 4 57561 AAG40 AXC AAG32,4 PKD BIN TBL. LOC. CTR. AAG40 FP036660 | 16570 +000000000000 AAG41 DEC 0 CURR LOC CODE A AAG41 FP036670 | 16571 +000000000000 AAG42 DEC 0 CURR LOC CODE B AAG42 FP036680 | 16572 +000000000000 AAG43 DEC 0 CURR LOC CODE C AAG43 FP036690 16573 +000000000000 AAG44 DEC 0 CURR LOC CODE D AAG44 FP036700 | 16574 +000000000012 AAG45 DEC 10 AAG45 FP036710 | 16575 +000000000000 AAG46 DEC 0 FLD. MODE CTR - UNPKD BCD AAG46 FP036720 | 16576 +000000000000 AAG47 DEC 0 * PKD BCD AAG47 FP036730 | 16577 +000000000000 AAG48 DEC 0 * UNPKD BIN AAG48 FP036740 16600 +000000000000 AAG49 DEC 0 * PKD BIN AAG49 FP036750 | 16601 +000000000000 AAG50 DEC 0 FLD. = LAST TBL ENTRY AAG50 FP036760 | 16602 0774 00 2 00000 AAG51 AXT 0,2 TBL. = LAST TBL ENTRY AAG51 FP036770 | 16603 0 00000 0 37075 AAG52 PZE AAG29+3500 LOC OF LAST WORD OF TABLE AAG52 FP036780 | 16604 0 00000 0 45751 AAG53 PZE AAG30+3500 * AAG53 FP036790 16605 0 00000 0 60071 AAG54 PZE AAG31+5200 * AAG54 FP036800 | 16606 0 00000 0 57562 AAG55 PZE AAG32+1 * AAG55 FP036810 | 16607 +000000000014 AAG56 DEC 12 FIELD SIZE AAG56 FP036820 | 16610 000000000043 AAG57 BCI 1,00000L AAG57 FP036830 | 16611 000000000051 AAG58 BCI 1,00000R AAG58 FP036840 16612 000000010100 AAG59 BCI 1,000110 BCD PKD LOG AAG59 FP036850 | 16613 000000010000 AAG60 BCI 2,000100 BCD UNPKD LOG AAG60 FP036860 | 16614 606060606060 | 16615 +000000000001 AAG61 DEC 001 BIN UNPKD ARITH AAG61 FP036870 | 16616 +000000000000 AAG62 DEC 0 SF. FLD. SIZE IN BINARY AAG62 FP036880 1 LISTING OF 12/01/64 PAGE 85 | DICT (9PAC31). BUILD DICTIONARY | | 16617 +000000000000 AAG63 DEC 0 TYPE OF MODE CHG AAG63 FP036890 | 16620 +000000000074 AAG64 DEC 60 AAG64 FP036900 16621 +000000000006 AAG65 DEC 6 AAG65 FP036910 | 16622 0 00000 0 11056 AAG66 PZE EQUIV-1 INCR. ZERO OF TBL. AAG66 FP036920 | 16623 +000000000000 AAG67 DEC 0 F. REC. ACTION CODE W.A. AAG67 FP036930 | 16624 606060606060 AAG68 BCI 1, BLANKS AAG68 FP036940 | 16625 +000000000000 AAG69 DEC 0 CHG. FLD. SIZE IN BINARY AAG69 FP036950 16626 +000000000000 AAG70 DEC 0 LAST DELETED FLD. NO. AAG70 FP036960 | 16627 000000000031 AAG71 BCI 1,00000I AAG71 FP036970 | 16630 AAG72 BSS 13 W.A. FOR INSERT RECORDS AAG72 FP036980 | 16645 +000000000000 AAG73 DEC 0 SWITCH 2 AAG73 FP036990 | 16646 000000006060 AAG74 BCI 1,0000 AAG74 FP037000 16647 +000000000000 AAG75 DEC 0 ZERO AAG75 FP037010 | 16650 0 00002 0 00000 AAG76 PZE 0,0,2 AAG76 FP037020 | 16651 270000000000 AAG77 BCI 1,G00000 AAG77 FP037030 | 16652 +000000000000 AAG78 DEC 0 MISC W.A. AAG78 FP037040 | 16653 +000000000004 AAG79 DEC 4 AAG79 FP037050 16654 +000000000000 AAG80 DEC 0 PREV. CHG. TO BUFFER AAG80 FP037060 | 16655 -0 00000 0 00000 AAG81 MZE 0 AAG81 FP037070 | 16656 2 00000 0 00000 AAG82 PTW 0 AAG82 FP037080 | 16657 AAG83 BSS 9 E REC. WORK AREA AAG83 FP037090 | 16670 0 00000 0 30221 AAG85 PZE AAG29 RESET MODE CONSTANT AAG85 FP037100 16671 0 00000 0 37075 AAG86 PZE AAG30 RESET MODE CONSTANT AAG86 FP037110 | 16672 0 00000 0 45751 AAG87 PZE AAG31 RESET MODE CONSTANT AAG87 FP037120 | 16673 0 00000 0 57561 AAG88 PZE AAG32 RESET MODE CONSTANT AAG88 FP037130 | 16674 +000000000000 AAG89 DEC 0 LARGEST SEQ I.D. BUFFER AAG89 FP037140 | 16675 +000000000000 AAG90 DEC 0 BIT INCR. CTR - PKD BCD AAG90 FP037150 16676 +000000000000 AAG91 DEC 0 INSERT REC TYPE SW. AAG91 FP037160 | 16677 000000000001 AAG92 BCI 1,000001 AAG92 FP037170 | 16700 020000000000 AAG93 BCI 1,200000 AAG93 FP037180 | 16701 0 00000 0 00000 AAG94 PZE 0 WORK AREA AAG94 FP037190 | 16702 0 00000 0 00000 AAG95 PZE 0 AAG95 FP037200 16703 0 00000 0 00000 AAG96 PZE 0 AAG96 FP037210 | 16704 0 00000 0 00000 AAG97 PZE 0 AAG97 FP037220 | 16705 WORK BSS 14 FP037230 | 16723 606060606060 BLK11 BCI 6, BLK110FP037240 | 16724 606060606060 16725 606060606060 | 16726 606060606060 | 16727 606060606060 | 16730 606060606060 | 16731 606060606060 BCI 5, BLK111FP037250 16732 606060606060 | 16733 606060606060 | 16734 606060606060 | 16735 606060606060 | 1 LISTING OF 12/01/64 PAGE 86 DICT (9PAC31). BUILD DICTIONARY | | * FP037270 | 1 LISTING OF 12/01/64 PAGE 87 | DICT (9PAC31). MOVE INPUT TO OUTPUT | * FP037290 | * GENERATOR FOR MOVE INPUT TO OUTPUT BN000 FP037300 | 16736 0634 00 4 16761 BN010 SXA BN060,4 SAVE IR =4 FOR RETURN BN010 FP037310 | 16737 0020 00 0 16772 TRA BN070 * BN012 FP037320 16740 -0500 00 0 17345 BN014 CAL BNA10+1 FINISH MOVING THE RECORD BN014 FP037330 | 16741 0402 00 0 17543 BN020 SUB BNC80 *RECORD LEN-LAST CHANGE INCBN020 FP037340 | 16742 0100 00 0 16763 TZE BN063 *NO FURTHER LOOP NECESSARY BN024 FP037350 | 16743 -0120 00 0 16763 TMI BN063 * BN026 FP037360 | 16744 0522 00 0 11422 XEC F0080-1 * BN030 FP037370 16745 -0602 60 0 17556 ORS* BND00 * BN031 FP037380 | 16746 0500 00 0 16775 BN032 CLA BN080 MODIFY TO NEXT ENTRY BN032 FP037390 | 16747 0400 00 0 17513 ADD BNA30 * ADD TWO BN034 FP037400 | 16750 0621 00 0 16775 STA BN080 * BN040 FP037410 | 16751 0400 00 0 17514 ADD BNA40 * ADD ONE BN042 FP037420 16752 0621 00 0 17010 STA BN155 * BN044 FP037430 | 16753 0621 00 0 17556 STA BND00 *NEXT TBL ADDRESS TO BND00 BN046 FP037440 | 16754 0625 00 0 17556 STT BND00 BN047 FP037450 | 16755 0600 60 0 17556 STZ* BND00 * CLEAR TABLE BN048 FP037460 | 16756 0500 00 0 17514 CLA BNA40 ADD ONE TO = OF RECORD TYPEBN050 FP037470 16757 0400 00 0 17515 ADD BNA50 * BN052 FP037480 | 16760 0601 00 0 17515 STO BNA50 * BN054 FP037490 | 16761 0774 00 4 00000 BN060 AXT 0,4 RESTORE IR =4 BN060 FP037500 | 16762 0020 00 4 00002 TRA 2,4 BACK TO WHAR I CUM FRUM BN062 FP037510 | 16763 -0500 00 0 17570 BN063 CAL BND19 RESTORE ALL STORAGE ADDRESSBN063 FP037520 16764 0621 00 0 11451 STA H0080 * BN064 FP037530 | 16765 -0500 00 0 17567 CAL BND18 * BN065 FP037540 | 16766 0621 00 0 11436 STA G0080 * BN066 FP037550 | 16767 -0500 00 0 17566 CAL BND17 * BN067 FP037560 | 16770 0621 00 0 11423 STA F0080 * BN068 FP037570 16771 0020 00 0 16746 TRA BN032 TO OUT BN069 FP037580 | 16772 0760 00 0 00140 BN070 SLF TURN INDICATOR LIGHTS OFF BN070 FP037590 | 16773 0600 00 0 17601 STZ BND28 * BN077 FP037600 | 16774 -0500 00 0 17344 CAL BNA10 PLACE REC. TYPE IN LOOP CNTBN078 FP037610 | 16775 0601 00 0 17347 BN080 STO BNA20 * BN080 FP037620 16776 -0520 00 0 17516 NZT BNA60 IS MOVE LOOP IN MEMORY BN090 FP037630 | 16777 0020 00 0 17017 TRA BN200 * NO, PLACE IT IN OBJECT PRBN100 FP037640 | 17000 0500 00 4 00001 BN110 CLA 1,4 IS THIS A RECORD DELETION BN110 FP037650 | 17001 -0120 00 0 23077 TMI BL062 YES,DELETE RT BN113 FP037660 | 17002 0520 00 4 00001 ZET 1,4 IS TABLE USED BN115 FP037670 17003 0020 00 0 17005 TRA BN140 * YES BN120 FP037680 | 17004 0020 00 0 16740 TRA BN014 * NO, RESTORE IR,S + OUT BN130 FP037690 | 17005 0500 00 0 11423 BN140 CLA F0080 SAVE ADDRESS OF CHANGE INSTBN140 FP037700 | 17006 0402 00 0 17602 SUB BND29 * FOR LOOP CONTRL TABLE BN145 FP037710 | 17007 0734 00 1 00000 BN150 PAX 0,1 * BN150 FP037720 17010 -0634 00 1 17350 BN155 SXD BNA20+1,1 * BN155 FP037730 | 17011 0020 00 0 17012 TRA BN180 * BN158 FP037740 | 17012 0535 00 2 17534 BN180 LAC BNC10,2 SET UP TO USE TABLE BN180 FP037750 | 17013 -0500 00 2 00000 CAL 0,2 LOAD NEXT CODE WORD BN195 FP037760 | 17014 -0320 00 0 17535 ANA BNC20 * ISOLATE CHANGE CODE BN196 FP037770 17015 -0737 00 1 00000 PDC 0,1 SET CHANGE CODE IN IR =1 BN198 FP037780 | 17016 0020 00 1 17664 TRA BP000,1 TRA TO DO PROPER CHANGE BN199 FP037790 | 17017 -0500 00 0 17021 BN200 CAL *+2 MOVE LOOP TO OBJECT PRGM BN200 FP037800 | 17020 0074 00 4 11413 TSX PRGMR,4 * BUILD AXT 0,2 BN210 FP037810 | 17021 0774 00 2 00000 AXT 0,2 BN220 FP037820 17022 -0500 00 0 11423 CAL F0080 * SAVE LOCATION FOR TABLE ABN230 FP037830 | 1 LISTING OF 12/01/64 PAGE 88 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 17023 0621 00 0 17536 STA BNC30 * * BN240 FP037840 17024 -0500 00 0 17026 CAL *+2 *SET UP S X A 0,2 INSTR BN250 FP037850 | 17025 0074 00 4 11413 TSX PRGMR,4 * * BN260 FP037860 | 17026 0634 00 2 00000 SXA 0,2 * * BN270 FP037870 | 17027 0500 00 0 17520 CLA BNA70+1 * SET REL ADDR TO PLUS 8 BN280 FP037880 | 17030 0074 00 4 11465 TSX PADDR,4 * * BN290 FP037890 17031 0500 00 0 17033 CLA *+2 * * BN300 FP037900 | 17032 0074 00 4 11413 TSX PRGMR,4 * SET UP TXI INSTR BN310 FP037910 | 17033 1 00001 2 00000 TXI 0,2,1 * * BN320 FP037920 | 17034 0500 00 0 17514 CLA BNA40 * SET REL TO +1 BN330 FP037930 | 17035 0074 00 4 11465 TSX PADDR,4 BN340 FP037940 17036 -0500 00 0 17040 CAL *+2 * SET UP SXA INSTR. BN400 FP037950 | 17037 0074 00 4 11413 TSX PRGMR,4 * * BN410 FP037960 | 17040 0634 00 2 00000 SXA 0,2 * * BN420 FP037970 | 17041 0500 00 0 17521 CLA BNA70+2 * SET REL ADDRESS TO PLUS 1BN430 FP037980 | 17042 0074 00 4 11465 TSX PADDR,4 * * BN440 FP037990 17043 -0500 00 0 17045 CAL *+2 * BN470 FP038000 | 17044 0074 00 4 11413 TSX PRGMR,4 * SET UP LXA INSTR BN480 FP038010 | 17045 0534 00 4 00000 LXA 0,4 BN490 FP038020 | 17046 -0500 00 0 11423 CAL F0080 SAVE ADDRESS FOR = OF RECORBN500 FP038030 | 17047 0602 00 0 17607 SLW BND34 * * BN505 FP038040 17050 -0754 00 0 00000 PXD 0,0 * PLACE ZERO WORD IN STORAGBN510 FP038050 | 17051 0074 00 4 11426 TSX STORR,4 * * BN520 FP038060 | 17052 0074 00 4 11454 TSX SADDR,4 * LINK INSTR TO STOR BN560 FP038070 | 17053 0621 00 0 17537 STA BNC40 *SAVE FOR LOC. OF LOOP EXITBN565 FP038080 | 17054 -0500 00 0 17056 CAL *+2 * * BN590 FP038090 17055 0074 00 4 11413 TSX PRGMR,4 * * BN600 FP038100 | 17056 0535 00 1 17310 LAC INLOC,1 BN610 FP038110 | 17057 -0500 00 0 17061 CAL *+2 * SET UP CAL 0,1 BN620 FP038120 | 17060 0074 00 4 11413 TSX PRGMR,4 * * BN630 FP038130 | 17061 -0500 00 1 00000 CAL 0,1 * * BN640 FP038140 17062 -0500 00 0 17524 CAL BNB10 * SET UP REC TYPE MASK BN650 FP038150 | 17063 0074 00 4 11426 TSX STORR,4 * * BN660 FP038160 | 17064 -0500 00 0 17066 CAL *+2 * SET UP ANA MASK BN670 FP038170 | 17065 0074 00 4 11413 TSX PRGMR,4 * * BN680 FP038180 | 17066 -0320 00 0 00000 ANA 0 * * BN690 FP038190 17067 0074 00 4 11454 TSX SADDR,4 * LINK INSTR + STOR BN700 FP038200 | 17070 -0500 00 0 17072 CAL *+2 * SET UP LAS 0 BN710 FP038210 | 17071 0074 00 4 11413 TSX PRGMR,4 * * BN720 FP038220 | 17072 -0340 00 0 00000 LAS 0 * * BN730 FP038230 | 17073 -0500 00 0 17075 CAL *+2 * SET UP TRA TO MODIFY BN740 FP038240 17074 0074 00 4 11413 TSX PRGMR,4 * * BN750 FP038250 | 17075 0020 00 0 00000 TRA 0 * * BN760 FP038260 | 17076 0500 00 0 17525 CLA BNB20 * SET REL TO 5 BN770 FP038270 | 17077 0074 00 4 11465 TSX PADDR,4 * * BN780 FP038280 | 17100 -0500 00 0 17102 CAL *+2 * SET UP TRA +2 BN790 FP038290 17101 0074 00 4 11413 TSX PRGMR,4 * * BN800 FP038300 | 17102 0020 00 0 00000 TRA 0 * * BN810 FP038310 | 17103 0500 00 0 17513 CLA BNA30 * SET REL TO 2 BN820 FP038320 | 17104 0074 00 4 11465 TSX PADDR,4 * * BN830 FP038330 | 17105 -0500 00 0 17107 CAL *+2 * SET UP ERROR HALT BN840 FP038340 17106 0074 00 4 11413 TSX PRGMR,4 * * BN850 FP038350 | 17107 0074 00 4 22436 TSX IMPOS,4 BN860 FP038360 | 17110 -0500 00 0 17112 CAL *+2 * SET UP CAL WDCNT BN870 FP038370 | 17111 0074 00 4 11413 TSX PRGMR,4 * * BN880 FP038380 | 1 LISTING OF 12/01/64 PAGE 89 DICT (9PAC31). MOVE INPUT TO OUTPUT | | 17112 0500 00 0 00000 CLA 0 BN890 FP038390 | 17113 -0500 00 0 17115 CAL *+2 * SET UP TRA TO LOOP BN900 FP038400 | 17114 0074 00 4 11413 TSX PRGMR,4 * * BN910 FP038410 17115 0020 00 0 00000 TRA 0 * * BN920 FP038420 | 17116 0500 00 0 17517 CLA BNA70 * SET RUS REL TO 8 BN930 FP038430 | 17117 0074 00 4 11465 TSX PADDR,4 * * BN940 FP038440 | 17120 -0500 00 0 17122 CAL *+2 SET UP TO TRY NEXT TBL ENTRBN950 FP038450 | 17121 0074 00 4 11413 TSX PRGMR,4 * * BN960 FP038460 17122 -0500 00 0 00000 CAL 0 * * BN970 FP038470 | 17123 0502 00 0 17526 CLS BNB30 * SET MINUS REL TO 6 BN980 FP038480 | 17124 0074 00 4 11465 TSX PADDR,4 * * BN990 FP038490 | 17125 -0500 00 0 17127 CAL *+2 * SET UP ADD TWO BO000 FP038500 | 17126 0074 00 4 11413 TSX PRGMR,4 * * BO010 FP038510 17127 0400 00 0 00000 ADD 0 * * BO020 FP038520 | 17130 -0500 00 0 17513 CAL BNA30 *PLACE 2 IN OBJECT STORAGE BO030 FP038530 | 17131 0074 00 4 11426 TSX STORR,4 * * BO040 FP038540 | 17132 0074 00 4 11454 TSX SADDR,4 * LINK INSTR + STORAGE BO050 FP038550 | 17133 0621 00 0 17527 STA BNB40 *SAVE OBJECT TWO ADDRESS BO060 FP038560 17134 -0500 00 0 17136 CAL *+2 * SET MODIFIED ADDRESS BO070 FP038570 | 17135 0074 00 4 11413 TSX PRGMR,4 * * BO080 FP038580 | 17136 0621 00 0 00000 STA 0 * * BO090 FP038590 | 17137 0502 00 0 17517 CLS BNA70 * SET RELATIVE ADDR TO - 8 BO100 FP038600 | 17140 0074 00 4 11465 TSX PADDR,4 * * BO110 FP038610 17141 -0500 00 0 17143 CAL *+2 * SET UP ADD 1 BO140 FP038620 | 17142 0074 00 4 11413 TSX PRGMR,4 * * BO150 FP038630 | 17143 0400 00 0 00000 ADD 0 * * BO160 FP038640 | 17144 0500 00 0 17514 CLA BNA40 * STORE A ONE IN OBJECT STOBO161 FP038650 | 17145 0074 00 4 11426 TSX STORR,4 * * BO163 FP038660 17146 0074 00 4 11454 TSX SADDR,4 * SAVE ADDRESS OF A ONE BO167 FP038670 | 17147 0621 00 0 17522 STA BNA80 * BO169 FP038680 | 17150 -0500 00 0 17152 CAL *+2 * MODIFY ADDRESS STA BO170 FP038690 | 17151 0074 00 4 11413 TSX PRGMR,4 * * BO180 FP038700 | 17152 0621 00 0 00000 STA 0 * * BO190 FP038710 17153 0502 00 0 17526 CLS BNB30 * SET REL TO MINUS 6 BO200 FP038720 | 17154 0074 00 4 11465 TSX PADDR,4 * * BO210 FP038730 | 17155 -0500 00 0 17157 CAL *+2 * SET UP TIX ,4,1 BO220 FP038740 | 17156 0074 00 4 11413 TSX PRGMR,4 * * BO230 FP038750 | 17157 2 00001 4 00000 TIX 0,4,1 * * BO240 FP038760 17160 0502 00 0 17530 CLS BNB50 * SET MINUS ADDRESS TO 13 BO250 FP038770 | 17161 0074 00 4 11465 TSX PADDR,4 * * BO260 FP038780 | 17162 -0500 00 0 17164 CAL *+2 * SET UP ERROR STOP BO270 FP038790 | 17163 0074 00 4 11413 TSX PRGMR,4 * * BO280 FP038800 | 17164 0074 00 4 22436 TSX IMPOS,4 BO290 FP038810 17165 -0500 00 0 17167 CAL *+2 * * BO320 FP038820 | 17166 0074 00 4 11413 TSX PRGMR,4 * * BO330 FP038830 | 17167 0535 00 2 17301 LAC SFLOC,2 BO340 FP038840 | 17170 -0500 00 0 17172 CAL *+2 * BUILD PDX 0,4 BO350 FP038850 | 17171 0074 00 4 11413 TSX PRGMR,4 * * BO360 FP038860 17172 -0734 00 4 00000 PDX 0,4 * * BO370 FP038870 | 17173 -0500 00 0 17175 CAL *+2 * BUILD SXA *+8,4 BO380 FP038880 | 17174 0074 00 4 11413 TSX PRGMR,4 * * BO390 FP038890 | 17175 0634 00 4 00000 SXA 0,4 * * BO400 FP038900 | 17176 0500 00 0 17517 CLA BNA70 * SET PLUS RELATIVE TO 8 BO402 FP038910 17177 0074 00 4 11465 TSX PADDR,4 * * BO404 FP038920 | 17200 -0500 00 0 17202 CAL *+2 * SET UP TMI *+8 BO410 FP038930 | 1 LISTING OF 12/01/64 PAGE 90 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 17201 0074 00 4 11413 TSX PRGMR,4 * * BO420 FP038940 | 17202 -0120 00 0 00000 TMI 0 * * BO430 FP038950 | 17203 0500 00 0 17520 CLA BNA70+1 TMI*+7 B0435 FP038960 | 17204 0074 00 4 11465 TSX PADDR,4 * * BO437 FP038970 | 17205 -0500 00 0 17207 CAL *+2 * BUILD PAX REC TYPE BO440 FP038980 17206 0074 00 4 11413 TSX PRGMR,4 * * BO450 FP038990 | 17207 0734 00 4 00000 PAX 0,4 * * BO460 FP039000 | 17210 -0500 00 0 17212 CAL *+2 * SET UP CAL 0,1 BO480 FP039010 | 17211 0074 00 4 11413 TSX PRGMR,4 * * BO490 FP039020 | 17212 -0500 00 1 00000 CAL 0,1 * * BO500 FP039030 17213 -0500 00 0 17215 CAL *+2 * SET UP SLW 0,2 BO510 FP039040 | 17214 0074 00 4 11413 TSX PRGMR,4 * * BO520 FP039050 | 17215 0602 00 2 00000 SLW 0,2 * * BO530 FP039060 | 17216 -0500 00 0 17220 CAL *+2 * BUILD TIX IR =1 BO540 FP039070 | 17217 0074 00 4 11413 TSX PRGMR,4 * * BO550 FP039080 17220 2 00001 1 00000 TIX 0,1,1 * * BO560 FP039090 | 17221 -0500 00 0 17514 CAL BNA40 * SET REL TO +1 BO570 FP039100 | 17222 0074 00 4 11465 TSX PADDR,4 * * BO580 FP039110 | 17223 -0500 00 0 17225 CAL *+2 * BUILD TIX IR =2 BO590 FP039120 | 17224 0074 00 4 11413 TSX PRGMR,4 * * BO600 FP039130 17225 2 00001 2 00000 TIX 0,2,1 * * BO610 FP039140 | 17226 -0500 00 0 17514 CAL BNA40 * SET REL TO +1 BO620 FP039150 | 17227 0074 00 4 11465 TSX PADDR,4 * * BO630 FP039160 | 17230 -0500 00 0 17232 CAL *+2 * BUILD TIX -4,4,1 BO640 FP039170 | 17231 0074 00 4 11413 TSX PRGMR,4 * * BO650 FP039180 17232 2 00001 4 00000 TIX 0,4,1 * * BO660 FP039190 | 17233 0502 00 0 17532 CLS BNB80 * SET REL TO -4 BO670 FP039200 | 17234 0074 00 4 11465 TSX PADDR,4 * * BO680 FP039210 | 17235 -0500 00 0 17237 CAL *+2 * BUILD AXC ,4 BO681 FP039220 | 17236 0074 00 4 11413 TSX PRGMR,4 * * BO682 FP039230 17237 -0774 00 4 00000 AXC 0,4 * * BO683 FP039240 | 17240 -0500 00 0 17242 CAL *+2 *BUILD TRA TO OBJECT PRGM RBO684 FP039250 | 17241 0074 00 4 11413 TSX PRGMR,4 * * BO685 FP039260 | 17242 0020 00 4 00000 TRA 0,4 * * BO686 FP039270 | 17243 0500 00 0 17514 CLA BNA40 * SET REL TO PLUS ONE BO687 FP039280 17244 0074 00 4 11465 TSX PADDR,4 * * BO688 FP039290 | 17245 -0500 00 0 11423 CAL F0080 SET COUNTER FOR RELATIVE ADBO689 FP039300 | 17246 0621 00 0 17602 STA BND29 * * BO690 FP039310 | 17247 -0500 00 0 17251 CAL *+2 BUILD TRA TO Y BO691 FP039320 | 17250 0074 00 4 11413 TSX PRGMR,4 * * BO692 FP039330 17251 0020 00 0 00000 TRA .. * * BO693 FP039340 | 17252 -0500 00 0 17532 CAL BNB80 * * BO694 FP039350 | 17253 0074 00 4 11477 TSX GADDR,4 * * BO695 FP039360 | 17254 -0625 00 0 17516 STL BNA60 *SET MOVE LOOP SWITCH TO YEBO696 FP039370 | 17255 -0500 00 0 17576 CAL BND25 *PLACE BLANKS IN OBJECT STOBO700 FP039380 17256 0074 00 4 11426 TSX STORR,4 * * BO710 FP039390 | 17257 -0500 00 0 11436 CAL G0080 * * BO720 FP039400 | 17260 0621 00 0 17577 STA BND26 * * BO730 FP039410 | 17261 0534 00 4 16761 LXA BN060,4 * * BO740 FP039420 | 17262 0020 00 0 17000 BO750 TRA BN110 TRA TO 1 BO750 FP039430 * PASS CLEAN UP BEL00 FP039440 | 17263 -0500 00 0 11423 BEL10 CAL F0080 ADD 1 TO RELATIVE BEL10 FP039450 | 17264 -0320 00 0 17544 ANA BNC90 BEL12 FP039460 | 17265 0400 00 0 17514 ADD BNA40 * BEL15 FP039470 | 17266 0402 00 0 17536 SUB BNC30 MINUS LOCATION OF LXA BEL20 FP039480 1 LISTING OF 12/01/64 PAGE 91 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 17267 0601 00 0 11474 STO K1000 * BEL25 FP039490 | 17270 -0500 00 0 17536 CAL BNC30 * BEL30 FP039500 17271 0074 00 4 11467 TSX PADDR+2,4 LINK LXA TO 1ST TBL ENTRY BEL35 FP039510 | 17272 -0500 00 0 17515 CAL BNA50 BEL38 FP039520 | 17273 0602 00 0 65534 SLW STORG+2 BEL39 FP039530 | 17274 -0500 00 0 17010 CAL BN155 DETERMINE = OF ENTRIES BEL40 FP039540 | 17275 0402 00 0 17661 SUB BND77 * BEL45 FP039550 17276 0621 00 0 17302 STA BEL70 * BEL50 FP039560 | 17277 0500 00 0 17010 CLA BN155 LOCATE 1 BEYOND THE LAST ENBEL55 FP039570 | 17300 0402 00 0 17514 SUB BNA40 * BEL60 FP039580 | 17301 0621 00 0 17303 STA BEL75 * BEL65 FP039590 | 17302 0774 00 1 00000 BEL70 AXT ..,1 PUT TABLE TO OBJECT PRGRAM BEL70 FP039600 17303 -0500 00 1 00000 BEL75 CAL ..,1 * BEL75 FP039610 | 17304 0074 00 4 11413 TSX PRGMR,4 * BEL80 FP039620 | 17305 0 00000 0 00000 PZE * BEL85 FP039630 | 17306 2 00001 1 17303 TIX BEL75,1,1 * BEL90 FP039640 | 17307 -0500 00 0 17553 CAL BNC97 MOVE LOOP TO TAPE BEM10 FP039650 17310 0074 00 4 11547 TSX M0010,4 * BEM15 FP039660 | * TO MOVE DELETED RECORD TYPES FOR COUNTING IN COUNT TABLES FP039670 | 17311 0774 00 4 00012 BEM30 AXT 10,4 BEM300FP039680 | 17312 -0500 00 4 16546 CAL AAG18,4 BEM301FP039690 | 17313 0602 00 4 12506 SLW AAG98+10,4 BEM302FP039700 17314 2 00001 4 17312 TIX *-2,4,1 BEM303FP039710 | 17315 0600 00 0 12506 STZ AAG98+10 BEM304FP039720 | 17316 0774 00 6 00702 AXT SMZE-3,6 ELIMINATED DELETED BEM309FP039730 | 17317 0500 00 4 72451 BEM31 CLA SUTBL+SMZE-1,4 G RECORDS BEM31 FP039740 | 17320 0100 00 0 17333 TZE BEM46 FINISHED ZERO DELETES BEM32 FP039750 17321 -0120 00 0 17331 TMI BEM44 DELETE ENTIRE BEM33 FP039760 | 17322 -0320 00 0 17663 BEM34 ANA BND99 CLEAR PREFIX OF 3D ENTRY BEM34 FP039770 | 17323 0602 00 2 72451 SLW SUTBL+SMZE-1,2 BEM341FP039780 | 17324 -0500 00 4 72450 CAL SUTBL+SMZE-2,4 BEM35 FP039790 | 17325 0602 00 2 72450 SLW SUTBL+SMZE-2,2 BEM36 FP039800 17326 -0500 00 4 72447 CAL SUTBL+SMZE-3,4 BEM37 FP039810 | 17327 0602 00 2 72447 SLW SUTBL+SMZE-3,2 BEM40 FP039820 | 17330 2 00003 2 17331 TIX BEM44,2,3 BEM41 FP039830 | 17331 2 00003 4 17317 BEM44 TIX BEM31,4,3 BEM44 FP039840 | 17332 -3 00003 2 17334 TXL *+2,2,3 BEM45 FP039850 17333 -0520 00 2 72447 BEM46 NZT SUTBL+SMZE-3,2 BEM46 FP039860 | 17334 0020 00 0 17341 TRA *+5 FP039870 | 17335 0600 00 2 72451 STZ SUTBL+SMZE-1,2 BEM50 FP039880 | 17336 0600 00 2 72450 STZ SUTBL+SMZE-2,2 BEM52 FP039890 | 17337 0600 00 2 72447 STZ SUTBL+SMZE-3,2 BEM54 FP039900 17340 2 00003 2 17333 TIX BEM46,2,3 BEM56 FP039910 | 17341 0074 00 4 12507 TSX MSYSRD,4 BEM57 FP039920 | 17342 114721230302 BCI 1,9PAC32 MAIN2 FP039930 | 17343 0 20246 0 33127 PZE HSKP2,,HSKP2-D0010+2 FP039940 | 17344 BNA10 BSS 3 REC TYPE,= INPUT WDS,= OUTPBNA10 FP039950 17347 +000000000000 BNA20 OCT 0,0 MOVE LOOP CONTROL TABLE BNA20 FP039960 | 17350 +000000000000 | 17351 BNA21 BSS 98 BNA21 FP039970 | 17513 +000000000002 BNA30 DEC 2 +2 BNA30 FP039980 | 17514 +000000000001 BNA40 DEC 1 +1 BNA40 FP039990 17515 0 00000 0 00000 BNA50 PZE RECORD TYPE COUNTER BNA50 FP040000 | 17516 0 00000 0 00000 BNA60 PZE MOVE LOOP SWITCH BNA60 FP040010 | 17517 +000000000010 BNA70 DEC 8,7,9 +8 BNA70 FP040020 | 1 LISTING OF 12/01/64 PAGE 92 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 17520 +000000000007 | 17521 +000000000011 | 17522 0 00000 0 00000 BNA80 PZE LOCATION OF OBJECT ONE BNA80 FP040030 | 17523 +000000000012 BNA90 DEC 10 +10 BNA90 FP040040 17524 +377700000000 BNB10 OCT 377700000000 RECORD TYPE MASK BNB10 FP040050 | 17525 +000000000005 BNB20 DEC 5 +5 BNB20 FP040060 | 17526 +000000000006 BNB30 DEC 6 +6 BNB30 FP040070 | 17527 0 00000 0 00000 BNB40 PZE LOCATION OF OBJECT TWO BNB40 FP040080 | 17530 +000000000015 BNB50 DEC 13 +13 BNB50 FP040090 17531 0 00000 0 00000 BNB70 PZE LOCATION OF OBJECT REC TYPEBNB70 FP040100 | 17532 +000000000004 BNB80 DEC 4 +4 BNB80 FP040110 | 17533 0 00000 0 00000 BNB90 PZE LEFT ZIGGER-COUBLE MASK BNB90 FP040120 | 17534 0 00000 0 30221 BNC10 PZE AAG29 LOCATION OF DICTIONARY TABLBNC10 FP040130 | 17535 +000007000000 BNC20 OCT 000007000000 MASK FOR 3 BITS IN DECREMENBNC20 FP040140 17536 0 00000 0 00000 BNC30 PZE ADDRESS OF CONTROL TBL INITBNC30 FP040150 | 17537 0 00000 0 00000 BNC40 PZE LOC OF LOOP EXIT INSTR BNC40 FP040160 | 17540 +000077777777 BNC50 OCT 000077777777 MASK BNC50 FP040170 | 17541 0 00000 0 17515 BNC60 PZE BNA50 BNC60 FP040180 | 17542 +000000000016 BNC70 DEC 14 +14 BNC70 FP040190 17543 0 00000 0 00000 BNC80 PZE INCREMENT OF LAST CHANGE, IBNC80 FP040200 | 17544 +000000077777 BNC90 OCT 000000077777 BNC90 FP040210 | 17545 0 00000 0 00000 BNC91 PZE 0 BNC91 FP040220 | 17546 0 00000 0 20066 BNC92 PZE DBBCR BNC92 FP040230 | 17547 0 00000 0 20065 BNC93 PZE DBBCL BNC93 FP040240 17550 0 00000 0 00000 BNC94 PZE 0 10 TO THE N BNC94 FP040250 | 17551 0 00000 0 00000 BNC95 PZE 0 10 TO THE N OVER 2 BNC95 FP040260 | 17552 +000000000043 BNC96 DEC 35 BNC96 FP040270 | 17553 +250000070000 BNC97 OCT 250000070000 BNC97 FP040280 | 17554 0 00000 0 00000 BNC98 PZE 0 BNC98 FP040290 17555 +000025000000 BNC99 OCT 000025000000 BNC99 FP040300 | 17556 0 00000 0 17350 BND00 PZE BNA20+1 LOCATION OF LAST LOOP CONTRBND00 FP040310 | 17557 +000000777700 BND10 OCT 000000777700 BND10 FP040320 | 17560 +000000777777 BND11 OCT 000000777777 BND11 FP040330 | 17561 0 00000 0 00000 BND12 PZE STORAGE 1 BND12 FP040340 17562 0 00000 0 00000 BND13 PZE SHIFT ZIGGER /AFTER/ BND13 FP040350 | 17563 +000000000044 BND14 DEC 36 BND14 FP040360 | 17564 +000000000014 BND15 DEC 12 BND15 FP040370 | 17565 0 00000 0 00000 BND16 PZE STORAGE 2 BND16 FP040380 | 17566 0 00000 0 00000 BND17 PZE STORAGE FOR F0080 BND17 FP040390 17567 0 00000 0 00000 BND18 PZE STORAGE FOR G0080 BND18 FP040400 | 17570 0 00000 0 00000 BND19 PZE STORAGE FOR H0080 BND19 FP040410 | 17571 -377777777777 BND20 OCT 777777777777 BND20 FP040420 | 17572 +007700000000 BND21 OCT 007700000000 BND21 FP040430 | 17573 0 00000 0 00000 BND22 PZE STORAGE 3 BND22 FP040440 17574 0 00000 0 00000 BND23 PZE STORAGE 4 BND23 FP040450 | 17575 0 00000 0 00000 BND24 PZE STORAGE 5 BND24 FP040460 | 17576 606060606060 BND25 BCI 1, BLANKS BND25 FP040470 | 17577 0 00000 0 00000 BND26 PZE OBJECT LOCATION OF BLANKS BND26 FP040480 | 17600 0 00000 0 00000 BND27 PZE LOCATION OF BND27 FP040490 17601 0 00000 0 00000 BND28 PZE STORAGE IR1 WHEN USING SUM BND28 FP040500 | 17602 0 00000 0 00000 BND29 PZE REL LOCATION OF LOOP END BND29 FP040510 | 17603 0 00000 0 00000 BND30 PZE RECORD TYPE AND FIELD NUM SBND30 FP040520 | 17604 0 00000 0 00000 BND31 PZE LOCATION OF OBJ PROG RETURNBND31 FP040530 | 17605 0771 00 0 00000 BND32 ARS .. BND32 FP040540 17606 0767 00 0 00000 BND33 ALS .. BND33 FP040550 | 1 LISTING OF 12/01/64 PAGE 93 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 17607 0 00000 0 00000 BND34 PZE ADDRESS SAVED FOR = OF RECRBND34 FP040560 17610 0 00000 0 00000 BND35 PZE BEFORE CHANGE SHIFT ZIGGER BND35 FP040570 | 17611 0 00000 0 00000 BND36 PZE JUSTIFIED ZIGGER BND36 FP040580 | 17612 0 00000 0 00000 BND37 PZE ACTION ZIGGER O FOR SHORTENBND37 FP040590 | 17613 0 00000 0 00000 BND38 PZE INPUT LENGTH BND38 FP040600 | 17614 0 00000 0 00000 BND39 PZE INPUT WORD LOCATION BND39 FP040610 17615 0 00000 0 00000 BND40 PZE INPUT BIT LOCATION BND40 FP040620 | 17616 0 00000 0 00000 BND41 PZE OUTPUT LENGTH BND41 FP040630 | 17617 0 00000 0 00000 BND42 PZE OUTPUT WORD LOCATION BND42 FP040640 | 17620 0 00000 0 00000 BND43 PZE OUTPUT BIT LOCATION BND43 FP040650 | 17621 0 00000 0 00000 BND44 PZE NEXT BNC80 BND44 FP040660 17622 0 00000 0 00000 BND45 PZE NUMBER FOR INT AXT BND45 FP040670 | 17623 0 00000 0 00000 BND46 PZE NUMBER OF SHIFTS FOR MASK BND46 FP040680 | 17624 -000000000001 BND47 OCT -1 LAST FIELDS LAST WORK WORD BND47 FP040690 | 17625 0 00000 0 00000 BND48 PZE LAST WORK WORD LOCATION BND48 FP040700 | 17626 0 00000 0 00000 BND49 PZE QUOTIENT FROM OUTPUT BND49 FP040710 17627 0 00000 0 00000 BND50 PZE BIT LOCATION FOR NEXT OUTPUBND50 FP040720 | 17630 +000000000003 BND51 DEC 3 BND51 FP040730 | 17631 0 00000 0 00000 BND52 PZE NO OF SHIFTS FOR AFTER MASKBND52 FP040740 | 17632 0 00000 0 00000 BND53 PZE GENERATOR MASK STORAGE BND53 FP040750 | 17633 0 00000 0 00000 BND54 PZE NO FOR LOOP TIX =,4,1 BND54 FP040760 17634 0 00000 0 00000 BND55 PZE MODE CHANGE ZIGGER BND55 FP040770 | 17635 0 00000 0 00000 BND56 PZE DOUBLE MASK AREA BND56 FP040780 | 17636 0 00000 0 00000 BND57 PZE STORAGE FOR NEW FIELDS BIT BND57 FP040790 | 17637 0 00000 0 00000 BND58 PZE STORAGE FOR FIRST WORK WORDBND58 FP040800 | 17640 0 00000 0 00000 BND60 PZE INTERMIATE SHIFT FOR MODE BND60 FP040810 17641 0 00000 0 00000 BND61 PZE MODE TEST + FOR BCI OR - FOBND61 FP040820 | 17642 0 00000 0 00000 BND62 PZE DETERMINE WHICH OF BCD BUFFBND62 FP040830 | 17643 0 00000 0 00000 BND63 PZE IF ZERO DO NOT TXI BACK ONEBND63 FP040840 | 17644 0 00000 0 00000 BND64 PZE INTERMEDIATE SHIFT BND64 FP040850 | 17645 0 00000 0 00000 BND65 PZE VALUE OF INPUT WORD BND65 FP040860 17646 0 00000 0 00000 BND66 PZE ZERO NONE + ADD - SUB BND66 FP040870 | 17647 0 00000 0 00000 BND67 PZE TEST FOR PACKED INSERT BND67 FP040880 | 17650 270000000000 BND68 BCI 1,G00000 BND68 FP040890 | 17651 250000000000 BND69 BCI 1,E00000 BND69 FP040900 | 17652 470000000000 BND70 BCI 1,P00000 BND70 FP040910 17653 -370000000000 BND71 OCT 770000000000 BND71 FP040920 | 17654 0 00000 0 00000 BND72 PZE STORAGE 6 BND72 FP040930 | 17655 0 00000 0 00000 BND73 PZE STORAGE 7 BND73 FP040940 | 17656 0 00000 0 00000 BND74 PZE STORAGE FOR LAST F RECORD BND74 FP040950 | 17657 266060606060 BND75 BCI 1,F FOR TESTING F RECORDS BND75 FP040960 17660 +000002000000 BND76 OCT 000002000000 BND76 FP040970 | 17661 0 00000 0 17346 BND77 PZE BNA20-1 BND77 FP040980 | 17662 0 00000 0 00000 BND80 PZE 0 TEMP STORAGE BND80 FP040990 | 17663 +077777777777 BND99 OCT 077777777777 BND99 FP041000 | 1 LISTING OF 12/01/64 PAGE 94 DICT (9PAC31). MOVE INPUT TO OUTPUT | | * FP041020 | * FP041030 | * FP041040 17664 0020 00 0 24177 BP000 TRA BDA05 NO CHANGE -REF 2 - BP000 FP041050 | 17665 0020 00 0 25002 TRA BDT70 DELETE FIELD BP010 FP041060 | 17666 0020 00 0 23245 TRA BL700 INSERT FIELD BP020 FP041070 | 17667 0020 00 0 23540 TRA BM455 MODE CHANGE BP030 FP041080 | 17670 0020 00 0 21115 TRA BW010 LENGTHEN FIELD TO THE LEFT BP040 FP041090 17671 0020 00 0 20507 TRA BT010 LENGTHEN FIELD TO THE RIGHTBP050 FP041100 | 17672 0020 00 0 20265 TRA BR500 SHORTEN FIELD ON LEFT BP060 FP041110 | * UNPACKED SHORTEN RIGHT BP099 FP041120 | 17673 -0625 00 0 17533 BP100 STL BNB90 SHORTEN FIELD ON RIGHT BP100 FP041130 | 17674 -0500 00 2 00002 BP110 CAL 2,2 PACKED BP110 FP041140 17675 -0320 00 0 17535 ANA BNC20 BP120 FP041150 | 17676 -0100 00 0 21716 TNZ BE060 IS PACKED-TRA 7-B BP130 FP041160 | 17677 -0500 00 2 00017 CAL 15,2 CAL SHIFT-NEW BIT POS BP140 FP041170 | 17700 -0320 00 0 17557 ANA BND10 BP150 FP041180 | 17701 0771 00 0 00006 ARS 6 BP151 FP041190 17702 0601 00 0 07751 STO B1020 BP152 FP041200 | 17703 0074 00 4 07570 TSX B0010,4 CONVERT TO BINARY BP154 FP041210 | 17704 0500 00 0 07747 CLA B1000 BP158 FP041220 | 17705 0602 00 0 17561 SLW BND12 BP160 FP041230 | 17706 0602 00 0 17620 SLW BND43 OUTPUT BIT BP162 FP041240 17707 -0500 00 2 00004 CAL 4,2 OLD BIT POS BP170 FP041250 | 17710 -0320 00 0 17557 ANA BND10 BP180 FP041260 | 17711 0771 00 0 00006 ARS 6 BP181 FP041270 | 17712 0601 00 0 07751 STO B1020 BP182 FP041280 | 17713 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BP184 FP041290 17714 0500 00 0 07747 CLA B1000 BP188 FP041300 | 17715 0402 00 0 17561 SUB BND12 BP190 FP041310 | 17716 0601 00 0 17562 STO BND13 SET SHIFT ZIGGER BP200 FP041320 | 17717 -0500 00 2 00003 CAL 3,2 OBTAIN 1ST WD LOC OF CHANGEBP210 FP041330 | 17720 0560 00 2 00004 LDQ 4,2 BP220 FP041340 17721 -0763 00 0 00022 LGL 18 BP230 FP041350 | 17722 -0320 00 0 17540 ANA BNC50 BP240 FP041360 | 17723 0601 00 0 07751 STO B1020 BP242 FP041370 | 17724 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BP244 FP041380 | 17725 0500 00 0 07747 CLA B1000 BP248 FP041390 17726 0601 00 0 17561 STO BND12 BP250 FP041400 | 17727 -0500 00 2 00015 CAL 13,2 OUTPUT LENGTH IN BITS BP260 FP041410 | 17730 0560 00 2 00016 LDQ 14,2 BP265 FP041420 | 17731 -0763 00 0 00006 LGL 6 BP270 FP041430 | 17732 -0320 00 0 10734 ANA BCD07 BP275 FP041440 17733 0602 00 0 07751 SLW B1020 BP280 FP041450 | 17734 0074 00 4 07570 TSX B0010,4 BP285 FP041460 | 17735 0500 00 0 07747 CLA B1000 BP290 FP041470 | 17736 0601 00 0 17616 STO BND41 BP295 FP041480 | 17737 -0130 00 0 00000 XCL BP300 FP041490 17740 0500 00 0 17561 CLA BND12 BP305 FP041500 | 17741 0520 00 0 17562 ZET BND13 TEST SHIFT BP310 FP041510 | 17742 0020 00 0 17757 TRA BP400 --TO SHIFT BP320 FP041520 | 17743 -0500 00 2 00002 CAL 2,2 BP324 FP041530 | 17744 -0320 00 0 17572 BP325 ANA BND21 BP325 FP041540 17745 -0100 00 0 17750 TNZ BP330 BP326 FP041550 | 17746 0400 00 0 17561 ADD BND12 BP327 FP041560 | 1 LISTING OF 12/01/64 PAGE 95 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 17747 0020 00 0 17757 TRA BP400 BP328 FP041570 | 17750 0754 00 0 00000 BP330 PXA 0,0 BP330 FP041580 | 17751 0220 00 0 17563 DVH BND14 BP340 FP041590 | 17752 0100 00 0 17754 TZE *+2 TEST REMAINDER BP350 FP041600 | 17753 0500 00 0 17514 CLA BNA40 ADD 1 ON NON ZERO BP360 FP041610 17754 0400 00 0 17561 ADD BND12 WORD LOC BP370 FP041620 | 17755 -0600 00 0 17565 STQ BND16 NEW FIELD LENGTH BP380 FP041630 | 17756 0400 00 0 17565 ADD BND16 FIRST WORD SHORTENED BP390 FP041640 | 17757 0402 00 0 17543 BP400 SUB BNC80 OBTAIN = WDS FOR PREV LOOP BP400 FP041650 | 17760 0100 00 0 20256 TZE BR400 TO PKG-RESTORE GENERATOR BP405 FP041660 17761 0522 00 0 11422 XEC F0080-1 = WDS TO PREV INSTR BP410 FP041670 | 17762 -0602 60 0 17556 ORS* BND00 BP420 FP041680 | 17763 -0500 00 2 00002 BP430 CAL 2,2 TEST BINARY BP430 FP041690 | 17764 -0320 00 0 17572 ANA BND21 BP431 FP041700 | 17765 0100 00 0 21411 TZE BY005 TO BINARY BP432 FP041710 17766 -0500 00 2 00002 CAL 2,2 OBTAIN 1ST WD LOC NEXT FLD BP440 FP041720 | 17767 0560 00 2 00003 LDQ 3,2 BP445 FP041730 | 17770 -0763 00 0 00006 LGL 6 BP450 FP041740 | 17771 -0320 00 0 17560 ANA BND11 BP460 FP041750 | 17772 0602 00 0 07751 SLW B1020 BP462 FP041760 17773 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BP464 FP041770 | 17774 0500 00 0 07747 CLA B1000 BP468 FP041780 | 17775 -0130 00 0 00000 XCL OLD FLD LNGTH TO MQ BP470 FP041790 | 17776 0754 00 0 00000 PXA 0,0 BP480 FP041800 | 17777 0220 00 0 17563 DVH BND14 36 BP490 FP041810 20000 0100 00 0 20002 TZE *+2 TEST FOR REMAINDER BP500 FP041820 | 20001 0500 00 0 17514 CLA BNA40 1 BP510 FP041830 | 20002 0400 00 0 17561 ADD BND12 1ST WD LOC OF CHG FLD BP520 FP041840 | 20003 -0600 00 0 17565 STQ BND16 BP530 FP041850 | 20004 -0600 00 0 17662 STQ BND80 BP535 FP041860 20005 0400 00 0 17565 ADD BND16 BP540 FP041870 | 20006 0601 00 0 17543 STO BNC80 BP550 FP041880 | 20007 -0500 00 0 17616 CAL BND41 BP560 FP041890 | 20010 0601 00 0 17565 STO BND16 BP570 FP041900 | 20011 -0520 00 0 17562 NZT BND13 BP580 FP041910 20012 0020 00 0 20115 TRA BQ500 BP590 FP041920 | 20013 -0500 00 0 17662 CAL BND80 BP600 FP041930 | 20014 -0340 00 0 17514 LAS BNA40 BP630 FP041940 | 20015 0020 00 0 20020 TRA *+3 GREATER THAN 1 WD BP640 FP041950 | 20016 0761 00 0 00000 NOP BP650 FP041960 20017 0020 00 0 20025 TRA *+6 1 WD ONLY BP660 FP041970 | 20020 0760 00 0 00141 SLN 1 BP670 FP041980 | 20021 0621 00 0 20024 STA *+3 SET = WDS TO AXT BP680 FP041990 | 20022 -0500 00 0 20024 CAL *+2 BUILD AXT = WDS, 4 BP690 FP042000 | 20023 0074 00 4 11413 TSX PRGMR,4 BP700 FP042010 20024 0774 00 4 00000 AXT ..,4 BP710 FP042020 | 20025 0500 00 0 17562 CLA BND13 TEST SHIFT ZIGGER BP720 FP042030 | 20026 -0120 00 0 20037 TMI BP820 TO RIGHT SHIFT BP730 FP042040 | 20027 0621 00 0 20070 STA BQ110 LEFT SHIFT-SET SHIFT BP740 FP042050 | 20030 -0500 00 0 20032 CAL *+2 BUILD CAL 0,1 BP750 FP042060 20031 0074 00 4 11413 TSX PRGMR,4 BP760 FP042070 | 20032 -0500 00 1 00000 CAL 0,1 BP770 FP042080 | 20033 -0500 00 0 20035 CAL *+2 BUILD LDQ 1,1 BP780 FP042090 | 20034 0074 00 4 11413 TSX PRGMR,4 BP790 FP042100 | 20035 0560 00 1 00001 LDQ 1,1 BP800 FP042110 1 LISTING OF 12/01/64 PAGE 96 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 20036 0020 00 0 20066 TRA BQ090 BP810 FP042120 | 20037 0400 00 0 17563 BP820 ADD BND14 CALC LGL AMT BP820 FP042130 20040 0621 00 0 20052 STA BP930 BP830 FP042140 | 20041 0621 00 0 20070 STA BQ110 BP840 FP042150 | 20042 -0500 00 0 20044 CAL *+2 BUILD PXD 0,0 BP850 FP042160 | 20043 0074 00 4 11413 TSX PRGMR,4 BP860 FP042170 | 20044 -0754 00 0 00000 PXD 0,0 BP870 FP042180 20045 -0500 00 0 20047 CAL *+2 BUILD LDQ 0,1 BP880 FP042190 | 20046 0074 00 4 11413 TSX PRGMR,4 BP890 FP042200 | 20047 0560 00 1 00000 LDQ 0,1 BP900 FP042210 | 20050 -0500 00 0 20052 CAL *+2 BUILD LGL BP910 FP042220 | 20051 0074 00 4 11413 TSX PRGMR,4 BP920 FP042230 20052 -0763 00 0 00000 BP930 LGL .. BP930 FP042240 | 20053 -0500 00 0 20055 CAL *+2 BUILD TRA BP970 FP042250 | 20054 0074 00 4 11413 TSX PRGMR,4 BP980 FP042260 | 20055 0020 00 0 00000 TRA .. BP990 FP042270 | 20056 -0500 00 0 17532 CAL BNB80 PLUS 4 FOR TRA BQ010 FP042280 20057 0074 00 4 11465 TSX PADDR,4 BQ020 FP042290 | 20060 -0500 00 0 20062 CAL *+2 BUILD CAL-1,1 BQ030 FP042300 | 20061 0074 00 4 11413 TSX PRGMR,4 BQ040 FP042310 | 20062 -0500 00 1 77777 CAL -1,1 BQ050 FP042320 | 20063 -0500 00 0 20065 CAL *+2 BUILD LDQ 0,1 BQ060 FP042330 20064 0074 00 4 11413 TSX PRGMR,4 BQ070 FP042340 | 20065 0560 00 1 00000 LDQ 0,1 BQ080 FP042350 | 20066 -0500 00 0 20070 BQ090 CAL *+2 BUILD LGL BQ090 FP042360 | 20067 0074 00 4 11413 TSX PRGMR,4 BQ100 FP042370 | 20070 -0763 00 0 00000 BQ110 LGL .. BQ110 FP042380 20071 -0500 00 0 20073 CAL *+2 BUILD SLW 0,2 BQ120 FP042390 | 20072 0074 00 4 11413 TSX PRGMR,4 BQ130 FP042400 | 20073 0602 00 2 00000 SLW 0,2 BQ140 FP042410 | 20074 -0500 00 0 20076 CAL *+2 BUILD TIX*+1,1,1 BQ330 FP042420 | 20075 0074 00 4 11413 TSX PRGMR,4 BQ340 FP042430 20076 2 00001 1 00000 TIX ..,1,1 BQ350 FP042440 | 20077 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BQ360 FP042450 | 20100 0074 00 4 11465 TSX PADDR,4 BQ370 FP042460 | 20101 -0500 00 0 20103 CAL *+2 BUILD TIX *+1,2,1 BQ380 FP042470 | 20102 0074 00 4 11413 TSX PRGMR,4 BQ390 FP042480 20103 2 00001 2 00000 TIX ..,2,1 BQ400 FP042490 | 20104 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BQ410 FP042500 | 20105 0074 00 4 11465 TSX PADDR,4 BQ420 FP042510 | 20106 -0760 00 0 00141 SLT 1 TEST MULTPLE WORDS OUT BQ430 FP042520 | 20107 0020 00 0 20115 TRA BQ500 TO 7-5 BQ440 FP042530 20110 0500 00 0 20112 CLA *+2 BUILD TIX *-6,4,36 BQ450 FP042540 | 20111 0074 00 4 11413 TSX PRGMR,4 BQ460 FP042550 | 20112 2 00001 4 00000 TIX ..,4,1 BQ470 FP042560 | 20113 0502 00 0 11033 CLS NMBR6 MINUS 6 FOR TIX BQ480 FP042570 | 20114 0074 00 4 11465 TSX PADDR,4 BQ490 FP042580 20115 -0500 00 2 00002 BQ500 CAL 2,2 REF 7-5 CALC = WDS REMOVED BQ500 FP042590 | 20116 0560 00 2 00003 LDQ 3,2 OBTAIN BITS OLD FIELD BQ510 FP042600 | 20117 -0763 00 0 00006 LGL 6 BQ520 FP042610 | 20120 -0320 00 0 17560 ANA BND11 BQ530 FP042620 | 20121 0601 00 0 07751 STO B1020 BQ532 FP042630 20122 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BQ534 FP042640 | 20123 0560 00 0 17616 LDQ BND41 OUTPUT LENGTH BQ538 FP042650 | 20124 0754 00 0 00000 PXA 0,0 BQ540 FP042660 | 1 LISTING OF 12/01/64 PAGE 97 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 20125 0220 00 0 17563 DVH BND14 BQ542 FP042670 | 20126 -0600 00 0 17662 STQ BND80 TEMP BQ544 FP042680 | 20127 0100 00 0 20131 TZE *+2 BQ546 FP042690 | 20130 0500 00 0 11026 CLA NMBR1 BQ546 FP042700 20131 0400 00 0 17662 ADD BND80 BQ550 FP042710 | 20132 0601 00 0 17662 STO BND80 BQ552 FP042720 | 20133 0560 00 0 07747 LDQ B1000 BQ554 FP042730 | 20134 0754 00 0 00000 PXA 0,0 BQ556 FP042740 | 20135 0220 00 0 17563 DVH BND14 BQ558 FP042750 20136 -0600 00 0 17565 STQ BND16 BQ560 FP042760 | 20137 0100 00 0 20141 TZE *+2 BQ562 FP042770 | 20140 0500 00 0 11026 CLA NMBR1 BQ565 FP042780 | 20141 0400 00 0 17565 ADD BND16 INPUT NR OF WORDS BQ570 FP042790 | 20142 0402 00 0 17662 SUB BND80 OUTPUT NR OF WORDS BQ575 FP042800 20143 0761 00 0 00000 NOP BQ580 FP042810 | 20144 -0340 00 0 17514 LAS BNA40 BQ600 FP042820 | 20145 0020 00 0 20150 TRA *+3 GREATER THAN 1 BQ610 FP042830 | 20146 0020 00 0 20155 TRA BQ690 FP042840 | 20147 0020 00 0 20171 TRA BQ930 FP042850 20150 0760 00 0 00141 SLN 1 SET SENSE LIGHT ON BQ640 FP042860 | 20151 0621 00 0 20154 STA *+3 = WDS TO AXT BQ650 FP042870 | 20152 -0500 00 0 20154 CAL *+2 BUILD AXT = WDS, 4 BQ660 FP042880 | 20153 0074 00 4 11413 TSX PRGMR,4 BQ670 FP042890 | 20154 0774 00 4 00000 AXT ..,4 BQ680 FP042900 20155 -0500 00 0 20157 BQ690 CAL *+2 BUILD TIX *+1,1,1 BQ690 FP042910 | 20156 0074 00 4 11413 TSX PRGMR,4 BQ820 FP042920 | 20157 2 00001 1 00000 TIX ..,1,1 BQ830 FP042930 | 20160 -0500 00 0 17514 CAL BNA40 PLUS 1 TO TIX BQ840 FP042940 | 20161 0074 00 4 11465 TSX PADDR,4 BQ850 FP042950 20162 -0760 00 0 00141 SLT 1 MULT WHOLE WDS REMOVED BQ860 FP042960 | 20163 0020 00 0 20171 TRA BQ930 NO BQ870 FP042970 | 20164 -0500 00 0 20166 CAL *+2 BUILD TIX *-1,4,1 BQ880 FP042980 | 20165 0074 00 4 11413 TSX PRGMR,4 BQ890 FP042990 | 20166 2 00001 4 00000 TIX ..,4,1 BQ900 FP043000 20167 0502 00 0 11026 CLS NMBR1 MINU 1 TO TIX BQ910 FP043010 | 20170 0074 00 4 11465 TSX PADDR,4 BQ920 FP043020 | 20171 -0500 00 2 00016 BQ930 CAL 14,2 PICK UP OUTPUT WORD BQ930 FP043030 | 20172 0560 00 2 00017 LDQ 15,2 CONVERT TO BINARY BQ931 FP043040 | 20173 -0763 00 0 00022 LGL 18 BQ932 FP043050 20174 -0320 00 0 17540 ANA BNC50 BQ933 FP043060 | 20175 0602 00 0 07751 SLW B1020 BQ934 FP043070 | 20176 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BQ935 FP043080 | 20177 -0500 00 0 07747 CAL B1000 BQ937 FP043090 | 20200 0602 00 0 17617 SLW BND42 OUTPUT WORD BQ938 FP043100 20201 -0500 00 0 17616 BQ939 CAL BND41 OUTPUT LENGTH BQ939 FP043110 | 20202 0400 00 0 17620 ADD BND43 OUTPUT BIT BQ940 FP043120 | 20203 -0130 00 0 00000 XCL BQ941 FP043130 | 20204 0754 00 0 00000 PXA 0,0 BQ942 FP043140 | 20205 0220 00 0 17563 DVH BND14 OL BQ943 FP043150 20206 -0130 00 0 00000 XCL NUMBER OF OUTPUT WORDS BQ944 FP043160 | 20207 0402 00 0 17514 SUB BNA40 1 BQ945 FP043170 | 20210 0400 00 0 17617 ADD BND42 OUTPUT WORD BQ946 FP043180 | 20211 0601 00 0 17624 STO BND47 LAST FIELDS WORK WORD BQ947 FP043190 | 20212 -0500 00 0 11423 BQ948 CAL F0080 REF 7-6 SAVE GENERATOR BQ948 FP043200 20213 0602 00 0 17566 SLW BND17 BQ949 FP043210 | 1 LISTING OF 12/01/64 PAGE 98 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 20214 -0500 00 0 11436 CAL G0080 BQ950 FP043220 20215 0602 00 0 17567 SLW BND18 BQ960 FP043230 | 20216 -0500 00 0 11451 CAL H0080 BQ970 FP043240 | 20217 0602 00 0 17570 SLW BND19 BQ980 FP043250 | 20220 -0500 00 0 20222 CAL *+2 BUILD AXT 0,4 BR010 FP043260 | 20221 0074 00 4 11413 TSX PRGMR,4 BR020 FP043270 20222 0774 00 4 00000 AXT 0,4 BR030 FP043280 | 20223 -0500 00 0 11423 CAL F0080 SAVE LOC TO SUPPLY = WDS BR040 FP043290 | 20224 0602 00 0 17556 SLW BND00 BR050 FP043300 | 20225 -0500 00 0 20227 CAL *+2 BUILD CAL 0,1 BR060 FP043310 | 20226 0074 00 4 11413 TSX PRGMR,4 BR070 FP043320 20227 -0500 00 1 00000 CAL 0,1 BR080 FP043330 | 20230 -0500 00 0 20232 CAL *+2 BUILD SLW 0,2 BR090 FP043340 | 20231 0074 00 4 11413 TSX PRGMR,4 BR100 FP043350 | 20232 0602 00 2 00000 SLW 0,2 BR110 FP043360 | 20233 -0500 00 0 20235 CAL *+2 BUILD TIX *+1,1,1 BR120 FP043370 20234 0074 00 4 11413 TSX PRGMR,4 BR130 FP043380 | 20235 2 00001 1 00000 TIX ..,1,1 BR140 FP043390 | 20236 -0500 00 0 17514 CAL BNA40 PLUS 1 TO TIX BR150 FP043400 | 20237 0074 00 4 11465 TSX PADDR,4 BR160 FP043410 | 20240 -0500 00 0 20242 CAL *+2 BUILD TIX *+1,2,1 BR170 FP043420 20241 0074 00 4 11413 TSX PRGMR,4 BR180 FP043430 | 20242 2 00001 2 00000 TIX ..,2,1 BR190 FP043440 | 20243 -0500 00 0 17514 CAL BNA40 BR200 FP043450 | 20244 0074 00 4 11465 TSX PADDR,4 BR210 FP043460 | 20245 -0500 00 0 20247 CAL *+2 BUILD TIX *-4,4,1 BR220 FP043470 20246 0074 00 4 11413 TSX PRGMR,4 BR230 FP043480 | 20247 2 00001 4 00000 TIX ..,4,1 BR240 FP043490 | 20250 0502 00 0 17532 CLS BNB80 MINUS 4 TO TIX BR250 FP043500 | 20251 0074 00 4 11465 TSX PADDR,4 BR260 FP043510 | 20252 -0520 00 0 17545 BR270 NZT BNC91 BR270 FP043520 20253 0020 00 0 24221 TRA BDA85 BR280 FP043530 | 20254 0600 00 0 17545 STZ BNC91 BR290 FP043540 | 20255 0020 00 0 24230 TRA BDB15 BR300 FP043550 | 20256 -0500 00 0 17566 BR400 CAL BND17 PKG-RESTORE GENERATOR BR400 FP043560 | 20257 0621 00 0 11423 STA F0080 BR410 FP043570 20260 -0500 00 0 17567 CAL BND18 BR420 FP043580 | 20261 0621 00 0 11436 STA G0080 BR430 FP043590 | 20262 -0500 00 0 17570 CAL BND19 BR440 FP043600 | 20263 0621 00 0 11451 STA H0080 BR450 FP043610 | 20264 0020 00 0 17763 TRA BP430 BR460 FP043620 20265 -0500 00 2 00002 BR500 CAL 2,2 BR500 FP043630 | 20266 -0320 00 0 17535 ANA BNC20 BR510 FP043640 | 20267 -0100 00 0 21712 TNZ BE020 PACKED SHORTEN LEFT BR520 FP043650 | 20270 0560 00 2 00004 LDQ 4,2 UNPACKED - FIRST WORD LOCATBR530 FP043660 | 20271 -0500 00 2 00003 CAL 3,2 OF CHANGE FIELD BR540 FP043670 20272 -0763 00 0 00022 LGL 18 BR550 FP043680 | 20273 -0320 00 0 17540 ANA BNC50 BR560 FP043690 | 20274 0602 00 0 07751 SLW B1020 BR562 FP043700 | 20275 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BR564 FP043710 | 20276 0500 00 0 07747 CLA B1000 BR568 FP043720 20277 0602 00 0 17561 SLW BND12 BR570 FP043730 | 20300 0402 00 0 17543 SUB BNC80 FIRST WORD LOCATIN OF LAST BR580 FP043740 | 20301 -0120 00 0 20303 TMI *+2 BR585 FP043750 | 20302 -0100 00 0 20312 TNZ BR670 GENERATE INSTRUCT OVER LASTBR590 FP043760 | 1 LISTING OF 12/01/64 PAGE 99 DICT (9PAC31). MOVE INPUT TO OUTPUT | | 20303 -0500 00 0 17570 CAL BND19 GENERATE NEW INSTRUCTIONS BR600 FP043770 | 20304 0621 00 0 11451 STA H0080 OVER THE LAST LOOP BR610 FP043780 | 20305 -0500 00 0 17567 CAL BND18 BR620 FP043790 20306 0621 00 0 11436 STA G0080 BR630 FP043800 | 20307 -0500 00 0 17566 CAL BND17 BR640 FP043810 | 20310 0621 00 0 11423 STA F0080 BR650 FP043820 | 20311 0020 00 0 20314 TRA BR690 BR660 FP043830 | 20312 0522 00 0 11422 BR670 XEC F0080-1 PLACE = OF WORDS IN THE ADDBR670 FP043840 20313 -0602 60 0 17556 ORS* BND00 OF THE AXT OF LAST LOOP BR680 FP043850 | 20314 -0500 00 2 00002 BR690 CAL 2,2 TEST FOR BINARY BR690 FP043860 | 20315 -0320 00 0 17572 ANA BND21 BR691 FP043870 | 20316 0100 00 0 20460 TZE BS810 IT IS BINARY BR692 FP043880 | 20317 -0500 00 2 00015 CAL 13,2 BR695 FP043890 20320 0560 00 2 00016 LDQ 14,2 DETERMINE THE LENGTH BR700 FP043900 | 20321 -0763 00 0 00006 LGL 6 OF THE NEW FIELD BR710 FP043910 | 20322 -0320 00 0 17560 ANA BND11 BR720 FP043920 | 20323 0602 00 0 07751 SLW B1020 BR722 FP043930 | 20324 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BR724 FP043940 20325 0560 00 0 07747 LDQ B1000 BR728 FP043950 | 20326 -0600 00 0 17616 STQ BND41 BR729 FP043960 | 20327 0754 00 0 00000 PXA 0,0 BR730 FP043970 | 20330 0220 00 0 17563 DVH BND14 BR731 FP043980 | 20331 -0600 00 0 17662 STQ BND80 BR732 FP043990 20332 0100 00 0 20334 TZE *+2 BR733 FP044000 | 20333 0500 00 0 11026 CLA NMBR1 BR734 FP044010 | 20334 0400 00 0 17662 ADD BND80 BR735 FP044020 | 20335 0601 00 0 17565 STO BND16 NEW OUTPUT LEN IN WORDS BR736 FP044030 | 20336 0560 00 2 00003 LDQ 3,2 DETERMINE THE WORD LENGTH BR740 FP044040 20337 -0500 00 2 00002 CAL 2,2 OF CHANGE FIELD BR750 FP044050 | 20340 -0763 00 0 00006 LGL 6 BR760 FP044060 | 20341 -0320 00 0 17560 ANA BND11 BR770 FP044070 | 20342 0602 00 0 07751 SLW B1020 BR772 FP044080 | 20343 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BR774 FP044090 20344 0560 00 0 07747 LDQ B1000 BR778 FP044100 | 20345 0754 00 0 00000 PXA 0,0 BR780 FP044110 | 20346 0220 00 0 17563 DVH BND14 BR790 FP044120 | 20347 -0600 00 0 17662 STQ BND80 BR800 FP044130 | 20350 0100 00 0 20352 TZE *+2 BR810 FP044140 20351 0500 00 0 11026 CLA NMBR1 BR820 FP044150 | 20352 0400 00 0 17662 ADD BND80 RESULT IS INPUT LENGTH IN WORDS BR830 FP044160 | 20353 0402 00 0 17565 SUB BND16 BR840 FP044170 | 20354 0602 00 0 17662 SLW BND80 DIFFERENCE IN WORD OUTPUT BR850 FP044180 | 20355 0400 00 0 17561 ADD BND12 BR860 FP044190 20356 0601 00 0 17543 STO BNC80 FIRST WORD LOCATION OF NEXTBR870 FP044200 | 20357 -0500 00 0 17662 CAL BND80 BR960 FP044210 | 20360 -0340 00 0 17514 LAS BNA40 1 BR970 FP044220 | 20361 0020 00 0 20364 TRA *+3 MORE THAN ONE WORD BR980 FP044230 | 20362 0020 00 0 20371 TRA *+7 EQUAL TO 1 WORD BR990 FP044240 20363 0020 00 0 20405 TRA BS310 LESS THAN ONE WORD BS010 FP044250 | 20364 0760 00 0 00141 SLN 1 ON FOR MORE THAN ONE WORD BS020 FP044260 | 20365 0621 00 0 20370 STA *+3 BUILD AXT .. , Y BS030 FP044270 | 20366 -0500 00 0 20370 CAL *+2 BS040 FP044280 | 20367 0074 00 4 11413 TSX PRGMR,4 BS050 FP044290 20370 0774 00 4 00000 AXT ..,4 BS060 FP044300 | 20371 -0500 00 0 20373 CAL *+2 BUILD TIX ..,1,1 BS190 FP044310 | 1 LISTING OF 12/01/64 PAGE 100 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 20372 0074 00 4 11413 TSX PRGMR,4 BS200 FP044320 | 20373 2 00001 1 00000 TIX ..,1,1 BS210 FP044330 | 20374 -0500 00 0 17514 CAL BNA40 PLACE ADDRESS PLUS BS220 FP044340 | 20375 0074 00 4 11465 TSX PADDR,4 ONE IN ABOVE INSTRUCTION BS230 FP044350 | 20376 -0760 00 0 00141 SLT 1 BS240 FP044360 20377 0020 00 0 20405 TRA BS310 ONLY 1 WORD DIFFERENCE BS250 FP044370 | 20400 -0500 00 0 20402 CAL *+2 BS260 FP044380 | 20401 0074 00 4 11413 TSX PRGMR,4 BS270 FP044390 | 20402 2 00001 4 00000 TIX ..,4,1 BS280 FP044400 | 20403 0502 00 0 11026 CLS NMBR1 ADDRESS MINUS ONE BS290 FP044410 20404 0074 00 4 11465 TSX PADDR,4 TO ABOVE ADDRESS BS300 FP044420 | 20405 -0500 00 2 00017 BS310 CAL 15,2 NEW BIT POSITION BS310 FP044430 | 20406 -0320 00 0 17557 ANA BND10 MASKS ALL BUT LAST 2 CHARACBS320 FP044440 | 20407 -0100 00 0 20412 TNZ *+3 BS330 FP044450 | 20410 0600 00 0 17620 STZ BND43 OUTPUT BIT BS332 FP044460 20411 0020 00 0 20171 TRA BQ930 7-6 BS334 FP044470 | 20412 0771 00 0 00006 ARS 6 BS335 FP044480 | 20413 0602 00 0 07751 SLW B1020 BS336 FP044490 | 20414 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BS337 FP044500 | 20415 0500 00 0 07747 CLA B1000 BS339 FP044510 20416 0621 00 0 20421 STA *+3 BS340 FP044520 | 20417 0602 00 0 17620 SLW BND43 OUTPUT BIT BS342 FP044530 | 20420 -0500 00 0 17571 CAL BND20 ALL BITS ARE ONE BS350 FP044540 | 20421 0771 00 0 00000 ARS .. BS360 FP044550 | 20422 0602 00 0 17565 SLW BND16 BS370 FP044560 20423 -0500 00 0 17543 CAL BNC80 FP044570 | 20424 0400 00 0 04673 ADD ONE FP044580 | 20425 0602 00 0 17543 SLW BNC80 FP044590 | 20426 -0500 00 0 20430 BS400 CAL *+2 BUILD CAL 0,1 BS400 FP044600 | 20427 0074 00 4 11413 TSX PRGMR,4 BS590 FP044610 20430 -0500 00 1 00000 CAL 0,1 BS600 FP044620 | 20431 -0500 00 0 20433 CAL *+2 BUILD ANA BS610 FP044630 | 20432 0074 00 4 11413 TSX PRGMR,4 BS620 FP044640 | 20433 -0320 00 0 00000 ANA .. BS630 FP044650 | 20434 -0500 00 0 17565 CAL BND16 MASK TO STORAGE BS640 FP044660 20435 0074 00 4 11426 TSX STORR,4 BS650 FP044670 | 20436 0074 00 4 11454 TSX SADDR,4 BS660 FP044680 | 20437 -0500 00 0 20441 CAL *+2 BUILD SLW 0,2 BS670 FP044690 | 20440 0074 00 4 11413 TSX PRGMR,4 BS680 FP044700 | 20441 0602 00 2 00000 SLW 0,2 BS690 FP044710 20442 -0760 00 0 00141 SLT 1 TEST FOR BINARY BS692 FP044720 | 20443 0020 00 0 20445 TRA *+2 BS694 FP044730 | 20444 0074 00 4 21613 TSX BD400,4 GO TO BINARY ROUTINE BS696 FP044740 | 20445 -0500 00 0 20447 BS700 CAL *+2 BUILD TIX ..,1,1 BS700 FP044750 | 20446 0074 00 4 11413 TSX PRGMR,4 BS710 FP044760 20447 2 00001 1 00000 TIX ..,1,1 BS720 FP044770 | 20450 -0500 00 0 17514 CAL BNA40 ADDRESS PLUS ONE TO BS730 FP044780 | 20451 0074 00 4 11465 TSX PADDR,4 PREVIOUS ADDRESS BS740 FP044790 | 20452 -0500 00 0 20454 CAL *+2 BUILD TIX ..,2,1 BS750 FP044800 | 20453 0074 00 4 11413 TSX PRGMR,4 BS760 FP044810 20454 2 00001 2 00000 TIX ..,2,1 BS770 FP044820 | 20455 -0500 00 0 17514 CAL BNA40 ADDRESS PLUS ONE TO BS780 FP044830 | 20456 0074 00 4 11465 TSX PADDR,4 PREVIOUS ADDRESS BS790 FP044840 | 20457 0020 00 0 20171 TRA BQ930 TRA 7-6 BS800 FP044850 | 20460 -0500 00 0 17561 BS810 CAL BND12 FIRST WORD LOCATION BS810 FP044860 1 LISTING OF 12/01/64 PAGE 101 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 20461 0400 00 0 17514 ADD BNA40 PLUS ONE FOR FIRST BS820 FP044870 | 20462 0601 00 0 17543 STO BNC80 ADDRESS OF NEXT AXT LOOP BS830 FP044880 20463 -0500 00 0 17514 CAL BNA40 1 BS832 FP044890 | *SHORTEN LEFT BINARY BS839 FP044900 | 20464 -0500 00 2 00015 CAL 13,2 BS840 FP044910 | 20465 0560 00 2 00016 LDQ 14,2 BS844 FP044920 | 20466 -0763 00 0 00006 LGL 6 BS848 FP044930 20467 -0320 00 0 17560 ANA BND11 FIELD SIZE BS852 FP044940 | 20470 0602 00 0 07751 SLW B1020 BS856 FP044950 | 20471 0074 00 4 07570 TSX B0010,4 BS860 FP044960 | 20472 0500 00 0 17552 CLA BNC96 BS864 FP044970 | 20473 0402 00 0 07747 SUB B1000 BS868 FP044980 20474 0621 00 0 20477 STA *+3 BS870 FP044990 | 20475 0600 00 0 17620 STZ BND43 BS872 FP045000 | 20476 0500 00 0 17571 CLA BND20 ONLY P AND Q ARE ZERO BS880 FP045010 | 20477 0771 00 0 00000 ARS .. BS890 FP045020 | 20500 0601 00 0 17565 STO BND16 FOR MASKING BS900 FP045030 20501 0760 00 0 00006 COM BS910 FP045040 | 20502 0760 00 0 00003 BS915 SSP BS915 FP045050 | 20503 0601 00 0 17561 STO BND12 BS920 FP045060 | 20504 0074 00 4 21546 TSX BD010,4 FOR TESTING OF G RECORDS BS930 FP045070 | 20505 0020 00 0 20426 TRA BS400 BS940 FP045080 * LENGTHEN FIELD TO THE RIGHT BT000 FP045090 | 20506 0774 00 4 00000 AXT 0,4 BR030 FP045100 | 20507 -0500 00 2 00002 BT010 CAL 2,2 PACKED BT010 FP045110 | 20510 -0320 00 0 17535 ANA BNC20 BT020 FP045120 | 20511 -0100 00 0 21726 TNZ BE140 TRA TO REF 4B BT030 FP045130 20512 -0500 00 2 00017 CAL 15,2 SET SHIFT ZIGGER BT040 FP045140 | 20513 -0320 00 0 17557 ANA BND10 BT050 FP045150 | 20514 0771 00 0 00006 ARS 6 BT052 FP045160 | 20515 0602 00 0 07751 SLW B1020 BT053 FP045170 | 20516 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BT054 FP045180 20517 0500 00 0 07747 CLA B1000 BT058 FP045190 | 20520 0602 00 0 17561 SLW BND12 NEW BIT POS NOT JUSTIFIED BT060 FP045200 | 20521 0602 00 0 17620 SLW BND43 OUTPUT BIT BT062 FP045210 | 20522 -0500 00 2 00004 CAL 4,2 GET OLD BIT POS BT070 FP045220 | 20523 -0320 00 0 17557 ANA BND10 BT080 FP045230 20524 0771 00 0 00006 ARS 6 BT082 FP045240 | 20525 0602 00 0 07751 SLW B1020 BT083 FP045250 | 20526 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BT084 FP045260 | 20527 0500 00 0 07747 CLA B1000 BT088 FP045270 | 20530 0402 00 0 17561 SUB BND12 LESS NEW BIT POS BT090 FP045280 20531 0601 00 0 17562 STO BND13 TYPE AND AMT OF SHIFT BT110 FP045290 | 20532 -0500 00 2 00003 CAL 3,2 GET 1ST WD LOC OF CHG FLD BT120 FP045300 | 20533 0560 00 2 00004 LDQ 4,2 BT130 FP045310 | 20534 -0763 00 0 00022 LGL 18 BT140 FP045320 | 20535 -0320 00 0 17540 ANA BNC50 BT150 FP045330 20536 0602 00 0 07751 SLW B1020 BT152 FP045340 | 20537 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BT154 FP045350 | 20540 0500 00 0 07747 CLA B1000 BT158 FP045360 | 20541 0602 00 0 17561 SLW BND12 STORE 1ST WD LOC OF CHG FLDBT160 FP045370 | 20542 -0520 00 0 17562 NZT BND13 TEST SHIFT ZIGGER BT170 FP045380 20543 0020 00 0 20557 TRA BT300 NO SHIFT BT180 FP045390 | 20544 0402 00 0 17543 SUB BNC80 TEST 2 CHANGES IN A ROW BT190 FP045400 | 20545 -0100 00 0 20555 TNZ BT280 TO SET PREV CHG AXT LOOP BT200 FP045410 | 1 LISTING OF 12/01/64 PAGE 102 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 20546 -0500 00 0 17566 CAL BND17 PKG-RESTORE GENERATOR BT210 FP045420 | 20547 0621 00 0 11423 STA F0080 BT220 FP045430 | 20550 -0500 00 0 17567 CAL BND18 BT230 FP045440 | 20551 0621 00 0 11436 STA G0080 BT240 FP045450 20552 -0500 00 0 17570 CAL BND19 BT250 FP045460 | 20553 0621 00 0 11451 STA H0080 BT260 FP045470 | 20554 0020 00 0 20557 TRA BT300 BT270 FP045480 | 20555 0522 00 0 11422 BT280 XEC F0080-1 SET PREV CHG AXT LOOP BT280 FP045490 | 20556 -0602 60 0 17556 ORS* BND00 BT290 FP045500 20557 -0500 00 2 00002 BT300 CAL 2,2 CALC = WDS INPUT FLD BT300 FP045510 | 20560 0560 00 2 00003 LDQ 3,2 BT310 FP045520 | 20561 -0763 00 0 00006 LGL 6 BT320 FP045530 | 20562 -0320 00 0 17560 ANA BND11 BT330 FP045540 | 20563 0602 00 0 07751 SLW B1020 BT331 FP045550 20564 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BT332 FP045560 | 20565 0500 00 0 07747 CLA B1000 BT334 FP045570 | 20566 0602 00 0 17574 BT335 SLW BND23 BT335 FP045580 | 20567 -0500 00 2 00002 CAL 2,2 BT336 FP045590 | 20570 -0320 00 0 17572 ANA BND21 BT337 FP045600 20571 0100 00 0 20574 TZE *+3 BINARY BT338 FP045610 | 20572 -0500 00 0 17574 CAL BND23 NO BT339 FP045620 | 20573 0020 00 0 20605 TRA BT349 BT340 FP045630 | 20574 0500 00 0 17561 CLA BND12 YES, BINARY BT341 FP045640 | 20575 0602 00 0 17565 SLW BND16 BT342 FP045650 20576 0402 00 0 17543 SUB BNC80 BT343 FP045660 | 20577 0522 00 0 11422 XEC F0080-1 BT344 FP045670 | 20600 -0602 60 0 17556 ORS* BND00 BT345 FP045680 | 20601 -0500 00 0 17565 CAL BND16 BT346 FP045690 | 20602 0400 00 0 17514 ADD BNA40 BT3461FP045700 20603 0602 00 0 17543 SLW BNC80 BT347 FP045710 | 20604 0020 00 0 21427 TRA BY034 BT348 FP045720 | 20605 -0130 00 0 00000 BT349 XCL BT349 FP045730 | 20606 0754 00 0 00000 PXA 0,0 BT350 FP045740 | 20607 0220 00 0 17563 DVH BND14 DIV BITS BY 36 BT360 FP045750 20610 0100 00 0 20614 TZE *+4 TEST FOR ADDITIONAL WD BT370 FP045760 | 20611 -0130 00 0 00000 XCL BT380 FP045770 | 20612 0400 00 0 17514 ADD BNA40 BT390 FP045780 | 20613 0020 00 0 20615 TRA *+2 BT400 FP045790 | 20614 -0130 00 0 00000 XCL BT410 FP045800 20615 0602 00 0 17573 SLW BND22 SAVE TOT = INPUT WDS BT415 FP045810 | 20616 0400 00 0 17561 ADD BND12 ADD 1ST WD LOC OF CHG FLD BT420 FP045820 | 20617 0520 00 0 17562 ZET BND13 TEST SHIFT ZIGGER BT430 FP045830 | 20620 0020 00 0 20626 TRA BT500 SHIFT BT440 FP045840 | 20621 0602 00 0 17565 SLW BND16 NO SHIFT-SET 1ST WD LOC NEXBT450 FP045850 20622 0402 00 0 17543 SUB BNC80 SET PREV CHG AXT LOOP BT460 FP045860 | 20623 0522 00 0 11422 XEC F0080-1 BT470 FP045870 | 20624 -0602 60 0 17556 ORS* BND00 BT480 FP045880 | 20625 -0500 00 0 17565 CAL BND16 BT490 FP045890 | 20626 0602 00 0 17543 BT500 SLW BNC80 SET LOC OF 1ST WD NEXT LOOPBT500 FP045900 20627 0500 00 0 17562 CLA BND13 TEST SHIFT BT510 FP045910 | 20630 0100 00 0 21041 TZE BV210 NO SHIFT-TO REF 4-6 BT520 FP045920 | 20631 -0120 00 0 20666 TMI BT830 RIGHT SHIFT BT530 FP045930 | 20632 -0500 00 2 00002 CAL 2,2 LEFT SHIFT-TEST BINARY BT540 FP045940 | 20633 -0320 00 0 17572 ANA BND21 BT550 FP045950 20634 -0100 00 0 20636 TNZ BT590 BCD BT560 FP045960 | 1 LISTING OF 12/01/64 PAGE 103 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 20635 0020 00 0 21427 TRA BY034 TO BINARY BT580 FP045970 20636 -0500 00 0 17573 BT590 CAL BND22 CO TOTAL = INPUT WDS TO 2 BT590 FP045980 | 20637 -0340 00 0 17513 LAS BNA30 BT600 FP045990 | 20640 0020 00 0 20643 TRA BT640 GREATER THAN 2 BT601 FP046000 | 20641 0020 00 0 20652 TRA BT710 EQUAL TO 2 BT602 FP046010 | 20642 0020 00 0 20745 TRA BU550 BT615 FP046020 20643 0760 00 0 00141 BT640 SLN 1 SET SENSE LIGHT 1 ON BT640 FP046030 | 20644 -0500 00 0 17573 CAL BND22 GET TOT = IN WDS MINUS 1 BT650 FP046040 | 20645 0402 00 0 17514 SUB BNA40 BT660 FP046050 | 20646 0621 00 0 20651 STA *+3 PUT CALC IN AXT = WDS-1,4 BT670 FP046060 | 20647 -0500 00 0 20651 CAL *+2 BUILD AXT = WDS-1,4 BT680 FP046070 20650 0074 00 4 11413 TSX PRGMR,4 BT690 FP046080 | 20651 0774 00 4 00000 AXT ..,4 BT700 FP046090 | 20652 -0500 00 0 20654 BT710 CAL *+2 BUILD CAL 0,1 BT710 FP046100 | 20653 0074 00 4 11413 TSX PRGMR,4 BT720 FP046110 | 20654 -0500 00 1 00000 CAL 0,1 BT730 FP046120 20655 -0500 00 0 20657 CAL *+2 BUILD LDQ 1,1 BT740 FP046130 | 20656 0074 00 4 11413 TSX PRGMR,4 BT750 FP046140 | 20657 0560 00 1 00001 LDQ 1,1 BT760 FP046150 | 20660 -0500 00 0 17562 CAL BND13 GET AMT FOR LGL SHIFT BT770 FP046160 | 20661 0621 00 0 20664 STA *+3 BT780 FP046170 20662 -0500 00 0 20664 CAL *+2 BUILD LGL BT790 FP046180 | 20663 0074 00 4 11413 TSX PRGMR,4 BT800 FP046190 | 20664 -0763 00 0 00000 LGL .. BT810 FP046200 | 20665 0020 00 0 20730 TRA BU240 BT820 FP046210 | 20666 -0500 00 0 17573 BT830 CAL BND22 CO TOT = IN WDS TO 1 BT830 FP046220 20667 -0340 00 0 17514 LAS BNA40 BT840 FP046230 | 20670 0020 00 0 20673 TRA *+3 GREATER THAN 1 BT850 FP046240 | 20671 0761 00 0 00000 NOP BT860 FP046250 | 20672 0020 00 0 20701 TRA BT940 BT870 FP046260 | 20673 0760 00 0 00141 SLN 1 SET SENSE LIGHT BT880 FP046270 20674 -0500 00 0 17573 CAL BND22 GET TOT = IN WDS BT890 FP046280 | 20675 0621 00 0 20700 STA *+3 PUT = WDS IN AXT = WDS,4 BT900 FP046290 | 20676 -0500 00 0 20700 CAL *+2 BUILD AXT = WDS, 4 BT910 FP046300 | 20677 0074 00 4 11413 TSX PRGMR,4 BT920 FP046310 | 20700 0774 00 4 00000 AXT ..,4 BT930 FP046320 20701 -0500 00 0 20703 BT940 CAL *+2 BUILD PXD 0,0 BT940 FP046330 | 20702 0074 00 4 11413 TSX PRGMR,4 BT950 FP046340 | 20703 -0754 00 0 00000 PXD 0,0 BT960 FP046350 | 20704 -0760 00 0 00141 SLT 1 BT970 FP046360 | 20705 0020 00 0 20717 TRA BU150 BT980 FP046370 20706 0760 00 0 00141 SLN 1 BT990 FP046380 | 20707 -0500 00 0 20711 CAL *+2 BU010 FP046390 | 20710 0074 00 4 11413 TSX PRGMR,4 BU020 FP046400 | 20711 0020 00 0 00000 TRA 0 BU030 FP046410 | 20712 -0500 00 0 11027 CAL NMBR2 BU040 FP046420 20713 0074 00 4 11465 TSX PADDR,4 BU050 FP046430 | 20714 -0500 00 0 20716 CAL *+2 BUILD CAL-1,1 BU120 FP046440 | 20715 0074 00 4 11413 TSX PRGMR,4 BU130 FP046450 | 20716 -0500 00 1 77777 CAL -1,1 BU140 FP046460 | 20717 -0500 00 0 20721 BU150 CAL *+2 BU150 FP046470 20720 0074 00 4 11413 TSX PRGMR,4 BU160 FP046480 | 20721 0560 00 1 00000 LDQ 0,1 BU170 FP046490 | 20722 -0500 00 0 17563 CAL BND14 CALCULATE AMOUNT FO SHIFT BU180 FP046500 | 20723 -0400 00 0 17562 SBM BND13 BU190 FP046510 | 1 LISTING OF 12/01/64 PAGE 104 DICT (9PAC31). MOVE INPUT TO OUTPUT | | 20724 0621 00 0 20727 STA *+3 BU200 FP046520 | 20725 -0500 00 0 20727 CAL *+2 BUILD LGL BU210 FP046530 | 20726 0074 00 4 11413 TSX PRGMR,4 BU220 FP046540 20727 -0763 00 0 00000 LGL .. BU230 FP046550 | 20730 -0500 00 0 20732 BU240 CAL *+2 BUILD SLW 0,2 BU240 FP046560 | 20731 0074 00 4 11413 TSX PRGMR,4 BU250 FP046570 | 20732 0602 00 2 00000 SLW 0,2 BU260 FP046580 | 20733 -0500 00 0 20735 CAL *+2 BUILD TIX*+1,1,1 BU450 FP046590 20734 0074 00 4 11413 TSX PRGMR,4 BU460 FP046600 | 20735 2 00001 1 00000 TIX ..,1,1 BU470 FP046610 | 20736 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BU480 FP046620 | 20737 0074 00 4 11465 TSX PADDR,4 BU490 FP046630 | 20740 -0500 00 0 20742 CAL *+2 BUILD TIX*+1,2,1 BU500 FP046640 20741 0074 00 4 11413 TSX PRGMR,4 BU510 FP046650 | 20742 2 00001 2 00000 TIX ..,2,1 BU520 FP046660 | 20743 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BU530 FP046670 | 20744 0074 00 4 11465 TSX PADDR,4 BU540 FP046680 | 20745 -0760 00 0 00141 BU550 SLT 1 BU550 FP046690 20746 0020 00 0 20754 TRA BU620 NO BU560 FP046700 | 20747 -0500 00 0 20751 CAL *+2 YES-BUILD TIX *-6,4,1 BU570 FP046710 | 20750 0074 00 4 11413 TSX PRGMR,4 BU580 FP046720 | 20751 2 00001 4 00000 TIX ..,4,1 BU590 FP046730 | 20752 0502 00 0 11033 CLS NMBR6 MINUS 6 TO TIX BU600 FP046740 20753 0074 00 4 11465 TSX PADDR,4 BU610 FP046750 | 20754 0500 00 0 17562 BU620 CLA BND13 REF 4-4-TEST RIGHT SHIFT BU620 FP046760 | 20755 -0120 00 0 20767 TMI BU730 RIGHT SHIFT BU630 FP046770 | 20756 -0500 00 0 20760 CAL *+2 LEFT SHIFT-BUILD CAL 0,1 BU640 FP046780 | 20757 0074 00 4 11413 TSX PRGMR,4 BU650 FP046790 20760 -0500 00 1 00000 CAL 0,1 BU660 FP046800 | 20761 -0500 00 0 17562 CAL BND13 GET AMT FOR ALS SHIFT BU670 FP046810 | 20762 0621 00 0 20765 STA *+3 BU680 FP046820 | 20763 -0500 00 0 20765 CAL *+2 BUILD ALS BU690 FP046830 | 20764 0074 00 4 11413 TSX PRGMR,4 BU700 FP046840 20765 0767 00 0 00000 ALS .. BU710 FP046850 | 20766 0020 00 0 21000 TRA BU820 BU720 FP046860 | 20767 -0500 00 0 20771 BU730 CAL *+2 BUILD-1,1 BU730 FP046870 | 20770 0074 00 4 11413 TSX PRGMR,4 BU740 FP046880 | 20771 -0600 00 2 00000 STQ 0,2 STORE LAST PART OF OLD FIELD BU750 FP046890 20772 -0500 00 0 20774 CAL *+2 BUILD TXI *+1,1,1 BU760 FP046900 | 20773 0074 00 4 11413 TSX PRGMR,4 BU770 FP046910 | 20774 1 00001 1 00000 TXI 0,1,1 BU780 FP046920 | 20775 -0500 00 0 11026 CAL NMBR1 BU790 FP046930 | 20776 0074 00 4 11465 TSX PADDR,4 BU800 FP046940 20777 0020 00 0 21003 TRA BU820+3 BU810 FP046950 | 21000 -0500 00 0 21002 BU820 CAL *+2 BUILD SLW 0,2 BU820 FP046960 | 21001 0074 00 4 11413 TSX PRGMR,4 BU830 FP046970 | 21002 0602 00 2 00000 SLW 0,2 BU840 FP046980 | 21003 -0500 00 0 21005 CAL *+2 BUILD CAL BLANKS BU940 FP046990 21004 0074 00 4 11413 TSX PRGMR,4 BU950 FP047000 | 21005 -0500 00 0 00000 CAL .. BU960 FP047010 | 21006 -0500 00 0 17577 CAL BND26 GET OBJECT LOC OF BLANKS BU970 FP047020 | 21007 0074 00 4 11455 TSX SADDR+1,4 BU980 FP047030 | 21010 0500 00 0 17562 CLA BND13 TEST RIGHT SHIFT BU990 FP047040 21011 -0120 00 0 21020 TMI BV080 RIGHT SHIFT BV010 FP047050 | 21012 0402 00 0 17563 SUB BND14 LEFT SHIFT-GET AMT FOR ARS BV020 FP047060 | 1 LISTING OF 12/01/64 PAGE 105 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 21013 0621 00 0 21016 STA *+3 BV030 FP047070 | 21014 -0500 00 0 21016 CAL *+2 BUILD ARS BV040 FP047080 | 21015 0074 00 4 11413 TSX PRGMR,4 BV050 FP047090 | 21016 0771 00 0 00000 ARS .. BV060 FP047100 | 21017 0020 00 0 21024 TRA BV120 BV070 FP047110 21020 0621 00 0 21023 BV080 STA *+3 AMT TO ARS BV080 FP047120 | 21021 -0500 00 0 21023 CAL *+2 BUILD ARS BV090 FP047130 | 21022 0074 00 4 11413 TSX PRGMR,4 BV100 FP047140 | 21023 0771 00 0 00000 ARS .. BV110 FP047150 | 21024 -0500 00 0 21026 BV120 CAL *+2 BUILD ORS 0,2 BV120 FP047160 21025 0074 00 4 11413 TSX PRGMR,4 BV130 FP047170 | 21026 -0602 00 2 00000 ORS 0,2 BV140 FP047180 | 21027 -0500 00 0 21031 CAL *+2 BUILD TIX *+1,1,1 BV201 FP047190 | 21030 0074 00 4 11413 TSX PRGMR,4 BV202 FP047200 | 21031 2 00001 1 00000 TIX ..,1,1 BV203 FP047210 21032 -0500 00 0 17514 CAL BNA40 BV204 FP047220 | 21033 0074 00 4 11465 TSX PADDR,4 BV205 FP047230 | 21034 -0500 00 0 21036 CAL *+2 BV206 FP047240 | 21035 0074 00 4 11413 TSX PRGMR,4 BUILD TIX *+1,2,1 BV207 FP047250 | 21036 2 00001 2 00000 TIX ..,2,1 BV208 FP047260 21037 -0500 00 0 17514 CAL BNA40 BV209 FP047270 | 21040 0074 00 4 11465 TSX PADDR,4 BV2091FP047280 | 21041 -0500 00 2 00015 BV210 CAL 13,2 REF 4-6 GET OUTPUT BV210 FP047290 | 21042 0560 00 2 00016 LDQ 14,2 =BITS BV220 FP047300 | 21043 -0763 00 0 00006 LGL 6 BV230 FP047310 21044 -0320 00 0 17560 ANA BND11 BV240 FP047320 | 21045 0602 00 0 07751 SLW B1020 BV242 FP047330 | 21046 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BV244 FP047340 | 21047 0500 00 0 07747 CLA B1000 BV248 FP047350 | 21050 0602 00 0 17616 SLW BND41 OUTPUT LENGTH BV249 FP047360 21051 0402 00 0 17574 SUB BND23 INPUT = BITS BV250 FP047370 | 21052 -0130 00 0 00000 XCL BV260 FP047380 | 21053 0754 00 0 00000 PXA 0,0 BV270 FP047390 | 21054 0220 00 0 17563 DVH BND14 36 BV280 FP047400 | 21055 -0130 00 0 00000 XCL BV290 FP047410 21056 0100 00 0 20171 TZE BQ930 TO REF 7-6 BV300 FP047420 | 21057 -0340 00 0 17514 LAS BNA40 1 BV310 FP047430 | 21060 0020 00 0 21063 TRA *+3 GREATER THAN 1 BV320 FP047440 | 21061 0761 00 0 00000 NOP BV330 FP047450 | 21062 0020 00 0 21070 TRA BV400 BV340 FP047460 21063 0621 00 0 21067 STA *+4 = WDS BLANKS TO AXT BV350 FP047470 | 21064 0760 00 0 00141 SLN 1 SET MULTI WD IND BV360 FP047480 | 21065 -0500 00 0 21067 CAL *+2 BUILD AXT = WDS,4 BV370 FP047490 | 21066 0074 00 4 11413 TSX PRGMR,4 BV380 FP047500 | 21067 0774 00 4 00000 AXT ..,4 BV390 FP047510 21070 -0500 00 0 21072 BV400 CAL *+2 BUILD CAL BLANKS BV400 FP047520 | 21071 0074 00 4 11413 TSX PRGMR,4 BV410 FP047530 | 21072 -0500 00 0 00000 CAL .. GET OBJECT LOC OF BLANKS BV420 FP047540 | 21073 -0500 00 0 17577 CAL BND26 BV430 FP047550 | 21074 0074 00 4 11455 TSX SADDR+1,4 BV440 FP047560 21075 -0500 00 0 21077 CAL *+2 BUILD SLW 0,2 BV450 FP047570 | 21076 0074 00 4 11413 TSX PRGMR,4 BV460 FP047580 | 21077 0602 00 2 00000 SLW 0,2 BV470 FP047590 | 21100 -0500 00 0 21102 CAL *+2 BUILD TIX*1,2,1 BV540 FP047600 | 21101 0074 00 4 11413 TSX PRGMR,4 BV550 FP047610 1 LISTING OF 12/01/64 PAGE 106 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 21102 2 00001 2 00000 TIX ..,2,1 BV560 FP047620 | 21103 -0500 00 0 17514 CAL BNA40 PLUS 1 TO TIX BV570 FP047630 21104 0074 00 4 11465 TSX PADDR,4 BV580 FP047640 | 21105 -0760 00 0 00141 SLT 1 MULTI FULL WDS BLANKS BV590 FP047650 | 21106 0020 00 0 20171 TRA BQ930 TO REF 7-6 BV600 FP047660 | 21107 -0500 00 0 21111 CAL *+2 BUILD *-3,4,1 BV610 FP047670 | 21110 0074 00 4 11413 TSX PRGMR,4 BV620 FP047680 21111 2 00001 4 00000 TIX ..,4,1 BV630 FP047690 | 21112 0502 00 0 11030 CLS NMBR3 MINUS 3 FOR TIX BV640 FP047700 | 21113 0074 00 4 11465 TSX PADDR,4 BV650 FP047710 | 21114 0020 00 0 20171 TRA BQ930 TO REF 7-6 BV660 FP047720 | * LENGTHEN FIELD TO THE LEFT BW000 FP047730 21115 -0500 00 2 00002 BW010 CAL 2,2 TEST FOR PACKED BW010 FP047740 | 21116 -0320 00 0 17535 ANA BNC20 BW020 FP047750 | 21117 -0100 00 0 21722 TNZ BE100 PACKED LENGTHEN LEFT BW030 FP047760 | 21120 -0500 00 2 00002 CAL 2,2 TEST FOR BINARY BW040 FP047770 | 21121 -0320 00 0 17572 ANA BND21 BW050 FP047780 21122 0100 00 0 24202 TZE BDA05+3 BINARY) GO TO NO CHANGE THIS FIELD BW060 FP047790 | 21123 -0500 00 2 00004 CAL 4,2 OLD BIT BW070 FP047800 | 21124 -0320 00 0 17557 ANA BND10 BW080 FP047810 | 21125 0771 00 0 00006 ARS 6 BW090 FP047820 | 21126 0602 00 0 07751 SLW B1020 BW092 FP047830 21127 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BW094 FP047840 | 21130 0500 00 0 07747 CLA B1000 BW098 FP047850 | 21131 0601 00 0 17561 STO BND12 STORED BW100 FP047860 | 21132 -0500 00 2 00017 CAL 15,2 NEW BIT BW110 FP047870 | 21133 -0320 00 0 17557 ANA BND10 BW120 FP047880 21134 0771 00 0 00006 ARS 6 BW130 FP047890 | 21135 0602 00 0 07751 SLW B1020 BW132 FP047900 | 21136 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BW134 FP047910 | 21137 0500 00 0 07747 CLA B1000 BW138 FP047920 | 21140 0601 00 0 17565 STO BND16 STORED BW140 FP047930 21141 0602 00 0 17620 SLW BND43 OUTPUT BIT BW142 FP047940 | 21142 -0500 00 2 00002 CAL 2,2 OLD FIELD LENGTH BW150 FP047950 | 21143 0560 00 2 00003 LDQ 3,2 BW160 FP047960 | 21144 -0763 00 0 00006 LGL 6 BW170 FP047970 | 21145 -0320 00 0 17560 ANA BND11 BW180 FP047980 21146 0602 00 0 07751 SLW B1020 BW182 FP047990 | 21147 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BW184 FP048000 | 21150 0500 00 0 07747 CLA B1000 BW188 FP048010 | 21151 0601 00 0 17573 STO BND22 STORED BW190 FP048020 | 21152 -0130 00 0 00000 XCL DETERMINE THE LENGTH OF THEBW200 FP048030 21153 0754 00 0 00000 PXA 0,0 OLD FIELD IN WORDS BW210 FP048040 | 21154 0220 00 0 17563 DVH BND14 36 BW220 FP048050 | 21155 0100 00 0 21157 TZE *+2 TEST FOR REMAINDER BW230 FP048060 | 21156 0500 00 0 17514 CLA BNA40 IF REMAINDER ADD ONE BW240 FP048070 | 21157 -0600 00 0 17574 STQ BND23 BW250 FP048080 21160 0400 00 0 17574 ADD BND23 BW260 FP048090 | 21161 0601 00 0 17574 STO BND23 STORED BW270 FP048100 | 21162 -0500 00 2 00003 CAL 3,2 OLD FIRST WORD POSITION BW280 FP048110 | 21163 0560 00 2 00004 LDQ 4,2 BW290 FP048120 | 21164 -0763 00 0 00022 LGL 18 BW300 FP048130 21165 -0320 00 0 17540 ANA BNC50 BW310 FP048140 | 21166 0602 00 0 07751 SLW B1020 BW312 FP048150 | 21167 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BW314 FP048160 | 1 LISTING OF 12/01/64 PAGE 107 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 21170 0500 00 0 07747 CLA B1000 BW318 FP048170 | 21171 0602 00 0 17575 SLW BND24 STORED BW320 FP048180 | 21172 0402 00 0 17543 SUB BNC80 FIRST LOCATION OF LAST AXT BW330 FP048190 | 21173 -0120 00 0 21175 TMI *+2 BW335 FP048200 21174 -0100 00 0 21204 TNZ BW420 LAST LOOP IS NEEDED BW340 FP048210 | 21175 -0500 00 0 17570 CAL BND19 GENERATE NEXT INSTRUCTIONS BW350 FP048220 | 21176 0621 00 0 11451 STA H0080 OVER LAST LOOP BW360 FP048230 | 21177 -0500 00 0 17567 CAL BND18 BW370 FP048240 | 21200 0621 00 0 11436 STA G0080 BW380 FP048250 21201 -0500 00 0 17566 CAL BND17 BW390 FP048260 | 21202 0621 00 0 11423 STA F0080 BW400 FP048270 | 21203 0020 00 0 21206 TRA *+3 BW410 FP048280 | 21204 0522 00 0 11422 BW420 XEC F0080-1 LOAD IR 4 BW420 FP048290 | 21205 -0602 60 0 17556 ORS* BND00 STORES ADDRESS IN AXT LOOP BW430 FP048300 21206 0754 00 0 00000 PXA 0,0 BW440 FP048310 | 21207 0520 00 0 17561 ZET BND12 OLD BIT TEST BW442 FP048320 | 21210 0400 00 0 17514 ADD BNA40 NOT LEFT JUSTIFIED SO ADD 1BW444 FP048330 | 21211 0400 00 0 17575 ADD BND24 PLUS FIRST WORD POSITION BW450 FP048340 | 21212 0601 00 0 17543 STO BNC80 PRODUCES FIRST WORD OF NEXTBW460 FP048350 21213 -0500 00 2 00015 CAL 13,2 NEW FIELD LENGTH BW470 FP048360 | 21214 0560 00 2 00016 LDQ 14,2 BW480 FP048370 | 21215 -0763 00 0 00006 LGL 6 BW490 FP048380 | 21216 -0320 00 0 17560 ANA BND11 BW500 FP048390 | 21217 0602 00 0 07751 SLW B1020 BW501 FP048400 21220 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BW502 FP048410 | 21221 0500 00 0 07747 CLA B1000 BW504 FP048420 | 21222 0602 00 0 17616 SLW BND41 OUTPUT LENGTH BW505 FP048430 | 21223 0402 00 0 17573 SUB BND22 MINUS OLD FIELD LENGTH BW506 FP048440 | 21224 0402 00 0 17561 SUB BND12 INPUT BIT BW510 FP048450 21225 -0120 00 0 21373 TMI BX710 BOTH FIELDS HAVE THE SAME BW550 FP048460 | 21226 0100 00 0 21373 TZE BX710 NUMBER OF WORDS BW560 FP048470 | 21227 -0130 00 0 00000 BW570 XCL CHANGE THE NUMBER OF BITS BW570 FP048480 | 21230 0754 00 0 00000 PXA 0,0 ADDED TO WORDS BW580 FP048490 | 21231 0220 00 0 17563 DVH BND14 36 BW590 FP048500 21232 -0600 00 0 17575 STQ BND24 STORED = OF ADDITIONAL OUTPBW600 FP048510 | 21233 0100 00 0 21262 TZE BW900 OUTPUT IS LEFT JUSTIFIED BW610 FP048520 | 21234 0621 00 0 21243 STA BW690 = OF BITS IN FIRST WORD BW620 FP048530 | 21235 -0500 00 0 21237 CAL *+2 BUILD CAL BW630 FP048540 | 21236 0074 00 4 11413 TSX PRGMR,4 BW640 FP048550 21237 -0500 00 0 00000 CAL 0 BW650 FP048560 | 21240 -0500 00 0 17577 CAL BND26 LOCATION OF OBJECTS BLANK SBW660 FP048570 | 21241 0074 00 4 11455 TSX SADDR+1,4 TIETHEADDRESSOFBLANKSTOTHEOBW670 FP048580 | 21242 -0500 00 0 17571 CAL BND20 ALL ONES BW680 FP048590 | 21243 0767 00 0 00000 BW690 ALS .. = OF BITS IN FIRST WORD BW690 FP048600 21244 0760 00 0 00006 COM BUILD MASK BW700 FP048610 | 21245 0074 00 4 11426 TSX STORR,4 BW710 FP048620 | 21246 -0500 00 0 21250 CAL *+2 BUILD ANA BW720 FP048630 | 21247 0074 00 4 11413 TSX PRGMR,4 BW730 FP048640 | 21250 -0320 00 0 00000 ANA .. BW740 FP048650 21251 0074 00 4 11454 TSX SADDR,4 TIE THE ADDRESS TO THE OPERBW750 FP048660 | 21252 -0500 00 0 21254 CAL *+2 BUILD SLW 0,2 BW760 FP048670 | 21253 0074 00 4 11413 TSX PRGMR,4 BW770 FP048680 | 21254 0602 00 2 00000 SLW 0,2 BW780 FP048690 | 21255 -0500 00 0 21257 CAL *+2 BUILD TIX 2,1 BW850 FP048700 21256 0074 00 4 11413 TSX PRGMR,4 BW860 FP048710 | 1 LISTING OF 12/01/64 PAGE 108 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 21257 2 00001 2 00000 TIX ..,2,1 BW870 FP048720 21260 -0500 00 0 17514 CAL BNA40 BUILD ADDRESS PLUS 1 BW880 FP048730 | 21261 0074 00 4 11465 TSX PADDR,4 BW890 FP048740 | 21262 -0500 00 0 17575 BW900 CAL BND24 = OF ADDITIONAL WORDS BW900 FP048750 | 21263 -0340 00 0 17514 LAS BNA40 1 BW910 FP048760 | 21264 0020 00 0 21271 TRA *+5 GREATER THAN ONE BW920 FP048770 21265 0020 00 0 21276 TRA BX020 EQUAL SKIP BUILD AXT BW930 FP048780 | 21266 0520 00 0 17561 ZET BND12 OLD BIT TEST BW940 FP048790 | 21267 0020 00 0 21324 TRA BX300 NOT LEFT JUSTIFIED GO TO D BW950 FP048800 | 21270 0020 00 0 20171 TRA BQ930 7-6 FINISHED BW960 FP048810 | 21271 0760 00 0 00141 SLN 1 BW970 FP048820 21272 0621 00 0 21275 STA *+3 STORE THE NUMBER OF ADDITIOBW980 FP048830 | 21273 -0500 00 0 21275 CAL *+2 BLANKS TO ADDRESS OF BW990 FP048840 | 21274 0074 00 4 11413 TSX PRGMR,4 AXT ..,4 BX000 FP048850 | 21275 0774 00 4 00000 AXT ..,4 BX010 FP048860 | 21276 -0500 00 0 21300 BX020 CAL *+2 BUILD CAL BX020 FP048870 21277 0074 00 4 11413 TSX PRGMR,4 BX030 FP048880 | 21300 -0500 00 0 00000 CAL .. BX040 FP048890 | 21301 -0500 00 0 17577 CAL BND26 LOCATION OF OBJECT BLANKS BX050 FP048900 | 21302 0074 00 4 11455 TSX SADDR+1,4 BX060 FP048910 | 21303 -0500 00 0 21305 CAL *+2 BUILD SLW 0,2 BX070 FP048920 21304 0074 00 4 11413 TSX PRGMR,4 BX080 FP048930 | 21305 0602 00 2 00000 SLW 0,2 BX090 FP048940 | 21306 -0500 00 0 21310 CAL *+2 BUILD TIX ..,2,1 BX160 FP048950 | 21307 0074 00 4 11413 TSX PRGMR,4 BX170 FP048960 | 21310 2 00001 2 00000 TIX ..,2,1 BX180 FP048970 21311 -0500 00 0 17514 CAL BNA40 BUILD RELATIVE ADDRESS PLUSBX190 FP048980 | 21312 0074 00 4 11465 TSX PADDR,4 ONE TO ADDRESS OF TIX BX200 FP048990 | 21313 -0760 00 0 00141 SLT 1 TEST TO SEE IF MORE BX210 FP049000 | 21314 0020 00 0 21322 TRA BX280 THAN ONE TIME THRU LOOP BX220 FP049010 | 21315 -0500 00 0 21317 CAL *+2 BUILD TIX ..4,1 BX230 FP049020 21316 0074 00 4 11413 TSX PRGMR,4 BX240 FP049030 | 21317 2 00001 4 00000 TIX ..,4,1 BX250 FP049040 | 21320 0502 00 0 11030 CLS NMBR3 RELATIVE MINUS 3 BX260 FP049050 | 21321 0074 00 4 11465 TSX PADDR,4 MINUS FIVE TO ADDRESS OF TIBX270 FP049060 | 21322 -0520 00 0 17561 BX280 NZT BND12 OLD FIELD LEFT JUSTIFIED BX280 FP049070 21323 0020 00 0 20171 TRA BQ930 YES TRA TO 7-6 BX290 FP049080 | 21324 -0500 00 0 21326 BX300 CAL *+2 BUILD CAL 0,1 BX300 FP049090 | 21325 0074 00 4 11413 TSX PRGMR,4 BX310 FP049100 | 21326 -0500 00 1 00000 CAL 0,1 BX320 FP049110 | 21327 -0500 00 0 21331 CAL *+2 BUILD SLW 0,2 BX330 FP049120 21330 0074 00 4 11413 TSX PRGMR,4 BX340 FP049130 | 21331 0602 00 2 00000 SLW 0,2 BX350 FP049140 | 21332 -0500 00 0 21334 CAL *+2 BUILD CAL BX360 FP049150 | 21333 0074 00 4 11413 TSX PRGMR,4 BX370 FP049160 | 21334 -0500 00 0 00000 CAL .. BX380 FP049170 21335 -0500 00 0 17577 CAL BND26 LOC. OF OBJECT ADDRESS FOR BX390 FP049180 | 21336 0074 00 4 11455 TSX SADDR+1,4 BX400 FP049190 | 21337 -0760 00 0 00141 BX402 SLT 1 BX402 FP049200 | 21340 0020 00 0 21343 TRA *+3 BX404 FP049210 | 21341 -0500 00 0 17561 CAL BND12 BX406 FP049220 21342 0020 00 0 21350 TRA BX460 BX408 FP049230 | 21343 -0500 00 0 17561 CAL BND12 OLD BIT BX410 FP049240 | 21344 0621 00 0 21346 STA *+2 BX420 FP049250 | 21345 -0500 00 0 17571 CAL BND20 ALL ONES IN BITS BX430 FP049260 | 1 LISTING OF 12/01/64 PAGE 109 DICT (9PAC31). MOVE INPUT TO OUTPUT | | 21346 0771 00 0 00000 ARS .. BX440 FP049270 | 21347 0760 00 0 00006 COM BX450 FP049280 | 21350 0074 00 4 11426 BX460 TSX STORR,4 MASK BX460 FP049290 21351 -0500 00 0 21353 CAL *+2 BUILD ANA BX470 FP049300 | 21352 0074 00 4 11413 TSX PRGMR,4 BX480 FP049310 | 21353 -0320 00 0 00000 ANA .. BX490 FP049320 | 21354 0074 00 4 11454 TSX SADDR,4 COMBINE OBJECT STORAGE WITHBX500 FP049330 | 21355 -0500 00 0 21357 CAL *+2 BUILD ORS 0,2 BX510 FP049340 21356 0074 00 4 11413 TSX PRGMR,4 BX520 FP049350 | 21357 -0602 00 2 00000 ORS 0,2 BX530 FP049360 | 21360 -0500 00 0 21362 CAL *+2 BUILD TIX ..,1,1 BX600 FP049370 | 21361 0074 00 4 11413 TSX PRGMR,4 BX610 FP049380 | 21362 2 00001 1 00000 TIX ..,1,1 BX620 FP049390 21363 -0500 00 0 17514 CAL BNA40 RELATIVE ADDRESS PLUS 1 BX630 FP049400 | 21364 0074 00 4 11465 TSX PADDR,4 BX640 FP049410 | 21365 -0500 00 0 21367 CAL *+2 BUILD TIX ..,2,1 BX650 FP049420 | 21366 0074 00 4 11413 TSX PRGMR,4 BX660 FP049430 | 21367 2 00001 2 00000 TIX ..,2,1 BX670 FP049440 21370 -0500 00 0 17514 CAL BNA40 RELATIVE ADDRESS PLUS 1 BX680 FP049450 | 21371 0074 00 4 11465 TSX PADDR,4 BX690 FP049460 | 21372 0020 00 0 20171 TRA BQ930 7-6 BX700 FP049470 | 21373 0621 00 0 21403 BX710 STA BX780 BX710 FP049480 | 21374 -0500 00 0 17561 CAL BND12 OLD BIT BX720 FP049490 21375 0402 00 0 17565 SUB BND16 NEW BIT BX730 FP049500 | 21376 0621 00 0 21400 STA *+2 BX740 FP049510 | 21377 -0500 00 0 17571 CAL BND20 ALL BITS ARE 1 BX750 FP049520 | 21400 0771 00 0 00000 ARS .. BX760 FP049530 | 21401 0760 00 0 00006 COM BX770 FP049540 21402 -0320 00 0 17571 ANA BND20 BX775 FP049550 | 21403 0771 00 0 00000 BX780 ARS .. BX780 FP049560 | 21404 0602 00 0 17561 SLW BND12 MASK IF INPUT + OUTPUT ARE BX790 FP049570 | 21405 0760 00 0 00141 SLN 1 X795 FP049580 | 21406 0020 00 0 21324 TRA BX300 THE SAME LENGTH BX800 FP049590 21407 -0500 00 0 17561 BX790 CAL BND12 BX810 FP049600 | 21410 0020 00 0 21350 TRA BX460 BX820 FP049610 | * UNPACKED BINARY-SH RT-LE RT BY000 FP049620 | 21411 0500 00 0 17561 BY005 CLA BND12 BY005 FP049630 | 21412 0400 00 0 17514 ADD BNA40 BY006 FP049640 21413 0601 00 0 17543 STO BNC80 BY007 FP049650 | 21414 -0500 00 2 00002 BY010 CAL 2,2 OLD LENGTH BY010 FP049660 | 21415 0560 00 2 00003 LDQ 3,2 SHORTEN RIGHT BY014 FP049670 | 21416 -0763 00 0 00006 LGL 6 BY016 FP049680 | 21417 -0320 00 0 17560 ANA BND11 BY018 FP049690 21420 0602 00 0 07751 SLW B1020 BY020 FP049700 | 21421 0074 00 4 07570 TSX B0010,4 BY022 FP049710 | 21422 0500 00 0 07747 CLA B1000 BY024 FP049720 | 21423 0402 00 0 17616 SUB BND41 BY026 FP049730 | 21424 0601 00 0 17562 STO BND13 DIFFERENCE BY028 FP049740 21425 0600 00 0 16702 STZ AAG95 BY030 FP049750 | 21426 0020 00 0 21441 TRA BY056 BY032 FP049760 | 21427 -0500 00 2 00015 BY034 CAL 13,2 LENGTHEN RIGHT BY034 FP049770 | 21430 0560 00 2 00016 LDQ 14,2 NEW LENGTH BY036 FP049780 | 21431 -0763 00 0 00006 LGL 6 BY038 FP049790 21432 -0320 00 0 17560 ANA BND11 BY040 FP049800 | 21433 0602 00 0 07751 SLW B1020 BY042 FP049810 | 1 LISTING OF 12/01/64 PAGE 110 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 21434 0074 00 4 07570 TSX B0010,4 BY044 FP049820 | 21435 0500 00 0 07747 CLA B1000 BY046 FP049830 | 21436 0402 00 0 17574 SUB BND23 OLD LENGTH BY048 FP049840 | 21437 0601 00 0 17562 STO BND13 DIFFERENCE BY050 FP049850 | 21440 -0625 00 0 16702 BY052 STL AAG95 LENGTHEN RIGHT BY052 FP049860 *CALCULATE N AND N OVER 2 BY054 FP049870 | 21441 0560 00 0 17562 BY056 LDQ BND13 BY056 FP049880 | 21442 0500 00 0 11073 CLA EQUIV+12 24 BY058 FP049890 | 21443 0040 00 0 21447 TLQ BY068 DIVIDE BY060 FP049900 | 21444 0500 00 0 17562 CLA BND13 BY062 FP049910 21445 0402 00 0 17514 BY064 SUB BNA40 BY064 FP049920 | 21446 0131 00 0 00000 BY066 XCA BY066 FP049930 | 21447 -0754 00 0 00000 BY068 PXD 0,0 DIVIDE BY068 FP049940 | 21450 0220 00 0 17630 DVH BND51 3 BY070 FP049950 | 21451 0131 00 0 00000 XCA BY072 FP049960 21452 0621 00 0 21453 STA *+1 BY074 FP049970 | 21453 0774 00 4 00000 AXT ..,4 BY076 FP049980 | 21454 0560 00 0 17514 LDQ BNA40 BY078 FP049990 | 21455 0200 00 0 17523 MPY BNA90 10 BY080 FP050000 | 21456 2 00001 4 21455 TIX *-1,4,1 BY082 FP050010 21457 -0600 00 0 17550 STQ BNC94 10 TO THE N BY0830FP050020 | 21460 -0763 00 0 00043 LGL 35 DIVIDE BY 2 BY0831FP050030 | 21461 0601 00 0 17551 STO BNC95 10 TO THE N OVER 2 BY0832FP050040 | *BUILD INSTRUCTIONS BY084 FP050050 | 21462 0074 00 4 21546 TSX BD010,4 BY110 FP050060 21463 0520 00 0 16702 ZET AAG95 LENGTHEN OR SHORTEN BY112 FP050070 | 21464 0020 00 0 21536 TRA BY400 LENGTHEN BY114 FP050080 | 21465 -0500 00 0 21467 CAL *+2 BUILD CAL 0,1 SHORTEN BY116 FP050090 | 21466 0074 00 4 11413 TSX PRGMR,4 BY118 FP050100 | 21467 -0500 00 1 00000 CAL 0,1 BY120 FP050110 21470 -0500 00 0 17551 CAL BNC95 10 TO N/2, ROUND BY122 FP050120 | 21471 0074 00 4 11426 TSX STORR,4 BY124 FP050130 | 21472 -0500 00 0 21474 CAL *+2 BUILD ADD.. BY126 FP050140 | 21473 0074 00 4 11413 TSX PRGMR,4 BY128 FP050150 | 21474 0400 00 0 00000 ADD .. BY130 FP050160 21475 0074 00 4 11454 TSX SADDR,4 RELATE ADD AND 10N/2 BY132 FP050170 | 21476 -0500 00 0 21500 CAL *+2 BUILD XCL(BECAUSE BY134 FP050180 | 21477 0074 00 4 11413 TSX PRGMR,4 SIGN IS IN P BIT) BY136 FP050190 | 21500 -0130 00 0 00000 XCL BY138 FP050200 | 21501 -0500 00 0 21503 CAL *+2 BUILD PXD 0,0 BY140 FP050210 21502 0074 00 4 11413 TSX PRGMR,4 BY142 FP050220 | 21503 -0754 00 0 00000 PXD 0,0 BY144 FP050230 | 21504 -0500 00 0 21506 CAL *+2 BUILD DVH BY146 FP050240 | 21505 0074 00 4 11413 TSX PRGMR,4 BY148 FP050250 | 21506 0220 00 0 00000 DVH .. BY150 FP050260 21507 -0500 00 0 17550 BY152 CAL BNC94 10 TO N BY154 FP050270 | 21510 0074 00 4 11426 TSX STORR,4 BY158 FP050280 | 21511 0074 00 4 11454 TSX SADDR,4 BY162 FP050290 | 21512 -0500 00 0 21514 CAL *+2 BUILD XCA BY166 FP050300 | 21513 0074 00 4 11413 TSX PRGMR,4 BY170 FP050310 21514 0131 00 0 00000 XCA BY174 FP050320 | 21515 -0500 00 0 21517 CAL *+2 BUILD TNZ *+2 BY178 FP050330 | 21516 0074 00 4 11413 TSX PRGMR,4 BY182 FP050340 | 21517 -0100 00 0 00000 TNZ .. BY186 FP050350 | 21520 0500 00 0 17513 CLA BNA30 TWO BY190 FP050360 1 LISTING OF 12/01/64 PAGE 111 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 21521 0074 00 4 11465 TSX PADDR,4 BY194 FP050370 | 21522 -0500 00 0 21524 CAL *+2 BUILD SSP BY198 FP050380 21523 0074 00 4 11413 TSX PRGMR,4 BY202 FP050390 | 21524 0760 00 0 00003 SSP BY210 FP050400 | 21525 -0500 00 0 21527 CAL *+2 BUILD STO 0,2 BY220 FP050410 | 21526 0074 00 4 11413 TSX PRGMR,4 BY230 FP050420 | 21527 0601 00 2 00000 STO 0,2 BY240 FP050430 21530 -0760 00 0 00141 SLT 1 TEST G INDICATOR BY250 FP050440 | 21531 0020 00 0 21533 TRA *+2 BY260 FP050450 | 21532 0074 00 4 21613 TSX BD400,4 TO BIN SUBRTN 2-RETURN +1 BY270 FP050460 | 21533 -0500 00 0 17514 CAL BNA40 1 BY364 FP050470 | 21534 0602 00 0 17616 SLW BND41 OUTPUT LENGTH BY365 FP050480 21535 0020 00 0 20445 TRA BS700 BY370 FP050490 | 21536 -0500 00 0 21540 BY400 CAL *+2 LENGTHEN BY400 FP050500 | 21537 0074 00 4 11413 TSX PRGMR,4 BY410 FP050510 | 21540 0560 00 1 00000 LDQ 0,1 BY420 FP050520 | 21541 -0500 00 0 21543 CAL *+2 BY430 FP050530 21542 0074 00 4 11413 TSX PRGMR,4 BY440 FP050540 | 21543 0200 00 0 00000 MPY .. BY450 FP050550 | 21544 0600 00 0 16702 STZ AAG95 BY460 FP050560 | 21545 0020 00 0 21507 TRA BY152 BY470 FP050570 | * CREDIT FOR SUMMARY RECORDS SUBROUTINE BD000 FP050580 21546 0634 00 4 21563 BD010 SXA BD140,4 BD010 FP050590 | 21547 -0500 00 2 00001 CAL 1,2 PICK OUT RECORD TYPE AND FIBD020 FP050600 | 21550 0560 00 2 00002 LDQ 2,2 * BD030 FP050610 | 21551 -0763 00 0 00006 LGL 6 * BD040 FP050620 | 21552 0602 00 0 17603 SLW BND30 * BD050 FP050630 21553 0534 00 1 17601 LXA BND28,1 PICK UP LOCATION IN SUM TABBD060 FP050640 | 21554 -0500 00 0 17603 BD070 CAL BND30 COMPARE RECORD TYPE AND FIEBD070 FP050650 | 21555 -0340 00 1 71545 LAS SUTBL,1 NUMBER WITH SUM TABLE BD080 FP050660 | 21556 1 77775 1 21555 TXI *-1,1,-3 CONTINUE SEARCH BD090 FP050670 | 21557 0020 00 0 21567 TRA BD180 BD100 FP050680 21560 -0760 00 0 00141 SLT 1 * BD110 FP050690 | 21561 0020 00 0 21565 TRA *+4 NO G RECORDS BD120 FP050700 | 21562 0760 00 0 00141 SLN 1 TURN INDICATOR BACK ON BD130 FP050710 | 21563 0774 00 4 00000 BD140 AXT ..,4 RETURN TO MAIN BD140 FP050720 | 21564 0020 00 4 00001 TRA 1,4 GENERATOR PROGRAM BD150 FP050730 21565 0634 00 1 17601 SXA BND28,1 SAVE LOCATION IN SUM TABLE BD160 FP050740 | 21566 0020 00 0 21563 TRA *-3 BD170 FP050750 | 21567 0760 00 0 00141 BD180 SLN 1 BD180 FP050760 | 21570 -0500 00 1 71547 CAL SUTBL+2,1 SEE IF G RECORD IS AN INSERBD190 FP050770 | 21571 0767 00 0 00001 ALS 1 BD200 FP050780 21572 -0760 00 0 00001 PBT BD210 FP050790 | 21573 0020 00 0 21575 TRA *+2 G IS NOT AN INSERT BD220 FP050800 | 21574 1 77775 1 21554 TXI BD070,1,-3 RETURN TO SEARCH BD230 FP050810 | 21575 -0500 00 1 71547 CAL SUTBL+2,1 BUILD CLA WITH BD240 FP050820 | 21576 0621 00 0 21601 STA *+3 OBJECT SUM TBL ADDR BD250 FP050830 21577 -0500 00 0 21601 CAL *+2 BD260 FP050840 | 21600 0074 00 4 11413 TSX PRGMR,4 BD270 FP050850 | 21601 0500 00 0 00000 CLA .. BD280 FP050860 | 21602 -0500 00 0 21604 CAL *+2 BUILD SUB 0,1 BD290 FP050870 | 21603 0074 00 4 11413 TSX PRGMR,4 BD300 FP050880 21604 0402 00 1 00000 SUB 0,1 BD310 FP050890 | 21605 -0500 00 1 71547 CAL SUTBL+2,1 BUILD STO WITH BD320 FP050900 | 21606 0621 00 0 21611 STA *+3 OBJECT SUM TBL ADDR BD330 FP050910 | 1 LISTING OF 12/01/64 PAGE 112 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 21607 -0500 00 0 21611 CAL *+2 BD340 FP050920 | 21610 0074 00 4 11413 TSX PRGMR,4 BD350 FP050930 | 21611 0601 00 0 00000 STO .. BD360 FP050940 | 21612 1 77775 1 21554 TXI BD070,1,-3 RETURN TO SEARCH BD370 FP050950 * DEDIT FOR SUMMARY RECORDS SUBROUTINE BD399 FP050960 | 21613 0634 00 4 21622 BD400 SXA BD470,4 BD400 FP050970 | 21614 0534 00 1 17601 LXA BND28,1 PICK UP LOCATION IN SUM TABBD410 FP050980 | 21615 -0500 00 0 17603 BD420 CAL BND30 PICK UP REC TYPE AND FIELD BD420 FP050990 | 21616 -0340 00 1 71545 LAS SUTBL,1 COMPARE WITH SUM TABLES BD430 FP051000 21617 1 77775 1 21616 TXI *-1,1,-3 CONTINUE SEARCH BD440 FP051010 | 21620 0020 00 0 21624 TRA *+4 G RECORD BD450 FP051020 | 21621 0634 00 1 17601 SXA BND28,1 SAVE LOCATION IN SUM TABLE BD460 FP051030 | 21622 0774 00 4 00000 BD470 AXT ..,4 RETURN TO MAIN PART BD470 FP051040 | 21623 0020 00 4 00001 TRA 1,4 OF GENERATING PROGRAM BD480 FP051050 21624 0500 00 1 71547 CLA SUTBL+2,1 TEST TO SEE IF DELETE G BD490 FP051060 | 21625 0120 00 0 21627 TPL *+2 BD500 FP051070 | 21626 1 77775 1 21615 TXI BD420,1,-3 DELETE RETURN TO SEARCH BD510 FP051080 | 21627 -0500 00 1 71547 BD520 CAL SUTBL+2,1 BUILD CLA WITH BD520 FP051090 | 21630 0621 00 0 21633 STA *+3 OBJ SUM TBL ADDR BD530 FP051100 21631 -0500 00 0 21633 CAL *+2 BD540 FP051110 | 21632 0074 00 4 11413 TSX PRGMR,4 BD550 FP051120 | 21633 0500 00 0 00000 CLA .. BD560 FP051130 | 21634 -0500 00 0 21636 CAL *+2 BUILD ADD 0,2 BD570 FP051140 | 21635 0074 00 4 11413 TSX PRGMR,4 BD580 FP051150 21636 0400 00 2 00000 ADD 0,2 BD590 FP051160 | 21637 -0500 00 1 71547 CAL SUTBL+2,1 BUILD STO BD600 FP051170 | 21640 0621 00 0 21643 STA *+3 BD610 FP051180 | 21641 -0500 00 0 21643 CAL *+2 BD620 FP051190 | 21642 0074 00 4 11413 TSX PRGMR,4 BD630 FP051200 21643 0601 00 0 00000 STO .. BD640 FP051210 | 21644 1 77775 1 21615 TXI BD420,1,-3 BD650 FP051220 | * SUMMATION FOR G DEFINITION INSERT OR DELETE BD669 FP051230 | 21645 -0500 00 2 00001 BD670 CAL 1,2 PICK UP REC TYPE AND BD670 FP051240 | 21646 0560 00 2 00002 LDQ 2,2 FIELD NUMBER BD680 FP051250 21647 -0763 00 0 00006 LGL 6 BD690 FP051260 | 21650 0602 00 0 17603 SLW BND30 BD700 FP051270 | 21651 -0500 00 0 17514 CAL BNA40 1 BD701 FP051280 | 21652 0602 00 0 17616 SLW BND41 OUTPUT LENGTH BD702 FP051290 | 21653 0534 00 1 17601 LXA BND28,1 PICK UP LAST ADDRESS OF SUMBD710 FP051300 21654 -0500 00 0 17603 BD720 CAL BND30 RECORD TYPE AND FIELD NUMBEBD720 FP051310 | 21655 -0340 00 1 71545 LAS SUTBL,1 COMPARED WITH SUM TABLE BD730 FP051320 | 21656 1 77775 1 21655 TXI *-1,1,-3 REPEAT SEARCH BD740 FP051330 | 21657 0020 00 0 21662 TRA *+3 BD750 FP051340 | 21660 0634 00 1 17601 SXA BND28,1 SAVE LOC IN SUTBL BD760 FP051350 21661 0020 00 0 20171 TRA BQ930 FINISHED GO TO 7-6 BD770 FP051360 | 21662 0500 00 1 71547 CLA SUTBL+2,1 BRING IN OPERATION ADDRESS BD780 FP051370 | 21663 -0120 00 0 21707 TMI BD990 TEST FOR G DELETE BD790 FP051380 | 21664 0767 00 0 00001 ALS 1 TEST FOR INSERT G RECORD BD800 FP051390 | 21665 -0760 00 0 00001 PBT BD810 FP051400 21666 1 77775 1 21654 TXI BD720,1,-3 G IS NOT AN INSERT BD820 FP051410 | 21667 -0500 00 1 71547 BD830 CAL SUTBL+2,1 BUILD CLA BD830 FP051420 | 21670 0621 00 0 21673 STA *+3 BD840 FP051430 | 21671 -0500 00 0 21673 CAL *+2 BD850 FP051440 | 21672 0074 00 4 11413 TSX PRGMR,4 BD860 FP051450 21673 0500 00 0 00000 CLA .. BD870 FP051460 | 1 LISTING OF 12/01/64 PAGE 113 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 21674 -0500 00 0 21711 CAL BE010 BUILD SUB 0,1 BD880 FP051470 21675 -0760 00 0 00141 SLT 1 TEST FOR TYPE OF G RECORD BD890 FP051480 | 21676 -0500 00 0 21700 CAL *+2 INSERT BUILD ADD 0,2 BD900 FP051490 | 21677 0074 00 4 11413 TSX PRGMR,4 BD910 FP051500 | 21700 0400 00 2 00000 ADD 0,2 BD920 FP051510 | 21701 -0500 00 1 71547 CAL SUTBL+2,1 BD930 FP051520 21702 0621 00 0 21705 STA *+3 BD940 FP051530 | 21703 -0500 00 0 21705 CAL *+2 BD950 FP051540 | 21704 0074 00 4 11413 TSX PRGMR,4 BD960 FP051550 | 21705 0601 00 0 00000 STO .. BD970 FP051560 | 21706 1 77775 1 21654 TXI BD720,1,-3 RETURN TO SEARCH BD980 FP051570 21707 0760 00 0 00141 BD990 SLN 1 G IS A DELETE RECORD BD990 FP051580 | 21710 0020 00 0 21667 TRA BD830 BE000 FP051590 | 21711 0402 00 1 00000 BE010 SUB 0,1 BE010 FP051600 | 21712 0754 00 0 00000 BE020 PXA 0,0 SHORTEN LEFT ENTRY BE020 FP051610 | 21713 0621 00 0 22027 STA BE510 STORES ZERO FOR RETURN BE030 FP051620 21714 0600 00 0 17612 STZ BND37 ZERO SHOWING SHORTENING BE040 FP051630 | 21715 0020 00 0 21731 TRA BE170 BE050 FP051640 | 21716 0500 00 0 17514 BE060 CLA BNA40 SHORTEN RIGHT ENTRY BE060 FP051650 | 21717 0621 00 0 22027 STA BE510 STORES ONE FOR RETURN BE070 FP051660 | 21720 0600 00 0 17612 STZ BND37 ZERO SHOWING SHORTENING BE080 FP051670 21721 0020 00 0 21731 TRA BE170 BE090 FP051680 | 21722 0500 00 0 17513 BE100 CLA BNA30 LENGTHEN LEFT ENTRY BE100 FP051690 | 21723 0621 00 0 22027 STA BE510 STORES TWO FOR RETURN BE110 FP051700 | 21724 -0625 00 0 17612 STL BND37 NOT ZERO SHOWING LENGTHENINBE120 FP051710 | 21725 0020 00 0 21731 TRA BE170 BE130 FP051720 21726 0500 00 0 17630 BE140 CLA BND51 LENGTHEN RIGHT ENTRY BE140 FP051730 | 21727 0621 00 0 22027 STA BE510 STORES THREE FOR RETURN BE150 FP051740 | 21730 -0625 00 0 17612 STL BND37 NOT ZERO SHOWING LENGTHENINBE160 FP051750 | 21731 -0500 00 2 00015 BE170 CAL 13,2 PICK UP NEW FIELD LENGTH BE170 FP051760 | 21732 0560 00 2 00016 LDQ 14,2 BE180 FP051770 21733 -0763 00 0 00006 LGL 6 BE190 FP051780 | 21734 -0320 00 0 17560 ANA BND11 BE200 FP051790 | 21735 0602 00 0 07751 SLW B1020 BE202 FP051800 | 21736 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BE204 FP051810 | 21737 0500 00 0 07747 CLA B1000 BE208 FP051820 21740 0601 00 0 17616 STO BND41 STORE NEW FEILD LENGTH BE210 FP051830 | 21741 -0500 00 2 00016 CAL 14,2 PICK UP NEW WORD LOCATION BE220 FP051840 | 21742 0560 00 2 00017 LDQ 15,2 BE230 FP051850 | 21743 -0763 00 0 00022 LGL 18 BE240 FP051860 | 21744 -0320 00 0 17540 ANA BNC50 BE250 FP051870 21745 0602 00 0 07751 SLW B1020 BE252 FP051880 | 21746 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BE254 FP051890 | 21747 0500 00 0 07747 CLA B1000 BE258 FP051900 | 21750 0602 00 0 17617 SLW BND42 STORES NEW WORD LOCATION BE260 FP051910 | 21751 -0500 00 2 00017 CAL 15,2 PICK UP NEW BIT LOCATION BE270 FP051920 21752 -0320 00 0 17557 ANA BND10 BE280 FP051930 | 21753 0771 00 0 00006 ARS 6 BE290 FP051940 | 21754 0602 00 0 07751 SLW B1020 BE292 FP051950 | 21755 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BE294 FP051960 | 21756 0500 00 0 07747 CLA B1000 BE298 FP051970 21757 0602 00 0 17620 SLW BND43 STORES NEW BIT LOCATION BE300 FP051980 | 21760 0400 00 0 17616 ADD BND41 NEW BIT PLUS NEW LENGTH BE310 FP051990 | 21761 -0130 00 0 00000 XCL BE320 FP052000 | 21762 0754 00 0 00000 PXA 0,0 BE330 FP052010 | 1 LISTING OF 12/01/64 PAGE 114 DICT (9PAC31). MOVE INPUT TO OUTPUT | | 21763 0220 00 0 17563 DVH BND14 36 BE340 FP052020 | 21764 0601 00 0 17627 STO BND50 STORESBITLOCATIONOFNEXTOUTPBE350 FP052030 | 21765 0601 00 0 17636 STO BND57 STORE IN CASE NEXT CHANGE IBE355 FP052040 21766 -0600 00 0 17626 STQ BND49 STORES THE QUOTIENT BE360 FP052050 | 21767 -0500 00 2 00002 BE370 CAL 2,2 PICK UP FIELD SIZE BE370 FP052060 | 21770 0560 00 2 00003 LDQ 3,2 BE380 FP052070 | 21771 -0763 00 0 00006 LGL 6 BE390 FP052080 | 21772 -0320 00 0 17560 ANA BND11 BE400 FP052090 21773 0602 00 0 07751 SLW B1020 BE402 FP052100 | 21774 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BE404 FP052110 | 21775 0500 00 0 07747 CLA B1000 BE408 FP052120 | 21776 0602 00 0 17613 SLW BND38 INPUT FIELD LENGTH BE410 FP052130 | 21777 -0500 00 2 00003 CAL 3,2 PICK UP WORD LOCATION BE420 FP052140 22000 0560 00 2 00004 LDQ 4,2 BE430 FP052150 | 22001 -0763 00 0 00022 LGL 18 BE440 FP052160 | 22002 -0320 00 0 17540 ANA BNC50 BE450 FP052170 | 22003 0602 00 0 07751 SLW B1020 BE452 FP052180 | 22004 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BE454 FP052190 22005 0500 00 0 07747 CLA B1000 BE458 FP052200 | 22006 0602 00 0 17614 SLW BND39 INPUT WORD LOCATION BE460 FP052210 | 22007 -0500 00 2 00004 CAL 4,2 PICK UP BIT LOCATION BE470 FP052220 | 22010 -0320 00 0 17557 ANA BND10 BE480 FP052230 | 22011 0771 00 0 00006 ARS 6 BE490 FP052240 22012 0602 00 0 07751 SLW B1020 BE492 FP052250 | 22013 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BE494 FP052260 | 22014 0500 00 0 07747 CLA B1000 BE498 FP052270 | 22015 0602 00 0 17615 SLW BND40 STORES INPUT BIT LOCATION BE500 FP052280 | 22016 -0500 00 0 17647 BE501 CAL BND67 BE501 FP052290 22017 0100 00 0 22024 TZE BE507 BE502 FP052300 | 22020 0600 00 0 17647 STZ BND67 BE503 FP052310 | 22021 0400 00 0 17514 ADD BNA40 BE504 FP052320 | 22022 0621 00 0 22023 STA *+1 BE505 FP052330 | 22023 0020 00 0 00000 TRA .. BE506 FP052340 22024 -0760 00 0 00141 BE507 SLT 1 BE507 FP052350 | 22025 0020 00 0 22027 TRA BE510 BE508 FP052360 | 22026 0020 00 0 25004 TRA BDT80 BE509 FP052370 | 22027 -0774 00 4 00000 BE510 AXC ..,4 PICKS UP RETURN BE510 FP052380 | 22030 0020 00 4 22031 TRA *+1,4 BE520 FP052390 22031 0020 00 0 22143 TRA BF210 SHORTEN LEFT BE530 FP052400 | 22032 0020 00 0 22213 TRA BF600 SHORTEN RIGHT BE540 FP052410 | 22033 0020 00 0 22271 TRA BG050 LENGTHEN LEFT BE550 FP052420 | 22034 -0500 00 0 17615 CAL BND40 LENGTHEN RIGHT BE560 FP052430 | 22035 0400 00 0 17613 ADD BND38 DETERMINE LOCATION OF BE570 FP052440 22036 -0130 00 0 00000 XCL NEXT INPUT FIELD BE580 FP052450 | 22037 0754 00 0 00000 PXA 0,0 BE590 FP052460 | 22040 0220 00 0 17563 DVH BND14 36 BE600 FP052470 | 22041 -0600 00 0 17561 STQ BND12 TOTAL NUMBER OF WORDS BE610 FP052480 | 22042 0601 00 0 17565 STO BND16 BIT LOCATION BE620 FP052490 22043 0402 00 0 17627 SUB BND50 BIT OF NEW OUTPUT FIELD BE630 FP052500 | 22044 0120 00 0 22137 TPL BF170 BE640 FP052510 | 22045 0400 00 0 17563 ADD BND14 36 BE650 FP052520 | 22046 0601 00 0 17562 STO BND13 AMOUNT OF AFTER SHIFT BE660 FP052530 | 22047 -0500 00 0 17614 CAL BND39 INPUT WORD LOCATION BE670 FP052540 22050 0400 00 0 17561 BE680 ADD BND12 NUMBER OF WORDS TO INCREASEBE680 FP052550 | 22051 0601 00 0 17621 STO BND44 START LOCATION OF NEXT LOOPBE690 FP052560 | 1 LISTING OF 12/01/64 PAGE 115 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 22052 -0500 00 0 17620 CAL BND43 SEE IF ADDED BLANKS AR LEFTBE700 FP052570 | 22053 0400 00 0 17613 ADD BND38 OUTPUT BIT PLUS INPUT LENGTBE710 FP052580 | 22054 -0130 00 0 00000 XCL BE720 FP052590 | 22055 0754 00 0 00000 PXA 0,0 BE730 FP052600 | 22056 0220 00 0 17563 DVH BND14 36 BE740 FP052610 22057 0601 00 0 17611 STO BND36 SET JUSTIFIED ZIGGER ZERO OBE750 FP052620 | 22060 0601 00 0 17573 STO BND22 STORE BIT POSITION OF LEFT BE760 FP052630 | 22061 -0600 00 0 17574 STQ BND23 BE762 FP052640 | 22062 0400 00 0 17616 ADD BND41 ADD OUTPUT LENGTH BE770 FP052650 | 22063 0402 00 0 17613 SUB BND38 MINUS INPUT LENGTH BE772 FP052660 22064 0402 00 0 17563 SUB BND14 MINUS 36 BE774 FP052670 | 22065 0601 00 0 17533 STO BNB90 ZIGGER FOR IF BLANKS COMPLEBE780 FP052680 | 22066 -0520 00 0 17573 NZT BND22 LEFT MOST BLANKS BIT BE790 FP052690 | 22067 0400 00 0 17563 ADD BND14 PLUS 36 BE800 FP052700 | 22070 -0130 00 0 00000 XCL LEADING AND TRAILING WORDS BE820 FP052710 22071 0754 00 0 00000 PXA 0,0 BE830 FP052720 | 22072 0220 00 0 17563 DVH BND14 36 BE840 FP052730 | 22073 -0600 00 0 17622 STQ BND45 STORE WHOLE NUMBER OF ADDEDBE850 FP052740 | 22074 -0500 00 0 17563 CAL BND14 36. BUILD THE NUMBER BE860 FP052750 | 22075 0402 00 0 17573 SUB BND22 OF SHIFTS FOR MASK FROM BE870 FP052760 22076 0601 00 0 17623 STO BND46 BLANKS BIT POSITION BE880 FP052770 | 22077 -0500 00 0 17617 CAL BND42 LOCATE LAST OUTPUT WORD BE890 FP052780 | 22100 0400 00 0 17626 ADD BND49 WORKED WITH . NEW WORD LOCABE900 FP052790 | 22101 0602 00 0 17625 SLW BND48 STORE FOR COMPARISON BE910 FP052800 | 22102 -0500 00 0 17617 CAL BND42 OUTPUT WORD LOCATION BE912 FP052810 22103 0400 00 0 17574 ADD BND23 = OF BLANK WORDS BE914 FP052820 | 22104 0602 00 0 17637 SLW BND58 FIRST WORK WORD BE916 FP052830 | 22105 -0500 00 0 17563 CAL BND14 36 DETERMINE AFTER BE920 FP052840 | 22106 0402 00 0 17627 SUB BND50 MASK FROM FIRST BE930 FP052850 | 22107 0602 00 0 17631 SLW BND52 BIT LOCATION OF NEXT NEW FIBE940 FP052860 22110 -0500 00 0 17565 CAL BND16 FIRST BIT OF NEXT FIELDS INBE950 FP052870 | 22111 0402 00 0 17610 BE980 SUB BND35 AMOUNT OF BEFORE SHIFT BE960 FP052880 | 22112 0120 00 0 22135 TPL BF150 BE970 FP052890 | 22113 -0500 00 0 17614 CAL BND39 INPUT WORD LOCATION BE980 FP052900 | 22114 0402 00 0 17514 SUB BNA40 1 BE990 FP052910 22115 0400 00 0 17561 BF010 ADD BND12 PLUS NUMBER OF OLD FIELD BF010 FP052920 | 22116 0402 00 0 17543 SUB BNC80 START OF AXT LOOP BF020 FP052930 | 22117 -0120 00 0 22121 TMI *+2 BF030 FP052940 | 22120 -0100 00 0 22130 TNZ BF120 BF040 FP052950 | 22121 -0500 00 0 17570 CAL BND19 GENERATE NEXT INSTRUCTIONS BF050 FP052960 22122 0621 00 0 11451 STA H0080 OVER THE PREVIOUS LOOP. BF060 FP052970 | 22123 -0500 00 0 17567 CAL BND18 BF070 FP052980 | 22124 0621 00 0 11436 STA G0080 BF080 FP052990 | 22125 -0500 00 0 17566 CAL BND17 BF090 FP053000 | 22126 0621 00 0 11423 STA F0080 BF100 FP053010 22127 0020 00 0 22132 TRA *+3 BF110 FP053020 | 22130 0522 00 0 11422 BF120 XEC F0080-1 LOAD IR4 BF120 FP053030 | 22131 -0602 60 0 17556 ORS* BND00 STORES ADDRESS IN AXT LOOP BF130 FP053040 | 22132 -0760 00 0 00141 SLT 1 BF138 FP053050 | 22133 0020 00 0 22351 TRA BH010 OUT BF140 FP053060 22134 0020 00 0 25115 TRA BDX90 * BF142 FP053070 | 22135 -0500 00 0 17614 BF150 CAL BND39 INPUT WORD LOCATION BF150 FP053080 | 22136 0020 00 0 22115 TRA BF010 BF160 FP053090 | 22137 0601 00 0 17562 BF170 STO BND13 AMOUNT OF AFTER SHIFT BF170 FP053100 | 22140 0500 00 0 17514 CLA BNA40 1 BF180 FP053110 1 LISTING OF 12/01/64 PAGE 116 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 22141 0400 00 0 17614 ADD BND39 PLUS INPUT WORD LOCATION BF190 FP053120 | 22142 0020 00 0 22050 TRA BE680 BF200 FP053130 22143 -0500 00 0 17617 BF210 CAL BND42 SHORTEN LEFT NEW WORD BF210 FP053140 | 22144 0602 00 0 17625 SLW BND48 LOCATION TO NEW WORK WORD BF220 FP053150 | 22145 0602 00 0 17637 SLW BND58 FIRST WORK WORD BF225 FP053160 | 22146 -0500 00 0 17615 CAL BND40 DETERMINE NEW BNC80 BF230 FP053170 | 22147 0400 00 0 17613 ADD BND38 INPUT BIT PLUS INPUT LENGTHBF240 FP053180 22150 0402 00 0 17616 SUB BND41 MINUS OUTPUT LENGTH BF250 FP053190 | 22151 -0130 00 0 00000 XCL BF260 FP053200 | 22152 0754 00 0 00000 PXA 0,0 BF270 FP053210 | 22153 0220 00 0 17563 DVH BND14 36 BF280 FP053220 | 22154 -0600 00 0 17561 STQ BND12 NUMBER OF WORDS TO EXTEND IBF290 FP053230 22155 0402 00 0 17620 SUB BND43 FIRSTBITOFSHORTENEDMINUSOUTBF300 FP053240 | 22156 -0120 00 0 22205 TMI BF540 BF310 FP053250 | 22157 0601 00 0 17562 STO BND13 AMOUNT OF AFTER SHIFT BF320 FP053260 | 22160 -0500 00 0 17514 CAL BNA40 1 BF330 FP053270 | 22161 0400 00 0 17614 ADD BND39 PLUS INPUT WORD LOCATION BF340 FP053280 22162 0400 00 0 17561 BF350 ADD BND12 AND NUMBER OF WORDS OF OLD BF350 FP053290 | 22163 0601 00 0 17621 STO BND44 START OF NEXT LOOP BF360 FP053300 | 22164 -0500 00 0 17615 CAL BND40 CLOSE LAST AXT LOOP BF370 FP053310 | 22165 0402 00 0 17610 SUB BND35 INPUT BIT MINUS SHIFT BF380 FP053320 | 22166 0120 00 0 22211 TPL BF580 BF390 FP053330 22167 -0500 00 0 17614 CAL BND39 INPUT WORD LOCATION BF400 FP053340 | 22170 0402 00 0 17514 SUB BNA40 1 BF410 FP053350 | 22171 0602 00 0 17565 BF420 SLW BND16 LAST WORD OF LAST AXT LOOP BF420 FP053360 | 22172 -0500 00 0 17621 CAL BND44 START OF NEXT LOOP BF430 FP053370 | 22173 0402 00 0 17565 SUB BND16 CLOSE OF LAST LOOP BF440 FP053380 22174 0402 00 0 17514 SUB BNA40 1 BF450 FP053390 | 22175 0601 00 0 17622 STO BND45 FOR NUMBER OF TIMES THROUGHBF460 FP053400 | 22176 -0500 00 0 17620 BF470 CAL BND43 OUTPUT BIT LOCATION BF470 FP053410 | 22177 0602 00 0 17611 SLW BND36 SETS JUSTIFIED ZIGGER BF480 FP053420 | 22200 -0500 00 0 17563 CAL BND14 36 BF490 FP053430 22201 0402 00 0 17620 SUB BND43 TAKE AWAY NEW BIT POSITION BF500 FP053440 | 22202 0602 00 0 17623 SLW BND46 STORAGE FOR FIRST MASK BF510 FP053450 | 22203 -0500 00 0 17565 CAL BND16 LAST WORD OF LAST AXT LOOP BF520 FP053460 | 22204 0020 00 0 22116 TRA BF010+1 BF530 FP053470 | 22205 0400 00 0 17563 BF540 ADD BND14 36 BF540 FP053480 22206 0601 00 0 17562 STO BND13 AMOUNT OF AFTER SHIFT BF550 FP053490 | 22207 -0500 00 0 17614 CAL BND39 INPUT WORD LOCATION BF560 FP053500 | 22210 0020 00 0 22162 TRA BF350 BF570 FP053510 | 22211 -0500 00 0 17614 BF580 CAL BND39 INPUT WORD LOCATION BF580 FP053520 | 22212 0020 00 0 22171 TRA BF420 BF590 FP053530 22213 -0500 00 0 17615 BF600 CAL BND40 SHORTEN RIGHT BF600 FP053540 | 22214 0400 00 0 17616 ADD BND41 COMPUTE CLOSE OF LAST BF610 FP053550 | 22215 -0130 00 0 00000 XCL AXT LOOP. INPUT BIT BF620 FP053560 | 22216 0754 00 0 00000 PXA 0,0 PLUS NEW LENGTH BF630 FP053570 | 22217 0220 00 0 17563 DVH BND14 36 BF640 FP053580 22220 -0600 00 0 17573 STQ BND22 NUMBER OF WORDS IN OLD FIELBF650 FP053590 | 22221 0402 00 0 17610 SUB BND35 BF660 FP053600 | 22222 0120 00 0 22263 TPL BF990 BF670 FP053610 | 22223 -0500 00 0 17614 CAL BND39 INPUT WORD LOCATION BF680 FP053620 | 22224 0402 00 0 17514 SUB BNA40 1 BF690 FP053630 22225 0400 00 0 17573 BF700 ADD BND22 PLUS NUMBER OF WORDS IN OLDBF700 FP053640 | 22226 0601 00 0 17573 STO BND22 LAST WORD OF LAST AXT LOOP BF710 FP053650 | 22227 -0500 00 0 17615 CAL BND40 INPUT BIT PLUS INPUT LENGTHBF720 FP053660 | 1 LISTING OF 12/01/64 PAGE 117 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 22230 0400 00 0 17613 ADD BND38 BF730 FP053670 | 22231 -0130 00 0 00000 XCL BF740 FP053680 | 22232 0754 00 0 00000 PXA 0,0 BF750 FP053690 | 22233 0220 00 0 17563 DVH BND14 36 BF760 FP053700 22234 -0600 00 0 17561 STQ BND12 NUMBER OF INPUT WORDS BF770 FP053710 | 22235 0402 00 0 17627 SUB BND50 NEXTINPUTFIELDBITMINUSNEXTOBF780 FP053720 | 22236 0120 00 0 22265 TPL BG010 BF790 FP053730 | 22237 0400 00 0 17563 ADD BND14 36 BF800 FP053740 | 22240 0601 00 0 17562 STO BND13 AMOUNT OF AFTER SHIFT BF810 FP053750 22241 -0500 00 0 17614 CAL BND39 INPUT WORD LOCATION BF820 FP053760 | 22242 0400 00 0 17561 BF830 ADD BND12 PLUS NUMBER WORDS IN FIELD BF830 FP053770 | 22243 0601 00 0 17621 STO BND44 START OF NEXT AXT LOOP BF840 FP053780 | 22244 -0500 00 0 17563 CAL BND14 36 BF850 FP053790 | 22245 0402 00 0 17627 SUB BND50 NEXT OUTPUT FIELDS BIT BF860 FP053800 22246 0601 00 0 17623 STO BND46 AMOUNT OF SHIFT FOR MASK BF870 FP053810 | 22247 -0500 00 0 17617 CAL BND42 OUTPUT WORD BF880 FP053820 | 22250 0400 00 0 17626 ADD BND49 PLUS NEW LENGTH BF890 FP053830 | 22251 0601 00 0 17625 STO BND48 STORE OUTPUT WORK WORD BF900 FP053840 | 22252 0602 00 0 17637 SLW BND58 FIRST WORK WORD BF905 FP053850 22253 -0500 00 0 17621 CAL BND44 START OF NEXT LOOP BF910 FP053860 | 22254 0402 00 0 17573 SUB BND22 CLOSE OF LAST LOOP BF920 FP053870 | 22255 0402 00 0 17514 SUB BNA40 1 BF930 FP053880 | 22256 0601 00 0 17622 STO BND45 NUMBER OF TIMES THROUGH AXTBF940 FP053890 | 22257 -0500 00 0 17627 CAL BND50 NEXT OUTPUT FIELDS BIT BF950 FP053900 22260 0602 00 0 17611 SLW BND36 SET JUSTIFIED ZIGGER BF960 FP053910 | 22261 -0500 00 0 17573 CAL BND22 CLOSE OF LAST LOOP BF970 FP053920 | 22262 0020 00 0 22116 TRA BF010+1 BF980 FP053930 | 22263 -0500 00 0 17614 BF990 CAL BND39 INPUT WORD LOCATION BF990 FP053940 | 22264 0020 00 0 22225 TRA BF700 BG000 FP053950 22265 0601 00 0 17562 BG010 STO BND13 AMOUNT OF AFTER SHIFT BG010 FP053960 | 22266 -0500 00 0 17514 CAL BNA40 1 BG020 FP053970 | 22267 0400 00 0 17614 ADD BND39 INPUT WORD LOCATION BG030 FP053980 | 22270 0020 00 0 22242 TRA BF830 LENGTHEN LEFT BG040 FP053990 | 22271 -0500 00 0 17615 BG050 CAL BND40 INPUT BIT BG050 FP054000 22272 0402 00 0 17610 SUB BND35 AMOUNT OF BEFORE SHIFT BG060 FP054010 | 22273 -0120 00 0 22276 TMI *+3 BG062 FP054020 | 22274 -0500 00 0 17614 CAL BND39 INPUT WORD LOCATION BG063 FP054030 | 22275 0020 00 0 22300 TRA *+3 BG064 FP054040 | 22276 -0500 00 0 17614 CAL BND39 INPUT WORD LOCATION BG066 FP054050 22277 0402 00 0 17514 SUB BNA40 1 BG068 FP054060 | 22300 0601 00 0 17565 STO BND16 LOCATION OF THE CLOSE OF LABG070 FP054070 | 22301 -0500 00 0 17620 CAL BND43 OUTPUT BIT BG080 FP054080 | 22302 0400 00 0 17616 ADD BND41 OUTPUT LENGTH BG090 FP054090 | 22303 0402 00 0 17613 SUB BND38 INPUT LENGTH BG100 FP054100 22304 0601 00 0 17573 STO BND22 BG110 FP054110 | 22305 -0130 00 0 00000 XCL BG120 FP054120 | 22306 0754 00 0 00000 PXA 0,0 BG130 FP054130 | 22307 0220 00 0 17563 DVH BND14 36 BG140 FP054140 | 22310 -0600 00 0 17574 STQ BND23 BG145 FP054150 22311 0601 00 0 17561 STO BND12 BITLOCATIONOFINPUTINOUTPUTFBG150 FP054160 | 22312 -0500 00 0 17615 CAL BND40 INPUT BIT BG160 FP054170 | 22313 0402 00 0 17561 SUB BND12 BG170 FP054180 | 22314 0120 00 0 22345 TPL BG390 BG180 FP054190 | 22315 0400 00 0 17563 ADD BND14 36 BG190 FP054200 22316 0601 00 0 17562 STO BND13 AMOUNT OF AFTER SHIFT BG200 FP054210 | 1 LISTING OF 12/01/64 PAGE 118 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 22317 -0500 00 0 17614 CAL BND39 INPUT WORD BG210 FP054220 22320 0602 00 0 17621 BG220 SLW BND44 START OF NEXT LOOP BG220 FP054230 | 22321 -0500 00 0 17617 CAL BND42 OUTPUT WORD LOCATION BG230 FP054240 | 22322 0602 00 0 17637 SLW BND58 FIRST WORK WORD BG233 FP054250 | 22323 0400 00 0 17574 ADD BND23 BG235 FP054260 | 22324 0602 00 0 17625 SLW BND48 OUTPUT WORK AREA BG240 FP054270 22325 -0500 00 0 17573 CAL BND22 TEST TO SEE IF BLANKS COMPLBG250 FP054280 | 22326 0402 00 0 17563 SUB BND14 36 OR EXCEED ONE WORD BG260 FP054290 | 22327 0601 00 0 17533 STO BNB90 BG270 FP054300 | 22330 0500 00 0 17573 CLA BND22 BG280 FP054310 | 22331 0520 00 0 17620 ZET BND43 IS OUTPUT LEFT JUSTIFIED BG285 FP054320 22332 0402 00 0 17563 SUB BND14 36 BG290 FP054330 | 22333 -0130 00 0 00000 XCL BG310 FP054340 | 22334 0754 00 0 00000 PXA 0,0 BG320 FP054350 | 22335 0220 00 0 17563 DVH BND14 36 BG330 FP054360 | 22336 -0600 00 0 17622 STQ BND45 NUMBER OF WHOLE WORDS OF BLBG340 FP054370 22337 -0500 00 0 17563 CAL BND14 36 BG350 FP054380 | 22340 0402 00 0 17561 SUB BND12 BITLOCATIONOFINPUTINOUTPUTFBG360 FP054390 | 22341 0601 00 0 17631 STO BND52 AMOUNT OF SHIFT IN AFTER MABG370 FP054400 | 22342 -0500 00 0 17561 CAL BND12 BG372 FP054410 | 22343 0602 00 0 17627 SLW BND50 BG374 FP054420 22344 0020 00 0 22176 TRA BF470 BG380 FP054430 | 22345 0601 00 0 17562 BG390 STO BND13 AMOUNT OF AFTER SHIFT BG390 FP054440 | 22346 -0500 00 0 17614 CAL BND39 INPUT WORD LOCATION BG400 FP054450 | 22347 0400 00 0 17514 ADD BNA40 1 BG410 FP054460 | 22350 0020 00 0 22320 TRA BG220 BG420 FP054470 22351 -0500 00 0 17623 BH010 CAL BND46 MASK TO GEN STORAGE BH010 FP054480 | 22352 0621 00 0 22354 STA *+2 BH020 FP054490 | 22353 -0500 00 0 17571 CAL BND20 BH030 FP054500 | 22354 0767 00 0 00000 ALS .. BH040 FP054510 | 22355 0602 00 0 17632 SLW BND53 BH050 FP054520 22356 0500 00 0 17637 CLA BND58 CO REL PWD LOC BH060 FP054530 | 22357 0340 00 0 17624 CAS BND47 TO N WD LOC BH070 FP054540 | 22360 0020 00 0 22410 TRA BI040 BH080 FP054550 | 22361 0020 00 0 22364 TRA BH120 SAME OUTPUT WORD BH090 FP054560 | 22362 0074 00 4 10507 TSX T0010,4 FP054570 22363 -1 11300 4 00000 STR 0,4,4800 STEP DOWN ON MOVE BH100 FP054580 | 22364 -0500 00 0 22366 BH120 CAL *+2 BUILD TXI *+1,1,1 BH120 FP054590 | 22365 0074 00 4 11413 TSX PRGMR,4 BH130 FP054600 | 22366 1 00001 1 00000 TXI ..,1,1 BH140 FP054610 | 22367 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TXI BH150 FP054620 22370 0074 00 4 11465 TSX PADDR,4 BH160 FP054630 | 22371 -0500 00 0 22373 CAL *+2 BUILD TXI *+1,2,1 BH170 FP054640 | 22372 0074 00 4 11413 TSX PRGMR,4 BH180 FP054650 | 22373 1 00001 2 00000 TXI ..,2,1 BH190 FP054660 | 22374 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TXI BH200 FP054670 22375 0074 00 4 11465 TSX PADDR,4 BH210 FP054680 | 22376 -0500 00 0 17632 CAL BND53 MASK TO OBJECT STORAGE BH410 FP054690 | 22377 0074 00 4 11426 TSX STORR,4 BH420 FP054700 | 22400 -0500 00 0 22402 CAL *+2 BUILD CAL MASK BH430 FP054710 | 22401 0074 00 4 11413 TSX PRGMR,4 BH440 FP054720 22402 -0500 00 0 00000 CAL .. BH450 FP054730 | 22403 0074 00 4 11454 TSX SADDR,4 BH460 FP054740 | 22404 -0500 00 0 22406 CAL *+2 BUILD ANS 0,2 BH470 FP054750 | 22405 0074 00 4 11413 TSX PRGMR,4 BH480 FP054760 | 1 LISTING OF 12/01/64 PAGE 119 DICT (9PAC31). MOVE INPUT TO OUTPUT | | 22406 0320 00 2 00000 ANS 0,2 BH490 FP054770 | 22407 0020 00 0 22442 TRA BI360 TO REF C BH500 FP054780 | 22410 -0520 00 0 17611 BI040 NZT BND36 1 JUSTIFIED BI040 FP054790 22411 0020 00 0 22442 TRA BI360 TO REF C BI050 FP054800 | 22412 -0500 00 0 22414 CAL *+2 BUILD CAL 0,1 BI060 FP054810 | 22413 0074 00 4 11413 TSX PRGMR,4 BI070 FP054820 | 22414 -0500 00 1 00000 CAL 0,1 BI080 FP054830 | 22415 -0520 00 0 17610 NZT BND35 TEST BEFORE CHANGE SHIFT BI090 FP054840 22416 0020 00 0 22427 TRA BI190 BI100 FP054850 | 22417 -0500 00 0 22421 CAL *+2 BUILD LDQ 1,1 BI110 FP054860 | 22420 0074 00 4 11413 TSX PRGMR,4 BI120 FP054870 | 22421 0560 00 1 00001 LDQ 1,1 BI130 FP054880 | 22422 -0500 00 0 17610 CAL BND35 AMT TO LGL BI140 FP054890 22423 0621 00 0 22426 STA *+3 BI150 FP054900 | 22424 -0500 00 0 22426 CAL *+2 BUILD LGL BI160 FP054910 | 22425 0074 00 4 11413 TSX PRGMR,4 BI170 FP054920 | 22426 -0763 00 0 00000 LGL .. BI180 FP054930 | 22427 -0500 00 0 17632 BI190 CAL BND53 MASK TO OBJ STORAGE BI190 FP054940 22430 0074 00 4 11426 TSX STORR,4 BI200 FP054950 | 22431 -0500 00 0 22433 CAL *+2 BUILD ANA MASK BI210 FP054960 | 22432 0074 00 4 11413 TSX PRGMR,4 BI220 FP054970 | 22433 -0320 00 0 00000 ANA .. BI230 FP054980 | 22434 0074 00 4 11454 TSX SADDR,4 BI240 FP054990 22435 -0500 00 0 22437 CAL *+2 BUILD SLW 0,2 BI250 FP055000 | 22436 0074 00 4 11413 TSX PRGMR,4 BI260 FP055010 | 22437 0602 00 2 00000 SLW 0,2 BI270 FP055020 | 22440 -0520 00 0 17610 NZT BND35 TEST BEFORE CHANGE SHIFT BI280 FP055030 | 22441 0020 00 0 22442 TRA BI360 BI290 FP055040 22442 0520 00 0 17612 BI360 ZET BND37 TEST ACTION FOR SHORTEN BI360 FP055050 | 22443 0020 00 0 22635 TRA BJ800 TO REF Y FOR LENGTHEN BI370 FP055060 | 22444 -0500 00 0 17622 CAL BND45 CO WDS REMOVED TO 1 BI380 FP055070 | 22445 -0340 00 0 17514 LAS BNA40 BI390 FP055080 | 22446 0020 00 0 22451 TRA *+3 GREATER THAN 1 BI400 FP055090 22447 0020 00 0 22456 TRA BI480 EQUAL TO 1 BI410 FP055100 | 22450 0020 00 0 22472 TRA BI720 LESS THAN 1 TO REF D BI420 FP055110 | 22451 0621 00 0 22455 STA BI470 = WDS TO AXT BI430 FP055120 | 22452 0760 00 0 00141 SLN 1 BI440 FP055130 | 22453 -0500 00 0 22455 CAL *+2 BUILD AXT ,4 BI450 FP055140 22454 0074 00 4 11413 TSX PRGMR,4 BI460 FP055150 | 22455 0774 00 4 00000 BI470 AXT ..,4 BI470 FP055160 | 22456 -0500 00 0 22460 BI480 CAL *+2 BUILD TIX *+1,1,1 BI480 FP055170 | 22457 0074 00 4 11413 TSX PRGMR,4 BI490 FP055180 | 22460 2 00001 1 00000 TIX ..,1,1 BI500 FP055190 22461 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BI510 FP055200 | 22462 0074 00 4 11465 TSX PADDR,4 BI520 FP055210 | 22463 -0760 00 0 00141 SLT 1 BI650 FP055220 | 22464 0020 00 0 22472 TRA BI720 BI660 FP055230 | 22465 -0500 00 0 22467 CAL *+2 BUILD TIX *-1,4,1 BI670 FP055240 22466 0074 00 4 11413 TSX PRGMR,4 BI680 FP055250 | 22467 2 00001 4 00000 TIX ..,4,1 BI690 FP055260 | 22470 0502 00 0 11026 CLS NMBR1 MINUS 1 FOR TIX BI700 FP055270 | 22471 0074 00 4 11465 TSX PADDR,4 BI710 FP055280 | 22472 -0500 00 0 22474 BI720 CAL *+2 REF D - BUILD CAL 0,1 BI720 FP055290 22473 0074 00 4 11413 TSX PRGMR,4 BI730 FP055300 | 22474 -0500 00 1 00000 CAL 0,1 BI740 FP055310 | 1 LISTING OF 12/01/64 PAGE 120 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 22475 -0520 00 0 17562 NZT BND13 TEST AFTER CHANGE SHIFT BI750 FP055320 | 22476 0020 00 0 22507 TRA BI850 BI760 FP055330 | 22477 -0500 00 0 22501 CAL *+2 BUILD LDQ 1,1 BI770 FP055340 | 22500 0074 00 4 11413 TSX PRGMR,4 BI780 FP055350 | 22501 0560 00 1 00001 LDQ 1,1 BI790 FP055360 22502 -0500 00 0 17562 CAL BND13 AMT TO LGL BI800 FP055370 | 22503 0621 00 0 22506 STA *+3 BI810 FP055380 | 22504 -0500 00 0 22506 CAL *+2 BUILD LGL BI820 FP055390 | 22505 0074 00 4 11413 TSX PRGMR,4 BI830 FP055400 | 22506 -0763 00 0 00000 LGL .. BI840 FP055410 22507 -0520 00 0 17611 BI850 NZT BND36 TEST JUSTIFIED BI850 FP055420 | 22510 0020 00 0 22524 TRA BI980 BI860 FP055430 | 22511 -0500 00 0 17632 CAL BND53 COM MASK TO OBJECT STORAGE BI870 FP055440 | 22512 0760 00 0 00006 COM BI880 FP055450 | 22513 0074 00 4 11426 TSX STORR,4 BI890 FP055460 22514 -0500 00 0 22516 CAL *+2 BUILD ANA MASK BI900 FP055470 | 22515 0074 00 4 11413 TSX PRGMR,4 BI910 FP055480 | 22516 -0320 00 0 00000 ANA .. BI920 FP055490 | 22517 0074 00 4 11454 TSX SADDR,4 BI930 FP055500 | 22520 -0500 00 0 22522 CAL *+2 BUILD ORS 0,2 BI940 FP055510 22521 0074 00 4 11413 TSX PRGMR,4 BI950 FP055520 | 22522 -0602 00 2 00000 ORS 0,2 BI960 FP055530 | 22523 0020 00 0 22527 TRA BJ010 BI970 FP055540 | 22524 -0500 00 0 22526 BI980 CAL *+2 BUILD SLW 0,2 BI980 FP055550 | 22525 0074 00 4 11413 TSX PRGMR,4 BI990 FP055560 22526 0602 00 2 00000 SLW 0,2 BI991 FP055570 | 22527 -0500 00 0 22531 BJ010 CAL *+2 BUILD TIX *+1,1,1 BJ010 FP055580 | 22530 0074 00 4 11413 TSX PRGMR,4 BJ080 FP055590 | 22531 2 00001 1 00000 TIX ..,1,1 BJ090 FP055600 | 22532 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BJ100 FP055610 22533 0074 00 4 11465 TSX PADDR,4 BJ110 FP055620 | 22534 -0500 00 0 22536 CAL *+2 BUILD TIX *+1,2,1 BJ120 FP055630 | 22535 0074 00 4 11413 TSX PRGMR,4 BJ130 FP055640 | 22536 2 00001 2 00000 TIX ..,2,1 BJ140 FP055650 | 22537 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BJ150 FP055660 22540 0074 00 4 11465 TSX PADDR,4 BJ151 FP055670 | 22541 -0500 00 0 17562 CAL BND13 AFT SHIFT TO BEFORE SHIFT BJ155 FP055680 | 22542 0602 00 0 17610 SLW BND35 BJ156 FP055690 | 22543 -0500 00 0 17625 CAL BND48 NEW OWA TO OLD OWA BJ157 FP055700 | 22544 0602 00 0 17624 SLW BND47 BJ158 FP055710 22545 -0500 00 0 17621 CAL BND44 NEW LOOP STR TO OLD LOOP STBJ159 FP055720 | 22546 0602 00 0 17543 SLW BNC80 BJ160 FP055730 | 22547 -0500 00 0 11423 CAL F0080 SAVE GENERATOR BJ161 FP055740 | 22550 0602 00 0 17566 SLW BND17 BJ162 FP055750 | 22551 -0500 00 0 11436 CAL G0080 BJ163 FP055760 22552 0602 00 0 17567 SLW BND18 BJ164 FP055770 | 22553 -0500 00 0 11451 CAL H0080 BJ165 FP055780 | 22554 0602 00 0 17570 SLW BND19 BJ166 FP055790 | 22555 -0500 00 0 22557 BJ170 CAL *+2 BUILD AXT..,4 BJ170 FP055800 | 22556 0074 00 4 11413 TSX PRGMR,4 BJ180 FP055810 22557 0774 00 4 00000 AXT ..,4 BJ190 FP055820 | 22560 -0500 00 0 11423 CAL F0080 ADDRESS AXT RO BND00 BJ200 FP055830 | 22561 0602 00 0 17556 SLW BND00 BJ210 FP055840 | 22562 0520 00 0 17562 ZET BND13 AFTER CHANGE SHIFT BJ220 FP055850 | 22563 0020 00 0 22575 TRA BJ330 BJ230 FP055860 1 LISTING OF 12/01/64 PAGE 121 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 22564 -0500 00 0 22566 CAL *+2 BUILD CAL 0,1 BJ240 FP055870 | 22565 0074 00 4 11413 TSX PRGMR,4 BJ250 FP055880 22566 -0500 00 1 00000 CAL 0,1 BJ260 FP055890 | 22567 -0500 00 0 22571 CAL *+2 BUILD SLW 0,2 BJ270 FP055900 | 22570 0074 00 4 11413 TSX PRGMR,4 BJ280 FP055910 | 22571 0602 00 2 00000 SLW 0,2 BJ290 FP055920 | 22572 0502 00 0 11031 CLS NMBR4 BJ300 FP055930 22573 0601 00 0 17633 STO BND54 BJ310 FP055940 | 22574 0020 00 0 22615 TRA BJ640 BJ320 FP055950 | 22575 -0500 00 0 22577 BJ330 CAL *+2 BUILD 0,1 BJ420 FP055960 | 22576 0074 00 4 11413 TSX PRGMR,4 BJ430 FP055970 | 22577 -0500 00 1 00000 CAL 0,1 BJ440 FP055980 22600 -0500 00 0 22602 CAL *+2 BUILD LDQ 1,1 BJ450 FP055990 | 22601 0074 00 4 11413 TSX PRGMR,4 BJ460 FP056000 | 22602 0560 00 1 00001 LDQ 1,1 BJ470 FP056010 | 22603 -0500 00 0 17562 CAL BND13 AMT TO LGL BJ480 FP056020 | 22604 0621 00 0 22607 STA *+3 BJ490 FP056030 22605 -0500 00 0 22607 CAL *+2 BUILD LGL BJ500 FP056040 | 22606 0074 00 4 11413 TSX PRGMR,4 BJ510 FP056050 | 22607 -0763 00 0 00000 LGL .. BJ520 FP056060 | 22610 -0500 00 0 22612 CAL *+2 BUILD SLW 0,2 BJ530 FP056070 | 22611 0074 00 4 11413 TSX PRGMR,4 BJ540 FP056080 22612 0602 00 2 00000 SLW 0,2 BJ550 FP056090 | 22613 0502 00 0 11033 CLS NMBR6 FP056100 | 22614 0601 00 0 17633 STO BND54 BJ630 FP056110 | 22615 -0500 00 0 22617 BJ640 CAL *+2 BUILD TIX *+1,1,1 BJ640 FP056120 | 22616 0074 00 4 11413 TSX PRGMR,4 BJ650 FP056130 22617 2 00001 1 00000 TIX ..,1,1 BJ660 FP056140 | 22620 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BJ670 FP056150 | 22621 0074 00 4 11465 TSX PADDR,4 BJ680 FP056160 | 22622 -0500 00 0 22624 CAL *+2 BUILD TIX *+1,2,1 BJ690 FP056170 | 22623 0074 00 4 11413 TSX PRGMR,4 BJ700 FP056180 22624 2 00001 2 00000 TIX ..,2,1 BJ710 FP056190 | 22625 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BJ720 FP056200 | 22626 0074 00 4 11465 TSX PADDR,4 BJ730 FP056210 | 22627 -0500 00 0 22631 CAL *+2 BUILD TIX *-=,4=1 BJ740 FP056220 | 22630 0074 00 4 11413 TSX PRGMR,4 BJ750 FP056230 22631 2 00001 4 00000 TIX ..,4,1 BJ760 FP056240 | 22632 0500 00 0 17633 CLA BND54 MEGATIVE NUMBER FOR TIX BJ770 FP056250 | 22633 0074 00 4 11465 TSX PADDR,4 BJ780 FP056260 | 22634 0020 00 0 24221 TRA BDA85 TO MAIN PROG REF 4 BJ790 FP056270 | 22635 -0500 00 2 00000 BJ800 CAL 0,2 IS THIS A MODE CHANGE BJ800 FP056280 22636 -0734 00 4 00000 PDX 0,4 BJ810 FP056290 | 22637 -3 00002 4 22641 TXL BJ850,4,2 BJ820 FP056300 | 22640 -3 00003 4 25155 TXL BEA05,4,3 YES BJ830 FP056310 | 22641 -0520 00 0 17611 BJ850 NZT BND36 TEST JUSTIFIED BJ850 FP056320 | 22642 0020 00 0 22675 TRA BK190 JUSTIFIED BJ860 FP056330 22643 -0500 00 0 22645 CAL *+2 BUILD CAL BLANKS BJ870 FP056340 | 22644 0074 00 4 11413 TSX PRGMR,4 BJ880 FP056350 | 22645 -0500 00 0 00000 CAL .. BJ890 FP056360 | 22646 -0500 00 0 17577 CAL BND26 GET REL OBJ STOR BLANKS BJ900 FP056370 | 22647 0074 00 4 11455 TSX SADDR+1,4 BJ910 FP056380 22650 -0500 00 0 17632 CAL BND53 COM MASK TO DOUBLE MASK AREBJ920 FP056390 | 22651 0760 00 0 00006 COM BJ930 FP056400 | 22652 0602 00 0 17635 SLW BND56 BJ940 FP056410 | 1 LISTING OF 12/01/64 PAGE 122 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 22653 0500 00 0 17533 CLA BNB90 TEST DOUBLE MASK ZIG BJ950 FP056420 | 22654 -0120 00 0 22656 TMI *+2 BJ960 FP056430 | 22655 0020 00 0 22664 TRA BK040 BJ970 FP056440 | 22656 -0500 00 0 17631 CAL BND52 SET ALS FOR AFTER MASK BJ980 FP056450 22657 0621 00 0 22661 STA *+2 BJ990 FP056460 | 22660 -0500 00 0 17571 CAL BND20 BJ991 FP056470 | 22661 0767 00 0 00000 ALS .. BK010 FP056480 | 22662 0602 00 0 17632 SLW BND53 AFTER MASK TO GEN MASK STORBK020 FP056490 | 22663 0320 00 0 17635 ANS BND56 BK030 FP056500 22664 -0500 00 0 17635 BK040 CAL BND56 DOUBLE MASK AREA TO OBJ STOBK040 FP056510 | 22665 0074 00 4 11426 TSX STORR,4 BK050 FP056520 | 22666 -0500 00 0 22670 CAL *+2 BUILD ANA MASK BK060 FP056530 | 22667 0074 00 4 11413 TSX PRGMR,4 BK070 FP056540 | 22670 -0320 00 0 00000 ANA .. BK080 FP056550 22671 0074 00 4 11454 TSX SADDR,4 BK090 FP056560 | 22672 -0500 00 0 22674 CAL *+2 BUILD ORS 0,2 BK100 FP056570 | 22673 0074 00 4 11413 TSX PRGMR,4 BK110 FP056580 | 22674 -0602 00 2 00000 ORS 0,2 BK120 FP056590 | 22675 -0500 00 0 17622 BK190 CAL BND45 CO WHOLE WDS OF BLANKS TO 1BK190 FP056600 22676 -0340 00 0 17514 LAS BNA40 BK200 FP056610 | 22677 0020 00 0 22713 TRA BK330 GREATER THAN 1 BK210 FP056620 | 22700 0020 00 0 22721 TRA BK390 EQUAL TO 1 BK220 FP056630 | 22701 -0520 00 0 17611 NZT BND36 TEST JUSTIFIED BK230 FP056640 | 22702 0020 00 0 22773 TRA BK760 TO REF W BK240 FP056650 22703 0500 00 0 17533 CLA BNB90 TEST DOUBLE MASK ZIG BK250 FP056660 | 22704 -0120 00 0 23016 TMI BL010 TO REF S BK260 FP056670 | 22705 -0500 00 0 22707 CAL *+2 BUILD TIX *+1,2,1 BK270 FP056680 | 22706 0074 00 4 11413 TSX PRGMR,4 BK280 FP056690 | 22707 2 00001 2 00000 TIX ..,2,1 BK290 FP056700 22710 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BK300 FP056710 | 22711 0074 00 4 11465 TSX PADDR,4 BK310 FP056720 | 22712 0020 00 0 22754 TRA BK720 REF Z BK320 FP056730 | 22713 0760 00 0 00141 BK330 SLN 1 SET SENSE LIGHT 1 ON BK330 FP056740 | 22714 -0500 00 0 17622 CAL BND45 = WDS TO AXT ,4 BK340 FP056750 22715 0621 00 0 22720 STA *+3 BK350 FP056760 | 22716 -0500 00 0 22720 CAL *+2 BUILD AXT = WDS,4 BK360 FP056770 | 22717 0074 00 4 11413 TSX PRGMR,4 BK370 FP056780 | 22720 0774 00 4 00000 AXT ..,4 BK380 FP056790 | 22721 -0520 00 0 17611 BK390 NZT BND36 TEST JUSTIFIED BK390 FP056800 22722 0020 00 0 22730 TRA BK460 BK400 FP056810 | 22723 -0500 00 0 22725 CAL *+2 BUILD TIX *+1,2,1 BK410 FP056820 | 22724 0074 00 4 11413 TSX PRGMR,4 BK420 FP056830 | 22725 2 00001 2 00000 TIX ..,2,1 BK430 FP056840 | 22726 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BK440 FP056850 22727 0074 00 4 11465 TSX PADDR,4 BK450 FP056860 | 22730 -0500 00 0 22732 BK460 CAL *+2 BUILD CAL BLANKS BK460 FP056870 | 22731 0074 00 4 11413 TSX PRGMR,4 BK470 FP056880 | 22732 -0500 00 0 00000 CAL .. BK480 FP056890 | 22733 -0500 00 0 17577 CAL BND26 GET REL OBJ STOR BLANKS BK490 FP056900 22734 0074 00 4 11455 TSX SADDR+1,4 BK500 FP056910 | 22735 -0500 00 0 22737 CAL *+2 BUILD SLW 0,2 BK510 FP056920 | 22736 0074 00 4 11413 TSX PRGMR,4 BK520 FP056930 | 22737 0602 00 2 00000 SLW 0,2 BK530 FP056940 | 22740 -0500 00 0 22742 CAL *+2 BUILD TIX *+1,2,1 BK600 FP056950 22741 0074 00 4 11413 TSX PRGMR,4 BK610 FP056960 | 1 LISTING OF 12/01/64 PAGE 123 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 22742 2 00001 2 00000 TIX ..,2,1 BK620 FP056970 22743 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BK630 FP056980 | 22744 0074 00 4 11465 TSX PADDR,4 BK640 FP056990 | 22745 -0760 00 0 00141 SLT 1 TEST SL 1 BK650 FP057000 | 22746 0020 00 0 22754 TRA BK720 BK660 FP057010 | 22747 -0500 00 0 22751 CAL *+2 BUILD TIX *-3,4,1 BK670 FP057020 22750 0074 00 4 11413 TSX PRGMR,4 BK680 FP057030 | 22751 2 00001 4 00000 TIX ..,4,1 BK690 FP057040 | 22752 0502 00 0 11030 CLS NMBR3 MINUS 3 FOR TIX BK700 FP057050 | 22753 0074 00 4 11465 TSX PADDR,4 BK710 FP057060 | 22754 0520 00 0 17627 BK720 ZET BND50 REF Z- BK720 FP057070 22755 0020 00 0 22773 TRA BK760 BK730 FP057080 | 22756 0600 00 0 17611 STZ BND36 SET JUSTIFY ZIG ZERO BK740 FP057090 | 22757 0634 00 2 22763 BK741 SXA BK745,2 BK741 FP057100 | 22760 -0500 00 2 00000 CAL 0,2 BK742 FP057110 | 22761 0737 00 2 00000 PAC 0,2 BK743 FP057120 22762 -0500 00 2 00000 CAL 0,2 BK744 FP057130 | 22763 0774 00 2 00000 BK745 AXT ..,2 BK745 FP057140 | 22764 -0100 00 0 22472 TNZ BI720 BK746 FP057150 | 22765 -0500 00 2 00000 CAL 0,2 BK748 FP057160 | 22766 -0734 00 4 00000 PDX 0,4 BK749 FP057170 22767 -3 00003 4 22527 TXL BJ010,4,3 BK750 FP057180 | 22770 -3 00004 4 22472 TXL BI720,4,4 BK751 FP057190 | 22771 0020 00 0 22527 TRA BJ010 BK752 FP057200 | 22772 0000 00 0 22772 HTR * NOT EXECUTED, FOR EXPANSION FP057210 | 22773 -0500 00 0 17631 BK760 CAL BND52 REF W-SET ALS AFT MASK BK760 FP057220 22774 0621 00 0 22776 STA *+2 BK770 FP057230 | 22775 -0500 00 0 17571 CAL BND20 BUILD AFTER CHANGE MASK BK780 FP057240 | 22776 0767 00 0 00000 ALS .. BK790 FP057250 | 22777 0602 00 0 17632 SLW BND53 AFT MASK TO GEN MASK STOR BK800 FP057260 | 23000 -0500 00 0 23002 CAL *+2 BUILD CAL BLANKS BK810 FP057270 23001 0074 00 4 11413 TSX PRGMR,4 BK820 FP057280 | 23002 -0500 00 0 00000 CAL .. BK830 FP057290 | 23003 -0500 00 0 17577 CAL BND26 GET REL OBJ STOR BLANKS BK840 FP057300 | 23004 0074 00 4 11455 TSX SADDR+1,4 BK850 FP057310 | 23005 -0500 00 0 17632 CAL BND53 AFTER MASK TO OBJ STOR BK860 FP057320 23006 0074 00 4 11426 TSX STORR,4 BK870 FP057330 | 23007 -0500 00 0 23011 CAL *+2 BUILD ANA MASK BK880 FP057340 | 23010 0074 00 4 11413 TSX PRGMR,4 BK890 FP057350 | 23011 -0320 00 0 00000 ANA .. BK900 FP057360 | 23012 0074 00 4 11454 TSX SADDR,4 BK910 FP057370 23013 -0500 00 0 23015 CAL *+2 BUILD SLW 0,2 BK920 FP057380 | 23014 0074 00 4 11413 TSX PRGMR,4 BK930 FP057390 | 23015 0602 00 2 00000 SLW 0,2 BK940 FP057400 | 23016 -0625 00 0 17611 BL010 STL BND36 REF S-SET JUSTIFY NZ BL010 FP057410 | 23017 0634 00 2 23025 BL011 SXA BL017,2 BL011 FP057420 23020 0634 00 2 23061 SXA BL033,2 BL012 FP057430 | 23021 -0500 00 2 00000 CAL 0,2 BL013 FP057440 | 23022 0737 00 2 00000 PAC 0,2 BL014 FP057450 | 23023 -0520 00 2 00000 NZT 0,2 BL015 FP057460 | 23024 0020 00 0 23061 TRA BL033 BL016 FP057470 23025 0774 00 2 00000 BL017 AXT **,2 BL017 FP057480 | 23026 -0500 00 2 00000 CAL 0,2 ACTION CODE FP057490 | 23027 -0734 00 4 00000 PDX 0,4 FP057500 | 23030 0761 00 0 00000 NOP SUSPEND ACTION CODE TEST FP057510 | 1 LISTING OF 12/01/64 PAGE 124 DICT (9PAC31). MOVE INPUT TO OUTPUT | | 23031 0761 00 0 00000 NOP FP057520 | 23032 0761 00 0 00000 NOP (TXL BI720,4,3. TXL *+2,4,4. TRA BI720) FP057530 | 23033 -0500 00 0 17615 CAL BND40 NEXT FIELDS INPUT BIT FP057540 23034 0402 00 0 17627 SUB BND50 NEXT FIELDS OUTPUT BIT FP057550 | 23035 -0120 00 0 23047 TMI BL025 DIRECTION OF SHIFT AFTER FP057560 | 23036 -0500 00 0 17615 CAL BND40 NEXT FIELDS INPUT BIT FP057570 | 23037 0402 00 0 17620 SUB BND43 THIS FIELDS OUTPUT BIT FP057580 | 23040 0120 00 0 22472 TPL BI720 BUILD NOTHING (+,+) FP057590 23041 -0500 00 0 23043 CAL *+2 FP057600 | 23042 0074 00 4 11413 TSX PRGMR,4 FP057610 | 23043 1 77777 1 00000 TXI 0,1,-1 BUILD TXI *+1,1,-1 (+,-) FP057620 | 23044 -0500 00 0 11026 CAL NMBR1 FP057630 | 23045 0074 00 4 11465 TSX PADDR,4 FP057640 23046 0020 00 0 22472 TRA BI720 FP057650 | 23047 -0500 00 0 17615 BL025 CAL BND40 NEXT FIELDS INPUT BIT BL025 FP057660 | 23050 0402 00 0 17620 SUB BND43 THIS FIELDS OUTPUT BIT FP057670 | 23051 -0120 00 0 22472 TMI BI720 BUILD NOTHING (-,-) FP057680 | 23052 0020 00 0 23053 TRA BL027 BUILD TXI *+1,1,+1 (-,+) FP057690 23053 -0500 00 0 23055 BL027 CAL *+2 BL027 FP057700 | 23054 0074 00 4 11413 TSX PRGMR,4 BL028 FP057710 | 23055 1 00001 1 00000 TXI 0,1,1 BUILD TXI *+1,1,1 BL029 FP057720 | 23056 -0500 00 0 17514 CAL BNA40 BL030 FP057730 | 23057 0074 00 4 11465 TSX PADDR,4 BL031 FP057740 23060 0020 00 0 22472 TRA BI720 BL032 FP057750 | 23061 0774 00 2 00000 BL033 AXT ..,2 BL033 FP057760 | 23062 -0500 00 2 00000 CAL 0,2 BL034 FP057770 | 23063 -0734 00 4 00000 PDX 0,4 BL035 FP057780 | 23064 -3 00003 4 23070 TXL BL040,4,3 BL036 FP057790 23065 -3 00004 4 23025 TXL BL017,4,4 BL037 FP057800 | 23066 0020 00 0 23070 TRA BL040 BL038 FP057810 | 23067 0000 00 0 23067 HTR * NOT EXECUTED, FOR EXPANSION FP057820 | 23070 -0520 00 0 17562 BL040 NZT BND13 BL040 FP057830 | 23071 0020 00 0 22527 TRA BJ010 BL041 FP057840 23072 0600 00 0 17562 STZ BND13 BL042 FP057850 | 23073 0500 00 0 17621 CLA BND44 BL043 FP057860 | 23074 0400 00 0 17514 ADD BNA40 BL044 FP057870 | 23075 0601 00 0 17621 STO BND44 BL045 FP057880 | 23076 0020 00 0 22527 TRA BJ010 BL046 FP057890 23077 0774 00 1 00000 BL062 AXT 0,1 BL062 FP057900 | 23100 -0500 60 0 17010 CAL* BN155 BL063 FP057910 | 23101 -0760 00 0 00003 SSM BL064 FP057920 | 23102 0601 60 0 17010 STO* BN155 BL065 FP057930 | 23103 -0500 00 0 11423 CAL F0080 BL066 FP057940 23104 0402 00 0 17602 SUB BND29 BL067 FP057950 | 23105 0734 00 1 00000 PAX 0,1 BL068 FP057960 | 23106 0522 00 0 17010 XEC BN155 BL069 FP057970 | 23107 -0500 00 0 23111 CAL *+2 BUILD PAY 0,4 BL070 FP057980 | 23110 0074 00 4 11413 TSX PRGMR,4 BL075 FP057990 23111 0734 00 4 00000 PAX 0,4 BL080 FP058000 | 23112 -0500 00 0 23114 CAL *+2 BUILD TIX *+1,1,1 BL145 FP058010 | 23113 0074 00 4 11413 TSX PRGMR,4 BL150 FP058020 | 23114 2 00001 1 00000 TIX ..,1,1 BL155 FP058030 | 23115 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BL160 FP058040 23116 0074 00 4 11465 TSX PADDR,4 BL165 FP058050 | 23117 -0500 00 0 23121 CAL *+2 BUILD TIX *-1,4,1 BL170 FP058060 | 1 LISTING OF 12/01/64 PAGE 125 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 23120 0074 00 4 11413 TSX PRGMR,4 BL175 FP058070 | 23121 2 00001 4 00000 TIX ..,4,1 BL180 FP058080 | 23122 0502 00 0 11026 CLS NMBR1 MINUS 1 FOR TIX BL185 FP058090 | 23123 0074 00 4 11465 TSX PADDR,4 BL190 FP058100 | 23124 0074 00 4 05255 BL195 TSX RD(WR),4 READ NEXT SF RECORD BL195 FP058110 23125 0 23131 0 00000 PZE 0,,BL215 BL200 FP058120 | 23126 0020 00 0 23132 TRA BL215+1 BL205 FP058130 | 23127 0074 00 4 10507 TSX T0010,4 FP058140 | 23130 -1 07712 4 00000 STR 0,4,4042 INVALID EOF ON MASTER-IN BL210 FP058150 | 23131 3 00016 0 16705 BL215 IORT WORK,,14 BL215 FP058160 23132 -0500 00 0 16705 CAL WORK TEST EXEC CODE G BL240 FP058170 | 23133 -0320 00 0 17653 ANA BND71 BL245 FP058180 | 23134 -0340 00 0 17650 LAS BND68 BL250 FP058190 | 23135 0020 00 0 23137 TRA *+2 BL255 FP058200 | 23136 0020 00 0 23155 TRA BL325 BL260 FP058210 23137 -0340 00 0 17651 LAS BND69 TEST EXEC CODE E BL265 FP058220 | 23140 0020 00 0 23142 TRA *+2 BL270 FP058230 | 23141 0020 00 0 23153 TRA BL321 BL275 FP058240 | 23142 -0340 00 0 17652 LAS BND70 TEST EXEC CODE P BL280 FP058250 | 23143 0020 00 0 23145 TRA *+2 BL285 FP058260 23144 0020 00 0 23153 TRA BL321 BL290 FP058270 | 23145 -0500 00 0 16707 CAL WORK+2 SAVE WD = BL295 FP058280 | 23146 0560 00 0 16710 LDQ WORK+3 BL300 FP058290 | 23147 -0763 00 0 00022 LGL 18 BL305 FP058300 | 23150 -0320 00 0 17540 ANA BNC50 BL310 FP058310 23151 0602 00 0 17654 SLW BND72 BL315 FP058320 | 23152 0020 00 0 23124 TRA BL195 BL320 FP058330 | 23153 -0625 00 0 17554 BL321 STL BNC98 BL321 FP058340 | 23154 0020 00 0 24561 TRA BDL90 TO BUILD TRA TO READ A SF RECORD BL321 FP058350 | 23155 -0500 00 0 17654 BL325 CAL BND72 CONVERT WD = BL325 FP058360 23156 0602 00 0 07751 SLW B1020 BL330 FP058370 | 23157 0074 00 4 07570 TSX B0010,4 BL335 FP058380 | 23160 -0500 00 0 07747 CAL B1000 CALC = WDS SINCE LAST STOP BL345 FP058390 | 23161 0402 00 0 17543 SUB BNC80 BL350 FP058400 | 23162 -0120 00 0 23164 TMI *+2 BL355 FP058410 23163 -0100 00 0 23173 TNZ *+8 BL360 FP058420 | 23164 0500 00 0 17566 CLA BND17 REPLACE GENERATOR BL365 FP058430 | 23165 0621 00 0 11423 STA F0080 BL370 FP058440 | 23166 0500 00 0 17567 CLA BND18 BL375 FP058450 | 23167 0621 00 0 11436 STA G0080 BL380 FP058460 23170 0500 00 0 17570 CLA BND19 BL385 FP058470 | 23171 0621 00 0 11451 STA H0080 BL390 FP058480 | 23172 0020 00 0 23175 TRA *+3 BL395 FP058490 | 23173 0522 00 0 11422 XEC F0080-1 BL400 FP058500 | 23174 -0602 60 0 17556 ORS* BND00 BL405 FP058510 23175 -0500 00 0 07747 CAL B1000 WD = TO BNC 80 BL410 FP058520 | 23176 0621 00 0 17543 STA BNC80 BL415 FP058530 | 23177 0074 00 4 15513 TSX AS570,4 BUILD SUTBL ON G DELETE BL420 FP058540 | 23200 -0774 00 2 16705 AXC WORK,2 BL425 FP058550 | 23201 -0500 00 0 16655 CAL AAG81 SET ZIGGER FOR DELETE ACT BL430 FP058560 23202 0630 00 1 72451 STP SUTBL+SMZE-1,1 BL435 FP058570 | 23203 -0500 00 1 72451 CAL SUTBL+SMZE-1,1 GET INT. ADDRESS BL440 FP058580 | 23204 0621 00 0 23210 STA BL465 BL445 FP058590 | 23205 0621 00 0 23216 STA BL495 BL450 FP058600 | 23206 -0500 00 0 23210 CAL *+2 BUILD CLA BL455 FP058610 1 LISTING OF 12/01/64 PAGE 126 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 23207 0074 00 4 11413 TSX PRGMR,4 BL460 FP058620 | 23210 0500 00 0 00000 BL465 CLA .. BL465 FP058630 23211 -0500 00 0 23213 CAL *+2 BUILD SUB 0,1 BL470 FP058640 | 23212 0074 00 4 11413 TSX PRGMR,4 BL475 FP058650 | 23213 0402 00 1 00000 SUB 0,1 BL480 FP058660 | 23214 -0500 00 0 23216 CAL *+2 BUILD STO BL485 FP058670 | 23215 0074 00 4 11413 TSX PRGMR,4 BL490 FP058680 23216 0601 00 0 00000 BL495 STO .. BL495 FP058690 | 23217 -0500 00 0 11423 CAL F0080 SAVE GENERATOR BL500 FP058700 | 23220 0602 00 0 17566 SLW BND17 BL505 FP058710 | 23221 -0500 00 0 11436 CAL G0080 BL510 FP058720 | 23222 0602 00 0 17567 SLW BND18 BL515 FP058730 23223 -0500 00 0 11451 CAL H0080 BL520 FP058740 | 23224 0602 00 0 17570 SLW BND19 BL525 FP058750 | 23225 -0500 00 0 23227 CAL *+2 BUILD AXT ..,4 BL530 FP058760 | 23226 0074 00 4 11413 TSX PRGMR,4 BL535 FP058770 | 23227 0774 00 4 00000 AXT ..,4 BL540 FP058780 23230 -0500 00 0 11423 BL541 CAL F0080 BL541 FP058790 | 23231 0602 00 0 17556 SLW BND00 BL542 FP058800 | 23232 -0500 00 0 23234 CAL *+2 BUILD TIX (+1,1,1 BL605 FP058810 | 23233 0074 00 4 11413 TSX PRGMR,4 BL610 FP058820 | 23234 2 00001 1 00000 TIX ..,1,1 BL615 FP058830 23235 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BL620 FP058840 | 23236 0074 00 4 11465 TSX PADDR,4 BL625 FP058850 | 23237 -0500 00 0 23241 CAL *+2 BUILD TIX *-5,4,1 BL630 FP058860 | 23240 0074 00 4 11413 TSX PRGMR,4 BL635 FP058870 | 23241 2 00001 4 00000 TIX ..,4,1 BL640 FP058880 23242 0502 00 0 11026 CLS NMBR1 MINUS 1 FOR TIX BL645 FP058890 | 23243 0074 00 4 11465 TSX PADDR,4 BL650 FP058900 | 23244 0020 00 0 23124 TRA BL195 BL655 FP058910 | 23245 -0625 00 0 17612 BL700 STL BND37 NOT ZERO SHOWING LENGTHENINBL700 FP058920 | 23246 -0500 00 2 00002 BL701 CAL 2,2 BL701 FP058930 23247 0560 00 2 00003 LDQ 3,2 BL702 FP058940 | 23250 -0763 00 0 00006 LGL 6 FP058950 | 23251 -0320 00 0 17560 ANA BND11 FP058960 | 23252 0602 00 0 07751 SLW B1020 FP058970 | 23253 0074 00 4 07570 TSX B0010,4 FP058980 23254 0500 00 0 07747 CLA B1000 FP058990 | 23255 0601 00 0 17616 STO BND41 FP059000 | 23256 0634 00 2 23334 SXA BL748,2 FP059010 | 23257 -0500 00 2 00002 CAL 2,2 FP059020 | 23260 -0320 00 0 10745 ANA BCD20 IS FIELD BINARY FP059030 23261 -0100 00 0 23265 TNZ BL746 NO FP059040 | 23262 0500 00 0 17563 CLA BND14 YES--SET LENGTH TO 36 FP059050 | 23263 0601 00 0 17616 STO BND41 FP059060 | 23264 0020 00 0 23334 TRA BL748 FP059070 | 23265 -0500 00 2 00002 BL746 CAL 2,2 FP059080 23266 -0320 00 0 10735 ANA BCD10 IS FIELD PACKED BCD FP059090 | 23267 0100 00 0 23334 TZE BL748 NO-- FP059100 | 23270 -0500 00 2 00000 CAL 0,2 IS NEXT FIELD ALSO FP059110 | 23271 0737 00 2 00000 PAC 0,2 FP059120 | 23272 -0500 00 2 00000 CAL 0,2 FP059130 23273 -0320 00 0 17535 ANA BNC20 FP059140 | 23274 0322 00 0 16650 ERA AAG76 AN INSERT OF PACKED FP059150 | 23275 -0100 00 0 23334 TNZ BL748 NO-- FP059160 | 1 LISTING OF 12/01/64 PAGE 127 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 23276 -0500 00 2 00002 CAL 2,2 YES--SET UP TO TREAT AS FP059170 | 23277 0560 00 2 00003 LDQ 3,2 ONE FIELD FP059180 | 23300 -0763 00 0 00006 LGL 6 FP059190 | 23301 -0320 00 0 17560 ANA BND11 FP059200 23302 0602 00 0 07751 SLW B1020 FP059210 | 23303 0074 00 4 07570 TSX B0010,4 FP059220 | 23304 0500 00 0 17616 CLA BND41 FP059230 | 23305 0400 00 0 07747 ADD B1000 FP059240 | 23306 0601 00 0 17616 STO BND41 LENGTH TO SUM FP059250 23307 0601 00 0 10127 STO B6000 FP059260 | 23310 0074 00 4 10070 TSX B5010,4 FP059270 | 23311 -0500 00 2 00000 CAL 0,2 FP059280 | 23312 0534 00 2 23334 LXA BL748,2 FP059290 | 23313 0621 00 2 00000 STA 0,2 TO SKIP NEXT RECORD FP059300 23314 -0500 00 0 11021 CAL BCD74 REPLACE LENGTH FP059310 | 23315 0320 00 2 00002 ANS 2,2 FP059320 | 23316 -0500 00 0 10764 CAL BCD37 FP059330 | 23317 0320 00 2 00003 ANS 3,2 FP059340 | 23320 -0500 00 0 10131 CAL B6020 FP059350 23321 -0765 00 0 00006 LGR 6 FP059360 | 23322 -0320 00 0 10730 ANA BCD03 FP059370 | 23323 -0602 00 2 00002 ORS 2,2 FP059380 | 23324 -0130 00 0 00000 XCL FP059390 | 23325 -0320 00 0 10765 ANA BCD40 FP059400 23326 -0602 00 2 00003 ORS 3,2 FP059410 | 23327 -0500 00 0 10127 CAL B6000 FP059420 | 23330 -0320 00 0 11015 ANA BCD70 FP059430 | 23331 0100 00 0 23265 TZE BL746 FP059440 | 23332 0074 00 4 10507 TSX T0010,4 FP059450 23333 -1 00214 2 23265 STR BL746,2,140 INSERT PACKED BCD FIELDS TOO LONG FP059460 | 23334 0774 00 2 00000 BL748 AXT **,2 FP059470 | 23335 -0500 00 2 00003 CAL 3,2 PICK UP NEW WORD LOC BL750 FP059480 | 23336 0560 00 2 00004 LDQ 4,2 BL755 FP059490 | 23337 -0763 00 0 00022 LGL 18 BL760 FP059500 23340 -0320 00 0 17540 ANA BNC50 BL765 FP059510 | 23341 0602 00 0 07751 SLW B1020 BL770 FP059520 | 23342 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BL775 FP059530 | 23343 0500 00 0 07747 CLA B1000 BL785 FP059540 | 23344 0602 00 0 17617 SLW BND42 STORES NEW WORD LOCATION BL790 FP059550 23345 -0500 00 2 00004 CAL 4,2 PICK UP NEW BIT LOCATION BL795 FP059560 | 23346 -0320 00 0 17557 ANA BND10 BL800 FP059570 | 23347 0771 00 0 00006 ARS 6 BL805 FP059580 | 23350 0602 00 0 07751 SLW B1020 BL810 FP059590 | 23351 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BL815 FP059600 23352 0500 00 0 07747 CLA B1000 BL825 FP059610 | 23353 0602 00 0 17620 SLW BND43 STORES NEW BIT LOCATION BL830 FP059620 | 23354 0400 00 0 17616 ADD BND41 BL835 FP059630 | 23355 -0130 00 0 00000 XCL BL840 FP059640 | 23356 0754 00 0 00000 PXA 0,0 BL845 FP059650 23357 0220 00 0 17563 DVH BND14 36 BL850 FP059660 | 23360 0601 00 0 17627 STO BND50 STORESBITLOCATIONOF NEXTOUTBL855 FP059670 | 23361 0601 00 0 17636 STO BND57 STOREIN CASENEXTCHABGE IS ABL860 FP059680 | 23362 -0600 00 0 17626 STQ BND49 STORES THE QUOTIENT BL865 FP059690 | 23363 -0500 00 2 00002 CAL 2,2 SEE IF PACKED OR UNPACKED BL870 FP059700 23364 -0320 00 0 17535 ANA BNC20 BL875 FP059710 | 1 LISTING OF 12/01/64 PAGE 128 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 23365 -0100 00 0 23403 TNZ BL950 PACKED BL880 FP059720 23366 -0500 00 0 17617 CAL BND42 UNPACKED PICK UP OUTPUT WORBL885 FP059730 | 23367 0402 00 0 17624 SUB BND47 LAST FIELDS WORK WORD BL890 FP059740 | 23370 0402 00 0 17514 SUB BNA40 1 BL893 FP059750 | 23371 0601 00 0 17565 STO BND16 BL895 FP059760 | 23372 -0120 00 0 23374 TMI *+2 BL905 FP059770 23373 -0100 00 0 23427 TNZ BM040 BL910 FP059780 | 23374 -0500 00 0 17570 CAL BND19 GENERATE NEXT OBJECT BL915 FP059790 | 23375 0621 00 0 11451 STA H0080 INSTRUCTIONS OVER BL920 FP059800 | 23376 -0500 00 0 17567 CAL BND18 LAST AXT LOOP BL925 FP059810 | 23377 0621 00 0 11436 STA G0080 BL930 FP059820 23400 -0500 00 0 17566 CAL BND17 BL935 FP059830 | 23401 0621 00 0 11423 STA F0080 BL940 FP059840 | 23402 0020 00 0 23431 TRA BM040+2 BL945 FP059850 | 23403 -0625 00 0 17612 BL950 STL BND37 NOT ZERO SHOWING LENGTHENINBL950 FP059860 | 23404 0600 00 0 17613 STZ BND38 INPUT LENGTH EQUAL ZERO BL955 FP059870 23405 -0500 00 0 17620 CAL BND43 OUTPUT BIT BL960 FP059880 | 23406 0400 00 0 17610 ADD BND35 PLUS BEFORE SHIFT BL965 FP059890 | 23407 -0340 00 0 17563 LAS BND14 36 BL970 FP059900 | 23410 0761 00 0 00000 NOP BL975 FP059910 | 23411 0020 00 0 23423 TRA BM020 BL980 FP059920 23412 0602 00 0 17615 SLW BND40 DUMMY INPUT BIT BL985 FP059930 | 23413 0502 00 0 17514 CLS BNA40 MINUS 1 BL990 FP059940 | 23414 0400 00 0 17543 ADD BNC80 START OF LAST AXT LOOP BL995 FP059950 | 23415 0400 00 0 17617 BM000 ADD BND42 OUTPUT WORD BM000 FP059960 | 23416 0402 00 0 17624 SUB BND47 LAST FIELDS LAST OUTPUT WORBM005 FP059970 23417 0602 00 0 17614 SLW BND39 DUMMY INPUT WORD LOC BM010 FP059980 | 23420 -0760 00 0 00141 SLT 1 TEST FOR MODE CHANGE BM011 FP059990 | 23421 0020 00 0 22271 TRA BG050 RETURN TO LENGTH LEFT BM013 FP060000 | 23422 0020 00 0 23632 TRA BM715 RETURN FOR MODE CHANGE BM015 FP060010 | 23423 0402 00 0 17563 BM020 SUB BND14 36 BM020 FP060020 23424 0602 00 0 17615 SLW BND40 DUMMY INPUT BIT BM025 FP060030 | 23425 0500 00 0 17543 CLA BNC80 START OF LAST AXT LOOP BM030 FP060040 | 23426 0020 00 0 23415 TRA BM000 BM035 FP060050 | 23427 0522 00 0 11422 BM040 XEC F0080-1 BM040 FP060060 | 23430 -0602 60 0 17556 ORS* BND00 PLACE = OF TIMES THRU LAST BM045 FP060070 23431 0500 00 0 17565 CLA BND16 BM050 FP060080 | 23432 0400 00 0 17543 ADD BNC80 START OF LAST AXT LOOP BM053 FP060090 | 23433 0601 00 0 17543 STO BNC80 START OF NEXT LOOP BM055 FP060100 | 23434 -0500 00 2 00002 CAL 2,2 TEST FOR BIN MODE BM060 FP060110 | 23435 -0320 00 0 17572 ANA BND21 BM065 FP060120 23436 -0100 00 0 23450 TNZ BM120 BM070 FP060130 | 23437 -0500 00 0 23441 CAL *+2 BIN-BUILD STZ 0,2 BM075 FP060140 | 23440 0074 00 4 11413 TSX PRGMR,4 BM080 FP060150 | 23441 0600 00 2 00000 STZ 0,2 BM085 FP060160 | 23442 -0500 00 0 23444 CAL *+2 BUILD TIX *+1,2,1 BM090 FP060170 23443 0074 00 4 11413 TSX PRGMR,4 BM095 FP060180 | 23444 2 00001 2 00000 TIX ..,2,1 BM100 FP060190 | 23445 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BM105 FP060200 | 23446 0074 00 4 11465 TSX PADDR,4 BM110 FP060210 | 23447 0020 00 0 20201 TRA BQ939 BM115 FP060220 23450 -0500 00 0 17620 BM120 CAL BND43 BUILD MASK-AMT TO ARS BM120 FP060230 | 23451 0621 00 0 23453 STA *+2 BM125 FP060240 | 23452 -0500 00 0 17571 CAL BND20 BM130 FP060250 | 23453 0771 00 0 00000 ARS .. BM135 FP060260 | 1 LISTING OF 12/01/64 PAGE 129 DICT (9PAC31). MOVE INPUT TO OUTPUT | | 23454 0602 00 0 17632 SLW BND53 MASK TO GEN STORAGE BM140 FP060270 | 23455 -0500 00 0 23457 CAL *+2 BUILD CAL BLANKS BM145 FP060280 | 23456 0074 00 4 11413 TSX PRGMR,4 BM150 FP060290 23457 -0500 00 0 00000 CAL .. BM155 FP060300 | 23460 -0500 00 0 17577 CAL BND26 GET REL OBJ STOR BLANKS BM160 FP060310 | 23461 0074 00 4 11455 TSX SADDR+1,4 BM165 FP060320 | 23462 -0500 00 0 17632 CAL BND53 MASK TO OBJ STOR BM170 FP060330 | 23463 0074 00 4 11426 TSX STORR,4 BM175 FP060340 23464 -0500 00 0 23466 CAL *+2 BUILD ANA MASK BM180 FP060350 | 23465 0074 00 4 11413 TSX PRGMR,4 BM185 FP060360 | 23466 -0320 00 0 00000 ANA .. BM190 FP060370 | 23467 0074 00 4 11454 TSX SADDR,4 BM195 FP060380 | 23470 -0500 00 0 23472 CAL *+2 BUILD SLW 0,2 BM200 FP060390 23471 0074 00 4 11413 TSX PRGMR,4 BM205 FP060400 | 23472 0602 00 2 00000 SLW 0,2 BM210 FP060410 | 23473 -0500 00 0 23475 CAL *+2 BUILD TIX *+1,2,1 BM245 FP060420 | 23474 0074 00 4 11413 TSX PRGMR,4 BM250 FP060430 | 23475 2 00001 2 00000 TIX ..,2,1 BM255 FP060440 23476 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BM260 FP060450 | 23477 0074 00 4 11465 TSX PADDR,4 BM265 FP060460 | 23500 -0500 00 0 17626 CAL BND49 CAL = WHOLE WDS ADDED BM270 FP060470 | 23501 0402 00 0 17514 SUB BNA40 BM275 FP060480 | 23502 0340 00 0 17514 CAS BNA40 1 BM280 FP060490 23503 0020 00 0 23506 TRA *+3 GREATER THAN 1 BM285 FP060500 | 23504 0020 00 0 23513 TRA BM320 EQUAL 1 BM290 FP060510 | 23505 0020 00 0 20201 TRA BQ939 LESS THAN 1 BM295 FP060520 | 23506 0760 00 0 00141 SLN 1 SET SLI TO ON BM300 FP060530 | 23507 0621 00 0 23512 STA *+3 = WDS TO AXT BM304 FP060540 23510 -0500 00 0 23512 CAL *+2 BUILD AXT = WDS =4 BM305 FP060550 | 23511 0074 00 4 11413 TSX PRGMR,4 BM310 FP060560 | 23512 0774 00 4 00000 AXT ..,4 BM315 FP060570 | 23513 -0500 00 0 23515 BM320 CAL *+2 BUILD CAL BLANKS BM320 FP060580 | 23514 0074 00 4 11413 TSX PRGMR,4 BM325 FP060590 23515 -0500 00 0 00000 CAL .. BM330 FP060600 | 23516 -0500 00 0 17577 CAL BND26 GET REL OBJ STOR BLANKS BM335 FP060610 | 23517 0074 00 4 11455 TSX SADDR+1,4 BM340 FP060620 | 23520 -0500 00 0 23522 CAL *+2 BUILD SLW 0,2 BM345 FP060630 | 23521 0074 00 4 11413 TSX PRGMR,4 BM350 FP060640 23522 0602 00 2 00000 SLW 0,2 BM355 FP060650 | 23523 -0500 00 0 23525 CAL *+2 BUILD TIX *+1,2,1 BM390 FP060660 | 23524 0074 00 4 11413 TSX PRGMR,4 BM395 FP060670 | 23525 2 00001 2 00000 TIX ..,2,1 BM400 FP060680 | 23526 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BM405 FP060690 23527 0074 00 4 11465 TSX PADDR,4 BM410 FP060700 | 23530 -0760 00 0 00141 SLT 1 BM415 FP060710 | 23531 0020 00 0 20201 TRA BQ939 BM420 FP060720 | 23532 -0500 00 0 23534 CAL *+2 BUILD TIX *-5,4,1 BM425 FP060730 | 23533 0074 00 4 11413 TSX PRGMR,4 BM430 FP060740 23534 2 00001 4 00000 TIX ..,4,1 BM435 FP060750 | 23535 0502 00 0 11030 CLS NMBR3 MINUS 3 FOR TIX BM440 FP060760 | 23536 0074 00 4 11465 TSX PADDR,4 BM445 FP060770 | 23537 0020 00 0 20201 TRA BQ939 BM450 FP060780 | 1 LISTING OF 12/01/64 PAGE 130 DICT (9PAC31). MOVE INPUT TO OUTPUT | | * MODE CHANGE BM454 FP060800 | 23540 -0625 00 0 17647 BM455 STL BND67 FOR RETURN BM455 FP060810 | 23541 0020 00 0 21731 TRA BE170 LOCATE INPUT AND OUTPUT BM460 FP060820 23542 -0500 00 0 17617 BM465 CAL BND42 OUTPUT WORD LOCATO BM465 FP060830 | 23543 0600 00 0 17647 STZ BND67 BM467 FP060840 | 23544 0402 00 0 17624 SUB BND47 LAST FIELDS LAST WORK AREA BM470 FP060850 | 23545 0402 00 0 17514 SUB BNA40 1 BM475 FP060860 | 23546 0601 00 0 17565 STO BND16 BM480 FP060870 23547 -0120 00 0 23551 TMI *+2 BM485 FP060880 | 23550 -0100 00 0 23560 TNZ BM530 BM490 FP060890 | 23551 -0500 00 0 17570 CAL BND19 GENERATE NEXT INSTRUCTIONS BM495 FP060900 | 23552 0621 00 0 11451 STA H0080 OVER PREVIOUS LOOP BM500 FP060910 | 23553 -0500 00 0 17567 CAL BND18 BM505 FP060920 23554 0621 00 0 11436 STA G0080 BM510 FP060930 | 23555 -0500 00 0 17566 CAL BND17 BM515 FP060940 | 23556 0621 00 0 11423 STA F0080 BM520 FP060950 | 23557 0020 00 0 23562 TRA *+3 BM525 FP060960 | 23560 0522 00 0 11422 BM530 XEC F0080-1 LOAD IR4 BM530 FP060970 23561 -0602 60 0 17556 ORS* BND00 STORES ADDRESS IN AXT LOOP BM535 FP060980 | 23562 0560 00 0 17616 LDQ BND41 OUTPUT LENGTH BM540 FP060990 | 23563 0754 00 0 00000 PXA 0,0 BM545 FP061000 | 23564 0220 00 0 17563 DVH BND14 36 BM550 FP061010 | 23565 -0600 00 0 17641 STQ BND61 BM555 FP061020 23566 0601 00 0 17561 STO BND12 BM560 FP061030 | 23567 -0500 00 2 00015 CAL 13,2 TEST TO SEE IF BINARY BM565 FP061040 | 23570 -0320 00 0 17572 ANA BND21 BM570 FP061050 | 23571 -0100 00 0 23576 TNZ *+5 BM575 FP061060 | 23572 0500 00 0 17641 CLA BND61 IS BINARY SET NEGATIVE BM580 FP061070 23573 -0760 00 0 00003 SSM BM585 FP061080 | 23574 0601 00 0 17641 STO BND61 BM590 FP061090 | 23575 0020 00 0 23601 TRA *+4 SKIP AROUND PACKED TEST BM592 FP061100 | 23576 -0500 00 2 00015 CAL 13,2 TEST FOR PACKED OUTPUT BM595 FP061110 | 23577 -0320 00 0 17535 ANA BNC20 BM600 FP061120 23600 -0100 00 0 23614 TNZ BM665 TO PACKED OUTPUT BM605 FP061130 | 23601 -0500 00 0 17543 CAL BNC80 UNPACKED OUTPUT START OF AXBM610 FP061140 | 23602 0400 00 0 17565 ADD BND16 LAST OF AXT BM615 FP061150 | 23603 0601 00 0 17543 STO BNC80 START OF NEXT AXT BM620 FP061160 | 23604 -0500 00 0 17617 CAL BND42 OUTPUT WORD LOCATION BM625 FP061170 23605 0400 00 0 17626 ADD BND49 NUMBER OF OUTPUT WORDS BM630 FP061180 | 23606 0402 00 0 17514 SUB BNA40 1 BM635 FP061190 | 23607 0601 00 0 17624 STO BND47 LOCATION OF LAST WORK AREA BM640 FP061200 | 23610 -0500 00 2 00002 CAL 2,2 SEE IF INPUT IS PACKED BM645 FP061210 | 23611 -0320 00 0 17535 ANA BNC20 BM650 FP061220 23612 0100 00 0 24640 TZE BDM50 3-10 PAGE 3.3 BM655 FP061230 | 23613 0020 00 0 23662 TRA BM900 PACKED TO UNPACKED BM660 FP061240 | 23614 -0500 00 0 17563 BM665 CAL BND14 36 UNPACKED TO PACKED BM665 FP061250 | 23615 0402 00 0 17561 SUB BND12 GIVES IB AFTER CONVERTION BM670 FP061260 | 23616 0402 00 0 17620 SUB BND43 OUTPUT BIT BM675 FP061270 23617 0600 00 0 17643 STZ BND63 INDICATES LEFT SHIFT BM680 FP061280 | 23620 0120 00 0 23626 TPL BM711 BM685 FP061290 | 23621 -0625 00 0 17643 STL BND63 INDICATES RIGHT SHIFT BM690 FP061300 | 23622 0400 00 0 17563 ADD BND14 36 BM695 FP061310 | 23623 0601 00 0 17644 BM700 STO BND64 NUMBER OF INTERMEDIATE SHIFBM700 FP061320 23624 0760 00 0 00141 SLN 1 FOR RETURN BM705 FP061330 | 23625 0020 00 0 23403 TRA BL950 SET UP NEW INPUT BM710 FP061340 | 1 LISTING OF 12/01/64 PAGE 131 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 23626 0402 00 0 17563 BM711 SUB BND14 BM711 FP061350 | 23627 0100 00 0 23623 TZE BM700 BM712 FP061360 | 23630 0400 00 0 17563 ADD BND14 BM713 FP061370 | 23631 0020 00 0 23623 TRA BM700 BM714 FP061380 | 23632 -0500 00 0 17615 BM715 CAL BND40 NEXT FIELDS INPUT BIT BM715 FP061390 23633 0402 00 0 17620 SUB BND43 OUTPUT BIT BM720 FP061400 | 23634 0120 00 0 23636 TPL *+2 BM725 FP061410 | 23635 0760 00 0 00141 SLN 1 INPUT, IS RIGHT SHIFTED BM730 FP061420 | 23636 0500 00 0 17616 CLA BND41 FP061430 | 23637 0400 00 0 17620 ADD BND43 FP061440 23640 0131 00 0 00000 XCA FP061450 | 23641 0754 00 0 00000 PXA 0,0 FP061460 | 23642 0220 00 0 17563 DVH BND14 36 FP061470 | 23643 0601 00 0 17561 STO BND12 FP061480 | 23644 -0500 00 0 17615 CAL BND40 BM735 FP061490 23645 0402 00 0 17561 SUB BND12 NEXT FIELDS OUTPUT BIT BM740 FP061500 | 23646 0120 00 0 23656 TPL BM785 BM745 FP061510 | 23647 -0760 00 0 00141 SLT 1 BM750 FP061520 | 23650 0020 00 0 23654 TRA BM765+2 BM755 FP061530 | 23651 0774 00 4 00001 AXT 1,4 INPUT RIGHT OUTPUT RIGHT BM760 FP061540 23652 0634 00 4 17646 BM765 SXA BND66,4 BM765 FP061550 | 23653 0020 00 0 22271 TRA BG050 LENGTHEN LEFT ROUTINE BM770 FP061560 | 23654 0774 00 4 00000 AXT 0,4 INPUT LEFT OUTPUT RIGHT BM775 FP061570 | 23655 0020 00 0 23652 TRA BM765 BM780 FP061580 | 23656 -0760 00 0 00141 BM785 SLT 1 BM785 FP061590 23657 0020 00 0 23651 TRA BM765-1 INPUT LEFT OUTPUT LEFT BM790 FP061600 | 23660 0774 00 4 00002 AXT 2,4 INPUT RIGHT,OUTPUT LEFT BM795 FP061610 | 23661 0020 00 0 23652 TRA BM765 BM800 FP061620 | 23662 0074 00 4 25126 BM900 TSX BDY50,4 TRA MOD LINK SUBROUT BM900 FP061630 | 23663 -0500 00 0 17615 CAL BND40 CALSHIFT TO RT JUSTIFY BM965 FP061640 23664 0400 00 0 17613 ADD BND38 BM970 FP061650 | 23665 -0130 00 0 00000 XCL BM975 FP061660 | 23666 0754 00 0 00000 PXA 0,0 BM980 FP061670 | 23667 0220 00 0 17563 DVH BND14 36 BM985 FP061680 | 23670 0601 00 0 17610 STO BND35 SET SHIFT REMAINDER BM990 FP061690 23671 0020 00 0 23672 TRA BZ010 BM995 FP061700 | 23672 -0100 00 0 23677 BZ010 TNZ *+5 TO CALC RT OR LT SHIFT BZ010 FP061710 | 23673 -0500 00 0 23675 CAL *+2 BUILD CAL 0,1 BZ015 FP061720 | 23674 0074 00 4 11413 TSX PRGMR,4 BZ020 FP061730 | 23675 -0500 00 1 00000 CAL 0,1 BZ025 FP061740 23676 0020 00 0 23727 TRA BZ155 TO REF B BZ030 FP061750 | 23677 0500 00 0 17615 CLA BND40 CALC RT OR LT SHIFT OT JUSTBZ035 FP061760 | 23700 0402 00 0 17610 SUB BND35 BZ040 FP061770 | 23701 0601 00 0 17573 STO BND22 SET SHIFT INDICATOR BZ045 FP061780 | 23702 -0120 00 0 23710 TMI *+6 BZ050 FP061790 23703 0754 00 0 00000 PXA 0,0 SET CAL WD = 0 BZ055 FP061800 | 23704 0621 00 0 23716 STA *+10 BZ060 FP061810 | 23705 0500 00 0 17514 CLA BNA40 SEL LDQ WD = 1 BZ065 FP061820 | 23706 0621 00 0 23721 STA *+11 BZ070 FP061830 | 23707 0020 00 0 23714 TRA *+5 BZ075 FP061840 23710 0500 00 0 17571 CLA BND20 SET CAL WD = -1 BZ080 FP061850 | 23711 0621 00 0 23716 STA *+5 BZ085 FP061860 | 23712 0754 00 0 00000 PXA 0,0 SET LDQ WD = 0 BZ090 FP061870 | 23713 0621 00 0 23721 STA *+6 BZ095 FP061880 | 23714 -0500 00 0 23716 CAL *+2 BUILD CAL ..,1 BZ100 FP061890 1 LISTING OF 12/01/64 PAGE 132 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 23715 0074 00 4 11413 TSX PRGMR,4 BZ105 FP061900 | 23716 -0500 00 1 00000 CAL ..,1 BZ110 FP061910 23717 -0500 00 0 23721 CAL *+2 BUILD LDQ ..,1 BZ115 FP061920 | 23720 0074 00 4 11413 TSX PRGMR,4 BZ120 FP061930 | 23721 0560 00 1 00000 LDQ ..,1 BZ125 FP061940 | 23722 -0500 00 0 17610 CAL BND35 SHIFT REM TO LGL BZ130 FP061950 | 23723 0621 00 0 23726 STA *+3 BZ135 FP061960 23724 -0500 00 0 23726 CAL *+2 BUILD LGL SHIFT REM BZ140 FP061970 | 23725 0074 00 4 11413 TSX PRGMR,4 BZ145 FP061980 | 23726 -0763 00 0 00000 LGL .. BZ150 FP061990 | 23727 0560 00 0 17613 BZ155 LDQ BND38 REF B-CALC MASK REQUIRED BZ155 FP062000 | 23730 0754 00 0 00000 PXA 0,0 BZ160 FP062010 23731 0220 00 0 17563 DVH BND14 36 BZ165 FP062020 | 23732 0601 00 0 17575 STO BND24 SAVE MASK REMAINDER BZ168 FP062030 | 23733 -0600 00 0 17574 STQ BND23 SAVE MASK QUOTIENT BZ170 FP062040 | 23734 0100 00 0 23752 TZE BZ245 BZ175 FP062050 | 23735 0500 00 0 17514 CLA BNA40 Q PLUS 1 TO MASK QUOT. BZ180 FP062060 23736 0400 00 0 17574 ADD BND23 BZ185 FP062070 | 23737 0601 00 0 17574 STO BND23 BZ190 FP062080 | 23740 -0500 00 0 17575 CAL BND24 M REM TO LGL FOR MASK BZ195 FP062090 | 23741 0621 00 0 23743 STA *+2 BZ200 FP062100 | 23742 -0500 00 0 17571 CAL BND20 BUILD MASK BZ205 FP062110 23743 -0763 00 0 00000 LGL .. BZ210 FP062120 | 23744 0760 00 0 00006 COM BZ215 FP062130 | 23745 0074 00 4 11426 TSX STORR,4 MASK TO OBJ STORAGE BZ220 FP062140 | 23746 -0500 00 0 23750 CAL *+2 BUILD ANA MASK BZ225 FP062150 | 23747 0074 00 4 11413 TSX PRGMR,4 BZ230 FP062160 23750 -0320 00 0 00000 ANA .. BZ235 FP062170 | 23751 0074 00 4 11454 TSX SADDR,4 BZ240 FP062180 | 23752 -0520 00 0 17627 BZ245 NZT BND50 BZ245 FP062190 | 23753 0020 00 0 23760 TRA *+5 BZ250 FP062200 | 23754 0500 00 0 17514 CLA BNA40 PLUS 1 TO OUT = WDS BZ255 FP062210 23755 0400 00 0 17626 ADD BND49 BZ260 FP062220 | 23756 0601 00 0 17575 STO BND24 BZ265 FP062230 | 23757 0020 00 0 23762 TRA *+3 BZ270 FP062240 | 23760 0500 00 0 17626 CLA BND49 OUT QUOT TO OUT = WDS BZ275 FP062250 | 23761 0601 00 0 17575 STO BND24 BZ280 FP062260 23762 0500 00 0 17575 CLA BND24 CO OUT = WDS TO 1 BZ290 FP062270 | 23763 -0340 00 0 17514 LAS BNA40 BZ295 FP062280 | 23764 0020 00 0 23766 TRA *+2 BZ300 FP062290 | 23765 0020 00 0 23774 TRA *+7 TO TEST BINARY OUTPUT BZ305 FP062300 | 23766 0760 00 0 00142 SLN 2 SET MULTI WD IND ON BZ310 FP062310 23767 0621 00 0 23772 STA *+3 OUT = WDS TO AXT BZ315 FP062320 | 23770 -0500 00 0 23772 CAL *+2 BUILD AXT ..,4 BZ320 FP062330 | 23771 0074 00 4 11413 TSX PRGMR,4 BZ325 FP062340 | 23772 0774 00 4 00000 AXT ..,4 BZ330 FP062350 | 23773 0020 00 0 23776 TRA *+3 BZ335 FP062360 23774 0500 00 0 17641 CLA BND61 IS OUTPUT BINARY BZ340 FP062370 | 23775 -0120 00 0 24045 TMI BZ545 OUT IS BINARY BZ345 FP062380 | 23776 0520 00 0 17610 ZET BND35 TEST SHIFT REMAIND BZ350 FP062390 | 23777 0020 00 0 24011 TRA *+10 TO TEST SHIFT INDIC BZ355 FP062400 | 24000 -0500 00 0 24002 CAL *+2 BUILD TRA *+2 BZ360 FP062410 24001 0074 00 4 11413 TSX PRGMR,4 BZ365 FP062420 | 24002 0020 00 0 00000 TRA .. BZ370 FP062430 | 24003 -0500 00 0 17513 CAL BNA30 PLUS 2 TO TRA BZ375 FP062440 | 1 LISTING OF 12/01/64 PAGE 133 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 24004 0074 00 4 11465 TSX PADDR,4 BZ380 FP062450 | 24005 -0500 00 0 24007 CAL *+2 BUILD CAL 0,1 BZ385 FP062460 | 24006 0074 00 4 11413 TSX PRGMR,4 BZ390 FP062470 | 24007 -0500 00 1 00000 CAL 0,1 BZ395 FP062480 24010 0020 00 0 24134 TRA BZ790 TO BUILD SLW 0,2 BZ400 FP062490 | 24011 0500 00 0 17573 CLA BND22 TEST SHIFT IND BZ405 FP062500 | 24012 -0120 00 0 24020 TMI *+6 BZ410 FP062510 | 24013 0754 00 0 00000 PXA 0,0 SET CAL TO 0 BZ415 FP062520 | 24014 0621 00 0 24033 STA *+15 BZ420 FP062530 24015 0500 00 0 17514 CLA BNA40 SET LDQ TO 1 BZ425 FP062540 | 24016 0621 00 0 24036 STA *+16 BZ430 FP062550 | 24017 0020 00 0 24024 TRA *+5 BZ435 FP062560 | 24020 0500 00 0 17571 CLA BND20 SET CAL TO -1 BZ440 FP062570 | 24021 0621 00 0 24033 STA *+10 BZ445 FP062580 24022 0754 00 0 00000 PXA 0,0 SET LDQ TO 0 BZ450 FP062590 | 24023 0621 00 0 24036 STA *+11 BZ455 FP062600 | 24024 -0500 00 0 24026 CAL *+2 BUILD TRA *+4 BZ460 FP062610 | 24025 0074 00 4 11413 TSX PRGMR,4 BZ465 FP062620 | 24026 0020 00 0 00000 TRA .. BZ470 FP062630 24027 0500 00 0 17532 CLA BNB80 PLUS 4 FOR TRA BZ475 FP062640 | 24030 0074 00 4 11465 TSX PADDR,4 BZ480 FP062650 | 24031 -0500 00 0 24033 CAL *+2 BUILD CAL..,1 BZ485 FP062660 | 24032 0074 00 4 11413 TSX PRGMR,4 BZ490 FP062670 | 24033 -0500 00 1 00000 CAL ..,1 BZ495 FP062680 24034 -0500 00 0 24036 CAL *+2 BUILD LDQ..,1 BZ500 FP062690 | 24035 0074 00 4 11413 TSX PRGMR,4 BZ505 FP062700 | 24036 0560 00 1 00000 LDQ ..,1 BZ510 FP062710 | 24037 0500 00 0 17610 CLA BND35 SHIFT REM TO LGL BZ515 FP062720 | 24040 0621 00 0 24043 STA *+3 BZ520 FP062730 24041 -0500 00 0 24043 CAL *+2 BUILD LGL.. BZ525 FP062740 | 24042 0074 00 4 11413 TSX PRGMR,4 BZ530 FP062750 | 24043 -0763 00 0 00000 LGL .. BZ535 FP062760 | 24044 0020 00 0 24134 TRA BZ790 TO BUILD SLW 0,2 BZ540 FP062770 | 24045 0500 00 0 17574 BZ545 CLA BND23 CO INPUT WDS TO 2 BZ545 FP062780 24046 -0340 00 0 17513 LAS BNA30 BZ550 FP062790 | 24047 0020 00 0 24052 TRA *+3 TO DROP DEAD BZ555 FP062800 | 24050 0020 00 0 24054 TRA *+4 BZ560 FP062810 | 24051 0020 00 0 24120 TRA BZ730 1 WD TO BUILD SLW DBBCR BZ565 FP062820 | 24052 0074 00 4 10507 TSX T0010,4 FP062830 24053 -1 06736 3 00000 STR 0,3,3550 FLDTOO BIG ON MODE CHANGE BZ570 FP062840 | 24054 -0500 00 0 24056 CAL *+2 2 WDS BUILD SLW DBBCL BZ575 FP062850 | 24055 0074 00 4 11413 TSX PRGMR,4 BZ580 FP062860 | 24056 0602 00 0 20065 SLW DBBCL BZ585 FP062870 | 24057 0520 00 0 17610 ZET BND35 BZ590 FP062880 24060 0020 00 0 24065 TRA BZ616 BZ595 FP062890 | 24061 -0500 00 0 24063 CAL *+2 BUILD CAL 1,1 BZ600 FP062900 | 24062 0074 00 4 11413 TSX PRGMR,4 BZ605 FP062910 | 24063 -0500 00 1 00001 CAL 1,1 BZ610 FP062920 | 24064 0020 00 0 24120 TRA BZ730 TO BUILD SLW DBBCR BZ615 FP062930 24065 -0500 00 0 24067 BZ616 CAL *+2 BZ616 FP062940 | 24066 0074 00 4 11413 TSX PRGMR,4 BZ617 FP062950 | 24067 2 00001 1 00000 TIX 0,1,1 BUILD TIX *+1,1,1 BZ618 FP062960 | 24070 0500 00 0 11026 CLA NMBR1 BZ619 FP062970 | 24071 0074 00 4 11465 TSX PADDR,4 BZ620 FP062980 24072 0500 00 0 17573 BZ621 CLA BND22 TEST SHIFT INDICATOR BZ621 FP062990 | 1 LISTING OF 12/01/64 PAGE 134 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 24073 -0120 00 0 24101 TMI *+6 BZ625 FP063000 24074 0754 00 0 00000 PXA 0,0 SET CAL 0,1 BZ630 FP063010 | 24075 0621 00 0 24107 STA *+10 BZ635 FP063020 | 24076 0500 00 0 17514 CLA BNA40 SET LDQ 1,1 BZ640 FP063030 | 24077 0621 00 0 24112 STA *+11 BZ645 FP063040 | 24100 0020 00 0 24105 TRA *+5 BZ650 FP063050 24101 0500 00 0 17571 CLA BND20 SET CAL -1,1 BZ655 FP063060 | 24102 0621 00 0 24107 STA *+5 BZ660 FP063070 | 24103 0754 00 0 00000 PXA 0,0 SET LDQ 0,1 BZ665 FP063080 | 24104 0621 00 0 24112 STA *+6 BZ670 FP063090 | 24105 -0500 00 0 24107 CAL *+2 BUILD CAL..,1 BZ675 FP063100 24106 0074 00 4 11413 TSX PRGMR,4 BZ680 FP063110 | 24107 -0500 00 1 00000 CAL ..,1 BZ685 FP063120 | 24110 -0500 00 0 24112 CAL *+2 BUILD LDQ ..,1 BZ690 FP063130 | 24111 0074 00 4 11413 TSX PRGMR,4 BZ695 FP063140 | 24112 0560 00 1 00000 LDQ ..,1 BZ700 FP063150 24113 0500 00 0 17610 CLA BND35 SHIFT REM TO LGL BZ705 FP063160 | 24114 0621 00 0 24117 STA *+3 BZ710 FP063170 | 24115 -0500 00 0 24117 CAL *+2 BUILD LGL.. BZ715 FP063180 | 24116 0074 00 4 11413 TSX PRGMR,4 BZ720 FP063190 | 24117 -0763 00 0 00000 LGL .. BZ725 FP063200 24120 -0500 00 0 24122 BZ730 CAL *+2 BUILD SLW DBBCR BZ730 FP063210 | 24121 0074 00 4 11413 TSX PRGMR,4 BZ735 FP063220 | 24122 0602 00 0 20066 SLW DBBCR BZ740 FP063230 | 24123 -0500 00 0 24125 CAL *+2 BUILD TSX TOBIN,4 BZ745 FP063240 | 24124 0074 00 4 11413 TSX PRGMR,4 BZ750 FP063250 24125 0074 00 4 17747 TSX TOBIN,4 BZ755 FP063260 | 24126 -0500 00 0 24130 CAL *+2 BUILD HPR BZ760 FP063270 | 24127 0074 00 4 11413 TSX PRGMR,4 BZ765 FP063280 | 24130 0420 00 0 01027 HPR 535 OBJECT INSTR BZ770 FP063290 | 24131 -0500 00 0 24133 CAL *+2 BUILD CAL DBBIN BZ775 FP063300 24132 0074 00 4 11413 TSX PRGMR,4 BZ780 FP063310 | 24133 -0500 00 0 20064 CAL DBBIN BZ785 FP063320 | 24134 -0500 00 0 24136 BZ790 CAL *+2 BUILD SLW 0,2 BZ790 FP063330 | 24135 0074 00 4 11413 TSX PRGMR,4 BZ795 FP063340 | 24136 0602 00 2 00000 SLW 0,2 BZ800 FP063350 24137 -0500 00 0 24141 CAL *+2 BUILD TIX *+1,2,1 AZ835 FP063360 | 24140 0074 00 4 11413 TSX PRGMR,4 BZ840 FP063370 | 24141 2 00001 2 00000 TIX ..,2,1 BZ845 FP063380 | 24142 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BZ850 FP063390 | 24143 0074 00 4 11465 TSX PADDR,4 BZ855 FP063400 24144 -0760 00 0 00142 SLT 2 BZ860 FP063410 | 24145 0020 00 0 24170 TRA BZ960 TO BUILD LXA ..,1 BZ865 FP063420 | 24146 -0500 00 0 24150 CAL *+2 BUILD TIX *+1,1,1 BZ870 FP063430 | 24147 0074 00 4 11413 TSX PRGMR,4 BZ875 FP063440 | 24150 2 00001 1 00000 TIX ..,1,1 BZ880 FP063450 24151 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BZ885 FP063460 | 24152 0074 00 4 11465 TSX PADDR,4 BZ890 FP063470 | 24153 0520 00 0 17610 ZET BND35 TEST SHIFT REMAINDER BZ895 FP063480 | 24154 0020 00 0 24163 TRA *+7 TO BUILD TIX *-6,4,1 BZ900 FP063490 | 24155 -0500 00 0 24157 CAL *+2 BUILD TIX *-4,4,1 BZ910 FP063500 24156 0074 00 4 11413 TSX PRGMR,4 BZ910 FP063510 | 24157 2 00001 4 00000 TIX ..,4,1 BZ915 FP063520 | 24160 0502 00 0 11031 CLS NMBR4 BUILD-4 FOR TIX BZ920 FP063530 | 24161 0074 00 4 11465 TSX PADDR,4 BZ925 FP063540 | 1 LISTING OF 12/01/64 PAGE 135 DICT (9PAC31). MOVE INPUT TO OUTPUT | | 24162 0020 00 0 24170 TRA *+6 TO BUILD LXA ..,1 BZ930 FP063550 | 24163 -0500 00 0 24165 CAL *+2 BUILD TIX *-8,4,1 BZ935 FP063560 | 24164 0074 00 4 11413 TSX PRGMR,4 BZ940 FP063570 24165 2 00001 4 00000 TIX ..,4,1 BZ945 FP063580 | 24166 0502 00 0 11033 CLS NMBR6 BUILD-6 FOR TIX BZ950 FP063590 | 24167 0074 00 4 11465 TSX PADDR,4 BZ955 FP063600 | 24170 -0500 00 0 24172 BZ960 CAL *+2 BUILD LXA ..,1 BZ960 FP063610 | 24171 0074 00 4 11413 TSX PRGMR,4 BZ965 FP063620 24172 0534 00 1 00000 LXA ..,1 BZ970 FP063630 | 24173 -0500 00 0 17654 CAL BND72 SUPPLY ADDRESS FOR LXA BZ975 FP063640 | 24174 0074 00 4 11455 TSX SADDR+1,4 BZ980 FP063650 | 24175 0600 00 0 17610 BZ982 STZ BND35 BZ982 FP063660 | 24176 0020 00 0 20212 TRA BQ948 REF 7-6 BZ985 FP063670 1 LISTING OF 12/01/64 PAGE 136 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | * NO CHANGE THIS FIELD BDA04 FP063690 | 24177 -0500 00 2 00002 BDA05 CAL 2,2 TEST TO SEE IF BINARY BDA05 FP063700 24200 -0320 00 0 17572 ANA BND21 BDA10 FP063710 | 24201 -0100 00 0 24221 TNZ BDA85 BDA15 FP063720 | 24202 -0500 00 2 00001 CAL 1,2 BINARY PICK UP BDA20 FP063730 | 24203 0560 00 2 00002 LDQ 2,2 RECORD TYPE AND BDA25 FP063740 | 24204 -0763 00 0 00006 LGL 6 FIELD NUMBER BDA30 FP063750 24205 0602 00 0 17603 SLW BND30 BDA35 FP063760 | 24206 0534 00 1 17601 LXA BND28,1 PICK UP LOCATION IN SUMTABEBDA40 FP063770 | 24207 -0520 00 1 71545 BDA45 NZT SUTBL,1 END OF SUMMARY TABLE BDA45 FP063780 | 24210 0020 00 0 24221 TRA BDA85 YES BDA46 FP063790 | 24211 -0500 00 0 17603 CAL BND30 COMPARE RT AND FLD NO. BDA47 FP063800 24212 -0340 00 1 71545 LAS SUTBL,1 NUMBER WITH SUMTABEL BDA50 FP063810 | 24213 1 77775 1 24212 TXI *-1,1,-3 BDA55 FP063820 | 24214 0020 00 0 24521 TRA BDK50 A G RECORD BDA60 FP063830 | 24215 0634 00 1 17601 SXA BND28,1 SAVE LOCATION IN SUMTABEL BDA65 FP063840 | 24216 -0760 00 0 00141 SLT 1 BDA70 FP063850 24217 0020 00 0 24221 TRA *+2 NO G RECORDS BDA75 FP063860 | 24220 0020 00 0 20212 TRA BQ948 7-6 GENERATE NEXT AXT BDA80 FP063870 | 24221 -0500 00 2 00001 BDA85 CAL 1,2 TEST TO SEE IF BDA85 FP063880 | 24222 -0765 00 0 00036 BDA90 LGR 30 AN F RECORD BDA90 FP063890 | 24223 0402 00 0 16526 SUB AAG11 BDA91 FP063900 24224 -0100 00 0 24226 TNZ *+2 BDA95 FP063910 | 24225 0634 00 2 17656 SXA BND74,2 LAST F DICT BDB00 FP063920 | 24226 -0500 00 2 00000 CAL 0,2 MOVE UP TO NEXT BDB05 FP063930 | 24227 0737 00 2 00000 PAC 0,2 CODE WORD BDB10 FP063940 | 24230 0520 00 2 00000 BDB15 ZET 0,2 BDB15 FP063950 24231 0020 00 0 17013 TRA BN180+1 1-A NOT END OF MODE BDB20 FP063960 | 24232 0774 00 4 00003 BDB25 AXT 3,4 ADDRESS IS MODIFIED BDB25 FP063970 | 24233 -2 00001 4 24561 TNX BDL90,4,1 OUT IF LAST OF DICTIONARY BDB30 FP063980 | 24234 0634 00 4 24232 SXA *-2,4 RESTORE AXT BDB35 FP063990 | 24235 0600 00 0 17601 STZ BND28 INITIALZE G SUMTABLE BDB40 FP064000 24236 -3 00001 4 24241 TXL *+3,4,1 BDB45 FP064010 | 24237 -0774 00 2 37075 AXC AAG30,2 SET IR FOR PACKED BDB50 FP064020 | 24240 0020 00 0 24230 TRA BDB15 1-A BDB55 FP064030 | 24241 -0774 00 2 45751 AXC AAG31,2 BDB60 FP064040 | 24242 -0520 00 0 17610 NZT BND35 TEST FOR BEFORE SH+FT BDB65 FP064050 24243 0020 00 0 24230 TRA BDB15 BDB70 FP064060 | 24244 -0500 00 2 00000 CAL 0,2 FIRST BINARY DICTIONARY BDB75 FP064070 | 24245 -0320 00 0 17535 ANA BNC20 MASK OFF ALL BUT CH CODE BDB80 FP064080 | 24246 0100 00 0 24357 TZE BDG00 NO CHANGE BDB85 FP064090 | 24247 -0340 00 0 17660 LAS BND76 BDB90 FP064100 24250 0020 00 0 24413 TRA BDH30 OUTPUT DICTIONARY IN 2ND PLBDB95 FP064110 | 24251 0020 00 0 24357 TRA BDG00 OUTPUT DICTIONARY IN 1ST PLBDC00 FP064120 | 24252 0074 00 4 24435 TSX BDH60,4 PICK UP LOCATION OF FIRST DBDC05 FP064130 | 24253 -0500 00 0 17574 CAL BND23 DELETE CHANGE INPUT WORD BDC10 FP064140 | 24254 0402 00 0 17543 SUB BNC80 BDC15 FP064150 24255 0601 00 0 17561 STO BND12 BDC20 FP064160 | 24256 0402 00 0 17514 SUB BNA40 BDC22 FP064170 | 24257 -0120 00 0 24261 TMI *+2 BDC25 FP064180 | 24260 -0100 00 0 24270 TNZ BDC70 BDC30 FP064190 | 24261 -0500 00 0 17570 CAL BND19 GENERATS NEXT INSTRUCTIONS BDC35 FP064200 24262 0621 00 0 11451 STA H0080 OVER THE LAST LOOP BDC40 FP064210 | 24263 -0500 00 0 17567 CAL BND18 BDC45 FP064220 | 24264 0621 00 0 11436 STA G0080 BDC50 FP064230 | 1 LISTING OF 12/01/64 PAGE 137 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 24265 -0500 00 0 17566 CAL BND17 BDC55 FP064240 | 24266 0621 00 0 11423 STA F0080 BDC60 FP064250 | 24267 0020 00 0 24272 TRA *+3 BDC65 FP064260 | 24270 0522 00 0 11422 BDC70 XEC F0080-1 LOAD IR4 BDC70 FP064270 24271 -0602 60 0 17556 ORS* BND00 STORES ADDRESS IN LAST AXT BDC75 FP064280 | 24272 -0500 00 0 17624 CAL BND47 LAST FIELDS LAST WORK WORD BDC80 FP064290 | 24273 0400 00 0 17561 ADD BND12 BDC85 FP064300 | 24274 0601 00 0 17624 STO BND47 BDC90 FP064310 | 24275 -0500 00 0 17574 CAL BND23 INPUT WORD BDC95 FP064320 24276 0601 00 0 17543 STO BNC80 START OF NEXT AXT LOOP BDD00 FP064330 | 24277 0534 00 2 17656 BDD05 LXA BND74,2 PICK UP LAST F DICTIONARY BDD05 FP064340 | 24300 -0500 00 2 00000 CAL 0,2 TEST TO SEE IF A CHANGE BDD10 FP064350 | 24301 -0320 00 0 17535 ANA BNC20 BDD15 FP064360 | 24302 -0100 00 0 24415 TNZ BDH40 BDD20 FP064370 24303 0074 00 4 24435 TSX BDH60,4 NO CHANGE IN LAST F BDD25 FP064380 | 24304 -0500 00 0 17573 CAL BND22 PICK UP LAST OUTPUT BDD30 FP064390 | 24305 0400 00 0 17575 ADD BND24 LENGTH AND BIT LOCATION BDD35 FP064400 | 24306 0131 00 0 00000 XCA BDD40 FP064410 | 24307 0754 00 0 00000 PXA 0,0 BDD45 FP064420 24310 0220 00 0 17563 DVH BND14 36 BDD50 FP064430 | 24311 -0100 00 0 24322 TNZ BDD70 BDD55 FP064440 | 24312 -0500 00 0 24314 BDD56 CAL *+2 BDD56 FP064450 | 24313 0074 00 4 11413 TSX PRGMR,4 BDD57 FP064460 | 24314 2 00001 1 00000 TIX 0,1,1 BUILD TIX *+1,1,1. BDD58 FP064470 24315 -0500 00 0 17514 CAL BNA40 BDD59 FP064480 | 24316 0074 00 4 11465 TSX PADDR,4 BDD60 FP064490 | 24317 -0774 00 2 45751 BDD61 AXC AAG31,2 BDD61 FP064500 | 24320 -0625 00 0 17545 STL BNC91 BDD62 FP064510 | 24321 0020 00 0 20212 TRA BQ948 7-6 BUILD NEXT AXT LOOP BDD65 FP064520 24322 0621 00 0 24324 BDD70 STA *+2 BDD70 FP064530 | 24323 -0500 00 0 17571 CAL BND20 ALL ONES BDD75 FP064540 | 24324 0771 00 0 00000 ARS .. BDD80 FP064550 | 24325 0760 00 0 00006 COM BDD85 FP064560 | 24326 0602 00 0 17561 SLW BND12 MASK BDD90 FP064570 24327 -0760 00 0 00141 BDD95 SLT 1 BDD95 FP064580 | 24330 0020 00 0 24342 TRA BDF00 BDE60 FP064590 | 24331 0500 00 0 17543 BDE65 CLA BNC80 BDE65 FP064600 | 24332 0402 00 0 17514 SUB BNA40 BDE68 FP064610 | 24333 0601 00 0 17543 BDE70 STO BNC80 BDE70 FP064620 24334 -0500 00 0 24336 CAL *+2 BUILD TXI*+1,2,1 BDE74 FP064630 | 24335 0074 00 4 11413 TSX PRGMR,4 BDE75 FP064640 | 24336 1 00001 2 00000 TXI ..,2,1 BDE76 FP064650 | 24337 -0500 00 0 17514 BDE80 CAL BNA40 1 BDE80 FP064660 | 24340 0074 00 4 11465 TSX PADDR,4 BDE85 FP064670 24341 0020 00 0 24317 TRA BDD61 BDE90 FP064680 | 24342 -0500 00 0 24344 BDF00 CAL *+2 BUILD CAL -1,2 BDF00 FP064690 | 24343 0074 00 4 11413 TSX PRGMR,4 BDF05 FP064700 | 24344 -0500 00 2 77777 CAL -1,2 BDF10 FP064710 | 24345 -0500 00 0 24347 CAL *+2 BUILD ANA BDF15 FP064720 24346 0074 00 4 11413 TSX PRGMR,4 BDF20 FP064730 | 24347 -0320 00 0 00000 ANA .. BDF25 FP064740 | 24350 -0500 00 0 17561 CAL BND12 BUILD MASK BDF30 FP064750 | 24351 0074 00 4 11426 TSX STORR,4 BDF35 FP064760 | 24352 0074 00 4 11454 TSX SADDR,4 TIE TOGETHER BDF40 FP064770 24353 -0500 00 0 24355 CAL *+2 BUILD SLW -1,2 BDF45 FP064780 | 1 LISTING OF 12/01/64 PAGE 138 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 24354 0074 00 4 11413 TSX PRGMR,4 BDF50 FP064790 24355 0602 00 2 77777 SLW -1,2 BDF55 FP064800 | 24356 0020 00 0 24312 TRA BDD56 BDF90 FP064810 | 24357 0074 00 4 24435 BDG00 TSX BDH60,4 LOCATIONS FROM FIRST DICTIOBDG00 FP064820 | 24360 -0500 00 0 17574 CAL BND23 OUTPUT WORD BDG05 FP064830 | 24361 0402 00 0 17624 SUB BND47 LAST FIELDS WORK WORD BDG10 FP064840 24362 0402 00 0 17514 SUB BNA40 1 BDG15 FP064850 | 24363 0601 00 0 17561 STO BND12 BDG20 FP064860 | 24364 -0120 00 0 24366 TMI *+2 BDG25 FP064870 | 24365 -0100 00 0 24375 TNZ BDG70 BDG30 FP064880 | 24366 -0500 00 0 17570 CAL BND19 GENERATE NEXT INSTTUCTIONS BDG35 FP064890 24367 0621 00 0 11451 STA H0080 OVER PREVIOUS LOOP BDG40 FP064900 | 24370 -0500 00 0 17567 CAL BND18 BDG45 FP064910 | 24371 0621 00 0 11436 STA G0080 BDG50 FP064920 | 24372 -0500 00 0 17566 CAL BND17 BDG55 FP064930 | 24373 0621 00 0 11423 STA F0080 BDG60 FP064940 24374 0020 00 0 24377 TRA *+3 BDG65 FP064950 | 24375 0522 00 0 11422 BDG70 XEC F0080-1 LOOD IRY BDG70 FP064960 | 24376 -0602 60 0 17556 ORS* BND00 STORES ADDRESS IN AXT LOOP BDG75 FP064970 | 24377 -0500 00 0 17574 CAL BND23 OUTPUT WORD BDG80 FP064980 | 24400 0402 00 0 17514 SUB BNA40 1 BDG85 FP064990 24401 0601 00 0 17624 STO BND47 LAST WORK WORD BDG90 FP065000 | 24402 0500 00 0 17561 BDG95 CLA BND12 BDG95 FP065010 | 24403 0120 00 0 24405 TPL *+2 BDG97 FP065020 | 24404 0754 00 0 00000 PXA 0,0 BDG99 FP065030 | 24405 0400 00 0 17543 ADD BNC80 BDH01 FP065040 24406 0400 00 0 17514 ADD BNA40 BDH03 FP065050 | 24407 0601 00 0 17543 STO BNC80 BDH05 FP065060 | 24410 -0760 00 0 00143 SLT 3 BDH10 FP065070 | 24411 0020 00 0 24277 TRA BDD05 READ IN LAST F RECORD BDH15 FP065080 | 24412 0020 00 0 24531 TRA BDK90 BACK TO G RECORDS FOR BINARBDH20 FP065090 24413 0074 00 4 24467 BDH30 TSX BDJ05,4 LOCATIONS IN SECOND DICTIONBDH30 FP065100 | 24414 0020 00 0 24360 TRA BDG00+1 BDH35 FP065110 | 24415 -0500 00 0 17636 BDH40 CAL BND57 PICK UP REMAINDES BDH40 FP065120 | 24416 -0100 00 0 24322 TNZ BDD70 NON ZERO MASK OUT LAST OUTPBDH45 FP065130 | 24417 -0500 00 2 00000 BDH46 CAL 0,2 BDH46 FP065140 24420 -0734 00 4 00000 PDX 0,4 BDH47 FP065150 | 24421 -3 00001 4 24331 TXL BDE65,4,1 BDH48 FP065160 | 24422 -3 00002 4 24331 TXL BDE65,4,2 BDH49 FP065170 | 24423 -3 00003 4 24331 TXL BDE65,4,3 BDH50 FP065180 | 24424 -3 00004 4 24431 TXL BDH56,4,4 BDH51 FP065190 24425 -3 00005 4 24331 TXL BDE65,4,5 BDH52 FP065200 | 24426 -3 00006 4 24431 TXL BDH56,4,6 BDH53 FP065210 | 24427 0760 00 0 00141 SLN 1 BDH54 FP065220 | 24430 0020 00 0 24327 TRA BDD95 BDH55 FP065230 | 24431 -0500 00 0 24433 BDH56 CAL *+2 BDH56 FP065240 24432 0074 00 4 11413 TSX PRGMR,4 BDH57 FP065250 | 24433 2 00001 1 00000 TIX ..,1,1 BUILD TIX *+1,1,1 BDH58 FP065260 | 24434 0020 00 0 24337 TRA BDE80 BDH59 FP065270 | 24435 0634 00 4 24465 BDH60 SXA BDI95,4 ROUTINE FOR FINDING BDH60 FP065280 | 24436 -0500 00 2 00002 CAL 2,2 LOCATIONS OF FIRST BDH65 FP065290 24437 0560 00 2 00003 LDQ 3,2 F DICTIONARY RECORD BDH70 FP065300 | 24440 -0763 00 0 00006 LGL 6 BDH75 FP065310 | 24441 -0320 00 0 17560 ANA BND11 BDH80 FP065320 | 24442 0602 00 0 07751 SLW B1020 BDH85 FP065330 | 1 LISTING OF 12/01/64 PAGE 139 DICT (9PAC31). MOVE INPUT TO OUTPUT | | 24443 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BDH90 FP065340 | 24444 0500 00 0 07747 CLA B1000 BDI00 FP065350 | 24445 0602 00 0 17573 SLW BND22 FIELD LENGTH BDI05 FP065360 24446 -0500 00 2 00003 CAL 3,2 BDI10 FP065370 | 24447 0560 00 2 00004 LDQ 4,2 BDI15 FP065380 | 24450 -0763 00 0 00022 LGL 18 BDI20 FP065390 | 24451 -0320 00 0 17540 ANA BNC50 BDI25 FP065400 | 24452 0602 00 0 07751 SLW B1020 BDI30 FP065410 24453 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BDI35 FP065420 | 24454 0500 00 0 07747 CLA B1000 BDI45 FP065430 | 24455 0602 00 0 17574 SLW BND23 WORD LOCATION BDI50 FP065440 | 24456 -0500 00 2 00004 CAL 4,2 BDI55 FP065450 | 24457 -0320 00 0 17557 ANA BND10 BDI60 FP065460 24460 0771 00 0 00006 ARS 6 BDI65 FP065470 | 24461 0602 00 0 07751 SLW B1020 BDI70 FP065480 | 24462 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BDI75 FP065490 | 24463 0500 00 0 07747 CLA B1000 BDI85 FP065500 | 24464 0602 00 0 17575 SLW BND24 BIT LOCATION BDI90 FP065510 24465 0774 00 4 00000 BDI95 AXT ..,4 BDI95 FP065520 | 24466 0020 00 4 00001 TRA 1,4 RETURN TO MAIN PROGRAM BDJ00 FP065530 | 24467 0634 00 4 24517 BDJ05 SXA BDK40,4 RETURN FOR FINDING BDJ05 FP065540 | 24470 -0500 00 2 00015 CAL 13,2 LOCATION OF SECOND F BDJ10 FP065550 | 24471 0560 00 2 00016 LDQ 14,2 DICTIONARY RECORD BDJ15 FP065560 24472 -0763 00 0 00006 LGL 6 BDJ20 FP065570 | 24473 -0320 00 0 17560 ANA BND11 BDJ25 FP065580 | 24474 0602 00 0 07751 SLW B1020 BDJ30 FP065590 | 24475 0074 00 4 07570 TSX B0010,4 BCD TO BINARY BDJ35 FP065600 | 24476 0500 00 0 07747 CLA B1000 BDJ45 FP065610 24477 0602 00 0 17573 SLW BND22 FIELD LENGTH BDJ50 FP065620 | 24500 -0500 00 2 00016 CAL 14,2 BDJ55 FP065630 | 24501 0560 00 2 00017 LDQ 15,2 BDJ60 FP065640 | 24502 -0763 00 0 00022 LGL 18 BDJ65 FP065650 | 24503 -0320 00 0 17540 ANA BNC50 BDJ70 FP065660 24504 0602 00 0 07751 SLW B1020 BCD TO BINARY BDJ75 FP065670 | 24505 0074 00 4 07570 TSX B0010,4 BDJ80 FP065680 | 24506 0500 00 0 07747 CLA B1000 BDJ90 FP065690 | 24507 0602 00 0 17574 SLW BND23 WORD LOCATION BDJ95 FP065700 | 24510 -0500 00 2 00017 CAL 15,2 BDK000FP065710 24511 -0320 00 0 17557 ANA BND10 BDK05 FP065720 | 24512 0771 00 0 00006 ARS 6 BDK10 FP065730 | 24513 0602 00 0 07751 SLW B1020 BCD TO BINARY BDK15 FP065740 | 24514 0074 00 4 07570 TSX B0010,4 BDK20 FP065750 | 24515 0500 00 0 07747 CLA B1000 BDK30 FP065760 24516 0602 00 0 17575 SLW BND24 BIT LOCATION BDK35 FP065770 | 24517 0774 00 4 00000 BDK40 AXT ..,4 BDK40 FP065780 | 24520 0020 00 4 00001 TRA 1,4 RETURN TO MAIN PROGRAM BDK45 FP065790 | 24521 0500 00 1 71547 BDK50 CLA SUTBL+2,1 BDK50 FP065800 | 24522 -0120 00 0 24527 TMI *+5 A G DELETE BDK55 FP065810 24523 0767 00 0 00001 ALS 1 BDK60 FP065820 | 24524 -0760 00 0 00001 PBT TEST FOR INSERT BDK65 FP065830 | 24525 1 77775 1 24207 TXI BDA45,1,-3 NOT A G INSERT BDK70 FP065840 | 24526 0760 00 0 00142 SLN 2 BDK75 FP065850 | 24527 -0760 00 0 00141 SLT 1 SEE IF LAST LOOP WAS STOPEDBDK80 FP065860 24530 0020 00 0 24552 TRA BDL75 NO IT WAS NOT BDK85 FP065870 | 24531 0760 00 0 00141 BDK90 SLN 1 BDK90 FP065880 | 1 LISTING OF 12/01/64 PAGE 140 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 24532 -0500 00 1 71547 CAL SUTBL+2,1 BUILD CLA WITH BDK95 FP065890 | 24533 0621 00 0 24536 STA *+3 OBJ SUMTBL ADDR BDL00 FP065900 | 24534 -0500 00 0 24536 CAL *+2 BDL05 FP065910 | 24535 0074 00 4 11413 TSX PRGMR,4 BDL10 FP065920 | 24536 0500 00 0 00000 CLA .. BDL15 FP065930 24537 -0500 00 0 24560 BDL20 CAL BDL85 INSERT BUILD ADD 0,1 BDL20 FP065940 | 24540 -0760 00 0 00142 SLT 2 BDL25 FP065950 | 24541 -0500 00 0 24543 CAL *+2 DELETE BUILD SUB 0,1 BDL30 FP065960 | 24542 0074 00 4 11413 TSX PRGMR,4 BDL35 FP065970 | 24543 0402 00 1 77777 SUB -1,1 BDL40 FP065980 24544 -0500 00 1 71547 CAL SUTBL+2,1 BDL45 FP065990 | 24545 0621 00 0 24550 STA *+3 BDL50 FP066000 | 24546 -0500 00 0 24550 CAL *+2 BDL55 FP066010 | 24547 0074 00 4 11413 TSX PRGMR,4 BDL60 FP066020 | 24550 0601 00 0 00000 STO .. BDL65 FP066030 24551 1 77775 1 24207 TXI BDA45,1,-3 TRY FOR ANOTHER G RECORD BDL70 FP066040 | 24552 0760 00 0 00143 BDL75 SLN 3 BDL75 FP066050 | 24553 0074 00 4 24435 TSX BDH60,4 BDL79 FP066060 | 24554 -0500 00 0 17574 CAL BND23 BDL80 FP066070 | 24555 0400 00 0 11026 ADD NMBR1 BDL81 FP066080 24556 0602 00 0 17574 SLW BND23 BDL82 FP066090 | 24557 0020 00 0 24361 TRA BDG00+2 BDL83 FP066100 | 24560 0400 00 1 77777 BDL85 ADD -1,1 BDL85 FP066110 | 24561 -0500 00 0 17345 BDL90 CAL BNA10+1 TO MOVE REMAINDER OF RECORD BDL900FP066120 | 24562 0402 00 0 17543 SUB BNC80 BDL905FP066130 24563 0600 00 0 17543 STZ BNC80 BDL910FP066140 | 24564 0100 00 0 24571 TZE BDL94 BDL915FP066150 | 24565 -0120 00 0 24571 TMI BDL94 BDL920FP066160 | 24566 0522 00 0 11422 XEC F0080-1 BDL925FP066170 | 24567 -0602 60 0 17556 ORS* BND00 BDL930FP066180 24570 0020 00 0 24577 TRA BDL97 BDL935FP066190 | 24571 -0500 00 0 17566 BDL94 CAL BND17 RESTORE GENERATOR BDL940FP066200 | 24572 0621 00 0 11423 STA F0080 BDL945FP066210 | 24573 -0500 00 0 17567 CAL BND18 BDL950FP066220 | 24574 0621 00 0 11436 STA G0080 BDL955FP066230 24575 -0500 00 0 17570 CAL BND19 BDL960FP066240 | 24576 0621 00 0 11451 STA H0080 BDL965FP066250 | 24577 0502 00 0 17514 BDL97 CLS BNA40 1 BDL97 FP066260 | 24600 0601 00 0 17624 STO BND47 LAST WORK WORD BDM00 FP066270 | 24601 0600 00 0 17610 STZ BND35 SHIFT ZEGGER BDM05 FP066280 24602 0774 00 4 00003 AXT 3,4 BDM10 FP066290 | 24603 0634 00 4 24232 BDM11 SXA BDB25,4 BDM11 FP066300 | 24604 -0520 00 0 17554 NZT BNC98 DELETE RT BDM12 FP066310 | 24605 0020 00 0 24632 TRA BDM20 NO BDM13 FP066320 | 24606 0600 00 0 17554 STZ BNC98 YES BDM14 FP066330 24607 -0500 00 0 24611 CAL *+2 BUILD DELETION COUNTER BDM141FP066340 | 24610 0074 00 4 11413 TSX PRGMR,4 BDM142FP066350 | 24611 -0500 60 0 17310 CAL* INLOC BDM143FP066360 | 24612 -0500 00 0 24614 CAL *+2 BDM144FP066370 | 24613 0074 00 4 11413 TSX PRGMR,4 BDM145FP066380 24614 0074 00 4 22603 TSX Y6010,4 BDM15 FP066390 | 24615 -0500 00 0 24617 CAL *+2 U8 BDM151FP066400 | 24616 0074 00 4 11413 TSX PRGMR,4 BDM152FP066410 | 24617 1 77770 2 00000 TXI ..,2,-8 BDM153FP066420 | 24620 -0500 00 0 17514 CAL BNA40 BDM154FP066430 1 LISTING OF 12/01/64 PAGE 141 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 24621 0074 00 4 11465 TSX PADDR,4 BDM155FP066440 | 24622 -0500 00 0 24624 CAL *+2 BDM16 FP066450 24623 0074 00 4 11413 TSX PRGMR,4 BDM161FP066460 | 24624 0074 00 4 22620 TSX Y6150,4 BDM162FP066470 | 24625 -0500 00 0 24627 CAL *+2 BUILD TRA SORT CODE 25..+1 BDM163FP066480 | 24626 0074 00 4 11413 TSX PRGMR,4 BDM164FP066490 | 24627 0020 00 0 00001 TRA 1 BDM17 FP066500 24630 -0500 00 0 17555 CAL BNC99 THE SORT KEY BDM35 FP066510 | 24631 0074 00 4 11507 TSX YADDR,4 BDM19 FP066520 | 24632 -0500 00 0 24634 BDM20 CAL *+2 BUILD TRA BDM20 FP066530 | 24633 0074 00 4 11413 TSX PRGMR,4 BDM25 FP066540 | 24634 0020 00 0 00000 TRA .. BDM30 FP066550 24635 -0500 00 0 17532 CAL BNB80 4 PLACE Y IN ADDRESS BDM35 FP066560 | 24636 0074 00 4 11477 TSX GADDR,4 BDM40 FP066570 | 24637 0020 00 0 16746 TRA BN032 BDM45 FP066580 | 24640 0074 00 4 25126 BDM50 TSX BDY50,4 TRA MOD LINK SUB ROUT BDM50 FP066590 | 24641 0500 00 0 17641 CLA BND61 IS OUTPUT BIN BDN15 FP066600 24642 -0120 00 0 24727 TMI BDR20 TO UNPKD BCD TO BIN BDN20 FP066610 | 24643 -0500 00 0 24645 CAL *+2 BIN TO UNPKD BCD-BUILD CAL BDN25 FP066620 | 24644 0074 00 4 11413 TSX PRGMR,4 BDN30 FP066630 | 24645 -0500 00 1 00000 CAL 0,1 BDN35 FP066640 | 24646 -0500 00 0 24650 CAL *+2 BUILD SLW DBBIN BDN40 FP066650 24647 0074 00 4 11413 TSX PRGMR,4 BDN45 FP066660 | 24650 0602 00 0 20064 SLW DBBIN BDN50 FP066670 | 24651 -0500 00 0 24653 CAL *+2 BUILD TSX TOBCD,4 BDN55 FP066680 | 24652 0074 00 4 11413 TSX PRGMR,4 BDN60 FP066690 | 24653 0074 00 4 20213 TSX TOBCD,4 BDN65 FP066700 24654 -0500 00 0 24656 CAL *+2 BUILD AXC DBBCR,1 BDN85 FP066710 | 24655 0074 00 4 11413 TSX PRGMR,4 BDN90 FP066720 | 24656 -0774 00 1 20066 AXC DBBCR,1 BDN95 FP066730 | 24657 0500 00 0 17626 CLA BND49 TEST = OUTPUT WDS BDP00 FP066740 | 24660 -0340 00 0 17514 LAS BNA40 1 BDP05 FP066750 24661 0020 00 0 24670 TRA *+7 BDP10 FP066760 | 24662 0761 00 0 00000 NOP BDP15 FP066770 | 24663 0754 00 0 00000 PXA 0,0 SET ADDRESS SLW 0 BDP20 FP066780 | 24664 0621 00 0 24702 STA BDP95 BDP25 FP066790 | 24665 0774 00 4 00001 AXT 1,4 1 TO DECR OF TIX BDP30 FP066800 24666 -0634 00 4 24716 SXD BDQ75,4 BDP35 FP066810 | 24667 0020 00 0 24673 TRA *+4 BDP40 FP066820 | 24670 0760 00 0 00141 SLN 1 SET MULTI WD IND BDP45 FP066830 | 24671 0500 00 0 17514 CLA BNA40 SET ADDRESS SLW 1 BDP50 FP066840 | 24672 0621 00 0 24702 STA BDP95 BDP55 FP066850 24673 0754 00 0 00000 PXA 0,0 SET ADDRESS CAL 0 BDP60 FP066860 | 24674 0621 00 0 24677 STA *+3 BDP65 FP066870 | 24675 -0500 00 0 24677 BDP70 CAL *+2 BUILD CAL ..,1 BDP70 FP066880 | 24676 0074 00 4 11413 TSX PRGMR,4 BDP75 FP066890 | 24677 -0500 00 1 00000 BDP80 CAL ..,1 BDP80 FP066900 24700 -0500 00 0 24702 CAL *+2 BUILD SLW ..,2 BDP85 FP066910 | 24701 0074 00 4 11413 TSX PRGMR,4 BDP90 FP066920 | 24702 0602 00 2 00000 BDP95 SLW ..,2 BDP95 FP066930 | 24703 -0760 00 0 00141 SLT 1 TEST MULTI WD IND BDQ30 FP066940 | 24704 0020 00 0 24714 TRA BDQ65 BDQ35 FP066950 24705 0500 00 0 17571 CLA BND20 SET ADDRESS CAL -1 BDQ40 FP066960 | 24706 0621 00 0 24677 STA BDP80 BDQ45 FP066970 | 24707 0754 00 0 00000 PXA 0,0 SET ADDRESS SLW 0 BDQ50 FP066980 | 1 LISTING OF 12/01/64 PAGE 142 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 24710 0621 00 0 24702 STA BDP95 BDQ55 FP066990 | 24711 0774 00 4 00002 AXT 2,4 2 TO DECR OF TIX BDQ56 FP067000 | 24712 -0634 00 4 24716 SXD BDQ75,4 BDQ57 FP067010 | 24713 0020 00 0 24675 TRA BDP70 BDQ60 FP067020 24714 -0500 00 0 24716 BDQ65 CAL *+2 BUILD TIX *+1,2,.. BDQ65 FP067030 | 24715 0074 00 4 11413 TSX PRGMR,4 BDQ70 FP067040 | 24716 2 00000 2 00000 BDQ75 TIX ..,2,.. BDQ75 FP067050 | 24717 0500 00 0 17514 CLA BNA40 PLUS 1 FOR TIX BDQ80 FP067060 | 24720 0074 00 4 11465 TSX PADDR,4 BDQ85 FP067070 24721 -0500 00 0 24723 BDQ90 CAL *+2 REFX-BUILD LXA ..,1 BDQ90 FP067080 | 24722 0074 00 4 11413 TSX PRGMR,4 BDQ95 FP067090 | 24723 0534 00 1 00000 LXA ..,1 BDR00 FP067100 | 24724 -0500 00 0 17654 CAL BND72 ADDRESS FOR LXA BDR05 FP067110 | 24725 0074 00 4 11455 TSX SADDR+1,4 BDR10 FP067120 24726 0020 00 0 20212 TRA BQ948 REF 7-6 BDR15 FP067130 | 24727 -0500 00 0 24731 BDR20 CAL *+2 BUILD CAL 0,1 BDR20 FP067140 | 24730 0074 00 4 11413 TSX PRGMR,4 BDR25 FP067150 | 24731 -0500 00 1 00000 CAL 0,1 BDR30 FP067160 | 24732 0500 00 0 17615 CLA BND40 CALC FOR MULTI IN WDS BDR35 FP067170 24733 0400 00 0 17613 ADD BND38 BDR40 FP067180 | 24734 -0130 00 0 00000 XCL BDR45 FP067190 | 24735 0754 00 0 00000 PXA 0,0 BDR50 FP067200 | 24736 0220 00 0 17563 DVH BND14 36 BDR55 FP067210 | 24737 -0130 00 0 00000 XCL BDR60 FP067220 24740 -0340 00 0 17514 LAS BNA40 CO = IN WDS TO 1 BDR65 FP067230 | 24741 0020 00 0 24744 TRA *+3 BDR70 FP067240 | 24742 0761 00 0 00000 NOP BDR75 FP067250 | 24743 0020 00 0 24752 TRA *+7 BDR80 FP067260 | 24744 -0500 00 0 24746 CAL *+2 BUILD SLW DBBCL BDR85 FP067270 24745 0074 00 4 11413 TSX PRGMR,4 BDR90 FP067280 | 24746 0602 00 0 20065 SLW DBBCL BDR95 FP067290 | 24747 -0500 00 0 24751 CAL *+2 BUILD CAL 1,1 BDS00 FP067300 | 24750 0074 00 4 11413 TSX PRGMR,4 BDS05 FP067310 | 24751 -0500 00 1 00001 CAL 1,1 BDS10 FP067320 24752 -0500 00 0 24754 CAL *+2 BUILD SLW DBBCR BDS15 FP067330 | 24753 0074 00 4 11413 TSX PRGMR,4 BDS20 FP067340 | 24754 0602 00 0 20066 SLW DBBCR BDS25 FP067350 | 24755 -0500 00 0 24757 CAL *+2 BUILD TSX TOBIN ,4 BDS30 FP067360 | 24756 0074 00 4 11413 TSX PRGMR,4 BDS35 FP067370 24757 0074 00 4 17747 TSX TOBIN,4 BDS40 FP067380 | 24760 -0500 00 0 24762 CAL *+2 BUILD HPR BDS45 FP067390 | 24761 0074 00 4 11413 TSX PRGMR,4 BDS50 FP067400 | 24762 0420 00 0 01037 HPR 543 BDS55 FP067410 | 24763 -0500 00 0 24765 CAL *+2 BUILD AXC DBBIN,1 BDS60 FP067420 24764 0074 00 4 11413 TSX PRGMR,4 BDS65 FP067430 | 24765 -0774 00 1 20064 AXC DBBIN,1 BDS70 FP067440 | 24766 -0500 00 0 24770 CAL *+2 BUILD CAL 0,1 BDS75 FP067450 | 24767 0074 00 4 11413 TSX PRGMR,4 BDS80 FP067460 | 24770 -0500 00 1 00000 CAL 0,1 BDS85 FP067470 24771 -0500 00 0 24773 CAL *+2 BUILD SLW 0,2 BDS90 FP067480 | 24772 0074 00 4 11413 TSX PRGMR,4 BDS95 FP067490 | 24773 0602 00 2 00000 SLW 0,2 BDT00 FP067500 | 24774 -0500 00 0 24776 CAL *+2 BUILD TIX *+1,2,1 BDT35 FP067510 | 24775 0074 00 4 11413 TSX PRGMR,4 BDT40 FP067520 24776 2 00001 2 00000 TIX ..,2,1 BDT45 FP067530 | 1 LISTING OF 12/01/64 PAGE 143 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 24777 0500 00 0 17514 CLA BNA40 PLUS 1 FOR TIX BDT50 FP067540 25000 0074 00 4 11465 TSX PADDR,4 BDT55 FP067550 | 25001 0020 00 0 24721 TRA BDQ90 TO REF X BDT60 FP067560 | 1 LISTING OF 12/01/64 PAGE 144 | DICT (9PAC31). MOVE INPUT TO OUTPUT | * DELETE A FIELD BDT69 FP067580 | 25002 0760 00 0 00141 BDT70 SLN 1 BDT70 FP067590 | 25003 0020 00 0 21767 TRA BE370 FIND INPUT DEFINITIONS BDT75 FP067600 | 25004 -0500 00 2 00002 BDT80 CAL 2,2 TEST TO SEE IF PACKED BDT80 FP067610 | 25005 -0320 00 0 17535 ANA BNC20 BDT85 FP067620 25006 -0100 00 0 25104 TNZ BDX40 BDT90 FP067630 | 25007 -0500 00 0 17614 CAL BND39 UNPACKED INPUT WORD BDT95 FP067640 | 25010 0402 00 0 17543 SUB BNC80 BDU00 FP067650 | 25011 0601 00 0 17565 STO BND16 BDU05 FP067660 | 25012 -0120 00 0 25014 TMI *+2 BDU10 FP067670 25013 -0100 00 0 25023 TNZ BDU55 BDU15 FP067680 | 25014 0500 00 0 17570 CLA BND19 GENERATE NEXT OBJECT BDU20 FP067690 | 25015 0621 00 0 11451 STA H0080 PROGRAM OVER LAST BDU25 FP067700 | 25016 0500 00 0 17567 CLA BND18 AXT 633+ BDU30 FP067710 | 25017 0621 00 0 11436 STA G0080 BDU35 FP067720 25020 0500 00 0 17566 CLA BND17 BDU40 FP067730 | 25021 0621 00 0 11423 STA F0080 BDU45 FP067740 | 25022 0020 00 0 25025 TRA *+3 BDU50 FP067750 | 25023 0522 00 0 11422 BDU55 XEC F0080-1 LOADS IRY BDU55 FP067760 | 25024 -0602 60 0 17556 ORS* BND00 STORES ADDRESS IN AXT LOOP BDU60 FP067770 25025 0500 00 0 17565 CLA BND16 BDU65 FP067780 | 25026 0120 00 0 25030 TPL *+2 BDU67 FP067790 | 25027 0754 00 0 00000 PXA 0,0 BDU70 FP067800 | 25030 0400 00 0 17624 ADD BND47 BDU72 FP067810 | 25031 0601 00 0 17624 STO BND47 THIS FIELDS WORK AREA BDU75 FP067820 25032 -0500 00 0 17615 CAL BND40 INPUT BIT BDU80 FP067830 | 25033 0400 00 0 17613 ADD BND38 INPUT LENGTH BDU85 FP067840 | 25034 -0130 00 0 00000 XCL BDU90 FP067850 | 25035 0754 00 0 00000 PXA 0,0 BDU95 FP067860 | 25036 0220 00 0 17563 DVH BND14 36 BDV00 FP067870 25037 -0600 00 0 17565 STQ BND16 NUMBER OF WORDS TO BE DELETBDV05 FP067880 | 25040 -0130 00 0 00000 XCL BDV10 FP067890 | 25041 -0100 00 0 25043 TNZ *+2 BDV12 FP067900 | 25042 0500 00 0 17514 CLA BNA40 BDV13 FP067910 | 25043 0400 00 0 17614 ADD BND39 INPUT WORD BDV15 FP067920 25044 0602 00 0 17543 SLW BNC80 START OF NEXT AXT LOOP BDV20 FP067930 | 25045 -0500 00 0 17514 CAL BNA40 1 BDV30 FP067940 | 25046 -0340 00 0 17565 LAS BND16 = OF WORDS TO DELETE BDV35 FP067950 | 25047 0761 00 0 00000 NOP BDV40 FP067960 | 25050 0020 00 0 25057 TRA BDV80 ONLY ONE WORD BDV45 FP067970 25051 0760 00 0 00141 SLN 1 MORE THAN ONE WORD BDV50 FP067980 | 25052 -0500 00 0 17565 CAL BND16 BDV55 FP067990 | 25053 0621 00 0 25056 STA *+3 BDV60 FP068000 | 25054 -0500 00 0 25056 CAL *+2 BUILD AXT ,4 BDV65 FP068010 | 25055 0074 00 4 11413 TSX PRGMR,4 BDV70 FP068020 25056 0774 00 4 00000 AXT 0,4 BDV75 FP068030 | 25057 -0500 00 2 00002 BDV80 CAL 2,2 TEST FOR BINARY BDV80 FP068040 | 25060 -0320 00 0 17572 ANA BND21 BDW45 FP068050 | 25061 -0100 00 0 25067 TNZ BDW75 GO TO BUILD TIX BDW50 FP068060 | 25062 0760 00 0 00141 SLN 1 BDW55 FP068070 25063 0074 00 4 21546 TSX BD010,4 TEST FOR G RECORDS BDW60 FP068080 | 25064 -0760 00 0 00141 SLT 1 BDW65 FP068090 | 25065 0761 00 0 00000 NOP * BDW67 FP068100 | 25066 0020 00 0 25067 TRA BDW75 GO TO BUILD TIX BDW70 FP068110 | 25067 -0500 00 0 25071 BDW75 CAL *+2 BUILD TIX *+1,1,1 BDW75 FP068120 1 LISTING OF 12/01/64 PAGE 145 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 25070 0074 00 4 11413 TSX PRGMR,4 BDW80 FP068130 | 25071 2 00001 1 00000 TIX 0,1,1 BDW85 FP068140 25072 -0500 00 0 17514 CAL BNA40 1 BDW90 FP068150 | 25073 0074 00 4 11465 TSX PADDR,4 LOCATION PLUS ONE TO ADDRESBDW95 FP068160 | 25074 -0760 00 0 00141 SLT 1 BDX00 FP068170 | 25075 0020 00 0 20212 TRA BQ948 7-6 LAST BDX05 FP068180 | 25076 -0500 00 0 25100 CAL *+2 BUILD TIX *-5,4,1 BDX10 FP068190 25077 0074 00 4 11413 TSX PRGMR,4 BDX15 FP068200 | 25100 2 00001 4 00000 TIX 0,4,1 BDX20 FP068210 | 25101 0502 00 0 11026 CLS NMBR1 1 BDX25 FP068220 | 25102 0074 00 4 11465 TSX PADDR,4 LOCATION MINUS FIVE TO ADDRBDX30 FP068230 | 25103 0020 00 0 20212 TRA BQ948 7-6 LAST BDX35 FP068240 25104 0600 00 0 17616 BDX40 STZ BND41 0 TO OUTPUT LENGTH BDX40 FP068250 | 25105 -0500 00 0 17615 CAL BND40 INPUT BIT BDX45 FP068260 | 25106 0402 00 0 17610 SUB BND35 BEFORE SHIFT BDX50 FP068270 | 25107 0120 00 0 25111 TPL *+2 BDX55 FP068280 | 25110 0400 00 0 17563 ADD BND14 36 BDX60 FP068290 25111 0601 00 0 17620 STO BND43 OUTPUT BIT BDX65 FP068300 | 25112 0601 00 0 17636 STO BND57 1ST BIT OF NEXT FIELDS OUTPBDX70 FP068310 | 25113 0760 00 0 00141 SLN 1 BDX80 FP068320 | 25114 0020 00 0 22143 TRA BF210 COMPUTE FORMULAS FROM SHORTBDX85 FP068330 | 25115 0500 00 0 17624 BDX90 CLA BND47 LAST FIELDS WORK WORD BDX90 FP068340 25116 0400 00 0 17514 ADD BNA40 1 BDX95 FP068350 | 25117 0400 00 0 17565 ADD BND16 NUMBER OF TIMES THREE LAST BDY00 FP068360 | 25120 0402 00 0 17543 SUB BNC80 FP068370 | 25121 0601 00 0 17617 STO BND42 OUTPUT WORD BDY05 FP068380 | 25122 0601 00 0 17625 STO BND48 LAST WORD WORD BDY10 FP068390 25123 0601 00 0 17637 STO BND58 FIRST WORK WORD BDY15 FP068400 | 25124 0600 00 0 17612 STZ BND37 SHOWS SHORTENING BDY20 FP068410 | 25125 0020 00 0 22351 TRA BH010 PACKED ROUTINE BDY25 FP068420 | 25126 0634 00 4 25153 BDY50 SXA BDZ55,4 BDY50 FP068430 | 25127 0754 00 0 00000 PXA 0,0 SAVE REL OBJ STOR LOC BDY55 FP068440 25130 0074 00 4 11426 TSX STORR,4 BDY60 FP068450 | 25131 -0500 00 0 11436 CAL G0080 BDY65 FP068460 | 25132 0621 00 0 17654 STA BND72 BDY70 FP068470 | 25133 -0500 00 0 25135 CAL *+2 BUILD SXA ..,1 BDY75 FP068480 | 25134 0074 00 4 11413 TSX PRGMR,4 BDY80 FP068490 25135 0634 00 1 00000 SXA ..,1 BDY85 FP068500 | 25136 0074 00 4 11454 TSX SADDR,4 BDY90 FP068510 | 25137 -0500 00 0 17614 CAL BND39 IN REL WD = TO OBJ STOR BDY95 FP068520 | 25140 0074 00 4 11426 TSX STORR,4 BDZ00 FP068530 | 25141 -0500 00 0 25143 CAL *+2 BUILD CAL.. BDZ05 FP068540 25142 0074 00 4 11413 TSX PRGMR,4 BDZ10 FP068550 | 25143 -0500 00 0 00000 CAL .. BDZ15 FP068560 | 25144 0074 00 4 11454 TSX SADDR,4 BDZ20 FP068570 | 25145 -0500 00 0 25147 CAL *+2 BUILD ADD INLOC BDZ25 FP068580 | 25146 0074 00 4 11413 TSX PRGMR,4 BDZ30 FP068590 25147 0400 00 0 17310 ADD INLOC BDZ35 FP068600 | 25150 -0500 00 0 25152 CAL *+2 BUILD PAC 0,1 BDZ40 FP068610 | 25151 0074 00 4 11413 TSX PRGMR,4 BDZ45 FP068620 | 25152 0737 00 1 00000 PAC 0,1 BDZ50 FP068630 | 25153 0774 00 4 00000 BDZ55 AXT ..,4 BDZ55 FP068640 25154 0020 00 4 00001 TRA 1,4 BDZ60 FP068650 | 25155 -0625 00 0 17647 BEA05 STL BND67 BEA05 FP068660 | 25156 0020 00 0 21731 TRA BE170 BEA06 FP068670 | 1 LISTING OF 12/01/64 PAGE 146 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 25157 0074 00 4 25126 TSX BDY50,4 BEA07 FP068680 | 25160 -0500 00 2 00002 CAL 2,2 IS INPUT BIN BEA10 FP068690 | 25161 -0320 00 0 17572 ANA BND21 BEA15 FP068700 | 25162 -0100 00 0 25212 TNZ BEB10 BEA20 FP068710 25163 -0500 00 0 25165 CAL *+2 BIN-BUILD CAL 0,1 BEA25 FP068720 | 25164 0074 00 4 11413 TSX PRGMR,4 BEA30 FP068730 | 25165 -0500 00 1 00000 CAL 0,1 BEA35 FP068740 | 25166 -0500 00 0 25170 CAL *+2 BUILD SLW BDBIN BEA40 FP068750 | 25167 0074 00 4 11413 TSX PRGMR,4 BEA45 FP068760 25170 0602 00 0 20261 SLW BDBIN BEA50 FP068770 | 25171 -0500 00 0 25173 CAL *+2 BUILD TSX TOBCD,4 BEA55 FP068780 | 25172 0074 00 4 11413 TSX PRGMR,4 BEA60 FP068790 | 25173 0074 00 4 20213 TSX TOBCD,4 BEA65 FP068800 | 25174 -0500 00 0 17616 BEA81 CAL BND41 BEA81 FP068810 25175 -0340 00 0 17563 LAS BND14 36 BEA82 FP068820 | 25176 0020 00 0 25205 TRA BEA87 BEA83 FP068830 | 25177 0020 00 0 25201 TRA *+2 FP068840 | 25200 0020 00 0 25203 TRA *+3 FP068850 | 25201 0520 00 0 17644 ZET BND64 FP068860 25202 0020 00 0 25205 TRA BEA87 FP068870 | 25203 -0500 00 0 17546 CAL BNC92 BEA85 FP068880 | 25204 0020 00 0 25206 TRA *+2 BEA86 FP068890 | 25205 -0500 00 0 17547 BEA87 CAL BNC93 BEA87 FP068900 | 25206 0621 00 0 25211 STA *+3 BEA90 FP068910 25207 -0500 00 0 25211 CAL *+2 BUILD AXC ..,1 BEA95 FP068920 | 25210 0074 00 4 11413 TSX PRGMR,4 BEB00 FP068930 | 25211 -0774 00 1 00000 AXC ..,1 BEB05 FP068940 | 25212 -0520 00 0 17643 BEB10 NZT BND63 TEST FOR TXI BACK ONE BEB10 FP068950 | 25213 0020 00 0 25221 TRA *+6 BEB15 FP068960 25214 -0500 00 0 25216 CAL *+2 BUILD TXI *+1,1,1 BEB20 FP068970 | 25215 0074 00 4 11413 TSX PRGMR,4 BEB25 FP068980 | 25216 1 00001 1 00000 TXI ..,1,1 BEB29 FP068990 | 25217 0500 00 0 17514 CLA BNA40 PLUS 1 FOR TXI BEB30 FP069000 | 25220 0074 00 4 11465 TSX PADDR,4 BEB35 FP069010 25221 -0520 00 0 17611 NZT BND36 LEFT JUSTIFIED BEB40 FP069020 | 25222 0020 00 0 25302 TRA BEE15 BEB45 FP069030 | 25223 -0500 00 0 25225 CAL *+2 BUILD CAL 0,1 BEB50 FP069040 | 25224 0074 00 4 11413 TSX PRGMR,4 BEB55 FP069050 | 25225 -0500 00 1 00000 CAL 0,1 BEB60 FP069060 25226 -0520 00 0 17644 NZT BND64 INTERMEDIATE SHIFT BEB65 FP069070 | 25227 0020 00 0 25251 TRA BEC60 TO AMT TO ARS FOR MASK BEB70 FP069080 | 25230 0520 00 0 17626 ZET BND49 BEB75 FP069090 | 25231 0020 00 0 25241 TRA *+8 TO BUILD LDQ 1,1 BEB80 FP069100 | 25232 0760 00 0 00141 SLN 1 BEB85 FP069110 25233 -0500 00 0 17644 CAL BND64 AMOUNT TO ALS BEB90 FP069120 | 25234 0621 00 0 25237 STA *+3 BEB95 FP069130 | 25235 -0500 00 0 25237 CAL *+2 BUILD ALS .. BEC00 FP069140 | 25236 0074 00 4 11413 TSX PRGMR,4 BEC05 FP069150 | 25237 0767 00 0 00000 ALS .. BEC10 FP069160 25240 0020 00 0 25251 TRA BEC60 TO AMT TO ARS FOR MASK BEC15 FP069170 | 25241 -0500 00 0 25243 CAL *+2 BUILD LDQ 1,1 BEC20 FP069180 | 25242 0074 00 4 11413 TSX PRGMR,4 BEC25 FP069190 | 25243 0560 00 1 00001 LDQ 1,1 BEC30 FP069200 | 25244 -0500 00 0 17644 CAL BND64 AMOUNT TO LGL BEC35 FP069210 25245 0621 00 0 25250 STA *+3 BEC40 FP069220 | 1 LISTING OF 12/01/64 PAGE 147 | DICT (9PAC31). MOVE INPUT TO OUTPUT | | 25246 -0500 00 0 25250 CAL *+2 BUILD LGL .. BEC45 FP069230 25247 0074 00 4 11413 TSX PRGMR,4 BEC50 FP069240 | 25250 -0763 00 0 00000 LGL .. BEC55 FP069250 | 25251 -0500 00 0 17620 BEC60 CAL BND43 AMOUNT TO ARS BEC60 FP069260 | 25252 0621 00 0 25254 STA *+2 BEC65 FP069270 | 25253 -0500 00 0 17571 CAL BND20 BEC70 FP069280 25254 0771 00 0 00000 ARS .. BEC75 FP069290 | 25255 0074 00 4 11426 TSX STORR,4 MASK TO OBJECT STOR BEC80 FP069300 | 25256 -0500 00 0 25260 CAL *+2 BUILD ANA MASK BEC85 FP069310 | 25257 0074 00 4 11413 TSX PRGMR,4 BEC90 FP069320 | 25260 -0320 00 0 00000 ANA .. BEC95 FP069330 25261 0074 00 4 11454 TSX SADDR,4 BED00 FP069340 | 25262 -0500 00 0 25264 CAL *+2 BUILD ORS 0,2 BED05 FP069350 | 25263 0074 00 4 11413 TSX PRGMR,4 BED10 FP069360 | 25264 -0602 00 2 00000 ORS 0,2 BED15 FP069370 | 25265 -0760 00 0 00141 BED50 SLT 1 REFW-TEST SL1 BED50 FP069380 25266 0020 00 0 25270 TRA *+2 BED55 FP069390 | 25267 0020 00 0 25414 TRA BEJ15 TO REF Y BED60 FP069400 | 25270 -0500 00 0 25272 CAL *+2 BUILD TIX *+1,1,1 BED65 FP069410 | 25271 0074 00 4 11413 TSX PRGMR,4 BED70 FP069420 | 25272 2 00001 1 00000 TIX ..,1,1 BED75 FP069430 25273 0500 00 0 17514 CLA BNA40 PLUA 1 FOR TIX BED80 FP069440 | 25274 0074 00 4 11465 TSX PADDR,4 BED85 FP069450 | 25275 -0500 00 0 25277 CAL *+2 BUILD TIX *+1,2,1 BED90 FP069460 | 25276 0074 00 4 11413 TSX PRGMR,4 BED95 FP069470 | 25277 2 00001 2 00000 TIX ..,2,1 BEE00 FP069480 25300 0500 00 0 17514 CLA BNA40 PLUA 1 FOR TIX BEE05 FP069490 | 25301 0074 00 4 11465 TSX PADDR,4 BEE10 FP069500 | 25302 0500 00 0 17622 BEE15 CLA BND45 HOW MANY WHOLE WORDS BEE15 FP069510 | 25303 -0340 00 0 17514 LAS BNA40 BEE20 FP069520 | 25304 0020 00 0 25323 TRA BEF00 BEE25 FP069530 25305 0020 00 0 25321 TRA BEE90 BEE30 FP069540 | 25306 0520 00 0 17611 ZET BND36 IS INSERT LEFT JUSTIFIED BEE35 FP069550 | 25307 0020 00 0 25400 TRA BEH25 TO REF Z BEE40 FP069560 | 25310 -0500 00 0 25312 CAL *+2 BUILD CAL 0,1 BEE45 FP069570 | 25311 0074 00 4 11413 TSX PRGMR,4 BEE50 FP069580 25312 -0500 00 1 00000 CAL 0,1 BEE55 FP069590 | 25313 -0500 00 0 17644 CAL BND64 INT SHIFT TO ALS BEE60 FP069600 | 25314 0621 00 0 25317 STA *+3 BEE65 FP069610 | 25315 -0500 00 0 25317 CAL *+2 BUILD ALS.. BEE70 FP069620 | 25316 0074 00 4 11413 TSX PRGMR,4 BEE75 FP069630 25317 0767 00 0 00000 ALS .. BEE80 FP069640 | 25320 0020 00 0 25411 TRA BEH70 TO REF X BEE85 FP069650 | 25321 0760 00 0 00141 BEE90 SLN 1 BEE90 FP069660 | 25322 0020 00 0 25332 TRA BEF25 TO BUILD CAL 0,1 BEE95 FP069670 | 25323 -0500 00 0 17622 BEF00 CAL BND45 = WDS TO AXT BEF00 FP069680 25324 0621 00 0 25327 STA *+3 BEF05 FP069690 | 25325 -0500 00 0 25327 CAL *+2 BUILD AXT ..,4 BEF10 FP069700 | 25326 0074 00 4 11413 TSX PRGMR,4 BEF15 FP069710 | 25327 0774 00 4 00000 AXT ..,4 BEF20 FP069720 | 25330 -0500 00 0 11423 CAL F0080 BEF21 FP069730 25331 0621 00 0 17662 STA BND80 TEMP STORAGE BEF22 FP069740 | 25332 -0500 00 0 25334 BEF25 CAL *+2 BUILD CAL 0,1 BEF25 FP069750 | 25333 0074 00 4 11413 TSX PRGMR,4 BEF30 FP069760 | 25334 -0500 00 1 00000 CAL 0,1 BEF35 FP069770 | 1 LISTING OF 12/01/64 PAGE 148 DICT (9PAC31). MOVE INPUT TO OUTPUT | | 25335 -0520 00 0 17644 NZT BND64 TEST INTERMEDIATE SHIFT BEF40 FP069780 | 25336 0020 00 0 25347 TRA BEF90 TO BUILD SLW 0,2 BEF45 FP069790 | 25337 -0500 00 0 25341 CAL *+2 BUILD LDQ 1,1 BEF50 FP069800 25340 0074 00 4 11413 TSX PRGMR,4 BEF55 FP069810 | 25341 0560 00 1 00001 LDQ 1,1 BEF60 FP069820 | 25342 -0500 00 0 17644 CAL BND64 BEF65 FP069830 | 25343 0621 00 0 25346 STA *+3 BEF70 FP069840 | 25344 -0500 00 0 25346 CAL *+2 BUILD LGL .. BEF75 FP069850 25345 0074 00 4 11413 TSX PRGMR,4 BEF80 FP069860 | 25346 -0763 00 0 00000 LGL .. BEF85 FP069870 | 25347 -0500 00 0 25351 BEF90 CAL *+2 BUILD SLW 0,2 BEF90 FP069880 | 25350 0074 00 4 11413 TSX PRGMR,4 BEF95 FP069890 | 25351 0602 00 2 00000 SLW 0,2 BEG00 FP069900 25352 -0500 00 0 25354 CAL *+2 BUILD TIX *+1,2,1 BEG35 FP069910 | 25353 0074 00 4 11413 TSX PRGMR,4 BEG40 FP069920 | 25354 2 00001 2 00000 TIX ..,2,1 BEG45 FP069930 | 25355 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BEG50 FP069940 | 25356 0074 00 4 11465 TSX PADDR,4 BEG55 FP069950 25357 -0760 00 0 00141 SLT 1 BEG60 FP069960 | 25360 0020 00 0 25362 TRA *+2 BEG65 FP069970 | 25361 0020 00 0 25400 TRA BEH25 BEG70 FP069980 | 25362 -0500 00 0 25364 CAL *+2 BUILD TIX *+1,1,1 BEG75 FP069990 | 25363 0074 00 4 11413 TSX PRGMR,4 BEG80 FP070000 25364 2 00001 1 00000 TIX ..,1,1 BEG85 FP070010 | 25365 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TIX BEG90 FP070020 | 25366 0074 00 4 11465 TSX PADDR,4 BEG95 FP070030 | 25367 -0500 00 0 25371 CAL *+2 BUILD TIX *+1,2,1 BEH00 FP070040 | 25370 0074 00 4 11413 TSX PRGMR,4 BEH05 FP070050 25371 2 00001 4 00000 TIX **,4,1 BEH10 FP070060 | 25372 -0500 00 0 11423 CAL F0080 BEH15 FP070070 | 25373 -0320 00 0 17544 ANA BNC90 ADDR MASK BEH16 FP070080 | 25374 0402 00 0 11026 SUB NMBR1 CALCULATE RELATIVE ADDRESS BEH17 FP070090 | 25375 0402 00 0 17662 SUB BND80 FOR TIX **,4,1 BEH18 FP070100 25376 -0760 00 0 00003 SSM BEH19 FP070110 | 25377 0074 00 4 11465 TSX PADDR,4 BEH20 FP070120 | 25400 -0520 00 0 17644 BEH25 NZT BND64 REF Z-TEST INT SHIFT BEH25 FP070130 | 25401 0020 00 0 25406 TRA *+5 TO SET JUST ZIG NZ BEH30 FP070140 | 25402 -0500 00 0 25404 CAL *+2 BUILD XCL BEH35 FP070150 25403 0074 00 4 11413 TSX PRGMR,4 BEH40 FP070160 | 25404 -0130 00 0 00000 XCL BEH45 FP070170 | 25405 0020 00 0 25411 TRA BEH70 TO REF X BEH50 FP070180 | 25406 -0500 00 0 17514 CAL BNA40 SET JUST ZIG NZ BEH55 FP070190 | 25407 0621 00 0 17611 STA BND36 BEH60 FP070200 25410 0020 00 0 25414 TRA BEJ15 TO REF Y BEH65 FP070210 | 25411 -0500 00 0 25413 BEH70 CAL *+2 REF X-BUILD SLW 0,2 BEH70 FP070220 | 25412 0074 00 4 11413 TSX PRGMR,4 BEH75 FP070230 | 25413 0602 00 2 00000 SLW 0,2 BEH80 FP070240 | 25414 0500 00 0 17620 BEJ15 CLA BND43 BEJ15 FP070250 25415 0400 00 0 17616 ADD BND41 BEJ16 FP070260 | 25416 0765 00 0 00043 LRS 35 BEJ17 FP070270 | 25417 0220 00 0 17563 DVH BND14 36 BEJ18 FP070280 | 25420 0601 00 0 17611 STO BND36 BEJ19 FP070290 | 25421 0601 00 0 17620 STO BND43 BEJ20 FP070300 25422 0621 00 0 25424 STA *+2 BEJ205FP070310 | 25423 -0500 00 0 17571 CAL BND20 BEJ21 FP070320 | 1 LISTING OF 12/01/64 PAGE 149 | DICT (9PAC31). MOVE INPUT TO OUTPUT | 25424 0771 00 0 00000 ARS .. BEJ22 FP070330 | 25425 0760 00 0 00006 COM BEJ23 FP070340 | 25426 0602 00 0 17632 SLW BND53 BEJ24 FP070350 | 25427 -0500 00 0 25431 CAL *+2 BUILD LXA..,1 BEJ25 FP070360 | 25430 0074 00 4 11413 TSX PRGMR,4 BEJ26 FP070370 25431 0534 00 1 00000 LXA 0,1 BEJ27 FP070380 | 25432 -0500 00 0 17654 CAL BND72 SUPPLY ADD FOR AXT BEJ30 FP070390 | 25433 0074 00 4 11455 TSX SADDR+1,4 BEJ35 FP070400 | 25434 0500 00 0 17646 CLA BND66 AFTER TIX REQUIRED BEJ40 FP070410 | 25435 0402 00 0 11026 SUB NMBR1 BEJ42 FP070420 25436 -0120 00 0 25446 TMI BEJ85 TO BUILD TXI *+1,1,1 BEJ45 FP070430 | 25437 0100 00 0 25453 TZE BEK15 BEJ50 FP070440 | 25440 -0500 00 0 25442 CAL *+2 BUILD TXI *+1,1,-1 BEJ55 FP070450 | 25441 0074 00 4 11413 TSX PRGMR,4 BEJ60 FP070460 | 25442 1 77777 1 00000 TXI ..,1,-1 BEJ65 FP070470 25443 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TXI BEJ70 FP070480 | 25444 0074 00 4 11465 TSX PADDR,4 BEJ75 FP070490 | 25445 0020 00 0 25453 TRA BEK15 BEJ80 FP070500 | 25446 -0500 00 0 25450 BEJ85 CAL *+2 BUILD TXI *+1,1,1 BEJ85 FP070510 | 25447 0074 00 4 11413 TSX PRGMR,4 BEJ90 FP070520 25450 1 00001 1 00000 TXI ..,1,1 BEK00 FP070530 | 25451 -0500 00 0 17514 CAL BNA40 PLUS 1 FOR TXI BEK05 FP070540 | 25452 0074 00 4 11465 TSX PADDR,4 BEK10 FP070550 | 25453 -0500 00 2 00002 BEK15 CAL 2,2 BEK15 FP070560 | 25454 -0320 00 0 17572 ANA BND21 FP070570 25455 -0100 00 0 22472 TNZ BI720 NOT BINARY FP070580 | 25456 0020 00 0 22527 TRA BJ010 BINARY FP070590 | 25541 BES 50 DICT-MOVE BOONDOCKS BEK99 FP070600 | 25541 TCID BSS 0 ORIGIN SYMBOL FOR HSKP1 FP070610 | 1 LISTING OF 12/01/64 PAGE 150 DICT (9PAC31). MOVE INPUT TO OUTPUT | | * FP070630 | 1 LISTING OF 12/01/64 PAGE 151 | HSKP1 (9PAC31). PRELIMINARY HOUSEKEEPING | 25541 ORG TCID FP070650 | 25541 306242470160 BCI 1,HSKP1 AB100 FP070660 | 25542 0520 00 0 04531 AB110 ZET SYMTAP IS THIS NEW FP070670 | 25543 0020 00 0 25552 TRA AB170 NO AB130 FP070680 25544 -0625 00 0 11412 STL NEWSW YES AB140 FP070690 | 25545 0774 00 4 00003 AXT 3,4 AB150 FP070700 | 25546 -0500 00 4 04240 CAL FIL07+12,4 MOVE FIL07+9,10,11 INTO AB160 FP070710 | 25547 0602 00 4 25652 SLW ABA60+5,4 B-LABEL AREA AB161 FP070720 | 25550 2 00001 4 25546 TIX *-2,4,1 AB162 FP070730 25551 0020 00 0 25557 TRA AB205 AB164 FP070740 | 25552 0074 00 4 05255 AB170 TSX RD(WR),4 COPY B-LABEL(MASTER) AB170 FP070750 | 25553 0 25663 0 00000 PZE 0,,ABA70 AB180 FP070760 | 25554 0020 00 0 25557 TRA *+3 FP070770 | 25555 0074 00 4 10507 TSX T0010,4 FP070780 25556 -1 11324 4 00000 STR 0,4,4820 EOF(B-LABEL, MASTERIN) AB200 FP070790 | 25557 -0500 00 0 04232 AB205 CAL FIL07+6 AB205 FP070800 | 25560 0602 00 0 25646 SLW ABA60+1 FP070810 | 25561 0074 00 4 05255 TSX RD(WR),4 AB210 FP070820 | 25562 -0 25663 0 00007 FOR 7,,ABA70 AB220 FP070830 25563 0020 00 0 25565 TRA *+2 AB230 FP070840 | 25564 0074 00 4 06557 TSX SCEOT,4 AB240 FP070850 | 25565 0560 00 0 04216 LDQ FIL08+6 AB250 FP070860 | 25566 -0600 00 0 25630 STQ ABA40+1 AB260 FP070870 | 25567 0774 00 4 00003 AXT 3,4 AB270 FP070880 25570 -0500 00 4 04224 CAL FIL08+12,4 AB280 FP070890 | 25571 0602 00 4 25634 SLW ABA40+5,4 AB290 FP070900 | 25572 2 00001 4 25570 TIX *-2,4,1 AB300 FP070910 | 25573 0074 00 4 05255 TSX RD(WR),4 WRITE B-LABEL ON CHANGE UNIT AB310 FP070920 | 25574 -0 25664 0 00010 FOR 8,,ABA80 AB320 FP070930 25575 0020 00 0 25577 TRA *+2 AB330 FP070940 | 25576 0074 00 4 06557 TSX SCEOT,4 AB340 FP070950 | 25577 0074 00 4 06342 TSX TPOSIT,4 POSITION SCRATCH PAST IOCS LABEL AB342 FP070960 | 25600 2 00000 0 00030 TWO 24 AB344 FP070970 | 25601 0074 00 4 06342 TSX TPOSIT,4 RECORD POSITION FP070980 25602 -0 00000 0 00030 FOR 24 FP070990 | 25603 0774 00 4 00026 AXT 22,4 MOVE ENTRIES TO HIGH CORE AB350 FP071000 | 25604 0634 00 4 67232 SXA PATBL+20,4 AB360 FP071010 | 25605 0774 00 4 00705 AXT SMZE,4 AB370 FP071020 | 25606 0634 00 4 72447 SXA SUTBL+SMZE-3,4 AB380 FP071030 25607 0774 00 4 00007 AXT 7,4 AB390 FP071040 | 25610 -0500 00 4 25674 CAL ABB00+7,4 AB400 FP071050 | 25611 0602 00 4 73010 SLW SORTT+8,4 AB410 FP071060 | 25612 2 00001 4 25610 TIX *-2,4,1 AB420 FP071070 | 25613 0520 00 0 04657 ZET BITIND BITS OR CHARACTERS AB430 FP071080 25614 0020 00 0 25623 TRA AB510 BITS AB440 FP071090 | 25615 -0500 00 0 25674 CAL ABB70 INITIALIZE TO HANDLE CHARACTERS AB450 FP071100 | 25616 0602 00 0 13174 SLW AG673 AB460 FP071110 | 25617 -0500 00 0 25675 CAL ABB80 AB470 FP071120 | 25620 0602 00 0 07666 SLW B0460+4 AB480 FP071130 25621 -0500 00 0 25676 CAL ABB90 AB490 FP071140 | 25622 0602 00 0 07667 SLW B0460+5 AB500 FP071150 | 25623 0020 00 0 13324 AB510 TRA AH010 TRA TO DICT ABA510FP071160 | 25624 254447637060 AB610 BCI 3,EMPTY MASTER FILE FP071170 | 25625 442162632551 25626 602631432560 | 1 LISTING OF 12/01/64 PAGE 152 | HSKP1 (9PAC31). PRELIMINARY HOUSEKEEPING | | * ABA00 FP071180 *STORAGE FOR HSKP1 ABA10 FP071190 | * ABA20 FP071200 | 25627 220000000000 ABA40 BCI 6,B00000 ABA40 FP071210 | 25630 606060606060 | 25631 606060606060 25632 606060606060 | 25633 606060606060 | 25634 606060606060 | 25635 233021452725 BCI 8,CHANGE AND ERROR REPORT B-LABEL ABA50 FP071220 | 25636 602145246025 25637 515146516051 | 25640 254746516360 | 25641 224043212225 | 25642 436060606060 | 25643 606060606060 25644 606060606060 | 25645 220000000000 ABA60 BCI 7,B00000 ABA60 FP071230 | 25646 606060606060 | 25647 606060606060 | 25650 606060606060 25651 606060606060 | 25652 606060606060 | 25653 606060606060 | 25654 606060606060 BCI 7, FP071240 | 25655 606060606060 25656 606060606060 | 25657 606060606060 | 25660 606060606060 | 25661 606060606060 | 25662 606060606060 25663 3 00016 0 25645 ABA70 IORT ABA60,,14 ABA70 FP071250 | 25664 3 00016 0 25627 ABA80 IORT ABA40,,14 ABA80 FP071260 | * ABA90 FP071270 | 25665 0 15371 0 06245 ABB00 PZE TCJBO,,DXIFPF-TCJBO ABB00 FP071280 | 25666 +000000100000 OCT 000000100000 ABB10 FP071290 25667 0 00326 0 72452 PZE Y0302,,SORTT-Y0302 FP071300 | 25670 +000000200000 OCT 000000200000 ABB30 FP071310 | 25671 0 00705 0 71545 PZE OBSUM,0,SMZE ABB40 FP071320 | 25672 +000000300000 OCT 000000300000 ABB50 FP071330 | 25673 0 00000 0 23636 PZE DXIFPF,,** ABB60 FP071340 25674 0634 00 4 13232 ABB70 SXA AG679,4 ABB70 FP071350 | 25675 0200 00 0 11033 ABB80 MPY NMBR6 ABB80 FP071360 | 25676 -0600 00 0 07747 ABB90 STQ B1000 ABB90 FP071370 | 25761 HSKP1 BES 50 HSKP1 BOON FP071380 | 00000 TCD 0 FP071390 *NEXT SERIALS START AT FP200000 FP071400 | 1 LISTING OF 12/01/64 PAGE 153 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | | * FP071420 * FP071430 | * FP071440 | 12661 ORG MAIN1+1 FP071460 | 12661 114721230302 BCI 1,9PAC32 MAIN 2 FP071470 | 12662 442131456002 BCI 1,MAIN 2 FP071480 00100 ORG SYSTRA FP071490 | 00100 0020 00 0 31300 TRA FF010 TO HSKP2 FP071500 | 12663 ORG MAIN1+3 FP071510 | * FP071520 | * FP071530 * SUB-RTN SEARCH AND TABLE DICTIONARY FROM S.F. OUT FP071540 | * FP071550 | * PLUS ONE ADDR RECORD TYPE FP071560 | * FP071570 | 12663 0634 00 4 13022 D0010 SXA D0830,4 D0010 FP071580 12664 -0500 00 0 43327 CAL DCTI+1 D0030 FP071590 | 12665 -0765 00 0 00006 LGR 6 D0040 FP071600 | 12666 -0320 00 0 10730 ANA BCD03 D0050 FP071610 | 12667 -0340 00 4 00001 LAS 1,4 COMPARE TO PREV DICT D0060 FP071620 | 12670 0020 00 0 12672 TRA *+2 D0070 FP071630 12671 0020 00 4 00002 TRA 2,4 D0080 FP071640 | 12672 0600 00 0 13054 STZ D1170 D0020 FP071650 | 12673 0074 00 4 05255 TSX RD(WR),4 PASS B-LABEL D0085 FP071660 | 12674 0 13024 0 00007 PZE 7,,CMDCL D00089FP071670 | 12675 0020 00 0 12700 TRA D0100 D00090FP071680 12676 0074 00 4 10507 TSX T0010,4 FP071690 | 12677 -1 07676 4 00000 STR 0,4,4030 MASTER OUT DICT, EOF NOT EXPECTED D00095FP071700 | 12700 0074 00 4 05255 D0100 TSX RD(WR),4 D0100 FP071710 | 12701 0 13024 0 00007 PZE 7,,CMDCL D0120 FP071720 | 12702 0020 00 0 12705 TRA *+3 D0140 FP071730 12703 0074 00 4 10507 TSX T0010,4 FP071740 | 12704 -1 07677 4 00000 STR 0,4,4031 MASTER OUT DICT, EOF NOT EXPECTED D0150 FP071750 | 12705 0534 00 4 13022 LXA D0830,4 FP071760 | 12706 -0500 00 0 43326 CAL DCTI D0160 FP071770 | 12707 -0320 00 0 10765 ANA BCD40 D0170 FP071780 12710 -0340 00 0 13025 LAS D1050 TEST FOR EXEC E D0180 FP071790 | 12711 0020 00 0 12713 TRA *+2 D0190 FP071800 | 12712 0020 00 0 12721 TRA D0260 EQUAL D0200 FP071810 | 12713 -0340 00 0 13026 LAS D1060 TEST FOR EXEC P D0210 FP071820 | 12714 0020 00 0 12700 TRA D0100 D0220 FP071830 12715 0020 00 0 12717 TRA *+2 FP071840 | 12716 0020 00 0 12700 TRA D0100 READ AGAIN FP071850 | 12717 0074 00 4 10507 TSX T0010,4 FP071860 | 12720 -1 06154 3 00000 STR 0,3,3180 NO DICT ON SOURCE FILE FP071870 | 12721 -0500 00 0 43327 D0260 CAL DCTI+1 TEST REC. TYPE D0260 FP071880 12722 -0765 00 0 00006 LGR 6 D0270 FP071890 | 12723 -0320 00 0 10730 ANA BCD03 D0280 FP071900 | 12724 -0340 00 4 00001 LAS 1,4 D0290 FP071910 | 12725 0020 00 0 12727 TRA *+2 D0300 FP071920 | 12726 0020 00 0 12730 TRA *+2 EQUAL D0310 FP071930 12727 0020 00 0 12700 TRA D0100 TO READ AGAIN D0320 FP071940 | 12730 -0500 00 0 13053 CAL D1160 INIT TABLE D0341 FP071950 | 12731 0621 00 0 13001 STA D0760 D0342 FP071960 | 12732 0074 00 4 05255 D0450 TSX RD(WR),4 D0450 FP071970 | 1 LISTING OF 12/01/64 PAGE 154 MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | | 12733 0 13027 0 00007 PZE 7,,CMDCF D0460 FP071980 | 12734 0020 00 0 12737 TRA *+3 D0470 FP071990 | 12735 0074 00 4 10507 TSX T0010,4 FP072000 12736 -1 07700 4 00000 STR 0,4,4032 MASTER OUT DICT, EOF NOT EXPECTED D0480 FP072010 | 12737 -0500 00 0 13033 CAL DCTRD D0510 FP072020 | 12740 -0320 00 0 10765 ANA BCD40 D0520 FP072030 | 12741 -0340 00 0 13026 LAS D1060 P D0560 FP072040 | 12742 0020 00 0 12744 TRA *+2 D0570 FP072050 12743 0020 00 0 13016 TRA D0790 D0580 FP072060 | 12744 -0340 00 0 13051 LAS D1140 F D0590 FP072070 | 12745 0020 00 0 12747 TRA *+2 D0600 FP072080 | 12746 0020 00 0 12763 TRA D0720 D0610 FP072090 | 12747 -0340 00 0 13025 LAS D1050 E D0611 FP072100 12750 0020 00 0 12752 TRA *+2 D0612 FP072110 | 12751 0020 00 0 13016 TRA D0790 D0613 FP072120 | 12752 -0340 00 0 13052 LAS D1150 G D0620 FP072130 | 12753 0020 00 0 12755 TRA *+2 D0630 FP072140 | 12754 0020 00 0 12757 TRA *+3 D0640 FP072150 12755 0074 00 4 10507 TSX T0010,4 FP072160 | 12756 -1 06035 3 00000 STR 0,3,3101 DICT LABEL NOT E,F,G OR P D0650 FP072170 | 12757 0500 00 0 43326 D0680 CLA DCTI D0680 FP072180 | 12760 -0760 00 0 00003 SSM D0690 FP072190 | 12761 0601 00 0 43326 D0700 STO DCTI D0700 FP072200 12762 0020 00 0 12732 TRA D0450 TO READ D0710 FP072210 | 12763 0500 00 0 13001 D0720 CLA D0760 MODIFY FOR NEXT F RECORD D0720 FP072220 | 12764 0621 00 0 12757 STA D0680 * INIT FOR SUM FWD CODE D0732 FP072230 | 12765 0621 00 0 12761 STA D0700 * D0733 FP072240 | 12766 0400 00 0 13030 ADD D1080 FIVE D0734 FP072250 12767 0621 00 0 13001 STA D0760 * D0735 FP072260 | 12770 -0320 00 0 13031 ANA D1090 TEST TABLE LIMIT D0736 FP072270 | 12771 -0340 00 0 13032 LAS D1100 * D0737 FP072280 | 12772 0020 00 0 12775 TRA *+3 D0738 FP072290 | 12773 0020 00 0 12777 TRA *+4 D0739 FP072300 12774 0020 00 0 12777 TRA *+3 D0740 FP072310 | 12775 0074 00 4 10507 TSX T0010,4 D0741 FP072320 | 12776 -1 12241 5 00000 STR 0,5,5281 EXCEEDS ENDIC TABLE D0742 FP072330 | 12777 0074 00 4 13451 TSX D7010,4 D0740 FP072340 | 13000 0 00000 1 13046 PZE DCTRD+11,1 D0750 FP072350 13001 0 00000 1 43326 D0760 PZE DCTI,1 D0760 FP072360 | 13002 -0500 00 0 13034 CAL DCTRD+1 D0771 FP072370 | 13003 0560 00 0 13035 LDQ DCTRD+2 D0772 FP072380 | 13004 -0763 00 0 00006 LGL 6 D0773 FP072390 | 13005 -0320 00 0 10734 ANA BCD07 D0774 FP072400 13006 -0340 00 0 13055 LAS D1180 D07741FP072410 | 13007 0020 00 0 13012 TRA *+3 D07742FP072420 | 13010 0020 00 0 13012 TRA *+2 D07743FP072430 | 13011 -0500 00 0 13055 CAL D1180 D07744FP072440 | 13012 -0340 00 0 13054 LAS D1170 D0775 FP072450 13013 0602 00 0 13054 SLW D1170 D0776 FP072460 | 13014 0761 00 0 00000 NOP D0777 FP072470 | 13015 0020 00 0 12732 TRA D0450 BACK TO READ D0780 FP072480 | 13016 -0500 00 0 13001 D0790 CAL D0760 D0810 FP072490 | 13017 0621 00 0 47653 STA DCTBL D0820 FP072500 13020 0074 00 4 06342 TSX TPOSIT,4 REPOSITION UNIT D0825 FP072510 | 13021 0 00000 0 00007 PZE 7 D0826 FP072520 | 1 LISTING OF 12/01/64 PAGE 155 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | 13022 0774 00 4 00000 D0830 AXT 0,4 B0830 FP072530 | 13023 0020 00 4 00002 TRA 2,4 D0831 FP072540 | 13024 3 00015 0 43326 CMDCL IORT DCTI,0,13 D1040 FP072550 | 13025 250000000000 D1050 BCI 1,E00000 D1050 FP072560 | 13026 470000000000 D1060 BCI 1,P00000 D1060 FP072570 13027 3 00015 0 13033 CMDCF IORT DCTRD,0,13 D1070 FP072580 | 13030 0 00000 0 00005 D1080 PZE 5 D1080 FP072590 | 13031 +000000077777 D1090 OCT 77777 D1090 FP072600 | 13032 0 00000 0 47653 D1100 PZE DCTBL TABLE LIMIT D1100 FP072610 | 13033 DCTRD BSS 13 D1110 FP072620 13050 0 00000 0 00026 D1120 PZE 22 D1120 FP072630 | 13051 260000000000 D1140 BCI 1,F00000 D1140 FP072640 | 13052 270000000000 D1150 BCI 1,G00000 D1150 FP072650 | *TO ALLOW EXPANDED TABLE TO APPEAR AS SECOND ENTRY. FP072660 | 13053 0 00000 0 43354 D1160 PZE DCTI+22 D1160 FP072670 13054 0 00000 0 00000 D1170 PZE 0 MAX FLD SIZE HORRPT D1170 FP072680 | 13055 000000000702 D1180 BCI 1,000072 D1180 FP072690 | * FP072700 | 1 LISTING OF 12/01/64 PAGE 156 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | * FP072720 | * FP072730 | * FP072740 | * D2010 SUBROUTINE. LOCATE UPDATE DICTIONARY D2000 FP072750 * FP072760 | * FP072770 | 13056 0634 00 4 13163 D2010 SXA D2680,4 D2010 FP072780 | 13057 -0500 00 4 00001 CAL 1,4 COMPARE TO PREV DICT D2103 FP072790 | 13060 -0340 00 0 13230 LAS DAA20 D2104 FP072800 13061 0020 00 0 13063 TRA *+2 D2105 FP072810 | 13062 0020 00 0 13203 TRA D4200 EQUAL D2106 FP072820 | 13063 0602 00 0 13230 D2107 SLW DAA20 D2107 FP072830 | 13064 -0500 00 0 67175 CAL HEADR+3 D2108 FP072840 | 13065 -0320 00 0 10755 ANA BCD30 D21085FP072850 13066 -0765 00 0 00022 LGR 18 D2109 FP072860 | 13067 0602 00 0 13252 SLW DAB68 D21095FP072870 | 13070 -0760 00 0 00003 D2110 SSM D2110 FP072880 | 13071 0074 00 4 11767 TSX UPWST,4 INITIALIZE FOR READ D2120 FP072890 | 13072 0074 00 4 11777 TSX UPWRD,4 READ B-LABEL D2130 FP072900 13073 3 00015 0 47654 IORT BEDIC,0,13 SAVE BLOCK SIZE D2210 FP072910 | 13074 0020 00 0 13076 TRA *+2 FP072920 | 13075 0020 00 0 13100 TRA *+3 FP072930 | 13076 0074 00 4 10507 TSX T0010,4 FP072940 | 13077 -1 06200 3 00000 STR 0,3,3200 UPW UNIT HAS NO DICT D2220 FP072950 13100 0074 00 4 11777 D2230 TSX UPWRD,4 D2230 FP072960 | 13101 3 00015 0 47654 IORT BEDIC,0,13 D2240 FP072970 | 13102 0020 00 0 13104 TRA *+2 FP072980 | 13103 0020 00 0 13106 TRA *+3 FP072990 | 13104 0074 00 4 10507 TSX T0010,4 FP073000 13105 -1 10125 4 00000 STR 0,4,4181 NO P LABEL ON UPW TAPE UNIT DICT D2250 FP073010 | 13106 -0500 00 0 47654 CAL BEDIC D2260 FP073020 | 13107 -0320 00 0 10765 ANA BCD40 D2270 FP073030 | 13110 -0340 00 0 13233 LAS DAA50 TEST FOR EXEC E D2280 FP073040 | 13111 0020 00 0 13113 TRA *+2 D2290 FP073050 13112 0020 00 0 13121 TRA D2350 D2300 FP073060 | 13113 -0340 00 0 13234 LAS DAA50+1 TEST FOR EXEC P D2310 FP073070 | 13114 0020 00 0 13100 TRA D2230 D2320 FP073080 | 13115 0020 00 0 13117 TRA *+2 FP073090 | 13116 0020 00 0 13100 TRA D2230 D2340 FP073100 13117 0074 00 4 10507 TSX T0010,4 FP073110 | 13120 -1 06212 3 00000 STR 0,3,3210 NO DICT FOR RT ON UPW UNIT FP073120 | 13121 -0500 00 0 47655 D2350 CAL BEDIC+1 D2350 FP073130 | 13122 -0320 00 0 10733 ANA BCD06 D2360 FP073140 | 13123 -0340 00 0 13230 LAS DAA20 DICT EQUAL HEADR REC TYPE D2370 FP073150 13124 0020 00 0 13100 TRA D2230 D2380 FP073160 | 13125 0020 00 0 13127 TRA *+2 D2390 FP073170 | 13126 0020 00 0 13100 TRA D2230 D2400 FP073180 | 13127 0774 00 1 47702 AXT BEDIC+22,1 INITIALIZE FOR STORE D2430 FP073190 | 13130 0634 00 1 13201 SXA D2830,1 * D2440 FP073200 13131 0074 00 4 11777 D2450 TSX UPWRD,4 READ TAPE TO BUFFER D2450 FP073210 | 13132 3 00015 0 57544 IORT REBUF,0,13 * D2460 FP073220 | 13133 0020 00 0 13135 TRA *+2 FP073230 | 13134 0020 00 0 13137 TRA *+3 FP073240 | 13135 0074 00 4 10507 TSX T0010,4 FP073250 13136 -1 10126 4 00000 STR 0,4,4182 NO P LABEL ON UPW TAPE UNIT DICT D2470 FP073260 | 1 LISTING OF 12/01/64 PAGE 157 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | | 13137 -0500 00 0 57544 CAL REBUF D2480 FP073270 13140 -0320 00 0 10765 ANA BCD40 D2490 FP073280 | 13141 -0340 00 0 13235 LAS DAA50+2 IS EXEC AN F D2500 FP073290 | 13142 0020 00 0 13144 TRA *+2 D2510 FP073300 | 13143 0020 00 0 13165 TRA D2730 F D2520 FP073310 | 13144 -0340 00 0 13236 LAS DAA50+3 IS EXEC A G D2530 FP073320 13145 0020 00 0 13147 TRA *+2 D2540 FP073330 | 13146 0020 00 0 13131 TRA D2450 D2550 FP073340 | 13147 -0340 00 0 13233 LAS DAA50 IS EXEC AN E D2560 FP073350 | 13150 0020 00 0 13152 TRA *+2 D2570 FP073360 | 13151 0020 00 0 13157 TRA D2630 E D2580 FP073370 13152 -0340 00 0 13234 LAS DAA50+1 IS EXEC A P D2590 FP073380 | 13153 0020 00 0 13155 TRA *+2 D2600 FP073390 | 13154 0020 00 0 13157 TRA D2630 D2610 FP073400 | 13155 0074 00 4 10507 TSX T0010,4 FP073410 | 13156 -1 10140 4 00000 STR 0,4,4192 EXEC CODE NOT E,F,G,P ON UPW DICT D2620 FP073420 13157 -0500 00 0 13201 D2630 CAL D2830 D2630 FP073430 | 13160 -0320 00 0 13243 ANA DAB15 MASK D2651 FP073440 | 13161 0602 00 0 53607 SLW ENDIC D2660 FP073450 | 13162 0074 00 4 11767 TSX UPWST,4 REWIND TAPE D2670 FP073460 | 13163 0774 00 4 00000 D2680 AXT 0,4 D2680 FP073470 13164 0020 00 4 00002 TRA 2,4 RETURN D2690 FP073480 | 13165 -0500 00 0 13201 D2730 CAL D2830 MODIFY STORE D2730 FP073490 | 13166 0400 00 0 13030 ADD D1080 5 D2760 FP073500 | 13167 0602 00 0 13201 SLW D2830 D2770 FP073510 | 13170 -0320 00 0 13243 ANA DAB15 D2771 FP073520 13171 -0340 00 0 13242 LAS DDA95 CHECK TABLE LIMIT FP073530 | 13172 0020 00 0 13175 TRA *+3 D2790 FP073540 | 13173 0020 00 0 13177 TRA *+4 FP073550 | 13174 0020 00 0 13177 TRA *+3 FP073560 | 13175 0074 00 4 10507 TSX T0010,4 FP073570 13176 -1 12062 5 00000 STR 0,5,5170 CHG DICT EXCEEDS ENDIC TABLE FP073580 | 13177 0074 00 4 13451 TSX D7010,4 D2810 FP073590 | 13200 0 00000 1 57557 D2820 PZE REBUF+11,1 D2820 FP073600 | 13201 0 00000 1 57572 D2830 PZE REBUF+22,1 D2830 FP073610 | 13202 0020 00 0 13131 TRA D2450 D2850 FP073620 13203 -0500 00 0 67175 D4200 CAL HEADR+3 D4200 FP073630 | 13204 -0320 00 0 10755 ANA BCD30 D4201 FP073640 | 13205 -0765 00 0 00022 LGR 18 D4202 FP073650 | 13206 -0340 00 0 13252 LAS DAB68 D4203 FP073660 | 13207 0020 00 0 13211 TRA *+2 D4204 FP073670 13210 0020 00 0 13213 TRA D4209 FP073680 | 13211 -0500 00 4 00001 CAL 1,4 D4206 FP073690 | 13212 0020 00 0 13063 TRA D2107 D4207 FP073700 | 13213 0534 00 2 53607 D4209 LXA ENDIC,2 D4209 FP073710 | 13214 1 77777 2 13215 TXI *+1,2,-1 D4210 FP073720 13215 -0634 00 2 13221 SXD *+4,2 D4220 FP073730 | 13216 0774 00 2 47675 AXT BEDIC+17,2 D4230 FP073740 | 13217 0774 00 1 00000 AXT 0,1 D4240 FP073750 | 13220 1 00005 2 13221 D4250 TXI *+1,2,5 D4250 FP073760 | 13221 -3 00000 2 13223 TXL *+2,2,0 D4260 FP073770 13222 0020 00 0 13163 TRA D2680 OUT D4270 FP073780 | 13223 0500 00 1 47702 CLA BEDIC+22,1 FP073790 | 13224 -0320 00 0 13251 ANA DAB67 D4290 FP073800 | 13225 0601 00 1 47702 STO BEDIC+22,1 FP073810 | 1 LISTING OF 12/01/64 PAGE 158 MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | | 13226 1 77773 1 13220 TXI D4250,1,-5 D4310 FP073820 | 13227 006060000000 DAA10 BCI 1,0 000 DAA10 FP073830 | 13230 0 00000 0 00000 DAA20 PZE REC TYPE DAA20 FP073840 13231 620000000000 DAA30 BCI 1,S00000 DAA30 FP073850 | 13232 0 00000 0 00001 DAA40 PZE 1 DAA40 FP073860 | 13233 250000000000 DAA50 BCI 4,E00000P00000F00000G00000 DAA50 FP073870 | 13234 470000000000 | 13235 260000000000 13236 270000000000 | 13237 0 00000 0 00006 DAA65 PZE 6 DAA65 FP073880 | 13240 +000101000000 DAA75 OCT 000101000000 DAA75 FP073890 | 13241 0 00000 0 00013 DAA85 PZE 11 DAA85 FP073900 | 13242 0 00000 0 53607 DDA95 PZE ENDIC LIMIT DDA95 FP073910 13243 +000000077777 DAB15 OCT 000000077777 MASK DAB15 FP073920 | 13244 +000000007757 DAB25 OCT 000000007757 DAB25 FP073930 | 13245 0 00000 0 00000 DAB45 PZE 0 ZERO DAB45 FP073940 | 13246 0 00000 0 00000 DAB55 PZE OPSTO SIZE DAB55 FP073950 | 13247 606060606060 DAB65 BCI 1, BLANK WORD DAB65 FP073960 13250 0 00000 0 00000 DAB66 PZE UPDATE WITH DIC BLOCK SIZE DAB66 FP073970 | 13251 -277777777777 DAB67 OCT 677777777777 DAB67 FP073980 | 13252 0 00000 0 00000 DAB68 PZE DAB68 FP073990 | * FP074000 | 1 LISTING OF 12/01/64 PAGE 159 MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | | * FP074020 | * FP074030 | * D5010 SUBROUTINE. LOCATE GROUP HEADER DICTIONARY FP074040 * FP074050 | * FP074060 | 13253 0634 00 4 13376 D5010 SXA D5830,4 D5010 FP074070 | 13254 -0500 00 0 53611 CAL DCTP+1 D5020 FP074080 | 13255 -0765 00 0 00006 LGR 6 D5030 FP074090 13256 -0320 00 0 10730 ANA BCD03 D5040 FP074100 | 13257 -0340 00 4 00001 LAS 1,4 COMPARE TO PREVIOUS DICT D5050 FP074110 | 13260 0020 00 0 13262 TRA *+2 D5060 FP074120 | 13261 0020 00 0 13376 TRA D5830 EQUAL D5070 FP074130 | 13262 0074 00 4 05255 TSX RD(WR),4 READ PAST B-LABEL D5080 FP074140 13263 0 13421 0 00007 PZE 7,,CMPCL D5085 FP074150 | 13264 0020 00 0 13267 TRA D5100 D5090 FP074160 | 13265 0074 00 4 10507 TSX T0010,4 FP074170 | 13266 -1 07701 4 00000 STR 0,4,4033 MASTER OUT DICT, EOF NOT EXPECTED D5095 FP074180 | 13267 0074 00 4 05255 D5100 TSX RD(WR),4 D5100 FP074190 13270 0 13421 0 00007 PZE 7,,CMPCL D5110 FP074200 | 13271 0020 00 0 13274 TRA *+3 D5120 FP074210 | 13272 0074 00 4 10507 TSX T0010,4 FP074220 | 13273 -1 07702 4 00000 STR 0,4,4034 MASTER OUT DICT, EOF NOT EXPECTED D5135 FP074230 | 13274 -0500 00 0 53610 CAL DCTP D5160 FP074240 13275 -0320 00 0 10765 ANA BCD40 D5170 FP074250 | 13276 -0340 00 0 13422 LAS D6050 EXEC E D5180 FP074260 | 13277 0020 00 0 13301 TRA *+2 D5190 FP074270 | 13300 0020 00 0 13307 TRA D5260 EQUAL D5200 FP074280 | 13301 -0340 00 0 13423 LAS D6060 EXEC P D5210 FP074290 13302 0020 00 0 13267 TRA D5100 READ AGAIN D5220 FP074300 | 13303 0020 00 0 13305 TRA *+2 FP074310 | 13304 0020 00 0 13267 TRA D5100 READ AGAIN FP074320 | 13305 0074 00 4 10507 TSX T0010,4 FP074330 | 13306 -1 06712 3 00000 STR 0,3,3530 NO DICT FOR GROUP HEADER FP074340 13307 0534 00 4 13376 D5260 LXA D5830,4 D5260 FP074350 | 13310 -0500 00 0 53611 CAL DCTP+1 D5265 FP074360 | 13311 -0765 00 0 00006 LGR 6 D5270 FP074370 | 13312 -0320 00 0 10730 ANA BCD03 D5280 FP074380 | 13313 -0340 00 4 00001 LAS 1,4 D5290 FP074390 13314 0020 00 0 13316 TRA *+2 D5300 FP074400 | 13315 0020 00 0 13317 TRA *+2 EQUAL D5310 FP074410 | 13316 0020 00 0 13267 TRA D5100 TO READ AGAIN D5320 FP074420 | 13317 -0500 00 0 13450 CAL D6160 INIT TABLE D5350 FP074430 | 13320 0621 00 0 13370 STA D5760 D5360 FP074440 13321 0074 00 4 05255 D5450 TSX RD(WR),4 D5450 FP074450 | 13322 0 13424 0 00007 PZE 7,,CMPCF D5460 FP074460 | 13323 0020 00 0 13326 TRA *+3 D5470 FP074470 | 13324 0074 00 4 10507 TSX T0010,4 FP074480 | 13325 -1 07703 4 00000 STR 0,4,4035 MASTER OUT DICT, EOF NOT EXPECTED D5480 FP074490 13326 -0500 00 0 13430 CAL DCTRP D5510 FP074500 | 13327 -0320 00 0 10765 ANA BCD40 D5520 FP074510 | 13330 -0340 00 0 13423 LAS D6060 P D5530 FP074520 | 13331 0020 00 0 13333 TRA *+2 D5540 FP074530 | 13332 0020 00 0 13372 TRA D5790 D5550 FP074540 13333 -0340 00 0 13446 LAS D6140 F D5560 FP074550 | 13334 0020 00 0 13336 TRA *+2 D5570 FP074560 | 1 LISTING OF 12/01/64 PAGE 160 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | 13335 0020 00 0 13352 TRA D5720 D5580 FP074570 | 13336 -0340 00 0 13422 LAS D6050 E D5590 FP074580 | 13337 0020 00 0 13341 TRA *+2 D5600 FP074590 | 13340 0020 00 0 13372 TRA D5790 D5610 FP074600 | 13341 -0340 00 0 13447 LAS D6150 G D5620 FP074610 13342 0020 00 0 13344 TRA *+2 D5630 FP074620 | 13343 0020 00 0 13346 TRA D5680 D5640 FP074630 | 13344 0074 00 4 10507 TSX T0010,4 FP074640 | 13345 -1 11041 4 00000 STR 0,4,4641 DICT LABEL NOT E,F,G OR P ON B7 D5650 FP074650 | 13346 0500 00 0 53610 D5680 CLA DCTP D5680 FP074660 13347 -0760 00 0 00003 SSM D5690 FP074670 | 13350 0601 00 0 53610 D5700 STO DCTP D5700 FP074680 | 13351 0020 00 0 13321 TRA D5450 TO READ D5710 FP074690 | 13352 0500 00 0 13370 D5720 CLA D5760 MODIFY FOR NEXT F RECORD D5720 FP074700 | 13353 0621 00 0 13346 STA D5680 INIT FOR SUM FWD CODE D5732 FP074710 13354 0621 00 0 13350 STA D5700 D5733 FP074720 | 13355 0400 00 0 13030 ADD D1080 5 D5734 FP074730 | 13356 0621 00 0 13370 STA D5760 D5735 FP074740 | 13357 -0320 00 0 13426 ANA D6090 TEST TABLE LIMIT D5736 FP074750 | 13360 -0340 00 0 13427 LAS D6100 D5737 FP074760 13361 0020 00 0 13364 TRA *+3 D5738 FP074770 | 13362 0020 00 0 13366 TRA *+4 D5739 FP074780 | 13363 0020 00 0 13366 TRA *+3 FP074790 | 13364 0074 00 4 10507 TSX T0010,4 FP074800 | 13365 -1 12242 5 00000 STR 0,5,5282 EXCEEDS ENDIC TABLE FP074810 13366 0074 00 4 13451 TSX D7010,4 D5740 FP074820 | 13367 0 00000 1 13443 PZE DCTRP+11,1 D5750 FP074830 | 13370 0 00000 1 53610 D5760 PZE DCTP,1 D5760 FP074840 | 13371 0020 00 0 13321 TRA D5450 BACK TO READ D5780 FP074850 | 13372 -0500 00 0 13370 D5790 CAL D5760 D5790 FP074860 13373 0621 00 0 57543 STA DCTBP D5820 FP074870 | 13374 0074 00 4 06342 TSX TPOSIT,4 REPOSITION UNIT D5825 FP074880 | 13375 0 00000 0 00007 PZE 7 D5826 FP074890 | 13376 0774 00 4 00000 D5830 AXT 0,4 D5830 FP074900 | 13377 -0500 00 4 00001 CAL 1,4 D58311FP074910 13400 0774 00 1 00062 D5832 AXT GHSZE,1 FP074920 | 13401 0520 00 0 11340 ZET D5900+GHSZE HAS TABLE BEEN ZEROED FP074930 | 13402 0020 00 0 13415 TRA D5838 NO D58331FP074940 | 13403 -0340 00 1 11340 D5834 LAS D5900+GHSZE,1 HAS THIS TYPE BEEN FP074950 | 13404 0020 00 0 13406 TRA *+2 TABLED YET NO D58341FP074960 13405 0020 00 4 00002 TRA 2,4 YES D58343FP074970 | 13406 -0520 00 1 11340 NZT D5900+GHSZE,1 NO. IS THIS ENTRY ZERO FP074980 | 13407 0020 00 0 13413 TRA D5836 YES-TABLE THIS TYPE D58350FP074990 | 13410 2 00001 1 13403 TIX D5834,1,1 NO. GO BACK FOR MORE D58351FP075000 | 13411 0074 00 4 10507 TSX T0010,4 FP075010 13412 -1 13414 5 00000 STR 0,5,5900 EXCEED GP HDR TABLE D58355FP075020 | 13413 0602 00 1 11340 D5836 SLW D5900+GHSZE,1 FP075030 | 13414 0020 00 4 00002 TRA 2,4 D58370FP075040 | 13415 0774 00 1 00063 D5838 AXT GHSZE+1,1 FP075050 | 13416 0600 00 1 11341 STZ D5900+GHSZE+1,1 FP075060 13417 2 00001 1 13416 TIX *-1,1,1 D58382FP075070 | 13420 0020 00 0 13400 TRA D5832 D58385FP075080 | 13421 3 00015 0 53610 CMPCL IORT DCTP,0,13 D6040 FP075090 | 13422 250000000000 D6050 BCI 1,E00000 D6050 FP075100 | 13423 470000000000 D6060 BCI 1,P00000 D6060 FP075110 1 LISTING OF 12/01/64 PAGE 161 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | | 13424 3 00015 0 13430 CMPCF IORT DCTRP,0,13 D6070 FP075120 | 13425 0 00000 0 00013 D6080 PZE 11 D6080 FP075130 13426 +000000077777 D6090 OCT 77777 D6090 FP075140 | 13427 0 00000 0 57543 D6100 PZE DCTBP TABLE LIMIT D6100 FP075150 | 13430 DCTRP BSS 13 D6110 FP075160 | 13445 0 00000 0 00026 D6120 PZE 22 D6120 FP075170 | 13446 260000000000 D6140 BCI 1,F00000 D6140 FP075180 13447 270000000000 D6150 BCI 1,G00000 D6150 FP075190 | 13450 0 00000 0 53636 D6160 PZE DCTP+22 D6160 FP075200 | * FP075210 | *CONDENSING ROUTINE-11 WORD TO 5 WORD ENTRIES D7000 FP075220 | *CALLING SEQUENCE D7001 FP075230 * TSX D7010,4 D7002 FP075240 | * PZE DCTRD+11,1 OR REBUF+11,1 OR DCTRP+11,1 D7003 FP075250 | * PZE DCTI,1 OR BEDIC+22,1 OR DCTP,1 D7004 FP075260 | * RETURN D7006 FP075270 | 13451 0634 00 4 13545 D7010 SXA D7900,4 D7010 FP075280 13452 0634 00 2 13546 SXA D7910,2 D7020 FP075290 | 13453 -0500 00 4 00001 CAL 1,4 D7030 FP075300 | 13454 0737 00 1 00000 PAC 0,1 D7040 FP075310 | 13455 1 00013 1 13456 TXI *+1,1,11 D7050 FP075320 | 13456 -0500 00 4 00002 CAL 2,4 D7060 FP075330 13457 0737 00 2 00000 PAC 0,2 D7070 FP075340 | 13460 1 00005 2 13461 TXI *+1,2,5 TTO PROPERLY LOCATE FIRST AVAIL WORDD7080 FP075350 | 13461 -0500 00 1 00000 CAL 0,1 D7100 FP075360 | 13462 0602 00 2 00000 SLW 0,2 D7110 FP075370 | 13463 -0500 00 1 00001 CAL 1,1 D7120 FP075380 13464 -0320 00 0 11021 ANA BCD74 D7130 FP075390 | 13465 0602 00 2 00001 SLW 1,2 D7140 FP075400 | 13466 -0500 00 1 00007 CAL 7,1 SEQ LVL D7150 FP075410 | 13467 0560 00 1 00010 LDQ 8,1 D7160 FP075420 | 13470 -0763 00 0 00006 LGL 6 D7170 FP075430 13471 -0320 00 0 10730 ANA BCD03 D7180 FP075440 | 13472 -0602 00 2 00001 ORS 1,2 D7190 FP075450 | 13473 -0763 00 0 00025 LGL 21 REPL ONLY CODE D7200 FP075460 | 13474 -0320 00 0 11056 ANA TAG7 SHARE LEFT HALF OF D7210 FP075470 | 13475 -0602 00 2 00001 ORS 1,2 BINARY MODE CODE D7220 FP075480 13476 -0500 00 1 00010 CAL 8,1 MIN D7230 FP075490 | 13477 0560 00 1 00011 LDQ 9,1 D7240 FP075500 | 13500 -0763 00 0 00014 LGL 12 D7250 FP075510 | 13501 0602 00 2 00003 SLW 3,2 D7260 FP075520 | 13502 -0500 00 1 00011 CAL 9,1 MAX D7270 FP075530 13503 0560 00 1 00012 LDQ 10,1 D7280 FP075540 | 13504 -0763 00 0 00014 LGL 12 D7290 FP075550 | 13505 0602 00 2 00004 SLW 4,2 D7300 FP075560 | 13506 -0500 00 1 00001 CAL 1,1 SIZE D7310 FP075570 | 13507 0560 00 1 00002 LDQ 2,1 D7320 FP075580 13510 -0763 00 0 00006 LGL 6 D7330 FP075590 | 13511 -0320 00 0 10734 ANA BCD07 D7340 FP075600 | 13512 0600 00 0 07750 STZ B1010 D7350 FP075610 | 13513 0602 00 0 07751 SLW B1020 D7360 FP075620 | 13514 0074 00 4 07570 TSX B0010,4 D7370 FP075630 13515 -0500 00 0 07747 CAL B1000 D7380 FP075640 | 13516 0602 00 2 00005 SLW 5,2 D7390 FP075650 | 13517 -0500 00 1 00002 CAL 2,1 WORD INCREMENT D7400 FP075660 | 1 LISTING OF 12/01/64 PAGE 162 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | 13520 0560 00 1 00003 LDQ 3,1 D7410 FP075670 | 13521 -0763 00 0 00022 LGL 18 D7420 FP075680 | 13522 -0320 00 0 10744 ANA BCD17 D7430 FP075690 | 13523 0602 00 0 07751 SLW B1020 D7440 FP075700 13524 0074 00 4 07570 TSX B0010,4 D7450 FP075710 | 13525 -0500 00 0 07747 CAL B1000 D7460 FP075720 | 13526 0602 00 2 00006 SLW 6,2 D7470 FP075730 | 13527 -0500 00 1 00003 CAL 3,1 BIT INCREMENT D7480 FP075740 | 13530 -0765 00 0 00006 LGR 6 D7490 FP075750 13531 -0320 00 0 10730 ANA BCD03 D7500 FP075760 | 13532 0602 00 0 07751 SLW B1020 D7510 FP075770 | 13533 0074 00 4 07570 TSX B0010,4 D7520 FP075780 | 13534 -0500 00 0 07747 CAL B1000 PACK 3D WORD D7530 FP075790 | 13535 -0765 00 0 00011 LGR 9 BIT D7540 FP075800 13536 -0500 00 2 00006 CAL 6,2 D7550 FP075810 | 13537 -0765 00 0 00017 LGR 15 WORD D7560 FP075820 | 13540 -0500 00 2 00005 CAL 5,2 D7570 FP075830 | 13541 -0765 00 0 00014 LGR 12 SIZE D7580 FP075840 | 13542 -0600 00 2 00002 STQ 2,2 D7585 FP075850 13543 0600 00 2 00005 STZ 5,2 ZERO TEMPORARY WORK AREA D7590 FP075860 | 13544 0600 00 2 00006 STZ 6,2 ZERO TEMPORARY WORK AREA D7595 FP075870 | 13545 0774 00 4 00000 D7900 AXT **,4 D7900 FP075880 | 13546 0774 00 2 00000 D7910 AXT **,2 D7910 FP075890 | 13547 0020 00 4 00003 TRA 3,4 D7920 FP075900 * FP075910 | 1 LISTING OF 12/01/64 PAGE 163 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | | * FP075930 * FP075940 | * SUB-RTN SEARCH DICTIONARY TABLE FOR FIELD NUMBER FP075950 | * FP075960 | * PLUS ONE ADDR FIELD NUMBER FP075970 | * FP075980 13550 0774 00 2 43354 E0010 AXT DCTI+22,2 INITIALIZE FOR FIRST WORD E0010 FP075990 | 13551 0634 00 2 13610 SXA E1002,2 * E0020 FP076000 | 13552 0774 00 2 00000 AXT 0,2 INIT XR2 WITH 0 E0030 FP076010 | 13553 -0500 00 2 43354 E0040 CAL DCTI+22,2 FP076020 | 13554 0560 00 2 43355 LDQ DCTI+23,2 FP076030 13555 -0320 00 0 10734 ANA BCD07 * E0060 FP076040 | 13556 -0763 00 0 00006 LGL 6 * E0070 FP076050 | 13557 -0340 00 4 00001 LAS 1,4 * E0080 FP076060 | 13560 0020 00 0 13572 TRA E0185 NO SF FLD IN DICT E0090 FP076070 | 13561 0020 00 0 13574 TRA E0220 * EQUAL E0100 FP076080 13562 -0500 00 0 13610 CAL E1002 MODIFY WORD 1 BY 11 E0110 FP076090 | 13563 0400 00 0 13030 ADD D1080 * E0120 FP076100 | 13564 0621 00 0 13610 STA E1002 * E0130 FP076110 | 13565 -0500 00 0 47653 CAL DCTBL TEST LIMIT AGAINST WORD 1 E0140 FP076120 | 13566 -0320 00 0 13607 ANA E1001 * E0150 FP076130 13567 -0340 00 0 13610 LAS E1002 * E0160 FP076140 | 13570 1 77773 2 13553 TXI E0040,2,-5 E0170 FP076150 | 13571 0761 00 0 00000 NOP E0180 FP076160 | 13572 0074 00 4 10507 E0185 TSX T0010,4 E0185 FP076170 | 13573 -1 00010 2 14307 STR BB010,2,8 NO SF FLD IN DICT E0190 FP076180 13574 -0500 00 0 13610 E0220 CAL E1002 WORD 1 ADDR E0220 FP076190 | 13575 0402 00 0 13611 SUB E1003 MINUS E0230 FP076200 | 13576 0737 00 2 00000 PAC 0,2 SET IR 2 E0240 FP076210 | 13577 0634 00 4 13605 E0250 SXA E0550,4 E0250 FP076220 | 13600 0074 00 4 13723 TSX E7000,4 E0260 FP076230 13601 0602 00 0 13612 SLW E1004 E0270 FP076240 | 13602 0602 00 0 13613 SLW E1005 E0280 FP076250 | 13603 0602 00 0 13614 SLW E1006 E0290 FP076260 | 13604 -0774 00 2 43340 AXC DCTI+10,2 E0545 FP076270 | 13605 0774 00 4 00000 E0550 AXT **,4 E0550 FP076280 13606 0020 00 4 00002 TRA 2,4 E0570 FP076290 | 13607 +000000077777 E1001 OCT 000000077777 E1001 FP076300 | 13610 0 00000 0 00000 E1002 PZE WORD 1 ADDR E1002 FP076310 | 13611 +000000000001 E1003 DEC 1 E1003 FP076320 | 13612 0 00000 0 00000 E1004 PZE FIELD SIZE E1004 FP076330 13613 0 00000 0 00000 E1005 PZE WORD INCR E1005 FP076340 | 13614 0 00000 0 00000 E1006 PZE WORD BITS E1006 FP076350 | * FP076360 | 1 LISTING OF 12/01/64 PAGE 164 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | * FP076380 | * FP076390 | * FP076400 | * E1010 SUBROUTINE. LOCATE UPDATE FIELD ENTRY E1000 FP076410 * FP076420 | 13615 0634 00 2 13650 E1010 SXA E1180,2 CHG FLD DICT SEARCH E1010 FP076430 | 13616 0534 00 2 53607 LXA ENDIC,2 E1011 FP076440 | 13617 1 77777 2 13620 TXI *+1,2,-1 E1012 FP076450 | 13620 -0634 00 2 13624 SXD E1050,2 E1013 FP076460 13621 0774 00 2 47675 AXT BEDIC+17,2 INITIALIZE FOR START E1020 FP076470 | 13622 0774 00 1 00000 AXT 0,1 E1030 FP076480 | 13623 1 00005 2 13624 E1040 TXI *+1,2,5 E1040 FP076490 | 13624 -3 00000 2 13627 E1050 TXL *+3,2,0 COMPARE TO LIMIT E1050 FP076500 | 13625 0074 00 4 10507 TSX T0010,4 FP076510 13626 -1 00014 2 14307 STR BB010,2,12 NO FLD IN UPW DICT E1060 FP076520 | 13627 -0500 00 1 47702 CAL BEDIC+22,1 LOAD FIELD NR E1070 FP076530 | 13630 0560 00 1 47703 LDQ BEDIC+23,1 E1080 FP076540 | 13631 -0763 00 0 00006 LGL 6 * E1090 FP076550 | 13632 -0320 00 0 10744 ANA BCD17 * E1100 FP076560 13633 -0340 00 4 00001 LAS 1,4 DICT FLD NO TO CHG FLD NO E1110 FP076570 | 13634 0020 00 0 13636 TRA *+2 E1120 FP076580 | 13635 0020 00 0 13637 TRA *+2 E1130 FP076590 | 13636 1 77773 1 13623 TXI E1040,1,-5 E1140 FP076600 | 13637 1 77777 2 13640 TXI *+1,2,-1 SUB 1 FROM WD 1 ADD E1150 FP076610 13640 0754 00 2 00000 PXA 0,2 COMP TO XR 1 E1160 FP076620 | 13641 0737 00 2 00000 PAC 0,2 E1162 FP076630 | 13642 0634 00 4 13651 SXA E1460,4 E1164 FP076640 | 13643 0074 00 4 13723 TSX E7000,4 UNPACK E1166 FP076650 | 13644 0602 00 0 13653 SLW E2004 E1168 FP076660 13645 0602 00 0 13654 SLW E2005 E1170 FP076670 | 13646 0602 00 0 13655 SLW E2006 E1172 FP076680 | 13647 -0774 00 1 47666 AXC BEDIC+10,1 E1173 FP076690 | 13650 0774 00 2 00000 E1180 AXT **,2 S.F. DICT LOC E1180 FP076700 | 13651 0774 00 4 00000 E1460 AXT **,4 E1460 FP076710 13652 0020 00 4 00002 TRA 2,4 E1480 FP076720 | 13653 0 00000 0 00000 E2004 PZE SIZE E2004 FP076730 | 13654 0 00000 0 00000 E2005 PZE INCR E2005 FP076740 | 13655 0 00000 0 00000 E2006 PZE BIT NO E2006 FP076750 | * FP076760 1 LISTING OF 12/01/64 PAGE 165 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | | * FP076780 | * FP076790 * E5010 SUBROUTINE. LOCATE GROUP HEADER FIELD ENTRY FP076800 | * FP076810 | * FP076820 | 13656 0774 00 2 53636 E5010 AXT DCTP+22,2 INITIALIZE FOR FIRST ENTRY E5010 FP076830 | 13657 0634 00 2 13716 SXA E6002,2 E5020 FP076840 13660 0774 00 2 00000 AXT 0,2 INIT XR2 WITH 0 E5030 FP076850 | 13661 -0500 00 2 53636 E5040 CAL DCTP+22,2 FIELD NUMBER E5040 FP076860 | 13662 0560 00 2 53637 LDQ DCTP+23,2 E5050 FP076870 | 13663 -0320 00 0 10734 ANA BCD07 E5060 FP076880 | 13664 -0763 00 0 00006 LGL 6 E5070 FP076890 13665 -0340 00 4 00001 LAS 1,4 E5080 FP076900 | 13666 0020 00 0 13700 TRA E5190 E5090 FP076910 | 13667 0020 00 0 13702 TRA E5220 EQUAL E5100 FP076920 | 13670 -0500 00 0 13716 CAL E6002 MODIFY WORD 1 BY 11 E5110 FP076930 | 13671 0400 00 0 13030 ADD D1080 5 E5120 FP076940 13672 0621 00 0 13716 STA E6002 E5130 FP076950 | 13673 -0500 00 0 57543 CAL DCTBP TEST LIMIT AGAINST WD 1 E5140 FP076960 | 13674 -0320 00 0 13715 ANA E6001 E5150 FP076970 | 13675 -0340 00 0 13716 LAS E6002 E5160 FP076980 | 13676 1 77773 2 13661 TXI E5040,2,-5 E5170 FP076990 13677 0761 00 0 00000 NOP E5180 FP077000 | 13700 0074 00 4 10507 E5190 TSX T0010,4 E5190 FP077010 | 13701 -1 00021 2 14307 STR BB010,2,17 NO SF FLD IN DICT E5195 FP077020 | 13702 -0500 00 0 13716 E5220 CAL E6002 WORD 1 ADDR E5220 FP077030 | 13703 0402 00 0 13717 SUB E6003 MINUS E5230 FP077040 13704 0737 00 2 00000 PAC 0,2 SET IR 2 E5240 FP077050 | 13705 0634 00 4 13713 E5250 SXA E5550,4 E5250 FP077060 | 13706 0074 00 4 13723 TSX E7000,4 E5260 FP077070 | 13707 0602 00 0 13720 SLW E6004 E5270 FP077080 | 13710 0602 00 0 13721 SLW E6005 E5280 FP077090 13711 0602 00 0 13722 SLW E6006 E5290 FP077100 | 13712 -0774 00 2 53622 AXC DCTP+10,2 E5545 FP077110 | 13713 0774 00 4 00000 E5550 AXT **,4 E5550 FP077120 | 13714 0020 00 4 00002 TRA 2,4 E5570 FP077130 | 13715 +000000077777 E6001 OCT 000000077777 E6001 FP077140 13716 0 00000 0 00000 E6002 PZE WD 1 ADDR E6002 FP077150 | 13717 +000000000001 E6003 DEC 1 E6003 FP077160 | 13720 0 00000 0 00000 E6004 PZE FIELD SIZE E6004 FP077170 | 13721 0 00000 0 00000 E6005 PZE WORD INCR E6005 FP077180 | 13722 0 00000 0 00000 E6006 PZE WORD BIT E6006 FP077190 * FP077200 | 13723 0604 00 0 13774 E7000 STI E7300 E7000 FP077210 | 13724 0634 00 4 13760 SXA E7236,4 E7005 FP077220 | 13725 0634 00 1 13771 SXA E7276,1 SAVE 1 E7006 FP077230 | 13726 -0500 00 4 00004 CAL 4,4 GET ADDRESS-1 OF EXPANDED TABLE E7007 FP077240 13727 0737 00 1 00000 PAC 0,1 E7008 FP077250 | 13730 -0500 00 2 00001 CAL 1,2 RT, FLD NR E7010 FP077260 | 13731 0602 00 1 00001 SLW 1,1 E7020 FP077270 | 13732 -0754 00 0 00000 PXD 0,0 ZERO MQ E7030 FP077280 | 13733 -0130 00 0 00000 XCL E7040 FP077290 13734 -0500 00 2 00002 CAL 2,2 FLD NR, MODE E7050 FP077300 | 13735 0044 00 0 00000 PAI E7060 FP077310 | 13736 -0320 00 0 13775 ANA E7302 MASK OUT REPL ONLY E7070 FP077320 | 1 LISTING OF 12/01/64 PAGE 166 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | 13737 0602 00 1 00002 SLW 2,1 E7080 FP077330 | 13740 -0765 00 0 00006 LGR 6 E7090 FP077340 | 13741 0602 00 1 00010 SLW 8,1 MSD OF SEQ LEVEL E7100 FP077350 | 13742 -0763 00 0 00006 LGL 6 E7110 FP077360 13743 0054 00 100000 RFT 100000 REPLACE ONLY E7120 FP077370 | 13744 0560 00 0 13776 LDQ E7303 YES E7130 FP077380 | 13745 -0763 00 0 00006 LGL 6 E7140 FP077390 | 13746 0560 00 2 00004 LDQ 4,2 MIN E7150 FP077400 | 13747 -0763 00 0 00030 LGL 24 E7160 FP077410 13750 0602 00 1 00011 SLW 9,1 LSD SEQ, PEPL ONLY MIN E7170 FP077420 | 13751 -0763 00 0 00014 LGL 12 E7180 FP077430 | 13752 0560 00 2 00005 LDQ 5,2 MAX E7190 FP077440 | 13753 -0763 00 0 00030 LGL 24 E7200 FP077450 | 13754 0602 00 1 00012 SLW 10,1 MIN,MAX E7210 FP077460 13755 -0600 00 1 00013 STQ 11,1 MAX E7220 FP077470 | 13756 -0500 00 2 00003 CAL 3,2 E7230 FP077480 | 13757 -0765 00 0 00030 LGR 24 E7235 FP077490 | 13760 0774 00 4 00000 E7236 AXT **,4 E7236 FP077500 | 13761 0522 00 4 00001 XEC 1,4 SIZE E7240 FP077510 13762 -0754 00 0 00000 PXD 0,0 E7245 FP077520 | 13763 -0763 00 0 00017 LGL 15 E7250 FP077530 | 13764 0522 00 4 00002 XEC 2,4 WORD E7255 FP077540 | 13765 -0754 00 0 00000 PXD 0,0 E7260 FP077550 | 13766 -0763 00 0 00011 LGL 9 E7265 FP077560 13767 0522 00 4 00003 XEC 3,4 BIT E7270 FP077570 | 13770 0441 00 0 13774 LDI E7300 E7275 FP077580 | 13771 0774 00 1 00000 E7276 AXT 0,1 E7276 FP077590 | 13772 0522 00 4 00004 XEC 4,4 LOAD PROPER INDEX E7278 FP077600 | 13773 0020 00 4 00005 TRA 5,4 E7280 FP077610 13774 0 00000 0 00000 E7300 PZE 0 SI STORAGE E7300 FP077620 | 13775 -377777077777 E7302 OCT 777777077777 E7302 FP077630 | 13776 +010000000000 E7303 OCT 010000000000 E7303 FP077640 | * FP077650 | * UNPACK-E7000 FP077660 13777 0634 00 4 14036 E7310 SXA E7455,4 E7310 FP077670 | 14000 0634 00 2 14035 SXA E7450,2 E7315 FP077680 | 14001 0634 00 1 14034 SXA E7445,1 E7320 FP077690 | 14002 0534 00 2 13760 LXA E7236,2 E7325 FP077700 | 14003 0774 00 1 00003 AXT 3,1 E7330 FP077710 14004 -0500 60 2 00001 CAL* 1,2 E7335 FP077720 | 14005 0602 00 0 10127 SLW B6000 E7340 FP077730 | 14006 0074 00 4 10070 TSX B5010,4 E7345 FP077740 | 14007 -0500 00 0 10131 CAL B6020 E7350 FP077750 | 14010 0602 00 1 14043 SLW E7465+3,1 E7355 FP077760 14011 2 00001 2 14012 TIX *+1,2,1 E7360 FP077770 | 14012 2 00001 1 14004 TIX *-6,1,1 E7365 FP077780 | 14013 0560 00 0 11025 LDQ NMBR0 E7370 FP077790 | 14014 -0500 00 2 00001 CAL 1,2 E7375 FP077800 | 14015 0737 00 1 00000 PAC 0,1 E7376 FP077810 14016 -0500 00 0 11021 CAL BCD74 E7380 FP077820 | 14017 0320 00 1 00002 ANS 2,1 E7385 FP077830 | 14020 -0500 00 0 14040 CAL E7465 E7390 FP077840 | 14021 -0765 00 0 00006 LGR 6 E7395 FP077850 | 14022 -0320 00 0 10730 ANA BCD03 E7400 FP077860 14023 -0602 00 1 00002 ORS 2,1 E7405 FP077870 | 1 LISTING OF 12/01/64 PAGE 167 | MAIN2 (9PAC32). PROCESS INPUT DICTIONARIES | | 14024 -0600 00 1 00003 STQ 3,1 E7410 FP077880 14025 -0500 00 0 14041 CAL E7465+1 E7415 FP077890 | 14026 0560 00 0 14042 LDQ E7465+2 E7420 FP077900 | 14027 -0773 00 0 00030 RQL 24 E7422 FP077910 | 14030 -0765 00 0 00022 LGR 18 E7425 FP077920 | 14031 -0320 00 0 10726 ANA BCD01 E7430 FP077930 14032 -0602 00 1 00003 ORS 3,1 E7435 FP077940 | 14033 -0600 00 1 00004 STQ 4,1 E7440 FP077950 | 14034 0774 00 1 00000 E7445 AXT **,1 E7445 FP077960 | 14035 0774 00 2 00000 E7450 AXT **,2 E7450 FP077970 | 14036 0774 00 4 00000 E7455 AXT **,4 E7455 FP077980 14037 0020 00 4 00001 TRA 1,4 E7460 FP077990 | 14040 E7465 BSS 3 E7465 FP078000 | * FP078010 | * FP078020 | 1 LISTING OF 12/01/64 PAGE 168 MAIN2 (9PAC32). PRIORITY CONTROL | | * FP078040 | * FP078050 | * PRIORITY CONTROL FP078060 * FP078070 | * FP078080 | * FP078090 | *AFTER READING A PARAMETER HEADER CARD BA001 FP078100 | * BA002 FP078110 * BA003 FP078120 | 14043 0520 00 0 14506 BA010 ZET BAD30 EOF SWITCH BA010 FP078130 | 14044 0020 00 0 14116 TRA BA350 AT PARAMETER END OF FILE BA020 FP078140 | 14045 -0500 00 0 04621 CAL CARD BA030 FP078150 | 14046 0771 00 0 00030 ARS 24 BA040 FP078160 14047 -0340 00 0 14472 LAS BAB01 BA050 FP078170 | 14050 0020 00 0 14054 TRA *+4 BA060 FP078180 | 14051 0761 00 0 00000 NOP BA070 FP078190 | 14052 0074 00 4 10507 TSX T0010,4 FP078200 | 14053 -1 05702 3 00000 STR 0,3,3010 HDR MAJ PR NOT GR TH LAST HDR MAJPR BA080 FP078210 14054 0602 00 0 14472 SLW BAB01 BA090 FP078220 | 14055 0600 00 0 11372 STZ UPDIC BA100 FP078230 | 14056 0600 00 0 11376 STZ HORIZ BA110 FP078240 | 14057 0600 00 0 11407 STZ UPWSL BA120 FP078250 | 14060 0520 00 0 11411 ZET W0150 BA121 FP078260 14061 0020 00 0 14064 TRA *+3 FP078270 | 14062 0074 00 4 10507 TSX T0010,4 FP078280 | 14063 -1 01204 2 14064 STR *+1,2,644 NO MTCH CARD IN PREV PACKET BA122 FP078290 | 14064 0600 00 0 11411 STZ W0150 BA123 FP078300 | 14065 0774 00 4 00014 AXT 12,4 BA130 FP078310 14066 -0500 00 4 04635 CAL CARD+12,4 BA140 FP078320 | 14067 0602 00 4 67206 SLW HEADR+12,4 BA150 FP078330 | 14070 2 00001 4 14066 TIX *-2,4,1 BA160 FP078340 | 14071 -0500 00 0 04621 CAL CARD BA170 FP078350 | 14072 -0320 00 0 10726 ANA BCD01 BA180 FP078360 14073 -0340 00 0 14473 LAS BAB02 BA190 FP078370 | 14074 0020 00 0 14076 TRA *+2 BA200 FP078380 | 14075 0020 00 0 14123 TRA BA440 BA210 FP078390 | 14076 -0340 00 0 14474 LAS BAB03 U FOR UPDATE BA220 FP078400 | 14077 0020 00 0 14101 TRA *+2 BA230 FP078410 14100 0020 00 0 14140 TRA BA550 BA240 FP078420 | 14101 -0340 00 0 14475 LAS BAB04 S FOR SUMRESET BA250 FP078430 | 14102 0020 00 0 14104 TRA *+2 BA260 FP078440 | 14103 0020 00 0 14210 TRA BA835 BA270 FP078450 | 14104 -0340 00 0 14476 LAS BAB05 H FOR HORIZ BA280 FP078460 14105 0020 00 0 14107 TRA *+2 BA290 FP078470 | 14106 0020 00 0 14223 TRA BA875 BA300 FP078480 | 14107 -0500 00 0 04622 CAL CARD+1 FP078490 | 14110 -0320 00 0 11021 ANA BCD74 FP078500 | 14111 -0340 00 0 14477 LAS BAB06 FP078510 14112 0020 00 0 14114 TRA *+2 FP078520 | 14113 0020 00 0 14116 TRA BA350 FP078530 | 14114 0074 00 4 10507 TSX T0010,4 FP078540 | 14115 -1 05714 3 00000 STR 0,3,3020 INVALID FUNCTION ON HDR CARD BA340 FP078550 | 14116 0074 00 2 04771 BA350 TSX BSRSYS,2 POSITION SYSTEM TO READ CLNPAS BA350 FP078560 14117 0074 00 2 04771 TSX BSRSYS,2 BA360 FP078570 | 14120 0074 00 4 12507 TSX MSYSRD,4 BA390 FP078580 | 1 LISTING OF 12/01/64 PAGE 169 | MAIN2 (9PAC32). PRIORITY CONTROL | 14121 114721230303 BCI 1,9PAC33 BA400 FP078590 | 14122 0 22253 0 35133 PZE UWFLD,,UWFLD-MAIN1 FP078600 | 14123 -0500 00 0 11030 BA440 CAL NMBR3 BA440 FP078610 | 14124 0621 00 0 14266 STA BA957 FP078620 | 14125 -0500 00 0 04623 CAL CARD+2 VERTICAL HEADER FP078630 14126 -0765 00 0 00022 LGR 18 BA450 FP078640 | 14127 -0320 00 0 10730 ANA BCD03 BA460 FP078650 | 14130 -0625 00 0 11411 STL W0150 BA470 FP078660 | 14131 0020 00 0 14136 TRA BA530 BA480 FP078670 | 14132 000000000023 BCI 1,00000C CALC FUNCTION FP078680 14133 000051254763 BCI 1,00REPT BA500 FP078690 | 14134 000062254360 BCI 1,00SEL BA510 FP078700 | 14135 000065214360 BCI 1,00VAL BA520 FP078710 | 14136 0074 00 4 14241 BA530 TSX BA930,4 BA530 FP078720 | 14137 0 00065 4 14521 PZE BAC10,4,53 BA540 FP078730 14140 -0500 00 0 04624 BA550 CAL CARD+3 UPDATE BA550 FP078740 | 14141 -0765 00 0 00022 LGR 18 BA555 FP078750 | 14142 -0320 00 0 10730 ANA BCD03 UPDATE W/O DICT IF COL 20,21 BLANK BA560 FP078760 | 14143 -0340 00 0 14500 LAS BAB07 BA565 FP078770 | 14144 0020 00 0 14146 TRA *+2 BA570 FP078780 14145 0020 00 0 14172 TRA BA775 BA575 FP078790 | 14146 -0500 00 0 11033 CAL NMBR6 FP078800 | 14147 0621 00 0 14266 STA BA957 FP078810 | 14150 -0625 00 0 11372 STL UPDIC UPDATE WITH DICTIONARY BA615 FP078820 | 14151 -0500 00 0 04624 CAL CARD+3 BA620 FP078830 14152 0560 00 0 04625 LDQ CARD+4 BA630 FP078840 | 14153 -0763 00 0 00014 LGL 12 BA640 FP078850 | 14154 -0320 00 0 10733 ANA BCD06 BA650 FP078860 | 14155 0602 00 0 14454 SLW BB750 BA660 FP078870 | 14156 -0500 00 0 04622 CAL CARD+1 BA670 FP078880 14157 0560 00 0 04623 LDQ CARD+2 BA680 FP078890 | 14160 -0763 00 0 00006 LGL 6 BA690 FP078900 | 14161 -0320 00 0 10730 ANA BCD03 BA700 FP078910 | 14162 0020 00 0 14170 TRA BA765 BA710 FP078920 | 14163 000000000023 BCI 1,00000C CALC FUNCTION FP078930 14164 000044632330 BCI 1,00MTCH BA730 FP078940 | 14165 000051254763 BCI 1,00REPT BA740 FP078950 | 14166 000062254360 BCI 1,00SEL BA750 FP078960 | 14167 000026432460 BCI 1,00FLD BA760 FP078970 | 14170 0074 00 4 14241 BA765 TSX BA930,4 BA765 FP078980 14171 1 00066 5 14522 PON BAC20,5,54 BA770 FP078990 | 14172 -0500 00 0 11035 BA775 CAL NMBR8 BA775 FP079000 | 14173 0621 00 0 14266 STA BA957 FP079010 | 14174 -0500 00 0 04622 CAL CARD+1 UPDATE NO DICT FP079020 | 14175 0560 00 0 04623 LDQ CARD+2 BA780 FP079030 14176 -0763 00 0 00006 LGL 6 BA785 FP079040 | 14177 -0320 00 0 10730 ANA BCD03 BA790 FP079050 | 14200 0020 00 0 14206 TRA BA825 BA795 FP079060 | 14201 000000000023 BCI 1,00000C CALC FUNCTION FP079070 | 14202 000044632330 BCI 1,00MTCH BA805 FP079080 14203 000051254763 BCI 1,00REPT BA810 FP079090 | 14204 000062254360 BCI 1,00SEL BA815 FP079100 | 14205 000026432460 BCI 1,00FLD BA820 FP079110 | 14206 0074 00 4 14241 BA825 TSX BA930,4 BA825 FP079120 | 14207 1 00024 5 14523 PON BAC30,5,20 BA830 FP079130 1 LISTING OF 12/01/64 PAGE 170 | MAIN2 (9PAC32). PRIORITY CONTROL | | 14210 -0500 00 0 11030 BA835 CAL NMBR3 BA835 FP079140 | 14211 0621 00 0 14266 STA BA957 FP079150 14212 -0500 00 0 04623 CAL CARD+2 SUMRESET HEADER FP079160 | 14213 -0765 00 0 00022 LGR 18 BA840 FP079170 | 14214 -0320 00 0 10730 ANA BCD03 BA845 FP079180 | 14215 -0625 00 0 11411 STL W0150 BA847 FP079190 | 14216 0020 00 0 14221 TRA BA865 BA850 FP079200 14217 000062254360 BCI 1,00SEL BA855 FP079210 | 14220 000065214360 BCI 1,00VAL BA860 FP079220 | 14221 0074 00 4 14241 BA865 TSX BA930,4 BA865 FP079230 | 14222 0 00062 2 14521 PZE BAC10,2,50 BA870 FP079240 | 14223 -0500 00 0 11064 BA875 CAL EQUIV+5 ELEVEN BA875 FP079250 14224 0621 00 0 14266 STA BA957 FP079260 | 14225 -0500 00 0 04623 CAL CARD+2 HORIZONTAL HEADER FP079270 | 14226 0560 00 0 04624 LDQ CARD+3 BA880 FP079280 | 14227 -0765 00 0 00006 LGR 6 BA885 FP079290 | 14230 -0320 00 0 10730 ANA BCD03 BA890 FP079300 14231 -0625 00 0 11376 STL HORIZ BA893 FP079310 | 14232 0020 00 0 14237 TRA BA920 BA895 FP079320 | 14233 000000000023 BCI 1,00000C CALC FUNCTION FP079330 | 14234 000044632330 BCI 1,00MTCH BA905 FP079340 | 14235 000051254763 BCI 1,00REPT BA910 FP079350 14236 000062254360 BCI 1,00SEL BA915 FP079360 | 14237 0074 00 4 14241 BA920 TSX BA930,4 BA920 FP079370 | 14240 1 00030 4 14524 PON BAC40,4,24 BA925 FP079380 | 14241 0634 00 4 14403 BA930 SXA BB360,4 BA930 FP079390 | 14242 0602 00 0 14300 SLW BA993 BA931 FP079400 14243 -0500 00 4 00001 CAL 1,4 BA932 FP079410 | 14244 0621 00 0 14267 STA BA958 BA933 FP079420 | 14245 -0320 00 0 10731 ANA BCD04 BA934 FP079430 | 14246 -0765 00 0 00017 LGR 15 BA935 FP079440 | 14247 0734 00 2 00000 PAX 0,2 BA936 FP079450 14250 0634 00 2 14404 SXA BB370,2 BA9365FP079460 | 14251 0500 00 4 77777 CLA -1,4 BA937 FP079470 | 14252 0602 00 4 77777 SLW -1,4 BA938 FP079480 | 14253 1 00001 4 14254 TXI *+1,4,1 BA939 FP079490 | 14254 2 00001 2 14251 TIX *-3,2,1 BA940 FP079500 14255 0534 00 4 14403 LXA BB360,4 BA941 FP079510 | 14256 -0500 00 4 00001 CAL 1,4 BA942 FP079520 | 14257 0630 00 0 14463 STP BAA02 BA943 FP079530 | 14260 -0320 00 0 10735 ANA BCD10 BA944 FP079540 | 14261 -0340 00 0 14501 LAS BAB08 BA945 FP079550 14262 0020 00 0 14264 TRA *+2 BA946 FP079560 | 14263 0020 00 0 14275 TRA BA990 BA947 FP079570 | 14264 0602 00 0 14501 SLW BAB08 BA948 FP079580 | 14265 0074 00 2 04776 BA949 TSX FSFSYS,2 BA949 FP079590 | 14266 0774 00 1 00000 BA957 AXT **,1 BA957 FP079600 14267 -0500 00 0 00000 BA958 CAL ** BA958 FP079610 | 14270 0602 00 0 14525 SLW BAC50 FP079620 | 14271 0074 00 4 12507 TSX MSYSRD,4 FP079630 | 14272 114721230401 BCI 1,9PAC41 CLNVER FP079640 | 14273 0 01303 0 30477 PZE CLNHO,,CLNHO-UDRPT-2 FP079650 14274 0074 00 2 04764 BA968 TSX BSFSYS,2 BACKSPACE SYSTEM ONE FILE BA968 FP079660 | 14275 0520 00 0 14463 BA990 ZET BAA02 BA990 FP079670 | 14276 0074 00 4 14534 TSX VS010,4 BA991 FP079680 | 1 LISTING OF 12/01/64 PAGE 171 | MAIN2 (9PAC32). PRIORITY CONTROL | 14277 0074 00 4 12663 TSX D0010,4 BA992 FP079690 | 14300 0 00000 0 00000 BA993 PZE .. BA993 FP079700 | 14301 -0500 00 0 14464 CAL BAA03 INITIALIZE PREV FUNCTION AT CALC BA994 FP079710 | 14302 0602 00 0 14507 SLW BAE60 BA995 FP079720 14303 0534 00 4 14526 LXA BAC80,4 BA996 FP079730 | 14304 0634 00 4 14401 SXA BB330,4 BA997 FP079740 | 14305 1 00001 4 14306 TXI *+1,4,1 BA998 FP079750 | 14306 0634 00 4 14376 SXA BB310,4 BA999 FP079760 | 1 LISTING OF 12/01/64 PAGE 172 MAIN2 (9PAC32). PRIORITY CONTROL | | * FP079780 | * FP079790 | * FUNCTION CONTROL FP079800 * FP079810 | *PROCESS FUNCTIONAL CARD BB001 FP079820 | * BB002 FP079830 | * BB003 FP079840 | * BB004 FP079850 14307 0074 00 4 05255 BB010 TSX RD(WR),4 BB010 FP079860 | 14310 0 04712 1 00025 PZE 21,1,BCOMD BB020 FP079870 | 14311 0020 00 0 14313 TRA *+2 IMAGE IN C A R D BB030 FP079880 | 14312 0020 00 0 14337 TRA BB140 EOF BB040 FP079890 | 14313 -0500 00 0 04622 CAL CARD+1 IS IT *END BB050 FP079900 14314 0322 00 0 14477 ERA BAB06 BB055 FP079910 | 14315 0100 00 0 14337 TZE BB140 TRA ON ZERO TO E O F BB060 FP079920 | 14316 0074 00 4 12013 TSX BB900,4 SPECIAL CARD TEST BB065 FP079930 | 14317 0020 00 0 14307 TRA BB010 CARD WAS SPECIAL BB070 FP079940 | 14320 0020 00 0 14321 TRA BB080 NOT SPECIAL BB075 FP079950 14321 -0500 00 0 04621 BB080 CAL CARD COMPARE TO BB080 FP079960 | 14322 0771 00 0 00030 ARS 24 PREVIOUS PRIORITY BB090 FP079970 | 14323 -0340 00 0 14472 LAS BAB01 BB100 FP079980 | 14324 0020 00 0 14330 TRA BB131 BB110 FP079990 | 14325 0020 00 0 14344 TRA BB250 BB120 FP080000 14326 0074 00 4 10507 TSX T0010,4 FP080010 | 14327 -1 05726 3 00000 STR 0,3,3030 MAJ PRIOR LOWER TH LAST MAJ PRIOR BB130 FP080020 | 14330 0771 00 0 00006 BB131 ARS 6 TEST FOR C, FOR BB131 FP080030 | 14331 -0340 00 0 14464 LAS BAA03 CALC BB132 FP080040 | 14332 0020 00 0 14335 TRA BB136 PRIORITY NOT C NOR NUMERIC BB133 FP080050 14333 0020 00 0 14374 TRA BB294 YES. TEST PREV. FUNCTION FP080060 | 14334 0020 00 0 14340 TRA BB180-1 FP080070 | 14335 0074 00 4 10507 BB136 TSX T0010,4 BB136 FP080080 | 14336 -1 05727 3 00000 STR 0,3,3031 PRIORITY NOT C NOR NUMERIC BB137 FP080090 | 14337 -0625 00 0 14506 BB140 STL BAD30 SET EOF SW ON--NOT ZERO BB140 FP080100 14340 0520 00 0 14512 ZET BAE80 BB144 FP080110 | 14341 0020 60 0 14531 BB180 TRA* BAC83 TO PRIORITY CLEANUP BB180 FP080120 | 14342 -0625 00 0 14512 STL BAE80 BB190 FP080130 | 14343 0020 60 0 14401 TRA* BB330 TO FUNCTION CLEANUP BB200 FP080140 | 14344 -0500 00 0 04621 BB250 CAL CARD TEST FOR SAME FCTN BB250 FP080150 14345 0560 00 0 04622 LDQ CARD+1 BB260 FP080160 | 14346 -0320 00 0 10726 ANA BCD01 BB261 FP080170 | 14347 -0763 00 0 00014 LGL 12 BB270 FP080180 | 14350 -0340 00 0 14517 LAS BAF70 SEQ BB271 FP080190 | 14351 0020 00 0 14356 TRA *+5 BB272 FP080200 14352 0020 00 0 14354 TRA *+2 BB273 FP080210 | 14353 0020 00 0 14356 TRA *+3 BB274 FP080220 | 14354 -0500 00 0 14520 CAL BAF80 MTCH BB275 FP080230 | 14355 0020 00 0 14374 BB276 TRA BB294 BB276 FP080240 | 14356 -0763 00 0 00006 LGL 6 BB277 FP080250 14357 -0340 00 0 14513 LAS BAF10 00NOTB BB281 FP080260 | 14360 0020 00 0 14362 TRA *+2 BB282 FP080270 | 14361 0020 00 0 14371 TRA BB291 BB283 FP080280 | 14362 -0340 00 0 14515 LAS BAF30 00SELF BB284 FP080290 | 14363 0020 00 0 14365 TRA *+2 BB285 FP080300 14364 0020 00 0 14373 TRA BB293 BB286 FP080310 | 14365 -0340 00 0 14516 LAS BAF40 00NOTF BB287 FP080320 | 1 LISTING OF 12/01/64 PAGE 173 | MAIN2 (9PAC32). PRIORITY CONTROL | 14366 0020 00 0 14374 TRA BB294 BB288 FP080330 | 14367 0020 00 0 14373 TRA BB293 BB289 FP080340 | 14370 0020 00 0 14374 TRA BB294 BB290 FP080350 | 14371 -0500 00 0 14514 BB291 CAL BAF20 NOT=SEL BB291 FP080360 | 14372 0020 00 0 14374 TRA BB294 BB292 FP080370 14373 -0500 00 0 14470 BB293 CAL BAA07 SELF=NOTF=FLD BB293 FP080380 | 14374 -0340 00 0 14507 BB294 LAS BAE60 BB294 FP080390 | 14375 0020 00 0 14377 TRA *+2 BB300 FP080400 | 14376 0020 00 0 00000 BB310 TRA .. BB310 FP080410 | 14377 0602 00 0 14507 SLW BAE60 UPDATE FCTN AREA BB311 FP080420 14400 -0520 00 0 14512 NZT BAE80 BB320 FP080430 | 14401 0020 00 0 00000 BB330 TRA .. BB330 FP080440 | 14402 0600 00 0 14512 STZ BAE80 BB340 FP080450 | 14403 0774 00 4 00000 BB360 AXT ..,4 BB360 FP080460 | 14404 0774 00 2 00000 BB370 AXT ..,2 BB370 FP080470 14405 0500 00 4 77777 CLA -1,4 BB380 FP080480 | 14406 -0340 00 0 14507 LAS BAE60 BB390 FP080490 | 14407 0020 00 0 14411 TRA *+2 BB400 FP080500 | 14410 0020 00 0 14415 TRA *+5 BB410 FP080510 | 14411 1 00001 4 14412 TXI *+1,4,1 BB420 FP080520 14412 2 00001 2 14405 TIX *-5,2,1 BB430 FP080530 | 14413 0074 00 4 10507 TSX T0010,4 FP080540 | 14414 -1 00001 2 14307 STR BB010,2,1 INVALID FUNCTION BB440 FP080550 | 14415 0120 00 0 14417 TPL *+2 BB450 FP080560 | 14416 0020 00 0 14413 TRA *-3 INVALID FUNCTION BB460 FP080570 14417 -0760 00 0 00003 SSM BB470 FP080580 | 14420 0601 00 4 77777 STO -1,4 BB480 FP080590 | 14421 0774 00 4 00000 AXT 0,4 BB490 FP080600 | 14422 -0340 00 0 14464 LAS BAA03 BB500 FP080610 | 14423 0020 00 0 14425 TRA *+2 BB510 FP080620 14424 1 00005 4 14450 TXI BB710,4,5 TO CALC BB520 FP080630 | 14425 -0340 00 0 14465 LAS BAA04 BB530 FP080640 | 14426 0020 00 0 14430 TRA *+2 BB540 FP080650 | 14427 1 00004 4 14450 TXI BB710,4,4 TO MTCH BB550 FP080660 | 14430 -0340 00 0 14466 LAS BAA05 BB560 FP080670 14431 0020 00 0 14433 TRA *+2 BB570 FP080680 | 14432 1 00000 4 14446 TXI BB690,4,0 TO REPT BB580 FP080690 | 14433 -0340 00 0 14467 LAS BAA06 BB590 FP080700 | 14434 0020 00 0 14436 TRA *+2 BB600 FP080710 | 14435 1 00001 4 14450 TXI BB710,4,1 TO SELECT BB610 FP080720 14436 -0340 00 0 14470 LAS BAA07 BB620 FP080730 | 14437 0020 00 0 14441 TRA *+2 BB630 FP080740 | 14440 1 00000 4 14450 TXI BB710,4,0 TO FLD FUNCTI6N BB640 FP080750 | 14441 -0340 00 0 14471 LAS BAA08 BB650 FP080760 | 14442 0020 00 0 14444 TRA *+2 BB660 FP080770 14443 1 00000 4 14450 TXI BB710,4,0 TO VAL BB670 FP080780 | 14444 0074 00 4 10507 TSX T0010,4 FP080790 | 14445 -1 06666 3 00000 STR 0,3,3510 INVALID FUNCTION BB680 FP080800 | 14446 -0520 00 0 11376 BB690 NZT HORIZ BB690 FP080810 | 14447 1 00003 4 14450 TXI *+1,4,3 BB700 FP080820 14450 0634 00 4 14455 BB710 SXA BB760,4 BB710 FP080830 | 14451 -0520 00 0 11372 NZT UPDIC BB720 FP080840 | 14452 0020 00 0 14455 TRA BB760 BB730 FP080850 | 14453 0074 00 4 13056 TSX D2010,4 BB740 FP080860 | 14454 0 00000 0 00000 BB750 PZE .. BB750 FP080870 1 LISTING OF 12/01/64 PAGE 174 | MAIN2 (9PAC32). PRIORITY CONTROL | | 14455 0774 00 4 00000 BB760 AXT ..,4 BB760 FP080880 | 14456 -0500 00 4 14533 CAL BAC85,4 BB770 FP080890 14457 0621 00 0 14401 STA BB330 BB780 FP080900 | 14460 0400 00 0 11026 ADD NMBR1 BB790 FP080910 | 14461 0621 00 0 14376 STA BB310 BB800 FP080920 | 14462 0020 60 0 14376 TRA* BB310 FP080930 | 1 LISTING OF 12/01/64 PAGE 175 MAIN2 (9PAC32). PRIORITY CONTROL | | 14463 0 00000 0 00000 BAA02 PZE 0 SW- HARDWARE TABLE ENTRY NECESSARY IF NON/ZERO BAA02 FP080950 | 14464 000000000023 BAA03 BCI 1,00000C C FOR CALC BAA03 FP080960 | 14465 000044632330 BAA04 BCI 1,00MTCH BAA04 FP080970 14466 000051254763 BAA05 BCI 1,00REPT BAA05 FP080980 | 14467 000062254360 BAA06 BCI 1,00SEL BAA06 FP080990 | 14470 000026432460 BAA07 BCI 1,00FLD BAA07 FP081000 | 14471 000065214360 BAA08 BCI 1,00VAL BAA08 FP081010 | 14472 0 00000 0 00000 BAB01 PZE 0 PRIORITY NUMBER PREVIOUS BAB01 FP081020 14473 000000000065 BAB02 BCI 1,00000V BAB02 FP081030 | 14474 000000000064 BAB03 BCI 1,00000U BAB03 FP081040 | 14475 000000000062 BAB04 BCI 1,00000S BAB04 FP081050 | 14476 000000000030 BAB05 BCI 1,00000H BAB05 FP081060 | 14477 542545246060 BAB06 BCI 1,*END FP081070 14500 000000006060 BAB07 BCI 1,0000 BAB07 FP081080 | 14501 0 00000 0 00000 BAB08 PZE 0 PRIORITY TYPE PREVIOUS BAB08 FP081090 | 14502 600000000000 BAB09 BCI 1, 00000 BAB09 FP081100 | 14503 0 00000 0 00000 BAB13 PZE 0 FUNCTION PREVIOUS BAB13 FP081110 | 14504 0 00000 0 00000 BAB14 PZE 0 FILE NUMBER, TEMP STORAGE BAB14 FP081120 14505 0 00000 0 00000 BAD20 PZE PRIORITY SEQ. BAD20 FP081130 | 14506 0 00000 0 00000 BAD30 PZE EOF SW BAD30 FP081140 | 14507 0 00000 0 00000 BAE60 PZE FUNC PREV BAE60 FP081150 | 14510 0 00000 0 00252 BAE70 PZE 170 BAE70 FP081160 | 14511 0 00000 0 00253 BAE71 PZE 171 BAE71 FP081170 14512 0 00000 0 01747 BAE80 PZE 999 PRIORITY CHANGE SWITCH BAE80 FP081180 | 14513 000045466360 BAF10 BCI 1,00NOT BAF10 FP081190 | 14514 000062254360 BAF20 BCI 1,00SEL BAF20 FP081200 | 14515 000062254326 BAF30 BCI 1,00SELF BAF30 FP081210 | 14516 000045466326 BAF40 BCI 1,00NOTF BAF40 FP081220 14517 000000622550 BAF70 BCI 1,000SEQ BAF70 FP081230 | 14520 000044632330 BAF80 BCI 1,00MTCH BAF80 FP081240 | 1 LISTING OF 12/01/64 PAGE 176 | MAIN2 (9PAC32). PRIORITY CONTROL | 14521 +111000000000 BAC10 OCT 111000000000 FP081260 | 14522 +000111000000 BAC20 OCT 000111000000 FP081270 | 14523 +000100110000 BAC30 OCT 000100110000 FP081280 | 14524 +000000001110 BAC40 OCT 000000001110 FP081290 | 14525 0 00000 0 00000 BAC50 PZE 0 FP081300 14526 0 00000 0 15627 BAC80 PZE PROGM+1 FP081310 | 14527 0 00000 0 21730 BAC81 PZE VECAL+1 FP081320 | 14530 0 00000 0 24267 BAC82 PZE HOMCH+1 FP081330 | 14531 0 00000 0 27176 BAC83 PZE UDRPT+4 FP081340 | 14532 0 00000 0 30503 BAC84 PZE CLNHO+4 FP081350 14533 0 00000 0 32352 BAC85 PZE VESEL+4 FP081360 | 1 LISTING OF 12/01/64 PAGE 177 | MAIN2 (9PAC32). MISCELLANEOUS SUBROUTINES | | * FP081380 * FP081390 | * FP081400 | * FP081410 | * FP081420 | * UPDATE PRIORITY RUN-IN ROUTINE VS000 FP081430 * FP081440 | * FP081450 | 14534 -0500 00 0 04621 VS010 CAL CARD PRIORITY ENTRY SWITCH VS010 FP081460 | 14535 0634 00 4 15060 SXA VT680,4 SAVE FOUR TO ESCAPE VS011 FP081470 | 14536 -0320 00 0 11005 ANA BCD60 VS020 FP081480 14537 0771 00 0 00006 ARS 6 VS030 FP081490 | 14540 -0501 00 0 04401 ORA ADRES VS040 FP081500 | 14541 0774 00 4 00112 AXT OTZE-1,4 VS050 FP081510 | 14542 -0520 00 4 67460 NZT ONTRY+OTZE-1,4 VS060 FP081520 | 14543 0020 00 0 14547 TRA *+4 FP081530 14544 2 00001 4 14542 TIX *-2,4,1 VS080 FP081540 | 14545 0074 00 4 10507 TSX T0010,4 FP081550 | 14546 -1 12036 5 00000 STR 0,5,5150 EXCEED 75 VER+HOR (OR 15 HOR) VS090 FP081560 | 14547 0602 00 4 67460 SLW ONTRY+OTZE-1,4 VS100 FP081570 | 14550 0400 00 0 15062 ADD VSA10 ONE VS120 FP081580 14551 0621 00 0 04401 STA ADRES VS130 FP081590 | 14552 -0520 00 0 11376 NZT HORIZ TO EMIT HORIZ INPUT VS131 FP081600 | 14553 0020 00 0 14556 TRA VS170 VS140 FP081610 | 14554 0774 00 4 00011 AXT 9,4 UNIT NO 9 FOR HORIZ VS150 FP081620 | 14555 0020 00 0 14565 TRA VS240 VS160 FP081630 14556 -0500 00 0 04623 VS170 CAL CARD+2 UNIT FROM CARD FOR UPDATES VS170 FP081640 | 14557 -0320 00 0 10755 ANA BCD30 VS180 FP081650 | 14560 -0765 00 0 00022 LGR 18 VS190 FP081660 | 14561 0602 00 0 07751 SLW B1020 VS200 FP081670 | 14562 0074 00 4 07570 TSX B0010,4 VS210 FP081680 14563 -0500 00 0 07747 CAL B1000 VS220 FP081690 | 14564 0734 00 4 00000 PAX 0,4 VS230 FP081700 | 14565 0634 00 4 15063 VS240 SXA VSA30,4 VS240 FP081710 | 14566 -0634 00 4 15064 SXD VSA31,4 FP081720 | 14567 0520 00 4 11367 ZET HRDWR,4 FIRST ENTRY FP081730 14570 0020 00 0 15060 TRA VT680 NO--EXIT FP081740 | 14571 -0520 00 0 11376 NZT HORIZ YES--BUILD VS260 FP081750 | 14572 0020 00 0 14574 TRA VS350 VS270 FP081760 | 14573 0020 00 0 14606 TRA VS450 VS320 FP081770 | * VS340 FP081780 14574 0520 00 0 11372 VS350 ZET UPDIC IS IT UPDATE WITH DICT. VS350 FP081790 | 14575 0020 00 0 14613 TRA VS500 VS360 FP081800 | 14576 -0500 00 0 04623 CAL CARD+2 NO, GET LOGICAL RECORD LENGTH VS370 FP081810 | 14577 0560 00 0 04624 LDQ CARD+3 VS380 FP081820 | 14600 -0763 00 0 00006 LGL 6 VS390 FP081830 14601 -0320 00 0 10734 ANA BCD07 VS400 FP081840 | 14602 -0100 00 0 14607 TNZ VS460 VS410 FP081850 | 14603 -0500 00 0 14605 CAL VS440 VS420 FP081860 | 14604 0020 00 0 14607 TRA VS460 VS430 FP081870 | 14605 000000000104 VS440 BCI 1,000014 FP081880 14606 0754 00 0 00000 VS450 PXA 0,0 VS450 FP081890 | 14607 0602 00 0 07751 VS460 SLW B1020 VS460 FP081900 | 14610 0074 00 4 07570 TSX B0010,4 VS470 FP081910 | 14611 -0500 00 0 07747 CAL B1000 VS480 FP081920 | 1 LISTING OF 12/01/64 PAGE 178 MAIN2 (9PAC32). MISCELLANEOUS SUBROUTINES | | 14612 -0763 00 0 00022 LGL 18 VS490 FP081930 | 14613 -0760 00 0 00003 VS500 SSM VS500 FP081940 | 14614 0534 00 4 15063 LXA VSA30,4 VS510 FP081950 14615 0601 00 4 11367 STO HRDWR,4 VS520 FP081960 | 14616 -0500 00 0 04401 CAL ADRES SET SEQ BUFFER VS530 FP081970 | 14617 0621 00 4 11367 STA HRDWR,4 VS540 FP081980 | 14620 0400 00 0 11343 ADD SFLEN VS550 FP081990 | 14621 0400 00 0 15062 ADD VSA10 VS560 FP082000 14622 0621 00 0 14760 STA VT260 VS570 FP082010 | 14623 0621 00 0 14706 STA VT080 VS580 FP082020 | 14624 0400 00 0 11343 ADD SFLEN VS590 FP082030 | 14625 0400 00 0 15062 ADD VSA10 VS600 FP082040 | 14626 0621 00 0 14763 STA VT290 VS610 FP082050 14627 0400 00 0 15062 ADD VSA10 VS620 FP082060 | 14630 0621 00 0 04401 STA ADRES VS630 FP082070 | 14631 -0500 00 0 15063 VS699 CAL VSA30 GENERATE OBJ AXT VS699 FP082080 | 14632 -0501 00 0 14634 ORA *+2 VS700 FP082090 | 14633 0074 00 4 11413 TSX PRGMR,4 VS710 FP082100 14634 0774 00 1 00000 AXT 0,1 VS720 FP082110 | 14635 -0500 00 0 14637 CAL *+2 CAL VS730 FP082120 | 14636 0074 00 4 11413 TSX PRGMR,4 VS740 FP082130 | 14637 -0500 00 1 17310 CAL RECRD,1 VS750 FP082140 | 14640 -0500 00 0 14642 CAL *+2 STA VS760 FP082150 14641 0074 00 4 11413 TSX PRGMR,4 VS770 FP082160 | 14642 0621 00 0 22174 STA MRGLO VS780 FP082170 | 14643 -0500 00 0 14645 CAL *+2 STL VS790 FP082180 | 14644 0074 00 4 11413 TSX PRGMR,4 VS800 FP082190 | 14645 -0625 00 0 00000 STL 0 VS810 FP082200 14646 -0500 00 0 14650 CAL *+2 TSX VS830 FP082210 | 14647 0074 00 4 11413 TSX PRGMR,4 VS840 FP082220 | 14650 0074 00 4 22321 TSX SAVXR,4 VS850 FP082230 | 14651 0520 00 0 11376 ZET HORIZ TO EMIT OBJECT VS851 FP082240 | 14652 0020 00 0 14655 TRA *+3 VS852 FP082250 14653 0520 00 0 11372 ZET UPDIC VS853 FP082260 | 14654 0020 00 0 14660 TRA *+4 * VS859 FP082270 | 14655 -0500 00 0 14657 CAL *+2 * VS860 FP082280 | 14656 0020 00 0 14661 TRA *+3 * VS861 FP082290 | 14657 0 00000 0 16173 PZE INPTN VS862 FP082300 14660 -0500 00 0 14663 CAL *+3 TSX PSEUDO READ VS863 FP082310 | 14661 -0501 00 0 15064 ORA VSA31 VS864 FP082320 | 14662 0074 00 4 11413 TSX PRGMR,4 VS870 FP082330 | 14663 0 00000 0 16174 PZE INPUT VS880 FP082340 | 14664 -0500 00 0 14666 CAL *+2 TRA VS890 FP082350 14665 0074 00 4 11413 TSX PRGMR,4 VS900 FP082360 | 14666 0020 00 0 00000 TRA 0 VS910 FP082370 | 14667 -0500 00 0 15066 CAL VSA60 7 VS920 FP082380 | 14670 0074 00 4 11465 TSX PADDR,4 VS930 FP082390 | 14671 -0500 00 0 14673 CAL *+2 CLM VS940 FP082400 14672 0074 00 4 11413 TSX PRGMR,4 VS950 FP082410 | 14673 0760 00 0 00000 CLM VS960 FP082420 | 14674 -0500 00 0 14676 CAL *+2 COM VS970 FP082430 | 14675 0074 00 4 11413 TSX PRGMR,4 VS980 FP082440 | 14676 0760 00 0 00006 COM VS990 FP082450 14677 -0500 00 0 11343 CAL SFLEN AXT VT010 FP082460 | 14700 0400 00 0 15062 ADD VSA10 1 VT020 FP082470 | 1 LISTING OF 12/01/64 PAGE 179 | MAIN2 (9PAC32). MISCELLANEOUS SUBROUTINES | 14701 -0501 00 0 14703 ORA *+2 VT030 FP082480 | 14702 0074 00 4 11413 TSX PRGMR,4 VT040 FP082490 | 14703 0774 00 4 00000 AXT 0,4 VT050 FP082500 | 14704 -0500 00 0 14706 CAL *+2 SLW VT060 FP082510 | 14705 0074 00 4 11413 TSX PRGMR,4 VT070 FP082520 14706 0602 00 4 00000 VT080 SLW 0,4 VT080 FP082530 | 14707 -0500 00 0 14711 CAL *+2 TIX VT090 FP082540 | 14710 0074 00 4 11413 TSX PRGMR,4 VT100 FP082550 | 14711 2 00001 4 00000 TIX 0,4,1 VT110 FP082560 | 14712 0502 00 0 15062 CLS VSA10 1 VT120 FP082570 14713 0074 00 4 11465 TSX PADDR,4 VT130 FP082580 | 14714 -0500 00 0 11341 CAL SFPRV NZT VT1310FP082590 | 14715 0402 00 0 15062 SUB VSA10 1 VT1320FP082600 | 14716 -0501 00 0 14720 ORA *+2 VT1330FP082610 | 14717 0074 00 4 11413 TSX PRGMR,4 VT1340FP082620 14720 -0520 00 0 00000 NZT 0 VT1350FP082630 | 14721 -0500 00 0 14723 CAL *+2 TRA VT1360FP082640 | 14722 0074 00 4 11413 TSX PRGMR,4 VT1370FP082650 | 14723 0020 00 0 00000 TRA 0 VT1380FP082660 | 14724 -0500 00 0 15067 CAL VSA80 2 VT1390FP082670 14725 0074 00 4 11477 TSX GADDR,4 VT1391FP082680 | 14726 -0500 00 0 14730 CAL *+2 TRA VT140 FP082690 | 14727 0074 00 4 11413 TSX PRGMR,4 VT150 FP082700 | 14730 0020 00 0 22221 TRA MGRCD VT160 FP082710 | 14731 -0500 00 0 14733 CAL *+2 VT165 FP082720 14732 0074 00 4 11413 TSX PRGMR,4 VT166 FP082730 | 14733 0534 00 4 00000 LXA 0,4 VT167 FP082740 | 14734 -0500 00 0 11423 CAL F0080 VT170 FP082750 | 14735 -0320 00 0 10730 ANA BCD03 VT171 FP082760 | 14736 0402 00 0 11026 SUB NMBR1 VT172 FP082770 14737 -0760 00 0 00003 SSM VT173 FP082780 | 14740 0074 00 4 11465 TSX PADDR,4 VT174 FP082790 | 14741 -0500 00 0 14743 CAL *+2 VT177 FP082800 | 14742 0074 00 4 11413 TSX PRGMR,4 VT178 FP082810 | 14743 0520 00 4 17404 ZET BKSPT,4 VT179 FP082820 14744 -0500 00 0 14746 CAL *+2 VT182 FP082830 | 14745 0074 00 4 11413 TSX PRGMR,4 VT183 FP082840 | 14746 0020 00 0 00000 TRA 0 VT184 FP082850 | 14747 -0500 00 0 11032 CAL NMBR5 VT187 FP082860 | 14750 0074 00 4 11465 TSX PADDR,4 VT188 FP082870 14751 -0500 00 0 11343 CAL SFLEN AXT VT190 FP082880 | 14752 0400 00 0 15062 ADD VSA10 VT200 FP082890 | 14753 -0501 00 0 14755 ORA *+2 VT210 FP082900 | 14754 0074 00 4 11413 TSX PRGMR,4 VT220 FP082910 | 14755 0774 00 4 00000 AXT 0,4 VT230 FP082920 14756 -0500 00 0 14760 CAL *+2 CAL VT240 FP082930 | 14757 0074 00 4 11413 TSX PRGMR,4 VT250 FP082940 | 14760 -0500 00 4 00000 VT260 CAL 0,4 VT260 FP082950 | 14761 -0500 00 0 14763 CAL *+2 SLW VT270 FP082960 | 14762 0074 00 4 11413 TSX PRGMR,4 VT280 FP082970 14763 0602 00 4 00000 VT290 SLW 0,4 VT290 FP082980 | 14764 -0500 00 0 14766 CAL *+2 TIX VT300 FP082990 | 14765 0074 00 4 11413 TSX PRGMR,4 VT310 FP083000 | 14766 2 00001 4 00000 TIX 0,4,1 VT320 FP083010 | 14767 0502 00 0 15067 CLS VSA80 VT330 FP083020 1 LISTING OF 12/01/64 PAGE 180 | MAIN2 (9PAC32). MISCELLANEOUS SUBROUTINES | | 14770 0074 00 4 11465 TSX PADDR,4 VT340 FP083030 | 14771 -0500 00 0 15063 CAL VSA30 GEN OBJ-AX00 VT341 FP083040 14772 -0501 00 0 14774 ORA *+2 VT342 FP083050 | 14773 0074 00 4 11413 TSX PRGMR,4 VT343 FP083060 | 14774 0774 00 1 00000 AXT 0,1 VT344 FP083070 | 14775 -0500 00 0 14777 CAL *+2 CAL VT345 FP083080 | 14776 0074 00 4 11413 TSX PRGMR,4 VT346 FP083090 14777 -0500 00 1 17310 CAL RECRD,1 VT347 FP083100 | 15000 -0500 00 0 15002 CAL *+2 VT3474FP083110 | 15001 0074 00 4 11413 TSX PRGMR,4 VT3475FP083120 | 15002 0621 00 0 22174 STA MRGLO VT3476FP083130 | 15003 -0500 00 0 15005 CAL *+2 PAC VT348 FP083140 15004 0074 00 4 11413 TSX PRGMR,4 VT349 FP083150 | 15005 0737 00 1 00000 PAC 0,1 VT350 FP083160 | 15006 -0500 00 0 15063 CAL VSA30 DUMP OBJ PGM VT351 FP083170 | 15007 0767 00 0 00032 ALS 26 VT360 FP083180 | 15010 -0501 00 0 15070 ORA VSA90 VT370 FP083190 15011 0074 00 4 11547 TSX M0010,4 VT380 FP083200 | 15012 -0500 00 0 15063 CAL VSA30 VT3805FP083210 | 15013 -0501 00 0 15015 ORA *+2 VT3810FP083220 | 15014 0074 00 4 11413 TSX PRGMR,4 VT3815FP083230 | 15015 0774 00 4 00000 AXT ..,4 VT3820FP083240 15016 -0500 00 0 15020 CAL *+2 VT3825FP083250 | 15017 0074 00 4 11413 TSX PRGMR,4 VT3830FP083260 | 15020 0500 00 4 17671 CLA NSLCT,4 VT3835FP083270 | 15021 -0500 00 0 15023 CAL *+2 VT3840FP083280 | 15022 0074 00 4 11413 TSX PRGMR,4 VT3845FP083290 15023 0400 00 0 04673 ADD ONE VT3850FP083300 | 15024 -0500 00 0 15026 CAL *+2 VT3855FP083310 | 15025 0074 00 4 11413 TSX PRGMR,4 VT3860FP083320 | 15026 0601 00 4 17671 STO NSLCT,4 VT3875FP083330 | 15027 -0500 00 0 15031 CAL *+2 TRA VT390 FP083340 15030 0074 00 4 11413 TSX PRGMR,4 VT400 FP083350 | 15031 0020 00 0 00004 TRA 4 VT410 FP083360 | 15032 -0500 00 0 15063 CAL VSA30 VT420 FP083370 | 15033 0767 00 0 00016 ALS 14 VT430 FP083380 | 15034 -0501 00 0 15071 ORA VSB10 VT440 FP083390 15035 0074 00 4 11507 TSX YADDR,4 VT450 FP083400 | 15036 -0500 00 0 11341 CAL SFPRV NZT VT460 FP083410 | 15037 0402 00 0 15062 SUB VSA10 1 VT470 FP083420 | 15040 -0501 00 0 15042 ORA *+2 VT480 FP083430 | 15041 0074 00 4 11413 TSX PRGMR,4 VT490 FP083440 15042 -0520 00 0 00000 NZT 0 VT500 FP083450 | 15043 -0500 00 0 15045 CAL *+2 TRA VT510 FP083460 | 15044 0074 00 4 11413 TSX PRGMR,4 VT520 FP083470 | 15045 0020 00 0 00000 TRA 0 VT530 FP083480 | 15046 -0500 00 0 15067 CAL VSA80 VT540 FP083490 15047 0074 00 4 11477 TSX GADDR,4 VT550 FP083500 | 15050 -0500 00 0 15052 CAL *+2 TRA VT560 FP083510 | 15051 0074 00 4 11413 TSX PRGMR,4 VT570 FP083520 | 15052 0020 00 0 22221 TRA MGRCD VT580 FP083530 | 15053 -0500 00 0 15063 CAL VSA30 DUMP OBJECT PGM VT610 FP083540 15054 0767 00 0 00032 ALS 26 VT620 FP083550 | 15055 -0501 00 0 15072 ORA VSB20 VT630 FP083560 | 15056 0074 00 4 11547 TSX M0010,4 VT640 FP083570 | 1 LISTING OF 12/01/64 PAGE 181 | MAIN2 (9PAC32). MISCELLANEOUS SUBROUTINES | 15057 0020 00 0 15060 TRA VT680 VT650 FP083580 | 15060 0774 00 4 00000 VT680 AXT 0,4 VT680 FP083590 | 15061 0020 00 4 00001 TRA 1,4 VT690 FP083600 | 15062 0 00000 0 00001 VSA10 PZE 1 VSA10 FP083610 15063 0 00000 0 00000 VSA30 PZE STORAGE FOR HRDWR TAG VSA30 FP083620 | 15064 0 00000 0 00000 VSA31 PZE 0 VSA31 FP083630 | 15065 +006000000000 VSA51 OCT 006000000000 VSA51 FP083640 | 15066 0 00000 0 00011 VSA60 PZE 9 VSA60 FP083650 | 15067 0 00000 0 00002 VSA80 PZE 2 VTA80 FP083660 15070 +160000000000 VSA90 OCT 160000000000 VTA90 FP083670 | 15071 +000016000000 VSB10 OCT 16000000 VTB10 FP083680 | 15072 +160377000000 VSB20 OCT 160377000000 VTB20 FP083690 | * FP083700 | 1 LISTING OF 12/01/64 PAGE 182 MAIN2 (9PAC32). MISCELLANEOUS SUBROUTINES | | * FP083720 | * FP083730 | * FP083740 * GENERATE REJECT AND DICTIONARY VV000 FP083750 | * FP083760 | * FP083770 | 15073 0634 00 4 15512 VV010 SXA VVB00,4 SAVE 4 VV010 FP083780 | 15074 0500 00 4 00001 CLA 1,4 VV020 FP083790 15075 0120 00 0 15077 TPL *+2 VV021 FP083800 | 15076 -0625 00 0 15543 STL VVC35 MINUS MEANS VERTICAL REJECT VV022 FP083810 | 15077 0760 00 0 00003 SSP VV023 FP083820 | 15100 0602 00 0 15513 SLW VVB10 VV030 FP083830 | 15101 0400 00 0 15516 ADD VVB40 5 VV031 FP083840 15102 0602 00 0 10127 SLW B6000 BIN-TO-BCD VV032 FP083850 | 15103 -0500 00 0 67172 CAL HEADR VV040 FP083860 | 15104 -0320 00 0 10765 ANA BCD40 VV041 FP083870 | 15105 -0100 00 0 15112 TNZ *+5 VV042 FP083880 | 15106 -0500 00 0 67172 CAL HEADR VV043 FP083890 15107 -0320 00 0 11005 ANA BCD60 VV044 FP083900 | 15110 -0501 00 0 15522 ORA VVB71 OCT 120000000000 VV045 FP083910 | 15111 0020 00 0 15114 TRA *+3 VV046 FP083920 | 15112 -0500 00 0 67172 CAL HEADR VV047 FP083930 | 15113 -0320 00 0 11005 ANA BCD60 VV050 FP083940 15114 -0501 00 0 15514 ORA VVB20 BCD PLUS ZONING VV060 FP083950 | 15115 0602 00 0 15515 SLW VVB30 RECORD TYPE VV070 FP083960 | 15116 0074 00 4 10070 TSX B5010,4 BIN TO BCD VV080 FP083970 | 15117 -0500 00 0 15515 CAL VVB30 VV090 FP083980 | 15120 -0501 00 0 10131 ORA B6020 VV100 FP083990 15121 0560 00 0 15507 LDQ VVA72 CLEAR MQ VV101 FP084000 | 15122 -0765 00 0 00022 LGR 18 VV110 FP084010 | 15123 0602 00 0 15426 SLW VVA02 * REC VV120 FP084020 | 15124 -0130 00 0 00000 XCL VV130 FP084030 | 15125 -0501 00 0 15510 ORA VVA73 VV140 FP084040 15126 0602 00 0 15427 SLW VVA03 E REC VV150 FP084050 | 15127 -0500 00 0 10765 CAL BCD40 INSERT FILE SERIAL VV160 FP084060 | 15130 0320 00 0 15425 ANS VVA01 VV170 FP084070 | 15131 -0500 00 0 04216 CAL FIL08+6 VV180 FP084080 | 15132 -0320 00 0 10764 ANA BCD37 VV190 FP084090 15133 -0602 00 0 15425 ORS VVA01 VV200 FP084100 | 15134 0560 00 0 15513 LDQ VVB10 VV220 FP084110 | 15135 0200 00 0 15542 MPY VVC30 36 VV225 FP084120 | 15136 -0600 00 0 10127 STQ B6000 VV230 FP084130 | 15137 0074 00 4 10070 TSX B5010,4 VV240 FP084140 15140 -0500 00 0 10131 CAL B6020 VV250 FP084150 | 15141 0560 00 0 15507 LDQ VVA72 ZERO VV260 FP084160 | 15142 -0765 00 0 00006 LGR 6 VV270 FP084170 | 15143 -0501 00 0 15504 ORA VVA62 VV280 FP084180 | 15144 0602 00 0 15466 SLW VVA52 VV290 FP084190 15145 -0130 00 0 00000 XCL VV300 FP084200 | 15146 -0501 00 0 15505 ORA VVA63 VV310 FP084210 | 15147 0602 00 0 15467 SLW VVA53 VV320 FP084220 | 15150 -0500 00 0 15515 CAL VVB30 REC TYPE LEFT JUSTIFIED VV330 FP084230 | 15151 0771 00 0 00006 ARS 6 VV340 FP084240 15152 -0501 00 0 15503 ORA VVA61 VV350 FP084250 | 15153 0602 00 0 15433 SLW VVA11 VV360 FP084260 | 1 LISTING OF 12/01/64 PAGE 183 | MAIN2 (9PAC32). MISCELLANEOUS SUBROUTINES | 15154 0602 00 0 15441 SLW VVA21 VV370 FP084270 | 15155 0602 00 0 15447 SLW VVA31 VV380 FP084280 | 15156 0602 00 0 15456 SLW VVA41 VV390 FP084290 | 15157 0602 00 0 15465 SLW VVA51 VV400 FP084300 | 15160 0774 00 1 00006 AXT 6,1 VV705 FP084310 15161 0074 00 4 05255 VV710 TSX RD(WR),4 WRITE DICTIONARY LABELS VV710 FP084320 | 15162 -0 15525 0 00010 VV712 FOR 8,,VVC01 VV712 FP084330 | 15163 0020 00 0 15165 TRA *+2 VV715 FP084340 | 15164 0074 00 4 06557 TSX SCEOT,4 FP084350 | 15165 -0534 00 4 15162 LXD VV712,4 VV722 FP084360 15166 -2 00001 1 15172 TNX *+4,1,1 LOOP TO WRITE SIX LABELS VV725 FP084370 | 15167 1 00002 4 15170 TXI *+1,4,2 CHANGE LOCATION OF I-O COMMANDS VV730 FP084380 | 15170 -0634 00 4 15162 SXD VV712,4 VV732 FP084390 | 15171 0020 00 0 15161 TRA VV710 VV735 FP084400 | 15172 1 77766 4 15173 TXI *+1,4,-10 RESTORE I-O STRING TO VVC01 VV740 FP084410 15173 -0634 00 4 15162 SXD VV712,4 VV742 FP084420 | * GENERATE BALANCE OF REJECT PACKAGE VU079 FP084430 | 15174 -0500 00 0 15515 CAL VVB30 REC TYPE VU080 FP084440 | 15175 0074 00 4 11426 TSX STORR,4 VU090 FP084450 | 15176 -0500 00 0 15507 CAL VVA72 ZERO WORD FOR FIELD NO VU100 FP084460 15177 0074 00 4 11426 TSX STORR,4 VU110 FP084470 | 15200 -0500 00 0 15507 CAL VVA72 ZERO WD FOR LFT MSG VU120 FP084480 | 15201 0074 00 4 11426 TSX STORR,4 VU130 FP084490 | 15202 -0500 00 0 15204 CAL *+2 CAL VU140 FP084500 | 15203 0074 00 4 11413 TSX PRGMR,4 VU150 FP084510 15204 -0500 00 4 00001 CAL 1,4 VU160 FP084520 | 15205 -0500 00 0 15207 CAL *+2 SLW VU161 FP084530 | 15206 0074 00 4 11413 TSX PRGMR,4 VU162 FP084540 | 15207 0602 00 0 00000 SLW 0 VU163 FP084550 | 15210 0074 00 4 11454 TSX SADDR,4 VU170 FP084560 15211 -0500 00 0 15507 CAL VVA72 ZERO WD FOR RHT MSG VU180 FP084570 | 15212 0074 00 4 11426 TSX STORR,4 VU190 FP084580 | 15213 -0500 00 0 15215 CAL *+2 CAL VU200 FP084590 | 15214 0074 00 4 11413 TSX PRGMR,4 VU210 FP084600 | 15215 -0500 00 4 00002 CAL 2,4 VU220 FP084610 15216 -0500 00 0 15220 CAL *+2 SLW VU221 FP084620 | 15217 0074 00 4 11413 TSX PRGMR,4 VU222 FP084630 | 15220 0602 00 0 00000 SLW 0 VU223 FP084640 | 15221 0074 00 4 11454 TSX SADDR,4 VU230 FP084650 | 15222 -0500 00 0 15507 CAL VVA72 ZERO WORD FOR BINARY VALUE VU240 FP084660 15223 0074 00 4 11426 TSX STORR,4 VU250 FP084670 | 15224 -0500 00 0 15226 CAL *+2 SXA-SAVE FOUR TO ESCAPE VU260 FP084680 | 15225 0074 00 4 11413 TSX PRGMR,4 VU270 FP084690 | 15226 0634 00 4 00000 SXA 0,4 VU280 FP084700 | 15227 -0500 00 0 15517 CAL VVB50 19 VU290 FP084710 15230 0520 00 0 15543 ZET VVC35 VU292 FP084720 | 15231 0400 00 0 11027 ADD NMBR2 IF VERTICAL VU295 FP084730 | 15232 0074 00 4 11465 TSX PADDR,4 VU300 FP084740 | 15233 -0500 00 0 15235 CAL *+2 LXA VU310 FP084750 | 15234 0074 00 4 11413 TSX PRGMR,4 VU320 FP084760 15235 0534 00 4 17300 LXA CHLOC,4 VU330 FP084770 | 15236 -0500 00 0 15240 CAL *+2 TXI VU340 FP084780 | 15237 0074 00 4 11413 TSX PRGMR,4 VU350 FP084790 | 15240 1 00005 4 00000 TXI 0,4,5 VU360 FP084800 | 15241 -0500 00 0 15520 CAL VVB60 1 VU370 FP084810 1 LISTING OF 12/01/64 PAGE 184 | MAIN2 (9PAC32). MISCELLANEOUS SUBROUTINES | | 15242 0074 00 4 11465 TSX PADDR,4 VU380 FP084820 | 15243 -0500 00 0 15245 CAL *+2 SXA VU390 FP084830 15244 0074 00 4 11413 TSX PRGMR,4 VU400 FP084840 | 15245 0634 00 4 00000 SXA 0,4 VU410 FP084850 | 15246 -0500 00 0 15521 CAL VVB70 8 VU420 FP084860 | 15247 0074 00 4 11465 TSX PADDR,4 VU430 FP084870 | 15250 -0500 00 0 15513 CAL VVB10 FLD FIVE SIZE VU440 FP084880 15251 0767 00 0 00022 ALS 18 VU450 FP084890 | 15252 -0501 00 0 15254 ORA *+2 TXI VU460 FP084900 | 15253 0074 00 4 11413 TSX PRGMR,4 VU470 FP084910 | 15254 1 00000 4 00000 TXI 0,4,0 VU480 FP084920 | 15255 -0500 00 0 15520 CAL VVB60 1 VU490 FP084930 15256 0074 00 4 11465 TSX PADDR,4 VU500 FP084940 | 15257 -0500 00 0 15261 CAL *+2 SXA VU510 FP084950 | 15260 0074 00 4 11413 TSX PRGMR,4 VU520 FP084960 | 15261 0634 00 4 00000 SXA 0,4 VU530 FP084970 | 15262 -0500 00 0 15523 CAL VVB80 10 VU540 FP084980 15263 0520 00 0 15543 ZET VVC35 VU545 FP084990 | 15264 0400 00 0 11027 ADD NMBR2 IF VERTICAL VU547 FP085000 | 15265 0074 00 4 11465 TSX PADDR,4 VU549 FP085010 | 15266 -0520 00 0 15543 NZT VVC35 VU551 FP085020 | 15267 0020 00 0 15274 TRA VU560 IF NOT VERTICAL VU553 FP085030 15270 -0500 00 0 11342 CAL SFCUR VU554 FP085040 | 15271 -0501 00 0 15273 ORA *+2 VU555 FP085050 | 15272 0020 00 0 15300 TRA VU570 VU556 FP085060 | 15273 0774 00 4 00000 AXT 0,4 VU557 FP085070 | 15274 0774 00 4 17310 VU560 AXT INLOC,4 VU560 FP085080 15275 0754 00 4 00000 PXA 0,4 VU561 FP085090 | 15276 0402 00 0 15063 SUB VSA30 VU562 FP085100 | 15277 -0501 00 0 15301 ORA *+2 VU563 FP085110 | 15300 0074 00 4 11413 VU570 TSX PRGMR,4 VU570 FP085120 | 15301 0534 00 4 00000 LXA 0,4 VU580 FP085130 15302 -0500 00 0 15513 CAL VVB10 FLD FIVE SIZW VU590 FP085140 | 15303 0767 00 0 00022 ALS 18 VU600 FP085150 | 15304 -0501 00 0 15306 ORA *+2 TXI VU610 FP085160 | 15305 0074 00 4 11413 TSX PRGMR,4 VU620 FP085170 | 15306 1 00000 4 00000 TXI 0,4,0 VU630 FP085180 15307 -0500 00 0 15520 CAL VVB60 VU621 FP085190 | 15310 0074 00 4 11465 TSX PADDR,4 VU622 FP085200 | 15311 -0500 00 0 15313 CAL *+2 SXA VU640 FP085210 | 15312 0074 00 4 11413 TSX PRGMR,4 VU650 FP085220 | 15313 0634 00 4 00000 SXA 0,4 VU660 FP085230 15314 -0500 00 0 15524 CAL VVB90 6 VU670 FP085240 | 15315 0074 00 4 11465 TSX PADDR,4 VU680 FP085250 | 15316 -0500 00 0 15507 CAL VVA72 ZERO WORD FOR PACING VU690 FP085260 | 15317 0074 00 4 11426 TSX STORR,4 VU700 FP085270 | 15320 -0500 00 0 15322 CAL *+2 AXT VU710 FP085280 15321 0074 00 4 11413 TSX PRGMR,4 VU720 FP085290 | 15322 0774 00 4 00005 AXT 5,4 VU730 FP085300 | 15323 -0500 00 0 15325 CAL *+2 CAL VU740 FP085310 | 15324 0074 00 4 11413 TSX PRGMR,4 VU750 FP085320 | 15325 -0500 00 4 00000 CAL 0,4 VU760 FP085330 15326 0074 00 4 11454 TSX SADDR,4 VU770 FP085340 | 15327 -0500 00 0 15331 CAL *+2 SLW VU780 FP085350 | 15330 0074 00 4 11413 TSX PRGMR,4 VU790 FP085360 | 1 LISTING OF 12/01/64 PAGE 185 | MAIN2 (9PAC32). MISCELLANEOUS SUBROUTINES | 15331 0602 00 4 00000 SLW 0,4 VU800 FP085370 | 15332 -0500 00 0 15334 CAL *+2 TIX VU810 FP085380 | 15333 0074 00 4 11413 TSX PRGMR,4 VU820 FP085390 | 15334 2 00001 4 00000 TIX 0,4,1 VU830 FP085400 15335 0502 00 0 15540 CLS VVC10 2 VU840 FP085410 | 15336 0074 00 4 11465 TSX PADDR,4 VU850 FP085420 | 15337 -0500 00 0 15513 CAL VVB10 FLD FIVE SIZE VU860 FP085430 | 15340 -0501 00 0 15342 ORA *+2 AXT VU870 FP085440 | 15341 0074 00 4 11413 TSX PRGMR,4 VU880 FP085450 15342 0774 00 4 00000 AXT 0,4 VU890 FP085460 | 15343 -0500 00 0 15345 CAL *+2 CAL VU900 FP085470 | 15344 0074 00 4 11413 TSX PRGMR,4 VU910 FP085480 | 15345 -0500 00 4 00000 CAL 0,4 VU920 FP085490 | 15346 -0520 00 0 15543 NZT VVC35 VU921 FP085500 15347 0020 00 0 15356 TRA *+7 IF NOT VERTICAL VU922 FP085510 | 15350 -0500 00 0 15352 CAL *+2 VU923 FP085520 | 15351 0074 00 4 11413 TSX PRGMR,4 VU924 FP085530 | 15352 0074 00 4 20777 TSX TO709,4 VU925 FP085540 | 15353 -0500 00 0 15355 CAL *+2 VU926 FP085550 15354 0074 00 4 11413 TSX PRGMR,4 VU927 FP085560 | 15355 0 00000 0 00006 PZE 6 VU928 FP085570 | 15356 -0500 00 0 15360 CAL *+2 SLW VU930 FP085580 | 15357 0074 00 4 11413 TSX PRGMR,4 VU940 FP085590 | 15360 0602 00 4 00000 SLW 0,4 VU950 FP085600 15361 -0500 00 0 15363 CAL *+2 TIX VU960 FP085610 | 15362 0074 00 4 11413 TSX PRGMR,4 VU970 FP085620 | 15363 2 00001 4 00000 TIX 0,4,1 VU980 FP085630 | 15364 0502 00 0 15540 CLS VVC10 VU990 FP085640 | 15365 0520 00 0 15543 ZET VVC35 VU991 FP085650 15366 0502 00 0 11031 CLS NMBR4 IF VERTICAL VU992 FP085660 | 15367 0600 00 0 15543 STZ VVC35 VU993 FP085670 | 15370 0074 00 4 11465 TSX PADDR,4 VW010 FP085680 | 15371 -0500 00 0 15373 CAL *+2 AXT-PSEVDO UNIT VW020 FP085690 | 15372 0074 00 4 11413 TSX PRGMR,4 VW030 FP085700 15373 0074 00 4 22721 TSX Y7010,4 VW040 FP085710 | 15374 -0500 00 0 15376 CAL *+2 TSX-PSEUDO WRITE VW050 FP085720 | 15375 0074 00 4 11413 TSX PRGMR,4 VW060 FP085730 | 15376 -2 00010 0 16555 SIX OUTPT,0,8 VW070 FP085740 | 15377 -0500 00 0 15401 CAL *+2 STZ VW071 FP085750 15400 0074 00 4 11413 TSX PRGMR,4 VW072 FP085760 | 15401 0600 00 0 00000 STZ 0 VW073 FP085770 | 15402 -0500 00 0 15540 CAL VVC10 2 VW074 FP085780 | 15403 0074 00 4 11455 TSX SADDR+1,4 VW075 FP085790 | 15404 -0500 00 0 15406 CAL *+2 STZ VW076 FP085800 15405 0074 00 4 11413 TSX PRGMR,4 VW077 FP085810 | 15406 0600 00 0 00000 STZ 0 VW078 FP085820 | 15407 -0500 00 0 15516 CAL VVB40 5 VW079 FP085830 | 15410 0074 00 4 11455 TSX SADDR+1,4 VW080 FP085840 | 15411 -0500 00 0 15413 CAL *+2 AXT VW089 FP085850 15412 0074 00 4 11413 TSX PRGMR,4 VW090 FP085860 | 15413 0774 00 4 00000 AXT 0,4 VW100 FP085870 | 15414 -0500 00 0 15416 CAL *+2 TRA-ESCAPE VW110 FP085880 | 15415 0074 00 4 11413 TSX PRGMR,4 VW120 FP085890 | 15416 0020 00 4 00003 TRA 3,4 VW130 FP085900 15417 -0500 00 0 67172 CAL HEADR VW140 FP085910 | 1 LISTING OF 12/01/64 PAGE 186 | MAIN2 (9PAC32). MISCELLANEOUS SUBROUTINES | | 15420 -0320 00 0 11005 ANA BCD60 VW150 FP085920 15421 0771 00 0 00006 ARS 6 VW160 FP085930 | 15422 -0501 00 0 15541 ORA VVC20 VW170 FP085940 | 15423 0074 00 4 11547 TSX M0010,4 VW180 FP085950 | 15424 0020 00 0 14043 TRA BA010 VW190 FP085960 | * PUT THIS REJECT DICTIONARY IN MAIN MEMORY VVA00 FP085970 15425 250000000000 VVA01 BCI 1,E00000 VVA01 FP085980 | 15426 000000000000 VVA02 BCI 1,000000 VVA02 FP085990 | 15427 000000606060 VVA03 BCI 4,000 REJECT RECORDS VVA03 FP086000 | 15430 605125412523 | 15431 636051252346 15432 512462606060 | 15433 260000000000 VVA11 BCI 6,F000001100036 000000RECORD TYPE VVA11 FP086010 | 15434 010100000003 | 15435 066060606000 | 15436 000000000051 15437 252346512460 | 15440 637047256060 | 15441 260000000000 VVA21 BCI 6,F000002100024 000112FIELD NUMBER VVA21 FP086020 | 15442 020100000002 | 15443 046060606000 15444 000001010226 | 15445 312543246045 | 15446 644422255160 | 15447 260000000000 VVA31 BCI 7,F000003100072 000200LITERAL REASON VVA31 FP086030 | 15450 030100000007 15451 026060606000 | 15452 000002000043 | 15453 316325512143 | 15454 605125216246 | 15455 456060606060 15456 260000000000 VVA41 BCI 7,F000004001035 000400BINARY SF VALUE VVA41 FP086040 | 15457 040000010003 | 15460 056060606000 | 15461 000004000022 | 15462 314521517060 15463 622660652143 | 15464 642560606060 | 15465 260000000000 VVA51 BCI 1,F00000 VVA51 FP086050 | 15466 050100000000 VVA52 BCI 1,510000 VVA52 FP086060 | 15467 006060606000 VVA53 BCI 4,0 000500CHANGE RECORD VVA53 FP086070 15470 000005000023 | 15471 302145272560 | 15472 512523465124 | 15473 606060606060 VVA55 BCI 8, VVA55 FP086080 | 15474 606060606060 15475 606060606060 | 15476 606060606060 | 15477 606060606060 | 15500 606060606060 | 15501 606060606060 15502 606060606060 | 15503 260000000000 VVA61 BCI 1,F00000 TO MODIFY F REC VVA61 FP086090 | 15504 050100000000 VVA62 BCI 1,510000 * VVA62 FP086100 | 15505 006060606000 VVA63 BCI 1,0 0 * VVA63 FP086110 | 1 LISTING OF 12/01/64 PAGE 187 MAIN2 (9PAC32). MISCELLANEOUS SUBROUTINES | | 15506 250000000000 VVA71 BCI 1,E00000 TO MODIFY E REC VVA71 FP086120 | 15507 000000000000 VVA72 BCI 1,000000 * VVA72 FP086130 | 15510 000000606060 VVA73 BCI 1,000 * VVA73 FP086140 15511 002210000000 VVA74 BCI 1,0B8000 VVA74 FP086150 | 15512 0 00000 0 00000 VVB00 PZE 0 SAVE IR FOUR VVB00 FP086160 | 15513 0 00000 0 00000 VVB10 PZE 0 FIELD FIVE SIZE BINARY VVB10 FP086170 | 15514 +200000000000 VVB20 OCT 200000000000 VVB20 FP086180 | 15515 0 00000 0 00000 VVB30 PZE 0 RECORD TYPE FOR REJECT RECOVVB30 FP086190 15516 0 00000 0 00005 VVB40 PZE 5 VVB40 FP086200 | 15517 0 00000 0 00025 VVB50 PZE 21 VVB50 FP086210 | 15520 0 00000 0 00001 VVB60 PZE 1 VVB60 FP086220 | 15521 0 00000 0 00010 VVB70 PZE 8 VVB70 FP086230 | 15522 +120000000000 VVB71 OCT 120000000000 VVB71 FP086240 15523 0 00000 0 00012 VVB80 PZE 10 VVB80 FP086250 | 15524 0 00000 0 00006 VVB90 PZE 6 VVB90 FP086260 | 15525 -0 00006 0 15425 VVC01 IOCP VVA01,,6 I-O LIST FOR REJECT DICTIONARY VVA01 FP086270 | 15526 3 00010 0 15473 IORT VVA55,,8 CONTINUOUS STRING IS NOT USED VVA011FP086280 | 15527 -0 00006 0 15433 IOCP VVA11,,6 BECAUSE IOEX IS NOT ORIENTED TO VVA02 FP086290 15530 3 00010 0 15473 IORT VVA55,,8 HANDLE MORE THAN ONE RECORD AT A VVA201FP086300 | 15531 -0 00006 0 15441 IOCP VVA21,,6 TIME VVA03 FP086310 | 15532 3 00010 0 15473 IORT VVA55,,8 VVA031FP086320 | 15533 -0 00007 0 15447 IOCP VVA31,,7 VVA04 FP086330 | 15534 3 00007 0 15473 IORT VVA55,,7 VVA041FP086340 15535 -0 00007 0 15456 IOCP VVA41,,7 VVA05 FP086350 | 15536 3 00007 0 15473 IORT VVA55,,7 VVA051FP086360 | 15537 3 00016 0 15465 IORT VVA51,,14 VVA06 FP086370 | 15540 0 00000 0 00002 VVC10 PZE 2 VVC10 FP086380 | 15541 -120000650000 VVC20 OCT 520000650000 LOC MASK VVC20 FP086390 15542 0 00000 0 00044 VVC30 PZE 36 VVC30 FP086400 | 15543 0 00000 0 00000 VVC35 PZE 0 IF NOT ZERO,VERTICAL REJECT VVC35 FP086410 | 15626 BES 50 HSKP2-MAIN 2 BOONDOCKS VVC99 FP086420 | 15626 PROGM BSS 1 FOR HSKP2 AND CALC ORIGIN SYMBOLS FP086430 | * FP086440 1 LISTING OF 12/01/64 PAGE 188 | MAIN2 (9PAC32). TABLE DEFINITIONS | | * FP086470 | *FOLLOWING ARE TABLE AREAS ORIGINED IN HIGH CORE LOCATIONS FP086480 * AND ARE NOT READ IN FROM THE SYSTEM TAPE FP086490 | * FP086500 | * FP086510 | 30221 ORG 16315-SMZE-MGZE-STZE-VTZE-OTZE-SNZE-1112 DICT TABLES FP086520 | 30221 AAG29 BSS 3500 FP086530 37075 AAG30 BSS 3500 FP086540 | 45751 AAG31 BSS 5000 FP086550 | 57561 AAG32 BSS 1 FP086560 | * FP086570 | 43326 ORG 22266-SMZE-MGZE-STZE-VTZE-OTZE-SNZE-512-550-300 FP086580 43326 DCTI BSS 11 FP086590 | 47653 DCTBL BES 2250 FP086600 | 47653 BSS 1 FP086610 | 47654 BEDIC BSS 11 FP086620 | 53607 ENDIC BES 2000 FP086630 53607 BSS 1 FP086640 | 53610 DCTP BSS 11 FP086650 | 57543 DCTBP BES 2000 FP086660 | 57543 BSS 1 FP086670 | 57544 REBUF BSS 14 FP086680 * FP086690 | 57562 OBPGM BSS OBPGMZ GENERATED INSTRUCTION STORAGE FP086700 | 63562 ATBL1 BSS ATBL1Z MISSING ADDRESS STORAGE FP086710 | 65532 STORG BSS STORGZ FP086720 | 67172 HEADR BSS 12 FP086730 67206 PATBL BSS 20 FP086740 | 67232 BSS 1 PZE 22 FP086750 | 67233 VNTRY BSS VTZE FP086760 | 67346 ONTRY BSS OTZE FP086770 | 67461 SNTRY BSS SNZE FP086780 67543 FAA02 BSS 110 FP086790 | 67721 OLAB BSS 14 FP086800 | 67737 AAG24 BSS SEQID FP086810 | 71400 AAG84 BSS 101 FP086820 | * FP086830 71545 TBLOC BSS 0 FP086840 | 71545 SUTBL BSS SMZE-3 FP086850 | 72447 BSS 1 PZE SMZE FP086860 | 72450 PAA40 BSS 1 PZE ** FP086870 | 72451 PR411 BSS 1 PZE ** FP086880 71545 OBSUM EQU SUTBL FP086890 | * FP086900 | 72452 Y0302 BSS 1 PZE ** FP086910 | 72453 Y0304 BSS 1 PZE ** FP086920 | 72454 Y1001 BSS 1 PZE ** FP086930 72455 Y1002 BSS 1 PZE ** FP086940 | * FP086950 | 72456 MGTBL BSS MGZE FP086960 | * FP086970 | *THIS TABLE IS USED FOR INDIRECT ENTRY TO COUNT TABLES. FP086980 * TAG OF 2, NO. OF TYPES PER UNIT IN DECREMENT. FP086990 | * FP087000 | 72564 BSS 19 FP087010 | 1 LISTING OF 12/01/64 PAGE 189 | MAIN2 (9PAC32). TABLE DEFINITIONS | 72607 CTTBL BSS 1 PZE 0 FP087020 | * FP087030 | 72610 BSS 19 FP087040 | 72633 NU BSS 1 PZE 0 FP087050 * FP087060 | * FP087070 | 72634 BSS 19 FP087080 | 72657 SWTCH BSS 1 PZE 0 FP087090 | * FP087100 *POSITION FP087110 | * 1 FILE USED 0-NO 1-YES FP087120 | * 2.1 FILE OF 0-FP 1-RG FP087130 | * 2.2 RG OUTPUT 0-REPORT 1-RECORD FP087140 | * 3.1 DICT ATTACHED 0-NO 1-YES FP087150 * 3.2 USED BY FP I-O GENERATOR AS A TEMPORARY SWITCH FP087160 | * 3.4 USED BY FP I-O GENERATOR AS A TEMPORARY SWITCH FP087170 | * 4 EOF REACHED 0-NO 1-YES FP087180 | * 5 ZZ RT ALLOWED 0-NO 1-YES FP087190 | * 6.1 FILE TYPE 0-INPUT 1-OUTPUT FP087200 * 6.2 SEQ WORD 0-NO 1-YES FP087210 | * 7 INIT BUFFERS 0-NO 1-YES FP087220 | * 8 WITH 0-ZEROS 1-BLANKS FP087230 | * 9 OUTPUT PADDING 0-NO 3-BCD HI 5-BIN HI FP087240 | * 10 OUTPUT GROUPING 0-NO 3-BY 5 5-BY 10 FP087250 * 11 CLOSE OPTIONS 0-RUN 2-REW 4-NO REW FP087260 | * 5-NO REW, NO EOF, NO TRAILERS FP087270 | * 12 CLOSE OPTIONS 0-REW 4-NO REW 5-NO REW, NO LABEL ACT FP087280 | * FP087290 | * FP087300 *THE FOLLOWING TABLE IS USED FOR INDIRECT ENTRY TO RECORD TABLE FP087310 | * TO FIND LENGTH BY RECORD TYPE AND LOCATION OF FP087320 | * PREVIOUS RECORD BY RECORD TYPE. FP087330 | * FP087340 | 72660 BSS 19 FP087350 72703 TBLTL BSS 1 PZE 0,2,0 FP087360 | * FP087370 | * FP087380 | 72704 BSS 19 FP087390 | 72727 BULOC BSS 1 PZE 0 FP087400 * FP087410 | 72730 BSS 19 FP087420 | 72753 BUSZE BSS 1 PZE 0 FP087430 | * FP087440 | 72754 BSS 19 FP087450 72777 SPARE BSS 1 PZE 0 FP087460 | 73000 SORTT BSS STZE FP087470 | * FP087480 | 47666 ORG ENDIC-ALDEFZ-NYDEFZ-1 FP087490 | * FP087500 47666 ALDEF BSS ALDEFZ DAF10 FP087510 | * FP087520 | 51326 NYDEF BSS NYDEFZ DAF20 FP087530 | * FP087540 | * END OF TABLES FP087550 * FP087560 | 1 LISTING OF 12/01/64 PAGE 190 | MAIN2 (9PAC32). TABLE DEFINITIONS | | * FP087580 1 LISTING OF 12/01/64 PAGE 191 | CALC (9PAC32). HAND CALCULATIONS | | * FP087600 | * FP087610 15626 ORG PROGM FOR CALC FP087620 | * FP087630 | * FP087640 | * FP087650 | * VERTICAL CALCULATION FP087660 * FP087670 | * FP087680 | * FP087690 | 15626 652551232143 VCALC BCI 1,VERCAL SEARCH CODE DF001 FP087700 | 15627 0020 00 0 20323 TRA DL010 TRANSFER TO CLEANUP DF002 FP087710 15630 0560 00 0 04621 DF003 LDQ CARD POSITION LOCATION SYMBOL DF003 FP087720 | 15631 -0763 00 0 00006 LGL 6 IN MQ DF020 FP087730 | 15632 0520 00 0 20615 ZET DAE40 RUN-IN SWITCH DF050 FP087740 | 15633 0020 00 0 15721 TRA DF080 DF060 FP087750 | 15634 -0625 00 0 20615 STL DAE40 RUN-IN SWITCH TO ON DF070 FP087760 15635 0600 00 0 13230 STZ DAA20 SET LOC OF CURR. REC TYPE EQUAL ZERO FP087770 | 15636 0600 00 0 20534 STZ DAA60 RESTORE CALC STORAGE DF0710FP087780 | 15637 0600 00 0 20605 STZ DAD80 DF0710FP087790 | 15640 0600 00 0 20606 STZ DAD90 DF0710FP087800 | 15641 0600 00 0 20607 STZ DAD91 DF0710FP087810 15642 0600 00 0 20616 STZ DAE41 DF0710FP087820 | 15643 0600 00 0 20623 STZ DAE80 DF0710FP087830 | 15644 0600 00 0 20637 STZ DAG10 DF0710FP087840 | 15645 0600 00 0 20646 STZ DAG60 DF0710FP087850 | 15646 0600 00 0 20647 STZ DAG80 DF0710FP087860 15647 0600 00 0 20651 STZ DAH10 DF0711FP087870 | 15650 0774 00 4 03720 AXT ALDEFZ+NYDEFZ,4 ZERO ALDEF,NYDEF FP087880 | 15651 0600 00 4 53606 STZ ALDEF+ALDEFZ+NYDEFZ,4 FP087890 | 15652 2 00001 4 15651 TIX *-1,4,1 DF0711FP087900 | 15653 -0500 00 0 15660 CAL *+5 DF0711FP087910 15654 0602 00 0 16054 SLW DF905 DF0711FP087920 | 15655 -0500 00 0 15661 CAL *+4 DF0711FP087930 | 15656 0602 00 0 17274 SLW DG785 FP087940 | 15657 0020 00 0 15662 TRA *+3 DF0711FP087950 | 15660 0601 00 4 00000 STO 0,4 DF0711FP087960 15661 0602 00 4 00000 SLW 0,4 DF0712FP087970 | 15662 0600 00 0 20617 STZ DAE42 DF0712FP087980 | 15663 -0500 00 0 14512 CAL BAE80 INITALIZE FOR PRE-CALC DF072 FP087990 | 15664 0602 00 0 20652 SLW DAH20 IEST IN CLEANUP. DF073 FP088000 | 15665 0600 00 0 14512 STZ BAE80 DF074 FP088010 15666 -0500 00 0 43327 CAL DCTI+1 INITIALIZE SF REC TYPE DF075 FP088020 | 15667 0771 00 0 00006 ARS 6 DF076 FP088030 | 15670 -0320 00 0 10730 ANA BCD03 DF077 FP088040 | 15671 0602 00 0 20630 SLW DAF30 DF078 FP088050 | 15672 0600 00 0 20626 STZ DAF22 DF0790FP088060 15673 0600 00 0 20627 STZ DAF23 DF0790FP088070 | 15674 -0520 00 0 20652 NZT DAH20 DF0790FP088080 | 15675 0020 00 0 16036 TRA DF871 DF0790FP088090 | 15676 -0520 00 0 11376 NZT HORIZ IS PRE-CALC DF0790FP088100 | 15677 0020 00 0 15706 TRA *+7 DF0790FP088110 15700 -0500 00 0 67176 CAL HEADR+4 DF0790FP088120 | 15701 0771 00 0 00036 ARS 30 DF0790FP088130 | 15702 -0320 00 0 10726 ANA BCD01 DF0790FP088140 | 1 LISTING OF 12/01/64 PAGE 192 | CALC (9PAC32). HAND CALCULATIONS | 15703 0322 00 0 20624 ERA DAF20 DF0791FP088150 | 15704 0100 00 0 15720 TZE DF079 IS HORIZ I DF0791FP088160 | 15705 0020 00 0 15721 TRA DF080 DF0791FP088170 | 15706 -0500 00 0 67175 CAL HEADR+3 DF0791FP088180 15707 0771 00 0 00006 ARS 6 DF0791FP088190 | 15710 -0320 00 0 10726 ANA BCD01 DF0791FP088200 | 15711 -0340 00 0 20624 LAS DAF20 DF0791FP088210 | 15712 0020 00 0 15714 TRA *+2 DF0791FP088220 | 15713 0020 00 0 15720 TRA *+5 IS UPDATE I DF0791FP088230 15714 0322 00 0 20625 ERA DAF21 DF0791FP088240 | 15715 -0100 00 0 15721 TNZ DF080 OUT DF0792FP088250 | 15716 -0625 00 0 20626 STL DAF22 SW O ON DF0792FP088260 | 15717 0020 00 0 15721 TRA *+2 DF0792FP088270 | 15720 -0625 00 0 20627 DF079 STL DAF23 SW I ON DF0792FP088280 15721 0600 00 0 20535 DF080 STZ DAA70 CONSTANT SW TO OFF DF080 FP088290 | 15722 -0625 00 0 20536 STL DAA80 NO SYMBOL SWITCH TO OFF DF081 FP088300 | 15723 0754 00 0 00000 PXA 0,0 DF082 FP088310 | 15724 -0763 00 0 00006 LGL 6 DF083 FP088320 | 15725 0520 00 0 20616 ZET DAE41 TEST SWX DF084 FP088330 15726 0020 00 0 15742 TRA DF200 DF085 FP088340 | 15727 -0340 00 0 20620 LAS DAE50 TEST FOR C DF090 FP088350 | 15730 0020 00 0 15732 TRA *+2 DF100 FP088360 | 15731 0020 00 0 15757 TRA DF330 DF110 FP088370 | 15732 -0625 00 0 20616 DF111 STL DAE41 SW X TO ON DF111 FP088380 15733 -0763 00 0 00030 DF120 LGL 24 TEST FOR ALL BLANKS DF120 FP088390 | 15734 -0340 00 0 20667 LAS DAI13 DF130 FP088400 | 15735 0020 00 0 15772 TRA DF510 DF140 FP088410 | 15736 0020 00 0 15740 TRA *+2 YES DF150 FP088420 | 15737 0020 00 0 15772 TRA DF510 DF160 FP088430 15740 0600 00 0 20536 STZ DAA80 NO SYMBOL SWITCH DF170 FP088440 | 15741 0020 00 0 16127 TRA DA590 TO SCAN A,T,D DF190 FP088450 | 15742 -0340 00 0 20620 DF200 LAS DAE50 TEST FOR C DF200 FP088460 | 15743 0020 00 0 15733 TRA DF120 DF210 FP088470 | 15744 0020 00 0 15746 TRA *+2 DF220 FP088480 15745 0020 00 0 15733 TRA DF120 DF230 FP088490 | 15746 0774 00 4 00004 AXT 4,4 DF240 FP088500 | 15747 0754 00 0 00000 PXA 0,0 DF250 FP088510 | 15750 -0763 00 0 00006 LGL 6 DF260 FP088520 | 15751 -0340 00 0 20577 LAS DAD20 DF261 FP088530 15752 0020 00 0 15772 TRA DF510 NOT REALLY A CONSTANT DF262 FP088540 | 15753 0761 00 0 00000 NOP DF263 FP088550 | 15754 2 00001 4 15747 TIX *-5,4,1 DF264 FP088560 | 15755 0074 00 4 10507 TSX T0010,4 FP088570 | 15756 -1 01132 2 14307 STR BB010,2,602 CONSTART CARD MISPLACED DF270 FP088580 15757 0774 00 4 00004 DF330 AXT 4,4 EDIT FOR 4 NUMERIC DF330 FP088590 | 15760 0754 00 0 00000 PXA 0,0 DF340 FP088600 | 15761 -0763 00 0 00006 LGL 6 DF350 FP088610 | 15762 -0340 00 0 20577 LAS DAD20 DF360 FP088620 | 15763 0020 00 0 15732 TRA DF111 C NOT FOLLOWED BY ALL NUMERDF370 FP088630 15764 0761 00 0 00000 NOP DF380 FP088640 | 15765 2 00001 4 15760 TIX *-5,4,1 DF390 FP088650 | 15766 0774 00 4 00036 AXT 30,4 CONSTANT HAS VALID SYMBOL DF400 FP088660 | 15767 0774 00 1 00000 AXT 0,1 DF410 FP088670 | 15770 -0625 00 0 20535 STL DAA70 CONSTANT SWITCH TO ON DF420 FP088680 15771 0020 00 0 16012 TRA DF760 DF430 FP088690 | 1 LISTING OF 12/01/64 PAGE 193 | CALC (9PAC32). HAND CALCULATIONS | | 15772 0774 00 1 00000 DF510 AXT 0,1 DF510 FP088700 15773 0774 00 2 00005 AXT 5,2 DF520 FP088710 | 15774 0774 00 4 00000 AXT 0,4 DF530 FP088720 | 15775 0560 00 0 04621 LDQ CARD POSITION LOCATION SYMBOL DF540 FP088730 | 15776 -0763 00 0 00006 LGL 6 IN MQ DF550 FP088740 | 15777 0754 00 0 00000 DF570 PXA 0,0 DF570 FP088750 16000 -0763 00 0 00006 LGL 6 DF580 FP088760 | 16001 0322 00 0 20622 ERA DAE70 COMPARE TO BLANK DF590 FP088770 | 16002 0100 00 0 16004 TZE *+2 IS BLANK DF600 FP088780 | 16003 1 00006 4 16006 TXI *+3,4,6 DF610 FP088790 | 16004 3 00000 4 16012 TXH DF760,4,0 DF620 FP088800 16005 1 00006 1 16006 TXI *+1,1,6 DF630 FP088810 | 16006 2 00001 2 15777 TIX DF570,2,1 DF640 FP088820 | 16007 -3 00036 4 16012 TXL DF760,4,30 DF650 FP088830 | 16010 0074 00 4 10507 TSX T0010,4 FP088840 | 16011 -1 01134 2 14307 STR BB010,2,604 LOCATION SYMBOL MORE THAN 5 BCD DF660 FP088850 16012 0634 00 1 16017 DF760 SXA DF820,1 RIGHT JUSTIFY LOC SYMBOL DF760 FP088860 | 16013 0634 00 4 16020 SXA DF830,4 DF770 FP088870 | 16014 0560 00 0 04621 LDQ CARD DF780 FP088880 | 16015 -0763 00 0 00006 LGL 6 DF790 FP088890 | 16016 -0500 00 0 20573 CAL DBLNK DF810 FP088900 16017 -0763 00 0 00000 DF820 LGL 0 DF820 FP088910 | 16020 -0763 00 0 00000 DF830 LGL 0 DF830 FP088920 | 16021 -0320 00 0 10764 ANA BCD37 DF831 FP088930 | 16022 0520 00 0 20535 DF840 ZET DAA70 TEST CONSTANT SWITCH DF840 FP088940 | 16023 -0760 00 0 00003 SSM DF850 FP088950 16024 0601 00 0 20653 STO LSYMB STORE LOCATION SUMBOL DF860 FP088960 | 16025 0074 00 4 16071 TSX DF960,4 COMPARE TO GFP SYMBOL DF862 FP088970 | 16026 0020 00 0 16031 TRA *+3 DF863 FP088980 | 16027 0074 00 4 10507 TSX T0010,4 FP088990 | 16030 -1 01213 2 16031 STR *+1,2,651 GFP SYMBOL MUST NOT BE USED FP089000 16031 -0500 00 0 20653 CAL LSYMB DF867 FP089010 | 16032 0074 00 4 16106 TSX DF980,4 COMPARE TO ALREADY DEFINED DF868 FP089020 | 16033 0020 00 0 16127 TRA DA590 TO SCAN A,T,D DF869 FP089030 | 16034 0074 00 4 10507 TSX T0010,4 FP089040 | 16035 -1 01214 2 16127 STR DA590,2,652 DOUBLY DEFINED SYMBOL FP089050 16036 -0500 00 0 04621 DF871 CAL CARD DF871 FP089060 | 16037 0322 00 0 20613 ERA DAE25 ALCEDI DF8711FP089070 | 16040 -0100 00 0 15721 TNZ DF080 DF8712FP089080 | 16041 -0625 00 0 20617 STL DAE42 DF8713FP089090 | 16042 0020 00 0 14307 TRA BB010 DF8714FP089100 * SYMBL SUBROUTINE FP089110 | * FP089120 | * FP089130 | 16043 0634 00 4 16067 SYMBL SXA DF945,4 DF874 FP089140 | 16044 0500 00 0 20653 CLA LSYMB DF875 FP089150 16045 0534 00 4 16054 LXA DF905,4 DF880 FP089160 | 16046 1 00002 4 16047 TXI *+1,4,2 DF885 FP089170 | 16047 -3 01434 4 16052 TXL *+3,4,ALDEFZ-4 DF980 FP089180 | 16050 0074 00 4 10507 TSX T0010,4 FP089190 | 16051 -1 11672 5 00000 STR 0,5,5050 EXCEED ALREADY DEFINED TABLE(800/2) DF895 FP089200 16052 0634 00 4 16054 SXA *+2,4 DF896 FP089210 | 16053 -0774 00 4 47664 AXC ALDEF-2,4 DF900 FP089220 | 16054 0601 00 4 00000 DF905 STO 0,4 SYMBOL TO ALDEF TABLE DF905 FP089230 | 16055 0520 00 0 20535 ZET DAA70 TEST CONSTANT SWITCH DF910 FP089240 | 1 LISTING OF 12/01/64 PAGE 194 CALC (9PAC32). HAND CALCULATIONS | | 16056 0020 00 0 16061 TRA *+3 DF915 FP089250 | 16057 -0500 00 0 11423 CAL F0080 DF920 FP089260 | 16060 0020 00 0 16062 TRA *+2 DF925 FP089270 16061 -0500 00 0 11436 CAL G0080 DF930 FP089280 | 16062 -0320 00 0 20600 ANA DAD30 DF935 FP089290 | 16063 0520 00 0 20545 ZET DAA94 TEST BES SW DF936 FP089300 | 16064 0400 00 0 20533 ADD DAONE ADD1 DF937 FP089310 | 16065 -0774 00 4 47665 AXC ALDEF-1,4 DF939 FP089320 16066 0601 60 0 16054 STO* DF905 WD COUNT TO ALDEF TABLE DF940 FP089330 | 16067 0774 00 4 00000 DF945 AXT 0,4 DF945 FP089340 | 16070 0020 00 4 00001 DF950 TRA 1,4 DF950 FP089350 | * FP089360 | *TO TEST IF SYMBOL IS A GFP SYMBOL FP089370 * ENTER WITH SYMBOL RT JUSTIFIED IS AC FP089380 | * EXIT 1,4 IF NO, EXIT 2,4 IF YES. FP089390 | * FP089400 | 16071 0634 00 4 16101 DF960 SXA DF968,4 DF960 FP089410 | 16072 0535 00 4 16101 LAC DF968,4 DF961 FP089420 16073 1 00001 4 16074 TXI *+1,4,1 DF962 FP089430 | 16074 0634 00 4 16101 SXA DF968,4 DF963 FP089440 | 16075 1 00001 4 16076 TXI *+1,4,1 DF964 FP089450 | 16076 0634 00 4 16104 SXA DF971,4 DF965 FP089460 | 16077 -0774 00 4 12130 AXC GFPSY,4 DF966 FP089470 16100 -0520 00 4 00000 NZT 0,4 DF967 FP089480 | 16101 0020 00 0 00000 DF968 TRA 0 NOT FOUND DF968 FP089490 | 16102 -0340 00 4 00000 LAS 0,4 DF969FP089500 | 16103 1 77776 4 16100 TXI *-3,4,-2 DF970 FP089510 | 16104 0020 00 0 00000 DF971 TRA 0 IS FOUND DF971 FP089520 16105 1 77776 4 16100 TXI *-5,4,-2 DF972 FP089530 | * FP089540 | *TO TEST IF SYMBOL HAS BEEN ALREADY DEFINED FP089550 | * ENTER WITH SYMBOL RT JUSTIFIED IN AC FP089560 | * EXIT 1,4 IF NOT FOUND, EXIT 2,4 IF FOUND. FP089570 * FP089580 | 16106 0634 00 4 16117 DF980 SXA DF989,4 DF980 FP089590 | 16107 0535 00 4 16117 LAC DF989,4 DF981 FP089600 | 16110 1 00001 4 16111 TXI *+1,4,1 DF982 FP089610 | 16111 0634 00 4 16117 SXA DF989,4 DF983 FP089620 16112 1 00001 4 16113 TXI *+1,4,1 DF984 FP089630 | 16113 0634 00 4 16126 SXA DF996,4 DF985 FP089640 | 16114 -0774 00 4 47666 AXC ALDEF,4 DF986 FP089650 | 16115 0601 00 0 20623 STO DAE80 DF987 FP089660 | 16116 0500 00 4 00000 CLA 0,4 DF988 FP089670 16117 0100 00 0 00000 DF989 TZE .. NOT FOUND DF989 FP089680 | 16120 0760 00 0 00003 SSP DF990 FP089690 | 16121 -0340 00 0 20623 LAS DAE80 DF991 FP089700 | 16122 1 77776 4 16116 TXI *-4,4,-2 DF992 FP089710 | 16123 0020 00 0 16125 TRA *+2 DF993 FP089720 16124 1 77776 4 16116 TXI *-6,4,-2 DF994 FP089730 | 16125 0500 00 4 00000 CLA 0,4 DF995 FP089740 | 16126 0020 00 0 00000 DF996 TRA .. IS FOUND DF996 FP089750 | * FP089760 | * SCAN ADDRESS, TAG AND DECREMENT FP089770 * FP089780 | 16127 0600 00 0 20565 DA590 STZ ADDSN BEGIN SCAN OF DA590 FP089790 | 1 LISTING OF 12/01/64 PAGE 195 | CALC (9PAC32). HAND CALCULATIONS | 16130 0600 00 0 20566 STZ ADDCT ADDRESS, TAG DA600 FP089800 | 16131 0600 00 0 20567 STZ TAGCT ADD DECREMENT DA610 FP089810 | 16132 0600 00 0 20570 STZ DECSN DA620 FP089820 | 16133 0600 00 0 20571 STZ DECCT DA630 FP089830 | 16134 -0500 00 0 04622 CAL CARD+1 COMPARE OP CODE TO BCI DA632 FP089840 16135 -0765 00 0 00014 LGR 12 DA633 FP089850 | 16136 -0320 00 0 10734 ANA BCD07 DA634 FP089860 | 16137 -0340 00 0 20551 LAS DAB30 DA635 FP089870 | 16140 0020 00 0 16142 TRA *+2 DA636 FP089880 | 16141 0020 00 0 16713 TRA DD400 IS BCI DA637 FP089890 16142 -0774 00 1 04621 AXC CARD,1 DA640 FP089900 | 16143 0441 00 0 20564 LDI DZERO INDICATORS TO ZERO DA641 FP089910 | 16144 -0055 00 000001 SIL 000001 SET FOR ADDR TIME DA642 FP089920 | 16145 0600 00 0 20575 STZ DAC90 SET BLANK SWITCH OFF DA643 FP089930 | 16146 0774 00 2 00006 AXT 6,2 DA650 FP089940 16147 -0500 00 1 00002 CAL 2,1 IN MQ DA660 FP089950 | 16150 0560 00 1 00003 LDQ 3,1 DA670 FP089960 | 16151 -0765 00 0 00022 LGR 18 DA680 FP089970 | 16152 0774 00 4 00000 DA681 AXT 0,4 DA681 FP089980 | 16153 0754 00 0 00000 PXA 0,0 DA690 FP089990 16154 -0763 00 0 00006 LGL 6 DA700 FP090000 | 16155 -0340 00 0 20572 LAS DAC60 TEST FOR MINUS DA760 FP090010 | 16156 0020 00 0 16201 TRA DB010 DA770 FP090020 | 16157 0020 00 0 16161 TRA *+2 IS DA780 FP090030 | 16160 0020 00 0 16201 TRA DB010 DA790 FP090040 16161 0500 00 0 20603 CLA DAD60 DA800 FP090050 | 16162 -0054 00 000001 LFT 000001 DA810 FP090060 | 16163 0020 00 0 16166 TRA *+3 IS ADDR TIME DA820 FP090070 | 16164 -0054 00 000004 LFT 000004 DA830 FP090080 | 16165 0020 00 0 16170 TRA *+3 IS DECR TIME DA840 FP090090 16166 0601 00 0 20565 STO ADDSN STORE ADDSN DA850 FP090100 | 16167 0020 00 0 16171 TRA *+2 DA860 FP090110 | 16170 0601 00 0 20570 STO DECSN STORE DECSN DA870 FP090120 | 16171 2 00001 2 16177 DA880 TIX DA940,2,1 TEST FOR NEW WORD GET DA880 FP090130 | 16172 0774 00 2 00006 AXT 6,2 DA890 FP090140 16173 1 77777 1 16174 TXI *+1,1,-1 DA900 FP090150 | 16174 -0500 00 1 00002 CAL 2,1 GET NEW WORD DA910 FP090160 | 16175 0560 00 1 00003 LDQ 3,1 DA920 FP090170 | 16176 -0765 00 0 00022 LGR 18 DA930 FP090180 | 16177 0754 00 0 00000 DA940 PXA 0,0 CLEARAC DA940 FP090190 16200 -0763 00 0 00006 LGL 6 DA950 FP090200 | 16201 -0340 00 0 20622 DB010 LAS DAE70 LTEST FOR BLANK DB010 FP090210 | 16202 0020 00 0 16207 TRA DB080 DB020 FP090220 | 16203 0020 00 0 16205 TRA *+2 IS BLANK DB030 FP090230 | 16204 0020 00 0 16207 TRA DB080 DB040 FP090240 16205 -0625 00 0 20575 STL DAC90 SET BLANK SW TO ON DB060 FP090250 | 16206 0020 00 0 16213 TRA DB120 DB070 FP090260 | 16207 -0340 00 0 20574 DB080 LAS DCOMM TEST FOR COMMA DB080 FP090270 | 16210 0020 00 0 16212 TRA *+2 DB090 FP090280 | 16211 0020 00 0 16213 TRA *+2 IS COMMA DB100 FP090290 16212 1 00006 4 16171 TXI DA880,4,6 DB110 FP090300 | 16213 -0054 00 000001 DB120 LFT 000001 DB120 FP090310 | 16214 0020 00 0 16223 TRA DB260 IS ADDR TIME DB130 FP090320 | 16215 -0054 00 000002 LFT 000002 DB140 FP090330 | 16216 0020 00 0 16231 TRA DB320 IS TAG TIME DB150 FP090340 1 LISTING OF 12/01/64 PAGE 196 | CALC (9PAC32). HAND CALCULATIONS | | 16217 -0054 00 000004 LFT 000004 DB160 FP090350 | 16220 0020 00 0 16244 TRA DB430 IS DECR TIME DB170 FP090360 16221 0074 00 4 10507 TSX T0010,4 FP090370 | 16222 -1 11242 4 00000 STR 0,4,4770 NOT ADDR,TAG OR DECR TIME DB180 FP090380 | 16223 0634 00 4 20566 DB260 SXA ADDCT,4 IS ADD TIME DB260 FP090390 | 16224 0520 00 0 20575 ZET DAC90 TEST BLANK SW DB270 FP090400 | 16225 0020 00 0 16245 TRA DA030 DB280 FP090410 16226 0774 00 4 00000 AXT 0,4 DB290 FP090420 | 16227 -0051 00 000003 IIL 000003 SET FOR TAG TIME DB300 FP090430 | 16230 0020 00 0 16171 TRA DA880 DB310 FP090440 | 16231 0634 00 4 20567 DB320 SXA TAGCT,4 IS TAG TIME DB320 FP090450 | 16232 0520 00 0 20575 ZET DAC90 TEST BLANK SW DB330 FP090460 16233 0020 00 0 16245 TRA DA030 DB340 FP090470 | 16234 -0051 00 000006 IIL 000006 SET FOR DECR TIME DB350 FP090480 | 16235 2 00001 2 16152 TIX DA681,2,1 TEST FOR NEW WORD GET DB360 FP090490 | 16236 0774 00 2 00006 AXT 6,2 DB370 FP090500 | 16237 1 77777 1 16240 TXI *+1,1,-1 DB380 FP090510 16240 -0500 00 1 00002 CAL 2,1 GET NEW WORD DB390 FP090520 | 16241 0560 00 1 00003 LDQ 3,1 DB400 FP090530 | 16242 -0765 00 0 00022 LGR 18 DB410 FP090540 | 16243 0020 00 0 16152 TRA DA681 DB420 FP090550 | 16244 0634 00 4 20571 DB430 SXA DECCT,4 IS DECR TIME DB430 FP090560 * ANALZE OPERATION CODE FP090570 | * FP090580 | 16245 0600 00 0 20532 DA030 STZ ITEMP DA030 FP090590 | 16246 0600 00 0 20537 STZ DAA90 DA091 FP090600 | 16247 0600 00 0 20543 STZ DAA91 DA092 FP090610 16250 0600 00 0 20544 STZ DAA93 DA093 FP090620 | 16251 0600 00 0 20545 STZ DAA94 DA094 FP090630 | 16252 -0500 00 0 04622 CAL CARD+1 LOOK AT OPCODE DA100 FP090640 | 16253 0560 00 0 04623 LDQ CARD+2 DA110 FP090650 | 16254 -0765 00 0 00014 LGR 12 DA115 FP090660 16255 -0320 00 0 10734 ANA BCD07 DA120 FP090670 | 16256 -0340 00 0 20547 LAS DAB10 COMPARE TO OCT DA130 FP090680 | 16257 0020 00 0 16261 TRA *+2 DA140 FP090690 | 16260 0020 00 0 16621 TRA DC760 IS DA150 FP090700 | 16261 -0340 00 0 20550 LAS DAB20 COMPARE TO DEC DA160 FP090710 16262 0020 00 0 16264 TRA *+2 DA170 FP090720 | 16263 0020 00 0 20461 TRA DM500 IS DA180 FP090730 | 16264 -0340 00 0 20551 LAS DAB30 COMPARE TO BCI DA190 FP090740 | 16265 0020 00 0 16267 TRA *+2 DA200 FP090750 | 16266 0020 00 0 16713 TRA DD400 IS DA210 FP090760 16267 -0340 00 0 20640 LAS DAG20 COMPARE TO GET DA220 FP090770 | 16270 0020 00 0 16272 TRA *+2 DA230 FP090780 | 16271 0020 00 0 17323 TRA DH010 IS DA240 FP090790 | 16272 -0340 00 0 20641 LAS DAG30 COMPARE TO PUT DA250 FP090800 | 16273 0020 00 0 16275 TRA *+2 DA251 FP090810 16274 0020 00 0 17463 TRA DI010 IS DA252 FP090820 | 16275 -0340 00 0 20643 LAS DAG50 COMPARE TO IGNORE DA253 FP090830 | 16276 0020 00 0 16300 TRA *+2 DA254 FP090840 | 16277 0020 00 0 20004 TRA DK010 IS DA255 FP090850 | 16300 -0340 00 0 20642 LAS DAG40 COMPARE TO REJECT DA256 FP090860 16301 0020 00 0 16303 TRA *+2 DA257 FP090870 | 16302 0020 00 0 20110 TRA DK350 IS DA258 FP090880 | 16303 -0340 00 0 20644 LAS DAG51 COMPARE TO BSS DA260 FP090890 | 1 LISTING OF 12/01/64 PAGE 197 | CALC (9PAC32). HAND CALCULATIONS | 16304 0020 00 0 16306 TRA *+2 DA261 FP090900 | 16305 0020 00 0 17707 TRA DJ510 IS DA262 FP090910 | 16306 -0340 00 0 20645 LAS DAG52 COMPARE TO BES DA263 FP090920 | 16307 0020 00 0 16311 TRA *+2 DA264 FP090930 16310 0020 00 0 17744 TRA DJ800 IS DA265 FP090940 | 16311 -0340 00 0 20657 LAS DAI04 COMPARE TO ERRFLD DA266 FP090950 | 16312 0020 00 0 16314 TRA *+2 DA267 FP090960 | 16313 0020 00 0 20215 TRA DK750 IS DA268 FP090970 | 16314 -0340 00 0 20666 LAS DAI12 COMPARE TO SUM DA269 FP090980 16315 0020 00 0 16317 TRA *+2 DA270 FP090990 | 16316 0020 00 0 20415 TRA DM010 IS DA271 FP091000 | 16317 -0340 00 0 20665 LAS DAI10 COMPARE TO BKSP DA272 FP091010 | 16320 0020 00 0 16322 TRA *+2 DA273 FP091020 | 16321 0020 00 0 20157 TRA DK720 IS DA274 FP091030 16322 0602 00 0 20546 SLW DAA98 FP091040 | * DA280 FP091050 | *CHECK OPCODE FOR MOST COMMON TYPE TABLE DA282 FP091060 | * DA284 FP091070 | 16323 -0774 00 1 21036 AXC MOSTOP,1 DA286 FP091080 16324 -0500 00 1 00000 DA288 CAL 0,1 DA288 FP091090 | 16325 0100 00 0 16336 TZE DA314 NOT IN THIS TABLE--TRY NEXT DA290 FP091100 | 16326 -0320 00 0 10744 ANA BCD17 DA292 FP091110 | 16327 -0340 00 0 20546 LAS DAA98 FP091120 | 16330 1 77777 1 16324 TXI DA288,1,-1 DA296 FP091130 16331 0020 00 0 16333 TRA *+2 IS FOUND DA298 FP091140 | 16332 1 77777 1 16324 TXI DA288,1,-1 DA300 FP091150 | 16333 -0500 00 1 00000 CAL 0,1 DA302 FP091160 | 16334 -0320 00 0 11005 ANA BCD60 DA304 FP091170 | 16335 0020 00 0 16347 TRA DA338 DA306 FP091180 * DA308 FP091190 | *CHECK FOR SENSE TYPE OP CODE DA310 FP091200 | * DA312 FP091210 | 16336 -0500 00 0 20546 DA314 CAL DAA98 FP091220 | 16337 -0774 00 1 21271 AXC NOROP,1 DA316 FP091230 16340 -0520 00 1 00000 DA318 NZT 0,1 DA318 FP091240 | 16341 0020 00 0 16357 TRA DA360 NOT IN THIS TABLE--TRY NEXT DA320 FP091250 | 16342 -0340 00 1 00000 LAS 0,1 DA322 FP091260 | 16343 1 77776 1 16340 TXI DA318,1,-2 DA324 FP091270 | 16344 0020 00 0 16346 TRA *+2 IS FOUND DA326 FP091280 16345 1 77776 1 16340 TXI DA318,1,-2 DA328 FP091290 | 16346 -0500 00 1 00001 CAL 1,1 DA330 FP091300 | * DA332 FP091310 | *PLACE OPER TO INSTRUCTION AND TEST FOR INDIRECT ADDR DA334 FP091320 | * DA336 FP091330 16347 -0602 00 0 20532 DA338 ORS ITEMP DA338 FP091340 | 16350 0754 00 0 00000 PXA 0,0 DA340 FP091350 | 16351 -0763 00 0 00006 LGL 6 DA342 FP091360 | 16352 0402 00 0 20553 SUB DAB40 DA344 FP091370 | 16353 -0100 00 0 16423 TNZ DA444 DA346 FP091380 16354 -0500 00 0 20556 CAL DAB50 DA348 FP091390 | 16355 -0602 00 0 20532 ORS ITEMP DA350 FP091400 | 16356 0020 00 0 16423 TRA DA444 FP091410 | * DA354 FP091420 | *CHECK FOR CHANNEL COMMAND OP CODE DA356 FP091430 * DA358 FP091440 | 1 LISTING OF 12/01/64 PAGE 198 | CALC (9PAC32). HAND CALCULATIONS | | 16357 -0763 00 0 00006 DA360 LGL 6 DA360 FP091450 16360 -0774 00 1 21365 AXC CMDOP,1 DA362 FP091460 | 16361 -0520 00 1 00000 DA364 NZT 0,1 DA364 FP091470 | 16362 0020 00 0 16417 TRA DA431 INVALID OP CODE DA366 FP091480 | 16363 -0340 00 1 00000 LAS 0,1 DA368 FP091490 | 16364 1 77776 1 16361 TXI DA364,1,-2 DA370 FP091500 16365 0020 00 0 16367 TRA *+2 IS FOUND DA372 FP091510 | 16366 1 77776 1 16361 TXI DA364,1,-2 DA374 FP091520 | * DA376 FP091530 | *CHECK FOR NON-TRANSMITTING AND/OR INDIRECT ADDRESSING DA378 FP091540 | * AND PLACE OPERATION TO INSTRUCTION DA380 FP091550 * DA382 FP091560 | 16367 -0500 00 1 00001 CAL 1,1 DA384 FP091570 | 16370 -0602 00 0 20532 ORS ITEMP DA386 FP091580 | 16371 0754 00 0 00000 PXA 0,0 DA388 FP091590 | 16372 -0763 00 0 00006 LGL 6 DA390 FP091600 16373 -0340 00 0 20554 LAS DAB41 DA392 FP091610 | 16374 0020 00 0 16376 TRA *+2 DA394 FP091620 | 16375 0020 00 0 16423 TRA DA444 DA396 FP091630 | 16376 -0340 00 0 20553 LAS DAB40 DA398 FP091640 | 16377 0020 00 0 16401 TRA *+2 DA400 FP091650 16400 0020 00 0 16421 TRA DA434 DA402 FP091660 | 16401 -0340 00 0 20555 LAS DAB42 DA404 FP091670 | 16402 0020 00 0 16404 TRA *+2 DA406 FP091680 | 16403 0020 00 0 16405 TRA *+2 DA408 FP091690 | 16404 0020 00 0 16417 TRA DA431 INVALID OP CODE DA410 FP091700 16405 -0500 00 0 20560 CAL DAB52 DA412 FP091710 | 16406 -0602 00 0 20532 ORS ITEMP NON-TRANSMIT BIT 19 DA414 FP091720 | 16407 0754 00 0 00000 PXA 0,0 DA416 FP091730 | 16410 -0763 00 0 00006 LGL 6 DA418 FP091740 | 16411 -0340 00 0 20554 LAS DAB41 DA420 FP091750 16412 0020 00 0 16414 TRA *+2 DA422 FP091760 | 16413 0020 00 0 16423 TRA DA444 DA424 FP091770 | 16414 -0340 00 0 20553 LAS DAB40 DA426 FP091780 | 16415 0020 00 0 16417 TRA *+2 DA428 FP091790 | 16416 0020 00 0 16421 TRA DA434 DA430 FP091800 16417 0074 00 4 10507 DA431 TSX T0010,4 FP091810 | 16420 -1 01135 2 14307 STR BB010,2,605 INVALID OP CODE DA432 FP091820 | 16421 -0500 00 0 20557 DA434 CAL DAB51 CHANNEL INDIRECT DA434 FP091830 | 16422 -0602 00 0 20532 ORS ITEMP DA436 FP091840 | * DA438 FP091850 *TEST FOR HALF INDICATOR OPCODE TO HANDLE ADDRESS DA440 FP091860 | * DA442 FP091870 | 16423 -0500 00 0 20532 DA444 CAL ITEMP DA444 FP091880 | 16424 -0320 00 0 20562 ANA DAB70 DA510 FP091890 | 16425 0402 00 0 20563 SUB DAB80 TEST FOR 005X OPCODE DA520 FP091900 16426 0100 00 0 16674 TZE DD260 IS OCTAD DA530 FP091910 | 16427 -0774 00 1 04623 DB545 AXC CARD+2,1 DB545 FP091920 | 16430 0774 00 2 00000 AXT 0,2 DB546 FP091930 | 16431 -0520 00 0 20566 NZT ADDCT DB500 FP091940 | 16432 0020 00 0 16534 TRA DC010 IF NO ADDRESS. DB560 FP091950 16433 -0500 00 0 04623 CAL CARD+2 INTERPRET ADDRESS DB570 FP091960 | 16434 0560 00 0 04624 LDQ CARD+3 DB580 FP091970 | 16435 -0765 00 0 00022 LGR 18 POSITION IT IN MQ DB590 FP091980 | 16436 0754 00 0 00000 PXA 0,0 DB600 FP091990 | 1 LISTING OF 12/01/64 PAGE 199 CALC (9PAC32). HAND CALCULATIONS | | 16437 -0763 00 0 00006 LGL 6 DB610 FP092000 | 16440 -0340 00 0 20553 LAS DAB40 COMPARE TO * DB620 FP092010 | 16441 0020 00 0 16443 TRA *+2 DB630 FP092020 16442 0020 00 0 17040 TRA DE260 IS * DB640 FP092030 | 16443 -0520 00 0 20565 NZT ADDSN DB650 FP092040 | 16444 -0765 00 0 00006 LGR 6 DB660 FP092050 | 16445 0754 00 0 00000 PXA 0,0 CLEAR AC DB670 FP092060 | 16446 -0763 00 0 00006 LGL 6 DB671 FP092070 16447 -0340 00 0 20576 LAS DAD10 COMPARE TO ! DB680 FP092080 | 16450 0020 00 0 16452 TRA *+2 DB690 FP092090 | 16451 0020 00 0 16765 TRA DD760 IS ! DB700 FP092100 | 16452 0534 00 4 20566 LXA ADDCT,4 DB760 FP092110 | 16453 -3 00036 4 16455 TXL *+2,4,30 DB770 FP092120 16454 0761 00 0 00000 NOP DB780 FP092130 | * FP092140 | * INTERPRET ADDRESS FP092150 | * FP092160 | 16455 -0765 00 0 00006 LGR 6 TEST FOR ADDRESS SYMBOLIS DB790 FP092170 16456 0754 00 0 00000 PXA 0,0 DB792 FP092180 | 16457 -0763 00 0 00006 LGL 6 DB793 FP092190 | 16460 -0340 00 0 20577 LAS DAD20 DB794 FP092200 | 16461 0020 00 0 16506 TRA DB960 IS ADDRESS SYMBOLIC DB795 FP092210 | 16462 0761 00 0 00000 NOP DB796 FP092220 16463 2 00006 4 16456 TIX *-5,4,6 DB797 FP092230 | 16464 -0500 00 0 04623 CAL CARD+2 IS NUMERIC ADDRESS DB800 FP092240 | 16465 0560 00 0 04624 LDQ CARD+3 RELOAD DB802 FP092250 | 16466 -0765 00 0 00014 LGR 12 DB804 FP092260 | 16467 -0520 00 0 20565 NZT ADDSN DB810 FP092270 16470 -0765 00 0 00006 LGR 6 DB812 FP092280 | 16471 0754 00 0 00000 PXA 0,0 CLEAR AC DB820 FP092290 | 16472 0535 00 4 20566 LAC ADDCT,4 DB830 FP092300 | 16473 -0763 00 4 00000 LGL 0,4 DB840 FP092310 | 16474 0602 00 0 07751 SLW B1020 DB850 FP092320 16475 0074 00 4 07570 TSX B0010,4 CONVERT ADDRESS TO BINARY DB860 FP092330 | 16476 0500 00 0 07747 CLA B1000 DB880 FP092340 | 16477 -0520 00 0 20565 NZT ADDSN DB890 FP092350 | 16500 0020 00 0 16503 TRA DB930 DB900 FP092360 | 16501 0760 00 0 00006 COM DB910 FP092370 16502 0400 00 0 20533 ADD DAONE DB920 FP092380 | 16503 -0320 00 0 20600 DB930 ANA DAD30 DB930 FP092390 | 16504 -0602 00 0 20532 ORS ITEMP ORS NUMERIC ADDR DB940 FP092400 | 16505 0020 00 0 16534 TRA DC010 DB950 FP092410 | 16506 -0625 00 0 20537 DB960 STL DAA90 SET ADDR SUMBOLIC SW ON DB960 FP092420 16507 -0520 00 0 20565 NZT ADDSN DB980 FP092430 | 16510 0020 00 0 16513 TRA *+3 DB981 FP092440 | 16511 0074 00 4 10507 TSX T0010,4 FP092450 | 16512 -1 01137 2 14307 STR BB010,2,607 CALC SYMBOLIC ADDRESS HAS SIGN DB990 FP092460 | 16513 -0520 00 0 20535 NZT DAA70 TEST CONSTANT SWITCH DB991 FP092470 16514 0020 00 0 16534 TRA DC010 DB992 FP092480 | 16515 0534 00 4 20566 LXA ADDCT,4 DB993 FP092490 | 16516 0634 00 4 16523 SXA *+5,4 DB994 FP092500 | 16517 -0500 00 0 04623 CAL CARD+2 DB995 FP092510 | 16520 0560 00 0 04624 LDQ CARD+3 DB996 FP092520 16521 -0765 00 0 00022 LGR 18 DB997 FP092530 | 16522 -0500 00 0 20573 CAL DBLNK DB998 FP092540 | 1 LISTING OF 12/01/64 PAGE 200 | CALC (9PAC32). HAND CALCULATIONS | 16523 -0763 00 0 00000 LGL ** DB999 FP092550 | 16524 -0320 00 0 10764 ANA BCD37 DC000 FP092560 | 16525 0074 00 4 16071 TSX DF960,4 DC001 FP092570 | 16526 0020 00 0 16530 TRA *+2 FP092580 | 16527 0020 00 0 16532 TRA *+3 FP092590 16530 0074 00 4 10507 TSX T0010,4 FP092600 | 16531 -1 01140 2 14307 STR BB010,2,608 CONST HAS ILLEGAL ADDR DC002 FP092610 | 16532 -0500 00 4 00001 CAL 1,4 DC003 FP092620 | 16533 0621 00 0 20532 STA ITEMP DC004 FP092630 | * FP092640 * INTERPRET TAG FP092650 | 16534 0500 00 0 20601 DC010 CLA DAD40 DC010 FP092660 | 16535 0500 00 0 20601 CLA DAD40 DC030 FP092670 | 16536 0400 00 0 20565 ADD ADDSN DC040 FP092680 | 16537 0400 00 0 20566 ADD ADDCT DC050 FP092690 16540 0400 00 0 20603 ADD DAD60 ADD SIX FOR COMMA DC060 FP092700 | 16541 0734 00 2 00000 PAX 0,2 DC080 FP092710 | 16542 -0520 00 0 20567 NZT TAGCT DC085 FP092720 | 16543 0020 00 0 16564 TRA DC310 DC086 FP092730 | 16544 -2 00044 2 16546 TNX *+2,2,36 DC090 FP092740 16545 1 77777 1 16544 TXI *-1,1,-1 DC100 FP092750 | 16546 0634 00 2 16551 SXA *+3,2 DC110 FP092760 | 16547 -0500 00 1 00000 CAL 0,1 POSITION TAG IN MQ DC120 FP092770 | 16550 0560 00 1 00001 LDQ 1,1 DC130 FP092780 | 16551 -0763 00 0 00000 LGL 0 DC140 FP092790 16552 -0130 00 0 00000 XCL DC150 FP092800 | 16553 0754 00 0 00000 PXA 0,0 DC160 FP092810 | 16554 0535 00 4 20567 LAC TAGCT,4 DC170 FP092820 | 16555 -0763 00 4 00000 LGL 0,4 DC180 FP092830 | 16556 0602 00 0 07751 SLW B1020 DC190 FP092840 16557 0074 00 4 07570 TSX B0010,4 CONVERT TAG TO BINARY DC200 FP092850 | 16560 0500 00 0 07747 CLA B1000 DC270 FP092860 | 16561 0767 00 0 00017 ALS 15 DC280 FP092870 | 16562 -0320 00 0 20602 ANA DAD50 DC290 FP092880 | 16563 -0602 00 0 20532 ORS ITEMP ORS TAG DC300 FP092890 * FP092900 | * INTERPRET DECREMENT FP092910 | * FP092920 | 16564 -0520 00 0 20571 DC310 NZT DECCT INTERPRET DECR DC310 FP092930 | 16565 0020 00 0 17105 TRA DG010 TO MOVE DC311 FP092940 16566 0754 00 2 00000 PXA 0,2 DC312 FP092950 | 16567 0400 00 0 20567 ADD TAGCT DC320 FP092960 | 16570 0400 00 0 20603 ADD DAD60 ADD SIX FOR COMMA DC330 FP092970 | 16571 0734 00 2 00000 PAX 0,2 DC340 FP092980 | 16572 -2 00044 2 16574 TNX *+2,2,36 DC350 FP092990 16573 1 77777 1 16572 TXI *-1,1,-1 DC360 FP093000 | 16574 0634 00 2 16577 SXA *+3,2 DC370 FP093010 | 16575 -0500 00 1 00000 CAL 0,1 POSITION DECR IN MQ DC380 FP093020 | 16576 0560 00 1 00001 LDQ 1,1 DC390 FP093030 | 16577 -0763 00 0 00000 LGL 0 DC400 FP093040 16600 -0130 00 0 00000 XCL DC410 FP093050 | 16601 0520 00 0 20570 ZET DECSN DC420 FP093060 | 16602 -0763 00 0 00006 LGL 6 DC430 FP093070 | 16603 0754 00 0 00000 PXA 0,0 DC440 FP093080 | 16604 0535 00 4 20571 LAC DECCT,4 DC450 FP093090 1 LISTING OF 12/01/64 PAGE 201 | CALC (9PAC32). HAND CALCULATIONS | | 16605 -0763 00 4 00000 LGL 0,4 DC510 FP093100 | 16606 0602 00 0 07751 SLW B1020 DC520 FP093110 16607 0074 00 4 07570 TSX B0010,4 CONVERT DECR TO BINARY DC530 FP093120 | 16610 0500 00 0 07747 CLA B1000 DC550 FP093130 | 16611 -0520 00 0 20570 NZT DECSN DC560 FP093140 | 16612 0020 00 0 16615 TRA DC600 DC570 FP093150 | 16613 0760 00 0 00006 COM DC580 FP093160 16614 0400 00 0 20533 ADD DAONE DC590 FP093170 | 16615 0767 00 0 00022 DC600 ALS 18 DC600 FP093180 | 16616 -0320 00 0 20604 ANA DAD70 DC610 FP093190 | 16617 -0602 00 0 20532 ORS ITEMP ORS DECREMENT DC620 FP093200 | 16620 0020 00 0 17105 TRA DG010 TO MOVE DC630 FP093210 * FP093220 | * OCTAL OPERATION CODE FP093230 | * FP093240 | 16621 0534 00 4 20566 DC760 LXA ADDCT,4 INTERPRET OCT OP DC760 FP093250 | 16622 -3 00110 4 16625 TXL *+3,4,72 DC770 FP093260 16623 0074 00 4 10507 TSX T0010,4 FP093270 | 16624 -1 01141 2 14307 STR BB010,2,609 OCTOP ADDR OVER 12 BCD DC780 FP093280 | 16625 -0500 00 0 04623 CAL CARD+2 POSITION ADDRESS IN MQ DC790 FP093290 | 16626 0560 00 0 04624 LDQ CARD+3 DC800 FP093300 | 16627 -0765 00 0 00014 LGR 12 DC810 FP093310 16630 -0520 00 0 20565 NZT ADDSN DC820 FP093320 | 16631 -0765 00 0 00006 LGR 6 DC830 FP093330 | 16632 0754 00 0 00000 PXA 0,0 CLEAR AC DC860 FP093340 | 16633 2 00044 4 16645 TIX DD010,4,36 DC870 FP093350 | 16634 -0773 00 0 00003 DC880 RQL 3 DC880 FP093360 16635 -0763 00 0 00003 LGL 3 DC890 FP093370 | 16636 2 00006 4 16634 TIX *-2,4,6 DC900 FP093380 | 16637 -0602 00 0 20532 ORS ITEMP ORS RIGHT HALF OF MASK DC910 FP093390 | 16640 0754 00 0 00000 PXA 0,0 CLEAR AC DC920 FP093400 | 16641 -0500 00 0 20664 CAL DAI09 DC930 FP093410 16642 0520 00 0 20565 ZET ADDSN DC940 FP093420 | 16643 -0602 00 0 20532 ORS ITEMP SIGN BIT TO MASK DC950 FP093430 | 16644 0020 00 0 17105 TRA DG010 TO MOVE DC960 FP093440 | 16645 0634 00 4 20605 DD010 SXA DAD80,4 SOME LEFT MASK NEEDED DD010 FP093450 | 16646 -0773 00 0 00003 RQL 3 DD020 FP093460 16647 -0763 00 0 00003 LGL 3 DD030 FP093470 | 16650 2 00006 4 16646 TIX *-2,4,6 DD040 FP093480 | 16651 0767 00 0 00022 ALS 18 DD050 FP093490 | 16652 -0602 00 0 20532 ORS ITEMP ORS LEFT HALF MASK DD060 FP093500 | 16653 0500 00 0 20601 CLA DAD40 18 DD070 FP093510 16654 0402 00 0 20605 SUB DAD80 MINUS LEFT COUNT DD080 FP093520 | 16655 0100 00 0 16666 TZE DD180 TO CHANGE PICK UP WDS DD090 FP093530 | 16656 -0120 00 0 16666 TMI DD180 DD100 FP093540 | 16657 0621 00 0 16662 STA *+3 DD110 FP093550 | 16660 -0500 00 0 04623 CAL CARD+2 DD120 FP093560 16661 0560 00 0 04624 LDQ CARD+3 DD130 FP093570 | 16662 -0765 00 0 00000 LGR 0 DD140 FP093580 | 16663 0754 00 0 00000 DD150 PXA 0,0 CLEAR AC DD150 FP093590 | 16664 0774 00 4 00044 AXT 36,4 DD160 FP093600 | 16665 0020 00 0 16634 TRA DC880 TO CREATE RIGHT HALF OF MASDD170 FP093610 16666 0621 00 0 16671 DD180 STA *+3 DD180 FP093620 | 16667 -0500 00 0 04624 CAL CARD+3 FP093630 | 16670 0560 00 0 04625 LDQ CARD+4 FP093640 | 1 LISTING OF 12/01/64 PAGE 202 | CALC (9PAC32). HAND CALCULATIONS | 16671 -0763 00 0 00000 LGL 0 DD210 FP093650 | 16672 -0130 00 0 00000 XCL DD220 FP093660 | 16673 0020 00 0 16663 TRA DD150 DD230 FP093670 | * FP093680 * OCTAL ADDRESS FP093690 | * FP093700 | 16674 0534 00 4 20566 DD260 LXA ADDCT,4 INTERPRET OCTAD DD260 FP093710 | 16675 -3 00044 4 16700 TXL *+3,4,36 DD270 FP093720 | 16676 0074 00 4 10507 TSX T0010,4 FP093730 16677 -1 01142 2 14307 STR BB010,2,610 OCT ADDR OVER 6 BCD DD280 FP093740 | 16700 -0500 00 0 04623 CAL CARD+2 DD290 FP093750 | 16701 0560 00 0 04624 LDQ CARD+3 DD300 FP093760 | 16702 -0765 00 0 00022 LGR 18 DD310 FP093770 | 16703 0754 00 0 00000 PXA 0,0 DD320 FP093780 16704 -0773 00 0 00003 RQL 3 DD330 FP093790 | 16705 -0763 00 0 00003 LGL 3 DD340 FP093800 | 16706 2 00006 4 16704 TIX *-2,4,6 DD350 FP093810 | 16707 -0602 00 0 20532 ORS ITEMP ORS OCT ADDRESS DD360 FP093820 | 16710 0020 00 0 17105 TRA DG010 TO MOVE DD370 FP093830 * FP093840 | * BCI FP093850 | * FP093860 | 16711 0074 00 4 10507 DD399 TSX T0010,4 DD399 FP093870 | 16712 -1 01143 2 14307 STR BB010,2,611 REQUESTED 9 OR MORE BCI FP093880 16713 -0500 00 0 04623 DD400 CAL CARD+2 INTERPRET BCI DD400 FP093890 | 16714 0560 00 0 04624 LDQ CARD+3 DD410 FP093900 | 16715 -0765 00 0 00022 LGR 18 DD420 FP093910 | 16716 0754 00 0 00000 PXA 0,0 DD430 FP093920 | 16717 -0763 00 0 00006 LGL 6 1ST CHAR DD440 FP093930 16720 -0340 00 0 20577 LAS DAD20 DD450 FP093940 | 16721 0020 00 0 16711 TRA DD399 DD460 FP093950 | 16722 0020 00 0 16711 TRA DD399 DD510 FP093960 | 16723 0734 00 2 00000 PAX 0,2 DD520 FP093970 | 16724 0754 00 0 00000 PXA 0,0 CLEAR AC DD530 FP093980 16725 -0763 00 0 00006 LGL 6 DD540 FP093990 | 16726 -0340 00 0 20574 LAS DCOMM COMPARE 2ND CHAR TO COMMA DD550 FP094000 | 16727 0020 00 0 16731 TRA *+2 DD560 FP094010 | 16730 0020 00 0 16733 TRA *+3 DD570 FP094020 | 16731 0074 00 4 10507 TSX T0010,4 FP094030 16732 -1 01144 2 14307 STR BB010,2,612 NO COMMA AFTER BCI COUNT DD580 FP094040 | 16733 -0774 00 1 04623 AXC CARD+2,1 DD590 FP094050 | 16734 -0500 00 1 00000 DD600 CAL 0,1 DD600 FP094060 | 16735 0560 00 1 00001 LDQ 1,1 DD610 FP094070 | 16736 -0763 00 0 00036 LGL 30 DD620 FP094080 16737 0602 00 0 20532 SLW ITEMP DD630 FP094090 | 16740 0520 00 0 20535 ZET DAA70 TEST CONSTANT SWITCH DD640 FP094100 | 16741 0020 00 0 16745 TRA *+4 DD641 FP094110 | 16742 0074 00 4 11413 TSX PRGMR,4 DD642 FP094120 | 16743 0 00000 0 00000 PZE DD643 FP094130 16744 0020 00 0 16746 TRA *+2 DD644 FP094140 | 16745 0074 00 4 11426 TSX STORR,4 DD645 FP094150 | 16746 0520 00 0 20536 ZET DAA80 TEST NO SUMBOL SWITCH DD646 FP094160 | 16747 0074 00 4 16043 TSX SYMBL,4 DD647 FP094170 | 16750 2 00001 2 16752 DD660 TIX *+2,2,1 DD660 FP094180 16751 0020 00 0 14307 TRA BB010 DD670 FP094190 | 1 LISTING OF 12/01/64 PAGE 203 | CALC (9PAC32). HAND CALCULATIONS | | 16752 1 77777 1 16753 TXI *+1,1,-1 MOVE SUBSEQUENT BCI WORDS DD680 FP094200 16753 -0500 00 1 00000 CAL 0,1 DD690 FP094210 | 16754 0560 00 1 00001 LDQ 1,1 DD700 FP094220 | 16755 -0763 00 0 00036 LGL 30 DD710 FP094230 | 16756 0520 00 0 20535 ZET DAA70 TEST CONSTANT SWITCH DD720 FP094240 | 16757 0020 00 0 16763 TRA *+4 DD730 FP094250 16760 0074 00 4 11413 TSX PRGMR,4 DD732 FP094260 | 16761 0 00000 0 00000 PZE DD733 FP094270 | 16762 0020 00 0 16750 TRA DD660 DD734 FP094280 | 16763 0074 00 4 11426 TSX STORR,4 DD740 FP094290 | 16764 0020 00 0 16750 TRA DD660 DD742 FP094300 * FP094310 | * OCTAL 52 ADDRESS FP094320 | * FP094330 | 16765 -0765 00 0 00006 DD760 LGR 6 INTERPRET ! ADDRESS DD760 FP094340 | 16766 -0625 00 0 20543 STL DAA91 SET YADDR SWITCH TO ON DD770 FP094350 16767 0754 00 0 00000 PXA 0,0 CLEAR AC DD790 FP094360 | 16770 -0763 00 0 00030 LGL 24 DD800 FP094370 | 16771 0520 00 0 20565 ZET ADDSN DD801 FP094380 | 16772 -0760 00 0 00003 SSM DD802 FP094390 | 16773 0601 00 0 20606 STO DAD90 STORE SYMBOLIC CODE DD810 FP094400 16774 -0320 00 0 10726 ANA BCD01 DD820 FP094410 | 16775 -0340 00 0 20611 LAS DAE10 COMPARE TO J DD830 FP094420 | 16776 0020 00 0 17000 TRA *+2 DD840 FP094430 | 16777 0020 00 0 17005 TRA *+6 IS DD850 FP094440 | 17000 -0340 00 0 20612 LAS DAE20 COMPARE TO P DD860 FP094450 17001 0020 00 0 17003 TRA *+2 DD870 FP094460 | 17002 0020 00 0 17005 TRA *+3 IS DD880 FP094470 | 17003 0074 00 4 10507 TSX T0010,4 FP094480 | 17004 -1 01145 2 14307 STR BB010,2,613 SYMBOLIC TRANSFER TO NON CALC DD890 FP094490 | 17005 0754 00 0 00000 PXA 0,0 CLEAR AC DD900 FP094500 17006 0534 00 4 20566 LXA ADDCT,4 DD910 FP094510 | 17007 3 00027 4 17012 TXH *+3,4,23 DD920 FP094520 | 17010 0074 00 4 10507 TSX T0010,4 FP094530 | 17011 -1 01146 2 14307 STR BB010,2,614 SYMBOLIC CODE NOT 4 BCD DD930 FP094540 | 17012 -3 00030 4 16534 TXL DC010,4,24 GO TO INTEPRET TAG, DECR DD940 FP094550 17013 -0763 00 0 00006 LGL 6 DD950 FP094560 | 17014 -0340 00 0 20614 LAS DAE30 DE010 FP094570 | 17015 0020 00 0 17017 TRA *+2 DE020 FP094580 | 17016 0020 00 0 17021 TRA *+3 DE030 FP094590 | 17017 0074 00 4 10507 TSX T0010,4 FP094600 17020 -1 01147 2 14307 STR BB010,2,615 INVALID CHAR AFTER SYMB CODE DE040 FP094610 | 17021 -0500 00 0 04624 CAL CARD+3 DE050 FP094620 | 17022 0560 00 0 04625 LDQ CARD+4 DE060 FP094630 | 17023 -0765 00 0 00022 LGR 18 DE070 FP094640 | 17024 -0520 00 0 20565 NZT ADDSN DE080 FP094650 17025 -0765 00 0 00006 LGR 6 DE090 FP094660 | 17026 0754 00 0 00000 PXA 0,0 DE091 FP094670 | 17027 1 77742 4 17030 TXI *+1,4,-30 DE100 FP094680 | 17030 0634 00 4 17031 SXA *+1,4 DE110 FP094690 | 17031 -0763 00 0 00000 LGL 0 DE120 FP094700 17032 0602 00 0 07751 SLW B1020 DE130 FP094710 | 17033 0074 00 4 07570 TSX B0010,4 DE140 FP094720 | 17034 0500 00 0 07747 CLA B1000 DE160 FP094730 | 17035 -0320 00 0 20600 ANA DAD30 DE170 FP094740 | 1 LISTING OF 12/01/64 PAGE 204 CALC (9PAC32). HAND CALCULATIONS | | 17036 -0602 00 0 20532 ORS ITEMP SYMBOLIC REL. CT. TO INSTR DE180 FP094750 | 17037 0020 00 0 16534 TRA DC010 TO INTEPRET TAG, DECR DE190 FP094760 | * FP094770 * ADDRESS IS * PLUS OR MINUS FP094780 | * FP094790 | 17040 0754 00 0 00000 DE260 PXA 0,0 INTERPRET * RELATIVE DE260 FP094800 | 17041 -0763 00 0 00006 LGL 6 DE270 FP094810 | 17042 -0340 00 0 20614 LAS DAE30 COMPARE TO PLUS DE280 FP094820 17043 0020 00 0 17045 TRA *+2 DE290 FP094830 | 17044 0020 00 0 17054 TRA DE380 DE300 FP094840 | 17045 -0340 00 0 20572 LAS DAC60 COMPARE TO MINUS DE310 FP094850 | 17046 0020 00 0 17050 TRA *+2 DE320 FP094860 | 17047 0020 00 0 17051 TRA *+2 DE330 FP094870 17050 0020 00 0 17074 TRA DE600 NO SIGN IN ADDRESS RELATIVEDE340 FP094880 | 17051 0500 00 0 20565 CLA ADDSN DE350 FP094890 | 17052 -0760 00 0 00003 SSM DE360 FP094900 | 17053 0601 00 0 20565 STO ADDSN DE370 FP094910 | 17054 0534 00 4 20566 DE380 LXA ADDCT,4 DE380 FP094920 17055 1 77764 4 17056 TXI *+1,4,-12 DE390 FP094930 | 17056 -0500 00 0 04623 CAL CARD+2 DE400 FP094940 | 17057 0560 00 0 04624 LDQ CARD+3 DE410 FP094950 | 17060 -0765 00 0 00006 LGR 6 DE420 FP094960 | 17061 0754 00 0 00000 PXA 0,0 DE430 FP094970 17062 0634 00 4 17063 SXA *+1,4 DE440 FP094980 | 17063 -0763 00 0 00000 LGL 0 DE450 FP094990 | 17064 0602 00 0 07751 SLW B1020 DE510 FP095000 | 17065 0074 00 4 07570 TSX B0010,4 DE520 FP095010 | 17066 0500 00 0 07747 CLA B1000 DE540 FP095020 17067 -0501 00 0 20565 ORA ADDSN DE550 FP095030 | 17070 0602 00 0 20607 SLW DAD91 STORE FOR PADDR USE DE560 FP095040 | 17071 0600 00 0 20565 STZ ADDSN DE561 FP095050 | 17072 -0625 00 0 20544 STL DAA93 SET PADDR SIGN ON DE570 FP095060 | 17073 0020 00 0 16534 TRA DC010 TO INTERPRET TAG, DECR DE590 FP095070 17074 0500 00 0 20566 DE600 CLA ADDCT COMPARE ADDCT TO 1 DE600 FP095080 | 17075 -0340 00 0 20603 LAS DAD60 DE610 FP095090 | 17076 0020 00 0 17102 TRA *+4 DE620 FP095100 | 17077 0020 00 0 17102 TRA *+3 DE630 FP095110 | 17100 0074 00 4 10507 TSX T0010,4 FP095120 17101 -1 01150 2 14307 STR BB010,2,616 INVALID * ADDRESS DE640 FP095130 | 17102 0600 00 0 20607 STZ DAD91 STORE FOR PADDR USE DE650 FP095140 | 17103 -0625 00 0 20544 STL DAA93 SET PADDR SIGN ON DE660 FP095150 | 17104 0020 00 0 16534 TRA DC010 TO INTERPRET TAG, DECR DE670 FP095160 | * FP095170 * MOVE INSTRUCTION TO OBJECT PROGRAM FP095180 | * FP095190 | 17105 -0500 00 0 20532 DG010 CAL ITEMP MOVE TO OBJ PROG DG010 FP095200 | 17106 0520 00 0 20535 ZET DAA70 TEST CONSTANT SWITCH DG020 FP095210 | 17107 0020 00 0 17113 TRA *+4 DG030 FP095220 17110 0074 00 4 11413 TSX PRGMR,4 DG040 FP095230 | 17111 0 00000 0 00000 PZE DG050 FP095240 | 17112 0020 00 0 17114 TRA *+2 DG051 FP095250 | 17113 0074 00 4 11426 TSX STORR,4 DG060 FP095260 | 17114 0520 00 0 20536 ZET DAA80 TEST NO SUMBOL SWITCH DG070 FP095270 17115 0074 00 4 16043 TSX SYMBL,4 DG080 FP095280 | 17116 -0520 00 0 20543 NZT DAA91 TEST YADDR SWITCH DG140 FP095290 | 1 LISTING OF 12/01/64 PAGE 205 | CALC (9PAC32). HAND CALCULATIONS | 17117 0020 00 0 17123 TRA *+4 DG150 FP095300 | 17120 0500 00 0 20606 CLA DAD90 LOAD SYMBOLIC CODE DG160 FP095310 | 17121 0074 00 4 11507 TSX YADDR,4 DG170 FP095320 | 17122 0020 00 0 14307 TRA BB010 BACK TO READ DG171 FP095330 | 17123 -0520 00 0 20544 NZT DAA93 TEST PADDR SWITCH DG180 FP095340 17124 0020 00 0 17130 TRA *+4 DG190 FP095350 | 17125 0500 00 0 20607 CLA DAD91 LOAD RELATIVE COUNT DG200 FP095360 | 17126 0074 00 4 11465 TSX PADDR,4 DG210 FP095370 | 17127 0020 00 0 14307 TRA BB010 BACK TO READ DG230 FP095380 | 17130 -0520 00 0 20537 NZT DAA90 TEST ADDRESS SYMBOLIC SWITCDG260 FP095390 17131 0020 00 0 14307 TRA BB010 TO READ AGAIN DG270 FP095400 | 17132 -0774 00 1 04621 AXC CARD,1 TEST FOR REL ADDR DG300 FP095410 | 17133 0774 00 4 00000 AXT 0,4 FP095420 | 17134 0774 00 2 00006 DG305 AXT 6,2 DG305 FP095430 | 17135 -0500 00 1 00002 CAL 2,1 DG310 FP095440 17136 0560 00 1 00003 LDQ 3,1 DG315 FP095450 | 17137 -0765 00 0 00022 LGR 18 DG320 FP095460 | 17140 0754 00 0 00000 PXA 0,0 DG330 FP095470 | 17141 -0763 00 0 00006 LGL 6 DG335 FP095480 | 17142 0020 00 0 17147 TRA DG365 DG340 FP095490 17143 2 00001 2 17145 DG345 TIX DG355,2,1 DG345 FP095500 | 17144 1 77777 1 17134 TXI DG305,1,-1 DG350 FP095510 | 17145 0754 00 0 00000 DG355 PXA 0,0 DG355 FP095520 | 17146 -0763 00 0 00006 LGL 6 DG360 FP095530 | 17147 -0340 00 0 20622 DG365 LAS DAE70 DG365 FP095540 17150 0020 00 0 17152 TRA *+2 DG370 FP095550 | 17151 0020 00 0 17164 TRA DG435 IS BLANK DG375 FP095560 | 17152 -0340 00 0 20574 LAS DCOMM DG380 FP095570 | 17153 0020 00 0 17155 TRA *+2 DG385 FP095580 | 17154 0020 00 0 17164 TRA DG435 IS COMMA DG390 FP095590 17155 -0340 00 0 20614 LAS DAE30 DG395 FP095600 | 17156 0020 00 0 17160 TRA *+2 DG400 FP095610 | 17157 0020 00 0 17170 TRA DG460 IS PLUS DG405 FP095620 | 17160 -0340 00 0 20572 LAS DAC60 DG410 FP095630 | 17161 0020 00 0 17163 TRA *+2 DG415 FP095640 17162 0020 00 0 17172 TRA DG470 IS MINUS DG420 FP095650 | 17163 1 00006 4 17143 TXI DG345,4,6 DG425 FP095660 | * DG430 FP095670 | 17164 0600 00 0 20540 DG435 STZ DAA95 SET SWITCHES DG435 FP095680 | 17165 0600 00 0 20541 STZ DAA96 NOT RELATIVE ADDRESSING DG440 FP095690 17166 0634 00 4 17231 SXA DG595,4 DG445 FP095700 | 17167 0020 00 0 17222 TRA DG560 DG450 FP095710 | * DG455 FP095720 | 17170 0600 00 0 20542 DG460 STZ DAA97 DG460 FP095730 | 17171 0020 00 0 17173 TRA *+2 DG465 FP095740 17172 -0625 00 0 20542 DG470 STL DAA97 DG470 FP095750 | 17173 0634 00 4 17231 SXA DG595,4 DG475 FP095760 | 17174 1 00006 4 17175 TXI *+1,4,6 DG480 FP095770 | 17175 -0763 00 4 00044 LGL 36,4 DG482 FP095780 | 17176 0602 00 0 20610 SLW DAD92 DG484 FP095790 17177 -0500 00 1 00003 CAL 3,1 DG486 FP095800 | 17200 0560 00 1 00004 LDQ 4,1 DG488 FP095810 | 17201 -0765 00 0 00022 LGR 18 DG490 FP095820 | 17202 -0500 00 0 20610 CAL DAD92 DG492 FP095830 | 17203 -0765 00 4 00044 LGR 36,4 DG494 FP095840 1 LISTING OF 12/01/64 PAGE 206 | CALC (9PAC32). HAND CALCULATIONS | | 17204 0754 00 4 00000 PXA 0,4 DG496 FP095850 | 17205 -0760 00 0 00003 SSM DG498 FP095860 17206 0400 00 0 20566 ADD ADDCT DG500 FP095870 | 17207 0734 00 4 00000 PAX 0,4 DG502 FP095880 | 17210 0754 00 0 00000 PXA 0,0 DG505 FP095890 | 17211 -0763 00 0 00006 LGL 6 DG510 FP095900 | 17212 2 00006 4 17211 TIX *-1,4,6 DG515 FP095910 17213 0602 00 0 07751 SLW B1020 DG520 FP095920 | 17214 0074 00 4 07570 TSX B0010,4 DG525 FP095930 | 17215 -0500 00 0 07747 CAL B1000 DG530 FP095940 | 17216 0520 00 0 20542 ZET DAA97 DG535 FP095950 | 17217 -0760 00 0 00003 SSM DG540 FP095960 17220 0601 00 0 20541 STO DAA96 RELATIVE COUNT DG545 FP095970 | 17221 -0625 00 0 20540 STL DAA95 DG550 FP095980 | * DG555 FP095990 | 17222 0534 00 4 17231 DG560 LXA DG595,4 DG560 FP096000 | 17223 -3 00036 4 17225 TXL DG575,4,30 DG565 FP096010 17224 0074 00 4 17305 TSX DG840,4 IS SYMBOL IN SPECIAL TABLE DG570 FP096020 | 17225 -0500 00 0 04623 DG575 CAL CARD+2 DG575 FP096030 | 17226 0560 00 0 04624 LDQ CARD+3 DG580 FP096040 | 17227 -0765 00 0 00022 LGR 18 DG585 FP096050 | 17230 -0500 00 0 20573 CAL DBLNK DG590 FP096060 17231 -0763 00 0 00000 DG595 LGL ** DG595 FP096070 | 17232 -0320 00 0 10764 ANA BCD37 DG600 FP096080 | 17233 0074 00 4 16071 TSX DF960,4 COMPARE TO GFP SYMBOL DG605 FP096090 | 17234 0020 00 0 17243 TRA DG650 NOT FOUND DG610 FP096100 | 17235 -0500 00 4 00001 CAL 1,4 WAS FOUND--MOVE ADDR DG615 FP096110 17236 -0774 00 4 57563 AXC OBPGM+1,4 DG620 FP096120 | 17237 0520 00 0 20540 ZET DAA95 DG625 FP096130 | 17240 0400 00 0 20541 ADD DAA96 DG630 FP096140 | 17241 0621 60 0 11423 STA* F0080 DG635 FP096150 | 17242 0020 00 0 14307 TRA BB010 DG640 FP096160 * DG645 FP096170 | 17243 0074 00 4 16106 DG650 TSX DF980,4 COMPARE TO ALREADY DEFINED DG650 FP096180 | 17244 0020 00 0 17264 TRA DG750 NOT FOUND DG655 FP096190 | 17245 -0120 00 0 17257 TMI DG715 DG660 FP096200 | 17246 -0500 00 0 11423 CAL F0080 WAS ALREADY DEFINED DG665 FP096210 17247 -0320 00 0 20600 ANA DAD30 DG670 FP096220 | 17250 0402 00 4 00001 SUB 1,4 DG675 FP096230 | 17251 0100 00 0 17253 TZE *+2 DG680 FP096240 | 17252 -0760 00 0 00003 SSM DG685 FP096250 | 17253 0520 00 0 20540 ZET DAA95 DG690 FP096260 17254 0400 00 0 20541 ADD DAA96 DG695 FP096270 | 17255 0074 00 4 11465 TSX PADDR,4 DG700 FP096280 | 17256 0020 00 0 14307 TRA BB010 DG705 FP096290 | * DG710 FP096300 | 17257 -0500 00 4 00001 DG715 CAL 1,4 ALREADY DEFINED AS C DG715 FP096310 17260 0520 00 0 20540 ZET DAA95 DG720 FP096320 | 17261 0400 00 0 20541 ADD DAA96 DG725 FP096330 | 17262 0074 00 4 11455 TSX SADDR+1,4 DG730 FP096340 | 17263 0020 00 0 14307 TRA BB010 DG735 FP096350 | * DG740 FP096360 * DG745 FP096370 | 17264 -0500 00 0 20623 DG750 CAL DAE80 NOT YET DEFINED DG750 FP096380 | 17265 0534 00 4 17274 LXA DG785,4 DG755 FP096390 | 1 LISTING OF 12/01/64 PAGE 207 | CALC (9PAC32). HAND CALCULATIONS | 17266 1 00003 4 17267 TXI *+1,4,3 DG760 FP096400 | 17267 -3 02252 4 17272 TXL *+3,4,NYDEFZ-6 DG765 FP096410 | 17270 0074 00 4 10507 TSX T0010,4 FP096420 | 17271 -1 11704 5 00000 STR 0,5,5060 EXCEEDS NYDEF TABLE DG770 FP096430 17272 0634 00 4 17274 SXA DG785,4 DG775 FP096440 | 17273 -0774 00 4 51323 AXC NYDEF-3,4 DG780 FP096450 | 17274 0602 00 4 00000 DG785 SLW **,4 DG785 FP096460 | 17275 -0500 00 0 11423 CAL F0080 DG790 FP096470 | 17276 -0320 00 0 20600 ANA DAD30 DG795 FP096480 17277 -0774 00 4 51324 AXC NYDEF-2,4 DG800 FP096490 | 17300 0601 60 0 17274 STO* DG785 DG805 FP096500 | 17301 0500 00 0 20541 CLA DAA96 DG810 FP096510 | 17302 -0774 00 4 51325 AXC NYDEF-1,4 DG815 FP096520 | 17303 0601 60 0 17274 STO* DG785 DG820 FP096530 17304 0020 00 0 14307 TRA BB010 DG825 FP096540 | 17305 0634 00 4 17321 DG840 SXA DG851,4 IS SIX CHARACTER SYMBOL IN THE DG840 FP096550 | 17306 -0500 00 0 04623 CAL CARD+2 SPECIAL TABLE OF ALLOWABLE SIX DG841 FP096560 | 17307 0560 00 0 04624 LDQ CARD+3 CHARQCTER SYMBOLS DG842 FP096570 | 17310 -0763 00 0 00022 LGL 18 DG843 FP096580 17311 -0774 00 4 21551 AXC SIXCH,4 DG844 FP096590 | 17312 -0340 00 4 00000 DG845 LAS 0,4 DG845 FP096600 | 17313 0020 00 0 17315 TRA *+2 LOOK AGAIN DG846 FP096610 | 17314 0020 00 0 17321 TRA DG851 FOUND DG847 FP096620 | 17315 1 77777 4 17316 TXI *+1,4,-1 DG848 FP096630 17316 3 56215 4 17312 TXH DG845,4,-SIXCH-SIXCHZ DG849 FP096640 | 17317 0074 00 4 10507 TSX T0010,4 FP096650 | 17320 -1 01136 2 14307 STR BB010,2,606 MORE THAN 5CHAR IN CALC ADD FP096660 | 17321 0774 00 4 00000 DG851 AXT **,4 DG851 FP096670 | 17322 0020 00 4 00001 TRA 1,4 DG852 FP096680 * FP096690 | * GET FP096700 | * FP096710 | 17323 -0500 00 0 04623 DH010 CAL CARD+2 GET PSEUDO-OP DH010 FP096720 | 17324 0560 00 0 04624 LDQ CARD+3 DH020 FP096730 17325 -0765 00 0 00022 LGR 18 DH030 FP096740 | 17326 0754 00 0 00000 PXA 0,0 DH040 FP096750 | 17327 -0763 00 0 00014 LGL 12 REC TYPE TO AC DH050 FP096760 | 17330 0602 00 0 20647 SLW DAG80 DH051 FP096770 | 17331 -0340 00 0 20630 LAS DAF30 CHECK FOR CURRENT SF DH060 FP096780 17332 0020 00 0 17356 TRA DH285 DH070 FP096790 | 17333 0020 00 0 17425 TRA DH760 TO CURRENT DH080 FP096800 | 17334 -0625 00 0 20637 STL DAG10 SET G.H. SW ON DH081 FP096810 | 17335 0602 00 0 17337 SLW *+2 FROM A PREVIOUS G.H. DH090 FP096820 | 17336 0074 00 4 13253 TSX D5010,4 DH100 FP096830 17337 0 00000 0 00000 PZE DH110 FP096840 | 17340 -0500 00 0 04623 CAL CARD+2 DH120 FP096850 | 17341 0560 00 0 04624 LDQ CARD+3 DH121 FP096860 | 17342 -0763 00 0 00022 LGL 18 DH122 FP096870 | 17343 -0320 00 0 10744 ANA BCD17 DH130 FP096880 17344 0602 00 0 17346 SLW *+2 DH140 FP096890 | 17345 0074 00 4 13656 TSX E5010,4 DH150 FP096900 | 17346 0 00000 0 00000 PZE DH160 FP096910 | 17347 0441 00 2 00002 DH170 LDI 2,2 TEST MODE DH170 FP096920 | 17350 -0056 00 000100 LNT 100 DH180 FP096930 17351 0020 00 0 17362 TRA DH320 TO BINARY DH190 FP096940 | 1 LISTING OF 12/01/64 PAGE 208 | CALC (9PAC32). HAND CALCULATIONS | | 17352 -0054 00 000001 LFT 1 BCD DH200 FP096950 17353 0020 00 0 17360 TRA DH290 TO PACKED DH210 FP096960 | 17354 -0500 00 0 20632 CAL DAF50 UNPACKED BCD DH260 FP096970 | 17355 0020 00 0 17363 TRA DH330 DH280 FP096980 | 17356 0074 00 4 10507 DH285 TSX T0010,4 DH285 FP096990 | 17357 -1 01151 2 14307 STR BB010,2,617 GET REQ FOR HIGHER RT FP097000 17360 -0500 00 0 20633 DH290 CAL DAF60 PACKED BCD DH290 FP097010 | 17361 0020 00 0 17363 TRA DH330 DH310 FP097020 | 17362 -0500 00 0 20631 DH320 CAL DAF40 BINARY DH320 FP097030 | 17363 0602 00 0 20532 DH330 SLW ITEMP DH330 FP097040 | 17364 -0520 00 0 20535 DH390 NZT DAA70 TEST CONSTANT SWITCH DH390 FP097050 17365 0020 00 0 17370 TRA *+3 FP097060 | 17366 0074 00 4 10507 TSX T0010,4 FP097070 | 17367 -1 01152 2 14307 STR BB010,2,618 GET DEFINED AS CONSTANT DH400 FP097080 | 17370 -0500 00 0 20532 CAL ITEMP DH410 FP097090 | 17371 -0501 00 0 17373 ORA *+2 DH415 FP097100 17372 0074 00 4 11413 TSX PRGMR,4 MOVE TO OBJ PROGRAM DH420 FP097110 | 17373 0074 00 4 00000 TSX 0,4 DH430 FP097120 | 17374 0520 00 0 20536 ZET DAA80 TEST NO SYMBOL SWITCH DH440 FP097130 | 17375 0074 00 4 16043 TSX SYMBL,4 DH450 FP097140 | 17376 0520 00 0 20637 ZET DAG10 TEST G.H. SWITCH DH510 FP097150 17377 0020 00 0 17434 TRA DH830 DH520 FP097160 | 17400 0500 00 0 17402 CLA *+2 IS CURRENT REC TYPE DH530 FP097170 | 17401 0074 00 4 11413 TSX PRGMR,4 MOVE REC TYPE LOCATION WORDDH540 FP097180 | 17402 0 00000 0 17301 PZE SFLOC DH550 FP097190 | 17403 -0056 00 000100 DH560 LNT 100 TEST MODE AGAIN DH560 FP097200 17404 0020 00 0 17420 TRA DH680 TO BINARY DH570 FP097210 | 17405 0500 00 0 13612 CLA E1004 DH580 FP097220 | 17406 0074 00 4 11413 TSX PRGMR,4 MOVE BCD CONSTANTS DH590 FP097230 | 17407 0 00000 0 00000 PZE DH600 FP097240 | 17410 0500 00 0 13613 CLA E1005 DH610 FP097250 17411 -0501 00 0 17413 ORA *+2 COMBINE WITH TAG DH611 FP097260 | 17412 0074 00 4 11413 TSX PRGMR,4 DH620 FP097270 | 17413 0 00000 2 00000 PZE 0,2 DH630 FP097280 | 17414 0500 00 0 13614 CLA E1006 DH640 FP097290 | 17415 0074 00 4 11413 TSX PRGMR,4 DH650 FP097300 17416 0 00000 0 00000 PZE DH660 FP097310 | 17417 0020 00 0 14307 TRA BB010 BACK TO READ DH670 FP097320 | 17420 0500 00 0 13613 DH680 CLA E1005 DH680 FP097330 | 17421 -0501 00 0 17423 ORA *+2 COMBINE WITH TAG DH681 FP097340 | 17422 0074 00 4 11413 TSX PRGMR,4 MOVE BINARY WD = DH690 FP097350 17423 0 00000 2 00000 PZE 0,2 DH700 FP097360 | 17424 0020 00 0 14307 TRA BB010 DH710 FP097370 | 17425 0600 00 0 20637 DH760 STZ DAG10 G.H. SW TO OFF DH760 FP097380 | 17426 0754 00 0 00000 PXA 0,0 DH770 FP097390 | 17427 -0763 00 0 00030 LGL 24 DH780 FP097400 17430 0602 00 0 17432 SLW *+2 DH790 FP097410 | 17431 0074 00 4 13550 TSX E0010,4 DH800 FP097420 | 17432 0 00000 0 00000 PZE DH810 FP097430 | 17433 0020 00 0 17347 TRA DH170 DH820 FP097440 | 17434 0500 00 0 17436 DH830 CLA *+2 DH830 FP097450 17435 0074 00 4 11413 TSX PRGMR,4 MOVE 0 WORD TO OBJ PROG DH840 FP097460 | 17436 0 00000 0 00000 PZE DH850 FP097470 | 17437 -0500 00 0 20647 CAL DAG80 LOAD REC TYPE DH860 FP097480 | 17440 0074 00 4 11517 TSX LADDR,4 DH870 FP097490 | 1 LISTING OF 12/01/64 PAGE 209 CALC (9PAC32). HAND CALCULATIONS | | 17441 -0056 00 000100 LNT 100 TEST MODE AGAIN DH880 FP097500 | 17442 0020 00 0 17456 TRA DH945 DH885 FP097510 | 17443 0500 00 0 13720 CLA E6004 MORE BCD CONSTANTS DH890 FP097520 17444 0074 00 4 11413 TSX PRGMR,4 DH895 FP097530 | 17445 0 00000 0 00000 PZE DH900 FP097540 | 17446 0500 00 0 13721 CLA E6005 DH905 FP097550 | 17447 -0501 00 0 17451 ORA *+2 DH910 FP097560 | 17450 0074 00 4 11413 TSX PRGMR,4 DH915 FP097570 17451 0 00000 2 00000 PZE 0,2 DH920 FP097580 | 17452 0500 00 0 13722 CLA E6006 DH925 FP097590 | 17453 0074 00 4 11413 TSX PRGMR,4 DH930 FP097600 | 17454 0 00000 0 00000 PZE DH935 FP097610 | 17455 0020 00 0 14307 TRA BB010 TO READ DH940 FP097620 17456 0500 00 0 13721 DH945 CLA E6005 MOVE BINARY CONSTANT DH945 FP097630 | 17457 -0501 00 0 17461 ORA *+2 DH950 FP097640 | 17460 0074 00 4 11413 TSX PRGMR,4 DH955 FP097650 | 17461 0 00000 2 00000 PZE 0,2 DH960 FP097660 | 17462 0020 00 0 14307 TRA BB010 TO READ DH965 FP097670 * FP097680 | * PUT FP097690 | * FP097700 | 17463 -0500 00 0 04623 DI010 CAL CARD+2 PUT PSEUDO-OP DI010 FP097710 | 17464 0560 00 0 04624 LDQ CARD+3 DI020 FP097720 17465 -0765 00 0 00022 LGR 18 DI030 FP097730 | 17466 0754 00 0 00000 PXA 0,0 DI040 FP097740 | 17467 -0763 00 0 00014 LGL 12 DI050 FP097750 | 17470 -0340 00 0 20630 LAS DAF30 DI060 FP097760 | 17471 0020 00 0 17473 TRA *+2 DI070 FP097770 17472 0020 00 0 17475 TRA *+3 DI080 FP097780 | 17473 0074 00 4 10507 TSX T0010,4 FP097790 | 17474 -1 01202 2 14307 STR BB010,2,642 NOT EQUAL TO CURRENT REC TYPE DI090 FP097800 | 17475 0754 00 0 00000 PXA 0,0 DI100 FP097810 | 17476 -0763 00 0 00030 LGL 24 DI110 FP097820 17477 0602 00 0 17501 SLW *+2 DI120 FP097830 | 17500 0074 00 4 13550 TSX E0010,4 DI130 FP097840 | 17501 0 00000 0 00000 PZE DI140 FP097850 | 17502 0441 00 2 00002 LDI 2,2 TEST MODE DI150 FP097860 | 17503 -0056 00 000100 LNT 100 DI160 FP097870 17504 0020 00 0 17513 TRA DI290 TO BINARY DI170 FP097880 | 17505 -0054 00 000001 LFT 1 DI180 FP097890 | 17506 0020 00 0 17511 TRA DI270 TO PACKED DI190 FP097900 | 17507 -0500 00 0 20635 CAL DAF80 IS UNPACKED DI200 FP097910 | 17510 0020 00 0 17514 TRA DI300 DI260 FP097920 17511 -0500 00 0 20636 DI270 CAL DAF90 DI270 FP097930 | 17512 0020 00 0 17514 TRA DI300 DI280 FP097940 | 17513 -0500 00 0 20634 DI290 CAL DAF70 DI290 FP097950 | 17514 0602 00 0 20532 DI300 SLW ITEMP DI300 FP097960 | 17515 -0500 00 0 20552 CAL DAB35 LOAD TSX DI310 FP097970 17516 -0602 00 0 20532 ORS ITEMP DI320 FP097980 | 17517 -0520 00 0 20535 DI390 NZT DAA70 DI390 FP097990 | 17520 0020 00 0 17523 TRA *+3 FP098000 | 17521 0074 00 4 10507 TSX T0010,4 FP098010 | 17522 -1 01153 2 14307 STR BB010,2,619 PUT DEFINED AS CONSTANT DI400 FP098020 17523 -0500 00 0 20532 CAL ITEMP DI410 FP098030 | 17524 0074 00 4 11413 TSX PRGMR,4 MOVE TO OBJ PROGRAM DI420 FP098040 | 1 LISTING OF 12/01/64 PAGE 210 | CALC (9PAC32). HAND CALCULATIONS | 17525 0 00000 0 00000 PZE DI430 FP098050 | 17526 0520 00 0 20536 ZET DAA80 TEST NO SYMBOL SWITCH DI440 FP098060 | 17527 0074 00 4 16043 TSX SYMBL,4 DI450 FP098070 | 17530 -0056 00 000100 LNT 100 TEST MODE AGAIN DI510 FP098080 | 17531 0020 00 0 17545 TRA DI640 TO BINARY PUT DI520 FP098090 17532 0500 00 0 13612 CLA E1004 MOVE BCD CONSTANTS DI530 FP098100 | 17533 0074 00 4 11413 TSX PRGMR,4 DI540 FP098110 | 17534 0 00000 0 00000 PZE 0 DI550 FP098120 | 17535 0500 00 0 13613 CLA E1005 DI560 FP098130 | 17536 -0501 00 0 17540 ORA *+2 DI570 FP098140 17537 0074 00 4 11413 TSX PRGMR,4 DI580 FP098150 | 17540 0 00000 2 00000 PZE 0,2 DI590 FP098160 | 17541 0500 00 0 13614 CLA E1006 DI600 FP098170 | 17542 0074 00 4 11413 TSX PRGMR,4 DI610 FP098180 | 17543 0 00000 0 00000 PZE DI620 FP098190 17544 0020 00 0 14307 TRA BB010 BACK TO READ DI630 FP098200 | 17545 0500 00 2 00001 DI640 CLA 1,2 BINARY PUT DI640 FP098210 | 17546 0560 00 2 00002 LDQ 2,2 DI650 FP098220 | 17547 -0763 00 0 00006 LGL 6 DI660 FP098230 | 17550 0601 00 0 17553 STO *+3 DI670 FP098240 17551 -0500 00 0 17553 CAL *+2 DI680 FP098250 | 17552 0074 00 4 11413 TSX PRGMR,4 MOVE REC TYPE FLD= TO OBJ PDI690 FP098260 | 17553 0 00000 0 00000 PZE DI700 FP098270 | 17554 0500 00 0 13613 CLA E1005 DI760 FP098280 | 17555 -0501 00 0 17557 ORA *+2 DI761 FP098290 17556 0074 00 4 11413 TSX PRGMR,4 MOVE BIN WD= DI770 FP098300 | 17557 0 00000 2 00000 PZE 0,2 DI780 FP098310 | 17560 0500 00 0 13612 CLA E1004 GET EQUIV SIZE DI790 FP098320 | 17561 0774 00 4 00000 AXT 0,4 DI791 FP098330 | 17562 0774 00 1 00024 AXT 20,1 DI792 FP098340 17563 1 00006 4 17564 TXI *+1,4,6 DI793 FP098350 | 17564 -0340 00 1 11104 LAS EQUIV+21,1 DI794 FP098360 | 17565 0020 00 0 17571 TRA *+4 DI795 FP098370 | 17566 0020 00 0 17573 TRA *+5 MATCH ON SIZE DI796 FP098380 | 17567 0074 00 4 10507 TSX T0010,4 FP098390 17570 -1 06654 3 00000 STR 0,3,3500 INCORRECT DICT SIZE DI797 FP098400 | 17571 2 00002 1 17563 TIX *-6,1,2 DI798 FP098410 | 17572 0020 00 0 17567 TRA *-3 DI799 FP098420 | 17573 2 00044 4 17575 TIX *+2,4,36 DI800 FP098430 | 17574 0774 00 4 00000 AXT 0,4 DI810 FP098440 17575 0634 00 4 17674 SXA DJ200,4 INITIALIZE MINMAX SHIFTS DI820 FP098450 | 17576 0634 00 4 17613 SXA DI950,4 DI830 FP098460 | 17577 0020 00 0 17661 TRA DJ090 TO MINIMUM DI831 FP098470 | 17600 -0500 00 2 00012 DI840 CAL 10,2 LOAD MAX VERCAL DI840 FP098480 | 17601 0560 00 2 00013 LDQ 11,2 DI850 FP098490 17602 -0765 00 0 00030 LGR 24 DI860 FP098500 | 17603 -0130 00 0 00000 XCL DI870 FP098510 | 17604 -0340 00 0 20573 LAS DBLNK COMPARE TO BLANK DI880 FP098520 | 17605 0020 00 0 17607 TRA *+2 DI890 FP098530 | 17606 0020 00 0 17623 TRA DJ060 DI900 FP098540 17607 0044 00 0 00000 PAI DI910 FP098550 | 17610 -0320 00 0 20650 ANA DAG90 REMOVE SIGN IN AC DI920 FP098560 | 17611 -0130 00 0 00000 XCL DI930 FP098570 | 17612 0760 00 0 00000 CLM DI940 FP098580 | 17613 -0763 00 0 00000 DI950 LGL 0 SHIFT MAX DI950 FP098590 1 LISTING OF 12/01/64 PAGE 211 | CALC (9PAC32). HAND CALCULATIONS | | 17614 0602 00 0 07750 SLW B1010 DI960 FP098600 | 17615 -0600 00 0 07751 STQ B1020 DI970 FP098610 17616 0445 00 0 20650 RIS DAG90 CLEAR IND EXCEPT SIGN DI980 FP098620 | 17617 -0046 00 0 00000 PIA SIGN TO AC DJ010 FP098630 | 17620 -0602 00 0 07751 ORS B1020 PLACE SIGN OVER UNITS POSITDJ020 FP098640 | 17621 0074 00 4 07570 TSX B0010,4 DJ030 FP098650 | 17622 -0500 00 0 07747 CAL B1000 DJ050 FP098660 17623 0074 00 4 11413 DJ060 TSX PRGMR,4 ALSO, FROM DM310 DJ060 FP098670 | 17624 0 00000 0 00000 PZE 0 MAX TO OBJ PROG DJ070 FP098680 | 17625 -0520 00 0 11376 NZT HORIZ DJ0700FP098690 | 17626 0020 00 0 17641 TRA DJ071 DJ0700FP098700 | 17627 -0500 00 0 67176 CAL HEADR+4 DJ0700FP098710 17630 0771 00 0 00036 ARS 30 DJ0700FP098720 | 17631 -0320 00 0 10726 ANA BCD01 DJ0700FP098730 | 17632 -0340 00 0 20624 LAS DAF20 DJ0700FP098740 | 17633 0020 00 0 17635 TRA *+2 DJ0700FP098750 | 17634 0020 00 0 17637 TRA *+3 DJ0700FP098760 17635 -0500 00 0 11406 CAL ORJSZ DJ0700FP098770 | 17636 0020 00 0 17651 TRA DJ072 DJ0701FP098780 | 17637 -0500 00 0 11405 CAL HIRSZ DJ0701FP098790 | 17640 0020 00 0 17651 TRA DJ072 DJ0701FP098800 | 17641 -0500 00 0 67172 DJ071 CAL HEADR DJ0710FP098810 17642 -0320 00 0 10726 ANA BCD01 DJ0710FP098820 | 17643 -0340 00 0 20660 LAS DAI05 V DJ0710FP098830 | 17644 0020 00 0 17646 TRA *+2 DJ0710FP098840 | 17645 0020 00 0 17650 TRA *+3 DJ0710FP098850 | 17646 -0500 00 0 11406 CAL ORJSZ DJ0710FP098860 17647 0020 00 0 17651 TRA DJ072 DJ0710FP098870 | 17650 -0500 00 0 11404 CAL VRJSZ DJ0710FP098880 | 17651 0074 00 4 11413 DJ072 TSX PRGMR,4 DJ072 FP098890 | 17652 0 00000 0 00000 PZE 0 REJECT ADDR, SIZE DJ073 FP098900 | 17653 -0500 00 0 67172 CAL HEADR DJ074 FP098910 17654 -0765 00 0 00022 LGR 18 DJ075 FP098920 | 17655 -0320 00 0 10733 ANA BCD06 DJ076 FP098930 | 17656 -0501 00 0 20662 ORA DAI07 DJ077 FP098940 | 17657 0074 00 4 11507 TSX YADDR,4 DJ078 FP098950 | 17660 0020 00 0 14307 TRA BB010 BACK TO READ DJ080 FP098960 17661 -0500 00 2 00011 DJ090 CAL 9,2 DJ090 FP098970 | 17662 0560 00 2 00012 LDQ 10,2 LOAD MIN DJ100 FP098980 | 17663 -0765 00 0 00030 LGR 24 DJ110 FP098990 | 17664 -0130 00 0 00000 XCL DJ120 FP099000 | 17665 -0340 00 0 20573 LAS DBLNK DJ130 FP099010 17666 0020 00 0 17670 TRA *+2 DJ140 FP099020 | 17667 0020 00 0 17704 TRA DJ320 DJ150 FP099030 | 17670 0044 00 0 00000 PAI DJ160 FP099040 | 17671 -0320 00 0 20650 ANA DAG90 REMOVE SIGN IN AC DJ170 FP099050 | 17672 -0130 00 0 00000 XCL DJ180 FP099060 17673 0760 00 0 00000 CLM DJ190 FP099070 | 17674 -0763 00 0 00000 DJ200 LGL 0 SHIFT MIN DJ200 FP099080 | 17675 0602 00 0 07750 SLW B1010 DJ210 FP099090 | 17676 -0600 00 0 07751 STQ B1020 DJ220 FP099100 | 17677 0445 00 0 20650 RIS DAG90 CLEAR IND EXCEPT SIGN DJ260 FP099110 17700 -0046 00 0 00000 PIA SIGN TO AC DJ270 FP099120 | 17701 -0602 00 0 07751 ORS B1020 DJ280 FP099130 | 17702 0074 00 4 07570 TSX B0010,4 DJ290 FP099140 | 1 LISTING OF 12/01/64 PAGE 212 | CALC (9PAC32). HAND CALCULATIONS | 17703 -0500 00 0 07747 CAL B1000 DJ310 FP099150 | 17704 0074 00 4 11413 DJ320 TSX PRGMR,4 MIN TO OBJ PROGRAM DJ320 FP099160 | 17705 0 00000 0 00000 PZE DJ330 FP099170 | 17706 0020 00 0 17600 TRA DI840 TO LOAD MAX DJ340 FP099180 * FP099190 | * BSS FP099200 | * FP099210 | 17707 -0500 00 0 04623 DJ510 CAL CARD+2 INTERPRET BSS DJ510 FP099220 | 17710 0560 00 0 04624 LDQ CARD+3 DJ520 FP099230 17711 -0765 00 0 00022 LGR 18 DJ530 FP099240 | 17712 0754 00 0 00000 PXA 0,0 DJ540 FP099250 | 17713 0534 00 4 20566 LXA ADDCT,4 DJ550 FP099260 | 17714 0634 00 4 17715 SXA *+1,4 DJ560 FP099270 | 17715 -0763 00 0 00000 LGL 0 DJ570 FP099280 17716 0602 00 0 07751 SLW B1020 DJ580 FP099290 | 17717 0074 00 4 07570 TSX B0010,4 DJ590 FP099300 | 17720 0500 00 0 07747 CLA B1000 DJ610 FP099310 | 17721 0734 00 1 00000 PAX 0,1 DJ620 FP099320 | 17722 -0500 00 0 20564 CAL DZERO DJ630 FP099330 17723 0520 00 0 20535 ZET DAA70 TEST CONSTANT SWITCH DJ640 FP099340 | 17724 0020 00 0 17730 TRA *+4 DJ650 FP099350 | 17725 0074 00 4 11413 TSX PRGMR,4 1ST WD TO OBJ. PROGRAM DJ660 FP099360 | 17726 0 00000 0 00000 PZE DJ670 FP099370 | 17727 0020 00 0 17731 TRA *+2 DJ680 FP099380 17730 0074 00 4 11426 TSX STORR,4 DJ690 FP099390 | 17731 0520 00 0 20536 ZET DAA80 TEST NO SYMBOL SWITCH DJ700 FP099400 | 17732 0074 00 4 16043 TSX SYMBL,4 DJ710 FP099410 | 17733 -2 00001 1 14307 DJ720 TNX BB010,1,1 DJ720 FP099420 | 17734 -0500 00 0 20564 CAL DZERO DJ730 FP099430 17735 0520 00 0 20535 ZET DAA70 TEST CONSTANT SWITCH DJ740 FP099440 | 17736 0020 00 0 17742 TRA *+4 DJ750 FP099450 | 17737 0074 00 4 11413 TSX PRGMR,4 SUBSEQUENT WD TO OBJ PRG. DJ760 FP099460 | 17740 0 00000 0 00000 PZE DJ770 FP099470 | 17741 0020 00 0 17733 TRA DJ720 DJ780 FP099480 17742 0074 00 4 11426 TSX STORR,4 DJ790 FP099490 | 17743 0020 00 0 17733 TRA DJ720 DJ791 FP099500 | * FP099510 | 17744 -0500 00 0 04623 DJ800 CAL CARD+2 INTERPRET BES DJ800 FP099520 | 17745 0560 00 0 04624 LDQ CARD+3 DJ805 FP099530 17746 -0765 00 0 00022 LGR 18 DJ810 FP099540 | 17747 0754 00 0 00000 PXA 0,0 DJ815 FP099550 | 17750 0534 00 4 20566 LXA ADDCT,4 DJ820 FP099560 | 17751 0634 00 4 17752 SXA *+1,4 DJ825 FP099570 | 17752 -0763 00 0 00000 LGL 0 DJ830 FP099580 17753 0602 00 0 07751 SLW B1020 DJ835 FP099590 | 17754 0074 00 4 07570 TSX B0010,4 DJ840 FP099600 | 17755 0500 00 0 07747 CLA B1000 DJ850 FP099610 | 17756 0734 00 1 00000 PAX 0,1 DJ855 FP099620 | 17757 -2 00001 1 17770 DJ860 TNX DJ900,1,1 DJ860 FP099630 17760 -0500 00 0 20564 CAL DZERO DJ865 FP099640 | 17761 0520 00 0 20535 ZET DAA70 TEST CONSTANT SWITCH DJ870 FP099650 | 17762 0020 00 0 17766 TRA *+4 DJ875 FP099660 | 17763 0074 00 4 11413 TSX PRGMR,4 MOVE WD TO OBJ PROGRAM DJ880 FP099670 | 17764 0 00000 0 00000 PZE DJ885 FP099680 17765 0020 00 0 17757 TRA DJ860 DJ886 FP099690 | 1 LISTING OF 12/01/64 PAGE 213 | CALC (9PAC32). HAND CALCULATIONS | | 17766 0074 00 4 11426 TSX STORR,4 DJ890 FP099700 17767 0020 00 0 17757 TRA DJ860 DJ895 FP099710 | 17770 -0500 00 0 20564 DJ900 CAL DZERO DJ900 FP099720 | 17771 0520 00 0 20535 ZET DAA70 TEST CONSTANT SWITCH DJ905 FP099730 | 17772 0020 00 0 17776 TRA *+4 DJ910 FP099740 | 17773 0074 00 4 11413 TSX PRGMR,4 MOVE LAST WORD DJ915 FP099750 17774 0 00000 0 00000 PZE DJ920 FP099760 | 17775 0020 00 0 17777 TRA *+2 DJ925 FP099770 | 17776 0074 00 4 11426 TSX STORR,4 DJ930 FP099780 | 17777 -0520 00 0 20536 NZT DAA80 TEST NO SYMBOL SWITCH DJ935 FP099790 | 20000 0020 00 0 14307 TRA BB010 TO READ DJ940 FP099800 20001 -0625 00 0 20545 STL DAA94 SET BES SW TO ON DJ945 FP099810 | 20002 0074 00 4 16043 TSX SYMBL,4 DJ950 FP099820 | 20003 0020 00 0 14307 TRA BB010 TO READ DJ960 FP099830 | * FP099840 | * IGNORE FP099850 * FP099860 | 20004 -0520 00 0 20535 DK010 NZT DAA70 TEST CONSTANT SW DK010 FP099870 | 20005 0020 00 0 20010 TRA *+3 FP099880 | 20006 0074 00 4 10507 TSX T0010,4 FP099890 | 20007 -1 01154 2 14307 STR BB010,2,620 IGNORE DEFINED AS CONSTANT DK011 FP099900 20010 -0500 00 0 20012 CAL *+2 DK060 FP099910 | 20011 0074 00 4 11413 TSX PRGMR,4 DK070 FP099920 | 20012 0535 00 1 22174 LAC MRGLO,1 DK080 FP099930 | 20013 0520 00 0 20536 ZET DAA80 TEST NO SYMBOL SWITCH DK090 FP099940 | 20014 0074 00 4 16043 TSX SYMBL,4 DK100 FP099950 20015 -0500 00 0 20017 CAL *+2 DK110 FP099960 | 20016 0074 00 4 11413 TSX PRGMR,4 DK120 FP099970 | 20017 0535 00 2 17301 LAC SFLOC,2 DK130 FP099980 | 20020 -0500 00 0 67172 CAL HEADR DK131 FP099990 | 20021 -0320 00 0 10726 ANA BCD01 DK132 FP100000 20022 -0340 00 0 20660 LAS DAI05 DK133 FP100010 | 20023 0020 00 0 20025 TRA *+2 DK134 FP100020 | 20024 0020 00 0 20102 TRA DK260 IS VERTICAL DK135 FP100030 | 20025 0520 00 0 20626 DK136 ZET DAF22 TEST O SWITCH DK1360FP100040 | 20026 0020 00 0 20031 TRA *+3 DK1360FP100050 20027 -0520 00 0 20627 NZT DAF23 TEST I SWITCH DK1360FP100060 | 20030 0020 00 0 20076 TRA DK140 DK1360FP100070 | 20031 -0500 00 0 67172 CAL HEADR DK1370FP100080 | 20032 -0320 00 0 11005 ANA BCD60 DK1370FP100090 | 20033 0771 00 0 00006 ARS 6 DK1370FP100100 20034 0602 00 0 20671 SLW DAI30 PRIORITY CODE DK1370FP100110 | 20035 0774 00 4 00113 AXT OTZE,4 DK1370FP100120 | 20036 0520 00 4 67461 DK137 ZET ONTRY+OTZE,4 DK1370FP100130 | 20037 0020 00 0 20042 TRA *+3 FP100140 | 20040 0074 00 4 10507 TSX T0010,4 FP100150 20041 -1 11111 4 00000 STR 0,4,4681 VER PRIOR NOT IN ONTRY TBL(TBL NFL) DK1370FP100160 | 20042 -0500 00 4 67461 CAL ONTRY+OTZE,4 DK1370FP100170 | 20043 -0320 00 0 10755 ANA BCD30 DK1370FP100180 | 20044 -0340 00 0 20671 LAS DAI30 DK1371FP100190 | 20045 0020 00 0 20047 TRA *+2 DK1371FP100200 20046 0020 00 0 20052 TRA *+4 DK1371FP100210 | 20047 2 00001 4 20036 TIX DK137,4,1 DK1371FP100220 | 20050 0074 00 4 10507 TSX T0010,4 FP100230 | 20051 -1 11112 4 00000 STR 0,4,4682 VER PRIOR NOT IN ONTRY TBL(TBL FUL) DK1371FP100240 | 1 LISTING OF 12/01/64 PAGE 214 CALC (9PAC32). HAND CALCULATIONS | | 20052 -0500 00 4 67461 CAL ONTRY+OTZE,4 DK1371FP100250 | 20053 0621 00 0 20056 STA *+3 DK1371FP100260 | 20054 -0500 00 0 20056 CAL *+2 DK1371FP100270 20055 0074 00 4 11413 TSX PRGMR,4 DK1371FP100280 | 20056 0600 00 0 00000 STZ 0 DK1371FP100290 | 20057 -0520 00 0 20626 NZT DAF22 TEST O SW DK1372FP100300 | 20060 0020 00 0 20067 TRA *+7 DK1372FP100310 | 20061 -0500 00 0 20063 CAL *+2 DK1372FP100320 20062 0074 00 4 11413 TSX PRGMR,4 DK1372FP100330 | 20063 -0520 00 0 22204 NZT EQUAL DK1372FP100340 | 20064 -0500 00 0 20066 CAL *+2 DK1372FP100350 | 20065 0074 00 4 11413 TSX PRGMR,4 DK1372FP100360 | 20066 0020 00 0 22210 TRA MERGE DK1372FP100370 20067 -0500 00 0 20071 CAL *+2 DK1372FP100380 | 20070 0074 00 4 11413 TSX PRGMR,4 DK1372FP100390 | 20071 0600 00 0 22205 STZ ISWCH DK1373FP100400 | 20072 -0500 00 0 20074 CAL *+2 DK1373FP100410 | 20073 0074 00 4 11413 TSX PRGMR,4 DK1373FP100420 20074 0020 00 0 22207 TRA MRGUN DK1373FP100430 | 20075 0020 00 0 14307 TRA BB010 DK1373FP100440 | 20076 -0500 00 0 20100 DK140 CAL *+2 DK140 FP100450 | 20077 0074 00 4 11413 TSX PRGMR,4 DK150 FP100460 | 20100 0020 00 0 22210 TRA MERGE DK160 FP100470 20101 0020 00 0 14307 TRA BB010 TO READ DK170 FP100480 | 20102 -0500 00 0 20104 DK260 CAL *+2 DK260 FP100490 | 20103 0074 00 4 11413 TSX PRGMR,4 DK270 FP100500 | 20104 0020 00 0 00000 TRA 0 DK280 FP100510 | 20105 0500 00 0 20661 CLA DAI06 0003 TO GADDR DK290 FP100520 20106 0074 00 4 11477 TSX GADDR,4 DK300 FP100530 | 20107 0020 00 0 14307 TRA BB010 TO READ DK310 FP100540 | * FP100550 | * REJECT FP100560 | * FP100570 20110 -0520 00 0 20535 DK350 NZT DAA70 REJECT DK350 FP100580 | 20111 0020 00 0 20114 TRA *+3 FP100590 | 20112 0074 00 4 10507 TSX T0010,4 FP100600 | 20113 -1 01155 2 14307 STR BB010,2,621 REJECT DEFINED AS CONSTANT DK360 FP100610 | 20114 -0500 00 0 67172 CAL HEADR DK370 FP100620 20115 -0320 00 0 10726 ANA BCD01 DK380 FP100630 | 20116 -0340 00 0 20660 LAS DAI05 DK390 FP100640 | 20117 0020 00 0 20124 TRA *+5 FP100650 | 20120 0020 00 0 20122 TRA *+2 DK400 FP100660 | 20121 0020 00 0 20124 TRA *+3 FP100670 20122 0074 00 4 10507 TSX T0010,4 FP100680 | 20123 -1 01156 2 14307 STR BB010,2,622 REJECT IN VERTICAL DK410 FP100690 | 20124 -0500 00 0 20126 CAL *+2 DK420 FP100700 | 20125 0074 00 4 11413 TSX PRGMR,4 DK430 FP100710 | 20126 0074 00 4 00001 TSX 1,4 DK440 FP100720 20127 -0500 00 0 67172 CAL HEADR DK450 FP100730 | 20130 -0765 00 0 00022 LGR 18 DK460 FP100740 | 20131 -0320 00 0 10733 ANA BCD06 DK470 FP100750 | 20132 -0501 00 0 20662 ORA DAI07 DK480 FP100760 | 20133 0074 00 4 11507 TSX YADDR,4 DK490 FP100770 20134 0520 00 0 20536 ZET DAA80 TEST NO SYMBOL SWITCH DK500 FP100780 | 20135 0074 00 4 16043 TSX SYMBL,4 DK510 FP100790 | 1 LISTING OF 12/01/64 PAGE 215 | CALC (9PAC32). HAND CALCULATIONS | 20136 -0500 00 0 04623 CAL CARD+2 REASON TO OBJ PROGRAM DK520 FP100800 | 20137 0560 00 0 04624 LDQ CARD+3 DK530 FP100810 | 20140 -0763 00 0 00022 LGL 18 DK540 FP100820 | 20141 0074 00 4 11413 TSX PRGMR,4 DK550 FP100830 | 20142 0 00000 0 00000 PZE DK560 FP100840 20143 -0500 00 0 04624 CAL CARD+3 DK570 FP100850 | 20144 0560 00 0 04625 LDQ CARD+4 DK580 FP100860 | 20145 -0763 00 0 00022 LGL 18 DK590 FP100870 | 20146 0074 00 4 11413 TSX PRGMR,4 DK600 FP100880 | 20147 0 00000 0 00000 PZE DK610 FP100890 20150 -0500 00 0 20152 CAL *+2 DK620 FP100900 | 20151 0074 00 4 11413 TSX PRGMR,4 DK630 FP100910 | 20152 0535 00 1 22174 LAC MRGLO,1 DK640 FP100920 | 20153 -0500 00 0 20155 CAL *+2 DK650 FP100930 | 20154 0074 00 4 11413 TSX PRGMR,4 DK660 FP100940 20155 0535 00 2 17301 LAC SFLOC,2 DK670 FP100950 | 20156 0020 00 0 20025 TRA DK136 DK680 FP100960 | * FP100970 | 20157 -0520 00 0 20535 DK720 NZT DAA70 BKSP MACRO DK720 FP100980 | 20160 0020 00 0 20163 TRA *+3 FP100990 20161 0074 00 4 10507 TSX T0010,4 FP101000 | 20162 -1 01200 2 14307 STR BB010,2,640 BKSP DEFINED AS CONSTANT DK7200FP101010 | 20163 -0500 00 0 67172 CAL HEADR DK7200FP101020 | 20164 -0320 00 0 10726 ANA BCD01 DK7200FP101030 | 20165 -0340 00 0 20660 LAS DAI05 DK7200FP101040 20166 0020 00 0 20173 TRA *+5 FP101050 | 20167 0020 00 0 20171 TRA *+2 DK7200FP101060 | 20170 0020 00 0 20173 TRA *+3 FP101070 | 20171 0074 00 4 10507 TSX T0010,4 FP101080 | 20172 -1 01201 2 14307 STR BB010,2,641 BKSP VERTICAL DK7200FP101090 20173 -0500 00 0 20175 CAL *+2 DK7200FP101100 | 20174 0074 00 4 11413 TSX PRGMR,4 DK7200FP101110 | 20175 0634 00 1 00000 SXA 0,1 DK7200FP101120 | 20176 -0500 00 0 11030 CAL NMBR3 DK7200FP101130 | 20177 0074 00 4 11465 TSX PADDR,4 DK7200FP101140 20200 0520 00 0 20536 ZET DAA80 TEST SYMBOL SW DK7200FP101150 | 20201 0074 00 4 16043 TSX SYMBL,4 DK7200FP101160 | 20202 -0500 00 0 15063 CAL VSA30 DK7201FP101170 | 20203 -0501 00 0 20205 ORA *+2 DK7201FP101180 | 20204 0074 00 4 11413 TSX PRGMR,4 DK7201FP101190 20205 0774 00 1 00000 AXT 0,1 DK7201FP101200 | 20206 -0500 00 0 20210 CAL *+2 DK7201FP101210 | 20207 0074 00 4 11413 TSX PRGMR,4 DK7201FP101220 | 20210 -0625 00 1 17404 STL BKSPT,1 DK7201FP101230 | 20211 -0500 00 0 20213 CAL *+2 DK7201FP101240 20212 0074 00 4 11413 TSX PRGMR,4 DK7201FP101250 | 20213 0774 00 1 00000 AXT ..,1 DK7201FP101260 | 20214 0020 00 0 14307 TRA BB010 DK7202FP101270 | * ERRFLD FP101280 | * FP101290 20215 -0520 00 0 20535 DK750 NZT DAA70 ERR FLD DK750 FP101300 | 20216 0020 00 0 20221 TRA *+3 FP101310 | 20217 0074 00 4 10507 TSX T0010,4 FP101320 | 20220 -1 01157 2 14307 STR BB010,2,623 ERRFLD IS A CONSTANT DK753 FP101330 | 20221 -0500 00 0 67172 CAL HEADR DK756 FP101340 1 LISTING OF 12/01/64 PAGE 216 | CALC (9PAC32). HAND CALCULATIONS | | 20222 -0320 00 0 10726 ANA BCD01 DK760 FP101350 | 20223 -0340 00 0 20663 LAS DAI08 COMPARE TO H DK763 FP101360 20224 0020 00 0 20226 TRA *+2 DK766 FP101370 | 20225 0020 00 0 20230 TRA *+3 DK770 FP101380 | 20226 0074 00 4 10507 TSX T0010,4 FP101390 | 20227 -1 01160 2 14307 STR BB010,2,624 ERRFLD NOT IN HORIZONTAL DK773 FP101400 | 20230 -0500 00 0 20232 CAL *+2 DK776 FP101410 20231 0074 00 4 11413 TSX PRGMR,4 DK780 FP101420 | 20232 -0500 60 0 22176 CAL* DICLO DK783 FP101430 | 20233 0520 00 0 20536 ZET DAA80 TEST NO SYMBOL SWITCH DK786 FP101440 | 20234 0074 00 4 16043 TSX SYMBL,4 DK790 FP101450 | 20235 -0500 00 0 20237 CAL *+2 DK793 FP101460 20236 0074 00 4 11413 TSX PRGMR,4 DK796 FP101470 | 20237 -0320 00 0 00000 ANA 0 DK800 FP101480 | 20240 -0500 00 0 10744 CAL BCD17 DK803 FP101490 | 20241 0074 00 4 11426 TSX STORR,4 DK806 FP101500 | 20242 0074 00 4 11454 TSX SADDR,4 DK810 FP101510 20243 -0500 00 0 20245 CAL *+2 DK813 FP101520 | 20244 0074 00 4 11413 TSX PRGMR,4 DK816 FP101530 | 20245 0602 00 0 00001 SLW 1 DK820 FP101540 | 20246 -0500 00 0 67172 CAL HEADR DK823 FP101550 | 20247 -0765 00 0 00022 LGR 18 DK826 FP101560 20250 -0320 00 0 10733 ANA BCD06 DK830 FP101570 | 20251 -0501 00 0 20662 ORA DAI07 DK836 FP101580 | 20252 -0760 00 0 00003 SSM DK840 FP101590 | 20253 0074 00 4 11507 TSX YADDR,4 DK843 FP101600 | 20254 -0500 00 0 20256 CAL *+2 DK846 FP101610 20255 0074 00 4 11413 TSX PRGMR,4 TSX DK850 FP101620 | 20256 0074 00 4 00001 TSX 1,4 DK853 FP101630 | 20257 -0500 00 0 67172 CAL HEADR DK856 FP101640 | 20260 -0765 00 0 00022 LGR 18 DK860 FP101650 | 20261 -0320 00 0 10733 ANA BCD06 DK863 FP101660 20262 -0501 00 0 20662 ORA DAI07 DK866 FP101670 | 20263 0074 00 4 11507 TSX YADDR,4 DK870 FP101680 | 20264 -0500 00 0 04623 CAL CARD+2 REASON TO OBJ. PROGRAM DK873 FP101690 | 20265 0560 00 0 04624 LDQ CARD+3 DK876 FP101700 | 20266 -0763 00 0 00022 LGL 18 DK880 FP101710 20267 0074 00 4 11413 TSX PRGMR,4 DK883 FP101720 | 20270 0 00000 0 00000 PZE DK886 FP101730 | 20271 -0500 00 0 04624 CAL CARD+3 DK890 FP101740 | 20272 0560 00 0 04625 LDQ CARD+4 DK893 FP101750 | 20273 -0763 00 0 00022 LGL 18 DK896 FP101760 20274 0074 00 4 11413 TSX PRGMR,4 DK900 FP101770 | 20275 0 00000 0 00000 PZE DK903 FP101780 | 20276 -0500 00 0 20300 CAL *+2 DK906 FP101790 | 20277 0074 00 4 11413 TSX PRGMR,4 DK910 FP101800 | 20300 0535 00 1 22174 LAC MRGLO,1 DK913 FP101810 20301 -0500 00 0 20303 CAL *+2 DK916 FP101820 | 20302 0074 00 4 11413 TSX PRGMR,4 DK920 FP101830 | 20303 0535 00 2 17301 LAC SFLOC,2 DK923 FP101840 | 20304 0520 00 0 20652 ZET DAH20 TEST FOR BEFORE HC DK926 FP101850 | 20305 0020 00 0 20312 TRA *+5 DK933 FP101860 20306 -0500 00 0 20310 CAL *+2 IS BEFORE DK936 FP101870 | 20307 0074 00 4 11413 TSX PRGMR,4 DK940 FP101880 | 20310 0020 00 0 21400 TRA STEPP DK943 FP101890 | 1 LISTING OF 12/01/64 PAGE 217 | CALC (9PAC32). HAND CALCULATIONS | 20311 0020 00 0 14307 TRA BB010 DK944 FP101900 | 20312 -0500 00 0 20314 CAL *+2 IS AFTER DK946 FP101910 | 20313 0074 00 4 11413 TSX PRGMR,4 DK950 FP101920 | 20314 0020 00 4 00000 TRA 0,4 DK953 FP101930 20315 -0500 00 0 67172 CAL HEADR DK956 FP101940 | 20316 -0765 00 0 00022 LGR 18 DK960 FP101950 | 20317 -0320 00 0 10733 ANA BCD06 DK963 FP101960 | 20320 -0501 00 0 20662 ORA DAI07 DK966 FP101970 | 20321 0074 00 4 11507 TSX YADDR,4 DK970 FP101980 20322 0020 00 0 14307 TRA BB010 DK973 FP101990 | * FP102000 | * CLEANUP FP102010 | * FP102020 | 20323 -0774 00 1 47666 DL010 AXC ALDEF,1 CLEANUP DL010 FP102030 20324 -0774 00 2 51326 AXC NYDEF,2 DL020 FP102040 | 20325 -0500 00 2 00001 DL021 CAL 1,2 DL021 FP102050 | 20326 0601 00 0 20651 STO DAH10 DL022 FP102060 | 20327 -0520 00 2 00000 NZT 0,2 DL025 FP102070 | 20330 0020 00 0 20354 TRA DL200 THRU WITH NTDEF TABLE DL026 FP102080 20331 -0500 00 2 00000 CAL 0,2 DL030 FP102090 | 20332 -0520 00 1 00000 DL040 NZT 0,1 DL040 FP102100 | 20333 0020 00 0 20350 TRA DL170 DL050 FP102110 | 20334 -0340 00 1 00000 LAS 0,1 DL060 FP102120 | 20335 1 77776 1 20332 TXI *-3,1,-2 DL070 FP102130 20336 0020 00 0 20340 TRA *+2 IS FOUND DL080 FP102140 | 20337 1 77776 1 20332 TXI *-5,1,-2 DL090 FP102150 | 20340 0500 00 1 00001 CLA 1,1 LOAD WD COUNT OF ALDEF DL110 FP102160 | 20341 0402 00 0 20651 SUB DAH10 SUBTRACT WD COUNT OF NYDEF DL120 FP102170 | 20342 0400 00 2 00002 ADD 2,2 DL130 FP102180 20343 0601 00 0 11474 STO K1000 DL140 FP102190 | 20344 -0500 00 0 20651 CAL DAH10 DL145 FP102200 | 20345 0074 00 4 11467 TSX PADDR+2,4 DL150 FP102210 | 20346 -0774 00 1 47666 DL151 AXC ALDEF,1 DL151 FP102220 | 20347 1 77775 2 20325 TXI DL021,2,-3 DL160 FP102230 20350 -0501 00 0 20670 DL170 ORA DAI14 DL170 FP102240 | 20351 0602 00 0 10565 SLW T1000 DL180 FP102250 | 20352 0074 00 4 10507 TSX T0010,4 FP102260 | 20353 -1 01161 2 20346 STR DL151,2,625 UNDEFINED SYMBOL DL190 FP102270 | 20354 -0500 00 0 20356 DL200 CAL *+2 DL200 FP102280 20355 0074 00 4 11413 TSX PRGMR,4 DL210 FP102290 | 20356 0535 00 1 22174 LAC MRGLO,1 DL220 FP102300 | 20357 -0500 00 0 20361 CAL *+2 DL230 FP102310 | 20360 0074 00 4 11413 TSX PRGMR,4 DL240 FP102320 | 20361 0535 00 2 17301 LAC SFLOC,2 DL250 FP102330 20362 0500 00 0 14163 CLA BA765-5 DL251 FP102340 | 20363 0602 00 0 14163 SLW BA765-5 DL252 FP102350 | 20364 0500 00 0 14201 CLA BA825-5 DL253 FP102360 | 20365 0602 00 0 14201 SLW BA825-5 DL254 FP102370 | * FP102380 * REAL FCTN CLEANUP FP102390 | * FP102400 | 20366 -0520 00 0 20617 DL260 NZT DAE42 DL260 FP102410 | 20367 0020 00 0 20374 TRA DL269 DL261 FP102420 | 20370 -0500 00 0 15063 CAL VSA30 DL262 FP102430 20371 0767 00 0 00032 ALS 26 DL263 FP102440 | 1 LISTING OF 12/01/64 PAGE 218 | CALC (9PAC32). HAND CALCULATIONS | | 20372 -0501 00 0 20414 ORA DL560 DL264 FP102450 20373 0020 00 0 20404 TRA DL440 DL265 FP102460 | 20374 -0500 00 0 67172 DL269 CAL HEADR DL269 FP102470 | 20375 0771 00 0 00006 ARS 6 DL270 FP102480 | 20376 -0320 00 0 20411 ANA DL500 DL280 FP102490 | 20377 -0520 00 0 20652 NZT DAH20 TEST FOR BEFORE HC DL290 FP102500 20400 0020 00 0 20403 TRA *+3 DL300 FP102510 | 20401 -0501 00 0 20412 ORA DL540 IS BEFORE DL310 FP102520 | 20402 0020 00 0 20404 TRA *+2 DL320 FP102530 | 20403 -0501 00 0 20413 ORA DL550 IS AFTER DL330 FP102540 | 20404 0074 00 4 11547 DL440 TSX M0010,4 DL440 FP102550 20405 0600 00 0 20615 STZ DAE40 DL445 FP102560 | 20406 -0520 00 0 14512 NZT BAE80 DL450 FP102570 | 20407 0020 00 0 14403 TRA BB360 DL460 FP102580 | 20410 0020 00 0 14341 TRA BB180 DL470 FP102590 | 20411 +007777000000 DL500 OCT 7777000000 DL500 FP102600 20412 -120000410000 DL540 OCT 520000410000 J DL540 FP102610 | 20413 -120000470000 DL550 OCT 520000470000 P DL550 FP102620 | 20414 +160000470000 DL560 OCT 160000470000 DL560 FP102630 | * FP102640 | * SUM FP102650 * FP102660 | 20415 -0500 00 0 04623 DM010 CAL CARD+2 SUM PSEUDO-OP DM010 FP102670 | 20416 0560 00 0 04624 LDQ CARD+3 DM020 FP102680 | 20417 -0765 00 0 00022 LGR 18 DM030 FP102690 | 20420 0754 00 0 00000 PXA 0,0 DM040 FP102700 20421 -0763 00 0 00014 LGL 12 DM050 FP102710 | 20422 -0340 00 0 20630 LAS DAF30 DM060 FP102720 | 20423 0020 00 0 20425 TRA *+2 DM070 FP102730 | 20424 0020 00 0 20427 TRA *+3 DM080 FP102740 | 20425 0074 00 4 10507 TSX T0010,4 FP102750 20426 -1 01203 2 14307 STR BB010,2,643 NOT EQUAL TO CURRENT REC TYPE DM090 FP102760 | 20427 0754 00 0 00000 PXA 0,0 DM095 FP102770 | 20430 -0763 00 0 00030 LGL 24 DM100 FP102780 | 20431 0602 00 0 20433 SLW *+2 DM110 FP102790 | 20432 0074 00 4 13550 TSX E0010,4 DM120 FP102800 20433 0 00000 0 00000 PZE DM130 FP102810 | 20434 0441 00 2 00002 LDI 2,2 TEST MODE DM140 FP102820 | 20435 -0056 00 000100 LNT 100 DM150 FP102830 | 20436 0020 00 0 20441 TRA *+3 DM160 FP102840 | 20437 0074 00 4 10507 TSX T0010,4 FP102850 20440 -1 01162 2 14307 STR BB010,2,626 SUM OP FOR BCD FLD DM170 FP102860 | 20441 -0520 00 0 20535 NZT DAA70 TEST CONSTANT SW DM180 FP102870 | 20442 0020 00 0 20445 TRA *+3 FP102880 | 20443 0074 00 4 10507 TSX T0010,4 FP102890 | 20444 -1 01163 2 14307 STR BB010,2,627 SUM DEFINED AS CONSTANT DM190 FP102900 20445 -0500 00 0 20447 CAL *+2 DM200 FP102910 | 20446 0074 00 4 11413 TSX PRGMR,4 DM210 FP102920 | 20447 0074 00 4 22003 TSX SUMRY,4 TSX SUMRY,4 DM220 FP102930 | 20450 0520 00 0 20536 ZET DAA80 TEST NO SYMBOL SWITCH DM230 FP102940 | 20451 0074 00 4 16043 TSX SYMBL,4 DM240 FP102950 20452 0500 00 2 00001 CLA 1,2 MOVE REC TYPE, FLD = TO O.PDM260 FP102960 | 20453 0560 00 2 00002 LDQ 2,2 DM270 FP102970 | 20454 -0763 00 0 00006 LGL 6 DM280 FP102980 | 20455 0601 00 0 20460 STO *+3 DM290 FP102990 | 1 LISTING OF 12/01/64 PAGE 219 CALC (9PAC32). HAND CALCULATIONS | | 20456 -0500 00 0 20460 CAL *+2 DM300 FP103000 | 20457 0020 00 0 17623 TRA DJ060 WHICH IS A TSX PRGMR,4 DM310 FP103010 | 20460 0 00000 0 00000 PZE BACK TO READ DM320 FP103020 20461 0534 00 4 20566 DM500 LXA ADDCT,4 DEC OP DM500 FP103030 | 20462 -3 00074 4 20465 TXL *+3,4,60 DM510 FP103040 | 20463 0074 00 4 10507 TSX T0010,4 FP103050 | 20464 -1 01176 2 14307 STR BB010,2,638 MORE THAN 10 BCD IN DEC OP DM520 FP103060 | 20465 -0500 00 0 04623 CAL CARD+2 DM530 FP103070 20466 0560 00 0 04624 LDQ CARD+3 DM540 FP103080 | 20467 -0765 00 0 00014 LGR 12 DM550 FP103090 | 20470 -0520 00 0 20565 NZT ADDSN DM560 FP103100 | 20471 -0765 00 0 00006 LGR 6 DM570 FP103110 | 20472 0754 00 0 00000 PXA 0,0 DM580 FP103120 20473 3 00044 4 20505 TXH DM700,4,36 MORE THAN 6 BCD DM590 FP103130 | 20474 0634 00 4 20475 SXA *+1,4 DM600 FP103140 | 20475 -0763 00 0 00000 LGL 0 DM610 FP103150 | 20476 0602 00 0 07751 DM620 SLW B1020 DM620 FP103160 | 20477 0074 00 4 07570 TSX B0010,4 DM630 FP103170 20500 0500 00 0 07747 CLA B1000 DM650 FP103180 | 20501 0520 00 0 20565 ZET ADDSN DM660 FP103190 | 20502 -0760 00 0 00003 SSM DM670 FP103200 | 20503 0601 00 0 20532 STO ITEMP DM680 FP103210 | 20504 0020 00 0 17105 TRA DG010 DM690 FP103220 20505 1 77734 4 20506 DM700 TXI *+1,4,-36 DM700 FP103230 | 20506 0634 00 4 20507 SXA *+1,4 DM710 FP103240 | 20507 -0763 00 0 00000 DM720 LGL 0 DM720 FP103250 | 20510 0602 00 0 07750 SLW B1010 DM730 FP103260 | 20511 -0500 00 0 20507 CAL DM720 DM740 FP103270 20512 -0320 00 0 20600 ANA DAD30 DM750 FP103280 | 20513 -0760 00 0 00003 SSM DM760 FP103290 | 20514 0400 00 0 20601 ADD DAD40 DM770 FP103300 | 20515 0100 00 0 20525 TZE DM860 DM780 FP103310 | 20516 -0120 00 0 20525 TMI DM860 DM790 FP103320 20517 0621 00 0 20522 STA *+3 DM800 FP103330 | 20520 -0500 00 0 04623 CAL CARD+2 DM810 FP103340 | 20521 0560 00 0 04624 LDQ CARD+3 DM820 FP103350 | 20522 -0765 00 0 00000 LGR 0 DM830 FP103360 | 20523 -0763 00 0 00044 LGL 36 DM840 FP103370 20524 0020 00 0 20476 TRA DM620 DM850 FP103380 | 20525 0621 00 0 20530 DM860 STA *+3 DM860 FP103390 | 20526 -0500 00 0 04624 CAL CARD+3 DM870 FP103400 | 20527 0560 00 0 04625 LDQ CARD+4 DM880 FP103410 | 20530 -0763 00 0 00000 LGL 0 DM890 FP103420 20531 0020 00 0 20476 TRA DM620 DM920 FP103430 | * FP103440 | * FP103450 | * VERTICAL CALCULATION STORAGE FP103460 | * FP103470 20532 0 00000 0 00000 ITEMP PZE TEMPORARY INSTRUCTION WORD DAA10 FP103480 | 20533 0 00000 0 00001 DAONE PZE 1 DAA20 FP103490 | 20534 0 00000 0 00000 DAA60 PZE ! ADDR SWITCH DAA60 FP103500 | 20535 0 00000 0 00000 DAA70 PZE CONSTANT SWITCH DAA70 FP103510 | 20536 0 00000 0 00000 DAA80 PZE NO SYMBOL SWITCH DAA80 FP103520 20537 0 00000 0 00000 DAA90 PZE ADDR SYMBOLIC SWITCH DAA90 FP103530 | 20540 0 00000 0 00000 DAA95 PZE REL ADDR,0-YES,NZ-NO DAA95 FP103540 | 1 LISTING OF 12/01/64 PAGE 220 | CALC (9PAC32). HAND CALCULATIONS | 20541 0 00000 0 00000 DAA96 PZE REL ADDR VALUE DAA96 FP103550 | 20542 0 00000 0 00000 DAA97 PZE REL COUNT SIGN,0-PLUS,NZ-MINUS DAA97 FP103560 | 20543 0 00000 0 00000 DAA91 PZE YADDR SWITCH DAA91 FP103570 | 20544 0 00000 0 00000 DAA93 PZE PADDR SWITCH DAA93 FP103580 | 20545 0 00000 0 00000 DAA94 PZE BES SW DAA94 FP103590 20546 0 00000 0 00000 DAA98 PZE 0 TEMP STO FOR OPCODE FP103600 | 20547 000000462363 DAB10 BCI 1,000OCT DAB10 FP103610 | 20550 000000242523 DAB20 BCI 1,000DEC DAB20 FP103620 | 20551 000000222331 DAB30 BCI 1,000BCI DAB30 FP103630 | 20552 0074 00 0 00000 DAB35 TSX 0,0 DAB35 FP103640 20553 000000000054 DAB40 BCI 1,00000* DAB40 FP103650 | 20554 000000000060 DAB41 BCI 1,00000 BLANK DAB41 FP103660 | 20555 000000000045 DAB42 BCI 1,00000N DAB42 FP103670 | 20556 +000060000000 DAB50 OCT 000060000000 INDIRECT ADDR BITS DAB50 FP103680 | 20557 0 00000 4 00000 DAB51 PZE 0,4 CHANNEL INDIRECT ADDR DAB51 FP103690 20560 0 00000 2 00000 DAB52 PZE 0,2 CHANNEL NON-TRANSMIT DAB52 FP103700 | 20561 000000606060 DAB60 BCI 1,000 DAB60 FP103710 | 20562 +377000000000 DAB70 OCT 377000000000 DAB70 FP103720 | 20563 +005000000000 DAB80 OCT 005000000000 DAB80 FP103730 | 20564 0 00000 0 00000 DZERO PZE DAB90 FP103740 20565 0 00000 0 00000 ADDSN PZE DAC10 FP103750 | 20566 0 00000 0 00000 ADDCT PZE DAC20 FP103760 | 20567 0 00000 0 00000 TAGCT PZE DAC30 FP103770 | 20570 0 00000 0 00000 DECSN PZE DAC40 FP103780 | 20571 0 00000 0 00000 DECCT PZE DAC50 FP103790 20572 000000000040 DAC60 BCI 1,00000- DAC60 FP103800 | 20573 606060606060 DBLNK BCI 1, DAC70 FP103810 | 20574 000000000073 DCOMM BCI 1,00000, DAC80 FP103820 | 20575 0 00000 0 00000 DAC90 PZE BLANK SWITCH DAC90 FP103830 | 20576 000000000052 DAD10 BCI 1,00000! DAD10 FP103840 20577 0 00000 0 00011 DAD20 PZE 9 DAD20 FP103850 | 20600 +000000077777 DAD30 OCT 000000077777 DAD30 FP103860 | 20601 0 00000 0 00022 DAD40 PZE 18 DAD40 FP103870 | 20602 +000000700000 DAD50 OCT 000000700000 DAD50 FP103880 | 20603 0 00000 0 00006 DAD60 PZE 6 DAD60 FP103890 20604 +077777000000 DAD70 OCT 077777000000 DAD70 FP103900 | 20605 0 00000 0 00000 DAD80 PZE LEFT COUNT FOR OCTOP DAD80 FP103910 | 20606 0 00000 0 00000 DAD90 PZE SYMBOLIC CODE FOR YADDR DAD90 FP103920 | 20607 0 00000 0 00000 DAD91 PZE RELATIVE COUNT FOR PADDR DAD91 FP103930 | 20610 0 00000 0 00000 DAD92 PZE 0 TEMP STORAGE DAD92 FP103940 20611 000000000041 DAE10 BCI 1,00000J DAE10 FP103950 | 20612 000000000047 DAE20 BCI 1,00000P DAE20 FP103960 | 20613 232524316360 DAE25 BCI 1,CEDIT DAE25 FP103970 | 20614 000000000020 DAE30 BCI 1,00000+ DAE30 FP103980 | 20615 0 00000 0 00000 DAE40 PZE RUN-IN SWITCH DAE40 FP103990 20616 0 00000 0 00000 DAE41 PZE SWX DAE41 FP104000 | 20617 0 00000 0 00000 DAE42 PZE 0 DAE42 FP104010 | 20620 000000000023 DAE50 BCI 1,00000C DAE50 FP104020 | 20621 606060606060 DAE60 BCI 1, DAE60 FP104030 | 20622 +000000000060 DAE70 OCT 000000000060 DAE70 FP104040 20623 0 00000 0 00000 DAE80 PZE TEMP SYMBOL STORAGE DAE80 FP104050 | 20624 000000000031 DAF20 BCI 1,00000I DAF20 FP104060 | 20625 000000000046 DAF21 BCI 1,00000O DAF21 FP104070 | 20626 0 00000 0 00000 DAF22 PZE 0 O SWITCH DAF22 FP104080 | 20627 0 00000 0 00000 DAF23 PZE 0 I SWITCH DAF23 FP104090 1 LISTING OF 12/01/64 PAGE 221 | CALC (9PAC32). HAND CALCULATIONS | | 20630 0 00000 0 00000 DAF30 PZE CURRENT SF REC TYPE DAF30 FP104100 | 20631 0 00000 4 21433 DAF40 PZE GETBI,4 DAF40 FP104110 20632 0 00000 4 21442 DAF50 PZE GETUN,4 DAF50 FP104120 | 20633 0 00000 4 21466 DAF60 PZE GETPA,4 DAF60 FP104130 | 20634 0 00000 4 21536 DAF70 PZE PUTBI,4 DAF70 FP104140 | 20635 0 00000 4 21652 DAF80 PZE PUTUN,4 DAF80 FP104150 | 20636 0 00000 4 21673 DAF90 PZE PUTPA,4 DAF90 FP104160 20637 0 00000 0 00000 DAG10 PZE G.H. SWITCH DAG10 FP104170 | 20640 000000272563 DAG20 BCI 1,000GET DAG20 FP104180 | 20641 000000476463 DAG30 BCI 1,000PUT DAG30 FP104190 | 20642 000000512541 DAG40 BCI 1,000REJ DAG40 FP104200 | 20643 000000312745 DAG50 BCI 1,000IGN DAG50 FP104210 20644 000000226262 DAG51 BCI 1,000BSS DAG51 FP104220 | 20645 000000222562 DAG52 BCI 1,000BES DAG52 FP104230 | 20646 0 00000 0 00000 DAG60 PZE DAG60 FP104240 | 20647 0 00000 0 00000 DAG80 PZE REC TYPE FROM CARD DAG80 FP104250 | 20650 -377777777717 DAG90 OCT 777777777717 DAG90 FP104260 20651 0 00000 0 00000 DAH10 PZE DAH10 FP104270 | 20652 0 00000 0 00000 DAH20 PZE STORAGE FOR ORIG BAE 80 DAH20 FP104280 | 20653 0 00000 0 00000 LSYMB PZE TEMP. STORAGE FOR LOCATION DAH30 FP104290 | 20654 +000000606060 DAI01 OCT 000000606060 DAI01 FP104300 | 20655 000000226262 DAI02 BCI 1,000BSS DAI02 FP104310 20656 000000222562 DAI03 BCI 1,000BES DAI03 FP104320 | 20657 000000255151 DAI04 BCI 1,000ERR DAI04 FP104330 | 20660 000000000065 DAI05 BCI 1,00000V DAI05 FP104340 | 20661 0 00000 0 00003 DAI06 PZE 3 DAI06 FP104350 | 20662 000052000065 DAI07 BCI 1,00!00V DAI07 FP104360 20663 000000000030 DAI08 BCI 1,00000H DAI08 FP104370 | 20664 -000000000000 DAI09 OCT 400000000000 SIGN BIT DAI09 FP104380 | 20665 000000224262 DAI10 BCI 1,000BKS DAI10 FP104390 | 20666 000000626444 DAI12 BCI 1,000SUM DAI12 FP104400 | 20667 006060606060 DAI13 BCI 1,0 DAI13 FP104410 20670 -200000000000 DAI14 OCT 600000000000 DAI14 FP104420 | 20671 0 00000 0 00000 DAI30 PZE 0 DAI30 FP104430 | 20672 DAI50 BSS 100 FOR CALC BOON FP104440 | 21036 +036100212343 MOSTOP OCT 036100212343 ACL THESE ARE MOST FP104450 | 21037 +040000212424 OCT 040000212424 ADD OF THE INSTRUCTION FP104460 21040 +040100212444 OCT 040100212444 ADM CODES--THAT IS FP104470 | 21041 +076700214362 OCT 076700214362 ALS THOSE WHICH HAVE FP104480 | 21042 -032000214521 OCT 432000214521 ANA A 12 BIT CODE AND FP104490 | 21043 +032000214562 OCT 032000214562 ANS INDIRECT ADDRESSING FP104500 | 21044 +077100215162 OCT 077100215162 ARS BITS 13,14. FP104510 21045 -077400216723 OCT 477400216723 AXC FP104520 | 21046 +077400216763 OCT 077400216763 AXT FP104530 | 21047 -050000232143 OCT 450000232143 CAL FP104540 | 21050 -011400232150 OCT 411400232150 CAQ FP104550 | 21051 +034000232162 OCT 034000232162 CAS FP104560 21052 +050000234321 OCT 050000234321 CLA FP104570 | 21053 +050200234362 OCT 050200234362 CLS FP104580 | 21054 -015400235150 OCT 415400235150 CRQ FP104590 | 21055 +011400236551 OCT 011400236551 CVR FP104600 | 21056 +022000246530 OCT 022000246530 DVH FP104610 21057 +022100246547 OCT 022100246547 DVP FP104620 | 21060 +032200255121 OCT 032200255121 ERA FP104630 | 21061 +030000262124 OCT 030000262124 FAD FP104640 | 1 LISTING OF 12/01/64 PAGE 222 | CALC (9PAC32). HAND CALCULATIONS | 21062 +030400262144 OCT 030400262144 FAM FP104650 | 21063 +024000262430 OCT 024000262430 FDH FP104660 | 21064 +024100262447 OCT 024100262447 FDP FP104670 | 21065 +026000264447 OCT 026000264447 FMP FP104680 21066 -000000264651 OCT 400000264651 FOR FP104690 | 21067 +030200266222 OCT 030200266222 FSB FP104700 | 21070 +030600266244 OCT 030600266244 FSM FP104710 | 21071 -100000266525 OCT 500000266525 FVE FP104720 | 21072 +042000304751 OCT 042000304751 HPR FP104730 21073 +000000306351 OCT 000000306351 HTR FP104740 | 21074 +004100313121 OCT 004100313121 IIA FP104750 | 21075 -005100313143 OCT 405100313143 IIL FP104760 | 21076 +005100313151 OCT 005100313151 IIR FP104770 | 21077 +044000313162 OCT 044000313162 IIS FP104780 21100 +053500432123 OCT 053500432123 LAC FP104790 | 21101 -034000432162 OCT 434000432162 LAS FP104800 | 21102 -053500432423 OCT 453500432423 LDC FP104810 | 21103 +044100432431 OCT 044100432431 LDI FP104820 | 21104 +056000432450 OCT 056000432450 LDQ FP104830 21105 -005400432663 OCT 405400432663 LFT FP104840 | 21106 -076300432743 OCT 476300432743 LGL FP104850 | 21107 -076500432751 OCT 476500432751 LGR FP104860 | 21110 +076300434362 OCT 076300434362 LLS FP104870 | 21111 -005600434563 OCT 405600434563 LNT FP104880 21112 +076500435162 OCT 076500435162 LRS FP104890 | 21113 +053400436721 OCT 053400436721 LXA FP104900 | 21114 -053400436724 OCT 453400436724 LXD FP104910 | 21115 -100000444245 OCT 500000444245 MON FP104920 | 21116 -020000444751 OCT 420000444751 MPR FP104930 21117 +020000444770 OCT 020000444770 MPY FP104940 | 21120 -300000446330 OCT 700000446330 MTH FP104950 | 21121 -200000446366 OCT 600000446366 MTW FP104960 | 21122 -000000447125 OCT 400000447125 MZE FP104970 | 21123 +076100454647 OCT 076100454647 NOP FP104980 21124 -052000457163 OCT 452000457163 NZT FP104990 | 21125 +004300462131 OCT 004300462131 OAI FP105000 | 21126 +044400462663 OCT 044400462663 OFT FP105010 | 21127 +044600464563 OCT 044600464563 ONT FP105020 | 21130 -050100465121 OCT 450100465121 ORA FP105030 21131 -060200465162 OCT 460200465162 ORS FP105040 | 21132 +044200466231 OCT 044200466231 OSI FP105050 | 21133 +073700472123 OCT 073700472123 PAC FP105060 | 21134 +004400472131 OCT 004400472131 PAI FP105070 | 21135 +073400472167 OCT 073400472167 PAX FP105080 21136 -073700472423 OCT 473700472423 PDC FP105090 | 21137 -073400472467 OCT 473400472467 PDX FP105100 | 21140 -004600473121 OCT 404600473121 PIA FP105110 | 21141 +100000474645 OCT 100000474645 PON FP105120 | 21142 +300000476330 OCT 300000476330 PTH FP105130 21143 +200000476366 OCT 200000476366 PTW FP105140 | 21144 +075400476721 OCT 075400476721 PXA FP105150 | 21145 -075400476724 OCT 475400476724 PXD FP105160 | 21146 +000000477125 OCT 000000477125 PZE FP105170 | 21147 +005400512663 OCT 005400512663 RFT FP105180 21150 -004200513121 OCT 404200513121 RIA FP105190 | 1 LISTING OF 12/01/64 PAGE 223 | CALC (9PAC32). HAND CALCULATIONS | | 21151 -005700513143 OCT 405700513143 RIL FP105200 21152 +005700513151 OCT 005700513151 RIR FP105210 | 21153 +044500513162 OCT 044500513162 RIS FP105220 | 21154 +005600514563 OCT 005600514563 RNT FP105230 | 21155 -077300515043 OCT 477300515043 RQL FP105240 | 21156 -040000622244 OCT 440000622244 SBM FP105250 21157 -005500623143 OCT 405500623143 SIL FP105260 | 21160 +005500623151 OCT 005500623151 SIR FP105270 | 21161 -200000623167 OCT 600000623167 SIX FP105280 | 21162 -062000624350 OCT 462000624350 SLQ FP105290 | 21163 +060200624366 OCT 060200624366 SLW FP105300 21164 +062100626321 OCT 062100626321 STA FP105310 | 21165 +062200626324 OCT 062200626324 STD FP105320 | 21166 +060400626331 OCT 060400626331 STI FP105330 | 21167 -062500626343 OCT 462500626343 STL FP105340 | 21170 +060100626346 OCT 060100626346 STO FP105350 21171 +063000626347 OCT 063000626347 STP FP105360 | 21172 -060000626350 OCT 460000626350 STQ FP105370 | 21173 -100000626351 OCT 500000626351 STR FP105380 | 21174 +062500626363 OCT 062500626363 STT FP105390 | 21175 +060000626371 OCT 060000626371 STZ FP105400 21176 +040200626422 OCT 040200626422 SUB FP105410 | 21177 -300000626545 OCT 700000626545 SVN FP105420 | 21200 +063400626721 OCT 063400626721 SXA FP105430 | 21201 -063400626724 OCT 463400626724 SXD FP105440 | 21202 +004600633126 OCT 004600633126 TIF FP105450 21203 +004200633146 OCT 004200633146 TIO FP105460 | 21204 +200000633167 OCT 200000633167 TIX FP105470 | 21205 +004000634350 OCT 004000634350 TLQ FP105480 | 21206 -012000634431 OCT 412000634431 TMI FP105490 | 21207 -014000634546 OCT 414000634546 TNO FP105500 21210 -200000634567 OCT 600000634567 TNX FP105510 | 21211 -010000634571 OCT 410000634571 TNZ FP105520 | 21212 +014000634665 OCT 014000634665 TOV FP105530 | 21213 +012000634743 OCT 012000634743 TPL FP105540 | 21214 +016200635047 OCT 016200635047 TQP FP105550 21215 +002000635121 OCT 002000635121 TRA FP105560 | 21216 +007400636267 OCT 007400636267 TSX FP105570 | 21217 +002100636351 OCT 002100636351 TTR FP105580 | 21220 +300000636730 OCT 300000636730 TXH FP105590 | 21221 +100000636731 OCT 100000636731 TXI FP105600 21222 -300000636743 OCT 700000636743 TXL FP105610 | 21223 +010000637125 OCT 010000637125 TZE FP105620 | 21224 -030400642144 OCT 430400642144 UAM FP105630 | 21225 -030000642621 OCT 430000642621 UFA FP105640 | 21226 -026000642644 OCT 426000642644 UFM FP105650 21227 -030200642662 OCT 430200642662 UFS FP105660 | 21230 -030600646244 OCT 430600646244 USM FP105670 | 21231 +022400652430 OCT 022400652430 VDH FP105680 | 21232 +022500652447 OCT 022500652447 VDP FP105690 | 21233 +020400654344 OCT 020400654344 VLM FP105700 21234 +013100672321 OCT 013100672321 XCA FP105710 | 21235 -013000672343 OCT 413000672343 XCL FP105720 | 21236 +052200672523 OCT 052200672523 XEC FP105730 | 21237 +052000712563 OCT 052000712563 ZET FP105740 | 1 LISTING OF 12/01/64 PAGE 224 CALC (9PAC32). HAND CALCULATIONS | | 21240 BSS 25 FOR EXPANSION FP105750 | * FP105760 | * FP105770 21271 000000233062 NOROP BCI 1,000CHS THESE INSTRUCTION CODES FP105780 | 21272 0760 00 0 00002 CHS HAVE 12 BIT CODE AND FP105790 | 21273 000000234344 BCI 1,000CLM AFFECT THE ADDRESS. FP105800 | 21274 0760 00 0 00000 CLM INDIRECT ADDRESSING FP105810 | 21275 000000234644 BCI 1,000COM BITS ARE 13, 14. FP105820 21276 0760 00 0 00006 COM FP105830 | 21277 000000242363 BCI 1,000DCT FP105840 | 21300 0760 00 0 00012 DCT FP105850 | 21301 000000254542 BCI 1,000ENK FP105860 | 21302 0760 00 0 00004 ENK FP105870 21303 000000256344 BCI 1,000ETM FP105880 | 21304 0760 00 0 00007 ETM FP105890 | 21305 000000265145 BCI 1,000FRN FP105900 | 21306 0760 00 0 00011 FRN FP105910 | 21307 000000314663 BCI 1,000IOT FP105920 21310 0760 00 0 00005 IOT FP105930 | 21311 000000432263 BCI 1,000LBT FP105940 | 21312 0760 00 0 00001 LBT FP105950 | 21313 000000436344 BCI 1,000LTM FP105960 | 21314 -0760 00 0 00007 LTM FP105970 21315 000000446225 BCI 1,000MSE FP105980 | 21316 -0760 00 0 00000 MSE 0 FP105990 | 21317 000000472263 BCI 1,000PBT FP106000 | 21320 -0760 00 0 00001 PBT FP106010 | 21321 000000476225 BCI 1,000PSE FP106020 21322 0760 00 0 00000 PSE 0 FP106030 | 21323 000000514524 BCI 1,000RND FP106040 | 21324 0760 00 0 00010 RND FP106050 | 21325 000000624326 BCI 1,000SLF FP106060 | 21326 0760 00 0 00140 SLF FP106070 21327 000000624345 BCI 1,000SLN FP106080 | 21330 0760 00 0 00140 SLN 0 FP106090 | 21331 000000624363 BCI 1,000SLT FP106100 | 21332 -0760 00 0 00140 SLT 0 FP106110 | 21333 000000626244 BCI 1,000SSM FP106120 21334 -0760 00 0 00003 SSM FP106130 | 21335 000000626247 BCI 1,000SSP FP106140 | 21336 0760 00 0 00003 SSP FP106150 | 21337 000000626663 BCI 1,000SWT FP106160 | 21340 0760 00 0 00160 SWT 0 FP106170 21341 BSS 20 FOR EXPANSION FP106180 | * FP106190 | * FP106200 | 21365 000031462324 CMDOP BCI 1,00IOCD THESE CHANNEL COMMANDS FP106210 | 21366 0 00000 0 00000 IOCD 0,0,0 HAVE INDIRECT ADDRESSING FP106220 21367 000031462347 BCI 1,00IOCP BIT 19 AND NON- FP106230 | 21370 -0 00000 0 00000 IOCP 0,0,0 TRANSMIT BIT 20 FP106240 | 21371 000031462363 BCI 1,00IOCT FP106250 | 21372 -1 00000 0 00000 IOCT 0,0,0 FP106260 | 21373 000031465147 BCI 1,00IORP FP106270 21374 2 00000 0 00000 IORP 0,0,0 FP106280 | 21375 000031465163 BCI 1,00IORT FP106290 | 1 LISTING OF 12/01/64 PAGE 225 | CALC (9PAC32). HAND CALCULATIONS | 21376 3 00000 0 00000 IORT 0,0,0 FP106300 | 21377 000031466247 BCI 1,00IOSP FP106310 | 21400 -2 00000 0 00000 IOSP 0,0,0 FP106320 | 21401 000031466263 BCI 1,00IOST FP106330 | 21402 -3 00000 0 00000 IOST 0,0,0 FP106340 21403 000000632330 BCI 1,000TCH FP106350 | 21404 1 00000 0 00000 TCH 0,0,0 FP106360 | 21405 BSS 100 FOR EXPANSION FP106370 | * FP106380 | * FP106390 * FP106400 | * FP106410 | * FP106420 | 21551 242526314525 SIXCH BCI 1,DEFINE FP106430 | 21552 216363212330 BCI 1,ATTACH FP106440 21553 DUP 1,8 FP106450 | 21553 0 00000 0 00000 PZE 0 FP106460 | 21554 0 00000 0 00000 | 21555 0 00000 0 00000 | 21556 0 00000 0 00000 21557 0 00000 0 00000 | 21560 0 00000 0 00000 | 21561 0 00000 0 00000 | 21562 0 00000 0 00000 | 21727 VECAL BES 100 FP106470 1 LISTING OF 12/01/64 PAGE 226 | CALC (9PAC32). HAND CALCULATIONS | | * FP106490 | * FP106500 1 LISTING OF 12/01/64 PAGE 227 | MATCH (9PAC32). | | * FP106520 | * FP106530 * FP106540 | * SA001 FP106550 | * GEN. OBJ. PROG. TO SEQ. CHANGE DATA INPUT SA002 FP106560 | * SA004 FP106570 | 21727 304651442330 BCI 1,HORMCH SA020 FP106580 21730 0020 00 0 22432 TRA SC700 TO CLEAN UP SA030 FP106590 | 21731 0520 00 0 24152 ZET SAA21 RUN IN SW. TEST SA040 FP106600 | 21732 0020 00 0 22045 TRA SB010 SA050 FP106610 | 21733 -0625 00 0 24152 STL SAA21 SW.-OFF SA060 FP106620 | 21734 -0625 00 0 11411 STL W0150 SA063 FP106630 21735 0534 00 4 15063 LXA VSA30,4 INIT. LOC. 1ST WORD SA065 FP106640 | 21736 -0500 00 4 11367 CAL HRDWR,4 CHANGE DATA BUFFER SA066 FP106650 | 21737 0621 00 0 24153 STA SAA22 FP106660 | 21740 -0520 00 0 11376 NZT HORIZ SA070 FP106670 | 21741 0020 00 0 21745 TRA *+4 FOR UPDATES SA071 FP106680 21742 -0500 00 0 67174 CAL HEADR+2 SA072 FP106690 | 21743 0771 00 0 00006 ARS 6 SA073 FP106700 | 21744 0020 00 0 21750 TRA *+4 SA074 FP106710 | 21745 -0500 00 0 67173 CAL HEADR+1 SA075 FP106720 | 21746 0560 00 0 67174 LDQ HEADR+2 SA076 FP106730 21747 -0763 00 0 00006 LGL 6 SA080 FP106740 | 21750 -0320 00 0 10730 ANA BCD03 * SA090 FP106750 | 21751 0621 00 0 21763 STA SA210 * SA100 FP106760 | 21752 -0774 00 2 67543 AXC FAA02,2 SEARCH BUTBL FOR REC TYPE SA110 FP106770 | 21753 0520 00 2 00004 ZET 4,2 * BUFFER LOC. SA120 FP106780 21754 2 00003 2 21753 TIX *-1,2,3 * SA140 FP106790 | 21755 -0500 00 2 00001 CAL 1,2 * SA150 FP106800 | 21756 0402 00 0 11342 SUB SFCUR SA160 FP106810 | 21757 0400 00 0 24153 ADD SAA22 LOC. 1ST WORD CHG BUFFER SA170 FP106820 | 21760 0621 00 0 21766 STA SA240 STORE -SXA- SA180 FP106830 21761 -0500 00 0 21763 CAL *+2 GEN - AXT - REC TYPE SA190 FP106840 | 21762 0074 00 4 11413 TSX PRGMR,4 * SA200 FP106850 | 21763 0774 00 4 00000 SA210 AXT 0,4 * SA210 FP106860 | 21764 -0500 00 0 21766 CAL *+2 GEN -SXA- TO BUFFER SA220 FP106870 | 21765 0074 00 4 11413 TSX PRGMR,4 * SA230 FP106880 21766 0634 00 4 00000 SA240 SXA 0,4 * SA240 FP106890 | 21767 -0500 00 0 04621 CAL CARD PRIORITY TO - AXT SA250 FP106900 | 21770 0771 00 0 00030 ARS 24 * SA260 FP106910 | 21771 0621 00 0 22000 STA SA330 * SA270 FP106920 | 21772 0621 00 0 24051 STA SAA16 SAVE PRIORITY CODE IN W.A. SA275 FP106930 21773 -0500 00 0 21766 CAL SA240 INIT ADDRESS OF -SXA- SA280 FP106940 | 21774 0400 00 0 24050 ADD SAA15 * SA290 FP106950 | 21775 0621 00 0 22003 STA SA360 * SA300 FP106960 | 21776 -0500 00 0 22000 CAL *+2 GEN -AXT- PRIORITY SA310 FP106970 | 21777 0074 00 4 11413 TSX PRGMR,4 * SA320 FP106980 22000 0774 00 4 00000 SA330 AXT 0,4 * SA330 FP106990 | 22001 -0500 00 0 22003 CAL *+2 GEN -SXA- TO BUFFER SA340 FP107000 | 22002 0074 00 4 11413 TSX PRGMR,4 * SA350 FP107010 | 22003 0634 00 4 00000 SA360 SXA 0,4 * SA360 FP107020 | 22004 -0500 00 0 22006 CAL *+2 TSX--PRIORITY COUNT SA363 FP107030 22005 0074 00 4 11413 TSX PRGMR,4 SA364 FP107040 | 22006 0074 00 4 22524 TSX PRICT,4 SA365 FP107050 | 22007 0774 00 1 00113 AXT OTZE,1 HORMSA370 FP107060 | 1 LISTING OF 12/01/64 PAGE 228 | MATCH (9PAC32). | 22010 0520 00 1 67461 SA380 ZET ONTRY+OTZE,1 SA380 FP107070 | 22011 0020 00 0 22014 TRA *+3 SA381 FP107080 | 22012 0074 00 4 10507 TSX T0010,4 FP107090 | 22013 -1 11124 4 00000 STR 0,4,4692 PRIORITY NOT IN ONTRY TBL(TBL NFUL) SA390 FP107100 22014 -0500 00 1 67461 CAL ONTRY+OTZE,1 SA400 FP107110 | 22015 0771 00 0 00022 ARS 18 SA410 FP107120 | 22016 -0320 00 0 10730 ANA BCD03 SA420 FP107130 | 22017 -0340 00 0 24051 LAS SAA16 SA430 FP107140 | 22020 0020 00 0 22022 TRA *+2 SA440 FP107150 22021 0020 00 0 22025 TRA *+4 IS IN TABLE SA450 FP107160 | 22022 2 00001 1 22010 TIX SA380,1,1 SA460 FP107170 | 22023 0074 00 4 10507 TSX T0010,4 FP107180 | 22024 -1 11123 4 00000 STR 0,4,4691 PRIORITY NOT IN ONTRY TBL(TBL FULL) SA470 FP107190 | 22025 -0500 00 1 67461 CAL ONTRY+OTZE,1 SA480 FP107200 22026 0621 00 0 22031 STA SA520 TO -AXT- SA490 FP107210 | 22027 -0500 00 0 22031 CAL *+2 GEN- -AXT- SA500 FP107220 | 22030 0074 00 4 11413 TSX PRGMR,4 * SA510 FP107230 | 22031 0774 00 4 00000 SA520 AXT 0,4 * SA520 FP107240 | 22032 -0500 00 0 22034 CAL *+2 GEN. -SXA- SA530 FP107250 22033 0074 00 4 11413 TSX PRGMR,4 * SA540 FP107260 | 22034 0634 00 4 00003 SXA 3,4 * SA550 FP107270 | 22035 -0500 00 0 15063 CAL VSA30 SUPPLY SYM. LOC TO-SXA- SA560 FP107280 | 22036 0767 00 0 00016 ALS 14 * SA570 FP107290 | 22037 -0501 00 0 24154 ORA SAA23 * SA580 FP107300 22040 0074 00 4 11507 TSX YADDR,4 * SA590 FP107310 | 22041 0774 00 4 00154 AXT 108,4 SA591 FP107320 | 22042 0600 00 4 67721 STZ FAA02+110,4 SA592 FP107330 | 22043 2 00003 4 22042 TIX *-1,4,3 SA593 FP107340 | 22044 0020 00 0 22045 TRA SB010 SA600 FP107350 22045 -0520 00 0 11376 SB010 NZT HORIZ SB010 FP107360 | 22046 0020 00 0 22052 TRA *+4 1ST SB011 FP107370 | 22047 -0500 00 0 04623 CAL CARD+2 SB011 FP107380 | 22050 0560 00 0 04624 LDQ CARD+3 SB012 FP107390 | 22051 0020 00 0 22054 TRA *+3 SB013 FP107400 22052 -0500 00 0 04622 CAL CARD+1 SB014 FP107410 | 22053 0560 00 0 04623 LDQ CARD+2 SB015 FP107420 | 22054 -0763 00 0 00022 LGL 18 SB016 FP107430 | 22055 0602 00 0 22176 SLW SB270 SB017 FP107440 | 22056 0602 00 0 22417 SLW SC560 SB018 FP107450 22057 0520 00 0 11376 ZET HORIZ SB020 FP107460 | 22060 0020 00 0 22142 TRA SB050 SB021 FP107470 | 22061 -0520 00 0 11372 NZT UPDIC SB022 FP107480 | 22062 0020 00 0 22144 TRA SB070 SB0220FP107490 | 22063 -0500 00 0 04623 CAL CARD+2 SB023 FP107500 22064 0560 00 0 04624 LDQ CARD+3 SB024 FP107510 | 22065 -0763 00 0 00022 LGL 18 SB025 FP107520 | 22066 -0320 00 0 10744 ANA BCD17 WITH DICTIONARY SB030 FP107530 | 22067 0602 00 0 22071 SLW *+2 SB031 FP107540 | 22070 0074 00 4 13615 TSX E1010,4 SB032 FP107550 22071 0 00000 0 00000 PZE 0 FLD = SB033 FP107560 | 22072 -0500 00 0 13654 CAL E2005 SB034 FP107570 | 22073 0602 00 0 24045 SLW SAA12 WORD SB035 FP107580 | 22074 -0500 00 0 13655 CAL E2006 SB036 FP107590 | 22075 0602 00 0 24046 SLW SAA13 BIT SB037 FP107600 22076 -0500 00 0 13653 CAL E2004 SB038 FP107610 | 1 LISTING OF 12/01/64 PAGE 229 | MATCH (9PAC32). | | 22077 0602 00 0 24047 SLW SAA14 SB0385FP107620 22100 -0500 00 0 04625 CAL CARD+4 CHG FLD LENGTH SB039 FP107630 | 22101 0771 00 0 00014 ARS 12 SB0390FP107640 | 22102 -0320 00 0 10734 ANA BCD07 SB0390FP107650 | 22103 -0340 00 0 24203 LAS SAA49 CO TO BLANK SB0390FP107660 | 22104 0020 00 0 22106 TRA *+2 SB0390FP107670 22105 0020 00 0 22165 TRA SB180 OUT SB0390FP107680 | 22106 0602 00 0 07751 SLW B1020 SB0390FP107690 | 22107 0074 00 4 07572 TSX B0012,4 SB0390FP107700 | 22110 0500 00 0 07747 CLA B1000 SB0390FP107710 | 22111 0621 00 0 24047 STA SAA14 SB0391FP107720 22112 -0500 00 0 04624 CAL CARD+3 CHG INCR SB0391FP107730 | 22113 0560 00 0 04625 LDQ CARD+4 SB0391FP107740 | 22114 -0763 00 0 00006 LGL 6 SB0391FP107750 | 22115 -0320 00 0 10734 ANA BCD07 SB0391FP107760 | 22116 -0340 00 0 24203 LAS SAA49 SB0391FP107770 22117 0020 00 0 22124 TRA *+5 FP107780 | 22120 0020 00 0 22122 TRA *+2 SB0391FP107790 | 22121 0020 00 0 22124 TRA *+3 FP107800 | 22122 0074 00 4 10507 TSX T0010,4 FP107810 | 22123 -1 00500 2 14307 STR BB010,2,320 CHG LEN BUT NO INCR SB0391FP107820 22124 0602 00 0 07751 SLW B1020 SB0391FP107830 | 22125 0074 00 4 07572 TSX B0012,4 SB0391FP107840 | 22126 0534 00 2 24045 LXA SAA12,2 WD SB0392FP107850 | 22127 0500 00 0 24046 CLA SAA13 BIT SB0392FP107860 | 22130 0400 00 0 07747 ADD B1000 SB0392FP107870 22131 0734 00 1 00000 PAX 0,1 SB0392FP107880 | 22132 -2 00044 1 22134 TNX *+2,1,36 SB0392FP107890 | 22133 1 00001 2 22132 TXI *-1,2,1 SB0392FP107900 | 22134 0634 00 1 24046 SXA SAA13,1 STORE BIT = SB0392FP107910 | 22135 -3 00043 1 22140 TXL *+3,1,35 SB0392FP107920 22136 1 00001 2 22137 TXI *+1,2,1 INCR WD = SB0392FP107930 | 22137 0600 00 0 24046 STZ SAA13 ZERO TO BIT = SB0393FP107940 | 22140 0634 00 2 24045 SXA SAA12,2 STORE WD= SB0393FP107950 | 22141 0020 00 0 22165 TRA SB180 SB040 FP107960 | 22142 -0500 00 0 04622 SB050 CAL CARD+1 HORIZ SB050 FP107970 22143 0020 00 0 22145 TRA *+2 SB060 FP107980 | 22144 -0500 00 0 04623 SB070 CAL CARD+2 UPD SB070 FP107990 | 22145 -0320 00 0 10734 ANA BCD07 SB071 FP108000 | 22146 0602 00 0 07751 SLW B1020 RECORD INCR. SB072 FP108010 | 22147 0074 00 4 07572 TSX B0012,4 SB073 FP108020 22150 -0500 00 0 07747 CAL B1000 CALC WORD + BIT INCR SB075 FP108030 | 22151 -0765 00 0 00044 LGR 36 SB076 FP108040 | 22152 0220 00 0 24044 DVH SAA11 SB077 FP108050 | 22153 -0600 00 0 24045 STQ SAA12 SB078 FP108060 | 22154 0601 00 0 24046 STO SAA13 SB080 FP108070 22155 -0500 00 0 04624 CAL CARD+3 UPD LOC SIZE SB090 FP108080 | 22156 0520 00 0 11376 ZET HORIZ SB100 FP108090 | 22157 -0500 00 0 04623 CAL CARD+2 HORIZ LOC SIZE SB120 FP108100 | 22160 0771 00 0 00022 ARS 18 SB121 FP108110 | 22161 0602 00 0 07751 SLW B1020 SB130 FP108120 22162 0074 00 4 07572 TSX B0012,4 SB140 FP108130 | 22163 -0500 00 0 07747 CAL B1000 SB160 FP108140 | 22164 0601 00 0 24047 STO SAA14 SB170 FP108150 | 22165 -0500 00 0 04621 SB180 CAL CARD TEST FOR SEQN SB180 FP108160 | 1 LISTING OF 12/01/64 PAGE 230 MATCH (9PAC32). | | 22166 0560 00 0 04622 LDQ CARD+1 * SB190 FP108170 | 22167 -0763 00 0 00014 LGL 12 * SB200 FP108180 | 22170 -0320 00 0 10734 ANA BCD07 * SB210 FP108190 22171 -0340 00 0 24043 LAS SAA10 * SB220 FP108200 | 22172 0020 00 0 22174 TRA *+2 * NO SB230 FP108210 | 22173 0020 00 0 22354 TRA SC300 * YES SB240 FP108220 | 22174 -0500 00 0 22176 CAL *+2 SB250 FP108230 | 22175 0020 00 0 22177 TRA *+2 SB260 FP108240 22176 0 00000 0 00000 SB270 PZE 0 FOR FLD= + REC TYPE SB270 FP108250 | 22177 0774 00 1 01441 AXT SEQID,1 SB290 FP108260 | 22200 -0520 00 1 71400 NZT AAG24+SEQID,1 TEST FOR END OF TBL. SB300 FP108270 | 22201 0020 00 0 22410 TRA SC500 * YES SB310 FP108280 | 22202 -0340 00 1 71400 LAS AAG24+SEQID,1 IS FLD. IN SEQ ID. TBL SB320 FP108290 22203 2 00005 1 22200 TIX *-3,1,5 HI SB330 FP108300 | 22204 0020 00 0 22206 TRA SB370 EQ - YES SB340 FP108310 | 22205 0020 00 0 22410 TRA SC500 L/ - NO SB350 FP108320 | 22206 -0500 00 1 71401 SB370 CAL AAG24+SEQID+1,1 CALC LOC IN SF BUFFER SB370 FP108330 | 22207 0400 00 1 71401 ADD AAG24+SEQID+1,1 FOR THIS LEVEL SB380 FP108340 22210 0400 00 1 71401 ADD AAG24+SEQID+1,1 SB390 FP108350 | 22211 0737 00 2 00000 PAC 0,2 * SB400 FP108360 | 22212 -0500 00 0 24047 CAL SAA14 SIZE SB401 FP108370 | 22213 -0340 00 1 71404 LAS AAG24+SEQID+4,1 SB402 FP108380 | 22214 0020 00 0 22216 TRA *+2 SB403 FP108390 22215 0020 00 0 22220 TRA *+3 SB404 FP108400 | 22216 0074 00 4 10507 TSX T0010,4 FP108410 | 22217 -1 00455 2 14307 STR BB010,2,301 CHG FLD SIZE NOT EQUAL TO SF FLD SIZESB405 FP108420 | 22220 -0500 00 2 67541 CAL FAA02-2,2 * SB410 FP108430 | 22221 0402 00 0 11342 SUB SFCUR SUB. LOC 1ST WORD OF BUFFERSB420 FP108440 22222 0120 00 0 22225 TPL *+3 SB430 FP108450 | 22223 0074 00 4 10507 TSX T0010,4 FP108460 | 22224 -1 10042 4 00000 STR 0,4,4130 BUF REFER TO SEQ LEVEL TBL INVALID SB450 FP108470 | 22225 0400 00 0 24153 ADD SAA22 ADD LOC. 1ST WORD CHG BUFFESB460 FP108480 | 22226 0621 00 0 22247 STA SB610 SOTRE -STZ- SB470 FP108490 22227 0621 00 0 22340 STA SC120 * -SLW- SB480 FP108500 | 22230 -0625 00 2 67542 STL FAA02-1,2 SET LEVEL TEST WORD NON ZERSB485 FP108510 | 22231 0500 00 2 67540 CLA FAA02-3,2 TAKE SF BUFFER LEVEL SIZE SB490 FP108520 | 22232 0402 00 0 24047 SUB SAA14 SUB CHG. FLD. SIZ(E SB500 FP108530 | 22233 0120 00 0 22236 TPL *+3 0 SB510 FP108540 22234 0074 00 4 10507 TSX T0010,4 FP108550 | 22235 -1 00456 2 14307 STR BB010,2,302 CHG FLD SIZE LARGER THAN BUFFER LEVELSB520 FP108560 | 22236 0340 00 0 24044 CAS SAA11 36 SB530 FP108570 | 22237 0020 00 0 22242 TRA SB570 HI SB540 FP108580 | 22240 0020 00 0 22242 TRA SB570 EQ SB550 FP108590 22241 0020 00 0 22256 TRA SB670 LO. SB560 FP108600 | 22242 0402 00 0 24044 SB570 SUB SAA11 SUB36 SB570 FP108610 | 22243 -0120 00 0 22256 TMI SB670 SB580 FP108620 | 22244 0602 00 0 24202 SLW SAA45 SB585 FP108630 | 22245 -0500 00 0 22247 CAL *+2 GEN. -STZ- SB590 FP108640 22246 0074 00 4 11413 TSX PRGMR,4 * SB600 FP108650 | 22247 0600 00 0 00000 SB610 STZ 0 * SB610 FP108660 | 22250 -0500 00 0 22247 CAL SB610 MODIFY - STZ-+-SLW- SB620 FP108670 | 22251 0400 00 0 24050 ADD SAA15 * 1 SB630 FP108680 | 22252 0621 00 0 22247 STA SB610 * -STZ- SB640 FP108690 22253 0621 00 0 22340 STA SC120 * -SLW- SB650 FP108700 | 22254 -0500 00 0 24202 CAL SAA45 SB655 FP108710 | 1 LISTING OF 12/01/64 PAGE 231 | MATCH (9PAC32). | 22255 0020 00 0 22242 TRA SB570 REPEAT LOOP SB660 FP108720 | 22256 0500 00 0 24046 SB670 CLA SAA13 SB670 FP108730 | 22257 0400 00 0 24047 ADD SAA14 ADD SIZE SB680 FP108740 | 22260 -0765 00 0 00044 LGR 36 SB690 FP108750 | 22261 0220 00 0 24044 DVH SAA11 DIVIDE BY 36 SB700 FP108760 22262 0621 00 0 22327 STA SC030 STORE -LGL- SB710 FP108770 | 22263 -0500 00 0 24047 CAL SAA14 SIZE SB720 FP108780 | 22264 -0765 00 0 00044 LGR 36 SB730 FP108790 | 22265 0220 00 0 24044 DVH SAA11 DIVIDE BY 36 SB740 FP108800 | 22266 0601 00 0 24051 STO SAA16 STORE REMAINDER SB750 FP108810 22267 0100 00 0 22301 TZE SB830 SB751 FP108820 | 22270 0400 00 0 24046 ADD SAA13 ADD BIT INCR. SB760 FP108830 | 22271 0560 00 0 24177 LDQ SAA42 SB770 FP108840 | 22272 0040 00 0 22301 TLQ SB830 SB780 FP108850 | 22273 -0500 00 0 24045 CAL SAA12 WORD INCR SB790 FP108860 22274 0402 00 0 24050 SUB SAA15 SUB 1 SB800 FP108870 | 22275 0120 00 0 22277 TPL *+2 SB801 FP108880 | 22276 -0500 00 0 24166 CAL SAA33 SB802 FP108890 | 22277 0621 00 0 22316 STA SB920 STORE -CAL- SB810 FP108900 | 22300 0020 00 0 22303 TRA *+3 SB820 FP108910 22301 -0500 00 0 24045 SB830 CAL SAA12 WORD INCR SB830 FP108920 | 22302 0621 00 0 22316 STA SB920 STORE -CAL SB840 FP108930 | 22303 -0500 00 0 24051 CAL SAA16 REMAINDER - SIZE/36 SB850 FP108940 | 22304 -0100 00 0 22307 TNZ *+3 SB851 FP108950 | 22305 -0500 00 0 24052 CAL SAA17 SB852 FP108960 22306 0020 00 0 22312 TRA *+4 SB853 FP108970 | 22307 -0765 00 0 00044 LGR 36 SB860 FP108980 | 22310 0220 00 0 24052 DVH SAA17 DIVIDE BY 6 SB870 FP108990 | 22311 0131 00 0 00000 XCA SB880 FP109000 | 22312 0621 00 0 22335 STA SC090 STORE - PZE-L SB890 FP109010 22313 0534 00 2 24047 LXA SAA14,2 LOOP CONTROL SB895 FP109020 | 22314 -0500 00 0 22316 SB900 CAL *+2 GEN -CAL- SB900 FP109030 | 22315 0074 00 4 11413 TSX PRGMR,4 * SB910 FP109040 | 22316 -0500 00 1 00000 SB920 CAL 0,1 * SB920 FP109050 | 22317 -0500 00 0 22316 CAL SB920 INIT -LDQ- SB930 FP109060 22320 0400 00 0 24050 ADD SAA15 * SB940 FP109070 | 22321 0621 00 0 22324 STA SB980 * SB950 FP109080 | 22322 -0500 00 0 22324 CAL *+2 GEN -LDQ SB960 FP109090 | 22323 0074 00 4 11413 TSX PRGMR,4 * SB970 FP109100 | 22324 0560 00 1 00000 SB980 LDQ 0,1 * SB980 FP109110 22325 -0500 00 0 22327 CAL *+2 GEN -LGL- SC010 FP109120 | 22326 0074 00 4 11413 TSX PRGMR,4 SC020 FP109130 | 22327 -0763 00 0 00000 SC030 LGL 0 * SC030 FP109140 | 22330 -0500 00 0 22332 CAL *+2 GEN -TSX- SC040 FP109150 | 22331 0074 00 4 11413 TSX PRGMR,4 * SC050 FP109160 22332 0074 00 4 20642 TSX TO702,4 SC060 FP109170 | 22333 -0500 00 0 22335 CAL *+2 GEN -PZE- SC070 FP109180 | 22334 0074 00 4 11413 TSX PRGMR,4 * SC080 FP109190 | 22335 0 00000 0 00000 SC090 PZE 0 * SC090 FP109200 | 22336 -0500 00 0 22340 CAL *+2 GEN -SLW- SC100 FP109210 22337 0074 00 4 11413 TSX PRGMR,4 * SC110 FP109220 | 22340 0602 00 0 00000 SC120 SLW 0 * SC120 FP109230 | 22341 2 00044 2 22343 TIX *+2,2,36 TEST FOR ADDITIONAL WORDS SC130 FP109240 | 22342 0020 00 0 14307 TRA BB010 NO.-NEXT MTCH CARD. SC140 FP109250 | 22343 -0500 00 0 22316 CAL SB920 MODIFY -CAL- SC150 FP109260 1 LISTING OF 12/01/64 PAGE 232 | MATCH (9PAC32). | | 22344 0400 00 0 24050 ADD SAA15 * SC160 FP109270 | 22345 0621 00 0 22316 STA SB920 * SC170 FP109280 22346 -0500 00 0 24052 CAL SAA17 * -PZE- SC210 FP109290 | 22347 0621 00 0 22335 STA SC090 * SC220 FP109300 | 22350 -0500 00 0 22340 CAL SC120 * -SLW- SC230 FP109310 | 22351 0400 00 0 24050 ADD SAA15 * SC240 FP109320 | 22352 0621 00 0 22340 STA SC120 * SC250 FP109330 22353 0020 00 0 22314 TRA SB900 GEN INST. FOR NEXT WORD SC260 FP109340 | 22354 -0500 00 0 04622 SC300 CAL CARD+1 CONVERT SEQ.N-LEVEL SC300 FP109350 | 22355 0771 00 0 00022 ARS 18 * TO BIN SC310 FP109360 | 22356 -0320 00 0 10726 ANA BCD01 * SC320 FP109370 | 22357 0601 00 0 07751 STO B1020 * SC330 FP109380 22360 0074 00 4 07570 TSX B0010,4 * SC340 FP109390 | 22361 -0625 00 0 24111 STL SAA18+30 SET SEQ-N SW - ONL SC360 FP109400 | 22362 0500 00 0 07747 CLA B1000 3 TIMES LEVEL SC370 FP109410 | 22363 0400 00 0 07747 ADD B1000 * SC380 FP109420 | 22364 0400 00 0 07747 ADD B1000 * SC390 FP109430 22365 0737 00 2 00000 PAC 0,2 TO INDEX COMPLIMENTED SC400 FP109440 | 22366 -0520 00 2 24053 NZT SAA18,2 TEST FOR PREVIOUS ENTRY FOR SC404 FP109450 | 22367 0020 00 0 22372 TRA *+3 FP109460 | 22370 0074 00 4 10507 TSX T0010,4 FP109470 | 22371 -1 00457 2 14307 STR BB010,2,303 PREV SEQ N AT THIS LEVEL SC405 FP109480 22372 -0500 00 0 24045 CAL SAA12 WORD INCR. TO TBL. SC410 FP109490 | 22373 0602 00 2 24053 SLW SAA18,2 * SC420 FP109500 | 22374 -0500 00 0 24046 CAL SAA13 BIT INCR. SC430 FP109510 | 22375 0602 00 2 24054 SLW SAA18+1,2 * SC440 FP109520 | 22376 -0500 00 0 24047 CAL SAA14 SIZE SC450 FP109530 22377 0602 00 2 24055 SLW SAA18+2,2 * SC452 FP109540 | 22400 0774 00 1 00001 AXT 1,1 CALC FLD. SIZE IN WORDS SC454 FP109550 | 22401 0402 00 0 24044 SUB SAA11 SUB. 36 SC456 FP109560 | 22402 -0120 00 0 22404 TMI *+2 * SC458 FP109570 | 22403 1 00001 1 22401 TXI *-2,1,1 * SC460 FP109580 22404 0754 00 1 00000 PXA 0,1 ADD TO TOTAL SEQ-N SIZE SC462 FP109590 | 22405 0400 00 0 24155 ADD SAA24 * SC464 FP109600 | 22406 0601 00 0 24155 STO SAA24 * SC466 FP109610 | 22407 0020 00 0 14307 TRA BB010 EXIT SC470 FP109620 | 22410 -0625 00 0 24151 SC500 STL SAA20 SET NON SEQ MTCH SW - ON SC500 FP109630 22411 0774 00 2 00043 AXT 35,2 BUILD NON SEQ MTCH. TBL. SC510 FP109640 | 22412 2 00005 2 22415 TIX *+3,2,5 SC520 FP109650 | 22413 0074 00 4 10507 TSX T0010,4 FP109660 | 22414 -1 11622 5 00000 STR 0,5,5010 EXCEED NON-SEQ MTCH TBL(30/5 WORDS) SC530 FP109670 | 22415 -0500 00 0 22417 CAL *+2 SC540 FP109680 22416 0020 00 0 22420 TRA *+2 SC550 FP109690 | 22417 0 00000 0 00000 SC560 PZE 0 REC TYPE AND HD NO. SC560 FP109700 | 22420 0602 00 2 24150 SLW SAA19+30,2 * SC570 FP109710 | 22421 -0500 00 0 24045 CAL SAA12 WORD INCR. SC580 FP109720 | 22422 0602 00 2 24151 SLW SAA19+31,2 * SC590 FP109730 22423 -0500 00 0 24046 CAL SAA13 BIT INCR SC600 FP109740 | 22424 0602 00 2 24152 SLW SAA19+32,2 * SC610 FP109750 | 22425 -0500 00 0 24047 CAL SAA14 SIZE SC620 FP109760 | 22426 0602 00 2 24153 SLW SAA19+33,2 * SC630 FP109770 | 22427 0600 00 2 24154 STZ SAA19+34,2 SC640 FP109780 22430 0634 00 2 22411 SXA SC500+1,2 UPDATE INDEX SC650 FP109790 | 22431 0020 00 0 14307 TRA BB010 SC660 FP109800 | 22432 -0774 00 2 67543 SC700 AXC FAA02,2 EDIT LEVELS USED SC700 FP109810 | 1 LISTING OF 12/01/64 PAGE 233 | MATCH (9PAC32). | 22433 -0520 00 2 00003 NZT 3,2 TEST FOR LAST TBL ENTRY SC710 FP109820 | 22434 0020 00 0 22547 TRA SD010 * YES -ALL LEVELS USED SC720 FP109830 | 22435 -0520 00 2 00002 NZT 2,2 IS LEVEL USED SC730 FP109840 | 22436 0020 00 0 22440 TRA *+2 * NO SC740 FP109850 22437 2 00003 2 22433 TIX *-4,2,3 * YES SC750 FP109860 | 22440 -0500 00 2 00001 CAL 1,2 BUFFER LOC. OF 1ST UNUSED LSC760 FP109870 | 22441 0602 00 0 24051 SLW SAA16 * SC770 FP109880 | 22442 -0500 00 0 21763 CAL SA210 SC771 FP109890 | 22443 -0320 00 0 10730 ANA BCD03 SC774 FP109900 22444 0774 00 4 00144 AXT 100,4 SC775 FP109910 | 22445 -0340 00 4 71544 LAS AAG84+100,4 SC776 FP109920 | 22446 0020 00 0 22450 TRA *+2 SC777 FP109930 | 22447 0020 00 0 22453 TRA *+4 SC778 FP109940 | 22450 2 00002 4 22445 TIX *-3,4,2 SC779 FP109950 22451 0074 00 4 10507 TSX T0010,4 FP109960 | 22452 -1 05740 3 00000 STR 0,3,3040 REC TYPE NOT IN RT TABLE SC780 FP109970 | 22453 -0500 00 4 71545 CAL AAG84+101,4 SC781 FP109980 | 22454 -0340 00 0 24051 LAS SAA16 SC782 FP109990 | 22455 0020 00 0 22457 TRA *+2 SC783 FP110000 22456 0020 00 0 22463 TRA *+5 SC784 FP110010 | 22457 0520 00 0 11372 ZET UPDIC FP110020 | 22460 0020 00 0 22461 TRA *+1 MAKE *+3 FP110030 | 22461 0074 00 4 10507 TSX T0010,4 FP110040 | 22462 -1 00460 2 22547 STR SD010,2,304 SEQ ID LEVEL MISSING ON MTCH CARDS SC785 FP110050 22463 2 00003 2 22464 TIX *+1,2,3 SC786 FP110060 | 22464 -0520 00 2 00003 NZT 3,2 TEST FOR LAST ENTRY SC790 FP110070 | 22465 0020 00 0 22472 TRA *+5 YES SC800 FP110080 | 22466 -0520 00 2 00002 NZT 2,2 IS LEVEL USED SC810 FP110090 | 22467 0020 00 0 22463 TRA *-4 * N/ SC820 FP110100 22470 0074 00 4 10507 TSX T0010,4 FP110110 | 22471 -1 10054 4 00000 STR 0,4,4140 SEQ LEVEL NOT USED-IMPOSSIBLE SC830 FP110120 | 22472 -0500 00 2 00001 CAL 1,2 BUFFER LOC OF REC TYPE SC840 FP110130 | 22473 0402 00 0 24051 SUB SAA16 SUB. LOC 1ST UNUSED LEVEL SC850 FP110140 | 22474 0621 00 0 22535 STA SC910 INIT. NO. OF-STZ-REQUIRED SC860 FP110150 22475 0100 00 0 22547 TZE SD010 SC861 FP110160 | 22476 -0500 00 0 24051 CAL SAA16 CAL. -STZ- ADDRESS SC870 FP110170 | 22477 0402 00 0 11342 SUB SFCUR * SC880 FP110180 | 22500 0400 00 0 24153 ADD SAA22 * LOC 1ST WORD CHG DATA BUFSC890 FP110190 | 22501 0621 00 0 22540 STA SC930 * TO -STZ- SC900 FP110200 22502 0621 00 0 22527 STA SC903 SC9000FP110210 | 22503 0774 00 4 00702 AXT SMZE-3,4 SC9000FP110220 | 22504 -0520 00 4 72447 NZT SUTBL+SMZE-3,4 SC9000FP110230 | 22505 0020 00 0 22535 TRA SC910 SC9000FP110240 | 22506 -0500 00 4 72450 CAL SUTBL+SMZE-2,4 SC9000FP110250 22507 0771 00 0 00030 ARS 24 SC9000FP110260 | 22510 0322 00 0 21763 ERA SA210 SC9000FP110270 | 22511 -0320 00 0 10730 ANA BCD03 SC9000FP110280 | 22512 0100 00 0 22516 TZE *+4 YES SC900 FP110290 | 22513 2 00003 4 22504 TIX *-7,4,3 SC9001FP110300 22514 0074 00 4 10507 TSX T0010,4 FP110310 | 22515 -1 00145 2 22535 STR SC910,2,101 RT SUMMED INTO NOT IN SUMM TBL SC900 FP110320 | 22516 -0500 00 0 22520 CAL *+2 SC9001FP110330 | 22517 0074 00 4 11413 TSX PRGMR,4 SC9001FP110340 | 22520 0760 00 0 00000 CLM 0 SC9001FP110350 22521 -0500 00 0 22523 CAL *+2 SC9001FP110360 | 1 LISTING OF 12/01/64 PAGE 234 | MATCH (9PAC32). | | 22522 0074 00 4 11413 TSX PRGMR,4 SC9001FP110370 22523 0760 00 0 00006 COM 0 SC9001FP110380 | 22524 0534 00 1 22535 LXA SC910,1 SC9001FP110390 | 22525 -0500 00 0 22527 SC902 CAL *+2 SC9001FP110400 | 22526 0074 00 4 11413 TSX PRGMR,4 SC9002FP110410 | 22527 0602 00 0 00000 SC903 SLW 0 SC9002FP110420 22530 -0500 00 0 22527 CAL SC903 SC9002FP110430 | 22531 0400 00 0 24050 ADD SAA15 SC9002FP110440 | 22532 0621 00 0 22527 STA SC903 1 SC9002FP110450 | 22533 2 00001 1 22525 TIX SC902,1,1 SC9002FP110460 | 22534 0020 00 0 22547 TRA SD010 SC9002FP110470 22535 0774 00 1 00000 SC910 AXT 0,1 SC910 FP110480 | 22536 -0500 00 0 22540 CAL *+2 GEN-STZ- SC920 FP110490 | 22537 0074 00 4 11413 TSX PRGMR,4 * SC920 FP110500 | 22540 0600 00 0 00000 SC930 STZ 0 * SC930 FP110510 | 22541 2 00001 1 22543 TIX *+2,1,1 LAST-STZ- SC940 FP110520 22542 0020 00 0 22547 TRA SD010 YES SC950 FP110530 | 22543 -0500 00 0 22540 CAL SC930 MODIFY FOR NEXT -STZ- SC960 FP110540 | 22544 0400 00 0 24050 ADD SAA15 * SC970 FP110550 | 22545 0621 00 0 22540 STA SC930 * SC980 FP110560 | 22546 0020 00 0 22536 TRA SC910+1 * SC990 FP110570 22547 -0520 00 0 24151 SD010 NZT SAA20 TEST FOR ANY NON. SEQ. MTCHSD010 FP110580 | 22550 0020 00 0 22666 TRA SD700 NO SD020 FP110590 | 22551 0774 00 1 00043 SD030 AXT 35,1 INIT FOR TBL. LOCS. SD030 FP110600 | 22552 2 00005 1 22554 TIX *+2,1,5 * SD040 FP110610 | 22553 0020 00 0 22666 TRA SD700 END OF TBL SD050 FP110620 22554 0634 00 1 22551 SXA SD030,1 SD060 FP110630 | 22555 -0500 00 1 24152 CAL SAA19+32,1 BIT INCR. SD070 FP110640 | 22556 0400 00 1 24153 ADD SAA19+33,1 ADD SIZE SD080 FP110650 | 22557 0100 00 0 22666 TZE SD700 END OF TABLE SD081 FP110660 | 22560 -0765 00 0 00044 LGR 36 SD090 FP110670 22561 0220 00 0 24044 DVH SAA11 36 SD100 FP110680 | 22562 0621 00 0 22633 STA SD470 STORE -LGL- SD110 FP110690 | 22563 -0500 00 1 24153 CAL SAA19+33,1 SIZE SD120 FP110700 | 22564 -0765 00 0 00044 LGR 36 SD130 FP110710 | 22565 0220 00 0 24044 DVH SAA11 36 SD140 FP110720 22566 0621 00 0 22642 STA SD477 SD141 FP110730 | 22567 0100 00 0 22601 TZE SD220 SD142 FP110740 | 22570 0400 00 1 24152 ADD SAA19+32,1 ADD BIT INCR. SD150 FP110750 | 22571 0560 00 0 24177 LDQ SAA42 SD160 FP110760 | 22572 0040 00 0 22601 TLQ SD220 SD170 FP110770 22573 -0500 00 1 24151 CAL SAA19+31,1 WORC INCR. SD180 FP110780 | 22574 0402 00 0 24050 SUB SAA15 SUB. 1 SD190 FP110790 | 22575 0120 00 0 22577 TPL *+2 SD191 FP110800 | 22576 -0500 00 0 24166 CAL SAA33 SD192 FP110810 | 22577 0621 00 0 22622 STA SD390 STORE -CAL- SD200 FP110820 22600 0020 00 0 22603 TRA *+3 SD210 FP110830 | 22601 -0500 00 1 24151 SD220 CAL SAA19+31,1 WORD - INCR SD220 FP110840 | 22602 0621 00 0 22622 STA SD390 STORE -CAL- SD230 FP110850 | 22603 -0500 00 0 04401 CAL ADRES BUFFER LOC. TO TBL SD240 FP110860 | 22604 0601 00 1 24154 STO SAA19+34,1 * SD250 FP110870 22605 0621 00 0 22654 STA SD500 * TO -SLW- SD260 FP110880 | 22606 0774 00 2 00001 AXT 1,2 SD270 FP110890 | 22607 -0500 00 1 24153 CAL SAA19+33,1 SIZE SD280 FP110900 | 22610 0402 00 0 24044 SUB SAA11 SUB. 36 SD290 FP110910 | 1 LISTING OF 12/01/64 PAGE 235 MATCH (9PAC32). | | 22611 -0120 00 0 22613 TMI *+2 SD300 FP110920 | 22612 1 00001 2 22610 TXI *-2,2,1 SD310 FP110930 | 22613 0754 00 2 00000 PXA 0,2 UPDATE ADRES FOR NEXT SD320 FP110940 22614 0400 00 0 04401 ADD ADRES * STORAGE LOC. SD330 FP110950 | 22615 0601 00 0 04401 STO ADRES * SD340 FP110960 | 22616 -0500 00 1 24153 CAL SAA19+33,1 SD350 FP110970 | 22617 0734 00 2 00000 PAX 0,2 SD360 FP110980 | 22620 -0500 00 0 22622 CAL *+2 GEN -CAL-L SD370 FP110990 22621 0074 00 4 11413 TSX PRGMR,4 * SD380 FP111000 | 22622 -0500 00 1 00000 SD390 CAL 0,1 * SD390 FP111010 | 22623 -0500 00 0 22622 CAL *-1 SD400 FP111020 | 22624 0400 00 0 24050 ADD SAA15 SD401 FP111030 | 22625 0621 00 0 22630 STA SD440 SD410 FP111040 22626 -0500 00 0 22630 CAL *+2 GEN -LDQ- SD420 FP111050 | 22627 0074 00 4 11413 TSX PRGMR,4 * SD430 FP111060 | 22630 0560 00 1 00000 SD440 LDQ 0,1 * SD440 FP111070 | 22631 -0500 00 0 22633 CAL *+2 GEN -LGL- SD450 FP111080 | 22632 0074 00 4 11413 TSX PRGMR,4 * SD460 FP111090 22633 -0763 00 0 00000 SD470 LGL 0 * SD470 FP111100 | 22634 -0500 00 0 22642 CAL SD477 SD471 FP111110 | 22635 -0320 00 0 24166 ANA SAA33 ADDR SD472 FP111120 | 22636 0402 00 0 24044 SUB SAA11 36 SD473 FP111130 | 22637 0120 00 0 22652 TPL SD485 SD474 FP111140 22640 0754 00 0 00000 PXA 0,0 SD475 FP111150 | 22641 0560 00 0 11024 LDQ BCD77 SD476 FP111160 | 22642 -0763 00 0 00000 SD477 LGL 0 SD477 FP111170 | 22643 0074 00 4 11426 TSX STORR,4 SD478 FP111180 | 22644 -0500 00 0 22646 CAL *+2 GEN -ANA- SD479 FP111190 22645 0074 00 4 11413 TSX PRGMR,4 SD480 FP111200 | 22646 -0320 00 0 00000 ANA 0 SD481 FP111210 | 22647 0074 00 4 11454 TSX SADDR,4 SD482 FP111220 | 22650 -0500 00 0 24166 CAL SAA33 SD483 FP111230 | 22651 0621 00 0 22642 STA SD477 SD484 FP111240 22652 -0500 00 0 22654 SD485 CAL *+2 GEN -SLW- SD485 FP111250 | 22653 0074 00 4 11413 TSX PRGMR,4 * SD490 FP111260 | 22654 0602 00 0 00000 SD500 SLW 0 * SD500 FP111270 | 22655 2 00044 2 22657 TIX *+2,2,36 SD510 FP111280 | 22656 0020 00 0 22551 TRA SD030 TO PROCESS NEXT FLD. SD520 FP111290 22657 -0500 00 0 22622 CAL SD390 MODIFY -CAL- SD530 FP111300 | 22660 0400 00 0 24050 ADD SAA15 * SD540 FP111310 | 22661 0621 00 0 22622 STA SD390 * SD550 FP111320 | 22662 -0500 00 0 22654 CAL SD500 * -SLW- SD560 FP111330 | 22663 0400 00 0 24050 ADD SAA15 * SD570 FP111340 22664 0621 00 0 22654 STA SD500 * SD580 FP111350 | 22665 0020 00 0 22620 TRA SD390-2 * SD590 FP111360 | 22666 -0520 00 0 24111 SD700 NZT SAA18+30 TEST FOR ANY SEQ-N SD700 FP111370 | 22667 0020 00 0 23033 TRA SE650 * NO SD710 FP111380 | 22670 -0500 00 0 04401 CAL ADRES 1ST WORD SEQ-N CUR. BUFFER SD720 FP111390 22671 0621 00 0 23014 STA SE520 * TO -SLW- SD730 FP111400 | 22672 0400 00 0 24155 ADD SAA24 ADD LEN OF SEQ-N BUFFER SD740 FP111410 | 22673 0621 00 0 22712 STA SD880 TO - CAL- SD750 FP111420 | 22674 0621 00 0 23146 STA SF130 TO - CAL- SD760 FP111430 | 22675 0621 00 0 23243 STA SF413 TO-SLW SD765 FP111440 22676 0400 00 0 24155 ADD SAA24 ADD LEN OF SEQ-N BUFFER SD770 FP111450 | 22677 0621 00 0 22715 STA SD910 TO -SLW- SD780 FP111460 | 1 LISTING OF 12/01/64 PAGE 236 | MATCH (9PAC32). | 22700 0621 00 0 23151 STA SF160 TO LAS SD790 FP111470 | 22701 0621 00 0 23240 STA SF410 TO-CAL SD795 FP111480 | 22702 0601 00 0 04401 STO ADRES UPDATE ADRES SD800 FP111490 | 22703 -0500 00 0 24155 CAL SAA24 INIT -AXT- SD810 FP111500 | 22704 0621 00 0 22707 STA SD850 * SD820 FP111510 22705 -0500 00 0 22707 CAL *+2 GEN -AXT- SD830 FP111520 | 22706 0074 00 4 11413 TSX PRGMR,4 * SD840 FP111530 | 22707 0774 00 4 00000 SD850 AXT 0,4 * SD850 FP111540 | 22710 -0500 00 0 22712 CAL *+2 GEN -CAL- SD860 FP111550 | 22711 0074 00 4 11413 TSX PRGMR,4 * SD870 FP111560 22712 -0500 00 4 00000 SD880 CAL 0,4 * SD880 FP111570 | 22713 -0500 00 0 22715 CAL *+2 GEN -SLW- SD890 FP111580 | 22714 0074 00 4 11413 TSX PRGMR,4 * SD900 FP111590 | 22715 0602 00 4 00000 SD910 SLW 0,4 * SD910 FP111600 | 22716 -0500 00 0 22720 CAL *+2 GEN -TIX- SD920 FP111610 22717 0074 00 4 11413 TSX PRGMR,4 * SD930 FP111620 | 22720 2 00001 4 00000 TIX 0,4,1 * SD940 FP111630 | 22721 0502 00 0 24157 CLS SAA26 SUPPLY REL.ADDR TO -TIX SD950 FP111640 | 22722 0074 00 4 11465 TSX PADDR,4 * SD960 FP111650 | 22723 0774 00 1 00041 SE010 AXT 33,1 SE010 FP111660 22724 2 00003 1 22726 TIX *+2,1,3 SE020 FP111670 | 22725 0020 00 0 23033 TRA SE650 END OF TBL SE030 FP111680 | 22726 0634 00 1 22723 SXA SE010,1 MOD FOR NEXT LEVEL SE040 FP111690 | 22727 -0520 00 1 24111 NZT SAA18+30,1 IS 1ST LEVEL USED SE050 FP111700 | 22730 0020 00 0 22723 TRA SE010 NO SE060 FP111710 22731 -0500 00 1 24112 CAL SAA18+31,1 TAKE BIT INCR. SE070 FP111720 | 22732 0400 00 1 24113 ADD SAA18+32,1 ADD SIZE SE080 FP111730 | 22733 -0765 00 0 00044 LGR 36 SE090 FP111740 | 22734 0220 00 0 24044 DVH SAA11 36 SE100 FP111750 | 22735 0621 00 0 23003 STA SE430 STORE -LGL SE110 FP111760 22736 -0500 00 1 24113 CAL SAA18+32,1 TAKE SIZE SE120 FP111770 | 22737 -0765 00 0 00044 LGR 36 SE130 FP111780 | 22740 0220 00 0 24044 DVH SAA11 36 SE140 FP111790 | 22741 0601 00 0 24051 STO SAA16 SE150 FP111800 | 22742 0100 00 0 22754 TZE SE230 SE151 FP111810 22743 0400 00 1 24112 ADD SAA18+31,1 ADD BIT INCR. SE160 FP111820 | 22744 0560 00 0 24177 LDQ SAA42 SE170 FP111830 | 22745 0040 00 0 22754 TLQ SE230 SE180 FP111840 | 22746 -0500 00 1 24111 CAL SAA18+30,1 TAKE WORD INCR. SE190 FP111850 | 22747 0402 00 0 24050 SUB SAA15 SUB. 1 SE200 FP111860 22750 0120 00 0 22752 TPL *+2 SE201 FP111870 | 22751 -0500 00 0 24166 CAL SAA33 SE202 FP111880 | 22752 0621 00 0 22772 STA SE340 STORE -CAL SE210 FP111890 | 22753 0020 00 0 22756 TRA *+3 SE220 FP111900 | 22754 -0500 00 1 24111 SE230 CAL SAA18+30,1 WORD INCR. SE230 FP111910 22755 0621 00 0 22772 STA SE340 STORE -CAL- SE240 FP111920 | 22756 -0500 00 0 24051 CAL SAA16 TAKE SIZE/36 - REM. SE250 FP111930 | 22757 -0100 00 0 22762 TNZ *+3 SE251 FP111940 | 22760 -0500 00 0 24052 CAL SAA17 SE252 FP111950 | 22761 0020 00 0 22765 TRA *+4 SE253 FP111960 22762 -0765 00 0 00044 LGR 36 SE260 FP111970 | 22763 0220 00 0 24052 DVH SAA17 DIVIDE BY 6 SE270 FP111980 | 22764 0131 00 0 00000 XCA SE280 FP111990 | 22765 0621 00 0 23011 STA SE490 STORE - PZE- SE290 FP112000 | 22766 -0500 00 1 24113 CAL SAA18+32,1 INIT FOR FLD OVER 36 BITS SE300 FP112010 1 LISTING OF 12/01/64 PAGE 237 | MATCH (9PAC32). | | 22767 0734 00 2 00000 PAX 0,2 * SE310 FP112020 | 22770 -0500 00 0 22772 CAL *+2 GEN - CAL- SE320 FP112030 22771 0074 00 4 11413 TSX PRGMR,4 * SE330 FP112040 | 22772 -0500 00 1 00000 SE340 CAL 0,1 * SE340 FP112050 | 22773 -0500 00 0 22772 CAL SE340 INIT -LDQ SE350 FP112060 | 22774 0400 00 0 24050 ADD SAA15 * SE360 FP112070 | 22775 0621 00 0 23000 STA *+3 * SE370 FP112080 22776 -0500 00 0 23000 CAL *+2 GEN - LDQ- SE380 FP112090 | 22777 0074 00 4 11413 TSX PRGMR,4 * SE390 FP112100 | 23000 0560 00 1 00000 LDQ 0,1 * SE400 FP112110 | 23001 -0500 00 0 23003 CAL *+2 GEN -LGL- SE410 FP112120 | 23002 0074 00 4 11413 TSX PRGMR,4 * SE420 FP112130 23003 -0763 00 0 00000 SE430 LGL 0 * SE430 FP112140 | 23004 -0500 00 0 23006 CAL *+2 GEN - TSX- SE440 FP112150 | 23005 0074 00 4 11413 TSX PRGMR,4 * SE450 FP112160 | 23006 0074 00 4 20642 TSX TO702,4 T SE460 FP112170 | 23007 -0500 00 0 23011 CAL *+2 GEN -PZE- SE470 FP112180 23010 0074 00 4 11413 TSX PRGMR,4 * SE480 FP112190 | 23011 0 00000 0 00000 SE490 PZE 0 * SE490 FP112200 | 23012 -0500 00 0 23014 CAL *+2 GEN -SLW- SE500 FP112210 | 23013 0074 00 4 11413 TSX PRGMR,4 * SE510 FP112220 | 23014 0602 00 0 00000 SE520 SLW 0 * SE520 FP112230 23015 2 00044 2 23022 TIX *+5,2,36 SE530 FP112240 | 23016 -0500 00 0 23014 CAL SE520 SE534 FP112250 | 23017 0400 00 0 24050 ADD SAA15 SE535 FP112260 | 23020 0621 00 0 23014 STA SE520 SE536 FP112270 | 23021 0020 00 0 22723 TRA SE010 TO PROCESS NEXT FLD SE540 FP112280 23022 -0500 00 0 22772 CAL SE340 MODIFY - CAL- SE550 FP112290 | 23023 0400 00 0 24050 ADD SAA15 * SE560 FP112300 | 23024 0621 00 0 22772 STA SE340 * SE570 FP112310 | 23025 -0500 00 0 23014 CAL SE520 * -SLW- SE580 FP112320 | 23026 0400 00 0 24050 ADD SAA15 * SE590 FP112330 23027 0621 00 0 23014 STA SE520 * SE600 FP112340 | 23030 -0500 00 0 24052 CAL SAA17 * -PZE SE610 FP112350 | 23031 0621 00 0 23011 STA SE490 * SE620 FP112360 | 23032 0020 00 0 22770 TRA SE340-2 REPEAT LOOP SE630 FP112370 | 23033 -0500 00 0 23035 SE650 CAL *+2 SE650 FP112380 23034 0074 00 4 11413 TSX PRGMR,4 SE6501FP112390 | 23035 0534 00 4 00000 LXA 0,4 SE6502FP112400 | 23036 -0500 00 0 15063 CAL VSA30 SE6510FP112410 | 23037 0767 00 0 00016 ALS 14 SE6511FP112420 | 23040 -0501 00 0 24154 ORA SAA23 SE6512FP112430 23041 0074 00 4 11507 TSX YADDR,4 SE6513FP112440 | 23042 -0500 00 0 23044 CAL *+2 SE6520FP112450 | 23043 0074 00 4 11413 TSX PRGMR,4 SE6521FP112460 | 23044 -0520 00 4 17404 NZT BKSPT,4 SE6522FP112470 | 23045 -0500 00 0 23047 CAL *+2 SE6530FP112480 23046 0074 00 4 11413 TSX PRGMR,4 SE6531FP112490 | 23047 0020 00 0 00000 TRA 0 SE6532FP112500 | 23050 -0500 00 0 11030 CAL NMBR3 SE6540FP112510 | 23051 0074 00 4 11465 TSX PADDR,4 SE6541FP112520 | 23052 -0500 00 0 23054 CAL *+2 SE6550FP112530 23053 0074 00 4 11413 TSX PRGMR,4 SE6551FP112540 | 23054 0600 00 4 17404 STZ BKSPT,4 SE6552FP112550 | 23055 -0500 00 0 23057 CAL *+2 SE6560FP112560 | 1 LISTING OF 12/01/64 PAGE 238 | MATCH (9PAC32). | 23056 0074 00 4 11413 TSX PRGMR,4 FP112570 | 23057 0020 00 0 00005 TRA 5 SE6562FP112580 | 23060 -0500 00 0 15063 CAL VSA30 SE6570FP112590 | 23061 0767 00 0 00016 ALS 14 SE6571FP112600 23062 -0501 00 0 24160 ORA SAA27 SE6572FP112610 | 23063 0074 00 4 11507 TSX YADDR,4 SE6573FP112620 | 23064 -0500 00 0 11343 CAL SFLEN SE659 FP112630 | 23065 -0501 00 0 23067 ORA *+2 * SE660 FP112640 | 23066 0074 00 4 11413 TSX PRGMR,4 * SE670 FP112650 23067 0774 00 4 00000 AXT 0,4 * SE680 FP112660 | 23070 -0500 00 0 24153 CAL SAA22 INIT SE690 FP112670 | 23071 0400 00 0 11343 ADD SFLEN * SE700 FP112680 | 23072 0621 00 0 23100 STA SE770 * -CAL SE710 FP112690 | 23073 0400 00 0 24050 ADD SAA15 * SE720 FP112700 23074 0400 00 0 11343 ADD SFLEN * SE730 FP112710 | 23075 0621 00 0 23103 STA SE800 * -LAS- SE740 FP112720 | 23076 -0500 00 0 23100 CAL *+2 GEN - CAL- SE750 FP112730 | 23077 0074 00 4 11413 TSX PRGMR,4 * SE760 FP112740 | 23100 -0500 00 4 00000 SE770 CAL 0,4 * SE770 FP112750 23101 -0500 00 0 23103 CAL *+2 GEN -LAS- SE780 FP112760 | 23102 0074 00 4 11413 TSX PRGMR,4 * SE790 FP112770 | 23103 -0340 00 4 00000 SE800 LAS 0,4 * SE800 FP112780 | 23104 -0500 00 0 23106 CAL *+2 GEN -TRA- HI SE810 FP112790 | 23105 0074 00 4 11413 TSX PRGMR,4 * SE820 FP112800 23106 0020 00 0 00005 TRA 5 SE830 FP112810 | 23107 -0500 00 0 15063 CAL VSA30 SUPPLY MISSING SYM ADDR SE840 FP112820 | 23110 0767 00 0 00016 ALS 14 * SE850 FP112830 | 23111 -0501 00 0 24160 ORA SAA27 SE860 FP112840 | 23112 0602 00 0 24160 SLW SAA27 * SE870 FP112850 23113 0074 00 4 11507 TSX YADDR,4 * SE880 FP112860 | 23114 -0500 00 0 23116 CAL *+2 GEN -TRA - EQ. SE886 FP112870 | 23115 0074 00 4 11413 TSX PRGMR,4 SE887 FP112880 | 23116 0020 00 0 00000 TRA 0 SE888 FP112890 | 23117 0520 00 0 24111 ZET SAA18+30 TEST FOR SEQ -N SE890 FP112900 23120 0020 00 0 23124 TRA SE940 * YES SE900 FP112910 | 23121 -0500 00 0 24175 CAL SAA40 SE910 FP112920 | 23122 0074 00 4 11465 TSX PADDR,4 * SE920 FP112930 | 23123 0020 00 0 23164 TRA SF270 * SE930 FP112940 | 23124 -0500 00 0 24157 SE940 CAL SAA26 SUPPLY +2 TO TRA EQ. SE940 FP112950 23125 0074 00 4 11465 TSX PADDR,4 * SE950 FP112960 | 23126 -0500 00 0 23130 CAL *+2 GEN -TRA- LO +7 SE960 FP112970 | 23127 0074 00 4 11413 TSX PRGMR,4 * SE970 FP112980 | 23130 0020 00 0 00000 TRA 0 * SE980 FP112990 | 23131 -0500 00 0 24162 CAL SAA29 * SE990 FP113000 23132 0074 00 4 11465 TSX PADDR,4 * SF010 FP113010 | 23133 -0500 00 0 23135 CAL *+2 GEN -TIX- SF020 FP113020 | 23134 0074 00 4 11413 TSX PRGMR,4 * SF030 FP113030 | 23135 2 00001 4 00000 TIX 0,4,1 * SF040 FP113040 | 23136 0502 00 0 24161 CLS SAA28 * -5 TO TIX SF050 FP113050 23137 0074 00 4 11465 TSX PADDR,4 * SF060 FP113060 | 23140 -0500 00 0 24155 CAL SAA24 SEQ/N BUFFER LEN SF070 FP113070 | 23141 -0501 00 0 23143 ORA *+2 TO -AXT SF080 FP113080 | 23142 0074 00 4 11413 TSX PRGMR,4 * SF090 FP113090 | 23143 0774 00 4 00000 AXT 0,4 * SF100 FP113100 23144 -0500 00 0 23146 CAL *+2 GEN -CAL- SF110 FP113110 | 1 LISTING OF 12/01/64 PAGE 239 | MATCH (9PAC32). | | 23145 0074 00 4 11413 TSX PRGMR,4 * SF120 FP113120 23146 -0500 00 4 00000 SF130 CAL 0,4 * SF130 FP113130 | 23147 -0500 00 0 23151 CAL *+2 GEN -LAS- SF140 FP113140 | 23150 0074 00 4 11413 TSX PRGMR,4 * SF150 FP113150 | 23151 -0340 00 4 00000 SF160 LAS 0,4 * SF160 FP113160 | 23152 -0500 00 0 23154 CAL *+2 GEN -TRA- HI SF170 FP113170 23153 0074 00 4 11413 TSX PRGMR,4 * SF180 FP113180 | 23154 0020 00 0 00005 TRA 5 SF190 FP113190 | 23155 -0500 00 0 24160 CAL SAA27 * SF200 FP113200 | 23156 0074 00 4 11507 TSX YADDR,4 * SF210 FP113210 | 23157 -0500 00 0 23161 CAL *+2 GEN -TRA- EQ SF220 FP113220 23160 0074 00 4 11413 TSX PRGMR,4 * SF230 FP113230 | 23161 0020 00 0 00000 TRA 0 * SF240 FP113240 | 23162 -0500 00 0 24201 CAL SAA44 13 SF250 FP113250 | 23163 0074 00 4 11465 TSX PADDR,4 * SF260 FP113260 | 23164 -0500 00 0 23166 SF270 CAL *+2 TSX-REJECT SF270 FP113270 23165 0074 00 4 11413 TSX PRGMR,4 SF280 FP113280 | 23166 0074 00 4 00001 TSX 1,4 SF290 FP113290 | 23167 -0500 00 0 67172 CAL HEADR SF300 FP113300 | 23170 -0320 00 0 11005 ANA BCD60 SF310 FP113310 | 23171 0771 00 0 00022 ARS 18 SF320 FP113320 23172 -0501 00 0 24163 ORA SAA30 MASK SF330 FP113330 | 23173 0074 00 4 11507 TSX YADDR,4 SF340 FP113340 | 23174 -0500 00 0 23176 CAL *+2 BCI- SEQ ERROR SF350 FP113350 | 23175 0074 00 4 11413 TSX PRGMR,4 SF360 FP113360 | 23176 622550606060 BCI 1,SEQ SF370 FP113370 23177 -0500 00 0 23201 CAL *+2 BCI SF380 FP113380 | 23200 0074 00 4 11413 TSX PRGMR,4 SF390 FP113390 | 23201 255151465160 BCI 1,ERROR SF400 FP113400 | 23202 -0500 00 0 11343 CAL SFLEN SF401 FP113410 | 23203 0400 00 0 24050 ADD SAA15 1 SF4011FP113420 23204 -0501 00 0 23206 ORA *+2 SF402 FP113430 | 23205 0074 00 4 11413 TSX PRGMR,4 SF403 FP113440 | 23206 0774 00 4 00000 AXT 0,4 SF404 FP113450 | 23207 -0500 00 0 23103 CAL SE800 SF405 FP113460 | 23210 0400 00 0 24050 ADD SAA15 1 SF4051FP113470 23211 0621 00 0 23214 STA *+3 SF406 FP113480 | 23212 -0500 00 0 23214 CAL *+2 SF407 FP113490 | 23213 0074 00 4 11413 TSX PRGMR,4 SF408 FP113500 | 23214 -0500 00 4 00000 CAL 0,4 SF409 FP113510 | 23215 -0500 00 0 23100 CAL SE770 SF410 FP113520 23216 0400 00 0 24050 ADD SAA15 1 SF4101FP113530 | 23217 0621 00 0 23222 STA *+3 SF411 FP113540 | 23220 -0500 00 0 23222 CAL *+2 SF412 FP113550 | 23221 0074 00 4 11413 TSX PRGMR,4 SF413 FP113560 | 23222 0602 00 4 00000 SLW 0,4 SF414 FP113570 23223 -0500 00 0 23225 CAL *+2 SF415 FP113580 | 23224 0074 00 4 11413 TSX PRGMR,4 SF416 FP113590 | 23225 2 00001 4 00000 TIX 0,4,1 SF417 FP113600 | 23226 0502 00 0 24157 CLS SAA26 2 SF418 FP113610 | 23227 0074 00 4 11465 TSX PADDR,4 SF4190FP113620 23230 -0520 00 0 24111 NZT SAA18+30 SEQ-N SF4190FP113630 | 23231 0020 00 0 23251 TRA SF419 NO SF4190FP113640 | 23232 -0500 00 0 24155 CAL SAA24 YES SEQ-N LENGTH SF4190FP113650 | 23233 -0501 00 0 23235 ORA *+2 SF4190FP113660 | 1 LISTING OF 12/01/64 PAGE 240 MATCH (9PAC32). | | 23234 0074 00 4 11413 TSX PRGMR,4 SF4190FP113670 | 23235 0774 00 4 00000 AXT 0,4 SF4190FP113680 | 23236 -0500 00 0 23240 CAL *+2 SF4190FP113690 23237 0074 00 4 11413 TSX PRGMR,4 SF4190FP113700 | 23240 -0500 00 4 00000 SF410 CAL 0,4 SF4191FP113710 | 23241 -0500 00 0 23243 CAL *+2 SF4191FP113720 | 23242 0074 00 4 11413 TSX PRGMR,4 SF4191FP113730 | 23243 0602 00 4 00000 SF413 SLW 0,4 SF4191FP113740 23244 -0500 00 0 23246 CAL *+2 SF4191FP113750 | 23245 0074 00 4 11413 TSX PRGMR,4 SF4191FP113760 | 23246 2 00001 4 00000 TIX 0,4,1 SF4191FP113770 | 23247 0502 00 0 24157 CLS SAA26 2 SF4191FP113780 | 23250 0074 00 4 11465 TSX PADDR,4 SF4191FP113790 23251 -0500 00 0 23253 SF419 CAL *+2 TRA-PSEVDO READ SF4191FP113800 | 23252 0074 00 4 11413 TSX PRGMR,4 SF420 FP113810 | 23253 0020 00 0 00004 TRA 4 SF430 FP113820 | 23254 -0500 00 0 15063 CAL VSA30 SF440 FP113830 | 23255 0767 00 0 00016 ALS 14 SF450 FP113840 23256 -0501 00 0 24154 ORA SAA23 LOC MASK SF460 FP113850 | 23257 0074 00 4 11507 TSX YADDR,4 SF470 FP113860 | 23260 -0500 00 0 23262 CAL *+2 SF480 FP113870 | 23261 0074 00 4 11413 TSX PRGMR,4 SF490 FP113880 | 23262 2 00001 4 00000 TIX 0,4,1 SF500 FP113890 23263 0502 00 0 24176 CLS SAA41 12 SF510 FP113900 | 23264 0520 00 0 24111 ZET SAA18+30 SEQ-N SF511 FP113910 | 23265 0402 00 0 24200 SUB SAA43 YES SUB 4 MORE SF512 FP113920 | 23266 0074 00 4 11465 TSX PADDR,4 SF520 FP113930 | 23267 -0500 00 0 23271 CAL *+2 TRA -ON SF530 FP113940 23270 0074 00 4 11413 TSX PRGMR,4 SF540 FP113950 | 23271 0020 00 0 00005 TRA 5 SF550 FP113960 | 23272 -0500 00 0 24160 CAL SAA27 SYMBOL SF560 FP113970 | 23273 0074 00 4 11507 TSX YADDR,4 SF570 FP113980 | 23274 -0500 00 0 15063 CAL VSA30 SF580 FP113990 23275 0560 00 0 67172 LDQ HEADR SF590 FP114000 | 23276 -0773 00 0 00002 RQL 2 SF600 FP114010 | 23277 -0763 00 0 00004 LGL 4 SF610 FP114020 | 23300 -0773 00 0 00002 RQL 2 SF620 FP114030 | 23301 -0763 00 0 00004 LGL 4 SF630 FP114040 23302 0767 00 0 00022 ALS 18 SF640 FP114050 | 23303 -0501 00 0 24165 ORA SAA32 LOC MASK SF650 FP114060 | 23304 0074 00 4 11547 TSX M0010,4 SF660 FP114070 | 23305 -0520 00 0 24151 NZT SAA20 SG010 FP114080 | 23306 0020 00 0 24031 TRA SK050 ON SG020 FP114090 23307 -0500 00 0 21763 CAL SA210 SG030 FP114100 | 23310 -0320 00 0 10730 ANA BCD03 SG050 FP114110 | 23311 0602 00 0 23335 SLW SG210 SG060 FP114120 | 23312 0774 00 1 00043 SG090 AXT 35,1 SG090 FP114130 | 23313 2 00005 1 23315 TIX *+2,1,5 SG100 FP114140 23314 0020 00 0 24024 TRA SK010 OUT OF LOOP SG110 FP114150 | 23315 0634 00 1 23312 SXA SG090,1 SG120 FP114160 | 23316 -0500 00 1 24150 CAL SAA19+30,1 SG130 FP114170 | 23317 0771 00 0 00030 ARS 24 SG131 FP114180 | 23320 0100 00 0 24024 TZE SK010 SG132 FP114190 23321 -0320 00 0 10730 ANA BCD03 SG140 FP114200 | 23322 -0340 00 0 23335 LAS SG210 SG150 FP114210 | 1 LISTING OF 12/01/64 PAGE 241 | MATCH (9PAC32). | 23323 0020 00 0 23325 TRA *+2 SG160 FP114220 | 23324 0020 00 0 23561 TRA SI010 CURRENT DICTIONARY RTN SG170 FP114230 | 23325 0602 00 0 23335 SLW SG210 SG190 FP114240 | 23326 -0500 00 0 21763 CAL SA210 SG191 FP114250 | 23327 -0320 00 0 24166 ANA SAA33 SG192 FP114260 23330 0402 00 0 23335 SUB SG210 SG193 FP114270 | 23331 0120 00 0 23334 TPL *+3 SG194 FP114280 | 23332 0074 00 4 10507 TSX T0010,4 FP114290 | 23333 -1 00461 2 24024 STR SK010,2,305 MTCH REQUESTED ON HIGHER REC TYPE SG195 FP114300 | 23334 0074 00 4 13253 TSX D5010,4 SG200 FP114310 23335 0 00000 0 00000 SG210 PZE RECORD TYPE SG210 FP114320 | 23336 0534 00 1 23312 LXA SG090,1 SG220 FP114330 | 23337 -0500 00 1 24150 CAL SAA19+30,1 SG230 FP114340 | 23340 -0320 00 0 10744 ANA BCD17 SG240 FP114350 | 23341 0602 00 0 23343 SLW *+2 SG250 FP114360 23342 0074 00 4 13656 TSX E5010,4 SG260 FP114370 | 23343 0 00000 0 00000 PZE 0 FLD NO SG270 FP114380 | 23344 0441 00 2 00002 LDI 2,2 SG221 FP114390 | 23345 -0054 00 000100 LFT 000100 SG222 FP114400 | 23346 0020 00 0 23351 TRA *+3 FP114410 23347 0074 00 4 10507 TSX T0010,4 FP114420 | 23350 -1 00462 2 24024 STR SK010,2,306 MTCH REQUESTED ON BINARY FIELD SG223 FP114430 | 23351 0500 00 0 13722 CLA E6006 B.T INER. SG280 FP114440 | 23352 0400 00 0 13720 ADD E6004 SIZE SG290 FP114450 | 23353 -0765 00 0 00044 LGR 36 SG300 FP114460 23354 0220 00 0 24044 DVH SAA11 36 SG310 FP114470 | 23355 0621 00 0 23424 STA SG690 TO LGL SG320 FP114480 | 23356 0621 00 0 23523 STA SH320 TO LGL SG321 FP114490 | 23357 -0500 00 0 13720 CAL E6004 SIZE SG330 FP114500 | 23360 -0765 00 0 00044 LGR 36 SG340 FP114510 23361 0220 00 0 24044 DVH SAA11 36 SG350 FP114520 | 23362 0621 00 0 23433 STA SG760 TO LGL FOR ANA SG360 FP114530 | 23363 0400 00 0 13722 ADD E6006 B.T INCR. SG370 FP114540 | 23364 0560 00 0 24177 LDQ SAA42 SG380 FP114550 | 23365 0040 00 0 23372 TLQ SG440 SG390 FP114560 23366 -0500 00 0 13721 CAL E6005 WORD INCR SG400 FP114570 | 23367 0402 00 0 24050 SUB SAA15 SG410 FP114580 | 23370 0621 00 0 23413 STA SG600 TO CAL SG420 FP114590 | 23371 0020 00 0 23374 TRA *+3 SG430 FP114600 | 23372 -0500 00 0 13721 SG440 CAL E6005 WD INCR SG440 FP114610 23373 0621 00 0 23413 STA SG600 TO CAL SG450 FP114620 | 23374 -0500 00 1 24154 CAL SAA19+34,1 SG460 FP114630 | 23375 0621 00 0 23443 STA SG840 SG470 FP114640 | 23376 -0500 00 0 13720 CAL E6004 SIZE SG480 FP114650 | 23377 -0340 00 1 24153 LAS SAA19+33,1 SG490 FP114660 23400 0020 00 0 23402 TRA *+2 SG500 FP114670 | 23401 0020 00 0 23404 TRA *+3 SG510 FP114680 | 23402 0074 00 4 10507 TSX T0010,4 FP114690 | 23403 -1 00463 2 24024 STR SK010,2,307 CHG FLD SIZE NOT EQUAL TO SF FLD SIZESG520 FP114700 | 23404 -0500 00 0 23406 CAL *+2 LAC SG530 FP114710 23405 0074 00 4 11413 TSX PRGMR,4 SG540 FP114720 | 23406 0535 00 4 00000 LAC 0,4 SG550 FP114730 | 23407 -0500 00 0 23335 CAL SG210 SG560 FP114740 | 23410 0074 00 4 11517 TSX LADDR,4 SG570 FP114750 | 23411 -0500 00 0 23413 CAL *+2 CAL SG580 FP114760 1 LISTING OF 12/01/64 PAGE 242 | MATCH (9PAC32). | | 23412 0074 00 4 11413 TSX PRGMR,4 SG590 FP114770 | 23413 -0500 00 4 00000 SG600 CAL 0,4 SG600 FP114780 23414 -0500 00 0 23413 CAL *-1 SG610 FP114790 | 23415 0400 00 0 24050 ADD SAA15 1 SG620 FP114800 | 23416 0621 00 0 23421 STA *+3 TO LDQ SG630 FP114810 | 23417 -0500 00 0 23421 CAL *+2 LDQ SG640 FP114820 | 23420 0074 00 4 11413 TSX PRGMR,4 SG650 FP114830 23421 0560 00 4 00000 SG660 LDQ 0,4 SG660 FP114840 | 23422 -0500 00 0 23424 CAL *+2 LGL SG670 FP114850 | 23423 0074 00 4 11413 TSX PRGMR,4 SG680 FP114860 | 23424 -0763 00 0 00000 SG690 LGL 0 SG690 FP114870 | 23425 -0500 00 0 23433 CAL SG760 SG700 FP114880 23426 -0320 00 0 24166 ANA SAA33 ADDR MASK SG710 FP114890 | 23427 0402 00 0 24044 SUB SAA11 36 SG720 FP114900 | 23430 0120 00 0 23441 TPL SG820 SG730 FP114910 | 23431 0754 00 0 00000 PXA 0,0 SG740 FP114920 | 23432 0560 00 0 11024 LDQ BCD77 SG750 FP114930 23433 -0763 00 0 00000 SG760 LGL 0 SG760 FP114940 | 23434 0074 00 4 11426 TSX STORR,4 SG770 FP114950 | 23435 -0500 00 0 23437 CAL *+2 ANA SG780 FP114960 | 23436 0074 00 4 11413 TSX PRGMR,4 SG790 FP114970 | 23437 -0320 00 0 00000 ANA 0 SG800 FP114980 23440 0074 00 4 11454 TSX SADDR,4 SG810 FP114990 | 23441 -0500 00 0 23443 SG820 CAL *+2 LAS SG820 FP115000 | 23442 0074 00 4 11413 TSX PRGMR,4 SG830 FP115010 | 23443 -0340 00 0 00000 SG840 LAS 0 SG840 FP115020 | 23444 -0500 00 0 23446 CAL *+2 TRA-HI SG850 FP115030 23445 0074 00 4 11413 TSX PRGMR,4 SG860 FP115040 | 23446 0020 00 0 00000 TRA 0 SG870 FP115050 | 23447 -0500 00 0 24157 CAL SAA26 2 SG880 FP115060 | 23450 0074 00 4 11465 TSX PADDR,4 SG890 FP115070 | 23451 -0500 00 0 23453 CAL *+2 TRA-EQ SG900 FP115080 23452 0074 00 4 11413 TSX PRGMR,4 SG910 FP115090 | 23453 0020 00 0 00000 TRA 0 SG920 FP115100 | 23454 -0500 00 0 24161 CAL SAA28 5 SG930 FP115110 | 23455 0074 00 4 11465 TSX PADDR,4 SG940 FP115120 | 23456 -0500 00 0 23460 CAL *+2 TSX-REJECT SG950 FP115130 23457 0074 00 4 11413 TSX PRGMR,4 SG960 FP115140 | 23460 0074 00 4 00001 TSX 1,4 SG970 FP115150 | 23461 -0500 00 0 22000 CAL SA330 SG980 FP115160 | 23462 0767 00 0 00006 ALS 6 SG990 FP115170 | 23463 -0320 00 0 10733 ANA BCD06 SG991 FP115180 23464 -0501 00 0 24167 ORA SAA34 SH010 FP115190 | 23465 0074 00 4 11507 TSX YADDR,4 SH020 FP115200 | 23466 -0500 00 0 23470 CAL *+2 BCI SH030 FP115210 | 23467 0074 00 4 11413 TSX PRGMR,4 SH040 FP115220 | 23470 644544216323 BCI 1,UNMATC SH050 FP115230 23471 -0500 00 0 23473 CAL *+2 BCI SH060 FP115240 | 23472 0074 00 4 11413 TSX PRGMR,4 SH070 FP115250 | 23473 302524606060 BCI 1,HED SH080 FP115260 | 23474 -0500 00 0 23476 CAL *+2 TRA-MERGE SH090 FP115270 | 23475 0074 00 4 11413 TSX PRGMR,4 SH100 FP115280 23476 0020 00 0 22210 TRA MERGE SH110 FP115290 | 23477 -0500 00 0 24171 CAL SAA36 SET REV-TRA REJECT TO 10 SH120 FP115300 | 23500 0602 00 0 24170 SLW SAA35 SH130 FP115310 | 1 LISTING OF 12/01/64 PAGE 243 | MATCH (9PAC32). | 23501 -0500 00 0 23421 CAL SG660 LDQ SH140 FP115320 | 23502 0621 00 0 23515 STA SH260 TO CAL SH150 FP115330 | 23503 0400 00 0 24050 ADD SAA15 1 SH160 FP115340 | 23504 0621 00 0 23520 STA SH290 TO LDQ SH170 FP115350 23505 -0500 00 0 23443 CAL SG840 LAS SH180 FP115360 | 23506 0400 00 0 24050 ADD SAA15 SH190 FP115370 | 23507 0621 00 0 23526 STA SH340 TO LAS SH200 FP115380 | 23510 -0500 00 0 13720 CAL E6004 SH210 FP115390 | 23511 0734 00 1 00000 PAX 0,1 SH220 FP115400 23512 -2 00044 1 23307 SH230 TNX SG090-3,1,36 SH230 FP115410 | 23513 -0500 00 0 23515 CAL *+2 CAL SH240 FP115420 | 23514 0074 00 4 11413 TSX PRGMR,4 SH250 FP115430 | 23515 -0500 00 4 00000 SH260 CAL 0,4 SH260 FP115440 | 23516 -0500 00 0 23520 CAL *+2 LDQ SH270 FP115450 23517 0074 00 4 11413 TSX PRGMR,4 SH280 FP115460 | 23520 0560 00 4 00000 SH290 LDQ 0,4 SH290 FP115470 | 23521 -0500 00 0 23523 CAL *+2 LGL SH300 FP115480 | 23522 0074 00 4 11413 TSX PRGMR,4 SH310 FP115490 | 23523 -0763 00 0 00000 SH320 LGL 0 SH320 FP115500 23524 -0500 00 0 23526 CAL *+2 LAS SH330 FP115510 | 23525 0074 00 4 11413 TSX PRGMR,4 SH335 FP115520 | 23526 -0340 00 0 00000 SH340 LAS 0 SH340 FP115530 | 23527 -0500 00 0 23531 CAL *+2 TRA-HI SH350 FP115540 | 23530 0074 00 4 11413 TSX PRGMR,4 SH360 FP115550 23531 0020 00 0 00000 TRA 0 SH370 FP115560 | 23532 -0500 00 0 24157 CAL SAA26 2 SH380 FP115570 | 23533 0074 00 4 11465 TSX PADDR,4 SH390 FP115580 | 23534 -0500 00 0 23536 CAL *+2 TRA-EQ SH400 FP115590 | 23535 0074 00 4 11413 TSX PRGMR,4 SH410 FP115600 23536 0020 00 0 00000 TRA 0 SH420 FP115610 | 23537 -0500 00 0 24157 CAL SAA26 2 SH430 FP115620 | 23540 0074 00 4 11465 TSX PADDR,4 SH440 FP115630 | 23541 -0500 00 0 23543 CAL *+2 TR-LO TO REJ SH450 FP115640 | 23542 0074 00 4 11413 TSX PRGMR,4 SH460 FP115650 23543 0020 00 0 00000 TRA 0 SH470 FP115660 | 23544 0502 00 0 24170 CLS SAA35 10 PLUS SH480 FP115670 | 23545 0074 00 4 11465 TSX PADDR,4 SH490 FP115680 | 23546 -0500 00 0 23520 CAL SH290 LDQ SH500 FP115690 | 23547 0621 00 0 23515 STA SH260 CAL SH510 FP115700 23550 0400 00 0 24050 ADD SAA15 1 SH520 FP115710 | 23551 0621 00 0 23520 STA SH290 LDQ SH530 FP115720 | 23552 -0500 00 0 23526 CAL SH340 LAS SH540 FP115730 | 23553 0400 00 0 24050 ADD SAA15 1 SH550 FP115740 | 23554 0621 00 0 23526 STA SH340 LAS SH560 FP115750 23555 -0500 00 0 24170 CAL SAA35 SH570 FP115760 | 23556 0400 00 0 24162 ADD SAA29 7 SH580 FP115770 | 23557 0602 00 0 24170 SLW SAA35 SH590 FP115780 | 23560 0020 00 0 23512 TRA SH230 LOOP SH600 FP115790 | 23561 -0500 00 1 24150 SI010 CAL SAA19+30,1 SI040 FP115800 23562 -0320 00 0 10744 ANA BCD17 SI050 FP115810 | 23563 0602 00 0 23565 SLW *+2 SI060 FP115820 | 23564 0074 00 4 13550 TSX E0010,4 SI070 FP115830 | 23565 0 00000 0 00000 PZE 0 FLDNO) SI080 FP115840 | 23566 -0520 00 0 11376 NZT HORIZ SI081 FP115850 23567 0020 00 0 23600 TRA *+9 FOR UPDATES SI082 FP115860 | 1 LISTING OF 12/01/64 PAGE 244 | MATCH (9PAC32). | | 23570 -0500 00 0 67176 CAL HEADR+4 SI083 FP115870 23571 -0320 00 0 10765 ANA BCD40 SI084 FP115880 | 23572 -0340 00 0 24173 LAS SAA38 SI085 FP115890 | 23573 0020 00 0 23614 TRA SI097+1 SI086 FP115900 | 23574 0020 00 0 23576 TRA SI0881 SI087 FP115910 | 23575 0020 00 0 23614 TRA SI097+1 SI088 FP115920 23576 0074 00 4 10507 SI0881 TSX T0010,4 SI0881FP115930 | 23577 -1 00475 2 24024 STR SK010,2,317 FURTHER MATCH WITH I RECORD ACTION FP115940 | 23600 -0500 00 0 67175 CAL HEADR+3 SI089 FP115950 | 23601 0767 00 0 00030 ALS 24 SI090 FP115960 | 23602 -0320 00 0 10765 ANA BCD40 SI091 FP115970 23603 -0340 00 0 24173 LAS SAA38 SI092 FP115980 | 23604 0020 00 0 23606 TRA *+2 SI093 FP115990 | 23605 0020 00 0 23576 TRA SI0881 FURTHER MATCH WITH I RECORD ACTION SI094 FP116000 | 23606 -0340 00 0 24174 LAS SAA39 SI095 FP116010 | 23607 0020 00 0 23614 TRA *+5 FP116020 23610 0020 00 0 23612 TRA *+2 SI096 FP116030 | 23611 0020 00 0 23614 TRA *+3 FP116040 | 23612 0074 00 4 10507 TSX T0010,4 FP116050 | 23613 -1 00477 2 24024 SI097 STR SK010,2,319 FURTHER MTCH WITH O REC ACTSI097 FP116060 | 23614 0441 00 2 00002 LDI 2,2 SI010 FP116070 23615 -0054 00 000100 LFT 000100 FP116080 | 23616 0020 00 0 23621 TRA *+3 FP116090 | 23617 0074 00 4 10507 TSX T0010,4 FP116100 | 23620 -1 00464 2 24024 STR SK010,2,308 MTCH REQUESTED ON BINARY FIELD SI030 FP116110 | 23621 0500 00 0 13614 CLA E1006 BIT INCR SI090 FP116120 23622 0400 00 0 13612 ADD E1004 SIZE SI100 FP116130 | 23623 -0765 00 0 00044 LGR 36 SI110 FP116140 | 23624 0220 00 0 24044 DVH SAA11 36 SI120 FP116150 | 23625 0621 00 0 23667 STA SI460 LGL SI130 FP116160 | 23626 0621 00 0 23766 STA SJ100 LGL SI140 FP116170 23627 -0500 00 0 13612 CAL E1004 SIZE SI150 FP116180 | 23630 -0765 00 0 00044 LGR 36 SI160 FP116190 | 23631 0220 00 0 24044 DVH SAA11 SI170 FP116200 | 23632 0621 00 0 23676 STA SI530 TO LGL FOR ANA SI180 FP116210 | 23633 0400 00 0 13614 ADD E1006 BIT INCR SI190 FP116220 23634 0560 00 0 24177 LDQ SAA42 SI200 FP116230 | 23635 0040 00 0 23642 TLQ SI260 SI210 FP116240 | 23636 -0500 00 0 13613 CAL E1005 WORD INCR SI220 FP116250 | 23637 0402 00 0 24050 SUB SAA15 1 SI230 FP116260 | 23640 0621 00 0 23656 STA SI370 TO CAL SI240 FP116270 23641 0020 00 0 23644 TRA *+3 SI250 FP116280 | 23642 -0500 00 0 13613 SI260 CAL E1005 WD INCR SI260 FP116290 | 23643 0621 00 0 23656 STA SI370 TO CAL SI270 FP116300 | 23644 -0500 00 1 24154 CAL SAA19+34,1 SI280 FP116310 | 23645 0621 00 0 23706 STA SI610 TO LAS SI290 FP116320 23646 -0500 00 0 13612 CAL E1004 SIZE SI300 FP116330 | 23647 -0340 00 1 24153 LAS SAA19+33,1 SI310 FP116340 | 23650 0020 00 0 23652 TRA *+2 SI320 FP116350 | 23651 0020 00 0 23654 TRA *+3 SI330 FP116360 | 23652 0074 00 4 10507 TSX T0010,4 FP116370 23653 -1 00465 2 24024 STR SK010,2,309 CHG FLD SIZE NOT EQUAL TO SF FLD SIZESI340 FP116380 | 23654 -0500 00 0 23656 CAL *+2 CAL SI350 FP116390 | 23655 0074 00 4 11413 TSX PRGMR,4 SI360 FP116400 | 23656 -0500 00 2 00000 SI370 CAL 0,2 SI370 FP116410 | 1 LISTING OF 12/01/64 PAGE 245 MATCH (9PAC32). | | 23657 -0500 00 0 23656 CAL *-1 SI380 FP116420 | 23660 0400 00 0 24050 ADD SAA15 1 SI390 FP116430 | 23661 0621 00 0 23664 STA *+3 SI400 FP116440 23662 -0500 00 0 23664 CAL *+2 LDQ SI410 FP116450 | 23663 0074 00 4 11413 TSX PRGMR,4 SI420 FP116460 | 23664 0560 00 2 00000 SI430 LDQ 0,2 SI430 FP116470 | 23665 -0500 00 0 23667 CAL *+2 LGL SI440 FP116480 | 23666 0074 00 4 11413 TSX PRGMR,4 SI450 FP116490 23667 -0763 00 0 00000 SI460 LGL 0 SI460 FP116500 | 23670 -0500 00 0 23676 CAL SI530 SI470 FP116510 | 23671 -0320 00 0 24166 ANA SAA33 ADDR MASK SI480 FP116520 | 23672 0402 00 0 24044 SUB SAA11 36 SI490 FP116530 | 23673 0120 00 0 23704 TPL SI590 SI500 FP116540 23674 0754 00 0 00000 PXA 0,0 SI510 FP116550 | 23675 0560 00 0 11024 LDQ BCD77 SI520 FP116560 | 23676 -0763 00 0 00000 SI530 LGL 0 SI530 FP116570 | 23677 0074 00 4 11426 TSX STORR,4 SI540 FP116580 | 23700 -0500 00 0 23702 CAL *+2 ANA SI550 FP116590 23701 0074 00 4 11413 TSX PRGMR,4 SI560 FP116600 | 23702 -0320 00 0 00000 ANA 0 SI570 FP116610 | 23703 0074 00 4 11454 TSX SADDR,4 SI580 FP116620 | 23704 -0500 00 0 23706 SI590 CAL *+2 LAS SI590 FP116630 | 23705 0074 00 4 11413 TSX PRGMR,4 SI600 FP116640 23706 -0340 00 0 00000 SI610 LAS 0 SI610 FP116650 | 23707 -0500 00 0 23711 CAL *+2 TRA-HI SI620 FP116660 | 23710 0074 00 4 11413 TSX PRGMR,4 SI630 FP116670 | 23711 0020 00 0 00000 TRA 0 SI640 FP116680 | 23712 -0500 00 0 24157 CAL SAA26 2 SI650 FP116690 23713 0074 00 4 11465 TSX PADDR,4 SI660 FP116700 | 23714 -0500 00 0 23716 CAL *+2 TRA-EQ SI670 FP116710 | 23715 0074 00 4 11413 TSX PRGMR,4 SI680 FP116720 | 23716 0020 00 0 00000 TRA 0 SI690 FP116730 | 23717 -0500 00 0 24161 CAL SAA28 5 SI700 FP116740 23720 0074 00 4 11465 TSX PADDR,4 SI710 FP116750 | 23721 -0500 00 0 23723 CAL *+2 TSX-REJECT SI720 FP116760 | 23722 0074 00 4 11413 TSX PRGMR,4 SI730 FP116770 | 23723 0074 00 4 00001 TSX 1,4 SI740 FP116780 | 23724 -0500 00 0 22000 CAL SA330 SI750 FP116790 23725 0767 00 0 00006 ALS 6 SI760 FP116800 | 23726 -0320 00 0 10733 ANA BCD06 SI770 FP116810 | 23727 -0501 00 0 24167 ORA SAA34 SI780 FP116820 | 23730 0074 00 4 11507 TSX YADDR,4 SI790 FP116830 | 23731 -0500 00 0 23733 CAL *+2 BCI SI800 FP116840 23732 0074 00 4 11413 TSX PRGMR,4 SI810 FP116850 | 23733 644544216323 BCI 1,UNMATC SI820 FP116860 | 23734 -0500 00 0 23736 CAL *+2 BCI SI830 FP116870 | 23735 0074 00 4 11413 TSX PRGMR,4 SI840 FP116880 | 23736 302524606060 BCI 1,HED SI850 FP116890 23737 -0500 00 0 23741 CAL *+2 TRA-MERGE SI860 FP116900 | 23740 0074 00 4 11413 TSX PRGMR,4 SI870 FP116910 | 23741 0020 00 0 22210 TRA MERGE SI880 FP116920 | 23742 -0500 00 0 24171 CAL SAA36 SET REV-TRA REJECT TO 10 SI890 FP116930 | 23743 0602 00 0 24170 SLW SAA35 SI900 FP116940 23744 -0500 00 0 23664 CAL SI430 LDQ SI910 FP116950 | 23745 0621 00 0 23760 STA SJ040 CAL SI920 FP116960 | 1 LISTING OF 12/01/64 PAGE 246 | MATCH (9PAC32). | 23746 0400 00 0 24050 ADD SAA15 SI930 FP116970 | 23747 0621 00 0 23763 STA SJ070 LDQ SI940 FP116980 | 23750 -0500 00 0 23706 CAL SI610 LAS SI950 FP116990 | 23751 0400 00 0 24050 ADD SAA15 SI960 FP117000 | 23752 0621 00 0 23771 STA SJ130 LAS SI970 FP117010 23753 -0500 00 0 13612 CAL E1004 SI980 FP117020 | 23754 0734 00 1 00000 PAX 0,1 SI990 FP117030 | 23755 -2 00044 1 23307 SJ010 TNX SG090-3,1,36 SJ010 FP117040 | 23756 -0500 00 0 23760 CAL *+2 CAL SJ020 FP117050 | 23757 0074 00 4 11413 TSX PRGMR,4 SJ030 FP117060 23760 -0500 00 2 00000 SJ040 CAL 0,2 SJ040 FP117070 | 23761 -0500 00 0 23763 CAL *+2 LDQ SJ050 FP117080 | 23762 0074 00 4 11413 TSX PRGMR,4 SJ060 FP117090 | 23763 0560 00 2 00000 SJ070 LDQ 0,2 SJ070 FP117100 | 23764 -0500 00 0 23766 CAL *+2 LGL SJ080 FP117110 23765 0074 00 4 11413 TSX PRGMR,4 SJ090 FP117120 | 23766 -0763 00 0 00000 SJ100 LGL 0 SJ100 FP117130 | 23767 -0500 00 0 23771 CAL *+2 LAS SJ110 FP117140 | 23770 0074 00 4 11413 TSX PRGMR,4 SJ120 FP117150 | 23771 -0340 00 0 00000 SJ130 LAS 0 SJ130 FP117160 23772 -0500 00 0 23774 CAL *+2 TRA-HI SJ140 FP117170 | 23773 0074 00 4 11413 TSX PRGMR,4 SJ150 FP117180 | 23774 0020 00 0 00000 TRA 0 SJ160 FP117190 | 23775 -0500 00 0 24157 CAL SAA26 2 SJ170 FP117200 | 23776 0074 00 4 11465 TSX PADDR,4 SJ180 FP117210 23777 -0500 00 0 24001 CAL *+2 TRA-EQ SJ190 FP117220 | 24000 0074 00 4 11413 TSX PRGMR,4 SJ200 FP117230 | 24001 0020 00 0 00000 TRA 0 SJ210 FP117240 | 24002 -0500 00 0 24157 CAL SAA26 2 SJ220 FP117250 | 24003 0074 00 4 11465 TSX PADDR,4 SJ230 FP117260 24004 -0500 00 0 24006 CAL *+2 TRA-LO TO REJ SJ240 FP117270 | 24005 0074 00 4 11413 TSX PRGMR,4 SJ250 FP117280 | 24006 0020 00 0 00000 TRA 0 SJ260 FP117290 | 24007 0502 00 0 24170 CLS SAA35 10 PLUS SJ270 FP117300 | 24010 0074 00 4 11465 TSX PADDR,4 SJ280 FP117310 24011 -0500 00 0 23763 CAL SJ070 LDQ SJ290 FP117320 | 24012 0621 00 0 23760 STA SJ040 CAL SJ300 FP117330 | 24013 0400 00 0 24050 ADD SAA15 1 SJ310 FP117340 | 24014 0621 00 0 23763 STA SJ070 LDQ SJ320 FP117350 | 24015 -0500 00 0 23771 CAL SJ130 LAS SJ330 FP117360 24016 0400 00 0 24050 ADD SAA15 1 SJ340 FP117370 | 24017 0621 00 0 23771 STA SJ130 LAS SJ350 FP117380 | 24020 -0500 00 0 24170 CAL SAA35 SJ360 FP117390 | 24021 0400 00 0 24162 ADD SAA29 7 SJ370 FP117400 | 24022 0602 00 0 24170 SLW SAA35 SJ380 FP117410 24023 0020 00 0 23755 TRA SJ010 LOOP SJ390 FP117420 | 24024 -0500 00 0 67172 SK010 CAL HEADR SK010 FP117430 | 24025 0771 00 0 00006 ARS 6 SK020 FP117440 | 24026 -0320 00 0 10755 ANA BCD30 SK021 FP117450 | 24027 -0501 00 0 24172 ORA SAA37 LOC MASK SK030 FP117460 24030 0074 00 4 11547 TSX M0010,4 SK040 FP117470 | 24031 0774 00 4 00101 SK050 AXT 65,4 SK050 FP117480 | 24032 0600 00 4 24154 STZ SAA23,4 SK051 FP117490 | 24033 2 00001 4 24032 TIX *-1,4,1 SK052 FP117500 | 24034 -0500 00 0 24037 CAL *+3 SK053 FP117510 1 LISTING OF 12/01/64 PAGE 247 | MATCH (9PAC32). | | 24035 0602 00 0 24160 SLW SAA27 SK054 FP117520 | 24036 0020 00 0 24040 TRA *+2 SK055 FP117530 24037 +000016037700 OCT 16037700 SK056 FP117540 | 24040 -0520 00 0 14512 NZT BAE80 SK057 FP117550 | 24041 0020 00 0 14403 TRA BB360 SK060 FP117560 | 24042 0020 00 0 14341 TRA BB180 SK070 FP117570 | 24043 000000622550 SAA10 BCI 1,000SEQ SAA10 FP117580 24044 +000000000044 SAA11 DEC 36 SAA11 FP117590 | 24045 +000000000000 SAA12 DEC 0 MATCH FUNCTION-WORD INCR SAA12 FP117600 | 24046 +000000000000 SAA13 DEC 0 MATCH FUNCTION-WBIT INCR SAA13 FP117610 | 24047 +000000000000 SAA14 DEC 0 MATCH FUNCTION-FLD SIZE SAA14 FP117620 | 24050 +000000000001 SAA15 DEC 1 SAA15 FP117630 24051 +000000000000 SAA16 DEC 0 TEMP WORK AREA SAA16 FP117640 | 24052 +000000000006 SAA17 DEC 6 SAA17 FP117650 | 24053 SAA18 BSS 31 SEQN TBL AND W SAA18 FP117660 | 24112 SAA19 BSS 31 NON SEQ MTCH TBL SAA19 FP117670 | 24151 +000000000000 SAA20 DEC 0 NON SEQ MTCH SW SAA20 FP117680 24152 +000000000000 SAA21 DEC 0 RUN IN SW SAA21 FP117690 | 24153 +000000000000 SAA22 DEC 0 LOC FIRST WORD CHNG DATA BUSAA22 FP117700 | 24154 +000016000000 SAA23 OCT 16000000 MASK SAA23 FP117710 | 24155 +000000000000 SAA24 DEC 0 OTAL SEQN SIZE-WORDS SAA24 FP117720 | 24156 +000000000000 SAA25 DEC 0 LOC FIRST WORD SEQN BUFFER SAA25 FP117730 24157 +000000000002 SAA26 DEC 2 SAA26 FP117740 | 24160 +000016037700 SAA27 OCT 16037700 SAA27 FP117750 | 24161 +000000000005 SAA28 DEC 5 SAA28 FP117760 | 24162 +000000000007 SAA29 DEC 7 SAA29 FP117770 | 24163 +000052000065 SAA30 OCT 52000065 YADDR SYM-REJECT SAA30 FP117780 24164 +000000000010 SAA31 DEC 8 SAA31 FP117790 | 24165 +160000070000 SAA32 OCT 160000070000 SAA32 FP117800 | 24166 +000000077777 SAA33 OCT 77777 SAA33 FP117810 | 24167 +000052000065 SAA34 OCT 52000065 REJECT UADDR MASK SAA34 FP117820 | 24170 0 00000 0 00000 SAA35 PZE 0 COUNT- TO REJECT SAA35 FP117830 24171 0 00000 0 00012 SAA36 PZE 10 SAA36 FP117840 | 24172 -120000240000 SAA37 OCT 520000240000 SH 0 FP117850 | 24173 310000000000 SAA38 BCI 1,I00000 SAA38 FP117860 | 24174 460000000000 SAA39 BCI 1,O00000 SAA39 FP117870 | 24175 0 00000 0 00011 SAA40 PZE 9 SAA40 FP117880 24176 0 00000 0 00014 SAA41 PZE 12 SAA41 FP117890 | 24177 +000000000043 SAA42 DEC 35 SAA42 FP117900 | 24200 0 00000 0 00004 SAA43 PZE 4 SAA43 FP117910 | 24201 0 00000 0 00015 SAA44 PZE 13 SAA44 FP117920 | 24202 0 00000 0 00000 SAA45 PZE 0 SAA45 FP117930 24203 000000606060 SAA49 BCI 1,000 SAA49 FP117940 | 24266 HOMCH BES 50 FP117950 | 1 LISTING OF 12/01/64 PAGE 248 | MATCH (9PAC32). | * FP117970 | 1 LISTING OF 12/01/64 PAGE 249 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | | * FP117990 * FP118000 | * FP118010 | * FP118020 | * VERTICAL + UPDATE CHANGE REPORT ROUTINE IA000 FP118030 | * FP118040 * FP118050 | * FP118060 | 24266 644724514763 BCI 1,UPDRPT UPDATE CHANGE REPORT IA010 FP118070 | 24267 0020 00 0 24737 TRA IE010 TO FUNCTION CLEAN UP IA020 FP118080 | 24270 -0520 00 0 25641 NZT IIA14 RUN IN SWITCH IA021 FP118090 24271 0020 00 0 25425 TRA II010 FOR RUN IN IA022 FP118100 | 24272 -0500 00 0 67173 IA030 CAL HEADR+1 IS THIS A VERTICAL CHANGE IA030 FP118110 | 24273 -0340 00 0 25657 LAS IAA60 * IA050 FP118120 | 24274 0020 00 0 24276 TRA *+2 * NO IA060 FP118130 | 24275 0020 00 0 24300 TRA IA080 YES IA070 FP118140 24276 -0625 00 0 11370 STL RPTSW SET UPDATE ZIGGER IA075 FP118150 | 24277 -0625 00 0 25660 STL IAA70 IA076 FP118160 | 24300 -0500 00 0 04623 IA080 CAL CARD+2 IS THIS AN ACTR CARD IA080 FP118170 | 24301 0560 00 0 04624 LDQ CARD+3 * IA090 FP118180 | 24302 -0763 00 0 00014 LGL 12 * IA100 FP118190 24303 -0320 00 0 10744 ANA BCD17 * IA110 FP118200 | 24304 -0340 00 0 25655 LAS IAA30 * IA120 FP118210 | 24305 0020 00 0 24307 TRA *+2 * IA130 FP118220 | 24306 0020 00 0 14307 TRA BB010 * YES, GET NEXT CARD IA140 FP118230 | 24307 0602 00 0 25654 SLW IAA20 * STORE LITERAL IA150 FP118240 24310 -0520 00 0 25660 NZT IAA70 IS THIS AN UPDATE CHANGE IA160 FP118250 | 24311 0020 00 0 24314 TRA IA300 * NO, IA170 FP118260 | 24312 -0520 00 0 11372 NZT UPDIC LA200 FP118270 | 24313 -0625 00 0 25671 STL IAB40 * DICTIONARY NOT ATTACHED IA220 FP118280 | 24314 -0500 00 0 04622 IA300 CAL CARD+1 DOES CURRENT SF HAVE LITERAIA300 FP118290 24315 -0320 00 0 10731 ANA BCD04 * IA310 FP118300 | 24316 0100 00 0 24320 TZE *+2 * IA320 FP118310 | 24317 0020 00 0 24343 TRA IA510 * NOT A SOURCE FILE IA330 FP118320 | 24320 0600 00 0 27042 STZ IAD70 * SET ZIGGER TO SF IA335 FP118330 | 24321 -0500 00 0 04622 CAL CARD+1 * IS IT CURRENT SOURCE FILEIA340 FP118340 24322 -0320 00 0 10730 ANA BCD03 * IA350 FP118350 | 24323 0602 00 0 25656 SLW IAA50 * SAVE REPT REC TYPE IA360 FP118360 | 24324 -0520 00 0 25660 NZT IAA70 IS THIS A VERTICAL CHANGE IA363 FP118370 | 24325 0020 00 0 24332 TRA IA392 *YES IA365 FP118380 | 24326 -0500 00 0 67173 CAL HEADR+1 * IA370 FP118390 24327 0560 00 0 67174 LDQ HEADR+2 * IA380 FP118400 | 24330 -0763 00 0 00006 LGL 6 * IA390 FP118410 | 24331 0020 00 0 24334 TRA IA400 IA391 FP118420 | 24332 -0500 00 0 67174 IA392 CAL HEADR+2 IA392 FP118430 | 24333 0771 00 0 00022 ARS 18 IA393 FP118440 24334 -0320 00 0 10730 IA400 ANA BCD03 * ISOLATE PRIORITY REC TYPEIA400 FP118450 | 24335 -0340 00 0 25656 LAS IAA50 * IA410 FP118460 | 24336 0020 00 0 24340 TRA *+2 * NO IA420 FP118470 | 24337 0020 00 0 24341 TRA *+2 * YES, MAY NOT HAVE LITERALIA430 FP118480 | 24340 0020 00 0 24343 TRA IA510 * NO, MUST HAVE LITERAL IA440 FP118490 24341 0600 00 0 27030 STZ IAC20 SET ZIGGER FOR CURRENT REC IA445 FP118500 | 24342 0020 00 0 24344 TRA IA520 NO LITERAL IA480 FP118510 | 24343 -0625 00 0 27030 IA510 STL IAC20 SET ZIGGER FOR PARENT RECORIA510 FP118520 | 24344 -0500 00 0 25654 IA520 CAL IAA20 IS A LITERAL PRESENT IA520 FP118530 | 1 LISTING OF 12/01/64 PAGE 250 REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | | 24345 -0340 00 0 27033 LAS IAC70 * COMPARE TO BLANKS IA530 FP118540 | 24346 0020 00 0 24350 TRA *+2 * IA540 FP118550 | 24347 0020 00 0 24407 TRA IA740 NO LITERAL PRESENT IA550 FP118560 24350 -0340 00 0 25672 LAS IAB50 EDIT FOR HORIZONTAL LITERALIA560 FP118570 | 24351 0020 00 0 24353 TRA *+2 * AUTH IA570 FP118580 | 24352 0020 00 0 24373 TRA IA732 FP118590 | 24353 -0340 00 0 25673 LAS IAB60 * FLD = IA590 FP118600 | 24354 0020 00 0 24356 TRA *+2 * IA600 FP118610 24355 0020 00 0 24375 TRA IA733 FP118620 | 24356 -0340 00 0 25674 LAS IAB70 * DESC IA620 FP118630 | 24357 0020 00 0 24361 TRA *+2 * IA630 FP118640 | 24360 0020 00 0 24377 TRA IA734 FP118650 | 24361 -0340 00 0 25675 LAS IAB80 * ACTF IA650 FP118660 24362 0020 00 0 24364 TRA *+2 * IA660 FP118670 | 24363 0020 00 0 24401 TRA IA735 FP118680 | 24364 -0340 00 0 25676 LAS IAB90 * FROM IA680 FP118690 | 24365 0020 00 0 24367 TRA *+2 * IA690 FP118700 | 24366 0020 00 0 24403 TRA IA736 FP118710 24367 -0340 00 0 25677 LAS IAC00 * TO IA710 FP118720 | 24370 0020 00 0 24411 TRA IA760 TO PLACE RECORD TYPE IN TABIA720 FP118730 | 24371 0020 00 0 24405 TRA IA737 FP118740 | 24372 0020 00 0 24411 TRA IA760 IA731 FP118750 | 24373 0074 00 4 10507 IA732 TSX T0010,4 IA732 FP118760 24374 -1 00635 2 14307 STR BB010,2,413 AUTH LITERAL FLD IN UPDATE FP118770 | 24375 0074 00 4 10507 IA733 TSX T0010,4 IA733 FP118780 | 24376 -1 00636 2 14307 STR BB010,2,414 FLD= LITERAL FLD IN UPDATE FP118790 | 24377 0074 00 4 10507 IA734 TSX T0010,4 IA734 FP118800 | 24400 -1 00637 2 14307 STR BB010,2,415 DESC LITERAL FLD IN UPDATE FP118810 24401 0074 00 4 10507 IA735 TSX T0010,4 IA735 FP118820 | 24402 -1 00640 2 14307 STR BB010,2,416 ACTF LITERAL FLD IN UPDATE FP118830 | 24403 0074 00 4 10507 IA736 TSX T0010,4 IA736 FP118840 | 24404 -1 00641 2 14307 STR BB010,2,417 FROM LITERAL FIELD IN UPDATE FP118850 | 24405 0074 00 4 10507 IA737 TSX T0010,4 IA737 FP118860 24406 -1 00642 2 14307 STR BB010,2,418 TO LITERAL FIELD IN UPDATE FP118870 | 24407 -0500 00 0 04623 IA740 CAL CARD+2 LOAD + ISOLATE INCOMING SF IA740 FP118880 | 24410 0771 00 0 00014 ARS 12 * IA750 FP118890 | 24411 0774 00 2 00000 IA760 AXT 0,2 SEARCH FOR DUPLICATE FLD =SIA760 FP118900 | 24412 -0520 00 0 25670 NZT IAB30 IS TABLE ENTRY COUNT ZERO IA765 FP118910 24413 0020 00 0 24424 TRA IA850 TRA TO INSTALL FIRST ENTRY IA770 FP118920 | 24414 0534 00 4 25670 LXA IAB30,4 * IA790 FP118930 | 24415 -0340 00 2 25700 LAS IAC10,2 * IA800 FP118940 | 24416 0020 00 0 24420 TRA *+2 * IA810 FP118950 | 24417 0020 00 0 24421 TRA *+2 FP118960 24420 1 77773 2 24423 TXI *+3,2,-5 MOVE TO NEXT ENTRY IA820 FP118970 | 24421 0074 00 4 10507 TSX T0010,4 IA830 FP118980 | 24422 -1 00643 2 14307 STR BB010,2,419 DUPLICATE FIELD NUMBER FP118990 | 24423 2 00001 4 24415 TIX *-6,4,1 IA840 FP119000 | 24424 0602 00 2 25700 IA850 SLW IAC10,2 PLACE THIS VALUE INTO TABLEIA850 FP119010 24425 0500 00 0 25670 CLA IAB30 ADD ONE TO TABLE ENTRY TALLIA860 FP119020 | 24426 0400 00 0 25663 ADD IAB20 * IA870 FP119030 | 24427 0601 00 0 25670 STO IAB30 * IA880 FP119040 | 24430 0600 00 2 25703 STZ IAC10+3,2 ZERO OUT WORD 4+5 OF TBL IA883 FP119050 | 24431 0600 00 2 25704 STZ IAC10+4,2 * IA885 FP119060 24432 0634 00 2 27034 SXA IAC90,2 SAVE TABLE LOCATION IA890 FP119070 | 24433 -0625 00 0 27042 STL IAD70 SET ZIGGER FOR UPDATE IA895 FP119080 | 1 LISTING OF 12/01/64 PAGE 251 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | 24434 -0500 00 0 04622 CAL CARD+1 IS THIS A SOURCE FILE IA900 FP119090 | 24435 -0320 00 0 10731 ANA BCD04 * IA910 FP119100 | 24436 0100 00 0 24635 TZE IC390 * YES IA920 FP119110 | 24437 -0520 00 0 25671 NZT IAB40 * NO, IS UPDATE DICT ATTACHIA930 FP119120 | 24440 0020 00 0 24710 TRA IC800 * YES IA940 FP119130 24441 -0500 00 0 27032 CAL IAC40 PLACE MODE IN DICT IA960 FP119140 | 24442 0602 00 2 25702 SLW IAC10+2,2 * IA970 FP119150 | 24443 -0500 00 0 04623 CAL CARD+2 GET SIZE FOR DICT. IB000 FP119160 | 24444 -0320 00 0 10761 ANA BCD34 IB010 FP119170 | 24445 0771 00 0 00014 ARS 12 IB020 FP119180 24446 0602 00 0 07751 SLW B1020 PUT IN BCD BUFFER IB030 FP119190 | 24447 0074 00 4 07572 TSX B0012,4 IB040 FP119200 | 24450 0500 00 0 07747 CLA B1000 IB045 FP119210 | 24451 0601 00 0 27040 STO IAD50 IB050 FP119220 | 24452 0601 00 0 10127 STO B6000 IB055 FP119230 24453 0074 00 4 10070 TSX B5010,4 IB060 FP119240 | 24454 -0500 00 0 10131 CAL B6020 SIZE TO B8 DICT IB065 FP119250 | 24455 -0320 00 0 10734 ANA BCD07 IB070 FP119260 | 24456 -0765 00 0 00006 LGR 6 IB075 FP119270 | 24457 -0602 00 2 25702 ORS IAC10+2,2 IB080 FP119280 24460 -0130 00 0 00000 XCL IB090 FP119290 | 24461 -0320 00 0 10765 ANA BCD40 IB100 FP119300 | 24462 -0602 00 2 25703 ORS IAC10+3,2 IB110 FP119310 | 24463 -0500 00 0 04622 CAL CARD+1 GET INCREMENT IB120 FP119320 | 24464 0560 00 0 04623 LDQ CARD+2 * IB130 FP119330 24465 -0763 00 0 00006 LGL 6 * IB140 FP119340 | 24466 -0320 00 0 10734 ANA BCD07 * IB150 FP119350 | 24467 0602 00 0 07751 SLW B1020 CONVERT INCREMENT TO BINARYIB160 FP119360 | 24470 0074 00 4 07572 TSX B0012,4 IB170 FP119370 | 24471 0560 00 0 07747 LDQ B1000 CALC INPUT WORD + BIT IB190 FP119380 24472 -0754 00 0 00000 PXD 0,0 * IB200 FP119390 | 24473 0220 00 0 25664 DVH IAB20+1 * DIVIDE BY 36 IB210 FP119400 | 24474 0601 00 0 27036 STO IAD30 * PUT BIT TO UPDATE STORAGEIB220 FP119410 | 24475 0601 00 0 10127 STO B6000 CONVERT BIT TO BCD IB221 FP119420 | 24476 0131 00 0 00000 XCA * REDUCE QUOTIENT BY ONE IB223 FP119430 24477 0601 00 0 27037 STO IAD40 * PUT = OF WORDS TO UPDAT SIB230 FP119440 | 24500 0074 00 4 10070 TSX B5010,4 * IB250 FP119450 | 24501 -0500 00 0 10131 CAL B6020 PLACE BIT = IN DICT TABLE IB260 FP119460 | 24502 0767 00 0 00006 ALS 6 * IB270 FP119470 | 24503 -0602 00 2 25704 ORS IAC10+4,2 * IB280 FP119480 24504 0534 00 2 27034 IB300 LXA IAC90,2 GET TABLE LOCATION IB300 FP119490 | 24505 -0500 00 0 27037 CAL IAD40 INC WORD IB303 FP119500 | 24506 0602 00 0 10127 SLW B6000 CONVERT TO BCD IB304 FP119510 | 24507 0074 00 4 10070 TSX B5010,4 IB306 FP119520 | 24510 -0500 00 0 10131 CAL B6020 IB307 FP119530 24511 -0765 00 0 00022 LGR 18 IB308 FP119540 | 24512 -0602 00 2 25703 ORS IAC10+3,2 IB309 FP119550 | 24513 -0130 00 0 00000 XCL IB310 FP119560 | 24514 -0320 00 0 11015 ANA BCD70 IB311 FP119570 | 24515 -0602 00 2 25704 ORS IAC10+4,2 IB312 FP119580 24516 0520 00 0 27042 ZET IAD70 IS THIS A S.F. FIELD REQUESIB570 FP119590 | 24517 0020 00 0 24527 TRA IB635 * NO IB580 FP119600 | 24520 0520 00 0 27030 ZET IAC20 REQUEST FOR CURRENT SF IB583 FP119610 | 24521 0020 00 0 24627 TRA IC240 * NO IB585 FP119620 | 24522 0500 00 0 27037 IB590 CLA IAD40 PLACE ADDRESS IN CAL IB590 FP119630 1 LISTING OF 12/01/64 PAGE 252 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | | 24523 0621 00 0 24606 STA IC120 * IB600 FP119640 | 24524 -0500 00 0 27107 CAL IAH50 SET FOR TAG OF 2 IB610 FP119650 24525 0625 00 0 24606 STT IC120 * IB620 FP119660 | 24526 0020 00 0 24533 TRA IB680 IB630 FP119670 | 24527 0500 00 0 27037 IB635 CLA IAD40 PLACE ADDRESS IN CAL IB635 FP119680 | 24530 0621 00 0 24606 IB650 STA IC120 * IB650 FP119690 | 24531 -0500 00 0 27106 CAL IAH40 SET FOR TAG OF 1 IB660 FP119700 24532 0625 00 0 24606 STT IC120 * IB670 FP119710 | 24533 0534 00 2 27034 IB680 LXA IAC90,2 RESTORE TO TABLE ENTRY IB680 FP119720 | 24534 -0500 00 0 27031 CAL IAC30 PLACE F IN EXECUTIVE CODE IB690 FP119730 | 24535 0602 00 2 25701 SLW IAC10+1,2 * IB700 FP119740 | 24536 -0500 00 0 25652 CAL IIA23 REPORT RT IB710 FP119750 24537 0771 00 0 00006 ARS 6 * IB720 FP119760 | 24540 -0602 00 2 25701 ORS IAC10+1,2 * IB740 FP119770 | 24541 -0754 00 0 00000 PXD 0,0 PLACE LITERA FLD = IN DICT IB750 FP119780 | 24542 -0130 00 0 00000 XCL * IB760 FP119790 | 24543 -0500 00 2 25700 CAL IAC10,2 * IB770 FP119800 24544 -0765 00 0 00006 LGR 6 * IB780 FP119810 | 24545 -0602 00 2 25701 ORS IAC10+1,2 * IB790 FP119820 | 24546 -0500 00 0 11024 CAL BCD77 GET MASK IB800 FP119830 | 24547 0771 00 0 00006 ARS 6 CLEAR FOR REMAINDER OF FLD IB810 FP119840 | 24550 0320 00 2 25702 ANS IAC10+2,2 * IB820 FP119850 24551 -0130 00 0 00000 XCL PUT IN REST OF FLD = IB830 FP119860 | 24552 -0602 00 2 25702 ORS IAC10+2,2 * IB840 FP119870 | 24553 -0500 00 0 27035 CAL IAD10 CONVERT WORD = FOR DICT IB850 FP119880 | 24554 0621 00 0 24611 STA IC150 * PUT ADDRESS TO SLW IB855 FP119890 | 24555 0602 00 0 10127 SLW B6000 * PUT WORD IN BIN BUFFER IB860 FP119900 24556 0074 00 4 10070 TSX B5010,4 * IB870 FP119910 | 24557 -0500 00 0 10131 CAL B6020 * IB880 FP119920 | 24560 -0765 00 0 00022 LGR 18 PLACE WORD = TO DICT IB890 FP119930 | 24561 -0602 00 2 25703 ORS IAC10+3,2 * IB900 FP119940 | 24562 -0500 00 0 10734 CAL BCD07 IB903 FP119950 24563 0320 00 2 25704 ANS IAC10+4,2 IB905 FP119960 | 24564 -0130 00 0 00000 XCL * IB930 FP119970 | 24565 -0320 00 0 11015 ANA BCD70 * IB940 FP119980 | 24566 -0602 00 2 25704 ORS IAC10+4,2 * IB950 FP119990 | 24567 0500 00 0 27036 CLA IAD30 CALCULATE = OF WORDS IB960 FP120000 24570 0400 00 0 27040 ADD IAD50 * ADD STARTING BIT + LENGTHIB970 FP120010 | 24571 0131 00 0 00000 XCA * IB980 FP120020 | 24572 0754 00 0 00000 PXA 0,0 * IB985 FP120030 | 24573 0220 00 0 25664 DVH IAB20+1 * DIVIDE BY 36 IB990 FP120040 | 24574 -0600 00 0 27041 STQ IAD60 * IC000 FP120050 24575 0100 00 0 24577 TZE *+2 ADD ONE MORE IF THERE IS A IC010 FP120060 | 24576 0500 00 0 25663 CLA IAB20 * IC020 FP120070 | 24577 0400 00 0 27041 ADD IAD60 * IC030 FP120080 | 24600 0601 00 0 27041 STO IAD60 SET = OF WORDS THIS FIELD IC035 FP120090 | 24601 0400 00 0 27035 IC040 ADD IAD10 ADD TO = OF WORDS IN CHANGEIC040 FP120100 24602 0601 00 0 27035 STO IAD10 * IC050 FP120110 | 24603 0534 00 1 27041 LXA IAD60,1 SET UP TO BUILD INSTR IC090 FP120120 | 24604 -0500 00 0 24606 IC100 CAL IC120 BUILD CAL IC100 FP120130 | 24605 0074 00 4 11413 TSX PRGMR,4 IC110 FP120140 | 24606 -0500 00 0 00000 IC120 CAL ..,.., IC120 FP120150 24607 -0500 00 0 24611 CAL IC150 BUILD SLW IC130 FP120160 | 24610 0074 00 4 11413 TSX PRGMR,4 IC140 FP120170 | 24611 0602 00 4 00000 IC150 SLW ..,4 IC150 FP120180 | 1 LISTING OF 12/01/64 PAGE 253 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | 24612 -0500 00 0 24606 CAL IC120 MOVE UP INSTRUCTIONS ADDR IC160 FP120190 | 24613 0400 00 0 25663 ADD IAB20 * IC170 FP120200 | 24614 0621 00 0 24606 STA IC120 * IC180 FP120210 | 24615 -0500 00 0 24611 CAL IC150 * IC190 FP120220 24616 0400 00 0 25663 ADD IAB20 * IC200 FP120230 | 24617 0621 00 0 24611 STA IC150 * IC210 FP120240 | 24620 2 00001 1 24604 TIX IC100,1,1 * ANY MORE WORDS TO MOVE IC220 FP120250 | 24621 -0520 00 0 27030 NZT IAC20 THIS A CURRENT SF IC221 FP120260 | 24622 0020 00 0 24626 TRA IC230 * YES IC222 FP120270 24623 -0500 00 0 24625 CAL *+2 BUILD LXA Y, 2 IC223 FP120280 | 24624 0074 00 4 11413 TSX PRGMR,4 * IC224 FP120290 | 24625 0535 00 2 17301 LAC SFLOC,2 RESTORE I R =2 IC225 FP120300 | 24626 0020 00 0 14307 IC230 TRA BB010 NO-GET NEXT PARAMETER CARD IC230 FP120310 | 24627 -0500 00 0 24631 IC240 CAL *+2 BUILD LAC ,2 IC240 FP120320 24630 0074 00 4 11413 TSX PRGMR,4 * IC330 FP120330 | 24631 0535 00 2 00000 LAC ..,2 * IC340 FP120340 | 24632 -0500 00 0 04622 CAL CARD+1 * LOCATE FIELD = IC350 FP120350 | 24633 0074 00 4 11517 TSX LADDR,4 * GET ADDRESS OF PARENTS FIIC370 FP120360 | 24634 0020 00 0 24522 TRA IB590 * IC380 FP120370 24635 -0500 00 0 04623 IC390 CAL CARD+2 SET UP FLD = FOR SEARCH IC390 FP120380 | 24636 0600 00 0 27042 STZ IAD70 SET ZIGGER AS SF IC395 FP120390 | 24637 0771 00 0 00014 ARS 12 * IC400 FP120400 | 24640 0602 00 0 24645 SLW IC460 * IC410 FP120410 | 24641 0602 00 0 24664 SLW IC600 * IC420 FP120420 24642 0520 00 0 27030 ZET IAC20 IS REQUEST FOR CURRENT SF IC430 FP120430 | 24643 0020 00 0 24656 TRA IC540 * NO IC440 FP120440 | 24644 0074 00 4 13550 TSX E0010,4 * YES, SEARCH FOR FLD IC450 FP120450 | 24645 0 00000 0 00000 IC460 PZE .. * IC460 FP120460 | 24646 0074 00 4 13777 IC465 TSX E7310,4 IC645 FP120470 24647 0500 00 0 13612 CLA E1004 MOVE BIN VALUES TO GENERAL IC470 FP120480 | 24650 0601 00 0 27040 STO IAD50 * LEN IC480 FP120490 | 24651 0500 00 0 13613 CLA E1005 * WORD IC490 FP120500 | 24652 0601 00 0 27037 STO IAD40 * IC500 FP120510 | 24653 0500 00 0 13614 CLA E1006 * BIT IC510 FP120520 24654 0601 00 0 27036 STO IAD30 * IC520 FP120530 | 24655 0020 00 0 24674 TRA IC670 TO MOVE TO TABLE IC530 FP120540 | 24656 -0500 00 0 04622 IC540 CAL CARD+1 GET REQUEST RECORD TYPE IC540 FP120550 | 24657 -0320 00 0 10730 ANA BCD03 * IC550 FP120560 | 24660 0621 00 0 24662 STA IC580 * IC560 FP120570 24661 0074 00 4 13253 TSX D5010,4 SEARCH FOR APPROPRIATE SF RIC570 FP120580 | 24662 0 00000 0 00000 IC580 PZE .. * IC580 FP120590 | 24663 0074 00 4 13656 TSX E5010,4 SEARCH FOR THIS FIELDS DEF IC590 FP120600 | 24664 0 00000 0 00000 IC600 PZE .. * IC600 FP120610 | 24665 0074 00 4 13777 IC605 TSX E7310,4 IC605 FP120620 24666 0500 00 0 13720 CLA E6004 MOVE BIN VALUES TO GENERAL IC610 FP120630 | 24667 0601 00 0 27040 STO IAD50 * LEN IC620 FP120640 | 24670 0500 00 0 13721 CLA E6005 * WORD IC630 FP120650 | 24671 0601 00 0 27037 STO IAD40 * IC640 FP120660 | 24672 0500 00 0 13722 CLA E6006 * BIT IC650 FP120670 24673 0601 00 0 27036 STO IAD30 * IC660 FP120680 | 24674 -0500 00 2 00002 IC670 CAL 2,2 PUT DICTIONARY TO TABLE IC670 FP120690 | 24675 0767 00 0 00006 ALS 6 * IC680 FP120700 | 24676 0771 00 0 00006 ARS 6 * IC690 FP120710 | 24677 0534 00 1 27034 LXA IAC90,1 * LOCATE TABLE ENTRY IC700 FP120720 24700 -0602 00 1 25702 ORS IAC10+2,1 * TO WORD 3 OF TABLE IC710 FP120730 | 1 LISTING OF 12/01/64 PAGE 254 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | | 24701 -0500 00 2 00003 CAL 3,2 * IC720 FP120740 24702 -0320 00 0 11015 ANA BCD70 * IC730 FP120750 | 24703 0602 00 1 25703 SLW IAC10+3,1 * TO WORD 4 OF TABLE IC740 FP120760 | 24704 -0500 00 2 00004 CAL 4,2 * IC750 FP120770 | 24705 -0320 00 0 10734 ANA BCD07 * TO WORD 5 OF TABLE IC760 FP120780 | 24706 0602 00 1 25704 SLW IAC10+4,1 * IC770 FP120790 24707 0020 00 0 24504 TRA IB300 IC780 FP120800 | 24710 -0500 00 0 04623 IC800 CAL CARD+2 SET UP FIEDL = IC800 FP120810 | 24711 0771 00 0 00014 ARS 12 * IC810 FP120820 | 24712 0602 00 0 24714 SLW IC840 * IC820 FP120830 | 24713 0074 00 4 13615 TSX E1010,4 SEARCH FOR FIELD DEFINITIONIC830 FP120840 24714 0 00000 0 00000 IC840 PZE .. * IC840 FP120850 | 24715 0074 00 4 13777 IC845 TSX E7310,4 IC845 FP120860 | 24716 0500 00 0 13653 CLA E2004 * BINARY VALUES TO GENERAL IC850 FP120870 | 24717 0601 00 0 27040 STO IAD50 * LEN IC860 FP120880 | 24720 0500 00 0 13654 CLA E2005 * WORD IC870 FP120890 24721 0601 00 0 27037 STO IAD40 * IC880 FP120900 | 24722 0500 00 0 13655 CLA E2006 * BIT IC890 FP120910 | 24723 0601 00 0 27036 STO IAD30 * IC900 FP120920 | 24724 0534 00 2 27034 LXA IAC90,2 SET IR = 1 TO TABLE ENTRY IC910 FP120930 | 24725 -0500 00 1 00002 CAL 2,1 PUT VALUES TO TABLE IC920 FP120940 24726 -0320 00 0 10764 ANA BCD37 IC930 FP120950 | 24727 -0602 00 2 25702 ORS IAC10+2,2 * IC950 FP120960 | 24730 -0500 00 1 00003 CAL 3,1 * C960 FP120970 | 24731 -0320 00 0 11015 ANA BCD70 * IC970 FP120980 | 24732 0602 00 2 25703 SLW IAC10+3,2 * IC980 FP120990 24733 -0500 00 1 00004 CAL 4,1 * C990 FP121000 | 24734 -0320 00 0 10734 ANA BCD07 * ID000 FP121010 | 24735 0602 00 2 25704 SLW IAC10+4,2 * ID010 FP121020 | 24736 0020 00 0 24504 TRA IB300 ID020 FP121030 | * FUNCTION CLEAN UP IE000 FP121040 24737 -0500 00 0 04216 IE010 CAL FIL08+6 BUILD FILE SERIAL IE010 FP121050 | 24740 -0320 00 0 10764 ANA BCD37 IE015 FP121060 | 24741 -0501 00 0 13025 ORA D1050 E00000 IE020 FP121070 | 24742 0602 00 0 27043 SLW IAE00 IE025 FP121080 | 24743 0600 00 0 27044 STZ IAE00+1 IE030 FP121090 24744 -0500 00 0 27035 CAL IAD10 * GET LENGTH IE060 FP121100 | 24745 0602 00 0 10127 SLW B6000 * IE063 FP121110 | 24746 0074 00 4 10070 TSX B5010,4 * CONVERT TO BCD IE064 FP121120 | 24747 -0500 00 0 10131 CAL B6020 * PLACE TO FIELD IE066 FP121130 | 24750 -0765 00 0 00022 LGR 18 * IE067 FP121140 24751 -0602 00 0 27044 ORS IAE00+1 * IE068 FP121150 | 24752 -0130 00 0 00000 XCL * IE069 FP121160 | 24753 -0320 00 0 11015 ANA BCD70 * IE070 FP121170 | 24754 0602 00 0 27045 SLW IAE00+2 * IE080 FP121180 | 24755 -0500 00 0 27062 CAL IAE20 PLACE OUTPUT UNIT ID. TO LAIE090 FP121190 24756 -0602 00 0 27044 ORS IAE00+1 * IE100 FP121200 | 24757 -0500 00 0 25652 CAL IIA23 REPORT RT FP121210 | 24760 0771 00 0 00022 ARS 18 * IE120 FP121220 | 24761 -0602 00 0 27044 ORS IAE00+1 * IE130 FP121230 | 24762 0520 00 0 25660 ZET IAA70 IS THIS A VERTICAL CHANGE IE140 FP121240 24763 0020 00 0 25002 TRA IE300 * NO IE150 FP121250 | 24764 -0500 00 0 67175 CAL HEADR+3 * YES, GET VERT DESCRIPTIONIE160 FP121260 | 24765 0560 00 0 67176 LDQ HEADR+4 * IE170 FP121270 | 24766 -0763 00 0 00014 LGL 12 * IE180 FP121280 | 1 LISTING OF 12/01/64 PAGE 255 REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | | 24767 -0320 00 0 10764 ANA BCD37 * IE190 FP121290 | 24770 0602 00 0 27046 SLW IAE00+3 * IE200 FP121300 | 24771 -0500 00 0 67176 CAL HEADR+4 * IE210 FP121310 24772 0560 00 0 67177 LDQ HEADR+5 * IE220 FP121320 | 24773 -0763 00 0 00014 LGL 12 * IE230 FP121330 | 24774 0602 00 0 27047 SLW IAE00+4 * IE240 FP121340 | 24775 -0500 00 0 67177 CAL HEADR+5 * IE250 FP121350 | 24776 0560 00 0 67200 LDQ HEADR+6 * IE260 FP121360 24777 -0763 00 0 00014 LGL 12 * IE270 FP121370 | 25000 0602 00 0 27050 SLW IAE00+5 * IE280 FP121380 | 25001 0020 00 0 25017 TRA IE430 * TO BUILD CHECK SUM IE290 FP121390 | 25002 -0500 00 0 67176 IE300 CAL HEADR+4 GET UPDATE DESCRIPTION IE300 FP121400 | 25003 0560 00 0 67177 LDQ HEADR+5 * IE310 FP121410 25004 -0763 00 0 00030 LGL 24 * IE320 FP121420 | 25005 -0320 00 0 10764 ANA BCD37 * IE330 FP121430 | 25006 0602 00 0 27046 SLW IAE00+3 * IE340 FP121440 | 25007 -0500 00 0 67176 CAL HEADR+4 * IE350 FP121450 | 25010 0560 00 0 67177 LDQ HEADR+5 * IE360 FP121460 25011 -0765 00 0 00014 LGR 12 * IE370 FP121470 | 25012 -0600 00 0 27047 STQ IAE00+4 * IE380 FP121480 | 25013 -0500 00 0 67177 CAL HEADR+5 * IE390 FP121490 | 25014 0560 00 0 67200 LDQ HEADR+6 * IE400 FP121500 | 25015 -0765 00 0 00014 LGR 12 * IE410 FP121510 25016 -0600 00 0 27050 STQ IAE00+5 * IE420 FP121520 | *11-PUNCH OVER REPORT RT FP121530 | 25017 0074 00 4 05255 IE430 TSX RD(WR),4 IE430 FP121540 | 25020 -0 25023 0 00010 FOR 8,0,IE540 IE510 FP121550 | 25021 0020 00 0 25025 TRA IE570 IE520 FP121560 25022 0074 00 4 06557 TSX SCEOT,4 EOT DURING DICTIONARY WRITE IE460 FP121570 | 25023 -0 00007 0 27043 IE540 IOCP IAE00,,7 TEXT IE540 FP121580 | 25024 3 00007 0 27067 IORT IAE60,,7 BLANKS IE550 FP121590 | 25025 -0500 00 0 27031 IE570 CAL IAC30 BUILD FIELD DEFINITION FOR IE570 FP121600 | 25026 0601 00 0 27043 STO IAE00 IE580 FP121610 25027 -0500 00 0 25652 CAL IIA23 REPORT RT FP121620 | 25030 0771 00 0 00006 ARS 6 IE600 FP121630 | 25031 -0602 00 0 27043 ORS IAE00 IE620 FP121640 | 25032 -0500 00 0 27061 CAL IAE10 IE630 FP121650 | 25033 0602 00 0 27044 SLW IAE00+1 IE640 FP121660 25034 -0500 00 0 27063 CAL IAE40 LOAD FLD = OF 1 IE650 FP121670 | 25035 -0602 00 0 27044 ORS IAE00+1 * IE660 FP121680 | 25036 -0500 00 0 27064 CAL IAE50 PUT LEN OF 12 TO DICTIONARYIE670 FP121690 | 25037 -0602 00 0 27044 ORS IAE00+1 * IE680 FP121700 | 25040 -0500 00 0 27065 CAL IAE50+1 * SIZE IE690 FP121710 25041 0602 00 0 27045 SLW IAE00+2 * IE700 FP121720 | 25042 -0500 00 0 27066 CAL IAE50+2 * INCREMENT IE710 FP121730 | 25043 0602 00 0 27046 SLW IAE00+3 * IE720 FP121740 | 25044 0074 00 4 05255 TSX RD(WR),4 IE780 FP121750 | 25045 -0 25050 0 00010 FOR 8,0,IE870 IE790 FP121760 25046 0020 00 0 25052 TRA IE910 IE800 FP121770 | 25047 0074 00 4 06557 TSX SCEOT,4 EOT DURING DICTIONARY WRITE IE810 FP121780 | 25050 -0 00004 0 27043 IE870 IOCP IAE00,,4 IE870 FP121790 | 25051 3 00012 0 27067 IORT IAE60,,10 IE880 FP121800 | 25052 -0500 00 0 11015 IE910 CAL BCD70 BUILD ACTR DICT DEF IE910 FP121810 25053 0320 00 0 27043 ANS IAE00 * CLEAR FIELD = AREA IE920 FP121820 | 25054 -0500 00 0 10763 CAL BCD36 CLEAR WORD TWO OF DICT IE943 FP121830 | 1 LISTING OF 12/01/64 PAGE 256 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | 25055 0320 00 0 27044 ANS IAE00+1 * IE945 FP121840 | 25056 -0500 00 0 25655 CAL IAA30 LOAD ACTR IE950 FP121850 | 25057 -0765 00 0 00006 LGR 6 * IE960 FP121860 | 25060 -0602 00 0 27043 ORS IAE00 * IE970 FP121870 | 25061 -0130 00 0 00000 XCL * IE980 FP121880 25062 -0320 00 0 10765 ANA BCD40 * IE990 FP121890 | 25063 -0602 00 0 27044 ORS IAE00+1 * IF000 FP121900 | 25064 -0500 00 0 27061 CAL IAE10 PUT MODE TO DICT DEF IF010 FP121910 | 25065 -0602 00 0 27044 ORS IAE00+1 * IF020 FP121920 | 25066 -0500 00 0 27104 CAL IAE80 SET SIZE TO 6 IF040 FP121930 25067 0602 00 0 27045 SLW IAE00+2 * IF050 FP121940 | 25070 -0500 00 0 27105 CAL IAE80+1 SET INCREMENT IF060 FP121950 | 25071 0602 00 0 27046 SLW IAE00+3 * IF070 FP121960 | 25072 0074 00 4 05255 TSX RD(WR),4 IF130 FP121970 | 25073 -0 25050 0 00010 FOR 8,0,IE870 IF140 FP121980 25074 0020 00 0 25076 TRA IF260 IF150 FP121990 | 25075 0074 00 4 06557 TSX SCEOT,4 EOT DURING DICTIONARY WRITE IF160 FP122000 | 25076 -0774 00 2 25701 IF260 AXC IAC10+1,2 SET UP TABLE ENTRY LOCATIONIF260 FP122010 | 25077 0534 00 1 25670 LXA IAB30,1 PUT = OF TBL ENTRIES IN IR IF270 FP122020 | 25100 0634 00 2 27041 IF280 SXA IAD60,2 IF280 FP122030 25101 0535 00 4 27041 LAC IAD60,4 IF362 FP122040 | 25102 0634 00 4 25110 SXA IF430,4 IF364 FP122050 | 25103 2 00005 2 25104 TIX *+1,2,5 IF366 FP122060 | 25104 0074 00 4 05255 TSX RD(WR),4 IF370 FP122070 | 25105 -0 25110 0 00010 FOR 8,0,IF430 IF380 FP122080 25106 0020 00 0 25112 TRA IF470 IF390 FP122090 | 25107 0074 00 4 06557 TSX SCEOT,4 EOT DURING DICTIONARY WRITE IF400 FP122100 | 25110 -0 00004 0 00000 IF430 IOCP ..,0,4 IF430 FP122110 | 25111 3 00012 0 27067 IORT IAE60,0,10 IF440 FP122120 | 25112 2 00001 1 25100 IF470 TIX IF280,1,1 * IF470 FP122130 * IG000 FP122140 | * GENERATE CONTROL NETWORK IG001 FP122150 | * IG002 FP122160 | 25113 -0500 00 0 27035 CAL IAD10 IG007 FP122170 | 25114 0400 00 0 11026 ADD NMBR1 IG008 FP122180 25115 0601 00 0 27035 STO IAD10 IG009 FP122190 | 25116 0520 00 0 25636 ZET IIA11 PRE-SW IG010 FP122200 | 25117 0020 00 0 25256 TRA IG106 IG011 FP122210 | 25120 -0500 00 0 25122 CAL *+2 PRE-PKG-GENERATED IG012 FP122220 | 25121 0074 00 4 11413 TSX PRGMR,4 IG013 FP122230 25122 0774 00 2 00000 AXT 0,2 IG014 FP122240 | 25123 -0500 00 0 11423 CAL F0080 CURR INSTR LOC IG015 FP122250 | 25124 -0320 00 0 25624 ANA IIA01 OCT 77777 IG016 FP122260 | 25125 0402 00 0 11027 SUB NMBR2 INSTR LOC NEEDING ADDR IG017 FP122270 | 25126 0602 00 0 11474 SLW K1000 IG018 FP122280 25127 -0500 00 0 11027 CAL NMBR2 INSTR LOC NEEDING ADDR IG019 FP122290 | 25130 0074 00 4 11467 TSX PADDR+2,4 IG020 FP122300 | 25131 -0500 00 0 25133 CAL *+2 TRA 1,2 IG021 FP122310 | 25132 0074 00 4 11413 TSX PRGMR,4 IG022 FP122320 | 25133 0020 00 2 00001 TRA 1,2 IG023 FP122330 25134 -0500 00 0 11423 CAL F0080 IG024 FP122340 | 25135 -0320 00 0 25624 ANA IIA01 IG025 FP122350 | 25136 0602 00 0 11474 SLW K1000 IG026 FP122360 | 25137 -0500 00 0 11026 CAL NMBR1 IG027 FP122370 | 25140 0074 00 4 11467 TSX PADDR+2,4 IG028 FP122380 1 LISTING OF 12/01/64 PAGE 257 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | | 25141 0520 00 0 25635 ZET IIA10 IG029 FP122390 | 25142 0074 00 4 25554 TSX II730,4 IG030 FP122400 25143 -0520 00 0 25637 NZT IIA12 OR SW IG031 FP122410 | 25144 0020 00 0 25172 TRA IG054 IG032 FP122420 | 25145 -0500 00 0 25631 CAL IIA06 I IG033 FP122430 | 25146 0074 00 4 11426 TSX STORR,4 IG034 FP122440 | 25147 -0500 00 0 25151 CAL *+2 CAL ACTR IG035 FP122450 25150 0074 00 4 11413 TSX PRGMR,4 IG036 FP122460 | 25151 -0500 00 0 00000 CAL 0 IG037 FP122470 | 25152 -0500 00 0 11026 CAL NMBR1 IG038 FP122480 | 25153 0074 00 4 11455 TSX SADDR+1,4 IG039 FP122490 | 25154 -0500 00 0 25156 CAL *+2 LAS I IG040 FP122500 25155 0074 00 4 11413 TSX PRGMR,4 IG041 FP122510 | 25156 -0340 00 0 00000 LAS 0 IG042 FP122520 | 25157 0074 00 4 11454 TSX SADDR,4 IG043 FP122530 | 25160 -0500 00 0 25162 CAL *+2 TRA *+2 IG044 FP122540 | 25161 0074 00 4 11413 TSX PRGMR,4 IG045 FP122550 25162 0020 00 0 00000 TRA 0 IG046 FP122560 | 25163 -0500 00 0 11027 CAL NMBR2 IG047 FP122570 | 25164 0074 00 4 11465 TSX PADDR,4 IG048 FP122580 | 25165 -0500 00 0 25167 CAL *+2 TRA *+10 IG049 FP122590 | 25166 0074 00 4 11413 TSX PRGMR,4 IG050 FP122600 25167 0020 00 0 00000 TRA 0 IG051 FP122610 | 25170 -0500 00 0 25644 CAL IIA17 10 IG052 FP122620 | 25171 0074 00 4 11465 TSX PADDR,4 IG053 FP122630 | 25172 -0500 00 0 25174 IG054 CAL *+2 LXA CHLOC,4 IG054 FP122640 | 25173 0074 00 4 11413 TSX PRGMR,4 IG055 FP122650 25174 0534 00 4 17300 LXA CHLOC,4 IG056 FP122660 | 25175 -0500 00 0 27035 CAL IAD10 IG057 FP122670 | 25176 0767 00 0 00022 ALS 18 IG058 FP122680 | 25177 -0501 00 0 25201 ORA *+2 TXI *+1,4,SIZE IG059 FP122690 | 25200 0074 00 4 11413 TSX PRGMR,4 IG060 FP122700 25201 1 00000 4 00000 TXI 0,4,0 IG061 FP122710 | 25202 -0500 00 0 11026 CAL NMBR1 IG062 FP122720 | 25203 0074 00 4 11465 TSX PADDR,4 IG063 FP122730 | 25204 -0500 00 0 25206 CAL *+2 SXA *+3,4 IG064 FP122740 | 25205 0074 00 4 11413 TSX PRGMR,4 IG065 FP122750 25206 0634 00 4 00000 SXA 0,4 IG066 FP122760 | 25207 -0500 00 0 11030 CAL NMBR3 IG067 FP122770 | 25210 0074 00 4 11465 TSX PADDR,4 IG068 FP122780 | 25211 -0500 00 0 27035 CAL IAD10 IG069 FP122790 | 25212 -0501 00 0 25214 ORA *+2 AXT SIZE,4 IG070 FP122800 25213 0074 00 4 11413 TSX PRGMR,4 IG071 FP122810 | 25214 0774 00 4 00000 AXT 0,4 IG072 FP122820 | 25215 -0500 00 0 27035 CAL IAD10 IG073 FP122830 | 25216 -0501 00 0 25220 ORA *+2 CAL STORAGE+SIZE4 IG074 FP122840 | 25217 0074 00 4 11413 TSX PRGMR,4 IG075 FP122850 25220 -0500 00 4 00000 CAL 0,4 IG076 FP122860 | 25221 -0500 00 0 25646 CAL IIA19 IG077 FP122870 | 25222 -0501 00 0 25647 ORA IIA20 IG078 FP122880 | 25223 0771 00 0 00014 ARS 12 IG079 FP122890 | 25224 -0760 00 0 00003 SSM IG080 FP122900 25225 0074 00 4 11507 TSX YADDR,4 IG081 FP122910 | 25226 -0500 00 0 25230 CAL *+2 SLW I/O BUFFER,4 IG082 FP122920 | 25227 0074 00 4 11413 TSX PRGMR,4 IG083 FP122930 | 1 LISTING OF 12/01/64 PAGE 258 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | 25230 0602 00 4 00000 SLW 0,4 IG084 FP122940 | 25231 -0500 00 0 25233 CAL *+2 TIX *-2,4,1 IG085 FP122950 | 25232 0074 00 4 11413 TSX PRGMR,4 IG086 FP122960 | 25233 2 00001 4 00000 TIX 0,4,1 IG087 FP122970 25234 0502 00 0 11027 CLS NMBR2 IG088 FP122980 | 25235 0074 00 4 11465 TSX PADDR,4 IG089 FP122990 | 25236 -0500 00 0 25240 CAL *+2 TSX SAVXR,4 IG090 FP123000 | 25237 0074 00 4 11413 TSX PRGMR,4 IG091 FP123010 | 25240 0074 00 4 22321 TSX SAVXR,4 IG092 FP123020 25241 -0500 00 0 25243 CAL *+2 PZE OUTPT,0,8 IG093 FP123030 | 25242 0074 00 4 11413 TSX PRGMR,4 IG094 FP123040 | 25243 -1 00010 0 16555 FVE OUTPT,0,8 PRE REPORT IG095 FP123050 | 25244 -0500 00 0 25246 CAL *+2 LAC CHLOC,4 IG096 FP123060 | 25245 0074 00 4 11413 TSX PRGMR,4 IG097 FP123070 25246 0535 00 4 17300 LAC CHLOC,4 IG098 FP123080 | 25247 -0500 00 0 25251 CAL *+2 TSX 1,2 TO ASSEM RECORD IG099 FP123090 | 25250 0074 00 4 11413 TSX PRGMR,4 IG100 FP123100 | 25251 0074 00 2 00001 TSX 1,2 IG101 FP123110 | 25252 -0500 00 0 25646 CAL IIA19 IG102 FP123120 25253 -0501 00 0 25650 ORA IIA21 IG103 FP123130 | 25254 0771 00 0 00014 ARS 12 IG104 FP123140 | 25255 0074 00 4 11507 TSX YADDR,4 IG105 FP123150 | 25256 -0500 00 0 25260 IG106 CAL *+2 CAL ACTR IG106 FP123160 | 25257 0074 00 4 11413 TSX PRGMR,4 IG107 FP123170 25260 -0500 00 0 00000 CAL 0 IG108 FP123180 | 25261 -0500 00 0 11026 CAL NMBR1 IG109 FP123190 | 25262 0074 00 4 11455 TSX SADDR+1,4 IG110 FP123200 | 25263 -0500 00 0 25265 CAL *+2 SLW 1,4 IG111 FP123210 | 25264 0074 00 4 11413 TSX PRGMR,4 IG112 FP123220 25265 0602 00 4 00001 SLW 1,4 IG113 FP123230 | 25266 -0500 00 0 25652 CAL IIA23 RECORD TYPE IG114 FP123240 | 25267 0074 00 4 11426 TSX STORR,4 IG117 FP123250 | 25270 -0500 00 0 25272 CAL *+2 CAL RECORD TYPE IG118 FP123260 | 25271 0074 00 4 11413 TSX PRGMR,4 IG119 FP123270 25272 -0500 00 0 00000 CAL 0 IG120 FP123280 | 25273 0074 00 4 11454 TSX SADDR,4 IG121 FP123290 | 25274 -0500 00 0 25276 CAL *+2 SLW 0,4 IG122 FP123300 | 25275 0074 00 4 11413 TSX PRGMR,4 IG123 FP123310 | 25276 0602 00 4 00000 SLW 0,4 IG124 FP123320 25277 -0500 00 0 25301 CAL *+2 TSX SAVXR,4 IG125 FP123330 | 25300 0074 00 4 11413 TSX PRGMR,4 IG126 FP123340 | 25301 0074 00 4 22321 TSX SAVXR,4 IG127 FP123350 | 25302 -0500 00 0 25304 CAL *+2 IG128 FP123360 | 25303 0074 00 4 11413 TSX PRGMR,4 IG129 FP123370 25304 -0 00010 0 16555 FOR OUTPT,0,8 POST REPORT IG130 FP123380 | 25305 0520 00 0 25636 ZET IIA11 IG1301FP123390 | 25306 0020 00 0 25312 TRA *+4 IG1302FP123400 | 25307 -0500 00 0 25311 CAL *+2 IG1303FP123410 | 25310 0074 00 4 11413 TSX PRGMR,4 IG1304FP123420 25311 0535 00 2 17301 LAC SFLOC,2 IG1305FP123430 | 25312 -0500 00 0 25646 CAL IIA19 IG131 FP123440 | 25313 -0501 00 0 25650 ORA IIA21 IG132 FP123450 | 25314 0074 00 4 11547 TSX M0010,4 DUMP POST REPORT PKG IG133 FP123460 | 25315 0520 00 0 25636 ZET IIA11 PRE SW IG134 FP123470 25316 0020 00 0 25403 TRA IG187 IG135 FP123480 | 1 LISTING OF 12/01/64 PAGE 259 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | | 25317 -0500 00 0 25652 CAL IIA23 RECORD TYPE IG136 FP123490 25320 0074 00 4 11426 TSX STORR,4 RECORD TYPE IG139 FP123500 | 25321 -0500 00 0 25651 CAL IIA22 ACTR EQUALS F IG140 FP123510 | 25322 0074 00 4 11426 TSX STORR,4 IG141 FP123520 | 25323 0534 00 2 27035 LXA IAD10,2 IG142 FP123530 | 25324 1 77777 2 25325 TXI *+1,2,-1 IG143 FP123540 25325 0754 00 0 00000 PXA 0,0 IG144 FP123550 | 25326 0074 00 4 11426 TSX STORR,4 IG145 FP123560 | 25327 2 00001 2 25325 TIX *-2,2,1 IG146 FP123570 | 25330 -0520 00 0 25635 NZT IIA10 IG147 FP123580 | 25331 0020 00 0 25347 TRA IG162 IG148 FP123590 25332 -0500 00 0 25334 CAL *+2 ZET FREQ CTR IG149 FP123600 | 25333 0074 00 4 11413 TSX PRGMR,4 IG150 FP123610 | 25334 0520 00 0 00001 ZET 1 IG151 FP123620 | 25335 -0500 00 0 25646 CAL IIA19 IG152 FP123630 | 25336 -0501 00 0 25650 ORA IIA21 IG153 FP123640 25337 0771 00 0 00014 ARS 12 IG154 FP123650 | 25340 -0760 00 0 00003 SSM IG155 FP123660 | 25341 0074 00 4 11507 TSX YADDR,4 IG156 FP123670 | 25342 -0500 00 0 25344 CAL *+2 TRA G/4 IG157 FP123680 | 25343 0074 00 4 11413 TSX PRGMR,4 IG158 FP123690 25344 0020 00 0 00000 TRA 0 IG159 FP123700 | 25345 -0500 00 0 11031 CAL NMBR4 IG160 FP123710 | 25346 0074 00 4 11477 TSX GADDR,4 IG161 FP123720 | 25347 -0520 00 0 25637 IG162 NZT IIA12 OR SW IG162 FP123730 | 25350 0020 00 0 25361 TRA IG172 IG163 FP123740 25351 -0500 00 0 25353 CAL *+2 ZET ISWCH IG164 FP123750 | 25352 0074 00 4 11413 TSX PRGMR,4 IG165 FP123760 | 25353 0520 00 0 22205 ZET ISWCH IG166 FP123770 | 25354 -0500 00 0 25356 CAL *+2 TRA G/4 IG167 FP123780 | 25355 0074 00 4 11413 TSX PRGMR,4 IG168 FP123790 25356 0020 00 0 00000 TRA 0 IG169 FP123800 | 25357 -0500 00 0 11031 CAL NMBR4 IG170 FP123810 | 25360 0074 00 4 11477 TSX GADDR,4 IG171 FP123820 | 25361 -0500 00 0 25363 IG172 CAL *+2 AXC STORAGE,4 IG172 FP123830 | 25362 0074 00 4 11413 TSX PRGMR,4 IG173 FP123840 25363 -0774 00 4 00000 AXC 0,4 IG174 FP123850 | 25364 -0500 00 0 11026 CAL NMBR1 IG175 FP123860 | 25365 0074 00 4 11455 TSX SADDR+1,4 IG176 FP123870 | 25366 -0500 00 0 25370 CAL *+2 TSX TORPT+1,2 IG177 FP123880 | 25367 0074 00 4 11413 TSX PRGMR,4 IG178 FP123890 25370 0074 00 2 00001 TSX 1,2 IG179 FP123900 | 25371 -0500 00 0 25646 CAL IIA19 IG180 FP123910 | 25372 -0501 00 0 25650 ORA IIA21 IG181 FP123920 | 25373 0771 00 0 00014 ARS 12 IG182 FP123930 | 25374 0074 00 4 11507 TSX YADDR,4 IG183 FP123940 25375 -0500 00 0 25377 CAL *+2 IG1831FP123950 | 25376 0074 00 4 11413 TSX PRGMR,4 IG1832FP123960 | 25377 0535 00 2 17301 LAC SFLOC,2 IG1833FP123970 | 25400 -0500 00 0 25646 CAL IIA19 IG184 FP123980 | 25401 -0501 00 0 25647 ORA IIA20 IG185 FP123990 25402 0074 00 4 11547 TSX M0010,4 DUMP PRE REPT IG186 FP124000 | 25403 0774 00 4 00007 IG187 AXT 7,4 IG187 FP124010 | 25404 0600 00 4 25644 STZ IIA17,4 IG188 FP124020 | 25405 2 00001 4 25404 TIX *-1,4,1 IG189 FP124030 | 1 LISTING OF 12/01/64 PAGE 260 REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | | 25406 0600 00 0 25660 STZ IAA70 IG190 FP124040 | 25407 0600 00 0 25670 STZ IAB30 IG191 FP124050 | 25410 0600 00 0 25671 STZ IAB40 IG192 FP124060 25411 0774 00 4 01130 AXT 600,4 IG193 FP124070 | 25412 0600 00 4 27030 STZ IAC10+600,4 IG194 FP124080 | 25413 2 00001 4 25412 TIX *-1,4,1 IG195 FP124090 | 25414 0600 00 0 27034 STZ IAC90 IG196 FP124100 | 25415 0774 00 4 00023 AXT 19,4 IG197 FP124110 25416 0600 00 4 27061 STZ IAE10,4 IG198 FP124120 | 25417 2 00001 4 25416 TIX *-1,4,1 IG199 FP124130 | 25420 -0500 00 0 11027 CAL NMBR2 IG200 FP124140 | 25421 0602 00 0 27035 SLW IAD10 IG201 FP124150 | 25422 -0520 00 0 14512 NZT BAE80 IG202 FP124160 25423 0020 00 0 14403 TRA BB360 IG203 FP124170 | 25424 0020 00 0 14341 TRA BB180 IG204 FP124180 | 25425 -0625 00 0 25641 II010 STL IIA14 RUN IN SW OFF II010 FP124190 | 25426 -0500 00 0 67172 CAL HEADR II011 FP124200 | 25427 0771 00 0 00006 ARS 6 II012 FP124210 25430 -0320 00 0 10755 ANA BCD30 II013 FP124220 | 25431 -0501 00 0 25645 ORA IIA18 II014 FP124230 | 25432 0602 00 0 25646 SLW IIA19 II015 FP124240 | 25433 -0500 00 0 67172 CAL HEADR SAVE RT OF RPT II016 FP124250 | 25434 -0320 00 0 11005 ANA BCD60 II017 FP124260 25435 0602 00 0 25652 SLW IIA23 II018 FP124270 | 25436 -0320 00 0 10765 ANA BCD40 II019 FP124280 | 25437 -0100 00 0 25442 TNZ *+3 II020 FP124290 | 25440 -0500 00 0 27101 CAL IAE71 II021 FP124300 | 25441 0020 00 0 25443 TRA *+2 II022 FP124310 25442 -0500 00 0 27102 CAL IAE72 II023 FP124320 | 25443 -0602 00 0 25652 ORS IIA23 II024 FP124330 | 25444 -0500 00 0 67172 CAL HEADR FP124340 | 25445 -0320 00 0 10726 ANA BCD01 II028 FP124350 | 25446 -0340 00 0 25625 LAS IIA02 II030 FP124360 25447 0020 00 0 25451 TRA *+2 II040 FP124370 | 25450 0020 00 0 25460 TRA II130 FOR VERTICAL II050 FP124380 | 25451 -0500 00 0 67175 CAL HEADR+3 UPDATES II060 FP124390 | 25452 0771 00 0 00006 ARS 6 II070 FP124400 | 25453 -0320 00 0 10726 ANA BCD01 II080 FP124410 25454 0602 00 0 25640 SLW IIA13 ACTR II090 FP124420 | 25455 -0500 00 0 67176 CAL HEADR+4 II100 FP124430 | 25456 -0765 00 0 00030 LGR 24 II110 FP124440 | 25457 0020 00 0 25466 TRA II190 MERGE WITH VERTICAL II120 FP124450 | 25460 -0500 00 0 67174 II130 CAL HEADR+2 II130 FP124460 25461 0771 00 0 00006 ARS 6 II140 FP124470 | 25462 -0320 00 0 10726 ANA BCD01 II150 FP124480 | 25463 0602 00 0 25640 SLW IIA13 ACTR II160 FP124490 | 25464 -0500 00 0 67174 CAL HEADR+2 II170 FP124500 | 25465 0560 00 0 67175 LDQ HEADR+3 II180 FP124510 25466 -0320 00 0 10726 II190 ANA BCD01 II190 FP124520 | 25467 -0340 00 0 25630 LAS IIA05 T II200 FP124530 | 25470 0020 00 0 25472 TRA *+2 II210 FP124540 | 25471 -0625 00 0 25636 STL IIA11 PRE-SW II220 FP124550 | 25472 -0763 00 0 00022 LGL 18 II230 FP124560 25473 -0320 00 0 10734 ANA BCD07 II240 FP124570 | 25474 -0340 00 0 25627 LAS IIA04 BLANK II250 FP124580 | 1 LISTING OF 12/01/64 PAGE 261 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | 25475 0020 00 0 25477 TRA *+2 II260 FP124590 | 25476 0020 00 0 25506 TRA II350 II270 FP124600 | 25477 -0340 00 0 25626 LAS IIA03 001 II280 FP124610 | 25500 0020 00 0 25502 TRA *+2 II290 FP124620 | 25501 0020 00 0 25506 TRA II350 II300 FP124630 25502 0602 00 0 07751 SLW B1020 II310 FP124640 | 25503 0074 00 4 07570 TSX B0010,4 II320 FP124650 | 25504 -0500 00 0 07747 CAL B1000 II330 FP124660 | 25505 0602 00 0 25635 SLW IIA10 FREQ II340 FP124670 | 25506 -0500 00 0 25640 II350 CAL IIA13 ACTR II350 FP124680 25507 -0340 00 0 25631 LAS IIA06 I II360 FP124690 | 25510 0020 00 0 25512 TRA *+2 II370 FP124700 | 25511 0020 00 0 25513 TRA *+2 II380 FP124710 | 25512 0020 00 0 25515 TRA *+3 II390 FP124720 | 25513 -0625 00 0 25636 STL IIA11 PRE-SW II400 FP124730 25514 0020 00 0 25530 TRA II530 TO GENERATE II410 FP124740 | 25515 -0340 00 0 25632 LAS IIA07 D II420 FP124750 | 25516 0020 00 0 25520 TRA *+2 II430 FP124760 | 25517 0020 00 0 25530 TRA II530 TO GENERATE II440 FP124770 | 25520 -0340 00 0 25633 LAS IIA08 E II450 FP124780 25521 0020 00 0 25523 TRA *+2 II460 FP124790 | 25522 0020 00 0 25530 TRA II530 TO GENERATE II470 FP124800 | 25523 -0340 00 0 25634 LAS IIA09 O II480 FP124810 | 25524 0020 00 0 25526 TRA *+2 II490 FP124820 | 25525 -0625 00 0 25637 STL IIA12 OR SW II500 FP124830 25526 -0500 00 0 25630 CAL IIA05 T II510 FP124840 | 25527 0602 00 0 25640 SLW IIA13 ACTR II520 FP124850 | 25530 -0500 00 0 25640 II530 CAL IIA13 ACTR II530 FP124860 | 25531 0074 00 4 11426 TSX STORR,4 II540 FP124870 | 25532 0520 00 0 25636 ZET IIA11 PRE-SW II550 FP124880 25533 0020 00 0 25546 TRA II670 NO PRE REQUIRED II560 FP124890 | 25534 -0500 00 0 25536 CAL *+2 II570 FP124900 | 25535 0074 00 4 11413 TSX PRGMR,4 II580 FP124910 | 25536 0020 00 0 00000 TRA 0 II590 FP124920 | 25537 -0500 00 0 25541 CAL *+2 II600 FP124930 25540 0074 00 4 11413 TSX PRGMR,4 II610 FP124940 | 25541 0634 00 2 00000 SXA 0,2 II620 FP124950 | 25542 -0500 00 0 25544 CAL *+2 II630 FP124960 | 25543 0074 00 4 11413 TSX PRGMR,4 II640 FP124970 | 25544 0535 00 2 17301 LAC SFLOC,2 II650 FP124980 25545 0020 00 0 24272 TRA IA030 TO PROCESS CARDS II660 FP124990 | 25546 0520 00 0 25635 II670 ZET IIA10 FREQ II670 FP125000 | 25547 0074 00 4 25554 TSX II730,4 TO GENERATE FREQ PKG II680 FP125010 | 25550 -0500 00 0 25552 CAL *+2 II690 FP125020 | 25551 0074 00 4 11413 TSX PRGMR,4 II700 FP125030 25552 0535 00 4 17300 LAC CHLOC,4 II710 FP125040 | 25553 0020 00 0 24272 TRA IA030 TO PROCESS CARD II720 FP125050 | 25554 0634 00 4 25622 II730 SXA II767,4 SAVE 4 II7300FP125060 | 25555 -0500 00 0 25642 CAL IIA15 ZERO II7310FP125070 | 25556 0074 00 4 11426 TSX STORR,4 II7320FP125080 25557 -0500 00 0 11436 CAL G0080 II7330FP125090 | 25560 0621 00 0 25643 STA IIA16 SAVE LOCATION OF CTR II7340FP125100 | 25561 -0500 00 0 25563 CAL *+2 CLA-COUNTER II7350FP125110 | 25562 0074 00 4 11413 TSX PRGMR,4 II7360FP125120 | 25563 0500 00 0 00000 CLA 0 II7370FP125130 1 LISTING OF 12/01/64 PAGE 262 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | | 25564 0074 00 4 11454 TSX SADDR,4 II7380FP125140 | 25565 -0500 00 0 25567 CAL *+2 TZE II7390FP125150 25566 0074 00 4 11413 TSX PRGMR,4 II7400FP125160 | 25567 0100 00 0 00000 TZE 0 II7410FP125170 | 25570 -0500 00 0 11031 CAL NMBR4 II7420FP125180 | 25571 0074 00 4 11465 TSX PADDR,4 II7430FP125190 | 25572 -0500 00 0 25574 CAL *+2 SUB-ONE II7440FP125200 25573 0074 00 4 11413 TSX PRGMR,4 II7450FP125210 | 25574 0402 00 0 04673 SUB ONE II7460FP125220 | 25575 -0500 00 0 25577 CAL *+2 STO-COUNTER II7470FP125230 | 25576 0074 00 4 11413 TSX PRGMR,4 II7480FP125240 | 25577 0601 00 0 00000 STO 0 II7490FP125250 25600 0074 00 4 11454 TSX SADDR,4 II7500FP125260 | 25601 -0500 00 0 25603 CAL *+2 TRA-G/4 II7510FP125270 | 25602 0074 00 4 11413 TSX PRGMR,4 II7520FP125280 | 25603 0020 00 0 00000 TRA 0 II7530FP125290 | 25604 -0500 00 0 11031 CAL NMBR4 II7540FP125300 25605 0074 00 4 11477 TSX GADDR,4 II7550FP125310 | 25606 -0500 00 0 25635 CAL IIA10 CONSTANT II7560FP125320 | 25607 0402 00 0 11026 SUB NMBR1 II7565FP125330 | 25610 0074 00 4 11426 TSX STORR,4 II7570FP125340 | 25611 -0500 00 0 25613 CAL *+2 CLA-CONSTANT II7580FP125350 25612 0074 00 4 11413 TSX PRGMR,4 II7590FP125360 | 25613 0500 00 0 00000 CLA 0 II7600FP125370 | 25614 0074 00 4 11454 TSX SADDR,4 II7610FP125380 | 25615 -0500 00 0 25617 CAL *+2 STO-COUNTER II7620FP125390 | 25616 0074 00 4 11413 TSX PRGMR,4 II7630FP125400 25617 0601 00 0 00000 STO 0 II7640FP125410 | 25620 -0500 00 0 25643 CAL IIA16 II7650FP125420 | 25621 0074 00 4 11455 TSX SADDR+1,4 II7660FP125430 | 25622 0774 00 4 00000 II767 AXT 0,4 II7670FP125440 | 25623 0020 00 4 00001 TRA 1,4 II7680FP125450 25624 +000000077777 IIA01 OCT 77777 IIA01 FP125460 | 25625 000000000065 IIA02 BCI 1,00000V IIA02 FP125470 | 25626 000000000001 IIA03 BCI 1,000001 IIA03 FP125480 | 25627 000000606060 IIA04 BCI 1,000 IIA04 FP125490 | 25630 000000000063 IIA05 BCI 1,00000T IIA05 FP125500 25631 000000000031 IIA06 BCI 1,00000I IIA06 FP125510 | 25632 000000000024 IIA07 BCI 1,00000D IIA07 FP125520 | 25633 000000000025 IIA08 BCI 1,00000E IIA08 FP125530 | 25634 000000000046 IIA09 BCI 1,00000O IIA09 FP125540 | 25635 0 00000 0 00000 IIA10 PZE 0 FREQ NOT ZERO IS AS INDICATED IIA10 FP125550 25636 0 00000 0 00000 IIA11 PZE 0 PRE SW ZERO FROM IS REQUIRED IIA11 FP125560 | 25637 0 00000 0 00000 IIA12 PZE 0 OR SW ZERO IS NOT OR IIA12 FP125570 | 25640 0 00000 0 00000 IIA13 PZE 0 ACTR IIA13 FP125580 | 25641 0 00000 0 00000 IIA14 PZE 0 RUN IN SW IIA14 FP125590 | 25642 0 00000 0 00000 IIA15 PZE 0 ZERO WORD IIA15 FP125600 25643 0 00000 0 00000 IIA16 PZE 0 LOCATION OF COUNTER IIA16 FP125610 | 25644 0 00000 0 00012 IIA17 PZE 10 IIA17 FP125620 | 25645 -120000000000 IIA18 OCT 520000000000 PRIORITY AREA IIA18 FP125630 | 25646 +000000000000 IIA19 OCT 000000000000 * PLUS PRIORITY CODE IIA19 FP125640 | 25647 +000000270000 IIA20 OCT 000000270000 PRC REPT IIA20 FP125650 25650 +000000620000 IIA21 OCT 000000620000 POST REPT IIA21 FP125660 | 25651 000000000026 IIA22 BCI 1,00000F IIA22 FP125670 | 25652 0 00000 0 00000 IIA23 PZE 0 STORAGE FOR REPT RT IIA23 FP125680 | 1 LISTING OF 12/01/64 PAGE 263 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | 25653 0 00000 0 00011 IAA10 PZE 9 IAA10 FP125690 | 25654 0 00000 0 00000 IAA20 PZE LITERAL FIELD = IAA20 FP125700 | 25655 000021236351 IAA30 BCI 1,00ACTR IAA30 FP125710 | 25656 0 00000 0 00000 IAA50 PZE LOCATION OF CHANGE CARD RECIAA50 FP125720 25657 255163312321 IAA60 BCI 1,ERTICA IAA60 FP125730 | 25660 0 00000 0 00000 IAA70 PZE VERTICAL-UPDATE ZIGGER 0-V IAA70 FP125740 | 25661 006060000000 IAA80 BCI 1,0 000 IAA80 FP125750 | 25662 606060606060 IAB00 BCI 1, BLANKS IAB00 FP125760 | 25663 +000000000001 IAB20 DEC 1,36,4,5,2 IAB20 FP125770 25664 +000000000044 | 25665 +000000000004 | 25666 +000000000005 | 25667 +000000000002 | 25670 0 00000 0 00000 IAB30 PZE COUNT OF TABLE ENTRIES IAB30 FP125780 25671 0 00000 0 00000 IAB40 PZE UPDATE DICTIONARY HERE-0 ISIAB40 FP125790 | 25672 000021646330 IAB50 BCI 1,00AUTH EDIT COMPARISONS FOR LITERAIAB50 FP125800 | 25673 000026432413 IAB60 BCI 1,00FLD= * IAB60 FP125810 | 25674 000024256223 IAB70 BCI 1,00DESC * IAB70 FP125820 | 25675 000021236326 IAB80 BCI 1,00ACTF * IAB80 FP125830 25676 000026514644 IAB90 BCI 1,00FROM * IAB90 FP125840 | 25677 000063466060 IAC00 BCI 1,00TO * IAC00 FP125850 | 25700 IAC10 BSS 600 CHANGE REPORT TABLE IAC10 FP125860 | 27030 0 00000 0 00000 IAC20 PZE SOURCE FILE-0 IS CURRENT IAC20 FP125870 | 27031 260000000000 IAC30 BCI 1,F00000 EXECUTIVE CODE IAC30 FP125880 27032 000101000000 IAC40 BCI 1,011000 MODE FOR DICT IAC40 FP125890 | 27033 000060606060 IAC70 BCI 1,00 IAC70 FP125900 | 27034 0 00000 0 00000 IAC90 PZE SAVE TABLE LOCATION IAC90 FP125910 | 27035 +000000000002 IAD10 DEC 2 CHANGE RECORD LENGTH ACCUMUIAD10 FP125920 | 27036 0 00000 0 00000 IAD30 PZE BIT POSITION IAD30 FP125930 27037 0 00000 0 00000 IAD40 PZE WORD LOCATION IAD40 FP125940 | 27040 0 00000 0 00000 IAD50 PZE LENGTH IAD50 FP125950 | 27041 0 00000 0 00000 IAD60 PZE TEMP STORAGE AREA IAD60 FP125960 | 27042 0 00000 0 00000 IAD70 PZE SOURCE FILE-UPDATE 0-SF IAD70 FP125970 | 27043 IAE00 BSS 14 IAE00 FP125980 27061 000100000000 IAE10 BCI 1,010000 IAE10 FP125990 | 27062 606060000000 IAE20 BCI 1, 000 FP126000 | 27063 010000000000 IAE40 BCI 1,100000 IAE40 FP126010 | 27064 000000000001 IAE50 BCI 3,0000012 000000 IAE50 FP126020 | 27065 026060606000 27066 000000000060 | 27067 606060606060 IAE60 BCI 8, IAE60 FP126030 | 27070 606060606060 | 27071 606060606060 | 27072 606060606060 27073 606060606060 | 27074 606060606060 | 27075 606060606060 | 27076 606060606060 | 27077 606060606060 IAE70 BCI 2, IAE70 FP126040 27100 606060606060 | 27101 -120000000000 IAE71 OCT 520000000000 IAE71 FP126050 | 27102 -000000000000 IAE72 OCT 400000000000 IAE72 FP126060 | 27103 0 00000 0 00000 IAE75 PZE 0 IAE75 FP126070 | 27104 066060606000 IAE80 BCI 2,6 000130 IAE80 FP126080 27105 000001030060 | 1 LISTING OF 12/01/64 PAGE 264 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | | 27106 0 00000 1 00000 IAH40 PZE 0,1 IAH40 FP126090 27107 0 00000 2 00000 IAH50 PZE 0,2 IAH50 FP126100 | 27172 UDRPT BES 50 FP126110 | 1 LISTING OF 12/01/64 PAGE 265 | REPTO (9PAC32). HANDLES ALL EXCEPT HORIZONTAL REPORTS | * FP126130 | 1 LISTING OF 12/01/64 PAGE 266 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | * FP126150 * FP126160 | * FP126170 | 27172 ORG UDRPT FOR HSKP2 FP126180 | * FP126190 | * GENERATE SUMMARY ENTRIES VA000 FP126200 * FP126210 | * FP126220 | * FP126230 | 27172 306242476002 BCI 1,HSKP 2 FP126240 | 27173 0774 00 2 00062 VA010 AXT SNZE,2 VA010 FP126250 27174 0074 00 4 06342 TSX TPOSIT,4 FP126260 | 27175 0 00000 0 00007 PZE 7 FP126270 | 27176 0020 00 0 30366 TRA FA010 VA012 FP126280 | 27177 0634 00 2 27173 VA020 SXA VA010,2 VA020 FP126290 | 27200 -0500 00 2 67543 CAL SNTRY+SNZE,2 VA030 FP126300 27201 0100 00 0 27425 TZE VC010 DELETION ROUTINE. VA040 FP126310 | 27202 0602 00 0 27206 SLW VA080 VA050 FP126320 | 27203 0774 00 1 00705 AXT SMZE,1 VA060 FP126330 | 27204 0634 00 1 27305 SXA VA935,1 VA065 FP126340 | 27205 0074 00 4 12663 TSX D0010,4 VA070 FP126350 27206 0 00000 0 00000 VA080 PZE 0 RECORD TYPE VA080 FP126360 | 27207 0534 00 2 27173 LXA VA010,2 RELATIVE SNTRY VA090 FP126370 | 27210 0534 00 1 27305 LXA VA935,1 VA095 FP126380 | 27211 -0500 00 2 67544 CAL SNTRY+SNZE+1,2 NZT VA100 FP126390 | 27212 0771 00 0 00022 ARS 18 VA110 FP126400 27213 -0501 00 0 27215 ORA *+2 VA120 FP126410 | 27214 0074 00 4 11413 TSX PRGMR,4 VA130 FP126420 | 27215 -0520 00 0 00000 NZT 0 VA140 FP126430 | 27216 -0500 00 0 27220 CAL *+2 TRA VA150 FP126440 | 27217 0074 00 4 11413 TSX PRGMR,4 VA160 FP126450 27220 0020 00 0 00000 TRA 0 VA170 FP126460 | 27221 0500 00 0 27414 CLA VAA10 3 VA180 FP126470 | 27222 0074 00 4 11477 TSX GADDR,4 VA190 FP126480 | 27223 -0500 00 0 27225 CAL *+2 NZT-HIGH VA200 FP126490 | 27224 0074 00 4 11413 TSX PRGMR,4 VA210 FP126500 27225 -0520 00 0 22203 NZT HIGH VA220 FP126510 | 27226 -0500 00 0 27230 CAL *+2 TRA-G/3 VA230 FP126520 | 27227 0074 00 4 11413 TSX PRGMR,4 VA240 FP126530 | 27230 0020 00 0 00000 TRA 0 VA250 FP126540 | 27231 -0500 00 0 27414 CAL VAA10 VA260 FP126550 27232 0074 00 4 11477 TSX GADDR,4 VA270 FP126560 | 27233 -0500 00 0 27235 CAL *+2 NZT-EQUAL VA280 FP126570 | 27234 0074 00 4 11413 TSX PRGMR,4 VA290 FP126580 | 27235 -0520 00 0 22204 NZT EQUAL VA300 FP126590 | 27236 -0500 00 0 27240 CAL *+2 TRA *+3 VA310 FP126600 27237 0074 00 4 11413 TSX PRGMR,4 VA320 FP126610 | 27240 0020 00 0 00000 TRA 0 VA330 FP126620 | 27241 -0500 00 0 11031 CAL NMBR4 VA340 FP126630 | 27242 0074 00 4 11465 TSX PADDR,4 VA350 FP126640 | 27243 -0500 00 0 27245 CAL *+2 TSX TO COUNT SUMM INSERTS VA351 FP126650 27244 0074 00 4 11413 TSX PRGMR,4 VA352 FP126660 | 27245 0074 00 4 22700 TSX Y6710,4 VA353 FP126670 | 27246 -0500 00 0 27250 CAL *+2 TSX-INSERT VA360 FP126680 | 27247 0074 00 4 11413 TSX PRGMR,4 VA370 FP126690 | 1 LISTING OF 12/01/64 PAGE 267 HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 27250 0074 00 4 00000 TSX 0,4 VA380 FP126700 | 27251 -0500 00 0 27206 CAL VA080 VA390 FP126710 | 27252 0767 00 0 00006 ALS 6 VA400 FP126720 27253 -0501 00 0 27422 ORA VAA40 VA410 FP126730 | 27254 0074 00 4 11507 TSX YADDR,4 VA420 FP126740 | 27255 -0500 00 0 27257 CAL *+2 MZE VA430 FP126750 | 27256 0074 00 4 11413 TSX PRGMR,4 VA440 FP126760 | 27257 -0 00000 0 00000 MZE 0 VA450 FP126770 27260 -0500 00 2 67544 CAL SNTRY+SNZE+1,2 VA460 FP126780 | 27261 0771 00 0 00022 ARS 18 VA470 FP126790 | 27262 -0501 00 0 27264 ORA *+2 VA480 FP126800 | 27263 0074 00 4 11413 TSX PRGMR,4 VA490 FP126810 | 27264 0600 00 0 00000 STZ 0 VA500 FP126820 27265 -0500 00 1 72453 CAL SUTBL+SMZE+1,1 VA820 FP126830 | 27266 0100 00 0 27401 TZE VB350 TO DUMP OBJECT PGM VA825 FP126840 | 27267 0771 00 0 00030 ARS 24 VA830 FP126850 | 27270 -0340 00 0 27206 LAS VA080 VA840 FP126860 | 27271 0020 00 0 27273 TRA *+2 VA850 FP126870 27272 0020 00 0 27276 TRA *+4 VA860 FP126880 | 27273 2 00003 1 27265 VA870 TIX *-6,1,3 VA870 FP126890 | 27274 0074 00 4 10507 TSX T0010,4 FP126900 | 27275 -1 10733 4 00000 STR 0,4,4571 NO ZERO AT END OF SUTBL VA880 FP126910 | 27276 -0500 00 1 72453 CAL SUTBL+SMZE+1,1 VA890 FP126920 27277 0602 00 0 27424 SLW VAA60 VA895 FP126930 | 27300 -0320 00 0 10744 ANA BCD17 VA900 FP126940 | 27301 0602 00 0 27304 SLW *+3 VA910 FP126950 | 27302 0634 00 1 27305 SXA VA935,1 VA915 FP126960 | 27303 0074 00 4 13550 TSX E0010,4 VA920 FP126970 27304 0 00000 0 00000 VA930 PZE 0 FLD NO VA930 FP126980 | 27305 0774 00 1 00000 VA935 AXT 0,1 VA935 FP126990 | 27306 0441 00 2 00001 LDI 1,2 VA9360FP127000 | 27307 -0054 00 100000 LFT 100000 VA9360FP127010 | 27310 0020 00 0 27273 TRA VA870 VA9360FP127020 27311 -0055 00 100000 SIL 100000 VA9360FP127030 | 27312 0604 00 2 00001 STI 1,2 VA9360FP127040 | 27313 0774 00 4 00705 AXT SMZE,4 INIT TO ROLL VA9360FP127050 | 27314 0634 00 4 27342 SXA VB291,4 VA9360FP127060 | 27315 -0500 00 0 13613 CAL E1005 CLA-WORD INCR VB080 FP127070 27316 -0501 00 0 27320 ORA *+2 VB090 FP127080 | 27317 0074 00 4 11413 TSX PRGMR,4 VB100 FP127090 | 27320 0500 00 2 00000 CLA 0,2 VB110 FP127100 | 27321 -0500 00 1 72454 CAL SUTBL+SMZE+2,1 ADD INTERMEDIATE VB120 FP127110 | 27322 0621 00 0 27366 STA VB294 VB125 FP127120 27323 -0501 00 0 27325 ORA *+2 VB130 FP127130 | 27324 0074 00 4 11413 TSX PRGMR,4 VB140 FP127140 | 27325 0400 00 0 00000 ADD 0 VB150 FP127150 | 27326 -0500 00 0 27330 CAL *+2 VB1510FP127160 | 27327 0074 00 4 11413 TSX PRGMR,4 VB1510FP127170 27330 -0100 00 0 00000 TNZ 0 VB1510FP127180 | 27331 -0500 00 0 27747 CAL VCA30 2 VB1510FP127190 | 27332 0074 00 4 11465 TSX PADDR,4 VB1510FP127200 | 27333 -0500 00 0 27335 CAL *+2 VB1510FP127210 | 27334 0074 00 4 11413 TSX PRGMR,4 VB1510FP127220 27335 0760 00 0 00003 SSP 0 VB1510FP127230 | 27336 -0500 00 0 13613 CAL E1005 STO-WORD INCR VB160 FP127240 | 1 LISTING OF 12/01/64 PAGE 268 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 27337 -0501 00 0 27341 ORA *+2 VB170 FP127250 | 27340 0074 00 4 11413 TSX PRGMR,4 VB180 FP127260 | 27341 0601 00 2 00000 STO 0,2 VB190 FP127270 | 27342 0774 00 4 00000 VB291 AXT 0,4 VB2910FP127280 | 27343 0634 00 4 27342 SXA VB291,4 VB2910FP127290 27344 -0500 00 4 72452 CAL SUTBL+SMZE,4 VB2910FP127300 | 27345 0100 00 0 27374 TZE VB300 VB2910FP127310 | 27346 -0340 00 0 27424 LAS VAA60 VB2910FP127320 | 27347 0020 00 0 27351 TRA *+2 VB2910FP127330 | 27350 0020 00 0 27354 TRA *+4 VB291 FP127340 27351 2 00003 4 27343 VB293 TIX *-6,4,3 VB2930FP127350 | 27352 0074 00 4 10507 TSX T0010,4 FP127360 | 27353 -1 11230 4 00000 STR 0,4,4760 SUMM TBL(SUTBL)NOT MATCH PREV SETUP VB2930FP127370 | 27354 0322 00 4 72453 ERA SUTBL+SMZE+1,4 VB2930FP127380 | 27355 0100 00 0 27351 TZE VB293 VB2930FP127390 27356 0500 00 4 72454 CLA SUTBL+SMZE+2,4 VB2930FP127400 | 27357 -0120 00 0 27351 TMI VB293 VB2930FP127410 | 27360 0621 00 0 27371 STA VB295 TO STO VB2930FP127420 | 27361 -0501 00 0 27363 ORA *+2 VB2930FP127430 | 27362 0074 00 4 11413 TSX PRGMR,4 VB2930FP127440 27363 0500 00 0 00000 CLA 0 VB2930FP127450 | 27364 -0500 00 0 27366 CAL *+2 VB2930FP127460 | 27365 0074 00 4 11413 TSX PRGMR,4 VB2930FP127470 | 27366 0400 00 0 00000 VB294 ADD 0 VB2931FP127480 | 27367 -0500 00 0 27371 CAL *+2 VB2931FP127490 27370 0074 00 4 11413 TSX PRGMR,4 VB2931FP127500 | 27371 0601 00 0 00000 VB295 STO 0 VB2950FP127510 | 27372 0534 00 4 27342 LXA VB291,4 RESTORE XR4 VB2950FP127520 | 27373 0020 00 0 27351 TRA VB293 TO TIX VB2950FP127530 | 27374 -0500 00 1 72454 VB300 CAL SUTBL+SMZE+2,1 STZ-INTERMEDIATE VB300 FP127540 27375 -0501 00 0 27377 ORA *+2 VB310 FP127550 | 27376 0074 00 4 11413 TSX PRGMR,4 VB320 FP127560 | 27377 0600 00 0 00000 STZ 0 VB330 FP127570 | 27400 0020 00 0 27273 TRA VA870 VB340 FP127580 | 27401 -0500 00 0 27403 VB350 CAL *+2 VB350 FP127590 27402 0074 00 4 11413 TSX PRGMR,4 VB351 FP127600 | 27403 0020 00 0 22210 TRA MERGE VB352 FP127610 | 27404 -0500 00 0 27206 CAL VA080 VB353 FP127620 | 27405 0767 00 0 00022 ALS 18 VB360 FP127630 | 27406 -0501 00 0 27423 ORA VAA50 430000000000 VB370 FP127640 27407 0074 00 4 11547 TSX M0010,4 VB390 FP127650 | 27410 0534 00 2 27173 LXA VA010,2 VB400 FP127660 | 27411 2 00002 2 27177 TIX VA020,2,2 VB410 FP127670 | 27412 0074 00 4 10507 TSX T0010,4 FP127680 | 27413 -1 10770 4 00000 STR 0,4,4600 NO ZERO AT END OF SNTRY VB420 FP127690 27414 0 00000 0 00003 VAA10 PZE 3 VAA10 FP127700 | 27415 +000000077777 VAA20 OCT 77777 VAA20 FP127710 | 27416 0 00000 0 00016 VAA30 PZE 14 VAA30 FP127720 | 27417 0 00000 0 00002 VAA31 PZE 2 VAA31 FP127730 | 27420 0 00000 0 00022 VAA32 PZE 18 VAA32 FP127740 27421 0 00000 0 00001 VAA33 PZE 1 VAA33 FP127750 | 27422 +000063000000 VAA40 OCT 63000000 AREA 63 MASK VAA40 FP127760 | 27423 -030000000000 VAA50 OCT 430000000000 VAA50 FP127770 | 27424 0 00000 0 00000 VAA60 PZE 0 VAA60 FP127780 | 1 LISTING OF 12/01/64 PAGE 269 HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | * FP127800 | * FP127810 | * FP127820 * GENERATE DELETION PROGRAM VC000 FP127830 | * FP127840 | * FP127850 | 27425 -0500 00 0 27751 VC010 CAL VCA50 3777 VC121 FP127860 | 27426 0074 00 4 11426 TSX STORR,4 VC122 FP127870 27427 -0500 00 0 67206 CAL PATBL VE700 FP127880 | 27430 0100 00 0 27504 TZE VE790 VE702 FP127890 | 27431 0767 00 0 00030 ALS 24 PARENT REC TYPE VE704 FP127900 | 27432 0074 00 4 11426 TSX STORR,4 VE706 FP127910 | 27433 -0500 00 0 27435 CAL *+2 VE712 FP127920 27434 0074 00 4 11413 TSX PRGMR,4 VE714 FP127930 | 27435 -0500 00 2 00000 CAL 0,2 CAL VE716 FP127940 | 27436 -0500 00 0 27440 CAL *+2 VE718 FP127950 | 27437 0074 00 4 11413 TSX PRGMR,4 VE720 FP127960 | 27440 -0320 00 0 00000 ANA 0 ANA VE722 FP127970 27441 -0500 00 0 27746 CAL VCA40 1 VE724 FP127980 | 27442 0074 00 4 11455 TSX SADDR+1,4 VE726 FP127990 | 27443 -0500 00 0 27445 CAL *+2 VE728 FP128000 | 27444 0074 00 4 11413 TSX PRGMR,4 VE730 FP128010 | 27445 -0520 00 0 22206 NZT PSWCH NZT-PSWCH VE732 FP128020 27446 -0500 00 0 27450 CAL *+2 VE734 FP128030 | 27447 0074 00 4 11413 TSX PRGMR,4 VE735 FP128040 | 27450 0020 00 0 00000 TRA 0 TRA VE736 FP128050 | 27451 0774 00 1 00024 AXT 20,1 VE738 FP128060 | 27452 -0500 00 1 67232 VE740 CAL PATBL+20,1 VE740 FP128070 27453 0100 00 0 27477 TZE VE780 VE742 FP128080 | 27454 0767 00 0 00006 ALS 6 VE744 FP128090 | 27455 -0320 00 0 27751 ANA VCA50 VE746 FP128100 | 27456 0074 00 4 11426 TSX STORR,4 REC TYPE VE748 FP128110 | 27457 -0500 00 0 27461 CAL *+2 VE750 FP128120 27460 0074 00 4 11413 TSX PRGMR,4 VE752 FP128130 | 27461 -0340 00 0 00000 LAS 0 LAS VE754 FP128140 | 27462 0074 00 4 11454 TSX SADDR,4 VE756 FP128150 | 27463 -0500 00 0 27465 CAL *+2 VE758 FP128160 | 27464 0074 00 4 11413 TSX PRGMR,4 VE760 FP128170 27465 0020 00 0 00000 TRA 0 TRA VE762 FP128180 | 27466 -0500 00 0 27747 CAL VCA30 2 VE764 FP128190 | 27467 0074 00 4 11465 TSX PADDR,4 VE766 FP128200 | 27470 -0500 00 0 27472 CAL *+2 VE768 FP128210 | 27471 0074 00 4 11413 TSX PRGMR,4 VE770 FP128220 27472 -0625 00 0 22202 STL DSWCH VE772 FP128230 | 27473 -0500 00 0 27756 CAL VCA92 INCR BY 3 VE774 FP128240 | 27474 0400 00 0 27414 ADD VAA10 VE776 FP128250 | 27475 0621 00 0 27756 STA VCA92 VE778 FP128260 | 27476 2 00001 1 27452 TIX VE740,1,1 VE779 FP128270 27477 -0500 00 0 27756 VE780 CAL VCA92 VE780 FP128280 | 27500 0602 00 0 11474 SLW K1000 VE782 FP128290 | 27501 -0500 00 0 27744 CAL VCA20 REL COUNT FOR NZT PSWCH +1 VE784 FP128300 | 27502 0074 00 4 11467 TSX PADDR+2,4 VE786 FP128310 | 27503 0020 00 0 27506 TRA *+3 VE788 FP128320 27504 0760 00 0 00000 VE790 CLM 0 VE790 FP128330 | 27505 0074 00 4 11426 TSX STORR,4 VE792 FP128340 | 1 LISTING OF 12/01/64 PAGE 270 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 27506 -0500 00 0 27510 CAL *+2 ZET VC130 FP128350 | 27507 0074 00 4 11413 TSX PRGMR,4 VC140 FP128360 | 27510 0520 00 0 22202 ZET DSWCH VC150 FP128370 | 27511 -0500 00 0 27513 CAL *+2 TRA VC160 FP128380 | 27512 0074 00 4 11413 TSX PRGMR,4 VC170 FP128390 27513 0020 00 0 00000 TRA 0 VC180 FP128400 | 27514 -0500 00 0 27754 CAL VCA90 7 VC181 FP128410 | 27515 0074 00 4 11465 TSX PADDR,4 VC1811FP128420 | 27516 -0500 00 0 27520 CAL *+2 VC182 FP128430 | 27517 0074 00 4 11413 TSX PRGMR,4 LAS VC183 FP128440 27520 -0340 00 0 00000 LAS 0 VC184 FP128450 | 27521 -0500 00 0 27747 CAL VCA30 2 VC185 FP128460 | 27522 0074 00 4 11455 TSX SADDR+1,4 VC186 FP128470 | 27523 -0500 00 0 27525 CAL *+2 VC187 FP128480 | 27524 0074 00 4 11413 TSX PRGMR,4 TRA VC188 FP128490 27525 0020 00 0 00000 TRA 0 VC189 FP128500 | 27526 -0500 00 0 27747 CAL VCA30 2 VC190 FP128510 | 27527 0074 00 4 11465 TSX PADDR,4 VC191 FP128520 | 27530 -0500 00 0 27532 CAL *+2 VC192 FP128530 | 27531 0074 00 4 11413 TSX PRGMR,4 VC193 FP128540 27532 0600 00 0 22206 STZ PSWCH STZ VC194 FP128550 | 27533 -0500 00 0 27535 CAL *+2 AXT VC210 FP128560 | 27534 0074 00 4 11413 TSX PRGMR,4 VC220 FP128570 | 27535 0774 00 1 00007 AXT 7,1 VC230 FP128580 | 27536 -0500 00 0 27540 CAL *+2 TSX VC240 FP128590 27537 0074 00 4 11413 TSX PRGMR,4 VC250 FP128600 | 27540 0074 00 4 22641 TSX Y6410,4 VC260 FP128610 | 27541 -0500 00 0 27543 CAL *+2 TO PSEUDO READ VC270 FP128620 | 27542 0074 00 4 11413 TSX PRGMR,4 VC280 FP128630 | 27543 0020 00 0 00000 TRA 0 VC290 FP128640 27544 -0500 00 0 27745 CAL VCA10 MASK VC300 FP128650 | 27545 0074 00 4 11507 TSX YADDR,4 VC301 FP128660 | 27546 -0500 00 0 27550 CAL *+2 STL-DSWCH VC3011FP128670 | 27547 0074 00 4 11413 TSX PRGMR,4 VC3012FP128680 | 27550 0600 00 0 22202 STZ DSWCH VC3013FP128690 27551 -0500 00 0 27553 CAL *+2 VC302 FP128700 | 27552 0074 00 4 11413 TSX PRGMR,4 LAS VC303 FP128710 | 27553 -0340 00 0 00000 LAS 0 VC304 FP128720 | 27554 -0500 00 0 27747 CAL VCA30 2 VC305 FP128730 | 27555 0074 00 4 11455 TSX SADDR+1,4 VC306 FP128740 27556 -0500 00 0 27560 CAL *+2 TRA VC307 FP128750 | 27557 0074 00 4 11413 TSX PRGMR,4 VC308 FP128760 | 27560 0020 00 0 00000 TRA 0 VC309 FP128770 | 27561 -0500 00 0 27747 CAL VCA30 2 VC310 FP128780 | 27562 0074 00 4 11465 TSX PADDR,4 VC311 FP128790 27563 -0500 00 0 27565 CAL *+2 VC312 FP128800 | 27564 0074 00 4 11413 TSX PRGMR,4 STL VC313 FP128810 | 27565 -0625 00 0 22206 STL PSWCH VC314 FP128820 | 27566 -0500 00 0 27570 CAL *+2 TSX VC320 FP128830 | 27567 0074 00 4 11413 TSX PRGMR,4 VC330 FP128840 27570 0074 00 4 22712 TSX Y6810,4 VC340 FP128850 | 27571 -0500 00 0 27573 CAL *+2 NZT VC690 FP128860 | 27572 0074 00 4 11413 TSX PRGMR,4 VC700 FP128870 | 27573 0520 00 0 22201 ZET ESWCH VC710 FP128880 | 27574 -0500 00 0 27576 CAL *+2 TRA VC720 FP128890 1 LISTING OF 12/01/64 PAGE 271 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 27575 0074 00 4 11413 TSX PRGMR,4 VC730 FP128900 | 27576 0020 00 0 00000 TRA 0 VC740 FP128910 27577 -0500 00 0 27745 CAL VCA10 VC750 FP128920 | 27600 0074 00 4 11507 TSX YADDR,4 VC760 FP128930 | 27601 -0500 00 0 27603 CAL *+2 LAC VC770 FP128940 | 27602 0074 00 4 11413 TSX PRGMR,4 VC780 FP128950 | 27603 0535 00 2 17301 LAC SFLOC,2 VC790 FP128960 27604 -0500 00 0 27606 CAL *+2 CAL VC791 FP128970 | 27605 0074 00 4 11413 TSX PRGMR,4 VC792 FP128980 | 27606 -0500 00 2 00000 CAL 0,2 VC793 FP128990 | 27607 -0500 00 0 27611 CAL *+2 ANA VC800 FP129000 | 27610 0074 00 4 11413 TSX PRGMR,4 VC810 FP129010 27611 -0320 00 0 00000 ANA 0 VC820 FP129020 | 27612 -0500 00 0 27746 CAL VCA40 1 VC830 FP129030 | 27613 0074 00 4 11455 TSX SADDR+1,4 VC850 FP129040 | 27614 0774 00 2 00705 AXT SMZE,2 VC860 FP129050 | 27615 -0520 00 2 72452 VC870 NZT SUTBL+SMZE,2 VC870 FP129060 27616 0020 00 0 27651 TRA VE150 OUT VC880 FP129070 | 27617 -0500 00 2 72452 CAL SUTBL+SMZE,2 VC890 FP129080 | 27620 -0320 00 0 27751 ANA VCA50 VC900 FP129090 | 27621 -0340 00 0 27750 LAS VCA60 VC910 FP129100 | 27622 0020 00 0 27624 TRA *+2 VC920 FP129110 27623 0020 00 0 27646 TRA VE130 VC930 FP129120 | 27624 0602 00 0 27750 SLW VCA60 VC940 FP129130 | 27625 0074 00 4 11426 TSX STORR,4 VC950 FP129140 | 27626 -0500 00 0 27630 CAL *+2 LAS VC960 FP129150 | 27627 0074 00 4 11413 TSX PRGMR,4 VC970 FP129160 27630 -0340 00 0 00000 LAS 0 VC980 FP129170 | 27631 0074 00 4 11454 TSX SADDR,4 VC990 FP129180 | 27632 -0500 00 0 27634 CAL *+2 TRA VE010 FP129190 | 27633 0074 00 4 11413 TSX PRGMR,4 VE020 FP129200 | 27634 0020 00 0 00000 TRA 0 VE030 FP129210 27635 0500 00 0 27747 CLA VCA30 2 VE040 FP129220 | 27636 0074 00 4 11465 TSX PADDR,4 VE050 FP129230 | 27637 -0500 00 0 27641 CAL *+2 TRA VE060 FP129240 | 27640 0074 00 4 11413 TSX PRGMR,4 VE070 FP129250 | 27641 0020 00 0 00000 TRA 0 VE080 FP129260 27642 -0500 00 0 27750 CAL VCA60 VE090 FP129270 | 27643 0771 00 0 00022 ARS 18 VE100 FP129280 | 27644 -0501 00 0 27752 ORA VCA70 MASK VE110 FP129290 | 27645 0074 00 4 11507 TSX YADDR,4 VE120 FP129300 | 27646 2 00003 2 27615 VE130 TIX VC870,2,3 VE130 FP129310 27647 0074 00 4 10507 TSX T0010,4 FP129320 | 27650 -1 10734 4 00000 STR 0,4,4572 NO ZERO AT END OF SUTBL VE140 FP129330 | 27651 -0500 00 0 27653 VE150 CAL *+2 TRA VE150 FP129340 | 27652 0074 00 4 11413 TSX PRGMR,4 VE160 FP129350 | 27653 0020 00 0 00000 TRA 0 VE170 FP129360 27654 -0500 00 0 27745 CAL VCA10 VE180 FP129370 | 27655 0074 00 4 11507 TSX YADDR,4 VE190 FP129380 | 27656 -0500 00 0 27752 CAL VCA70 VE191 FP129390 | 27657 0767 00 0 00014 ALS 12 VE192 FP129400 | 27660 0074 00 4 11547 TSX M0010,4 VE193 FP129410 1 LISTING OF 12/01/64 PAGE 272 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 27661 0774 00 1 00705 VE200 AXT SMZE,1 VE200 FP129430 | 27662 -0520 00 1 72452 VE210 NZT SUTBL+SMZE,1 VE210 FP129440 27663 0020 00 0 27671 TRA *+6 VE220 FP129450 | 27664 -0500 00 1 72452 CAL SUTBL+SMZE,1 VE230 FP129460 | 27665 0771 00 0 00030 ARS 24 VE240 FP129470 | 27666 -0340 00 0 27712 LAS VE450 RECORD TYPE VE250 FP129480 | 27667 0020 00 0 27671 TRA *+2 VE260 FP129490 27670 0020 00 0 27713 TRA VE460 VE270 FP129500 | 27671 -0520 00 0 27712 NZT VE450 RECORD TYPE VE280 FP129510 | 27672 0020 00 0 27705 TRA VE400 VE290 FP129520 | 27673 -0500 00 0 27675 VE300 CAL *+2 VE300 FP129530 | 27674 0074 00 4 11413 TSX PRGMR,4 VE320 FP129540 27675 0020 00 0 00000 TRA 0 VE330 FP129550 | 27676 -0500 00 0 27745 CAL VCA10 VE340 FP129560 | 27677 0074 00 4 11507 TSX YADDR,4 VE343 FP129570 | 27700 -0500 00 0 27712 CAL VE450 RECORD TYPE VE350 FP129580 | 27701 0767 00 0 00006 ALS 6 VE360 FP129590 27702 -0501 00 0 27752 ORA VCA70 VE370 FP129600 | 27703 0767 00 0 00014 ALS 12 VE380 FP129610 | 27704 0074 00 4 11547 TSX M0010,4 VE390 FP129620 | 27705 -0500 00 1 72452 VE400 CAL SUTBL+SMZE,1 VE400 FP129630 | 27706 0100 00 0 31323 TZE WA010 VE410 FP129640 27707 0771 00 0 00030 ARS 24 VE420 FP129650 | 27710 0602 00 0 27712 SLW *+2 VE430 FP129660 | 27711 0074 00 4 12663 TSX D0010,4 VE440 FP129670 | 27712 0 00000 0 00000 VE450 PZE 0 RECORD TYPE VE450 FP129680 | 27713 0534 00 1 27661 VE460 LXA VE200,1 VE460 FP129690 27714 -0500 00 1 72452 CAL SUTBL+SMZE,1 VE470 FP129700 | 27715 -0320 00 0 10744 ANA BCD17 VE480 FP129710 | 27716 0602 00 0 27720 SLW *+2 VE490 FP129720 | 27717 0074 00 4 13550 TSX E0010,4 VE500 FP129730 | 27720 0 00000 0 00000 PZE 0 FID NO VE510 FP129740 27721 0534 00 1 27661 LXA VE200,1 VE520 FP129750 | 27722 -0500 00 1 72454 CAL SUTBL+SMZE+2,1 VE530 FP129760 | 27723 -0320 00 0 27753 ANA VCA80 MASK VE540 FP129770 | 27724 0621 00 0 27736 STA *+10 VE550 FP129780 | 27725 -0501 00 0 27727 ORA *+2 CLA VE560 FP129790 27726 0074 00 4 11413 TSX PRGMR,4 VE570 FP129800 | 27727 0500 00 0 00000 CLA 0 VE580 FP129810 | 27730 -0500 00 0 13613 CAL E1005 VE590 FP129820 | 27731 -0501 00 0 27733 ORA *+2 SUB VE600 FP129830 | 27732 0074 00 4 11413 TSX PRGMR,4 VE610 FP129840 27733 0402 00 2 00000 SUB 0,2 VE620 FP129850 | 27734 -0500 00 0 27736 CAL *+2 STO VE630 FP129860 | 27735 0074 00 4 11413 TSX PRGMR,4 VE640 FP129870 | 27736 0601 00 0 00000 STO 0 VE650 FP129880 | 27737 2 00003 1 27742 TIX *+3,1,3 VE651 FP129890 27740 0074 00 4 10507 TSX T0010,4 FP129900 | 27741 -1 10735 4 00000 STR 0,4,4573 NO ZERO AT END OF SUTBL VE660 FP129910 | 27742 0634 00 1 27661 SXA VE200,1 VE670 FP129920 | 27743 0020 00 0 27662 TRA VE210 VE671 FP129930 | 27744 0 00000 0 00004 VCA20 PZE 4 VCA20 FP129940 27745 +000025000000 VCA10 OCT 25000000 VCA10 FP129950 | 27746 0 00000 0 00001 VCA40 PZE 1 VCA40 FP129960 | 27747 0 00000 0 00002 VCA30 PZE 2 VCA30 FP129970 | 1 LISTING OF 12/01/64 PAGE 273 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 27750 0 00000 0 00000 VCA60 PZE VCA60 FP129980 | 27751 +377700000000 VCA50 OCT 377700000000 VCA50 FP129990 | 27752 +000061000000 VCA70 OCT 61000000 YADDR MASK FOR REDUCE SUMMAVCA70 FP130000 | 27753 +000000077777 VCA80 OCT 77777 VCA80 FP130010 27754 0 00000 0 00007 VCA90 PZE 7 VCA90 FP130020 | 27755 +370000000000 VCA91 OCT 370000000000 VCA91 FP130030 | 27756 0 00000 0 00001 VCA92 PZE 1 VCA92 FP130040 | 27757 0 00000 0 00010 VCA93 PZE 8 VCA93 FP130050 | * FP130060 * FP130070 | * SF READ VF000 FP130080 | * FP130090 | * FP130100 | 27760 -0500 00 0 27762 VF010 CAL *+2 VF010 FP130110 27761 0074 00 4 11413 TSX PRGMR,4 VF011 FP130120 | 27762 0520 00 0 22315 ZET Y1006 SMRCD SW VF012 FP130130 | 27763 -0500 00 0 27765 CAL *+2 VF013 FP130140 | 27764 0074 00 4 11413 TSX PRGMR,4 VF014 FP130150 | 27765 0020 00 0 00000 TRA 0 VF015 FP130160 27766 -0500 00 0 11423 CAL F0080 VF016 FP130170 | 27767 0621 00 0 30365 STA VFA90 VF017 FP130180 | 27770 0774 00 1 00705 AXT SMZE,1 VF018 FP130190 | 27771 -0520 00 1 72452 VF020 NZT SUTBL+SMZE,1 VF020 FP130200 | 27772 0020 00 0 30143 TRA VF640 OUT VF030 FP130210 27773 0774 00 2 00062 AXT SNZE,2 VF040 FP130220 | 27774 -0500 00 1 72453 CAL SUTBL+SMZE+1,1 VF050 FP130230 | 27775 0771 00 0 00030 ARS 24 VF060 FP130240 | 27776 -0520 00 2 67543 NZT SNTRY+SNZE,2 VF070 FP130250 | 27777 0020 00 0 30014 TRA VF160 TO GENERATE VF080 FP130260 30000 -0340 00 2 67543 LAS SNTRY+SNZE,2 VF090 FP130270 | 30001 0020 00 0 30003 TRA *+2 VF100 FP130280 | 30002 0020 00 0 30006 TRA *+4 VF110 FP130290 | 30003 2 00002 2 27776 TIX *-5,2,2 VF120 FP130300 | 30004 0074 00 4 10507 TSX T0010,4 FP130310 30005 -1 06574 3 00000 STR 0,3,3452 NO DICT FOR SUMMARY FLD VF130 FP130320 | 30006 0774 00 1 00000 VF140 AXT 0,1 VF140 FP130330 | 30007 -2 00003 1 30012 TNX *+3,1,3 VF145 FP130340 | 30010 0634 00 1 30006 SXA VF140,1 VF146 FP130350 | 30011 0020 00 0 27771 TRA VF020 VF147 FP130360 30012 0074 00 4 10507 TSX T0010,4 FP130370 | 30013 -1 10736 4 00000 STR 0,4,4574 NO ZERO AT END OF SUTBL VF150 FP130380 | 30014 0634 00 1 30006 VF160 SXA VF140,1 VF160 FP130390 | 30015 0602 00 2 67543 SLW SNTRY+SNZE,2 VF165 FP130400 | 30016 0621 00 0 30061 STA VF420 TO AXT VF170 FP130410 30017 -0500 00 0 04401 CAL ADRES VF180 FP130420 | 30020 0767 00 0 00022 ALS 18 HSKP2 VF190 FP130430 | 30021 -0501 00 0 04401 ORA ADRES VF200 FP130440 | 30022 0400 00 0 30353 ADD VFA10 VF210 FP130450 | 30023 0602 00 2 67544 SLW SNTRY+SNZE+1,2 VF220 FP130460 30024 0400 00 0 11343 ADD SFLEN VF230 FP130470 | 30025 0400 00 0 30353 ADD VFA10 1 VF231 FP130480 | 30026 0621 00 0 04401 STA ADRES VF240 FP130490 | 30027 -0500 00 2 67543 CAL SNTRY+SNZE,2 VF250 FP130500 | 30030 0774 00 4 00144 AXT 100,4 VF260 FP130510 30031 0520 00 4 71544 ZET AAG84+100,4 VF265 FP130520 | 1 LISTING OF 12/01/64 PAGE 274 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 30032 0020 00 0 30035 TRA *+3 FP130530 30033 0074 00 4 10507 TSX T0010,4 FP130540 | 30034 -1 06643 3 00000 STR 0,3,3491 NO DICT FOR SUMM RT(TABLE NOT FULL) VF266 FP130550 | 30035 -0340 00 4 71544 LAS AAG84+100,4 VF270 FP130560 | 30036 0020 00 0 30042 TRA *+4 VF280 FP130570 | 30037 0020 00 0 30045 TRA *+6 VF290 FP130580 30040 0074 00 4 10507 TSX T0010,4 FP130590 | 30041 -1 06644 3 00000 STR 0,3,3492 NO DICT FOR SUMM RT(SUMM RT HIGH) VF300 FP130600 | 30042 2 00002 4 30031 TIX *-9,4,2 VF310 FP130610 | 30043 0074 00 4 10507 TSX T0010,4 FP130620 | 30044 -1 06645 3 00000 STR 0,3,3493 NO DICT FOR SUMM RT(TABLE FULL) VF320 FP130630 30045 -0500 00 4 71545 CAL AAG84+101,4 VF330 FP130640 | 30046 0402 00 0 11342 SUB SFCUR VF340 FP130650 | 30047 0734 00 1 00000 PAX 0,1 VF350 FP130660 | 30050 0400 00 0 30353 ADD VFA10 VF3501FP130670 | 30051 0402 00 0 11343 SUB SFLEN VF351 FP130680 30052 0621 00 0 30120 STA VF631 VF352 FP130690 | 30053 -0500 00 0 11342 CAL SFCUR VF360 FP130700 | 30054 0621 00 0 30104 STA VF520 TO CAL VF370 FP130710 | 30055 -0500 00 2 67544 CAL SNTRY+SNZE+1,2 VF380 FP130720 | 30056 0621 00 0 30107 STA VF550 TO SLW VF390 FP130730 30057 -0500 00 0 30061 CAL *+2 VF400 FP130740 | 30060 0074 00 4 11413 TSX PRGMR,4 VF410 FP130750 | 30061 0774 00 4 00000 VF420 AXT 0,4 VF420 FP130760 | 30062 -0500 00 0 30107 CAL VF550 SLW VF430 FP130770 | 30063 0400 00 0 11343 ADD SFLEN VF440 FP130780 30064 0402 00 0 30353 SUB VFA10 ONE VF450 FP130790 | 30065 -0320 00 0 30354 ANA VFA20 ADDR MASK VF460 FP130800 | 30066 0621 00 0 30074 STA *+6 VF470 FP130810 | 30067 -0501 00 0 30071 ORA *+2 VF471 FP130820 | 30070 0074 00 4 11413 TSX PRGMR,4 VF472 FP130830 30071 0600 00 0 00000 STZ 0 VF473 FP130840 | 30072 -0500 00 0 30074 CAL *+2 VF474 FP130850 | 30073 0074 00 4 11413 TSX PRGMR,4 VF480 FP130860 | 30074 0634 00 4 00000 SXA 0,4 VF490 FP130870 | 30075 3 00000 1 30102 TXH VF500,1,0 VF491 FP130880 30076 -0500 00 0 30107 CAL VF550 VF492 FP130890 | 30077 0621 00 0 30135 STA VF633 VF493 FP130900 | 30100 0534 00 1 30120 LXA VF631,1 VF494 FP130910 | 30101 0020 00 0 30125 TRA VF631+5 VF495 FP130920 | 30102 -0500 00 0 30104 VF500 CAL *+2 VF500 FP130930 30103 0074 00 4 11413 TSX PRGMR,4 VF510 FP130940 | 30104 -0500 00 0 00000 VF520 CAL 0 VF520 FP130950 | 30105 -0500 00 0 30107 CAL *+2 VF530 FP130960 | 30106 0074 00 4 11413 TSX PRGMR,4 VF540 FP130970 | 30107 0602 00 0 00000 VF550 SLW 0 VF550 FP130980 30110 -2 00001 1 30120 TNX VF631,1,1 VF560 FP130990 | 30111 -0500 00 0 30104 CAL VF520 VF570 FP131000 | 30112 0400 00 0 30353 ADD VFA10 VF580 FP131010 | 30113 0621 00 0 30104 STA VF520 VF590 FP131020 | 30114 -0500 00 0 30107 CAL VF550 VF600 FP131030 30115 0400 00 0 30353 ADD VFA10 1 VF610 FP131040 | 30116 0621 00 0 30107 STA VF550 VF620 FP131050 | 30117 0020 00 0 30102 TRA VF500 VF630 FP131060 | 30120 0774 00 1 00000 VF631 AXT 0,1 VF6310FP131070 | 1 LISTING OF 12/01/64 PAGE 275 HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 30121 -3 00000 1 30006 TXL VF140,1,0 VF6310FP131080 | 30122 -0500 00 0 30107 CAL VF550 VF6311FP131090 | 30123 0400 00 0 30353 ADD VFA10 VF6311FP131100 30124 0621 00 0 30135 STA VF633 SLW VF6312FP131110 | 30125 -0500 00 0 30127 CAL *+2 VF6313FP131120 | 30126 0074 00 4 11413 TSX PRGMR,4 VF6314FP131130 | 30127 0760 00 0 00000 CLM 0 VF6315FP131140 | 30130 -0500 00 0 30132 CAL *+2 VF6316FP131150 30131 0074 00 4 11413 TSX PRGMR,4 VF6317FP131160 | 30132 0760 00 0 00006 COM 0 VF6318FP131170 | 30133 -0500 00 0 30135 VF632 CAL *+2 VF6320FP131180 | 30134 0074 00 4 11413 TSX PRGMR,4 VF6321FP131190 | 30135 0602 00 0 00000 VF633 SLW 0 VF6330FP131200 30136 -2 00001 1 30006 TNX VF140,1,1 VF6331FP131210 | 30137 -0500 00 0 30135 CAL VF633 SLW VF6332FP131220 | 30140 0400 00 0 30353 ADD VFA10 1 VF6333FP131230 | 30141 0621 00 0 30135 STA VF633 SLW VF6334FP131240 | 30142 0020 00 0 30133 TRA VF632 VF6335FP131250 30143 -0500 00 0 30145 VF640 CAL *+2 VF640 FP131260 | 30144 0074 00 4 11413 TSX PRGMR,4 VF641 FP131270 | 30145 -0625 00 0 22316 STL Y1007 VF642 FP131280 | 30146 -0500 00 0 30150 CAL *+2 VF643 FP131290 | 30147 0074 00 4 11413 TSX PRGMR,4 VF644 FP131300 30150 0020 00 0 22221 TRA MGRCD VF645 FP131310 | 30151 -0500 00 0 11423 CAL F0080 VF646 FP131320 | 30152 0402 00 0 30365 SUB VFA90 VF647 FP131330 | 30153 0400 00 0 30353 ADD VFA10 1 VF648 FP131340 | 30154 0621 00 0 11474 STA K1000 VF649 FP131350 30155 -0500 00 0 30365 CAL VFA90 VF650 FP131360 | 30156 0074 00 4 11467 TSX PADDR+2,4 VF651 FP131370 | 30157 -0500 00 0 11342 CAL SFCUR VF652 FP131380 | 30160 0621 00 0 30166 STA VF710 VF653 FP131390 | 30161 -0500 00 0 11341 CAL SFPRV VF660 FP131400 30162 0621 00 0 30171 STA VF740 VF670 FP131410 | 30163 0534 00 1 11343 LXA SFLEN,1 VF680 FP131420 | 30164 -0500 00 0 30166 VF690 CAL *+2 VF690 FP131430 | 30165 0074 00 4 11413 TSX PRGMR,4 VF700 FP131440 | 30166 -0500 00 0 00000 VF710 CAL 0 VF710 FP131450 30167 -0500 00 0 30171 CAL *+2 VF720 FP131460 | 30170 0074 00 4 11413 TSX PRGMR,4 VF730 FP131470 | 30171 0602 00 0 00000 VF740 SLW 0 VF740 FP131480 | 30172 -2 00001 1 30202 TNX VF830,1,1 VF750 FP131490 | 30173 -0500 00 0 30166 CAL VF710 VF760 FP131500 30174 0400 00 0 30353 ADD VFA10 VF770 FP131510 | 30175 0621 00 0 30166 STA VF710 VF780 FP131520 | 30176 -0500 00 0 30171 CAL VF740 VF790 FP131530 | 30177 0400 00 0 30353 ADD VFA10 VF800 FP131540 | 30200 0621 00 0 30171 STA VF740 VF810 FP131550 30201 0020 00 0 30164 TRA VF690 VF820 FP131560 | 30202 -0500 00 0 30204 VF830 CAL *+2 AXT VF830 FP131570 | 30203 0074 00 4 11413 TSX PRGMR,4 VF840 FP131580 | 30204 0774 00 1 00000 AXT 0,1 VF850 FP131590 | 30205 -0500 00 0 30207 CAL *+2 TSX VF860 FP131600 30206 0074 00 4 11413 TSX PRGMR,4 VF870 FP131610 | 30207 0074 00 4 22624 TSX Y6210,4 VF880 FP131620 | 1 LISTING OF 12/01/64 PAGE 276 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 30210 -0500 00 0 30212 CAL *+2 TRA VF890 FP131630 | 30211 0074 00 4 11413 TSX PRGMR,4 VF900 FP131640 | 30212 0020 00 0 00000 TRA 0 VF910 FP131650 | 30213 0500 00 0 11031 CLA NMBR4 FP131660 | 30214 0074 00 4 11477 TSX GADDR,4 FP131670 30215 -0500 00 0 30217 CAL *+2 CLM VF940 FP131680 | 30216 0074 00 4 11413 TSX PRGMR,4 VF950 FP131690 | 30217 0760 00 0 00000 CLM VF960 FP131700 | 30220 -0500 00 0 30222 CAL *+2 COM VF970 FP131710 | 30221 0074 00 4 11413 TSX PRGMR,4 VF980 FP131720 30222 0760 00 0 00006 COM VF990 FP131730 | 30223 -0500 00 0 11343 CAL SFLEN AXT VG010 FP131740 | 30224 -0501 00 0 30226 ORA *+2 VG020 FP131750 | 30225 0074 00 4 11413 TSX PRGMR,4 VG030 FP131760 | 30226 0774 00 4 00000 AXT 0,4 VG040 FP131770 30227 -0500 00 0 11342 CAL SFCUR SLW VG050 FP131780 | 30230 0400 00 0 11343 ADD SFLEN VG060 FP131790 | 30231 -0501 00 0 30233 ORA *+2 VG070 FP131800 | 30232 0074 00 4 11413 TSX PRGMR,4 VG080 FP131810 | 30233 0602 00 4 00000 SLW 0,4 VG090 FP131820 30234 -0500 00 0 30236 CAL *+2 TIX VG091 FP131830 | 30235 0074 00 4 11413 TSX PRGMR,4 VG092 FP131840 | 30236 2 00001 4 00000 TIX 0,4,1 VG093 FP131850 | 30237 0502 00 0 30353 CLS VFA10 VG094 FP131860 | 30240 0074 00 4 11465 TSX PADDR,4 VG095 FP131870 30241 -0520 00 0 11412 NZT NEWSW VG100 FP131880 | 30242 0020 00 0 30251 TRA *+7 VG101 FP131890 | 30243 -0500 00 0 30245 CAL *+2 LAC VG102 FP131900 | 30244 0074 00 4 11413 TSX PRGMR,4 VG103 FP131910 | 30245 0535 00 1 22174 LAC MRGLO,1 VG104 FP131920 30246 -0500 00 0 30250 CAL *+2 LAC VG105 FP131930 | 30247 0074 00 4 11413 TSX PRGMR,4 VG106 FP131940 | 30250 0535 00 2 17301 LAC SFLOC,2 VG107 FP131950 | 30251 -0500 00 0 30253 CAL *+2 TRA VG108 FP131960 | 30252 0074 00 4 11413 TSX PRGMR,4 VG110 FP131970 30253 0020 00 0 00000 TRA 0 VG120 FP131980 | 30254 -0520 00 0 11412 NZT NEWSW VG121 FP131990 | 30255 0020 00 0 30260 TRA *+3 VG122 FP132000 | 30256 -0500 00 0 30360 CAL VFA41 YADDR MASK-RUN-IN SEQ CK. VG123 FP132010 | 30257 0020 00 0 30261 TRA *+2 VG124 FP132020 30260 -0500 00 0 30357 CAL VFA40 VG130 FP132030 | 30261 0074 00 4 11507 TSX YADDR,4 VG140 FP132040 | 30262 -0500 00 0 30361 CAL VFA50 DUMP OBJ PGM VG150 FP132050 | 30263 0074 00 4 11547 TSX M0010,4 VG160 FP132060 | 1 LISTING OF 12/01/64 PAGE 277 HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | * FP132080 | * FP132090 | * FP132100 * RUN IN AND SEQ CHECK VG169 FP132110 | * FP132120 | * FP132130 | 30264 -0500 00 0 11341 CAL SFPRV VG170 FP132140 | 30265 0400 00 0 11343 ADD SFLEN VG180 FP132150 30266 0402 00 0 30353 SUB VFA10 VG190 FP132160 | 30267 -0501 00 0 30271 ORA *+2 VG200 FP132170 | 30270 0074 00 4 11413 TSX PRGMR,4 VG210 FP132180 | 30271 0520 00 0 00000 ZET 0 VG220 FP132190 | 30272 -0500 00 0 30274 CAL *+2 VG230 FP132200 30273 0074 00 4 11413 TSX PRGMR,4 VG240 FP132210 | 30274 0020 00 0 00000 TRA 0 VG250 FP132220 | 30275 -0500 00 0 32570 CAL WAB30 VG251 FP132230 | 30276 0074 00 4 11465 TSX PADDR,4 VG252 FP132240 | 30277 -0500 00 0 30301 CAL *+2 VG253 FP132250 30300 0074 00 4 11413 TSX PRGMR,4 VG254 FP132260 | 30301 -0625 00 0 22316 STL Y1007 VG255 FP132270 | 30302 -0500 00 0 30304 CAL *+2 VG256 FP132280 | 30303 0074 00 4 11413 TSX PRGMR,4 VG257 FP132290 | 30304 0020 00 0 22221 TRA MGRCD VG258 FP132300 30305 -0500 00 0 11343 CAL SFLEN AXT VG260 FP132310 | 30306 -0501 00 0 30310 ORA *+2 VG270 FP132320 | 30307 0074 00 4 11413 TSX PRGMR,4 VG280 FP132330 | 30310 0774 00 4 00000 AXT 0,4 VG290 FP132340 | 30311 -0500 00 0 11341 CAL SFPRV CAL VG300 FP132350 30312 -0501 00 0 30314 ORA *+2 VG310 FP132360 | 30313 0074 00 4 11413 TSX PRGMR,4 VG320 FP132370 | 30314 -0500 00 4 00000 CAL 0,4 VG330 FP132380 | 30315 -0500 00 0 11341 CAL SFPRV LAS VG340 FP132390 | 30316 0400 00 0 11343 ADD SFLEN VG350 FP132400 30317 -0501 00 0 30321 ORA *+2 VG360 FP132410 | 30320 0074 00 4 11413 TSX PRGMR,4 VG370 FP132420 | 30321 -0340 00 4 00000 LAS 0,4 VG380 FP132430 | 30322 -0500 00 0 30324 CAL *+2 TRA-HIGH VG390 FP132440 | 30323 0074 00 4 11413 TSX PRGMR,4 VG400 FP132450 30324 0020 00 0 00000 TRA 0 VG410 FP132460 | 30325 0500 00 0 11031 CLA NMBR4 FP132470 | 30326 0074 00 4 11477 TSX GADDR,4 FP132480 | 30327 -0500 00 0 30331 CAL *+2 TRA-EQUAL VG440 FP132490 | 30330 0074 00 4 11413 TSX PRGMR,4 VG450 FP132500 30331 0020 00 0 00000 TRA 0 VG460 FP132510 | 30332 -0500 00 0 30363 CAL VFA70 2 VG470 FP132520 | 30333 0074 00 4 11465 TSX PADDR,4 VG480 FP132530 | 30334 -0500 00 0 30336 CAL *+2 HPR-LOW VG490 FP132540 | 30335 0074 00 4 11413 TSX PRGMR,4 VG500 FP132550 30336 0074 00 4 22436 TSX IMPOS,4 VG510 FP132560 | 30337 -0500 00 0 30341 CAL *+2 TIX VG520 FP132570 | 30340 0074 00 4 11413 TSX PRGMR,4 VG530 FP132580 | 30341 2 00001 4 00000 TIX 0,4,1 VG540 FP132590 | 30342 0502 00 0 30362 CLS VFA60 5 VG550 FP132600 30343 0074 00 4 11465 TSX PADDR,4 VG560 FP132610 | 30344 -0500 00 0 30346 CAL *+2 HPR-FULL EQUAL VG570 FP132620 | 1 LISTING OF 12/01/64 PAGE 278 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 30345 0074 00 4 11413 TSX PRGMR,4 VG580 FP132630 | 30346 0074 00 4 22436 TSX IMPOS,4 VG590 FP132640 | 30347 -0500 00 0 30364 CAL VFA80 DUMP OBJ PGM VG600 FP132650 | 30350 0074 00 4 11547 TSX M0010,4 VG610 FP132660 | 30351 0774 00 2 00062 AXT SNZE,2 VG620 FP132670 30352 0020 00 0 27177 TRA VA020 VG630 FP132680 | 30353 0 00000 0 00001 VFA10 PZE 1 VFA10 FP132690 | 30354 +000000077777 VFA20 OCT 77777 VFA20 FP132700 | 30355 0 00000 0 00007 VFA30 PZE 7 VFA30 FP132710 | 30356 0 00000 0 00011 VFA39 PZE 9 VFA39 FP132720 30357 +000033000000 VFA40 OCT 33000000 VFA40 FP132730 | 30360 +000027777700 VFA41 OCT 27777700 VFA41 FP132740 | 30361 +250000000000 VFA50 OCT 250000000000 VFA50 FP132750 | 30362 0 00000 0 00005 VFA60 PZE 5 VFA60 FP132760 | 30363 0 00000 0 00002 VFA70 PZE 2 VFA70 FP132770 30364 +277777000000 VFA80 OCT 277777000000 VFA80 FP132780 | 30365 0 00000 0 00000 VFA90 PZE 0 SAVE INSTR COUNT-PADDR VFA90 FP132790 | * FA001 FP132800 | * GENERATE INST. TO BUILD SF SEQ. BUFFER FA002 FP132810 | * FP132820 * FP132830 | * FP132840 | * FP132850 | * BUILD SEQ. LEVEL BUFFER TBL. FA003 FP132860 | * FA004 FP132870 30366 0774 00 1 01441 FA010 AXT SEQID,1 FA010 FP132880 | 30367 -0500 00 1 71401 CAL AAG24+SEQID+1,1 FA020 FP132890 | 30370 -0320 00 0 10730 ANA BCD03 * FA030 FP132900 | 30371 0602 00 0 07751 SLW B1020 * FA040 FP132910 | 30372 0634 00 1 30374 SXA FA080,1 * FA050 FP132920 30373 0074 00 4 07570 TSX B0010,4 * FA060 FP132930 | 30374 0774 00 1 00000 FA080 AXT 0,1 * FA080 FP132940 | 30375 -0500 00 0 07747 CAL B1000 * FA090 FP132950 | 30376 0621 00 1 71401 STA AAG24+SEQID+1,1 FA100 FP132960 | 30377 -0520 00 1 71405 NZT AAG24+SEQID+5,1 FA110 FP132970 30400 0020 00 0 30404 TRA *+4 END OF TABLE FA120 FP132980 | 30401 2 00005 1 30367 TIX FA010+1,1,5 * FA130 FP132990 | 30402 0074 00 4 10507 TSX T0010,4 FP133000 | 30403 -1 10760 4 00000 STR 0,4,4592 NO ZERO AT END OF SEQ LEVEL TABLE FA140 FP133010 | 30404 -0774 00 2 67543 AXC FAA02,2 INIT FOR 1ST WORD BUFFER TBFA141 FP133020 30405 -0500 00 0 04401 CAL ADRES FA142 FP133030 | 30406 0602 00 0 67544 SLW FAA02+1 FA143 FP133040 | 30407 0602 00 0 11342 SLW SFCUR FA144 FP133050 | 30410 0534 00 1 31303 FA150 LXA FAA01,1 ADD ONE TO LEVEL CONSTANT FA150 FP133060 | 30411 1 00001 1 30412 TXI *+1,1,1 * FA160 FP133070 30412 0634 00 1 31303 SXA FAA01,1 * FA170 FP133080 | 30413 0600 00 2 00000 STZ 0,2 STORE ZERO-BUFFER TBL SIZE FA180 FP133090 | 30414 0774 00 1 01441 AXT SEQID,1 FA190 FP133100 | 30415 -0500 00 1 71401 FA200 CAL AAG24+SEQID+1,1 SEQ LEVEL VS CONSTANT FA200 FP133110 | 30416 -0320 00 0 10734 ANA BCD07 FA201 FP133120 30417 -0340 00 0 31303 LAS FAA01 * FA210 FP133130 | 30420 0020 00 0 30437 TRA FA500 * HI FA220 FP133140 | 30421 0020 00 0 30423 TRA FA250 * EQ FA230 FP133150 | 30422 0020 00 0 30432 TRA FA460 * LO FA240 FP133160 | 30423 -0500 00 1 71404 FA250 CAL AAG24+SEQID+4,1 SEQ ID SIZE VS BUTBL FA250 FP133170 1 LISTING OF 12/01/64 PAGE 279 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 30424 -0340 00 2 00000 LAS 0,2 * FA270 FP133180 | 30425 0020 00 0 30430 TRA *+3 * FA280 FP133190 30426 0020 00 0 30431 TRA FA450 * FA290 FP133200 | 30427 0020 00 0 30431 TRA FA450 * FA300 FP133210 | 30430 0602 00 2 00000 SLW 0,2 * FA320 FP133220 | 30431 -0625 00 0 31307 FA450 STL FAA06 SET EQ. SW TO ON FA450 FP133230 | 30432 -0520 00 1 71405 FA460 NZT AAG24+SEQID+5,1 TEST FOR END OF TABLE FA460 FP133240 30433 0020 00 0 30441 TRA FA550 * YES FA470 FP133250 | 30434 2 00005 1 30415 TIX FA200,1,5 * NO REPEAT LOOP FA480 FP133260 | 30435 0074 00 4 10507 TSX T0010,4 FP133270 | 30436 -1 10757 4 00000 STR 0,4,4591 NO ZERO AT END OF SEQ LEVEL TABLE FA490 FP133280 | 30437 -0625 00 0 31310 FA500 STL FAA07 SET HIGH SW TO ON FA500 FP133290 30440 0020 00 0 30432 TRA FA460 FA510 FP133300 | 30441 -0520 00 0 31310 FA550 NZT FAA07 IS HIGH SW ON FA550 FP133310 | 30442 0020 00 0 30473 TRA FA620 NO FA555 FP133320 | 30443 0520 00 0 31307 ZET FAA06 IS EQU SW ON FA560 FP133330 | 30444 0020 00 0 30447 TRA *+3 FP133340 30445 0074 00 4 10507 TSX T0010,4 FP133350 | 30446 -1 06332 3 00000 STR 0,3,3290 MISSING SEQ LEVEL IN SOURCE FILE FA565 FP133360 | 30447 0600 00 0 31307 STZ FAA06 SET HIGH + EQ SW TO OFF FA570 FP133370 | 30450 0600 00 0 31310 STZ FAA07 * FA575 FP133380 | 30451 -0500 00 2 00000 CAL 0,2 CALC. BUFFER ADDRESS FA580 FP133390 30452 -0765 00 0 00044 LGR 36 FA582 FP133400 | 30453 0220 00 0 31306 DVH FAA05 36 FA584 FP133410 | 30454 0100 00 0 30470 TZE FA606 FA586 FP133420 | 30455 0131 00 0 00000 XCA FA588 FP133430 | 30456 0400 00 0 31305 ADD FAA04 FA590 FP133440 30457 0400 00 0 04401 FA592 ADD ADRES FA592 FP133450 | 30460 0601 00 0 04401 STO ADRES FA594 FP133460 | 30461 0601 00 2 00004 STO 4,2 FA596 FP133470 | 30462 0600 00 2 00002 STZ 2,2 FA598 FP133480 | 30463 0402 00 2 00001 SUB 1,2 CALC. LEVEL SIZE FA600 FP133490 30464 0131 00 0 00000 XCA * FA601 FP133500 | 30465 0200 00 0 31306 MPY FAA05 36 FA602 FP133510 | 30466 -0600 00 2 00000 STQ 0,2 * FA603 FP133520 | 30467 0020 00 0 30472 TRA FA610 * FA604 FP133530 | 30470 0131 00 0 00000 FA606 XCA FA606 FP133540 30471 0020 00 0 30457 TRA FA592 FA607 FP133550 | 30472 2 00003 2 30410 FA610 TIX FA150,2,3 REPEAT FOR NEZT LEVEL FA610 FP133560 | 30473 -0500 00 0 67740 FA620 CAL AAG24+1 TEST REC TYPE FOR HIGHEST FA620 FP133570 | 30474 -0320 00 0 10730 ANA BCD03 SEQ. LEVEL FA630 FP133580 | 30475 -0340 00 0 31303 LAS FAA01 * FA640 FP133590 30476 0020 00 0 30500 TRA *+2 * NO FA650 FP133600 | 30477 0020 00 0 30502 TRA FA700 * YES FA660 FP133610 | 30500 0074 00 4 10507 TSX T0010,4 FP133620 | 30501 -1 10761 4 00000 STR 0,4,4593 NO ZERO AT END OF SEQ LEVEL TABLE FA670 FP133630 | 30502 0600 00 2 00004 FA700 STZ 4,2 ZEROS FOLLOWING LAST FA700 FP133640 30503 0600 00 2 00005 STZ 5,2 * BUTBL. ENTRY FA710 FP133650 | 30504 0600 00 2 00003 STZ 3,2 FA720 FP133660 | 30505 -0500 00 0 04401 CAL ADRES INIT LOC. PREV SF BUFFER FA730 FP133670 | 30506 0400 00 0 31305 ADD FAA04 FA731 FP133680 | 30507 0602 00 0 11341 SLW SFPRV FA740 FP133690 30510 0402 00 0 11342 SUB SFCUR INIT. SF BUFFER LEN. FA750 FP133700 | 30511 0602 00 0 11343 SLW SFLEN * FA760 FP133710 | 30512 0400 00 0 11341 ADD SFPRV FA770 FP133720 | 1 LISTING OF 12/01/64 PAGE 280 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 30513 0601 00 0 04401 STO ADRES FA800 FP133730 | 1 LISTING OF 12/01/64 PAGE 281 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | * FB001 FP133750 | * GENERATE RECORD TYPE SELECTION TEST FB002 FP133760 | * FB003 FP133770 | 30514 -0500 00 0 30516 FB010 CAL *+2 -LAC- RESTORE IR.1 FB010 FP133780 | 30515 0074 00 4 11413 TSX PRGMR,4 * FB020 FP133790 30516 0535 00 1 22174 LAC MRGLO,1 * FB030 FP133800 | 30517 -0500 00 0 30521 CAL *+2 -LAC- RESTORE IR.2 FB040 FP133810 | 30520 0074 00 4 11413 TSX PRGMR,4 * FB050 FP133820 | 30521 0535 00 2 17301 LAC SFLOC,2 * FB060 FP133830 | 30522 -0500 00 0 30524 CAL *+2 -CAL- RECORD TYPE FB070 FP133840 30523 0074 00 4 11413 TSX PRGMR,4 * FB080 FP133850 | 30524 -0500 00 2 00000 CAL 0,2 * FB090 FP133860 | 30525 -0500 00 0 31311 CAL FAA08 OBJ PROG-STORAGE MASK FB100 FP133870 | 30526 0074 00 4 11426 TSX STORR,4 * FB110 FP133880 | 30527 -0500 00 0 30531 CAL *+2 -ANA- MASK FB120 FP133890 30530 0074 00 4 11413 TSX PRGMR,4 * FB130 FP133900 | 30531 -0320 00 0 00000 ANA 0 * FB140 FP133910 | 30532 0074 00 4 11454 TSX SADDR,4 SUPPLY MISSING ADDRESS FB150 FP133920 | 30533 0774 00 1 00144 AXT 100,1 FB160 FP133930 | 30534 -0500 00 1 71544 FB170 CAL AAG84+100,1 OBJ. PROG-STORAGE CONSTANT FB170 FP133940 30535 0767 00 0 00030 ALS 24 * FB180 FP133950 | 30536 0074 00 4 11426 TSX STORR,4 * FB190 FP133960 | 30537 -0500 00 0 30541 CAL *+2 -LAS- COMPARE REC. TYPE FB200 FP133970 | 30540 0074 00 4 11413 TSX PRGMR,4 * FB210 FP133980 | 30541 -0340 00 0 00000 LAS 0 * FB220 FP133990 30542 0074 00 4 11454 TSX SADDR,4 SUPPLY MISSING ADDRESS FB230 FP134000 | 30543 -0500 00 0 30545 CAL *+2 -TRA- HI- *+2 FB240 FP134010 | 30544 0074 00 4 11413 TSX PRGMR,4 * FB250 FP134020 | 30545 0020 00 0 00000 TRA 0 * FB260 FP134030 | 30546 -0500 00 0 31312 CAL FAA09 SUPPLY MISSING REL. ADDRESSFB270 FP134040 30547 0074 00 4 11465 TSX PADDR,4 * FB280 FP134050 | 30550 -0500 00 0 30552 CAL *+2 -TRA- EQ- FB290 FP134060 | 30551 0074 00 4 11413 TSX PRGMR,4 * FB300 FP134070 | 30552 0020 00 0 00000 TRA 0 * FB310 FP134080 | 30553 -0500 00 1 71544 CAL AAG84+100,1 INIT. TR. EQ. SYMBOL FB320 FP134090 30554 0767 00 0 00006 ALS 6 * FB330 FP134100 | 30555 -0501 00 0 31313 ORA FAA10 * FB340 FP134110 | 30556 0074 00 4 11507 TSX YADDR,4 SUPPLY MISSING SYMBOLIC ADDFB350 FP134120 | 30557 -2 00002 1 30566 TNX FB420,1,2 FB360 FP134130 | 30560 0520 00 1 71544 ZET AAG84+100,1 FB370 FP134140 30561 0020 00 0 30534 TRA FB170 FB380 FP134150 | 30562 -0500 00 0 30564 CAL *+2 -HPR- FB390 FP134160 | 30563 0074 00 4 11413 TSX PRGMR,4 FB400 FP134170 | 30564 0074 00 4 22436 TSX IMPOS,4 FB410 FP134180 | 30565 0020 00 0 30570 TRA FB500 FB420 FP134190 30566 0074 00 4 10507 FB420 TSX T0010,4 FB430 FP134200 | 30567 -1 10762 4 00000 STR 0,4,4594 NOZERO AT END OF SEQ LVL TABLE FP134210 | 30570 -0500 00 0 31314 FB500 CAL FAA11 INST PKG. TO PRGM. TAPE FB500 FP134220 | 30571 0074 00 4 11547 TSX M0010,4 * FB510 FP134230 | * FB600 FP134240 * GENERATE INSTS. TO BUILD BUFFER FB601 FP134250 | * FB602 FP134260 | 30572 -0500 00 0 67737 CAL AAG24 INIT PREV. REC. TYPE FB610 FP134270 | 30573 -0320 00 0 11005 ANA BCD60 * FB620 FP134280 | 30574 0602 00 0 31315 SLW FAA14 * FB630 FP134290 1 LISTING OF 12/01/64 PAGE 282 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 30575 0774 00 1 01446 FB640 AXT SEQID+5,1 INIT SEQ ID TBL LOC FB640 FP134300 | 30576 2 00005 1 30600 TIX *+2,1,5 * FB650 FP134310 30577 0020 00 0 31044 TRA FD010 END OF TBL FB660 FP134320 | 30600 0634 00 1 30575 SXA FB640,1 SAVE INDEX FB670 FP134330 | 30601 -0500 00 1 71400 CAL AAG24+SEQID,1 REC. TYPE VS. PREV TBL. ENT FB680 FP134340 | 30602 0100 00 0 31044 TZE FD010 * END OF TBL. ENTRIES FB690 FP134350 | 30603 -0320 00 0 11005 ANA BCD60 * FB700 FP134360 30604 -0340 00 0 31315 LAS FAA14 * FB710 FP134370 | 30605 0020 00 0 31044 TRA FD010 * TO EXIT SEQ LEVES FB720 FP134380 | 30606 0020 00 0 30611 TRA FB760 * EQ FB730 FP134390 | 30607 0074 00 4 10507 TSX T0010,4 FP134400 | 30610 -1 06344 3 00000 STR 0,3,3300 SEQ LEVEL TABLE OUT OF ORDER FB740 FP134410 30611 -0500 00 1 71401 FB760 CAL AAG24+SEQID+1,1 SET TEST WORD NON-ZERO FB760 FP134420 | 30612 0400 00 1 71401 ADD AAG24+SEQID+1,1 3*LEVEL +FAA02-1 FB770 FP134430 | 30613 0400 00 1 71401 ADD AAG24+SEQID+1,1 FB780 FP134440 | 30614 0737 00 2 00000 PAC 0,2 * FB790 FP134450 | 30615 0601 00 2 67542 STO FAA02-1,2 * FB800 FP134460 30616 -0320 00 0 10735 ANA BCD10 TEST FIELD PKG MODE FB810 FP134470 | 30617 0100 00 0 30745 TZE FC500 * UNPKD FB820 FP134480 | 30620 -0500 00 1 71404 CAL AAG24+SEQID+4,1 SIZE + BIT INCREMENT FB830 FP134490 | 30621 0400 00 1 71403 ADD AAG24+SEQID+3,1 FB840 FP134500 | 30622 0765 00 0 00043 LRS 35 * FB850 FP134510 30623 0220 00 0 31306 DVH FAA05 DIVIDE BY 36 FB860 FP134520 | 30624 0100 00 0 30745 TZE FC500 TO UNPKD FLD. ROUTINE FB870 FP134530 | 30625 0621 00 0 30715 STA FC250 STORE REMAINDER -LGL- FB880 FP134540 | 30626 -0500 00 1 71404 CAL AAG24+SEQID+4,1 SIZE FB890 FP134550 | 30627 -0765 00 0 00044 LGR 36 FB900 FP134560 30630 0220 00 0 31306 DVH FAA05 DIVIDE BY 36 FB910 FP134570 | 30631 0601 00 0 31316 STO FAA15 STORE REMAINDER FB920 FP134580 | 30632 0100 00 0 30637 TZE *+5 FB921 FP134590 | 30633 0400 00 1 71403 ADD AAG24+SEQID+3,1 ADD BIT INCREMENT FB930 FP134600 | 30634 0560 00 0 31322 LDQ FAA19 COMPARE TO 36 FB940 FP134610 30635 0040 00 0 30637 TLQ *+2 FB945 FP134620 | 30636 0020 00 0 30652 TRA FC050 FB950 FP134630 | 30637 -0500 00 1 71402 CAL AAG24+SEQID+2,1 TAKE WORD INCREMENT FB960 FP134640 | 30640 0621 00 0 30707 STA FC190 STORE -CAL- FB970 FP134650 | 30641 -0500 00 0 31316 FB980 CAL FAA15 TAKE REMAINDER - SIZE/36 FB980 FP134660 30642 -0100 00 0 30645 TNZ *+3 FB981 FP134670 | 30643 -0500 00 0 31317 CAL FAA16 6 FB982 FP134680 | 30644 0020 00 0 30650 TRA *+4 FB983 FP134690 | 30645 0765 00 0 00043 LRS 35 * FB990 FP134700 | 30646 0220 00 0 31317 DVH FAA16 DIVIDE BY L FC010 FP134710 30647 0131 00 0 00000 XCA * FC020 FP134720 | 30650 0621 00 0 30723 STA FC310 STORE-PZE- FC030 FP134730 | 30651 0020 00 0 30656 TRA FC100 TO INIT. LDQ FC040 FP134740 | 30652 -0500 00 1 71402 FC050 CAL AAG24+SEQID+2,1 TAKE WORD INCREMENT FC050 FP134750 | 30653 0402 00 0 31305 SUB FAA04 SUB 1 FC060 FP134760 30654 0621 00 0 30707 STA FC190 STORE -CAL- FC070 FP134770 | 30655 0020 00 0 30641 TRA FB980 FC080 FP134780 | 30656 -0500 00 0 30707 FC100 CAL FC190 TAKE -CAL- INST FC100 FP134790 | 30657 0400 00 0 31305 ADD FAA04 1 FC102 FP134800 | 30660 0621 00 0 30712 STA FC220 STORE -LDQ- FC103 FP134810 30661 -0500 00 2 67541 CAL FAA02-2,2 TAKE BUFFER LOC. FC105 FP134820 | 30662 0621 00 0 30726 STA FC340 STORE -SLW- FC106 FP134830 | 30663 0621 00 0 30675 STA FC128 * -STZ- FC110 FP134840 | 1 LISTING OF 12/01/64 PAGE 283 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 30664 -0500 00 2 67540 CAL FAA02-3,2 FC112 FP134850 | 30665 0402 00 1 71404 SUB AAG24+SEQID+4,1 SUB FIELD SIZE FC114 FP134860 | 30666 0765 00 0 00043 LRS 35 FC115 FP134870 | 30667 0220 00 0 31306 DVH FAA05 DIVIDE BY 36 FC116 FP134880 30670 0131 00 0 00000 XCA * FC118 FP134890 | 30671 0100 00 0 30703 TZE FC150 SIZES-EQUAL FC120 FP134900 | 30672 0734 00 2 00000 PAX 0,2 LOOP CONTROL -STZ- FC122 FP134910 | 30673 -0500 00 0 30675 FC124 CAL *+2 GEN -STZ- FC124 FP134920 | 30674 0074 00 4 11413 TSX PRGMR,4 * FC126 FP134930 30675 0600 00 0 00000 FC128 STZ 0 FC128 FP134940 | 30676 -0500 00 0 30726 CAL FC340 ADD 1 TO STZ + SLW FC130 FP134950 | 30677 0400 00 0 31305 ADD FAA04 * FC132 FP134960 | 30700 0621 00 0 30726 STA FC340 * FC134 FP134970 | 30701 0621 00 0 30675 STA FC128 * FC136 FP134980 30702 2 00001 2 30673 TIX FC124,2,1 REPEAT LOOP FC138 FP134990 | 30703 -0500 00 1 71404 FC150 CAL AAG24+SEQID+4,1 INIT FOR REPEAT OF OBJ FC150 FP135000 | 30704 0734 00 2 00000 PAX 0,2 * PROG INSTS. FC160 FP135010 | 30705 -0500 00 0 30707 FC170 CAL *+2 -CAL- SF FIELD FC170 FP135020 | 30706 0074 00 4 11413 TSX PRGMR,4 * FC180 FP135030 30707 -0500 00 2 00000 FC190 CAL 0,2 * FC190 FP135040 | 30710 -0500 00 0 30712 CAL *+2 -LDQ- SF FIELD FC200 FP135050 | 30711 0074 00 4 11413 TSX PRGMR,4 * FC210 FP135060 | 30712 0560 00 2 00000 FC220 LDQ 0,2 * FC220 FP135070 | 30713 -0500 00 0 30715 CAL *+2 -LGL- SHIFT LEFT FC230 FP135080 30714 0074 00 4 11413 TSX PRGMR,4 * FC240 FP135090 | 30715 -0763 00 0 00000 FC250 LGL 0 * FC250 FP135100 | 30716 -0500 00 0 30720 CAL *+2 -TSX- CONVERT 702 FC260 FP135110 | 30717 0074 00 4 11413 TSX PRGMR,4 * FC270 FP135120 | 30720 0074 00 4 20642 TSX TO702,4 FC280 FP135130 30721 -0500 00 0 30723 CAL *+2 -PZE- NO. OF CHAR. FC290 FP135140 | 30722 0074 00 4 11413 TSX PRGMR,4 * FC300 FP135150 | 30723 0 00000 0 00000 FC310 PZE 0 * FC310 FP135160 | 30724 -0500 00 0 30726 CAL *+2 -SLW- FLD TO BUFFER FC320 FP135170 | 30725 0074 00 4 11413 TSX PRGMR,4 * FC330 FP135180 30726 0602 00 0 00000 FC340 SLW 0 * FC340 FP135190 | 30727 2 00044 2 30731 TIX *+2,2,36 TEST FOR ADDITIONAL WORDS FC350 FP135200 | 30730 0020 00 0 30575 TRA FB640 TO PICKUP NEXT FIELD FC360 FP135210 | 30731 -0500 00 0 30707 CAL FC190 MODIFY -CAL- FC370 FP135220 | 30732 0400 00 0 31305 ADD FAA04 * FC380 FP135230 30733 0621 00 0 30707 STA FC190 * FC390 FP135240 | 30734 -0500 00 0 30712 CAL FC220 * -LDQ- FC400 FP135250 | 30735 0400 00 0 31305 ADD FAA04 * FC410 FP135260 | 30736 0621 00 0 30712 STA FC220 * FC420 FP135270 | 30737 -0500 00 0 31317 CAL FAA16 * -PZE- FC430 FP135280 30740 0621 00 0 30723 STA FC310 * FC440 FP135290 | 30741 -0500 00 0 30726 CAL FC340 * -SLW- FC450 FP135300 | 30742 0400 00 0 31305 ADD FAA04 * FC460 FP135310 | 30743 0621 00 0 30726 STA FC340 * FC470 FP135320 | 30744 0020 00 0 30705 TRA FC170 TO FUILD NEXT WORD OF FLD. FC480 FP135330 30745 -0500 00 1 71402 FC500 CAL AAG24+SEQID+2,1 TAKE WORD INCR FC500 FP135340 | 30746 0621 00 0 31007 STA FC650 STORE -CAL- FC510 FP135350 | 30747 -0500 00 1 71404 CAL AAG24+SEQID+4,1 TAKE FLD SIZE FC520 FP135360 | 30750 0765 00 0 00043 LRS 35 * FC530 FP135370 | 30751 0220 00 0 31306 DVH FAA05 DIVIDE BY 36 FC540 FP135380 30752 -0100 00 0 30755 TNZ *+3 FC541 FP135390 | 1 LISTING OF 12/01/64 PAGE 284 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 30753 -0500 00 0 31317 CAL FAA16 6 FC542 FP135400 30754 0020 00 0 30760 TRA *+4 FC543 FP135410 | 30755 0765 00 0 00043 LRS 35 DIVIDE REMAINDER FC550 FP135420 | 30756 0220 00 0 31317 DVH FAA16 BY 6 FC560 FP135430 | 30757 0131 00 0 00000 XCA STORE RESULT IN -PZE- FC570 FP135440 | 30760 0621 00 0 31025 STA FC710 * FC580 FP135450 30761 -0500 00 2 67541 CAL FAA02-2,2 TAKE BUFFER LOC. FC590 FP135460 | 30762 0621 00 0 31030 STA FC740 STORE -SLW- FC600 FP135470 | 30763 0621 00 0 30775 STA FC618 * -STZ- FC602 FP135480 | 30764 -0500 00 2 67540 CAL FAA02-3,2 FC604 FP135490 | 30765 0402 00 1 71404 SUB AAG24+SEQID+4,1 SUB FLD SIZE FC606 FP135500 30766 0765 00 0 00043 LRS 35 FC607 FP135510 | 30767 0220 00 0 31306 DVH FAA05 36 FC608 FP135520 | 30770 0131 00 0 00000 XCA FC610 FP135530 | 30771 0100 00 0 31003 TZE FC628 SIZES - EQUAL FC612 FP135540 | 30772 0734 00 2 00000 PAX 0,2 LOOP CONTROL -STZ- FC614 FP135550 30773 -0500 00 0 30775 FC616 CAL *+2 GEN -STZ- FC616 FP135560 | 30774 0074 00 4 11413 TSX PRGMR,4 * FC617 FP135570 | 30775 0600 00 0 00000 FC618 STZ 0 * FC618 FP135580 | 30776 -0500 00 0 31030 CAL FC740 ADD 1 TO -SLW- + -STZ- FC620 FP135590 | 30777 0400 00 0 31305 ADD FAA04 * FC621 FP135600 31000 0621 00 0 31030 STA FC740 * FC622 FP135610 | 31001 0621 00 0 30775 STA FC618 * FC623 FP135620 | 31002 2 00001 2 30773 TIX FC616,2,1 FC624 FP135630 | 31003 -0500 00 1 71404 FC628 CAL AAG24+SEQID+4,1 INIT FOR REPEAT OF OBJ FC628 FP135640 | 31004 0734 00 2 00000 PAX 0,2 * PROG. INST. FC629 FP135650 31005 -0500 00 0 31007 FC630 CAL *+2 -CAL- SF FIELD FC630 FP135660 | 31006 0074 00 4 11413 TSX PRGMR,4 * FC640 FP135670 | 31007 -0500 00 2 00000 FC650 CAL 0,2 * FC650 FP135680 | 31010 -0500 00 1 71400 CAL AAG24+SEQID,1 FLD NO. FC6510FP135690 | 31011 -0320 00 0 10744 ANA BCD17 FC6510FP135700 31012 0771 00 0 00001 ARS 1 FC652 FP135710 | 31013 -0100 00 0 31020 TNZ *+5 FC653 FP135720 | 31014 -0500 00 0 31016 CAL *+2 FC654 FP135730 | 31015 0074 00 4 11413 TSX PRGMR,4 FC655 FP135740 | 31016 0771 00 0 00030 ARS 24 FC656 FP135750 31017 0020 00 0 31026 TRA FC740-2 FC657 FP135760 | 31020 -0500 00 0 31022 CAL *+2 -TSX- CONVERT -702 FC660 FP135770 | 31021 0074 00 4 11413 TSX PRGMR,4 * FC670 FP135780 | 31022 0074 00 4 20642 TSX TO702,4 FC680 FP135790 | 31023 -0500 00 0 31025 CAL *+2 -PZE- NO. OF CHAR) FC690 FP135800 31024 0074 00 4 11413 TSX PRGMR,4 * FC700 FP135810 | 31025 0 00000 0 00000 FC710 PZE 0 * FC710 FP135820 | 31026 -0500 00 0 31030 CAL *+2 -SLW- FLD. TO BUFFER FC720 FP135830 | 31027 0074 00 4 11413 TSX PRGMR,4 * FC730 FP135840 | 31030 0602 00 0 00000 FC740 SLW 0 * FC740 FP135850 31031 2 00044 2 31033 TIX *+2,2,36 TEST FOR MORE WORDS FC750 FP135860 | 31032 0020 00 0 30575 TRA FB640 TO PICKUP NEXT FIELD FC760 FP135870 | 31033 -0500 00 0 31007 CAL FC650 MODIFY -CAL- FC770 FP135880 | 31034 0400 00 0 31305 ADD FAA04 * FC780 FP135890 | 31035 0621 00 0 31007 STA FC650 * FC790 FP135900 31036 -0500 00 0 31317 CAL FAA16 * -PZE- FC800 FP135910 | 31037 0621 00 0 31025 STA FC710 * FC810 FP135920 | 31040 -0500 00 0 31030 CAL FC740 * -SLW- FC820 FP135930 | 31041 0400 00 0 31305 ADD FAA04 * FC830 FP135940 | 1 LISTING OF 12/01/64 PAGE 285 HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 31042 0621 00 0 31030 STA FC740 * FC840 FP135950 | 31043 0020 00 0 31005 TRA FC630 FC850 FP135960 | * FD001 FP135970 * EDIT SEQ. LEVELS -GEN- EMIT TRAILING I.D. FD002 FP135980 | * FD003 FP135990 | 31044 -0774 00 2 67543 FD010 AXC FAA02,2 INIT TO SCAN BUTBL. FD010 FP136000 | 31045 -0520 00 2 00002 NZT 2,2 IS 1ST LEVEL USED FD020 FP136010 | 31046 0020 00 0 31050 TRA *+2 * NO FD030 FP136020 31047 0020 00 0 31141 TRA FD610 * YES FD040 FP136030 | 31050 0774 00 4 00024 FD050 AXT 20,4 FD050 FP136040 | 31051 -0500 00 1 71373 CAL AAG24+SEQID-5,1 THIS RT TO WA FD060 FP136050 | 31052 0771 00 0 00006 ARS 6 * FD070 FP136060 | 31053 -0320 00 0 11015 ANA BCD70 * FD080 FP136070 31054 0602 00 0 31316 SLW FAA15 * FD090 FP136080 | 31055 -0500 00 4 67232 CAL PATBL+20,4 SCAN P.C. TBL. FD100 FP136090 | 31056 -0320 00 0 11015 ANA BCD70 * FD110 FP136100 | 31057 -0340 00 0 31316 LAS FAA15 COMPARE FOR THIS REC. TYPE FD120 FP136110 | 31060 0020 00 0 31123 TRA FD500 * HI- NOT IN PATBL FD130 FP136120 31061 0020 00 0 31064 TRA FD200 * EQ- REC. DOES HAVE PARENTFD140 FP136130 | 31062 2 00001 4 31055 TIX *-5,4,1 * LO- FD150 FP136140 | 31063 0020 00 0 31123 TRA FD500 TBL. LIMIT - NOT IN TBL FD160 FP136150 | 31064 0634 00 4 31050 FD200 SXA FD050,4 FD200 FP136160 | 31065 -0500 00 4 67232 CAL PATBL+20,4 STORE PARENT CODE FD201 FP136170 31066 0600 00 0 31316 STZ FAA15 2ND FD201 FP136180 | 31067 0621 00 0 31316 STA FAA15 * FD202 FP136190 | 31070 2 00003 2 31071 TIX *+1,2,3 LOOK AT NEXT LEVEL FD210 FP136200 | 31071 0520 00 2 00000 ZET 0,2 FD220 FP136210 | 31072 0020 00 0 31075 TRA *+3 FP136220 31073 0074 00 4 10507 TSX T0010,4 FP136230 | 31074 -1 06356 3 00000 STR 0,3,3310 THIS RT HAS PARENT,BUT NO SEQ ID FD230 FP136240 | 31075 0520 00 2 00002 ZET 2,2 * IS LEVEL USED FD240 FP136250 | 31076 0020 00 0 31100 TRA FD270 * YES FD250 FP136260 | 31077 2 00003 2 31071 TIX *-6,2,3 NO FD260 FP136270 31100 0774 00 4 00144 FD270 AXT 100,4 IS PARENT IN REC. TYPE TBL FD270 FP136280 | 31101 -0500 00 4 71544 CAL AAG84+100,4 * FD280 FP136290 | 31102 -0340 00 0 31316 LAS FAA15 * FD290 FP136300 | 31103 0020 00 0 31106 TRA *+3 FD290 FP136310 | 31104 0020 00 0 31110 TRA FD350 * YES FD310 FP136320 31105 2 00002 4 31101 TIX *-4,4,2 *MAYBE FD320 FP136330 | 31106 0074 00 4 10507 TSX T0010,4 FP136340 | 31107 -1 06370 3 00000 STR 0,3,3320 PARENT CODE NOT IN RT TABLE FP136350 | 31110 0520 00 2 00003 FD350 ZET 3,2 IS THIS LAST ENTRY FD350 FP136360 | 31111 0020 00 0 31115 TRA FD410 * NO. FD360 FP136370 31112 -0500 00 4 71545 CAL AAG84+101,4 BUFFER LOC. OF PARENTS FD370 FP136380 | 31113 0621 00 0 31320 STA FAA17 HIGHEST LEVEL PLUS ONE-PZE FD380 FP136390 | 31114 0020 00 0 31164 TRA FD770 TO REF. E. FD400 FP136400 | 31115 -0500 00 4 71545 FD410 CAL AAG84+101,4 DOES PARENT HAVE ENOUGH FD410 FP136410 | 31116 -0340 00 2 00001 LAS 1,2 I.D. FD420 FP136420 31117 0020 00 0 31141 TRA FD610 * YES FD430 FP136430 | 31120 0020 00 0 31141 TRA FD610 * YES FD440 FP136440 | 31121 0074 00 4 10507 TSX T0010,4 FP136450 | 31122 -1 06402 3 00000 STR 0,3,3330 PARENT IS MISSING SEQ LEVELS FD450 FP136460 | 31123 2 00003 2 31124 FD500 TIX *+1,2,3 FD500 FP136470 31124 0520 00 2 00000 ZET 0,2 TEST FOR END OF TABLE FD510 FP136480 | 31125 0020 00 0 31130 TRA *+3 FP136490 | 1 LISTING OF 12/01/64 PAGE 286 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 31126 0074 00 4 10507 TSX T0010,4 FP136500 | 31127 -1 06414 3 00000 STR 0,3,3340 THIS RT HAS NO PARENT AND NO SEQ ID FD520 FP136510 | 31130 -0520 00 2 00002 NZT 2,2 IS LEVEL USED FD530 FP136520 | 31131 0020 00 0 31123 TRA FD500 NO FD540 FP136530 | 31132 -0520 00 2 00003 NZT 3,2 LAST TABLE ENTRY FD550 FP136540 31133 0020 00 0 31136 TRA *+3 FP136550 | 31134 0074 00 4 10507 TSX T0010,4 FP136560 | 31135 -1 06426 3 00000 STR 0,3,3350 MISSING SEQ LEVEL,BUT NO PARENT FD560 FP136570 | 31136 -0500 00 0 67544 CAL FAA02+1 TAKE ADDRESS OF LEFT BUFFERFD570 FP136580 | 31137 0621 00 0 31320 STA FAA17 WORD TO PZE FD580 FP136590 31140 0020 00 0 31164 TRA FD770 TO REF. E FD590 FP136600 | 31141 -0520 00 2 00003 FD610 NZT 3,2 IS INDEX AT LAST LEVEL FD610 FP136610 | 31142 0020 00 0 31156 TRA FD730 YES FD620 FP136620 | 31143 0520 00 2 00002 ZET 2,2 IS THIS LEVEL USED FD630 FP136630 | 31144 2 00003 2 31141 TIX *-3,2,3 YES FD640 FP136640 31145 -0500 00 2 00001 CAL 1,2 PUT BUFFER LOC. TO PZE FD650 FP136650 | 31146 0621 00 0 31320 STA FAA17 * FD660 FP136660 | 31147 2 00003 2 31150 TIX *+1,2,3 FD670 FP136670 | 31150 0520 00 2 00002 ZET 2,2 IS IT USED LEVEL FD680 FP136680 | 31151 0020 00 0 31160 TRA FD750 YES FD690 FP136690 31152 0520 00 2 00000 ZET 0,2 IS IT END OF TABLE FD700 FP136700 | 31153 0020 00 0 31147 TRA *-4 NO FD710 FP136710 | 31154 0074 00 4 10507 TSX T0010,4 FP136720 | 31155 -1 06440 3 00000 STR 0,3,3360 RT NOT IN SEQ LEVEL TABLE FD720 FP136730 | 31156 -0500 00 2 00001 FD730 CAL 1,2 BUFFER LOC. LAST LEVEL -PZEFD730 FP136740 31157 0621 00 0 31320 STA FAA17 * FD740 FP136750 | 31160 -0520 00 2 00003 FD750 NZT 3,2 IS IT LAST LEVEL FD750 FP136760 | 31161 0020 00 0 31164 TRA FD770 FP136770 | 31162 0074 00 4 10507 TSX T0010,4 FP136780 | 31163 -1 06452 3 00000 STR 0,3,3370 SEQ LEVELS NOT CONSECUTIVE FD760 FP136790 31164 0774 00 4 00144 FD770 AXT 100,4 PZE ADDRESS TO REC. TYPE TBFD770 FP136800 | 31165 -0500 00 0 31315 CAL FAA14 FD780 FP136810 | 31166 0771 00 0 00030 ARS 24 FD790 FP136820 | 31167 0520 00 4 71544 ZET AAG84+100,4 SEARCH RT TABLE FD800 FP136830 | 31170 0020 00 0 31173 TRA *+3 FP136840 31171 0074 00 4 10507 TSX T0010,4 FP136850 | 31172 -1 11005 4 00000 STR 0,4,4613 SEQ TBL RT NOT IN RT TBL (TBL N FULLFD810 FP136860 | 31173 -0340 00 4 71544 LAS AAG84+100,4 * FD820 FP136870 | 31174 0020 00 0 31200 TRA *+4 FD830 FP136880 | 31175 0020 00 0 31203 TRA FD880 * FD840 FP136890 31176 0074 00 4 10507 TSX T0010,4 FP136900 | 31177 -1 11004 4 00000 STR 0,4,4612 SEQ TBL RT NOT IN RT TBL (SK RT) FD850 FP136910 | 31200 2 00002 4 31167 TIX *-9,4,2 FP136920 | 31201 0074 00 4 10507 TSX T0010,4 FP136930 | 31202 -1 11003 4 00000 STR 0,4,4611 SEQ TBL RT NOT IN RT TBL (TBL FULL) FD870 FP136940 31203 -0500 00 0 31320 FD880 CAL FAA17 PUT BUFFER LOC TO TBL. FD880 FP136950 | 31204 0621 00 4 71545 STA AAG84+101,4 * FD890 FP136960 | 31205 0634 00 4 31164 SXA FD770,4 * FD900 FP136970 | 31206 0774 00 4 00702 AXT SMZE-3,4 INIT FOR SUMMARY REC TEST FE010 FP136980 | 31207 -0520 00 4 72447 NZT SUTBL+SMZE-3,4 TEST FOR END OF TBL FE020 FP136990 31210 0020 00 0 31217 TRA FE100 * YESS FE030 FP137000 | 31211 -0500 00 4 72450 FE040 CAL SUTBL+SMZE-2,4 SEARCH TBL. FE040 FP137010 | 31212 -0320 00 0 11005 ANA BCD60 * FE050 FP137020 | 31213 -0340 00 0 31315 LAS FAA14 * FE060 FP137030 | 31214 0020 00 0 31216 TRA *+2 * FE070 FP137040 1 LISTING OF 12/01/64 PAGE 287 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 31215 0020 00 0 31223 TRA FE140 * EQUAL FE080 FP137050 | 31216 2 00003 4 31207 TIX FE040-2,4,3 FE090 FP137060 31217 -0500 00 0 31222 FE100 CAL *+3 INIT -STZ- FE100 FP137070 | 31220 0602 00 0 31247 SLW FE310 * FE110 FP137080 | 31221 0020 00 0 31233 TRA FE220 TO REF. F. FE120 FP137090 | 31222 0600 00 0 00000 STZ 0 FE130 FP137100 | 31223 -0500 00 0 31225 FE140 CAL *+2 GEN. -CLM- FE140 FP137110 31224 0074 00 4 11413 TSX PRGMR,4 * FE150 FP137120 | 31225 0760 00 0 00000 CLM * FE160 FP137130 | 31226 -0500 00 0 31230 CAL *+2 * -COM- FE170 FP137140 | 31227 0074 00 4 11413 TSX PRGMR,4 * FE180 FP137150 | 31230 0760 00 0 00006 COM * FE190 FP137160 31231 -0500 00 0 31232 CAL *+1 INIT -SLW- FE200 FP137170 | 31232 0602 00 0 31247 SLW FE310 * FE210 FP137180 | 31233 -0500 00 0 31320 FE220 CAL FAA17 INIT. OF -STZ-SLW- FE220 FP137190 | 31234 0621 00 0 31247 STA FE310 * FE230 FP137200 | 31235 -0340 00 2 00001 LAS 1,2 TEST FOR BUFFER LIMIT FE240 FP137210 31236 0020 00 0 31241 TRA *+3 FE250 FP137220 | 31237 0020 00 0 31251 TRA FE330 * YES FE260 FP137230 | 31240 0020 00 0 31243 TRA *+3 FP137240 | 31241 0074 00 4 10507 TSX T0010,4 FP137250 | 31242 -1 10174 4 00000 STR 0,4,4220 FIRST TRAIL ID BUF GREATER THAN BUF LMT FP137260 31243 0400 00 0 31305 ADD FAA04 UPDATE BUFFER LOC. FE270 FP137270 | 31244 0601 00 0 31320 STO FAA17 * FE280 FP137280 | 31245 -0500 00 0 31247 CAL *+2 GEN -STZ-OR-SLW- FE290 FP137290 | 31246 0074 00 4 11413 TSX PRGMR,4 * FE300 FP137300 | 31247 0600 00 0 00000 FE310 STZ 0 * FE310 FP137310 31250 0020 00 0 31233 TRA FE220 REPEAT TO FILL BUFFER FE320 FP137320 | 31251 -0500 00 0 31315 FE330 CAL FAA14 FE330 FP137330 | 31252 0771 00 0 00030 ARS 24 FE331 FP137340 | 31253 0074 00 4 32511 TSX WR010,4 FE332 FP137350 | 31254 -0500 00 0 31256 CAL *+2 FE333 FP137360 31255 0074 00 4 11413 TSX PRGMR,4 * FE340 FP137370 | 31256 0020 00 0 00000 TRA 0 * FE350 FP137380 | 31257 -0500 00 0 31321 CAL FAA18 SUPPLY MISSING SYM. ADDR. FE360 FP137390 | 31260 0074 00 4 11507 TSX YADDR,4 * FE370 FP137400 | 31261 -0500 00 0 31315 CAL FAA14 DUMP OBJECT PROGRAM FE380 FP137410 31262 0771 00 0 00006 ARS 6 * FE390 FP137420 | 31263 -0501 00 0 31314 ORA FAA11 * FE400 FP137430 | 31264 0074 00 4 11547 TSX M0010,4 * FE410 FP137440 | 31265 -0774 00 2 67543 AXC FAA02,2 RESET BUTBL TEST WORDS FE420 FP137450 | 31266 -0520 00 2 00000 NZT 0,2 TEST END OF TBL FE430 FP137460 31267 0020 00 0 31272 TRA FE470 * YES FE440 FP137470 | 31270 0600 00 2 00002 STZ 2,2 STORE ZERO TEST WORD FE450 FP137480 | 31271 2 00003 2 31266 TIX *-3,2,3 * FE460 FP137490 | 31272 -0520 00 1 71400 FE470 NZT AAG24+SEQID,1 TEST FOR END SEQ ID. TBL. FE470 FP137500 | 31273 0020 00 0 27760 TRA VF010 YES FE480 FP137510 31274 -0500 00 1 71400 CAL AAG24+SEQID,1 UPDATE PREV REC. TYPE FE490 FP137520 | 31275 -0320 00 0 11005 ANA BCD60 * FE500 FP137530 | 31276 0602 00 0 31315 SLW FAA14 * FE510 FP137540 | 31277 0020 00 0 30611 TRA FB760 * FE520 FP137550 | 31300 0074 00 2 05004 FF010 TSX FSRSYS,2 POSITION SYSTEM OVER CLNPAS, FF010 FP137560 31301 0074 00 2 05004 TSX FSRSYS,2 ASSEMBLY TO CLN, SEL, FLD FF020 FP137570 | 31302 0020 00 0 27173 TRA VA010 FF030 FP137580 | 31303 +000000000000 FAA01 DEC 0 SEQ LEVEL CONSTANT FAA01 FP137590 | 1 LISTING OF 12/01/64 PAGE 288 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 31304 +000000000000 FAA03 DEC 0 LOC OF LAST BUFFER TBL. ENTFAA03 FP137600 | 31305 +000000000001 FAA04 DEC 1 FAA04 FP137610 | 31306 +000000000044 FAA05 DEC 36 FAA05 FP137620 | 31307 +000000000000 FAA06 DEC 0 EQUAL SW. FAA06 FP137630 31310 +000000000000 FAA07 DEC 0 HIGH SW. FAA07 FP137640 | 31311 +377700000000 FAA08 OCT 377700000000 FAA08 FP137650 | 31312 0 00000 0 00002 FAA09 PZE 2 FAA09 FP137660 | 31313 +000027000000 FAA10 OCT 27000000 YADDR MASK FOR UNPCAK 09406FAA10 FP137670 | 31314 +270000000000 FAA11 OCT 270000000000 FAA11 FP137680 31315 +000000000000 FAA14 DEC 0 PREV. REC. TYPE-SEQ ID. TBLFAA14 FP137690 | 31316 +000000000000 FAA15 DEC 0 TEMP WORK AREA FAA15 FP137700 | 31317 +000000000006 FAA16 DEC 6 FAA16 FP137710 | 31320 0 00000 0 00000 FAA17 PZE 0 1ST TRAILING ID. BUFFER LOCFAA17 FP137720 | 31321 +000027777700 FAA18 OCT 27777700 FAA18 FP137730 31322 +000000000043 FAA19 DEC 35 FAA19 FP137740 | 1 LISTING OF 12/01/64 PAGE 289 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 31323 0074 00 4 05255 WA010 TSX RD(WR),4 SPACE OVER B-LABEL WA010 FP137760 31324 0 32536 0 00007 PZE 7,0,WAA10 WA040 FP137770 | 31325 0020 00 0 31327 TRA *+2 WA050 FP137780 | 31326 0020 00 0 31332 TRA *+4 EOF NOT EXPECTED WA060 FP137790 | 31327 0074 00 4 05255 TSX RD(WR),4 WA070 FP137800 | 31330 0 32536 0 00007 PZE 7,0,WAA10 WA080 FP137810 31331 0020 00 0 31334 TRA *+3 W WA090 FP137820 | 31332 0074 00 4 10507 TSX T0010,4 FP137830 | 31333 -1 07705 4 00000 STR 0,4,4037 MASTER OUT, DICT, EOF NOT EXPECTED WA100 FP137840 | 31334 -0500 00 0 32537 CAL WAA20 IS EXEC CODE E WA120 FP137850 | 31335 -0320 00 0 10765 ANA BCD40 * WA130 FP137860 31336 -0340 00 0 32554 LAS WAA30 * WA140 FP137870 | 31337 0020 00 0 31341 TRA *+2 * WA150 FP137880 | 31340 0020 00 0 31343 TRA *+3 WA160 FP137890 | 31341 0074 00 4 10507 TSX T0010,4 FP137900 | 31342 -1 10206 4 00000 STR 0,4,4230 NO EXEC E RECORD ON B7 WA170 FP137910 31343 -0500 00 0 32541 WA180 CAL WAA20+2 WA180 FP137920 | 31344 0560 00 0 32542 LDQ WAA20+3 WA185 FP137930 | 31345 -0763 00 0 00006 LGL 6 WA190 FP137940 | 31346 -0320 00 0 10730 ANA BCD03 WA195 FP137950 | 31347 -0340 00 0 33044 LAS WJA09 BLANK WA200 FP137960 31350 0020 00 0 31352 TRA *+2 WA205 FP137970 | 31351 0020 00 0 31470 TRA WJ890 WA210 FP137980 | 31352 0602 00 0 33043 SLW WJA07 PARENT REC TYPE WA215 FP137990 | 31353 -0500 00 0 31355 CAL *+2 CAL WJ040 FP138000 | 31354 0074 00 4 11413 TSX PRGMR,4 WJ050 FP138010 31355 0500 00 4 00001 CLA 1,4 WJ060 FP138020 | 31356 -0500 00 0 31360 CAL *+2 TMI WJ150 FP138030 | 31357 0074 00 4 11413 TSX PRGMR,4 WJ160 FP138040 | 31360 -0120 00 0 00000 TMI 0 WJ170 FP138050 | 31361 -0500 00 0 33036 CAL WJA02 17 WJ180 FP138060 31362 0074 00 4 11465 TSX PADDR,4 WJ190 FP138070 | 31363 -0500 00 0 31365 CAL *+2 STA WJ191 FP138080 | 31364 0074 00 4 11413 TSX PRGMR,4 WJ192 FP138090 | 31365 0621 00 0 00000 STA 0 WJ193 FP138100 | 31366 -0500 00 0 33035 CAL WJA01 9 WJ194 FP138110 31367 0074 00 4 11465 TSX PADDR,4 WJ195 FP138120 | 31370 -0500 00 0 31372 CAL *+2 PAX WJ200 FP138130 | 31371 0074 00 4 11413 TSX PRGMR,4 WJ210 FP138140 | 31372 0534 00 4 22175 LXA MLCUR,4 WJ220 FP138150 | 31373 -0500 00 0 33043 CAL WJA07 WJ230 FP138160 31374 0774 00 4 00144 AXT 100,4 WJ240 FP138170 | 31375 -0340 00 4 71544 LAS AAG84+100,4 WJ250 FP138180 | 31376 0020 00 0 31400 TRA *+2 WJ260 FP138190 | 31377 0020 00 0 31403 TRA *+4 WJ270 FP138200 | 31400 2 00002 4 31375 TIX *-3,4,2 WJ280 FP138210 31401 0074 00 4 10507 TSX T0010,4 FP138220 | 31402 -1 10220 4 00000 STR 0,4,4240 PARENT NOT IN RT TBL ON B7 WJ290 FP138230 | 31403 -0500 00 4 71545 CAL AAG84+101,4 WJ300 FP138240 | 31404 0402 00 0 11342 SUB SFCUR WJ320 FP138250 | 31405 0621 00 0 31423 STA WJ470 TO - AXT WJ330 FP138260 31406 0767 00 0 00022 ALS 18 WJ340 FP138270 | 31407 -0501 00 0 31411 ORA *+2 TXI WJ350 FP138280 | 31410 0074 00 4 11413 TSX PRGMR,4 WJ360 FP138290 | 31411 1 00000 4 00000 TXI 0,4,0 WJ370 FP138300 | 1 LISTING OF 12/01/64 PAGE 290 HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 31412 -0500 00 0 33037 CAL WJA03 1 WJ380 FP138310 | 31413 0074 00 4 11465 TSX PADDR,4 WJ390 FP138320 | 31414 -0500 00 0 31416 CAL *+2 SXA WJ400 FP138330 31415 0074 00 4 11413 TSX PRGMR,4 WJ410 FP138340 | 31416 0634 00 4 00000 SXA 0,4 WJ420 FP138350 | 31417 -0500 00 0 33040 CAL WJA04 2 WJ430 FP138360 | 31420 0074 00 4 11465 TSX PADDR,4 WJ440 FP138370 | 31421 -0500 00 0 31423 CAL *+2 AXT WJ450 FP138380 31422 0074 00 4 11413 TSX PRGMR,4 WJ460 FP138390 | 31423 0774 00 4 00000 WJ470 AXT 0,4 WJ470 FP138400 | 31424 -0500 00 0 31426 CAL *+2 WJ480 FP138410 | 31425 0074 00 4 11413 TSX PRGMR,4 CAL WJ490 FP138420 | 31426 -0500 00 4 00000 CAL 0,4 WJ500 FP138430 31427 -0500 00 0 31423 CAL WJ470 AXT WJ501 FP138440 | 31430 0400 00 0 11341 ADD SFPRV WJ502 FP138450 | 31431 0621 00 0 31434 STA WJ530 LAS WJ503 FP138460 | 31432 -0500 00 0 31434 CAL *+2 WJ510 FP138470 | 31433 0074 00 4 11413 TSX PRGMR,4 WJ520 FP138480 31434 -0340 00 4 00000 WJ530 LAS 0,4 LAS WJ530 FP138490 | 31435 -0500 00 0 31437 CAL *+2 WJ540 FP138500 | 31436 0074 00 4 11413 TSX PRGMR,4 WJ550 FP138510 | 31437 0020 00 0 00000 TRA 0 TRA WJ560 FP138520 | 31440 -0500 00 0 33040 CAL WJA04 2 WJ570 FP138530 31441 0074 00 4 11465 TSX PADDR,4 WJ580 FP138540 | 31442 -0500 00 0 31444 CAL *+2 WJ590 FP138550 | 31443 0074 00 4 11413 TSX PRGMR,4 WJ600 FP138560 | 31444 0020 00 0 00000 TRA 0 TRA WJ610 FP138570 | 31445 -0500 00 0 33041 CAL WJA05 5 WJ620 FP138580 31446 0074 00 4 11465 TSX PADDR,4 WJ630 FP138590 | 31447 -0500 00 0 31451 CAL *+2 WJ640 FP138600 | 31450 0074 00 4 11413 TSX PRGMR,4 TSX WJ650 FP138610 | 31451 0074 00 4 00000 TSX 0,4 WJ660 FP138620 | 31452 -0500 00 0 31454 CAL *+2 WJ670 FP138630 31453 0074 00 4 11413 TSX PRGMR,4 WJ680 FP138640 | 31454 454660472151 BCI 1,NO PAR REASON WJ690 FP138650 | 31455 -0500 00 0 31457 CAL *+2 WJ700 FP138660 | 31456 0074 00 4 11413 TSX PRGMR,4 WJ710 FP138670 | 31457 254563606060 BCI 1,ENT WJ720 FP138680 31460 -0500 00 0 31462 CAL *+2 WJ730 FP138690 | 31461 0074 00 4 11413 TSX PRGMR,4 WJ740 FP138700 | 31462 0020 00 0 22207 TRA MRGUN WJ750 FP138710 | 31463 -0500 00 0 31465 CAL *+2 WJ760 FP138720 | 31464 0074 00 4 11413 TSX PRGMR,4 WJ770 FP138730 31465 2 00001 4 00000 TIX 0,4,1 TIX WJ780 FP138740 | 31466 0502 00 0 33042 CLS WJA06 8 WJ790 FP138750 | 31467 0074 00 4 11465 TSX PADDR,4 WJ800 FP138760 | 31470 -0500 00 0 31472 WJ890 CAL *+2 WJ890 FP138770 | 31471 0074 00 4 11413 TSX PRGMR,4 WJ895 FP138780 31472 -0500 00 0 22175 CAL MLCUR WJ896 FP138790 | 31473 -0500 00 0 31475 CAL *+2 WA240 FP138800 | 31474 0074 00 4 11413 TSX PRGMR,4 MOVE PAC WA250 FP138810 | 31475 0737 00 1 00000 PAC 0,1 WA260 FP138820 | 31476 -0500 00 0 11343 CAL SFLEN WA261 FP138830 31477 0074 00 4 11426 TSX STORR,4 WA262 FP138840 | 31500 -0500 00 0 31502 CAL *+2 WA270 FP138850 | 1 LISTING OF 12/01/64 PAGE 291 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 31501 0074 00 4 11413 TSX PRGMR,4 MOVE ADD WA280 FP138860 | 31502 0400 00 0 00000 ADD 0 WA290 FP138870 | 31503 0074 00 4 11454 TSX SADDR,4 WA291 FP138880 | 31504 -0500 00 0 31506 CAL *+2 WA300 FP138890 | 31505 0074 00 4 11413 TSX PRGMR,4 MOVE STA WA310 FP138900 31506 0621 00 0 00000 STA 0 WA320 FP138910 | 31507 0500 00 0 32573 CLA WAB60 6 WA330 FP138920 | 31510 0074 00 4 11465 TSX PADDR,4 WA340 FP138930 | 31511 -0500 00 0 31513 CAL *+2 WA350 FP138940 | 31512 0074 00 4 11413 TSX PRGMR,4 MOVE CLA WA360 FP138950 31513 0500 00 0 00000 CLA 0 WA370 FP138960 | 31514 0074 00 4 11454 TSX SADDR,4 WA371 FP138970 | 31515 -0500 00 0 31517 CAL *+2 WA380 FP138980 | 31516 0074 00 4 11413 TSX PRGMR,4 WA390 FP138990 | 31517 0621 00 0 00000 STA 0 WA400 FP139000 31520 0500 00 0 32570 CLA WAB30 3 WA410 FP139010 | 31521 0074 00 4 11465 TSX PADDR,4 WA420 FP139020 | 31522 -0500 00 0 31524 CAL *+2 WA430 FP139030 | 31523 0074 00 4 11413 TSX PRGMR,4 MOVE ADD WA440 FP139040 | 31524 0400 00 0 00000 ADD 0 WA450 FP139050 31525 -0500 00 0 11342 CAL SFCUR WA460 FP139060 | 31526 0074 00 4 11426 TSX STORR,4 WA470 FP139070 | 31527 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDRESS WA480 FP139080 | 31530 -0500 00 0 31532 CAL *+2 WA490 FP139090 | 31531 0074 00 4 11413 TSX PRGMR,4 MOVE STA WA500 FP139100 31532 0621 00 0 00000 STA 0 WA510 FP139110 | 31533 0500 00 0 32570 CLA WAB30 3 WA520 FP139120 | 31534 0074 00 4 11465 TSX PADDR,4 WA530 FP139130 | 31535 -0500 00 0 31537 CAL *+2 WA540 FP139140 | 31536 0074 00 4 11413 TSX PRGMR,4 MOVE AXT WA550 FP139150 31537 0774 00 4 00000 AXT 0,4 WA560 FP139160 | 31540 -0500 00 0 31542 CAL *+2 WA570 FP139170 | 31541 0074 00 4 11413 TSX PRGMR,4 MOVE CAL WA580 FP139180 | 31542 -0500 00 4 00000 CAL 0,4 WA590 FP139190 | 31543 -0500 00 0 31545 CAL *+2 WA600 FP139200 31544 0074 00 4 11413 TSX PRGMR,4 MOVE SLW WA610 FP139210 | 31545 0602 00 4 00000 SLW 0,4 WA620 FP139220 | 31546 -0500 00 0 31550 CAL *+2 WA630 FP139230 | 31547 0074 00 4 11413 TSX PRGMR,4 MOVE TIX WA640 FP139240 | 31550 2 00001 4 00000 TIX 0,4,1 WA650 FP139250 31551 0502 00 0 32567 CLS WAB20 2 WA660 FP139260 | 31552 0074 00 4 11465 TSX PADDR,4 WA670 FP139270 | 31553 0600 00 0 32561 STZ WAA50 INIT COUNTERS TO ZERO WA680 FP139280 | 31554 0600 00 0 32562 STZ WAA60 * WA690 FP139290 | 31555 0600 00 0 32563 STZ WAA70 * WA700 FP139300 31556 0774 00 4 00225 AXT 149,4 ZEROIZE WA701 FP139310 | 31557 0600 00 4 33030 STZ WAC60+149,4 WA702 FP139320 | 31560 2 00001 4 31557 TIX *-1,4,1 STORAGE WA703 FP139330 | 31561 -0774 00 2 32603 AXC WAC60,2 WA710 FP139340 | 31562 -0500 00 0 31564 CAL *+2 WA730 FP139350 31563 0074 00 4 11413 TSX PRGMR,4 MOVE CAL WA740 FP139360 | 31564 -0500 00 0 17301 CAL SFLOC WA750 FP139370 | 31565 -0500 00 0 32540 CAL WAA20+1 CONVERT LENGTH TO BIN WA760 FP139380 | 31566 0560 00 0 32541 LDQ WAA20+2 * WA770 FP139390 | 31567 -0763 00 0 00022 LGL 18 * WA780 FP139400 1 LISTING OF 12/01/64 PAGE 292 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 31570 -0320 00 0 10744 ANA BCD17 * WA790 FP139410 | 31571 0602 00 0 07751 SLW B1020 * WA800 FP139420 31572 0074 00 4 07570 TSX B0010,4 * WA801 FP139430 | 31573 -0500 00 0 07747 CAL B1000 WA820 FP139440 | 31574 0602 00 0 32565 SLW WAA90 STORE LENGTH WA830 FP139450 | 31575 0074 00 4 11426 TSX STORR,4 WA840 FP139460 | 31576 -0500 00 0 31600 CAL *+2 WA850 FP139470 31577 0074 00 4 11413 TSX PRGMR,4 MOVE ADD WA860 FP139480 | 31600 0400 00 0 00000 ADD 0 WA870 FP139490 | 31601 0074 00 4 11454 TSX SADDR,4 WA880 FP139500 | 31602 -0500 00 0 31604 CAL *+2 WA890 FP139510 | 31603 0074 00 4 11413 TSX PRGMR,4 MOVE STA WA900 FP139520 31604 0621 00 0 00000 STA 0 WA910 FP139530 | 31605 -0500 00 0 32570 CAL WAB30 3 WA920 FP139540 | 31606 0074 00 4 11465 TSX PADDR,4 WA930 FP139550 | 31607 -0500 00 0 32565 CAL WAA90 RECORD LENGTH WA940 FP139560 | 31610 -0501 00 0 31612 ORA *+2 WA950 FP139570 31611 0074 00 4 11413 TSX PRGMR,4 MOVE AXT WA960 FP139580 | 31612 0774 00 4 00000 AXT 0,4 WA970 FP139590 | 31613 -0500 00 0 31615 CAL *+2 WA980 FP139600 | 31614 0074 00 4 11413 TSX PRGMR,4 MOVE CAL WA990 FP139610 | 31615 -0500 00 4 00000 CAL 0,4 WB010 FP139620 31616 -0500 00 0 11423 CAL F0080 SAVE WD NO WB020 FP139630 | 31617 0602 00 0 33032 SLW WAC90 WB030 FP139640 | 31620 -0500 00 0 31622 CAL *+2 WB040 FP139650 | 31621 0074 00 4 11413 TSX PRGMR,4 MOVE SLW WB050 FP139660 | 31622 0602 00 4 00000 SLW 0,4 WB060 FP139670 31623 -0500 00 0 31625 CAL *+2 WB070 FP139680 | 31624 0074 00 4 11413 TSX PRGMR,4 MOVE TIX WB080 FP139690 | 31625 2 00001 4 00000 TIX 0,4,1 WB090 FP139700 | 31626 0502 00 0 32567 CLS WAB20 2 WB100 FP139710 | 31627 0074 00 4 11465 TSX PADDR,4 WB110 FP139720 31630 -0500 00 0 11436 CAL G0080 SAVE REF TO STORR FOR LATER WB170 FP139730 | 31631 0602 00 0 32564 SLW WAA80 RECORD LENGTH CHECK, WF410 WB180 FP139740 | 31632 -0500 00 0 32540 CAL WAA20+1 SAVE RECORD TYPE WB120 FP139750 | 31633 -0763 00 0 00022 LGL 18 WB130 FP139760 | 31634 -0320 00 0 11005 ANA BCD60 WB140 FP139770 31635 0602 00 0 32576 SLW WAB90 WB150 FP139780 | 31636 0074 00 4 11426 TSX STORR,4 WB160 FP139790 | 31637 0074 00 4 05255 TSX RD(WR),4 WB190 FP139800 | 31640 0 32536 0 00007 PZE 7,0,WAA10 WB200 FP139810 | 31641 0020 00 0 31644 TRA *+3 WB210 FP139820 31642 0074 00 4 10507 TSX T0010,4 FP139830 | 31643 -1 07706 4 00000 STR 0,4,4038 MASTER OUT, DICT, EOF NOT EXPECTED WB220 FP139840 | 31644 -0500 00 0 32537 CAL WAA20 IS CODE F WB250 FP139850 | 31645 -0320 00 0 10765 ANA BCD40 * WB260 FP139860 | 31646 -0340 00 0 32555 LAS WAA30+1 * WB270 FP139870 31647 0020 00 0 31651 TRA *+2 ERROR WB280 FP139880 | 31650 0020 00 0 31653 TRA *+3 WB290 FP139890 | 31651 0074 00 4 10507 TSX T0010,4 FP139900 | 31652 -1 10232 4 00000 STR 0,4,4250 REC EXEC SHOULD BE F,IS NOT ON B7 WB300 FP139910 | 31653 -0500 00 0 32537 CAL WAA20 WB310 FP139920 31654 0560 00 0 32540 LDQ WAA20+1 WB320 FP139930 | 31655 -0763 00 0 00006 LGL 6 WB330 FP139940 | 31656 -0320 00 0 10744 ANA BCD17 WB340 FP139950 | 1 LISTING OF 12/01/64 PAGE 293 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 31657 -0340 00 0 32566 LAS WAB10 IS FLD NO. 1 WB350 FP139960 | 31660 0020 00 0 31662 TRA *+2 * WB360 FP139970 | 31661 0020 00 0 31664 TRA *+3 WB370 FP139980 | 31662 0074 00 4 10507 TSX T0010,4 FP139990 31663 -1 10244 4 00000 STR 0,4,4260 RT NOT FLD 0001 ON B7 WB380 FP140000 | 31664 0074 00 4 05255 WB390 TSX RD(WR),4 WB390 FP140010 | 31665 0 32536 0 00007 PZE 7,0,WAA10 WB400 FP140020 | 31666 0020 00 0 31671 TRA *+3 WB410 FP140030 | 31667 0074 00 4 10507 TSX T0010,4 FP140040 31670 -1 07707 4 00000 STR 0,4,4039 MASTER OUT, DICT, EOF NOT EXPECTED WB420 FP140050 | 31671 -0500 00 0 32537 CAL WAA20 WB450 FP140060 | 31672 -0320 00 0 10765 ANA BCD40 WB460 FP140070 | 31673 -0340 00 0 32555 LAS WAA30+1 EXEC CODE EQUAL F WB470 FP140080 | 31674 0020 00 0 31676 TRA *+2 WB480 FP140090 31675 0020 00 0 31711 TRA WB600 EQUAL F WB490 FP140100 | 31676 -0340 00 0 32556 LAS WAA30+2 WB500 FP140110 | 31677 0020 00 0 31701 TRA *+2 WB510 FP140120 | 31700 0020 00 0 31664 TRA WB390 EQUAL G WB520 FP140130 | 31701 -0340 00 0 32557 LAS WAA30+3 WB530 FP140140 31702 0020 00 0 31707 TRA WB585 WB540 FP140150 | 31703 0020 00 0 32352 TRA WE670 EQUAL P WB550 FP140160 | 31704 -0340 00 0 32554 LAS WAA30 WB560 FP140170 | 31705 0020 00 0 31707 TRA WB585 WB570 FP140180 | 31706 0020 00 0 32352 TRA WE670 EQUAL E WB580 FP140190 31707 0074 00 4 10507 WB585 TSX T0010,4 WB585 FP140200 | 31710 -1 11044 4 00000 STR 0,4,4644 EXEC CODE NOT E,F,G,OR P ON B7 WB590 FP140210 | 31711 -0500 00 0 32540 WB600 CAL WAA20+1 CONVERT SIZE TO BIN WB600 FP140220 | 31712 0560 00 0 32541 LDQ WAA20+2 WB610 FP140230 | 31713 -0763 00 0 00006 LGL 6 WB620 FP140240 31714 -0320 00 0 10734 ANA BCD07 WB630 FP140250 | 31715 0602 00 0 07751 SLW B1020 WB631 FP140260 | 31716 0074 00 4 07570 TSX B0010,4 WB640 FP140270 | 31717 0500 00 0 07747 CLA B1000 STORE SIZE WB660 FP140280 | 31720 0601 00 0 32574 STO WAB70 WB670 FP140290 31721 0441 00 0 32540 LDI WAA20+1 LOAD INDICATORS WITH MODE WB680 FP140300 | 31722 -0054 00 000100 LFT 100 BINARY MODE WB690 FP140310 | 31723 0020 00 0 31730 TRA WB750 BCD WB700 FP140320 | 31724 0500 00 0 32566 CLA WAB10 BINARY WB710 FP140330 | 31725 0400 00 0 32561 ADD WAA50 UPDATE COUNTER WB720 FP140340 31726 0601 00 0 32561 STO WAA50 WB730 FP140350 | 31727 0020 00 0 31664 TRA WB390 WB740 FP140360 | 31730 -0500 00 0 32546 WB750 CAL WAA20+7 BCD WB750 FP140370 | 31731 0560 00 0 32547 LDQ WAA20+8 WB760 FP140380 | 31732 -0763 00 0 00006 LGL 6 WB770 FP140390 31733 -0320 00 0 10730 ANA BCD03 WB780 FP140400 | 31734 -0340 00 0 32572 LAS WAB50 SEQ I D BLANK WB790 FP140410 | 31735 0020 00 0 31746 TRA WB885 WB800 FP140420 | 31736 0020 00 0 31740 TRA *+2 NO WB810 FP140430 | 31737 0020 00 0 31771 TRA WC090 WB820 FP140440 31740 -0056 00 000001 LNT 1 PACKED BCD WB830 FP140450 | 31741 0020 00 0 31750 TRA WB890 UNPACKED WB840 FP140460 | 31742 0500 00 0 32574 CLA WAB70 UPDATE BLANK COUNTER WB850 FP140470 | 31743 0400 00 0 32562 ADD WAA60 * WB860 FP140480 | 31744 0601 00 0 32562 STO WAA60 * WB870 FP140490 31745 0020 00 0 31664 TRA WB390 * WB880 FP140500 | 1 LISTING OF 12/01/64 PAGE 294 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 31746 0074 00 4 10507 WB885 TSX T0010,4 WB885 FP140510 31747 -1 10256 4 00000 STR 0,4,4270 SEQ ID GR TH BLANK ON UNIT 7 WB886 FP140520 | 31750 0534 00 1 32574 WB890 LXA WAB70,1 SIZE TO XR 1 WB890 FP140530 | 31751 -0500 00 0 32542 CAL WAA20+3 CONVERT BIT NO TO BIN WB900 FP140540 | 31752 0771 00 0 00006 ARS 6 * WB910 FP140550 | 31753 -0320 00 0 10730 ANA BCD03 * WB920 FP140560 31754 0602 00 0 07751 SLW B1020 * WB930 FP140570 | 31755 0074 00 4 07570 TSX B0010,4 * WB940 FP140580 | 31756 0500 00 0 07747 CLA B1000 WB960 FP140590 | 31757 0621 00 0 31761 STA *+2 WB970 FP140600 | 31760 -0500 00 0 11024 CAL BCD77 WB980 FP140610 31761 0771 00 0 00000 ARS 0 WB990 FP140620 | 31762 -0320 00 0 32575 ANA WAB80 WC010 FP140630 | 31763 0602 00 0 32577 WC011 SLW WAC20 WC011 FP140640 | 31764 -0500 00 0 32577 CAL WAC20 BLANK WD TO STORR WC040 FP140650 | 31765 0074 00 4 11426 TSX STORR,4 WC050 FP140660 31766 -2 00044 1 31664 TNX WB390,1,36 WC060 FP140670 | 31767 -0500 00 0 32575 CAL WAB80 LOAD A BLANK WORD WC070 FP140680 | 31770 0020 00 0 31763 TRA WC011 WC080 FP140690 | 31771 0602 00 0 07751 WC090 SLW B1020 CONVERT ID TO BINARY WC090 FP140700 | 31772 0074 00 4 07570 TSX B0010,4 WC100 FP140710 31773 0500 00 0 07747 CLA B1000 WC120 FP140720 | 31774 0400 00 0 07747 ADD B1000 WC130 FP140730 | 31775 0400 00 0 07747 ADD B1000 WC140 FP140740 | 31776 0737 00 1 00000 PAC 0,1 WC150 FP140750 | 31777 -0500 00 1 67544 CAL FAA02+1,1 WC160 FP140760 32000 0402 00 0 67544 SUB FAA02+1 WC170 FP140770 | 32001 0534 00 1 32574 LXA WAB70,1 SIZE TO XR 1 WC180 FP140780 | 32002 0402 00 0 32566 SUB WAB10 1 WC190 FP140790 | 32003 2 00044 1 32002 TIX *-1,1,36 COMPUTE WD NO WC200 FP140800 | 32004 0602 00 0 32600 SLW WAC30 STORE U WC210 FP140810 32005 -0500 00 0 32541 CAL WAA20+2 CONVERT WORD NO C WC220 FP140820 | 32006 0560 00 0 32542 LDQ WAA20+3 * WC230 FP140830 | 32007 -0763 00 0 00022 LGL 18 * WC240 FP140840 | 32010 -0320 00 0 10744 ANA BCD17 * WC250 FP140850 | 32011 0602 00 0 07751 SLW B1020 * WC260 FP140860 32012 0074 00 4 07570 TSX B0010,4 * WC270 FP140870 | 32013 0500 00 0 07747 CLA B1000 STORE WD NO WC290 FP140880 | 32014 0601 00 0 32601 STO WAC40 * WC300 FP140890 | 32015 -0500 00 0 32542 CAL WAA20+3 CONVERT BIT NO WC310 FP140900 | 32016 0771 00 0 00006 ARS 6 * WC320 FP140910 32017 -0320 00 0 10730 ANA BCD03 * WC330 FP140920 | 32020 0602 00 0 07751 SLW B1020 * WC340 FP140930 | 32021 0074 00 4 07570 TSX B0010,4 * WC350 FP140940 | 32022 0500 00 0 07747 CLA B1000 STORE BIT NO. WC370 FP140950 | 32023 0601 00 0 32602 STO WAC50 * WC380 FP140960 32024 0441 00 0 32540 LDI WAA20+1 WC389 FP140970 | 32025 -0054 00 000001 LFT 1 WC390 FP140980 | 32026 0020 00 0 32071 TRA WC790 PACKED BCD WC400 FP140990 | 32027 0534 00 1 32574 LXA WAB70,1 UNPACKED BCD WC410 FP141000 | 32030 0500 00 0 32571 CLA WAB40 36 WC411 FP141010 32031 0402 00 0 32602 SUB WAC50 BIT NO WC412 FP141020 | 32032 0131 00 0 00000 XCA WC413 FP141030 | 32033 0760 00 0 00000 CLM WC414 FP141040 | 32034 0220 00 0 32573 DVH WAB60 6 WC415 FP141050 | 1 LISTING OF 12/01/64 PAGE 295 HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 32035 0131 00 0 00000 XCA WC416 FP141060 | 32036 0621 00 0 32050 STA WC560 WC417 FP141070 | 32037 -0500 00 0 32600 WC420 CAL WAC30 U WC420 FP141080 32040 -0501 00 0 32042 ORA *+2 WC430 FP141090 | 32041 0074 00 4 11413 TSX PRGMR,4 MOVE CAL WC440 FP141100 | 32042 -0500 00 1 00000 CAL 0,1 WC450 FP141110 | 32043 -0500 00 0 32045 CAL *+2 WC460 FP141120 | 32044 0074 00 4 11413 TSX PRGMR,4 MOVE TSX WC470 FP141130 32045 0074 00 4 20777 TSX TO709,4 WC480 FP141140 | 32046 -0500 00 0 32050 CAL *+2 WC540 FP141150 | 32047 0074 00 4 11413 TSX PRGMR,4 MOVE PZE WC550 FP141160 | 32050 0 00000 0 00000 WC560 PZE 0 WC560 FP141170 | 32051 -0500 00 0 32601 CAL WAC40 C WC570 FP141180 32052 -0501 00 0 32054 ORA *+2 WC580 FP141190 | 32053 0074 00 4 11413 TSX PRGMR,4 MOVE SLW WC590 FP141200 | 32054 0602 00 2 00000 SLW 0,2 WC600 FP141210 | 32055 0760 00 0 00000 CLM WC670 FP141220 | 32056 0074 00 4 11426 TSX STORR,4 ZERO TO STORE WC680 FP141230 32057 -2 00044 1 31664 TNX WB390,1,36 WC690 FP141240 | 32060 0500 00 0 32600 CLA WAC30 UPDATE U AND C WC700 FP141250 | 32061 0400 00 0 32566 ADD WAB10 1 WC710 FP141260 | 32062 0601 00 0 32600 STO WAC30 WC720 FP141270 | 32063 0500 00 0 32601 CLA WAC40 C WC730 FP141280 32064 0400 00 0 32566 ADD WAB10 1 WC740 FP141290 | 32065 0601 00 0 32601 STO WAC40 WC750 FP141300 | 32066 0500 00 0 32573 CLA WAB60 6 WC760 FP141310 | 32067 0621 00 0 32050 STA WC560 WC770 FP141320 | 32070 0020 00 0 32037 TRA WC420 WC780 FP141330 32071 -0520 00 0 32562 WC790 NZT WAA60 IS BLANK COUNTER ZERO WC790 FP141340 | 32072 0020 00 0 32157 TRA WD300 WC800 FP141350 | 32073 0500 00 0 32563 CLA WAA70 INIT MASK SHIFT WC810 FP141360 | 32074 0621 00 0 32102 STA WC880 WC820 FP141370 | 32075 0621 00 0 32123 STA WD050 WC830 FP141380 32076 0400 00 0 32562 ADD WAA60 BLANK COUNTER WC840 FP141390 | 32077 0734 00 1 00000 PAX 0,1 WC850 FP141400 | 32100 -2 00044 1 32114 TNX WC970,1,36 WC860 FP141410 | 32101 -0500 00 0 32575 CAL WAB80 MOVE PARTIAL BLANK WD WC870 FP141420 | 32102 0771 00 0 00000 WC880 ARS 0 WC880 FP141430 32103 0602 00 2 00000 SLW 0,2 WC890 FP141440 | 32104 1 77777 2 32105 WC900 TXI *+1,2,-1 WC900 FP141450 | 32105 3 44747 2 32110 TXH *+3,2,-WAC70 TEST STORAGE LIMIT WC910 FP141460 | 32106 0074 00 4 10507 TSX T0010,4 FP141470 | 32107 -1 11077 4 00000 STR 0,4,4671 EXCEED PKD TBL TESTED EARLIER WC920 FP141480 32110 -2 00044 1 32130 TNX WD100,1,36 WC930 FP141490 | 32111 -0500 00 0 32575 CAL WAB80 BLANK WORD WC940 FP141500 | 32112 0602 00 2 00000 SLW 0,2 WC950 FP141510 | 32113 0020 00 0 32104 TRA WC900 WC960 FP141520 | 32114 0754 00 1 00000 WC970 PXA 0,1 BUILD MASK AND STORE WC970 FP141530 32115 0402 00 0 32571 SUB WAB40 36 WC980 FP141540 | 32116 0621 00 0 32120 STA *+2 * WC990 FP141550 | 32117 -0500 00 0 11024 CAL BCD77 * WD010 FP141560 | 32120 0767 00 0 00000 ALS 0 * WD020 FP141570 | 32121 0602 00 0 32577 SLW WAC20 * WD030 FP141580 32122 -0500 00 0 32575 CAL WAB80 BLANK WORD WD040 FP141590 | 32123 0771 00 0 00000 WD050 ARS 0 WD050 FP141600 | 1 LISTING OF 12/01/64 PAGE 296 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 32124 -0320 00 0 32577 ANA WAC20 MASK WD060 FP141610 | 32125 0602 00 2 00000 SLW 0,2 WD070 FP141620 | 32126 -3 00043 1 32157 TXL WD300,1,35 WD080 FP141630 | 32127 0020 00 0 32133 TRA WD130 WD090 FP141640 | 32130 -3 00043 1 32144 WD100 TXL WD200,1,35 WD100 FP141650 32131 -0500 00 0 32575 CAL WAB80 BLANK WORD WD110 FP141660 | 32132 0602 00 2 00000 SLW 0,2 WD120 FP141670 | 32133 1 77777 2 32134 WD130 TXI *+1,2,-1 WD130 FP141680 | 32134 0600 00 2 00000 STZ 0,2 WD140 FP141690 | 32135 3 44747 2 32140 TXH *+3,2,-WAC70 TEST STORAGE LIMIT WD150 FP141700 32136 0074 00 4 10507 TSX T0010,4 FP141710 | 32137 -1 11100 4 00000 STR 0,4,4672 EXCEED PKD TBL TESTED EARLIER WD160 FP141720 | 32140 -0520 00 0 32602 NZT WAC50 IS BIT NUMBER ZERO WD170 FP141730 | 32141 0020 00 0 32157 TRA WD300 YES WD180 FP141740 | 32142 0074 00 4 10507 TSX T0010,4 WD189 FP141750 32143 -1 10270 4 00000 STR 0,4,4280 BIT NUMBER NOT ZERO WD190 FP141760 | 32144 0754 00 1 00000 WD200 PXA 0,1 MOVE PARTIAL BLANK WD WD200 FP141770 | 32145 -0340 00 0 32602 LAS WAC50 WD210 FP141780 | 32146 0020 00 0 32150 TRA *+2 WD220 FP141790 | 32147 0020 00 0 32152 TRA *+3 WD230 FP141800 32150 0074 00 4 10507 TSX T0010,4 FP141810 | 32151 -1 11216 4 00000 STR 0,4,4750 BIT NUMBER ERROR WD240 FP141820 | 32152 0402 00 0 32571 SUB WAB40 36 WD250 FP141830 | 32153 0621 00 0 32155 STA *+2 WD260 FP141840 | 32154 -0500 00 0 32575 CAL WAB80 BLANK WORD WD270 FP141850 32155 0767 00 0 00000 ALS 0 WD280 FP141860 | 32156 0602 00 2 00000 SLW 0,2 WD290 FP141870 | 32157 0534 00 1 32574 WD300 LXA WAB70,1 SIZE TO XR 1 WD300 FP141880 | 32160 2 00044 1 32160 TIX *,1,36 WD310 FP141890 | 32161 0754 00 1 00000 PXA 0,1 WD320 FP141900 32162 0402 00 0 32571 SUB WAB40 36 WD330 FP141910 | 32163 0760 00 0 00003 SSP WD340 FP141920 | 32164 0402 00 0 32602 SUB WAC50 BIT NO WD350 FP141930 | 32165 -0120 00 0 32172 TMI WD420 IS SHIFT NEG WD360 FP141940 | 32166 0621 00 0 32243 STA WD790 INIT SHIFT WD370 FP141950 32167 0621 00 0 32302 STA WE170 WD380 FP141960 | 32170 0621 00 0 32332 STA WE470 WD390 FP141970 | 32171 0020 00 0 32204 TRA WD500 WD410 FP141980 | 32172 0400 00 0 32571 WD420 ADD WAB40 36 WD420 FP141990 | 32173 0621 00 0 32243 STA WD790 WD430 FP142000 32174 0621 00 0 32302 STA WE170 WD440 FP142010 | 32175 0621 00 0 32332 STA WE470 WD450 FP142020 | 32176 0500 00 0 32600 CLA WAC30 DECR U WD470 FP142030 | 32177 0100 00 0 32202 TZE *+3 WD475 FP142040 | 32200 0402 00 0 32566 SUB WAB10 WD480 FP142050 32201 0020 00 0 32203 TRA *+2 WD482 FP142060 | 32202 0760 00 0 00006 COM WD484 FP142070 | 32203 0621 00 0 32600 STA WAC30 WD490 FP142080 | 32204 0500 00 0 32574 WD500 CLA WAB70 SIZE WD500 FP142090 | 32205 0400 00 0 32602 ADD WAC50 BIT NO WD510 FP142100 32206 0734 00 1 00000 PAX 0,1 WD520 FP142110 | 32207 0500 00 0 32571 CLA WAB40 36 WD530 FP142120 | 32210 0402 00 0 32602 SUB WAC50 BIT NO. WD540 FP142130 | 32211 0621 00 0 32221 STA WD620 WD550 FP142140 | 32212 -2 00044 1 32311 TNX WE300,1,36 WD560 FP142150 1 LISTING OF 12/01/64 PAGE 297 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 32213 0131 00 0 00000 XCA INIT PZE WD570 FP142160 | 32214 0760 00 0 00000 CLM WD571 FP142170 32215 0220 00 0 32573 DVH WAB60 6 WD580 FP142180 | 32216 0131 00 0 00000 XCA WD590 FP142190 | 32217 0621 00 0 32251 STA WD850 WD600 FP142200 | 32220 -0500 00 0 11024 CAL BCD77 MOVE ZEROS TO PKD STORAGE WD610 FP142210 | 32221 0767 00 0 00000 WD620 ALS 0 * WD620 FP142220 32222 0320 00 2 00000 ANS 0,2 * WD630 FP142230 | 32223 1 77777 2 32224 WD640 TXI *+1,2,-1 WD640 FP142240 | 32224 3 44747 2 32227 TXH *+3,2,-WAC70 TEST STORAGE LIMIT WD650 FP142250 | 32225 0074 00 4 10507 TSX T0010,4 FP142260 | 32226 -1 11101 4 00000 STR 0,4,4673 EXCEED PKD TBL TESTED EARLIER WD660 FP142270 32227 -0500 00 0 32600 CAL WAC30 U WD670 FP142280 | 32230 -0501 00 0 32232 ORA *+2 WD680 FP142290 | 32231 0074 00 4 11413 TSX PRGMR,4 MOVE CAL WD690 FP142300 | 32232 -0500 00 1 00000 CAL 0,1 WD700 FP142310 | 32233 -0500 00 0 32600 CAL WAC30 U WD710 FP142320 32234 0400 00 0 32566 ADD WAB10 1 WD720 FP142330 | 32235 0621 00 0 32600 STA WAC30 UPDATE U WD730 FP142340 | 32236 -0501 00 0 32240 ORA *+2 WD740 FP142350 | 32237 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ WD750 FP142360 | 32240 0560 00 1 00000 LDQ 0,1 WD760 FP142370 32241 -0500 00 0 32243 CAL *+2 WD770 FP142380 | 32242 0074 00 4 11413 TSX PRGMR,4 MOVE LGL WD780 FP142390 | 32243 -0763 00 0 00000 WD790 LGL 0 WD790 FP142400 | 32244 -0500 00 0 32246 CAL *+2 WD800 FP142410 | 32245 0074 00 4 11413 TSX PRGMR,4 MOVE TSX WD810 FP142420 32246 0074 00 4 20777 TSX TO709,4 WD820 FP142430 | 32247 -0500 00 0 32251 CAL *+2 WD830 FP142440 | 32250 0074 00 4 11413 TSX PRGMR,4 MOVE PZE WD840 FP142450 | 32251 0 00000 0 00000 WD850 PZE 0 WD850 FP142460 | 32252 -0500 00 0 32601 CAL WAC40 C WD860 FP142470 32253 -0501 00 0 32255 ORA *+2 WD870 FP142480 | 32254 0074 00 4 11413 TSX PRGMR,4 MOVE ORS WD880 FP142490 | 32255 -0602 00 2 00000 ORS 0,2 WD890 FP142500 | 32256 0500 00 0 32601 CLA WAC40 C WD960 FP142510 | 32257 0400 00 0 32566 ADD WAB10 1 WD970 FP142520 32260 0601 00 0 32601 STO WAC40 UPDATE C WD980 FP142530 | 32261 -2 00044 1 32266 TNX WE050,1,36 WD990 FP142540 | 32262 0600 00 2 00000 STZ 0,2 WE010 FP142550 | 32263 0500 00 0 32573 CLA WAB60 6 WE020 FP142560 | 32264 0621 00 0 32251 STA WD850 INIT PZE WE030 FP142570 32265 0020 00 0 32223 TRA WD640 WE040 FP142580 | 32266 -0500 00 0 32600 WE050 CAL WAC30 U WE050 FP142590 | 32267 -0501 00 0 32271 ORA *+2 WE060 FP142600 | 32270 0074 00 4 11413 TSX PRGMR,4 MOVE CAL WE070 FP142610 | 32271 -0500 00 1 00000 CAL 0,1 WE080 FP142620 32272 -0500 00 0 32274 CAL *+2 WE090 FP142630 | 32273 0074 00 4 11413 TSX PRGMR,4 MOVE TSX WE100 FP142640 | 32274 0074 00 4 20777 TSX TO709,4 WE110 FP142650 | 32275 -0500 00 0 32277 CAL *+2 WE120 FP142660 | 32276 0074 00 4 11413 TSX PRGMR,4 MOVE PZE WE130 FP142670 32277 0 00000 0 00006 PZE 6 WE140 FP142680 | 32300 -0500 00 0 32302 CAL *+2 WE150 FP142690 | 32301 0074 00 4 11413 TSX PRGMR,4 MOVE ALS WE160 FP142700 | 1 LISTING OF 12/01/64 PAGE 298 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 32302 0767 00 0 00000 WE170 ALS 0 WE170 FP142710 | 32303 -0500 00 0 32601 CAL WAC40 C WE180 FP142720 | 32304 -0501 00 0 32306 ORA *+2 WE190 FP142730 | 32305 0074 00 4 11413 TSX PRGMR,4 MOVE ORS WE200 FP142740 32306 -0602 00 2 00000 ORS 0,2 WE210 FP142750 | 32307 0600 00 2 00000 STZ 0,2 WE280 FP142760 | 32310 0020 00 0 32337 TRA WE580 WE290 FP142770 | 32311 0560 00 0 32574 WE300 LDQ WAB70 INIT PZE WE300 FP142780 | 32312 0760 00 0 00000 CLM * WE310 FP142790 32313 0220 00 0 32573 DVH WAB60 6 WE320 FP142800 | 32314 0131 00 0 00000 XCA * WE330 FP142810 | 32315 0621 00 0 32327 STA WE440 * WE340 FP142820 | 32316 -0500 00 0 32600 CAL WAC30 U WE350 FP142830 | 32317 -0501 00 0 32321 ORA *+2 WE360 FP142840 32320 0074 00 4 11413 TSX PRGMR,4 MOVE CAL WE370 FP142850 | 32321 -0500 00 1 00000 CAL 0,1 WE380 FP142860 | 32322 -0500 00 0 32324 CAL *+2 WE390 FP142870 | 32323 0074 00 4 11413 TSX PRGMR,4 MOVE TSX WE400 FP142880 | 32324 0074 00 4 20777 TSX TO709,4 WE410 FP142890 32325 -0500 00 0 32327 CAL *+2 WE420 FP142900 | 32326 0074 00 4 11413 TSX PRGMR,4 MOVE PZE WE430 FP142910 | 32327 0 00000 0 00000 WE440 PZE 0 WE440 FP142920 | 32330 -0500 00 0 32332 CAL *+2 WE450 FP142930 | 32331 0074 00 4 11413 TSX PRGMR,4 MOVE ALS WE460 FP142940 32332 0767 00 0 00000 WE470 ALS 0 WE470 FP142950 | 32333 -0500 00 0 32601 CAL WAC40 C WE480 FP142960 | 32334 -0501 00 0 32336 ORA *+2 WE490 FP142970 | 32335 0074 00 4 11413 TSX PRGMR,4 MOVE ORS WE500 FP142980 | 32336 -0602 00 2 00000 ORS 0,2 WE510 FP142990 32337 3 00043 1 32342 WE580 TXH *+3,1,35 WE580 FP143000 | 32340 0634 00 1 32563 SXA WAA70,1 WE590 FP143010 | 32341 0020 00 0 32350 TRA WE650 WE600 FP143020 | 32342 0600 00 0 32563 STZ WAA70 WE610 FP143030 | 32343 1 77777 2 32344 TXI *+1,2,-1 WE620 FP143040 32344 0600 00 2 00000 STZ 0,2 WE630 FP143050 | 32345 3 44747 2 32350 TXH *+3,2,-WAC70 TEST STORAGE LIMIT WE640 FP143060 | 32346 0074 00 4 10507 TSX T0010,4 FP143070 | 32347 -1 11102 4 00000 STR 0,4,4674 EXCEED PKD TBL TESTED EARLIER WE641 FP143080 | 32350 0600 00 0 32562 WE650 STZ WAA60 ZERO TO BLANKS COUNTER WE650 FP143090 32351 0020 00 0 31664 TRA WB390 READ NEXT RECORD WE660 FP143100 | 32352 -0520 00 0 32562 WE670 NZT WAA60 IS BLANKS COUNTER ZERO WE670 FP143110 | 32353 0020 00 0 32423 TRA WF080 YES WE680 FP143120 | 32354 0500 00 0 32563 CLA WAA70 INIT SHIFT WITH OVERFLOW WE690 FP143130 | 32355 0621 00 0 32363 STA WE760 * WE700 FP143140 32356 0621 00 0 32417 STA WF040 * WE710 FP143150 | 32357 0400 00 0 32562 ADD WAA60 INIT XR 1 WE720 FP143160 | 32360 0734 00 1 00000 PAX 0,1 * WE730 FP143170 | 32361 -2 00044 1 32410 TNX WE960,1,36 WE740 FP143180 | 32362 -0500 00 0 32575 CAL WAB80 BLANK WORD WE750 FP143190 32363 0771 00 0 00000 WE760 ARS 0 WE760 FP143200 | 32364 0602 00 2 00000 SLW 0,2 WE770 FP143210 | 32365 1 77777 2 32366 WE780 TXI *+1,2,-1 WE780 FP143220 | 32366 3 44747 2 32371 TXH *+3,2,-WAC70 TEST STORAGE LIMIT WE790 FP143230 | 32367 0074 00 4 10507 TSX T0010,4 FP143240 32370 -1 11103 4 00000 STR 0,4,4675 EXCEED PKD TBL TESTED EARLIER WE800 FP143250 | 1 LISTING OF 12/01/64 PAGE 299 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 32371 -2 00044 1 32375 TNX WE850,1,36 WE810 FP143260 32372 -0500 00 0 32575 CAL WAB80 WE820 FP143270 | 32373 0602 00 2 00000 SLW 0,2 WE830 FP143280 | 32374 0020 00 0 32365 TRA WE780 WE840 FP143290 | 32375 -3 00043 1 32401 WE850 TXL WE890,1,35 WE850 FP143300 | 32376 -0500 00 0 32575 CAL WAB80 MOVE BLANK WORD WE860 FP143310 32377 0602 00 2 00000 SLW 0,2 * WE870 FP143320 | 32400 0020 00 0 32425 TRA WF100 WE880 FP143330 | 32401 0754 00 1 00000 WE890 PXA 0,1 MOVE PARTIAL BLANK WORD WE890 FP143340 | 32402 0402 00 0 32571 SUB WAB40 36 WE900 FP143350 | 32403 0621 00 0 32405 STA *+2 WE910 FP143360 32404 -0500 00 0 32575 CAL WAB80 BLANK WORD WE920 FP143370 | 32405 0767 00 0 00000 ALS 0 WE930 FP143380 | 32406 0602 00 2 00000 SLW 0,2 WE940 FP143390 | 32407 0020 00 0 32425 TRA WF100 WE950 FP143400 | 32410 0754 00 1 00000 WE960 PXA 0,1 WE960 FP143410 32411 0402 00 0 32571 SUB WAB40 36 WE970 FP143420 | 32412 0621 00 0 32414 STA *+2 WE980 FP143430 | 32413 -0500 00 0 11024 CAL BCD77 WE990 FP143440 | 32414 0767 00 0 00000 ALS 0 WF010 FP143450 | 32415 0602 00 0 32577 SLW WAC20 WF020 FP143460 32416 -0500 00 0 32575 CAL WAB80 BLANK WORD WF030 FP143470 | 32417 0771 00 0 00000 WF040 ARS 0 WF040 FP143480 | 32420 -0320 00 0 32577 ANA WAC20 MASK WF050 FP143490 | 32421 0602 00 2 00000 SLW 0,2 WF060 FP143500 | 32422 0020 00 0 32425 TRA WF100 WF070 FP143510 32423 -0520 00 0 32563 WF080 NZT WAA70 IS OVERFLOW ZERO WF080 FP143520 | 32424 0020 00 0 32426 TRA *+2 WF090 FP143530 | 32425 1 77777 2 32426 WF100 TXI *+1,2,-1 WF100 FP143540 | 32426 0754 00 2 00000 PXA 0,2 COMP XR2 WF110 FP143550 | 32427 0737 00 2 00000 PAC 0,2 * WF120 FP143560 32430 0634 00 2 32435 SXA WF220,2 WF140 FP143570 | 32431 0754 00 2 00000 PXA 0,2 WF150 FP143580 | 32432 0402 00 0 33031 SUB WAC80 WF160 FP143590 | 32433 0100 00 0 32440 TZE WF250 WF170 FP143600 | 32434 0734 00 2 00000 PAX 0,2 WF180 FP143610 32435 -0500 00 2 00000 WF220 CAL 0,2 MOVE WORD WF220 FP143620 | 32436 0074 00 4 11426 TSX STORR,4 * WF230 FP143630 | 32437 2 00001 2 32435 TIX WF220,2,1 WF240 FP143640 | 32440 -0520 00 0 32561 WF250 NZT WAA50 IS BINARY COUNTER ZERO WF250 FP143650 | 32441 0020 00 0 32446 TRA WF310 YES WF260 FP143660 32442 0534 00 1 32561 LXA WAA50,1 WF270 FP143670 | 32443 0760 00 0 00000 CLM ZERO TO STORR WF280 FP143680 | 32444 0074 00 4 11426 TSX STORR,4 * WF290 FP143690 | 32445 2 00001 1 32443 TIX *-2,1,1 * WF300 FP143700 | 32446 -0500 00 0 11436 WF310 CAL G0080 WF400 FP143710 32447 0402 00 0 32564 SUB WAA80 WF410 FP143720 | 32450 0322 00 0 32565 ERA WAA90 WF420 FP143730 | 32451 0100 00 0 32454 TZE *+3 WF430 FP143740 | 32452 0074 00 4 10507 TSX T0010,4 FP143750 | 32453 -1 10302 4 00000 STR 0,4,4290 REC LENGTH NOT EQ SKELETON SET UP WF440 FP143760 32454 0760 00 0 00000 CLM EXTRA WORD FOR INDEXING FP143770 | 32455 0074 00 4 11426 TSX STORR,4 FP143780 | 32456 -0500 00 0 11436 CAL G0080 WF450 FP143790 | 32457 0621 00 0 11464 STA J1020 WF460 FP143800 | 1 LISTING OF 12/01/64 PAGE 300 HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | | 32460 -0500 00 0 33032 CAL WAC90 WF470 FP143810 | 32461 0074 00 4 11457 TSX SADDR+3,4 WF480 FP143820 | 32462 -0500 00 0 32576 CAL WAB90 WF481 FP143830 32463 0771 00 0 00030 ARS 24 WF482 FP143840 | 32464 0074 00 4 32511 TSX WR010,4 24 WF483 FP143850 | 32465 -0500 00 0 32467 CAL *+2 WF490 FP143860 | 32466 0074 00 4 11413 TSX PRGMR,4 MOVE TRA WF500 FP143870 | 32467 0020 00 0 00000 TRA 0 WF510 FP143880 32470 -0500 00 0 33033 CAL WAD10 WF520 FP143890 | 32471 0074 00 4 11507 TSX YADDR,4 WF530 FP143900 | 32472 -0500 00 0 32576 CAL WAB90 RECORD TYPE WF540 FP143910 | 32473 0771 00 0 00006 ARS 6 WF550 FP143920 | 32474 -0501 00 0 33034 ORA WAD20 WF560 FP143930 32475 0074 00 4 11547 TSX M0010,4 WF570 FP143940 | 32476 -0500 00 0 32537 CAL WAA20 WF580 FP143950 | 32477 -0320 00 0 10765 ANA BCD40 WF590 FP143960 | 32500 -0340 00 0 32557 LAS WAA30+3 EXEC CODE P WF600 FP143970 | 32501 0020 00 0 32507 TRA *+6 WF610 FP143980 32502 0020 00 0 32504 TRA *+2 WF620 FP143990 | 32503 0020 00 0 31343 TRA WA180 NOT A P WF630 FP144000 | 32504 0074 00 4 06342 TSX TPOSIT,4 REPOSITION TO DICTIONARY WF640 FP144010 | 32505 0 00000 0 00007 PZE 7 WF645 FP144020 | 32506 0020 00 0 14043 TRA BA010 WF650 FP144030 32507 0074 00 4 10507 TSX T0010,4 FP144040 | 32510 -1 10314 4 00000 STR 0,4,4300 END OF DICT CODE GR TH P( UNIT 7 FP144050 | 32511 0634 00 4 32533 WR010 SXA WR180,4 WR010 FP144060 | 32512 0602 00 0 32535 SLW WR200 WR020 FP144070 | 32513 0774 00 4 00705 AXT SMZE,4 WR030 FP144080 32514 -0500 00 4 72453 CAL SUTBL+SMZE+1,4 WR040 FP144090 | 32515 0100 00 0 32530 TZE WR150 TO PUT STZ WR050 FP144100 | 32516 0771 00 0 00030 ARS 24 WR060 FP144110 | 32517 -0340 00 0 32535 LAS WR200 WR070 FP144120 | 32520 0020 00 0 32522 TRA *+2 WR080 FP144130 32521 0020 00 0 32525 TRA *+4 WR090 FP144140 | 32522 2 00003 4 32514 TIX *-6,4,3 WR100 FP144150 | 32523 0074 00 4 10507 TSX T0010,4 FP144160 | 32524 -1 06724 3 00000 STR 0,3,3540 REC TYPE NOT IN SUMM TBL(SUTBL) WR110 FP144170 | 32525 -0500 00 0 32527 CAL *+2 WR120 FP144180 32526 0020 00 0 32531 TRA *+3 WR130 FP144190 | 32527 -0625 00 0 22315 STL Y1006 SMRCD SW WR140 FP144200 | 32530 -0500 00 0 32532 WR150 CAL *+2 WR150 FP144210 | 32531 0074 00 4 11413 TSX PRGMR,4 WR160 FP144220 | 32532 0600 00 0 22315 STZ Y1006 SMRCD SW WR170 FP144230 32533 0774 00 4 00000 WR180 AXT 0,4 WR180 FP144240 | 32534 0020 00 4 00001 TRA 1,4 WR190 FP144250 | 32535 0 00000 0 00000 WR200 PZE 0 STORAGE. FOR LAS WR200 FP144260 | 32536 3 00015 0 32537 WAA10 IORT WAA20,0,13 WAA10 FP144270 | 32537 WAA20 BSS 13 WAA20 FP144280 32554 250000000000 WAA30 BCI 4,E00000F00000G00000P00000 WAA30 FP144290 | 32555 260000000000 | 32556 270000000000 | 32557 470000000000 | 32560 0 00000 0 11342 WAA40 PZE SFCUR WAA40 FP144300 32561 0 00000 0 00000 WAA50 PZE BINARY COUNTER WAA50 FP144310 | 32562 0 00000 0 00000 WAA60 PZE BLANKS COUNTER WAA60 FP144320 | 1 LISTING OF 12/01/64 PAGE 301 | HSKP2 (9PAC32). MISCELLANEOUS HOUSKEEPING ROUTINES | 32563 0 00000 0 00000 WAA70 PZE OVERFLOW COUNTER WAA70 FP144330 | 32564 0 00000 0 00000 WAA80 PZE RECORD TYPE WD NO WAA80 FP144340 | 32565 0 00000 0 00000 WAA90 PZE LENGTH OF RECORD WAA90 FP144350 | 32566 0 00000 0 00001 WAB10 PZE 1 1 WAB10 FP144360 | 32567 0 00000 0 00002 WAB20 PZE 2 2 WAB20 FP144370 32570 0 00000 0 00003 WAB30 PZE 3 3 WAB30 FP144380 | 32571 0 00000 0 00044 WAB40 PZE 36 36 WAB40 FP144390 | 32572 000000006060 WAB50 BCI 1,0000 WAB50 FP144400 | 32573 0 00000 0 00006 WAB60 PZE 6 6 WAB60 FP144410 | 32574 0 00000 0 00000 WAB70 PZE BIN SIZE WAB70 FP144420 32575 606060606060 WAB80 BCI 1, BLANK WORD WAB80 FP144430 | 32576 0 00000 0 00000 WAB90 PZE RECORD TYPE WAB90 FP144440 | 32577 0 00000 0 00000 WAC20 PZE MASK STORAGE WAC20 FP144450 | 32600 0 00000 0 00000 WAC30 PZE U WAC30 FP144460 | 32601 0 00000 0 00000 WAC40 PZE WORD NO C WAC40 FP144470 32602 0 00000 0 00000 WAC50 PZE BIT NO WAC50 FP144480 | 32603 WAC60 BSS 149 PACKED STORAGE WAC60 FP144490 | 33031 WAC70 BES 1 WAC70 FP144500 | 33031 0 00000 0 32603 WAC80 PZE WAC60 WAC80 FP144510 | 33032 0 00000 0 00000 WAC90 PZE SKEL PLUS 1 WD NO WAC90 FP144520 33033 +000063777777 WAD10 OCT 63777777 WAD10 FP144530 | 33034 -230000000000 WAD20 OCT 630000000000 WAD20 FP144540 | 33035 0 00000 0 00011 WJA01 PZE 9 WJA01 FP144550 | 33036 0 00000 0 00017 WJA02 PZE 15 WJA02 FP144560 | 33037 0 00000 0 00001 WJA03 PZE 1 WJA03 FP144570 33040 0 00000 0 00002 WJA04 PZE 2 WJA04 FP144580 | 33041 0 00000 0 00005 WJA05 PZE 5 WJA05 FP144590 | 33042 0 00000 0 00010 WJA06 PZE 8 WJA06 FP144600 | 33043 0 00000 0 00000 WJA07 PZE 0 PARENT REC TYPE WJA07 FP144610 | 33044 000000006060 WJA09 BCI 1,0000 WJA09 FP144620 33127 HSKP2 BES 50 FP144630 | 00000 TCD 0 FP144640 | *NEXT SERIALS START AT FP300000 FP144650 | 1 LISTING OF 12/01/64 PAGE 302 | CLNVER (9PAC41). VERTICAL CLEANUP FUNCTION | * FP144670 | * FP144680 | * FP144690 | * FP144700 * FP144710 | * FP144720 | * VERTICAL-SUMRESET RUN IN VJ000 FP144730 | * FP144740 | * FP144750 27174 ORG UDRPT+2 CLNVER FP144770 | 27174 114721230401 BCI 1,9PAC41 FP144780 | 27175 234345652551 BCI 1,CLNVER VERTICAL CLEANUP FP144790 | 00100 ORG SYSTRA FP144800 | 00100 0020 00 0 27415 TRA VJ820 FP144810 27176 ORG UDRPT+4 FP144820 | 27176 0774 00 4 00113 VJ010 AXT VTZE,4 VJ010 FP144830 | 27177 -0500 00 0 10771 CAL BCD44 VJ013 FP144840 | 27200 0320 00 0 27421 ANS VJA20 VJ014 FP144850 | 27201 0320 00 0 27422 ANS VJA30 VJ015 FP144860 27202 0320 00 0 27423 ANS VJA40 VJ016 FP144870 | 27203 -0520 00 4 67346 NZT VNTRY+VTZE,4 VJ020 FP144880 | 27204 0020 00 0 27210 TRA *+4 VJ030 FP144890 | 27205 2 00001 4 27203 TIX *-2,4,1 VJ040 FP144900 | 27206 0074 00 4 10507 TSX T0010,4 VJ049 FP144910 27207 -1 11660 5 00000 STR 0,5,5040 EXCEED 75 VERTICALS AND SUMRESETS VJ050 FP144920 | 27210 -0500 00 0 67172 CAL HEADR PRIORITY CODE VJ051 FP144930 | 27211 0771 00 0 00006 ARS 6 TO MASK VJ052 FP144940 | 27212 -0320 00 0 10755 ANA BCD30 VJ053 FP144950 | 27213 -0602 00 0 27421 ORS VJA20 VJ054 FP144960 27214 -0602 00 0 27422 ORS VJA30 VJ055 FP144970 | 27215 -0602 00 0 27423 ORS VJA40 VJ056 FP144980 | 27216 -0501 00 0 04401 ORA ADRES VJ090 FP144990 | 27217 0602 00 4 67346 SLW VNTRY+VTZE,4 VJ100 FP145000 | 27220 0621 00 0 27226 STA VJ150 VJ110 FP145010 27221 0621 00 0 27236 STA VJ230 VJ120 FP145020 | 27222 0400 00 0 27430 ADD VJA90 1 VJ121 FP145030 | 27223 0621 00 0 04401 STA ADRES VJ122 FP145040 | 27224 -0500 00 0 27226 CAL *+2 NZT VJ130 FP145050 | 27225 0074 00 4 11413 TSX PRGMR,4 VJ140 FP145060 27226 -0520 00 0 00000 VJ150 NZT 0 VJ150 FP145070 | 27227 -0500 00 0 27231 CAL *+2 TRA VJ160 FP145080 | 27230 0074 00 4 11413 TSX PRGMR,4 VJ170 FP145090 | 27231 0020 00 0 00000 TRA 0 VJ180 FP145100 | 27232 -0500 00 0 27420 CAL VJA10 3 VJ190 FP145110 27233 0074 00 4 11477 TSX GADDR,4 VJ200 FP145120 | 27234 -0500 00 0 27236 CAL *+2 STZ VJ210 FP145130 | 27235 0074 00 4 11413 TSX PRGMR,4 VJ220 FP145140 | 27236 0600 00 0 00000 VJ230 STZ 0 VJ230 FP145150 | 27237 -0500 00 0 67174 CAL HEADR+2 VJ2300FP145160 27240 0771 00 0 00022 ARS 18 VJ2300FP145170 | 27241 -0320 00 0 10730 ANA BCD03 VJ2300FP145180 | 27242 0074 00 4 11426 TSX STORR,4 VJ2300FP145190 | 27243 -0500 00 0 11342 CAL SFCUR VJ2300FP145200 | 27244 0400 00 0 11343 ADD SFLEN VJ2300FP145210 27245 0402 00 0 27430 SUB VJA90 1 VJ2300FP145220 | 1 LISTING OF 12/01/64 PAGE 303 | CLNVER (9PAC41). VERTICAL CLEANUP FUNCTION | | 27246 -0501 00 0 27250 ORA *+2 VJ2300FP145230 27247 0074 00 4 11413 TSX PRGMR,4 VJ2300FP145240 | 27250 -0500 00 0 00000 CAL 0 VJ2301FP145250 | 27251 -0500 00 0 27253 CAL *+2 VJ2301FP145260 | 27252 0074 00 4 11413 TSX PRGMR,4 VJ2301FP145270 | 27253 0322 00 0 00000 ERA 0 VJ2301FP145280 27254 0074 00 4 11454 TSX SADDR,4 VJ2301FP145290 | 27255 -0500 00 0 27257 CAL *+2 VJ2301FP145300 | 27256 0074 00 4 11413 TSX PRGMR,4 VJ2301FP145310 | 27257 -0100 00 0 00000 TNZ 0 VJ2301FP145320 | 27260 -0500 00 0 27420 CAL VJA10 3 VJ2301FP145330 27261 0074 00 4 11477 TSX GADDR,4 VJ2301FP145340 | 27262 -0500 00 0 67172 CAL HEADR VJ240 FP145350 | 27263 -0320 00 0 10726 ANA BCD01 VJ250 FP145360 | 27264 -0340 00 0 27424 LAS VJA50 V VJ260 FP145370 | 27265 0020 00 0 27267 TRA *+2 VJ270 FP145380 27266 0020 00 0 27273 TRA VJ320 VERTICAL VJ280 FP145390 | 27267 -0500 00 0 27421 CAL VJA20 VJ290 FP145400 | 27270 0074 00 4 11547 TSX M0010,4 VJ300 FP145410 | 27271 0074 00 4 27361 TSX VJ753,4 VJ305 FP145420 | 27272 0020 00 0 14043 TRA BA010 VJ310 FP145430 27273 -0500 00 0 67174 VJ320 CAL HEADR+2 VJ3200FP145440 | 27274 0771 00 0 00006 ARS 6 VJ3201FP145450 | 27275 -0320 00 0 10726 ANA BCD01 VJ3202FP145460 | 27276 -0340 00 0 27425 LAS VJA60 BLANK VJ3203FP145470 | 27277 0020 00 0 27301 TRA *+2 VJ3204FP145480 27300 0020 00 0 27311 TRA VJ328 YES VJ3205FP145490 | 27301 -0500 00 0 27303 CAL *+2 NO-DELETE UNLESS INSETY VJ3207FP145500 | 27302 0074 00 4 11413 TSX PRGMR,4 VJ3208FP145510 | 27303 0520 00 0 22205 ZET ISWCH VJ3209FP145520 | 27304 -0500 00 0 27306 CAL *+2 VJ3210FP145530 27305 0074 00 4 11413 TSX PRGMR,4 VJ3211FP145540 | 27306 0020 00 0 00000 TRA 0 VJ3212FP145550 | 27307 -0500 00 0 27420 CAL VJA10 3 VJ3213FP145560 | 27310 0074 00 4 11477 TSX GADDR,4 VJ3214FP145570 | 27311 -0500 00 0 27422 VJ328 CAL VJA30 VJ328 FP145580 27312 0074 00 4 11547 TSX M0010,4 VJ330 FP145590 | 27313 -0500 00 0 67174 CAL HEADR+2 VJ340 FP145600 | 27314 0771 00 0 00006 ARS 6 VJ350 FP145610 | 27315 -0320 00 0 10726 ANA BCD01 VJ360 FP145620 | 27316 -0340 00 0 27425 LAS VJA60 BLANK VJ370 FP145630 27317 0020 00 0 27321 TRA *+2 VJ380 FP145640 | 27320 0020 00 0 27350 TRA VJ710 VJ390 FP145650 | 27321 -0340 00 0 27426 LAS VJA70 D VJ400 FP145660 | 27322 0020 00 0 27324 TRA *+2 VJ410 FP145670 | 27323 0020 00 0 27340 TRA VJ540 D VJ420 FP145680 27324 -0340 00 0 27427 LAS VJA80 E VJ430 FP145690 | 27325 0020 00 0 27327 TRA *+2 VJ440 FP145700 | 27326 0020 00 0 27331 TRA *+3 E VJ450 FP145710 | 27327 0074 00 4 10507 TSX T0010,4 VJ459 FP145720 | 27330 -1 01131 2 14043 STR BA010,2,601 INVALID VERT RECORD ACTION VJ460 FP145730 27331 -0500 00 0 27333 CAL *+2 STL VJ470 FP145740 | 27332 0074 00 4 11413 TSX PRGMR,4 VJ480 FP145750 | 27333 -0625 00 0 22202 STL DSWCH VJ490 FP145760 | 27334 -0500 00 0 27336 CAL *+2 STL VJ500 FP145770 | 1 LISTING OF 12/01/64 PAGE 304 CLNVER (9PAC41). VERTICAL CLEANUP FUNCTION | | 27335 0074 00 4 11413 TSX PRGMR,4 VJ510 FP145780 | 27336 -0625 00 0 22201 STL ESWCH VJ520 FP145790 | 27337 0020 00 0 27346 TRA VJ600 VJ530 FP145800 27340 -0500 00 0 27342 VJ540 CAL *+2 STL VJ540 FP145810 | 27341 0074 00 4 11413 TSX PRGMR,4 VJ550 FP145820 | 27342 -0625 00 0 22202 STL DSWCH VJ560 FP145830 | 27343 -0500 00 0 27345 CAL *+2 STZ VJ570 FP145840 | 27344 0074 00 4 11413 TSX PRGMR,4 VJ580 FP145850 27345 0600 00 0 22201 STZ ESWCH VJ590 FP145860 | 27346 -0500 00 0 27423 VJ600 CAL VJA40 VJ600 FP145870 | 27347 0074 00 4 11547 TSX M0010,4 DUMP OBJ PGM VJ610 FP145880 | * CLEANUP VERTICAL INSERT REJECT RTN VJ700 FP145890 | 27350 -0500 00 0 27352 VJ710 CAL *+2 TRA-GE VJ710 FP145900 27351 0074 00 4 11413 TSX PRGMR,4 VJ720 FP145910 | 27352 0020 00 0 00000 TRA 0 VJ730 FP145920 | 27353 -0500 00 0 11030 CAL NMBR3 VJ740 FP145930 | 27354 0074 00 4 11477 TSX GADDR,4 VJ750 FP145940 | 27355 -0500 00 0 11343 CAL SFLEN VJ751 FP145950 27356 0621 00 0 27413 STA VJ770 VJ752 FP145960 | 27357 0074 00 4 27361 TSX VJ753,4 VJ7521FP145970 | 27360 0020 00 0 27412 TRA VJ760 VJ7522FP145980 | 27361 0634 00 4 27410 VJ753 SXA VJ756,4 VJ753 FP145990 | 27362 0774 00 4 00010 AXT 8,4 RESTORE VE9SEL STORAGE VJ7530FP146000 27363 0600 00 4 32145 STZ CQA10+8,4 VJ7530FP146010 | 27364 2 00001 4 27363 TIX *-1,4,1 VJ7530FP146020 | 27365 0600 00 0 32160 STZ CQC10 VJ7530FP146030 | 27366 0600 00 0 32161 STZ CQC20 VJ7530FP146040 | 27367 0600 00 0 32162 STZ CQC30 VJ7530FP146050 27370 0774 00 4 00011 AXT 9,4 VJ7530FP146060 | 27371 0600 00 4 32175 STZ CQC50+9,4 VJ7530FP146070 | 27372 2 00001 4 27371 TIX *-1,4,1 VJ7530FP146080 | 27373 0600 00 0 33412 STZ CAA10 VJ7540FP146090 | 27374 0600 00 0 33421 STZ CAA40 VJ7540FP146100 27375 0600 00 0 33425 STZ CAA80 VJ7540FP146110 | 27376 0600 00 0 33427 STZ CAB10 VJ7540FP146120 | 27377 0600 00 0 33430 STZ CAB20 VJ7540FP146130 | 27400 0600 00 0 33431 STZ CAB30 VJ7540FP146140 | 27401 0600 00 0 33432 STZ CAB40 VJ7540FP146150 27402 0600 00 0 33436 STZ CAB80 VJ7540FP146160 | 27403 0600 00 0 33440 STZ CAC20 VJ7540FP146170 | 27404 0600 00 0 33441 STZ CAC30 VJ7540FP146180 | 27405 0774 00 4 00062 AXT 50,4 VJ7550FP146190 | 27406 0600 00 4 32264 STZ CQE10+50,4 VJ7550FP146200 27407 2 00001 4 27406 TIX *-1,4,1 VJ7550FP146210 | 27410 0774 00 4 00000 VJ756 AXT ..,4 VJ7560FP146220 | 27411 0020 00 4 00001 TRA 1,4 VJ7561FP146230 | 27412 0074 00 4 15073 VJ760 TSX VV010,4 VJ760 FP146240 | 27413 -0 00000 0 00000 VJ770 MZE 0 VJ770 FP146250 27414 0 00000 0 00003 PZE 3 VJ780 FP146260 | 27415 0074 00 4 12507 VJ820 TSX MSYSRD,4 VJ820 FP146270 | 27416 114721230402 BCI 1,9PAC42 VERSEL FP146280 | 27417 0 01645 0 32346 PZE VESEL,,VESEL-CLNHO-2 FP146290 | 27420 0 00000 0 00003 VJA10 PZE 3 VJA10 FP146300 27421 -000000210000 VJA20 OCT 400000210000 VJA20 FP146310 | 27422 -120000210000 VJA30 OCT 520000210000 VJA30 FP146320 | 1 LISTING OF 12/01/64 PAGE 305 | CLNVER (9PAC41). VERTICAL CLEANUP FUNCTION | 27423 -120000450000 VJA40 OCT 520000450000 VJA40 FP146330 | 27424 000000000065 VJA50 BCI 1,00000V VJA50 FP146340 | 27425 000000000060 VJA60 BCI 1,00000 VJA60 FP146350 | 27426 000000000024 VJA70 BCI 1,00000D VJA70 FP146360 | 27427 000000000025 VJA80 BCI 1,00000E VJA80 FP146370 27430 0 00000 0 00001 VJA90 PZE 1 VJA90 FP146380 | 27513 CLNVE BES 50 FP146390 | 30477 CLNHO BES CLNHOZ SEE CLNHO1 FP146400 | 00000 TCD 0 FP146410 | 1 LISTING OF 12/01/64 PAGE 306 CLNVER (9PAC41). VERTICAL CLEANUP FUNCTION | | * FP146430 | 1 LISTING OF 12/01/64 PAGE 307 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | * FP146450 | * FP146460 | * FP146470 | * FP146480 * FP146490 | * VERTICAL SELECT FUNCTION FP146500 | * FP146510 | * FP146520 | * FP146530 30501 ORG CLNHO+2 VERSEL FP146550 | 30501 114721230402 BCI 1,9PAC42 FP146560 | 30502 652551622543 CQ000 BCI 1,VERSEL SEARCH CODE CQ000 FP146570 | 00100 ORG SYSTRA FP146580 | 00100 0020 00 0 32132 TRA CY120 FP146590 30503 ORG CLNHO+4 FP146600 | 30503 0020 00 0 31427 CQ010 TRA CU490 TO CLEAN UP CQ010 FP146610 | 30504 0441 00 0 04621 LDI CARD FOR SEL-NOT TEST CQ020 FP146620 | 30505 0520 00 0 32135 ZET CQA10 IS IT 1ST SEL-NOT CARD CQ030 FP146630 | 30506 0020 00 0 30546 TRA CQ360 * NO CQ040 FP146640 30507 -0500 00 0 11024 CAL BCD77 BUILD NON ZERO CQ050 FP146650 | 30510 0074 00 4 11426 TSX STORR,4 * CQ060 FP146660 | 30511 -0500 00 0 11436 CAL G0080 SAVE WD NO. CQ070 FP146670 | 30512 0621 00 0 32140 STA CQA40 * CQ080 FP146680 | 30513 0760 00 0 00000 CLM BUILD FLIP FLOP CQ090 FP146690 30514 0074 00 4 11426 TSX STORR,4 * CQ100 FP146700 | 30515 -0500 00 0 11436 CAL G0080 SAVE WD NO. CQ110 FP146710 | 30516 0621 00 0 32141 STA CQA50 * CQ120 FP146720 | 30517 -0500 00 0 30521 CAL *+2 BUILD STZ FF CQ130 FP146730 | 30520 0074 00 4 11413 TSX PRGMR,4 * CQ140 FP146740 30521 0600 00 0 00000 STZ 0 * CQ150 FP146750 | 30522 0074 00 4 11454 TSX SADDR,4 * CQ160 FP146760 | 30523 -0500 00 0 30525 CAL *+2 BUILD TRA *+3 CQ170 FP146770 | 30524 0074 00 4 11413 TSX PRGMR,4 * CQ180 FP146780 | 30525 0020 00 0 00000 TRA 0 * CQ190 FP146790 30526 0500 00 0 32151 CLA CQB30 * CQ200 FP146800 | 30527 0074 00 4 11465 TSX PADDR,4 * CQ210 FP146810 | 30530 -0500 00 0 30532 CAL *+2 BUILD LAC SFLOC,2 CQ220 FP146820 | 30531 0074 00 4 11413 TSX PRGMR,4 * CQ230 FP146830 | 30532 0535 00 2 17301 LAC SFLOC,2 * CQ240 FP146840 30533 -0500 00 0 11423 CAL F0080 SAVE WD NO CQ250 FP146850 | 30534 0621 00 0 32142 STA CQA60 * CQ260 FP146860 | 30535 -0500 00 0 30537 CAL *+2 BUILD TRA OUT CQ270 FP146870 | 30536 0074 00 4 11413 TSX PRGMR,4 * CQ280 FP146880 | 30537 0020 00 0 00000 TRA 0 * CQ290 FP146890 30540 0500 00 0 32151 CLA CQB30 * CQ300 FP146900 | 30541 0074 00 4 11477 TSX GADDR,4 * CQ310 FP146910 | 30542 -0500 00 0 67174 CAL HEADR+2 INIT HDR REC TYPE CQ320 FP146920 | 30543 0771 00 0 00022 ARS 18 * CQ330 FP146930 | 30544 -0320 00 0 10730 ANA BCD03 * CQ340 FP146940 30545 0602 00 0 32137 SLW CQA30 * CQ350 FP146950 | 30546 -0500 00 0 04622 CQ360 CAL CARD+1 BYPASS FLD 0001 SEL CQ360 FP146960 | 30547 0560 00 0 04623 LDQ CARD+2 CQ361 FP146970 | 30550 -0763 00 0 00022 LGL 18 CQ362 FP146980 | 30551 -0320 00 0 10744 ANA BCD17 CQ363 FP146990 30552 0322 00 0 32147 ERA CQB10 CQ364 FP147000 | 1 LISTING OF 12/01/64 PAGE 308 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | | 30553 -0100 00 0 30556 TNZ *+3 CQ365 FP147010 30554 0074 00 4 10507 TSX T0010,4 CQ366 FP147020 | 30555 -1 01230 2 14307 STR BB010,2,664 BY PASS FLD 0001 SEL CQ366 FP147030 | 30556 -0500 00 0 04622 CAL CARD+1 COMP REC TYPE-FLD NO. TO PRCQ366 FP147040 | 30557 0560 00 0 04623 LDQ CARD+2 * CQ370 FP147050 | 30560 -0765 00 0 00022 LGR 18 * CQ380 FP147060 30561 -0130 00 0 00000 XCL * CQ390 FP147070 | 30562 -0340 00 0 32135 LAS CQA10 * CQ400 FP147080 | 30563 0020 00 0 30565 TRA *+2 * NOT EQ CQ410 FP147090 | 30564 0020 00 0 31013 TRA CR800 * EQUAL CQ420 FP147100 | 30565 0602 00 0 32135 SLW CQA10 UPDATE PREV CQ430 FP147110 30566 -0520 00 0 32143 NZT CQA70 TEST SEL SW CQ440 FP147120 | 30567 0020 00 0 30622 TRA CQ700 * SW IS OFF CQ450 FP147130 | 30570 0600 00 0 32143 STZ CQA70 TURN OFF SEL SW CQ460 FP147140 | 30571 -0500 00 0 30573 CAL *+2 BUILD CLA FF CQ470 FP147150 | 30572 0074 00 4 11413 TSX PRGMR,4 * CQ480 FP147160 30573 0500 00 0 00000 CLA 0 * CQ490 FP147170 | 30574 0500 00 0 32141 CLA CQA50 * CQ500 FP147180 | 30575 0074 00 4 11455 TSX SADDR+1,4 * CQ510 FP147190 | 30576 -0500 00 0 30600 CAL *+2 BUILD TZE OUT OR *-N CQ520 FP147200 | 30577 0074 00 4 11413 TSX PRGMR,4 * CQ530 FP147210 30600 0100 00 0 00000 TZE 0 * CQ540 FP147220 | 30601 0520 00 0 32144 ZET CQA80 TEST LAC SW CQ550 FP147230 | 30602 0020 00 0 30610 TRA CQ600 * LAC SW IS ON CQ560 FP147240 | 30603 0500 00 0 32151 CLA CQB30 TZE OUT CQ570 FP147250 | 30604 0074 00 4 11477 TSX GADDR,4 * CQ580 FP147260 30605 0020 00 0 30615 TRA CQ650 * CQ590 FP147270 | 30606 0074 00 4 10507 CQ595 TSX T0010,4 CQ595 FP147280 | 30607 -1 01164 2 14307 STR BB010,2,628 SEL RT HIGHER THAN HDR CQ596 FP147290 | 30610 -0500 00 0 11423 CQ600 CAL F0080 TZE *-N CQ600 FP147300 | 30611 -0320 00 0 10730 ANA BCD03 * CQ610 FP147310 30612 0402 00 0 32142 SUB CQA60 * CQ620 FP147320 | 30613 -0760 00 0 00003 SSM * CQ630 FP147330 | 30614 0074 00 4 11465 TSX PADDR,4 CQ640 FP147340 | 30615 -0500 00 0 30617 CQ650 CAL *+2 CQ650 FP147350 | 30616 0074 00 4 11413 TSX PRGMR,4 CQ660 FP147360 30617 0600 00 0 00000 STZ 0 * CQ670 FP147370 | 30620 0500 00 0 32141 CLA CQA50 * CQ680 FP147380 | 30621 0074 00 4 11455 TSX SADDR+1,4 * CQ690 FP147390 | 30622 -0500 00 0 32135 CQ700 CAL CQA10 COMP REC TYPE TO HDR REC TYCQ700 FP147400 | 30623 0771 00 0 00030 ARS 24 * CQ710 FP147410 30624 -0340 00 0 32137 LAS CQA30 * CQ720 FP147420 | 30625 0020 00 0 30606 TRA CQ595 CQ730 FP147430 | 30626 0020 00 0 30660 TRA CR000 * EQ CQ740 FP147440 | 30627 -0340 00 0 32136 LAS CQA20 LOW-CIMP REC TYPE TO PREV CQ750 FP147450 | 30630 0020 00 0 30632 TRA *+2 * NOT EQ CQ760 FP147460 30631 0020 00 0 30644 TRA CQ880 * EQ CQ770 FP147470 | 30632 0602 00 0 32136 SLW CQA20 UPDATE PREV CQ780 FP147480 | 30633 0602 00 0 30635 SLW *+2 INIT DICT RECS FOR NEW REC CQ790 FP147490 | 30634 0074 00 4 13253 TSX D5010,4 * CQ800 FP147500 | 30635 0 00000 0 00000 PZE * CQ810 FP147510 30636 -0500 00 0 30640 CAL *+2 BUILD LAC 0,2 CQ820 FP147520 | 30637 0074 00 4 11413 TSX PRGMR,4 * CQ830 FP147530 | 30640 0535 00 2 00000 LAC 0,2 * CQ840 FP147540 | 30641 -0500 00 0 32136 CAL CQA20 * CQ850 FP147550 | 1 LISTING OF 12/01/64 PAGE 309 VERSEL (9PAC42). VERTICAL SELECT FUNCTION | | 30642 0074 00 4 11517 TSX LADDR,4 * CQ860 FP147560 | 30643 -0625 00 0 32144 STL CQA80 TURN ON LAC SW CQ870 FP147570 | 30644 -0500 00 0 32135 CQ880 CAL CQA10 INIT XR2 WITH FLD DICT CQ880 FP147580 30645 -0320 00 0 10744 ANA BCD17 * CQ890 FP147590 | 30646 0602 00 0 30650 SLW *+2 * CQ900 FP147600 | 30647 0074 00 4 13656 TSX E5010,4 * CQ910 FP147610 | 30650 0 00000 0 00000 PZE * CQ920 FP147620 | 30651 0500 00 0 13720 CLA E6004 MOVE SIZE, WD NO, + BIT NO CQ930 FP147630 30652 0601 00 0 13612 STO E1004 * CQ940 FP147640 | 30653 0500 00 0 13721 CLA E6005 * CQ950 FP147650 | 30654 0601 00 0 13613 STO E1005 * CQ960 FP147660 | 30655 0500 00 0 13722 CLA E6006 * CQ970 FP147670 | 30656 0601 00 0 13614 STO E1006 * CQ980 FP147680 30657 0020 00 0 30674 TRA CR120 CQ990 FP147690 | 30660 0602 00 0 32136 CR000 SLW CQA20 UPDATE PREV REC TYPE CR000 FP147700 | 30661 -0520 00 0 32144 NZT CQA80 TEST LAC SW CR010 FP147710 | 30662 0020 00 0 30667 TRA CR070 * SW IS OFF CR020 FP147720 | 30663 0600 00 0 32144 STZ CQA80 TURN OFF LAC SW CR030 FP147730 30664 -0500 00 0 30666 CAL *+2 BUILD LAC SFLOC,2 CR040 FP147740 | 30665 0074 00 4 11413 TSX PRGMR,4 * CR050 FP147750 | 30666 0535 00 2 17301 LAC SFLOC,2 * CR060 FP147760 | 30667 -0500 00 0 32135 CR070 CAL CQA10 INIT XR2 WITH FLD DICT CR070 FP147770 | 30670 -0320 00 0 10744 ANA BCD17 * CR080 FP147780 30671 0602 00 0 30673 SLW *+2 * CR090 FP147790 | 30672 0074 00 4 13550 TSX E0010,4 * CR100 FP147800 | 30673 0 00000 0 00000 PZE * CR110 FP147810 | 30674 -0500 00 2 00001 CR120 CAL 1,2 HAS FLD BEEN USED PREV CR120 FP147820 | 30675 0560 00 2 00002 LDQ 2,2 CR125 FP147830 30676 -0763 00 0 00006 LGL 6 CR130 FP147840 | 30677 -0320 00 0 11024 ANA BCD77 CR135 FP147850 | 30700 0774 00 1 00062 AXT 50,1 CR140 FP147860 | 30701 -0520 00 1 32264 CR145 NZT CQE10+50,1 CR145 FP147870 | 30702 0020 00 0 30713 TRA CR180 NO CR150 FP147880 30703 -0340 00 1 32264 LAS CQE10+50,1 COMPARE TO TABLE CR155 FP147890 | 30704 0020 00 0 30706 TRA *+2 CR160 FP147900 | 30705 0020 00 0 30711 TRA CR178 CR160 FP147910 | 30706 2 00001 1 30701 TIX CR145,1,1 MOD TO NEXT ENTRY CR170 FP147920 | 30707 0074 00 4 10507 TSX T0010,4 CR174 FP147930 30710 -1 12322 5 00000 STR 0,5,5330 EXCEED VER SEL FLD(50)TBL CR175 FP147940 | 30711 0074 00 4 10507 CR178 TSX T0010,4 CR178 FP147950 | 30712 -1 01165 2 14307 STR BB010,2,629 SEL RT USED PREVIOUSLY CR179 FP147960 | 30713 0602 00 1 32264 CR180 SLW CQE10+50,1 CR180 FP147970 | 30714 -0057 00 777777 RIL 777777 MODE TO LEFT INDICS CR200 FP147980 30715 -0500 00 2 00002 CAL 2,2 * CR210 FP147990 | 30716 -0320 00 0 11015 ANA BCD70 * CR220 FP148000 | 30717 0043 00 0 00000 OAI * CR230 FP148010 | 30720 -0054 00 000100 LFT 100 IS MODE BINARY CR240 FP148020 | 30721 0020 00 0 30773 TRA CR640 * NO-BCD CR250 FP148030 30722 -0500 00 0 13612 CAL E1004 CONVERT BIN SIZE TO EQUIV BCR260 FP148040 | 30723 0774 00 4 00000 AXT 0,4 * CR270 FP148050 | 30724 0774 00 1 00024 AXT 20,1 * CR280 FP148060 | 30725 1 00006 4 30726 CR290 TXI *+1,4,6 * CR290 FP148070 | 30726 -0340 00 1 11104 LAS EQUIV+21,1 * CR300 FP148080 30727 0020 00 0 30733 TRA *+4 CR310 FP148090 | 30730 0020 00 0 30735 TRA CR360 * MATCH CR320 FP148100 | 1 LISTING OF 12/01/64 PAGE 310 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | 30731 0074 00 4 10507 TSX T0010,4 CR325 FP148110 | 30732 -1 01175 2 14307 STR BB010,2,637 INVALID SF BINARY SIZE CR330 FP148120 | 30733 2 00002 1 30725 TIX CR290,1,2 * CR340 FP148130 | 30734 0020 00 0 30731 TRA *-3 ERROR--TABLE EXCEEDED CR350 FP148140 | 30735 0634 00 4 13612 CR360 SXA E1004,4 STORE EQUIV SIZE CR360 FP148150 30736 0754 00 4 00000 PXA 0,4 CALC PSUEDO BIT NO CR370 FP148160 | 30737 0402 00 0 32176 SUB CQD60 * 36 CR380 FP148170 | 30740 0100 00 0 30742 TZE *+2 * CR390 FP148180 | 30741 0120 00 0 30737 TPL *-2 * CR400 FP148190 | 30742 0621 00 0 30757 STA CR530 INIT ARS FOR LEFT MASK CR410 FP148200 30743 0602 00 0 13614 SLW E1006 PSUEDO BIT NO. VERSEL CR415 FP148210 | 30744 0400 00 0 32177 ADD CQD70 CALC LEFT SHIFT-ADD 18 CR420 FP148220 | 30745 0774 00 4 04623 CR430 AXT CARD+2,4 INIT XR4 TO CARD +2 CR430 FP148230 | 30746 0120 00 0 30752 TPL CR480 IS SHIFT POS OR ZERO CR440 FP148240 | 30747 0100 00 0 30752 TZE CR480 * CR450 FP148250 30750 0400 00 0 32176 ADD CQD60 NO-ADD 36 TO SHIFT CR460 FP148260 | 30751 1 77777 4 30752 TXI *+1,4,-1 DECR XR4 CR470 FP148270 | 30752 0621 00 0 32163 CR480 STA CQC40 INIT SHIFT AND AUX CR480 FP148280 | 30753 0621 00 0 32164 STA CQC50 * CR490 FP148290 | 30754 0634 00 4 32165 SXA CQC60,4 INIT 1ST WD PICK UP AND AUXCR500 FP148300 30755 0634 00 4 32166 SXA CQC70,4 * CR510 FP148310 | 30756 -0500 00 0 11024 CAL BCD77 BUILD LEFT MASK AND STORE CR520 FP148320 | 30757 0771 00 0 00000 CR530 ARS 0 * CR530 FP148330 | 30760 0602 00 0 32167 SLW CQC80 * CR540 FP148340 | 30761 -0774 00 4 04623 AXC CARD+2,4 RANGE TEST PREP CR550 FP148350 30762 0500 00 0 13612 CLA E1004 * SIZE +24 TO ACCUM CR560 FP148360 | 30763 0400 00 0 32175 ADD CQD50 * CR561 FP148370 | 30764 0402 00 0 32176 CR570 SUB CQD60 * 36 CR570 FP148380 | 30765 -0120 00 0 30770 TMI CR610 * CR580 FP148390 | 30766 0100 00 0 30770 TZE CR610 * CR590 FP148400 30767 1 77777 4 30764 TXI CR570,4,-1 * CR600 FP148410 | 30770 0621 00 0 31025 CR610 STA CR900 * INIT ARS OF HYPHEN CR610 FP148420 | 30771 0634 00 4 32171 SXA CQD10,4 * SAVE XR4 AS COMP OF HYPHECR620 FP148430 | 30772 0020 00 0 31024 TRA CR890 CR630 FP148440 | 30773 0500 00 0 13614 CR640 CLA E1006 BCD-INIT ARS FOR MASK WITH CR640 FP148450 30774 0621 00 0 30757 STA CR530 * CR650 FP148460 | 30775 0400 00 0 13612 ADD E1004 CALC + STORE SIZE + BIT NO CR660 FP148470 | 30776 0601 00 0 32172 STO CQD20 * CR670 FP148480 | 30777 -0056 00 000001 LNT 1 IS MODE UNPACKED CR680 FP148490 | 31000 0020 00 0 31010 TRA CR770 * YES CR690 FP148500 31001 0734 00 4 00000 PAX 0,4 INIT XR4 WITH SIZE + BIT NOCR700 FP148510 | 31002 2 00044 4 31002 TIX *,4,36 CR710 FP148520 | 31003 0634 00 4 31005 SXA *+2,4 INIT ARS FOR RT MASK CR720 FP148530 | 31004 -0500 00 0 11024 CAL BCD77 BUILD RT MASK + STORE CR730 FP148540 | 31005 0771 00 0 00000 ARS 0 * CR740 FP148550 31006 0760 00 0 00006 COM * CR750 FP148560 | 31007 0602 00 0 32170 SLW CQC90 * CR760 FP148570 | 31010 0500 00 0 32177 CR770 CLA CQD70 CALC LEFT SHIFT CR770 FP148580 | 31011 0402 00 0 13614 SUB E1006 * 18-BIT NO CR780 FP148590 | 31012 0020 00 0 30745 TRA CR430 CR790 FP148600 31013 -0057 00 777777 CR800 RIL 777777 MODE TO LEFT INDICS CR800 FP148610 | 31014 -0500 00 2 00002 CAL 2,2 - CR810 FP148620 | 31015 -0320 00 0 11015 ANA BCD70 * CR820 FP148630 | 31016 0043 00 0 00000 OAI * CR830 FP148640 | 31017 -0500 00 0 32164 CAL CQC50 RESTORE LEFT SHIFT CR840 FP148650 1 LISTING OF 12/01/64 PAGE 311 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | | 31020 0621 00 0 32163 STA CQC40 * CR850 FP148660 | 31021 -0500 00 0 32166 CAL CQC70 RESTORE 1ST WD PICK UP CR860 FP148670 31022 0621 00 0 32165 STA CQC60 * CR870 FP148680 | 31023 0534 00 4 32171 LXA CQD10,4 INIT XR4 TO HYPHEN WD COMPLCR880 FP148690 | 31024 -0500 00 4 00000 CR890 CAL 0,4 PICK UP HYPHEN WD CR890 FP148700 | 31025 0771 00 0 00000 CR900 ARS 0 * CR900 FP148710 | 31026 -0320 00 0 10726 ANA BCD01 * CR910 FP148720 31027 -0054 00 000100 LFT 100 IS MODE BINARY CR920 FP148730 | 31030 0020 00 0 31171 TRA CS920 * NO CR930 FP148740 | 31031 0602 00 0 32201 SLW CQD90 SAVE HYPHEN WORD TEMPOR CR940 FP148750 | 31032 0535 00 1 32165 LAC CQC60,1 INIT XR1 WITH COM OF 1ST WDCR950 FP148760 | 31033 -0500 00 1 00000 CAL 0,1 PICK UP 1ST WD CR960 FP148770 31034 1 77777 1 31035 TXI *+1,1,-1 * CR970 FP148780 | 31035 0560 00 1 00000 LDQ 0,1 * CR980 FP148790 | 31036 0522 00 0 32163 XEC CQC40 * CR990 FP148800 | 31037 -0320 00 0 32167 ANA CQC80 * CS000 FP148810 | 31040 0534 00 4 13612 LXA E1004,4 INIT XR4 WITH SIZE CS010 FP148820 31041 -3 00044 4 31047 TXL CS080,4,36 IS SIZE LARGER THAN 36 CS020 FP148830 | 31042 0602 00 0 07750 SLW B1010 1ST WD TO LEFT BUFFER CS030 FP148840 | 31043 -0500 00 1 00000 CAL 0,1 PICK UP 2ND WORD CS040 FP148850 | 31044 1 77777 1 31045 TXI *+1,1,-1 * CS050 FP148860 | 31045 0560 00 1 00000 LDQ 0,1 * CS060 FP148870 31046 0522 00 0 32163 XEC CQC40 * CS070 FP148880 | 31047 0602 00 0 07751 CS080 SLW B1020 WORD TO RT BUFFER CS080 FP148890 | 31050 0074 00 4 07570 TSX B0010,4 CONVERT VALUE TO BINARY CS090 FP148900 | 31051 -0500 00 0 07747 CAL B1000 BUILD VALUE CS110 FP148910 | 31052 0074 00 4 11426 TSX STORR,4 * CS120 FP148920 31053 -0500 00 0 32201 CAL CQD90 RANGE TEST CS130 FP148930 | 31054 0322 00 0 32145 ERA CQA90 * CS140 FP148940 | 31055 0100 00 0 31112 TZE CS440 * EQUAL CS150 FP148950 | 31056 0054 00 000001 RFT 1 SEL OR NOT TEST CS160 FP148960 | 31057 0020 00 0 31103 TRA CS370 * NOT CS170 FP148970 31060 0500 00 0 32153 CLA CQB50 INIT REL TRS-SEL VALUE BIN CS180 FP148980 | 31061 0601 00 0 32160 STO CQC10 * 5 TO J1 CS190 FP148990 | 31062 0500 00 0 32150 CLA CQB20 * CS200 FP149000 | 31063 0601 00 0 32161 STO CQC20 * 2 TO EQ CS210 FP149010 | 31064 0500 00 0 32151 CLA CQB30 * CS220 FP149020 31065 0601 00 0 32162 STO CQC30 * 3 TO LOW CS230 FP149030 | 31066 0074 00 4 31543 TSX CV270,4 1 WD BIN COM CS240 FP149040 | 31067 -0500 00 0 31071 CS250 CAL *+2 BUILD CLA NX CS250 FP149050 | 31070 0074 00 4 11413 TSX PRGMR,4 * CS260 FP149060 | 31071 0500 00 0 00000 CLA 0 * CS270 FP149070 31072 0500 00 0 32140 CLA CQA40 * CS280 FP149080 | 31073 0074 00 4 11455 TSX SADDR+1,4 * CS290 FP149090 | 31074 -0500 00 0 31076 CAL *+2 BUILD STO FF CS300 FP149100 | 31075 0074 00 4 11413 TSX PRGMR,4 * CS310 FP149110 | 31076 0601 00 0 00000 STO 0 * CS320 FP149120 31077 0500 00 0 32141 CLA CQA50 * CS330 FP149130 | 31100 0074 00 4 11455 TSX SADDR+1,4 * CS340 FP149140 | 31101 -0625 00 0 32143 STL CQA70 TURN ON SEL SW CS350 FP149150 | 31102 0020 00 0 14307 TRA BB010 TO FUNC CNTRL CS360 FP149160 | 31103 0500 00 0 32151 CS370 CLA CQB30 INIT REL TRS- NOT BIN VALUECS370 FP149170 31104 0601 00 0 32160 STO CQC10 * 3 TO H1 CS380 FP149180 | 31105 0600 00 0 32161 STZ CQC20 * 0 TO EQ CS390 FP149190 | 31106 0500 00 0 32147 CLA CQB10 * CS400 FP149200 | 1 LISTING OF 12/01/64 PAGE 312 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | 31107 0601 00 0 32162 STO CQC30 * 1 TO LOW CS410 FP149210 | 31110 0074 00 4 31543 TSX CV270,4 1 WD BIN COM CS420 FP149220 | 31111 0020 00 0 14307 TRA BB010 TO FUNC CNTRL CS430 FP149230 | 31112 0074 00 4 32116 CS440 TSX CY000,4 MODIFY TO HIGH VAL-BIN VAL CS440 FP149240 31113 0535 00 1 32165 LAC CQC60,1 INIT XR1 WITH COM OF 1ST WDCS450 FP149250 | 31114 -0500 00 1 00000 CAL 0,1 PICK UP 1ST WORD CS460 FP149260 | 31115 1 77777 1 31116 TXI *+1,1,-1 * CS470 FP149270 | 31116 0560 00 1 00000 LDQ 0,1 * CS480 FP149280 | 31117 0522 00 0 32163 XEC CQC40 * CS490 FP149290 31120 -0320 00 0 32167 ANA CQC80 * CS500 FP149300 | 31121 0534 00 4 13612 LXA E1004,4 INIT XR4 WITH SIZE CS510 FP149310 | 31122 -3 00044 4 31130 TXL CS580,4,36 IS SIZE LARGER THAN 36 CS520 FP149320 | 31123 0602 00 0 07750 SLW B1010 WORD TO LEFT BUFFER CS530 FP149330 | 31124 -0500 00 1 00000 CAL 0,1 PICK UP 2ND WD CS540 FP149340 31125 1 77777 1 31126 TXI *+1,1,-1 * CS550 FP149350 | 31126 0560 00 1 00000 LDQ 0,1 * CS560 FP149360 | 31127 0522 00 0 32163 XEC CQC40 * CS570 FP149370 | 31130 0602 00 0 07751 CS580 SLW B1020 WORD TO RT BUFFER CS580 FP149380 | 31131 0074 00 4 07570 TSX B0010,4 CONVERT VAL TO BINARY CS590 FP149390 31132 0500 00 0 32151 CLA CQB30 INIT H1 REL TO 3-BIN RGE CS610 FP149400 | 31133 0601 00 0 32160 STO CQC10 * CS620 FP149410 | 31134 0054 00 000001 RFT 1 SEL OR NOT TEST CS630 FP149420 | 31135 0020 00 0 31155 TRA CS800 * NOT CS640 FP149430 | 31136 0500 00 0 32155 CLA CQB70 INIT REL TRS-BIN RGE SEL CS650 FP149440 31137 0601 00 0 32161 STO CQC20 * 7 TO EQ CS660 FP149450 | 31140 0500 00 0 32156 CLA CQB80 * CS670 FP149460 | 31141 0601 00 0 32162 STO CQC30 * 8 TO LOW CS680 FP149470 | 31142 0074 00 4 31543 TSX CV270,4 1 WD BIN COM CS690 FP149480 | 31143 -0500 00 0 07747 CAL B1000 HIGH VAL TO STORR CS700 FP149490 31144 0074 00 4 11426 TSX STORR,4 * CS710 FP149500 | 31145 0500 00 0 32153 CLA CQB50 INIT REL TRS-BIN RGE H1 SELCS720 FP149510 | 31146 0601 00 0 32160 STO CQC10 * 5 TO H1 CS730 FP149520 | 31147 0500 00 0 32150 CLA CQB20 * CS740 FP149530 | 31150 0601 00 0 32161 STO CQC20 * 2 TO EQ CS750 FP149540 31151 0500 00 0 32147 CLA CQB10 * CS760 FP149550 | 31152 0601 00 0 32162 STO CQC30 * 1 TO LOW CS770 FP149560 | 31153 0074 00 4 31543 TSX CV270,4 1 WD BIN COM CS780 FP149570 | 31154 0020 00 0 31067 TRA CS250 CS790 FP149580 | 31155 0600 00 0 32161 CS800 STZ CQC20 INIT REL TRS-BIN RGE NOT CS800 FP149590 31156 0500 00 0 32154 CLA CQB60 * CS810 FP149600 | 31157 0601 00 0 32162 STO CQC30 * 6 TO LOW CS820 FP149610 | 31160 0074 00 4 31543 TSX CV270,4 1 WD BIN COM CS830 FP149620 | 31161 -0500 00 0 07747 CAL B1000 VALUE TO STORR CS840 FP149630 | 31162 0074 00 4 11426 TSX STORR,4 * CS850 FP149640 31163 0500 00 0 32151 CLA CQB30 INIT REL TRS-BIN H1 RGE NOTCS860 FP149650 | 31164 0601 00 0 32160 STO CQC10 * 3 TO H1 CS870 FP149660 | 31165 0600 00 0 32161 STZ CQC20 * 0 TO EQ CS880 FP149670 | 31166 0600 00 0 32162 STZ CQC30 * 0 TO LOW CS890 FP149680 | 31167 0074 00 4 31543 TSX CV270,4 1 WD BIN COM CS900 FP149690 31170 0020 00 0 14307 TRA BB010 TO FUNC CNTRL CS910 FP149700 | 31171 0534 00 4 32172 CS920 LXA CQD20,4 BCD-IS IT MUL WD VALUE CS920 FP149710 | 31172 3 00044 4 31262 TXH CT490,4,36 * YES CS930 FP149720 | 31173 0322 00 0 32145 ERA CQA90 RANGE TEST CS940 FP149730 | 31174 0100 00 0 31216 TZE CT130 * RANGE CS950 FP149740 31175 0054 00 000001 RFT 1 SEL OR NOT TEST CS960 FP149750 | 1 LISTING OF 12/01/64 PAGE 313 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | | 31176 0020 00 0 31207 TRA CT060 * NOT CS970 FP149760 31177 0500 00 0 32153 CLA CQB50 INIT REL TRS-SEL VAL 1 WD CS980 FP149770 | 31200 0601 00 0 32160 STO CQC10 * 5 TO H1 CS990 FP149780 | 31201 0500 00 0 32150 CLA CQB20 * CT000 FP149790 | 31202 0601 00 0 32161 STO CQC20 * 2 TO EQ CT010 FP149800 | 31203 0500 00 0 32151 CLA CQB30 * CT020 FP149810 31204 0601 00 0 32162 STO CQC30 * 3 TO LOW CT030 FP149820 | 31205 0074 00 4 31510 TSX CV000,4 1 WD BCD COM CT040 FP149830 | 31206 0020 00 0 31067 TRA CS250 CT050 FP149840 | 31207 0500 00 0 32151 CT060 CLA CQB30 INIT REL TRS-NOT RCD VAL 1 CT060 FP149850 | 31210 0601 00 0 32160 STO CQC10 * 3 TO H1 CT070 FP149860 31211 0600 00 0 32161 STZ CQC20 * 0 TO EQ CT080 FP149870 | 31212 0500 00 0 32147 CLA CQB10 * CT090 FP149880 | 31213 0601 00 0 32162 STO CQC30 * 1 TO LOW CT100 FP149890 | 31214 0074 00 4 31510 TSX CV000,4 1 WD BCD COM CT110 FP149900 | 31215 0020 00 0 14307 TRA BB010 CT120 FP149910 31216 0500 00 0 32151 CT130 CLA CQB30 INIT H1 REL TO 3-BCD RGE 1 CT130 FP149920 | 31217 0601 00 0 32160 STO CQC10 * CT140 FP149930 | 31220 0054 00 000001 RFT 1 SEL OR NOT TEST CT150 FP149940 | 31221 0020 00 0 31246 TRA CT370 * NOT CT160 FP149950 | 31222 -0054 00 000001 LFT 1 IS MODE UNPACKED CT170 FP149960 31223 0020 00 0 31230 TRA CT230 * PACKED CT180 FP149970 | 31224 0500 00 0 32155 CLA CQB70 INIT REL TRS-UNP SEL RCD RGCT190 FP149980 | 31225 0601 00 0 32161 STO CQC20 * 7 TO EQ CT200 FP149990 | 31226 0500 00 0 32156 CLA CQB80 * 8 TO LOW CT210 FP150000 | 31227 0020 00 0 31233 TRA CT260 CT220 FP150010 31230 0500 00 0 32156 CT230 CLA CQB80 INIT REL TRS-PCK CT230 FP150020 | 31231 0601 00 0 32161 STO CQC20 * 8 TO EQ CT240 FP150030 | 31232 0500 00 0 32157 CLA CQB90 * 9 TO LOW CT250 FP150040 | 31233 0601 00 0 32162 CT260 STO CQC30 * CT260 FP150050 | 31234 0074 00 4 31510 TSX CV000,4 1 WD BCD COM CT270 FP150060 31235 0074 00 4 32116 TSX CY000,4 MODIFY TO HIGH VAL CT280 FP150070 | 31236 0500 00 0 32153 CLA CQB50 INIT REL TRS-SEL RGE RCD 1 CT290 FP150080 | 31237 0601 00 0 32160 STO CQC10 * 5 TO H1 CT300 FP150090 | 31240 0500 00 0 32150 CLA CQB20 * CT310 FP150100 | 31241 0601 00 0 32161 STO CQC20 * 2 TO EQ CT320 FP150110 31242 0500 00 0 32147 CLA CQB10 * CT330 FP150120 | 31243 0601 00 0 32162 STO CQC30 * 1 TO LOW CT340 FP150130 | 31244 0074 00 4 31510 TSX CV000,4 1 WD BCD COM CT350 FP150140 | 31245 0020 00 0 31067 TRA CS250 CT360 FP150150 | 31246 0600 00 0 32161 CT370 STZ CQC20 INIT EQ REL TO ZERO-NOT BCDCT370 FP150160 31247 -0054 00 000001 LFT 1 IS MODE UNPACKED CT380 FP150170 | 31250 0020 00 0 31253 TRA CT420 * PACKED CT390 FP150180 | 31251 0500 00 0 32154 CLA CQB60 INIT LOW REL TO 6 CT400 FP150190 | 31252 0020 00 0 31254 TRA *+2 CT410 FP150200 | 31253 0500 00 0 32155 CT420 CLA CQB70 INIT LOW REL TO 7 CT420 FP150210 31254 0601 00 0 32162 STO CQC30 * CT430 FP150220 | 31255 0074 00 4 31510 TSX CV000,4 1 WD BCD COM CT440 FP150230 | 31256 0074 00 4 32116 TSX CY000,4 MOD TO H1 VAL CT450 FP150240 | 31257 0600 00 0 32162 STZ CQC30 INIT LOW REL TO 0 CT460 FP150250 | 31260 0074 00 4 31510 TSX CV000,4 1 WD BCD COM CT470 FP150260 31261 0020 00 0 14307 TRA BB010 TO FUNC CNTRL CT480 FP150270 | 31262 0774 00 1 00000 CT490 AXT 0,1 MUL WD RCD-CALC 5N CT490 FP150280 | 31263 0534 00 4 32172 LXA CQD20,4 * SIZE + BIT NO TO XR4 CT500 FP150290 | 31264 1 77734 4 31265 TXI *+1,4,-36 * CT510 FP150300 | 1 LISTING OF 12/01/64 PAGE 314 VERSEL (9PAC42). VERTICAL SELECT FUNCTION | | 31265 -2 00044 4 31267 TNX *+2,4,36 * CT520 FP150310 | 31266 1 00005 1 31265 TXI *-1,1,5 * CT530 FP150320 | 31267 0634 00 1 32174 SXA CQD40,1 * STORE XR1 AS 5N CT540 FP150330 31270 0322 00 0 32145 ERA CQA90 RANGE TEST CT550 FP150340 | 31271 0100 00 0 31327 TZE CT850 * RANGE CT560 FP150350 | 31272 0054 00 000001 RFT 1 SEL OR NOT TEST CT570 FP150360 | 31273 0020 00 0 31312 TRA CT720 * NOT CT580 FP150370 | 31274 0500 00 0 32150 CLA CQB20 INIT EQ REL TO 2 CT590 FP150380 31275 0601 00 0 32161 STO CQC20 * CT600 FP150390 | 31276 -0054 00 000001 LFT 1 IS MODE UNPACKED CT610 FP150400 | 31277 0020 00 0 31303 TRA CT660 * PACKED CT620 FP150410 | 31300 0500 00 0 32174 CLA CQD40 INIT REL TRS-UNP SEL VAL CT630 FP150420 | 31301 0400 00 0 32156 ADD CQB80 * 5N+8 TO LO CT640 FP150430 31302 0020 00 0 31305 TRA CT680 * 5N+10 TO H1 CT650 FP150440 | 31303 0500 00 0 32174 CT660 CLA CQD40 INIT REL TRS-PCK SEL VAL CT660 FP150450 | 31304 0400 00 0 32157 ADD CQB90 * 5N+9 TO LO CT670 FP150460 | 31305 0601 00 0 32162 CT680 STO CQC30 * CT680 FP150470 | 31306 0400 00 0 32150 ADD CQB20 * 5N+11 TO H1 CT690 FP150480 31307 0601 00 0 32160 STO CQC10 * CT700 FP150490 | 31310 0074 00 4 31625 TSX CW000,4 MUL WD RCD COM CT710 FP150500 | 31311 0020 00 0 31067 TRA CS250 CT711 FP150510 | 31312 0600 00 0 32161 CT720 STZ CQC20 NOT-INIT EQ REL TO 0 CT720 FP150520 | 31313 -0054 00 000001 LFT 1 IS MODE UNPACKED CT730 FP150530 31314 0020 00 0 31320 TRA CT780 * PACKED CT740 FP150540 | 31315 0500 00 0 32174 CLA CQD40 INIT REL TRS-UNP NOT CT750 FP150550 | 31316 0400 00 0 32154 ADD CQB60 * 5N+6 TO LO CT760 FP150560 | 31317 0020 00 0 31322 TRA CT800 * 5N+8 TO H1 CT770 FP150570 | 31320 0500 00 0 32174 CT780 CLA CQD40 INIT REL TRS-PCK NOT CT780 FP150580 31321 0400 00 0 32155 ADD CQB70 * 5N+7 TO LO CT790 FP150590 | 31322 0601 00 0 32162 CT800 STO CQC30 * CT800 FP150600 | 31323 0400 00 0 32150 ADD CQB20 * 5N+9 TO H1 CT810 FP150610 | 31324 0601 00 0 32160 STO CQC10 * CT820 FP150620 | 31325 0074 00 4 31625 TSX CW000,4 MUL WD BCD COM CT830 FP150630 31326 0020 00 0 14307 TRA BB010 TO FUNC CNTRL CT840 FP150640 | 31327 0054 00 000001 CT850 RFT 1 SEL OR NOT TEST CT850 FP150650 | 31330 0020 00 0 31373 TRA CU210 * NOT CT860 FP150660 | 31331 -0054 00 000001 LFT 1 IS MODE UNPACKED CT870 FP150670 | 31332 0020 00 0 31350 TRA CU020 * PACKED CT880 FP150680 31333 0500 00 0 32174 CLA CQD40 INIT REL TRS-UNP SEL MUL WDCT890 FP150690 | 31334 0400 00 0 32156 ADD CQB80 * CT900 FP150700 | 31335 0601 00 0 32160 STO CQC10 * 5N+8 TO H1 CT910 FP150710 | 31336 0400 00 0 32152 ADD CQB40 * 5N+12 TO EQ CT920 FP150720 | 31337 0601 00 0 32161 STO CQC20 * CT930 FP150730 31340 0400 00 0 32174 ADD CQD40 * CT940 FP150740 | 31341 0400 00 0 32154 ADD CQB60 * CT950 FP150750 | 31342 0601 00 0 32162 STO CQC30 * 10N+18 TO LOW CT960 FP150760 | 31343 0074 00 4 31625 TSX CW000,4 MUL WD BCD COM CT970 FP150770 | 31344 0074 00 4 32116 TSX CY000,4 MOD TO H1 VAL CT980 FP150780 31345 0500 00 0 32174 CLA CQD40 INIT REL TRS-H1 VAL CT990 FP150790 | 31346 0400 00 0 32154 ADD CQB60 * 5N+6 TO LO CU000 FP150800 | 31347 0020 00 0 31364 TRA CU140 * 5N+10 TO H1,2 TO EQ CU010 FP150810 | 31350 0500 00 0 32174 CU020 CLA CQD40 INIT REL TRS-PCK SEL BCD MUCU020 FP150820 | 31351 0400 00 0 32157 ADD CQB90 * 5N+9 TO H1 CU030 FP150830 31352 0601 00 0 32160 STO CQC10 * CU040 FP150840 | 31353 0400 00 0 32153 ADD CQB50 * 5N+14 TO EQ CU050 FP150850 | 1 LISTING OF 12/01/64 PAGE 315 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | 31354 0601 00 0 32161 STO CQC20 * CU060 FP150860 | 31355 0400 00 0 32174 ADD CQD40 * CU070 FP150870 | 31356 0400 00 0 32155 ADD CQB70 * 1ON+21 TO LO CU080 FP150880 | 31357 0601 00 0 32162 STO CQC30 * CU090 FP150890 | 31360 0074 00 4 31625 TSX CW000,4 MUL WD BCD COM CU100 FP150900 31361 0074 00 4 32116 TSX CY000,4 MOD TO H1 VAL CU110 FP150910 | 31362 0500 00 0 32174 CLA CQD40 INIT REL TRS-H1 VAL CU120 FP150920 | 31363 0400 00 0 32155 ADD CQB70 * 5N+7 TO LO CU130 FP150930 | 31364 0601 00 0 32162 CU140 STO CQC30 * CU140 FP150940 | 31365 0400 00 0 32152 ADD CQB40 * 5N+11 TO H1 CU150 FP150950 31366 0601 00 0 32160 STO CQC10 * CU160 FP150960 | 31367 0500 00 0 32150 CLA CQB20 * 2 TO EQ CU170 FP150970 | 31370 0601 00 0 32161 STO CQC20 * CU180 FP150980 | 31371 0074 00 4 31625 TSX CW000,4 MUL WD RCD COM CU190 FP150990 | 31372 0020 00 0 31067 TRA CS250 CU200 FP151000 31373 0600 00 0 32161 CU210 STZ CQC20 NOT-INIT EQ REL TO 0 CU210 FP151010 | 31374 -0054 00 000001 LFT 1 IS MODE UNPACKED CU220 FP151020 | 31375 0020 00 0 31411 TRA CU350 * PACKED CU230 FP151030 | 31376 0500 00 0 32174 CLA CQD40 INIT REL TRS-UNP NOT CU240 FP151040 | 31377 0400 00 0 32156 ADD CQB80 * CU250 FP151050 31400 0601 00 0 32160 STO CQC10 * 5N+8 TO J1 CU260 FP151060 | 31401 0400 00 0 32174 ADD CQD40 * CU270 FP151070 | 31402 0400 00 0 32156 ADD CQB80 * CU280 FP151080 | 31403 0601 00 0 32162 STO CQC30 * 1ON+16 TO LO CU290 FP151090 | 31404 0074 00 4 31625 TSX CW000,4 MUL WD BCD COM CU300 FP151100 31405 0074 00 4 32116 TSX CY000,4 MOD TO H1 VAL CU310 FP151110 | 31406 0500 00 0 32174 CLA CQD40 INIT REL TRS-H1 VAL CU320 FP151120 | 31407 0400 00 0 32156 ADD CQB80 * 5N+8 TO H1 CU330 FP151130 | 31410 0020 00 0 31423 TRA CU450 CU340 FP151140 | 31411 0500 00 0 32174 CU350 CLA CQD40 INIT REL TRS-PCK NOT CU350 FP151150 31412 0400 00 0 32157 ADD CQB90 * 5N+9 TO H1 CU360 FP151160 | 31413 0601 00 0 32160 STO CQC10 * CU370 FP151170 | 31414 0400 00 0 32174 ADD CQD40 * CU380 FP151180 | 31415 0400 00 0 32146 ADD CQB00 * CU390 FP151190 | 31416 0601 00 0 32162 STO CQC30 - CU400 FP151200 31417 0074 00 4 31625 TSX CW000,4 MUL WD BCD COM CU410 FP151210 | 31420 0074 00 4 32116 TSX CY000,4 MOD TO H1 VAL CU420 FP151220 | 31421 0500 00 0 32174 CLA CQD40 INIT REL TRS-H1 VAL CU430 FP151230 | 31422 0400 00 0 32157 ADD CQB90 * 5N+9 TO H1 CU440 FP151240 | 31423 0601 00 0 32160 CU450 STO CQC10 - CU450 FP151250 31424 0600 00 0 32162 STZ CQC30 * 0 TO LO CU460 FP151260 | 31425 0074 00 4 31625 TSX CW000,4 MUL WD BCD COM CU470 FP151270 | 31426 0020 00 0 14307 TRA BB010 TO FUNC CNTRL CU480 FP151280 | 31427 -0520 00 0 32144 CU490 NZT CQA80 CLEAN UP-TEST LAC SW CU490 FP151290 | 31430 0020 00 0 31434 TRA CU540 * SW IS OFF CU500 FP151300 31431 -0500 00 0 31433 CAL *+2 BUILD LAC SFLOC,2 CU510 FP151310 | 31432 0074 00 4 11413 TSX PRGMR,4 * CU520 FP151320 | 31433 0535 00 2 17301 LAC SFLOC,2 * CU530 FP151330 | 31434 -0520 00 0 32143 CU540 NZT CQA70 TEST SEL SW CU540 FP151340 | 31435 0020 00 0 31450 TRA CU660 * SW IS OFF CU550 FP151350 31436 -0500 00 0 31440 CAL *+2 BUILD CLA FF CU560 FP151360 | 31437 0074 00 4 11413 TSX PRGMR,4 * CU570 FP151370 | 31440 0500 00 0 00000 CLA 0 * CU580 FP151380 | 31441 0500 00 0 32141 CLA CQA50 * CU590 FP151390 | 31442 0074 00 4 11455 TSX SADDR+1,4 * CU600 FP151400 1 LISTING OF 12/01/64 PAGE 316 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | | 31443 -0500 00 0 31445 CAL *+2 BUILD TZE OUT CU610 FP151410 | 31444 0074 00 4 11413 TSX PRGMR,4 * CU620 FP151420 31445 0100 00 0 00000 TZE 0 * CU630 FP151430 | 31446 0500 00 0 32151 CLA CQB30 * CU640 FP151440 | 31447 0074 00 4 11477 TSX GADDR,4 * CU650 FP151450 | 31450 -0500 00 0 67172 CU660 CAL HEADR CU660 FP151460 | 31451 0771 00 0 00006 ARS 6 CU670 FP151470 31452 -0320 00 0 10755 ANA BCD30 CU680 FP151480 | 31453 0602 00 0 31506 SLW CU820 CU741 FP151490 | 31454 -0500 00 0 67172 CAL HEADR CU7410FP151500 | 31455 0771 00 0 00030 ARS 24 CU7411FP151510 | 31456 -0501 00 0 31460 ORA *+2 CU7412FP151520 31457 0074 00 4 11413 TSX PRGMR,4 CU7413FP151530 | 31460 0761 00 0 00000 NOP CU7414FP151540 | 31461 -0500 00 0 31463 CAL *+2 CU7415FP151550 | 31462 0074 00 4 11413 TSX PRGMR,4 CU7416FP151560 | 31463 0761 00 0 00000 NOP CU7417FP151570 31464 -0500 00 0 31466 CAL *+2 CU7418FP151580 | 31465 0074 00 4 11413 TSX PRGMR,4 CU7419FP151590 | 31466 0074 00 4 22524 TSX PRICT,4 CU7420FP151600 | 31467 -0500 00 0 67172 CAL HEADR DETERMINE AREA CODE CU742 FP151610 | 31470 -0320 00 0 10726 ANA BCD01 CU743 FP151620 31471 -0340 00 0 31507 LAS CU830 CU744 FP151630 | 31472 0020 00 0 31474 TRA *+2 CU745 FP151640 | 31473 0020 00 0 31476 TRA *+3 IS V CU746 FP151650 | 31474 -0500 00 0 31505 CAL CU810 IS SET CU747 FP151660 | 31475 0020 00 0 31477 TRA *+2 CU748 FP151670 31476 -0500 00 0 31504 CAL CU800 CU749 FP151680 | 31477 -0501 00 0 31506 ORA CU820 CU750 FP151690 | 31500 0074 00 4 11547 TSX M0010,4 CU760 FP151700 | 31501 -0520 00 0 14512 NZT BAE80 CU770 FP151710 | 31502 0020 00 0 14403 TRA BB360 CU780 FP151720 31503 0020 00 0 14341 TRA BB180 CU790 FP151730 | 31504 -120000240000 CU800 OCT 520000240000 CU800 FP151740 | 31505 -000000240000 CU810 OCT 400000240000 CU810 FP151750 | 31506 0 00000 0 00000 CU820 PZE 0 CU820 FP151760 | 31507 000000000065 CU830 BCI 1,00000V CU830 FP151770 31510 0634 00 4 31623 CV000 SXA CV750,4 1 WD BCD COMP CV000 FP151780 | 31511 0535 00 1 32165 LAC CQC60,1 INIT XR1 TO COMPL OF 1ST WDCV010 FP151790 | 31512 0500 00 0 13613 CLA E1005 BUILD CAL C,2 CV020 FP151800 | 31513 -0501 00 0 31515 ORA *+2 * CV030 FP151810 | 31514 0074 00 4 11413 TSX PRGMR,4 * CV040 FP151820 31515 -0500 00 2 00000 CAL 0,2 * CV050 FP151830 | 31516 -0056 00 000001 LNT 1 IS MODE UNPACKED CV060 FP151840 | 31517 0020 00 0 31530 TRA CV160 * YES CV070 FP151850 | 31520 -0500 00 0 32170 CAL CQC90 COMBINE MASKS CV080 FP151860 | 31521 0320 00 0 32167 ANS CQC80 * CV090 FP151870 31522 -0500 00 0 32167 CAL CQC80 * CV100 FP151880 | 31523 0074 00 4 11426 TSX STORR,4 TO OBJECT STOR CV110 FP151890 | 31524 -0500 00 0 31526 CAL *+2 BUILD ANA MASK CV120 FP151900 | 31525 0074 00 4 11413 TSX PRGMR,4 * CV130 FP151910 | 31526 -0320 00 0 00000 ANA 0 * CV140 FP151920 31527 0074 00 4 11454 TSX SADDR,4 * CV150 FP151930 | 31530 -0500 00 1 00000 CV160 CAL 0,1 LOAD VALUE CV160 FP151940 | 31531 1 77777 1 31532 TXI *+1,1,-1 * CV170 FP151950 | 1 LISTING OF 12/01/64 PAGE 317 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | 31532 0560 00 1 00000 LDQ 0,1 - CV180 FP151960 | 31533 0522 00 0 32163 XEC CQC40 * CV190 FP151970 | 31534 -0320 00 0 32167 ANA CQC80 * CV200 FP151980 | 31535 0074 00 4 11426 TSX STORR,4 VALUE TO OBJECT STOR CV210 FP151990 31536 -0500 00 0 31540 CAL *+2 BUILD LAS VALUE CV220 FP152000 | 31537 0074 00 4 11413 TSX PRGMR,4 * CV230 FP152010 | 31540 -0340 00 0 00000 LAS 0 * CV240 FP152020 | 31541 0074 00 4 11454 TSX SADDR,4 * CV250 FP152030 | 31542 0020 00 0 31554 TRA CV360 CV260 FP152040 31543 0634 00 4 31623 CV270 SXA CV750,4 1 WD BIN COM CV270 FP152050 | 31544 0500 00 0 13613 CLA E1005 BUILD CLA C,2 CV280 FP152060 | 31545 -0501 00 0 31547 ORA *+2 * CV290 FP152070 | 31546 0074 00 4 11413 TSX PRGMR,4 * CV300 FP152080 | 31547 0500 00 2 00000 CLA 0,2 * CV310 FP152090 31550 -0500 00 0 31552 CAL *+2 BUILD CAS VALUE CV320 FP152100 | 31551 0074 00 4 11413 TSX PRGMR,4 * CV330 FP152110 | 31552 0340 00 0 00000 CAS 0 - CV340 FP152120 | 31553 0074 00 4 11454 TSX SADDR,4 * CV350 FP152130 | 31554 -0500 00 0 31556 CV360 CAL *+2 BUILD TRA H1 REL CV360 FP152140 31555 0074 00 4 11413 TSX PRGMR,4 * CV370 FP152150 | 31556 0020 00 0 00000 TRA 0 * CV380 FP152160 | 31557 0500 00 0 32160 CLA CQC10 * CV390 FP152170 | 31560 0074 00 4 11465 TSX PADDR,4 * CV400 FP152180 | 31561 -0500 00 0 31563 CAL *+2 BUILD TRA EQ CV410 FP152190 31562 0074 00 4 11413 TSX PRGMR,4 * CV420 FP152200 | 31563 0020 00 0 00000 TRA 0 * CV430 FP152210 | 31564 0500 00 0 32161 CLA CQC20 * IS EQ REL ZERO CV440 FP152220 | 31565 0100 00 0 31570 TZE *+3 * YES CV450 FP152230 | 31566 0074 00 4 11465 TSX PADDR,4 * CV460 FP152240 31567 0020 00 0 31602 TRA CV580 * CV470 FP152250 | 31570 0520 00 0 32144 ZET CQA80 * TEST LAC SW CV480 FP152260 | 31571 0020 00 0 31575 TRA CV530 * SW IS ON CV490 FP152270 | 31572 0500 00 0 32151 CLA CQB30 * CV500 FP152280 | 31573 0074 00 4 11477 TSX GADDR,4 * CV510 FP152290 31574 0020 00 0 31602 TRA CV580 * CV520 FP152300 | 31575 -0500 00 0 11423 CV530 CAL F0080 * TZE *-N CV530 FP152310 | 31576 -0320 00 0 10730 ANA BCD03 * CV540 FP152320 | 31577 0402 00 0 32142 SUB CQA60 * CV550 FP152330 | 31600 -0760 00 0 00003 SSM * CV560 FP152340 31601 0074 00 4 11465 TSX PADDR,4 * CV570 FP152350 | 31602 -0500 00 0 31604 CV580 CAL *+2 BUILD TRA LOW CV580 FP152360 | 31603 0074 00 4 11413 TSX PRGMR,4 CV590 FP152370 | 31604 0020 00 0 00000 TRA 0 - CV600 FP152380 | 31605 0500 00 0 32162 CLA CQC30 * IS LOW REL ZERO CV610 FP152390 31606 0100 00 0 31611 TZE *+3 * YES CV620 FP152400 | 31607 0074 00 4 11465 TSX PADDR,4 * CV630 FP152410 | 31610 0020 00 0 31623 TRA CV750 * CV640 FP152420 | 31611 0520 00 0 32144 ZET CQA80 * TEST LAC SW CV650 FP152430 | 31612 0020 00 0 31616 TRA CV700 * SW IS ON CV660 FP152440 31613 0500 00 0 32151 CLA CQB30 * TZE OUT CV670 FP152450 | 31614 0074 00 4 11477 TSX GADDR,4 * CV680 FP152460 | 31615 0020 00 0 31623 TRA CV750 * CV690 FP152470 | 31616 -0500 00 0 11423 CV700 CAL F0080 * TRA *-N CV700 FP152480 | 31617 -0320 00 0 10730 ANA BCD03 * CV710 FP152490 31620 0402 00 0 32142 SUB CQA60 * CV720 FP152500 | 1 LISTING OF 12/01/64 PAGE 318 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | | 31621 -0760 00 0 00003 SSM * CV730 FP152510 31622 0074 00 4 11465 TSX PADDR,4 * CV740 FP152520 | 31623 0774 00 4 00000 CV750 AXT 0,4 RESTORE XR4 CV750 FP152530 | 31624 0020 00 4 00001 TRA 1,4 CV760 FP152540 | 31625 0634 00 2 32113 CW000 SXA CX820,2 MUL WD COMP PKG CW000 FP152550 | 31626 0634 00 4 32114 SXA CX830,4 CW010 FP152560 31627 0500 00 0 13613 CLA E1005 INIT C BUCKET FROM WD NO CW020 FP152570 | 31630 0601 00 0 32173 STO CQD30 * CW030 FP152580 | 31631 0535 00 1 32165 LAC CQC60,1 INIT XR1 WITH COMPL OF 1ST CW040 FP152590 | 31632 0534 00 2 32172 LXA CQD20,2 INIT XR2 WITH SIZE + BIT NOCW050 FP152600 | 31633 1 77734 2 31634 TXI *+1,2,-36 * CW060 FP152610 31634 0500 00 0 32173 CLA CQD30 BUILD CAL C,2 CW070 FP152620 | 31635 -0501 00 0 31637 ORA *+2 * CW080 FP152630 | 31636 0074 00 4 11413 TSX PRGMR,4 * CW090 FP152640 | 31637 -0500 00 2 00000 CAL 0,2 * CW100 FP152650 | 31640 -0056 00 000001 LNT 1 IS MODE UNPACKED CW110 FP152660 31641 0020 00 0 31650 TRA CW190 * YES CW120 FP152670 | 31642 -0500 00 0 32167 CAL CQC80 LFT MASK TO OBJECT STOR CW130 FP152680 | 31643 0074 00 4 11426 TSX STORR,4 * CW140 FP152690 | 31644 -0500 00 0 31646 CAL *+2 BUILD ANA MASK CW150 FP152700 | 31645 0074 00 4 11413 TSX PRGMR,4 * CW160 FP152710 31646 -0320 00 0 00000 ANA 0 * CW170 FP152720 | 31647 0074 00 4 11454 TSX SADDR,4 * CW180 FP152730 | 31650 -0500 00 1 00000 CW190 CAL 0,1 LOAD 1ST WD OF VALUE CW190 FP152740 | 31651 1 77777 1 31652 TXI *+1,1,-1 * CW200 FP152750 | 31652 0560 00 1 00000 LDQ 0,1 * CW210 FP152760 31653 0522 00 0 32163 XEC CQC40 * CW220 FP152770 | 31654 -0320 00 0 32167 ANA CQC80 * CW230 FP152780 | 31655 0074 00 4 11426 TSX STORR,4 VALUE TO OBJECT STOR CW240 FP152790 | 31656 -0500 00 0 31660 CAL *+2 BUILD LAS VALUE CW250 FP152800 | 31657 0074 00 4 11413 TSX PRGMR,4 * CW260 FP152810 31660 -0340 00 0 00000 LAS 0 * CW270 FP152820 | 31661 0074 00 4 11454 TSX SADDR,4 * CW280 FP152830 | 31662 -0500 00 0 31664 CAL *+2 BUILD TRA H1 REL CW290 FP152840 | 31663 0074 00 4 11413 TSX PRGMR,4 * CW300 FP152850 | 31664 0020 00 0 00000 TRA 0 * CW310 FP152860 31665 0500 00 0 32160 CLA CQC10 * CW320 FP152870 | 31666 0074 00 4 11465 TSX PADDR,4 * CW330 FP152880 | 31667 -0500 00 0 31671 CAL *+2 BUILD TRA *+2 CW340 FP152890 | 31670 0074 00 4 11413 TSX PRGMR,4 * CW350 FP152900 | 31671 0020 00 0 00000 TRA 0 * CW360 FP152910 31672 0500 00 0 32150 CLA CQB20 * CW370 FP152920 | 31673 0074 00 4 11465 TSX PADDR,4 * CW380 FP152930 | 31674 -0500 00 0 31676 CAL *+2 BUILD TRA LOW CW390 FP152940 | 31675 0074 00 4 11413 TSX PRGMR,4 * CW400 FP152950 | 31676 0020 00 0 00000 TRA 0 * CW410 FP152960 31677 0500 00 0 32162 CLA CQC30 * IS LOW REL ZERO CW420 FP152970 | 31700 0100 00 0 31703 TZE *+3 * YES CW430 FP152980 | 31701 0074 00 4 11465 TSX PADDR,4 * CW440 FP152990 | 31702 0020 00 0 31715 TRA CW560 * CW450 FP153000 | 31703 0520 00 0 32144 ZET CQA80 * TEST LAC SW CW460 FP153010 31704 0020 00 0 31710 TRA CW510 * SW IS ON CW470 FP153020 | 31705 0500 00 0 32151 CLA CQB30 * TZE OUT CW480 FP153030 | 31706 0074 00 4 11477 TSX GADDR,4 * CW490 FP153040 | 31707 0020 00 0 31715 TRA CW560 * CW500 FP153050 | 1 LISTING OF 12/01/64 PAGE 319 VERSEL (9PAC42). VERTICAL SELECT FUNCTION | | 31710 -0500 00 0 11423 CW510 CAL F0080 * TRA *-N CW510 FP153060 | 31711 -0320 00 0 10730 ANA BCD03 * CW520 FP153070 | 31712 0402 00 0 32142 SUB CQA60 * CW530 FP153080 31713 -0760 00 0 00003 SSM * CW540 FP153090 | 31714 0074 00 4 11465 TSX PADDR,4 * CW550 FP153100 | 31715 -2 00044 2 31775 CW560 TNX CX040,2,36 ANY MIDDLE WDS CW560 FP153110 | 31716 0500 00 0 32173 CLA CQD30 UPDATE C CW570 FP153120 | 31717 0400 00 0 32147 ADD CQB10 * CW580 FP153130 31720 0601 00 0 32173 STO CQD30 * CW590 FP153140 | 31721 -0501 00 0 31723 ORA *+2 BUILD CAL C,2 CW600 FP153150 | 31722 0074 00 4 11413 TSX PRGMR,4 * CW610 FP153160 | 31723 -0500 00 2 00000 CAL 0,2 * CW620 FP153170 | 31724 -0500 00 1 00000 CAL 0,1 LOAD MIDDLE WD CW630 FP153180 31725 1 77777 1 31726 TXI *+1,1,-1 * CW640 FP153190 | 31726 0560 00 1 00000 LDQ 0,1 * CW650 FP153200 | 31727 0522 00 0 32163 XEC CQC40 * CW660 FP153210 | 31730 0074 00 4 11426 TSX STORR,4 VALUE TO OBJECT STOR CW670 FP153220 | 31731 -0500 00 0 31733 CAL *+2 BUILD LAS VALUE CW680 FP153230 31732 0074 00 4 11413 TSX PRGMR,4 * CW690 FP153240 | 31733 -0340 00 0 00000 LAS 0 * CW700 FP153250 | 31734 0074 00 4 11454 TSX SADDR,4 * CW710 FP153260 | 31735 -0500 00 0 31737 CAL *+2 BUILD TRA H1 CW720 FP153270 | 31736 0074 00 4 11413 TSX PRGMR,4 * CW730 FP153280 31737 0020 00 0 00000 TRA 0 * CW740 FP153290 | 31740 0500 00 0 32160 CLA CQC10 * DECR H1 REL BY 5 CW750 FP153300 | 31741 0402 00 0 32153 SUB CQB50 * CW760 FP153310 | 31742 0601 00 0 32160 STO CQC10 * CW770 FP153320 | 31743 0074 00 4 11465 TSX PADDR,4 * CW780 FP153330 31744 -0500 00 0 31746 CAL *+2 BUILD TRA EQ *+2 CW790 FP153340 | 31745 0074 00 4 11413 TSX PRGMR,4 * CW800 FP153350 | 31746 0020 00 0 00000 TRA 0 * CW810 FP153360 | 31747 0500 00 0 32150 CLA CQB20 * CW820 FP153370 | 31750 0074 00 4 11465 TSX PADDR,4 * CW830 FP153380 31751 -0500 00 0 31753 CAL *+2 BUILD TRA LOW CW840 FP153390 | 31752 0074 00 4 11413 TSX PRGMR,4 * CW850 FP153400 | 31753 0020 00 0 00000 TRA 0 * CW860 FP153410 | 31754 0500 00 0 32162 CLA CQC30 * IS LOW REL ZERO CW870 FP153420 | 31755 0100 00 0 31762 TZE CW930 * YES CW880 FP153430 31756 0402 00 0 32153 SUB CQB50 * DECR LOW REL BY 5 CW890 FP153440 | 31757 0601 00 0 32162 STO CQC30 * CW900 FP153450 | 31760 0074 00 4 11465 TSX PADDR,4 * CW910 FP153460 | 31761 0020 00 0 31715 TRA CW560 * CW920 FP153470 | 31762 0520 00 0 32144 CW930 ZET CQA80 * TEST LAC SW CW930 FP153480 31763 0020 00 0 31767 TRA CW980 * SW IS ON CW940 FP153490 | 31764 0500 00 0 32151 CLA CQB30 * TZE OUT CW950 FP153500 | 31765 0074 00 4 11477 TSX GADDR,4 * CW960 FP153510 | 31766 0020 00 0 31715 TRA CW560 * CW970 FP153520 | 31767 -0500 00 0 11423 CW980 CAL F0080 * TZE *-N CW980 FP153530 31770 -0320 00 0 10730 ANA BCD03 CW990 FP153540 | 31771 0402 00 0 32142 SUB CQA60 * CX000 FP153550 | 31772 -0760 00 0 00003 SSM * CX010 FP153560 | 31773 0074 00 4 11465 TSX PADDR,4 * CX020 FP153570 | 31774 0020 00 0 31715 TRA CW560 * CX030 FP153580 31775 0500 00 0 32173 CX040 CLA CQD30 UPDATE C BY 1 CX040 FP153590 | 31776 0400 00 0 32147 ADD CQB10 * CX050 FP153600 | 1 LISTING OF 12/01/64 PAGE 320 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | 31777 -0501 00 0 32001 ORA *+2 BUILD CAL C,2 CX060 FP153610 | 32000 0074 00 4 11413 TSX PRGMR,4 * CX070 FP153620 | 32001 -0500 00 2 00000 CAL 0,2 * CX080 FP153630 | 32002 -0054 00 000001 LFT 1 IS MODE UNPACKED CX090 FP153640 | 32003 0020 00 0 32014 TRA CX190 * PACKED CX100 FP153650 32004 0500 00 0 32160 CLA CQC10 DECR H1 REL BY 5 CX110 FP153660 | 32005 0402 00 0 32153 SUB CQB50 * CX120 FP153670 | 32006 0601 00 0 32160 STO CQC10 * CX130 FP153680 | 32007 -0500 00 1 00000 CAL 0,1 LOAD RT WD OF VALUE CX140 FP153690 | 32010 1 77777 1 32011 TXI *+1,1,-1 * CX150 FP153700 32011 0560 00 1 00000 LDQ 0,1 * CX160 FP153710 | 32012 0522 00 0 32163 XEC CQC40 * CX170 FP153720 | 32013 0020 00 0 32032 TRA CX330 CX180 FP153730 | 32014 0500 00 0 32160 CX190 CLA CQC10 DECR H1 REL BY 6 CX190 FP153740 | 32015 0402 00 0 32154 SUB CQB60 * CX200 FP153750 32016 0601 00 0 32160 STO CQC10 * CX210 FP153760 | 32017 -0500 00 0 32170 CAL CQC90 RT MASK TO OBJECT STOR CX220 FP153770 | 32020 0074 00 4 11426 TSX STORR,4 * CX230 FP153780 | 32021 -0500 00 0 32023 CAL *+2 BUILD ANA MASK CX240 FP153790 | 32022 0074 00 4 11413 TSX PRGMR,4 * CX250 FP153800 32023 -0320 00 0 00000 ANA 0 * CX260 FP153810 | 32024 0074 00 4 11454 TSX SADDR,4 * CX270 FP153820 | 32025 -0500 00 1 00000 CAL 0,1 LOAD RT WD OF VALUE CX280 FP153830 | 32026 1 77777 1 32027 TXI *+1,1,-1 * CX290 FP153840 | 32027 0560 00 1 00000 LDQ 0,1 * CX300 FP153850 32030 0522 00 0 32163 XEC CQC40 * CX310 FP153860 | 32031 -0320 00 0 32170 ANA CQC90 * CX320 FP153870 | 32032 0074 00 4 11426 CX330 TSX STORR,4 VALUE TO OBJECT STOR CX330 FP153880 | 32033 -0500 00 0 32035 CAL *+2 BUILD LAS VALUE CX340 FP153890 | 32034 0074 00 4 11413 TSX PRGMR,4 * CX350 FP153900 32035 -0340 00 0 00000 LAS 0 * CX360 FP153910 | 32036 0074 00 4 11454 TSX SADDR,4 * CX370 FP153920 | 32037 -0500 00 0 32041 CAL *+2 BUILD TRA H1 REL CX380 FP153930 | 32040 0074 00 4 11413 TSX PRGMR,4 * CX390 FP153940 | 32041 0020 00 0 00000 TRA 0 * CX400 FP153950 32042 0500 00 0 32160 CLA CQC10 * CX410 FP153960 | 32043 0074 00 4 11465 TSX PADDR,4 * CX420 FP153970 | 32044 -0500 00 0 32046 CAL *+2 BUILD TRA EQ CX430 FP153980 | 32045 0074 00 4 11413 TSX PRGMR,4 * CX440 FP153990 | 32046 0020 00 0 00000 TRA 0 * CX450 FP154000 32047 0500 00 0 32161 CLA CQC20 * IS EQ REL ZERO CX460 FP154010 | 32050 0100 00 0 32053 TZE *+3 * YES CX470 FP154020 | 32051 0074 00 4 11465 TSX PADDR,4 * CX480 FP154030 | 32052 0020 00 0 32065 TRA CX600 * CX490 FP154040 | 32053 0520 00 0 32144 ZET CQA80 * TEST LAC SW CX500 FP154050 32054 0020 00 0 32060 TRA CX550 * SW IS ON CX510 FP154060 | 32055 0500 00 0 32151 CLA CQB30 * TZE OUT CX520 FP154070 | 32056 0074 00 4 11477 TSX GADDR,4 * CX530 FP154080 | 32057 0020 00 0 32065 TRA CX600 * CX540 FP154090 | 32060 -0500 00 0 11423 CX550 CAL F0080 * TZE *-N CX550 FP154100 32061 -0320 00 0 10730 ANA BCD03 * CX560 FP154110 | 32062 0402 00 0 32142 SUB CQA60 * CX570 FP154120 | 32063 -0760 00 0 00003 SSM * CX580 FP154130 | 32064 0074 00 4 11465 TSX PADDR,4 * CX590 FP154140 | 32065 -0500 00 0 32067 CX600 CAL *+2 BUILD TRA LOW CX600 FP154150 1 LISTING OF 12/01/64 PAGE 321 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | | 32066 0074 00 4 11413 TSX PRGMR,4 * CX610 FP154160 | 32067 0020 00 0 00000 TRA 0 * CX620 FP154170 32070 0500 00 0 32162 CLA CQC30 * IS LOW REL ZERO CX630 FP154180 | 32071 0100 00 0 32101 TZE CX720 * YES CX640 FP154190 | 32072 -0054 00 000001 LFT 1 * IS MODE UNPACKED CX650 FP154200 | 32073 0020 00 0 32076 TRA *+3 * PACKED CX660 FP154210 | 32074 0402 00 0 32153 SUB CQB50 * DECR LOW REL BY 5 CX670 FP154220 32075 0020 00 0 32077 TRA *+2 * CX680 FP154230 | 32076 0402 00 0 32154 SUB CQB60 * DECR LOW REL BY 6 CX690 FP154240 | 32077 0074 00 4 11465 TSX PADDR,4 * CX700 FP154250 | 32100 0020 00 0 32113 TRA CX820 * CX710 FP154260 | 32101 0520 00 0 32144 CX720 ZET CQA80 * TEST LAC SW CX720 FP154270 32102 0020 00 0 32106 TRA CX770 * SW IS ON CX730 FP154280 | 32103 0500 00 0 32151 CLA CQB30 * TZE OUT CX740 FP154290 | 32104 0074 00 4 11477 TSX GADDR,4 * CX750 FP154300 | 32105 0020 00 0 32113 TRA CX820 * CX760 FP154310 | 32106 -0500 00 0 11423 CX770 CAL F0080 * TZE *-N CX770 FP154320 32107 -0320 00 0 10730 ANA BCD03 * CX780 FP154330 | 32110 0402 00 0 32142 SUB CQA60 * CX790 FP154340 | 32111 -0760 00 0 00003 SSM * CX800 FP154350 | 32112 0074 00 4 11465 TSX PADDR,4 * CX810 FP154360 | 32113 0774 00 2 00000 CX820 AXT 0,2 RESTORE XR2 CX820 FP154370 32114 0774 00 4 00000 CX830 AXT 0,4 RESTORE XR4 CX830 FP154380 | 32115 0020 00 4 00001 TRA 1,4 RETURN CX840 FP154390 | 32116 0535 00 1 32171 CY000 LAC CQD10,1 CY000 FP154400 | 32117 -0500 00 0 31025 CAL CR900 LOAD HYPHEN WD SHIFT CY010 FP154410 | 32120 -0320 00 0 10730 ANA BCD03 * CY020 FP154420 32121 0402 00 0 32176 SUB CQD60 * 36 CY030 FP154430 | 32122 0760 00 0 00003 SSP CALC NEW LFT SHIFT CY040 FP154440 | 32123 0402 00 0 13614 SUB E1006 * CY050 FP154450 | 32124 0120 00 0 32127 TPL CY090 IS SHIFT NEG CY060 FP154460 | 32125 0400 00 0 32176 ADD CQD60 ADD 36 TO SHIFT CY070 FP154470 32126 1 77777 1 32127 TXI *+1,1,-1 DECR 1ST WD PICK UP CY080 FP154480 | 32127 0621 00 0 32163 CY090 STA CQC40 INIT SHIFT CY090 FP154490 | 32130 0634 00 1 32165 SXA CQC60,1 INIT 1ST WD PICK UP CY100 FP154500 | 32131 0020 00 4 00001 TRA 1,4 RETURN CY110 FP154510 | 32132 0074 00 4 12507 CY120 TSX MSYSRD,4 CY120 FP154520 32133 114721230403 BCI 1,9PAC43 VERVAL FP154530 | 32134 0 02563 0 35133 PZE UWFLD,,UWFLD-VESEL-2 FP154540 | 32135 0 00000 0 00000 CQA10 PZE PREV REC TYPE-FLD NO CQA10 FP154550 | 32136 0 00000 0 00000 CQA20 PZE PREV REC TYPE CQA20 FP154560 | 32137 0 00000 0 00000 CQA30 PZE HDR REC TYPE CQA30 FP154570 32140 0 00000 0 00000 CQA40 PZE NON ZERO WD NO CQA40 FP154580 | 32141 0 00000 0 00000 CQA50 PZE FKIP FLOP WD NO CQA50 FP154590 | 32142 0 00000 0 00000 CQA60 PZE WORD NO OF LAC SFLOC CQA60 FP154600 | 32143 0 00000 0 00000 CQA70 PZE SEL SW CQA70 FP154610 | 32144 0 00000 0 00000 CQA80 PZE LAC SW CQA80 FP154620 32145 000000000040 CQA90 BCI 1,00000- FOR RANGE TEST CQA90 FP154630 | 32146 0 00000 0 00012 CQB00 PZE 10 CQB00 FP154640 | 32147 0 00000 0 00001 CQB10 PZE 1 CQB10 FP154650 | 32150 0 00000 0 00002 CQB20 PZE 2 CQB20 FP154660 | 32151 0 00000 0 00003 CQB30 PZE 3 CQB30 FP154670 32152 0 00000 0 00004 CQB40 PZE 4 CQB40 FP154680 | 32153 0 00000 0 00005 CQB50 PZE 5 CQB50 FP154690 | 32154 0 00000 0 00006 CQB60 PZE 6 CQB60 FP154700 | 1 LISTING OF 12/01/64 PAGE 322 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | 32155 0 00000 0 00007 CQB70 PZE 7 CQB70 FP154710 | 32156 0 00000 0 00010 CQB80 PZE 8 CQB80 FP154720 | 32157 0 00000 0 00011 CQB90 PZE 9 CQB90 FP154730 | 32160 0 00000 0 00000 CQC10 PZE HIGH RELATIVE TRANSFER CQC10 FP154740 32161 0 00000 0 00000 CQC20 PZE EQUAL RELATIVE TRANSFER CQC20 FP154750 | 32162 0 00000 0 00000 CQC30 PZE LOW RELATIVE TRANSFER CQC30 FP154760 | 32163 -0763 00 0 00000 CQC40 LGL 0 LEFT SHIFT CQC40 FP154770 | 32164 0 00000 0 00000 CQC50 PZE LGL AUX CQC50 FP154780 | 32165 0 00000 0 00000 CQC60 PZE 1ST WORD PICK UP ADDR TRUE CQC60 FP154790 32166 0 00000 0 00000 CQC70 PZE 1ST WORD PICK UP AUX CQC70 FP154800 | 32167 0 00000 0 00000 CQC80 PZE LEFT MASK CQC80 FP154810 | 32170 0 00000 0 00000 CQC90 PZE RT MASK CQC90 FP154820 | 32171 0 00000 0 00000 CQD10 PZE HYPHEN WD ADDR COMPL AUX CQD10 FP154830 | 32172 0 00000 0 00000 CQD20 PZE SIZE + BIT NO CQD20 FP154840 32173 0 00000 0 00000 CQD30 PZE C BUCKET CQD30 FP154850 | 32174 0 00000 0 00000 CQD40 PZE 5N-N IS NO. OF MIDDLE WDS CQD40 FP154860 | 32175 0 00000 0 00030 CQD50 PZE 24 CQD50 FP154870 | 32176 0 00000 0 00044 CQD60 PZE 36 CQD60 FP154880 | 32177 0 00000 0 00022 CQD70 PZE 18 CQD70 FP154890 32200 +100000000000 CQD80 OCT 100000000000 CQD80 FP154900 | 32201 0 00000 0 00000 CQD90 PZE OPSTO CQD90 FP154910 | 32202 CQE10 BSS 50 FIELD USED TABLE CQE10 FP154920 | 32346 VESEL BES 50 FP154930 | 00000 TCD 0 FP154940 1 LISTING OF 12/01/64 PAGE 323 | VERSEL (9PAC42). VERTICAL SELECT FUNCTION | | * FP154960 | 1 LISTING OF 12/01/64 PAGE 324 VERVAL (9PAC43). VERTICAL VALUE FUNCTION | | * FP154980 | * FP154990 | * FP155000 * VERTICAL VALUE FCTN FP155010 | * FP155020 | 32350 ORG VESEL+2 VERVAL FP155040 | 32350 114721230403 BCI 1,9PAC43 FP155050 | 32351 652551652143 VRVAL BCI 1,VERVAL SEARCH CODE CA010 FP155060 00100 ORG SYSTRA FP155070 | 00100 0020 00 0 33404 TRA CE995 FP155080 | 32352 ORG VESEL+4 FP155090 | 32352 0020 00 0 33357 CA020 TRA CE920 TO CLEAN UP CA020 FP155100 | 32353 0520 00 0 33412 ZET CAA10 TEST FOR FIRST CARD CA030 FP155110 32354 0020 00 0 32366 TRA CA090 CA040 FP155120 | 32355 -0500 00 0 67174 CAL HEADR+2 NINT RECORD TYPE CA050 FP155130 | 32356 -0765 00 0 00022 LGR 18 CA060 FP155140 | 32357 -0320 00 0 10730 ANA BCD03 CA070 FP155150 | 32360 0602 00 0 33412 SLW CAA10 CA080 FP155160 32361 -0500 00 0 67172 CAL HEADR SET UP REJECT SORT CODE CA081 FP155170 | 32362 -0765 00 0 00022 LGR 18 CA082 FP155180 | 32363 -0320 00 0 10733 ANA BCD06 CA083 FP155190 | 32364 -0501 00 0 33437 ORA CAC10 CA084 FP155200 | 32365 0602 00 0 33440 SLW CAC20 CA085 FP155210 32366 -0500 00 0 04622 CA090 CAL CARD+1 COMPARD RECORD TYPES CA090 FP155220 | 32367 -0765 00 0 00006 LGR 6 * CA100 FP155230 | 32370 -0320 00 0 10730 ANA BCD03 * CA110 FP155240 | 32371 -0340 00 0 33412 LAS CAA10 * CA120 FP155250 | 32372 0020 00 0 32374 TRA *+2 CA130 FP155260 32373 0020 00 0 32376 TRA *+3 OK CA140 FP155270 | 32374 0074 00 4 10507 TSX T0010,4 CA145 FP155280 | 32375 -1 01166 2 14307 STR BB010,2,630 CHG REC TYPE NOT EQUAL TO HDR CA150 FP155290 | 32376 -0500 00 0 04622 CAL CARD+1 SET UP DICT CA160 FP155300 | 32377 0560 00 0 04623 LDQ CARD+2 * CA170 FP155310 32400 -0763 00 0 00022 LGL 18 * CA180 FP155320 | 32401 -0320 00 0 10744 ANA BCD17 * CA190 FP155330 | 32402 0602 00 0 32404 SLW CA220 * CA200 FP155340 | 32403 0074 00 4 13550 TSX E0010,4 * CA210 FP155350 | 32404 0 00000 0 00000 CA220 PZE * CA220 FP155360 32405 -0500 00 0 32404 CAL *-1 FLD= TO OBJ CA230 FP155370 | 32406 0074 00 4 11426 TSX STORR,4 CA240 FP155380 | 32407 -0500 00 0 11436 CAL G0080 CA250 FP155390 | 32410 0621 00 0 33441 STA CAC30 CA260 FP155400 | 32411 -0500 00 2 00010 CAL 8,2 CA270 FP155410 32412 0560 00 2 00011 LDQ 9,2 CA280 FP155420 | 32413 -0763 00 0 00006 LGL 6 CA290 FP155430 | 32414 -0320 00 0 10730 ANA BCD03 CA300 FP155440 | 32415 0322 00 0 33444 ERA CAC60 CA310 FP155450 | 32416 0100 00 0 32421 TZE *+3 CA320 FP155460 32417 0074 00 4 10507 TSX T0010,4 CA325 FP155470 | 32420 -1 01177 2 14307 STR BB010,2,639 VAL CARD FOR SEQ FLD CA330 FP155480 | 32421 0441 00 2 00002 LDI 2,2 S.F. MODES TO INDIC CA340 FP155490 | 32422 -0056 00 000100 LNT 100 SKIP IF BCD CA350 FP155500 | 32423 0020 00 0 32604 TRA CC100 TO BINARY CA360 FP155510 32424 -0500 00 0 04623 CAL CARD+2 TEST ACTION CA370 FP155520 | 32425 -0320 00 0 10731 ANA BCD04 * CA380 FP155530 | 1 LISTING OF 12/01/64 PAGE 325 | VERVAL (9PAC43). VERTICAL VALUE FUNCTION | 32426 -0340 00 0 33420 LAS CAA30+4 *T CA381 FP155540 | 32427 0020 00 0 32437 TRA CA450 CA382 FP155550 | 32430 0020 00 0 32441 TRA CA460 * EQUAL CA383 FP155560 | 32431 -0340 00 0 33414 LAS CAA30 * S CA390 FP155570 | 32432 0020 00 0 32437 TRA CA450 CA400 FP155580 32433 0020 00 0 32441 TRA CA460 EQUAL - OK CA410 FP155590 | 32434 -0340 00 0 33415 LAS CAA30+1 R CA420 FP155600 | 32435 0020 00 0 32437 TRA CA450 CA430 FP155610 | 32436 0020 00 0 32441 TRA CA460 CA440 FP155620 | 32437 0074 00 4 10507 CA450 TSX T0010,4 CA450 FP155630 32440 -1 01167 2 14307 STR BB010,2,631 INVALID BCD FLD ACTION CA451 FP155640 | 32441 -0774 00 2 04623 CA460 AXC CARD+2,2 CA460 FP155650 | 32442 0500 00 0 13613 CLA E1005 STORE WORD NO. TEMP. CA470 FP155660 | 32443 0601 00 0 33421 STO CAA40 * CA480 FP155670 | 32444 0500 00 0 13614 CLA E1006 INIT. LEFT SHIFT CA490 FP155680 32445 0402 00 0 33422 SUB CAA50 * 24 CA500 FP155690 | 32446 -0120 00 0 32451 TMI CA540 * CA510 FP155700 | 32447 1 00001 2 32450 TXI *+1,2,1 ADJUST PICK UP OF VALUE CA520 FP155710 | 32450 0402 00 0 33423 SUB CAA60 CALC NEW SHIFT CA530 FP155720 | 32451 0621 00 0 33424 CA540 STA CAA70 * SHIFT IN STORAGE CA540 FP155730 32452 0500 00 0 13614 CLA E1006 BIT NO. CA550 FP155740 | 32453 0621 00 0 32455 STA *+2 CA560 FP155750 | 32454 -0500 00 0 11024 CAL BCD77 BUILD MASK CA570 FP155760 | 32455 0771 00 0 00000 ARS 0 * CA580 FP155770 | 32456 0602 00 0 33425 SLW CAA80 * CA590 FP155780 32457 0500 00 0 13612 CLA E1004 SIZE CA600 FP155790 | 32460 0400 00 0 13614 ADD E1006 BIT NO. CA610 FP155800 | 32461 0734 00 1 00000 PAX 0,1 CA620 FP155810 | 32462 -0054 00 000001 LFT 1 TEST MODE CA630 FP155820 | 32463 0020 00 0 32512 TRA CB070 PACKED CA640 FP155830 32464 -0500 00 2 00000 CAL 0,2 UNPACKED-LFT WD OF VAL TO ACA650 FP155840 | 32465 0560 00 2 00001 LDQ 1,2 RT WD TO MQ CA660 FP155850 | 32466 0522 00 0 33424 XEC CAA70 SHIFT LEFT CA670 FP155860 | 32467 -0320 00 0 33425 ANA CAA80 CA680 FP155870 | 32470 0074 00 4 11426 CA690 TSX STORR,4 VALUE TO STORR CA690 FP155880 32471 -0500 00 0 32473 CAL *+2 CA830 FP155890 | 32472 0074 00 4 11413 TSX PRGMR,4 MOVE CAL NEW VAL CA840 FP155900 | 32473 -0500 00 0 00000 CAL 0 CA850 FP155910 | 32474 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDR CA860 FP155920 | 32475 0500 00 0 33421 CLA CAA40 WORD NO. CA870 FP155930 32476 -0501 00 0 32500 ORA *+2 CA880 FP155940 | 32477 0074 00 4 11413 TSX PRGMR,4 MOVE SLW CA890 FP155950 | 32500 0602 00 2 00000 SLW 0,2 CA900 FP155960 | 32501 -2 00044 1 14307 TNX BB010,1,36 CA970 FP155970 | 32502 0500 00 0 33421 CLA CAA40 CA980 FP155980 32503 0400 00 0 33426 ADD CAA90 ADD 1 TO WD NO CA990 FP155990 | 32504 0601 00 0 33421 STO CAA40 CB010 FP156000 | 32505 1 77777 2 32506 TXI *+1,2,-1 INCR VALUE PICK UP CB020 FP156010 | 32506 -0500 00 2 00000 CAL 0,2 LOAD VALUE CB030 FP156020 | 32507 0560 00 2 00001 LDQ 1,2 * CB040 FP156030 32510 0522 00 0 33424 XEC CAA70 * CB050 FP156040 | 32511 0020 00 0 32470 TRA CA690 LOOP CB060 FP156050 | 32512 -3 00044 1 32575 CB070 TXL CC030,1,36 PACKED CB070 FP156060 | 32513 -0500 00 0 33425 CB080 CAL CAA80 CREATE MASK COMP CB080 FP156070 | 32514 0760 00 0 00006 COM CB280 FP156080 1 LISTING OF 12/01/64 PAGE 326 | VERVAL (9PAC43). VERTICAL VALUE FUNCTION | | 32515 0074 00 4 11426 TSX STORR,4 CB290 FP156090 | 32516 -0500 00 0 32520 CAL *+2 CB300 FP156100 32517 0074 00 4 11413 TSX PRGMR,4 MOVE CAL CB310 FP156110 | 32520 -0500 00 0 00000 CAL 0 CB320 FP156120 | 32521 0074 00 4 11454 TSX SADDR,4 CB330 FP156130 | 32522 0500 00 0 33421 CLA CAA40 WORD NO. CB340 FP156140 | 32523 -0501 00 0 32525 ORA *+2 CB350 FP156150 32524 0074 00 4 11413 TSX PRGMR,4 MOVE ANS CB360 FP156160 | 32525 0320 00 2 00000 ANS 0,2 CB370 FP156170 | 32526 -0500 00 2 00000 CAL 0,2 LOAD VALUE AND SHIFT CB380 FP156180 | 32527 0560 00 2 00001 LDQ 1,2 * CB390 FP156190 | 32530 0522 00 0 33424 XEC CAA70 * CB400 FP156200 32531 -0320 00 0 33425 ANA CAA80 * CB410 FP156210 | 32532 0074 00 4 11426 TSX STORR,4 CB420 FP156220 | 32533 -0500 00 0 32535 CAL *+2 CB430 FP156230 | 32534 0074 00 4 11413 TSX PRGMR,4 MOVE NEW VALUE CB440 FP156240 | 32535 -0500 00 0 00000 CAL 0 CB450 FP156250 32536 0074 00 4 11454 TSX SADDR,4 CB460 FP156260 | 32537 0500 00 0 33421 CLA CAA40 WORD NO. CB470 FP156270 | 32540 -0501 00 0 32542 ORA *+2 CB480 FP156280 | 32541 0074 00 4 11413 TSX PRGMR,4 MOVE ORS CB490 FP156290 | 32542 -0602 00 2 00000 ORS 0,2 CB500 FP156300 32543 -2 00044 1 14307 TNX BB010,1,36 CB570 FP156310 | 32544 0500 00 0 33421 CB580 CLA CAA40 WORD NO. CB580 FP156320 | 32545 0400 00 0 33426 ADD CAA90 1 CB590 FP156330 | 32546 0601 00 0 33421 STO CAA40 CB600 FP156340 | 32547 1 77777 2 32550 TXI *+1,2,-1 CB610 FP156350 32550 -2 00044 1 32566 CB620 TNX CB950,1,36 CB620 FP156360 | 32551 -0500 00 2 00000 CAL 0,2 CB630 FP156370 | 32552 0560 00 2 00001 LDQ 1,2 CB640 FP156380 | 32553 0522 00 0 33424 XEC CAA70 CB650 FP156390 | 32554 0074 00 4 11426 TSX STORR,4 CB660 FP156400 32555 -0500 00 0 32557 CAL *+2 CB800 FP156410 | 32556 0074 00 4 11413 TSX PRGMR,4 MOVE NEW VALUE CB810 FP156420 | 32557 -0500 00 0 00000 CAL 0 CB820 FP156430 | 32560 0074 00 4 11454 TSX SADDR,4 CB830 FP156440 | 32561 0500 00 0 33421 CLA CAA40 WORD NO. CB840 FP156450 32562 -0501 00 0 32564 ORA *+2 CB850 FP156460 | 32563 0074 00 4 11413 TSX PRGMR,4 MOVE SLW CB860 FP156470 | 32564 0602 00 2 00000 SLW 0,2 CB870 FP156480 | 32565 0020 00 0 32544 TRA CB580 LOOP CB940 FP156490 | 32566 0754 00 1 00000 CB950 PXA 0,1 BUILD RT MASK CB950 FP156500 32567 0402 00 0 33423 SUB CAA60 *36 CB960 FP156510 | 32570 0621 00 0 32572 STA *+2 * CB970 FP156520 | 32571 -0500 00 0 11024 CAL BCD77 * CB980 FP156530 | 32572 0767 00 0 00000 ALS 0 * CB990 FP156540 | 32573 0602 00 0 33425 SLW CAA80 * STORE MASK CC010 FP156550 32574 0020 00 0 32513 TRA CB080 LOOP BACK TO RT OF TXL CC020 FP156560 | 32575 0754 00 1 00000 CC030 PXA 0,1 COMBINE LEFT + RT MASKS CC030 FP156570 | 32576 0402 00 0 33423 SUB CAA60 * 36 CC040 FP156580 | 32577 0621 00 0 32601 STA *+2 * CC050 FP156590 | 32600 -0500 00 0 11024 CAL BCD77 * CC060 FP156600 32601 0767 00 0 00000 ALS 0 * CC070 FP156610 | 32602 0320 00 0 33425 ANS CAA80 * CC080 FP156620 | 32603 0020 00 0 32513 TRA CB080 CC090 FP156630 | 1 LISTING OF 12/01/64 PAGE 327 | VERVAL (9PAC43). VERTICAL VALUE FUNCTION | 32604 -0500 00 0 04623 CC100 CAL CARD+2 BINARY - TEST ACTION CODE CC100 FP156640 | 32605 -0320 00 0 10731 ANA BCD04 CC110 FP156650 | 32606 -0340 00 0 33420 LAS CAA30+4 T CC111 FP156660 | 32607 0020 00 0 32614 TRA CC150 CC112 FP156670 32610 0020 00 0 33352 TRA CE870 TO RESET WITHOUT ADJUST LEGCC113 FP156680 | 32611 -0340 00 0 33414 LAS CAA30 S CC120 FP156690 | 32612 0020 00 0 32614 TRA *+2 CC130 FP156700 | 32613 0020 00 0 33343 TRA CE810 TO RESET LEG CC140 FP156710 | 32614 0500 00 0 13612 CC150 CLA E1004 SIZE - TABLE SEARCH FOR BCDCC150 FP156720 32615 0774 00 4 00000 AXT 0,4 0 TO IR 4 CC160 FP156730 | 32616 0774 00 1 00024 AXT 20,1 20 TO IR 1 CC170 FP156740 | 32617 1 00006 4 32620 CC180 TXI *+1,4,6 UPDATE BCD SIZE BY 6 CC180 FP156750 | 32620 -0340 00 1 11104 LAS EQUIV+21,1 CC190 FP156760 | 32621 0020 00 0 32625 TRA *+4 CC200 FP156770 32622 0020 00 0 32627 TRA CC250 TABLE MATCH CC210 FP156780 | 32623 0074 00 4 10507 TSX T0010,4 CC219 FP156790 | 32624 -1 01170 2 14307 STR BB010,2,632 INVALID SF BINARY SIZE CC220 FP156800 | 32625 2 00002 1 32617 TIX CC180,1,2 IS TABLE LIMIT EXCEEDED CC230 FP156810 | 32626 0020 00 0 32623 TRA *-3 TABLE EXCEED CC240 FP156820 32627 -0774 00 1 04623 CC250 AXC CARD+2,1 CC250 FP156830 | 32630 2 00044 4 32656 TIX CC480,4,36 CC260 FP156840 | 32631 0760 00 0 00000 CLM ONE WORD OR LESS CC270 FP156850 | 32632 0621 00 0 33020 STA CD340 SET MAXMIN SHIFT TO ZERO CC280 FP156860 | 32633 0621 00 0 33152 STA CD770 * CC290 FP156870 32634 0754 00 4 00000 PXA 0,4 NO. OF BITS TO AC CC300 FP156880 | 32635 0402 00 0 33423 SUB CAA60 36 CC310 FP156890 | 32636 0621 00 0 32646 STA CC400 ARS FOR MASK CC320 FP156900 | 32637 0400 00 0 33422 ADD CAA50 24 CC330 FP156910 | 32640 0100 00 0 32644 TZE CC380 CC340 FP156920 32641 0120 00 0 32644 TPL CC380 CC350 FP156930 | 32642 1 00001 1 32643 TXI *+1,1,1 CC360 FP156940 | 32643 0400 00 0 33423 ADD CAA60 CC370 FP156950 | 32644 0621 00 0 33424 CC380 STA CAA70 INIT. LEFT SHIFT CC380 FP156960 | 32645 -0500 00 0 11024 CAL BCD77 CC390 FP156970 32646 0771 00 0 00000 CC400 ARS 0 CC400 FP156980 | 32647 0602 00 0 33425 SLW CAA80 CC410 FP156990 | 32650 -0500 00 1 00000 CAL 0,1 LOAD VALUE CC420 FP157000 | 32651 0560 00 1 00001 LDQ 1,1 * CC430 FP157010 | 32652 0522 00 0 33424 XEC CAA70 * CC440 FP157020 32653 -0320 00 0 33425 ANA CAA80 * CC450 FP157030 | 32654 0602 00 0 07751 SLW B1020 PLACE VALUE IN RT BUFFER CC460 FP157040 | 32655 0020 00 0 32705 TRA CC710 TO TSX CC470 FP157050 | 32656 0634 00 4 33020 CC480 SXA CD340,4 INIT MAXMIN SHIFT CC480 FP157060 | 32657 0634 00 4 33152 SXA CD770,4 * CC490 FP157070 32660 0754 00 4 00000 PXA 0,4 CC500 FP157080 | 32661 0402 00 0 33423 SUB CAA60 36 CC510 FP157090 | 32662 0621 00 0 32672 STA CC600 CC520 FP157100 | 32663 0400 00 0 33422 ADD CAA50 24 CC530 FP157110 | 32664 0100 00 0 32670 TZE CC580 CC540 FP157120 32665 0120 00 0 32670 TPL CC580 CC550 FP157130 | 32666 0400 00 0 33423 ADD CAA60 36 CC560 FP157140 | 32667 1 00001 1 32670 TXI *+1,1,1 CC570 FP157150 | 32670 0621 00 0 33424 CC580 STA CAA70 INIT LEFT SHIFT CC580 FP157160 | 32671 -0500 00 0 11024 CAL BCD77 BUILD MASK CC590 FP157170 32672 0771 00 0 00000 CC600 ARS 0 * CC600 FP157180 | 1 LISTING OF 12/01/64 PAGE 328 | VERVAL (9PAC43). VERTICAL VALUE FUNCTION | | 32673 0602 00 0 33425 SLW CAA80 * CC610 FP157190 32674 -0500 00 1 00001 CAL 1,1 LOAD VALUE FOR RT BUFFER CC620 FP157200 | 32675 0560 00 1 00002 LDQ 2,1 * CC630 FP157210 | 32676 0522 00 0 33424 XEC CAA70 * CC640 FP157220 | 32677 0602 00 0 07751 SLW B1020 * CC650 FP157230 | 32700 -0500 00 1 00000 CAL 0,1 LOAD VALUE FOR LEFT BUFFER CC660 FP157240 32701 0560 00 1 00001 LDQ 1,1 * CC670 FP157250 | 32702 0522 00 0 33424 XEC CAA70 * CC680 FP157260 | 32703 -0320 00 0 33425 ANA CAA80 * CC690 FP157270 | 32704 0602 00 0 07750 SLW B1010 * CC700 FP157280 | 32705 0074 00 4 07570 CC710 TSX B0010,4 CONVERT BCD TO BINARY CC710 FP157290 32706 0500 00 0 07747 CLA B1000 BINARY VALUE TO STORAGE CC730 FP157300 | 32707 0601 00 0 33427 STO CAB10 * CC740 FP157310 | 32710 -0500 00 0 04623 CAL CARD+2 ACTION TEST CC750 FP157320 | 32711 -0320 00 0 10731 ANA BCD04 CC760 FP157330 | 32712 -0340 00 0 33415 LAS CAA30+1 R CC770 FP157340 32713 0020 00 0 32726 TRA CC875 CC780 FP157350 | 32714 0020 00 0 32730 TRA CC880 REPLACE CC790 FP157360 | 32715 -0340 00 0 33416 LAS CAA30+2 PLUS CC800 FP157370 | 32716 0020 00 0 32721 TRA CC840 CC810 FP157380 | 32717 0020 00 0 32742 TRA CC980 ACCUM POS CC820 FP157390 32720 0020 00 0 32724 TRA CC870 ERROR CC830 FP157400 | 32721 -0340 00 0 33417 CC840 LAS CAA30+3 MINUS CC840 FP157410 | 32722 0020 00 0 32724 TRA CC870 ERROR CC850 FP157420 | 32723 0020 00 0 32737 TRA CC950 ACCUM NEG CC860 FP157430 | 32724 0074 00 4 10507 CC870 TSX T0010,4 CC870 FP157440 32725 -1 01171 2 14307 STR BB010,2,633 INVALID BINARY FLD ACTION CC871 FP157450 | 32726 0074 00 4 10507 CC875 TSX T0010,4 CC875 FP157460 | 32727 -1 01205 2 32730 STR CC880,2,645 INVALID VER FLD ACT CC876 FP157470 | 32730 0600 00 0 33430 CC880 STZ CAB20 REPLACE LEG- SET ACTION SW CC880 FP157480 | 32731 -0500 00 0 07747 CAL B1000 VALUE TO STORR CC890 FP157490 32732 0074 00 4 11426 TSX STORR,4 * CC900 FP157500 | 32733 -0500 00 0 11436 CAL G0080 STORE INC IN A + B CC910 FP157510 | 32734 0621 00 0 33431 STA CAB30 * CC920 FP157520 | 32735 0621 00 0 33432 STA CAB40 * CC930 FP157530 | 32736 0020 00 0 33005 TRA CD240 CC940 FP157540 32737 0500 00 0 07747 CC950 CLA B1000 NEG ACCUM - CHANGE SIGN OF CC950 FP157550 | 32740 0760 00 0 00002 CHS * CC960 FP157560 | 32741 0601 00 0 07747 STO B1000 * CC970 FP157570 | 32742 -0500 00 2 00011 CC980 CAL 9,2 POS ACCUM - REPLACE ONLY TECC980 FP157580 | 32743 -0320 00 0 10745 ANA BCD20 * CC990 FP157590 32744 0100 00 0 32747 TZE *+3 OK CD010 FP157600 | 32745 0074 00 4 10507 TSX T0010,4 CD015 FP157610 | 32746 -1 01172 2 14307 STR BB010,2,634 ACC ACTION REP ONLY BIN FLD CD020 FP157620 | 32747 -0500 00 0 11024 CAL BCD77 SET ACTION SW TO NON-ZERO CD030 FP157630 | 32750 0602 00 0 33430 SLW CAB20 * CD040 FP157640 32751 -0500 00 0 07747 CAL B1000 VALUE TO STORR CD050 FP157650 | 32752 0074 00 4 11426 TSX STORR,4 * CD060 FP157660 | 32753 -0500 00 0 11436 CAL G0080 INC OF VALUE TO A CD070 FP157670 | 32754 0621 00 0 33431 STA CAB30 * CD080 FP157680 | 32755 0500 00 0 13613 CLA E1005 WORD NO. CD090 FP157690 32756 -0501 00 0 32760 ORA *+2 CD100 FP157700 | 32757 0074 00 4 11413 TSX PRGMR,4 MOVE CLA CD110 FP157710 | 32760 0500 00 2 00000 CLA 0,2 CD120 FP157720 | 32761 -0500 00 0 32763 CAL *+2 CD130 FP157730 | 1 LISTING OF 12/01/64 PAGE 329 VERVAL (9PAC43). VERTICAL VALUE FUNCTION | | 32762 0074 00 4 11413 TSX PRGMR,4 MOVE ADD CD140 FP157740 | 32763 0400 00 0 00000 ADD 0 CD150 FP157750 | 32764 0074 00 4 11454 TSX SADDR,4 CD160 FP157760 32765 -0500 00 0 32767 CAL *+2 TAKE CD1600FP157770 | 32766 0074 00 4 11413 TSX PRGMR,4 CARE CD1600FP157780 | 32767 -0100 00 0 00000 TNZ 0 OF CD1600FP157790 | 32770 -0500 00 0 33435 CAL CAB70 MINUS CD1600FP157800 | 32771 0074 00 4 11465 TSX PADDR,4 ZERO CD1600FP157810 32772 -0500 00 0 32774 CAL *+2 CD1600FP157820 | 32773 0074 00 4 11413 TSX PRGMR,4 CD1600FP157830 | 32774 0760 00 0 00003 SSP CD1600FP157840 | 32775 0760 00 0 00000 CLM CD170 FP157850 | 32776 0074 00 4 11426 TSX STORR,4 STORE ZERO CD180 FP157860 32777 0500 00 0 11436 CLA G0080 CD190 FP157870 | 33000 0621 00 0 33432 STA CAB40 INC OF ZERO TO B CD200 FP157880 | 33001 -0500 00 0 33003 CAL *+2 CD210 FP157890 | 33002 0074 00 4 11413 TSX PRGMR,4 MOVE STO CD220 FP157900 | 33003 0601 00 0 00000 STO 0 CD220 FP157910 33004 0074 00 4 11454 TSX SADDR,4 CD230 FP157920 | 33005 -0500 00 2 00012 CD240 CAL 10,2 MAX TEST CD240 FP157930 | 33006 0560 00 2 00013 LDQ 11,2 * CD250 FP157940 | 33007 -0765 00 0 00030 LGR 24 * CD260 FP157950 | 33010 -0130 00 0 00000 XCL * CD270 FP157960 33011 -0340 00 0 33433 LAS CAB50 * CD280 FP157970 | 33012 0020 00 0 33014 TRA *+2 CD290 FP157980 | 33013 0020 00 0 33137 TRA CD660 TO MIN BLANK TEST CD300 FP157990 | 33014 0044 00 0 00000 PAI MAX TO INDIC CD301 FP158000 | 33015 -0320 00 0 33434 ANA CAB60 REMOVE SIGN CD310 FP158010 33016 -0130 00 0 00000 XCL CD320 FP158020 | 33017 0760 00 0 00000 CLM CD330 FP158030 | 33020 -0763 00 0 00000 CD340 LGL 0 CD340 FP158040 | 33021 0602 00 0 07750 SLW B1010 CD350 FP158050 | 33022 -0600 00 0 07751 STQ B1020 CD360 FP158060 33023 0445 00 0 33434 RIS CAB60 CLEAR INDICS EXCEPT FOR SIGCD370 FP158070 | 33024 -0046 00 0 00000 PIA CD380 FP158080 | 33025 -0602 00 0 07751 ORS B1020 SIGN TO UNITS POS CD390 FP158090 | 33026 0074 00 4 07570 TSX B0010,4 CONVERT MAX TO BINARY CD400 FP158100 | 33027 0520 00 0 33430 ZET CAB20 TEST ACTION SW - SKIP IF RECD420 FP158110 33030 0020 00 0 33040 TRA CD490 ACCUM CD430 FP158120 | 33031 0500 00 0 33427 CLA CAB10 CMOPARE VALUE TO MAX CD440 FP158130 | 33032 0340 00 0 07747 CAS B1000 * CD450 FP158140 | 33033 0020 00 0 33036 TRA CD485 CD460 FP158150 | 33034 0761 00 0 00000 NOP CD470 FP158160 33035 0020 00 0 33137 TRA CD660 TO MIN TEST CD480 FP158170 | 33036 0074 00 4 10507 CD485 TSX T0010,4 CD485 FP158180 | 33037 -1 01173 2 14307 STR BB010,2,635 VERVAL EXCEEDS MAX CD486 FP158190 | 33040 -0500 00 0 07747 CD490 CAL B1000 MAX TO STORR CD490 FP158200 | 33041 0074 00 4 11426 TSX STORR,4 CD500 FP158210 33042 -0500 00 0 33044 CAL *+2 CD510 FP158220 | 33043 0074 00 4 11413 TSX PRGMR,4 MOVE CLA CD520 FP158230 | 33044 0500 00 0 00000 CLA 0 CD530 FP158240 | 33045 -0500 00 0 33432 CAL CAB40 B CD540 FP158250 | 33046 0074 00 4 11455 TSX SADDR+1,4 CD550 FP158260 33047 -0500 00 0 33051 CAL *+2 CD560 FP158270 | 33050 0074 00 4 11413 TSX PRGMR,4 MOVE CAS CD570 FP158280 | 1 LISTING OF 12/01/64 PAGE 330 | VERVAL (9PAC43). VERTICAL VALUE FUNCTION | 33051 0340 00 0 00000 CAS 0 CD580 FP158290 | 33052 0074 00 4 11454 TSX SADDR,4 CD590 FP158300 | 33053 -0500 00 0 33055 CAL *+2 CD600 FP158310 | 33054 0074 00 4 11413 TSX PRGMR,4 CD610 FP158320 | 33055 0020 00 0 00000 TRA 0 TRA *+3 CD611 FP158330 33056 -0500 00 0 33443 CAL CAC50 3 CD612 FP158340 | 33057 0074 00 4 11465 TSX PADDR,4 CD613 FP158350 | 33060 -0500 00 0 33062 CAL *+2 CD614 FP158360 | 33061 0074 00 4 11413 TSX PRGMR,4 CD615 FP158370 | 33062 0761 00 0 00000 NOP NOP CD616 FP158380 33063 -0500 00 0 33065 CAL *+2 CD617 FP158390 | 33064 0074 00 4 11413 TSX PRGMR,4 CD618 FP158400 | 33065 0020 00 0 00000 TRA ** TRA *+10 CD619 FP158410 | 33066 -0500 00 0 11063 CAL EQUIV+4 10 CD620 FP158420 | 33067 0074 00 4 11465 TSX PADDR,4 CD621 FP158430 33070 -0500 00 0 33072 CAL *+2 TO CONVERT BINARY FP158440 | 33071 0074 00 4 11413 TSX PRGMR,4 WORD IN ERROR TO BCD FP158450 | 33072 0074 00 4 20175 TSX CHBCD,4 AND PICK UP THE 6 MSD FP158460 | 33073 -0500 00 0 33075 CAL *+2 CD622 FP158470 | 33074 0074 00 4 11413 TSX PRGMR,4 CD623 FP158480 33075 0602 00 0 00004 SLW 4 SLW 4 CD624 FP158490 | 33076 -0500 00 0 33440 CAL CAC20 CD625 FP158500 | 33077 -0760 00 0 00003 SSM CD626 FP158510 | 33100 0074 00 4 11507 TSX YADDR,4 CD627 FP158520 | 33101 -0500 00 0 33103 CAL *+2 CD628 FP158530 33102 0074 00 4 11413 TSX PRGMR,4 CD629 FP158540 | 33103 -0500 00 0 00000 CAL 0 CAL FLD= CD630 FP158550 | 33104 -0500 00 0 33441 CAL CAC30 CD631 FP158560 | 33105 0074 00 4 11455 TSX SADDR+1,4 CD632 FP158570 | 33106 -0500 00 0 33110 CAL *+2 CD633 FP158580 33107 0074 00 4 11413 TSX PRGMR,4 SLW CD634 FP158590 | 33110 0602 00 0 00001 SLW 1 CD635 FP158600 | 33111 -0500 00 0 33440 CAL CAC20 CD636 FP158610 | 33112 -0760 00 0 00003 SSM CD637 FP158620 | 33113 0074 00 4 11507 TSX YADDR,4 CD638 FP158630 33114 -0500 00 0 33116 CAL *+2 CD639 FP158640 | 33115 0074 00 4 11413 TSX PRGMR,4 TSX CD640 FP158650 | 33116 0074 00 4 00001 TSX 1,4 CD641 FP158660 | 33117 -0500 00 0 33440 CAL CAC20 CD642 FP158670 | 33120 0074 00 4 11507 TSX YADDR,4 CD643 FP158680 33121 -0500 00 0 33123 CAL *+2 CD644 FP158690 | 33122 0074 00 4 11413 TSX PRGMR,4 CD645 FP158700 | 33123 606226604421 BCI 1, SF MA FP158710 | 33124 -0500 00 0 33126 CAL *+2 CD647 FP158720 | 33125 0074 00 4 11413 TSX PRGMR,4 CD648 FP158730 33126 676063256263 BCI 1,X TEST CD649 FP158740 | 33127 -0500 00 0 33131 CAL *+2 CD650 FP158750 | 33130 0074 00 4 11413 TSX PRGMR,4 CD651 FP158760 | 33131 0535 00 1 22174 LAC MRGLO,1 LAC CD652 FP158770 | 33132 -0500 00 0 33134 CAL *+2 CD656 FP158780 33133 0074 00 4 11413 TSX PRGMR,4 CD657 FP158790 | 33134 0020 00 0 00000 TRA 0 TRA GADDR 3 CD658 FP158800 | 33135 -0500 00 0 33443 CAL CAC50 1ST CD659 FP158810 | 33136 0074 00 4 11477 TSX GADDR,4 2ND CD659 FP158820 | 33137 -0500 00 2 00011 CD660 CAL 9,2 MIN BLANK TEST CD660 FP158830 1 LISTING OF 12/01/64 PAGE 331 | VERVAL (9PAC43). VERTICAL VALUE FUNCTION | | 33140 0560 00 2 00012 LDQ 10,2 * CD670 FP158840 | 33141 -0765 00 0 00030 LGR 24 * CD680 FP158850 33142 -0130 00 0 00000 XCL * CD690 FP158860 | 33143 -0340 00 0 33433 LAS CAB50 * BLANK CD700 FP158870 | 33144 0020 00 0 33146 TRA *+2 CD710 FP158880 | 33145 0020 00 0 33262 TRA CE150 TO SUM FWD TEST CD720 FP158890 | 33146 0044 00 0 00000 PAI MIN IN ENDIC CD730 FP158900 33147 -0320 00 0 33434 ANA CAB60 REMOVE SIGN CD740 FP158910 | 33150 -0130 00 0 00000 XCL CD750 FP158920 | 33151 0760 00 0 00000 CLM CD760 FP158930 | 33152 -0763 00 0 00000 CD770 LGL 0 CD770 FP158940 | 33153 0602 00 0 07750 SLW B1010 CD780 FP158950 33154 -0600 00 0 07751 STQ B1020 CD790 FP158960 | 33155 0445 00 0 33434 RIS CAB60 CD800 FP158970 | 33156 -0046 00 0 00000 PIA CD810 FP158980 | 33157 -0602 00 0 07751 ORS B1020 PLACE SIGN OVER UNITS POS CD820 FP158990 | 33160 0074 00 4 07570 TSX B0010,4 CD830 FP159000 33161 0520 00 0 33430 ZET CAB20 TEST ACTION SW CD850 FP159010 | 33162 0020 00 0 33171 TRA CD920 ACCUM CD860 FP159020 | 33163 0500 00 0 33427 CLA CAB10 VALUE CD870 FP159030 | 33164 0340 00 0 07747 CAS B1000 MIN CD880 FP159040 | 33165 0020 00 0 33262 TRA CE150 TO SUM FWD TEST CD890 FP159050 33166 0020 00 0 33262 TRA CE150 * CD900 FP159060 | 33167 0074 00 4 10507 TSX T0010,4 CD905 FP159070 | 33170 -1 01174 2 14307 STR BB010,2,636 VERVAL LESS THAN MINIMUM CD910 FP159080 | 33171 -0500 00 0 07747 CD920 CAL B1000 CD920 FP159090 | 33172 0074 00 4 11426 TSX STORR,4 MIN TO STORR CD930 FP159100 33173 -0500 00 0 33175 CAL *+2 CD940 FP159110 | 33174 0074 00 4 11413 TSX PRGMR,4 MOVE CLA CD950 FP159120 | 33175 0500 00 0 00000 CLA 0 CD960 FP159130 | 33176 -0500 00 0 33432 CAL CAB40 B CD970 FP159140 | 33177 0074 00 4 11455 TSX SADDR+1,4 CD980 FP159150 33200 -0500 00 0 33202 CAL *+2 CD990 FP159160 | 33201 0074 00 4 11413 TSX PRGMR,4 MOVE CAS CE010 FP159170 | 33202 0340 00 0 00000 CAS 0 CE020 FP159180 | 33203 0074 00 4 11454 TSX SADDR,4 CE030 FP159190 | 33204 -0500 00 0 33206 CAL *+2 CE040 FP159200 33205 0074 00 4 11413 TSX PRGMR,4 MOVE NOP CE050 FP159210 | 33206 0761 00 0 00000 NOP CE060 FP159220 | 33207 -0500 00 0 33211 CAL *+2 CE070 FP159230 | 33210 0074 00 4 11413 TSX PRGMR,4 MOVE TRA CE080 FP159240 | 33211 0020 00 0 00000 TRA 0 CE090 FP159250 33212 -0500 00 0 11063 CAL EQUIV+4 10 CE100 FP159260 | 33213 0074 00 4 11465 TSX PADDR,4 CE101 FP159270 | 33214 -0500 00 0 33216 CAL *+2 FP159280 | 33215 0074 00 4 11413 TSX PRGMR,4 FP159290 | 33216 0074 00 4 20175 TSX CHBCD,4 FP159300 33217 -0500 00 0 33221 CAL *+2 CE102 FP159310 | 33220 0074 00 4 11413 TSX PRGMR,4 CE103 FP159320 | 33221 0602 00 0 00004 SLW 4 VALUE TO FLD 4 OF REJ CE104 FP159330 | 33222 -0500 00 0 33440 CAL CAC20 CE105 FP159340 | 33223 -0760 00 0 00003 SSM CE106 FP159350 33224 0074 00 4 11507 TSX YADDR,4 CE107 FP159360 | 33225 -0500 00 0 33227 CAL *+2 CE108 FP159370 | 33226 0074 00 4 11413 TSX PRGMR,4 CE109 FP159380 | 1 LISTING OF 12/01/64 PAGE 332 | VERVAL (9PAC43). VERTICAL VALUE FUNCTION | 33227 -0500 00 0 00000 CAL 0 CAL FLD = CE110 FP159390 | 33230 -0500 00 0 33441 CAL CAC30 CE111 FP159400 | 33231 0074 00 4 11455 TSX SADDR+1,4 CE112 FP159410 | 33232 -0500 00 0 33234 CAL *+2 CE113 FP159420 33233 0074 00 4 11413 TSX PRGMR,4 CE114 FP159430 | 33234 0602 00 0 00001 SLW 1 SLW TO FLD 2 CE115 FP159440 | 33235 -0500 00 0 33440 CAL CAC20 CE116 FP159450 | 33236 -0760 00 0 00003 SSM CE117 FP159460 | 33237 0074 00 4 11507 TSX YADDR,4 CE118 FP159470 33240 -0500 00 0 33242 CAL *+2 CE119 FP159480 | 33241 0074 00 4 11413 TSX PRGMR,4 CE120 FP159490 | 33242 0074 00 4 00001 TSX 1,4 CE121 FP159500 | 33243 -0500 00 0 33440 CAL CAC20 CE122 FP159510 | 33244 0074 00 4 11507 TSX YADDR,4 CE123 FP159520 33245 -0500 00 0 33247 CAL *+2 CE124 FP159530 | 33246 0074 00 4 11413 TSX PRGMR,4 CE125 FP159540 | 33247 606226604431 BCI 1, SF MI FP159550 | 33250 -0500 00 0 33252 CAL *+2 CE127 FP159560 | 33251 0074 00 4 11413 TSX PRGMR,4 CE128 FP159570 33252 456063256263 BCI 1,N TEST CE129 FP159580 | 33253 -0500 00 0 33255 CAL *+2 CD130 FP159590 | 33254 0074 00 4 11413 TSX PRGMR,4 CD131 FP159600 | 33255 0535 00 1 22174 LAC MRGLO,1 LAC CD132 FP159610 | 33256 0074 00 4 11413 TSX PRGMR,4 CD137 FP159620 33257 0020 00 0 00000 TRA 0 TRA GADDR 3 CD138 FP159630 | 33260 -0500 00 0 33443 CAL CAC50 CD139 FP159640 | 33261 0074 00 4 11477 TSX GADDR,4 CD140 FP159650 | 33262 0500 00 2 00001 CE150 CLA 1,2 SUM FWD TEST CE150 FP159660 | 33263 0120 00 0 33331 TPL CE520 NO SUM FWD CE160 FP159670 33264 -0500 00 0 04622 CAL CARD+1 REC TYPE AND FLD NO CE170 FP159680 | 33265 0560 00 0 04623 LDQ CARD+2 * CE180 FP159690 | 33266 -0763 00 0 00022 LGL 18 * CE190 FP159700 | 33267 0602 00 0 33436 SLW CAB80 * STORE TEMP CE200 FP159710 | 33270 -0774 00 1 71545 AXC SUTBL,1 CE210 FP159720 33271 -0340 00 1 00000 CE230 LAS 0,1 SEARCH TABLE CE230 FP159730 | 33272 1 77775 1 33271 TXI CE230,1,-3 * BACK TO COMPARE CE240 FP159740 | 33273 1 77776 1 33276 CE250 TXI CE270,1,-2 MODIFY TO SUM TO ADDR CE250 FP159750 | 33274 0074 00 4 10507 TSX T0010,4 CE255 FP159760 | 33275 -1 11204 4 00000 STR 0,4,4740 VER FLD IN SUMM DICT,NOT THERE NOW CE260 FP159770 33276 -0500 00 1 00000 CE270 CAL 0,1 HAS SUM FWD FLD BEEN DELETECE270 FP159780 | 33277 -0760 00 0 00001 PBT * CE280 FP159790 | 33300 0020 00 0 33302 TRA *+2 * NO CE281 FP159800 | 33301 0020 00 0 33324 TRA CE470 * YES CE282 FP159810 | 33302 -0501 00 0 33304 ORA *+2 BUILD CLA SUM TO CE290 FP159820 33303 0074 00 4 11413 TSX PRGMR,4 MOVE CLA SUM TO CE300 FP159830 | 33304 0500 00 0 00000 CLA 0 CE310 FP159840 | 33305 0520 00 0 33430 ZET CAB20 TEST ACTION SW CE320 FP159850 | 33306 0020 00 0 33313 TRA CE380 ACCUM LEG CE330 FP159860 | 33307 0500 00 0 13613 CLA E1005 REPLACE LEG - BUILD SUB C2 CE340 FP159870 33310 -0501 00 0 33312 ORA *+2 * CE350 FP159880 | 33311 0074 00 4 11413 TSX PRGMR,4 * CE360 FP159890 | 33312 0402 00 2 00000 SUB 0,2 CE370 FP159900 | 33313 -0500 00 0 33315 CE380 CAL *+2 BUILD ADD VALUE CE380 FP159910 | 33314 0074 00 4 11413 TSX PRGMR,4 * CE390 FP159920 33315 0400 00 0 00000 ADD 0 * CE400 FP159930 | 1 LISTING OF 12/01/64 PAGE 333 | VERVAL (9PAC43). VERTICAL VALUE FUNCTION | | 33316 -0500 00 0 33431 CAL CAB30 * A CE410 FP159940 33317 0074 00 4 11455 TSX SADDR+1,4 * CE420 FP159950 | 33320 -0500 00 0 33323 CAL *+3 BUILD STO SUM TO CE430 FP159960 | 33321 -0501 00 1 00000 ORA 0,1 * CE440 FP159970 | 33322 0074 00 4 11413 TSX PRGMR,4 * CE450 FP159980 | 33323 0601 00 0 00000 STO 0 * CE460 FP159990 33324 1 77777 1 33325 CE470 TXI *+1,1,-1 MODIFY TO NEXT TABLE ENTRY CE470 FP160000 | 33325 -0500 00 0 33436 CAL CAB80 LOAD FLD NO + TEST CE480 FP160010 | 33326 -0340 00 1 00000 LAS 0,1 * CE490 FP160020 | 33327 0020 00 0 33331 TRA CE520 * HIGH - NO MORE MATCHING CE500 FP160030 | 33330 0020 00 0 33273 TRA CE250 * BACK TO BUILD PKG CE510 FP160040 33331 -0500 00 0 33333 CE520 CAL *+2 BUILD CAL TEMP CE520 FP160050 | 33332 0074 00 4 11413 TSX PRGMR,4 CE660 FP160060 | 33333 -0500 00 0 00000 CAL 0 CE670 FP160070 | 33334 -0500 00 0 33432 CAL CAB40 * TEMP STOR WD NO CE680 FP160080 | 33335 0074 00 4 11455 TSX SADDR+1,4 CE690 FP160090 33336 0500 00 0 13613 CLA E1005 BUILD SLW C2 CE700 FP160100 | 33337 -0501 00 0 33341 ORA *+2 * CE710 FP160110 | 33340 0074 00 4 11413 TSX PRGMR,4 * CE720 FP160120 | 33341 0602 00 2 00000 SLW 0,2 * CE730 FP160130 | 33342 0020 00 0 14307 TRA BB010 CE800 FP160140 33343 0760 00 0 00000 CE810 CLM RESET LEG CE810 FP160150 | 33344 0621 00 0 33430 STA CAB20 SET ACTION SW TO ZERO CE811 FP160160 | 33345 0074 00 4 11426 TSX STORR,4 CE820 FP160170 | 33346 -0500 00 0 11436 CAL G0080 WORD NO. OF LAST STORR CE830 FP160180 | 33347 0621 00 0 33431 STA CAB30 CE840 FP160190 33350 0621 00 0 33432 STA CAB40 CE850 FP160200 | 33351 0020 00 0 33262 TRA CE150 TO SUM FWD TEST CE860 FP160210 | 33352 0760 00 0 00000 CE870 CLM ZERO AS VALUE TO STORR CE870 FP160220 | 33353 0074 00 4 11426 TSX STORR,4 * CE880 FP160230 | 33354 -0500 00 0 11436 CAL G0080 WORD NO. OF STORAGE TO B CE890 FP160240 33355 0621 00 0 33432 STA CAB40 * CE900 FP160250 | 33356 0020 00 0 33331 TRA CE520 CE910 FP160260 | 33357 -0500 00 0 67172 CE920 CAL HEADR CLEAN UP CE920 FP160270 | 33360 0771 00 0 00006 ARS 6 * CE930 FP160280 | 33361 -0320 00 0 10755 ANA BCD30 * CE940 FP160290 33362 0602 00 0 33402 SLW CE993 CE941 FP160300 | 33363 -0500 00 0 67172 CAL HEADR DETERMINE AREA CODE CE942 FP160310 | 33364 -0320 00 0 10726 ANA BCD01 CE943 FP160320 | 33365 -0340 00 0 33403 LAS CE994 CE944 FP160330 | 33366 0020 00 0 33370 TRA *+2 CE945 FP160340 33367 0020 00 0 33372 TRA *+3 IS V CE946 FP160350 | 33370 -0500 00 0 33401 CAL CE992 IS SET CE947 FP160360 | 33371 0020 00 0 33373 TRA *+2 CE948 FP160370 | 33372 -0500 00 0 33400 CAL CE991 CE949 FP160380 | 33373 -0501 00 0 33402 ORA CE993 CE950 FP160390 33374 0074 00 4 11547 TSX M0010,4 * CE960 FP160400 | 33375 -0520 00 0 14512 NZT BAE80 * CE970 FP160410 | 33376 0020 00 0 14403 TRA BB360 * CE980 FP160420 | 33377 0020 00 0 14341 TRA BB180 * CE990 FP160430 | 33400 520000440000 CE991 BCI 1,!00M00 * CE991 FP160440 33401 -000000440000 CE992 OCT 400000440000 CE992 FP160450 | 33402 0 00000 0 00000 CE993 PZE 0 CE993 FP160460 | 33403 000000000065 CE994 BCI 1,00000V CE994 FP160470 | 33404 0441 00 0 14525 CE995 LDI BAC50 CE995 FP160480 | 1 LISTING OF 12/01/64 PAGE 334 VERVAL (9PAC43). VERTICAL VALUE FUNCTION | | 33405 -0054 00 001000 LFT 001000 FP160490 | 33406 0020 00 0 14274 TRA BA968 FP160500 | 33407 0074 00 4 12507 TSX MSYSRD,4 FP160510 33410 114721230404 BCI 1,9PAC44 CLNUPD FP160520 | 33411 0 01303 0 30477 PZE CLNHO,,CLNHO-UDRPT-2 FP160530 | 33412 0 00000 0 00000 CAA10 PZE 0 CURRENT RECORD TYPE CAA10 FP160540 | 33413 0 00000 0 00000 CAA20 PZE 0 POSTO CAA20 FP160550 | 33414 000000620000 CAA30 BCI 5,000S00000R00000+00000-00000T00 CAA30 FP160560 33415 000000510000 | 33416 000000200000 | 33417 000000400000 | 33420 000000630000 | 33421 0 00000 0 00000 CAA40 PZE 0 WORD NO. - S.F. CAA40 FP160570 33422 0 00000 0 00030 CAA50 PZE 24 CAA50 FP160580 | 33423 0 00000 0 00044 CAA60 PZE 36 CAA60 FP160590 | 33424 -0763 00 0 00000 CAA70 LGL 0 CAA70 FP160600 | 33425 0 00000 0 00000 CAA80 PZE 0 LEFT MASK CAA80 FP160610 | 33426 0 00000 0 00001 CAA90 PZE 1 CAA90 FP160620 33427 0 00000 0 00000 CAB10 PZE 0 VALUE STORAGE CAB10 FP160630 | 33430 0 00000 0 00000 CAB20 PZE 0 ACTION SWITCH CAB20 FP160640 | 33431 0 00000 0 00000 CAB30 PZE 0 A CAB30 FP160650 | 33432 0 00000 0 00000 CAB40 PZE 0 B CAB40 FP160660 | 33433 606060606060 CAB50 BCI 1, BLANK WORD CAB50 FP160670 33434 -377777777717 CAB60 OCT 777777777717 MASK FOR SIGN MAN IP CAB60 FP160680 | 33435 0 00000 0 00002 CAB70 PZE 2 CAB70 FP160690 | 33436 0 00000 0 00000 CAB80 PZE 0 REC TYPE + FLD NO. STORAGE CAB80 FP160700 | 33437 000052000065 CAC10 BCI 1,00!00V CAC10 FP160710 | 33440 0 00000 0 00000 CAC20 PZE 0 TEMP STORAGE REJ CODE CAC20 FP160720 33441 0 00000 0 00000 CAC30 PZE 0 FLD = LOC FOR SADDR CAC30 FP160730 | 33442 0 00000 0 00011 CAC40 PZE 9 CAC40 FP160740 | 33443 0 00000 0 00003 CAC50 PZE 3 CAC50 FP160750 | 33444 000000006060 CAC60 BCI 1,0000 CAC60 FP160760 | 33527 VEVAL BES 50 FP160770 00000 TCD 0 FP160780 | 1 LISTING OF 12/01/64 PAGE 335 | VERVAL (9PAC43). VERTICAL VALUE FUNCTION | | * FP160800 1 LISTING OF 12/01/64 PAGE 336 | CLNUPD (9PAC44). CLEANUP UPDATE FUNCTION | | * FP160820 | * FP160830 27174 ORG UDRPT+2 CLNUPD FP160850 | * FP160860 | * FP160870 | * FP160880 | * UPDATE ENTRY PACKAGE VK000 FP160890 * FP160900 | * FP160910 | 27174 114721230404 BCI 1,9PAC44 FP160920 | 27175 234345644724 BCI 1,CLNUPD CLEANUP FOR UPD WITHOUT DIC FP160930 | 00100 ORG SYSTRA FP160940 00100 0020 00 0 30051 TRA VN520 FP160950 | 27176 ORG UDRPT+4 FP160960 | 27176 -0500 00 0 67172 VK010 CAL HEADR VK010 FP160970 | 27177 -0320 00 0 11005 ANA BCD60 VK020 FP160980 | 27200 0771 00 0 00006 ARS 6 VK030 FP160990 27201 0602 00 0 30102 SLW VKA10 VK040 FP161000 | 27202 -0501 00 0 30105 ORA VKA40 VK041 FP161010 | 27203 0602 00 0 30105 SLW VKA40 VK042 FP161020 | 27204 -0500 00 0 30102 CAL VKA10 VK043 FP161030 | 27205 -0501 00 0 30111 ORA VKA80 VK044 FP161040 27206 0602 00 0 30111 SLW VKA80 VK045 FP161050 | 27207 0771 00 0 00014 ARS 12 VK046 FP161060 | 27210 0602 00 0 30112 SLW VKA90 VK047 FP161070 | 27211 0520 00 0 11407 ZET UPWSL VK0480FP161080 | 27212 0020 00 0 27253 TRA VK060-1 VK0480FP161090 27213 -0520 00 0 11372 NZT UPDIC VK0480FP161100 | 27214 0020 00 0 27253 TRA VK060-1 VK0480FP161110 | 27215 -0500 00 0 67175 CAL HEADR+3 VK0480FP161120 | 27216 0560 00 0 67176 LDQ HEADR+4 VK0480FP161130 | 27217 -0763 00 0 00036 LGL 30 VK0480FP161140 27220 -0320 00 0 11005 ANA BCD60 VK0480FP161150 | 27221 0074 00 4 11426 TSX STORR,4 VK0480FP161160 | 27222 -0500 00 0 27224 CAL *+2 CAL REC TYPE VK0480FP161170 | 27223 0074 00 4 11413 TSX PRGMR,4 VK0481FP161180 | 27224 -0500 00 1 00000 CAL 0,1 VK0481FP161190 27225 -0500 00 0 27227 CAL *+2 ERA SEL TYPE VK0481FP161200 | 27226 0074 00 4 11413 TSX PRGMR,4 VK0481FP161210 | 27227 0322 00 0 00000 ERA 0 VK0481FP161220 | 27230 0074 00 4 11454 TSX SADDR,4 VK0481FP161230 | 27231 -0500 00 0 27233 CAL *+2 TNZ-NOT SELECTED VK0481FP161240 27232 0074 00 4 11413 TSX PRGMR,4 VK0481FP161250 | 27233 -0100 00 0 00000 TNZ 0 VK0481FP161260 | 27234 0500 00 0 30104 CLA VKA30 3 VK0481FP161270 | 27235 0074 00 4 11477 TSX GADDR,4 VK0482FP161280 | 27236 0760 00 0 00000 CLM BUILD CODE WORD VK0482FP161290 27237 -0130 00 0 00000 XCL VK0482FP161300 | 27240 -0500 00 0 67172 CAL HEADR VK0482FP161310 | 27241 0771 00 0 00030 ARS 24 VK0482FP161320 | 27242 -0765 00 0 00004 LGR 4 VK0482FP161330 | 27243 0771 00 0 00002 ARS 2 VK0482FP161340 27244 -0765 00 0 00004 LGR 4 VK0482FP161350 | 27245 -0500 00 0 15063 CAL VSA30 VK0482FP161360 | 27246 -0763 00 0 00032 LGL 26 VK0482FP161370 | 1 LISTING OF 12/01/64 PAGE 337 | CLNUPD (9PAC44). CLEANUP UPDATE FUNCTION | 27247 -0501 00 0 27252 ORA *+3 VK0483FP161380 | 27250 0074 00 4 11547 TSX M0010,4 VK0483FP161390 | 27251 0020 00 0 27253 TRA *+2 VK0483FP161400 | 27252 +160000000000 OCT 160000000000 VK0483FP161410 27253 0774 00 4 00113 AXT OTZE,4 VK050 FP161420 | 27254 0520 00 4 67461 VK060 ZET ONTRY+OTZE,4 VK060 FP161430 | 27255 0020 00 0 27260 TRA *+3 VK065 FP161440 | 27256 0074 00 4 10507 TSX T0010,4 VK066 FP161450 | 27257 -1 11136 4 00000 STR 0,4,4702 UPD PRIOR NOT IN ONTRY TBL(TBL NFL) VK070 FP161460 27260 -0500 00 4 67461 CAL ONTRY+OTZE,4 VK080 FP161470 | 27261 -0320 00 0 10755 ANA BCD30 VK090 FP161480 | 27262 -0340 00 0 30102 LAS VKA10 VK100 FP161490 | 27263 0020 00 0 27265 TRA *+2 VK110 FP161500 | 27264 0020 00 0 27270 TRA *+4 VK120 FP161510 27265 2 00001 4 27254 TIX VK060,4,1 VK130 FP161520 | 27266 0074 00 4 10507 TSX T0010,4 VK135 FP161530 | 27267 -1 11135 4 00000 STR 0,4,4701 UPD PRIOR NOT IN ONTRY TBL(TBL FUL) VK140 FP161540 | 27270 -0500 00 4 67461 CAL ONTRY+OTZE,4 VK150 FP161550 | 27271 0621 00 0 30103 STA VKA20 VK160 FP161560 27272 0621 00 0 27275 STA *+3 VK170 FP161570 | 27273 -0500 00 0 27275 CAL *+2 NZT-ENTRY VK180 FP161580 | 27274 0074 00 4 11413 TSX PRGMR,4 VK190 FP161590 | 27275 -0520 00 0 00000 NZT 0 VK200 FP161600 | 27276 -0500 00 0 27300 CAL *+2 TRA VK210 FP161610 27277 0074 00 4 11413 TSX PRGMR,4 VK220 FP161620 | 27300 0020 00 0 00000 TRA 0 VK230 FP161630 | 27301 -0500 00 0 30104 CAL VKA30 3 VK240 FP161640 | 27302 0074 00 4 11477 TSX GADDR,4 VK250 FP161650 | 27303 -0500 00 0 27305 CAL *+2 NZT-HIGH VK260 FP161660 27304 0074 00 4 11413 TSX PRGMR,4 VK270 FP161670 | 27305 -0520 00 0 22203 NZT HIGH VK280 FP161680 | 27306 -0500 00 0 27310 CAL *+2 TRA VK290 FP161690 | 27307 0074 00 4 11413 TSX PRGMR,4 VK300 FP161700 | 27310 0020 00 0 00000 TRA 0 VK310 FP161710 27311 -0500 00 0 30104 CAL VKA30 3 VK320 FP161720 | 27312 0074 00 4 11477 TSX GADDR,4 VK330 FP161730 | 27313 -0500 00 0 67175 CAL HEADR+3 VK340 FP161740 | 27314 0771 00 0 00006 ARS 6 VK350 FP161750 | 27315 -0320 00 0 10726 ANA BCD01 VK360 FP161760 27316 -0340 00 0 30106 LAS VKA50 D VK370 FP161770 | 27317 0020 00 0 27321 TRA *+2 VK380 FP161780 | 27320 0020 00 0 27325 TRA VK440 VK390 FP161790 | 27321 -0340 00 0 30107 LAS VKA60 E VK400 FP161800 | 27322 0020 00 0 27324 TRA *+2 VK410 FP161810 27323 0020 00 0 27325 TRA VK440 VK420 FP161820 | 27324 0020 00 0 27407 TRA VK940 TO TEST OTHER VK430 FP161830 | * GENERATE FOR DELETE CASES VK439 FP161840 | 27325 -0500 00 0 30103 VK440 CAL VKA20 STZ-ENTRY VK440 FP161850 | 27326 0074 00 4 11413 TSX PRGMR,4 VK450 FP161860 27327 0 00000 0 00000 PZE 0 VK460 FP161870 | 27330 -0500 00 0 27332 CAL *+2 NZT-EQUAL VK470 FP161880 | 27331 0074 00 4 11413 TSX PRGMR,4 VK480 FP161890 | 27332 -0520 00 0 22204 NZT EQUAL VK490 FP161900 | 27333 -0500 00 0 27335 CAL *+2 TRA VK500 FP161910 27334 0074 00 4 11413 TSX PRGMR,4 VK510 FP161920 | 1 LISTING OF 12/01/64 PAGE 338 | CLNUPD (9PAC44). CLEANUP UPDATE FUNCTION | | 27335 0020 00 0 00000 TRA 0 VK520 FP161930 27336 -0500 00 0 11031 CAL NMBR4 VK530 FP161940 | 27337 0074 00 4 11477 TSX GADDR,4 VK540 FP161950 | 27340 -0500 00 0 27342 CAL *+2 TSX-REJECT VK550 FP161960 | 27341 0074 00 4 11413 TSX PRGMR,4 VK560 FP161970 | 27342 0074 00 4 00001 TSX 1,4 VK570 FP161980 27343 -0500 00 0 30112 CAL VKA90 VK580 FP161990 | 27344 0074 00 4 11507 TSX YADDR,4 VK590 FP162000 | 27345 -0500 00 0 27347 CAL *+2 BCI-UNMATCHED VK600 FP162010 | 27346 0074 00 4 11413 TSX PRGMR,4 VK610 FP162020 | 27347 644544216323 BCI 1,UNMATC VK620 FP162030 27350 -0500 00 0 27352 CAL *+2 BCI- VK630 FP162040 | 27351 0074 00 4 11413 TSX PRGMR,4 VK640 FP162050 | 27352 302524606060 BCI 1,HED VK650 FP162060 | 27353 -0500 00 0 27355 CAL *+2 VK660 FP162070 | 27354 0074 00 4 11413 TSX PRGMR,4 VK670 FP162080 27355 0020 00 0 22207 TRA MRGUN VK680 FP162090 | 27356 -0500 00 0 30105 CAL VKA40 LOCATION MASK VK690 FP162100 | 27357 0074 00 4 11547 TSX M0010,4 VK700 FP162110 | 27360 -0500 00 0 67175 CAL HEADR+3 VK710 FP162120 | 27361 0771 00 0 00006 ARS 6 VK720 FP162130 27362 -0320 00 0 10726 ANA BCD01 VK730 FP162140 | 27363 -0340 00 0 30107 LAS VKA60 E VK740 FP162150 | 27364 0020 00 0 27366 TRA *+2 VK750 FP162160 | 27365 0020 00 0 27375 TRA VK840 VK760 FP162170 | 27366 -0500 00 0 27370 CAL *+2 STL-DSWCH VK770 FP162180 27367 0074 00 4 11413 TSX PRGMR,4 VK780 FP162190 | 27370 -0625 00 0 22202 STL DSWCH VK790 FP162200 | 27371 -0500 00 0 27373 CAL *+2 STZ-ESWCH VK800 FP162210 | 27372 0074 00 4 11413 TSX PRGMR,4 VK810 FP162220 | 27373 0600 00 0 22201 STZ ESWCH VK820 FP162230 27374 0020 00 0 27403 TRA VK900 VK830 FP162240 | 27375 -0500 00 0 27377 VK840 CAL *+2 STL-DSWCH VK840 FP162250 | 27376 0074 00 4 11413 TSX PRGMR,4 VK850 FP162260 | 27377 -0625 00 0 22202 STL DSWCH VK860 FP162270 | 27400 -0500 00 0 27402 CAL *+2 STL-ESWCH VK870 FP162280 27401 0074 00 4 11413 TSX PRGMR,4 VK880 FP162290 | 27402 -0625 00 0 22201 STL ESWCH VK890 FP162300 | 27403 -0500 00 0 30102 VK900 CAL VKA10 PRIORITY CODE VK900 FP162310 | 27404 -0501 00 0 30113 ORA VKB10 VK910 FP162320 | 27405 0074 00 4 11547 TSX M0010,4 DUMP OBJ PGM VK920 FP162330 27406 0020 00 0 27705 TRA VN280 VK930 FP162340 | 27407 -0340 00 0 30114 VK940 LAS VKB20 M VK940 FP162350 | 27410 0020 00 0 27412 TRA *+2 VK950 FP162360 | 27411 0020 00 0 27413 TRA VL010 VK960 FP162370 | 27412 0020 00 0 27447 TRA VL290 VK970 FP162380 * GENERATE FOR NORMAL MODIFY VL000 FP162390 | 27413 -0500 00 0 30103 VL010 CAL VKA20 STZ-ENTRY VL010 FP162400 | 27414 0074 00 4 11413 TSX PRGMR,4 VL020 FP162410 | 27415 0 00000 0 00000 PZE 0 VL030 FP162420 | 27416 -0500 00 0 27420 CAL *+2 NZT-EOUAL VL040 FP162430 27417 0074 00 4 11413 TSX PRGMR,4 VL050 FP162440 | 27420 -0520 00 0 22204 NZT EQUAL VL060 FP162450 | 27421 -0500 00 0 27423 CAL *+2 TRA VL070 FP162460 | 27422 0074 00 4 11413 TSX PRGMR,4 VL080 FP162470 | 1 LISTING OF 12/01/64 PAGE 339 CLNUPD (9PAC44). CLEANUP UPDATE FUNCTION | | 27423 0020 00 0 00000 TRA 0 VL090 FP162480 | 27424 0500 00 0 30110 CLA VKA70 FOUR, FOR GADDR TO TRA NEXT BLOCK VL090 FP162490 | 27425 0074 00 4 11477 TSX GADDR,4 VL100 FP162500 27426 -0500 00 0 27430 CAL *+2 TSX-REJECT VL120 FP162510 | 27427 0074 00 4 11413 TSX PRGMR,4 VL130 FP162520 | 27430 0074 00 4 00001 TSX 1,4 VL140 FP162530 | 27431 -0500 00 0 30112 CAL VKA90 REJECT YADDR MASK VL150 FP162540 | 27432 0074 00 4 11507 TSX YADDR,4 VL160 FP162550 27433 -0500 00 0 27435 CAL *+2 BCI-UNMATCHED VL170 FP162560 | 27434 0074 00 4 11413 TSX PRGMR,4 VL180 FP162570 | 27435 644544216323 BCI 1,UNMATC VL190 FP162580 | 27436 -0500 00 0 27440 CAL *+2 BCI VL200 FP162590 | 27437 0074 00 4 11413 TSX PRGMR,4 VL210 FP162600 27440 302524606060 BCI 1,HED VL220 FP162610 | 27441 -0500 00 0 27443 CAL *+2 TRA-MERGE VL230 FP162620 | 27442 0074 00 4 11413 TSX PRGMR,4 VL240 FP162630 | 27443 0020 00 0 22207 TRA MRGUN VL250 FP162640 | 27444 -0500 00 0 30105 CAL VKA40 LOC MASK VL260 FP162650 27445 0074 00 4 11547 TSX M0010,4 VL270 FP162660 | 27446 0020 00 0 27705 TRA VN280 VL280 FP162670 | 27447 -0340 00 0 30115 VL290 LAS VKB30 I VL290 FP162680 | 27450 0020 00 0 27452 TRA *+2 VL300 FP162690 | 27451 0020 00 0 27453 TRA VL630 VL310 FP162700 27452 0020 00 0 27555 TRA VM240 ON VL320 FP162710 | * GENERATE INSERT ACTION VL399 FP162720 | 27453 -0500 00 0 27455 VL630 CAL *+2 NZT-EQUAL VL630 FP162730 | 27454 0074 00 4 11413 TSX PRGMR,4 VL640 FP162740 | 27455 -0520 00 0 22204 NZT EQUAL VL650 FP162750 27456 -0500 00 0 27460 CAL *+2 TRA VL660 FP162760 | 27457 0074 00 4 11413 TSX PRGMR,4 VL670 FP162770 | 27460 0020 00 0 00004 TRA 4 VL680 FP162780 | 27461 -0500 00 0 30102 CAL VKA10 PRIORITY VL690 FP162790 | 27462 0771 00 0 00014 ARS 12 VL700 FP162800 27463 -0501 00 0 30116 ORA VKB40 SPEC YADDR MASK VL710 FP162810 | 27464 0074 00 4 11507 TSX YADDR,4 VL720 FP162820 | 27465 -0500 00 0 30105 CAL VKA40 DUMP OBJ PGM VL730 FP162830 | 27466 0074 00 4 11547 TSX M0010,4 VL740 FP162840 | 27467 -0500 00 0 27471 CAL *+2 STL-ISWCH VL750 FP162850 27470 0074 00 4 11413 TSX PRGMR,4 VL760 FP162860 | 27471 -0625 00 0 22205 STL ISWCH VL770 FP162870 | 27472 -0500 00 0 27474 CAL *+2 TSX-INSERT VL780 FP162880 | 27473 0074 00 4 11413 TSX PRGMR,4 VL790 FP162890 | 27474 0074 00 4 00000 TSX 0,4 VL800 FP162900 27475 -0500 00 0 67173 CAL HEADR+1 VL810 FP162910 | 27476 0560 00 0 67174 LDQ HEADR+2 VL811 FP162920 | 27477 -0763 00 0 00014 LGL 12 VL812 FP162930 | 27500 -0320 00 0 10733 ANA BCD06 VL820 FP162940 | 27501 -0501 00 0 30121 ORA VKB70 INSERT YADDR MASK VL830 FP162950 27502 0074 00 4 11507 TSX YADDR,4 VL840 FP162960 | 27503 -0500 00 0 27505 CAL *+2 VL850 FP162970 | 27504 0074 00 4 11413 TSX PRGMR,4 VL851 FP162980 | 27505 0 00000 0 00001 PZE 1 VL852 FP162990 | 27506 -0500 00 0 30112 CAL VKA90 VL860 FP163000 27507 0074 00 4 11507 TSX YADDR,4 VL870 FP163010 | 27510 -0500 00 0 27512 CAL *+2 TRA REF 35 VL890 FP163020 | 1 LISTING OF 12/01/64 PAGE 340 | CLNUPD (9PAC44). CLEANUP UPDATE FUNCTION | 27511 0074 00 4 11413 TSX PRGMR,4 VL900 FP163030 | 27512 0020 00 0 00000 TRA 0 VL910 FP163040 | 27513 -0500 00 0 30120 CAL VKB60 VL920 FP163050 | 27514 0074 00 4 11507 TSX YADDR,4 VL930 FP163060 | 27515 -0500 00 0 27517 CAL *+2 ZET-ISWCH VL940 FP163070 27516 0074 00 4 11413 TSX PRGMR,4 VL950 FP163080 | 27517 0520 00 0 22205 ZET ISWCH VL960 FP163090 | 27520 -0500 00 0 27522 CAL *+2 TRA VL970 FP163100 | 27521 0074 00 4 11413 TSX PRGMR,4 VL980 FP163110 | 27522 0020 00 0 00000 TRA 0 VL990 FP163120 27523 -0500 00 0 30123 CAL VKB90 5 VM010 FP163130 | 27524 0074 00 4 11465 TSX PADDR,4 VM020 FP163140 | 27525 -0500 00 0 27527 CAL *+2 TSX-REJECT VM030 FP163150 | 27526 0074 00 4 11413 TSX PRGMR,4 VM040 FP163160 | 27527 0074 00 4 00001 TSX 1,4 VM050 FP163170 27530 -0500 00 0 30112 CAL VKA90 VM060 FP163180 | 27531 0074 00 4 11507 TSX YADDR,4 VM070 FP163190 | 27532 -0500 00 0 27534 CAL *+2 BCI-INSERT EQUAL VM080 FP163200 | 27533 0074 00 4 11413 TSX PRGMR,4 VM090 FP163210 | 27534 314562255163 BCI 1,INSERT VM100 FP163220 27535 -0500 00 0 27537 CAL *+2 BCI VM110 FP163230 | 27536 0074 00 4 11413 TSX PRGMR,4 VM120 FP163240 | 27537 602550642143 BCI 1, EQUAL VM130 FP163250 | 27540 -0500 00 0 27542 CAL *+2 TRA-MERGE VM140 FP163260 | 27541 0074 00 4 11413 TSX PRGMR,4 VM150 FP163270 27542 0020 00 0 22210 TRA MERGE VM160 FP163280 | 27543 -0500 00 0 27545 CAL *+2 STZ-ISWCH VM170 FP163290 | 27544 0074 00 4 11413 TSX PRGMR,4 VM180 FP163300 | 27545 0600 00 0 22205 STZ ISWCH VM190 FP163310 | 27546 -0500 00 0 30103 CAL VKA20 STZ-ENTRY VM191 FP163320 27547 0074 00 4 11413 TSX PRGMR,4 VM192 FP163330 | 27550 0 00000 0 00000 PZE 0 VM193 FP163340 | 27551 -0500 00 0 30102 CAL VKA10 PRIORITY CODE VM200 FP163350 | 27552 -0501 00 0 30117 ORA VKB50 SPEC LOC MASK VM210 FP163360 | 27553 0074 00 4 11547 TSX M0010,4 VM220 FP163370 27554 0020 00 0 27705 TRA VN280 VM230 FP163380 | 27555 -0340 00 0 30122 VM240 LAS VKB80 O VM240 FP163390 | 27556 0020 00 0 27560 TRA *+2 VM250 FP163400 | 27557 0020 00 0 27562 TRA VM280 VM260 FP163410 | 27560 0074 00 4 10507 TSX T0010,4 VM265 FP163420 27561 -1 00621 2 14043 STR BA010,2,401 INVALID UPD RECORD ACTION VM270 FP163430 | * GENERATE OR ENTRY PACKAGE VM279 FP163440 | 27562 -0500 00 0 27564 VM280 CAL *+2 ZET-EQUAL VM280 FP163450 | 27563 0074 00 4 11413 TSX PRGMR,4 VM290 FP163460 | 27564 0520 00 0 22204 ZET EQUAL VM300 FP163470 27565 -0500 00 0 27567 CAL *+2 TRA *+4 VM310 FP163480 | 27566 0074 00 4 11413 TSX PRGMR,4 VM320 FP163490 | 27567 0020 00 0 00000 TRA 0 VM330 FP163500 | 27570 -0500 00 0 30110 CAL VKA70 4 VM340 FP163510 | 27571 0074 00 4 11465 TSX PADDR,4 VM350 FP163520 27572 -0500 00 0 27574 CAL *+2 NZT-ISWCH. VM360 FP163530 | 27573 0074 00 4 11413 TSX PRGMR,4 VM370 FP163540 | 27574 -0520 00 0 22205 NZT ISWCH VM380 FP163550 | 27575 -0500 00 0 27577 CAL *+2 TRA G/3 VM390 FP163560 | 27576 0074 00 4 11413 TSX PRGMR,4 VM400 FP163570 1 LISTING OF 12/01/64 PAGE 341 | CLNUPD (9PAC44). CLEANUP UPDATE FUNCTION | | 27577 0020 00 0 00000 TRA 0 VM410 FP163580 | 27600 -0500 00 0 30110 CAL VKA70 4 VM420 FP163590 27601 0074 00 4 11477 TSX GADDR,4 VM430 FP163600 | 27602 -0500 00 0 27604 CAL *+2 TRA 4+INSERT DO VM440 FP163610 | 27603 0074 00 4 11413 TSX PRGMR,4 VM450 FP163620 | 27604 0020 00 0 00004 TRA 4 VM460 FP163630 | 27605 -0500 00 0 30102 CAL VKA10 PRIORITY VM470 FP163640 27606 0771 00 0 00014 ARS 12 VM480 FP163650 | 27607 -0501 00 0 30116 ORA VKB40 SPEC YADDR MASK VM490 FP163660 | 27610 0074 00 4 11507 TSX YADDR,4 VM500 FP163670 | 27611 -0500 00 0 27613 CAL *+2 STL-ISWCH VM510 FP163680 | 27612 0074 00 4 11413 TSX PRGMR,4 VM520 FP163690 27613 -0625 00 0 22205 STL ISWCH VM530 FP163700 | 27614 -0500 00 0 30105 CAL VKA40 LOC MASK VM540 FP163710 | 27615 0074 00 4 11547 TSX M0010,4 VM550 FP163720 | 27616 -0500 00 0 27620 CAL *+2 NZT-ISWCH. VM560 FP163730 | 27617 0074 00 4 11413 TSX PRGMR,4 VM570 FP163740 27620 -0520 00 0 22205 NZT ISWCH VM580 FP163750 | 27621 -0500 00 0 27623 CAL *+2 TRA VM590 FP163760 | 27622 0074 00 4 11413 TSX PRGMR,4 VM600 FP163770 | 27623 0020 00 0 00000 TRA 0 VM610 FP163780 | 27624 -0500 00 0 30110 CAL VKA70 4 VM620 FP163790 27625 0520 00 0 11370 ZET RPTSW VM630 FP163800 | 27626 0400 00 0 30124 ADD VKC10 2 VM640 FP163810 | 27627 0074 00 4 11465 TSX PADDR,4 VM650 FP163820 | 27630 -0500 00 0 27632 CAL *+2 TSX-INSERT VM660 FP163830 | 27631 0074 00 4 11413 TSX PRGMR,4 VM670 FP163840 27632 0074 00 4 00000 TSX 0,4 VM680 FP163850 | 27633 -0500 00 0 67173 CAL HEADR+1 VM690 FP163860 | 27634 0560 00 0 67174 LDQ HEADR+2 VM700 FP163870 | 27635 -0763 00 0 00014 LGL 12 VM710 FP163880 | 27636 -0320 00 0 10733 ANA BCD06 VM720 FP163890 27637 -0501 00 0 30121 ORA VKB70 INSERT YADDR MASK VM730 FP163900 | 27640 0074 00 4 11507 TSX YADDR,4 VM740 FP163910 | 27641 -0500 00 0 27643 CAL *+2 PZE-1 VM750 FP163920 | 27642 0074 00 4 11413 TSX PRGMR,4 VM760 FP163930 | 27643 0 00000 0 00001 PZE 1 VM770 FP163940 27644 -0500 00 0 30112 CAL VKA90 VM775 FP163950 | 27645 0074 00 4 11507 TSX YADDR,4 VM776 FP163960 | 27646 -0500 00 0 27650 CAL *+2 STZ-ISWCH VM780 FP163970 | 27647 0074 00 4 11413 TSX PRGMR,4 VM790 FP163980 | 27650 0600 00 0 22205 STZ ISWCH VM800 FP163990 27651 -0520 00 0 11370 NZT RPTSW VM810 FP164000 | 27652 0020 00 0 27676 TRA VN060 VM820 FP164010 | 27653 -0500 00 0 27655 CAL *+2 AXT-I VM840 FP164020 | 27654 0074 00 4 11413 TSX PRGMR,4 VM850 FP164030 | 27655 0774 00 4 00031 AXT 25,4 VM860 FP164040 27656 -0500 00 0 27660 CAL *+2 TRA-*+2 VM870 FP164050 | 27657 0074 00 4 11413 TSX PRGMR,4 VM880 FP164060 | 27660 0020 00 0 00000 TRA 0 VM890 FP164070 | 27661 -0500 00 0 30124 CAL VKC10 2 VM900 FP164080 | 27662 0074 00 4 11465 TSX PADDR,4 VM910 FP164090 27663 -0500 00 0 27665 CAL *+2 AXT-T VM920 FP164100 | 27664 0074 00 4 11413 TSX PRGMR,4 VM930 FP164110 | 27665 0774 00 4 00063 AXT 51,4 VM940 FP164120 | 1 LISTING OF 12/01/64 PAGE 342 | CLNUPD (9PAC44). CLEANUP UPDATE FUNCTION | 27666 -0500 00 0 27670 CAL *+2 SXA-REPT RTN VM950 FP164130 | 27667 0074 00 4 11413 TSX PRGMR,4 VM960 FP164140 | 27670 0634 00 4 00000 SXA 0,4 VM970 FP164150 | 27671 -0500 00 0 30102 CAL VKA10 PRIORITY CODE VN010 FP164160 27672 0771 00 0 00014 ARS 12 VN020 FP164170 | 27673 -0501 00 0 30142 ORA VKC20 POST REPT YADDR MASK VN030 FP164180 | 27674 -0760 00 0 00003 SSM 0 TO GET STORAGE VN040 FP164190 | 27675 0074 00 4 11507 TSX YADDR,4 VN050 FP164200 | 27676 -0500 00 0 30103 VN060 CAL VKA20 STZ-ENTRY VN060 FP164210 27677 0074 00 4 11413 TSX PRGMR,4 VN070 FP164220 | 27700 0 00000 0 00000 PZE 0 VN080 FP164230 | 27701 -0500 00 0 30102 CAL VKA10 PRIORITY CODE VN090 FP164240 | 27702 -0501 00 0 30117 ORA VKB50 VN100 FP164250 | 27703 0074 00 4 11547 TSX M0010,4 DUMP OBJECT VN110 FP164260 27704 0020 00 0 27705 TRA VN280 VN120 FP164270 | * GENERATE REJECT BLOCK VN279 FP164280 | 27705 -0520 00 0 11372 VN280 NZT UPDIC VN280 FP164290 | 27706 0020 00 0 27714 TRA VN345 NO DICT VN290 FP164300 | 27707 -0500 00 0 47655 CAL BEDIC+1 DICT PICK UP RECORD SIZE VN300 FP164310 27710 0560 00 0 47656 LDQ BEDIC+2 VN310 FP164320 | 27711 -0763 00 0 00022 LGL 18 VN320 FP164330 | 27712 -0320 00 0 10744 ANA BCD17 VN330 FP164340 | 27713 0020 00 0 27721 TRA VN385 VN340 FP164350 | 27714 -0500 00 0 67174 VN345 CAL HEADR+2 RECORD SIZE VN345 FP164360 27715 0560 00 0 67175 LDQ HEADR+3 TO B8 LABELS VN350 FP164370 | 27716 -0765 00 0 00014 LGR 12 VN355 FP164380 | 27717 0754 00 0 00000 PXA 0,0 VN375 FP164390 | 27720 -0763 00 0 00022 LGL 18 VN380 FP164400 | 27721 0602 00 0 07751 VN385 SLW B1020 VN385 FP164410 27722 0074 00 4 07570 TSX B0010,4 VN390 FP164420 | 27723 0500 00 0 07747 CLA B1000 VN395 FP164430 | 27724 0340 00 0 30170 CAS VKC40 VN400 FP164440 | 27725 0500 00 0 30170 CLA VKC40 TRUNCATE VN405 FP164450 | 27726 0761 00 0 00000 NOP VN410 FP164460 27727 0621 00 0 30050 STA VN480 VN430 FP164470 | 27730 -0500 00 0 27732 CAL *+2 TRA-MERGE VN440 FP164480 | 27731 0074 00 4 11413 TSX PRGMR,4 VN450 FP164490 | 27732 0020 00 0 22210 TRA MERGE VN460 FP164500 | 27733 0600 00 0 11370 STZ RPTSW CLOSE UPDATE REPORT SW VN461 FP164510 27734 -0500 00 0 30103 CAL VKA20 STZ VN462 FP164520 | 27735 0074 00 4 11413 TSX PRGMR,4 VN463 FP164530 | 27736 0 00000 0 00000 PZE 0 VN464 FP164540 | 27737 -0500 00 0 27741 CAL *+2 VN465 FP164550 | 27740 0074 00 4 11413 TSX PRGMR,4 VN466 FP164560 27741 0600 00 0 22205 STZ ISWCH VN467 FP164570 | 27742 -0500 00 0 27747 CAL *+5 RESTORE CLNUPD STORAGE VN4680FP164580 | 27743 0602 00 0 30105 SLW VKA40 VN4680FP164590 | 27744 -0500 00 0 27750 CAL *+4 VN4680FP164600 | 27745 0602 00 0 30111 SLW VKA80 VN4680FP164610 27746 0020 00 0 27751 TRA *+3 VN4680FP164620 | 27747 -120000210000 OCT 520000210000 VN4680FP164630 | 27750 -120000650000 OCT 520000650000 VN4680FP164640 | 27751 0520 00 0 11372 ZET UPDIC VN4681FP164650 | 27752 0020 00 0 30014 TRA VN472 VN4681FP164660 27753 0600 00 0 34114 STZ GAA10 RESTORE UPDFLD STORAGE VN4690FP164670 | 1 LISTING OF 12/01/64 PAGE 343 | CLNUPD (9PAC44). CLEANUP UPDATE FUNCTION | | 27754 0600 00 0 34121 STZ GAA40 VN4690FP164680 27755 0600 00 0 34130 STZ GAB20 VN4690FP164690 | 27756 0600 00 0 34132 STZ GAB40 VN4690FP164700 | 27757 0600 00 0 34133 STZ GAB50 VN4690FP164710 | 27760 0774 00 4 00005 AXT 5,4 VN4690FP164720 | 27761 0600 00 4 34154 STZ GAD60,4 VN4690FP164730 27762 2 00001 4 27761 TIX *-1,4,1 VN4690FP164740 | 27763 0074 00 4 27765 TSX VN470,4 VN4693FP164750 | 27764 0020 00 0 30047 TRA VN475 VN4696FP164760 | 27765 0634 00 4 30012 VN470 SXA VN471,4 RESET UPDSEL STORAGE VN470 FP164770 | 27766 0600 00 0 31452 STZ GQA10 RESTORE UPDSEL STORAGE VN4710FP164780 27767 0600 00 0 31453 STZ GQA20 VN4710FP164790 | 27770 0600 00 0 31454 STZ GQA30 VN4710FP164800 | 27771 0774 00 4 00012 AXT 10,4 VN4710FP164810 | 27772 0600 00 4 31467 STZ GQA40+10,4 VN4710FP164820 | 27773 2 00001 4 27772 TIX *-1,4,1 VN4710FP164830 27774 0600 00 0 31467 STZ GQA50 VN4710FP164840 | 27775 0600 00 0 31472 STZ GQA80 VN4710FP164850 | 27776 0600 00 0 31473 STZ GQA90 VN4710FP164860 | 27777 -0500 00 0 30003 CAL *+4 VN4710FP164870 | 30000 0602 00 0 31475 SLW GQB20 VN4711FP164880 30001 0602 00 0 31526 SLW GQD70 VN4711FP164890 | 30002 0020 00 0 30004 TRA *+2 VN4711FP164900 | 30003 0 00000 0 04624 PZE CARD+3 VN5711FP164910 | 30004 0600 00 0 31500 STZ GQB50 VN4711FP164920 | 30005 0600 00 0 31501 STZ GQB60 VN4711FP164930 30006 0600 00 0 31502 STZ GQB70 VN4711FP164940 | 30007 0774 00 4 00007 AXT 7,4 VN4711FP164950 | 30010 0600 00 4 31525 STZ GQD10+7,4 VN4711FP164960 | 30011 2 00001 4 30010 TIX *-1,4,1 VN4711FP164970 | 30012 0774 00 4 00000 VN471 AXT ..,4 VN4715FP164980 30013 0020 00 4 00001 TRA 1,4 VN4717FP164990 | 30014 0600 00 0 35000 VN472 STZ QAA10 RESTORE UPW FLD STORAGE VN4720FP165000 | 30015 0600 00 0 35002 STZ QAA30 VN4720FP165010 | 30016 0600 00 0 35013 STZ QAB10 VN4720FP165020 | 30017 0600 00 0 35015 STZ QAB30 VN4720FP165030 30020 0600 00 0 35016 STZ QAB40 VN4720FP165040 | 30021 0600 00 0 35025 STZ QAC20 VN4720FP165050 | 30022 0600 00 0 35031 STZ QAD30 VN4720FP165060 | 30023 0600 00 0 35030 STZ QAD20 VN4720FP165070 | 30024 0774 00 4 00006 AXT 6,4 VN4720FP165080 30025 0600 00 4 35046 STZ QAE10+6,4 VN4720FP165090 | 30026 2 00001 4 30025 TIX *-1,4,1 VN4721FP165100 | 30027 0074 00 4 30031 TSX VN473,4 VN4725FP165110 | 30030 0020 00 0 30047 TRA VN475 VN4727FP165120 | 30031 0634 00 4 30045 VN473 SXA VN474,4 RESET UPWSEL STORAGE VN4730FP165130 30032 0774 00 4 00005 AXT 5,4 RESTORE UPW SEL STORAGE VN4730FP165140 | 30033 0600 00 4 32063 STZ QQA60,4 VN4730FP165150 | 30034 2 00001 4 30033 TIX *-1,4,1 VN4730FP165160 | 30035 0774 00 4 00011 AXT 9,4 VN4730FP165170 | 30036 0600 00 4 32113 STZ QQD20,4 VN4730FP165180 30037 2 00001 4 30036 TIX *-1,4,1 VN4730FP165190 | 30040 0600 00 0 32115 STZ QQD40 VN4730FP165200 | 30041 0600 00 0 32116 STZ QQE10 VN4730FP165210 | 30042 0600 00 0 32117 STZ QQE20 VN4730FP165220 | 1 LISTING OF 12/01/64 PAGE 344 CLNUPD (9PAC44). CLEANUP UPDATE FUNCTION | | 30043 0600 00 0 32120 STZ QQE30 VN4731FP165230 | 30044 0600 00 0 32122 STZ QQF02 VN4731FP165240 | 30045 0774 00 4 00000 VN474 AXT ..,4 VN4740FP165250 30046 0020 00 4 00001 TRA 1,4 VN4745FP165260 | 30047 0074 00 4 15073 VN475 TSX VV010,4 PRIOR CLNUP-REJECT VN475 FP165270 | 30050 0 00000 0 00000 VN480 PZE 0 FLD FIVE SIZE IN BINARY VN480 FP165280 | 30051 0074 00 4 12507 VN520 TSX MSYSRD,4 VN520 FP165290 | 30052 114721230405 BCI 1,9PAC45 UPWSEL FP165300 30053 0 01645 0 32346 PZE VESEL,,VESEL-CLNHO-2 FP165310 | *ROUTINE TO BUILD TABLE OF MISSING ADDRESS FP165320 | * FOR SELECTIVE FIELDING. FP165330 | 30054 -0520 00 0 14511 VKD01 NZT BAE71 VKD01 FP165340 | 30055 0020 00 0 30060 TRA VKD05 VKD02 FP165350 30056 0500 00 0 11030 CLA NMBR3 VKD03 FP165360 | 30057 0020 00 4 00001 TRA 1,4 VKD04 FP165370 | 30060 0634 00 4 30100 VKD05 SXA VKD20,4 VKD05 FP165380 | 30061 0534 00 4 30073 LXA VKD15,4 VKD06 FP165390 | 30062 1 00001 4 30063 TXI *+1,4,1 VKD07 FP165400 30063 -3 00012 4 30066 TXL *+3,4,10 VKD08 FP165410 | 30064 0074 00 4 10507 TSX T0010,4 VKD08 FP165420 | 30065 -1 01224 2 30100 STR VKD20,2,660 MORE THAN 10 FIELDS TESTED BY SELF VKD09 FP165430 | 30066 0634 00 4 30073 SXA VKD15,4 VKD10 FP165440 | 30067 0754 00 0 00000 PXA 0,0 VKD11 FP165450 30070 0074 00 4 11465 TSX PADDR,4 VKD12 FP165460 | 30071 -0774 00 4 30125 AXC VKC31-1,4 VKD13 FP165470 | 30072 -0500 00 0 11451 CAL H0080 VKD14 FP165480 | 30073 0621 00 4 00000 VKD15 STA ..,4 VKD15 FP165490 | 30074 0625 60 0 30073 STT* VKD15 VKD16 FP165500 30075 -0500 00 0 11423 CAL F0080 VKD17 FP165510 | 30076 -0763 00 0 00022 LGL 18 VKD18 FP165520 | 30077 0622 60 0 30073 STD* VKD15 VKD19 FP165530 | 30100 0774 00 4 00000 VKD20 AXT ..,4 VKD20 FP165540 | 30101 0020 00 4 00002 TRA 2,4 VKD21 FP165550 30102 0 00000 0 00000 VKA10 PZE PRIORITY STORAGE VKA10 FP165560 | 30103 0600 00 0 00000 VKA20 STZ 0 STZ VKA20 FP165570 | 30104 0 00000 0 00003 VKA30 PZE 3 VKA30 FP165580 | 30105 -120000210000 VKA40 OCT 520000210000 LOCATION MASK VKA40 FP165590 | 30106 000000000024 VKA50 BCI 1,00000D VKA50 FP165600 30107 000000000025 VKA60 BCI 1,00000E VKA60 FP165610 | 30110 0 00000 0 00004 VKA70 PZE 4 VKA70 FP165620 | 30111 -120000650000 VKA80 OCT 520000650000 REJECT LOC MASK VKA80 FP165630 | 30112 0 00000 0 00000 VKA90 PZE 0 REJECT YADDR MASK VKA90 FP165640 | 30113 -120000450000 VKB10 OCT 520000450000 DO LOC MASK VKB10 FP165650 30114 000000000044 VKB20 BCI 1,00000M VKB20 FP165660 | 30115 000000000031 VKB30 BCI 1,00000I VKB30 FP165670 | 30116 +000052000043 VKB40 OCT 52000043 SPEC YADDR MASK VKB40 FP165680 | 30117 -120000430000 VKB50 OCT 520000430000 SPEC LOC MASK VKB50 FP165690 | 30120 +000034777700 VKB60 OCT 34777700 YADDR MASK REF 35 VKB60 FP165700 30121 +000063000000 VKB70 OCT 63000000 INSERT YADDR, MASK VKB70 FP165710 | 30122 000000000046 VKB80 BCI 1,00000O VKB80 FP165720 | 30123 0 00000 0 00005 VKB90 PZE 5 VKB90 FP165730 | 30124 0 00000 0 00002 VKC10 PZE 2 VKC10 FP165740 | 30125 0 00000 0 00000 VKC30 PZE 0 VKC30 FP165750 30126 VKC31 BSS 12 VKC31 FP165760 | 30142 +000052000062 VKC20 OCT 52000062 VKC20 FP165770 | 1 LISTING OF 12/01/64 PAGE 345 | CLNUPD (9PAC44). CLEANUP UPDATE FUNCTION | *ROUTINE TO FILL MISSING ADDRESSES FP165780 | * LEFT BY SELECTIVE FIELDING FP165790 | 30143 -0520 00 0 30126 VKD30 NZT VKC31 VKD30 FP165800 | 30144 0020 00 4 00001 TRA 1,4 VKD31 FP165810 | 30145 0634 00 1 30163 SXA VKD55,1 VKD32 FP165820 30146 0634 00 4 30164 SXA VKD60,4 VKD33 FP165830 | 30147 -0500 00 0 11423 CAL F0080 VKD34 FP165840 | 30150 0621 00 0 30125 STA VKC30 VKD35 FP165850 | 30151 -0774 00 4 63563 AXC ATBL1+1,4 VKD36 FP165860 | 30152 -0774 00 1 30126 AXC VKC31,1 VKD37 FP165870 30153 0502 00 1 00000 VKD40 CLS 0,1 VKD40 FP165880 | 30154 0100 00 0 30163 TZE VKD55 VKD41 FP165890 | 30155 0771 00 0 00022 ARS 18 VKD42 FP165900 | 30156 0400 00 0 30125 ADD VKC30 VKD43 FP165910 | 30157 0400 00 0 11026 ADD NMBR1 VKD44 FP165920 30160 0621 60 1 00000 STA* 0,1 VKD45 FP165930 | 30161 0600 00 1 00000 STZ 0,1 VKD46 FP165940 | 30162 1 77777 1 30153 VKD50 TXI VKD40,1,-1 VKD50 FP165950 | 30163 0774 00 1 00000 VKD55 AXT ..,1 VKD55 FP165960 | 30164 0774 00 4 00000 VKD60 AXT ..,4 VKD60 FP165970 30165 0760 00 0 00000 CLM VKD61 FP165980 | 30166 0621 00 0 30073 STA VKD15 VKD62 FP165990 | 30167 0020 00 4 00001 TRA 1,4 VKD63 FP166000 | * FP166010 | 30170 +000000000026 VKC40 OCT 26 VKC40 FP166020 30253 CLNUD BES 50 FP166030 | 00000 TCD 0 FP166040 | 1 LISTING OF 12/01/64 PAGE 346 | CLNUPD (9PAC44). CLEANUP UPDATE FUNCTION | * FP166060 | 1 LISTING OF 12/01/64 PAGE 347 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | | * FP166080 * FP166090 | * FP166100 | * FP166110 | * FP166120 | 30501 ORG CLNHO+2 UPWSEL FP166140 30501 114721230405 BCI 1,9PAC45 FP166150 | 30502 644766622543 QQ000 BCI 1,UPWSEL SEARCH CODE QQ000 FP166160 | 00100 ORG SYSTRA FP166170 | 00100 0020 00 0 32053 TRA QY120 FP166180 | 30503 ORG CLNHO+4 FP166190 30503 0020 00 0 31421 QQ010 TRA QU530 TO CLEAN UP QQ010 FP166200 | 30504 0441 00 0 04621 LDI CARD LOAD INDUCS WITH 1ST WD OF QQ020 FP166210 | 30505 0520 00 0 32056 ZET QQA10 IS THIS FIRST SEL-NOT CARD QQ030 FP166220 | 30506 0020 00 0 30523 TRA QQ170 ( NO QQ040 FP166230 | 30507 -0500 00 0 11024 CAL BCD77 BUILD NON ZERO QQ050 FP166240 30510 0074 00 4 11426 TSX STORR,4 * QQ060 FP166250 | 30511 -0500 00 0 11436 CAL G0080 SAVE WD NO QQ070 FP166260 | 30512 0621 00 0 32060 STA QQA30 * QQ080 FP166270 | 30513 0760 00 0 00000 CLM BUILD FLIP FLOP QQ090 FP166280 | 30514 0074 00 4 11426 TSX STORR,4 * QQ100 FP166290 30515 -0500 00 0 11436 CAL G0080 SAVE WD NO. QQ110 FP166300 | 30516 0621 00 0 32061 STA QQA40 * QQ120 FP166310 | 30517 -0500 00 0 30521 CAL *+2 BUILD STZ FF QQ130 FP166320 | 30520 0074 00 4 11413 TSX PRGMR,4 * QQ140 FP166330 | 30521 0600 00 0 00000 STZ 0 * QQ150 FP166340 30522 0074 00 4 11454 TSX SADDR,4 * QQ160 FP166350 | 30523 -0500 00 0 04622 QQ170 CAL CARD+1 COMP FLD NO TO PREV QQ170 FP166360 | 30524 0560 00 0 04623 LDQ CARD+2 * QQ180 FP166370 | 30525 -0763 00 0 00022 LGL 18 * QQ190 FP166380 | 30526 -0320 00 0 10744 ANA BCD17 * QQ200 FP166390 30527 -0340 00 0 32056 LAS QQA10 * QQ210 FP166400 | 30530 0020 00 0 30532 TRA *+2 * QQ220 FP166410 | 30531 0020 00 0 30743 TRA QR500 * EQUAL QQ230 FP166420 | 30532 -0340 00 0 32070 LAS QQB10 QQ231 FP166430 | 30533 0020 00 0 30535 TRA *+2 QQ232 FP166440 30534 0020 00 0 30537 TRA *+3 IS FLD 0001 QQ233 FP166450 | 30535 0600 00 0 32122 STZ QQF02 QQ234 FP166460 | 30536 0020 00 0 30541 TRA *+3 QQ235 FP166470 | 30537 -0625 00 0 32122 STL QQF02 QQ236 FP166480 | 30540 -0625 00 0 11407 STL UPWSL QQ237 FP166490 30541 0602 00 0 32056 SLW QQA10 UPDATE FLD N3. QQ240 FP166500 | 30542 0602 00 0 30544 SLW *+2 INIT FLD DICT BY ZR1 QQ250 FP166510 | 30543 0074 00 4 13615 TSX E1010,4 * QQ260 FP166520 | 30544 0 00000 0 00000 PZE 0 * QQ270 FP166530 | 30545 0500 00 1 00001 CLA 1,1 HAS FIELD BEEN USED PREV QQ280 FP166540 30546 0767 00 0 00002 ALS 2 * QQ290 FP166550 | 30547 -0760 00 0 00001 PBT * QQ300 FP166560 | 30550 0020 00 0 30553 TRA QQ330 * NO QQ310 FP166570 | 30551 0074 00 4 10507 TSX T0010,4 QQ315 FP166580 | 30552 -1 01005 2 14307 STR BB010,2,517 CHG SEL FLD USED PREVIOUSLY QQ320 FP166590 30553 0771 00 0 00002 QQ330 ARS 2 TAG EXEC CODE POS. 8 QQ330 FP166600 | 30554 -0501 00 0 32113 ORA QQD20 * OCT 200000000000 QQ340 FP166610 | 30555 0601 00 1 00001 STO 1,1 * QQ350 FP166620 | 30556 -0520 00 0 32062 NZT QQA50 TEST SEL SW QQ360 FP166630 | 1 LISTING OF 12/01/64 PAGE 348 UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | | 30557 0020 00 0 30600 TRA QQ520 * SW IS OFF QQ370 FP166640 | 30560 0600 00 0 32062 STZ QQA50 TURN OFF SEL SW QQ380 FP166650 | 30561 -0500 00 0 30563 CAL *+2 BUILD CLA FF QQ390 FP166660 30562 0074 00 4 11413 TSX PRGMR,4 * QQ400 FP166670 | 30563 0500 00 0 00000 CLA 0 * QQ410 FP166680 | 30564 0500 00 0 32061 CLA QQA40 * QQ411 FP166690 | 30565 0074 00 4 11455 TSX SADDR+1,4 * QQ420 FP166700 | 30566 -0500 00 0 30570 CAL *+2 BUILD TZE OUT QQ430 FP166710 30567 0074 00 4 11413 TSX PRGMR,4 * QQ440 FP166720 | 30570 0100 00 0 00000 TZE 0 * QQ450 FP166730 | 30571 0074 00 4 30054 TSX VKD01,4 QQ460 FP166740 | 30572 0074 00 4 11477 TSX GADDR,4 QQ470 FP166750 | 30573 -0500 00 0 30575 CAL *+2 BUILD STZ FF QQ480 FP166760 30574 0074 00 4 11413 TSX PRGMR,4 * QQ490 FP166770 | 30575 0600 00 0 00000 STZ 0 * QQ500 FP166780 | 30576 0500 00 0 32061 CLA QQA40 * QQ501 FP166790 | 30577 0074 00 4 11455 TSX SADDR+1,4 * QQ510 FP166800 | 30600 -0057 00 777777 QQ520 RIL 777777 LOAD LFT INDICS WITH MODE QQ520 FP166810 30601 -0500 00 1 00002 CAL 2,1 * QQ530 FP166820 | 30602 -0320 00 0 11015 ANA BCD70 * QQ540 FP166830 | 30603 0043 00 0 00000 OAI * QQ550 FP166840 | 30604 -0054 00 000100 LFT 100 IS MODE BINARY QQ560 FP166850 | 30605 0020 00 0 30657 TRA QQ960 * NO-BCD QQ570 FP166860 30606 0500 00 0 13653 CLA E2004 CONVERT SIZE TO EQUIV BCD QQ580 FP166870 | 30607 0774 00 4 00000 AXT 0,4 * CLEAR XR4 QQ590 FP166880 | 30610 0774 00 2 00024 AXT 20,2 * INIT XR2 TO 20 QQ600 FP166890 | 30611 1 00006 4 30612 QQ610 TXI *+1,4,6 * UPDATE EQUIV SIZE BY 6 QQ610 FP166900 | 30612 -0340 00 2 11104 LAS EQUIV+21,2 * QQ620 FP166910 30613 0020 00 0 30617 TRA *+4 QQ630 FP166920 | 30614 0020 00 0 30621 TRA QQ680 * MATCH QQ640 FP166930 | 30615 0074 00 4 10507 TSX T0010,4 QQ645 FP166940 | 30616 -1 01006 2 14307 STR BB010,2,518 INVALID UPD DICT BINARY SIZE QQ650 FP166950 | 30617 2 00002 2 30611 TIX QQ610,2,2 * MODIFY TO NEXT ENTRY QQ660 FP166960 30620 0020 00 0 30615 TRA *-3 QQ670 FP166970 | 30621 0634 00 4 13653 QQ680 SXA E2004,4 STORE EQUIV SIZE QQ680 FP166980 | 30622 0754 00 4 00000 PXA 0,4 QQ690 FP166990 | 30623 0402 00 0 32063 QQ700 SUB QQA60 SUB 36 FROM ACCUM QQ700 FP167000 | 30624 0100 00 0 30626 TZE QQ730 IS ACCUM ZERO QQ710 FP167010 30625 0120 00 0 30623 TPL QQ700 * OR NEG QQ720 FP167020 | 30626 0621 00 0 30643 QQ730 STA QQ850 INIT ARS FOR LFT MASK QQ730 FP167030 | 30627 0602 00 0 13655 SLW E2006 PSUEDO BIT NO. UPWSEL QQ735 FP167040 | 30630 0400 00 0 32065 ADD QQA80 CALC LFT SHIFT-ADD 18 QQ740 FP167050 | 30631 0774 00 4 04624 QQ750 AXT CARD+3,4 CALC 1ST WD PICK UP ADDR QQ750 FP167060 30632 0100 00 0 30636 TZE QQ800 * IS LGL POS OR ZERO QQ760 FP167070 | 30633 0120 00 0 30636 TPL QQ800 * QQ770 FP167080 | 30634 0400 00 0 32063 ADD QQA60 * 36 QQ780 FP167090 | 30635 1 77777 4 30636 TXI *+1,4,-1 * DECR 1ST WR PICK UP QQ790 FP167100 | 30636 0621 00 0 32102 QQ800 STA QQC20 LFT SHIFT TO AUX STORAGE QQ800 FP167110 30637 0621 00 0 32101 STA QQC10 INIT LEFT SHIFT INSTR QQ810 FP167120 | 30640 0634 00 4 32104 SXA QQC40,4 1ST WR PICK UP TO AUX QQ820 FP167130 | 30641 0634 00 4 32103 SXA QQC30,4 1ST WR PICK UP STORAGE QQ830 FP167140 | 30642 -0500 00 0 11024 CAL BCD77 BUILD LEFT MASK QQ840 FP167150 | 30643 0771 00 0 00000 QQ850 ARS 0 * QQ850 FP167160 30644 0602 00 0 32105 SLW QQC50 * QQ851 FP167170 | 30645 -0774 00 4 04624 AXC CARD+3,4 PREPARE FOR RANGE TEST QQ860 FP167180 | 1 LISTING OF 12/01/64 PAGE 349 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | 30646 0500 00 0 13653 CLA E2004 * INIT ACC WITH SIZE +24 QQ870 FP167190 | 30647 0400 00 0 32064 ADD QQA70 * QQ880 FP167200 | 30650 0402 00 0 32063 QQ890 SUB QQA60 * 36 QQ890 FP167210 | 30651 -0120 00 0 30654 TMI *+3 * QQ900 FP167220 | 30652 0100 00 0 30654 TZE *+2 * QQ910 FP167230 30653 1 77777 4 30650 TXI QQ890,4,-1 * QQ920 FP167240 | 30654 0621 00 0 30775 STA QR760 INIT ARS OF HYPHEN WD QQ930 FP167250 | 30655 0634 00 4 32107 SXA QQC70,4 SAVE XR4 AS HYPHEN WD PICK QQ940 FP167260 | 30656 0020 00 0 30774 TRA QR750 QQ950 FP167270 | 30657 -0500 00 0 04623 QQ960 CAL CARD+2 BCD-UPDATE PREV INCR-LEN QQ960 FP167280 30660 0560 00 0 04624 LDQ CARD+3 * QQ970 FP167290 | 30661 -0763 00 0 00022 LGL 18 * QQ980 FP167300 | 30662 0602 00 0 32057 QQ990 SLW QQA20 * QQ990 FP167310 | 30663 -0765 00 0 00022 LGR 18 IS INCR BLANK QR000 FP167320 | 30664 -0320 00 0 10734 ANA BCD07 * QR010 FP167330 30665 -0340 00 0 32114 LAS QQD30 * QR020 FP167340 | 30666 0020 00 0 30670 TRA *+2 * NO QR030 FP167350 | 30667 0020 00 0 30733 TRA QR420 * YES QR040 FP167360 | 30670 0602 00 0 07751 SLW B1020 CONVERT INCR TO BINARY QR050 FP167370 | 30671 0074 00 4 07572 TSX B0012,4 QR060 FP167380 30672 0534 00 4 07747 LXA B1000,4 INIT DECR OF INSTR WITH INCQR080 FP167390 | 30673 -0634 00 4 30703 SXD QR180,4 * QR090 FP167400 | 30674 -0500 00 0 32057 CAL QQA20 CONVERT SIZE TO BINARY QR100 FP167410 | 30675 -0320 00 0 10734 ANA BCD07 * QR110 FP167420 | 30676 0602 00 0 07751 SLW B1020 * QR120 FP167430 30677 0074 00 4 07572 TSX B0012,4 QR130 FP167440 | 30700 0500 00 0 07747 CLA B1000 STORE NEW SIZE QR150 FP167450 | 30701 0601 00 0 13653 STO E2004 * QR160 FP167460 | 30702 0534 00 4 13655 LXA E2006,4 ADD BIT NO TO INCR IN XR4 QR170 FP167470 | 30703 1 00000 4 30704 QR180 TXI *+1,4,0 * ADD INCR QR180 FP167480 30704 0534 00 2 13654 LXA E2005,2 INIT XR2 WITH WD N/ QR190 FP167490 | 30705 -2 00044 4 30707 QR200 TNX *+2,4,36 CALC NEW BIT NO QR200 FP167500 | 30706 1 00001 2 30705 TXI *-1,2,1 * QR210 FP167510 | 30707 -3 00043 4 30712 TXL QR250,4,35 * QR220 FP167520 | 30710 0774 00 4 00000 AXT 0,4 * QR230 FP167530 30711 1 00001 2 30705 TXI QR200,2,1 * QR240 FP167540 | 30712 0634 00 4 13655 QR250 SXA E2006,4 STORE NEW BIT NO QR250 FP167550 | 30713 0634 00 2 13654 SXA E2005,2 STORE NEW WR NO QR260 FP167560 | 30714 0634 00 4 30643 SXA QQ850,4 INIT ARS FOR LEFT MASK QR270 FP167570 | 30715 -0055 00 000001 SIL 1 MAKE MODE PACKED QR280 FP167580 30716 0500 00 0 13653 QR290 CLA E2004 INIT XR4 WITH SIZE + BIT NOQR290 FP167590 | 30717 0400 00 0 13655 ADD E2006 * QR300 FP167600 | 30720 0601 00 0 32110 STO QQC80 * STORE SIZE + BIT NO QR310 FP167610 | 30721 0534 00 4 32110 LXA QQC80,4 * QR320 FP167620 | 30722 2 00044 4 30722 TIX *,4,36 CALC ARS FOR RT MASK QR330 FP167630 30723 0634 00 4 30725 SXA *+2,4 INIT ARS QR340 FP167640 | 30724 -0500 00 0 11024 CAL BCD77 BUILD RT MASK QR350 FP167650 | 30725 0771 00 0 00000 ARS 0 * QR360 FP167660 | 30726 0760 00 0 00006 COM * QR370 FP167670 | 30727 0602 00 0 32106 SLW QQC60 * QR380 FP167680 30730 0500 00 0 32065 QR390 CLA QQA80 CALC LEFT SHIFT QR390 FP167690 | 30731 0402 00 0 13655 SUB E2006 * QR400 FP167700 | 30732 0020 00 0 30631 TRA QQ750 QR410 FP167710 | 30733 0500 00 0 13655 QR420 CLA E2006 INIT ARS FOR LFT MASK QR420 FP167720 | 30734 0621 00 0 30643 STA QQ850 * QR430 FP167730 1 LISTING OF 12/01/64 PAGE 350 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | | 30735 -0054 00 000001 LFT 1 IS MODE UNPACKED QR440 FP167740 | 30736 0020 00 0 30716 TRA QR290 * NO QR450 FP167750 30737 0500 00 0 13653 CLA E2004 CALC AND STORE SIZE + BIT NQR460 FP167760 | 30740 0400 00 0 13655 ADD E2006 * QR470 FP167770 | 30741 0601 00 0 32110 STO QQC80 * QR480 FP167780 | 30742 0020 00 0 30730 TRA QR390 QR490 FP167790 | 30743 -0057 00 777777 QR500 RIL 777777 MODE TO LEFT INDICS QR500 FP167800 30744 -0500 00 1 00002 CAL 2,1 * QR510 FP167810 | 30745 -0320 00 0 11015 ANA BCD70 * QR520 FP167820 | 30746 0043 00 0 00000 OAI * QR530 FP167830 | 30747 -0056 00 000100 LNT 100 IS MODE BINARY QR540 FP167840 | 30750 0020 00 0 30767 TRA QR700 * YES QR550 FP167850 30751 -0500 00 0 04623 CAL CARD+2 COMP INCR-LEN TO PREV QR560 FP167860 | 30752 0560 00 0 04624 LDQ CARD+3 * QR570 FP167870 | 30753 -0765 00 0 00022 LGR 18 * QR580 FP167880 | 30754 -0130 00 0 00000 XCL * QR590 FP167890 | 30755 -0340 00 0 32057 LAS QQA20 * QR600 FP167900 30756 0020 00 0 30662 TRA QQ990 * NOT EQ QR610 FP167910 | 30757 0020 00 0 30761 TRA *+2 * EQ QR620 FP167920 | 30760 0020 00 0 30662 TRA QQ990 * NOT EQ QR630 FP167930 | 30761 -0765 00 0 00022 LGR 18 IS INCR BLANK QR640 FP167940 | 30762 -0320 00 0 10734 ANA BCD07 * QR650 FP167950 30763 -0340 00 0 32114 LAS QQD30 * QR660 FP167960 | 30764 0020 00 0 30766 TRA *+2 * NO QR670 FP167970 | 30765 0020 00 0 30767 TRA QR700 * YES QR680 FP167980 | 30766 -0055 00 000001 SIL 1 MAKE MODE PACKED QR690 FP167990 | 30767 -0500 00 0 32102 QR700 CAL QQC20 RESTORE LEFT SHIFT QR700 FP168000 30770 0621 00 0 32101 STA QQC10 * QR710 FP168010 | 30771 -0500 00 0 32104 CAL QQC40 RESTORE 1ST WR PICK UP QR720 FP168020 | 30772 0602 00 0 32103 SLW QQC30 * QR730 FP168030 | 30773 0534 00 4 32107 LXA QQC70,4 RESTORE HYPHEN WD PICK UP TQR740 FP168040 | 30774 -0500 00 4 00000 QR750 CAL 0,4 PICK UP HYPHEN WD AND QR750 FP168050 30775 0771 00 0 00000 QR760 ARS 0 * SHIFT HYPHEN POS TO RT CHQR760 FP168060 | 30776 -0320 00 0 10726 ANA BCD01 * QR770 FP168070 | 30777 -0054 00 000100 LFT 100 IS MODE BINARY QR780 FP168080 | 31000 0020 00 0 31146 TRA QS840 * NO QR790 FP168090 | 31001 0602 00 0 32115 SLW QQD40 SAVE HYPHEN WD FOR RANGE TEQR800 FP168100 31002 0535 00 2 32103 LAC QQC30,2 INIT XR2 WITH COMPL OF 1ST QR810 FP168110 | 31003 -0500 00 2 00000 CAL 0,2 PICK UP 1ST WORD QR830 FP168120 | 31004 1 77777 2 31005 TXI *+1,2,-1 * QR840 FP168130 | 31005 0560 00 2 00000 LDQ 0,2 * QR850 FP168140 | 31006 0522 00 0 32101 XEC QQC10 * QR860 FP168150 31007 -0320 00 0 32105 ANA QQC50 E QR870 FP168160 | 31010 0534 00 4 13653 LXA E2004,4 INIT XR4 WITH EQUIV SIZE QR880 FP168170 | 31011 -3 00044 4 31017 TXL QR950,4,36 IS THERE ANOTHER WORD QR890 FP168180 | 31012 0602 00 0 07750 SLW B1010 1ST WD TO LEFT BUFFER QR900 FP168190 | 31013 -0500 00 2 00000 CAL 0,2 PICK UP 2ND WORD QR910 FP168200 31014 1 77777 2 31015 TXI *+1,2,-1 * QR920 FP168210 | 31015 0560 00 2 00000 LDQ 0,2 * QR930 FP168220 | 31016 0522 00 0 32101 XEC QQC10 * QR940 FP168230 | 31017 0602 00 0 07751 QR950 SLW B1020 WORD TO RT BUFFER QR950 FP168240 | 31020 0074 00 4 07570 TSX B0010,4 CONVERT VALUE TO BINARY QR960 FP168250 31021 -0500 00 0 07747 CAL B1000 VALUE TO OBJECT STORAGE QR980 FP168260 | 31022 0074 00 4 11426 TSX STORR,4 * QR990 FP168270 | 31023 -0500 00 0 32115 CAL QQD40 RANGE TEST QS000 FP168280 | 1 LISTING OF 12/01/64 PAGE 351 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | 31024 -0340 00 0 32066 LAS QQA90 * QS010 FP168290 | 31025 0020 00 0 31031 TRA *+4 NOT RANGE QS020 FP168300 | 31026 0020 00 0 31065 TRA QS330 * RANGE QS030 FP168310 | 31027 0074 00 4 10507 TSX T0010,4 QS035 FP168320 31030 -1 01007 2 14307 STR BB010,2,519 NOT A HYPHEN OR A BLANK QS040 FP168330 | 31031 0054 00 000001 RFT 1 SEL OR NOT TEST QS050 FP168340 | 31032 0020 00 0 31056 TRA QS260 * NOT QS060 FP168350 | 31033 0500 00 0 32074 CLA QQB50 INIT REL TRANS QS070 FP168360 | 31034 0601 00 0 32116 STO QQE10 * 5 TO HI QS080 FP168370 31035 0500 00 0 32071 CLA QQB20 * 2 TO EQ QS090 FP168380 | 31036 0601 00 0 32117 STO QQE20 * QS100 FP168390 | 31037 0500 00 0 32072 CLA QQB30 * 3 TO LOW QS110 FP168400 | 31040 0601 00 0 32120 STO QQE30 * QS120 FP168410 | 31041 0074 00 4 31543 TSX QV280,4 GEN 1 WD COM BIN QS130 FP168420 31042 -0500 00 0 31044 QS140 CAL *+2 BUILD CLA NON ZERO QS140 FP168430 | 31043 0074 00 4 11413 TSX PRGMR,4 * QS150 FP168440 | 31044 0500 00 0 00000 CLA 0 * QS160 FP168450 | 31045 0500 00 0 32060 CLA QQA30 * QS170 FP168460 | 31046 0074 00 4 11455 TSX SADDR+1,4 * QS180 FP168470 31047 -0500 00 0 31051 CAL *+2 BUIDL STO FF QS190 FP168480 | 31050 0074 00 4 11413 TSX PRGMR,4 * QS200 FP168490 | 31051 0601 00 0 00000 STO 0 * QS210 FP168500 | 31052 0500 00 0 32061 CLA QQA40 * QS220 FP168510 | 31053 0074 00 4 11455 TSX SADDR+1,4 * QS230 FP168520 31054 -0625 00 0 32062 STL QQA50 TURN ON SEL SW QS240 FP168530 | 31055 0020 00 0 14307 TRA BB010 TO FUNC CNTRL QS250 FP168540 | 31056 0500 00 0 32072 QS260 CLA QQB30 INIT REL TR - NOT VALUE BINQS260 FP168550 | 31057 0601 00 0 32116 STO QQE10 * 3 TO HI QS270 FP168560 | 31060 0600 00 0 32117 STZ QQE20 * 0 TO EQ QS280 FP168570 31061 0500 00 0 32070 CLA QQB10 * 1 TO LOW QS290 FP168580 | 31062 0601 00 0 32120 STO QQE30 * QS300 FP168590 | 31063 0074 00 4 31543 TSX QV280,4 GEN 1 WD COMP BIN QS310 FP168600 | 31064 0020 00 0 14307 TRA BB010 TO FUNC CNTRL QS320 FP168610 | 31065 0074 00 4 32037 QS330 TSX QY000,4 MODIFY TO HIGH VAL OF RANGEQS330 FP168620 31066 0535 00 2 32103 LAC QQC30,2 INIT XR2 WITH COMPL OF 1ST QS340 FP168630 | 31067 -0500 00 2 00000 CAL 0,2 PICK UP 1ST WD QS360 FP168640 | 31070 1 77777 2 31071 TXI *+1,2,-1 * QS370 FP168650 | 31071 0560 00 2 00000 LDQ 0,2 * QS380 FP168660 | 31072 0522 00 0 32101 XEC QQC10 * QS390 FP168670 31073 -0320 00 0 32105 ANA QQC50 * QS400 FP168680 | 31074 0534 00 4 13653 LXA E2004,4 INIT XR4 WITH EQUIV SIZE QS410 FP168690 | 31075 -3 00044 4 31103 TXL QS480,4,36 IS THERE ANOTHER WD QS420 FP168700 | 31076 0602 00 0 07750 SLW B1010 WD TO LEFT BUFFER QS430 FP168710 | 31077 -0500 00 2 00000 CAL 0,2 PICK UP 2ND WD QS440 FP168720 31100 1 77777 2 31101 TXI *+1,2,-1 * QS450 FP168730 | 31101 0560 00 2 00000 LDQ 0,2 * QS460 FP168740 | 31102 0522 00 0 32101 XEC QQC10 * QS470 FP168750 | 31103 0602 00 0 07751 QS480 SLW B1020 WD TO RT BUFFER QS480 FP168760 | 31104 0074 00 4 07570 TSX B0010,4 CONVERT VALUE TO BINARY QS490 FP168770 31105 0054 00 000001 RFT 1 SEL OR NOT TEST QS510 FP168780 | 31106 0020 00 0 31130 TRA QS700 * NOT QS520 FP168790 | 31107 0500 00 0 32072 CLA QQB30 INIT REL TR - SEL BIN RANGEQS530 FP168800 | 31110 0601 00 0 32116 STO QQE10 * 3 TO HI QS540 FP168810 | 31111 0500 00 0 32076 CLA QQB70 * 7 TO EQ QS550 FP168820 31112 0601 00 0 32117 STO QQE20 * QS560 FP168830 | 1 LISTING OF 12/01/64 PAGE 352 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | | 31113 0500 00 0 32077 CLA QQB80 * 8 TO LOW QS570 FP168840 31114 0601 00 0 32120 STO QQE30 * QS580 FP168850 | 31115 0074 00 4 31543 TSX QV280,4 1 WD BIN COMP QS590 FP168860 | 31116 -0500 00 0 07747 CAL B1000 HIGH VALUE TO OBJECT STORAGQS600 FP168870 | 31117 0074 00 4 11426 TSX STORR,4 * QS610 FP168880 | 31120 0500 00 0 32074 CLA QQB50 INIT REL TR QS620 FP168890 31121 0601 00 0 32116 STO QQE10 * 5 TO HI QS630 FP168900 | 31122 0500 00 0 32071 CLA QQB20 * 2 TO EQ QS640 FP168910 | 31123 0601 00 0 32117 STO QQE20 * QS650 FP168920 | 31124 0500 00 0 32070 CLA QQB10 * 1 TO LOW QS660 FP168930 | 31125 0601 00 0 32120 STO QQE30 * QS670 FP168940 31126 0074 00 4 31543 TSX QV280,4 1 WD BIN COMP QS680 FP168950 | 31127 0020 00 0 31042 TRA QS140 QS690 FP168960 | 31130 0500 00 0 32072 QS700 CLA QQB30 INIT REL TR - NOT BIN RGE QS700 FP168970 | 31131 0601 00 0 32116 STO QQE10 * 3 TO HI QS710 FP168980 | 31132 0600 00 0 32117 STZ QQE20 * 0 TO EQ QS720 FP168990 31133 0500 00 0 32075 CLA QQB60 * 6 TO LOW QS730 FP169000 | 31134 0601 00 0 32120 STO QQE30 * QS740 FP169010 | 31135 0074 00 4 31543 TSX QV280,4 1 WD BIN COMP QS750 FP169020 | 31136 -0500 00 0 07747 CAL B1000 HIGH VALUE TO OBJECT STORAGQS760 FP169030 | 31137 0074 00 4 11426 TSX STORR,4 * QS770 FP169040 31140 0500 00 0 32072 CLA QQB30 INIT REL TR QS780 FP169050 | 31141 0601 00 0 32116 STO QQE10 * 3 TO HI QS790 FP169060 | 31142 0600 00 0 32117 STZ QQE20 * 0 TO EQ QS800 FP169070 | 31143 0600 00 0 32120 STZ QQE30 * 0 TO LOW QS810 FP169080 | 31144 0074 00 4 31543 TSX QV280,4 1 WD COMP BIN QS820 FP169090 31145 0020 00 0 14307 TRA BB010 FUNC CNTRL QS830 FP169100 | 31146 0534 00 4 32110 QS840 LXA QQC80,4 IS VALUE IN ONE WD QS840 FP169110 | 31147 3 00044 4 31247 TXH QT480,4,36 * NO QS850 FP169120 | 31150 -0340 00 0 32066 LAS QQA90 RANGE TEST QS860 FP169130 | 31151 0020 00 0 31155 TRA *+4 NOT RANGE QS870 FP169140 31152 0020 00 0 31176 TRA QT070 * RANGE QS880 FP169150 | 31153 0074 00 4 10507 TSX T0010,4 QS885 FP169160 | 31154 -1 01010 2 14307 STR BB010,2,520 NOT A HYPHEN OR A BLANK QS890 FP169170 | 31155 0054 00 000001 RFT 1 SEL OR NOT TEST QS900 FP169180 | 31156 0020 00 0 31167 TRA QT000 * NOT QS910 FP169190 31157 0500 00 0 32074 CLA QQB50 INIT REL TR - SEL VAL BCD QS920 FP169200 | 31160 0601 00 0 32116 STO QQE10 * 5 TO HI QS930 FP169210 | 31161 0500 00 0 32071 CLA QQB20 * 2 TO EQ QS940 FP169220 | 31162 0601 00 0 32117 STO QQE20 * QS950 FP169230 | 31163 0500 00 0 32072 CLA QQB30 * 3 TO LOW QS960 FP169240 31164 0601 00 0 32120 STO QQE30 * QS970 FP169250 | 31165 0074 00 4 31506 TSX QV000,4 1 WD BCD COMPARE QS980 FP169260 | 31166 0020 00 0 31042 TRA QS140 QS990 FP169270 | 31167 0500 00 0 32072 QT000 CLA QQB30 INIT REL TR - NOT BCD VAL QT000 FP169280 | 31170 0601 00 0 32116 STO QQE10 * 3 TO HI QT010 FP169290 31171 0600 00 0 32117 STZ QQE20 * 0 TO EQ QT020 FP169300 | 31172 0500 00 0 32070 CLA QQB10 * 1 TO LOW QT030 FP169310 | 31173 0601 00 0 32120 STO QQE30 * QT040 FP169320 | 31174 0074 00 4 31506 TSX QV000,4 1 WD BCD COM QT050 FP169330 | 31175 0020 00 0 14307 TRA BB010 FUNC CNTRL QT060 FP169340 31176 0054 00 000001 QT070 RFT 1 1 WD BCD RGE - SEL OR NOT TQT070 FP169350 | 31177 0020 00 0 31226 TRA QT310 * NOT QT080 FP169360 | 31200 0500 00 0 32072 CLA QQB30 INIT HI REL TO 3 QT090 FP169370 | 31201 0601 00 0 32116 STO QQE10 * QT100 FP169380 | 1 LISTING OF 12/01/64 PAGE 353 UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | | 31202 -0054 00 000001 LFT 1 IS MODE UNPACKED QT110 FP169390 | 31203 0020 00 0 31210 TRA QT170 * PACKED QT120 FP169400 | 31204 0500 00 0 32076 CLA QQB70 7 TO EQ QT130 FP169410 31205 0601 00 0 32117 STO QQE20 * QT140 FP169420 | 31206 0500 00 0 32077 CLA QQB80 8 TO LOW QT150 FP169430 | 31207 0020 00 0 31213 TRA QT200 QT160 FP169440 | 31210 0500 00 0 32077 QT170 CLA QQB80 8 TO EQ QT170 FP169450 | 31211 0601 00 0 32117 STO QQE20 * QT180 FP169460 31212 0500 00 0 32100 CLA QQB90 9 TO LOW QT190 FP169470 | 31213 0601 00 0 32120 QT200 STO QQE30 * QT200 FP169480 | 31214 0074 00 4 31506 TSX QV000,4 1 WD BCD COM QT210 FP169490 | 31215 0074 00 4 32037 TSX QY000,4 MODIFY TO HIGH VALUE QT220 FP169500 | 31216 0500 00 0 32074 CLA QQB50 INIT REL TR - SEL HIGH BCD QT230 FP169510 31217 0601 00 0 32116 STO QQE10 * 5 TO HI QT240 FP169520 | 31220 0500 00 0 32071 CLA QQB20 * 2 TO EQ QT250 FP169530 | 31221 0601 00 0 32117 STO QQE20 * QT260 FP169540 | 31222 0500 00 0 32070 CLA QQB10 * 1 TO LOW QT270 FP169550 | 31223 0601 00 0 32120 STO QQE30 * QT280 FP169560 31224 0074 00 4 31506 TSX QV000,4 1 WD BCD COM QT290 FP169570 | 31225 0020 00 0 31042 TRA QS140 QT300 FP169580 | 31226 0500 00 0 32072 QT310 CLA QQB30 INIT HI REL TO 3 QT310 FP169590 | 31227 0601 00 0 32116 STO QQE10 * QT320 FP169600 | 31230 0600 00 0 32117 STZ QQE20 EQ TO 0 QT330 FP169610 31231 -0054 00 000001 LFT 1 IS MODE UNPACKED QT340 FP169620 | 31232 0020 00 0 31235 TRA QT380 * PACKED QT350 FP169630 | 31233 0500 00 0 32075 CLA QQB60 INIT LOW REL TO 6 QT360 FP169640 | 31234 0020 00 0 31236 TRA QT390 QT370 FP169650 | 31235 0500 00 0 32076 QT380 CLA QQB70 INIT LOW REL TO 7 QT380 FP169660 31236 0601 00 0 32120 QT390 STO QQE30 * QT390 FP169670 | 31237 0074 00 4 31506 TSX QV000,4 1 WD BCD COM QT400 FP169680 | 31240 0074 00 4 32037 TSX QY000,4 MODIFY TO HI VALUE QT410 FP169690 | 31241 0500 00 0 32072 CLA QQB30 INIT REL TR - NOT BCD NI VAQT420 FP169700 | 31242 0601 00 0 32116 STO QQE10 * 3 TO HI QT430 FP169710 31243 0600 00 0 32117 STZ QQE20 * 0 TO EQ QT440 FP169720 | 31244 0600 00 0 32120 STZ QQE30 * 0 TO LOW QT450 FP169730 | 31245 0074 00 4 31506 TSX QV000,4 1 WD BCD COM QT460 FP169740 | 31246 0020 00 0 14307 TRA BB010 TO FUNC CNTRL QT470 FP169750 | 31247 0774 00 2 00000 QT480 AXT 0,2 CLEAR XR2 QT480 FP169760 31250 0534 00 4 32110 LXA QQC80,4 INIT XR4 WITH SIZE + BIT NOQT490 FP169770 | 31251 1 77734 4 31252 TXI *+1,4,-36 DECR XR4 QT500 FP169780 | 31252 -2 00044 4 31254 TNX *+2,4,36 CALC 5N QT510 FP169790 | 31253 1 00005 2 31252 TXI *-1,2,5 * QT520 FP169800 | 31254 0634 00 2 32112 SXA QQD10,2 STORE 5N QT530 FP169810 31255 -0340 00 0 32066 LAS QQA90 RANGE TEST QT540 FP169820 | 31256 0020 00 0 31262 TRA *+4 NOT RANGE QT550 FP169830 | 31257 0020 00 0 31317 TRA QT870 * RANGE QT560 FP169840 | 31260 0074 00 4 10507 TSX T0010,4 QT565 FP169850 | 31261 -1 01022 2 14307 STR BB010,2,530 NOT A HYPHEN OR A BLANK QT570 FP169860 31262 0054 00 000001 RFT 1 MUL WD SINGLE VAL - SEL OR QT580 FP169870 | 31263 0020 00 0 31302 TRA QT740 * NOT QT590 FP169880 | 31264 -0054 00 000001 LFT 1 IS MODE UNPACKED QT600 FP169890 | 31265 0020 00 0 31277 TRA QT710 * PACKED QT610 FP169900 | 31266 0500 00 0 32112 CLA QQD10 INIT REL TR - SEL MUL WD UNQT620 FP169910 31267 0400 00 0 32077 ADD QQB80 * 5N+8 TO LOW QT630 FP169920 | 31270 0601 00 0 32120 QT640 STO QQE30 * QT640 FP169930 | 1 LISTING OF 12/01/64 PAGE 354 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | 31271 0400 00 0 32071 ADD QQB20 * 5N+10 TO HI QT650 FP169940 | 31272 0601 00 0 32116 STO QQE10 * QT660 FP169950 | 31273 0500 00 0 32071 CLA QQB20 * 2 TO EQ QT670 FP169960 | 31274 0601 00 0 32117 STO QQE20 * QT680 FP169970 | 31275 0074 00 4 31605 TSX QW000,4 MUL WD BCD COM QT690 FP169980 31276 0020 00 0 31042 TRA QS140 QT700 FP169990 | 31277 0500 00 0 32112 QT710 CLA QQD10 INIT REL TR - PCKED QT710 FP170000 | 31300 0400 00 0 32100 ADD QQB90 * 5N+9 TO LOW QT720 FP170010 | 31301 0020 00 0 31270 TRA QT640 * 5N+11 TO HI QT730 FP170020 | 31302 -0054 00 000001 QT740 LFT 1 NOT - IS MODE UNPACKED QT740 FP170030 31303 0020 00 0 31314 TRA QT840 * PACKED QT750 FP170040 | 31304 0500 00 0 32112 CLA QQD10 INIT REL TR - NOT MUL WD UNQT760 FP170050 | 31305 0400 00 0 32075 ADD QQB60 * 5N+6 TO LOW QT770 FP170060 | 31306 0601 00 0 32120 QT780 STO QQE30 * QT780 FP170070 | 31307 0400 00 0 32071 ADD QQB20 * 5N+8 TO HI QT790 FP170080 31310 0601 00 0 32116 STO QQE10 * QT800 FP170090 | 31311 0600 00 0 32117 STZ QQE20 * 0 TO EQ QT810 FP170100 | 31312 0074 00 4 31605 TSX QW000,4 MUL WD BCD COM QT820 FP170110 | 31313 0020 00 0 14307 TRA BB010 TO FUNC CONTRL QT830 FP170120 | 31314 0500 00 0 32112 QT840 CLA QQD10 INIT REL TR - PACKED QT840 FP170130 31315 0400 00 0 32076 ADD QQB70 INIT LOW TO 5N+7 QT850 FP170140 | 31316 0020 00 0 31306 TRA QT780 HI TO 5N+9 QT860 FP170150 | 31317 0054 00 000001 QT870 RFT 1 MUL WD RANGE - SEL OR NOT TQT870 FP170160 | 31320 0020 00 0 31363 TRA QU230 * NOT QT880 FP170170 | 31321 -0054 00 000001 LFT 1 IS MODE UNPACKED QT890 FP170180 31322 0020 00 0 31346 TRA QU100 * PACKED QT900 FP170190 | 31323 0500 00 0 32112 CLA QQD10 INIT REL TR - SEL UNP QT910 FP170200 | 31324 0400 00 0 32077 ADD QQB80 * 5N+8 TO HI QT920 FP170210 | 31325 0601 00 0 32116 STO QQE10 * QT930 FP170220 | 31326 0400 00 0 32121 ADD QQF01 4 QT940 FP170230 31327 0601 00 0 32117 STO QQE20 * 5N+12 TO EQ QT950 FP170240 | 31330 0400 00 0 32112 ADD QQD10 * 5N QT960 FP170250 | 31331 0400 00 0 32075 ADD QQB60 * 6 QT970 FP170260 | 31332 0601 00 0 32120 STO QQE30 * 10N+8 TO LOW QT980 FP170270 | 31333 0074 00 4 31605 TSX QW000,4 MUL WD BCD COM QT990 FP170280 31334 0074 00 4 32037 TSX QY000,4 MODIFY TO HIGH VAL QU000 FP170290 | 31335 0500 00 0 32112 CLA QQD10 INIT REL TR - SEL UNP HIGH QU010 FP170300 | 31336 0400 00 0 32075 ADD QQB60 * 5N+6 TO LOW QU020 FP170310 | 31337 0601 00 0 32120 QU030 STO QQE30 * QU030 FP170320 | 31340 0400 00 0 32121 ADD QQF01 4 QU040 FP170330 31341 0601 00 0 32116 STO QQE10 * 5N+10 TO HI QU050 FP170340 | 31342 0500 00 0 32071 CLA QQB20 * QU060 FP170350 | 31343 0601 00 0 32117 STO QQE20 * 2 TO EQ QU070 FP170360 | 31344 0074 00 4 31605 TSX QW000,4 MUL WD BCD COM QU080 FP170370 | 31345 0020 00 0 31042 TRA QS140 QU090 FP170380 31346 0500 00 0 32112 QU100 CLA QQD10 INIT REL TR - SEL PKD QU100 FP170390 | 31347 0400 00 0 32100 ADD QQB90 * QU110 FP170400 | 31350 0601 00 0 32116 STO QQE10 * 5N+9 TO HI QU120 FP170410 | 31351 0400 00 0 32074 ADD QQB50 * 5 QU130 FP170420 | 31352 0601 00 0 32117 STO QQE20 * 5N+14 TO EQ QU140 FP170430 31353 0400 00 0 32112 ADD QQD10 * 5N QU150 FP170440 | 31354 0400 00 0 32076 ADD QQB70 * 7 QU160 FP170450 | 31355 0601 00 0 32120 STO QQE30 *1ON+21 TO LOW QU170 FP170460 | 31356 0074 00 4 31605 TSX QW000,4 MUL WD BCD COM QU180 FP170470 | 31357 0074 00 4 32037 TSX QY000,4 MODIFY TO HIGH VALUE QU190 FP170480 1 LISTING OF 12/01/64 PAGE 355 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | | 31360 0500 00 0 32112 CLA QQD10 INIT REL TR - SEL PKD HIGH QU200 FP170490 | 31361 0400 00 0 32076 ADD QQB70 * 5N+7 TO LOW QU210 FP170500 31362 0020 00 0 31337 TRA QU030 * 5N+11 TO HI QU220 FP170510 | 31363 -0054 00 000001 QU230 LFT 1 NOT-IS MODE UNPACKED QU230 FP170520 | 31364 0020 00 0 31405 TRA QU410 * PACKED QU240 FP170530 | 31365 0500 00 0 32112 CLA QQD10 INIT REL TR - NOT UNP QU250 FP170540 | 31366 0400 00 0 32077 ADD QQB80 * QU260 FP170550 31367 0601 00 0 32116 STO QQE10 * 5N+8 TO NI QU270 FP170560 | 31370 0600 00 0 32117 STZ QQE20 * 0 TO EQ QU280 FP170570 | 31371 0400 00 0 32112 ADD QQD10 * 5N QU290 FP170580 | 31372 0400 00 0 32077 ADD QQB80 * 8 QU300 FP170590 | 31373 0601 00 0 32120 STO QQE30 * 10N+16 TO LOW QU310 FP170600 31374 0074 00 4 31605 TSX QW000,4 MUL WD BCD COM QU320 FP170610 | 31375 0074 00 4 32037 TSX QY000,4 MODIFY TO HIGH VALUE QU330 FP170620 | 31376 0500 00 0 32112 CLA QQD10 INIT REL TR - NOT UNP HIGH QU340 FP170630 | 31377 0400 00 0 32077 ADD QQB80 * 5N+8 QU350 FP170640 | 31400 0601 00 0 32116 QU360 STO QQE10 * TO HI QU360 FP170650 31401 0600 00 0 32117 STZ QQE20 * 0 TO EQ QU370 FP170660 | 31402 0600 00 0 32120 STZ QQE30 * 0 TO LOW QU380 FP170670 | 31403 0074 00 4 31605 TSX QW000,4 MUL WD BCD COM QU390 FP170680 | 31404 0020 00 0 14307 TRA BB010 TO FUNC CNTRL QU400 FP170690 | 31405 0500 00 0 32112 QU410 CLA QQD10 INIT REL TR - NOT PKD QU410 FP170700 31406 0400 00 0 32100 ADD QQB90 * QU420 FP170710 | 31407 0601 00 0 32116 STO QQE10 * 5N+9 TO NI QU430 FP170720 | 31410 0600 00 0 32117 STZ QQE20 * 0 TO EQ QU440 FP170730 | 31411 0400 00 0 32112 ADD QQD10 * 5N QU450 FP170740 | 31412 0400 00 0 32067 ADD QQB00 * 10 QU460 FP170750 31413 0601 00 0 32120 STO QQE30 * 10N+19 TO LOW QU470 FP170760 | 31414 0074 00 4 31605 TSX QW000,4 MUL WD BCD COM QU480 FP170770 | 31415 0074 00 4 32037 TSX QY000,4 MODIFY TO HIGH VALUE QU490 FP170780 | 31416 0500 00 0 32112 CLA QQD10 * QU500 FP170790 | 31417 0400 00 0 32100 ADD QQB90 * 5N+9 QU510 FP170800 31420 0020 00 0 31400 TRA QU360 QU520 FP170810 | 31421 0634 00 4 31465 QU530 SXA QU703,4 QU530 FP170820 | 31422 -0520 00 0 32062 NZT QQA50 CLEANUP-TEST SEL SW QU535 FP170830 | 31423 0020 00 0 31436 TRA QU650 SW IS OFF QU540 FP170840 | 31424 -0500 00 0 31426 CAL *+2 BUILD CLA FF QU550 FP170850 31425 0074 00 4 11413 TSX PRGMR,4 * QU560 FP170860 | 31426 0500 00 0 00000 CLA 0 * QU570 FP170870 | 31427 0500 00 0 32061 CLA QQA40 * QU580 FP170880 | 31430 0074 00 4 11455 TSX SADDR+1,4 * QU590 FP170890 | 31431 -0500 00 0 31433 CAL *+2 BUILD TZE OUT QU600 FP170900 31432 0074 00 4 11413 TSX PRGMR,4 * QU610 FP170910 | 31433 0100 00 0 00000 TZE 0 * QU620 FP170920 | 31434 0074 00 4 30054 TSX VKD01,4 QU630 FP170930 | 31435 0074 00 4 11477 TSX GADDR,4 QU640 FP170940 | 31436 0520 00 0 11407 QU650 ZET UPWSL QU6500FP170950 31437 0020 00 0 31462 TRA QU700 QU6500FP170960 | 31440 -0625 00 0 11407 STL UPWSL QU6500FP170970 | 31441 -0500 00 0 67175 CAL HEADR+3 QU6500FP170980 | 31442 0560 00 0 67176 LDQ HEADR+4 QU6500FP170990 | 31443 -0763 00 0 00036 LGL 30 QU6500FP171000 31444 -0320 00 0 11005 ANA BCD60 QU6500FP171010 | 31445 0074 00 4 11426 TSX STORR,4 QU6500FP171020 | 31446 -0500 00 0 31450 CAL *+2 CAL REC TYPE QU6500FP171030 | 1 LISTING OF 12/01/64 PAGE 356 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | 31447 0074 00 4 11413 TSX PRGMR,4 QU6500FP171040 | 31450 -0500 00 1 00000 CAL 0,1 QU6501FP171050 | 31451 -0500 00 0 31453 CAL *+2 ERA SEL TYPE QU6501FP171060 | 31452 0074 00 4 11413 TSX PRGMR,4 QU6501FP171070 31453 0322 00 0 00000 ERA 0 QU6501FP171080 | 31454 0074 00 4 11454 TSX SADDR,4 QU6501FP171090 | 31455 -0500 00 0 31457 CAL *+2 TNZ-NOT SELECTED QU6501FP171100 | 31456 0074 00 4 11413 TSX PRGMR,4 QU6501FP171110 | 31457 -0100 00 0 00000 TNZ 0 QU6501FP171120 31460 0074 00 4 30054 TSX VKD01,4 QU6501FP171130 | 31461 0074 00 4 11477 TSX GADDR,4 QU6501FP171140 | 31462 0074 00 4 30031 QU700 TSX VN473,4 QU700 FP171150 | 31463 0520 00 0 14511 ZET BAE71 QU701 FP171160 | 31464 0020 00 0 31467 TRA QU705 QU702 FP171170 31465 0774 00 4 00000 QU703 AXT ..,4 QU703 FP171180 | 31466 0020 00 4 00002 TRA 2,4 QU704 FP171190 | 31467 0760 00 0 00000 QU705 CLM QU705 FP171200 | 31470 -0130 00 0 00000 XCL * QU710 FP171210 | 31471 -0500 00 0 67172 CAL HEADR * QU720 FP171220 31472 0771 00 0 00030 ARS 24 * QU730 FP171230 | 31473 -0765 00 0 00004 LGR 4 * QU740 FP171240 | 31474 0771 00 0 00002 ARS 2 * QU750 FP171250 | 31475 -0765 00 0 00004 LGR 4 * QU760 FP171260 | 31476 -0500 00 0 15063 CAL VSA30 QU770 FP171270 31477 -0763 00 0 00032 LGL 26 * QU780 FP171280 | 31500 -0501 00 0 31505 ORA QU840 QU790 FP171290 | 31501 0074 00 4 11547 TSX M0010,4 * QU800 FP171300 | 31502 -0520 00 0 14512 NZT BAE80 * QU810 FP171310 | 31503 0020 00 0 14403 TRA BB360 * QU820 FP171320 31504 0020 00 0 14341 TRA BB180 * QU830 FP171330 | 31505 +160000000000 QU840 OCT 160000000000 QU840 FP171340 | 31506 0634 00 4 31603 QV000 SXA QV600,4 1 WD COM - BCD ENTRY QV000 FP171350 | 31507 0535 00 2 32103 LAC QQC30,2 INIT XR2 WITH COM OF 1ST WDQV010 FP171360 | 31510 0500 00 0 13654 CLA E2005 BUILD CAL U,1 QV030 FP171370 31511 -0501 00 0 31513 ORA *+2 * QV040 FP171380 | 31512 0074 00 4 11413 TSX PRGMR,4 * QV050 FP171390 | 31513 -0500 00 1 00000 CAL 0,1 * QV060 FP171400 | 31514 -0056 00 000001 LNT 1 IS MODE UNPACKED QV070 FP171410 | 31515 0020 00 0 31526 TRA QV170 * YES QV080 FP171420 31516 -0500 00 0 32106 CAL QQC60 COMBINE MASKS QV090 FP171430 | 31517 0320 00 0 32105 ANS QQC50 * QV100 FP171440 | 31520 -0500 00 0 32105 CAL QQC50 COMB MASK TO OBJECT STORAGEQV110 FP171450 | 31521 0074 00 4 11426 TSX STORR,4 * QV120 FP171460 | 31522 -0500 00 0 31524 CAL *+2 BUILD ANA MASK QV130 FP171470 31523 0074 00 4 11413 TSX PRGMR,4 * QV140 FP171480 | 31524 -0320 00 0 00000 ANA 0 * QV150 FP171490 | 31525 0074 00 4 11454 TSX SADDR,4 * QV160 FP171500 | 31526 -0500 00 2 00000 QV170 CAL 0,2 LOAD VALUE QV170 FP171510 | 31527 1 77777 2 31530 TXI *+1,2,-1 * QV180 FP171520 31530 0560 00 2 00000 LDQ 0,2 * QV190 FP171530 | 31531 0522 00 0 32101 XEC QQC10 * QV200 FP171540 | 31532 -0320 00 0 32105 ANA QQC50 * QV210 FP171550 | 31533 0520 00 0 32122 ZET QQF02 QV211 FP171560 | 31534 -0320 00 0 11005 ANA BCD60 QV212 FP171570 31535 0074 00 4 11426 TSX STORR,4 VALUE TO OBJECT STORAGE QV220 FP171580 | 1 LISTING OF 12/01/64 PAGE 357 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | | 31536 -0500 00 0 31540 CAL *+2 BUILD LAS VALUE QV230 FP171590 31537 0074 00 4 11413 TSX PRGMR,4 * QV240 FP171600 | 31540 -0340 00 0 00000 LAS 0 * QV250 FP171610 | 31541 0074 00 4 11454 TSX SADDR,4 * QV260 FP171620 | 31542 0020 00 0 31554 TRA QV370 QV270 FP171630 | 31543 0634 00 4 31603 QV280 SXA QV600,4 1 WD COM - BIN ENTRY QV280 FP171640 31544 0500 00 0 13654 CLA E2005 BUILD CLA U,1 QV290 FP171650 | 31545 -0501 00 0 31547 ORA *+2 * QV300 FP171660 | 31546 0074 00 4 11413 TSX PRGMR,4 * QV310 FP171670 | 31547 0500 00 1 00000 CLA 0,1 * QV320 FP171680 | 31550 -0500 00 0 31552 CAL *+2 BUILD CAS VALUE QV330 FP171690 31551 0074 00 4 11413 TSX PRGMR,4 * QV340 FP171700 | 31552 0340 00 0 00000 CAS 0 * QV350 FP171710 | 31553 0074 00 4 11454 TSX SADDR,4 * QV360 FP171720 | 31554 -0500 00 0 31556 QV370 CAL *+2 BUILD TRA HI REL QV370 FP171730 | 31555 0074 00 4 11413 TSX PRGMR,4 * QV380 FP171740 31556 0020 00 0 00000 TRA 0 * QV390 FP171750 | 31557 0500 00 0 32116 CLA QQE10 * QV400 FP171760 | 31560 0074 00 4 11465 TSX PADDR,4 * QV410 FP171770 | 31561 -0500 00 0 31563 CAL *+2 BUILD TRA EQ REL QV420 FP171780 | 31562 0074 00 4 11413 TSX PRGMR,4 * QV430 FP171790 31563 0020 00 0 00000 TRA 0 * QV440 FP171800 | 31564 0500 00 0 32117 CLA QQE20 * IS EQ REL ZERO QV450 FP171810 | 31565 0100 00 0 31570 TZE *+3 * YES QV460 FP171820 | 31566 0074 00 4 11465 TSX PADDR,4 * QV470 FP171830 | 31567 0020 00 0 31572 TRA *+3 * QV480 FP171840 31570 0074 00 4 30054 TSX VKD01,4 QU490 FP171850 | 31571 0074 00 4 11477 TSX GADDR,4 QU500 FP171860 | 31572 -0500 00 0 31574 CAL *+2 BUILD TRA LOW QV510 FP171870 | 31573 0074 00 4 11413 TSX PRGMR,4 * QV520 FP171880 | 31574 0020 00 0 00000 TRA 0 * QV530 FP171890 31575 0500 00 0 32120 CLA QQE30 * IS LOW REL ZERO QV540 FP171900 | 31576 0100 00 0 31601 TZE *+3 * QV550 FP171910 | 31577 0074 00 4 11465 TSX PADDR,4 * QV560 FP171920 | 31600 0020 00 0 31603 TRA *+3 * QV570 FP171930 | 31601 0074 00 4 30054 TSX VKD01,4 QV580 FP171940 31602 0074 00 4 11477 TSX GADDR,4 QV590 FP171950 | 31603 0774 00 4 00000 QV600 AXT 0,4 RESTORE RX4 QV600 FP171960 | 31604 0020 00 4 00001 TRA 1,4 RETURN QV610 FP171970 | 31605 0634 00 4 32024 QW000 SXA QX440,4 MUL WD COMPARE - SAVE XR4 QW000 FP171980 | 31606 0634 00 1 32025 SXA QX450,1 SAVE XR1 QW010 FP171990 31607 0500 00 0 13654 CLA E2005 INIT U BUCKET FROM WD NO. QW020 FP172000 | 31610 0601 00 0 32111 STO QQC90 * QW030 FP172010 | 31611 0535 00 2 32103 LAC QQC30,2 INIT XR2 WITH COM OF 1ST WDQW040 FP172020 | 31612 0534 00 1 32110 LXA QQC80,1 INIT XR1 WITH SIZE + BIT NOQW060 FP172030 | 31613 1 77734 1 31614 TXI *+1,1,-36 * QW070 FP172040 31614 0500 00 0 32111 CLA QQC90 BUILD CAL U,1 QW080 FP172050 | 31615 -0501 00 0 31617 ORA *+2 * QW090 FP172060 | 31616 0074 00 4 11413 TSX PRGMR,4 * QW100 FP172070 | 31617 -0500 00 1 00000 CAL 0,1 * QW110 FP172080 | 31620 -0056 00 000001 LNT 1 IS MODE UNPACKED QW120 FP172090 31621 0020 00 0 31630 TRA QW200 * YES QW130 FP172100 | 31622 -0500 00 0 32105 CAL QQC50 LFT MASK TO OBJECT STOR QW140 FP172110 | 31623 0074 00 4 11426 TSX STORR,4 * QW150 FP172120 | 31624 -0500 00 0 31626 CAL *+2 BUILD ANA MASK QW160 FP172130 | 1 LISTING OF 12/01/64 PAGE 358 UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | | 31625 0074 00 4 11413 TSX PRGMR,4 * QW170 FP172140 | 31626 -0320 00 0 00000 ANA 0 * QW180 FP172150 | 31627 0074 00 4 11454 TSX SADDR,4 * QW190 FP172160 31630 -0500 00 2 00000 QW200 CAL 0,2 LOAD 1ST WD OF VALUE QW200 FP172170 | 31631 1 77777 2 31632 TXI *+1,2,-1 * QW210 FP172180 | 31632 0560 00 2 00000 LDQ 0,2 * QW220 FP172190 | 31633 0522 00 0 32101 XEC QQC10 * QW230 FP172200 | 31634 -0320 00 0 32105 ANA QQC50 * QW240 FP172210 31635 0074 00 4 11426 TSX STORR,4 VALUE TO OBJECT STOR QW250 FP172220 | 31636 -0500 00 0 31640 CAL *+2 BUILD LAS VALUE QW260 FP172230 | 31637 0074 00 4 11413 TSX PRGMR,4 * QW270 FP172240 | 31640 -0340 00 0 00000 LAS 0 * QW280 FP172250 | 31641 0074 00 4 11454 TSX SADDR,4 * QW290 FP172260 31642 -0500 00 0 31644 CAL *+2 BUILD TRA HI QW300 FP172270 | 31643 0074 00 4 11413 TSX PRGMR,4 * QW310 FP172280 | 31644 0020 00 0 00000 TRA 0 * QW320 FP172290 | 31645 0500 00 0 32116 CLA QQE10 * QW330 FP172300 | 31646 0074 00 4 11465 TSX PADDR,4 * QW340 FP172310 31647 -0500 00 0 31651 CAL *+2 BUILD TRA EQ QW350 FP172320 | 31650 0074 00 4 11413 TSX PRGMR,4 * QW360 FP172330 | 31651 0020 00 0 00000 TRA 0 * QW370 FP172340 | 31652 0500 00 0 32071 CLA QQB20 * QW380 FP172350 | 31653 0074 00 4 11465 TSX PADDR,4 * QW390 FP172360 31654 -0500 00 0 31656 CAL *+2 BUILD TRA WW QW400 FP172370 | 31655 0074 00 4 11413 TSX PRGMR,4 * QW410 FP172380 | 31656 0020 00 0 00000 TRA 0 * QW420 FP172390 | 31657 0500 00 0 32120 CLA QQE30 * IS LOW REL ZERO QW430 FP172400 | 31660 0100 00 0 31663 TZE *+3 * YES QW440 FP172410 31661 0074 00 4 11465 TSX PADDR,4 * QW450 FP172420 | 31662 0020 00 0 31665 TRA *+3 * QW460 FP172430 | 31663 0074 00 4 30054 TSX VKD01,4 QW470 FP172440 | 31664 0074 00 4 11477 TSX GADDR,4 QU480 FP172450 | 31665 -2 00044 1 31735 QW490 TNX QW890,1,36 ANY MIDDLE WDS QW490 FP172460 31666 0500 00 0 32111 CLA QQC90 YES-UPDATE U BY I QW500 FP172470 | 31667 0400 00 0 32070 ADD QQB10 * QW510 FP172480 | 31670 0601 00 0 32111 STO QQC90 * QW520 FP172490 | 31671 -0501 00 0 31673 ORA *+2 BUILD CAL U,1 QW530 FP172500 | 31672 0074 00 4 11413 TSX PRGMR,4 * QW540 FP172510 31673 -0500 00 1 00000 CAL 0,1 * QW550 FP172520 | 31674 -0500 00 2 00000 CAL 0,2 LOAD MIDDLE WORD QW560 FP172530 | 31675 1 77777 2 31676 TXI *+1,2,-1 * QW570 FP172540 | 31676 0560 00 2 00000 LDQ 0,2 * QW580 FP172550 | 31677 0522 00 0 32101 XEC QQC10 * QW590 FP172560 31700 0074 00 4 11426 TSX STORR,4 VALUE TO OBJECT STOR QW600 FP172570 | 31701 -0500 00 0 31703 CAL *+2 BUILD LAS VALUE QW610 FP172580 | 31702 0074 00 4 11413 TSX PRGMR,4 * QW620 FP172590 | 31703 -0340 00 0 00000 LAS 0 * QW630 FP172600 | 31704 0074 00 4 11454 TSX SADDR,4 * QW640 FP172610 31705 -0500 00 0 31707 CAL *+2 BUILD TRA HIGH QW650 FP172620 | 31706 0074 00 4 11413 TSX PRGMR,4 * QW660 FP172630 | 31707 0020 00 0 00000 TRA 0 * QW670 FP172640 | 31710 0500 00 0 32116 CLA QQE10 * DECR HI REL BY 5 QW680 FP172650 | 31711 0402 00 0 32074 SUB QQB50 * QW690 FP172660 31712 0601 00 0 32116 STO QQE10 * QW700 FP172670 | 31713 0074 00 4 11465 TSX PADDR,4 * QW710 FP172680 | 1 LISTING OF 12/01/64 PAGE 359 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | 31714 -0500 00 0 31716 CAL *+2 BUILD TRA *+2 /EQ/ QW720 FP172690 | 31715 0074 00 4 11413 TSX PRGMR,4 * QW730 FP172700 | 31716 0020 00 0 00000 TRA 0 * QW740 FP172710 | 31717 0500 00 0 32071 CLA QQB20 * QW750 FP172720 | 31720 0074 00 4 11465 TSX PADDR,4 * QW760 FP172730 31721 -0500 00 0 31723 CAL *+2 BUILD TRA LOW QW770 FP172740 | 31722 0074 00 4 11413 TSX PRGMR,4 * QW780 FP172750 | 31723 0020 00 0 00000 TRA 0 * QW790 FP172760 | 31724 0500 00 0 32120 CLA QQE30 * IS LOW REL ZERO QW800 FP172770 | 31725 0100 00 0 31732 TZE QW860 * YES QW810 FP172780 31726 0402 00 0 32074 SUB QQB50 * DECR LOW REL BY 5 QW820 FP172790 | 31727 0601 00 0 32120 STO QQE30 * QW830 FP172800 | 31730 0074 00 4 11465 TSX PADDR,4 * QW840 FP172810 | 31731 0020 00 0 31665 TRA QW490 * QW850 FP172820 | 31732 0074 00 4 30054 QW860 TSX VKD01,4 QW860 FP172830 31733 0074 00 4 11477 TSX GADDR,4 QW870 FP172840 | 31734 0020 00 0 31665 TRA QW490 QW880 FP172850 | 31735 0500 00 0 32111 QW890 CLA QQC90 RT WD - UPDATE U BY I QW890 FP172860 | 31736 0400 00 0 32070 ADD QQB10 * QW900 FP172870 | 31737 0601 00 0 32111 STO QQC90 * QW910 FP172880 31740 -0501 00 0 31742 ORA *+2 BUILD CAL U,1 QW920 FP172890 | 31741 0074 00 4 11413 TSX PRGMR,4 * QW930 FP172900 | 31742 -0500 00 1 00000 CAL 0,1 * QW940 FP172910 | 31743 -0056 00 000001 LNT 1 IS MODE UNPACKED QW950 FP172920 | 31744 0020 00 0 32027 TRA QX470 * YES QW960 FP172930 31745 0500 00 0 32116 CLA QQE10 DECR HI REL BY 6 QW970 FP172940 | 31746 0402 00 0 32075 SUB QQB60 * QW980 FP172950 | 31747 0601 00 0 32116 STO QQE10 * QW990 FP172960 | 31750 -0500 00 0 32106 CAL QQC60 RT MASK TO OBJECT STOR QX000 FP172970 | 31751 0074 00 4 11426 TSX STORR,4 * QX010 FP172980 31752 -0500 00 0 31754 CAL *+2 BUILD ANA RT MASK QX020 FP172990 | 31753 0074 00 4 11413 TSX PRGMR,4 * QX030 FP173000 | 31754 -0320 00 0 00000 ANA 0 * QX040 FP173010 | 31755 0074 00 4 11454 TSX SADDR,4 * QX050 FP173020 | 31756 -0500 00 2 00000 CAL 0,2 LOAD RT WORD QX060 FP173030 31757 1 77777 2 31760 TXI *+1,2,-1 * QX070 FP173040 | 31760 0560 00 2 00000 LDQ 0,2 * QX080 FP173050 | 31761 0522 00 0 32101 XEC QQC10 * QX090 FP173060 | 31762 -0320 00 0 32106 ANA QQC60 * QX100 FP173070 | 31763 0074 00 4 11426 QX110 TSX STORR,4 VALUE TO OBJECT STOR QX110 FP173080 31764 -0500 00 0 31766 CAL *+2 BUILD LAS VALUE QX120 FP173090 | 31765 0074 00 4 11413 TSX PRGMR,4 * QX130 FP173100 | 31766 -0340 00 0 00000 LAS 0 * QX140 FP173110 | 31767 0074 00 4 11454 TSX SADDR,4 * QX150 FP173120 | 31770 -0500 00 0 31772 CAL *+2 BUILD TRA HI QX160 FP173130 31771 0074 00 4 11413 TSX PRGMR,4 * QX170 FP173140 | 31772 0020 00 0 00000 TRA 0 * QX180 FP173150 | 31773 0500 00 0 32116 CLA QQE10 * QX190 FP173160 | 31774 0074 00 4 11465 TSX PADDR,4 * QX200 FP173170 | 31775 -0500 00 0 31777 CAL *+2 BUILD TRA EQ QX210 FP173180 31776 0074 00 4 11413 TSX PRGMR,4 * QX220 FP173190 | 31777 0020 00 0 00000 TRA 0 * QX230 FP173200 | 32000 0500 00 0 32117 CLA QQE20 * IS EQ REL ZERO QX240 FP173210 | 32001 0100 00 0 32004 TZE *+3 * YES QX250 FP173220 | 32002 0074 00 4 11465 TSX PADDR,4 * QX260 FP173230 1 LISTING OF 12/01/64 PAGE 360 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | | 32003 0020 00 0 32006 TRA *+3 * QX270 FP173240 | 32004 0074 00 4 30054 TSX VKD01,4 QX280 FP173250 32005 0074 00 4 11477 TSX GADDR,4 QX290 FP173260 | 32006 -0500 00 0 32010 CAL *+2 BUILD TRA LOW QX300 FP173270 | 32007 0074 00 4 11413 TSX PRGMR,4 * QX310 FP173280 | 32010 0020 00 0 00000 TRA 0 * QX320 FP173290 | 32011 0500 00 0 32120 CLA QQE30 * IS LOW REL ZERO QX330 FP173300 32012 0100 00 0 32022 TZE QX420 * YES QX340 FP173310 | 32013 -0056 00 000001 LNT 1 IS MODE UNPACKED QX350 FP173320 | 32014 0020 00 0 32017 TRA QX390 * YES QX360 FP173330 | 32015 0402 00 0 32075 SUB QQB60 DECR LOW REL BY 6 QX370 FP173340 | 32016 0020 00 0 32020 TRA QX400 QX380 FP173350 32017 0402 00 0 32074 QX390 SUB QQB50 DECR LOW REL BY 5 QX390 FP173360 | 32020 0074 00 4 11465 QX400 TSX PADDR,4 QX400 FP173370 | 32021 0020 00 0 32024 TRA QX440 QX410 FP173380 | 32022 0074 00 4 30054 QX420 TSX VKD01,4 QX420 FP173390 | 32023 0074 00 4 11477 TSX GADDR,4 QX430 FP173400 32024 0774 00 4 00000 QX440 AXT 0,4 RESTORE XR4 QX440 FP173410 | 32025 0774 00 1 00000 QX450 AXT 0,1 RESTORE XR1 QX450 FP173420 | 32026 0020 00 4 00001 TRA 1,4 RETURN QX460 FP173430 | 32027 0500 00 0 32116 QX470 CLA QQE10 DECR HI REL BY 5 QX470 FP173440 | 32030 0402 00 0 32074 SUB QQB50 * QX480 FP173450 32031 0601 00 0 32116 STO QQE10 * QX490 FP173460 | 32032 -0500 00 2 00000 CAL 0,2 LOAD RT WORD QX500 FP173470 | 32033 1 77777 2 32034 TXI *+1,2,-1 * QX510 FP173480 | 32034 0560 00 2 00000 LDQ 0,2 * QX520 FP173490 | 32035 0522 00 0 32101 XEC QQC10 * QX530 FP173500 32036 0020 00 0 31763 TRA QX110 QX540 FP173510 | 32037 0535 00 2 32107 QY000 LAC QQC70,2 MODIFY TO HIGH VALUE QY000 FP173520 | 32040 -0500 00 0 30775 CAL QR760 LOAD ARS OF HY WD QY010 FP173530 | 32041 -0320 00 0 10730 ANA BCD03 * QY020 FP173540 | 32042 0402 00 0 32063 SUB QQA60 * SUB 36 QY030 FP173550 32043 0760 00 0 00003 SSP CALC SHIFT QY040 FP173560 | 32044 0402 00 0 13655 SUB E2006 * BIT NO QY050 FP173570 | 32045 0120 00 0 32050 TPL QY090 IS SHIFT NEG. QY060 FP173580 | 32046 1 77777 2 32047 TXI *+1,2,-1 YES-DECR 1ST WD PICK UP QY070 FP173590 | 32047 0400 00 0 32063 ADD QQA60 * ADD 36 TO SHIFT QY080 FP173600 32050 0621 00 0 32101 QY090 STA QQC10 INIT SHIFT QY090 FP173610 | 32051 0634 00 2 32103 SXA QQC30,2 INIT 1ST WD PICK UP QY100 FP173620 | 32052 0020 00 4 00001 TRA 1,4 RETURN QY110 FP173630 | 32053 0074 00 4 12507 QY120 TSX MSYSRD,4 QY120 FP173640 | 32054 114721230406 BCI 1,9PAC46 UPWFLD FP173650 32055 0 02563 0 35133 PZE UWFLD,,UWFLD-VESEL-2 FP173660 | 32056 0 00000 0 00000 QQA10 PZE PREV FLD NO. QQA10 FP173670 | 32057 0 00000 0 00000 QQA20 PZE PREV INCR-LEN QQA20 FP173680 | 32060 0 00000 0 00000 QQA30 PZE NON ZERO WD NO. QQA30 FP173690 | 32061 0 00000 0 00000 QQA40 PZE FLIP WD NO QQA40 FP173700 32062 0 00000 0 00000 QQA50 PZE SEL SW QQA50 FP173710 | 32063 0 00000 0 00044 QQA60 PZE 36 QQA60 FP173720 | 32064 0 00000 0 00030 QQA70 PZE 24 QQA70 FP173730 | 32065 0 00000 0 00022 QQA80 PZE 18 QQA80 FP173740 | 32066 000000000040 QQA90 BCI 1,00000- QQA90 FP173750 32067 0 00000 0 00012 QQB00 PZE 10 QQB00 FP173760 | 32070 0 00000 0 00001 QQB10 PZE 1 QQB10 FP173770 | 32071 0 00000 0 00002 QQB20 PZE 2 QQB20 FP173780 | 1 LISTING OF 12/01/64 PAGE 361 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | 32072 0 00000 0 00003 QQB30 PZE 3 QQB30 FP173790 | 32073 0 00000 0 00003 QQB40 PZE 3 QQB40 FP173800 | 32074 0 00000 0 00005 QQB50 PZE 5 QQB50 FP173810 | 32075 0 00000 0 00006 QQB60 PZE 6 QQB60 FP173820 32076 0 00000 0 00007 QQB70 PZE 7 QQB70 FP173830 | 32077 0 00000 0 00010 QQB80 PZE 8 QQB80 FP173840 | 32100 0 00000 0 00011 QQB90 PZE 9 QQB90 FP173850 | 32101 -0763 00 0 00000 QQC10 LGL 0 LEFT SHIFT QQC10 FP173860 | 32102 0 00000 0 00000 QQC20 PZE LGL AUX QQC20 FP173870 32103 0 00000 0 00000 QQC30 PZE 1 ST WORD PICK UP ADDR TRUEQQC30 FP173880 | 32104 0 00000 0 00000 QQC40 PZE 1ST WD PICK UP AUX QQC40 FP173890 | 32105 0 00000 0 00000 QQC50 PZE LEFT MASK QQC50 FP173900 | 32106 0 00000 0 00000 QQC60 PZE RT MASK QQC60 FP173910 | 32107 0 00000 0 00000 QQC70 PZE HYPHEN WORD COMPL AUX QQC70 FP173920 32110 0 00000 0 00000 QQC80 PZE SIZE + BIT = QQC80 FP173930 | 32111 0 00000 0 00000 QQC90 PZE U BUCKET QQC90 FP173940 | 32112 0 00000 0 00000 QQD10 PZE 5N - N IS NO. OF MIDDLE WDSQQD10 FP173950 | 32113 +100000000000 QQD20 OCT 100000000000 QQD20 FP173960 | 32114 000000606060 QQD30 BCI 1,000 QQD30 FP173970 32115 0 00000 0 00000 QQD40 PZE OPSTO QQD40 FP173980 | 32116 0 00000 0 00000 QQE10 PZE HIGH REL TR QQE10 FP173990 | 32117 0 00000 0 00000 QQE20 PZE EQUAL QQE20 FP174000 | 32120 0 00000 0 00000 QQE30 PZE LOW QQE30 FP174010 | 32121 0 00000 0 00004 QQF01 PZE 4 QQF01 FP174020 32122 0 00000 0 00000 QQF02 PZE 0 FLD 0001 SWITCH QQF02 FP174030 | 32205 UWSEL BES 50 FP174040 | 00000 TCD 0 FP174050 | 1 LISTING OF 12/01/64 PAGE 362 | UPWSEL (9PAC45). UPDATE W/DICT SELECT FUNCTION | * FP174070 | 1 LISTING OF 12/01/64 PAGE 363 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | * FP174090 | * FP174100 | * FP174110 | * FP174120 | * FP174130 * UPDATE FLD WITH DICTIONARTY FCTN FP174140 | * FP174150 | * FP174160 | 32350 ORG VESEL+2 UPWFLD FP174180 | 32350 114721230406 BCI 1,9PAC46 FP174190 32351 644766264324 UPWFL BCI 1,UPWFLD SEARCH CODE QA010 FP174200 | 00100 ORG SYSTRA FP174210 | 00100 0020 00 0 34772 TRA QP120 FP174220 | 32352 ORG VESEL+4 FP174230 | 32352 0020 00 0 34760 QA020 TRA QP000 TO CLEAN UP QA020 FP174240 32353 0520 00 0 35000 ZET QAA10 TEST FOR FIRST CARD QA030 FP174250 | 32354 0020 00 0 32373 TRA QA100 QA040 FP174260 | 32355 -0500 00 0 67173 CAL HEADR+1 INIT RECORD TYPE QA050 FP174270 | 32356 0560 00 0 67174 LDQ HEADR+2 QA060 FP174280 | 32357 -0763 00 0 00006 LGL 6 QA070 FP174290 32360 -0320 00 0 10730 ANA BCD03 QA080 FP174300 | 32361 0602 00 0 35000 SLW QAA10 QA090 FP174310 | 32362 -0500 00 0 67172 CAL HEADR SET REJ SORT CODE QA091 FP174320 | 32363 -0765 00 0 00022 LGR 18 QA092 FP174330 | 32364 -0320 00 0 10733 ANA BCD06 QA093 FP174340 32365 -0501 00 0 35027 ORA QAD10 QA094 FP174350 | 32366 0602 00 0 35030 SLW QAD20 QA095 FP174360 | 32367 -0500 00 0 14532 CAL BAC84 INIT FOR SELECTIVE FLD. QA096 FP174370 | 32370 0621 00 0 32406 STA QA111 QA097 FP174380 | 32371 0400 00 0 11026 ADD NMBR1 QA098 FP174390 32372 0621 00 0 32404 STA QA109 QA099 FP174400 | 32373 -0500 00 0 04622 QA100 CAL CARD+1 QA100 FP174410 | 32374 -0320 00 0 10735 ANA BCD10 QA101 FP174420 | 32375 0402 00 0 35037 SUB QAE01 QA102 FP174430 | 32376 0602 00 0 14510 SLW BAE70 THIS FLD CODE QA103 FP174440 32377 -0100 00 0 32405 TNZ QA110 NOT F, IE FLD QA104 FP174450 | 32400 0520 00 0 14511 ZET BAE71 WAS LAST CARD FLD QA105 FP174460 | 32401 0074 00 4 30143 TSX VKD30,4 YES--FILL MISS ADDR QA106 FP174470 | 32402 -0500 00 0 14510 CAL BAE70 QA107 FP174480 | 32403 0602 00 0 14511 SLW BAE71 QA108 FP174490 32404 0020 00 0 00000 QA109 TRA .. TO PROCESS SEL QA109 FP174500 | 32405 -0520 00 0 14511 QA110 NZT BAE71 WAS LAST CARD FLD QA110 FP174510 | 32406 0074 00 4 00000 QA111 TSX ..,4 TO CLEAN-UP. SEL QA111 FP174520 | 32407 0074 00 4 30143 TSX VKD30,4 FILL ANY MISSING ADDR QA112 FP174530 | 32410 -0500 00 0 14510 CAL BAE70 QA113 FP174540 32411 0602 00 0 14511 SLW BAE71 QA114 FP174550 | 32412 -0500 00 0 04622 CAL CARD+1 QA115 FP174560 | 32413 -0765 00 0 00006 LGR 6 * QA110 FP174570 | 32414 -0320 00 0 10730 ANA BCD03 * QA120 FP174580 | 32415 -0340 00 0 35000 LAS QAA10 * QA130 FP174590 32416 0020 00 0 32420 TRA *+2 ERROR QA140 FP174600 | 32417 0020 00 0 32422 TRA *+3 OK QA150 FP174610 | 32420 0074 00 4 10507 TSX T0010,4 QA155 FP174620 | 32421 -1 00764 2 14307 STR BB010,2,500 FUNC REC TYPE NOT EQUAL TO HDR REC TYQA160 FP174630 | 32422 -0500 00 0 04622 CAL CARD+1 QA170 FP174640 1 LISTING OF 12/01/64 PAGE 364 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 32423 0560 00 0 04623 LDQ CARD+2 QA180 FP174650 | 32424 -0763 00 0 00022 LGL 18 QA190 FP174660 32425 -0320 00 0 10744 ANA BCD17 QA200 FP174670 | 32426 0602 00 0 32435 SLW QA230 QA210 FP174680 | 32427 -0500 00 0 04623 CAL CARD+2 QA211 FP174690 | 32430 0560 00 0 04624 LDQ CARD+3 QA212 FP174700 | 32431 -0763 00 0 00022 LGL 18 QA213 FP174710 32432 -0320 00 0 10744 ANA BCD17 QA214 FP174720 | 32433 0602 00 0 32437 SLW QA232 QA215 FP174730 | 32434 0074 00 4 13550 TSX E0010,4 QA220 FP174740 | 32435 0 00000 0 00000 QA230 PZE QA230 FP174750 | 32436 0074 00 4 13615 TSX E1010,4 QA231 FP174760 32437 0 00000 0 00000 QA232 PZE FLD NO. QA232 FP174770 | 32440 -0500 00 0 32437 CAL *-1 FLD= TO OBJ QA240 FP174780 | 32441 0074 00 4 11426 TSX STORR,4 QA250 FP174790 | 32442 -0500 00 0 11436 CAL G0080 QA260 FP174800 | 32443 0621 00 0 35031 STA QAD30 QA270 FP174810 32444 -0500 00 2 00010 CAL 8,2 QA280 FP174820 | 32445 0560 00 2 00011 LDQ 9,2 QA290 FP174830 | 32446 -0763 00 0 00006 LGL 6 QA300 FP174840 | 32447 -0320 00 0 10730 ANA BCD03 QA310 FP174850 | 32450 0322 00 0 35036 ERA QAD80 QA320 FP174860 32451 0100 00 0 32454 TZE *+3 QA330 FP174870 | 32452 0074 00 4 10507 TSX T0010,4 QA335 FP174880 | 32453 -1 01024 2 14307 STR BB010,2,532 FLD CARD FOR SEQ FLD QA340 FP174890 | 32454 0441 00 2 00002 LDI 2,2 TEST MODE QA360 FP174900 | 32455 -0056 00 000100 LNT 100 QA370 FP174910 32456 0020 00 0 33416 TRA QK010 TO BINARY QA380 FP174920 | 32457 0500 00 0 13613 CLA E1005 STO C AND U QA390 FP174930 | 32460 0601 00 0 35002 STO QAA30 QA400 FP174940 | 32461 0500 00 0 13654 CLA E2005 QA410 FP174950 | 32462 0601 00 0 35003 STO QAA40 QA420 FP174960 32463 -0500 00 0 04624 CAL CARD+3 TEST ACTION QA430 FP174970 | 32464 -0320 00 0 10731 ANA BCD04 QA440 FP174980 | 32465 -0340 00 0 35004 LAS QAA50 R QA450 FP174990 | 32466 0020 00 0 32470 TRA *+2 QA460 FP175000 | 32467 0020 00 0 32472 TRA *+3 EQUAL OK QA470 FP175010 32470 0074 00 4 10507 TSX T0010,4 QA475 FP175020 | 32471 -1 00765 2 14307 STR BB010,2,501 BCD FLD ACTION OTHER THAN R QA480 FP175030 | 32472 0441 00 1 00002 LDI 2,1 QA490 FP175040 | 32473 -0056 00 000100 LNT 100 TEST CHG FLD MODE QA500 FP175050 | 32474 0020 00 0 33024 TRA QD650 TO BINARY QA510 FP175060 32475 -0500 00 0 04625 CAL CARD+4 BLANK TEST CHG SIZE QA520 FP175070 | 32476 -0765 00 0 00014 LGR 12 QA530 FP175080 | 32477 -0320 00 0 10734 ANA BCD07 QA540 FP175090 | 32500 -0340 00 0 35007 LAS QAA60 QA550 FP175100 | 32501 0020 00 0 32542 TRA QB070 TO CONVERT CHG SOZE QA560 FP175110 32502 0020 00 0 32504 TRA *+2 EQUAL QA570 FP175120 | 32503 0020 00 0 32542 TRA QB070 TO CONVERT CHG SIZE QA580 FP175130 | 32504 0500 00 0 13653 CLA E2004 IS CHG SIZE EQUAL TO SF QA590 FP175140 | 32505 0340 00 0 13612 CAS E1004 QA600 FP175150 | 32506 0020 00 0 32510 TRA *+2 ERROR QA610 FP175160 32507 0020 00 0 32512 TRA *+3 EQUAL OK QA620 FP175170 | 32510 0074 00 4 10507 TSX T0010,4 QA625 FP175180 | 32511 -1 00766 2 14307 STR BB010,2,502 CHG FLD SIZE EQUAL TO SF SIZE QA630 FP175190 | 1 LISTING OF 12/01/64 PAGE 365 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | 32512 -0054 00 000001 LFT 1 TEST CHG FLD MODE QA650 FP175200 | 32513 0020 00 0 32577 TRA QB330 PACKED CHG FLD QA660 FP175210 | 32514 0441 00 2 00002 LDI 2,2 TEST SF MODE QA670 FP175220 | 32515 -0054 00 000001 LFT 1 * QA680 FP175230 32516 0020 00 0 32577 TRA QB330 PACKED SF QA690 FP175240 | 32517 0534 00 1 13612 LXA E1004,1 INIT XRI WITH SIZE QA700 FP175250 | 32520 0500 00 0 35003 QA710 CLA QAA40 QA710 FP175260 | 32521 -0501 00 0 32523 ORA *+2 QA850 FP175270 | 32522 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QA860 FP175280 32523 -0500 00 1 00000 CAL 0,1 QA870 FP175290 | 32524 0500 00 0 35002 CLA QAA30 C QA880 FP175300 | 32525 -0501 00 0 32527 ORA *+2 QA890 FP175310 | 32526 0074 00 4 11413 TSX PRGMR,4 MOVE SLW QA900 FP175320 | 32527 0602 00 2 00000 SLW 0,2 QA910 FP175330 32530 0500 00 0 35002 CLA QAA30 UPDATE C AND U QA980 FP175340 | 32531 0400 00 0 35010 ADD QAA70 1 QA990 FP175350 | 32532 0601 00 0 35002 STO QAA30 * QB010 FP175360 | 32533 0500 00 0 35003 CLA QAA40 * QB020 FP175370 | 32534 0400 00 0 35010 ADD QAA70 1 QB030 FP175380 32535 0602 00 0 35003 SLW QAA40 * QB040 FP175390 | 32536 2 00044 1 32520 TIX QA710,1,36 TEST FOR NEXT WORD QB050 FP175400 | 32537 0020 00 0 14307 TRA BB010 QB060 FP175410 | 32540 0074 00 4 10507 QB065 TSX T0010,4 QB065 FP175420 | 32541 -1 00770 2 14307 STR BB010,2,504 CHG LENGTH BUT NO INCR QB066 FP175430 32542 0602 00 0 07751 QB070 SLW B1020 CONVERT CHG SIZE BIN QB070 FP175440 | 32543 0074 00 4 07572 TSX B0012,4 QB080 FP175450 | 32544 0500 00 0 07747 CLA B1000 QB100 FP175460 | 32545 0340 00 0 13612 CAS E1004 QB101 FP175470 | 32546 0020 00 0 32550 TRA *+2 QB102 FP175480 32547 0020 00 0 32552 TRA *+3 QB103 FP175490 | 32550 0074 00 4 10507 TSX T0010,4 QB104 FP175500 | 32551 -1 00767 2 14307 STR BB010,2,503 CHG FLD SIZE NOT EQUAL TO SF SIZE QB104 FP175510 | 32552 0601 00 0 35011 STO QAA80 QB110 FP175520 | 32553 -0500 00 0 04624 CAL CARD+3 TEST CHG INC FOR BLANKS QB120 FP175530 32554 0560 00 0 04625 LDQ CARD+4 QB130 FP175540 | 32555 -0763 00 0 00006 LGL 6 QB140 FP175550 | 32556 -0320 00 0 10734 ANA BCD07 QB150 FP175560 | 32557 -0340 00 0 35007 LAS QAA60 QB160 FP175570 | 32560 0020 00 0 32562 TRA *+2 QB170 FP175580 32561 0020 00 0 32540 TRA QB065 QB180 FP175590 | 32562 0602 00 0 07751 SLW B1020 CONVERT INC TO BIN QB190 FP175600 | 32563 0074 00 4 07572 TSX B0012,4 QB200 FP175610 | 32564 0500 00 0 07747 CLA B1000 QB220 FP175620 | 32565 0400 00 0 13655 ADD E2006 QB230 FP175630 32566 0534 00 4 35003 LXA QAA40,4 QB240 FP175640 | 32567 0340 00 0 35012 QB250 CAS QAA90 COMPUTE NEW INC AND U QB250 FP175650 | 32570 0020 00 0 32573 TRA *+3 * QB260 FP175660 | 32571 0020 00 0 32573 TRA *+2 * QB270 FP175670 | 32572 0020 00 0 32575 TRA *+3 QB280 FP175680 32573 0402 00 0 35012 SUB QAA90 36 QB290 FP175690 | 32574 1 00001 4 32567 TXI QB250,4,1 INC U QB300 FP175700 | 32575 0634 00 4 35003 SXA QAA40,4 QB310 FP175710 | 32576 0601 00 0 13655 STO E2006 QB320 FP175720 | 32577 0500 00 0 13655 QB330 CLA E2006 QB330 FP175730 32600 0402 00 0 13614 SUB E1006 QB340 FP175740 | 1 LISTING OF 12/01/64 PAGE 366 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 32601 -0120 00 0 32607 TMI QB410 QB350 FP175750 32602 0621 00 0 32643 STA QB820 QB360 FP175760 | 32603 0621 00 0 32701 STA QC320 QB370 FP175770 | 32604 0621 00 0 32751 STA QC960 QB380 FP175780 | 32605 0621 00 0 33016 STA QD530 QB390 FP175790 | 32606 0020 00 0 32617 TRA QB490 QB400 FP175800 32607 0400 00 0 35012 QB410 ADD QAA90 36 QB410 FP175810 | 32610 0621 00 0 32643 STA QB820 QB420 FP175820 | 32611 0621 00 0 32701 STA QC320 QB430 FP175830 | 32612 0621 00 0 32751 STA QC960 QB440 FP175840 | 32613 0621 00 0 33016 STA QD530 QB450 FP175850 32614 0500 00 0 35003 CLA QAA40 QB460 FP175860 | 32615 0402 00 0 35010 SUB QAA70 1 QB470 FP175870 | 32616 0601 00 0 35003 STO QAA40 QB480 FP175880 | 32617 0500 00 0 13614 QB490 CLA E1006 BUILD LT MASK QB490 FP175890 | 32620 0621 00 0 32622 STA *+2 * QB500 FP175900 32621 -0500 00 0 11024 CAL BCD77 * QB510 FP175910 | 32622 0771 00 0 00000 ARS 0 * QB520 FP175920 | 32623 0602 00 0 35014 SLW QAB20 * QB530 FP175930 | 32624 0441 00 2 00002 LDI 2,2 INIT MODE QB540 FP175940 | 32625 -0054 00 000001 LFT 1 QB550 FP175950 32626 0020 00 0 32707 TRA QC440 PACKED SF QB560 FP175960 | 32627 0500 00 0 35003 CLA QAA40 U QB700 FP175970 | 32630 -0120 00 0 32635 TMI QB760 QB710 FP175980 | 32631 -0501 00 0 32633 ORA *+2 QB720 FP175990 | 32632 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QB730 FP176000 32633 -0500 00 1 00000 CAL 0,1 QB740 FP176010 | 32634 0500 00 0 35003 CLA QAA40 U QB750 FP176020 | 32635 0400 00 0 35010 QB760 ADD QAA70 1 QB760 FP176030 | 32636 -0501 00 0 32640 ORA *+2 QB770 FP176040 | 32637 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ QB780 FP176050 32640 0560 00 1 00000 LDQ 0,1 QB790 FP176060 | 32641 -0500 00 0 32643 CAL *+2 QB800 FP176070 | 32642 0074 00 4 11413 TSX PRGMR,4 MOVE LGL QB810 FP176080 | 32643 -0763 00 0 00000 QB820 LGL 0 QB820 FP176090 | 32644 -0500 00 0 35014 CAL QAB20 MASK TO STORR QB830 FP176100 32645 0074 00 4 11426 TSX STORR,4 QB840 FP176110 | 32646 -0500 00 0 32650 CAL *+2 QB850 FP176120 | 32647 0074 00 4 11413 TSX PRGMR,4 MOVE ANA QB860 FP176130 | 32650 -0320 00 0 00000 ANA 0 QB870 FP176140 | 32651 0074 00 4 11454 TSX SADDR,4 CREATE ADDRESS QB880 FP176150 32652 0500 00 0 35002 CLA QAA30 C QB890 FP176160 | 32653 -0501 00 0 32655 ORA *+2 QB900 FP176170 | 32654 0074 00 4 11413 TSX PRGMR,4 MOVE SLW QB910 FP176180 | 32655 0602 00 2 00000 SLW 0,2 QB920 FP176190 | 32656 0534 00 1 13612 LXA E1004,1 QB990 FP176200 32657 0500 00 0 35002 QC010 CLA QAA30 UPDATE U AND C QC010 FP176210 | 32660 0400 00 0 35010 ADD QAA70 1 QC020 FP176220 | 32661 0601 00 0 35002 STO QAA30 QC030 FP176230 | 32662 0500 00 0 35003 CLA QAA40 U QC040 FP176240 | 32663 0400 00 0 35010 ADD QAA70 1 QC050 FP176250 32664 0602 00 0 35003 SLW QAA40 QC060 FP176260 | 32665 -2 00044 1 14307 TNX BB010,1,36 QC070 FP176270 | 32666 0500 00 0 35003 CLA QAA40 QC210 FP176280 | 32667 -0501 00 0 32671 ORA *+2 QC220 FP176290 | 1 LISTING OF 12/01/64 PAGE 367 UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 32670 0074 00 4 11413 TSX PRGMR,4 MOVE ACL QC230 FP176300 | 32671 -0500 00 1 00000 CAL 0,1 QC240 FP176310 | 32672 0500 00 0 35003 CLA QAA40 QC250 FP176320 32673 0400 00 0 35010 ADD QAA70 1 QC260 FP176330 | 32674 -0501 00 0 32676 ORA *+2 QC270 FP176340 | 32675 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ QC280 FP176350 | 32676 0560 00 1 00000 LDQ 0,1 QC290 FP176360 | 32677 -0500 00 0 32701 CAL *+2 QC300 FP176370 32700 0074 00 4 11413 TSX PRGMR,4 MOVE LGL QC310 FP176380 | 32701 -0763 00 0 00000 QC320 LGL 0 QC320 FP176390 | 32702 0500 00 0 35002 CLA QAA30 C QC330 FP176400 | 32703 -0501 00 0 32705 ORA *+2 QC340 FP176410 | 32704 0074 00 4 11413 TSX PRGMR,4 MOVE SLW QC350 FP176420 32705 0602 00 2 00000 SLW 0,2 QC360 FP176430 | 32706 0020 00 0 32657 TRA QC010 NEXT WORD QC430 FP176440 | 32707 0500 00 0 13612 QC440 CLA E1004 PACKED QC440 FP176450 | 32710 0400 00 0 13614 ADD E1006 QC450 FP176460 | 32711 0734 00 1 00000 PAX 0,1 QC460 FP176470 32712 3 00044 1 32720 TXH QC530,1,36 TEST FOR LAST WORD QC470 FP176480 | 32713 0402 00 0 35012 SUB QAA90 BUILD RT MASK QC480 FP176490 | 32714 0621 00 0 32716 STA *+2 QC490 FP176500 | 32715 -0500 00 0 11024 CAL BCD77 QC500 FP176510 | 32716 0767 00 0 00000 ALS 0 QC510 FP176520 32717 0320 00 0 35014 ANS QAB20 COMBINE RT AND LT MASK QC520 FP176530 | 32720 -0500 00 0 35014 QC530 CAL QAB20 MASK COMP TO STORR QC530 FP176540 | 32721 0074 00 4 11426 TSX STORR,4 QC540 FP176550 | 32722 -0500 00 0 35014 CAL QAB20 QC550 FP176560 | 32723 0760 00 0 00006 COM QC730 FP176570 32724 0074 00 4 11426 TSX STORR,4 QC740 FP176580 | 32725 -0500 00 0 32727 CAL *+2 QC750 FP176590 | 32726 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QC760 FP176600 | 32727 -0500 00 0 00000 CAL 0 QC770 FP176610 | 32730 0074 00 4 11454 TSX SADDR,4 CREATE ADDRESS QC780 FP176620 32731 0500 00 0 35002 CLA QAA30 C QC790 FP176630 | 32732 -0501 00 0 32734 ORA *+2 QC800 FP176640 | 32733 0074 00 4 11413 TSX PRGMR,4 MOVE ANS QC810 FP176650 | 32734 0320 00 2 00000 ANS 0,2 QC820 FP176660 | 32735 0500 00 0 35003 CLA QAA40 QC830 FP176670 32736 -0120 00 0 32743 TMI QC890 TEST U QC840 FP176680 | 32737 -0501 00 0 32741 ORA *+2 QC850 FP176690 | 32740 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QC860 FP176700 | 32741 -0500 00 1 00000 CAL 0,1 QC870 FP176710 | 32742 0500 00 0 35003 CLA QAA40 UPDATE U QC880 FP176720 32743 0400 00 0 35010 QC890 ADD QAA70 1 QC890 FP176730 | 32744 -0501 00 0 32746 ORA *+2 QC910 FP176740 | 32745 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ QC920 FP176750 | 32746 0560 00 1 00000 LDQ 0,1 QC930 FP176760 | 32747 -0500 00 0 32751 CAL *+2 QC940 FP176770 32750 0074 00 4 11413 TSX PRGMR,4 MOVE LGL QC950 FP176780 | 32751 -0763 00 0 00000 QC960 LGL 0 QC960 FP176790 | 32752 -0500 00 0 32754 CAL *+2 QC970 FP176800 | 32753 0074 00 4 11413 TSX PRGMR,4 MOVE ANA QC980 FP176810 | 32754 -0320 00 0 00000 ANA 0 QC990 FP176820 32755 0500 00 0 11436 CLA G0080 QD010 FP176830 | 32756 0402 00 0 35010 SUB QAA70 1 QD020 FP176840 | 1 LISTING OF 12/01/64 PAGE 368 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | 32757 0074 00 4 11455 TSX SADDR+1,4 CREATE ADDRESS QD030 FP176850 | 32760 0500 00 0 35002 CLA QAA30 C QD040 FP176860 | 32761 -0501 00 0 32763 ORA *+2 QD050 FP176870 | 32762 0074 00 4 11413 TSX PRGMR,4 MOVE ORS QD060 FP176880 | 32763 -0602 00 2 00000 ORS 0,2 QD070 FP176890 32764 -2 00044 1 14307 TNX BB010,1,36 QD140 FP176900 | 32765 0500 00 0 35002 QD150 CLA QAA30 UPDATE U AND C QD150 FP176910 | 32766 0400 00 0 35010 ADD QAA70 1 QD160 FP176920 | 32767 0601 00 0 35002 STO QAA30 * QD170 FP176930 | 32770 0500 00 0 35003 CLA QAA40 U QD180 FP176940 32771 0400 00 0 35010 ADD QAA70 1 QD190 FP176950 | 32772 0602 00 0 35003 SLW QAA40 * QD200 FP176960 | 32773 2 00044 1 33003 TIX QD290,1,36 QD210 FP176970 | 32774 0754 00 1 00000 PXA 0,1 BUILD RT MASK QD220 FP176980 | 32775 0402 00 0 35012 SUB QAA90 36 QD230 FP176990 32776 0621 00 0 33000 STA *+2 * QD240 FP177000 | 32777 -0500 00 0 11024 CAL BCD77 * QD250 FP177010 | 33000 0767 00 0 00000 ALS 0 * QD260 FP177020 | 33001 0602 00 0 35014 SLW QAB20 * QD270 FP177030 | 33002 0020 00 0 32720 TRA QC530 QD280 FP177040 33003 0500 00 0 35003 QD290 CLA QAA40 QD290 FP177050 | 33004 -0501 00 0 33006 ORA *+2 QD430 FP177060 | 33005 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QD440 FP177070 | 33006 -0500 00 1 00000 CAL 0,1 QD450 FP177080 | 33007 0500 00 0 35003 CLA QAA40 U QD460 FP177090 33010 0400 00 0 35010 ADD QAA70 1 QD470 FP177100 | 33011 -0501 00 0 33013 ORA *+2 QD480 FP177110 | 33012 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ QD490 FP177120 | 33013 0560 00 1 00000 LDQ 0,1 QD500 FP177130 | 33014 -0500 00 0 33016 CAL *+2 QD510 FP177140 33015 0074 00 4 11413 TSX PRGMR,4 MOVE LGL QD520 FP177150 | 33016 -0763 00 0 00000 QD530 LGL 0 QD530 FP177160 | 33017 0500 00 0 35002 CLA QAA30 C QD540 FP177170 | 33020 -0501 00 0 33022 ORA *+2 QD550 FP177180 | 33021 0074 00 4 11413 TSX PRGMR,4 MOVE SLW QD560 FP177190 33022 0602 00 2 00000 SLW 0,2 QD570 FP177200 | 33023 0020 00 0 32765 TRA QD150 NEXT WORD QD640 FP177210 | 33024 0500 00 0 13653 QD650 CLA E2004 BINARY QD650 FP177220 | 33025 0634 00 1 35001 SXA QAA20,1 SAVE IR 1 QD660 FP177230 | 33026 0774 00 4 00000 AXT 0,4 CONVERT CHG SIZE TO EQUIV BQD670 FP177240 33027 0774 00 1 00024 AXT 20,1 QD680 FP177250 | 33030 1 00006 4 33031 QD690 TXI *+1,4,6 UPDATE SIZE BY 6 QD690 FP177260 | 33031 -0340 00 1 11104 LAS EQUIV+21,1 QD700 FP177270 | 33032 0020 00 0 33036 TRA *+4 QD710 FP177280 | 33033 0020 00 0 33040 TRA QD760 MATCH QD720 FP177290 33034 0074 00 4 10507 TSX T0010,4 QD725 FP177300 | 33035 -1 00771 2 14307 STR BB010,2,505 INVALID UPD DICT BINARY SIZE QD730 FP177310 | 33036 2 00002 1 33030 TIX QD690,1,2 QD740 FP177320 | 33037 0020 00 0 33034 TRA *-3 ERROR QD750 FP177330 | 33040 0534 00 1 35001 QD760 LXA QAA20,1 RESTORE IR 1 QD760 FP177340 33041 0754 00 4 00000 PXA 0,4 QD770 FP177350 | 33042 -0340 00 0 13612 LAS E1004 TEST FOR EQUAL SIZES QD780 FP177360 | 33043 0020 00 0 33045 TRA *+2 QD790 FP177370 | 33044 0020 00 0 33047 TRA *+3 EQUAL OK QD800 FP177380 | 33045 0074 00 4 10507 TSX T0010,4 QD805 FP177390 1 LISTING OF 12/01/64 PAGE 369 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 33046 -1 00772 2 14307 STR BB010,2,506 EQUIV CHG SIZE NOT EQUAL TO SF SIZE QD810 FP177400 | 33047 0500 00 0 35003 CLA QAA40 QD820 FP177410 33050 -0501 00 0 33052 ORA *+2 QD830 FP177420 | 33051 0074 00 4 11413 TSX PRGMR,4 MOVE CLA QD840 FP177430 | 33052 0500 00 1 00000 CLA 0,1 QD850 FP177440 | 33053 -0500 00 0 33055 CAL *+2 QD860 FP177450 | 33054 0074 00 4 11413 TSX PRGMR,4 MOVE STO QD870 FP177460 33055 0601 00 0 20261 STO BDBIN QD880 FP177470 | 33056 -0500 00 0 33060 CAL *+2 QD890 FP177480 | 33057 0074 00 4 11413 TSX PRGMR,4 MOVE TSX QD900 FP177490 | 33060 0074 00 4 20213 TSX TOBCD,4 QD910 FP177500 | 33061 0441 00 2 00002 LDI 2,2 QD941 FP177510 33062 -0054 00 000001 LFT 1 QD950 FP177520 | 33063 0020 00 0 33111 TRA QE440 PACKED SF QD960 FP177530 | 33064 0534 00 1 13612 QD970 LXA E1004,1 QD970 FP177540 | 33065 -2 00044 1 33101 TNX QE300,1,36 QE120 FP177550 | 33066 -0500 00 0 33070 CAL *+2 QE130 FP177560 33067 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QE140 FP177570 | 33070 -0500 00 0 20262 CAL BDBCL QE150 FP177580 | 33071 0500 00 0 35002 CLA QAA30 QE160 FP177590 | 33072 -0501 00 0 33074 ORA *+2 QE170 FP177600 | 33073 0074 00 4 11413 TSX PRGMR,4 MOVE SLW QE180 FP177610 33074 0602 00 2 00000 SLW 0,2 QE190 FP177620 | 33075 0500 00 0 35002 CLA QAA30 UPDATE C QE260 FP177630 | 33076 0400 00 0 35010 ADD QAA70 1 QE270 FP177640 | 33077 0601 00 0 35002 STO QAA30 QE280 FP177650 | 33100 0020 00 0 33064 TRA QD970 NEXT WORD QE290 FP177660 33101 -0500 00 0 33103 QE300 CAL *+2 QE300 FP177670 | 33102 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QE310 FP177680 | 33103 -0500 00 0 20263 CAL BDBCR QE320 FP177690 | 33104 0500 00 0 35002 CLA QAA30 QE330 FP177700 | 33105 -0501 00 0 33107 ORA *+2 QE340 FP177710 33106 0074 00 4 11413 TSX PRGMR,4 MOVE SLW QE350 FP177720 | 33107 0602 00 2 00000 SLW 0,2 QE360 FP177730 | 33110 0020 00 0 14307 TRA BB010 QE430 FP177740 | 33111 0500 00 0 13614 QE440 CLA E1006 BUILD LFT MASK QE440 FP177750 | 33112 0621 00 0 33114 STA *+2 * QE450 FP177760 33113 -0500 00 0 11024 CAL BCD77 * QE460 FP177770 | 33114 0771 00 0 00000 ARS 0 * QE470 FP177780 | 33115 0602 00 0 35014 SLW QAB20 * QE480 FP177790 | 33116 0534 00 4 13612 LXA E1004,4 QE490 FP177800 | 33117 3 00044 4 33237 TXH QF780,4,36 QE500 FP177810 33120 0500 00 0 35012 CLA QAA90 QE510 FP177820 | 33121 0402 00 0 13612 SUB E1004 QE520 FP177830 | 33122 0402 00 0 13614 SUB E1006 QE530 FP177840 | 33123 -0120 00 0 33133 TMI QE620 QE540 FP177850 | 33124 0621 00 0 33223 STA QF600 QE550 FP177860 33125 0621 00 0 33127 STA *+2 QE570 FP177870 | 33126 -0500 00 0 11024 CAL BCD77 QE580 FP177880 | 33127 0767 00 0 00000 ALS 0 QE590 FP177890 | 33130 0320 00 0 35014 ANS QAB20 QE600 FP177900 | 33131 -0500 00 0 35014 CAL QAB20 QE601 FP177910 33132 0020 00 0 33202 TRA QF240 QE610 FP177920 | 33133 0400 00 0 35012 QE620 ADD QAA90 QE620 FP177930 | 33134 0621 00 0 33161 STA QF020 QE630 FP177940 | 1 LISTING OF 12/01/64 PAGE 370 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | 33135 0621 00 0 33223 STA QF600 QE640 FP177950 | 33136 0621 00 0 33200 STA QF230 QE650 FP177960 | 33137 -0500 00 0 35014 CAL QAB20 QE660 FP177970 | 33140 0074 00 4 11426 TSX STORR,4 QE670 FP177980 33141 -0500 00 0 35014 CAL QAB20 MASK QE850 FP177990 | 33142 0760 00 0 00006 COM QE860 FP178000 | 33143 0074 00 4 11426 TSX STORR,4 MOVE MASK TO STORR QE870 FP178010 | 33144 -0500 00 0 33146 CAL *+2 QE880 FP178020 | 33145 0074 00 4 11413 TSX PRGMR,4 MOVE CAL MASK COM QE890 FP178030 33146 -0500 00 0 00000 CAL 0 QE900 FP178040 | 33147 0074 00 4 11454 TSX SADDR,4 CREATE ADDRESS QE910 FP178050 | 33150 0500 00 0 35002 CLA QAA30 QE920 FP178060 | 33151 -0501 00 0 33153 ORA *+2 QE930 FP178070 | 33152 0074 00 4 11413 TSX PRGMR,4 MOVE ANS QE940 FP178080 33153 0320 00 2 00000 ANS 0,2 QE950 FP178090 | 33154 -0500 00 0 33156 CAL *+2 QE960 FP178100 | 33155 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ QE970 FP178110 | 33156 0560 00 0 20263 LDQ BDBCR QE980 FP178120 | 33157 -0500 00 0 33161 CAL *+2 QE990 FP178130 33160 0074 00 4 11413 TSX PRGMR,4 MOVE LGL QF010 FP178140 | 33161 -0763 00 0 00000 QF020 LGL 0 QF020 FP178150 | 33162 -0500 00 0 33164 CAL *+2 QF030 FP178160 | 33163 0074 00 4 11413 TSX PRGMR,4 MOVE ANA QF040 FP178170 | 33164 -0320 00 0 00000 ANA 0 QF050 FP178180 33165 -0500 00 0 11436 CAL G0080 CREATE ADDRESS QF060 FP178190 | 33166 0402 00 0 35010 SUB QAA70 * QF070 FP178200 | 33167 0074 00 4 11455 TSX SADDR+1,4 * QF080 FP178210 | 33170 0500 00 0 35002 CLA QAA30 QF090 FP178220 | 33171 -0501 00 0 33173 ORA *+2 QF100 FP178230 33172 0074 00 4 11413 TSX PRGMR,4 MOVE ORS QF110 FP178240 | 33173 -0602 00 2 00000 ORS 0,2 QF120 FP178250 | 33174 0500 00 0 35002 CLA QAA30 UPDATE C QF190 FP178260 | 33175 0400 00 0 35010 ADD QAA70 QF200 FP178270 | 33176 0601 00 0 35002 STO QAA30 QF210 FP178280 33177 -0500 00 0 11024 CAL BCD77 BUILD RT MASK QF220 FP178290 | 33200 0767 00 0 00000 QF230 ALS 0 QF230 FP178300 | 33201 0602 00 0 35014 SLW QAB20 STORE MASK QF231 FP178310 | 33202 0074 00 4 11426 QF240 TSX STORR,4 QF240 FP178320 | 33203 -0500 00 0 35014 CAL QAB20 MASK COMP TO STORG QF241 FP178330 33204 0760 00 0 00006 COM QF450 FP178340 | 33205 0074 00 4 11426 TSX STORR,4 QF460 FP178350 | 33206 -0500 00 0 33210 CAL *+2 QF470 FP178360 | 33207 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QF480 FP178370 | 33210 -0500 00 0 00000 CAL 0 QF490 FP178380 33211 0074 00 4 11454 TSX SADDR,4 CREATE ADDRESS QF500 FP178390 | 33212 0500 00 0 35002 CLA QAA30 QF510 FP178400 | 33213 -0501 00 0 33215 ORA *+2 QF520 FP178410 | 33214 0074 00 4 11413 TSX PRGMR,4 MOVE ANS QF530 FP178420 | 33215 0320 00 2 00000 ANS 0,2 QF540 FP178430 33216 -0500 00 0 33220 CAL *+2 QF550 FP178440 | 33217 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QF560 FP178450 | 33220 -0500 00 0 20263 CAL BDBCR QF570 FP178460 | 33221 -0500 00 0 33223 CAL *+2 QF580 FP178470 | 33222 0074 00 4 11413 TSX PRGMR,4 MOVE LGL QF590 FP178480 33223 -0763 00 0 00000 QF600 LGL 0 QF600 FP178490 | 1 LISTING OF 12/01/64 PAGE 371 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 33224 -0500 00 0 33226 CAL *+2 QF610 FP178500 33225 0074 00 4 11413 TSX PRGMR,4 MOVE ANA QF620 FP178510 | 33226 -0320 00 0 00000 ANA 0 QF630 FP178520 | 33227 -0500 00 0 11436 CAL G0080 CREATE ADDRESS QF640 FP178530 | 33230 0402 00 0 35010 SUB QAA70 QF650 FP178540 | 33231 0074 00 4 11455 TSX SADDR+1,4 QF660 FP178550 33232 0500 00 0 35002 CLA QAA30 QF670 FP178560 | 33233 -0501 00 0 33235 ORA *+2 QF680 FP178570 | 33234 0074 00 4 11413 TSX PRGMR,4 MOVE ORS QF690 FP178580 | 33235 -0602 00 2 00000 ORS 0,2 QF700 FP178590 | 33236 0020 00 0 14307 TRA BB010 QF770 FP178600 33237 0074 00 4 11426 QF780 TSX STORR,4 QF780 FP178610 | 33240 -0500 00 0 35014 CAL QAB20 MASK COMP TO STORG QF960 FP178620 | 33241 0760 00 0 00006 COM * QF970 FP178630 | 33242 0074 00 4 11426 TSX STORR,4 * QF980 FP178640 | 33243 -0500 00 0 33245 CAL *+2 QF990 FP178650 33244 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QG010 FP178660 | 33245 -0500 00 0 00000 CAL 0 QG020 FP178670 | 33246 0074 00 4 11454 TSX SADDR,4 QG030 FP178680 | 33247 0500 00 0 35002 CLA QAA30 QG040 FP178690 | 33250 -0501 00 0 33252 ORA *+2 QG050 FP178700 33251 0074 00 4 11413 TSX PRGMR,4 MOVE ANS QG060 FP178710 | 33252 0320 00 2 00000 ANS 0,2 QG070 FP178720 | 33253 0500 00 0 35017 CLA QAB50 CALC SHIFT QG080 FP178730 | 33254 0402 00 0 13614 SUB E1006 QG090 FP178740 | 33255 0402 00 0 13612 SUB E1004 QG100 FP178750 33256 -0120 00 0 33306 TMI QG400 TEST MINUS QG110 FP178760 | 33257 0621 00 0 33272 STA QG230 INIT SHIFT QG120 FP178770 | 33260 0621 00 0 33402 STA QH410 QG130 FP178780 | 33261 0621 00 0 33357 STA QH060 ALS FOR MASK QG140 FP178790 | 33262 -0500 00 0 33264 CAL *+2 QG150 FP178800 33263 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QG160 FP178810 | 33264 -0500 00 0 20262 CAL BDBCL QG170 FP178820 | 33265 -0500 00 0 33267 CAL *+2 QG180 FP178830 | 33266 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ QG190 FP178840 | 33267 0560 00 0 20263 LDQ BDBCR QG200 FP178850 33270 -0500 00 0 33272 CAL *+2 QG210 FP178860 | 33271 0074 00 4 11413 TSX PRGMR,4 MOVE LGL QG220 FP178870 | 33272 -0763 00 0 00000 QG230 LGL 0 QG230 FP178880 | 33273 -0500 00 0 33275 CAL *+2 QG240 FP178890 | 33274 0074 00 4 11413 TSX PRGMR,4 MOVE ANA QG250 FP178900 33275 -0320 00 0 00000 ANA 0 QG251 FP178910 | 33276 -0500 00 0 11436 CAL G0080 CREATE ADDRESS QG260 FP178920 | 33277 0402 00 0 35010 SUB QAA70 * QG270 FP178930 | 33300 0074 00 4 11455 TSX SADDR+1,4 * QG280 FP178940 | 33301 0500 00 0 35002 CLA QAA30 QG290 FP178950 33302 -0501 00 0 33304 ORA *+2 QG300 FP178960 | 33303 0074 00 4 11413 TSX PRGMR,4 MOVE ORS QG310 FP178970 | 33304 -0602 00 2 00000 ORS 0,2 QG320 FP178980 | 33305 0020 00 0 33353 TRA QH020 19 QG390 FP178990 | 33306 0400 00 0 35012 QG400 ADD QAA90 QG400 FP179000 33307 0621 00 0 33320 STA QG500 INIT SHIFTS QG410 FP179010 | 33310 0621 00 0 33346 STA QG900 * QG420 FP179020 | 33311 0621 00 0 33402 STA QH410 * QG430 FP179030 | 33312 0621 00 0 33357 STA QH060 * ALS FOR MASK QG440 FP179040 | 1 LISTING OF 12/01/64 PAGE 372 UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 33313 -0500 00 0 33315 CAL *+2 QG450 FP179050 | 33314 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ QG460 FP179060 | 33315 0560 00 0 20262 LDQ BDBCL QG470 FP179070 33316 -0500 00 0 33320 CAL *+2 QG480 FP179080 | 33317 0074 00 4 11413 TSX PRGMR,4 MOVE LGL QG490 FP179090 | 33320 -0763 00 0 00000 QG500 LGL 0 QG500 FP179100 | 33321 -0500 00 0 33323 CAL *+2 QG510 FP179110 | 33322 0074 00 4 11413 TSX PRGMR,4 MOVE ANA QG520 FP179120 33323 -0320 00 0 00000 ANA 0 QG530 FP179130 | 33324 -0500 00 0 11436 CAL G0080 CREATE ADDRESS QG540 FP179140 | 33325 0402 00 0 35010 SUB QAA70 * QG550 FP179150 | 33326 0074 00 4 11455 TSX SADDR+1,4 * QG560 FP179160 | 33327 0500 00 0 35002 CLA QAA30 QG570 FP179170 33330 -0501 00 0 33332 ORA *+2 QG580 FP179180 | 33331 0074 00 4 11413 TSX PRGMR,4 MOVE ORS QG590 FP179190 | 33332 -0602 00 2 00000 ORS 0,2 QG600 FP179200 | 33333 0500 00 0 35002 CLA QAA30 UPDATE C QG670 FP179210 | 33334 0400 00 0 35010 ADD QAA70 QG680 FP179220 33335 0601 00 0 35002 STO QAA30 QG690 FP179230 | 33336 -0500 00 0 33340 CAL *+2 QG820 FP179240 | 33337 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QG830 FP179250 | 33340 -0500 00 0 20262 CAL BDBCL QG840 FP179260 | 33341 -0500 00 0 33343 CAL *+2 QG850 FP179270 33342 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ QG860 FP179280 | 33343 0560 00 0 20263 QG870 LDQ BDBCR QG870 FP179290 | 33344 -0500 00 0 33346 CAL *+2 QG880 FP179300 | 33345 0074 00 4 11413 TSX PRGMR,4 MOVE LGL QG890 FP179310 | 33346 -0763 00 0 00000 QG900 LGL 0 QG900 FP179320 33347 0500 00 0 35002 CLA QAA30 QG910 FP179330 | 33350 -0501 00 0 33352 ORA *+2 QG920 FP179340 | 33351 0074 00 4 11413 TSX PRGMR,4 MOVE SLW QG930 FP179350 | 33352 0602 00 2 00000 SLW 0,2 QG940 FP179360 | 33353 0500 00 0 35002 QH020 CLA QAA30 UPDATE C QH020 FP179370 33354 0400 00 0 35010 ADD QAA70 1 QH030 FP179380 | 33355 0601 00 0 35002 STO QAA30 QH040 FP179390 | 33356 -0500 00 0 11024 CAL BCD77 BUILD RT MASK QH050 FP179400 | 33357 0767 00 0 00000 QH060 ALS 0 * QH060 FP179410 | 33360 0602 00 0 35014 SLW QAB20 QH061 FP179420 33361 0074 00 4 11426 TSX STORR,4 STORE MASK QH070 FP179430 | 33362 -0500 00 0 35014 CAL QAB20 QH080 FP179440 | 33363 0760 00 0 00006 COM QH260 FP179450 | 33364 0074 00 4 11426 TSX STORR,4 MASK COMP TO STORR QH270 FP179460 | 33365 -0500 00 0 33367 CAL *+2 QH280 FP179470 33366 0074 00 4 11413 TSX PRGMR,4 MOVE CAL MASK COM QH290 FP179480 | 33367 -0500 00 0 00000 CAL 0 QH300 FP179490 | 33370 0074 00 4 11454 TSX SADDR,4 CREATE ADDRESS QH310 FP179500 | 33371 0500 00 0 35002 CLA QAA30 QH320 FP179510 | 33372 -0501 00 0 33374 ORA *+2 QH330 FP179520 33373 0074 00 4 11413 TSX PRGMR,4 MOVE ANS QH340 FP179530 | 33374 0320 00 2 00000 ANS 0,2 QH350 FP179540 | 33375 -0500 00 0 33377 CAL *+2 QH360 FP179550 | 33376 0074 00 4 11413 TSX PRGMR,4 MOVE CAL QH370 FP179560 | 33377 -0500 00 0 20263 CAL BDBCR QH380 FP179570 33400 -0500 00 0 33402 CAL *+2 QH390 FP179580 | 33401 0074 00 4 11413 TSX PRGMR,4 MOVE LGL QH400 FP179590 | 1 LISTING OF 12/01/64 PAGE 373 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | 33402 -0763 00 0 00000 QH410 LGL 0 QH410 FP179600 | 33403 -0500 00 0 33405 CAL *+2 QH420 FP179610 | 33404 0074 00 4 11413 TSX PRGMR,4 MOVE ANA QH430 FP179620 | 33405 -0320 00 0 00000 ANA 0 QH440 FP179630 | 33406 -0500 00 0 11436 CAL G0080 QH450 FP179640 33407 0402 00 0 35010 SUB QAA70 1 QH460 FP179650 | 33410 0074 00 4 11455 TSX SADDR+1,4 QH470 FP179660 | 33411 0500 00 0 35002 CLA QAA30 QH480 FP179670 | 33412 -0501 00 0 33414 ORA *+2 QH490 FP179680 | 33413 0074 00 4 11413 TSX PRGMR,4 MOVE ORS QH500 FP179690 33414 -0602 00 2 00000 ORS 0,2 QH510 FP179700 | 33415 0020 00 0 14307 TRA BB010 QH580 FP179710 | 33416 0500 00 0 13612 QK010 CLA E1004 CONVERT S.F. SIZE TO EQUIV QK010 FP179720 | 33417 0774 00 4 00000 AXT 0,4 * QK020 FP179730 | 33420 0634 00 1 35001 SXA QAA20,1 SAVE IR1 TEMPOR QK021 FP179740 33421 0774 00 1 00024 AXT 20,1 * QK030 FP179750 | 33422 1 00006 4 33423 QK040 TXI *+1,4,6 * UPDATE SIZE BY 6 QK040 FP179760 | 33423 -0340 00 1 11104 LAS EQUIV+21,1 * QK050 FP179770 | 33424 0020 00 0 33427 TRA *+3 * QK060 FP179780 | 33425 0020 00 0 33440 TRA QK110 * MATCH QK070 FP179790 33426 0020 00 0 33430 TRA *+2 *ERROR QK080 FP179800 | 33427 2 00002 1 33422 TIX QK040,1,2 * MODIFY TO NEXT ENTRY QK090 FP179810 | 33430 0074 00 4 10507 TSX T0010,4 FP179820 | 33431 -1 01023 2 14307 STR BB010,2,531 INVALID SF BINARY SIZE QK100 FP179830 | 33432 0074 00 4 10507 QK102 TSX T0010,4 QK102 FP179840 33433 -1 00773 2 14307 STR BB010,2,507 CHG LEN GR THAN CHG DICT LEN QK103 FP179850 | 33434 0074 00 4 10507 QK104 TSX T0010,4 QK104 FP179860 | 33435 -1 00774 2 14307 STR BB010,2,508 CHG LEN GR THAN SF EQUIV SIZE QK105 FP179870 | 33436 0074 00 4 10507 QK106 TSX T0010,4 QK106 FP179880 | 33437 -1 00775 2 14307 STR BB010,2,509 CHG LENGTH BUT NO INCR. QK107 FP179890 33440 0634 00 4 35013 QK110 SXA QAB10,4 S.F. SIZE TO STORAGE QK110 FP179900 | 33441 0534 00 1 35001 LXA QAA20,1 RESTORE IR1 QK120 FP179910 | 33442 0441 00 1 00002 LDI 2,1 TEST MODE OF CHG FLD QK130 FP179920 | 33443 -0056 00 000100 LNT 100 * QK140 FP179930 | 33444 0020 00 0 34723 TRA QO670 * BINARY QK150 FP179940 33445 -0500 00 0 04625 CAL CARD+4 BCD-IS CARD CHG SIZE BLANK QK160 FP179950 | 33446 0771 00 0 00014 ARS 12 * QK170 FP179960 | 33447 -0320 00 0 10734 ANA BCD07 * QK180 FP179970 | 33450 -0340 00 0 35007 LAS QAA60 * QK190 FP179980 | 33451 0020 00 0 33453 TRA *+2 * NO QK200 FP179990 33452 0020 00 0 33726 TRA QL620 * YES QK210 FP180000 | 33453 0602 00 0 07751 SLW B1020 CONVERT CHG SIZE TO BINARY QK220 FP180010 | 33454 0074 00 4 07570 TSX B0010,4 * QK230 FP180020 | 33455 0500 00 0 07747 CLA B1000 COMPARE CARD SIZE TO DICT SQK250 FP180030 | 33456 0340 00 0 13653 CAS E2004 * QK260 FP180040 33457 0020 00 0 33432 TRA QK102 QK270 FP180050 | 33460 0020 00 0 33726 TRA QL620 * EQUAL QK280 FP180060 | 33461 0340 00 0 35013 CAS QAB10 COMPARE CARD SIZE TO S.F. SQK290 FP180070 | 33462 0020 00 0 33434 TRA QK104 QK300 FP180080 | 33463 0761 00 0 00000 NOP * OK QK310 FP180090 33464 0601 00 0 13653 STO E2004 STORE CARD CHG SIZE QK320 FP180100 | 33465 0055 00 000001 SIR 1 TURN ON MIN MAN SW QK330 FP180110 | 33466 -0500 00 0 04624 CAL CARD+3 IS CHG INCR BLANK QK340 FP180120 | 33467 0560 00 0 04625 LDQ CARD+4 * QK350 FP180130 | 33470 -0763 00 0 00006 LGL 6 * QK360 FP180140 1 LISTING OF 12/01/64 PAGE 374 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 33471 -0320 00 0 10734 ANA BCD07 * QK370 FP180150 | 33472 -0340 00 0 35007 LAS QAA60 * QK380 FP180160 33473 0020 00 0 33475 TRA *+2 * NO QK390 FP180170 | 33474 0020 00 0 33436 TRA QK106 QK400 FP180180 | 33475 0602 00 0 07751 SLW B1020 CONVERT CARD INCR TO BINARYQK410 FP180190 | 33476 0074 00 4 07570 TSX B0010,4 * QK420 FP180200 | 33477 0500 00 0 07747 CLA B1000 CALC NEW CHG BIT NO. QK440 FP180210 33500 0400 00 0 13655 ADD E2006 * QK450 FP180220 | 33501 0534 00 4 13654 LXA E2005,4 INIT IR4 WITH U QK460 FP180230 | 33502 0340 00 0 35012 QK470 CAS QAA90 CALC NEW BIT NO AND U QK470 FP180240 | 33503 0020 00 0 33506 TRA *+3 * HIGH QK480 FP180250 | 33504 0020 00 0 33506 TRA *+2 * EQUAL QK490 FP180260 33505 0020 00 0 33510 TRA QK530 * LOW QK500 FP180270 | 33506 0402 00 0 35012 SUB QAA90 * SUB 36 QK510 FP180280 | 33507 1 00001 4 33502 TXI QK470,4,1 * MODIFY U BY 1 QK520 FP180290 | 33510 0634 00 4 13654 QK530 SXA E2005,4 STORE U QK530 FP180300 | 33511 0601 00 0 13655 STO E2006 STORE NEW BIT NO. QK540 FP180310 33512 0402 00 0 35012 QK550 SUB QAA90 CALC BIT NO.-36 QK550 FP180320 | 33513 0601 00 0 35015 STO QAB30 * TO STORAGE 1 QK560 FP180330 | 33514 0534 00 4 13653 LXA E2004,4 CHG SIZE TO IR4 QK570 FP180340 | 33515 -2 00044 4 33606 TNX QL160,4,36 COMPARE SIZE TO 36 QK580 FP180350 | 33516 0754 00 4 00000 PXA 0,4 CALC LEFT SHIFT OF VALUE QK590 FP180360 33517 0601 00 0 35016 STO QAB40 * ACCUM TO STORAGE 2 QK600 FP180370 | 33520 0400 00 0 35015 ADD QAB30 * ADD STORAGE 1 QK610 FP180380 | 33521 -0120 00 0 33525 TMI QK660 IS SHIFT NEG QK620 FP180390 | 33522 0621 00 0 33556 STA QK910 INIT SHIFT INSTRS QK630 FP180400 | 33523 0621 00 0 33601 STA QL110 * QK640 FP180410 33524 0020 00 0 33533 TRA QK720 QK650 FP180420 | 33525 0400 00 0 35012 QK660 ADD QAA90 CALC POS SHIFT-ADD 36 QK660 FP180430 | 33526 0621 00 0 33556 STA QK910 INIT SHIFT INSTRS QK670 FP180440 | 33527 0621 00 0 33601 STA QL110 * QK680 FP180450 | 33530 0500 00 0 13654 CLA E2005 SUB 1 FROM U QK690 FP180460 33531 0402 00 0 35010 SUB QAA70 * QK700 FP180470 | 33532 0601 00 0 13654 STO E2005 * QK710 FP180480 | 33533 0500 00 0 35012 QK720 CLA QAA90 CALC ARS OF LEFT MASK QK720 FP180490 | 33534 0402 00 0 35016 SUB QAB40 * QK730 FP180500 | 33535 0621 00 0 33537 STA QK760 INIT SHIFT QK740 FP180510 33536 -0500 00 0 11024 CAL BCD77 BUILD LEFT MASK QK750 FP180520 | 33537 0771 00 0 00000 QK760 ARS 0 * QK760 FP180530 | 33540 0074 00 4 11426 TSX STORR,4 * QK770 FP180540 | 33541 0500 00 0 13654 CLA E2005 IS U NEG QK780 FP180550 | 33542 -0120 00 0 33547 TMI QK840 * YES QK790 FP180560 33543 -0501 00 0 33545 ORA *+2 BUILD CAL U,1 QK800 FP180570 | 33544 0074 00 4 11413 TSX PRGMR,4 * QK810 FP180580 | 33545 -0500 00 1 00000 CAL 0,1 * QK820 FP180590 | 33546 0500 00 0 13654 CLA E2005 MODIFY U BY 1 QK830 FP180600 | 33547 0400 00 0 35010 QK840 ADD QAA70 * QK840 FP180610 33550 0601 00 0 13654 STO E2005 * QK850 FP180620 | 33551 -0501 00 0 33553 ORA *+2 BUILD LDG U+1,1 QK860 FP180630 | 33552 0074 00 4 11413 TSX PRGMR,4 * QK870 FP180640 | 33553 0560 00 1 00000 LDQ 0,1 * QK880 FP180650 | 33554 -0500 00 0 33556 CAL *+2 BUILD LGL QK890 FP180660 33555 0074 00 4 11413 TSX PRGMR,4 * QK900 FP180670 | 33556 -0763 00 0 00000 QK910 LGL 0 * QK910 FP180680 | 33557 -0500 00 0 33561 CAL *+2 BUILD ANA MASK QK920 FP180690 | 1 LISTING OF 12/01/64 PAGE 375 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | 33560 0074 00 4 11413 TSX PRGMR,4 * QK930 FP180700 | 33561 -0320 00 0 00000 ANA 0 * QK940 FP180710 | 33562 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDR ENTRY QK950 FP180720 | 33563 -0500 00 0 33565 CAL *+2 BUILD SLW DBBCL QK960 FP180730 33564 0074 00 4 11413 TSX PRGMR,4 * QK970 FP180740 | 33565 0602 00 0 20065 SLW DBBCL * QK980 FP180750 | 33566 0500 00 0 13654 CLA E2005 BUILD CAL U+1,1 QK990 FP180760 | 33567 -0501 00 0 33571 ORA *+2 * QL010 FP180770 | 33570 0074 00 4 11413 TSX PRGMR,4 * QL020 FP180780 33571 -0500 00 1 00000 CAL 0,1 * QL030 FP180790 | 33572 0500 00 0 13654 CLA E2005 BUILD LDG U+2,1 QL040 FP180800 | 33573 0400 00 0 35010 ADD QAA70 * QL050 FP180810 | 33574 -0501 00 0 33576 ORA *+2 * QL060 FP180820 | 33575 0074 00 4 11413 TSX PRGMR,4 * QL070 FP180830 33576 0560 00 1 00000 LDQ 0,1 * QL080 FP180840 | 33577 -0500 00 0 33601 CAL *+2 BUILD LGL QL090 FP180850 | 33600 0074 00 4 11413 TSX PRGMR,4 * QL100 FP180860 | 33601 -0763 00 0 00000 QL110 LGL 0 * QL110 FP180870 | 33602 -0500 00 0 33604 CAL *+2 BUILD DLW DBBCR QL120 FP180880 33603 0074 00 4 11413 TSX PRGMR,4 * QL130 FP180890 | 33604 0602 00 0 20066 SLW DBBCR * QL140 FP180900 | 33605 0020 00 0 33653 TRA QL550 QL150 FP180910 | 33606 0754 00 4 00000 QL160 PXA 0,4 IRA TO ACC QL160 FP180920 | 33607 0601 00 0 35016 STO QAB40 ACC TO STORAGE 2 QL170 FP180930 33610 0400 00 0 35015 ADD QAB30 CALC LEFT SHIFT QL180 FP180940 | 33611 -0120 00 0 33614 TMI QL230 IS SHIFT NEG QL190 FP180950 | 33612 0621 00 0 33643 STA QL470 INIT LEFT SHIFT INSTRS QL200 FP180960 | 33613 0020 00 0 33621 TRA QL290 QL220 FP180970 | 33614 0400 00 0 35012 QL230 ADD QAA90 CALC POS SHIFT QL230 FP180980 33615 0621 00 0 33643 STA QL470 INIT SHIFT INSTRS QL240 FP180990 | 33616 0500 00 0 13654 CLA E2005 SUB 1 FROM U QL260 FP181000 | 33617 0402 00 0 35010 SUB QAA70 * QL270 FP181010 | 33620 0601 00 0 13654 STO E2005 * QL280 FP181020 | 33621 0500 00 0 35012 QL290 CLA QAA90 CALC ARS FOR MASK QL290 FP181030 33622 0402 00 0 35016 SUB QAB40 * 36-STORAGE 2 QL300 FP181040 | 33623 0621 00 0 33625 STA QL330 INIT SHIFT QL310 FP181050 | 33624 -0500 00 0 11024 CAL BCD77 BUILD MASK QL320 FP181060 | 33625 0771 00 0 00000 QL330 ARS 0 * QL330 FP181070 | 33626 0074 00 4 11426 TSX STORR,4 * QL340 FP181080 33627 0500 00 0 13654 CLA E2005 IS U NEG QL350 FP181090 | 33630 -0120 00 0 33635 TMI QL410 * YES QL360 FP181100 | 33631 -0501 00 0 33633 ORA *+2 BUILD CAL U,1 QL370 FP181110 | 33632 0074 00 4 11413 TSX PRGMR,4 * QL380 FP181120 | 33633 -0500 00 1 00000 CAL 0,1 * QL390 FP181130 33634 0500 00 0 13654 CLA E2005 MODIFY U BY 1 QL400 FP181140 | 33635 0400 00 0 35010 QL410 ADD QAA70 * QL410 FP181150 | 33636 -0501 00 0 33640 ORA *+2 BUILD LDQ U+1,1 QL420 FP181160 | 33637 0074 00 4 11413 TSX PRGMR,4 * QL430 FP181170 | 33640 0560 00 1 00000 LDQ 0,1 * QL440 FP181180 33641 -0500 00 0 33643 CAL *+2 BUILD LGL QL450 FP181190 | 33642 0074 00 4 11413 TSX PRGMR,4 * QL460 FP181200 | 33643 -0763 00 0 00000 QL470 LGL 0 * QL470 FP181210 | 33644 -0500 00 0 33646 CAL *+2 BUILD ANA MASK QL480 FP181220 | 33645 0074 00 4 11413 TSX PRGMR,4 * QL490 FP181230 33646 -0320 00 0 00000 ANA 0 * QL500 FP181240 | 1 LISTING OF 12/01/64 PAGE 376 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 33647 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDR ENTRY QL510 FP181250 33650 -0500 00 0 33652 CAL *+2 BUILD SLW DBBCR QL520 FP181260 | 33651 0074 00 4 11413 TSX PRGMR,4 * QL530 FP181270 | 33652 0602 00 0 20066 SLW DBBCR * QL540 FP181280 | 33653 -0500 00 0 33655 QL550 CAL *+2 BUILD TSX TOBIN,4 QL550 FP181290 | 33654 0074 00 4 11413 TSX PRGMR,4 * QL560 FP181300 33655 0074 00 4 17747 TSX TOBIN,4 * QL570 FP181310 | 33656 -0500 00 0 33660 CAL *+2 BUILD REJ PKG QL571 FP181320 | 33657 0074 00 4 11413 TSX PRGMR,4 QL572 FP181330 | 33660 0020 00 0 00000 TRA 0 QL573 FP181340 | 33661 0500 00 0 35033 CLA QAD50 2 QL574 FP181350 33662 0074 00 4 11465 TSX PADDR,4 QL575 FP181360 | 33663 -0500 00 0 33665 CAL *+2 QL576 FP181370 | 33664 0074 00 4 11413 TSX PRGMR,4 QL577 FP181380 | 33665 0020 00 0 00000 TRA 0 QL578 FP181390 | 33666 0500 00 0 35032 CLA QAD40 7 QL579 FP181400 33667 0074 00 4 11465 TSX PADDR,4 QL580 FP181410 | 33670 -0500 00 0 33672 CAL *+2 QL582 FP181420 | 33671 0074 00 4 11413 TSX PRGMR,4 QL583 FP181430 | 33672 -0500 00 0 00000 CAL 0 CAL FLD= QL584 FP181440 | 33673 -0500 00 0 35031 CAL QAD30 QL585 FP181450 33674 0074 00 4 11455 TSX SADDR+1,4 QL586 FP181460 | 33675 -0500 00 0 33677 CAL *+2 QL587 FP181470 | 33676 0074 00 4 11413 TSX PRGMR,4 QL588 FP181480 | 33677 0602 00 0 00001 SLW 1 SLW QL589 FP181490 | 33700 -0500 00 0 35030 CAL QAD20 QL590 FP181500 33701 -0760 00 0 00003 SSM QL591 FP181510 | 33702 0074 00 4 11507 TSX YADDR,4 QL592 FP181520 | 33703 -0500 00 0 33705 CAL *+2 QL593 FP181530 | 33704 0074 00 4 11413 TSX PRGMR,4 QL594 FP181540 | 33705 0074 00 4 00001 TSX 1,4 TSX QL595 FP181550 33706 -0500 00 0 35030 CAL QAD20 QL596 FP181560 | 33707 0074 00 4 11507 TSX YADDR,4 QL597 FP181570 | 33710 -0500 00 0 33712 CAL *+2 QL598 FP181580 | 33711 0074 00 4 11413 TSX PRGMR,4 QL599 FP181590 | 33712 222324402231 BCI 1,BCD-BI FP181600 33713 -0500 00 0 33715 CAL *+2 QL601 FP181610 | 33714 0074 00 4 11413 TSX PRGMR,4 QL602 FP181620 | 33715 456025515160 BCI 1,N ERR FP181630 | 33716 -0500 00 0 33720 CAL *+2 QL604 FP181640 | 33717 0074 00 4 11413 TSX PRGMR,4 QL605 FP181650 33720 0020 00 0 00000 TRA 0 QL606 FP181660 | 33721 -0500 00 0 11423 CAL F0080 QL607 FP181670 | 33722 0621 00 0 35040 STA QAE10 QL608 FP181680 | 33723 0020 00 0 34031 TRA QL940 QL610 FP181690 | 33724 0074 00 4 10507 QL615 TSX T0010,4 QL615 FP181700 33725 -1 00776 2 14307 STR BB010,2,510 CHG SIZE GR THAN BIN EQUIV SIZE QL616 FP181710 | 33726 0500 00 0 13653 QL620 CLA E2004 COMPARE CHG SIZE TO S.F. SIQL620 FP181720 | 33727 0340 00 0 35013 CAS QAB10 * QL630 FP181730 | 33730 0020 00 0 33724 TRA QL615 QL640 FP181740 | 33731 0761 00 0 00000 NOP EQUAL OK QL641 FP181750 33732 0057 00 000001 RIR 1 TURN OFF MINMAX SW-SI35 QL650 FP181760 | 33733 0500 00 0 13655 CLA E2006 LOAD BIT NO. QL660 FP181770 | 33734 -0054 00 000001 LFT 1 TEST MODE OF CHG FLD QL670 FP181780 | 33735 0020 00 0 33512 TRA QK550 * PACKED QL680 FP181790 | 1 LISTING OF 12/01/64 PAGE 377 UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 33736 0534 00 4 13653 LXA E2004,4 COMPARE CHG SIZE TO 36 QL690 FP181800 | 33737 -3 00044 4 33752 TXL QL810,4,36 * QL700 FP181810 | 33740 0500 00 0 13654 CLA E2005 BUILD CAL U,1 QL710 FP181820 33741 -0501 00 0 33743 ORA *+2 * QL720 FP181830 | 33742 0074 00 4 11413 TSX PRGMR,4 * QL730 FP181840 | 33743 -0500 00 1 00000 CAL 0,1 * QL740 FP181850 | 33744 -0500 00 0 33746 CAL *+2 BUILD SLW DBBCL QL750 FP181860 | 33745 0074 00 4 11413 TSX PRGMR,4 * QL760 FP181870 33746 0602 00 0 20065 SLW DBBCL * QL770 FP181880 | 33747 0500 00 0 13654 CLA E2005 MODIFY U BY 1 QL780 FP181890 | 33750 0400 00 0 35010 ADD QAA70 * QL790 FP181900 | 33751 0601 00 0 13654 STO E2005 * QL800 FP181910 | 33752 0500 00 0 13654 QL810 CLA E2005 BUILD CAL U,1 QL810 FP181920 33753 -0501 00 0 33755 ORA *+2 E QL820 FP181930 | 33754 0074 00 4 11413 TSX PRGMR,4 * QL830 FP181940 | 33755 -0500 00 1 00000 CAL 0,1 * QL840 FP181950 | 33756 -0500 00 0 33760 CAL *+2 BUILD SLW DBBCR QL850 FP181960 | 33757 0074 00 4 11413 TSX PRGMR,4 * QL860 FP181970 33760 0602 00 0 20066 SLW DBBCR * QL870 FP181980 | 33761 -0500 00 0 33763 CAL *+2 BUILD TSX TOBIN,4 QL880 FP181990 | 33762 0074 00 4 11413 TSX PRGMR,4 * QL890 FP182000 | 33763 0074 00 4 17747 TSX TOBIN,4 * QL900 FP182010 | 33764 -0500 00 0 33766 CAL *+2 BUILD REJ PKG QL901 FP182020 33765 0074 00 4 11413 TSX PRGMR,4 QL902 FP182030 | 33766 0020 00 0 00000 TRA 0 QL903 FP182040 | 33767 0500 00 0 35033 CLA QAD50 2 QL904 FP182050 | 33770 0074 00 4 11465 TSX PADDR,4 QL905 FP182060 | 33771 -0500 00 0 33773 CAL *+2 QL906 FP182070 33772 0074 00 4 11413 TSX PRGMR,4 QL907 FP182080 | 33773 0020 00 0 00000 TRA 0 QL908 FP182090 | 33774 0500 00 0 35032 CLA QAD40 7 QL909 FP182100 | 33775 0074 00 4 11465 TSX PADDR,4 QL910 FP182110 | 33776 -0500 00 0 34000 CAL *+2 QL911 FP182120 33777 0074 00 4 11413 TSX PRGMR,4 QL912 FP182130 | 34000 -0500 00 0 00000 CAL 0 CAL FLD= QL913 FP182140 | 34001 -0500 00 0 35031 CAL QAD30 QL914 FP182150 | 34002 0074 00 4 11455 TSX SADDR+1,4 QL915 FP182160 | 34003 -0500 00 0 34005 CAL *+2 QL916 FP182170 34004 0074 00 4 11413 TSX PRGMR,4 QL917 FP182180 | 34005 0602 00 0 00001 SLW 1 QL918 FP182190 | 34006 -0500 00 0 35030 CAL QAD20 QL919 FP182200 | 34007 -0760 00 0 00003 SSM QL920 FP182210 | 34010 0074 00 4 11507 TSX YADDR,4 QL921 FP182220 34011 -0500 00 0 34013 CAL *+2 QL922 FP182230 | 34012 0074 00 4 11413 TSX PRGMR,4 QL923 FP182240 | 34013 0074 00 4 00001 TSX 1,4 QL924 FP182250 | 34014 -0500 00 0 35030 CAL QAD20 QL925 FP182260 | 34015 0074 00 4 11507 TSX YADDR,4 QL926 FP182270 34016 -0500 00 0 34020 CAL *+2 QL927 FP182280 | 34017 0074 00 4 11413 TSX PRGMR,4 QL928 FP182290 | 34020 222324402231 BCI 1,BCD-BI FP182300 | 34021 -0500 00 0 34023 CAL *+2 QL930 FP182310 | 34022 0074 00 4 11413 TSX PRGMR,4 QL931 FP182320 34023 456025515160 BCI 1,N ERR FP182330 | 34024 -0500 00 0 34026 CAL *+2 QL933 FP182340 | 1 LISTING OF 12/01/64 PAGE 378 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | 34025 0074 00 4 11413 TSX PRGMR,4 QL934 FP182350 | 34026 0020 00 0 00000 TRA 0 QL935 FP182360 | 34027 -0500 00 0 11423 CAL F0080 QL936 FP182370 | 34030 0621 00 0 35041 STA QAE20 QL937 FP182380 | 34031 0774 00 4 20064 QL940 AXT DBBIN,4 DBBIN TO STORAGE A QL940 FP182390 34032 0600 00 0 35020 STZ QAB60 QL945 FP182400 | 34033 0634 00 4 35020 SXA QAB60,4 QL950 FP182410 | 34034 0054 00 000001 RFT 1 MINMAX SW QL960 FP182420 | 34035 0020 00 0 34270 TRA QM790 * SW IS ON QL970 FP182430 | 34036 0534 00 4 13653 QL980 LXA E2004,4 COMPARE CHG SIZE TO 36 QL980 FP182440 34037 2 00044 4 34041 TIX *+2,4,36 * QL990 FP182450 | 34040 0774 00 4 00000 AXT 0,4 SET IR4 TO ZERO QM010 FP182460 | 34041 0634 00 4 34056 SXA QM150,4 INIT MAXMIN SHIFTS QM020 FP182470 | 34042 0634 00 4 34173 SXA QM500,4 QM030 FP182480 | 34043 -0500 00 1 00012 CAL 10,1 IS CHG MAX BLANK QM040 FP182490 34044 0560 00 1 00013 LDQ 11,1 * QM050 FP182500 | 34045 -0765 00 0 00030 LGR 24 * QM060 FP182510 | 34046 -0130 00 0 00000 XCL * QM070 FP182520 | 34047 -0340 00 0 35022 LAS QAB80 * BLANK QM080 FP182530 | 34050 0020 00 0 34052 TRA *+2 * QM090 FP182540 34051 0020 00 0 34160 TRA QM390 * YES QM100 FP182550 | 34052 0044 00 0 00000 PAI SHIFT MAX AND MOVE SIGN QM110 FP182560 | 34053 -0320 00 0 35023 ANA QAB90 * REMOVE SIGN IN AC QM120 FP182570 | 34054 -0130 00 0 00000 XCL * QM130 FP182580 | 34055 0760 00 0 00000 CLM * QM140 FP182590 34056 -0763 00 0 00000 QM150 LGL 0 * SHIFT MAX QM150 FP182600 | 34057 0602 00 0 07750 SLW B1010 * QM160 FP182610 | 34060 -0600 00 0 07751 STQ B1020 * QM170 FP182620 | 34061 0445 00 0 35023 RIS QAB90 * CLEAR INDIC EXCEPT SIGN QM180 FP182630 | 34062 -0046 00 0 00000 PIA * SIGN TO AC QM190 FP182640 34063 -0602 00 0 07751 ORS B1020 * SIGN OVER UNITS POS QM200 FP182650 | 34064 0074 00 4 07570 TSX B0010,4 CONVERT MAX TO BINARY QM210 FP182660 | 34065 -0500 00 0 07747 CAL B1000 MAX TO OBJECT STORAGE QM230 FP182670 | 34066 0074 00 4 11426 TSX STORR,4 * QM240 FP182680 | 34067 -0500 00 0 35020 CAL QAB60 BUILD CLA A QM250 FP182690 34070 -0501 00 0 34072 ORA *+2 * QM260 FP182700 | 34071 0074 00 4 11413 TSX PRGMR,4 * QM270 FP182710 | 34072 0500 00 0 00000 CLA 0 * QM280 FP182720 | 34073 -0500 00 0 34075 CAL *+2 BUILD CAS MAX QM290 FP182730 | 34074 0074 00 4 11413 TSX PRGMR,4 * QM300 FP182740 34075 0340 00 0 00000 CAS 0 * QM310 FP182750 | 34076 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDR ENTRY QM320 FP182760 | 34077 -0500 00 0 34101 CAL *+2 BUILD REJ PKG QM330 FP182770 | 34100 0074 00 4 11413 TSX PRGMR,4 QM331 FP182780 | 34101 0020 00 0 00000 TRA 0 TRA QM340 FP182790 34102 -0500 00 0 35034 CAL QAD60 3 QM341 FP182800 | 34103 0074 00 4 11465 TSX PADDR,4 QM342 FP182810 | 34104 -0500 00 0 34106 CAL *+2 QM343 FP182820 | 34105 0074 00 4 11413 TSX PRGMR,4 QM344 FP182830 | 34106 0761 00 0 00000 NOP NOP QM345 FP182840 34107 -0500 00 0 34111 CAL *+2 QM346 FP182850 | 34110 0074 00 4 11413 TSX PRGMR,4 QM347 FP182860 | 34111 0020 00 0 00000 TRA 0 TRA QM348 FP182870 | 34112 -0500 00 0 11036 CAL NMBR9 9 QM349 FP182880 | 34113 0074 00 4 11465 TSX PADDR,4 QM350 FP182890 1 LISTING OF 12/01/64 PAGE 379 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 34114 -0500 00 0 34116 CAL *+2 FOR CONVERT TO BCD FP182900 | 34115 0074 00 4 11413 TSX PRGMR,4 FP182910 34116 0074 00 4 20175 TSX CHBCD,4 FP182920 | 34117 -0500 00 0 34121 CAL *+2 QM351 FP182930 | 34120 0074 00 4 11413 TSX PRGMR,4 QM352 FP182940 | 34121 0602 00 0 00004 SLW 4 SLW QM353 FP182950 | 34122 -0500 00 0 35030 CAL QAD20 QM354 FP182960 34123 -0760 00 0 00003 SSM QM355 FP182970 | 34124 0074 00 4 11507 TSX YADDR,4 QM356 FP182980 | 34125 -0500 00 0 34127 CAL *+2 QM357 FP182990 | 34126 0074 00 4 11413 TSX PRGMR,4 QM358 FP183000 | 34127 -0500 00 0 00000 CAL 0 CAL QM359 FP183010 34130 -0500 00 0 35031 CAL QAD30 QM360 FP183020 | 34131 0074 00 4 11455 TSX SADDR+1,4 QM361 FP183030 | 34132 -0500 00 0 34134 CAL *+2 QM362 FP183040 | 34133 0074 00 4 11413 TSX PRGMR,4 QM363 FP183050 | 34134 0602 00 0 00001 SLW 1 SLW QM364 FP183060 34135 -0500 00 0 35030 CAL QAD20 QM365 FP183070 | 34136 -0760 00 0 00003 SSM QM366 FP183080 | 34137 0074 00 4 11507 TSX YADDR,4 QM367 FP183090 | 34140 -0500 00 0 34142 CAL *+2 QM368 FP183100 | 34141 0074 00 4 11413 TSX PRGMR,4 QM369 FP183110 34142 0074 00 4 00001 TSX 1,4 TSX QM370 FP183120 | 34143 -0500 00 0 35030 CAL QAD20 QM371 FP183130 | 34144 0074 00 4 11507 TSX YADDR,4 QM372 FP183140 | 34145 -0500 00 0 34147 CAL *+2 QM373 FP183150 | 34146 0074 00 4 11413 TSX PRGMR,4 QM374 FP183160 34147 233027604421 BCI 1,CHG MA QM375 FP183170 | 34150 -0500 00 0 34152 CAL *+2 QM376 FP183180 | 34151 0074 00 4 11413 TSX PRGMR,4 QM377 FP183190 | 34152 676063256263 BCI 1,X TEST QM378 FP183200 | 34153 -0500 00 0 34155 CAL *+2 QM379 FP183210 34154 0074 00 4 11413 TSX PRGMR,4 QM380 FP183220 | 34155 0020 00 0 00000 TRA 0 QM381 FP183230 | 34156 -0500 00 0 11423 CAL F0080 QM382 FP183240 | 34157 0621 00 0 35042 STA QAE30 QM383 FP183250 | 34160 -0500 00 1 00011 QM390 CAL 9,1 IS DICT CHG MIN BLANK QM390 FP183260 34161 0560 00 1 00012 LDQ 10,1 * QM400 FP183270 | 34162 -0765 00 0 00030 LGR 24 * QM410 FP183280 | 34163 -0130 00 0 00000 XCL * QM420 FP183290 | 34164 -0340 00 0 35022 LAS QAB80 * BLANK QM430 FP183300 | 34165 0020 00 0 34167 TRA *+2 * QM440 FP183310 34166 0020 00 0 34270 TRA QM790 * YES QM450 FP183320 | 34167 0044 00 0 00000 PAI SHIFT MIN AND MOVE SIGN QM460 FP183330 | 34170 -0320 00 0 35023 ANA QAB90 * REMOVE SIGN IN ACC QM470 FP183340 | 34171 -0130 00 0 00000 XCL * QM480 FP183350 | 34172 0760 00 0 00000 CLM * QM490 FP183360 34173 -0763 00 0 00000 QM500 LGL 0 * SHIFT MIN QM500 FP183370 | 34174 0602 00 0 07750 SLW B1010 * QM510 FP183380 | 34175 -0600 00 0 07751 STQ B1020 * QM520 FP183390 | 34176 0445 00 0 35023 RIS QAB90 * CLEAR INDRS EXCEPT SIGN QM530 FP183400 | 34177 -0046 00 0 00000 PIA * SIGN TO AC QM540 FP183410 34200 -0602 00 0 07751 ORS B1020 * SIGN OVER UNITS POS QM550 FP183420 | 34201 0074 00 4 07570 TSX B0010,4 CONVERT MIN TO BINARY QM560 FP183430 | 34202 -0500 00 0 07747 CAL B1000 MIN TO OBJECT STORAGE QM580 FP183440 | 1 LISTING OF 12/01/64 PAGE 380 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | 34203 0074 00 4 11426 TSX STORR,4 * QM590 FP183450 | 34204 -0500 00 0 35020 CAL QAB60 BUILD CLA A QM600 FP183460 | 34205 -0501 00 0 34207 ORA *+2 * QM610 FP183470 | 34206 0074 00 4 11413 TSX PRGMR,4 * QM620 FP183480 34207 0500 00 0 00000 CLA 0 * QM630 FP183490 | 34210 -0500 00 0 34212 CAL *+2 BUILD CAS MIN QM640 FP183500 | 34211 0074 00 4 11413 TSX PRGMR,4 * QM650 FP183510 | 34212 0340 00 0 00000 CAS 0 * QM660 FP183520 | 34213 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDR ENTRY QM670 FP183530 34214 -0500 00 0 34216 CAL *+2 BUILD NOP QM680 FP183540 | 34215 0074 00 4 11413 TSX PRGMR,4 * QM690 FP183550 | 34216 0761 00 0 00000 NOP * QM700 FP183560 | 34217 -0500 00 0 34221 CAL *+2 BUILD TRA *+8 QM710 FP183570 | 34220 0074 00 4 11413 TSX PRGMR,4 * QM720 FP183580 34221 0020 00 0 00000 TRA 0 * QM730 FP183590 | 34222 -0500 00 0 11036 CAL NMBR9 9 QM740 FP183600 | 34223 0074 00 4 11465 TSX PADDR,4 * QM750 FP183610 | 34224 -0500 00 0 34226 CAL *+2 FP183620 | 34225 0074 00 4 11413 TSX PRGMR,4 FP183630 34226 0074 00 4 20175 TSX CHBCD,4 FP183640 | 34227 -0500 00 0 34231 CAL *+2 QM751 FP183650 | 34230 0074 00 4 11413 TSX PRGMR,4 QM752 FP183660 | 34231 0602 00 0 00004 SLW 4 SLW QM753 FP183670 | 34232 -0500 00 0 35030 CAL QAD20 QM754 FP183680 34233 -0760 00 0 00003 SSM QM755 FP183690 | 34234 0074 00 4 11507 TSX YADDR,4 QM756 FP183700 | 34235 -0500 00 0 34237 CAL *+2 QM757 FP183710 | 34236 0074 00 4 11413 TSX PRGMR,4 QM758 FP183720 | 34237 -0500 00 0 00000 CAL 0 CAL FLD= QM759 FP183730 34240 -0500 00 0 35031 CAL QAD30 QM760 FP183740 | 34241 0074 00 4 11455 TSX SADDR+1,4 QM761 FP183750 | 34242 -0500 00 0 34244 CAL *+2 QM762 FP183760 | 34243 0074 00 4 11413 TSX PRGMR,4 QM763 FP183770 | 34244 0602 00 0 00001 SLW 1 SLW QM764 FP183780 34245 -0500 00 0 35030 CAL QAD20 QM765 FP183790 | 34246 -0760 00 0 00003 SSM QM766 FP183800 | 34247 0074 00 4 11507 TSX YADDR,4 QM767 FP183810 | 34250 -0500 00 0 34252 CAL *+2 QM768 FP183820 | 34251 0074 00 4 11413 TSX PRGMR,4 QM769 FP183830 34252 0074 00 4 00001 TSX 1,4 TSX QM770 FP183840 | 34253 -0500 00 0 35030 CAL QAD20 QM772 FP183850 | 34254 0074 00 4 11507 TSX YADDR,4 QM773 FP183860 | 34255 -0500 00 0 34257 CAL *+2 QM774 FP183870 | 34256 0074 00 4 11413 TSX PRGMR,4 QM775 FP183880 34257 233027604431 BCI 1,CHG MI QM776 FP183890 | 34260 -0500 00 0 34262 CAL *+2 QM777 FP183900 | 34261 0074 00 4 11413 TSX PRGMR,4 QM778 FP183910 | 34262 456063256263 BCI 1,N TEST QM779 FP183920 | 34263 -0500 00 0 34265 CAL *+2 QM780 FP183930 34264 0074 00 4 11413 TSX PRGMR,4 QM781 FP183940 | 34265 0020 00 0 00000 TRA 0 QM782 FP183950 | 34266 -0500 00 0 11423 CAL F0080 QM783 FP183960 | 34267 0621 00 0 35043 STA QAE40 QM784 FP183970 | 34270 -0500 00 0 04624 QM790 CAL CARD+3 TEST FLD ACTION QM790 FP183980 34271 -0320 00 0 10731 ANA BCD04 * QM800 FP183990 | 1 LISTING OF 12/01/64 PAGE 381 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 34272 -0340 00 0 35004 LAS QAA50 * R QM810 FP184000 34273 0020 00 0 34303 TRA QM900 ERROR QM820 FP184010 | 34274 0020 00 0 34347 TRA QN160 * REPLACE QM830 FP184020 | 34275 -0340 00 0 35005 LAS QAA50+1 * - QM840 FP184030 | 34276 0020 00 0 34303 TRA QM900 ERROR QM850 FP184040 | 34277 0020 00 0 34311 TRA QM950 * NEG ACCUMULATE QM860 FP184050 34300 -0340 00 0 35006 LAS QAA50+2 * + QM870 FP184060 | 34301 0020 00 0 34303 TRA QM900 ERROR QM880 FP184070 | 34302 0020 00 0 34305 TRA *+3 POS ACCUM QM890 FP184080 | 34303 0074 00 4 10507 QM900 TSX T0010,4 QM900 FP184090 | 34304 -1 00777 2 14307 STR BB010,2,511 INVALID BINARY FLD ACTION QM905 FP184100 34305 -0500 00 0 35020 CAL QAB60 BUILD CLA A QM910 FP184110 | 34306 -0501 00 0 34310 ORA *+2 * QM920 FP184120 | 34307 0020 00 0 34313 TRA QM970 * QM930 FP184130 | 34310 0500 00 0 00000 CLA 0 * QM940 FP184140 | 34311 -0500 00 0 35020 QM950 CAL QAB60 BUILD CLS A QM950 FP184150 34312 -0501 00 0 34314 ORA *+2 * QM960 FP184160 | 34313 0074 00 4 11413 QM970 TSX PRGMR,4 * QM970 FP184170 | 34314 0502 00 0 00000 CLS 0 * QM980 FP184180 | 34315 -0500 00 2 00011 CAL 9,2 REPLACE ONLY TEST QM990 FP184190 | 34316 -0320 00 0 10745 ANA BCD20 * QN010 FP184200 34317 0100 00 0 34322 TZE *+3 OK FP184210 | 34320 0074 00 4 10507 TSX T0010,4 QN025 FP184220 | 34321 -1 01000 2 14307 STR BB010,2,512 ACCUM ACTN ON REP ONLY BIN FLD QN030 FP184230 | 34322 -0500 00 0 11024 CAL BCD77 SET ACTION SW TO NON-ZERO QN040 FP184240 | 34323 0602 00 0 35025 SLW QAC20 * QN050 FP184250 34324 0600 00 0 35021 STZ QAB70 QN055 FP184260 | 34325 0774 00 4 15630 AXT BUFER,4 BUFER TO STORAGE B QN060 FP184270 | 34326 0634 00 4 35021 SXA QAB70,4 * QN070 FP184280 | 34327 0500 00 0 13613 CLA E1005 BUILD ADD C,2 QN080 FP184290 | 34330 -0501 00 0 34332 ORA *+2 * QN090 FP184300 34331 0074 00 4 11413 TSX PRGMR,4 * QN100 FP184310 | 34332 0400 00 2 00000 ADD 0,2 * QN110 FP184320 | 34333 -0500 00 0 34335 CAL *+2 TAKE CARE QN1100FP184330 | 34334 0074 00 4 11413 TSX PRGMR,4 OF QN1100FP184340 | 34335 -0100 00 0 00000 TNZ 0 MINUS QN1100FP184350 34336 -0500 00 0 35024 CAL QAC10 ZERO QN1100FP184360 | 34337 0074 00 4 11465 TSX PADDR,4 QN1100FP184370 | 34340 -0500 00 0 34342 CAL *+2 QN1100FP184380 | 34341 0074 00 4 11413 TSX PRGMR,4 QN1100FP184390 | 34342 0760 00 0 00003 SSP QN1100FP184400 34343 -0500 00 0 34345 CAL *+2 BUILD STO BUFER QN120 FP184410 | 34344 0074 00 4 11413 TSX PRGMR,4 * QN130 FP184420 | 34345 0601 00 0 15630 STO BUFER * QN140 FP184430 | 34346 0020 00 0 34357 TRA QN230 QN150 FP184440 | 34347 0441 00 1 00002 QN160 LDI 2,1 TEST CHG FLD MODE QN160 FP184450 34350 -0056 00 000100 LNT 100 * QN170 FP184460 | 34351 0020 00 0 34355 TRA QN210 * BINARY QN180 FP184470 | 34352 0600 00 0 35021 STZ QAB70 QN185 FP184480 | 34353 0774 00 4 20064 AXT DBBIN,4 DBBIN TO STORAGE B QN190 FP184490 | 34354 0634 00 4 35021 SXA QAB70,4 * QN200 FP184500 34355 0760 00 0 00000 QN210 CLM SET ACTION SW TO 0 QN210 FP184510 | 34356 0602 00 0 35025 SLW QAC20 * QN220 FP184520 | 34357 0534 00 4 35013 QN230 LXA QAB10,4 INIT MAXMIN SHIFT QN230 FP184530 | 34360 2 00044 4 34362 TIX *+2,4,36 * QN240 FP184540 | 1 LISTING OF 12/01/64 PAGE 382 UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 34361 0774 00 4 00000 AXT 0,4 * WITH ZERO QN250 FP184550 | 34362 0634 00 4 34377 SXA QN390,4 * OR SIZE-36 QN260 FP184560 | 34363 0634 00 4 34514 SXA QN740,4 * QN270 FP184570 34364 -0500 00 2 00012 CAL 10,2 IS S.F.MAX BLANK QN280 FP184580 | 34365 0560 00 2 00013 LDQ 11,2 * QN290 FP184590 | 34366 -0765 00 0 00030 LGR 24 * QN300 FP184600 | 34367 -0130 00 0 00000 XCL * QN310 FP184610 | 34370 -0340 00 0 35022 LAS QAB80 * BLANK QN320 FP184620 34371 0020 00 0 34373 TRA *+2 * QN330 FP184630 | 34372 0020 00 0 34501 TRA QN630 * YES QN340 FP184640 | 34373 0044 00 0 00000 PAI SHIFT MAX AND MOVE SIGN QN350 FP184650 | 34374 -0320 00 0 35023 ANA QAB90 * QN360 FP184660 | 34375 -0130 00 0 00000 XCL * QN370 FP184670 34376 0760 00 0 00000 CLM * QN380 FP184680 | 34377 -0763 00 0 00000 QN390 LGL 0 * SHIFT MAX QN390 FP184690 | 34400 0602 00 0 07750 SLW B1010 * QN400 FP184700 | 34401 -0600 00 0 07751 STQ B1020 * QN410 FP184710 | 34402 0445 00 0 35023 RIS QAB90 * QN420 FP184720 34403 -0046 00 0 00000 PIA * QN430 FP184730 | 34404 -0602 00 0 07751 ORS B1020 * QN440 FP184740 | 34405 0074 00 4 07570 TSX B0010,4 CONVERT MAX TO BINARY QN450 FP184750 | 34406 -0500 00 0 07747 CAL B1000 MAX TO OBJECT STORAGE QN470 FP184760 | 34407 0074 00 4 11426 TSX STORR,4 * QN480 FP184770 34410 -0500 00 0 35021 CAL QAB70 BUILD CLA B QN490 FP184780 | 34411 -0501 00 0 34413 ORA *+2 * QN500 FP184790 | 34412 0074 00 4 11413 TSX PRGMR,4 * QN510 FP184800 | 34413 0500 00 0 00000 CLA 0 * QN520 FP184810 | 34414 -0500 00 0 34416 CAL *+2 BUILD CAS MAX QN530 FP184820 34415 0074 00 4 11413 TSX PRGMR,4 * QN540 FP184830 | 34416 0340 00 0 00000 CAS 0 * QN550 FP184840 | 34417 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDR ENTRY QN560 FP184850 | 34420 -0500 00 0 34422 CAL *+2 BUILD REJ PKG QN570 FP184860 | 34421 0074 00 4 11413 TSX PRGMR,4 QN571 FP184870 34422 0020 00 0 00000 TRA 0 TRA QN580 FP184880 | 34423 -0500 00 0 35034 CAL QAD60 3 QN581 FP184890 | 34424 0074 00 4 11465 TSX PADDR,4 QN582 FP184900 | 34425 -0500 00 0 34427 CAL *+2 QN583 FP184910 | 34426 0074 00 4 11413 TSX PRGMR,4 QN584 FP184920 34427 0761 00 0 00000 NOP NOP QN585 FP184930 | 34430 -0500 00 0 34432 CAL *+2 QN586 FP184940 | 34431 0074 00 4 11413 TSX PRGMR,4 QN587 FP184950 | 34432 0020 00 0 00000 TRA 0 TRA QN588 FP184960 | 34433 -0500 00 0 11036 CAL NMBR9 9 QN589 FP184970 34434 0074 00 4 11465 TSX PADDR,4 QN590 FP184980 | 34435 -0500 00 0 34437 CAL *+2 FP184990 | 34436 0074 00 4 11413 TSX PRGMR,4 FP185000 | 34437 0074 00 4 20175 TSX CHBCD,4 FP185010 | 34440 -0500 00 0 34442 CAL *+2 QN591 FP185020 34441 0074 00 4 11413 TSX PRGMR,4 QN592 FP185030 | 34442 0602 00 0 00004 SLW 4 SLW QN593 FP185040 | 34443 -0500 00 0 35030 CAL QAD20 QN594 FP185050 | 34444 -0760 00 0 00003 SSM QN595 FP185060 | 34445 0074 00 4 11507 TSX YADDR,4 QN596 FP185070 34446 -0500 00 0 34450 CAL *+2 QN597 FP185080 | 34447 0074 00 4 11413 TSX PRGMR,4 QN598 FP185090 | 1 LISTING OF 12/01/64 PAGE 383 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | 34450 -0500 00 0 00000 CAL 0 CAL QN599 FP185100 | 34451 -0500 00 0 35031 CAL QAD30 QN600 FP185110 | 34452 0074 00 4 11455 TSX SADDR+1,4 QN601 FP185120 | 34453 -0500 00 0 34455 CAL *+2 QN602 FP185130 | 34454 0074 00 4 11413 TSX PRGMR,4 QN603 FP185140 34455 0602 00 0 00001 SLW 1 SLW QN604 FP185150 | 34456 -0500 00 0 35030 CAL QAD20 QN605 FP185160 | 34457 -0760 00 0 00003 SSM QN606 FP185170 | 34460 0074 00 4 11507 TSX YADDR,4 QN607 FP185180 | 34461 -0500 00 0 34463 CAL *+2 QN608 FP185190 34462 0074 00 4 11413 TSX PRGMR,4 QN609 FP185200 | 34463 0074 00 4 00001 TSX 1,4 TSX QN610 FP185210 | 34464 -0500 00 0 35030 CAL QAD20 QN611 FP185220 | 34465 0074 00 4 11507 TSX YADDR,4 QN612 FP185230 | 34466 -0500 00 0 34470 CAL *+2 QN613 FP185240 34467 0074 00 4 11413 TSX PRGMR,4 QN614 FP185250 | 34470 622660442167 BCI 1,SF MAX QN615 FP185260 | 34471 -0500 00 0 34473 CAL *+2 QN616 FP185270 | 34472 0074 00 4 11413 TSX PRGMR,4 QN617 FP185280 | 34473 606325626360 BCI 1, TEST QN618 FP185290 34474 -0500 00 0 34476 CAL *+2 QN619 FP185300 | 34475 0074 00 4 11413 TSX PRGMR,4 QN620 FP185310 | 34476 0020 00 0 00000 TRA 0 QN621 FP185320 | 34477 -0500 00 0 11423 CAL F0080 QN622 FP185330 | 34500 0621 00 0 35044 STA QAE50 QN623 FP185340 34501 -0500 00 2 00011 QN630 CAL 9,2 IS S.F. MIN BLANK QN630 FP185350 | 34502 0560 00 2 00012 LDQ 10,2 * QN640 FP185360 | 34503 -0765 00 0 00030 LGR 24 * QN650 FP185370 | 34504 -0130 00 0 00000 XCL * QN660 FP185380 | 34505 -0340 00 0 35022 LAS QAB80 * BLANK QN670 FP185390 34506 0020 00 0 34510 TRA *+2 QN680 FP185400 | 34507 0020 00 0 34611 TRA QO040 * YES QN690 FP185410 | 34510 0044 00 0 00000 PAI SHIFT MIN AND MOVE SIGN QN700 FP185420 | 34511 -0320 00 0 35023 ANA QAB90 * QN710 FP185430 | 34512 -0130 00 0 00000 XCL * QN720 FP185440 34513 0760 00 0 00000 CLM * QN730 FP185450 | 34514 -0763 00 0 00000 QN740 LGL 0 * SHIFT MIN QN740 FP185460 | 34515 0602 00 0 07750 SLW B1010 * QN750 FP185470 | 34516 -0600 00 0 07751 STQ B1020 * QN760 FP185480 | 34517 0445 00 0 35023 RIS QAB90 * QN770 FP185490 34520 -0046 00 0 00000 PIA * QN780 FP185500 | 34521 -0602 00 0 07751 ORS B1020 * QN790 FP185510 | 34522 0074 00 4 07570 TSX B0010,4 CONVERT MIN TO BINARY QN800 FP185520 | 34523 -0500 00 0 07747 CAL B1000 MIN TO OBJECT STORAGE QN820 FP185530 | 34524 0074 00 4 11426 TSX STORR,4 QN830 FP185540 34525 -0500 00 0 35021 CAL QAB70 BUILD CLA B QN840 FP185550 | 34526 -0501 00 0 34530 ORA *+2 * QN850 FP185560 | 34527 0074 00 4 11413 TSX PRGMR,4 * QN860 FP185570 | 34530 0500 00 0 00000 CLA 0 * QN870 FP185580 | 34531 -0500 00 0 34533 CAL *+2 BUILD CAS MIN QN880 FP185590 34532 0074 00 4 11413 TSX PRGMR,4 * QN890 FP185600 | 34533 0340 00 0 00000 CAS 0 * QN900 FP185610 | 34534 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDR ENTRY QN910 FP185620 | 34535 -0500 00 0 34537 CAL *+2 BUILD NOP QN920 FP185630 | 34536 0074 00 4 11413 TSX PRGMR,4 * QN930 FP185640 1 LISTING OF 12/01/64 PAGE 384 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 34537 0761 00 0 00000 NOP * QN940 FP185650 | 34540 -0500 00 0 34542 CAL *+2 BUILD TRA *+9 QN950 FP185660 34541 0074 00 4 11413 TSX PRGMR,4 * QN960 FP185670 | 34542 0020 00 0 00000 TRA 0 * QN970 FP185680 | 34543 -0500 00 0 11036 CAL NMBR9 9 QN980 FP185690 | 34544 0074 00 4 11465 TSX PADDR,4 * QN990 FP185700 | 34545 -0500 00 0 34547 CAL *+2 FP185710 34546 0074 00 4 11413 TSX PRGMR,4 FP185720 | 34547 0074 00 4 20175 TSX CHBCD,4 FP185730 | 34550 -0500 00 0 34552 CAL *+2 QN991 FP185740 | 34551 0074 00 4 11413 TSX PRGMR,4 QN992 FP185750 | 34552 0602 00 0 00004 SLW 4 SLW QN993 FP185760 34553 -0500 00 0 35030 CAL QAD20 QN994 FP185770 | 34554 -0760 00 0 00003 SSM QN995 FP185780 | 34555 0074 00 4 11507 TSX YADDR,4 QN996 FP185790 | 34556 -0500 00 0 34560 CAL *+2 QN997 FP185800 | 34557 0074 00 4 11413 TSX PRGMR,4 QN998 FP185810 34560 -0500 00 0 00000 CAL 0 CAL QN999 FP185820 | 34561 -0500 00 0 35031 CAL QAD30 QO010 FP185830 | 34562 0074 00 4 11455 TSX SADDR+1,4 QO011 FP185840 | 34563 -0500 00 0 34565 CAL *+2 QO012 FP185850 | 34564 0074 00 4 11413 TSX PRGMR,4 QO013 FP185860 34565 0602 00 0 00001 SLW 1 SLW QO014 FP185870 | 34566 -0500 00 0 35030 CAL QAD20 QO015 FP185880 | 34567 -0760 00 0 00003 SSM QO016 FP185890 | 34570 0074 00 4 11507 TSX YADDR,4 QO017 FP185900 | 34571 -0500 00 0 34573 CAL *+2 QO018 FP185910 34572 0074 00 4 11413 TSX PRGMR,4 QO019 FP185920 | 34573 0074 00 4 00001 TSX 1,4 TSX QO020 FP185930 | 34574 -0500 00 0 35030 CAL QAD20 QO021 FP185940 | 34575 0074 00 4 11507 TSX YADDR,4 QO022 FP185950 | 34576 -0500 00 0 34600 CAL *+2 QO023 FP185960 34577 0074 00 4 11413 TSX PRGMR,4 QO024 FP185970 | 34600 622660443145 BCI 1,SF MIN QO025 FP185980 | 34601 -0500 00 0 34603 CAL *+2 QO026 FP185990 | 34602 0074 00 4 11413 TSX PRGMR,4 QO027 FP186000 | 34603 606325626360 BCI 1, TEST QO028 FP186010 34604 -0500 00 0 34606 CAL *+2 QO029 FP186020 | 34605 0074 00 4 11413 TSX PRGMR,4 QO030 FP186030 | 34606 0020 00 0 00000 TRA 0 QO031 FP186040 | 34607 -0500 00 0 11423 CAL F0080 QO032 FP186050 | 34610 0621 00 0 35045 STA QAE60 QO033 FP186060 34611 0500 00 2 00001 QO040 CLA 1,2 SUM FWD TEST QO040 FP186070 | 34612 0120 00 0 34671 TPL QO390 * NO SUM FWD QO050 FP186080 | 34613 -0500 00 0 04622 CAL CARD+1 INIT AC WITH FLD NO QO060 FP186090 | 34614 0560 00 0 04623 LDQ CARD+2 * QO070 FP186100 | 34615 -0763 00 0 00022 LGL 18 * QO080 FP186110 34616 0602 00 0 35001 SLW QAA20 STORE IN OPSTO QO090 FP186120 | 34617 -0774 00 1 71545 AXC SUTBL,1 INIT TO 1ST TABLE ENTRY QO100 FP186130 | 34620 -0340 00 1 00000 QO110 LAS 0,1 SEARCH TABLE QO110 FP186140 | 34621 1 77775 1 34620 TXI QO110,1,-3 MODIFY TO NEXT ENTRY QO120 FP186150 | 34622 1 77776 1 34625 QO130 TXI QO150,1,-2 EQUAL QO130 FP186160 34623 0074 00 4 10507 TSX T0010,4 QO135 FP186170 | 34624 -1 11172 4 00000 STR 0,4,4730 UPW FLD IN SUMM DICT,NOT THERE NOW QO140 FP186180 | 34625 -0500 00 1 00000 QO150 CAL 0,1 HAS SUM FWD FLD BEEN DELETEQO150 FP186190 | 1 LISTING OF 12/01/64 PAGE 385 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | 34626 -0760 00 0 00001 PBT * QO160 FP186200 | 34627 0020 00 0 34631 TRA *+2 * NO QO161 FP186210 | 34630 0020 00 0 34664 TRA QO340 * YES QO162 FP186220 | 34631 -0501 00 0 34633 ORA *+2 BUILD CLA SUM TO QO170 FP186230 34632 0074 00 4 11413 TSX PRGMR,4 * QO180 FP186240 | 34633 0500 00 0 00000 CLA 0 * QO190 FP186250 | 34634 0520 00 0 35025 ZET QAC20 TEST ACTION SW QO200 FP186260 | 34635 0020 00 0 34643 TRA QO252 QO210 FP186270 | 34636 0500 00 0 13613 CLA E1005 BUILD SUB C,2 QO220 FP186280 34637 -0501 00 0 34641 ORA *+2 * QO230 FP186290 | 34640 0074 00 4 11413 TSX PRGMR,4 * QO240 FP186300 | 34641 0402 00 2 00000 SUB 0,2 * QO250 FP186310 | 34642 0020 00 0 34654 TRA QO260 QO251 FP186320 | 34643 -0500 00 0 04624 QO252 CAL CARD+3 QO252 FP186330 34644 -0320 00 0 10731 ANA BCD04 QO253 FP186340 | 34645 -0340 00 0 35005 LAS QAA50+1 QO254 FP186350 | 34646 0020 00 0 34654 TRA QO260 QO255 FP186360 | 34647 0020 00 0 34651 TRA *+2 QO256 FP186370 | 34650 0020 00 0 34654 TRA QO260 QO257 FP186380 34651 -0500 00 0 35020 CAL QAB60 QO2575FP186390 | 34652 -0501 00 0 35050 ORA QAE90 QO2580FP186400 | 34653 0020 00 0 34656 TRA QO280 QO2585FP186410 | 34654 -0500 00 0 35020 QO260 CAL QAB60 BUILD ADD A QO260 FP186420 | 34655 -0501 00 0 34657 ORA *+2 * QO270 FP186430 34656 0074 00 4 11413 QO280 TSX PRGMR,4 QO280 FP186440 | 34657 0400 00 0 00000 ADD 0 * QO290 FP186450 | 34660 -0500 00 0 34663 CAL *+3 BUILD STO SUM TO QO300 FP186460 | 34661 -0501 00 1 00000 ORA 0,1 * QO310 FP186470 | 34662 0074 00 4 11413 TSX PRGMR,4 * QO320 FP186480 34663 0601 00 0 00000 STO 0 * QO330 FP186490 | 34664 1 77777 1 34665 QO340 TXI *+1,1,-1 MODIFY TO NEXT TABLE ENTRY QO340 FP186500 | 34665 -0500 00 0 35001 CAL QAA20 TEST FLD NO. QO350 FP186510 | 34666 -0340 00 1 00000 LAS 0,1 * QO360 FP186520 | 34667 0020 00 0 34671 TRA QO390 * HIGH-NO MORE MATCHING QO370 FP186530 34670 0020 00 0 34622 TRA QO130 * BACK TO BUILD PKG QO380 FP186540 | 34671 -0500 00 0 35021 QO390 CAL QAB70 BUILD CAL B QO390 FP186550 | 34672 -0501 00 0 34674 ORA *+2 * QO530 FP186560 | 34673 0074 00 4 11413 TSX PRGMR,4 * QO540 FP186570 | 34674 -0500 00 0 00000 CAL 0 * QO550 FP186580 34675 0500 00 0 13613 CLA E1005 BUILD SLW C,2 QO560 FP186590 | 34676 -0501 00 0 34700 ORA *+2 * QO570 FP186600 | 34677 0074 00 4 11413 TSX PRGMR,4 * QO580 FP186610 | 34700 0602 00 2 00000 SLW 0,2 * QO590 FP186620 | 34701 -0500 00 0 11423 CAL F0080 QO660 FP186630 34702 -0320 00 0 35046 ANA QAE70 QO6600FP186640 | 34703 0400 00 0 35010 ADD QAA70 1 QO6600FP186650 | 34704 0601 00 0 35047 STO QAE80 QO6600FP186660 | 34705 0774 00 1 00006 AXT 6,1 QO6600FP186670 | 34706 0500 00 0 35047 CLA QAE80 QO6600FP186680 34707 0402 00 1 35046 SUB QAE70,1 QO6600FP186690 | 34710 0601 00 0 11474 STO K1000 QO6600FP186700 | 34711 -0500 00 1 35046 CAL QAE70,1 QO6600FP186710 | 34712 0100 00 0 34715 TZE *+3 QO6600FP186720 | 34713 0074 00 4 11467 TSX PADDR+2,4 QO6600FP186730 34714 0600 00 1 35046 STZ QAE70,1 QO6600FP186740 | 1 LISTING OF 12/01/64 PAGE 386 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 34715 2 00001 1 34706 TIX *-7,1,1 QO6601FP186750 34716 0020 00 0 14307 TRA BB010 OUT QO6601FP186760 | 34717 0074 00 4 10507 QO666 TSX T0010,4 QO666 FP186770 | 34720 -1 01001 2 14307 STR BB010,2,513 CHG FLD IS PKD BINARY QO667 FP186780 | 34721 0074 00 4 10507 QO668 TSX T0010,4 QO668 FP186790 | 34722 -1 01002 2 14307 STR BB010,2,514 CHG FLD IS BIN LOGICAL QO669 FP186800 34723 -0054 00 000001 QO670 LFT 1 IS MODE PACKED QO670 FP186810 | 34724 0020 00 0 34717 TRA QO666 QO680 FP186820 | 34725 0056 00 010000 RNT 10000 IS MODE LOGICAL QO690 FP186830 | 34726 0020 00 0 34721 TRA QO668 QO700 FP186840 | 34727 0500 00 0 13653 CLA E2004 TABLE SEARCH FOR CHG EQUIV QO710 FP186850 34730 0774 00 4 00000 AXT 0,4 * QO720 FP186860 | 34731 0634 00 1 35001 SXA QAA20,1 * SAVE IR1 TEMPOR. QO730 FP186870 | 34732 0774 00 1 00024 AXT 20,1 * QO740 FP186880 | 34733 1 00006 4 34734 QO750 TXI *+1,4,6 * UPDATE SIZE BY 6 QO750 FP186890 | 34734 -0340 00 1 11104 LAS EQUIV+21,1 * QO760 FP186900 34735 0020 00 0 34740 TRA *+3 * QO770 FP186910 | 34736 0020 00 0 34743 TRA QO820 * MATCH QO780 FP186920 | 34737 0020 00 0 34741 TRA *+2 * ERROR QO790 FP186930 | 34740 2 00002 1 34733 TIX QO750,1,2 * MODIFY TO NEXT ENTRY QO800 FP186940 | 34741 0074 00 4 10507 TSX T0010,4 QO805 FP186950 34742 -1 01003 2 14307 STR BB010,2,515 INVALID UPD DICT BINARY SIZE QO810 FP186960 | 34743 0634 00 4 13653 QO820 SXA E2004,4 STORE CONVERTED CHG SIZE QO820 FP186970 | 34744 0534 00 1 35001 LXA QAA20,1 RESTORE IR1 QO830 FP186980 | 34745 0500 00 0 13653 CLA E2004 COMPARE CHG SIZE TO S.F. QO840 FP186990 | 34746 0340 00 0 35013 CAS QAB10 QO850 FP187000 34747 0020 00 0 34756 TRA QO930 QO860 FP187010 | 34750 0761 00 0 00000 NOP * EQUAL-OK QO870 FP187020 | 34751 0500 00 0 13654 CLA E2005 U,1 TO STORAGE A AND B QO880 FP187030 | 34752 -0501 00 0 35026 ORA QAC30 * QO890 FP187040 | 34753 0602 00 0 35020 SLW QAB60 * QO900 FP187050 34754 0602 00 0 35021 SLW QAB70 * QO910 FP187060 | 34755 0020 00 0 34036 TRA QL980 * QO920 FP187070 | 34756 0074 00 4 10507 QO930 TSX T0010,4 QO930 FP187080 | 34757 -1 01004 2 14307 STR BB010,2,516 CHG SIZE GR THAN SF SIZE QO940 FP187090 | 34760 0074 00 4 30143 QP000 TSX VKD30,4 FILL ANY MISSING ADDR OF SELF QP000 FP187100 34761 -0500 00 0 67172 CAL HEADR QP005 FP187110 | 34762 0771 00 0 00006 ARS 6 * QP010 FP187120 | 34763 -0320 00 0 10755 ANA BCD30 * QP020 FP187130 | 34764 -0501 00 0 34771 ORA QP080 * QP030 FP187140 | 34765 0074 00 4 11547 TSX M0010,4 * QP040 FP187150 34766 -0520 00 0 14512 NZT BAE80 * QP050 FP187160 | 34767 0020 00 0 14403 TRA BB360 * QP060 FP187170 | 34770 0020 00 0 14341 TRA BB180 * QP070 FP187180 | 34771 520000440000 QP080 BCI 1,!00M00 * QP080 FP187190 | 34772 0441 00 0 14525 QP120 LDI BAC50 QP120 FP187200 34773 -0054 00 000001 LFT 000001 FP187210 | 34774 0020 00 0 14274 TRA BA968 FP187220 | 34775 0074 00 4 12507 TSX MSYSRD,4 FP187230 | 34776 114721230407 BCI 1,9PAC47 UPDSEL FP187240 | 34777 0 01645 0 32346 PZE VESEL,,VESEL-CLNHO-2 FP187250 35000 0 00000 0 00000 QAA10 PZE 0 CURRENT RECORD TYPE QAA10 FP187260 | 35001 0 00000 0 00000 QAA20 PZE 0 OPSTO QAA20 FP187270 | 35002 0 00000 0 00000 QAA30 PZE 0 C SF WORD NO QAA30 FP187280 | 35003 0 00000 0 00000 QAA40 PZE 0 U CF WORD NO QAA40 FP187290 | 1 LISTING OF 12/01/64 PAGE 387 UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | 35004 000000510000 QAA50 BCI 3,000R00000-00000+00 FLD ACTION QAA50 FP187300 | 35005 000000400000 | 35006 000000200000 35007 000000606060 QAA60 BCI 1,000 HALF BLANK WORD QAA60 FP187310 | 35010 0 00000 0 00001 QAA70 PZE 1 1 QAA70 FP187320 | 35011 0 00000 0 00000 QAA80 PZE 0 BIN CHG SIZE QAA80 FP187330 | 35012 0 00000 0 00044 QAA90 PZE 36 36 QAA90 FP187340 | 35013 0 00000 0 00000 QAB10 PZE 0 S.F. SIZE IN EQUIV BCD QAB10 FP187350 35014 0 00000 0 00000 QAB20 PZE 0 MASK QAB20 FP187360 | 35015 0 00000 0 00000 QAB30 PZE 0 STORAGE 1 QAB30 FP187370 | 35016 0 00000 0 00000 QAB40 PZE 0 STORAGE 2 QAB40 FP187380 | 35017 0 00000 0 00110 QAB50 PZE 72 72 QAB50 FP187390 | 35020 0 00000 0 00000 QAB60 PZE 0 STORAGE A QAB60 FP187400 35021 0 00000 0 00000 QAB70 PZE 0 STORAGE B QAB70 FP187410 | 35022 606060606060 QAB80 BCI 1, BLANK WORD QAB80 FP187420 | 35023 -377777777717 QAB90 OCT 777777777717 MASK FOR SIGN MANIP QAB90 FP187430 | 35024 0 00000 0 00002 QAC10 PZE 2 2 QAC10 FP187440 | 35025 0 00000 0 00000 QAC20 PZE 0 ACTION SW QAC20 FP187450 35026 0 00000 1 00000 QAC30 PZE 0,1 QAC30 FP187460 | 35027 000052000065 QAD10 BCI 1,00!00V QAD10 FP187470 | 35030 0 00000 0 00000 QAD20 PZE 0 REJ SORT CODE QAD20 FP187480 | 35031 0 00000 0 00000 QAD30 PZE 0 FLD= LOC FOR SADDR QAD40 FP187490 | 35032 0 00000 0 00007 QAD40 PZE 7 QAD50 FP187500 35033 0 00000 0 00002 QAD50 PZE 2 QAD60 FP187510 | 35034 0 00000 0 00003 QAD60 PZE 3 QAD60 FP187520 | 35035 0 00000 0 00010 QAD70 PZE 8 QAD70 FP187530 | 35036 000000006060 QAD80 BCI 1,0000 QAD80 FP187540 | 35037 000026000000 QAE01 BCI 1,00F000 QAE01 FP187550 35040 0 00000 0 00000 QAE10 PZE 0 F0080 FOR REJECTS QAE10 FP187560 | 35041 0 00000 0 00000 QAE20 PZE 0 QAE20 FP187570 | 35042 0 00000 0 00000 QAE30 PZE 0 QAE30 FP187580 | 35043 0 00000 0 00000 QAE40 PZE 0 QAE40 FP187590 | 35044 0 00000 0 00000 QAE50 PZE 0 QAE50 FP187600 35045 0 00000 0 00000 QAE60 PZE 0 QAE60 FP187610 | 35046 +000000077777 QAE70 OCT 77777 QAE70 FP187620 | 35047 0 00000 0 00000 QAE80 PZE 0 QAE80 FP187630 | 35050 0402 00 0 00000 QAE90 SUB .. QAE90 FP187640 | 35133 UWFLD BES 50 FP187650 00000 TCD 0 FP187660 | 1 LISTING OF 12/01/64 PAGE 388 | UPWFLD (9PAC46). UPDATE W/DICT FIELD FUNCTION | | * FP187680 1 LISTING OF 12/01/64 PAGE 389 | UPDSEL (9PAC47). UPDATE W/O DICT SELECT FUNCTION | | * FP187700 | * FP187710 30501 ORG CLNHO+2 UPDSEL FP187730 | * FP187740 | * FP187750 | * FP187760 | * UPDATE WITHOUT DICTIONARY SEL-NOT FUNCTION FP187770 * FP187780 | 30501 114721230407 BCI 1,9PAC47 FP187790 | 30502 644724622543 BCI 1,UPDSEL SEARCH CODE GQ000 FP187800 | 00100 ORG SYSTRA FP187810 | 00100 0020 00 0 31447 TRA GX320 FP187820 30503 ORG CLNHO+4 FP187830 | 30503 0020 00 0 31401 GQ010 TRA GX000 TO CLEAN UP GQ010 FP187840 | 30504 0441 00 0 04621 GQ011 LDI CARD FOR SEL-NOT TEST GQ011 FP187850 | 30505 0520 00 0 31452 ZET GQA10 TEST FOR 1ST SEL CARD GQ020 FP187860 | 30506 0020 00 0 30524 TRA GQ170 * NO GQ030 FP187870 30507 0760 00 0 00000 CLM BUILD FLIP FLOP OR FF GQ040 FP187880 | 30510 0074 00 4 11426 TSX STORR,4 * GQ050 FP187890 | 30511 -0500 00 0 11436 CAL G0080 * SAVE FF WO NO. GQ060 FP187900 | 30512 0621 00 0 31453 STA GQA20 * GQ070 FP187910 | 30513 -0500 00 0 11024 CAL BCD77 BUILD NON ZERO GQ080 FP187920 30514 0074 00 4 11426 TSX STORR,4 * GQ090 FP187930 | 30515 -0500 00 0 11436 CAL G0080 * SAVE NON ZERO WO NO. GQ100 FP187940 | 30516 0621 00 0 31454 STA GQA30 * GQ110 FP187950 | 30517 -0500 00 0 30521 CAL *+2 BUILD STZ FF GQ120 FP187960 | 30520 0074 00 4 11413 TSX PRGMR,4 * GQ130 FP187970 30521 0600 00 0 00000 STZ 0 * GQ140 FP187980 | 30522 -0500 00 0 31453 CAL GQA20 * GQ150 FP187990 | 30523 0074 00 4 11455 TSX SADDR+1,4 * GQ160 FP188000 | 30524 -0500 00 0 04622 GQ170 CAL CARD+1 CHG FLD LOC SIZE TO PREV GQ170 FP188010 | 30525 0560 00 0 04623 LDQ CARD+2 * GQ180 FP188020 30526 -0763 00 0 00022 LGL 18 * GQ190 FP188030 | 30527 -0340 00 0 31452 LAS GQA10 * GQ200 FP188040 | 30530 0020 00 0 30532 TRA *+2 * GQ210 FP188050 | 30531 0020 00 0 30647 TRA GQ940 * EQUAL GQ220 FP188060 | 30532 0602 00 0 31452 SLW GQA10 UPDATE PREV LOC-SIZE GQ230 FP188070 30533 0774 00 1 00012 AXT 10,1 HAS LOC-SIZE BEEN USED PREVGQ240 FP188080 | 30534 -0520 00 1 31467 GQ250 NZT GQA40+10,1 * GQ250 FP188090 | 30535 0020 00 0 30546 TRA GQ320 * NO GQ260 FP188100 | 30536 -0340 00 1 31467 LAS GQA40+10,1 * COMPARE TO TABLE GQ270 FP188110 | 30537 0020 00 0 30541 TRA *+2 * GQ280 FP188120 30540 0020 00 0 30544 TRA GQ315 GQ290 FP188130 | 30541 2 00001 1 30534 TIX GQ250,1,1 MODIFY TO NEXT ENTRY GQ300 FP188140 | 30542 0074 00 4 10507 TSX T0010,4 GQ305 FP188150 | 30543 -1 11646 5 00000 STR 0,5,5030 EXCEED 10 TESTED FLD,VER SEL TABLE GQ310 FP188160 | 30544 0074 00 4 10507 GQ315 TSX T0010,4 GQ315 FP188170 30545 -1 00630 2 14307 STR BB010,2,408 CHG FLD LOC-SIZE HAS BEEN USED GQ316 FP188180 | 30546 0602 00 1 31467 GQ320 SLW GQA40+10,1 UPDATE TABLE WITH NEW LOC SGQ320 FP188190 | 30547 -0520 00 0 31467 NZT GQA50 IS SEL SW ON GQ330 FP188200 | 30550 0020 00 0 30571 TRA GQ510 * NO-OFF GQ340 FP188210 | 30551 0600 00 0 31467 STZ GQA50 TURN OFF SEL SW GQ350 FP188220 30552 -0500 00 0 30554 CAL *+2 BUILD CLA FF GQ360 FP188230 | 30553 0074 00 4 11413 TSX PRGMR,4 * GQ370 FP188240 | 30554 0500 00 0 00000 CLA 0 * GQ380 FP188250 | 1 LISTING OF 12/01/64 PAGE 390 | UPDSEL (9PAC47). UPDATE W/O DICT SELECT FUNCTION | 30555 -0500 00 0 31453 CAL GQA20 * GQ390 FP188260 | 30556 0074 00 4 11455 TSX SADDR+1,4 * GQ400 FP188270 | 30557 -0500 00 0 30561 CAL *+2 BUILD TZE OUT GQ410 FP188280 | 30560 0074 00 4 11413 TSX PRGMR,4 * GQ420 FP188290 30561 0100 00 0 00000 TZE 0 * GQ430 FP188300 | 30562 0074 00 4 30054 TSX VKD01,4 GQ440 FP188310 | 30563 0074 00 4 11477 TSX GADDR,4 * GQ450 FP188320 | 30564 -0500 00 0 30566 CAL *+2 BUILD STZ FF GQ460 FP188330 | 30565 0074 00 4 11413 TSX PRGMR,4 * GQ470 FP188340 30566 0600 00 0 00000 STZ 0 * GQ480 FP188350 | 30567 -0500 00 0 31453 CAL GQA20 * GQ490 FP188360 | 30570 0074 00 4 11455 TSX SADDR+1,4 * GQ500 FP188370 | 30571 -0500 00 0 31452 GQ510 CAL GQA10 CONVERT SIZE TO BINARY GQ510 FP188380 | 30572 -0320 00 0 10734 ANA BCD07 * GQ520 FP188390 30573 0602 00 0 07751 SLW B1020 * GQ530 FP188400 | 30574 0074 00 4 07572 TSX B0012,4 GQ540 FP188410 | 30575 0500 00 0 07747 CLA B1000 STORE SIZE GQ560 FP188420 | 30576 0601 00 0 31471 STO GQA70 * GQ570 FP188430 | 30577 -0500 00 0 04622 CAL CARD+1 CONVERT INCR TO BINARY GQ580 FP188440 30600 -0320 00 0 10734 ANA BCD07 * GQ581 FP188450 | 30601 0602 00 0 07751 SLW B1020 * GQ590 FP188460 | 30602 0074 00 4 07572 TSX B0012,4 GQ600 FP188470 | 30603 0774 00 1 00000 AXT 0,1 INIT XR1 TO 0 GQ620 FP188480 | 30604 0534 00 4 07747 LXA B1000,4 INIT XR4 TO INCR GQ630 FP188490 30605 2 00044 4 30611 GQ640 TIX GQ680,4,36 CALC WD NO. AND BIT NO. GQ640 FP188500 | 30606 3 00043 4 30610 TXH *+2,4,35 * GQ650 FP188510 | 30607 0020 00 0 30612 TRA GQ690 * GQ660 FP188520 | 30610 0774 00 4 00000 AXT 0,4 * GQ670 FP188530 | 30611 1 00001 1 30605 GQ680 TXI GQ640,1,1 * GQ680 FP188540 30612 0634 00 1 31472 GQ690 SXA GQA80,1 STORE WD NO. OR U GQ690 FP188550 | 30613 0634 00 1 31522 SXA GQD50,1 STORE U IN AUX STORAGE GQ691 FP188560 | 30614 0634 00 4 31473 SXA GQA90,4 STORE BIT NO. GQ700 FP188570 | 30615 0500 00 0 31474 CLA GQB10 CALC SHIFT GQ710 FP188580 | 30616 0402 00 0 31473 SUB GQA90 * 18-BIT NO. GQ720 FP188590 30617 0534 00 1 31526 LXA GQD70,1 * CARD +2 GQ721 FP188600 | 30620 0120 00 0 30623 TPL GQ780 IS SHIFT NEG GQ730 FP188610 | 30621 1 77777 1 30622 TXI *+1,1,-1 * GQ750 FP188620 | 30622 0400 00 0 31476 ADD GQB30 ADD 36 TO SHIFT GQ770 FP188630 | 30623 0621 00 0 31477 GQ780 STA GQB40 INIT SHIFT GQ780 FP188640 30624 0621 00 0 31523 STA GQD51 SHIFT TO AUX STORAGE GQ781 FP188650 | 30625 0634 00 1 31475 SXA GQB20,1 INIT 1ST WD PICK UP GQ782 FP188660 | 30626 0634 00 1 31524 SXA GQD52,1 1ST WD PICK UP TO AUX STORAGQ783 FP188670 | 30627 0500 00 0 31473 CLA GQA90 INIT ARS FOR MASK WITH BIT GQ790 FP188680 | 30630 0621 00 0 30632 STA *+2 * GQ801 FP188690 30631 -0500 00 0 11024 CAL BCD77 BUILD LEFT MASK GQ811 FP188700 | 30632 0771 00 0 00000 ARS 0 * GQ821 FP188710 | 30633 0602 00 0 31500 SLW GQB50 * GQ831 FP188720 | 30634 0500 00 0 31471 CLA GQA70 INIT XR1 WITH SIZE + BIT NOGQ841 FP188730 | 30635 0400 00 0 31473 ADD GQA90 * GQ851 FP188740 30636 0601 00 0 31501 STO GQB60 * GQ861 FP188750 | 30637 0734 00 1 00000 PAX 0,1 * GQ871 FP188760 | 30640 2 00044 1 30640 TIX *,1,36 CALC ARS FOR RT MASK GQ881 FP188770 | 30641 0634 00 1 30643 SXA *+2,1 INIT ARS GQ891 FP188780 | 30642 -0500 00 0 11024 CAL BCD77 BUILD RT MASK GQ901 FP188790 30643 0771 00 0 00000 ARS 0 * GQ911 FP188800 | 1 LISTING OF 12/01/64 PAGE 391 | UPDSEL (9PAC47). UPDATE W/O DICT SELECT FUNCTION | | 30644 0760 00 0 00006 COM * GQ921 FP188810 30645 0602 00 0 31502 SLW GQB70 * GQ931 FP188820 | 30646 0020 00 0 30653 TRA GQ944 GQ932 FP188830 | 30647 -0500 00 0 31523 GQ940 CAL GQD51 RESTORE LGL GQ940 FP188840 | 30650 0621 00 0 31477 STA GQB40 * GQ941 FP188850 | 30651 -0500 00 0 31524 CAL GQD52 RESTORE 1ST WD PICK UP ADDRGQ942 FP188860 30652 0621 00 0 31475 STA GQB20 * GQ943 FP188870 | 30653 -0774 00 1 04624 GQ944 AXC CARD+3,1 LOCATE HYPHEN FOR RANGE TEST GQ944 FP188880 | 30654 0500 00 0 31471 CLA GQA70 * SIZE GQ951 FP188890 | 30655 0400 00 0 31503 ADD GQB80 * 24 GQ961 FP188900 | 30656 0402 00 0 31476 GQ970 SUB GQB30 * 36 GQ971 FP188910 30657 -0120 00 0 30662 TMI GR010 * GQ981 FP188920 | 30660 0100 00 0 30662 TZE GR010 * GQ991 FP188930 | 30661 1 77777 1 30656 TXI GQ970,1,-1 * GR000 FP188940 | 30662 0621 00 0 30664 GR010 STA *+2 INIT ARS OF HYPHEN GR010 FP188950 | 30663 -0500 00 1 00000 CAL 0,1 LOAD HYPHEN WORD GR020 FP188960 30664 0771 00 0 00000 GR030 ARS 0 * GR030 FP188970 | 30665 -0320 00 0 10726 ANA BCD01 * GR040 FP188980 | 30666 0634 00 1 31504 SXA GQB90,1 SAVE XR1 GR060 FP188990 | 30667 0534 00 1 31501 LXA GQB60,1 ONE WORD VALUE OR MUL GR070 FP189000 | 30670 3 00044 1 30733 TXH GR420,1,36 * TRANSFER IF MUL GR080 FP189010 30671 -0340 00 0 31470 LAS GQA60 RANGE TEST GR090 FP189020 | 30672 0020 00 0 30676 TRA GR130 * SINGLE VALUE GR100 FP189030 | 30673 0020 00 0 30771 TRA GR710 * RANGE GR110 FP189040 | 30674 0074 00 4 10507 TSX T0010,4 GR115 FP189050 | 30675 -1 00631 2 14307 STR BB010,2,409 NOT A HYPHEN OR A BLANK GR120 FP189060 30676 0054 00 000001 GR130 RFT 1 SEL OR NOT TEST GR130 FP189070 | 30677 0020 00 0 30724 TRA GR350 * NOT GR140 FP189080 | 30700 0500 00 0 31511 CLA GQC50 INIT. REL. TRANSFERS GR150 FP189090 | 30701 0601 00 0 31516 STO GQD10 * 5 TO HIGH GR160 FP189100 | 30702 0500 00 0 31506 CLA GQC20 * GR170 FP189110 30703 0601 00 0 31517 STO GQD20 * 2 TO EQUAL GR180 FP189120 | 30704 0500 00 0 31507 CLA GQC30 * GR190 FP189130 | 30705 0601 00 0 31520 STO GQD30 * 3 TO LOW GR200 FP189140 | 30706 0074 00 4 31075 TSX GT000,4 GEN 1 WD COMPARE PKG GR210 FP189150 | 30707 -0500 00 0 30711 GR220 CAL *+2 BUILD CLA NON ZERO GR220 FP189160 30710 0074 00 4 11413 TSX PRGMR,4 * GR230 FP189170 | 30711 0500 00 0 00000 CLA 0 * GR240 FP189180 | 30712 -0500 00 0 31454 CAL GQA30 * GR250 FP189190 | 30713 0074 00 4 11455 TSX SADDR+1,4 * GR260 FP189200 | 30714 -0500 00 0 30716 CAL *+2 BUILD STO FF GR270 FP189210 30715 0074 00 4 11413 TSX PRGMR,4 * GR280 FP189220 | 30716 0601 00 0 00000 STO 0 * GR290 FP189230 | 30717 -0500 00 0 31453 CAL GQA20 * GR300 FP189240 | 30720 0074 00 4 11455 TSX SADDR+1,4 * GR310 FP189250 | 30721 -0500 00 0 11024 CAL BCD77 TURN ON SEL SW GR320 FP189260 30722 0602 00 0 31467 SLW GQA50 * GR330 FP189270 | 30723 0020 00 0 14307 TRA BB010 TO FUNC CONTROL GR340 FP189280 | 30724 0500 00 0 31507 GR350 CLA GQC30 INIT REL TRANSFERS FOR NOT GR350 FP189290 | 30725 0601 00 0 31516 STO GQD10 * 3 TO HIGH GR360 FP189300 | 30726 0600 00 0 31517 STZ GQD20 * 0 TO EQUAL GR370 FP189310 30727 0500 00 0 31505 CLA GQC10 * GR380 FP189320 | 30730 0601 00 0 31520 STO GQD30 * 1 TO LOW GR390 FP189330 | 30731 0074 00 4 31075 TSX GT000,4 GEN 1 WD COMPARE PKG GR400 FP189340 | 30732 0020 00 0 14307 TRA BB010 TO FUNC CONTROL GR410 FP189350 | 1 LISTING OF 12/01/64 PAGE 392 UPDSEL (9PAC47). UPDATE W/O DICT SELECT FUNCTION | | 30733 0774 00 1 00000 GR420 AXT 0,1 CALC 5N-N IS MIDDLE WDS GR420 FP189360 | 30734 0534 00 4 31501 LXA GQB60,4 * SIZE + BIT NO. TO XR4 GR430 FP189370 | 30735 1 77734 4 30736 TXI *+1,4,-36 * GR440 FP189380 30736 -2 00044 4 30740 TNX *+2,4,36 * GR450 FP189390 | 30737 1 00005 1 30736 TXI *-1,1,5 * GR460 FP189400 | 30740 0634 00 1 31521 SXA GQD40,1 * STORE 5N GR470 FP189410 | 30741 -0340 00 0 31470 LAS GQA60 RANGE TEST GR480 FP189420 | 30742 0020 00 0 30746 TRA GR520 * SINGLE VALUE GR490 FP189430 30743 0020 00 0 31030 TRA GS240 * RANGE GR500 FP189440 | 30744 0074 00 4 10507 TSX T0010,4 GR505 FP189450 | 30745 -1 00632 2 14307 STR BB010,2,410 NOT A HYPHEN OR A BLANK GR510 FP189460 | 30746 0054 00 000001 GR520 RFT 1 SEL OR NOT TEST GR520 FP189470 | 30747 0020 00 0 30761 TRA GR630 * NOT GR530 FP189480 30750 0500 00 0 31521 CLA GQD40 INIT REL TRANS-MUL WD VAL GR540 FP189490 | 30751 0400 00 0 31515 ADD GQC90 GR550 FP189500 | 30752 0601 00 0 31520 STO GQD30 * 5N+9 TO LOW GR560 FP189510 | 30753 0400 00 0 31506 ADD GQC20 * GR570 FP189520 | 30754 0601 00 0 31516 STO GQD10 * 5N+11 TO HIGH GR580 FP189530 30755 0500 00 0 31506 CLA GQC20 * GR590 FP189540 | 30756 0601 00 0 31517 STO GQD20 * 2 TO EQ GR600 FP189550 | 30757 0074 00 4 31156 TSX GU000,4 GEN MUL WD PKG COMPARE GR610 FP189560 | 30760 0020 00 0 30707 TRA GR220 GR620 FP189570 | 30761 0500 00 0 31521 GR630 CLA GQD40 INIT REL TRANS-MUL WD VAL NGR630 FP189580 30762 0400 00 0 31513 ADD GQC70 * GR640 FP189590 | 30763 0601 00 0 31520 STO GQD30 * 5N+7 TO LOW GR650 FP189600 | 30764 0400 00 0 31506 ADD GQC20 * GR660 FP189610 | 30765 0601 00 0 31516 STO GQD10 * 5N+9 TO HIGH GR670 FP189620 | 30766 0600 00 0 31517 STZ GQD20 * 0 TO EQ GR680 FP189630 30767 0074 00 4 31156 TSX GU000,4 GEN MUL WD PKG COMPARE GR690 FP189640 | 30770 0020 00 0 14307 TRA BB010 TO FUNC CONTROL GR700 FP189650 | 30771 0054 00 000001 GR710 RFT 1 SET OR NOT TEST GR710 FP189660 | 30772 0020 00 0 31013 TRA GR990 * NOT GR720 FP189670 | 30773 0500 00 0 31507 CLA GQC30 INIT REL TRANS-1 WD RANGE SGR730 FP189680 30774 0601 00 0 31516 STO GQD10 * 3 TO HIGH GR740 FP189690 | 30775 0500 00 0 31514 CLA GQC80 * GR750 FP189700 | 30776 0601 00 0 31517 STO GQD20 * 8 TO EQ GR760 FP189710 | 30777 0500 00 0 31515 CLA GQC90 * GR770 FP189720 | 31000 0601 00 0 31520 STO GQD30 * 9 TO LOW GR780 FP189730 31001 0074 00 4 31075 TSX GT000,4 GEN 1 WD COMPARE PKG GR790 FP189740 | 31002 0074 00 4 31365 TSX GW000,4 MODIFY TO HIGH VALUE OF RANGR800 FP189750 | 31003 0500 00 0 31511 CLA GQC50 INIT. REL. TRANS-H1 VAL 1 WGR910 FP189760 | 31004 0601 00 0 31516 STO GQD10 * 5 TO HIGH GR920 FP189770 | 31005 0500 00 0 31506 CLA GQC20 * GR930 FP189780 31006 0601 00 0 31517 STO GQD20 * 2 TO EQUAL GR940 FP189790 | 31007 0500 00 0 31505 CLA GQC10 * GR950 FP189800 | 31010 0601 00 0 31520 STO GQD30 * 1 TO LOW GR960 FP189810 | 31011 0074 00 4 31075 TSX GT000,4 GEN 1 WD COMPARE PKG GR970 FP189820 | 31012 0020 00 0 30707 TRA GR220 GR980 FP189830 31013 0500 00 0 31507 GR990 CLA GQC30 INIT TRANS-1 WD RANGE NOT GR990 FP189840 | 31014 0601 00 0 31516 STO GQD10 * 3 TO HIGH GS000 FP189850 | 31015 0600 00 0 31517 STZ GQD20 * 0 TO EQ GS010 FP189860 | 31016 0500 00 0 31513 CLA GQC70 * GS020 FP189870 | 31017 0601 00 0 31520 STO GQD30 * 7 TO LOW GS030 FP189880 31020 0074 00 4 31075 TSX GT000,4 GEN 1 WD COMPARE PKG GS040 FP189890 | 31021 0074 00 4 31365 TSX GW000,4 MODIFY TO HIGH VALUE-1 WD NGS050 FP189900 | 1 LISTING OF 12/01/64 PAGE 393 | UPDSEL (9PAC47). UPDATE W/O DICT SELECT FUNCTION | 31022 0500 00 0 31507 CLA GQC30 INIT REL TRANS-1 WD NOT HIGGS160 FP189910 | 31023 0601 00 0 31516 STO GQD10 * 3 TO HIGH GS170 FP189920 | 31024 0600 00 0 31517 STZ GQD20 * 0 TO EQ GS180 FP189930 | 31025 0600 00 0 31520 STZ GQD30 * 0 TO LOW GS190 FP189940 | 31026 0074 00 4 31075 TSX GT000,4 GEN 1 WD COMPARE PKG GS200 FP189950 31027 0020 00 0 14307 TRA BB010 TO FUNC CONTROL GS210 FP189960 | 31030 0054 00 000001 GS240 RFT 1 SEL OR NOT TEST GS240 FP189970 | 31031 0020 00 0 31055 TRA GS570 * NOT GS250 FP189980 | 31032 0500 00 0 31521 CLA GQD40 INIT REL TRANS-MUL WD RANGEGS260 FP189990 | 31033 0400 00 0 31515 ADD GQC90 * GS270 FP190000 31034 0601 00 0 31516 STO GQD10 * 5N+9 TO HIGH GS280 FP190010 | 31035 0400 00 0 31511 ADD GQC50 * GS290 FP190020 | 31036 0601 00 0 31517 STO GQD20 * 5N+14 TO EQ GS300 FP190030 | 31037 0400 00 0 31513 ADD GQC70 * GS310 FP190040 | 31040 0400 00 0 31521 ADD GQD40 * GS320 FP190050 31041 0601 00 0 31520 STO GQD30 * 10N+21 TO LOW GS330 FP190060 | 31042 0074 00 4 31156 TSX GU000,4 GEN MUL WD COMP PKG GS340 FP190070 | 31043 0074 00 4 31365 TSX GW000,4 MODIFY TO HIGH VAL-MUL WD RGS350 FP190080 | 31044 0500 00 0 31521 CLA GQD40 INIT REL TRANS.-H1 VAL MUL GS480 FP190090 | 31045 0400 00 0 31513 ADD GQC70 * GS490 FP190100 31046 0601 00 0 31520 STO GQD30 * 5N+7 TO LOW GS500 FP190110 | 31047 0400 00 0 31527 ADD GQD80 4 GS510 FP190120 | 31050 0601 00 0 31516 STO GQD10 * 5N+11 TO HIGH GS520 FP190130 | 31051 0500 00 0 31506 CLA GQC20 * GS530 FP190140 | 31052 0601 00 0 31517 STO GQD20 * 2 TO EQ GS540 FP190150 31053 0074 00 4 31156 TSX GU000,4 GEN MUL WD COMPARE PKG GS550 FP190160 | 31054 0020 00 0 30707 TRA GR220 GS560 FP190170 | 31055 0500 00 0 31521 GS570 CLA GQD40 INIT REL TRANS-MUL WD RGE NGS570 FP190180 | 31056 0400 00 0 31515 ADD GQC90 * GS580 FP190190 | 31057 0601 00 0 31516 STO GQD10 * 5N+9 TO HIGH GS590 FP190200 31060 0400 00 0 31521 ADD GQD40 * GS600 FP190210 | 31061 0400 00 0 31525 ADD GQD60 * GS610 FP190220 | 31062 0601 00 0 31520 STO GQD30 * 10N+19 TO LOW GS620 FP190230 | 31063 0600 00 0 31517 STZ GQD20 * 0 TO EQ GS630 FP190240 | 31064 0074 00 4 31156 TSX GU000,4 GEN MUL WS COMP PKG GS640 FP190250 31065 0074 00 4 31365 TSX GW000,4 MODIFY TO H1 VAL-MUL WD NOTGS650 FP190260 | 31066 0500 00 0 31521 CLA GQD40 INIT REL TRANS-H1 VAL MUL WGS780 FP190270 | 31067 0400 00 0 31515 ADD GQC90 * GS790 FP190280 | 31070 0601 00 0 31516 STO GQD10 * 5N+9 TO HIGH GS800 FP190290 | 31071 0600 00 0 31517 STZ GQD20 * 0 TO EQ GS810 FP190300 31072 0600 00 0 31520 STZ GQD30 * 0 TO LOW GS820 FP190310 | 31073 0074 00 4 31156 TSX GU000,4 GEN MUL WD COMP PKG GS830 FP190320 | 31074 0020 00 0 14307 TRA BB010 TO FUNC CONTROL GS840 FP190330 | 31075 0634 00 4 31154 GT000 SXA GT470,4 GENERATE ONE WORD COMPARE PGT000 FP190340 | 31076 0535 00 1 31475 LAC GQB20,1 INIT XR1 WITH COMPL OF 1ST GT010 FP190350 31077 -0500 00 0 31502 CAL GQB70 COMBINE MASKS GT020 FP190360 | 31100 0320 00 0 31500 ANS GQB50 * GT030 FP190370 | 31101 -0500 00 0 31500 CAL GQB50 MASK TO OBJECT STOR GT040 FP190380 | 31102 0074 00 4 11426 TSX STORR,4 * GT050 FP190390 | 31103 0500 00 0 31472 CLA GQA80 BUILD CAL U,1 GT060 FP190400 31104 -0501 00 0 31106 ORA *+2 * GT070 FP190410 | 31105 0074 00 4 11413 TSX PRGMR,4 * GT080 FP190420 | 31106 -0500 00 1 00000 CAL 0,1 * GT090 FP190430 | 31107 -0500 00 0 31111 CAL *+2 BUILD ANA MASK GT100 FP190440 | 31110 0074 00 4 11413 TSX PRGMR,4 * GT110 FP190450 1 LISTING OF 12/01/64 PAGE 394 | UPDSEL (9PAC47). UPDATE W/O DICT SELECT FUNCTION | | 31111 -0320 00 0 00000 ANA 0 * GT120 FP190460 | 31112 0074 00 4 11454 TSX SADDR,4 * GT130 FP190470 31113 -0500 00 1 00000 CAL 0,1 LOAD SEL VALUE GT140 FP190480 | 31114 1 77777 1 31115 TXI *+1,1,-1 * GT150 FP190490 | 31115 0560 00 1 00000 LDQ 0,1 * GT160 FP190500 | 31116 0522 00 0 31477 XEC GQB40 * GT170 FP190510 | 31117 -0320 00 0 31500 ANA GQB50 * GT180 FP190520 31120 0074 00 4 11426 TSX STORR,4 SEL VALUE TO STORR GT190 FP190530 | 31121 -0500 00 0 31123 CAL *+2 BUILD LAS SEL VAL GT200 FP190540 | 31122 0074 00 4 11413 TSX PRGMR,4 * GT210 FP190550 | 31123 -0340 00 0 00000 LAS 0 * GT220 FP190560 | 31124 0074 00 4 11454 TSX SADDR,4 * GT230 FP190570 31125 -0500 00 0 31127 CAL *+2 BUILD TRA H1 REL GT240 FP190580 | 31126 0074 00 4 11413 TSX PRGMR,4 * GT250 FP190590 | 31127 0020 00 0 00000 TRA 0 * GT260 FP190600 | 31130 0500 00 0 31516 CLA GQD10 * GT270 FP190610 | 31131 0074 00 4 11465 TSX PADDR,4 * GT280 FP190620 31132 -0500 00 0 31134 CAL *+2 BUILD TRA ON EQ GT290 FP190630 | 31133 0074 00 4 11413 TSX PRGMR,4 * GT300 FP190640 | 31134 0020 00 0 00000 TRA 0 * GT310 FP190650 | 31135 0500 00 0 31517 CLA GQD20 IS EQ REL ZERO GT320 FP190660 | 31136 0100 00 0 31141 TZE GT360 * GT330 FP190670 31137 0074 00 4 11465 TSX PADDR,4 NO-USE REL GT340 FP190680 | 31140 0020 00 0 31143 TRA GT380 GT350 FP190690 | 31141 0074 00 4 30054 GT360 TSX VKD01,4 GT360 FP190700 | 31142 0074 00 4 11477 TSX GADDR,4 GT370 FP190710 | 31143 -0500 00 0 31145 GT380 CAL *+2 BUILD TRA ON LOW GT380 FP190720 31144 0074 00 4 11413 TSX PRGMR,4 * GT390 FP190730 | 31145 0020 00 0 00000 TRA 0 * GT400 FP190740 | 31146 0500 00 0 31520 CLA GQD30 IS LOW REL ZERO GT410 FP190750 | 31147 0100 00 0 31152 TZE GT450 * YES GT420 FP190760 | 31150 0074 00 4 11465 TSX PADDR,4 NO-USE REL GT430 FP190770 31151 0020 00 0 31154 TRA GT470 GT440 FP190780 | 31152 0074 00 4 30054 GT450 TSX VKD01,4 GT450 FP190790 | 31153 0074 00 4 11477 TSX GADDR,4 GT460 FP190800 | 31154 0774 00 4 00000 GT470 AXT 0,4 SET UP EXIT GT470 FP190810 | 31155 0020 00 4 00001 TRA 1,4 RETURN GT480 FP190820 31156 0634 00 4 31362 GU000 SXA GV300,4 GU000 FP190830 | 31157 0634 00 2 31363 SXA GV300+1,2 GV001 FP190840 | 31160 0535 00 1 31475 LAC GQB20,1 INIT XR1 WITH COMPL OF 1ST GU010 FP190850 | 31161 0534 00 2 31501 LXA GQB60,2 INIT XR2 WITH SIZE+BIT NO-3GU020 FP190860 | 31162 1 77734 2 31163 TXI *+1,2,-36 * GU030 FP190870 31163 -0500 00 0 31500 CAL GQB50 LEFT MASK TO STORR GU040 FP190880 | 31164 0074 00 4 11426 TSX STORR,4 * GU050 FP190890 | 31165 0500 00 0 31522 CLA GQD50 RESTORE U GU060 FP190900 | 31166 0601 00 0 31472 STO GQA80 * GU061 FP190910 | 31167 -0501 00 0 31171 ORA *+2 BUILD CAL U,1 GU062 FP190920 31170 0074 00 4 11413 TSX PRGMR,4 * GU080 FP190930 | 31171 -0500 00 1 00000 CAL 0,1 * GU090 FP190940 | 31172 -0500 00 0 31174 CAL *+2 BUILD ANA MASK GU100 FP190950 | 31173 0074 00 4 11413 TSX PRGMR,4 * GU110 FP190960 | 31174 -0320 00 0 00000 ANA 0 * GU120 FP190970 31175 0074 00 4 11454 TSX SADDR,4 * GU130 FP190980 | 31176 -0500 00 1 00000 CAL 0,1 LOAD 1ST WD OF COMP VALUE GU140 FP190990 | 31177 1 77777 1 31200 TXI *+1,1,-1 * GU150 FP191000 | 1 LISTING OF 12/01/64 PAGE 395 | UPDSEL (9PAC47). UPDATE W/O DICT SELECT FUNCTION | 31200 0560 00 1 00000 LDQ 0,1 * GU160 FP191010 | 31201 0522 00 0 31477 XEC GQB40 * SHIFT GU170 FP191020 | 31202 -0320 00 0 31500 ANA GQB50 * GU180 FP191030 | 31203 0074 00 4 11426 TSX STORR,4 SEL VALUE TO STORR GU190 FP191040 31204 -0500 00 0 31206 CAL *+2 BUILD LAS SEL VAL GU200 FP191050 | 31205 0074 00 4 11413 TSX PRGMR,4 * GU210 FP191060 | 31206 -0340 00 0 00000 LAS 0 * GU220 FP191070 | 31207 0074 00 4 11454 TSX SADDR,4 * GU230 FP191080 | 31210 -0500 00 0 31212 CAL *+2 BUILD TRA H1 REL GU240 FP191090 31211 0074 00 4 11413 TSX PRGMR,4 * GU250 FP191100 | 31212 0020 00 0 00000 TRA 0 * GU260 FP191110 | 31213 0500 00 0 31516 CLA GQD10 * GU270 FP191120 | 31214 0074 00 4 11465 TSX PADDR,4 * GU280 FP191130 | 31215 -0500 00 0 31217 CAL *+2 BUILD TRA *+2 GU290 FP191140 31216 0074 00 4 11413 TSX PRGMR,4 * GU300 FP191150 | 31217 0020 00 0 00000 TRA 0 * GU310 FP191160 | 31220 0500 00 0 31506 CLA GQC20 * GU320 FP191170 | 31221 0074 00 4 11465 TSX PADDR,4 * GU330 FP191180 | 31222 -0500 00 0 31224 CAL *+2 BUILD TRA ON LOW GU340 FP191190 31223 0074 00 4 11413 TSX PRGMR,4 * GU350 FP191200 | 31224 0020 00 0 00000 TRA 0 * GU360 FP191210 | 31225 0500 00 0 31520 CLA GQD30 IS LOW REL ZERO GU370 FP191220 | 31226 0100 00 0 31231 TZE GU410 * YES GU380 FP191230 | 31227 0074 00 4 11465 TSX PADDR,4 USE REL GU390 FP191240 31230 0020 00 0 31233 TRA GU430 GU400 FP191250 | 31231 0074 00 4 30054 GU410 TSX VKD01,4 GU410 FP191260 | 31232 0074 00 4 11477 TSX GADDR,4 * GU420 FP191270 | 31233 -2 00044 2 31303 GU430 TNX GU830,2,36 REF. B-TEST FOR MIDDLE WORDGU430 FP191280 | 31234 0500 00 0 31472 CLA GQA80 UPDATE U GU440 FP191290 31235 0400 00 0 31505 ADD GQC10 * GU450 FP191300 | 31236 0601 00 0 31472 STO GQA80 * GU460 FP191310 | 31237 -0501 00 0 31241 ORA *+2 BUILD CALU,1 GU470 FP191320 | 31240 0074 00 4 11413 TSX PRGMR,4 * GU480 FP191330 | 31241 -0500 00 1 00000 CAL 0,1 * GU490 FP191340 31242 -0500 00 1 00000 CAL 0,1 LOAD NEXT WD OF SEL VAL GU500 FP191350 | 31243 1 77777 1 31244 TXI *+1,1,-1 * GU510 FP191360 | 31244 0560 00 1 00000 LDQ 0,1 * GU520 FP191370 | 31245 0522 00 0 31477 XEC GQB40 * SHIFT GU530 FP191380 | 31246 0074 00 4 11426 TSX STORR,4 SEL VAL TO STORR GU540 FP191390 31247 -0500 00 0 31251 CAL *+2 BUILD LAS SEL VAL GU550 FP191400 | 31250 0074 00 4 11413 TSX PRGMR,4 * GU560 FP191410 | 31251 -0340 00 0 00000 LAS 0 * GU570 FP191420 | 31252 0074 00 4 11454 TSX SADDR,4 * GU580 FP191430 | 31253 -0500 00 0 31255 CAL *+2 BUILD TRA ON HIGH GU590 FP191440 31254 0074 00 4 11413 TSX PRGMR,4 * GU600 FP191450 | 31255 0020 00 0 00000 TRA 0 * GU610 FP191460 | 31256 0500 00 0 31516 CLA GQD10 DECR H1 REL BY 5 GU620 FP191470 | 31257 0402 00 0 31511 SUB GQC50 * GU630 FP191480 | 31260 0601 00 0 31516 STO GQD10 * GU640 FP191490 31261 0074 00 4 11465 TSX PADDR,4 USE REL HIGH GU650 FP191500 | 31262 -0500 00 0 31264 CAL *+2 BUILD TRA *+2 GU660 FP191510 | 31263 0074 00 4 11413 TSX PRGMR,4 * GU670 FP191520 | 31264 0020 00 0 00000 TRA 0 * GU680 FP191530 | 31265 0500 00 0 31506 CLA GQC20 * GU690 FP191540 31266 0074 00 4 11465 TSX PADDR,4 * GU700 FP191550 | 1 LISTING OF 12/01/64 PAGE 396 | UPDSEL (9PAC47). UPDATE W/O DICT SELECT FUNCTION | | 31267 -0500 00 0 31271 CAL *+2 BUILD TRA ON LOW GU710 FP191560 31270 0074 00 4 11413 TSX PRGMR,4 * GU720 FP191570 | 31271 0020 00 0 00000 TRA 0 * GU730 FP191580 | 31272 0500 00 0 31520 CLA GQD30 IS LOW REL ZERO GU740 FP191590 | 31273 0100 00 0 31300 TZE GU800 * YES GU750 FP191600 | 31274 0402 00 0 31511 SUB GQC50 DECR LOW REL BY 5 GU760 FP191610 31275 0601 00 0 31520 STO GQD30 * GU770 FP191620 | 31276 0074 00 4 11465 TSX PADDR,4 USE LOW REL GU780 FP191630 | 31277 0020 00 0 31233 TRA GU430 TO REF B GU790 FP191640 | 31300 0074 00 4 30054 GU800 TSX VKD01,4 GU800 FP191650 | 31301 0074 00 4 11477 TSX GADDR,4 * GU810 FP191660 31302 0020 00 0 31233 TRA GU430 TO REF B GU820 FP191670 | 31303 -0500 00 0 31502 GU830 CAL GQB70 REF-DRIGHT WD PROCESS GU830 FP191680 | 31304 0074 00 4 11426 TSX STORR,4 RT MASK TO STORR GU840 FP191690 | 31305 0500 00 0 31472 CLA GQA80 UPDATE U BY 1 GU850 FP191700 | 31306 0400 00 0 31505 ADD GQC10 * GU860 FP191710 31307 0601 00 0 31472 STO GQA80 * GU870 FP191720 | 31310 -0501 00 0 31312 ORA *+2 BUILD CAL U,1 GU880 FP191730 | 31311 0074 00 4 11413 TSX PRGMR,4 * GU890 FP191740 | 31312 -0500 00 1 00000 CAL 0,1 * GU900 FP191750 | 31313 -0500 00 0 31315 CAL *+2 BUILD ANA RT MASK GU910 FP191760 31314 0074 00 4 11413 TSX PRGMR,4 * GU920 FP191770 | 31315 -0320 00 0 00000 ANA 0 * GU930 FP191780 | 31316 0074 00 4 11454 TSX SADDR,4 * GU940 FP191790 | 31317 -0500 00 1 00000 CAL 0,1 LOAD RT WD OF SEL VAL GU950 FP191800 | 31320 1 77777 1 31321 TXI *+1,1,-1 * GU960 FP191810 31321 0560 00 1 00000 LDQ 0,1 * GU970 FP191820 | 31322 0522 00 0 31477 XEC GQB40 * SHIFT GU980 FP191830 | 31323 -0320 00 0 31502 ANA GQB70 * GU990 FP191840 | 31324 0074 00 4 11426 TSX STORR,4 SEL VALUE TO STORR GV000 FP191850 | 31325 -0500 00 0 31327 CAL *+2 BUILD LAS SEL VAL GV010 FP191860 31326 0074 00 4 11413 TSX PRGMR,4 * GV020 FP191870 | 31327 -0340 00 0 00000 LAS 0 * GV030 FP191880 | 31330 0074 00 4 11454 TSX SADDR,4 * GV040 FP191890 | 31331 -0500 00 0 31333 CAL *+2 BUILD TRA ON H1 GV050 FP191900 | 31332 0074 00 4 11413 TSX PRGMR,4 * GV060 FP191910 31333 0020 00 0 00000 TRA 0 * GV070 FP191920 | 31334 0500 00 0 31516 CLA GQD10 DECR H1 REL BY 6 GV080 FP191930 | 31335 0402 00 0 31512 SUB GQC60 * GV090 FP191940 | 31336 0074 00 4 11465 TSX PADDR,4 USE H1 REL GV100 FP191950 | 31337 -0500 00 0 31341 CAL *+2 BUILD TRA ON EQ GV110 FP191960 31340 0074 00 4 11413 TSX PRGMR,4 * GV120 FP191970 | 31341 0020 00 0 00000 TRA 0 * GV130 FP191980 | 31342 0500 00 0 31517 CLA GQD20 IS EQ REL ZERO GV140 FP191990 | 31343 0100 00 0 31346 TZE GV180 * YES GV150 FP192000 | 31344 0074 00 4 11465 TSX PADDR,4 USE EQ REL GV160 FP192010 31345 0020 00 0 31350 TRA GV200 GV170 FP192020 | 31346 0074 00 4 30054 GV180 TSX VKD01,4 GV180 FP192030 | 31347 0074 00 4 11477 TSX GADDR,4 * GV190 FP192040 | 31350 -0500 00 0 31352 GV200 CAL *+2 BUILD TRA ON LOW GV200 FP192050 | 31351 0074 00 4 11413 TSX PRGMR,4 * GV210 FP192060 31352 0020 00 0 00000 TRA 0 * GV220 FP192070 | 31353 0500 00 0 31520 CLA GQD30 IS LOW REL ZERO GV230 FP192080 | 31354 0100 00 0 31360 TZE GV280 * YES GV240 FP192090 | 31355 0402 00 0 31512 SUB GQC60 DECR LOW REL BY 6 GV250 FP192100 | 1 LISTING OF 12/01/64 PAGE 397 UPDSEL (9PAC47). UPDATE W/O DICT SELECT FUNCTION | | 31356 0074 00 4 11465 TSX PADDR,4 USE LOW REL GV260 FP192110 | 31357 0020 00 0 31362 TRA GV300 TO RETURN GV270 FP192120 | 31360 0074 00 4 30054 GV280 TSX VKD01,4 GV280 FP192130 31361 0074 00 4 11477 TSX GADDR,4 * GV290 FP192140 | 31362 0774 00 4 00000 GV300 AXT 0,4 GV300 FP192150 | 31363 0774 00 2 00000 AXT 0,2 GV301 FP192160 | 31364 0020 00 4 00001 TRA 1,4 GV302 FP192170 | 31365 0535 00 1 31504 GW000 LAC GQB90,1 MODIFY TO HIGH VALUE OF RANGW000 FP192180 31366 -0500 00 0 30664 CAL GR030 * LOAD ARS GW010 FP192190 | 31367 -0320 00 0 10730 ANA BCD03 * GW020 FP192200 | 31370 0402 00 0 31476 SUB GQB30 * 36 GW030 FP192210 | 31371 0760 00 0 00003 SSP * GW040 FP192220 | 31372 0402 00 0 31473 SUB GQA90 * SUB BIT NO. TO GET SHIFT GW050 FP192230 31373 0120 00 0 31376 TPL GW090 * IS SHIFT NEG GW060 FP192240 | 31374 0400 00 0 31476 ADD GQB30 * YES-ADD 36 TO SHIFT GW070 FP192250 | 31375 1 77777 1 31376 TXI *+1,1,-1 * GW080 FP192260 | 31376 0621 00 0 31477 GW090 STA GQB40 * INIT SHIFT GW090 FP192270 | 31377 0634 00 1 31475 SXA GQB20,1 * SAVE XR1 AS 1ST WD PICK UGW100 FP192280 31400 0020 00 4 00001 TRA 1,4 GW130 FP192290 | 31401 0634 00 4 31426 GX000 SXA GX176,4 GX000 FP192300 | 31402 -0520 00 0 31467 NZT GQA50 GX010 FP192310 | 31403 0020 00 0 31423 TRA GX170 * NO-OFF GX010 FP192320 | 31404 -0500 00 0 31406 CAL *+2 BUILD CLA FF GX020 FP192330 31405 0074 00 4 11413 TSX PRGMR,4 * GX030 FP192340 | 31406 0500 00 0 00000 CLA 0 * GX040 FP192350 | 31407 0500 00 0 31453 CLA GQA20 * GX050 FP192360 | 31410 0074 00 4 11455 TSX SADDR+1,4 * GX060 FP192370 | 31411 -0500 00 0 31413 CAL *+2 BUILD TZE OUT GX070 FP192380 31412 0074 00 4 11413 TSX PRGMR,4 * GX080 FP192390 | 31413 0100 00 0 00000 TZE 0 * GX090 FP192400 | 31414 0074 00 4 30054 TSX VKD01,4 GX100 FP192410 | 31415 0074 00 4 11477 TSX GADDR,4 * GX110 FP192420 | 31416 -0500 00 0 31420 CAL *+2 BUILD STZ FF GX120 FP192430 31417 0074 00 4 11413 TSX PRGMR,4 * GX130 FP192440 | 31420 0600 00 0 00000 STZ 0 * GX140 FP192450 | 31421 0500 00 0 31453 CLA GQA20 * GX150 FP192460 | 31422 0074 00 4 11455 TSX SADDR+1,4 * GX160 FP192470 | 31423 0074 00 4 27765 GX170 TSX VN470,4 TO CLEAN STORAGE GX170 FP192480 31424 0520 00 0 14511 ZET BAE71 GX172 FP192490 | 31425 0020 00 0 31430 TRA GX180 GX174 FP192500 | 31426 0774 00 4 00000 GX176 AXT ..,4 GX176 FP192510 | 31427 0020 00 4 00002 TRA 2,4 GX178 FP192520 | 31430 0760 00 0 00000 GX180 CLM GX180 FP192530 31431 -0130 00 0 00000 XCL GX182 FP192540 | 31432 -0500 00 0 67172 CAL HEADR * GX190 FP192550 | 31433 0771 00 0 00030 ARS 24 * GX200 FP192560 | 31434 -0765 00 0 00004 LGR 4 * GX210 FP192570 | 31435 0771 00 0 00002 ARS 2 * GX220 FP192580 31436 -0765 00 0 00004 LGR 4 * GX230 FP192590 | 31437 -0500 00 0 15063 CAL VSA30 GX240 FP192600 | 31440 -0763 00 0 00032 LGL 26 * GX250 FP192610 | 31441 -0501 00 0 31446 ORA GX310 * GX260 FP192620 | 31442 0074 00 4 11547 TSX M0010,4 GX270 FP192630 31443 -0520 00 0 14512 NZT BAE80 GX280 FP192640 | 31444 0020 00 0 14403 TRA BB360 GX290 FP192650 | 1 LISTING OF 12/01/64 PAGE 398 | UPDSEL (9PAC47). UPDATE W/O DICT SELECT FUNCTION | 31445 0020 00 0 14341 TRA BB180 GX300 FP192660 | 31446 +160000000000 GX310 OCT 160000000000 GX310 FP192670 | 31447 0074 00 4 12507 GX320 TSX MSYSRD,4 GX320 FP192680 | 31450 114721230410 BCI 1,9PAC48 UPDFLD FP192690 | 31451 0 02563 0 35133 PZE UWFLD,,UWFLD-VESEL-2 FP192700 31452 0 00000 0 00000 GQA10 PZE PREV CHG FLD LOC-SIZE GQA10 FP192710 | 31453 0 00000 0 00000 GQA20 PZE WORD NO. OF FF GQA20 FP192720 | 31454 0 00000 0 00000 GQA30 PZE WORD NO. OF NON ZERO GQA30 FP192730 | 31455 GQA40 BSS 10 LOC SIZE TABLE GQA40 FP192740 | 31467 0 00000 0 00000 GQA50 PZE SEL SW GQA50 FP192750 31470 000000000040 GQA60 BCI 1,00000- HYPHEN FOR RANGE TEST GQA60 FP192760 | 31471 0 00000 0 00000 GQA70 PZE SIZE GQA70 FP192770 | 31472 0 00000 0 00000 GQA80 PZE U-WD NO. GQA80 FP192780 | 31473 0 00000 0 00000 GQA90 PZE BIT NO. GQA90 FP192790 | 31474 0 00000 0 00022 GQB10 PZE 18 GQB10 FP192800 31475 0 00000 0 04624 GQB20 PZE CARD+3 FIRST WORD PICKUP GQB20 FP192810 | 31476 0 00000 0 00044 GQB30 PZE 36 GQB30 FP192820 | 31477 -0763 00 0 00000 GQB40 LGL 0 GQB40 FP192830 | 31500 0 00000 0 00000 GQB50 PZE LEFT MASK GQB50 FP192840 | 31501 0 00000 0 00000 GQB60 PZE SIZE+BIT NO. GQB60 FP192850 31502 0 00000 0 00000 GQB70 PZE RIGHT MASK GQB70 FP192860 | 31503 0 00000 0 00030 GQB80 PZE 24 GQB80 FP192870 | 31504 0 00000 0 00000 GQB90 PZE COMPL ADDR OF WORD WITH HYPGQB90 FP192880 | 31505 0 00000 0 00001 GQC10 PZE 1 GQC10 FP192890 | 31506 0 00000 0 00002 GQC20 PZE 2 GQC20 FP192900 31507 0 00000 0 00003 GQC30 PZE 3 GQC30 FP192910 | 31510 0 00000 0 00003 GQC40 PZE 3 GQC40 FP192920 | 31511 0 00000 0 00005 GQC50 PZE 5 GQC50 FP192930 | 31512 0 00000 0 00006 GQC60 PZE 6 GQC60 FP192940 | 31513 0 00000 0 00007 GQC70 PZE 7 GQC70 FP192950 31514 0 00000 0 00010 GQC80 PZE 8 GQC80 FP192960 | 31515 0 00000 0 00011 GQC90 PZE 9 GQC90 FP192970 | 31516 0 00000 0 00000 GQD10 PZE HIGH REL TRANSFER GQD10 FP192980 | 31517 0 00000 0 00000 GQD20 PZE EQUAL REL TRANSFER GQD20 FP192990 | 31520 0 00000 0 00000 GQD30 PZE LOW REL TRANSFER GQD30 FP193000 31521 0 00000 0 00000 GQD40 PZE 5N GQD40 FP193010 | 31522 0 00000 0 00000 GQD50 PZE TEMPOR U STORAGE GQD50 FP193020 | 31523 0 00000 0 00000 GQD51 PZE LEFT SHIFT AUX STORAGE GQD51 FP193030 | 31524 0 00000 0 00000 GQD52 PZE FIRST WD PICK UP AUX STORAGGQD52 FP193040 | 31525 0 00000 0 00012 GQD60 PZE 10 GQD60 FP193050 31526 0 00000 0 04624 GQD70 PZE CARD+3 FIRST WORD PICKUP GQD70 FP193060 | 31527 0 00000 0 00004 GQD80 PZE 4 GQD80 FP193070 | 31612 UDSEL BES 50 FP193080 | 00000 TCD 0 FP193090 | 1 LISTING OF 12/01/64 PAGE 399 UPDSEL (9PAC47). UPDATE W/O DICT SELECT FUNCTION | | * FP193110 | 1 LISTING OF 12/01/64 PAGE 400 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | * FP193130 | * FP193140 | * FP193150 | * UPDATE FLD WITHOUT DICTIONARY FCTN FP193160 * FP193170 | 32350 ORG VESEL+2 UPDFLD FP193190 | 32350 114721230410 BCI 1,9PAC48 FP193200 | 32351 644724264324 UPFLD BCI 1,UPDFLD SEARCH CODE GA010 FP193210 | 00100 ORG SYSTRA FP193220 00100 0020 00 0 34106 TRA GK120 FP193230 | 32352 ORG VESEL+4 FP193240 | 32352 0020 00 0 34074 GA020 TRA GK000 TO CLEAN UP GA020 FP193250 | 32353 0520 00 0 34114 ZET GAA10 TEST FOR FIRST CARD GA030 FP193260 | 32354 0020 00 0 32373 TRA GA100 GA040 FP193270 32355 -0500 00 0 67173 CAL HEADR+1 INIT RECORD TYPE GA050 FP193280 | 32356 0560 00 0 67174 LDQ HEADR+2 GA060 FP193290 | 32357 -0763 00 0 00006 LGL 6 GA070 FP193300 | 32360 -0320 00 0 10730 ANA BCD03 GA080 FP193310 | 32361 0602 00 0 34114 SLW GAA10 GA090 FP193320 32362 -0500 00 0 67172 CAL HEADR SET UP GA091 FP193330 | 32363 -0765 00 0 00022 LGR 18 REJECT GA092 FP193340 | 32364 -0320 00 0 10733 ANA BCD06 SORT CODE GA093 FP193350 | 32365 -0501 00 0 34137 ORA GAC10 GA094 FP193360 | 32366 0602 00 0 34140 SLW GAC20 GA095 FP193370 32367 -0500 00 0 14532 CAL BAC84 INIT FOR SELECTIVE FLD GA096 FP193380 | 32370 0621 00 0 32406 STA GA111 GA097 FP193390 | 32371 0400 00 0 11026 ADD NMBR1 GA097 FP193400 | 32372 0621 00 0 32404 STA GA109 GA099 FP193410 | 32373 -0500 00 0 04622 GA100 CAL CARD+1 GA100 FP193420 32374 -0320 00 0 10735 ANA BCD10 GA101 FP193430 | 32375 0402 00 0 34156 SUB GAE01 GA102 FP193440 | 32376 0602 00 0 14510 SLW BAE70 THIS CARD CODE GA103 FP193450 | 32377 -0100 00 0 32405 TNZ GA110 WAS IT FLD--YES GA104 FP193460 | 32400 0520 00 0 14511 ZET BAE71 NO--WAS LAST CARD FLD GA105 FP193470 32401 0074 00 4 30143 TSX VKD30,4 YES--FILL MISSING ADDR OF SELF GA106 FP193480 | 32402 -0500 00 0 14510 CAL BAE70 GA107 FP193490 | 32403 0602 00 0 14511 SLW BAE71 GA108 FP193500 | 32404 0020 00 0 00000 GA109 TRA .. TO PROCESS SEL F GA109 FP193510 | 32405 -0520 00 0 14511 GA110 NZT BAE71 WAS LAST CARD FLD GA110 FP193520 32406 0074 00 4 00000 GA111 TSX ..,4 NO--CLEAN UP SLE GA111 FP193530 | 32407 0074 00 4 30143 TSX VKD30,4 FILL ANY MISSING ADDR OF SELF GA112 FP193540 | 32410 -0500 00 0 14510 CAL BAE70 GA113 FP193550 | 32411 0602 00 0 14511 SLW BAE71 GA114 FP193560 | 32412 -0500 00 0 04622 CAL CARD+1 GA115 FP193570 32413 -0765 00 0 00006 LGR 6 GA116 FP193580 | 32414 -0320 00 0 10730 ANA BCD03 * GA120 FP193590 | 32415 -0340 00 0 34114 LAS GAA10 * GA130 FP193600 | 32416 0020 00 0 32420 TRA *+2 ERROR GA140 FP193610 | 32417 0020 00 0 32422 TRA *+3 OK GA150 FP193620 32420 0074 00 4 10507 TSX T0010,4 GA155 FP193630 | 32421 -1 00622 2 14307 STR BB010,2,402 FUNC REC TYPE NOT EQUAL TO HDR REC TYGA160 FP193640 | 32422 -0500 00 0 04622 CAL CARD+1 SET UP DICTIONARY GA170 FP193650 | 32423 0560 00 0 04623 LDQ CARD+2 GA180 FP193660 | 32424 -0763 00 0 00022 LGL 18 GA190 FP193670 32425 -0320 00 0 10744 ANA BCD17 GA200 FP193680 | 1 LISTING OF 12/01/64 PAGE 401 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | | 32426 0602 00 0 32430 SLW GA230 GA210 FP193690 32427 0074 00 4 13550 TSX E0010,4 GA220 FP193700 | 32430 0 00000 0 00000 GA230 PZE GA230 FP193710 | 32431 -0500 00 0 32430 CAL *-1 GA240 FP193720 | 32432 0074 00 4 11426 TSX STORR,4 FLD= TO OBJECT GA250 FP193730 | 32433 -0500 00 0 11436 CAL G0080 GA260 FP193740 32434 0621 00 0 34141 STA GAC30 GA270 FP193750 | 32435 -0500 00 2 00010 CAL 8,2 GA280 FP193760 | 32436 0560 00 2 00011 LDQ 9,2 GA290 FP193770 | 32437 -0763 00 0 00006 LGL 6 GA300 FP193780 | 32440 -0320 00 0 10730 ANA BCD03 GA310 FP193790 32441 0322 00 0 34146 ERA GAC80 GA320 FP193800 | 32442 0100 00 0 32445 TZE *+3 GA330 FP193810 | 32443 0074 00 4 10507 TSX T0010,4 GA335 FP193820 | 32444 -1 00634 2 14307 STR BB010,2,412 FLD CARD FOR SEQ FLD GA340 FP193830 | 32445 0441 00 2 00002 LDI 2,2 S.F. MODES TO INDIC GA360 FP193840 32446 -0056 00 000100 LNT 100 SKIP IF BCD GA370 FP193850 | 32447 0020 00 0 32744 TRA GF010 TO BINARY GA380 FP193860 | 32450 -0500 00 0 04624 CAL CARD+3 TEST ACTION GA390 FP193870 | 32451 -0320 00 0 10731 ANA BCD04 GA400 FP193880 | 32452 -0340 00 0 34116 LAS GAA30 R GA410 FP193890 32453 0020 00 0 32455 TRA *+2 GA420 FP193900 | 32454 0020 00 0 32457 TRA *+3 EQUAL OK GA430 FP193910 | 32455 0074 00 4 10507 TSX T0010,4 GA435 FP193920 | 32456 -1 00623 2 14307 STR BB010,2,403 BCD FLD ACTION OTHER THAN R GA440 FP193930 | 32457 0500 00 0 13613 CLA E1005 STORE WORD NO. GA450 FP193940 32460 0601 00 0 34122 STO GAA50 * GA460 FP193950 | 32461 -0500 00 0 04623 CAL CARD+2 CONVERT CHG FLD INC GA470 FP193960 | 32462 -0320 00 0 10734 ANA BCD07 GA480 FP193970 | 32463 0602 00 0 07751 SLW B1020 GA490 FP193980 | 32464 0074 00 4 07572 TSX B0012,4 GA500 FP193990 32465 0500 00 0 07747 CLA B1000 GA520 FP194000 | 32466 0601 00 0 34123 STO GAA60 STO CHG FLD INC GA530 FP194010 | 32467 -0500 00 0 04624 CAL CARD+3 BLANK TEST CHG SIZE GA540 FP194020 | 32470 -0765 00 0 00022 LGR 18 GA550 FP194030 | 32471 -0340 00 0 34124 LAS GAA70 GA560 FP194040 32472 0020 00 0 32474 TRA *+2 GA570 FP194050 | 32473 0020 00 0 32504 TRA GA670 SIZE BLANK GA580 FP194060 | 32474 0602 00 0 07751 SLW B1020 CONVERT SIZE TO BIN GA590 FP194070 | 32475 0074 00 4 07572 TSX B0012,4 GA600 FP194080 | 32476 0500 00 0 07747 CLA B1000 COMP CHG SIZE TO SF SIZE GA620 FP194090 32477 0340 00 0 13612 CAS E1004 GA630 FP194100 | 32500 0020 00 0 32502 TRA *+2 ERROR GA640 FP194110 | 32501 0020 00 0 32504 TRA *+3 EQUAL OK GA650 FP194120 | 32502 0074 00 4 10507 TSX T0010,4 GA655 FP194130 | 32503 -1 00624 2 14307 STR BB010,2,404 CHG FLD SIZE NOT EQUAL TO SF SIZE GA660 FP194140 32504 0500 00 0 34125 GA670 CLA GAA80 36 GA670 FP194150 | 32505 0402 00 0 13614 SUB E1006 BIT NO GA680 FP194160 | 32506 0601 00 0 34126 STO GAA90 BITS IN LEFT WORD GA690 FP194170 | 32507 0500 00 0 34123 CLA GAA60 CHG FLD INC GA700 FP194180 | 32510 0774 00 4 00000 AXT 0,4 INIT IR 4 GA710 FP194190 32511 0402 00 0 34125 SUB GAA80 36 GA720 FP194200 | 32512 -0120 00 0 32514 TMI *+2 GA730 FP194210 | 32513 1 00001 4 32511 TXI *-2,4,1 ADJUST U GA740 FP194220 | 32514 0600 00 0 34130 STZ GAB20 GA749 FP194230 | 1 LISTING OF 12/01/64 PAGE 402 UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | | 32515 0634 00 4 34130 SXA GAB20,4 GA750 FP194240 | 32516 0400 00 0 34126 ADD GAA90 CALC LEFT SHIFT GA760 FP194250 | 32517 0100 00 0 32532 TZE GA880 GA770 FP194260 32520 0120 00 0 32532 TPL GA880 GA780 FP194270 | 32521 0400 00 0 34125 ADD GAA80 36 GA790 FP194280 | 32522 0621 00 0 32561 STA GB250 STORE SHIFT GA800 FP194290 | 32523 0621 00 0 32617 STA GB750 * GA810 FP194300 | 32524 0621 00 0 32671 STA GC400 * GA820 FP194310 32525 0621 00 0 32736 STA GC960 * GA830 FP194320 | 32526 0500 00 0 34130 CLA GAB20 ADJUST U GA840 FP194330 | 32527 0402 00 0 34127 SUB GAB10 GA850 FP194340 | 32530 0601 00 0 34130 STO GAB20 GA860 FP194350 | 32531 0020 00 0 32536 TRA GA920 GA870 FP194360 32532 0621 00 0 32561 GA880 STA GB250 STORE SHIFT GA880 FP194370 | 32533 0621 00 0 32617 STA GB750 * GA890 FP194380 | 32534 0621 00 0 32671 STA GC400 * GA900 FP194390 | 32535 0621 00 0 32736 STA GC960 * GA910 FP194400 | 32536 0500 00 0 13614 GA920 CLA E1006 BUILD LEFT MASK GA920 FP194410 32537 0621 00 0 32541 STA GA950 * GA930 FP194420 | 32540 -0500 00 0 11024 CAL BCD77 * GA940 FP194430 | 32541 0771 00 0 00000 GA950 ARS 0 * GA950 FP194440 | 32542 0602 00 0 34131 SLW GAB30 * GA960 FP194450 | 32543 -0054 00 000001 LFT 1 TEST MODE GA970 FP194460 32544 0020 00 0 32625 TRA GB870 PACKED GA980 FP194470 | 32545 0500 00 0 34130 CLA GAB20 NEG TEST U GB130 FP194480 | 32546 -0120 00 0 32552 TMI GB180 GB140 FP194490 | 32547 -0501 00 0 32551 ORA *+2 GB150 FP194500 | 32550 0074 00 4 11413 TSX PRGMR,4 MOVE CAL GB160 FP194510 32551 -0500 00 1 00000 CAL 0,1 GB170 FP194520 | 32552 0500 00 0 34130 GB180 CLA GAB20 U GB180 FP194530 | 32553 0400 00 0 34127 ADD GAB10 1 GB190 FP194540 | 32554 -0501 00 0 32556 ORA *+2 GB200 FP194550 | 32555 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ GB210 FP194560 32556 0560 00 1 00000 LDQ 0,1 GB220 FP194570 | 32557 -0500 00 0 32561 CAL *+2 GB230 FP194580 | 32560 0074 00 4 11413 TSX PRGMR,4 MOVE LGL GB240 FP194590 | 32561 -0763 00 0 00000 GB250 LGL 0 GB250 FP194600 | 32562 -0500 00 0 34131 CAL GAB30 MASK GB260 FP194610 32563 0074 00 4 11426 TSX STORR,4 MASK TO STORR GB270 FP194620 | 32564 -0500 00 0 32566 CAL *+2 GB280 FP194630 | 32565 0074 00 4 11413 TSX PRGMR,4 MOVE ANA GB290 FP194640 | 32566 -0320 00 0 00000 ANA 0 GB300 FP194650 | 32567 0074 00 4 11454 TSX SADDR,4 CREATE ADDRESS GB310 FP194660 32570 0500 00 0 34122 CLA GAA50 WORD NO GB320 FP194670 | 32571 -0501 00 0 32573 ORA *+2 GB330 FP194680 | 32572 0074 00 4 11413 TSX PRGMR,4 MOVE SLW GB340 FP194690 | 32573 0602 00 2 00000 SLW 0,2 GB350 FP194700 | 32574 0534 00 1 13612 LXA E1004,1 INIT XR1 WITH SIZE GB420 FP194710 32575 0500 00 0 34130 GB430 CLA GAB20 ADJUST U GB430 FP194720 | 32576 0400 00 0 34127 ADD GAB10 * GB440 FP194730 | 32577 0602 00 0 34130 SLW GAB20 * GB450 FP194740 | 32600 0500 00 0 34122 CLA GAA50 ADJUST C GB460 FP194750 | 32601 0400 00 0 34127 ADD GAB10 * GB470 FP194760 32602 0601 00 0 34122 STO GAA50 * GB480 FP194770 | 32603 -2 00044 1 14307 TNX BB010,1,36 TEST SIZE GB490 FP194780 | 1 LISTING OF 12/01/64 PAGE 403 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | 32604 0500 00 0 34130 CLA GAB20 U GB630 FP194790 | 32605 -0501 00 0 32607 ORA *+2 GB640 FP194800 | 32606 0074 00 4 11413 TSX PRGMR,4 MOVE CAL GB650 FP194810 | 32607 -0500 00 1 00000 CAL 0,1 GB660 FP194820 | 32610 0500 00 0 34130 CLA GAB20 ADJUST U GB670 FP194830 32611 0400 00 0 34127 ADD GAB10 1 GB680 FP194840 | 32612 -0501 00 0 32614 ORA *+2 GB700 FP194850 | 32613 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ GB710 FP194860 | 32614 0560 00 1 00000 LDQ 0,1 GB720 FP194870 | 32615 -0500 00 0 32617 CAL *+2 GB730 FP194880 32616 0074 00 4 11413 TSX PRGMR,4 MOVE LGL GB740 FP194890 | 32617 -0763 00 0 00000 GB750 LGL 0 GB750 FP194900 | 32620 0500 00 0 34122 CLA GAA50 C GB760 FP194910 | 32621 -0501 00 0 32623 ORA *+2 GB770 FP194920 | 32622 0074 00 4 11413 TSX PRGMR,4 MOVE SLW GB780 FP194930 32623 0602 00 2 00000 SLW 0,2 GB790 FP194940 | 32624 0020 00 0 32575 TRA GB430 NEXT WORD GB860 FP194950 | 32625 0500 00 0 13612 GB870 CLA E1004 PACKED CASE GB870 FP194960 | 32626 0400 00 0 13614 ADD E1006 BIT NO GB880 FP194970 | 32627 0734 00 1 00000 PAX 0,1 GB890 FP194980 32630 3 00044 1 32636 TXH GB970,1,36 TEST FOR LAST WORD GB900 FP194990 | 32631 0402 00 0 34125 SUB GAA80 BUILD RT MASK GB920 FP195000 | 32632 0621 00 0 32634 STA *+2 GB930 FP195010 | 32633 -0500 00 0 11024 CAL BCD77 GB940 FP195020 | 32634 0767 00 0 00000 ALS 0 GB950 FP195030 32635 0320 00 0 34131 ANS GAB30 COMBINE RT AND LT MASK GB960 FP195040 | 32636 -0500 00 0 34131 GB970 CAL GAB30 GB970 FP195050 | 32637 0074 00 4 11426 TSX STORR,4 GB980 FP195060 | 32640 -0500 00 0 34131 CAL GAB30 GB990 FP195070 | 32641 0074 00 4 11426 TSX STORR,4 GB980 FP195080 32642 -0500 00 0 34131 CAL GAB30 GB990 FP195090 | 32643 0760 00 0 00006 COM * GC180 FP195100 | 32644 0074 00 4 11426 TSX STORR,4 * GC190 FP195110 | 32645 -0500 00 0 32647 CAL *+2 GC200 FP195120 | 32646 0074 00 4 11413 TSX PRGMR,4 MOVE CAL GC210 FP195130 32647 -0500 00 0 00000 CAL 0 GC220 FP195140 | 32650 0074 00 4 11454 TSX SADDR,4 CREATE ADDRESS GC230 FP195150 | 32651 0500 00 0 34122 CLA GAA50 GC240 FP195160 | 32652 -0501 00 0 32654 ORA *+2 GC250 FP195170 | 32653 0074 00 4 11413 TSX PRGMR,4 MOVE ANS GC260 FP195180 32654 0320 00 2 00000 ANS 0,2 GC270 FP195190 | 32655 0500 00 0 34130 CLA GAB20 TEST U GC280 FP195200 | 32656 -0120 00 0 32663 TMI GC340 GC290 FP195210 | 32657 -0501 00 0 32661 ORA *+2 GC300 FP195220 | 32660 0074 00 4 11413 TSX PRGMR,4 MOVE CAL GC310 FP195230 32661 -0500 00 1 00000 CAL 0,1 GC320 FP195240 | 32662 0500 00 0 34130 CLA GAB20 ADJUST U GC330 FP195250 | 32663 0400 00 0 34127 GC340 ADD GAB10 1 GC340 FP195260 | 32664 -0501 00 0 32666 ORA *+2 GC350 FP195270 | 32665 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ GC360 FP195280 32666 0560 00 1 00000 LDQ 0,1 GC370 FP195290 | 32667 -0500 00 0 32671 CAL *+2 GC380 FP195300 | 32670 0074 00 4 11413 TSX PRGMR,4 MOVE LGL GC390 FP195310 | 32671 -0763 00 0 00000 GC400 LGL 0 GC400 FP195320 | 32672 -0500 00 0 32674 CAL *+2 GC410 FP195330 1 LISTING OF 12/01/64 PAGE 404 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | | 32673 0074 00 4 11413 TSX PRGMR,4 MOVE ANA GC420 FP195340 | 32674 -0320 00 0 00000 ANA 0 GC430 FP195350 32675 0500 00 0 11436 CLA G0080 GC440 FP195360 | 32676 0402 00 0 34127 SUB GAB10 1 GC450 FP195370 | 32677 0074 00 4 11455 TSX SADDR+1,4 GC460 FP195380 | 32700 0500 00 0 34122 CLA GAA50 GC470 FP195390 | 32701 -0501 00 0 32703 ORA *+2 GC480 FP195400 32702 0074 00 4 11413 TSX PRGMR,4 MOVE ORS GC490 FP195410 | 32703 -0602 00 2 00000 ORS 0,2 GC500 FP195420 | 32704 -2 00044 1 14307 TNX BB010,1,36 GC570 FP195430 | 32705 0500 00 0 34130 GC580 CLA GAB20 UPDATE U AND C GC580 FP195440 | 32706 0400 00 0 34127 ADD GAB10 1 GC590 FP195450 32707 0602 00 0 34130 SLW GAB20 * GC600 FP195460 | 32710 0500 00 0 34122 CLA GAA50 * GC610 FP195470 | 32711 0400 00 0 34127 ADD GAB10 * GC620 FP195480 | 32712 0601 00 0 34122 STO GAA50 * GC630 FP195490 | 32713 2 00044 1 32723 TIX GC720,1,36 GC640 FP195500 32714 0754 00 1 00000 PXA 0,1 BUILD RT MASK GC650 FP195510 | 32715 0402 00 0 34125 SUB GAA80 36 GC660 FP195520 | 32716 0621 00 0 32720 STA *+2 * GC670 FP195530 | 32717 -0500 00 0 11024 CAL BCD77 * GC680 FP195540 | 32720 0767 00 0 00000 ALS 0 * GC690 FP195550 32721 0602 00 0 34131 SLW GAB30 * GC700 FP195560 | 32722 0020 00 0 32636 TRA GB970 * GC710 FP195570 | 32723 0500 00 0 34130 GC720 CLA GAB20 GC720 FP195580 | 32724 -0501 00 0 32726 ORA *+2 GC860 FP195590 | 32725 0074 00 4 11413 TSX PRGMR,4 MOVE CAL GC870 FP195600 32726 -0500 00 1 00000 CAL 0,1 GC880 FP195610 | 32727 0500 00 0 34130 CLA GAB20 GC890 FP195620 | 32730 0400 00 0 34127 ADD GAB10 1 GC900 FP195630 | 32731 -0501 00 0 32733 ORA *+2 GC910 FP195640 | 32732 0074 00 4 11413 TSX PRGMR,4 MOVE LDQ GC920 FP195650 32733 0560 00 1 00000 LDQ 0,1 GC930 FP195660 | 32734 -0500 00 0 32736 CAL *+2 GC940 FP195670 | 32735 0074 00 4 11413 TSX PRGMR,4 MOVE LGL GC950 FP195680 | 32736 -0763 00 0 00000 GC960 LGL 0 GC960 FP195690 | 32737 0500 00 0 34122 CLA GAA50 GC970 FP195700 32740 -0501 00 0 32742 ORA *+2 GC980 FP195710 | 32741 0074 00 4 11413 TSX PRGMR,4 MOVE SLW GC990 FP195720 | 32742 0602 00 2 00000 SLW 0,2 GD010 FP195730 | 32743 0020 00 0 32705 TRA GC580 NEXT WORD GD080 FP195740 | 32744 0500 00 0 13612 GF010 CLA E1004 CONVERT S.F. SIZE TO EQUIV GF010 FP195750 32745 0774 00 4 00000 AXT 0,4 * GF020 FP195760 | 32746 0774 00 1 00024 AXT 20,1 * GF030 FP195770 | 32747 1 00006 4 32750 GF040 TXI *+1,4,6 * UPDATE SIZE BY 6 GF040 FP195780 | 32750 -0340 00 1 11104 LAS EQUIV+21,1 * GF050 FP195790 | 32751 0020 00 0 32755 TRA *+4 GF060 FP195800 32752 0020 00 0 32760 TRA GF110 * MATCH GF070 FP195810 | 32753 0074 00 4 10507 TSX T0010,4 GF075 FP195820 | 32754 -1 00633 2 14307 STR BB010,2,411 INVALID SF BINARY SIZE GF080 FP195830 | 32755 2 00002 1 32747 TIX GF040,1,2 * MODIFY TO NEXT ENTRY GF090 FP195840 | 32756 0074 00 4 10507 TSX T0010,4 GF095 FP195850 32757 -1 01207 2 14307 STR BB010,2,647 INVALID SF BINARY SIZE GF100 FP195860 | 32760 0634 00 4 34121 GF110 SXA GAA40,4 S.F. SIZE TO STORAGE GF110 FP195870 | 32761 -0500 00 0 04624 CAL CARD+3 IS CHG SIZE BLANK GF120 FP195880 | 1 LISTING OF 12/01/64 PAGE 405 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | 32762 -0765 00 0 00022 LGR 18 * GF130 FP195890 | 32763 -0320 00 0 10734 ANA BCD07 GF135 FP195900 | 32764 -0340 00 0 34124 LAS GAA70 * GF140 FP195910 | 32765 0020 00 0 32767 TRA *+2 * NO GF150 FP195920 32766 0020 00 0 33001 TRA GF260 * YES GF160 FP195930 | 32767 0602 00 0 07751 SLW B1020 CONVERT CHG SIZE TO BINARY GF170 FP195940 | 32770 0074 00 4 07572 TSX B0012,4 GF180 FP195950 | 32771 0500 00 0 07747 CLA B1000 COMPARE CHG SIZE TO S.F. SIGF200 FP195960 | 32772 -0340 00 0 34121 LAS GAA40 * GF210 FP195970 32773 0020 00 0 32777 TRA GF255 GF220 FP195980 | 32774 0761 00 0 00000 NOP *EQUAL OK GF230 FP195990 | 32775 0601 00 0 34126 STO GAA90 GF240 FP196000 | 32776 0020 00 0 33003 TRA GF280 GF250 FP196010 | 32777 0074 00 4 10507 GF255 TSX T0010,4 GF255 FP196020 33000 -1 00625 2 14307 STR BB010,2,405 CHG FLD SIZE GR THAN SF SIZE GF256 FP196030 | 33001 0500 00 0 34121 GF260 CLA GAA40 S.F. SIZE STORAGE 1 GF260 FP196040 | 33002 0601 00 0 34126 STO GAA90 * GF270 FP196050 | 33003 -0500 00 0 04623 GF280 CAL CARD+2 CONVERT CHG INCR TO BINARY GF280 FP196060 | 33004 -0320 00 0 10734 ANA BCD07 * GF290 FP196070 33005 0602 00 0 07751 SLW B1020 * GF300 FP196080 | 33006 0074 00 4 07572 TSX B0012,4 GF310 FP196090 | 33007 0774 00 1 00000 AXT 0,1 INIT IR1 TO 0 GF330 FP196100 | 33010 0600 00 0 34130 STZ GAB20 GF335 FP196110 | 33011 0500 00 0 07747 CLA B1000 INCR TO ACCUM GF340 FP196120 33012 0402 00 0 34125 GF350 SUB GAA80 DETERMINE U-SUB 36 GF350 FP196130 | 33013 -0120 00 0 33015 TMI GF380 * GF360 FP196140 | 33014 1 00001 1 33012 TXI GF350,1,1 * MODIFY IR1 GF370 FP196150 | 33015 0634 00 1 34130 GF380 SXA GAB20,1 STORE IR1 AS U GF380 FP196160 | 33016 0534 00 4 34126 LXA GAA90,4 INIT IR4 WITH CHG SIZE GF390 FP196170 33017 -2 00044 4 33113 TNX GF990,4,36 COMPARE SIZE TO 36 GF400 FP196180 | 33020 0634 00 4 34126 SXA GAA90,4 IR4 TO STORAGE 1 GF410 FP196190 | 33021 0400 00 0 34126 ADD GAA90 CALC LEFT SHIFT GF420 FP196200 | 33022 0100 00 0 33033 TZE GF520 IS SHIFT ZERO OR POS GF430 FP196210 | 33023 0120 00 0 33033 TPL GF520 * GF440 FP196220 33024 0400 00 0 34125 ADD GAA80 CALC POS LEFT SHIFT-ADD 36 GF450 FP196230 | 33025 0621 00 0 33060 STA GF720 INIT LGL OF VALUE GF460 FP196240 | 33026 0621 00 0 33106 STA GF940 * GF470 FP196250 | 33027 0500 00 0 34130 CLA GAB20 SUBTRACT 1 FROM U GF480 FP196260 | 33030 0402 00 0 34127 SUB GAB10 * GF490 FP196270 33031 0601 00 0 34130 STO GAB20 * GF500 FP196280 | 33032 0020 00 0 33035 TRA GF540 GF510 FP196290 | 33033 0621 00 0 33060 GF520 STA GF720 INIT LGL OF VALUE GF520 FP196300 | 33034 0621 00 0 33106 STA GF940 * GF530 FP196310 | 33035 0500 00 0 34126 GF540 CLA GAA90 INIT LGL OF CHG MINMAX GF540 FP196320 33036 0621 00 0 33245 STA GG580 * GF550 FP196330 | 33037 0621 00 0 33361 STA GG920 * GF560 FP196340 | 33040 0500 00 0 34125 CLA GAA80 CALC LEFT MASK SHIFT GF570 FP196350 | 33041 0402 00 0 34126 SUB GAA90 * GF580 FP196360 | 33042 0621 00 0 33062 STA GF740 INIT MASK SHIFT GF590 FP196370 33043 0500 00 0 34130 CLA GAB20 IS U NEG GF600 FP196380 | 33044 -0120 00 0 33051 TMI GF660 * YES GF610 FP196390 | 33045 -0501 00 0 33047 ORA *+2 BUILD CAL U,1 GF620 FP196400 | 33046 0074 00 4 11413 TSX PRGMR,4 * GF630 FP196410 | 33047 -0500 00 1 00000 CAL 0,1 * GF640 FP196420 33050 0500 00 0 34130 CLA GAB20 MODIFY U BY 1 GF650 FP196430 | 1 LISTING OF 12/01/64 PAGE 406 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | | 33051 0400 00 0 34127 GF660 ADD GAB10 * GF660 FP196440 33052 0602 00 0 34130 SLW GAB20 * GF665 FP196450 | 33053 -0501 00 0 33055 ORA *+2 BUILD LDQ U+1,1 GF670 FP196460 | 33054 0074 00 4 11413 TSX PRGMR,4 * GF680 FP196470 | 33055 0560 00 1 00000 LDQ 0,1 * GF690 FP196480 | 33056 -0500 00 0 33060 CAL *+2 BUILD LGL VALUE GF700 FP196490 33057 0074 00 4 11413 TSX PRGMR,4 * GF710 FP196500 | 33060 -0763 00 0 00000 GF720 LGL 0 * GF720 FP196510 | 33061 -0500 00 0 11024 CAL BCD77 BUILD LEFT MASK GF730 FP196520 | 33062 0771 00 0 00000 GF740 ARS 0 * GF740 FP196530 | 33063 0074 00 4 11426 TSX STORR,4 * GF750 FP196540 33064 -0500 00 0 33066 CAL *+2 BUILD ANA MASK GF760 FP196550 | 33065 0074 00 4 11413 TSX PRGMR,4 * GF770 FP196560 | 33066 -0320 00 0 00000 ANA 0 * GF780 FP196570 | 33067 0074 00 4 11454 TSX SADDR,4 BUILD MISSING ADDR ENTRY GF790 FP196580 | 33070 -0500 00 0 33072 CAL *+2 BUILD SLW DBBCL GF800 FP196590 33071 0074 00 4 11413 TSX PRGMR,4 * GF810 FP196600 | 33072 0602 00 0 20065 SLW DBBCL * GF820 FP196610 | 33073 0500 00 0 34130 CLA GAB20 BUILD CAL U+1,1 GF830 FP196620 | 33074 -0501 00 0 33076 ORA *+2 * GF840 FP196630 | 33075 0074 00 4 11413 TSX PRGMR,4 * GF850 FP196640 33076 -0500 00 1 00000 CAL 0,1 * GF860 FP196650 | 33077 0500 00 0 34130 CLA GAB20 BUILD LDQ U+2,1 GF870 FP196660 | 33100 0400 00 0 34127 ADD GAB10 * GF880 FP196670 | 33101 -0501 00 0 33103 ORA *+2 * GF890 FP196680 | 33102 0074 00 4 11413 TSX PRGMR,4 * GF900 FP196690 33103 0560 00 1 00000 LDQ 0,1 * GF910 FP196700 | 33104 -0500 00 0 33106 CAL *+2 BUILD LGL VALUE GF920 FP196710 | 33105 0074 00 4 11413 TSX PRGMR,4 * GF930 FP196720 | 33106 -0763 00 0 00000 GF940 LGL 0 * GF940 FP196730 | 33107 -0500 00 0 33111 CAL *+2 BUILD SLW DBBCR GF950 FP196740 33110 0074 00 4 11413 TSX PRGMR,4 * GF960 FP196750 | 33111 0602 00 0 20066 SLW DBBCR * GF970 FP196760 | 33112 0020 00 0 33162 TRA GG390 GF980 FP196770 | 33113 0400 00 0 34126 GF990 ADD GAA90 CALC LEFT SHIFT GF990 FP196780 | 33114 0100 00 0 33124 TZE GG090 IS SHIFT POS OR ZERO GG010 FP196790 33115 0120 00 0 33124 TPL GG090 * GG020 FP196800 | 33116 0400 00 0 34125 ADD GAA80 NO-MAKE SHIFT POSITIVE GG030 FP196810 | 33117 0621 00 0 33147 STA GG280 INIT LGL OF VALUE GG040 FP196820 | 33120 0500 00 0 34130 CLA GAB20 SUB 1 FROM U GG050 FP196830 | 33121 0402 00 0 34127 SUB GAB10 * GG060 FP196840 33122 0601 00 0 34130 STO GAB20 * GG070 FP196850 | 33123 0020 00 0 33125 TRA GG100 GG080 FP196860 | 33124 0621 00 0 33147 GG090 STA GG280 INIT LGL OF VALUE GG090 FP196870 | 33125 0500 00 0 34125 GG100 CLA GAA80 CAL LEFT MASK SHIFT GG100 FP196880 | 33126 0402 00 0 34126 SUB GAA90 * 36-STORAGE 1 GG110 FP196890 33127 0621 00 0 33151 STA GG300 INIT MASK SHIFT GG120 FP196900 | 33130 0760 00 0 00000 CLM INIT MAXMIN SHIFT WITH 0 GG130 FP196910 | 33131 0621 00 0 33245 STA GG580 * GG140 FP196920 | 33132 0621 00 0 33361 STA GG920 * GG150 FP196930 | 33133 0500 00 0 34130 CLA GAB20 IS U NEG GG160 FP196940 33134 -0120 00 0 33141 TMI GG220 * YES GG170 FP196950 | 33135 -0501 00 0 33137 ORA *+2 BUILD CAL U,1 GG180 FP196960 | 33136 0074 00 4 11413 TSX PRGMR,4 * GG190 FP196970 | 33137 -0500 00 1 00000 CAL 0,1 * GG200 FP196980 | 1 LISTING OF 12/01/64 PAGE 407 UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | | 33140 0500 00 0 34130 CLA GAB20 MODIFY U BY 1 GG210 FP196990 | 33141 0400 00 0 34127 GG220 ADD GAB10 * 1 GG220 FP197000 | 33142 -0501 00 0 33144 ORA *+2 BUILD LDQ U+1,1 GG230 FP197010 33143 0074 00 4 11413 TSX PRGMR,4 * GG240 FP197020 | 33144 0560 00 1 00000 LDQ 0,1 * GG250 FP197030 | 33145 -0500 00 0 33147 CAL *+2 BUILD LGL VALUE GG260 FP197040 | 33146 0074 00 4 11413 TSX PRGMR,4 * GG270 FP197050 | 33147 -0763 00 0 00000 GG280 LGL 0 * GG280 FP197060 33150 -0500 00 0 11024 CAL BCD77 BUILD MASK GG290 FP197070 | 33151 0771 00 0 00000 GG300 ARS 0 * GG300 FP197080 | 33152 0074 00 4 11426 TSX STORR,4 * GG310 FP197090 | 33153 -0500 00 0 33155 CAL *+2 BUILD ANA MASK GG320 FP197100 | 33154 0074 00 4 11413 TSX PRGMR,4 * GG330 FP197110 33155 -0320 00 0 00000 ANA 0 * GG340 FP197120 | 33156 0074 00 4 11454 TSX SADDR,4 BUILD MISSING ADDR ENTRY GG350 FP197130 | 33157 -0500 00 0 33161 CAL *+2 BUILD SLW DBBCR GG360 FP197140 | 33160 0074 00 4 11413 TSX PRGMR,4 * GG370 FP197150 | 33161 0602 00 0 20066 SLW DBBCR * GG380 FP197160 33162 -0500 00 0 33164 GG390 CAL *+2 BUILD TSX TOBIN,4 GG390 FP197170 | 33163 0074 00 4 11413 TSX PRGMR,4 * GG400 FP197180 | 33164 0074 00 4 17747 TSX TOBIN,4 * GG410 FP197190 | 33165 -0500 00 0 33167 CAL *+2 BUILD REJ PKG GG411 FP197200 | 33166 0074 00 4 11413 TSX PRGMR,4 MOVE TRA *+2 GG412 FP197210 33167 0020 00 0 00000 TRA 0 GG413 FP197220 | 33170 0500 00 0 34143 CLA GAC50 2 GG414 FP197230 | 33171 0074 00 4 11465 TSX PADDR,4 GG415 FP197240 | 33172 -0500 00 0 33174 CAL *+2 GG416 FP197250 | 33173 0074 00 4 11413 TSX PRGMR,4 MOVE TRA *+7 GG417 FP197260 33174 0020 00 0 00000 TRA 0 GG418 FP197270 | 33175 0500 00 0 34142 CLA GAC40 7 GG419 FP197280 | 33176 0074 00 4 11465 TSX PADDR,4 GG420 FP197290 | 33177 -0500 00 0 33201 CAL *+2 GG421 FP197300 | 33200 0074 00 4 11413 TSX PRGMR,4 GG422 FP197310 33201 -0500 00 0 00000 CAL 0 CAL GG423 FP197320 | 33202 -0500 00 0 34141 CAL GAC30 GG424 FP197330 | 33203 0074 00 4 11455 TSX SADDR+1,4 GG425 FP197340 | 33204 -0500 00 0 33206 CAL *+2 GG426 FP197350 | 33205 0074 00 4 11413 TSX PRGMR,4 GG427 FP197360 33206 0602 00 0 00001 SLW 1 SLW GG428 FP197370 | 33207 -0500 00 0 34140 CAL GAC20 GG429 FP197380 | 33210 -0760 00 0 00003 SSM GG430 FP197390 | 33211 0074 00 4 11507 TSX YADDR,4 GG431 FP197400 | 33212 -0500 00 0 33214 CAL *+2 GG432 FP197410 33213 0074 00 4 11413 TSX PRGMR,4 TSX GG433 FP197420 | 33214 0074 00 4 00001 TSX 1,4 GG434 FP197430 | 33215 -0500 00 0 34140 CAL GAC20 GG435 FP197440 | 33216 0074 00 4 11507 TSX YADDR,4 GG436 FP197450 | 33217 -0500 00 0 33221 CAL *+2 GG437 FP197460 33220 0074 00 4 11413 TSX PRGMR,4 GG438 FP197470 | 33221 222324402231 BCI 1,BCD-BI FP197480 | 33222 -0500 00 0 33224 CAL *+2 GG440 FP197490 | 33223 0074 00 4 11413 TSX PRGMR,4 GG441 FP197500 | 33224 456025515160 BCI 1,N ERR FP197510 33225 -0500 00 0 33227 CAL *+2 GG449 FP197520 | 33226 0074 00 4 11413 TSX PRGMR,4 GG449 FP197530 | 1 LISTING OF 12/01/64 PAGE 408 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | 33227 0020 00 0 00000 TRA 0 GG4493FP197540 | 33230 -0500 00 0 11423 CAL F0080 GG450 FP197550 | 33231 0621 00 0 34147 STA GAD10 TOBIN HALT TRA GG460 FP197560 | 33232 -0500 00 0 04625 CAL CARD+4 IS CHG MAX BLANK GG470 FP197570 | 33233 0560 00 0 04626 LDQ CARD+5 * GG480 FP197580 33234 -0765 00 0 00014 LGR 12 * GG490 FP197590 | 33235 -0130 00 0 00000 XCL * GG500 FP197600 | 33236 -0340 00 0 34134 LAS GAB60 * GG510 FP197610 | 33237 0020 00 0 33241 TRA *+2 * NO GG520 FP197620 | 33240 0020 00 0 33346 TRA GG810 * YES GG530 FP197630 33241 0044 00 0 00000 PAI SHIFT MAX AND MOVE SIGN GG540 FP197640 | 33242 -0320 00 0 34135 ANA GAB70 * REMOVE SIGN IN AC GG550 FP197650 | 33243 -0130 00 0 00000 XCL * GG560 FP197660 | 33244 0760 00 0 00000 CLM * GG570 FP197670 | 33245 -0763 00 0 00000 GG580 LGL 0 * SHIFT MAX GG580 FP197680 33246 0602 00 0 07750 SLW B1010 * GG590 FP197690 | 33247 -0600 00 0 07751 STQ B1020 * GG600 FP197700 | 33250 0445 00 0 34135 RIS GAB70 * CLEAR INNC EXCEPT SIGN GG610 FP197710 | 33251 -0046 00 0 00000 PIA * SIGN TO AC GG620 FP197720 | 33252 -0602 00 0 07751 ORS B1020 * SIGN OVER UNITS POS GG630 FP197730 33253 0074 00 4 07570 TSX B0010,4 CONVERT MAX TO BINARY GG640 FP197740 | 33254 -0500 00 0 07747 CAL B1000 MAX TO OBJECT STORAGE GG660 FP197750 | 33255 0074 00 4 11426 TSX STORR,4 * GG670 FP197760 | 33256 -0500 00 0 33260 CAL *+2 BUILD CLA DBBIN GG680 FP197770 | 33257 0074 00 4 11413 TSX PRGMR,4 * GG690 FP197780 33260 0500 00 0 20064 CLA DBBIN * GG700 FP197790 | 33261 -0500 00 0 33263 CAL *+2 BUILD CAS MAX GG710 FP197800 | 33262 0074 00 4 11413 TSX PRGMR,4 * GG720 FP197810 | 33263 0340 00 0 00000 CAS 0 * GG730 FP197820 | 33264 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDR ENTRY GG740 FP197830 33265 -0500 00 0 33267 CAL *+2 GG741 FP197840 | 33266 0074 00 4 11413 TSX PRGMR,4 GG742 FP197850 | 33267 0020 00 0 00000 TRA 0 TRA *+3 GG743 FP197860 | 33270 -0500 00 0 34144 CAL GAC60 3 GG744 FP197870 | 33271 0074 00 4 11465 TSX PADDR,4 GG745 FP197880 33272 -0500 00 0 33274 CAL *+2 GG746 FP197890 | 33273 0074 00 4 11413 TSX PRGMR,4 NOP GG747 FP197900 | 33274 0761 00 0 00000 NOP GG748 FP197910 | 33275 -0500 00 0 33277 CAL *+2 GG749 FP197920 | 33276 0074 00 4 11413 TSX PRGMR,4 GG750 FP197930 33277 0020 00 0 00000 TRA ** TRA *+9 GG751 FP197940 | 33300 -0500 00 0 11036 CAL NMBR9 9 GG752 FP197950 | 33301 0074 00 4 11465 TSX PADDR,4 GG753 FP197960 | 33302 -0500 00 0 33304 CAL *+2 TO CONVERT BINARY FP197970 | 33303 0074 00 4 11413 TSX PRGMR,4 WORD IN ERROR TO BCD FP197980 33304 0074 00 4 20175 TSX CHBCD,4 FP197990 | 33305 -0500 00 0 33307 CAL *+2 GG754 FP198000 | 33306 0074 00 4 11413 TSX PRGMR,4 GG755 FP198010 | 33307 0602 00 0 00004 SLW 4 SLW 4 GG756 FP198020 | 33310 -0500 00 0 34140 CAL GAC20 GG757 FP198030 33311 -0760 00 0 00003 SSM GG758 FP198040 | 33312 0074 00 4 11507 TSX YADDR,4 GG759 FP198050 | 33313 -0500 00 0 33315 CAL *+2 GG760 FP198060 | 33314 0074 00 4 11413 TSX PRGMR,4 GG761 FP198070 | 33315 -0500 00 0 00000 CAL 0 CAL FLD GG762 FP198080 1 LISTING OF 12/01/64 PAGE 409 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | | 33316 -0500 00 0 34141 CAL GAC30 GG763 FP198090 | 33317 0074 00 4 11455 TSX SADDR+1,4 GG764 FP198100 33320 -0500 00 0 33322 CAL *+2 GG765 FP198110 | 33321 0074 00 4 11413 TSX PRGMR,4 GG766 FP198120 | 33322 0602 00 0 00001 SLW 1 SLW GG767 FP198130 | 33323 -0500 00 0 34140 CAL GAC20 GG768 FP198140 | 33324 -0760 00 0 00003 SSM GG769 FP198150 33325 0074 00 4 11507 TSX YADDR,4 GG770 FP198160 | 33326 -0500 00 0 33330 CAL *+2 GG771 FP198170 | 33327 0074 00 4 11413 TSX PRGMR,4 GG772 FP198180 | 33330 0074 00 4 00001 TSX 1,4 TSX 1,4 GG773 FP198190 | 33331 -0500 00 0 34140 CAL GAC20 GG774 FP198200 33332 0074 00 4 11507 TSX YADDR,4 GG775 FP198210 | 33333 -0500 00 0 33335 CAL *+2 GG776 FP198220 | 33334 0074 00 4 11413 TSX PRGMR,4 GG777 FP198230 | 33335 233027604421 BCI 1,CHG MA GG778 FP198240 | 33336 -0500 00 0 33340 CAL *+2 GG779 FP198250 33337 0074 00 4 11413 TSX PRGMR,4 GG780 FP198260 | 33340 676063256263 BCI 1,X TEST GG781 FP198270 | 33341 -0500 00 0 33343 CAL *+2 GG788 FP198280 | 33342 0074 00 4 11413 TSX PRGMR,4 GG789 FP198290 | 33343 0020 00 0 00000 TRA 0 GG790 FP198300 33344 -0500 00 0 11423 CAL F0080 GG791 FP198310 | 33345 0621 00 0 34150 STA GAD20 CHG MAX HALT TRA GG792 FP198320 | 33346 -0500 00 0 04624 GG810 CAL CARD+3 IS CHG MIN BLANK GG810 FP198330 | 33347 0560 00 0 04625 LDQ CARD+4 * GG820 FP198340 | 33350 -0765 00 0 00014 LGR 12 * GG830 FP198350 33351 -0130 00 0 00000 XCL * GG840 FP198360 | 33352 -0340 00 0 34134 LAS GAB60 * GG850 FP198370 | 33353 0020 00 0 33355 TRA *+2 * NO GG860 FP198380 | 33354 0020 00 0 33455 TRA GH210 * YES GG870 FP198390 | 33355 0044 00 0 00000 PAI SHIFT MIN AND MOVE SIGN GG880 FP198400 33356 -0320 00 0 34135 ANA GAB70 * REMOVE SIGN IN AC GG890 FP198410 | 33357 -0130 00 0 00000 XCL * GG900 FP198420 | 33360 0760 00 0 00000 CLM * GG910 FP198430 | 33361 -0763 00 0 00000 GG920 LGL 0 * SHIFT MIN GG920 FP198440 | 33362 0602 00 0 07750 SLW B1010 * GG930 FP198450 33363 -0600 00 0 07751 STQ B1020 * GG940 FP198460 | 33364 0445 00 0 34135 RIS GAB70 * CLEAR INDC EXCEPT SIGN GG950 FP198470 | 33365 -0046 00 0 00000 PIA * SIGN TO AC GG960 FP198480 | 33366 -0602 00 0 07751 ORS B1020 * SIGN OVER UNITS POS GG970 FP198490 | 33367 0074 00 4 07570 TSX B0010,4 CONVERT MIN TO BINARY GG980 FP198500 33370 -0500 00 0 07747 CAL B1000 MIN TO OBJECT STORAGE GH010 FP198510 | 33371 0074 00 4 11426 TSX STORR,4 * GH020 FP198520 | 33372 -0500 00 0 33374 CAL *+2 BUILD CLA DBBIN GH030 FP198530 | 33373 0074 00 4 11413 TSX PRGMR,4 * GH040 FP198540 | 33374 0500 00 0 20064 CLA DBBIN * GH050 FP198550 33375 -0500 00 0 33377 CAL *+2 BUILD CAS MIN GH060 FP198560 | 33376 0074 00 4 11413 TSX PRGMR,4 * GH070 FP198570 | 33377 0340 00 0 00000 CAS 0 * GH080 FP198580 | 33400 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDR ENTRY GH090 FP198590 | 33401 -0500 00 0 33403 CAL *+2 GH100 FP198600 33402 0074 00 4 11413 TSX PRGMR,4 GH110 FP198610 | 33403 0761 00 0 00000 NOP GH120 FP198620 | 33404 -0500 00 0 33406 CAL *+2 GH123 FP198630 | 1 LISTING OF 12/01/64 PAGE 410 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | 33405 0074 00 4 11413 TSX PRGMR,4 GH124 FP198640 | 33406 0020 00 0 00000 TRA 0 GH125 FP198650 | 33407 -0500 00 0 11036 CAL NMBR9 9 GH126 FP198660 | 33410 0074 00 4 11465 TSX PADDR,4 GH127 FP198670 33411 -0500 00 0 33413 CAL *+2 FP198680 | 33412 0074 00 4 11413 TSX PRGMR,4 FP198690 | 33413 0074 00 4 20175 TSX CHBCD,4 FP198700 | 33414 -0500 00 0 33416 CAL *+2 GH128 FP198710 | 33415 0074 00 4 11413 TSX PRGMR,4 GH129 FP198720 33416 0602 00 0 00004 SLW 4 GH130 FP198730 | 33417 -0500 00 0 34140 CAL GAC20 GH131 FP198740 | 33420 -0760 00 0 00003 SSM GH132 FP198750 | 33421 0074 00 4 11507 TSX YADDR,4 GH133 FP198760 | 33422 -0500 00 0 33424 CAL *+2 GH134 FP198770 33423 0074 00 4 11413 TSX PRGMR,4 GH135 FP198780 | 33424 -0500 00 0 00000 CAL 0 CAL FLD= GH136 FP198790 | 33425 -0500 00 0 34141 CAL GAC30 GH137 FP198800 | 33426 0074 00 4 11455 TSX SADDR+1,4 GH138 FP198810 | 33427 -0500 00 0 33431 CAL *+2 GH139 FP198820 33430 0074 00 4 11413 TSX PRGMR,4 GH140 FP198830 | 33431 0602 00 0 00001 SLW 1 SLW GH141 FP198840 | 33432 -0500 00 0 34140 CAL GAC20 GH142 FP198850 | 33433 -0760 00 0 00003 SSM GH143 FP198860 | 33434 0074 00 4 11507 TSX YADDR,4 GH144 FP198870 33435 -0500 00 0 33437 CAL *+2 GH145 FP198880 | 33436 0074 00 4 11413 TSX PRGMR,4 GH146 FP198890 | 33437 0074 00 4 00001 TSX 1,4 TSX GH147 FP198900 | 33440 -0500 00 0 34140 CAL GAC20 GH148 FP198910 | 33441 0074 00 4 11507 TSX YADDR,4 GH149 FP198920 33442 -0500 00 0 33444 CAL *+2 GH150 FP198930 | 33443 0074 00 4 11413 TSX PRGMR,4 GH151 FP198940 | 33444 233027604431 BCI 1,CHG MI GH152 FP198950 | 33445 -0500 00 0 33447 CAL *+2 GH153 FP198960 | 33446 0074 00 4 11413 TSX PRGMR,4 GH160 FP198970 33447 456063256263 BCI 1,N TEST GH170 FP198980 | 33450 -0500 00 0 33452 CAL *+2 GH180 FP198990 | 33451 0074 00 4 11413 TSX PRGMR,4 GH190 FP199000 | 33452 0020 00 0 00000 TRA 0 GH200 FP199010 | 33453 -0500 00 0 11423 CAL F0080 GH201 FP199020 33454 0621 00 0 34151 STA GAD30 CHG MIN HALT TRA GH202 FP199030 | 33455 -0500 00 0 04624 GH210 CAL CARD+3 TEST ACTION GH210 FP199040 | 33456 -0320 00 0 10731 ANA BCD04 * GH220 FP199050 | 33457 -0340 00 0 34116 LAS GAA30 * R GH230 FP199060 | 33460 0020 00 0 33470 TRA GH320 GH240 FP199070 33461 0020 00 0 33532 TRA GH532 * REPLACE GH250 FP199080 | 33462 -0340 00 0 34117 LAS GAA30+1 *- GH260 FP199090 | 33463 0020 00 0 33470 TRA GH320 GH270 FP199100 | 33464 0020 00 0 33475 TRA GH360 * NEG ACCUMULATE GH280 FP199110 | 33465 -0340 00 0 34120 LAS GAA30+2 * + GH290 FP199120 33466 0020 00 0 33470 TRA GH320 GH300 FP199130 | 33467 0020 00 0 33472 TRA *+3 POS ACCUMULATE GH310 FP199140 | 33470 0074 00 4 10507 GH320 TSX T0010,4 GH320 FP199150 | 33471 -1 00626 2 14307 STR BB010,2,406 INVALID BINARY FLD ACTION GH321 FP199160 | 33472 -0500 00 0 33474 CAL *+2 BUILD CLA DBBIN GH330 FP199170 33473 0020 00 0 33476 TRA GH370 * GH340 FP199180 | 1 LISTING OF 12/01/64 PAGE 411 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | | 33474 0500 00 0 20064 CLA DBBIN * GH350 FP199190 33475 -0500 00 0 33477 GH360 CAL *+2 BUILD CLS DBBIN GH360 FP199200 | 33476 0074 00 4 11413 GH370 TSX PRGMR,4 * GH370 FP199210 | 33477 0502 00 0 20064 CLS DBBIN * GH380 FP199220 | 33500 -0500 00 2 00011 CAL 9,2 REPLACE ONLY TEST GH390 FP199230 | 33501 -0320 00 0 10745 ANA BCD20 * GH400 FP199240 33502 0100 00 0 33505 TZE *+3 OK GH410 FP199250 | 33503 0074 00 4 10507 TSX T0010,4 GH415 FP199260 | 33504 -1 00627 2 14307 STR BB010,2,407 ACCUM ACTN ON REP ONLY BIN FLD GH420 FP199270 | 33505 -0500 00 0 11024 CAL BCD77 SET ACTION SW TO NON-ZERO GH430 FP199280 | 33506 0602 00 0 34132 SLW GAB40 * GH440 FP199290 33507 0600 00 0 34133 STZ GAB50 GH449 FP199300 | 33510 0774 00 1 15630 AXT BUFER,1 BUFER TO STORAGE B GH450 FP199310 | 33511 0634 00 1 34133 SXA GAB50,1 GH460 FP199320 | 33512 0500 00 0 13613 CLA E1005 BUILD ADD C,2 GH470 FP199330 | 33513 -0501 00 0 33515 ORA *+2 * GH480 FP199340 33514 0074 00 4 11413 TSX PRGMR,4 * GH490 FP199350 | 33515 0400 00 2 00000 ADD 0,2 * GH500 FP199360 | 33516 -0500 00 0 33520 CAL *+2 TAKE CARE GH5000FP199370 | 33517 0074 00 4 11413 TSX PRGMR,4 OF GH5000FP199380 | 33520 -0100 00 0 00000 TNZ 0 MINUS GH5000FP199390 33521 -0500 00 0 34143 CAL GAC50 ZERO GH5000FP199400 | 33522 0074 00 4 11465 TSX PADDR,4 GH5000FP199410 | 33523 -0500 00 0 33525 CAL *+2 GH5000FP199420 | 33524 0074 00 4 11413 TSX PRGMR,4 GH5000FP199430 | 33525 0760 00 0 00003 SSP GH5000FP199440 33526 -0500 00 0 33530 CAL *+2 BUILD STO BUFER GH510 FP199450 | 33527 0074 00 4 11413 TSX PRGMR,4 * GH520 FP199460 | 33530 0601 00 0 15630 STO BUFER * GH530 FP199470 | 33531 0020 00 0 33537 TRA GH540 GH531 FP199480 | 33532 0760 00 0 00000 GH532 CLM SET ACTION SW TO ZERO GH532 FP199490 33533 0602 00 0 34132 SLW GAB40 * GH533 FP199500 | 33534 0600 00 0 34133 STZ GAB50 GH5330FP199510 | 33535 0774 00 1 20064 AXT DBBIN,1 SET STORAGE B TO DBBIN GH534 FP199520 | 33536 0634 00 1 34133 SXA GAB50,1 * GH535 FP199530 | 33537 0534 00 1 34121 GH540 LXA GAA40,1 INIT. MAXMIN SHIFT GH540 FP199540 33540 2 00044 1 33542 TIX *+2,1,36 * GH550 FP199550 | 33541 0774 00 1 00000 AXT 0,1 * WITH ZERO GH560 FP199560 | 33542 0634 00 1 33557 SXA GH700,1 * OR SIZE-36 GH570 FP199570 | 33543 0634 00 1 33674 SXA GI060,1 * GH580 FP199580 | 33544 -0500 00 2 00012 CAL 10,2 IS DICT MAX BLANK GH590 FP199590 33545 0560 00 2 00013 LDQ 11,2 * GH600 FP199600 | 33546 -0765 00 0 00030 LGR 24 * GH610 FP199610 | 33547 -0130 00 0 00000 XCL * GH620 FP199620 | 33550 -0340 00 0 34134 LAS GAB60 * BLANK GH630 FP199630 | 33551 0020 00 0 33553 TRA *+2 * GH640 FP199640 33552 0020 00 0 33661 TRA GH940 * YES GH650 FP199650 | 33553 0044 00 0 00000 PAI SHIFT MAX AND MOVE SIGN GH660 FP199660 | 33554 -0320 00 0 34135 ANA GAB70 * REMOVE SIGN IN AC GH670 FP199670 | 33555 -0130 00 0 00000 XCL * GH680 FP199680 | 33556 0760 00 0 00000 CLM * GH690 FP199690 33557 -0763 00 0 00000 GH700 LGL 0 * GH700 FP199700 | 33560 0602 00 0 07750 SLW B1010 * GH710 FP199710 | 33561 -0600 00 0 07751 STQ B1020 * GH720 FP199720 | 33562 0445 00 0 34135 RIS GAB70 * CLEAR INDIC EXCEPT SIGN GH730 FP199730 | 1 LISTING OF 12/01/64 PAGE 412 UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | | 33563 -0046 00 0 00000 PIA * SIGN TO AC GH740 FP199740 | 33564 -0602 00 0 07751 ORS B1020 * SIGN TO UNITS POS GH750 FP199750 | 33565 0074 00 4 07570 TSX B0010,4 CONVERT MAX TO BINARY GH760 FP199760 33566 -0500 00 0 07747 CAL B1000 MAX TO OBJECT STORAGE GH780 FP199770 | 33567 0074 00 4 11426 TSX STORR,4 * GH790 FP199780 | 33570 -0500 00 0 34133 CAL GAB50 BUILD CLA B GH800 FP199790 | 33571 -0501 00 0 33573 ORA *+2 * GH810 FP199800 | 33572 0074 00 4 11413 TSX PRGMR,4 * GH820 FP199810 33573 0500 00 0 00000 CLA 0 * GH830 FP199820 | 33574 -0500 00 0 33576 CAL *+2 BUILD CAS MAX GH840 FP199830 | 33575 0074 00 4 11413 TSX PRGMR,4 * GH850 FP199840 | 33576 0340 00 0 00000 CAS 0 * GH860 FP199850 | 33577 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDR ENTRY GH870 FP199860 33600 -0500 00 0 33602 CAL *+2 BUILD TRA *+3 GH880 FP199870 | 33601 0074 00 4 11413 TSX PRGMR,4 GH881 FP199880 | 33602 0020 00 0 00000 TRA 0 TRA GH882 FP199890 | 33603 -0500 00 0 34144 CAL GAC60 3 GH883 FP199900 | 33604 0074 00 4 11465 TSX PADDR,4 GH884 FP199910 33605 -0500 00 0 33607 CAL *+2 GH885 FP199920 | 33606 0074 00 4 11413 TSX PRGMR,4 GH886 FP199930 | 33607 0761 00 0 00000 NOP NOP GH887 FP199940 | 33610 -0500 00 0 33612 CAL *+2 GH888 FP199950 | 33611 0074 00 4 11413 TSX PRGMR,4 GH889 FP199960 33612 0020 00 0 00000 TRA 0 TRA GH890 FP199970 | 33613 -0500 00 0 11036 CAL NMBR9 9 GH891 FP199980 | 33614 0074 00 4 11465 TSX PADDR,4 GH892 FP199990 | 33615 -0500 00 0 33617 CAL *+2 FP200000 | 33616 0074 00 4 11413 TSX PRGMR,4 FP200010 33617 0074 00 4 20175 TSX CHBCD,4 FP200020 | 33620 -0500 00 0 33622 CAL *+2 GH893 FP200030 | 33621 0074 00 4 11413 TSX PRGMR,4 SLW GH894 FP200040 | 33622 0602 00 0 00004 SLW 4 GH895 FP200050 | 33623 -0500 00 0 34140 CAL GAC20 GH896 FP200060 33624 -0760 00 0 00003 SSM GH897 FP200070 | 33625 0074 00 4 11507 TSX YADDR,4 GH898 FP200080 | 33626 -0500 00 0 33630 CAL *+2 GH899 FP200090 | 33627 0074 00 4 11413 TSX PRGMR,4 GH900 FP200100 | 33630 -0500 00 0 00000 CAL 0 GH901 FP200110 33631 -0500 00 0 34141 CAL GAC30 GH902 FP200120 | 33632 0074 00 4 11455 TSX SADDR+1,4 GH903 FP200130 | 33633 -0500 00 0 33635 CAL *+2 GH904 FP200140 | 33634 0074 00 4 11413 TSX PRGMR,4 GH905 FP200150 | 33635 0602 00 0 00001 SLW 1 SLW GH906 FP200160 33636 -0500 00 0 34140 CAL GAC20 GH907 FP200170 | 33637 -0760 00 0 00003 SSM GH908 FP200180 | 33640 0074 00 4 11507 TSX YADDR,4 GH909 FP200190 | 33641 -0500 00 0 33643 CAL *+2 GH910 FP200200 | 33642 0074 00 4 11413 TSX PRGMR,4 GH911 FP200210 33643 0074 00 4 00001 TSX 1,4 TSX GH912 FP200220 | 33644 -0500 00 0 34140 CAL GAC20 GH913 FP200230 | 33645 0074 00 4 11507 TSX YADDR,4 GH914 FP200240 | 33646 -0500 00 0 33650 CAL *+2 GH915 FP200250 | 33647 0074 00 4 11413 TSX PRGMR,4 GH916 FP200260 33650 622660442167 BCI 1,SF MAX GH917 FP200270 | 33651 -0500 00 0 33653 CAL *+2 GH918 FP200280 | 1 LISTING OF 12/01/64 PAGE 413 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | 33652 0074 00 4 11413 TSX PRGMR,4 GH919 FP200290 | 33653 606325626360 BCI 1, TEST GH920 FP200300 | 33654 -0500 00 0 33656 CAL *+2 GH921 FP200310 | 33655 0074 00 4 11413 TSX PRGMR,4 GH922 FP200320 | 33656 0020 00 0 00000 TRA 0 GH930 FP200330 33657 -0500 00 0 11423 CAL F0080 GH931 FP200340 | 33660 0621 00 0 34152 STA GAD40 SF MAX HALT TRA GH932 FP200350 | 33661 -0500 00 2 00011 GH940 CAL 9,2 IS DICT MIN BLANK GH940 FP200360 | 33662 0560 00 2 00012 LDQ 10,2 * GH950 FP200370 | 33663 -0765 00 0 00030 LGR 24 * GH960 FP200380 33664 -0130 00 0 00000 XCL * GH970 FP200390 | 33665 -0340 00 0 34134 LAS GAB60 * BLANK GH980 FP200400 | 33666 0020 00 0 33670 TRA *+2 * GH990 FP200410 | 33667 0020 00 0 33771 TRA GI350 * YES GI010 FP200420 | 33670 0044 00 0 00000 PAI SHIFT MIN AND MOVE SIGN GI020 FP200430 33671 -0320 00 0 34135 ANA GAB70 * REMOVE SIGN IN ACC GI030 FP200440 | 33672 -0130 00 0 00000 XCL * GI040 FP200450 | 33673 0760 00 0 00000 CLM * GI050 FP200460 | 33674 -0763 00 0 00000 GI060 LGL 0 * SHIFT MIN GI060 FP200470 | 33675 0602 00 0 07750 SLW B1010 * GI070 FP200480 33676 -0600 00 0 07751 STQ B1020 * GI080 FP200490 | 33677 0445 00 0 34135 RIS GAB70 * CLEAR INDIC EXCEPT SIGN GI090 FP200500 | 33700 -0046 00 0 00000 PIA * SIGN TO ACC GI100 FP200510 | 33701 -0602 00 0 07751 ORS B1020 * SIGN TO UNITS POS GI110 FP200520 | 33702 0074 00 4 07570 TSX B0010,4 CONVERT MIN TO BINARY GI120 FP200530 33703 -0500 00 0 07747 CAL B1000 MIN TO OBJECT STORAGE GI140 FP200540 | 33704 0074 00 4 11426 TSX STORR,4 * GI150 FP200550 | 33705 -0500 00 0 34133 CAL GAB50 BUILD CLA B GI160 FP200560 | 33706 -0501 00 0 33710 ORA *+2 * GI170 FP200570 | 33707 0074 00 4 11413 TSX PRGMR,4 * GI180 FP200580 33710 0500 00 0 00000 CLA 0 * GI190 FP200590 | 33711 -0500 00 0 33713 CAL *+2 BUILD CAS MIN GI200 FP200600 | 33712 0074 00 4 11413 TSX PRGMR,4 * GI210 FP200610 | 33713 0340 00 0 00000 CAS 0 * GI220 FP200620 | 33714 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADDR ENTRY GI230 FP200630 33715 -0500 00 0 33717 CAL *+2 BUILD NOP GI240 FP200640 | 33716 0074 00 4 11413 TSX PRGMR,4 * GI250 FP200650 | 33717 0761 00 0 00000 NOP * GI260 FP200660 | 33720 -0500 00 0 33722 CAL *+2 BUILD TRA *+8 GI270 FP200670 | 33721 0074 00 4 11413 TSX PRGMR,4 * GI280 FP200680 33722 0020 00 0 00000 TRA 0 * GI290 FP200690 | 33723 -0500 00 0 11036 CAL NMBR9 9 GI300 FP200700 | 33724 0074 00 4 11465 TSX PADDR,4 GI301 FP200710 | 33725 -0500 00 0 33727 CAL *+2 FP200720 | 33726 0074 00 4 11413 TSX PRGMR,4 FP200730 33727 0074 00 4 20175 TSX CHBCD,4 FP200740 | 33730 -0500 00 0 33732 CAL *+2 GI302 FP200750 | 33731 0074 00 4 11413 TSX PRGMR,4 GI303 FP200760 | 33732 0602 00 0 00004 SLW 4 GI304 FP200770 | 33733 -0500 00 0 34140 CAL GAC20 GI305 FP200780 33734 -0760 00 0 00003 SSM GI306 FP200790 | 33735 0074 00 4 11507 TSX YADDR,4 GI307 FP200800 | 33736 -0500 00 0 33740 CAL *+2 GI308 FP200810 | 33737 0074 00 4 11413 TSX PRGMR,4 GI309 FP200820 | 33740 -0500 00 0 00000 CAL 0 GI310 FP200830 1 LISTING OF 12/01/64 PAGE 414 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | | 33741 -0500 00 0 34141 CAL GAC30 FLD= LOC GI311 FP200840 | 33742 0074 00 4 11455 TSX SADDR+1,4 GI312 FP200850 33743 -0500 00 0 33745 CAL *+2 GI313 FP200860 | 33744 0074 00 4 11413 TSX PRGMR,4 GI314 FP200870 | 33745 0602 00 0 00001 SLW 1 GI315 FP200880 | 33746 -0500 00 0 34140 CAL GAC20 GI316 FP200890 | 33747 -0760 00 0 00003 SSM GI317 FP200900 33750 0074 00 4 11507 TSX YADDR,4 GI318 FP200910 | 33751 -0500 00 0 33753 CAL *+2 GI319 FP200920 | 33752 0074 00 4 11413 TSX PRGMR,4 GI320 FP200930 | 33753 0074 00 4 00001 TSX 1,4 GI321 FP200940 | 33754 -0500 00 0 34140 CAL GAC20 GI322 FP200950 33755 0074 00 4 11507 TSX YADDR,4 GI323 FP200960 | 33756 -0500 00 0 33760 CAL *+2 GI324 FP200970 | 33757 0074 00 4 11413 TSX PRGMR,4 GI325 FP200980 | 33760 622660443145 BCI 1,SF MIN GI326 FP200990 | 33761 -0500 00 0 33763 CAL *+2 GI327 FP201000 33762 0074 00 4 11413 TSX PRGMR,4 GI328 FP201010 | 33763 606325626360 BCI 1, TEST GI329 FP201020 | 33764 -0500 00 0 33766 CAL *+2 GI330 FP201030 | 33765 0074 00 4 11413 TSX PRGMR,4 GI331 FP201040 | 33766 0020 00 0 00000 TRA 0 GI340 FP201050 33767 -0500 00 0 11423 CAL F0080 GI341 FP201060 | 33770 0621 00 0 34153 STA GAD50 SF MIN HALT TRA GI342 FP201070 | 33771 0500 00 2 00001 GI350 CLA 1,2 SUM FWD TEST GI350 FP201080 | 33772 0120 00 0 34046 TPL GI710 * NO SUM FWD GI360 FP201090 | 33773 -0500 00 0 04622 CAL CARD+1 IMIT AC WITH FLD NO GI370 FP201100 33774 0560 00 0 04623 LDQ CARD+2 * GI380 FP201110 | 33775 -0763 00 0 00022 LGL 18 * GI390 FP201120 | 33776 0602 00 0 34115 SLW GAA20 STORE IN OPSTO GI400 FP201130 | 33777 -0774 00 1 71545 AXC SUTBL,1 INIT TO 1ST TABLE ENTRY GI410 FP201140 | 34000 -0340 00 1 00000 GI430 LAS 0,1 SEARCH TABLE GI430 FP201150 34001 1 77775 1 34000 TXI GI430,1,-3 MODIFY TO NEXT ENTRY GI440 FP201160 | 34002 1 77776 1 34005 GI450 TXI GI470,1,-2 GI450 FP201170 | 34003 0074 00 4 10507 TSX T0010,4 GI459 FP201180 | 34004 -1 11160 4 00000 STR 0,4,4720 UPD FLD IN SUMM DICT,NOT THERE NOW GI460 FP201190 | 34005 -0500 00 1 00000 GI470 CAL 0,1 HAS SUM FWD FLD BEEN DELETEGI470 FP201200 34006 -0760 00 0 00001 PBT * GI480 FP201210 | 34007 0020 00 0 34011 TRA *+2 * NO GI481 FP201220 | 34010 0020 00 0 34041 TRA GI660 * YES GI482 FP201230 | 34011 -0501 00 0 34013 ORA *+2 BUILD CLA SUM TO GI490 FP201240 | 34012 0074 00 4 11413 TSX PRGMR,4 * GI500 FP201250 34013 0500 00 0 00000 CLA 0 * GI510 FP201260 | 34014 0520 00 0 34132 ZET GAB40 TEST ACTION SW GI520 FP201270 | 34015 0020 00 0 34022 TRA GI580 * NON-ZERO GI530 FP201280 | 34016 0500 00 0 13613 CLA E1005 BUILD SUB C,2 GI540 FP201290 | 34017 -0501 00 0 34021 ORA *+2 * GI550 FP201300 34020 0074 00 4 11413 TSX PRGMR,4 * GI560 FP201310 | 34021 0402 00 2 00000 SUB 0,2 * GI570 FP201320 | 34022 -0500 00 0 04624 GI580 CAL CARD+3 GI580 FP201330 | 34023 -0320 00 0 10731 ANA BCD04 GI581 FP201340 | 34024 -0340 00 0 34117 LAS GAA30+1 GI582 FP201350 34025 0020 00 0 34027 TRA *+2 GI583 FP201360 | 34026 0020 00 0 34032 TRA GI588 GI584 FP201370 | 34027 -0500 00 0 34031 CAL *+2 GI585 FP201380 | 1 LISTING OF 12/01/64 PAGE 415 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | 34030 0020 00 0 34033 TRA GI600 GI586 FP201390 | 34031 0400 00 0 20064 ADD DBBIN GI587 FP201400 | 34032 -0500 00 0 34034 GI588 CAL *+2 GI588 FP201410 | 34033 0074 00 4 11413 GI600 TSX PRGMR,4 GI600 FP201420 34034 0402 00 0 20064 SUB DBBIN GI610 FP201430 | 34035 -0500 00 0 34040 CAL *+3 BUILD STO SUM TO GI620 FP201440 | 34036 -0501 00 1 00000 ORA 0,1 * GI630 FP201450 | 34037 0074 00 4 11413 TSX PRGMR,4 * GI640 FP201460 | 34040 0601 00 0 00000 STO 0 * GI650 FP201470 34041 1 77777 1 34042 GI660 TXI *+1,1,-1 MODIFY TO NEXT TABLE ENTRY GI660 FP201480 | 34042 -0500 00 0 34115 CAL GAA20 TEST FLO NO GI670 FP201490 | 34043 -0340 00 1 00000 LAS 0,1 * GI680 FP201500 | 34044 0020 00 0 34046 TRA GI710 * HIGH-NO MORE MATCHING GI690 FP201510 | 34045 0020 00 0 34002 TRA GI450 * BACK TO BUILD PKG GI700 FP201520 34046 -0500 00 0 34133 GI710 CAL GAB50 BUILD CAL B GI710 FP201530 | 34047 -0501 00 0 34051 ORA *+2 * GI850 FP201540 | 34050 0074 00 4 11413 TSX PRGMR,4 * GI860 FP201550 | 34051 -0500 00 0 00000 CAL 0 * GI870 FP201560 | 34052 0500 00 0 13613 CLA E1005 BUILD SLW C,2 GI880 FP201570 34053 -0501 00 0 34055 ORA *+2 * GI890 FP201580 | 34054 0074 00 4 11413 TSX PRGMR,4 * GI900 FP201590 | 34055 0602 00 2 00000 SLW 0,2 * GI910 FP201600 | 34056 -0500 00 0 11423 CAL F0080 GJ010 FP201610 | 34057 -0320 00 0 34154 ANA GAD60 GJ020 FP201620 34060 0400 00 0 34127 ADD GAB10 1 GJ030 FP201630 | 34061 0601 00 0 34155 STO GAD70 GJ040 FP201640 | 34062 0774 00 1 00005 AXT 5,1 GJ050 FP201650 | 34063 0500 00 0 34155 CLA GAD70 GJ060 FP201660 | 34064 0402 00 1 34154 SUB GAD60,1 GJ070 FP201670 34065 0601 00 0 11474 STO K1000 GJ080 FP201680 | 34066 -0500 00 1 34154 CAL GAD60,1 GJ090 FP201690 | 34067 0100 00 0 34072 TZE *+3 GJ091 FP201700 | 34070 0074 00 4 11467 TSX PADDR+2,4 GJ100 FP201710 | 34071 0600 00 1 34154 STZ GAD60,1 GJ1005FP201720 34072 2 00001 1 34063 TIX *-7,1,1 GJ110 FP201730 | 34073 0020 00 0 14307 TRA BB010 OUT GJ120 FP201740 | 34074 0074 00 4 30143 GK000 TSX VKD30,4 FILL ANY MISSING ADDR OF SELF GK000 FP201750 | 34075 -0500 00 0 67172 CAL HEADR GK001 FP201760 | 34076 0771 00 0 00006 ARS 6 * GK010 FP201770 34077 -0320 00 0 10755 ANA BCD30 * GK020 FP201780 | 34100 -0501 00 0 34105 ORA GK080 * GK030 FP201790 | 34101 0074 00 4 11547 TSX M0010,4 * GK040 FP201800 | 34102 -0520 00 0 14512 NZT BAE80 * GK050 FP201810 | 34103 0020 00 0 14403 TRA BB360 * GK060 FP201820 34104 0020 00 0 14341 TRA BB180 * GK070 FP201830 | 34105 520000440000 GK080 BCI 1,!00M00 * GK080 FP201840 | 34106 0441 00 0 14525 GK120 LDI BAC50 GK120 FP201850 | 34107 0054 00 010000 RFT 010000 FP201860 | 34110 0020 00 0 14274 TRA BA968 FP201870 34111 0074 00 4 12507 TSX MSYSRD,4 FP201880 | 34112 114721230411 BCI 1,9PAC49 CLNHOR FP201890 | 34113 0 01303 0 30477 PZE CLNHO,,CLNHO-UDRPT-2 FP201900 | 34114 0 00000 0 00000 GAA10 PZE 0 CURRENT RECORD TYPE GAA10 FP201910 | 34115 0 00000 0 00000 GAA20 PZE 0 OPSTO GAA20 FP201920 34116 000000510000 GAA30 BCI 3,000R00000-00000+00 FLD ACTION GAA30 FP201930 | 1 LISTING OF 12/01/64 PAGE 416 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | | 34117 000000400000 34120 000000200000 | 34121 0 00000 0 00000 GAA40 PZE 0 S.F. SIZE IN EQUIV BCD GAA40 FP201940 | 34122 0 00000 0 00000 GAA50 PZE 0 WORD NO E1005-C GAA50 FP201950 | 34123 0 00000 0 00000 GAA60 PZE 0 CHG FLD INC GAA60 FP201960 | 34124 000000606060 GAA70 BCI 1,000 HALF BLANK WORD GAA70 FP201970 34125 0 00000 0 00044 GAA80 PZE 36 GAA80 FP201980 | 34126 0 00000 0 00000 GAA90 PZE 0 STORAGE 1 GAA90 FP201990 | 34127 0 00000 0 00001 GAB10 PZE 1 GAB10 FP202000 | 34130 0 00000 0 00000 GAB20 PZE 0 U GAB20 FP202010 | 34131 0 00000 0 00000 GAB30 PZE 0 MASK GAB30 FP202020 34132 0 00000 0 00000 GAB40 PZE 0 ACTION SW GAB40 FP202030 | 34133 0 00000 0 00000 GAB50 PZE 0 STORAGE B GAB50 FP202040 | 34134 606060606060 GAB60 BCI 1, BLANK WORD GAB60 FP202050 | 34135 -377777777717 GAB70 OCT 777777777717 MASK FOR SIGN MANIP GAB70 FP202060 | 34136 0 00000 0 00002 GAB80 PZE 2 GAB80 FP202070 34137 000052000065 GAC10 BCI 1,00!00V GAC10 FP202080 | 34140 0 00000 0 00000 GAC20 PZE 0 REJ SORT CODE GAC20 FP202090 | 34141 0 00000 0 00000 GAC30 PZE 0 FLD= LOC FOR SADDR GAC30 FP202100 | 34142 0 00000 0 00007 GAC40 PZE 7 GAC40 FP202110 | 34143 0 00000 0 00002 GAC50 PZE 2 GAC50 FP202120 34144 0 00000 0 00003 GAC60 PZE 3 GAC60 FP202130 | 34145 0 00000 0 00010 GAC70 PZE 8 GAC70 FP202140 | 34146 000000006060 GAC80 BCI 1,0000 GAC80 FP202150 | 34147 0 00000 0 00000 GAD10 PZE 0 F0080 FOR REJECTS GAD10 FP202160 | 34150 0 00000 0 00000 GAD20 PZE 0 GAD20 FP202170 34151 0 00000 0 00000 GAD30 PZE 0 GAD30 FP202180 | 34152 0 00000 0 00000 GAD40 PZE 0 GAD40 FP202190 | 34153 0 00000 0 00000 GAD50 PZE 0 GAD50 FP202200 | 34154 +000000077777 GAD60 OCT 77777 GAD60 FP202210 | 34155 0 00000 0 00000 GAD70 PZE 0 GAD70 FP202220 34156 000026000000 GAE01 BCI 1,00F000 GAE01 FP202230 | 34241 UDFLD BES 50 FP202240 | 00000 TCD 0 FP202250 | 1 LISTING OF 12/01/64 PAGE 417 | UPDFLD (9PAC48). UPDATE W/O DICT FIELD FUNCTION | * FP202270 | 1 LISTING OF 12/01/64 PAGE 418 | CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | * FP202290 | * FP202300 | 27174 ORG UDRPT+2 CLNHOR FP202320 | * FP202330 | * FP202340 * HORIZONTAL CLEANUP. BUILD DESTL ENTRIES FP202350 | * FP202360 | * FP202370 | 27174 114721230411 BCI 1,9PAC49 FP202380 | 27175 234345304651 BCI 1,CLNHOR HORIZONTAL CLEANUP FP202390 00100 ORG SYSTRA FP202400 | 00100 0020 00 0 30300 TRA VR620 FP202410 | 27176 ORG UDRPT+4 FP202420 | 27176 -0500 00 0 67177 HA010 CAL HEADR+5 HORIZONTAL CLEANUP HA010 FP202430 | 27177 0771 00 0 00014 ARS 12 WHICH BUILDS DESTL. HA020 FP202440 27200 -0320 00 0 10734 ANA BCD07 HA030 FP202450 | 27201 0602 00 0 07751 SLW B1020 INCR OF 1ST FLD NO HA040 FP202460 | 27202 0074 00 4 07572 TSX B0012,4 HA050 FP202470 | 27203 0534 00 4 07747 LXA B1000,4 HA070 FP202480 | 27204 0774 00 1 00000 AXT 0,1 HA080 FP202490 27205 -2 00044 4 27207 TNX *+2,4,36 HA090 FP202500 | 27206 1 00001 1 27205 TXI *-1,1,1 HA100 FP202510 | 27207 -3 00043 4 27212 TXL *+3,4,35 HA110 FP202520 | 27210 1 00001 1 27211 TXI *+1,1,1 HA120 FP202530 | 27211 0774 00 4 00000 AXT 0,4 HA130 FP202540 27212 0500 00 0 11374 CLA HPCSW HA131 FP202550 | 27213 -0100 00 0 27224 TNZ HA142 SEL-NOT HA132 FP202560 | 27214 -0625 00 0 11374 STL HPCSW AND HA133 FP202570 | 27215 0500 00 0 14236 CLA BA920-1 HA134 FP202580 | 27216 0120 00 0 27221 TPL *+3 HA135 FP202590 27217 0601 00 0 11374 STO HPCSW HA137 FP202600 | 27220 0020 00 0 27233 TRA HA149 HA138 FP202610 | 27221 0774 00 2 11103 AXT DESTL,2 HA139 FP202620 | 27222 0634 00 2 11255 SXA NOP,2 HA140 FP202630 | 27223 0020 00 0 27233 TRA HA149 HA141 FP202640 27224 -0120 00 0 27227 HA142 TMI *+3 HA142 FP202650 | 27225 0074 00 4 10507 TSX T0010,4 HA143 FP202660 | 27226 -1 05764 3 00000 STR 0,3,3060 TWO OR MORE HOR WITH NO SEL ON FRST HA143 FP202670 | 27227 0500 00 0 14236 CLA BA920-1 HA144 FP202680 | 27230 -0120 00 0 27233 TMI *+3 HA145 FP202690 27231 0074 00 4 10507 TSX T0010,4 FP202700 | 27232 -1 06010 3 00000 STR 0,3,3080 TWO OR MORE HOR WITH NO SEL ON SECD HA146 FP202710 | 27233 -0500 00 0 11255 HA149 CAL NOP HA149 FP202720 | 27234 -0320 00 0 30327 ANA VNC40 HA150 FP202730 | 27235 0400 00 0 30307 ADD VNA50 HA160 FP202740 27236 0621 00 0 27237 STA *+1 HA161 FP202750 | 27237 0600 00 0 00000 STZ 0 HA162 FP202760 | 27240 0621 00 0 27242 STA *+2 HA170 FP202770 | 27241 0621 00 0 27243 STA *+2 HA180 FP202780 | 27242 0634 00 4 00000 SXA 0,4 HA190 FP202790 27243 -0634 00 1 00000 SXD 0,1 LOC OF 1ST FLD = TO TABLE HA200 FP202800 | 27244 -0500 00 0 67174 CAL HEADR+2 REC TYPE TO TABLE HA260 FP202810 | 27245 0771 00 0 00006 ARS 6 HA270 FP202820 | 27246 -0320 00 0 10730 ANA BCD03 HA280 FP202830 | 27247 0535 00 2 11255 LAC NOP,2 HA290 FP202840 1 LISTING OF 12/01/64 PAGE 419 | CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | | 27250 0602 00 2 00000 SLW 0,2 HA300 FP202850 | 27251 -0500 00 0 67177 CAL HEADR+5 FLD ACTION TO TABLE HA310 FP202860 27252 0771 00 0 00006 ARS 6 HA320 FP202870 | 27253 -0320 00 0 10726 ANA BCD01 HA330 FP202880 | 27254 0602 00 2 00004 SLW 4,2 HA340 FP202890 | 27255 -0500 00 0 67176 CAL HEADR+4 REC ACTION TO TABLE HA350 FP202900 | 27256 0771 00 0 00036 ARS 30 HA360 FP202910 27257 -0320 00 0 10726 ANA BCD01 HA370 FP202920 | 27260 0602 00 2 00005 SLW 5,2 HA380 FP202930 | 27261 -0500 00 0 11065 CAL EQUIV+6 14 FOR SIZE HA450 FP202940 | 27262 0602 00 2 00006 SLW 6,2 HA460 FP202950 | 27263 0600 00 2 00001 STZ 1,2 HA470 FP202960 27264 0600 00 2 00002 STZ 2,2 HA480 FP202970 | 27265 -0500 00 0 67172 CAL HEADR PRIORITY CODE TO TBL HA481 FP202980 | 27266 -0320 00 0 11005 ANA BCD60 HA482 FP202990 | 27267 0771 00 0 00006 ARS 6 HA483 FP203000 | 27270 -0602 00 2 00006 ORS 6,2 HA484 FP203010 * FP203020 | * HORIZONTAL ENTRY GENERATION VN500 FP203030 | * FP203040 | 27271 -0500 00 0 67172 VN510 CAL HEADR VN510 FP203050 | 27272 -0320 00 0 11005 ANA BCD60 VN520 FP203060 27273 0771 00 0 00006 ARS 6 VN530 FP203070 | 27274 0602 00 0 30303 SLW VNA10 PRIORITY CODE STORAGE VN540 FP203080 | 27275 -0602 00 0 30304 ORS VNA20 LOC MASK VN550 FP203090 | 27276 -0501 00 0 30305 ORA VNA30 REJECT LOC MASK VN560 FP203100 | 27277 0771 00 0 00014 ARS 12 VN570 FP203110 27300 0602 00 0 30305 SLW VNA30 YADDR REJECT MASK VN580 FP203120 | 27301 0535 00 4 11255 LAC NOP,4 VN582 FP203130 | 27302 -0500 00 4 00003 CAL 3,4 VN583 FP203140 | 27303 -0734 00 4 00000 PDX 0,4 VN584 FP203150 | 27304 -0320 00 0 10730 ANA BCD03 VN585 FP203160 27305 0100 00 0 27307 TZE *+2 VN586 FP203170 | 27306 1 00001 4 27307 TXI *+1,4,1 VN587 FP203180 | 27307 0634 00 4 11377 SXA HORRL,4 VN588 FP203190 | 27310 0634 00 4 11401 SXA HORFL,4 VN589 FP203200 | 27311 -0500 00 0 15063 CAL VSA30 HDWR TAG FOR HORIZONTAL VN5890FP203210 27312 0602 00 0 11400 SLW HOPSU VN5890FP203220 | 27313 0774 00 4 00113 AXT OTZE,4 VN590 FP203230 | 27314 0520 00 4 67461 VN600 ZET ONTRY+OTZE,4 VN600 FP203240 | 27315 0020 00 0 27320 TRA *+3 VN602 FP203250 | 27316 0074 00 4 10507 TSX T0010,4 VN605 FP203260 27317 -1 11147 4 00000 STR 0,4,4711 HOR PRIOR NOT IN ONTRY TBL(TBL NFL) VN610 FP203270 | 27320 -0500 00 4 67461 CAL ONTRY+OTZE,4 VN620 FP203280 | 27321 -0320 00 0 10755 ANA BCD30 VN630 FP203290 | 27322 -0340 00 0 30303 LAS VNA10 PRIORITY CODE VN640 FP203300 | 27323 0020 00 0 27325 TRA *+2 VN650 FP203310 27324 0020 00 0 27330 TRA *+4 VN660 FP203320 | 27325 2 00001 4 27314 TIX VN600,4,1 VN670 FP203330 | 27326 0074 00 4 10507 TSX T0010,4 VN675 FP203340 | 27327 -1 11150 4 00000 STR 0,4,4712 HOR PRIOR NOT IN ONTRY TBL(TBL FUL) VN680 FP203350 | 27330 -0500 00 4 67461 CAL ONTRY+OTZE,4 VN690 FP203360 27331 0621 00 0 30306 STA VNA40 VN700 FP203370 | 27332 0621 00 0 27335 STA *+3 VN710 FP203380 | 27333 -0500 00 0 27335 CAL *+2 NZT-ENTRY VN720 FP203390 | 1 LISTING OF 12/01/64 PAGE 420 | CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | 27334 0074 00 4 11413 TSX PRGMR,4 VN730 FP203400 | 27335 -0520 00 0 00000 NZT 0 VN740 FP203410 | 27336 -0500 00 0 27340 CAL *+2 TRA-G3 VN750 FP203420 | 27337 0074 00 4 11413 TSX PRGMR,4 VN760 FP203430 27340 0020 00 0 00000 TRA 0 VN770 FP203440 | 27341 -0500 00 0 30307 CAL VNA50 3 VN780 FP203450 | 27342 0074 00 4 11477 TSX GADDR,4 VN790 FP203460 | 27343 -0500 00 0 27345 CAL *+2 NZT-HIGH VN800 FP203470 | 27344 0074 00 4 11413 TSX PRGMR,4 VN810 FP203480 27345 -0520 00 0 22203 NZT HIGH VN820 FP203490 | 27346 -0500 00 0 27350 CAL *+2 TRA-G3 VN830 FP203500 | 27347 0074 00 4 11413 TSX PRGMR,4 VN840 FP203510 | 27350 0020 00 0 00000 TRA 0 VN850 FP203520 | 27351 -0500 00 0 30307 CAL VNA50 3 VN860 FP203530 27352 0074 00 4 11477 TSX GADDR,4 VN870 FP203540 | 27353 -0500 00 0 67176 CAL HEADR+4 VN880 FP203550 | 27354 0771 00 0 00036 ARS 30 VN890 FP203560 | 27355 -0320 00 0 10726 ANA BCD01 VN900 FP203570 | 27356 -0340 00 0 30310 LAS VNA60 D VN910 FP203580 27357 0020 00 0 27361 TRA *+2 VN920 FP203590 | 27360 0020 00 0 27365 TRA VN980 VN930 FP203600 | 27361 -0340 00 0 30311 LAS VNA70 E VN940 FP203610 | 27362 0020 00 0 27364 TRA *+2 VN950 FP203620 | 27363 0020 00 0 27365 TRA VN980 VN960 FP203630 27364 0020 00 0 27473 TRA VO510 TEST FOR M VN970 FP203640 | * GENERATE DELETE CASES VN979 FP203650 | 27365 -0500 00 0 30306 VN980 CAL VNA40 STZ-ENTRY VN980 FP203660 | 27366 0074 00 4 11413 TSX PRGMR,4 VN990 FP203670 | 27367 0 00000 0 00000 PZE 0 VN991 FP203680 27370 -0500 00 0 27372 CAL *+2 NZT-EQUAL VO010 FP203690 | 27371 0074 00 4 11413 TSX PRGMR,4 VO020 FP203700 | 27372 -0520 00 0 22204 NZT EQUAL VO030 FP203710 | 27373 -0500 00 0 27375 CAL *+2 TRA VO040 FP203720 | 27374 0074 00 4 11413 TSX PRGMR,4 VO050 FP203730 27375 0020 00 0 00000 TRA 0 VO060 FP203740 | 27376 -0500 00 0 11032 CAL NMBR5 V0070 FP203750 | 27377 0074 00 4 11465 TSX PADDR,4 VO080 FP203760 | 27400 -0500 00 0 27402 CAL *+2 TSX-REJECT VO090 FP203770 | 27401 0074 00 4 11413 TSX PRGMR,4 VO100 FP203780 27402 0074 00 4 00001 TSX 1,4 VO110 FP203790 | 27403 -0500 00 0 30305 CAL VNA30 VO120 FP203800 | 27404 0074 00 4 11507 TSX YADDR,4 VO130 FP203810 | 27405 -0500 00 0 27407 CAL *+2 BCI-UNMATCHED VO140 FP203820 | 27406 0074 00 4 11413 TSX PRGMR,4 VO150 FP203830 27407 644544216323 BCI 1,UNMATC VO160 FP203840 | 27410 -0500 00 0 27412 CAL *+2 BCI VO170 FP203850 | 27411 0074 00 4 11413 TSX PRGMR,4 VO180 FP203860 | 27412 302524606060 BCI 1,HED VO190 FP203870 | 27413 -0500 00 0 27415 CAL *+2 TRA-MERGE VO200 FP203880 27414 0074 00 4 11413 TSX PRGMR,4 VO210 FP203890 | 27415 0020 00 0 22207 TRA MRGUN VO220 FP203900 | 27416 -0500 00 0 27420 CAL *+2 VO2210FP203910 | 27417 0074 00 4 11413 TSX PRGMR,4 VO2211FP203920 | 27420 0534 00 4 22174 LXA MRGLO,4 VO2212FP203930 27421 -0500 00 0 11401 CAL HORFL VO2213FP203940 | 1 LISTING OF 12/01/64 PAGE 421 | CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | | 27422 0400 00 0 30315 ADD VNB30 1 VO2214FP203950 27423 0767 00 0 00022 ALS 18 VO2215FP203960 | 27424 -0501 00 0 27426 ORA *+2 VO2216FP203970 | 27425 0074 00 4 11413 TSX PRGMR,4 VO2217FP203980 | 27426 1 00000 4 00000 TXI 0,4,0 VO2218FP203990 | 27427 -0500 00 0 30315 CAL VNB30 1 VO2219FP204000 27430 0074 00 4 11465 TSX PADDR,4 VO2220FP204010 | 27431 -0500 00 0 27433 CAL *+2 VO2221FP204020 | 27432 0074 00 4 11413 TSX PRGMR,4 VO2222FP204030 | 27433 0634 00 4 22176 SXA DICLO,4 VO2223FP204040 | 27434 -0500 00 0 27436 CAL *+2 V02224FP204050 27435 0074 00 4 11413 TSX PRGMR,4 V02225FP204060 | 27436 0074 00 4 22453 TSX HCKSM,4 V02226FP204070 | 27437 -0500 00 0 30304 CAL VNA20 LOC MASK VO230 FP204080 | 27440 0074 00 4 11547 TSX M0010,4 VO240 FP204090 | 27441 -0500 00 0 67176 CAL HEADR+4 VO250 FP204100 27442 0771 00 0 00036 ARS 30 VO260 FP204110 | 27443 -0320 00 0 10726 ANA BCD01 VO270 FP204120 | 27444 -0340 00 0 30311 LAS VNA70 E VO280 FP204130 | 27445 0020 00 0 27447 TRA *+2 VO290 FP204140 | 27446 0020 00 0 27456 TRA VO380 VO300 FP204150 27447 -0500 00 0 27451 CAL *+2 STL-DSWCH VO310 FP204160 | 27450 0074 00 4 11413 TSX PRGMR,4 VO320 FP204170 | 27451 -0625 00 0 22202 STL DSWCH VO330 FP204180 | 27452 -0500 00 0 27454 CAL *+2 STZ-ESWCH VO340 FP204190 | 27453 0074 00 4 11413 TSX PRGMR,4 VO350 FP204200 27454 0600 00 0 22201 STZ ESWCH VO360 FP204210 | 27455 0020 00 0 27464 TRA VO440 VO370 FP204220 | 27456 -0500 00 0 27460 VO380 CAL *+2 STL-DSWCH VO380 FP204230 | 27457 0074 00 4 11413 TSX PRGMR,4 VO390 FP204240 | 27460 -0625 00 0 22202 STL DSWCH VO400 FP204250 27461 -0500 00 0 27463 CAL *+2 STL-ESWCH VO410 FP204260 | 27462 0074 00 4 11413 TSX PRGMR,4 VO420 FP204270 | 27463 -0625 00 0 22201 STL ESWCH VO430 FP204280 | 27464 -0500 00 0 30303 VO440 CAL VNA10 PRIORITY CODE VO440 FP204290 | 27465 -0501 00 0 30314 ORA VNB20 DO LOC MASK VO450 FP204300 27466 0074 00 4 11547 TSX M0010,4 VO460 FP204310 | 27467 -0500 00 0 27471 CAL *+2 TRA-MERGE VO470 FP204320 | 27470 0074 00 4 11413 TSX PRGMR,4 VO480 FP204330 | 27471 0020 00 0 22210 TRA MERGE VO490 FP204340 | 27472 0020 00 0 30203 TRA VR530 ON VO500 FP204350 27473 -0340 00 0 30312 VO510 LAS VNA80 M VO510 FP204360 | 27474 0020 00 0 27476 TRA *+2 VO520 FP204370 | 27475 0020 00 0 27477 TRA VO550 VO530 FP204380 | 27476 0020 00 0 27660 TRA VP480 ON TO TEST FOR I VO540 FP204390 | * GENERATE MODIFY ENTRY VO549 FP204400 27477 -0500 00 0 30306 VO550 CAL VNA40 STZ-ENTRY VO550 FP204410 | 27500 0074 00 4 11413 TSX PRGMR,4 VO560 FP204420 | 27501 0 00000 0 00000 PZE 0 VO570 FP204430 | 27502 -0500 00 0 27504 CAL *+2 NZT-EQUAL VO580 FP204440 | 27503 0074 00 4 11413 TSX PRGMR,4 VO590 FP204450 27504 -0520 00 0 22204 NZT EQUAL VO600 FP204460 | 27505 -0500 00 0 27507 CAL *+2 TRA VO610 FP204470 | 27506 0074 00 4 11413 TSX PRGMR,4 VO620 FP204480 | 27507 0020 00 0 00000 TRA 0 VO630 FP204490 | 1 LISTING OF 12/01/64 PAGE 422 CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | | 27510 -0500 00 0 11032 CAL NMBR5 V0640 FP204500 | 27511 0074 00 4 11465 TSX PADDR,4 VO650 FP204510 | 27512 -0500 00 0 27514 CAL *+2 TSX-REJECT VO660 FP204520 27513 0074 00 4 11413 TSX PRGMR,4 VO670 FP204530 | 27514 0074 00 4 00001 TSX 1,4 VO680 FP204540 | 27515 -0500 00 0 30305 CAL VNA30 REJECT YADDR MASK VO690 FP204550 | 27516 0074 00 4 11507 TSX YADDR,4 VO700 FP204560 | 27517 -0500 00 0 27521 CAL *+2 BCI-UNMATCHED VO710 FP204570 27520 0074 00 4 11413 TSX PRGMR,4 VO720 FP204580 | 27521 644544216323 BCI 1,UNMATC VO730 FP204590 | 27522 -0500 00 0 27524 CAL *+2 BCI VO740 FP204600 | 27523 0074 00 4 11413 TSX PRGMR,4 VO750 FP204610 | 27524 302524606060 BCI 1,HED VO760 FP204620 27525 -0500 00 0 27527 CAL *+2 TRA-MERGE VO770 FP204630 | 27526 0074 00 4 11413 TSX PRGMR,4 VO780 FP204640 | 27527 0020 00 0 22207 TRA MRGUN VO790 FP204650 | 27530 -0500 00 0 27532 CAL *+2 LXA-MRGLO VO800 FP204660 | 27531 0074 00 4 11413 TSX PRGMR,4 VO810 FP204670 27532 0534 00 4 22174 LXA MRGLO,4 VO820 FP204680 | 27533 -0500 00 0 11401 CAL HORFL FIXED LENGTH VO830 FP204690 | 27534 0400 00 0 30315 ADD VNB30 1 VO831 FP204700 | 27535 0767 00 0 00022 ALS 18 VO840 FP204710 | 27536 -0501 00 0 27540 ORA *+2 TXI-FIXED LENGTH VO850 FP204720 27537 0074 00 4 11413 TSX PRGMR,4 VO860 FP204730 | 27540 1 00000 4 00000 TXI 0,4,0 VO870 FP204740 | 27541 -0500 00 0 30315 CAL VNB30 1 VO880 FP204750 | 27542 0074 00 4 11465 TSX PADDR,4 VO890 FP204760 | 27543 -0500 00 0 27545 CAL *+2 SXA-DICLO VO900 FP204770 27544 0074 00 4 11413 TSX PRGMR,4 VO910 FP204780 | 27545 0634 00 4 22176 SXA DICLO,4 VO920 FP204790 | 27546 -0500 00 0 27550 CAL *+2 TXI-12 VO930 FP204800 | 27547 0074 00 4 11413 TSX PRGMR,4 VO940 FP204810 | 27550 1 00014 4 00000 TXI 0,4,12 VO950 FP204820 27551 -0500 00 0 30315 CAL VNB30 1 VO960 FP204830 | 27552 0074 00 4 11465 TSX PADDR,4 VO970 FP204840 | 27553 -0500 00 0 27555 CAL *+2 SXA-VALLO VO980 FP204850 | 27554 0074 00 4 11413 TSX PRGMR,4 VO990 FP204860 | 27555 0634 00 4 22177 SXA VALLO,4 VP010 FP204870 27556 -0500 00 0 27560 CAL *+2 VP020 FP204880 | 27557 0074 00 4 11413 TSX PRGMR,4 VP021 FP204890 | 27560 0074 00 4 22453 TSX HCKSM,4 TEST FOR CHECKSUM VP022 FP204900 | 27561 -0500 00 0 27563 CAL *+2 VP023 FP204910 | 27562 0074 00 4 11413 TSX PRGMR,4 VP025 FP204920 27563 0020 00 0 00000 TRA 0 VP030 FP204930 | 27564 -0500 00 0 30322 CAL VNB80 VP035 FP204940 | 27565 0074 00 4 11477 TSX GADDR,4 VP040 FP204950 | 27566 -0500 00 0 27570 CAL *+2 VP045 FP204960 | 27567 0074 00 4 11413 TSX PRGMR,4 VP050 FP204970 27570 -0520 60 0 22176 NZT* DICLO VP060 FP204980 | 27571 -0500 00 0 27573 CAL *+2 VP070 FP204990 | 27572 0074 00 4 11413 TSX PRGMR,4 VP080 FP205000 | 27573 0020 00 0 22210 TRA MERGE VP085 FP205010 | 27574 -0500 00 0 27576 CAL *+2 LAC-HORXR VP090 FP205020 27575 0074 00 4 11413 TSX PRGMR,4 VP100 FP205030 | 27576 0535 00 4 22200 LAC HORXR,4 VP110 FP205040 | 1 LISTING OF 12/01/64 PAGE 423 | CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | 27577 -0500 00 0 27601 CAL *+2 TXI-13 VP120 FP205050 | 27600 0074 00 4 11413 TSX PRGMR,4 VP130 FP205060 | 27601 1 00015 4 00000 TXI 0,4,13 VP140 FP205070 | 27602 -0500 00 0 30315 CAL VNB30 1 VP150 FP205080 | 27603 0074 00 4 11465 TSX PADDR,4 VP160 FP205090 27604 -0500 00 0 27606 CAL *+2 SXA-DICLO VP170 FP205100 | 27605 0074 00 4 11413 TSX PRGMR,4 VP180 FP205110 | 27606 0634 00 4 22176 SXA DICLO,4 VP190 FP205120 | 27607 -0500 00 0 27611 CAL *+2 TXI-12 VP200 FP205130 | 27610 0074 00 4 11413 TSX PRGMR,4 VP210 FP205140 27611 1 00014 4 00000 TXI 0,4,12 VP220 FP205150 | 27612 -0500 00 0 30315 CAL VNB30 1 VP230 FP205160 | 27613 0074 00 4 11465 TSX PADDR,4 VP240 FP205170 | 27614 -0500 00 0 27616 CAL *+2 SXA-VALLO VP250 FP205180 | 27615 0074 00 4 11413 TSX PRGMR,4 VP260 FP205190 27616 0634 00 4 22177 SXA VALLO,4 VP270 FP205200 | 27617 -0500 00 0 27621 CAL *+2 NZT (- DICLO VP280 FP205210 | 27620 0074 00 4 11413 TSX PRGMR,4 VP290 FP205220 | 27621 -0520 60 0 22176 NZT* DICLO VP300 FP205230 | 27622 -0500 00 0 27624 CAL *+2 TRA-MERGE VP310 FP205240 27623 0074 00 4 11413 TSX PRGMR,4 VP320 FP205250 | 27624 0020 00 0 22210 TRA MERGE VP330 FP205260 | 27625 -0500 00 0 30304 CAL VNA20 VP331 FP205270 | 27626 0074 00 4 11547 TSX M0010,4 VP332 FP205280 | 27627 -0500 00 0 27631 CAL *+2 VP333 FP205290 27630 0074 00 4 11413 TSX PRGMR,4 VP334 FP205300 | 27631 -0520 60 0 22176 NZT* DICLO VP335 FP205310 | 27632 -0500 00 0 27634 CAL *+2 VP336 FP205320 | 27633 0074 00 4 11413 TSX PRGMR,4 VP337 FP205330 | 27634 0020 00 0 22210 TRA MERGE VP338 FP205340 27635 -0500 00 0 27637 CAL *+2 TSX-INTERPRET VP340 FP205350 | 27636 0074 00 4 11413 TSX PRGMR,4 VP350 FP205360 | 27637 0074 00 4 21104 TSX HORDO,4 VP360 FP205370 | 27640 -0500 00 0 27642 CAL *+2 REJECT LINKAGE VP361 FP205380 | 27641 0074 00 4 11413 TSX PRGMR,4 VP362 FP205390 27642 0 00036 0 00000 PZE 0,0,30 VP363 FP205400 | 27643 -0500 00 0 30305 CAL VNA30 VP364 FP205410 | 27644 0074 00 4 11507 TSX YADDR,4 VP365 FP205420 | 27645 -0500 00 0 30303 CAL VNA10 PRIORITY VP370 FP205430 | 27646 -0501 00 0 30314 ORA VNB20 DUMP OBJ DO VP380 FP205440 27647 0074 00 4 11547 TSX M0010,4 VP390 FP205450 | 27650 -0500 00 0 27652 CAL *+2 TRA-DO PLUS ONE VP400 FP205460 | 27651 0074 00 4 11413 TSX PRGMR,4 VP410 FP205470 | 27652 0020 00 0 00022 TRA 18 VP420 FP205480 | 27653 -0500 00 0 30303 CAL VNA10 PRIORITY VP430 FP205490 27654 -0501 00 0 30304 ORA VNA20 VP440 FP205500 | 27655 0771 00 0 00014 ARS 12 VP450 FP205510 | 27656 0074 00 4 11507 TSX YADDR,4 VP460 FP205520 | 27657 0020 00 0 30203 TRA VR530 ON VP470 FP205530 | 27660 -0340 00 0 30313 VP480 LAS VNA90 I VP480 FP205540 27661 0020 00 0 27663 TRA *+2 VP490 FP205550 | 27662 0020 00 0 27665 TRA VP520 VP500 FP205560 | 27663 0074 00 4 10507 TSX T0010,4 VP505 FP205570 | 27664 -1 06022 3 00000 STR 0,3,3090 REC ACTION NOT I,D,E,OR M VP510 FP205580 | * GENERATE INSERT PROGRAM VP519 FP205590 1 LISTING OF 12/01/64 PAGE 424 | CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | | 27665 -0500 00 0 27667 VP520 CAL *+2 NZT-EQUAL VP520 FP205600 | 27666 0074 00 4 11413 TSX PRGMR,4 VP530 FP205610 27667 -0520 00 0 22204 NZT EQUAL VP540 FP205620 | 27670 -0500 00 0 27672 CAL *+2 TRA VP550 FP205630 | 27671 0074 00 4 11413 TSX PRGMR,4 VP560 FP205640 | 27672 0020 00 0 00000 TRA 0 VP570 FP205650 | 27673 -0500 00 0 11036 CAL NMBR9 VP580 FP205660 27674 0074 00 4 11465 TSX PADDR,4 VP590 FP205670 | 27675 -0500 00 0 27677 CAL *+2 STL-ISWCH VP600 FP205680 | 27676 0074 00 4 11413 TSX PRGMR,4 VP610 FP205690 | 27677 -0625 00 0 22205 STL ISWCH VP620 FP205700 | 27700 -0500 00 0 27702 CAL *+2 LXA-MRGLO VP630 FP205710 27701 0074 00 4 11413 TSX PRGMR,4 VP640 FP205720 | 27702 0534 00 4 22174 LXA MRGLO,4 VP650 FP205730 | 27703 -0500 00 0 11401 CAL HORFL FIXED HENGTH VP660 FP205740 | 27704 0400 00 0 30315 ADD VNB30 1 VP661 FP205750 | 27705 0767 00 0 00022 ALS 18 VP670 FP205760 27706 -0501 00 0 27710 ORA *+2 TXI-FIXED LENGTH VP680 FP205770 | 27707 0074 00 4 11413 TSX PRGMR,4 VP690 FP205780 | 27710 1 00000 4 00000 TXI 0,4,0 VP700 FP205790 | 27711 -0500 00 0 30315 CAL VNB30 1 VP710 FP205800 | 27712 0074 00 4 11465 TSX PADDR,4 VP720 FP205810 27713 -0500 00 0 27715 CAL *+2 SXA-DICLO VP730 FP205820 | 27714 0074 00 4 11413 TSX PRGMR,4 VP740 FP205830 | 27715 0634 00 4 22176 SXA DICLO,4 VP750 FP205840 | 27716 -0500 00 0 27720 CAL *+2 TXI-12 VP760 FP205850 | 27717 0074 00 4 11413 TSX PRGMR,4 VP770 FP205860 27720 1 00014 4 00000 TXI 0,4,12 VP780 FP205870 | 27721 -0500 00 0 30315 CAL VNB30 1 VP790 FP205880 | 27722 0074 00 4 11465 TSX PADDR,4 VP800 FP205890 | 27723 -0500 00 0 27725 CAL *+2 SXA-VALLO VP810 FP205900 | 27724 0074 00 4 11413 TSX PRGMR,4 VP820 FP205910 27725 0634 00 4 22177 SXA VALLO,4 VP830 FP205920 | 27726 -0500 00 0 27730 CAL *+2 FP205930 | 27727 0074 00 4 11413 TSX PRGMR,4 FP205940 | 27730 0074 00 4 22453 TSX HCKSM,4 FP205950 | 27731 -0500 00 0 27733 CAL *+2 VP843 FP205960 27732 0074 00 4 11413 TSX PRGMR,4 VP850 FP205970 | 27733 0020 00 0 00000 TRA 0 VP860 FP205980 | 27734 -0500 00 0 30322 CAL VNB80 4 VP870 FP205990 | 27735 0074 00 4 11477 TSX GADDR,4 VP880 FP206000 | 27736 -0500 00 0 30306 CAL VNA40 STZ-ENTRY VP910 FP206010 27737 0074 00 4 11413 TSX PRGMR,4 VP920 FP206020 | 27740 0 00000 0 00000 PZE 0 VP930 FP206030 | 27741 -0500 00 0 27743 CAL *+2 NZT-ISWCH VP940 FP206040 | 27742 0074 00 4 11413 TSX PRGMR,4 VP950 FP206050 | 27743 0520 00 0 22205 ZET ISWCH VP960 FP206060 27744 -0500 00 0 27746 CAL *+2 TRA-TO TEST DICLO VP970 FP206070 | 27745 0074 00 4 11413 TSX PRGMR,4 VP980 FP206080 | 27746 0020 00 0 00000 TRA 0 VP990 FP206090 | 27747 -0500 00 0 30320 CAL VNB70 11 VQ010 FP206100 | 27750 0520 00 0 11371 ZET HPTSW VQ020 FP206110 27751 0400 00 0 30307 ADD VNA50 3 VQ030 FP206120 | 27752 0074 00 4 11465 TSX PADDR,4 VQ040 FP206130 | 27753 -0500 00 0 27755 CAL *+2 TSX-REJECT VQ050 FP206140 | 1 LISTING OF 12/01/64 PAGE 425 | CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | 27754 0074 00 4 11413 TSX PRGMR,4 VQ060 FP206150 | 27755 0074 00 4 00001 TSX 1,4 VQ070 FP206160 | 27756 -0500 00 0 30305 CAL VNA30 REJECT MASK VQ080 FP206170 | 27757 0074 00 4 11507 TSX YADDR,4 VQ090 FP206180 27760 -0500 00 0 27762 CAL *+2 BCI-INSERT EQUAL VQ100 FP206190 | 27761 0074 00 4 11413 TSX PRGMR,4 VQ110 FP206200 | 27762 314562255163 BCI 1,INSERT VQ120 FP206210 | 27763 -0500 00 0 27765 CAL *+2 BCI VQ130 FP206220 | 27764 0074 00 4 11413 TSX PRGMR,4 VQ140 FP206230 27765 602550642143 BCI 1, EQUAL VQ150 FP206240 | 27766 -0500 00 0 27770 CAL *+2 TRA-MERGE VQ160 FP206250 | 27767 0074 00 4 11413 TSX PRGMR,4 VQ170 FP206260 | 27770 0020 00 0 22210 TRA MERGE VQ180 FP206270 | 27771 0520 00 0 11371 ZET HPTSW VQ190 FP206280 27772 0020 00 0 30030 TRA VQ500 TO REPORT ROUTINE VQ200 FP206290 | 27773 -0500 00 0 27775 CAL *+2 STZ-ISWCH VQ210 FP206300 | 27774 0074 00 4 11413 TSX PRGMR,4 VQ220 FP206310 | 27775 0600 00 0 22205 STZ ISWCH VQ230 FP206320 | 27776 -0500 00 0 30000 CAL *+2 LAC-HORZR VQ240 FP206330 27777 0074 00 4 11413 TSX PRGMR,4 VQ250 FP206340 | 30000 0535 00 4 22200 LAC HORXR,4 VQ260 FP206350 | 30001 -0500 00 0 30003 CAL *+2 TXI-13 VQ270 FP206360 | 30002 0074 00 4 11413 TSX PRGMR,4 VQ280 FP206370 | 30003 1 00015 4 00000 TXI 0,4,13 VQ290 FP206380 30004 -0500 00 0 30315 CAL VNB30 1 VQ300 FP206390 | 30005 0074 00 4 11465 TSX PADDR,4 VQ310 FP206400 | 30006 -0500 00 0 30010 CAL *+2 SXA-DICLO VQ320 FP206410 | 30007 0074 00 4 11413 TSX PRGMR,4 VQ330 FP206420 | 30010 0634 00 4 22176 SXA DICLO,4 VQ340 FP206430 30011 -0500 00 0 30013 CAL *+2 TXI-12 VQ350 FP206440 | 30012 0074 00 4 11413 TSX PRGMR,4 VQ360 FP206450 | 30013 1 00014 4 00000 TXI 0,4,12 VQ370 FP206460 | 30014 -0500 00 0 30315 CAL VNB30 1 VQ380 FP206470 | 30015 0074 00 4 11465 TSX PADDR,4 VQ390 FP206480 30016 -0500 00 0 30020 CAL *+2 SXA-VALLO VQ400 FP206490 | 30017 0074 00 4 11413 TSX PRGMR,4 VQ410 FP206500 | 30020 0634 00 4 22177 SXA VALLO,4 VQ420 FP206510 | 30021 -0500 00 0 30023 CAL *+2 NZT*-DICLO VQ430 FP206520 | 30022 0074 00 4 11413 TSX PRGMR,4 VQ440 FP206530 30023 -0520 60 0 22176 NZT* DICLO VQ450 FP206540 | 30024 -0500 00 0 30026 CAL *+2 TRA-MERGE VQ460 FP206550 | 30025 0074 00 4 11413 TSX PRGMR,4 VQ470 FP206560 | 30026 0020 00 0 22210 TRA MERGE VQ480 FP206570 | 30027 0020 00 0 30116 TRA VR050 AROUND REPORT ROUTINE VQ490 FP206580 30030 -0500 00 0 30032 VQ500 CAL *+2 NZT-ISWCH VQ500 FP206590 | 30031 0074 00 4 11413 TSX PRGMR,4 VQ510 FP206600 | 30032 -0520 00 0 22205 NZT ISWCH VQ520 FP206610 | 30033 -0500 00 0 30035 CAL *+2 TRA VQ530 FP206620 | 30034 0074 00 4 11413 TSX PRGMR,4 VQ540 FP206630 30035 0020 00 0 00000 TRA 0 VQ550 FP206640 | 30036 -0500 00 0 30307 CAL VNA50 3 VQ560 FP206650 | 30037 0074 00 4 11465 TSX PADDR,4 VQ570 FP206660 | 30040 -0500 00 0 30042 CAL *+2 STZ-ISWCH VQ580 FP206670 | 30041 0074 00 4 11413 TSX PRGMR,4 VQ590 FP206680 30042 0600 00 0 22205 STZ ISWCH VQ600 FP206690 | 1 LISTING OF 12/01/64 PAGE 426 | CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | | 30043 -0500 00 0 30045 CAL *+2 TRA-MERGE VQ610 FP206700 30044 0074 00 4 11413 TSX PRGMR,4 VQ620 FP206710 | 30045 0020 00 0 22210 TRA MERGE VQ630 FP206720 | 30046 -0500 00 0 30050 CAL *+2 LAC-HORXR VQ640 FP206730 | 30047 0074 00 4 11413 TSX PRGMR,4 VQ650 FP206740 | 30050 0535 00 4 22200 LAC HORXR,4 VQ660 FP206750 30051 -0500 00 0 30053 CAL *+2 TXI-13 VQ670 FP206760 | 30052 0074 00 4 11413 TSX PRGMR,4 VQ680 FP206770 | 30053 1 00015 4 00000 TXI 0,4,13 VQ690 FP206780 | 30054 -0500 00 0 30315 CAL VNB30 1 VQ700 FP206790 | 30055 0074 00 4 11465 TSX PADDR,4 VQ710 FP206800 30056 -0500 00 0 30060 CAL *+2 SXA-DICLO VQ720 FP206810 | 30057 0074 00 4 11413 TSX PRGMR,4 VQ730 FP206820 | 30060 0634 00 4 22176 SXA DICLO,4 VQ740 FP206830 | 30061 -0500 00 0 30063 CAL *+2 TXI-12 VQ750 FP206840 | 30062 0074 00 4 11413 TSX PRGMR,4 VQ760 FP206850 30063 1 00014 4 00000 TXI 0,4,12 VQ770 FP206860 | 30064 -0500 00 0 30315 CAL VNB30 1 VQ780 FP206870 | 30065 0074 00 4 11465 TSX PADDR,4 VQ790 FP206880 | 30066 -0500 00 0 30070 CAL *+2 SXA-VALLO VQ800 FP206890 | 30067 0074 00 4 11413 TSX PRGMR,4 VQ810 FP206900 30070 0634 00 4 22177 SXA VALLO,4 VQ820 FP206910 | 30071 -0500 00 0 30073 CAL *+2 ZET*-DICLO VQ830 FP206920 | 30072 0074 00 4 11413 TSX PRGMR,4 VQ840 FP206930 | 30073 0520 60 0 22176 ZET* DICLO VQ850 FP206940 | 30074 -0500 00 0 30076 CAL *+2 TRA VQ860 FP206950 30075 0074 00 4 11413 TSX PRGMR,4 VQ870 FP206960 | 30076 0020 00 0 00000 TRA 0 VQ880 FP206970 | 30077 -0500 00 0 30322 CAL VNB80 4 VQ890 FP206980 | 30100 0074 00 4 11465 TSX PADDR,4 VQ900 FP206990 | 30101 -0500 00 0 30103 CAL *+2 NZT-ISWCH VQ910 FP207000 30102 0074 00 4 11413 TSX PRGMR,4 VQ920 FP207010 | 30103 -0520 00 0 22205 NZT ISWCH VQ930 FP207020 | 30104 -0500 00 0 30106 CAL *+2 TRA-MERGE VQ940 FP207030 | 30105 0074 00 4 11413 TSX PRGMR,4 VQ950 FP207040 | 30106 0020 00 0 22210 TRA MERGE VQ960 FP207050 30107 -0500 00 0 30111 CAL *+2 TRA-CHANGE REPORT VQ970 FP207060 | 30110 0074 00 4 11413 TSX PRGMR,4 VQ980 FP207070 | 30111 0020 00 0 00000 TRA 0 VQ990 FP207080 | 30112 -0500 00 0 30303 CAL VNA10 VR010 FP207090 | 30113 -0501 00 0 30323 ORA VNB90 POST CHANGE LOC MASK VR020 FP207100 30114 0771 00 0 00014 ARS 12 VR030 FP207110 | 30115 0074 00 4 11507 TSX YADDR,4 VR040 FP207120 | 30116 -0500 00 0 30120 VR050 CAL *+2 STZ-ISWCH VR050 FP207130 | 30117 0074 00 4 11413 TSX PRGMR,4 VR051 FP207140 | 30120 0600 00 0 22205 STZ ISWCH VR052 FP207150 30121 -0500 00 0 30304 CAL VNA20 LOC MASK VR053 FP207160 | 30122 0074 00 4 11547 TSX M0010,4 VR060 FP207170 | 30123 -0500 00 0 30125 CAL *+2 NZT-ISWCH VR070 FP207180 | 30124 0074 00 4 11413 TSX PRGMR,4 VR080 FP207190 | 30125 -0520 00 0 22205 NZT ISWCH VR090 FP207200 30126 -0500 00 0 30130 CAL *+2 TRA VR100 FP207210 | 30127 0074 00 4 11413 TSX PRGMR,4 VR110 FP207220 | 30130 0020 00 0 00000 TRA 0 VR120 FP207230 | 30131 -0500 00 0 30322 CAL VNB80 4 VR130 FP207240 | 1 LISTING OF 12/01/64 PAGE 427 CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | | 30132 0074 00 4 11465 TSX PADDR,4 VR140 FP207250 | 30133 -0500 00 0 30135 CAL *+2 TSX-INSERT VR150 FP207260 | 30134 0074 00 4 11413 TSX PRGMR,4 VR160 FP207270 30135 0074 00 4 00000 TSX 0,4 VR170 FP207280 | 30136 -0500 00 0 67174 CAL HEADR+2 VR180 FP207290 | 30137 -0320 00 0 10733 ANA BCD06 VR200 FP207300 | 30140 -0501 00 0 30324 ORA VNC10 INSERT YADDR MASK VR210 FP207310 | 30141 0074 00 4 11507 TSX YADDR,4 VR220 FP207320 30142 -0500 00 0 30144 CAL *+2 VR230 FP207330 | 30143 0074 00 4 11413 TSX PRGMR,4 VR231 FP207340 | 30144 0 00000 0 00001 PZE 1 VR232 FP207350 | 30145 -0500 00 0 30305 CAL VNA30 VR240 FP207360 | 30146 0074 00 4 11507 TSX YADDR,4 VR250 FP207370 30147 -0500 00 0 30151 CAL *+2 TRA-REF 35 VR270 FP207380 | 30150 0074 00 4 11413 TSX PRGMR,4 VR280 FP207390 | 30151 0020 00 0 00000 TRA 0 VR290 FP207400 | 30152 -0500 00 0 30325 CAL VNC20 REF 35 YADDR MASK VR300 FP207410 | 30153 0074 00 4 11507 TSX YADDR,4 VR310 FP207420 30154 -0500 00 0 30156 CAL *+2 TSX-INTERPRET VR320 FP207430 | 30155 0074 00 4 11413 TSX PRGMR,4 VR330 FP207440 | 30156 0074 00 4 21104 TSX HORDO,4 VR340 FP207450 | 30157 -0500 00 0 30161 CAL *+2 REJECT LINKAGE VR341 FP207460 | 30160 0074 00 4 11413 TSX PRGMR,4 VR342 FP207470 30161 0 00037 0 00000 PZE 0,0,31 VR343 FP207480 | 30162 -0500 00 0 30305 CAL VNA30 VR344 FP207490 | 30163 0074 00 4 11507 TSX YADDR,4 VR345 FP207500 | 30164 -0500 00 0 30303 CAL VNA10 PRIORITY CODE VR350 FP207510 | 30165 -0501 00 0 30314 ORA VNB20 DO LOC MASK VR360 FP207520 30166 0074 00 4 11547 TSX M0010,4 DUMP OBJ PGM DO VR370 FP207530 | 30167 -0500 00 0 30326 CAL VNC30 21 VR380 FP207540 | 30170 -0520 00 0 11371 NZT HPTSW VR390 FP207550 | 30171 0400 00 0 30315 ADD VNB30 1 VR400 FP207560 | 30172 -0501 00 0 30174 ORA *+2 TRA-ENTRY-LOOP CTRL VR410 FP207570 30173 0074 00 4 11413 TSX PRGMR,4 VR420 FP207580 | 30174 0020 00 0 00000 TRA 0 VR430 FP207590 | 30175 -0500 00 0 30304 CAL VNA20 LOC MASK VR440 FP207600 | 30176 0771 00 0 00014 ARS 12 VR450 FP207610 | 30177 0074 00 4 11507 TSX YADDR,4 VR460 FP207620 30200 -0500 00 0 30202 CAL *+2 STZ-ISWCH VR470 FP207630 | 30201 0074 00 4 11413 TSX PRGMR,4 VR480 FP207640 | 30202 0600 00 0 22205 STZ ISWCH VR490 FP207650 | 30203 -0500 00 0 30306 VR530 CAL VNA40 STZ TO ENTRY VR500 FP207660 | 30204 0074 00 4 11413 TSX PRGMR,4 VR510 FP207670 30205 0 00000 0 00000 PZE 0 VR520 FP207680 | 30206 -0500 00 0 11377 CAL HORRL SIZE OF OBJECT RECORD VR529 FP207690 | 30207 0600 00 0 11371 STZ HPTSW CLOSE HORIZ REPORT SW VR531 FP207700 | 30210 0621 00 0 30277 STA VR560 VR540 FP207710 | 30211 0774 00 4 00101 AXT 65,4 ZERO SAA18 TO SAA22 VR5410FP207720 30212 0600 00 4 24154 STZ SAA23,4 I E RESTORE HORMCH VR5410FP207730 | 30213 2 00001 4 30212 TIX *-1,4,1 VR5410FP207740 | 30214 0600 00 0 33647 STZ NAA30 RESTORE HORRPT VR5420FP207750 | 30215 0600 00 0 35034 STZ NAC40 VR5420FP207760 | 30216 0600 00 0 35035 STZ NAC50 VR5420FP207770 30217 -0500 00 0 11410 CAL AAAAA VR5420FP207780 | 30220 0602 00 0 35036 SLW NAC60 VR5420FP207790 | 1 LISTING OF 12/01/64 PAGE 428 | CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | 30221 0602 00 0 35125 SLW NAF40 VR5420FP207800 | 30222 0774 00 4 00016 AXT 14,4 VR5420FP207810 | 30223 0600 00 4 35055 STZ NAC70+14,4 VR5420FP207820 | 30224 2 00001 4 30223 TIX *-1,4,1 VR5420FP207830 | 30225 0600 00 0 35112 STZ NAE50 VR5420FP207840 30226 0600 00 0 35113 STZ NAE60 VR5421FP207850 | 30227 0600 00 0 35123 STZ NAF20 VR5421FP207860 | 30230 0600 00 0 35124 STZ NAF30 VR5421FP207870 | 30231 0600 00 0 35131 STZ NAF80 VR5421FP207880 | 30232 0774 00 4 01130 AXT 600,4 VR5421FP207890 30233 0600 00 4 35000 STZ NAA40+600,4 VR5421FP207900 | 30234 2 00001 4 30233 TIX *-1,4,1 VR5421FP207910 | 30235 -0500 00 0 10771 CAL BCD44 VR5421FP207920 | 30236 0320 00 0 30304 ANS VNA20 VR5421FP207930 | 30237 0320 00 0 30314 ANS VNB20 VR5421FP207940 30240 0320 00 0 30323 ANS VNB90 VR5422FP207950 | 30241 -0500 00 0 30330 CAL VNC50 VR5422FP207960 | 30242 0602 00 0 30305 SLW VNA30 VR5422FP207970 | 30243 0774 00 4 00001 AXT 1,4 VR5422FP207980 | 30244 0634 00 4 35025 SXA NAB80,4 VR5422FP207990 30245 0774 00 4 35037 AXT NAC70,4 VR5422FP208000 | 30246 0634 00 4 33100 SXA NC900,4 VR5422FP208010 | 30247 0600 00 0 35011 STZ NAA60 VR5422FP208020 | 30250 0600 00 0 31450 STZ LQQ10 RESTORE HORSEL STORAGE VR5430FP208030 | 30251 0600 00 0 31451 STZ LQQ20 VR5430FP208040 30252 0774 00 4 00012 AXT 10,4 VR5430FP208050 | 30253 0600 00 4 31464 STZ LQQ30+10,4 VR5430FP208060 | 30254 2 00001 4 30253 TIX *-1,4,1 VR5430FP208070 | 30255 0600 00 0 31464 STZ LQQ40 VR5430FP208080 | 30256 0600 00 0 31466 STZ LQQ60 VR5430FP208090 30257 0600 00 0 31467 STZ LQQ70 VR5430FP208100 | 30260 0600 00 0 31470 STZ LQQ80 VR5430FP208110 | 30261 0600 00 0 31475 STZ LQR40 VR5430FP208120 | 30262 0600 00 0 31476 STZ LQR50 VR5431FP208130 | 30263 0600 00 0 31477 STZ LQR60 VR5431FP208140 30264 0600 00 0 31501 STZ LQR80 VR5431FP208150 | 30265 0600 00 0 31502 STZ LQR90 VR5431FP208160 | 30266 0600 00 0 31503 STZ LQS10 VR5431FP208170 | 30267 0600 00 0 31506 STZ LQS40 VR5431FP208180 | 30270 0600 00 0 31507 STZ LQS50 VR5431FP208190 30271 0600 00 0 31510 STZ LQS60 VR5431FP208200 | 30272 0600 00 0 31515 STZ LQT20 VR5431FP208210 | 30273 0600 00 0 31521 STZ LQT60 VR5431FP208220 | 30274 0600 00 0 31522 STZ LQT61 VR5432FP208230 | 30275 0600 00 0 31523 STZ LQT62 VR5432FP208240 30276 0074 00 4 15073 TSX VV010,4 VR550 FP208250 | 30277 0 00000 0 00000 VR560 PZE 0 VR560 FP208260 | 30300 0074 00 4 12507 VR620 TSX MSYSRD,4 VR620 FP208270 | 30301 114721230421 BCI 1,9PAC4A HORSEL FP208280 | 30302 0 01645 0 32346 PZE VESEL,,VESEL-CLNHO-2 FP208290 30303 0 00000 0 00000 VNA10 PZE 0 +RIORITY STORAGE VNA10 FP208300 | 30304 -120000210000 VNA20 OCT 520000210000 6OC MASK VNA20 FP208310 | 30305 -120000650000 VNA30 OCT 520000650000 REJECT LOC MASK-YADDR VNA30 FP208320 | 30306 0600 00 0 00000 VNA40 STZ 0 ENTRY VNA40 FP208330 | 30307 0 00000 0 00003 VNA50 PZE 3 VNA50 FP208340 1 LISTING OF 12/01/64 PAGE 429 | CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | | 30310 000000000024 VNA60 BCI 1,00000D VNA60 FP208350 | 30311 000000000025 VNA70 BCI 1,00000E VNA70 FP208360 30312 000000000044 VNA80 BCI 1,00000M VNA80 FP208370 | 30313 000000000031 VNA90 BCI 1,00000I VNA90 FP208380 | 30314 -120000440000 VNB20 OCT 520000440000 DO LOC MASK VNB20 FP208390 | 30315 0 00000 0 00001 VNB30 PZE 1 VNB30 FP208400 | 30316 0 00000 0 00006 VNB40 PZE 6 VNB40 FP208410 30317 0 00000 0 00020 VNB60 PZE 16 VNB60 FP208420 | 30320 0 00000 0 00013 VNB70 PZE 11 VNB70 FP208430 | 30321 0 00000 0 00012 VNB71 PZE 10 VNB71 FP208440 | 30322 0 00000 0 00004 VNB80 PZE 4 VNB80 FP208450 | 30323 -120000620000 VNB90 OCT 520000620000 POST CHANGE LOC MASK VNB90 FP208460 30324 +000063000000 VNC10 OCT 63000000 2NSERT YADDR MASK VNC10 FP208470 | 30325 +000034777700 VNC20 OCT 34777700 REF 35 YADDR MASK VNC20 FP208480 | 30326 0 00000 0 00025 VNC30 PZE 21 VNC30 FP208490 | 30327 +000000077777 VNC40 OCT 77777 VNC40 FP208500 | 30330 -120000650000 VNC50 OCT 520000650000 VNC50 FP208510 30477 CLNHO1 EQU CLNHO FP208520 | * CLNHO MARKS END OF CLNHOR RECORD. SINCE IT IS USED AS AN ORIGIN FP208530 | * SYMBOL, IT WAS DEFINED EARLIER, AT THE END OF CLNVER. FP208540 | * THE DIFFERENCE IN SIZE BETWEEN CLNHOR AND CLNVER IS IN AN FP208550 | * EQU CARD, CLNHOZ FP208560 00000 TCD 0 FP208570 | 1 LISTING OF 12/01/64 PAGE 430 | CLNHOR (9PAC49). HORIZONTAL CLEANUP FUNCTION | | * FP208590 1 LISTING OF 12/01/64 PAGE 431 | HORSEL (9PAC4A). HORIZONTAL SELECT FUNCTION | | * FP208610 | * FP208620 * FP208630 | * HORIZONTAL SEL-NOT FCTN FP208640 | * FP208650 | 30501 ORG CLNHO+2 HORSEL FP208670 | 30501 114721230421 BCI 1,9PAC4A FP208680 30502 304651622543 BCI 1,HORSEL SEARCH CODE LQ010 FP208690 | 00100 ORG SYSTRA FP208700 | 00100 0020 00 0 31445 TRA LX420 FP208710 | 30503 ORG CLNHO+4 FP208720 | 30503 0020 00 0 31400 TRA LX010 CLEAN UP LQ020 FP208730 30504 0441 00 0 04621 LQ021 LDI CARD LQ021 FP208740 | 30505 0520 00 0 31450 ZET LQQ10 FIRST SEL-NOT CARD LQ030 FP208750 | 30506 0020 00 0 30524 TRA LQ130 NOT FIRST CARD LQ040 FP208760 | 30507 0760 00 0 00000 CLM LQ050 FP208770 | 30510 0074 00 4 11426 TSX STORR,4 FLIP FLOP TO ATORR LQ060 FP208780 30511 -0500 00 0 11436 CAL G0080 LQ061 FP208790 | 30512 0621 00 0 31451 STA LQQ20 LQ070 FP208800 | 30513 -0500 00 0 11024 CAL BCD77 LQ071 FP208810 | 30514 0074 00 4 11426 TSX STORR,4 LQ072 FP208820 | 30515 -0500 00 0 11436 CAL G0080 LQ073 FP208830 30516 0621 00 0 31475 STA LQR40 LQ074 FP208840 | 30517 -0500 00 0 30521 CAL *+2 LQ080 FP208850 | 30520 0074 00 4 11413 TSX PRGMR,4 MOVE STZ LQ090 FP208860 | 30521 0600 00 0 00000 STZ 0 LQ100 FP208870 | 30522 0500 00 0 31451 CLA LQQ20 CREATE ADDRESS LQ110 FP208880 30523 0074 00 4 11455 TSX SADDR+1,4 LQ120 FP208890 | 30524 -0500 00 0 04622 LQ130 CAL CARD+1 CHG FLD LOC-SIZE TO PREV LQ130 FP208900 | 30525 0560 00 0 04623 LDQ CARD+2 LQ140 FP208910 | 30526 -0763 00 0 00022 LGL 18 LQ150 FP208920 | 30527 -0340 00 0 31450 LAS LQQ10 LQ160 FP208930 30530 0020 00 0 30532 TRA *+2 LQ170 FP208940 | 30531 0020 00 0 30647 TRA LQ900 RANGE TEST LQ180 FP208950 | 30532 0602 00 0 31450 SLW LQQ10 LQ190 FP208960 | 30533 0774 00 1 00012 AXT 10,1 LQ200 FP208970 | 30534 -0520 00 1 31464 NZT LQQ30+10,1 LQ210 FP208980 30535 0020 00 0 30546 TRA LQ280 LQ220 FP208990 | 30536 -0340 00 1 31464 LAS LQQ30+10,1 LQ230 FP209000 | 30537 0020 00 0 30541 TRA *+2 LQ240 FP209010 | 30540 0020 00 0 30544 TRA LQ275 LQ250 FP209020 | 30541 2 00001 1 30534 TIX *-5,1,1 LQ260 FP209030 30542 0074 00 4 10507 TSX T0010,4 LQ265 FP209040 | 30543 -1 11634 5 00000 STR 0,5,5020 EXCEED 10 TESTED FLD,HOR SEL TABLE LQ270 FP209050 | 30544 0074 00 4 10507 LQ275 TSX T0010,4 LQ275 FP209060 | 30545 -1 00466 2 14307 STR BB010,2,310 CHG FLD LOC-SIZE HAS BEEN USED LQ276 FP209070 | 30546 0602 00 1 31464 LQ280 SLW LQQ30+10,1 LQ280 FP209080 30547 -0520 00 0 31464 NZT LQQ40 TEST SEL SWITCH LQ290 FP209090 | 30550 0020 00 0 30571 TRA LQ470 LQ300 FP209100 | 30551 0600 00 0 31464 STZ LQQ40 TURN OFF SEL SW LQ310 FP209110 | 30552 -0500 00 0 30554 CAL *+2 LQ320 FP209120 | 30553 0074 00 4 11413 TSX PRGMR,4 MOVE CAL LQ330 FP209130 30554 0500 00 0 00000 CLA 0 LQ340 FP209140 | 30555 0500 00 0 31451 CLA LQQ20 LQ350 FP209150 | 30556 0074 00 4 11455 TSX SADDR+1,4 CREATE ADDRESS LQ360 FP209160 | 1 LISTING OF 12/01/64 PAGE 432 | HORSEL (9PAC4A). HORIZONTAL SELECT FUNCTION | 30557 -0500 00 0 30561 CAL *+2 LQ370 FP209170 | 30560 0074 00 4 11413 TSX PRGMR,4 MOVE TZE LQ380 FP209180 | 30561 0100 00 0 00000 TZE 0 OUT LQ390 FP209190 | 30562 0500 00 0 31465 CLA LQQ50 LQ400 FP209200 30563 0074 00 4 11477 TSX GADDR,4 LQ414 FP209210 | 30564 -0500 00 0 30566 CAL *+2 LQ420 FP209220 | 30565 0074 00 4 11413 TSX PRGMR,4 LQ430 FP209230 | 30566 0600 00 0 00000 STZ 0 LQ440 FP209240 | 30567 0500 00 0 31451 CLA LQQ20 LQ450 FP209250 30570 0074 00 4 11455 TSX SADDR+1,4 LQ460 FP209260 | 30571 -0500 00 0 04623 LQ470 CAL CARD+2 CHG FLD SIZE TO BIN LQ470 FP209270 | 30572 0771 00 0 00022 ARS 18 LQ480 FP209280 | 30573 0602 00 0 07751 SLW B1020 LQ490 FP209290 | 30574 0074 00 4 07572 TSX B0012,4 LQ500 FP209300 30575 0500 00 0 07747 CLA B1000 LQ520 FP209310 | 30576 0601 00 0 31466 STO LQQ60 LQ530 FP209320 | 30577 -0500 00 0 04622 CAL CARD+1 CHG FLD INCR TO BIN LQ540 FP209330 | 30600 -0320 00 0 10734 ANA BCD07 LQ550 FP209340 | 30601 0602 00 0 07751 SLW B1020 LQ560 FP209350 30602 0074 00 4 07572 TSX B0012,4 LQ570 FP209360 | 30603 0534 00 4 07747 LXA B1000,4 LQ590 FP209370 | 30604 0774 00 1 00000 AXT 0,1 INIT WD COUNT LQ600 FP209380 | 30605 2 00044 4 30611 TIX *+4,4,36 BUILD BIT NO LQ610 FP209390 | 30606 3 00043 4 30610 TXH *+2,4,35 * LQ620 FP209400 30607 0020 00 0 30612 TRA *+3 * LQ630 FP209410 | 30610 0774 00 4 00000 AXT 0,4 * LQ640 FP209420 | 30611 1 00001 1 30605 TXI *-4,1,1 * LQ650 FP209430 | 30612 0634 00 1 31467 SXA LQQ70,1 NEW WD NO LQ660 FP209440 | 30613 0634 00 1 31521 SXA LQT60,1 LQ661 FP209450 30614 0634 00 4 31470 SXA LQQ80,4 NEW INCR LQ670 FP209460 | 30615 0500 00 0 31471 CLA LQQ90 CALC LT SHIFT LQ680 FP209470 | 30616 0402 00 0 31470 SUB LQQ80 LQ690 FP209480 | 30617 0534 00 1 31526 LXA LQT90,1 * CARD +2 LQ691 FP209490 | 30620 0120 00 0 30623 TPL LQ750 LQ700 FP209500 30621 0400 00 0 31472 ADD LQR10 36 LQ710 FP209510 | 30622 1 77777 1 30623 TXI *+1,1,-1 LQ730 FP209520 | 30623 0621 00 0 31474 LQ750 STA LQR30 LQ750 FP209530 | 30624 0621 00 0 31522 STA LQT61 SHIFT TO AUX STORAGE LQ751 FP209540 | 30625 0634 00 1 31473 SXA LQR20,1 INIT 1ST WORD PICK UP LQ752 FP209550 30626 0634 00 1 31523 SXA LQT62,1 1ST WD PICK UP TO AUX STPRALQ753 FP209560 | 30627 0500 00 0 31470 CLA LQQ80 BUILD LEFT MASK LQ760 FP209570 | 30630 0621 00 0 30632 STA *+2 LQ770 FP209580 | 30631 -0500 00 0 11024 CAL BCD77 LQ780 FP209590 | 30632 0771 00 0 00000 ARS 0 LQ790 FP209600 30633 0602 00 0 31476 SLW LQR50 LQ800 FP209610 | 30634 0500 00 0 31466 CLA LQQ60 LQ810 FP209620 | 30635 0400 00 0 31470 ADD LQQ80 LQ820 FP209630 | 30636 0601 00 0 31503 STO LQS10 LQ821 FP209640 | 30637 0734 00 1 00000 PAX 0,1 LQ830 FP209650 30640 2 00044 1 30640 TIX *,1,36 LQ840 FP209660 | 30641 0634 00 1 30643 SXA *+2,1 LQ850 FP209670 | 30642 -0500 00 0 11024 CAL BCD77 BUILD RIGHT MASK LQ860 FP209680 | 30643 0771 00 0 00000 ARS 0 LQ870 FP209690 | 30644 0760 00 0 00006 COM LQ880 FP209700 30645 0602 00 0 31477 SLW LQR60 LQ890 FP209710 | 1 LISTING OF 12/01/64 PAGE 433 | HORSEL (9PAC4A). HORIZONTAL SELECT FUNCTION | | 30646 0020 00 0 30653 TRA LQ904 LQ891 FP209720 30647 -0500 00 0 31522 LQ900 CAL LQT61 RESTORE LGL LQ900 FP209730 | 30650 0621 00 0 31474 STA LQR30 * LQ901 FP209740 | 30651 -0500 00 0 31523 CAL LQT62 RESTORE 1ST WD PICK UP LQ902 FP209750 | 30652 0621 00 0 31473 STA LQR20 * LQ903 FP209760 | 30653 -0774 00 1 04623 LQ904 AXC CARD+2,1 RANGE TEST LQ904 FP209770 30654 0500 00 0 31466 CLA LQQ60 * LQ910 FP209780 | 30655 0400 00 0 31500 ADD LQR70 24 LQ920 FP209790 | 30656 0402 00 0 31472 LQ930 SUB LQR10 36 LQ930 FP209800 | 30657 -0120 00 0 30662 TMI *+3 * LQ940 FP209810 | 30660 0100 00 0 30662 TZE *+2 * LQ950 FP209820 30661 1 77777 1 30656 TXI LQ930,1,-1 * LQ960 FP209830 | 30662 0621 00 0 30664 STA *+2 * LQ970 FP209840 | 30663 -0500 00 1 00000 CAL 0,1 * LQ980 FP209850 | 30664 0771 00 0 00000 LQ990 ARS 0 * LQ990 FP209860 | 30665 -0320 00 0 10726 ANA BCD01 * LR010 FP209870 30666 0634 00 1 31502 SXA LQR90,1 LR030 FP209880 | 30667 0534 00 1 31503 LXA LQS10,1 LR040 FP209890 | 30670 3 00044 1 30733 TXH LR420,1,36 IS FLD IN ONE WORD LR050 FP209900 | 30671 -0340 00 0 31504 LAS LQS20 TEST FOR RANGE LR070 FP209910 | 30672 0020 00 0 30676 TRA *+4 LR080 FP209920 30673 0020 00 0 30767 TRA LR690 RANGE LR090 FP209930 | 30674 0074 00 4 10507 TSX T0010,4 LR095 FP209940 | 30675 -1 00467 2 14307 STR BB010,2,311 NOT A HYPHEN OR A BLANK LR100 FP209950 | 30676 0056 00 000001 RNT 1 LR130 FP209960 | 30677 0020 00 0 30707 TRA LR220 SELECT ONE WORD LR140 FP209970 30700 0500 00 0 31513 CLA LQS90 INIT RELATIVE TRANS LR150 FP209980 | 30701 0621 00 0 31506 STA LQS40 * LR160 FP209990 | 30702 0600 00 0 31507 STZ LQS50 * LR170 FP210000 | 30703 0500 00 0 31511 CLA LQS70 * LR180 FP210010 | 30704 0621 00 0 31510 STA LQS60 * LR190 FP210020 30705 0074 00 4 31303 TSX LV010,4 GENERATE PKG FOR ONE WD LR200 FP210030 | 30706 0020 00 0 14307 TRA BB010 TO FUNC CONTROL LR210 FP210040 | 30707 0500 00 0 31514 LR220 CLA LQT10 SEL ONE WD LR220 FP210050 | 30710 0621 00 0 31506 STA LQS40 INIT RELATIVE TRANS LR230 FP210060 | 30711 0500 00 0 31512 CLA LQS80 * LR240 FP210070 30712 0621 00 0 31507 STA LQS50 * LR250 FP210080 | 30713 0500 00 0 31513 CLA LQS90 * LR260 FP210090 | 30714 0621 00 0 31510 STA LQS60 * LR270 FP210100 | 30715 0074 00 4 31303 TSX LV010,4 GEN PKG FOR ONE WD LR280 FP210110 | 30716 -0500 00 0 30720 LR290 CAL *+2 LR290 FP210120 30717 0074 00 4 11413 TSX PRGMR,4 MOVE CLA LR300 FP210130 | 30720 0500 00 0 00000 CLA 0 LR310 FP210140 | 30721 0500 00 0 31475 CLA LQR40 LR320 FP210150 | 30722 0074 00 4 11455 TSX SADDR+1,4 CREATE ADDRESS LR330 FP210160 | 30723 -0500 00 0 30725 CAL *+2 LR340 FP210170 30724 0074 00 4 11413 TSX PRGMR,4 MOVE STO LR350 FP210180 | 30725 0601 00 0 00000 STO 0 LR360 FP210190 | 30726 0500 00 0 31451 CLA LQQ20 LR370 FP210200 | 30727 0074 00 4 11455 TSX SADDR+1,4 CREATE ADDRESS LR380 FP210210 | 30730 -0500 00 0 11024 CAL BCD77 TURN ON SEL SWITCH LR390 FP210220 30731 0602 00 0 31464 SLW LQQ40 LR400 FP210230 | 30732 0020 00 0 14307 TRA BB010 TO FUNC CONTROL LR410 FP210240 | 30733 0774 00 1 00000 LR420 AXT 0,1 LR420 FP210250 | 30734 0534 00 4 31503 LXA LQS10,4 LR430 FP210260 | 1 LISTING OF 12/01/64 PAGE 434 HORSEL (9PAC4A). HORIZONTAL SELECT FUNCTION | | 30735 1 77734 4 30736 TXI *+1,4,-36 LR440 FP210270 | 30736 -2 00044 4 30740 TNX *+2,4,36 LR450 FP210280 | 30737 1 00005 1 30736 TXI *-1,1,5 LR460 FP210290 30740 0634 00 1 31515 SXA LQT20,1 LR470 FP210300 | 30741 -0340 00 0 31504 LAS LQS20 TEST FOR RANGE LR480 FP210310 | 30742 0020 00 0 30746 TRA *+4 LR490 FP210320 | 30743 0020 00 0 31026 TRA LS230 RANGE LR500 FP210330 | 30744 0074 00 4 10507 TSX T0010,4 LR505 FP210340 30745 -1 00470 2 14307 STR BB010,2,312 NOT A HYPHEN OR A BLANK LR510 FP210350 | 30746 0056 00 000001 RNT 1 LR520 FP210360 | 30747 0020 00 0 30757 TRA LR610 SEL MULTIPLE WORD LR530 FP210370 | 30750 1 00007 1 30751 TXI *+1,1,7 NOT SEL MULT WORD LR540 FP210380 | 30751 0634 00 1 31510 SXA LQS60,1 LR550 FP210390 30752 1 00002 1 30753 TXI *+1,1,2 LR560 FP210400 | 30753 0634 00 1 31506 SXA LQS40,1 LR570 FP210410 | 30754 0600 00 0 31507 STZ LQS50 LR580 FP210420 | 30755 0074 00 4 31073 TSX LT010,4 GENERATE PKG MULT WD LR590 FP210430 | 30756 0020 00 0 14307 TRA BB010 TO FUNC CONTROL LR600 FP210440 30757 1 00011 1 30760 LR610 TXI *+1,1,9 STORE RELATIVE TRANSFERS LR610 FP210450 | 30760 0634 00 1 31510 SXA LQS60,1 * LR620 FP210460 | 30761 1 00002 1 30762 TXI *+1,1,2 HIGH LR630 FP210470 | 30762 0634 00 1 31506 SXA LQS40,1 * LR640 FP210480 | 30763 0500 00 0 31512 CLA LQS80 EQUAL LR650 FP210490 30764 0621 00 0 31507 STA LQS50 * LR660 FP210500 | 30765 0074 00 4 31073 TSX LT010,4 GEN PKG MULT WORD COMP LR670 FP210510 | 30766 0020 00 0 30716 TRA LR290 LR680 FP210520 | 30767 0056 00 000001 LR690 RNT 1 RANGE ONE WORD LR690 FP210530 | 30770 0020 00 0 31006 TRA LR940 SEL ONE WORD LR700 FP210540 30771 0500 00 0 31513 CLA LQS90 3 LR710 FP210550 | 30772 0621 00 0 31506 STA LQS40 LR720 FP210560 | 30773 0600 00 0 31507 STZ LQS50 0 LR730 FP210570 | 30774 0500 00 0 31516 CLA LQT30 7 LR740 FP210580 | 30775 0621 00 0 31510 STA LQS60 LR750 FP210590 30776 0074 00 4 31303 TSX LV010,4 GENERATE PKG ONE WD LR760 FP210600 | 30777 0074 00 4 31364 TSX LW010,4 MODIFY HIGH VALUE LR770 FP210610 | 31000 0500 00 0 31513 CLA LQS90 INIT RELATIVE TRANS LR880 FP210620 | 31001 0621 00 0 31506 STA LQS40 HIGH LR890 FP210630 | 31002 0600 00 0 31507 STZ LQS50 EQUAL LR900 FP210640 31003 0600 00 0 31510 STZ LQS60 LOW LR910 FP210650 | 31004 0074 00 4 31303 TSX LV010,4 GEN ONE WD PKG LR920 FP210660 | 31005 0020 00 0 14307 TRA BB010 TO FUNC CONTROL LR930 FP210670 | 31006 0500 00 0 31513 LR940 CLA LQS90 SEL LR940 FP210680 | 31007 0621 00 0 31506 STA LQS40 INIT. REL TRANS LR950 FP210690 31010 0500 00 0 31517 CLA LQT40 * LR960 FP210700 | 31011 0621 00 0 31507 STA LQS50 * LR970 FP210710 | 31012 0500 00 0 31520 CLA LQT50 * LR980 FP210720 | 31013 0621 00 0 31510 STA LQS60 * LR990 FP210730 | 31014 0074 00 4 31303 TSX LV010,4 TO GEN ONE WD PKG LS010 FP210740 31015 0074 00 4 31364 TSX LW010,4 MODIFY TO HIGH VALUE LS020 FP210750 | 31016 0500 00 0 31514 CLA LQT10 INIT RELATIVE TRANS LS130 FP210760 | 31017 0621 00 0 31506 STA LQS40 HIGH LS140 FP210770 | 31020 0500 00 0 31512 CLA LQS80 LS150 FP210780 | 31021 0621 00 0 31507 STA LQS50 EQUAL LS160 FP210790 31022 0500 00 0 31511 CLA LQS70 LS170 FP210800 | 31023 0621 00 0 31510 STA LQS60 LOW LS180 FP210810 | 1 LISTING OF 12/01/64 PAGE 435 | HORSEL (9PAC4A). HORIZONTAL SELECT FUNCTION | 31024 0074 00 4 31303 TSX LV010,4 GEN PKG FOR ONE WD LS190 FP210820 | 31025 0020 00 0 30716 TRA LR290 LS200 FP210830 | 31026 0056 00 000001 LS230 RNT 1 SEL-NOT LS230 FP210840 | 31027 0020 00 0 31050 TRA LS520 SEL LS240 FP210850 | 31030 0500 00 0 31515 CLA LQT20 INIT REL TRANS LS250 FP210860 31031 0400 00 0 31520 ADD LQT50 9 LS260 FP210870 | 31032 0621 00 0 31506 STA LQS40 LS270 FP210880 | 31033 0600 00 0 31507 STZ LQS50 LS280 FP210890 | 31034 0400 00 0 31515 ADD LQT20 LS290 FP210900 | 31035 0400 00 0 31524 ADD LQT70 10 LS300 FP210910 31036 0621 00 0 31510 STA LQS60 LS310 FP210920 | 31037 0074 00 4 31073 TSX LT010,4 MULT WD PKG LS320 FP210930 | 31040 0074 00 4 31364 TSX LW010,4 MODIFY FOR HIGH VALUE LS330 FP210940 | 31041 0500 00 0 31515 CLA LQT20 5N LS450 FP210950 | 31042 0400 00 0 31520 ADD LQT50 9 LS460 FP210960 31043 0621 00 0 31506 STA LQS40 HIGH LS470 FP210970 | 31044 0600 00 0 31507 STZ LQS50 EQUAL LS480 FP210980 | 31045 0600 00 0 31510 STZ LQS60 LOW LS490 FP210990 | 31046 0074 00 4 31073 TSX LT010,4 GEN MULT WD PKG LS500 FP211000 | 31047 0020 00 0 14307 TRA BB010 TO FUNC CONTROL LS510 FP211010 31050 0500 00 0 31515 LS520 CLA LQT20 5N LS520 FP211020 | 31051 0400 00 0 31520 ADD LQT50 9 LS530 FP211030 | 31052 0621 00 0 31506 STA LQS40 HIGH LS540 FP211040 | 31053 0400 00 0 31514 ADD LQT10 5 LS550 FP211050 | 31054 0621 00 0 31507 STA LQS50 LS560 FP211060 31055 0400 00 0 31515 ADD LQT20 LS570 FP211070 | 31056 0400 00 0 31516 ADD LQT30 LS580 FP211080 | 31057 0621 00 0 31510 STA LQS60 LS590 FP211090 | 31060 0074 00 4 31073 TSX LT010,4 TO GEN MULT WD PKG LS600 FP211100 | 31061 0074 00 4 31364 TSX LW010,4 MODIFY FOR HIGH VALUE LS610 FP211110 31062 0500 00 0 31515 CLA LQT20 5N LS740 FP211120 | 31063 0400 00 0 31516 ADD LQT30 7 LS750 FP211130 | 31064 0621 00 0 31510 STA LQS60 LOW LS760 FP211140 | 31065 0400 00 0 31527 ADD LQT91 4 LS770 FP211150 | 31066 0621 00 0 31506 STA LQS40 HIGH LS780 FP211160 31067 0500 00 0 31512 CLA LQS80 2 LS790 FP211170 | 31070 0621 00 0 31507 STA LQS50 EQUAL LS800 FP211180 | 31071 0074 00 4 31073 TSX LT010,4 TO GEN MULT WD PKG LS810 FP211190 | 31072 0020 00 0 30716 TRA LR290 LS820 FP211200 | 31073 0634 00 4 31301 LT010 SXA LU300,4 MULT WD PKG GEN LT010 FP211210 31074 0634 00 2 31300 SXA LU290,2 LT011 FP211220 | 31075 0535 00 2 31473 LAC LQR20,2 LT020 FP211230 | 31076 0534 00 1 31503 LXA LQS10,1 LT030 FP211240 | 31077 1 77734 1 31100 TXI *+1,1,-36 LT040 FP211250 | 31100 0500 00 0 31521 CLA LQT60 RESTORE U LT050 FP211260 31101 0601 00 0 31467 STO LQQ70 * LT051 FP211270 | 31102 -0501 00 0 31104 ORA *+2 BUILD CAL U,1 LT060 FP211280 | 31103 0074 00 4 11413 TSX PRGMR,4 MOVE CAL LT070 FP211290 | 31104 -0500 00 1 00000 CAL 0,1 LT080 FP211300 | 31105 -0500 00 0 31107 CAL *+2 LT090 FP211310 31106 0074 00 4 11413 TSX PRGMR,4 MOVE ANA LT100 FP211320 | 31107 -0320 00 0 00000 ANA 0 LT110 FP211330 | 31110 -0500 00 0 31476 CAL LQR50 MASK TO STORR LT120 FP211340 | 31111 0074 00 4 11426 TSX STORR,4 LT130 FP211350 | 31112 0074 00 4 11454 TSX SADDR,4 CREATE MISSING ADR LT140 FP211360 1 LISTING OF 12/01/64 PAGE 436 | HORSEL (9PAC4A). HORIZONTAL SELECT FUNCTION | | 31113 -0500 00 2 00000 CAL 0,2 LD FIRST WD COMP LT150 FP211370 | 31114 1 77777 2 31115 TXI *+1,2,-1 * LT160 FP211380 31115 0560 00 2 00000 LDQ 0,2 * LT170 FP211390 | 31116 0522 00 0 31474 XEC LQR30 * LT180 FP211400 | 31117 -0320 00 0 31476 ANA LQR50 * LT190 FP211410 | 31120 0074 00 4 11426 TSX STORR,4 * LT200 FP211420 | 31121 -0500 00 0 31123 CAL *+2 LT210 FP211430 31122 0074 00 4 11413 TSX PRGMR,4 MOVE LAS LT220 FP211440 | 31123 -0340 00 0 00000 LAS 0 LT230 FP211450 | 31124 0074 00 4 11454 TSX SADDR,4 LT240 FP211460 | 31125 -0500 00 0 31127 CAL *+2 LT250 FP211470 | 31126 0074 00 4 11413 TSX PRGMR,4 MOVE TRA REL HIGH LT260 FP211480 31127 0020 00 0 00000 TRA 0 LT270 FP211490 | 31130 -0500 00 0 31506 CAL LQS40 LT280 FP211500 | 31131 0074 00 4 11465 TSX PADDR,4 LT290 FP211510 | 31132 -0500 00 0 31134 CAL *+2 LT300 FP211520 | 31133 0074 00 4 11413 TSX PRGMR,4 MOVE TRA EQUAL LT310 FP211530 31134 0020 00 0 00000 TRA 0 LT320 FP211540 | 31135 -0500 00 0 31512 CAL LQS80 2 LT330 FP211550 | 31136 0074 00 4 11465 TSX PADDR,4 LT340 FP211560 | 31137 -0500 00 0 31141 CAL *+2 LT350 FP211570 | 31140 0074 00 4 11413 TSX PRGMR,4 MOVE TRA LOW LT360 FP211580 31141 0020 00 0 00000 TRA 0 LT370 FP211590 | 31142 -0500 00 0 31510 CAL LQS60 LT380 FP211600 | 31143 0100 00 0 31146 TZE *+3 LT390 FP211610 | 31144 0074 00 4 11465 TSX PADDR,4 LT400 FP211620 | 31145 0020 00 0 31150 TRA *+3 LT410 FP211630 31146 0500 00 0 31465 CLA LQQ50 LT420 FP211640 | 31147 0074 00 4 11477 TSX GADDR,4 LT430 FP211650 | 31150 -2 00044 1 31221 LT440 TNX LT840,1,36 LT440 FP211660 | 31151 0500 00 0 31467 CLA LQQ70 UPDATE U LT450 FP211670 | 31152 0400 00 0 31511 ADD LQS70 LT460 FP211680 31153 0601 00 0 31467 STO LQQ70 LT470 FP211690 | 31154 -0501 00 0 31156 ORA *+2 LT480 FP211700 | 31155 0074 00 4 11413 TSX PRGMR,4 MOVE CAL LT490 FP211710 | 31156 -0500 00 1 00000 CAL 0,1 LT500 FP211720 | 31157 -0500 00 2 00000 CAL 0,2 LD NEXT WD OF SEL VAL LT510 FP211730 31160 1 77777 2 31161 TXI *+1,2,-1 * LT520 FP211740 | 31161 0560 00 2 00000 LDQ 0,2 * LT530 FP211750 | 31162 0522 00 0 31474 XEC LQR30 * LT540 FP211760 | 31163 0074 00 4 11426 TSX STORR,4 * LT550 FP211770 | 31164 -0500 00 0 31166 CAL *+2 LT560 FP211780 31165 0074 00 4 11413 TSX PRGMR,4 MOVE LAS LT570 FP211790 | 31166 -0340 00 0 00000 LAS 0 LT580 FP211800 | 31167 0074 00 4 11454 TSX SADDR,4 LT590 FP211810 | 31170 0500 00 0 31506 CLA LQS40 UPDATE RELATIVE LT600 FP211820 | 31171 0402 00 0 31514 SUB LQT10 5 LT610 FP211830 31172 0601 00 0 31506 STO LQS40 LT620 FP211840 | 31173 -0500 00 0 31175 CAL *+2 LT630 FP211850 | 31174 0074 00 4 11413 TSX PRGMR,4 MOVE TRA HIGH LT640 FP211860 | 31175 0020 00 0 00000 TRA 0 LT650 FP211870 | 31176 0500 00 0 31506 CLA LQS40 LT660 FP211880 31177 0074 00 4 11465 TSX PADDR,4 LT670 FP211890 | 31200 -0500 00 0 31202 CAL *+2 LT680 FP211900 | 31201 0074 00 4 11413 TSX PRGMR,4 MOVE TRA EQUAL LT690 FP211910 | 1 LISTING OF 12/01/64 PAGE 437 | HORSEL (9PAC4A). HORIZONTAL SELECT FUNCTION | 31202 0020 00 0 00000 TRA 0 LT700 FP211920 | 31203 -0500 00 0 31512 CAL LQS80 2 LT710 FP211930 | 31204 0074 00 4 11465 TSX PADDR,4 LT720 FP211940 | 31205 -0500 00 0 31207 CAL *+2 LT730 FP211950 31206 0074 00 4 11413 TSX PRGMR,4 MOVE TRA LOW LT740 FP211960 | 31207 0020 00 0 00000 TRA 0 LT750 FP211970 | 31210 -0500 00 0 31510 CAL LQS60 LT760 FP211980 | 31211 0100 00 0 31216 TZE LT810 LT770 FP211990 | 31212 0402 00 0 31514 SUB LQT10 5 LT780 FP212000 31213 0601 00 0 31510 STO LQS60 LT781 FP212010 | 31214 0074 00 4 11465 TSX PADDR,4 LT790 FP212020 | 31215 0020 00 0 31150 TRA LT440 LT800 FP212030 | 31216 0500 00 0 31465 LT810 CLA LQQ50 4 LT810 FP212040 | 31217 0074 00 4 11477 TSX GADDR,4 LT820 FP212050 31220 0020 00 0 31150 TRA LT440 LT830 FP212060 | 31221 -0500 00 0 31477 LT840 CAL LQR60 RT MASK TO STORR LT840 FP212070 | 31222 0074 00 4 11426 TSX STORR,4 LT850 FP212080 | 31223 0500 00 0 31467 CLA LQQ70 UPDATE U LT860 FP212090 | 31224 0400 00 0 31511 ADD LQS70 LT870 FP212100 31225 0601 00 0 31467 STO LQQ70 LT880 FP212110 | 31226 -0501 00 0 31230 ORA *+2 LT890 FP212120 | 31227 0074 00 4 11413 TSX PRGMR,4 MOVE CAL LT900 FP212130 | 31230 -0500 00 1 00000 CAL 0,1 LT910 FP212140 | 31231 -0500 00 0 31233 CAL *+2 MOVE ANA MASK LT911 FP212150 31232 0074 00 4 11413 TSX PRGMR,4 * LT912 FP212160 | 31233 -0320 00 0 00000 ANA 0 * LT913 FP212170 | 31234 0074 00 4 11454 TSX SADDR,4 * LT914 FP212180 | 31235 -0500 00 2 00000 CAL 0,2 LOAD RT WD OF SEL VALUE LT920 FP212190 | 31236 1 77777 2 31237 TXI *+1,2,-1 * LT930 FP212200 31237 0560 00 2 00000 LDQ 0,2 * LT940 FP212210 | 31240 0522 00 0 31474 XEC LQR30 * LT950 FP212220 | 31241 -0320 00 0 31477 ANA LQR60 * LT960 FP212230 | 31242 0074 00 4 11426 TSX STORR,4 LT970 FP212240 | 31243 -0500 00 0 31245 CAL *+2 LT980 FP212250 31244 0074 00 4 11413 TSX PRGMR,4 MOVE LAS LT990 FP212260 | 31245 -0340 00 0 00000 LAS 0 LU010 FP212270 | 31246 0074 00 4 11454 TSX SADDR,4 LU020 FP212280 | 31247 -0500 00 0 31251 CAL *+2 LU030 FP212290 | 31250 0074 00 4 11413 TSX PRGMR,4 MOVE TRA HIGH LU040 FP212300 31251 0020 00 0 00000 TRA 0 LU050 FP212310 | 31252 0500 00 0 31506 CLA LQS40 UPDATE HI TRA LU060 FP212320 | 31253 0402 00 0 31525 SUB LQT80 6 LU070 FP212330 | 31254 0074 00 4 11465 TSX PADDR,4 LU090 FP212340 | 31255 -0500 00 0 31257 CAL *+2 LU100 FP212350 31256 0074 00 4 11413 TSX PRGMR,4 MOVE TRA EQUAL LU110 FP212360 | 31257 0020 00 0 00000 TRA 0 LU120 FP212370 | 31260 0500 00 0 31507 CLA LQS50 LU130 FP212380 | 31261 0100 00 0 31264 TZE *+3 LU140 FP212390 | 31262 0074 00 4 11465 TSX PADDR,4 LU150 FP212400 31263 0020 00 0 31266 TRA *+3 LU160 FP212410 | 31264 0500 00 0 31465 CLA LQQ50 LU170 FP212420 | 31265 0074 00 4 11477 TSX GADDR,4 LU180 FP212430 | 31266 -0500 00 0 31270 CAL *+2 LU190 FP212440 | 31267 0074 00 4 11413 TSX PRGMR,4 MOVE TRA LOW LU200 FP212450 31270 0020 00 0 00000 TRA 0 LU210 FP212460 | 1 LISTING OF 12/01/64 PAGE 438 | HORSEL (9PAC4A). HORIZONTAL SELECT FUNCTION | | 31271 0500 00 0 31510 CLA LQS60 LU220 FP212470 31272 0100 00 0 31276 TZE LU270 LU230 FP212480 | 31273 0402 00 0 31525 SUB LQT80 6 LU240 FP212490 | 31274 0074 00 4 11465 TSX PADDR,4 LU250 FP212500 | 31275 0020 00 0 31300 TRA *+3 LU260 FP212510 | 31276 0500 00 0 31465 LU270 CLA LQQ50 4 LU270 FP212520 31277 0074 00 4 11477 TSX GADDR,4 LU280 FP212530 | 31300 0774 00 2 00000 LU290 AXT 0,2 LU290 FP212540 | 31301 0774 00 4 00000 LU300 AXT 0,4 LU300 FP212550 | 31302 0020 00 4 00001 TRA 1,4 RETURN LU310 FP212560 | 31303 0634 00 4 31362 LV010 SXA LV470,4 ONE WD PKG GEN LV010 FP212570 31304 0535 00 1 31473 LAC LQR20,1 LV020 FP212580 | 31305 -0500 00 0 31477 CAL LQR60 COMBINE MASKS LV030 FP212590 | 31306 -0320 00 0 31476 ANA LQR50 LV040 FP212600 | 31307 0602 00 0 31476 SLW LQR50 LV041 FP212610 | 31310 0074 00 4 11426 TSX STORR,4 LV050 FP212620 31311 -0500 00 0 31467 CAL LQQ70 LV060 FP212630 | 31312 -0501 00 0 31314 ORA *+2 LV070 FP212640 | 31313 0074 00 4 11413 TSX PRGMR,4 MOVE CAL LV080 FP212650 | 31314 -0500 00 1 00000 CAL 0,1 LV090 FP212660 | 31315 -0500 00 0 31317 CAL *+2 LV100 FP212670 31316 0074 00 4 11413 TSX PRGMR,4 MOVE ANA LV110 FP212680 | 31317 -0320 00 0 00000 ANA 0 LV120 FP212690 | 31320 0074 00 4 11454 TSX SADDR,4 LV130 FP212700 | 31321 -0500 00 1 00000 CAL 0,1 LOAD SEL VALUE LV140 FP212710 | 31322 1 77777 1 31323 TXI *+1,1,-1 LV150 FP212720 31323 0560 00 1 00000 LDQ 0,1 LV160 FP212730 | 31324 0522 00 0 31474 XEC LQR30 LV170 FP212740 | 31325 -0320 00 0 31476 ANA LQR50 MASK LV180 FP212750 | 31326 0074 00 4 11426 TSX STORR,4 LV190 FP212760 | 31327 -0500 00 0 31331 CAL *+2 LV200 FP212770 31330 0074 00 4 11413 TSX PRGMR,4 MOVE LAS LV210 FP212780 | 31331 -0340 00 0 00000 LAS 0 LV220 FP212790 | 31332 0074 00 4 11454 TSX SADDR,4 LV230 FP212800 | 31333 -0500 00 0 31335 CAL *+2 LV240 FP212810 | 31334 0074 00 4 11413 TSX PRGMR,4 MOVE TRA HIGH LV250 FP212820 31335 0020 00 0 00000 TRA 0 LV260 FP212830 | 31336 0500 00 0 31506 CLA LQS40 LV270 FP212840 | 31337 0074 00 4 11465 TSX PADDR,4 LV280 FP212850 | 31340 -0500 00 0 31342 CAL *+2 LV290 FP212860 | 31341 0074 00 4 11413 TSX PRGMR,4 MOVE TRA EQUAL LV300 FP212870 31342 0020 00 0 00000 TRA 0 LV310 FP212880 | 31343 0500 00 0 31507 CLA LQS50 LV320 FP212890 | 31344 0100 00 0 31347 TZE *+3 LV330 FP212900 | 31345 0074 00 4 11465 TSX PADDR,4 LV340 FP212910 | 31346 0020 00 0 31351 TRA *+3 LV350 FP212920 31347 0500 00 0 31465 CLA LQQ50 4 LV360 FP212930 | 31350 0074 00 4 11477 TSX GADDR,4 LV370 FP212940 | 31351 -0500 00 0 31353 CAL *+2 LV380 FP212950 | 31352 0074 00 4 11413 TSX PRGMR,4 MOVE TRA LOW LV390 FP212960 | 31353 0020 00 0 00000 TRA 0 LV400 FP212970 31354 0500 00 0 31510 CLA LQS60 LV410 FP212980 | 31355 0100 00 0 31360 TZE *+3 LV420 FP212990 | 31356 0074 00 4 11465 TSX PADDR,4 LV430 FP213000 | 31357 0020 00 0 31362 TRA *+3 LV440 FP213010 | 1 LISTING OF 12/01/64 PAGE 439 HORSEL (9PAC4A). HORIZONTAL SELECT FUNCTION | | 31360 0500 00 0 31465 CLA LQQ50 4 LV450 FP213020 | 31361 0074 00 4 11477 TSX GADDR,4 LV460 FP213030 | 31362 0774 00 4 00000 LV470 AXT 0,4 LV470 FP213040 31363 0020 00 4 00001 TRA 1,4 RETURN LV480 FP213050 | 31364 0535 00 1 31502 LW010 LAC LQR90,1 MODIFY TO HIGH VALUE LW010 FP213060 | 31365 -0500 00 0 30664 CAL LQ990 LW020 FP213070 | 31366 -0320 00 0 10730 ANA BCD03 LW030 FP213080 | 31367 0402 00 0 31472 SUB LQR10 36 LW040 FP213090 31370 0760 00 0 00003 SSP LW050 FP213100 | 31371 0402 00 0 31470 SUB LQQ80 LW060 FP213110 | 31372 0120 00 0 31375 TPL LW100 LW070 FP213120 | 31373 1 77777 1 31374 TXI *+1,1,-1 LW080 FP213130 | 31374 0400 00 0 31472 ADD LQR10 LW090 FP213140 31375 0621 00 0 31474 LW100 STA LQR30 LW100 FP213150 | 31376 0634 00 1 31473 SXA LQR20,1 LW110 FP213160 | 31377 0020 00 4 00001 TRA 1,4 LW140 FP213170 | 31400 -0520 00 0 31464 LX010 NZT LQQ40 LX010 FP213180 | 31401 0020 00 0 31421 TRA LX180 LX020 FP213190 31402 -0500 00 0 31404 CAL *+2 LX030 FP213200 | 31403 0074 00 4 11413 TSX PRGMR,4 MOVE CLA LX040 FP213210 | 31404 0500 00 0 00000 CLA 0 LX050 FP213220 | 31405 0500 00 0 31451 CLA LQQ20 LX060 FP213230 | 31406 0074 00 4 11455 TSX SADDR+1,4 LX070 FP213240 31407 -0500 00 0 31411 CAL *+2 LX080 FP213250 | 31410 0074 00 4 11413 TSX PRGMR,4 MOVE TZE LX090 FP213260 | 31411 0100 00 0 00000 TZE 0 LX100 FP213270 | 31412 0500 00 0 31465 CLA LQQ50 4 LX110 FP213280 | 31413 0074 00 4 11477 TSX GADDR,4 LX120 FP213290 31414 -0500 00 0 31416 CAL *+2 LX130 FP213300 | 31415 0074 00 4 11413 TSX PRGMR,4 MOVE STZ LX140 FP213310 | 31416 0600 00 0 00000 STZ 0 LX150 FP213320 | 31417 0500 00 0 31451 CLA LQQ20 LX160 FP213330 | 31420 0074 00 4 11455 TSX SADDR+1,4 LX170 FP213340 31421 -0500 00 0 11255 LX180 CAL NOP MODIFY LX180 FP213350 | 31422 0400 00 0 31516 ADD LQT30 * 7 LX190 FP213360 | 31423 0602 00 0 11255 SLW NOP * LX200 FP213370 | 31424 0074 00 4 11413 TSX PRGMR,4 BUILD NOP DESTL TN LX210 FP213380 | 31425 0761 00 0 00000 NOP 0 * LX220 FP213390 31426 0760 00 0 00000 CLM BUILD CODE WORD LX230 FP213400 | 31427 -0130 00 0 00000 XCL * LX240 FP213410 | 31430 -0500 00 0 67172 CAL HEADR * LX250 FP213420 | 31431 0771 00 0 00030 ARS 24 * LX260 FP213430 | 31432 -0765 00 0 00004 LGR 4 * LX270 FP213440 31433 0771 00 0 00002 ARS 2 * LX280 FP213450 | 31434 -0765 00 0 00004 LGR 4 * LX290 FP213460 | 31435 -0500 00 0 15063 CAL VSA30 LX300 FP213470 | 31436 -0763 00 0 00032 LGL 26 * LX310 FP213480 | 31437 -0501 00 0 31444 ORA LX370 * LX320 FP213490 31440 0074 00 4 11547 TSX M0010,4 LX330 FP213500 | 31441 -0520 00 0 14512 NZT BAE80 LX340 FP213510 | 31442 0020 00 0 14403 TRA BB360 LX350 FP213520 | 31443 0020 00 0 14341 TRA BB180 LX360 FP213530 | 31444 +160000000000 LX370 OCT 160000000000 LX370 FP213540 31445 0074 00 4 12507 LX420 TSX MSYSRD,4 LX420 FP213550 | 31446 114721230422 BCI 1,9PAC4B HORRPT FP213560 | 1 LISTING OF 12/01/64 PAGE 440 | HORSEL (9PAC4A). HORIZONTAL SELECT FUNCTION | 31447 0 02563 0 35133 PZE UWFLD,,UWFLD-VESEL-2 FP213570 | 31450 0 00000 0 00000 LQQ10 PZE CHG FLD LOC-SIZE LQQ10 FP213580 | 31451 0 00000 0 00000 LQQ20 PZE STORR WORD NO F F LQQ20 FP213590 | 31452 LQQ30 BSS 10 CHG FLD TBL LQQ30 FP213600 | 31464 0 00000 0 00000 LQQ40 PZE SEL SWITCH LQQ40 FP213610 31465 0 00000 0 00003 LQQ50 PZE 3 LQQ50 FP213620 | 31466 0 00000 0 00000 LQQ60 PZE CHG FLD SIZE IN BINARY LQQ60 FP213630 | 31467 0 00000 0 00000 LQQ70 PZE WORD NO 1 LQQ70 FP213640 | 31470 0 00000 0 00000 LQQ80 PZE BIT NO LQQ80 FP213650 | 31471 0 00000 0 00022 LQQ90 PZE 18 LQQ90 FP213660 31472 0 00000 0 00044 LQR10 PZE 36 LQR10 FP213670 | 31473 0 00000 0 04623 LQR20 PZE CARD+2 LQR20 FP213680 | 31474 -0763 00 0 00000 LQR30 LGL 0 LQR30 FP213690 | 31475 0 00000 0 00000 LQR40 PZE WORD NO NON ZERO STORR LQR40 FP213700 | 31476 0 00000 0 00000 LQR50 PZE LEFT MASK LQR50 FP213710 31477 0 00000 0 00000 LQR60 PZE RIGHT MASK LQR60 FP213720 | 31500 0 00000 0 00030 LQR70 PZE 24 LQR70 FP213730 | 31501 0 00000 0 00000 LQR80 PZE LQR80 FP213740 | 31502 0 00000 0 00000 LQR90 PZE LO RANGE LOC LQR90 FP213750 | 31503 0 00000 0 00000 LQS10 PZE SIZE PLUS BIT NO LQS10 FP213760 31504 000000000040 LQS20 BCI 1,00000- LQS20 FP213770 | 31505 000000000062 LQS30 BCI 1,00000S LQS30 FP213780 | 31506 0 00000 0 00000 LQS40 PZE HIGH RELATIVE LQS40 FP213790 | 31507 0 00000 0 00000 LQS50 PZE EQUAL RELATIVE LQS50 FP213800 | 31510 0 00000 0 00000 LQS60 PZE LOW RELATIVE LQS60 FP213810 31511 0 00000 0 00001 LQS70 PZE 1 1 LQS70 FP213820 | 31512 0 00000 0 00002 LQS80 PZE 2 2 LQS80 FP213830 | 31513 0 00000 0 00003 LQS90 PZE 3 3 LQS90 FP213840 | 31514 0 00000 0 00005 LQT10 PZE 5 5 LQT10 FP213850 | 31515 0 00000 0 00000 LQT20 PZE NO OF MIDDLE WORDS LQT20 FP213860 31516 0 00000 0 00007 LQT30 PZE 7 7 LQT30 FP213870 | 31517 0 00000 0 00010 LQT40 PZE 8 8 LQT40 FP213880 | 31520 0 00000 0 00011 LQT50 PZE 9 9 LQT50 FP213890 | 31521 0 00000 0 00000 LQT60 PZE WD NO LQT60 FP213900 | 31522 0 00000 0 00000 LQT61 PZE LEFT SHIFT AUX STORAGE LQT61 FP213910 31523 0 00000 0 00000 LQT62 PZE 1ST WD PICK UP AUX STORAGE LQT62 FP213920 | 31524 0 00000 0 00012 LQT70 PZE 10 10 LQT70 FP213930 | 31525 0 00000 0 00006 LQT80 PZE 6 6 LQT80 FP213940 | 31526 0 00000 0 04623 LQT90 PZE CARD+2 USED TO CALC 1ST WD PICK UPLQT90 FP213950 | 31527 0 00000 0 00004 LQT91 PZE 4 LQT91 FP213960 31612 HOSEL BES 50 FP213970 | 00000 TCD 0 FP213980 | 1 LISTING OF 12/01/64 PAGE 441 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | * FP214010 | * 00040 FP214020 | * FP214030 | * FP214040 | * FP214050 * FP214060 | * HORIZONTAL CHANGE REPORTS NA000 FP214070 | * FP214080 | * FP214090 | * FP214100 32350 ORG VESEL+2 HORRPT FP214120 | 32350 114721230422 BCI 1,9PAC4B FP214130 | 32351 304651514763 NA010 BCI 1,HORRPT NA010 FP214140 | 00100 ORG SYSTRA FP214150 | 00100 0020 00 0 33643 TRA NG320 FP214160 32352 ORG VESEL+4 FP214170 | 32352 0020 00 0 32761 TRA NC010 TO CLEANUP NA020 FP214180 | 32353 -0625 00 0 11371 STL HPTSW NA021 FP214190 | 32354 -0500 00 0 67172 CAL HEADR SAVE RT OF HORREPT FP214200 | 32355 -0320 00 0 11005 ANA BCD60 FP214210 32356 0602 00 0 35076 SLW NAD43 FP214220 | 32357 -0320 00 0 10765 ANA BCD40 FP214230 | 32360 -0100 00 0 32363 TNZ *+3 FP214240 | 32361 -0500 00 0 35074 CAL NAD41 FP214250 | 32362 0020 00 0 32364 TRA *+2 FP214260 32363 -0500 00 0 35075 CAL NAD42 FP214270 | 32364 -0602 00 0 35076 ORS NAD43 FP214280 | 32365 -0500 00 0 04623 CAL CARD+2 IS ANY LITERAL FLD = PRESENNA023 FP214290 | 32366 0560 00 0 04624 LDQ CARD+3 * NA025 FP214300 | 32367 -0763 00 0 00014 LGL 12 * NA030 FP214310 32370 -0320 00 0 33644 ANA NAA10 * ISOLATE LITERAL NA040 FP214320 | 32371 -0340 00 0 33646 LAS NAA22 NA050 FP214330 | 32372 0020 00 0 32374 TRA *+2 * NA060 FP214340 | 32373 0020 00 0 32756 TRA NB770 NO LITERAL NA070 FP214350 | 32374 0774 00 2 00000 NA080 AXT 0,2 N NA080 FP214360 32375 -0520 00 0 33647 NZT NAA30 FIRST ENTRY NA090 FP214370 | 32376 0020 00 0 32411 TRA NA170 YES PUT IT IN TABLE NA100 FP214380 | 32377 0534 00 4 33647 LXA NAA30,4 * PLACE ENTRY COUNT IN IR4 NA110 FP214390 | 32400 -0340 00 2 33650 LAS NAA40,2 * NA120 FP214400 | 32401 0020 00 0 32403 TRA *+2 * NA130 FP214410 32402 0020 00 0 32407 TRA NA168 NA140 FP214420 | 32403 1 77773 2 32404 TXI *+1,2,-5 * MOVE TO NEXT TABLE ENTRY NA150 FP214430 | 32404 2 00001 4 32400 TIX *-4,4,1 * NA160 FP214440 | 32405 0634 00 2 35011 SXA NAA60,2 SAVE LOCATION IN TABLE NA165 FP214450 | 32406 0020 00 0 32411 TRA NA170 NA166 FP214460 32407 0074 00 4 10507 NA168 TSX T0010,4 NA168 FP214470 | 32410 -1 00471 2 14307 STR BB010,2,313 DUPLICATE FIELD = NA169 FP214480 | 32411 0602 00 2 33650 NA170 SLW NAA40,2 STORE LITERAL IN TABLE NA170 FP214490 | 32412 0600 00 0 35112 STZ NAE50 ET TO SOURCE FILE NA179 FP214500 | 32413 0500 00 0 33647 CLA NAA30 ADD ONE TO TABLE COUNT NA180 FP214510 32414 0400 00 0 35000 ADD NAA50 * NA190 FP214520 | 32415 0601 00 0 33647 STO NAA30 * NA200 FP214530 | 32416 -0625 00 0 35034 STL NAC40 *TO - FROM ZIGGER OFF NA205 FP214540 | 32417 -0500 00 2 33650 CAL NAA40,2 IS THIS A TO OR FROM NA210 FP214550 | 32420 -0340 00 0 35013 LAS NAA80 * NA220 FP214560 1 LISTING OF 12/01/64 PAGE 442 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | | 32421 0020 00 0 32423 TRA *+2 * NA230 FP214570 | 32422 0020 00 0 32754 TRA NB750 * IT IS A TO NA240 FP214580 32423 -0340 00 0 35014 LAS NAA90 * NA250 FP214590 | 32424 0020 00 0 32426 TRA *+2 * NA260 FP214600 | 32425 0020 00 0 32754 TRA NB750 * IT IS A FROM NA270 FP214610 | 32426 -0500 00 0 04622 CAL CARD+1 IS THIS A SOURCE FILE REQUENA280 FP214620 | 32427 -0320 00 0 35012 ANA NAA70 * NA290 FP214630 32430 0100 00 0 33634 TZE NG200 YES NA300 FP214640 | 32431 -0625 00 0 35112 NA309 STL NAE50 SET TO HORIZONTAL DATA NA309 FP214650 | 32432 -0500 00 2 33650 CAL NAA40,2 * NO, BUILD DICTIONARY NA310 FP214660 | 32433 -0765 00 0 00006 LGR 6 PUT FLD = TO DICT DEF NA320 FP214670 | 32434 0602 00 2 33651 SLW NAA40+1,2 * NA330 FP214680 32435 -0130 00 0 00000 XCL * NA340 FP214690 | 32436 -0320 00 0 35015 ANA NAB00 * NA350 FP214700 | 32437 0602 00 2 33652 SLW NAA40+2,2 * NA360 FP214710 | 32440 0600 00 2 33653 STZ NAA40+3,2 CLEAR WORDS 4+5 OF TABLE NA370 FP214720 | 32441 0600 00 2 33654 STZ NAA40+4,2 * NA380 FP214730 32442 -0500 00 0 35016 CAL NAB10 PLACE FIELD DEF CODE TO TBLNA390 FP214740 | 32443 -0602 00 2 33651 ORS NAA40+1,2 * NA400 FP214750 | 32444 -0500 00 0 35076 CAL NAD43 RT NA410 FP214760 | 32445 0771 00 0 00006 ARS 6 * NA420 FP214770 | 32446 -0602 00 2 33651 ORS NAA40+1,2 * NA440 FP214780 32447 -0500 00 0 35020 CAL NAB30 PLACE MODE IN TABLE NA450 FP214790 | 32450 -0602 00 2 33652 ORS NAA40+2,2 * NA460 FP214800 | 32451 -0500 00 0 04623 CAL CARD+2 LOAD SIZE TO DICT DEF NA470 FP214810 | 32452 0771 00 0 00014 ARS 12 * NA475 FP214820 | 32453 -0320 00 0 35021 ANA NAB40 * NA477 FP214830 32454 0601 00 0 35027 STO NAC00 * NA478 FP214840 | 32455 -0340 00 0 35111 LAS NAE45 IS THE SIZE BLANK NA482 FP214850 | 32456 0020 00 0 32460 TRA *+2 * NO NA484 FP214860 | 32457 0020 00 0 33365 TRA NE550 * YES NA486 FP214870 | 32460 0602 00 0 07751 SLW B1020 FP214880 32461 0074 00 4 07572 TSX B0012,4 NA488 FP214890 | 32462 0500 00 0 07747 CLA B1000 NA490 FP214900 | 32463 0601 00 0 35024 STO NAB70 NA495 FP214910 | 32464 0601 00 0 10127 STO B6000 NA500 FP214920 | 32465 0074 00 4 10070 TSX B5010,4 SIZE TO B8 DICT NA505 FP214930 32466 -0500 00 0 10131 CAL B6020 NA510 FP214940 | 32467 -0320 00 0 10730 ANA BCD03 NA515 FP214950 | 32470 -0765 00 0 00006 LGR 6 NA518 FP214960 | 32471 -0602 00 2 33652 ORS NAA40+2,2 NA520 FP214970 | 32472 -0130 00 0 00000 XCL NA523 FP214980 32473 -0320 00 0 10765 ANA BCD40 NA525 FP214990 | 32474 -0602 00 2 33653 ORS NAA40+3,2 NA526 FP215000 | 32475 -0500 00 0 04622 CAL CARD+1 DETERMINE WORD+BIT NA530 FP215010 | 32476 0560 00 0 04623 LDQ CARD+2 * NA540 FP215020 | 32477 -0763 00 0 00006 LGL 6 * NA550 FP215030 32500 -0320 00 0 35021 ANA NAB40 * NA560 FP215040 | 32501 0602 00 0 07751 SLW B1020 CONVERT TO BINARY NA562 FP215050 | 32502 0074 00 4 07572 TSX B0012,4 NA564 FP215060 | 32503 0560 00 0 07747 LDQ B1000 SET UP FOR DIVISION NA570 FP215070 | 32504 -0754 00 0 00000 PXD 0,0 * NA580 FP215080 32505 0220 00 0 35001 DVH NAA50+1 * NA590 FP215090 | 32506 0601 00 0 35023 STO NAB60 * NA595 FP215100 | 32507 0601 00 0 10127 STO B6000 *CONVERT TO BCD NA596 FP215110 | 1 LISTING OF 12/01/64 PAGE 443 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | 32510 0074 00 4 10070 TSX B5010,4 * NA597 FP215120 | 32511 -0500 00 0 10131 CAL B6020 * NA598 FP215130 | 32512 0767 00 0 00006 NA600 ALS 6 * NA600 FP215140 | 32513 -0320 00 0 35022 ANA NAB50 * NA610 FP215150 32514 -0602 00 2 33654 ORS NAA40+4,2 * NA620 FP215160 | 32515 -0500 00 0 35025 NA630 CAL NAB80 DETERMINE OUTPUT WORD NA630 FP215170 | 32516 0602 00 0 10127 SLW B6000 CONVERT TO BCD NA631 FP215180 | 32517 0074 00 4 10070 TSX B5010,4 * NA633 FP215190 | 32520 -0500 00 0 10131 CAL B6020 * NA635 FP215200 32521 0767 00 0 00022 ALS 18 * NA640 FP215210 | 32522 -0602 00 2 33654 ORS NAA40+4,2 * NA650 FP215220 | 32523 0500 00 0 35023 CLA NAB60 CALC RECORD LENGTH IN WORDSNA660 FP215230 | 32524 0400 00 0 35024 ADD NAB70 * BIT+LEN NA670 FP215240 | 32525 0131 00 0 00000 XCA * NA680 FP215250 32526 -0754 00 0 00000 PXD 0,0 * NA690 FP215260 | 32527 0220 00 0 35001 DVH NAA50+1 * DIVIDE BY 36 NA700 FP215270 | 32530 0100 00 0 32534 TZE *+4 * NA710 FP215280 | 32531 0131 00 0 00000 XCA * NA720 FP215290 | 32532 0400 00 0 35000 ADD NAA50 * ADD 1 NA730 FP215300 32533 0020 00 0 32535 TRA *+2 * NA740 FP215310 | 32534 0131 00 0 00000 XCA * NA750 FP215320 | 32535 0400 00 0 35025 ADD NAB80 ADD FIELD LEN TO REC LEN NA760 FP215330 | 32536 0601 00 0 35025 STO NAB80 * NA770 FP215340 | 32537 0534 00 2 35011 LXA NAA60,2 NA777 FP215350 32540 -0520 00 0 35125 NZT NAF40 IS LAC TO CHLOC NEEDED NA782 FP215360 | 32541 0020 00 0 33124 TRA ND000 NO NA784 FP215370 | 32542 -0500 00 0 32544 CAL *+2 YES, BUILD IT NA786 FP215380 | 32543 0074 00 4 11413 TSX PRGMR,4 * NA792 FP215390 | 32544 0535 00 4 17300 LAC CHLOC,4 * NA794 FP215400 32545 0020 00 0 33124 TRA ND000 * NA796 FP215410 | 32546 -0500 00 0 04622 NA800 CAL CARD+1 TEST IF CURRENT SOURCE FILENA800 FP215420 | 32547 -0320 00 0 35026 ANA NAB90 * NA810 FP215430 | 32550 0602 00 0 35027 SLW NAC00 * ISOLATE REQUEST TYPE NA820 FP215440 | 32551 -0500 00 0 67174 CAL HEADR+2 * NA830 FP215450 32552 0771 00 0 00006 ARS 6 * NA840 FP215460 | 32553 -0320 00 0 35026 ANA NAB90 * NA850 FP215470 | 32554 -0340 00 0 35027 LAS NAC00 * COMPARE TO CURRENT NA860 FP215480 | 32555 0020 00 0 32557 TRA *+2 * NA870 FP215490 | 32556 0020 00 0 32601 TRA NB040 * CURRENT REQUEST NA880 FP215500 32557 -0500 00 0 35027 CAL NAC00 MASTER REQUEST NA890 FP215510 | 32560 0621 00 0 32562 STA *+2 BRING IN MSTR DICT NA900 FP215520 | 32561 0074 00 4 13253 TSX D5010,4 * NA910 FP215530 | 32562 0 00000 0 00000 PZE .. * NA920 FP215540 | 32563 -0625 00 0 35113 STL NAE60 SET TO MASTER NA929 FP215550 32564 -0500 00 0 04623 CAL CARD+2 SEARCH FOR FLD = NA930 FP215560 | 32565 0771 00 0 00014 ARS 12 * NA935 FP215570 | 32566 0602 00 0 32570 SLW *+2 * NA940 FP215580 | 32567 0074 00 4 13656 TSX E5010,4 * NA950 FP215590 | 32570 0 00000 0 00000 PZE .. * NA960 FP215600 32571 0074 00 4 13777 NA965 TSX E7310,4 NA965 FP215610 | 32572 0500 00 0 13722 CLA E6006 PUT BIT TO WA NA970 FP215620 | 32573 0601 00 0 35031 STO NAC10 * NA980 FP215630 | 32574 0500 00 0 13720 CLA E6004 PUT LEN TO WA NA990 FP215640 | 32575 0601 00 0 35032 STO NAC20 * NB000 FP215650 32576 0500 00 0 13721 CLA E6005 PUT WORD TO NA NB010 FP215660 | 1 LISTING OF 12/01/64 PAGE 444 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | | 32577 0601 00 0 35033 STO NAC30 * NB020 FP215670 32600 0020 00 0 32616 TRA NB140 * TRA TO LOAD TABLE NB030 FP215680 | 32601 -0500 00 0 04623 NB040 CAL CARD+2 GET FIELD NO. NB040 FP215690 | 32602 0771 00 0 00014 ARS 12 * NB045 FP215700 | 32603 0600 00 0 35113 STZ NAE60 SET TO CURRENT NB049 FP215710 | 32604 0601 00 0 32606 STO *+2 NB050 FP215720 32605 0074 00 4 13550 TSX E0010,4 NB060 FP215730 | 32606 0 00000 0 00000 PZE .. NB070 FP215740 | 32607 0074 00 4 13777 NB075 TSX E7310,4 NB075 FP215750 | 32610 0500 00 0 13614 CLA E1006 STORE TO WORKING AREA NB080 FP215760 | 32611 0601 00 0 35031 STO NAC10 * BIT NB090 FP215770 32612 0500 00 0 13612 CLA E1004 * NB100 FP215780 | 32613 0601 00 0 35032 STO NAC20 * LEN NB110 FP215790 | 32614 0500 00 0 13613 CLA E1005 * NB120 FP215800 | 32615 0601 00 0 35033 STO NAC30 * WORD NB130 FP215810 | 32616 0534 00 1 35011 NB140 LXA NAA60,1 SET IR =1 TO TABLE ENTRY NB140 FP215820 32617 0634 00 2 35131 SXA NAF80,2 SAVE LOCATION OF SF DICT NB145 FP215830 | 32620 -0500 00 0 35016 CAL NAB10 BUILD TABLE DICTIONARY NB150 FP215840 | 32621 0602 00 1 33651 SLW NAA40+1,1 * EXEC CODE NB160 FP215850 | 32622 -0500 00 0 35076 CAL NAD43 RT NB170 FP215860 | 32623 0771 00 0 00006 ARS 6 * NB180 FP215870 32624 -0602 00 1 33651 ORS NAA40+1,1 * REC TYPE NB200 FP215880 | 32625 -0500 00 1 33650 CAL NAA40,1 NB210 FP215890 | 32626 -0765 00 0 00006 LGR 6 * NB220 FP215900 | 32627 -0602 00 1 33651 ORS NAA40+1,1 * LITERAL FIELD = NB230 FP215910 | 32630 -0130 00 0 00000 XCL NB240 FP215920 32631 -0320 00 0 35015 ANA NAB00 * NB250 FP215930 | 32632 0602 00 1 33652 SLW NAA40+2,1 * NB260 FP215940 | 32633 -0500 00 2 00002 CAL 2,2 PLACE SIZE TO W.A. NB262 FP215950 | 32634 0560 00 2 00003 LDQ 3,2 * NB263 FP215960 | 32635 -0763 00 0 00006 LGL 6 * NB264 FP215970 32636 -0320 00 0 35021 ANA NAB40 * NB265 FP215980 | 32637 0601 00 0 07751 STO B1020 CONVERT TO BINARY NB266 FP215990 | 32640 0074 00 4 07570 TSX B0010,4 * NB267 FP216000 | 32641 0500 00 0 07747 CLA B1000 * NB269 FP216010 | 32642 0601 00 0 35024 STO NAB70 * NB270 FP216020 32643 -0500 00 2 00002 CAL 2,2 * MODE-SIZE NB275 FP216030 | 32644 -0320 00 0 10764 ANA BCD37 NB276 FP216040 | 32645 -0602 00 1 33652 ORS NAA40+2,1 * NB280 FP216050 | 32646 -0500 00 2 00003 CAL 3,2 * REMAINDER OF SIZE NB290 FP216060 | 32647 -0320 00 0 35015 ANA NAB00 * NB300 FP216070 32650 0602 00 1 33653 SLW NAA40+3,1 * NB310 FP216080 | 32651 -0500 00 2 00004 CAL 4,2 * INCREMENT NB320 FP216090 | 32652 -0320 00 0 35022 ANA NAB50 * BIT ONLY NB330 FP216100 | 32653 0602 00 1 33654 SLW NAA40+4,1 * NB340 FP216110 | 32654 0771 00 0 00006 ARS 6 BIT TO W.A. NB343 FP216120 32655 0601 00 0 07751 STO B1020 * NB345 FP216130 | 32656 0074 00 4 07570 TSX B0010,4 CONVERT TO BINARY NB346 FP216140 | 32657 0500 00 0 07747 CLA B1000 * NB348 FP216150 | 32660 0601 00 0 35023 STO NAB60 * NB349 FP216160 | 32661 0534 00 2 35011 LXA NAA60,2 SET XR = 2 TO TBL ENTRY NB350 FP216170 32662 0020 00 0 32515 TRA NA630 * NO NB360 FP216180 | 32663 0600 00 0 35023 NB370 STZ NAB60 SET BIT TO ZERO NB370 FP216190 | 32664 0534 00 1 35011 LXA NAA60,1 SET TO PROPER TABLE ENTRY NB390 FP216200 | 32665 -0500 00 0 35020 CAL NAB30 MODE NB400 FP216210 | 1 LISTING OF 12/01/64 PAGE 445 HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | | 32666 -0602 00 1 33652 ORS NAA40+2,1 * NB405 FP216220 | 32667 -0500 00 1 33650 CAL NAA40,1 FLD= NB410 FP216230 | 32670 -0765 00 0 00006 LGR 6 * NB415 FP216240 32671 0602 00 1 33651 SLW NAA40+1,1 * NB420 FP216250 | 32672 -0130 00 0 00000 XCL * NB425 FP216260 | 32673 -0320 00 0 35015 ANA NAB00 * NB430 FP216270 | 32674 -0602 00 1 33652 ORS NAA40+2,1 * NB435 FP216280 | 32675 -0500 00 0 35016 CAL NAB10 F NB440 FP216290 32676 -0602 00 1 33651 ORS NAA40+1,1 * NB445 FP216300 | 32677 -0500 00 0 35076 CAL NAD43 NB450 FP216310 | 32700 0771 00 0 00006 ARS 6 * NB460 FP216320 | 32701 -0602 00 1 33651 ORS NAA40+1,1 FP216330 | 32702 -0500 00 0 13054 CAL D1170 GET SIZE OF THE LARGEST FLDNB540 FP216340 32703 -0765 00 0 00006 LGR 6 * NB550 FP216350 | 32704 -0602 00 1 33652 ORS NAA40+2,1 * NB560 FP216360 | 32705 0131 00 0 00000 XCA * NB570 FP216370 | 32706 -0320 00 0 35015 ANA NAB00 * NB580 FP216380 | 32707 -0602 00 1 33653 ORS NAA40+3,1 * NB590 FP216390 32710 -0500 00 0 13054 CAL D1170 CONVERT TO BINARY NB591 FP216400 | 32711 0602 00 0 07751 SLW B1020 * NB592 FP216410 | 32712 0074 00 4 07570 TSX B0010,4 * NB593 FP216420 | 32713 0500 00 0 07747 CLA B1000 SAVE SIZE NB595 FP216430 | 32714 0601 00 0 35024 STO NAB70 * NB596 FP216440 32715 0131 00 0 00000 XCA PLACE BIL POSITION TO DIET NB597 FP216450 | 32716 -0754 00 0 00000 PXD 0,0 * NB598 FP216460 | 32717 0220 00 0 35001 DVH NAA50+1 * NB599 FP216470 | 32720 0601 00 0 35027 STO NAC00 DETERMINE BIT POSITION NB600 FP216480 | 32721 0100 00 0 32725 TZE *+4 NB6005FP216490 32722 0500 00 0 35001 CLA NAA50+1 * NB601 FP216500 | 32723 0402 00 0 35027 SUB NAC00 * NB602 FP216510 | 32724 0601 00 0 35023 STO NAB60 * NB603 FP216520 | 32725 0601 00 0 10127 STO B6000 CONVERT BIT TO BCD NB604 FP216530 | 32726 0074 00 4 10070 TSX B5010,4 * NB605 FP216540 32727 -0500 00 0 10131 CAL B6020 * NB606 FP216550 | 32730 0767 00 0 00006 ALS 6 PLACE BIT IN DICTIONARY NB607 FP216560 | 32731 -0320 00 0 35022 ANA NAB50 NB608 FP216570 | 32732 -0602 00 2 33654 ORS NAA40+4,2 NB609 FP216580 | 32733 0020 00 0 32515 TRA NA630 NB6091FP216590 32734 -0500 00 0 04622 NB610 CAL CARD+1 SOURCE FILE RECORD NB610 FP216600 | 32735 -0320 00 0 35012 ANA NAA70 * NB620 FP216610 | 32736 0100 00 0 32741 TZE *+3 YES NB630 FP216620 | 32737 0074 00 4 10507 TSX T0010,4 NB635 FP216630 | 32740 -1 01210 2 32741 STR *+1,2,648 COL 10 HOR REPT FORM NOT ZERO NB640 FP216640 32741 -0500 00 0 04622 CAL CARD+1 CURRENT SF NB650 FP216650 | 32742 -0320 00 0 35026 ANA NAB90 * NB660 FP216660 | 32743 0602 00 0 35027 SLW NAC00 * PLACE REQUESTED REC TYPE NB670 FP216670 | 32744 -0500 00 0 67174 CAL HEADR+2 * NB680 FP216680 | 32745 0771 00 0 00006 ARS 6 * NB690 FP216690 32746 -0320 00 0 35026 ANA NAB90 * NB700 FP216700 | 32747 -0340 00 0 35027 LAS NAC00 COMPARE TO HEADR NB710 FP216710 | 32750 0020 00 0 32752 TRA *+2 * NB720 FP216720 | 32751 0020 00 0 32756 TRA NB770 * OK, GET NUMERIC FLD = NB730 FP216730 | 32752 0074 00 4 10507 TSX T0010,4 NB735 FP216740 32753 -1 01211 2 32754 STR *+1,2,649 REPT REQ RT NOT EQ HOR HDR RT NB740 FP216750 | 32754 0600 00 0 35034 NB750 STZ NAC40 SET TO-FROM ZIGGER ON NB750 FP216760 | 1 LISTING OF 12/01/64 PAGE 446 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | 32755 0020 00 0 32663 NB760 TRA NB370 NB760 FP216770 | 32756 -0500 00 0 04623 NB770 CAL CARD+2 LOAD NUMERK FIELD = NB770 FP216780 | 32757 0771 00 0 00014 ARS 12 * NB780 FP216790 | 32760 0020 00 0 32374 TRA NA080 * TO TEST + LOAD TABLE NB790 FP216800 | * HORIZONTAL CLEAN UP NC000 FP216810 32761 -0500 00 0 35076 NC010 CAL NAD43 REPORT RECORD TYPE FP216820 | 32762 0074 00 4 11426 TSX STORR,4 * NC012 FP216830 | 32763 -0500 00 0 32765 CAL *+2 * NC013 FP216840 | 32764 0074 00 4 11413 TSX PRGMR,4 * NC014 FP216850 | 32765 -0500 00 0 00000 CAL .. * NC015 FP216860 32766 0074 00 4 11454 TSX SADDR,4 * NC016 FP216870 | 32767 -0500 00 0 32771 CAL *+2 * NC017 FP216880 | 32770 0074 00 4 11413 TSX PRGMR,4 * NC018 FP216890 | 32771 0602 00 4 00000 SLW 0,4 NC019 FP216900 | 32772 -0500 00 0 32774 CAL *+2 BUILD OBJECT WRITE NC020 FP216910 32773 0074 00 4 11413 TSX PRGMR,4 * NC025 FP216920 | 32774 0074 00 4 22321 TSX SAVXR,4 * NC030 FP216930 | 32775 -0500 00 0 32777 CAL *+2 * NC040 FP216940 | 32776 0074 00 4 11413 TSX PRGMR,4 * NC050 FP216950 | 32777 -0 00010 0 16555 FOR OUTPT,0,8 NC060 FP216960 33000 -0500 00 0 33002 CAL *+2 RESTORE XR=1 TO MRGLO NC070 FP216970 | 33001 0074 00 4 11413 TSX PRGMR,4 * NC080 FP216980 | 33002 0535 00 1 22174 LAC MRGLO,1 * NC090 FP216990 | 33003 -0500 00 0 67172 CAL HEADR NC100 FP217000 | 33004 -0320 00 0 11005 ANA BCD60 NC101 FP217010 33005 0771 00 0 00006 ARS 6 * NC105 FP217020 | 33006 -0501 00 0 33011 ORA NC126 * WITH AFTER SORT CODE NC115 FP217030 | 33007 0074 00 4 11547 TSX M0010,4 * NC120 FP217040 | 33010 0020 00 0 33012 TRA *+2 * NC125 FP217050 | 33011 -120000620000 NC126 OCT 520000620000 *AFTER CODE NC126 FP217060 33012 -0500 00 0 04216 CAL FIL08+6 BUILD FILE SERIAL FOR E-LABEL NC130 FP217070 | 33013 -0320 00 0 10764 ANA BCD37 NC140 FP217080 | 33014 -0501 00 0 13025 ORA D1050 NC150 FP217090 | 33015 0602 00 0 35037 SLW NAC70 NC160 FP217100 | 33016 -0500 00 0 35025 CAL NAB80 PUT IN RECORD LENGTH NC180 FP217110 33017 0602 00 0 10127 SLW B6000 CONVERT IT TO BCD NC190 FP217120 | 33020 0074 00 4 10070 TSX B5010,4 * NC200 FP217130 | 33021 -0500 00 0 10131 CAL B6020 PLACE IT IN DICT LABEL NC220 FP217140 | 33022 -0765 00 0 00022 LGR 18 * NC230 FP217150 | 33023 0602 00 0 35040 SLW NAC70+1 * NC240 FP217160 33024 0131 00 0 00000 XCA * NC250 FP217170 | 33025 -0320 00 0 35055 ANA NAC80 * NC260 FP217180 | 33026 0602 00 0 35041 SLW NAC70+2 * NC270 FP217190 | 33027 0774 00 2 00000 AXT 0,2 SET TO BEGIN OF TABLE NC275 FP217200 | 33030 -0500 00 2 33651 CAL NAA40+1,2 BUILD 2ND LABEL WORD NC280 FP217210 33031 -0320 00 0 35017 ANA NAB20 * NC290 FP217220 | 33032 0771 00 0 00014 ARS 12 * NC300 FP217230 | 33033 0601 00 0 35027 STO NAC00 * NC310 FP217240 | 33034 -0501 00 0 35056 ORA NAC90 BLANK LEFT-HALF WORD 2 NC320 FP217250 | 33035 -0602 00 0 35040 ORS NAC70+1 PUT 2ND LABEL WORD IN PLACENC360 FP217260 33036 -0500 00 0 67177 CAL HEADR+5 PLACE DESCRIPTION TO LABEL NC370 FP217270 | 33037 0560 00 0 67200 LDQ HEADR+6 * NC380 FP217280 | 33040 -0763 00 0 00030 LGL 24 * NC390 FP217290 | 33041 -0320 00 0 35015 ANA NAB00 * NC400 FP217300 | 33042 0602 00 0 35042 SLW NAC70+3 * NC410 FP217310 1 LISTING OF 12/01/64 PAGE 447 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | | 33043 -0500 00 0 67200 CAL HEADR+6 * NC420 FP217320 | 33044 0560 00 0 67201 LDQ HEADR+7 * NC430 FP217330 33045 -0763 00 0 00030 LGL 24 * NC440 FP217340 | 33046 0602 00 0 35043 SLW NAC70+4 * NC450 FP217350 | 33047 -0500 00 0 67201 CAL HEADR+7 * NC460 FP217360 | 33050 0560 00 0 67202 LDQ HEADR+8 * NC470 FP217370 | 33051 -0763 00 0 00030 LGL 24 * NC480 FP217380 33052 0602 00 0 35044 SLW NAC70+5 * NC490 FP217390 | 33053 0600 00 0 35045 STZ NAC70+6 * NC500 FP217400 | 33054 0074 00 4 05255 TSX RD(WR),4 WRITE DICT LABEL NC590 FP217410 | 33055 -0 33060 0 00010 FOR 8,0,NC630 NC600 FP217420 | 33056 0020 00 0 33062 TRA NC650 NC610 FP217430 33057 0074 00 4 06557 TSX SCEOT,4 EOT WRITING CHG DICT NC620 FP217440 | 33060 -0 00007 0 35037 NC630 IOCP NAC70,,7 LABEL NC630 FP217450 | 33061 3 00007 0 35062 IORT NAD30,,7 BLANKS NC640 FP217460 | 33062 -0500 00 2 33651 NC650 CAL NAA40+1,2 BUILD REC TYPE FIELD DIF NC650 FP217470 | 33063 -0320 00 0 35055 ANA NAC80 * NC660 FP217480 33064 0602 00 0 35037 SLW NAC70 * NC670 FP217490 | 33065 -0500 00 0 35057 CAL NAD00 * NC680 FP217500 | 33066 0602 00 0 35040 SLW NAC70+1 * NC690 FP217510 | 33067 -0500 00 0 35060 CAL NAD10 * NC700 FP217520 | 33070 0602 00 0 35041 SLW NAC70+2 * NC710 FP217530 33071 0600 00 0 35042 STZ NAC70+3 * NC730 FP217540 | 33072 0534 00 1 33647 LXA NAA30,1 NC775 FP217550 | 33073 1 00001 1 33074 TXI *+1,1,1 NC777 FP217560 | 33074 0074 00 4 05255 NC780 TSX RD(WR),4 NC780 FP217570 | 33075 -0 33100 0 00010 FOR 8,0,NC900 NC870 FP217580 33076 0020 00 0 33102 TRA NC920 NC880 FP217590 | 33077 0074 00 4 06557 TSX SCEOT,4 NC900 FP217600 | 33100 -0 00004 0 35037 NC900 IOCP NAC70,,4 LABEL NC900 FP217610 | 33101 3 00012 0 35062 IORT NAD30,,10 BLANKS NC910 FP217620 | 33102 -0500 00 0 35014 NC920 CAL NAA90 BUILD DICTIONARYS FROM TBL NC920 FP217630 33103 -0340 00 2 33650 NC950 LAS NAA40,2 * NC950 FP217640 | 33104 0020 00 0 33111 TRA NC977 NC960 FP217650 | 33105 0020 00 0 33107 TRA *+2 THIS IS A FROM REQUEST NC961 FP217660 | 33106 0020 00 0 33111 TRA NC977 NC962 FP217670 | 33107 0634 00 2 35011 SXA NAA60,2 SAVE TABLE LOCATION NC964 FP217680 33110 0020 00 0 33611 TRA NG020 NC965 FP217690 | 33111 2 00001 1 33115 NC977 TIX NC983,1,1 NC977 FP217700 | 33112 -0520 00 0 14512 NZT BAE80 FINISHED-TRA OUT NC980 FP217710 | 33113 0020 00 0 14403 TRA BB360 NC981 FP217720 | 33114 0020 00 0 14341 TRA BB180 NC982 FP217730 33115 0634 00 2 35011 NC983 SXA NAA60,2 NC983 FP217740 | 33116 0754 00 2 00000 PXA 0,2 CALCULATE LOCATION OF NEXT NC989 FP217750 | 33117 0760 00 0 00006 COM * NC990 FP217760 | 33120 0402 00 0 33103 SUB NC950 * NC991 FP217770 | 33121 0400 00 0 35007 ADD NAA50+7 * NC992 FP217780 33122 0621 00 0 33100 STA NC900 PLACE IN IOCP NC993 FP217790 | 33123 1 77773 2 33074 TXI NC780,2,-5 NC995 FP217800 | 33124 -0500 00 2 33650 ND000 CAL NAA40,2 LOAD LITERAL FLD = ND000 FP217810 | 33125 -0340 00 0 35013 LAS NAA80 IS THIS TO ND020 FP217820 | 33126 0020 00 0 33130 TRA *+2 * NO ND030 FP217830 33127 0020 00 0 33544 TRA NF645 * YES ND040 FP217840 | 33130 0600 00 0 35125 STZ NAF40 ND045 FP217850 | 33131 -0340 00 0 35077 LAS NAD50 AUTH ND050 FP217860 | 1 LISTING OF 12/01/64 PAGE 448 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | 33132 0020 00 0 33134 TRA *+2 * NO ND060 FP217870 | 33133 0020 00 0 33300 TRA NE060 * YES ND070 FP217880 | 33134 -0340 00 0 35100 LAS NAD60 DESC ND080 FP217890 | 33135 0020 00 0 33137 TRA *+2 * NO ND090 FP217900 33136 0020 00 0 33435 TRA NE920 * YES ND100 FP217910 | 33137 -0340 00 0 35101 LAS NAD70 FLD= ND110 FP217920 | 33140 0020 00 0 33142 TRA *+2 * NO ND120 FP217930 | 33141 0020 00 0 33474 TRA NF240 * YES ND130 FP217940 | 33142 -0340 00 0 35102 LAS NAD80 ACTF ND140 FP217950 33143 0020 00 0 33145 TRA *+2 * NO ND150 FP217960 | 33144 0020 00 0 33513 TRA NF390 * YES ND160 FP217970 | 33145 -0340 00 0 35103 LAS NAD90 ACTR ND170 FP217980 | 33146 0020 00 0 33150 TRA *+2 * NO ND180 FP217990 | 33147 0020 00 0 33524 TRA NF480 * YES ND190 FP218000 33150 -0340 00 0 35104 LAS NAE00 TYPE ND200 FP218010 | 33151 0020 00 0 33153 TRA *+2 * NO ND210 FP218020 | 33152 0020 00 0 33540 TRA NF610 * YES ND220 FP218030 | 33153 -0340 00 0 35014 LAS NAA90 FROM ND230 FP218040 | 33154 0020 00 0 33156 TRA *+2 * NO ND240 FP218050 33155 0020 00 0 14307 TRA BB010 * YES ND250 FP218060 | 33156 0520 00 0 35112 ZET NAE50 IS THIS SOURCE FILE FIELD ND260 FP218070 | 33157 0020 00 0 33163 TRA ND360 * NO, IT IS FIXED HORIZONTAND270 FP218080 | 33160 0520 00 0 35113 ZET NAE60 ( YES, IS IT CURRENT ND280 FP218090 | 33161 0020 00 0 33255 TRA ND930 * NO, IT IS MASTER ND290 FP218100 33162 0020 00 0 33274 TRA NE020 * YES, WORK CURRENT ND300 FP218110 | 33163 -0500 00 0 33165 ND360 CAL *+2 HORIZONTAL FIXED TO REPT ND360 FP218120 | 33164 0074 00 4 11413 TSX PRGMR,4 * BUILD LAC MRGLO ND370 FP218130 | 33165 0535 00 1 22174 LAC MRGLO,1 * ND380 FP218140 | 33166 -0625 00 0 35036 ND390 STL NAC60 SET IR =1 ZIGGER OFF ND390 FP218150 33167 0534 00 2 35011 LXA NAA60,2 RESET TO TBL ENTRY ND393 FP218160 | 33170 -0500 00 2 33652 CAL NAA40+2,2 CALCULATE = OF WORDS ND395 FP218170 | 33171 0560 00 2 33653 LDQ NAA40+3,2 * GET SIZE ND400 FP218180 | 33172 -0763 00 0 00006 LGL 6 * ND410 FP218190 | 33173 -0320 00 0 35021 ANA NAB40 * ND420 FP218200 33174 0602 00 0 07751 SLW B1020 * CONVERT SIZE TO BINARY ND422 FP218210 | 33175 0074 00 4 07570 TSX B0010,4 * ND424 FP218220 | 33176 -0500 00 0 07747 CAL B1000 * ND428 FP218230 | 33177 0602 00 0 35027 SLW NAC00 * SAVE IT ND430 FP218240 | 33200 -0500 00 2 33654 CAL NAA40+4,2 * GET BIT ND440 FP218250 33201 0771 00 0 00006 ARS 6 * ND450 FP218260 | 33202 -0320 00 0 35026 ANA NAB90 * ND460 FP218270 | 33203 0602 00 0 07751 SLW B1020 * CONVERT BIT TO BINARY ND462 FP218280 | 33204 0074 00 4 07570 TSX B0010,4 * ND464 FP218290 | 33205 0500 00 0 07747 CLA B1000 * ND468 FP218300 33206 0400 00 0 35027 ADD NAC00 * ADD BIT TO SIZE ND470 FP218310 | 33207 0131 00 0 00000 XCA * ND480 FP218320 | 33210 -0754 00 0 00000 PXD 0,0 * ND490 FP218330 | 33211 0220 00 0 35001 DVH NAA50+1 * DIVIDE BY 36 ND500 FP218340 | 33212 0100 00 0 33216 TZE ND550 IS IT REGHT JUSTIFIED ND510 FP218350 33213 0131 00 0 00000 XCA * NO, ADD ONE MORE ND520 FP218360 | 33214 0400 00 0 35000 ADD NAA50 * ND530 FP218370 | 33215 0020 00 0 33217 TRA *+2 * ND540 FP218380 | 33216 0131 00 0 00000 ND550 XCA ND550 FP218390 | 33217 0734 00 1 00000 PAX 0,1 LOAD = OF WORDS IN FIELD ND560 FP218400 33220 0074 00 4 33310 TSX NE140,4 GET OUTPUT WORD= ND570 FP218410 | 1 LISTING OF 12/01/64 PAGE 449 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | | 33221 0621 00 0 33244 STA ND840 * SET SLW ADDRESS ND650 FP218420 33222 -0520 00 0 35112 NZT NAE50 IS THIS SOURCE FILE DATA ND653 FP218430 | 33223 0020 00 0 33263 TRA ND970 * YES, WORK SOURCE FILE ND655 FP218440 | 33224 -0500 00 0 04622 CAL CARD+1 * GET INC ND660 FP218450 | 33225 0560 00 0 04623 LDQ CARD+2 * ND670 FP218460 | 33226 -0763 00 0 00006 LGL 6 * ND680 FP218470 33227 -0320 00 0 35021 ANA NAB40 * ND690 FP218480 | 33230 0602 00 0 07751 ND700 SLW B1020 * CONVERT TO BINARY ND700 FP218490 | 33231 0074 00 4 07572 TSX B0012,4 ND710 FP218500 | 33232 0560 00 0 07747 LDQ B1000 * ND730 FP218510 | 33233 -0754 00 0 00000 PXD 0,0 * ND750 FP218520 33234 0220 00 0 35001 DVH NAA50+1 * DIVIDE BY 36 ND760 FP218530 | 33235 0131 00 0 00000 XCA * ND770 FP218540 | 33236 0621 00 0 33241 STA ND810 * SET ADDRESS OF CAL ND780 FP218550 | 33237 -0500 00 0 33241 ND790 CAL *+2 BUILD PROGRAM TO MOVE ND790 FP218560 | 33240 0074 00 4 11413 TSX PRGMR,4 * FIXED PORTION HORIZONTAL ND800 FP218570 33241 -0500 00 1 00000 ND810 CAL ..,1 * ND810 FP218580 | 33242 -0500 00 0 33244 CAL *+2 * ND820 FP218590 | 33243 0074 00 4 11413 TSX PRGMR,4 * ND830 FP218600 | 33244 0602 00 4 00000 ND840 SLW ..,4 * ND840 FP218610 | 33245 -0500 00 0 33241 CAL ND810 MOVE ADDRESSES UP ONE ND850 FP218620 33246 0400 00 0 35000 ADD NAA50 * ND860 FP218630 | 33247 0621 00 0 33241 STA ND810 * ND870 FP218640 | 33250 0500 00 0 33244 CLA ND840 * ND880 FP218650 | 33251 0400 00 0 35000 ADD NAA50 * ND890 FP218660 | 33252 0621 00 0 33244 STA ND840 * ND900 FP218670 33253 2 00001 1 33237 TIX ND790,1,1 * ND910 FP218680 | 33254 0020 00 0 14307 TRA BB010 TO GET NEXT CARD ND920 FP218690 | 33255 -0500 00 0 33257 ND930 CAL *+2 SOURCE FILE MASTER ND930 FP218700 | 33256 0074 00 4 11413 TSX PRGMR,4 * ND940 FP218710 | 33257 0535 00 1 00000 LAC 0,1 LOAD MASTER LOCATION ND950 FP218720 33260 -0500 00 0 04622 CAL CARD+1 ND953 FP218730 | 33261 0074 00 4 11517 TSX LADDR,4 ND957 FP218740 | 33262 0020 00 0 33166 TRA ND390 * ND960 FP218750 | 33263 0534 00 2 35131 ND970 LXA NAF80,2 SET IR =2 TO SF DICT ND970 FP218760 | 33264 -0500 00 2 00003 CAL 3,2 * GET INPUT LOCATION ND980 FP218770 33265 0560 00 2 00004 LDQ 4,2 * ND990 FP218780 | 33266 -0763 00 0 00022 LGL 18 NE000 FP218790 | 33267 -0320 00 0 33644 ANA NAA10 * NE010 FP218800 | 33270 0601 00 0 07751 STO B1020 CONVERT TO BINARY NE011 FP218810 | 33271 0074 00 4 07570 TSX B0010,4 * NE012 FP218820 33272 0500 00 0 07747 CLA B1000 * NE013 FP218830 | 33273 0020 00 0 33236 TRA ND790-1 * NE014 FP218840 | 33274 -0500 00 0 33276 NE020 CAL *+2 SOURCE FILE-CURRENT NE020 FP218850 | 33275 0074 00 4 11413 TSX PRGMR,4 * NE030 FP218860 | 33276 0535 00 1 17301 LAC SFLOC,1 LOAD CURRENT LOCATION NE040 FP218870 33277 0020 00 0 33166 TRA ND390 * NE050 FP218880 | 33300 -0520 00 0 35036 NE060 NZT NAC60 IS IR =1 SET TO DICLO NE060 FP218890 | 33301 0020 00 0 33306 TRA NE120 * YES NE070 FP218900 | 33302 -0500 00 0 33304 CAL *+2 * NO - FIX IT NE080 FP218910 | 33303 0074 00 4 11413 TSX PRGMR,4 * NE090 FP218920 33304 0535 00 1 22176 LAC DICLO,1 * NE100 FP218930 | 33305 0600 00 0 35036 STZ NAC60 * SET ZIGGER TO YE NE110 FP218940 | 33306 0074 00 4 33310 NE120 TSX NE140,4 CALC SLW ADDRL ENTRY NE120 FP218950 | 33307 0020 00 0 33325 TRA NE270 * NE130 FP218960 | 1 LISTING OF 12/01/64 PAGE 450 HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | | 33310 0634 00 4 33322 NE140 SXA NE250,4 SAVE IRS NE140 FP218970 | 33311 0634 00 2 33323 SXA NE260,2 NE150 FP218980 | 33312 0534 00 2 35011 LXA NAA60,2 SET TO TABLE ENTRY NE160 FP218990 33313 -0500 00 2 33653 CAL NAA40+3,2 GET WORD = NE170 FP219000 | 33314 0560 00 2 33654 LDQ NAA40+4,2 * NE180 FP219010 | 33315 -0763 00 0 00022 LGL 18 * NE190 FP219020 | 33316 -0320 00 0 33644 ANA NAA10 * NE200 FP219030 | 33317 0602 00 0 07751 SLW B1020 CONVERT TO BIN NE210 FP219040 33320 0074 00 4 07570 TSX B0010,4 * NE220 FP219050 | 33321 0500 00 0 07747 CLA B1000 * PICK UP BIN WORD = NE240 FP219060 | 33322 0774 00 4 00000 NE250 AXT ..,4 NE250 FP219070 | 33323 0774 00 2 00000 NE260 AXT ..,2 NE260 FP219080 | 33324 0020 00 4 00001 TRA 1,4 NE265 FP219090 33325 0621 00 0 33336 NE270 STA NE330 NE270 FP219100 | 33326 -0500 00 0 33330 CAL *+2 NE280 FP219110 | 33327 0074 00 4 11413 TSX PRGMR,4 NE290 FP219120 | 33330 -0500 00 1 00007 CAL 7,1 NE300 FP219130 | 33331 -0500 00 0 33333 CAL *+2 NE310 FP219140 33332 0074 00 4 11413 TSX PRGMR,4 NE312 FP219150 | 33333 -0765 00 0 00030 LGR 24 NE314 FP219160 | 33334 -0500 00 0 33336 CAL *+2 NE316 FP219170 | 33335 0074 00 4 11413 TSX PRGMR,4 NE320 FP219180 | 33336 0602 00 4 00000 NE330 SLW ..,4 NE330 FP219190 33337 0020 00 0 14307 TRA BB010 * TO GET NECT CARD NE340 FP219200 | 33340 -0500 00 2 33650 NE350 CAL NAA40,2 LOAD LITERAL NE350 FP219210 | 33341 -0340 00 0 35077 LAS NAD50 AUTH NE360 FP219220 | 33342 0020 00 0 33344 TRA *+2 * NE370 FP219230 | 33343 0020 00 0 33370 TRA NE580 * YES NE380 FP219240 33344 -0340 00 0 35104 LAS NAE00 TYPE NE390 FP219250 | 33345 0020 00 0 33347 TRA *+2 * NE400 FP219260 | 33346 0020 00 0 33370 TRA NE580 * YES NE410 FP219270 | 33347 -0340 00 0 35101 LAS NAD70 FLD = NE420 FP219280 | 33350 0020 00 0 33352 TRA *+2 * NE430 FP219290 33351 0020 00 0 33423 TRA NE830 * YES NE440 FP219300 | 33352 -0340 00 0 35102 LAS NAD80 ACTF NE450 FP219310 | 33353 0020 00 0 33355 TRA *+2 * NE460 FP219320 | 33354 0020 00 0 33402 TRA NE670 * YES NE470 FP219330 | 33355 -0340 00 0 35103 LAS NAD90 ACTR NE480 FP219340 33356 0020 00 0 33360 TRA *+2 * NE490 FP219350 | 33357 0020 00 0 33402 TRA NE670 * YES NE500 FP219360 | 33360 -0340 00 0 35100 LAS NAD60 DESC NE510 FP219370 | 33361 0020 00 0 33363 TRA *+2 * NE520 FP219380 | 33362 0020 00 0 33412 TRA NE740 * NE530 FP219390 33363 0074 00 4 10507 TSX T0010,4 NE535 FP219400 | 33364 -1 00474 2 14307 STR BB010,2,316 NOT A VALID LITERAL NE540 FP219410 | 33365 -0500 00 0 35110 NE550 CAL NAE40 CLEAR SIZE AREA NE550 FP219420 | 33366 0320 00 2 33652 ANS NAA40+2,2 * NE560 FP219430 | 33367 0020 00 0 33340 TRA NE350 * NE570 FP219440 33370 -0500 00 0 35114 NE580 CAL NAE70 PLACE NEW SIZE IN DICT NE580 FP219450 | 33371 -0602 00 2 33652 ORS NAA40+2,2 * 2 CHAR NE590 FP219460 | 33372 -0500 00 0 35115 CAL NAE70+1 * NE600 FP219470 | 33373 0602 00 2 33653 SLW NAA40+3,2 * NE610 FP219480 | 33374 -0500 00 0 35002 CAL NAA50+2 LEN IN WORK AREA NE620 FP219490 33375 0602 00 0 35024 SLW NAB70 * NE630 FP219500 | 33376 -0500 00 0 35003 CAL NAA50+3 BIT IN WORK AREA NE640 FP219510 | 1 LISTING OF 12/01/64 PAGE 451 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | 33377 0602 00 0 35023 SLW NAB60 * NE650 FP219520 | 33400 -0500 00 0 35126 CAL NAF50 GET BCD BIT NE655 FP219530 | 33401 0020 00 0 32512 TRA NA600 * NE660 FP219540 | 33402 -0500 00 0 35116 NE670 CAL NAE80 NEW SIZE TO DICT NE670 FP219550 | 33403 0602 00 2 33653 SLW NAA40+3,2 * 1 CHAR NE680 FP219560 33404 -0500 00 0 35004 CAL NAA50+4 * NE690 FP219570 | 33405 0602 00 0 35024 SLW NAB70 LEN NE700 FP219580 | 33406 -0500 00 0 35005 CAL NAA50+5 * NE710 FP219590 | 33407 0602 00 0 35023 SLW NAB60 BIT NE720 FP219600 | 33410 -0500 00 0 35130 CAL NAF50+2 GET BCD BIT NE725 FP219610 33411 0020 00 0 32512 TRA NA600 * NE730 FP219620 | 33412 -0500 00 0 35117 NE740 CAL NAE90 NEW SIZE TO DICT NE740 FP219630 | 33413 -0602 00 2 33652 ORS NAA40+2,2 * 18 CHAR NE750 FP219640 | 33414 -0500 00 0 35120 CAL NAE90+1 * NE760 FP219650 | 33415 0602 00 2 33653 SLW NAA40+3,2 * NE770 FP219660 33416 -0500 00 0 35006 CAL NAA50+6 * NE780 FP219670 | 33417 0602 00 0 35024 SLW NAB70 * NE790 FP219680 | 33420 0760 00 0 00000 CLM * NE800 FP219690 | 33421 0602 00 0 35023 SLW NAB60 * NE810 FP219700 | 33422 0020 00 0 32515 TRA NA630 NE820 FP219710 33423 -0500 00 0 35121 NE830 CAL NAF00 NEW SIZE TO DICT NE830 FP219720 | 33424 -0602 00 2 33652 ORS NAA40+2,2 * 4 CHAR NE840 FP219730 | 33425 -0500 00 0 35122 CAL NAF00+1 * NE850 FP219740 | 33426 0602 00 2 33653 SLW NAA40+3,2 * NE860 FP219750 | 33427 -0500 00 0 35003 CAL NAA50+3 * NE870 FP219760 33430 0602 00 0 35024 SLW NAB70 * NE880 FP219770 | 33431 -0500 00 0 35002 CAL NAA50+2 * NE890 FP219780 | 33432 0602 00 0 35023 SLW NAB60 * NE900 FP219790 | 33433 -0500 00 0 35127 CAL NAF50+1 GET BCD BIT NE905 FP219800 | 33434 0020 00 0 32512 TRA NA600 * NE910 FP219810 33435 -0520 00 0 35036 NE920 NZT NAC60 IS IR =1 AT DICLO NE920 FP219820 | 33436 0020 00 0 33443 TRA NE980 NE930 FP219830 | 33437 -0500 00 0 33441 CAL *+2 NE940 FP219840 | 33440 0074 00 4 11413 TSX PRGMR,4 NE950 FP219850 | 33441 0535 00 1 22176 LAC DICLO,1 NE960 FP219860 33442 0600 00 0 35036 STZ NAC60 NE970 FP219870 | 33443 0074 00 4 33310 NE980 TSX NE140,4 GET ADDRESS OF SLW NE980 FP219880 | 33444 0621 00 0 33456 STA NF090 * NE990 FP219890 | 33445 0400 00 0 35000 ADD NAA50 * NF000 FP219900 | 33446 0621 00 0 33464 STA NF150 * NF010 FP219910 33447 0400 00 0 35000 ADD NAA50 * NF020 FP219920 | 33450 0621 00 0 33472 STA NF210 * NF030 FP219930 | 33451 -0500 00 0 33453 CAL *+2 MOVE DESCRIPTION NF040 FP219940 | 33452 0074 00 4 11413 TSX PRGMR,4 * NF050 FP219950 | 33453 -0500 00 1 00010 CAL 8,1 * NF060 FP219960 33454 -0500 00 0 33456 CAL *+2 * NF070 FP219970 | 33455 0074 00 4 11413 TSX PRGMR,4 * NF080 FP219980 | 33456 0602 00 4 00000 NF090 SLW ..,4 * NF090 FP219990 | 33457 -0500 00 0 33461 CAL *+2 * NF100 FP220000 | 33460 0074 00 4 11413 TSX PRGMR,4 * NF110 FP220010 33461 -0500 00 1 00011 CAL 9,1 * NF120 FP220020 | 33462 -0500 00 0 33464 CAL *+2 * NF130 FP220030 | 33463 0074 00 4 11413 TSX PRGMR,4 * NF140 FP220040 | 33464 0602 00 4 00000 NF150 SLW ..,4 * NF150 FP220050 | 33465 -0500 00 0 33467 CAL *+2 * NF160 FP220060 1 LISTING OF 12/01/64 PAGE 452 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | | 33466 0074 00 4 11413 TSX PRGMR,4 * NF170 FP220070 | 33467 -0500 00 1 00012 CAL 10,1 * NF180 FP220080 33470 -0500 00 0 33472 CAL *+2 * NF190 FP220090 | 33471 0074 00 4 11413 TSX PRGMR,4 * NF200 FP220100 | 33472 0602 00 4 00000 NF210 SLW ..,4 * NF210 FP220110 | 33473 0020 00 0 14307 TRA BB010 * TO GET NEXT CARD NF220 FP220120 | 33474 -0520 00 0 35036 NF240 NZT NAC60 FIELD = PROGRAM NF240 FP220130 33475 0020 00 0 33502 TRA NF300 DOES NOT NEED TO RESET IR =NF250 FP220140 | 33476 -0500 00 0 33500 CAL *+2 BUILD LAC DICLO,1 NF260 FP220150 | 33477 0074 00 4 11413 TSX PRGMR,4 * NF270 FP220160 | 33500 0535 00 1 22176 LAC DICLO,1 * NF280 FP220170 | 33501 0600 00 0 35036 STZ NAC60 SET IR =1 ZIGGER ON NF290 FP220180 33502 -0500 00 0 33504 NF300 CAL *+2 BUILD CAL 0,1 NF300 FP220190 | 33503 0074 00 4 11413 NF310 TSX PRGMR,4 * NF310 FP220200 | 33504 -0500 00 1 00000 CAL 0,1 * NF320 FP220210 | 33505 0074 00 4 33310 TSX NE140,4 GET SLW ADDRESS NF330 FP220220 | 33506 0621 00 0 33511 NF340 STA NF370 * NF340 FP220230 33507 -0500 00 0 33511 CAL *+2 BUILD SLW -,4 NF350 FP220240 | 33510 0074 00 4 11413 TSX PRGMR,4 * NF360 FP220250 | 33511 0602 00 4 00000 NF370 SLW ..,4 * NF370 FP220260 | 33512 0020 00 0 14307 TRA BB010 * GET NEXT CARD NF380 FP220270 | 33513 -0520 00 0 35036 NF390 NZT NAC60 ACT F PROGRAM NF390 FP220280 33514 0020 00 0 33521 TRA NF450 * DOES NOT NEED TO RESET IRNF400 FP220290 | 33515 0600 00 0 35036 STZ NAC60 * SET IR =1 ON NF410 FP220300 | 33516 -0500 00 0 33520 CAL *+2 BUILD LAC DICLO,1 NF420 FP220310 | 33517 0074 00 4 11413 TSX PRGMR,4 NF430 FP220320 | 33520 0535 00 1 22176 LAC DICLO,1 NF440 FP220330 33521 -0500 00 0 33523 NF450 CAL *+2 NF450 FP220340 | 33522 0020 00 0 33503 TRA NF310 BUILD CAL 11,1 NF460 FP220350 | 33523 -0500 00 1 00013 CAL 11,1 NF470 FP220360 | 33524 0760 00 0 00000 NF480 CLM ACTR PROGRAM NF480 FP220370 | 33525 0560 00 0 67176 LDQ HEADR+4 GET ACTR VALUE NF490 FP220380 33526 -0763 00 0 00006 LGL 6 * NF500 FP220390 | 33527 0621 00 0 35027 NF510 STA NAC00 * NF510 FP220400 | 33530 -0500 00 0 33532 CAL *+2 BUILD CAL NF520 FP220410 | 33531 0074 00 4 11413 TSX PRGMR,4 * NF530 FP220420 | 33532 -0500 00 0 00000 CAL .. * NF540 FP220430 33533 -0500 00 0 35027 CAL NAC00 BUILD STORAGE NF550 FP220440 | 33534 0074 00 4 11426 TSX STORR,4 * NF560 FP220450 | 33535 0074 00 4 11454 TSX SADDR,4 LINK TO INSTR NF580 FP220460 | 33536 0074 00 4 33310 TSX NE140,4 GET ADDR FOR SLW NF590 FP220470 | 33537 0020 00 0 33506 TRA NF340 * NF600 FP220480 33540 -0500 00 0 67174 NF610 CAL HEADR+2 TYPE PROGRAM NF610 FP220490 | 33541 0771 00 0 00006 ARS 6 NF620 FP220500 | 33542 -0320 00 0 35026 ANA NAB90 NF630 FP220510 | 33543 0020 00 0 33527 TRA NF510 NF640 FP220520 | 33544 -0625 00 0 35125 NF645 STL NAF40 TO ZIGGER NF645 FP220530 33545 -0625 00 0 35036 STL NAC60 NF647 FP220540 | 33546 -0500 00 0 33550 NF650 CAL *+2 SET UP TSX LINKAGE NF650 FP220550 | 33547 0074 00 4 11413 TSX PRGMR,4 * NF660 FP220560 | 33550 0074 00 4 22052 TSX TOFRM,4 * NF670 FP220570 | 33551 -0500 00 2 33652 CAL NAA40+2,2 GET SIZE NF680 FP220580 33552 0560 00 2 33653 LDQ NAA40+3,2 * NF690 FP220590 | 33553 -0763 00 0 00006 LGL 6 * NF700 FP220600 | 33554 -0320 00 0 35021 ANA NAB40 * NF710 FP220610 | 1 LISTING OF 12/01/64 PAGE 453 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | 33555 0602 00 0 07751 SLW B1020 CONVERT TO BINARY NF720 FP220620 | 33556 0074 00 4 07570 TSX B0010,4 * NF730 FP220630 | 33557 0560 00 0 07747 LDQ B1000 * NF750 FP220640 | 33560 -0754 00 0 00000 PXD 0,0 * NF760 FP220650 33561 0220 00 0 35001 DVH NAA50+1 DIVIDE INTO = OF WORDS NF770 FP220660 | 33562 0100 00 0 33566 TZE NF890 * NF780 FP220670 | 33563 0131 00 0 00000 XCA * NF790 FP220680 | 33564 0400 00 0 35000 ADD NAA50 ADD 1 NF800 FP220690 | 33565 0020 00 0 33567 TRA *+2 * NF810 FP220700 33566 0131 00 0 00000 NF890 XCA * NF890 FP220710 | 33567 0621 00 0 33602 STA NG000 SAVE = OF WORDS NF900 FP220720 | 33570 0601 00 0 35027 STO NAC00 * NF910 FP220730 | 33571 0074 00 4 33310 TSX NE140,4 LEFT WD PUT DOWN NF920 FP220740 | 33572 0400 00 0 35027 ADD NAC00 * ADD = OF WORDS NF930 FP220750 33573 0402 00 0 35000 SUB NAA50 * NF935 FP220760 | 33574 0601 00 0 33577 STO NF970 * SAVE RIGHT MOST WORD NF940 FP220770 | 33575 -0500 00 0 33577 CAL NF970 BUILD ADDRESS WORD NF950 FP220780 | 33576 0074 00 4 11413 TSX PRGMR,4 * NF960 FP220790 | 33577 0 00000 0 00000 NF970 PZE .. * NF970 FP220800 33600 -0500 00 0 33602 CAL NG000 BUILD LXA = WDS ,1 NF980 FP220810 | 33601 0074 00 4 11413 TSX PRGMR,4 * NF990 FP220820 | 33602 0774 00 1 00000 NG000 AXT ..,1 * NG000 FP220830 | 33603 -0520 00 0 35125 NZT NAF40 IS THIS A FROM NG005 FP220840 | 33604 0020 00 0 33624 TRA NG130 TO MOVE TO TAPE NG007 FP220850 33605 -0500 00 0 33607 CAL *+2 BUILD LAC CHLOC,4 NG0081FP220860 | 33606 0074 00 4 11413 TSX PRGMR,4 NG0082FP220870 | 33607 0535 00 4 17300 LAC CHLOC,4 NG0083FP220880 | 33610 0020 00 0 14307 TRA BB010 *GET NEXT CARD NG009 FP220890 | 33611 0600 00 0 35125 NG020 STZ NAF40 FROM ZIGGER NG020 FP220900 33612 0020 00 0 33546 TRA NF650 * NG030 FP220910 | 33613 -0500 00 0 33615 NG040 CAL *+2 BUIKD PSUEDO WRITE REF E NG040 FP220920 | 33614 0074 00 4 11413 TSX PRGMR,4 * NG050 FP220930 | 33615 0074 00 4 22321 TSX SAVXR,4 NG060 FP220940 | 33616 -0500 00 0 33620 CAL *+2 * NG070 FP220950 33617 0074 00 4 11413 TSX PRGMR,4 * NG080 FP220960 | 33620 -1 00010 0 16555 FVE OUTPT,0,8 NG090 FP220970 | 33621 -0500 00 0 33623 CAL *+2 RESET I R =1 NG100 FP220980 | 33622 0074 00 4 11413 TSX PRGMR,4 * NG110 FP220990 | 33623 0535 00 1 22174 LAC MRGLO,1 NG120 FP221000 33624 -0500 00 0 67172 NG130 CAL HEADR MOVE INSTR TO TAPE NG130 FP221010 | 33625 0771 00 0 00006 ARS 6 * NG135 FP221020 | 33626 -0320 00 0 10755 ANA BCD30 * NG140 FP221030 | 33627 -0501 00 0 33633 ORA NG175 * NG145 FP221040 | 33630 0074 00 4 11547 TSX M0010,4 * NG150 FP221050 33631 0534 00 2 35011 LXA NAA60,2 NG155 FP221060 | 33632 0020 00 0 33111 TRA NC977 NG160 FP221070 | 33633 -120000270000 NG175 OCT 520000270000 *BEFORE CODE NG175 FP221080 | 33634 -0500 00 0 04622 NG200 CAL CARD+1 IS REC TYPE, FLD = BLANK NG200 FP221090 | 33635 0560 00 0 04623 LDQ CARD+2 NG210 FP221100 33636 -0763 00 0 00030 LGL 24 NG220 FP221110 | 33637 -0340 00 0 35062 LAS NAD30 NG230 FP221120 | 33640 0020 00 0 32546 TRA NA800 NG240 FP221130 | 33641 0020 00 0 32431 TRA NA309 NG250 FP221140 | 33642 0020 00 0 32546 TRA NA800 NG260 FP221150 33643 0020 00 0 14274 NG320 TRA BA968 TO PRI CONTROL AFTER READING THIS R NG320 FP221160 | 1 LISTING OF 12/01/64 PAGE 454 | HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | | 33644 +000077777777 NAA10 OCT 000077777777 NAA10 FP221170 33645 606060606060 NAA20 BCI 1, BLANKS NAA20 FP221180 | 33646 000060606060 NAA22 BCI 1,00 NAA22 FP221190 | 33647 0 00000 0 00000 NAA30 PZE TABLE ENTRY COUNTER NAA30 FP221200 | 33650 NAA40 BSS 600 HORIZ CHANGE REPORT TABLE NAA40 FP221210 | 35000 +000000000001 NAA50 DEC 1,36,12,24,6,30,108,2 NAA50 FP221220 35001 +000000000044 | 35002 +000000000014 | 35003 +000000000030 | 35004 +000000000006 | 35005 +000000000036 35006 +000000000154 | 35007 +000000000002 | 35010 +000000000003 NAA55 DEC 3 NAA55 FP221230 | 35011 0 00000 0 00000 NAA60 PZE SAVE LOCATION OF TABLE ENTRNAA60 FP221240 | 35012 +000000770000 NAA70 OCT 000000770000 NAA70 FP221250 35013 000063466060 NAA80 BCI 1,00TO NAA80 FP221260 | 35014 000026514644 NAA90 BCI 1,00FROM NAA90 FP221270 | 35015 -370000000000 NAB00 OCT 770000000000 NAB00 FP221280 | 35016 260000000000 NAB10 BCI 1,F00000 NAB10 FP221290 | 35017 +007777000000 NAB20 OCT 007777000000 NAB20 FP221300 35020 000101000000 NAB30 BCI 1,011000 NAB30 FP221310 | 35021 +000000777777 NAB40 OCT 000000777777 NAB40 FP221320 | 35022 +000000777700 NAB50 OCT 000000777700 NAB50 FP221330 | 35023 0 00000 0 00000 NAB60 PZE SAVE BIT NAB60 FP221340 | 35024 0 00000 0 00000 NAB70 PZE SAVE LNE NAB70 FP221350 35025 +000000000001 NAB80 DEC 1 CHANGE RECORD WORD INDICATONAB80 FP221360 | 35026 +000000007777 NAB90 OCT 000000007777 NAB90 FP221370 | 35027 0 00000 0 00000 NAC00 PZE TEMP STOR NAC00 FP221380 | 35030 0 00000 0 00000 NAC05 PZE TEMP STORAGE NAC05 FP221390 | 35031 0 00000 0 00000 NAC10 PZE WORK BIT NAC10 FP221400 35032 0 00000 0 00000 NAC20 PZE WORK LEN NAC20 FP221410 | 35033 0 00000 0 00000 NAC30 PZE WORK WORD NAC30 FP221420 | 35034 0 00000 0 00000 NAC40 PZE TO-FROM ZIGGER 0-YES NAC40 FP221430 | 35035 0 00000 0 00000 NAC50 PZE FOR MAXIMUM SIZE THIS RECORNAC50 FP221440 | 35036 0 00000 0 27721 NAC60 PZE 77777 IR =1 TO KICDL 0-YES NAC60 FP221450 35037 NAC70 BSS 14 EXECUTIVE RECORD ASSEMBLY ANAC70 FP221460 | 35055 -377777000000 NAC80 OCT 777777000000 NAC80 FP221470 | 35056 606060000000 NAC90 BCI 1, 000 NAC90 FP221480 | 35057 010100000001 NAD00 BCI 1,110001 NAD00 FP221490 | 35060 020000000000 NAD10 BCI 1,200000 NAD10 FP221500 35061 000001030000 NAD20 BCI 1,001300 NAD20 FP221510 | 35062 606060606060 NAD30 BCI 8, NAD30 FP221520 | 35063 606060606060 | 35064 606060606060 | 35065 606060606060 35066 606060606060 | 35067 606060606060 | 35070 606060606060 | 35071 606060606060 | 35072 606060606060 NAD40 BCI 2, NAD40 FP221530 35073 606060606060 | 35074 -120000000000 NAD41 OCT 520000000000 NAD41 FP221540 | 35075 -000000000000 NAD42 OCT 400000000000 NAD42 FP221550 | 35076 0 00000 0 00000 NAD43 PZE 0 STORAGE FOR REPT RT NAD43 FP221560 | 1 LISTING OF 12/01/64 PAGE 455 HORRPT (9PAC4B). HORIZONTAL REPORT FUNCTION | | 35077 000021646330 NAD50 BCI 1,00AUTH NAD50 FP221570 | 35100 000024256223 NAD60 BCI 1,00DESC NAD60 FP221580 | 35101 000026432413 NAD70 BCI 1,00FLD= NAD70 FP221590 35102 000021236326 NAD80 BCI 1,00ACTF NAD80 FP221600 | 35103 000021236351 NAD90 BCI 1,00ACTR NAD90 FP221610 | 35104 000063704725 NAE00 BCI 1,00TYPE NAE00 FP221620 | 35105 +000000007700 NAE10 OCT 000000007700 NAE10 FP221630 | 35106 0 00000 1 00000 NAE20 PZE 0,1 NAE20 FP221640 35107 0 00000 2 00000 NAE30 PZE 0,2 NAE30 FP221650 | 35110 -377777770000 NAE40 OCT 777777770000 NAE40 FP221660 | 35111 000000606060 NAE45 BCI 1,000 TEST FOR BLANK SIZE NAE45 FP221670 | 35112 0 00000 0 00000 NAE50 PZE 0-SF SOURCE FILE DATA ZIGGENAE50 FP221680 | 35113 0 00000 0 00000 NAE60 PZE 0-CUR MASTER SF ZIGGER NAE60 FP221690 35114 000000000001 NAE70 BCI 2,000001200000 NAE70 FP221700 | 35115 020000000000 | 35116 060000000000 NAE80 BCI 1,600000 NAE80 FP221710 | 35117 000000000100 NAE90 BCI 2,000010800000 NAE90 FP221720 | 35120 100000000000 35121 000000000002 NAF00 BCI 2,000002400000 NAF00 FP221730 | 35122 040000000000 | 35123 0 00000 0 00000 NAF20 PZE SAVE IR =1 - REL- NAF20 FP221740 | 35124 0 00000 0 00000 NAF30 PZE REL LOC OF TRA BCD NAF30 FP221750 | 35125 0 00000 0 27721 NAF40 PZE 77777 IS THIS A FROM ACTION 0 ISNAF40 FP221760 35126 000000000204 NAF50 BCI 3,000024000012000030 * NAF50 FP221770 | 35127 000000000102 | 35130 000000000300 | 35131 0 00000 0 00000 NAF80 PZE NAF80 FP221780 | 35214 HORPT BES 50 FP221790 00000 TCD 0 FP221800 | *NEXT SERIALS START AT FP400000 FP221810 | 1 LISTING OF 12/01/64 PAGE 456 | CLNPAS. PARAMETER CLEANUP | * FP221840 | * FP221850 | 12660 ORG MAIN1 FOR CLNPAS-IN/OUT FP221870 | 12660 114721230303 BCI 1,9PAC33 CLNPAS FP221880 | 12661 234345472162 BCI 1,CLNPAS FP221890 00100 ORG SYSTRA FP221900 | 00100 0020 00 0 12662 TRA VH001 FP221910 | * FP221920 | * FP221930 | * FP221940 * GENERATE OPEN VERTICAL AND SUMMARY ENTRIES VH010 FP221950 | * FP221960 | * FP221970 | 12662 ORG MAIN1+2 FP221980 | 12662 -0534 00 4 04406 VH001 LXD FPRGSW,4 TEST RUN-IN VH001 FP221990 12663 3 00000 4 14100 TXH FRG100,4,0 FROM RG WHEN IN COMB VH0013FP222000 | 12664 0074 00 4 12100 TSX MZ500,4 CLOSE CHG DICT VH0016FP222010 | 12665 0520 00 0 04660 ZET PCHIND VH002 FP222020 | 12666 0074 00 4 13304 TSX MX130,4 YES, PUNCH DICT VH003 FP222030 | 12667 0774 00 2 00113 VH010 AXT VTZE,2 VH010 FP222040 12670 -0520 00 2 67346 NZT VNTRY+VTZE,2 VH020 FP222050 | 12671 0020 00 0 12702 TRA VH210 VH030 FP222060 | 12672 -0500 00 2 67346 CAL VNTRY+VTZE,2 STL VH040 FP222070 | 12673 -0320 00 0 13472 ANA VHA10 ADDR MASK VH050 FP222080 | 12674 -0501 00 0 12676 ORA *+2 VH060 FP222090 12675 0074 00 4 11413 TSX PRGMR,4 VH070 FP222100 | 12676 -0625 00 0 00000 STL 0 VH080 FP222110 | 12677 2 00001 2 12670 TIX VH010+1,2,1 VH090 FP222120 | 12700 0074 00 4 10507 TSX T0010,4 VH095 FP222130 | 12701 -1 11053 4 00000 STR 0,4,4651 NO ZERO AT END OF VNTRY TABLE VH100 FP222140 12702 -0500 00 0 13473 VH210 CAL VHA20 DUMP OBJ PGM VH210 FP222150 | 12703 0074 00 4 11547 TSX M0010,4 VH220 FP222160 | * FP222170 | * FP222180 | * GENERATE MERG LOW TO SF TEST VH229 FP222190 * GEN ML TO SF TESTS VH229 FP222200 | * FP222210 | 12704 -0500 00 0 12706 CAL *+2 VH224 FP222220 | 12705 0074 00 4 11413 TSX PRGMR,4 VH225 FP222230 | 12706 0535 00 2 17301 LAC SFLOC,2 VH226 FP222240 12707 -0500 00 0 12711 CAL *+2 VH227 FP222250 | 12710 0074 00 4 11413 TSX PRGMR,4 VH2280FP222260 | 12711 0535 00 1 22174 LAC MRGLO,1 VH2280FP222270 | 12712 -0500 00 0 12714 CAL *+2 LXA VH230 FP222280 | 12713 0074 00 4 11413 TSX PRGMR,4 VH240 FP222290 12714 0534 00 4 22175 LXA MLCUR,4 VH250 FP222300 | 12715 -0500 00 0 11343 CAL SFLEN TXI VH260 FP222310 | 12716 0767 00 0 00022 ALS 18 VH270 FP222320 | 12717 -0501 00 0 12721 ORA *+2 VH280 FP222330 | 12720 0074 00 4 11413 TSX PRGMR,4 VH290 FP222340 12721 1 00000 4 00000 TXI 0,4,0 VH300 FP222350 | 12722 -0500 00 0 13474 CAL VHA30 U VH310 FP222360 | 12723 0074 00 4 11465 TSX PADDR,4 VH320 FP222370 | 12724 -0500 00 0 12726 CAL *+2 SXA VH330 FP222380 | 12725 0074 00 4 11413 TSX PRGMR,4 VH340 FP222390 1 LISTING OF 12/01/64 PAGE 457 | CLNPAS. PARAMETER CLEANUP | | 12726 0634 00 4 00000 SXA 0,4 VH350 FP222400 | 12727 -0500 00 0 13501 CAL VHA80 VH360 FP222410 12730 0074 00 4 11465 TSX PADDR,4 VH370 FP222420 | 12731 -0500 00 0 11343 CAL SFLEN AXT VH380 FP222430 | 12732 -0501 00 0 12734 ORA *+2 VH390 FP222440 | 12733 0074 00 4 11413 TSX PRGMR,4 VH400 FP222450 | 12734 0774 00 4 00000 AXT 0,4 VH410 FP222460 12735 -0500 00 0 12737 CAL *+2 VH420 FP222470 | 12736 0074 00 4 11413 TSX PRGMR,4 CAL VH430 FP222480 | 12737 -0500 00 4 00000 CAL 0,4 VH440 FP222490 | 12740 -0500 00 0 11342 CAL SFCUR VH450 FP222500 | 12741 0400 00 0 11343 ADD SFLEN VH460 FP222510 12742 -0501 00 0 12744 ORA *+2 LAS VH470 FP222520 | 12743 0074 00 4 11413 TSX PRGMR,4 VH480 FP222530 | 12744 -0340 00 4 00000 LAS 0,4 VH490 FP222540 | 12745 -0500 00 0 12747 CAL *+2 TRA-HIGH VH500 FP222550 | 12746 0074 00 4 11413 TSX PRGMR,4 VH510 FP222560 12747 0020 00 0 00000 TRA 0 VH520 FP222570 | 12750 -0500 00 0 13475 CAL VHA40 O VH530 FP222580 | 12751 0074 00 4 11465 TSX PADDR,4 VH540 FP222590 | 12752 -0500 00 0 12754 CAL *+2 TRA-EQUAL VH550 FP222600 | 12753 0074 00 4 11413 TSX PRGMR,4 VH560 FP222610 12754 0020 00 0 00000 TRA 0 VH570 FP222620 | 12755 -0500 00 0 13476 CAL VHA50 J VH580 FP222630 | 12756 0074 00 4 11465 TSX PADDR,4 VH590 FP222640 | 12757 -0500 00 0 12761 CAL *+2 TRA-LOW VH600 FP222650 | 12760 0074 00 4 11413 TSX PRGMR,4 VH610 FP222660 12761 0020 00 0 00000 TRA 0 VH620 FP222670 | 12762 -0500 00 0 13477 CAL VHA60 15 VH630 FP222680 | 12763 0074 00 4 11465 TSX PADDR,4 VH640 FP222690 | 12764 -0500 00 0 12766 CAL *+2 STZ-HIGH VH650 FP222700 | 12765 0074 00 4 11413 TSX PRGMR,4 VH660 FP222710 12766 0600 00 0 22203 STZ HIGH VH670 FP222720 | 12767 -0500 00 0 12771 CAL *+2 TRA VH680 FP222730 | 12770 0074 00 4 11413 TSX PRGMR,4 VH690 FP222740 | 12771 0020 00 0 00000 TRA 0 VH700 FP222750 | 12772 -0500 00 0 13475 CAL VHA40 3 VH710 FP222760 12773 0074 00 4 11477 TSX GADDR,4 VH720 FP222770 | 12774 -0500 00 0 12776 CAL *+2 TIX VH730 FP222780 | 12775 0074 00 4 11413 TSX PRGMR,4 VH740 FP222790 | 12776 2 00001 4 00000 TIX 0,4,1 VH750 FP222800 | 12777 0502 00 0 13500 CLS VHA70 7 VH760 FP222810 13000 0074 00 4 11465 TSX PADDR,4 VH770 FP222820 | 13001 -0500 00 0 13003 CAL *+2 STL-HIGH VH780 FP222830 | 13002 0074 00 4 11413 TSX PRGMR,4 VH790 FP222840 | 13003 -0625 00 0 22203 STL HIGH VH800 FP222850 | 13004 -0500 00 0 13006 CAL *+2 STZ-EQUAL VH810 FP222860 13005 0074 00 4 11413 TSX PRGMR,4 VH820 FP222870 | 13006 0600 00 0 22204 STZ EQUAL VH830 FP222880 | 13007 -0500 00 0 11343 CAL SFLEN AXT VH840 FP222890 | 13010 -0501 00 0 13012 ORA *+2 VH850 FP222900 | 13011 0074 00 4 11413 TSX PRGMR,4 VH860 FP222910 13012 0774 00 4 00000 AXT 0,4 VH870 FP222920 | 13013 -0500 00 0 13015 CAL *+2 CLM VH880 FP222930 | 13014 0074 00 4 11413 TSX PRGMR,4 VH890 FP222940 | 1 LISTING OF 12/01/64 PAGE 458 | CLNPAS. PARAMETER CLEANUP | 13015 -0500 00 0 00000 CAL 0 VH900 FP222950 | 13016 -0500 00 0 11024 CAL BCD77 VH910 FP222960 | 13017 0074 00 4 11426 TSX STORR,4 VH920 FP222970 | 13020 0074 00 4 11454 TSX SADDR,4 VH930 FP222980 13021 -0500 00 0 11342 CAL SFCUR LAS VH940 FP222990 | 13022 0400 00 0 11343 ADD SFLEN VH950 FP223000 | 13023 -0501 00 0 13025 ORA *+2 VH960 FP223010 | 13024 0074 00 4 11413 TSX PRGMR,4 VH970 FP223020 | 13025 -0340 00 4 00000 LAS 0,4 VH980 FP223030 13026 -0500 00 0 13030 CAL *+2 TRA-HIGH VH990 FP223040 | 13027 0074 00 4 11413 TSX PRGMR,4 VI010 FP223050 | 13030 0020 00 0 00000 TRA 0 VI020 FP223060 | 13031 -0500 00 0 13475 CAL VHA40 3 VI030 FP223070 | 13032 0074 00 4 11477 TSX GADDR,4 VI040 FP223080 13033 -0500 00 0 13035 CAL *+2 TRA-EQUAL VI050 FP223090 | 13034 0074 00 4 11413 TSX PRGMR,4 VI060 FP223100 | 13035 0020 00 0 00000 TRA 0 VI070 FP223110 | 13036 -0500 00 0 13501 CAL VHA80 2 VI080 FP223120 | 13037 0074 00 4 11465 TSX PADDR,4 VI090 FP223130 13040 -0500 00 0 13042 CAL *+2 HPR-LOW VI100 FP223140 | 13041 0074 00 4 11413 TSX PRGMR,4 VI110 FP223150 | 13042 0074 00 4 22436 TSX IMPOS,4 VI120 FP223160 | 13043 -0500 00 0 13045 CAL *+2 TIX VI130 FP223170 | 13044 0074 00 4 11413 TSX PRGMR,4 VI140 FP223180 13045 2 00001 4 00000 TIX 0,4,1 VI150 FP223190 | 13046 0502 00 0 13476 CLS VHA50 4 VI160 FP223200 | 13047 0074 00 4 11465 TSX PADDR,4 VI170 FP223210 | 13050 -0500 00 0 13052 CAL *+2 TRA VI180 FP223220 | 13051 0074 00 4 11413 TSX PRGMR,4 VI190 FP223230 13052 0020 00 0 00000 TRA 0 VI200 FP223240 | 13053 -0500 00 0 13476 CAL VHA50 4 VI210 FP223250 | 13054 0074 00 4 11477 TSX GADDR,4 VI220 FP223260 | 13055 -0500 00 0 13057 CAL *+2 STL-HIGH VI230 FP223270 | 13056 0074 00 4 11413 TSX PRGMR,4 VI240 FP223280 13057 -0625 00 0 22203 STL HIGH VI250 FP223290 | 13060 -0500 00 0 13062 CAL *+2 STL-EQUAL VI260 FP223300 | 13061 0074 00 4 11413 TSX PRGMR,4 VI270 FP223310 | 13062 -0625 00 0 22204 STL EQUAL VI280 FP223320 | 13063 0774 00 2 00113 AXT VTZE,2 VI290 FP223330 13064 -0520 00 2 67346 VI300 NZT VNTRY+VTZE,2 VI300 FP223340 | 13065 0020 00 0 13076 TRA VI390 OUT VI310 FP223350 | 13066 -0500 00 2 67346 CAL VNTRY+VTZE,2 VI320 FP223360 | 13067 0621 00 0 13072 STA *+3 VI330 FP223370 | 13070 -0500 00 0 13072 CAL *+2 STZ-VERTICAL ENTRY SW VI340 FP223380 13071 0074 00 4 11413 TSX PRGMR,4 VI350 FP223390 | 13072 0600 00 0 00000 STZ 0 VI360 FP223400 | 13073 2 00001 2 13064 TIX VI300,2,1 VI370 FP223410 | 13074 0074 00 4 10507 TSX T0010,4 VI375 FP223420 | 13075 -1 11054 4 00000 STR 0,4,4652 NO ZERO AT END OF VNTRY TABLE VI380 FP223430 13076 -0500 00 0 13100 VI390 CAL *+2 TRA VI390 FP223440 | 13077 0074 00 4 11413 TSX PRGMR,4 VI400 FP223450 | 13100 0020 00 0 00000 TRA 0 VI410 FP223460 | 13101 -0500 00 0 13475 CAL VHA40 3 VI420 FP223470 | 13102 0074 00 4 11477 TSX GADDR,4 VI430 FP223480 13103 -0500 00 0 13502 CAL VHA90 MASK VI440 FP223490 | 1 LISTING OF 12/01/64 PAGE 459 | CLNPAS. PARAMETER CLEANUP | | 13104 0074 00 4 11547 TSX M0010,4 VI450 FP223500 * FP223510 | * FP223520 | * FP223530 | * GENERATE END OF JOB RTN VI459 FP223540 | * FP223550 13105 -0500 00 0 13107 CAL *+2 TRA-EOJ VI460 FP223560 | 13106 0074 00 4 11413 TSX PRGMR,4 VI470 FP223570 | 13107 0020 00 0 17005 TRA EOJOB VI480 FP223580 | 13110 -0500 00 0 13503 CAL VHB10 MASK VI490 FP223590 | 13111 0074 00 4 11547 TSX M0010,4 VI500 FP223600 * FP223610 | * FP223620 | * FP223630 | * PASS CLNUP INSERT ROUTINES VI519 FP223640 | * FP223650 13112 -0500 00 0 13114 CAL *+2 TSX-BKSP VI510 FP223660 | 13113 0074 00 4 11413 TSX PRGMR,4 VI520 FP223670 | 13114 0074 00 4 22650 TSX Y6510,4 VI530 FP223680 | 13115 -0500 00 0 13117 CAL *+2 STZ-ESWCH VI540 FP223690 | 13116 0074 00 4 11413 TSX PRGMR,4 VI550 FP223700 13117 0600 00 0 22201 STZ ESWCH VI560 FP223710 | 13120 -0500 00 0 13122 CAL *+2 STZ-DSWCH VI570 FP223720 | 13121 0074 00 4 11413 TSX PRGMR,4 VI580 FP223730 | 13122 0600 00 0 22202 STZ DSWCH VI590 FP223740 | 13123 -0500 00 0 13125 CAL *+2 TRA-ESCAPE VI830 FP223750 13124 0074 00 4 11413 TSX PRGMR,4 VI840 FP223760 | 13125 0020 00 0 00000 TRA 0 VI850 FP223770 | 13126 -0500 00 0 13473 CAL VHA20 VI851 FP223780 | 13127 0771 00 0 00014 ARS 12 VI852 FP223790 | 13130 0074 00 4 11507 TSX YADDR,4 VI853 FP223800 13131 -0500 00 0 13504 CAL VHB20 VI860 FP223810 | 13132 0074 00 4 11547 TSX M0010,4 VI861 FP223820 | 13133 -0500 00 0 04401 CAL ADRES VI910 FP223830 | 13134 -0320 00 0 13472 ANA VHA10 VI920 FP223840 | 13135 0402 00 0 13511 SUB VIA01 VI930 FP223850 13136 0767 00 0 00022 ALS 18 VI940 FP223860 | 13137 0622 00 0 73007 STD SORTT+7 VI950 FP223870 | 13140 0020 00 0 13161 TRA VI961-1 FP223880 | * FP223890 | 13141 0774 00 1 00013 VI951 AXT 11,1 VI951 FP223900 13142 -0500 00 1 12507 VI952 CAL AAG98+11,1 VI952 FP223910 | 13143 0100 00 0 13201 TZE VI974 VI953 FP223920 | 13144 0767 00 0 00030 ALS 24 VI9531FP223930 | 13145 0774 00 2 00014 AXT 12,2 VI9532FP223940 | 13146 0074 00 4 11413 TSX PRGMR,4 VI954 FP223950 13147 0 00000 0 00000 PZE 0 VI9541FP223960 | 13150 0760 00 0 00000 CLM VI9542FP223970 | 13151 2 00001 2 13146 TIX *-3,2,1 VI9543FP223980 | 13152 -0500 00 0 72600 CAL CTTBL-7 VU955 FP223990 | 13153 0400 00 0 13512 ADD VIA03 VI9551FP224000 13154 -0501 00 0 11051 ORA TAG2 VI9552FP224010 | 13155 0602 00 0 72600 SLW CTTBL-7 VI956 FP224020 | 13156 2 00001 1 13142 TIX VI952,1,1 VI957 FP224030 | 13157 0074 00 4 10507 TSX T0010,4 VI978 FP224040 | 1 LISTING OF 12/01/64 PAGE 460 CLNPAS. PARAMETER CLEANUP | | 13160 -1 07773 4 00000 STR 0,4,4091 EXCEEDED DELETED RT TABLE SIZE VI959 FP224050 | * BUILD SOURCE FILE COUNTING TABLES FP224060 | * FP224070 13161 0774 00 1 00145 AXT 101,1 VI960 FP224080 | 13162 -0500 00 1 71545 VI961 CAL AAG84+101,1 VI961 FP224090 | 13163 0100 00 0 13141 TZE VI951 FP224100 | 13164 0767 00 0 00030 ALS 24 VI9625FP224110 | 13165 0774 00 2 00014 AXT 12,2 VI9630FP224120 13166 0074 00 4 11413 TSX PRGMR,4 VI964 FP224130 | 13167 -250700070000 VI965 OCT 650700070000 LOC MASK SF COUNT TABLES VI965 FP224140 | 13170 0760 00 0 00000 CLM VI966 FP224150 | 13171 2 00001 2 13166 TIX *-3,2,1 VI967 FP224160 | 13172 -0500 00 0 72600 CAL CTTBL-7 VI968 FP224170 13173 0400 00 0 13512 ADD VIA03 VI969 FP224180 | 13174 -0501 00 0 11051 ORA TAG2 VI970 FP224190 | 13175 0602 00 0 72600 SLW CTTBL-7 VI971 FP224200 | 13176 2 00002 1 13162 TIX VI961,1,2 VI972 FP224210 | 13177 0074 00 4 10507 TSX T0010,4 VI973 FP224220 13200 -1 07772 4 00000 STR 0,4,4090 EXCEED RT TABLE PREV CHECKED VI973 FP224230 | 13201 -0500 00 0 13167 VI974 CAL VI965 VI974 FP224240 | 13202 0074 00 4 11547 TSX M0010,4 VI975 FP224250 | * FP224260 | * BUILD B8 COUNTING TABLES FP224270 * FP224280 | 13203 0534 00 4 11755 LXA M0930,4 VI9750FP224290 | 13204 1 73000 4 13205 TXI *+1,4,SORTT VI9751FP224300 | 13205 0634 00 4 13254 SXA VI990,4 VI9752FP224310 | 13206 0634 00 4 13264 SXA VI991,4 VI9753FP224320 13207 0534 00 4 11755 LXA M0930,4 VI9754FP224330 | 13210 0634 00 4 13253 SXA VI989,4 VI9755FP224340 | 13211 0774 00 1 00113 VI975 AXT OTZE,1 VI9755FP224350 | 13212 0774 00 2 00113 VI976 AXT VTZE,2 VI9760FP224360 | 13213 -0500 00 1 67461 CAL ONTRY+OTZE,1 VI9770FP224370 13214 -0100 00 0 13216 TNZ *+2 VI9780FP224380 | 13215 0760 00 0 00006 COM VI9790FP224390 | 13216 0622 00 0 13505 STD VHC01 VI9800FP224400 | 13217 -0500 00 2 67346 CAL VNTRY+VTZE,2 VI9805FP224410 | 13220 -0100 00 0 13222 TNZ *+2 VI9810FP224420 13221 0760 00 0 00006 COM VI9815FP224430 | 13222 0622 00 0 13506 STD VHC02 VI9820FP224440 | 13223 -0500 00 0 13505 CAL VHC01 VI9825FP224450 | 13224 -0340 00 0 13506 LAS VHC02 VI9830FP224460 | 13225 0020 00 0 13234 TRA VI986 VI9835FP224470 13226 0020 00 0 13301 TRA VI993 OUT VI9840FP224480 | 13227 2 00001 1 13232 TIX *+3,1,1 VI9845FP224490 | 13230 0074 00 4 10507 TSX T0010,4 VI9849FP224500 | 13231 -1 10004 4 00000 STR 0,4,4100 EXCEED OTHER ENTRY TBL PREV CHECKED VI9850FP224510 | 13232 0634 00 1 13211 SXA VI975,1 VI9853FP224520 13233 0020 00 0 13241 TRA VI987 VI9857FP224530 | 13234 2 00001 2 13237 VI986 TIX *+3,2,1 FP224540 | 13235 0074 00 4 10507 TSX T0010,4 VI9859FP224550 | 13236 -1 10016 4 00000 STR 0,4,4110 EXCEED VER ENTRY TBL PREV CHECKED VI9863FP224560 | 13237 -0500 00 0 13506 CAL VHC02 VI9864FP224570 13240 0634 00 2 13212 SXA VI976,2 VI9867FP224580 | 13241 0767 00 0 00006 VI987 ALS 6 VI9870FP224590 | 1 LISTING OF 12/01/64 PAGE 461 | CLNPAS. PARAMETER CLEANUP | 13242 0602 00 0 13244 SLW VI988 VI9873FP224600 | 13243 0074 00 4 11413 TSX PRGMR,4 VI9877FP224610 | 13244 0 00000 0 00000 VI988 PZE 0 SAVE PRIORITY NUMBER VI9880FP224620 | 13245 -0500 00 0 13244 CAL *-1 VI9881FP224630 | 13246 -0765 00 0 00036 LGR 30 VI9882FP224640 13247 -0773 00 0 00002 RQL 2 VI9883FP224650 | 13250 -0763 00 0 00026 LGL 22 VI9884FP224660 | 13251 -0501 00 0 13507 ORA VHC03 MATCH FUNCTION MASK VI9885FP224670 | 13252 0602 00 0 13244 SLW VI988 VI9886FP224680 | 13253 0774 00 4 00000 VI989 AXT ..,4 VI9890FP224690 13254 -0500 00 4 00000 VI990 CAL ..,4 VI990 FP224700 | 13255 -0320 00 0 13510 ANA VHC04 VI9901FP224710 | 13256 -0340 00 0 13244 LAS VI988 VI9902FP224720 | 13257 0020 00 0 13261 TRA *+2 VI9903FP224730 | 13260 0020 00 0 13264 TRA *+4 VI9904FP224740 13261 2 00004 4 13254 TIX VI990,4,4 VI9905FP224750 | 13262 0760 00 0 00000 CLM VI9906FP224760 | 13263 0020 00 0 13267 TRA *+4 VI9907FP224770 | 13264 -0500 00 4 00000 VI991 CAL ..,4 VI9910FP224780 | 13265 -0320 00 0 10764 ANA BCD37 VI9911FP224790 13266 0771 00 0 00032 ARS 26 VI9912FP224800 | 13267 0774 00 2 00007 AXT 7,2 VI9913FP224810 | 13270 0074 00 4 11413 TSX PRGMR,4 VI9914FP224820 | 13271 -251000070000 VI992 OCT 651000070000 VI9920FP224830 | 13272 0760 00 0 00000 CLM VI9921FP224840 13273 2 00001 2 13270 TIX *-3,2,1 VI9922FP224850 | 13274 -0500 00 0 72577 CAL CTTBL-8 VI9923FP224860 | 13275 0400 00 0 13512 ADD VIA03 VI9924FP224870 | 13276 -0501 00 0 11051 ORA TAG2 VI9925FP224880 | 13277 0602 00 0 72577 SLW CTTBL-8 VI9926FP224890 13300 0020 00 0 13211 TRA VI975 VI9927FP224900 | 13301 -0500 00 0 13271 VI993 CAL VI992 VI9930FP224910 | 13302 0074 00 4 11547 TSX M0010,4 VI9931FP224920 | 13303 0020 00 0 13576 TRA CLNPS+1 TO IN OUT GENERATOR VI9932FP224930 | 1 LISTING OF 12/01/64 PAGE 462 CLNPAS. PARAMETER CLEANUP | | * FP224950 | *THE FOLLOWING ROUTINES ARE TO PUNCH OUTPUT DICTIONARIES. FP224960 | * THE FORMAT IS AS FOLLOWS FP224970 * FP224980 | * WORD 1 000517000000 FP224990 | * WORD2 CHECKSUM FP225000 | * WORD3 ADDRESS IS FILE NUMBER, SIGN IS MINUS FP225010 | * WORDS 4-17 DICTIONARY RECORD FP225020 * WORDS 18-24 ZEROS FP225030 | * WORDS 25-27 SERIALS FP225040 | * FP225050 | *A SPECIAL CARD IS PUNCHED TO SIGNAL THE LOADER TO TAPE DUPLICATE THE FP225060 | * DICTIONARY FROM AN INPUT FILE. FP225070 * ITS FORMAT IS FP225080 | * FP225090 | * WORD 1 000501000000 FP225100 | * WORD 2 CHECKSUM FP225110 | * WORD 3 DECREMENT IS CODE 4 FP225120 * WORD 3, BITS 24-29 FROM FILE NUMBER FP225130 | * WORD 3, BITS 30-25 TO FILE NUMBER FP225140 | * FP225150 | * FP225160 | 13304 0634 00 1 13335 MX130 SXA MX137,1 FP225170 13305 0634 00 4 13336 SXA MX137+1,4 FP225180 | 13306 0774 00 1 00007 AXT 7,1 FOR MASTER FILE FP225190 | 13307 -0520 00 0 11412 NZT NEWSW FP225200 | 13310 0020 00 0 13315 TRA MX132 FP225210 | 13311 0520 00 0 04707 ZET NOSFD FP225220 13312 0020 00 0 13321 TRA MX134 FP225230 | 13313 0074 00 4 13416 TSX MX150,4 IF NEW, AND DICT REQUESTED FP225240 | 13314 0020 00 0 13321 TRA MX134 --WRITE MASTER FILE DICT FP225250 | 13315 0520 00 0 04707 MX132 ZET NOSFD FP225260 | 13316 0020 00 0 13321 TRA MX134 FP225270 13317 -0500 00 0 13362 CAL MYA20 IF NOT NEW, AND DICT REQUESTED FP225280 | 13320 0074 00 4 13340 TSX MX138,4 --WRITE TAPE DUP CODE FP225290 | * FP225300 | * FP225310 | * FP225320 13321 0774 00 1 00010 MX134 AXT 8,1 FOR CHANGE AND ERROR FILE FP225330 | 13322 0520 00 0 04710 ZET NOCHD FP225340 | 13323 0020 00 0 13325 TRA MX136 FP225350 | 13324 0074 00 4 13416 TSX MX150,4 IF DICT REQ--WRITE FP225360 | * FP225370 * FP225380 | 13325 -0520 00 0 04406 MX136 NZT FPRGSW FP225390 | 13326 0020 00 0 13331 TRA *+3 FP225400 | 13327 0534 00 4 04410 LXA RGSMTP,4 FP225410 | 13330 3 00000 4 13335 TXH MX137,4,0 SKIP *END CARD FP225420 13331 0074 00 4 05255 TSX RD(WR),4 WRITE *END CARD FP225430 | 13332 -0 13365 0 00026 FOR 22,,MYA23 FP225440 | 13333 0020 00 0 13335 TRA *+2 FP225450 | 13334 0074 00 4 05526 TSX EOTSW,4 FP225460 | 13335 0774 00 1 00000 MX137 AXT **,1 FP225470 13336 0774 00 4 00000 AXT **,4 FP225480 | 13337 0020 00 4 00001 TRA 1,4 FP225490 | 1 LISTING OF 12/01/64 PAGE 463 | CLNPAS. PARAMETER CLEANUP | * FP225500 | *SUBROUTINE TO PUNCH CARDS TO WRITE SPEC CARD TO CAUSE TAPE DUP FP225510 | * DICTIONARY FROM MASTER INPUT FP225520 | * FP225530 | * FP225540 13340 0634 00 4 13352 MX138 SXA MX139,4 FP225550 | 13341 0602 00 0 13356 SLW MYA12 FP225560 | 13342 0634 00 1 13356 SXA MYA12,1 FP225570 | 13343 -0500 00 0 13356 CAL MYA12 FP225580 | 13344 0361 00 0 13354 ACL MYA10 FP225590 13345 0602 00 0 13355 SLW MYA11 FP225600 | 13346 0074 00 4 05255 TSX RD(WR),4 FP225610 | 13347 -0 13357 0 00026 FOR 22,,MYA13 FP225620 | 13350 0020 00 0 13352 TRA *+2 FP225630 | 13351 0074 00 4 05526 TSX EOTSW,4 FP225640 13352 0774 00 4 00000 MX139 AXT **,4 FP225650 | 13353 0020 00 4 00001 TRA 1,4 FP225660 | * FP225670 | * FP225680 | 13354 +000501000000 MYA10 OCT 000501000000 FP225690 13355 0 00000 0 00000 MYA11 PZE 0 CHECKSUM FP225700 | 13356 0 00000 0 00000 MYA12 PZE 0 CODE WORD FP225710 | 13357 -0 00003 0 13354 MYA13 IOCP MYA10,,3 RECORD FP225720 | 13360 -0 00025 0 13370 IOCP MYA25,,21 ZEROS FP225730 | 13361 -1 00003 0 06553 IOCT KME70,,3 SERIAL FP225740 * FP225750 | * FP225760 | 13362 +000004000000 MYA20 OCT 000004000000 FP225770 | 13363 +000500000000 MYA22 OCT 000500000000 FP225780 | 13364 542545246060 BCI 1,*END FP225790 13365 -0 00002 0 13363 MYA23 IOCP MYA22,,2 FP225800 | 13366 -0 00026 0 13370 IOCP MYA25,,22 FP225810 | 13367 -1 00003 0 06553 IOCT KME70,,3 FP225820 | 13370 DUP 1,22 FP225830 | 13370 0 00000 0 00000 MYA25 PZE 0 FP225840 13371 0 00000 0 00000 | 13372 0 00000 0 00000 | 13373 0 00000 0 00000 | 13374 0 00000 0 00000 | 13375 0 00000 0 00000 13376 0 00000 0 00000 | 13377 0 00000 0 00000 | 13400 0 00000 0 00000 | 13401 0 00000 0 00000 | 13402 0 00000 0 00000 13403 0 00000 0 00000 | 13404 0 00000 0 00000 | 13405 0 00000 0 00000 | 13406 0 00000 0 00000 | 13407 0 00000 0 00000 13410 0 00000 0 00000 | 13411 0 00000 0 00000 | 13412 0 00000 0 00000 | 13413 0 00000 0 00000 | 13414 0 00000 0 00000 1 LISTING OF 12/01/64 PAGE 464 | CLNPAS. PARAMETER CLEANUP | | 13415 0 00000 0 00000 | * FP225850 *THIS ROUTINE WRITES BINARY CARD IMAGES OF DICTIONARY RECORDS FP225860 | * FOR SUBSEQUENT PUNCHING. FP225870 | * FP225880 | *THE CALLING SEQUENCE IS FP225890 | * FP225900 * AXT FILE NUMBER,1 FP225910 | * TSX MX150,4 FP225920 | * RETURN FP225930 | * FP225940 | * FP225950 *THE FORMAT IS AS FOLLOWS FP225960 | * FP225970 | * WD1 000517000000 FP225980 | * WD2 CHECKSUM FP225990 | * WD3 4000030000FN FILE NUMBER FP226000 * WD4-17 DICTIONARY RECORD FP226010 | * WD18-24 ZEROS FP226020 | * WD25-27 SERIALS FP226030 | * FP226040 | * FP226050 13416 0634 00 4 13427 MX150 SXA MX156,4 FP226060 | 13417 0634 00 1 13423 SXA MX152+1,1 FP226070 | 13420 0634 00 1 13425 SXA MX154+1,1 FP226080 | 13421 0634 00 1 13464 SXA MX163,1 FP226090 | 13422 0074 00 4 06342 MX152 TSX TPOSIT,4 POSITION TO START OF DICT FP226100 13423 0 00000 0 00000 PZE ** FP226110 | 13424 0074 00 4 05255 MX154 TSX RD(WR),4 FP226120 | 13425 0 13465 0 00000 PZE **,,MX164 FP226130 | 13426 0020 00 0 13431 TRA MX158 FP226140 | 13427 0774 00 4 00000 MX156 AXT **,4 RETURN ON EOF FP226150 13430 0020 00 4 00001 TRA 1,4 FP226160 | * FP226170 | 13431 -0500 00 0 13462 MX158 CAL MX161 DEVELOP CHECKSUM FP226180 | 13432 0361 00 0 13464 ACL MX163 FP226190 | 13433 0774 00 4 00016 AXT 14,4 FP226200 13434 0361 00 4 13462 ACL MX160+14,4 FP226210 | 13435 2 00001 4 13434 TIX *-1,4,1 FP226220 | 13436 0602 00 0 13463 SLW MX162 FP226230 | 13437 0074 00 4 05255 TSX RD(WR),4 WRITE TO PUNCH TAPE FP226240 | 13440 -0 13466 0 00026 FOR 22,,MX165 FP226250 13441 0020 00 0 13424 TRA MX154 FP226260 | 13442 0074 00 4 05526 TSX EOTSW,4 FP226270 | 13443 0020 00 0 13424 TRA MX154 FP226280 | * FP226290 | * FP226300 * FP226310 | 13444 MX160 BSS 14 FP226320 | 13462 +000517000000 MX161 OCT 000517000000 FP226330 | 13463 0 00000 0 00000 MX162 PZE 0 FP226340 | 13464 -000003000000 MX163 OCT 400003000000 FP226350 13465 -1 00016 0 13444 MX164 IOCT MX160,,14 TO READ FP226360 | 13466 -0 00003 0 13462 MX165 IOCP MX161,,3 TO WRITE FP226370 | 13467 -0 00016 0 13444 IOCP MX160,,14 FP226380 | 1 LISTING OF 12/01/64 PAGE 465 | CLNPAS. PARAMETER CLEANUP | 13470 -0 00007 0 13370 IOCP MYA25,,7 FP226390 | 13471 -1 00003 0 06553 IOCT KME70,,3 FP226400 | * FP226410 | 13472 +000000077777 VHA10 OCT 77777 VIA10 FP226420 13473 +330000000000 VHA20 OCT 330000000000 VHA20 FP226430 | 13474 0 00000 0 00001 VHA30 PZE 1 VHA30 FP226440 | 13475 0 00000 0 00003 VHA40 PZE 3 VHA40 FP226450 | 13476 0 00000 0 00004 VHA50 PZE 4 VHA50 FP226460 | 13477 0 00000 0 00016 VHA60 PZE 14 VHA60 FP226470 13500 0 00000 0 00007 VHA70 PZE 7 VHA70 FP226480 | 13501 0 00000 0 00002 VHA80 PZE 2 VHA80 FP226490 | 13502 +347777000000 VHA90 OCT 347777000000 VHA90 FP226500 | 13503 +347777070000 VHB10 OCT 347777070000 VHB10 FP226510 | 13504 -237777770000 VHB20 OCT 637777770000 VHB20 FP226520 13505 0 00000 0 00000 VHC01 PZE 0 COMPARE WA VHC01 FP226530 | 13506 0 00000 0 00000 VHC02 PZE 0 COMPARE WA VHC02 FP226540 | 13507 +160000070000 VHC03 OCT 160000070000 VHC03 FP226550 | 13510 +160377070000 VHC04 OCT 160377070000 VHC04 FP226560 | 13511 0 00000 0 04400 VIA01 PZE OBJL1 FP226570 13512 0 00001 0 00000 VIA03 PZE 0,0,1 VIA03 FP226580 | 13575 CLNPS BES 50 FP226590 | 1 LISTING OF 12/01/64 PAGE 466 | IN-OUT (9PAC33). BUILD RECORD TABLES, I-O TABLES | * FP226610 | * FP226620 | * FP226630 | *I-O GENERATOR S1000 FP226640 | 72633 NUNU EQU NU FP226650 72703 TTBL EQU TBLTL FP226660 | 13575 314540466463 BCI 1,IN-OUT S1001 FP226670 | 13576 0774 00 1 00000 AXT 0,1 SET FOR UNIT ZERO S1010 FP226680 | *BUILD SWTCH ENTRY S1020 FP226690 | 13577 0441 00 0 11025 S1030 LDI NMBR0 RESET INDICATORS TO ZERO S1030 FP226700 13600 0634 00 1 15717 SXA SS175,1 CALCULATE FCB ORG S1031 FP226710 | 13601 0560 00 0 15720 LDQ SS176 FOR THIS UNIT S1032 FP226720 | 13602 0200 00 0 15717 MPY SS175 S1033 FP226730 | 13603 -0600 00 0 15717 STQ SS175 S1034 FP226740 | 13604 -0500 00 0 04654 CAL FCBORG S1035 FP226750 13605 0402 00 0 15717 SUB SS175 S1036 FP226760 | 13606 0621 00 0 15717 STA SS175 S1037 FP226770 | 13607 0500 00 1 11367 CLA HRDWR,1 S1040 FP226780 | 13610 -3 00000 1 13667 TXL S1335,1,0 MASTER IN S1044 FP226790 | 13611 3 00010 1 13613 TXH *+2,1,8 IS IT AN OUTPUT S1045 FP226800 13612 3 00006 1 13614 TXH *+2,1,6 IS IT AN OUT PUT S1046 FP226810 | 13613 0100 00 0 14020 TZE S2140 IS UNIT USED S1050 FP226820 | 13614 -0055 00 100000 SIL 100000 YES, SET SWTCH 1 S1060 FP226830 | 13615 -0120 00 0 13617 TMI *+2 IS UNIT OUTPUT S1070 FP226840 | 13616 -0055 00 000001 SIL 000001 YES, SET SWTCH 6 S1080 FP226850 *SET SWTCH 11, CLOSE OPTIONS, AND SWTCH 12, OPEN OPTIONS FP226860 | *ACCORDING TO ADDRESS OF FCB WORD 5. ZERO WORD 5 ADDR AFTERWARDS FP226870 | 13617 0535 00 4 15717 S1082 LAC SS175,4 FCB FOR THIS UNIT S1082 FP226880 | 13620 0500 00 4 00004 CLA 4,4 WORD 5 FP226890 | 13621 0771 00 0 00022 ARS 18 FP226900 13622 -0320 00 0 10726 ANA BCD01 FP226910 | 13623 0043 00 0 00000 OAI FP226920 | 13624 0622 00 4 00004 STD 4,4 STORE ZERO IN FCB WORD 5 DECR FP226930 | 13625 -0500 00 1 04531 CAL SYMTAP,1 PADDING INDICATION TO S1084 FP226940 | 13626 0771 00 0 00025 ARS 21 SWTCH 9 S1088 FP226950 13627 -0320 00 0 15667 ANA SS135 000000007000 S1092 FP226960 | 13630 0043 00 0 00000 OAI S1096 FP226970 | 13631 -0500 00 1 04531 CAL SYMTAP,1 IS DICTIONARY ATTACHED S1100 FP226980 | 13632 -0320 00 0 11053 ANA TAG4 S1110 FP226990 | 13633 0100 00 0 14013 TZE S2090 S1120 FP227000 13634 -0055 00 001000 SIL 001000 YES, SET SWTCH 3 S1130 FP227010 | 13635 0535 00 4 15717 LAC SS175,4 FCD WORD 2--IF BIT 10 IS A ONE, S1131 FP227020 | 13636 -0500 00 4 00001 CAL 1,4 SEQ WORDS AND CHECKSUM, S1132 FP227030 | 13637 -0763 00 0 00012 LGL 10 SET SW 6.2 S1133 FP227040 | 13640 -0760 00 0 00001 PBT SKIP IF YES S1134 FP227050 13641 0020 00 0 13643 TRA *+2 NO S1135 FP227060 | 13642 -0055 00 000002 SIL 000002 S1136 FP227070 | *SINCE DICTIONARY IS ATTACHED, BUILD RECORD TABLE S1140 FP227080 | 13643 0634 00 1 13646 SXA S1180,1 PUT PSEUDO-UNIT INTO S1150 FP227090 | 13644 0634 00 1 13650 SXA S1200,1 I-O CALLING SEQUENCES S1160 FP227100 13645 0074 00 4 06342 TSX TPOSIT,4 POSITION TO BEGINNING OF DICTIONARY S1170 FP227110 | 13646 0 00000 0 00000 S1180 PZE .. S1180 FP227120 | 13647 0074 00 4 05255 S1190 TSX RD(WR),4 READ LABELS S1190 FP227130 | 13650 0 13653 0 00000 S1200 PZE ..,0,S1230 S1200 FP227140 | 13651 0020 00 0 13654 TRA S1240 NORMAL RETURN S1210 FP227150 1 LISTING OF 12/01/64 PAGE 467 | IN-OUT (9PAC33). BUILD RECORD TABLES, I-O TABLES | | 13652 0020 00 0 13744 TRA S1730 EOF RETURN S1220 FP227160 | 13653 3 00016 0 14516 S1230 IORT SS100,0,14 S1230 FP227170 13654 -0500 00 0 14516 S1240 CAL SS100 S1240 FP227180 | 13655 -0320 00 0 10765 ANA BCD40 S1250 FP227190 | 13656 -0340 00 0 15665 LAS SS120 DETERMINE LABEL TYPE S1260 FP227200 | 13657 0020 00 0 13647 TRA S1190 READ ANOTHER S1270 FP227210 | 13660 0020 00 0 13662 TRA *+2 THIS IS IT-AN E-LABEL S1280 FP227220 13661 0020 00 0 13647 TRA S1190 S1290 FP227230 | 13662 0774 00 2 00000 S1300 AXT 0,2 ADDRESS CONTAINS NR WORDS PLACED S1300 FP227240 | 13663 1 00003 2 13664 TXI *+1,2,3 IN RECORD TABLE S1310 FP227250 | 13664 -3 01130 2 13675 TXL S1340,2,600 S1320 FP227260 | 13665 0074 00 4 10507 TSX T0010,4 S1329 FP227270 13666 -1 12334 5 00000 STR 0,5,5340 EXCEEDED TABLE SIZE S1330 FP227280 | 13667 -0520 00 0 11412 S1335 NZT NEWSW S1335 FP227290 | 13670 0020 00 0 13673 TRA *+3 S1336 FP227300 | 13671 -0055 00 000100 SIL 000100 IF NEW AND UNIT ZERO, S1337 FP227310 | 13672 0020 00 0 14013 TRA S2090 SIMULATE EOF S1338 FP227320 13673 -0055 00 100000 SIL 100000 UNIT ZERO, BUT NOT NEW S13390FP227330 | 13674 0020 00 0 13617 TRA S1082 S13391FP227340 | 13675 0634 00 2 13662 S1340 SXA S1300,2 S1340 FP227350 | 13676 0774 00 4 00000 S1350 AXT 0,4 NR RT THIS UNIT S1350 FP227360 | 13677 1 00001 4 13700 TXI *+1,4,1 S1360 FP227370 13700 0634 00 4 13676 SXA S1350,4 S1370 FP227380 | 13701 -0500 00 0 14517 CAL SS100+1 OBTAIN RECORD LENGTH S1380 FP227390 | 13702 0560 00 0 14520 LDQ SS100+2 S1390 FP227400 | 13703 -0763 00 0 00022 LGL 18 S1400 FP227410 | 13704 -0320 00 0 10744 ANA BCD17 S1405 FP227420 13705 0602 00 0 07751 SLW B1020 S1410 FP227430 | 13706 0074 00 4 07570 TSX B0010,4 S1420 FP227440 | 13707 -0500 00 0 07747 CAL B1000 S1430 FP227450 | 13710 -0340 00 1 72633 LAS NUNU,1 STORE LONGEST LOGICAL RECORD LENGTH S1440 FP227460 | 13711 0602 00 1 72633 SLW NUNU,1 S1450 FP227470 13712 0020 00 0 13713 TRA *+1 S1460 FP227480 | 13713 0621 00 0 13737 STA S1670 S1470 FP227490 | 13714 -0763 00 0 00022 LGL 18 S1480 FP227500 | 13715 0602 00 2 15666 SLW SS110+2,2 STORE IN WORD 2 S1490 FP227510 | 13716 -0500 00 0 14517 CAL SS100+1 OBTAIN RECORD TYPE S1500 FP227520 13717 -0763 00 0 00022 LGL 18 S1510 FP227530 | 13720 -0320 00 0 11005 ANA BCD60 S1520 FP227540 | 13721 0602 00 2 15665 SLW SS110+1,2 STORE IN WORD 1 S1530 FP227550 | *TEST FOR GROUP HEADER S1540 FP227560 | 13722 3 00007 1 13647 TXH S1190,1,7 GROUP HEADERS ON SF OUT, S1550 FP227570 13723 -0765 00 0 00030 LGR 24 FP227580 | 13724 -3 00006 1 13647 TXL S1190,1,6 B7 ONLY, FOR FP. S1560 FP227590 | 13725 0774 00 4 00062 AXT GHSZE,4 SF OUT FP227600 | 13726 -0340 00 4 11340 LAS D5900+GHSZE,4 GROUP HEADER TABLE FP227610 | 13727 0020 00 0 13731 TRA *+2 S1590 FP227620 13730 0020 00 0 13733 TRA *+3 YES S1600 FP227630 | 13731 2 00001 4 13726 TIX *-3,4,1 S1610 FP227640 | 13732 0020 00 0 13647 TRA S1190 NO. FIND NEXT RECORD TYPE S1620 FP227650 | 13733 -0500 00 0 11025 CAL NMBR0 SAVE RELATIVE LOCATION S1630 FP227660 | 13734 0074 00 4 11426 TSX STORR,4 OF GROUP HEADER SIDE POCKET S1640 FP227670 13735 -0500 00 0 11436 CAL G0080 S1650 FP227680 | 13736 0621 00 2 15667 STA SS110+3,2 IN WORD 3 S1660 FP227690 | 13737 0774 00 2 00000 S1670 AXT **,2 NUMBER OF WORDS TO MAKE S1670 FP227700 | 1 LISTING OF 12/01/64 PAGE 468 | IN-OUT (9PAC33). BUILD RECORD TABLES, I-O TABLES | 13740 -0500 00 0 11025 CAL NMBR0 S1680 FP227710 | 13741 0074 00 4 11426 TSX STORR,4 ROOM FOR IN SIDE POCKET S1690 FP227720 | 13742 2 00001 2 13740 TIX *-2,2,1 S1700 FP227730 | 13743 0020 00 0 13647 TRA S1190 FIND NEXT RECORD S1710 FP227740 *EOF RETURN-FILL IN CTTBL,TTBL,MOVE REC TBL TO B6,RESET S1720 FP227750 | 13744 0534 00 2 13662 S1730 LXA S1300,2 NUMBER OF WORDS IN TABLE S1730 FP227760 | 13745 -3 00000 2 13772 TXL S1940,2,0 NO REOORDS (UNIT0) S1734 FP227770 | 13746 -0500 00 2 15665 S1760 CAL SS110+1,2 MOVE WORD 1 S1760 FP227780 | 13747 0074 00 4 11413 TSX PRGMR,4 S1770 FP227790 13750 0 00000 0 00000 PZE 0 DUMMY WORD S1780 FP227800 | 13751 -0500 00 2 15666 CAL SS110+2,2 MOVE WORD 2 S1790 FP227810 | 13752 0074 00 4 11413 TSX PRGMR,4 S1800 FP227820 | 13753 0 00000 0 00000 PZE 0 S1810 FP227830 | 13754 -0500 00 2 15667 CAL SS110+3,2 MOVE WORD 3 S1820 FP227840 13755 0074 00 4 11413 TSX PRGMR,4 S1830 FP227850 | 13756 0 00000 0 00000 PZE 0 S1840 FP227860 | 13757 0100 00 0 13761 TZE *+2 NOT ZERO, IF G.H. S1850 FP227870 | 13760 0074 00 4 11455 TSX SADDR+1,4 SUPPLY ADDRESS S1860 FP227880 | 13761 2 00003 2 13746 TIX S1760,2,3 S1870 FP227890 *WRITE RECORD TABLE FOR THIS UNIT TO B6 S1890 FP227900 | 13762 -0500 00 0 15725 CAL SS215 S1891 FP227910 | 13763 0074 00 4 11426 TSX STORR,4 S1892 FP227920 | 13764 -0500 00 0 15726 CAL SS215+1 S1893 FP227930 | 13765 0074 00 4 11426 TSX STORR,4 S1894 FP227940 13766 -0754 00 1 00000 PXD 0,1 S1900 FP227950 | 13767 0767 00 0 00006 ALS 6 S1910 FP227960 | 13770 -0501 00 0 15666 ORA SS130 S1920 FP227970 | 13771 0074 00 4 11546 TSX M0005,4 S1930 FP227980 | 13772 0534 00 2 13676 S1940 LXA S1350,2 NR. REC TYPES IN TABLE S1940 FP227990 13773 -0754 00 2 00000 PXD 0,2 S1950 FP228000 | 13774 0622 00 1 72703 STD TTBL,1 S1960 FP228010 | 13775 -0501 00 0 11051 ORA TAG2 S1962 FP228020 | 13776 0625 00 1 72703 STT TBLTL,1 FP228030 | 13777 3 00010 1 14001 TXH *+2,1,8 SKIP FOR B7,B8.DONE IN S1970 FP228040 14000 3 00006 1 14004 TXH *+4,1,6 CLNPAS S1980 FP228050 | 14001 0622 00 1 72607 STD CTTBL,1 S1990 FP228060 | 14002 -0500 00 0 11051 CAL TAG2 S2000 FP228070 | 14003 -0602 00 1 72607 ORS CTTBL,1 S2010 FP228080 | 14004 0534 00 2 13662 LXA S1300,2 NR WORDS IN REC TABLE S2020 FP228090 14005 0600 00 2 15664 STZ SS110,2 S2030 FP228100 | 14006 2 00001 2 14005 TIX *-1,2,1 ZERO RECORD TABLE S2040 FP228110 | 14007 0774 00 2 00000 AXT 0,2 S2050 FP228120 | 14010 0634 00 2 13662 SXA S1300,2 ZERO NR WORDS S2060 FP228130 | 14011 0634 00 2 13676 SXA S1350,2 ZERO NR RT S2070 FP228140 14012 0020 00 0 14017 TRA S2130 S2080 FP228150 | 14013 -0500 00 1 11367 S2090 CAL HRDWR,1 STORE LOGICAL RECORD S2090 FP228160 | 14014 -0734 00 2 00000 PDX 0,2 LENGTH FOR UNITS W/O S2100 FP228170 | 14015 0754 00 2 00000 PXA 0,2 DICTIONARY ATTACHED S2110 FP228180 | 14016 0621 00 1 72633 STA NUNU,1 S2120 FP228190 14017 0604 00 1 72657 S2130 STI SWTCH,1 STORE SWTCH ENTRY S2130 FP228200 | 14020 1 00001 1 14021 S2140 TXI *+1,1,1 NEXT UNIT S2140 FP228210 | 14021 -3 00023 1 13577 TXL S1030,1,19 DO NOT TRA WHEN UNITS RUN OUT FP228220 | 14022 0074 00 4 05505 TSX NDSRT,4 WRITE EOF AFTER SKELETON OBJECT FP228230 | 14023 0 00007 0 00030 PZE 24,,7 FP228240 14024 0074 00 4 06342 TSX TPOSIT,4 AND POSITION TO ITS START FP228250 | 1 LISTING OF 12/01/64 PAGE 469 | IN-OUT (9PAC33). BUILD RECORD TABLES, I-O TABLES | | 14025 -3 00000 0 00030 SVN 24 FP228260 14026 -0500 00 0 04401 CAL OBJL2 FP228270 | 14027 0602 00 0 04404 SLW OBJL5 FP228280 | 14030 -0500 00 0 04402 CAL OBJL3 FP228290 | 14031 0602 00 0 04405 SLW OBJL6 FP228300 | 1 LISTING OF 12/01/64 PAGE 470 IN-OUT (9PAC33). CONNECTING LINKS FOR FP-RG COMBINATION | | *AT THIS POINT GENERATION IS COMPLETE EXCEPT FOR FP228320 | * 1. SUBDIVING REMAINING CORE TO I-O BUFFERS FP228330 | * 2. ASSIGNING FIXED ADDRESSES FP228340 * FP228350 | 14032 -0520 00 0 04406 NZT FPRGSW IF FP-RG IN COMBINATION FP228360 | 14033 0020 00 0 14313 TRA S2200 NO FP228370 | * YES--SAVE FP AND SET FP228380 | * UP FOR RG FP228390 * FP228400 | 14034 -0500 00 0 14034 FRG010 CAL * (NZ-DECREMENT) FP228410 | 14035 -0602 00 0 04406 ORS FPRGSW SET SWITCH FP228420 | 14036 0074 00 4 06342 TSX TPOSIT,4 POSIT TO CHG OUT DICT FP228430 | 14037 0 00000 0 00010 PZE 8 FP228440 14040 0074 00 4 06342 TSX TPOSIT,4 REWIND MASTER OUT DICT FP228450 | 14041 0 00000 0 00007 PZE 7 FP228460 | 14042 0074 00 4 14210 TSX LOCATP,4 AND POSITION PAST P RECORD FP228470 | 14043 0074 00 4 14244 TSX TAPDUP,4 AND COPY CHG DICT TO MASTER FP228480 | 14044 0 00007 0 00010 PZE 8,,7 FP228490 * FP228500 | * POSITION SKELETON OBJECT FP228510 | * FP228520 | 14045 0774 00 1 00010 AXT 8,1 FP228530 | 14046 0074 00 4 14275 TSX SETBI,4 FP228540 14047 -0500 00 0 04521 CAL SYMTAP-8 FP228550 | 14050 0074 00 2 06474 TSX SETDEN,2 FP228560 | 14051 0074 00 4 14244 TSX TAPDUP,4 AND COPY BEHIND CHG DICT FP228570 | 14052 0 00010 0 00030 PZE 24,,8 FP228580 | * SAVE SELECTED PARTS OF CORE FP228590 14053 0774 00 1 00010 AXT 8,1 FP228600 | 14054 0074 00 4 14172 TSX FPDUMP,4 FP228610 | 14055 3 03072 0 07566 IORT NIAM1,,MAIN1-NIAM1 FP228620 | 14056 0074 00 4 14172 TSX FPDUMP,4 FP228630 | 14057 3 00310 0 67233 IORT VNTRY,,VTZE+OTZE+SNZE FP228640 14060 0074 00 4 05505 TSX NDSRT,4 FP228650 | 14061 0 00007 0 00010 PZE 8,,7 FP228660 | * SET UP RG SCRATCH TAPES FP228670 | 14062 0774 00 4 00005 FRG020 AXT 5,4 FP228680 | 14063 -0500 00 4 04415 CAL RGSMTP+5,4 FP228690 14064 0560 00 4 04502 LDQ SYMTAP-23,4 FP228700 | 14065 -0600 00 4 04415 STQ RGSMTP+5,4 FP228710 | 14066 0602 00 4 04502 SLW SYMTAP-23,4 FP228720 | 14067 2 00001 4 14063 TIX *-4,4,1 FP228730 | 14070 0774 00 1 00010 AXT 8,1 FP228740 14071 0074 00 4 14303 TSX RSETBI,4 FP228750 | 14072 0074 00 2 04764 TSX BSFSYS,2 POSITION TO RG FP228760 | 14073 0074 00 2 04764 TSX BSFSYS,2 FP228770 | 14074 0074 00 2 05004 TSX FSRSYS,2 FP228780 | 14075 0074 00 4 12507 TSX MSYSRD,4 AND TRANSFER TO IT. FP228790 14076 114721230201 BCI 1,9PAC21 FP228800 | 14077 0 63751 0 72563 PZE CTTBL-20,,CTTBL-20-RGORG FP228810 | * FP228820 | 1 LISTING OF 12/01/64 PAGE 471 | IN-OUT (9PAC33). CONNECTING LINKS FOR FP-RG COMBINATION | * FP228840 | *WHEN FP AND RG ARE RUN IN COMBINATION FP228850 | * RG PASSES CONTROL TO HERE AFTER IS GENERATION FP228860 | * IS COMPLETE. CORE CONTAINS ITS PROGRAM FP228870 * FP228880 | * FP228890 | * FP228900 | 14100 0774 00 4 00005 FRG100 AXT 5,4 RESTORE SCRATCH TAPES. FP228910 | 14101 -0500 00 4 04415 CAL RGSMTP+5,4 FP228920 14102 0560 00 4 04502 LDQ SYMTAP-23,4 FP228930 | 14103 -0600 00 4 04415 STQ RGSMTP+5,4 FP228940 | 14104 0602 00 4 04502 SLW SYMTAP-23,4 FP228950 | 14105 2 00001 4 14101 TIX *-4,4,1 FP228960 | * FP228970 14106 0074 00 4 06342 TSX TPOSIT,4 ERASE CHG DICT FP228980 | 14107 0 00000 0 00007 PZE 7 FROM MASTER DICT FP228990 | 14110 0074 00 4 14210 TSX LOCATP,4 BY FINDING P-RECORD FP229000 | 14111 0074 00 4 05505 TSX NDSRT,4 AND WRITING AN EOF FP229010 | 14112 0 00007 0 00007 PZE 7,,7 FP229020 * FP229030 | 14113 0074 00 4 06342 TSX TPOSIT,4 RECORD TAPE POSITION FP229040 | 14114 -0 00000 0 00031 FOR 25 FP229050 | 14115 -0500 00 0 04401 CAL OBJL2 SAVE RG OBJECT FP229060 | 14116 0402 00 0 04404 SUB OBJL5 FP229070 14117 0761 00 0 00000 NOP FP229080 | 14120 0767 00 0 00022 ALS 18 FP229090 | 14121 0361 00 0 04404 ACL OBJL5 FP229100 | 14122 0621 00 0 14126 STA FRG150 FP229110 | 14123 0622 00 0 14126 STD FRG150 FP229120 14124 0774 00 1 00031 AXT 25,1 FP229130 | 14125 0074 00 4 14172 TSX FPDUMP,4 RG OBJECT PROGRAM FP229140 | 14126 3 00000 0 00000 FRG150 IORT **,,** FP229150 | * FP229160 | 14127 -0500 00 0 04405 CAL OBJL6 FP229170 14130 0402 00 0 04402 SUB OBJL3 FP229180 | 14131 0761 00 0 00000 NOP FP229190 | 14132 0767 00 0 00022 ALS 18 FP229200 | 14133 0361 00 0 04402 ACL OBJL3 FP229210 | 14134 0621 00 0 14140 STA FRG160 FP229220 14135 0622 00 0 14140 STD FRG160 FP229230 | 14136 0774 00 1 00031 AXT 25,1 FP229240 | 14137 0074 00 4 14172 TSX FPDUMP,4 RG OBJECT STORAGE FP229250 | 14140 3 00000 0 00000 FRG160 IORT **,,** FP229260 | * FP229270 14141 0074 00 4 06342 TSX TPOSIT,4 RETURN SKELETON OBJECT FP229280 | 14142 2 00000 0 00030 PTW 24 FP229290 | 14143 0074 00 4 06342 TSX TPOSIT,4 FP229300 | 14144 -0 00000 0 00030 FOR 24 FP229310 | 14145 0074 00 4 06342 TSX TPOSIT,4 FP229320 14146 1 00000 0 00010 PON 8 FP229330 | 14147 0774 00 1 00010 AXT 8,1 FP229340 | 14150 0074 00 4 14275 TSX SETBI,4 FP229350 | 14151 0074 00 4 14244 TSX TAPDUP,4 FP229360 | 14152 0 00030 0 00010 PZE 8,,24 FP229370 14153 0074 00 4 06342 TSX TPOSIT,4 FP229380 | 1 LISTING OF 12/01/64 PAGE 472 | IN-OUT (9PAC33). CONNECTING LINKS FOR FP-RG COMBINATION | | 14154 -3 00000 0 00030 SVN 24 FP229390 * RELOAD SELECTED PARTS OF FP. FP229400 | 14155 0074 00 4 05255 TSX RD(WR),4 FP229410 | 14156 0 14166 0 00010 PZE 8,,FRG250 FP229420 | 14157 0020 00 0 14155 TRA *-2 FP229430 | 14160 0774 00 1 00010 AXT 8,1 FP229440 14161 0074 00 4 14303 TSX RSETBI,4 FP229450 | 14162 0441 00 0 72645 LDI SWTCH-10 MAKE SWTCH FOR UNIT 10 FP229460 | 14163 -0057 00 100000 RIL 100000 SAY RG INPUT UNIT NOT USED FP229470 | 14164 0604 00 0 72645 STI SWTCH-10 FP229480 | 14165 0020 00 0 14313 TRA S2200 FP229490 14166 -0 00003 0 14167 FRG250 IOCP *+1,,3 FP229500 | 14167 3 00000 0 00000 IORT **,,** FP229510 | 14170 512760475146 BCI 2,RG PROGRAM FP229520 | 14171 275121446060 | | | | | *SUBROUTINE TO DUMP PORTIONS OF CORE WHICH CAN FP229540 * LATER BE SELF LOADED FP229550 | * FP229560 | * RECORD FORMAT IS FP229570 | * FP229580 | * IORT LOC,,CT FP229590 * NOT USED FP229600 | * NOT USED FP229610 | * 1ST WORD FP229620 | * FP229630 | * ON ENTRY, 1,4 CONTAINS IORT LOC,,CT. FP229640 * AND IR1 CONTAINS FILE NUMBER OF TAPE FP229650 | 14172 0634 00 4 14202 FPDUMP SXA FPDMP2,4 FP229660 | 14173 0634 00 1 14177 SXA FPDMP1,1 FP229670 | 14174 -0500 00 4 00001 CAL 1,4 FP229680 | 14175 0602 00 0 14205 SLW FPDMP6 FP229690 14176 0074 00 4 05255 TSX RD(WR),4 FP229700 | 14177 -0 14204 0 00000 FPDMP1 FOR **,,FPDMP5 FP229710 | 14200 0020 00 0 14202 TRA *+2 FP229720 | 14201 0074 00 4 06557 TSX SCEOT,4 FP229730 | 14202 0774 00 4 00000 FPDMP2 AXT **,4 FP229740 14203 0020 00 4 00002 TRA 2,4 FP229750 | * FP229760 | * FP229770 | 14204 -0 00003 0 14205 FPDMP5 IOCP FPDMP6,,3 FP229780 | 14205 3 00000 0 00000 FPDMP6 IORT **,,** FP229790 14206 454663606462 BCI 2,NOT USED FP229800 | 14207 252460606060 | 1 LISTING OF 12/01/64 PAGE 473 | IN-OUT (9PAC33). CONNECTING LINKS FOR FP-RG COMBINATION | *SUBROUTINE TO LOCATE END OF MASTER DICTIONARY FP229820 | * FP229830 | * FP229840 | * FP229850 | * FP229860 14210 0634 00 4 14221 LOCATP SXA LOCAT2,4 FP229870 | 14211 0074 00 4 05255 TSX RD(WR),4 FP229880 | 14212 0 14225 0 00007 PZE 7,,LOCAT6 FP229890 | 14213 0020 00 0 14215 TRA LOCAT1 FP229900 | 14214 0074 00 4 04000 TSX LOST,4 FP229910 14215 -0500 00 0 14226 LOCAT1 CAL LOCAT7 FP229920 | 14216 -0320 00 0 14223 ANA LOCAT4 FP229930 | 14217 0322 00 0 14224 ERA LOCAT5 FP229940 | 14220 -0100 00 0 14211 TNZ LOCATP+1 FP229950 | 14221 0774 00 4 00000 LOCAT2 AXT **,4 FP229960 14222 0020 00 4 00001 TRA 1,4 FP229970 | * FP229980 | * FP229990 | 14223 -370000000000 LOCAT4 OCT 770000000000 FP230000 | 14224 470000000000 LOCAT5 BCI 1,P00000 FP230010 14225 3 00016 0 14226 LOCAT6 IORT LOCAT7,,14 FP230020 | 14226 LOCAT7 BSS 14 FP230030 | | | | | *TAPE DUPE SUBROUTINE FP230050 | * ONE FILE FROM ADDR TO DECR FP230060 | * WHERE ADDR AND DECR ARE 1,4 FP230070 * FP230080 | * TSX TAPDUP,4 FP230090 | * PZE ADDR,,DECR FP230100 | * FP230110 | * FP230120 * FP230130 | 14244 0634 00 4 14257 TAPDUP SXA TAPD04+1,4 FP230140 | 14245 -0500 00 4 00001 CAL 1,4 FP230150 | 14246 0621 00 0 14253 STA TAPD02+1 FP230160 | 14247 -0765 00 0 00022 LGR 18 FP230170 14250 0621 00 0 14256 STA TAPD04 FP230180 | 14251 0621 00 0 14266 STA TAPD08+1 FP230190 | 14252 0074 00 4 05255 TAPD02 TSX RD(WR),4 READ FP230200 | 14253 0 14272 0 00000 PZE **,,TAPD20 FP230210 | 14254 0020 00 0 14261 TRA TAPD06 FP230220 14255 0074 00 4 05505 TSX NDSRT,4 FP230230 | 14256 0 00007 0 00000 TAPD04 PZE **,0,7 WRITE EOF FP230240 | 14257 0774 00 4 00000 AXT **,4 FP230250 | 14260 0020 00 4 00002 TRA 2,4 FP230260 | * FP230270 14261 -0500 00 0 00736 TAPD06 CAL (COMMM COMPUTE LENGTH FP230280 | 14262 0402 00 0 14274 SUB TAPD22 FP230290 | 14263 -0763 00 0 00022 LGL 18 FP230300 | 14264 0622 00 0 14273 STD TAPD21 FP230310 | 14265 0074 00 4 05255 TAPD08 TSX RD(WR),4 WRITE FP230320 1 LISTING OF 12/01/64 PAGE 474 | IN-OUT (9PAC33). CONNECTING LINKS FOR FP-RG COMBINATION | | 14266 -0 14273 0 00000 FOR **,,TAPD21 FP230330 | 14267 0020 00 0 14252 TRA TAPD02 FP230340 14270 0074 00 4 06557 TSX SCEOT,4 FP230350 | 14271 0020 00 0 14252 TRA TAPD02 FP230360 | * FP230370 | * FP230380 | * FP230390 14272 3 03777 0 57562 TAPD20 IORT OBPGM,,2047 READ COMMAND FP230400 | 14273 3 00000 0 57562 TAPD21 IORT OBPGM,,** WRITE COMMAND FP230410 | 14274 0 00000 0 57562 TAPD22 PZE OBPGM FP230420 | | | | | * FP230440 | *SUBROUTINE TO ALLOW DUMPING OR TAPE DUPING BINARY INFORMATION FP230450 * TO UNIT SPECIFIED BY IR1. FP230460 | * FP230470 | * FP230480 | 14275 -0500 00 1 04531 SETBI CAL SYMTAP,1 FP230490 | 14276 -0320 00 0 14310 ANA SETC1 FP230500 14277 0602 00 0 14311 SLW SETC2 FP230510 | 14300 -0500 00 0 14310 CAL SETC1 FP230520 | 14301 -0602 00 1 04531 ORS SYMTAP,1 FP230530 | 14302 0020 00 4 00001 TRA 1,4 FP230540 | * FP230550 * FP230560 | *SUBROUTINE TO RESTORE AFTER DUMPING OR DUPING FP230570 | * FP230580 | * FP230590 | 14303 -0500 00 0 14312 RSETBI CAL SETC3 FP230600 14304 0320 00 1 04531 ANS SYMTAP,1 FP230610 | 14305 -0500 00 0 14311 CAL SETC2 FP230620 | 14306 -0602 00 1 04531 ORS SYMTAP,1 FP230630 | 14307 0020 00 4 00001 TRA 1,4 FP230640 | * FP230650 14310 0 00000 2 00000 SETC1 PZE 0,2 FP230660 | 14311 0 00000 0 00000 SETC2 PZE 0 FP230670 | 14312 -3 77777 5 77777 SETC3 SVN -1,5,-1 FP230680 | 1 LISTING OF 12/01/64 PAGE 475 | IN-OUT (9PAC33). DIVIDE AVAILABLE CORE INTO BUFFERS | *DIVDE AVAILABLE CORE INTO BUFFERS. AVAIL HAS BEEN S2200 FP230700 | *ADJUSTED FOR 40 BUFFER POOL CONTROL WORDS. S2210 FP230710 | 14313 -0500 00 0 04402 S2200 CAL OBJL3 LOW LIMIT OF UPPER OBJ PROG S2210 FP230720 | 14314 0402 00 0 04401 SUB OBJL2 UPPER LIMIT OF LOWER OBJECT PROGRAM FP230730 14315 0402 00 0 15756 SUB BUFCW NR BUFFER CONTROL WORDS FP230740 | 14316 0601 00 0 15755 STO SS250 NR CELLS AVAILABLE FOR I-O BUFFERS FP230750 | 14317 0774 00 1 00000 AXT 0,1 S2215 FP230760 | 14320 -0500 00 1 04531 S2220 CAL SYMTAP,1 S2220 FP230770 | 14321 -0320 00 0 15670 ANA SS140 S2240 FP230780 14322 0100 00 0 14337 TZE S2380 S2250 FP230790 | 14323 0622 00 1 72753 STD BUSZE,1 BUILD LEFT HALF BUSZE,1 S2260 FP230800 | 14324 0771 00 0 00022 ARS 18 S2270 FP230810 | 14325 0400 00 0 11027 ADD NMBR2 FOR BUFFER CONTROL WORDS S2280 FP230820 | 14326 0601 00 1 15714 STO SS150,1 SIZE OF ONE BUFFER WITH CONTROL WORDSS2290 FP230830 14327 0074 00 4 14407 TSX S2800,4 DETERMINE SET SIZE S2300 FP230840 | 14330 -0056 00 200000 LNT 200000 S2310 FP230850 | 14331 0020 00 0 14335 TRA S2360 OUTPUT S2320 FP230860 | 14332 0400 00 0 15721 ADD SS180 INPUT S2330 FP230870 | 14333 0601 00 0 15721 STO SS180 NR WORDS IN INPUT SET S2340 FP230880 14334 1 00001 1 14340 TXI S2390,1,1 S2350 FP230890 | 14335 0400 00 0 15722 S2360 ADD SS190 S2360 FP230900 | 14336 0601 00 0 15722 STO SS190 NR WORDS PER OUTPUT SET S2370 FP230910 | 14337 1 00001 1 14340 S2380 TXI *+1,1,1 S2380 FP230920 | 14340 -3 00023 1 14320 S2390 TXL S2220,1,19 FINISHED S2390 FP230930 14341 -0500 00 0 15755 CAL SS250 NR CELLS AVAILABLE FOR I-O BUFFERS FP230940 | 14342 0402 00 0 15721 SUB SS180 S2410 FP230950 | 14343 -0120 00 0 14431 TMI S2980 NOT ENOUGH SPACE S2420 FP230960 | 14344 0131 00 0 00000 XCA S2430 FP230970 | 14345 -0754 00 0 00000 PXD 0,0 S2440 FP230980 14346 0220 00 0 15722 DVH SS190 S2445 FP230990 | 14347 0131 00 0 00000 XCA S2450 FP231000 | 14350 0100 00 0 14431 TZE S2980 NOT ROOM FOR ONE SET S2460 FP231010 | 14351 0601 00 0 15723 STO SS200 NR POSSIBLE SETS S2470 FP231020 | *PROCEDE TO DIVIDE CORE ON A WEIGHTED BASIS. INPUT, 1 SET. S2480 FP231030 *OUTPUT, NUMBER OF SETS IN SS200. BUFFER WEIGHTS AS FOLLOWS, S2490 FP231040 | *0-25 WORDS,WEIGHT 4. 26-200 WORDS, WEIGHT 3. OVER 200 WORDS, WEIGS2500 FP231050 | 14352 0774 00 1 00000 AXT 0,1 S2510 FP231060 | 14353 0534 00 2 04401 LXA OBJL2,2 S2515 FP231070 | 14354 -0500 00 1 15714 S2520 CAL SS150,1 S2520 FP231080 14355 0100 00 0 14404 TZE S2740 GET ANOTHER UNIT S2530 FP231090 | 14356 0074 00 4 14407 TSX S2800,4 DETERMINE SET SIZE S2540 FP231100 | 14357 0601 00 0 15724 STO SS210 NR WORDS IN BUFFER SET, THIS UNIT S2550 FP231110 | 14360 0500 00 0 11027 CLA NMBR2 DETERMINE NUMBER OF BUFFERS IN SET S2560 FP231120 | 14361 -0054 00 002000 LFT 002000 FP231130 14362 0500 00 0 11030 CLA NMBR3 S2580 FP231140 | 14363 -0054 00 004000 LFT 004000 FP231150 | 14364 0500 00 0 11031 CLA NMBR4 S2600 FP231160 | 14365 -0054 00 200000 LFT 200000 ON, IF INPUT S2610 FP231170 | 14366 0020 00 0 14372 TRA S2650 S2620 FP231180 14367 0131 00 0 00000 XCA S2630 FP231190 | 14370 0200 00 0 15723 MPY SS200 NUMBER OF OUTPUT SETS S2640 FP231200 | 14371 0131 00 0 00000 XCA S2645 FP231210 | 14372 0621 00 1 72753 S2650 STA BUSZE,1 BUILD RIGHT HALF OF BUSZE,1 S2650 FP231220 | 14373 0754 00 2 00000 PXA 0,2 S2660 FP231230 14374 0621 00 1 72727 STA BULOC,1 BUILD BULOC,1 S2670 FP231240 | 1 LISTING OF 12/01/64 PAGE 476 | IN-OUT (9PAC33). DIVIDE AVAILABLE CORE INTO BUFFERS | | 14375 0774 00 4 00001 AXT 1,4 ONE INPUT SET S2680 FP231250 14376 -0056 00 200000 LNT 200000 ON, IF INPUT-DO NOT LOOP S2690 FP231260 | 14377 0534 00 4 15723 LXA SS200,4 NR OUTPUT SETS S2700 FP231270 | 14400 0400 00 0 15724 ADD SS210 S2710 FP231280 | 14401 2 00001 4 14400 TIX *-1,4,1 S2720 FP231290 | 14402 0400 00 0 11027 ADD NMBR2 ADD TWO FOR BUFFER POOL CONTROL WORDSS2730 FP231300 14403 0734 00 2 00000 PAX 0,2 S2735 FP231310 | 14404 1 00001 1 14405 S2740 TXI *+1,1,1 GET NEXT UNIT S2740 FP231320 | 14405 -3 00023 1 14354 TXL S2520,1,19 ARE THERE MORE UNITS FP231330 | 14406 0020 00 0 14503 TRA S3350 NO. I-O GEN IS FINISHED S2760 FP231340 | *TSX S2800,4 DETERMINE BUFFER SET SIZE. SIL 004000,4.SIL 002000,S2770 FP231350 * OTHERWISE( 2. SIL200000 FOR IN PUT TYPE BUFFER. ENTER WITH S2780 FP231360 | * BUFFER SIZES FROM SS150,1 IN AC. RETURN WITH WEIGHTED SINGLE S2790 FP231370 | * SET FOR THIS UNIT- NOT POOL SIZE, HOWEVER S2795 FP231380 | * S FP231390 | 14407 0441 00 1 72657 S2800 LDI SWTCH,1 S2800 FP231400 14410 -0340 00 0 15715 LAS SS160 200 S2810 FP231410 | 14411 0020 00 0 14422 TRA S2910 S2820 FP231420 | 14412 0020 00 0 14420 TRA S2890 S2830 FP231430 | 14413 -0340 00 0 15716 LAS SS170 25 S2840 FP231440 | 14414 0020 00 0 14420 TRA S2890 S2850 FP231450 14415 0020 00 0 14416 TRA *+1 S2860 FP231460 | 14416 -0055 00 004000 SIL 004000 BUILD FOUR BUFFERS S2870 FP231470 | 14417 0400 00 1 15714 ADD SS150,1 S2880 FP231480 | 14420 -0055 00 002000 S2890 SIL 002000 BUILD THREE BUFFERS S2890 FP231490 | 14421 0400 00 1 15714 ADD SS150,1 S2900 FP231500 14422 0400 00 1 15714 S2910 ADD SS150,1 BUILD TWO BUFFERS S2910 FP231510 | 14423 -0054 00 000001 LFT 000001 INPUT OR OUTPUT S2920 FP231520 | 14424 0020 00 0 14430 TRA S2970 OUTPUT S2930 FP231530 | 14425 -0056 00 100000 LNT 100000 IS UNIT REQUIRED BY FP S2940 FP231540 | 14426 0020 00 0 14430 TRA S2970 NO TREAT AS OUTPUT S2950 FP231550 14427 -0055 00 200000 SIL 200000 INPUT S2960 FP231560 | 14430 0020 00 4 00001 S2970 TRA 1,4 S2970 FP231570 | 14431 0500 00 0 15714 S2980 CLA SS150 NOT ROOM FOR ONE WEIGHTED SET. S2980 FP231580 | 14432 0774 00 1 00023 AXT 19,1 IS THERE ROOM FOR ONE BUFFER PER UNITS2990 FP231590 | 14433 0400 00 1 15714 ADD SS150,1 S3000 FP231600 14434 2 00001 1 14433 TIX *-1,1,1 S3010 FP231610 | 14435 0601 00 0 15724 STO SS210 S3020 FP231620 | 14436 0560 00 0 15755 LDQ SS250 NR CELLS AVAILABLE FOR I-O BUFFERS FP231630 | 14437 -0754 00 0 00000 PXD 0,0 S3040 FP231640 | 14440 0220 00 0 15724 DVH SS210 S3050 FP231650 14441 0131 00 0 00000 XCA S3060 FP231660 | 14442 0100 00 0 14477 TZE S3300 NOT ROOM FOR ONE BUFFER PER SET S3070 FP231670 | 14443 0621 00 0 14450 STA S3120 NR OF SETS, ONE BUFFER PER UNIT S3080 FP231680 | 14444 0402 00 0 11026 SUB NMBR1 S3090 FP231690 | 14445 0100 00 0 14466 TZE S3250 ONLY ONE-WRITE INEFFICIENT MESSAGE S3100 FP231700 14446 0774 00 1 00000 S3110 AXT 0,1 S3110 FP231710 | 14447 0534 00 2 04401 LXA OBJL2,2 S3115 FP231720 | 14450 0774 00 4 00000 S3120 AXT **,4 S3120 FP231730 | 14451 -0520 00 1 15714 NZT SS150,1 S3130 FP231740 | 14452 0020 00 0 14463 TRA S3220 N/ ENTRY, GET NEXT UNIT S3140 FP231750 14453 0754 00 4 00000 PXA 0,4 S3150 FP231760 | 14454 0621 00 1 72753 STA BUSZE,1 BUILD NR OF BUFFERS ENTRY S3160 FP231770 | 14455 0754 00 2 00000 PXA 0,2 S3170 FP231780 | 14456 0621 00 1 72727 STA BULOC,1 BUILD FIRST WORD OF BUFFER LOCATION S3180 FP231790 | 1 LISTING OF 12/01/64 PAGE 477 IN-OUT (9PAC33). DIVIDE AVAILABLE CORE INTO BUFFERS | | 14457 0400 00 1 15714 ADD SS150,1 S3190 FP231800 | 14460 2 00001 4 14457 TIX *-1,4,1 S3200 FP231810 | 14461 0400 00 0 11027 ADD NMBR2 FOR BUFFER POOL CONTROL WORDS S3210 FP231820 14462 0734 00 2 00000 PAX 0,2 S2215 FP231830 | 14463 1 00001 1 14464 S3220 TXI *+1,1,1 GET NEXT UNIT S3220 FP231840 | 14464 -3 00023 1 14450 TXL S3120,1,19 FINISHED S3230 FP231850 | 14465 0020 00 0 14503 TRA S3350 YES S3240 FP231860 | 14466 0520 00 0 04662 S3250 ZET IND01 FP231870 14467 0020 00 0 14472 TRA *+3 FP231880 | 14470 0074 00 4 05646 TSX FLIST,4 FP231890 | 14471 3 00011 0 15727 PTH SS220,0,9 INEFFICIENT MESSAGE FP231900 | 14472 0074 00 4 05642 TSX NLIST,4 FP231910 | 14473 -2 00011 0 15727 SIX SS220,0,9 FP231920 14474 0 00004 0 15740 PZE SS230,0,4 PRESS START FP231930 | 14475 0074 00 4 00712 TSX (PAUSE,4 FP231940 | 14476 0020 00 0 14446 TRA S3110 FP231950 | 14477 0074 00 4 05642 S3300 TSX NLIST,4 DROP DEAD-NOT ENOUGH FP231960 | 14500 0 00011 0 15744 PZE SS240,0,9 BUFFER SPACE S3310 FP231970 14501 0074 00 4 10507 TSX T0010,4 S3319 FP231980 | 14502 -1 12346 5 00000 STR 0,5,5350 INSUFFICIENT ROOM FOR IO BUFFERS S3320 FP231990 | 14503 0074 00 4 06342 S3350 TSX TPOSIT,4 POSITION CHANGE FILE S3350 FP232000 | 14504 0 00000 0 00010 PZE 8 FP232010 | 14505 -0520 00 0 04710 NZT NOCHD WITH DICTIONARIES FP232020 14506 0020 00 0 14513 TRA *+5 YES S3410 FP232030 | 14507 0500 00 0 04521 CLA SYMTAP-8 NO. LABELED FP232040 | 14510 0120 00 0 14513 TPL *+3 MINUS IF YES S3430 FP232050 | 14511 0074 00 4 05505 TSX NDSRT,4 WEOF S3440 FP232060 | 14512 0 00007 0 00010 PZE 8,0,7 FP232070 14513 0074 00 4 12507 TSX MSYSRD,4 S3460 FP232080 | 14514 114721230304 BCI 1,9PAC34 ADASMT FP232090 | 14515 0 13230 0 26110 PZE MDC30+512,,MDC30+512-MAIN1 FP232100 | 14516 SS100 BSS 14 LABEL STORAGE SS100 FP232110 | 15664 BES 600 RECORD TABLE AREA SS105 FP232120 15664 0 00000 0 00000 SS110 PZE 0 SS110 FP232130 | 15665 250000000000 SS120 BCI 1,E00000 SS120 FP232140 | 15666 -250000030000 SS130 OCT 650000030000 RECORD TABLE SORT CODE SS130 FP232150 | 15667 +000000007000 SS135 OCT 000000007000 FP232160 | 15670 +007777000000 SS140 OCT 007777000000 SS140 FP232170 15671 DUP 1,19 SS148 FP232180 | 15671 0 00000 0 00000 PZE 0 SS149 FP232190 | 15672 0 00000 0 00000 | 15673 0 00000 0 00000 | 15674 0 00000 0 00000 15675 0 00000 0 00000 | 15676 0 00000 0 00000 | 15677 0 00000 0 00000 | 15700 0 00000 0 00000 | 15701 0 00000 0 00000 15702 0 00000 0 00000 | 15703 0 00000 0 00000 | 15704 0 00000 0 00000 | 15705 0 00000 0 00000 | 15706 0 00000 0 00000 15707 0 00000 0 00000 | 15710 0 00000 0 00000 | 1 LISTING OF 12/01/64 PAGE 478 | IN-OUT (9PAC33). DIVIDE AVAILABLE CORE INTO BUFFERS | 15711 0 00000 0 00000 | 15712 0 00000 0 00000 | 15713 0 00000 0 00000 | 15714 0 00000 0 00000 SS150 PZE 0 BLOCK SIZE +2 FOR BUFFER CONTROL WORDSS150 FP232200 | 15715 +000000000310 SS160 DEC 200 SS160 FP232210 15716 +000000000031 SS170 DEC 25 SS170 FP232220 | 15717 0 00000 0 00000 SS175 PZE 0 FOR FCB ORG SS175 FP232230 | 15720 +000000000014 SS176 DEC 12 SS176 FP232240 | 15721 0 00000 0 00000 SS180 PZE 0 NR WORDS FOR INPUT SET SS180 FP232250 | 15722 0 00000 0 00000 SS190 PZE 0 NR WORDS PER OUTPUT SET SS190 FP232260 15723 0 00000 0 00000 SS200 PZE 0 NR OUTPUT SETS SS200 FP232270 | 15724 0 00000 0 00000 SS210 PZE 0 NR WORDS IN BUFFER POOL, LESS TWO SS210 FP232280 | 15725 623124256047 SS215 BCI 2,SIDE POCKETS SS215 FP232290 | 15726 462342256362 | 15727 314525262631 SS220 BCI 7,INEFFICIENT I-O. ROOM FOR ONLY ONE BUFFER FP232300 15730 233125456360 | 15731 314046336051 | 15732 464644602646 | 15733 516046454370 | 15734 604645256022 15735 642626255160 | 15736 472551606445 BCI 2,PER UNIT FP232310 | 15737 316360606060 | 15740 604751256262 SS230 BCI 4, PRESS START TO PROCEED SS230 FP232320 | 15741 606263215163 15742 606346604751 | 15743 462325252460 | 15744 602725452551 SS240 BCI 6, GENERATOR LIMITATION-NOT ENOUGH SPA SS240 FP232330 | 15745 216346516043 | 15746 314431632163 15747 314645404546 | 15750 636025454664 | 15751 273060624721 | 15752 232560264651 BCI 3,CE FOR I-O BUFFERS SS245 FP232340 | 15753 603140466022 15754 642626255162 | 15755 0 00000 0 00000 SS250 PZE 0 AVAIL SS250 FP232350 | 15756 0 00000 0 00050 BUFCW PZE 40 NR BUFFER CONTROL WORDS FP232360 | 16123 INOUT BES 100 FP232370 | 00000 TCD 0 FP232380 1 LISTING OF 12/01/64 PAGE 479 | IN-OUT (9PAC33). DIVIDE AVAILABLE CORE INTO BUFFERS | | * FP232400 | 1 LISTING OF 12/01/64 PAGE 480 ASMBLY (9PAC34). | | * FP232420 | * FP232430 | 12660 ORG MAIN1 FOR ASMBLY-ADASMT FP232450 12660 114721230304 BCI 1,9PAC34 ASMBLY FP232460 | * FP232470 | * FP232480 | 12661 216244224370 MD000 BCI 1,ASMBLY MD000 FP232490 | 00100 ORG SYSTRA FP232500 00100 0020 00 0 13633 TRA MA001 TO ADASMT FP232510 | 12662 ORG MAIN1+2 FP232520 | 12662 -0520 00 0 04660 MD380 NZT PCHIND IS OBJ.PUNCH REQUIRED MD380 FP232530 | 12663 0020 00 0 12703 TRA MD391 MD381 FP232540 | 12664 -0500 00 0 12732 CAL MD395 MD382 FP232550 12665 0402 00 0 04400 SUB OBJL1 MD383 FP232560 | 12666 0767 00 0 00022 ALS 18 MD384 FP232570 | 12667 -0501 00 0 04400 ORA OBJL1 MD385 FP232580 | 12670 0074 00 4 12733 TSX MX062,4 MD386 FP232590 | 12671 -0500 00 0 12730 CAL MD393 OBJECT LIMITS FP232600 12672 0074 00 4 12733 TSX MX062,4 FP232610 | 12673 -0500 00 0 12731 CAL MD394 WRITE TRA CARD FP232620 | 12674 0074 00 4 13052 TSX MX125,4 FP232630 | 12675 0074 00 4 05255 TSX RD(WR),4 WRITE *END CARD FP232640 | 12676 -0 13071 0 00026 FOR 22,,AMY23 FP232650 12677 0020 00 0 12701 TRA *+2 FP232660 | 12700 0074 00 4 05526 TSX EOTSW,4 FP232670 | 12701 0074 00 4 05505 TSX NDSRT,4 WRITE EOF ON PUNCH TAPE FP232680 | 12702 0 00007 0 00026 PZE 22,,7 FP232690 | 12703 -0500 00 0 12731 MD391 CAL MD394 MD3910FP232700 12704 0621 00 0 05033 STA STOBJ FP232710 | 12705 0074 00 4 05505 TSX NDSRT,4 FP232720 | 12706 0 00003 0 00007 PZE 7,,3 FP232730 | 12707 0074 00 4 05505 TSX NDSRT,4 FP232740 | 12710 0 00003 0 00010 PZE 8,,3 FP232750 12711 -0500 00 0 13547 CAL MJC30 IF DICTIONARIES WERE NOT FP232760 | 12712 0520 00 0 04710 ZET NOCHD REQUESTED FOR OUTPUT, MASK FP232770 | 12713 0320 00 0 04521 ANS SYMTAP-8 SYMTAP ENTRIES FP232780 | 12714 -0520 00 0 04707 NZT NOSFD FP232790 | 12715 0020 00 0 12725 TRA MD392 YES, DICT WANTED ON FILE 7 FP232800 12716 0320 00 0 04522 ANS SYMTAP-7 NO DICT ON FILE 7 FP232810 | 12717 0500 00 0 04522 CLA SYMTAP-7 IS FILE 7 LABELED FP232820 | 12720 0120 00 0 12725 TPL MD392 NO FP232830 | 12721 0074 00 4 06342 TSX TPOSIT,4 YES. POSITION TO START OF DICT FP232840 | 12722 0 00000 0 00007 PZE 7 FP232850 12723 0074 00 4 05505 TSX NDSRT,4 WRITE AN EOF FP232860 | 12724 0 00007 0 00007 PZE 7,,7 FP232870 | 12725 0074 00 4 12507 MD392 TSX MSYSRD,4 FP232880 | 12726 114721230102 BCI 1,9PAC12 FP232890 | 12727 0 04062 0 23636 PZE DXIFPF,,DXIFPF-BKSPC-2 FP232900 12730 0 00006 0 04400 MD393 PZE OBJL1,,6 FP232910 | 12731 0 00000 0 00000 MD394 PZE .. ADDR TO START GENERATED PROGRAM MD394 FP232920 | 12732 0 00000 0 73000 MD395 PZE SORTT UPPER LIMIT, PUNCH MD395 FP232930 | * FP232940 | *THIS ROUTINE WILL WRITE BINARY CARD IMAGES FOR SUBSEQUENT PUNCHING FP232950 * FP232960 | * THE CALLING SEQUENCE IS FP232970 | 1 LISTING OF 12/01/64 PAGE 481 | ASMBLY (9PAC34). | * CAL STARTING ADDRESS,,COUNT FP232980 | * TSX MX062,4 FP232990 | * FP233000 | *THE FORMAT OF THE RECORDS IS FP233010 | * WD1 COL BIN IND IN BITS 9-11 FP233020 * COUNT IN BITS 12-18 FP233030 | * LOADING ADDRESS IN BITS 21-35 FP233040 | * WD2 CHECKSUM FP233050 | * WD3-N PROGRAM INSTRUCTIONS OR STORAGE FP233060 | * WDN-24 ZEROS FP233070 * WD25-27 SERIALS--(HOLLERITH WHEN PUNCHED) FP233080 | * FP233090 | *A COMPLETE CARD OF ZEROS WILL NOT BE PUNCHED FP233100 | * FP233110 | 12733 0634 00 1 13006 MX062 SXA MX100,1 FP233120 12734 0634 00 2 13007 SXA MX100+1,2 FP233130 | 12735 0634 00 4 13010 SXA MX100+2,4 FP233140 | 12736 0600 00 0 13016 STZ MX114 INIT FOR FULL CARD FP233150 | 12737 -0734 00 1 00000 PDX 0,1 FP233160 | 12740 0621 00 0 12766 STA MX088 INIT FIRST LOAD ADDRESS FP233170 12741 2 00026 1 12746 MX068 TIX MX073,1,22 FULL CARD TEST FP233180 | 12742 -0625 00 0 13016 STL MX114 FP233190 | 12743 0754 00 1 00000 PXA 0,1 FP233200 | 12744 0734 00 2 00000 PAX 0,2 LESS THAN FULL COUNT FP233210 | 12745 0020 00 0 12747 TRA *+2 FP233220 12746 0774 00 2 00026 MX073 AXT 22,2 FULL COUNT FP233230 | 12747 0634 00 2 13021 SXA MX117,2 FP233240 | 12750 -0500 00 0 12766 CAL MX088 FP233250 | 12751 0621 00 0 13013 STA MX111 SET FIRST WORD ADDR FP233260 | 12752 0621 00 0 13022 STA MX118 SET FIRST WORD ADDR FP233270 12753 0401 00 0 13021 ADM MX117 FP233280 | 12754 0621 00 0 12766 STA MX088 SET NEXT FIRST WORD ADDR FP233290 | 12755 -0754 00 2 00000 PXD 0,2 FP233300 | 12756 0622 00 0 13013 STD MX111 FP233310 | 12757 -0760 00 0 00003 SSM FP233320 12760 0400 00 0 13017 ADD MX115 FP233330 | 12761 0622 00 0 13014 STD MX112 SET COUNT OF PADDING ZEROS FP233340 | 12762 -0754 00 2 00000 PXD 0,2 FP233350 | 12763 -0501 00 0 13020 ORA MX116 FP233360 | 12764 0622 00 0 13022 STD MX118 COUNT TO WORD 1 OF CARD FP233370 12765 -0500 00 0 13022 CAL MX118 DEVELOP CHECKSUM FP233380 | 12766 0361 00 2 00000 MX088 ACL **,2 FP233390 | 12767 2 00001 2 12766 TIX *-1,2,1 FP233400 | 12770 0602 00 0 13023 SLW MX119 FP233410 | 12771 0322 00 0 13022 ERA MX118 FP233420 12772 -0100 00 0 13000 TNZ MX090 WRITE,IF CARD NOT ALL ZEROS FP233430 | 12773 0534 00 2 13021 LXA MX117,2 CARD MAY BE ALL ZEROS. CHECK EACH FP233440 | 12774 0520 60 0 12766 ZET* MX088 LOCATION. FP233450 | 12775 0020 00 0 13000 TRA MX090 NOT ALL ZEROS WRITE IT FP233460 | 12776 2 00001 2 12774 TIX *-2,2,1 TRY AGAIN FP233470 12777 0020 00 0 13004 TRA MX098 FP233480 | 13000 0074 00 4 05255 MX090 TSX RD(WR),4 $WRITE A BINARY CARD FP233490 | 13001 -0 13012 0 00026 FOR 22,,MX110 ON THIS PUNCH UNIT FP233500 | 13002 0020 00 0 13004 TRA *+2 OK FP233510 | 13003 0074 00 4 05526 TSX EOTSW,4 EOT FP233520 1 LISTING OF 12/01/64 PAGE 482 | ASMBLY (9PAC34). | | 13004 -0520 00 0 13016 MX098 NZT MX114 TEST FOR MORE FP233530 | 13005 0020 00 0 12741 TRA MX068 FP233540 13006 0774 00 1 00000 MX100 AXT **,1 FP233550 | 13007 0774 00 2 00000 AXT **,2 FP233560 | 13010 0774 00 4 00000 AXT **,4 FP233570 | 13011 0020 00 4 00001 TRA 1,4 FP233580 | 13012 -0 00002 0 13022 MX110 IOCP MX118,,2 FP233590 13013 -0 00000 0 00000 MX111 IOCP **,,** FWA,,CT FP233600 | 13014 -0 00000 0 13024 MX112 IOCP MX120,,** 22-CT FP233610 | 13015 -1 00003 0 06553 MX113 IOCT KME70,,3 SERIALS FP233620 | 13016 0 00000 0 00000 MX114 PZE 0 FULL CARD SWITCH FP233630 | 13017 +000026000000 MX115 OCT 000026000000 MX115 FP233640 13020 +000500000000 MX116 OCT 000500000000 FP233650 | 13021 0 00000 0 00000 MX117 PZE 0 COUNT THIS CARD FP233660 | 13022 0 00000 0 00000 MX118 PZE 0 FIRST WORD STORAGE FP233670 | 13023 0 00000 0 00000 MX119 PZE 0 SECOND WORD-CHECKSUM FP233680 | 13024 MX120 BSS 22 ZEROS FOR PADDING FP233690 * FP233700 | *THE FOLLOWING ROUTINE PUNCHES A CARD TO SIGNAL THE BINARY LOADER FP233710 | * TO START EXECUTION FP233720 | * FP233730 | *THE CALLING SEQUENCE IS FP233740 * CAL A WHERE ADDRESS OF A CONTAINS FP233750 | * TSX MX125,4 LOCATION TO START EXECUTION FP233760 | * RETURN FP233770 | * FP233780 | 13052 0634 00 4 13060 MX125 SXA MX126,4 FP233790 13053 0621 00 0 13062 STA MX127 FP233800 | 13054 0074 00 4 05255 TSX RD(WR),4 FP233810 | 13055 -0 13063 0 00026 FOR 22,,MX128 FP233820 | 13056 0020 00 0 13060 TRA *+2 FP233830 | 13057 0074 00 4 05526 TSX EOTSW,4 FP233840 13060 0774 00 4 00000 MX126 AXT **,4 FP233850 | 13061 0020 00 4 00001 TRA 1,4 FP233860 | * FP233870 | * FP233880 | 13062 +000500000000 MX127 OCT 000500000000 FP233890 13063 -0 00001 0 13062 MX128 IOCP MX127,,1 FP233900 | 13064 -0 00012 0 13024 IOCP MX120,,10 FP233910 | 13065 -0 00015 0 13024 IOCP MX120,,13 FP233920 | 13066 -1 00003 0 06553 IOCT KME70,,3 FP233930 | * FP233940 13067 +000500000000 AMY22 OCT 000500000000 FP233950 | 13070 542545246060 BCI 1,*END FP233960 | 13071 -0 00002 0 13067 AMY23 IOCP AMY22,,2 FP233970 | 13072 -0 00026 0 13024 IOCP MX120,,22 FP233980 | 13073 -1 00003 0 06553 IOCT KME70,,3 FP233990 * FP234000 | 13074 216244224370 MJ001 BCI 1,ASMBLY MJ001 FP234010 | 13075 0774 00 4 00074 MJ010 AXT 60,4 CONYUETE STARTING MJ010 FP234020 | 13076 0502 00 0 13441 CLS MDB85+1 1STMJ011 FP234030 | 13077 0771 00 0 00022 ARS 18 2NDMJ011 FP234040 13100 0400 00 0 13420 ADD MJA05 1STMJ012 FP234050 | 13101 0621 00 0 13441 STA MDB85+1 2NDMJ012 FP234060 | 13102 0500 00 0 11374 CLA HPCSW MJ0123FP234070 | 1 LISTING OF 12/01/64 PAGE 483 | ASMBLY (9PAC34). | 13103 0120 00 0 13136 TPL MJ170 4THMJ012 FP234080 | 13104 -0520 00 4 13536 MJ013 NZT MDB85+62,4 POINTS FOR SEL BLOCKS MJ013 FP234090 | 13105 0020 00 0 13120 TRA MJ023 MJ014 FP234100 | 13106 0502 00 4 13537 CLS MDB85+63,4 MJ015 FP234110 13107 0100 00 0 13116 TZE MJ022 MJ016 FP234120 | 13110 0771 00 0 00022 ARS 18 MJ017 FP234130 | 13111 0400 00 4 13535 ADD MDB85+61,4 MJ018 FP234140 | 13112 0621 00 4 13537 STA MDB85+63,4 MJ019 FP234150 | 13113 2 00002 4 13104 TIX MJ013,4,2 MJ020 FP234160 13114 0074 00 4 10507 TSX T0010,4 MJ021 FP234170 | 13115 -1 10530 4 00000 STR 0,4,4440 ERROR IN SEL TABLE FOR PREPRO MJ021 FP234180 | 13116 0074 00 4 10507 MJ022 TSX T0010,4 MJ022 FP234190 | 13117 -1 10542 4 00000 STR 0,4,4450 SEL HORIZ ZERO TABLE ENTRY MJ022 FP234200 | 13120 0500 00 4 13535 MJ023 CLA MDB85+61,4 MJ023 FP234210 13121 0402 00 0 13415 SUB MJA02 MJ024 FP234220 | 13122 0621 00 4 13537 STA MDB85+63,4 MJ025 FP234230 | 13123 0402 00 0 13415 SUB MJA02 MJ026 FP234240 | 13124 0621 00 0 13414 STA MJA01 MJ029 FP234250 | 13125 0402 00 0 13421 SUB MJA06 MJ030 FP234260 13126 0120 00 0 13131 TPL *+3 MJ031 FP234270 | 13127 0074 00 4 10507 TSX T0010,4 MJ032 FP234280 | 13130 -1 10554 4 00000 STR 0,4,4460 INVALID SELECT STARTING POINT MJ032 FP234290 | 13131 0074 00 4 06342 TSX TPOSIT,4 POSITION TO RECORDED POSITION, MJ033 FP234300 | 13132 -3 00000 0 00032 SVN 26 TO READ HORIZ SEL MJ034 FP234310 13133 0074 00 4 05255 MJ040 TSX RD(WR),4 MJ040 FP234320 | 13134 0 16134 0 00032 PZE 26,0,MDA10 MJ050 FP234330 | 13135 0020 00 0 13171 TRA MJ280 MJ060 FP234340 | 13136 -0500 00 0 13414 MJ170 CAL MJA01 MJ170 FP234350 | 13137 0621 00 0 72450 STA PAA40 MJ232 FP234360 13140 0737 00 4 00000 PAC 0,4 MJ233 FP234370 | 13141 -0500 00 0 13426 CAL MJA11 MJ234 FP234380 | 13142 0602 00 4 00001 SLW 1,4 MJ235 FP234390 | 13143 -0500 00 0 13441 CAL MDB85+1 MJ240 FP234400 | 13144 0621 00 0 72451 STA PR411 FORM SELECT TR TO PP MJ241 FP234410 13145 -0520 00 0 04660 NZT PCHIND FP234420 | 13146 0020 00 0 13166 TRA MJ270 FP234430 | 13147 -0500 00 0 13536 CAL MJC10 PUNCH PART OF MAIN1 FP234440 | 13150 0074 00 4 12733 TSX MX062,4 FP234450 | 13151 -0500 00 0 13537 CAL MJC11 PUNCH GENERATED PREPRO FP234460 13152 0402 00 0 72450 SUB PAA40 FP234470 | 13153 0767 00 0 00022 ALS 18 FP234480 | 13154 -0501 00 0 72450 ORA PAA40 FP234490 | 13155 0074 00 4 12733 TSX MX062,4 FP234500 | 13156 -0500 00 0 13540 CAL MJC12 PUNCH TABLES FP234510 13157 0074 00 4 12733 TSX MX062,4 FP234520 | 13160 -0500 00 0 13541 CAL MJC15 FP234530 | 13161 0074 00 4 13052 TSX MX125,4 PUNCH TRA FP234540 | 13162 0074 00 4 05255 TSX RD(WR),4 FP234550 | 13163 -0 13544 0 00026 FOR 22,,MJC25 FP234560 13164 0020 00 0 13166 TRA *+2 FP234570 | 13165 0074 00 4 05526 TSX EOTSW,4 FP234580 | 13166 0074 00 4 12507 MJ270 TSX MSYSRD,4 MJ270 FP234590 | 13167 114721230105 BCI 1,9PAC15 HOR PREPRE FP234600 | 13170 0 27701 0 43535 PZE PAA20,,PAA20-PA001 FP234610 13171 0074 00 4 05255 MJ280 TSX RD(WR),4 CONTINUE PRE-PRO ASSEMBLY MJ280 FP234620 | 1 LISTING OF 12/01/64 PAGE 484 | ASMBLY (9PAC34). | | 13172 0 16215 0 00032 PZE 26,0,MDB95 MJ290 FP234630 13173 0020 00 0 13175 TRA *+2 MJ295 FP234640 | 13174 0020 00 0 13200 TRA MJ335 MJ300 FP234650 | 13175 0074 00 4 05255 TSX RD(WR),4 MJ310 FP234660 | 13176 0 16216 0 00032 PZE 26,0,MDB96 MJ320 FP234670 | 13177 0020 00 0 13202 TRA *+3 MJ330 FP234680 13200 0074 00 4 10507 MJ335 TSX T0010,4 MJ335 FP234690 | 13201 -1 07751 4 00000 STR 0,4,4073 EOF NOT EXPECTED ON SCRATCH 3 MJ340 FP234700 | 13202 -0500 00 0 16207 CAL MDB89 ANALZE ATBL1 ENTRIES MJ430 FP234710 | 13203 0400 00 0 23141 ADD MDC20+1 FOR PP SEL. MJ440 FP234720 | 13204 0621 00 0 13207 STA MJ480 MJ450 FP234730 13205 0534 00 1 23141 LXA MDC20+1,1 MJ460 FP234740 | 13206 -3 00000 1 13274 TXL MJ930,1,0 MJ470 FP234750 | 13207 0500 00 1 00000 MJ480 CLA 0,1 MJ480 FP234760 | 13210 0120 00 0 13213 TPL *+3 MJ490 FP234770 | 13211 -0625 00 0 16170 STL MDB72 TEST SIGN MJ500 FP234780 13212 0020 00 0 13214 TRA *+2 MJ510 FP234790 | 13213 0600 00 0 16170 STZ MDB72 MJ520 FP234800 | 13214 -0320 00 0 11020 ANA BCD73 MJ521 FP234810 | 13215 0621 00 0 16172 STA MDB74 MJ522 FP234820 | 13216 -0765 00 0 00030 LGR 24 MJ530 FP234830 13217 0621 00 0 16171 STA MDB73 UD CNT MJ540 FP234840 | 13220 0400 00 0 16164 ADD MDB62 MJ550 FP234850 | 13221 0621 00 0 16167 STA MDB71 MJ560 FP234860 | 13222 0754 00 0 00000 PXA 0,0 MJ570 FP234870 | 13223 -0763 00 0 00006 LGL 6 MJ580 FP234880 13224 -0340 00 0 16173 LAS MDB75 MJ590 FP234890 | 13225 0020 00 0 13246 TRA MJ740 MJ600 FP234900 | 13226 0020 00 0 13231 TRA *+3 IS OCT 70 CODE MJ610 FP234910 | 13227 0074 00 4 10507 TSX T0010,4 MJ619 FP234920 | 13230 -1 11067 4 00000 STR 0,4,4663 INVALID MADDR CODE(LESS THAN 70) MJ620 FP234930 13231 0500 00 0 17136 CLA MDC10 IS 70 MJ630 FP234940 | 13232 0074 00 4 13377 TSX MS010,4 SEARCH SUB-SORT TABLE MJ640 FP234950 | 13233 0400 00 0 16171 ADD MDB73 MJ650 FP234960 | 13234 0402 00 0 16143 SUB MDA70 MJ660 FP234970 | 13235 0520 00 0 16170 ZET MDB72 MJ670 FP234980 13236 0020 00 0 13241 TRA *+3 MJ680 FP234990 | 13237 0400 00 0 16172 ADD MDB74 MJ690 FP235000 | 13240 0020 00 0 13242 TRA *+2 MJ700 FP235010 | 13241 0402 00 0 16172 SUB MDB74 MJ710 FP235020 | 13242 0621 60 0 16167 STA* MDB71 MJ720 FP235030 13243 0020 00 0 13274 TRA MJ930 TO TEST ATBL1 LIMIT MJ730 FP235040 | 13244 0074 00 4 10507 MJ735 TSX T0010,4 FP235050 | 13245 -1 11070 4 00000 STR 0,4,4664 INVALID MADDR CODE (GR THAN 72) FP235060 | 13246 -0340 00 0 16175 MJ740 LAS MDB77 72 MJ740 FP235070 | 13247 0020 00 0 13244 TRA MJ735 MJ750 FP235080 13250 0020 00 0 13257 TRA MJ830 INVALID OCT MADDR CODE MJ760 FP235090 | 13251 -0500 00 0 25110 CAL MDC30 MJ770 FP235100 | 13252 0074 00 4 13377 TSX MS010,4 MJ780 FP235110 | 13253 0400 00 0 16172 ADD MDB74 MJ790 FP235120 | 13254 0402 00 0 16143 SUB MDA70 1 MJ800 FP235130 13255 0621 60 0 16167 STA* MDB71 MJ810 FP235140 | 13256 0020 00 0 13274 TRA MJ930 TO TEST ATBL1 LIMIT MJ820 FP235150 | 13257 -0500 00 0 16172 MJ830 CAL MDB74 IS 72 MJ830 FP235160 | 13260 -3 00001 1 13274 TXL MJ930,1,1 MJ831 FP235170 | 1 LISTING OF 12/01/64 PAGE 485 ASMBLY (9PAC34). | | 13261 -0340 00 0 16177 LAS MDB80 MJ840 FP235180 | 13262 0020 00 0 13264 TRA *+2 MJ850 FP235190 | 13263 0020 00 0 13266 TRA *+3 MJ860 FP235200 13264 0074 00 4 10507 TSX T0010,4 MJ869 FP235210 | 13265 -1 10600 4 00000 STR 0,4,4480 SEL HAS GADDR CODE OTHER THAN 3 MJ870 FP235220 | 13266 -0500 00 0 17136 CAL MDC10 MJ871 FP235230 | 13267 0074 00 4 13377 TSX MS010,4 MJ872 FP235240 | 13270 0534 00 4 13413 LXA MS120,4 LOOK FOR NEXT SEL MJ880 FP235250 13271 1 77773 4 13272 TXI *+1,4,-5 MJ890 FP235260 | 13272 -0500 00 4 13536 CAL MDB85+62,4 MJ900 FP235270 | 13273 0621 60 0 16167 STA* MDB71 MJ910 FP235280 | 13274 2 00001 1 13207 MJ930 TIX MJ480,1,1 MJ930 FP235290 | 13275 -0500 00 0 25110 CAL MDC30 MJ940 FP235300 13276 0074 00 4 13377 TSX MS010,4 MJ950 FP235310 | 13277 0400 00 0 25111 ADD MDC30+1 MJ960 FP235320 | 13300 0621 00 0 13306 STA MK040 MJ970 FP235330 | 13301 -0500 00 0 13422 CAL MJA07 MJ980 FP235340 | 13302 0400 00 0 25111 ADD MDC30+1 MJ990 FP235350 13303 0621 00 0 13305 STA MK030 MK010 FP235360 | 13304 0534 00 4 25111 LXA MDC30+1,4 MK020 FP235370 | 13305 -0500 00 4 00000 MK030 CAL 0,4 MK030 FP235380 | 13306 0602 00 4 00000 MK040 SLW 0,4 MK040 FP235390 | 13307 2 00001 4 13305 TIX *-2,4,1 MK050 FP235400 13310 -0500 00 0 17136 CAL MDC10 MK060 FP235410 | 13311 0074 00 4 13377 TSX MS010,4 MK070 FP235420 | 13312 0400 00 0 17137 ADD MDC10+1 MK080 FP235430 | 13313 0621 00 0 13321 STA MK160 MK090 FP235440 | 13314 -0500 00 0 13423 CAL MJA08 MK100 FP235450 13315 0400 00 0 17137 ADD MDC10+1 MK110 FP235460 | 13316 0621 00 0 13320 STA MK150 MK120 FP235470 | 13317 0534 00 4 17137 LXA MDC10+1,4 MK130 FP235480 | 13320 -0500 00 4 00000 MK150 CAL 0,4 MK140 FP235490 | 13321 0602 00 4 00000 MK160 SLW 0,4 MK150 FP235500 13322 2 00001 4 13320 TIX *-2,4,1 MK160 FP235510 | 13323 -0500 00 0 13424 CAL MJA09 MOVE TSX MK170 FP235520 | 13324 0522 00 0 13321 XEC MK160 MK180 FP235530 | 13325 0020 00 0 13133 TRA MJ040 TO READ IN NEXT PP BLOCK MK190 FP235540 | 13326 0074 00 4 05255 MM000 TSX RD(WR),4 POSITION MASTER OUT MM000 FP235550 13327 2 13417 0 00007 PTW 7,,MJA04 PAST DICT MM005 FP235560 | 13330 0020 00 0 13326 TRA *-2 MM010 FP235570 | 13331 0774 00 1 00031 AXT 25,1 MM015 FP235580 | 13332 -0500 00 0 04500 CAL SYMTAP-25 MM020 FP235590 | 13333 0074 00 2 06474 TSX SETDEN,2 MM030 FP235600 13334 0074 00 4 05255 TSX RD(WR),4 AND RECORDED EOF MM040 FP235610 | 13335 0 13417 0 00031 PZE 25,,MJA04 MM050 FP235620 | 13336 0074 00 4 04000 TSX LOST,4 MM060 FP235630 | 13337 0074 00 4 06342 MM070 TSX TPOSIT,4 MM070 FP235640 | 13340 -3 00000 0 00031 SVN 25 MM080 FP235650 13341 0074 00 4 05255 MM090 TSX RD(WR),4 BRING IN FINAL OBJ PROG MM090 FP235660 | 13342 0 13430 0 00031 PZE 25,0,MJB20 MM100 FP235670 | 13343 0020 00 0 13341 TRA MM090 MM110 FP235680 | 13344 -0500 00 0 04402 MM180 CAL OBJL3 MM180 FP235690 | 13345 0621 00 0 13350 STA *+3 MM185 FP235700 13346 0402 00 0 04401 SUB OBJL2 MM190 FP235710 | 13347 0734 00 4 00000 PAX 0,4 MM195 FP235720 | 1 LISTING OF 12/01/64 PAGE 486 | ASMBLY (9PAC34). | 13350 0600 00 4 00000 STZ **,4 ZERO I/O BUFFERS MM200 FP235730 | 13351 2 00001 4 13350 TIX *-1,4,1 MM201 FP235740 | 13352 -0500 00 0 04404 CAL OBJL5 MM205 FP235750 | 13353 0621 00 0 13356 STA *+3 MM210 FP235760 | 13354 0402 00 0 04400 SUB OBJL1 MM215 FP235770 13355 0734 00 4 00000 PAX 0,4 MM220 FP235780 | 13356 0600 00 4 00000 STZ **,4 ZERO PRIORITY SWITCHES AND MM225 FP235790 | 13357 2 00001 4 13356 TIX *-1,4,1 SEQUENCING BUFFERS MM226 FP235800 | * MM230 FP235810 | 13360 0774 00 1 00106 AXT MGZE,1 PRESET SUMMARY SEQUENING BUFFERS MM231 FP235820 13361 0500 00 1 72565 MM232 CLA MGTBL+MGZE+1,1 MM232 FP235830 | 13362 0120 00 0 13374 TPL MM239 MM233 FP235840 | 13363 -0500 00 1 72564 CAL MGTBL+MGZE,1 MM234 FP235850 | 13364 0402 00 0 13415 SUB MJA02 1 MM235 FP235860 | 13365 0621 00 0 13372 STA *+5 MM236 FP235870 13366 0534 00 4 72455 LXA Y1002,4 MM237 FP235880 | 13367 1 77777 4 13370 TXI *+1,4,-1 MM238 FP235890 | 13370 0760 00 0 00000 CLM 0 MM2390FP235900 | 13371 0760 00 0 00006 COM 0 MM2391FP235910 | 13372 0602 00 4 00000 SLW 0,4 MM2392FP235920 13373 2 00001 4 13372 TIX *-1,4,1 MM2393FP235930 | 13374 2 00002 1 13361 MM239 TIX MM232,1,2 MM2394FP235940 | 13375 0761 00 0 00000 NOP POSSIBLE LINK TO CLOCK MM2397FP235950 | 13376 0020 00 0 12662 MM240 TRA MD380 MM240 FP235960 | 13377 0634 00 4 13411 MS010 SXA MS100,4 MS010 FP235970 13400 0774 00 4 00076 AXT 62,4 MS020 FP235980 | 13401 -0340 00 4 13536 LAS MDB85+62,4 MS030 FP235990 | 13402 0020 00 0 13404 TRA *+2 MS040 FP236000 | 13403 0020 00 0 13407 TRA *+4 MS050 FP236010 | 13404 2 00002 4 13401 TIX *-3,4,2 MS060 FP236020 13405 0074 00 4 10507 TSX T0010,4 MS069 FP236030 | 13406 -1 10612 4 00000 STR 0,4,4490 SORT CODE NOT FOUND IN SUB SORT TBL MS070 FP236040 | 13407 -0500 00 4 13537 CAL MDB85+63,4 MS080 FP236050 | 13410 0634 00 4 13413 SXA MS120,4 MS090 FP236060 | 13411 0774 00 4 00000 MS100 AXT 0,4 MS100 FP236070 13412 0020 00 4 00001 TRA 1,4 MS110 FP236080 | 13413 0 00000 0 00000 MS120 PZE 0 MS120 FP236090 | 13414 0 00000 0 71543 MJA01 PZE OBSUM-2 MJA01 FP236100 | 13415 0 00000 0 00001 MJA02 PZE 1 MJA02 FP236110 | 13416 3 02302 0 13630 MJA03 IORT ASMBL-2,0,PREPR-ASMBL+2 MJA03 FP236120 13417 3 00003 2 13417 MJA04 IORTN *,,3 MJA04 FP236130 | 13420 0 00000 0 71543 MJA05 PZE OBSUM-2 MJA05 FP236140 | 13421 0 00000 0 26073 MJA06 PZE MDC30+499 MJA06 FP236150 | 13422 0 00000 0 25112 MJA07 PZE MDC30+2 MJA07 FP236160 | 13423 0 00000 0 17140 MJA08 PZE MDC10+2 MJA08 FP236170 13424 0074 00 4 14176 MJA09 TSX PR420,4 MJA09 FP236180 | 13425 0 00000 0 00002 MJA10 PZE 2 MJA10 FP236190 | 13426 0020 00 0 14107 MJA11 TRA PR010 MJA11 FP236200 | 13427 0761 00 0 00000 MJB10 NOP 0 MJB10 FP236210 | 13430 -0 00003 0 13431 MJB20 IOCP *+1,0,3 MJB20 FP236220 13434 MJB30 BES 3 MJB30 FP236230 | 13434 602725452551 MJB40 BCI 4, GENERATION COMPLETE MJB40 FP236240 | 13435 216331464560 | 13436 234644474325 | 13437 632560606060 1 LISTING OF 12/01/64 PAGE 487 | ASMBLY (9PAC34). | | 13440 MDB85 BSS 62 FP236250 | 13536 0 01623 0 07570 MJC10 PZE B0010,,NEWSW+1-B0010 FP236260 13537 0 00000 0 71545 MJC11 PZE TBLOC FP236270 | 13540 0 00705 0 71545 MJC12 PZE OBSUM,,SMZE FP236280 | 13541 0 00000 0 04752 MJC15 PZE SYSRD FP236290 | 13542 +000500000000 MJC20 OCT 000500000000 FP236300 | 13543 542545246060 MJC21 BCI 1,*END FP236310 13544 -0 00002 0 13542 MJC25 IOCP MJC20,,2 FP236320 | 13545 -0 00026 0 13024 IOCP MX120,,22 FP236330 | 13546 -1 00003 0 06553 IOCT KME70,,3 FP236340 | 13547 -377777377777 MJC30 OCT 777777377777 TO MASK OUT DICT ZIGGER IN SYMTAP FP236350 | 13632 ASMBL BES 50 FP236360 1 LISTING OF 12/01/64 PAGE 488 | ASMBLY (9PAC34). | | * FP236380 | 1 LISTING OF 12/01/64 PAGE 489 ADASMT (9PAC34). ADDRESS ASSIGNMENT | | * FP236400 | * FP236410 | * FP236420 * FP236430 | * FP236440 | 13632 212421624463 BCI 1,ADASMT FP236450 | 13633 0441 00 0 11025 MA001 LDI NMBR0 MA001 FP236460 | 13634 -0520 00 0 04661 NZT LSTIND FP236470 13635 0020 00 0 13652 TRA MA030 MA002 FP236480 | 13636 0074 00 4 05642 TSX NLIST,4 FP236490 | 13637 0 00006 0 16314 PZE MDC02,,6 FP236500 | 13640 0074 00 4 00712 TSX (PAUSE,4 FP236510 | 13641 0760 00 0 00004 ENK FP236520 13642 -0130 00 0 00000 XCL FP236530 | 13643 -0320 00 0 15452 ANA MTB51 TAKE OUT SIGN FP236540 | 13644 0044 00 0 00000 PAI MA006 FP236550 | 13645 0100 00 0 13652 TZE MA030 MA007 FP236560 | 13646 0774 00 4 13766 AXT MD171,4 MA0070FP236570 13647 0634 00 4 13765 SXA MD150,4 MA0070FP236580 | 13650 0774 00 4 14727 AXT MT010,4 MA008 FP236590 | 13651 0634 00 4 14214 SXA ME590,4 MA009 FP236600 | 13652 0074 00 2 04764 MA030 TSX BSFSYS,2 BACK SYSTEM TO 9PAC15 MA030 FP236610 | 13653 0074 00 2 04764 TSX BSFSYS,2 FP236620 13654 0074 00 2 04771 TSX BSRSYS,2 THIS PUTS TAPE AT HOR PREPRO FP236630 | 13655 0774 00 4 00062 AXT SNZE,4 MA050 FP236640 | 13656 -0500 00 4 67543 CAL SNTRY+SNZE,4 MA060 FP236650 | 13657 0602 00 4 16304 SLW MDC00+SNZE,4 MA070 FP236660 | 13660 2 00001 4 13656 TIX *-2,4,1 MA080 FP236670 13661 0520 00 0 04406 ZET FPRGSW MA090 FP236680 | 13662 0020 00 0 13667 TRA MA150 MA100 FP236690 | *POSITION B7 MA109 FP236700 | 13663 0074 00 4 06342 TSX TPOSIT,4 POSITION TO START OF TEXT MA110 FP236710 | 13664 1 00000 0 00007 PON 7 MA120 FP236720 13665 0074 00 4 06342 TSX TPOSIT,4 RECORD POSITION MA130 FP236730 | 13666 -0 00000 0 00031 FOR 25 MA140 FP236740 | 13667 0074 00 4 06342 MA150 TSX TPOSIT,4 MA150 FP236750 | 13670 1 00000 0 00010 PON 8 FP236760 | 13671 0074 00 4 06342 TSX TPOSIT,4 MA170 FP236770 13672 -0 00000 0 00032 FOR 26 MA180 FP236780 | 13673 -0500 00 0 11755 MA320 CAL M0930 MA320 FP236790 | 13674 -0320 00 0 11410 ANA AAAAA MA330 FP236800 | 13675 0734 00 4 00000 PAX 0,4 SORT SORTT MA340 FP236810 | 13676 0400 00 0 16131 ADD MAA01 MA350 FP236820 13677 0621 00 0 13705 MA360 STA MA420 MA360 FP236830 | 13700 0402 00 0 16132 SUB MAA02 MA370 FP236840 | 13701 0621 00 0 13704 STA MA410 MA380 FP236850 | 13702 -2 00002 4 13725 TNX MD010,4,2 MA390 FP236860 | 13703 0634 00 4 16133 SXA MAA03,4 MA400 FP236870 13704 -0500 00 4 00000 MA410 CAL 0,4 MA410 FP236880 | 13705 -0340 00 4 00000 MA420 LAS 0,4 MA420 FP236890 | 13706 0020 00 0 13714 TRA MA480 MA430 FP236900 | 13707 2 00002 4 13704 TIX MA410,4,2 MA435 FP236910 | 13710 2 00002 4 13704 MA440 TIX MA410,4,2 MA440 FP236920 13711 0534 00 4 16133 LXA MAA03,4 MA450 FP236930 | 13712 -0500 00 0 13704 CAL MA410 MA460 FP236940 | 1 LISTING OF 12/01/64 PAGE 490 | ADASMT (9PAC34). ADDRESS ASSIGNMENT | 13713 0020 00 0 13677 TRA MA360 MA470 FP236950 | 13714 0560 60 0 13705 MA480 LDQ* MA420 EXCHANGE FIRST WORDS MA480 FP236960 | 13715 0602 60 0 13705 SLW* MA420 MA490 FP236970 | 13716 -0600 60 0 13704 STQ* MA410 MA500 FP236980 | 13717 1 77777 4 13720 TXI *+1,4,-1 MA510 FP236990 13720 -0500 60 0 13704 CAL* MA410 EXCHANGE SECOND WORDS MA520 FP237000 | 13721 0560 60 0 13705 LDQ* MA420 MA530 FP237010 | 13722 0602 60 0 13705 SLW* MA420 MA540 FP237020 | 13723 -0600 60 0 13704 STQ* MA410 MA550 FP237030 | 13724 1 00001 4 13710 TXI MA440,4,1 CONTINUE MA560 FP237040 *ASSIGN ADDRESSES TO SORTT TABLE MD009 FP237050 | 13725 0774 00 4 00001 MD010 AXT 1,4 MD010 FP237060 | 13726 -0520 00 4 76777 NZT SORTT+STZE,4 MD011 FP237070 | 13727 1 00002 4 13726 TXI *-1,4,2 MD012 FP237080 | 13730 -0500 00 0 13746 CAL MD081 MD020 FP237090 13731 0621 00 4 77002 STA SORTT+STZE+3,4 MD021 FP237100 | 13732 -0500 00 4 76777 MD030 CAL SORTT+STZE,4 MD030 FP237110 | 13733 -0320 00 0 11015 ANA BCD70 MD035 FP237120 | 13734 0100 00 0 13751 TZE MD090 MD040 FP237130 | 13735 -0320 00 0 10765 ANA BCD40 MD045 FP237140 13736 0322 00 0 13747 ERA MD082 MD050 FP237150 | 13737 0100 00 0 13743 TZE *+4 MD055 FP237160 | 13740 -0500 00 4 77000 CAL SORTT+STZE+1,4 MD060 FP237170 | 13741 0771 00 0 00022 ARS 18 MD065 FP237180 | 13742 -0760 00 0 00003 SSM MD070 FP237190 13743 0400 00 4 77002 ADD SORTT+STZE+3,4 MD075 FP237200 | 13744 0621 00 4 77000 STA SORTT+STZE+1,4 MD076 FP237210 | 13745 1 00002 4 13732 MD080 TXI MD030,4,2 MD080 FP237220 | 13746 0 00000 0 71545 MD081 PZE TBLOC MD081 FP237230 | 13747 -260000000000 MD082 OCT 660000000000 MD082 FP237240 13750 0 00000 0 00000 MD083 PZE 0 MD083 FP237250 | 13751 -0500 00 4 77002 MD090 CAL SORTT+STZE+3,4 MD090 FP237260 | 13752 0621 00 0 12731 STA MD394 MD100 FP237270 | 13753 0604 00 0 13750 STI MD083 FP237280 | 13754 0020 00 0 14036 TRA MD630 FP237290 13755 0441 00 0 13750 MD101 LDI MD083 MD101 FP237300 | 13756 -0046 00 0 00000 PIA FP237310 | 13757 -0320 00 0 15674 ANA MTW25 MD102 FP237320 | 13760 0100 00 0 13762 TZE MD110 MD103 FP237330 | 13761 0020 00 0 15700 TRA ML010 TO PRINT TABLES MD104 FP237340 13762 0074 00 4 05255 MD110 TSX RD(WR),4 READ OBJ PROG. TAPE MD110 FP237350 | 13763 0 16134 0 00030 PZE 24,0,MDA10 MD120 FP237360 | 13764 0020 00 0 14024 TRA MD450 MD140 FP237370 | 13765 0020 00 0 13776 MD150 TRA MD181 MD150 FP237380 | 13766 0074 00 4 05255 MD171 TSX RD(WR),4 MD171 FP237390 13767 -0 13772 0 00027 FOR 23,0,MD174 MD171 FP237400 | 13770 0020 00 0 13776 TRA MD181 MD172 FP237410 | 13771 0074 00 4 05526 TSX EOTSW,4 EOT ON LIST MD173 FP237420 | 13772 3 00003 0 13773 MD174 IORT MD175,0,3 MD174 FP237430 | 13773 016060606060 MD175 BCI 3,1 MD175 FP237440 13774 606060606060 | 13775 606060606060 | 13776 0074 00 4 05505 MD181 TSX NDSRT,4 WRITE EOF ON SCRATCH 2 MD180 FP237450 | 13777 0 00007 0 00031 PZE 25,0,7 MD190 FP237460 | 14000 0074 00 4 05505 TSX NDSRT,4 WRITE EOF ON SCRATCH 3 MD220 FP237470 1 LISTING OF 12/01/64 PAGE 491 | ADASMT (9PAC34). ADDRESS ASSIGNMENT | | 14001 0 00007 0 00032 PZE 26,0,7 MD230 FP237480 | 14002 0074 00 4 05505 TSX NDSRT,4 REWIND SCRATCH 1 MD260 FP237490 14003 0 00003 0 00030 PZE 24,0,3 MD270 FP237500 | 14004 -0520 00 0 11375 MD360 NZT QUIT MD360 FP237510 | 14005 0020 00 0 14014 TRA MD370 MD361 FP237520 | 14006 0074 00 4 05646 TSX FLIST,4 FP237530 | 14007 0 00010 0 16304 PZE MDC01,0,8 FP237540 14010 0074 00 4 05642 TSX NLIST,4 FP237550 | 14011 0 00006 0 16304 PZE MDC01,0,6 FP237560 | 14012 0074 00 4 00712 TSX (PAUSE,4 FP237570 | 14013 0761 00 0 00000 NOP FP237580 | 14014 0520 00 0 11400 MD370 ZET HOPSU MD370 FP237590 14015 0020 00 0 13075 TRA MJ010 FP237600 | 14016 0774 00 1 00003 AXT 3,1 FP237610 | 14017 0074 00 2 04771 TSX BSRSYS,2 BACK SYSTEM TO FPFIXED FP237620 | 14020 2 00001 1 14017 TIX *-1,1,1 FP237630 | 14021 -0520 00 0 04406 NZT FPRGSW FP237640 14022 0020 00 0 13344 TRA MM180 FP237650 | 14023 0020 00 0 13337 TRA MM070 TO LOAD RG FP237660 | 14024 0600 00 0 16161 MD450 STZ MDB59 MD450 FP237670 | 14025 -0500 00 0 17136 CAL MDC10 SORT CODE MD455 FP237680 | 14026 0771 00 0 00036 ARS 30 MD460 FP237690 14027 -0340 00 0 16137 LAS MDA40 MD490 FP237700 | 14030 0020 00 0 14032 TRA *+2 MD500 FP237710 | 14031 0020 00 0 14216 TRA ME601 IS AREA 65 MD510 FP237720 | 14032 -0340 00 0 16140 LAS MDA50 MD520 FP237730 | 14033 0020 00 0 14035 TRA *+2 MD530 FP237740 14034 0020 00 0 14175 TRA ME500 MD540 FP237750 | 14035 0020 00 0 14226 TRA ME610 NO SPECIAL AREA MD600 FP237760 | *ROUTINE TO FILL MISSING ADDRESS OF TABLES MD610 FP237770 | * MD620 FP237780 | 14036 0774 00 1 00023 MD630 AXT 19,1 MERGE TABLE FILLED MD630 FP237790 14037 0774 00 2 00000 AXT 0,2 FOR CHANGE TAPES MD640 FP237800 | 14040 -0500 00 1 11367 MD650 CAL HRDWR,1 MD650 FP237810 | 14041 -0320 00 0 16154 ANA MDB51 MD660 FP237820 | 14042 0100 00 0 14063 TZE MD840 MD670 FP237830 | 14043 0400 00 0 11343 ADD SFLEN MD680 FP237840 14044 0400 00 0 16143 ADD MDA70 MD690 FP237850 | 14045 -0501 00 0 16144 ORA MDA80 MD700 FP237860 | 14046 0520 00 0 72562 ZET MGTBL+MGZE-2 MD710 FP237870 | 14047 1 00002 2 14054 TXI MD770,2,2 MD720 FP237880 | 14050 0602 00 0 72562 SLW MGTBL+MGZE-2 MD730 FP237890 14051 0074 00 4 14423 TSX MG010,4 MD740 FP237900 | 14052 0621 00 0 72563 STA MGTBL+MGZE-1 MD750 FP237910 | 14053 0020 00 0 14063 TRA MD840 MD760 FP237920 | 14054 0602 00 2 72562 MD770 SLW MGTBL+MGZE-2,2 MD770 FP237930 | 14055 0074 00 4 14423 TSX MG010,4 MD780 FP237940 14056 0621 00 2 72563 STA MGTBL+MGZE-1,2 MD790 FP237950 | 14057 0500 00 0 16151 CLA MDB30 MD800 FP237960 | 14060 0400 00 0 16163 ADD MDB61 MD810 FP237970 | 14061 0601 00 0 16151 STO MDB30 MD820 FP237980 | 14062 0601 00 0 72454 STO Y1001 MD830 FP237990 14063 2 00001 1 14040 MD840 TIX MD650,1,1 MD840 FP238000 | * MD850 FP238010 | 14064 -0500 00 0 11343 CAL SFLEN MD860 FP238020 | 1 LISTING OF 12/01/64 PAGE 492 | ADASMT (9PAC34). ADDRESS ASSIGNMENT | 14065 0400 00 0 16143 ADD MDA70 MD870 FP238030 | 14066 0621 00 0 72455 STA Y1002 MD880 FP238040 | 14067 -0500 00 0 16156 CAL MDB53 MD890 FP238050 | 14070 0074 00 4 14471 TSX MG700,4 MD900 FP238060 14071 0621 00 0 72452 STA Y0302 MD910 FP238070 | 14072 -0500 00 0 16157 CAL MDB54 MD920 FP238080 | 14073 0074 00 4 14471 TSX MG700,4 MD930 FP238090 | 14074 0621 00 0 72453 STA Y0304 MD940 FP238100 | * MD950 FP238110 14075 0774 00 1 00062 AXT SNZE,1 MERGE TABLE FOR SUMMARY MD960 FP238120 | 14076 1 00002 2 14077 MD970 TXI *+1,2,2 RECORD TYPES. MD970 FP238130 | 14077 -3 00110 2 14102 TXL *+3,2,MGZE+2 MD980 FP238140 | 14100 0074 00 4 10507 TSX T0010,4 MD989 FP238150 | 14101 -1 12277 5 00000 STR 0,5,5311 EXCEEDS MERGE TABLE MD990 FP238160 14102 -0500 00 1 16305 CAL MDC00+SNZE+1,1 ME000 FP238170 | 14103 0100 00 0 14125 TZE ME180 ME010 FP238180 | 14104 -0734 00 4 00000 PDX 0,4 ME020 FP238190 | 14105 -0320 00 0 16154 ANA MDB51 ME030 FP238200 | 14106 0400 00 0 16143 ADD MDA70 ME040 FP238210 14107 0400 00 0 11343 ADD SFLEN ME050 FP238220 | 14110 -0501 00 0 16144 ORA MDA80 ME060 FP238230 | 14111 0602 00 2 72562 SLW MGTBL+MGZE-2,2 ME070 FP238240 | 14112 0754 00 4 00000 PXA 0,4 ME080 FP238250 | 14113 -0760 00 0 00003 SSM ME090 FP238260 14114 0601 00 2 72563 STO MGTBL+MGZE-1,2 ME100 FP238270 | 14115 2 00002 1 14120 TIX *+3,1,2 ME110 FP238280 | 14116 0074 00 4 10507 TSX T0010,4 ME119 FP238290 | 14117 -1 12300 5 00000 STR 0,5,5312 EXCEEDS SNTRY TABLE ME120 FP238300 | 14120 0500 00 0 16151 CLA MDB30 ME130 FP238310 14121 0400 00 0 16163 ADD MDB61 ME140 FP238320 | 14122 0601 00 0 16151 STO MDB30 ME150 FP238330 | 14123 0601 00 0 72454 STO Y1001 ME160 FP238340 | 14124 0020 00 0 14076 TRA MD970 ME170 FP238350 | 14125 -0500 00 0 16144 ME180 CAL MDA80 ME180 FP238360 14126 -0520 00 0 72562 NZT MGTBL+MGZE-2 ME190 FP238370 | 14127 0602 00 0 72562 SLW MGTBL+MGZE-2 ME200 FP238380 | * ME210 FP238390 | 14130 0774 00 2 00024 AXT 20,2 FP238400 | 14131 0774 00 1 00000 AXT 0,1 FP238410 14132 -0500 00 1 04531 ME230 CAL SYMTAP,1 FILL TBLTL FP238420 | 14133 -0320 00 0 16142 ANA MDA65 ME240 FP238430 | 14134 0100 00 0 14153 TZE ME350 FP238440 | 14135 0441 00 1 72657 LDI SWTCH,1 FP238450 | 14136 -0056 00 100000 LNT 100000 FP238460 14137 0020 00 0 14153 TRA ME350 UNIT NOT USED FP238470 | 14140 -0054 00 010000 LFT 010000 FP238480 | 14141 0020 00 0 14153 TRA ME350 BY FILE PROCESSOR FP238490 | 14142 0754 00 1 00000 PXA 0,1 ME260 FP238500 | 14143 0767 00 0 00030 ALS 24 ME270 FP238510 14144 -0501 00 0 16166 ORA MDB70 ME280 FP238520 | 14145 0074 00 4 14446 TSX MG500,4 ME290 FP238530 | 14146 0621 00 0 16153 STA MDB50 ME300 FP238540 | 14147 0771 00 0 00022 ARS 18 ME310 FP238550 | 14150 0400 00 0 16153 ADD MDB50 ME320 FP238560 14151 0402 00 0 11031 SUB NMBR4 ME330 FP238570 | 1 LISTING OF 12/01/64 PAGE 493 | ADASMT (9PAC34). ADDRESS ASSIGNMENT | | 14152 0621 00 1 72703 STA TBLTL,1 FP238580 14153 1 00001 1 14154 ME350 TXI *+1,1,1 FP238590 | 14154 2 00001 2 14132 TIX ME230,2,1 FP238600 | * ME360 FP238610 | 14155 0774 00 1 00023 AXT 19,1 FILL CTTBL. ME370 FP238620 | 14156 -0520 00 1 72607 ME375 NZT CTTBL,1 ME375 FP238630 14157 0020 00 0 14173 TRA ME440 ME380 FP238640 | 14160 0754 00 1 00000 PXA 0,1 ME385 FP238650 | 14161 0767 00 0 00030 ALS 24 ME390 FP238660 | 14162 -0501 00 0 16165 ORA MDB69 ME395 FP238670 | 14163 0074 00 4 14446 TSX MG500,4 ME400 FP238680 14164 3 00010 1 14166 TXH *+2,1,8 ME405 FP238690 | 14165 3 00006 1 14172 TXH ME435,1,6 ME410 FP238700 | 14166 0621 00 0 16153 STA MDB50 ME415 FP238710 | 14167 0771 00 0 00022 ARS 18 ME420 FP238720 | 14170 0400 00 0 16153 ADD MDB50 ME425 FP238730 14171 0402 00 0 11032 SUB NMBR5 ME430 FP238740 | 14172 0621 00 1 72607 ME435 STA CTTBL,1 ME435 FP238750 | 14173 2 00001 1 14156 ME440 TIX ME375,1,1 ME440 FP238760 | 14174 0020 00 0 13755 TRA MD101 ME450 FP238770 | 14175 -0500 00 0 17136 ME500 CAL MDC10 ME500 FP238780 14176 0074 00 4 14471 TSX MG700,4 ME510 FP238790 | 14177 0621 00 0 16211 STA MDB91 FP238800 | 14200 0622 00 0 16211 STD MDB91 FP238810 | 14201 0520 00 0 11400 ZET HOPSU ME5120FP238820 | 14202 0020 00 0 14206 TRA *+4 ME5125FP238830 14203 0074 00 4 14400 TSX MF749,4 ME5130FP238840 | 14204 0 00000 0 17140 PZE MDC10+2 ME5135FP238850 | 14205 0020 00 0 14214 TRA ME590 ME5140FP238860 | 14206 -0320 00 0 16160 ANA MDB55 DECREMENT MASK ME515 FP238870 | 14207 0100 00 0 13762 TZE MD110 DO NOT WRITE SHORT RECORDS FP238880 14210 0400 00 0 16212 ADD MDB92 DECREMENT OF TWO FP238890 | 14211 0622 00 0 16214 STD MDB94 ME5160FP238900 | 14212 0074 00 4 05255 TSX RD(WR),4 ME550 FP238910 | 14213 -0 16213 0 00031 FOR 25,0,MDB93 ME570 FP238920 | 14214 0020 00 0 13762 ME590 TRA MD110 ME590 FP238930 14215 0761 00 0 00000 NOP ME600 FP238940 | *FOR AREA CODE 65--TYPE BY UNIT AND GH SIDE POCKETS ME6005FP238950 | 14216 -0500 00 0 17136 ME601 CAL MDC10 ME601 FP238960 | 14217 0771 00 0 00014 ARS 12 ME602 FP238970 | 14220 -0320 00 0 10730 ANA BCD03 ME603 FP238980 14221 0322 00 0 16177 ERA MDB80 3 ME604 FP238990 | 14222 0100 00 0 14226 TZE ME610 ME605 FP239000 | 14223 0322 00 0 11031 ERA NMBR4 ME606 FP239010 | 14224 0100 00 0 14226 TZE ME610 ME607 FP239020 | 14225 0020 00 0 14175 TRA ME500 ME607 FP239030 14226 -0625 00 0 16161 ME610 STL MDB59 ME610 FP239040 | 14227 0074 00 4 05255 TSX RD(WR),4 ME615 FP239050 | 14230 0 16215 0 00030 PZE 24,0,MDB95 ATBL1 ME620 FP239060 | 14231 0020 00 0 14234 TRA *+3 ME640 FP239070 | 14232 0074 00 4 10507 TSX T0010,4 ME639 FP239080 14233 -1 07746 4 00000 STR 0,4,4070 EOF NOT EXPECTED ON SCRATCH 2 ME640 FP239090 | 14234 0074 00 4 05255 TSX RD(WR),4 ME650 FP239100 | 14235 0 16216 0 00030 PZE 24,0,MDB96 STORG ME660 FP239110 | 14236 0020 00 0 14241 TRA *+3 ME670 FP239120 | 1 LISTING OF 12/01/64 PAGE 494 ADASMT (9PAC34). ADDRESS ASSIGNMENT | | 14237 0074 00 4 10507 TSX T0010,4 ME669 FP239130 | 14240 -1 07747 4 00000 STR 0,4,4071 EOF NOT EXPECTED ON SCRATCH 2 ME700 FP239140 | 14241 -0500 00 0 17136 CAL MDC10 ME770 FP239150 14242 0074 00 4 14471 TSX MG700,4 SEARCH SORTT TABLE ME780 FP239160 | 14243 0534 00 4 14505 LXA MG800,4 ME790 FP239170 | 14244 0621 00 0 16217 STA MDB97 ME800 FP239180 | 14245 -0500 00 0 17136 CAL MDC10 ME810 FP239190 | 14246 -0320 00 0 11021 ANA BCD74 ME820 FP239200 14247 -0501 00 0 11757 ORA M0950 ME830 FP239210 | 14250 -0340 00 4 77001 LAS SORTT+STZE+2,4 ME840 FP239220 | 14251 0020 00 0 14253 TRA *+2 ME850 FP239230 | 14252 0020 00 0 14255 TRA *+3 ME860 FP239240 | 14253 0074 00 4 10507 TSX T0010,4 ME870 FP239250 14254 -1 10340 4 00000 STR 0,4,4320 NO ASSOCIATED STORAGE IN SORTT ME871 FP239260 | 14255 -0500 00 4 77002 CAL SORTT+STZE+3,4 PREPARE TO WRITE ME880 FP239270 | 14256 0520 00 0 11400 ZET HOPSU ME883 FP239280 | 14257 0020 00 0 14263 TRA *+4 ME884 FP239290 | 14260 0074 00 4 14400 TSX MF749,4 ME885 FP239300 14261 0 00000 0 25112 PZE MDC30+2 ME8851FP239310 | 14262 0020 00 0 14276 TRA MF110 ME886 FP239320 | 14263 0621 00 0 16220 STA MDB98 STORG ME890 FP239330 | 14264 0621 00 0 16211 STA MDB91 FP239340 | 14265 -0320 00 0 16160 ANA MDB55 ME903 FP239350 14266 0100 00 0 14276 TZE MF110 DO NOT WRITE SHORT RECORD FP239360 | 14267 0622 00 0 16211 STD MDB91 FP239370 | 14270 0400 00 0 16212 ADD MDB92 ME910 FP239380 | 14271 0622 00 0 16201 STD MDB82 ME920 FP239390 | 14272 0074 00 4 05255 TSX RD(WR),4 ME930 FP239400 14273 -0 16200 0 00031 FOR 25,0,MDB81 ME940 FP239410 | 14274 0020 00 0 14276 TRA MF110 ME950 FP239420 | 14275 0074 00 4 06557 TSX SCEOT,4 ME960 FP239430 | 14276 0560 00 0 17136 MF110 LDQ MDC10 MF110 FP239440 | 14277 0754 00 0 00000 PXA 0,0 MF120 FP239450 14300 -0763 00 0 00006 LGL 6 MF130 FP239460 | 14301 -0340 00 0 16203 LAS MDB84 COMPARE TO 16 AREA CODE MF140 FP239470 | 14302 0020 00 0 14506 TRA MH010 MF150 FP239480 | 14303 0020 00 0 14305 TRA *+2 MF160 FP239490 | 14304 0020 00 0 14506 TRA MH010 MF170 FP239500 14305 0754 00 0 00000 PXA 0,0 MF180 FP239510 | 14306 -0763 00 0 00004 LGL 4 MF190 FP239520 | 14307 -0340 00 0 11400 LAS HOPSU MF200 FP239530 | 14310 0020 00 0 14506 TRA MH010 MF210 FP239540 | 14311 0020 00 0 14313 TRA *+2 MF220 FP239550 14312 0020 00 0 14506 TRA MH010 MF230 FP239560 | 14313 0754 00 0 00000 PXA 0,0 MF240 FP239570 | 14314 -0763 00 0 00010 LGL 8 MF250 FP239580 | 14315 0100 00 0 14506 TZE MH010 MF260 FP239590 | 14316 0322 00 0 16221 ERA MDB99 MF261 FP239600 14317 0100 00 0 14506 TZE MH010 MF262 FP239610 | 14320 0754 00 0 00000 PXA 0,0 MF270 FP239620 | 14321 -0763 00 0 00006 LGL 6 MF280 FP239630 | 14322 -0100 00 0 14506 TNZ MH010 MF290 FP239640 | 14323 0774 00 4 00076 MF310 AXT 62,4 MF310 FP239650 14324 -0520 00 4 13536 NZT MDB85+62,4 START TABLE BUILD MF320 FP239660 | 14325 0020 00 0 14331 TRA *+4 MF330 FP239670 | 1 LISTING OF 12/01/64 PAGE 495 | ADASMT (9PAC34). ADDRESS ASSIGNMENT | 14326 2 00004 4 14324 TIX *-2,4,4 MF340 FP239680 | 14327 0074 00 4 10507 TSX T0010,4 MF349 FP239690 | 14330 -1 12106 5 00000 STR 0,5,5190 EXCEED HORIZ SEL TABLE(62/4 WORDS) MF350 FP239700 | 14331 -0500 00 0 17136 CAL MDC10 MF360 FP239710 | 14332 0602 00 4 13536 SLW MDB85+62,4 STORE OBJ PRGM SORT CODE MF370 FP239720 14333 -0500 00 0 17137 CAL MDC10+1 MF380 FP239730 | 14334 0767 00 0 00022 ALS 18 MF390 FP239740 | 14335 0602 00 4 13537 SLW MDB85+63,4 SIZE MF400 FP239750 | 14336 0400 00 0 16212 ADD MDB92 ADD 2 TO DECR MF410 FP239760 | 14337 -0734 00 1 00000 PDX 0,1 FP239770 14340 3 00002 1 14342 TXH *+2,1,2 INSURES A WORD COUNT OF FP239780 | 14341 1 00001 1 14340 TXI *-1,1,1 AT LEAST THREE TO AVOID SHORT REC FP239790 | 14342 -0634 00 1 16204 SXD MDB86,1 FP239800 | 14343 -0500 00 0 25110 CAL MDC30 MF430 FP239810 | 14344 0602 00 4 13540 SLW MDB85+64,4 SORT CODE FOR STORG MF440 FP239820 14345 -0500 00 0 25111 CAL MDC30+1 MF450 FP239830 | 14346 0767 00 0 00022 ALS 18 MF460 FP239840 | 14347 0602 00 4 13541 SLW MDB85+65,4 STORG SIZE MF470 FP239850 | 14350 0400 00 0 16212 ADD MDB92 ADD 2 TO DECR MF480 FP239860 | 14351 -0734 00 1 00000 PDX 0,1 FP239870 14352 3 00002 1 14354 TXH *+2,1,2 FP239880 | 14353 1 00001 1 14352 TXI *-1,1,1 FP239890 | 14354 -0634 00 1 16206 SXD MDB88,1 FP239900 | 14355 -0500 00 0 23141 CAL MDC20+1 MF500 FP239910 | 14356 0767 00 0 00022 ALS 18 MF501 FP239920 14357 0400 00 0 16212 ADD MDB92 MF510 FP239930 | 14360 -0734 00 1 00000 PDX 0,1 FP239940 | 14361 3 00002 1 14363 TXH *+2,1,2 FP239950 | 14362 1 00001 1 14361 TXI *-1,1,1 FP239960 | 14363 -0634 00 1 16205 SXD MDB87,1 FP239970 *CHECK RECORD SIZE TO INSURE AGAINST SHORT RECORDS FP239980 | 14364 0074 00 4 05255 TSX RD(WR),4 MF530 FP239990 | 14365 -0 16204 0 00032 FOR 26,0,MDB86 MF540 FP240000 | 14366 0020 00 0 14370 TRA *+2 MF550 FP240010 | 14367 0761 00 0 00000 NOP MF560 FP240020 14370 0074 00 4 05255 TSX RD(WR),4 MF570 FP240030 | 14371 -0 16205 0 00032 FOR 26,0,MDB87 MF580 FP240040 | 14372 0020 00 0 14374 TRA *+2 MF590 FP240050 | 14373 0761 00 0 00000 NOP MF600 FP240060 | 14374 0074 00 4 05255 TSX RD(WR),4 MF610 FP240070 14375 -0 16206 0 00032 FOR 26,0,MDB88 MF620 FP240080 | 14376 0020 00 0 14506 TRA MH010 MF630 FP240090 | 14377 0761 00 0 00000 NOP MF640 FP240100 | 14400 0634 00 4 14417 MF749 SXA MF761,4 MF749 FP240110 | 14401 0560 00 4 00001 LDQ 1,4 MF7491FP240120 14402 -0600 00 0 14421 STQ MF763 MF7492FP240130 | 14403 0621 00 0 14422 STA MF764 MF750 FP240140 | 14404 0771 00 0 00022 ARS 18 MF751 FP240150 | 14405 0100 00 4 00002 TZE 2,4 MF7513FP240160 | 14406 0734 00 4 00000 PAX 0,4 MF752 FP240170 14407 0400 00 0 14422 ADD MF764 MF753 FP240180 | 14410 0621 00 0 14415 STA *+5 MF754 FP240190 | 14411 0754 00 4 00000 PXA 0,4 MF755 FP240200 | 14412 0400 00 0 14421 ADD MF763 MF756 FP240210 | 14413 0621 00 0 14414 STA *+1 MF757 FP240220 1 LISTING OF 12/01/64 PAGE 496 | ADASMT (9PAC34). ADDRESS ASSIGNMENT | | 14414 -0500 00 4 00000 CAL ..,4 MF758 FP240230 | 14415 0602 00 4 00000 SLW ..,4 MF759 FP240240 14416 2 00001 4 14414 TIX *-2,4,1 MF760 FP240250 | 14417 0774 00 4 00000 MF761 AXT 0,4 MF761 FP240260 | 14420 0020 00 4 00002 TRA 2,4 MF762 FP240270 | 14421 0 00000 0 17140 MF763 PZE MDC10+2 MF763 FP240280 | 14422 0 00000 0 00000 MF764 PZE 0 MF764 FP240290 14423 0634 00 4 14444 MG010 SXA MG190,4 SEARCH FOR PSUEDO READS MG010 FP240300 | 14424 0754 00 1 00000 PXA 0,1 OF CHANGE INPUTS MG020 FP240310 | 14425 0767 00 0 00032 ALS 26 MG030 FP240320 | 14426 -0501 00 0 16145 ORA MDA90 MG040 FP240330 | 14427 0602 00 0 16146 SLW MDB10 MG050 FP240340 14430 0774 00 4 03775 AXT STZE-2,4 MG060 FP240350 | 14431 -0500 00 4 76777 MG090 CAL SORTT+STZE,4 MG090 FP240360 | 14432 -0100 00 0 14435 TNZ *+3 MG100 FP240370 | 14433 0074 00 4 10507 MG110 TSX T0010,4 MG110 FP240380 | 14434 -1 10352 4 00000 STR 0,4,4330 PSEUDO READ ERROR NOT IN SORTT MG111 FP240390 14435 -0320 00 0 16150 ANA MDB20 MG120 FP240400 | 14436 -0340 00 0 16146 LAS MDB10 MG130 FP240410 | 14437 0020 00 0 14441 TRA *+2 MG140 FP240420 | 14440 0020 00 0 14443 TRA *+3 MG150 FP240430 | 14441 2 00002 4 14431 TIX MG090,4,2 MG160 FP240440 14442 0020 00 0 14433 TRA MG110 MG170 FP240450 | 14443 -0500 00 4 77000 CAL SORTT+STZE+1,4 MG180 FP240460 | 14444 0774 00 4 00000 MG190 AXT 0,4 MG190 FP240470 | 14445 0020 00 4 00001 TRA 1,4 MG200 FP240480 | *LOCATE I/O TABLES---IR1 = STEP IN CASE OF NEW---ACC IS TABLE DESIMG4991FP240490 * EXIT WITH LOCATION AND SIZE IN ACC MG4992FP240500 | 14446 0634 00 4 14467 MG500 SXA MG630,4 SEARCH FOR I/O TABLES MG500 FP240510 | 14447 0602 00 0 16146 SLW MDB10 MG510 FP240520 | 14450 0774 00 4 03775 AXT STZE-2,4 MG520 FP240530 | 14451 -0500 00 4 76777 MG530 CAL SORTT+STZE,4 MG530 FP240540 14452 -0100 00 0 14460 TNZ MG560 MG540 FP240550 | 14453 3 00000 1 14456 MG550 TXH *+3,1,0 ADASMT MG550 FP240560 | 14454 0520 00 0 11412 ZET NEWSW MG551 FP240570 | 14455 0020 00 0 14466 TRA MG630-1 MG552 FP240580 | 14456 0074 00 4 10507 TSX T0010,4 MG553 FP240590 14457 -1 10364 4 00000 STR 0,4,4340 I-O TABLES NOT IN SORTT MG553 FP240600 | 14460 -0320 00 0 11021 MG560 ANA BCD74 MG560 FP240610 | 14461 -0340 00 0 16146 LAS MDB10 MG570 FP240620 | 14462 0020 00 0 14464 TRA *+2 MG580 FP240630 | 14463 0020 00 0 14466 TRA *+3 MG590 FP240640 14464 2 00002 4 14451 TIX MG530,4,2 MG600 FP240650 | 14465 0020 00 0 14453 TRA MG550 MG610 FP240660 | 14466 -0500 00 4 77000 CAL SORTT+STZE+1,4 MG620 FP240670 | *IF PREPROCESSING IS REQUIRED--PLUG ADDR IN POSITION AND WITE TAPEMD629 FP240680 | 14467 0774 00 4 00000 MG630 AXT 0,4 MG630 FP240690 14470 0020 00 4 00001 TRA 1,4 MG640 FP240700 | *LOCATE SORTT LEVEL---ENTER WITH KEY IN ACC MG6991FP240710 | * EXIT WITH LOC AND SIZE IN ACC---MG800 IS TAG TO APPROPIATE ENTMG6992FP240720 | 14471 0634 00 4 14503 MG700 SXA MG780,4 MG700 FP240730 | 14472 0774 00 4 03777 AXT STZE,4 MG710 FP240740 14473 -0340 00 4 76777 LAS SORTT+STZE,4 MG720 FP240750 | 14474 0020 00 0 14476 TRA *+2 MG730 FP240760 | 14475 0020 00 0 14501 TRA *+4 MG740 FP240770 | 1 LISTING OF 12/01/64 PAGE 497 | ADASMT (9PAC34). ADDRESS ASSIGNMENT | 14476 2 00002 4 14473 TIX *-3,4,2 MG750 FP240780 | 14477 0074 00 4 10507 TSX T0010,4 MG760 FP240790 | 14500 -1 06700 3 00000 STR 0,3,3520 SYMBOLIC CODE NOT IN SORTT MG760 FP240800 | 14501 -0500 00 4 77000 CAL SORTT+STZE+1,4 MG770 FP240810 14502 0634 00 4 14505 SXA MG800,4 MG771 FP240820 | 14503 0774 00 4 00000 MG780 AXT 0,4 MG780 FP240830 | 14504 0020 00 4 00001 TRA 1,4 MG790 FP240840 | 14505 0 00000 0 00000 MG800 PZE TABLE INDEX MG800 FP240850 | 14506 -0500 00 0 16207 MH010 CAL MDB89 ANALYZE ATBL1 ENTRIES MH010 FP240860 14507 0400 00 0 23141 ADD MDC20+1 CALC TBL LIMIT MH020 FP240870 | 14510 0621 00 0 14513 STA MH060 MH030 FP240880 | 14511 0534 00 1 23141 LXA MDC20+1,1 MH040 FP240890 | 14512 -3 00000 1 14725 TXL MI200,1,0 MH050 FP240900 | 14513 0500 00 1 00000 MH060 CLA 0,1 MH060 FP240910 14514 0120 00 0 14517 TPL *+3 TEST SIGN MH070 FP240920 | 14515 -0625 00 0 16170 STL MDB72 MH080 FP240930 | 14516 0020 00 0 14520 TRA *+2 MH090 FP240940 | 14517 0600 00 0 16170 STZ MDB72 MH100 FP240950 | 14520 -0320 00 0 11020 ANA BCD73 MH101 FP240960 14521 0621 00 0 16172 STA MDB74 STORE ADDR COUNT MH102 FP240970 | 14522 -0765 00 0 00030 LGR 24 MH110 FP240980 | 14523 0621 00 0 16171 STA MDB73 STORE WD COUNT MH120 FP240990 | 14524 0020 00 0 14527 TRA *+3 MH121 FP241000 | 14525 0074 00 4 10507 MH125 TSX T0010,4 MH125 FP241010 14526 -1 10376 4 00000 STR 0,4,4350 ATBL INSTR CT EXCEEDS PGM BLOCK MH126 FP241020 | 14527 -0340 00 0 17137 LAS MDC10+1 MH130 FP241030 | 14530 0020 00 0 14525 TRA MH125 MH140 FP241040 | 14531 0761 00 0 00000 NOP MH150 FP241050 | 14532 0400 00 0 16164 ADD MDB62 MH151 FP241060 14533 0621 00 0 16167 STA MDB71 MH152 FP241070 | 14534 0754 00 0 00000 PXA 0,0 MH160 FP241080 | 14535 -0763 00 0 00006 LGL 6 MH170 FP241090 | 14536 -0340 00 0 16173 LAS MDB75 OCT 70 MH180 FP241100 | 14537 0020 00 0 14612 TRA MH440 MH190 FP241110 14540 0020 00 0 14557 TRA MH330 MH200 FP241120 | 14541 0522 00 0 14513 XEC MH060 MH210 FP241130 | 14542 0767 00 0 00014 ALS 12 MH211 FP241140 | 14543 -0320 00 0 11024 ANA BCD77 MH212 FP241150 | 14544 0520 00 0 16170 ZET MDB72 MH220 FP241160 14545 0020 00 0 14550 TRA *+3 MH230 FP241170 | 14546 -0501 00 0 16143 ORA MDA70 IS PROGM MH240 FP241180 | 14547 0020 00 0 14551 TRA *+2 MH250 FP241190 | 14550 -0501 00 0 11757 ORA M0950 MH260 FP241200 | 14551 0074 00 4 14471 TSX MG700,4 SEARCH SORTT TABLE MH270 FP241210 14552 0621 00 0 16174 STA MDB76 MH280 FP241220 | 14553 -0500 60 0 16167 CAL* MDB71 MH290 FP241230 | 14554 0400 00 0 16174 ADD MDB76 MH300 FP241240 | 14555 0602 60 0 16167 SLW* MDB71 MH310 FP241250 | 14556 0020 00 0 14725 TRA MI200 TO TEST ATBL1 LIMIT MH320 FP241260 14557 -0500 00 0 17136 MH330 CAL MDC10 IS 70 MH330 FP241270 | 14560 0074 00 4 14471 TSX MG700,4 MH340 FP241280 | 14561 0400 00 0 16171 ADD MDB73 MH350 FP241290 | 14562 0402 00 0 16143 SUB MDA70 ONE MH360 FP241300 | 14563 0520 00 0 16170 ZET MDB72 MH370 FP241310 14564 0020 00 0 14567 TRA *+3 MH380 FP241320 | 1 LISTING OF 12/01/64 PAGE 498 | ADASMT (9PAC34). ADDRESS ASSIGNMENT | | 14565 0400 00 0 16172 ADD MDB74 MH390 FP241330 14566 0020 00 0 14570 TRA *+2 MH400 FP241340 | 14567 0402 00 0 16172 SUB MDB74 MH410 FP241350 | 14570 0621 60 0 16167 STA* MDB71 MH420 FP241360 | 14571 -0500 00 0 16171 CAL MDB73 REL COUNT MH421 FP241370 | 14572 0520 00 0 16170 ZET MDB72 SIGN MH422 FP241380 14573 0020 00 0 14576 TRA *+3 MH423 FP241390 | 14574 0400 00 0 16172 ADD MDB74 ADDR COUNT MH424 FP241400 | 14575 0020 00 0 14577 TRA *+2 MH425 FP241410 | 14576 0402 00 0 16172 SUB MDB74 ADDR COUNT MH426 FP241420 | 14577 0120 00 0 14602 TPL *+3 MH427 FP241430 14600 0074 00 4 10507 TSX T0010,4 MH428 FP241440 | 14601 -1 10410 4 00000 STR 0,4,4360 PADDR COUNT EXCEEDS PGM BLOCK MH428 FP241450 | 14602 -0340 00 0 17137 LAS MDC10+1 MH429 FP241460 | 14603 0020 00 0 14600 TRA *-3 MH430 FP241470 | 14604 0761 00 0 00000 NOP MH431 FP241480 14605 0020 00 0 14725 TRA MI200 TO TEST ATBL LIMIT MH432 FP241490 | 14606 0074 00 4 10507 MH433 TSX T0010,4 MH433 FP241500 | 14607 -1 10422 4 00000 STR 0,4,4370 SADDR ENTRY EXCEEDS STORAGE MH434 FP241510 | 14610 0074 00 4 10507 TSX T0010,4 MH435 FP241520 | 14611 -1 11065 4 00000 STR 0,4,4661 MADDR CODE GR THAN 72 MH436 FP241530 14612 -0340 00 0 16175 MH440 LAS MDB77 MH440 FP241540 | 14613 0020 00 0 14610 TRA *-3 MH450 FP241550 | 14614 0020 00 0 14627 TRA MH570 IS 72 MH460 FP241560 | 14615 -0500 00 0 16172 CAL MDB74 IS 71 MH470 FP241570 | 14616 -0340 00 0 25111 LAS MDC30+1 MH480 FP241580 14617 0020 00 0 14606 TRA MH433 MH490 FP241590 | 14620 0761 00 0 00000 NOP MH500 FP241600 | 14621 -0500 00 0 25110 CAL MDC30 MH510 FP241610 | 14622 0074 00 4 14471 TSX MG700,4 SEARCH FOR STORR SORT CODE MH520 FP241620 | 14623 0400 00 0 16172 ADD MDB74 MH530 FP241630 14624 0402 00 0 16143 SUB MDA70 ONE MH540 FP241640 | 14625 0621 60 0 16167 STA* MDB71 MH550 FP241650 | 14626 0020 00 0 14725 TRA MI200 TO TEST ATBL1 LIMIT MH560 FP241660 | 14627 -0500 00 0 16172 MH570 CAL MDB74 IS 72 MH570 FP241670 | 14630 0402 00 0 16163 SUB MDB61 2 MH580 FP241680 14631 0100 00 0 14640 TZE MH650 IF GADDR 2 MH590 FP241690 | 14632 0402 00 0 16143 SUB MDA70 1 MH600 FP241700 | 14633 0100 00 0 14662 TZE MH820 IF GADDR 3 MH610 FP241710 | 14634 0402 00 0 16143 SUB MDA70 1 MH620 FP241720 | 14635 0100 00 0 14704 TZE MI010 ID GADDR 4 MH630 FP241730 14636 0074 00 4 10507 TSX T0010,4 MH639 FP241740 | 14637 -1 10434 4 00000 STR 0,4,4380 INVALID GADDR CODE(NOT 2,3,OR 4) MH640 FP241750 | 14640 -0500 00 0 17136 MH650 CAL MDC10 GADDR2 MH650 FP241760 | 14641 -0320 00 0 16150 ANA MDB20 MH660 FP241770 | 14642 0602 00 0 16146 SLW MDB10 MH670 FP241780 14643 -0500 00 0 17136 CAL MDC10 MH680 FP241790 | 14644 0074 00 4 14471 TSX MG700,4 SEARCH SORTT TBL MH690 FP241800 | 14645 0534 00 4 14505 LXA MG800,4 MH700 FP241810 | 14646 -0500 00 4 76777 MH710 CAL SORTT+STZE,4 MH710 FP241820 | 14647 -0320 00 0 16150 ANA MDB20 MH720 FP241830 14650 -0340 00 0 16146 LAS MDB10 MH730 FP241840 | 14651 0020 00 0 14657 TRA *+6 MH740 FP241850 | 14652 0020 00 0 14654 TRA *+2 MH750 FP241860 | 14653 0020 00 0 14655 TRA *+2 MH760 FP241870 | 1 LISTING OF 12/01/64 PAGE 499 ADASMT (9PAC34). ADDRESS ASSIGNMENT | | 14654 2 00002 4 14646 TIX MH710,4,2 MH770 FP241880 | 14655 0074 00 4 10507 TSX T0010,4 MH779 FP241890 | 14656 -1 10446 4 00000 STR 0,4,4390 GADDR 2 NOT FOUND IN SORTT MH780 FP241900 14657 -0500 00 4 77000 CAL SORTT+STZE+1,4 MH790 FP241910 | 14660 0621 60 0 16167 STA* MDB71 MH800 FP241920 | 14661 0020 00 0 14725 TRA MI200 TO TEST ATBL1 LIMIT MH810 FP241930 | 14662 -0500 00 0 17136 MH820 CAL MDC10 GADDR3 MH820 FP241940 | 14663 -0320 00 0 11015 ANA BCD70 MH830 FP241950 14664 0602 00 0 16146 SLW MDB10 MH840 FP241960 | 14665 -0500 00 0 17136 CAL MDC10 MH850 FP241970 | 14666 0074 00 4 14471 TSX MG700,4 SEARCH SORTT TBL MH860 FP241980 | 14667 0534 00 4 14505 LXA MG800,4 MH870 FP241990 | 14670 -0500 00 4 76777 MH880 CAL SORTT+STZE,4 MH880 FP242000 14671 -0320 00 0 11015 ANA BCD70 MH890 FP242010 | 14672 -0340 00 0 16146 LAS MDB10 MH900 FP242020 | 14673 0020 00 0 14701 TRA *+6 MH910 FP242030 | 14674 0020 00 0 14676 TRA *+2 MH920 FP242040 | 14675 0020 00 0 14677 TRA *+2 MH930 FP242050 14676 2 00002 4 14670 TIX MH880,4,2 MH940 FP242060 | 14677 0074 00 4 10507 TSX T0010,4 MH949 FP242070 | 14700 -1 10460 4 00000 STR 0,4,4400 GADDR 3 NOT FOUND IN SORTT MH950 FP242080 | 14701 -0500 00 4 77000 CAL SORTT+STZE+1,4 MH960 FP242090 | 14702 0621 60 0 16167 STA* MDB71 MH970 FP242100 14703 0020 00 0 14725 TRA MI200 TO TEST ATBL1 LIMIT MH980 FP242110 | 14704 -0500 00 0 17136 MI010 CAL MDC10 GADDR4 MI010 FP242120 | 14705 -0320 00 0 11021 ANA BCD74 MI020 FP242130 | 14706 0602 00 0 16146 SLW MDB10 MI030 FP242140 | 14707 -0500 00 0 17136 CAL MDC10 MI040 FP242150 14710 0074 00 4 14471 TSX MG700,4 SEARCH SORTT TBL MI050 FP242160 | 14711 0534 00 4 14505 LXA MG800,4 MI060 FP242170 | 14712 -0500 00 4 76777 MI070 CAL SORTT+STZE,4 MI070 FP242180 | 14713 -0320 00 0 11021 ANA BCD74 MI080 FP242190 | 14714 -0340 00 0 16146 LAS MDB10 MI090 FP242200 14715 0020 00 0 14723 TRA *+6 MI100 FP242210 | 14716 0020 00 0 14720 TRA *+2 MI110 FP242220 | 14717 0020 00 0 14721 TRA *+2 MI120 FP242230 | 14720 2 00002 4 14712 TIX MI070,4,2 MI130 FP242240 | 14721 0074 00 4 10507 TSX T0010,4 MI139 FP242250 14722 -1 10472 4 00000 STR 0,4,4410 GADDR 4 NOT OFUND IN SORTT MI140 FP242260 | 14723 -0500 00 4 77000 CAL SORTT+STZE+1,4 MI150 FP242270 | 14724 0621 60 0 16167 STA* MDB71 MI160 FP242280 | 14725 2 00001 1 14513 MI200 TIX MH060,1,1 MI200 FP242290 | 14726 0020 00 0 14175 TRA ME500 MI201 FP242300 1 LISTING OF 12/01/64 PAGE 500 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | * OBJECT SYMBOLIC LIST PROGRAM FOLLOWS MT000 FP242330 | 14727 0534 00 4 17137 MT010 LXA MDC10+1,4 SIZE OF OBPGM BLOCK MT010 FP242340 14730 0634 00 4 15014 SXA MT430,4 MT020 FP242350 | 14731 0534 00 4 25111 LXA MDC30+1,4 SIZE OF STORG BLOCK MT030 FP242360 | 14732 0634 00 4 15325 SXA MV350,4 MT040 FP242370 | 14733 0534 00 4 16211 LXA MDB91,4 WD 1 OF OBPGM BLOCK MT050 FP242380 | 14734 0634 00 4 15432 SXA MTA10,4 MT060 FP242390 14735 0634 00 4 15433 SXA MTA11,4 MT061 FP242400 | 14736 -0500 00 0 15454 CAL MTB61 INITIALIZE NOP MT090 FP242410 | 14737 0602 00 0 15311 SLW MV240 MT091 FP242420 | 14740 -0500 00 0 17136 CAL MDC10 MT100 FP242430 | 14741 -0320 00 0 11021 ANA BCD74 MT110 FP242440 14742 0774 00 4 03777 AXT STZE,4 MT120 FP242450 | 14743 0602 00 0 15436 SLW MTA40 SORT CODE MT130 FP242460 | 14744 0774 00 2 00000 AXT 0,2 MT140 FP242470 | 14745 1 00001 2 14746 TXI *+1,2,1 MT150 FP242480 | 14746 -0500 00 4 76777 CAL SORTT+STZE,4 MT160 FP242490 14747 -0320 00 0 11021 ANA BCD74 MT170 FP242500 | 14750 -0340 00 0 15436 LAS MTA40 MT180 FP242510 | 14751 0020 00 0 14753 TRA *+2 MT190 FP242520 | 14752 0020 00 0 14756 TRA *+4 MT200 FP242530 | 14753 2 00002 4 14745 TIX *-6,4,2 MT210 FP242540 14754 0074 00 4 10507 TSX T0010,4 MT219 FP242550 | 14755 -1 10504 4 00000 STR 0,4,4420 B6 SORT CODE NOT IN SORTT MT220 FP242560 | 14756 0634 00 4 15255 SXA MV010,4 SAVE IR 4 MT221 FP242570 | 14757 0634 00 2 10127 SXA B6000,2 SORT LINE NUMBER MT230 FP242580 | 14760 0074 00 4 10070 TSX B5010,4 * MT240 FP242590 14761 -0500 00 0 10131 CAL B6020 * MT250 FP242600 | 14762 -0501 00 0 15437 ORA MTA50 IS MT260 FP242610 | 14763 0602 00 0 15521 SLW MTT03 MAJOR PAGE NUMBER. MT270 FP242620 | 14764 0600 00 0 15441 STZ MTA61 MINOR PAGE NO. MT280 FP242630 | 14765 0774 00 4 00044 AXT 36,4 MT290 FP242640 14766 -0500 00 0 15436 CAL MTA40 SORT CODE MT300 FP242650 | 14767 -0320 00 0 15677 ANA MTW99 MT310 FP242660 | 14770 0322 00 4 15677 ERA MTW01+36,4 MT320 FP242670 | 14771 0100 00 0 14775 TZE *+4 MT330 FP242680 | 14772 2 00001 4 14766 TIX *-4,4,1 MT340 FP242690 14773 0074 00 4 10507 TSX T0010,4 MT349 FP242700 | 14774 -1 10516 4 00000 STR 0,4,4430 SORT CODE NOT IN PRINT MASK TABLE MT350 FP242710 | 14775 -0046 00 0 00000 PIA MT360 FP242720 | 14776 0634 00 4 14777 SXA *+1,4 MT370 FP242730 | 14777 -0765 00 0 00000 LGR 0 MT380 FP242740 15000 0162 00 0 13762 TQP MD110 DONT WANT THIS BLOCK MT390 FP242750 | 15001 0560 00 0 15436 LDQ MTA40 SORT CODE TO HEADING MT410 FP242760 | 15002 0774 00 4 00006 AXT 6,4 MT411 FP242770 | 15003 0767 00 0 00003 ALS 3 MT412 FP242780 | 15004 -0763 00 0 00003 LGL 3 MT413 FP242790 15005 2 00001 4 15003 TIX *-2,4,1 MT414 FP242800 | 15006 0602 00 0 15525 SLW MTT11 MT415 FP242810 | 15007 0774 00 4 00006 AXT 6,4 MT416 FP242820 | 15010 0767 00 0 00003 ALS 3 MT417 FP242830 | 15011 -0763 00 0 00003 LGL 3 MT418 FP242840 15012 2 00001 4 15010 TIX *-2,4,1 MT419 FP242850 | 15013 0602 00 0 15526 SLW MTT11+1 MT420 FP242860 | 15014 0774 00 2 00000 MT430 AXT 0,2 MT430 FP242870 | 1 LISTING OF 12/01/64 PAGE 501 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | 15015 -0500 00 0 15014 CAL MT430 INIT INSTR ADDR MT440 FP242880 | 15016 -0320 00 0 16154 ANA MDB51 MT450 FP242890 | 15017 0400 00 0 15444 ADD MTA90 MT460 FP242900 | 15020 0621 00 0 15033 STA MT630 MT470 FP242910 15021 0560 00 0 15432 MT520 LDQ MTA10 BUILD BASE LINE MT520 FP242920 | 15022 -0763 00 0 00025 LGL 21 MT521 FP242930 | 15023 0774 00 1 00005 AXT 5,1 MT550 FP242940 | 15024 0767 00 0 00003 ALS 3 MT560 FP242950 | 15025 -0763 00 0 00003 LGL 3 MT570 FP242960 15026 2 00001 1 15024 TIX *-2,1,1 MT580 FP242970 | 15027 0767 00 0 00006 ALS 6 LOCATION TO BASE LINE MT590 FP242980 | 15030 -0501 00 0 15443 ORA MTA80 MT600 FP242990 | 15031 0602 00 0 15555 SLW MTT31 MT610 FP243000 | 15032 -0500 00 0 15445 CAL MTB10 OPERATION TO BASE LINE MT620 FP243010 15033 0560 00 2 00000 MT630 LDQ 0,2 MT630 FP243020 | 15034 0774 00 1 00004 AXT 4,1 MT640 FP243030 | 15035 0767 00 0 00003 ALS 3 MT650 FP243040 | 15036 -0763 00 0 00003 LGL 3 MT660 FP243050 | 15037 2 00001 1 15035 TIX *-2,1,1 MT670 FP243060 15040 0602 00 0 15556 SLW MTT31+1 MT680 FP243070 | 15041 0754 00 0 00000 PXA 0,0 MT690 FP243080 | 15042 0767 00 0 00003 ALS 3 WD 3 TO BASE LINE MT700 FP243090 | 15043 -0763 00 0 00003 LGL 3 MT710 FP243100 | 15044 0767 00 0 00003 ALS 3 MT720 FP243110 15045 -0763 00 0 00003 LGL 3 MT730 FP243120 | 15046 0767 00 0 00006 ALS 6 MT740 FP243130 | 15047 0767 00 0 00003 ALS 3 MT750 FP243140 | 15050 -0763 00 0 00003 LGL 3 MT760 FP243150 | 15051 0767 00 0 00006 ALS 6 MT770 FP243160 15052 -0501 00 0 15446 ORA MTB20 MT780 FP243170 | 15053 0602 00 0 15557 SLW MTT31+2 MT790 FP243180 | 15054 -0500 00 0 15445 CAL MTB10 ADDRESS TO BASE LINE MT800 FP243190 | 15055 0774 00 1 00005 AXT 5,1 MT810 FP243200 | 15056 0767 00 0 00003 ALS 3 MT820 FP243210 15057 -0763 00 0 00003 LGL 3 MT830 FP243220 | 15060 2 00001 1 15056 TIX *-2,1,1 MT840 FP243230 | 15061 0602 00 0 15560 SLW MTT31+3 MT850 FP243240 | 15062 0522 00 0 15033 XEC MT630 MNEMONIC OPERSTION MT900 FP243250 | 15063 -0763 00 0 00044 LGL 36 MT910 FP243260 15064 -0320 00 0 15451 ANA MTB50 MT920 FP243270 | 15065 0774 00 1 00366 AXT 246,1 MT930 FP243280 | 15066 -0340 00 1 16710 LAS LITRL+246,1 MT940 FP243290 | 15067 0020 00 0 15071 TRA *+2 MT950 FP243300 | 15070 0020 00 0 15074 TRA *+4 MT960 FP243310 15071 2 00002 1 15066 TIX *-3,1,2 MT970 FP243320 | 15072 -0500 00 0 15630 CAL MTT97 NONE MT980 FP243330 | 15073 0020 00 0 15075 TRA *+2 MT990 FP243340 | 15074 -0500 00 1 16711 CAL LITRL+247,1 MT991 FP243350 | 15075 0602 00 0 15561 SLW MTT31+4 MT992 FP243360 15076 -0500 00 0 15432 CAL MTA10 INCR LOC. CONTROL MU010 FP243370 | 15077 0400 00 0 15442 ADD MTA70 1 MU020 FP243380 | 15100 0621 00 0 15432 STA MTA10 MU030 FP243390 | 15101 0402 00 0 15433 SUB MTA11 MU040 FP243400 | 15102 0767 00 0 00030 ALS 24 SHIFT INSTR WD COUNT MU060 FP243410 15103 0602 00 0 15447 SLW MTB30 MU070 FP243420 | 1 LISTING OF 12/01/64 PAGE 502 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | 15104 -0520 00 0 16161 NZT MDB59 MU074 FP243430 15105 0020 00 0 15124 TRA MU171 MU075 FP243440 | 15106 -0500 00 0 23141 CAL MDC20+1 MU080 FP243450 | 15107 0400 00 0 15450 ADD MTB40 MU090 FP243460 | 15110 0621 00 0 15112 STA *+2 MU100 FP243470 | 15111 0534 00 1 23141 LXA MDC20+1,1 ATBL SIZE MU110 FP243480 15112 0500 00 1 00000 MU120 CLA 0,1 SEARCH ATBL MU120 FP243490 | 15113 0120 00 0 15116 TPL *+3 SET SIGN SWITCH MU121 FP243500 | 15114 -0625 00 0 15632 STL MTT99 - MU122 FP243510 | 15115 0020 00 0 15117 TRA *+2 MU123 FP243520 | 15116 0600 00 0 15632 STZ MTT99 + MU124 FP243530 15117 -0320 00 0 15451 ANA MTB50 MU130 FP243540 | 15120 -0340 00 0 15447 LAS MTB30 MU140 FP243550 | 15121 0020 00 0 15123 TRA *+2 MU150 FP243560 | 15122 0020 00 0 15147 TRA MU190 MU160 FP243570 | 15123 2 00001 1 15112 TIX MU120,1,1 MU170 FP243580 15124 -0500 00 0 15445 MU171 CAL MTB10 BLANKS MU171 FP243590 | 15125 0602 00 0 15564 SLW MTT31+7 MU172 FP243600 | 15126 0602 00 0 15565 SLW MTT31+8 MU173 FP243610 | 15127 0602 00 0 15566 SLW MTT31+9 MU174 FP243620 | 15130 0602 00 0 15563 SLW MTT31+6 MU175 FP243630 15131 -0500 60 0 15033 CAL* MT630 MU176 FP243640 | 15132 -0320 00 0 16154 ANA MDB51 KEEP ADDRESS MU1763FP243650 | 15133 0100 00 0 15375 TZE MW010 MU1765FP243660 | 15134 0774 00 1 00344 AXT DAL99-GFPSY,1 MU177 FP243670 | 15135 -0340 00 1 12475 LAS DAL99+1,1 MU179 FP243680 15136 0020 00 0 15140 TRA *+2 MU180 FP243690 | 15137 0020 00 0 15142 TRA *+3 MU181 FP243700 | 15140 2 00002 1 15135 TIX *-3,1,2 MU182 FP243710 | 15141 0020 00 0 15375 TRA MW010 NO MADDR NOR NMEUMONIC--SO TO PRINT MU183 FP243720 | 15142 -0500 00 1 12474 CAL DAL99,1 MU184 FP243730 15143 0560 00 0 15446 LDQ MTB20 MU1843FP243740 | 15144 -0763 00 0 00006 LGL 6 MU1845FP243750 | 15145 0602 00 0 15563 SLW MTT31+6 MU185 FP243760 | 15146 0020 00 0 15375 TRA MW010 TO PRINT MU186 FP243770 | 15147 0560 60 0 15112 MU190 LDQ* MU120 HAS A MADDR ENTRY MU190 FP243780 15150 -0763 00 0 00022 LGL 18 MU200 FP243790 | 15151 -0320 00 0 10726 ANA BCD01 MU210 FP243800 | 15152 -0340 00 0 16173 LAS MDB75 MU220 FP243810 | 15153 0020 00 0 15156 TRA *+3 MU230 FP243820 | 15154 0020 00 0 15164 TRA MU320 IS 70 MU240 FP243830 15155 0020 00 0 15227 TRA MU720 IS ADDRESS SYMBOLIC MU250 FP243840 | 15156 -0340 00 0 16175 LAS MDB77 MU260 FP243850 | 15157 0020 00 0 15162 TRA *+3 MU270 FP243860 | 15160 0020 00 0 15255 TRA MV010 IS 72 MU300 FP243870 | 15161 0020 00 0 15210 TRA MU520 IS 71 MU310 FP243880 15162 0074 00 4 10507 TSX T0010,4 MU315 FP243890 | 15163 -1 11066 4 00000 STR 0,4,4662 MADDR CODE GR THAN 72 MU316 FP243900 | 15164 -0763 00 0 00006 MU320 LGL 6 70 MU320 FP243910 | 15165 0774 00 1 00004 AXT 4,1 REL COUNT TO BASE LINE MU330 FP243920 | 15166 0767 00 0 00003 ALS 3 MU340 FP243930 15167 -0763 00 0 00003 LGL 3 MU350 FP243940 | 15170 2 00001 1 15166 TIX *-2,1,1 MU360 FP243950 | 15171 0767 00 0 00014 ALS 12 MU370 FP243960 | 15172 -0501 00 0 15460 ORA MTB90 MU380 FP243970 | 1 LISTING OF 12/01/64 PAGE 503 ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | 15173 0602 00 0 15565 SLW MTT31+8 MU390 FP243980 | 15174 -0500 00 0 15623 CAL MTT93 MU400 FP243990 | 15175 0602 00 0 15563 SLW MTT31+6 * MU410 FP244000 15176 -0500 00 0 15632 CAL MTT99 MU420 FP244010 | 15177 0100 00 0 15203 TZE *+4 MU430 FP244020 | 15200 -0500 00 0 15606 CAL MTT92 - MU440 FP244030 | 15201 0602 00 0 15564 SLW MTT31+7 MU450 FP244040 | 15202 0020 00 0 15205 TRA *+3 MU460 FP244050 15203 -0500 00 0 15571 CAL MTT91 + MU470 FP244060 | 15204 0602 00 0 15564 SLW MTT31+7 MU480 FP244070 | 15205 -0500 00 0 15445 CAL MTB10 BLANK MU490 FP244080 | 15206 0602 00 0 15566 SLW MTT31+9 MU500 FP244090 | 15207 0020 00 0 15375 TRA MW010 TO PRT MU510 FP244100 15210 -0763 00 0 00006 MU520 LGL 6 71 MU520 FP244110 | 15211 0774 00 1 00004 AXT 4,1 STORG WD COUNT TO BASE LINEMU530 FP244120 | 15212 0767 00 0 00003 ALS 3 MU540 FP244130 | 15213 -0763 00 0 00003 LGL 3 MU550 FP244140 | 15214 2 00001 1 15212 TIX *-2,1,1 MU560 FP244150 15215 0767 00 0 00014 ALS 12 MU570 FP244160 | 15216 -0501 00 0 15460 ORA MTB90 MU580 FP244170 | 15217 0602 00 0 15565 SLW MTT31+8 MU590 FP244180 | 15220 -0500 00 0 15624 CAL MTT94 MU600 FP244190 | 15221 0602 00 0 15563 SLW MTT31+6 MU610 FP244200 15222 -0500 00 0 15631 CAL MTT98 WORD MU620 FP244210 | 15223 0602 00 0 15564 SLW MTT31+7 MU630 FP244220 | 15224 -0500 00 0 15445 CAL MTB10 BLANK MU640 FP244230 | 15225 0602 00 0 15566 SLW MTT31+9 MU650 FP244240 | 15226 0020 00 0 15375 TRA MW010 TO PRT MU660 FP244250 15227 -0765 00 0 00006 MU720 LGR 6 ADDRESS SYMBOLIC MU720 FP244260 | 15230 0774 00 1 00006 AXT 6,1 MU730 FP244270 | 15231 0767 00 0 00003 ALS 3 MU740 FP244280 | 15232 -0763 00 0 00003 LGL 3 MU750 FP244290 | 15233 2 00001 1 15231 TIX *-2,1,1 MU760 FP244300 15234 0602 00 0 15565 SLW MTT31+8 MU770 FP244310 | 15235 0767 00 0 00003 ALS 3 MU780 FP244320 | 15236 -0763 00 0 00003 LGL 3 MU790 FP244330 | 15237 0767 00 0 00003 ALS 3 MU800 FP244340 | 15240 -0763 00 0 00003 LGL 3 MU810 FP244350 15241 0767 00 0 00030 ALS 24 MU820 FP244360 | 15242 -0520 00 0 15632 NZT MTT99 MU830 FP244370 | 15243 0020 00 0 15246 TRA *+3 MU840 FP244380 | 15244 -0501 00 0 16176 ORA MDB78 MU850 FP244390 | 15245 0020 00 0 15247 TRA *+2 MU860 FP244400 15246 -0501 00 0 16143 ORA MDA70 MU861 FP244410 | 15247 0602 00 0 15566 SLW MTT31+9 MU862 FP244420 | 15250 -0500 00 0 15625 CAL MTT95 MU870 FP244430 | 15251 0602 00 0 15563 SLW MTT31+6 MU880 FP244440 | 15252 -0500 00 0 15626 CAL MTT95+1 MU890 FP244450 15253 0602 00 0 15564 SLW MTT31+7 MU900 FP244460 | 15254 0020 00 0 15375 TRA MW010 TO PRT MU910 FP244470 | 15255 0774 00 1 00000 MV010 AXT 0,1 72 MV010 FP244480 | 15256 -0500 60 0 15033 CAL* MT630 MV0100FP244490 | 15257 -0320 00 0 16154 ANA MDB51 MV0100FP244500 15260 0602 00 0 16155 SLW MDB52 MV0100FP244510 | 15261 -0500 00 1 77002 CAL SORTT+STZE+3,1 MV0100FP244520 | 1 LISTING OF 12/01/64 PAGE 504 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | 15262 -0320 00 0 16154 ANA MDB51 MV0100FP244530 | 15263 -0340 00 0 16155 LAS MDB52 MV0100FP244540 | 15264 0020 00 0 15266 TRA *+2 MV0100FP244550 | 15265 0020 00 0 15271 TRA *+4 MV0100FP244560 | 15266 2 00002 1 15261 TIX *-5,1,2 MV0100FP244570 15267 0074 00 4 10507 TSX T0010,4 MV0101FP244580 | 15270 -1 10624 4 00000 STR 0,4,4500 NO GADDR BLOCK FOUND MV0101FP244590 | 15271 0560 00 1 77001 LDQ SORTT+STZE+2,1 MV020 FP244600 | 15272 0774 00 1 00006 AXT 6,1 MV030 FP244610 | 15273 0767 00 0 00003 ALS 3 MV040 FP244620 15274 -0763 00 0 00003 LGL 3 MV050 FP244630 | 15275 2 00001 1 15273 TIX *-2,1,1 MV060 FP244640 | 15276 0602 00 0 15565 SLW MTT31+8 MV070 FP244650 | 15277 0774 00 1 00006 AXT 6,1 MV080 FP244660 | 15300 0767 00 0 00003 ALS 3 MV090 FP244670 15301 -0763 00 0 00003 LGL 3 MV100 FP244680 | 15302 2 00001 1 15300 TIX *-2,1,1 MV110 FP244690 | 15303 0602 00 0 15566 SLW MTT31+9 MV130 FP244700 | 15304 -0500 00 0 15627 CAL MTT96 MV140 FP244710 | 15305 0602 00 0 15563 SLW MTT31+6 MV150 FP244720 15306 -0500 00 0 15626 CAL MTT95+1 MV160 FP244730 | 15307 0602 00 0 15564 SLW MTT31+7 MV170 FP244740 | 15310 0020 00 0 15375 TRA MW010 TO PRT MV180 FP244750 | 15311 0761 00 0 00000 MV240 NOP BACK FROM PRINT MV240 FP244760 | 15312 2 00001 2 15021 TIX MT520,2,1 BACK FROM PRINT OF OBJ MV250 FP244770 15313 -0500 00 0 25111 CAL MDC30+1 MV251 FP244780 | 15314 -0100 00 0 15317 TNZ *+3 MV252 FP244790 | 15315 0600 00 0 15461 STZ MTB99 MV253 FP244800 | 15316 0020 00 0 13762 TRA MD110 MV254 FP244810 | 15317 -0500 00 0 15453 CAL MTB60 MV260 FP244820 15320 0602 00 0 15311 SLW MV240 MV270 FP244830 | 15321 0074 00 4 05255 MV342 TSX RD(WR),4 MV342 FP244840 | 15322 -0 15472 0 00027 FOR 23,0,MTC81 MV343 FP244850 | 15323 0020 00 0 15325 TRA MV350 MV344 FP244860 | 15324 0074 00 4 05526 TSX EOTSW,4 MV345 FP244870 15325 0774 00 2 00000 MV350 AXT 0,2 SIZE TO IR 2 MV350 FP244880 | 15326 0754 00 2 00000 PXA 0,2 INITIALIZE TO FIRST STORAGEMV351 FP244890 | 15327 0400 00 0 15456 ADD MTB70 MV352 FP244900 | 15330 0621 00 0 15354 STA MV480 MV353 FP244910 | 15331 -0500 00 0 15445 CAL MTB10 PRT LINE MV354 FP244920 15332 0602 00 0 15560 SLW MTT31+3 MV355 FP244930 | 15333 0602 00 0 15563 SLW MTT31+6 MV355 FP244940 | 15334 0602 00 0 15561 SLW MTT31+4 MV356 FP244950 | 15335 0602 00 0 15564 SLW MTT31+7 MV356 FP244960 | 15336 0602 00 0 15565 SLW MTT31+8 MV357 FP244970 15337 0602 00 0 15566 SLW MTT31+9 MV358 FP244980 | 15340 -0500 00 0 15432 MV369 CAL MTA10 LOCATION TO BASE LINE MV369 FP244990 | 15341 -0765 00 0 00017 LGR 15 MV370 FP245000 | 15342 0774 00 1 00005 AXT 5,1 MV380 FP245010 | 15343 0767 00 0 00003 ALS 3 MV390 FP245020 15344 -0763 00 0 00003 LGL 3 MV400 FP245030 | 15345 2 00001 1 15343 TIX *-2,1,1 MV410 FP245040 | 15346 0767 00 0 00006 ALS 6 MV420 FP245050 | 15347 -0501 00 0 15443 ORA MTA80 MV430 FP245060 | 15350 0602 00 0 15555 SLW MTT31 MV440 FP245070 1 LISTING OF 12/01/64 PAGE 505 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | 15351 -0500 00 0 15432 CAL MTA10 INCR LOC CTR MV450 FP245080 | 15352 0400 00 0 15442 ADD MTA70 1 MV460 FP245090 15353 0621 00 0 15432 STA MTA10 MV470 FP245100 | 15354 0560 00 2 00000 MV480 LDQ 0,2 MV480 FP245110 | 15355 0774 00 1 00006 AXT 6,1 OCTAL WORD TO BASE LINE MV490 FP245120 | 15356 0767 00 0 00003 ALS 3 MV500 FP245130 | 15357 -0763 00 0 00003 LGL 3 MV510 FP245140 15360 2 00001 1 15356 TIX *-2,1,1 MV520 FP245150 | 15361 0602 00 0 15556 SLW MTT31+1 MV530 FP245160 | 15362 0774 00 1 00006 AXT 6,1 MV540 FP245170 | 15363 0767 00 0 00003 ALS 3 MV550 FP245180 | 15364 -0763 00 0 00003 LGL 3 MV560 FP245190 15365 2 00001 1 15363 TIX *-2,1,1 MV570 FP245200 | 15366 0602 00 0 15557 SLW MTT31+2 MV580 FP245210 | 15367 0020 00 0 15375 TRA MW010 TO PRT MV590 FP245220 | 15370 2 00001 2 15340 MV600 TIX MV369,2,1 MV600 FP245230 | 15371 0600 00 0 15461 STZ MTB99 MV601 FP245240 15372 0600 00 0 23141 STZ MDC20+1 MV602 FP245250 | 15373 0600 00 0 23142 STZ MDC20+2 MV603 FP245260 | 15374 0020 00 0 13762 TRA MD110 ON MV610 FP245270 | 15375 0520 00 0 15461 MW010 ZET MTB99 TEST RUN IN PRINT MW010 FP245280 | 15376 0020 00 0 15401 TRA *+3 MW010 FP245290 15377 -0625 00 0 15461 STL MTB99 MW020 FP245300 | 15400 0020 00 0 15411 TRA MW480 MW030 FP245310 | 15401 0534 00 1 15434 MW400 LXA MTA20,1 OFF LINE PRINT MW400 FP245320 | 15402 -2 00001 1 15411 TNX MW480,1,1 TRA IF PAGE LIMIT MW410 FP245330 | 15403 0074 00 4 05255 TSX RD(WR),4 WRITE BASE LINE MW420 FP245340 15404 -0 15470 0 00027 FOR 23,0,MTC69 MW430 FP245350 | 15405 0020 00 0 15407 TRA *+2 MW440 FP245360 | 15406 0074 00 4 05526 TSX EOTSW,4 MW450 FP245370 | 15407 0634 00 1 15434 SXA MTA20,1 MW471 FP245380 | 15410 0020 00 0 15311 TRA MV240 MW479 FP245390 15411 0500 00 0 15441 MW480 CLA MTA61 INCR PAGE NUMBER MW480 FP245400 | 15412 0400 00 0 15442 ADD MTA70 MW490 FP245410 | 15413 0621 00 0 15441 STA MTA61 MINOR PAGE NUMBER MW500 FP245420 | 15414 0621 00 0 10127 STA B6000 MW510 FP245430 | 15415 0074 00 4 10070 TSX B5010,4 MW520 FP245440 15416 -0500 00 0 10131 CAL B6020 MW530 FP245450 | 15417 0767 00 0 00006 ALS 6 MW540 FP245460 | 15420 -0501 00 0 15457 ORA MTB80 MW550 FP245470 | 15421 0602 00 0 15522 SLW MTT04 MINOR PAGE NUMBER MW560 FP245480 | 15422 0074 00 4 05255 TSX RD(WR),4 WRITE HEADINGS AND BASE-LINE MW570 FP245490 15423 -0 15462 0 00027 FOR 23,0,MTC09 FP245500 | 15424 0020 00 0 15426 TRA MW622 MW590 FP245510 | 15425 0074 00 4 05526 TSX EOTSW,4 MW600 FP245520 | 15426 0774 00 1 00064 MW622 AXT 52,1 36 FOR 8 IN PAPER MW6220FP245530 | 15427 0634 00 1 15434 SXA MTA20,1 MW6225FP245540 15430 0761 00 0 00000 MW623 NOP TRA MW400 FOR TABLES MW6230FP245550 | 15431 0020 00 0 15311 TRA MV240 MW6240FP245560 | 1 LISTING OF 12/01/64 PAGE 506 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | 15432 0 00000 0 00000 MTA10 PZE 0 LOC. CTR COUNTER MTA10 FP245580 | 15433 0 00000 0 00000 MTA11 PZE 0 INITIAL WD LOCATION MTA11 FP245590 | 15434 0 00000 0 00000 MTA20 PZE 0 LINE CTR MTA20 FP245600 | 15435 0 00000 0 00000 MTA30 PZE 0 STORG RUN IN SW MTA30 FP245610 | 15436 0 00000 0 00000 MTA40 PZE 0 MISC. MTA40 FP245620 15437 606060000000 MTA50 BCI 1, 000 MTA50 FP245630 | 15440 0 00000 0 00000 MTA60 PZE MINOR PAGE NO MTA60 FP245640 | 15441 0 00000 0 00000 MTA61 PZE MTA61 FP245650 | 15442 0 00000 0 00001 MTA70 PZE 1 MTA70 FP245660 | 15443 000000000060 MTA80 BCI 1,00000 MTA80 FP245670 15444 0 00000 0 17140 MTA90 PZE MDC10+2 MTA90 FP245680 | 15445 606060606060 MTB10 BCI 1, BLANK MTB10 FP245690 | 15446 600000600060 MTB20 BCI 1, 00 0 MTB20 FP245700 | 15447 0 00000 0 00000 MTB30 PZE TEMP MTB30 FP245710 | 15450 0 00000 0 23142 MTB40 PZE MDC20+2 MTB40 FP245720 15451 -377700000000 MTB50 OCT 777700000000 MTB50 FP245730 | 15452 +377777777777 MTB51 OCT 377777777777 MTB51 FP245740 | 15453 0020 00 0 15370 MTB60 TRA MV600 MTB60 FP245750 | 15454 0761 00 0 00000 MTB61 NOP MTB61 FP245760 | 15455 0020 00 0 15401 MTB63 TRA MW400 MTB63 FP245770 15456 0 00000 0 25112 MTB70 PZE MDC30+2 MTB70 FP245780 | 15457 400000000060 MTB80 BCI 1,-0000 MTB80 FP245790 | 15460 000000006060 MTB90 BCI 1,0000 MTB90 FP245800 | 15461 0 00000 0 00000 MTB99 PZE RUN-IN PRINT MTB99 FP245810 | 15462 -0 00001 0 15523 MTC09 IOCP MTT05,0,1 MTC09 FP245820 15463 2 00014 0 15507 MTC10 IORP MTT01,0,12 MTC10 FP245830 | 15464 -0 00001 0 15524 MTC29 IOCP MTT06,0,1 MTC29 FP245840 | 15465 2 00014 0 15525 MTC30 IORP MTT11,0,12 MTC30 FP245850 | 15466 -0 00001 0 15524 MTC49 IOCP MTT06,0,1 MTC49 FP245860 | 15467 2 00014 0 15541 MTC50 IORP MTT21,0,12 MTC50 FP245870 15470 -0 00001 0 15445 MTC69 IOCP MTB10,0,1 MTC69 FP245880 | 15471 -1 00014 0 15555 MTC70 IOCT MTT31,0,12 MTC70 FP245890 | 15472 -0 00001 0 15445 MTC81 IOCP MTB10,0,1 MTC81 FP245900 | 15473 2 00014 0 15572 MTC82 IORP MTT41,0,12 MTC82 FP245910 | 15474 -0 00001 0 15445 MTC83 IOCP MTB10,0,1 MTC83 FP245920 15475 2 00014 0 15607 MTC84 IORP MTT51,0,12 MTC84 FP245930 | 15476 -0 00001 0 15524 MTC85 IOCP MTT06,0,1 MTC85 FP245940 | 15477 -1 00014 0 15572 MTC86 IOCT MTT41,0,12 MTC86 FP245950 | 15500 254524604626 MTT00 BCI 7,END OF TAPE A9---RELOAD AND PRESS START. MTT00 FP245960 | 15501 606321472560 15502 211140404051 | 15503 254346212460 | 15504 214524604751 | 15505 256262606263 | 15506 215163336060 15507 263143256047 MTT01 BCI 5,FILE PROCESSING OBJECT SYMBOLI MTT01 FP245970 | 15510 514623256262 | 15511 314527604622 | 15512 412523636062 | 15513 704422464331 15514 236043316263 MTT02 BCI 5,C LISTING PAGE = MTT02 FP245980 | 15515 314527606060 | 15516 606060606060 | 15517 606060606060 | 15520 472127256013 1 LISTING OF 12/01/64 PAGE 507 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | 15521 0 00000 0 00000 MTT03 PZE 0 FOR MAJOR PAGE NO MTT03 FP245990 | 15522 0 00000 0 00000 MTT04 PZE 0 FOR MINOR PAGE NO MTT04 FP246000 15523 016060606060 MTT05 BCI 1,1 MTT05 FP246010 | 15524 006060606060 MTT06 BCI 1,0 FP246020 | 15525 0 00000 0 00000 MTT11 PZE 0 SYMBOL MTT11 FP246030 | 15526 606060606060 MTT12 BCI 5, MTT12 FP246040 | 15527 606060606060 15530 606060606060 | 15531 606060606060 | 15532 606060606060 | 15533 606060606060 MTT13 BCI 6, MTT13 FP246050 | 15534 606060606060 15535 606060606060 | 15536 606060606060 | 15537 606060606060 | 15540 606060606060 | 15541 434623606060 MTT21 BCI 4,LOC MTT21 FP246060 15542 606060606060 | 15543 606060606060 | 15544 606060606060 | 15545 604647255160 MTT22 BCI 5, OPER LITERAL ADDRESS MTT22 FP246070 | 15546 606060606060 15547 433163255121 | 15550 436021242451 | 15551 256262606060 | 15552 606060606060 MTT23 BCI 3, MTT23 FP246080 | 15553 606060606060 15554 606060606060 | 15555 606060606060 MTT31 BCI 6, MTT31 FP246090 | 15556 606060606060 | 15557 606060606060 | 15560 606060606060 15561 606060606060 | 15562 606060606060 | 15563 606060606060 BCI 6, MTT32 FP246100 | 15564 606060606060 | 15565 606060606060 15566 606060606060 | 15567 606060606060 | 15570 606060606060 | 15571 606020606060 MTT91 BCI 1, + MTT40 FP246110 | 15572 606060606060 MTT41 BCI 6, MTT41 FP246120 15573 606060606060 | 15574 606060606060 | 15575 606060606060 | 15576 606060606060 | 15577 606060606060 15600 606060606060 BCI 6, MTT42 FP246130 | 15601 606060606060 | 15602 606060606060 | 15603 606060606060 | 15604 606060606060 15605 606060606060 | 15606 606040606060 MTT92 BCI 1, - MTT50 FP246140 | 15607 216262462331 MTT51 BCI 6,ASSOCIATED STORAGE MTT51 FP246150 | 1 LISTING OF 12/01/64 PAGE 508 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | 15610 216325246062 | 15611 634651212725 | 15612 606060606060 | 15613 606060606060 15614 606060606060 | 15615 606060606060 BCI 6, MTT52 FP246160 | 15616 606060606060 | 15617 606060606060 | 15620 606060606060 15621 606060606060 | 15622 606060606060 | 15623 606054606060 MTT93 BCI 1, * MTT60 FP246170 | 15624 626346512760 MTT94 BCI 1,STORG MTT70 FP246180 | 15625 627044224360 MTT95 BCI 2,SYMBL CODE MTT80 FP246190 15626 602346242560 | 15627 272124245160 MTT96 BCI 1,GADDR MTT96 FP246200 | 15630 606045464525 MTT97 BCI 1, NONE MTT97 FP246210 | 15631 664651246060 MTT98 BCI 1,WORD MTT98 FP246220 | 15632 0 00000 0 00000 MTT99 PZE 0 SIGN SWITCH MTT99 FP246230 15633 -377777777777 MTW01 OCT 777777777777 SN SYMBOL TABLE MTW01 FP246240 | 15634 +160000000000 OCT 160000000000 01 MTW02 FP246250 | 15635 +160000070000 OCT 160000070000 MTW021FP246260 | 15636 +250000000000 OCT 250000000000 02 MTW03 FP246270 | 15637 +250000070000 OCT 250000070000 MTW031FP246280 15640 +270000000000 OCT 270000000000 03 MTW04 FP246290 | 15641 +330000000000 OCT 330000000000 04 MTW05 FP246300 | 15642 +340000000000 OCT 340000000000 MTW058FP246310 | 15643 +340000070000 OCT 340000070000 MTW059FP246320 | 15644 -000000210000 OCT 400000210000 05 MTW06 FP246330 15645 -000000240000 OCT 400000240000 06 MTW07 FP246340 | 15646 -000000440000 OCT 400000440000 07 MTW08 FP246350 | 15647 -000000650000 OCT 400000650000 08 MTW09 FP246360 | 15650 -030000000000 OCT 430000000000 09 MTW10 FP246370 | 15651 -120000210000 OCT 520000210000 10 MTW11 FP246380 15652 -120000240000 OCT 520000240000 11 MTW12 FP246390 | 15653 -120000270000 OCT 520000270000 12 MTW13 FP246400 | 15654 -120000410000 OCT 520000410000 13 MTW14 FP246410 | 15655 -120000430000 OCT 520000430000 14 MTW15 FP246420 | 15656 -120000440000 OCT 520000440000 15 MTW16 FP246430 15657 -120000450000 OCT 520000450000 16 MTW17 FP246440 | 15660 -120000470000 OCT 520000470000 17 MTW18 FP246450 | 15661 -120000620000 OCT 520000620000 18 MTW19 FP246460 | 15662 -120000650000 OCT 520000650000 19 MTW20 FP246470 | 15663 -210000000000 OCT 610000000000 20 MTW21 FP246480 15664 -230000000000 OCT 630000000000 21 MTW22 FP246490 | 15665 -230000770000 OCT 630000770000 MTW221FP246500 | 15666 -260000000000 OCT 660000000000 MTW230FP246510 | 15667 -250000030000 OCT 650000030000 MTW231FP246520 | 15670 -250000070000 OCT 650000070000 MTW232FP246530 15671 -270000000000 OCT 670000000000 23 MTW24 FP246540 | 15672 +000000100000 OCT 000000100000 MTW244FP246550 | 15673 +000000200000 OCT 000000200000 MTW245FP246560 | 15674 +000000000004 MTW25 OCT 4 SORTT, ETC MTW25 FP246570 | 15675 +160000470000 OCT 160000470000 MTW35 FP246580 15676 0 00000 0 00001 PZE 1 MTW36 FP246590 | 1 LISTING OF 12/01/64 PAGE 509 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | 15677 -370000770000 MTW99 OCT 770000770000 MTW99 FP246600 15700 0600 00 0 15461 ML010 STZ MTB99 ZERO RUN IN SW ML0100FP246610 | 15701 0600 00 0 15441 STZ MTA61 MINOR PAGE NUMBER ML0105FP246620 | 15702 -0500 00 0 16130 CAL MLA08 ML0110FP246630 | 15703 0602 00 0 15311 SLW MV240 INIT FOR RETURN ML0115FP246640 | 15704 -0500 00 0 15455 CAL MTB63 TRA MW400 ML0140FP246650 15705 0602 00 0 15430 SLW MW623 ML0145FP246660 | 15706 -0500 00 0 15471 CAL MTC70 IOCD ML0150FP246670 | 15707 0630 00 0 15463 STP MTC10 ML0155FP246680 | 15710 -0500 00 0 16123 CAL MLA02 HRDWR ML110 FP246690 | 15711 0602 00 0 15555 SLW MTT31 ML120 FP246700 15712 0074 00 4 16107 TSX MN400,4 ML125 FP246710 | 15713 0774 00 1 00024 AXT 20,1 ML130 FP246720 | 15714 0560 00 1 11370 ML140 LDQ HRDWR+1,1 ML140 FP246730 | 15715 0774 00 4 00006 AXT 6,4 ML150 FP246740 | 15716 0767 00 0 00003 ALS 3 ML160 FP246750 15717 -0763 00 0 00003 LGL 3 ML170 FP246760 | 15720 2 00001 4 15716 TIX *-2,4,1 ML180 FP246770 | 15721 0602 00 0 15555 SLW MTT31 ML190 FP246780 | 15722 0774 00 4 00006 AXT 6,4 ML200 FP246790 | 15723 0767 00 0 00003 ALS 3 ML210 FP246800 15724 -0763 00 0 00003 LGL 3 ML220 FP246810 | 15725 2 00001 4 15723 TIX *-2,4,1 ML230 FP246820 | 15726 0602 00 0 15556 SLW MTT31+1 ML240 FP246830 | 15727 0074 00 4 16107 TSX MN400,4 ML360 FP246840 | 15730 2 00001 1 15714 TIX ML140,1,1 ML370 FP246850 15731 0600 00 0 15461 STZ MTB99 PRINT SNTRY TABLE ML375 FP246860 | 15732 -0500 00 0 16124 CAL MLA04 ML380 FP246870 | 15733 0602 00 0 15555 SLW MTT31 ML390 FP246880 | 15734 0074 00 4 16107 TSX MN400,4 ML400 FP246890 | 15735 0774 00 1 00062 AXT SNZE,1 ML410 FP246900 15736 -0520 00 1 67543 ML420 NZT SNTRY+SNZE,1 ML420 FP246910 | 15737 0020 00 0 15770 TRA ML690 OUT ML430 FP246920 | 15740 0560 00 1 67543 LDQ SNTRY+SNZE,1 ML440 FP246930 | 15741 0774 00 4 00006 AXT 6,4 ML450 FP246940 | 15742 0767 00 0 00003 ALS 3 ML460 FP246950 15743 -0763 00 0 00003 LGL 3 ML470 FP246960 | 15744 2 00001 4 15742 TIX *-2,4,1 ML480 FP246970 | 15745 0602 00 0 15555 SLW MTT31 ML490 FP246980 | 15746 0774 00 4 00006 AXT 6,4 ML500 FP246990 | 15747 0767 00 0 00003 ALS 3 ML510 FP247000 15750 -0763 00 0 00003 LGL 3 ML520 FP247010 | 15751 2 00001 4 15747 TIX *-2,4,1 ML530 FP247020 | 15752 0602 00 0 15556 SLW MTT31+1 ML540 FP247030 | 15753 0560 00 1 67544 LDQ SNTRY+SNZE+1,1 ML550 FP247040 | 15754 0774 00 4 00006 AXT 6,4 ML560 FP247050 15755 0767 00 0 00003 ALS 3 ML570 FP247060 | 15756 -0763 00 0 00003 LGL 3 ML580 FP247070 | 15757 2 00001 4 15755 TIX *-2,4,1 ML590 FP247080 | 15760 0602 00 0 15560 SLW MTT31+3 ML600 FP247090 | 15761 0774 00 4 00006 AXT 6,4 ML610 FP247100 15762 0767 00 0 00003 ALS 3 ML620 FP247110 | 15763 -0763 00 0 00003 LGL 3 ML630 FP247120 | 15764 2 00001 4 15762 TIX *-2,4,1 ML640 FP247130 | 15765 0602 00 0 15561 SLW MTT31+4 ML650 FP247140 | 1 LISTING OF 12/01/64 PAGE 510 ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | 15766 0074 00 4 16107 TSX MN400,4 ML660 FP247150 | 15767 2 00002 1 15736 TIX ML420,1,2 ML680 FP247160 | 15770 0600 00 0 15461 ML690 STZ MTB99 PRINT ONTRY TABLE ML690 FP247170 15771 -0500 00 0 16125 CAL MLA05 ML694 FP247180 | 15772 0602 00 0 15555 SLW MTT31 ML695 FP247190 | 15773 0074 00 4 16107 TSX MN400,4 ML700 FP247200 | 15774 0774 00 1 00113 AXT OTZE,1 ML710 FP247210 | 15775 -0520 00 1 67461 ML720 NZT ONTRY+OTZE,1 ML720 FP247220 15776 0020 00 0 16014 TRA ML870 OUT ML730 FP247230 | 15777 0560 00 1 67461 LDQ ONTRY+OTZE,1 ML740 FP247240 | 16000 0774 00 4 00006 AXT 6,4 ML750 FP247250 | 16001 0767 00 0 00003 ALS 3 ML760 FP247260 | 16002 -0763 00 0 00003 LGL 3 ML770 FP247270 16003 2 00001 4 16001 TIX *-2,4,1 ML780 FP247280 | 16004 0602 00 0 15555 SLW MTT31 ML790 FP247290 | 16005 0774 00 4 00006 AXT 6,4 ML800 FP247300 | 16006 0767 00 0 00003 ALS 3 ML810 FP247310 | 16007 -0763 00 0 00003 LGL 3 ML820 FP247320 16010 2 00001 4 16006 TIX *-2,4,1 ML830 FP247330 | 16011 0602 00 0 15556 SLW MTT31+1 ML840 FP247340 | 16012 0074 00 4 16107 TSX MN400,4 ML850 FP247350 | 16013 2 00001 1 15775 TIX ML720,1,1 ML861 FP247360 | 16014 0600 00 0 15461 ML870 STZ MTB99 PRINT VNTRY TABLE ML870 FP247370 16015 -0500 00 0 16126 CAL MLA06 ML874 FP247380 | 16016 0602 00 0 15555 SLW MTT31 ML875 FP247390 | 16017 0074 00 4 16107 TSX MN400,4 ML880 FP247400 | 16020 0774 00 1 00113 AXT VTZE,1 ML890 FP247410 | 16021 -0520 00 1 67346 ML900 NZT VNTRY+VTZE,1 ML900 FP247420 16022 0020 00 0 16040 TRA MN070 OUT ML910 FP247430 | 16023 0560 00 1 67346 LDQ VNTRY+VTZE,1 ML920 FP247440 | 16024 0774 00 4 00006 AXT 6,4 ML930 FP247450 | 16025 0767 00 0 00003 ALS 3 ML940 FP247460 | 16026 -0763 00 0 00003 LGL 3 ML950 FP247470 16027 2 00001 4 16025 TIX *-2,4,1 ML960 FP247480 | 16030 0602 00 0 15555 SLW MTT31 ML970 FP247490 | 16031 0774 00 4 00006 AXT 6,4 ML980 FP247500 | 16032 0767 00 0 00003 ALS 3 ML990 FP247510 | 16033 -0763 00 0 00003 LGL 3 MN010 FP247520 16034 2 00001 4 16032 TIX *-2,4,1 MN020 FP247530 | 16035 0602 00 0 15556 SLW MTT31+1 MN030 FP247540 | 16036 0074 00 4 16107 TSX MN400,4 MN040 FP247550 | 16037 2 00001 1 16021 TIX ML900,1,1 MN060 FP247560 | 16040 0600 00 0 15461 MN070 STZ MTB99 PRINT SORTT TABLE MN070 FP247570 16041 -0500 00 0 16127 CAL MLA07 MN074 FP247580 | 16042 0602 00 0 15555 SLW MTT31 MN075 FP247590 | 16043 0074 00 4 16107 TSX MN400,4 MN080 FP247600 | 16044 0774 00 1 03777 AXT STZE,1 MN090 FP247610 | 16045 -0520 00 1 77000 MN100 NZT SORTT+STZE+1,1 MN100 FP247620 16046 0020 00 0 16077 TRA MN370 OUT MN110 FP247630 | 16047 0560 00 1 76777 LDQ SORTT+STZE,1 MN120 FP247640 | 16050 0774 00 4 00006 AXT 6,4 MN130 FP247650 | 16051 0767 00 0 00003 ALS 3 MN140 FP247660 | 16052 -0763 00 0 00003 LGL 3 MN150 FP247670 16053 2 00001 4 16051 TIX *-2,4,1 MN160 FP247680 | 16054 0602 00 0 15555 SLW MTT31 MN170 FP247690 | 1 LISTING OF 12/01/64 PAGE 511 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | 16055 0774 00 4 00006 AXT 6,4 MN180 FP247700 | 16056 0767 00 0 00003 ALS 3 MN190 FP247710 | 16057 -0763 00 0 00003 LGL 3 MN200 FP247720 | 16060 2 00001 4 16056 TIX *-2,4,1 MN210 FP247730 | 16061 0602 00 0 15556 SLW MTT31+1 MN220 FP247740 16062 0560 00 1 77000 LDQ SORTT+STZE+1,1 MN230 FP247750 | 16063 0774 00 4 00006 AXT 6,4 MN240 FP247760 | 16064 0767 00 0 00003 ALS 3 MN250 FP247770 | 16065 -0763 00 0 00003 LGL 3 MN260 FP247780 | 16066 2 00001 4 16064 TIX *-2,4,1 MN270 FP247790 16067 0602 00 0 15560 SLW MTT31+3 MN280 FP247800 | 16070 0774 00 4 00006 AXT 6,4 MN290 FP247810 | 16071 0767 00 0 00003 ALS 3 MN300 FP247820 | 16072 -0763 00 0 00003 LGL 3 MN310 FP247830 | 16073 2 00001 4 16071 TIX *-2,4,1 MN320 FP247840 16074 0602 00 0 15561 SLW MTT31+4 MN330 FP247850 | 16075 0074 00 4 16107 TSX MN400,4 MN340 FP247860 | 16076 2 00002 1 16045 TIX MN100,1,2 MN360 FP247870 | 16077 -0500 00 0 15454 MN370 CAL MTB61 NOP MN370 FP247880 | 16100 0602 00 0 15430 SLW MW623 MN377 FP247890 16101 0602 00 0 15311 SLW MV240 MN378 FP247900 | 16102 0600 00 0 15461 STZ MTB99 MN380 FP247910 | 16103 0600 00 0 15441 STZ MTA61 MN381 FP247920 | 16104 -0500 00 0 15465 CAL MTC30 IORP MN385 FP247930 | 16105 0630 00 0 15463 STP MTC10 MN386 FP247940 16106 0020 00 0 13762 TRA MD110 MN390 FP247950 | 16107 0634 00 4 16121 MN400 SXA MN500,4 MN400 FP247960 | 16110 0634 00 1 16120 SXA MN490,1 MN410 FP247970 | 16111 0020 00 0 15375 TRA MW010 MN420 FP247980 | 16112 -0500 00 0 15445 MN430 CAL MTB10 MN430 FP247990 16113 0602 00 0 15555 SLW MTT31 MN440 FP248000 | 16114 0602 00 0 15556 SLW MTT31+1 MN450 FP248010 | 16115 0602 00 0 15557 SLW MTT31+2 MN460 FP248020 | 16116 0602 00 0 15560 SLW MTT31+3 MN470 FP248030 | 16117 0602 00 0 15561 SLW MTT31+4 MN480 FP248040 16120 0774 00 1 00000 MN490 AXT 0,1 MN490 FP248050 | 16121 0774 00 4 00000 MN500 AXT 0,4 MN500 FP248060 | 16122 0020 00 4 00001 TRA 1,4 MN510 FP248070 | 1 LISTING OF 12/01/64 PAGE 512 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | 16123 305124665160 MLA02 BCI 1,HRDWR MLA02 FP248090 | 16124 624563517060 MLA04 BCI 1,SNTRY MLA04 FP248100 | 16125 464563517060 MLA05 BCI 1,ONTRY MLA05 FP248110 | 16126 654563517060 MLA06 BCI 1,VNTRY MLA06 FP248120 16127 624651636360 MLA07 BCI 1,SORTT MLA07 FP248130 | 16130 0020 00 0 16112 MLA08 TRA MN430 MLA08 FP248140 | 16131 0 00000 0 73000 MAA01 PZE SORTT MAA01 FP248150 | 16132 0 00000 0 00002 MAA02 PZE 2 MAA02 FP248160 | 16133 0 00000 0 00000 MAA03 PZE SAVE 4 MAA03 FP248170 16134 3 11610 0 17136 MDA10 IORT MDC10,0,5000 MDA10 FP248180 | 16135 3 01274 0 77220 MDA20 IORT 32400,0,700 MDA20 FP248190 | 16136 3 01750 2 17136 MDA30 IORTN MDC10,0,1000 MDA30 FP248200 | 16137 +000000000065 MDA40 OCT 65 MDA40 FP248210 | 16140 +000000000067 MDA50 OCT 67 MDA50 FP248220 16141 +000000100000 MDA60 OCT 100000 MDA60 FP248230 | 16142 +000000400000 MDA65 OCT 400000 MDA65 FP248240 | 16143 0 00000 0 00001 MDA70 PZE 1 ONE MDA70 FP248250 | 16144 0774 00 2 00000 MDA80 AXT 0,2 MDA80 FP248260 | 16145 +160000000000 MDA90 OCT 160000000000 MDA90 FP248270 16146 0 00000 0 00000 MDB10 PZE SEARCH CODE MDB10 FP248280 | 16147 -237777770001 MDB15 OCT 637777770001 MDB15 FP248290 | 16150 -377400000000 MDB20 OCT 777400000000 MDB20 FP248300 | 16151 0 00000 0 00000 MDB30 PZE 0 COUNT NO BUFFERS MDB30 FP248310 | 16152 -270000000000 MDB40 OCT 670000000000 MDB40 FP248320 16153 0 00000 0 00000 MDB50 PZE 0 FOR I/O TABLE LOCATION MDB50 FP248330 | 16154 +000000077777 MDB51 OCT 77777 MDB51 FP248340 | 16155 0 00000 0 00000 MDB52 PZE 0 MDB52 FP248350 | 16156 +347777000001 MDB53 OCT 347777000001 MDB53 FP248360 | 16157 +330000000001 MDB54 OCT 330000000001 MDB54 FP248370 16160 +077777000000 MDB55 OCT 077777000000 MDB55 FP248380 | 16161 0 00000 0 00000 MDB59 PZE 0 ATBL1 SW MDB59 FP248390 | 16162 -260000000000 MDB60 OCT 660000000000 MDB60 FP248400 | 16163 0 00000 0 00002 MDB61 PZE 2 MDB61 FP248410 | 16164 0 00000 0 17137 MDB62 PZE MDC10+1 MDB62 FP248420 16165 -250000070000 MDB69 OCT 650000070000 MDB69 FP248430 | 16166 -250000030000 MDB70 OCT 650000030000 MDB70 FP248440 | 16167 0 00000 0 00000 MDB71 PZE INDIRECT FOR OBPGM MDB71 FP248450 | 16170 0 00000 0 00000 MDB72 PZE SIGN ZERO-PLUS MDB72 FP248460 | 16171 0 00000 0 00000 MDB73 PZE REL COUNT INSTR MDB73 FP248470 16172 0 00000 0 00000 MDB74 PZE COUNT ADDR MDB74 FP248480 | 16173 +000000000070 MDB75 OCT 70 MDB75 FP248490 | 16174 0 00000 0 00000 MDB76 PZE 0 FOR ADDR LOC SAVE MDB76 FP248500 | 16175 +000000000072 MDB77 OCT 72 MDB77 FP248510 | 16176 +000007000000 MDB78 OCT 7000000 MDB78 FP248520 16177 0 00000 0 00003 MDB80 PZE 3 MDB80 FP248530 | 16200 -0 00001 0 16211 MDB81 IOCP MDB91,0,1 MDB81 FP248540 | 16201 -1 00000 0 25110 MDB82 IOCT MDC30,0,0 MDB82 FP248550 | 16202 -120000650000 MDB83 OCT 520000650000 MDB83 FP248560 | 16203 +000000000016 MDB84 OCT 16 MDB84 FP248570 16204 -1 00000 0 17136 MDB86 IOCT MDC10,0,0 PGM MDB86 FP248580 | 16205 -1 00000 0 23140 MDB87 IOCT MDC20,0,0 ADDR MDB87 FP248590 | 16206 -1 00000 0 25110 MDB88 IOCT MDC30,0,0 STORG MDB88 FP248600 | 16207 0 00000 0 23142 MDB89 PZE MDC20+2 MDB89 FP248610 | 16210 +000000200000 MDB90 OCT 200000 MDB90 FP248620 16211 -1 00000 0 00000 MDB91 IOCT 0,0,0 MDB91 FP248630 | 1 LISTING OF 12/01/64 PAGE 513 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | 16212 +000002000000 MDB92 OCT 2000000 MDB92 FP248640 16213 -0 00001 0 16211 MDB93 IOCP MDB91,0,1 MDB93 FP248650 | 16214 -1 00000 0 17136 MDB94 IOCT MDC10,0,0 MDB94 FP248660 | 16215 3 11610 0 23140 MDB95 IORT MDC20,0,5000 MDB95 FP248670 | 16216 3 11610 0 25110 MDB96 IORT MDC30,0,5000 MDB96 FP248680 | 16217 0 00000 0 00000 MDB97 PZE 0 LOC OBPGM MDB97 FP248690 16220 0 00000 0 00000 MDB98 PZE 0 LOC STORG MDB98 FP248700 | 16221 +000000000377 MDB99 OCT 377 MDB99 FP248710 | 16222 MDC00 BSS SNZE MDC00 FP248720 | 16304 475146232562 MDC01 BCI 8,PROCESSING HALTED DUE TO EDIT ERRORS INDICATED MDC01 FP248730 | 16305 623145276030 16306 214363252460 | 16307 246425606346 | 16310 602524316360 | 16311 255151465162 | 16312 603145243123 16313 216325246060 | 16314 622563604225 MDC02 BCI 6,SET KEYS FOR FP SYMBOLIC LISTING MDC02 FP248740 | 16315 706260264651 | 16316 602647606270 | 16317 442246433123 16320 604331626331 | 16321 452760606060 | 1 LISTING OF 12/01/64 PAGE 514 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | 16322 0361 00 0 00000 LITRL ACL 0,0,0 80010 FP248760 | 16323 606060212343 BCI 1, ACL FP248770 | 16324 0400 00 0 00000 ADD 0,0,0 80030 FP248780 | 16325 606060212424 BCI 1, ADD FP248790 | 16326 -0320 00 0 00000 ANA 0,0,0 80050 FP248800 16327 606060214521 BCI 1, ANA FP248810 | 16330 0320 00 0 00000 ANS 0,0,0 80063 FP248820 | 16331 606060214562 BCI 1, ANS FP248830 | 16332 -0500 00 0 00000 CAL 0,0,0 80070 FP248840 | 16333 606060232143 BCI 1, CAL FP248850 16334 0500 00 0 00000 CLA 0,0,0 80090 FP248860 | 16335 606060234321 BCI 1, CLA FP248870 | 16336 0760 00 0 00006 COM COM 0,0,0 80110 FP248880 | 16337 606060234644 BCI 1, COM FP248890 | 16340 0420 00 0 00000 HPR 0,0,0 80130 FP248900 16341 606060304751 BCI 1, HPR FP248910 | 16342 -0340 00 0 00000 LAS 0,0,0 80150 FP248920 | 16343 606060432162 BCI 1, LAS FP248930 | 16344 0560 00 0 00000 LDQ 0,0,0 80170 FP248940 | 16345 606060432450 BCI 1, LDQ FP248950 16346 -0763 00 0 00000 LGL 0,0,0 80190 FP248960 | 16347 606060432743 BCI 1, LGL FP248970 | 16350 -0765 00 0 00000 LGR 0,0,0 80210 FP248980 | 16351 606060432751 BCI 1, LGR FP248990 | 16352 0761 00 0 00000 NOP 0,0,0 80230 FP249000 16353 606060454647 BCI 1, NOP FP249010 | 16354 -0520 00 0 00000 NZT 0,0,0 80250 FP249020 | 16355 606060457163 BCI 1, NZT FP249030 | 16356 -0501 00 0 00000 ORA 0,0,0 80270 FP249040 | 16357 606060465121 BCI 1, ORA FP249050 16360 -0602 00 0 00000 ORS 0,0,0 80290 FP249060 | 16361 606060465162 BCI 1, ORS FP249070 | 16362 0602 00 0 00000 SLW 0,0,0 80310 FP249080 | 16363 606060624366 BCI 1, SLW FP249090 | 16364 0601 00 0 00000 STO 0,0,0 80323 FP249100 16365 606060626346 BCI 1, STO FP249110 | 16366 0600 00 0 00000 STZ 0,0,0 80330 FP249120 | 16367 606060626371 BCI 1, STZ FP249130 | 16370 0402 00 0 00000 SUB 0,0,0 80350 FP249140 | 16371 606060626422 BCI 1, SUB FP249150 16372 0020 00 0 00000 TRA 0,0,0 80370 FP249160 | 16373 606060635121 BCI 1, TRA FP249170 | 16374 0100 00 0 00000 TZE 0,0,0 80390 FP249180 | 16375 606060637125 BCI 1, TZE FP249190 | 16376 -0130 00 0 00000 XCL 0,0,0 80410 FP249200 16377 606060672343 BCI 1, XCL FP249210 | 16400 0520 00 0 00000 ZET 0,0,0 80430 FP249220 | 16401 606060712563 BCI 1, ZET FP249230 | 16402 0 00000 0 00000 PZE 0,0,0 80450 FP249240 | 16403 606060477125 BCI 1, PZE FP249250 16404 0401 00 0 00000 ADM 0,0,0 FP249260 | 16405 606060212444 BCI 1, ADM FP249270 | 16406 0767 00 0 00000 ALS 0,0,0 FP249280 | 16407 606060214362 BCI 1, ALS FP249290 | 16410 0771 00 0 00000 ARS 0,0,0 FP249300 1 LISTING OF 12/01/64 PAGE 515 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | 16411 606060215162 BCI 1, ARS FP249310 | 16412 -0774 00 0 00000 AXC 0,0,0 FP249320 16413 606060216723 BCI 1, AXC FP249330 | 16414 0774 00 0 00000 AXT 0,0,0 FP249340 | 16415 606060216763 BCI 1, AXT FP249350 | 16416 -0114 00 0 00000 CAQ 0,0,0 FP249360 | 16417 606060232150 BCI 1, CAQ FP249370 16420 0340 00 0 00000 CAS 0,0,0 FP249380 | 16421 606060232162 BCI 1, CAS FP249390 | 16422 0760 00 0 00000 CLM 0,0,0 FP249400 | 16423 606060234344 BCI 1, CLM FP249410 | 16424 0502 00 0 00000 CLS 0,0,0 FP249420 16425 606060234362 BCI 1, CLS FP249430 | 16426 -0154 00 0 00000 CRQ 0,0,0 FP249440 | 16427 606060235150 BCI 1, CRQ FP249450 | 16430 0114 00 0 00000 CVR 0,0,0 FP249460 | 16431 606060236551 BCI 1, CVR FP249470 16432 0220 00 0 00000 DVH 0,0,0 FP249480 | 16433 606060246530 BCI 1, DVH FP249490 | 16434 0221 00 0 00000 DVP 0,0,0 FP249500 | 16435 606060246547 BCI 1, DVP FP249510 | 16436 0322 00 0 00000 ERA 0,0,0 FP249520 16437 606060255121 BCI 1, ERA FP249530 | 16440 0300 00 0 00000 FAD 0,0,0 FP249540 | 16441 606060262124 BCI 1, FAD FP249550 | 16442 0304 00 0 00000 FAM 0,0,0 FP249560 | 16443 606060262144 BCI 1, FAM FP249570 16444 0240 00 0 00000 FDH 0,0,0 FP249580 | 16445 606060262430 BCI 1, FDH FP249590 | 16446 0241 00 0 00000 FDP 0,0,0 FP249600 | 16447 606060262447 BCI 1, FDP FP249610 | 16450 0260 00 0 00000 FMP 0,0,0 FP249620 16451 606060264447 BCI 1, FMP FP249630 | 16452 0302 00 0 00000 FSB 0,0,0 FP249640 | 16453 606060266222 BCI 1, FSB FP249650 | 16454 0306 00 0 00000 FSM 0,0,0 FP249660 | 16455 606060266244 BCI 1, FSM FP249670 16456 0000 00 0 00000 HTR 0,0,0 FP249680 | 16457 606060306351 BCI 1, HTR FP249690 | 16460 0041 00 0 00000 IIA 0,0,0 FP249700 | 16461 606060313121 BCI 1, IIA FP249710 | 16462 0440 00 0 00000 IIS 0,0,0 FP249720 16463 606060313162 BCI 1, IIS FP249730 | 16464 0535 00 0 00000 LAC 0,0,0 FP249740 | 16465 606060432123 BCI 1, LAC FP249750 | 16466 -0535 00 0 00000 LDC 0,0,0 FP249760 | 16467 606060432423 BCI 1, LDC FP249770 16470 0763 00 0 00000 LLS 0,0,0 FP249780 | 16471 606060434362 BCI 1, LLS FP249790 | 16472 0765 00 0 00000 LRS 0,0,0 FP249800 | 16473 606060435162 BCI 1, LRS FP249810 | 16474 0534 00 0 00000 LXA 0,0,0 FP249820 16475 606060436721 BCI 1, LXA FP249830 | 16476 -0534 00 0 00000 LXD 0,0,0 FP249840 | 16477 606060436724 BCI 1, LXD FP249850 | 1 LISTING OF 12/01/64 PAGE 516 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | 16500 -0200 00 0 00000 MPR 0,0,0 FP249860 | 16501 606060444751 BCI 1, MPR FP249870 | 16502 0200 00 0 00000 MPY 0,0,0 FP249880 | 16503 606060444770 BCI 1, MPY FP249890 16504 -0760 00 0 00000 MSE 0,0,0 FP249900 | 16505 606060446225 BCI 1, MSE FP249910 | 16506 0043 00 0 00000 OAI 0,0,0 FP249920 | 16507 606060462131 BCI 1, OAI FP249930 | 16510 0444 00 0 00000 OFT 0,0,0 FP249940 16511 606060462663 BCI 1, OFT FP249950 | 16512 0446 00 0 00000 ONT 0,0,0 FP249960 | 16513 606060464563 BCI 1, ONT FP249970 | 16514 0442 00 0 00000 OSI 0,0,0 FP249980 | 16515 606060466231 BCI 1, OSI FP249990 16516 0737 00 0 00000 PAC 0,0,0 FP250000 | 16517 606060472123 BCI 1, PAC FP250010 | 16520 0044 00 0 00000 PAI 0,0,0 FP250020 | 16521 606060472131 BCI 1, PAI FP250030 | 16522 0734 00 0 00000 PAX 0,0,0 FP250040 16523 606060472167 BCI 1, PAX FP250050 | 16524 -0737 00 0 00000 PDC 0,0,0 FP250060 | 16525 606060472423 BCI 1, PDC FP250070 | 16526 -0734 00 0 00000 PDX 0,0,0 FP250080 | 16527 606060472467 BCI 1, PDX FP250090 16530 -0046 00 0 00000 PIA 0,0,0 FP250100 | 16531 606060473121 BCI 1, PIA FP250110 | 16532 0760 00 0 00000 PSE 0,0,0 FP250120 | 16533 606060476225 BCI 1, PSE FP250130 | 16534 0754 00 0 00000 PXA 0,0,0 FP250140 16535 606060476721 BCI 1, PXA FP250150 | 16536 -0754 00 0 00000 PXD 0,0,0 FP250160 | 16537 606060476724 BCI 1, PXD FP250170 | 16540 -0042 00 0 00000 RIA 0,0,0 FP250180 | 16541 606060513121 BCI 1, RIA FP250190 16542 0445 00 0 00000 RIS 0,0,0 FP250200 | 16543 606060513162 BCI 1, RIS FP250210 | 16544 0760 00 0 00010 RND 0,0,0 FP250220 | 16545 606060514524 BCI 1, RND FP250230 | 16546 -0773 00 0 00000 RQL 0,0,0 FP250240 16547 606060515043 BCI 1, RQL FP250250 | 16550 -0400 00 0 00000 SBM 0,0,0 FP250260 | 16551 606060622244 BCI 1, SBM FP250270 | 16552 -0620 00 0 00000 SLQ 0,0,0 FP250280 | 16553 606060624350 BCI 1, SLQ FP250290 16554 0621 00 0 00000 STA 0,0,0 FP250300 | 16555 606060626321 BCI 1, STA FP250310 | 16556 0622 00 0 00000 STD 0,0,0 FP250320 | 16557 606060626324 BCI 1, STD FP250330 | 16560 0604 00 0 00000 STI 0,0,0 FP250340 16561 606060626331 BCI 1, STI FP250350 | 16562 -0625 00 0 00000 STL 0,0,0 FP250360 | 16563 606060626343 BCI 1, STL FP250370 | 16564 0630 00 0 00000 STP 0,0,0 FP250380 | 16565 606060626347 BCI 1, STP FP250390 16566 -0600 00 0 00000 STQ 0,0,0 FP250400 | 1 LISTING OF 12/01/64 PAGE 517 | ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | 16567 606060626350 BCI 1, STQ FP250410 16570 -1 00000 0 00000 STR 0,0,0 FP250420 | 16571 606060626351 BCI 1, STR FP250430 | 16572 0625 00 0 00000 STT 0,0,0 FP250440 | 16573 606060626363 BCI 1, STT FP250450 | 16574 0634 00 0 00000 SXA 0,0,0 FP250460 16575 606060626721 BCI 1, SXA FP250470 | 16576 -0634 00 0 00000 SXD 0,0,0 FP250480 | 16577 606060626724 BCI 1, SXD FP250490 | 16600 0046 00 0 00000 TIF 0,0,0 FP250500 | 16601 606060633126 BCI 1, TIF FP250510 16602 0042 00 0 00000 TIO 0,0,0 FP250520 | 16603 606060633146 BCI 1, TIO FP250530 | 16604 2 00000 0 00000 TIX 0,0,0 FP250540 | 16605 606060633167 BCI 1, TIX FP250550 | 16606 0040 00 0 00000 TLQ 0,0,0 FP250560 16607 606060634350 BCI 1, TLQ FP250570 | 16610 -0120 00 0 00000 TMI 0,0,0 FP250580 | 16611 606060634431 BCI 1, TMI FP250590 | 16612 -0140 00 0 00000 TNO 0,0,0 FP250600 | 16613 606060634546 BCI 1, TNO FP250610 16614 -2 00000 0 00000 TNX 0,0,0 FP250620 | 16615 606060634567 BCI 1, TNX FP250630 | 16616 -0100 00 0 00000 TNZ 0,0,0 FP250640 | 16617 606060634571 BCI 1, TNZ FP250650 | 16620 0140 00 0 00000 TOV 0,0,0 FP250660 16621 606060634665 BCI 1, TOV FP250670 | 16622 0120 00 0 00000 TPL 0,0,0 FP250680 | 16623 606060634743 BCI 1, TPL FP250690 | 16624 0162 00 0 00000 TQP 0,0,0 FP250700 | 16625 606060635047 BCI 1, TQP FP250710 16626 0074 00 0 00000 TSX 0,0,0 FP250720 | 16627 606060636267 BCI 1, TSX FP250730 | 16630 0021 00 0 00000 TTR 0,0,0 FP250740 | 16631 606060636351 BCI 1, TTR FP250750 | 16632 3 00000 0 00000 TXH 0,0,0 FP250760 16633 606060636730 BCI 1, TXH FP250770 | 16634 1 00000 0 00000 TXI 0,0,0 FP250780 | 16635 606060636731 BCI 1, TXI FP250790 | 16636 -3 00000 0 00000 TXL 0,0,0 FP250800 | 16637 606060636743 BCI 1, TXL FP250810 16640 -0304 00 0 00000 UAM 0,0,0 FP250820 | 16641 606060642144 BCI 1, UAM FP250830 | 16642 -0300 00 0 00000 UFA 0,0,0 FP250840 | 16643 606060642621 BCI 1, UFA FP250850 | 16644 -0260 00 0 00000 UFM 0,0,0 FP250860 16645 606060642644 BCI 1, UFM FP250870 | 16646 -0302 00 0 00000 UFS 0,0,0 FP250880 | 16647 606060642662 BCI 1, UFS FP250890 | 16650 -0306 00 0 00000 USM 0,0,0 FP250900 | 16651 606060646244 BCI 1, USM FP250910 16652 0224 00 0 00000 VDH 0,0,0 FP250920 | 16653 606060652430 BCI 1, VDH FP250930 | 16654 0225 00 0 00000 VDP 0,0,0 FP250940 | 16655 606060652447 BCI 1, VDP FP250950 | 1 LISTING OF 12/01/64 PAGE 518 ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | 16656 0204 00 0 00000 VLM 0,0,0 FP250960 | 16657 606060654344 BCI 1, VLM FP250970 | 16660 0131 00 0 00000 XCA 0,0,0 FP250980 16661 606060672321 BCI 1, XCA FP250990 | 16662 0522 00 0 00000 XEC 0,0,0 FP251000 | 16663 606060672523 BCI 1, XEC FP251010 | 16664 -0051 00 000000 IIL 0 FP251020 | 16665 606060313143 BCI 1, IIL FP251030 16666 0051 00 000000 IIR 0 FP251040 | 16667 606060313151 BCI 1, IIR FP251050 | 16670 -0054 00 000000 LFT 0 FP251060 | 16671 606060432663 BCI 1, LFT FP251070 | 16672 -0056 00 000000 LNT 0 FP251080 16673 606060434563 BCI 1, LNT FP251090 | 16674 0054 00 000000 RFT 0 FP251100 | 16675 606060512663 BCI 1, RFT FP251110 | 16676 -0057 00 000000 RIL 0 FP251120 | 16677 606060513143 BCI 1, RIL FP251130 16700 0057 00 000000 RIR 0 FP251140 | 16701 606060513151 BCI 1, RIR FP251150 | 16702 0056 00 000000 RNT 0 FP251160 | 16703 606060514563 BCI 1, RNT FP251170 | 16704 -0055 00 000000 SIL 0 FP251180 16705 606060623143 BCI 1, SIL FP251190 | 16706 0055 00 000000 SIR 0 FP251200 | 16707 606060623151 BCI 1, SIR FP251210 | 16710 LITRL1 BSS 100 FOR INSTRUCTION EXPANSION FP251220 | 17136 ADSMT BES 50 FP251230 17136 MDC10 BSS 2050 MDC10 FP251240 | 23140 MDC20 BSS 1000 MDC20 FP251250 | 25110 MDC30 BSS 500 MDC30 FP251260 | 00000 TCD 0 FP251270 | 1 LISTING OF 12/01/64 PAGE 519 ADASMT (9PAC34). LIST. SYMBOLIC LIST OF OBJECT PROGRAM | | * FP251290 | 1 LISTING OF 12/01/64 PAGE 520 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | * FP251310 | * FP251320 | 13632 ORG ASMBL FOR PRE-PROCESSING FP251340 | * FP251350 * HORIZONTAL PRE-PREPROCESSING FP251360 | * FP251370 | 13632 114721230105 BCI 1,9PAC15 FP251380 | 13633 475125475146 BCI 1,PREPRO FP251390 | 00100 ORG SYSTRA FP251400 00100 0020 00 0 13634 TRA PA001 FP251410 | 13634 ORG ASMBL+2 FP251420 | 13634 0074 00 4 06342 PA001 TSX TPOSIT,4 POSITION PREPRO UNIT FP251430 | 13635 2 00000 0 00011 PTW 9 FP251440 | 13636 0600 00 0 04712 STZ BCOMD REINITIALIZE FOR BUFFERED READING FP251450 13637 -0500 00 0 04504 CAL SYMTAP-21 FP251460 | 13640 0602 00 0 15223 SLW PSC25 SAVE SYSIN1 FP251470 | 13641 -0500 00 0 04476 CAL SYMTAP-27 MOVE UNIT 27 TO UNIT 21 FP251480 | 13642 0621 00 0 04504 STA SYMTAP-21 FOR BUFFERRING FP251490 | 13643 0625 00 0 04504 STT SYMTAP-21 FP251500 13644 0074 00 4 06244 TSX SETUP,4 SET CONVERSION ROUTINE FOR 14 FP251510 | 13645 0 00000 0 00000 PZE 0 FP251520 | 13646 -0500 00 0 04504 CAL SYMTAP-21 WERE 21 AND 27 THE SAME FP251530 | 13647 0322 00 0 15223 ERA PSC25 IF YES, TZE FP251540 | 13650 -0320 00 0 15200 ANA PSA60 OTHERWISE, POSITION HORIZONTAL FP251550 13651 0100 00 0 13654 TZE *+3 DATA INPUT UNIT FP251560 | 13652 0074 00 4 06342 TSX TPOSIT,4 FP251570 | 13653 2 00000 0 00033 PTW 27 FP251580 | 13654 -0500 00 0 14073 CAL PAB61 MODIFY NORMAL RETURN PA006 FP251590 | 13655 0602 00 0 07671 SLW B0461 BCD BIN PA007 FP251600 13656 -0500 00 0 14074 CAL PAB62 MODIFY ERROR RETURN PA008 FP251610 | 13657 0602 00 0 07672 SLW B0470 BCD-BIN PA009 FP251620 | 13660 -0774 00 1 11102 PA015 AXC DESTL-1,1 INIT XR1 TO WD PREC TABLE PA015 FP251630 | 13661 -0774 00 2 11111 AXC DESTL+6,2 INIT XR2 TO PREC.WD OF 2ND PA020 FP251640 | 13662 0074 00 4 06342 PA030 TSX TPOSIT,4 POSITION TAPE TO DICT PA030 FP251650 13663 0 00000 0 00007 PZE 7 PA035 FP251660 | 13664 0074 00 4 05255 TSX RD(WR),4 SPACE OVER B-LABEL PA040 FP251670 | 13665 0 14066 0 00007 PZE 7,0,PAB20 PA045 FP251680 | 13666 0020 00 0 13671 TRA *+3 PA050 FP251690 | 13667 0074 00 4 10507 TSX T0010,4 PA054 FP251700 13670 -1 11362 4 00000 STR 0,4,4850 EOF, MASTER OUT DICT, PREPRO UNEXPECPA055 FP251710 | 13671 -0500 00 0 14054 CAL PAA50 INIT INSTRS USING LAST ADDRPA070 FP251720 | 13672 0602 00 1 00002 SLW 2,1 * FIRST PA080 FP251730 | 13673 0621 00 0 14067 STA PAB30 * READ PA090 FP251740 | 13674 0621 00 0 13707 STA PA230 * EXEC CODE PICK UP PA100 FP251750 13675 0400 00 0 14056 ADD PAA70 * 1 PA110 FP251760 | 13676 0621 00 0 13722 STA PA320 * REC TYPE PICK UP PA120 FP251770 | 13677 0400 00 0 14057 ADD PAA80 * 6 PA130 FP251780 | 13700 0400 00 0 14060 ADD PAA90 * 4 PA150 FP251790 | 13701 0621 00 0 14000 STA PA800 * SLW PA160 FP251800 13702 0074 00 4 05255 PA170 TSX RD(WR),4 READ A DICT LABEL PA170 FP251810 | 13703 0 14067 0 00007 PZE 7,0,PAB30 PA180 FP251820 | 13704 0020 00 0 13707 TRA *+3 PA190 FP251830 | 13705 0074 00 4 10507 TSX T0010,4 PA199 FP251840 | 13706 -1 11363 4 00000 STR 0,4,4851 EOF, MASTER OUT DICT, PREPRO UNEXPECPA200 FP251850 13707 -0500 00 0 16132 PA230 CAL PAA10 IS IT EXEC CODE E PA230 FP251860 | 1 LISTING OF 12/01/64 PAGE 521 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | | 13710 -0320 00 0 10765 ANA BCD40 * PA240 FP251870 13711 -0340 00 0 14062 LAS PAB10 * E PA250 FP251880 | 13712 0020 00 0 13714 TRA *+2 * PA260 FP251890 | 13713 0020 00 0 13722 TRA PA320 * YES PA270 FP251900 | 13714 -0340 00 0 14065 LAS PAB10+3 IS IT EXEC CODE P PA280 FP251910 | 13715 0020 00 0 13702 TRA PA170 * NO PA290 FP251920 13716 0020 00 0 13720 TRA *+2 PA300 FP251930 | 13717 0020 00 0 13702 TRA PA170 PA310 FP251940 | 13720 0074 00 4 10507 TSX T0010,4 PA315 FP251950 | 13721 -1 10636 4 00000 STR 0,4,4510 P WITHOUT E IN PREPRO PA316 FP251960 | 13722 -0500 00 0 16133 PA320 CAL PAA10+1 DICT REC TYPE EQUAL TO NEW PA320 FP251970 13723 0771 00 0 00006 ARS 6 * PA330 FP251980 | 13724 -0320 00 0 10730 ANA BCD03 * PA340 FP251990 | 13725 -0340 00 1 00001 LAS 1,1 * PA350 FP252000 | 13726 0020 00 0 13702 TRA PA170 UNEQUAL RECORD TYPE PA360 FP252010 | 13727 0020 00 0 13731 TRA *+2 EQUAL PA370 FP252020 13730 0020 00 0 13702 TRA PA170 UNEQUAL RECORD TYPE PA380 FP252030 | 13731 0074 00 4 05255 PA510 TSX RD(WR),4 READ TYPE TO WORK AREA PA510 FP252040 | 13732 0 14072 0 00007 PZE 7,0,PAB60 PA520 FP252050 | 13733 0020 00 0 13736 TRA *+3 PA530 FP252060 | 13734 0074 00 4 10507 TSX T0010,4 PA539 FP252070 13735 -1 11364 4 00000 STR 0,4,4852 EOF, MASTER OUT DICT, PREPRO UNEXPECPA540 FP252080 | 13736 -0500 00 0 14037 CAL PAA30 IS IT EXEC CODE F PA570 FP252090 | 13737 -0320 00 0 10765 ANA BCD40 * PA580 FP252100 | 13740 -0340 00 0 14063 LAS PAB10+1 * F PA590 FP252110 | 13741 0020 00 0 13743 TRA *+2 * NO PA600 FP252120 13742 0020 00 0 13762 TRA PA760 * EQUAL PA610 FP252130 | 13743 -0340 00 0 14064 LAS PAB10+2 IS IT G PA620 FP252140 | 13744 0020 00 0 13746 TRA *+2 * NO PA630 FP252150 | 13745 0020 00 0 13756 TRA PA720 * YES PA640 FP252160 | 13746 -0340 00 0 14062 LAS PAB10 IS IT E PA650 FP252170 13747 0020 00 0 13751 TRA *+2 * NO PA660 FP252180 | 13750 0020 00 0 14003 TRA PA830 * YES PA670 FP252190 | 13751 -0340 00 0 14065 LAS PAB10+3 IS IT P PA680 FP252200 | 13752 0020 00 0 13754 TRA *+2 * NO - ERROR PA690 FP252210 | 13753 0020 00 0 14003 TRA PA830 * YES PA700 FP252220 13754 0074 00 4 10507 TSX T0010,4 PA709 FP252230 | 13755 -1 11045 4 00000 STR 0,4,4645 EXEC CODE NOT E,F,G,OR P ON B7 PA710 FP252240 | 13756 0500 00 0 16145 PA720 CLA PAA10+11 SET SUM FWD CODE ON F REC PA720 FP252250 | 13757 -0760 00 0 00003 SSM * PA730 FP252260 | 13760 0601 00 0 16145 PA740 STO PAA10+11 * PA740 FP252270 13761 0020 00 0 13731 TRA PA510 BACK TO READ TAPE PA750 FP252280 | 13762 0500 00 0 14000 PA760 CLA PA800 INIT ADDR OF SUM FWD CODE FP252290 | 13763 0621 00 0 13756 STA PA720 * PA767 FP252300 | 13764 0621 00 0 13760 STA PA740 * PA768 FP252310 | 13765 0400 00 0 14055 ADD PAA60 UPDATE SLW BY 11 PA769 FP252320 13766 0621 00 0 14000 STA PA800 * PA770 FP252330 | 13767 -0320 00 0 14071 ANA PAB50 TEST SLW ADDR AGAINST LIMITPA771 FP252340 | 13770 0020 00 0 13773 TRA *+3 PA7715FP252350 | 13771 0074 00 4 10507 TSX T0010,4 PA7716FP252360 | 13772 -1 12243 5 00000 STR 0,5,5283 EXCEED DICT TABLE PA7717FP252370 13773 -0340 00 0 72450 LAS PAA40 * PA772 FP252380 | 13774 0020 00 0 13771 TRA *-3 PA773 FP252390 | 13775 0020 00 0 13774 TRA *-1 PA774 FP252400 | 13776 0774 00 4 00013 AXT 11,4 INIT XR4 TO 11 PA780 FP252410 | 1 LISTING OF 12/01/64 PAGE 522 PREPRO (9PAC15). HORIZONTAL PREPROCESSING | | 13777 -0500 00 4 14052 PA790 CAL PAA30+11,4 MOVE F RECORD TO DICT TBL PA790 FP252420 | 14000 0602 00 4 16160 PA800 SLW PAA10+22,4 * PA800 FP252430 | 14001 -2 00001 4 13731 TNX PA510,4,1 HAVE 11 WDS BEEN MOVED PA810 FP252440 14002 0020 00 0 13777 TRA PA790 * NO PA820 FP252450 | 14003 0074 00 4 05505 PA830 TSX NDSRT,4 PA830 FP252460 | 14004 0 00005 0 00007 PZE 7,0,5 PA835 FP252470 | 14005 0500 00 0 14000 CLA PA800 SET LAST TO SLW ADDR PA840 FP252480 | 14006 0621 00 0 14054 STA PAA50 * PA860 FP252490 14007 0621 00 1 00003 STA 3,1 MOVE LAST TO DESCR TBL PA870 FP252500 | 14010 -0500 00 1 00001 PA880 CAL 1,1 ANY MORE EQUAL REC TYPES PA880 FP252510 | 14011 -0340 00 2 00001 LAS 1,2 * NEXT TABLE ENTRY PA890 FP252520 | 14012 0020 00 0 14021 TRA PA970 * NOT EQUAL PA900 FP252530 | 14013 0020 00 0 14015 TRA *+2 * EQUAL PA910 FP252540 14014 0020 00 0 14021 TRA PA970 * NOT EQUAL PA920 FP252550 | 14015 -0500 00 1 00002 CAL 2,1 MOVE FIRST AND LAST TO PA930 FP252560 | 14016 0602 00 2 00002 SLW 2,2 MATCHING REC TYPE FORM PA940 FP252570 | 14017 -0500 00 1 00003 CAL 3,1 * PA950 FP252580 | 14020 0602 00 2 00003 SLW 3,2 * PA960 FP252590 14021 1 77771 2 14022 PA970 TXI *+1,2,-7 MODIFY TO NEXT FORM PA970 FP252600 | 14022 0754 00 2 00000 PXA 0,2 HAVE ALL FORMS BEEN CHECKEDPA980 FP252610 | 14023 0737 00 4 00000 PAC 0,4 * PA990 FP252620 | 14024 -3 11252 4 14010 TXL PA880,4,DESTL+103 * NO IF LOW PB010 FP252630 | 14025 0754 00 1 00000 PXA 0,1 SET XR2 TO XR1 PB020 FP252640 14026 0734 00 2 00000 PAX 0,2 * PB030 FP252650 | 14027 1 77762 2 14030 TXI *+1,2,-14 MODIFY XR2 BY 14 PB040 FP252660 | 14030 1 77771 1 14031 PB050 TXI *+1,1,-7 MODIFY XR1 BY 7 PB050 FP252670 | 14031 0754 00 1 00000 PXA 0,1 IS DICT TABLE COMPLETE PB060 FP252680 | 14032 0737 00 4 00000 PAC 0,4 * PB070 FP252690 14033 3 11252 4 14107 TXH PR010,4,DESTL+103 PB080 FP252700 | 14034 -0500 00 1 00002 CAL 2,1 HAS NEXT FORM BEEN FILED INPB090 FP252710 | 14035 0100 00 0 13662 TZE PA030 BACK TO HUNT FOR NEXT DICT PB100 FP252720 | 14036 1 77771 2 14030 TXI PB050,2,-7 INCR XR2 BY 7 PB110 FP252730 | 14037 PAA30 BSS 13 WORK AREA PAA30 FP252740 14054 0 00000 0 16132 PAA50 PZE PAA10 LAST PAA50 FP252750 | 14055 0 00000 0 00013 PAA60 PZE 11 11 PAA60 FP252760 | 14056 0 00000 0 00001 PAA70 PZE 1 1 PAA70 FP252770 | 14057 0 00000 0 00006 PAA80 PZE 6 6 PAA80 FP252780 | 14060 0 00000 0 00004 PAA90 PZE 4 4 PAA90 FP252790 14061 0020 00 0 10507 PAA99 TRA T0010 PAA99 FP252800 | 14062 250000000000 PAB10 BCI 4,E00000F00000G00000P00000 PAB10 FP252810 | 14063 260000000000 | 14064 270000000000 | 14065 470000000000 14066 3 00015 2 00000 PAB20 IORTN 0,,13 PAB20 FP252820 | 14067 3 00015 0 16132 PAB30 IORT PAA10,0,13 PAB30 FP252830 | 14070 0 00000 0 00026 PAB40 PZE 22 PAB40 FP252840 | 14071 +000000077777 PAB50 OCT 77777 MASK PAB50 FP252850 | 14072 3 00015 0 14037 PAB60 IORT PAA30,0,13 PAB60 FP252860 14073 0020 00 4 00002 PAB61 TRA 2,4 PAB61 FP252870 | 14074 0020 00 0 07740 PAB62 TRA B0810 PAB62 FP252880 | 14075 0 00000 0 00000 PAB70 PZE SAVE IR 1 PAB70 FP252890 | 14076 -0 00005 0 14102 PAB71 IOCP PAB75,0,5 PAB71 FP252900 | 14077 -1 00000 0 15077 PAB72 IOCT PRA10,0,0 PAB72 FP252910 14100 +001200000000 PAB73 OCT 1200000000 PAB73 FP252920 | 14101 +002000000000 PAB74 OCT 2000000000 PAB74 FP252930 | 1 LISTING OF 12/01/64 PAGE 523 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | 14102 PAB75 BSS 5 PAB75 FP252940 | 1 LISTING OF 12/01/64 PAGE 524 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | | * FP252960 * HORIZONTAL PREPROCESSING FP252970 | * FP252980 | 14107 0074 00 4 05255 PR010 TSX RD(WR),4 PR010 FP252990 | 14110 0 04712 1 00025 PZE 21,1,BCOMD PR020 FP253000 | 14111 0020 00 0 14113 TRA *+2 PR030 FP253010 14112 0020 00 0 14115 TRA PR090 PR040 FP253020 | 14113 0600 00 0 15063 STZ PV099 MULT SW PR050 FP253030 | 14114 0020 00 0 14171 TRA PR400 PR060 FP253040 | 14115 0074 00 4 05642 PR090 TSX NLIST,4 FP253050 | 14116 -0 00005 0 15134 MZE PRA30,0,5 FP253060 14117 -0 00005 0 15141 MZE PRA40,0,5 FP253070 | 14120 0 00005 0 15146 PZE PRA50,,5 FP253080 | 14121 -0500 00 0 04504 CAL SYMTAP-21 IF 27 AND 21 WERE THE SAME, FP253090 | 14122 0322 00 0 15223 ERA PSC25 SKIP RUN OF INPUT UNIT FP253100 | 14123 -0320 00 0 15200 ANA PSA60 FP253110 14124 0100 00 0 14127 TZE *+3 FP253120 | 14125 0074 00 4 05505 TSX NDSRT,4 RUN HORIZ INPUT PR0935FP253130 | 14126 0 00004 0 00033 PZE 27,0,4 PR094 FP253140 | 14127 0074 00 4 00712 TSX (PAUSE,4 FP253150 | 14130 0760 00 0 00164 SWT 4 PR096 FP253160 14131 0020 00 0 14133 TRA *+2 PR097 FP253170 | 14132 0020 00 0 14107 TRA PR010 PR098 FP253180 | 14133 0074 00 4 05505 TSX NDSRT,4 WRITE EOF ON PRE-PORCESSED PR099 FP253190 | 14134 0 00007 0 00011 PZE 9,0,7 UNIT PR100 FP253200 | 14135 0074 00 4 05505 TSX NDSRT,4 PR105 FP253210 14136 0 00003 0 00011 PZE 9,0,3 PR110 FP253220 | 14137 -0500 00 0 15223 CAL PSC25 PR111 FP253230 | 14140 0621 00 0 04504 STA SYMTAP-21 PR112 FP253240 | 14141 0625 00 0 04504 STT SYMTAP-21 FP253250 | 14142 0074 00 4 06244 TSX SETUP,4 FP253260 14143 0 00000 0 00000 PZE 0 FP253270 | 14144 -0625 00 0 11400 STL HOPSU PR115 FP253280 | 14145 0774 00 1 00004 AXT 4,1 BACKUP TO FPFIXED FP253290 | 14146 0074 00 2 04771 TSX BSRSYS,2 FP253300 | 14147 2 00001 1 14146 TIX *-1,1,1 FP253310 14150 0535 00 4 04655 LAC JOBTYP,4 FP253320 | 14151 -3 00003 4 14153 TXL *+2,4,3 FP253330 | 14152 -3 00004 4 06612 TXL KI825,4,4 TO BINARY LOAD FP253340 | 14153 0020 00 0 13326 TRA MM000 PR125 FP253350 | * NEED EOF ROUTINE HERE FP253360 * HOR PRE PROC REJECT INTERPRETER PR299 FP253370 | 14154 0634 00 4 14162 PRREJ SXA PR330,4 PR300 FP253380 | 14155 0522 00 0 14251 XEC PS359 PR305 FP253390 | 14156 0634 00 4 15074 SXA PV170,4 PR310 FP253400 | 14157 0760 00 0 00000 CLM PR315 FP253410 14160 0760 00 0 00006 COM PR320 FP253420 | 14161 0074 00 4 15064 TSX PV100,4 PR325 FP253430 | 14162 0774 00 1 00000 PR330 AXT 0,1 PR330 FP253440 | 14163 -0500 00 1 00001 CAL 1,1 PR335 FP253450 | 14164 0074 00 4 15064 TSX PV100,4 PR340 FP253460 14165 -0500 00 1 00002 CAL 2,1 PR345 FP253470 | 14166 0074 00 4 15064 TSX PV100,4 PR350 FP253480 | 14167 0600 00 0 15063 STZ PV099 MULT SW PR355 FP253490 | 14170 0020 00 0 14770 TRA PU960 PR360 FP253500 | 1 LISTING OF 12/01/64 PAGE 525 PREPRO (9PAC15). HORIZONTAL PREPROCESSING | | 14171 -0774 00 1 04621 PR400 AXC CARD,1 INIT XR1 TO FWA PR400 FP253510 | 14172 0500 00 0 11374 CLA HPCSW PR410 FP253520 | 14173 -0120 60 0 72451 TMI* PR411 TO FORM SELECT PR411 FP253530 14174 -0774 00 1 11102 AXC DESTL-1,1 NO FROM SELECT PR412 FP253540 | 14175 0020 00 0 14201 TRA *+4 PR413 FP253550 | 14176 -0500 00 4 77777 PR420 CAL -1,4 LOAD ADDR OF 1ST WD OF TBL PR420 FP253560 | 14177 0402 00 0 15176 PS010 SUB PSA40 INIT. XR1 TO WD 0 OF SELECTPS010 FP253570 | 14200 0737 00 1 00000 PAC 0,1 * PS020 FP253580 14201 0441 00 1 00005 LDI 5,1 INIT RT INDICS WITH HDR FLDPS030 FP253590 | 14202 0634 00 1 14075 SXA PAB70,1 PS031 FP253600 | 14203 -0500 00 1 00006 CAL 6,1 STORE RECORD ACTN PS040 FP253610 | 14204 0602 00 0 15173 SLW PSA10 * PS050 FP253620 | 14205 -0500 00 1 00002 CAL 2,1 INIT. DICT SEARCH ROUTINE PS060 FP253630 14206 0602 00 0 15174 SLW PSA20 * STORE FIRST ADDR PS070 FP253640 | 14207 0400 00 0 15175 ADD PSA30 * ADD 11 PS080 FP253650 | 14210 0621 00 0 14332 STA PS840 * PS090 FP253660 | 14211 0400 00 0 15176 ADD PSA40 * FIRST +12 PS100 FP253670 | 14212 0621 00 0 14333 STA PS850 * PS110 FP253680 14213 -0500 00 1 00003 CAL 3,1 * LAST PS120 FP253690 | 14214 0402 00 0 15176 SUB PSA40 * LAST-1 PS130 FP253700 | 14215 0767 00 0 00022 ALS 18 * MOVE ADDR TO DECR PS140 FP253710 | 14216 0622 00 0 14326 STD PS820 * INIT TXL PS150 FP253720 | 14217 0621 00 0 15074 STA PV170 INIT TO PKG SLW TO ZERO PS160 FP253730 14220 -0774 00 2 04621 AXC CARD,2 INIT XR2 TO FWA PS170 FP253740 | 14221 -0500 00 0 14220 CAL *-1 PLACE BLANK WD AT END PS180 FP253750 | 14222 -0320 00 0 14071 ANA PAB50 OF CHANGE PS190 FP253760 | 14223 0400 00 1 00007 ADD 7,1 PS191 FP253770 | 14224 0621 00 0 14226 STA *+2 * PS200 FP253780 14225 -0500 00 0 15177 CAL PSA50 * BLANK PS210 FP253790 | 14226 0602 00 0 00000 SLW 0 * PS220 FP253800 | 14227 -0500 00 1 00004 CAL 4,1 INIT XR1 WD NO OF 1ST FLD NPS230 FP253810 | 14230 -0734 00 1 00000 PDX 0,1 * PS240 FP253820 | 14231 -0320 00 0 15200 ANA PSA60 IS BIT NO OF 1ST FLD NO ZERPS250 FP253830 14232 0100 00 0 14236 TZE PS300 * YES PS260 FP253840 | 14233 1 00001 1 14234 TXI *+1,1,1 INCR XR1 BY 1 PS270 FP253850 | 14234 0621 00 0 15202 STA PSA80 INIT SHIFT WITH BIT NO PS280 FP253860 | 14235 0020 00 0 14240 TRA PS320 PS290 FP253870 | 14236 0500 00 0 15201 PS300 CLA PSA70 INIT SHIFT WITH 36 PS300 FP253880 14237 0621 00 0 15202 STA PSA80 * PS310 FP253890 | 14240 -0500 00 2 00000 PS320 CAL 0,2 MOVE FIXED PART TO CHF PKG PS320 FP253900 | 14241 0074 00 4 15064 TSX PV100,4 * PS330 FP253910 | 14242 -2 00001 1 14244 TNX PS351,1,1 IS IT ALL MOVED PS340 FP253920 | 14243 1 77777 2 14240 TXI PS320,2,-1 * NO-MODIFY TO NEXT WORD PS350 FP253930 14244 0760 00 0 00000 PS351 CLM PS351 FP253940 | 14245 0074 00 4 15064 TSX PV100,4 FOR WDCNT AND CKSUM PS352 FP253950 | 14246 0534 00 4 15074 LXA PV170,4 PS353 FP253960 | 14247 0634 00 4 14251 SXA PS359,4 WDCNT OF CKSUM PS354 FP253970 | 14250 0020 00 0 14252 TRA PS360 PS355 FP253980 14251 0774 00 4 00000 PS359 AXT 0,4 PS359 FP253990 | 14252 0534 00 4 15202 PS360 LXA PSA80,4 LOAD 1ST FIELD NO PS360 FP254000 | 14253 0754 00 4 00000 PXA 0,4 * SHIFT TO AC PS370 FP254010 | 14254 0402 00 0 15203 SUB PSA90 * 12 PS380 FP254020 | 14255 0120 00 0 14260 TPL PS420 * IS IT NEG PS390 FP254030 14256 1 00001 2 14257 TXI *+1,2,1 * YES-SUB 1 FROM WD NO PS400 FP254040 | 14257 0400 00 0 15201 ADD PSA70 * ADD 36 TO SHIFT PS410 FP254050 | 1 LISTING OF 12/01/64 PAGE 526 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | 14260 0621 00 0 15202 PS420 STA PSA80 * INIT SHIFT PS420 FP254060 | 14261 -0500 00 2 00000 CAL 0,2 * PS430 FP254070 | 14262 1 77777 2 14263 TXI *+1,2,-1 * PS440 FP254080 | 14263 0560 00 2 00000 LDQ 0,2 * PS450 FP254090 | 14264 0522 00 0 15202 XEC PSA80 * SHIFT PS460 FP254100 14265 -0320 00 0 10744 ANA BCD17 * PS470 FP254110 | 14266 -0340 00 0 15204 LAS PSB10 IS 1ST FLD NO BLANK PS480 FP254120 | 14267 0020 00 0 14271 TRA *+2 * NO PS490 FP254130 | 14270 0020 00 0 14770 TRA PU960 PS500 FP254140 | 14271 0602 00 0 15210 SLW PSB30 STORE FLD NO PS501 FP254150 14272 -0500 00 0 15173 CAL PSA10 TEST RECORD ACTION PS510 FP254160 | 14273 -0340 00 0 15205 LAS PSB20 * IS IT D PS520 FP254170 | 14274 0020 00 0 14276 TRA *+2 * NO PS530 FP254180 | 14275 0020 00 0 14770 TRA PU960 NO FLD CHG ON M PS540 FP254190 | 14276 -0340 00 0 15206 LAS PSB20+1 * IS IT E PS550 FP254200 14277 0020 00 0 14323 TRA PS790 * NO PS560 FP254210 | 14300 0020 00 0 14770 PS570 TRA PU960 FLD CHG ON DELETE PS570 FP254220 | 14301 0020 00 0 14323 TRA PS790 PS580 FP254230 | 14302 0534 00 4 15202 PS640 LXA PSA80,4 LOAD FIELD NO PS640 FP254240 | 14303 0754 00 4 00000 PXA 0,4 * SHIFT TO AC PS650 FP254250 14304 0402 00 0 15203 SUB PSA90 * 12 PS660 FP254260 | 14305 0120 00 0 14310 TPL PS700 * IS IT NEG PS670 FP254270 | 14306 1 00001 2 14307 TXI *+1,2,1 * YES-SUB 1 FROM WD NO PS680 FP254280 | 14307 0400 00 0 15201 ADD PSA70 * ADD 36 TO SHIFT PS690 FP254290 | 14310 0621 00 0 15202 PS700 STA PSA80 * INIT SHIFT PS700 FP254300 14311 -0500 00 2 00000 CAL 0,2 * PS710 FP254310 | 14312 1 77777 2 14313 TXI *+1,2,-1 * PS720 FP254320 | 14313 0560 00 2 00000 LDQ 0,2 * PS730 FP254330 | 14314 0522 00 0 15202 XEC PSA80 * PS740 FP254340 | 14315 -0320 00 0 10744 ANA BCD17 * PS750 FP254350 14316 -0340 00 0 15204 LAS PSB10 IS FLD NO BLANK PS760 FP254360 | 14317 0020 00 0 14321 TRA *+2 * NO PS770 FP254370 | 14320 0020 00 0 14770 TRA PU960 * YES PS780 FP254380 | 14321 0100 00 0 14770 TZE PU960 PS7805FP254390 | 14322 0602 00 0 15210 SLW PSB30 PS781 FP254400 14323 0534 00 4 15174 PS790 LXA PSA20,4 CURRENT FIRST ADDR TO XR4 PS790 FP254410 | 14324 0774 00 1 00000 AXT 0,1 CLEAR XR1 PS800 FP254420 | 14325 1 00013 4 14326 PS810 TXI *+1,4,11 MODIFY XR4 BY 11 PS810 FP254430 | 14326 -3 00000 4 14332 PS820 TXL PS840,4,0 COMPARE TO DECT LIMIT PS820 FP254440 | 14327 0074 00 4 14154 PS830 TSX PRREJ,4 FLD, NOT IN DICT PS830 FP254450 14330 264324136031 BCI 2,FLD= INVALID PS831 FP254460 | 14331 456521433124 | 14332 -0500 00 1 00000 PS840 CAL 0,1 LOAD DICT FLD NO PS840 FP254470 | 14333 0560 00 1 00000 PS850 LDQ 0,1 * PS850 FP254480 | 14334 -0763 00 0 00006 LGL 6 * PS860 FP254490 14335 -0320 00 0 10744 ANA BCD17 * PS870 FP254500 | 14336 -0340 00 0 15210 LAS PSB30 DICT FLD NO TO CHG CD FLD NPS880 FP254510 | 14337 0020 00 0 14327 TRA PS830 FLD = NOT IN DICT PS890 FP254520 | 14340 0020 00 0 14342 TRA *+2 * EQUAL PS900 FP254530 | 14341 1 77765 1 14325 TXI PS810,1,-11 * LOW-MODIFY TO NEXT FLD DIPS910 FP254540 14342 1 77777 4 14343 TXI *+1,4,-1 SUB 1 FROM WD 1 ADDR PS920 FP254550 | 14343 0754 00 4 00000 PXA 0,4 COMP OF WD ZERO TO XR2 PS930 FP254560 | 14344 0737 00 1 00000 PAC 0,1 * PS940 FP254570 | 14345 -0500 00 1 00010 CAL 8,1 IS FLD AN ID PS950 FP254580 | 14346 0560 00 1 00011 LDQ 9,1 * PS960 FP254590 1 LISTING OF 12/01/64 PAGE 527 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | | 14347 -0763 00 0 00006 LGL 6 * PS970 FP254600 | 14350 -0320 00 0 10730 ANA BCD03 * PS980 FP254610 14351 -0340 00 0 15211 LAS PSB40 * BLANK PS990 FP254620 | 14352 0020 00 0 14354 TRA *+2 PT010 FP254630 | 14353 0020 00 0 14357 TRA *+4 PT020 FP254640 | 14354 0074 00 4 14154 TSX PRREJ,4 CANNOT CHG ID FLD PT030 FP254650 | 14355 316260214560 BCI 2,IS AN ID FLD PT031 FP254660 14356 312460264324 | 14357 0056 00 000007 RNT 7 IS HDR FLD ACTION P PT040 FP254670 | 14360 0020 00 0 14422 TRA PT331 * NO PT050 FP254680 | 14361 0534 00 4 15202 LXA PSA80,4 LOAD FIELD ACTION PT060 FP254690 | 14362 0754 00 4 00000 PXA 0,4 * SHIFT TO AC PT070 FP254700 14363 0402 00 0 15212 SUB PSB50 * SUB 30 PT080 FP254710 | 14364 0120 00 0 14367 TPL PT120 * IS IT NEG PT090 FP254720 | 14365 1 00001 2 14366 TXI *+1,2,1 * YES-SUB 1 FROM WD NO PT100 FP254730 | 14366 0400 00 0 15201 ADD PSA70 * OL TO SHIFT PT110 FP254740 | 14367 0621 00 0 15202 PT120 STA PSA80 * INIT SHIFT PT120 FP254750 14370 -0500 00 2 00000 CAL 0,2 * PT130 FP254760 | 14371 1 77777 2 14372 TXI *+1,2,-1 * PT140 FP254770 | 14372 0560 00 2 00000 LDQ 0,2 * PT150 FP254780 | 14373 0522 00 0 15202 XEC PSA80 * PT160 FP254790 | 14374 -0320 00 0 10726 ANA BCD01 * PT170 FP254800 14375 -0340 00 0 15213 LAS PSB60 IS FLD ACTION + PT180 FP254810 | 14376 0020 00 0 14401 TRA *+3 ( NO PT190 FP254820 | 14377 0020 00 0 14413 TRA PT291 * YES PT200 FP254830 | 14400 0020 00 0 14410 TRA PT290 INVALID ACTF PT210 FP254840 | 14401 -0340 00 0 15214 LAS PSB60+1 IS FLD ACTION- PT220 FP254850 14402 0020 00 0 14405 TRA *+3 * NO PT230 FP254860 | 14403 0020 00 0 14413 TRA PT291 * EQUAL PT240 FP254870 | 14404 0020 00 0 14410 TRA PT290 INVALID ACTF PT250 FP254880 | 14405 -0340 00 0 15215 LAS PSB60+2 IS FLD ACTION R PT260 FP254890 | 14406 0020 00 0 14410 TRA *+2 INVALID ACTF PT270 FP254900 14407 0020 00 0 14424 TRA PT340 * EQUAL PT280 FP254910 | 14410 0074 00 4 14154 PT290 TSX PRREJ,4 INVALID ACTF PT290 FP254920 | 14411 212363266031 BCI 2,ACTF INVALID PT2911FP254930 | 14412 456521433124 | 14413 0602 00 0 15216 PT291 SLW PSB70 FLD ACTION TO A PT291 FP254940 14414 -0500 00 1 00011 CAL 9,1 REPLACE ONLY FLD PT300 FP254950 | 14415 -0320 00 0 10745 ANA BCD20 * PT310 FP254960 | 14416 0100 00 0 14425 TZE PT350 PT320 FP254970 | 14417 0074 00 4 14154 TSX PRREJ,4 CANNOT ACCUM TO REP ONLY PT330 FP254980 | 14420 232145454663 BCI 2,CANNOT ACCUM PT331 FP254990 14421 602123236444 | 14422 -0057 00 111111 PT331 RIL 111111 PT331 FP255000 | 14423 -0046 00 0 00000 PIA HDR FLD ACTION TO A PT332 FP255010 | 14424 0602 00 0 15216 PT340 SLW PSB70 FLD ACTION R TO A PT340 FP255020 | 14425 -0500 00 1 00002 PT350 CAL 2,1 PT3500FP255030 14426 0560 00 1 00003 LDQ 3,1 PT3500FP255040 | 14427 -0763 00 0 00006 LGL 6 PT3500FP255050 | 14430 -0320 00 0 10734 ANA BCD07 PT3500FP255060 | 14431 0602 00 0 07751 SLW B1020 PT3500FP255070 | 14432 0074 00 4 07570 TSX B0010,4 PT3500FP255080 14433 0020 00 0 14435 TRA *+2 PT3500FP255090 | 14434 0020 00 0 14437 TRA *+3 PT3500FP255100 | 14435 0074 00 4 10507 TSX T0010,4 PT3500FP255110 | 1 LISTING OF 12/01/64 PAGE 528 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | 14436 -1 10651 4 00000 STR 0,4,4521 BCD TO BIN CONVER ERROR(SIZE) PT3500FP255120 | 14437 0774 00 4 00000 AXT 0,4 PT3500FP255130 | 14440 0500 00 0 07747 CLA B1000 PT3500FP255140 | 14441 0402 00 0 15201 SUB PSA70 36 PT3500FP255150 14442 1 00001 4 14443 TXI *+1,4,1 PT3501FP255160 | 14443 0100 00 0 14445 TZE *+2 PT3501FP255170 | 14444 0120 00 0 14441 TPL *-3 PT3501FP255180 | 14445 1 00014 4 14446 TXI *+1,4,12 PT3501FP255190 | 14446 -3 00307 4 14451 TXL PT359,4,199 PT3501FP255200 14447 -0625 00 0 15063 STL PV099 PT3501FP255210 | 14450 0020 00 0 14770 TRA PU960 PT3501FP255220 | 14451 0500 00 1 00001 PT359 CLA 1,1 PT359 FP255230 | 14452 0560 00 1 00002 LDQ 2,1 TO PKG PT360 FP255240 | 14453 -0763 00 0 00006 LGL 6 * PT370 FP255250 14454 0131 00 0 00000 XCA * MOVE SIGN TO P BIT PT380 FP255260 | 14455 -0130 00 0 00000 XCL * PT390 FP255270 | 14456 0074 00 4 15064 TSX PV100,4 * PT400 FP255280 | 14457 -0500 00 1 00002 CAL 2,1 MODE AND FLD SIZE TO PKG PT410 FP255290 | 14460 0560 00 1 00003 LDQ 3,1 * PT420 FP255300 14461 -0763 00 0 00006 LGL 6 * PT430 FP255310 | 14462 0074 00 4 15064 TSX PV100,4 * PT440 FP255320 | 14463 0622 00 0 15217 STD PSB80 PLACE MODE TO LEFT INDICS PT450 FP255330 | 14464 0442 00 0 15217 OSI PSB80 * PT460 FP255340 | 14465 -0320 00 0 10734 ANA BCD07 CONVERT SIZE TO BINARY PT470 FP255350 14466 0602 00 0 07751 SLW B1020 * PT480 FP255360 | 14467 0074 00 4 07570 TSX B0010,4 * PT490 FP255370 | 14470 0020 00 0 14472 TRA *+2 PT495 FP255380 | 14471 0020 00 0 14474 TRA *+3 PT496 FP255390 | 14472 0074 00 4 10507 TSX T0010,4 PT497 FP255400 14473 -1 10652 4 00000 STR 0,4,4522 BCD TO BIN CONVER ERROR(SIZE) PT500 FP255410 | 14474 -0054 00 010000 LFT 10000 TEST MODE PT510 FP255420 | 14475 0020 00 0 14515 TRA PT670 * BCD PT520 FP255430 | 14476 0634 00 1 15220 SXA PSB90,1 TABLE SEARCH FOR EQUIN SIZEPT530 FP255440 | 14477 0774 00 4 00000 AXT 0,4 * PT540 FP255450 14500 0774 00 1 00024 AXT 20,1 * LOAD SIZE PT550 FP255460 | 14501 0500 00 0 07747 CLA B1000 * LOAD SIZE PT560 FP255470 | 14502 1 00006 4 14503 PT570 TXI *+1,4,6 * UPDATE EQUN SIZE BY 6 PT570 FP255480 | 14503 -0340 00 1 11104 LAS EQUIV+21,1 * PT580 FP255490 | 14504 0020 00 0 14507 TRA *+3 * PT590 FP255500 14505 0020 00 0 14512 TRA PT640 * MATCH PT600 FP255510 | 14506 0020 00 0 14510 TRA *+2 PT610 FP255520 | 14507 2 00002 1 14502 TIX PT570,1,2 * PT620 FP255530 | 14510 0074 00 4 10507 TSX T0010,4 PT629 FP255540 | 14511 -1 01216 2 14512 STR *+1,2,654 INVALID BIN FIELD SIZE HORIZ PT630 FP255550 14512 0754 00 4 00000 PT640 PXA 0,4 EQUIV SIZE TO AC PT640 FP255560 | 14513 0534 00 1 15220 LXA PSB90,1 RESTORE XR1 PT650 FP255570 | 14514 0020 00 0 14516 TRA *+2 PT660 FP255580 | 14515 0500 00 0 07747 PT670 CLA B1000 SIZE TO AC PT670 FP255590 | 14516 0601 00 0 15220 STO PSB90 STORE SIZE TEMPOR PT680 FP255600 14517 0074 00 4 15064 TSX PV100,4 SIZE TO PKG PT690 FP255610 | 14520 -0500 00 1 00003 CAL 3,1 WORD NO. TO BINARY PT700 FP255620 | 14521 0560 00 1 00004 LDQ 4,1 * PT710 FP255630 | 14522 -0763 00 0 00022 LGL 18 * PT720 FP255640 | 14523 -0320 00 0 10744 ANA BCD17 * PT730 FP255650 14524 0602 00 0 07751 SLW B1020 * PT740 FP255660 | 1 LISTING OF 12/01/64 PAGE 529 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | | 14525 0074 00 4 07570 TSX B0010,4 * PT750 FP255670 14526 0020 00 0 14530 TRA *+2 PT755 FP255680 | 14527 0020 00 0 14532 TRA *+3 PT756 FP255690 | 14530 0074 00 4 10507 TSX T0010,4 PT759 FP255700 | 14531 -1 10662 4 00000 STR 0,4,4530 BCD TO BIN CONVER ERROR(WORD =) PT760 FP255710 | 14532 0500 00 0 07747 CLA B1000 WORD NO TO PKG PT770 FP255720 14533 0074 00 4 15064 TSX PV100,4 * PT780 FP255730 | 14534 -0500 00 1 00004 CAL 4,1 BIT NO. TO BINARY PT790 FP255740 | 14535 0771 00 0 00006 ARS 6 * PT800 FP255750 | 14536 -0320 00 0 10730 ANA BCD03 * PT810 FP255760 | 14537 0602 00 0 07751 SLW B1020 * PT820 FP255770 14540 0074 00 4 07570 TSX B0010,4 * PT830 FP255780 | 14541 0020 00 0 14543 TRA *+2 PT835 FP255790 | 14542 0020 00 0 14545 TRA *+3 PT836 FP255800 | 14543 0074 00 4 10507 TSX T0010,4 PT839 FP255810 | 14544 -1 10674 4 00000 STR 0,4,4540 BCD TO BIN CONVER ERROR(BIT =) PT840 FP255820 14545 0500 00 0 07747 CLA B1000 BIT NO TO PKG PT850 FP255830 | 14546 0074 00 4 15064 TSX PV100,4 * PT860 FP255840 | 14547 -0056 00 010000 LNT 10000 TEST MODE PT870 FP255850 | 14550 0020 00 0 14555 TRA PT930 * BINARY PT880 FP255860 | 14551 -0500 00 0 15177 CAL PSA50 BLANK AS MIN TO PKG PT890 FP255870 14552 0074 00 4 15064 TSX PV100,4 * PT900 FP255880 | 14553 0074 00 4 15064 TSX PV100,4 BLANK AS MAX TO PKG PT910 FP255890 | 14554 0020 00 0 14645 TRA PU280+2 PT920 FP255900 | 14555 0534 00 4 15220 PT930 LXA PSB90,4 EQUIV SIZE TO XR4 PT930 FP255910 | 14556 2 00044 4 14560 TIX *+2,4,36 PT940 FP255920 14557 0774 00 4 00000 AXT 0,4 PT950 FP255930 | 14560 0634 00 4 14576 SXA PU070,4 STORE LGL FOR MIN-MAX SHIFTPT960 FP255940 | 14561 0634 00 4 14625 SXA PU220,4 * PT970 FP255950 | 14562 0604 00 0 15221 STI PSC10 SAVE INDICS PT975 FP255960 | 14563 -0500 00 1 00011 CAL 9,1 IS MIN BLANK PT980 FP255970 14564 0560 00 1 00012 LDQ 10,1 * PT990 FP255980 | 14565 -0765 00 0 00030 LGR 24 * PU010 FP255990 | 14566 -0130 00 0 00000 XCL * PU020 FP256000 | 14567 -0340 00 0 15177 LAS PSA50 * BLANK PU030 FP256010 | 14570 0020 00 0 14572 TRA *+2 * PU040 FP256020 14571 0020 00 0 14611 TRA PU130 * EQUAL PU050 FP256030 | 14572 0044 00 0 00000 PAI SHIFT MIN + MOVE SIGN PU052 FP256040 | 14573 -0320 00 0 15222 ANA PSC20 * PU053 FP256050 | 14574 -0130 00 0 00000 XCL * PU060 FP256060 | 14575 0760 00 0 00000 CLM * PU061 FP256070 14576 -0763 00 0 00000 PU070 LGL 0 * SHIFT MAX PU070 FP256080 | 14577 0602 00 0 07750 SLW B1010 * PU080 FP256090 | 14600 -0600 00 0 07751 STQ B1020 * PU090 FP256100 | 14601 0445 00 0 15222 RIS PSC20 * PU091 FP256110 | 14602 -0046 00 0 00000 PIA * SIGN TO AC PU092 FP256120 14603 -0602 00 0 07751 ORS B1020 * PU093 FP256130 | 14604 0074 00 4 07570 TSX B0010,4 * PU100 FP256140 | 14605 -1 10706 4 00000 STR 0,4,4550 BCD TO BIN CONVER ERROR(MINIMUM) PU110 FP256150 | 14606 0500 00 0 07747 CLA B1000 PU120 FP256160 | 14607 0131 00 0 00000 XCA SIGN TO P BIT PU121 FP256170 14610 -0130 00 0 00000 XCL PU122 FP256180 | 14611 0074 00 4 15064 PU130 TSX PV100,4 MIN TO PKG PU130 FP256190 | 14612 -0500 00 1 00012 CAL 10,1 IS MAX BLANK PU140 FP256200 | 14613 0560 00 1 00013 LDQ 11,1 * PU150 FP256210 | 1 LISTING OF 12/01/64 PAGE 530 PREPRO (9PAC15). HORIZONTAL PREPROCESSING | | 14614 -0765 00 0 00030 LGR 24 * PU160 FP256220 | 14615 -0130 00 0 00000 XCL * PU170 FP256230 | 14616 -0340 00 0 15177 LAS PSA50 * PU180 FP256240 14617 0020 00 0 14621 TRA *+2 * NO PU190 FP256250 | 14620 0020 00 0 14643 TRA PU280 * YES PU200 FP256260 | 14621 0044 00 0 00000 PAI SHIFT MAX + MOVE SIGN PU201 FP256270 | 14622 -0320 00 0 15222 ANA PSC20 PU202 FP256280 | 14623 -0130 00 0 00000 XCL CONVERT MAX TO BINARY PU210 FP256290 14624 0760 00 0 00000 CLM PU211 FP256300 | 14625 -0763 00 0 00000 PU220 LGL 0 * PU220 FP256310 | 14626 0602 00 0 07750 SLW B1010 * PU230 FP256320 | 14627 -0600 00 0 07751 STQ B1020 * PU240 FP256330 | 14630 0445 00 0 15222 RIS PSC20 * PU241 FP256340 14631 -0046 00 0 00000 PIA R PU242 FP256350 | 14632 -0602 00 0 07751 ORS B1020 * PU243 FP256360 | 14633 0074 00 4 07570 TSX B0010,4 * PU250 FP256370 | 14634 0020 00 0 14636 TRA *+2 PU255 FP256380 | 14635 0020 00 0 14640 TRA *+3 PU256 FP256390 14636 0074 00 4 10507 TSX T0010,4 PU259 FP256400 | 14637 -1 10720 4 00000 STR 0,4,4560 BCD TO BIN CONVER ERROR(MAXIMUM) PU260 FP256410 | 14640 0500 00 0 07747 CLA B1000 PU270 FP256420 | 14641 0131 00 0 00000 XCA SIGN TO P BIT PU271 FP256430 | 14642 -0130 00 0 00000 XCL PU272 FP256440 14643 0074 00 4 15064 PU280 TSX PV100,4 MAX TO PKG PU280 FP256450 | 14644 0441 00 0 15221 LDI PSC10 PU281 FP256460 | 14645 -0500 00 1 00010 CAL 8,1 AUTH TO CHG + LOOK AND SEQ PU282 FP256470 | 14646 0560 00 1 00011 LDQ 9,1 LEVEL TO PKG PU283 FP256480 | 14647 -0765 00 0 00006 LGR 6 * SEQ LEVEL TO MQ PU284 FP256490 14650 0771 00 0 00014 ARS 12 * ELIM MIN ID PU285 FP256500 | 14651 -0765 00 0 00022 LGR 18 * PU286 FP256510 | 14652 -0500 00 1 00007 CAL 7,1 * 1ST DIGIT OF AUTH TO CHG PU287 FP256520 | 14653 -0763 00 0 00036 LGL 30 * PU288 FP256530 | 14654 0074 00 4 15064 TSX PV100,4 * PU289 FP256540 14655 -0500 00 1 00004 PU290 CAL 4,1 LITERAL DESCRIP TO PKG PU290 FP256550 | 14656 0560 00 1 00005 LDQ 5,1 * PU300 FP256560 | 14657 -0763 00 0 00036 LGL 30 * PU310 FP256570 | 14660 0074 00 4 15064 TSX PV100,4 * PU320 FP256580 | 14661 -0500 00 1 00005 CAL 5,1 * PU330 FP256590 14662 0560 00 1 00006 LDQ 6,1 * PU340 FP256600 | 14663 -0763 00 0 00036 LGL 30 * PU350 FP256610 | 14664 0074 00 4 15064 TSX PV100,4 * PU360 FP256620 | 14665 -0500 00 1 00006 CAL 6,1 * PU370 FP256630 | 14666 0560 00 1 00007 LDQ 7,1 * PU380 FP256640 14667 -0763 00 0 00036 LGL 30 * PU390 FP256650 | 14670 0074 00 4 15064 TSX PV100,4 * PU400 FP256660 | 14671 -0500 00 0 15216 CAL PSB70 ACTION TO PKG PU401 FP256670 | 14672 0074 00 4 15064 TSX PV100,4 * PU402 FP256680 | 14673 0534 00 4 15202 LXA PSA80,4 CALC SHIFT PU410 FP256690 14674 0600 00 0 15221 STZ PSC10 PU415 FP256700 | 14675 0634 00 4 15221 SXA PSC10,4 * SHIFT TO B PU420 FP256710 | 14676 0500 00 0 15220 CLA PSB90 * SIZE PU430 FP256720 | 14677 0402 00 0 15201 SUB PSA70 * 36 PU440 FP256730 | 14700 -0120 00 0 14702 TMI *+2 * PU450 FP256740 14701 -0100 00 0 14677 TNZ *-2 * PU460 FP256750 | 14702 0621 00 0 14711 STA PU540 * ARS FOR MASK PU470 FP256760 | 1 LISTING OF 12/01/64 PAGE 531 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | 14703 0400 00 0 15221 ADD PSC10 * B TO GET LGL PU480 FP256770 | 14704 0120 00 0 14707 TPL PU520 IS SHIFT NEG PU490 FP256780 | 14705 0400 00 0 15201 ADD PSA70 YES-ADJUST SHIFT BY 36 PU500 FP256790 | 14706 1 00001 2 14707 TXI *+1,2,1 * SUB 1 FROM WD NO PU510 FP256800 | 14707 0621 00 0 15202 PU520 STA PSA80 INIT SHIFT PU520 FP256810 14710 -0500 00 0 11024 CAL BCD77 BUILD MASK PU530 FP256820 | 14711 0771 00 0 00000 PU540 ARS 0 * PU540 FP256830 | 14712 0602 00 0 15224 SLW PSC30 * PU550 FP256840 | 14713 0534 00 1 15220 LXA PSB90,1 INIT XR1 WITH SIZE PU560 FP256850 | 14714 -0056 00 010000 LNT 10000 TEST MODE PU570 FP256860 14715 0020 00 0 14733 TRA PU720 * BINARY PU580 FP256870 | 14716 -0500 00 2 00000 CAL 0,2 LEFT WORD TO PKG PU590 FP256880 | 14717 1 77777 2 14720 TXI *+1,2,-1 * PU600 FP256890 | 14720 0560 00 2 00000 LDQ 0,2 * PU610 FP256900 | 14721 0522 00 0 15202 XEC PSA80 * PU620 FP256910 14722 -0320 00 0 15224 ANA PSC30 * PU630 FP256920 | 14723 0074 00 4 15064 TSX PV100,4 * PU640 FP256930 | 14724 -2 00044 1 14302 PU650 TNX PS640,1,36 HAVE ALL WDS OF CHG BEEN MOPU650 FP256940 | 14725 -0500 00 2 00000 CAL 0,2 NO-MOVE OTHER WORDS PU660 FP256950 | 14726 1 77777 2 14727 TXI *+1,2,-1 * PU670 FP256960 14727 0560 00 2 00000 LDQ 0,2 * PU680 FP256970 | 14730 0522 00 0 15202 XEC PSA80 * PU690 FP256980 | 14731 0074 00 4 15064 TSX PV100,4 * PU700 FP256990 | 14732 0020 00 0 14724 TRA PU650 * PU710 FP257000 | 14733 3 00044 1 14743 PU720 TXH PU800,1,36 IS BINARY SIZE GREATER THANPU720 FP257010 14734 -0500 00 2 00000 CAL 0,2 NO-LEFT WORD TO B1020 PU730 FP257020 | 14735 1 77777 2 14736 TXI *+1,2,-1 * PU740 FP257030 | 14736 0560 00 2 00000 LDQ 0,2 * PU750 FP257040 | 14737 0522 00 0 15202 XEC PSA80 * PU760 FP257050 | 14740 -0320 00 0 15224 ANA PSC30 * PU770 FP257060 14741 0602 00 0 07751 SLW B1020 * PU780 FP257070 | 14742 0020 00 0 14756 TRA PU910 * PU790 FP257080 | 14743 -0500 00 2 00000 PU800 CAL 0,2 LEFT WORD TO B1010 PU800 FP257090 | 14744 1 77777 2 14745 TXI *+1,2,-1 * PU810 FP257100 | 14745 0560 00 2 00000 LDQ 0,2 * PU820 FP257110 14746 0522 00 0 15202 XEC PSA80 * PU830 FP257120 | 14747 -0320 00 0 15224 ANA PSC30 * PU840 FP257130 | 14750 0602 00 0 07750 SLW B1010 PU850 FP257140 | 14751 -0500 00 2 00000 CAL 0,2 RT WORD TO B1020 PU860 FP257150 | 14752 1 77777 2 14753 TXI *+1,2,-1 * PU870 FP257160 14753 0560 00 2 00000 LDQ 0,2 * PU880 FP257170 | 14754 0522 00 0 15202 XEC PSA80 * PU890 FP257180 | 14755 0602 00 0 07751 SLW B1020 * PU900 FP257190 | 14756 0074 00 4 07570 PU910 TSX B0010,4 CONVERT VALUE TO BINARY PU910 FP257200 | 14757 0020 00 0 14765 TRA PU955 INVALID CHG VALUE PU290 FP257210 14760 0500 00 0 07747 CLA B1000 VALUE TO PKG PU930 FP257220 | 14761 0131 00 0 00000 XCA SIGN TO P BIT PU934 FP257230 | 14762 -0130 00 0 00000 XCL PU935 FP257240 | 14763 0074 00 4 15064 TSX PV100,4 * PU940 FP257250 | 14764 0020 00 0 14302 TRA PS640 PU950 FP257260 14765 0074 00 4 14154 PU955 TSX PRREJ,4 PU955 FP257270 | 14766 222324402231 BCI 2,BCD-BIN ERR FP257280 | 14767 456025515160 | 14770 0760 00 0 00000 PU960 CLM ZERO TO END OF PKG PU960 FP257290 | 14771 0074 00 4 15064 TSX PV100,4 * PU970 FP257300 1 LISTING OF 12/01/64 PAGE 532 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | | 14772 0534 00 4 15074 LXA PV170,4 LOAD SLW ADDR PU980 FP257310 | 14773 -3 00000 4 14776 TXL PV030,4,0 COMPARE WD COUNT TO PREV PU990 FP257320 14774 -0634 00 4 14773 SXD *-1,4 STORE HIGH COUNT IN PREV PV010 FP257330 | 14775 0634 00 4 11254 SXA WDCNT,4 * AND TO I/O WORD COUNT PV020 FP257340 | 14776 -0754 00 4 00000 PV030 PXD 0,4 WORD COUNT TO IO COMMAND PV030 FP257350 | 14777 -0534 00 4 15226 LXD PSC40,4 PV030 FP257360 | 15000 0622 00 4 15226 STD PSC40,4 PV0302FP257370 15001 -0500 00 0 15226 CAL PSC40 SET UP FOR CHECKSUM PV0303FP257380 | 15002 0621 00 0 15010 STA PV031 PV0304FP257390 | 15003 0402 00 0 11026 SUB NMBR1 PV0305FP257400 | 15004 0621 00 0 15023 STA PV032 PV0306FP257410 | 15005 0760 00 0 00000 CLM PV0310FP257420 15006 0535 00 4 15074 LAC PV170,4 PV0311FP257430 | 15007 1 00001 4 15010 TXI *+1,4,1 PV0312FP257440 | 15010 0361 00 4 00000 PV031 ACL **,4 PV0313FP257450 | 15011 3 00000 4 15007 TXH *-2,4,0 PV0314FP257460 | 15012 0621 00 0 15062 STA PV098 PV0315FP257470 15013 0625 00 0 15062 STT PV098 PV0316FP257480 | 15014 0771 00 0 00022 ARS 18 PV0317FP257490 | 15015 -0320 00 0 15062 ANA PV098 PV0318FP257500 | 15016 0534 00 4 15074 LXA PV170,4 PV0319FP257510 | 15017 0602 00 0 15062 SLW PV098 PV0319FP257520 15020 -0754 00 4 00000 PXD 0,4 PV0320FP257530 | 15021 -0501 00 0 15062 ORA PV098 PV0320FP257540 | 15022 0535 00 4 14251 LAC PS359,4 PV0321FP257550 | 15023 0602 00 4 00000 PV032 SLW **,4 PV0322FP257560 | 15024 0074 00 4 05255 PV040 TSX RD(WR),4 PV040 FP257570 15025 -0 15226 1 00011 FOR 9,1,PSC40 PV045 FP257580 | 15026 0020 00 0 15052 TRA PV080 PV050 FP257590 | 15027 -0500 00 0 15172 CAL PRA70+7 EOT,PREPRO OUTPUT FP257600 | 15030 0602 00 0 15162 SLW PRA60+7 FP257610 | 15031 0400 00 0 04673 ADD ONE FP257620 15032 0602 00 0 15172 SLW PRA70+7 FP257630 | 15033 0774 00 4 00003 AXT 3,4 FP257640 | 15034 -0500 00 4 04210 CAL FIL09+12,4 FP257650 | 15035 0602 00 4 15160 SLW PRA60+5,4 FP257660 | 15036 0602 00 4 15170 SLW PRA70+5,4 FP257670 15037 2 00001 4 15034 TIX *-3,4,1 FP257680 | 15040 -0500 00 0 04520 CAL SYMTAP-9 FP257690 | 15041 0737 00 4 00000 PAC 0,4 FP257700 | 15042 0560 00 4 00000 LDQ 0,4 FP257710 | 15043 0074 00 4 00720 TSX (BCD5R,4 FP257720 15044 0602 00 0 15154 SLW PRA60+1 FP257730 | 15045 0602 00 0 15164 SLW PRA70+1 FP257740 | 15046 0074 00 4 05642 TSX NLIST,4 FP257750 | 15047 -1 00010 0 15153 MON PRA60,,8 FP257760 | 15050 1 00010 0 15163 PON PRA70,,8 FP257770 15051 0074 00 4 00712 TSX (PAUSE,4 FP257780 | 15052 -0500 00 0 15226 PV080 CAL PSC40 PV080 FP257790 | 15053 0402 00 0 11026 SUB NMBR1 PV0803FP257800 | 15054 0621 00 0 15073 STA PV160 PV0806FP257810 | 15055 -0520 00 0 15063 NZT PV099 PV0809FP257820 15056 0020 00 0 14107 TRA PR010 ZERO TO READ PV081 FP257830 | 15057 0522 00 0 14251 XEC PS359 PV082 FP257840 | 15060 0634 00 4 15074 SXA PV170,4 PV083 FP257850 | 1 LISTING OF 12/01/64 PAGE 533 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | 15061 0020 00 0 14451 TRA PT359 TO FINISH CHANGE PV084 FP257860 | 15062 0 00000 0 00000 PV098 PZE 0 TO FOLD CKSUM PV098 FP257870 | 15063 0 00000 0 00000 PV099 PZE MULT SW PV099 FP257880 | 15064 0634 00 4 15075 PV100 SXA PV180,4 TOPKG ROUTINE PV100 FP257890 15065 0534 00 4 15074 LXA PV170,4 PV110 FP257900 | 15066 1 00001 4 15067 TXI *+1,4,1 * PV120 FP257910 | 15067 -3 00310 4 15072 TXL *+3,4,200 PU130 FP257920 | 15070 0074 00 4 10507 TSX T0010,4 PU139 FP257930 | 15071 -1 01217 2 15072 STR *+1,2,655 TOO MANY PAURS HORIZ PV140 FP257940 15072 0634 00 4 15074 SXA *+2,4 * PV150 FP257950 | 15073 -0774 00 4 15227 PV160 AXC PSC50-1,4 ADDR IS MODIFIED PV160 FP257960 | 15074 0602 00 4 00000 PV170 SLW 0,4 * PV170 FP257970 | 15075 0774 00 4 00000 PV180 AXT 0,4 PV180 FP257980 | 15076 0020 00 4 00001 TRA 1,4 PV190 FP257990 15077 PRA10 BSS 12 CHG RECORD READ IN PRA10 FP258000 | 15113 606060606060 BCI 2, PRA11 FP258010 | 15114 606060606060 | 15115 BSS 14 PRA12 FP258020 | 15133 0 00000 0 00000 PRA20 PZE FIRST WD OF FORM SEL PRG PRA20 FP258030 15134 316260633025 PRA30 BCI 5,IS THERE MORE HORIZ INPUT PRA30 FP258040 | 15135 512560444651 | 15136 256030465131 | 15137 716031454764 | 15140 636060606060 15141 702562404062 PRA40 BCI 5,YES--SW 4 DOWN, PRESS START PRA40 FP258050 | 15142 666004602446 | 15143 664573604751 | 15144 256262606263 | 15145 215163606060 15146 454640404062 PRA50 BCI 5,NO---SW 4 UP , PRESS START PRA50 FP258060 | 15147 666004606447 | 15150 606073604751 | 15151 256262606263 | 15152 215163606060 15153 606064453163 PRA60 BCI 8, UNITXXXXXX REMOVE REEL PRA60 FP258070 | 15154 676767676767 | 15155 606060606060 | 15156 606060606060 | 15157 606060606060 15160 605125444665 | 15161 256051252543 | 15162 606060606060 | 15163 606064453163 PRA70 BCI 8, UNITXXXXXX MOUNT REEL 000001 PRA70 FP258080 | 15164 676767676767 15165 606060606060 | 15166 606060606060 | 15167 606060606060 | 15170 604446644563 | 15171 605125254360 15172 000000000001 | 15173 0 00000 0 00000 PSA10 PZE 0 RECORD ACTION PSA10 FP258090 | 15174 0 00000 0 00000 PSA20 PZE 0 CURRENT PSA20 FP258100 | 15175 0 00000 0 00013 PSA30 PZE 11 PSA30 FP258110 | 15176 0 00000 0 00001 PSA40 PZE 1 PSA40 FP258120 15177 606060606060 PSA50 BCI 1, BLANK WORD PSA50 FP258130 | 1 LISTING OF 12/01/64 PAGE 534 | PREPRO (9PAC15). HORIZONTAL PREPROCESSING | | 15200 +000000077777 PSA60 OCT 77777 MASK PSA60 FP258140 15201 0 00000 0 00044 PSA70 PZE 36 PSA70 FP258150 | 15202 -0763 00 0 00000 PSA80 LGL 0 SHIFT PSA80 FP258160 | 15203 0 00000 0 00014 PSA90 PZE 12 PSA90 FP258170 | 15204 000060606060 PSB10 BCI 1,00 PSB10 FP258180 | 15205 000000000024 PSB20 BCI 3,00000D00000E00000M RECORD ACTIV PSB20 FP258190 15206 000000000025 | 15207 000000000044 | 15210 0 00000 0 00000 PSB30 PZE 0 CHG FIELD NO PSB30 FP258200 | 15211 000000006060 PSB40 BCI 1,0000 PSB40 FP258210 | 15212 0 00000 0 00036 PSB50 PZE 30 PSB50 FP258220 15213 000000000020 PSB60 BCI 3,00000+00000-00000R PSB60 FP258230 | 15214 000000000040 | 15215 000000000051 | 15216 0 00000 0 00000 PSB70 PZE 0 A PSB70 FP258240 | 15217 0 00000 0 00000 PSB80 PZE 0 FLD MODE IN DECR PSB80 FP258250 15220 0 00000 0 00000 PSB90 PZE 0 STORAGE P SIZE PSB90 FP258260 | 15221 0 00000 0 00000 PSC10 PZE 0 B PSC10 FP258270 | 15222 -377777777717 PSC20 OCT 777777777717 PSC20 FP258280 | 15223 0 00000 0 00000 PSC25 PZE 0 TEMPORARY STORAGE PSC25 FP258290 | 15224 0 00000 0 00000 PSC30 PZE 0 MASK PSC30 FP258300 15225 3 00000 0 15540 PSC39 IORT PSC60,,** PSC39 FP258310 | 15226 0 77777 0 15230 PSC40 PZE PSC50,,-1 PSC40 FP258320 | 15227 3 00000 0 15230 PSC41 IORT PSC50,,** PSC41 FP258330 | 15230 PSC50 BSS 200 PSC50 FP258340 | 15540 PSC60 BSS 200 PSC60 FP258350 16132 PREPR BES 50 FP258360 | 16132 PAA10 BSS 11 FIRST E RECORD OF DICT PAA10 FP258370 | 43535 PAA20 BES 11000 END PAA20 FP258380 | 00000 TCD 0 FP258390 | * FP258400 * FP258410 | END -1 FP258420 | 1 LISTING OF 12/01/64 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 76777 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 0,11717,11720,11774,11775,12005,12007,13075,13232,15576,16014,17251,17302,17303,17605,17606,20024 | 20052,20055,20070,20076,20103,20112,20154,20157,20166,20235,20242,20247,20370,20373,20402,20421,20433 20447,20454,20477,20651,20664,20700,20727,20735,20742,20751,20765,21005,21016,21023,21031,21036,21067 | 21072,21102,21111,21243,21250,21257,21275,21300,21310,21317,21334,21346,21353,21362,21367,21400,21403 | 21453,21474,21506,21517,21543,21563,21601,21611,21622,21633,21643,21673,21705,22023,22027,22354,22366 | 22373,22402,22426,22433,22455,22460,22467,22506,22516,22531,22536,22557,22607,22617,22624,22631,22645 | 22661,22670,22707,22720,22725,22732,22742,22751,22763,22776,23002,23011,23061,23114,23121,23210,23216 23227,23234,23241,23444,23453,23457,23466,23475,23512,23515,23525,23534,23716,23721,23726,23743,23750 | 23772,24002,24026,24033,24036,24043,24107,24112,24117,24141,24150,24157,24165,24172,24324,24336,24347 | 24433,24465,24517,24536,24550,24617,24634,24677,24702,24716,24723,24776,25135,25143,25153,25211,25216 | 25237,25250,25254,25260,25272,25277,25317,25327,25346,25354,25364,25424,25442,25450,14300,14376,14401 | 14403,14404,14454,14455,15015 72633 NU | 6300 BSF 0,12301 | 6276 BSR 0,12277 | 16336 COM | 706 MWR 0,12307 11255 NOP | 4673 ONE 0,12177,20424,15023 | 6272 REW 0,12273 | 4700 SIX 0,12211 | 4704 TEN 0,12221 4674 TWO 0,12201 | 6274 WEF 0,12275 | 4621 CARD 0, 7737,10600,10625,10630,12013,12020,12021,12055,12066,12067,12722,12760,12765,12766,12773,12774 | 13001,13002,13007,13010,13076,13112,13117,13133,13145,13146,13156,13157,13175,13176,13203,13205,13206 | 13226,13231,13245,13246,13265,13266,13300,13301,13454,13472,13610,13611,13625,14073,14120,14121,14141 14232,14307,14314,14315,14330,14334,14340,14341,14354,14360,14364,14371,14377,14403,14406,14411,14415 | 14422,14440,14503,14507,14555,14577,14600,14607,14612,14620,14621,14640,14676,14700,14705,14710,14714 | 14720,14723,14726,14735,14741,15002,15011,15020,15026,15027,15057,15173,15176,15177,15202,15237,15240 | 15250,15251,15360,15374,15375,15455,15602,15634,15654,15714,15715,15722,15727,15733,15756,15770,14045 | 14066,14071,14107,14125,14140,14151,14152,14156,14157,14174,14175,14212,14225,14226,14313,14321,14344 14345,14534,14556,14576,14577 | 6302 CKPT 0,12303 | 6270 COPY 0,12271 | 4447 DATE 0,12311 | 43326 DCTI 12664,12706,12721,12757,12761,13001,13024,13053,13550,13553,13554,13604 53610 DCTP 13254,13274,13310,13346,13350,13370,13421,13450,13656,13661,13662,13712 | 4677 FIVE 0,12207 | 4676 FOUR 0,12205 | 22203 HIGH 0 | 6246 IOCS 0,12251 6254 JOIN 0,12255 | 4000 LOST 0,10532,10533,10540,10541 | 106 MGZE 0 | 4703 NINE 0,12217 | 72633 NUNU 67721 OLAB | 6262 OPEN 0,12263 | 113 OTZE 0,14541,14542,14547 | 11037 PRE0 | 1 LISTING OF 12/01/64 PAGE 2 POST PROCESSOR ASSEMBLY DATA | | 11040 PRE1 | 11041 PRE2 | 11042 PRE3 11043 PRE4 | 11044 PRE5 | 11045 PRE6 | 11046 PRE7 | 11375 QUIT 7744,10601 6264 READ 0,12265 | 705 SMZE 0,15305,15415,15422,15515,15516,15526,15533,15534,15536,15544,15545,15546,15547,15552,15554,17316 | 17317,17323,17324,17325,17326,17327,17333,17335,17336,17337,23202,23203,25605,25606,25671 | 62 SNZE 0 | 3777 STZE 0,11603,11614,11627,11640 11047 TAG0 | 11050 TAG1 | 11051 TAG2 | 11052 TAG3 | 11053 TAG4 11054 TAG5 | 11055 TAG6 | 11056 TAG7 13474 | 25541 TCID 25541 | 72703 TTBL 113 VTZE 0 | 16705 WORK 12664,12670,12677,12700,12714,12715,12716,12757,12764,12772,13000,13006,13014,13016,13033,13035,13343 | 13344,13400,13432,13433,13517,13520,13545,13555,13556,13567,13570,13604,13605,13622,13633,13634,13645 | 13745,14003,14135,14235,14264,14270,14313,14333,14337,14357,14363,14370,14376,14402,14405,14410,14414 | 14421,14432,14436,14506,14512,14530,15311,15314,15315,15400,15401,15413,15420,15440,15453,15465,15466 15511,15561,23131,23132,23145,23146,23200 | 4672 ZERO 0,12175 | 11410 AAAAA | 16514 AAG01 13100,13110 | 16515 AAG02 13120 16516 AAG03 13123,13130,13132,13416 | 16517 AAG04 12707,13031,13411,13414,13471,13721,15342 | 16520 AAG05 13127,13162,13167,13255,13263,15136,15215 | 16521 AAG06 13151 | 16522 AAG07 13234 16523 AAG08 13237 | 16524 AAG09 13124 | 16525 AAG10 13125,13136,13143,13310,13367,13427,13730,15263,15345,15677,15712,16506 | 16526 AAG11 13171,13346,13725,14606,24223 | 16527 AAG12 13252,13361,15340 16530 AAG13 13172,13253,13737,14565,15354 | 16531 AAG14 13351,15631 | 16532 AAG15 13044,13356 | 16533 AAG16 13420,13423,15165,16505 | 16534 AAG17 16546 AAG18 12721,12725,13436,13443,13445,13475,13506,13670,13677,13700,13710,14140,14144,14210,14254,14255,15040 | 15045,16052,16055,16231,16241,16252,16260,16263,16271,16273,16277,16311,16344,16345,16370,16374,16404 | 16445,16450,17312 | 16547 AAG19 12672,12674,12752,13366,13403,13410,13426,13505,13514,13550,13727,15320,15344,16507 | 16550 AAG20 13464,13620,14102,14165,14472 16551 AAG21 13457,14076,15363 | 16552 AAG22 12671,13561,13566,13723,14021,14215,14552,15327,16476 | 1 LISTING OF 12/01/64 PAGE 3 | POST PROCESSOR ASSEMBLY DATA | 16553 AAG23 13105 | 67737 AAG24 13654,13660,13664,13707,13711,13713,13714,14200,14764,14765,14774,14775,14776,14777,16327,16346,16350 | 16352 | 16554 AAG25 13643,13720,14204 | 16555 AAG26 16556 AAG27 14052,16026,16242,16247,16251,16270,16303 | 16557 AAG28 13726,13736,15341,15353 | 30221 AAG29 16560,16564,16603,16670,17534 | 37075 AAG30 16561,16565,16604,16671,24237 | 45751 AAG31 16562,16566,16605,16672,24241,24317 57561 AAG32 16563,16567,16606,16673 | 16560 AAG33 16020 | 16561 AAG34 16021 | 16562 AAG35 16022 | 16563 AAG36 13765,13776,14012,14016,14017,14516,14537,15101,15102,15117,15133,15426,15447,16023,16120,16141,16152 16155,16156,16215,16446,16457,16470 | 16564 AAG37 16122 | 16565 AAG38 | 16566 AAG39 | 16567 AAG40 13764,14013,14515,14540,15073,15134,15277,15425,15450,16116,16154,16160,16214,16455,16467 16570 AAG41 16172 | 16571 AAG42 16176,16205,16211 | 16572 AAG43 16173,16204 | 16573 AAG44 14000,14020,14174,14231,14502,14541,14551,15104,15135,15451,16164,16170,16325,16340,16471 | 16574 AAG45 16010 16575 AAG46 16034,16035,16037,16237,16256,16264,16266 | 16576 AAG47 16024,16027,16031,16033,16036,16040,16274,16306,16307 | 16577 AAG48 16042,16043,16044,16312,16315 | 16600 AAG49 14041,14042,14045,14046,14057,14060,14544,16472 | 16601 AAG50 14022,15137,15223 16602 AAG51 14023,14031,14443,14514,15140,15230,15424 | 16603 AAG52 | 16604 AAG53 | 16605 AAG54 | 16606 AAG55 13770,14521,15121,15431 16607 AAG56 13767,14520 | 16610 AAG57 14105 | 16611 AAG58 14111 | 16612 AAG59 14157,14652 | 16613 AAG60 13752,14147,14643,15062 16615 AAG61 14011,14040,14152,14425,14536,14603,14646,15014,15132,15446,15555,16032,16127,16254,16265,16314,16342 | 16355,16444 | 16616 AAG62 13603,13712,14027,14241,14274,14445,16232,16351 | 16617 AAG63 14203,14214,14220,14236 | 16620 AAG64 14242 16621 AAG65 14246,14455,14661 | 16622 AAG66 14253 | 16623 AAG67 14116,14164,14471 | 16624 AAG68 14320,14344,14433,15032,15054 | 16625 AAG69 14134,14257,14444,14543,14637,15146 16626 AAG70 14216,14553,15216,15334,16475 | 16627 AAG71 14560,15370,15460,15605,15761,15773 | 16630 AAG72 14575,14614,14617,14704,14707,14713,14716,14721,14725,14731,14734,14740,14762,15005,15010,15024,15050 | 15052,15056,15124,15235,15244,15247,15272,15276,15303,16427,16434 | 16645 AAG73 13374,15161,15164,15170,16512 1 LISTING OF 12/01/64 PAGE 4 | POST PROCESSOR ASSEMBLY DATA | | 16646 AAG74 12730,14743,15204,15657,16071,16322 | 16647 AAG75 15046 16650 AAG76 15076,23274 | 16651 AAG77 15243,16421 | 16652 AAG78 16240,16255,16275,16313,16347,16375 | 16653 AAG79 15430 | 16654 AAG80 13173,13262,13271,13320,15471 16655 AAG81 15414,15421,23201 | 16656 AAG82 15304,16167 | 16657 AAG83 13017,15625,15633,15647,15653,15706,15711,15720,15725,15731,15735,15740,15743,16054,16060,16062,16112 | 71400 AAG84 11523,11525,11533,12737,12741,15616,15617,15620,15666,15670 | 16670 AAG85 16671 AAG86 | 16672 AAG87 | 16673 AAG88 16115,16117,16466 | 16674 AAG89 | 16675 AAG90 16276,16301,16304,16474 16676 AAG91 15630,16462,16464 | 16677 AAG92 15175 | 16700 AAG93 15201 | 16701 AAG94 14163,14175,14221 | 16702 AAG95 15377,15404,21425,21440,21463,21544 16703 AAG96 13631,15074,15110,15112 | 16704 AAG97 13607,13614,13624,13627 | 12474 AAG98 17313,17315 | 25542 AB110 100 | 25552 AB170 25543 25557 AB205 25551 | 25623 AB510 25614 | 25624 AB610 | 25627 ABA40 25566,25571,25664 | 25645 ABA60 13047,13051,25547,25560,25663 25663 ABA70 25553,25562 | 25664 ABA80 25574 | 25665 ABB00 25610 | 25674 ABB70 25615 | 25675 ABB80 25617 25676 ABB90 25621 | 20566 ADDCT | 20565 ADDSN | 4401 ADRES 0,15553,15556,14540,14551,14616,14630 | 17136 ADSMT 12661 AE010 13440,13477 | 12737 AE440 12746 | 12744 AE490 12740,12747 | 12752 AE520 12743 | 12755 AE550 12732,12735,12745 12761 AE595 | 12765 AE640 12727,12751 | 13031 AE800 13022,13023 | 13032 AE805 12710 | 13044 AF010 13425 13061 AF080 13056 | 13062 AF090 13054,13060 | 13067 AG010 13021,13104,13114,13142,13166,13243,13261,13275,13314,13323,13324,13533,15151,15500,15744 | 1 LISTING OF 12/01/64 PAGE 5 | POST PROCESSOR ASSEMBLY DATA | 13075 AG060 13067,13072 | 13105 AG160 13101 | 13117 AG200 13111 | 13127 AG270 13122 13143 AG340 13137 | 13145 AG500 13102 | 13167 AG660 13163 | 13174 AG673 25616 | 13222 AG677 13213 13232 AG679 25674 | 13234 AG680 13152,13154 | 13244 AG760 13236 | 13262 AG871 13256 | 13263 AG880 13265 AG891 13257 | 13276 AG900 13155,13244 | 13315 AG970 13277,13312 | 13316 AG980 13276 | 13320 AG991 13272 13322 AG993 13305 | 13324 AH010 14545,14554,15416,25623 | 13334 AH080 13024,13025,13026,13043,13325,13326,13327,13330,13331,14030,15313,15423,15454,15563 | 13343 AH120 13337 | 13344 AH170 13340,13453,13534,13535 13366 AH352 13353,15167 | 13376 AH359 13370 | 13400 AH361 13372 | 13411 AH370 15166,16510 | 13416 AH420 13412,16500 13423 AH470 13417 | 13426 AH500 13421 | 13432 AH560 13424 | 13442 AH610 13437,13476 | 13452 AH690 13441 13454 AH700 13431 | 13462 AH760 13465,13467 | 13464 AH770 13460 | 13470 AH810 13466 | 13502 AI010 13461 13504 AI050 13452,13502,13512 | 13512 AI100 13507 | 13522 AI107 | 13531 AI115 13513 | 13533 AI125 13503 13543 AI190 13536,13537,13540 | 13545 AI250 13350 | 13555 AI320 13552 | 13566 AI410 13562 | 13603 AI441 13633 AI458 13615,13621,13630 | 13644 AI521 | 13647 AI530 13644,13715,14176,14761 | 13704 AI810 13673,13674 | 13717 AJ010 13641 13721 AJ012 13646 | 1 LISTING OF 12/01/64 PAGE 6 | POST PROCESSOR ASSEMBLY DATA | | 13727 AJ070 15162,15171 13736 AJ076 13732 | 13742 AJ120 13733 | 13744 AJ140 13742,14117,14546 | 13745 AJ150 | 13750 AJ180 14226 13757 AJ250 13750 | 13761 AJ270 13753 | 13763 AJ290 13754 | 13764 AJ350 13760,13762 | 13776 AJ360 13773 14002 AJ400 | 14024 AJ560 13744,14225 | 14026 AJ580 13743 | 14031 AJ600 14026,14542,15145 | 14036 AJ605 14032 14040 AJ610 14033 | 14044 AJ620 14034 | 14050 AJ630 14035 | 14062 AJ700 12663,12667,12713,12756,12763,12771,12777,13005,13013,13046,14234,14263,14267,14312,14332,14336,14356 | 14362,14367,14375,14401,14404,14407,14413,14420,14431,14435,14505,14511,16053,16057,16402,16411 14065 AJ791 | 14073 AK010 13741 | 14111 AK150 14103 | 14114 AK180 14101,14106,14110,14112 | 14116 AK190 14104,14107,14113 14117 AK200 | 14120 AK201 | 14157 AK370 14150,14162 | 14163 AK410 14151,14154,14161 | 14172 AK416 14167,14171 14210 AK426 14202 | 14215 AK436 | 14220 AK440 14212 | 14221 AK450 14205,14207,14217 | 14225 AK490 14223 14227 AK510 14224 | 14232 AK540 | 14250 AK690 14243 | 14252 AK700 14247,14251 | 14257 AK740 14306 14261 AK820 | 14272 AL010 14240 | 14307 AL150 14237,14271,14447,14513 | 14330 AL310 14322,14325 | 14354 AL510 14346,14351 14364 AL680 | 47666 ALDEF | 14422 AM010 | 14431 AM080 14442 | 14433 AM110 14440 AM140 14426 | 14443 AM200 14146 | 14452 AM250 14446 | 14453 AM270 14451 | 1 LISTING OF 12/01/64 PAGE 7 POST PROCESSOR ASSEMBLY DATA | | 14461 AM350 14453,14466 | 14471 AM450 14456,14460,14464,14470 | 14476 AM500 14473 14477 AM510 14474 | 14501 AM550 14475,14476 | 14503 AM570 | 13067 AMY22 | 13071 AMY23 14514 AN010 14437 | 14527 AN110 14524 | 14542 AN210 15113 | 14545 AN300 | 14546 AN350 14100 14555 AN500 13375,13740,15156,15172,16513 | 14565 AN570 14562 | 14571 AN610 13632,14567 | 14573 AN630 14571,15766 | 14606 AN670 14604,15207,15211 14634 AN730 | 14652 AN820 14644 | 14655 AN840 14647,14651,14653 | 14657 AN850 14645,14654 | 14665 AN900 14650 14676 AO010 14662,14664,14671,14675 | 14720 AO221 14722 | 14726 AO410 | 14747 AO671 | 14755 AO674 14752 15002 AO680 14745,14763,14766 | 15020 AO810 15015 | 15023 AO820 15016,15017,15022 | 15026 AO850 15053 | 15042 AO910 15037 15046 AO950 15034 | 15054 AP010 | 15066 AP120 15063 | 15070 AP140 15064 | 15072 AP160 15065 15073 AP170 15067,15071 | 15074 AP173 | 15110 AP260 | 15114 AP300 15106,15300 | 15141 AP510 15114 15143 AP530 15122,15123 | 15145 AP600 15111 | 15147 AP621 14573 | 15151 AP650 14572,15160,15213 | 15161 AP720 15152,15153 15170 AP770 15154,15155 | 15173 AP800 14605 | 15212 AQ010 14570 | 15214 AQ015 15212,15477,16000 | 15223 AQ070 15217 15230 AQ110 15225 | 15234 AQ140 15231 | 1 LISTING OF 12/01/64 PAGE 8 | POST PROCESSOR ASSEMBLY DATA | 15270 AQ290 15264 | 15302 AQ351 | 15306 AQ360 15214 | 15310 AQ400 13722 | 15314 AR010 13363 15325 AR110 15322 | 15334 AR170 15331 | 15337 AR210 15335 | 15342 AR320 | 15344 AR340 15501,15502,15503,15504,15505 15353 AR400 15347 | 15360 AR450 15356 | 15370 AR520 15364 | 15374 AR600 15365 | 15410 AR700 15405 15412 AR710 15406 | 15417 AR900 15336 | 15424 AS010 15350,15357,15407,15474 | 15437 AS110 15434 | 15455 AS250 15355 15465 AS320 15372,15462 | 15477 AS450 15472,15507 | 15510 AS550 15343 | 15513 AS570 15302,15412,15417,15452,15510,23177 | 15516 AS600 15522 15544 AS830 15540 | 15547 AS860 15557 | 15550 AS870 15514 | 15552 AS890 15535 | 15560 AS950 15512 13632 ASMBL | 15564 AT010 13034,13050,15310,15560,16111,16413,16433 | 15576 AT100 15564,15573 | 15600 AT120 15566,15572 | 15601 AT130 15570 63562 ATBL1 11450,11555,11665,11676 | 15602 AU010 13422,13430 | 15612 AU080 12673,15621,15713 | 15624 AU160 15607 | 15666 AU540 15675 15673 AU590 15667,15676 | 15675 AU600 15671 | 15677 AU620 15672 | 15705 AU660 15661,15664,15702 | 15744 AV110 15767,16001 15756 AV180 15747 | 15766 AV250 15763 | 15770 AV340 15751 | 16000 AV410 15775 | 16002 AW010 13304,13574,13640,14125,14625,14750,15254,15640 16014 AW095 16002,16016 | 16016 AW100 16011,16012 | 16020 AW110 13415,15745,15746 | 16034 AW230 16030 | 16064 AW500 13032,16061 1 LISTING OF 12/01/64 PAGE 9 | POST PROCESSOR ASSEMBLY DATA | | 16074 AW580 16107 | 16077 AW602 16072 16101 AW610 16075 | 16111 AW740 16063 | 16115 AX020 16121 | 16134 AX200 16131 | 16140 AX250 16135,16460 16142 AX270 16157 | 16151 AX320 16144,16147 | 16154 AX350 16146 | 16160 AX390 16150,16153 | 16165 AX440 16140,16171 16167 AX460 16142 | 16172 AX500 16137,16461 | 16202 AX580 16177,16206,16212 | 16204 AX600 16174 | 16211 AX650 16175 16214 AX680 16201,16203,16210 | 16220 AX720 16216 | 16233 AX830 16225,16226 | 16246 AX940 16243 | 16255 AX964 16262 16260 AX990 16250 | 16263 AY010 16244,16272 | 16270 AY060 16245 | 16273 AY090 16236 | 16311 AY250 16235 16316 AY300 16257,16267,16310 | 16336 AY498 16323 | 16340 AY500 16331 | 16353 AY560 16324,16337 | 16403 AY820 16362 16412 AY830 16364 | 16414 AY834 16360 | 16416 AY840 16366 | 16417 AY850 16437 | 16425 AY910 16423 16436 AY984 16432 | 16440 AZ010 16367,16422,16424 | 16462 AZ160 16213 | 16465 AZ190 16503 | 16501 AZ400 16463 16502 AZ410 16145,16477 | 16504 AZ500 13335,13360 | 7570 B0010 12704,13214,13524,13601,13675,13703,14132,14327,14353,14632,15043,16227,17703,17713,17724,17734,17773 | 20122,20176,20275,20324,20343,20414,20471,20516,20526,20537,20564,21046,21127,21136,21147,21167,21220 | 21421,21434,21736,21746,21755,21774,22004,22013,23157,23253,23303,23342,23351,24443,24453,24462,24475 24505,24514,13514,13524,13533,14562,14610 | 7572 B0012 13211 | 7662 B0460 7573, 7720, 7740,25620,25622 | 7671 B0461 | 7672 B0470 7616, 7630, 7655, 7667 7740 B0810 | 7747 B1000 7576, 7641, 7651, 7657, 7743,12705,13212,13215,13216,13525,13602,13676,13706,14133,14633,14657,14666 | 16230,17704,17714,17725,17735,17774,20133,20177,20276,20325,20344,20415,20473,20517,20527,20540,20565 | 1 LISTING OF 12/01/64 PAGE 10 | POST PROCESSOR ASSEMBLY DATA | 21047,21130,21137,21150,21170,21221,21422,21435,21737,21747,21756,21775,22005,22014,23160,23175,23254 | 23305,23343,23352,24444,24454,24463,24476,24506,24515,25676,13515,13525,13534,14563,14611 | 7750 B1010 7621, 7623, 7637, 7643, 7660, 7672, 7741,13512 | 7751 B1020 7575, 7600, 7601, 7603, 7610, 7611, 7634, 7661, 7705, 7742,12703,13201,13303,13306,13523,13573,13637 13653,13672,13702,14124,14326,14352,14624,14747,14755,15041,15253,15261,15270,15637,15645,16004,16224 | 17702,17712,17723,17733,17772,20121,20175,20274,20323,20342,20413,20470,20515,20525,20536,20563,21045 | 21126,21135,21146,21166,21217,21420,21433,21735,21745,21754,21773,22003,22012,23156,23252,23302,23341 | 23350,24442,24452,24461,24474,24504,24513,13513,13523,13532,14561,14607 | 7752 B1030 7577 7753 B1031 7570, 7572, 7663, 7732 | 7754 B1040 7647 | 7755 B1050 7615, 7627 | 7756 B1060 7605,10122 | 7757 B1069 7727, 7731 7760 B1070 7677, 7704, 7712, 7717 | 7767 B1077 7735 | 7772 B1080 7721 | 7773 B1090 7574, 7670, 7745 | 7774 B2000 7635, 7644 10006 B2100 7774, 7775, 7776, 7777,10000,10001,10002,10003,10004,10005 | 10020 B2200 10006,10007,10010,10011,10012,10013,10014,10015,10016,10017 | 10032 B2300 10020,10021,10022,10023,10024,10025,10026,10027,10030,10031 | 10044 B2400 10032,10033,10034,10035,10036,10037,10040,10041,10042,10043 | 10056 B2500 10044,10045,10046,10047,10050,10051,10052,10053,10054,10055 10070 B5010 10571,10614,10645,10700,13223,14260,16047,16372,16377,23310,14006 | 10127 B6000 10070,10115,10570,10613,10644,10677,13222,14256,14305,16046,16371,16376,23307,23327,14005 | 10130 B6010 10103 | 10131 B6020 10114,10117,10123,10125,10572,10615,10646,10701,13224,14261,14265,16050,16373,16400,16406,23320,14007 | 10132 B6030 10071 10133 B6040 10074,10104 | 10134 B6050 10073 | 10135 B6060 10124 | 10136 B7000 10107 | 10142 B7100 10077,10110 10242 B7200 10100,10111 | 10342 B7300 10101,10112 | 10442 B7400 10102,10113,10442,10443,10444,10445,10446,10447,10450,10451,10452,10453,10454,10455,10456,10457,10460 | 10461,10462,10463,10464,10465,10466,10467,10470,10471,10472,10473,10474,10475,10476,10477,10500,10501 | 10502,10503,10504,10505,10506 14043 BA010 | 14116 BA350 14044,14113 | 14123 BA440 14075 | 14136 BA530 14131 | 14140 BA550 14100 14170 BA765 14162 | 14172 BA775 14145 | 14206 BA825 14200 | 14210 BA835 14103 | 14221 BA865 14216 14223 BA875 14106 | 14237 BA920 14232 | 14241 BA930 14136,14170,14206,14221,14237 | 14265 BA949 | 14266 BA957 14124,14147,14173,14211,14224 14267 BA958 14244 | 1 LISTING OF 12/01/64 PAGE 11 | POST PROCESSOR ASSEMBLY DATA | | 14274 BA968 14275 BA990 14263 | 14300 BA993 14242 | 14463 BAA02 14257,14275 | 14464 BAA03 14301,14331,14422 | 14465 BAA04 14425 14466 BAA05 14430 | 14467 BAA06 14433 | 14470 BAA07 14373,14436 | 14471 BAA08 14441 | 14472 BAB01 14047,14054,14323 14473 BAB02 14073 | 14474 BAB03 14076 | 14475 BAB04 14101 | 14476 BAB05 14104 | 14477 BAB06 14111,14314 14500 BAB07 14143 | 14501 BAB08 14261,14264 | 14502 BAB09 | 14503 BAB13 | 14504 BAB14 12043 BAB19 12024,12031 | 14521 BAC10 14137,14222 | 14522 BAC20 14171 | 14523 BAC30 14207 | 14524 BAC40 14240 14525 BAC50 14270 | 14526 BAC80 14303 | 14527 BAC81 | 14530 BAC82 | 14531 BAC83 14341 14532 BAC84 | 14533 BAC85 14456 | 14505 BAD20 | 14506 BAD30 14043,14337 | 14507 BAE60 14302,14374,14377,14406 14510 BAE70 | 14511 BAE71 | 14512 BAE80 14340,14342,14400,14402 | 14513 BAF10 14357 | 14514 BAF20 14371 14515 BAF30 14362 | 14516 BAF40 14365 | 14517 BAF70 14350 | 14520 BAF80 14354 | 14307 BB010 13573,13626,13701,14317,14414 14321 BB080 14320 | 14330 BB131 14324 | 14335 BB136 14332 | 14337 BB140 14312,14315 | 14341 BB180 14334 14344 BB250 14325 | 14355 BB276 | 14371 BB291 14361 | 14373 BB293 14364,14367 | 1 LISTING OF 12/01/64 PAGE 12 POST PROCESSOR ASSEMBLY DATA | | 14374 BB294 14333,14355,14366,14370,14372 | 14376 BB310 14306,14461,14462 | 14401 BB330 14304,14343,14457 14403 BB360 14241,14255 | 14404 BB370 14250 | 14446 BB690 14432 | 14450 BB710 14424,14427,14435,14440,14443 | 14454 BB750 14155 14455 BB760 14450,14452 | 12013 BB900 13113,14316 | 12052 BB912 12016,12026,12032,12033,12056 | 12054 BB914 12047 | 12057 BB916 12045 12063 BB918 12046 | 12066 BB920 12050 | 12076 BB922 12073 | 10726 BCD01 7604,10120,12757,13456,13617,14075,14366,14370,14400,14402,14424,14557,14715,14730,15004,15013,15362 | 15457,15604,15760,15772,16054,16403,14031,14072,14346 10727 BCD02 | 10730 BCD03 11521,11562,12720,12724,13135,13402,13435,13474,13547,13636,13747,14264,14504,14506,14742,15203,15317 | 15636,15656,16070,16321,23322,12666,12723,13256,13312,13471,13531,14022,14127,14142,14161,14177,14214 | 14230,14735 | 10731 BCD04 12761,14245 10732 BCD05 | 10733 BCD06 12712,12714,14311,14313,14737,15651,13122,14154 | 10734 BCD07 13200,13522,13572,13766,14123,14137,14143,14517,14623,14642,15061,15120,15427,16223,16447,17732,13005 | 13511,13555,13663,14601 | 10735 BCD10 23266,14260 10736 BCD11 | 10737 BCD12 | 10740 BCD13 | 10741 BCD14 | 10742 BCD15 10743 BCD16 | 10744 BCD17 12702,13150,13161,13250,13560,13671,14331,14333,14355,14357,14436,14602,15326,16126,16341,13522,13632 | 10745 BCD20 11726,13207,14432,14441,15021,23260 | 10746 BCD21 | 10747 BCD22 10750 BCD23 | 10751 BCD24 | 10752 BCD25 | 10753 BCD26 | 10754 BCD27 10755 BCD30 13657,16104,13065,13204,14557 | 10756 BCD31 | 10757 BCD32 | 10760 BCD33 | 10761 BCD34 13623,13626,14233,14235 10762 BCD35 | 10763 BCD36 14417,14421,14712 | 10764 BCD37 12662,12664,12770,12772,13204,14703,15200,15242,15717,15737,23316 | 10765 BCD40 11565,12764,13047,13230,14270,14510,14512,14616,14706,15007,15246,15710,16420,23325,12707,12740,13107 | 13140,13275,13327 10766 BCD41 | 10767 BCD42 | 1 LISTING OF 12/01/64 PAGE 13 | POST PROCESSOR ASSEMBLY DATA | 10770 BCD43 | 10771 BCD44 | 10772 BCD45 | 10773 BCD46 | 10774 BCD47 10775 BCD50 | 10776 BCD51 | 10777 BCD52 | 11000 BCD53 | 11001 BCD54 11002 BCD55 | 11003 BCD56 | 11004 BCD57 | 11005 BCD60 12030,14335,14337,14361,14363,14536 | 11006 BCD61 11007 BCD62 | 11010 BCD63 | 11011 BCD64 | 11012 BCD65 | 11013 BCD66 11014 BCD67 | 11015 BCD70 12022,12666,12670,14733,15742,16056,16060,23330 | 11016 BCD71 | 11017 BCD72 | 11020 BCD73 11021 BCD74 13202,15174,23314,13464,14016,14110 | 11022 BCD75 | 11023 BCD76 7607,14374,14376,14412,14414,14724,16410,16412 | 11024 BCD77 12776,13000,13004,13006,13012,13014,13270,13613,14317,14343,14405,14410,15031,15403,15470,15532,15724 | 15647 BCDBF 0,12157 4712 BCOMD 0,13071,14310 | 21546 BD010 20504,21462,25063 | 21554 BD070 21574,21612 | 21563 BD140 21546 | 21567 BD180 21557 21613 BD400 20444,21532 | 21615 BD420 21626,21644 | 21622 BD470 21613 | 21627 BD520 | 21645 BD670 21654 BD720 21666,21706 | 21667 BD830 21710 | 21707 BD990 21663 | 24177 BDA05 17664,21122 | 24207 BDA45 24525,24551 24221 BDA85 20253,22634,24201,24210 | 24222 BDA90 | 24230 BDB15 20255,24240,24243 | 24232 BDB25 24603 | 20262 BDBCL 0,12145 20263 BDBCR 0,12143 | 20261 BDBIN 0,12147,25170 | 24270 BDC70 24260 | 24277 BDD05 24411 | 24312 BDD56 24356 1 LISTING OF 12/01/64 PAGE 14 | POST PROCESSOR ASSEMBLY DATA | | 24317 BDD61 24341 | 24322 BDD70 24311,24416 24327 BDD95 24430 | 24331 BDE65 24421,24422,24423,24425 | 24333 BDE70 | 24337 BDE80 24434 | 24342 BDF00 24330 24357 BDG00 24246,24251,24414,24557 | 24375 BDG70 24365 | 24402 BDG95 | 24413 BDH30 24250 | 24415 BDH40 24302 24417 BDH46 | 24431 BDH56 24424,24426 | 24435 BDH60 24252,24303,24357,24553 | 24465 BDI95 24435 | 24467 BDJ05 24413 24517 BDK40 24467 | 24521 BDK50 24214 | 24531 BDK90 24412 | 24537 BDL20 | 24552 BDL75 24530 24560 BDL85 24537 | 24561 BDL90 23154,24233 | 24571 BDL94 24564,24565 | 24577 BDL97 24570 | 24603 BDM11 24632 BDM20 24605 | 24640 BDM50 23612 | 24675 BDP70 24713 | 24677 BDP80 24706 | 24702 BDP95 24664,24672,24710 24714 BDQ65 24704 | 24716 BDQ75 24666,24712 | 24721 BDQ90 25001 | 24727 BDR20 24642 | 25002 BDT70 17665 25004 BDT80 22026 | 25023 BDU55 25013 | 25057 BDV80 25050 | 25067 BDW75 25061,25066 | 25104 BDX40 25006 25115 BDX90 22134 | 25126 BDY50 23662,24640,25157 | 25153 BDZ55 25126 | 21711 BE010 21674 | 21712 BE020 20267 21716 BE060 17676 | 21722 BE100 21117 | 21726 BE140 20511 | 21731 BE170 21715,21721,21725,23541,25156 | 21767 BE370 25003 22016 BE501 | 22024 BE507 22017 | 22027 BE510 21713,21717,21723,21727,22025 | 1 LISTING OF 12/01/64 PAGE 15 | POST PROCESSOR ASSEMBLY DATA | 22050 BE680 22142 | 22111 BE980 | 25155 BEA05 22640 | 25174 BEA81 25205 BEA87 25176,25202 | 25212 BEB10 25162 | 25251 BEC60 25227,25240 | 25265 BED50 | 47654 BEDIC 13073,13101,13106,13121,13127,13216,13223,13225,13621,13627,13630,13647 25302 BEE15 25222 | 25321 BEE90 25305 | 25323 BEF00 25304 | 25332 BEF25 25322 | 25347 BEF90 25336 25400 BEH25 25307,25361 | 25411 BEH70 25320,25405 | 25414 BEJ15 25267,25410 | 25446 BEJ85 25436 | 25453 BEK15 25437,25445 17263 BEL10 13066 | 17302 BEL70 17276 | 17303 BEL75 17301,17306 | 17311 BEM30 13065 | 17317 BEM31 17331 17322 BEM34 | 17331 BEM44 17321,17330 | 17333 BEM46 17320,17340 | 22115 BF010 22136,22204,22262 | 22130 BF120 22120 22135 BF150 22112 | 22137 BF170 22044 | 22143 BF210 22031,25114 | 22162 BF350 22210 | 22171 BF420 22212 22176 BF470 22344 | 22205 BF540 22156 | 22211 BF580 22166 | 22213 BF600 22032 | 22225 BF700 22264 22242 BF830 22270 | 22263 BF990 22222 | 22265 BG010 22236 | 22271 BG050 22033,23421,23653 | 22320 BG220 22350 22345 BG390 22314 | 22351 BH010 22133,25125 | 22364 BH120 22361 | 22410 BI040 22360 | 22427 BI190 22416 22442 BI360 22407,22411,22441 | 22455 BI470 22451 | 22456 BI480 22447 | 22472 BI720 22450,22464,22764,22770,23040,23046,23051,23060,25455 | 22507 BI850 22476 22524 BI980 22510 | 1 LISTING OF 12/01/64 PAGE 16 | POST PROCESSOR ASSEMBLY DATA | | 15631 BINBF 0,12161 22527 BJ010 22523,22767,22771,23071,23076,25456 | 22555 BJ170 | 22575 BJ330 22563 | 22615 BJ640 22574 | 22635 BJ800 22443 22641 BJ850 22637 | 22664 BK040 22655 | 22675 BK190 22642 | 22713 BK330 22677 | 22721 BK390 22700 22730 BK460 22722 | 22754 BK720 22712,22746 | 22757 BK741 | 22763 BK745 22757 | 22773 BK760 22702,22755 17645 BKSCT 0 | 17552 BKSPC 0 | 17404 BKSPT 0,14743 | 23016 BL010 22704 | 23017 BL011 23025 BL017 23017,23065 | 23047 BL025 23035 | 23053 BL027 23052 | 23061 BL033 23020,23024 | 23070 BL040 23064,23066 23077 BL062 17001 | 23124 BL195 23152,23244 | 23131 BL215 23125,23126 | 23153 BL321 23141,23144 | 23155 BL325 23136 23210 BL465 23204 | 23216 BL495 23205 | 23230 BL541 | 23245 BL700 17666 | 23246 BL701 23265 BL746 23261,23331,23333 | 23334 BL748 23256,23264,23267,23275,23312 | 23403 BL950 23365,23625 | 16723 BLK11 13036,13052,15312,15562,16113,16415,16435 | 23415 BM000 23426 23423 BM020 23411 | 23427 BM040 23373,23402 | 23450 BM120 23436 | 23513 BM320 23504 | 23540 BM455 17667 23542 BM465 | 23560 BM530 23550 | 23614 BM665 23600 | 23623 BM700 23627,23631 | 23626 BM711 23620 23632 BM715 23422 | 23652 BM765 23650,23655,23657,23661 | 23656 BM785 23646 | 23662 BM900 23613 | 1 LISTING OF 12/01/64 PAGE 17 POST PROCESSOR ASSEMBLY DATA | | 16736 BN010 13041,13527,16501 | 16740 BN014 17004 | 16741 BN020 16746 BN032 16771,24637 | 16761 BN060 16736,17261 | 16763 BN063 16742,16743 | 16772 BN070 16737 | 16775 BN080 16746,16750 17000 BN110 17262 | 17005 BN140 17003 | 17007 BN150 | 17010 BN155 16752,17274,17277,23100,23102,23106 | 17012 BN180 17011,24231 17017 BN200 16777 | 17344 BNA10 12676,12706,13037,13040,13516,13526,16045,16740,16774,24561 | 17347 BNA20 16775,17010,17556,17661 | 17351 BNA21 | 17513 BNA30 16747,17103,17130,20637,21520,21722,24003,24046 17514 BNA40 16751,16756,17034,17144,17221,17226,17243,17265,17300,17753,20001,20014,20077,20104,20144,20160,20207 | 20236,20243,20360,20374,20450,20455,20461,20463,20602,20612,20645,20667,20736,20743,21032,21037,21057 | 21103,21156,21210,21260,21263,21311,21363,21370,21412,21445,21454,21533,21651,21716,22021,22114,22140 | 22160,22170,22174,22224,22255,22266,22277,22347,22367,22374,22445,22461,22532,22537,22620,22625,22676 | 22710,22726,22743,23056,23074,23115,23235,23370,23413,23445,23476,23501,23502,23526,23545,23606,23705 23735,23754,23763,24015,24076,24142,24151,24256,24315,24332,24337,24362,24400,24406,24577,24620,24660 | 24671,24717,24740,24777,25042,25045,25072,25116,25217,25273,25300,25303,25355,25365,25406,25443,25451 | 17515 BNA50 16757,16760,17272,17541 | 17516 BNA60 16776,17254 | 17517 BNA70 17027,17041,17116,17137,17176,17203 17522 BNA80 17147 | 17523 BNA90 21455 | 17524 BNB10 17062 | 17525 BNB20 17076 | 17526 BNB30 17123,17153 17527 BNB40 17133 | 17530 BNB50 17160 | 17531 BNB70 | 17532 BNB80 17233,17252,20056,20250,24027,24635 | 17533 BNB90 17673,22065,22327,22653,22703 17534 BNC10 17012 | 17535 BNC20 17014,17675,20266,20510,21116,23273,23364,23577,23611,24245,24301,25005 | 17536 BNC30 17023,17266,17270 | 17537 BNC40 17053 | 17540 BNC50 17722,20174,20273,20535,21165,21744,22002,23150,23340,24451,24503 17541 BNC60 | 17542 BNC70 | 17543 BNC80 16741,17757,20006,20300,20356,20423,20425,20462,20544,20576,20603,20622,20626,21172,21212,21413,22116 | 22546,23161,23176,23414,23425,23432,23433,23601,23603,24254,24276,24331,24333,24405,24407,24562,24563 | 25010,25044,25120 17544 BNC90 17264,25373 | 17545 BNC91 20252,20254,24320 | 17546 BNC92 25203 | 17547 BNC93 25205 | 17550 BNC94 21457,21507 17551 BNC95 21461,21470 | 17552 BNC96 20472 | 1 LISTING OF 12/01/64 PAGE 18 | POST PROCESSOR ASSEMBLY DATA | 17553 BNC97 17307 | 17554 BNC98 23153,24604,24606 | 17555 BNC99 24630 | 17556 BND00 16745,16753,16754,16755,17762,20224,20313,20556,20600,20624,21205,22131,22561,23174,23231,23430,23561 | 24271,24376,24567,25024 17557 BND10 17700,17710,20406,20513,20523,21124,21133,21752,22010,23346,24457,24511 | 17560 BND11 17771,20120,20322,20341,20467,20562,21044,21145,21216,21417,21432,21734,21772,23251,23301,24441,24473 | 17561 BND12 17705,17715,17726,17740,17746,17754,20002,20277,20355,20460,20503,20520,20530,20541,20574,20616,21131 | 21207,21224,21266,21322,21341,21343,21374,21404,21407,21411,22041,22050,22115,22154,22162,22234,22242 | 22311,22313,22340,22342,23566,23615,23643,23645,24255,24273,24326,24350,24363,24402 17562 BND13 17716,17741,20011,20025,20531,20542,20617,20627,20660,20723,20754,20761,21010,21424,21437,21441,21444 | 22046,22137,22157,22206,22240,22265,22316,22345,22475,22502,22541,22562,22603,23070,23072 | 17563 BND14 17751,17777,20037,20125,20135,20205,20330,20346,20607,20722,21012,21054,21154,21231,21763,22040,22045 | 22056,22064,22067,22072,22074,22105,22153,22200,22205,22217,22233,22237,22244,22307,22315,22326,22332 | 22335,22337,23262,23357,23407,23423,23564,23614,23622,23626,23630,23642,23667,23731,24310,24736,25036 25110,25175,25417 | 17564 BND15 | 17565 BND16 17755,17756,20003,20005,20010,20136,20141,20335,20353,20422,20434,20500,20575,20601,20621,20625,21140 | 21375,22042,22110,22171,22173,22203,22300,23371,23431,23546,23602,25011,25025,25037,25046,25052,25117 | 17566 BND17 16767,20213,20256,20307,20546,21201,22125,22550,23164,23220,23400,23555,24265,24372,24571,25020 17567 BND18 16765,20215,20260,20305,20550,21177,22123,22552,23166,23222,23376,23553,24263,24370,24573,25016 | 17570 BND19 16763,20217,20262,20303,20552,21175,22121,22554,23170,23224,23374,23551,24261,24366,24575,25014 | 17571 BND20 20420,20476,21242,21345,21377,21402,22353,22660,22775,23452,23710,23742,24020,24101,24323,24705,25253 | 25423 | 17572 BND21 17744,17764,20315,20570,20633,21121,23435,23570,24200,25060,25161,25454 17573 BND22 20615,20636,20644,20666,20674,21151,21223,22060,22066,22075,22220,22225,22226,22254,22261,22304,22325 | 22330,23701,24011,24072,24304,24445,24477 | 17574 BND23 20566,20572,21051,21157,21160,21161,21436,22061,22103,22310,22323,23733,23736,23737,24045,24253,24275 | 24360,24377,24455,24507,24554,24556 | 17575 BND24 21171,21211,21232,21262,23732,23740,23756,23761,23762,24305,24464,24516 17576 BND25 12665,12711,14372,15274,15650,15741,17255 | 17577 BND26 17260,21006,21073,21240,21301,21335,22646,22733,23003,23460,23516 | 17600 BND27 | 17601 BND28 16773,21553,21565,21614,21621,21653,21660,24206,24215,24235 | 17602 BND29 17006,17246,23104 17603 BND30 21552,21554,21615,21650,21654,24205,24211 | 17604 BND31 | 17605 BND32 | 17606 BND33 | 17607 BND34 17047 17610 BND35 22111,22165,22221,22272,22415,22422,22440,22542,23406,23670,23700,23722,23776,24037,24057,24113,24153 | 24175,24242,24601,25106 | 17611 BND36 22057,22177,22260,22410,22507,22641,22701,22721,22756,23016,25221,25306,25407,25420 | 17612 BND37 21714,21720,21724,21730,22442,23245,23403,25124 | 17613 BND38 21776,22035,22053,22063,22147,22230,22303,23404,23664,23727,24733,25033 17614 BND39 22006,22047,22113,22135,22141,22161,22167,22207,22211,22223,22241,22263,22267,22274,22276,22317,22346 | 23417,25007,25043,25137 | 17615 BND40 22015,22034,22146,22164,22213,22227,22271,22312,23033,23036,23047,23412,23424,23632,23644,23663,23677 | 24732,25032,25105 | 17616 BND41 17736,20007,20123,20201,20326,21050,21222,21423,21534,21652,21740,21760,22062,22150,22214,22302,23255 23263,23304,23306,23354,23562,23636,25104,25174,25415 | 17617 BND42 20200,20210,21750,22077,22102,22143,22247,22321,23344,23366,23415,23542,23604,25121 | 17620 BND43 17706,20202,20410,20417,20475,20521,21141,21757,22052,22155,22176,22201,22301,22331,23037,23050,23353 | 23405,23450,23616,23633,23637,25111,25251,25414,25421 | 17621 BND44 22051,22163,22172,22243,22253,22320,22545,23073,23075 1 LISTING OF 12/01/64 PAGE 19 | POST PROCESSOR ASSEMBLY DATA | | 17622 BND45 22073,22175,22256,22336,22444,22675,22714,25302,25323 | 17623 BND46 22076,22202,22246,22351 17624 BND47 20211,22357,22544,23367,23416,23544,23607,24272,24274,24361,24401,24600,25030,25031,25115 | 17625 BND48 22101,22144,22251,22324,22543,25122 | 17626 BND49 21766,22100,22250,23362,23500,23605,23755,23760,24657,25230 | 17627 BND50 21764,22043,22106,22235,22245,22257,22343,22754,23034,23360,23752 | 17630 BND51 21450,21726 17631 BND52 22107,22341,22656,22773 | 17632 BND53 22355,22376,22427,22511,22650,22662,22777,23005,23454,23462,25426 | 17633 BND54 22573,22614,22632 | 17634 BND55 | 17635 BND56 22652,22663,22664 17636 BND57 21765,23361,24415,25112 | 17637 BND58 22104,22145,22252,22322,22356,25123 | 17640 BND60 | 17641 BND61 23565,23572,23574,23774,24641 | 17642 BND62 17643 BND63 23617,23621,25212 | 17644 BND64 23623,25201,25226,25233,25244,25313,25335,25342,25400 | 17645 BND65 | 17646 BND66 23652,25434 | 17647 BND67 22016,22020,23540,23543,25155 17650 BND68 23134 | 17651 BND69 23137 | 17652 BND70 23142 | 17653 BND71 23133 | 17654 BND72 23151,23155,24173,24724,25132,25432 17655 BND73 | 17656 BND74 24225,24277 | 17657 BND75 | 17660 BND76 24247 | 17661 BND77 17275 17662 BND80 20004,20013,20126,20131,20132,20142,20331,20334,20347,20352,20354,20357,25331,25375 | 17663 BND99 17322 | 17262 BO750 | 17664 BP000 17016 | 17673 BP100 17674 BP110 | 17744 BP325 | 17750 BP330 17745 | 17757 BP400 17742,17747 | 17763 BP430 20264 20037 BP820 20026 | 20052 BP930 20040 | 20066 BQ090 20036 | 20070 BQ110 20027,20041 | 20115 BQ500 20012,20107 20155 BQ690 20146 | 20171 BQ930 20147,20163,20411,20457,21056,21106,21114,21270,21323,21372,21661 | 20201 BQ939 23447,23505,23531,23537 | 20212 BQ948 24176,24220,24321,24726,25075,25103 | 20252 BR270 20256 BR400 17760 | 20265 BR500 17672 | 20312 BR670 20302 | 1 LISTING OF 12/01/64 PAGE 20 | POST PROCESSOR ASSEMBLY DATA | 20314 BR690 20311 | 20405 BS310 20363,20377 | 20426 BS400 20505 | 20445 BS700 21535 20460 BS810 20316 | 20502 BS915 | 20507 BT010 17671 | 20555 BT280 20545 | 20557 BT300 20543,20554 20566 BT335 | 20605 BT349 20573 | 20626 BT500 20620 | 20636 BT590 20634 | 20643 BT640 20640 20652 BT710 20641 | 20666 BT830 20631 | 20701 BT940 20672 | 20717 BU150 20705 | 20730 BU240 20665 20745 BU550 20642 | 20754 BU620 20746 | 20767 BU730 20755 | 21000 BU820 20766,20777 | 15756 BUFCW 15630 BUFER 0 | 72727 BULOC 12313 | 72753 BUSZE 12315 | 21020 BV080 21011 | 21024 BV120 21017 21041 BV210 20630 | 21070 BV400 21062 | 21115 BW010 17670 | 21204 BW420 21174 | 21227 BW570 21243 BW690 21234 | 21262 BW900 21233 | 21276 BX020 21265 | 21322 BX280 21314 | 21324 BX300 21267,21406 21337 BX402 | 21350 BX460 21342,21410 | 21373 BX710 21225,21226 | 21403 BX780 21373 | 21407 BX790 21411 BY005 17765 | 21414 BY010 | 21427 BY034 20604,20635 | 21440 BY052 | 21441 BY056 21426 21445 BY064 | 21446 BY066 | 21447 BY068 21443 | 21507 BY152 21545 | 21536 BY400 21464 23672 BZ010 23671 | 1 LISTING OF 12/01/64 PAGE 21 | POST PROCESSOR ASSEMBLY DATA | | 23727 BZ155 23676 23752 BZ245 23734 | 24045 BZ545 23775 | 24065 BZ616 24060 | 24072 BZ621 | 24120 BZ730 24051,24064 24134 BZ790 24010,24044 | 24170 BZ960 24145 | 24175 BZ982 | 32352 CA020 | 32366 CA090 32404 CA220 | 32437 CA450 | 32441 CA460 | 32451 CA540 | 32470 CA690 33412 CAA10 | 33413 CAA20 | 33414 CAA30 | 33421 CAA40 | 33422 CAA50 33423 CAA60 | 33424 CAA70 | 33425 CAA80 | 33426 CAA90 | 33427 CAB10 33430 CAB20 | 33431 CAB30 | 33432 CAB40 | 33433 CAB50 | 33434 CAB60 33435 CAB70 | 33436 CAB80 | 33437 CAC10 | 33440 CAC20 | 33441 CAC30 33442 CAC40 | 33443 CAC50 | 33444 CAC60 | 32512 CB070 | 32513 CB080 32544 CB580 | 32550 CB620 | 32566 CB950 | 32575 CC030 | 32604 CC100 32614 CC150 | 32617 CC180 | 32627 CC250 | 32644 CC380 | 32646 CC400 32656 CC480 | 32670 CC580 | 32672 CC600 | 32705 CC710 | 1 LISTING OF 12/01/64 PAGE 22 POST PROCESSOR ASSEMBLY DATA | | 32721 CC840 | 32724 CC870 | 32726 CC875 32730 CC880 | 32737 CC950 | 32742 CC980 | 33005 CD240 | 33020 CD340 33036 CD485 | 33040 CD490 | 33137 CD660 | 33152 CD770 | 33171 CD920 33262 CE150 | 33271 CE230 | 33273 CE250 | 33276 CE270 | 33313 CE380 33324 CE470 | 33331 CE520 | 33343 CE810 | 33352 CE870 | 33357 CE920 33400 CE991 | 33401 CE992 | 33402 CE993 | 33403 CE994 | 33404 CE995 20175 CHBCD 0 | 17300 CHLOC 0,12237 | 5630 CLIST 0, 7730, 7734, 7736,10576,12247 | 30477 CLNHO 14273,14532 | 13575 CLNPS 30253 CLNUD | 27513 CLNVE | 6260 CLOSE 0,12261 | 13027 CMDCF 12733 | 13024 CMDCL 12674,12701 21365 CMDOP | 13424 CMPCF 13322 | 13421 CMPCL 13263,13270 | 30502 CQ000 | 30503 CQ010 30546 CQ360 | 30606 CQ595 | 30610 CQ600 | 30615 CQ650 | 30622 CQ700 30644 CQ880 | 32135 CQA10 | 32136 CQA20 | 32137 CQA30 | 32140 CQA40 32141 CQA50 | 32142 CQA60 | 1 LISTING OF 12/01/64 PAGE 23 | POST PROCESSOR ASSEMBLY DATA | 32143 CQA70 | 32144 CQA80 | 32145 CQA90 | 32146 CQB00 | 32147 CQB10 32150 CQB20 | 32151 CQB30 | 32152 CQB40 | 32153 CQB50 | 32154 CQB60 32155 CQB70 | 32156 CQB80 | 32157 CQB90 | 32160 CQC10 | 32161 CQC20 32162 CQC30 | 32163 CQC40 | 32164 CQC50 | 32165 CQC60 | 32166 CQC70 32167 CQC80 | 32170 CQC90 | 32171 CQD10 | 32172 CQD20 | 32173 CQD30 32174 CQD40 | 32175 CQD50 | 32176 CQD60 | 32177 CQD70 | 32200 CQD80 32201 CQD90 | 32202 CQE10 | 30660 CR000 | 30667 CR070 | 30674 CR120 30701 CR145 | 30711 CR178 | 30713 CR180 | 30725 CR290 | 30735 CR360 30745 CR430 | 30752 CR480 | 30757 CR530 | 30764 CR570 | 30770 CR610 30773 CR640 | 31010 CR770 | 31013 CR800 | 31024 CR890 | 31025 CR900 31047 CS080 | 31067 CS250 | 31103 CS370 | 31112 CS440 | 31130 CS580 1 LISTING OF 12/01/64 PAGE 24 | POST PROCESSOR ASSEMBLY DATA | | 31155 CS800 | 31171 CS920 4751 CSTOP 0,12063 | 31207 CT060 | 31216 CT130 | 31230 CT230 | 31233 CT260 31246 CT370 | 31253 CT420 | 31262 CT490 | 31303 CT660 | 31305 CT680 31312 CT720 | 31320 CT780 | 31322 CT800 | 31327 CT850 | 72607 CTTBL 31350 CU020 | 31364 CU140 | 31373 CU210 | 31411 CU350 | 31423 CU450 31427 CU490 | 31434 CU540 | 31450 CU660 | 31504 CU800 | 31505 CU810 31506 CU820 | 31507 CU830 | 31510 CV000 | 31530 CV160 | 31543 CV270 31554 CV360 | 31575 CV530 | 31602 CV580 | 31616 CV700 | 31623 CV750 20210 CVBCD 0,12231 | 17742 CVBIN 0,12227 | 31625 CW000 | 31650 CW190 | 31710 CW510 31715 CW560 | 31762 CW930 | 31767 CW980 | 31775 CX040 | 32014 CX190 32032 CX330 | 32060 CX550 | 32065 CX600 | 32101 CX720 | 32106 CX770 32113 CX820 | 32114 CX830 | 32116 CY000 | 1 LISTING OF 12/01/64 PAGE 25 | POST PROCESSOR ASSEMBLY DATA | 32127 CY090 | 32132 CY120 | 12663 D0010 17343,14277 | 12700 D0100 12675,12714,12716,12727 12721 D0260 12712 | 12732 D0450 12762,13015 | 12757 D0680 12764 | 12761 D0700 12765 | 12763 D0720 12746 13001 D0760 12731,12763,12767,13016 | 13016 D0790 12743,12751 | 13022 D0830 12663,12705 | 13025 D1050 12710,12747 | 13026 D1060 12713,12741 13030 D1080 12766,13166,13355,13563,13671 | 13031 D1090 12770 | 13032 D1100 12771 | 13050 D1120 | 13051 D1140 12744 13052 D1150 12752 | 13053 D1160 12730 | 13054 D1170 12672,13012,13013 | 13055 D1180 13006,13011 | 13056 D2010 14453 13063 D2107 13212 | 13070 D2110 | 13100 D2230 13114,13116,13124,13126 | 13121 D2350 13112 | 13131 D2450 13146,13202 13157 D2630 13151,13154 | 13163 D2680 13056,13222 | 13165 D2730 13143 | 13200 D2820 | 13201 D2830 13130,13157,13165,13167 13203 D4200 13062 | 13213 D4209 13210 | 13220 D4250 13226 | 13253 D5010 | 13267 D5100 13264,13302,13304,13316 13307 D5260 13300 | 13321 D5450 13351,13371 | 13346 D5680 13343,13353 | 13350 D5700 13354 | 13352 D5720 13335 13370 D5760 13320,13352,13356,13372 | 13372 D5790 13332,13340 | 13376 D5830 13253,13261,13307 | 13400 D5832 13420 | 13403 D5834 13410 13413 D5836 13407 | 13415 D5838 13402 | 11256 D5900 13401,13403,13406,13413,13416 | 13422 D6050 13276,13336 | 13423 D6060 13301,13330 13425 D6080 | 1 LISTING OF 12/01/64 PAGE 26 | POST PROCESSOR ASSEMBLY DATA | | 13426 D6090 13357 13427 D6100 13360 | 13445 D6120 | 13446 D6140 13333 | 13447 D6150 13341 | 13450 D6160 13317 13451 D7010 12777,13177,13366 | 13545 D7900 13451 | 13546 D7910 13452 | 16245 DA030 | 16324 DA288 16336 DA314 | 16340 DA318 | 16347 DA338 | 16357 DA360 | 16361 DA364 16417 DA431 | 16421 DA434 | 16423 DA444 | 16127 DA590 | 16152 DA681 16171 DA880 | 16177 DA940 | 13227 DAA10 | 13230 DAA20 13060,13063,13123 | 13231 DAA30 13232 DAA40 | 13233 DAA50 13110,13113,13141,13144,13147,13152 | 20534 DAA60 | 13237 DAA65 | 20535 DAA70 13240 DAA75 | 20536 DAA80 | 13241 DAA85 | 20537 DAA90 | 20543 DAA91 20544 DAA93 | 20545 DAA94 | 20540 DAA95 | 20541 DAA96 | 20542 DAA97 20546 DAA98 | 20547 DAB10 | 13243 DAB15 13160,13170 | 20550 DAB20 | 13244 DAB25 20551 DAB30 | 20552 DAB35 | 20553 DAB40 | 20554 DAB41 | 20555 DAB42 13245 DAB45 | 20556 DAB50 | 20557 DAB51 | 20560 DAB52 | 1 LISTING OF 12/01/64 PAGE 27 POST PROCESSOR ASSEMBLY DATA | | 13246 DAB55 | 20561 DAB60 | 13247 DAB65 13250 DAB66 | 13251 DAB67 13224 | 13252 DAB68 13067,13206 | 20562 DAB70 | 20563 DAB80 20572 DAC60 | 20575 DAC90 | 20576 DAD10 | 20577 DAD20 | 20600 DAD30 20601 DAD40 | 20602 DAD50 | 20603 DAD60 | 20604 DAD70 | 20605 DAD80 20606 DAD90 | 20607 DAD91 | 20610 DAD92 | 20611 DAE10 | 20612 DAE20 20613 DAE25 | 20614 DAE30 | 20615 DAE40 | 20616 DAE41 | 20617 DAE42 20620 DAE50 | 20621 DAE60 | 20622 DAE70 | 20623 DAE80 | 20624 DAF20 20625 DAF21 | 20626 DAF22 | 20627 DAF23 | 20630 DAF30 | 20631 DAF40 20632 DAF50 | 20633 DAF60 | 20634 DAF70 | 20635 DAF80 | 20636 DAF90 20637 DAG10 | 20640 DAG20 | 20641 DAG30 | 20642 DAG40 | 20643 DAG50 20644 DAG51 | 20645 DAG52 | 20646 DAG60 | 20647 DAG80 | 20650 DAG90 20651 DAH10 | 20652 DAH20 | 1 LISTING OF 12/01/64 PAGE 28 | POST PROCESSOR ASSEMBLY DATA | 20654 DAI01 | 20655 DAI02 | 20656 DAI03 | 20657 DAI04 | 20660 DAI05 20661 DAI06 | 20662 DAI07 | 20663 DAI08 | 20664 DAI09 | 20665 DAI10 20666 DAI12 | 20667 DAI13 | 20670 DAI14 | 20671 DAI30 | 20672 DAI50 12474 DAL99 | 20533 DAONE | 16201 DB010 | 16207 DB080 | 16213 DB120 16223 DB260 | 16231 DB320 | 16244 DB430 | 16427 DB545 | 16503 DB930 16506 DB960 | 20065 DBBCL 0,12135,17547,24056,24746 | 20066 DBBCR 0,12133,17546,24122,24656,24754 | 20064 DBBIN 0,12137,24133,24650,24765 | 20573 DBLNK 16534 DC010 | 16564 DC310 | 16615 DC600 | 16621 DC760 | 16634 DC880 20574 DCOMM | 47653 DCTBL 13017,13032,13565 | 57543 DCTBP 13373,13427,13673 | 13033 DCTRD 12737,13000,13002,13003,13027 | 13430 DCTRP 13326,13367,13424 16645 DD010 | 16663 DD150 | 16666 DD180 | 16674 DD260 | 16711 DD399 16713 DD400 | 16734 DD600 | 16750 DD660 | 16765 DD760 | 13242 DDA95 13171 5134 DDEAD 0,10632,10661,10714 | 17040 DE260 | 17054 DE380 | 17074 DE600 | 20571 DECCT 1 LISTING OF 12/01/64 PAGE 29 | POST PROCESSOR ASSEMBLY DATA | | 20570 DECSN | 17561 DELET 0,12405 11103 DESTL 11255 | 17551 DEXIF 0 | 15630 DF003 | 15720 DF079 | 15721 DF080 15732 DF111 | 15733 DF120 | 15742 DF200 | 15757 DF330 | 15772 DF510 15777 DF570 | 16012 DF760 | 16017 DF820 | 16020 DF830 | 16022 DF840 16036 DF871 | 16054 DF905 | 16067 DF945 | 16070 DF950 | 16071 DF960 16101 DF968 | 16104 DF971 | 16106 DF980 | 16117 DF989 | 16126 DF996 17105 DG010 | 17134 DG305 | 17143 DG345 | 17145 DG355 | 17147 DG365 17164 DG435 | 17170 DG460 | 17172 DG470 | 17222 DG560 | 17225 DG575 17231 DG595 | 17243 DG650 | 17257 DG715 | 17264 DG750 | 17274 DG785 17305 DG840 | 17312 DG845 | 17321 DG851 | 17323 DH010 | 17347 DH170 17356 DH285 | 17360 DH290 | 17362 DH320 | 17363 DH330 | 17364 DH390 17403 DH560 | 17420 DH680 | 17425 DH760 | 1 LISTING OF 12/01/64 PAGE 30 | POST PROCESSOR ASSEMBLY DATA | 17434 DH830 | 17456 DH945 | 17463 DI010 | 17511 DI270 17513 DI290 | 17514 DI300 | 17517 DI390 | 17545 DI640 | 17600 DI840 17613 DI950 | 22176 DICLO 0,12163 | 17623 DJ060 | 17641 DJ071 | 17651 DJ072 17661 DJ090 | 17674 DJ200 | 17704 DJ320 | 17707 DJ510 | 17733 DJ720 17744 DJ800 | 17757 DJ860 | 17770 DJ900 | 20004 DK010 | 20025 DK136 20036 DK137 | 20076 DK140 | 20102 DK260 | 20110 DK350 | 20157 DK720 20215 DK750 | 20323 DL010 | 20325 DL021 | 20332 DL040 | 20346 DL151 20350 DL170 | 20354 DL200 | 20366 DL260 | 20374 DL269 | 20404 DL440 20411 DL500 | 20412 DL540 | 20413 DL550 | 20414 DL560 | 20415 DM010 20461 DM500 | 20476 DM620 | 20505 DM700 | 20507 DM720 | 20525 DM860 22202 DSWCH 0,12167 | 20564 DZERO | 13550 E0010 | 13553 E0040 13570 | 13572 E0185 13560 13574 E0220 13561 | 1 LISTING OF 12/01/64 PAGE 31 | POST PROCESSOR ASSEMBLY DATA | | 13577 E0250 13605 E0550 13577 | 13607 E1001 13566 | 13610 E1002 13551,13562,13564,13567,13574 | 13611 E1003 13575 | 13612 E1004 13601 13613 E1005 13602 | 13614 E1006 13603 | 13615 E1010 | 13623 E1040 13636 | 13624 E1050 13620 13650 E1180 13615 | 13651 E1460 13642 | 13653 E2004 13644 | 13654 E2005 13645 | 13655 E2006 13646 13656 E5010 | 13661 E5040 13676 | 13700 E5190 13666 | 13702 E5220 13667 | 13705 E5250 13713 E5550 13705 | 13715 E6001 13674 | 13716 E6002 13657,13670,13672,13675,13702 | 13717 E6003 13703 | 13720 E6004 13707 13721 E6005 13710 | 13722 E6006 13711 | 13723 E7000 13600,13643,13706 | 13760 E7236 13724,14002 | 13771 E7276 13725 13774 E7300 13723,13770 | 13775 E7302 13736 | 13776 E7303 13744 | 13777 E7310 | 14034 E7445 14001 14035 E7450 14000 | 14036 E7455 13777 | 14040 E7465 14010,14020,14025,14026 | 4702 EIGHT 0,12215 | 53607 ENDIC 13161,13213,13242,13616 17005 EOJOB 0 | 5526 EOTSW 0 | 22204 EQUAL 0 | 11057 EQUIV 13221,14275,14462,14667,16622,21442,14223 | 22201 ESWCH 0,12171 11423 F0080 11414,11456,11466,11500,11510,11540,11541,11621,11651,11712,11743,16744,16770,17005,17022,17046,17245 | 17263,17761,20212,20223,20257,20310,20312,20547,20555,20577,20623,21202,21204,22126,22130,22547,22560 | 23103,23165,23173,23217,23230,23401,23427,23556,23560,24266,24270,24373,24375,24566,24572,25021,25023 | 25330,25372,14734 | 11424 F0090 11413 30366 FA010 | 30374 FA080 | 30410 FA150 | 30415 FA200 | 1 LISTING OF 12/01/64 PAGE 32 POST PROCESSOR ASSEMBLY DATA | | 30423 FA250 | 30431 FA450 | 30432 FA460 30437 FA500 | 30441 FA550 | 30457 FA592 | 30470 FA606 | 30472 FA610 30473 FA620 | 30502 FA700 | 31303 FAA01 | 67543 FAA02 | 31304 FAA03 31305 FAA04 | 31306 FAA05 | 31307 FAA06 | 31310 FAA07 | 31311 FAA08 31312 FAA09 | 31313 FAA10 | 31314 FAA11 | 31315 FAA14 | 31316 FAA15 31317 FAA16 | 31320 FAA17 | 31321 FAA18 | 31322 FAA19 | 30514 FB010 30534 FB170 | 30566 FB420 | 30570 FB500 | 30575 FB640 | 30611 FB760 30641 FB980 | 30652 FC050 | 30656 FC100 | 30673 FC124 | 30675 FC128 30703 FC150 | 30705 FC170 | 30707 FC190 | 30712 FC220 | 30715 FC250 30723 FC310 | 30726 FC340 | 30745 FC500 | 30773 FC616 | 30775 FC618 31003 FC628 | 31005 FC630 | 31007 FC650 | 31025 FC710 | 31030 FC740 31044 FD010 | 31050 FD050 | 1 LISTING OF 12/01/64 PAGE 33 | POST PROCESSOR ASSEMBLY DATA | 31064 FD200 | 31100 FD270 | 31110 FD350 | 31115 FD410 | 31123 FD500 31141 FD610 | 31156 FD730 | 31160 FD750 | 31164 FD770 | 31203 FD880 31211 FE040 | 31217 FE100 | 31223 FE140 | 31233 FE220 | 31247 FE310 31251 FE330 | 31272 FE470 | 31300 FF010 100 | 4350 FIL00 0,12317 | 4334 FIL01 0,12331 4320 FIL02 0,12333 | 4304 FIL03 0,12335 | 4270 FIL04 0,12337 | 4254 FIL05 0,12341 | 4240 FIL06 0,12343 4224 FIL07 0,12321,12661,15736,25546,25557 | 4210 FIL08 0,12323,25565,25570 | 4174 FIL09 0,12325 | 4160 FIL10 0,12327 | 4144 FIL11 0,12345 4130 FIL12 0,12347 | 4114 FIL13 0,12351 | 4100 FIL14 0,12353 | 4064 FIL15 0,12355 | 4050 FIL16 0,12357 4034 FIL17 0,12361 | 4020 FIL18 0,12363 | 4004 FIL19 0,12365 | 5646 FLIST 0,10623,10654,10707,12245 | 11436 G0080 11427,11454,11561,11645,11677,11714,11744,16766,17257,20214,20261,20306,20551,21200,22124,22551,23167 23221,23377,23554,24264,24371,24574,25017,25131 | 11437 G0090 11426 | 32352 GA020 | 32373 GA100 | 32404 GA109 32405 GA110 | 32406 GA111 | 32430 GA230 | 32504 GA670 | 32532 GA880 32536 GA920 | 32541 GA950 | 34114 GAA10 | 34115 GAA20 | 34116 GAA30 1 LISTING OF 12/01/64 PAGE 34 | POST PROCESSOR ASSEMBLY DATA | | 34121 GAA40 | 34122 GAA50 34123 GAA60 | 34124 GAA70 | 34125 GAA80 | 34126 GAA90 | 34127 GAB10 34130 GAB20 | 34131 GAB30 | 34132 GAB40 | 34133 GAB50 | 34134 GAB60 34135 GAB70 | 34136 GAB80 | 34137 GAC10 | 34140 GAC20 | 34141 GAC30 34142 GAC40 | 34143 GAC50 | 34144 GAC60 | 34145 GAC70 | 34146 GAC80 34147 GAD10 | 34150 GAD20 | 34151 GAD30 | 34152 GAD40 | 34153 GAD50 34154 GAD60 | 34155 GAD70 | 11477 GADDR 11600,17253,24636,14725,15047 | 34156 GAE01 | 32552 GB180 32561 GB250 | 32575 GB430 | 32617 GB750 | 32625 GB870 | 32636 GB970 32663 GC340 | 32671 GC400 | 32705 GC580 | 32723 GC720 | 32736 GC960 21433 GETBI 0 | 21466 GETPA 0 | 21442 GETUN 0 | 32744 GF010 | 32747 GF040 32760 GF110 | 32777 GF255 | 33001 GF260 | 33003 GF280 | 33012 GF350 33015 GF380 | 33033 GF520 | 33035 GF540 | 1 LISTING OF 12/01/64 PAGE 35 | POST PROCESSOR ASSEMBLY DATA | 33051 GF660 | 33060 GF720 | 33062 GF740 | 33106 GF940 33113 GF990 | 12130 GFPSY | 33124 GG090 | 33125 GG100 | 33141 GG220 33147 GG280 | 33151 GG300 | 33162 GG390 | 33245 GG580 | 33346 GG810 33361 GG920 | 33455 GH210 | 33470 GH320 | 33475 GH360 | 33476 GH370 33532 GH532 | 33537 GH540 | 33557 GH700 | 33661 GH940 | 62 GHSZE 0,11256,11340,13400,13401,13403,13406,13413,13415,13416 33674 GI060 | 33771 GI350 | 34000 GI430 | 34002 GI450 | 34005 GI470 34022 GI580 | 34032 GI588 | 34033 GI600 | 34041 GI660 | 34046 GI710 34074 GK000 | 34105 GK080 | 34106 GK120 | 30503 GQ010 | 30504 GQ011 30524 GQ170 | 30534 GQ250 | 30544 GQ315 | 30546 GQ320 | 30571 GQ510 30605 GQ640 | 30611 GQ680 | 30612 GQ690 | 30623 GQ780 | 30647 GQ940 30653 GQ944 | 30656 GQ970 | 31452 GQA10 | 31453 GQA20 | 31454 GQA30 31455 GQA40 | 1 LISTING OF 12/01/64 PAGE 36 | POST PROCESSOR ASSEMBLY DATA | | 31467 GQA50 31470 GQA60 | 31471 GQA70 | 31472 GQA80 | 31473 GQA90 | 31474 GQB10 31475 GQB20 | 31476 GQB30 | 31477 GQB40 | 31500 GQB50 | 31501 GQB60 31502 GQB70 | 31503 GQB80 | 31504 GQB90 | 31505 GQC10 | 31506 GQC20 31507 GQC30 | 31510 GQC40 | 31511 GQC50 | 31512 GQC60 | 31513 GQC70 31514 GQC80 | 31515 GQC90 | 31516 GQD10 | 31517 GQD20 | 31520 GQD30 31521 GQD40 | 31522 GQD50 | 31523 GQD51 | 31524 GQD52 | 31525 GQD60 31526 GQD70 | 31527 GQD80 | 30662 GR010 | 30664 GR030 | 30676 GR130 30707 GR220 | 30724 GR350 | 30733 GR420 | 30746 GR520 | 30761 GR630 30771 GR710 | 31013 GR990 | 31030 GS240 | 31055 GS570 | 31075 GT000 31141 GT360 | 31143 GT380 | 31152 GT450 | 31154 GT470 | 31156 GU000 31231 GU410 | 31233 GU430 | 31300 GU800 | 31303 GU830 | 1 LISTING OF 12/01/64 PAGE 37 POST PROCESSOR ASSEMBLY DATA | | 31346 GV180 | 31350 GV200 | 31360 GV280 31362 GV300 | 31365 GW000 | 31376 GW090 | 31401 GX000 | 31423 GX170 31426 GX176 | 31430 GX180 | 31446 GX310 | 31447 GX320 | 11451 H0080 11442,11664,11745,16764,20216,20263,20304,20553,21176,22122,22553,23171,23223,23375,23552,24262,24367 24576,25015 | 11452 H0090 11441 | 27176 HA010 | 27224 HA142 | 27233 HA149 22453 HCKSM 0 | 67172 HEADR 13064,13203,14067 | 11405 HIRSZ | 24266 HOMCH 14530 | 11400 HOPSU 21104 HORDO 0,12411 | 11401 HORFL | 11376 HORIZ 14056,14231,14446,14552,14571,14651 | 35214 HORPT | 11377 HORRL 22200 HORXR 0 | 31612 HOSEL | 11374 HPCSW | 11371 HPTSW | 11367 HRDWR 14567,14615,14617 25761 HSKP1 | 33127 HSKP2 17343 | 24272 IA030 | 24300 IA080 | 24314 IA300 24332 IA392 | 24334 IA400 | 24343 IA510 | 24344 IA520 | 24373 IA732 24375 IA733 | 24377 IA734 | 24401 IA735 | 24403 IA736 | 24405 IA737 24407 IA740 | 24411 IA760 | 24424 IA850 | 25653 IAA10 | 25654 IAA20 25655 IAA30 | 25656 IAA50 | 1 LISTING OF 12/01/64 PAGE 38 | POST PROCESSOR ASSEMBLY DATA | 25657 IAA60 | 25660 IAA70 | 25661 IAA80 | 25662 IAB00 | 25663 IAB20 25670 IAB30 | 25671 IAB40 | 25672 IAB50 | 25673 IAB60 | 25674 IAB70 25675 IAB80 | 25676 IAB90 | 25677 IAC00 | 25700 IAC10 | 27030 IAC20 27031 IAC30 | 27032 IAC40 | 27033 IAC70 | 27034 IAC90 | 27035 IAD10 27036 IAD30 | 27037 IAD40 | 27040 IAD50 | 27041 IAD60 | 27042 IAD70 27043 IAE00 | 27061 IAE10 | 27062 IAE20 | 27063 IAE40 | 27064 IAE50 27067 IAE60 | 27077 IAE70 | 27101 IAE71 | 27102 IAE72 | 27103 IAE75 27104 IAE80 | 27106 IAH40 | 27107 IAH50 | 24504 IB300 | 24522 IB590 24527 IB635 | 24530 IB650 | 24533 IB680 | 24601 IC040 | 24604 IC100 24606 IC120 | 24611 IC150 | 24626 IC230 | 24627 IC240 | 24635 IC390 24645 IC460 | 24646 IC465 | 24656 IC540 | 24662 IC580 | 24664 IC600 1 LISTING OF 12/01/64 PAGE 39 | POST PROCESSOR ASSEMBLY DATA | | 24665 IC605 | 24674 IC670 24710 IC800 | 24714 IC840 | 24715 IC845 | 24737 IE010 | 25002 IE300 25017 IE430 | 25023 IE540 | 25025 IE570 | 25050 IE870 | 25052 IE910 25076 IF260 | 25100 IF280 | 25110 IF430 | 25112 IF470 | 25172 IG054 25256 IG106 | 25347 IG162 | 25361 IG172 | 25403 IG187 | 25425 II010 25460 II130 | 25466 II190 | 25506 II350 | 25530 II530 | 25546 II670 25554 II730 | 25622 II767 | 25624 IIA01 | 25625 IIA02 | 25626 IIA03 25627 IIA04 | 25630 IIA05 | 25631 IIA06 | 25632 IIA07 | 25633 IIA08 25634 IIA09 | 25635 IIA10 | 25636 IIA11 | 25637 IIA12 | 25640 IIA13 25641 IIA14 | 25642 IIA15 | 25643 IIA16 | 25644 IIA17 | 25645 IIA18 25646 IIA19 | 25647 IIA20 | 25650 IIA21 | 25651 IIA22 | 25652 IIA23 22436 IMPOS 0,12377,17107,17164 | 4662 IND01 0,10621,10652,10705 | 17310 INLOC 0,12241,17056,24611,25147 | 1 LISTING OF 12/01/64 PAGE 40 | POST PROCESSOR ASSEMBLY DATA | 16123 INOUT | 16173 INPTN 0,14657 | 16174 INPUT 0,14663 | 22205 ISWCH 0,12173 20532 ITEMP | 11463 J1010 11457 | 11464 J1020 11455,11461 | 6316 JOBID 0 | 11474 K1000 11465,11471,17267 11475 K1010 11467 | 11476 K1020 11472 | 6612 KI825 0 | 6553 KME70 0 | 11505 L1000 11501 11506 L1010 11477,11503 | 11517 LADDR | 6321 LAREA 0 | 16322 LITRL | 30504 LQ021 30524 LQ130 | 30544 LQ275 | 30546 LQ280 | 30571 LQ470 | 30623 LQ750 30647 LQ900 | 30653 LQ904 | 30656 LQ930 | 30664 LQ990 | 31450 LQQ10 31451 LQQ20 | 31452 LQQ30 | 31464 LQQ40 | 31465 LQQ50 | 31466 LQQ60 31467 LQQ70 | 31470 LQQ80 | 31471 LQQ90 | 31472 LQR10 | 31473 LQR20 31474 LQR30 | 31475 LQR40 | 31476 LQR50 | 31477 LQR60 | 31500 LQR70 31501 LQR80 | 31502 LQR90 | 31503 LQS10 | 31504 LQS20 | 31505 LQS30 31506 LQS40 | 31507 LQS50 | 31510 LQS60 | 31511 LQS70 | 31512 LQS80 31513 LQS90 | 1 LISTING OF 12/01/64 PAGE 41 | POST PROCESSOR ASSEMBLY DATA | | 31514 LQT10 31515 LQT20 | 31516 LQT30 | 31517 LQT40 | 31520 LQT50 | 31521 LQT60 31522 LQT61 | 31523 LQT62 | 31524 LQT70 | 31525 LQT80 | 31526 LQT90 31527 LQT91 | 30707 LR220 | 30716 LR290 | 30733 LR420 | 30757 LR610 30767 LR690 | 31006 LR940 | 31026 LS230 | 31050 LS520 | 20653 LSYMB 31073 LT010 | 31150 LT440 | 31216 LT810 | 31221 LT840 | 31276 LU270 31300 LU290 | 31301 LU300 | 31303 LV010 | 31362 LV470 | 31364 LW010 31375 LW100 | 31400 LX010 | 31421 LX180 | 31444 LX370 | 31445 LX420 4672 LZERO 0 | 11546 M0005 | 11547 M0010 11741,17310,15011,15056 | 11601 M0090 11563,11573 | 11657 M0470 11663 M0510 11654,11660 | 11672 M0570 | 11676 M0610 11667,11673 | 11705 M0670 | 11711 M0710 11702,11706 11742 M0740 11723,11731,11734 | 11746 M0771 | 11751 M0780 11547 | 11753 M0910 11551 | 11754 M0920 11622,11646 11755 M0930 11601,11606,11611,11612,11617,11624,11625,11632,11635,11636,11643,11650 | 11756 M0940 11550,11554,11557,11725 | 11757 M0950 11556 | 11760 M0960 11553 | 1 LISTING OF 12/01/64 PAGE 42 POST PROCESSOR ASSEMBLY DATA | | 11761 M0970 11577 | 11762 M0980 11546,11722,11724 | 11763 M0981 11727 11764 M0982 11732 | 11765 M0983 11740 | 11766 M0984 11566 | 13633 MA001 | 13652 MA030 13667 MA150 | 13673 MA320 | 13677 MA360 | 13704 MA410 | 13705 MA420 13710 MA440 | 13714 MA480 | 16131 MAA01 | 16132 MAA02 | 16133 MAA03 11441 MADDR 11462,11473,11504,11514 | 12660 MAIN1 12660,12661,12663,14122 | 12661 MD000 | 13725 MD010 | 13732 MD030 13745 MD080 | 13746 MD081 | 13747 MD082 | 13750 MD083 | 13751 MD090 13755 MD101 | 13762 MD110 | 13765 MD150 | 13766 MD171 | 13772 MD174 13773 MD175 | 13776 MD181 | 14004 MD360 | 14014 MD370 | 12662 MD380 12703 MD391 | 12725 MD392 | 12730 MD393 | 12731 MD394 | 12732 MD395 14024 MD450 | 14036 MD630 | 14040 MD650 | 14054 MD770 | 14063 MD840 14076 MD970 | 16134 MDA10 | 16135 MDA20 | 16136 MDA30 | 16137 MDA40 16140 MDA50 | 16141 MDA60 | 1 LISTING OF 12/01/64 PAGE 43 | POST PROCESSOR ASSEMBLY DATA | 16142 MDA65 | 16143 MDA70 | 16144 MDA80 | 16145 MDA90 | 16146 MDB10 16147 MDB15 | 16150 MDB20 | 16151 MDB30 | 16152 MDB40 | 16153 MDB50 16154 MDB51 | 16155 MDB52 | 16156 MDB53 | 16157 MDB54 | 16160 MDB55 16161 MDB59 | 16162 MDB60 | 16163 MDB61 | 16164 MDB62 | 16165 MDB69 16166 MDB70 | 16167 MDB71 | 16170 MDB72 | 16171 MDB73 | 16172 MDB74 16173 MDB75 | 16174 MDB76 | 16175 MDB77 | 16176 MDB78 | 16177 MDB80 16200 MDB81 | 16201 MDB82 | 16202 MDB83 | 16203 MDB84 | 13440 MDB85 16204 MDB86 | 16205 MDB87 | 16206 MDB88 | 16207 MDB89 | 16210 MDB90 16211 MDB91 | 16212 MDB92 | 16213 MDB93 | 16214 MDB94 | 16215 MDB95 16216 MDB96 | 16217 MDB97 | 16220 MDB98 | 16221 MDB99 | 16222 MDC00 16304 MDC01 | 16314 MDC02 | 17136 MDC10 | 23140 MDC20 | 25110 MDC30 1 LISTING OF 12/01/64 PAGE 44 | POST PROCESSOR ASSEMBLY DATA | | 14125 ME180 | 14132 ME230 14153 ME350 | 14156 ME375 | 14172 ME435 | 14173 ME440 | 14175 ME500 14214 ME590 | 14216 ME601 | 14226 ME610 | 22210 MERGE 0,12371 | 14276 MF110 14323 MF310 | 14400 MF749 | 14417 MF761 | 14421 MF763 | 14422 MF764 14423 MG010 | 14431 MG090 | 14433 MG110 | 14444 MG190 | 14446 MG500 14451 MG530 | 14453 MG550 | 14460 MG560 | 14467 MG630 | 14471 MG700 14503 MG780 | 14505 MG800 | 22221 MGRCD 0,12373,14730,15052 | 72456 MGTBL | 14506 MH010 14513 MH060 | 14525 MH125 | 14557 MH330 | 14606 MH433 | 14612 MH440 14627 MH570 | 14640 MH650 | 14646 MH710 | 14662 MH820 | 14670 MH880 14704 MI010 | 14712 MI070 | 14725 MI200 | 13074 MJ001 | 13075 MJ010 13104 MJ013 | 13116 MJ022 | 13120 MJ023 | 13133 MJ040 | 13136 MJ170 13166 MJ270 | 13171 MJ280 | 13200 MJ335 | 1 LISTING OF 12/01/64 PAGE 45 | POST PROCESSOR ASSEMBLY DATA | 13207 MJ480 | 13244 MJ735 | 13246 MJ740 | 13257 MJ830 13274 MJ930 | 13414 MJA01 | 13415 MJA02 | 13416 MJA03 | 13417 MJA04 13420 MJA05 | 13421 MJA06 | 13422 MJA07 | 13423 MJA08 | 13424 MJA09 13425 MJA10 | 13426 MJA11 | 13427 MJB10 | 13430 MJB20 | 13434 MJB30 13434 MJB40 | 13536 MJC10 | 13537 MJC11 | 13540 MJC12 | 13541 MJC15 13542 MJC20 | 13543 MJC21 | 13544 MJC25 | 13547 MJC30 | 13305 MK030 13306 MK040 | 13320 MK150 | 13321 MK160 | 15700 ML010 | 15714 ML140 15736 ML420 | 15770 ML690 | 15775 ML720 | 16014 ML870 | 16021 ML900 16123 MLA02 | 16124 MLA04 | 16125 MLA05 | 16126 MLA06 | 16127 MLA07 16130 MLA08 | 22175 MLCUR 0 | 13326 MM000 | 13337 MM070 | 13341 MM090 13344 MM180 | 13361 MM232 | 13374 MM239 | 13376 MM240 | 16040 MN070 16045 MN100 | 1 LISTING OF 12/01/64 PAGE 46 | POST PROCESSOR ASSEMBLY DATA | | 16077 MN370 16107 MN400 | 16112 MN430 | 16120 MN490 | 16121 MN500 | 22174 MRGLO 0,12223,14642,15002 22207 MRGUN 0,12375 | 13377 MS010 | 13411 MS100 | 13413 MS120 | 14727 MT010 15014 MT430 | 15021 MT520 | 15033 MT630 | 15432 MTA10 | 15433 MTA11 15434 MTA20 | 15435 MTA30 | 15436 MTA40 | 15437 MTA50 | 15440 MTA60 15441 MTA61 | 15442 MTA70 | 15443 MTA80 | 15444 MTA90 | 15445 MTB10 15446 MTB20 | 15447 MTB30 | 15450 MTB40 | 15451 MTB50 | 15452 MTB51 15453 MTB60 | 15454 MTB61 | 15455 MTB63 | 15456 MTB70 | 15457 MTB80 15460 MTB90 | 15461 MTB99 | 15462 MTC09 | 15463 MTC10 | 15464 MTC29 15465 MTC30 | 15466 MTC49 | 15467 MTC50 | 15470 MTC69 | 15471 MTC70 15472 MTC81 | 15473 MTC82 | 15474 MTC83 | 15475 MTC84 | 15476 MTC85 15477 MTC86 | 15500 MTT00 | 15507 MTT01 | 15514 MTT02 | 1 LISTING OF 12/01/64 PAGE 47 POST PROCESSOR ASSEMBLY DATA | | 15521 MTT03 | 15522 MTT04 | 15523 MTT05 15524 MTT06 | 15525 MTT11 | 15526 MTT12 | 15533 MTT13 | 15541 MTT21 15545 MTT22 | 15552 MTT23 | 15555 MTT31 | 15572 MTT41 | 15607 MTT51 15571 MTT91 | 15606 MTT92 | 15623 MTT93 | 15624 MTT94 | 15625 MTT95 15627 MTT96 | 15630 MTT97 | 15631 MTT98 | 15632 MTT99 | 15633 MTW01 15674 MTW25 | 15677 MTW99 | 15112 MU120 | 15124 MU171 | 15147 MU190 15164 MU320 | 15210 MU520 | 15227 MU720 | 15255 MV010 | 15311 MV240 15321 MV342 | 15325 MV350 | 15340 MV369 | 15354 MV480 | 15370 MV600 15375 MW010 | 15401 MW400 | 15411 MW480 | 15426 MW622 | 15430 MW623 12733 MX062 | 12741 MX068 | 12746 MX073 | 12766 MX088 | 13000 MX090 13004 MX098 | 13006 MX100 | 13012 MX110 | 13013 MX111 | 13014 MX112 13015 MX113 | 13016 MX114 | 1 LISTING OF 12/01/64 PAGE 48 | POST PROCESSOR ASSEMBLY DATA | 13017 MX115 | 13020 MX116 | 13021 MX117 | 13022 MX118 | 13023 MX119 13024 MX120 | 13052 MX125 | 13060 MX126 | 13062 MX127 | 13063 MX128 13304 MX130 | 13315 MX132 | 13321 MX134 | 13325 MX136 | 13335 MX137 13340 MX138 | 13352 MX139 | 13416 MX150 | 13422 MX152 | 13424 MX154 13427 MX156 | 13431 MX158 | 13444 MX160 | 13462 MX161 | 13463 MX162 13464 MX163 | 13465 MX164 | 13466 MX165 | 13354 MYA10 | 13355 MYA11 13356 MYA12 | 13357 MYA13 | 13362 MYA20 | 13363 MYA22 | 13365 MYA23 13370 MYA25 | 12100 MZ500 | 12107 MZ650 12100 | 12111 MZ900 12127 | 12115 MZ920 12116 MZ930 | 12127 MZ960 12102 | 11515 N1000 11507,11513 | 11516 N1010 11511 | 32351 NA010 32374 NA080 | 32407 NA168 | 32411 NA170 | 32431 NA309 | 32512 NA600 32515 NA630 | 32546 NA800 | 32571 NA965 | 33644 NAA10 | 33645 NAA20 1 LISTING OF 12/01/64 PAGE 49 | POST PROCESSOR ASSEMBLY DATA | | 33646 NAA22 | 33647 NAA30 33650 NAA40 | 35000 NAA50 | 35010 NAA55 | 35011 NAA60 | 35012 NAA70 35013 NAA80 | 35014 NAA90 | 35015 NAB00 | 35016 NAB10 | 35017 NAB20 35020 NAB30 | 35021 NAB40 | 35022 NAB50 | 35023 NAB60 | 35024 NAB70 35025 NAB80 | 35026 NAB90 | 35027 NAC00 | 35030 NAC05 | 35031 NAC10 35032 NAC20 | 35033 NAC30 | 35034 NAC40 | 35035 NAC50 | 35036 NAC60 35037 NAC70 | 35055 NAC80 | 35056 NAC90 | 35057 NAD00 | 35060 NAD10 35061 NAD20 | 35062 NAD30 | 35072 NAD40 | 35074 NAD41 | 35075 NAD42 35076 NAD43 | 35077 NAD50 | 35100 NAD60 | 35101 NAD70 | 35102 NAD80 35103 NAD90 | 35104 NAE00 | 35105 NAE10 | 35106 NAE20 | 35107 NAE30 35110 NAE40 | 35111 NAE45 | 35112 NAE50 | 35113 NAE60 | 35114 NAE70 35116 NAE80 | 35117 NAE90 | 35121 NAF00 | 1 LISTING OF 12/01/64 PAGE 50 | POST PROCESSOR ASSEMBLY DATA | 35123 NAF20 | 35124 NAF30 | 35125 NAF40 | 35126 NAF50 35131 NAF80 | 32601 NB040 | 32607 NB075 | 32616 NB140 | 32663 NB370 32734 NB610 | 32754 NB750 | 32755 NB760 | 32756 NB770 | 32761 NC010 33011 NC126 | 33060 NC630 | 33062 NC650 | 33074 NC780 | 33100 NC900 33102 NC920 | 33103 NC950 | 33111 NC977 | 33115 NC983 | 33124 ND000 33163 ND360 | 33166 ND390 | 33216 ND550 | 33230 ND700 | 33237 ND790 33241 ND810 | 33244 ND840 | 33255 ND930 | 33263 ND970 | 5505 NDSRT 0,12105,13062 33274 NE020 | 33300 NE060 | 33306 NE120 | 33310 NE140 | 33322 NE250 33323 NE260 | 33325 NE270 | 33336 NE330 | 33340 NE350 | 33365 NE550 33370 NE580 | 33402 NE670 | 33412 NE740 | 33423 NE830 | 33435 NE920 33443 NE980 | 17334 NEWRD 0 | 11412 NEWSW 13053,13064,13334,25544 | 33456 NF090 | 33464 NF150 33472 NF210 | 1 LISTING OF 12/01/64 PAGE 51 | POST PROCESSOR ASSEMBLY DATA | | 33474 NF240 33502 NF300 | 33503 NF310 | 33506 NF340 | 33511 NF370 | 33513 NF390 33521 NF450 | 33524 NF480 | 33527 NF510 | 33540 NF610 | 33544 NF645 33546 NF650 | 33566 NF890 | 33577 NF970 | 33602 NG000 | 33611 NG020 33613 NG040 | 33624 NG130 | 33633 NG175 | 33634 NG200 | 33643 NG320 7566 NIAM1 0, 7566, 7570 | 5642 NLIST 0,10626,10656,10711,12017,12243 | 11025 NMBR0 14013 | 11026 NMBR1 13217,20130,20140,20167,20333,20351,20403,20775,22470,23044,23122,23242,24070,24555,25101,25374,25435 | 14460,14736 11027 NMBR2 20712 | 11030 NMBR3 21112,21320,22752,23535,14123,14210 | 11031 NMBR4 22572,24160 | 11032 NMBR5 14747 | 11033 NMBR6 7666,20113,20752,22613,24166,25675,14146 11034 NMBR7 | 11035 NMBR8 14172 | 11036 NMBR9 | 4710 NOCHD 0 | 21271 NOROP 4707 NOSFD 0 | 17671 NSLCT 0,15020,15026 | 51326 NYDEF | 4400 OBJL1 0 | 4401 OBJL2 0 4402 OBJL3 0,11716,11721 | 4403 OBJL4 0 | 4404 OBJL5 0 | 4405 OBJL6 0 | 57562 OBPGM 11422,11552,11564,11610,11652,11663,11736 71545 OBSUM 25671 | 67346 ONTRY 14542,14547 | 11406 ORJSZ | 16555 OUTPT 0,12403 | 13634 PA001 13660 PA015 | 13662 PA030 | 13702 PA170 | 13707 PA230 | 1 LISTING OF 12/01/64 PAGE 52 POST PROCESSOR ASSEMBLY DATA | | 13722 PA320 | 13731 PA510 | 13756 PA720 13760 PA740 | 13762 PA760 | 13777 PA790 | 14000 PA800 | 14003 PA830 14010 PA880 | 14021 PA970 | 16132 PAA10 | 43535 PAA20 | 14037 PAA30 72450 PAA40 | 14054 PAA50 | 14055 PAA60 | 14056 PAA70 | 14057 PAA80 14060 PAA90 | 14061 PAA99 | 14062 PAB10 | 14066 PAB20 | 14067 PAB30 14070 PAB40 | 14071 PAB50 | 14072 PAB60 | 14073 PAB61 | 14074 PAB62 14075 PAB70 | 14076 PAB71 | 14077 PAB72 | 14100 PAB73 | 14101 PAB74 14102 PAB75 | 11465 PADDR 17030,17035,17042,17077,17104,17117,17124,17140,17154,17161,17177,17204,17222,17227,17234,17244,17271 | 20057,20100,20105,20114,20161,20170,20237,20244,20251,20375,20404,20451,20456,20713,20737,20744,20753 | 20776,21033,21040,21104,21113,21261,21312,21321,21364,21371,21521,22370,22375,22462,22471,22533,22540 | 22621,22626,22633,22711,22727,22744,22753,23045,23057,23116,23123,23236,23243,23446,23477,23527,23536 24004,24030,24071,24143,24152,24161,24167,24316,24340,24621,24720,25000,25073,25102,25220,25274,25301 | 25356,25366,25377,25444,25452,14670,14713,14740,14750,14770 | 67206 PATBL 16101,16105,16106,25604 | 14030 PB050 | 14107 PR010 14115 PR090 | 14162 PR330 | 14171 PR400 | 72451 PR411 | 14176 PR420 15077 PRA10 | 15133 PRA20 | 15134 PRA30 | 15141 PRA40 | 15146 PRA50 15153 PRA60 | 15163 PRA70 | 1 LISTING OF 12/01/64 PAGE 53 | POST PROCESSOR ASSEMBLY DATA | 16132 PREPR | 22564 PRERR 0 | 11413 PRGMR 11571,11575,17020,17025,17032,17037,17044,17055,17060,17065,17071,17074,17101,17106,17111,17114,17121 | 17126,17135,17142,17151,17156,17163,17166,17171,17174,17201,17206,17211,17214,17217,17224,17231,17236 | 17241,17250,17304,20023,20031,20034,20043,20046,20051,20054,20061,20064,20067,20072,20075,20102,20111 20153,20156,20165,20221,20226,20231,20234,20241,20246,20367,20372,20401,20427,20432,20440,20446,20453 | 20650,20653,20656,20663,20677,20702,20710,20715,20720,20726,20731,20734,20741,20750,20757,20764,20770 | 20773,21001,21004,21015,21022,21025,21030,21035,21066,21071,21076,21101,21110,21236,21247,21253,21256 | 21274,21277,21304,21307,21316,21325,21330,21333,21352,21356,21361,21366,21466,21473,21477,21502,21505 | 21513,21516,21523,21526,21537,21542,21600,21603,21610,21632,21635,21642,21672,21677,21704,22365,22372 22401,22405,22413,22420,22425,22432,22436,22454,22457,22466,22473,22500,22505,22515,22521,22525,22530 | 22535,22556,22565,22570,22576,22601,22606,22611,22616,22623,22630,22644,22667,22673,22706,22717,22724 | 22731,22736,22741,22750,23001,23010,23014,23042,23054,23110,23113,23120,23207,23212,23215,23226,23233 | 23240,23440,23443,23456,23465,23471,23474,23511,23514,23521,23524,23533,23674,23715,23720,23725,23747 | 23771,24001,24006,24025,24032,24035,24042,24055,24062,24066,24106,24111,24116,24121,24124,24127,24132 24135,24140,24147,24156,24164,24171,24313,24335,24343,24346,24354,24432,24535,24542,24547,24610,24613 | 24616,24623,24626,24633,24644,24647,24652,24655,24676,24701,24715,24722,24730,24745,24750,24753,24756 | 24761,24764,24767,24772,24775,25055,25070,25077,25134,25142,25146,25151,25164,25167,25172,25210,25215 | 25224,25236,25242,25247,25257,25263,25271,25276,25311,25316,25326,25333,25340,25345,25350,25353,25363 | 25370,25403,25412,25430,25441,25447,14633,14636,14641,14644,14647,14662,14665,14672,14675,14702,14705 14710,14717,14722,14727,14732,14742,14745,14754,14757,14762,14765,14773,14776,15001,15004,15014,15017 | 15022,15025,15030,15041,15044,15051 | 22524 PRICT 0 | 15626 PROGM 14526 | 14154 PRREJ 14177 PS010 | 14236 PS300 | 14240 PS320 | 14244 PS351 | 14251 PS359 14252 PS360 | 14260 PS420 | 14300 PS570 | 14302 PS640 | 14310 PS700 14323 PS790 | 14325 PS810 | 14326 PS820 | 14327 PS830 | 14332 PS840 14333 PS850 | 15173 PSA10 | 15174 PSA20 | 15175 PSA30 | 15176 PSA40 15177 PSA50 | 15200 PSA60 | 15201 PSA70 | 15202 PSA80 | 15203 PSA90 15204 PSB10 | 15205 PSB20 | 15210 PSB30 | 15211 PSB40 | 15212 PSB50 1 LISTING OF 12/01/64 PAGE 54 | POST PROCESSOR ASSEMBLY DATA | | 15213 PSB60 | 15216 PSB70 15217 PSB80 | 15220 PSB90 | 15221 PSC10 | 15222 PSC20 | 15223 PSC25 15224 PSC30 | 15225 PSC39 | 15226 PSC40 | 15227 PSC41 | 15230 PSC50 15540 PSC60 | 22206 PSWCH 0,12235 | 14367 PT120 | 14410 PT290 | 14413 PT291 14422 PT331 | 14424 PT340 | 14425 PT350 | 14451 PT359 | 14502 PT570 14512 PT640 | 14515 PT670 | 14555 PT930 | 14576 PU070 | 14611 PU130 14625 PU220 | 14643 PU280 | 14655 PU290 | 14707 PU520 | 14711 PU540 14724 PU650 | 14733 PU720 | 14743 PU800 | 14756 PU910 | 14765 PU955 14770 PU960 | 21536 PUTBI 0 | 21673 PUTPA 0 | 21652 PUTUN 0 | 14776 PV030 15010 PV031 | 15023 PV032 | 15024 PV040 | 15052 PV080 | 15062 PV098 15063 PV099 | 15064 PV100 | 15073 PV160 | 15074 PV170 | 15075 PV180 32352 QA020 | 32373 QA100 | 32404 QA109 | 1 LISTING OF 12/01/64 PAGE 55 | POST PROCESSOR ASSEMBLY DATA | 32405 QA110 | 32406 QA111 | 32435 QA230 | 32437 QA232 32520 QA710 | 35000 QAA10 | 35001 QAA20 | 35002 QAA30 | 35003 QAA40 35004 QAA50 | 35007 QAA60 | 35010 QAA70 | 35011 QAA80 | 35012 QAA90 35013 QAB10 | 35014 QAB20 | 35015 QAB30 | 35016 QAB40 | 35017 QAB50 35020 QAB60 | 35021 QAB70 | 35022 QAB80 | 35023 QAB90 | 35024 QAC10 35025 QAC20 | 35026 QAC30 | 35027 QAD10 | 35030 QAD20 | 35031 QAD30 35032 QAD40 | 35033 QAD50 | 35034 QAD60 | 35035 QAD70 | 35036 QAD80 35037 QAE01 | 35040 QAE10 | 35041 QAE20 | 35042 QAE30 | 35043 QAE40 35044 QAE50 | 35045 QAE60 | 35046 QAE70 | 35047 QAE80 | 35050 QAE90 32540 QB065 | 32542 QB070 | 32567 QB250 | 32577 QB330 | 32607 QB410 32617 QB490 | 32635 QB760 | 32643 QB820 | 32657 QC010 | 32701 QC320 32707 QC440 | 1 LISTING OF 12/01/64 PAGE 56 | POST PROCESSOR ASSEMBLY DATA | | 32720 QC530 32743 QC890 | 32751 QC960 | 32765 QD150 | 33003 QD290 | 33016 QD530 33024 QD650 | 33030 QD690 | 33040 QD760 | 33064 QD970 | 33101 QE300 33111 QE440 | 33133 QE620 | 33161 QF020 | 33200 QF230 | 33202 QF240 33223 QF600 | 33237 QF780 | 33272 QG230 | 33306 QG400 | 33320 QG500 33343 QG870 | 33346 QG900 | 33353 QH020 | 33357 QH060 | 33402 QH410 33416 QK010 | 33422 QK040 | 33432 QK102 | 33434 QK104 | 33436 QK106 33440 QK110 | 33502 QK470 | 33510 QK530 | 33512 QK550 | 33525 QK660 33533 QK720 | 33537 QK760 | 33547 QK840 | 33556 QK910 | 33601 QL110 33606 QL160 | 33614 QL230 | 33621 QL290 | 33625 QL330 | 33635 QL410 33643 QL470 | 33653 QL550 | 33724 QL615 | 33726 QL620 | 33752 QL810 34031 QL940 | 34036 QL980 | 34056 QM150 | 34160 QM390 | 1 LISTING OF 12/01/64 PAGE 57 POST PROCESSOR ASSEMBLY DATA | | 34173 QM500 | 34270 QM790 | 34303 QM900 34311 QM950 | 34313 QM970 | 34347 QN160 | 34355 QN210 | 34357 QN230 34377 QN390 | 34501 QN630 | 34514 QN740 | 34611 QO040 | 34620 QO110 34622 QO130 | 34625 QO150 | 34643 QO252 | 34654 QO260 | 34656 QO280 34664 QO340 | 34671 QO390 | 34717 QO666 | 34721 QO668 | 34723 QO670 34733 QO750 | 34743 QO820 | 34756 QO930 | 34760 QP000 | 34771 QP080 34772 QP120 | 30502 QQ000 | 30503 QQ010 | 30523 QQ170 | 30553 QQ330 30600 QQ520 | 30611 QQ610 | 30621 QQ680 | 30623 QQ700 | 30626 QQ730 30631 QQ750 | 30636 QQ800 | 30643 QQ850 | 30650 QQ890 | 30657 QQ960 30662 QQ990 | 32056 QQA10 | 32057 QQA20 | 32060 QQA30 | 32061 QQA40 32062 QQA50 | 32063 QQA60 | 32064 QQA70 | 32065 QQA80 | 32066 QQA90 32067 QQB00 | 32070 QQB10 | 1 LISTING OF 12/01/64 PAGE 58 | POST PROCESSOR ASSEMBLY DATA | 32071 QQB20 | 32072 QQB30 | 32073 QQB40 | 32074 QQB50 | 32075 QQB60 32076 QQB70 | 32077 QQB80 | 32100 QQB90 | 32101 QQC10 | 32102 QQC20 32103 QQC30 | 32104 QQC40 | 32105 QQC50 | 32106 QQC60 | 32107 QQC70 32110 QQC80 | 32111 QQC90 | 32112 QQD10 | 32113 QQD20 | 32114 QQD30 32115 QQD40 | 32116 QQE10 | 32117 QQE20 | 32120 QQE30 | 32121 QQF01 32122 QQF02 | 30703 QR180 | 30705 QR200 | 30712 QR250 | 30716 QR290 30730 QR390 | 30733 QR420 | 30743 QR500 | 30767 QR700 | 30774 QR750 30775 QR760 | 31017 QR950 | 31042 QS140 | 31056 QS260 | 31065 QS330 31103 QS480 | 31130 QS700 | 31146 QS840 | 31167 QT000 | 31176 QT070 31210 QT170 | 31213 QT200 | 31226 QT310 | 31235 QT380 | 31236 QT390 31247 QT480 | 31270 QT640 | 31277 QT710 | 31302 QT740 | 31306 QT780 1 LISTING OF 12/01/64 PAGE 59 | POST PROCESSOR ASSEMBLY DATA | | 31314 QT840 | 31317 QT870 31337 QU030 | 31346 QU100 | 31363 QU230 | 31400 QU360 | 31405 QU410 31421 QU530 | 31436 QU650 | 31462 QU700 | 31465 QU703 | 31467 QU705 31505 QU840 | 31506 QV000 | 31526 QV170 | 31543 QV280 | 31554 QV370 31603 QV600 | 31605 QW000 | 31630 QW200 | 31665 QW490 | 31732 QW860 31735 QW890 | 31763 QX110 | 32017 QX390 | 32020 QX400 | 32022 QX420 32024 QX440 | 32025 QX450 | 32027 QX470 | 32037 QY000 | 32050 QY090 32053 QY120 | 17404 RDCNT 0 | 57544 REBUF 13132,13137,13200,13201 | 17310 RECRD 0,14637,14777 | 22207 REJSW 0,12225 22320 REJXR 0 | 6612 RGORG 0 | 11370 RPTSW | 13577 S1030 | 13617 S1082 13646 S1180 | 13647 S1190 | 13650 S1200 | 13653 S1230 | 13654 S1240 13662 S1300 | 13667 S1335 | 13675 S1340 | 13676 S1350 | 13737 S1670 13744 S1730 | 13746 S1760 | 13772 S1940 | 1 LISTING OF 12/01/64 PAGE 60 | POST PROCESSOR ASSEMBLY DATA | 14013 S2090 | 14017 S2130 | 14020 S2140 | 14313 S2200 14320 S2220 | 14335 S2360 | 14337 S2380 | 14340 S2390 | 14354 S2520 14372 S2650 | 14404 S2740 | 14407 S2800 | 14420 S2890 | 14422 S2910 14430 S2970 | 14431 S2980 | 14446 S3110 | 14450 S3120 | 14463 S3220 14466 S3250 | 14477 S3300 | 14503 S3350 | 11774 S9230 11771 | 11775 S9240 11767 12005 S9290 11772,12003 | 12007 S9310 11777,12011 | 21763 SA210 | 21766 SA240 | 22000 SA330 22003 SA360 | 22010 SA380 | 22031 SA520 | 24043 SAA10 | 24044 SAA11 24045 SAA12 | 24046 SAA13 | 24047 SAA14 | 24050 SAA15 | 24051 SAA16 24052 SAA17 | 24053 SAA18 | 24112 SAA19 | 24151 SAA20 | 24152 SAA21 24153 SAA22 | 24154 SAA23 | 24155 SAA24 | 24156 SAA25 | 24157 SAA26 24160 SAA27 | 24161 SAA28 | 24162 SAA29 | 24163 SAA30 | 24164 SAA31 24165 SAA32 | 1 LISTING OF 12/01/64 PAGE 61 | POST PROCESSOR ASSEMBLY DATA | | 24166 SAA33 24167 SAA34 | 24170 SAA35 | 24171 SAA36 | 24172 SAA37 | 24173 SAA38 24174 SAA39 | 24175 SAA40 | 24176 SAA41 | 24177 SAA42 | 24200 SAA43 24201 SAA44 | 24202 SAA45 | 24203 SAA49 | 11454 SADDR 17052,17067,17132,17146,20436,21007,21074,21241,21251,21302,21336,21354,21475,21511,22403,22434,22517 | 22647,22671,22734,23004,23012,23461,23467,23517,23751,24174,24352,24725,25136,25144,25261,25433 22321 SAVXR 0,12401,14650 | 22045 SB010 | 22142 SB050 | 22144 SB070 | 22165 SB180 22176 SB270 | 22206 SB370 | 22242 SB570 | 22247 SB610 | 22256 SB670 22301 SB830 | 22314 SB900 | 22316 SB920 | 22324 SB980 | 22327 SC030 22335 SC090 | 22340 SC120 | 22354 SC300 | 22410 SC500 | 22417 SC560 22432 SC700 | 22525 SC902 | 22527 SC903 | 22535 SC910 | 22540 SC930 6557 SCEOT 0,11662,11675,11710,25564,25576 | 22547 SD010 | 22551 SD030 | 22601 SD220 | 22622 SD390 22630 SD440 | 22633 SD470 | 22642 SD477 | 22652 SD485 | 22654 SD500 22666 SD700 | 22707 SD850 | 22712 SD880 | 22715 SD910 | 1 LISTING OF 12/01/64 PAGE 62 POST PROCESSOR ASSEMBLY DATA | | 22723 SE010 | 22754 SE230 | 22772 SE340 23003 SE430 | 23011 SE490 | 23014 SE520 | 23033 SE650 | 23100 SE770 23103 SE800 | 23124 SE940 | 11373 SELNT | 1441 SEQID 0,13647,13654,13660,13664,13707,13711,13713,13714,14200,14764,14765,14774,14775,14776,14777,16326 | 16327,16346,16350,16352 14275 SETBI | 14310 SETC1 | 14311 SETC2 | 14312 SETC3 | 6244 SETUP 0 4701 SEVEN 0,12213 | 23146 SF130 | 23151 SF160 | 23164 SF270 | 23240 SF410 23243 SF413 | 23251 SF419 | 11342 SFCUR | 11343 SFLEN 14620,14624,14677,14751 | 17301 SFLOC 0,12233,17167 11341 SFPRV 14714,15036 | 23312 SG090 | 23335 SG210 | 23372 SG440 | 23413 SG600 23421 SG660 | 23424 SG690 | 23433 SG760 | 23441 SG820 | 23443 SG840 23512 SH230 | 23515 SH260 | 23520 SH290 | 23523 SH320 | 23526 SH340 23561 SI010 | 23613 SI097 | 23642 SI260 | 23656 SI370 | 23664 SI430 23667 SI460 | 23676 SI530 | 23704 SI590 | 23706 SI610 | 21551 SIXCH 23755 SJ010 | 23760 SJ040 | 1 LISTING OF 12/01/64 PAGE 63 | POST PROCESSOR ASSEMBLY DATA | 23763 SJ070 | 23766 SJ100 | 23771 SJ130 | 24024 SK010 | 24031 SK050 67461 SNTRY | 73000 SORTT 11607,11620,11633,11644,25611,25667 | 72777 SPARE | 14516 SS100 | 15664 SS110 15665 SS120 | 15666 SS130 | 15667 SS135 | 15670 SS140 | 15714 SS150 15715 SS160 | 15716 SS170 | 15717 SS175 | 15720 SS176 | 15721 SS180 15722 SS190 | 15723 SS200 | 15724 SS210 | 15725 SS215 | 15727 SS220 15740 SS230 | 15744 SS240 | 15755 SS250 | 6304 STASH 0,12305 | 21400 STEPP 0 5033 STOBJ 0 | 65532 STORG 11435,11560,11634,11700,11711,11747,17273 | 11426 STORR 17051,17063,17131,17145,17256,20435,21245,21350,21471,21510,22377,22430,22513,22665,23006,23463,23745 | 24351,25130,25140,25255 | 22003 SUMRY 0 71545 SUTBL 15305,15415,15422,15526,15533,15534,15536,15544,15545,15546,15547,15552,15554,17317,17323,17324,17325 | 17326,17327,17333,17335,17336,17337,21555,21570,21575,21605,21616,21624,21627,21637,21655,21662,21667 | 21701,23202,23203,24207,24212,24521,24532,24544,25606 | 72657 SWTCH | 16043 SYMBL 4752 SYSRD 0,12510 | 10507 T0010 11417,11432,11445,11531,11604,11615,11630,11641,12734,12744,12750,13027,13073,13103,13115,13141,13165 | 13242,13260,13274,13313,13322,13332,13341,13354,13364,13376,13406,13462,13500,13510,13541,13543,13553 | 13564,13577,13651,13734,13755,13774,14036,14114,14130,14155,14170,14206,14250,14300,14324,14350,14457 | 14467,14477,14525,14563,14630,14635,14655,14663,14674,14753,14757,14771,15036,15143,15157,15210,15221 15226,15232,15257,15266,15323,15332,15351,15366,15410,15435,15463,15475,15506,15520,15542,15574,15610 | 15614,15643,15663,15673,15703,15752,15754,15764,15776,16077,16132,16332,16336,16453,22362,23127,23332 | 24052,25555,12676,12703,12717,12735,12755,12775,13076,13104,13117,13135,13155,13175,13265,13272,13305 | 13324,13344,13364,13411,13572,13625,13700,14052,14062,14114,14326,14335,14413,14444,14545 | 10542 T0400 10507,10510,10511,10604 10554 T0480 10525 | 10555 T0700 10512,10547 | 10556 T0710 10513,10550 | 10557 T0720 10514,10551 | 10560 T0730 10516,10520,10552 1 LISTING OF 12/01/64 PAGE 64 | POST PROCESSOR ASSEMBLY DATA | | 10561 T0740 10523 | 10562 T0750 10524,10567,10612,10643,10676 10563 T0760 10522,10526 | 10564 T0770 | 10565 T1000 10546,10574,10603,10617,10650,10703 | 10566 T1001 10545,10602 | 10567 T2010 10537 10605 T2999 10573,10575,10577 | 10612 T3010 10536 | 10633 T3999 10616,10620,10624,10627 | 10643 T4010 10535 | 10662 T4999 10647,10651,10655,10657 10676 T5010 10534 | 10715 T5999 10702,10704,10710,10712 | 20567 TAGCT | 71545 TBLOC | 72703 TBLTL 6245 TCJBO 0,25665 | 4675 THREE 0,12203 | 20642 TO702 0,12151 | 20777 TO709 0,12153 | 20213 TOBCD 0,12141,24653,25173 17747 TOBIN 0,12131,24125,24757 | 22052 TOFRM 0,12407 | 5642 TOPRT 0,12155 | 16072 TYPER 0 | 34241 UDFLD 27172 UDRPT 14273,14531 | 31612 UDSEL | 11372 UPDIC 14055,14150,14451,14574,14653 | 32351 UPFLD | 32351 UPWFL 11777 UPWRD 13072,13100,13131 | 11407 UPWSL 14057 | 11767 UPWST 13071,13162 | 35133 UWFLD 14122 | 32205 UWSEL 11543 V0170 11517,11532 | 11545 V1000 11542 | 27173 VA010 | 27177 VA020 | 27206 VA080 27273 VA870 | 27304 VA930 | 27305 VA935 | 27414 VAA10 | 27415 VAA20 27416 VAA30 | 27417 VAA31 | 27420 VAA32 | 27421 VAA33 | 27422 VAA40 27423 VAA50 | 27424 VAA60 | 22177 VALLO 0,12165 | 1 LISTING OF 12/01/64 PAGE 65 | POST PROCESSOR ASSEMBLY DATA | 27342 VB291 | 27351 VB293 | 27366 VB294 | 27371 VB295 27374 VB300 | 27401 VB350 | 27425 VC010 | 27615 VC870 | 27745 VCA10 27744 VCA20 | 27747 VCA30 | 27746 VCA40 | 27751 VCA50 | 27750 VCA60 27752 VCA70 | 27753 VCA80 | 27754 VCA90 | 27755 VCA91 | 27756 VCA92 27757 VCA93 | 15626 VCALC | 27646 VE130 | 27651 VE150 | 27661 VE200 27662 VE210 | 27673 VE300 | 27705 VE400 | 27712 VE450 | 27713 VE460 27452 VE740 | 27477 VE780 | 27504 VE790 | 21727 VECAL 14527 | 32346 VESEL 14533 33527 VEVAL | 27760 VF010 | 27771 VF020 | 30006 VF140 | 30014 VF160 30061 VF420 | 30102 VF500 | 30104 VF520 | 30107 VF550 | 30120 VF631 30133 VF632 | 30135 VF633 | 30143 VF640 | 30164 VF690 | 30166 VF710 30171 VF740 | 30202 VF830 | 30353 VFA10 | 30354 VFA20 | 30355 VFA30 30356 VFA39 | 1 LISTING OF 12/01/64 PAGE 66 | POST PROCESSOR ASSEMBLY DATA | | 30357 VFA40 30360 VFA41 | 30361 VFA50 | 30362 VFA60 | 30363 VFA70 | 30364 VFA80 30365 VFA90 | 12662 VH001 | 12667 VH010 | 12702 VH210 | 13472 VHA10 13473 VHA20 | 13474 VHA30 | 13475 VHA40 | 13476 VHA50 | 13477 VHA60 13500 VHA70 | 13501 VHA80 | 13502 VHA90 | 13503 VHB10 | 13504 VHB20 13505 VHC01 | 13506 VHC02 | 13507 VHC03 | 13510 VHC04 | 13064 VI300 13076 VI390 | 13141 VI951 | 13142 VI952 | 13162 VI961 | 13167 VI965 13201 VI974 | 13211 VI975 | 13212 VI976 | 13234 VI986 | 13241 VI987 13244 VI988 | 13253 VI989 | 13254 VI990 | 13264 VI991 | 13271 VI992 13301 VI993 | 13511 VIA01 | 13512 VIA03 | 27176 VJ010 | 27226 VJ150 27236 VJ230 | 27273 VJ320 | 27311 VJ328 | 27340 VJ540 | 27346 VJ600 27350 VJ710 | 27361 VJ753 | 27410 VJ756 | 27412 VJ760 | 1 LISTING OF 12/01/64 PAGE 67 POST PROCESSOR ASSEMBLY DATA | | 27413 VJ770 | 27415 VJ820 | 27420 VJA10 27421 VJA20 | 27422 VJA30 | 27423 VJA40 | 27424 VJA50 | 27425 VJA60 27426 VJA70 | 27427 VJA80 | 27430 VJA90 | 27176 VK010 | 27254 VK060 27325 VK440 | 27375 VK840 | 27403 VK900 | 27407 VK940 | 30102 VKA10 30103 VKA20 | 30104 VKA30 | 30105 VKA40 | 30106 VKA50 | 30107 VKA60 30110 VKA70 | 30111 VKA80 | 30112 VKA90 | 30113 VKB10 | 30114 VKB20 30115 VKB30 | 30116 VKB40 | 30117 VKB50 | 30120 VKB60 | 30121 VKB70 30122 VKB80 | 30123 VKB90 | 30124 VKC10 | 30142 VKC20 | 30125 VKC30 30126 VKC31 | 30170 VKC40 | 30054 VKD01 | 30060 VKD05 | 30073 VKD15 30100 VKD20 | 30143 VKD30 | 30153 VKD40 | 30162 VKD50 | 30163 VKD55 30164 VKD60 | 27413 VL010 | 27447 VL290 | 27453 VL630 | 27555 VM240 27562 VM280 | 27676 VN060 | 1 LISTING OF 12/01/64 PAGE 68 | POST PROCESSOR ASSEMBLY DATA | 27705 VN280 | 27714 VN345 | 27721 VN385 | 27765 VN470 | 30012 VN471 30014 VN472 | 30031 VN473 | 30045 VN474 | 30047 VN475 | 30050 VN480 27271 VN510 | 30051 VN520 | 27314 VN600 | 27365 VN980 | 30303 VNA10 30304 VNA20 | 30305 VNA30 | 30306 VNA40 | 30307 VNA50 | 30310 VNA60 30311 VNA70 | 30312 VNA80 | 30313 VNA90 | 30314 VNB20 | 30315 VNB30 30316 VNB40 | 30317 VNB60 | 30320 VNB70 | 30321 VNB71 | 30322 VNB80 30323 VNB90 | 30324 VNC10 | 30325 VNC20 | 30326 VNC30 | 30327 VNC40 30330 VNC50 | 67233 VNTRY | 27456 VO380 | 27464 VO440 | 27473 VO510 27477 VO550 | 27660 VP480 | 27665 VP520 | 30030 VQ500 | 30116 VR050 30203 VR530 | 30277 VR560 | 30300 VR620 | 11404 VRJSZ | 32351 VRVAL 14534 VS010 14276 | 14556 VS170 14553 | 14565 VS240 14555 | 14574 VS350 14572 | 14605 VS440 14603 1 LISTING OF 12/01/64 PAGE 69 | POST PROCESSOR ASSEMBLY DATA | | 14606 VS450 14573 | 14607 VS460 14602,14604 14613 VS500 14575 | 14631 VS699 | 15062 VSA10 14550,14621,14625,14627,14700,14712,14715,14752,15037 | 15063 VSA30 11770,14565,14614,14631,14771,15006,15012,15032,15053 | 15064 VSA31 14566,14661 15065 VSA51 | 15066 VSA60 14667 | 15067 VSA80 14724,14767,15046 | 15070 VSA90 15010 | 15071 VSB10 15034 15072 VSB20 15055 | 14706 VT080 14623 | 14760 VT260 14622 | 14763 VT290 14626 | 15060 VT680 14535,14570,15057 15274 VU560 | 15300 VU570 | 15073 VV010 | 15161 VV710 | 15162 VV712 15425 VVA01 | 15426 VVA02 | 15427 VVA03 | 15433 VVA11 | 15441 VVA21 15447 VVA31 | 15456 VVA41 | 15465 VVA51 | 15466 VVA52 | 15467 VVA53 15473 VVA55 | 15503 VVA61 | 15504 VVA62 | 15505 VVA63 | 15506 VVA71 15507 VVA72 | 15510 VVA73 | 15511 VVA74 | 15512 VVB00 15073 | 15513 VVB10 15100 15514 VVB20 | 15515 VVB30 | 15516 VVB40 | 15517 VVB50 | 15520 VVB60 15521 VVB70 | 15522 VVB71 | 15523 VVB80 | 15524 VVB90 | 15525 VVC01 15540 VVC10 | 15541 VVC20 | 15542 VVC30 | 1 LISTING OF 12/01/64 PAGE 70 | POST PROCESSOR ASSEMBLY DATA | 15543 VVC35 15076 | 11402 W0141 15622 | 11403 W0142 | 11411 W0150 14060,14064,14130,14215 31323 WA010 | 31343 WA180 | 32536 WAA10 | 32537 WAA20 | 32554 WAA30 32560 WAA40 | 32561 WAA50 | 32562 WAA60 | 32563 WAA70 | 32564 WAA80 32565 WAA90 | 32566 WAB10 | 32567 WAB20 | 32570 WAB30 | 32571 WAB40 32572 WAB50 | 32573 WAB60 | 32574 WAB70 | 32575 WAB80 | 32576 WAB90 32577 WAC20 | 32600 WAC30 | 32601 WAC40 | 32602 WAC50 | 32603 WAC60 33031 WAC70 | 33031 WAC80 | 33032 WAC90 | 33033 WAD10 | 33034 WAD20 31664 WB390 | 31707 WB585 | 31711 WB600 | 31730 WB750 | 31746 WB885 31750 WB890 | 31763 WC011 | 31771 WC090 | 32037 WC420 | 32050 WC560 32071 WC790 | 32102 WC880 | 32104 WC900 | 32114 WC970 | 32123 WD050 32130 WD100 | 32133 WD130 | 32144 WD200 | 32157 WD300 | 32172 WD420 32204 WD500 | 1 LISTING OF 12/01/64 PAGE 71 | POST PROCESSOR ASSEMBLY DATA | | 32221 WD620 32223 WD640 | 32243 WD790 | 32251 WD850 | 11254 WDCNT | 32266 WE050 32302 WE170 | 32311 WE300 | 32327 WE440 | 32332 WE470 | 32337 WE580 32350 WE650 | 32352 WE670 | 32363 WE760 | 32365 WE780 | 32375 WE850 32401 WE890 | 32410 WE960 | 32417 WF040 | 32423 WF080 | 32425 WF100 32435 WF220 | 32440 WF250 | 32446 WF310 | 31423 WJ470 | 31434 WJ530 31470 WJ890 | 33035 WJA01 | 33036 WJA02 | 33037 WJA03 | 33040 WJA04 33041 WJA05 | 33042 WJA06 | 33043 WJA07 | 33044 WJA09 | 32511 WR010 32530 WR150 | 32533 WR180 | 32535 WR200 | 6266 WRITE 0,12267 | 72452 Y0302 25667 72453 Y0304 | 72454 Y1001 | 72455 Y1002 | 22315 Y1006 0 | 22316 Y1007 0 22603 Y6010 0,24614 | 22620 Y6150 0,24624 | 22624 Y6210 0 | 22641 Y6410 0 | 22650 Y6510 0 22700 Y6710 0 | 22712 Y6810 0 | 22721 Y7010 0 | 11507 YADDR 11544,24631,15035 | 1 LISTING OF 12/01/64 PAGE 72 POST PROCESSOR ASSEMBLY DATA | | 1440 ALDEFZ 0 | 1750 ATBL1Z 0,11444,11746 | 6256 ATTACH 0,12257 4657 BITIND 0,25613 | 4764 BSFSYS 0,14274 | 4771 BSRSYS 0,14116,14117 | 30477 CLNHO1 | 764 CLNHOZ 0 6252 DEFINE 0,12253 | 23636 DXIFPF 0,25665,25673 | 4654 FCBORG 0 | 14177 FPDMP1 | 14202 FPDMP2 14204 FPDMP5 | 14205 FPDMP6 | 14172 FPDUMP | 4406 FPRGSW 0 | 14034 FRG010 14062 FRG020 | 14100 FRG100 | 14126 FRG150 | 14140 FRG160 | 14166 FRG250 4776 FSFSYS 0,14265 | 5004 FSRSYS 0 | 4746 IBSBSR 0,12057 | 134 .CHEXI | 135 .MODSW 4655 JOBTYP 0 | 5076 LD9PAC 0,12071 | 16710 LITRL1 | 14215 LOCAT1 | 14221 LOCAT2 14223 LOCAT4 | 14224 LOCAT5 | 14225 LOCAT6 | 14226 LOCAT7 | 14210 LOCATP 4661 LSTIND 0 | 21036 MOSTOP | 12507 MSYSRD 12076,17341,14120,14271 | 2260 NYDEFZ 0 | 4000 OBPGMZ 0,11416,11746 4660 PCHIND 0 | 5255 RD(WR) 0,11657,11672,11705,12004,12101,13055,13070,13336,15571,23124,25552,25561,25573,12673,12700,12732 | 13262,13267,13321,14307 | 4410 RGSMTP 0 | 14303 RSETBI 6474 SETDEN 0 | 5115 SGNOFF 0,12044 | 23576 SI0881 | 12 SIXCHZ 0 | 1440 STORGZ 0,11431,11746,11747 5013 STZLUP 0 | 4531 SYMTAP 0,25542 | 1 LISTING OF 12/01/64 PAGE 73 | POST PROCESSOR ASSEMBLY DATA | 122 SYSACC | 114 SYSCEM | 155 SYSCK1 | 156 SYSCK2 | 120 SYSCOR 144 SYSCRD | 102 SYSCUR | 124 SYSCYD | 101 SYSDAT | 115 SYSDMP 77777 SYSEND | 132 SYSGET 12060,12064,12074 | 117 SYSIDR 12054 | 151 SYSIN1 | 152 SYSIN2 116 SYSIOX | 133 SYSJOB 12061 | 104 SYSKEY | 140 SYSLB1 | 141 SYSLB2 142 SYSLB3 | 143 SYSLB4 | 121 SYSLDR | 3720 SYSORG | 147 SYSOU1 150 SYSOU2 | 146 SYSPCH | 123 SYSPID | 106 SYSPOS | 153 SYSPP1 154 SYSPP2 | 145 SYSPRT | 103 SYSRET 12065,12075 | 113 SYSRPT 12062 | 126 SYSSLD 105 SYSSWS | 127 SYSTCH | 100 SYSTRA 100 | 131 SYSTWT | 111 SYSUAV 110 SYSUBC | 112 SYSUCW | 107 SYSUNI | 157 SYSUT1 | 160 SYSUT2 161 SYSUT3 | 162 SYSUT4 | 14252 TAPD02 | 14256 TAPD04 | 14261 TAPD06 14265 TAPD08 | 14272 TAPD20 | 14273 TAPD21 | 14274 TAPD22 | 14244 TAPDUP 1 LISTING OF 12/01/64 PAGE 74 | POST PROCESSOR ASSEMBLY DATA | | 6342 TPOSIT 0,11773,25577,25601,13020,13374 | 702 (ACTIV 703 (ACTVX | 720 (BCD5R | 721 (BCD5X | 741 (CHPSW | 724 (CHXAC 750 (CHXSP | 717 (CKWAT | 746 (COMMD | 736 (COMMM | 722 (CVPRT 716 (DECVA | 715 (DECVD | 710 (ENBSW | 732 (ETTXI | 743 (FDAMT 747 (IBCDZ | 740 (IOXSI | 737 (LTPOS | 704 (NDATA | 705 (NDSLX 712 (PAUSE 12051 | 711 (PAWSX | 706 (PROUT 0 | 707 (PUNCH | 727 (RCHXI 726 (RCTXI | 744 (SDCXI | 745 (STCXI | 723 (STOPD | 713 (STOPX 714 (SYMUN | 730 (TCOXI | 733 (TEFXI | 735 (TRAPS | 734 (TRAPX 731 (TRCXI | 742 (TRPSW | 725 (URRXI | 0 SYMBOLIC REFERENCE TABLE OVERFLOWED. LISTING INCOMPLETE. | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 1 LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS 2 A 4 1583 1583 0 0 0 0 0 3 B 4 2002 2002 0 0 0 0 0 5 A 2 0 5568 0 0 0 0 0 6 B 1 14204 0 0 0 0 0 0 7 B 2 2554 0 0 0 0 0 0 5406 LINES OUTPUT THIS JOB. 0 FORTRAN MONITOR RETURNING TO IBSYS $ENDFILE SYSPP1 $REWIND SYSPP1 $PAUSE PLEASE MOUNT A SCRATCH TAPE ON A3 OPER. ACTION PAUSE| 1 ..CONTINUING| 1 $SWITCH SYSPP1,SYSUT2 $* A3 WILL BECOME FINAL SYSTEM TAPE. $IBEDT 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 1 0 NEW IBSYS EDIT WILL BE DONE ON A3 , HIGH DENSITY. 0 *PLACE 9PAC,4,1 0 FILE 1 0 RECORD 1 5U0002 7 WORDS 0 RECORD 2 IBSYS 5250 WORDS 0 RECORD 3 SYSDMP 2091 WORDS 0 ......FILE MARK...... 0 FILE 2 0 RECORD 1 IBJOB 853 WORDS 0 RECORD 2 JDUMP 739 WORDS 0 RECORD 3 DMPREC 2139 WORDS 0 RECORD 4 IOCSB 1469 WORDS 0 RECORD 5 IBJOBB 3403 WORDS 0 RECORD 6 IBJOBC 1429 WORDS 0 RECORD 7 IBDBLV 10021 WORDS 0 RECORD 8 IBDPPW 2068 WORDS 0 RECORD 9 IBDPPX 3943 WORDS 0 ......FILE MARK...... 0 FILE 3 0 RECORD 1 IBCBCZ 7629 WORDS 0 RECORD 2 IBCBC0 120 WORDS 0 RECORD 3 IBCBC1 1636 WORDS 0 RECORD 4 IBCBC2 3871 WORDS 0 RECORD 5 IBCBC3 2940 WORDS 0 RECORD 6 IBCBC4 3200 WORDS 0 RECORD 7 IBCBC5 2619 WORDS 0 RECORD 8 IBCBC6 2768 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 2 0 RECORD 9 IBCBC7 1894 WORDS 0 RECORD 10 IBCBC8 8769 WORDS 0 RECORD 11 IBCBC9 5803 WORDS 0 ......FILE MARK...... 0 FILE 4 0 RECORD 1 IBFTCE 16152 WORDS 0 RECORD 2 IBFTCF 11321 WORDS 0 RECORD 3 IBFTCG 4980 WORDS 0 ......FILE MARK...... 0 FILE 5 0 RECORD 1 IBMAPJ 11908 WORDS 0 RECORD 2 IBMAPK 7526 WORDS 0 ......FILE MARK...... 0 FILE 6 0 RECORD 1 IBLDRM 3745 WORDS 0 RECORD 2 IBLDRN 3742 WORDS 0 RECORD 3 IBLDRO 3352 WORDS 0 RECORD 4 CIFSR 5 WORDS 0 RECORD 5 XSRNT 464 WORDS 0 RECORD 6 SRNT 463 WORDS 0 RECORD 7 SRNT 463 WORDS 0 RECORD 8 SRNT 183 WORDS 0 RECORD 9 SRDT 463 WORDS 0 RECORD 10 SRDT 28 WORDS 0 RECORD 11 .IBSYS 461 WORDS 0 RECORD 12 .LOVRY 462 WORDS 0 RECORD 13 FOUT 463 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 3 0 RECORD 14 FRDD 462 WORDS 0 RECORD 15 FBIN. 464 WORDS 0 RECORD 16 UN07 450 WORDS 0 RECORD 17 FDMP 461 WORDS 0 RECORD 18 FDSQ 445 WORDS 0 RECORD 19 .IOCS 453 WORDS 0 RECORD 20 CMPAK 463 WORDS 0 RECORD 21 CCDTY 455 WORDS 0 RECORD 22 .CDXP1 439 WORDS 0 ......FILE MARK...... 0 FILE 7 0 RECORD 1 IBLDRP 5283 WORDS 0 RECORD 2 IBLDRQ 3995 WORDS 0 RECORD 3 TIFSR 3 WORDS 0 RECORD 4 .IBSYS 445 WORDS 0 RECORD 5 .LXCON 443 WORDS 0 RECORD 6 .IOCSF 463 WORDS 0 RECORD 7 .IOCSF 463 WORDS 0 RECORD 8 .IOCSF 463 WORDS 0 RECORD 9 .IOCSF 463 WORDS 0 RECORD 10 .IOCSF 463 WORDS 0 RECORD 11 .IOCSF 443 WORDS 0 RECORD 12 .LOVRY 455 WORDS 0 RECORD 13 .LXSL 451 WORDS 0 RECORD 14 .IBDBI 463 WORDS 0 RECORD 15 .IBDBI 463 WORDS 0 RECORD 16 .IBDBI 463 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 4 0 RECORD 17 .IBDBI 452 WORDS 0 RECORD 18 .DSTRN 444 WORDS 0 RECORD 19 FXEM 442 WORDS 0 RECORD 20 FCNV 463 WORDS 0 RECORD 21 FCNV 463 WORDS 0 RECORD 22 FCNV 463 WORDS 0 RECORD 23 FCNV 449 WORDS 0 RECORD 24 FIOB 462 WORDS 0 RECORD 25 FIOS 452 WORDS 0 RECORD 26 FIOH 444 WORDS 0 RECORD 27 FRDB 462 WORDS 0 RECORD 28 FWRO 463 WORDS 0 RECORD 29 FIOS. 462 WORDS 0 RECORD 30 FBST. 451 WORDS 0 RECORD 31 FIOU 463 WORDS 0 RECORD 32 FIOU 463 WORDS 0 RECORD 33 FIOU 463 WORDS 0 RECORD 34 FIOU 461 WORDS 0 RECORD 35 FSQR 443 WORDS 0 RECORD 36 FXP2 451 WORDS 0 RECORD 37 FEFT 457 WORDS 0 RECORD 38 FDMP 457 WORDS 0 RECORD 39 FSLDI 444 WORDS 0 RECORD 40 FCXP 442 WORDS 0 RECORD 41 FCSQ 457 WORDS 0 RECORD 42 FDMD 455 WORDS 0 RECORD 43 FDAT 462 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 5 0 RECORD 44 FDX2 456 WORDS 0 RECORD 45 FSCH 445 WORDS 0 RECORD 46 FGAM 463 WORDS 0 RECORD 47 FDVCHK 462 WORDS 0 RECORD 48 .IOCS 463 WORDS 0 RECORD 49 .IOCS 463 WORDS 0 RECORD 50 .IOCS 463 WORDS 0 RECORD 51 .IOCS 463 WORDS 0 RECORD 52 .IOCS 463 WORDS 0 RECORD 53 .IOCS 463 WORDS 0 RECORD 54 .IOCS 463 WORDS 0 RECORD 55 .IOCS 463 WORDS 0 RECORD 56 .IOCS 463 WORDS 0 RECORD 57 .IOCS 463 WORDS 0 RECORD 58 .IOCS 463 WORDS 0 RECORD 59 .IOCS 463 WORDS 0 RECORD 60 .IOCS 463 WORDS 0 RECORD 61 .IOCS 462 WORDS 0 RECORD 62 CMPAK 463 WORDS 0 RECORD 63 CMPAK 463 WORDS 0 RECORD 64 CMPAK 463 WORDS 0 RECORD 65 CMPAK 447 WORDS 0 RECORD 66 CEOBP 455 WORDS 0 RECORD 67 CCOMP 451 WORDS 0 RECORD 68 CHBCD 445 WORDS 0 RECORD 69 CAR14 442 WORDS 0 RECORD 70 CFPAK 463 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 6 0 RECORD 71 CFPAK 463 WORDS 0 RECORD 72 CFPAK 461 WORDS 0 RECORD 73 CBDCV 460 WORDS 0 RECORD 74 .CGOGO 452 WORDS 0 RECORD 75 .CBBLE 447 WORDS 0 RECORD 76 .RAND 463 WORDS 0 RECORD 77 .RAND 463 WORDS 0 RECORD 78 .RAND 463 WORDS 0 RECORD 79 .RAND 162 WORDS 0 ......FILE MARK...... 0 FILE 8 0 RECORD 1 IBLDRS 4534 WORDS 0 ......FILE MARK...... 0 FILE 9 0 RECORD 1 IBSFAP 8 WORDS 0 ......FILE MARK...... 0 FILE 10 0 RECORD 1 FORTRA 2377 WORDS 0 RECORD 2 9F0100 37 WORDS 0 RECORD 3 9F0200 1509 WORDS 0 RECORD 4 9F0300 1580 WORDS 0 RECORD 5 9F0400 7326 WORDS 0 RECORD 6 9F0500 2770 WORDS 0 RECORD 7 9F0600 1053 WORDS 0 RECORD 8 9F0700 2699 WORDS 0 RECORD 9 9F0800 863 WORDS 0 RECORD 10 9F0900 247 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 7 0 RECORD 11 9F1000 735 WORDS 0 RECORD 12 9F1100 347 WORDS 0 RECORD 13 9F1200 12 WORDS 0 ......FILE MARK...... 0 FILE 11 0 RECORD 1 9F1300 1822 WORDS 0 RECORD 2 9F1400 5583 WORDS 0 RECORD 3 9F1500 1207 WORDS 0 RECORD 4 9F1600 952 WORDS 0 RECORD 5 9F1700 464 WORDS 0 RECORD 6 9F1800 1038 WORDS 0 RECORD 7 9F1900 2001 WORDS 0 RECORD 8 9F2000 727 WORDS 0 RECORD 9 9F2100 3012 WORDS 0 RECORD 10 9F2200 2839 WORDS 0 RECORD 11 9F2300 561 WORDS 0 RECORD 12 9F2400 628 WORDS 0 RECORD 13 9F2500 484 WORDS 0 RECORD 14 9F2600 2429 WORDS 0 RECORD 15 9F2700 181 WORDS 0 RECORD 16 9F2800 164 WORDS 0 RECORD 17 9F2900 1461 WORDS 0 RECORD 18 9F3000 1581 WORDS 0 RECORD 19 9F3100 3382 WORDS 0 RECORD 20 9F3200 2699 WORDS 0 RECORD 21 9F3300 863 WORDS 0 RECORD 22 9F3400 247 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 8 0 ......FILE MARK...... 0 FILE 12 0 RECORD 1 9FL001 292 WORDS 0 RECORD 2 9FL002 292 WORDS 0 RECORD 3 9FL003 292 WORDS 0 RECORD 4 9FL004 292 WORDS 0 RECORD 5 9FL005 292 WORDS 0 RECORD 6 9FL006 292 WORDS 0 RECORD 7 9FL007 292 WORDS 0 RECORD 8 9FL008 292 WORDS 0 RECORD 9 9FL009 292 WORDS 0 RECORD 10 9FL010 292 WORDS 0 RECORD 11 9FL011 292 WORDS 0 RECORD 12 9FL012 292 WORDS 0 RECORD 13 9FL013 292 WORDS 0 RECORD 14 9FL014 292 WORDS 0 RECORD 15 9FL015 292 WORDS 0 RECORD 16 9FL016 292 WORDS 0 RECORD 17 9FL017 292 WORDS 0 RECORD 18 9FL018 292 WORDS 0 RECORD 19 9FL019 292 WORDS 0 RECORD 20 9FL020 292 WORDS 0 RECORD 21 9FL021 292 WORDS 0 RECORD 22 9FL022 292 WORDS 0 RECORD 23 9FL023 292 WORDS 0 RECORD 24 9FL024 292 WORDS 0 RECORD 25 9FL025 292 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 9 0 RECORD 26 9FL026 292 WORDS 0 RECORD 27 9FL027 292 WORDS 0 RECORD 28 9FL028 292 WORDS 0 RECORD 29 9FL029 292 WORDS 0 RECORD 30 9FL030 292 WORDS 0 RECORD 31 9FLEND 5 WORDS 0 ......FILE MARK...... 0 FILE 13 0 RECORD 1 9D0000 4630 WORDS 0 ......FILE MARK...... 0 FILE 14 0 RECORD 1 9LEDIT 371 WORDS 0 ......FILE MARK...... 0 FILE 15 0 RECORD 1 IOCS 339 WORDS 0 ......FILE MARK...... 0 FILE 16 0 RECORD 1 POST 38 WORDS 0 RECORD 2 PREP 8462 WORDS 0 RECORD 3 IOBB 28 WORDS 0 RECORD 4 IOBM 61 WORDS 0 RECORD 5 NOBS 51 WORDS 0 ......FILE MARK...... 0 FILE 17 0 RECORD 1 RANDOM 1758 WORDS 0 ......FILE MARK...... 0 FILE 18 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 10 0 RECORD 1 SORT 818 WORDS 0 ......FILE MARK...... 0 FILE 19 0 RECORD 1 HYSTAR 294 WORDS 0 RECORD 2 IOPEN 1566 WORDS 0 RECORD 3 LABEL 558 WORDS 0 RECORD 4 BTD 126 WORDS 0 RECORD 5 CALC 2478 WORDS 0 RECORD 6 EP001 5742 WORDS 0 RECORD 7 RB01 246 WORDS 0 RECORD 8 RELEAS 150 WORDS 0 RECORD 9 SK001 534 WORDS 0 RECORD 10 VXS 1110 WORDS 0 RECORD 11 MRGIO 1086 WORDS 0 RECORD 12 BUFRD 654 WORDS 0 RECORD 13 XTRACT 414 WORDS 0 RECORD 14 FXS 1158 WORDS 0 RECORD 15 GET 1062 WORDS 0 RECORD 16 PUT 534 WORDS 0 RECORD 17 READ 966 WORDS 0 RECORD 18 WRITE 558 WORDS 0 RECORD 19 WTFIX 102 WORDS 0 RECORD 20 DEBLK 414 WORDS 0 RECORD 21 FIMRG 2022 WORDS 0 RECORD 22 MERGE 2166 WORDS 0 RECORD 23 POSTP 462 WORDS 0 RECORD 24 CKPT 174 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 11 0 RECORD 25 DELETE 126 WORDS 0 RECORD 26 HYFIMR 2310 WORDS 0 RECORD 27 MRGHYO 1350 WORDS 0 RECORD 28 HYMERG 2478 WORDS 0 RECORD 29 HYOPEN 1878 WORDS 0 RECORD 30 HYGET 1182 WORDS 0 ......FILE MARK...... 0 FILE 20 0 RECORD 1 DK90UT 921 WORDS 0 RECORD 2 DK90FA 1390 WORDS 0 RECORD 3 DK90D 975 WORDS 0 RECORD 4 DK90C 601 WORDS 0 RECORD 5 DK90R 656 WORDS 0 RECORD 6 DK90L 1028 WORDS 0 RECORD 7 HT90D 2156 WORDS 0 ......FILE MARK...... 0 FILE 21 0 RECORD 1 RESTAR 1026 WORDS 0 ......FILE MARK...... 0 FILE 22 0 RECORD 1 UPDATE 3374 WORDS 0 ......FILE MARK...... 0 FILE 23 0 RECORD 1 EDITOR 5260 WORDS 0 ......FILE MARK...... 0 FILE 24 0 RECORD 1 CT 669 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 12 0 ......FILE MARK...... 0 FILE 25 0 RECORD 1 BASIC 3674 WORDS 0 ......FILE MARK...... 0 FILE 26 0 RECORD 1 CTB 3389 WORDS 0 RECORD 2 CTC 8827 WORDS 0 RECORD 3 CTI 1385 WORDS 0 RECORD 4 CTD 12880 WORDS 0 RECORD 5 CTE 7166 WORDS 0 ......FILE MARK...... 0 FILE 27 0 RECORD 1 IOCT 3645 WORDS 0 ......FILE MARK...... 0 FILE 28 0 RECORD 1 LOAD 9086 WORDS 0 ......FILE MARK...... 0 FILE 29 0 RECORD 1 SRDLOC 16 WORDS 0 RECORD 2 SRDICT 255 WORDS 0 RECORD 3 SRDICT 255 WORDS 0 RECORD 4 SRDICT 21 WORDS 0 ......FILE MARK...... 0 FILE 30 0 RECORD 1 IOBSMP 71 WORDS 0 RECORD 2 IOEXMP 48 WORDS 0 RECORD 3 CTMCOM 25 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 13 0 RECORD 4 IBMAP 25 WORDS 0 RECORD 5 PRGINT 255 WORDS 0 RECORD 6 PRGINT 48 WORDS 0 RECORD 7 UNITAS 163 WORDS 0 RECORD 8 INREAD 71 WORDS 0 RECORD 9 2CELLS 25 WORDS 0 RECORD 10 EXPDBL 71 WORDS 0 RECORD 11 EXPERR 255 WORDS 0 RECORD 12 EXPERR 94 WORDS 0 RECORD 13 FPTRP 48 WORDS 0 RECORD 14 SYSADJ 25 WORDS 0 RECORD 15 SYSCOL 94 WORDS 0 RECORD 16 SYSCOM 140 WORDS 0 RECORD 17 SYSSXY 48 WORDS 0 RECORD 18 SYSSDX 48 WORDS 0 RECORD 19 SYSDIV 48 WORDS 0 RECORD 20 SYSMPX 94 WORDS 0 RECORD 21 EXPSNG 163 WORDS 0 RECORD 22 OPEN1 48 WORDS 0 RECORD 23 OPEN2 48 WORDS 0 RECORD 24 CLOSE1 48 WORDS 0 RECORD 25 CLOSE2 186 WORDS 0 RECORD 26 STPPRT 48 WORDS 0 RECORD 27 MOVPAK 255 WORDS 0 RECORD 28 MOVPAK 255 WORDS 0 RECORD 29 MOVPAK 255 WORDS 0 RECORD 30 MOVPAK 255 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 14 0 RECORD 31 MOVPAK 255 WORDS 0 RECORD 32 MOVPAK 255 WORDS 0 RECORD 33 MOVPAK 186 WORDS 0 RECORD 34 NJJJNJ 209 WORDS 0 RECORD 35 MOVFLT 255 WORDS 0 RECORD 36 MOVFLT 255 WORDS 0 RECORD 37 MOVFLT 255 WORDS 0 RECORD 38 MOVFLT 255 WORDS 0 RECORD 39 MOVFLT 255 WORDS 0 RECORD 40 MOVFLT 48 WORDS 0 RECORD 41 PATTRN 48 WORDS 0 RECORD 42 EOBERR 186 WORDS 0 RECORD 43 BCDBIN 48 WORDS 0 RECORD 44 BCDERR 71 WORDS 0 RECORD 45 GETVLM 117 WORDS 0 RECORD 46 UNXEOF 48 WORDS 0 RECORD 47 KAPUT 71 WORDS 0 RECORD 48 HOLBCD 163 WORDS 0 RECORD 49 WRTEOB 71 WORDS 0 RECORD 50 BCDHOL 117 WORDS 0 RECORD 51 BLERR 48 WORDS 0 RECORD 52 TRAPEM 140 WORDS 0 RECORD 53 SRMOVE 71 WORDS 0 ......FILE MARK...... 0 FILE 31 0 RECORD 1 IOBB 30 WORDS 0 RECORD 2 IOBM 67 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 15 0 RECORD 3 NOBS 51 WORDS 0 ......FILE MARK...... 0 FILE 32 0 RECORD 1 SUBUP 2876 WORDS 0 ......FILE MARK...... 0 FILE 33 0 RECORD 1 MAIN 1282 WORDS 0 *INSERT FILEMK 0 ......FILE MARK...... 0 FILE 34 0 TAPE *INSERT 9PAC 0 RECORD 1 9PAC 5713 WORDS 0 *INSERT FILEMK 0 ......FILE MARK...... 0 FILE 35 0 TAPE *INSERT 9PAC14 0 RECORD 1 9PAC14 4713 WORDS 0 *INSERT FILEMK 0 ......FILE MARK...... 0 FILE 36 0 TAPE *INSERT 9PAC12 0 RECORD 1 9PAC12 1961 WORDS 0 TAPE *INSERT 9PAC13 0 RECORD 2 9PAC13 1092 WORDS 0 *INSERT FILEMK 0 ......FILE MARK...... 0 FILE 37 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 16 0 TAPE *INSERT 9PAC21 0 RECORD 1 9PAC21 7248 WORDS 0 TAPE *INSERT 9PAC22 0 RECORD 2 9PAC22 6450 WORDS 0 TAPE *INSERT 9PAC23 0 RECORD 3 9PAC23 507 WORDS 0 *INSERT FILEMK 0 ......FILE MARK...... 0 FILE 38 0 TAPE *INSERT 9PAC31 0 THE 9PAC31 SYSTEMS POSITION DOES NOT AGREE WITH THE SYSNAM TABLE 0 RECORD 1 9PAC31 6848 WORDS 0 TAPE *INSERT 9PAC32 0 RECORD 2 9PAC32 6966 WORDS 0 *INSERT FILEMK 0 ......FILE MARK...... 0 FILE 39 0 TAPE *INSERT 9PAC41 0 RECORD 1 9PAC41 162 WORDS 0 TAPE *INSERT 9PAC42 0 RECORD 2 9PAC42 838 WORDS 0 TAPE *INSERT 9PAC43 0 RECORD 3 9PAC43 578 WORDS 0 TAPE *INSERT 9PAC44 0 RECORD 4 9PAC44 503 WORDS 0 TAPE *INSERT 9PAC45 0 RECORD 5 9PAC45 791 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 17 0 TAPE *INSERT 9PAC46 0 RECORD 6 9PAC46 1350 WORDS 0 TAPE *INSERT 9PAC47 0 RECORD 7 9PAC47 531 WORDS 0 TAPE *INSERT 9PAC48 0 RECORD 8 9PAC48 908 WORDS 0 TAPE *INSERT 9PAC49 0 RECORD 9 9PAC49 610 WORDS 0 TAPE *INSERT 9PAC4A 0 RECORD 10 9PAC4A 531 WORDS 0 TAPE *INSERT 9PAC4B 0 RECORD 11 9PAC4B 787 WORDS 0 *INSERT FILEMK 0 ......FILE MARK...... 0 FILE 40 0 TAPE *INSERT 9PAC33 0 RECORD 1 9PAC33 916 WORDS 0 TAPE *INSERT 9PAC34 0 RECORD 2 9PAC34 1895 WORDS 0 *INSERT FILEMK 0 ......FILE MARK...... 0 FILE 41 0 TAPE *INSERT 9PAC15 0 RECORD 1 9PAC15 731 WORDS 0 *INSERT FILEMK 0 ......FILE MARK...... 0 FILE 42 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 18 0 ......FILE MARK...... 0 FILE 43 0 RECORD 1 *EOT 5 WORDS 0 ......FILE MARK...... 0 SYSTEM NAME TABLE CONTENTS 0 PHYS. FILES INDEX FIRST FILE 0 IBJOB 4 1 2 0 IBLDRM 3 1 6 0 IBSFAP 1 1 9 0 FORTRA 5 1 10 0 IOCS 3 1 15 0 SORT 2 1 18 0 DK90UT 1 1 20 0 RESTAR 1 1 21 0 UPDATE 1 1 22 0 EDITOR 1 1 23 0 CT 10 1 24 0 9PAC 4 1 34 0 EDITOR HAS DETECTED AN ERROR IN ORDER OF FILES 0 IBSYS SYSTEMS EDIT COMPLETED. $* NOW MOUNT STAGE10 ON A1 AND TAPE ON A3 ON A0. $PAUSE AND REBOOT OPER. ACTION PAUSE| 1