ORION 2
EXTRACODE
PROGRAMS
Settings
Mode Table
LO & Res
F140
F141
F142 PT In
F142 PT Out
F142 Drum
F142 Tape
F142 Unbuff
F142 Buff
F142 CP
F142 CR
Perseus
154 155
Mode 13
102 103
125 126
Division
Table 0
Table 1
ORION 2
EXTRACODE
PROGRAMS
Settings
Mode Table
LO & Res
F140
F141
F142 PT In
F142 PT Out
F142 Drum
F142 Tape
F142 Unbuff
F142 Buff
F142 CP
F142 CR
Perseus
154 155
Mode 13
102 103
125 126
Division
Table 0
Table 1
DOCUMENT XCODE/2.5E/6APR67 L490=V3 | MACHINE CONFIGURATION L491=5 | XCODE VERSION RES *DRU 3200 X L490 0 X 0 0 ( | DP102 - LD - 19JAN66 L200=14 | EOS L204=0 | DRUM L205=1 | MT L500=2 | 2 PT READERS L501=9 L502=10 L510=1 | 1 PT PUNCH L511=11 L520=1 | 1 UNBUFF ANELEX L521=8 L560=7 | 7 MT DECKS L561=1 | 1 LD CONTROL L563=1 | POTTER DECKS L570=12 | FLX L571=13 | FLO ) X L490 1 X 0 0 ( | DP102 - HD - 19JAN66 L200=14 | EOS L204=0 | DRUM L205=1 | MT L500=2 | 2 PT READERS L501=9 L502=10 L510=1 | 1 PT PUNCH L511=11 L520=1 | 1 UNBUFF ANELEX L521=8 L560=10 | 10 MT DECKS L561=2 | 2 HD CONTROLS L563=1 | POTTER DECKS L570=12 | FLX L571=13 | FLO ) X L490 2 X 0 0 ( | DP102 - MIXED - 15JUN66 L200=14 | EOS L204=0 | DRUM L205=1 | MT L500=2 | 2 PT READERS L501=9 L502=10 L510=1 | 1 PT PUNCH L511=11 L520=1 | 1 UNBUFF ANELEX L521=8 L560=8 | 8 HD DECKS L569=7 | 7 LD DECKS L561=1 | 1 LD CONTROL L562=2 | 2 HD CONTROLS L563=1 | POTTER DECKS L570=12 | FLX L571=13 | FLO ) X L490 10 X 0 0 ( | PRUDENTIAL O.B. - 7NOV66 L200=25 | EOS L204=0 | DRUM L205=1 | MT L500=2 | 2 PT READERS L501=16 L502=17 L510=1 | 1 PT PUNCH L511=22 L530=2 | 2 BUFF ANELEX PRINTERS L531=12 L532=13 L540=1 | 1 CARD PUNCH L541=14 L550=2 | 2 CARD READERS L551=8 L552=10 L206=10 L560=10 | 10 MT DECKS L562=2 | 2 HD MT CONTROLS L563=1 | POTTER DECKS L570=24 | FLX L571=23 | FLO ) X L490 20 X 0 0 ( | SAMLAS - 24SEP65 L200=17 | EOS L204=0 | DRUM L205=1 | MT CONTROL L500=2 | 2 PT READERS L501=12 L502=13 L510=1 | 1 PT PUNCH L511=16 L530=2 | 2 BUFF ANELEX PRINTERS L531=8 L532=9 L565=1 | ANELEX SERIES 5 L550=1 | 1 CARD READER L551=10 L560=7 | 7 MT DECKS L561=1 | 1 LD MT CONTROL L563=1 | POTTER DECKS L570=15 | FLX L571=14 | FLO L580=1 | PERSEUS TAPE ) X L490 30 X 0 0 ( | PRUDENTIAL I.B. - 24SEP65 L200=25 | EOS L204=0 | DRUM L205=1 | MT L500=2 | 2 PT READERS L501=16 L502=17 L510=1 | 1 PT PUNCH L511=22 L530=2 | 2 BUFF ANELEX PRINTERS L531=12 L532=13 L565=1 | ANELEX SERIES 5 L540=1 | 1 CARD PUNCH L541=14 L550=2 | 2 CARD READERS L551=8 L552=10 L206=10 L560=10 | 10 MT DECKS L562=2 | 2 HD MT CONTROLS L563=1 | POTTER DECKS L570=24 | FLX L571=23 | FLO ) X L490 40 X 0 0 ( | BEECHAMS - 23 JUN 66 L200=21 | EOS L204=0 | DRUM L205=1 | MT L500=3 | 3 PT READERS L501=16 L502=17 L503=18 L510=2 | 2 PT PUNCHES L511=14 L512=15 L610=2 | 2 665 PRINTERS L611=8 L612=9 L550=2 | 2 CARD READERS L551=10 L552=12 L560=10 | 10 MT DECKS L561=2 | 2 LD MT CONTROLS L570=20 | FLX L571=19 | FLO ) X L490 50 X 0 0 ( | NORWICH UNION - 1APR67 L200=24 | EOS L204=0 | DRUM L205=1 | MT L500=2 | 2 PT READERS L501=12 L502=13 L510=2 | 2 PT PUNCHES L511=14 L512=15 L520=2 | 2 UNBUFF PRINTERS L521=8 L522=9 L540=2 | 2 CARD PUNCHES L541=18 L542=20 L550=1 | 1 CARD READER L551=10 L206=6 L560=9 | 9 MT DECKS L561=2 | 2 LD MT CONTROLS L570=23 | FLX L571=22 | FLO ) X 0 0 ( AN XCODE JOB TAPE MUST SET V3 TO SELECT THE REQUIRED PARAMETERS AS ABOVE THESE ARE SETTINGS OF L200 END OF SLOW SCAN L204 FIRST DRUM CONTROL L205 FIRST MAG TAPE CONTROL AND AS MANY AS APPROPRIATE OF THE FOLLOWING L500 NUMBER OF PT READERS (<5) L501-L504 K BITS OF THESE READERS L510-L514 DITTO - PT PUNCHES L520-L524 DITTO - UNBUFFERED ANELEX PRINTERS L530-L534 DITTO - BUFFERED ANELEX PRINTERS L540-L544 DITTO - CARD PUNCHES L550-L554 DITTO - CARD READERS L610-L614 DITTO - 665 PRINTERS L206 DIFFERENCE BETWEEN THE NORMAL AND INTERSTAGE K BITS ON THE CARD READERS (PROVIDED THEY ARE INTERSTAGE READERS) L560 NUMBER OF MT DECKS (NUMBER OF HD DECKS FOR MIXED SYSTEMS) L569 NUMBER OF LD DECKS FOR MIXED SYSTEMS L561 NUMBER OF TYPE A OR B CONTROLS L562 NUMBER OF TYPE C CONTROLS L563 SET NON ZERO FOR POTTER DECKS L565 SET NON ZERO IF SERIES 5 BUFFERED ANALEX PRINTERS (EITHER ALL MUST BE SERIES 5 OR NONE) L566 SET NON ZERO IF PT READ REQUIRED TO FILL BUFFERS TO NEWLINE L568 ADDRESS OF STANDARD INTERFACE CONTROL L570 FLX K BITS L571 FLO K BITS L580 SET NON ZERO IF PERSEUS TAPE CHANNEL ) L352=*SR1 L353=*SP1 L354=*LP1 G500=0 | PT READER G501=0 G502=0 G503=0 G504=0 G510=0 | PT PUNCH G511=0 G512=0 G513=0 G514=0 G520=0 | UNBUFF ANELEX G521=0 G522=0 G523=0 G524=0 G530=0 | BUFF ANELEX G531=0 G532=0 G533=0 G534=0 G540=0 | CARD PUNCH G541=0 G542=0 G543=0 G544=0 G550=0 | CARD READER G551=0 G552=0 G553=0 G554=0 G610=0 | 665 PRINTERS G611=0 G612=0 G613=0 G614=0 X L520 0 L529=1 X L610 0 ( L619=1 G529=1 ) X L530 0 L539=1 X L540 0 L549=1 X L550 0 L559=1 G529=0 G539=0 G549=0 G559=0 G619=0 G561=0 G562=0 G563=0 G656=0 G566=0 X L566 0 L567=0 G567=1 G206=0 G580=0 X L580 0 L581=4 G581=8 G569=0 G600=1 G601=1 G602=1 X L563 0 L564=0 G564=1 V1=0 150 A64 256 50 0S L360 A64 0 L400=A256 X L600 0 REP 2 *LP1 XCODE/LABELS/*/** | SET UP INITIAL TABLE 1 V2=A256 L402)) 24 A3 10 | -1.0 143 A384 64 A3 | MAKE ALL TABLE 1 WORDS -VE 14 A3 L153 | START OF MT MODE TABLE 52 A3 24 10 A3 7 143 A448 16 A3 | FORM TAPE DECK TABLE 1 ENTRIES X L569 0 ( 14 A3 L560 24X A448 10 A3 81 V2-1 16-L569 A3 06X A448 L40 A3 81 V2-1 16 A3 ) 141.21 0 (A1 142 A384 80 150 19 A0 51 L40) +32... | CALCULATE FIRST PROGRAM ADDRESS. ENTER WITH V3=V2 V2=A256 L403)) 10 A3 74 111 A3 63 73 V2+2 2048 A3 14 A3 2048 150 19 A0 51 | OUTPUT BINARY EXTRACODE V2=A64 L360)) 70 L361 L602 150 *SP1 0 14 A7 L404)) 14 A4 L41) 141.1Y 0 L460 A4 142 A5 1 140.22 0 L353 142 A5 8 81 L41 64 A4 14 A4 L99+L200 14 A5 L42) 141.1Y 0 0 A4 142 A6 1 01 A5 A6 66 V2+1 4 140.22 0 L353 142 A6 8 81 L42 L460-1 A4 140.22 0 L353 142 A5 8 140.22 0 L353 142 L43 8 140.22 0 L353 142 L43+1 8 14 A5 140.22 0 L353 142 L43 8 81 V2-2 40 A5 81 L41-1 L602 A7 150 *SP1 0 31 75 L361 L43) +7.7.7.7.7.7.7.7 +63.63.63.12.2.2.2.2 | PRINT EXTRACODE S0 L361) 70 L363 L601 150 *LP1 0 30 14 A20 L51) 140.21 0 L354 142 L50 1 L407)) 14 A4 512 14 A5 63 14 A7 04 A6 A4 L40) 81 L41 64 141.1 0 (A4 142 A256 64 14 A5 10 A4 64 L41) 04Y L27 A256 A5 60 L42 L27 04 A9 A6 101 A8 L26 A9 L25) 101 A9 L29 57 L27 40 A10 57 A11 32 57 A12 40 53 A13 32 114 A12 A13 15 A10 127 101 A10 L30 14 A15 14 A16 (L28) 64 L20 L27 10Y A15 0 A16 L20) 75 L21 -1 12 53 A15 6 10Y A15 6.. A16 15 A12 -1 L21) 121 A13 7 A14 15 A13 63 75 L22 -1 11 84 V2+2 A15 57 60 L22+1 A13 53 A15 6 10Y A15 5.. A16 L22) 101 A13 L29 15 A11 -1 52 A15 6 00 A10 A15 101 A11 L29 70 L23 (A14) 14 A16 8. 52 A16 6 62 V2-1 A11 A16 00 A11 A16 10 A11 9. L23) 101 A12 L29 65 L24 A14 14 A16 8. 52 A16 6 62 V2-1 A12 A16 00 A12 A16 10 A12 9. L24) 57 L27 24 A14 101 A14 L7 53 A15 24 101 A15 L7 14 A16 129 66 V2+1 4 140.21 0 L354 142 A7 10 L42) 81 L40 2560 A6 14 A8 140.21 0 L354 142 L50 1 81 V2-2 3 A8 81 L51 L601 A20 150 *LP1 0 31 L362) 150 0 0 11 L26) +1.. +1.1.24.24.24.24.1.1 L50) +3. L6) 00S 2047 0 0 L8) +46.47.52.00.51.37.52. L29) +100000 +1.10.10.10.10.26.1.1 L30) +160 +1.2.26.8.1.1.1.1 L7) 00S 1 0 0 +24.8.8.8.8.8.8.8 L1) +0 L28) 00S 0 3.. 3 L27) +0 L43) +0 C 0 63 V65=512 | MOD TO BASIC FOR DATUM OF 512 L203=L200-L581 | NO OF CONTROL WORDS L97=A64+L203 L98=L97+L203 L99=L98+L203 L0=L99+L200 | ENTRY TABLE - 64 ADDRESSES, 4 TO A WORD L2=L0+16 | MODE TABLE V1=L0 V2=L0 V0=L2 L150) 0S 2 L12 0 |PT INPUT 0S 1 L12 0 0S 8 L13 0 0S 13 L91 0 0S 16 L84 0 +0 L151) 0S 22 L23 0 | PT & FLO OUT 0S 21 L23 0 0S 28 L14 0 0S 13 L92 0 0S 16 L84 0 +0 L155) 0S 1 L20 0 | FLIN 0S 2 L20 0 0S 13 L91 0 0S 16 L84 0 +0 L152) 0S 21 L27 0 | DRUM 0S 1 L67 0 0S 13 L93 0 +0 L153) 0S 21 L35 0 | MAG TAPE 0S 1 L30 0 0S 22 L35 0 0S 2 L33 0 0S 14 L34 0 0S 28 L35 0 0S 13 L94 0 0S 16 L64 0 +0 X L529 0 ( L154) 0S 22 L37 0 | UNBUFF ANELEX 0S 21 L37 0 0S 26 L43 0 0S 13 L95 0 0S 16 L84 0 +0 ) X L539 0 ( L158) 0S 22 L50 0 | BUFF ANELEX 0S 21 L50 0 0S 26 L43 0 0S 13 L95 0 0S 16 L84 0 +0 ) X L549 0 ( L156) 0S 22 L47 0 | PUNCH 0S 21 L47 0 0S 26 L44 0 0S 13 L95 0 0S 16 L84 0 +0 ) X L559 0 ( L157) 0S 1 L57 0 | CARD READER 0S 2 L58 0 0S 7 L57 0 0S 8 L58 0 0S 14 L59 0 0S 19 L59 0 0S 13 L96 0 0S 16 L84 0 +0 ) X L580 0 ( L159) 0S 2 L53 0 | PERSEUS TAPE 0S 8 L53 0 0S 22 L52 0 0S 13 L56 0 0S 16 L84 0 +0 ) L1=V2 J L402 L400 32 L400 | SET UP TABLE 1
V0=L1+33 X L580 0 V0=V2-1 | EXTRA WORD IF PERSEUS X L569 0 | SKIP UNLESS MIXED TAPE SYSTEM V0=V2-2 | EXTRA WORDS IF MIXED SYSTEM | FUNCTION 140 C 290 299 L3) 64 L4 A0 | J IF ENG OR MON 52 A2 24 A54 | P'PHERAL NAME 117 8 146 (1) A54 A59 | SEARCH FOR P'PHERAL 15 (A59) 255 A12 | K BITS 61 L29 A12 L5) 23 33 A4 | ABANDON - PROG FAIL L4) 15 A2 255 A12 | K BITS L29) 14Y A45 L1 A12 | TABLE 1 ADDRESS 64 L5 (A45) | J PF - NON-EXISTANT P'PHERAL 53 (A45 24 A55 | ENTRY TO TABLE 2 53 A0 10 A53 | MODE X L580 0 | SKIP IF NO PERSEUS 72 L51 8 A12 | J IF PERSEUS 52 A53 24 A56 | SHIFT MODE TO TOP HALF WORD 146 (A55) A56 A57 | SEARCH TABLE 2 FOR MODE 60 L5 (A57) | J PF IF ILLEGAL MODE 04 A46 (A57) | 142 ADDRESS 22Y (A12) 0 A44 | INTERROGATE 73 L290 64 A12 | J IF MAGTAPE 04Y A40 A64 A12 | CONTROL WORD 15 (A45) 32767 A47 | BUFFER ADDRESS 52 A47 16 A48 | IN CW POSN L11) 87 1 A4 | EXIT L290) 70 L11 13 A53 | J IF MODE 13 77 L80 L117 A44 | J IF DECK BUSY X L569 0 | SKIP IF NOT MIXED MT SYSTEM ( 72 V2+2 64+L560 A12 | J IF HD DECK 116 0 2 ) 14 A13 L205 | MT CONTROL TO A13 22Y (A13) 0 A49 | INTERROGATE 76 L291 L117 A49 | J IF CONTROL NOT BUSY 10 A13 1 | SET A13 TO 2ND CONTROL 22Y (A13) 0 A49 | INTERROGATE L291) 111 (A45) 7 A13 | INSERT CONTROL INTO TABLE 1 87 1 A4 | EXIT V0=L1+L560+64 X L569 0 V0=V2+16-L560 | FUNCTION 141 C 290 299 L6) 52 A0 14 A58 | MODE IN MS HALF 146 L152 A58 A56 | SEARCG TABLE FOR MODE 04 A46 (A56) | ADDRESS 60 L5 A46 | J PF IF WRONG MODE 14 A54 (A2) | Y PART OF ADDRESS 04 A55 (A4) | FETCH 141 ORDER 77 L290 L119 A55 | J IF ANY REPLACEMENTS 53 A55 10 05 A55 L125 | X PART OF ADDRESS 00 A54 A55 | PROGRAMMERS DRUM ADDRESS L290) 64 L292 A0 | J IF ENG OR MON 14 A56 -1 L291) 04Y A55 (1) 60 L5 L130 A55 | J IF END OF TABLE 51 A55 24 A49 | -N 10 A49 (A54) 64 V2+2 A49 | J IF REGION FOUND 83 L291 A56 10 A54 (A55) | ADD DRUM DATUM L292) 05 A54 L128 | ACTUAL DRUM ADDRESS 53 A54 20 A12 10 A12 L204 22Y (A12) 0 A44 | INTERROGATE CONTROL 53 A58 24 A53 70 L11 13 A53 | J IF MODE 13 76 L11 L117 A44 | J IF NOT BUSY 64 4+V2 A0 | J IF ENG OR MON 52 A12 24 A55 06 A55 L101 112 (1) 8 A55 | SET REQUIREMENT 23 44 A4 | 142 - COMMON PART L7) 71 4+V2 13 A53 | J IF NOT MODE 13 125 A0 A0 A55 | CHECK X 64 L9 A55 75 (A46) L490 | J IF NO FAIL | PARMS NO. 71 (A46) (A2) | J IF Y NOT ZERO 70 (A46) 16 A53 | J IF MODE 16 72 2+V2 64 A12 | J IF NOT MT 70 (A46 14 A53 | J IF REWIND 75 L5 L491 | J PF | XCODE VERSION | CHECK LOCKOUTS & RESERVATIONS C 290 299 L8) 74 L5 32767 A2 | J IF >32767 CHARS 10 A2 7 A52 53 A52 3 10 A0 (A52) A52 75 L294 L10) 10 A0 (A2) A52 L294) 11 A52 1 | FA 74 L5 32767 A52 | J IF >32767 04Y A56 -1 A51 | PARAMETER 76 L290 L140 A56 | J IF WEAK TEST 125 A0 A52 A55 75 L291 L290) 127 A0 A52 A55 L291) 64 L9 A55 | J IF FAIL 76 L295 L118 A56 | J IF NO L97 WORD ETC 52 A53 16 A55 00 A55 A4 04X L97 A55 A12 | L97 14 A42 (A2) 14 A43 (A0) | Q=Y 10 A12 L98 A50 | CA=X 112 (A50) 9 A42 | L98=Q L295) 76 (A51 L117 A56 | J IF NO L99 WORD 52 A52 24 A55 10 A55 (A0 04X L99 A55 A12 | L99 75 (A51) L9) 70 L5 (A55 | J PF IF RES FAIL 64 L293 A0 | J IF ENG OR MON 52 A55 24 06 A55 L102 112 (1) 8 A55 | SET REQUIREMENT L293) 23 40 A4 | ABANDON - RS
| 142 - PAPER TAPE READ C 290 299 L14) 06X A64 L108 A12 | SET WRONG MODE 10 520 1 | ADD 1 TO PI COUNT 23 2 | SET PI 75 L19 L12) 77 L14 L116 A44 | J IF 5 HOLE 05X A64 L114 A12 | SET TO 7 HOLE 75 L290 L13) 76 L14 L116 A44 | J IF 7 HOLE 06X A64 L105 A12 | SET TO 5 HOLE L290) 64 L20 A0 | J IF ENG OR MON 77 L80 L120 A44 | J IF DISENG 86 L8 7 A51 | CHECK LO ETC - STRONG 76 L16 L111 A40 | J UNLESS IGBUF 05X A64 L144 A12 05 A40 L144 | CLEAR FAILURE BITS L15) 77 L80 L120 A44 | J IF DISENG 14X 8 0 A47 | M = 0 142X -8 0 A47 142 (A47) 8 | BUFFER PUSHUP 16 A48 64 X L567 1 06 A48 L139 | INSERT NL BIT 77 L297 L135 A40 | J IF FAILED 116 (A12) 110 A64 L126 A48 | LOAD CW 22 (A12) 4 A55 | START 76 L291 L111 A40 | J UNLESS IGBUF 05X A64 L111 A12 | RESET IGBUF 107Y 0 L98 A12 | FIDDLE W L80) 77 L69 L118 A1 | J IF F156 NOT F142 64 L80+4 A0 | J IF ENG OR MON 52 A12 24 A55 112 (1) 8 A55 | STORE PL REQUIREMENT 23 44 A4 | EXIT PL AND RQT SET L291) 86 L65 A51 | FORM ADDRESS & SHIFT NO. 52X -8 (A57) A56 | SHIFT UP ODD CHARS L16) 04Y A20 8 A47 | M 12 A20 64 A21 | T=8.0-M 60 L293 A21 | J IF T=0 62 L292 A42 A21 | J IF Q>T 04 A21 A42 | T=Q L292) 04 A23 A21 121 A20 3 A22 10Y A22 -8 A47 | SOURCE ADDRESS X L567 0 ( 70 L299 1 A53 | J IF MODE 1 105 A43 A22 A21 | TRANSFER T CHARS 75 V2+2 ) L299) 106 A43 A22 A23 | TRANSFER & FORM T' 01 A42 A23 | Q=Q-T' 00 A20 A23 | M=M+T' 52 A23 3 A39 115 A43 (A390 | CA=CA+T' 115 A43 (L134) A39 122Y A24 0 A39 | FETCH LAST CHAR TRANSFERR 05 A24 L145 X 567 0 71 L298 1 A53 | J UNLESS MODE 1 L294) 61 L298 L103 A24 | J UNLESS NL FOUND X 567 1 ( 14 A20 64 | M=64 - BUFFER EMPTY 70 V2+2 1 A53 | J IF MODE 1 ) X L567 0 75 V2+2 L298) 61 L293 A42 | J UNLESS Q=0 14 A42 | Q=0 L296) 112 (A50) 9 A42 | STORE Q 04X 8 A20 A47 | & M 04X L99 A43 A12 | & CA 61 L80-1 A42 | J IF Q NOT ZERO 75 L19 L293) 22Y (A12 0 A44 77 L296 L197 A44 | J IF BUSY OR DISENG 04Y A40 A64 A12 | FETCH CW AGAIN 76 L15 L189 A40 | J UNLESS PRE-PI SET 06X A64 L109 A12 | SET IGBUF 06X A64 L101 A12 | SET D47 75 L14+1 | J TO SET PI L65) 53 A40 16 A56 | ADDRESS 53 A40 12 A57 15 A57 14 17 A57 14 10Y A57 (A57) A57 | SHIFT NO. 75 (A51) L297) 86 L65 A51 | FORM ADDRESS & SHIFT NO 52 (A56) (A57) | SHIFT UP ODD CHARS 15 A40 127 A20 | M 12 A20 64 A57 | NO OF GOOD CHARS 121 A20 3 A56 10Y A56 -8 A47 | CHAR DESTINATION ADDRESS 105 A56 A47 A57 | ADJUST CHARS L295) 06X A64 L103 A12 | SET PRE-PI 75 L16+1 | 142 - FLEX & ENG MODE PT IN C 290 299 L20) 77 L80 L197 A44 | J IF BUSY OR DISENG 86 L8 7 A51 | LO ETC - STRONG 52 A0 16 06 A56 L192 | TYPE BITS 10 A56 (A2) | NO OF CHARS 71 L290 1 A53 | J UNLESS MODE 1 06 A56 L139 L298) 04X A64 A56 A12 | LOAD CONTROL WORD 22 (A12) 4 A55 107Y 0 L98 A12 65 L80 A0 | J UNLESS ENG OR MON L291) 22Y (A12) 0 A55 04Y A40 A64 A12 76 L292 L135 A40 157Y A55 A64 A12 L292) 77 L291 L197 A55 | J IF BUSY OR DISENG L21) 86 L65 A51 52 (A56 (A57 112 (A50 9 76 L11 L135 A40 | J UNLESS FAILED L82) 06X A64 L101 A12 | SET D47 06X A64 L109 A12 | SET IGBUF 65 L14+1 A0 | J UNLESS ENG OR MON 75 V2 | 142 - PAPER TAPE OUT C 290 299 L23) 77 L80 L197 | J PL IF BUSY OR DISENG 64 L5 A4 | J PF IF OVR 86 L8 6 A51 | CHECK LO ETC L26) 75 L24 128 A42 | J UNLESS Q>128 10X L99 16 A12 | UPDATE L99 107Y 0 L98 A12 | RESET W 14 A42 128 | Q=128 L24) 01 (A50) A42 | UPDATE L98 00 A48 A42 71 L25 21 A53 | J UNLESS NL MODE 06 A48 L139 | INSERT ML BIT 106 A47 A43 A42 | TRANSFER Q CHARS TO LL 71 L290 128 A42 | J UNLESS 128 CHARS TRANSF 117 0 15 85 L291 (A47) 2 | J UNLESS NL L290) 112 (A50) 9 | CLEAR Q 75 L291 L25) 142 (A47 142 (A43 16 | FILL BUFFER L291) 116 (A12) 110 A64 L126 A48 | INSERT CW 22 (A12) 4 A44 116 0 (A50) 71 L80 (0) | J PL IF NOT FINISHED L19) 76 V2+2 L118 A1 | J UNLESS F156 86 L73+1 A60 | RESTORE LINK? 87 1 A4 | 142 - DRUM C 290 299 L27) 86 L10 0 A51 | CHECK LO & RES - WEAK, WO 64 L5 A4 | J PF IF OVR SET 14 A61 2 | SET WRITE 20Y L101 49 A12 | SET TESTER WEAK 75 L290 L67) 86 L10 1 A51 | CHECK LO & RES - STRONG 14 A61 2 | SET READ 20Y L128 49 A12 | SET TESTER STRONG L290) 64 L291 A0 | J IF ENG OR MON 10 A49 (A2) A55 62 L5 A55 | J PF IF DRUM RES FAIL L291) 22 (A12) (A61) A60 | SEND READ/WRITE TO CONTROL 120 A54 -16 A55 | NO OF 1'S IN LS 16 BITS 52 A54 3 A56 10 A56 7 15 A56 2047 | FORM LS BITS & CODE 77 L292 L140 A55 | J IF PARITY BIT ZERO 10 A56 2048 L292) 53 A54 5 A57 15 A57 2040 10 A57 6 | FORM MS BITS & CODE 20Y A0 1 A12 | LOAD LOWER ADDRESS 20Y A52 17 A12 | LOAD UPPER ADDRESS 22 (A12) (A57) A60 | SEND MS BITS 22 (A12) (A56) A60 | START TRANSFER & SEND LS 11 A54 (A0) | DRUM - INITIAL CORE ADDRES 04X A65 A54 A12 | STORE IN NO+K FOR USE IF 87 1 A4 | 142 - MAG TAPE C 290 299 L30) X L564 0 | SKIP IF POTTER DECKS ( 77 L290 L120 A44 | J IF FORWARDS - MODE 1 76 L80 L140 A44 | J IF NOT STOPPED ) L290) 86 L10 1 A51 | CHECK LO & RES, WORD STRO 14 A60 1 | STRONG 14 A63 32 | START INFORMATION L31) 20Y A0 1 A13 | LOWER 70 L291 28 A53 | J IF MODE 28 - ERASE 53 (A12) 14 A55 112 (A12) 9 A55 | TOP TO BOTTOM 00 (A12) L129 | ADD 1 TO TOP L32) 06 A55 L130 04X A65 A55 A13 | BLOCK ADDRESS L291) 20Y A60 49 A13 | STRONG:WEAK 20Y A0 33 A13 | CURRENT 20Y A52 17 A13 | UPPER L36) 22 (A13) (A63) A55 | START 22Y (A13) 0 A56 | INTERROGATE CONTROL 07 A63 A56 76 L11 L141 A63 | J IF CONTROL STATS CORREC 22 (A13) 2 A55 | SET CONTROL ERROR 87 1 A4 L33) X L564 0 ( 76 L292 L120 A44 | J IF BACKWARDS - MODE 2 76 L80 L140 A44 | J IF NOT STOPPED ) L292) 14 A63 32+64 | START INFO 86 L10 1 A51 | CHECK LO & RES, WORD STRO 20Y A0 1 A13 | LOWER 04 A0 A52 | RESET A0 FOR CURRENT 14 A60 1 | STRONG 01 (A12) L129 | SUBTRACT 1 FROM TOP 53 (A12) 24 A55 112 (A12) 9 A55 | TOP TO BOTTOM 75 L32 L34) 65 L5 A0 | J PF UNLESS ENG OR MON - 76 L293 L120 A44 | J IF BACKWARDS 76 L80 L140 A44 | J IF NOT STOPPED L293) 14 A63 256+64+32 | START INFORMATION 75 L36 | J TO CHECK CONTROL L35) 64 L5 A4 | J PF IF OVR SET - MODES 2 76 L294 L142 A44 | J IF NOT WRITE PERMIT 77 L295 L120 A44 | J IF FORWARDS L294) 116 0 2 L295) 14 A63 X L562 0 | SKIP OF LOW DENSITY SYSTEM ( 53 (A45 16 A57 | SHIFT ECB WORD - HIGH DEN 76 L298 L120 A57 | J IF LOW DENSITY 10 A63 2048 | HIGH ) L298) 70 L297 21 A53 | J IF MODE 21 70 L296 28 A53 | J IF MODE 28 116 0 512-128 | SHORT L296) 116 0 128 | ERASE L297) 10 A63 1024+32 | START, WRITE 86 L10 0 A51 | CHECK LO & RES, WORD WEAK 14 A60 0 | WEAK 75 L31 L590=L529+L529+L529+L529+L539+L539+L549 X L590 7 X 0 0 ( | MODE 26 - INBUFF & BUFF ANELEX & CARD PUNCH NOT WRITTEN YET ) X L590 6 X 0 0 ( | MODE 26 - UNBUFF & BUFF ANELEX PRINTERS NOT WRITTEN YET ) X L590 5 X 0 0 ( | MODE 26 - UNBUFF ANELEX & CARD PUNCH NOT WRITTEN YET ) X L590 1 X 0 0 ( | MODE 26 - CARD PUNCH NOT WRITTEN YET ) X L590 3 X 0 0 ( | MODE 26 - BUFF ANELEX & CARD PUNCH C 290 299 +32,32,32,32,32,32,32,32 L43) 10 A47 17 | CODE BUFFER - PRINTER 115 0 1 | INSERTION NUMBER 14 A16 1 | M - INDICATES WHICH HALF 04 A18 L43-1 14 A58 60 | NO OF INDEX POINTS 75 L290 L44) 10 A47 24 | FIRST CODE BUFFER - PUNCH 04 A61 L145 | INSERTION NUMBER 14 A18 14 A58 12 | NO OF INDEX PTS L290) 64 L5 A4 | J PF IF OVR 75 L291 15 A2 | J UNLESS Y>15 L42) 06X A64 L110 A12 | BUFFER OVERFLOW 75 L14+1 | J TO SET PI L291) 86 L10 4 A51 | CHECK LO ETC 04 A60 L145 | MASK FOR PRINTERS 14 A55 0 | CODE COUNT ZERO 76 L292 L146 A40 | J IF PRINTER 04 A60 L101 | MASK FOR PUNCH 116 0 8 L292) 143 (A47) 8 A18 | CLEAR CODE BUFFER(S) L45) 70 L11 (A2) A55 | J IF END OF CODE 122Y A56 (A0) A55 53 A56 41 A59 | GNC 115 A55 8 73 L46 126 A59 | J IF ER 75 L45 1 A59 | J IF SP 15 A59 14 A57 10Y A57 (A57) A57 | SHIFT-NUMBER 57 A60 (A57) A62 | SHIFT MASK & INSERTION NU 53 A59 4 117 (A59) 110 (A47) A62 A63 75 L45 L46) 76 L293 L146 A40 | J IF PRINTER 53 A60 1 61 L45 L109 A60 | J UNLESS END OF FIRST TAB 10 A47 8 | RESET ADDRESS OF TABLE 04 A60 L101 | RESET INSERTION MASK 75 L295 L293) 115 A61 1 61 L294 L101 A61 14 A16 0 L294) 120 A61 -47 A17 07 A17 A16 52 A17 47 110 A61 L101 A17 L295) 83 L45 A58 87 1 A4 ) X L590 2 X 0 0 ( | MODE 26 - BUFF ANELEX PRINTER C 290 299 +32,32,32,32,32,32,32,32 L43) 10 A47 17 | CODE BUFFER - PRINTER 115 0 1 | INSERTION NUMBER 14 A16 1 | M - INDICATES WHICH HALF 04 A18 L43-1 14 A58 60 | NO OF INDEX POINTS L290) 64 L5 A4 | J PF IF OVR 75 L291 15 A2 | J UNLESS Y>15 L42) 06X A64 L110 A12 | BUFFER OVERFLOW 75 L14+1 | J TO SET PI L291) 86 L10 4 A51 | CHECK LO ETC 04 A60 L145 | MASK FOR PRINTERS 14 A55 0 | CODE COUNT ZERO 143 (A47) 8 A18 | CLEAR CODE BUFFER(S) L45) 70 L11 (A2) A55 | J IF END OF CODE 122Y A56 (A0) A55 53 A56 41 A59 | GNC 115 A55 8 73 L46 126 A59 | J IF ER 75 L45 1 A59 | J IF SP 15 A59 14 A57 10Y A57 (A57) A57 | SHIFT-NUMBER 57 A60 (A57) A62 | SHIFT MASK & INSERTION NU 53 A59 4 117 (A59) 110 (A47) A62 A63 75 L45 L46) 115 A61 1 61 L294 L101 A61 14 A16 0 L294) 120 A61 -47 A17 07 A17 A16 52 A17 47 110 A61 L101 A17 83 L45 A58 87 1 A4 ) X L590 4 X 0 0 ( | MODE 26 - UNBUFF PRINTERS C 290 299 L43) 10 A47 183 | CODE BUFFER 115 0 1 A61 | INSERTION NUMBER 14 A58 60 | NO OF INDEX POINTS 64 L5 A4 | J PF IF OVR 75 L290 15 A2 | J IF Y=15 L42) 06X A64 L110 A12 | BUFFER OVERFLOW 75 L14+1 | J TO SET PI L290) 86 L10 4 A51 | CHECK LO ETC 04 A60 L145 | MASK FOR PRINTERS 14 A55 0 | CODE COUNT ZERO 143 (A47) 8 A18 | CLEAR CODE BUFFER L45) 70 L11 (A2) A55 | J IF END OF CODE 122Y A56 (A0) A55 53 A56 41 A59 | GNC 115 A55 8 72 L291 126 A59 | J IF NOT ER 115 A61 1 83 L45 A58 87 1 A4 L291) 75 L45 1 A59 | J IF SP 15 A59 14 A57 10Y A57 (A57) A57 | SHIFT-NUMBER 57 A60 (A57) A62 | SHIFT MASK & INSERTION NU 53 A59 4 117 (A59) 110 (A47) A62 A63 75 L45 X L619 0 ( V3=V2 V0=L43 10 A47 153 V0=L43+2 14 A58 50 V0=V3 ) ) X L529 0 ( | 142 - UNBUFF PRINTERS C 290 299 L37) 77 L80 L197 A44 | J PL IF BUSY OR DISENG 86 L10 4 A51 | CHECK LO ETC 64 L5 A4 | J PF IF OVR 110X A64 L196 A12 | RESET OVERPRINT 74 L42 15 A2 | J IF Y>15 - BUFFER OVR 10 A48 60 | ADD NO OF INDEX PTS 70 L290 21 A53 | J IF MODE 21 11 A48 12 | ADJUST INDEX PTS 116 0 16 | MODE 22 BIT L290) 14 A59 4 | START DOLLOP 14 (A47) 256 | INITIAL WORD 142X 1 0 A47 142 (A0) (A2) | TRANSFER DATA 117 1 04X (A47) L103 A2 | GUARD WORD 143 A13 31 | CLEAR DATA AREA 117 0 -1 27 A13 (A47) A55 | NORMALIZE DATA 14 A56 L291) 61Y L42 A28 A56 | J IF BUFFER OVR 81 L291 16 A56 15 A55 4095 143 (A47) 183 | CLEAR DATA AREA 76 L292 L120 A55 | J IF NL X L619 1 | SKIP IF 665 ( 52 A55 8 111 A59 1792 A55 | INSERT PT CHANNEL ) 10 A59 128 | PT BIT 75 L293 L292) 11 A55 128 60 L41 A55 | J IF NO LINE FEEDS 52 A55 8 00 A48 A55 | ADD NO OF LINE FEEDS X L619 0 | SKIP IF ANELEX ( 74 V2+3 1280 A55 | J IF MORE NL THAN 5 10 A59 128 | INCLUDE PT 111 A59 1792 A55 ) 75 L293 L41) 06X A64 L103 A12 | OVERPRINT L293) 14 A56 14 A57 L294) 04 A55 L101 | INSERTION BIT 71 L295 2 A56 53 A55 24 L295) 14 A58 L296) 117 (A57) 183 24 A13 (A47) A60 | CODE CONVERSION 117 0 (A56) 140 A60 (A47) A55 | BIT PATTERN FOR PRINTER 80 L297 15 A57 81 L296 6 A58 81 L294 3 A56 L297) 00 A48 L147 116 (A12) 110 A64 L126 A48 | SET CONTROL WORD 22 (A12) (A59) A55 | START 87 1 A4 X L619 0 ( V3=V2 V0=L37+5 10 A48 50 V0=L37+7 11 A48 24 V0=L291+3 143 (A47 153 V0=L296 117 (A57 153 V0=V3 ) X L619 0 ( X L520 0 | BOTH UNBUFF ANELEX & 665 PRINTERS NOT CATERED FOR ) ) X L539 0 ( | 142 - BUFFERED ANELEX C 290 299 +16.....15 | TYPE BITS & NO OF WORDS L50) 77 L80 L197 A44 | J PL IF BUSY 86 L10 4 A51 | CHECK LO ETC 64 L5 A4 | J PF IF OVR 74 L42 15 A2 | J IF Y>15 - BUFFER OVR 14 (A47) 256 | INITIAL WORD 142X 1 0 A47 142 (A0) (A2) | TRANSFER DATA 117 1 04X (A47) L103 A2 | GUARD WORD 143 A13 31 | CLEAR DATA AREA 117 0 -1 27 A13 (A47) A55 | NORMALIZE DATA 14 A56 L290) 61Y L42 A28 A56 | J IF BUFFER OVR 81 L290 16 A56 76 L291 L120 A55 | J IF NL X L565 0 10 A5 1 16 A55 56 | INSERT PT BITS L291) 52 A55 8 111 A48 16128 A55 | INSERT VERT FORMAT CHAR 142 (A47) 142 A13 15 | TRANSFER TO DATA BUFFER 14 A56 10 A47 17 A57 L292) 24X (A47) (A57) A56 | CONVERT 81 L292 15 A56 06 A48 L50-1 04X A64 A48 A12 22 (A12) 4 A55 87 1 A4 ) X L549 0 ( | 142 - CARD PUNCH C 290 299 L47) 77 L80 L197 A44 | CHECK IF BUSY OR DISENG 86 L10 4 A51 | CHECK LO ETC 64 L5 A4 | J PF IF OVR 10 A47 39 A60 | CHECK READ BUFFER ADDRESS 142X 1 0 A60 142 (A47) 24 | FILL CHECK READ BUFFER 14 A57 0 143 A16 24 | CLEAR WORKING SPACE 70 L48 22 A53 | J IF MODE 22 74 L42 10 A2 | J PF IF Y>10 10 A47 24 A55 | UPPER HALF CODE BUFFER 10 A55 8 A56 | LOWER HALF L292) 117 (A57) 24 (A0) (A55) A58 | UPPER HALF CONVERTION 117 (A57) 24 (A0) (A56) A59 | LOWER HALF CONVERTION 04X A16 A58 A57 04X A28 A59 A57 81 L292 (A2) A57 75 L49 L48) 74 L42 20 A2 | J PI IF Y>20 75 6+V2 10 A2 142 A16 142 (A0) 10 10 A0 10 11 A2 10 116 12 L295) 142 A16 142 (A0) (A2) L49) 14 A55 0 04 A57 A47 L290) 14 A56 117 (A55) (A56) 25 A16 (A57) 10 A55 3 81 L290+1 2 A56 10 A57 6 71 L290 24 A55 14 A55 L291) 26XY (A47) A16 A55 10 A55 2 71 L291 24 A55 14 A55 0 14 A56 0 L293) 14 A57 L294) 04Y (A47) A16 A56 117 12 12 04Y (A47) A16 A56 10 A47 2 10 A56 1 81 L294 6 A57 11 A47 11 81 L293 2 A55 10 A48 24 116 (A12) 0 110 A64 L126 A48 52 A60 16 10 A60 24 116 (A12) 110 A65 L126 A60 | LOAD CHECK READ CONTROL W 22 (A12) 4 A55 87 1 A4 ) X L599 0 ( | 142 - CARD READER C 251 299 L57)L58)L59) 77 L80 L197 A44 | J PL IF BUSY OR DISENG 86 L10 7 A51 | CHECK LO ETC 77 L80 L120 A44 | J PL IF DISENG - FOR 102 14 A63 | ICT MARK 70 V2+2 1 A53 71 V2+2 7 A53 14 A63 1 | IBM MARK 10 A47 36 A41 | DATA ADDRESS 14X -1 0 A47 | CLEAR WORD -1 76 L280 L131 A44 | J IF 80 COL 14 A61 17 | W 10 A48 66 | COL COUNT 76 4+V2 L149 A44 | J IF INSTGE READER 71 L295 19 A53 | J IF NOT MODE 19 06X A64 L273 A12 | SET OPERATOR ATTN 75 L14+1 | J TO SET PI 142 (A41) 142 (A47) 35 | TRANSFER DATA 14X 17 0 A47 | WORD -1 OF INTERSTAGE 14X 34 0 A47 | FOR 65TH COL INSTGE 00 A48 L290 A49 | INSTGE CW 10 A12 L206 A13 | INSTGE K BITS 116 (A13) 110 A64 L126 A49 | INSERT INSTGE CW 14X A14 0 A13 | CLEAR NEXT WORD 14 A14 36 | INSTGE START 75 L281 L280) 14 A61 20 | W 10 A48 81 | COL COUNT L295) 142 (A41) 142 (A47) 20 | TRANSFER DATA 14 A14 4 | NORMAL START L281) 14X 16 0 A47 | FOR 65TH COL NORMAL 72 3+V2 7 A53 | J IF MODE <7 70 2+V2 14 A53 | J IF MODE 14 00 A61 A61 76 3+V2 L111 A40 | J UNLESS IGBUF 05X A64 L144 A12 05 A40 L144 | CLEAR FAILURE BITS 77 L82 L144 A440 | J IF FAILED 77 3+V2 L149 A44 | J IF NORMAL 04Y A62 A64 A13 77 L82 L144 A62 116 (A12) 110 A64 L126 A48 | INSERT CW 14X A65 0 A12 | CLEAR NEXT WORD 22 (A12) (A14) A44 | START 76 L252 L111 A40 | J UNLESS IGBUF 05X A64 L111 A12 | RESET IGBUF 107Y 0 L98 A12 | FIDDLE W 75 L80 | J TO ABANDON - PL L252) 76 L254 L131 A44 | J IF 80 COL 52X 16 12 A41 | SHIFT UP 65TH COL NORMAL 52X 34 12 A41 | & INSTGE L254) 65 L255 A61 A42 | J UNLESS Q>W 04 A42 A61 | Q=W L255) 01 (A50 A42 | UPDATE L98 00X L99 A42 | UPDATE L99 L256) 71 L285 14 A53 | J IF NOT MODE 14 142 (A43) 142 (A41) (A42) | TRANSFER Q WORDS L284) 116 0 (A50 71 L252-2 (0 | J PL IF NOT FINISHED 75 L19 L290) +4,32,0,0 L285) 77 L257 L131 A44 | J IF 65 COL 71 L257 19 A53 | J IF NOT MODE 19 57 0 48 A55 04Y A60 (A41 A56 04X (A43 A60 A55 80 L284 (A42 A55 04X (A43 A60 A55 80 L284 (A42 A55 81 -5+V2 A56 L257) 14 A62 | J=0 13 A60 1 | M=-1 L258) 10 A60 1 | M=M+1 04Y A56 (A41) A60 | FETCH WORD M 70 L291 19 A53 | J IF MODE 19 116 0 (A63) 102 A56 L270 A55 | FORM LS BITS OF V'S 66 L262 4 | J UNLESS OVR 14 A61 L259) 122 A56 A56 1 122 A55 A55 1 | SHIFT ONE CHAR 77 L261 L271 A55 | J IF VIO 76 L260 L272 A55 | J IF (UI)=0 06X L99 L101 A12 | SET INDICATOR FOR PI 75 L261 L260) 77 L261 L121 A56 | J IF HOLE IN ROW 0 76 V2+2 L116 A56 16 A55 10 76 2+V2 L142 56 | J IF NO HOLE IN ROW 11 16 A55 11 L261) 81 L259 4 A61 122 A55 A55 4 122 A56 A56 4 L262) 05 A56 L274 A57 | COLLATE ICT UC 60 L263 A63 | J IF ICT 52 A56 25 A58 110 A57 L275 A58 | INSERT APPROPRIATE IBM BIT L263) 53 A57 26 | SHIFT U'S TO CORRECT POSN 00 A55 A57 | ADD IN U'S 103 A56 L276 A55 | FORM CHECK BITS L292) 04X (A43) A55 A62 | CODED WORD 73 L264 7 A53 | J IF ALSO BINARY 81 L258 (A42) A62 75 L265 L264) 80 L265 (A42) A62 04X (A43) A56 A62 | BINARY WORD 81 L258 (A42) A62 L265) 116 0 (A50 71 L252-2 (0 | J PL IF NOT FINISHED 65Y L19 L99 A12 112X L99 10 A12 72 L14 4 A53 75 L19 L291) 04 A55 A56 | NORMAL WORD 117 0 18 04Y A56 (A41) A60 | INSTGE WORD 75 L292 L270) +3.0.0.0.63.0.0.0 +7,0,0,0,61,0,0,0 L271) +63,63,63,63,63,63,63,0 L272) +63,63,63,31,63,63,63,63 L273) +34,0,0,0,0,0,0,0 L274) +60,60,60,60,0,0,0,0 L275) +4,4,4,4,0,0,0,0 L276) +7,0,0,0,63,0,0,0 L277) +15,0,0,0,63,0,0,0 L278) +16,16,16,16 ) | RESTORE L63) 22Y (A12) 0 A44 | INTERROGATE 04Y A40 A64 A12 | CONTROL WORD 04Y A55 L97 A12 | L97 WORD 53 A55 16 A53 | MODE 116 0 (A12) 14 A47 (L1) | BUFFER ADDRESS 52 A47 16 A48 10 A12 L98 A50 | L98 ADDRESS 04 A42 (A50) | Q 04Y A43 L99 A12 | CA 75 (A51) | FUNCTION 156 & 102 FRIG C 290 299 L81) 15 A2 255 A12 | K BITS X L580 0 | SKIP IF NO PERSEUS ( 73 V2+2 8 A12 14 A12 4 ) 86 L63 A51 | RESTORE 77 L80 L117 A44 | J IF BUSY 76 L11 L193 A40 | J UNLESS Q BIT IN CW 77 L290 L118 A1 | J IF 156 04Y A4 L97 A12 | RESTORE A4 FROM L97 L290) 116 0 (A12 70 L11 (L98 | J IF Q=0 76 L291 L118 A1 | J UNLESS 156 11 A0 1 A55 112 A4 9 A55 | RESET A4 FROM A0 L291) 53 (A50 24 A55 75 (A55 L69) 112 A0 10 A4 87 0 A0 | J TO X | FUNCTION 126 C 290 300 L71) 127 A0 A0 A55 | CHECK X - WEAK 64 L9 A55 | J IF FAIL 127 A2 A2 A55 | CHECK Y - WEAK 64 L9 A55 125 A3 A3 A55 | CHECK XZ - STRONG 64 L9 A55 04 A63 (A2) | FETCH Y 64 L291 A4 | J IF OVR IN LINK 64 L290 (A2) | J IF Y<0 04 A60 (A0) | C=X 75 L294 L290) 11 (A0) 1 A60 | C=X-1 75 L293 L291) 05 A4 L127 | CLEAR OVR IN LINK 64 3+V2 (A2) | J IF Y<0 11 (A0) 2 A60 | C=X-2 L292) 75 L293 10 (A0) 1 A60 | C=X+1 L293) 66 L294 4 | J IF NO OVR 77 L5 L135 A2 | J PF IF MOVR 06 A4 L101 | INSERT OVR IN LINK L294) 04 (A3) A60 05 A63 L127 | CLEAR YS 04 (A2) A63 87 1 A4 | FUNCTION 125 C 290 300 L72) 10 A0 1 A58 | X+1 125 A0 A58 A55 | CHECK X, X+1 64 L9 A55 125 A3 A3 A55 | CHECK XZ 64 L9 A55 64 L5 (A58) | J PF IF X*<0 65 L290 A4 | J UNLESS OVR IN LINK 111 (A58) 1 | REMOVE LS BIT 55 (A0) 1 | X: DOWN 07 (A0) L101 | INVERT SIGN BIT 10 (A3) 1 | Z=Z+1 75 L293 | J TO EXIT L290) 14 A61 | M=0 L291) 00 (A0) (A0) A62 67 L292 4 | J IF STAN 73 L292 (A2) A61 | J IF MY 54 (A0) 1 | X: DOWN 81 L291 A61 L292) 01 (A3) A61 | Z-M L293) 66 1+V2 4 14 A4 (A4) 87 1 A4 | 101 ENTRY C 290 300 L78) 125 A0 A0 A55 64 L9 A55 04 A55 (A3) | Z 04 A56 (A2) | Y - PRODUCT OF RADICES 04Y A57 1 A2 | Y*- RADICES 66 2+V2 10 A56 | J IF Y=-1.0 67 L290 10 A55 | J IF X-1.0 51 A55 1 | SHIFT X & Y DOWN 51 A56 1 L290) 65 L291 A56 | J IF Y0 03 A55 A55 03 A56 A56 | IN L291) 62 L292 L102 A56 | J IF Y<(2)-4 51 A55 5 51 A56 5 L292) 04 A59 A55 65 2+V2 A59 03 A59 A55 | |X| 64 L295 A59 A56 | J IF |X| < Y 14 A52 04 A60 L102 04 A61 L110 04 A62 A57 L293) 122 A62 A62 1 15 A62 15 A63 74 L294 2 A63 | J IF RADIX >2 57 A60 6 81 L293 8 A52 75 2+V2 L294) 110 A57 A61 A60 | FIDDLE RADICES 40 A59 A56 A58 77 L5 L135 A2 | J PF IF MON ON OVR 06 A4 L101 | SET OVR 04 A55 A59 L295) 101 A55 A56 66 3+V2 4 | J IF NO OVR 77 L5 L135 A2 | J PF IF MOVR 06 A4 L101 | INSERT OVR IN LINK 04 (A0 A55 87 1 A4 | DIVISION C 290 299 L75) 77 L72 L115 A1 | J IF F125 L76) 60 L5 (A2) | J PF IF Y=0 125 A3 A3 A55 64 L9 A55 76 L290 L140 A1 | J IF NOT F44 OR F45 10 A3 1 A58 | Z* 125 A58 A58 A55 64 L9 A55 10 A0 1 A63 | X* 61 L291 (A63) | J IF X* NOT ZERO L290) 00 (A0) (A2) A55 61 L291 A55 | J IF X NOT -Y 04 (A3) L101 | QUOTIENT -1.0 77 L11 L135 A1 | J IF ROUNDED 14 (A58 | ZERO REMAINDER 87 1 A4 L291) 66 V2+1 4 77 L5 L135 A2 | J PF IF MOVR 06 A4 L101 | INSERT OVR IN LINK 87 1 A4 | FUNCTION 102 C 280 300 L79) 14 A12 (A4 11 A12 L98 72 L81+1 32 A12 | J IF 102 FRIG 127 A4 A4 A55 | CHECK CONTROL ADDR 64 L9 A55 127 A0 A0 A55 | CHECK X 64 L9 A55 125 A3 A3 A55 | CHECK XZ 64 L9 A55 52 A2 24 A58 51 A58 24 | SIGN Y 65 L293 A4 | J IF NO OVR IN LINK 07 A4 L101 | REMOVE OVR FROM LINK 05 (A0) L140 A55 51 A55 1 07 A55 L101 | CORRECT FOR 1 BIT OF OVR 10 A58 1 A56 | E=Y+1 75 L292 L293) 04 A55 (A0) | W=XF 60 L287 A55 | J IF W=0 65 L297 A55 | J IF W>0 07 A55 L134 | INVERT W 61 L297 A55 | J IF W NOT ZERO 04 A55 L101 | W=-1.000... 11 A58 47 A56 | E=Y-47 75 L298 L297) 124 A55 48 A57 | FIND E 11 A57 2 | E 52 (A0) (A57) A55 | W=XF STANDARDISED 02 A57 A58 A56 | E=Y-E L292) 64 L298 A2 | J IF UNRDD FL PT. 07 A55 L134 A57 77 L299 L280 A57 | J IF ROUNDING NO TROUBLE 65 L288 A55 | J IF W>=0 04 A55 L101 | W=-1.000... 11 A56 1 | E=E-1 75 L298 L288) 04 A55 L102 | W=0.100... 10 A56 1 | E=E+1 L299) 10 A55 128 | ROUND W L298) 10 A56 128 A57 | K 64 L289 A57 | J IF K<0 73 L295 256 A57 | J IF K>=256 111 A55 255 A57 L287) 04 (A3) A55 87 1 A4 L295) 77 L5 L135 A3 | J PF IF MON ON FL PT OVR 77 L5 L135 A2 | J PF IF MOVR 06 A4 L101 | INSERT OVR IN LINK 14 A55 | W=0 75 L287 L280) +48,0,0,0,0,0,3,63 | FUNCTION 103 C 290 300 L89) 127 A0 A0 A55 | CHECK X 64 L9 A55 125 A3 A3 A55 | CHECK XZ 64 L9 A55 04 A56 (A0) | FETCH X 60 L290 A56 00 A56 A56 66 L5 4 | J PF IF X NOT STAN 15 A56 255 A55 | XK 01 A56 A55 | XA 11 A55 128 | XE 10 A55 (A2) | SHIFT NUMBER 50 A56 (A55) 66 L290 4 | J IF NO OVR 77 L5 L135 A2 | J PF IF MOVR 06 A4 L101 | INSERT OVR IN LINK L290) 04 (A3) A56 | WRITE TO XZ 87 1 A4 | MODE 16 L84) 77 L80 L197 A44 | J IF BUSY OR DISENG 76 3+V3 L193 A40 | J UNLESS Q REL. 116 0 (A12) 71 L80 (L98) | J IF Q NOT= 0 22 (A12) 1 A55 87 1 A4 L64) 77 L80 L117 A44 | J IF MT BUSY 65 L5 A0 | J PF IF ENG OR MON 22 (A12) 16 A55 87 1 A4 | FUNCTION 154 - COMMON PART C 290 300 L90) 65 L5 A3 | J PF IF ISOLATED 154 X L580 0 | SKIP IF NO PERSEUS TAPE 70 L55 4 A12 | J IF PERSEUS 77 L292 L118 A44 | J IF REQ. MON. 72 L290 4 A12 | J IF DRUM 73 L291 64 A12 | J IF MAG TAPE 64 L292 A40 | J IF ERROR IN CONTROL WORD 76 L290 L148 A40 | J IF NOT CARDS 77 L297 L194 A40 | J IF CARD READER 64Y L292 A65 A12 | J IF ERROR IN CW+1 L290) 110 A2 L101 A4 | COPY STATE OF OVR 87 0 A2 | EXIT TO Y L291) 76 L290 L138 A44 | J IF NOT CONNECTED 15 (A45) 7 A55 | CONTROL 22Y (A55) 0 A56 | INTERROGATE CONTROL 76 L290 L118 A56 | J OF OK L292) 06 A12 L101 A55 122Y A55 L99 A55 | FETCH ADDRESS 86 (A46 A51 | FORM INTERROGATION WORD L85) 22 (A12 258 A55 | RESET CONTROL 04 A56 A12 | MOD = K 76 L294 L148 A40 | J IF NOT CARDS 76 2+V2 L194 A40 | J IF NOT CARD PUNCH 116 0 L206-1 10 A56 1 L294) 64 2+V2 A40 | J IF ERROR IN CW 65Y L296 A64 A56 | J IF NO ERROR IN MOD CW 05X A64 L144 A12 | RESET CW 05X A64 L144 A56 | RESET MOD CW 22 (A56) 258 A55 | RESET MOD CONTROL 11 520 1 | REDUCE PI COUNT 61 L296 520 | J IF NONZERO 23 16 | RESET PI 60 L296 520 | J IF COUNT ZERO 23 2 | SET PI L296) 87 1 A4 | EXIT L297) 64Y L292 A64+L206 A12 | J IF ERROR IN INTSGE CW 75 L290 | FUNCTION 155 L87) 65 L5 A3 | J PF IF ISOLATED 155 72 L88 4 A12 | J IF DRUM 73 L86 64 A12 | J IF MAG TAPE 112X L98 9 A12 | CLEAR Q 75 L85 X L580 0 | SKIP IF NO PERSEUS ( V0=V2-1 71 L85 4 A12 | J NOT PERSEUS 04 A40 576+5 22 (A12 258 A55 81 L85+1 A12 ) | MODE 13 - PAPER TAPE L91) 64 L92 A1 | J IF 142 76 L92 L121 A44 | J UNLESS SELECT 110X A64 L196 A12 | CLEAR FAILURE BITS 06X A64 L109 A12 | SET IGBUF L92) 15 A44 616 A56 | 47.44.43.41 52 A56 1 111 A56 256 A44 | 45 53 A40 36 A57 15 A57 1536 06 A56 A57 | 47.46 52 A56 37 110 A56 L133 A55 | INSERT ADDRESS 04 (A0 A56 64 L11 A1 | J IF 142 86 L73 A60 | RESTORE LINK? 75 (A51 | MODE 13 - DRUM L93) 21Y A55 64+1 A12 | CURRENT ADDRESS 21Y A56 64+17 A12 | UPPER ADDRESS 52 A55 24 A52 00 A57 A56 | ADDRESSES 15 A44 32 A56 | READ / WRITE 61 2+V2 A56 | J IF READ 00 A57 L102 15 A44 3840 A56 | MASK OUT FAILURE BITS 52 A56 34 00 A57 A56 04 (A0) A57 64 L11 A1 | J IF F142 00Y A55 A64+1 A12 | DRUM FAILURE ADDRESS 117 1 0 04 (A0) A55 L88) 22 (A12) 3 A55 | RESET CONTROL 21Y A55 1 A12 | SET LO TESTER OUT OF ACTION 87 1 A4 | MODE 13 - MAG TAPE C 290 300 L94) 14 A55 76 L290 L138 A44 | J IF NOT CONNECTED 15 (A45) 7 A49 | CONTROL 21Y A55 64+1 A49 | LOWER 21Y A56 64+17 A49 | UPPER 52 A55 24 00 A55 A56 | ADDRESSES 22Y (A49) 0 A56 | INTERROGATE 05 A56 L143 A57 | BITS 12-16 CONTROL 52 A57 18 76 3+V2 L131 A56 | J UNLESS ERASE 10 A57 512 | ADD SHORT 75 2+V2 111 A57 1536 A56 | BITS 9-10 CONTROL 52 A49 7 A59 111 A57 128 A59 10 A57 256 | ADD CONNECTED BIT 52 A57 13 00 A55 A57 05 A56 L195 | FIRST POST 52 A56 24 06 A55 A56 L290) 15 A44 1536 A58 | BITS 9-11 DECK 52 A58 18 111 A58 120 A44 | BITS <*? DECK 52 A58 13 00 A58 A55 | ADD CONTROL INF 04 (A0) A58 | WRITE TO X 64 L11 A1 | J TO EXIT IF F142 L86) 76 L291 L138 A44 | J IF NOT CONNECTED 15 (A45) 7 A49 | CONTROL 22 (A49) 2 A56 | SET CONTROL ERROR 22 (A49) 16 A56 | RESET CONTROL 21Y A56 1 A49 | RESET LO TESTER L291) 22 (A12) 16 A56 | DISENGAGE DECK 22 (A12) 32 A56 | RESET & ENGAGE DECK 87 1 A4 X L529+L539+L549 0 ( | MODE 13 - PRINTER AND PUNCH L95) 15 A44 72 A56 | DISENG & WRECK 52 A56 1 111 A56 256 A44 | DISABLE 52 A56 27 111 A56 1024 A44 | OP. ATTN. 65 V2+2 A40 | J UNLESS BUFF. OVR 10 A56 64 52 A56 10 X L540 0 ( 76 V2+3 L146 A40 | J IF PRINTER 65Y V2+2 A65 A12 | J IF NO RBC FAIL 00 A56 10 ) 110 A56 L133 A55 04 (A0) A56 65 (A51) A1 87 1 A4 ) X L559 0 ( | MODE 13 - CARD READER C 280 300 +8....... L96) 64 L283 A1 | J IF F142 76 L283 L121 A44 | J IF NOT SELECT 110X A64 L196 A12 | CLEAR NORMAL FAILURE BITS 110X A64+L206 L196 A12 | CLEAR INTSTGE FAILURE BITS 06X A64 L109 A12 | SET IGBUF L283) 15 A44 1024 A56 52 A56 36 06 A55 A56 | OPERATOR ATTENTION 05 A40 L103 A56 52 A40 L103 A56 06 A55 A56 76 L290 L138 A44 | J IF NO ENG ATTN 06 A55 L96-1 | ADD ENG ATTN 06X A64 L109 A12 | SET IGBUF L290) 15 A44 72 A56 52 A56 38 06 A55 A56 | DISENGAGED, SELECT 15 A44 128 A56 52 A56 35 00 A55 A56 | 65 COLUMNS 77 7+V2 L149 A44 | J IF NORMAL READER 04Y A56 A64+L206 A12 | FETCG INSTGE CW 05 A56 L102 53 A56 6 A57 53 A57 24 A56 06 A55 A56 06 A55 A57 05 A40 L96-1 A56 53 A56 2 00 A55 A56 | ILLEGAL PUNCHING 77 2+V2 L135 A40 | J IF RCF 76 2+V2 L142 A44 | J UNLESS OVERDUE 06 A55 L104 | READ CHECK FAIL 04 (A0) A55 | WRITE AWAY INF 64 L11 A1 | J IF F142 86 L73 A60 | RESTORE LINK? 75 (A51 ) | RESTORE LINK C 290 299 L73) 112X L98 9 A12 | CLEAR Q 14 A55 L560+1 | AVOID FLEX & MT'S L290) 04Y A56 (L454-5 A55 | FETCH PLIST WORD 15 A56 255 A57 | K 60 L291 A57 A12 | J IF FOUND 81 L290 32 A55 75 (A60 L291) 77 (A60 L136 A56 | J UNLESS ALLOCATED 53 A56 8 10 A56 2 15 (A56 -1 A58 | LINK 116 0 (A12 71 (A60 L98 A58 | EXIT UNLESS FRIGGED 116 (A12 10 L97 1 A57 | CORRECT LINK 111 (A56 -1 A57 | RESTORE 75 (A60 L136) +63.63.63.63.31.63.63.63 L125) +63,56,0,0 | MISC MASKS & CONSTANTS L126) +2,1,63,63,63,63,63 L127) +31,63,63,63,63,63,63,63 L128) +63,63,63,63 L129) +1,0,0,0,0 L130) +63,63,63,63,0,0,0,0 L131) +63,63,63,63,63,63,61,63 L132) +6,7,63,63,0,7,63,63 L101) +32,0,0,0,0,0,0,0 L196) +62,0,0,0,0,0,0,0 L133) +7,63,63,0,7,63,63 L134) -1 L135) +47,63,63,63,63,63,63,63 L138) +63,63,63,63,63,63,59,63 L139) +2,0,0,0,0,0,0 L142) +63,63,63,63,63,63,63,47 L143) +31,0,0 L144) +1,63,63,63,63,63,63,63 L145) +63,0,0,0,0,0,0,0 L189) +61,63,63,63,63,63,63,63 L110) +48,0,0,0,0,0,0,0 L111) +63,31,63,63,63,63,63,63 L112) +63,47,63,63,63,63,63,63 L113) +63,55,63,63,63,63,63,63 L114) +63,62,63,63,63,63,63,63 L118) +63,63,63,63,63,63,63,61 L119) +63,63,63,63,15,63,63,63 L120) +63,63,63,63,63,63,62,63 L140) +63,63,63,63,63,63,63,62 L115) +63,63,63,47,63,63,63,63 L116) +63,63,63,63,63,63,63,31 L146) +63,63,59,63,63,63,63,63 L147) +48,0,0 L148) +63,59,63,63,63,63,63,63 L149) +63,63,63,63,63,63,31,63 L190) +1,8,0,0,0,0 L191) +2,16,1,0 L192) +1..2..... L193) +62,63,63,63,63,63,63,63 L194) +63,63,55,63,63,63,63,63 L195) +1,0,0,0 L117) +63,63,63,63,63,63,63,59 X L580 0 ( | PERSEUS TAPE C 280 299 | F140 MOD L51) 04 A13 A12 | PRESUMPTIVE K BITS 14 A12 4 | PERSEUS CHANNEL ADDRESS 75 L29+5 | F154 MOD L55) 61 L90+9 L97+5 A13 | J UNLESS PRESUMPT. K BITS 04 A40 576+5 | FETCH CONTROL WORD 75 L90+2 | MODE 22 L52) 72 L80 L192 A44 | J IF BUSY OR DISENG 71 L282 6 A13 | J IF WRONG MODE 86 L8 6 A51 | CHECK LO ETC - WEAK 64 L5 A4 | J PF IF OVR 04 A55 (A0) 77 L281 L135 A55 | J IF REWIND 65 L280 A55 | J IF CONDITION FORWARDS 116 0 32 | BACKWARDS L280) 116 0 16 | FORWARDS L281) 22 4 16 A60 | REWIND 04 L97+5 A13 | PRESUMPTIVE K BITS 112 L98+4 9 87 1 A4 L282) 06 576+5 L108 | SET WRONG MODE 75 L14+1 | J TO SET PI | F102 ENTRY L54) 70 V2+2 8 A53 | J IF MODE 8 116 51 36 117 1 52 (A43 6 | SHIFT UP LAST WORD 112 L98+4 9 75 L19 | MODES 2,8 +1.1.2.....15 +1..2....6.33 L53) 77 L80 L197 A44 | J IF BUSY OR DISENG 70 L283 2 A53 | J IF MODE 2 116 0 1 L283) 71 L282 4 A13 | J IF WRONG MODE 86 L8 7 A51 | CHECK LO - STRONG 70 L284 8 A53 116 0 1 | DATA L284) 04 576+5 L53-2 | ADDRESS 52 A0 16 A55 00 576+5 A55 | ADD STORE ADDRESS 70 L285 2 A53 | J IF MODE 2 116 0 512 | ADDRESS L285) 22 4 512+4 A60 | DATA 107 0 L98+4 | FIDDLE W 04 L97+5 A13 | PRESUMPTIVE K BITS 64 L11 A0 | J IF ENG OR MON 75 L80 | ABANDON - PL | MODE 13 L56) 15 A44 192 A56 | REWINDING & DISENG. 52 A56 2 76 V2+2 L138 A44 | J UNLESS DISABLED 16 A56 16 111 A56 2080 A44 | TAPE FAULTS & ADDRESS IN 65 L290 576+5 | J UNLESS WRONG MODE 16 A56 1024 L290) 71 L291 5 A13 | J UNLESS *EAN 16 A56 128 L291) 52 A56 36 06 A55 A56 04 (A0) A55 | WRIE AWAY INFORMATION 64 L11 A1 | J IF F142 86 L73 A60 | RESTORE LINK? 22 (A12 258 A55 | RESET CONTROL 81X 1 A12 A51 ) L100) 04 128 L100+1 | 140.2 INSTR TO 128 140.2 0 L501 | READ 8 CHARS FROM PT 142 129 8 | AND STORE THEM IN 129 75 128 | JUMP TO OBEY 140/142 PAIR | SET UP TABLE 1 L572=V2 | FLEX OUT - ALL SYSTEMS HAVE A FLEXOWRITER VO=L1+L570 0S L155 0 0 V0=L1+L571 0S L151 L572 0 V0=L572+16 L505=V2+8 | PT IN - ALL SYSTEMS MUST HAVE 1 PT READER V0=L1+L501 0S L150 L505 0 V0=L505+9 X L500 1 | SKIP IF 1 PT READER ( L506=V2+8 | OTHERWISE PLACE L1 WORD FOR SECOND READER V0=L1+L502 0S L150 L506 0 V0=L506+9 X L500 2 ( L507=V2+8 V0=L1+L503 0S L150 L507 0 V0=L507+9 X L500 3 ( L508=V2+8 V0=L1+L504 0S L150 L508 0 V0=L508+9 ) ) ) L515=V2 | PT OUT V0=L1+L511 0S L151 L515 0 V0=L515+16 X L510 1 ( L516=V2 V0=L1+L512 0S L151 L516 0 V0=L516+16 X L510 2 ( L517=V2 V0=L1+L513 0S L151 L517 0 V0=L517+16 X L510 3 ( L518=V2 V0=L1+L514 0S L151 L518 0 V0=L518+16 ) ) ) X L520 0 ( L525=V2 | UNBUFF ANALEX V0=L1+L521 0S L154 L525 0 V0=L525+191 X L520 1 ( L526=V2 V0=L1+L522 0S L154 L526 0 V0=L526+191 X L520 2 ( L527=V2 V0=L1+L523 0S L154 L527 0 V0=L527+191 X L520 3 ( L528=V2 V0=L1+L524 0S L154 L528 0 V0=L528+191 ) ) ) ) X L610 0 ( L615=V2 | 665 PRINTER V0=L1+L611 0S L154 L615 0 V0=L615+161 X L610 1 ( L616=V2 V0=L1+L612 0S L154 L616 0 V0=L616+161 X L610 2 ( L617=V2 V0=L1+L613 0S L154 L617 0 V0=L617+161 X L610 3 ( L618=V2 V0=L1+L614 0S L154 L618 0 V0=L618+161 ) ) ) ) X L530 0 ( L535=V2 | BUFF ANELEX V0=L1+L531 0S L158 L535 0 V0=L535+25 X L530 1 ( L536=V2 V0=L1+L532 0S L158 L536 0 V0=L536+25 X L530 2 ( L537=V2 V0=L1+L533 0S L158 L537 0 V0=L537+25 X L530 3 ( L538=V2 V0=L1+L534 0S L158 L538 0 V0=L538+25 ) ) ) ) X L540 0 ( L545=V2 | CARD PUNCH V0=L1+L541 0S L156 L545 0 V0=L545+64 X L540 1 ( L546=V2 V0=L1+L542 0S L156 L546 0 V0=L546+64 X L540 2 ( L547=V2 V0=L1+L543 0S L156 L547 0 V0=L547+64 X L540 3 ( L548=V2 V0=L1+L544 0S L156 L548 0 V0=L548+64 ) ) ) ) X L550 0 ( L555=V2+1 | CARD READER V0=L1+L551 0S L157 L555 0 V0=L555+73 X L550 1 ( L556=V2+1 V0=L1+L552 0S L157 L556 0 V0=L556+73 X L550 2 ( L557=V2+1 V0=L1+L553 0S L157 L557 0 V0=L557+73 X L550 3 ( L558=V2+1 V0=L1+L554 0S L157 L558 0 V0=L555+73 ) ) ) ) V3=V2 X L580 0 ( V0=L1+4 0S L159 0 0 0S L159 0 0 0S L159 0 0 ) | TABLE 0 - UNUSED ROWS ARE USED TO STORE PROGRAM CONSTANTS V0=L0 L102) +16....... L103) +2....... L104) +16...... +0 F 12 36 L5 | F95 - PROG FAIL +0 F 12 36 L78 | F101 F 12 24 L79 | F102 F 12 12 L89 | F103 L105) +1...... L106) +8...... L108) +40....... +0 F 12 36 L76 | F41 F 12 24 L76 | F42 F 12 12 L76 | F43 F 12 0 L76 | F40 +0 F 12 36 L75 | F125 & F45 F 12 24 L71 | F126 F 12 0 L76 | F44 L109) +32...... L121) +63.63.63.63.63.63.63.55 +0 F 12 36 L6 | F141 F 12 24 L7 | F142 F 12 0 L3 | F140 L122) +60.63.63.63.63.63.63.63 L197) +63.63.63.63.63.63.62.59 +0 F 12 36 L87 | F155 F 12 24 L81 | F156 F 12 0 L90 | F154 J L403 L400 32 L400 | CALCULATE FIRST PROGRAM ADDRESS | ASSEMBLER C 290 299 V0=V3 L454 142 517 | SET UP 1ST XCODE INSTRS 142 L450 4 | AND SET COUNT OF PI ZERO 14 1 L581 L290) 04XY 576 L455 1 04XY L98 L456 1 14X L99 0 1 81 L290 L200 1 X L580 0 | SKIP IF NO PERSEUS 14 L97+5 4 | SET INITIAL PERS PRESUMPT K 04 583 L453 X L521 0 ( 140.26 0 L521 142 L451 15 ) X L522 0 ( 140.26 0 L522 142 L451 15 ) X L523 0 ( 140.26 0 L523 142 L451 15 ) X L524 0 ( 140.26 0 L524 142 L451 15 ) X L531 0 ( 140.26 0 L531 142 L451 15 ) X L532 0 ( 140.26 0 L532 142 L451 15 ) X L533 0 ( 140.26 0 L533 142 L451 15 ) X L534 0 ( 140.26 0 L534 142 L451 15 ) X L611 0 ( 140.26 0 L611 142 L457 13 ) X L612 0 ( 140.26 0 L612 142 L457 13 ) X L613 0 ( 140.26 0 L613 142 L457 13 ) X L614 0 ( 140.26 0 L614 142 L457 13 ) 142.22 0 L571 | EXTRACODE LOADED 142 L452 19 157 75 583 L450) 122Y 575 L0 1 15 575 4095 75 (575) +0 X L520+L530 0 ( L451) +16,63,28,63,17,63,30,63 +18,63,29,63,19,63,31,63 +20,63,60,63,21,63,62,63 +22,63,8,63,23,63,9,63 +24,63,1,63,25,63,15,63 +26,63,27,63,33,63,34,63 +35,63,36,63,37,63,38,63 +39,63,40,63,41,63,42,63 +43,63,44,63,45,63,46,63 +47,63,48,63,49,63,50,63 +51,63,52,63,53,63,54,63 +55,63,56,63,57,63,58,63 +12,63,6,63,13,63,14,63 +10,63,11,63,5,63,0,63 +7,63,61,63,32,63,59,63 ) X L610 0 ( L457) +16.63.28.63.17.63.30.63 +18.63.29.63.19.63.31.63 +20.63.32.63.19.63.31.63 +22.63.59.63.23.63.8.63 +24.63.9.63.24.63.1.63 +26.63.62.63.27.63.15.63 +33.63.34.63.35.64.36.63 +37.63.38.63.39.63.40.63 +41.63.42.63.43.63.44.63 +45.63.46.63.47.63.48.63 +49.63.50.63.51.63.52.63 +53.63.54.63.55.63.56.63 +57.63.58.63.... ) L452) +2.37.56.52.50.33.35.47 +36.37..44.47.33.36.37 +36.2.2..... L452) 75 L100 L1 L455=V2 V0=V2+32 L456=V2 V0=L455+L570 +1..2.....1 | FLX V0=L456+L570 102 L21 V0=L455+L571 +1..4.....1 | FLO V0=L456+L571 102 L26 V0=L455+L501 +1..2.....1 | PT READER V0=L456+L501 102 L15 X L500 1 ( V0=L455+L502 +1..2.....1 V0=L456+L502 102 L15 X L500 2 ( V0=L455+L503 +1..2.....1 V0=L456+L503 102 L15 X L500 3 ( V0=L455+L504 +1..2.....1 V0=L456+L504 102 L15 ) ) ) V0=L455+L511 +1..4.....1 | PT PUNCH V0=L456+L511 102 L26 X L510 1 ( V0=L455+L512 +1..4.....1 V0=L456+L512 102 L26 X L510 2 ( V0=L455+L513 +1..4.....1 V0=L456+L513 102 L26 X L510 3 ( V0=L455+L514 +1..4.....1 V0=L456+L514 102 L26 ) ) ) X L520 0 ( V0=L455+L521 +10.1.... X L520 1 ( V0=L455+L522 +10.1.... X L520 2 ( V0=L455+L523 +10.1.... X L520 3 ( V0=L455+L524 +10.1.... ) ) ) ) X L610 0 ( V0=L455+L611 +18.1.... X L610 1 ( V0=L455+L612 +18.1.... X L610 2 ( V0=L455+L613 +18.1.... X L610 3 ( V0=L455+L614 +18.1.... ) ) ) ) X L530 0 ( V0=L455+L531 +16..... | BUFF ANELEX X L530 1 ( V0=L455+L532 +16..... X L530 2 ( V0=L455+L533 +16..... X L530 3 ( V0=L455+L534 +16..... ) ) ) ) X L550 0 ( L459=L455+L206 V0=L459+L551 +14.....1 V0=L455+L551 +1.4.12.....1 V0=L456+L551 102 L59+2 X L550 1 ( V0=L459+L552 +14.....1 V0=L455+L552 +1.4.12.....1 V0=L456+L552 102 L59+2 X L550 2 ( V0=L459+L553 +14.....1 V0=L455+L553 +1.4.12.....1 V0=L456+L553 102 L59+2 X L550 3 ( V0=L459+L554 +14.....1 V0=L455+L554 +1.4.12.....1 V0=L456+L554 102 L59+2 ) ) ) ) X L580 0 ( V0=L455+4 +1..2.....1 | PERSEUS TAPE +1.1.2.....1 V0=L456+4 102 L54 ) V1=V3+128 V2=128 | READ BINARY EXTRACODE C 280 290 L460)) 75 L287 L283) +2.2.15...8 +47.63.63.63.63.63.63.63 +63.63.63.63.63.663.662.59 +2.4.....32 L290) 04Y A1 -1 A63 15 A1 32767 A2 52 A2 16 06 A2 L290-1 04 L571+576 A2 22 L571 4 A62 64 (A630 A1 157 75 v2-1 L287) 14 A1 14 A2 04 L501+576 L283 22 L501 4 A63 22Y L501 0 A63 04 A62 L501+576 77 L284 L283+1 A62 77 L287+4 L283+2 A63 04X L0 A60 A1 00 A2 A60 81 L287+2 V3+128-L0 A1 60 L286 A2 86S L290 V2+1 A63 +35.40.37.35.43.51.53.45 +38.33.41.44.53.50.37 +2....... L284) 86S L290 V2+1 A63 +48.33.50.41.52.57..38 +33.41.44.53.50.37.2. L285) +51.55.41.52.35.40..47 +38.38..37.56.52.50.33 +35.47.36.37..45.47.36 +37.2...... L286) 86 L290 L285 A63 13 A8 1 23 A8 14 A1 10000 83 V2 A1 66 V2+1 4 61 V2-4 A8 75 V3 V0=L283+61 +7.7.7.7.7.7.7.7 +7.7.7.7.7.7.7.7 V65=0 ENTER 0 END