1 1 9CNPB X-XX-XX PAGE 1 9CNPB *CONSECUTIVE NUMBERING PUNCH TEST 00030 ORG 24 00030 0500 00 0 00133 CLA REST POST RESTART 00031 0601 00 0 00000 STO 0 00032 0774 00 1 07017 AXT 3599,1 00033 0766 00 0 01341 WPU WPUA PUNCH 150 CARDS ALL 00034 0540 00 0 00134 RCHA PCNT PUNCHES CONSECUTIVE 00035 0544 00 0 00135 LCHA PCNT+1 NUMBERING 00036 2 00001 1 00035 TIX *-1,1,1 REPEAT FOR 150 CARDS 00037 0000 00 0 00040 HTR *+1 ENTER INTO KEYS ANY OCTALNUMBER FROM 00000 TO 23417 AND PRESS START 00040 0760 00 0 00004 ENK ENTER INTO MQ 00041 0774 00 1 00030 START AXT 24,1 00042 0600 00 1 01030 STZ IMAGE+24,1 CLEAR IMAGE 00043 2 00001 1 00042 TIX *-1,1,1 AREA 00044 -0600 00 0 00136 STQ SAVE 00045 0500 00 0 00136 DEC CLA SAVE BINARY TO DECIMAL 00046 0100 00 0 00063 TZE RESET CONVERTER TO SET CARD 00047 0131 00 0 00000 XCA IMAGE OF NUMBER TO BE PUNCHED 00050 -0754 00 0 00000 PXD CLEAR ACC. 00051 0221 00 0 00137 DVP TEN L 12 00052 -0600 00 0 00136 STQ SAVE 00053 0767 00 0 00001 ALS 1 00054 0402 00 0 00143 SUB CONST L 1022 00055 0621 00 0 00057 STA *+2 00056 0500 00 0 00141 CLA ONE L 1 00057 -0602 00 0 00000 ORS 0 NUMBER ENTERED INTO 00060 0767 00 0 00001 ALS 1 KEYS IS CONVERTED 00061 0601 00 0 00141 STO ONE FROM OCTAL TO DECIMAL 00062 0020 00 0 00045 TRA DEC 00063 0500 00 0 00142 RESET CLA CNTR L 1 - RESTORE 00064 0601 00 0 00141 STO ONE COUNTER 00065 0766 00 0 01341 WPU1 WPUA PASS 1 BLANK CARD 00066 0760 00 0 01342 SPUA 2 RESET COUNTER 00067 0766 00 0 01341 WPU2 WPUA 00070 0760 00 0 00165 SWT 5 00071 0074 00 4 00126 TSX DELAY,4 IF UP GO TO DELAY ROUTINE 00072 0760 00 0 01341 SPUA 1 00073 0540 00 0 00144 RCHA PCNT1 PUNCH CARD FROM SYMBOLIC LOCATION-IMAGE 00074 0774 00 2 00012 AXT 10,2 LOAD TO PUNCH 10 CARDS 1 9CNPB X-XX-XX PAGE 2 00075 0774 00 1 00026 AXT 22,1 LOAD TO PUNCH 1 CARD 00076 0766 00 0 01341 WPU4 WPUA PUNCH 10 CARDS-ALL PUNCHES SHOULD NUMBER FROM N-N+10 00077 0540 00 0 00134 RCHA PCNT S TRG ON WC-1 00100 0544 00 0 00135 LCHA PCNT+1 S AND 1 TRGS ON WC-1 00101 2 00001 1 00100 TIX *-1,1,1 REPEAT FOR ONE CARD 00102 2 00001 2 00075 TIX WPU4-1,2,1 REPEAT FOR 10 CARDS WILL RE-SELECT AT EOR 00103 0766 00 0 01341 WPUA SELECT PUNCH 00104 0760 00 0 00165 SWT 5 CHECK SW5 FOR DELAY 00105 0074 00 4 00126 TSX DELAY,4 00106 0760 00 0 01342 SPUA 2 NO PASS BLANK CARD 00107 0774 00 1 00360 AXT 240,1 00110 0500 00 0 00140 CLA D 00111 0601 00 1 01410 STO IMAGE+264,1 SET 10 CARD IMAGES 00112 2 00001 1 00111 TIX *-1,1,1 TO ALL ONES 00113 0766 00 0 01341 WPU3 WPUA 00114 0540 00 0 00145 RCHA PCNT2 PUNCH 10 CARDS-ALL PUNCHES 00115 0060 00 0 00115 TCOA * WAIT FOR ALL CARDS 00116 0760 00 0 00166 SWT 6 TEST FOR NEXT PROGRAM 00117 0020 00 0 00121 TRA *+2 UP-READ 00120 0020 00 0 00037 TRA START-2 DOWN-REPEAT TEST 00121 0762 00 0 01321 RCDA READ 00122 0540 00 0 00125 RCHA *+3 NEXT 00123 0544 00 0 00000 LCHA 0 PROGRAM 00124 0020 00 0 00001 TRA 1 00125 -1 00003 0 00000 IOCT 0,0,3 00126 0774 00 2 00002 DELAY AXT 2,2 00127 0774 00 1 04363 AXT 2291,1 20 MILLISECOND 00130 2 00001 1 00130 TIX *,1,1 DELAY 00131 2 00001 2 00127 TIX *-2,2,1 00132 0020 00 4 00001 TRA 1,4 EXIT 00133 0020 00 0 00037 REST TRA START-2 RESTART 00134 -0000 01 0 00140 PCNT IOCP D,0,1 PUNCH ONE WORD + CONTINUE 00135 -1 00001 0 00140 IOCT D,0,1 PUNCH ONE WORD AND WAIT LCH FROM MF 00136 +000000000000 SAVE OCT 0 TEMPORARY STORAGE 00137 +000000000012 TEN DEC 10 00140 -125252525252 D OCT 525252525252 00141 +000000000001 ONE OCT 1 00142 +000000000001 CNTR OCT 1 00143 +000000001022 CONST OCT 1022 00144 0000 30 0 01000 PCNT1 IOCD IMAGE,0,24 00145 0003 60 0 01030 PCNT2 IOCD IMAGE+24,0,240 PUNCH 10 CARDS 01000 ORG 512 01000 IMAGE BSS 24 CARD IMAGE 00000 END 1 *EOF*