$JOB ASSEMBLY OF MONITOR, COMPILER SECTIONS 1 THROUGH 6 OF $00000010
$* FORTRAN II PROCESSOR, 7090-FO-928 00000020
$* VERSION 3, MODIFICATION LEVEL 35 (35)00000030
$EXECUTE IBSFAP $00000050
* 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. F0C00000
* FAP F0C00020
* 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. F0C00030
COUNT 1200 F0C00050
SST FORTRAN $F0C00060
LBL 9F03,N F0C00070
ABS $F0C00071
ORG SYSCUR $F0C00080
BCI 1,9F0300 $F0C00090
ORG (LODR) $F0C00100
TXI BEGSO,,30 F0C00120
TOPTAB SYN BOTIOP-1 F0C00140
TITLE $F0C00145
1 TTL MAIN PROGRAM F0C00150
ORG BOTTOM F0C00160
BEGSO LXD (PGCT),4 SET PAGE LINE COUNTER TO FULL PAGE F0C00170
SXA JECT,4 TO CONTROL LINES PER PAGE. F0C00180
TXI *+1,4,-1 REDUCE TO ONE LESS THAN THE MAXIMUM F0C00190
SXD TESTS,4 AND SAVE THIS RESULT FOR A LATER TEST. F0C00200
CLA TTRDMP MAKE SURE CELL 2 WILL DO DUMP $F0C00202
STO 2 $F0C00203
EMTM IN CASE USER NEEDS IT $F0C00205
SLN 0 MAKES SURE ALL SENSE LIGHTS ARE OFF. F0C00210
AXT 2,2 SET MONITOR INDICATOR IN CASE END F0C00220
SXA (MSLN),2 UP IN SOURCE OR MACHINE ERROR RECORDS. F0C00230
STZ (SNCT) RESET THE SNAP COUNTER TO ZERO F0C00240
MVDT CLA SYSDAT PICK UP DATE FROM PERMANENT LOCATION $F0C00390
STO (DATE) AND MOVE IT TO THE IO PACKAGE F0C00400
FCONE LDI* (FGBX) SET THE INDICATORS FROM THE FLAG CELL F0C00410
CAL FGMSK CLEANSE FLAGBOX FOR NEW JOB--RETAIN BITS $F0C00420
REM TO INDICATE PROPER SIGN OF SYSJOB, WHICH MODE WE WERE $F0C00421
REM OPERATING IN, I.E., IBSFAP OR FORTRA, $F0C00422
ANA* (FGBX) SYSTEM IS ON DISCS IF BIT IN FGBX IS ON AN$F0C00425
SLW* (FGBX) THIS IS A MONITOR JOB JUST BEGINNING. F0C00430
RFT 2 ARE THERE SNAPS TO PROCESS F0C00440
TRA DMPSNP BIT 34=1, TRANSFER TO SNAPS PROCESSING F0C00450
FCTEN RNT 1 BIT 34=0, NO SNAPS, ARE TAPE STATISTICS OK.F0C00460
TRA HTPSTS BIT 35=0, TAPE STATISTICS MUST BE DONE F0C00470
FCTWO CLA* (LNCT) BIT 35=1 TAPE STATISTICS HAVE BEEN DONE. F0C00480
STZ* (LNCT) RESET LINE COUNT CELL TO ZERO. F0C00490
TSX CNVT,4 GO TO SUBROUTINE TO GET DECIMAL LINECOUNT. F0C00500
SLW COM1+1 SET UP TO PRINT OUT LINE COUNT. F0C00510
SLN 4 SET SENSE LITE TO INDICATE MESSAGE GOES F0C00520
TONP SLN 3 $ ON + OFF LINE, AT TOP OF PAGE OFF LINE. F0C00530
REM F0C00540
REM $ BEFORE ANY COMMENTS FIELD INDICATES A VARIABLE SWITCH.F0C00550
REM F0C00560
CLA IOCOM PICK UP COMMAND THAT WRITES LINE COUNT F0C00570
TSX COMNT,4 ON TOP OF NEW PAGE ON LISTING TAPE. F0C00580
FRTRA STZ IDOK SET CELL=ID EXPECTED $F0C00590
STZ JOBOK SET CELL=JOB DEFINED BY EOFS $F0C00600
LDI* (FGBX) $F0C00610
RFT 4 IS THIS IBSFAP $F0C00620
TRA FCFIV+3 YES,GO SET CELL=NOID EXPECTED $F0C00630
FC3TEN TSX BOTP,2 NO, FORTRAN $F0C00640
MZE BKSOR,,(SKBC) CHECK FOR BOF ON SYSPP1 $F0C00650
CLA (SCHU) $F0C00660
ANA BOF BIT28=1 INDICATES BEGINNING $F0C00670
TNZ FCFOUR OF FILE $F0C00680
TSX BOTP,2 NOT BEGINNING WRITE EOF $F0C00690
MZE ,,(WEFC) $F0C00700
FCFOUR TSX FITP,2 CHECK FOR BOF ON SYSIN1 $F0C00710
MZE BKSOR,,(SKDC) $F0C00720
CLA (SCHU) $F0C00730
ANA BOF $F0C00740
TNZ RDCD YES,AT BEGIN. OF FILE $F0C00750
TSX FITP,2 NO, BACK ONE RECORD $F0C00760
MZE BKSPC,,(SKDC) CHECK AGAIN $F0C00770
CLA (SCHU) $F0C00780
ANA BOF $F0C00790
TNZ RDCD YES, BOF $F0C00810
TEFA2 TSX (TAPE),4 NO, WHAT IS THIS RECORD $F0C00820
MZE RCDA2,,(RDEC) $F0C00830
PZE ,,MINTAP $F0C00840
MZE SKIP IGNORE ERRORS WHEN SKIPPING ON MINTAP $F0C00850
LDQ BUFF IS THIS A$ CARD $F0C00878
ZAC $F0C00880
LGL 6 $F0C00882
SUB DOLSN $F0C00884
STL JOBOK CELL=JOB NOT DEFINED BY EOFS $F0C00886
TZE IBCARD YES $F0C00888
ZET (SCHU)+MINTAP DID WE HIT EOF $F0C00890
TRA TEFA2 NO,SKIP FOR CONTROL $F0C00894
RDCD SLN 3 PUT SENSE LIGHT ON TO $F0C00897
REM CAUSE EJECT FOR NEW JOB $F0C00900
STZ JOBOK I.E., HAS AN EOF AT BEGINNING $F0C00910
FCNINE TSX (TAPE),4 READ A CARD $F0C00920
PZE RCDA2,,(RDEC) $F0C00930
PZE ,,MINTAP F0C00940
PZE ERROR ERROR RETURN $F0C00950
NZT (SCHU)+MINTAP WAS EOF SENSED.. $F0C00951
TRA EOFLT YES $F0C00952
CAL BUFF+13 PICK UP WORD 14 OF CARD IMAGE. F0C00960
ANA FRSVNS SAVE CHARACTERS 79 +80, ZERO OUT THE REST. F0C00970
ORA FRBNKS THEN PUT BLANKS IN THE LAST FOUR LOCATIONS.F0C00980
SLW BUFF+13 RESTORE CLEANED UP WORD TO THE BUFFER. F0C00990
LDQ BUFF PICK UP FIRST SIX CHARACTERS F0C01000
PXD 0,0 OF CARD, ZERO THE ACCUMULATOR F0C01010
LGL 6 SHIFT COLUMN ONE OF CARD INTO AC F0C01020
SUB DOLSN IS IT A DOLLAR SIGN $F0C01030
TZE IBCARD YES $F0C01032
IDTES ZET IDOK IS ID CARD EXPECTED $F0C01034
TRA SCAN NO, GO TO SCAN $F0C01036
SUB L(1) YES,CHECK FOR*IN COL 1 $F0C01038
TNZ NOID NO ID CARD FOR FORTRAN $F0C01040
AXT 0,2 TREAT * CARD $F0C01050
CLA SWST61 MAKE CERTAIN SWITCH IS SET CORRECTLY. F0C01060
STA SWTCH TO TEST FOR DATE CARD FIRST. F0C01070
AXT 6,1 LOAD ROUTINE CHECKING CHARACTERS TO TEST F0C01080
SXA NNBL1,1 6 CHARACTERS PER WORD. F0C01090
AXT 14,1 SET THIS ROUTINE TO READ 14 WORDS FOR F0C01100
SXA NNBL2,1 CHARACTERS. F0C01110
TXI *+1,1,-4 REDUCEI.R.1 TO 10 TO TEST D ON TABLES FIRSTF0C01120
GTCHR TSX NNBL,4 GO TO GET NEXT NON BLANK CHARACTER F0C01130
TRA FCATE ARE NO MORE, NOT CARD BEING TESTED, ID CARDF0C01140
SUB TBLS,1 IS CHARACTER PROPER ONE FOR THIS WORD. F0C01150
SWTCH TZE FCSIX $ VARIABLE, TESTS SUCCESSIVE CHARACTERS. F0C01160
TNX FCATE,1,9 IS THIS FIRST FAILURE, NO IS ILLEGAL LETTERF0C01170
TXI *+1,1,6 YES RESTORE I.R. ONE TO TRY ENDTAPE. F0C01180
SUB L(1) IF ENDTAPE IS POSSIBLE CARD, AC=1 F0C01190
TZE FCSVN IF AC=0, COULD BE ENDTAPE CARD, GO TEST IT.F0C01200
FCATE AXT 14,2 I.D. CARD TREATMENT, WRITE CARD ON TAPE B4 F0C01210
AXC CDIM-25,4 LOAD INDEX REGISTERS 2 AND 4 F0C01220
HBC1 LDQ BUFFZ,2 WITH CARD WORD COUNT AND STORAGE LOCATION F0C01230
PXD 0,0 PICK UP 1ST WORD AND ZERO ACCUMULATOR. F0C01240
CAQ HBC2,,1 THE FIRST SIX BITS OF THIS BINARY CODED F0C01250
ALS 12 INFORMATION ARE CONVERTED TO BINARY FORM F0C01260
CAQ HBC2,,1 UP TO 12 BITS IN LENGTH, SHIFTED LEFT 12 F0C01270
ALS 12 THEN THE SAME PROCESS IS REPEATED F0C01280
CAQ HBC2,,1 FOR THE 2ND AND 3RD GROUPS OF 6 BITS. F0C01290
SLW 0,4 AFTER WHICH THE CONVERTED WORD IS SAVED F0C01300
PXD 0,0 AC IS AGAIN CLEARED F0C01310
CAQ HBC2,,1 THEN THE FOURTH BIT GROUP IS F0C01320
ALS 12 CONVERTED FOLLOWED F0C01330
CAQ HBC2,,1 BY THE FIFTH F0C01340
ALS 12 F0C01350
CAQ HBC2,,1 AND THE LAST BIT GROUP F0C01360
SLW 1,4 THE LAST GROUPS IN CONVERTED FORM ARE SAVEDF0C01370
TXI *+1,4,-2 MODIFY INDEX REGISTER TO STORE PROPERLY. F0C01380
TIX HBC1,2,1 AND THE NEXT WORD IS PROCESSED IF ANY. F0C01390
REM F0C01400
NOP NOP IN THE EVENT THIS CONVERSION IS DESIRED AS F0C01410
REM A SUBROUTINE, A TRANSFER ON INDEX REGISTER ONE MAY BE IN-F0C01420
REM SERTED HERE TO RETURN CONTROL PROPERLY. ONE SHOULD BE F0C01430
REM USED FOR THE TSX TO THIS ROUTINE AND ANY IR SAVING OR IN-F0C01440
REM ITIALIZING MUST BE DONE BEFORE ENTRY. F0C01450
TSX BOTP,2 WRITE I.D. CARD OR END TAPE F0C01460
MZE W1REC,,(WBNC) CARD ON TAPE B4 F0C01470
TSX BOTP,2 WRITE AN END OF FILE ON F0C01480
MZE 0,0,(WEFC) TAPE B4 F0C01490
FCFIV SLN 4 FOR ON + OFF LINE $F0C01500
CLA CDMGE WRITE ID CARD $F0C01510
TSX COMNT,4 $F0C01520
STL IDOK CELL=NO ID EXPECTED $F0C01525
FC5OUT TRA FCNINE $RESETS FOR ENDTAPE AND NOID $F0C01530
FCSVN TXH SKPJNK,2,0 TEST IF INITIALIZING ENDTAPE ROUTINE IS SETF0C01540
CLA SWST61 NO, DO NECESSARY INITIALIZING. F0C01550
ARS 18 GET LOCATION OF FCSVN + USE IT TO F0C01560
STA SWTCH SET SWITCH TO CHECK FOR ENDTAPE F0C01570
AXT 7,2 SET I.R.2 TO PROCESS REST OF WORD. F0C01580
SKPJNK TIX GTCHR,1,1 GO TO TEST NEXT CHARACTER IN ENDTAPE F0C01590
CLA FC7BAK ENDTAPE CARD, SET RETURN IN FC FIVE F0C01600
STA FC5OUT TO RETURN HERE + NOT GO TO SCAN F0C01610
TRA FCATE THEN GO TO TREAT AS ID. CARD. F0C01620
FCSIX TXH BYINIT,2,0 AFTER I.R.2 HAS BEEN LOADED, AVOIDS RELOAD.F0C01730
AXT 4,2 LOADS I.R.2 TO TEST FOR DATE F0C01740
BYINIT TXI *+1,1,-1 REDUCES I.R. 1 TO COMPARE PROPER CHARACTER.F0C01750
TIX GTCHR,2,1 GOES BACK TO TEST NEXT CHARACTER IF NEEDED.F0C01760
AXT 2,1 FIRST FOUR CHARACTERS ARE DATE TEST REST OFF0C01770
AXT 2,2 CARD FOR PROPER DATE FORMAT. F0C01780
CD3 TSX NNBL,4 PICK UP NEXT NON BLANK CHARACTER F0C01790
TRA FCATE IF NONE REMAIN, TREAT AS ID CARD. F0C01800
CAS SLASH TEST FOR SLASH TO SEPARATE MONTH AND DAY F0C01810
TRA *+2 AND LATER TO SEPARATE DAY AND YEAR. F0C01820
TRA CD4 CHARACTER IS A SLASH F0C01830
ORA MONTH+2,1 PLACE THE AC IN STORAGE CELL PROPER F0C01840
ALS 6 FOR THIS CHARACTER + SHIFT TO MAKE ROOM F0C01850
SLW MONTH+2,1 FOR NEXT CHARACTER IF ANY IN STORAGE. F0C01860
TRA CD3 GET NEXT CHARACTER. F0C01870
CD4 TIX CD3,1,1 FIRST SLASH HAS BEEN HIT. SHIFT STORAGE. F0C01880
CD5 TSX NNBL,4 MONTH AND DAY PAST, NOW FOR YEAR. F0C01890
TRA FCATE NO YEAR, TREAT AS ID CARD. F0C01900
ORA MONTH+1 PLACE YEAR IN AC WITH DATE. F0C01910
TNX CD6,2,1 IF FIRST CHARACTER CONTINUE, 2ND DONE F0C01920
ALS 6 MAKE ROOM FOR LAST CHARACTER F0C01930
SLW MONTH+1 AND SAVE THE DATE THUS FAR. F0C01940
TRA CD5 GO GET LAST CHARACTER OF YEAR F0C01950
CD6 SLW (DATE) OVERWRITE DATE IN IO PACKAGE F0C01960
CAL MONTH PICK UP THE MONTH F0C01970
ALS 18 MOVE IT TO PROPER LOCATION F0C01980
ORS (DATE) AND INSERT THE MONTH PROPERLY INTO THE DATEF0C01990
CAL BLNKS LOAD THE AC WITH BLANKS. F0C02000
ANA (DATE) CHECK THAT NO 1=S ARE IN DATE WHICH ARE OUTF0C02010
TZE OKDATE OF LAST FOUR NUMERIC POSITIONS OF THE WORD.F0C02020
CLA SYSDAT DATE IS NOT PROPER, REPLACE IT WITH $F0C02030
STO (DATE) DATE OF COMPILATION F0C02040
TRA FCATE THEN GO TREAT DATE CARD AS ID CARD F0C02050
OKDATE CLA CDMGE PICK UP THE COMMAND TO OUTPUT F0C02060
SLN 4 THE DATE CARD. TURN ON SENSE LIGHT 4 TO IN-F0C02070
TSX COMNT,4 DICATE ON +OFF LINE. THEN GO WRITE MESSAGE.F0C02080
TRA FCNINE THEN GO TO READ NEXT CARD IN FOR PROCESSINGF0C02090
SCAN TSX FITP,2 BACK 1 RECORD ON SYSIN1 $F0C02100
MZE BKSPC,,(SKDC) $F0C02110
NZT JOBOK IS FORTRAN JOB DEFINED BY EOFS $F0C02112
TRA SCAND YES $F0C02114
LDI* (FGBX) PICK UP FLAGBOX (26)F0C02116
SIL 10000 SET BIT FOR NO EOF (26)F0C02118
STI* (FGBX) (26)F0C02120
TRA *+1 (26)F0C02122
SCAND TSX (TAPE),4 SKIP OVER FAP 1+2 $F0C02124
PZE SKP2,,(SKBC) $F0C02126
PZE ,,SYSTAP $F0C02128
TSX (LOAD),4,1 GO TO SCAN $F0C02130
BCI 1,9F0600 $F0C02132
NOID TSX (PRNT),4 *NO ID CARD FOR THIS JOB $F0C02134
PZE COM3-1,,15 $F0C02136
TSX (PRNT),4 SIGN KEY DOWN CONTINUE WITH $F0C02138
PZE COM4,,13 *NO ID CARD AS ID CARD $F0C02140
TSX (PRNT),4 SIGN KEY UP SKIP JOB $F0C02142
PZE COM5,,10 $F0C02144
TSX (PAUSE,4 $F0C02146
ENK ENTER KEYS $F0C02148
TQP TEFA2 SKIP JOB SEGMENT $F0C02150
AXT 14,2 CONTINUE $F0C02152
CLA COM3+14,2 MOVE * NO ID CARD TO BUFFER $F0C02154
STO BUFF+14,2 $F0C02156
TIX *-2,2,1 $F0C02158
CLA IDTES+1 RESET EXIT TO GO DIRECTLY TO SCAN $F0C02160
STA FC5OUT $F0C02162
TRA FCATE PROCESS FORTRAN ID CARD $F0C02164
SKIP TSX FITP,2 SKIP OVER CARD IN ERROR $F0C02166
PZE L(1),,(SKBC) WHICH IS PROBABLY BINARY $F0C02168
TRA TEFA2 $F0C02170
ERROR LDI* (FGBX) ERROR FOR READ $F0C02174
RFT 4 IF IBSFAP WANT TO GO TO SCAN $F0C02178
TRA SCAND TO SKIP FOR CONTROL $F0C02180
TSX (PRNT),4 FORTRAN, PRINT MESSAGE $F0C02185
PZE COM8,,7 $F0C02190
TSX FITP,2 SKIP OVER RECORD IN ERROR $F0C02195
PZE L(1),,(SKDC) $F0C02200
ZAC MAKE SURE AC IS NOT ONE $F0C02210
TRA IDTES SEE IF SEARCHING FOR ID $F0C02211
DMPSNP TSX (TAPE),4 MAKE CERTAIN THAT TAPE IS F0C02220
MZE BKSPC,,(SKBC) NOT REWOUND, WHICH WOULD MEAN IT WAS F0C02230
PZE ,,SNPTAP USED IN EXECUTION F0C02240
STI TMPR SAVE INDICATORS FOR RETURN PROCESSING. F0C02250
LDI (SCHU) TEST INFORMATION CELL BIT 35 FOR BTT F0C02260
RFT 1 TAPE INDICATOR BIT. IF THE BIT INDICATES F0C02270
TRA NOSNPS TAPE IS AT BEGINNING,PRINT ERROR. TAPE NG. F0C02280
TSX (TAPE),4 *YES, REWIND SNAP TAPE F0C02290
MZE REWND,,(SKBP) F0C02300
PZE READS+3,,-1 F0C02310
LXD READS+3,4 INITIALIZE LOCATION OF (SCHU) + SNAPTAPE. F0C02320
TXI *+1,4,(SCHU) F0C02330
SXA READS+5,4 F0C02340
SNAP0 AXT 0,2 RESET WRITE ROUTINE TO NEW PAGE $F0C02350
SXA WRIT1,2 ZERO FOR LINES LEFT TO CAUSE PAGE $F0C02353
SLN 2 RESTORE AND HEADING IF NEW SNAP $F0C02357
TSX READS,2 *READ TITLE. F0C02360
TITIO IORT TITBF,,5 F0C02370
NZT (SCHU)+SNPTAP IF HIT END OF FILE TRYING TO READ F0C02380
TRA DONE A TITLE, THEN THE SNAPS ARE DONE. F0C02390
AXT 2,1 CHECK AND MAKE SURE THIS RECORD F0C02400
CLA CLA CONSNA+2,1 IS THE TITLE. THIS IS DONE BY MAKING F0C02410
SUB TITBF+4,1 SURE SNAPSHOTS ARE FOUND IN PROPER F0C02420
TNZ NOSNPS LOCATION. IF NOT ZERO AFTER SUBTRACTING F0C02430
TIX CLA,1,1 THIS IS NOT A SNAPSHOT. GO TO CANCEL.NG F0C02440
TSX READS,2 *READ PANEL F0C02450
IORT BUFF2,,9 F0C02460
TSX WRITE,2 *WRITE FIRST PANEL HEADING F0C02470
IORT PHDG1,,18 F0C02480
REM F0C02490
REM SET UP PANEL F0C02500
CLA BUFF2+3 LOAD AC SIGN, Q BIT. F0C02510
ALS 1 GET Q BIT F0C02520
LDI MNUSP PREPARE TO DISPLAY Q BIT, MINUS SIGN F0C02530
PBT IS Q BIT ON F0C02540
LDI MNUSB NO, DELETE Q BIT F0C02550
TMI *+2 IS AC MINUS F0C02560
OSI PLUSZ NO, DELETE MINUS SIGN F0C02570
STI BUFF1+1 IN FIRST WORD OF LINE F0C02580
LDQ BUFF2+4 LOAD REST OF AC F0C02590
TSX OCTCV,4 *CONVERT TO OCTAL F0C02600
STI BUFF1+2 INSERT IN WORDS 2 AND 3 OF LINE F0C02610
SLW BUFF1+3 F0C02620
AXT 9,1 PREPARE TO CONVERT KEYS,SI, AND F0C02630
AXT 9,2 THE MQ F0C02640
PREGS LDQ BUFF2+9,1 LOAD NEXT REGISTER F0C02650
TSX OCTCV,4 *CONVERT TO OCTAL F0C02660
LDQ BLNKS SET WORD 1 OF TRIAD BLANK F0C02670
STQ BUFF1+13,2 F0C02680
STI BUFF1+14,2 INSERT LEFT HALF IN WORD 2 OF TRIAD F0C02690
SLW BUFF1+15,2 INSERT RIGHT HALF IN WORD 3 OF TRIAD F0C02700
TXI *+1,1,-1 BUMP REGISTER COUNT F0C02710
TIX PREGS,2,3 ARE ALL REGISTERS CONVERTED F0C02720
XREGS LDQ BUFF2+9,2 LOAD NEXT INDEX REGISTER F0C02730
TSX OCTCV,4 *CONVERT TO OCTAL F0C02740
ANA BKOFC ELIMINATES ANY GARBAGE FIRST CHARACTER. F0C02750
LDQ BLNKS SET FIRST WORD OF DIAD BLANK F0C02760
STQ BUFF1+19,1 F0C02770
ORA LDGBK SET FIRST CHARACTER BLANK F0C02780
SLW BUFF1+20,1 INSERT IN SECOND WORD OF DIAD F0C02790
TXI *+1,2,-1 BUMP REGISTER COUNT F0C02800
TIX XREGS,1,2 ARE ALL REGISTERS CONVERTED F0C02810
TSX WRITS,2 *YES, WRITE PANEL LINE 1 F0C02820
IORT BUFF1+1,,18 F0C02830
TSX WRITE,2 *WRITE PANEL HEADING 2 F0C02840
IORT PHDG2,,16 F0C02850
REM F0C02860
REM SET UP TRIGGERS F0C02870
AXT 0,4 SET SHIFT CONTROL + CONSTANT SELECTOR TO 0 F0C02880
AXT 14,1 SET STORAGE LOCATION COUNT TO 14 LOCATIONS.F0C02890
AXT 6,2 SET COUNTER TO TEST 6 SENSE SWITCHES. F0C02900
LDI BUFF2+5 PICK UP BITS TO TEST VARIOUS PANEL LIGHTS. F0C02910
IIR 170 INVERT SENSE LIGHT BITS TO SAME AS OTHERS. F0C02920
PIA LOAD AC WITH INFORMATION ON VARIOUS LIGHTS.F0C02930
ALS 12,4 POSITION 1ST BIT TO BE TESTED FOR SWITCHES.F0C02940
TEST LDQ L(DN),4 SET MQ WITH CODE FOR TEST BIT ZERO. F0C02950
PBT WHAT IS THE STATUS OF THIS TRIGGER F0C02960
TRA *+2 OFF, LEAVE MQ ALONE. F0C02970
LDQ L(DN)-1,4 BIT EQUALS ONE, RESET MQ FOR BIT ON. F0C02980
TXI *+1,1,-1 BUMP STORAGE TO NEXT LOCATION. F0C02990
STQ BUFF1+17,1 SAVE MQ IN PROPER LOCATION FOR OUTPUT F0C03000
ALS 1 SHIFT NEXT BIT TO TESTING POSITION. F0C03010
TIX TEST,2,1 HAS THIS BIT SEQUENCE BEEN FULLY TESTED. F0C03020
TXI *+1,4,4 BUMP INDEX REGISTER FOR NEXT BIT SERIES. F0C03030
TNX OUT,1,1 FINISHED, GET OUT. NO, SKIP 1 STORAGE LOC- F0C03040
AXT 7,2 ATION, AND SET COUNTER FOR 7 MORE BITS. F0C03050
TRA TEST-1 SHIFT TO TEST LAST GROUP AND CONTINUE. F0C03060
OUT LDQ BLNKS FINISHED, BLANK OUT LEFT OVER CELLS IN F0C03070
STQ BUFF1+2 OUTPUT BUFFER NOT RESET FOR THIS LINE OF F0C03080
STQ BUFF1+3 INFORMATION. F0C03090
TSX WRITS,2 *WRITE PANEL LINE 2 F0C03100
IORT BUFF1+2,,16 F0C03110
AXT -1,1 RESET BUFFER SWITCH TO BUFFER 2 INITIALLY F0C03120
SXA PACK0+3,1 $F0C03130
TRA SNAP3 F0C03140
REM F0C03150
REM REENTRY TO SET UP NEXT LINE F0C03160
SNAP2 LXA FWORD,1 COMPUTE COUNT OF WORDS REMAINING IN DUMP F0C03170
TXL SNAP3,1,0 IF ZERO LAST LINE SHOULD BE DONE $F0C03180
SXD SXH,1 SAVE FIRST WORD OF LINE $F0C03185
LXA LCORS,1 SUBTRACT IT FROM ADDRESS LAST LINE TO TELL F0C03190
SXH TIX SNAP6,1,** IS THE DUMP FINISHED *F0C03200
AXC **,4 YES, LOAD NUMBER OF WORDS LEFT ON TAPE F0C03210
TXH SNAP4,4,0 DO ANY SEGMENTS REMAIN ON TAPE F0C03220
REM F0C03230
REM REENTRY TO READ FIRST DUMP RECORD F0C03240
SNAP3 SXD SNAP4+2,0 NO, RESET NUMBER OF WORDS TO SKIP F0C03250
CLA TRA RESTORE TRANSFER $F0C03251
STO FRT $F0C03252
TSX READS,2 *READ FIRST SEGMENT OF DUMP RECORD F0C03260
IORT CORBF,,TOPTAB-CORBF ROUTINE PUTS LAST ADDRESS IN IR1. F0C03270
CLA CORBF LOAD FIRST CORE LOC,,NO OF WORDS IN DUMP F0C03280
STA LCORS INITIALIZE CORE LOCATION AT BEGIN OF DUMP F0C03290
PDC ,4 LOAD NUMBER OF WORDS IN DUMP F0C03300
TXL SNAP3,4,0 IF WORD COUNT ZERO READ $F0C03310
TRA SAVORG NOT ZERO GO PROCESS INFORMATION $F0C03315
REM F0C03320
REM REENTRY TO READ NEXT SEGMENT OF DUMP RECORD F0C03330
SNAP4 SXA SVTW,2 PRESERVE INDEX REGISTER TWO FOR PROCESSING.F0C03340
TSX READT,2 *READ NEXT SEGMENT OF DUMP RECORD F0C03350
IOSPN ,,** = OF WORDS ALREADY PUT INTO BUFFER BEFORE. F0C03360
IORT CORBF+1,,TOPTAB-CORBF F0C03370
LXA SXH+1,4 NUMBER OF WORDS PREVIOUSLY UNDONE $F0C03380
SVTW AXT **,2 RESTORE INDEX TWO TO PROPER STORAGE COUNT. F0C03390
SAVORG SXA CORES,1 SAVE ORIGIN AT THE END OF THIS SEGMENT. F0C03400
TXI *+1,1,1 F0C03410
SXA CORES+1,1 F0C03420
TXI *+1,1,-CORBF-2 COMPUTE NUMBER OF WORDS READ F0C03430
SXD CORES,1 = LAST LOCATION - BUFFER START. F0C03440
PXA ,1 COMPUTE CORE LOCATION AT END OF SEGMENT F0C03450
ADM LCORS = 1ST LOCATION + NUMBER OF WORDS READ. F0C03460
STA LCORS F0C03470
SXD *+1,1 COMPUTE NUMBER OF WORDS LEFT ON TAPE F0C03480
TXI *+1,4,** WORDS IN DUMP - WORDS READ IS SAVED F0C03490
SXA SXH+1,4 IN CASE FURTHER READING IS NECESSARY $F0C03500
TXL SNAP5,4,0 ANY WORDS LEFT ON TAPE F0C03510
FRT TRA *+3 $ ON THE FIRST READ, ONE MUST BE ADDED TO THEF0C03520
SXD W2BS,1 WORD COUNT TO REFLECT THE INTRODUCTORY WORDF0C03530
TRA W2BS-1 WHICH MUST BE INCLUDED IN THE WORDS SKIPPEDF0C03540
TXI *+1,1,1 THEREAFTER THE TRANSFER IS CHANGED TO A NOPF0C03550
CLA NOP1 IF THERE SHOULD BE MORE THAN 1 ENTRY TO $F0C03560
STO FRT THIS CODING, THE FIRST WORD WONT BE READDEDF0C03570
SXD W2BS,1 SAVE WORDS TO BE SKIPPED $F0C03580
TXI *+1,1,-1 SUBTRACT EXTRA FIRST WORD COMPUTE SKIP $F0C03585
LXD SNAP4+2,4 BY ADDING THE WORDS ALREADY SKIPPED TO F0C03590
W2BS TXI *+1,4,** THOSE SKIPPED THIS TIME, SAVING THE RESULT F0C03600
SXD SNAP4+2,4 FOR FURTHER USE, IF NECESSARY. F0C03610
TSX (TAPE),4 *BACKSPACE TAPE OVER DUMP RECORD F0C03620
MZE BKSPC,,(SKBP) F0C03630
PZE READS+3,,-1 F0C03640
REM F0C03650
REM PRINT FIRST LINE IN SEGMENT F0C03660
SNAP5 CAL CORBF LOAD FIRST CORE LOCATION OF DUMP. F0C03670
TZE TLD IF PROCESSING IS FINISHED, GO TEST LINE. F0C03680
ANA DELLD DELETE LAST DIGIT F0C03690
STA FWORD SAVE FIRST CORE LOCATION IN LINE F0C03700
ERA CORBF COMPUTE NUMBER OF WORDS OF LEADING BLANKS F0C03710
STA ERASE TRIPLE F0C03720
ALS 1 F0C03730
ADD ERASE F0C03740
PAX ,4 F0C03750
PAC ,2 F0C03760
ADM L(BF3 COMPUTE ORIGIN AT END OF LEADING BLANKS F0C03770
STA *+2 F0C03780
LDQ BLNKS INSERT LEADING BLANKS F0C03790
STQ **,4 F0C03800
TIX *-1,4,1 F0C03810
STZ CORBF SET TEST TO AVOID INITIALIZING AFTER 1 READF0C03820
TXI SNAP9,2,24 COMPUTE NUMBER OF WORDS REMAINING IN LINE F0C03830
REM F0C03840
REM REENTRY TO SCAN NEXT LINE FOR IDENTICAL WORDS F0C03850
SNAP6 CAL* CORES LOAD NEXT WORD IN LINE F0C03860
ERA* CORES+1 IS IT SAME AS FOLLOWING WORD F0C03870
TNZ SNAP7 NO F0C03880
TIX *-3,1,1 YES IS DUMP COMPLETE F0C03890
CLA LCORS YES, COMPUTE FIRST WORD OF LAST LINE F0C03900
TRA SNAP7+3 F0C03910
REM F0C03920
REM PRINT IDENTICAL WORDS F0C03930
SNAP7 PXA ,1 COMPUTE CORE LOCATION OF LAST F0C03940
SUB L(1) IDENTICAL WORD PLUS ONE. F0C03950
SUB LCORS F0C03960
ANA DELLD DELETE LAST DIGIT F0C03970
STA LWORD F0C03980
SUB FWORD IS THIS SAME LINE F0C03990
TZE SNAP8 YES F0C04000
LDQ FWORD NO, LOAD FIRST CORE LOCATION F0C04010
TSX OCTCV,4 *CONVERT TO OCTAL F0C04020
ORA LDGBK SET FIRST CHARACTER BLANK F0C04030
SLW IDWBF+7 INSERT IN WORD 8 OF MESSAGE F0C04040
CLA LWORD LOAD LOCATION OF LAST IDENTICAL WORD+1 F0C04050
SUB L(1) F0C04060
XCA F0C04070
TSX OCTCV,4 *CONVERT TO OCTAL F0C04080
ORA LDGBK SET FIRST CHARACTER BLANK F0C04090
SLW IDWBF+9 INSERT IN WORD 10 OF MESSAGE F0C04100
LDQ* CORES LOAD IDENTICAL WORDS F0C04110
TSX OCTCV,4 *CONVERT TO OCTAL F0C04120
SLW IDWBF+14 INSERT RIGHT HALF IN WORD 15 F0C04130
CAL MINUS PREPARE TO PRINT MINUS SIGN F0C04140
LNT 40000 IS WORD MINUS F0C04150
ORA BLNKS NO, DELETE MINUS SIGN F0C04160
SLW IDWBF+12 INSERT SIGN IN WORD 13 F0C04170
RIL 40000 DELETE LEADING DIGIT 7 BIT F0C04180
STI IDWBF+13 INSERT LEFT HALF IN WORD 14 F0C04190
TSX WRITE,2 *WRITE THIS LINE F0C04200
IORT IDWBF,,15 F0C04210
LXA LWORD,4 RESET FIRST WORD FOR NEXT LINE F0C04220
SXA FWORD,4 F0C04230
REM F0C04240
REM REENTRY TO PREPARE NEXT LINE F0C04250
SNAP8 LAC FWORD,1 COMPUTE LENGTH OF REMAINING DUMP F0C04260
SXD *+2,1 F0C04270
LXA LCORS,1 F0C04280
TXI *+1,1,** F0C04290
AXT 24,2 PREPARE TO CONVERT 8 CELLS TO 1 LINE F0C04300
REM F0C04310
REM REENTRY TO CONVERT NEXT WORD F0C04320
SNAP9 LDQ* CORES LOAD NEXT WORD TO BE DUMPED F0C04330
TSX OCTCV,4 *CONVERT TO OCTAL F0C04340
SLW BUFF3+26,2 SAVE RIGHT HALF F0C04350
CAL MINUS LOAD BCD MINUS F0C04360
LNT 40000 IS WORD MINUS F0C04370
ORA BLNKS NO, DELETE SIGN F0C04380
SLW BUFF3+24,2 SAVE SIGN F0C04390
RIL 40000 RESET LEADING DIGIT 7 BIT F0C04400
STI BUFF3+25,2 SAVE LEFT HALF F0C04410
TIX TLD,1,1 IF THIS SEGMENT OF THE DUMP IS DONE,TEST F0C04420
XEC SXH+1 LOCATION FOR ANY MORE WORDS TO BE $F0C04430
TXH SNAP4,4,0 READ IN. IF INDEX IS HIGH,GET NEXT SEGMENT.F0C04440
TNX TLD+1,2,3 IF NOT,TEST IF LINE HAS BEEN COMPLETED. F0C04450
CLA BLNKS IF LINE IS INCOMPLETE,COMPLETE IT WITH F0C04460
STO BUFF3+24,2 BLANKS. IF COMPLETE PREPARE IT FOR OUTPUT. F0C04470
TIX *-1,2,1 TEST IF LINE HAS BEEN COMPLETED. F0C04480
TRA TLD+1 LINE NOW COMPLETE,SET UP FOR OUTPUT F0C04490
TLD TIX SNAP9,2,3 TESTS IF PROCESSING FOR THIS LINE IS DONE. F0C04500
LDQ FWORD GET LOCATION OF FIRST WORD FOR THIS LINE. F0C04510
TSX OCTCV,4 *CONVERT TO OCTAL F0C04520
TSX PACK0,4 *PACK LINE F0C04530
STA *+2 INITIALIZE I/O COMMAND. F0C04540
TSX WRITE,2 *WRITE LINE F0C04550
IORT **,,20 F0C04560
CLA FWORD BUMP FIRST CORE LOCATION F0C04570
ADD L(8) F0C04580
STA FWORD F0C04590
REM F0C04600
REM WRITE MNEMONICS FOR THIS LINE F0C04610
AXT 24,2 PREPARE TO EXAMINE EIGHT WORDS F0C04620
MNEM1 PXD ,0 F0C04630
LDI BUFF3+24,2 PICK UP SIGN F0C04640
LDQ BUFF3+25,2 LOAD LEFT HALF OF WORD F0C04650
TQP *+2 IS WORD BLANK F0C04660
TRA MNEM6+1 YES F0C04670
CAQ TBLMN,,1 NO, IS THIS A TYPE A INSTRUCTION F0C04680
TZE MNEM2 NO F0C04690
RFT 20 YES, IS THIS A + TYPE A INSTRUCTION F0C04700
TRA *+4 YES F0C04710
PXD ,0 NO F0C04720
LDQ BUFF3+25,2 LOAD LEFT HALF OF WORD F0C04730
CAQ TBLMN+3,,1 GET MNEMONIC FOR - TYPE A INSTRUCTION F0C04740
SLW BUFF3+25,2 INSERT IN WORD 2 OF TRIPLE F0C04750
CAL BLNKS PREPARE TO SET WORDS 1 AND 3 BLANK F0C04760
TRA MNEM6+3 F0C04770
MNEM2 AXT TBLBM,4 PREPARE TO FIND - INSTRUCTION GROUP F0C04780
RFT 20 IS THIS - INSTRUCTION F0C04790
AXT TBLBP,4 NO, PREPARE TO FIND + INSTRUCTION GROUP F0C04800
SXA *+1,4 F0C04810
CAQ **,,1 GET INSTRUCTION GROUP PARAMETER F0C04820
TRA MNEM4 F0C04830
REM F0C04840
REM REENTRY TO DECODE PSE, MSE OPCODES F0C04850
MNEM3 ARS 12 RIGHT ADJUST PSE, MSE OPCODE F0C04860
ORA 2BLNK INSERT LEADING BLANKS F0C04870
SLW BUFF3+25,2 INSERT IN WORD 2 OF TRIPLE F0C04880
LDQ BUFF3+26,2 PICK UP THE RIGHT HALF OF THE WORD. F0C04890
CAL BLNKS SET WORDS 1 AND 3 BLANK F0C04900
SLW BUFF3+24,2 F0C04910
SLW BUFF3+26,2 F0C04920
LGL 12 GET RID OF FIRST TWO DIGITS, TAG, F0C04930
PXD ,0 AND FIRST ADDRESS DIGIT, ZERO AC F0C04940
LGL 12 MOVE HUNDREDS AND THOUSANDS INTO THE AC F0C04950
TNZ MNEM7 ARE THERE ANY ENTRIES IN THESE BITS. F0C04960
SXA *+1,4 NO, PREPARE TO FIND WHICH PSE, MSE OPCODE F0C04970
CAL ** SET MNEM4 TO HANDLE ADDRESS DECODING. F0C04980
MNEM4 STA MNEM5 INITIALIZE ORIGIN OF INSTRUCTION GROUP F0C04990
PDX ,1 LOAD LENGTH OF INSTRUCTION GROUP F0C05000
PXD ,0 F0C05010
LGL 12 GET OCTAL OPCODE F0C05020
STA MNEM5+1 INITIALIZE TEST FOR OPCODE F0C05030
COM F0C05040
ANA 3SVNS F0C05050
STA MNEM5+3 INITIALIZE TEST FOR OPCODE. F0C05060
MNEM5 LDI **,1 PICK UP NEXT OPCODE THIS GROUP F0C05070
RNT ** IS THIS THE PROPER OPCODE. F0C05080
TIX MNEM5,1,1 NO, HAVE ALL OPCODES BEEN CHECKED F0C05090
RFT ** MAYBE, IS IT NO OTHER OPCODE F0C05100
TIX MNEM5,1,1 NO, HAVE ALL OPCODES BEEN EXHAUSTED F0C05110
XEC MNEM5+1 YES, WAS THIS OPCODE FOUND F0C05120
TRA MNEM6 NO, SET TRIPLE BLANK F0C05130
XEC MNEM5+3 MAYBE, WAS NO OTHER OPCODE FOUND F0C05140
TRA MNEM6 NO, SET TRIPLE BLANK F0C05150
PIA YES, RECALL OPCODE F0C05160
AXT TBLEP,4 PREPARE TO CHECK FOR PLUS SENSE INSTRUCTN F0C05170
LAS PSEOP IS THIS OPCODE PSE F0C05180
TRA *+2 NO F0C05190
TRA MNEM3 YES, GO FIND WHICH F0C05200
AXT TBLEM,4 PREPARE TO CHECK FOR MINUS SENSE INSTRUCTNF0C05210
LAS MSEOP IS THIS OPCODE MSE F0C05220
TRA *+2 NO F0C05230
TRA MNEM3 YES, GO FIND WHICH F0C05240
ARS 12 NO, RIGHT ADJUST OPCODE F0C05250
ORA 2BLNK INSERT LEADING BLANKS F0C05260
SLW BUFF3+25,2 INSERT IN WORD 2 OF TRIPLE F0C05270
CAL BLNKS PREPARE TO SET WORD 3 BLANK F0C05280
RQL 3 SHIFT IN INDIRECT BITS F0C05290
TQP MNEM6+3 IS ADDRESS INDIRECT F0C05300
RQL 1 MAYBE F0C05310
TQP MNEM6+3 IS IT REALLY INDIRECT F0C05320
CAL ASTRK YES, PICK UP ASTERISK F0C05330
SLW BUFF3+26,2 INSERT IN WORD 3 OF TRIPLE F0C05340
CAL BLNKS PREPARE TO SET WORD 1 BLANK F0C05350
TRA MNEM6+4 F0C05360
MNEM6 TXL MNEM7,4,TBLEM WAS OPCODE FOUND F0C05370
CAL BLNKS NO, SET TRIPLE BLANK F0C05380
SLW BUFF3+25,2 F0C05390
SLW BUFF3+26,2 F0C05400
SLW BUFF3+24,2 F0C05410
MNEM7 TIX MNEM1,2,3 IS LINE COMPLETE F0C05420
CAL BLNKS LOADS AC WITH BLANKS UPON ENTRY TO PACK. F0C05430
TSX PACK0,4 YES, PACK LINE F0C05440
STA *+2 INITIALIZE I/O COMMAND F0C05450
TSX WRITS,2 *WRITE LINE F0C05460
IORT **,,20 F0C05470
TRA SNAP2 F0C05480
NOSNPS SLN 4 MESSAGE ON AND OFF LINE. F0C05490
CLA ERMS SNAPS ARE MISSING OR INCORRECTLY FOUND. F0C05500
XEC FCFIV+2 TAPE PROBABLY USED IN EXECUTION. NO SNAPS. F0C05510
DONE CLA DPLCT PICK UP THE LINES OF SNAPSHOTS OUTPUT AND F0C05520
ADD* (LNCT) ADD IT TO THE LINES IN LINECOUNT, AND F0C05530
STO* (LNCT) SAVE THE GRAND TOTAL IN (LNCT) INDIRECTLY. F0C05540
CLA EOSMS PICK UP THE COMMAND TO OUTPUT THE F0C05550
SLN 4 MESSAGE INDICATING SNAPS ARE COMPLETE. F0C05560
TSX COMNT,4 AND GO GIVE MESSAGE. F0C05570
TSX (TAPE),4 *REWIND SNAPSHOT TAPE F0C05580
MZE REWND,,(SKBP) F0C05590
PZE READS+3,,-1 F0C05600
LDI TMPR RETURN INDICATORS FOR MAIN ROUTINE. F0C05610
TRA FCTEN THEN GO TO NEXT PROCESSING. F0C05620
HTPSTS NZT* (LNCT) IS THERE A LINE COUNT TO PRINT. F0C05630
TRA FRTRA NO, NEW JOB CHECK TAPES $F0C05640
RFT 4 CHECK FOR IBSFAP $F0C05641
AXT ,0 MAKE TRA FCTWO IF IBSFAP STATS NOT WANTED.$F0C05642
AXT 3,1 SET INDEX REGISTER 3 FOR 3 DIFFERENT LINES.F0C05650
CLA BLKLN PICK UP COMMAND TO WRITE BLANK LINE $F0C05660
SLN 3 TO RESTORE PAGE $F0C05663
AXT ,0 ELIMINATES UNNECESSARY LINE $F0C05667
GTCOM CLA COMTS+1,1 SENSE LITE 3 PUTS 1ST LINE AT TOP OF NEW F0C05670
AXT ,0 PAGE OFF LINE. FOLLOWING THIS, REST OF $F0C05680
TSX COMNT,4 HEADING AND BLANK LINE ARE WRITTEN. $F0C05690
TIX GTCOM,1,1 SLN 4 INSTEAD OF AXT WILL PRINT THEM ALSO.$F0C05700
CLA NOP RESET SENSE LIGHT IF PAGE ALREADY RESTORED.F0C05710
STD TONP THIS KEEPS STATISTICS AND LINE COUNT UNITEDF0C05720
TSX (STAT),4 ON RETURN INDEX REGISTER ONE CONTAINS F0C05730
SXA STAT3,1 THE ADDRESS +1 OF TOP OF TAPE STAT TABLE F0C05740
SXA STAT1,2 INDEX REGISTER TWO CONTAINS THE ADDRESS OF F0C05750
SXA STAT7,2 CELL TAPNO WHICH HAS THE NUMBER OF TAPES INF0C05760
STAT1 LXD **,2 SYSTEM IN DECREMENT. GET THE NUMBER OF F0C05770
SXD STAT4,2 TAPES IN SYSTEM AND SAVE IT FOR F0C05780
SXD STAT6,2 3 LATER TEST DECREMENTS F0C05790
SXD STAT13,2 F0C05800
AXT 1,1 INITIALIZE INDEX REGISTER ONE TO FIRST TAPEF0C05810
STAT2 LDQ 3ZROS SET TAPE AND UNIT TO PROPER F0C05820
STQ STBUF+2 INITIAL STATUS. F0C05830
PXA 0,1 SET INDEX REGISTERS 1 F0C05840
PAX 0,4 AND 4 EQUAL. F0C05850
AXT 2,2 SET INDEX REGISTER TWO TO MAKE F0C05860
STAT3 CLA **,4 TWO PASSES PICKING UP THE PROPER LOCATIONS F0C05870
STA TOTWT+2,2 AND SETTING THE TAPE INFORMATION F0C05880
ARS 18 PROPERLY IN BUFFERS FOR F0C05890
STA NOISW+2,2 LATER CONVERTING AND OUTPUTTING. F0C05900
STZ* STAT3 BLANK THE CELL OUT. F0C05910
STAT4 TXI *+1,4,** INCREMENT I.R. 4 BY NUMBER OF TAPES F0C05920
TIX STAT3,2,1 TEST IF FINISHED. F0C05930
AXT 2,2 RESET INDEX REGISTER 2. F0C05940
STAT5 CLA* STAT3 PICK UP NEXT ITEM OF TAPE STATISTICS. F0C05950
STA TOTRW+2,2 AND STORE IT IN THE PROPER LOCATION. F0C05960
STZ* STAT3 STAT3 HAS LOCATION OF THIS DATA. F0C05970
STAT6 TXI *+1,4,** MODIFY NEXT LOCATION BEING PROCESSED F0C05980
TIX STAT5,2,1 AND TEST IF MORE TO BE DONE. F0C05990
STAT7 CLA* **,1 TAPES USED ARE OBTAINED FROM THIS POINTER.$F0C06000
ARS 18 MOVED TO ADDRESS $F0C06005
STA MCHTP AND THESE TAPES ARE SAVED ALONG F0C06010
CLA* STAT7 GET THE POSITIONING ERRORS $F0C06015
ARS 18 WITH THE NUMBER OF F0C06020
STA POSER POSITIONING ERRORS. F0C06030
CAL ADMSK THIS LOCATION IS THEN ZEROED $F0C06040
ANS* STAT7 OUT IN THE DECREMENT. F0C06050
AXT 7,2 SET I.R. 2 TO SAVE INFORMATION. F0C06060
PXA 0,0 CLEAR THE AC. F0C06070
ACL TOTWT+7,2 ADD THE INFORMATION OBTAINED F0C06080
TIX *-1,2,1 AND TEST THE FINAL TOTAL. IF F0C06090
TZE STAT12 ZERO, NO USE OF THIS TAPE. F0C06100
SXA STAT9,1 SAVE NUMBER OF TAPES PROCESSED F0C06110
AXT 0,1 RELOAD INDEX REGISTERS F0C06120
AXT 6,2 SET INDEX REGISTER TO LOAD OUTPUT. F0C06130
STAT8 CLA TOTWT+6,2 PICK UP TOTAL WRITING F0C06140
TSX CNVT,4 GO TO CONVERT TO DECIMAL F0C06150
SLW STBUF+4,1 AND SAVE IN BUFFER F0C06160
TXI *+1,1,-2 BUMP TO INSERT OUTPUT PROPERLY F0C06170
TIX STAT8,2,1 TEST IF ALL OUTPUT MOVED. F0C06180
STAT9 AXT **,1 LOAD INDEX WITH NUMBER OF TAPES, F0C06190
PXA 0,1 AND PLACE IT IN AC F0C06200
TSX CNVT,4 TO CONVERT TO DECIMAL. F0C06210
SLW STBUF THEN STORE LOGICAL NUMBER IN OUTPUT BUFFER F0C06220
CLA MCHTP COMPUTE CORRESPONDING MACHINE F0C06230
LGR 9 TAPE NUMBER. F0C06240
STO TMPR SAVE IN TEMPORARY STORAGE. F0C06250
PXA 0,0 ZERO THE AC F0C06260
LGL 3 MOVE FIRST OCTAL BITS INTO AC AND F0C06270
LBT TEST FOR BIT IN 35. IF BIT IS HERE F0C06280
TRA *+2 THEN STATISTICS ARE FOR SPECIAL UNIT, PUNCHF0C06290
TRA STAT14 READER, ETC. IF NOT IS A TAPE UNIT. F0C06300
LGL 2 MOVE NEXT TWO CHARACTERS INTO AC. F0C06310
PXA 0,0 THESE ARE NOT NEEDED, SO ZERO AC. F0C06320
LGL 4 BRING IN LAST 4 BITS WITH TAPE NUMBER. F0C06330
TSX CNVT,4 CONVERT THIS OCTAL TAPE TO DECIMAL. F0C06340
PAX 0,2 PLACE IN I.R. 2 AND THEN F0C06350
SXD STBUF+2,2 STORE IT IN PROPER PLACE IN OUTPUT BUFFER. F0C06360
CLA TMPR PICK UP MACHINE NUMBER WITH CHANNEL IN IT F0C06370
SUB SVN IF SUBTRACTING LEAVES PLUS CHANNEL IS G ORHF0C06380
TPL STAT15 OTHERWISE CHANNEL IS A-F F0C06390
LXA TMPR,4 CHANNEL IS A-F SO LOAD CHANNEL SHIFT IN F0C06400
LDQ LTTRS INDEX REGISTER PUT THE CHANNEL LETTERS F0C06410
STAT10 PXA 0,0 IN MQ, AND SHIFT UNTIL THE PROPER F0C06420
LGL 6 CHANNEL IS LEFT IN THE AC ALONE F0C06430
TIX STAT10,4,1 WITH ZEROS. F0C06440
ALS 30 SHIFT THE CHANNEL INTO POSITION AND F0C06450
ORS STBUF+2 PUT IN OUTPUT BUFFER F0C06460
STAT11 CLA POSER CONVERT AND STORE THE F0C06470
TSX CNVT,4 NUMBER OF POSITIONING ERRORS F0C06480
SLW STBUF+17 IN THE OUTPUT BUFFER. F0C06490
STAT16 CLA COMST2 WRITE AND PRINT THE STATISTICS FOR ONE F0C06500
AXT ,0 TAPE. SLN 4 HERE WOULD PRINT. $F0C06510
TSX COMNT,4 WRITE IT OFF- $F0C06520
STAT12 TXI *+1,1,1 LINE. BUMP TAPE COUNT AND F0C06530
STAT13 TXL STAT2,1,** CHECK IF FINISHED. F0C06540
TRA FCTWO TAPE STATISTICS FINISHED. GO ON PROCESSING.F0C06550
STAT14 PXA 0,0 HAVE A SPECIAL UNIT DESIGNATION F0C06560
LGL 2 PICK UP TWO CHARACTERS TELLING WHICH UNIT. F0C06570
PAC 0,2 PUT THEIR COMPLEMENT IN INDEX REGISTER F0C06580
CLA PER-3,2 AND PICK UP THE PROPER DESIGNATION F0C06590
STO STBUF+2 AND STORE IN THE OUTPUT BUFFER, THEN F0C06600
TRA STAT16 PRINT IT OUT. F0C06610
STAT15 ADD L(1) SET INDEX REGISTER TO PROPER F0C06620
PAX 0,4 SHIFTING VALUE THEN PICK UP F0C06630
LDQ LTTRS+1 CHANNEL G+H AND GO TO PUT F0C06640
TRA STAT10 PROPER CHARACTER IN AC F0C06650
1 TTL SUBROUTINES F0C06660
CNVT ANA ADMSK ROUTINE DOES BINARY TO BCD CONVERSION F0C06670
XCA MOVE ITEM INTO MQ F0C06680
SXA CNVT3,4 SAVE CALLING LINKAGE F0C06690
AXT 0,4 SET INDEX REGISTER TO ZERO TO START. F0C06700
STZ TMPR1 ZERO OUT TEMPORARY STORAGE F0C06710
CNVT1 PXD 0,0 AND CLEAR OUT THE AC. F0C06720
LRS 0 MAKES SURE SIGN OF MQ IS PLUS. $F0C06725
DVP TEN DIVIDE BY TEN DECIMAL. F0C06730
ALS 0,4 MOVE ANSWER TO DESIRED POSITION F0C06740
ORS TMPR1 AND PUT IT IN STORAGE. F0C06750
CLA L(1) TEST IF CONVERSION DONE F0C06760
TLQ CNVT2 IF DONE GO TO EXIT, IF F0C06770
TXI CNVT1,4,-6 MORE GO BACK TO CONTINUE. F0C06780
CNVT2 CAL BLNKS DONE, LOAD AC WITH BLANKS F0C06790
ALS 6,4 SHIFT DATA TO PROPER POSITION F0C06800
ORA TMPR1 AND BLANK OUT THE REMAINDER OF F0C06810
CNVT3 AXT **,4 WORD. LEAVE IT IN AC, RESTORE LINKAGE, F0C06820
TRA 1,4 AND RETURN TO CALLING PROGRAM. F0C06830
COMNT SXA AX4,4 THE LOCATION OF THE INITIAL TRANSFER IS F0C06840
SXA AX1,1 SAVED AS IS THE COMMAND WORD IN AC. F0C06850
STD COMCW SAVE INDEX REGISTER ONE FOR THE RETURN. $F0C06860
STA COMCW $F0C06863
STO WCOM SET COMMAND WITH SIGN. $F0C06865
LXA JECT,1 LOAD NO. OF LINES LEFT ON PAGE K $F0C06870
SLT 3 DOES LINE BELONG AT TOP $F0C06880
TESTS TXL IOCL,1,** ONLY IF LINE COUNT IS MAXIMUM $F0C06890
LXD TESTS,1 $F0C06900
TSX (TAPE),4 WRITE DUMMY LINE $F0C06910
SKPCM,,(WDNC) TO EJECT PAGE OFF-LINE ONLY $F0C06920
,,MLSTAP $F0C06930
IOCL SLT 4 IF ON, PRINT ON-LINE $F0C06940
TRA WTDA3 IS DESIRED. SL4 OFF, ON TAPE ALONE. F0C06950
TSX (PRNT),4 ON, PRINT OUT THIS MESSAGE. F0C06960
COMCW PZE STORAGE FOR PRINT COMMAND. $F0C06970
WTDA3 TSX (TAPE),4 GO TO IO PACKAGE TO WRITE ON A3 F0C06980
PZE WCOM,,(WDNC) THIS HAS BEEN SET TO PROPER COMMAND. $F0C06990
PZE 0,0,MLSTAP MLSTAP IS NOW SET TO A3 F0C07000
CLA L(1) ADD ONE TO THE LINECOUNT F0C07010
ADD* (LNCT) AND SAVE THE NEW LINECOUNT F0C07020
STO* (LNCT) F0C07030
TIX SJCT,1,1 REDUCE THE LINES AVAILABLE. IF ONLY F0C07040
LXD (PGCT),1 ONE REMAINS, RESTORE LINES TO THE MAXIMUM. F0C07050
SJCT SXA JECT,1 SAVE THE LINES REMAINING F0C07060
AX1 AXT ,1 RELOAD THE INDEX REGISTERS F0C07070
AX4 AXT ,4 AND EXIT TO LOCATION 2 AFTER F0C07080
TRA 1,4 RETURN TO CALLING PROGRAM. F0C07090
WCOM PZE STORAGE FOR TAPE COMMAND. $F0C07095
BOTP CLA 1,2 THIS ROUTINE TAKES CARE OF TAPE F0C07100
STO *+2 HANDLING OF BINARY OUTPUT TAPE. F0C07110
TSX (TAPE),4 THE COMMAND IS PICKED UP AND F0C07120
MZE STORED IN CALLING SEQUENCE, THE TAPE F0C07130
PZE ,,MBNTAP HANDLING PERFORMED AND CONTROL F0C07140
TRA 2,2 RETURNED TO CALLING PROGRAM. F0C07150
FITP CLA 1,2 THIS ROUTINE TAKES CARE OF TAPE F0C07160
STO *+2 HANDLING OF MONITOR INPUT TAPE. F0C07170
TSX (TAPE),4 THE COMMAND IS PICKED UP AND F0C07180
MZE STORED IN CALLING SEQUENCE, THE TAPE F0C07190
PZE ,,MINTAP HANDLING PERFORMED AND CONTROL F0C07200
MZE *+1 ERROR RETURN KILLS ALL REDUNDANCY MESSAGES.F0C07210
TRA 2,2 RETURNED TO CALLING PROGRAM. F0C07220
NNBL SXA NNBL7,2 INDEX REGISTERS ONE AND TWO F0C07230
SXA NNBL8,1 ARE SAVED FOR RESTORING ON EXIT. F0C07240
STQ TEMP1 THE MQ IS ALSO SAVED FOR RESTORING. F0C07250
NNBL1 AXT **,1 INDEX REGISTERS ONE AND TWO CONTAIN F0C07260
NNBL2 AXT **,2 THE NUMBER OF CHARACTERS REMAINING UNDONE. F0C07270
LDQ TEMPQ TEMPQ CONTAINS THE NEXT CHARACTER TO F0C07280
NNBL2A TXL NNBL4,1,5 BE PROCESSED IF 6 CHARACTERS IN WORD F0C07290
LDQ BUFFZ+1,2 NO CHARACTERS LEFT. GET THE NEXT WORD. F0C07300
NNBL4 PXD 0,0 ZERO OUT THE AC F0C07310
LGL 6 BRING A CHARACTER INTO THE AC. F0C07320
SUB BLNK SUBTRACT BLANK FOR TESTING F0C07330
TIX *+3,1,1 ARE ANY CHARACTERS LEFT FOR TESTING F0C07340
AXT 6,1 NO RESET THE SHIFT COUNTER FOR 6 MORE F0C07350
TXI *+1,2,-1 REDUCE THE NUMBER OF WORDS,THEN PROCEED. F0C07360
TNZ NNBL5 IF CHARACTER NON BLANK, AC NOT ZERO F0C07370
TXH NNBL2A,2,2 CHECK FOR ANY WORDS REMAINING. F0C07380
TXI NNBL7,4,1 NONE REMAIN, SET IR 4 FOR ERROR RETURN F0C07390
NNBL5 ADD BLNK RESTORE THE CHARACTER F0C07400
SXA NNBL1,1 SAVE THE CURRENT SHIFT COUNTER F0C07410
SXA NNBL2,2 AND WORD BEING PROCESSED COUNTER F0C07420
NNBL7 AXT ,2 RELOAD THE INDEX REGISTER F0C07430
NNBL8 AXT ,1 AND THE CONTENTS OF THE F0C07440
STQ TEMPQ MQ AT ENTRY AFTER SAVING F0C07450
LDQ TEMP1 THE CURRENT MQ FOR NEXT TIME. F0C07460
TRA 2,4 THEN TAKE TRANSFER BACK F0C07470
TEMP1 PZE STORAGE CELL FOR SAVING MQ AT ENTRY F0C07480
TEMPQ PZE STORAGE CELL FOR SAVING INTERNAL MQ F0C07490
REM F0C07500
REM CONVERT WORD IN MQ TO OCTAL, L HALF IN SI, R HALF IN AC F0C07510
OCTCV SXA OCTCX,4 SAVE CALLING LINKAGE F0C07520
AXT 36,4 PREPARE TO CONVERT TWO SIX CHARACTER WORDSF0C07530
ALS 3 CREATE ZONE F0C07540
LGL 3 SHIFT IN OCTAL DIGIT F0C07550
TIX *-2,4,6 IS FIRST WORD COMPLETE F0C07560
PAI YES, HOLD IT IN INDICATORS F0C07570
ALS 3 CREATE ZONE F0C07580
LGL 3 SHIFT IN OCTAL DIGIT F0C07590
TIX *-2,4,1 IS SECOND WORD COMPLETE F0C07600
OCTCX AXT **,4 YES, RELOAD CALLING LINKAGE F0C07610
TRA 1,4 F0C07620
REM F0C07630
REM PACK LOCATION AND 8 WORDS (OR LINE OF MNEMS) INTO LINE F0C07640
PACK0 SXA PACKX,4 SAVE CALLING LINKAGE F0C07650
SXA PACKX+1,2 MAKE SURE INDEX REGISTERS WILL BE F0C07660
SXA PACKX+2,1 RESTORED TO ORIGINAL STATE ON ENTRY. F0C07670
AXC -1,1 LOAD OUTPUT BUFFER COUNT F0C07680
SXA *-1,1 FLIP FLOP F0C07690
AXT 27,2 PREPARE TO PACK EIGHT TETRADS F0C07700
AXC 0,4 INTO TWO SEPTADS WITH FIVE TO SPARE F0C07710
SLW* OUTBF+14,1 INSERT CORE LOCATION OF FIRST WORD F0C07720
PACK1 CAL BUFF3+27,2 LOAD FIRST WORD OF TETRAD (SIGN) F0C07730
LDQ BUFF3+28,2 LOAD SECOND WORD OF TETRAD (LEFT HALF) F0C07740
LGR 12 LEFT ADJUST WITH LEADING BLANK F0C07750
STQ* OUTBF+1,1 IN FIRST WORD OF SEPTAD F0C07760
CAL BUFF3+28,2 LOAD SECOND WORD OF TETRAD (LEFT HALF) F0C07770
LDQ BUFF3+29,2 LOAD THIRD WORD OF TETRAD (RIGHT HALF) F0C07780
LGR 12 LEFT ADJUST INCLUDING FIRST 4 IN R HALF F0C07790
STQ* OUTBF+2,1 IN SECOND WORD OF SEPTAD F0C07800
CAL BUFF3+30,2 LOAD FIRST WORD OF NEXT TETRAD (SIGN) F0C07810
LDQ BUFF3+31,2 LOAD SECOND WORD OF TETRAD (LEFT HALF) F0C07820
LGR 12 LEFT ADJUST WITH LEADING BLANK F0C07830
CAL BUFF3+29,2 LOAD THIRD WORD OF LAST TETRAD F0C07840
LGR 12 SALVAGE LAST TWO DIGITS IN RIGHT HALF F0C07850
STQ* OUTBF+5,1 IN THIRD WORD OF SEPTAD F0C07860
CAL BUFF3+31,2 LOAD SECOND WORD OF TETRAD (LEFT HALF) F0C07870
LDQ BUFF3+32,2 LOAD THIRD WORD OF TETRAD (RIGHT HALF) F0C07880
LGL 12 LEFT ADJUST INCLUDING FIRST 2 IN R HALF F0C07890
SLW* OUTBF+6,1 IN FOURTH WORD OF SEPTAD F0C07900
CAL BUFF3+32,2 LOAD THIRD WORD OF TETRAD (RIGHT HALF) F0C07910
LDQ BUFF3+33,2 LOAD FIRST OF NEXT TETRAD (SIGN) F0C07920
RQL 24 LEFT ADJUST WITH LEADING BLANK F0C07930
LGL 12 SALVAGE LAST FOUR DIGITS IN RIGHT HALF F0C07940
SLW* OUTBF+9,1 IN FIFTH WORD OF SEPTAD F0C07950
TNX PACK2,2,9 IS THIS END OF LINE F0C07960
CAL BUFF3+25,2 NO, LOAD SECOND WORD OF TETRAD (LEFT HALF)F0C07970
SLW* OUTBF+10,1 IN SIXTH WORD OF SEPTAD F0C07980
CAL BUFF3+26,2 LOAD THIRD WORD OF TETRAD (RIGHT HALF) F0C07990
SLW* OUTBF+13,1 IN SEVENTH WORD OF SEPTAD F0C08000
TXI PACK1,4,-7 BUMP COUNT TO NEXT SEPTAD F0C08010
PACK2 CAL OUTBF+14,1 LOAD BUFFER ORIGIN F0C08020
PACKX AXT **,4 RELOAD CALLING LINKAGE F0C08030
AXT **,2 RESTORE INDEX REGISTERS BEFORE F0C08040
AXT **,1 RETURNING TO CALLING PROGRAM. F0C08050
TRA 1,4 F0C08060
REM F0C08070
REM READ SNAPSHOT RECORD FROM INTERMEDIATE TAPE F0C08080
READT SLN 4 SET RETURN TO 3,4 F0C08090
READS SXA RIR4,4 SAVE INDEX BEFORE USING AS VALUE IS NEEDED.F0C08100
TSX (TAPE),4 *READS NEXT RECORD ON (SNAP) TAPE. F0C08110
PZE 1,2,(RBEC) F0C08120
PZE ,,SNPTAP F0C08130
PZE READR F0C08140
LXA **,1 LOAD LAST+1 WORD READ F0C08150
SLT 2 WILL BE ON IF TRYING TO READ TITLE. F0C08160
TXL SNAP0,1,0 WAS END OF FILE SENSED F0C08170
RIR4 AXT **,4 RESETS INDEX REGISTER IF NO ERROROR EOF. F0C08180
SLT 4 NO, IS RETURN TO 3,4 F0C08190
TRA 2,2 NO F0C08200
TRA 3,2 YES F0C08210
READR TSX (TAPE),4 *SKIP REST OF DUMP F0C08220
MZE SKP1FL,,(SKBP) F0C08230
PZE READS+3,,-1 F0C08240
TSX WRITE,2 *WRITE ERROR MESSAGE F0C08250
IORT RDERM,,9 F0C08260
TRA SNAP0 F0C08270
REM F0C08280
REM WRITE LINE OF DUMP ON OUTPUT TAPE F0C08290
WRITS SLN 4 SET SINGLE SPACE FLAGS F0C08300
SLN 3 F0C08310
WRITE CLA DPLCT BUMP LINE COUNT F0C08320
ADD L(1) F0C08330
SLT 4 IS THIS SINGLE SPACE F0C08340
ADD L(1) NO, BUMP AGAIN F0C08350
STO DPLCT F0C08360
WRIT1 AXT **,4 BUMP PAGE LINE COUNT F0C08370
TIX *+1,4,1 BUMP LINE COUNT F0C08380
SLT 3 IS THIS SINGLE SPACE F0C08390
TRA *+2 NO,SENSE LIGHT OFF, DOUBLE SPACE. F0C08400
TRA WRIT2 YES, DO NOT CREATE WIDOW F0C08410
TIX WRIT2,4,1 BUMP LINE COUNT AND TEST FOR FULL PAGE. F0C08420
TSX (TAPE),4 *YES, WRITE TITLE F0C08430
PZE TITIO,,(WDNP) F0C08440
PZE WRIT2+3,,-1 F0C08450
ADD L(1) F0C08460
STO DPLCT F0C08470
LXD (PGCT),4 RESET LINE COUNT TO FULL PAGE F0C08480
WRIT2 SXA WRIT1,4 F0C08490
TSX (TAPE),4 *WRITE LINE F0C08500
PZE 1,2,(WDNP) F0C08510
PZE ,,MLSTAP F0C08520
TRA 2,2 F0C08530
1 TTL TABLES F0C08540
HBC2 OCT 1000,400,200,100,40,20,10,4,2,1,0,102,42,0,0,0 F0C08550
OCT 4000,4400,4200,4100,4040,4020,4010,4004,4002,4001,5000 F0C08560
OCT 4102,4042,0,0,0 F0C08570
OCT 2000,2400,2200,2100,2040,2020,2010,2004,2002,2001,3000 F0C08580
OCT 2102,2042,0,0,0 F0C08590
OCT 0,1400,1200,1100,1040,1020,1010,1004,1002,1001,0,1102 F0C08600
OCT 1042,0,0,0 F0C08610
BCI ,00000D00000A00000T00000E00000N00000D00000T00000A00000P00000EF0C08620
TBLS BSS 0 LOCATION USED AS BASE TO TEST CARD TYPES $F0C08621
TTL IBSYS CONTROL CARD PROCESSOR $F0C08622
REM PROCESS CARD WITH $ IN COLUMN ONE. $F0C08630
IBCARD LDI* (FGBX) WE'LL NEED THIS LATER $F0C08631
AXT IBCDS,4 NUMBER OF OPERATIONS $F0C08632
CAL BUFF RECOGNIZED. PICK UP OPERATION $F0C08633
LAS IBNAM,4 COMPARE WITH TABLE $F0C08634
TRA *+2 NOT THIS ONE $F0C08635
TRA* IBPLAC,4 BRANCH TO PROCESSOR $F0C08636
TIX *-3,4,1 DO REST OF TABLE $F0C08637
REM CARD WAS UNKNOWN $F0C08638
IBOTHR TSX FITP,2 BACKSPACE OVER UNKNOWN $F0C08639
MZE BKSPC,,(SKDP) IBSYS CONTROL CARD $F0C0863A
REM CARD WAS $IBSYS $F0C08640
NIBSYS CLA RETNG INFORM THEM WE RE TIRED $F0C08641
SLN 4 ON AND OFF LINE $F0C08642
TSX COMNT,4 $F0C08643
TSX (TAPE),4 RESTORE AVAILABILITY $F0C08644
PZE ,,(SUAV) CHAIN. $F0C08645
CAL SYSJOB REFLECT THIS IN SIGN OF SYSJOB, UNLESS $F0C08646
RNT 10 WE'RE AWARE OF PRIOR CHANGES.. $F0C08649
STO SYSJOB WE'RE NOT. $F0C0864A
STZ BOTTOM-12 WE'RE OUT. $F0C0864B
TRA SYSRET AND SO TO BED. $F0C08650
REM CARD WAS $STOP $F0C08651
NSTOP SLW SYSGET STORE OPERATION FOR $F0C08652
TRA NIBSYS IBSYS AND GO BACK TO IT $F0C08653
REM CARD WAS $ID $F0C08654
NIBID TSX SYSIDR,4 CALL INSTALLATION ACCNTG $F0C08655
PZE BUFF,,14 (AC IS ALREADY PLUS) $F0C08656
NZT IDOK DO WE NEED AN I.D... $F0C08658
TPL FCATE FORTRAN, TREAT AS *I.D. $F0C08659
TPL FCFIV IBSFAP OR PREVIOUSLY ID ED FORTRAN $F0C08660
NIBID2 CAL JOBBIT SIGN WAS MINUS, WE MUST BOMB $F0C08661
ORS SYSJOB OUT. SET BOMB-OUT BIT $F0C08662
CAL IBSXEC TELL IBSYS TO IGNORE US $F0C08663
SLW SYSGET $F0C08664
TRA NIBSYS RETURN TO IBSYS $F0C08665
REM CARD WAS $JOB $F0C08666
NIBJOB CAL IBSBSR TELL IBSYS ABOUT IT $F0C08667
SLW SYSGET $F0C08668
TSX (TAPE),4 RESTORE AVAILABILITY CHAIN $F0C08669
PZE ,,(SUAV) SO WE COULD LEGALLY RESTORE SYSJOB $F0C0866A
STZ BOTTOM-12 WE'RE OUT, PROVISIONALLY $F0C08670
CAL SYSJOB AVAILABILITY STATUS BEFORE US $F0C08671
RNT 10 DID THEY.. $F0C08672
STO SYSJOB NO, MAKE SYSJOB PLUS $F0C08673
TSX SYSRPT,4 SEE WHAT'S WHAT $F0C08674
CAL IBSYST AH, WE CAN PROCEED $F0C08675
SLW SYSGET RESTORE SYSGET $F0C08676
CAL WEREIN WE'RE BACK IN $F0C08677
SLW BOTTOM-12 $F0C08678
TSX (TAPE),4 GET OUR TAPES BACK $F0C08679
PZE ,,(SUNV) $F0C0867A
CAL BKSOR (MINUS ZERO) $F0C0867B
ORS SYSJOB TO LET IBSYS KNOW $F0C0867C
TSX SYSIDR,4 AND CALL ACCOUNTING IN ORDER TO $F0C0867D
BUFF,,14 COMPLETE OUR DUTIES $F0C0867E
TMI NIBID2 DID WE... NO. $F0C0867F
SLN 4 YES. PRINT CARD ON/OFF LINE $F0C08680
TRA PJOB $F0C08681
REM CARD WAS $EXECU $F0C08682
NEXECU CAL BUFF+2 WHO DO THEY WANT $F0C08683
LDQ BUFF+3 $F0C08684
LGL 18 GET SYSNAM $F0C08685
ERA FORTRA IS IT US IN EXECUTE MODE $F0C08687
TZE ITSME YES $F0C08689
ERA FOMIB IS IT US IN ASSEMBLE-ONLY $F0C08690
TZE ITSYOU YES $F0C08691
ERA IBSFAP NO, RESTORE HIS NAME, AND $F0C08692
SLW SYSGET SET FOREIGNER $F0C08693
TRA NIBSYS LET IBSYS FIND HIM $F0C08694
ITSME RNT 4 WERE WE ALREADY EXECUTABLE $F0C08695
TRA FCNINE YES, IGNORE THE CARD $F0C08696
CAL NFAPBT NO, CHANGE THE MONITOR $F0C08697
ANS* (FGBX) MODE, AND START OVER $F0C08698
CLA CDMGE PICK UP COMMAND TO PRINT CARD $F0C08699
TSX COMNT,4 PRINT CARD OFFLINE $F0C0869A
TRA FRTRA AND START OVER $F0C0869B
ITSYOU SIR 4 SET ASSEMBLE ONLY $F0C08700
STI* (FGBX) ..IBSFAP.. MODE $F0C08701
STZ JOBOK END-OF-FILE NOT NEEDED $F0C08702
TRA FCFIV+1 PRINT CARD OFF-LINE $F0C08703
TTL DUMP TABLES FOR MNEMONICS $F0C08734
REM MNEMONIC EQUIVALENTS OF MACHINE OPCODES $F0C08735
TBLMN PZE $F0C08736
BCI 1, TXI +1 $F0C08737
BCI 1, TIX +2 $F0C08738
BCI 1, TXH +3 $F0C08739
BCI 1, STR -1 F0C08740
BCI 1, TNX -2 F0C08750
BCI 1, TXL -3 F0C08760
TBLEP PZE ETPSE,,ETPSE-BTPSE F0C08770
TBLEM PZE ETMSE,,ETMSE-BTMSE F0C08780
TBLBP PZE TBLP1,,TBLP1-TBLP0 F0C08790
PZE TBLP2,,TBLP2-TBLP1 F0C08800
PZE TBLP3,,TBLP3-TBLP2 F0C08810
PZE TBLP4,,TBLP4-TBLP3 F0C08820
PZE TBLP5,,TBLP5-TBLP4 F0C08830
PZE TBLP6,,TBLP6-TBLP5 F0C08840
PZE TBLP7,,TBLP7-TBLP6 F0C08850
PZE TBLP8,,TBLP8-TBLP7 F0C08860
TBLBM PZE TBLM1,,TBLM1-TBLM0 F0C08870
PZE TBLM2,,TBLM2-TBLM1 F0C08880
PZE TBLM3,,TBLM3-TBLM2 F0C08890
PZE TBLM4,,TBLM4-TBLM3 F0C08900
PZE TBLM5,,TBLM5-TBLM4 F0C08910
PZE TBLM6,,TBLM6-TBLM5 F0C08920
PZE TBLM7,,TBLM7-TBLM6 F0C08930
PZE TBLM8,,TBLM8-TBLM7 F0C08940
BTPSE BCI 1, CLM00 +0760 00 0 00000 F0C08950
BCI 1, LBT01 +0760 00 0 00001 F0C08960
BCI 1, CHS02 +0760 00 0 00002 F0C08970
BCI 1, SSP03 +0760 00 0 00003 F0C08980
BCI 1, ENK04 +0760 00 0 00004 F0C08990
BCI 1, IOT05 +0760 00 0 00005 F0C09000
BCI 1, COM06 +0760 00 0 00006 F0C09010
BCI 1, ETM07 +0760 00 0 00007 F0C09020
BCI 1, RND10 +0760 00 0 00010 F0C09030
BCI 1, FRN11 +0760 00 0 00011 F0C09040
BCI 1, DCT12 +0760 00 0 00012 F0C09050
ETPSE SYN * F0C09060
BTMSE BCI 1, PBT01 -0760 00 0 00001 F0C09070
BCI 1,EFTM02 -0760 00 0 00002 F0C09080
BCI 1, SSM03 -0760 00 0 00003 F0C09090
BCI 1,LFTM04 -0760 00 0 00004 F0C09100
BCI 1,ESTM05 -0760 00 0 00005 F0C09110
BCI 1,ECTM06 -0760 00 0 00006 F0C09120
BCI 1, LTM07 -0760 00 0 00007 F0C09130
BCI 1,LSNM10 -0760 00 0 00010 F0C09140
BCI 1, ETT11 -0760 00 0 00011 (704) F0C09150
BCI 1, RTT12 -0760 00 0 00012 (704) F0C09160
ETMSE SYN * F0C09170
TBLP0 BCI 1, HTR00 +0000 F0C09180
BCI 1, TRA20 +0020 F0C09190
BCI 1, TTR21 +0021 F0C09200
BCI 1,TRCA22 +0022 F0C09210
BCI 1,TRCC24 +0024 F0C09220
BCI 1,TRCE26 +0026 F0C09230
BCI 1,TRCG27 +0027 F0C09240
BCI 1,TEFA30 +0030 F0C09250
BCI 1,TEFC31 +0031 F0C09260
BCI 1,TEFE32 +0032 F0C09270
BCI 1,TEFG33 +0033 F0C09280
BCI 1, TLQ40 +0040 F0C09290
BCI 1, IIA41 +0041 F0C09300
BCI 1, TIO42 +0042 F0C09310
BCI 1, OAI43 +0043 F0C09320
BCI 1, PAI44 +0044 F0C09330
BCI 1, TIF46 +0046 F0C09340
BCI 1, IIR51 +0051 F0C09350
BCI 1, RFT54 +0054 F0C09360
BCI 1, SIR55 +0055 F0C09370
BCI 1, RNT56 +0056 F0C09380
BCI 1, RIR57 +0057 F0C09390
BCI 1,TCOA60 +0060 F0C09400
BCI 1,TCOB61 +0061 F0C09410
BCI 1,TCOC62 +0062 F0C09420
BCI 1,TCOD63 +0063 F0C09430
BCI 1,TCOE64 +0064 F0C09440
BCI 1,TCOF65 +0065 F0C09450
BCI 1,TCOG66 +0066 F0C09460
BCI 1,TCOH67 +0067 F0C09470
BCI 1, TSX74 +0074 F0C09480
TBLP1 BCI 1, TZE00 +0100 F0C09490
BCI 1, CVR14 +0114 F0C09500
BCI 1, TPL20 +0120 F0C09510
BCI 1, XCA31 +0131 F0C09520
BCI 1, TOV40 +0140 F0C09530
BCI 1, TQO61 +0161 F0C09540
BCI 1, TQP62 +0162 F0C09550
TBLP2 BCI 1, MPY00 +0200 F0C09560
BCI 1, VLM04 +0204 F0C09570
BCI 1, DVH20 +0220 F0C09580
BCI 1, DVP21 +0221 F0C09590
BCI 1, VDH24 +0224 F0C09600
BCI 1, VDP25 +0225 F0C09610
BCI 1, FDH40 +0240 F0C09620
BCI 1, FDP41 +0241 F0C09630
BCI 1, FMP60 +0260 F0C09640
TBLP3 BCI 1, FAD00 +0300 F0C09650
BCI 1, FSB02 +0302 F0C09660
BCI 1, FAM04 +0304 F0C09670
BCI 1, FSM06 +0306 F0C09680
BCI 1, ANS20 +0320 F0C09690
BCI 1, ERA22 +0322 F0C09700
BCI 1, CAS40 +0340 F0C09710
BCI 1, ACL61 +0361 F0C09720
TBLP4 BCI 1, ADD00 +0400 F0C09730
BCI 1, ADM01 +0401 F0C09740
BCI 1, SUB02 +0402 F0C09750
BCI 1, HPR20 +0420 F0C09760
BCI 1, IIS40 +0440 F0C09770
BCI 1, LDI41 +0441 F0C09780
BCI 1, OSI42 +0442 F0C09790
BCI 1, OFT44 +0444 F0C09800
BCI 1, RIS45 +0445 F0C09810
BCI 1, ONT46 +0446 F0C09820
BCI 1, LDA60 +0460 F0C09830
TBLP5 BCI 1, CLA00 +0500 F0C09840
BCI 1, CLS02 +0502 F0C09850
BCI 1, ZET20 +0520 F0C09860
BCI 1, XEC22 +0522 F0C09870
BCI 1, LXA34 +0534 F0C09880
BCI 1, LAC35 +0535 F0C09890
BCI 1,RCHA40 +0540 F0C09900
BCI 1,RCHC41 +0541 F0C09910
BCI 1,RCHE42 +0542 F0C09920
BCI 1,RCHG43 +0543 F0C09930
BCI 1,LCHA44 +0544 F0C09940
BCI 1,LCHC45 +0545 F0C09950
BCI 1,LCHE46 +0546 F0C09960
BCI 1,LCHG47 +0547 F0C09970
BCI 1, LDQ60 +0560 F0C09980
BCI 1, ECA61 +0561 F0C09990
BCI 1, ENB64 +0564 F0C10000
TBLP6 BCI 1, STZ00 +0600 F0C10010
BCI 1, STO01 +0601 F0C10020
BCI 1, SLW02 +0602 F0C10030
BCI 1, STI04 +0604 F0C10040
BCI 1, STA21 +0621 F0C10050
BCI 1, STD22 +0622 F0C10060
BCI 1, STT25 +0625 F0C10070
BCI 1, STP30 +0630 F0C10080
BCI 1, SXA34 +0634 F0C10090
BCI 1,SCHA40 +0640 F0C10100
BCI 1,SCHC41 +0641 F0C10110
BCI 1,SCHE42 +0642 F0C10120
BCI 1,SCHG43 +0643 F0C10130
BCI 1,PSLA64 +0664 F0C10140
BCI 1,PSLC65 +0665 F0C10150
BCI 1,PSLE66 +0666 F0C10160
BCI 1,PSLG67 +0667 F0C10170
BCI 1, ELD70 +0670 F0C10180
BCI 1, EAD71 +0671 F0C10190
BCI 1, EDP72 +0672 F0C10200
BCI 1, EMP73 +0673 F0C10210
TBLP7 BCI 1, CPY00 +0700 F0C10220
BCI 1, PAX34 +0734 F0C10230
BCI 1, PAC37 +0737 F0C10240
BCI 1, PXA54 +0754 F0C10250
PSEOP BCI 1, PSE60 +0760 F0C10260
BCI 1, NOP61 +0761 F0C10270
BCI 1, RDS62 +0762 F0C10280
BCI 1, LLS63 +0763 F0C10290
BCI 1, BSR64 +0764 F0C10300
BCI 1, LRS65 +0765 F0C10310
BCI 1, WRS66 +0766 F0C10320
BCI 1, ALS67 +0767 F0C10330
BCI 1, WEF70 +0770 F0C10340
BCI 1, ARS71 +0771 F0C10350
BCI 1, REW72 +0772 F0C10360
BCI 1, AXT74 +0774 F0C10370
BCI 1, DRS75 +0775 F0C10380
BCI 1, SDN76 +0776 F0C10390
TBLP8 SYN * F0C10400
TBLM0 BCI 1,ESNT21 -0021 F0C10410
BCI 1,TRCB22 -0022 F0C10420
BCI 1,TRCD24 -0024 F0C10430
BCI 1,TRCF26 -0026 F0C10440
BCI 1,TRCH27 -0027 F0C10450
BCI 1,TEFB30 -0030 F0C10460
BCI 1,TEFD31 -0031 F0C10470
BCI 1,TEFF32 -0032 F0C10480
BCI 1,TEFH33 -0033 F0C10490
BCI 1, RIA42 -0042 F0C10500
BCI 1, PIA46 -0046 F0C10510
BCI 1, IIL51 -0051 F0C10520
BCI 1, LFT54 -0054 F0C10530
BCI 1, SIL55 -0055 F0C10540
BCI 1, LNT56 -0056 F0C10550
BCI 1, RIL57 -0057 F0C10560
BCI 1,TCNA60 -0060 F0C10570
BCI 1,TCNB61 -0061 F0C10580
BCI 1,TCNC62 -0062 F0C10590
BCI 1,TCND63 -0063 F0C10600
BCI 1,TCNE64 -0064 F0C10610
BCI 1,TCNF65 -0065 F0C10620
BCI 1,TCNG66 -0066 F0C10630
BCI 1,TCNH67 -0067 F0C10640
TBLM1 BCI 1, TNZ00 -0100 F0C10650
BCI 1, CAQ14 -0114 F0C10660
BCI 1, TMI20 -0120 F0C10670
BCI 1, XCL30 -0130 F0C10680
BCI 1, TNO40 -0140 F0C10690
BCI 1, CRQ54 -0154 F0C10700
TBLM2 BCI 1, MPR00 -0200 F0C10710
BCI 1, UFM60 -0260 F0C10720
TBLM3 BCI 1, UFA00 -0300 F0C10730
BCI 1, UFS02 -0302 F0C10740
BCI 1, UAM04 -0304 F0C10750
BCI 1, USM06 -0306 F0C10760
BCI 1, ANA20 -0320 F0C10770
BCI 1, LAS40 -0340 F0C10780
TBLM4 BCI 1, SBM00 -0400 F0C10790
TBLM5 BCI 1, CAL00 -0500 F0C10800
BCI 1, ORA01 -0501 F0C10810
BCI 1, NZT20 -0520 F0C10820
BCI 1, LXD34 -0534 F0C10830
BCI 1, LDC35 -0535 F0C10840
BCI 1,RCHB40 -0540 F0C10850
BCI 1,RCHD41 -0541 F0C10860
BCI 1,RCHF42 -0542 F0C10870
BCI 1,RCHH43 -0543 F0C10880
BCI 1,LCHB44 -0544 F0C10890
BCI 1,LCHD45 -0545 F0C10900
BCI 1,LCHF46 -0546 F0C10910
BCI 1,LCHH47 -0547 F0C10920
BCI 1, ECQ61 -0561 F0C10930
TBLM6 BCI 1, STQ00 -0600 F0C10940
BCI 1, ORS02 -0602 F0C10950
BCI 1, SLQ20 -0620 F0C10960
BCI 1, STL25 -0625 F0C10970
BCI 1, SXD34 -0634 F0C10980
BCI 1,SCHB40 -0640 F0C10990
BCI 1,SCHD41 -0641 F0C11000
BCI 1,SCHF42 -0642 F0C11010
BCI 1,SCHH43 -0643 F0C11020
BCI 1,PSLB64 -0664 F0C11030
BCI 1,PSLD65 -0665 F0C11040
BCI 1,PSLF66 -0666 F0C11050
BCI 1,PSLH67 -0667 F0C11060
BCI 1, ESB71 -0671 F0C11070
BCI 1, EUA72 -0672 F0C11080
BCI 1, EST73 -0673 F0C11090
TBLM7 BCI 1, CAD00 -0700 F0C11100
BCI 1, PDX34 -0734 F0C11110
BCI 1, PDC37 -0737 F0C11120
BCI 1, PXD54 -0754 F0C11130
MSEOP BCI 1, MSE60 -0760 F0C11140
BCI 1, LGL63 -0763 F0C11150
BCI 1, BSF64 -0764 F0C11160
BCI 1, LGR65 -0765 F0C11170
BCI 1, RUN72 -0772 F0C11180
BCI 1, RQL73 -0773 F0C11190
BCI 1, AXC74 -0774 F0C11200
BCI 1, TRS75 -0775 F0C11210
TBLM8 SYN * F0C11220
REM F0C11230
REM OUTPUT BUFFER SWITCH TABLE F0C11240
OUTBF PZE BUFF2+1,4 F0C11250
PZE BUFF2+2,4 +1 F0C11260
PZE BUFF1+1,4 +2 F0C11270
PZE BUFF1+2,4 +3 F0C11280
PZE BUFF2+3,4 +4 F0C11290
PZE BUFF2+4,4 +5 F0C11300
PZE BUFF1+3,4 +6 F0C11310
PZE BUFF1+4,4 +7 F0C11320
PZE BUFF2+5,4 +8 F0C11330
PZE BUFF2+6,4 +9 F0C11340
PZE BUFF1+5,4 +10 F0C11350
PZE BUFF1+6,4 +11 F0C11360
PZE BUFF2+7,4 +12 F0C11370
PZE BUFF2 +13 F0C11380
PZE BUFF1+7,4 +14 F0C11390
PZE BUFF1 F0C11400
REM F0C11410
1 TTL OTHER = E. G. ' CONSTANTS AND MESSAGES F0C11600
REM ERASABLE F0C11610
TMPR PZE USED FOR TEMPORARY STORAGE BY STAT ROUTINE.F0C11620
CORES PZE **,1,** ORIGIN AT END OF DUMP,,LENGTH OF DUMP F0C11630
PZE **,1 F0C11640
LCORS PZE ** CORE LOCATION AT END OF DUMP F0C11650
FWORD PZE ** CORE LOCATION OF FIRST WORD IN LINE F0C11660
LWORD PZE ** CORE LOCATION OF LAST IDENTICAL WORD F0C11670
ERASE PZE GENERAL ERASABLE F0C11680
DPLCT PZE ** NUMBER OF LINES OUTPUT IN DUMP F0C11690
MONTH OCT 0,0 STORAGE USED FOR BUILDING UP DATE. F0C11700
TOTWT PZE INTERMEDIATE STORAGE-TOTAL WRITING ATTEMPTSF0C11710
TOTRD PZE INTERMEDIATE STORAGE-TOTAL READING ATTEMPTSF0C11720
NOISW PZE INTERMEDIATE STORAGE-NOISE RECORDS WRITTEN F0C11730
NOISR PZE INTERMEDIATE STORAGE-NOISE RECORDS READ F0C11740
TOTRW PZE INTERMEDIATE STORAGE-TOTAL RECORDS WRITTEN F0C11750
TOTRR PZE INTERMEDIATE STORAGE-TOTAL RECORDS READ F0C11760
POSER PZE INTERMEDIATE STORAGE-POSITIONING ERRORS F0C11770
MCHTP PZE INTERMEDIATE STORAGE-CORRESPONDING TAPE. F0C11780
TMPR1 PZE TEMPORARY STORAGE FOR CONVERT ROUTINE. F0C11790
REM F0C11800
REM CONSTANTS F0C11810
BCI 1,READER F0C11820
BCI 1, PUNCH F0C11830
PER BCI 1,PRNTER F0C11840
LTTRS BCI 2,ABCDEFGH F0C11850
EOSMS IOCT ENDMS,,4 COMMAND PUTS OUT CLOSING MESSAGE $F0C11860
IOCOM IOCT COM1,,7 WRITES OUT LINE COUNT. $F0C11870
SKPCM IORT EJECT,,3 USED TO EJECT PAGE OFF-LINE $F0C11880
CDMGE IOCT PBUFF,,15 COMMAND TO WRITE OUT CARD IMAGES. $F0C11890
COMST2 IOCT STBUF-1,,19 COMMAND PUTS OUT LINE OF TAPE STATISTICS. $F0C11900
ERMS IOCT ERSNP,,10 WRITE OUT ERROR IN SNAPPING MESSAGE. $F0C11910
SKP1FL PZE 0,,1 COMMAND TO SKIP ONE FILE. F0C11920
JOBBIT EQU SKP1FL JOB FAILED BITS $F0C11925
RCDA2 IORT BUFF,,14 READS ONE RECORD INTO BUFF -BUFF+13 F0C11930
W1REC IORT CDIM-25,,27 PUTS ONE BINARY CARD ON TAPE. F0C11940
ASTK BCI 1,00000* TESTS FOR FORTRAN JOB. F0C11950
DOLSN BCI 1,00000$ TESTS COL 1 DOLLAR SIGNS $F0C11955
SLASH BCI 1,00000/ USED IN DATE TESTING. F0C11960
TEN DEC 10 USED FOR CONVERTING BINARY TO HOLLERITH F0C11970
BLNK OCT 60 USED TO TEST IF BLANK CHARACTER ON CARD F0C11980
JECT PZE ** STORAGE FOR LINES USED ON A PAGE. F0C11990
FGMSK OCT 400100000014 USED TO RESET FLAGBOX FOR NEW JOB $F0C12000
TRA TRA FRT+3 TO REINITIALIZE SNAP ROUTINE $F0C12003
NOP1 NOP READING DUMP RECORDS FOR SECOND TIME $F0C12007
FC7BAK PZE NIBSYS TO TREAT *END TAPE AS $IBSYS $F0C12010
SWST61 PZE FCSIX,,FCSVN REGULATE TEST FOR DATE OR ENDTAPE CARD. F0C12020
L(BF3 PZE BUFF3 CONSTANT CONTAINING LOCATION OF BUFFER THREF0C12030
SKP2 PZE 2 SKIP COMMAND USED IN EXIT TO SCAN. F0C12050
3ZROS BCI 1,000 F0C12060
FRBNKS OCT 000060606060 F0C12070
BKOFC OCT 007777777777 F0C12080
FRSVNS OCT 777700000000 F0C12090
6SVNS OCT 777777000000 $F0C12095
SVN DEC 7 F0C12100
FAPBT OCT 4 IBSFAP BIT $F0C12102
BOF OCT 200 BEGIN. OF FILE BIT $F0C12104
IDOK PZE 0 ID SWITCH $F0C12106
JOBOK PZE 0 JOB SWITCH $F0C12108
ADMSK MZE -1 $F0C12110
L(1) PZE 1 F0C12120
L(8) PZE 8 F0C12130
3SVNS PZE 511 F0C12140
DELLD PZE -8 F0C12150
REWND PZE ,,-1 F0C12160
BKSPC MZE 1,,0 F0C12170
BK1FL MZE ,,1 $F0C12175
BKSOR MZE 0,,0 SKIP 0 FILES + 0 RECORDS FOR CHECK $F0C12177
ASTRK BCI 1,* F0C12180
LDGBK BCI 1, 00000 F0C12190
2BLNK BCI 1, 0000 F0C12200
PLUSZ BCI 1, +0 F0C12210
MNUSB BCI 1, - F0C12220
MNUSP BCI 1, -1 F0C12230
MINUS BCI 1, - F0C12240
L(ON) BCI 1, ON F0C12250
L(OF) BCI 1, OFF F0C12260
CONSNA BCI 2, SNAPSHOT F0C12270
L(UP) BCI 1, UP F0C12280
L(DN) BCI 1, DOWN F0C12290
REM F0C12300
REM OUTPUT DATA F0C12310
IOCT COMST,,20 THREE SUCCESSIVE COMMANDS TO $F0C12320
IOCT COMST1,,19 WRITE OUT THE HEADING FOR TAPE STATISTICS,$F0C12330
COMTS BSS 0 FOLLOWED BY A SKIPPED LINE. F0C12340
BLKLN IOCT BLNKS-1,,3 $F0C12350
ERSNP BCI 1, F0C12360
BCI 9, SNAP TAPE IS INCORRECT. MAYBE USED IN ERROR. NO SNAPS.F0C12370
PHDG1 BCI 9,0 ACCUMULATOR ENTRY KEYS SENSE INDICATO F0C12380
BCI 9,RS MQ XR1 XR2 XR4 F0C12390
PHDG2 BCI 9,0 SS1 SS2 SS3 SS4 SS5 SS6 F0C12400
BCI 7, AC MQ DC SL4 SL3 SL2 SL1 F0C12410
IDWBF BCI 6,0 F0C12420
BCI 9,CELLS TO ALL CONTAIN F0C12430
RDERM BCI 9,0 THIS PORTION OF SNAPSHOT ABANDONED DUE TO TAPE ERROR F0C12440
ENDMS BCI 4,0 SNAPSHOTS COMPLETE F0C12450
COM1 BCI 7, LINES OUTPUT THIS JOB. F0C12460
BCI 1,0 $F0C12470
COM3 BCI ,* NO I.D. CARD FOR THIS FORTRAN JOB F0C12480
BCI 4, $F0C12485
COM4 BCI 8,0 TO CONTINUE WITH ABOVE LINE AS ID CARD DEP $F0C12490
BCI 5,RESS SIGN KEY AND PUSH START $F0C12492
COM5 BCI 1, $F0C12494
BCI 9,TO SKIP TO NEXT JOB PUSH SIGN KEY UP AND PUSH START $F0C12496
DUP 1,16 PATCH SPACE (26)F0C12498
PZE (26)F0C12500
COM8 BCI 7,0 INPUT TAPE ERROR RECORD IGNORED $F0C12504
COMST BCI 1, F0C12510
BCI 9, LOGICAL MACHINE TOTAL TOTAL NOI F0C12520
BCI 9,SE RECORDS TOTAL REDUNDANCIES POSITION F0C12530
BCI 1,ING F0C12540
COMST1 BCI 1, F0C12550
BCI 9, TAPE TAPE WRITES READS WRITIN F0C12560
BCI 9,G READING WRITING READING ERRORS F0C12570
REM F0C12580
REM GENERAL BUFFER SPACE F0C12590
BCI 1, F0C12600
STBUF BCI , F0C12610
BCI 8, F0C12620
TITBF BSS 5 F0C12630
BUFF1 BSS 20 F0C12640
BUFF2 BSS 20 F0C12650
BUFF3 BSS 24 F0C12660
PBUFF BCI 1, F0C12670
BUFF BSS 12 BEING WORKED WITH AS HOLLERITH F0C12680
BCI 2, OR READ IN OR OUT AS HOLLERITH. F0C12690
BUFFZ BSS 0 END OF CARD BUFFER. F0C12700
EJECT BCI 1,1 USED TO PRINT MESSAGES ON TOP OF PAGE. F0C12710
BCI 1, F0C12720
BLNKS BCI 3, MASK TO FILL IN AND TEST. F0C12730
CDIM BES 25 USED TO STORE BINARY CARDS F0C12740
BSS 2 USED FOR ID FOR COLUMN BINARY CARDS. F0C12750
PZE LEFT BLANK TO AVOID CONFLICT WITH ID CARDBFF0C12752
REM IBSYS CONTROL CARDS RECOGNIZED $F0C12770
BCI 1,$JOB $F0C12771
BCI 1,$ID $F0C12772
BCI 1,$STOP $F0C12773
BCI 1,$IBSYS $F0C12774
BCI 1,$EXECUTE $F0C12775
OCT 537777777777 SPACE FOR ONE MORE $F0C12776
IBNAM EQU * $F0C12777
REM AND LOCATIONS THAT PROCESS THEM $F0C12778
NIBJOB CALL SYSRPT $F0C12779
NIBID CALL SYSIDR $F0C12780
NSTOP LET IBSYS STOP $F0C12781
NIBSYS RETURN TO IBSYS $F0C12782
NEXECU CHECK SYSNAM $F0C12783
IBOTHR NOT RECOGNIZED $F0C12784
IBPLAC EQU * $F0C12785
IBCDS EQU IBPLAC-IBNAM NUMBER OF DIFFERENT CARDS $F0C12786
TTRDMP TTR SYSDMP TO REINITIALIZE CELL 2 $F0C12787
NFAPBT OCT 777777777773 TO TURN OFF FAP BIT $F0C12788
IBSXEC BCI 1,IBSXEC STORED IN SYSGET ON $F0C12789
IBSBSR BCI 1,IBSBSR FAILURE AND BEFORE AND $F0C12790
IBSYST BCI 1,IBSYST AFTER CALL SYSRPT $F0C12791
IBRMS BCI 7,0 FORTRAN MONITOR RETURNING TO IBSYS $F0C12792
IBSFAP BCI 1,IBSFAP $F0C12793
FORTRA BCI 1,FORTRA $F0C12794
WEREIN BCI 1,WEREIN $F0C12795
FOMIB OCT 176433457066 EXCL OR OF IBSFAP AND FORTRA $F0C12796
RETNG IOCT IBRMS,,7 COMMENT RETURNING TO IBSYS $F0C12797
EOFLT LDI* (FGBX) $F0C12798
RNT 4 IS THIS IBSFAP $F0C12799
NZT IDOK NO,IS I.D. STILL NEEDED $F0C12800
TRA RDCD+1 YES,EOF O.K. $F0C12801
STL JOBOK I.D. HAS OCCURRED, SO EOF $F0C12802
TRA FCNINE IS OUT OF PLACE $F0C12803
PJOB CLA CDMGE $F0C12900
TSX COMNT,4 (24)F0C12901
TRA FCNINE $F0C12902
PATS BSS 29 $F0C12903
CORBF BSS TOPTAB-* DUMP BUFFERS $F0C12910
END -1 $F0C12920
Forgot your password?
