3 WHOW LDA D0 (A)=NO. OF WORDS PER ITEM
4 ALS 1 (A)=NO. OF CHARS, PER ITEM
5 STA NTID NTID=NO. OF CHARS. TO BE OUTPUT
17 JMP W420 TO CHECK NEXT DATA
21 LDA NTID NO. OF CHARS, REMAINED TO BE OUTPUT
25 JMP W420 ALL FINISHED, CHECK NEXT ITEM
26 JMP* WSNG SOME HOLLERITH CHARS, REMAINED
27 W403 LDA TID+2 REAL OUTPUT
31 W404 LDA TID+2 DOUBLE PRECISION OUTPUT
35 W405 LDA TID INTEGER OUTPUT
42 * TO BE OUTPUT, RETURN
44 BCI 1,DM DATA AND DATA NAME MODE DO NOT AGREE
51 SUB G TEST FOR COMPLETE
58 JST CH00 INPUT NEXT CHARACTER
60 SZE SKIP IF CHAR = COMMA
62 JMP W4 PROCESS NEXT DATA GROUP
66 W4S JST FS00 FLUSH BUFFER IF NECESSARY
67 LDA AF POSITION WITHIN COMMON BLOCK
69 LDA K106 FORMAT BCD OUTPUT
102 JST STXI I POINTS TO DATA TABLE
103 LDA DP-1,1 SET A TO VARIABLE
107 W4T LDA K101 =1 (=REL)
110 JST AF00 DEFINE AFT (AT=REL. AF=RPL)
111 LDA I SET POINTER IN DATA POOL
114 STA DP,1 DP(I) = RPL OF VARIABLE
121 * *********************************
122 * *BLOCK DATA SUBPROGRAM PROCESSOR*
123 * *********************************
124 * SET BLOCK DATA FLAG AND OUTPUT FORCE LOAD CODE
125 R3 LDA LSTF =0 IF FIRST STATEMENT IN THE SUBPROGRAM
128 JST ER00 ERROR...NOT FIRST STATEMENT
129 BCI 1,BL 'BLOCK DATA' NOT FIRST STATEMENT
130 STA BDF SET BLOCK DATA FLAG ON (NON-ZERO)
131 JST CH00 INPUT NEXT CHARACTER
132 JMP A1 CHECK FOR (CR) AND EXIT
140 * ***************************
141 * *TRACE STATEMENT PROCESSOR*
142 * ***************************
143 * SETS TRACE TAG ON VARIABLES OR SETS TRACE FLAG
144 TRAC JST XN00 EXAMINE NEXT CHARACTER
145 SZE SKIP IF CHAR, WAS A DIGIT
146 JMP TRAD JUMP IF CHAR. WAS A LETTER
147 JST IS00 INPUT STATEMENT NO.
148 LDA A STATEMENT NO. POINTER
149 STA TRF SET TRACE FLAG ON
150 JMP A1 TEST FOR (CR) AND EXIT
152 TRAD JST NA00 INPUT NAME
153 JST STXA SET INDEX TO NAME ENTRY
154 LDA DP+4,1 TT(A) TRACE TAG
157 JMP B1 (,) OR (CR) TEST
158 * (RETURN TO TRAC IF (,) )
162 * ********************
163 * *OUTPUT OBJECT LINK*
164 * ********************
177 * GENERATE I/O DRIVER LINKAGE CODE. NAME OF
178 * CALLED ROUTINE IS CHANGED IF UNIT DESIGNATOR
181 JST IV00 INPUT INT VAR/CON
195 OI10 JST CN00 CALL NAME
199 JST OB00 (LOAD A (UNIT N0.))
206 * SET UP NAME AND GENERATE CODE FOR CALLING IT.
209 JST PRSP SET PRINT BUFFER TO SPACES
210 LDA K147 SET UP OCI FOR CALL
212 LDA NAMF+1 OCI = NAMF
214 IAB ALSO TO PRINT BUFFER
239 JMP *+3 INHIBIT SYMBOLIC OUTPUT
240 CALL F4$SYM OUTPUT SYMBOLIC LINE,
242 IRS RPL RPL = RPL + 1
243 JST PRSP SET PRINT BUFFER TO SPACES
251 * OUTPUT THE PACK WORD WHEN IT IS FULL.
255 CAS CRET IF (A) = C/R
258 IRS PKF PKF = PKF + 1
259 JMP OK20 IF NON-ZERO, GO TO OK20
260 OK10 ADD T0OK (A) = (A) + T0
271 OK30 LDA PKF IF PKF = 0
274 LDA K8 ELSE (A) = SPACE,
282 * GENERAL OUTPUT ROUTINE. MAKES CHECKS AGAINST
283 * THE ASSIGNMENT TABLE ENTRY TO PROCESS DUMMY,
284 * EXTERNAL, RELATIVE, ABSOLUTE OR STRING
285 * REFERENCES PROPERLY.
294 JST FA00 FETCH ASSIGNS
295 LDA SOF SPECIAL OUTPUT FLAT
297 JMP OB60 SUBSCRIPT CONSTANT DEFLECTION
301 SUB K105 IF AT = 'DUM'
305 SUB K101 IF IU = 'SUB'
309 CAS K104 IF AT = 'COM'
313 JMP *+2 IF AT = 'REL'
318 JST AF00 DEFINE AF AND AT
319 LDA AT IF AT = 'STR-RE'
326 STA DF SET FLAG TO OUTPUT SYMBOLIC
328 JST OA00 OUTPUT ABSOLUTE
336 CHS REVERSE INDIRECT BIT
339 OB20 JST FS00 OUTPUT COMMON REOUEST
340 LDA T1OB PACK ADDRESS INTO BLOCK
352 STA PRI+13 SET COMMON NAME INTO PRINT BUFFER
357 STA PRI+12 SET COMMON NAME INTO PRINT BUFFER
363 CAS *+1 LOOK FOR BLANK COMMON
367 STA PRI+11 SET NAME INTO PRINT BUFFER
378 STA A RESTORE A TO POINT AT NAME
379 LDA RPL SET RPL MINUS
380 SSM TO DISABLE WORD OUTPUT
382 LDA FTOP OUTPUT WORD TO LIST
383 JST OR00 SYMBOLIC COMMAND
385 SSP INCREMENT PROGRAM
386 AOA COUNTER FOR COMMON
388 JST FS00 CLOSE OUT BLOCK
410 STA SOF RESET SPECIAL OUTPUT FLAG
412 CAS K105 TEST FOR DUMMY
413 JMP OB06 PROCESS NORMALLY
415 JMP OB06 PROCESS NORMALLY
427 * PROCESSES THE TRIAD TABLE, HANDLES FETCH
428 * GENERATION AND RELATIONAL OPERATOR CODE
429 * GENERATION, DRIVES OUTPUT ITEM. ASSIGNS
430 * AND OUTPUT TEMP STORES.
434 T3OT PZE 0 TEMP STORE FOR P
449 JMP OT60 IF FINISHED, GO TO OT60
476 JMP OT99 MAYBE SPECIAL LOAD FOR (A=) STATEMENT
483 JST OM00 OUTPUT ITEM(P(I),A = 02(I))
509 SSM SURPRESS TRACE OF TEMPORARY STORAGE
510 JST OM00 OUTPUT ITEM (=,A)
518 OT16 LDA K152 GENERATE FETCH
520 OT32 LDA T3OT CHECK FOR RELATIONALS
523 JMP OT18 NOT LOGICAL OR6RATOR
526 JMP OT18 NOT A LOGICAL QPERATOR
527 STA 0 SET INDEX = -1 TO -6
529 STA MFL SET MODE TO LOGICAL
531 STA A SET FOR OCTAL ADDRESS
532 JMP *+7,1 BRANCH TO OPERATOR PROCESSOR
538 LDA OMJ4 .NE. =ALS 16
539 JST OA00 OUTPUT ABSOLUTE
546 OT3C LDA OMJ4 = ALS 16
549 JST OA00 OUTPUT ABSOLUTE
551 OT3D JST OA00 OUTPUT ABSOLUTE
554 JST OA00 OUTPUT ABSOLUTE
556 OT3F JST OA00 OUTPUT ABSOLUTE
557 OT3G LDA OMJ5 =LGR 15
565 JST OL00 OUTPUT OBJECT LINK
569 STA I I = 02 (I) + DO
570 JST DQ00 DO TERMINATION
579 JST DS00 DO INITIALIZE
582 LDA L0 RESET TRIAD TABLE
589 JMP OT16 NOT SPECIAL LOAD
590 STA MFL SPECIAL LOAD, SET MFL=0
591 JMP OT18 OUTPUT A STORE
602 * DRIVES BASIC OUTPUT ROUTINES. HANDLES SPECIAL
603 * SUBSCRIPT PROCESSING, GENERATES NECESSARY
604 * MODE CONVERSION CALLS AND HANDLES MODE
605 * CHECKING. IN-LINE ARITHMETIC CODE IS
606 * GENERATED WHERE POSSIBLE. OTHERWISE CALLS
607 * TO ARITHMETIC ROUTINES ARE GENERATED.
616 *-------------OUTPUT ITEM
617 OM00 DAC ** RETURN ADDR
620 STA T0OM R(0)=(A)='P' CODE
641 JMP OM76 A .LE. ABAR....WITHIN TRIAD TABLE
643 OM10 JST STXA SET INDEX=A
645 ARS 9 SES IM=MODE OF ITEM
648 OM14 LDA MFL SET MFL,IM AS DIGITS INTO NAMF
656 CAS OM50+6,1 CHECK FOR SPECIAL OPERATOR
658 JMP* OM52+6,1 'P'='Q',',','0','A'F', OR 'E'
663 JMP OM62 SPECIAL LIBRARY FIX FOR ( A= )
664 CAS IM CHECK FOR MODE MIXING
666 JMP OMA1 ITEM MODE SAME AS CURRENT MODE
668 JST OM44 CHECK MODE FOR LOG
669 LDA K102 =2 (MODE CODE FOR REAL)
670 CAS MFL MODE OF EXPRESSION
672 JMP OM26 IF MODE=REAL, ALLOW COMPLEX MODE MIXING
675 JMP OM26 IF MODE=REAL, ALLOW COMPLEX MODE MIXING
677 JST OM44 TEST FOR MODE = COMPLEX
678 OM26 LDA T0OM OPERATOR BEING PROCESSED
681 JMP OM36 T(0)='=' (ALLOW INTEGER MODE)
683 JST OM44 TEST FOR MODE=INTEGER
686 JMP OM38 CONVERT MODE OF ACCUMULATOR
688 OM30 JST NF00 SET LBUF+2 TO SPACES
691 LDA A9X4,1 PICK-UP PRINT CODE FOR 'P' OPERATOR
695 JMP OM46 MODE MIXING ERROR
704 JST OM44 CHECK FOR MODE=COMPLEX
707 JST NF00 SET LBUF+2 TO SPACES
710 OM40 JST CN00 OUTPUT....CALL NAMF
712 STA IM SET ITEM MODE TO CURRENT MODE
717 JMP OM14 OUTPUT ARGUMENT ADDRESS
719 *-----SUBROUTINE TO CHECK FOR ILLEGAL IM OR MFL MODES,
720 OM44 DAC ** RETURN ADDR,
721 CAS IM CHECK FOR IM0(A)
724 CAS MFL CHECK FOR MFL=(A)
728 OM46 JST ER00 NON-RECOVERABLE ERROR......
729 BCI 1,MM MODE MIXING ERROR
731 *------SPECIAL 'P' OPERATOR TABLE
746 OM56 LDA OMI1 SET T(1) = ADD*
749 OM60 JST STXA SET INDEX = A
757 JMP OM64 (POSSIBLE DUMMY ARRAY FETCH)
759 STA MFL SET CURRENT MODE TO ITEM MODE
765 SUB K101 CHECK FOR IU=1 (SUBROUTINE)
768 LDA OMI2 SET T(1) = JST
771 SUB K103 CHECK FOR IV=3 (ARRAY)
774 LDA K101 SET CURRENT MODE TO INTEGER
776 LDA OMI3 SET T(1) = LDA*
781 CAS IM CHECK ITEM MODE EQUALS INTEGER
784 LDA K105 CHECK FOR MODE = COMPLEX
787 OM74 LDA K103 CHECK FOR MODE = LOGICAL
789 JMP OM30 OUTPUT SUBROUTINE CALL
791 OM76 JST STXA INDEX=A
797 JMP OM84 P(A)='0' (SUBSCRIPTED VARIABLE)
800 JMP OM80 P(A) = 'X' (END OF ARRAY CALCULATION)
804 OM78 LDA T2OM P(4)= 'H' (HOLLERITH DATA)
808 OM80 JST STXI INDEX=I
810 STA DP+1,1 O1(I) = T(2)
812 STA T1OT SET T(1) OF OUTPUT TRIADS TO ZERO
815 CRA SET A=0 (NOT SYMBOLIC)
820 LDA OMI4 =ADD INSTRUCTION
821 JST OR00 OUTPUT RELATIVE
823 ADD K102 AF = RPL P+ 2
825 LDA OMI5 = JMP INSTR,
826 JST OR00 OUTPUT RELATIVE
829 STA SOF SET SPECIAL OUTPUT FLAG TO NON-ZERO
835 OM84 LDA DP+1,1 O1(A)
839 JMP OM86 A=L(0)....CONSTANT SUBSCRIPT ONLY
840 LDA OMI0 T(1) = INDIRECT BIT
848 LDA DP,1 T(2) = 02(A)
850 OM88 JST STXA INDEX=A
865 OM94 OCT 000021 'C' CODE
866 OM95 OCT 017777 (MASK)
870 OMA1 LDA IM CHECK FOR IM=LOGICAL
874 CAS K101 CHECK FOR IM=INTEGER
879 OMA3 LDA T0OM CHECK FOR T,0) = '+'
885 JMP OMA6 OUTPUT 'TCA'
890 OMA4 LDA T2OM VALUE OF A
891 SUB K126 ='12 KNOWN LOCATION OF A FOR 2
892 SZE SMP IF MULTIPLIER IS A CONSTANT OF 2
893 JMP OM30 COUPLE TO THE MULTIPLY SUBROUTINE
894 STA A SET A AND AF TO ZERO (FOR LISTING FLAGS)
896 LDA *+3 ALS 1 INSTRUCTION
897 JST OA00 OUTPUT ABSOLUTE
898 JMP* OM00 EXIT UUTPUT ITEM
899 ALS 1 (INSTRUCTION TO BE OUTPUT)
900 OMA5 CAS K102 CHECK FOR T(0) = '-'
905 STA A CAUSE OCTAL ADDR LISTING
908 JST OA00 OUTPUT ABSOLUTE
911 OMA7 CAS K153 CHECK FOR T(0) = '='
913 JMP OMA9 OUTPUT A STA INSTR,
914 SUB K152 CHECK FOR T(0) = 'F'
917 OMA8 LDA OMI7 =LDA INSTR,
919 OMA9 LDA OMI8 =STA INSTR,
920 OMB1 ADD T1OM T(1) = T(1) + INSTR.
922 OMB3 LDA T2OM SET A=T(2)
924 LDA T9OM OUTPUT INSTR. WITH T(1) AND T(9)
928 LDA T8OM CHECK FOR T(8) = '='
933 LDA TRFA POINTER TO FIRST VARIABLE OR ARRAY
934 STA A PROCESSED IN EXPRESSION
935 JST TRSE OUTPUT TRACE COUPLING IF REQUIRED
936 JMP* OM00 EXIT OUTPUT ITEM
940 CAS K152 CHECK FOR T(0) = 'F'
942 JMP OMA8 OUTPUT A LDA INSTR.
943 CAS K153 CHECK FOR T(0) = '='
945 JMP OMA9 OUTPUT A STA INSTR,
946 CAS OM94 CHECK FOR T(0) = 'C'
948 JMP OM30 OUTPUT COMPLEMENT CODING
951 JMP OMC5 OUTPUT AN ANA INSTR.
956 OMC5 LDA OMI9 =ANA INSTR.
958 OMD1 IRS TXOM T0 = T0+1
962 JST OA00 OUTPUT ABSOLUTE
967 TRSE DAC 0 SUBROUTINE TO OUTPUT TRACE COUPLING
968 JST STXA SET INDEX = A
970 LDA DP+4,1 CHECK STATUS OF TRACE TAG
975 LDA TRF CHECK STATUS OF TRACE FLAG
978 TRS7 JST NF00 SET LBUF TO 'F$', LSUF+2 TO SPACES
981 JST CN00 OUTPUT.....CALL NAMF
982 JST STXA SET INDEX = A
992 LDA DP,1 MERGE IM WITH ITEM NAME
996 JST OA00 OUTPUT ABSOLUTE (FIRST 2 CHAR.)
998 JST OA00 OUTPUT ABSOLUTE (NEXT 2 CHAR.)
1000 JST OA00 OUTPUT ABSOLUTE (LAST 2 CHAR.)
1003 *.................INSTRUCTION TABLE
1004 OMI0 OCT 100000 INDIRECT BIT
1005 OMI1 OCT 114000 ADD*
1007 OMI3 OCT 104000 LDA*
1014 OMJ1 OCT 102000 JMP*
1018 OMJ5 OCT 040461 LGR 15
1025 OMK5 OCT 042000 JMP 0,1
1026 OMK6 OCT 000000 DAC **
1045 * ALSO DRIVES SYMBOLIC INSTRUCTION OUTPUT.
1048 LDA K102 DF = NON ZER0
1055 OR12 LDA DF IF DF NOT ZERO
1060 LDA OR19 SET 'OCT' INTO PRINT IMAGE
1065 OR15 LDA RPL IF RPL PLUS
1067 JST OW00 OUTPUT WORD
1069 JMP *+3 SURPRESS SYMBOLIC OUTPUT
1070 CALL F4$SYM LIST LINE
1072 JST PRSP SET PRINT BUFFER TO SPACES
1074 OR18 OCT 147703 (0)(C)
1075 OR19 OCT 152240 (T)(SP)
1077 LDA OR90 SEARCH OP-CODE LIST
1079 STA XR PUT BCI IN PRINT IMAGE
1106 ANA K111 MASK OUT HIGH BITS OF ADDRESS
1113 STA PRI+8 SET =' INTO LISTING
1114 LDA DP,1 CHECK IM (A)
1116 SPL SKIP IF NOT COMPLEX
1119 SPL SKIP IF INTEGER OR LOGICAL
1122 JMP *+2 LIST EXPONENT AND PART OF FRACTION
1123 LDA DP+4,1 LIST INTEGER VALUE
1124 JST OR80 CONVERT OCTAL
1127 OR40 LDA DP+4,1 CONVERT AND PACK INTO
1147 * *******************
1148 * *OUTPUT STRING-RPL*
1149 * *******************
1155 STA OR00 SET RETURN INTO OUTPUT REL
1158 STA STFL STRING FLAG = NON ZERO
1159 JST PRSP SET PRINT BUF. TO SPACES
1160 JMP OR20 JMP-OUTPUT REL FOR SYMBOLIC AND BINARY
1193 OR92 BCI 22,ADJSLDADJMSULDSTANJMSNSMLLLRACTCCMSSAOSSJMDA
1195 BCI 9,STCASTSUDAERSUCA//
1196 OR93 BCI 22,D*T A*D P B A A A P*Z I 1515A A A C A M PXC
1198 BCI 9,G S A*B*C*R/BRS*/
1201 PRSP DAC ** SUBR. T0 SET PRINT BUF. T0 SPACES
1209 PRSK OCT 177730 =-40
1211 * *************************************
1212 * *OUTPUT SUBROUTINE/COMMON BLOCK NAME*
1213 * ************************************
1214 * OUTPUT AN EXTERNAL REFERENCE NAME.
1217 STA ONT1 SAVE ADDRESS
1218 JST FS00 FLUSH BUFFER IF NECESSARY
1219 JST STXA SET INDEX=A
1220 LDA ONT1 SUBR. ENTRY ADDR.
1222 STA ONT1 SAVE S/C BITS
1223 LDA ON02 ='600 (=BLOCK CODE NO.)
1227 JST STXA SET INDEX=A
1228 LDA DP+4,1 FIHST 2 CHAR. 0F NAME
1237 LDA DP+3,1 SECOND 2 CHAR. OF NAME
1241 LDA DP+2,1 LAST 2 CHAR. OF NAME
1252 STA OCNT SET 8LOCK SIZE (DOUBLED)
1253 JST FS00 FLUSH BUFFER
1255 ON02 OCT 600 BLOCK CODE NUMBER (6)
1256 ONT1 OCT 0 TEMP STORE
1268 JST FS00 FLUSH BUFFER IF DIFFERENCE IN RPL'S N0T 1
1274 JST FS00 FLUSH BUFFER
1277 STA OCNT OCNT = OCNT+3
1279 ARR 1 OCI (OUTPUT CARD IMAGE)
1281 SMI LEFT OR RIGHT POS,
1284 LRL 8 IF BUFFER FULL
1286 ANA K116 CALL FLUSH (FS0O)
1293 LDA PRI+14 USE LOW BIT OF PRI+14 DATA
1295 LGR 1 STRIP OFF HIGH BIT OF BLOCK CODE TYPE NO,
1296 LLL 3 SET DIGITS IN PRI+17, PRI+19
1301 LGL 1 SHIFT ADDR. TO RIGHT BY 1 BIT
1303 JST OR80 SET DIGITS IN PRI+15, PRI+16
1308 STA PRI+15 OVERWRITE BINARY DATA IN
1309 STA PRI+16 PRINT BUFFER WITH SPACES
1310 STA PRI+17 IF NO BINARY LISTING IS WANTED
1317 IMA STFL INDICATE WORD WAS KEY TO LOADER
1318 SNZ THEN LEAVE RPL ALONE
1326 LDA CODE COMBINE CODES TO
1331 JMP PU10 JUMP IF REL.
1335 STA PRI+14 SAVE FOR LISTING
1338 LRR 12 RESTORE POSITION
1357 * ******************
1358 * *FLUSH SUBROUTINE*
1359 * ******************
1361 LDA OCNT BUFFER OCCUPANCY SIZE
1362 JST SAV SAVE INDEX REGESTER
1363 SUB K104 CHECK FOR OCNT .GT. 4
1365 JMP FS20 SKIP OUTPUT IF BUFFER IS EMPTY
1366 ADD K105 ADD 1/2 AT B14
1369 STA OCNT OCNT = -WORDS/BUFFER
1371 STA PCNT BUFFER SIZE INCLUDING CHECKSUM
1372 LDA OCI FIRST WORD IN BUFFER
1376 JMP FS30 BLOCK TYPE = 2 (RELOCATABLE CODE)
1377 * EVERY TIME A BLOCK OF OBJECT OUTPUT IS DUMPED, THE FIRST
1378 * 3 WORDS OF THE BLOCK IS INSERTED IN THE SYMBOLIC OUTPUT
1379 * ALONG WITH AN EOB OPERATOR CODE IF SENSE SWITCH 1 1S DOWN.
1380 * TO INHIBIT THIS LINE, REPLACE FROM FS10 TO AND INCLUDING
1381 * FS11 WITH (FS10 CRA ).
1383 JMP FS11 N0 BINARY LISTING UNLESS SSW-1 IS DOWN
1385 DAC PRI OUTPUT WHATEVER MIGHT BE IN SYMBOLIC BUF.
1387 STA PRI+5 ENTER 'EOB' INTO LISTING
1391 JST OR80 ENTER FIRST WORD FROM BUFFER INTO LISTING
1394 JST OR80 ENTER WORD 2 FROM BUFFER INTO LISTING
1397 JST OR80 ENTER WORD 3 FROM BUFFER INTO LISTING
1399 CALL F4$SYM OUTPUT SYMBOLIC BUFFER
1401 JST PRSP RESET SYMBOLIC BUFFER TO SPACES
1403 STA 0 COMPUTE CHECKSUM
1404 FS12 ERA OCI,1 MERGE BUFFER WORD INTO CHECKSUM
1405 IRS 0 INCREMENT BUFFER POSITION
1406 IRS OCNT DECREMENT BUFFER SIZE
1408 STA OCI,1 SET CHECKSUM INTO BUFFER
1409 LDA PCNT = NO. OF WORDS IN BUFFER
1412 CALL F4$OUT PUNCH BUFFER
1413 FS20 LDA RPL SET UP BUFFER FOR NEXT OUTPUT
1415 ADD K145 =#'2000 (BLOCK CODE 2)
1418 STA OCI+1 SET FIRST 2 WORDS OF BUFFER
1420 STA OCNT RESET BUFFER OCCUPANCY SIZE
1421 JST RST RESET INDEX REGISTER
1424 FS30 LGL 6 MERGE BUFFER SIZE INTO BLOCK HEADER
1425 SUB OCNT BUFFER SIZE
1426 ADD K101 =1 (ACCOUNT FOR CHECKSUM)
1429 LLL 6 BRING IN UPPER HALF OF ADDRESSES
1430 STA OCI STORE INTO BUFFER
1431 JMP FS10 COMPUTE CHECKSUM
1434 FS41 BCI 2,EOB 'EOB'
1435 K145 OCT 20000 BLOCK TYPE 2 CODE
1438 OCI BSS 40 40 WORD CARD IMAGE INPUT BUFFER
1439 PRI BSS 40 40 WORD PRINT BUFFER
1441 BSS 30 COMPILER PATCH AREA
1443 * ***********************
1444 * *IOS (AND IOL) GO HERE*
1445 * ***********************