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 * 125 ORG 81 RECORD MARK AT 81 WILL BE 0081 126 DC @'.....@ SENTINEL AFTER LAST LINE OF IMAGE 6 0086 4 127 X1 DCW 081 3 0089 4 128 DC @..@ 2 0091 4 129 X2 DCW 010 3 0094 4 130 ORG 333 0333 131 03 33 START CS 80 4 0333 / 080 5 132 03 37 SW 1 4 0337 , 001 5 133 * 134 * LOAD PARAMETERS 135 * 136 03 41 R 1 0341 1 5 137 03 42 MCW I3PMAX,T3PMAX TAPE 3 PROCESSING DELAY 7 0342 M 011 '32 5 138 03 49 MCW I4PMAX,T4PMAX TAPE 4 PROCESSING DELAY 7 0349 M 028 /79 5 139 03 56 MCW I5PMAX,T5PMAX TAPE 5 PROCESSING DELAY 7 0356 M 045 T26 5 140 03 63 MCW I6PMAX,T6PMAX TAPE 6 PROCESSING DELAY 7 0363 M 062 U73 5 141 03 70 MCW IDDLY,DCNTI DISK DELAY COUNT 7 0370 M 075 841 6 142 03 77 MCW I3WMAX,T3WMAX TAPE 3 RECORDS UNTIL REWIND 7 0377 M 008 '37 6 143 03 84 MCW I4WMAX,T4WMAX TAPE 4 RECORDS UNTIL REWIND 7 0384 M 025 /84 6 144 03 91 MCW I5WMAX,T5WMAX TAPE 5 RECORDS UNTIL REWIND 7 0391 M 042 T31 6 145 03 98 MCW I6WMAX,T6WMAX TAPE 6 RECORDS UNTIL REWIND 7 0398 M 059 U78 6 146 04 05 MCW I3RDLY,T3RDLY TAPE 3 REWIND DELAY 7 0405 M 016 '44 7 147 04 12 MCW I4RDLY,T4RDLY TAPE 4 REWIND DELAY 7 0412 M 033 /91 7 HZG DEMO SGSVU PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 04 19 MCW I5RDLY,T5RDLY TAPE 5 REWIND DELAY 7 0419 M 050 T38 7 149 04 26 MCW I6RDLY,T6RDLY TAPE 6 REWIND DELAY 7 0426 M 067 U85 7 150 04 33 MCW IRDLY,RDELAY REWIND FULL TAPE DELAY COUNT 7 0433 M 072 U93 7 151 * 152 * CALCULATE TAPE WRITE ADDRESSES FROM RECORD LENGTHS 153 * 154 04 40 MCW I3LEN,RLEN STORE TAPE 3 RECORD LENGTH 7 0440 M 004 657 8 155 04 47 B GETOFF CALULATE OFFSET = - RLEN 4 0447 B 592 8 156 04 51 MA ROFF,TAPE3W&6 SET TAPE 3 ADDRESS 7 0451 # 662 995 8 157 04 58 MCW I4LEN,RLEN STORE TAPE 4 RECORD LENGTH 7 0458 M 021 657 8 158 04 65 B GETOFF CALCULATE OFFSET = - RLEN 4 0465 B 592 8 159 04 69 MA ROFF,TAPE4W&6 SET TAPE 4 ADDRESS 7 0469 # 662 /42 8 160 04 76 MCW I5LEN,RLEN STORE TAPE 5 RECORD LENGTH 7 0476 M 038 657 9 161 04 83 B GETOFF CALCULATE OFFSET = - RLEN 4 0483 B 592 9 162 04 87 MA ROFF,TAPE5W&6 SET TAPE 5 ADDRESS 7 0487 # 662 S89 9 163 04 94 MCW I6LEN,RLEN STORE TAPE 6 RECORD LENGTH 7 0494 M 055 657 9 164 05 01 B GETOFF CALCULATE OFFSET = - RLEN 4 0501 B 592 9 165 05 05 MA ROFF,TAPE6W&6 SET TAPE 6 ADDRESS 7 0505 # 662 U36 9 166 * 167 * READ THE IMAGE AND STORE IT. THE FIRST CHARACTER AFTER THE LAST 168 * ONE IN THE STORAGE AREA WILL BE A RECORD MARK. 169 * 170 05 12 RLOOP R 1 0512 1 9 171 05 13 LCA 81,IMAGE&X1 STORE ONE LINE OF THE IMAGE 7 0513 L 081 V'X 10 172 05 20 B GOTEM,A DONE? 5 0520 B 536 A 10 173 05 25 MA START&3,X1 ADD 80 TO X1 7 0525 # 336 089 10 174 05 32 B RLOOP GET ANOTHER ONE 4 0532 B 512 10 175 * 176 05 36 GOTEM MCW START&3,X1 RESET X1 TO 80 7 0536 M 336 089 10 177 05 43 CS 332 4 0543 / 332 10 178 05 47 CS 1 0547 / 10 179 05 48 CC 1 2 0548 F 1 11 180 05 50 H WAIT FOR THE SWITCHES TO BE SET 1 0550 . 11 181 * 182 * CHECK SWITCHES 183 * 184 05 51 SWLOOP C KZERO,KZERO 7 0551 C 833 833 11 185 05 58 PRNTSW BSS PRINT,C CHANGED BY PRINT TO *BE* 5 0558 B 844 C 11 186 05 63 BSS DISK,B 5 0563 B 666 B 11 187 05 68 BSS TAPE3,D 5 0568 B 902 D 11 188 05 73 BSS TAPE4,E 5 0573 B '49 E 11 189 05 78 BSS TAPE5,F 5 0578 B /96 F 12 190 05 83 BSS TAPE6,G 5 0583 B T43 G 12 191 05 88 B SWLOOP 4 0588 B 551 12 192 * 193 * CALCULATE THE OFFSET TO TAPE WRITE ADDRESSES, GIVEN THE 194 * RECORD LENGTH IN RLEN 195 * 196 05 92 GETOFF SBR GETX&3 4 0592 H 627 12 197 05 96 LCA P16K,ROFF START WITH 16000 7 0596 L V02 662 12 HZG DEMO SGSVU PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 06 03 S RLEN,ROFF DECREASE BY RECORD LENGTH 7 0603 S 657 662 12 199 06 10 MZ RLEN,ROFF CLEAR ZONE 7 0610 Y 657 662 12 200 06 17 GETL C KZERO,RTHOU THOUSANDS DOWN TO ZERO? 7 0617 C 833 659 13 201 06 24 GETX BE 0 YES, DONE 5 0624 B 000 S 13 202 06 29 MA K1000,ROFF ADD 1000 TO OFFSET 7 0629 # 665 662 13 203 06 36 S KP1,RTHOU SUBTRACT ONE FROM THOUSANDS 7 0636 S V03 659 13 204 06 43 MZ RLEN,RTHOU CLEAR ZONE 7 0643 Y 657 659 13 205 06 50 B GETL 4 0650 B 617 13 206 * 207 06 54 RLEN DCW 0000 RECORD LENGTH 4 0657 14 208 06 58 RTHOU DCW 00 THOUSANDS PART OF OFFSET 2 0659 14 209 06 60 ROFF DC 000 OFFSET TO TAPE ADDRESS = - RLEN 3 0662 14 210 06 63 K1000 DSA 1000 ADDRESS CONSTANT 1000 3 0665 '00 14 211 * 212 * 1311 DISK EXERCISER 213 * 214 06 66 DISK SBR DISKX&3 4 0666 H 807 14 215 06 70 C KONE,DCOUNT IS THE COUNT ONE? 7 0670 C 836 843 14 216 06 77 BE DISKA YES, EXERCISE THE DISK 5 0677 B 700 S 14 217 06 82 S KP1,DCOUNT SUBTRACT ONE FROM THE COUNT 7 0682 S V03 843 14 218 06 89 MZ KZERO,DCOUNT CLEAR THE ZONE 7 0689 Y 833 843 15 219 06 96 B DISKX GO TO SUBR EXIT 4 0696 B 804 15 220 07 00 DISKA LCA DK2,DMUL A CRUDE MULTIPLICATIVE RNG 7 0700 L 818 811 15 221 07 07 M DFAC,DPROD 7 0707 @ 820 814 15 222 07 14 MCW DPROD,DK2 7 0714 M 814 818 15 223 07 21 LCA KONE,DADDR1 7 0721 L 836 825 15 224 07 28 MCW DK1,DADDR1 7 0728 M 816 825 16 225 07 35 A DADDR1 4 0735 A 825 16 226 07 39 MCW KONE,DADDR2 7 0739 M 836 830 16 227 07 46 MCW %F0,DADDR,R SEEK DISK 8 0746 M %F0 821 R 16 228 07 54 MCW DCNTI,DCOUNT 7 0754 M 841 843 16 229 07 61 B DISKX SKIP PRINTING DISK ADDRESSES 4 0761 B 804 16 230 07 65 MCW DK1,200&X2 MOVE DISK ADDRESS TO PRINT AREA 7 0765 M 816 2!0 17 231 07 72 BCE DISKW,X2-2,1 INDEX HIGH-ORDER DIGHT 1? 8 0772 B 784 092 1 17 232 07 80 B DISKY NO 4 0780 B 797 17 233 07 84 DISKW W YES, WRITE THE ADDRESSES 1 0784 2 17 234 07 85 CS 332 4 0785 / 332 17 235 07 89 CS 1 0789 / 17 236 07 90 LCA KZERO,X2 CLEAR INDEX 7 0790 L 833 094 17 237 07 97 DISKY A KTEN,X2 ADD TEN TO INDEX 7 0797 A 839 094 18 238 08 04 DISKX B 0 4 0804 B 000 18 239 * 240 08 08 DMUL DCW 0000 4 0811 18 241 DPROD DC 000 3 0814 18 242 08 15 DK1 DCW 91 2 0816 18 243 DK2 DC 57 2 0818 18 244 08 19 DFAC DCW 83 2 0820 18 245 DADDR DC @*@ 1 0821 18 246 DADDR1 DC 0000 4 0825 18 247 DADDR2 DC 00001 5 0830 18 HZG DEMO SGSVU PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 08 31 KZERO DCW 000 CONSTANT ZERO 3 0833 18 249 08 34 KONE DCW 001 3 0836 19 250 08 37 KTEN DCW 010 3 0839 19 251 08 40 DCNTI DCW 00 INITIAL DISK DELAY COUNT 2 0841 19 252 08 42 DCOUNT DCW 01 CURRENT DISK DELAY COUNT 2 0843 19 253 * 254 * PRINT THE PICTURE 255 * 256 08 44 PRINT SBR PRINTX&3 4 0844 H 901 19 257 08 48 MCW KS,PRNTSW&4 CHANGE ENTRY TEST TO BE 7 0848 M V04 562 19 258 08 55 LCA IMAGE&X1,306 7 0855 L V'X 306 19 259 08 62 W 1 0862 2 20 260 08 63 B PRINTA,IMAGE&1&X1,' LAST IMAGE? 8 0863 B 882 V'Y ' 20 261 08 71 MA START&3,X1 ADD 80 TO X1 7 0871 # 336 089 20 262 08 78 B PRINTX 4 0878 B 898 20 263 08 82 PRINTA MCW START&3,X1 RESET X1 TO 80 7 0882 M 336 089 20 264 08 89 CC 1 2 0889 F 1 20 265 08 91 MCW KC,PRNTSW&4 CHANGE ENTRY TEST TO BSS C 7 0891 M V05 562 20 266 08 98 PRINTX B 0 4 0898 B 000 21 267 * 268 * TAPE 3 EXERCISE ROUTINE 269 * 270 09 02 TAPE3 SBR TAPE3X&3 4 0902 H '14 21 271 09 06 BWZ TAPE3A,T3RCNT,K ENOUGH REWIND DELAY? 8 0906 V 925 '48 K 21 272 09 14 S KP1,T3RCNT 7 0914 S V03 '48 21 273 09 21 B TAPE3X 4 0921 B '11 21 274 09 25 TAPE3A C KONE,T3PCNT ENOUGH PROCESSING DELAY? 7 0925 C 836 '34 21 275 09 32 BE TAPE3B 5 0932 B 955 S 21 276 09 37 S KP1,T3PCNT DECR PROCESSING DELAY COUNT 7 0937 S V03 '34 22 277 09 44 MZ KZERO,T3PCNT 7 0944 Y 833 '34 22 278 09 51 B TAPE3X 4 0951 B '11 22 279 09 55 TAPE3B LCA T3RDLY,T3RCNT RWD DELAY DEPENDING ON REC CNT 7 0955 L '44 '48 22 280 09 62 BWZ TAPE3E,T3WCNT,K TIME TO REWIND? 8 0962 V '15 '40 K 22 281 09 70 LCA RDELAY,T3RCNT DELAY FOR FULL REEL REWIND 7 0970 L U93 '48 23 282 09 77 BEF TAPE3E 5 0977 B '15 K 23 283 09 82 LCA KM1,T3RCNT SET FOR NO REWIND DELAY 7 0982 L U97 '48 23 284 09 89 TAPE3W MCW %U3,GMWM,W 8 0989 M %U3 V0W W 23 285 09 97 S KP1,T3WCNT DECREMENT WRITE COUNTER 7 0997 S V03 '40 23 286 10 04 MCW T3PMAX,T3PCNT STORE PROCESSING DELAY 7 1004 M '32 '34 24 287 10 11 TAPE3X B 0 4 1011 B 000 24 288 10 15 TAPE3E CU %U3,R 5 1015 U %U3 R 24 289 10 20 MCW T3WMAX,T3WCNT RE-INITIALIZE WRITE COUNT 7 1020 M '37 '40 24 290 10 27 B TAPE3X 4 1027 B '11 24 291 * 292 10 31 T3PMAX DCW 00 2 1032 24 293 10 33 T3PCNT DCW 01 2 1034 24 294 10 35 T3WMAX DCW 000 MAX RECORDS TO WRITE UNTIL REWIND 3 1037 25 295 10 38 T3WCNT DCW 100 RECORDS TO WRITE UNTIL REWIND 3 1040 25 296 10 41 T3RDLY DCW 0000 DELAY FOR REWIND 4 1044 25 297 10 45 T3RCNT DCW -0001 COUNT WHILE REWINDING 4 1048 25 HZG DEMO SGSVU PAGE 5 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 * 299 * TAPE 4 EXERCISE ROUTINE 300 * 301 10 49 TAPE4 SBR TAPE4X&3 4 1049 H /61 25 302 10 53 BWZ TAPE4A,T4RCNT,K ENOUGH REWIND DELAY? 8 1053 V '72 /95 K 25 303 10 61 S KP1,T4RCNT 7 1061 S V03 /95 25 304 10 68 B TAPE4X 4 1068 B /58 26 305 10 72 TAPE4A C KONE,T4PCNT ENOUGH PROCESSING DELAY? 7 1072 C 836 /81 26 306 10 79 BE TAPE4B 5 1079 B /02 S 26 307 10 84 S KP1,T4PCNT DECR PROCESSING DELAY COUNT 7 1084 S V03 /81 26 308 10 91 MZ KZERO,T4PCNT 7 1091 Y 833 /81 26 309 10 98 B TAPE4X 4 1098 B /58 26 310 11 02 TAPE4B LCA T4RDLY,T4RCNT RWD DELAY DEPENDING ON REC CNT 7 1102 L /91 /95 27 311 11 09 BWZ TAPE4E,T4WCNT,K TIME TO REWIND? 8 1109 V /62 /87 K 27 312 11 17 LCA RDELAY,T4RCNT DELAY FOR FULL REEL REWIND 7 1117 L U93 /95 27 313 11 24 BEF TAPE4E 5 1124 B /62 K 27 314 11 29 LCA KM1,T4RCNT SET FOR NO REWIND DELAY 7 1129 L U97 /95 27 315 11 36 TAPE4W MCW %U4,GMWM,W 8 1136 M %U4 V0W W 28 316 11 44 S KP1,T4WCNT DECREMENT WRITE COUNTER 7 1144 S V03 /87 28 317 11 51 MCW T4PMAX,T4PCNT STORE PROCESSING DELAY 7 1151 M /79 /81 28 318 11 58 TAPE4X B 0 4 1158 B 000 28 319 11 62 TAPE4E CU %U4,R 5 1162 U %U4 R 28 320 11 67 MCW T4WMAX,T4WCNT RE-INITIALIZE WRITE COUNT 7 1167 M /84 /87 28 321 11 74 B TAPE4X 4 1174 B /58 29 322 * 323 11 78 T4PMAX DCW 00 2 1179 29 324 11 80 T4PCNT DCW 01 2 1181 29 325 11 82 T4WMAX DCW 000 MAX RECORDS TO WRITE UNTIL REWIND 3 1184 29 326 11 85 T4WCNT DCW 100 RECORDS TO WRITE UNTIL REWIND 3 1187 29 327 11 88 T4RDLY DCW 0000 DELAY FOR REWIND 4 1191 29 328 11 92 T4RCNT DCW -0001 COUNT WHILE REWINDING 4 1195 29 329 * 330 * TAPE 5 EXERCISE ROUTINE 331 * 332 11 96 TAPE5 SBR TAPE5X&3 4 1196 H T08 30 333 12 00 BWZ TAPE5A,T5RCNT,K ENOUGH REWIND DELAY? 8 1200 V S19 T42 K 30 334 12 08 S KP1,T5RCNT 7 1208 S V03 T42 30 335 12 15 B TAPE5X 4 1215 B T05 30 336 12 19 TAPE5A C KONE,T5PCNT ENOUGH PROCESSING DELAY? 7 1219 C 836 T28 30 337 12 26 BE TAPE5B 5 1226 B S49 S 30 338 12 31 S KP1,T5PCNT DECR PROCESSING DELAY COUNT 7 1231 S V03 T28 31 339 12 38 MZ KZERO,T5PCNT 7 1238 Y 833 T28 31 340 12 45 B TAPE5X 4 1245 B T05 31 341 12 49 TAPE5B LCA T5RDLY,T5RCNT RWD DELAY DEPENDING ON REC CNT 7 1249 L T38 T42 31 342 12 56 BWZ TAPE5E,T5WCNT,K TIME TO REWIND? 8 1256 V T09 T34 K 31 343 12 64 LCA RDELAY,T5RCNT DELAY FOR FULL REEL REWIND 7 1264 L U93 T42 32 344 12 71 BEF TAPE5E 5 1271 B T09 K 32 345 12 76 LCA KM1,T5RCNT SET FOR NO REWIND DELAY 7 1276 L U97 T42 32 346 12 83 TAPE5W MCW %U5,GMWM,W 8 1283 M %U5 V0W W 32 347 12 91 S KP1,T5WCNT DECREMENT WRITE COUNTER 7 1291 S V03 T34 32 HZG DEMO SGSVU PAGE 6 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 12 98 MCW T5PMAX,T5PCNT STORE PROCESSING DELAY 7 1298 M T26 T28 33 349 13 05 TAPE5X B 0 4 1305 B 000 33 350 13 09 TAPE5E CU %U5,R 5 1309 U %U5 R 33 351 13 14 MCW T5WMAX,T5WCNT RE-INITIALIZE WRITE COUNT 7 1314 M T31 T34 33 352 13 21 B TAPE5X 4 1321 B T05 33 353 * 354 13 25 T5PMAX DCW 00 2 1326 33 355 13 27 T5PCNT DCW 01 2 1328 33 356 13 29 T5WMAX DCW 000 MAX RECORDS TO WRITE UNTIL REWIND 3 1331 34 357 13 32 T5WCNT DCW 100 RECORDS TO WRITE UNTIL REWIND 3 1334 34 358 13 35 T5RDLY DCW 0000 DELAY FOR REWIND 4 1338 34 359 13 39 T5RCNT DCW -0001 COUNT WHILE REWINDING 4 1342 34 360 * 361 * TAPE 6 EXERCISE ROUTINE 362 * 363 13 43 TAPE6 SBR TAPE6X&3 4 1343 H U55 34 364 13 47 BWZ TAPE6A,T6RCNT,K ENOUGH REWIND DELAY? 8 1347 V T66 U89 K 34 365 13 55 S KP1,T6RCNT 7 1355 S V03 U89 34 366 13 62 B TAPE6X 4 1362 B U52 35 367 13 66 TAPE6A C KONE,T6PCNT ENOUGH PROCESSING DELAY? 7 1366 C 836 U75 35 368 13 73 BE TAPE6B 5 1373 B T96 S 35 369 13 78 S KP1,T6PCNT DECR PROCESSING DELAY COUNT 7 1378 S V03 U75 35 370 13 85 MZ KZERO,T6PCNT 7 1385 Y 833 U75 35 371 13 92 B TAPE6X 4 1392 B U52 35 372 13 96 TAPE6B LCA T6RDLY,T6RCNT RWD DELAY DEPENDING ON REC CNT 7 1396 L U85 U89 36 373 14 03 BWZ TAPE6E,T6WCNT,K TIME TO REWIND? 8 1403 V U56 U81 K 36 374 14 11 LCA RDELAY,T6RCNT DELAY FOR FULL REEL REWIND 7 1411 L U93 U89 36 375 14 18 BEF TAPE6E 5 1418 B U56 K 36 376 14 23 LCA KM1,T6RCNT SET FOR NO REWIND DELAY 7 1423 L U97 U89 36 377 14 30 TAPE6W MCW %U6,GMWM,W 8 1430 M %U6 V0W W 37 378 14 38 S KP1,T6WCNT DECREMENT WRITE COUNTER 7 1438 S V03 U81 37 379 14 45 MCW T6PMAX,T6PCNT STORE PROCESSING DELAY 7 1445 M U73 U75 37 380 14 52 TAPE6X B 0 4 1452 B 000 37 381 14 56 TAPE6E CU %U6,R 5 1456 U %U6 R 37 382 14 61 MCW T6WMAX,T6WCNT RE-INITIALIZE WRITE COUNT 7 1461 M U78 U81 37 383 14 68 B TAPE6X 4 1468 B U52 38 384 * 385 14 72 T6PMAX DCW 00 2 1473 38 386 14 74 T6PCNT DCW 01 2 1475 38 387 14 76 T6WMAX DCW 000 MAX RECORDS TO WRITE UNTIL REWIND 3 1478 38 388 14 79 T6WCNT DCW 100 RECORDS TO WRITE UNTIL REWIND 3 1481 38 389 14 82 T6RDLY DCW 0000 DELAY FOR REWIND 4 1485 38 390 14 86 T6RCNT DCW -0001 COUNT WHILE REWINDING 4 1489 38 391 * 392 14 90 RDELAY DCW 0000 DELAY COUNTER FOR EOT REWINDS 4 1493 39 393 14 94 KM1 DCW -0001 CONSTANT -1 4 1497 39 394 * 395 14 98 P16K DCW &16000 5 1502 39 396 15 03 KP1 DCW &1 CONSTANT +1 1 1503 39 397 15 04 KS DCW @S@ CONSTANT S TO CHANGE BSS TO BE 1 1504 39 HZG DEMO SGSVU PAGE 7 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 15 05 KC DCW @C@ CONSTANT C TO CHANGE BE TO BSS 1 1505 39 399 DS 4000 5505 400 GMWM DCW @"@ 1 5506 GMARK 40 401 IMAGE DS 1 5507 402 END START / 333 080 HZG DEMO SGSVU PAGE 8 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS DADDR 821 DADDR1 825 DADDR2 830 DCNTI 841 DCOUNT 843 DFAC 820 DISK 666 DISKA 700 DISKW 784 DISKX 804 DISKY 797 DK1 816 DK2 818 DMUL 811 DPROD 814 GETL 617 GETOFF 592 GETX 624 GMWM 5506 GOTEM 536 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 IMAGE 5507 IRDLY 72 K1000 665 KC 1505 KM1 1497 KONE 836 KP1 1503 KS 1504 KTEN 839 KZERO 833 P16K 1502 PRINT 844 PRINTA 882 PRINTX 898 PRNTSW 558 RDELAY 1493 RLEN 657 RLOOP 512 ROFF 662 RTHOU 659 START 333 SWLOOP 551 T3PCNT 1034 T3PMAX 1032 T3RCNT 1048 T3RDLY 1044 T3WCNT 1040 T3WMAX 1037 T4PCNT 1181 T4PMAX 1179 T4RCNT 1195 T4RDLY 1191 T4WCNT 1187 T4WMAX 1184 T5PCNT 1328 T5PMAX 1326 T5RCNT 1342 T5RDLY 1338 T5WCNT 1334 T5WMAX 1331 T6PCNT 1475 T6PMAX 1473 T6RCNT 1489 T6RDLY 1485 T6WCNT 1481 T6WMAX 1478 TAPE3 902 TAPE3A 925 TAPE3B 955 TAPE3E 1015 TAPE3W 989 TAPE3X 1011 TAPE4 1049 TAPE4A 1072 TAPE4B 1102 TAPE4E 1162 TAPE4W 1136 TAPE4X 1158 TAPE5 1196 TAPE5A 1219 TAPE5B 1249 TAPE5E 1309 TAPE5W 1283 TAPE5X 1305 TAPE6 1343 TAPE6A 1366 TAPE6B 1396 TAPE6E 1456 TAPE6W 1430 TAPE6X 1452 X1 89 X2 94