JOB IRG MEASUREMENT - WRITE 5500B ORG 377 377 BCE 399,1269,1 USE WHEN PROGRAM IS LOADED FROM TAPE 385 BIN 1288, ,, ORG 399 399 H STOP TO SET UP DR 4 & CHANGE DELAY TIMES 400 CS 332 START TEST 404 CS 405 BCE 1200,1252,1 BR TO TITLE PRINT ROUTINE IF 1 IN S52 413 RWD 4 REWIND DRIVE 4 418 SW 199 SET WM TO LIMIT DELAY INSTR 422 B 850 BR TO SET INSTR FOR MINIMUM DELAY 426 MCW 91,454 SET TAPE WRITE B ADDR TO S40 433 MCW 85,88 SET GAP COUNTER TO 001 440 CS 299 CLEAR PRINT AREA 444 CW 452 CLEAR WM FROM B ADDR OF TAPE WRITE INST. 448 WTW 4,1240 WRITE FIRST RECORD OF A PAIR 456 BIN 489, VARIABLE DELAY 461 CS 489,200 ,, 468 CS 489,279 ,, 475 MCS 199,200 ,, 482 MCS 199,200 ,, 489 WTW 4,1119 WRITE SECOND RECORD OF A PAIR 497 BER 550 BRANCH IF WRITE ERROR 502 NOP 82,467 INSTR USED TO INCREASE DELAY FOR 509 NOP 0,0 GROUPS 2, 3, AND 4 516 NOP 0,0 ,, 523 BCE 595,86,1 BR TO WR SPACER REC IF LAST GAP OF GROUP 531 A 82,88 ADD 1 TO GAP COUNTER 538 BSS 570,B B ON TO VARY LENGTH OF FIRST REC OF PAIR 543 BIN 444, BRANCH TO WRITE NEXT PAIR OF RECORDS ORG 550 550 BSP 4 BACKSPACE 555 BSP 4 BACKSPACE 560 SKP 4 SKIP 565 BIN 444, BRANCH TO WRITE NEXT PAIR OF RECORDS 570 SW 452 SUBTR 10 FROM B ADDR OF TAPE WRITE TO 574 A 94,454 INCREASE LENGTH OF FIRST REC OF PAIR 581 B 444 BRANCH TO WRITE NEXT PAIR OF RECORDS 585 BSP 4 BACKSPACE 590 SKP 4 SKIP 595 WTW 4,1116 WRITE SPACER RECORD 603 BER 585 BRANCH IF WRITE ERROR 608 BIN 620, BRANCH TO LOAD NEXT TYPE OF DELAY INSTR ORG 620 620 LCA 1124,460 SET UP DELAY INSTR FOR 1 TO 2 MS DLY 627 MCW 531,502 ,, 634 MCW 1091,611 ,, 641 BIN 426, BRANCH TO WRITE WITH 1 TO 2 MS DLY ORG 650 650 LCA 1131,467 SET UP DELAY INSTR FOR 2 TO 4 MS DLY 657 MN 498,505 ,, 664 MCW 1095,611 ,, 671 BIN 426, BRANCH TO WRITE WITH 2 TO 4 MS DLY ORG 680 680 LCA 1145,474 SET UP DELAY INSTR FOR 4 TO 12 MS DLY 687 LCA ,, 688 LCA 1166,522 ,, 695 LCA ,, 696 LCA ,, 697 MCW 1099,611 ,, 704 BIN 426, BRANCH TO WRITE WITH 4 TO 12 MS DLY ORG 720 720 MCW 1171,506 SET UP DELAY INSTR FOR 12 MS FIXED DLY 727 MCW 1103,611 ,, 734 BIN 426, BRANCH TO WRITE WITH 12 MS FIXED DLY ORG 740 740 LCA 1079,488 SET UP DELAY INSTR FOR 5 SEC FIXED DLY 747 LCA ,, 748 LCA ,, 749 LCA ,, 750 SW 484 ,, 754 MN 540,529 ALTER INSTR IN 523 TO COUNT 10 GAPS 761 MN 540,577 ALTER INSTR IN 523 TO SUBTR 100 FROM 768 MCW 1107,611 B ADDR OF TAPE WRITE INSTRUCTION 775 BIN 426, BRANCH TO WRITE WITH 5 SEC FIXED DLY ORG 791 791 LCA 196,479 SET UP INSTR TO BKSP REWRITE 798 LCA ,, 799 LCA ,, 800 LCA ,, 801 LCA 132,519 ,, 808 LCA ,, 809 LCA ,, 810 MCW 1111,611 ,, 817 BIN 426, BR TO BKSP-REWR SECOND RECORD OF PAIR ORG 830 830 WTM 4 WRITE TAPE MARK 835 RWD 4 REWIND 840 BIN 348, BRANCH TO LOAD READ PROGRAM ORG 850 850 LCA 158,488 SET UP INSTRUCTIONS FOR MINIMUM DELAY 857 LCA 158 ,, 861 LCA ,, 862 LCA ,, 863 LCA ,, 864 LCA 172,522 ,, 871 LCA 172 ,, 875 LCA ,, 876 MN 507,529 ,, 883 MN 582,577 ,, 890 MCW 1087,611 ,, 897 BIN 426, BRANCH TO BEGIN WRITING WITH MINIMUM DLY ORG 1052 1052 MCW 104,109 CONSTANTS TO MODIFY DELAY INSTRUCTIONS 1059 A 104,109 ,, 1066 C 100,107 ,, 1083 DCW @N0B468/ @ ,, 1099 DCW @B620B650B680B720@ UNCONDITIONAL BRANCH INSTRUCTIONS 1115 DCW @B740B791B830 @ FOR GROUPS 2 TO 7 1119 DCW @IRG"@ SPACER RECORD TM IN /19 1120 BER 555 CONSTANTS TO MODIFY DELAY INSTR 1125 C 199,199 ,, 1132 MCS 274,275 ,, 1139 CS 475,200 ,, 1146 A 82,474 ,, 1153 A 85,481 ,, 1160 A 85,488 ,, 1167 BIN 523, ,, ORG 1180 1199 DCW @ @ ORG 82 82 R 1 CONSTANT 88 DSA 5777&X1 GAP COUNTER 91 DSA 1240 CONSTANT - B ADDR OF FIRST TAPE WR INST 94 DSA 3990 CONSTANT TO SUBTRACT 10 97 DSA 3900 CONSTANT TO SUBTRACT 100 104 DCW @5000005@ CONSTANTS 105 MIZ 5777&X1,X ,, 110 R ,, 115 BCE 523,105,1 CONSTANTS TO MODIFY DELAY INSTR 123 BSP 4 ,, 128 BIN 468, ,, 133 BIN 489, ,, 138 CS 489,200 ,, 145 CS 489,279 ,, 152 MCS 199,200 ,, 159 NOP 82,467 ,, 166 NOP 0,0 ,, 173 N00 ,, 178 MCW 111,106 ,, 185 A 83,106 ,, 192 BIN 489, ,, ORG 1250 1250 DCW @"@ GROUP MARK IN S50 END