CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 SPS EXAMPLE PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB SPS EXAMPLE 102 CTL 6611 103 01 020 *PAYROLL LISTING ROUTINE PROGRAMMED FOR THE 1401 104 01 030 ORG 0900 0900 105 01 040 START R READ A CARD 1 0900 1 4 106 01 050 BCE UPDATE,0074,- 8 0901 B |81 074 - 4 107 01 060 SW 0004,0009 MAN &. SS NUMBER 7 0909 , 004 009 4 108 01 070 SW 0020,0045 NAME & MISC DED 7 0916 , 020 045 4 109 01 080 SW 0050,0056 GROSS & WHTAX 7 0923 , 050 056 4 110 01 090 SW 0061,0075 FICA & NETAMT 7 0930 , 061 075 4 111 01 100 SW 0101 DEPT # IN PUNCH 4 0937 , 101 5 112 01 110 MCW 0008,0206 MOVE MAN # TO CK 7 0941 M 008 206 5 113 01 120 MCW 0035,0224 MOVE NAME TO CK 7 0948 M 035 224 5 114 01 130 MCW DATE,0241 MOVE DATE TO CK 7 0955 M 499 241 5 115 01 140 MCW 0008,0255 MOVE MAN # TO ST 7 0962 M 008 255 5 116 01 150 LCA EDTWD2,0266 7 0969 L S74 266 5 117 01 160 MCE 0055,0266 MV & EDIT GROSS 7 0976 E 055 266 6 118 01 170 LCA EDTWD2,0277 7 0983 L S74 277 6 119 01 180 MCE 0060,0277 MV & EDIT WHTAX 7 0990 E 060 277 6 120 01 190 LCA EDTWD2,0288 7 0997 L S74 288 6 121 01 200 MCE 0065,0288 MV & EDIIT FICA 7 1004 E 065 288 6 122 02 010 LCA EDTWD2,0299 7 1011 L S74 299 7 123 02 020 MCE 0049,0299 MV & EDT MISCDNS 7 1018 E 049 299 7 124 02 030 MCW 0008,0108 MOVE MAN# TO PNC 7 1025 M 008 108 7 125 02 040 MCW 0003,0103 MV DEPT# TO PNCH 7 1032 M 003 103 7 126 02 050 MCW 0055,0115 MV GROSS TO PNCH 7 1039 M 055 115 7 127 02 060 MCW 0065,0126 MV FICA TO PNCH 7 1046 M 065 126 8 128 02 070 MCW 0060,0121 MV WHTAX TO PNCH 7 1053 M 060 121 8 129 02 080 MCW 0080,NETAMT SAVE NET AMOUNT 7 1060 M 080 S81 8 130 02 090 CC B SKIP 2 AFTER PRT 2 1067 F B 8 131 02 100 W PRINT 1ST LINE 1 1069 2 8 132 02 110 CLEAR CS 0080 CLEAR READ AREA 4 1070 / 080 8 133 02 120 CS START,0299 CLR PRT & BRANCH 7 1074 / 900 299 8 134 02 130 UPDATE SW 0004,0009 MAN# & YTDGRS 7 1081 , 004 009 9 135 02 140 SW 0016,0022 YTDWHTX & YTDFCA 7 1088 , 016 022 9 136 02 150 SS 1 SELECT STACKER1 2 1095 K 1 9 137 02 160 C MANNO1,0008 COMPARE MAN# 7 1097 C 108 008 9 138 02 170 BU ERROR BRANCH UNEQUAL 5 1104 B S52 / 9 139 02 180 SW 0109,0116 WORD MARKS IN 7 1109 , 109 116 9 140 02 190 SW 0122 PUNCH AREA 4 1116 , 122 9 141 02 200 A 0015,0115 UPDATE YTDGROSS 7 1120 A 015 115 10 142 03 010 A 0021,0121 UPDATE YTD WHTAX 7 1127 A 021 121 10 143 03 020 A 0026,0126 UPDATE YTD FICA 7 1134 A 026 126 10 144 03 030 MCW 0103,0206 MOVE DEPT# TO CK 7 1141 M 103 206 10 145 03 040 LCA EDTWD1,0241 EDIT NET PAY 7 1148 L S65 241 10 146 03 050 MCE NETAMT,0241 FOR CHECK 7 1155 E S81 241 11 147 03 060 LCA EDTWD1,0265 EDIT NET PAY 7 1162 L S65 265 11 1 SPS EXAMPLE PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 03 070 MCE NETAMT,0265 FOR STATEMENT 7 1169 E S81 265 11 149 03 080 LCA EDTWD1,0277 EDIT YTD GROSS 7 1176 L S65 277 11 150 03 090 MCE 0115,0277 FOR STATEMENT 7 1183 E 115 277 11 151 03 100 LCA EDTWD2,0288 EDIT YTD WHTAX 7 1190 L S74 288 12 152 03 110 MCE 0121,0288 FOR STATEMENT 7 1197 E 121 288 12 153 03 120 LCA EDTWD2,0299 EDIT YTD FICA 7 1204 L S74 299 12 154 03 130 MCE 0126,0299 FOR STATEMENT 7 1211 E 126 299 12 155 03 140 MZ 0074,0174 MOVE ZONE TO PCH 7 1218 Y 074 174 12 156 03 150 CC A SKIP 1 AFTER PRT 2 1225 F A 12 157 03 160 WP PRINT & PUNCH 1 1227 6 12 158 03 161 BLC LASTCD 5 1228 B S48 A 13 159 03 170 CS 0080 CLEAR READ AREA 4 1233 / 080 13 160 03 180 CS 0299 CLEAR PRINT AREA 4 1237 / 299 13 161 03 190 CS START,0180 CL PNCH & BRANCH 7 1241 / 900 180 13 162 03 200 LASTCD H 0001 LAST CARD HALT 4 1248 . 001 13 163 04 010 ERROR H ERROR 4 1252 . S52 13 164 04 020 MANNO1 EQU 0108 0108 165 DSTEST EQU 100 0100 166 04 030 EDTWD1 DCW @$ , 0. @ 10 1265 13 167 04 040 EDTWD2 DCW @$ , 0. @ 9 1274 14 168 04 050 NETAMT DCW @0000000@ 7 1281 14 169 04 060 DATE EQU 0499 0499 170 04 060 0499 DCW @JAN 27, 1961@ 12 0499 15 171 04 070 EQU 0089 0089 172 04 070 0089 DCW @000@ 3 0089 16 173 WHAT DS 13 1294 174 WHO EQU 0144 0144 175 99 DCW 000 3 0099 17 176 04 070 END START / 900 080 1 PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS CLEAR 1070 DATE 499 DSTEST 100 EDTWD1 1265 EDTWD2 1274 ERROR 1252 LASTCD 1248 MANNO1 108 NETAMT 1281 START 900 UPDATE 1081 WHAT 1294 WHO 144