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 HZG DEMO SGSVU PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB HZG DEMO 102 CTL 6611 103 * 104 * CONTROL CARD LAYOUT 105 * 106 I3LEN EQU 4 1-4 TAPE 3 RECORD LENGTH 0004 107 I3WMAX EQU 8 6-8 TAPE 3 RECORDS UNTIL REWIND 0008 108 I3PMAX EQU 11 10-11 TAPE 3 PROCESSING DELAY 0011 109 I3RDLY EQU 16 13-16 TAPE 3 REWIND DELAY 0016 110 I4LEN EQU 21 18-21 TAPE 4 RECORD LENGTH 0021 111 I4WMAX EQU 25 23-25 TAPE 4 RECORDS UNTIL REWIND 0025 112 I4PMAX EQU 28 27-28 TAPE 4 PROCESSING DELAY 0028 113 I4RDLY EQU 33 30-33 TAPE 4 REWIND DELAY 0033 114 I5LEN EQU 38 35-38 TAPE 5 RECORD LENGTH 0038 115 I5WMAX EQU 42 40-42 TAPE 5 RECORDS UNTIL REWIND 0042 116 I5PMAX EQU 45 44-45 TAPE 5 PROCESSING DELAY 0045 117 I5RDLY EQU 50 47-50 TAPE 5 REWIND DELAY 0050 118 I6LEN EQU 55 52-55 TAPE 6 RECORD LENGTH 0055 119 I6WMAX EQU 59 57-59 TAPE 6 RECORDS UNTIL REWIND 0059 120 I6PMAX EQU 62 61-62 TAPE 6 PROCESSING DELAY 0062 121 I6RDLY EQU 67 64-67 TAPE 6 REWIND DELAY 0067 122 IRDLY EQU 72 69-72 FULL REEL TAPE REWIND DELAY 0072 123 IDDLY EQU 75 74-75 DISK PROCESSING DELAY 0075 124 IDPSW EQU 80 PRINT DISK ADDRESSES IF NON BLANK 0080 125 * 126 ORG 81 RECORD MARK AT 81 WILL BE 0081 127 DC @'@ SENTINEL AFTER LAST LINE OF IMAGE 1 0081 4 128 KP1 DCW &1 1 0082 4 129 KB DCW #1 CHANGES BSS C TO BRANCH 1 0083 4 130 KC DCW @C@ CHANGES BRANCH TO BSS C 1 0084 4 131 DC @..@ 2 0086 4 132 X1 DCW 081 3 0089 4 133 DC @..@ 2 0091 4 134 X2 DCW 010 3 0094 5 135 DC @..@ 2 0096 5 136 X3 DCW 000 3 0099 5 137 GMWM DCW @"@ 1 0100 GMARK 5 138 ORG 336 0336 139 * 140 * LOAD PARAMETERS 141 * 142 START R 1 0336 1 6 143 MCW I3RDLY,T3RDLY TAPE 3 REWIND DELAY 7 0337 M 016 '41 6 144 MCW TAPE 3 PROCESSING DELAY 1 0344 M 6 145 MCW TAPE 3 RECORDS UNTIL REWIND 1 0345 M 6 146 MCW I4RDLY,T4RDLY TAPE 4 REWIND DELAY 7 0346 M 033 '69 6 147 MCW TAPE 4 PROCESSING DELAY 1 0353 M 6 HZG DEMO SGSVU PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 MCW TAPE 4 RECORDS UNTIL REWIND 1 0354 M 6 149 MCW I5RDLY,T5RDLY TAPE 5 REWIND DELAY 7 0355 M 050 '97 7 150 MCW TAPE 5 PROCESSING DELAY 1 0362 M 7 151 MCW TAPE 5 RECORDS UNTIL REWIND 1 0363 M 7 152 MCW I6RDLY,T6RDLY TAPE 6 REWIND DELAY 7 0364 M 067 /25 7 153 MCW TAPE 6 PROCESSING DELAY 1 0371 M 7 154 MCW TAPE 6 RECORDS UNTIL REWIND 1 0372 M 7 155 MCW IRDLY,RDELAY REWIND FULL TAPE DELAY COUNT 7 0373 M 072 /46 7 156 MCW IDDLY,DCNTI DISK DELAY COUNT 7 0380 M 075 658 8 157 * 158 * CALCULATE TAPE WRITE ADDRESSES FROM RECORD LENGTHS 159 * 160 B GETOFF CALULATE OFFSET = - I3LEN 4 0387 B 919 8 161 DSA I3LEN TAPE 3 RECORD LENGTH 3 0393 004 8 162 DSA TAPE3W&6 TAPE 3 WRITE INSTRUCTION 3 0396 '48 8 163 B GETOFF CALULATE OFFSET = - I4LEN 4 0397 B 919 8 164 DSA I4LEN TAPE 4 RECORD LENGTH 3 0403 021 8 165 DSA TAPE4W&6 TAPE 4 WRITE INSTRUCTION 3 0406 '76 8 166 B GETOFF CALULATE OFFSET = - I5LEN 4 0407 B 919 9 167 DSA I5LEN TAPE 5 RECORD LENGTH 3 0413 038 9 168 DSA TAPE5W&6 TAPE 5 WRITE INSTRUCTION 3 0416 /04 9 169 B GETOFF CALULATE OFFSET = - I6LEN 4 0417 B 919 9 170 DSA I6LEN TAPE 6 RECORD LENGTH 3 0423 055 9 171 DSA TAPE6W&6 TAPE 6 WRITE INSTRUCTION 3 0426 /32 9 172 * 173 SW 1 4 0427 , 001 9 174 BCE *&8,IDPSW, IS IDPSW BLANK? 8 0431 B 446 080 10 175 MCW NOP,DISKB TURN ON DISK ADDRESS PRINTING 7 0439 M 465 584 10 176 * 177 B RDIMAG READ AND STORE THE IMAGE 4 0446 B 661 10 178 * 179 * EVENT LOOP -- CHECK SWITCHES TO DETERMINE ACTIONS 180 * 181 SWLOOP BSS PRINT,C D-MOD CHANGED BY PRINT TO BLANK 5 0450 B 707 C 10 182 BSS DISK,B EXERCISE 1311 5 0455 B 500 B 10 183 BSS TAPEX,D EXERCISE TAPE 3 5 0460 B 765 D 10 184 NOP NOP T3PAKT 4 0465 N '33 10 185 BSS TAPEX,E EXERCISE TAPE 4 5 0469 B 765 E 11 186 NOP T4PAKT 4 0474 N '61 11 187 BSS TAPEX,F EXERCISE TAPE 5 5 0478 B 765 F 11 188 NOP T5PAKT 4 0483 N '89 11 189 BSS TAPEX,G EXERCISE TAPE 6 5 0487 B 765 G 11 190 NOP T6PAKT 4 0492 N /17 11 191 B SWLOOP 4 0496 B 450 11 HZG DEMO -- 1311 DISK EXERCISER SGSVU PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 192 JOB HZG DEMO -- 1311 DISK EXERCISER 193 * 194 * 1311 DISK EXERCISER 195 * 196 DISK SBR DISKX&3 4 0500 H 627 12 197 BWZ DISKA,DCOUNT,K IS THE COUNT NEGATIVE? 8 0504 V 523 660 K 12 198 S KP1,DCOUNT SUBTRACT ONE FROM THE COUNT 7 0512 S 082 660 12 199 B DISKX GO TO SUBR EXIT 4 0519 B 624 12 200 DISKA LCA DK2,DMUL A CRUDE MULTIPLICATIVE RNG 7 0523 L 638 631 12 201 M DFAC,DPROD 7 0530 @ 640 634 12 202 MCW DPROD,DK2 7 0537 M 634 638 13 203 LCA KONE,DADDR1 7 0544 L 656 645 13 204 MCW DK1,DADDR1 7 0551 M 636 645 13 205 A DADDR1 4 0558 A 645 13 206 MCW KONE,DADDR2 7 0562 M 656 650 13 207 MCW %F0,DADDR,R SEEK DISK 8 0569 M %F0 641 R 14 208 MCW DCNTI,DCOUNT 7 0577 M 658 660 14 209 DISKB B DISKX SKIP PRINTING DISK ADDRESSES 4 0584 B 624 14 210 MCW DK1,200&X2 MOVE DISK ADDRESS TO PRINT AREA 7 0588 M 636 2!0 14 211 BCE DISKW,X2-2,1 INDEX HIGH-ORDER DIGHT 1? 8 0595 B 607 092 1 14 212 B DISKY NO 4 0603 B 617 14 213 DISKW W YES, WRITE THE ADDRESSES 1 0607 2 14 214 CS 1 0608 / 15 215 CS 1 0609 / 15 216 SBR X2,0 CLEAR INDEX 7 0610 H 094 000 15 217 DISKY SBR X2,10&X2 ADD TEN TO INDEX 7 0617 H 094 0J0 15 218 DISKX B 0 4 0624 B 000 15 219 * 220 DMUL DCW 0000 4 0631 15 221 DPROD DC 000 3 0634 15 222 DK1 DCW 91 2 0636 15 223 DK2 DC 57 2 0638 15 224 DFAC DCW 83 2 0640 16 225 DADDR DC @*@ 1 0641 16 226 DADDR1 DC 0000 4 0645 16 227 DADDR2 DC 00001 5 0650 16 228 KZERO DCW 000 CONSTANT ZERO 3 0653 16 229 KONE DCW 001 3 0656 16 230 DCNTI DCW 00 INITIAL DISK DELAY COUNT 2 0658 16 231 DCOUNT DCW 01 CURRENT DISK DELAY COUNT 2 0660 16 HZG DEMO -- PRINT THE PICTURE SGSVU PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 232 JOB HZG DEMO -- PRINT THE PICTURE 233 * 234 * READ THE IMAGE AND STORE IT. THE FIRST CHARACTER AFTER THE LAST 235 * ONE IN THE STORAGE AREA WILL BE A RECORD MARK. 236 * 237 RDIMAG SBR RDEXIT&3 4 0661 H 706 17 238 RLOOP R 1 0665 1 17 239 LCA 81,IMAGE&X1 STORE ONE LINE OF THE IMAGE 7 0666 L 081 /V1 17 240 B GOTEM,A DONE? 5 0673 B 689 A 17 241 SBR X1,80&X1 ADD 80 TO X1 7 0678 H 089 0Y0 17 242 B RLOOP GET ANOTHER ONE 4 0685 B 665 17 243 * 244 GOTEM SBR X1,80 RESET X1 TO 80 7 0689 H 089 080 17 245 CS 332 4 0696 / 332 18 246 CS 1 0700 / 18 247 CC 1 2 0701 F 1 18 248 RDEXIT H 0 WAIT FOR THE SWITCHES TO BE SET 4 0703 . 000 18 249 * 250 * PRINT THE PICTURE 251 * 252 PRINT SBR PRINTX&3 4 0707 H 764 18 253 MCW KB,SWLOOP&4 MAKE ENTRY TEST UNCONDITIONAL 7 0711 M 083 454 18 254 LCA IMAGE&X1,306 7 0718 L /V1 306 18 255 W 1 0725 2 19 256 B PRINTA,IMAGE&1&X1,' LAST IMAGE? 8 0726 B 745 /V2 ' 19 257 SBR X1,80&X1 ADD 80 TO X1 7 0734 H 089 0Y0 19 258 B PRINTX 4 0741 B 761 19 259 PRINTA SBR X1,80 RESET X1 TO 80 7 0745 H 089 080 19 260 CC 1 2 0752 F 1 19 261 MCW KC,SWLOOP&4 CHANGE ENTRY TEST TO BSS C 7 0754 M 084 454 19 262 PRINTX B 0 4 0761 B 000 20 HZG DEMO -- TAPE EXERCISER SGSVU PAGE 5 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 263 JOB HZG DEMO -- TAPE EXERCISER 264 * 265 * TAPE EXERCISER PACKET LAYOUT 266 * 267 TWMAX EQU 2&X3 NUMBER OF RECORDS INITIAL VALUE 0002 X 268 TPMAX EQU 5&X3 PROCESSING DELAY INITIAL VALUE 0005 X 269 TRDLY EQU 10&X3 REWIND DELAY INITIAL VALUE 0010 X 270 TWRIT EQU 18&X3 TAPE WRITE INSTRUCTION LAST CHAR 0018 X 271 TPCNT EQU 20&X3 CURRENT PROCESSING DELAY COUNT 0020 X 272 TWCNT EQU 23&X3 CURRENT RECORDS UNTIL REWIND 0023 X 273 TRCNT EQU 27&X3 CURRENT REWIND DELAY COUNT 0027 X 274 * 275 * TAPE EXERCISER. FOLLOW B TAPEX WITH NOP PACKET 276 * 277 TAPEX SBR TAPEXX&3 4 0765 H 895 21 278 SBR X3 4 0769 H 099 21 279 MCW 4&X3,X3 ADDRESS OF PACKET TO X3 7 0773 M 0?4 099 21 280 BWZ TAPEXA,TRCNT,K ENOUGH REWIND DELAY? 8 0780 V 799 0B7 K 21 281 S KP1,TRCNT 7 0788 S 082 0B7 21 282 B TAPEXX 4 0795 B 892 21 283 TAPEXA C KONE,TPCNT ENOUGH PROCESSING DELAY? 7 0799 C 656 0B0 22 284 BE TAPEXB 5 0806 B 829 S 22 285 S KP1,TPCNT DECR PROCESSING DELAY COUNT 7 0811 S 082 0B0 22 286 MZ KZERO,TPCNT 7 0818 Y 653 0B0 22 287 B TAPEXX 4 0825 B 892 22 288 TAPEXB LCA TRDLY,TRCNT RWD DELAY DEPENDING ON REC CNT 7 0829 L 0A0 0B7 22 289 BWZ TAPEXE,TWCNT,K TIME TO REWIND? 8 0836 V 896 0B3 K 23 290 LCA RDELAY,TRCNT DELAY FOR FULL REEL REWIND 7 0844 L /46 0B7 23 291 BEF TAPEXE 5 0851 B 896 K 23 292 LCA KM1,TRCNT SET FOR NO REWIND DELAY 7 0856 L /50 0B7 23 293 MCW TWRIT,*&8 COPY TAPE WRITE INSTRUCTION 7 0863 M 0A8 877 23 294 WT 3,GMWM 8 0870 M %U3 100 W 24 295 S KP1,TWCNT DECREMENT WRITE COUNTER 7 0878 S 082 0B3 24 296 MCW TPMAX,TPCNT STORE PROCESSING DELAY 7 0885 M 0?5 0B0 24 297 TAPEXX B 0 4 0892 B 000 24 298 TAPEXE MN TWRIT-4,*&4 SET DRIVE NUMBER IN REWIND 7 0896 D 0A4 906 24 299 RWD 3 5 0903 U %U3 R 24 300 MCW TWMAX,TWCNT RE-INITIALIZE WRITE COUNT 7 0908 M 0?2 0B3 25 301 B TAPEXX 4 0915 B 892 25 302 * 303 * OFFSET THE TAPE WRITE ADDRESS, GIVEN THE RECORD LENGTH 304 * DO THIS BY MA-ING THE 16000-COMPLEMENT OF THE RECORD 305 * LENGTH TO THE ADDRESS IN THE TAPE WRITE INSTRUCTION 306 * 307 GETOFF SBR X3 4 0919 H 099 25 308 SBR GETXX&3,6&X3 7 0923 H '13 0?6 25 309 LCA P16K,ROFF START WITH 16001 7 0930 L '30 '22 25 310 MCW 2&X3,*&4 ADDRESS OF RECORD LENGTH 7 0937 M 0?2 947 25 311 S 0,ROFF DECREASE BY RECORD LENGTH 7 0944 S 000 '22 26 312 MZ KZERO,ROFF CLEAR ZONE 7 0951 Y 653 '22 26 HZG DEMO -- TAPE EXERCISER SGSVU PAGE 6 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 313 GETL S KP1,RTHOU 7 0958 S 082 '19 26 314 BWZ GETX,RTHOU,K DONE? 8 0965 V 984 '19 K 26 315 MA K1000,ROFF ADD 1000 TO OFFSET 7 0973 # '25 '22 26 316 B GETL 4 0980 B 958 27 317 GETX MCW 5&X3,X3 ADDRESS OF TAPE WRITE 7 0984 M 0?5 099 27 318 CS 0 GET LAST ADDRESS TO B REG 4 0991 / 000 27 319 LCA GMWM GMWM TO TOP OF MEMORY 4 0995 L 100 27 320 SBR 0&X3 LAST ADDRESS IN MEMORY - 1 4 0999 H 0?0 27 321 MA ROFF,0&X3 SUBTRACT RECORD LENGTH 7 1003 # '22 0?0 27 322 GETXX B 0 4 1010 B 000 27 323 * 324 RLEN DCW 0000 RECORD LENGTH 4 1017 28 325 RTHOU DCW 00 THOUSANDS PART OF OFFSET 2 1019 28 326 ROFF DC 000 OFFSET TO TAPE ADDRESS = - RLEN 3 1022 28 327 K1000 DSA 1000 ADDRESS CONSTANT 1000 3 1025 '00 28 328 P16K DCW 16001 5 1030 28 329 * 330 * TAPE EXERCISER CONTROL PACKETS 331 * 332 T3PAKT DCW 000 NUMBER OF RECORDS INITIAL VALUE 3 1033 28 333 DC #1 FILLER FROM CONTROL CARD 1 1034 28 334 DCW 00 PROCESSING DELAY INITIAL VALUE 2 1036 28 335 DC #1 FILLER FROM CONTROL CARD 1 1037 28 336 T3RDLY DCW 0000 REWIND DELAY INITIAL VALUE 4 1041 28 337 TAPE3W WT 3,0 TAPE WRITE INSTRUCTION 8 1042 M %U3 000 W 29 338 DCW 00 CURRENT PROCESSING DELAY COUNT 2 1051 29 339 DCW 000 CURRENT RECORDS UNTIL REWIND 3 1054 29 340 DCW -0001 CURRENT REWIND DELAY COUNT 4 1058 29 341 * 342 T4PAKT DCW 000 NUMBER OF RECORDS INITIAL VALUE 3 1061 29 343 DC #1 FILLER FROM CONTROL CARD 1 1062 29 344 DCW 00 PROCESSING DELAY INITIAL VALUE 2 1064 29 345 DC #1 FILLER FROM CONTROL CARD 1 1065 29 346 T4RDLY DCW 0000 REWIND DELAY INITIAL VALUE 4 1069 29 347 TAPE4W WT 4,0 TAPE WRITE INSTRUCTION 8 1070 M %U4 000 W 30 348 DCW 00 CURRENT PROCESSING DELAY COUNT 2 1079 30 349 DCW 000 CURRENT RECORDS UNTIL REWIND 3 1082 30 350 DCW -0001 CURRENT REWIND DELAY COUNT 4 1086 30 351 * 352 T5PAKT DCW 000 NUMBER OF RECORDS INITIAL VALUE 3 1089 30 353 DC #1 FILLER FROM CONTROL CARD 1 1090 30 354 DCW 00 PROCESSING DELAY INITIAL VALUE 2 1092 30 355 DC #1 FILLER FROM CONTROL CARD 1 1093 30 356 T5RDLY DCW 0000 REWIND DELAY INITIAL VALUE 4 1097 30 357 TAPE5W WT 5,0 TAPE WRITE INSTRUCTION 8 1098 M %U5 000 W 31 358 DCW 00 CURRENT PROCESSING DELAY COUNT 2 1107 31 359 DCW 000 CURRENT RECORDS UNTIL REWIND 3 1110 31 360 DCW -0001 CURRENT REWIND DELAY COUNT 4 1114 31 361 * 362 T6PAKT DCW 000 NUMBER OF RECORDS INITIAL VALUE 3 1117 31 HZG DEMO -- TAPE EXERCISER SGSVU PAGE 7 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 363 DC #1 FILLER FROM CONTROL CARD 1 1118 31 364 DCW 00 PROCESSING DELAY INITIAL VALUE 2 1120 31 365 DC #1 FILLER FROM CONTROL CARD 1 1121 31 366 T6RDLY DCW 0000 REWIND DELAY INITIAL VALUE 4 1125 31 367 TAPE6W WT 6,0 TAPE WRITE INSTRUCTION 8 1126 M %U6 000 W 32 368 DCW 00 CURRENT PROCESSING DELAY COUNT 2 1135 32 369 DCW 000 CURRENT RECORDS UNTIL REWIND 3 1138 32 370 DCW -0001 CURRENT REWIND DELAY COUNT 4 1142 32 371 * 372 RDELAY DCW 0000 DELAY COUNTER FOR EOT REWINDS 4 1146 32 373 KM1 DCW -0001 CONSTANT -1 4 1150 32 374 * 375 IMAGE DS 1 STORAGE FOR IMAGE STARTS HERE 1151 376 END START / 336 080 HZG DEMO -- TAPE EXERCISER SGSVU PAGE 8 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS DADDR 641 DADDR1 645 DADDR2 650 DCNTI 658 DCOUNT 660 DFAC 640 DISK 500 DISKA 523 DISKB 584 DISKW 607 DISKX 624 DISKY 617 DK1 636 DK2 638 DMUL 631 DPROD 634 GETL 958 GETOFF 919 GETX 984 GETXX 1010 GMWM 100 GOTEM 689 I3LEN 4 I3PMAX 11 I3RDLY 16 I3WMAX 8 I4LEN 21 I4PMAX 28 I4RDLY 33 I4WMAX 25 I5LEN 38 I5PMAX 45 I5RDLY 50 I5WMAX 42 I6LEN 55 I6PMAX 62 I6RDLY 67 I6WMAX 59 IDDLY 75 IDPSW 80 IMAGE 1151 IRDLY 72 K1000 1025 KB 83 KC 84 KM1 1150 KONE 656 KP1 82 KZERO 653 NOP 465 P16K 1030 PRINT 707 PRINTA 745 PRINTX 761 RDELAY 1146 RDEXIT 703 RDIMAG 661 RLEN 1017 RLOOP 665 ROFF 1022 RTHOU 1019 START 336 SWLOOP 450 T3PAKT 1033 T3RDLY 1041 T4PAKT 1061 T4RDLY 1069 T5PAKT 1089 T5RDLY 1097 T6PAKT 1117 T6RDLY 1125 TAPE3W 1042 TAPE4W 1070 TAPE5W 1098 TAPE6W 1126 TAPEX 765 TAPEXA 799 TAPEXB 829 TAPEXE 896 TAPEXX 892 TPCNT 20+X3 TPMAX 5+X3 TRCNT 27+X3 TRDLY 10+X3 TWCNT 23+X3 TWMAX 2+X3 TWRIT 18+X3 X1 89 X2 94 X3 99