github.com/rcornwell.ctss
1
0
Fork 0
mirror of https://github.com/rcornwell/ctss.git synced 2026-01-12 00:02:48 +00:00
Code Issues Projects Releases Wiki Activity
rcornwell.ctss/original/tslib2
Richard Cornwell c610c1cfe3 Added start of IBSYS build system. 
Added original listing files for reference.
2016-09-27 22:42:50 -04:00

16571 lines
1.1 MiB
Raw Permalink Blame History

DBUG BCD 12/17/69 1757.4 79795 00000
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 1
AUGUST 1, 1968
*
00005 ENTRY,DEBUG
00005 ENTRY,FAPDBG
00003 ENTRY,FBUG
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 2
USEFUL DEFINITIONS.
TRANSFER VECTOR
00000 444665312534 MOVIE)
LINKAGE DIRECTOR
00001 000000000000
00002 242522642760
00000 .. EQU ** MODIFICATION SYMBOL.
-0625 71 1 20000 SETF OPSYN STL SET FLAG.
0600 71 1 60000 CLEAR OPSYN STZ CLEAR FLAG.
3 00011 1 60000 PAR OPSYN BRN PARAMETER POINTER.
2 00017 1 60000 BLK OPSYN TIX BLOCK POINTER.
-1 00011 1 20000 FMT OPD 500011120000 FORMAT POINTER.
-1 00011 1 20000 IOP OPD 500011120000 I/O PARAMETER POINTER.
-1 00001 1 20000 ENDIO OPSYN STR END OF I/O LIST.
-0 20734 0 05544 SHOW OPSYN PMC SAVE PRESENT DEFINITION OF PMC.
*
TSS MACRO A CALL SUPERVISOR SUBROUTINE.
GEN ,TSX(A,4) GENERATE CALL INSTRUCTION.
RMT
IFF A,X IF ARGUMENT IS UNDEFINED,
GEN (A),TIA(=H'A) INSERT THE TRAP INSTRUCTION.
RMT
END TSS
*
TYPE MACRO N,COM,LOC TYPE COMMENT.
GEN ,TSX(TYPE,4) CALL SUBPROGRAM.
GEN ,PAR(LOC) POINTER TO BCI STRING.
RMT
IFF LOC,X IF LOCATION SYMBOL UNDEFINED, GENERATE BCI.
GEN LOC,BCI(N,COM) GENERATE THE BCI STRING.
RMT
END TYPE
*
TYPA MACRO N,COM,LOC
GEN ,TSX(TYPA,4) CALL SUBPROGRAM.
GEN ,PAR(LOC) POINTER TO BCI STRING.
RMT
IFF LOC,X IF LOCATION SYMBOL UNDEFINED, GENERATE BCI.
GEN LOC,BCI(N,COM) GENERATE THE BCI STRING.
RMT
END TYPA
*
GEN MACRO LOC,OP,AD SURROUND GENERATED WORD WITH PMC ON, OFF.
PMC ON PRINT THE WORD.
LOC OP AD ..
PMC OFF RETURN TO NORMAL MODE.
END GEN
*
OUTSUB MACRO NAME DEFINE SUBROUTINE CALL.
IRP NAME CONSIDER EACH NAME IN LIST.
NAME MACRO ARG DEFINE IT.
GEN ,CLA(ARG) GENERATE A CLA.
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 3
USEFUL DEFINITIONS.
GEN ,TSX(NAME,4) CALL THE SUBROUTINE.
END NAME THAT'S IT FOR THIS DEFINITION.
IRP ANY MORE.Q
END OUTSUB NO.
*
00003 OUTSUB (TYO,BCDOUT,NAMOUT,INTOUT,OCTOUT,FLDPRT)
*
TEQ MACRO LOC,SAMPLE TRANSFER IF EQUAL.
GEN ,LAS(SAMPLE) COMPARE C(AC) WITH C(SAMPLE).
GEN ,TRA(*+2) C(AC) .NE. C(SAMPLE), SKIP.
GEN ,TRA(LOC) C(AC) .E. C(SAMPLE), TRANSFER.
END TEQ
*
TNE MACRO LOC,SAMPLE TRANSFER IF NOT EQUAL.
TEQ *+2,(SAMPLE) IF C(AC) .E. C(SAMPLE), SKIP.
GEN ,TRA(LOC) C(AC) .NE. C(SAMPLE), TRANSFER.
END TNE
*
TBL MACRO LOC TRANSFER IF BLANK.
TEQ (LOC),=H00000 ..
END TBL
*
TNB MACRO LOC TRANSFER IF NOT BLANK.
TNE (LOC),=H00000 ..
END TNB
*
TCR MACRO LOC TRANSFER IF CARRIAGE RETURN.
TEQ (LOC),=O55 ..
END TCR
*
TNCR MACRO LOC TRANSFER IF NOT CARRIAGE RETURN.
TNE (LOC),=O55 ..
END TNCR
*
MCALL MACRO NAME,ARG GENERATE MAD FUNCTION CALL.
TSS NAME CALL THE FUNCTION.
IRP ARG EXPAND THE ARGUMENT LIST.
PTR ARG ..
IRP
END MCALL
*
PTR MACRO A,B,C GENERATE ARGUMENT POINTER.
... SET * REMEMBER CURRENT LOCATION.
IFF 1,...,B IS B '...'.Q
GEN ,BLK(A,,C) YES, USE MAD BLOCK NOTATION.
IFF 1,,B IS B VOID.Q
GEN ,PAR(A,,C) YES, USE FAP BLOCK NOTATION.
IFF *-...,X DID EITHER OF THE ABOVE TURN OUT TRUE.Q
GEN ,PAR(A) NO, USE SINGLE ARGUMENT POINTER.
END PTR
*
FNC MACRO NAME DEFINE FUNCTION NAME.
IRP NAME CONSIDER EACH NAME IN LIST.
NAME MACRO ARG DEFINE IT..
MCALL NAME(ARG)
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 4
USEFUL DEFINITIONS.
END NAME
IRP
END FNC
*
00003 FNC (OPEN,BUFFER,RDWAIT,CLOSE,IODIAG)
*
*
*
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 5
MAIN CONTROL SECTION, READS AND INTERPRETS REQUESTS.
*
00003 0634 00 4 05042 FBUG SXA,RETNBG,4
00004 -0625 00 0 05047 STL,BYSUBR
*
* ENTRY FROM COMMAND 'DEBUG'
*
00005 DEBUG EQU,*
00005 -0520 00 0 04173 FAPDBG NZT,INUSR
00006 0020 00 0 00016 TRA,QBACK
00007 0600 00 0 04173 CLEAR,INUSR
00010 0634 00 4 06061 SXA BXC,4 SAVE XR 4.
00011 0074 00 4 05671 TSX SAVMC,4 SAVE THE REST OF THE MACHINE CONDX.
00012 0074 00 4 00740 TSX,BRKSAV,4
00013 TSS GETILC GET LOCATION OF USER'S STOP.
00013 0074 00 4 14304 TSX GETILC,4 .002
00014 0621 00 0 00235 STA LOC UPDATE DEFINITION OF '*'.
00015 0621 00 0 06052 STA BIC UPDATE THE ILC.
00016 -0625 00 0 03327 QBACK SETF,CRFLG
00017 QQBACK TSS,SETBCD
00017 0074 00 4 14305 TSX SETBCD,4 .002
00020 TYPA 3,(DEBUG ENTERED.*)
00020 0074 00 4 04036 TSX TYPA,4 .002
00021 3 00000 0 14306 PAR ..001 .002
00022 TSS GETMEM GET THE MEMORY BOUND.
00022 0074 00 4 14311 TSX GETMEM,4 .002
00023 -0340 00 0 14646 LAS,=O77777
00024 0020 00 0 00025 TRA,*+1
00025 0400 00 0 14612 ADD,=1
00026 0602 00 0 06051 SLW,RPTMEM
00027 TEQ SAME1,MEMBND HAS MEMORY BOUND BEEN CHANGED.
00027 -0340 00 0 00116 LAS MEMBND .002
00030 0020 00 0 00032 TRA *+2 .002
00031 0020 00 0 00041 TRA SAME1 .002
00032 0602 00 0 00116 SLW MEMBND SAVE IT.
00033 TYPA 4,( MEMORY BOUND IS *),BNDC
00033 0074 00 4 04036 TSX TYPA,4 .002
00034 3 00000 0 14312 PAR BNDC .002
00035 OCTOUT MEMBND TYPE THE BOUND.
00035 0500 00 0 00116 CLA MEMBND .002
00036 0074 00 4 11324 TSX OCTOUT,4 .002
00037 TYO =H00000. PUNCTUATION.
00037 0500 00 0 14630 CLA =H00000. .002
00040 0074 00 4 04174 TSX TYO,4 .002
00041 0074 00 4 04232 SAME1 TSX CR,4 THEN CARRIAGE RETURN.
*
* INITIALIZE THE RELOCATION TABLE
*
00042 0074 00 4 03665 TSX,CHFIL,4
00043 0020 00 0 00044 TRA,*+1
00044 0074 00 4 02127 TSX,DORTAB,4
00045 -0625 00 0 00043 STL,*-2
00046 0074 00 4 03300 MAIN TSX SKIPCR,4 MOVE TO BEGINNING OF NEXT REQUEST.
00047 0074 00 4 05136 IGNORE TSX BCSCH,4 GET THE FIRST SUBFIELD.
00050 0600 00 0 04167 CLEAR INRUPT RESET THE INTERRUPT FLAG.
00051 0601 00 0 02556 STO BC SAVE BREAK CHARACTER AND INDICATOR.
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 6
MAIN CONTROL SECTION, READS AND INTERPRETS REQUESTS.
00052 -0600 00 0 00115 STQ SUBF SAVE CHARACTERS IN SUBFIELD.
00053 TBL RQST CHECK FOR REQUEST IF BLANK,
00053 -0340 00 0 14634 LAS =H00000 .003
00054 0020 00 0 00056 TRA *+2 .003
00055 0020 00 0 00062 TRA RQST .003
00056 TNCR LOCF OR CR. OTHERWISE, LOC FIELD.
00056 -0340 00 0 14633 LAS =O55 .004
00057 0020 00 0 00061 TRA *+2 .004
00060 0020 00 0 00062 TRA *+2 .004
00061 0020 00 0 00072 TRA LOCF .003
00062 -0130 00 0 00000 RQST XCL
00063 TEQ BLANK,=H IS FIELD ALL BLANK.Q
00063 -0340 00 0 14746 LAS =H .002
00064 0020 00 0 00066 TRA *+2 .002
00065 0020 00 0 00075 TRA BLANK .002
00066 -0320 00 0 14776 ANA =O777777777700
00067 TEQ ONECH,(=H 0) IS IT ONLY ONE CHARACTER.Q
00067 -0340 00 0 14744 LAS =H 0 .002
00070 0020 00 0 00072 TRA *+2 .002
00071 0020 00 0 00105 TRA ONECH .002
00072 0500 00 0 02556 LOCF CLA BC RESTORE THE DATA.
00073 0560 00 0 00115 LDQ SUBF
00074 0020 00 0 00113 TRA LOCNXT GO CONTINUE SCANNING THE LINE.
*
00075 0500 00 0 02556 BLANK CLA BC GET BREAK CHARACTER.
00076 TCR NEXT IF CARRIAGE RETURN, LOOK AT NEXT LOCATION.
00076 -0340 00 0 14633 LAS =O55 .003
00077 0020 00 0 00101 TRA *+2 .003
00100 0020 00 0 01652 TRA NEXT .003
00101 TBL IGNORE IF BLANK, TRY AGAIN.
00101 -0340 00 0 14634 LAS =H00000 .003
00102 0020 00 0 00104 TRA *+2 .003
00103 0020 00 0 00047 TRA IGNORE .003
00104 0020 00 0 00072 TRA LOCF OTHERWISE WE HAVE A LOCATION FIELD.
*
00105 -0500 00 0 00115 ONECH CAL SUBF ONLY ONE CHARACTER.
00106 -0320 00 0 14642 ANA =O77 GET RID OF BLANKS.
00107 -0340 00 0 14616 LAS =7 IS CHARACTER A 'LETTER.Q'.
00110 0020 00 0 00264 TRA CMND YES, ASSUME IT A REQUEST.
00111 0761 00 0 00000 NOP NO,
00112 0020 00 0 00072 TRA LOCF ASSUME IT A LOCATION.
*
00113 0074 00 4 05175 LOCNXT TSX EVAL,4 EVALUATE THE FIRST FIELD (LOCATION).
00114 0020 00 0 01670 TRA,MLOOK
*
00115 0 00000 0 00000 SUBF
00116 0 00000 0 00000 MEMBND CURRENT MEMORY BOUND.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 7
SYMIN. GET SYMBOLIC 'FAP WORD' FROM INPUT LINE.
00117 0634 00 4 00206 SYMIN SXA SYMX,4 SAVE RETURN.
00120 0634 00 1 00207 SXA SYMY,1 SAVE XR 1.
00121 0600 00 0 02561 STZ OP CLEAR THE WORD PARTS.
00122 0600 00 0 02562 STZ ADD
00123 0600 00 0 02563 STZ TAG
00124 0600 00 0 02564 STZ DEC
00125 0074 00 4 05136 TSX BCSCH,4 GET THE OP. CODE, NEXT DELIMITER.
00126 0602 00 0 02556 SLW BC SAVE BREAK CHARACTER.
00127 -0600 00 0 02561 STQ OP SAVE THE RIGHT-ADJUSTED OP CODE.
00130 -0130 00 0 00000 XCL
00131 0074 00 4 05303 TSX LADJ,4 ADJUST CODE TO LEFT.
00132 0774 00 1 00016 AXT POPEND-POPORG,1 SET UP COUNT OF PSEUDO-OPS.
00133 POPRET TEQ LOK,(POPEND,1) GO DISPATCH IF THIS IS IT.
00133 -0340 00 1 00235 LAS POPEND,1 .002
00134 0020 00 0 00136 TRA *+2 .002
00135 0020 00 0 00211 TRA LOK .002
00136 2 00002 1 00133 TIX POPRET,1,2 NOT THIS ONE, TRY AGAIN.
00137 -0500 00 0 02561 CAL OP NOT A PSEUDO-OP, GET RIGHT-ADJUSTED CODE.
00140 0074 00 4 13443 TSX OPBIN,4 LOOK UP THE CODE.
00141 0602 00 0 02561 SLW OP
00142 -0500 00 0 02556 CAL BC GET BREAK CHARACTER, CHECK IT.
00143 TCR SINP END OF 'LINE', EXIT.
00143 -0340 00 0 14633 LAS =O55 .003
00144 0020 00 0 00146 TRA *+2 .003
00145 0020 00 0 00167 TRA SINP .003
00146 -0625 00 0 05302 STL,CMAFLG
00147 0074 00 4 05201 ADNXT TSX FLDEVL,4 EVALUATE THE ADDRESS FIELD.
00150 -0600 00 0 02562 STQ ADD
00151 TNE SINP,(=H00000,) END OF LINE IF NOT COMMA.
00151 -0340 00 0 14641 LAS =H00000, .003
00152 0020 00 0 00154 TRA *+2 .003
00153 0020 00 0 00155 TRA *+2 .003
00154 0020 00 0 00167 TRA SINP .002
00155 -0625 00 0 05302 STL,CMAFLG
00156 0074 00 4 05201 TSX FLDEVL,4 EVALUATE THE TAG FIELD.
00157 -0600 00 0 02563 STQ TAG
00160 TNE SINP,(=H00000,) END OF LINE IF NOT COMMA.
00160 -0340 00 0 14641 LAS =H00000, .003
00161 0020 00 0 00163 TRA *+2 .003
00162 0020 00 0 00164 TRA *+2 .003
00163 0020 00 0 00167 TRA SINP .002
00164 -0625 00 0 05302 STL,CMAFLG
00165 0074 00 4 05201 TSX FLDEVL,4 EVALUATE THE DECREMENT FIELD.
00166 -0600 00 0 02564 STQ DEC
00167 0601 00 0 02556 SINP STO BC SAVE THE BREAK CHARACTER.
00170 -0500 00 0 02561 CAL OP GET THE OP CODE.
00171 0602 00 0 02557 SLW WORD SAVE IT.
00172 -0501 00 0 02562 ORA ADD INSERT THE ADDRESS.
00173 0621 00 0 02557 STA WORD AND SAVE THE ADDRESS PART.
00174 -0500 00 0 02563 CAL TAG GET THE TAG.
00175 0767 00 0 00017 ALS 15 SHIFT IT INTO POSITION.
00176 -0501 00 0 02557 ORA WORD PUT IT INTO THE WORD.
00177 0625 00 0 02557 STT WORD AND SAVE ONLY THE TAG PART.
00200 -0500 00 0 02564 CAL DEC GET THE DECREMENT.
00201 0767 00 0 00022 ALS 18 SHIFT IT INTO POSITION.
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 8
SYMIN. GET SYMBOLIC 'FAP WORD' FROM INPUT LINE.
00202 -0501 00 0 02557 ORA WORD COMBINE IT W/ PREVIOUS.
00203 0622 00 0 02557 STD WORD AND SAVE ONLY THE DECREMENT PART.
00204 0560 00 0 02557 LDQ WORD GET THE ENTIRE WORD.
00205 0500 00 0 02556 CLA BC GET THE BREAK CHARACTER.
00206 0774 00 4 00000 SYMX AXT ..,4 RESTORE RETURN (HERE FROM POP).
00207 0774 00 1 00000 SYMY AXT ..,1 RESTORE XR 1.
00210 0020 00 4 00001 TRA 1,4 AND EXIT.
*
00211 0500 00 0 02556 LOK CLA BC GET THE BREAK CHARACTER.
00212 TCR ILF MAKE SURE WE HAVE A WORD OF DATA.
00212 -0340 00 0 14633 LAS =O55 .003
00213 0020 00 0 00215 TRA *+2 .003
00214 0020 00 0 00236 TRA ILF .003
00215 -0774 00 4 00205 AXC SYMX-1,4 SET UP RETURN INDEX.
00216 0020 60 1 00236 TRA* POPEND+1,1 DISPATCH ON THE PSEUDO-OP.
*
00217 222324606060 POPORG BCI 1,BCD HOLLERITH INPUT.
00220 0 00000 0 04333 BCDIN ..
00221 304643606060 BCI 1,HOL ..
00222 0 00000 0 04333 BCDIN ..
00223 264346606060 BCI 1,FLO FLOATING POINT INPUT.
00224 0 00000 0 03001 FLOIN ..
00225 314563606060 BCI 1,INT DECIMAL INTEGER INPUT.
00226 0 00000 0 02675 INTIN ..
00227 242523606060 BCI,1,DEC
00230 0 00000 0 02675 PZE,INTIN
00231 414563606060 BCI 1,JNT FORTRAN INTEGER INPUT.
00232 0 00000 0 02700 JNTIN ..
00233 462363606060 BCI 1,OCT OCTAL INPUT.
00234 0 00000 0 02672 OCTIN ..
00235 POPEND EQU *
*
00235 0 00000 0 00000 LOC CURRENT LOCATION.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 9
ILF. COMMENT ON UNDECIPHERABLE REQUEST.
00236 -0625 00 0 00620 ILF SETF NOGO SET G AND P ERROR FLAG.
00237 TCR ILFCR IF CARRIAGE RETURN, GIVE SPECIAL COMMENT.
00237 -0340 00 0 14633 LAS =O55 .003
00240 0020 00 0 00242 TRA *+2 .003
00241 0020 00 0 00255 TRA ILFCR .003
00242 TBL ILFBL SAME WITH BLANK.
00242 -0340 00 0 14634 LAS =H00000 .003
00243 0020 00 0 00245 TRA *+2 .003
00244 0020 00 0 00260 TRA ILFBL .003
00245 0601 00 0 00263 STO ILFCH SAVE THE CHARACTER.
00246 0074 00 4 04236 TSX QUOTE,4 TYPE LEFT QUOTE.
00247 TYO ILFCH TYPE THE CHARACTER.
00247 0500 00 0 00263 CLA ILFCH .002
00250 0074 00 4 04174 TSX TYO,4 .002
00251 0074 00 4 04236 TSX QUOTE,4 TYPE THE RIGHT QUOTE.
00252 ILFJN TYPE 5,( ENCOUNTERED UNEXPECTEDLY.*)
00252 0074 00 4 04034 TSX TYPE,4 .002
00253 3 00000 0 14316 PAR ..002 .002
00254 0020 00 0 00046 TRA MAIN GO GET THE NEXT REQUEST.
*
00255 ILFCR TYPA 3,(END OF REQUEST*)
00255 0074 00 4 04036 TSX TYPA,4 .002
00256 3 00000 0 14323 PAR ..003 .002
00257 0020 00 0 00252 TRA ILFJN GO TYPE THE REST OF THE MESSAGE.
*
00260 ILFBL NAMOUT =HBLANK TYPE THE FIRST PART OF COMMENT.
00260 0500 00 0 14670 CLA =HBLANK .002
00261 0074 00 4 04313 TSX NAMOUT,4 .002
00262 0020 00 0 00252 TRA ILFJN GO GET THE REST.
*
00263 0 00000 0 00000 ILFCH STORAGE FOR THE CHARACTER.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 10
DISPATCH ON AND SERVICE REQUEST.
00264 0774 00 1 00076 CMND AXT CEND-CORG,1 SET UP,
00265 TEQ CDISP,(CEND,1) FOUND, GO DISPATCH.
00265 -0340 00 1 00373 LAS CEND,1 .002
00266 0020 00 0 00270 TRA *+2 .002
00267 0020 00 0 00272 TRA CDISP .002
00270 2 00002 1 00265 TIX *-3,1,2 TRY AGAIN.
00271 0020 00 0 00072 TRA LOCF NOT A REQUEST, ASSUME A LOCATION.
*
00272 -0500 00 1 00374 CDISP CAL CEND+1,1 GET LOCATION W/ POINTERS.
00273 -0737 00 2 00000 PDC ,2 PUT FIRST POINTER IN XR 2.
00274 0020 00 2 00000 TRA ,2 DISPATCH ON IT.
*
00275 CORG EQU * REQUEST DISPATCH TABLE.
00275 000000000021 BCI 1,00000A
00276 0 02412 0 00000 ,,SAC SIGNED AC.
00277 000000000022 BCI 1,00000B
00300 0 00461 0 00000 ,,INSERT INSERT A BREAKPOINT.
00301 000000000023 BCI 1,00000C
00302 0 00434 0 00000 ,,VERIFY OR COMPARE.
00303 000000000024 BCI 1,00000D
00304 0 00373 0 00000 ,,DPOSIT PATCH IN SYMBOLIC.
00305 000000000025 BCI 1,00000E
00306 0 02523 0 00000 ,,DEF DEFINE.
00307 000000000026 BCI 1,00000F
00310 0 01660 0 11215 FLOOUT,,LOOK 'LOOK' IN FLOATING-POINT.
00311 000000000027 BCI 1,00000G
00312 0 01534 0 00000 ,,GO BEGIN EXECUTION OF PROGRAM.
00313 000000000030 BCI 1,00000H
00314 0 01660 0 04310 BCDCK1,,LOOK LOOK AT A BCD WORD.
00315 000000000031 BCI 1,00000I
00316 0 01660 0 11330 INTCK1,,LOOK LOOK AT A FULL-WORD INTEGER.
00317 000000000033 BCI,1,00000.
00320 0 04661 0 00000 PZE,,,XECUTE
00321 +000000000035 OCT,000000000035
00322 0 01517 0 00000 PZE,,,COLON
00323 000000000041 BCI 1,00000J
00324 0 01660 0 11326 DECOUT,,LOOK LOOK AT A FORTRAN INTEGER.
00325 000000000042 BCI 1,00000K
00326 0 02456 0 00000 ,,LAC LOGICAL AC.
00327 000000000043 BCI 1,00000L
00330 0 02317 0 00000 ,,YANK FIND LOAD ADDRESS OF PROGRAM.
00331 000000000044 BCI 1,00000M STORAGE MAP.
00332 0 00431 0 00000 ,,M
00333 000000000045 BCI,1,00000N
00334 0 04473 0 05050 PZE,SYMPRT,,N
00335 000000000046 BCI 1,00000O OCTAL LOOK.
00336 0 01660 0 11323 FOCT,,LOOK LOOK IN OCTAL.
00337 000000000047 BCI 1,00000P
00340 0 01044 0 00000 ,,CONTIN PROCEED OR CONTINUE FROM BREAKPOINT.
00341 000000000050 BCI 1,00000Q
00342 0 01561 0 00000 ,,DISMIS OR QUIT.
00343 000000000051 BCI,1,00000R
00344 0 02163 0 05050 PZE,SYMPRT,,R
00345 000000000053 BCI,1,00000$
00346 0 05031 0 00000 PZE,,,LEAVEF
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 11
DISPATCH ON AND SERVICE REQUEST.
00347 000000000054 BCI,1,00000*
00350 0 02111 0 00000 PZE,,,SETI
00351 000000000061 BCI,1,00000/
00352 0 04523 0 00000 PZE,,,LCATE
00353 000000000062 SLOC BCI 1,00000S
00354 0 04503 0 05050 SYMPRT,,S LOOK AT A WORD SYMBOLICALLY.
00355 000000000063 BCI 1,00000T SYMBOL TABLE.
00356 0 02333 0 00000 ,,TABLE READ SYMBOLS (OR KILL TABLE).
00357 000000000064 BCI,1,00000U
00360 0 04513 0 05050 PZE,SYMPRT,,U
00361 000000000065 BCI,1,00000V
00362 0 02200 0 00000 PZE,,,V
00363 000000000066 BCI,1,00000W
00364 0 02357 0 00000 PZE,,,AUTO
00365 000000000067 BCI,1,00000X
00366 0 01625 0 11402 PZE,XPROC,,XLOOK
00367 000000000070 BCI,1,00000Y
00370 0 01625 0 11404 PZE,YPROC,,XLOOK
00371 000000000071 BCI,1,00000Z
00372 0 01625 0 11406 PZE,ZPROC,,XLOOK
00373 CEND EQU,*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 12
D REPLACE CONTENTS OF SPECIFIED LOCATION.
00373 0500 00 0 02556 DPOSIT CLA BC GET BREAK CHARACTER.
00374 TCR ILF IF NOT A BLANK, COMPLAIN.
00374 -0340 00 0 14633 LAS =O55 .003
00375 0020 00 0 00377 TRA *+2 .003
00376 0020 00 0 00236 TRA ILF .003
00377 0074 00 4 05201 TSX FLDEVL,4 EVALUATE LOCATION FIELD.
00400 TCR ILF GRIPE IF NOT ANOTHER ARGUMENT.
00400 -0340 00 0 14633 LAS =O55 .003
00401 0020 00 0 00403 TRA *+2 .003
00402 0020 00 0 00236 TRA ILF .003
00403 -0600 00 0 00235 PUT STQ LOC SAVE THE VALUE OF THE FIELD.
00404 -0500 00 0 00235 CAL LOC
00405 -0340 00 0 00116 LAS MEMBND
00406 0761 00 0 00000 NOP
00407 0020 00 0 02515 TRA LLM TOO BIG, COMPLAIN.
*
* MAKE SPECIAL CASE OF DEPOSITING IN THE AC.
*
00410 -0340 00 0 11150 LAS,QBSAC
00411 0020 00 0 00413 TRA,*+2
00412 0020 00 0 02416 TRA,SACIN
00413 -0340 00 0 11152 LAS,QBAC
00414 0020 00 0 00416 TRA,*+2
00415 0020 00 0 02462 TRA,LACIN
*
00416 0074 00 4 00117 TSX SYMIN,4 GET THE SYMBOLIC WORD.
00417 -0600 60 0 00235 STQ* LOC INSERT WORD INTO CORE.
00420 -0130 00 0 00000 XCL
00421 -0500 00 0 00235 CAL,LOC
00422 0361 00 0 14612 ACL,=1
00423 -0130 00 0 00000 XCL
00424 TNCR,PUT
00424 -0340 00 0 14633 LAS =O55 .004
00425 0020 00 0 00427 TRA *+2 .004
00426 0020 00 0 00430 TRA *+2 .004
00427 0020 00 0 00403 TRA PUT .003
00430 0020 00 0 00046 TRA MAIN
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 13
M TYPE STORAGE MAP.
00431 0500 00 0 02556 M CLA BC GET THE BREAK CHARACTER.
00432 0074 00 4 03601 TSX MAP,4 PRINT STORAGE MAP.
00433 0020 00 0 00046 TRA MAIN GO GET NEXT REQUEST.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 14
C COMPARE SUBPROGRAM WITH VIRGIN VERSION.
00434 0500 00 0 02556 VERIFY CLA BC GET THE BREAK CHARACTER.
00435 TCR ILF IF NO ARGUMENTS, GRIPE.
00435 -0340 00 0 14633 LAS =O55 .003
00436 0020 00 0 00440 TRA *+2 .003
00437 0020 00 0 00236 TRA ILF .003
00440 0074 00 4 05136 TSX BCSCH,4 ASSEMBLE THE ENTRY NAME.
00441 -0600 00 0 02411 STQ NAME SAVE IT.
00442 0602 00 0 02556 SLW BC AND SAVE THE BREAK CHARACTER.
00443 -0130 00 0 00000 XCL MOVE THE NAME TO THE AC.
00444 0074 00 4 05303 TSX LADJ,4 LEFT ADJUST IT.
00445 0074 00 4 02565 TSX ORGFND,4 FIND ITS ORIGIN.
00446 0602 00 0 02560 SLW PGMORG SAVE THE ORIGIN.
00447 0500 00 0 02556 CLA BC GET THE BREAK CHARACTER.
00450 TCR VERGO IF CARR. RET., DON'T TRY ANOTHER ARG.
00450 -0340 00 0 14633 LAS =O55 .003
00451 0020 00 0 00453 TRA *+2 .003
00452 0020 00 0 00455 TRA VERGO .003
00453 0074 00 4 05136 TSX,BCSCH,4
00454 -0600 00 0 02411 STQ NAME SAVE IT.
00455 -0500 00 0 02411 VERGO CAL NAME ALL SET, GET THE FILE NAME.
00456 0560 00 0 02560 LDQ PGMORG AND THE ORIGIN.
00457 0074 00 4 03351 TSX DIFDMP,4 GO TO VERIFY.
00460 0020 00 0 00046 TRA MAIN WHEN DONE, RETURN.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 15
B INSERT OR REMOVE BREAK POINT.
*
* DETERMINE WHICH BREAK IS TO BE USED, AND WHERE IT IS PLACED
*
00461 0500 00 0 02556 INSERT CLA BC
00462 TCR REMOVE IF BC IS A CARR. RET., REMOVE THE BPT.
00462 -0340 00 0 14633 LAS =O55 .003
00463 0020 00 0 00465 TRA *+2 .003
00464 0020 00 0 00621 TRA REMOVE .003
00465 0074 00 4 02672 TSX,OCTIN,4
00466 0602 00 0 00617 SLW,BKCHR
00467 0200 00 0 00650 MPY,NPBRKW
00470 0131 00 0 00000 XCA
00471 -0340 00 0 00647 LAS,BRKCS
00472 0020 00 0 00643 TRA,INERR
00473 0020 00 0 00474 TRA,*+1
00474 0100 00 0 00621 TZE,REMOVE
00475 0734 00 2 00000 PAX,,2
00476 0131 00 0 00000 XCA
00477 -0500 00 0 00617 CAL,BKCHR
00500 TCR,REM1
00500 -0340 00 0 14633 LAS =O55 .003
00501 0020 00 0 00503 TRA *+2 .003
00502 0020 00 0 00624 TRA REM1 .003
00503 0074 00 4 05201 TSX FLDEVL,4 EVALUATE THE DESIRED LOCATION.
00504 0602 00 0 00617 SLW,BKCHR
00505 -0500 00 0 00116 CAL MEMBND GET BOUND.
00506 0040 00 0 00510 TLQ *+2 COMPARE W/ LOCATION OF BREAK.
00507 0020 00 0 02515 TRA LLM COMPLAIN IF BREAK IS GREATER.
00510 -0600 00 0 00235 STQ,LOC
00511 0634 00 2 00520 SXA,SAVE2,2
00512 0774 00 2 00067 AXT,NBRK*NPBRK,2
00513 -0130 00 0 00000 XCL
00514 -0340 00 2 00744 MAYBEB LAS,BRKTAB+4,2
00515 0020 00 0 00517 TRA,*+2
00516 0020 00 0 00521 TRA,USEIT
00517 2 00013 2 00514 TIX,MAYBEB,2,NPBRK
00520 0774 00 2 00000 SAVE2 AXT,**,2
00521 0602 00 2 00744 USEIT SLW,BRKTAB+4,2
00522 -0500 00 0 00617 CAL,BKCHR
00523 TCR,ZOT
00523 -0340 00 0 14633 LAS =O55 .003
00524 0020 00 0 00526 TRA *+2 .003
00525 0020 00 0 00636 TRA ZOT .003
*
* EVALUATE THE CONDITION FOR THIS BREAKPOINT,
* AND SET IT IN TABLE
*
00526 -0625 00 0 05302 STL,CMAFLG
00527 0074 00 4 05201 TSX,FLDEVL,4
00530 -0600 00 2 00746 STQ,BRKTAB+6,2
00531 TNE,BNEXT(=H00000,)
00531 -0340 00 0 14641 LAS =H00000, .003
00532 0020 00 0 00534 TRA *+2 .003
00533 0020 00 0 00535 TRA *+2 .003
00534 0020 00 0 00542 TRA BNEXT .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 16
B INSERT OR REMOVE BREAK POINT.
00535 0074 00 4 05201 TSX,FLDEVL,4
00536 -0130 00 0 00000 XCL
00537 0767 00 0 00017 ALS,15
00540 0625 00 2 00746 STT,BRKTAB+6,2
00541 -0130 00 0 00000 XCL
00542 BNEXT TCR,INERR
00542 -0340 00 0 14633 LAS =O55 .003
00543 0020 00 0 00545 TRA *+2 .003
00544 0020 00 0 00643 TRA INERR .003
00545 0074 00 4 05136 TSX,BCSCH,4
00546 -0130 00 0 00000 XCL
00547 0441 00 0 14611 LDI,=0
00550 -0340 00 0 14743 LAS,=H .L.
00551 0020 00 0 00572 TRA,TESTON
00552 -0055 00 000010 SIL,000010
00553 -0340 00 0 14742 LAS,=H .G.
00554 0020 00 0 00572 TRA,TESTON
00555 -0055 00 001000 SIL,001000
00556 -0340 00 0 14741 LAS,=H .E.
00557 0020 00 0 00572 TRA,TESTON
00560 -0055 00 000100 SIL,000100
00561 -0340 00 0 14737 LAS,=H .NE.
00562 0020 00 0 00572 TRA,TESTON
00563 -0055 00 001010 SIL,001010
00564 -0340 00 0 14736 LAS,=H .LE.
00565 0020 00 0 00572 TRA,TESTON
00566 -0055 00 000110 SIL,000110
00567 -0340 00 0 14735 LAS,=H .GE.
00570 0020 00 0 00572 TRA,TESTON
00571 -0055 00 001100 SIL,001100
00572 -0054 00 001110 TESTON LFT,001110
00573 -0051 00 000100 IIL,000100
00574 -0051 00 000100 SETE IIL,000100
00575 0442 00 2 00746 OSI,BRKTAB+6,2
00576 0604 00 2 00746 STI,BRKTAB+6,2
00577 -0130 00 0 00000 XCL
00600 TCR,INERR
00600 -0340 00 0 14633 LAS =O55 .003
00601 0020 00 0 00603 TRA *+2 .003
00602 0020 00 0 00643 TRA INERR .003
00603 0074 00 4 00117 TSX,SYMIN,4
00604 -0600 00 2 00747 STQ,BRKTAB+7,2
00605 0600 00 2 00750 STZ,BRKTAB+8,2
00606 TCR,GET7S
00606 -0340 00 0 14633 LAS =O55 .003
00607 0020 00 0 00611 TRA *+2 .003
00610 0020 00 0 00615 TRA GET7S .003
00611 0074 00 4 02672 TSX,OCTIN,4
00612 -0130 00 0 00000 XCL
00613 0602 00 2 00751 STOOCT SLW,BRKTAB+9,2
00614 0020 00 0 00046 TRA MAIN AND EXIT.
*
00615 -0500 00 0 14777 GET7S CAL,=O777777777777
00616 0020 00 0 00613 TRA,STOOCT
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 17
B INSERT OR REMOVE BREAK POINT.
00617 0 00000 0 00000 BKCHR
00620 0 00000 0 00000 NOGO ERROR FLAG FOR G AND P REQUESTS.
*
* DELETE ONE OR MORE BREAKPOINTS FROM TABLE
*
00621 0774 00 2 00067 REMOVE AXT,NBRK*NPBRK,2
00622 -0625 00 0 00646 STL,1FLAG
00623 0020 00 0 00625 TRA,*+2
00624 0600 00 0 00646 REM1 STZ,1FLAG
00625 0600 00 2 00744 STZ,BRKTAB+4,2
00626 0600 00 2 00745 STZ,BRKTAB+5,2
00627 0600 00 2 00746 STZ,BRKTAB+6,2
00630 0600 00 2 00747 STZ,BRKTAB+7,2
00631 0600 00 2 00750 STZ,BRKTAB+8,2
00632 0600 00 2 00751 STZ,BRKTAB+9,2
00633 0520 00 0 00646 ZET,1FLAG
00634 2 00013 2 00625 TIX,REM1+1,2,NPBRK
00635 0020 00 0 00046 TRA,MAIN
*
* CHANGE A BREAKPOINT TO UNCONDITIONAL
*
00636 0600 00 2 00746 ZOT STZ,BRKTAB+6,2
00637 0600 00 2 00747 STZ,BRKTAB+7,2
00640 0600 00 2 00750 STZ,BRKTAB+8,2
00641 0600 00 2 00751 STZ,BRKTAB+9,2
00642 0020 00 0 00046 TRA,MAIN
*
* GENERAL ERROR MESSAGE FROM BREAK REQUEST
*
00643 INERR TYPE,4,(ILLEGAL BREAK REQUEST.*)
00643 0074 00 4 04034 TSX TYPE,4 .002
00644 3 00000 0 14326 PAR ..004 .002
00645 0020 00 0 02552 TRA,OOPS
*
*
*
00646 0 00000 0 00000 1FLAG
00647 0 00000 0 00067 BRKCS PZE,NPBRK*NBRKS
00650 0 00000 0 00013 NPBRKW PZE,NPBRK
*
00013 NPBRKS EQU,11
00013 NPBRK EQU,NPBRKS
00005 NBRKS EQU,5
00005 NBRK EQU,NBRKS
*
* TABLE OF BREAKPOINTS
*
00651 DUP,5,NBRKS
00651 0020 00 0 00652 TRA,*+1
00652 0634 00 4 06061 SXA,BXC,4
00653 -0774 00 4 00655 AXC,*+2,4
00654 0020 00 0 01262 TRA,BREAK
00655 BSS,NPBRKS-4
00664 0020 00 0 00665
00665 0634 00 4 06061
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 18
B INSERT OR REMOVE BREAK POINT.
00666 -0774 00 4 00670
00667 0020 00 0 01262
00670
00677 0020 00 0 00700
00700 0634 00 4 06061
00701 -0774 00 4 00703
00702 0020 00 0 01262
00703
00712 0020 00 0 00713
00713 0634 00 4 06061
00714 -0774 00 4 00716
00715 0020 00 0 01262
00716
00725 0020 00 0 00726
00726 0634 00 4 06061
00727 -0774 00 4 00731
00730 0020 00 0 01262
00731
*
00740 BRKTAB EQU,*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 19
ROUTINES FOR USE WITH BREAK REQUEST
*
* RESTORE ALL BREAK LOCATIONS TO ORIGINAL CONTENTS
*
00740 0634 00 4 00747 BRKSAV SXA,BSVXR,4
00741 0774 00 4 00067 AXT,NBRK*NPBRK,4
00742 -0520 00 4 00744 BRTST NZT,BRKTAB+4,4
00743 0020 00 0 00746 TRA,TIXBR
00744 -0500 00 4 00745 CAL,BRKTAB+5,4
00745 0602 60 4 00744 SLW*,BRKTAB+4,4
00746 2 00013 4 00742 TIXBR TIX,BRTST,4,NPBRK
00747 0774 00 4 00000 BSVXR AXT,**,4
00750 0020 00 4 00001 TRA,1,4
*
* INSERT ALL CURRENT BREAKS INTO USER'S PROGRAM
*
00751 0634 00 4 00762 BRKSET SXA,BSTXR,4
00752 0774 00 4 00067 AXT,NBRK*NPBRK,4
00753 -0520 00 4 00744 BRSTST NZT,BRKTAB+4,4
00754 0020 00 0 00761 TRA,TIXBRS
00755 -0500 60 4 00744 CAL*,BRKTAB+4,4
00756 0602 00 4 00745 SLW,BRKTAB+5,4
00757 -0500 00 4 00740 CAL,BRKTAB,4
00760 0602 60 4 00744 SLW*,BRKTAB+4,4
00761 2 00013 4 00753 TIXBRS TIX,BRSTST,4,NPBRK
00762 0774 00 4 00000 BSTXR AXT,**,4
00763 0020 00 4 00001 TRA,1,4
*
* INFORM THE USER OF THE TIMES EACH BREAKPOINT WAS PASSED
*
00764 0634 00 4 01036 DUMPB SXA,BDUMXR,4
00765 0634 00 2 01037 SXA,BDUMXR+1,2
00766 0634 00 1 01040 SXA,BDUMXR+2,1
00767 0774 00 2 00067 AXT,NPBRK*NBRK,2
00770 0774 00 1 00005 AXT,NBRK,1
00771 -0500 00 2 00744 DTEST CAL,BRKTAB+4,2
00772 0100 00 0 01033 TZE,TIXD
00773 0602 00 0 01043 SLW,WHICHB
00774 -0500 00 2 00750 CAL,BRKTAB+8,2
00775 0100 00 0 01033 TZE,TIXD
00776 0602 00 0 01042 SLW,CNTBR
00777 TYPA,1,( LOC *)
00777 0074 00 4 04036 TSX TYPA,4 .002
01000 3 00000 0 14332 PAR ..005 .002
01001 0634 00 1 01461 SXA,BRKISB,1
01002 OCTOUT,BRKISB
01002 0500 00 0 01461 CLA BRKISB .002
01003 0074 00 4 11324 TSX OCTOUT,4 .002
01004 TYPA,1,( AT *)QATWRD
01004 0074 00 4 04036 TSX TYPA,4 .002
01005 3 00000 0 14333 PAR QATWRD .002
01006 0520 00 0 04466 ZET,NMODE
01007 -0625 00 0 04460 STL,OFLAG
01010 0520 00 0 04465 ZET,SMODE
01011 0600 00 0 04464 STZ,SFLAG
01012 0500 00 0 01043 CLA,WHICHB
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 20
ROUTINES FOR USE WITH BREAK REQUEST
01013 0074 00 4 04361 TSX,FLDPRT,4
01014 TYPA,2,( PASSED *)
01014 0074 00 4 04036 TSX TYPA,4 .002
01015 3 00000 0 14334 PAR ..006 .002
01016 OCTOUT,CNTBR
01016 0500 00 0 01042 CLA CNTBR .002
01017 0074 00 4 11324 TSX OCTOUT,4 .002
01020 TYPA,1,( TIME*)
01020 0074 00 4 04036 TSX TYPA,4 .002
01021 3 00000 0 14336 PAR ..007 .002
01022 -0500 00 0 01042 CAL,CNTBR
01023 0402 00 0 14612 SUB,=1
01024 0602 00 0 01042 SLW,CNTBR
01025 0500 00 0 14636 CLA,=H00000S
01026 0520 00 0 01042 ZET,CNTBR
01027 0074 00 4 04174 TSX,TYO,4
01030 TYO,=H00000.
01030 0500 00 0 14630 CLA =H00000. .002
01031 0074 00 4 04174 TSX TYO,4 .002
01032 0074 00 4 04232 TSX,CR,4
01033 0600 00 2 00750 TIXD STZ,BRKTAB+8,2
01034 1 77777 1 01035 TXI,*+1,1,-1
01035 2 00013 2 00771 TIX,DTEST,2,NPBRK
01036 0774 00 4 00000 BDUMXR AXT,**,4
01037 0774 00 2 00000 AXT,**,2
01040 0774 00 1 00000 AXT,**,1
01041 0020 00 4 00001 TRA,1,4
*
01042 0 00000 0 00000 CNTBR
*
*
01043 0 00000 0 00000 WHICHB
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 21
P PROCEED FROM BREAKPOINT STOP.
01044 0500 00 0 02556 CONTIN CLA BC GET THE BREAK CHARACTER.
01045 0520 00 0 00620 ZET NOGO TEST FOR ERROR ON THIS INPUT LINE.
01046 0020 00 0 01223 TRA DONTP ERROR, SO IGNORE P REQUEST.
01047 0500 00 0 06052 CLA BIC GET LOCATION OF NEXT INSTRUCTION.
01050 -0320 00 0 14646 ANA =O77777 GET RID OF GARBAGE.
01051 0340 00 0 00116 CAS MEMBND DOES IT VIOLATE.Q
01052 0761 00 0 00000 NOP YES,
01053 0020 00 0 02515 TRA LLM GO GRIPE ABOUT IT.
01054 0774 00 2 00067 AXT,NBRK*NPBRK,2
01055 -0500 00 2 00744 CAL,BRKTAB+4,2
01056 0100 00 0 01062 TZE,TIXCHK
01057 TEQ,PUNORM,BIC
01057 -0340 00 0 06052 LAS BIC .002
01060 0020 00 0 01062 TRA *+2 .002
01061 0020 00 0 01064 TRA PUNORM .002
01062 2 00013 2 01055 TIXCHK TIX,*-5,2,NPBRK
01063 0020 00 0 01115 TRA,PNORM
01064 0500 60 0 06052 PUNORM CLA*,BIC
01065 -0320 00 0 14774 ANA =O777700000000 SAVE THE OPERATION CODE.
01066 TEQ XEC,=O052200000000 IS IT AN 'XEC.Q'
01066 -0340 00 0 14661 LAS =O052200000000 .002
01067 0020 00 0 01071 TRA *+2 .002
01070 0020 00 0 01165 TRA XEC .002
01071 TEQ TSX,=O007400000000 IS IT A 'TSX.Q'
01071 -0340 00 0 14660 LAS =O007400000000 .002
01072 0020 00 0 01074 TRA *+2 .002
01073 0020 00 0 01143 TRA TSX .002
01074 TEQ STL,=O426500000000 IS IT AN 'STL.Q'
01074 -0340 00 0 14711 LAS =O426500000000 .002
01075 0020 00 0 01077 TRA *+2 .002
01076 0020 00 0 01153 TRA STL .002
01077 -0320 00 0 14761 ANA =O700000000000 NOT TYPE B, SAVE JUST THE PREFIX.
01100 TEQ STR,=O500000000000 IS IT AN 'STR.Q'
01100 -0340 00 0 14717 LAS =O500000000000 .002
01101 0020 00 0 01103 TRA *+2 .002
01102 0020 00 0 01135 TRA STR .002
01103 0500 60 0 06052 PNLD CLA*,BIC
01104 0601 00 0 01131 STO EXOP PREPARE TO EXECUTE IT.
01105 0534 00 4 06052 LXA BIC,4 SET UP FOLLOWING TRA'S.
01106 1 00001 4 01107 TXI *+1,4,1 ..
01107 0634 00 4 01132 SXA CONLOC,4 ..
01110 1 00001 4 01111 TXI *+1,4,1 ..
01111 0634 00 4 01133 SXA CONLOC+1,4 ..
01112 1 00001 4 01113 TXI *+1,4,1 ..
01113 0634 00 4 01134 SXA CONLOC+2,4 ..
01114 0020 00 0 01121 TRA PCOM PROCEED. PRINT THE COMMENT.
*
01115 0500 00 0 14656 PNORM CLA =O002000000000 GET CODE FOR 'TRA.'
01116 0601 00 0 01131 STO EXOP SET IT UP TO BE EXECUTED.
01117 0500 00 0 06052 CLA BIC GET ADDRESS TO TRANSFER TO.
01120 0621 00 0 01131 STA EXOP SET UP THE 'TRA.'
01121 0074 00 4 00751 PCOM TSX,BRKSET,4
01122 0520 00 0 01457 ZET,NOCOMF
01123 0020 00 0 01126 TRA,SKPCOM
01124 CNOBP TYPE 4,(PROGRAM RESTARTED.*)
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 22
P PROCEED FROM BREAKPOINT STOP.
01124 0074 00 4 04034 TSX TYPE,4 .002
01125 3 00000 0 14337 PAR ..008 .002
01126 0074 00 4 05757 SKPCOM TSX RESMC,4 RESTORE THE MACHINE CONDITIONS.
01127 0600 00 0 01457 STZ,NOCOMF
01130 -0625 00 0 04173 SETF INUSR SET FLAG.. CONTROL IS WITH USER.
01131 0 00000 0 00000 EXOP ... .. INSTRUCTION TO BE EXECUTED.
01132 0020 00 0 00000 CONLOC TRA .. TRANSFERS TO CATCH SKIPS.
01133 0020 00 0 00000 TRA .. ..
01134 0020 00 0 00000 TRA .. ..
*
01135 0534 00 4 06052 STR LXA BIC,4 GET LOCATION OF THIS INSTRUCTION.
01136 1 00001 4 01137 TXI *+1,4,1 BUMP IT BY ONE.
01137 0634 00 4 00000 SXA 0,4 SET UP LOCATION 0 AS IF STR DID IT.
01140 0500 00 0 14657 CLA =O002000000002 GET 'TRA 2.'
01141 0601 00 0 01131 STO EXOP SET IT UP AS INSTRUCTION.
01142 0020 00 0 01121 TRA PCOM PROCEED TO THE USER.
*
01143 0500 60 0 06052 TSX CLA*,BIC
01144 0560 00 0 14716 TSX1 LDQ =O477400000000 GET CODE FOR 'AXC.'
01145 -0600 00 0 01131 STQ EXOP SET IT UP TO BE EXECUTED.
01146 0625 00 0 01131 STT EXOP INSERT ITS TAG.
01147 0621 00 0 01132 STA CONLOC SET UP ADDRESS TO TRANSFER TO.
01150 0500 00 0 06052 CLA BIC GET LOCATION OF THE 'TSX.'
01151 0621 00 0 01131 STA EXOP INSERT IT IN THE 'AXC.'
01152 0020 00 0 01121 TRA PCOM PROCEED TO THE USER.
*
01153 0500 60 0 06052 STL CLA*,BIC
01154 0074 00 4 01226 STL1 TSX CCEA,4 GET ITS EFFECTIVE ADDRESS.
01155 0621 00 0 01160 STA STLS SET UP OUR 'SXA.'
01156 0534 00 4 06052 LXA BIC,4 GET LOCATION OF THE 'STL.'
01157 1 00001 4 01160 TXI *+1,4,1 BUMP IT BY ONE.
01160 0634 00 4 00000 STLS SXA ..,4 DO WHAT 'STL' WOULD HAVE.
01161 0500 00 0 14656 CLA =O002000000000 GET CODE FOR 'TRA.'
01162 0601 00 0 01131 STO EXOP IT IS THE INSTRUCTION TO BE EXECUTED.
01163 0634 00 4 01131 SXA EXOP,4 INSERT ITS ADDRESS.
01164 0020 00 0 01121 TRA PCOM PROCEED TO THE USER.
*
01165 0774 00 1 00012 XEC AXT 10,1 SET UP COUNT OF 'XEC' CHAIN.
01166 0500 60 0 06052 CLA*,BIC
01167 0074 00 4 01226 XECLP TSX CCEA,4 GET EFFECTIVE ADDRESS.
01170 0737 00 4 00000 PAC ,4 SAVE EFFECTIVE ADDRESS.
01171 -0500 00 4 00000 CAL ,4 GET THE INSTRUCTION IT POINTS AT.
01172 -0320 00 0 14774 ANA =O777700000000 THROW AWAY ALL BUT INSTRUCTION.
01173 TNE XECND,=O052200000000 IS IT AN 'XEC.Q'
01173 -0340 00 0 14661 LAS =O052200000000 .003
01174 0020 00 0 01176 TRA *+2 .003
01175 0020 00 0 01177 TRA *+2 .003
01176 0020 00 0 01204 TRA XECND .002
01177 0500 00 4 00000 CLA ,4 YES, GET ADDRESS, TAG, AND FLAG BITS.
01200 2 00001 1 01167 TIX XECLP,1,1 COUNT IT AND TRY AGAIN.
01201 TYPA 4,(XEC CHAIN TOO DEEP. *)
01201 0074 00 4 04036 TSX TYPA,4 .002
01202 3 00000 0 14343 PAR ..009 .002
01203 0020 00 0 01223 TRA DONTP CHAIN TOO DEEP, DO NOT PROCEED.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 23
P PROCEED FROM BREAKPOINT STOP.
01204 XECND TEQ XTSX,=O007400000000 IS IT A 'TSX.Q'
01204 -0340 00 0 14660 LAS =O007400000000 .002
01205 0020 00 0 01207 TRA *+2 .002
01206 0020 00 0 01217 TRA XTSX .002
01207 TEQ XSTL,=O462500000000 IS IT AN 'STL.Q'
01207 -0340 00 0 14713 LAS =O462500000000 .002
01210 0020 00 0 01212 TRA *+2 .002
01211 0020 00 0 01221 TRA XSTL .002
01212 -0320 00 0 14761 ANA =O700000000000 NOT TYPE B, SAVE JUST THE PREFIX.
01213 TEQ STR,=O500000000000 IS IT AN 'STR.Q'
01213 -0340 00 0 14717 LAS =O500000000000 .002
01214 0020 00 0 01216 TRA *+2 .002
01215 0020 00 0 01135 TRA STR .002
01216 0020 00 0 01103 TRA PNLD 'XEC' IS NOT LOCATION DEPENDENT.
*
01217 0500 00 4 00000 XTSX CLA ,4 GET INSTRUCTION'S ADDRESS, TAG.
01220 0020 00 0 01144 TRA TSX1 GO TO TSX SECTION.
*
01221 0500 00 4 00000 XSTL CLA ,4 GET THE ADDRESS, TAG, AND FLAG BITS.
01222 0020 00 0 01154 TRA STL1 GO TO STL SECTION.
*
01223 DONTP TYPE 2,(P IGNORED.*)
01223 0074 00 4 04034 TSX TYPE,4 .002
01224 3 00000 0 14347 PAR ..010 .002
01225 0020 00 0 02552 TRA OOPS GO GET NEXT REQUEST.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 24
CCEA. COMPUTE AND CHECK EFFECTIVE ADDRESS.
* NOTE.. TRANSPARENT ONLY TO XR'S 1, 2, 4.
01226 0634 00 4 01256 CCEA SXA CCXC,4 SAVE RETURN INDEX.
01227 0634 00 1 01257 SXA CCXA,1 ..
01230 0634 00 2 01260 SXA CCXB,2 ..
01231 0044 00 0 00000 PAI SAVE FLAG BITS.
01232 0625 00 0 01243 CCLOOP STT CCTXI SET UP THE TAGS WE NEED.
01233 0625 00 0 01244 STT CCPCA ..
01234 -0320 00 0 14646 ANA =O77777 GET RID OF OTHER GARBAGE.
01235 0054 00 700000 RFT 700000 IS THE TAG ZERO.Q
01236 0020 00 0 01240 TRA CCTAG NO, INTERPRET IT.
01237 0020 00 0 01245 TRA CCNTG NO, SKIP TAG SECTION.
*
01240 0737 00 4 00000 CCTAG PAC ,4 COMPLEMENT ADDRESS.
01241 -0634 00 4 01243 SXD CCTXI,4 SAVE FOR BUMPING LATER.
01242 0074 00 4 11174 TSX RESXR,4 RESTORE THE INDEX REGISTERS.
01243 1 00000 0 01244 CCTXI TXI *+1,..,.. SUBTRACT ADDRESS, FORM (-A + T).
01244 0756 00 0 00000 CCPCA PCA ,.. GET (A - T).
01245 0340 00 0 00116 CCNTG CAS MEMBND CHECK MEMORY REFERENCE.
01246 0761 00 0 00000 NOP ABOVE BOUND,
01247 0020 00 0 02515 TRA LLM GRIPE.
01250 -0056 00 000060 LNT 60 IS THE INSTRUCTION FLAGGED.
01251 0020 00 0 01255 TRA CCXIT NO, WE ARE DONE.
01252 -0057 00 000060 RIL 60 YES, RESET THE FLAG.
01253 0500 60 0 01244 CLA* CCPCA GET THE ADDRESSED LOCATION.
01254 0020 00 0 01232 TRA CCLOOP INDEX AGAIN.
*
01255 0760 00 0 00016 CCXIT LMTM ALL DONE, GO HOME.
01256 0774 00 4 00000 CCXC AXT ..,4 RESTORE RETURN INDEX.
01257 0774 00 1 00000 CCXA AXT ..,1 ..
01260 0774 00 2 00000 CCXB AXT ..,2 ..
01261 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 25
BREAK. ENTRY FROM USER'S BREAKPOINT.
01262 0600 00 0 04173 BREAK CLEAR INUSR RESET 'IN USER' FLAG.
01263 0634 00 4 01301 SXA WHEREB,4 SAVE XR 4.
01264 0074 00 4 05671 TSX SAVMC,4 SAVE THE REST OF THE MACHINE COND.
01265 0074 00 4 00740 TSX,BRKSAV,4
01266 TSS,GETMEM
01266 0074 00 4 14311 TSX GETMEM,4 .002
01267 -0340 00 0 14646 LAS,=O77777
01270 0020 00 0 01271 TRA,*+1
01271 0400 00 0 14612 ADD,=1
01272 0600 00 0 01354 STZ,BMBCHG
01273 TEQ,NOMBCG,MEMBND
01273 -0340 00 0 00116 LAS MEMBND .002
01274 0020 00 0 01276 TRA *+2 .002
01275 0020 00 0 01277 TRA NOMBCG .002
01276 -0625 00 0 01354 STL,BMBCHG
01277 0602 00 0 06051 NOMBCG SLW,RPTMEM
01300 0602 00 0 00116 SLW,MEMBND
01301 0774 00 4 00000 WHEREB AXT,**,4
*
* WHICH BREAKPOINT IS THIS
*
01302 1 00744 4 01303 TXI,*+1,4,BRKTAB+4
01303 0774 00 2 00000 AXT,0,2
01304 1 00001 2 01305 TXI,*+1,2,1
01305 2 00013 4 01304 TIX,*-1,4,NPBRKS
01306 0634 00 2 01461 SXA,BRKISB,2
01307 0534 00 4 01301 LXA,WHEREB,4
01310 -0500 00 4 00000 CAL,,4
01311 0621 00 0 06052 STA BIC UPDATE THE 'ILC.'.
01312 0621 00 0 00235 STA LOC UPDATE THE CURRENT LOCATION.
*
* UPDATE THE COUNT FOR THIS BREAKPOINT, THEN CHECK
* TO SEE IF ITS CONDITION IS MET
*
01313 -0500 00 4 00004 CAL,4,4
01314 0361 00 0 14612 ACL,=1
01315 0602 00 0 06067 SLW,CURCNT
01316 -0500 00 4 00006 CAL,6,4
01317 0602 00 0 01455 SLW,VLOC
01320 0520 00 4 00002 ZET,2,4
01321 0020 00 0 01355 TRA,ISCOND
01322 YESB TYPA,2,(BREAK *)
01322 0074 00 4 04036 TSX TYPA,4 .002
01323 3 00000 0 14351 PAR ..011 .002
01324 OCTOUT,BRKISB
01324 0500 00 0 01461 CLA BRKISB .002
01325 0074 00 4 11324 TSX OCTOUT,4 .002
01326 TYPA,1,( AT *)QATWRD
01326 0074 00 4 04036 TSX TYPA,4 .002
01327 3 00000 0 14333 PAR QATWRD .002
01330 0520 00 0 04466 ZET,NMODE
01331 -0625 00 0 04460 STL,OFLAG
01332 0520 00 0 04465 ZET,SMODE
01333 0600 00 0 04464 STZ,SFLAG
01334 0500 00 0 06052 CLA,BIC
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 26
BREAK. ENTRY FROM USER'S BREAKPOINT.
01335 0074 00 4 04361 TSX,FLDPRT,4
01336 -0520 00 0 01354 NZT,BMBCHG
01337 0020 00 0 01344 TRA,BRK2
01340 TYPA 4,(, MEMORY BOUND IS *)
01340 0074 00 4 04036 TSX TYPA,4 .002
01341 3 00000 0 14353 PAR ..012 .002
01342 OCTOUT MEMBND TYPE THE NEW BOUND.
01342 0500 00 0 00116 CLA MEMBND .002
01343 0074 00 4 11324 TSX OCTOUT,4 .002
01344 BRK2 TYO =H00000. PUNCTUATE THE SENTENCE.
01344 0500 00 0 14630 CLA =H00000. .002
01345 0074 00 4 04174 TSX TYO,4 .002
01346 0074 00 4 04232 TSX CR,4 THEN RETURN.
*
* IF SPECIFIED, DUMP 'VERIFY' REGISTER, THEN
* STATUS OF BREAKPOINTS
*
01347 0520 00 0 01455 BRKCAL ZET,VLOC
01350 0074 00 4 01462 TSX,DUMPV,4
01351 0074 00 4 00764 TSX,DUMPB,4
01352 0600 00 0 01460 STZ,LASTBK
01353 0020 00 0 00046 TRA MAIN
*
01354 0 00000 0 00000 BMBCHG
*
* CHECK TO SEE IF USER'S CONDITION IS SATISFIED
*
01355 0441 00 4 00002 ISCOND LDI,2,4
01356 0774 00 2 01416 AXT,NOB,2
01357 -0054 00 001000 LFT,001000
01360 0774 00 2 01322 AXT,YESB,2
01361 0634 00 2 01415 SXA,CONDG,2
01362 0774 00 2 01416 AXT,NOB,2
01363 -0054 00 000100 LFT,000100
01364 0774 00 2 01322 AXT,YESB,2
01365 0634 00 2 01414 SXA,CONDE,2
01366 0774 00 2 01416 AXT,NOB,2
01367 -0054 00 000010 LFT,000010
01370 0774 00 2 01322 AXT,YESB,2
01371 0634 00 2 01413 SXA,CONDL,2
01372 -0500 00 4 00002 CAL,2,4
01373 0767 00 0 00022 ALS,18
01374 0622 00 0 01403 STD,BINCR
01375 0771 00 0 00017 ARS,15
01376 -0320 00 0 14652 ANA,=O7000000
01377 -0737 00 2 00000 PDC,,2
01400 -3 00000 2 01403 TXL,BINCR,2,0
01401 -0500 00 2 06055 CAL,BX1-1,2
01402 0737 00 2 00000 PAC,,2
01403 1 00000 2 01404 BINCR TXI,*+1,2,**
01404 0634 00 2 01405 SXA,*+1,2
01405 -0500 00 0 00000 CAL,**
01406 -0320 00 4 00005 ANA,5,4
01407 0602 00 0 01456 SLW,CHKIT
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 27
BREAK. ENTRY FROM USER'S BREAKPOINT.
01410 -0500 00 4 00003 CAL,3,4
01411 -0320 00 4 00005 ANA,5,4
01412 -0340 00 0 01456 LAS,CHKIT
01413 0020 00 0 00000 CONDL TRA,**
01414 0020 00 0 00000 CONDE TRA,**
01415 0020 00 0 00000 CONDG TRA,**
*
* THE CONDITION IS NOT MET, BUT CHECK IF A REGISTER
* IS TO BE VERIFIED
*
01416 0520 00 0 04167 NOB ZET,INRUPT
01417 0020 00 0 01347 TRA,BRKCAL
01420 -0500 00 4 00004 CAL,4,4
01421 0361 00 0 14612 ACL,=1
01422 0602 00 4 00004 SLW,4,4
01423 -0520 00 0 01455 NZT,VLOC
01424 0020 00 0 01453 TRA,STNCMF
01425 -0500 00 0 06052 CAL,BIC
01426 -0340 00 0 01460 LAS,LASTBK
01427 0020 00 0 01431 TRA,*+2
01430 0020 00 0 01452 TRA,SKPBCM
01431 TYPA,2,(MONITOR *)
01431 0074 00 4 04036 TSX TYPA,4 .002
01432 3 00000 0 14357 PAR ..013 .002
01433 OCTOUT,BRKISB
01433 0500 00 0 01461 CLA BRKISB .002
01434 0074 00 4 11324 TSX OCTOUT,4 .002
01435 TYPA,1,( AT *)QATWRD
01435 0074 00 4 04036 TSX TYPA,4 .002
01436 3 00000 0 14333 PAR QATWRD .002
01437 0520 00 0 04466 ZET,NMODE
01440 -0625 00 0 04460 STL,OFLAG
01441 0520 00 0 04465 ZET,SMODE
01442 0600 00 0 04464 STZ,SFLAG
01443 0500 00 0 06052 CLA,BIC
01444 0074 00 4 04361 TSX,FLDPRT,4
01445 TYO,=H00000.
01445 0500 00 0 14630 CLA =H00000. .002
01446 0074 00 4 04174 TSX TYO,4 .002
01447 0074 00 4 04232 TSX,CR,4
01450 -0500 00 0 06052 CAL,BIC
01451 0602 00 0 01460 SLW,LASTBK
01452 0074 00 4 01462 SKPBCM TSX,DUMPV,4
01453 -0625 00 0 01457 STNCMF STL,NOCOMF
01454 0020 00 0 01044 TRA,CONTIN
*
01455 0 00000 0 00000 VLOC
01456 0 00000 0 00000 CHKIT
01457 0 00000 0 00000 NOCOMF
01460 0 00000 0 00000 LASTBK
01461 0 00000 0 00000 BRKISB
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 28
DUMP USERS VERIFY LOCATIONS
*
01462 0634 00 4 01515 DUMPV SXA,DVSAV,4
01463 -0500 00 0 01455 CAL,VLOC
01464 0621 00 0 01712 STA,LOC1
01465 -0765 00 0 00022 LGR,18
01466 0621 00 0 01713 STA,LOC2
01467 0771 00 0 00017 ARS,15
01470 0100 00 0 01477 TZE,DVONE
01471 0737 00 4 00000 PAC,,4
01472 -0500 00 4 06055 CAL,BX1-1,4
01473 0737 00 4 00000 PAC,,4
01474 0754 00 4 00000 PXA,,4
01475 0400 00 0 01713 ADD,LOC2
01476 0621 00 0 01713 STA,LOC2
*
01477 -0754 00 0 00000 DVONE ZAC
01500 -0763 00 0 00003 LGL,3
01501 0100 00 0 01510 TZE,DVALL
01502 0737 00 4 00000 PAC,,4
01503 -0500 00 4 06055 CAL,BX1-1,4
01504 0737 00 4 00000 PAC,,4
01505 0754 00 4 00000 PXA,,4
01506 0400 00 0 01712 ADD,LOC1
01507 0621 00 0 01712 STA,LOC1
*
01510 0774 00 4 00001 DVALL AXT,1,4
01511 0634 00 4 01741 SXA,FWDLK,4
01512 0634 00 4 01735 SXA,BAXT,4
01513 0634 00 4 02013 SXA,NINC,4
01514 0074 00 4 01715 TSX,BLKLK,4
01515 0774 00 4 00000 DVSAV AXT,**,4
01516 0020 00 4 00001 TRA,1,4
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 29
COLON REQUEST.
*
* THIS ALLOWS EXECUTION OF A SINGLE FAP INSTRUCTION
* FROM WITHIN DEBUG.
*
01517 0500 00 0 02556 COLON CLA,BC
01520 TCR,ILF
01520 -0340 00 0 14633 LAS =O55 .003
01521 0020 00 0 01523 TRA *+2 .003
01522 0020 00 0 00236 TRA ILF .003
01523 0074 00 4 00117 TSX,SYMIN,4
01524 -0600 00 0 01527 STQ,COLOC
*
01525 0074 00 4 05757 TSX,RESMC,4
01526 -0625 00 0 04173 SETF,INUSR
01527 0 00000 0 00000 COLOC ***
01530 0600 00 0 04173 CLEAR,INUSR
01531 0634 00 4 06061 SXA,BXC,4
01532 0074 00 4 05671 TSX,SAVMC,4
*
01533 0020 00 0 00046 TRA,MAIN
*
*
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 30
G START EXECUTION AT SPECIFIED LOCATION.
01534 0500 00 0 02556 GO CLA BC GET BREAK CHARACTER.
01535 TCR ILF IF NO ARGUMENT, COMPLAIN.
01535 -0340 00 0 14633 LAS =O55 .003
01536 0020 00 0 01540 TRA *+2 .003
01537 0020 00 0 00236 TRA ILF .003
01540 0074 00 4 05201 TSX FLDEVL,4 GO EVALUATE THE LOCATION.
01541 -0600 00 0 00235 STQ LOC SAVE CURRENT LOCATION.
01542 -0500 00 0 00235 CAL LOC PREPARE TO 'GO'.
01543 -0340 00 0 00116 LAS MEMBND IS LOC ABOVE MEM. BOUND.Q
01544 0761 00 0 00000 NOP
01545 0020 00 0 02515 TRA LLM YES, COMPLAIN.
01546 0520 00 0 00620 ZET NOGO TEST FOR ERROR IN THIS INPUT LINE.
01547 0020 00 0 01556 TRA DONTG ERROR, SO IGNORE G REQUEST.
01550 TYPE 3,(PROGRAM STARTED.*)
01550 0074 00 4 04034 TSX TYPE,4 .002
01551 3 00000 0 14361 PAR ..014 .002
01552 0074 00 4 00751 TSX,BRKSET,4
01553 0074 00 4 05757 TSX RESMC,4 RESTORE THE MACHINE CONDITIONS.
01554 -0625 00 0 04173 SETF INUSR INDICATE THAT USER IS RUNNING.
01555 0020 60 0 00235 TRA* LOC
*
01556 DONTG TYPE 2,(G IGNORED.*)
01556 0074 00 4 04034 TSX TYPE,4 .002
01557 3 00000 0 14364 PAR ..015 .002
01560 0020 00 0 00046 TRA MAIN
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 31
Q END DEBUGGING SESSION.
01561 DISMIS TYPE 2,(GOOD BYE.*)
01561 0074 00 4 04034 TSX TYPE,4 .002
01562 3 00000 0 14366 PAR ..016 .002
01563 0074 00 4 05757 TSX,RESMC,4
01564 TSS CHNCOM RETURN TO CTSS.
01564 0074 00 4 14370 TSX CHNCOM,4 .002
01565 +000000000001 DEC 1 LEAVE THIS CORE IMAGE.
01566 0074 00 4 05671 TSX,SAVMC,4
01567 0020 00 0 00017 TRA QQBACK GO ANNOUNCE RESTART.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 32
INT. RETURN FROM USER'S INTERRUPT.
01570 -0520 00 0 04173 INT NZT INUSR WAS INTERRUPT FROM USER.Q
01571 0020 00 0 04142 TRA NOINT NO, IGNORE IT.
01572 0600 00 0 04173 CLEAR INUSR YES, RESET THE FLAG.
01573 0634 00 4 06061 SXA BXC,4 SAVE XR 4.
01574 0074 00 4 05671 TSX SAVMC,4 SAVE THE REST OF THE MACHINE CONDX.
01575 0074 00 4 00740 TSX,BRKSAV,4
01576 -0625 00 0 03327 SETF CRFLG MAKE TYI READ A NEW LINE.
01577 TSS GETMEM GET THE NEW MEMORY BOUND.
01577 0074 00 4 14311 TSX GETMEM,4 .002
01600 -0340 00 0 14646 LAS,=O77777
01601 0020 00 0 01602 TRA,*+1
01602 0400 00 0 14612 ADD,=1
01603 0602 00 0 06051 SLW,RPTMEM
01604 TEQ INT2,MEMBND SKIP PRINTING IF THE SAME AS BEFORE.
01604 -0340 00 0 00116 LAS MEMBND .002
01605 0020 00 0 01607 TRA *+2 .002
01606 0020 00 0 01617 TRA INT2 .002
01607 0601 00 0 00116 STO MEMBND UPDATE THE BOUND.
01610 TYPA 4,( MEMORY BOUND IS *),BNDC
01610 0074 00 4 04036 TSX TYPA,4 .002
01611 3 00000 0 14312 PAR BNDC .002
01612 OCTOUT MEMBND TYPE THE BOUND.
01612 0500 00 0 00116 CLA MEMBND .002
01613 0074 00 4 11324 TSX OCTOUT,4 .002
01614 TYO =H00000. PUNCTUATE THE SENTENCE.
01614 0500 00 0 14630 CLA =H00000. .002
01615 0074 00 4 04174 TSX TYO,4 .002
01616 0074 00 4 04232 TSX CR,4 RETURN.
01617 INT2 TSS GETBRK GET THE USER'S STOP.
01617 0074 00 4 14371 TSX GETBRK,4 .002
01620 0621 00 0 01132 STA CONLOC PUT IN TRA ..
01621 0621 00 0 00235 STA LOC SET CURRENT LOCATION TO BREAK LOC.
01622 0621 00 0 06052 STA BIC SET UP USER'S ILC.
01623 0074 00 4 02015 TSX,DUMP,4
01624 0020 00 0 02552 TRA OOPS READ THE NEXT REQUEST.
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 33
FIND SUBROUTINE TRITE
*
*
01625 0020 00 0 01626 XLOOK TRA,*+1
01626 -0500 60 0 00000 CAL*,$MOVIE)
01627 0100 00 0 02667 TZE,NOMOV
01630 0771 00 0 00022 ARS,18
01631 0400 60 0 00000 ADD*,$MOVIE)
01632 -0734 00 2 00000 PDX,,2
01633 0621 00 0 01635 STA,XFINDT
01634 -0500 00 0 14757 CAL,=HTRITE
01635 -0340 00 2 00000 XFINDT LAS,**,2
01636 0020 00 0 01640 TRA,*+2
01637 0020 00 0 01644 TRA,YESRT
01640 2 00002 2 01635 TIX,XFINDT,2,2
01641 TYPE,5,(SUBROUTINE 'TRITE' NOT FOUND.*)
01641 0074 00 4 04034 TSX TYPE,4 .002
01642 3 00000 0 14372 PAR ..017 .002
01643 0020 00 0 02552 TRA,OOPS
*
01644 1 77777 2 01645 YESRT TXI,*+1,2,-1
01645 -0500 60 0 01635 CAL*,XFINDT
01646 0621 00 0 11447 STA,XXTSX
01647 -0625 00 0 01625 STL,XLOOK
*
01650 -0625 00 0 02555 STL,NOSQP
01651 0020 00 0 01661 TRA,LOOKX
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 34
LOOK. PRINT CONTENTS OF SPECIFIED LOCATIONS.
01652 -0500 00 0 00235 NEXT CAL LOC
01653 0361 00 0 14612 ACL,=1
01654 0602 00 0 00235 SLW LOC
01655 -0500 00 0 00235 RLOOK CAL LOC PRINT LOCATION.
01656 0074 00 4 02015 TSX DUMP,4 PRINT IT IN THE CURRENT MODE.
01657 0020 00 0 00046 TRA MAIN AND GO BACK.
*
01660 0600 00 0 02555 LOOK STZ,NOSQP
01661 -0500 00 1 00374 LOOKX CAL CEND+1,1 GET DISPATCH TABLE ENTRY.
01662 0621 00 0 01714 STA CTSX SAVE IT IN THE SUBROUTINE CALL.
01663 0500 00 0 02556 CLA BC GET THE BREAK CHARACTER.
01664 TCR MAIN IF CARR. RET., EXIT.
01664 -0340 00 0 14633 LAS =O55 .003
01665 0020 00 0 01667 TRA *+2 .003
01666 0020 00 0 00046 TRA MAIN .003
01667 0074 00 4 05201 TSX FLDEVL,4 EVALUATE THE FIRST FIELD.
01670 -0600 00 0 01712 MLOOK STQ LOC1 SAVE VALUE OF FIRST FIELD.
01671 TCR GLOOK IF NOT THERE, SKIP EVALUATING SECOND FIELD.
01671 -0340 00 0 14633 LAS =O55 .003
01672 0020 00 0 01674 TRA *+2 .003
01673 0020 00 0 01675 TRA GLOOK .003
01674 0074 00 4 05201 TSX FLDEVL,4 IF NOT, EVALUATE IT.
01675 -0600 00 0 01713 GLOOK STQ LOC2 SAVE VALUE OF THE SECOND FIELD.
01676 0774 00 4 00001 AXT,1,LINK
01677 TCR,RESTIT
01677 -0340 00 0 14633 LAS =O55 .003
01700 0020 00 0 01702 TRA *+2 .003
01701 0020 00 0 01705 TRA RESTIT .003
01702 0074 00 4 02672 TSX,OCTIN,LINK
01703 0131 00 0 00000 XCA
01704 0734 00 4 00000 PAX,,LINK
01705 0634 00 4 01741 RESTIT SXA,FWDLK,LINK
01706 0634 00 4 01735 SXA,BAXT,LINK
01707 0634 00 4 02013 SXA,NINC,LINK
01710 0074 00 4 01715 TSX BLKLK,4 GO LOOK AT THE BLOCK.
01711 0020 00 0 00046 TRA MAIN GO GET THE NEXT REQUEST.
*
01712 0 00000 0 00000 LOC1 BEGINNING OF THE BLOCK.
01713 0 00000 0 00000 LOC2 END OF THE BLOCK.
01714 0074 00 4 05050 CTSX TSX ..+SYMPRT,4 OUTPUT MODE SWITCH.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 35
BLKLK. PRINT CONTENTS OF BLOCK OF STORAGE.
01715 0634 00 1 02006 BLKLK SXA BLKXA,1 SAVE THE XR'S.
01716 0634 00 2 02007 SXA BLKXB,2
01717 0634 00 4 02010 SXA BLKXC,4
01720 0500 00 0 01712 CLA LOC1 GET THE FIRST LOCATION.
01721 0340 00 0 00116 CAS MEMBND CHECK IF IT IS LEGAL.
01722 0500 00 0 00116 CLA,MEMBND
01723 0020 00 0 01724 TRA *+1 LOC1 .E. BOUND, COMPLAIN.
01724 0601 00 0 01712 STO,LOC1
01725 0500 00 0 01713 CLA LOC2 LOC 1 PASSES, CHECK THE OTHER LIMIT.
01726 0340 00 0 00116 CAS MEMBND ..
01727 0500 00 0 00116 CLA,MEMBND
01730 0020 00 0 01731 TRA *+1 OOPS, THIS ONE FAILS.
01731 0601 00 0 01713 STO,LOC2
01732 -0340 00 0 01712 LAS LOC1 COMPARE IT W/ THE BEGINNING.
01733 0761 00 0 00000 NOP END .G. BEGINNING,
01734 0020 00 0 01741 TRA FWDLK END .E. BEGINNING, DIRECTION IS FORWARDS.
01735 0774 00 4 00001 BAXT AXT 1,4 END .L. BEGINNING, DIRECTION IS BACKWARDS.
01736 -0500 00 0 01761 CAL,BLKXTR
01737 0560 00 0 02014 LDQ,BLKTRA
01740 0020 00 0 01744 TRA GOLK GO TO IT.
*
01741 -0774 00 4 00001 FWDLK AXC 1,4 GET INCREMENT FOR FORWARDS.
01742 -0500 00 0 02014 CAL,BLKTRA
01743 0560 00 0 01761 LDQ,BLKXTR
01744 0602 00 0 01762 GOLK SLW,BLKXTR+1
01745 -0600 00 0 01760 STQ,BLKXTR-1
01746 -0634 00 4 01765 SXD BMLK,4 SET UP THE TXI.
01747 -0636 00 4 01776 SCD BNLK,4
01750 0535 00 1 01712 LAC LOC1,1 GET INITIAL LOCATION.
01751 0774 00 2 00000 NORPT AXT 0,2 RESET REPEAT COUNT.
01752 -0500 00 1 00000 CAL ,1 GET THIS WORD.
01753 0602 00 0 02012 SLW PREV IT IS THE NEXT PREVIOUS WORD.
01754 0756 00 1 00000 PCA ,1 PUT THIS LOCATION IN THE AC.
01755 0074 00 4 02015 TSX DUMP,4 GO PRINT THIS LOCATION, ITS CONTENTS.
01756 0756 00 1 00000 LKCMP PCA ,1 GET THIS LOCATION.
01757 -0340 00 0 01713 LAS,LOC2
01760 0020 00 0 01777 TRA,XIT
01761 0020 00 0 01777 BLKXTR TRA,XIT
01762 0020 00 0 01763 TRA,*+1
01763 0520 00 0 04167 BLKCKI ZET INRUPT WAS THERE AN INTERRUPT.Q
01764 0020 00 0 01777 TRA XIT YES, EXIT.
01765 1 00000 1 01766 BMLK TXI *+1,1,.. BUMP POINTER TO THE NEXT LOCATION.
01766 -0500 00 1 00000 CAL ,1 GET THE NEXT WORD.
01767 -0340 00 0 02012 LAS PREV IS IT THE SAME AS THE LAST WORD.Q
01770 0020 00 0 01772 TRA *+2 NO, PROCEED.
01771 1 00001 2 01756 TXI LKCMP,2,1 YES, COUNT REPEAT AND GET NEXT WORD.
01772 -3 00000 2 01751 TXL NORPT,2,0 DIFFERENT, WERE THERE REPEATS.Q
01773 -3 00001 2 01776 TXL BNLK,2,1 YES, BUT DON'T COMMENT IF TWO.
01774 TYPE 2,(REPEAT.*),RPTC YES, SAY SO.
01774 0074 00 4 04034 TSX TYPE,4 .002
01775 3 00000 0 14377 PAR RPTC .002
01776 1 00000 1 01751 BNLK TXI NORPT,1,.. GO PRINT THE LAST WORD OF THE GROUP.
*
01777 0636 00 1 00235 XIT SCA LOC,1 UPDATE CURRENT LOCATION.
02000 -3 00000 2 02006 TXL BLKXA,2,0 END OF BLOCK, ARE WE IN A REPEAT.Q
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 36
BLKLK. PRINT CONTENTS OF BLOCK OF STORAGE.
02001 -3 00001 2 02004 TXL XPCA,2,1 YES, BUT DON'T TYPE REPEAT IF ONLY 1.
02002 TYPE 2,(REPEAT.*),RPTC YES, SAY SO.
02002 0074 00 4 04034 TSX TYPE,4 .002
02003 3 00000 0 14377 PAR RPTC .002
02004 0756 00 1 00000 XPCA PCA ,1 TYPE THE LAST WORD.
02005 0074 00 4 02015 TSX DUMP,4
02006 0774 00 1 00000 BLKXA AXT ..,1 RESTORE THE XR'S.
02007 0774 00 2 00000 BLKXB AXT ..,2
02010 0774 00 4 00000 BLKXC AXT ..,4
02011 0020 00 4 00001 TRA 1,4 EXIT.
*
02012 0 00000 0 00000 PREV THE 'PREVIOUS' WORD.
02013 0 00000 0 00001 NINC PZE,1
*
02014 0020 00 0 01763 BLKTRA TRA,BLKCKI
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 37
DUMP. TYPE CONTENTS OF SINGLE LOCATION.
02015 0634 00 4 02041 DUMP SXA DMPX,4 SAVE RETURN.
02016 0634 00 1 02042 SXA,DMPX+1,1
02017 -0320 00 0 14646 ANA =O77777 GET RID OF GARBAGE.
02020 0340 00 0 00116 CAS MEMBND CHECK IF ABOVE MEMORY BOUND.
02021 0761 00 0 00000 NOP LOC .G. BOUND,
02022 0020 00 0 02515 TRA LLM LOC .E. BOUND, COMPLAIN.
*
* PICK UP DEPTH OF INDIRECTION
*
02023 0534 00 1 02107 LXA,DDEEP,1
02024 0602 00 0 02106 DRETN SLW DMPL SAVE POINTER TO LOCATION.
02025 0520 00 0 04466 ZET,NMODE
02026 -0625 00 0 04460 STL,OFLAG
02027 0520 00 0 04465 ZET,SMODE
02030 0600 00 0 04464 STZ,SFLAG
02031 0074 00 4 04361 TSX FLDPRT,4 PRINT THE LOCATION FIELD.
02032 TYO =H00000/ TYPE THE DELIMITERS.
02032 0500 00 0 14635 CLA =H00000/ .002
02033 0074 00 4 04174 TSX TYO,4 .002
02034 0074 00 4 04234 TSX TAB,4 TABULATE.
02035 0500 60 0 02106 CLA* DMPL GET THE WORD TO BE DUMPED.
02036 0522 00 0 01714 XEC CTSX CONVERT IT AND TYPE IT.
02037 0074 00 4 04232 TSX CR,4 CARRIAGE RETURN.
*
* CHECK FOR INDIRECTION
*
02040 3 00000 1 02044 TXH,DREPT,1,0
02041 0774 00 4 00000 DMPX AXT ..,4 RESTORE RETURN.
02042 0774 00 1 00000 AXT,**,1
02043 0020 00 4 00001 TRA 1,4 EXIT.
*
* PICK UP NEXT LEVEL OF INDIRECTION
*
02044 0520 00 0 04167 DREPT ZET,INRUPT
02045 0020 00 0 02041 TRA,DMPX
02046 0074 00 4 04240 TSX,BL,4
02047 TYO,=H00000*
02047 0500 00 0 14632 CLA =H00000* .002
02050 0074 00 4 04174 TSX TYO,4 .002
02051 -0500 60 0 02106 CAL*,DMPL
02052 0520 00 0 02110 ZET,DDECF
02053 0020 00 0 02101 TRA,DPICD
02054 0767 00 0 00022 ALS,18
02055 0622 00 0 02064 STD,DGOON
02056 0771 00 0 00017 ARS,15
02057 -0320 00 0 14652 ANA,=O7000000
02060 -0737 00 4 00000 PDC,,4
02061 -3 00000 4 02064 TXL,DGOON,4,0
02062 -0500 00 4 06055 CAL,BX1-1,4
02063 0737 00 4 00000 PAC,,4
02064 1 00000 4 02065 DGOON TXI,*+1,4,**
02065 0754 00 4 00000 PXA,,4
*
* CHECK FOR MEMORY BOUND VIOLATION
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 38
DUMP. TYPE CONTENTS OF SINGLE LOCATION.
02066 -0320 00 0 14646 DPRET ANA,=O77777
02067 -0340 00 0 00116 LAS,MEMBND
02070 0020 00 0 02076 TRA,DILF
02071 0020 00 0 02076 TRA,DILF
*
* IF THIS LOCATION IS SAME AS LAST, FORGET IT.
*
02072 -0340 00 0 02106 LAS,DMPL
02073 0020 00 0 02075 TRA,*+2
02074 0020 00 0 02103 TRA,DTREP
02075 1 77777 1 02024 DGOBK TXI,DRETN,1,-1
*
* PRINT SOMETHING SPECIAL IF ABOVE MEMORY BOUND
*
02076 DILF BCDOUT,=O545461575755
02076 0500 00 0 14727 CLA =O545461575755 .002
02077 0074 00 4 04311 TSX BCDOUT,4 .002
02100 0020 00 0 02041 TRA,DMPX
*
* INDIRECTION IS FROM DECREMENT
*
02101 0771 00 0 00022 DPICD ARS,18
02102 0020 00 0 02066 TRA,DPRET
*
* SPECIAL MESSAGE IF IN LOOP
*
02103 DTREP TYPE,2,(REPEAT.*),RPTC
02103 0074 00 4 04034 TSX TYPE,4 .002
02104 3 00000 0 14377 PAR RPTC .002
02105 0020 00 0 02041 TRA,DMPX
*
*
02106 777777777777 DMPL VFD,O36//
02107 0 00000 0 00000 DDEEP
02110 0 00000 0 00000 DDECF
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 39
SET INDIRECTION MODE FOR '*' REQUEST
*
*
02111 0500 00 0 02556 SETI CLA,BC
02112 TCR,SKILL
02112 -0340 00 0 14633 LAS =O55 .003
02113 0020 00 0 02115 TRA *+2 .003
02114 0020 00 0 02124 TRA SKILL .003
02115 0074 00 4 02675 TSX,INTIN,4
02116 0131 00 0 00000 XCA
02117 0602 00 0 02107 SLW,DDEEP
02120 0600 00 0 02110 STZ,DDECF
02121 0120 00 0 02123 TPL,*+2
02122 -0625 00 0 02110 STL,DDECF
02123 0020 00 0 00046 TRA,MAIN
*
*
02124 0600 00 0 02110 SKILL STZ,DDECF
02125 0600 00 0 02107 STZ,DDEEP
02126 0020 00 0 00046 TRA,MAIN
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 40
SET UP RELOCATION TABLE
*
* THIS SETS UP EACH LOADED SUBROUTINE AS AN ENTRY IN
* THE SYMBOL TABLE. IT WILL NOT DELETE SYMBOLS OF THE
* SAME NAME AS THE ENTRY. SEE 'PUTIN' FOR DETAILS.
*
*
02127 0634 00 4 02161 DORTAB SXA,RSAVE4,4
02130 -0500 60 0 00000 CAL*,$MOVIE)
02131 0100 00 0 02667 TZE,NOMOV
02132 0771 00 0 00022 ARS,18
02133 0361 60 0 00000 ACL*,$MOVIE)
02134 0621 00 0 02142 STA,MOVET
02135 -0734 00 4 00000 PDX,,4
*
02136 -2 00003 4 02667 TNX,NOMOV,4,3
02137 -0500 60 0 02142 CAL*,MOVET
02140 0621 00 0 02176 STA,MEMBD1
02141 -2 00001 4 02161 TNX,RSAVE4,4,1
*
02142 -0500 00 4 00000 MOVET CAL,**,4
02143 -0100 00 0 02145 TNZ,*+2
02144 -0500 00 0 14773 CAL,=H(MAIN)
02145 -0130 00 0 00000 XCL
02146 -2 00002 4 02161 NONOT TNX,RSAVE4,4,2
02147 -0500 60 0 02142 CAL*,MOVET
02150 -0320 00 0 14650 ANA,=O000000777777
02151 -0100 00 0 02146 TNZ,NONOT
02152 -2 00001 4 02161 TNX,RSAVE4,4,1
02153 -0500 60 0 02142 CAL*,MOVET
02154 -0130 00 0 00000 XCL
02155 0634 00 4 02157 SXA,SAVE4,4
02156 0074 00 4 05540 TSX,PUTIN,4
02157 0774 00 4 00000 SAVE4 AXT,**,4
02160 2 00001 4 02142 TIX,MOVET,4,1
02161 0774 00 4 00000 RSAVE4 AXT,**,4
02162 0020 00 4 00001 TRA,1,4
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 41
R
*
* SET FLAGS FOR PROPER PRINTING OF 'R' MODE
*
02163 0020 00 0 02166 R TRA,*+3
02164 0074 00 4 02127 GODEFN TSX,DORTAB,4
02165 -0625 00 0 02163 STL,R
02166 0600 00 0 04461 STZ,KFLAG
02167 0600 00 0 04460 STZ,OFLAG
02170 0600 00 0 04463 STZ,POFLAG
02171 -0625 00 0 04462 STL,RFLAG
02172 -0625 00 0 04464 STL,SFLAG
02173 0600 00 0 04466 STZ,NMODE
02174 -0625 00 0 04465 STL,SMODE
02175 0020 00 0 01660 TRA,LOOK
*
*
02176 0 00000 0 00000 MEMBD1
02177 0 00000 0 02164 QGODEN PZE,GODEFN
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 42
V
*
* SET UP TO VERIFY A REGISTER, OR TO TURN OFF THIS FEATURE
*
*
02200 0500 00 0 02556 V CLA,BC
02201 0602 00 0 02316 SLW,VBRKCR
02202 0600 00 0 02315 STZ,STALLV
02203 TCR,VNAINT
02203 -0340 00 0 14633 LAS =O55 .003
02204 0020 00 0 02206 TRA *+2 .003
02205 0020 00 0 02302 TRA VNAINT .003
02206 0074 00 4 05136 TSX,BCSCH,4
02207 0602 00 0 02316 SLW,VBRKCR
02210 -0120 00 0 02275 TMI,VNACHK
02211 -0130 00 0 00000 XCL
02212 -0320 00 0 14642 ANA,=O77
02213 -0130 00 0 00000 XCL
02214 0200 00 0 00650 MPY,NPBRKW
02215 -0130 00 0 00000 XCL
02216 0734 00 2 00000 PAX,,2
02217 -3 00000 2 02311 TXL,VBADN,2,0
02220 3 00067 2 02311 TXH,VBADN,2,NPBRKS*NBRKS
*
02221 -0500 00 0 02316 VCHECK CAL,VBRKCR
02222 TCR,VKILIT
02222 -0340 00 0 14633 LAS =O55 .003
02223 0020 00 0 02225 TRA *+2 .003
02224 0020 00 0 02270 TRA VKILIT .003
02225 -0625 00 0 05302 STL,CMAFLG
02226 0074 00 4 05201 TSX,FLDEVL,4
02227 -0600 00 0 02314 STQ,VBUILD
02230 TCR,ALSOV
02230 -0340 00 0 14633 LAS =O55 .003
02231 0020 00 0 02233 TRA *+2 .003
02232 0020 00 0 02305 TRA ALSOV .003
02233 TNE,VNEXTF(=H00000,)
02233 -0340 00 0 14641 LAS =H00000, .003
02234 0020 00 0 02236 TRA *+2 .003
02235 0020 00 0 02237 TRA *+2 .003
02236 0020 00 0 02247 TRA VNEXTF .002
02237 0074 00 4 05201 TSX,FLDEVL,4
02240 -0130 00 0 00000 XCL
02241 0767 00 0 00017 ALS,15
02242 0625 00 0 02314 STT,VBUILD
02243 -0130 00 0 00000 XCL
02244 TCR,ALSOV
02244 -0340 00 0 14633 LAS =O55 .003
02245 0020 00 0 02247 TRA *+2 .003
02246 0020 00 0 02305 TRA ALSOV .003
*
02247 -0625 00 0 05302 VNEXTF STL,CMAFLG
02250 0074 00 4 05201 TSX,FLDEVL,4
02251 -0773 00 0 00022 RQL,18
02252 -0620 00 0 02314 SLQ,VBUILD
02253 TCR,STOVGO
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 43
V
02253 -0340 00 0 14633 LAS =O55 .003
02254 0020 00 0 02256 TRA *+2 .003
02255 0020 00 0 02266 TRA STOVGO .003
02256 TNE,STOVGO(=H00000,)
02256 -0340 00 0 14641 LAS =H00000, .003
02257 0020 00 0 02261 TRA *+2 .003
02260 0020 00 0 02262 TRA *+2 .003
02261 0020 00 0 02266 TRA STOVGO .002
02262 0074 00 4 05201 TSX,FLDEVL,4
02263 -0130 00 0 00000 XCL
02264 0767 00 0 00041 ALS,33
02265 0630 00 0 02314 STP,VBUILD
*
02266 -0500 00 0 02314 STOVGO CAL,VBUILD
02267 0020 00 0 02271 TRA,*+2
02270 -0754 00 0 00000 VKILIT ZAC
02271 0602 00 2 00752 SLW,BRKTAB+10,2
02272 0520 00 0 02315 ZET,STALLV
02273 2 00013 2 02271 TIX,*-2,2,NPBRKS
02274 0020 00 0 00046 TRA,MAIN
*
*
02275 -0130 00 0 00000 VNACHK XCL
02276 -0340 00 0 14745 LAS,=H *
02277 0020 00 0 02311 TRA,VBADN
02300 0020 00 0 02302 TRA,*+2
02301 0020 00 0 02311 TRA,VBADN
02302 -0625 00 0 02315 VNAINT STL,STALLV
02303 0774 00 2 00067 AXT,NBRKS*NPBRKS,2
02304 0020 00 0 02221 TRA,VCHECK
*
*
02305 0560 00 0 02314 ALSOV LDQ,VBUILD
02306 -0773 00 0 00022 RQL,18
02307 -0620 00 0 02314 SLQ,VBUILD
02310 0020 00 0 02266 TRA,STOVGO
*
02311 VBADN TYPE,4,(ILLEGAL VERIFY REQUEST.*)
02311 0074 00 4 04034 TSX TYPE,4 .002
02312 3 00000 0 14401 PAR ..018 .002
02313 0020 00 0 02552 TRA,OOPS
*
*
02314 0 00000 0 00000 VBUILD
02315 0 00000 0 00000 STALLV
02316 0 00000 0 00000 VBRKCR
*
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 44
L FIND LOAD ADDRESS OF SUBPROGRAM.
02317 0500 00 0 02556 YANK CLA BC GET BREAK CHARACTER.
02320 TCR,ILF
02320 -0340 00 0 14633 LAS =O55 .003
02321 0020 00 0 02323 TRA *+2 .003
02322 0020 00 0 00236 TRA ILF .003
02323 0074 00 4 05136 TSX,BCSCH,4
02324 -0600 00 0 02556 STQ,BC
02325 -0130 00 0 00000 XCL MOVE IT TO AC.
02326 0074 00 4 05303 TSX LADJ,4 LEFT ADJUST IT.
02327 0074 00 4 02565 TSX ORGFND,4 FIND THE ORIGIN OF THE SUBPROGRAM.
02330 0602 00 0 02560 SLW PGMORG
02331 0602 00 0 00235 SLW LOC SET CURRENT LOC. TO ORIGIN.
02332 0020 00 0 00046 TRA MAIN
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 45
T READ OR KILL SYMBOL TABLE.
02333 0500 00 0 02556 TABLE CLA BC
02334 TCR KILL NO ARG., KILL THE TABLE.
02334 -0340 00 0 14633 LAS =O55 .003
02335 0020 00 0 02337 TRA *+2 .003
02336 0020 00 0 02354 TRA KILL .003
02337 TNB ILF MAKE SURE WE HAVE THE PROPER FORMAT.
02337 -0340 00 0 14634 LAS =H00000 .004
02340 0020 00 0 02342 TRA *+2 .004
02341 0020 00 0 02343 TRA *+2 .004
02342 0020 00 0 00236 TRA ILF .003
02343 0074 00 4 05136 TSX BCSCH,4 ASSEMBLE THE SYMBOL.
02344 -0130 00 0 00000 XCL MOVE TO AC.
02345 0602 00 0 02411 SLW NAME
02346 0560 00 0 02560 LDQ PGMORG PICK UP RELOCATION CONSTANT.
02347 0074 00 4 05325 TSX TABRD,4 GO READ AND RELOCATE THE SYMBOLS.
02350 -0500 00 0 14633 CAL,=O55
02351 0602 00 0 02556 SLW,BC
02352 0774 00 1 00020 AXT,CEND-SLOC,1
02353 0020 00 0 04503 TRA,S
*
02354 0074 00 4 05443 KILL TSX KILTAB,4 CLEAR THE SYMBOL TABLE.
02355 0774 00 1 00020 AXT,CEND-SLOC,1
02356 0020 00 0 04503 TRA,S
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 46
W FIND ORIGIN AND RELOCATE SYMBOL TABLE.
02357 0500 00 0 02556 AUTO CLA BC GET BREAK CHARACTER.
02360 TCR,ILF
02360 -0340 00 0 14633 LAS =O55 .003
02361 0020 00 0 02363 TRA *+2 .003
02362 0020 00 0 00236 TRA ILF .003
02363 0074 00 4 05136 TSX BCSCH,4 GET THE SYMBOL.
02364 0602 00 0 02556 SLW BC
02365 -0130 00 0 00000 XCL
02366 0602 00 0 02411 SLW NAME
02367 0074 00 4 05303 TSX LADJ,4 ADJUST IT TO THE LEFT.
02370 0074 00 4 02565 TSX ORGFND,4 FIND THE ORIGIN OF THE PROGRAM.
02371 0602 00 0 02560 SLW PGMORG SAVE RELOCATION CONSTANT FOR LATER.
02372 0602 00 0 00235 SLW LOC SET CURRENT LOC. TO ORIGIN.
02373 0560 00 0 02411 LDQ NAME GET NAME OF THE FILE.
02374 0500 00 0 02556 CLA BC
02375 TCR WORK
02375 -0340 00 0 14633 LAS =O55 .003
02376 0020 00 0 02400 TRA *+2 .003
02377 0020 00 0 02401 TRA WORK .003
02400 0074 00 4 05136 TSX BCSCH,4 ASSEMBLE THE NAME.
02401 -0600 00 0 02411 WORK STQ NAME
02402 -0130 00 0 00000 XCL MOVE FILE NAME TO AC.
02403 0560 00 0 02560 LDQ PGMORG NOW IS THE TIME.. GET RELOCATION CON.
02404 0074 00 4 05325 TSX TABRD,4 READ AND RELOCATE THE SYMBOL TABLE.
*
* PUT USER INTO 'S' MODE
*
02405 -0500 00 0 14633 CAL,=O55
02406 0602 00 0 02556 SLW,BC
02407 0774 00 1 00020 AXT,CEND-SLOC,1
02410 0020 00 0 04503 TRA,S
*
02411 0 00000 0 00000 NAME FILE OR ENTRY NAME.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 47
S MANIPULATIONS OF SIGNED AC.
02412 0500 00 0 02556 SAC CLA BC GET THE BREAK CHARACTER.
02413 TCR SACLK THE REQUEST IS 'LOOK'.
02413 -0340 00 0 14633 LAS =O55 .003
02414 0020 00 0 02416 TRA *+2 .003
02415 0020 00 0 02425 TRA SACLK .003
02416 0074 00 4 00117 SACIN TSX SYMIN,4 OTHERWISE, GET THE WORD.
02417 0131 00 0 00000 XCA MOVE WORD TO SIGNED AC.
02420 0602 00 0 06053 SLW BAC SAVE THE ENTIRE AC.
02421 0601 00 0 06054 STO,BSAC
02422 0771 00 0 00002 ARS 2 ..
02423 0601 00 0 06070 STO BQS ..
02424 0020 00 0 00046 TRA MAIN THEN QUIT.
*
02425 SACLK BCDOUT =O532161725757 TYPE THE LOCATION =H$A/(TAB).
02425 0500 00 0 14723 CLA =O532161725757 .002
02426 0074 00 4 04311 TSX BCDOUT,4 .002
02427 0500 00 0 06070 CLA BQS RESTORE THE SIGNED AC.
02430 0767 00 0 00002 ALS 2 ..
02431 -0501 00 0 06053 ORA BAC ..
02432 0131 00 0 00000 XCA DELETE P AND Q BITS.
02433 0131 00 0 00000 XCA ..
02434 0774 00 1 00000 AXT,0,1
02435 0522 00 0 01714 XEC CTSX PRINT THE SIGNED AC.
02436 0520 00 0 02555 ZET,NOSQP
02437 0020 00 0 02454 TRA,SKPSQP
02440 BCDOUT =O725060136057 =H(TAB)Q =
02440 0500 00 0 14763 CLA =O725060136057 .002
02441 0074 00 4 04311 TSX BCDOUT,4 .002
02442 -0500 00 0 06070 CAL BQS GET Q AND P BITS.
02443 0771 00 0 00042 ARS 34 SHIFT Q TO POSITION 35.
02444 -0320 00 0 14612 ANA =1 MASK IT OFF.
02445 0074 00 4 04174 TSX TYO,4 TYPE IT.
02446 BCDOUT (=H, P = )
02446 0500 00 0 14766 CLA =H, P = .002
02447 0074 00 4 04311 TSX BCDOUT,4 .002
02450 -0500 00 0 06070 CAL BQS GET Q AND P BITS.
02451 0771 00 0 00041 ARS 33 SHIFT P TO POSITION 35.
02452 -0320 00 0 14612 ANA =1 MASK AWAY EVERYTHING ELSE.
02453 0074 00 4 04174 TSX TYO,4 TYPE IT.
02454 0074 00 4 04232 SKPSQP TSX CR,4 RETURN THE CARRIAGE.
02455 0020 00 0 00046 TRA MAIN GET THE NEXT REQUEST.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 48
K MANIPULATIONS OF LOGICAL AC.
02456 0500 00 0 02556 LAC CLA BC GET THE BREAK CHARACTER.
02457 TCR LACLK LOOK AT LOGICAL AC.
02457 -0340 00 0 14633 LAS =O55 .003
02460 0020 00 0 02462 TRA *+2 .003
02461 0020 00 0 02471 TRA LACLK .003
02462 0074 00 4 00117 LACIN TSX SYMIN,4 OTHERWISE GET THE WORD IN LOG. AC.
02463 -0130 00 0 00000 XCL MOVE INPUT TO LOGICAL AC.
02464 0602 00 0 06053 SLW BAC SAVE THE ENTIRE AC.
02465 0601 00 0 06054 STO,BSAC
02466 0771 00 0 00002 ARS 2 ..
02467 0601 00 0 06070 STO BQS ..
02470 0020 00 0 00046 TRA MAIN THEN GET THE NEXT REQUEST.
*
02471 LACLK BCDOUT =O534261725757 TYPE THE LOCATION =H$K/(TAB).
02471 0500 00 0 14724 CLA =O534261725757 .002
02472 0074 00 4 04311 TSX BCDOUT,4 .002
02473 0500 00 0 06053 CLA BAC GET LOGICAL AC.
02474 0774 00 1 00000 AXT,0,1
02475 0522 00 0 01714 XEC CTSX PRINT LOGICAL AC BITS P, 1-35.
02476 0520 00 0 02555 ZET,NOSQP
02477 0020 00 0 02454 TRA,SKPSQP
02500 BCDOUT =O726260136057 =H(TAB)S =
02500 0500 00 0 14764 CLA =O726260136057 .002
02501 0074 00 4 04311 TSX BCDOUT,4 .002
02502 -0500 00 0 06070 CAL BQS GET Q AND S BITS.
02503 0771 00 0 00043 ARS 35 MOVE S TO POSITION 35.
02504 0074 00 4 04174 TSX TYO,4 TYPE IT.
02505 BCDOUT (=H, Q = )
02505 0500 00 0 14767 CLA =H, Q = .002
02506 0074 00 4 04311 TSX BCDOUT,4 .002
02507 -0500 00 0 06070 CAL BQS GET S AND Q BITS.
02510 0771 00 0 00042 ARS 34 MOVE Q TO POSITION 35.
02511 -0320 00 0 14612 ANA =1 MASK AWAY ALL ELSE.
02512 0074 00 4 04174 TSX TYO,4 TYPE IT.
02513 0074 00 4 04232 TSX CR,4 RETURN THE CARRIAGE.
02514 0020 00 0 00046 TRA MAIN AND GO BACK.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 49
LLM. COMMENT ON LOCATION ABOVE MEMORY BOUND.
02515 LLM TYPE 5,(LOCATION ABOVE MEMORY BOUND.*)
02515 0074 00 4 04034 TSX TYPE,4 .002
02516 3 00000 0 14405 PAR ..019 .002
02517 0020 00 0 02552 TRA OOPS GO GET THE NEXT REQUEST.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 50
E DEFINE SYMBOL.
02520 FULL TYPE 6,(TABLE FULL, DEFINITION IGNORED.*)
02520 0074 00 4 04034 TSX TYPE,4 .002
02521 3 00000 0 14412 PAR ..020 .002
02522 0020 00 0 02552 TRA OOPS GO PROCESS NEXT REQUEST.
*
02523 0500 00 0 02556 DEF CLA BC
02524 TCR,ILF
02524 -0340 00 0 14633 LAS =O55 .003
02525 0020 00 0 02527 TRA *+2 .003
02526 0020 00 0 00236 TRA ILF .003
02527 0074 00 4 05201 TSX,FLDEVL,4
02530 TCR,ILF
02530 -0340 00 0 14633 LAS =O55 .003
02531 0020 00 0 02533 TRA *+2 .003
02532 0020 00 0 00236 TRA ILF .003
02533 -0600 00 0 00235 STQ LOC SAVE SYMBOL VALUE.
02534 0074 00 4 05136 TSX BCSCH,4 GET THE SYMBOL.
02535 -0130 00 0 00000 XCL
02536 0074 00 4 05303 TSX LADJ,4 ADJUST IT TO THE LEFT.
02537 0560 00 0 00235 LDQ LOC PICK UP VALUE.
02540 0074 00 4 05632 TSX DEFINE,4 ENTER IT IN THE SYMBOL TABLE.
02541 0020 00 0 02520 TRA FULL THE TABLE IS FULL.
02542 0020 00 0 00046 TRA MAIN EXIT.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 51
UNDEF. COMMENT ON UNDEFINED SYMBOL.
02543 0602 00 0 02554 UNDEF SLW USYM SAVE THE UNDEFINED SYMBOL.
02544 0074 00 4 04236 TSX QUOTE,4 TYPE THE LEFT QUOTES.
02545 NAMOUT USYM TYPE THE SYMBOL.
02545 0500 00 0 02554 CLA USYM .002
02546 0074 00 4 04313 TSX NAMOUT,4 .002
02547 0074 00 4 04236 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
02550 TYPE 3,( IS NOT DEFINED.*)
02550 0074 00 4 04034 TSX TYPE,4 .002
02551 3 00000 0 14420 PAR ..021 .002
02552 -0625 00 0 00620 OOPS SETF NOGO SET G AND P ERROR FLAG.
02553 0020 00 0 00046 TRA MAIN
*
02554 0 00000 0 00000 USYM STORAGE FOR UNDEFINED SYMBOL.
02555 0 00000 0 00000 NOSQP
02556 0 00000 0 00000 BC
02557 0 00000 0 00000 WORD WORD BEING ASSEMBLED.
02560 0 00000 0 00000 PGMORG ORIGIN OF CURRENT SUBPROGRAM.
02561 0 00000 0 00000 OP OP. CODE OF WORD.
02562 0 00000 0 00000 ADD ADDRESS OF WORD.
02563 0 00000 0 00000 TAG TAG OF WORD.
02564 0 00000 0 00000 DEC DECREMENT OF WORD.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 52
ORGFND. ORIGIN FINDING ROUTINE.
* ENTER WITH NAME OF PROGRAM ENTRY LEFT ADJUSTED IN AC (LOGICAL).
* SEARCHES LOADING TABLE FOR ORIGIN. WHEN FOUND, PRINTS IT AND
* RETURNS WITH ORIGIN IN AC ADDRESS. IF IT CANNOT BE FOUND IT
* TYPES COMMENT AND TRANSFERS TO OOPS.
02565 0634 00 4 02650 ORGFND SXA OFXC,4
02566 -0340 00 0 14773 LAS =H(MAIN)
02567 0020 00 0 02571 TRA *+2
02570 -0754 00 0 00000 ZAC WAS (MAIN), SET TO 0.
02571 0602 00 0 02664 SLW ONAME SAVE THE NAME.
02572 -0500 60 0 00000 CAL* $MOVIE)
02573 0100 00 0 02667 TZE,NOMOV
02574 -0737 00 4 00000 PDC ,4 GET -(LENGTH).
02575 -0634 00 4 02605 SXD TEST,4 AND SAVE IT.
02576 0621 00 0 02601 STA SEARCH SAVE ORIGIN.
02577 -0774 00 4 00000 AXC 0,4 CLEAR POINTER.
02600 -0500 00 0 02664 CAL ONAME GET PROGRAM NAME.
02601 SEARCH TEQ FOUNDA,(..,4) COMPARE W/ ENTRY IN TABLE.
02601 -0340 00 4 00000 LAS ..,4 .002
02602 0020 00 0 02604 TRA *+2 .002
02603 0020 00 0 02607 TRA FOUNDA .002
02604 1 77776 4 02605 TXI *+1,4,-2 BUMP POINTER.
02605 3 00000 4 02601 TEST TXH SEARCH,4,.. ARE WE DONE.Q
02606 0020 00 0 02653 TRA NOTFND YES, WE DID NOT FIND IT.
*
02607 1 77777 4 02610 FOUNDA TXI,*+1,4,-1
02610 -0500 60 0 02601 CAL*,SEARCH
02611 0621 00 0 02665 STA,ENTRY
02612 1 00001 4 02613 TXI,*+1,4,1
*
02613 1 77776 4 02614 FOUND TXI *+1,4,-2 BUMP POINTER TO '*+2'.
02614 -0500 60 0 02601 CAL* SEARCH GET NEXT ENTRY.
02615 TEQ XFER,=O700000000000
02615 -0340 00 0 14761 LAS =O700000000000 .002
02616 0020 00 0 02620 TRA *+2 .002
02617 0020 00 0 02623 TRA XFER .002
02620 0100 00 0 02613 TZE FOUND IF (MAIN), IT IS NOT TV SIZE.
02621 -0320 00 0 14762 ANA =O700000777777
02622 -0100 00 0 02613 TNZ FOUND IF ADDRESS NOT 0 WE DO NOT HAVE T.V.
02623 1 77777 4 02624 XFER TXI *+1,4,-1 BUMP POINTER.
02624 -0500 60 0 02601 CAL* SEARCH GET ORIGIN OF PROGRAM.
02625 0600 00 0 02666 STZ PORG CLEAR THE REGISTER OF GARBAGE.
02626 0621 00 0 02666 STA PORG AND SAVE THE PROGRAM ORIGIN.
02627 0074 00 4 04236 TSX QUOTE,4 TYPE THE LEFT QUOTES.
02630 0500 00 0 02664 CLA ONAME GET THE ENTRY NAME.
02631 -0100 00 0 02633 TNZ *+2 UNLESS IT IS ZERO.
02632 0500 00 0 14773 CLA =H(MAIN) THEN REPLACE IT WITH TRADITIONAL NAME.
02633 0074 00 4 04313 TSX NAMOUT,4 TYPE IT.
02634 0074 00 4 04236 TSX QUOTE,4 FOLLOWED BY THE RIGHT QUOTES.
02635 TYPA 3,( IS LOADED AT *) MIDDLE OF COMMENT.
02635 0074 00 4 04036 TSX TYPA,4 .002
02636 3 00000 0 14423 PAR ..022 .002
02637 OCTOUT PORG TYPE THE ORIGIN.
02637 0500 00 0 02666 CLA PORG .002
02640 0074 00 4 11324 TSX OCTOUT,4 .002
02641 TYPA,3,(, ENTRY POINT IS *)
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 53
ORGFND. ORIGIN FINDING ROUTINE.
02641 0074 00 4 04036 TSX TYPA,4 .002
02642 3 00000 0 14426 PAR ..023 .002
02643 OCTOUT,ENTRY
02643 0500 00 0 02665 CLA ENTRY .002
02644 0074 00 4 11324 TSX OCTOUT,4 .002
02645 TYO =H00000. PUNCTUATE THE SENTENCE.
02645 0500 00 0 14630 CLA =H00000. .002
02646 0074 00 4 04174 TSX TYO,4 .002
02647 0074 00 4 04232 TSX CR,4 RETURN THE CARRIAGE.
02650 0774 00 4 00000 OFXC AXT ..,4
02651 -0500 00 0 02666 CAL PORG GET THE ORIGIN AGAIN.
02652 0020 00 4 00001 TRA 1,4 HAPPY RETURN.
*
02653 0074 00 4 04236 NOTFND TSX QUOTE,4 NOT FOUND, TYPE QUOTES.
02654 0500 00 0 02664 CLA ONAME GET THE NAME.
02655 -0100 00 0 02657 TNZ *+2 IF ZERO,
02656 0500 00 0 14773 CLA =H(MAIN) REPLACE IT WITH TRADITIONAL SUBSTITUTE.
02657 0074 00 4 04313 TSX NAMOUT,4 TYPE IT.
02660 0074 00 4 04236 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
02661 TYPE 3,( IS NOT IN CORE.*) TYPE THE REST OF THE COMMENT.
02661 0074 00 4 04034 TSX TYPE,4 .002
02662 3 00000 0 14431 PAR ..024 .002
02663 0020 00 0 02552 TRA OOPS UNHAPPY, GO GRIPE.
*
02664 0 00000 0 00000 ONAME STORAGE FOR THE ENTRY NAME.
02665 0 00000 0 00000 ENTRY
02666 0 00000 0 00000 PORG PROGRAM ORIGIN, TEMP.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 54
ERROR ON NO MOVIE TABLE
*
02667 NOMOV TYPE,4,(MOVIE TABLE NOT FOUND.*)
02667 0074 00 4 04034 TSX TYPE,4 .002
02670 3 00000 0 14434 PAR ..025 .002
02671 0020 00 0 02552 TRA,OOPS
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 55
INTEGER (BASE 10 AND 8) INPUT CONVERSION.
* OCTIN. OCTAL TO BINARY CONVERSION.
02672 0600 00 0 02773 OCTIN CLEAR SFT FULL WORD, RESET SHIFT FLAG.
02673 0560 00 0 14617 LDQ =O10 BASE IS 8.
02674 0020 00 0 02702 TRA IJIN GO JOIN INTIN AND JNTIN.
*
* DECIMAL TO BINARY CONVERSION, INPUT.
02675 0600 00 0 02773 INTIN CLEAR SFT FULL WORD, DON'T SHIFT.
02676 0560 00 0 14621 LDQ =10 BASE IS 10.
02677 0020 00 0 02702 TRA IJIN GO TO COMMON SECTION.
*
02700 -0625 00 0 02773 JNTIN SETF SFT DECREMENT INTEGER, SHIFT AFTER CONVERSION.
02701 0560 00 0 14621 LDQ =10 BASE IS 10.
02702 -0600 00 0 02777 IJIN STQ BASE SAVE THE BASE.
02703 0634 00 4 02761 SXA XR,4 SAVE XR 4.
02704 0600 00 0 02774 STZ NUM
02705 0600 00 0 02776 CLEAR SGN
02706 0074 00 4 03233 TSX TYI,4 GET THE NEXT CHARACTER.
02707 TEQ IDIG1,=H00000+ IGNORE PLUS SIGN.
02707 -0340 00 0 14625 LAS =H00000+ .002
02710 0020 00 0 02712 TRA *+2 .002
02711 0020 00 0 02722 TRA IDIG1 .002
02712 TEQ IMIN,=H00000- TAKE CARE OF MINUS SIGN.
02712 -0340 00 0 14631 LAS =H00000- .002
02713 0020 00 0 02715 TRA *+2 .002
02714 0020 00 0 02721 TRA IMIN .002
02715 0340 00 0 02777 CAS BASE IS IT A DIGIT.Q
02716 0020 00 0 00236 TRA ILF NO, COMPLAIN.
02717 0761 00 0 00000 NOP YES,
02720 0020 00 0 02726 TRA ICNV GO INTO CONVERSION LOOP.
*
02721 -0625 00 0 02776 IMIN SETF SGN MINUS SIGN, SET FLAG.
02722 0074 00 4 03233 IDIG1 TSX TYI,4 GET THE NEXT CHARACTER.
02723 0340 00 0 02777 CAS BASE IS IT A DIGIT.Q
02724 0020 00 0 00236 TRA ILF NO, COMPLAIN.
02725 0761 00 0 00000 NOP YES,
02726 0601 00 0 02775 ICNV STO DGT SAVE IT.
02727 0140 00 0 02727 TOV * TURN OFF OVERFLOW LIGHT.
02730 0560 00 0 02774 LDQ NUM GET THE PREVIOUS NUMBER.
02731 0200 00 0 02777 MPY BASE INCREASE IT BY THE NEW PLACE.
02732 0763 00 0 00043 LLS 35 MOVE RESULT TO AC.
02733 0400 00 0 02775 ADD DGT ADD IN THE NEW DIGIT.
02734 0602 00 0 02774 SLW NUM SAVE THE RESULT.
02735 -0140 00 0 02737 TNO,*+2
02736 -0625 00 0 03000 STL,OVFLG
02737 0074 00 4 03233 TSX TYI,4 GET THE NEXT CHARACTER.
02740 0340 00 0 02777 CAS BASE IS IT A DIGIT.
02741 0020 00 0 02746 TRA IFMT NO, GO CLEAN UP.
02742 0761 00 0 00000 NOP YES,
02743 -0520 00 0 03000 NZT,OVFLG
02744 0020 00 0 02726 TRA ICNV RETURN TO CONVERSION LOOP.
02745 0020 00 0 02763 TRA,OVDC
*
02746 0601 00 0 02775 IFMT STO DGT SAVE THE TERMINATIGN CHARACTER.
02747 0500 00 0 02774 CLA NUM GET THE NUMBER.
02750 0520 00 0 02776 ZET SGN SHOULD IT BE NEGATIVE.Q
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 56
INTEGER (BASE 10 AND 8) INPUT CONVERSION.
02751 -0760 00 0 00003 SSM YES, MAKE IT SO.
02752 0140 00 0 02752 TOV * TURN OFF OVERFLOW LIGHT.
02753 0520 00 0 02773 ZET SFT SHOULD WE SHIFT IT.Q
02754 0767 00 0 00022 ALS 18 YES, DO SO.
02755 0140 00 0 02767 TOV OVFC IF TOO BIG, COMPLAIN.
02756 0131 00 0 00000 XCA MOVE THE RESULT TO THE MQ.
02757 0500 00 0 02775 CLA DGT GET THE TERMINAL CHARACTER.
02760 0600 00 0 03000 STZ,OVFLG
02761 0774 00 4 00000 XR AXT ..,4
02762 0020 00 4 00001 TRA 1,4
*
02763 OVDC TYPE 5,(OVERFLOW DURING CONVERSION.*)
02763 0074 00 4 04034 TSX TYPE,4 .002
02764 3 00000 0 14440 PAR ..026 .002
02765 0600 00 0 03000 STZ,OVFLG
02766 0020 00 0 02552 TRA OOPS
*
02767 OVFC TYPE 5,(OVERFLOW DURING SHIFTING.*)
02767 0074 00 4 04034 TSX TYPE,4 .002
02770 3 00000 0 14445 PAR ..027 .002
02771 0600 00 0 03000 STZ,OVFLG
02772 0020 00 0 02552 TRA OOPS
*
02773 0 00000 0 00000 SFT
02774 0 00000 0 00000 NUM ACCUMULATING NUMBER.
02775 0 00000 0 00000 DGT CURRENT CHARACTER.
02776 0 00000 0 00000 SGN FLAG.. IS NUMBER NEGATIVE.Q
02777 0 00000 0 00000 BASE NUMBER CONVERSION BASE.
03000 0 00000 0 00000 OVFLG
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 57
FLOIN. FLOATING POINT DECIMAL INPUT CONVERSION.
03001 0634 00 4 03140 FLOIN SXA FXRC,4 SAVE RETURN.
03002 0634 00 2 03141 SXA FXRB,2
03003 0600 00 0 03230 STZ MAG CLEAR THE MAGNITUDE.
03004 0600 00 0 03231 CLEAR MSG SIGN OF MAGNITUDE.
03005 0774 00 2 00000 AXT 0,2
03006 0560 00 0 00010 LDQ 8 PICK UP AND.
03007 -0600 00 0 03232 STQ FPT SAVE FPT LOCATION.
03010 0560 00 0 00000 LDQ 0 ALSO SAVE THE F.P. ERROR CODE LOC.
03011 -0600 00 0 03227 STQ FPZ
03012 0560 00 0 03226 LDQ TTR INSERT IN IT A TRANSFER BACK HERE.
03013 -0600 00 0 00010 STQ 8
03014 0074 00 4 03233 TSX TYI,4 GET THE NEXT CHARACTER.
03015 TEQ FDIG1,=H00000+ IGNORE PLUS SIGN.
03015 -0340 00 0 14625 LAS =H00000+ .002
03016 0020 00 0 03020 TRA *+2 .002
03017 0020 00 0 03033 TRA FDIG1 .002
03020 TEQ MMI,=H00000- TAKE CARE OF MINUS SIGN.
03020 -0340 00 0 14631 LAS =H00000- .002
03021 0020 00 0 03023 TRA *+2 .002
03022 0020 00 0 03032 TRA MMI .002
03023 FRET1 TEQ FRAC1,=H00000. GO TO FRACTION SECTION, IF NECESSARY.
03023 -0340 00 0 14630 LAS =H00000. .002
03024 0020 00 0 03026 TRA *+2 .002
03025 0020 00 0 03057 TRA FRAC1 .002
03026 0340 00 0 14620 CAS =9 IS IT A DIGIT.Q
03027 0020 00 0 03152 TRA FILF NO, COMPLAIN.
03030 0761 00 0 00000 NOP YES,
03031 0020 00 0 03035 TRA FCNV GO INTO CONVERSION LOOP.
*
03032 -0625 00 0 03231 MMI SETF MSG SET NEGATIVE FLAG.
03033 0074 00 4 03233 FDIG1 TSX TYI,4 GET THE NEXT CHARACTER.
03034 0020 00 0 03023 TRA FRET1 GO CHECK IT OUT.
*
03035 -0501 00 0 14672 FCNV ORA =O233000000000 FLOAT THE DIGIT.
03036 0300 00 0 14672 FAD =O233000000000 ..
03037 0601 00 0 02775 STO DGT SAVE IT.
03040 0560 00 0 03230 LDQ MAG INCREASE MAGNITUDE FOR NEW PLACE.
03041 0260 00 0 14667 FMP =10. ..
03042 0300 00 0 02775 FAD DGT ADD IN THE NEW DIGIT.
03043 0601 00 0 03230 STO MAG SAVE THE RESULT.
03044 0074 00 4 03233 TSX TYI,4 GET THE NEXT CHARACTER.
03045 TEQ FRAC2,=H00000. GO TO FRACTION SECTION, IF PERIOD.
03045 -0340 00 0 14630 LAS =H00000. .002
03046 0020 00 0 03050 TRA *+2 .002
03047 0020 00 0 03073 TRA FRAC2 .002
03050 TEQ E,=H00000E GO TO EXPONENT, IF E.
03050 -0340 00 0 14627 LAS =H00000E .002
03051 0020 00 0 03053 TRA *+2 .002
03052 0020 00 0 03103 TRA E .002
03053 0340 00 0 14620 CAS =9 IS IT A DIGIT.Q
03054 0020 00 0 03126 TRA FFMT NO, CLEAN UP.
03055 0761 00 0 00000 NOP YES,
03056 0020 00 0 03035 TRA FCNV CONTINUE CONVERSION LOOP.
*
03057 0074 00 4 03233 FRAC1 TSX TYI,4 GET THE NEXT CHARACTER.
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 58
FLOIN. FLOATING POINT DECIMAL INPUT CONVERSION.
03060 0340 00 0 14620 CAS =9 IS IT A DIGIT.Q
03061 0020 00 0 03152 TRA FILF NO, COMPLAIN.
03062 0761 00 0 00000 NOP YES,
03063 1 00001 2 03064 TXI *+1,2,1 BUMP EXPONENT BY ONE.
03064 3 00046 2 03143 FRCNV TXH ERR,2,38 COMPLAIN IF TOO BIG.
03065 -0501 00 0 14672 ORA =O233000000000 FLOAT THE DIGIT.
03066 0300 00 0 14672 FAD =O233000000000 ..
03067 0241 00 2 03225 FDP TEN,2 COMPUTE ITS APPARENT VALUE.
03070 0131 00 0 00000 XCA MOVE THE RESULT TO THE AC.
03071 0300 00 0 03230 FAD MAG ADD IT INTO THE NUMBER.
03072 0601 00 0 03230 STO MAG SAVE THE RESULT.
03073 0074 00 4 03233 FRAC2 TSX TYI,4 GET THE NEXT CHARACTER.
03074 TEQ E,=H00000E GO TO EXPONENT IF E.
03074 -0340 00 0 14627 LAS =H00000E .002
03075 0020 00 0 03077 TRA *+2 .002
03076 0020 00 0 03103 TRA E .002
03077 0340 00 0 14620 CAS =9 IS IT A DIGIT.Q
03100 0020 00 0 03126 TRA FFMT NO, CLEAN UP.
03101 0761 00 0 00000 NOP YES,
03102 1 00001 2 03064 TXI FRCNV,2,1 BUMP POWER AND CONTINUE LOOP.
*
03103 0560 00 0 03232 E LDQ FPT RESTORE USER'S 0 AND 8.
03104 -0600 00 0 00010 STQ 8 ..
03105 0560 00 0 03227 LDQ FPZ ..
03106 -0600 00 0 00000 STQ 0 ..
03107 0074 00 4 02675 TSX INTIN,4 GET THE EXPONENT OF TEN.
03110 0601 00 0 02775 STO DGT SAVE THE TERMINAL CHARACTER.
03111 0131 00 0 00000 XCA MOVE THE NUMBER TO THE AC.
03112 0734 00 2 00000 PAX ,2 THENCE TO XR.
03113 0560 00 0 03226 LDQ TTR RESTORE OUR FPT SETTING.
03114 -0600 00 0 00010 STQ 8 ..
03115 3 00046 2 03143 TXH ERR,2,38 IS IT REASONABLE.Q
03116 -0120 00 0 03122 TMI FDIV YES, IF NEGATIVE, WE MUST DIVIDE.
03117 0560 00 0 03230 LDQ MAG POSITIVE,
03120 0260 00 2 03225 FMP TEN,2 MULTIPLY.
03121 0020 00 0 03130 TRA FASSGN GO ATTACH THE SIGN.
*
03122 0500 00 0 03230 FDIV CLA MAG NEGATIVE,
03123 0241 00 2 03225 FDP TEN,2 DIVIDE BY POWER OF TEN.
03124 0131 00 0 00000 XCA MOVE RESULT TO AC.
03125 0020 00 0 03130 TRA FASSGN ATTACH THE SIGN.
*
03126 0601 00 0 02775 FFMT STO DGT SAVE THE TERMINAL CHARACTER.
03127 0500 00 0 03230 CLA MAG GET THE NUMBER.
03130 0520 00 0 03231 FASSGN ZET MSG SHOULD IT BE NEGATIVE.Q
03131 -0760 00 0 00003 SSM YES, MAKE IT SO.
03132 0131 00 0 00000 XCA MOVE THE RESULT TO THE MQ.
03133 0500 00 0 03232 CLA FPT RESTORE LOCATION 8.
03134 0601 00 0 00010 STO 8 ..
03135 0500 00 0 03227 CLA FPZ AND 0.
03136 0601 00 0 00000 STO 0 ..
03137 0500 00 0 02775 CLA DGT GET THE TERMINAL CHARACTER.
03140 0774 00 4 00000 FXRC AXT ..,4 RESTORE THE INDEX REGISTERS.
03141 0774 00 2 00000 FXRB AXT ..,2 ..
03142 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 59
FLOIN. FLOATING POINT DECIMAL INPUT CONVERSION.
*
03143 ERR TYPE 5,(F.P. NUMBER OUT OF RANGE.*)
03143 0074 00 4 04034 TSX TYPE,4 .002
03144 3 00000 0 14452 PAR ..028 .002
03145 0500 00 0 03232 CLA FPT RESTORE LOCATIONS 0 AND 8.
03146 0601 00 0 00010 STO 8 ..
03147 0500 00 0 03227 CLA FPZ ..
03150 0601 00 0 00000 STO 0 ..
03151 0020 00 0 02552 TRA OOPS DO NOT RETURN TO CALLER.
*
03152 0560 00 0 03227 FILF LDQ FPZ RESTORE FP TRAP LOCATIONS.
03153 -0600 00 0 00000 STQ 0 ..
03154 0560 00 0 03232 LDQ FPT ..
03155 -0600 00 0 00010 STQ 8 ..
03156 0020 00 0 00236 TRA ILF GO GRIPE ABOUT CHARACTER.
*
03157 +377454732313 DEC 1E38,1E37,1E36,1E35,1E34,1E33,1E32,1E31,1E30
03160 +373741367021
03161 +370601137164
03162 +365464114135
03163 +361755023373
03164 +356612334311
03165 +353473426555
03166 +347770675742
03167 +344623713116
03170 +341503074077 DEC 1E29,1E28,1E27,1E26,1E25,1E24,1E23,1E22,1E21,1E20
03171 +336402374714
03172 +332635456171
03173 +327512676456
03174 +324410545213
03175 +320647410336
03176 +315522640262
03177 +312417031702
03200 +306661534466
03201 +303532743536
03202 +300425434430 DEC 1E19,1E18,1E17,1E16,1E15,1E14,1E13,1E12,1E11,1E10
03203 +274674055532
03204 +271543212741
03205 +266434157116
03206 +262706576512
03207 +257553630410
03210 +254443023471
03211 +250721522451
03212 +245564416672
03213 +242452013710
03214 +236734654500 DEC 1E9,1E8,1E7,1E6,1E5,1E4,1E3,1E2,1E1
03215 +233575360400
03216 +230461132000
03217 +224750220000
03220 +221606500000
03221 +216470400000
03222 +212764000000
03223 +207620000000
03224 +204500000000
03225 +201400000000 TEN DEC 1. TABLE OF POWERS OF TEN.
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 60
FLOIN. FLOATING POINT DECIMAL INPUT CONVERSION.
*
03226 0021 00 0 03143 TTR TTR ERR INSTRUCTION TO BE STORED IN LOC 8.
03227 0 00000 0 00000 FPZ STORAGE FOR LOCATION 0.
03230 0 00000 0 00000 MAG MAGNITUDE OF NUMBER.
03231 0 00000 0 00000 MSG SIGN OF MAGNITUDE.
03232 0 00000 0 00000 FPT STORAGE FOR CONTENTS OF LOCATION 8.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 61
TYI. SINGLE CHARACTER INPUT PACKAGE.
03233 0634 00 4 03270 TYI SXA TYIX,4 SAVE RETURN INDEX.
03234 0774 00 4 00000 TYICP AXT ..,4 REMEMBER HOW MANY CHARACTERS IN THIS WORD.
03235 -0520 00 0 03327 NZT CRFLG SKIP TEST IF BUFFER EMPTY.
03236 2 00006 4 03242 TIX TYIMIW,4,6 COUNT THIS CHARACTER, IF ANY.
03237 0074 00 4 03310 TSX GWORD,4 GET THE NEXT WORD.
03240 0601 00 0 03330 STO TYIB SAVE IT.
03241 0774 00 4 00044 AXT 36,4 RESET CHARACTER COUNT.
03242 0634 00 4 03234 TYIMIW SXA TYICP,4 SAVE THE NEW CHARACTER COUNT.
03243 0560 00 0 03330 LDQ TYIB GET THE CURRENT WORD.
03244 -0763 00 4 00052 LGL 42,4 SHIFT IN THE DESIRED CHARACTER.
03245 -0320 00 0 14642 ANA =O77 MASK OFF THE CHARACTER.
03246 0340 00 0 14633 CAS =O55 IS IT A CARRIAGE RETURN.Q
03247 0020 00 0 03251 TRA *+2 NO, PROCEED.
03250 -0625 00 0 03327 SETF CRFLG YES, SIGNAL BUFFER EMPTY.
03251 0340 00 0 14623 CAS =H00000' IS IT AN APOSTROPHE.Q
03252 0020 00 0 03254 TRA *+2 NO,
03253 0500 00 0 14633 CLA =O55 YES, SUBSTITUTE A CARR. RET.
03254 -0340 00 0 14622 LAS =H00000= IF IT IS A = (CONCATENATION CHAR.).
03255 0020 00 0 03257 TRA *+2
03256 0500 00 0 14633 CLA =O55 MAKE IT A CARR. RET.
03257 -0340 00 0 14640 LAS =O72 IF IT IS A TABULATE,
03260 0020 00 0 03262 TRA *+2
03261 -0500 00 0 14634 CAL =O60 MAKE IT A BLANK.
03262 TBL CHPRE IF BLANK, CHECK PREVIOUS CHARACTER.
03262 -0340 00 0 14634 LAS =H00000 .003
03263 0020 00 0 03265 TRA *+2 .003
03264 0020 00 0 03272 TRA CHPRE .003
03265 0602 00 0 03326 OUT SLW PREVCH OK, SAVE AS PREVIOUS CHAR.
03266 0520 00 0 03331 ZET,BLFLAG
03267 0600 00 0 03326 STZ,PREVCH
03270 0774 00 4 00000 TYIX AXT ..,4 RESTORE RETURN INDEX.
03271 0020 00 4 00001 TRA 1,4
*
03272 0520 00 0 03331 CHPRE ZET,BLFLAG
03273 0020 00 0 03265 TRA,OUT
03274 TEQ TYICP,PREVCH IF LAST CHARACTER WAS BLANK, TRY AGAIN.
03274 -0340 00 0 03326 LAS PREVCH .002
03275 0020 00 0 03277 TRA *+2 .002
03276 0020 00 0 03234 TRA TYICP .002
03277 0020 00 0 03265 TRA OUT OTHERWISE EXIT W/ THIS BLANK.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 62
SKIPCR. FIND BEGINNING OF NEXT REQUEST.
03300 0634 00 4 03306 SKIPCR SXA SKX,4 SAVE RETURN.
03301 -0500 00 0 03326 CAL PREVCH LAST CHARACTER.
03302 0020 00 0 03304 TRA *+2
03303 0074 00 4 03233 TSX TYI,4 GET NEXT CHAR.
03304 0322 00 0 14633 ERA =O55 IS IT A CARR. RET.Q
03305 -0100 00 0 03303 TNZ *-2 NO, TRY AGAIN.
03306 0774 00 4 00000 SKX AXT ..,4 YES, EXIT.
03307 0020 00 4 00001 TRA 1,4
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 63
GWORD. GET NEXT WORD FROM INPUT LINE.
03310 0634 00 4 03324 GWORD SXA GWX,4 SAVE RETURN INDEX.
03311 0535 00 4 03332 LAC GWBUF,4 REMEMBER CURRENT WORD.
03312 1 77777 4 03313 TXI *+1,4,-1 BUMP POINTER TO NEXT WORD.
03313 -0520 00 0 03327 NZT CRFLG SKIP TEST IF BUFFER EMPTY.
03314 3 77761 4 03322 TXH GWMIB,4,-15 IS THERE ANY MORE IN BUFFER.Q
03315 0074 00 4 00000 TYICW TSX ..,4 READ A NEW BUFFER FULL.
03316 3 00016 0 03333 PAR GWBUF+1,,14 ..
03317 0600 00 0 03327 CLEAR CRFLG INDICATE STUFF IN BUFFER.
03320 0600 00 0 00620 CLEAR NOGO RESET G AND P ERROR FLAG.
03321 -0774 00 4 00001 AXC 1,4 RESET COUNT OF WORDS.
03322 0636 00 4 03332 GWMIB SCA GWBUF,4 SAVE POINTER FOR NEXT TIME.
03323 0500 00 4 03332 CLA GWBUF,4 GET THE CURRENT WORD.
03324 0774 00 4 00000 GWX AXT ..,4 RESTORE RETURN INDEX.
03325 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
03326 +000000000055 PREVCH OCT 55 AT BEGINNING, WE ARE SET UP OK.
03327 0 00000 0 03327 CRFLG * FIRST TIME, WE HAVE NO LINE IN BUFFER.
03330 0 00000 0 00000 TYIB CURRENT INPUT WORD.
03331 0 00000 0 00000 BLFLAG
03332 0 00000 0 00000 GWBUF INPUT LINE BUFFER.
03333 BSS 14 ..
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 64
DIFDMP. VERIFY OR DIFFERENTIAL DUMP.
* COMPARE RELOCATABLE BINARY CARDS IN FILE NAME (IN LOGICAL AC)
* BSS WITH PROGRAM WHOSE ORIGIN IS GIVEN IN MQ. PRINT LOCATIONS
* AND THEIR CONTENTS WHICH DISAGREE.
03351 0634 00 4 03567 DIFDMP SXA VXC,4 SAVE THE XR'S.
03352 0634 00 2 03570 SXA VXB,2
03353 0634 00 1 03571 SXA VXA,1
03354 -0600 00 0 02666 STQ PORG ENTER W/ PROGRAM NAME IN THE AC.,
03355 0602 00 0 03600 SLW FILE PROGRAM ORIGIN IN MQ.
03356 0600 00 0 03576 CLEAR CELL1 INITIALIZE PROGRAM CARD FLAG.
03357 OPEN (=HR,FILE,((=H BSS)),=-0,=-0,DERR) OPEN THE FILE.
03357 0074 00 4 14457 TSX OPEN,4 .004
03360 3 00000 0 14722 PAR =HR .004
03361 3 00000 0 03600 PAR FILE .004
03362 3 00000 0 14740 PAR =H BSS .004
03363 3 00000 0 14710 PAR =-0 .004
03364 3 00000 0 14710 PAR =-0 .004
03365 3 00000 0 11507 PAR DERR .004
03366 BUFFER (FILE,((=H BSS)),(BUF1,,BUFLTH),DERR)
03366 0074 00 4 14460 TSX BUFFER,4 .004
03367 3 00000 0 03600 PAR FILE .004
03370 3 00000 0 14740 PAR =H BSS .004
03371 3 00660 0 11613 PAR BUF1,,BUFLTH .004
03372 3 00000 0 11507 PAR DERR .004
03373 CARDRD RDWAIT (FILE,((=H BSS)),=0,(CARD,,28),QUIT,=-0,DERR)
03373 0074 00 4 14461 TSX RDWAIT,4 .004
03374 3 00000 0 03600 PAR FILE .004
03375 3 00000 0 14740 PAR =H BSS .004
03376 3 00000 0 14611 PAR =0 .004
03377 3 00034 0 03416 PAR CARD,,28 .004
03400 3 00000 0 03561 PAR QUIT .004
03401 3 00000 0 14710 PAR =-0 .004
03402 3 00000 0 11507 PAR DERR .004
03403 0500 00 0 03416 CLA CARD
03404 0120 00 0 03452 TPL DATA IF SIGN=1, WE HAVE PROGRAM CARD.
03405 0520 00 0 03576 ZET CELL1 IS THIS FIRST PROGRAM CARD.Q
03406 0020 00 0 03373 TRA CARDRD NO, READ ANOTHER.
03407 -0625 00 0 03576 SETF CELL1 YES, GET PROGRAM BREAK.
03410 0534 00 4 03420 LXA CARD+2,4 GET PROGRAM BREAK.
03411 1 77777 4 03412 TXI *+1,4,-1 DECREASE IT TO GET LAST LOCATION USED.
03412 -0634 00 4 03550 SXD RELSIZ,4 SET UP RELOCATION SUBROUTINE.
03413 0534 00 4 02666 LXA PORG,4 GET PROGRAM ORIGIN.
03414 -0634 00 4 03552 SXD RELPRG,4 SET UP RELOCATION SUBROUTINE.
03415 0020 00 0 03373 TRA CARDRD
*
03416 CARD BSS 28
*
03452 0500 00 0 03416 DATA CLA CARD
03453 0400 00 0 02666 ADD PORG RELOCATE THE 'LOAD ADDRESS'.
03454 0600 00 0 00235 STZ LOC
03455 0621 00 0 00235 STA LOC
03456 -0320 00 0 14665 ANA =O200077000000
03457 0771 00 0 00022 ARS 18
03460 0600 00 0 03577 STZ COUNT
03461 0621 00 0 03577 STA COUNT NUMBER OF PERTINENT WORDS ON CARD.
03462 0767 00 0 00023 ALS 19
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 65
DIFDMP. VERIFY OR DIFFERENTIAL DUMP.
03463 -0760 00 0 00001 PBT
03464 0020 00 0 03573 TRA NONREL NON-RELOCATABLE CARD.
03465 -0774 00 1 03422 AXC CARD+4,1
03466 0500 00 1 00000 RETURN CLA 0,1 PICK UP WORD.
03467 0601 00 0 02557 STO WORD
03470 0074 00 4 03536 TSX RELBIT,4 GET FIRST DECREMENT RELOCATION BIT.
03471 0120 00 0 03477 TPL NODEC IF ZERO, DECREMENT IS ABSOLUTE.
03472 0500 00 0 02557 CLA WORD IF ONE,
03473 0771 00 0 00022 ARS 18 DECREMENT IS RELOCATABLE.
03474 0074 00 4 03544 TSX RELOC,4 DO SO.
03475 0767 00 0 00022 ALS 18 THEN,
03476 0622 00 0 02557 STD WORD REPLACE THE NEW VERSION.
03477 0074 00 4 03536 NODEC TSX RELBIT,4 GET THE FIRST ADDRESS BIT.
03500 0120 00 0 03504 TPL CHECK IF ZERO, ADDRESS IS ABSOLUTE.
03501 0500 00 0 02557 CLA WORD IF ONE, ADDRESS IS RELOCATABLE.
03502 0074 00 4 03544 TSX RELOC,4 DO SO.
03503 0621 00 0 02557 STA WORD REPLACE THE NEW VERSION.
03504 -0500 60 0 00235 CHECK CAL* LOC GET WORD FROM MEMORY.
03505 TEQ FINCYC,WORD IF IT MATCHES, DON'T PRINT.
03505 -0340 00 0 02557 LAS WORD .002
03506 0020 00 0 03510 TRA *+2 .002
03507 0020 00 0 03523 TRA FINCYC .002
03510 FLDPRT LOC TYPE LOCATION.
03510 0500 00 0 00235 CLA LOC .002
03511 0074 00 4 04361 TSX FLDPRT,4 .002
03512 TYO =H00000/
03512 0500 00 0 14635 CLA =H00000/ .002
03513 0074 00 4 04174 TSX TYO,4 .002
03514 0074 00 4 04234 TSX TAB,4 BCD TABULATE.
03515 0500 00 0 02557 CLA WORD PRINT OUT OLD CONTENTS.
03516 0522 00 0 01714 XEC CTSX
03517 0074 00 4 04234 TSX TAB,4 BCD TABULATE.
03520 0500 60 0 00235 CLA* LOC GET THE WORD.
03521 0522 00 0 01714 XEC CTSX TYPE THE WORD.
03522 0074 00 4 04232 TSX CR,4 END OF LINE, CARRIAGE RETURN.
03523 -0500 00 0 00235 FINCYC CAL LOC
03524 0400 00 0 14612 ADD =1
03525 0602 00 0 00235 SLW LOC
03526 1 77777 1 03527 TXI *+1,1,-1
03527 0520 00 0 04167 ZET INRUPT HAS THERE BEEN AN INTERRUPT.Q
03530 0020 00 0 03561 TRA QUIT YES, STOP.
03531 -0500 00 0 03577 CAL COUNT
03532 0402 00 0 14612 SUB =1
03533 0602 00 0 03577 SLW COUNT
03534 -0100 00 0 03466 TNZ RETURN
03535 0020 00 0 03373 TRA CARDRD GO READ NEXT CARD.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 66
RELBIT. GET NEXT RELOCATION BIT.
03536 0500 00 0 03420 RELBIT CLA CARD+2 GET THE TWO WORDS OF BITS.
03537 0560 00 0 03421 LDQ CARD+3 ..
03540 -0763 00 0 00001 LGL 1 MOVE LEFT ONE POSITION.
03541 0602 00 0 03420 SLW CARD+2 SAVE THE TWO NEW WORDS.
03542 -0600 00 0 03421 STQ CARD+3 ..
03543 0020 00 4 00001 TRA 1,4 RETURN TO CALLER WITH BIT IN AC SIGN.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 67
RELOC. RELOCATE FIELD IN A(AC).
03544 0634 00 4 03554 RELOC SXA RELXC,4 SAVE RETURN INDEX.
03545 0634 00 1 03555 SXA RELXA,1 ..
03546 0734 00 1 00000 PAX ,1 GET FIELD TO BE RELOCATED.
03547 0074 00 4 03536 TSX RELBIT,4 GET THE NEXT RELOCATION BIT.
03550 3 00000 1 03557 RELSIZ TXH OUTSID,1,.. IS FIELD WITHIN SUBPROGRAM.Q
03551 -0120 00 0 03560 TMI RELCOM YES, BIT ON MEANS COMMON RELOCATION.
03552 1 00000 1 03553 RELPRG TXI *+1,1,.. BIT OFF MEANS RELOCATION WITH SUBPROGRAM.
03553 0754 00 1 00000 RELXIT PXA ,1 GET THE RELOCATED FIELD.
03554 0774 00 4 00000 RELXC AXT ..,4 RESTORE RETURN INDEX.
03555 0774 00 1 00000 RELXA AXT ..,1 ..
03556 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
03557 -0120 00 0 03552 OUTSID TMI RELPRG OUTSIDE, ONE MEANS RELOCATE W/ SUBPROGRAM.
03560 1 00000 1 03553 RELCOM TXI RELXIT,1,COMMON-77461K ZERO MEANS COMMON RELOCATION.
*
77461 COMMON COMMON 0 WHERE COMMON REALLY IS.
077461 77461K BOOL 77461 WHERE IT SHOULD BE.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 68
EXIT FROM VERIFY.
03561 QUIT CLOSE (FILE,((=H BSS)),DERR) CLOSE THE FILE.
03561 0074 00 4 14462 TSX CLOSE,4 .004
03562 3 00000 0 03600 PAR FILE .004
03563 3 00000 0 14740 PAR =H BSS .004
03564 3 00000 0 11507 PAR DERR .004
03565 VDONE TYPE 3,(COMPARISON DONE.*)
03565 0074 00 4 04034 TSX TYPE,4 .002
03566 3 00000 0 14463 PAR ..065 .002
03567 0774 00 4 00000 VXC AXT ..,4
03570 0774 00 2 00000 VXB AXT ..,2
03571 0774 00 1 00000 VXA AXT ..,1
03572 0020 00 4 00001 TRA 1,4 AND EXIT.
*
03573 NONREL TYPE 6,(BINARY CARD IS NON-RELOCATABLE.*)
03573 0074 00 4 04034 TSX TYPE,4 .002
03574 3 00000 0 14466 PAR ..066 .002
03575 0020 00 0 03561 TRA QUIT GIVE UP AND GET OUT OF HERE.
*
03576 0 00000 0 00000 CELL1 FLAG.. FIRST PROGRAM CARD ALREADY READ.
03577 0 00000 0 00000 COUNT NUMBER OF WORDS ON CARD.
03600 0 00000 0 00000 FILE PRIMARY FILE NAME.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 69
MAP. TYPE STORAGE MAP.
03601 0634 00 4 03660 MAP SXA MXC,4 SAVE THE INDEX REGISTERS.
03602 0634 00 1 03661 SXA MXA,1
03603 0634 00 2 03662 SXA MXB,2
03604 -0500 60 0 00000 CAL* $MOVIE) GET THE MAP CONTROL WORD.
03605 0100 00 0 02667 TZE,NOMOV
03606 0622 00 0 03656 STD MTST SAVE WORD COUNT FOR END TEST.
03607 0771 00 0 00022 ARS 18 SHIFT COUNT TO ADDRESS.
03610 0361 60 0 00000 ACL* $MOVIE) COMPUTE (LAST + 1).
03611 0621 00 0 03664 STA MPTR SET UP POINTER.
03612 0774 00 1 00001 AXT 1,1 SET UP COUNT OF WORDS.
03613 0074 00 4 04232 BPR TSX CR,4 RETURN THE CARRIAGE.
03614 BCDOUT (=HORG = ) ANNOUNCE THE ORIGIN OF THIS SUBPROGRAM.
03614 0500 00 0 14715 CLA =HORG = .002
03615 0074 00 4 04311 TSX BCDOUT,4 .002
03616 0500 60 0 03664 CLA* MPTR GET THE ORIGIN.
03617 0074 00 4 11324 TSX OCTOUT,4 TYPE IT.
03620 1 00001 1 03621 TXI *+1,1,1 MOVE INDEX TO THE T. V. SIZE.
03621 BCDOUT =O726365601360 ANNOUNCE THE T.V. SIZE (=H(TAB)TV =).
03621 0500 00 0 14765 CLA =O726365601360 .002
03622 0074 00 4 04311 TSX BCDOUT,4 .002
03623 0500 60 0 03664 CLA* MPTR GET THE T.V. SIZE.
03624 0771 00 0 00022 ARS 18 MOVE IT TO THE ADDRESS.
03625 -0320 00 0 14646 ANA =O77777 MASK OFF PREFIX.
03626 0074 00 4 11324 TSX OCTOUT,4 TYPE IT.
03627 1 00002 1 03630 TXI *+1,1,2 MOVE INDEX TO THE PROGRAM NAME.
03630 0074 00 4 04232 MLP TSX CR,4 TYPE A CARRIAGE RETURN.
03631 0520 00 0 04167 ZET INRUPT WAS THERE AN INTERRUPT.Q
03632 0020 00 0 03660 TRA MXC YES, STOP.
03633 -0500 60 0 03664 CAL* MPTR GET THE ALLEGED AME.
03634 TEQ MDUM,=O777777777777 IS IT THE DUMMY NAME.Q
03634 -0340 00 0 14777 LAS =O777777777777 .002
03635 0020 00 0 03637 TRA *+2 .002
03636 0020 00 0 03645 TRA MDUM .002
03637 0100 00 0 03643 TZE MPR ZERO MEANS (MAIN).
03640 -0320 00 0 14663 ANA =O77400777777 MASK AWAY LARGEST DECREMENT.
03641 -0100 00 0 03647 TNZ GPR NON-ZERO MEANS SUBPROGRAM NAME.
03642 1 77777 1 03613 TXI BPR,1,-1 T.V. SIZE, A NEW SUBPROGRAM.
*
03643 0500 00 0 14773 MPR CLA =H(MAIN) SUBSTITUTE TRADITIONAL NAME.
03644 0020 00 0 03650 TRA WPR GO TYPE IT.
*
03645 0500 00 0 14771 MDUM CLA =H(END) SUBSTITUTE PRINTABLE NAME.
03646 0020 00 0 03650 TRA WPR
*
03647 0500 60 0 03664 GPR CLA* MPTR GET THE NAME AGAIN.
03650 0074 00 4 04313 WPR TSX NAMOUT,4 TYPE THE NAME.
03651 0074 00 4 04234 RDUM TSX TAB,4 TABULATE.
03652 1 77777 1 03653 TXI *+1,1,-1 MOVE INDEX TO ENTRY POINT.
03653 0500 60 0 03664 CLA* MPTR GET THE ENTRY POINT.
03654 0074 00 4 11324 TSX OCTOUT,4 TYPE IT.
03655 1 00003 1 03656 TXI *+1,1,3 MOVE INDEX TO NEXT PAIR OF ENTRIES.
03656 -3 00000 1 03630 MTST TXL MLP,1,.. IF MORE, CONTINUE.
03657 0074 00 4 04232 TSX CR,4 IF NOT, GIVE FINAL CARRIAGE RETURN.
03660 0774 00 4 00000 MXC AXT ..,4 RESTORE THE INDEX REGISTERS.
03661 0774 00 1 00000 MXA AXT ..,1
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 70
MAP. TYPE STORAGE MAP.
03662 0774 00 2 00000 MXB AXT ..,2
03663 0020 00 4 00001 TRA 1,4 EXIT.
*
03664 0 00000 1 00000 MPTR ..,1 POINTER TO CURRENT WORD IN MOVIE).
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 71
CHFIL. CHECK FOR PRELIMINARY INPUT FROM A FILE.
03665 0634 00 4 03706 CHFIL SXA CHXC,4 SAVE RETURN.
03666 0774 00 4 04033 AXT RDFLXA,4 SET UP TO READ FROM CONSOLE.
03667 0634 00 4 03315 SXA TYICW,4
03670 TSS GETCOM GET THE FIRST COMMAND ARGUMENT.
03670 0074 00 4 14474 TSX GETCOM,4 .002
03671 0 00000 0 00001 1
03672 TEQ CHXC,=O777777777777 EXIT IF FIRST ARGUMENT IS FENCE.
03672 -0340 00 0 14777 LAS =O777777777777 .002
03673 0020 00 0 03675 TRA *+2 .002
03674 0020 00 0 03706 TRA CHXC .002
03675 0602 00 0 02411 SLW NAME REMEMBER IT.
03676 0074 00 4 14474 TSX GETCOM,4 GET THE SECOND ARGUMENT.
03677 0 00000 0 00002 2
03700 TNE CHXC,=O777777777777 NO FILE IF MORE THAN ONE ARGUMENT.
03700 -0340 00 0 14777 LAS =O777777777777 .003
03701 0020 00 0 03703 TRA *+2 .003
03702 0020 00 0 03704 TRA *+2 .003
03703 0020 00 0 03706 TRA CHXC .002
03704 0074 00 4 03710 TSX SETF,4 SET UP FOR READING FROM A FILE.
03705 3 00000 0 02411 PAR NAME
03706 0774 00 4 00000 CHXC AXT ..,4 RESTORE XR 4.
03707 0020 00 4 00001 TRA 1,4 EXIT.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 72
SETF. SET UP FOR READING FROM A FILE.
03710 0634 00 4 03731 SETF SXA SETFX,4 SAVE RETURN.
03711 0500 60 4 00001 CLA* 1,4 GET THE FILE NAME.
03712 0601 00 0 03733 STO TYIF SAVE IT.
03713 OPEN (=HR,TYIF,((=H DEBUG)),=-0,=-0,DERR) OPEN THE FILE.
03713 0074 00 4 14457 TSX OPEN,4 .004
03714 3 00000 0 14722 PAR =HR .004
03715 3 00000 0 03733 PAR TYIF .004
03716 3 00000 0 14733 PAR =H DEBUG .004
03717 3 00000 0 14710 PAR =-0 .004
03720 3 00000 0 14710 PAR =-0 .004
03721 3 00000 0 11507 PAR DERR .004
03722 BUFFER (TYIF,((=H DEBUG)),(BUF2,,BUFLTH),DERR)
03722 0074 00 4 14460 TSX BUFFER,4 .004
03723 3 00000 0 03733 PAR TYIF .004
03724 3 00000 0 14733 PAR =H DEBUG .004
03725 3 00660 0 12473 PAR BUF2,,BUFLTH .004
03726 3 00000 0 11507 PAR DERR .004
03727 0774 00 4 03734 AXT READF,4 BUGGER TYI TO READ FROM FILE.
03730 0634 00 4 03315 SXA TYICW,4 ..
03731 0774 00 4 00000 SETFX AXT ..,4 RESTORE RETURN.
03732 0020 00 4 00001 TRA 1,4 EXIT.
*
03733 0 00000 0 00000 TYIF INPUT FILE NAME.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 73
READF. READ LINE FROM FILE.
03734 0634 00 4 03752 READF SXA READX,4 SAVE RETURN.
03735 0500 00 4 00001 CLA 1,4 GET THE CONTROL WORD.
03736 0601 00 0 03744 STO READCW+4 SET UP CALL TO DISK SUPERVISOR.
03737 0621 00 0 03751 STA FIXCW SET UP CARRIAGE RETURN INSERTER.
03740 READCW RDWAIT (TYIF,((=H DEBUG)),=0,(..,,..),RFEND,=-0,RFERR)
03740 0074 00 4 14461 TSX RDWAIT,4 .004
03741 3 00000 0 03733 PAR TYIF .004
03742 3 00000 0 14733 PAR =H DEBUG .004
03743 3 00000 0 14611 PAR =0 .004
03744 3 00000 0 00000 PAR ..,,.. .004
03745 3 00000 0 04024 PAR RFEND .004
03746 3 00000 0 14710 PAR =-0 .004
03747 3 00000 0 04021 PAR RFERR .004
03750 0074 00 4 03754 TSX FIXCR,4 FIX UP THE CARRIAGE RETURN.
03751 3 00000 0 00000 FIXCW PAR ..
03752 0774 00 4 00000 READX AXT ..,4 RESTORE RETURN.
03753 0020 00 4 00002 TRA 2,4 EXIT.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 74
FIXCR. INSERT CR AT END OF LINE READ FROM FILE.
03754 0634 00 4 04011 FIXCR SXA FIXXC,4 SAVE THE XR'S.
03755 0634 00 1 04010 SXA FIXXA,1
03756 0500 00 4 00001 CLA 1,4 GET THE CONTROL WORD.
03757 0400 00 0 14622 ADD =11 COMPUTE ADDRESS OF LAST WORD.
03760 0621 00 0 03765 STA SWD SET UP OUR CAL, SLW, STQ.
03761 0621 00 0 04006 STA SFW
03762 0400 00 0 14612 ADD =1
03763 0621 00 0 04007 STA SRW
03764 0774 00 1 00000 AXT 0,1 BEGIN W/ THE LAST WORD.
03765 -0500 00 1 00000 SWD CAL ..,1 GET THE WORD.
03766 TEQ ALLB,=H IS IT ALL BLANK.Q
03766 -0340 00 0 14746 LAS =H .002
03767 0020 00 0 03771 TRA *+2 .002
03770 0020 00 0 04015 TRA ALLB .002
03771 0774 00 4 00044 AXT 36,4 SET UP COUNT OF 36 BITS.
03772 0560 00 0 14611 SCH LDQ =0 CLEAR THE MQ.
03773 -0765 00 0 00006 LGR 6 GET THE RIGHT-HAND CHARACTER.
03774 -0773 00 0 00006 RQL 6 MOVE IT TO THE RIGHT OF THE MQ.
03775 -0130 00 0 00000 XCL THEN TO THE AC.
03776 TBL STILLB IF A BLANK, GO CHECK THE NEXT.
03776 -0340 00 0 14634 LAS =H00000 .003
03777 0020 00 0 04001 TRA *+2 .003
04000 0020 00 0 04013 TRA STILLB .003
04001 -0130 00 0 00000 XCL RESTORE THE CHARACTERS TO ITS LEFT.
04002 -0773 00 0 00036 RQL 30 GET IT BACK INTO POSITION.
04003 -0763 00 0 00006 LGL 6
04004 0560 00 0 14731 LDQ =O556060606060 GET THE WORD FILLER.
04005 -0763 00 4 00044 LGL 36,4 RESTORE THE WORD.
04006 0602 00 1 00000 SFW SLW ..,1 REPLACE IT.
04007 -0600 00 1 00000 SRW STQ ..,1 REPLACE THE WORD TO ITS RIGHT.
04010 0774 00 1 00000 FIXXA AXT ..,1 RESTORE THE XR'S.
04011 0774 00 4 00000 FIXXC AXT ..,4
04012 0020 00 4 00001 TRA 1,4 EXIT.
*
04013 -0130 00 0 00000 STILLB XCL RESTORE THE TWO HALVES.
04014 1 77772 4 03772 TXI SCH,4,-6 COUNT CHARACTER AND GO GET THE NEXT.
*
04015 1 00001 1 04016 ALLB TXI *+1,1,1 MOVE POINTER TO NEXT WORD.
04016 -3 00014 1 03765 TXL SWD,1,12 IF NOT DONE, GET THE NEXT WORD.
04017 0560 00 0 14731 LDQ =O556060606060 GET THE CARRIAGE RETURN CODE.
04020 0020 00 0 04007 TRA SRW INSERT IT AS THE FIRST WORD.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 75
RESTORE CONSOLE INPUT.
04021 0774 00 4 04033 RFERR AXT RDFLXA,4 ERROR ON READING, SET TO CONSOLE INPUT.
04022 0634 00 4 03315 SXA TYICW,4 ..
04023 0020 00 0 11507 TRA DERR GET DISK DIAGNOSTIC.
*
04024 0774 00 4 04033 RFEND AXT RDFLXA,4 RESTORE TYI TO READ FROM CONSOLE.
04025 0634 00 4 03315 SXA TYICW,4 ..
04026 CLOSE (TYIF,((=H DEBUG)),DERR) CLOSE THE FILE.
04026 0074 00 4 14462 TSX CLOSE,4 .004
04027 3 00000 0 03733 PAR TYIF .004
04030 3 00000 0 14733 PAR =H DEBUG .004
04031 3 00000 0 11507 PAR DERR .004
04032 0534 00 4 03752 LXA READX,4 RESTORE RETURN.
04033 0101 00 0 14720 RDFLXA TIA =HRDFLXA AND CALL RDFLXA.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 76
TYPE LINE OF TEXT TERMINATED BY ASTERISK.
04034 -0625 00 0 04065 TYPE SETF TYPCR SET CARRIAGE RETURN FLAG.
04035 0020 00 0 04037 TRA TYPJ GO TO ROUTINE.
*
04036 0600 00 0 04065 TYPA CLEAR TYPCR CLEAR CARRIAGE RETURN FLAG.
04037 0634 00 4 04061 TYPJ SXA TYPXC,4 SAVE THE INDEX REGISTERS.
04040 0634 00 1 04062 SXA TYPXA,1
04041 0634 00 2 04063 SXA TYPXB,2
04042 0500 00 4 00001 CLA 1,4 GET THE CONTROL WORD.
04043 0737 00 1 00000 PAC ,1 PLACE POINTER TO BCI STRING IN XR 1.
04044 0560 00 1 00000 TYPG LDQ 0,1 GET A WORD FROM CALLER.
04045 0774 00 2 00006 AXT 6,2 PREPARE TO COUNT 6 CHARACTERS.
04046 -0754 00 0 00000 TYPL ZAC CLEAR THE AC.
04047 -0763 00 0 00006 LGL 6 SHIFT A CHARACTER INTO THE AC.
04050 TEQ TYPX,=H00000* STOP IF CHARACTER IS ASTERISK.
04050 -0340 00 0 14632 LAS =H00000* .002
04051 0020 00 0 04053 TRA *+2 .002
04052 0020 00 0 04056 TRA TYPX .002
04053 0074 00 4 04174 TSX TYO,4 TYPE IT.
04054 2 00001 2 04046 TIX TYPL,2,1 COUNT THE CHARACTERS IN THIS WORD.
04055 1 77777 1 04044 TXI TYPG,1,-1 DONE, COUNT THIS WORD.
*
04056 0500 00 0 14633 TYPX CLA =O55 GET A CARRIAGE RETURN.
04057 0520 00 0 04065 ZET TYPCR SHOULD WE TYPE IT.Q
04060 0074 00 4 04174 TSX TYO,4 YES, DO SO.
04061 0774 00 4 00000 TYPXC AXT ..,4 RESTORE THE INDEX REGISTERS.
04062 0774 00 1 00000 TYPXA AXT ..,1
04063 0774 00 2 00000 TYPXB AXT ..,2
04064 0020 00 4 00001 TRA 1,4 EXIT.
*
04065 0 00000 0 00000 TYPCR CARRIAGE RETURN NEEDED FLAG.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 77
SAVQL. SAVE THE INTERRUPT LEVEL SETTINGS.
04066 0634 00 4 04104 SAVQL SXA SAVQXC,4 SAVE THE XR'S.
04067 0634 00 1 04105 SXA SAVQXA,1
04070 0774 00 1 00000 AXT 0,1 RESET POINTER TO TABLE.
04071 SQT TSS SAVBRK GET THE NEXT SETTING.
04071 0074 00 4 14475 TSX SAVBRK,4 .002
04072 0100 00 0 04101 TZE SAVQ2 ZERO MEANS NO MORE.
04073 -0320 00 0 14646 ANA =O77777 GET RID OF GARBAGE.
04074 TEQ SQT,(L(INT)) IGNORE THIS SETTING IF IT IS OURS.
04074 -0340 00 0 04103 LAS L(INT) .002
04075 0020 00 0 04077 TRA *+2 .002
04076 0020 00 0 04071 TRA SQT .002
04077 0601 00 1 04112 STO QLEV-1,1 SAVE IN THE ARRAY.
04100 1 00001 1 04071 TXI SQT,1,1 BUMP POINTER AND GET THE NEXT LEVEL.
*
04101 0634 00 1 04117 SAVQ2 SXA NQL,1 SAVE THE INDEX OF ENTRIES.
04102 TSS SETBRK INSERT OUR ENTRY.
04102 0074 00 4 14476 TSX SETBRK,4 .002
04103 0 00000 0 01570 L(INT) INT ..
04104 0774 00 4 00000 SAVQXC AXT ..,4 RESTORE THE XR'S.
04105 0774 00 1 00000 SAVQXA AXT ..,1 ..
04106 0020 00 4 00001 TRA 1,4 EXIT.
*
04113 QLEV BES 4 STORAGE FOR THE INTERRUPT SETTINGS.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 78
RESQL. RESTORE THE INTERRUPT SETTINGS.
04113 0634 00 4 04137 RESQL SXA RESQXC,4 SAVE THE XR'S.
04114 0634 00 1 04140 SXA RESQXA,1 ..
04115 TSS SAVBRK REMOVE ALL INTERRUPT SETTINGS.
04115 0074 00 4 14475 TSX SAVBRK,4 .002
04116 -0100 00 0 04115 TNZ *-1 ..
04117 0774 00 1 00000 NQL AXT ..,1 GET NUMBER OF ENTRIES IN TABLE.
04120 -3 00002 1 04127 TXL GQL,1,2 IF .LE. 2, IT IS OK.
04121 TYPA 7,(IGNORING OLDEST INTERRUPT SETTING.. *)
04121 0074 00 4 04036 TSX TYPA,4 .002
04122 3 00000 0 14477 PAR ..103 .002
04123 FLDPRT (QLEV,1) ANNOUNCE THE LOCATION.
04123 0500 00 1 04113 CLA QLEV,1 .002
04124 0074 00 4 04361 TSX FLDPRT,4 .002
04125 0074 00 4 04232 TSX CR,4 THEN RETURN.
04126 0774 00 1 00002 AXT 2,1 GET COUNT OF 2.
04127 -3 00000 1 04135 GQL TXL SOQL,1,0 IF USER HAS NONE, SKIP SETTING.
04130 0500 00 1 04113 CLA QLEV,1 OTHERWISE, GET ONE.
04131 0601 00 0 04133 STO RQCW SET UP CONTROL WORD.
04132 TSS SETBRK GIVE IT TO THE SUPERVISOR.
04132 0074 00 4 14476 TSX SETBRK,4 .002
04133 0 00000 0 00000 RQCW .. ..
04134 2 00001 1 04127 TIX GQL,1,1 GET THE REST IF ANY.
04135 SOQL TSS SETBRK INSERT OUR OWN.
04135 0074 00 4 14476 TSX SETBRK,4 .002
04136 0 00000 0 01570 INT ..
04137 0774 00 4 00000 RESQXC AXT ..,4 RESTORE THE XR'S.
04140 0774 00 1 00000 RESQXA AXT ..,1 ..
04141 0020 00 4 00001 TRA 1,4 EXIT.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 79
NOINT. IGNORE INTERRUPT OCCURRING IN DEBUG.
04142 -0625 00 0 04167 NOINT SETF INRUPT SET FLAG TO SHOW INTERRUPT OCCURRED.
04143 0600 00 0 04170 CLEAR INTOV ASSUME OVERFLOW LIGHT NOT ON.
04144 -0140 00 0 04146 TNO *+2 TEST IT.
04145 -0625 00 0 04170 SETF INTOV WAS ON, SET FLAG.
04146 0602 00 0 04171 SLW INTLA SAVE THE LOGICAL AC.
04147 0771 00 0 00002 ARS 2 SHIFT,
04150 0601 00 0 04172 STO INTSA SAVE THE SIGNED AC.
04151 0634 00 4 04165 SXA INTXC,4 SAVE XR 4.
04152 TSS GETBRK GET THE LOCATION OF THE INTERRUPT.
04152 0074 00 4 14371 TSX GETBRK,4 .002
04153 0621 00 0 04166 STA INTTRA SET UP THE TRA.
04154 TSS SETBRK SET UP OUR ENTRY AGAIN.
04154 0074 00 4 14476 TSX SETBRK,4 .002
04155 0 00000 0 01570 INT ..
04156 0500 00 0 04156 CLA * PREPARE TO TURN ON THE OVERFLOW LIGHT.
04157 0767 00 0 00044 ALS 36 TURN IT ON.
04160 0500 00 0 04172 CLA INTSA GET THE SIGNED AC.
04161 0767 00 0 00002 ALS 2 SHIFT IT INTO POSITION.
04162 -0501 00 0 04171 ORA INTLA INSERT THE LOGICAL AC.
04163 -0520 00 0 04170 NZT INTOV SHOULD THE OVERFLOW LIGHT BE ON.Q
04164 0140 00 0 04164 TOV * NO, TURN IT OFF.
04165 0774 00 4 00000 INTXC AXT ..,4 RESTORE XR 4.
04166 0020 00 0 00000 INTTRA TRA .. RETURN TO INTERRUPTED PROGRAM.
*
04167 0 00000 0 00000 INRUPT FLAG.. INTERRUPT HAS OCCURRED.
04170 0 00000 0 00000 INTOV FLAG.. OVERFLOW LIGHT WAS ON.
04171 0 00000 0 00000 INTLA STORAGE FOR THE LOGICAL AC.
04172 0 00000 0 00000 INTSA STORAGE FOR THE SIGNED AC.
04173 0 00000 0 00001 INUSR PZE,1
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 80
TYO. SINGLE CHARACTER OUTPUT.
04174 0634 00 4 04227 TYO SXA OXRC,4 SAVE RETURN.
04175 -0600 00 0 04242 STQ MQ SAVE MQ.
04176 -0320 00 0 14642 ANA =O77 CONSIDER ONLY RIGHT CHARACTER.
04177 0600 00 0 04243 CLEAR PFLAG CLEAR PRINT INDICATOR.
04200 -0340 00 0 14633 LAS =O55 IS IT A CARR. RET.
04201 0020 00 0 04203 TRA *+2 NO, CONTINUE.
04202 -0625 00 0 04243 SETF PFLAG YES, SET PRINT INDICATOR.
04203 -0765 00 0 00006 LGR 6 SHIFT CHARACTER INTO MQ.
04204 -0500 00 0 04244 CAL TYOB GET THE WORD BEING ASSEMBLED.
04205 0140 00 0 04205 TOV * TURN OFF OVERFLOW LIGHT.
04206 -0763 00 0 00006 LGL 6 SHIFT IN NEW CHARACTER.
04207 -0140 00 0 04212 TNO TYOMIW IS THERE ANY MORE ROOM IN THIS WORD.Q
04210 0074 00 4 04245 TSX SWORD,4 NO, STORE IT IN BUFFER.
04211 -0500 00 0 14612 CAL =1 GET EMPTY WORD.
04212 0602 00 0 04244 TYOMIW SLW TYOB RESTORE THE WORD.
04213 -0520 00 0 04243 NZT PFLAG IF PRINT INDICATOR IS OFF,
04214 0020 00 0 04227 TRA OXRC EXIT.
04215 TEQ TYOMT,=1 IS WORD COMPLETELY EMPTY.Q
04215 -0340 00 0 14612 LAS =1 .002
04216 0020 00 0 04220 TRA *+2 .002
04217 0020 00 0 04224 TRA TYOMT .002
04220 0560 00 0 14732 LDQ =O575757575757 NO, GET NULL CHARACTERS.
04221 -0763 00 0 00006 LGL 6 SHIFT ONE INTO WORD.
04222 -0140 00 0 04221 TNO *-1 CONTINUE UNTIL WORD IS FULL.
04223 0074 00 4 04245 TSX SWORD,4 INSERT FILLED WORD INTO BUFFER.
04224 0074 00 4 04260 TYOMT TSX FWORD,4 FORCE OUT THE BUFFER.
04225 -0500 00 0 14612 CAL =1 GET COMPLETELY EMPTY WORD.
04226 0602 00 0 04244 SLW TYOB SAVE THE WORD.
04227 0774 00 4 00000 OXRC AXT ..,4 RESTORE RETURN.
04230 0560 00 0 04242 LDQ MQ AND MQ.
04231 0020 00 4 00001 TRA 1,4 AND EXIT.
*
* CR. TYPE A CARRIAGE RETURN.
04232 0500 00 0 14633 CR CLA =O55 GET THE CODE.
04233 0020 00 0 04174 TRA TYO GO TYPE IT.
*
* TAB. TYPE A TABULATION CHARACTER.
04234 0500 00 0 14640 TAB CLA =O72 GET THE CHARACTER CODE.
04235 0020 00 0 04174 TRA TYO GO TYPE IT.
*
* QUOTE. TYPE A SINGLE QUOTE (APOSTROPHE).
04236 0500 00 0 14623 QUOTE CLA =O14 GET THE CHARACTER CODE.
04237 0020 00 0 04174 TRA TYO GO TYPE IT.
*
04240 0500 00 0 14634 BL CLA,=O60
04241 0020 00 0 04174 TRA,TYO
*
04242 0 00000 0 00000 MQ
04243 0 00000 0 00000 PFLAG
04244 0 00000 0 00001 TYOB 1 WORD INITIALLY EMPTY.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 81
SWORD. INSERT WORD IN OUTPUT BUFFER.
04245 0634 00 4 04256 SWORD SXA SWXC,4 SAVE RETURN INDEX.
04246 0535 00 4 04271 LAC SWBUF,4 GET CURRENT BUFFER POINTER.
04247 1 77777 4 04250 TXI *+1,4,-1 BUMP TO POINT TO NEXT WORD.
04250 0636 00 4 04271 SCA SWBUF,4 REPLACE POINTER FOR NEXT TIME.
04251 0602 00 4 04271 SLW SWBUF,4 INSERT THIS WORD INTO BUFFER.
04252 3 77762 4 04256 TXH SWXC,4,-14 IS THERE ANY MORE ROOM IN BUFFER.Q
04253 TSS WRFLXA NO, TYPE OUT THE BUFFER.
04253 0074 00 4 14506 TSX WRFLXA,4 .002
04254 3 00016 0 04272 PAR SWBUF+1,,14 ..
04255 0600 00 0 04271 STZ SWBUF RESET CURRENT WORD INDEX.
04256 0774 00 4 00000 SWXC AXT ..,4 RESTORE RETURN INDEX.
04257 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 82
FWORD. FORCE OUT OUTPUT BUFFER.
04260 0634 00 4 04267 FWORD SXA FWXC,4 SAVE RETURN INDEX.
04261 0534 00 4 04271 LXA SWBUF,4 GET POINTER TO CURRENT WORD IN BUFFER.
04262 -3 00000 4 04267 TXL FWXC,4,0 IF EMPTY, IGNORE CALL.
04263 -0634 00 4 04265 SXD FWCW,4 IF NOT EMPTY, SET UP CONTROL WORD.
04264 TSS WRFLXA TYPE OUT THE BUFFER.
04264 0074 00 4 14506 TSX WRFLXA,4 .002
04265 3 00000 0 04272 FWCW PAR SWBUF+1,,.. ..
04266 0600 00 0 04271 STZ SWBUF RESET CURRENT WORD POINTER.
04267 0774 00 4 00000 FWXC AXT ..,4 RESTORE RETURN INDEX.
04270 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
04271 0 00000 0 00000 SWBUF OUTPUT BUFFER.
04272 BSS 14 ..
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 83
TYPE UP TO SIX CHARACTERS IN AC.
* BCDOUT. TYPE ALL SIX CHARACTERS IN AC.
04310 3 00000 1 11323 BCDCK1 TXH,FOCT,1,0
04311 0600 00 0 04360 BCDOUT CLEAR,BOIG
04312 0020 00 0 04314 TRA BOJN GO JOIN NAMOUT.
*
* NAMOUT. TYPE NON-BLANK CHARACTERS IN AC.
04313 -0625 00 0 04360 NAMOUT SETF BOIG SET FLAG.. IGNORE BLANKS.
04314 0634 00 4 04330 BOJN SXA BOXC,4 SAVE RETURN INDEX.
04315 0634 00 1 04331 SXA BOXA,1 ..
04316 0131 00 0 00000 XCA MOVE INPUT TO MQ.
04317 0774 00 1 00006 AXT 6,1 SET UP COUNT OF SIX CHARACTERS.
04320 -0754 00 0 00000 BOLP ZAC CLEAR THE AC.
04321 -0763 00 0 00006 LGL 6 GET THE NEXT CHARACTER.
04322 0520 00 0 04360 ZET BOIG SHOULD WE TEST IT FOR BLANK.Q
04323 TBL *+2 YES, WE SHOULD. IS IT.Q
04323 -0340 00 0 14634 LAS =H00000 .003
04324 0020 00 0 04326 TRA *+2 .003
04325 0020 00 0 04327 TRA *+2 .003
04326 0074 00 4 04174 TSX TYO,4 WE SHOULD TYPE IT. DO SO.
04327 2 00001 1 04320 TIX BOLP,1,1 COUNT THIS CHARACTER.
04330 0774 00 4 00000 BOXC AXT ..,4 RESTORE RETURN INDEX.
04331 0774 00 1 00000 BOXA AXT ..,1 ..
04332 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 84
BCDIN. BCD INPUT.
04333 0634 00 4 04355 BCDIN SXA BCDIX,4
04334 0634 00 1 04356 SXA,BCDIX1,1
04335 -0500 00 0 14746 CAL =H GET BLANKS.
04336 0602 00 0 11471 SLW BUFF AND PUT THEM IN ASSEMBLY REGISTER.
04337 0774 00 1 00006 AXT,6,1
*
04340 -0625 00 0 03331 BCDCH STL,BLFLAG
04341 0074 00 4 03233 TSX TYI,4 GET A CHARACTER.
04342 0600 00 0 03331 STZ,BLFLAG
04343 TCR BCDPT IF CARRIAGE RETRUN, STOP.
04343 -0340 00 0 14633 LAS =O55 .003
04344 0020 00 0 04346 TRA *+2 .003
04345 0020 00 0 04354 TRA BCDPT .003
04346 -0765 00 0 00006 LGR 6 SHIFT AND SAVE THE CHARACTER.
04347 -0500 00 0 11471 CAL BUFF GET THE ASSEMBLY WORD.
04350 -0763 00 0 00006 LGL 6 SHIFT IN THE NEW CHARACTER.
04351 0602 00 0 11471 SLW BUFF AND RESTORE THE WORD.
04352 2 00001 1 04340 TIX,BCDCH,1,1
04353 0074 00 4 05136 TSX,BCSCH,4
*
04354 0560 00 0 11471 BCDPT LDQ BUFF DONE, GET THE WORD.
04355 0774 00 4 00000 BCDIX AXT ..,4
04356 0774 00 1 00000 BCDIX1 AXT,**,1
04357 0020 00 4 00001 TRA 1,4
*
04360 0 00000 0 00000 BOIG FLAG.. IGNORE BLANKS.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 85
FLDPRT. SYMBOLIC FIELD PRINTING ROUTINE.
*
* PRINT THE VALUE OF THE ADDRESS OF THE AC. THE FLAGS
* WHICH MAY BE SET WILL ALTER THE FORMAT OF THE OUTPUT-
* OFLAG FIELD IS OCTAL
* RFLAG LOCATIONS ABOVE MEMBND ARE OCTAL, NO
* NEGATIVE CORRECTION FACTORS
* KFLAG ADDRESSES ABOVE 77770 PRINTED AS
* NEGATIVE, MAXIMUM CORRECTION FACTOR THAT
* WILL BE USED IS IN 'MAXOFF'
* SFLAG ASTERISK CONVENTION USED (TO *+3 OR *-3)
* POFLAG USED WITH KFLAG TO INDICATE NO SYMBOL
* WILL BE USED
*
04361 0634 00 4 04425 FLDPRT SXA FLDXC,4
04362 -0320 00 0 14646 ANA =O77777 GET RID OF GARBAGE.
04363 0601 00 0 04472 STO,FLDCOR
04364 0520 00 0 04460 ZET,OFLAG
04365 0020 00 0 04423 TRA,FLDOCT
04366 -0340 00 0 14616 LAS,=O7
04367 0020 00 0 04372 TRA,*+3
04370 0020 00 0 04423 TRA,FLDOCT
04371 0020 00 0 04423 TRA,FLDOCT
04372 0520 00 0 04462 ZET,RFLAG
04373 0020 00 0 04454 TRA,TSTMB1
04374 0520 00 0 04461 ZET,KFLAG
04375 0020 00 0 04427 TRA,MINUS
04376 0074 00 4 05456 GOWAY TSX SYMBCD,4 GET SYMBOL (MQ) + CORRECTION (AC).
04377 0520 00 0 04464 ZET,SFLAG
04400 -0100 00 0 04440 TNZ,SEEIF
04401 -0520 00 0 04461 NZT,KFLAG
04402 0020 00 0 04406 TRA,YES
04403 -0340 00 0 04471 LAS,MAXOFF
04404 0020 00 0 04423 TRA,FLDOCT
04405 0020 00 0 04406 TRA,*+1
04406 0601 00 0 04472 YES STO FLDCOR SAVE CORRECTION.
04407 -0600 00 0 04470 STQ PLS SAVE THE SYMBOL.
04410 0131 00 0 00000 XCA MOVE IT TO THE AC.
04411 0074 00 4 04313 TSX NAMOUT,4 TYPE THE SYMBOL.
04412 -0500 00 0 04470 CAL PLS GET THE SYMBOL.
04413 TEQ FLDOCT,=H IS IT ALL BLANK.Q
04413 -0340 00 0 14746 LAS =H .002
04414 0020 00 0 04416 TRA *+2 .002
04415 0020 00 0 04423 TRA FLDOCT .002
04416 0500 00 0 04472 CLA FLDCOR NO, IS THE CORRECTION ZERO.Q
04417 0100 00 0 04425 TZE FLDXC YES, WE ARE DONE.
04420 -0120 00 0 04423 TMI FLDOCT NO, WILL OCTOUT TYPE A MINUS SIGN.Q
04421 TYO =H00000+ NO, WE NEED A PLUS SIGN.
04421 0500 00 0 14625 CLA =H00000+ .002
04422 0074 00 4 04174 TSX TYO,4 .002
04423 FLDOCT OCTOUT FLDCOR NOW TYPE THE 'CORRECTION' FACTOR.
04423 0500 00 0 04472 CLA FLDCOR .002
04424 0074 00 4 11324 TSX OCTOUT,4 .002
04425 0774 00 4 00000 FLDXC AXT ..,4
04426 0020 00 4 00001 TRA 1,4
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 86
FLDPRT. SYMBOLIC FIELD PRINTING ROUTINE.
04427 -0340 00 0 14645 MINUS LAS,=O77770
04430 0020 00 0 04435 TRA,FIX
04431 0020 00 0 04435 TRA,FIX
04432 -0520 00 0 04463 NZT,POFLAG
04433 0020 00 0 04376 TRA,GOWAY
04434 0020 00 0 04440 TRA,SEEIF
*
04435 0402 00 0 14647 FIX SUB,=32768
04436 0601 00 0 04472 STO,FLDCOR
04437 0020 00 0 04423 TRA,FLDOCT
*
04440 0601 00 0 04467 SEEIF STO,TAC
04441 -0500 00 0 04472 CAL,FLDCOR
04442 0402 00 0 02106 SUB,DMPL
04443 -0340 00 0 14614 LAS,=3
04444 0020 00 0 04450 TRA,NO
04445 0020 00 0 04446 TRA,*+1
04446 0560 00 0 14745 LDQ,=H *
04447 0020 00 0 04406 TRA,YES
*
04450 0500 00 0 04467 NO CLA,TAC
04451 -0520 00 0 04463 NZT,POFLAG
04452 0020 00 0 04401 TRA,GOWAY+3
04453 0020 00 0 04423 TRA,FLDOCT
*
04454 -0340 00 0 02176 TSTMB1 LAS,MEMBD1
04455 0020 00 0 04423 TRA,FLDOCT
04456 0020 00 0 04423 TRA,FLDOCT
04457 0020 00 0 04376 TRA,GOWAY
*
* FORMAT FLAGS. DEBUG IS INITIALIZED IN 'R' MODE
*
04460 0 00000 0 00000 OFLAG
04461 0 00000 0 00000 KFLAG
04462 0 00000 0 00001 RFLAG PZE,1
04463 0 00000 0 00000 POFLAG
04464 0 00000 0 00001 SFLAG PZE,1
04465 0 00000 0 00001 SMODE PZE,1
04466 0 00000 0 00000 NMODE
*
04467 0 00000 0 00000 TAC
*
04470 0 00000 0 00000 PLS STORAGE FOR THE SYMBOL.
04471 0 00000 0 00017 MAXOFF PZE,15
04472 0 00000 0 00000 FLDCOR 'CORRECTION FACTOR' TO SYMBOL.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 87
N, S, U
*
* SET FORMAT SWITCHES FOR 'NICE', 'SYMBOLIC'
* AND 'UGLY' MODES
*
*
*
04473 -0625 00 0 04464 N STL,SFLAG
04474 -0625 00 0 04461 STL,KFLAG
04475 0600 00 0 04462 STZ,RFLAG
04476 -0625 00 0 04460 STL,OFLAG
04477 -0625 00 0 04463 STL,POFLAG
04500 0600 00 0 04465 STZ,SMODE
04501 -0625 00 0 04466 STL,NMODE
04502 0020 00 0 01660 TRA,LOOK
*
*
*
04503 -0625 00 0 04461 S STL,KFLAG
04504 0600 00 0 04464 STZ,SFLAG
04505 0600 00 0 04462 STZ,RFLAG
04506 0600 00 0 04460 STZ,OFLAG
04507 0600 00 0 04463 STZ,POFLAG
04510 0600 00 0 04466 STZ,NMODE
04511 -0625 00 0 04465 STL,SMODE
04512 0020 00 0 01660 TRA,LOOK
*
*
*
04513 0600 00 0 04461 U STZ,KFLAG
04514 0600 00 0 04464 STZ,SFLAG
04515 0600 00 0 04462 STZ,RFLAG
04516 0600 00 0 04460 STZ,OFLAG
04517 0600 00 0 04463 STZ,POFLAG
04520 0600 00 0 04466 STZ,NMODE
04521 0600 00 0 04465 STZ,SMODE
04522 0020 00 0 01660 TRA,LOOK
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 88
LOCATE A WORD IN CORE
*
* USING A MASK AND OPERATION CODE, THE USER CAN SEARCH
* CORE FOR A GIVEN WORD
*
04523 0500 00 0 02556 LCATE CLA,BC
04524 TCR,DOSLSH
04524 -0340 00 0 14633 LAS =O55 .003
04525 0020 00 0 04527 TRA *+2 .003
04526 0020 00 0 04616 TRA DOSLSH .003
04527 0074 00 4 05201 TSX,FLDEVL,4
04530 -0600 00 0 04655 STQ,SLOCA
04531 TCR,DOSLSH
04531 -0340 00 0 14633 LAS =O55 .003
04532 0020 00 0 04534 TRA *+2 .003
04533 0020 00 0 04616 TRA DOSLSH .003
04534 0074 00 4 05201 TSX,FLDEVL,4
04535 -0600 00 0 04656 STQ,SLOCB
04536 TCR,DOSLSH
04536 -0340 00 0 14633 LAS =O55 .003
04537 0020 00 0 04541 TRA *+2 .003
04540 0020 00 0 04616 TRA DOSLSH .003
*
04541 0074 00 4 05136 TSX,BCSCH,4
04542 -0130 00 0 00000 XCL
04543 0774 00 4 04637 AXT,NOWOW,4
04544 0634 00 4 04634 SXA,SCHG,4
04545 0634 00 4 04635 SXA,SCHE,4
04546 0634 00 4 04636 SXA,SCHL,4
*
04547 0774 00 4 04644 AXT,WOW,4
04550 -0340 00 0 14743 LAS,=H .L.
04551 0020 00 0 04603 TRA,TOUGH
04552 0634 00 4 04636 SXA,SCHL,4
04553 -0340 00 0 14742 LAS,=H .G.
04554 0020 00 0 04603 TRA,TOUGH
04555 0634 00 4 04634 SXA,SCHG,4
04556 -0340 00 0 14741 LAS,=H .E.
04557 0020 00 0 04603 TRA,TOUGH
04560 0634 00 4 04635 SXA,SCHE,4
04561 -0340 00 0 14737 LAS,=H .NE.
04562 0020 00 0 04603 TRA,TOUGH
04563 0020 00 0 04565 TRA,*+2
04564 0020 00 0 04567 TRA,SETSL1
04565 0634 00 4 04636 SXA,SCHL,4
04566 0634 00 4 04634 SXA,SCHG,4
04567 -0340 00 0 14736 SETSL1 LAS,=H .LE.
04570 0020 00 0 04603 TRA,TOUGH
04571 0020 00 0 04573 TRA,*+2
04572 0020 00 0 04575 TRA,SETSL2
04573 0634 00 4 04636 SXA,SCHL,4
04574 0634 00 4 04635 SXA,SCHE,4
04575 -0340 00 0 14735 SETSL2 LAS,=H .GE.
04576 0020 00 0 04603 TRA,TOUGH
04577 0020 00 0 04601 TRA,*+2
04600 0020 00 0 04603 TRA,TOUGH
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 89
LOCATE A WORD IN CORE
04601 0634 00 4 04634 SXA,SCHG,4
04602 0634 00 4 04635 SXA,SCHE,4
*
04603 -0130 00 0 00000 TOUGH XCL
04604 TCR,DOSLSH
04604 -0340 00 0 14633 LAS =O55 .003
04605 0020 00 0 04607 TRA *+2 .003
04606 0020 00 0 04616 TRA DOSLSH .003
*
04607 0074 00 4 00117 TSX,SYMIN,4
04610 -0600 00 0 04657 STQ,LFOR
04611 TCR,RSTMSK
04611 -0340 00 0 14633 LAS =O55 .003
04612 0020 00 0 04614 TRA *+2 .003
04613 0020 00 0 04652 TRA RSTMSK .003
04614 0074 00 4 02672 TSX,OCTIN,4
04615 -0600 00 0 04660 STQ,MASKSL
*
04616 -0500 00 0 04657 DOSLSH CAL,LFOR
04617 -0320 00 0 04660 ANA,MASKSL
04620 0602 00 0 04657 SLW,LFOR
*
04621 -0500 00 0 04655 SLOOP CAL,SLOCA
04622 0621 00 0 04631 STA,SLGET
04623 -0340 00 0 00116 LAS,MEMBND
04624 0020 00 0 04625 TRA,*+1
04625 0020 00 0 02515 TRA,LLM
04626 0621 00 0 00235 STA,LOC
*
04627 0361 00 0 14612 ACL,=1
04630 0621 00 0 04655 STA,SLOCA
*
04631 -0500 00 0 00000 SLGET CAL,**
04632 -0320 00 0 04660 ANA,MASKSL
04633 -0340 00 0 04657 LAS,LFOR
04634 0020 00 0 04637 SCHG TRA,NOWOW
04635 0020 00 0 04644 SCHE TRA,WOW
04636 0020 00 0 04637 SCHL TRA,NOWOW
*
04637 -0500 00 0 04655 NOWOW CAL,SLOCA
04640 -0340 00 0 04656 LAS,SLOCB
04641 0020 00 0 04647 TRA,SLNO
04642 0020 00 0 04621 TRA,SLOOP
04643 0020 00 0 04621 TRA,SLOOP
*
* CRITERION MET, REPORT TO USER
*
04644 -0500 00 0 00235 WOW CAL,LOC
04645 0074 00 4 02015 TSX,DUMP,4
04646 0020 00 0 00046 TRA,MAIN
*
* NO APPROPRIATE WORD FOUND, TELL USER ABOUT IT
*
04647 SLNO TYPE,6,(NO WORD SATISFIES REQUIREMENT.*)
04647 0074 00 4 04034 TSX TYPE,4 .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 90
LOCATE A WORD IN CORE
04650 3 00000 0 14507 PAR ..104 .002
04651 0020 00 0 00046 TRA,MAIN
*
*
04652 -0500 00 0 14777 RSTMSK CAL,=O777777777777
04653 0602 00 0 04660 SLW,MASKSL
04654 0020 00 0 04616 TRA,DOSLSH
*
*
*
04655 0 00000 0 00000 SLOCA
04656 0 00000 0 27721 SLOCB PZE,77777
04657 0 00000 0 00000 LFOR
04660 777777777777 MASKSL VFD,O36//
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 91
EXECUTE CTSS COMMANDS
*
* COMMAND CHAINING IS SAVED BY EXTENDING THE MEMORY BOUND BY
* SIXTY WORDS, IF POSSIBLE. THE CURRENT CORE IMAGE
* IS SAVED IN (BUG) SAVED, THE DESIRED COMMAND
* EXECUTED AND (BUG) RESUMED.
*
04661 0520 00 0 00620 XECUTE ZET,NOGO
04662 0020 00 0 05026 TRA,DONT.
04663 0500 00 0 02556 CLA,BC
04664 TCR,MAIN
04664 -0340 00 0 14633 LAS =O55 .003
04665 0020 00 0 04667 TRA *+2 .003
04666 0020 00 0 00046 TRA MAIN .003
04667 0774 00 1 00024 AXT,20,1
*
04670 0074 00 4 05136 XLOOP TSX,BCSCH,4
04671 -0600 00 1 05012 STQ,XBOT,1
04672 1 77777 1 04673 TXI,*+1,1,-1
04673 TCR,DOX
04673 -0340 00 0 14633 LAS =O55 .003
04674 0020 00 0 04676 TRA *+2 .003
04675 0020 00 0 04677 TRA DOX .003
04676 3 00001 1 04670 TXH,XLOOP,1,1
*
04677 -0500 00 0 05012 DOX CAL,XFENCE
04700 0602 00 1 05012 SLW,XBOT,1
*
* SAVE THE CHAINING
*
04701 TSS,GETMEM
04701 0074 00 4 14311 TSX GETMEM,4 .002
04702 0621 00 0 05015 STA,OLDMEM
04703 0621 00 0 04724 STA,XBUFA
04704 0621 00 0 04754 STA,XB12
04705 0361 00 0 14626 ACL,=20
04706 0621 00 0 04726 STA,XBUFB
04707 0621 00 0 04756 STA,XB22
04710 0361 00 0 14626 ACL,=20
04711 0621 00 0 04730 STA,XBUFC
04712 0621 00 0 04760 STA,XB32
04713 0361 00 0 14626 ACL,=20
04714 0600 00 0 05014 STZ,XRESET
04715 -0340 00 0 05013 LAS,XTOP
04716 0020 00 0 04732 TRA,XFORG
04717 0020 00 0 04720 TRA,*+1
04720 TSS,SETMEM
04720 0074 00 4 14515 TSX SETMEM,4 .002
04721 TSS,GETCLC
04721 0074 00 4 14516 TSX GETCLC,4 .002
04722 0601 00 0 05016 STO,SAVCLC
04723 TSS,GETCLS
04723 0074 00 4 14517 TSX GETCLS,4 .002
04724 0 00000 0 00000 XBUFA PZE,**,,0
04725 TSS,GETCLS
04725 0074 00 4 14517 TSX GETCLS,4 .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 92
EXECUTE CTSS COMMANDS
04726 0 00001 0 00000 XBUFB PZE,**,,1
04727 TSS,GETCLS
04727 0074 00 4 14517 TSX GETCLS,4 .002
04730 0 00002 0 00000 XBUFC PZE,**,,2
04731 0020 00 0 04733 TRA,*+2
04732 -0625 00 0 05014 XFORG STL,XRESET
04733 TSS,SETCLS
04733 0074 00 4 14520 TSX SETCLS,4 .002
04734 0 00000 0 05017 PZE,XSAVE,,0
04735 TSS,SETCLS
04735 0074 00 4 14520 TSX SETCLS,4 .002
04736 0 00001 0 04766 PZE,XUSER,,1
04737 TSS,SETCLS
04737 0074 00 4 14520 TSX SETCLS,4 .002
04740 0 00002 0 05023 PZE,XRESUM,,2
04741 0500 00 0 14651 CLA,=O2000001
04742 TSS,SETCLC
04742 0074 00 4 14521 TSX SETCLC,4 .002
04743 -0500 00 0 05017 CAL,XSAVE
04744 0560 00 0 05020 LDQ,XSAVE+1
04745 TSS,NEXCOM
04745 0074 00 4 14522 TSX NEXCOM,4 .002
*
04746 0074 00 4 04232 TSX,CR,4
04747 TYPE,3,(DEBUG RESUMED.*)
04747 0074 00 4 04034 TSX TYPE,4 .002
04750 3 00000 0 14523 PAR ..105 .002
04751 0520 00 0 05014 ZET,XRESET
04752 0020 00 0 00046 TRA,MAIN
04753 TSS,SETCLS
04753 0074 00 4 14520 TSX SETCLS,4 .002
04754 0 00000 0 00000 XB12 PZE,**,,0
04755 TSS,SETCLS
04755 0074 00 4 14520 TSX SETCLS,4 .002
04756 0 00001 0 00000 XB22 PZE,**,,1
04757 TSS,SETCLS
04757 0074 00 4 14520 TSX SETCLS,4 .002
04760 0 00002 0 00000 XB32 PZE,**,,2
04761 0500 00 0 05016 CLA,SAVCLC
04762 TSS,SETCLC
04762 0074 00 4 14521 TSX SETCLC,4 .002
*
04763 -0500 00 0 05015 CAL,OLDMEM
04764 TSS,SETMEM
04764 0074 00 4 14515 TSX SETMEM,4 .002
04765 0020 00 0 00046 TRA,MAIN
*
*
*
04766 XUSER BSS,20
05012 XBOT EQU,*
*
05012 777777777777 XFENCE VFD,O36//
05013 +000000077777 XTOP OCT,77777
05014 0 00000 0 00000 XRESET
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 93
EXECUTE CTSS COMMANDS
05015 0 00000 0 00000 OLDMEM
05016 0 00000 0 00000 SAVCLC
05017 606062216525 XSAVE BCI,3, SAVE (BUG) T
05020 607422642734
05021 606060606063
05022 777777777777 VFD,O36//
05023 512562644425 XRESUM BCI,2,RESUME (BUG)
05024 607422642734
05025 777777777777 VFD,O36//
*
* DON'T DO IT IF THERE WAS AN ERROR
*
05026 DONT. TYPE,2,(. IGNORED.*)
05026 0074 00 4 04034 TSX TYPE,4 .002
05027 3 00000 0 14526 PAR ..106 .002
05030 0020 00 0 02552 TRA,OOPS
*
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 94
RETURN TO A SUBROUTINE
*
* IF ENTRY TO DEBUG WAS THROUGH 'FBUG', THIS ALLOWS USER
* TO RETURN TO CALLING SUBROUTINE.
*
05031 -0520 00 0 05047 LEAVEF NZT,BYSUBR
05032 0020 00 0 05044 TRA,WONTDO
05033 0600 00 0 05047 STZ,BYSUBR
05034 TYPE,3,(EXIT FROM DEBUG.*)
05034 0074 00 4 04034 TSX TYPE,4 .002
05035 3 00000 0 14530 PAR ..107 .002
05036 0074 00 4 00751 TSX,BRKSET,4
05037 0074 00 4 05757 TSX,RESMC,4
05040 0600 00 0 05047 STZ,BYSUBR
05041 -0625 00 0 04173 STL,INUSR
05042 0774 00 4 00000 RETNBG AXT,**,4
05043 0021 00 4 00001 XIT,1,4
*
*
05044 WONTDO TYPE,5,(ATTEMPTED RETURN ILLEGAL.*)
05044 0074 00 4 04034 TSX TYPE,4 .002
05045 3 00000 0 14533 PAR ..108 .002
05046 0020 00 0 00046 TRA,MAIN
*
*
*
05047 0 00000 0 00000 BYSUBR
*
*
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 95
SYMPRT. SYMBOLIC WORD PRINTING ROUTINE.
* SYMBOLIC WORD PRINT ROUTINE FOR FAP DEBUG II
* ENTER WITH WORD IN LOGICAL AC.
* PRINTS SYMBOLIC OP. CODE, ADDRESS, TAG, AND DECREMENT IN THE
* FORM.. ADD* FOO+100,4
05050 0634 00 4 05122 SYMPRT SXA SPXC,4
05051 0601 00 0 05135 STO SPWD SAVE THE WORD.
05052 0600 00 0 05133 CLEAR DECFLD CLEAR INDICATOR.
05053 -0500 00 0 05135 CAL SPWD GET WORD (THIS TIME IN LOG. AC.).
05054 0074 00 4 13353 TSX OPBCD,4 GET THE BCD OP. CODE.
05055 0322 00 0 05135 ERA SPWD CLEAR BITS ACCOUNTED FOR.
05056 0602 00 0 02557 SLW WORD
05057 0131 00 0 00000 XCA MOVE SYMBOL TO AC.
05060 0074 00 4 04313 TSX NAMOUT,4 TYPE THE SYMBOL.
05061 -0500 00 0 02557 CAL WORD
05062 -0320 00 0 14664 ANA =O77777000000 SAVE DECREMENT.
05063 TEQ IND,=O60000000
05063 -0340 00 0 14654 LAS =O60000000 .002
05064 0020 00 0 05066 TRA *+2 .002
05065 0020 00 0 05124 TRA IND .002
05066 NOFLG TYO =H00000 PRINT BLANK.
05066 0500 00 0 14634 CLA =H00000 .002
05067 0074 00 4 04174 TSX TYO,4 .002
05070 0520 00 0 04466 ZET,NMODE
05071 0600 00 0 04460 STZ,OFLAG
05072 0520 00 0 04465 ZET,SMODE
05073 -0625 00 0 04464 STL,SFLAG
05074 FLDPRT WORD TYPE THE ADDRESS FIELD.
05074 0500 00 0 02557 CLA WORD .002
05075 0074 00 4 04361 TSX FLDPRT,4 .002
05076 -0500 00 0 02557 CAL WORD
05077 0622 00 0 05133 STD DECFLD
05100 0771 00 0 00017 ARS 15
05101 -0320 00 0 14616 ANA =7 SAVE TAG.
05102 0602 00 0 05134 SLW SPTAG
05103 -0100 00 0 05106 TNZ INSTAG IF TAG IS NOT ZERO, INSERT IT.
05104 -0520 00 0 05133 NZT DECFLD IF DECREMENT REQUIRED, INSERT TAG.
05105 0020 00 0 05122 TRA SPXC OTHERWISE BYPASS.
05106 INSTAG TYO (=H00000,)
05106 0500 00 0 14641 CLA =H00000, .002
05107 0074 00 4 04174 TSX TYO,4 .002
05110 FLDPRT SPTAG PRINT THE TAG.
05110 0500 00 0 05134 CLA SPTAG .002
05111 0074 00 4 04361 TSX FLDPRT,4 .002
05112 -0520 00 0 05133 NZT DECFLD
05113 0020 00 0 05122 TRA SPXC
05114 TYO (=H00000,)
05114 0500 00 0 14641 CLA =H00000, .002
05115 0074 00 4 04174 TSX TYO,4 .002
05116 -0500 00 0 02557 CAL WORD
05117 0771 00 0 00022 ARS 18
05120 -0320 00 0 14646 ANA =O77777
05121 0074 00 4 04361 TSX FLDPRT,4 PRINT THE DECREMENT FIELD.
05122 0774 00 4 00000 SPXC AXT ..,4
05123 0020 00 4 00001 TRA 1,4
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 96
SYMPRT. SYMBOLIC WORD PRINTING ROUTINE.
05124 -0500 00 0 05135 IND CAL SPWD GET THE ORIGINAL INPUT WORD.
05125 -0320 00 0 14704 ANA =O300000000000 MASK OFF THE PREFIX, LESS SIGN.
05126 -0100 00 0 05066 TNZ NOFLG IF EITHER BIT ON, DON'T TYPE *.
05127 TYO =H00000* BOTH BITS OFF, ASSUME TYPE B.
05127 0500 00 0 14632 CLA =H00000* .002
05130 0074 00 4 04174 TSX TYO,4 .002
05131 -0634 00 0 02557 ZSD WORD CLEAR DECREMENT.
05132 0020 00 0 05066 TRA NOFLG GO BACK.
*
05133 0 00000 0 00000 DECFLD DECREMENT FIELD OF THE WORD.
05134 0 00000 0 00000 SPTAG TAG FIELD OF THE OUTPUT WORD.
05135 0 00000 0 00000 SPWD THE ORIGINAL SRGUMENT.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 97
BCSCH. BREAK CHARACTER SEARCHING ROUTINE.
* SEARCHES INPUT BUFFER FOR ONE OF THE BREAK CHARACTERS. RETURNS
* WITH LAST SIX CHARACTERS (LEADING BLANKS) IN MQ, BREAK CHARACTER
* IN AC, SIGN MINUS(=1) IF ANY OF THE CHARACTERS SEEN WAS NOT
* NUMERIC (IE 0 - 7).
05136 0634 00 4 05164 BCSCH SXA BCEND,4
05137 0600 00 0 05173 CLEAR BCFLG CLEAR FLAG (INDICATE NUMERIC FIELD).
05140 -0500 00 0 14746 CAL =H
05141 0602 00 0 05174 SLW BCSYM SET WORD TO BLANKS.
05142 0074 00 4 03233 BCRET TSX TYI,4 GET THE NEXT CHARACTER.
05143 0774 00 4 00005 AXT BCTAB-BCORG,4 SEARCH BREAK CHARACTER TABLE.
05144 -0340 00 4 05173 BCLK LAS BCTAB,4
05145 0020 00 0 05147 TRA *+2
05146 0020 00 0 05160 TRA BCBRK LEAVE IF BREAK CHARACTER.
05147 2 00001 4 05144 TIX BCLK,4,1
05150 -0765 00 0 00006 LGR 6 NOT A BREAK CHARACTER.
05151 -0500 00 0 05174 CAL BCSYM
05152 -0763 00 0 00006 LGL 6 SHIFT INTO WORD.
05153 0602 00 0 05174 SLW BCSYM
05154 -0320 00 0 14637 ANA =O70 IF IT IS NUMERIC,
05155 0100 00 0 05142 TZE BCRET GO BACK.
05156 0602 00 0 05173 SLW BCFLG OTHERWISE SET FLAG AND.
05157 0020 00 0 05142 TRA BCRET THEN GO BACK.
*
05160 0760 00 0 00003 BCBRK SSP
05161 0520 00 0 05173 ZET BCFLG IF NOT NUMERIC,
05162 -0760 00 0 00003 SSM SET SIGN TO 1 AS INDICATOR.
05163 0560 00 0 05174 LDQ BCSYM PICK UP WORD IN MQ.
05164 0774 00 4 00000 BCEND AXT,..,4
05165 0020 00 4 00001 TRA,1,4
*
05166 000000000020 BCORG BCI 4,00000+00000-00000,00000
05167 000000000040
05170 000000000073
05171 000000000060
05172 +000000000055 OCT 55 CARRIAGE RETURN.
05173 BCTAB EQU * TABLE OF BREAK CHARACTERS.
05173 0 00000 0 00000 BCFLG FLAG.. FIELD NOT ENTIRELY NUMERIC.
05174 0 00000 0 00000 BCSYM ASSEMBLED SYMBOL.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 98
FLDEVL. FIELD EVALUATION ROUTINE.
* EVALUATE A FIELD OF SYMBOLS AND OCTAL NUMBERS SEPARATED BY +
* AND - SIGNS UNTIL IT ENCOUNTERS ANOTHER BREAK CHARACTER OR AN
* UNDEFINED SYMBOL.
* RETURNS WITH FIELD VALUE
* (IN 2'S COMPLEMENT FORM) IN MQ, BREAK CHARACTER IN AC.
05175 0634 00 4 05242 EVAL SXA EVEND,4 SAVE RETURN INDEX.
05176 0600 00 0 05277 STZ EVTOT CLEAR FIELD VALUE.
05177 0600 00 0 05300 CLEAR EVSGN ASSUME INITIAL PLUS SIGN.
05200 0020 00 0 05205 TRA EVGO USE INITIAL DATA IN AC - MQ.
*
05201 0634 00 4 05242 FLDEVL SXA EVEND,4 SAVE RETURN INDEX.
05202 0600 00 0 05277 STZ EVTOT
05203 0600 00 0 05300 CLEAR EVSGN
05204 0074 00 4 05136 EVRET TSX BCSCH,4 GET NEXT SYMBOL, BREAK CHARACTER.
05205 0602 00 0 05301 EVGO SLW EVBC SAVE BREAK CHARACTER.
05206 0120 00 0 05264 TPL EVNUM SYMBOL IS OCTAL NUMBER.
05207 -0130 00 0 00000 XCL
05210 0074 00 4 05303 TSX LADJ,4 ADJUST THE SYMBOL TO THE LEFT.
05211 0074 00 4 05570 TSX SYMBIN,4 LOOK UP THE VALUE OF THE SYMBOL.
05212 0760 00 0 00003 EVADD SSP
05213 0520 00 0 05300 ZET EVSGN IF NOT ZERO,
05214 -0760 00 0 00003 SSM SET SIGN MINUS.
05215 0400 00 0 05277 ADD EVTOT
05216 0601 00 0 05277 STO EVTOT
05217 -0500 00 0 05301 CAL EVBC
05220 TEQ EVPLS,=H00000+ NEXT SYMBOL IS TO BE ADDED.
05220 -0340 00 0 14625 LAS =H00000+ .002
05221 0020 00 0 05223 TRA *+2 .002
05222 0020 00 0 05273 TRA EVPLS .002
05223 TEQ EVMIN,=H00000- SYMBOL IS TO BE SUBTRACTED.
05223 -0340 00 0 14631 LAS =H00000- .002
05224 0020 00 0 05226 TRA *+2 .002
05225 0020 00 0 05275 TRA EVMIN .002
05226 0520 00 0 05302 ZET,CMAFLG
05227 0020 00 0 05233 TRA,IGNCMA
05230 TEQ,CMAIS(=H00000,)
05230 -0340 00 0 14641 LAS =H00000, .002
05231 0020 00 0 05233 TRA *+2 .002
05232 0020 00 0 05245 TRA CMAIS .002
05233 0500 00 0 05277 IGNCMA CLA EVTOT WAS NOT + OR -.
05234 0120 00 0 05237 TPL *+3
05235 0737 00 4 00000 PAC ,4 IF NEGATIVE, COMPLEMENT IN INDEX REG.
05236 0754 00 4 00000 PXA ,4 RETURN TO AC.
05237 -0320 00 0 14646 ANA =O77777 MASK OFF 15 BITS.
05240 -0130 00 0 00000 XCL PUT IN MQ.
05241 -0500 00 0 05301 CAL EVBC PICK UP BREAK CHARACTER.
05242 0774 00 4 00000 EVEND AXT ..,4
05243 0600 00 0 05302 STZ,CMAFLG
05244 0020 00 4 00001 TRA 1,4
*
* WE HAVE AN INDEX REGISTER MODIFICATION
*
05245 0074 00 4 05136 CMAIS TSX,BCSCH,4
05246 0602 00 0 05301 SLW,EVBC
05247 0120 00 0 05254 TPL,EVXCL
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 99
FLDEVL. FIELD EVALUATION ROUTINE.
05250 -0130 00 0 00000 XCL
05251 0074 00 4 05303 TSX,LADJ,4
05252 0074 00 4 05570 TSX,SYMBIN,4
05253 0020 00 0 05255 TRA,*+2
05254 -0130 00 0 00000 EVXCL XCL
05255 -0320 00 0 14616 ANA,=O7
05256 0737 00 4 00000 PAC,,4
05257 -3 00000 4 05212 TXL,EVADD,4,0
05260 -0500 00 4 06055 CAL,BX1-1,4
05261 0737 00 4 00000 PAC,,4
05262 0754 00 4 00000 PXA,,4
05263 0020 00 0 05212 TRA,EVADD
*
05264 -0773 00 0 00006 EVNUM RQL 6
05265 0774 00 4 00005 AXT 5,4 SET UP COUNTER.
05266 -0754 00 0 00000 ZAC CLEAR AC.
05267 -0773 00 0 00003 RQL 3
05270 -0763 00 0 00003 LGL 3 CONVERT NUMBER.
05271 2 00001 4 05267 TIX *-2,4,1
05272 0020 00 0 05212 TRA EVADD GO BACK.
*
05273 0600 00 0 05300 EVPLS CLEAR EVSGN
05274 0020 00 0 05204 TRA EVRET
*
05275 -0625 00 0 05300 EVMIN SETF EVSGN
05276 0020 00 0 05204 TRA EVRET
*
05277 0 00000 0 00000 EVTOT ACCUMULATING VALUE OF FIELD.
05300 0 00000 0 00000 EVSGN FLAG.. THIS SUBFIELD IS NEGATIVE.
05301 0 00000 0 00000 EVBC BREAK CHARACTER AT END OF SUBFIELD.
05302 0 00000 0 00000 CMAFLG
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 100
LADJ. LEFT ADJUSTING ROUTINE.
* SHIFTS A SYMBOL IN LOGICAL AC LEFT, INSERTING BLANKS ON THE RIGHT
* UNTIL THERE ARE NO BLANKS ON THE LEFT.
* A WORD OF ALL BLANKS IS IGNORED.
05303 0602 00 0 05324 LADJ SLW LAW SAVE WORD.
05304 TEQ (1,4),=H IF WORD IS BLANK, PREVENT LOOP.
05304 -0340 00 0 14746 LAS =H .002
05305 0020 00 0 05307 TRA *+2 .002
05306 0020 00 4 00001 TRA 1,4 .002
05307 0560 00 0 05324 LAR LDQ LAW
05310 -0763 00 0 00006 LGL 6 MOVE LEFT CHARACTER INTO AC.
05311 -0320 00 0 14642 ANA =O77 MASK IT OFF.
05312 TBL LASH WAS BLANK, GO SHIFT WORD.
05312 -0340 00 0 14634 LAS =H00000 .003
05313 0020 00 0 05315 TRA *+2 .003
05314 0020 00 0 05317 TRA LASH .003
05315 -0500 00 0 05324 CAL LAW PICK UP WORD.
05316 0020 00 4 00001 TRA 1,4 EXIT.
*
05317 -0500 00 0 05324 LASH CAL LAW PICK UP WORD.
05320 0560 00 0 14746 LDQ =H BLANKS.
05321 -0763 00 0 00006 LGL 6 SHIFT (LOSE LEFT BLANK).
05322 0602 00 0 05324 SLW LAW RESTORE.
05323 0020 00 0 05307 TRA LAR TRY AGAIN.
*
05324 0 00000 0 00000 LAW WORD BEING ADJUSTED.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 101
TABRD. READ SYMBOL TABLE FILE.
05325 0634 00 4 05440 TABRD SXA SRXC,4
05326 0634 00 1 05441 SXA SRXA,1
05327 0602 00 0 11173 SLW TFILE SAVE THE PRIMARY FILE NAME.
05330 -0763 00 0 00066 LGL,54
05331 0622 00 0 05405 STD,PORGRL
05332 OPEN (=HR,TFILE,((=H SYMTB)),=-0,=-0,DERR) OPEN THE FILE.
05332 0074 00 4 14457 TSX OPEN,4 .004
05333 3 00000 0 14722 PAR =HR .004
05334 3 00000 0 11173 PAR TFILE .004
05335 3 00000 0 14747 PAR =H SYMTB .004
05336 3 00000 0 14710 PAR =-0 .004
05337 3 00000 0 14710 PAR =-0 .004
05340 3 00000 0 11507 PAR DERR .004
05341 BUFFER (TFILE,((=H SYMTB)),(BUF1,,BUFLTH),DERR)
05341 0074 00 4 14460 TSX BUFFER,4 .004
05342 3 00000 0 11173 PAR TFILE .004
05343 3 00000 0 14747 PAR =H SYMTB .004
05344 3 00660 0 11613 PAR BUF1,,BUFLTH .004
05345 3 00000 0 11507 PAR DERR .004
05346 SYMRD RDWAIT (TFILE,((=H SYMTB)),=0,(CARD,,14),SYMEOF,=-0,DERR)
05346 0074 00 4 14461 TSX RDWAIT,4 .004
05347 3 00000 0 11173 PAR TFILE .004
05350 3 00000 0 14747 PAR =H SYMTB .004
05351 3 00000 0 14611 PAR =0 .004
05352 3 00016 0 03416 PAR CARD,,14 .004
05353 3 00000 0 05432 PAR SYMEOF .004
05354 3 00000 0 14710 PAR =-0 .004
05355 3 00000 0 11507 PAR DERR .004
05356 0774 00 1 00000 AXT 0,1 INITIALIZE CARD POINTER.
05357 -0500 00 1 03416 SYMADJ CAL CARD,1
05360 TEQ SYMEOF,=H EXIT IF NO MORE SYMBOLS.
05360 -0340 00 0 14746 LAS =H .002
05361 0020 00 0 05363 TRA *+2 .002
05362 0020 00 0 05432 TRA SYMEOF .002
05363 0560 00 1 03416 LDQ CARD,1 PICK UP NUMBER.
05364 -0754 00 0 00000 ZAC
05365 -0773 00 0 00006 RQL 6
05366 0774 00 4 00005 AXT 5,4
05367 -0773 00 0 00003 RQL 3 CONVERT NUMBER.
05370 -0763 00 0 00003 LGL 3
05371 2 00001 4 05367 TIX *-2,4,1
05372 0734 00 4 00000 PAX,,4
05373 -0500 00 1 03417 CAL,CARD+1,1
05374 0560 00 1 03420 LDQ,CARD+2,1
05375 -0765 00 0 00022 LGR,18
05376 0771 00 0 00006 ARS,6
05377 -0320 00 0 14642 ANA,=O77
05400 0100 00 0 05406 TZE,CALLRR
05401 -0320 00 0 14613 ANA,=O2
05402 0100 00 0 05405 TZE,*+3
05403 -0754 00 0 00000 ZAC
05404 1 00000 4 05407 TXI,*+3,4,COMMON-77461K
05405 1 00000 4 05407 PORGRL TXI,*+2,4,**
05406 -0500 00 0 14664 CALLRR CAL,=O077777000000
05407 0602 00 0 02557 SLW,WORD
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 102
TABRD. READ SYMBOL TABLE FILE.
05410 0754 00 4 00000 PXA,,4
05411 -0501 00 0 02557 ORA,WORD
05412 -0130 00 0 00000 XCL
05413 0602 00 0 02557 SLW,WORD
05414 0074 00 4 05632 TSX,DEFINE,4
05415 0020 00 0 05421 TRA,SYMFUL
05416 1 77775 1 05417 TXI *+1,1,-3
05417 3 77764 1 05357 TXH SYMADJ,1,-12
05420 0020 00 0 05346 TRA SYMRD GET NEXT CARD.
*
05421 SYMFUL TYPA 7,(TABLE FULL, FIRST SYMBOL NOT INSERTED IS *)
05421 0074 00 4 04036 TSX TYPA,4 .002
05422 3 00000 0 14540 PAR ..139 .002
05423 0074 00 4 04236 TSX QUOTE,4 TYPE THE LEFT QUOTES.
05424 NAMOUT WORD TYPE THE SYMBOL.
05424 0500 00 0 02557 CLA WORD .002
05425 0074 00 4 04313 TSX NAMOUT,4 .002
05426 0074 00 4 04236 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
05427 TYO =H00000. PUNCTUATE THE SENTENCE.
05427 0500 00 0 14630 CLA =H00000. .002
05430 0074 00 4 04174 TSX TYO,4 .002
05431 0074 00 4 04232 TSX CR,4 RETURN THE CARRIAGE.
05432 SYMEOF CLOSE (TFILE,((=H SYMTB)),DERR) CLOSE THE FILE, READING DONE.
05432 0074 00 4 14462 TSX CLOSE,4 .004
05433 3 00000 0 11173 PAR TFILE .004
05434 3 00000 0 14747 PAR =H SYMTB .004
05435 3 00000 0 11507 PAR DERR .004
05436 TDONE TYPE 3,(SYMBOLS LOADED.*)
05436 0074 00 4 04034 TSX TYPE,4 .002
05437 3 00000 0 14547 PAR ..146 .002
05440 0774 00 4 00000 SRXC AXT ..,4
05441 0774 00 1 00000 SRXA AXT ..,1
05442 0020 00 4 00001 TRA 1,4
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 103
KILTAB. EMPTY SYMBOL TABLE OF ALL BUT OUR SYMBOLS.
05443 0634 00 4 05454 KILTAB SXA KXR,4
05444 0774 00 4 03100 AXT,SYMLNG+SYMEND-SYMTAB,4
05445 0634 00 4 05544 SXA,NUMB1,4
05446 -0634 00 4 05660 SXD,NUMB2,4
05447 -0634 00 4 05472 SXD,NUMB3,4
05450 -0500 00 0 02177 CAL,QGODEN
05451 0621 00 0 02163 STA,R
05452 0774 00 4 00040 AXT SYMEND-SYMTAB+2,4 RESET INDEX OF ENTRIES IN TABLE.
05453 0634 00 4 05630 SXA SYMLTH,4
05454 0774 00 4 00000 KXR AXT ..,4
05455 0020 00 4 00001 TRA 1,4
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 104
SYMBCD. GET BEST SYMBOL, CORRECTION, GIVEN VALUE.
05456 0634 00 4 05516 SYMBCD SXA SCHEND,4 ENTER W/ VALUE IN AC (ADDRESS).
05457 -0320 00 0 14646 ANA =O77777 MASK AWAY GARBAGE.
05460 0601 00 0 05534 STO SYMVAL SAVE AS ORIGINAL ARGUMENT.
05461 0601 00 0 05536 STO SYMCOR SAVE AS BEST CORRECTION FACTOR.
05462 0601 00 0 05537 STO SYMABS SAVE AS .ABS.(BEST FACTOR).
05463 0534 00 4 05630 LXA SYMLTH,4 GET NUMBER OF ENTRIES IN SYMBOL TABLE.
05464 0520 00 0 04462 ZET,RFLAG
05465 0774 00 4 03102 AXT,SYMLNG+SYMEND-SYMTAB+2,4
05466 -0500 00 0 14746 CAL =H
05467 0602 00 0 05535 SLW SYMBOL
05470 -2 00002 4 05511 SCHLOP TNX SBCF,4,2
05471 0520 00 0 04462 ZET,RFLAG
05472 -3 00000 4 05511 NUMB3 TXL,SBCF,4,**
05473 0500 00 0 05534 CLA SYMVAL
05474 0402 00 4 11174 SUB SYMEND+1,4
05475 0520 00 0 04462 ZET,RFLAG
05476 -0120 00 0 05470 TMI,SCHLOP
05477 -0340 00 0 05537 LAS SYMABS IS MAGNITUDE SMALLER THAN 'BEST' MAGNITUDE.
05500 0020 00 0 05470 TRA SCHLOP
05501 0761 00 0 00000 NOP
05502 0100 00 0 05504 TZE SBOK IF CORRECTION ZERO, DON'T CHECK SYMBOL.
05503 -3 00036 4 05470 TXL SCHLOP,4,SYMEND-SYMTAB NO, DON'T USE OUR SYMBOL.
05504 0601 00 0 05536 SBOK STO SYMCOR BEST SO FAR.
05505 0602 00 0 05537 SLW SYMABS SAVE ABSOLUTE VALUE OF DIFFERENCE.
05506 -0500 00 4 11173 CAL SYMEND,4
05507 0602 00 0 05535 SLW SYMBOL
05510 0020 00 0 05470 TRA SCHLOP
*
05511 0560 00 0 05535 SBCF LDQ SYMBOL
05512 0500 00 0 05536 CLA SYMCOR
05513 0340 00 0 05533 CAS,QSYM
05514 0020 00 0 05520 TRA,RCHCK
05515 0020 00 0 05516 TRA,*+1
05516 0774 00 4 00000 SCHEND AXT ..,4
05517 0020 00 4 00001 TRA 1,4
*
* USE DEBUG'S DEFINED SYMBOLS AT ALL TIMES
*
05520 0774 00 4 00036 RCHCK AXT,SYMEND-SYMTAB,4
05521 -0500 00 0 05534 CAL,SYMVAL
05522 -0340 00 4 11174 LAS,SYMEND+1,4
05523 0020 00 0 05525 TRA,*+2
05524 0020 00 0 05530 TRA,XUSEIT
05525 2 00002 4 05522 TIX,*-3,4,2
05526 0500 00 0 05536 CLA,SYMCOR
05527 0020 00 0 05516 TRA,SCHEND
*
05530 0560 00 4 11173 XUSEIT LDQ,SYMEND,4
05531 -0754 00 0 00000 ZAC
05532 0020 00 0 05516 TRA,SCHEND
*
05533 0 00000 0 06050 QSYM PZE,BUGSY-MOVIE)-1
*
05534 0 00000 0 00000 SYMVAL VALUE BEING SEARCHED FOR.
05535 0 00000 0 00000 SYMBOL 'BEST' SYMBOL SO FAR.
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 105
SYMBCD. GET BEST SYMBOL, CORRECTION, GIVEN VALUE.
05536 0 00000 0 00000 SYMCOR CORRECTION NECESSARY FOR THIS SYMBOL.
05537 0 00000 0 00000 SYMABS .ABS.(SYMCOR).
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 106
PUTIN
*
* THIS WILL ADD A SYMBOL, WITHOUT CHECKING IF IT IS ALREADY
* IN THE SYMBOL TABLE. IT IS PLACED AT THE TOP OF THE TABLE.
*
*
05540 0634 00 4 05556 PUTIN SXA,PUTRET,4
05541 0534 00 4 05630 LXA,SYMLTH,4
05542 1 77776 4 05543 TXI,*+1,4,-2
05543 -0634 00 4 05545 SXD,TESTLN,4
05544 0774 00 4 03100 NUMB1 AXT,SYMLNG+SYMEND-SYMTAB,4
*
05545 -3 00000 4 05560 TESTLN TXL,BLEWIT,4,**
05546 0602 00 4 11173 SLW,SYMEND,4
05547 -0600 00 4 11174 STQ,SYMEND+1,4
05550 1 77776 4 05551 TXI,*+1,4,-2
05551 0634 00 4 05544 SXA,NUMB1,4
05552 -0634 00 4 05660 SXD,NUMB2,4
05553 -0634 00 4 05472 SXD,NUMB3,4
05554 -0500 00 0 02177 CAL,QGODEN
05555 0621 00 0 02163 STA,R
*
05556 0774 00 4 00000 PUTRET AXT,**,4
05557 0020 00 4 00001 TRA,1,4
*
*
*
05560 BLEWIT TYPE,7,(SYMBOL TABLE FULL, 'R' MODE NOT ENTERED.*)
05560 0074 00 4 04034 TSX TYPE,4 .002
05561 3 00000 0 14552 PAR ..147 .002
05562 0774 00 4 03100 AXT,SYMLNG+SYMEND-SYMTAB,4
05563 0634 00 4 05544 SXA,NUMB1,4
05564 -0634 00 4 05660 SXD,NUMB2,4
05565 -0634 00 4 05472 SXD,NUMB3,4
05566 0600 00 0 04462 STZ,RFLAG
05567 0020 00 0 02552 TRA,OOPS
*
*
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 107
SYMBIN. GET VALUE OF SYMBOL, GIVEN BCD CODE.
05570 0634 00 4 05604 SYMBIN SXA SBXR,4 SAVE RETURN.
05571 0534 00 4 05630 LXA SYMLTH,4 SET UP COUNTER.
05572 0520 00 0 04462 ZET,RFLAG
05573 0774 00 4 03102 AXT,SYMLNG+SYMEND-SYMTAB+2,4
05574 -2 00002 4 05606 SBRET TNX NOSYM,4,2 HAVE WE DONE YET.Q
05575 TNE SBRET,(SYMEND,4) IF NOT THIS SYMBOL, TRY THE NEXT.
05575 -0340 00 4 11173 LAS SYMEND,4 .003
05576 0020 00 0 05600 TRA *+2 .003
05577 0020 00 0 05601 TRA *+2 .003
05600 0020 00 0 05574 TRA SBRET .002
05601 -0500 00 4 11174 SBFND CAL SYMEND+1,4 PICK UP VALUE.
05602 -0320 00 0 14646 ANA,=O77777
05603 0602 00 0 05631 SLW,LASTSY
05604 0774 00 4 00000 SBXR AXT ..,4
05605 0020 00 4 00001 TRA 1,4 RETURN W/ SYMBOL VALUE.
*
05606 NOSYM TNE CHCKDS,=H* IS THE SYMBOL '*', FOR THIS LOCATION.
05606 -0340 00 0 14730 LAS =H* .003
05607 0020 00 0 05611 TRA *+2 .003
05610 0020 00 0 05612 TRA *+2 .003
05611 0020 00 0 05614 TRA CHCKDS .002
05612 -0500 00 0 00235 SBPOI CAL LOC GET THE CURRENT LOCATION.
05613 0020 00 0 05604 TRA SBXR
*
05614 CHCKDS TNE,CHKCSY,=H**
05614 -0340 00 0 14726 LAS =H** .003
05615 0020 00 0 05617 TRA *+2 .003
05616 0020 00 0 05620 TRA *+2 .003
05617 0020 00 0 05622 TRA CHKCSY .002
05620 -0754 00 0 00000 ZAC
05621 0020 00 0 05604 TRA,SBXR
*
05622 CHKCSY TNE,UNDEF,=H.
05622 -0340 00 0 14706 LAS =H. .003
05623 0020 00 0 05625 TRA *+2 .003
05624 0020 00 0 05626 TRA *+2 .003
05625 0020 00 0 02543 TRA UNDEF .002
05626 -0500 00 0 05631 CAL,LASTSY
05627 0020 00 0 05604 TRA,SBXR
*
05630 0 00000 0 00040 SYMLTH PZE,SYMEND-SYMTAB+2 SO THAT PERMANENT SYMS ARE DEFINED.
*
05631 0 00000 0 00000 LASTSY
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 108
DEFINE. INSERT NEW SYMBOL, VALUE INTO TABLE.
05632 0634 00 4 05665 DEFINE SXA DFXC,4 ENTER TO DEFINE SYMBOL.
05633 0534 00 4 05630 LXA SYMLTH,4 SET UP.
05634 -2 00002 4 05657 DEFRET TNX DEFNO,4,2 SEARCH SYMBOL TABLE.
05635 TNE DEFRET,(SYMEND,4) IS THIS THE ONE.Q
05635 -0340 00 4 11173 LAS SYMEND,4 .003
05636 0020 00 0 05640 TRA *+2 .003
05637 0020 00 0 05641 TRA *+2 .003
05640 0020 00 0 05634 TRA DEFRET .002
05641 -3 00036 4 05644 DEFYES TXL DEFOOP,4,SYMEND-SYMTAB DON'T CHANGE OUR SYMBOLS.
05642 -0600 00 4 11174 STQ SYMEND+1,4 PUT VALUE IN TABLE.
05643 0020 00 0 05665 TRA DFXC
*
05644 0602 00 0 05656 DEFOOP SLW DOBS SAVE THE BAD SYMBOL.
05645 TYPA 7,(ATTEMPT TO REDEFINE INTERNAL SYMBOL *)
05645 0074 00 4 04036 TSX TYPA,4 .002
05646 3 00000 0 14561 PAR ..148 .002
05647 0074 00 4 04236 TSX QUOTE,4 TYPE THE LEFT QUOTES.
05650 NAMOUT DOBS TYPE THE SYMBOL.
05650 0500 00 0 05656 CLA DOBS .002
05651 0074 00 4 04313 TSX NAMOUT,4 .002
05652 0074 00 4 04236 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
05653 TYPE 2,( IGNORED.*)
05653 0074 00 4 04034 TSX TYPE,4 .002
05654 3 00000 0 14570 PAR ..149 .002
05655 0020 00 0 05665 TRA DFXC IGNORE THE ATTEMPT AT REDEFINITION.
*
05656 0 00000 0 00000 DOBS STORAGE FOR THE INTERNAL SYMBOL.
*
05657 0534 00 4 05630 DEFNO LXA SYMLTH,4
05660 3 03100 4 05667 NUMB2 TXH DEFFUL,4,SYMLNG+SYMEND-SYMTAB
05661 0602 00 4 11173 SLW SYMEND,4 STORE IN TABLE.
05662 -0600 00 4 11174 STQ SYMEND+1,4 PUT VALUE IN TABLE.
05663 1 00002 4 05664 TXI *+1,4,2 INCREASE LENGTH INDICATOR.
05664 0634 00 4 05630 SXA SYMLTH,4
05665 0774 00 4 00000 DFXC AXT ..,4 OK.
05666 0020 00 4 00002 TRA 2,4 EXIT TO OK LOC.
*
05667 0534 00 4 05665 DEFFUL LXA DFXC,4
05670 0020 00 4 00001 TRA 1,4
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 109
SAVMC. SAVE MACHINE CONDITIONS.
05671 0634 00 4 05755 SAVMC SXA SAVMX,4 SAVE RETURN.
05672 -0600 00 0 06055 STQ BMQ SAVE THE MQ.
05673 0604 00 0 06065 STI BSI SAVE THE SI.
05674 0634 00 1 06056 SXA BXA,1 SAVE XRS 1, 2, AND 3.
05675 0634 00 2 06057 SXA BXB,2
05676 0634 00 3 06060 SXA BX3,3 SAVE XR 3 FOR TESTING FOR XR MODE.
05677 0602 00 0 06053 SLW BAC SAVE THE AC.
05700 0601 00 0 06054 STO,BSAC
05701 0771 00 0 00002 ARS 2 ..
05702 0601 00 0 06070 STO BQS ..
05703 -0500 00 0 00000 CAL 0 GET REGISTER 0.
05704 0602 00 0 06071 SLW B0 AND SAVE IT.
05705 -0500 00 0 00010 CAL 8 AND 8.
05706 0602 00 0 06072 SLW B8
05707 -0500 00 0 05721 CAL TTTR GET TRANSFER BACK HERE.
05710 0602 00 0 00010 SLW 8 PUT IN FPT LOCATION.
05711 0441 00 0 14653 LDI =O10001111 GET PRESET STATUS WORD.
05712 0760 00 0 00012 DCT EXAMINE THE DIVIDE CHECK LIGHT.
05713 -0055 00 000001 SIL 1 IF ON, SET ITS BIT.
05714 -0140 00 0 05716 TNO *+2 EXAMINE THE AC OVERFLOW LIGHT.
05715 0055 00 100000 SIR 100000 IF ON, SET ITS BIT.
05716 0500 00 0 14777 CLA =O777777777777
05717 0300 00 0 14777 FAD =O777777777777 SET OFF F.P. TRAP.
05720 -0057 00 000010 RIL 10 IF HERE, FPT OFF, GET ZERO.
05721 0021 00 0 05722 TTTR TTR *+1 FPT TTR.
05722 TSS ((EFTM)) TURN ON F.P. TRAP MODE.
05722 0074 00 4 14572 TSX (EFTM),4 .002
05723 0774 00 1 00000 AXT 0,1 SET UP.
05724 0774 00 3 77777 AXT -1,3 AND.
05725 -3 00000 1 05731 TXL 7XRS,1,0 TRANSFER IF NOT IN MULT. TAG MODE.
05726 0055 00 010000 SIR 10000 IN MULT. TAGGING MODE, SO MARK IT.
05727 0760 00 0 00016 LMTM LEAVE IT SO XRS CAN BE SAVED.
05730 0634 00 3 06060 SXA BX3,3 NOW SAVE XR 3.
05731 0634 00 5 06062 7XRS SXA BX5,5 SAVE XRS 5, 6, AND 7.
05732 0634 00 6 06063 SXA BX6,6
05733 0634 00 7 06064 SXA BX7,7
05734 TSS SETBCD SET 6-BIT MODE
05734 0074 00 4 14305 TSX SETBCD,4 .002
05735 0100 00 0 05737 TZE *+2 WAS IT 12-BIT BEFORE .Q.
05736 -0055 00 000100 SIL 100 YES, SO REMEMBER MODE.
05737 -0760 00 0 00141 SLT 1 EXAMINE S.L. 1.
05740 0057 00 001000 RIR 1000 IF OFF, RESET ITS BIT.
05741 -0760 00 0 00142 SLT 2 DO THE SAME W/ EACH S.L.
05742 0057 00 000100 RIR 100 ..
05743 -0760 00 0 00143 SLT 3
05744 0057 00 000010 RIR 10 ..
05745 -0760 00 0 00144 SLT 4
05746 0057 00 000001 RIR 1 ..
05747 0604 00 0 06066 STI BLS SAVE THE STATUS WORD.
05750 -0500 00 0 06071 CAL B0 RESTORE 0 AND 8.
05751 0602 00 0 00000 SLW 0 IN CASE THE USER WANTS TO LOOK.
05752 -0500 00 0 06072 CAL B8
05753 0602 00 0 00010 SLW 8
05754 0074 00 4 04066 TSX SAVQL,4 SAVE THE INTERRUPT SETTINGS.
05755 0774 00 4 00000 SAVMX AXT ..,4 RESTORE RETURN.
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 110
SAVMC. SAVE MACHINE CONDITIONS.
05756 0020 00 4 00001 TRA 1,4 AND EXIT.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 111
RESMC. RESTORE MACHINE CONDITIONS.
05757 1 77777 4 05760 RESMC TXI *+1,4,-1 MOVE RETURN POINTER TO NEXT LOC.
05760 0636 00 4 06047 SCA RESMX,4 PUT ITS COMPLEMENT IN THE EXIT TRA.
05761 -0500 00 0 06051 CAL,RPTMEM
05762 -0340 00 0 00116 LAS,MEMBND
05763 0020 00 0 05765 TRA,*+2
05764 0020 00 0 05777 TRA,NORPTM
*
05765 -0320 00 0 14646 ANA,=O77777
05766 -0340 00 0 06050 LAS,TOPALW
05767 0020 00 0 05776 TRA,OKRPTM
05770 0020 00 0 05771 TRA,*+1
05771 TYPE,5,(MEMORY BOUND NOT CHANGED.*)
05771 0074 00 4 04034 TSX TYPE,4 .002
05772 3 00000 0 14573 PAR ..150 .002
05773 -0500 00 0 00116 CAL,MEMBND
05774 0602 00 0 06051 SLW,RPTMEM
05775 0020 00 0 05777 TRA,NORPTM
*
05776 OKRPTM TSS,SETMEM
05776 0074 00 4 14515 TSX SETMEM,4 .002
*
05777 0074 00 4 04113 NORPTM TSX RESQL,4 RESTORE THE INTERRUPT SETTINGS.
06000 0500 00 0 06000 CLA * GET NON-ZERO AC.
06001 0221 00 0 14611 DVP =0 TURN ON THE DIVIDE CHECK LIGHT.
06002 0441 00 0 06066 LDI BLS GET THE LIGHTS, INDICATORS STATUS WORD.
06003 TSS SETBCD SET 6-BIT MODE
06003 0074 00 4 14305 TSX SETBCD,4 .002
06004 -0054 00 000100 LFT 100 SHOULD WE BE IN 12-BIT MODE .Q.
06005 TSS SETFUL YES, SO SET IT.
06005 0074 00 4 14600 TSX SETFUL,4 .002
06006 TSS ((LFTM)) TURN OFF F.P. TRAP MODE.
06006 0074 00 4 14601 TSX (LFTM),4 .002
06007 -0054 00 000010 LFT 10 UNLESS ITS BIT IS ON.
06010 TSS ((EFTM)) IF SO, TURN IT BACK ON.
06010 0074 00 4 14572 TSX (EFTM),4 .002
06011 -0056 00 000001 LNT 1 EXAMINE THE BIT.
06012 0760 00 0 00012 DCT IF OFF, TURN OFF THE D.C. LIGHT.
06013 0500 00 0 06013 CLA * PREPARE TO
06014 0767 00 0 00044 ALS 36 TURN ON OVERFLOW LIGHT.
06015 0760 00 0 00016 LMTM TURN OFF M.T. MODE.
06016 0534 00 7 06064 LXA BX7,7 RESTORE ALL THE XR'S (EVEN XR 4).
06017 0534 00 6 06063 LXA BX6,6
06020 0534 00 5 06062 LXA BX5,5
06021 0534 00 3 06060 LXA BX3,3
06022 0534 00 4 06061 LXA BXC,4
06023 0534 00 2 06057 LXA BXB,2
06024 0534 00 1 06056 LXA BXA,1
06025 0054 00 010000 RFT 10000 UNLESS ITS BIT IS ON.
06026 -0760 00 0 00016 EMTM IN WHICH CASE, TURN IT BACK ON.
06027 0760 00 0 00140 SLF TURN OFF ALL S.L.'S.
06030 0054 00 001000 RFT 1000 IF INDICATOR IS ON,
06031 0760 00 0 00141 SLN 1 TURN ON ITS S.L.
06032 0054 00 000100 RFT 100 AND PROCEED FOR ALL THE OTHER S.L.'S.
06033 0760 00 0 00142 SLN 2
06034 0054 00 000010 RFT 10 ..
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 112
RESMC. RESTORE MACHINE CONDITIONS.
06035 0760 00 0 00143 SLN 3
06036 0054 00 000001 RFT 1 ..
06037 0760 00 0 00144 SLN 4
06040 0500 00 0 06070 CLA BQS RESTORE THE AC.
06041 0767 00 0 00002 ALS 2 ..
06042 -0501 00 0 06053 ORA BAC ..
06043 0056 00 100000 RNT 100000 TEST THE OVERFLOW STATUS.
06044 0140 00 0 06044 TOV * IF OFF, TURN OFF THE OVF LIGHT.
06045 0560 00 0 06055 LDQ BMQ RESTORE THE MQ.
06046 0441 00 0 06065 LDI BSI RESTORE THE SI.
06047 0020 00 0 00000 RESMX TRA .. AND EXIT.
*
06050 0 00000 0 14777 TOPALW PZE,=O777777777777
*
06051 BUGSY EQU,*
*
* BLS LIGHTS, SWITCHES STATUS WORD.
* THE 12 OCTAL DIGITS OF BLS (OR $LS) ARE
* EACH ASSOCIATED WITH A MACHINE INDICATOR,
* AS SHOWN IN THE FOLLOWING TABLE.
* IF THE DIGIT = 1, THE INDICATOR IS ON.
* IF THE DIGIT = 0, THE INDICATOR IS OFF.
* NO OTHER DIGITS SHOULD APPEAR.
* 1. UNASSIGNED.
* 2. UNASSIGNED.
* 3. UNASSIGNED.
* 4. 6-BIT, 12-BIT MODE SWITCH.
* 5. FLOATING POINT TRAP MODE.
* 6. DIVIDE CHECK LIGHT.
* 7. AC OVERFLOW LIGHT.
* 8. MULTIPLE TAG (3 XR'S) LIGHT.
* 9. SENSE LIGHT 1.
* 10. SENSE LIGHT 2.
* 11. SENSE LIGHT 3.
* 12. SENSE LIGHT 4.
06051 0 00000 0 00000 RPTMEM
06052 0 00000 0 00000 BIC
06053 0 00000 0 00000 BAC
06054 0 00000 0 00000 BSAC
06055 0 00000 0 00000 BMQ
06056 0 00000 0 00000 BX1
06057 0 00000 0 00000 BX2 XR 2.
06060 0 00000 0 00000 BX3 XR 3.
06061 0 00000 0 00000 BX4
06062 0 00000 0 00000 BX5 XR 5.
06063 0 00000 0 00000 BX6 XR 6.
06064 0 00000 0 00000 BX7 XR 7.
06065 0 00000 0 00000 BSI THE S.I.
06066 0 00000 0 00000 BLS
06067 0 00000 0 00000 CURCNT
06070 0 00000 0 00000 BQS
06071 0 00000 0 00000 B0
06072 0 00000 0 00000 B8
*
06056 BXA EQU,BX1
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 113
RESMC. RESTORE MACHINE CONDITIONS.
06057 BXB EQU,BX2
06061 BXC EQU,BX4
*
03042 SYMLNG EQU 1600-30 MAKE ROOM FOR 800 SYMBOLS.
11135 SYMTAB BES SYMLNG TABLE OF USER'S SYMBOLS.
11135 532346644563 BCI,1,$COUNT
11136 0 00000 0 06067 PZE,CURCNT
11137 534425446060 BCI,1,$MEM
11140 0 00000 0 06051 PZE,RPTMEM
11141 533143236060 BCI 1,$ILC THE USER'S ILC.
11142 0 00000 0 06052 BIC
11143 534362606060 BCI 1,$LS 'LIGHTS AND SWITCHES.'
11144 0 00000 0 06066 BLS
11145 536231606060 BCI 1,$SI THE SI.
11146 0 00000 0 06065 BSI
11147 532160606060 BCI,1,$A
11150 0 00000 0 06054 QBSAC PZE,BSAC
11151 534260606060 BCI,1,$K
11152 0 00000 0 06053 QBAC PZE,BAC
11153 534450606060 BCI 1,$MQ THE MQ.
11154 0 00000 0 06055 BMQ
11155 536701606060 BCI 1,$X1 XR 1.
11156 0 00000 0 06056 BX1
11157 536702606060 BCI 1,$X2 XR 2.
11160 0 00000 0 06057 BX2
11161 536703606060 BCI 1,$X3 XR 3.
11162 0 00000 0 06060 BX3
11163 536704606060 BCI 1,$X4 XR 4.
11164 0 00000 0 06061 BX4
11165 536705606060 BCI 1,$X5 XR 5.
11166 0 00000 0 06062 BX5
11167 536706606060 BCI 1,$X6 XR 6.
11170 0 00000 0 06063 BX6
11171 536707606060 BCI 1,$X7 XR 7.
11172 0 00000 0 06064 BX7
11173 SYMEND EQU * END OF SYMBOL TABLE.
*
11173 0 00000 0 00000 TFILE PRIMARY FILE NAME.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 114
RESXR. RESTORE INDEX REGISTERS AND TAG MODE.
11174 1 77777 4 11175 RESXR TXI *+1,4,-1 COMPUTE -(RETURN ADDRESS).
11175 0636 00 4 11213 SCA RXC,4 SET UP RETURN TRANSFER.
11176 0604 00 0 11214 STI RXSI SAVE THE SI.
11177 0760 00 0 00016 LMTM GET ALL XR'S.
11200 0534 00 7 06064 LXA BX7,7 RESTORE ALL THEIR CONTENTS.
11201 0534 00 6 06063 LXA BX6,6 ..
11202 0534 00 5 06062 LXA BX5,5 ..
11203 0534 00 3 06060 LXA BX3,3 ..
11204 0534 00 4 06061 LXA BXC,4 ..
11205 0534 00 2 06057 LXA BXB,2 ..
11206 0534 00 1 06056 LXA BXA,1 ..
11207 0441 00 0 06066 LDI BLS GET THE STATUS WORD.
11210 0054 00 010000 RFT 10000 CHECK THE TAG LIGHT.
11211 -0760 00 0 00016 EMTM ON, RESTORE 3 TAG MODE.
11212 0441 00 0 11214 LDI RXSI RESTORE THE SI.
11213 0020 00 0 00000 RXC TRA .. RETURN TO CALLER.
*
11214 0 00000 0 00000 RXSI STORAGE FOR THE SI.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 115
FLOOUT. FLOATING POINT OUTPUT ROUTINE.
11215 3 00000 1 11323 FLOOUT TXH,FOCT,1,0
11216 0634 00 4 11315 SXA,FXC,4
11217 0634 00 2 11316 SXA FXB,2
11220 0634 00 1 11317 SXA FXA,1
11221 0601 00 0 11321 STO FNUM SAVE THE INPUT NUMBER.
11222 0131 00 0 00000 XCA MOVE IT TO THE MQ.
11223 -0500 00 0 14631 CAL =H00000- ASSUME NEGATIVE.
11224 0162 00 0 11226 TQP *+2 IF IT IS,
11225 0074 00 4 04174 TSX TYO,4 PRINT THE SIGN.
11226 0131 00 0 00000 XCA GET NUMBER BACK INTO THE AC.
11227 -0100 00 0 11237 TNZ REG IF NUMBER .E. ZERO, USE BRIEF FORM.
11230 -0754 00 0 00000 ZAC THEN PRINT A ZERO.
11231 0074 00 4 04174 TSX TYO,4
11232 TYO =H00000. THEN A PERIOD.
11232 0500 00 0 14630 CLA =H00000. .002
11233 0074 00 4 04174 TSX TYO,4 .002
11234 -0754 00 0 00000 ZAC THEN ANOTHER ZERO.
11235 0074 00 4 04174 TSX TYO,4
11236 0020 00 0 11315 TRA FXC THEN EXIT.
*
11237 0131 00 0 00000 REG XCA GET NUMBER INTO THE MQ.
11240 -0754 00 0 00000 ZAC CLEAR THE AC.
11241 0765 00 0 00000 LRS 0 MAKE MQ POSITIVE.
11242 0763 00 0 00010 LLS 8 GET EXPONENT INTO THE AC.
11243 0402 00 0 14643 SUB =128 NORMALIZE IT.
11244 0120 00 0 11246 TPL *+2 IF NEGATIVE,
11245 0402 00 0 14612 SUB =1 BIAS EXPONENT.
11246 0131 00 0 00000 XCA PLACE IT IN THE MQ.
11247 0204 14 0 14644 VLM =.30103B23,,12 CONVERT TO DECIMALS.
11250 0734 00 1 00000 PAX ,1 PLACE RESULT IN XR 1.
11251 0601 00 0 11322 STO XPNT SAVE EXPONENT.
11252 -0120 00 0 11257 TMI NEG GO TO MULTIPLY SECTION IF NEGATIVE.
11253 0500 00 0 11321 CLA FNUM GET THE NUMBER.
11254 0241 00 1 03225 FDP TEN,1 NORMALIZE IT.
11255 0131 00 0 00000 XCA MOVE TO THE AC.
11256 0020 00 0 11261 TRA NOR GO NORMALIZE.
*
11257 0560 00 0 11321 NEG LDQ FNUM GET THE NUMBER.
11260 0260 00 1 03225 FMP TEN,1 NORMALIZE IT.
11261 0760 00 0 00003 NOR SSP CHECK MAGNITUDE OF NUMBER.
11262 0560 00 0 14666 LDQ =O200777777777 COMPARE W/ ALMOST 1.0.
11263 0040 00 0 11271 TLQ SKIP IF .G. 1., SKIP.
11264 0131 00 0 00000 XCA PUT RESULT IN MQ.
11265 0500 00 0 11322 CLA XPNT ADJUST EXPONENT.
11266 0402 00 0 14612 SUB =1
11267 0601 00 0 11322 STO XPNT
11270 0260 00 0 14667 FMP =10. NORMALIZE.
11271 -0300 00 0 14672 SKIP UFA =O233000000000 GET INTEGER.
11272 0734 00 1 00000 PAX ,1 PUT IT IN XR 1.
11273 0763 00 0 00010 LLS 8 NORMAL FRACTION IN MQ.
11274 0754 00 1 00000 PXA ,1 GET THE DIGIT.
11275 0074 00 4 04174 TSX TYO,4 TYPE IT.
11276 TYO =H00000. TYPE A DECIMAL POINT.
11276 0500 00 0 14630 CLA =H00000. .002
11277 0074 00 4 04174 TSX TYO,4 .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 116
FLOOUT. FLOATING POINT OUTPUT ROUTINE.
11300 0774 00 1 00010 AXT 8,1 SET UP FOR MAXIMUM OF 8 DIGITS.
11301 0131 00 0 00000 FRAC XCA MOVE THE REST OF THE NUMBER INTO THE AC.
11302 0100 00 0 11307 TZE FXP IF ZERO, GO PRINT THE EXPONENT.
11303 0131 00 0 00000 XCA OTHERWISE, MOVE IT BACK TO THE MQ.
11304 0200 00 0 14621 MPY =10 GET THE NEXT DIGIT.
11305 0074 00 4 04174 TSX TYO,4 TYPE IT.
11306 2 00001 1 11301 TIX FRAC,1,1 GO BACK FOR THE NEXT DIGIT IF ANY.
11307 -0520 00 0 11322 FXP NZT XPNT IS THE EXPONENT ZERO.Q
11310 0020 00 0 11315 TRA FXC YES, SKIP IT.
11311 TYO =H00000E TYPE THE 'E'.
11311 0500 00 0 14627 CLA =H00000E .002
11312 0074 00 4 04174 TSX TYO,4 .002
11313 INTOUT XPNT TYPE THE EXPONENT.
11313 0500 00 0 11322 CLA XPNT .002
11314 0074 00 4 11331 TSX INTOUT,4 .002
11315 0774 00 4 00000 FXC AXT ..,4 RESTORE THE XR'S.
11316 0774 00 2 00000 FXB AXT ..,2
11317 0774 00 1 00000 FXA AXT ..,1
11320 0020 00 4 00001 TRA 1,4 EXIT.
*
11321 0 00000 0 00000 FNUM STORAGE FOR THE NUMBER TO BE OUTPUT.
11322 0 00000 0 00000 XPNT STORAGE FOR THE EXPONENT.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 117
INTEGER (BASE 10 AND 8) OUTPUT.
* OCTOUT. OCTAL OUTPUT.
11323 -0625 00 0 11401 FOCT STL,SPFLAG
11324 0560 00 0 14617 OCTOUT LDQ =O10 BASE IS 8.
11325 0020 00 0 11332 TRA IJON GO JOIN INTOUT AND JNTOUT.
*
* DECOUT. INTEGER DECIMAL OUTPUT.
11326 3 00000 1 11323 DECOUT TXH,FOCT,1,0
11327 0771 00 0 00022 ARS,18
11330 3 00000 1 11323 INTCK1 TXH,FOCT,1,0
11331 0560 00 0 14621 INTOUT LDQ =10 BASE IS 10.
11332 -0600 00 0 02777 IJON STQ BASE SAVE THE BASE.
11333 0634 00 4 11377 SXA IXC,4 SAVE RETURN INDEX.
11334 0634 00 2 11376 SXA IXB,2
11335 0601 00 0 11506 STO CQ SAVE THE INPUT WORD.
11336 0131 00 0 00000 XCA PREPARE TO OUTPUT SIGN.
11337 -0500 00 0 14631 CAL =H00000- GET A MINUS SIGN.
11340 0162 00 0 11343 TQP *+3 IF THE SIGN IS NEGATIVE,
11341 0074 00 4 04174 TSX TYO,4 PRINT THE SIGN.
11342 0020 00 0 11345 TRA,*+3
11343 0520 00 0 11401 ZET,SPFLAG
11344 0074 00 4 04240 TSX,BL,4
11345 0774 00 2 00015 AXT,13,2
11346 0600 00 2 11506 STZ,BUFF+13,2
11347 2 00001 2 11346 TIX,*-1,2,1
11350 0500 00 0 11506 INEXT CLA CQ GET THE (REMAINING) NUMBER.
11351 0100 00 0 11357 TZE IFIX IF ZERO, QUIT.
11352 0765 00 0 00043 LRS 35 IF NOT, SHIFT INTO MQ FOR DIVISION.
11353 0221 00 0 02777 DVP BASE GET NEXT DIGIT IN THE AC.
11354 -0600 00 0 11506 STQ CQ SAVE THE NEW NUMBER.
11355 0602 00 2 11506 SLW BUFF+13,2 SAVE THIS DIGIT.
11356 1 00001 2 11350 TXI INEXT,2,1 GO GET THE NEXT DIGIT.
*
11357 2 00001 2 11360 IFIX TIX *+1,2,1 BOUNCE OVER FIRST CHARACTER IF ANY.
11360 0520 00 0 11401 ZET,SPFLAG
11361 0774 00 2 00014 AXT,12,2
11362 -0500 00 2 11506 IFOX CAL BUFF+13,2 GET THE CHARACTER TO BE TYPED.
11363 0074 00 4 04174 TSX TYO,4 TYPE IT.
11364 -0520 00 0 11401 NZT,SPFLAG
11365 0020 00 0 11374 TRA,TIXIT
11366 -3 00013 2 11371 TXL,*+3,2,11
11367 0074 00 4 04240 TSX,BL,LINK
11370 0020 00 0 11374 TRA,TIXIT
11371 3 00007 2 11374 TXH,TIXIT,2,7
11372 -3 00005 2 11374 TXL,TIXIT,2,5
11373 0074 00 4 04240 TSX,BL,LINK
11374 2 00001 2 11362 TIXIT TIX IFOX,2,1 COUNT AND GET NEXT CHARACTER IF ANY.
11375 0600 00 0 11401 STZ,SPFLAG
11376 0774 00 2 00000 IXB AXT ..,2 RESTORE THE XR'S.
11377 0774 00 4 00000 IXC AXT ..,4
11400 0020 00 4 00001 TRA 1,4 EXIT.
*
11401 0 00000 0 00000 SPFLAG
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 118
PROCEDURE FOR DUMPING TIP POINTERS
*
00004 LINK SET,4
*
* CALL TO TRITE FOR CHARACTER STRING PRINTOUT
*
11402 0560 00 0 14611 XPROC LDQ,=0
11403 0020 00 0 11407 TRA,HAVPTR
11404 0560 00 0 14612 YPROC LDQ,=1
11405 0020 00 0 11407 TRA,HAVPTR
11406 0560 00 0 14613 ZPROC LDQ,=2
11407 -0600 00 0 11467 HAVPTR STQ,.MODE.
11410 0602 00 0 11470 SLW,.PTR.
11411 3 00000 1 11323 TXH,FOCT,1,0
11412 0634 00 4 11453 SXA,SAVLNK,4
11413 0634 00 2 11454 SXA,SAVLNK+1,2
11414 0074 00 4 11323 TSX,FOCT,4
11415 0074 00 4 04232 TSX,CR,4
11416 0534 00 2 11467 LXA,.MODE.,2
11417 -0500 00 0 11470 CAL,.PTR.
11420 -0320 00 0 14646 ANA,=O77777
11421 -0130 00 0 00000 XCL
11422 -0754 00 0 00000 ZAC
11423 0221 00 2 11463 DVP,.FACT.,2
11424 0100 00 0 11430 TZE,*+4
11425 -0130 00 0 00000 XCL
11426 0400 00 0 14612 ADD,=1
11427 0020 00 0 11431 TRA,*+2
11430 -0130 00 0 00000 XCL
11431 0767 00 0 00022 ALS,18
11432 0401 00 0 11470 ADM,.PTR.
11433 0771 00 0 00022 ARS,18
11434 -0320 00 0 14646 ANA,=O77777
11435 -0340 00 0 00116 LAS,MEMBND
11436 0020 00 0 11456 TRA,XILF
11437 0020 00 0 11456 TRA,XILF
11440 0534 00 4 11470 LXA,.PTR.,4
11441 -3 00124 4 11443 TXL,*+2,4,84
11442 0774 00 4 00124 AXT,84,4
11443 0634 00 4 11470 SXA,.PTR.,4
11444 TSS,SETFUL
11444 0074 00 4 14600 TSX SETFUL,4 .002
11445 -0500 00 2 11466 CAL,.MODS.,2
11446 0602 00 0 11467 SLW,.MODE.
11447 0074 00 4 01625 XXTSX TSX,XLOOK,4
11450 0 00000 0 11467 PZE,.MODE.
11451 0 00000 0 11470 PZE,.PTR.
*
11452 TSS,SETBCD
11452 0074 00 4 14305 TSX SETBCD,4 .002
11453 0774 00 4 00000 SAVLNK AXT,**,4
11454 0774 00 2 00000 AXT,**,2
11455 0020 00 4 00001 TRA,1,4
*
*
11456 XILF BCDOUT,=O545454575757
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 119
PROCEDURE FOR DUMPING TIP POINTERS
11456 0500 00 0 14725 CLA =O545454575757 .002
11457 0074 00 4 04311 TSX BCDOUT,4 .002
11460 0020 00 0 11453 TRA,SAVLNK
*
11461 0 00000 0 00003 PZE,3
11462 0 00000 0 00004 PZE,4
11463 0 00000 0 00006 .FACT. PZE,6
*
11464 010222316360 BCI,1,12BIT
11465 227063256260 BCI,1,BYTES
11466 233021516260 .MODS. BCI,1,CHARS
*
11467 0 00000 0 00000 .MODE. PZE
11470 0 00000 0 00000 .PTR. PZE
*
*
*
11471 BUFF BSS 13 OUTPUT CHARACTER ARRAY.
*
11506 0 00000 0 00000 CQ
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 120
DERR. DISK ERROR DIAGNOSTIC ROUTINE.
11507 DERR IODIAG ((DIAG,,DILTH)) GET THE INFORMATION.
11507 0074 00 4 14602 TSX IODIAG,4 .004
11510 3 00006 0 11605 PAR DIAG,,DILTH .004
11511 -0500 00 0 11606 CAL DISUBR GET THE SUBROUTINE NAME.
11512 TEQ OPEN1,=HOPEN GO CHECK ERROR CODE IF IT IS 'OPEN'.
11512 -0340 00 0 14714 LAS =HOPEN .002
11513 0020 00 0 11515 TRA *+2 .002
11514 0020 00 0 11556 TRA OPEN1 .002
11515 NOPE BCDOUT =HERROR GIVE GENERAL COMMENT.
11515 0500 00 0 14675 CLA =HERROR .002
11516 0074 00 4 04311 TSX BCDOUT,4 .002
11517 OCTOUT DICODE TYPE THE ERROR CODE.
11517 0500 00 0 11607 CLA DICODE .002
11520 0074 00 4 11324 TSX OCTOUT,4 .002
11521 BCDOUT (=H FROM ) ..
11521 0500 00 0 14734 CLA =H FROM .002
11522 0074 00 4 04311 TSX BCDOUT,4 .002
11523 NAMOUT DISUBR TYPE THE SUBROUTINE NAME.
11523 0500 00 0 11606 CLA DISUBR .002
11524 0074 00 4 04313 TSX NAMOUT,4 .002
11525 TYPA 1,( FOR *) ..
11525 0074 00 4 04036 TSX TYPA,4 .002
11526 3 00000 0 14603 PAR ..151 .002
11527 0074 00 4 04236 TSX QUOTE,4 QUOTE THE FILE NAMES.
11530 NAMOUT DIN1 TYPE THE FILE NAMES.
11530 0500 00 0 11611 CLA DIN1 .002
11531 0074 00 4 04313 TSX NAMOUT,4 .002
11532 TYO =H00000 ..
11532 0500 00 0 14634 CLA =H00000 .002
11533 0074 00 4 04174 TSX TYO,4 .002
11534 NAMOUT DIN2 ..
11534 0500 00 0 11612 CLA DIN2 .002
11535 0074 00 4 04313 TSX NAMOUT,4 .002
11536 0074 00 4 04236 TSX QUOTE,4 ..
11537 TYO =H00000. TERMINATE THE SENTENCE.
11537 0500 00 0 14630 CLA =H00000. .002
11540 0074 00 4 04174 TSX TYO,4 .002
11541 0074 00 4 04232 TSX CR,4 RETURN THE CARRIAGE.
11542 -0500 00 0 11606 CAL DISUBR GET THE SUBROUTINE NAME AGAIN.
11543 TEQ OOPS,=HOPEN IGNORE IF 'OPEN'.
11543 -0340 00 0 14714 LAS =HOPEN .002
11544 0020 00 0 11546 TRA *+2 .002
11545 0020 00 0 02552 TRA OOPS .002
11546 TEQ OOPS,=HCLOSE OR IF 'CLOSE'.
11546 -0340 00 0 14674 LAS =HCLOSE .002
11547 0020 00 0 11551 TRA *+2 .002
11550 0020 00 0 02552 TRA OOPS .002
11551 CLOSE (DIN1,DIN2,OOPS) OTHERWISE, TRY TO CLOSE IT.
11551 0074 00 4 14462 TSX CLOSE,4 .004
11552 3 00000 0 11611 PAR DIN1 .004
11553 3 00000 0 11612 PAR DIN2 .004
11554 3 00000 0 02552 PAR OOPS .004
11555 0020 00 0 02552 TRA OOPS GO SET ERROR FLAG.
*
11556 -0500 00 0 11607 OPEN1 CAL DICODE GET THE ERROR CODE.
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 121
DERR. DISK ERROR DIAGNOSTIC ROUTINE.
11557 TEQ OPEN2,=12 IS IT 'FILE NOT FOUND'.Q
11557 -0340 00 0 14623 LAS =12 .002
11560 0020 00 0 11562 TRA *+2 .002
11561 0020 00 0 11570 TRA OPEN2 .002
11562 TNE NOPE,=6 NO, IS IT 'LINKED FILE NOT FOUND'.Q
11562 -0340 00 0 14615 LAS =6 .003
11563 0020 00 0 11565 TRA *+2 .003
11564 0020 00 0 11566 TRA *+2 .003
11565 0020 00 0 11515 TRA NOPE .002
11566 TYPA 2,(LINKED *) YES, START THE COMMENT.
11566 0074 00 4 04036 TSX TYPA,4 .002
11567 3 00000 0 14604 PAR ..158 .002
11570 OPEN2 TYPA 1,(FILE *) ..
11570 0074 00 4 04036 TSX TYPA,4 .002
11571 3 00000 0 14606 PAR ..159 .002
11572 0074 00 4 04236 TSX QUOTE,4 TYPE THE FILE NAMES.
11573 NAMOUT DIN1 ..
11573 0500 00 0 11611 CLA DIN1 .002
11574 0074 00 4 04313 TSX NAMOUT,4 .002
11575 TYO =H00000 ..
11575 0500 00 0 14634 CLA =H00000 .002
11576 0074 00 4 04174 TSX TYO,4 .002
11577 NAMOUT DIN2 ..
11577 0500 00 0 11612 CLA DIN2 .002
11600 0074 00 4 04313 TSX NAMOUT,4 .002
11601 0074 00 4 04236 TSX QUOTE,4 ..
11602 TYPE 2,( NOT FOUND.*) END THE COMMENT.
11602 0074 00 4 04034 TSX TYPE,4 .002
11603 3 00000 0 14607 PAR ..160 .002
11604 0020 00 0 02552 TRA OOPS GO SET ERROR FLAG.
*
11605 DIAG EQU * DISK DIAGNOSTIC INFORMATION ARRAY..
11605 0 00000 0 00000 DICALL CALLER'S LOCATION.
11606 0 00000 0 00000 DISUBR DISK SUBROUTINE NAME.
11607 0 00000 0 00000 DICODE ERROR CODE.
11610 0 00000 0 00000 DIOCOD I/O ERROR CODE.
11611 0 00000 0 00000 DIN1 FIRST NAME OF THE FILE.
11612 0 00000 0 00000 DIN2 SECOND NAME OF THE FILE.
00006 DILTH EQU *-DIAG LENGTH OF THE ARRAY.
*
00660 BUFLTH EQU 432 SIZE OF PRIMARY BUFFERS NEEDED.
11613 BUF1 BSS BUFLTH THE BUFFER FOR GENERAL USE.
12473 BUF2 BSS BUFLTH THE BUFFER FOR REQUEST FILES.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 122
OPBCD. GET BCD CODE, GIVEN BINARY VALUE.
13353 0634 00 4 13442 OPBCD SXA OPXR,4
13354 0600 00 0 13475 CLEAR FLAG
13355 0602 00 0 13441 SLW,OPCDE
13356 -0320 00 0 14707 ANA,=O377777777600
13357 0322 00 0 14662 ERA,=O076000000000
13360 0100 00 0 13375 TZE,I760
13361 -0500 00 0 13441 CAL,OPCDE
13362 -0320 00 0 14655 ANA,=O000077000000
13363 0322 00 0 14654 ERA,=O000060000000
13364 0100 00 0 13367 TZE,ERAOK
13365 0322 00 0 14654 ERA,=O000060000000
13366 -0100 00 0 13371 TNZ,ERANOK
13367 0600 00 0 13475 ERAOK STZ,FLAG
13370 0020 00 0 13372 TRA,*+2
13371 -0625 00 0 13475 ERANOK STL,FLAG
13372 -0500 00 0 13441 CAL,OPCDE
13373 -0320 00 0 14774 ANA,=O777700000000
13374 0020 00 0 13410 TRA,GOTOIT
*
13375 -0500 00 0 13441 I760 CAL,OPCDE
13376 -0320 00 0 14775 ANA,=O777700000177
13377 0074 00 4 13426 TSX,OPSCH,4
13400 0020 00 0 13413 TRA,CHEK
13401 0771 00 0 00040 PREF ARS 32 RETURN IF NOT IN TABLE, USE PREFIX.
13402 -0320 00 0 14624 ANA =O16
13403 0734 00 4 00000 PAX ,4 SET INDEX.
13404 0767 00 0 00040 ALS 32 RESTORE AC.
13405 0560 00 4 14302 LDQ OPEND-2,4 PICK UP BCD OP. CODE.
13406 0534 00 4 13442 FND LXA OPXR,4
13407 0020 00 4 00001 TRA 1,4 RETURN.
*
13410 0074 00 4 13426 GOTOIT TSX,OPSCH,4
13411 0020 00 0 13413 TRA,*+2
13412 0020 00 0 13401 TRA,PREF
*
13413 -0130 00 0 00000 CHEK XCL
13414 0760 00 0 00001 LBT
13415 0020 00 0 13417 TRA,*+2
13416 0020 00 0 13423 TRA,YESOK
13417 -0130 00 0 00000 XCL
13420 -0520 00 0 13475 NZT,FLAG
13421 0020 00 0 13406 TRA,FND
13422 0020 00 0 13401 TRA,PREF
*
13423 0322 00 0 14635 YESOK ERA,=O61
13424 -0130 00 0 00000 XCL
13425 0020 00 0 13406 TRA,FND
*
13426 0634 00 4 13434 OPSCH SXA OSXR,4
13427 0774 00 4 00516 AXT OPEND-OPORG,4 SET UP COUNT.
13430 TEQ FNDIT,(OPEND+1,4) IS THIS THE ENTRY.Q
13430 -0340 00 4 14305 LAS OPEND+1,4 .002
13431 0020 00 0 13433 TRA *+2 .002
13432 0020 00 0 13436 TRA FNDIT .002
13433 2 00002 4 13430 TIX *-3,4,2
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 123
OPBCD. GET BCD CODE, GIVEN BINARY VALUE.
13434 0774 00 4 00000 OSXR AXT ..,4 NOT IN TABLE, EXIT.
13435 0020 00 4 00002 TRA 2,4
*
13436 0560 00 4 14304 FNDIT LDQ OPEND,4 PICK UP THE BCD CHARACTERS.
13437 0534 00 4 13434 LXA OSXR,4
13440 0020 00 4 00001 TRA 1,4 EXIT W/ BINARY IN AC, BCD IN MQ.
*
13441 0 00000 0 00000 OPCDE BCD OP CODE BEING LOOKED UP.
13442 0 00000 0 00000 OPXR STORAGE FOR XR 4 (OPBIN).
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 124
OPBIN. GET BINARY VALUE, GIVEN BCD CODE.
13443 0634 00 4 13442 OPBIN SXA OPXR,4
13444 0602 00 0 13441 SLW OPCDE
13445 -0320 00 0 14642 ANA =O77
13446 TEQ OPFLG,=H00000* TAKE CARE OF INDIRECT FLAG.
13446 -0340 00 0 14632 LAS =H00000* .002
13447 0020 00 0 13451 TRA *+2 .002
13450 0020 00 0 13466 TRA OPFLG .002
13451 0600 00 0 13475 STZ FLAG NOT INDIRECT. RESET FLAG.
13452 -0500 00 0 13441 CAL OPCDE
13453 0074 00 4 05303 OPRET TSX LADJ,4 ADJUST THE CODE TO THE LEFT.
13454 0774 00 4 00606 AXT OPEND-OPPRFX,4 SET UP COUNTER.
13455 OPLK TEQ OPFND,(OPEND,4) IS THIS IT.Q
13455 -0340 00 4 14304 LAS OPEND,4 .002
13456 0020 00 0 13460 TRA *+2 .002
13457 0020 00 0 13462 TRA OPFND .002
13460 2 00002 4 13455 TIX OPLK,4,2 TRY NEXT WORD.
13461 0020 00 0 02543 TRA UNDEF COMPLAIN ABOUT UNDEFINED SYMBOL.
*
13462 -0500 00 4 14305 OPFND CAL OPEND+1,4 PICK UP CODE.
13463 -0501 00 0 13475 ORA FLAG
13464 0534 00 4 13442 LXA OPXR,4
13465 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
13466 -0500 00 0 14654 OPFLG CAL =O60000000
13467 0602 00 0 13475 SLW FLAG
13470 0560 00 0 13441 LDQ OPCDE GET RID OF '*'.
13471 -0500 00 0 14746 CAL =H
13472 -0765 00 0 00006 LGR 6 SHIFT OFF '*,' ENTER BLANK.
13473 -0130 00 0 00000 XCL
13474 0020 00 0 13453 TRA OPRET
*
13475 0 00000 0 00000 FLAG INDIRECT FLAG.
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 125
TABLE OF OPERATION CODES.
RHC MACRO A
IRP A
GEN ,BCI,(1,A) GENERATE BCD CODE.
GEN ,A,(0,0,0) GENERATE BINARY VALUE.
IRP
END RHC
*
NFHC MACRO,A
IRP,A
PMC,ON
BCI,1,A
A,0
PMC,OFF
IRP
END
*
*
-0 20734 0 05544 PMC OPSYN SHOW *REVIVE DEFINITION OF PMC TO PRINT TABLE.
*
* BCD TO BINARY OPERATION CODE TABLE STARTS HERE.
13476 OPPRFX EQU *
13476 RHC ...
13476 333333606060 BCI 1,... .002
13477 0 00000 0 00000 ... 0,0,0 .002
13500 RHC PON
13500 474645606060 BCI 1,PON .002
13501 1 00000 0 00000 PON 0,0,0 .002
13502 RHC ONE
13502 464525606060 BCI 1,ONE .002
13503 1 00000 0 00000 ONE 0,0,0 .002
13504 RHC PTW
13504 476366606060 BCI 1,PTW .002
13505 2 00000 0 00000 PTW 0,0,0 .002
13506 RHC BLK BLOCK.
13506 224342606060 BCI 1,BLK .002
13507 2 00000 0 00000 BLK 0,0,0 .002
13510 RHC TWO
13510 636646606060 BCI 1,TWO .002
13511 2 00000 0 00000 TWO 0,0,0 .002
13512 RHC PTH
13512 476330606060 BCI 1,PTH .002
13513 3 00000 0 00000 PTH 0,0,0 .002
13514 RHC (BRN,PAR) BRANCH NEVER, PARAMETER.
13514 225145606060 BCI 1,BRN .002
13515 3 00000 0 00000 BRN 0,0,0 .002
13516 472151606060 BCI 1,PAR .002
13517 3 00000 0 00000 PAR 0,0,0 .002
13520 RHC THREE
13520 633051252560 BCI 1,THREE .002
13521 3 00000 0 00000 THREE 0,0,0 .002
13522 RHC FOR
13522 264651606060 BCI 1,FOR .002
13523 -0 00000 0 00000 FOR 0,0,0 .002
13524 RHC FOUR
13524 264664516060 BCI 1,FOUR .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 126
TABLE OF OPERATION CODES.
13525 -0 00000 0 00000 FOUR 0,0,0 .002
13526 RHC MON
13526 444645606060 BCI 1,MON .002
13527 -1 00000 0 00000 MON 0,0,0 .002
13530 RHC FVE
13530 266525606060 BCI 1,FVE .002
13531 -1 00000 0 00000 FVE 0,0,0 .002
13532 RHC FMT
13532 264463606060 BCI 1,FMT .002
13533 -1 00000 0 00000 FMT 0,0,0 .002
13534 RHC FIVE
13534 263165256060 BCI 1,FIVE .002
13535 -1 00000 0 00000 FIVE 0,0,0 .002
13536 RHC SIX
13536 623167606060 BCI 1,SIX .002
13537 -2 00000 0 00000 SIX 0,0,0 .002
13540 RHC MTW
13540 446366606060 BCI 1,MTW .002
13541 -2 00000 0 00000 MTW 0,0,0 .002
13542 RHC SEVEN
13542 622565254560 BCI 1,SEVEN .002
13543 -3 00000 0 00000 SEVEN 0,0,0 .002
13544 RHC SVN
13544 626545606060 BCI 1,SVN .002
13545 -3 00000 0 00000 SVN 0,0,0 .002
13546 RHC MTH
13546 446330606060 BCI 1,MTH .002
13547 -3 00000 0 00000 MTH 0,0,0 .002
13550 RHC BRA BRANCH.
13550 225121606060 BCI 1,BRA .002
13551 -3 00000 0 00000 BRA 0,0,0 .002
13552 RHC XIT FORTRAN'S NAME FOR 'TTR'.
13552 673163606060 BCI 1,XIT .002
13553 0021 00 0 00000 XIT 0,0,0 .002
13554 RHC (SETF,CLEAR) SET, CLEAR FLAG.
13554 622563266060 BCI 1,SETF .002
13555 -0625 00 0 00000 SETF 0,0,0 .002
13556 234325215160 BCI 1,CLEAR .002
13557 0600 00 0 00000 CLEAR 0,0,0 .002
13560 RHC (ZSA,ZSD,ZAC) ZERO ADDRESS, DECREMENT, AC.
13560 716221606060 BCI 1,ZSA .002
13561 0634 00 0 00000 ZSA 0,0,0 .002
13562 716224606060 BCI 1,ZSD .002
13563 -0634 00 0 00000 ZSD 0,0,0 .002
13564 712123606060 BCI 1,ZAC .002
13565 -0754 00 0 00000 ZAC 0,0,0 .002
* BINARY TO BCD OPERATION CODE TABLE STARTS HERE.
13566 OPORG RHC TRA
13566 635121606060 BCI 1,TRA .002
13567 0020 00 0 00000 TRA 0,0,0 .002
13570 RHC HTR
13570 306351606060 BCI 1,HTR .002
13571 0000 00 0 00000 HTR 0,0,0 .002
13572 RHC EMTM
13572 254463446060 BCI 1,EMTM .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 127
TABLE OF OPERATION CODES.
13573 -0760 00 0 00016 EMTM 0,0,0 .002
13574 RHC LAXM
13574 432167446060 BCI 1,LAXM .002
13575 -0760 00 0 00016 LAXM 0,0,0 .002
13576 RHC LMTM
13576 434463446060 BCI 1,LMTM .002
13577 0760 00 0 00016 LMTM 0,0,0 .002
13600 RHC EAXM
13600 252167446060 BCI 1,EAXM .002
13601 0760 00 0 00016 EAXM 0,0,0 .002
13602 RHC PCA
13602 472321606060 BCI 1,PCA .002
13603 0756 00 0 00000 PCA 0,0,0 .002
13604 RHC PCD
13604 472324606060 BCI 1,PCD .002
13605 -0756 00 0 00000 PCD 0,0,0 .002
13606 RHC SCA
13606 622321606060 BCI 1,SCA .002
13607 0636 00 0 00000 SCA 0,0,0 .002
13610 RHC SCD
13610 622324606060 BCI 1,SCD .002
13611 -0636 00 0 00000 SCD 0,0,0 .002
13612 RHC DLD
13612 244324606060 BCI 1,DLD .002
13613 0443 00 0 00000 DLD 0,0,0 .002
13614 RHC DST
13614 246263606060 BCI 1,DST .002
13615 -0603 00 0 00000 DST 0,0,0 .002
13616 RHC DFAD
13616 242621246060 BCI 1,DFAD .002
13617 0301 00 0 00000 DFAD 0,0,0 .002
13620 RHC DUFA
13620 246426216060 BCI 1,DUFA .002
13621 -0301 00 0 00000 DUFA 0,0,0 .002
13622 RHC DFSB
13622 242662226060 BCI 1,DFSB .002
13623 0303 00 0 00000 DFSB 0,0,0 .002
13624 RHC DUFS
13624 246426626060 BCI 1,DUFS .002
13625 -0303 00 0 00000 DUFS 0,0,0 .002
13626 RHC DFAM
13626 242621446060 BCI 1,DFAM .002
13627 0305 00 0 00000 DFAM 0,0,0 .002
13630 RHC DUAM
13630 246421446060 BCI 1,DUAM .002
13631 -0305 00 0 00000 DUAM 0,0,0 .002
13632 RHC DFSM
13632 242662446060 BCI 1,DFSM .002
13633 0307 00 0 00000 DFSM 0,0,0 .002
13634 RHC DUSM
13634 246462446060 BCI 1,DUSM .002
13635 -0307 00 0 00000 DUSM 0,0,0 .002
13636 RHC DFMP
13636 242644476060 BCI 1,DFMP .002
13637 0261 00 0 00000 DFMP 0,0,0 .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 128
TABLE OF OPERATION CODES.
13640 RHC DUFM
13640 246426446060 BCI 1,DUFM .002
13641 -0261 00 0 00000 DUFM 0,0,0 .002
13642 RHC DFDH
13642 242624306060 BCI 1,DFDH .002
13643 -0240 00 0 00000 DFDH 0,0,0 .002
13644 RHC DFDP
13644 242624476060 BCI 1,DFDP .002
13645 -0241 00 0 00000 DFDP 0,0,0 .002
13646 RHC TTR
13646 636351606060 BCI 1,TTR .002
13647 0021 00 0 00000 TTR 0,0,0 .002
13650 RHC TLQ
13650 634350606060 BCI 1,TLQ .002
13651 0040 00 0 00000 TLQ 0,0,0 .002
13652 RHC IIA
13652 313121606060 BCI 1,IIA .002
13653 0041 00 0 00000 IIA 0,0,0 .002
13654 RHC TIO
13654 633146606060 BCI 1,TIO .002
13655 0042 00 0 00000 TIO 0,0,0 .002
13656 RHC OAI
13656 462131606060 BCI 1,OAI .002
13657 0043 00 0 00000 OAI 0,0,0 .002
13660 RHC PAI
13660 472131606060 BCI 1,PAI .002
13661 0044 00 0 00000 PAI 0,0,0 .002
13662 RHC TIF
13662 633126606060 BCI 1,TIF .002
13663 0046 00 0 00000 TIF 0,0,0 .002
13664 NFHC IIR
13664 313151606060 BCI,1,IIR .001
13665 0051 00 000000 IIR,0 .001
13666 NFHC RFT
13666 512663606060 BCI,1,RFT .001
13667 0054 00 000000 RFT,0 .001
13670 NFHC SIR
13670 623151606060 BCI,1,SIR .001
13671 0055 00 000000 SIR,0 .001
13672 NFHC RNT
13672 514563606060 BCI,1,RNT .001
13673 0056 00 000000 RNT,0 .001
13674 NFHC RIR
13674 513151606060 BCI,1,RIR .001
13675 0057 00 000000 RIR,0 .001
13676 RHC TSX
13676 636267606060 BCI 1,TSX .002
13677 0074 00 0 00000 TSX 0,0,0 .002
13700 RHC TZE
13700 637125606060 BCI 1,TZE .002
13701 0100 00 0 00000 TZE 0,0,0 .002
13702 RHC TIA
13702 633121606060 BCI 1,TIA .002
13703 0101 00 0 00000 TIA 0,0,0 .002
13704 236551606001 BCI,1,CVR 1
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 129
TABLE OF OPERATION CODES.
13705 0114 00 0 00000 CVR,0,0,0
13706 RHC,CVR
13706 236551606060 BCI 1,CVR .002
13707 0114 00 0 00000 CVR 0,0,0 .002
13710 RHC TPL
13710 634743606060 BCI 1,TPL .002
13711 0120 00 0 00000 TPL 0,0,0 .002
13712 RHC XCA
13712 672321606060 BCI 1,XCA .002
13713 0131 00 0 00000 XCA 0,0,0 .002
13714 RHC TOV
13714 634665606060 BCI 1,TOV .002
13715 0140 00 0 00000 TOV 0,0,0 .002
13716 RHC TQO
13716 635046606060 BCI 1,TQO .002
13717 0161 00 0 00000 TQO 0,0,0 .002
13720 RHC TQP
13720 635047606060 BCI 1,TQP .002
13721 0162 00 0 00000 TQP 0,0,0 .002
13722 RHC MPY
13722 444770606060 BCI 1,MPY .002
13723 0200 00 0 00000 MPY 0,0,0 .002
13724 654344606001 BCI,1,VLM 1
13725 0204 00 0 00000 VLM,0,0,0
13726 RHC,VLM
13726 654344606060 BCI 1,VLM .002
13727 0204 00 0 00000 VLM 0,0,0 .002
13730 RHC DVH
13730 246530606060 BCI 1,DVH .002
13731 0220 00 0 00000 DVH 0,0,0 .002
13732 RHC DVP
13732 246547606060 BCI 1,DVP .002
13733 0221 00 0 00000 DVP 0,0,0 .002
13734 652430606001 BCI,1,VDH 1
13735 0224 00 0 00000 VDH,0,0,0
13736 RHC,VDH
13736 652430606060 BCI 1,VDH .002
13737 0224 00 0 00000 VDH 0,0,0 .002
13740 652447606001 BCI,1,VDP 1
13741 0225 00 0 00000 VDP,0,0,0
13742 RHC,VDP
13742 652447606060 BCI 1,VDP .002
13743 0225 00 0 00000 VDP 0,0,0 .002
13744 RHC FDH
13744 262430606060 BCI 1,FDH .002
13745 0240 00 0 00000 FDH 0,0,0 .002
13746 RHC FDP
13746 262447606060 BCI 1,FDP .002
13747 0241 00 0 00000 FDP 0,0,0 .002
13750 RHC FMP
13750 264447606060 BCI 1,FMP .002
13751 0260 00 0 00000 FMP 0,0,0 .002
13752 RHC FAD
13752 262124606060 BCI 1,FAD .002
13753 0300 00 0 00000 FAD 0,0,0 .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 130
TABLE OF OPERATION CODES.
13754 RHC FSB
13754 266222606060 BCI 1,FSB .002
13755 0302 00 0 00000 FSB 0,0,0 .002
13756 RHC FAM
13756 262144606060 BCI 1,FAM .002
13757 0304 00 0 00000 FAM 0,0,0 .002
13760 RHC FSM
13760 266244606060 BCI 1,FSM .002
13761 0306 00 0 00000 FSM 0,0,0 .002
13762 RHC ANS
13762 214562606060 BCI 1,ANS .002
13763 0320 00 0 00000 ANS 0,0,0 .002
13764 RHC ERA
13764 255121606060 BCI 1,ERA .002
13765 0322 00 0 00000 ERA 0,0,0 .002
13766 RHC CAS
13766 232162606060 BCI 1,CAS .002
13767 0340 00 0 00000 CAS 0,0,0 .002
13770 RHC ACL
13770 212343606060 BCI 1,ACL .002
13771 0361 00 0 00000 ACL 0,0,0 .002
13772 RHC ADD
13772 212424606060 BCI 1,ADD .002
13773 0400 00 0 00000 ADD 0,0,0 .002
13774 RHC ADM
13774 212444606060 BCI 1,ADM .002
13775 0401 00 0 00000 ADM 0,0,0 .002
13776 RHC SUB
13776 626422606060 BCI 1,SUB .002
13777 0402 00 0 00000 SUB 0,0,0 .002
14000 RHC HPR
14000 304751606060 BCI 1,HPR .002
14001 0420 00 0 00000 HPR 0,0,0 .002
14002 RHC IIS
14002 313162606060 BCI 1,IIS .002
14003 0440 00 0 00000 IIS 0,0,0 .002
14004 RHC LDI
14004 432431606060 BCI 1,LDI .002
14005 0441 00 0 00000 LDI 0,0,0 .002
14006 RHC OSI
14006 466231606060 BCI 1,OSI .002
14007 0442 00 0 00000 OSI 0,0,0 .002
14010 RHC OFT
14010 462663606060 BCI 1,OFT .002
14011 0444 00 0 00000 OFT 0,0,0 .002
14012 RHC RIS
14012 513162606060 BCI 1,RIS .002
14013 0445 00 0 00000 RIS 0,0,0 .002
14014 RHC ONT
14014 464563606060 BCI 1,ONT .002
14015 0446 00 0 00000 ONT 0,0,0 .002
14016 RHC CLA
14016 234321606060 BCI 1,CLA .002
14017 0500 00 0 00000 CLA 0,0,0 .002
14020 RHC CLS
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 131
TABLE OF OPERATION CODES.
14020 234362606060 BCI 1,CLS .002
14021 0502 00 0 00000 CLS 0,0,0 .002
14022 RHC ZET
14022 712563606060 BCI 1,ZET .002
14023 0520 00 0 00000 ZET 0,0,0 .002
14024 RHC XEC
14024 672523606060 BCI 1,XEC .002
14025 0522 00 0 00000 XEC 0,0,0 .002
14026 RHC LXA
14026 436721606060 BCI 1,LXA .002
14027 0534 00 0 00000 LXA 0,0,0 .002
14030 RHC LAC
14030 432123606060 BCI 1,LAC .002
14031 0535 00 0 00000 LAC 0,0,0 .002
14032 RHC LDQ
14032 432450606060 BCI 1,LDQ .002
14033 0560 00 0 00000 LDQ 0,0,0 .002
14034 RHC STZ
14034 626371606060 BCI 1,STZ .002
14035 0600 00 0 00000 STZ 0,0,0 .002
14036 RHC STO
14036 626346606060 BCI 1,STO .002
14037 0601 00 0 00000 STO 0,0,0 .002
14040 RHC SLW
14040 624366606060 BCI 1,SLW .002
14041 0602 00 0 00000 SLW 0,0,0 .002
14042 RHC STI
14042 626331606060 BCI 1,STI .002
14043 0604 00 0 00000 STI 0,0,0 .002
14044 RHC STD
14044 626324606060 BCI 1,STD .002
14045 0622 00 0 00000 STD 0,0,0 .002
14046 RHC STT
14046 626363606060 BCI 1,STT .002
14047 0625 00 0 00000 STT 0,0,0 .002
14050 RHC STA
14050 626321606060 BCI 1,STA .002
14051 0621 00 0 00000 STA 0,0,0 .002
14052 RHC STP
14052 626347606060 BCI 1,STP .002
14053 0630 00 0 00000 STP 0,0,0 .002
14054 RHC SXA
14054 626721606060 BCI 1,SXA .002
14055 0634 00 0 00000 SXA 0,0,0 .002
14056 RHC PAX
14056 472167606060 BCI 1,PAX .002
14057 0734 00 0 00000 PAX 0,0,0 .002
14060 RHC PAC
14060 472123606060 BCI 1,PAC .002
14061 0737 00 0 00000 PAC 0,0,0 .002
14062 RHC PXA
14062 476721606060 BCI 1,PXA .002
14063 0754 00 0 00000 PXA 0,0,0 .002
14064 RHC PSE FOLLOWING ARE THE 'EXTENDED' VERSIONS.
14064 476225606060 BCI 1,PSE .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 132
TABLE OF OPERATION CODES.
14065 0760 00 0 00000 PSE 0,0,0 .002
14066 RHC CLM
14066 234344606060 BCI 1,CLM .002
14067 0760 00 0 00000 CLM 0,0,0 .002
14070 RHC LBT
14070 432263606060 BCI 1,LBT .002
14071 0760 00 0 00001 LBT 0,0,0 .002
14072 RHC CHS
14072 233062606060 BCI 1,CHS .002
14073 0760 00 0 00002 CHS 0,0,0 .002
14074 RHC SSP
14074 626247606060 BCI 1,SSP .002
14075 0760 00 0 00003 SSP 0,0,0 .002
14076 RHC ENK
14076 254542606060 BCI 1,ENK .002
14077 0760 00 0 00004 ENK 0,0,0 .002
14100 RHC COM
14100 234644606060 BCI 1,COM .002
14101 0760 00 0 00006 COM 0,0,0 .002
14102 RHC RND
14102 514524606060 BCI 1,RND .002
14103 0760 00 0 00010 RND 0,0,0 .002
14104 RHC FRN
14104 265145606060 BCI 1,FRN .002
14105 0760 00 0 00011 FRN 0,0,0 .002
14106 RHC DCT
14106 242363606060 BCI 1,DCT .002
14107 0760 00 0 00012 DCT 0,0,0 .002
14110 RHC SLN
14110 624345606060 BCI 1,SLN .002
14111 0760 00 0 00140 SLN 0,0,0 .002
14112 RHC SLF
14112 624326606060 BCI 1,SLF .002
14113 0760 00 0 00140 SLF 0,0,0 .002
14114 RHC NOP
14114 454647606060 BCI 1,NOP .002
14115 0761 00 0 00000 NOP 0,0,0 .002
14116 RHC LLS
14116 434362606060 BCI 1,LLS .002
14117 0763 00 0 00000 LLS 0,0,0 .002
14120 RHC LRS
14120 435162606060 BCI 1,LRS .002
14121 0765 00 0 00000 LRS 0,0,0 .002
14122 RHC ALS
14122 214362606060 BCI 1,ALS .002
14123 0767 00 0 00000 ALS 0,0,0 .002
14124 RHC ARS
14124 215162606060 BCI 1,ARS .002
14125 0771 00 0 00000 ARS 0,0,0 .002
14126 RHC AXT
14126 216763606060 BCI 1,AXT .002
14127 0774 00 0 00000 AXT 0,0,0 .002
14130 RHC RIA
14130 513121606060 BCI 1,RIA .002
14131 -0042 00 0 00000 RIA 0,0,0 .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 133
TABLE OF OPERATION CODES.
14132 RHC PIA
14132 473121606060 BCI 1,PIA .002
14133 -0046 00 0 00000 PIA 0,0,0 .002
14134 NFHC IIL
14134 313143606060 BCI,1,IIL .001
14135 -0051 00 000000 IIL,0 .001
14136 NFHC LFT
14136 432663606060 BCI,1,LFT .001
14137 -0054 00 000000 LFT,0 .001
14140 NFHC SIL
14140 623143606060 BCI,1,SIL .001
14141 -0055 00 000000 SIL,0 .001
14142 NFHC LNT
14142 434563606060 BCI,1,LNT .001
14143 -0056 00 000000 LNT,0 .001
14144 NFHC RIL
14144 513143606060 BCI,1,RIL .001
14145 -0057 00 000000 RIL,0 .001
14146 RHC TNZ
14146 634571606060 BCI 1,TNZ .002
14147 -0100 00 0 00000 TNZ 0,0,0 .002
14150 232150606001 BCI,1,CAQ 1
14151 -0114 00 0 00000 CAQ,0,0,0
14152 RHC,CAQ
14152 232150606060 BCI 1,CAQ .002
14153 -0114 00 0 00000 CAQ 0,0,0 .002
14154 RHC TMI
14154 634431606060 BCI 1,TMI .002
14155 -0120 00 0 00000 TMI 0,0,0 .002
14156 RHC XCL
14156 672343606060 BCI 1,XCL .002
14157 -0130 00 0 00000 XCL 0,0,0 .002
14160 RHC TNO
14160 634546606060 BCI 1,TNO .002
14161 -0140 00 0 00000 TNO 0,0,0 .002
14162 235150606001 BCI,1,CRQ 1
14163 -0154 00 0 00000 CRQ,0,0,0
14164 RHC,CRQ
14164 235150606060 BCI 1,CRQ .002
14165 -0154 00 0 00000 CRQ 0,0,0 .002
14166 RHC MPR
14166 444751606060 BCI 1,MPR .002
14167 -0200 00 0 00000 MPR 0,0,0 .002
14170 RHC UFM
14170 642644606060 BCI 1,UFM .002
14171 -0260 00 0 00000 UFM 0,0,0 .002
14172 RHC UFA
14172 642621606060 BCI 1,UFA .002
14173 -0300 00 0 00000 UFA 0,0,0 .002
14174 RHC UFS
14174 642662606060 BCI 1,UFS .002
14175 -0302 00 0 00000 UFS 0,0,0 .002
14176 RHC UAM
14176 642144606060 BCI 1,UAM .002
14177 -0304 00 0 00000 UAM 0,0,0 .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 134
TABLE OF OPERATION CODES.
14200 RHC USM
14200 646244606060 BCI 1,USM .002
14201 -0306 00 0 00000 USM 0,0,0 .002
14202 RHC ANA
14202 214521606060 BCI 1,ANA .002
14203 -0320 00 0 00000 ANA 0,0,0 .002
14204 RHC LAS
14204 432162606060 BCI 1,LAS .002
14205 -0340 00 0 00000 LAS 0,0,0 .002
14206 RHC SBM
14206 622244606060 BCI 1,SBM .002
14207 -0400 00 0 00000 SBM 0,0,0 .002
14210 RHC CAL
14210 232143606060 BCI 1,CAL .002
14211 -0500 00 0 00000 CAL 0,0,0 .002
14212 RHC ORA
14212 465121606060 BCI 1,ORA .002
14213 -0501 00 0 00000 ORA 0,0,0 .002
14214 RHC NZT
14214 457163606060 BCI 1,NZT .002
14215 -0520 00 0 00000 NZT 0,0,0 .002
14216 RHC LXD
14216 436724606060 BCI 1,LXD .002
14217 -0534 00 0 00000 LXD 0,0,0 .002
14220 RHC LDC
14220 432423606060 BCI 1,LDC .002
14221 -0535 00 0 00000 LDC 0,0,0 .002
14222 RHC STQ
14222 626350606060 BCI 1,STQ .002
14223 -0600 00 0 00000 STQ 0,0,0 .002
14224 RHC ORS
14224 465162606060 BCI 1,ORS .002
14225 -0602 00 0 00000 ORS 0,0,0 .002
14226 RHC SLQ
14226 624350606060 BCI 1,SLQ .002
14227 -0620 00 0 00000 SLQ 0,0,0 .002
14230 RHC STL
14230 626343606060 BCI 1,STL .002
14231 -0625 00 0 00000 STL 0,0,0 .002
14232 RHC SXD
14232 626724606060 BCI 1,SXD .002
14233 -0634 00 0 00000 SXD 0,0,0 .002
14234 RHC PDX
14234 472467606060 BCI 1,PDX .002
14235 -0734 00 0 00000 PDX 0,0,0 .002
14236 RHC PDC
14236 472423606060 BCI 1,PDC .002
14237 -0737 00 0 00000 PDC 0,0,0 .002
14240 RHC PXD
14240 476724606060 BCI 1,PXD .002
14241 -0754 00 0 00000 PXD 0,0,0 .002
14242 RHC MSE FOLLOWING ARE THE EXTENDED VERSIONS.
14242 446225606060 BCI 1,MSE .002
14243 -0760 00 0 00000 MSE 0,0,0 .002
14244 RHC PBT
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 135
TABLE OF OPERATION CODES.
14244 472263606060 BCI 1,PBT .002
14245 -0760 00 0 00001 PBT 0,0,0 .002
14246 RHC SSM
14246 626244606060 BCI 1,SSM .002
14247 -0760 00 0 00003 SSM 0,0,0 .002
14250 RHC SLT
14250 624363606060 BCI 1,SLT .002
14251 -0760 00 0 00140 SLT 0,0,0 .002
14252 RHC SWT
14252 626663606060 BCI 1,SWT .002
14253 0760 00 0 00160 SWT 0,0,0 .002
14254 RHC LGL
14254 432743606060 BCI 1,LGL .002
14255 -0763 00 0 00000 LGL 0,0,0 .002
14256 RHC LGR
14256 432751606060 BCI 1,LGR .002
14257 -0765 00 0 00000 LGR 0,0,0 .002
14260 RHC RQL
14260 515043606060 BCI 1,RQL .002
14261 -0773 00 0 00000 RQL 0,0,0 .002
14262 RHC AXC
14262 216723606060 BCI 1,AXC .002
14263 -0774 00 0 00000 AXC 0,0,0 .002
14264 RHC TXL FOLLOWING ARE ALL PREFIX CODES.
14264 636743606060 BCI 1,TXL .002
14265 -3 00000 0 00000 TXL 0,0,0 .002
14266 RHC TNX
14266 634567606060 BCI 1,TNX .002
14267 -2 00000 0 00000 TNX 0,0,0 .002
14270 RHC STR
14270 626351606060 BCI 1,STR .002
14271 -1 00000 0 00000 STR 0,0,0 .002
14272 RHC MZE
14272 447125606060 BCI 1,MZE .002
14273 -0 00000 0 00000 MZE 0,0,0 .002
14274 RHC TXH
14274 636730606060 BCI 1,TXH .002
14275 3 00000 0 00000 TXH 0,0,0 .002
14276 RHC TIX
14276 633167606060 BCI 1,TIX .002
14277 2 00000 0 00000 TIX 0,0,0 .002
14300 RHC TXI
14300 636731606060 BCI 1,TXI .002
14301 1 00000 0 00000 TXI 0,0,0 .002
14302 RHC PZE
14302 477125606060 BCI 1,PZE .002
14303 0 00000 0 00000 PZE 0,0,0 .002
14304 OPEND EQU *
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 136
REMOTE SEQUENCES.
-0 20734 0 05544 PMC OPSYN SHOW *REVIVE DEFINITION OF PMC TO PRINT THEM.
14304 RMT * GO, GO, GO.
14304 0101 00 0 14702 GETILC TIA =HGETILC .002
14305 0101 00 0 14751 SETBCD TIA =HSETBCD .002
14306 242522642760 ..001 BCI 3,DEBUG ENTERED.* .002
14307 254563255125
14310 243354606060
14311 0101 00 0 14703 GETMEM TIA =HGETMEM .002
14312 606044254446 BNDC BCI 4, MEMORY BOUND IS * .002
14313 517060224664
14314 452460316260
14315 546060606060
14316 602545234664 ..002 BCI 5, ENCOUNTERED UNEXPECTEDLY.* .002
14317 456325512524
14320 606445256747
14321 252363252443
14322 703354606060
14323 254524604626 ..003 BCI 3,END OF REQUEST* .002
14324 605125506425
14325 626354606060
14326 314343252721 ..004 BCI 4,ILLEGAL BREAK REQUEST.* .002
14327 436022512521
14330 426051255064
14331 256263335460
14332 604346236054 ..005 BCI 1, LOC * .002
14333 602163605460 QATWRD BCI 1, AT * .002
14334 604721626225 ..006 BCI 2, PASSED * .002
14335 246054606060
14336 606331442554 ..007 BCI 1, TIME* .002
14337 475146275121 ..008 BCI 4,PROGRAM RESTARTED.* .002
14340 446051256263
14341 215163252433
14342 546060606060
14343 672523602330 ..009 BCI 4,XEC CHAIN TOO DEEP. * .002
14344 213145606346
14345 466024252547
14346 336060546060
14347 476031274546 ..010 BCI 2,P IGNORED.* .002
14350 512524335460
14351 225125214260 ..011 BCI 2,BREAK * .002
14352 546060606060
14353 736044254446 ..012 BCI 4,, MEMORY BOUND IS * .002
14354 517060224664
14355 452460316260
14356 546060606060
14357 444645316346 ..013 BCI 2,MONITOR * .002
14360 516054606060
14361 475146275121 ..014 BCI 3,PROGRAM STARTED.* .002
14362 446062632151
14363 632524335460
14364 276031274546 ..015 BCI 2,G IGNORED.* .002
14365 512524335460
14366 274646246022 ..016 BCI 2,GOOD BYE.* .002
14367 702533546060
14370 0101 00 0 14673 CHNCOM TIA =HCHNCOM .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 137
REMOTE SEQUENCES.
14371 0101 00 0 14676 GETBRK TIA =HGETBRK .002
14372 626422514664 ..017 BCI 5,SUBROUTINE TRITE NOT FOUND.* .002
14373 633145256063
14374 513163256045
14375 466360264664
14376 452433546060
14377 512547252163 RPTC BCI 2,REPEAT.* .002
14400 335460606060
14401 314343252721 ..018 BCI 4,ILLEGAL VERIFY REQUEST.* .002
14402 436065255131
14403 267060512550
14404 642562633354
14405 434623216331 ..019 BCI 5,LOCATION ABOVE MEMORY BOUND.* .002
14406 464560212246
14407 652560442544
14410 465170602246
14411 644524335460
14412 632122432560 ..020 BCI 6,TABLE FULL, DEFINITION IGNORED.* .002
14413 266443437360
14414 242526314531
14415 633146456031
14416 274546512524
14417 335460606060
14420 603162604546 ..021 BCI 3, IS NOT DEFINED.* .002
14421 636024252631
14422 452524335460
14423 603162604346 ..022 BCI 3, IS LOADED AT * .002
14424 212425246021
14425 636054606060
14426 736025456351 ..023 BCI 3,, ENTRY POINT IS * .002
14427 706047463145
14430 636031626054
14431 603162604546 ..024 BCI 3, IS NOT IN CORE.* .002
14432 636031456023
14433 465125335460
14434 444665312560 ..025 BCI 4,MOVIE TABLE NOT FOUND.* .002
14435 632122432560
14436 454663602646
14437 644524335460
14440 466525512643 ..026 BCI 5,OVERFLOW DURING CONVERSION.* .002
14441 466660246451
14442 314527602346
14443 456525516231
14444 464533546060
14445 466525512643 ..027 BCI 5,OVERFLOW DURING SHIFTING.* .002
14446 466660246451
14447 314527606230
14450 312663314527
14451 335460606060
14452 263347336045 ..028 BCI 5,F.P. NUMBER OUT OF RANGE.* .002
14453 644422255160
14454 466463604626
14455 605121452725
14456 335460606060
14457 0101 00 0 14714 OPEN TIA =HOPEN .002
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 138
REMOTE SEQUENCES.
14460 0101 00 0 14671 BUFFER TIA =HBUFFER .002
14461 0101 00 0 14721 RDWAIT TIA =HRDWAIT .002
14462 0101 00 0 14674 CLOSE TIA =HCLOSE .002
14463 234644472151 ..065 BCI 3,COMPARISON DONE.* .002
14464 316246456024
14465 464525335460
14466 223145215170 ..066 BCI 6,BINARY CARD IS NON-RELOCATABLE.* .002
14467 602321512460
14470 316260454645
14471 405125434623
14472 216321224325
14473 335460606060
14474 0101 00 0 14701 GETCOM TIA =HGETCOM .002
14475 0101 00 0 14750 SAVBRK TIA =HSAVBRK .002
14476 0101 00 0 14752 SETBRK TIA =HSETBRK .002
14477 312745465131 ..103 BCI 7,IGNORING OLDEST INTERRUPT SETTING.. * .002
14500 452760464324
14501 256263603145
14502 632551516447
14503 636062256363
14504 314527333360
14505 546060606060
14506 0101 00 0 14760 WRFLXA TIA =HWRFLXA .002
14507 454660664651 ..104 BCI 6,NO WORD SATISFIES REQUIREMENT.* .002
14510 246062216331
14511 622631256260
14512 512550643151
14513 254425456333
14514 546060606060
14515 0101 00 0 14756 SETMEM TIA =HSETMEM .002
14516 0101 00 0 14677 GETCLC TIA =HGETCLC .002
14517 0101 00 0 14700 GETCLS TIA =HGETCLS .002
14520 0101 00 0 14754 SETCLS TIA =HSETCLS .002
14521 0101 00 0 14753 SETCLC TIA =HSETCLC .002
14522 0101 00 0 14712 NEXCOM TIA =HNEXCOM .002
14523 242522642760 ..105 BCI 3,DEBUG RESUMED.* .002
14524 512562644425
14525 243354606060
14526 336031274546 ..106 BCI 2,. IGNORED.* .002
14527 512524335460
14530 256731636026 ..107 BCI 3,EXIT FROM DEBUG.* .002
14531 514644602425
14532 226427335460
14533 216363254447 ..108 BCI 5,ATTEMPTED RETURN ILLEGAL.* .002
14534 632524605125
14535 636451456031
14536 434325272143
14537 335460606060
14540 632122432560 ..139 BCI 7,TABLE FULL, FIRST SYMBOL NOT INSERTED IS * .002
14541 266443437360
14542 263151626360
14543 627044224643
14544 604546636031
14545 456225516325
14546 246031626054
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 139
REMOTE SEQUENCES.
14547 627044224643 ..146 BCI 3,SYMBOLS LOADED.* .002
14550 626043462124
14551 252433546060
14552 627044224643 ..147 BCI 7,SYMBOL TABLE FULL, R MODE NOT ENTERED.* .002
14553 606321224325
14554 602664434373
14555 605160444624
14556 256045466360
14557 254563255125
14560 243354606060
14561 216363254447 ..148 BCI 7,ATTEMPT TO REDEFINE INTERNAL SYMBOL * .002
14562 636063466051
14563 252425263145
14564 256031456325
14565 514521436062
14566 704422464360
14567 546060606060
14570 603127454651 ..149 BCI 2, IGNORED.* .002
14571 252433546060
14572 0101 00 0 14770 (EFTM) TIA =H(EFTM) .002
14573 442544465170 ..150 BCI 5,MEMORY BOUND NOT CHANGED.* .002
14574 602246644524
14575 604546636023
14576 302145272524
14577 335460606060
14600 0101 00 0 14755 SETFUL TIA =HSETFUL .002
14601 0101 00 0 14772 (LFTM) TIA =H(LFTM) .002
14602 0101 00 0 14705 IODIAG TIA =HIODIAG .002
14603 602646516054 ..151 BCI 1, FOR * .002
14604 433145422524 ..158 BCI 2,LINKED * .002
14605 605460606060
14606 263143256054 ..159 BCI 1,FILE * .002
14607 604546636026 ..160 BCI 2, NOT FOUND.* .002
14610 466445243354
*
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 140
LITERALS.
*
END
LITERALS
14611 000000000000
14612 000000000001
14613 000000000002
14614 000000000003
14615 000000000006
14616 000000000007
14617 000000000010
14620 000000000011
14621 000000000012
14622 000000000013
14623 000000000014
14624 000000000016
14625 000000000020
14626 000000000024
14627 000000000025
14630 000000000033
14631 000000000040
14632 000000000054
14633 000000000055
14634 000000000060
14635 000000000061
14636 000000000062
14637 000000000070
14640 000000000072
14641 000000000073
14642 000000000077
14643 000000000200
14644 000000002321
14645 000000077770
14646 000000077777
14647 000000100000
14650 000000777777
14651 000002000001
14652 000007000000
14653 000010001111
14654 000060000000
14655 000077000000
14656 002000000000
14657 002000000002
14660 007400000000
14661 052200000000
14662 076000000000
14663 077400777777
14664 077777000000
14665 200077000000
14666 200777777777
14667 204500000000
14670 224321454260
14671 226426262551
14672 233000000000
14673 233045234644
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 141
LITERALS.
14674 234346622560
14675 255151465160
14676 272563225142
14677 272563234323
14700 272563234362
14701 272563234644
14702 272563314323
14703 272563442544
14704 300000000000
14705 314624312127
14706 336060606060
14707 377777777600
14710 400000000000
14711 426500000000
14712 452567234644
14713 462500000000
14714 464725456060
14715 465127601360
14716 477400000000
14717 500000000000
14720 512426436721
14721 512466213163
14722 516060606060
14723 532161725757
14724 534261725757
14725 545454575757
14726 545460606060
14727 545461575755
14730 546060606060
14731 556060606060
14732 575757575757
14733 602425226427
14734 602651464460
14735 606033272533
14736 606033432533
14737 606033452533
14740 606060226262
14741 606060332533
14742 606060332733
14743 606060334333
14744 606060606000
14745 606060606054
14746 606060606060
14747 606270446322
14750 622165225142
14751 622563222324
14752 622563225142
14753 622563234323
14754 622563234362
14755 622563266443
14756 622563442544
14757 635131632560
14760 665126436721
14761 700000000000
14762 700000777777
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 142
LITERALS.
14763 725060136057
14764 726260136057
14765 726365601360
14766 736047601360
14767 736050601360
14770 742526634434
14771 742545243460
14772 744326634434
14773 744421314534
14774 777700000000
14775 777700000177
14776 777777777700
14777 777777777777
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 1
POST PROCESSOR ASSEMBLY DATA
77461 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
15000 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
3103 E 3052, 3076
431 M 332
4473 N 334
2163 R 344, 2165, 5451, 5555
4503 S 354, 2353, 2356, 2410
4513 U 360
2200 V 362
6071 B0 5704, 5750
6072 B8 5706, 5752
2556 BC 51, 72, 75, 126, 142, 167, 205, 211, 373, 431, 434, 442, 447, 461, 1044, 1517, 1534
1663, 2111, 2200, 2317, 2324, 2333, 2351, 2357, 2364, 2374, 2406, 2412, 2456, 2523, 4523, 4663
4240 BL 2046,11344,11367,11373
11506 CQ 11335,11350,11354
4232 CR 41, 1032, 1346, 1447, 1616, 2037, 2454, 2513, 2647, 3522, 3613, 3630, 3657, 4125, 4746, 5431,11415
11541
1534 GO 312
0 .. 3, 206, 207, 1131, 1132, 1133, 1134, 1160, 1243, 1244, 1256, 1257, 1260, 1714, 1765, 1776, 2006
2007, 2010, 2041, 2601, 2605, 2650, 2761, 3140, 3141, 3234, 3270, 3306, 3315, 3324, 3550, 3552, 3554
3555, 3567, 3570, 3571, 3656, 3660, 3661, 3662, 3664, 3706, 3731, 3744, 3751, 3752, 3765, 4006, 4007
4010, 4011, 4061, 4062, 4063, 4104, 4105, 4117, 4133, 4137, 4140, 4165, 4166, 4227, 4256, 4265, 4267
4330, 4331, 4355, 4425, 5122, 5164, 5242, 5440, 5441, 5454, 5516, 5604, 5665, 5755, 6047,11213,11315
11316,11317,11376,11377,13434
4242 MQ 4175, 4230
4450 NO 4444
2561 OP 121, 127, 137, 141, 170
2761 XR 2703
2562 ADD 122, 150, 172
6053 BAC 2420, 2431, 2464, 2473, 5677, 6042,11152
6052 BIC 15, 1047, 1057, 1064, 1103, 1105, 1117, 1135, 1143, 1150, 1153, 1156, 1166, 1311, 1334, 1425, 1443
1450, 1622,11142
6066 BLS 5747, 6002,11144,11207
6055 BMQ 5672, 6045,11154
3613 BPR 3642
6070 BQS 2423, 2427, 2442, 2450, 2467, 2502, 2507, 5702, 6040
6065 BSI 5673, 6046,11146
6056 BX1 1401, 1472, 1503, 2062, 5260, 6073,11156
6057 BX2 6073,11160
6060 BX3 5676, 5730, 6021,11162,11203
6061 BX4 6073,11164
6062 BX5 5731, 6020,11166,11202
6063 BX6 5732, 6017,11170,11201
6064 BX7 5733, 6016,11172,11200
6056 BXA 5674, 6024, 6073,11206
6057 BXB 5675, 6023, 6073,11205
6061 BXC 10, 652, 665, 700, 713, 726, 1531, 1573, 6022, 6073,11204
2564 DEC 124, 166, 200
2523 DEF 306
2775 DGT 2726, 2733, 2746, 2757, 3037, 3042, 3110, 3126, 3137
4677 DOX 4675
3143 ERR 3064, 3115, 3226
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 2
POST PROCESSOR ASSEMBLY DATA
4435 FIX 4430, 4431
13406 FND 13421,13425
3232 FPT 3007, 3103, 3133, 3145, 3154
3227 FPZ 3011, 3105, 3135, 3147, 3152
11317 FXA 11220
11316 FXB 11217
11315 FXC 11216,11236,11310
11307 FXP 11302
3647 GPR 3641
4127 GQL 4120, 4134
3324 GWX 3310
236 ILF 214, 376, 402, 437, 1522, 1537, 2322, 2342, 2362, 2526, 2532, 2716, 2724, 3156
5124 IND 5065
1570 INT 4103, 4136, 4155
11376 IXB 11334
11377 IXC 11333
11554 ... 3360, 3361, 3362, 3363, 3364, 3365, 3367, 3370, 3371, 3372, 3374, 3375, 3376, 3377, 3400, 3401, 3402
3562, 3563, 3564, 3714, 3715, 3716, 3717, 3720, 3721, 3723, 3724, 3725, 3726, 3741, 3742, 3743, 3744
3745, 3746, 3747, 4027, 4030, 4031, 5333, 5334, 5335, 5336, 5337, 5340, 5342, 5343, 5344, 5345, 5347
5350, 5351, 5352, 5353, 5354, 5355, 5433, 5434, 5435,11510,11552,11553,11554
5454 KXR 5443
2456 LAC 326
5307 LAR 5323
5324 LAW 5303, 5307, 5315, 5317, 5322
2515 LLM 407, 507, 1053, 1247, 1545, 2022, 4625
235 LOC 14, 403, 404, 417, 421, 510, 1312, 1541, 1542, 1555, 1621, 1652, 1654, 1655, 1777, 2331, 2372
2533, 2537, 3454, 3455, 3504, 3510, 3520, 3523, 3525, 4626, 4644, 5612
211 LOK 135
3230 MAG 3003, 3040, 3043, 3071, 3072, 3117, 3122, 3127
3601 MAP 432
3630 MLP 3656
3032 MMI 3022
3643 MPR 3637
3231 MSG 3004, 3032, 3130
3661 MXA 3602
3662 MXB 3603
3660 MXC 3601, 3632
11257 NEG 11252
1416 NOB 1356, 1362, 1366
11261 NOR 11256
4117 NQL 4101
2774 NUM 2704, 2730, 2734, 2747
3265 OUT 3273, 3277
4470 PLS 4407, 4412
403 PUT 427
11237 REG 11227
11213 RXC 11175
2412 SAC 276
3772 SCH 4014
2773 SFT 2672, 2675, 2700, 2753
4006 SFW 3761
2776 SGN 2705, 2721, 2750
3306 SKX 3300
4071 SQT 4076, 4100
4007 SRW 3763, 4020
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 3
POST PROCESSOR ASSEMBLY DATA
1153 STL 1076
1135 STR 1102, 1215
3765 SWD 3760, 4016
4234 TAB 2034, 3514, 3517, 3651
4467 TAC 4440, 4450
2563 TAG 123, 157, 174
3225 TEN 3067, 3120, 3123,11254,11260
1143 TSX 1073
3226 TTR 3012, 3113
3233 TYI 2706, 2722, 2737, 3014, 3033, 3044, 3057, 3073, 3303, 4341, 5142
4174 TYO 40, 250, 1027, 1031, 1345, 1446, 1615, 2033, 2050, 2445, 2453, 2504, 2512, 2646, 3513, 4053, 4060
4233, 4235, 4237, 4241, 4326, 4422, 5067, 5107, 5115, 5130, 5430,11225,11231,11233,11235,11275,11277
11305,11312,11341,11363,11533,11540,11576
3571 VXA 3353
3570 VXB 3352
3567 VXC 3351
4644 WOW 4547, 4635
3650 WPR 3644, 3646
1165 XEC 1070
1777 XIT 1760, 1761, 1764
4406 YES 4402, 4447
636 ZOT 525
5731 7XRS 5725
4015 ALLB 3770
2357 AUTO 364
2777 BASE 2702, 2715, 2723, 2731, 2740,11332,11353
1735 BAXT 1512, 1706
5144 BCLK 5147
1765 BMLK 1746
14312 BNDC 34, 1611
1776 BNLK 1747, 1773
4360 BOIG 4311, 4313, 4322
4314 BOJN 4312
4320 BOLP 4327
4331 BOXA 4315
4330 BOXC 4314
1344 BRK2 1337
6054 BSAC 2421, 2465, 5700,11150
11613 BUF1 3371, 5344
12473 BUF2 3725
11471 BUFF 4336, 4347, 4351, 4354,11346,11355,11362
3416 CARD 3377, 3403, 3410, 3452, 3465, 3536, 3537, 3541, 3542, 5352, 5357, 5363, 5373, 5374
1226 CCEA 1154, 1167
1257 CCXA 1227
1260 CCXB 1230
1256 CCXC 1226
373 CEND 264, 265, 272, 373, 1661, 2352, 2355, 2407
13413 CHEK 13400
3706 CHXC 3665, 3674, 3703
264 CMND 110
275 CORG 264, 275
1714 CTSX 1662, 2036, 2435, 2475, 3516, 3521
3452 DATA 3404
11507 DERR 3365, 3372, 3402, 3564, 3721, 3726, 4023, 4031, 5340, 5345, 5355, 5435
5665 DFXC 5632, 5643, 5655, 5667
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 4
POST PROCESSOR ASSEMBLY DATA
11605 DIAG 11510,11605,11613
2076 DILF 2070, 2071
11611 DIN1 11530,11552,11573
11612 DIN2 11534,11553,11577
2106 DMPL 2024, 2035, 2051, 2072, 4442
2041 DMPX 2015, 2016, 2045, 2100, 2105
5656 DOBS 5644, 5650
2015 DUMP 1623, 1656, 1755, 2005, 4645
5175 EVAL 113
5301 EVBC 5205, 5217, 5241, 5246
5205 EVGO 5200
1131 EXOP 1104, 1116, 1120, 1141, 1145, 1146, 1151, 1162, 1163
3 FBUG 0
3035 FCNV 3031, 3056
3122 FDIV 3116
3126 FFMT 3054, 3100
3600 FILE 3355, 3361, 3367, 3374, 3562
3152 FILF 3027, 3061
13475 FLAG 13354,13367,13371,13420,13451,13463,13467
11321 FNUM 11221,11253,11257
11323 FOCT 336, 4310,11215,11326,11330,11411,11414
11301 FRAC 11306
2520 FULL 2541
4265 FWCW 4263
4267 FWXC 4260, 4262
3141 FXRB 3002
3140 FXRC 3001
1744 GOLK 1740
13375 I760 13360
2726 ICNV 2720, 2744
11357 IFIX 11351
2746 IFMT 2741
11362 IFOX 11374
2702 IJIN 2674, 2677
11332 IJON 11325
2721 IMIN 2714
1617 INT2 1606
2354 KILL 2336
5303 LADJ 131, 444, 2326, 2367, 2536, 5210, 5251,13453
5317 LASH 5314
4657 LFOR 4610, 4616, 4620, 4633
4 LINK 1676, 1702, 1704, 1705, 1706, 1707,11367,11373,11402
1712 LOC1 1464, 1506, 1507, 1670, 1720, 1724, 1732, 1750
1713 LOC2 1466, 1475, 1476, 1675, 1725, 1731, 1757
72 LOCF 61, 104, 112, 271
1660 LOOK 310, 314, 316, 324, 336, 2175, 4502, 4512, 4522
46 MAIN 254, 430, 433, 460, 614, 635, 642, 1353, 1533, 1560, 1657, 1666, 1711, 2123, 2126, 2274, 2332
2424, 2455, 2470, 2514, 2542, 2553, 4646, 4651, 4666, 4752, 4765, 5046
3645 MDUM 3636
3664 MPTR 3611, 3616, 3623, 3633, 3647, 3653
3656 MTST 3606
2411 NAME 441, 454, 455, 2345, 2366, 2373, 2401, 3675, 3705
5 NBRK 512, 621, 651, 741, 752, 767, 770, 1054
1652 NEXT 100
2013 NINC 1513, 1707
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 5
POST PROCESSOR ASSEMBLY DATA
620 NOGO 236, 1045, 1546, 2552, 3320, 4661
11515 NOPE 11565
2650 OFXC 2565
2552 OOPS 645, 1225, 1624, 1643, 2313, 2517, 2522, 2663, 2671, 2766, 2772, 3151, 5030, 5567,11545,11550,11554
11555,11604
14457 OPEN 3357, 3713, 5332
13455 OPLK 13460
13442 OPXR 13353,13406,13443,13464
13434 OSXR 13426,13437
2763 OVDC 2745
2767 OVFC 2755
4227 OXRC 4174, 4214
1121 PCOM 1114, 1142, 1152, 1164
1103 PNLD 1216
2666 PORG 2625, 2626, 2637, 2651, 3354, 3413, 3453
13401 PREF 13412,13422
2012 PREV 1753, 1767
11152 QBAC 413
4113 QLEV 4077, 4123, 4130
5533 QSYM 5513
3561 QUIT 3400, 3530, 3575
3651 RDUM
624 REM1 502, 634
14377 RPTC 1775, 2003, 2104
4133 RQCW 4131
62 RQST 55
11214 RXSI 11176,11212
5511 SBCF 5470, 5472
5504 SBOK 5502
5604 SBXR 5570, 5613, 5621, 5627
4635 SCHE 4545, 4560, 4574, 4602
4634 SCHG 4544, 4555, 4566, 4601
4636 SCHL 4546, 4552, 4565, 4573
574 SETE
3710 SETF 3704
2111 SETI 350
167 SINP 145, 154, 163
11271 SKIP 11263
4647 SLNO 4641
353 SLOC 2352, 2355, 2407
4135 SOQL 4127
5135 SPWD 5051, 5053, 5055, 5124
5122 SPXC 5050, 5105, 5113
5441 SRXA 5326
5440 SRXC 5325
1154 STL1 1222
1160 STLS 1155
115 SUBF 52, 73, 105
4256 SWXC 4245, 4252
206 SYMX 117, 215
207 SYMY 120
2605 TEST 2575
1033 TIXD 772, 775
1144 TSX1 1220
5721 TTTR 5707
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 6
POST PROCESSOR ASSEMBLY DATA
3330 TYIB 3240, 3243
3733 TYIF 3712, 3715, 3723, 3741, 4027
3270 TYIX 3233
4244 TYOB 4204, 4212, 4226
4036 TYPA 20, 33, 255, 777, 1004, 1014, 1020, 1201, 1322, 1326, 1340, 1431, 1435, 1610, 2635, 2641, 4121
5421, 5645,11525,11566,11570
4034 TYPE 252, 643, 1124, 1223, 1550, 1556, 1561, 1641, 1774, 2002, 2103, 2311, 2515, 2520, 2550, 2661, 2667
2763, 2767, 3143, 3565, 3573, 4647, 4747, 5026, 5034, 5044, 5436, 5560, 5653, 5771,11602
4044 TYPG 4055
4037 TYPJ 4035
4046 TYPL 4054
4056 TYPX 4052
2554 USYM 2543, 2545
1455 VLOC 1317, 1347, 1423, 1463
2557 WORD 171, 173, 176, 177, 202, 203, 204, 3467, 3472, 3476, 3501, 3503, 3505, 3515, 5056, 5061, 5074
5076, 5116, 5131, 5407, 5411, 5413, 5424
2401 WORK 2377
4754 XB12 4704
4756 XB22 4707
4760 XB32 4712
5012 XBOT 4671, 4700, 5012
2623 XFER 2617
11456 XILF 11436,11437
2004 XPCA 2001
11322 XPNT 11251,11265,11267,11307,11313
1221 XSTL 1211
5013 XTOP 4715
1217 XTSX 1206
2317 YANK 330
1322 YESB 1360, 1364, 1370
646 1FLAG 622, 624, 633
147 ADNXT
2305 ALSOV 2232, 2246
5160 BCBRK 5146
4340 BCDCH 4352
4333 BCDIN 220, 222
4355 BCDIX 4333
4354 BCDPT 4345
5164 BCEND 5136
5173 BCFLG 5137, 5156, 5161
5166 BCORG 5143
5142 BCRET 5155, 5157
5136 BCSCH 47, 125, 440, 453, 545, 2206, 2323, 2343, 2363, 2400, 2534, 4353, 4541, 4670, 5204, 5245
5174 BCSYM 5141, 5151, 5153, 5163
5173 BCTAB 5143, 5144, 5173
1403 BINCR 1374, 1400
617 BKCHR 466, 477, 504, 522
75 BLANK 65
1715 BLKLK 1514, 1710
2006 BLKXA 1715, 2000
2007 BLKXB 1716
2010 BLKXC 1717
542 BNEXT 534
1262 BREAK 654, 667, 702, 715, 730
647 BRKCS 471
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 7
POST PROCESSOR ASSEMBLY DATA
742 BRTST 746
762 BSTXR 751
747 BSVXR 740
6051 BUGSY 5533, 6051
1245 CCNTG 1237
1244 CCPCA 1233, 1253
1240 CCTAG 1236
1243 CCTXI 1232, 1241
1255 CCXIT 1251
272 CDISP 267
3576 CELL1 3356, 3405, 3407
3504 CHECK 3500
3665 CHFIL 42
1456 CHKIT 1407, 1412
3272 CHPRE 3264
14462 CLOSE 3561, 4026, 5432,11551
5245 CMAIS 5232
1124 CNOBP
1042 CNTBR 776, 1016, 1022, 1024, 1026
1527 COLOC 1524
1517 COLON 322
1414 CONDE 1365
1415 CONDG 1361
1413 CONDL 1371
3577 COUNT 3460, 3461, 3531, 3533
3327 CRFLG 16, 1576, 3235, 3250, 3313, 3317
2110 DDECF 2052, 2120, 2122, 2124
2107 DDEEP 2023, 2117, 2125
5 DEBUG 0, 5
5657 DEFNO 5634
2075 DGOBK
2064 DGOON 2055, 2061
6 DILTH 11510,11613
1556 DONTG 1547
5026 DONT. 4662
1223 DONTP 1046, 1203
2101 DPICD 2053
2066 DPRET 2102
2044 DREPT 2040
2024 DRETN 2075
771 DTEST 1035
2103 DTREP 2074
764 DUMPB 1351
1462 DUMPV 1350, 1452
1510 DVALL 1501
1477 DVONE 1470
1515 DVSAV 1462
2665 ENTRY 2611, 2643
13367 ERAOK 13364
5212 EVADD 5257, 5263, 5272
5242 EVEND 5175, 5201
5275 EVMIN 5225
5264 EVNUM 5206
5273 EVPLS 5222
5204 EVRET 5274, 5276
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 8
POST PROCESSOR ASSEMBLY DATA
5300 EVSGN 5177, 5203, 5213, 5273, 5275
5277 EVTOT 5176, 5202, 5215, 5216, 5233
5254 EVXCL 5247
3033 FDIG1 3017
3754 FIXCR 3750
3751 FIXCW 3737
4010 FIXXA 3755
4011 FIXXC 3754
4425 FLDXC 4361, 4417
3001 FLOIN 224
13436 FNDIT 13432
2613 FOUND 2620, 2622
3057 FRAC1 3025
3073 FRAC2 3047
3064 FRCNV 3102
3023 FRET1 3034
1741 FWDLK 1511, 1705, 1734
4260 FWORD 4224
615 GET7S 610
1675 GLOOK 1673
4376 GOWAY 4433, 4452, 4457
3332 GWBUF 3311, 3316, 3322, 3323
3322 GWMIB 3314
3310 GWORD 3237
2722 IDIG1 2711
260 ILFBL 244
263 ILFCH 245, 247
255 ILFCR 241
252 ILFJN 257, 262
643 INERR 472, 544, 602
11350 INEXT 11356
2675 INTIN 226, 230, 2115, 3107
4171 INTLA 4146, 4162
4170 INTOV 4143, 4145, 4163
4172 INTSA 4150, 4160
4165 INTXC 4151
4173 INUSR 5, 7, 1130, 1262, 1526, 1530, 1554, 1570, 1572, 5041
14306 ..001 21
14316 ..002 253
14323 ..003 256
14326 ..004 644
14332 ..005 1000
14334 ..006 1015
14336 ..007 1021
14337 ..008 1125
14343 ..009 1202
14347 ..010 1224
14351 ..011 1323
14353 ..012 1341
14357 ..013 1432
14361 ..014 1551
14364 ..015 1557
14366 ..016 1562
14372 ..017 1642
14401 ..018 2312
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 9
POST PROCESSOR ASSEMBLY DATA
14405 ..019 2516
14412 ..020 2521
14420 ..021 2551
14423 ..022 2636
14426 ..023 2642
14431 ..024 2662
14434 ..025 2670
14440 ..026 2764
14445 ..027 2770
14452 ..028 3144
14463 ..065 3566
14466 ..066 3574
14477 ..103 4122
14507 ..104 4650
14523 ..105 4750
14526 ..106 5027
14530 ..107 5035
14533 ..108 5045
14540 ..139 5422
14547 ..146 5437
14552 ..147 5561
14561 ..148 5646
14570 ..149 5654
14573 ..150 5772
14603 ..151 11526
14604 ..158 11567
14606 ..159 11571
14607 ..160 11603
11470 .PTR. 11410,11417,11432,11440,11443,11451
2700 JNTIN 232
4461 KFLAG 2166, 4374, 4401, 4474, 4503, 4513
2462 LACIN 415
2471 LACLK 2461
4523 LCATE 352
1756 LKCMP 1771
1661 LOOKX 1651
4427 MINUS 4375
1670 MLOOK 114
2142 MOVET 2134, 2137, 2147, 2153, 2160
5 NBRKS 647, 651, 2220, 2303
4466 NMODE 1006, 1330, 1437, 2025, 2173, 4501, 4510, 4520, 5070
3477 NODEC 3471
5066 NOFLG 5126, 5132
4142 NOINT 1571
2667 NOMOV 1627, 2131, 2136, 2573, 3605
2146 NONOT 2151
1751 NORPT 1772, 1776
2555 NOSQP 1650, 1660, 2436, 2476
5606 NOSYM 5574
4637 NOWOW 4543, 4634, 4636
13 NPBRK 512, 517, 621, 634, 647, 650, 651, 741, 746, 752, 761, 767, 1035, 1054, 1062
5544 NUMB1 5445, 5551, 5563
5660 NUMB2 5446, 5552, 5564
5472 NUMB3 5447, 5553, 5565
2672 OCTIN 234, 465, 611, 1702, 4614
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 10
POST PROCESSOR ASSEMBLY DATA
4460 OFLAG 1007, 1331, 1440, 2026, 2167, 4364, 4476, 4506, 4516, 5071
2664 ONAME 2571, 2600, 2630, 2654
105 ONECH 71
13353 OPBCD 5054
13443 OPBIN 140
13441 OPCDE 13355,13361,13372,13375,13444,13452,13470
11556 OPEN1 11514
11570 OPEN2 11561
14304 OPEND 13405,13427,13430,13436,13454,13455,13462,14304
13466 OPFLG 13450
13462 OPFND 13457
13566 OPORG 13427
13453 OPRET 13474
13426 OPSCH 13377,13410
3000 OVFLG 2736, 2743, 2760, 2765, 2771
4243 PFLAG 4177, 4202, 4213
1115 PNORM 1063
5540 PUTIN 2156
16 QBACK 6
11150 QBSAC 410
4236 QUOTE 246, 251, 2544, 2547, 2627, 2634, 2653, 2660, 5423, 5426, 5647, 5652,11527,11536,11572,11601
5520 RCHCK 5514
3734 READF 3727
3752 READX 3734, 4032
3544 RELOC 3474, 3502
3555 RELXA 3545
3554 RELXC 3544
5757 RESMC 1126, 1525, 1553, 1563, 5037
6047 RESMX 5760
4113 RESQL 5777
11174 RESXR 1242
4024 RFEND 3745
4021 RFERR 3747
4462 RFLAG 2171, 4372, 4475, 4505, 4515, 5464, 5471, 5475, 5566, 5572
1655 RLOOK
2416 SACIN 412
2425 SACLK 2415
41 SAME1 31
520 SAVE2 511
2157 SAVE4 2155
5671 SAVMC 11, 1264, 1532, 1566, 1574
5755 SAVMX 5671
4101 SAVQ2 4072
4066 SAVQL 5754
5601 SBFND
5612 SBPOI
5574 SBRET 5600
4440 SEEIF 4400, 4434
3731 SETFX 3710
4464 SFLAG 1011, 1333, 1442, 2030, 2172, 4377, 4473, 4504, 4514, 5073
2124 SKILL 2114
4631 SLGET 4622
4655 SLOCA 4530, 4621, 4630, 4637
4656 SLOCB 4535, 4640
4621 SLOOP 4642, 4643
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 11
POST PROCESSOR ASSEMBLY DATA
4465 SMODE 1010, 1332, 1441, 2027, 2174, 4500, 4511, 4521, 5072
5134 SPTAG 5102, 5110
4271 SWBUF 4246, 4250, 4251, 4254, 4255, 4261, 4265, 4266
4245 SWORD 4210, 4223
117 SYMIN 416, 603, 1523, 2416, 2462, 4607
5346 SYMRD 5420
2333 TABLE 356
5325 TABRD 2347, 2404
5436 TDONE
11173 TFILE 5327, 5334, 5342, 5347, 5433
746 TIXBR 743
11374 TIXIT 11365,11370,11371,11372
4603 TOUGH 4551, 4554, 4557, 4562, 4570, 4576, 4600
3234 TYICP 3242, 3276
3315 TYICW 3667, 3730, 4022, 4025
4224 TYOMT 4217
4065 TYPCR 4034, 4036, 4057
4062 TYPXA 4040
4063 TYPXB 4041
4061 TYPXC 4037
2543 UNDEF 5625,13461
521 USEIT 516
2311 VBADN 2217, 2220, 2277, 2301
3565 VDONE
455 VERGO 452
4724 XBUFA 4703
4726 XBUFB 4706
4730 XBUFC 4711
1167 XECLP 1200
1204 XECND 1176
4732 XFORG 4716
1625 XLOOK 366, 370, 372, 1647,11447
4670 XLOOP 4676
11402 XPROC 366
5017 XSAVE 4734, 4743, 4744
4766 XUSER 4736
11447 XXTSX 1646
13423 YESOK 13416
1644 YESRT 1637
11404 YPROC 370
11406 ZPROC 372
77461 77461K 3560, 3561, 5404
4310 BCDCK1 314
4356 BCDIX1 4334
4311 BCDOUT 2077, 2426, 2441, 2447, 2472, 2501, 2506, 3615, 3622,11457,11516,11522
1036 BDUMXR 764, 765, 766
5560 BLEWIT 5545
3331 BLFLAG 3266, 3272, 4340, 4342
1763 BLKCKI 2014
2014 BLKTRA 1737, 1742
1761 BLKXTR 1736, 1743, 1744, 1745
1354 BMBCHG 1272, 1276, 1336
1347 BRKCAL 1417
1461 BRKISB 1001, 1002, 1306, 1324, 1433
740 BRKSAV 12, 1265, 1575
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 12
POST PROCESSOR ASSEMBLY DATA
751 BRKSET 1121, 1552, 5036
740 BRKTAB 514, 521, 530, 540, 575, 576, 604, 605, 613, 625, 626, 627, 630, 631, 632, 636, 637
640, 641, 740, 742, 744, 745, 753, 755, 756, 757, 760, 771, 774, 1033, 1055, 1302, 2271
753 BRSTST 761
14460 BUFFER 3366, 3722, 5341
660 BUFLTH 3371, 3725, 5344,11613,12473
5047 BYSUBR 4, 5031, 5033, 5040
5406 CALLRR 5400
3373 CARDRD 3406, 3415, 3535
1232 CCLOOP 1254
5614 CHCKDS 5611
5622 CHKCSY 5617
14370 CHNCOM 1564
5302 CMAFLG 146, 155, 164, 526, 2225, 2247, 5226, 5243
77461 COMMON 3560, 3561, 5404
1132 CONLOC 1107, 1111, 1113, 1147, 1620
1044 CONTIN 340, 1454
6067 CURCNT 1315,11136
5133 DECFLD 5052, 5077, 5104, 5112
11326 DECOUT 324
5667 DEFFUL 5660
5632 DEFINE 2540, 5414
5644 DEFOOP 5641
5634 DEFRET 5640
5641 DEFYES
11605 DICALL
11607 DICODE 11517,11556
3351 DIFDMP 457
11610 DIOCOD
1561 DISMIS 342
11606 DISUBR 11511,11523,11542
2127 DORTAB 44, 2164
4616 DOSLSH 4526, 4533, 4540, 4606, 4654
373 DPOSIT 304
13371 ERANOK 13366
5 FAPDBG 0
3130 FASSGN 3121, 3125
3523 FINCYC 3507
4472 FLDCOR 4363, 4406, 4416, 4423, 4436, 4441
5201 FLDEVL 147, 156, 165, 377, 503, 527, 535, 1540, 1667, 1674, 2226, 2237, 2250, 2262, 2527, 4527, 4534
4423 FLDOCT 4365, 4370, 4371, 4404, 4415, 4420, 4437, 4453, 4455, 4456
4361 FLDPRT 1013, 1335, 1444, 2031, 3511, 4124, 5075, 5111, 5121
11215 FLOOUT 310
2607 FOUNDA 2603
14371 GETBRK 1617, 4152
14516 GETCLC 4721
14517 GETCLS 4723, 4725, 4727
14474 GETCOM 3670, 3676
14304 GETILC 13
14311 GETMEM 22, 1266, 1577, 4701
2164 GODEFN 2177
13410 GOTOIT 13374
11407 HAVPTR 11403,11405
5233 IGNCMA 5227
47 IGNORE 103
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 13
POST PROCESSOR ASSEMBLY DATA
4167 INRUPT 50, 1416, 1763, 2044, 3527, 3631, 4142
461 INSERT 300
5106 INSTAG 5103
11330 INTCK1 316
11331 INTOUT 11314
4166 INTTRA 4153
14602 IODIAG 11507
1355 ISCOND 1321
11463 .FACT. 11423
11467 .MODE. 11407,11416,11446,11450
11466 .MODS. 11445
5443 KILTAB 2354
1460 LASTBK 1352, 1426, 1451
5631 LASTSY 5603, 5626
5031 LEAVEF 346
113 LOCNXT 74
4103 L(INT) 4074
4660 MASKSL 4615, 4617, 4632, 4653
4471 MAXOFF 4403
514 MAYBEB 517
2176 MEMBD1 2140, 4454
116 MEMBND 27, 32, 35, 405, 505, 1051, 1245, 1273, 1300, 1342, 1543, 1604, 1607, 1612, 1721, 1722, 1726
1727, 2020, 2067, 4623, 5762, 5773,11435
0 MOVIE) 1626, 1631, 2130, 2133, 2572, 3604, 3610, 5533
4313 NAMOUT 261, 2546, 2633, 2657, 3650, 4411, 5060, 5425, 5651,11524,11531,11535,11574,11600
14522 NEXCOM 4745
1457 NOCOMF 1122, 1127, 1453
1277 NOMBCG 1275
3573 NONREL 3464
5777 NORPTM 5764, 5775
2653 NOTFND 2606
13 NPBRKS 651, 655, 670, 703, 716, 731, 1305, 2220, 2273, 2303
650 NPBRKW 467, 2214
11324 OCTOUT 36, 1003, 1017, 1325, 1343, 1434, 1613, 2640, 2644, 3617, 3626, 3654, 4424,11520
5776 OKRPTM 5767
5015 OLDMEM 4702, 4763
13476 OPPRFX 13454,13476
2565 ORGFND 445, 2327, 2370
3557 OUTSID 3550
2560 PGMORG 446, 456, 2330, 2346, 2371, 2403
4463 POFLAG 2170, 4432, 4451, 4477, 4507, 4517
235 POPEND 132, 133, 216, 235
217 POPORG 132
133 POPRET 136
5405 PORGRL 5331
3326 PREVCH 3265, 3267, 3274, 3301
1064 PUNORM 1061
5556 PUTRET 5540
14333 QATWRD 1005, 1327, 1436
2177 QGODEN 5450, 5554
17 QQBACK 1567
4033 RDFLXA 3666, 4021, 4024
14461 RDWAIT 3373, 3740, 5346
3740 READCW 3736
3536 RELBIT 3470, 3477, 3547
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 14
POST PROCESSOR ASSEMBLY DATA
3560 RELCOM 3551
3552 RELPRG 3414, 3557
3550 RELSIZ 3412
3553 RELXIT 3560
621 REMOVE 464, 474
4140 RESQXA 4114
4137 RESQXC 4113
1705 RESTIT 1701
5042 RETNBG 3
3466 RETURN 3534
6051 RPTMEM 26, 1277, 1603, 5761, 5774,11140
2161 RSAVE4 2127, 2141, 2146, 2152
4652 RSTMSK 4613
14475 SAVBRK 4071, 4115
5016 SAVCLC 4722, 4761
11453 SAVLNK 11412,11413,11460
4105 SAVQXA 4067
4104 SAVQXC 4066
5516 SCHEND 5456, 5527, 5532
5470 SCHLOP 5476, 5500, 5503, 5510
2601 SEARCH 2576, 2605, 2610, 2614, 2624
14305 SETBCD 17, 5734, 6003,11452
14476 SETBRK 4102, 4132, 4135, 4154
14521 SETCLC 4742, 4762
14520 SETCLS 4733, 4735, 4737, 4753, 4755, 4757
14600 SETFUL 6005,11444
14515 SETMEM 4720, 4764, 5776
4567 SETSL1 4564
4575 SETSL2 4572
3300 SKIPCR 46
1452 SKPBCM 1430
1126 SKPCOM 1123
2454 SKPSQP 2437, 2477
11401 SPFLAG 11323,11343,11360,11364,11375
2315 STALLV 2202, 2272, 2302
4013 STILLB 4000
1453 STNCMF 1424
613 STOOCT 616
2266 STOVGO 2255, 2261, 2310
5537 SYMABS 5462, 5477, 5505
5357 SYMADJ 5417
5456 SYMBCD 4376
5570 SYMBIN 5211, 5252
5535 SYMBOL 5467, 5507, 5511
5536 SYMCOR 5461, 5504, 5512, 5526
11173 SYMEND 5444, 5452, 5465, 5474, 5503, 5506, 5520, 5522, 5530, 5544, 5546, 5547, 5562, 5573, 5575, 5601, 5630
5635, 5641, 5642, 5660, 5661, 5662,11173
5432 SYMEOF 5353, 5362
5421 SYMFUL 5415
3042 SYMLNG 5444, 5465, 5544, 5562, 5573, 5660, 6073
5630 SYMLTH 5453, 5463, 5541, 5571, 5633, 5657, 5664
5050 SYMPRT 334, 344, 354, 360, 1714
11135 SYMTAB 5444, 5452, 5465, 5503, 5520, 5544, 5562, 5573, 5630, 5641, 5660
5534 SYMVAL 5460, 5473, 5521
5545 TESTLN 5543
1 DEBUG, FAPDBG, FBUG - CTSS DEBUGGING MONITOR 12/17/69 1751.4 PAGE 15
POST PROCESSOR ASSEMBLY DATA
572 TESTON 551, 554, 557, 562, 565, 570
761 TIXBRS 754
1062 TIXCHK 1056
6050 TOPALW 5766
4454 TSTMB1 4373
3242 TYIMIW 3236
4212 TYOMIW 4207
2316 VBRKCR 2201, 2207, 2221
2314 VBUILD 2227, 2242, 2252, 2265, 2266, 2305, 2307
2221 VCHECK 2304
434 VERIFY 302
2270 VKILIT 2224
2275 VNACHK 2210
2302 VNAINT 2205
2247 VNEXTF 2236
1301 WHEREB 1263, 1307
1043 WHICHB 773, 1012
5044 WONTDO 5032
14506 WRFLXA 4253, 4264
4661 XECUTE 320
5012 XFENCE 4677
1635 XFINDT 1633, 1640, 1645
5014 XRESET 4714, 4732, 4751
5023 XRESUM 4740
5530 XUSEIT 5524
14572 (EFTM) 5722, 6010
14601 (LFTM) 6006
0 NO ERROR IN ABOVE ASSEMBLY.
FPD0 BCD 12/17/69 1757.8 62309 00000
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 1
DEFINITIONS.
PCC ON PRINT LBL CARD.
LBL FDBG BINARY CARD LABEL.
PCC OFF DON'T PRINT PMC CARDS.
*
00003 ENTRY FAPDBG
*
* USEFUL DEFINITIONS.
TRANSFER VECTOR
00000 444665312534 MOVIE)
LINKAGE DIRECTOR
00001 000000000000
00002 262147242227
00000 .. EQU ** MODIFICATION SYMBOL.
-0625 71 1 20000 SETF OPSYN STL SET FLAG.
0600 71 1 60000 CLEAR OPSYN STZ CLEAR FLAG.
3 00011 1 60000 PAR OPSYN BRN PARAMETER POINTER.
2 00017 1 60000 BLK OPSYN TIX BLOCK POINTER.
-1 00011 1 20000 FMT OPD 500011120000 FORMAT POINTER.
-1 00011 1 20000 IOP OPD 500011120000 I/O PARAMETER POINTER.
-1 00001 1 20000 ENDIO OPSYN STR END OF I/O LIST.
-0 20734 0 05544 SHOW OPSYN PMC SAVE PRESENT DEFINITION OF PMC.
*
TSS MACRO A CALL SUPERVISOR SUBROUTINE.
GEN ,TSX(A,4) GENERATE CALL INSTRUCTION.
RMT
IFF A,X IF ARGUMENT IS UNDEFINED,
GEN (A),TIA(=H'A) INSERT THE TRAP INSTRUCTION.
RMT
END TSS
*
TYPE MACRO N,COM,LOC TYPE COMMENT.
GEN ,TSX(TYPE,4) CALL SUBPROGRAM.
GEN ,PAR(LOC) POINTER TO BCI STRING.
RMT
IFF LOC,X IF LOCATION SYMBOL UNDEFINED, GENERATE BCI.
GEN LOC,BCI(N,COM) GENERATE THE BCI STRING.
RMT
END TYPE
*
TYPA MACRO N,COM,LOC
GEN ,TSX(TYPA,4) CALL SUBPROGRAM.
GEN ,PAR(LOC) POINTER TO BCI STRING.
RMT
IFF LOC,X IF LOCATION SYMBOL UNDEFINED, GENERATE BCI.
GEN LOC,BCI(N,COM) GENERATE THE BCI STRING.
RMT
END TYPA
*
GEN MACRO LOC,OP,AD SURROUND GENERATED WORD WITH PMC ON, OFF.
PMC ON PRINT THE WORD.
LOC OP AD ..
PMC OFF RETURN TO NORMAL MODE.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 2
DEFINITIONS.
END GEN
*
OUTSUB MACRO NAME DEFINE SUBROUTINE CALL.
IRP NAME CONSIDER EACH NAME IN LIST.
NAME MACRO ARG DEFINE IT.
GEN ,CLA(ARG) GENERATE A CLA.
GEN ,TSX(NAME,4) CALL THE SUBROUTINE.
END NAME THAT'S IT FOR THIS DEFINITION.
IRP ANY MORE.Q
END OUTSUB NO.
*
00003 OUTSUB (TYO,BCDOUT,NAMOUT,INTOUT,OCTOUT,FLDPRT)
*
TEQ MACRO LOC,SAMPLE TRANSFER IF EQUAL.
GEN ,LAS(SAMPLE) COMPARE C(AC) WITH C(SAMPLE).
GEN ,TRA(*+2) C(AC) .NE. C(SAMPLE), SKIP.
GEN ,TRA(LOC) C(AC) .E. C(SAMPLE), TRANSFER.
END TEQ
*
TNE MACRO LOC,SAMPLE TRANSFER IF NOT EQUAL.
TEQ *+2,(SAMPLE) IF C(AC) .E. C(SAMPLE), SKIP.
GEN ,TRA(LOC) C(AC) .NE. C(SAMPLE), TRANSFER.
END TNE
*
TBL MACRO LOC TRANSFER IF BLANK.
TEQ (LOC),=H00000 ..
END TBL
*
TNB MACRO LOC TRANSFER IF NOT BLANK.
TNE (LOC),=H00000 ..
END TNB
*
TCR MACRO LOC TRANSFER IF CARRIAGE RETURN.
TEQ (LOC),=O55 ..
END TCR
*
TNCR MACRO LOC TRANSFER IF NOT CARRIAGE RETURN.
TNE (LOC),=O55 ..
END TNCR
*
MCALL MACRO NAME,ARG GENERATE MAD FUNCTION CALL.
TSS NAME CALL THE FUNCTION.
IRP ARG EXPAND THE ARGUMENT LIST.
PTR ARG ..
IRP
END MCALL
*
PTR MACRO A,B,C GENERATE ARGUMENT POINTER.
... SET * REMEMBER CURRENT LOCATION.
IFF 1,...,B IS B '...'.Q
GEN ,BLK(A,,C) YES, USE MAD BLOCK NOTATION.
IFF 1,,B IS B VOID.Q
GEN ,PAR(A,,C) YES, USE FAP BLOCK NOTATION.
IFF *-...,X DID EITHER OF THE ABOVE TURN OUT TRUE.Q
GEN ,PAR(A) NO, USE SINGLE ARGUMENT POINTER.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 3
DEFINITIONS.
END PTR
*
FNC MACRO NAME DEFINE FUNCTION NAME.
IRP NAME CONSIDER EACH NAME IN LIST.
NAME MACRO ARG DEFINE IT..
MCALL NAME(ARG)
END NAME
IRP
END FNC
*
00003 FNC (OPEN,BUFFER,RDWAIT,CLOSE,IODIAG)
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 4
MAIN CONTROL SECTION, READS AND INTERPRETS REQUESTS.
00003 0600 00 0 03061 FAPDBG CLEAR INUSR RESET FLAG.. NO LONGER IN USER.
00004 0634 00 4 04112 SXA BXC,4 SAVE XR 4.
00005 0074 00 4 03743 TSX SAVMC,4 SAVE THE REST OF THE MACHINE CONDX.
00006 -0500 00 0 00452 CAL REMOP GET BPT-REMOVED INSTRUCTION.
00007 0520 00 0 00453 ZET BPFLG IF A BPT EXISTS,
00010 0602 60 0 00454 SLW* BRKLOC RESTORE ITS ORIGINAL CONTENTS.
00011 TSS GETILC GET LOCATION OF USER'S STOP.
00011 0074 00 4 12172 TSX GETILC,4 .002
00012 0621 00 0 00230 STA LOC UPDATE DEFINITION OF '*'.
00013 0621 00 0 04121 STA BIC UPDATE THE ILC.
00014 QBACK TYPA 3,(FAPDBG ENTERED.*)
00014 0074 00 4 02724 TSX TYPA,4 .002
00015 3 00000 0 12173 PAR ..001 .002
00016 -0625 00 0 02217 SETF CRFLG MAKE TYI READ A FRESH LINE.
00017 TSS GETMEM GET THE MEMORY BOUND.
00017 0074 00 4 12176 TSX GETMEM,4 .002
00020 TEQ SAME1,MEMBND HAS MEMORY BOUND BEEN CHANGED.
00020 -0340 00 0 00114 LAS MEMBND .002
00021 0020 00 0 00023 TRA *+2 .002
00022 0020 00 0 00032 TRA SAME1 .002
00023 0602 00 0 00114 SLW MEMBND SAVE IT.
00024 TYPA 4,( MEMORY BOUND IS *),BNDC
00024 0074 00 4 02724 TSX TYPA,4 .002
00025 3 00000 0 12177 PAR BNDC .002
00026 OCTOUT MEMBND TYPE THE BOUND.
00026 0500 00 0 00114 CLA MEMBND .002
00027 0074 00 4 07377 TSX OCTOUT,4 .002
00030 TYO =H00000. PUNCTUATION.
00030 0500 00 0 12405 CLA =H00000. .002
00031 0074 00 4 03062 TSX TYO,4 .002
00032 0074 00 4 03120 SAME1 TSX CR,4 THEN CARRIAGE RETURN.
00033 0074 00 4 02553 TSX CHFIL,4 CHECK AND SET UP FOR FILE INPUT.
00034 0074 00 4 02167 MAIN TSX SKIPCR,4 MOVE TO BEGINNING OF NEXT REQUEST.
00035 0074 00 4 03352 IGNORE TSX BCSCH,4 GET THE FIRST SUBFIELD.
00036 0600 00 0 03055 CLEAR INRUPT RESET THE INTERRUPT FLAG.
00037 0601 00 0 01475 STO BC SAVE BREAK CHARACTER AND INDICATOR.
00040 -0600 00 0 00113 STQ SUBF SAVE CHARACTERS IN SUBFIELD.
00041 TBL RQST CHECK FOR REQUEST IF BLANK,
00041 -0340 00 0 12411 LAS =H00000 .003
00042 0020 00 0 00044 TRA *+2 .003
00043 0020 00 0 00050 TRA RQST .003
00044 TNCR LOCF OR CR. OTHERWISE, LOC FIELD.
00044 -0340 00 0 12410 LAS =O55 .004
00045 0020 00 0 00047 TRA *+2 .004
00046 0020 00 0 00050 TRA *+2 .004
00047 0020 00 0 00060 TRA LOCF .003
00050 -0130 00 0 00000 RQST XCL
00051 TEQ BLANK,=H IS FIELD ALL BLANK.Q
00051 -0340 00 0 12475 LAS =H .002
00052 0020 00 0 00054 TRA *+2 .002
00053 0020 00 0 00063 TRA BLANK .002
00054 -0320 00 0 12521 ANA =O777777777700
00055 TEQ ONECH,(=H 0) IS IT ONLY ONE CHARACTER.Q
00055 -0340 00 0 12474 LAS =H 0 .002
00056 0020 00 0 00060 TRA *+2 .002
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 5
MAIN CONTROL SECTION, READS AND INTERPRETS REQUESTS.
00057 0020 00 0 00073 TRA ONECH .002
00060 0500 00 0 01475 LOCF CLA BC RESTORE THE DATA.
00061 0560 00 0 00113 LDQ SUBF
00062 0020 00 0 00101 TRA LOCNXT GO CONTINUE SCANNING THE LINE.
*
00063 0500 00 0 01475 BLANK CLA BC GET BREAK CHARACTER.
00064 TCR NEXT IF CARRIAGE RETURN, LOOK AT NEXT LOCATION.
00064 -0340 00 0 12410 LAS =O55 .003
00065 0020 00 0 00067 TRA *+2 .003
00066 0020 00 0 01036 TRA NEXT .003
00067 TBL IGNORE IF BLANK, TRY AGAIN.
00067 -0340 00 0 12411 LAS =H00000 .003
00070 0020 00 0 00072 TRA *+2 .003
00071 0020 00 0 00035 TRA IGNORE .003
00072 0020 00 0 00060 TRA LOCF OTHERWISE WE HAVE A LOCATION FIELD.
*
00073 -0500 00 0 00113 ONECH CAL SUBF ONLY ONE CHARACTER.
00074 -0320 00 0 12416 ANA =O77 GET RID OF BLANKS.
00075 -0340 00 0 12374 LAS =7 IS CHARACTER A 'LETTER.Q'.
00076 0020 00 0 00257 TRA CMND YES, ASSUME IT A REQUEST.
00077 0761 00 0 00000 NOP NO,
00100 0020 00 0 00060 TRA LOCF ASSUME IT A LOCATION.
*
00101 0074 00 4 03411 LOCNXT TSX EVAL,4 EVALUATE THE FIRST FIELD (LOCATION).
00102 TBL PUT OK, NOW CHECK THE LOC., GET WORD.
00102 -0340 00 0 12411 LAS =H00000 .003
00103 0020 00 0 00105 TRA *+2 .003
00104 0020 00 0 00350 TRA PUT .003
00105 TNCR ILF IT MUST BE THE END OF HTE LINE.
00105 -0340 00 0 12410 LAS =O55 .004
00106 0020 00 0 00110 TRA *+2 .004
00107 0020 00 0 00111 TRA *+2 .004
00110 0020 00 0 00231 TRA ILF .003
00111 -0600 00 0 00230 STQ LOC SAVE THE LOCATION.
00112 0020 00 0 01041 TRA RLOOK GO PRINT ITS CONTENTS.
*
00113 0 00000 0 00000 SUBF
00114 0 00000 0 00000 MEMBND CURRENT MEMORY BOUND.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 6
SYMIN. GET SYMBOLIC 'FAP WORD' FROM INPUT LINE.
00115 0634 00 4 00202 SYMIN SXA SYMX,4 SAVE RETURN.
00116 0634 00 1 00203 SXA SYMY,1 SAVE XR 1.
00117 0600 00 0 01500 STZ OP CLEAR THE WORD PARTS.
00120 0600 00 0 01501 STZ ADD
00121 0600 00 0 01502 STZ TAG
00122 0600 00 0 01503 STZ DEC
00123 0074 00 4 03352 TSX BCSCH,4 GET THE OP. CODE, NEXT DELIMITER.
00124 0602 00 0 01475 SLW BC SAVE BREAK CHARACTER.
00125 -0600 00 0 01500 STQ OP SAVE THE RIGHT-ADJUSTED OP CODE.
00126 -0130 00 0 00000 XCL
00127 0074 00 4 03471 TSX LADJ,4 ADJUST CODE TO LEFT.
00130 0774 00 1 00014 AXT POPEND-POPORG,1 SET UP COUNT OF PSEUDO-OPS.
00131 POPRET TEQ LOK,(POPEND,1) GO DISPATCH IF THIS IS IT.
00131 -0340 00 1 00230 LAS POPEND,1 .002
00132 0020 00 0 00134 TRA *+2 .002
00133 0020 00 0 00205 TRA LOK .002
00134 2 00002 1 00131 TIX POPRET,1,2 NOT THIS ONE, TRY AGAIN.
00135 -0500 00 0 01500 CAL OP NOT A PSEUDO-OP, GET RIGHT-ADJUSTED CODE.
00136 0074 00 4 11351 TSX OPBIN,4 LOOK UP THE CODE.
00137 0602 00 0 01500 SLW OP
00140 -0500 00 0 01475 CAL BC GET BREAK CHARACTER, CHECK IT.
00141 TNB SINP END OF 'LINE', EXIT.
00141 -0340 00 0 12411 LAS =H00000 .004
00142 0020 00 0 00144 TRA *+2 .004
00143 0020 00 0 00145 TRA *+2 .004
00144 0020 00 0 00163 TRA SINP .003
00145 0074 00 4 03415 ADNXT TSX FLDEVL,4 EVALUATE THE ADDRESS FIELD.
00146 -0600 00 0 01501 STQ ADD
00147 TNE SINP,(=H00000,) END OF LINE IF NOT COMMA.
00147 -0340 00 0 12415 LAS =H00000, .003
00150 0020 00 0 00152 TRA *+2 .003
00151 0020 00 0 00153 TRA *+2 .003
00152 0020 00 0 00163 TRA SINP .002
00153 0074 00 4 03415 TSX FLDEVL,4 EVALUATE THE TAG FIELD.
00154 -0600 00 0 01502 STQ TAG
00155 TNE SINP,(=H00000,) END OF LINE IF NOT COMMA.
00155 -0340 00 0 12415 LAS =H00000, .003
00156 0020 00 0 00160 TRA *+2 .003
00157 0020 00 0 00161 TRA *+2 .003
00160 0020 00 0 00163 TRA SINP .002
00161 0074 00 4 03415 TSX FLDEVL,4 EVALUATE THE DECREMENT FIELD.
00162 -0600 00 0 01503 STQ DEC
00163 0601 00 0 01475 SINP STO BC SAVE THE BREAK CHARACTER.
00164 -0500 00 0 01500 CAL OP GET THE OP CODE.
00165 0602 00 0 01476 SLW WORD SAVE IT.
00166 -0501 00 0 01501 ORA ADD INSERT THE ADDRESS.
00167 0621 00 0 01476 STA WORD AND SAVE THE ADDRESS PART.
00170 -0500 00 0 01502 CAL TAG GET THE TAG.
00171 0767 00 0 00017 ALS 15 SHIFT IT INTO POSITION.
00172 -0501 00 0 01476 ORA WORD PUT IT INTO THE WORD.
00173 0625 00 0 01476 STT WORD AND SAVE ONLY THE TAG PART.
00174 -0500 00 0 01503 CAL DEC GET THE DECREMENT.
00175 0767 00 0 00022 ALS 18 SHIFT IT INTO POSITION.
00176 -0501 00 0 01476 ORA WORD COMBINE IT W/ PREVIOUS.
00177 0622 00 0 01476 STD WORD AND SAVE ONLY THE DECREMENT PART.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 7
SYMIN. GET SYMBOLIC 'FAP WORD' FROM INPUT LINE.
00200 0560 00 0 01476 LDQ WORD GET THE ENTIRE WORD.
00201 0500 00 0 01475 CLA BC GET THE BREAK CHARACTER.
00202 0774 00 4 00000 SYMX AXT ..,4 RESTORE RETURN (HERE FROM POP).
00203 0774 00 1 00000 SYMY AXT ..,1 RESTORE XR 1.
00204 0020 00 4 00001 TRA 1,4 AND EXIT.
*
00205 0500 00 0 01475 LOK CLA BC GET THE BREAK CHARACTER.
00206 TNB ILF MAKE SURE WE HAVE A WORD OF DATA.
00206 -0340 00 0 12411 LAS =H00000 .004
00207 0020 00 0 00211 TRA *+2 .004
00210 0020 00 0 00212 TRA *+2 .004
00211 0020 00 0 00231 TRA ILF .003
00212 -0774 00 4 00201 AXC SYMX-1,4 SET UP RETURN INDEX.
00213 0020 60 1 00231 TRA* POPEND+1,1 DISPATCH ON THE PSEUDO-OP.
*
00214 222324606060 POPORG BCI 1,BCD HOLLERITH INPUT.
00215 0 00000 0 03216 BCDIN ..
00216 304643606060 BCI 1,HOL ..
00217 0 00000 0 03216 BCDIN ..
00220 264346606060 BCI 1,FLO FLOATING POINT INPUT.
00221 0 00000 0 01674 FLOIN ..
00222 314563606060 BCI 1,INT DECIMAL INTEGER INPUT.
00223 0 00000 0 01577 INTIN ..
00224 414563606060 BCI 1,JNT FORTRAN INTEGER INPUT.
00225 0 00000 0 01602 JNTIN ..
00226 462363606060 BCI 1,OCT OCTAL INPUT.
00227 0 00000 0 01574 OCTIN ..
00230 POPEND EQU *
*
00230 0 00000 0 00000 LOC CURRENT LOCATION.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 8
ILF. COMMENT ON UNDECIPHERABLE REQUEST.
00231 -0625 00 0 00455 ILF SETF NOGO SET G AND P ERROR FLAG.
00232 TCR ILFCR IF CARRIAGE RETURN, GIVE SPECIAL COMMENT.
00232 -0340 00 0 12410 LAS =O55 .003
00233 0020 00 0 00235 TRA *+2 .003
00234 0020 00 0 00250 TRA ILFCR .003
00235 TBL ILFBL SAME WITH BLANK.
00235 -0340 00 0 12411 LAS =H00000 .003
00236 0020 00 0 00240 TRA *+2 .003
00237 0020 00 0 00253 TRA ILFBL .003
00240 0601 00 0 00256 STO ILFCH SAVE THE CHARACTER.
00241 0074 00 4 03124 TSX QUOTE,4 TYPE LEFT QUOTE.
00242 TYO ILFCH TYPE THE CHARACTER.
00242 0500 00 0 00256 CLA ILFCH .002
00243 0074 00 4 03062 TSX TYO,4 .002
00244 0074 00 4 03124 TSX QUOTE,4 TYPE THE RIGHT QUOTE.
00245 ILFJN TYPE 5,( ENCOUNTERED UNEXPECTEDLY.*)
00245 0074 00 4 02722 TSX TYPE,4 .002
00246 3 00000 0 12203 PAR ..002 .002
00247 0020 00 0 00034 TRA MAIN GO GET THE NEXT REQUEST.
*
00250 ILFCR TYPA 3,(END OF REQUEST*)
00250 0074 00 4 02724 TSX TYPA,4 .002
00251 3 00000 0 12210 PAR ..003 .002
00252 0020 00 0 00245 TRA ILFJN GO TYPE THE REST OF THE MESSAGE.
*
00253 ILFBL NAMOUT =HBLANK TYPE THE FIRST PART OF COMMENT.
00253 0500 00 0 12435 CLA =HBLANK .002
00254 0074 00 4 03176 TSX NAMOUT,4 .002
00255 0020 00 0 00245 TRA ILFJN GO GET THE REST.
*
00256 0 00000 0 00000 ILFCH STORAGE FOR THE CHARACTER.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 9
DISPATCH ON AND SERVICE REQUEST.
00257 0774 00 1 00046 CMND AXT CEND-CORG,1 SET UP,
00260 TEQ CDISP,(CEND,1) FOUND, GO DISPATCH.
00260 -0340 00 1 00336 LAS CEND,1 .002
00261 0020 00 0 00263 TRA *+2 .002
00262 0020 00 0 00265 TRA CDISP .002
00263 2 00002 1 00260 TIX *-3,1,2 TRY AGAIN.
00264 0020 00 0 00060 TRA LOCF NOT A REQUEST, ASSUME A LOCATION.
*
00265 -0500 00 1 00337 CDISP CAL CEND+1,1 GET LOCATION W/ POINTERS.
00266 -0737 00 2 00000 PDC ,2 PUT FIRST POINTER IN XR 2.
00267 0020 00 2 00000 TRA ,2 DISPATCH ON IT.
*
00270 CORG EQU * REQUEST DISPATCH TABLE.
00270 000000000021 BCI 1,00000A
00271 0 01314 0 00000 ,,SAC SIGNED AC.
00272 000000000022 BCI 1,00000B
00273 0 00431 0 00000 ,,INSERT INSERT A BREAKPOINT.
00274 000000000023 BCI 1,00000C
00275 0 00373 0 00000 ,,VERIFY OR COMPARE.
00276 000000000024 BCI 1,00000D
00277 0 00336 0 00000 ,,DPOSIT PATCH IN SYMBOLIC.
00300 000000000025 BCI 1,00000E
00301 0 01435 0 00000 ,,DEF DEFINE.
00302 000000000026 BCI 1,00000F
00303 0 01044 0 07272 FLOOUT,,LOOK 'LOOK' IN FLOATING-POINT.
00304 000000000027 BCI 1,00000G
00305 0 00732 0 00000 ,,GO BEGIN EXECUTION OF PROGRAM.
00306 000000000030 BCI 1,00000H
00307 0 01044 0 03174 BCDOUT,,LOOK LOOK AT A BCD WORD.
00310 000000000031 BCI 1,00000I
00311 0 01044 0 07402 INTOUT,,LOOK LOOK AT A FULL-WORD INTEGER.
00312 000000000041 BCI 1,00000J
00313 0 01044 0 07401 DECOUT,,LOOK LOOK AT A FORTRAN INTEGER.
00314 000000000042 BCI 1,00000K
00315 0 01364 0 00000 ,,LAC LOGICAL AC.
00316 000000000043 BCI 1,00000L
00317 0 01207 0 00000 ,,YANK FIND LOAD ADDRESS OF PROGRAM.
00320 000000000044 BCI 1,00000M STORAGE MAP.
00321 0 00364 0 00000 ,,M
00322 000000000046 BCI 1,00000O OCTAL LOOK.
00323 0 01044 0 07377 OCTOUT,,LOOK LOOK IN OCTAL.
00324 000000000047 BCI 1,00000P
00325 0 00460 0 00000 ,,CONTIN PROCEED OR CONTINUE FROM BREAKPOINT.
00326 000000000050 BCI 1,00000Q
00327 0 00771 0 00000 ,,DISMIS OR QUIT.
00330 000000000062 BCI 1,00000S
00331 0 01044 0 03266 SYMPRT,,LOOK LOOK AT A WORD SYMBOLICALLY.
00332 000000000063 BCI 1,00000T SYMBOL TABLE.
00333 0 01227 0 00000 ,,TABLE READ SYMBOLS (OR KILL TABLE).
00334 000000000066 BCI 1,00000W
00335 0 01253 0 00000 ,,AUTO WORK = FIND ORIGIN, LOAD SYMBOLS.
00336 CEND EQU *
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 10
D REPLACE CONTENTS OF SPECIFIED LOCATION.
00336 0500 00 0 01475 DPOSIT CLA BC GET BREAK CHARACTER.
00337 TNB ILF IF NOT A BLANK, COMPLAIN.
00337 -0340 00 0 12411 LAS =H00000 .004
00340 0020 00 0 00342 TRA *+2 .004
00341 0020 00 0 00343 TRA *+2 .004
00342 0020 00 0 00231 TRA ILF .003
00343 0074 00 4 03415 TSX FLDEVL,4 EVALUATE LOCATION FIELD.
00344 TNB ILF GRIPE IF NOT ANOTHER ARGUMENT.
00344 -0340 00 0 12411 LAS =H00000 .004
00345 0020 00 0 00347 TRA *+2 .004
00346 0020 00 0 00350 TRA *+2 .004
00347 0020 00 0 00231 TRA ILF .003
00350 -0600 00 0 00230 PUT STQ LOC SAVE THE VALUE OF THE FIELD.
00351 -0500 00 0 00230 CAL LOC
00352 -0340 00 0 00114 LAS MEMBND
00353 0761 00 0 00000 NOP
00354 0020 00 0 01427 TRA LLM TOO BIG, COMPLAIN.
00355 0074 00 4 00115 TSX SYMIN,4 GET THE SYMBOLIC WORD.
00356 TNCR ILF IF NOT END OF REQUEST, GRIPE.
00356 -0340 00 0 12410 LAS =O55 .004
00357 0020 00 0 00361 TRA *+2 .004
00360 0020 00 0 00362 TRA *+2 .004
00361 0020 00 0 00231 TRA ILF .003
00362 -0600 60 0 00230 STQ* LOC INSERT WORD INTO CORE.
00363 0020 00 0 00034 TRA MAIN
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 11
M TYPE STORAGE MAP.
00364 0500 00 0 01475 M CLA BC GET THE BREAK CHARACTER.
00365 TNCR ILF M HAS NO ARGUMENTS.
00365 -0340 00 0 12410 LAS =O55 .004
00366 0020 00 0 00370 TRA *+2 .004
00367 0020 00 0 00371 TRA *+2 .004
00370 0020 00 0 00231 TRA ILF .003
00371 0074 00 4 02470 TSX MAP,4 PRINT STORAGE MAP.
00372 0020 00 0 00034 TRA MAIN GO GET NEXT REQUEST.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 12
C COMPARE SUBPROGRAM WITH VIRGIN VERSION.
00373 0500 00 0 01475 VERIFY CLA BC GET THE BREAK CHARACTER.
00374 TNB ILF IF NO ARGUMENTS, GRIPE.
00374 -0340 00 0 12411 LAS =H00000 .004
00375 0020 00 0 00377 TRA *+2 .004
00376 0020 00 0 00400 TRA *+2 .004
00377 0020 00 0 00231 TRA ILF .003
00400 0074 00 4 03352 TSX BCSCH,4 ASSEMBLE THE ENTRY NAME.
00401 -0600 00 0 01313 STQ NAME SAVE IT.
00402 0602 00 0 01475 SLW BC AND SAVE THE BREAK CHARACTER.
00403 -0130 00 0 00000 XCL MOVE THE NAME TO THE AC.
00404 0074 00 4 03471 TSX LADJ,4 LEFT ADJUST IT.
00405 0074 00 4 01504 TSX ORGFND,4 FIND ITS ORIGIN.
00406 0602 00 0 01477 SLW PGMORG SAVE THE ORIGIN.
00407 0500 00 0 01475 CLA BC GET THE BREAK CHARACTER.
00410 TCR VERGO IF CARR. RET., DON'T TRY ANOTHER ARG.
00410 -0340 00 0 12410 LAS =O55 .003
00411 0020 00 0 00413 TRA *+2 .003
00412 0020 00 0 00425 TRA VERGO .003
00413 TNB ILF ANOTHER ARGUMENT MUST BE SET OFF BY BLANK.
00413 -0340 00 0 12411 LAS =H00000 .004
00414 0020 00 0 00416 TRA *+2 .004
00415 0020 00 0 00417 TRA *+2 .004
00416 0020 00 0 00231 TRA ILF .003
00417 0074 00 4 03352 TSX BCSCH,4 IF NOT, GET THE FILE NAME.
00420 TNCR ILF GRIPE IF MORE ARGUMENTS.
00420 -0340 00 0 12410 LAS =O55 .004
00421 0020 00 0 00423 TRA *+2 .004
00422 0020 00 0 00424 TRA *+2 .004
00423 0020 00 0 00231 TRA ILF .003
00424 -0600 00 0 01313 STQ NAME SAVE IT.
00425 -0500 00 0 01313 VERGO CAL NAME ALL SET, GET THE FILE NAME.
00426 0560 00 0 01477 LDQ PGMORG AND THE ORIGIN.
00427 0074 00 4 02240 TSX DIFDMP,4 GO TO VERIFY.
00430 0020 00 0 00034 TRA MAIN WHEN DONE, RETURN.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 13
B INSERT OR REMOVE BREAK POINT.
00431 0500 00 0 01475 INSERT CLA BC
00432 TCR REMOVE IF BC IS A CARR. RET., REMOVE THE BPT.
00432 -0340 00 0 12410 LAS =O55 .003
00433 0020 00 0 00435 TRA *+2 .003
00434 0020 00 0 00456 TRA REMOVE .003
00435 0074 00 4 03415 TSX FLDEVL,4 EVALUATE THE DESIRED LOCATION.
00436 TNCR ILF GRIPE IF TOO MANY ARGUMENTS.
00436 -0340 00 0 12410 LAS =O55 .004
00437 0020 00 0 00441 TRA *+2 .004
00440 0020 00 0 00442 TRA *+2 .004
00441 0020 00 0 00231 TRA ILF .003
00442 -0500 00 0 00114 CAL MEMBND GET BOUND.
00443 0040 00 0 00445 TLQ *+2 COMPARE W/ LOCATION OF BREAK.
00444 0020 00 0 01427 TRA LLM COMPLAIN IF BREAK IS GREATER.
00445 -0600 00 0 00454 STQ BRKLOC OTHERWISE SAVE LOCATION.
00446 -0600 00 0 00230 STQ LOC
00447 -0625 00 0 00453 SETF BPFLG SET FLAG.
00450 0020 00 0 00034 TRA MAIN AND EXIT.
*
00451 0020 00 0 00703 BRKOP TRA BREAK
00452 0 00000 0 00000 REMOP
00453 0 00000 0 00000 BPFLG ORIGINALLY NO BREAK POINT EXISTS.
00454 0 00000 0 00000 BRKLOC CURRENT BREAK POINT LOCATION.
00455 0 00000 0 00000 NOGO ERROR FLAG FOR G AND P REQUESTS.
*
00456 0600 00 0 00453 REMOVE CLEAR BPFLG CLEAR INDICATOR, NO BREAK POINT.
00457 0020 00 0 00034 TRA MAIN
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 14
P PROCEED FROM BREAKPOINT STOP.
00460 0500 00 0 01475 CONTIN CLA BC GET THE BREAK CHARACTER.
00461 TNCR ILF P HAS NO ARGUMENTS.
00461 -0340 00 0 12410 LAS =O55 .004
00462 0020 00 0 00464 TRA *+2 .004
00463 0020 00 0 00465 TRA *+2 .004
00464 0020 00 0 00231 TRA ILF .003
00465 0520 00 0 00455 ZET NOGO TEST FOR ERROR ON THIS INPUT LINE.
00466 0020 00 0 00644 TRA DONTP ERROR, SO IGNORE P REQUEST.
00467 0500 00 0 04121 CLA BIC GET LOCATION OF NEXT INSTRUCTION.
00470 -0320 00 0 12421 ANA =O77777 GET RID OF GARBAGE.
00471 0340 00 0 00114 CAS MEMBND DOES IT VIOLATE.Q
00472 0761 00 0 00000 NOP YES,
00473 0020 00 0 01427 TRA LLM GO GRIPE ABOUT IT.
00474 -0520 00 0 00453 NZT BPFLG IS THERE A BREAKPOINT.Q
00475 0020 00 0 00534 TRA PNORM NO, THERE ARE NO SPECIAL CASES.
00476 0500 00 0 00454 CLA BRKLOC GET LOCATION OF BREAKPOINT.
00477 TNE PNORM,BIC IS IT THE PLACE WE ARE GOING TO.Q
00477 -0340 00 0 04121 LAS BIC .003
00500 0020 00 0 00502 TRA *+2 .003
00501 0020 00 0 00503 TRA *+2 .003
00502 0020 00 0 00534 TRA PNORM .002
00503 -0500 60 0 00454 CAL* BRKLOC YES, CHECK FOR LOCATION DEPENDENCE.
00504 -0320 00 0 12517 ANA =O777700000000 SAVE THE OPERATION CODE.
00505 TEQ XEC,=O052200000000 IS IT AN 'XEC.Q'
00505 -0340 00 0 12427 LAS =O052200000000 .002
00506 0020 00 0 00510 TRA *+2 .002
00507 0020 00 0 00606 TRA XEC .002
00510 TEQ TSX,=O007400000000 IS IT A 'TSX.Q'
00510 -0340 00 0 12426 LAS =O007400000000 .002
00511 0020 00 0 00513 TRA *+2 .002
00512 0020 00 0 00564 TRA TSX .002
00513 TEQ STL,=O426500000000 IS IT AN 'STL.Q'
00513 -0340 00 0 12453 LAS =O426500000000 .002
00514 0020 00 0 00516 TRA *+2 .002
00515 0020 00 0 00574 TRA STL .002
00516 -0320 00 0 12504 ANA =O700000000000 NOT TYPE B, SAVE JUST THE PREFIX.
00517 TEQ STR,=O500000000000 IS IT AN 'STR.Q'
00517 -0340 00 0 12460 LAS =O500000000000 .002
00520 0020 00 0 00522 TRA *+2 .002
00521 0020 00 0 00556 TRA STR .002
00522 0500 60 0 00454 PNLD CLA* BRKLOC NOT LOCATION DEPENDENT,
00523 0601 00 0 00552 STO EXOP PREPARE TO EXECUTE IT.
00524 0534 00 4 04121 LXA BIC,4 SET UP FOLLOWING TRA'S.
00525 1 00001 4 00526 TXI *+1,4,1 ..
00526 0634 00 4 00553 SXA CONLOC,4 ..
00527 1 00001 4 00530 TXI *+1,4,1 ..
00530 0634 00 4 00554 SXA CONLOC+1,4 ..
00531 1 00001 4 00532 TXI *+1,4,1 ..
00532 0634 00 4 00555 SXA CONLOC+2,4 ..
00533 0020 00 0 00540 TRA PCOM PROCEED. PRINT THE COMMENT.
*
00534 0500 00 0 12424 PNORM CLA =O002000000000 GET CODE FOR 'TRA.'
00535 0601 00 0 00552 STO EXOP SET IT UP TO BE EXECUTED.
00536 0500 00 0 04121 CLA BIC GET ADDRESS TO TRANSFER TO.
00537 0621 00 0 00552 STA EXOP SET UP THE 'TRA.'
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 15
P PROCEED FROM BREAKPOINT STOP.
00540 -0520 00 0 00453 PCOM NZT BPFLG IS THERE A BREAKPOINT.Q
00541 0020 00 0 00546 TRA CNOBP NO, SKIP MOVING.
00542 0500 60 0 00454 CLA* BRKLOC YES, SAVE THE INSTRUCTION.
00543 0601 00 0 00452 STO REMOP ..
00544 0500 00 0 00451 CLA BRKOP INSERT THE BREAK TRANSFER.
00545 0601 60 0 00454 STO* BRKLOC ..
00546 CNOBP TYPE 4,(PROGRAM RESTARTED.*)
00546 0074 00 4 02722 TSX TYPE,4 .002
00547 3 00000 0 12213 PAR ..004 .002
00550 0074 00 4 04030 TSX RESMC,4 RESTORE THE MACHINE CONDITIONS.
00551 -0625 00 0 03061 SETF INUSR SET FLAG.. CONTROL IS WITH USER.
00552 0 00000 0 00000 EXOP ... .. INSTRUCTION TO BE EXECUTED.
00553 0020 00 0 00000 CONLOC TRA .. TRANSFERS TO CATCH SKIPS.
00554 0020 00 0 00000 TRA .. ..
00555 0020 00 0 00000 TRA .. ..
*
00556 0534 00 4 04121 STR LXA BIC,4 GET LOCATION OF THIS INSTRUCTION.
00557 1 00001 4 00560 TXI *+1,4,1 BUMP IT BY ONE.
00560 0634 00 4 00000 SXA 0,4 SET UP LOCATION 0 AS IF STR DID IT.
00561 0500 00 0 12425 CLA =O002000000002 GET 'TRA 2.'
00562 0601 00 0 00552 STO EXOP SET IT UP AS INSTRUCTION.
00563 0020 00 0 00540 TRA PCOM PROCEED TO THE USER.
*
00564 0500 60 0 00454 TSX CLA* BRKLOC GET ADDRESS AND TAG OF TSX IN QUESTION.
00565 0560 00 0 12457 TSX1 LDQ =O477400000000 GET CODE FOR 'AXC.'
00566 -0600 00 0 00552 STQ EXOP SET IT UP TO BE EXECUTED.
00567 0625 00 0 00552 STT EXOP INSERT ITS TAG.
00570 0621 00 0 00553 STA CONLOC SET UP ADDRESS TO TRANSFER TO.
00571 0500 00 0 04121 CLA BIC GET LOCATION OF THE 'TSX.'
00572 0621 00 0 00552 STA EXOP INSERT IT IN THE 'AXC.'
00573 0020 00 0 00540 TRA PCOM PROCEED TO THE USER.
*
00574 0500 60 0 00454 STL CLA* BRKLOC GET ADDRESS, TAG, FLAG BITS OF INSTRUCTION.
00575 0074 00 4 00647 STL1 TSX CCEA,4 GET ITS EFFECTIVE ADDRESS.
00576 0621 00 0 00601 STA STLS SET UP OUR 'SXA.'
00577 0534 00 4 04121 LXA BIC,4 GET LOCATION OF THE 'STL.'
00600 1 00001 4 00601 TXI *+1,4,1 BUMP IT BY ONE.
00601 0634 00 4 00000 STLS SXA ..,4 DO WHAT 'STL' WOULD HAVE.
00602 0500 00 0 12424 CLA =O002000000000 GET CODE FOR 'TRA.'
00603 0601 00 0 00552 STO EXOP IT IS THE INSTRUCTION TO BE EXECUTED.
00604 0634 00 4 00552 SXA EXOP,4 INSERT ITS ADDRESS.
00605 0020 00 0 00540 TRA PCOM PROCEED TO THE USER.
*
00606 0774 00 1 00012 XEC AXT 10,1 SET UP COUNT OF 'XEC' CHAIN.
00607 0500 60 0 00454 CLA* BRKLOC GET ADDRESS, TAG, AND FLAG BITS.
00610 0074 00 4 00647 XECLP TSX CCEA,4 GET EFFECTIVE ADDRESS.
00611 0737 00 4 00000 PAC ,4 SAVE EFFECTIVE ADDRESS.
00612 -0500 00 4 00000 CAL ,4 GET THE INSTRUCTION IT POINTS AT.
00613 -0320 00 0 12517 ANA =O777700000000 THROW AWAY ALL BUT INSTRUCTION.
00614 TNE XECND,=O052200000000 IS IT AN 'XEC.Q'
00614 -0340 00 0 12427 LAS =O052200000000 .003
00615 0020 00 0 00617 TRA *+2 .003
00616 0020 00 0 00620 TRA *+2 .003
00617 0020 00 0 00625 TRA XECND .002
00620 0500 00 4 00000 CLA ,4 YES, GET ADDRESS, TAG, AND FLAG BITS.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 16
P PROCEED FROM BREAKPOINT STOP.
00621 2 00001 1 00610 TIX XECLP,1,1 COUNT IT AND TRY AGAIN.
00622 TYPA 4,(XEC CHAIN TOO DEEP. *)
00622 0074 00 4 02724 TSX TYPA,4 .002
00623 3 00000 0 12217 PAR ..005 .002
00624 0020 00 0 00644 TRA DONTP CHAIN TOO DEEP, DO NOT PROCEED.
*
00625 XECND TEQ XTSX,=O007400000000 IS IT A 'TSX.Q'
00625 -0340 00 0 12426 LAS =O007400000000 .002
00626 0020 00 0 00630 TRA *+2 .002
00627 0020 00 0 00640 TRA XTSX .002
00630 TEQ XSTL,=O462500000000 IS IT AN 'STL.Q'
00630 -0340 00 0 12454 LAS =O462500000000 .002
00631 0020 00 0 00633 TRA *+2 .002
00632 0020 00 0 00642 TRA XSTL .002
00633 -0320 00 0 12504 ANA =O700000000000 NOT TYPE B, SAVE JUST THE PREFIX.
00634 TEQ STR,=O500000000000 IS IT AN 'STR.Q'
00634 -0340 00 0 12460 LAS =O500000000000 .002
00635 0020 00 0 00637 TRA *+2 .002
00636 0020 00 0 00556 TRA STR .002
00637 0020 00 0 00522 TRA PNLD 'XEC' IS NOT LOCATION DEPENDENT.
*
00640 0500 00 4 00000 XTSX CLA ,4 GET INSTRUCTION'S ADDRESS, TAG.
00641 0020 00 0 00565 TRA TSX1 GO TO TSX SECTION.
*
00642 0500 00 4 00000 XSTL CLA ,4 GET THE ADDRESS, TAG, AND FLAG BITS.
00643 0020 00 0 00575 TRA STL1 GO TO STL SECTION.
*
00644 DONTP TYPE 2,(P IGNORED.*)
00644 0074 00 4 02722 TSX TYPE,4 .002
00645 3 00000 0 12223 PAR ..006 .002
00646 0020 00 0 01472 TRA OOPS GO GET NEXT REQUEST.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 17
CCEA. COMPUTE AND CHECK EFFECTIVE ADDRESS.
* NOTE.. TRANSPARENT ONLY TO XR'S 1, 2, 4.
00647 0634 00 4 00677 CCEA SXA CCXC,4 SAVE RETURN INDEX.
00650 0634 00 1 00700 SXA CCXA,1 ..
00651 0634 00 2 00701 SXA CCXB,2 ..
00652 0044 00 0 00000 PAI SAVE FLAG BITS.
00653 0625 00 0 00664 CCLOOP STT CCTXI SET UP THE TAGS WE NEED.
00654 0625 00 0 00665 STT CCPCA ..
00655 -0320 00 0 12421 ANA =O77777 GET RID OF OTHER GARBAGE.
00656 0054 00 700000 RFT 700000 IS THE TAG ZERO.Q
00657 0020 00 0 00661 TRA CCTAG NO, INTERPRET IT.
00660 0020 00 0 00666 TRA CCNTG NO, SKIP TAG SECTION.
*
00661 0737 00 4 00000 CCTAG PAC ,4 COMPLEMENT ADDRESS.
00662 -0634 00 4 00664 SXD CCTXI,4 SAVE FOR BUMPING LATER.
00663 0074 00 4 07251 TSX RESXR,4 RESTORE THE INDEX REGISTERS.
00664 1 00000 0 00665 CCTXI TXI *+1,..,.. SUBTRACT ADDRESS, FORM (-A + T).
00665 0756 00 0 00000 CCPCA PCA ,.. GET (A - T).
00666 0340 00 0 00114 CCNTG CAS MEMBND CHECK MEMORY REFERENCE.
00667 0761 00 0 00000 NOP ABOVE BOUND,
00670 0020 00 0 01427 TRA LLM GRIPE.
00671 -0056 00 000060 LNT 60 IS THE INSTRUCTION FLAGGED.
00672 0020 00 0 00676 TRA CCXIT NO, WE ARE DONE.
00673 -0057 00 000060 RIL 60 YES, RESET THE FLAG.
00674 0500 60 0 00665 CLA* CCPCA GET THE ADDRESSED LOCATION.
00675 0020 00 0 00653 TRA CCLOOP INDEX AGAIN.
*
00676 0760 00 0 00016 CCXIT LMTM ALL DONE, GO HOME.
00677 0774 00 4 00000 CCXC AXT ..,4 RESTORE RETURN INDEX.
00700 0774 00 1 00000 CCXA AXT ..,1 ..
00701 0774 00 2 00000 CCXB AXT ..,2 ..
00702 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 18
BREAK. ENTRY FROM USER'S BREAKPOINT.
00703 0600 00 0 03061 BREAK CLEAR INUSR RESET 'IN USER' FLAG.
00704 0634 00 4 04112 SXA BXC,4 SAVE XR 4.
00705 0074 00 4 03743 TSX SAVMC,4 SAVE THE REST OF THE MACHINE COND.
00706 -0500 00 0 00452 CAL REMOP
00707 0602 60 0 00454 SLW* BRKLOC
00710 -0500 00 0 00454 CAL BRKLOC
00711 0621 00 0 04121 STA BIC UPDATE THE 'ILC.'.
00712 0621 00 0 00230 STA LOC UPDATE THE CURRENT LOCATION.
00713 BCDOUT =HBREAK. ANNOUNCE WHAT HAPPENED.
00713 0500 00 0 12436 CLA =HBREAK. .002
00714 0074 00 4 03174 TSX BCDOUT,4 .002
00715 TSS GETMEM GET THE NEW MEMORY BOUND.
00715 0074 00 4 12176 TSX GETMEM,4 .002
00716 TEQ BRK2,MEMBND SKIP PRINTING IF SAME AS BEFORE.
00716 -0340 00 0 00114 LAS MEMBND .002
00717 0020 00 0 00721 TRA *+2 .002
00720 0020 00 0 00730 TRA BRK2 .002
00721 0602 00 0 00114 SLW MEMBND SAVE IT.
00722 TYPA 4,( MEMORY BOUND IS *),BNDC
00722 0074 00 4 02724 TSX TYPA,4 .002
00723 3 00000 0 12177 PAR BNDC .002
00724 OCTOUT MEMBND TYPE THE NEW BOUND.
00724 0500 00 0 00114 CLA MEMBND .002
00725 0074 00 4 07377 TSX OCTOUT,4 .002
00726 TYO =H00000. PUNCTUATE THE SENTENCE.
00726 0500 00 0 12405 CLA =H00000. .002
00727 0074 00 4 03062 TSX TYO,4 .002
00730 0074 00 4 03120 BRK2 TSX CR,4 THEN RETURN.
00731 0020 00 0 00034 TRA MAIN
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 19
G START EXECUTION AT SPECIFIED LOCATION.
00732 0500 00 0 01475 GO CLA BC GET BREAK CHARACTER.
00733 TNB ILF IF NO ARGUMENT, COMPLAIN.
00733 -0340 00 0 12411 LAS =H00000 .004
00734 0020 00 0 00736 TRA *+2 .004
00735 0020 00 0 00737 TRA *+2 .004
00736 0020 00 0 00231 TRA ILF .003
00737 0074 00 4 03415 TSX FLDEVL,4 GO EVALUATE THE LOCATION.
00740 TNCR ILF GRIPE IF TOO MANY ARGUMENTS.
00740 -0340 00 0 12410 LAS =O55 .004
00741 0020 00 0 00743 TRA *+2 .004
00742 0020 00 0 00744 TRA *+2 .004
00743 0020 00 0 00231 TRA ILF .003
00744 -0600 00 0 00230 STQ LOC SAVE CURRENT LOCATION.
00745 -0500 00 0 00230 CAL LOC PREPARE TO 'GO'.
00746 -0340 00 0 00114 LAS MEMBND IS LOC ABOVE MEM. BOUND.Q
00747 0761 00 0 00000 NOP
00750 0020 00 0 01427 TRA LLM YES, COMPLAIN.
00751 0520 00 0 00455 ZET NOGO TEST FOR ERROR IN THIS INPUT LINE.
00752 0020 00 0 00766 TRA DONTG ERROR, SO IGNORE G REQUEST.
00753 TYPE 3,(PROGRAM STARTED.*)
00753 0074 00 4 02722 TSX TYPE,4 .002
00754 3 00000 0 12225 PAR ..007 .002
00755 -0520 00 0 00453 NZT BPFLG
00756 0020 00 0 00763 TRA GONOBP
00757 -0500 60 0 00454 CAL* BRKLOC
00760 0602 00 0 00452 SLW REMOP
00761 -0500 00 0 00451 CAL BRKOP
00762 0602 60 0 00454 SLW* BRKLOC
00763 0074 00 4 04030 GONOBP TSX RESMC,4 RESTORE THE MACHINE CONDITIONS.
00764 -0625 00 0 03061 SETF INUSR INDICATE THAT USER IS RUNNING.
00765 0020 60 0 00230 TRA* LOC
*
00766 DONTG TYPE 2,(G IGNORED.*)
00766 0074 00 4 02722 TSX TYPE,4 .002
00767 3 00000 0 12230 PAR ..008 .002
00770 0020 00 0 00034 TRA MAIN
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 20
Q END DEBUGGING SESSION.
00771 0500 00 0 01475 DISMIS CLA BC GET THE BREAK CHARACTER.
00772 TNCR ILF IF NOT A CARRIAGE RETURN, COMPLAIN.
00772 -0340 00 0 12410 LAS =O55 .004
00773 0020 00 0 00775 TRA *+2 .004
00774 0020 00 0 00776 TRA *+2 .004
00775 0020 00 0 00231 TRA ILF .003
00776 TYPE 2,(GOOD BYE.*)
00776 0074 00 4 02722 TSX TYPE,4 .002
00777 3 00000 0 12232 PAR ..009 .002
01000 TSS CHNCOM RETURN TO CTSS.
01000 0074 00 4 12234 TSX CHNCOM,4 .002
01001 +000000000001 DEC 1 LEAVE THIS CORE IMAGE.
01002 0020 00 0 00014 TRA QBACK GO ANNOUNCE RESTART.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 21
INT. RETURN FROM USER'S INTERRUPT.
01003 -0520 00 0 03061 INT NZT INUSR WAS INTERRUPT FROM USER.Q
01004 0020 00 0 03030 TRA NOINT NO, IGNORE IT.
01005 0600 00 0 03061 CLEAR INUSR YES, RESET THE FLAG.
01006 0634 00 4 04112 SXA BXC,4 SAVE XR 4.
01007 0074 00 4 03743 TSX SAVMC,4 SAVE THE REST OF THE MACHINE CONDX.
01010 -0500 00 0 00452 CAL REMOP GET BPT-REMOVED INSTRUCTION.
01011 0520 00 0 00453 ZET BPFLG IF THERE IS A BREAKPOINT,
01012 0602 60 0 00454 SLW* BRKLOC RESTORE ITS FORMER INSTRUCTION.
01013 -0625 00 0 02217 SETF CRFLG MAKE TYI READ A NEW LINE.
01014 TSS GETMEM GET THE NEW MEMORY BOUND.
01014 0074 00 4 12176 TSX GETMEM,4 .002
01015 TEQ INT2,MEMBND SKIP PRINTING IF THE SAME AS BEFORE.
01015 -0340 00 0 00114 LAS MEMBND .002
01016 0020 00 0 01020 TRA *+2 .002
01017 0020 00 0 01030 TRA INT2 .002
01020 0601 00 0 00114 STO MEMBND UPDATE THE BOUND.
01021 TYPA 4,( MEMORY BOUND IS *),BNDC
01021 0074 00 4 02724 TSX TYPA,4 .002
01022 3 00000 0 12177 PAR BNDC .002
01023 OCTOUT MEMBND TYPE THE BOUND.
01023 0500 00 0 00114 CLA MEMBND .002
01024 0074 00 4 07377 TSX OCTOUT,4 .002
01025 TYO =H00000. PUNCTUATE THE SENTENCE.
01025 0500 00 0 12405 CLA =H00000. .002
01026 0074 00 4 03062 TSX TYO,4 .002
01027 0074 00 4 03120 TSX CR,4 RETURN.
01030 INT2 TSS GETBRK GET THE USER'S STOP.
01030 0074 00 4 12235 TSX GETBRK,4 .002
01031 0621 00 0 00553 STA CONLOC PUT IN TRA ..
01032 0621 00 0 00230 STA LOC SET CURRENT LOCATION TO BREAK LOC.
01033 0621 00 0 04121 STA BIC SET UP USER'S ILC.
01034 0074 00 4 01167 TSX DUMP,4 PRINT IT IN THE CURRENT MODE.
01035 0020 00 0 01472 TRA OOPS READ THE NEXT REQUEST.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 22
LOOK. PRINT CONTENTS OF SPECIFIED LOCATIONS.
01036 -0500 00 0 00230 NEXT CAL LOC
01037 0361 00 0 12372 ACL =1
01040 0602 00 0 00230 SLW LOC
01041 -0500 00 0 00230 RLOOK CAL LOC PRINT LOCATION.
01042 0074 00 4 01167 TSX DUMP,4 PRINT IT IN THE CURRENT MODE.
01043 0020 00 0 00034 TRA MAIN AND GO BACK.
*
01044 -0500 00 1 00337 LOOK CAL CEND+1,1 GET DISPATCH TABLE ENTRY.
01045 0621 00 0 01101 STA CTSX SAVE IT IN THE SUBROUTINE CALL.
01046 0500 00 0 01475 CLA BC GET THE BREAK CHARACTER.
01047 TCR MAIN IF CARR. RET., EXIT.
01047 -0340 00 0 12410 LAS =O55 .003
01050 0020 00 0 01052 TRA *+2 .003
01051 0020 00 0 00034 TRA MAIN .003
01052 TNB ILF IF NOT, IT MUST BE A BLANK.
01052 -0340 00 0 12411 LAS =H00000 .004
01053 0020 00 0 01055 TRA *+2 .004
01054 0020 00 0 01056 TRA *+2 .004
01055 0020 00 0 00231 TRA ILF .003
01056 0074 00 4 03415 TSX FLDEVL,4 EVALUATE THE FIRST FIELD.
01057 -0600 00 0 01077 STQ LOC1 SAVE VALUE OF FIRST FIELD.
01060 TCR GLOOK IF NOT THERE, SKIP EVALUATING SECOND FIELD.
01060 -0340 00 0 12410 LAS =O55 .003
01061 0020 00 0 01063 TRA *+2 .003
01062 0020 00 0 01074 TRA GLOOK .003
01063 TNB ILF COMPLAIN IF IMPROPER FORMAT.
01063 -0340 00 0 12411 LAS =H00000 .004
01064 0020 00 0 01066 TRA *+2 .004
01065 0020 00 0 01067 TRA *+2 .004
01066 0020 00 0 00231 TRA ILF .003
01067 0074 00 4 03415 TSX FLDEVL,4 IF NOT, EVALUATE IT.
01070 TNCR ILF COMPLAIN IF TOO MANY ARGUMENTS.
01070 -0340 00 0 12410 LAS =O55 .004
01071 0020 00 0 01073 TRA *+2 .004
01072 0020 00 0 01074 TRA *+2 .004
01073 0020 00 0 00231 TRA ILF .003
01074 -0600 00 0 01100 GLOOK STQ LOC2 SAVE VALUE OF THE SECOND FIELD.
01075 0074 00 4 01102 TSX BLKLK,4 GO LOOK AT THE BLOCK.
01076 0020 00 0 00034 TRA MAIN GO GET THE NEXT REQUEST.
*
01077 0 00000 0 00000 LOC1 BEGINNING OF THE BLOCK.
01100 0 00000 0 00000 LOC2 END OF THE BLOCK.
01101 0074 00 4 03266 CTSX TSX ..+SYMPRT,4 OUTPUT MODE SWITCH.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 23
BLKLK. PRINT CONTENTS OF BLOCK OF STORAGE.
01102 0634 00 1 01162 BLKLK SXA BLKXA,1 SAVE THE XR'S.
01103 0634 00 2 01163 SXA BLKXB,2
01104 0634 00 4 01164 SXA BLKXC,4
01105 0500 00 0 01077 CLA LOC1 GET THE FIRST LOCATION.
01106 0340 00 0 00114 CAS MEMBND CHECK IF IT IS LEGAL.
01107 0761 00 0 00000 NOP LOC1 .G. BOUND,
01110 0020 00 0 01427 TRA LLM LOC1 .E. BOUND, COMPLAIN.
01111 0500 00 0 01100 CLA LOC2 LOC 1 PASSES, CHECK THE OTHER LIMIT.
01112 0340 00 0 00114 CAS MEMBND ..
01113 0761 00 0 00000 NOP
01114 0020 00 0 01427 TRA LLM OOPS, THIS ONE FAILS.
01115 -0340 00 0 01077 LAS LOC1 COMPARE IT W/ THE BEGINNING.
01116 0761 00 0 00000 NOP END .G. BEGINNING,
01117 0020 00 0 01122 TRA FWDLK END .E. BEGINNING, DIRECTION IS FORWARDS.
01120 0774 00 4 00001 AXT 1,4 END .L. BEGINNING, DIRECTION IS BACKWARDS.
01121 0020 00 0 01123 TRA GOLK GO TO IT.
*
01122 0774 00 4 77777 FWDLK AXT -1,4 GET INCREMENT FOR FORWARDS.
01123 -0634 00 4 01141 GOLK SXD BMLK,4 SET UP THE TXI.
01124 -0636 00 4 01152 SCD BNLK,4
01125 0535 00 1 01077 LAC LOC1,1 GET INITIAL LOCATION.
01126 0774 00 2 00000 NORPT AXT 0,2 RESET REPEAT COUNT.
01127 -0500 00 1 00000 CAL ,1 GET THIS WORD.
01130 0602 00 0 01166 SLW PREV IT IS THE NEXT PREVIOUS WORD.
01131 0756 00 1 00000 PCA ,1 PUT THIS LOCATION IN THE AC.
01132 0074 00 4 01167 TSX DUMP,4 GO PRINT THIS LOCATION, ITS CONTENTS.
01133 0756 00 1 00000 LKCMP PCA ,1 GET THIS LOCATION.
01134 TEQ XIT,LOC2 IF WE'VE REACHED THE END, WE ARE DONE.
01134 -0340 00 0 01100 LAS LOC2 .002
01135 0020 00 0 01137 TRA *+2 .002
01136 0020 00 0 01153 TRA XIT .002
01137 0520 00 0 03055 ZET INRUPT WAS THERE AN INTERRUPT.Q
01140 0020 00 0 01153 TRA XIT YES, EXIT.
01141 1 00000 1 01142 BMLK TXI *+1,1,.. BUMP POINTER TO THE NEXT LOCATION.
01142 -0500 00 1 00000 CAL ,1 GET THE NEXT WORD.
01143 -0340 00 0 01166 LAS PREV IS IT THE SAME AS THE LAST WORD.Q
01144 0020 00 0 01146 TRA *+2 NO, PROCEED.
01145 1 00001 2 01133 TXI LKCMP,2,1 YES, COUNT REPEAT AND GET NEXT WORD.
01146 -3 00000 2 01126 TXL NORPT,2,0 DIFFERENT, WERE THERE REPEATS.Q
01147 -3 00001 2 01152 TXL BNLK,2,1 YES, BUT DON'T COMMENT IF TWO.
01150 TYPE 2,(REPEAT.*),RPTC YES, SAY SO.
01150 0074 00 4 02722 TSX TYPE,4 .002
01151 3 00000 0 12236 PAR RPTC .002
01152 1 00000 1 01126 BNLK TXI NORPT,1,.. GO PRINT THE LAST WORD OF THE GROUP.
*
01153 0636 00 1 00230 XIT SCA LOC,1 UPDATE CURRENT LOCATION.
01154 -3 00000 2 01162 TXL BLKXA,2,0 END OF BLOCK, ARE WE IN A REPEAT.Q
01155 -3 00001 2 01160 TXL XPCA,2,1 YES, BUT DON'T TYPE REPEAT IF ONLY 1.
01156 TYPE 2,(REPEAT.*),RPTC YES, SAY SO.
01156 0074 00 4 02722 TSX TYPE,4 .002
01157 3 00000 0 12236 PAR RPTC .002
01160 0756 00 1 00000 XPCA PCA ,1 TYPE THE LAST WORD.
01161 0074 00 4 01167 TSX DUMP,4
01162 0774 00 1 00000 BLKXA AXT ..,1 RESTORE THE XR'S.
01163 0774 00 2 00000 BLKXB AXT ..,2
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 24
BLKLK. PRINT CONTENTS OF BLOCK OF STORAGE.
01164 0774 00 4 00000 BLKXC AXT ..,4
01165 0020 00 4 00001 TRA 1,4 EXIT.
*
01166 0 00000 0 00000 PREV THE 'PREVIOUS' WORD.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 25
DUMP. TYPE CONTENTS OF SINGLE LOCATION.
01167 0634 00 4 01204 DUMP SXA DMPX,4 SAVE RETURN.
01170 -0320 00 0 12421 ANA =O77777 GET RID OF GARBAGE.
01171 0340 00 0 00114 CAS MEMBND CHECK IF ABOVE MEMORY BOUND.
01172 0761 00 0 00000 NOP LOC .G. BOUND,
01173 0020 00 0 01427 TRA LLM LOC .E. BOUND, COMPLAIN.
01174 0602 00 0 01206 SLW DMPL SAVE POINTER TO LOCATION.
01175 0074 00 4 03236 TSX FLDPRT,4 PRINT THE LOCATION FIELD.
01176 TYO =H00000/ TYPE THE DELIMITERS.
01176 0500 00 0 12412 CLA =H00000/ .002
01177 0074 00 4 03062 TSX TYO,4 .002
01200 0074 00 4 03122 TSX TAB,4 TABULATE.
01201 0500 60 0 01206 CLA* DMPL GET THE WORD TO BE DUMPED.
01202 0522 00 0 01101 XEC CTSX CONVERT IT AND TYPE IT.
01203 0074 00 4 03120 TSX CR,4 CARRIAGE RETURN.
01204 0774 00 4 00000 DMPX AXT ..,4 RESTORE RETURN.
01205 0020 00 4 00001 TRA 1,4 EXIT.
*
01206 0 00000 0 00000 DMPL POINTER TO LOCATION TO BE DUMPED.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 26
L FIND LOAD ADDRESS OF SUBPROGRAM.
01207 0500 00 0 01475 YANK CLA BC GET BREAK CHARACTER.
01210 TNB ILF
01210 -0340 00 0 12411 LAS =H00000 .004
01211 0020 00 0 01213 TRA *+2 .004
01212 0020 00 0 01214 TRA *+2 .004
01213 0020 00 0 00231 TRA ILF .003
01214 0074 00 4 03352 TSX BCSCH,4 ASSEMBLE THE SYMBOL.
01215 TNCR ILF CHECK THAT THAT IS ALL.
01215 -0340 00 0 12410 LAS =O55 .004
01216 0020 00 0 01220 TRA *+2 .004
01217 0020 00 0 01221 TRA *+2 .004
01220 0020 00 0 00231 TRA ILF .003
01221 -0130 00 0 00000 XCL MOVE IT TO AC.
01222 0074 00 4 03471 TSX LADJ,4 LEFT ADJUST IT.
01223 0074 00 4 01504 TSX ORGFND,4 FIND THE ORIGIN OF THE SUBPROGRAM.
01224 0602 00 0 01477 SLW PGMORG
01225 0602 00 0 00230 SLW LOC SET CURRENT LOC. TO ORIGIN.
01226 0020 00 0 00034 TRA MAIN
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 27
T READ OR KILL SYMBOL TABLE.
01227 0500 00 0 01475 TABLE CLA BC
01230 TCR KILL NO ARG., KILL THE TABLE.
01230 -0340 00 0 12410 LAS =O55 .003
01231 0020 00 0 01233 TRA *+2 .003
01232 0020 00 0 01251 TRA KILL .003
01233 TNB ILF MAKE SURE WE HAVE THE PROPER FORMAT.
01233 -0340 00 0 12411 LAS =H00000 .004
01234 0020 00 0 01236 TRA *+2 .004
01235 0020 00 0 01237 TRA *+2 .004
01236 0020 00 0 00231 TRA ILF .003
01237 0074 00 4 03352 TSX BCSCH,4 ASSEMBLE THE SYMBOL.
01240 TNCR ILF THIS MUST BE THE END OF THE LINE.
01240 -0340 00 0 12410 LAS =O55 .004
01241 0020 00 0 01243 TRA *+2 .004
01242 0020 00 0 01244 TRA *+2 .004
01243 0020 00 0 00231 TRA ILF .003
01244 -0130 00 0 00000 XCL MOVE TO AC.
01245 0602 00 0 01313 SLW NAME
01246 0560 00 0 01477 LDQ PGMORG PICK UP RELOCATION CONSTANT.
01247 0074 00 4 03513 TSX TABRD,4 GO READ AND RELOCATE THE SYMBOLS.
01250 0020 00 0 00034 TRA MAIN
*
01251 0074 00 4 03621 KILL TSX KILTAB,4 CLEAR THE SYMBOL TABLE.
01252 0020 00 0 00034 TRA MAIN GET THE NEXT REQUEST.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 28
W FIND ORIGIN AND RELOCATE SYMBOL TABLE.
01253 0500 00 0 01475 AUTO CLA BC GET BREAK CHARACTER.
01254 TNB ILF IF NOT BLANK, COMPLAIN.
01254 -0340 00 0 12411 LAS =H00000 .004
01255 0020 00 0 01257 TRA *+2 .004
01256 0020 00 0 01260 TRA *+2 .004
01257 0020 00 0 00231 TRA ILF .003
01260 0074 00 4 03352 TSX BCSCH,4 GET THE SYMBOL.
01261 0602 00 0 01475 SLW BC
01262 -0130 00 0 00000 XCL
01263 0602 00 0 01313 SLW NAME
01264 0074 00 4 03471 TSX LADJ,4 ADJUST IT TO THE LEFT.
01265 0074 00 4 01504 TSX ORGFND,4 FIND THE ORIGIN OF THE PROGRAM.
01266 0602 00 0 01477 SLW PGMORG SAVE RELOCATION CONSTANT FOR LATER.
01267 0602 00 0 00230 SLW LOC SET CURRENT LOC. TO ORIGIN.
01270 0560 00 0 01313 LDQ NAME GET NAME OF THE FILE.
01271 0500 00 0 01475 CLA BC
01272 TCR WORK
01272 -0340 00 0 12410 LAS =O55 .003
01273 0020 00 0 01275 TRA *+2 .003
01274 0020 00 0 01306 TRA WORK .003
01275 TNB ILF NEXT ARGUMENT MUST BE SEPARATED BY BLANK.
01275 -0340 00 0 12411 LAS =H00000 .004
01276 0020 00 0 01300 TRA *+2 .004
01277 0020 00 0 01301 TRA *+2 .004
01300 0020 00 0 00231 TRA ILF .003
01301 0074 00 4 03352 TSX BCSCH,4 ASSEMBLE THE NAME.
01302 TNCR ILF CHECK FOR END OF REQUEST.
01302 -0340 00 0 12410 LAS =O55 .004
01303 0020 00 0 01305 TRA *+2 .004
01304 0020 00 0 01306 TRA *+2 .004
01305 0020 00 0 00231 TRA ILF .003
01306 -0600 00 0 01313 WORK STQ NAME
01307 -0130 00 0 00000 XCL MOVE FILE NAME TO AC.
01310 0560 00 0 01477 LDQ PGMORG NOW IS THE TIME.. GET RELOCATION CON.
01311 0074 00 4 03513 TSX TABRD,4 READ AND RELOCATE THE SYMBOL TABLE.
01312 0020 00 0 00034 TRA MAIN
*
01313 0 00000 0 00000 NAME FILE OR ENTRY NAME.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 29
S MANIPULATIONS OF SIGNED AC.
01314 0500 00 0 01475 SAC CLA BC GET THE BREAK CHARACTER.
01315 TCR SACLK THE REQUEST IS 'LOOK'.
01315 -0340 00 0 12410 LAS =O55 .003
01316 0020 00 0 01320 TRA *+2 .003
01317 0020 00 0 01336 TRA SACLK .003
01320 TNB ILF IF NOT A BLANK, COMPLAIN.
01320 -0340 00 0 12411 LAS =H00000 .004
01321 0020 00 0 01323 TRA *+2 .004
01322 0020 00 0 01324 TRA *+2 .004
01323 0020 00 0 00231 TRA ILF .003
01324 0074 00 4 00115 TSX SYMIN,4 OTHERWISE, GET THE WORD.
01325 TNCR ILF IF NOT A CARR. RET., COMPLAIN.
01325 -0340 00 0 12410 LAS =O55 .004
01326 0020 00 0 01330 TRA *+2 .004
01327 0020 00 0 01331 TRA *+2 .004
01330 0020 00 0 00231 TRA ILF .003
01331 0131 00 0 00000 XCA MOVE WORD TO SIGNED AC.
01332 0602 00 0 04104 SLW BAC SAVE THE ENTIRE AC.
01333 0771 00 0 00002 ARS 2 ..
01334 0601 00 0 04105 STO BQS ..
01335 0020 00 0 00034 TRA MAIN THEN QUIT.
*
01336 SACLK BCDOUT =O532161725757 TYPE THE LOCATION =H$A/(TAB).
01336 0500 00 0 12464 CLA =O532161725757 .002
01337 0074 00 4 03174 TSX BCDOUT,4 .002
01340 0500 00 0 04105 CLA BQS RESTORE THE SIGNED AC.
01341 0767 00 0 00002 ALS 2 ..
01342 -0501 00 0 04104 ORA BAC ..
01343 0131 00 0 00000 XCA DELETE P AND Q BITS.
01344 0131 00 0 00000 XCA ..
01345 0522 00 0 01101 XEC CTSX PRINT THE SIGNED AC.
01346 BCDOUT =O725060136057 =H(TAB)Q =
01346 0500 00 0 12506 CLA =O725060136057 .002
01347 0074 00 4 03174 TSX BCDOUT,4 .002
01350 -0500 00 0 04105 CAL BQS GET Q AND P BITS.
01351 0771 00 0 00042 ARS 34 SHIFT Q TO POSITION 35.
01352 -0320 00 0 12372 ANA =1 MASK IT OFF.
01353 0074 00 4 03062 TSX TYO,4 TYPE IT.
01354 BCDOUT (=H, P = )
01354 0500 00 0 12511 CLA =H, P = .002
01355 0074 00 4 03174 TSX BCDOUT,4 .002
01356 -0500 00 0 04105 CAL BQS GET Q AND P BITS.
01357 0771 00 0 00041 ARS 33 SHIFT P TO POSITION 35.
01360 -0320 00 0 12372 ANA =1 MASK AWAY EVERYTHING ELSE.
01361 0074 00 4 03062 TSX TYO,4 TYPE IT.
01362 0074 00 4 03120 TSX CR,4 RETURN THE CARRIAGE.
01363 0020 00 0 00034 TRA MAIN GET THE NEXT REQUEST.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 30
K MANIPULATIONS OF LOGICAL AC.
01364 0500 00 0 01475 LAC CLA BC GET THE BREAK CHARACTER.
01365 TCR LACLK LOOK AT LOGICAL AC.
01365 -0340 00 0 12410 LAS =O55 .003
01366 0020 00 0 01370 TRA *+2 .003
01367 0020 00 0 01406 TRA LACLK .003
01370 TNB ILF COMPLAIN IF NOT BLANK.
01370 -0340 00 0 12411 LAS =H00000 .004
01371 0020 00 0 01373 TRA *+2 .004
01372 0020 00 0 01374 TRA *+2 .004
01373 0020 00 0 00231 TRA ILF .003
01374 0074 00 4 00115 TSX SYMIN,4 OTHERWISE GET THE WORD IN LOG. AC.
01375 TNCR ILF GRIPE IF NOT END OF REQUEST.
01375 -0340 00 0 12410 LAS =O55 .004
01376 0020 00 0 01400 TRA *+2 .004
01377 0020 00 0 01401 TRA *+2 .004
01400 0020 00 0 00231 TRA ILF .003
01401 -0130 00 0 00000 XCL MOVE INPUT TO LOGICAL AC.
01402 0602 00 0 04104 SLW BAC SAVE THE ENTIRE AC.
01403 0771 00 0 00002 ARS 2 ..
01404 0601 00 0 04105 STO BQS ..
01405 0020 00 0 00034 TRA MAIN THEN GET THE NEXT REQUEST.
*
01406 LACLK BCDOUT =O534261725757 TYPE THE LOCATION =H$K/(TAB).
01406 0500 00 0 12465 CLA =O534261725757 .002
01407 0074 00 4 03174 TSX BCDOUT,4 .002
01410 0500 00 0 04104 CLA BAC GET LOGICAL AC.
01411 0522 00 0 01101 XEC CTSX PRINT LOGICAL AC BITS P, 1-35.
01412 BCDOUT =O726260136057 =H(TAB)S =
01412 0500 00 0 12507 CLA =O726260136057 .002
01413 0074 00 4 03174 TSX BCDOUT,4 .002
01414 -0500 00 0 04105 CAL BQS GET Q AND S BITS.
01415 0771 00 0 00043 ARS 35 MOVE S TO POSITION 35.
01416 0074 00 4 03062 TSX TYO,4 TYPE IT.
01417 BCDOUT (=H, Q = )
01417 0500 00 0 12512 CLA =H, Q = .002
01420 0074 00 4 03174 TSX BCDOUT,4 .002
01421 -0500 00 0 04105 CAL BQS GET S AND Q BITS.
01422 0771 00 0 00042 ARS 34 MOVE Q TO POSITION 35.
01423 -0320 00 0 12372 ANA =1 MASK AWAY ALL ELSE.
01424 0074 00 4 03062 TSX TYO,4 TYPE IT.
01425 0074 00 4 03120 TSX CR,4 RETURN THE CARRIAGE.
01426 0020 00 0 00034 TRA MAIN AND GO BACK.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 31
LLM. COMMENT ON LOCATION ABOVE MEMORY BOUND.
01427 LLM TYPE 5,(LOCATION ABOVE MEMORY BOUND.*)
01427 0074 00 4 02722 TSX TYPE,4 .002
01430 3 00000 0 12240 PAR ..010 .002
01431 0020 00 0 01472 TRA OOPS GO GET THE NEXT REQUEST.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 32
E DEFINE SYMBOL.
01432 FULL TYPE 6,(TABLE FULL, DEFINITION IGNORED.*)
01432 0074 00 4 02722 TSX TYPE,4 .002
01433 3 00000 0 12245 PAR ..011 .002
01434 0020 00 0 01472 TRA OOPS GO PROCESS NEXT REQUEST.
*
01435 0500 00 0 01475 DEF CLA BC
01436 TNB ILF
01436 -0340 00 0 12411 LAS =H00000 .004
01437 0020 00 0 01441 TRA *+2 .004
01440 0020 00 0 01442 TRA *+2 .004
01441 0020 00 0 00231 TRA ILF .003
01442 0074 00 4 03415 TSX FLDEVL,4 EVALUATE THE FIRST ARGUMENT.
01443 TNB ILF CHECK FOR SYMBOL FOLLOWING.
01443 -0340 00 0 12411 LAS =H00000 .004
01444 0020 00 0 01446 TRA *+2 .004
01445 0020 00 0 01447 TRA *+2 .004
01446 0020 00 0 00231 TRA ILF .003
01447 -0600 00 0 00230 STQ LOC SAVE SYMBOL VALUE.
01450 0074 00 4 03352 TSX BCSCH,4 GET THE SYMBOL.
01451 TNCR ILF GRIPE IF NOT END OF LINE.
01451 -0340 00 0 12410 LAS =O55 .004
01452 0020 00 0 01454 TRA *+2 .004
01453 0020 00 0 01455 TRA *+2 .004
01454 0020 00 0 00231 TRA ILF .003
01455 -0130 00 0 00000 XCL
01456 0074 00 4 03471 TSX LADJ,4 ADJUST IT TO THE LEFT.
01457 0560 00 0 00230 LDQ LOC PICK UP VALUE.
01460 0074 00 4 03704 TSX DEFINE,4 ENTER IT IN THE SYMBOL TABLE.
01461 0020 00 0 01432 TRA FULL THE TABLE IS FULL.
01462 0020 00 0 00034 TRA MAIN EXIT.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 33
UNDEF. COMMENT ON UNDEFINED SYMBOL.
01463 0602 00 0 01474 UNDEF SLW USYM SAVE THE UNDEFINED SYMBOL.
01464 0074 00 4 03124 TSX QUOTE,4 TYPE THE LEFT QUOTES.
01465 NAMOUT USYM TYPE THE SYMBOL.
01465 0500 00 0 01474 CLA USYM .002
01466 0074 00 4 03176 TSX NAMOUT,4 .002
01467 0074 00 4 03124 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
01470 TYPE 3,( IS NOT DEFINED.*)
01470 0074 00 4 02722 TSX TYPE,4 .002
01471 3 00000 0 12253 PAR ..012 .002
01472 -0625 00 0 00455 OOPS SETF NOGO SET G AND P ERROR FLAG.
01473 0020 00 0 00034 TRA MAIN
*
01474 0 00000 0 00000 USYM STORAGE FOR UNDEFINED SYMBOL.
01475 0 00000 0 00000 BC
01476 0 00000 0 00000 WORD WORD BEING ASSEMBLED.
01477 0 00000 0 00000 PGMORG ORIGIN OF CURRENT SUBPROGRAM.
01500 0 00000 0 00000 OP OP. CODE OF WORD.
01501 0 00000 0 00000 ADD ADDRESS OF WORD.
01502 0 00000 0 00000 TAG TAG OF WORD.
01503 0 00000 0 00000 DEC DECREMENT OF WORD.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 34
ORGFND. ORIGIN FINDING ROUTINE.
* ENTER WITH NAME OF PROGRAM ENTRY LEFT ADJUSTED IN AC (LOGICAL).
* SEARCHES LOADING TABLE FOR ORIGIN. WHEN FOUND, PRINTS IT AND
* RETURNS WITH ORIGIN IN AC ADDRESS. IF IT CANNOT BE FOUND IT
* TYPES COMMENT AND TRANSFERS TO OOPS.
01504 0634 00 4 01556 ORGFND SXA OFXC,4
01505 -0340 00 0 12516 LAS =H(MAIN)
01506 0020 00 0 01510 TRA *+2
01507 -0754 00 0 00000 ZAC WAS (MAIN), SET TO 0.
01510 0602 00 0 01572 SLW ONAME SAVE THE NAME.
01511 -0500 60 0 00000 CAL* $MOVIE)
01512 -0737 00 4 00000 PDC ,4 GET -(LENGTH).
01513 -0634 00 4 01523 SXD TEST,4 AND SAVE IT.
01514 0621 00 0 01517 STA SEARCH SAVE ORIGIN.
01515 -0774 00 4 00000 AXC 0,4 CLEAR POINTER.
01516 -0500 00 0 01572 CAL ONAME GET PROGRAM NAME.
01517 SEARCH TEQ FOUND,(..,4) COMPARE W/ ENTRY IN TABLE.
01517 -0340 00 4 00000 LAS ..,4 .002
01520 0020 00 0 01522 TRA *+2 .002
01521 0020 00 0 01525 TRA FOUND .002
01522 1 77776 4 01523 TXI *+1,4,-2 BUMP POINTER.
01523 3 00000 4 01517 TEST TXH SEARCH,4,.. ARE WE DONE.Q
01524 0020 00 0 01561 TRA NOTFND YES, WE DID NOT FIND IT.
*
01525 1 77776 4 01526 FOUND TXI *+1,4,-2 BUMP POINTER TO '*+2'.
01526 -0500 60 0 01517 CAL* SEARCH GET NEXT ENTRY.
01527 TEQ XFER,=O700000000000
01527 -0340 00 0 12504 LAS =O700000000000 .002
01530 0020 00 0 01532 TRA *+2 .002
01531 0020 00 0 01535 TRA XFER .002
01532 0100 00 0 01525 TZE FOUND IF (MAIN), IT IS NOT TV SIZE.
01533 -0320 00 0 12505 ANA =O700000777777
01534 -0100 00 0 01525 TNZ FOUND IF ADDRESS NOT 0 WE DO NOT HAVE T.V.
01535 1 77777 4 01536 XFER TXI *+1,4,-1 BUMP POINTER.
01536 -0500 60 0 01517 CAL* SEARCH GET ORIGIN OF PROGRAM.
01537 0600 00 0 01573 STZ PORG CLEAR THE REGISTER OF GARBAGE.
01540 0621 00 0 01573 STA PORG AND SAVE THE PROGRAM ORIGIN.
01541 0074 00 4 03124 TSX QUOTE,4 TYPE THE LEFT QUOTES.
01542 0500 00 0 01572 CLA ONAME GET THE ENTRY NAME.
01543 -0100 00 0 01545 TNZ *+2 UNLESS IT IS ZERO.
01544 0500 00 0 12516 CLA =H(MAIN) THEN REPLACE IT WITH TRADITIONAL NAME.
01545 0074 00 4 03176 TSX NAMOUT,4 TYPE IT.
01546 0074 00 4 03124 TSX QUOTE,4 FOLLOWED BY THE RIGHT QUOTES.
01547 TYPA 3,( IS LOADED AT *) MIDDLE OF COMMENT.
01547 0074 00 4 02724 TSX TYPA,4 .002
01550 3 00000 0 12256 PAR ..013 .002
01551 OCTOUT PORG TYPE THE ORIGIN.
01551 0500 00 0 01573 CLA PORG .002
01552 0074 00 4 07377 TSX OCTOUT,4 .002
01553 TYO =H00000. PUNCTUATE THE SENTENCE.
01553 0500 00 0 12405 CLA =H00000. .002
01554 0074 00 4 03062 TSX TYO,4 .002
01555 0074 00 4 03120 TSX CR,4 RETURN THE CARRIAGE.
01556 0774 00 4 00000 OFXC AXT ..,4
01557 -0500 00 0 01573 CAL PORG GET THE ORIGIN AGAIN.
01560 0020 00 4 00001 TRA 1,4 HAPPY RETURN.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 35
ORGFND. ORIGIN FINDING ROUTINE.
*
01561 0074 00 4 03124 NOTFND TSX QUOTE,4 NOT FOUND, TYPE QUOTES.
01562 0500 00 0 01572 CLA ONAME GET THE NAME.
01563 -0100 00 0 01565 TNZ *+2 IF ZERO,
01564 0500 00 0 12516 CLA =H(MAIN) REPLACE IT WITH TRADITIONAL SUBSTITUTE.
01565 0074 00 4 03176 TSX NAMOUT,4 TYPE IT.
01566 0074 00 4 03124 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
01567 TYPE 3,( IS NOT IN CORE.*) TYPE THE REST OF THE COMMENT.
01567 0074 00 4 02722 TSX TYPE,4 .002
01570 3 00000 0 12261 PAR ..014 .002
01571 0020 00 0 01472 TRA OOPS UNHAPPY, GO GRIPE.
*
01572 0 00000 0 00000 ONAME STORAGE FOR THE ENTRY NAME.
01573 0 00000 0 00000 PORG PROGRAM ORIGIN, TEMP.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 36
INTEGER (BASE 10 AND 8) INPUT CONVERSION.
* OCTIN. OCTAL TO BINARY CONVERSION.
01574 0600 00 0 01667 OCTIN CLEAR SFT FULL WORD, RESET SHIFT FLAG.
01575 0560 00 0 12375 LDQ =O10 BASE IS 8.
01576 0020 00 0 01604 TRA IJIN GO JOIN INTIN AND JNTIN.
*
* DECIMAL TO BINARY CONVERSION, INPUT.
01577 0600 00 0 01667 INTIN CLEAR SFT FULL WORD, DON'T SHIFT.
01600 0560 00 0 12377 LDQ =10 BASE IS 10.
01601 0020 00 0 01604 TRA IJIN GO TO COMMON SECTION.
*
01602 -0625 00 0 01667 JNTIN SETF SFT DECREMENT INTEGER, SHIFT AFTER CONVERSION.
01603 0560 00 0 12377 LDQ =10 BASE IS 10.
01604 -0600 00 0 01673 IJIN STQ BASE SAVE THE BASE.
01605 0634 00 4 01657 SXA XR,4 SAVE XR 4.
01606 0600 00 0 01670 STZ NUM
01607 0600 00 0 01672 CLEAR SGN
01610 0074 00 4 02126 TSX TYI,4 GET THE NEXT CHARACTER.
01611 TEQ IDIG1,=H00000+ IGNORE PLUS SIGN.
01611 -0340 00 0 12403 LAS =H00000+ .002
01612 0020 00 0 01614 TRA *+2 .002
01613 0020 00 0 01624 TRA IDIG1 .002
01614 TEQ IMIN,=H00000- TAKE CARE OF MINUS SIGN.
01614 -0340 00 0 12406 LAS =H00000- .002
01615 0020 00 0 01617 TRA *+2 .002
01616 0020 00 0 01623 TRA IMIN .002
01617 0340 00 0 01673 CAS BASE IS IT A DIGIT.Q
01620 0020 00 0 00231 TRA ILF NO, COMPLAIN.
01621 0761 00 0 00000 NOP YES,
01622 0020 00 0 01630 TRA ICNV GO INTO CONVERSION LOOP.
*
01623 -0625 00 0 01672 IMIN SETF SGN MINUS SIGN, SET FLAG.
01624 0074 00 4 02126 IDIG1 TSX TYI,4 GET THE NEXT CHARACTER.
01625 0340 00 0 01673 CAS BASE IS IT A DIGIT.Q
01626 0020 00 0 00231 TRA ILF NO, COMPLAIN.
01627 0761 00 0 00000 NOP YES,
01630 0601 00 0 01671 ICNV STO DGT SAVE IT.
01631 0140 00 0 01631 TOV * TURN OFF OVERFLOW LIGHT.
01632 0560 00 0 01670 LDQ NUM GET THE PREVIOUS NUMBER.
01633 0200 00 0 01673 MPY BASE INCREASE IT BY THE NEW PLACE.
01634 0763 00 0 00043 LLS 35 MOVE RESULT TO AC.
01635 0400 00 0 01671 ADD DGT ADD IN THE NEW DIGIT.
01636 0601 00 0 01670 STO NUM SAVE THE RESULT.
01637 0140 00 0 01661 TOV OVDC IF OVERFLOW, COMPLAIN.
01640 0074 00 4 02126 TSX TYI,4 GET THE NEXT CHARACTER.
01641 0340 00 0 01673 CAS BASE IS IT A DIGIT.
01642 0020 00 0 01645 TRA IFMT NO, GO CLEAN UP.
01643 0761 00 0 00000 NOP YES,
01644 0020 00 0 01630 TRA ICNV RETURN TO CONVERSION LOOP.
*
01645 0601 00 0 01671 IFMT STO DGT SAVE THE TERMINATIGN CHARACTER.
01646 0500 00 0 01670 CLA NUM GET THE NUMBER.
01647 0520 00 0 01672 ZET SGN SHOULD IT BE NEGATIVE.Q
01650 -0760 00 0 00003 SSM YES, MAKE IT SO.
01651 0140 00 0 01651 TOV * TURN OFF OVERFLOW LIGHT.
01652 0520 00 0 01667 ZET SFT SHOULD WE SHIFT IT.Q
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 37
INTEGER (BASE 10 AND 8) INPUT CONVERSION.
01653 0767 00 0 00022 ALS 18 YES, DO SO.
01654 0140 00 0 01664 TOV OVFC IF TOO BIG, COMPLAIN.
01655 0131 00 0 00000 XCA MOVE THE RESULT TO THE MQ.
01656 0500 00 0 01671 CLA DGT GET THE TERMINAL CHARACTER.
01657 0774 00 4 00000 XR AXT ..,4
01660 0020 00 4 00001 TRA 1,4
*
01661 OVDC TYPE 5,(OVERFLOW DURING CONVERSION.*)
01661 0074 00 4 02722 TSX TYPE,4 .002
01662 3 00000 0 12264 PAR ..015 .002
01663 0020 00 0 01472 TRA OOPS
*
01664 OVFC TYPE 5,(OVERFLOW DURING SHIFTING.*)
01664 0074 00 4 02722 TSX TYPE,4 .002
01665 3 00000 0 12271 PAR ..016 .002
01666 0020 00 0 01472 TRA OOPS
*
01667 0 00000 0 00000 SFT
01670 0 00000 0 00000 NUM ACCUMULATING NUMBER.
01671 0 00000 0 00000 DGT CURRENT CHARACTER.
01672 0 00000 0 00000 SGN FLAG.. IS NUMBER NEGATIVE.Q
01673 0 00000 0 00000 BASE NUMBER CONVERSION BASE.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 38
FLOIN. FLOATING POINT DECIMAL INPUT CONVERSION.
01674 0634 00 4 02033 FLOIN SXA FXRC,4 SAVE RETURN.
01675 0634 00 2 02034 SXA FXRB,2
01676 0600 00 0 02123 STZ MAG CLEAR THE MAGNITUDE.
01677 0600 00 0 02124 CLEAR MSG SIGN OF MAGNITUDE.
01700 0774 00 2 00000 AXT 0,2
01701 0560 00 0 00010 LDQ 8 PICK UP AND.
01702 -0600 00 0 02125 STQ FPT SAVE FPT LOCATION.
01703 0560 00 0 00000 LDQ 0 ALSO SAVE THE F.P. ERROR CODE LOC.
01704 -0600 00 0 02122 STQ FPZ
01705 0560 00 0 02121 LDQ TTR INSERT IN IT A TRANSFER BACK HERE.
01706 -0600 00 0 00010 STQ 8
01707 0074 00 4 02126 TSX TYI,4 GET THE NEXT CHARACTER.
01710 TEQ FDIG1,=H00000+ IGNORE PLUS SIGN.
01710 -0340 00 0 12403 LAS =H00000+ .002
01711 0020 00 0 01713 TRA *+2 .002
01712 0020 00 0 01726 TRA FDIG1 .002
01713 TEQ MMI,=H00000- TAKE CARE OF MINUS SIGN.
01713 -0340 00 0 12406 LAS =H00000- .002
01714 0020 00 0 01716 TRA *+2 .002
01715 0020 00 0 01725 TRA MMI .002
01716 FRET1 TEQ FRAC1,=H00000. GO TO FRACTION SECTION, IF NECESSARY.
01716 -0340 00 0 12405 LAS =H00000. .002
01717 0020 00 0 01721 TRA *+2 .002
01720 0020 00 0 01752 TRA FRAC1 .002
01721 0340 00 0 12376 CAS =9 IS IT A DIGIT.Q
01722 0020 00 0 02045 TRA FILF NO, COMPLAIN.
01723 0761 00 0 00000 NOP YES,
01724 0020 00 0 01730 TRA FCNV GO INTO CONVERSION LOOP.
*
01725 -0625 00 0 02124 MMI SETF MSG SET NEGATIVE FLAG.
01726 0074 00 4 02126 FDIG1 TSX TYI,4 GET THE NEXT CHARACTER.
01727 0020 00 0 01716 TRA FRET1 GO CHECK IT OUT.
*
01730 -0501 00 0 12440 FCNV ORA =O233000000000 FLOAT THE DIGIT.
01731 0300 00 0 12440 FAD =O233000000000 ..
01732 0601 00 0 01671 STO DGT SAVE IT.
01733 0560 00 0 02123 LDQ MAG INCREASE MAGNITUDE FOR NEW PLACE.
01734 0260 00 0 12434 FMP =10. ..
01735 0300 00 0 01671 FAD DGT ADD IN THE NEW DIGIT.
01736 0601 00 0 02123 STO MAG SAVE THE RESULT.
01737 0074 00 4 02126 TSX TYI,4 GET THE NEXT CHARACTER.
01740 TEQ FRAC2,=H00000. GO TO FRACTION SECTION, IF PERIOD.
01740 -0340 00 0 12405 LAS =H00000. .002
01741 0020 00 0 01743 TRA *+2 .002
01742 0020 00 0 01766 TRA FRAC2 .002
01743 TEQ E,=H00000E GO TO EXPONENT, IF E.
01743 -0340 00 0 12404 LAS =H00000E .002
01744 0020 00 0 01746 TRA *+2 .002
01745 0020 00 0 01776 TRA E .002
01746 0340 00 0 12376 CAS =9 IS IT A DIGIT.Q
01747 0020 00 0 02021 TRA FFMT NO, CLEAN UP.
01750 0761 00 0 00000 NOP YES,
01751 0020 00 0 01730 TRA FCNV CONTINUE CONVERSION LOOP.
*
01752 0074 00 4 02126 FRAC1 TSX TYI,4 GET THE NEXT CHARACTER.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 39
FLOIN. FLOATING POINT DECIMAL INPUT CONVERSION.
01753 0340 00 0 12376 CAS =9 IS IT A DIGIT.Q
01754 0020 00 0 02045 TRA FILF NO, COMPLAIN.
01755 0761 00 0 00000 NOP YES,
01756 1 00001 2 01757 TXI *+1,2,1 BUMP EXPONENT BY ONE.
01757 3 00046 2 02036 FRCNV TXH ERR,2,38 COMPLAIN IF TOO BIG.
01760 -0501 00 0 12440 ORA =O233000000000 FLOAT THE DIGIT.
01761 0300 00 0 12440 FAD =O233000000000 ..
01762 0241 00 2 02120 FDP TEN,2 COMPUTE ITS APPARENT VALUE.
01763 0131 00 0 00000 XCA MOVE THE RESULT TO THE AC.
01764 0300 00 0 02123 FAD MAG ADD IT INTO THE NUMBER.
01765 0601 00 0 02123 STO MAG SAVE THE RESULT.
01766 0074 00 4 02126 FRAC2 TSX TYI,4 GET THE NEXT CHARACTER.
01767 TEQ E,=H00000E GO TO EXPONENT IF E.
01767 -0340 00 0 12404 LAS =H00000E .002
01770 0020 00 0 01772 TRA *+2 .002
01771 0020 00 0 01776 TRA E .002
01772 0340 00 0 12376 CAS =9 IS IT A DIGIT.Q
01773 0020 00 0 02021 TRA FFMT NO, CLEAN UP.
01774 0761 00 0 00000 NOP YES,
01775 1 00001 2 01757 TXI FRCNV,2,1 BUMP POWER AND CONTINUE LOOP.
*
01776 0560 00 0 02125 E LDQ FPT RESTORE USER'S 0 AND 8.
01777 -0600 00 0 00010 STQ 8 ..
02000 0560 00 0 02122 LDQ FPZ ..
02001 -0600 00 0 00000 STQ 0 ..
02002 0074 00 4 01577 TSX INTIN,4 GET THE EXPONENT OF TEN.
02003 0601 00 0 01671 STO DGT SAVE THE TERMINAL CHARACTER.
02004 0131 00 0 00000 XCA MOVE THE NUMBER TO THE AC.
02005 0734 00 2 00000 PAX ,2 THENCE TO XR.
02006 0560 00 0 02121 LDQ TTR RESTORE OUR FPT SETTING.
02007 -0600 00 0 00010 STQ 8 ..
02010 3 00046 2 02036 TXH ERR,2,38 IS IT REASONABLE.Q
02011 -0120 00 0 02015 TMI FDIV YES, IF NEGATIVE, WE MUST DIVIDE.
02012 0560 00 0 02123 LDQ MAG POSITIVE,
02013 0260 00 2 02120 FMP TEN,2 MULTIPLY.
02014 0020 00 0 02023 TRA FASSGN GO ATTACH THE SIGN.
*
02015 0500 00 0 02123 FDIV CLA MAG NEGATIVE,
02016 0241 00 2 02120 FDP TEN,2 DIVIDE BY POWER OF TEN.
02017 0131 00 0 00000 XCA MOVE RESULT TO AC.
02020 0020 00 0 02023 TRA FASSGN ATTACH THE SIGN.
*
02021 0601 00 0 01671 FFMT STO DGT SAVE THE TERMINAL CHARACTER.
02022 0500 00 0 02123 CLA MAG GET THE NUMBER.
02023 0520 00 0 02124 FASSGN ZET MSG SHOULD IT BE NEGATIVE.Q
02024 -0760 00 0 00003 SSM YES, MAKE IT SO.
02025 0131 00 0 00000 XCA MOVE THE RESULT TO THE MQ.
02026 0500 00 0 02125 CLA FPT RESTORE LOCATION 8.
02027 0601 00 0 00010 STO 8 ..
02030 0500 00 0 02122 CLA FPZ AND 0.
02031 0601 00 0 00000 STO 0 ..
02032 0500 00 0 01671 CLA DGT GET THE TERMINAL CHARACTER.
02033 0774 00 4 00000 FXRC AXT ..,4 RESTORE THE INDEX REGISTERS.
02034 0774 00 2 00000 FXRB AXT ..,2 ..
02035 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 40
FLOIN. FLOATING POINT DECIMAL INPUT CONVERSION.
*
02036 ERR TYPE 5,(F.P. NUMBER OUT OF RANGE.*)
02036 0074 00 4 02722 TSX TYPE,4 .002
02037 3 00000 0 12276 PAR ..017 .002
02040 0500 00 0 02125 CLA FPT RESTORE LOCATIONS 0 AND 8.
02041 0601 00 0 00010 STO 8 ..
02042 0500 00 0 02122 CLA FPZ ..
02043 0601 00 0 00000 STO 0 ..
02044 0020 00 0 01472 TRA OOPS DO NOT RETURN TO CALLER.
*
02045 0560 00 0 02122 FILF LDQ FPZ RESTORE FP TRAP LOCATIONS.
02046 -0600 00 0 00000 STQ 0 ..
02047 0560 00 0 02125 LDQ FPT ..
02050 -0600 00 0 00010 STQ 8 ..
02051 0020 00 0 00231 TRA ILF GO GRIPE ABOUT CHARACTER.
*
02052 +377454732313 DEC 1E38,1E37,1E36,1E35,1E34,1E33,1E32,1E31,1E30
02053 +373741367021
02054 +370601137164
02055 +365464114135
02056 +361755023373
02057 +356612334311
02060 +353473426555
02061 +347770675742
02062 +344623713116
02063 +341503074077 DEC 1E29,1E28,1E27,1E26,1E25,1E24,1E23,1E22,1E21,1E20
02064 +336402374714
02065 +332635456171
02066 +327512676456
02067 +324410545213
02070 +320647410336
02071 +315522640262
02072 +312417031702
02073 +306661534466
02074 +303532743536
02075 +300425434430 DEC 1E19,1E18,1E17,1E16,1E15,1E14,1E13,1E12,1E11,1E10
02076 +274674055532
02077 +271543212741
02100 +266434157116
02101 +262706576512
02102 +257553630410
02103 +254443023471
02104 +250721522451
02105 +245564416672
02106 +242452013710
02107 +236734654500 DEC 1E9,1E8,1E7,1E6,1E5,1E4,1E3,1E2,1E1
02110 +233575360400
02111 +230461132000
02112 +224750220000
02113 +221606500000
02114 +216470400000
02115 +212764000000
02116 +207620000000
02117 +204500000000
02120 +201400000000 TEN DEC 1. TABLE OF POWERS OF TEN.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 41
FLOIN. FLOATING POINT DECIMAL INPUT CONVERSION.
*
02121 0021 00 0 02036 TTR TTR ERR INSTRUCTION TO BE STORED IN LOC 8.
02122 0 00000 0 00000 FPZ STORAGE FOR LOCATION 0.
02123 0 00000 0 00000 MAG MAGNITUDE OF NUMBER.
02124 0 00000 0 00000 MSG SIGN OF MAGNITUDE.
02125 0 00000 0 00000 FPT STORAGE FOR CONTENTS OF LOCATION 8.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 42
TYI. SINGLE CHARACTER INPUT PACKAGE.
02126 0634 00 4 02161 TYI SXA TYIX,4 SAVE RETURN INDEX.
02127 0774 00 4 00000 TYICP AXT ..,4 REMEMBER HOW MANY CHARACTERS IN THIS WORD.
02130 -0520 00 0 02217 NZT CRFLG SKIP TEST IF BUFFER EMPTY.
02131 2 00006 4 02135 TIX TYIMIW,4,6 COUNT THIS CHARACTER, IF ANY.
02132 0074 00 4 02177 TSX GWORD,4 GET THE NEXT WORD.
02133 0601 00 0 02220 STO TYIB SAVE IT.
02134 0774 00 4 00044 AXT 36,4 RESET CHARACTER COUNT.
02135 0634 00 4 02127 TYIMIW SXA TYICP,4 SAVE THE NEW CHARACTER COUNT.
02136 0560 00 0 02220 LDQ TYIB GET THE CURRENT WORD.
02137 -0763 00 4 00052 LGL 42,4 SHIFT IN THE DESIRED CHARACTER.
02140 -0320 00 0 12416 ANA =O77 MASK OFF THE CHARACTER.
02141 0340 00 0 12410 CAS =O55 IS IT A CARRIAGE RETURN.Q
02142 0020 00 0 02144 TRA *+2 NO, PROCEED.
02143 -0625 00 0 02217 SETF CRFLG YES, SIGNAL BUFFER EMPTY.
02144 0340 00 0 12401 CAS =H00000' IS IT AN APOSTROPHE.Q
02145 0020 00 0 02147 TRA *+2 NO,
02146 0500 00 0 12410 CLA =O55 YES, SUBSTITUTE A CARR. RET.
02147 -0340 00 0 12400 LAS =H00000= IF IT IS A = (CONCATENATION CHAR.).
02150 0020 00 0 02152 TRA *+2
02151 0500 00 0 12410 CLA =O55 MAKE IT A CARR. RET.
02152 -0340 00 0 12414 LAS =O72 IF IT IS A TABULATE,
02153 0020 00 0 02155 TRA *+2
02154 -0500 00 0 12411 CAL =O60 MAKE IT A BLANK.
02155 TBL CHPRE IF BLANK, CHECK PREVIOUS CHARACTER.
02155 -0340 00 0 12411 LAS =H00000 .003
02156 0020 00 0 02160 TRA *+2 .003
02157 0020 00 0 02163 TRA CHPRE .003
02160 0602 00 0 02216 OUT SLW PREVCH OK, SAVE AS PREVIOUS CHAR.
02161 0774 00 4 00000 TYIX AXT ..,4 RESTORE RETURN INDEX.
02162 0020 00 4 00001 TRA 1,4
*
02163 CHPRE TEQ TYICP,PREVCH IF LAST CHARACTER WAS BLANK, TRY AGAIN.
02163 -0340 00 0 02216 LAS PREVCH .002
02164 0020 00 0 02166 TRA *+2 .002
02165 0020 00 0 02127 TRA TYICP .002
02166 0020 00 0 02160 TRA OUT OTHERWISE EXIT W/ THIS BLANK.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 43
SKIPCR. FIND BEGINNING OF NEXT REQUEST.
02167 0634 00 4 02175 SKIPCR SXA SKX,4 SAVE RETURN.
02170 -0500 00 0 02216 CAL PREVCH LAST CHARACTER.
02171 0020 00 0 02173 TRA *+2
02172 0074 00 4 02126 TSX TYI,4 GET NEXT CHAR.
02173 0322 00 0 12410 ERA =O55 IS IT A CARR. RET.Q
02174 -0100 00 0 02172 TNZ *-2 NO, TRY AGAIN.
02175 0774 00 4 00000 SKX AXT ..,4 YES, EXIT.
02176 0020 00 4 00001 TRA 1,4
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 44
GWORD. GET NEXT WORD FROM INPUT LINE.
02177 0634 00 4 02214 GWORD SXA GWX,4 SAVE RETURN INDEX.
02200 0535 00 4 02221 LAC GWBUF,4 REMEMBER CURRENT WORD.
02201 1 77777 4 02202 TXI *+1,4,-1 BUMP POINTER TO NEXT WORD.
02202 -0520 00 0 02217 NZT CRFLG SKIP TEST IF BUFFER EMPTY.
02203 3 77761 4 02212 TXH GWMIB,4,-15 IS THERE ANY MORE IN BUFFER.Q
02204 0074 00 4 03120 TSX CR,4 NO, RETURN THE CARRIAGE.
02205 0074 00 4 00000 TYICW TSX ..,4 READ A NEW BUFFER FULL.
02206 3 00016 0 02222 PAR GWBUF+1,,14 ..
02207 0600 00 0 02217 CLEAR CRFLG INDICATE STUFF IN BUFFER.
02210 0600 00 0 00455 CLEAR NOGO RESET G AND P ERROR FLAG.
02211 -0774 00 4 00001 AXC 1,4 RESET COUNT OF WORDS.
02212 0636 00 4 02221 GWMIB SCA GWBUF,4 SAVE POINTER FOR NEXT TIME.
02213 0500 00 4 02221 CLA GWBUF,4 GET THE CURRENT WORD.
02214 0774 00 4 00000 GWX AXT ..,4 RESTORE RETURN INDEX.
02215 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
02216 +000000000055 PREVCH OCT 55 AT BEGINNING, WE ARE SET UP OK.
02217 0 00000 0 02217 CRFLG * FIRST TIME, WE HAVE NO LINE IN BUFFER.
02220 0 00000 0 00000 TYIB CURRENT INPUT WORD.
02221 0 00000 0 00000 GWBUF INPUT LINE BUFFER.
02222 BSS 14 ..
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 45
DIFDMP. VERIFY OR DIFFERENTIAL DUMP.
* COMPARE RELOCATABLE BINARY CARDS IN FILE NAME (IN LOGICAL AC)
* BSS WITH PROGRAM WHOSE ORIGIN IS GIVEN IN MQ. PRINT LOCATIONS
* AND THEIR CONTENTS WHICH DISAGREE.
02240 0634 00 4 02456 DIFDMP SXA VXC,4 SAVE THE XR'S.
02241 0634 00 2 02457 SXA VXB,2
02242 0634 00 1 02460 SXA VXA,1
02243 -0600 00 0 01573 STQ PORG ENTER W/ PROGRAM NAME IN THE AC.,
02244 0602 00 0 02467 SLW FILE PROGRAM ORIGIN IN MQ.
02245 0600 00 0 02465 CLEAR CELL1 INITIALIZE PROGRAM CARD FLAG.
02246 OPEN (=HR,FILE,((=H BSS)),=-0,=-0,DERR) OPEN THE FILE.
02246 0074 00 4 12303 TSX OPEN,4 .004
02247 3 00000 0 12463 PAR =HR .004
02250 3 00000 0 02467 PAR FILE .004
02251 3 00000 0 12473 PAR =H BSS .004
02252 3 00000 0 12452 PAR =-0 .004
02253 3 00000 0 12452 PAR =-0 .004
02254 3 00000 0 07451 PAR DERR .004
02255 BUFFER (FILE,((=H BSS)),(BUF1,,BUFLTH),DERR) ..
02255 0074 00 4 12304 TSX BUFFER,4 .004
02256 3 00000 0 02467 PAR FILE .004
02257 3 00000 0 12473 PAR =H BSS .004
02260 3 00660 0 07555 PAR BUF1,,BUFLTH .004
02261 3 00000 0 07451 PAR DERR .004
02262 CARDRD RDWAIT (FILE,((=H BSS)),=0,(CARD,,28),QUIT,=-0,DERR) GET CARD.
02262 0074 00 4 12305 TSX RDWAIT,4 .004
02263 3 00000 0 02467 PAR FILE .004
02264 3 00000 0 12473 PAR =H BSS .004
02265 3 00000 0 12371 PAR =0 .004
02266 3 00034 0 02305 PAR CARD,,28 .004
02267 3 00000 0 02450 PAR QUIT .004
02270 3 00000 0 12452 PAR =-0 .004
02271 3 00000 0 07451 PAR DERR .004
02272 0500 00 0 02305 CLA CARD
02273 0120 00 0 02341 TPL DATA IF SIGN=1, WE HAVE PROGRAM CARD.
02274 0520 00 0 02465 ZET CELL1 IS THIS FIRST PROGRAM CARD.Q
02275 0020 00 0 02262 TRA CARDRD NO, READ ANOTHER.
02276 -0625 00 0 02465 SETF CELL1 YES, GET PROGRAM BREAK.
02277 0534 00 4 02307 LXA CARD+2,4 GET PROGRAM BREAK.
02300 1 77777 4 02301 TXI *+1,4,-1 DECREASE IT TO GET LAST LOCATION USED.
02301 -0634 00 4 02437 SXD RELSIZ,4 SET UP RELOCATION SUBROUTINE.
02302 0534 00 4 01573 LXA PORG,4 GET PROGRAM ORIGIN.
02303 -0634 00 4 02441 SXD RELPRG,4 SET UP RELOCATION SUBROUTINE.
02304 0020 00 0 02262 TRA CARDRD
*
02305 CARD BSS 28
*
02341 0500 00 0 02305 DATA CLA CARD
02342 0400 00 0 01573 ADD PORG RELOCATE THE 'LOAD ADDRESS'.
02343 0600 00 0 00230 STZ LOC
02344 0621 00 0 00230 STA LOC
02345 -0320 00 0 12432 ANA =O200077000000
02346 0771 00 0 00022 ARS 18
02347 0600 00 0 02466 STZ COUNT
02350 0621 00 0 02466 STA COUNT NUMBER OF PERTINENT WORDS ON CARD.
02351 0767 00 0 00023 ALS 19
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 46
DIFDMP. VERIFY OR DIFFERENTIAL DUMP.
02352 -0760 00 0 00001 PBT
02353 0020 00 0 02462 TRA NONREL NON-RELOCATABLE CARD.
02354 -0774 00 1 02311 AXC CARD+4,1
02355 0500 00 1 00000 RETURN CLA 0,1 PICK UP WORD.
02356 0601 00 0 01476 STO WORD
02357 0074 00 4 02425 TSX RELBIT,4 GET FIRST DECREMENT RELOCATION BIT.
02360 0120 00 0 02366 TPL NODEC IF ZERO, DECREMENT IS ABSOLUTE.
02361 0500 00 0 01476 CLA WORD IF ONE,
02362 0771 00 0 00022 ARS 18 DECREMENT IS RELOCATABLE.
02363 0074 00 4 02433 TSX RELOC,4 DO SO.
02364 0767 00 0 00022 ALS 18 THEN,
02365 0622 00 0 01476 STD WORD REPLACE THE NEW VERSION.
02366 0074 00 4 02425 NODEC TSX RELBIT,4 GET THE FIRST ADDRESS BIT.
02367 0120 00 0 02373 TPL CHECK IF ZERO, ADDRESS IS ABSOLUTE.
02370 0500 00 0 01476 CLA WORD IF ONE, ADDRESS IS RELOCATABLE.
02371 0074 00 4 02433 TSX RELOC,4 DO SO.
02372 0621 00 0 01476 STA WORD REPLACE THE NEW VERSION.
02373 -0500 60 0 00230 CHECK CAL* LOC GET WORD FROM MEMORY.
02374 TEQ FINCYC,WORD IF IT MATCHES, DON'T PRINT.
02374 -0340 00 0 01476 LAS WORD .002
02375 0020 00 0 02377 TRA *+2 .002
02376 0020 00 0 02412 TRA FINCYC .002
02377 FLDPRT LOC TYPE LOCATION.
02377 0500 00 0 00230 CLA LOC .002
02400 0074 00 4 03236 TSX FLDPRT,4 .002
02401 TYO =H00000/
02401 0500 00 0 12412 CLA =H00000/ .002
02402 0074 00 4 03062 TSX TYO,4 .002
02403 0074 00 4 03122 TSX TAB,4 BCD TABULATE.
02404 0500 00 0 01476 CLA WORD PRINT OUT OLD CONTENTS.
02405 0522 00 0 01101 XEC CTSX
02406 0074 00 4 03122 TSX TAB,4 BCD TABULATE.
02407 0500 60 0 00230 CLA* LOC GET THE WORD.
02410 0522 00 0 01101 XEC CTSX TYPE THE WORD.
02411 0074 00 4 03120 TSX CR,4 END OF LINE, CARRIAGE RETURN.
02412 -0500 00 0 00230 FINCYC CAL LOC
02413 0400 00 0 12372 ADD =1
02414 0602 00 0 00230 SLW LOC
02415 1 77777 1 02416 TXI *+1,1,-1
02416 0520 00 0 03055 ZET INRUPT HAS THERE BEEN AN INTERRUPT.Q
02417 0020 00 0 02450 TRA QUIT YES, STOP.
02420 -0500 00 0 02466 CAL COUNT
02421 0402 00 0 12372 SUB =1
02422 0602 00 0 02466 SLW COUNT
02423 -0100 00 0 02355 TNZ RETURN
02424 0020 00 0 02262 TRA CARDRD GO READ NEXT CARD.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 47
RELBIT. GET NEXT RELOCATION BIT.
02425 0500 00 0 02307 RELBIT CLA CARD+2 GET THE TWO WORDS OF BITS.
02426 0560 00 0 02310 LDQ CARD+3 ..
02427 -0763 00 0 00001 LGL 1 MOVE LEFT ONE POSITION.
02430 0602 00 0 02307 SLW CARD+2 SAVE THE TWO NEW WORDS.
02431 -0600 00 0 02310 STQ CARD+3 ..
02432 0020 00 4 00001 TRA 1,4 RETURN TO CALLER WITH BIT IN AC SIGN.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 48
RELOC. RELOCATE FIELD IN A(AC).
02433 0634 00 4 02443 RELOC SXA RELXC,4 SAVE RETURN INDEX.
02434 0634 00 1 02444 SXA RELXA,1 ..
02435 0734 00 1 00000 PAX ,1 GET FIELD TO BE RELOCATED.
02436 0074 00 4 02425 TSX RELBIT,4 GET THE NEXT RELOCATION BIT.
02437 3 00000 1 02446 RELSIZ TXH OUTSID,1,.. IS FIELD WITHIN SUBPROGRAM.Q
02440 -0120 00 0 02447 TMI RELCOM YES, BIT ON MEANS COMMON RELOCATION.
02441 1 00000 1 02442 RELPRG TXI *+1,1,.. BIT OFF MEANS RELOCATION WITH SUBPROGRAM.
02442 0754 00 1 00000 RELXIT PXA ,1 GET THE RELOCATED FIELD.
02443 0774 00 4 00000 RELXC AXT ..,4 RESTORE RETURN INDEX.
02444 0774 00 1 00000 RELXA AXT ..,1 ..
02445 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
02446 -0120 00 0 02441 OUTSID TMI RELPRG OUTSIDE, ONE MEANS RELOCATE W/ SUBPROGRAM.
02447 1 00000 1 02442 RELCOM TXI RELXIT,1,COMMON-77461K ZERO MEANS COMMON RELOCATION.
*
77461 COMMON COMMON 0 WHERE COMMON REALLY IS.
077461 77461K BOOL 77461 WHERE IT SHOULD BE.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 49
EXIT FROM VERIFY.
02450 QUIT CLOSE (FILE,((=H BSS)),DERR) CLOSE THE FILE.
02450 0074 00 4 12306 TSX CLOSE,4 .004
02451 3 00000 0 02467 PAR FILE .004
02452 3 00000 0 12473 PAR =H BSS .004
02453 3 00000 0 07451 PAR DERR .004
02454 VDONE TYPE 3,(COMPARISON DONE.*)
02454 0074 00 4 02722 TSX TYPE,4 .002
02455 3 00000 0 12307 PAR ..054 .002
02456 0774 00 4 00000 VXC AXT ..,4
02457 0774 00 2 00000 VXB AXT ..,2
02460 0774 00 1 00000 VXA AXT ..,1
02461 0020 00 4 00001 TRA 1,4 AND EXIT.
*
02462 NONREL TYPE 6,(BINARY CARD IS NON-RELOCATABLE.*)
02462 0074 00 4 02722 TSX TYPE,4 .002
02463 3 00000 0 12312 PAR ..055 .002
02464 0020 00 0 02450 TRA QUIT GIVE UP AND GET OUT OF HERE.
*
02465 0 00000 0 00000 CELL1 FLAG.. FIRST PROGRAM CARD ALREADY READ.
02466 0 00000 0 00000 COUNT NUMBER OF WORDS ON CARD.
02467 0 00000 0 00000 FILE PRIMARY FILE NAME.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 50
MAP. TYPE STORAGE MAP.
02470 0634 00 4 02546 MAP SXA MXC,4 SAVE THE INDEX REGISTERS.
02471 0634 00 1 02547 SXA MXA,1
02472 0634 00 2 02550 SXA MXB,2
02473 -0500 60 0 00000 CAL* $MOVIE) GET THE MAP CONTROL WORD.
02474 0622 00 0 02544 STD MTST SAVE WORD COUNT FOR END TEST.
02475 0771 00 0 00022 ARS 18 SHIFT COUNT TO ADDRESS.
02476 0361 60 0 00000 ACL* $MOVIE) COMPUTE (LAST + 1).
02477 0621 00 0 02552 STA MPTR SET UP POINTER.
02500 0774 00 1 00001 AXT 1,1 SET UP COUNT OF WORDS.
02501 0074 00 4 03120 BPR TSX CR,4 RETURN THE CARRIAGE.
02502 BCDOUT (=HORG = ) ANNOUNCE THE ORIGIN OF THIS SUBPROGRAM.
02502 0500 00 0 12456 CLA =HORG = .002
02503 0074 00 4 03174 TSX BCDOUT,4 .002
02504 0500 60 0 02552 CLA* MPTR GET THE ORIGIN.
02505 0074 00 4 07377 TSX OCTOUT,4 TYPE IT.
02506 1 00001 1 02507 TXI *+1,1,1 MOVE INDEX TO THE T. V. SIZE.
02507 BCDOUT =O726365601360 ANNOUNCE THE T.V. SIZE (=H(TAB)TV =).
02507 0500 00 0 12510 CLA =O726365601360 .002
02510 0074 00 4 03174 TSX BCDOUT,4 .002
02511 0500 60 0 02552 CLA* MPTR GET THE T.V. SIZE.
02512 0771 00 0 00022 ARS 18 MOVE IT TO THE ADDRESS.
02513 -0320 00 0 12421 ANA =O77777 MASK OFF PREFIX.
02514 0074 00 4 07377 TSX OCTOUT,4 TYPE IT.
02515 1 00002 1 02516 TXI *+1,1,2 MOVE INDEX TO THE PROGRAM NAME.
02516 0074 00 4 03120 MLP TSX CR,4 TYPE A CARRIAGE RETURN.
02517 0520 00 0 03055 ZET INRUPT WAS THERE AN INTERRUPT.Q
02520 0020 00 0 02546 TRA MXC YES, STOP.
02521 -0500 60 0 02552 CAL* MPTR GET THE ALLEGED AME.
02522 TEQ MDUM,=O777777777777 IS IT THE DUMMY NAME.Q
02522 -0340 00 0 12522 LAS =O777777777777 .002
02523 0020 00 0 02525 TRA *+2 .002
02524 0020 00 0 02533 TRA MDUM .002
02525 0100 00 0 02531 TZE MPR ZERO MEANS (MAIN).
02526 -0320 00 0 12430 ANA =O77400777777 MASK AWAY LARGEST DECREMENT.
02527 -0100 00 0 02535 TNZ GPR NON-ZERO MEANS SUBPROGRAM NAME.
02530 1 77777 1 02501 TXI BPR,1,-1 T.V. SIZE, A NEW SUBPROGRAM.
*
02531 0500 00 0 12516 MPR CLA =H(MAIN) SUBSTITUTE TRADITIONAL NAME.
02532 0020 00 0 02536 TRA WPR GO TYPE IT.
*
02533 0500 00 0 12514 MDUM CLA =H(END) SUBSTITUTE PRINTABLE NAME.
02534 0020 00 0 02536 TRA WPR
*
02535 0500 60 0 02552 GPR CLA* MPTR GET THE NAME AGAIN.
02536 0074 00 4 03176 WPR TSX NAMOUT,4 TYPE THE NAME.
02537 0074 00 4 03122 RDUM TSX TAB,4 TABULATE.
02540 1 77777 1 02541 TXI *+1,1,-1 MOVE INDEX TO ENTRY POINT.
02541 0500 60 0 02552 CLA* MPTR GET THE ENTRY POINT.
02542 0074 00 4 07377 TSX OCTOUT,4 TYPE IT.
02543 1 00003 1 02544 TXI *+1,1,3 MOVE INDEX TO NEXT PAIR OF ENTRIES.
02544 -3 00000 1 02516 MTST TXL MLP,1,.. IF MORE, CONTINUE.
02545 0074 00 4 03120 TSX CR,4 IF NOT, GIVE FINAL CARRIAGE RETURN.
02546 0774 00 4 00000 MXC AXT ..,4 RESTORE THE INDEX REGISTERS.
02547 0774 00 1 00000 MXA AXT ..,1
02550 0774 00 2 00000 MXB AXT ..,2
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 51
MAP. TYPE STORAGE MAP.
02551 0020 00 4 00001 TRA 1,4 EXIT.
*
02552 0 00000 1 00000 MPTR ..,1 POINTER TO CURRENT WORD IN MOVIE).
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 52
CHFIL. CHECK FOR PRELIMINARY INPUT FROM A FILE.
02553 0634 00 4 02574 CHFIL SXA CHXC,4 SAVE RETURN.
02554 0774 00 4 02721 AXT RDFLXA,4 SET UP TO READ FROM CONSOLE.
02555 0634 00 4 02205 SXA TYICW,4
02556 TSS GETCOM GET THE FIRST COMMAND ARGUMENT.
02556 0074 00 4 12320 TSX GETCOM,4 .002
02557 0 00000 0 00001 1
02560 TEQ CHXC,=O777777777777 EXIT IF FIRST ARGUMENT IS FENCE.
02560 -0340 00 0 12522 LAS =O777777777777 .002
02561 0020 00 0 02563 TRA *+2 .002
02562 0020 00 0 02574 TRA CHXC .002
02563 0602 00 0 01313 SLW NAME REMEMBER IT.
02564 0074 00 4 12320 TSX GETCOM,4 GET THE SECOND ARGUMENT.
02565 0 00000 0 00002 2
02566 TNE CHXC,=O777777777777 NO FILE IF MORE THAN ONE ARGUMENT.
02566 -0340 00 0 12522 LAS =O777777777777 .003
02567 0020 00 0 02571 TRA *+2 .003
02570 0020 00 0 02572 TRA *+2 .003
02571 0020 00 0 02574 TRA CHXC .002
02572 0074 00 4 02576 TSX SETF,4 SET UP FOR READING FROM A FILE.
02573 3 00000 0 01313 PAR NAME
02574 0774 00 4 00000 CHXC AXT ..,4 RESTORE XR 4.
02575 0020 00 4 00001 TRA 1,4 EXIT.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 53
SETF. SET UP FOR READING FROM A FILE.
02576 0634 00 4 02617 SETF SXA SETFX,4 SAVE RETURN.
02577 0500 60 4 00001 CLA* 1,4 GET THE FILE NAME.
02600 0601 00 0 02621 STO TYIF SAVE IT.
02601 OPEN (=HR,TYIF,((=H DEBUG)),=-0,=-0,DERR) OPEN THE FILE.
02601 0074 00 4 12303 TSX OPEN,4 .004
02602 3 00000 0 12463 PAR =HR .004
02603 3 00000 0 02621 PAR TYIF .004
02604 3 00000 0 12471 PAR =H DEBUG .004
02605 3 00000 0 12452 PAR =-0 .004
02606 3 00000 0 12452 PAR =-0 .004
02607 3 00000 0 07451 PAR DERR .004
02610 BUFFER (TYIF,((=H DEBUG)),(BUF2,,BUFLTH),DERR) ..
02610 0074 00 4 12304 TSX BUFFER,4 .004
02611 3 00000 0 02621 PAR TYIF .004
02612 3 00000 0 12471 PAR =H DEBUG .004
02613 3 00660 0 10435 PAR BUF2,,BUFLTH .004
02614 3 00000 0 07451 PAR DERR .004
02615 0774 00 4 02622 AXT READF,4 BUGGER TYI TO READ FROM FILE.
02616 0634 00 4 02205 SXA TYICW,4 ..
02617 0774 00 4 00000 SETFX AXT ..,4 RESTORE RETURN.
02620 0020 00 4 00001 TRA 1,4 EXIT.
*
02621 0 00000 0 00000 TYIF INPUT FILE NAME.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 54
READF. READ LINE FROM FILE.
02622 0634 00 4 02640 READF SXA READX,4 SAVE RETURN.
02623 0500 00 4 00001 CLA 1,4 GET THE CONTROL WORD.
02624 0601 00 0 02632 STO READCW+4 SET UP CALL TO DISK SUPERVISOR.
02625 0621 00 0 02637 STA FIXCW SET UP CARRIAGE RETURN INSERTER.
02626 READCW RDWAIT (TYIF,((=H DEBUG)),=0,(..,,..),RFEND,=-0,RFERR) GET LINE.
02626 0074 00 4 12305 TSX RDWAIT,4 .004
02627 3 00000 0 02621 PAR TYIF .004
02630 3 00000 0 12471 PAR =H DEBUG .004
02631 3 00000 0 12371 PAR =0 .004
02632 3 00000 0 00000 PAR ..,,.. .004
02633 3 00000 0 02712 PAR RFEND .004
02634 3 00000 0 12452 PAR =-0 .004
02635 3 00000 0 02707 PAR RFERR .004
02636 0074 00 4 02642 TSX FIXCR,4 FIX UP THE CARRIAGE RETURN.
02637 3 00000 0 00000 FIXCW PAR ..
02640 0774 00 4 00000 READX AXT ..,4 RESTORE RETURN.
02641 0020 00 4 00002 TRA 2,4 EXIT.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 55
FIXCR. INSERT CR AT END OF LINE READ FROM FILE.
02642 0634 00 4 02677 FIXCR SXA FIXXC,4 SAVE THE XR'S.
02643 0634 00 1 02676 SXA FIXXA,1
02644 0500 00 4 00001 CLA 1,4 GET THE CONTROL WORD.
02645 0400 00 0 12400 ADD =11 COMPUTE ADDRESS OF LAST WORD.
02646 0621 00 0 02653 STA SWD SET UP OUR CAL, SLW, STQ.
02647 0621 00 0 02674 STA SFW
02650 0400 00 0 12372 ADD =1
02651 0621 00 0 02675 STA SRW
02652 0774 00 1 00000 AXT 0,1 BEGIN W/ THE LAST WORD.
02653 -0500 00 1 00000 SWD CAL ..,1 GET THE WORD.
02654 TEQ ALLB,=H IS IT ALL BLANK.Q
02654 -0340 00 0 12475 LAS =H .002
02655 0020 00 0 02657 TRA *+2 .002
02656 0020 00 0 02703 TRA ALLB .002
02657 0774 00 4 00044 AXT 36,4 SET UP COUNT OF 36 BITS.
02660 0560 00 0 12371 SCH LDQ =0 CLEAR THE MQ.
02661 -0765 00 0 00006 LGR 6 GET THE RIGHT-HAND CHARACTER.
02662 -0773 00 0 00006 RQL 6 MOVE IT TO THE RIGHT OF THE MQ.
02663 -0130 00 0 00000 XCL THEN TO THE AC.
02664 TBL STILLB IF A BLANK, GO CHECK THE NEXT.
02664 -0340 00 0 12411 LAS =H00000 .003
02665 0020 00 0 02667 TRA *+2 .003
02666 0020 00 0 02701 TRA STILLB .003
02667 -0130 00 0 00000 XCL RESTORE THE CHARACTERS TO ITS LEFT.
02670 -0773 00 0 00036 RQL 30 GET IT BACK INTO POSITION.
02671 -0763 00 0 00006 LGL 6
02672 0560 00 0 12467 LDQ =O556060606060 GET THE WORD FILLER.
02673 -0763 00 4 00044 LGL 36,4 RESTORE THE WORD.
02674 0602 00 1 00000 SFW SLW ..,1 REPLACE IT.
02675 -0600 00 1 00000 SRW STQ ..,1 REPLACE THE WORD TO ITS RIGHT.
02676 0774 00 1 00000 FIXXA AXT ..,1 RESTORE THE XR'S.
02677 0774 00 4 00000 FIXXC AXT ..,4
02700 0020 00 4 00001 TRA 1,4 EXIT.
*
02701 -0130 00 0 00000 STILLB XCL RESTORE THE TWO HALVES.
02702 1 77772 4 02660 TXI SCH,4,-6 COUNT CHARACTER AND GO GET THE NEXT.
*
02703 1 00001 1 02704 ALLB TXI *+1,1,1 MOVE POINTER TO NEXT WORD.
02704 -3 00014 1 02653 TXL SWD,1,12 IF NOT DONE, GET THE NEXT WORD.
02705 0560 00 0 12467 LDQ =O556060606060 OTHERWISE, GET THE CARRIAGE RETURN CODE.
02706 0020 00 0 02675 TRA SRW INSERT IT AS THE FIRST WORD.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 56
RESTORE CONSOLE INPUT.
02707 0774 00 4 02721 RFERR AXT RDFLXA,4 ERROR ON READING, SET TO CONSOLE INPUT.
02710 0634 00 4 02205 SXA TYICW,4 ..
02711 0020 00 0 07451 TRA DERR GET DISK DIAGNOSTIC.
*
02712 0774 00 4 02721 RFEND AXT RDFLXA,4 RESTORE TYI TO READ FROM CONSOLE.
02713 0634 00 4 02205 SXA TYICW,4 ..
02714 CLOSE (TYIF,((=H DEBUG)),DERR) CLOSE THE FILE.
02714 0074 00 4 12306 TSX CLOSE,4 .004
02715 3 00000 0 02621 PAR TYIF .004
02716 3 00000 0 12471 PAR =H DEBUG .004
02717 3 00000 0 07451 PAR DERR .004
02720 0534 00 4 02640 LXA READX,4 RESTORE RETURN.
02721 0101 00 0 12461 RDFLXA TIA =HRDFLXA AND CALL RDFLXA.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 57
TYPE LINE OF TEXT TERMINATED BY ASTERISK.
02722 -0625 00 0 02753 TYPE SETF TYPCR SET CARRIAGE RETURN FLAG.
02723 0020 00 0 02725 TRA TYPJ GO TO ROUTINE.
*
02724 0600 00 0 02753 TYPA CLEAR TYPCR CLEAR CARRIAGE RETURN FLAG.
02725 0634 00 4 02747 TYPJ SXA TYPXC,4 SAVE THE INDEX REGISTERS.
02726 0634 00 1 02750 SXA TYPXA,1
02727 0634 00 2 02751 SXA TYPXB,2
02730 0500 00 4 00001 CLA 1,4 GET THE CONTROL WORD.
02731 0737 00 1 00000 PAC ,1 PLACE POINTER TO BCI STRING IN XR 1.
02732 0560 00 1 00000 TYPG LDQ 0,1 GET A WORD FROM CALLER.
02733 0774 00 2 00006 AXT 6,2 PREPARE TO COUNT 6 CHARACTERS.
02734 -0754 00 0 00000 TYPL ZAC CLEAR THE AC.
02735 -0763 00 0 00006 LGL 6 SHIFT A CHARACTER INTO THE AC.
02736 TEQ TYPX,=H00000* STOP IF CHARACTER IS ASTERISK.
02736 -0340 00 0 12407 LAS =H00000* .002
02737 0020 00 0 02741 TRA *+2 .002
02740 0020 00 0 02744 TRA TYPX .002
02741 0074 00 4 03062 TSX TYO,4 TYPE IT.
02742 2 00001 2 02734 TIX TYPL,2,1 COUNT THE CHARACTERS IN THIS WORD.
02743 1 77777 1 02732 TXI TYPG,1,-1 DONE, COUNT THIS WORD.
*
02744 0500 00 0 12410 TYPX CLA =O55 GET A CARRIAGE RETURN.
02745 0520 00 0 02753 ZET TYPCR SHOULD WE TYPE IT.Q
02746 0074 00 4 03062 TSX TYO,4 YES, DO SO.
02747 0774 00 4 00000 TYPXC AXT ..,4 RESTORE THE INDEX REGISTERS.
02750 0774 00 1 00000 TYPXA AXT ..,1
02751 0774 00 2 00000 TYPXB AXT ..,2
02752 0020 00 4 00001 TRA 1,4 EXIT.
*
02753 0 00000 0 00000 TYPCR CARRIAGE RETURN NEEDED FLAG.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 58
SAVQL. SAVE THE INTERRUPT LEVEL SETTINGS.
02754 0634 00 4 02772 SAVQL SXA SAVQXC,4 SAVE THE XR'S.
02755 0634 00 1 02773 SXA SAVQXA,1
02756 0774 00 1 00000 AXT 0,1 RESET POINTER TO TABLE.
02757 SQT TSS SAVBRK GET THE NEXT SETTING.
02757 0074 00 4 12321 TSX SAVBRK,4 .002
02760 0100 00 0 02767 TZE SAVQ2 ZERO MEANS NO MORE.
02761 -0320 00 0 12421 ANA =O77777 GET RID OF GARBAGE.
02762 TEQ SQT,(L(INT)) IGNORE THIS SETTING IF IT IS OURS.
02762 -0340 00 0 02771 LAS L(INT) .002
02763 0020 00 0 02765 TRA *+2 .002
02764 0020 00 0 02757 TRA SQT .002
02765 0601 00 1 03000 STO QLEV-1,1 SAVE IN THE ARRAY.
02766 1 00001 1 02757 TXI SQT,1,1 BUMP POINTER AND GET THE NEXT LEVEL.
*
02767 0634 00 1 03005 SAVQ2 SXA NQL,1 SAVE THE INDEX OF ENTRIES.
02770 TSS SETBRK INSERT OUR ENTRY.
02770 0074 00 4 12322 TSX SETBRK,4 .002
02771 0 00000 0 01003 L(INT) INT ..
02772 0774 00 4 00000 SAVQXC AXT ..,4 RESTORE THE XR'S.
02773 0774 00 1 00000 SAVQXA AXT ..,1 ..
02774 0020 00 4 00001 TRA 1,4 EXIT.
*
03001 QLEV BES 4 STORAGE FOR THE INTERRUPT SETTINGS.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 59
RESQL. RESTORE THE INTERRUPT SETTINGS.
03001 0634 00 4 03025 RESQL SXA RESQXC,4 SAVE THE XR'S.
03002 0634 00 1 03026 SXA RESQXA,1 ..
03003 TSS SAVBRK REMOVE ALL INTERRUPT SETTINGS.
03003 0074 00 4 12321 TSX SAVBRK,4 .002
03004 -0100 00 0 03003 TNZ *-1 ..
03005 0774 00 1 00000 NQL AXT ..,1 GET NUMBER OF ENTRIES IN TABLE.
03006 -3 00002 1 03015 TXL GQL,1,2 IF .LE. 2, IT IS OK.
03007 TYPA 7,(IGNORING OLDEST INTERRUPT SETTING.. *)
03007 0074 00 4 02724 TSX TYPA,4 .002
03010 3 00000 0 12323 PAR ..092 .002
03011 FLDPRT (QLEV,1) ANNOUNCE THE LOCATION.
03011 0500 00 1 03001 CLA QLEV,1 .002
03012 0074 00 4 03236 TSX FLDPRT,4 .002
03013 0074 00 4 03120 TSX CR,4 THEN RETURN.
03014 0774 00 1 00002 AXT 2,1 GET COUNT OF 2.
03015 -3 00000 1 03023 GQL TXL SOQL,1,0 IF USER HAS NONE, SKIP SETTING.
03016 0500 00 1 03001 CLA QLEV,1 OTHERWISE, GET ONE.
03017 0601 00 0 03021 STO RQCW SET UP CONTROL WORD.
03020 TSS SETBRK GIVE IT TO THE SUPERVISOR.
03020 0074 00 4 12322 TSX SETBRK,4 .002
03021 0 00000 0 00000 RQCW .. ..
03022 2 00001 1 03015 TIX GQL,1,1 GET THE REST IF ANY.
03023 SOQL TSS SETBRK INSERT OUR OWN.
03023 0074 00 4 12322 TSX SETBRK,4 .002
03024 0 00000 0 01003 INT ..
03025 0774 00 4 00000 RESQXC AXT ..,4 RESTORE THE XR'S.
03026 0774 00 1 00000 RESQXA AXT ..,1 ..
03027 0020 00 4 00001 TRA 1,4 EXIT.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 60
NOINT. IGNORE INTERRUPT OCCURRING IN FAPDBG.
03030 -0625 00 0 03055 NOINT SETF INRUPT SET FLAG TO SHOW INTERRUPT OCCURRED.
03031 0600 00 0 03056 CLEAR INTOV ASSUME OVERFLOW LIGHT NOT ON.
03032 -0140 00 0 03034 TNO *+2 TEST IT.
03033 -0625 00 0 03056 SETF INTOV WAS ON, SET FLAG.
03034 0602 00 0 03057 SLW INTLA SAVE THE LOGICAL AC.
03035 0771 00 0 00002 ARS 2 SHIFT,
03036 0601 00 0 03060 STO INTSA SAVE THE SIGNED AC.
03037 0634 00 4 03053 SXA INTXC,4 SAVE XR 4.
03040 TSS GETBRK GET THE LOCATION OF THE INTERRUPT.
03040 0074 00 4 12235 TSX GETBRK,4 .002
03041 0621 00 0 03054 STA INTTRA SET UP THE TRA.
03042 TSS SETBRK SET UP OUR ENTRY AGAIN.
03042 0074 00 4 12322 TSX SETBRK,4 .002
03043 0 00000 0 01003 INT ..
03044 0500 00 0 03044 CLA * PREPARE TO TURN ON THE OVERFLOW LIGHT.
03045 0767 00 0 00044 ALS 36 TURN IT ON.
03046 0500 00 0 03060 CLA INTSA GET THE SIGNED AC.
03047 0767 00 0 00002 ALS 2 SHIFT IT INTO POSITION.
03050 -0501 00 0 03057 ORA INTLA INSERT THE LOGICAL AC.
03051 -0520 00 0 03056 NZT INTOV SHOULD THE OVERFLOW LIGHT BE ON.Q
03052 0140 00 0 03052 TOV * NO, TURN IT OFF.
03053 0774 00 4 00000 INTXC AXT ..,4 RESTORE XR 4.
03054 0020 00 0 00000 INTTRA TRA .. RETURN TO INTERRUPTED PROGRAM.
*
03055 0 00000 0 00000 INRUPT FLAG.. INTERRUPT HAS OCCURRED.
03056 0 00000 0 00000 INTOV FLAG.. OVERFLOW LIGHT WAS ON.
03057 0 00000 0 00000 INTLA STORAGE FOR THE LOGICAL AC.
03060 0 00000 0 00000 INTSA STORAGE FOR THE SIGNED AC.
03061 0 00000 0 00000 INUSR FLAG.. CONTROL IS WITH THE USER.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 61
TYO. SINGLE CHARACTER OUTPUT.
03062 0634 00 4 03115 TYO SXA OXRC,4 SAVE RETURN.
03063 -0600 00 0 03126 STQ MQ SAVE MQ.
03064 -0320 00 0 12416 ANA =O77 CONSIDER ONLY RIGHT CHARACTER.
03065 0600 00 0 03127 CLEAR PFLAG CLEAR PRINT INDICATOR.
03066 -0340 00 0 12410 LAS =O55 IS IT A CARR. RET.
03067 0020 00 0 03071 TRA *+2 NO, CONTINUE.
03070 -0625 00 0 03127 SETF PFLAG YES, SET PRINT INDICATOR.
03071 -0765 00 0 00006 LGR 6 SHIFT CHARACTER INTO MQ.
03072 -0500 00 0 03130 CAL TYOB GET THE WORD BEING ASSEMBLED.
03073 0140 00 0 03073 TOV * TURN OFF OVERFLOW LIGHT.
03074 -0763 00 0 00006 LGL 6 SHIFT IN NEW CHARACTER.
03075 -0140 00 0 03100 TNO TYOMIW IS THERE ANY MORE ROOM IN THIS WORD.Q
03076 0074 00 4 03131 TSX SWORD,4 NO, STORE IT IN BUFFER.
03077 -0500 00 0 12372 CAL =1 GET EMPTY WORD.
03100 0602 00 0 03130 TYOMIW SLW TYOB RESTORE THE WORD.
03101 -0520 00 0 03127 NZT PFLAG IF PRINT INDICATOR IS OFF,
03102 0020 00 0 03115 TRA OXRC EXIT.
03103 TEQ TYOMT,=1 IS WORD COMPLETELY EMPTY.Q
03103 -0340 00 0 12372 LAS =1 .002
03104 0020 00 0 03106 TRA *+2 .002
03105 0020 00 0 03112 TRA TYOMT .002
03106 0560 00 0 12470 LDQ =O575757575757 NO, GET NULL CHARACTERS.
03107 -0763 00 0 00006 LGL 6 SHIFT ONE INTO WORD.
03110 -0140 00 0 03107 TNO *-1 CONTINUE UNTIL WORD IS FULL.
03111 0074 00 4 03131 TSX SWORD,4 INSERT FILLED WORD INTO BUFFER.
03112 0074 00 4 03144 TYOMT TSX FWORD,4 FORCE OUT THE BUFFER.
03113 -0500 00 0 12372 CAL =1 GET COMPLETELY EMPTY WORD.
03114 0602 00 0 03130 SLW TYOB SAVE THE WORD.
03115 0774 00 4 00000 OXRC AXT ..,4 RESTORE RETURN.
03116 0560 00 0 03126 LDQ MQ AND MQ.
03117 0020 00 4 00001 TRA 1,4 AND EXIT.
*
* CR. TYPE A CARRIAGE RETURN.
03120 0500 00 0 12410 CR CLA =O55 GET THE CODE.
03121 0020 00 0 03062 TRA TYO GO TYPE IT.
*
* TAB. TYPE A TABULATION CHARACTER.
03122 0500 00 0 12414 TAB CLA =O72 GET THE CHARACTER CODE.
03123 0020 00 0 03062 TRA TYO GO TYPE IT.
*
* QUOTE. TYPE A SINGLE QUOTE (APOSTROPHE).
03124 0500 00 0 12401 QUOTE CLA =O14 GET THE CHARACTER CODE.
03125 0020 00 0 03062 TRA TYO GO TYPE IT.
*
03126 0 00000 0 00000 MQ
03127 0 00000 0 00000 PFLAG
03130 0 00000 0 00001 TYOB 1 WORD INITIALLY EMPTY.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 62
SWORD. INSERT WORD IN OUTPUT BUFFER.
03131 0634 00 4 03142 SWORD SXA SWXC,4 SAVE RETURN INDEX.
03132 0535 00 4 03155 LAC SWBUF,4 GET CURRENT BUFFER POINTER.
03133 1 77777 4 03134 TXI *+1,4,-1 BUMP TO POINT TO NEXT WORD.
03134 0636 00 4 03155 SCA SWBUF,4 REPLACE POINTER FOR NEXT TIME.
03135 0602 00 4 03155 SLW SWBUF,4 INSERT THIS WORD INTO BUFFER.
03136 3 77762 4 03142 TXH SWXC,4,-14 IS THERE ANY MORE ROOM IN BUFFER.Q
03137 TSS WRFLXA NO, TYPE OUT THE BUFFER.
03137 0074 00 4 12332 TSX WRFLXA,4 .002
03140 3 00016 0 03156 PAR SWBUF+1,,14 ..
03141 0600 00 0 03155 STZ SWBUF RESET CURRENT WORD INDEX.
03142 0774 00 4 00000 SWXC AXT ..,4 RESTORE RETURN INDEX.
03143 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 63
FWORD. FORCE OUT OUTPUT BUFFER.
03144 0634 00 4 03153 FWORD SXA FWXC,4 SAVE RETURN INDEX.
03145 0534 00 4 03155 LXA SWBUF,4 GET POINTER TO CURRENT WORD IN BUFFER.
03146 -3 00000 4 03153 TXL FWXC,4,0 IF EMPTY, IGNORE CALL.
03147 -0634 00 4 03151 SXD FWCW,4 IF NOT EMPTY, SET UP CONTROL WORD.
03150 TSS WRFLXA TYPE OUT THE BUFFER.
03150 0074 00 4 12332 TSX WRFLXA,4 .002
03151 3 00000 0 03156 FWCW PAR SWBUF+1,,.. ..
03152 0600 00 0 03155 STZ SWBUF RESET CURRENT WORD POINTER.
03153 0774 00 4 00000 FWXC AXT ..,4 RESTORE RETURN INDEX.
03154 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
03155 0 00000 0 00000 SWBUF OUTPUT BUFFER.
03156 BSS 14 ..
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 64
TYPE UP TO SIX CHARACTERS IN AC.
* BCDOUT. TYPE ALL SIX CHARACTERS IN AC.
03174 0600 00 0 03235 BCDOUT CLEAR BOIG RESET FLAG.. DON'T IGNORE BLANKS.
03175 0020 00 0 03177 TRA BOJN GO JOIN NAMOUT.
*
* NAMOUT. TYPE NON-BLANK CHARACTERS IN AC.
03176 -0625 00 0 03235 NAMOUT SETF BOIG SET FLAG.. IGNORE BLANKS.
03177 0634 00 4 03213 BOJN SXA BOXC,4 SAVE RETURN INDEX.
03200 0634 00 1 03214 SXA BOXA,1 ..
03201 0131 00 0 00000 XCA MOVE INPUT TO MQ.
03202 0774 00 1 00006 AXT 6,1 SET UP COUNT OF SIX CHARACTERS.
03203 -0754 00 0 00000 BOLP ZAC CLEAR THE AC.
03204 -0763 00 0 00006 LGL 6 GET THE NEXT CHARACTER.
03205 0520 00 0 03235 ZET BOIG SHOULD WE TEST IT FOR BLANK.Q
03206 TBL *+2 YES, WE SHOULD. IS IT.Q
03206 -0340 00 0 12411 LAS =H00000 .003
03207 0020 00 0 03211 TRA *+2 .003
03210 0020 00 0 03212 TRA *+2 .003
03211 0074 00 4 03062 TSX TYO,4 WE SHOULD TYPE IT. DO SO.
03212 2 00001 1 03203 TIX BOLP,1,1 COUNT THIS CHARACTER.
03213 0774 00 4 00000 BOXC AXT ..,4 RESTORE RETURN INDEX.
03214 0774 00 1 00000 BOXA AXT ..,1 ..
03215 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 65
BCDIN. BCD INPUT.
03216 0634 00 4 03233 BCDIN SXA BCDIX,4
03217 -0500 00 0 12475 CAL =H GET BLANKS.
03220 0602 00 0 07434 SLW BUFF AND PUT THEM IN ASSEMBLY REGISTER.
03221 0074 00 4 02126 BCDCH TSX TYI,4 GET A CHARACTER.
03222 TCR BCDPT IF CARRIAGE RETRUN, STOP.
03222 -0340 00 0 12410 LAS =O55 .003
03223 0020 00 0 03225 TRA *+2 .003
03224 0020 00 0 03232 TRA BCDPT .003
03225 -0765 00 0 00006 LGR 6 SHIFT AND SAVE THE CHARACTER.
03226 -0500 00 0 07434 CAL BUFF GET THE ASSEMBLY WORD.
03227 -0763 00 0 00006 LGL 6 SHIFT IN THE NEW CHARACTER.
03230 0602 00 0 07434 SLW BUFF AND RESTORE THE WORD.
03231 0020 00 0 03221 TRA BCDCH NOW TRY AGAIN.
*
03232 0560 00 0 07434 BCDPT LDQ BUFF DONE, GET THE WORD.
03233 0774 00 4 00000 BCDIX AXT ..,4
03234 0020 00 4 00001 TRA 1,4
*
03235 0 00000 0 00000 BOIG FLAG.. IGNORE BLANKS.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 66
FLDPRT. SYMBOLIC FIELD PRINTING ROUTINE.
* ADDS TO PRINT BUFFER THE SYMBOLIC VALUE OF A FIELD PRESENTED
* IN THE AC ADDRESS IN THE FORM.. SYMBOL+CORRECTION (OCTAL).
03236 0634 00 4 03261 FLDPRT SXA FLDXC,4
03237 0634 00 2 03262 SXA FLDXB,2
03240 -0320 00 0 12421 ANA =O77777 GET RID OF GARBAGE.
03241 0074 00 4 03626 TSX SYMBCD,4 GET SYMBOL (MQ) + CORRECTION (AC).
03242 0601 00 0 03265 STO FLDCOR SAVE CORRECTION.
03243 -0600 00 0 03264 STQ PLS SAVE THE SYMBOL.
03244 0131 00 0 00000 XCA MOVE IT TO THE AC.
03245 0074 00 4 03176 TSX NAMOUT,4 TYPE THE SYMBOL.
03246 -0500 00 0 03264 CAL PLS GET THE SYMBOL.
03247 TEQ FLDOCT,=H IS IT ALL BLANK.Q
03247 -0340 00 0 12475 LAS =H .002
03250 0020 00 0 03252 TRA *+2 .002
03251 0020 00 0 03257 TRA FLDOCT .002
03252 0500 00 0 03265 CLA FLDCOR NO, IS THE CORRECTION ZERO.Q
03253 0100 00 0 03261 TZE FLDXC YES, WE ARE DONE.
03254 -0120 00 0 03257 TMI FLDOCT NO, WILL OCTOUT TYPE A MINUS SIGN.Q
03255 TYO =H00000+ NO, WE NEED A PLUS SIGN.
03255 0500 00 0 12403 CLA =H00000+ .002
03256 0074 00 4 03062 TSX TYO,4 .002
03257 FLDOCT OCTOUT FLDCOR NOW TYPE THE 'CORRECTION' FACTOR.
03257 0500 00 0 03265 CLA FLDCOR .002
03260 0074 00 4 07377 TSX OCTOUT,4 .002
03261 0774 00 4 00000 FLDXC AXT ..,4
03262 0774 00 2 00000 FLDXB AXT ..,2
03263 0020 00 4 00001 TRA 1,4
*
03264 0 00000 0 00000 PLS STORAGE FOR THE SYMBOL.
03265 0 00000 0 00000 FLDCOR 'CORRECTION FACTOR' TO SYMBOL.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 67
SYMPRT. SYMBOLIC WORD PRINTING ROUTINE.
* SYMBOLIC WORD PRINT ROUTINE FOR FAP DEBUG II
* ENTER WITH WORD IN LOGICAL AC.
* PRINTS SYMBOLIC OP. CODE, ADDRESS, TAG, AND DECREMENT IN THE
* FORM.. ADD* FOO+100,4
03266 0634 00 4 03336 SYMPRT SXA SPXC,4
03267 0634 00 2 03335 SXA SPXB,2
03270 0601 00 0 03351 STO SPWD SAVE THE WORD.
03271 0600 00 0 03347 CLEAR DECFLD CLEAR INDICATOR.
03272 -0500 00 0 03351 CAL SPWD GET WORD (THIS TIME IN LOG. AC.).
03273 0074 00 4 11315 TSX OPBCD,4 GET THE BCD OP. CODE.
03274 0322 00 0 03351 ERA SPWD CLEAR BITS ACCOUNTED FOR.
03275 0602 00 0 01476 SLW WORD
03276 0131 00 0 00000 XCA MOVE SYMBOL TO AC.
03277 0074 00 4 03176 TSX NAMOUT,4 TYPE THE SYMBOL.
03300 -0500 00 0 01476 CAL WORD
03301 -0320 00 0 12431 ANA =O77777000000 SAVE DECREMENT.
03302 TEQ IND,=O60000000
03302 -0340 00 0 12423 LAS =O60000000 .002
03303 0020 00 0 03305 TRA *+2 .002
03304 0020 00 0 03340 TRA IND .002
03305 NOFLG TYO =H00000 PRINT BLANK.
03305 0500 00 0 12411 CLA =H00000 .002
03306 0074 00 4 03062 TSX TYO,4 .002
03307 FLDPRT WORD TYPE THE ADDRESS FIELD.
03307 0500 00 0 01476 CLA WORD .002
03310 0074 00 4 03236 TSX FLDPRT,4 .002
03311 -0500 00 0 01476 CAL WORD
03312 0622 00 0 03347 STD DECFLD
03313 0771 00 0 00017 ARS 15
03314 -0320 00 0 12374 ANA =7 SAVE TAG.
03315 0602 00 0 03350 SLW SPTAG
03316 -0100 00 0 03321 TNZ INSTAG IF TAG IS NOT ZERO, INSERT IT.
03317 -0520 00 0 03347 NZT DECFLD IF DECREMENT REQUIRED, INSERT TAG.
03320 0020 00 0 03336 TRA SPXC OTHERWISE BYPASS.
03321 INSTAG TYO (=H00000,)
03321 0500 00 0 12415 CLA =H00000, .002
03322 0074 00 4 03062 TSX TYO,4 .002
03323 FLDPRT SPTAG PRINT THE TAG.
03323 0500 00 0 03350 CLA SPTAG .002
03324 0074 00 4 03236 TSX FLDPRT,4 .002
03325 -0520 00 0 03347 NZT DECFLD
03326 0020 00 0 03336 TRA SPXC
03327 TYO (=H00000,)
03327 0500 00 0 12415 CLA =H00000, .002
03330 0074 00 4 03062 TSX TYO,4 .002
03331 -0500 00 0 01476 CAL WORD
03332 0771 00 0 00022 ARS 18
03333 -0320 00 0 12421 ANA =O77777
03334 0074 00 4 03236 TSX FLDPRT,4 PRINT THE DECREMENT FIELD.
03335 0774 00 2 00000 SPXB AXT ..,2
03336 0774 00 4 00000 SPXC AXT ..,4
03337 0020 00 4 00001 TRA 1,4
*
03340 -0500 00 0 03351 IND CAL SPWD GET THE ORIGINAL INPUT WORD.
03341 -0320 00 0 12450 ANA =O300000000000 MASK OFF THE PREFIX, LESS SIGN.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 68
SYMPRT. SYMBOLIC WORD PRINTING ROUTINE.
03342 -0100 00 0 03305 TNZ NOFLG IF EITHER BIT ON, DON'T TYPE *.
03343 TYO =H00000* BOTH BITS OFF, ASSUME TYPE B.
03343 0500 00 0 12407 CLA =H00000* .002
03344 0074 00 4 03062 TSX TYO,4 .002
03345 -0634 00 0 01476 ZSD WORD CLEAR DECREMENT.
03346 0020 00 0 03305 TRA NOFLG GO BACK.
*
03347 0 00000 0 00000 DECFLD DECREMENT FIELD OF THE WORD.
03350 0 00000 0 00000 SPTAG TAG FIELD OF THE OUTPUT WORD.
03351 0 00000 0 00000 SPWD THE ORIGINAL SRGUMENT.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 69
BCSCH. BREAK CHARACTER SEARCHING ROUTINE.
* SEARCHES INPUT BUFFER FOR ONE OF THE BREAK CHARACTERS. RETURNS
* WITH LAST SIX CHARACTERS (LEADING BLANKS) IN MQ, BREAK CHARACTER
* IN AC, SIGN MINUS(=1) IF ANY OF THE CHARACTERS SEEN WAS NOT
* NUMERIC (IE 0 - 7).
03352 0634 00 4 03400 BCSCH SXA BCEND,4
03353 0600 00 0 03407 CLEAR BCFLG CLEAR FLAG (INDICATE NUMERIC FIELD).
03354 -0500 00 0 12475 CAL =H
03355 0602 00 0 03410 SLW BCSYM SET WORD TO BLANKS.
03356 0074 00 4 02126 BCRET TSX TYI,4 GET THE NEXT CHARACTER.
03357 0774 00 4 00005 AXT BCTAB-BCORG,4 SEARCH BREAK CHARACTER TABLE.
03360 -0340 00 4 03407 BCLK LAS BCTAB,4
03361 0020 00 0 03363 TRA *+2
03362 0020 00 0 03374 TRA BCBRK LEAVE IF BREAK CHARACTER.
03363 2 00001 4 03360 TIX BCLK,4,1
03364 -0765 00 0 00006 LGR 6 NOT A BREAK CHARACTER.
03365 -0500 00 0 03410 CAL BCSYM
03366 -0763 00 0 00006 LGL 6 SHIFT INTO WORD.
03367 0602 00 0 03410 SLW BCSYM
03370 -0320 00 0 12413 ANA =O70 IF IT IS NUMERIC,
03371 0100 00 0 03356 TZE BCRET GO BACK.
03372 0602 00 0 03407 SLW BCFLG OTHERWISE SET FLAG AND.
03373 0020 00 0 03356 TRA BCRET THEN GO BACK.
*
03374 0760 00 0 00003 BCBRK SSP
03375 0520 00 0 03407 ZET BCFLG IF NOT NUMERIC,
03376 -0760 00 0 00003 SSM SET SIGN TO 1 AS INDICATOR.
03377 0560 00 0 03410 LDQ BCSYM PICK UP WORD IN MQ.
03400 0774 00 4 00000 BCEND AXT ..,4
03401 0020 00 4 00001 TRA 1,4 EXIT.
*
03402 000000000020 BCORG BCI 4,00000+00000-00000,00000
03403 000000000040
03404 000000000073
03405 000000000060
03406 +000000000055 OCT 55 CARRIAGE RETURN.
03407 BCTAB EQU * TABLE OF BREAK CHARACTERS.
03407 0 00000 0 00000 BCFLG FLAG.. FIELD NOT ENTIRELY NUMERIC.
03410 0 00000 0 00000 BCSYM ASSEMBLED SYMBOL.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 70
FLDEVL. FIELD EVALUATION ROUTINE.
* EVALUATE A FIELD OF SYMBOLS AND OCTAL NUMBERS SEPARATED BY +
* AND - SIGNS UNTIL IT ENCOUNTERS ANOTHER BREAK CHARACTER OR AN
* UNDEFINED SYMBOL.
* RETURNS WITH FIELD VALUE
* (IN 2'S COMPLEMENT FORM) IN MQ, BREAK CHARACTER IN AC.
03411 0634 00 4 03451 EVAL SXA EVEND,4 SAVE RETURN INDEX.
03412 0600 00 0 03466 STZ EVTOT CLEAR FIELD VALUE.
03413 0600 00 0 03467 CLEAR EVSGN ASSUME INITIAL PLUS SIGN.
03414 0020 00 0 03421 TRA EVGO USE INITIAL DATA IN AC - MQ.
*
03415 0634 00 4 03451 FLDEVL SXA EVEND,4 SAVE RETURN INDEX.
03416 0600 00 0 03466 STZ EVTOT
03417 0600 00 0 03467 CLEAR EVSGN
03420 0074 00 4 03352 EVRET TSX BCSCH,4 GET NEXT SYMBOL, BREAK CHARACTER.
03421 0602 00 0 03470 EVGO SLW EVBC SAVE BREAK CHARACTER.
03422 0120 00 0 03453 TPL EVNUM SYMBOL IS OCTAL NUMBER.
03423 -0130 00 0 00000 XCL
03424 0074 00 4 03471 TSX LADJ,4 ADJUST THE SYMBOL TO THE LEFT.
03425 0074 00 4 03663 TSX SYMBIN,4 LOOK UP THE VALUE OF THE SYMBOL.
03426 0760 00 0 00003 EVADD SSP
03427 0520 00 0 03467 ZET EVSGN IF NOT ZERO,
03430 -0760 00 0 00003 SSM SET SIGN MINUS.
03431 0400 00 0 03466 ADD EVTOT
03432 0601 00 0 03466 STO EVTOT
03433 -0500 00 0 03470 CAL EVBC
03434 TEQ EVPLS,=H00000+ IF PLUS SIGN, NEXT SYMBOL IS TO BE ADDED.
03434 -0340 00 0 12403 LAS =H00000+ .002
03435 0020 00 0 03437 TRA *+2 .002
03436 0020 00 0 03462 TRA EVPLS .002
03437 TEQ EVMIN,=H00000- IF MINUS, NEXT SYMBOL IS TO BE SUBTRACTED.
03437 -0340 00 0 12406 LAS =H00000- .002
03440 0020 00 0 03442 TRA *+2 .002
03441 0020 00 0 03464 TRA EVMIN .002
03442 0500 00 0 03466 CLA EVTOT WAS NOT + OR -.
03443 0120 00 0 03446 TPL *+3
03444 0737 00 4 00000 PAC ,4 IF NEGATIVE, COMPLEMENT IN INDEX REG.
03445 0754 00 4 00000 PXA ,4 RETURN TO AC.
03446 -0320 00 0 12421 ANA =O77777 MASK OFF 15 BITS.
03447 -0130 00 0 00000 XCL PUT IN MQ.
03450 -0500 00 0 03470 CAL EVBC PICK UP BREAK CHARACTER.
03451 0774 00 4 00000 EVEND AXT ..,4
03452 0020 00 4 00001 TRA 1,4
*
03453 -0773 00 0 00006 EVNUM RQL 6
03454 0774 00 4 00005 AXT 5,4 SET UP COUNTER.
03455 -0754 00 0 00000 ZAC CLEAR AC.
03456 -0773 00 0 00003 RQL 3
03457 -0763 00 0 00003 LGL 3 CONVERT NUMBER.
03460 2 00001 4 03456 TIX *-2,4,1
03461 0020 00 0 03426 TRA EVADD GO BACK.
*
03462 0600 00 0 03467 EVPLS CLEAR EVSGN
03463 0020 00 0 03420 TRA EVRET
*
03464 -0625 00 0 03467 EVMIN SETF EVSGN
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 71
FLDEVL. FIELD EVALUATION ROUTINE.
03465 0020 00 0 03420 TRA EVRET
*
03466 0 00000 0 00000 EVTOT ACCUMULATING VALUE OF FIELD.
03467 0 00000 0 00000 EVSGN FLAG.. THIS SUBFIELD IS NEGATIVE.
03470 0 00000 0 00000 EVBC BREAK CHARACTER AT END OF SUBFIELD.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 72
LADJ. LEFT ADJUSTING ROUTINE.
* SHIFTS A SYMBOL IN LOGICAL AC LEFT, INSERTING BLANKS ON THE RIGHT
* UNTIL THERE ARE NO BLANKS ON THE LEFT.
* A WORD OF ALL BLANKS IS IGNORED.
03471 0602 00 0 03512 LADJ SLW LAW SAVE WORD.
03472 TEQ (1,4),=H IF WORD IS BLANK, PREVENT LOOP.
03472 -0340 00 0 12475 LAS =H .002
03473 0020 00 0 03475 TRA *+2 .002
03474 0020 00 4 00001 TRA 1,4 .002
03475 0560 00 0 03512 LAR LDQ LAW
03476 -0763 00 0 00006 LGL 6 MOVE LEFT CHARACTER INTO AC.
03477 -0320 00 0 12416 ANA =O77 MASK IT OFF.
03500 TBL LASH WAS BLANK, GO SHIFT WORD.
03500 -0340 00 0 12411 LAS =H00000 .003
03501 0020 00 0 03503 TRA *+2 .003
03502 0020 00 0 03505 TRA LASH .003
03503 -0500 00 0 03512 CAL LAW PICK UP WORD.
03504 0020 00 4 00001 TRA 1,4 EXIT.
*
03505 -0500 00 0 03512 LASH CAL LAW PICK UP WORD.
03506 0560 00 0 12475 LDQ =H BLANKS.
03507 -0763 00 0 00006 LGL 6 SHIFT (LOSE LEFT BLANK).
03510 0602 00 0 03512 SLW LAW RESTORE.
03511 0020 00 0 03475 TRA LAR TRY AGAIN.
*
03512 0 00000 0 00000 LAW WORD BEING ADJUSTED.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 73
TABRD. READ SYMBOL TABLE FILE.
03513 0634 00 4 03614 TABRD SXA SRXC,4
03514 0634 00 2 03615 SXA SRXB,2
03515 0634 00 1 03616 SXA SRXA,1
03516 0602 00 0 07250 SLW TFILE SAVE THE PRIMARY FILE NAME.
03517 -0600 00 0 01573 STQ PORG SAVE THE PROGRAM ORIGIN.
03520 OPEN (=HR,TFILE,((=H SYMTB)),=-0,=-0,DERR) OPEN THE FILE.
03520 0074 00 4 12303 TSX OPEN,4 .004
03521 3 00000 0 12463 PAR =HR .004
03522 3 00000 0 07250 PAR TFILE .004
03523 3 00000 0 12476 PAR =H SYMTB .004
03524 3 00000 0 12452 PAR =-0 .004
03525 3 00000 0 12452 PAR =-0 .004
03526 3 00000 0 07451 PAR DERR .004
03527 BUFFER (TFILE,((=H SYMTB)),(BUF1,,BUFLTH),DERR) ..
03527 0074 00 4 12304 TSX BUFFER,4 .004
03530 3 00000 0 07250 PAR TFILE .004
03531 3 00000 0 12476 PAR =H SYMTB .004
03532 3 00660 0 07555 PAR BUF1,,BUFLTH .004
03533 3 00000 0 07451 PAR DERR .004
03534 SYMRD RDWAIT (TFILE,((=H SYMTB)),=0,(CARD,,14),SYMEOF,=-0,DERR) READ.
03534 0074 00 4 12305 TSX RDWAIT,4 .004
03535 3 00000 0 07250 PAR TFILE .004
03536 3 00000 0 12476 PAR =H SYMTB .004
03537 3 00000 0 12371 PAR =0 .004
03540 3 00016 0 02305 PAR CARD,,14 .004
03541 3 00000 0 03606 PAR SYMEOF .004
03542 3 00000 0 12452 PAR =-0 .004
03543 3 00000 0 07451 PAR DERR .004
03544 0774 00 1 00000 AXT 0,1 INITIALIZE CARD POINTER.
03545 -0500 00 1 02305 SYMADJ CAL CARD,1
03546 TEQ SYMEOF,=H EXIT IF NO MORE SYMBOLS.
03546 -0340 00 0 12475 LAS =H .002
03547 0020 00 0 03551 TRA *+2 .002
03550 0020 00 0 03606 TRA SYMEOF .002
03551 0560 00 1 02305 LDQ CARD,1 PICK UP NUMBER.
03552 -0754 00 0 00000 ZAC
03553 -0773 00 0 00006 RQL 6
03554 0774 00 4 00005 AXT 5,4
03555 -0773 00 0 00003 RQL 3 CONVERT NUMBER.
03556 -0763 00 0 00003 LGL 3
03557 2 00001 4 03555 TIX *-2,4,1
03560 0400 00 0 01573 ADD PORG RELOCATE THE SYMBOL VALUE.
03561 -0320 00 0 12421 ANA =O77777 ASSUME ALL ARE RELOCATABLE.
03562 0602 00 0 01476 SLW WORD SAVE VALUE.
03563 -0500 00 1 02306 CAL CARD+1,1 PICK UP SYMBOL.
03564 0560 00 1 02307 LDQ CARD+2,1
03565 -0763 00 0 00022 LGL 18 SHIFT SYMBOL INTO 1 WORD.
03566 0602 00 0 03620 SLW SFF SAVE SYMBOL IN CASE OF FULL TABLE.
03567 0560 00 0 01476 LDQ WORD GET THE SYMBOL VALUE.
03570 0074 00 4 03704 TSX DEFINE,4 TRY TO INSERT IT IN TABLE.
03571 0020 00 0 03575 TRA SYMFUL FAILURE, NO MORE ROOM.
03572 1 77775 1 03573 TXI *+1,1,-3
03573 3 77764 1 03545 TXH SYMADJ,1,-12
03574 0020 00 0 03534 TRA SYMRD GET NEXT CARD.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 74
TABRD. READ SYMBOL TABLE FILE.
03575 SYMFUL TYPA 7,(TABLE FULL, FIRST SYMBOL NOT INSERTED IS *)
03575 0074 00 4 02724 TSX TYPA,4 .002
03576 3 00000 0 12333 PAR ..123 .002
03577 0074 00 4 03124 TSX QUOTE,4 TYPE THE LEFT QUOTES.
03600 NAMOUT SFF TYPE THE SYMBOL.
03600 0500 00 0 03620 CLA SFF .002
03601 0074 00 4 03176 TSX NAMOUT,4 .002
03602 0074 00 4 03124 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
03603 TYO =H00000. PUNCTUATE THE SENTENCE.
03603 0500 00 0 12405 CLA =H00000. .002
03604 0074 00 4 03062 TSX TYO,4 .002
03605 0074 00 4 03120 TSX CR,4 RETURN THE CARRIAGE.
03606 SYMEOF CLOSE (TFILE,((=H SYMTB)),DERR) CLOSE THE FILE, READING DONE.
03606 0074 00 4 12306 TSX CLOSE,4 .004
03607 3 00000 0 07250 PAR TFILE .004
03610 3 00000 0 12476 PAR =H SYMTB .004
03611 3 00000 0 07451 PAR DERR .004
03612 TDONE TYPE 3,(SYMBOLS LOADED.*)
03612 0074 00 4 02722 TSX TYPE,4 .002
03613 3 00000 0 12342 PAR ..130 .002
03614 0774 00 4 00000 SRXC AXT ..,4
03615 0774 00 2 00000 SRXB AXT ..,2
03616 0774 00 1 00000 SRXA AXT ..,1
03617 0020 00 4 00001 TRA 1,4
*
03620 0 00000 0 00000 SFF STORAGE FOR SYMBOL WHICH DIDN'T MAKE IT.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 75
KILTAB. EMPTY SYMBOL TABLE OF ALL BUT OUR SYMBOLS.
03621 0634 00 4 03624 KILTAB SXA KXR,4
03622 0774 00 4 00030 AXT SYMEND-SYMTAB+2,4 RESET INDEX OF ENTRIES IN TABLE.
03623 0634 00 4 03703 SXA SYMLTH,4
03624 0774 00 4 00000 KXR AXT ..,4
03625 0020 00 4 00001 TRA 1,4
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 76
SYMBCD. GET BEST SYMBOL, CORRECTION, GIVEN VALUE.
03626 0634 00 4 03655 SYMBCD SXA SCHEND,4 ENTER W/ VALUE IN AC (ADDRESS).
03627 -0320 00 0 12421 ANA =O77777 MASK AWAY GARBAGE.
03630 0601 00 0 03657 STO SYMVAL SAVE AS ORIGINAL ARGUMENT.
03631 0601 00 0 03661 STO SYMCOR SAVE AS BEST CORRECTION FACTOR.
03632 0601 00 0 03662 STO SYMABS SAVE AS .ABS.(BEST FACTOR).
03633 0534 00 4 03703 LXA SYMLTH,4 GET NUMBER OF ENTRIES IN SYMBOL TABLE.
03634 -0500 00 0 12475 CAL =H
03635 0602 00 0 03660 SLW SYMBOL
03636 -2 00002 4 03653 SCHLOP TNX SBCF,4,2
03637 0500 00 0 03657 CLA SYMVAL
03640 0402 00 4 07251 SUB SYMEND+1,4
03641 -0340 00 0 03662 LAS SYMABS IS MAGNITUDE SMALLER THAN 'BEST' MAGNITUDE.
03642 0020 00 0 03636 TRA SCHLOP
03643 0761 00 0 00000 NOP
03644 0100 00 0 03646 TZE SBOK IF CORRECTION ZERO, DON'T CHECK SYMBOL.
03645 -3 00026 4 03636 TXL SCHLOP,4,SYMEND-SYMTAB NO, DON'T USE OUR SYMBOL.
03646 0601 00 0 03661 SBOK STO SYMCOR BEST SO FAR.
03647 0602 00 0 03662 SLW SYMABS SAVE ABSOLUTE VALUE OF DIFFERENCE.
03650 -0500 00 4 07250 CAL SYMEND,4
03651 0602 00 0 03660 SLW SYMBOL
03652 0020 00 0 03636 TRA SCHLOP
*
03653 0560 00 0 03660 SBCF LDQ SYMBOL
03654 0500 00 0 03661 CLA SYMCOR
03655 0774 00 4 00000 SCHEND AXT ..,4
03656 0020 00 4 00001 TRA 1,4
*
03657 0 00000 0 00000 SYMVAL VALUE BEING SEARCHED FOR.
03660 0 00000 0 00000 SYMBOL 'BEST' SYMBOL SO FAR.
03661 0 00000 0 00000 SYMCOR CORRECTION NECESSARY FOR THIS SYMBOL.
03662 0 00000 0 00000 SYMABS .ABS.(SYMCOR).
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 77
SYMBIN. GET VALUE OF SYMBOL, GIVEN BCD CODE.
03663 0634 00 4 03673 SYMBIN SXA SBXR,4 SAVE RETURN.
03664 0534 00 4 03703 LXA SYMLTH,4 SET UP COUNTER.
03665 -2 00002 4 03675 SBRET TNX NOSYM,4,2 HAVE WE DONE YET.Q
03666 TNE SBRET,(SYMEND,4) IF NOT THIS SYMBOL, TRY THE NEXT.
03666 -0340 00 4 07250 LAS SYMEND,4 .003
03667 0020 00 0 03671 TRA *+2 .003
03670 0020 00 0 03672 TRA *+2 .003
03671 0020 00 0 03665 TRA SBRET .002
03672 -0500 00 4 07251 SBFND CAL SYMEND+1,4 PICK UP VALUE.
03673 0774 00 4 00000 SBXR AXT ..,4
03674 0020 00 4 00001 TRA 1,4 RETURN W/ SYMBOL VALUE.
*
03675 NOSYM TNE UNDEF,=H* IS THE SYMBOL '*', FOR THIS LOCATION.
03675 -0340 00 0 12466 LAS =H* .003
03676 0020 00 0 03700 TRA *+2 .003
03677 0020 00 0 03701 TRA *+2 .003
03700 0020 00 0 01463 TRA UNDEF .002
03701 -0500 00 0 00230 SBPOI CAL LOC GET THE CURRENT LOCATION.
03702 0020 00 0 03673 TRA SBXR
*
03703 0 00000 0 00030 SYMLTH SYMEND-SYMTAB+2 SO THAT PERMANENT SYMS ARE DEFINED.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 78
DEFINE. INSERT NEW SYMBOL, VALUE INTO TABLE.
03704 0634 00 4 03737 DEFINE SXA DFXC,4 ENTER TO DEFINE SYMBOL.
03705 0534 00 4 03703 LXA SYMLTH,4 SET UP.
03706 -2 00002 4 03731 DEFRET TNX DEFNO,4,2 SEARCH SYMBOL TABLE.
03707 TNE DEFRET,(SYMEND,4) IS THIS THE ONE.Q
03707 -0340 00 4 07250 LAS SYMEND,4 .003
03710 0020 00 0 03712 TRA *+2 .003
03711 0020 00 0 03713 TRA *+2 .003
03712 0020 00 0 03706 TRA DEFRET .002
03713 -3 00026 4 03716 DEFYES TXL DEFOOP,4,SYMEND-SYMTAB DON'T CHANGE OUR SYMBOLS.
03714 -0600 00 4 07251 STQ SYMEND+1,4 PUT VALUE IN TABLE.
03715 0020 00 0 03737 TRA DFXC
*
03716 0602 00 0 03730 DEFOOP SLW DOBS SAVE THE BAD SYMBOL.
03717 TYPA 7,(ATTEMPT TO REDEFINE INTERNAL SYMBOL *)
03717 0074 00 4 02724 TSX TYPA,4 .002
03720 3 00000 0 12345 PAR ..131 .002
03721 0074 00 4 03124 TSX QUOTE,4 TYPE THE LEFT QUOTES.
03722 NAMOUT DOBS TYPE THE SYMBOL.
03722 0500 00 0 03730 CLA DOBS .002
03723 0074 00 4 03176 TSX NAMOUT,4 .002
03724 0074 00 4 03124 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
03725 TYPE 2,( IGNORED.*)
03725 0074 00 4 02722 TSX TYPE,4 .002
03726 3 00000 0 12354 PAR ..132 .002
03727 0020 00 0 03737 TRA DFXC IGNORE THE ATTEMPT AT REDEFINITION.
*
03730 0 00000 0 00000 DOBS STORAGE FOR THE INTERNAL SYMBOL.
*
03731 0534 00 4 03703 DEFNO LXA SYMLTH,4
03732 3 03126 4 03741 TXH DEFFUL,4,SYMLNG+SYMEND-SYMTAB
03733 0602 00 4 07250 SLW SYMEND,4 STORE IN TABLE.
03734 -0600 00 4 07251 STQ SYMEND+1,4 PUT VALUE IN TABLE.
03735 1 00002 4 03736 TXI *+1,4,2 INCREASE LENGTH INDICATOR.
03736 0634 00 4 03703 SXA SYMLTH,4
03737 0774 00 4 00000 DFXC AXT ..,4 OK.
03740 0020 00 4 00002 TRA 2,4 EXIT TO OK LOC.
*
03741 0534 00 4 03737 DEFFUL LXA DFXC,4
03742 0020 00 4 00001 TRA 1,4
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 79
SAVMC. SAVE MACHINE CONDITIONS.
03743 0634 00 4 04026 SAVMC SXA SAVMX,4 SAVE RETURN.
03744 -0600 00 0 04117 STQ BMQ SAVE THE MQ.
03745 0604 00 0 04120 STI BSI SAVE THE SI.
03746 0634 00 1 04110 SXA BXA,1 SAVE XRS 1, 2, AND 3.
03747 0634 00 2 04111 SXA BXB,2
03750 0634 00 3 04113 SXA BX3,3 SAVE XR 3 FOR TESTING FOR XR MODE.
03751 0602 00 0 04104 SLW BAC SAVE THE AC.
03752 0771 00 0 00002 ARS 2 ..
03753 0601 00 0 04105 STO BQS ..
03754 -0500 00 0 00000 CAL 0 GET REGISTER 0.
03755 0602 00 0 04106 SLW B0 AND SAVE IT.
03756 -0500 00 0 00010 CAL 8 AND 8.
03757 0602 00 0 04107 SLW B8
03760 -0500 00 0 03772 CAL TTTR GET TRANSFER BACK HERE.
03761 0602 00 0 00010 SLW 8 PUT IN FPT LOCATION.
03762 0441 00 0 12422 LDI =O10001111 GET PRESET STATUS WORD.
03763 0760 00 0 00012 DCT EXAMINE THE DIVIDE CHECK LIGHT.
03764 -0055 00 000001 SIL 1 IF ON, SET ITS BIT.
03765 -0140 00 0 03767 TNO *+2 EXAMINE THE AC OVERFLOW LIGHT.
03766 0055 00 100000 SIR 100000 IF ON, SET ITS BIT.
03767 0500 00 0 12522 CLA =O777777777777
03770 0300 00 0 12522 FAD =O777777777777 SET OFF F.P. TRAP.
03771 -0057 00 000010 RIL 10 IF HERE, FPT OFF, GET ZERO.
03772 0021 00 0 03773 TTTR TTR *+1 FPT TTR.
03773 TSS ((EFTM)) TURN ON F.P. TRAP MODE.
03773 0074 00 4 12356 TSX (EFTM),4 .002
03774 0774 00 1 00000 AXT 0,1 SET UP.
03775 0774 00 3 77777 AXT -1,3 AND.
03776 -3 00000 1 04002 TXL 7XRS,1,0 TRANSFER IF NOT IN MULT. TAG MODE.
03777 0055 00 010000 SIR 10000 IN MULT. TAGGING MODE, SO MARK IT.
04000 0760 00 0 00016 LMTM LEAVE IT SO XRS CAN BE SAVED.
04001 0634 00 3 04113 SXA BX3,3 NOW SAVE XR 3.
04002 0634 00 5 04114 7XRS SXA BX5,5 SAVE XRS 5, 6, AND 7.
04003 0634 00 6 04115 SXA BX6,6
04004 0634 00 7 04116 SXA BX7,7
04005 TSS SETBCD SET 6-BIT MODE
04005 0074 00 4 12357 TSX SETBCD,4 .002
04006 0100 00 0 04010 TZE *+2 WAS IT 12-BIT BEFORE .Q.
04007 -0055 00 000100 SIL 100 YES, SO REMEMBER MODE.
04010 -0760 00 0 00141 SLT 1 EXAMINE S.L. 1.
04011 0057 00 001000 RIR 1000 IF OFF, RESET ITS BIT.
04012 -0760 00 0 00142 SLT 2 DO THE SAME W/ EACH S.L.
04013 0057 00 000100 RIR 100 ..
04014 -0760 00 0 00143 SLT 3
04015 0057 00 000010 RIR 10 ..
04016 -0760 00 0 00144 SLT 4
04017 0057 00 000001 RIR 1 ..
04020 0604 00 0 04103 STI BLS SAVE THE STATUS WORD.
04021 -0500 00 0 04106 CAL B0 RESTORE 0 AND 8.
04022 0602 00 0 00000 SLW 0 IN CASE THE USER WANTS TO LOOK.
04023 -0500 00 0 04107 CAL B8
04024 0602 00 0 00010 SLW 8
04025 0074 00 4 02754 TSX SAVQL,4 SAVE THE INTERRUPT SETTINGS.
04026 0774 00 4 00000 SAVMX AXT ..,4 RESTORE RETURN.
04027 0020 00 4 00001 TRA 1,4 AND EXIT.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 80
SAVMC. SAVE MACHINE CONDITIONS.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 81
RESMC. RESTORE MACHINE CONDITIONS.
04030 1 77777 4 04031 RESMC TXI *+1,4,-1 MOVE RETURN POINTER TO NEXT LOC.
04031 0636 00 4 04102 SCA RESMX,4 PUT ITS COMPLEMENT IN THE EXIT TRA.
04032 0074 00 4 03001 TSX RESQL,4 RESTORE THE INTERRUPT SETTINGS.
04033 0500 00 0 04033 CLA * GET NON-ZERO AC.
04034 0221 00 0 12371 DVP =0 TURN ON THE DIVIDE CHECK LIGHT.
04035 0441 00 0 04103 LDI BLS GET THE LIGHTS, INDICATORS STATUS WORD.
04036 TSS SETBCD SET 6-BIT MODE
04036 0074 00 4 12357 TSX SETBCD,4 .002
04037 -0054 00 000100 LFT 100 SHOULD WE BE IN 12-BIT MODE .Q.
04040 TSS SETFUL YES, SO SET IT.
04040 0074 00 4 12360 TSX SETFUL,4 .002
04041 TSS ((LFTM)) TURN OFF F.P. TRAP MODE.
04041 0074 00 4 12361 TSX (LFTM),4 .002
04042 -0054 00 000010 LFT 10 UNLESS ITS BIT IS ON.
04043 TSS ((EFTM)) IF SO, TURN IT BACK ON.
04043 0074 00 4 12356 TSX (EFTM),4 .002
04044 -0056 00 000001 LNT 1 EXAMINE THE BIT.
04045 0760 00 0 00012 DCT IF OFF, TURN OFF THE D.C. LIGHT.
04046 0500 00 0 04046 CLA * PREPARE TO
04047 0767 00 0 00044 ALS 36 TURN ON OVERFLOW LIGHT.
04050 0760 00 0 00016 LMTM TURN OFF M.T. MODE.
04051 0534 00 7 04116 LXA BX7,7 RESTORE ALL THE XR'S (EVEN XR 4).
04052 0534 00 6 04115 LXA BX6,6
04053 0534 00 5 04114 LXA BX5,5
04054 0534 00 3 04113 LXA BX3,3
04055 0534 00 4 04112 LXA BXC,4
04056 0534 00 2 04111 LXA BXB,2
04057 0534 00 1 04110 LXA BXA,1
04060 0054 00 010000 RFT 10000 UNLESS ITS BIT IS ON.
04061 -0760 00 0 00016 EMTM IN WHICH CASE, TURN IT BACK ON.
04062 0760 00 0 00140 SLF TURN OFF ALL S.L.'S.
04063 0054 00 001000 RFT 1000 IF INDICATOR IS ON,
04064 0760 00 0 00141 SLN 1 TURN ON ITS S.L.
04065 0054 00 000100 RFT 100 AND PROCEED FOR ALL THE OTHER S.L.'S.
04066 0760 00 0 00142 SLN 2
04067 0054 00 000010 RFT 10 ..
04070 0760 00 0 00143 SLN 3
04071 0054 00 000001 RFT 1 ..
04072 0760 00 0 00144 SLN 4
04073 0500 00 0 04105 CLA BQS RESTORE THE AC.
04074 0767 00 0 00002 ALS 2 ..
04075 -0501 00 0 04104 ORA BAC ..
04076 0056 00 100000 RNT 100000 TEST THE OVERFLOW STATUS.
04077 0140 00 0 04077 TOV * IF OFF, TURN OFF THE OVF LIGHT.
04100 0560 00 0 04117 LDQ BMQ RESTORE THE MQ.
04101 0441 00 0 04120 LDI BSI RESTORE THE SI.
04102 0020 00 0 00000 RESMX TRA .. AND EXIT.
*
04103 0 00000 0 00000 BLS LIGHTS, SWITCHES STATUS WORD.
* THE 12 OCTAL DIGITS OF BLS (OR $LS) ARE
* EACH ASSOCIATED WITH A MACHINE INDICATOR,
* AS SHOWN IN THE FOLLOWING TABLE.
* IF THE DIGIT = 1, THE INDICATOR IS ON.
* IF THE DIGIT = 0, THE INDICATOR IS OFF.
* NO OTHER DIGITS SHOULD APPEAR.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 82
RESMC. RESTORE MACHINE CONDITIONS.
* 1. UNASSIGNED.
* 2. UNASSIGNED.
* 3. UNASSIGNED.
* 4. 6-BIT, 12-BIT MODE SWITCH.
* 5. FLOATING POINT TRAP MODE.
* 6. DIVIDE CHECK LIGHT.
* 7. AC OVERFLOW LIGHT.
* 8. MULTIPLE TAG (3 XR'S) LIGHT.
* 9. SENSE LIGHT 1.
* 10. SENSE LIGHT 2.
* 11. SENSE LIGHT 3.
* 12. SENSE LIGHT 4.
04104 0 00000 0 00000 BAC LOGICAL AC.
04105 0 00000 0 00000 BQS (SIGNED AC) .RS. 2.
04106 0 00000 0 00000 B0 REGISTER 0.
04107 0 00000 0 00000 B8 8
04110 0 00000 0 00000 BXA XR 1.
04111 0 00000 0 00000 BXB XR 2.
04112 0 00000 0 00000 BXC XR 4.
04113 0 00000 0 00000 BX3 XR 3.
04114 0 00000 0 00000 BX5 XR 5.
04115 0 00000 0 00000 BX6 XR 6.
04116 0 00000 0 00000 BX7 XR 7.
04117 0 00000 0 00000 BMQ MQ.
04120 0 00000 0 00000 BSI THE S.I.
04121 0 00000 0 00000 BIC THE USER'S ILC.
*
03100 SYMLNG EQU 1600 MAKE ROOM FOR 800 SYMBOLS.
07222 SYMTAB BES SYMLNG TABLE OF USER'S SYMBOLS.
07222 533123606060 BCI 1,$IC THE USER'S ILC.
07223 0 00000 0 04121 BIC
07224 534362606060 BCI 1,$LS 'LIGHTS AND SWITCHES.'
07225 0 00000 0 04103 BLS
07226 536231606060 BCI 1,$SI THE SI.
07227 0 00000 0 04120 BSI
07230 534450606060 BCI 1,$MQ THE MQ.
07231 0 00000 0 04117 BMQ
07232 536701606060 BCI 1,$X1 XR 1.
07233 0 00000 0 04110 BXA
07234 536702606060 BCI 1,$X2 XR 2.
07235 0 00000 0 04111 BXB
07236 536703606060 BCI 1,$X3 XR 3.
07237 0 00000 0 04113 BX3
07240 536704606060 BCI 1,$X4 XR 4.
07241 0 00000 0 04112 BXC
07242 536705606060 BCI 1,$X5 XR 5.
07243 0 00000 0 04114 BX5
07244 536706606060 BCI 1,$X6 XR 6.
07245 0 00000 0 04115 BX6
07246 536707606060 BCI 1,$X7 XR 7.
07247 0 00000 0 04116 BX7
07250 SYMEND EQU * END OF SYMBOL TABLE.
*
07250 0 00000 0 00000 TFILE PRIMARY FILE NAME.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 83
RESXR. RESTORE INDEX REGISTERS AND TAG MODE.
07251 1 77777 4 07252 RESXR TXI *+1,4,-1 COMPUTE -(RETURN ADDRESS).
07252 0636 00 4 07270 SCA RXC,4 SET UP RETURN TRANSFER.
07253 0604 00 0 07271 STI RXSI SAVE THE SI.
07254 0760 00 0 00016 LMTM GET ALL XR'S.
07255 0534 00 7 04116 LXA BX7,7 RESTORE ALL THEIR CONTENTS.
07256 0534 00 6 04115 LXA BX6,6 ..
07257 0534 00 5 04114 LXA BX5,5 ..
07260 0534 00 3 04113 LXA BX3,3 ..
07261 0534 00 4 04112 LXA BXC,4 ..
07262 0534 00 2 04111 LXA BXB,2 ..
07263 0534 00 1 04110 LXA BXA,1 ..
07264 0441 00 0 04103 LDI BLS GET THE STATUS WORD.
07265 0054 00 010000 RFT 10000 CHECK THE TAG LIGHT.
07266 -0760 00 0 00016 EMTM ON, RESTORE 3 TAG MODE.
07267 0441 00 0 07271 LDI RXSI RESTORE THE SI.
07270 0020 00 0 00000 RXC TRA .. RETURN TO CALLER.
*
07271 0 00000 0 00000 RXSI STORAGE FOR THE SI.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 84
FLOOUT. FLOATING POINT OUTPUT ROUTINE.
07272 0634 00 4 07371 FLOOUT SXA FXC,4 SAVE XR'S.
07273 0634 00 2 07372 SXA FXB,2
07274 0634 00 1 07373 SXA FXA,1
07275 0601 00 0 07375 STO FNUM SAVE THE INPUT NUMBER.
07276 0131 00 0 00000 XCA MOVE IT TO THE MQ.
07277 -0500 00 0 12406 CAL =H00000- ASSUME NEGATIVE.
07300 0162 00 0 07302 TQP *+2 IF IT IS,
07301 0074 00 4 03062 TSX TYO,4 PRINT THE SIGN.
07302 0131 00 0 00000 XCA GET NUMBER BACK INTO THE AC.
07303 -0100 00 0 07313 TNZ REG IF NUMBER .E. ZERO, USE BRIEF FORM.
07304 -0754 00 0 00000 ZAC THEN PRINT A ZERO.
07305 0074 00 4 03062 TSX TYO,4
07306 TYO =H00000. THEN A PERIOD.
07306 0500 00 0 12405 CLA =H00000. .002
07307 0074 00 4 03062 TSX TYO,4 .002
07310 -0754 00 0 00000 ZAC THEN ANOTHER ZERO.
07311 0074 00 4 03062 TSX TYO,4
07312 0020 00 0 07371 TRA FXC THEN EXIT.
*
07313 0131 00 0 00000 REG XCA GET NUMBER INTO THE MQ.
07314 -0754 00 0 00000 ZAC CLEAR THE AC.
07315 0765 00 0 00000 LRS 0 MAKE MQ POSITIVE.
07316 0763 00 0 00010 LLS 8 GET EXPONENT INTO THE AC.
07317 0402 00 0 12417 SUB =128 NORMALIZE IT.
07320 0120 00 0 07322 TPL *+2 IF NEGATIVE,
07321 0402 00 0 12372 SUB =1 BIAS EXPONENT.
07322 0131 00 0 00000 XCA PLACE IT IN THE MQ.
07323 0204 14 0 12420 VLM =.30103B23,,12 CONVERT TO DECIMALS.
07324 0734 00 1 00000 PAX ,1 PLACE RESULT IN XR 1.
07325 0601 00 0 07376 STO XPNT SAVE EXPONENT.
07326 -0120 00 0 07333 TMI NEG GO TO MULTIPLY SECTION IF NEGATIVE.
07327 0500 00 0 07375 CLA FNUM GET THE NUMBER.
07330 0241 00 1 02120 FDP TEN,1 NORMALIZE IT.
07331 0131 00 0 00000 XCA MOVE TO THE AC.
07332 0020 00 0 07335 TRA NOR GO NORMALIZE.
*
07333 0560 00 0 07375 NEG LDQ FNUM GET THE NUMBER.
07334 0260 00 1 02120 FMP TEN,1 NORMALIZE IT.
07335 0760 00 0 00003 NOR SSP CHECK MAGNITUDE OF NUMBER.
07336 0560 00 0 12433 LDQ =O200777777777 COMPARE W/ ALMOST 1.0.
07337 0040 00 0 07345 TLQ SKIP IF .G. 1., SKIP.
07340 0131 00 0 00000 XCA PUT RESULT IN MQ.
07341 0500 00 0 07376 CLA XPNT ADJUST EXPONENT.
07342 0402 00 0 12372 SUB =1
07343 0601 00 0 07376 STO XPNT
07344 0260 00 0 12434 FMP =10. NORMALIZE.
07345 -0300 00 0 12440 SKIP UFA =O233000000000 GET INTEGER.
07346 0734 00 1 00000 PAX ,1 PUT IT IN XR 1.
07347 0763 00 0 00010 LLS 8 NORMAL FRACTION IN MQ.
07350 0754 00 1 00000 PXA ,1 GET THE DIGIT.
07351 0074 00 4 03062 TSX TYO,4 TYPE IT.
07352 TYO =H00000. TYPE A DECIMAL POINT.
07352 0500 00 0 12405 CLA =H00000. .002
07353 0074 00 4 03062 TSX TYO,4 .002
07354 0774 00 1 00010 AXT 8,1 SET UP FOR MAXIMUM OF 8 DIGITS.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 85
FLOOUT. FLOATING POINT OUTPUT ROUTINE.
07355 0131 00 0 00000 FRAC XCA MOVE THE REST OF THE NUMBER INTO THE AC.
07356 0100 00 0 07363 TZE FXP IF ZERO, GO PRINT THE EXPONENT.
07357 0131 00 0 00000 XCA OTHERWISE, MOVE IT BACK TO THE MQ.
07360 0200 00 0 12377 MPY =10 GET THE NEXT DIGIT.
07361 0074 00 4 03062 TSX TYO,4 TYPE IT.
07362 2 00001 1 07355 TIX FRAC,1,1 GO BACK FOR THE NEXT DIGIT IF ANY.
07363 -0520 00 0 07376 FXP NZT XPNT IS THE EXPONENT ZERO.Q
07364 0020 00 0 07371 TRA FXC YES, SKIP IT.
07365 TYO =H00000E TYPE THE 'E'.
07365 0500 00 0 12404 CLA =H00000E .002
07366 0074 00 4 03062 TSX TYO,4 .002
07367 INTOUT XPNT TYPE THE EXPONENT.
07367 0500 00 0 07376 CLA XPNT .002
07370 0074 00 4 07402 TSX INTOUT,4 .002
07371 0774 00 4 00000 FXC AXT ..,4 RESTORE THE XR'S.
07372 0774 00 2 00000 FXB AXT ..,2
07373 0774 00 1 00000 FXA AXT ..,1
07374 0020 00 4 00001 TRA 1,4 EXIT.
*
07375 0 00000 0 00000 FNUM STORAGE FOR THE NUMBER TO BE OUTPUT.
07376 0 00000 0 00000 XPNT STORAGE FOR THE EXPONENT.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 86
INTEGER (BASE 10 AND 8) OUTPUT.
* OCTOUT. OCTAL OUTPUT.
07377 0560 00 0 12375 OCTOUT LDQ =O10 BASE IS 8.
07400 0020 00 0 07403 TRA IJON GO JOIN INTOUT AND JNTOUT.
*
* DECOUT. INTEGER DECIMAL OUTPUT.
07401 0771 00 0 00022 DECOUT ARS 18 SHIFT DECREMENT INTEGER INTO ADDRESS.
07402 0560 00 0 12377 INTOUT LDQ =10 BASE IS 10.
07403 -0600 00 0 01673 IJON STQ BASE SAVE THE BASE.
07404 0634 00 4 07431 SXA IXC,4 SAVE RETURN INDEX.
07405 0634 00 2 07430 SXA IXB,2
07406 0601 00 0 07433 STO CQ SAVE THE INPUT WORD.
07407 0131 00 0 00000 XCA PREPARE TO OUTPUT SIGN.
07410 -0500 00 0 12406 CAL =H00000- GET A MINUS SIGN.
07411 0162 00 0 07413 TQP *+2 IF THE SIGN IS NEGATIVE,
07412 0074 00 4 03062 TSX TYO,4 PRINT THE SIGN.
07413 0774 00 2 00001 AXT 1,2 SET POINTER TO THE BEGINNING OF THE BUFFER.
07414 0600 00 0 07450 STZ BUFF+12 INSERT ZERO INTO BUFFER INITIALLY.
07415 0500 00 0 07433 INEXT CLA CQ GET THE (REMAINING) NUMBER.
07416 0100 00 0 07424 TZE IFIX IF ZERO, QUIT.
07417 0765 00 0 00043 LRS 35 IF NOT, SHIFT INTO MQ FOR DIVISION.
07420 0221 00 0 01673 DVP BASE GET NEXT DIGIT IN THE AC.
07421 -0600 00 0 07433 STQ CQ SAVE THE NEW NUMBER.
07422 0602 00 2 07451 SLW BUFF+13,2 SAVE THIS DIGIT.
07423 1 00001 2 07415 TXI INEXT,2,1 GO GET THE NEXT DIGIT.
*
07424 2 00001 2 07425 IFIX TIX *+1,2,1 BOUNCE OVER FIRST CHARACTER IF ANY.
07425 -0500 00 2 07451 IFOX CAL BUFF+13,2 GET THE CHARACTER TO BE TYPED.
07426 0074 00 4 03062 TSX TYO,4 TYPE IT.
07427 2 00001 2 07425 TIX IFOX,2,1 COUNT AND GET NEXT CHARACTER IF ANY.
07430 0774 00 2 00000 IXB AXT ..,2 RESTORE THE XR'S.
07431 0774 00 4 00000 IXC AXT ..,4
07432 0020 00 4 00001 TRA 1,4 EXIT.
*
07433 0 00000 0 00000 CQ STORAGE FOR THE WORD BEING CONVERTED.
*
07434 BUFF BSS 13 OUTPUT CHARACTER ARRAY.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 87
DERR. DISK ERROR DIAGNOSTIC ROUTINE.
07451 DERR IODIAG ((DIAG,,DILTH)) GET THE INFORMATION.
07451 0074 00 4 12362 TSX IODIAG,4 .004
07452 3 00006 0 07547 PAR DIAG,,DILTH .004
07453 -0500 00 0 07550 CAL DISUBR GET THE SUBROUTINE NAME.
07454 TEQ OPEN1,=HOPEN GO CHECK ERROR CODE IF IT IS 'OPEN'.
07454 -0340 00 0 12455 LAS =HOPEN .002
07455 0020 00 0 07457 TRA *+2 .002
07456 0020 00 0 07520 TRA OPEN1 .002
07457 NOPE BCDOUT =HERROR GIVE GENERAL COMMENT.
07457 0500 00 0 12443 CLA =HERROR .002
07460 0074 00 4 03174 TSX BCDOUT,4 .002
07461 OCTOUT DICODE TYPE THE ERROR CODE.
07461 0500 00 0 07551 CLA DICODE .002
07462 0074 00 4 07377 TSX OCTOUT,4 .002
07463 BCDOUT (=H FROM ) ..
07463 0500 00 0 12472 CLA =H FROM .002
07464 0074 00 4 03174 TSX BCDOUT,4 .002
07465 NAMOUT DISUBR TYPE THE SUBROUTINE NAME.
07465 0500 00 0 07550 CLA DISUBR .002
07466 0074 00 4 03176 TSX NAMOUT,4 .002
07467 TYPA 1,( FOR *) ..
07467 0074 00 4 02724 TSX TYPA,4 .002
07470 3 00000 0 12363 PAR ..133 .002
07471 0074 00 4 03124 TSX QUOTE,4 QUOTE THE FILE NAMES.
07472 NAMOUT DIN1 TYPE THE FILE NAMES.
07472 0500 00 0 07553 CLA DIN1 .002
07473 0074 00 4 03176 TSX NAMOUT,4 .002
07474 TYO =H00000 ..
07474 0500 00 0 12411 CLA =H00000 .002
07475 0074 00 4 03062 TSX TYO,4 .002
07476 NAMOUT DIN2 ..
07476 0500 00 0 07554 CLA DIN2 .002
07477 0074 00 4 03176 TSX NAMOUT,4 .002
07500 0074 00 4 03124 TSX QUOTE,4 ..
07501 TYO =H00000. TERMINATE THE SENTENCE.
07501 0500 00 0 12405 CLA =H00000. .002
07502 0074 00 4 03062 TSX TYO,4 .002
07503 0074 00 4 03120 TSX CR,4 RETURN THE CARRIAGE.
07504 -0500 00 0 07550 CAL DISUBR GET THE SUBROUTINE NAME AGAIN.
07505 TEQ OOPS,=HOPEN IGNORE IF 'OPEN'.
07505 -0340 00 0 12455 LAS =HOPEN .002
07506 0020 00 0 07510 TRA *+2 .002
07507 0020 00 0 01472 TRA OOPS .002
07510 TEQ OOPS,=HCLOSE OR IF 'CLOSE'.
07510 -0340 00 0 12442 LAS =HCLOSE .002
07511 0020 00 0 07513 TRA *+2 .002
07512 0020 00 0 01472 TRA OOPS .002
07513 CLOSE (DIN1,DIN2,OOPS) OTHERWISE, TRY TO CLOSE IT.
07513 0074 00 4 12306 TSX CLOSE,4 .004
07514 3 00000 0 07553 PAR DIN1 .004
07515 3 00000 0 07554 PAR DIN2 .004
07516 3 00000 0 01472 PAR OOPS .004
07517 0020 00 0 01472 TRA OOPS GO SET ERROR FLAG.
*
07520 -0500 00 0 07551 OPEN1 CAL DICODE GET THE ERROR CODE.
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 88
DERR. DISK ERROR DIAGNOSTIC ROUTINE.
07521 TEQ OPEN2,=12 IS IT 'FILE NOT FOUND'.Q
07521 -0340 00 0 12401 LAS =12 .002
07522 0020 00 0 07524 TRA *+2 .002
07523 0020 00 0 07532 TRA OPEN2 .002
07524 TNE NOPE,=6 NO, IS IT 'LINKED FILE NOT FOUND'.Q
07524 -0340 00 0 12373 LAS =6 .003
07525 0020 00 0 07527 TRA *+2 .003
07526 0020 00 0 07530 TRA *+2 .003
07527 0020 00 0 07457 TRA NOPE .002
07530 TYPA 2,(LINKED *) YES, START THE COMMENT.
07530 0074 00 4 02724 TSX TYPA,4 .002
07531 3 00000 0 12364 PAR ..140 .002
07532 OPEN2 TYPA 1,(FILE *) ..
07532 0074 00 4 02724 TSX TYPA,4 .002
07533 3 00000 0 12366 PAR ..141 .002
07534 0074 00 4 03124 TSX QUOTE,4 TYPE THE FILE NAMES.
07535 NAMOUT DIN1 ..
07535 0500 00 0 07553 CLA DIN1 .002
07536 0074 00 4 03176 TSX NAMOUT,4 .002
07537 TYO =H00000 ..
07537 0500 00 0 12411 CLA =H00000 .002
07540 0074 00 4 03062 TSX TYO,4 .002
07541 NAMOUT DIN2 ..
07541 0500 00 0 07554 CLA DIN2 .002
07542 0074 00 4 03176 TSX NAMOUT,4 .002
07543 0074 00 4 03124 TSX QUOTE,4 ..
07544 TYPE 2,( NOT FOUND.*) END THE COMMENT.
07544 0074 00 4 02722 TSX TYPE,4 .002
07545 3 00000 0 12367 PAR ..142 .002
07546 0020 00 0 01472 TRA OOPS GO SET ERROR FLAG.
*
07547 DIAG EQU * DISK DIAGNOSTIC INFORMATION ARRAY..
07547 0 00000 0 00000 DICALL CALLER'S LOCATION.
07550 0 00000 0 00000 DISUBR DISK SUBROUTINE NAME.
07551 0 00000 0 00000 DICODE ERROR CODE.
07552 0 00000 0 00000 DIOCOD I/O ERROR CODE.
07553 0 00000 0 00000 DIN1 FIRST NAME OF THE FILE.
07554 0 00000 0 00000 DIN2 SECOND NAME OF THE FILE.
00006 DILTH EQU *-DIAG LENGTH OF THE ARRAY.
*
00660 BUFLTH EQU 432 SIZE OF PRIMARY BUFFERS NEEDED.
07555 BUF1 BSS BUFLTH THE BUFFER FOR GENERAL USE.
10435 BUF2 BSS BUFLTH THE BUFFER FOR REQUEST FILES.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 89
OPBCD. GET BCD CODE, GIVEN BINARY VALUE.
11315 0634 00 4 11350 OPBCD SXA OPXR,4
11316 0600 00 0 11403 CLEAR FLAG
11317 -0320 00 0 12520 ANA =O777700007777 GET RID OF IRRELEVANT PARTS OF THE WORD.
11320 0074 00 4 11334 TSX OPSCH,4 SEARCH TABLE.
11321 0020 00 0 11332 TRA FND
11322 -0320 00 0 12517 ANA =O777700000000 GET RID OF ADDRESS.
11323 0074 00 4 11334 TSX OPSCH,4 TRY AGAIN.
11324 0020 00 0 11332 TRA FND
11325 0771 00 0 00040 ARS 32 RETURN IF NOT IN TABLE, USE PREFIX.
11326 -0320 00 0 12402 ANA =O16
11327 0734 00 4 00000 PAX ,4 SET INDEX.
11330 0767 00 0 00040 ALS 32 RESTORE AC.
11331 0560 00 4 12170 LDQ OPEND-2,4 PICK UP BCD OP. CODE.
11332 0534 00 4 11350 FND LXA OPXR,4
11333 0020 00 4 00001 TRA 1,4 RETURN.
*
11334 0634 00 4 11342 OPSCH SXA OSXR,4
11335 0774 00 4 00476 AXT OPEND-OPORG,4 SET UP COUNT.
11336 TEQ FNDIT,(OPEND+1,4) IS THIS THE ENTRY.Q
11336 -0340 00 4 12173 LAS OPEND+1,4 .002
11337 0020 00 0 11341 TRA *+2 .002
11340 0020 00 0 11344 TRA FNDIT .002
11341 2 00002 4 11336 TIX *-3,4,2
11342 0774 00 4 00000 OSXR AXT ..,4 NOT IN TABLE, EXIT.
11343 0020 00 4 00002 TRA 2,4
*
11344 0560 00 4 12172 FNDIT LDQ OPEND,4 PICK UP THE BCD CHARACTERS.
11345 0534 00 4 11342 LXA OSXR,4
11346 0020 00 4 00001 TRA 1,4 EXIT W/ BINARY IN AC, BCD IN MQ.
*
11347 0 00000 0 00000 OPCDE BCD OP CODE BEING LOOKED UP.
11350 0 00000 0 00000 OPXR STORAGE FOR XR 4 (OPBIN).
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 90
OPBIN. GET BINARY VALUE, GIVEN BCD CODE.
11351 0634 00 4 11350 OPBIN SXA OPXR,4
11352 0602 00 0 11347 SLW OPCDE
11353 -0320 00 0 12416 ANA =O77
11354 TEQ OPFLG,=H00000* TAKE CARE OF INDIRECT FLAG.
11354 -0340 00 0 12407 LAS =H00000* .002
11355 0020 00 0 11357 TRA *+2 .002
11356 0020 00 0 11374 TRA OPFLG .002
11357 0600 00 0 11403 STZ FLAG NOT INDIRECT. RESET FLAG.
11360 -0500 00 0 11347 CAL OPCDE
11361 0074 00 4 03471 OPRET TSX LADJ,4 ADJUST THE CODE TO THE LEFT.
11362 0774 00 4 00566 AXT OPEND-OPPRFX,4 SET UP COUNTER.
11363 OPLK TEQ OPFND,(OPEND,4) IS THIS IT.Q
11363 -0340 00 4 12172 LAS OPEND,4 .002
11364 0020 00 0 11366 TRA *+2 .002
11365 0020 00 0 11370 TRA OPFND .002
11366 2 00002 4 11363 TIX OPLK,4,2 TRY NEXT WORD.
11367 0020 00 0 01463 TRA UNDEF COMPLAIN ABOUT UNDEFINED SYMBOL.
*
11370 -0500 00 4 12173 OPFND CAL OPEND+1,4 PICK UP CODE.
11371 -0501 00 0 11403 ORA FLAG
11372 0534 00 4 11350 LXA OPXR,4
11373 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
11374 -0500 00 0 12423 OPFLG CAL =O60000000
11375 0602 00 0 11403 SLW FLAG
11376 0560 00 0 11347 LDQ OPCDE GET RID OF '*'.
11377 -0500 00 0 12475 CAL =H
11400 -0765 00 0 00006 LGR 6 SHIFT OFF '*,' ENTER BLANK.
11401 -0130 00 0 00000 XCL
11402 0020 00 0 11361 TRA OPRET
*
11403 0 00000 0 00000 FLAG INDIRECT FLAG.
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 91
TABLE OF OPERATION CODES.
RHC MACRO A
IRP A
GEN ,BCI,(1,A) GENERATE BCD CODE.
GEN ,A,(0,0,0) GENERATE BINARY VALUE.
IRP
END RHC
*
-0 20734 0 05544 PMC OPSYN SHOW *REVIVE DEFINITION OF PMC TO PRINT TABLE.
*
* BCD TO BINARY OPERATION CODE TABLE STARTS HERE.
11404 OPPRFX EQU *
11404 RHC ...
11404 333333606060 BCI 1,... .002
11405 0 00000 0 00000 ... 0,0,0 .002
11406 RHC PON
11406 474645606060 BCI 1,PON .002
11407 1 00000 0 00000 PON 0,0,0 .002
11410 RHC ONE
11410 464525606060 BCI 1,ONE .002
11411 1 00000 0 00000 ONE 0,0,0 .002
11412 RHC PTW
11412 476366606060 BCI 1,PTW .002
11413 2 00000 0 00000 PTW 0,0,0 .002
11414 RHC BLK BLOCK.
11414 224342606060 BCI 1,BLK .002
11415 2 00000 0 00000 BLK 0,0,0 .002
11416 RHC TWO
11416 636646606060 BCI 1,TWO .002
11417 2 00000 0 00000 TWO 0,0,0 .002
11420 RHC PTH
11420 476330606060 BCI 1,PTH .002
11421 3 00000 0 00000 PTH 0,0,0 .002
11422 RHC (BRN,PAR) BRANCH NEVER, PARAMETER.
11422 225145606060 BCI 1,BRN .002
11423 3 00000 0 00000 BRN 0,0,0 .002
11424 472151606060 BCI 1,PAR .002
11425 3 00000 0 00000 PAR 0,0,0 .002
11426 RHC THREE
11426 633051252560 BCI 1,THREE .002
11427 3 00000 0 00000 THREE 0,0,0 .002
11430 RHC FOR
11430 264651606060 BCI 1,FOR .002
11431 -0 00000 0 00000 FOR 0,0,0 .002
11432 RHC FOUR
11432 264664516060 BCI 1,FOUR .002
11433 -0 00000 0 00000 FOUR 0,0,0 .002
11434 RHC MON
11434 444645606060 BCI 1,MON .002
11435 -1 00000 0 00000 MON 0,0,0 .002
11436 RHC FVE
11436 266525606060 BCI 1,FVE .002
11437 -1 00000 0 00000 FVE 0,0,0 .002
11440 RHC (FMT,IOP,ENDIO) I/O LIST PSEUDOINSTRUCTIONS.
11440 264463606060 BCI 1,FMT .002
11441 -1 00000 0 00000 FMT 0,0,0 .002
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 92
TABLE OF OPERATION CODES.
11442 314647606060 BCI 1,IOP .002
11443 -1 00000 0 00000 IOP 0,0,0 .002
11444 254524314660 BCI 1,ENDIO .002
11445 -1 00000 0 00000 ENDIO 0,0,0 .002
11446 RHC FIVE
11446 263165256060 BCI 1,FIVE .002
11447 -1 00000 0 00000 FIVE 0,0,0 .002
11450 RHC SIX
11450 623167606060 BCI 1,SIX .002
11451 -2 00000 0 00000 SIX 0,0,0 .002
11452 RHC MTW
11452 446366606060 BCI 1,MTW .002
11453 -2 00000 0 00000 MTW 0,0,0 .002
11454 RHC MTH
11454 446330606060 BCI 1,MTH .002
11455 -3 00000 0 00000 MTH 0,0,0 .002
11456 RHC BRA BRANCH.
11456 225121606060 BCI 1,BRA .002
11457 -3 00000 0 00000 BRA 0,0,0 .002
11460 RHC XIT FORTRAN'S NAME FOR 'TTR'.
11460 673163606060 BCI 1,XIT .002
11461 0021 00 0 00000 XIT 0,0,0 .002
11462 RHC (SETF,CLEAR) SET, CLEAR FLAG.
11462 622563266060 BCI 1,SETF .002
11463 -0625 00 0 00000 SETF 0,0,0 .002
11464 234325215160 BCI 1,CLEAR .002
11465 0600 00 0 00000 CLEAR 0,0,0 .002
11466 RHC (ZSA,ZSD,ZAC) ZERO ADDRESS, DECREMENT, AC.
11466 716221606060 BCI 1,ZSA .002
11467 0634 00 0 00000 ZSA 0,0,0 .002
11470 716224606060 BCI 1,ZSD .002
11471 -0634 00 0 00000 ZSD 0,0,0 .002
11472 712123606060 BCI 1,ZAC .002
11473 -0754 00 0 00000 ZAC 0,0,0 .002
* BINARY TO BCD OPERATION CODE TABLE STARTS HERE.
11474 OPORG RHC TRA
11474 635121606060 BCI 1,TRA .002
11475 0020 00 0 00000 TRA 0,0,0 .002
11476 RHC HTR
11476 306351606060 BCI 1,HTR .002
11477 0000 00 0 00000 HTR 0,0,0 .002
11500 RHC EMTM
11500 254463446060 BCI 1,EMTM .002
11501 -0760 00 0 00016 EMTM 0,0,0 .002
11502 RHC LMTM
11502 434463446060 BCI 1,LMTM .002
11503 0760 00 0 00016 LMTM 0,0,0 .002
11504 RHC PCA
11504 472321606060 BCI 1,PCA .002
11505 0756 00 0 00000 PCA 0,0,0 .002
11506 RHC PCD
11506 472324606060 BCI 1,PCD .002
11507 -0756 00 0 00000 PCD 0,0,0 .002
11510 RHC SCA
11510 622321606060 BCI 1,SCA .002
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 93
TABLE OF OPERATION CODES.
11511 0636 00 0 00000 SCA 0,0,0 .002
11512 RHC SCD
11512 622324606060 BCI 1,SCD .002
11513 -0636 00 0 00000 SCD 0,0,0 .002
11514 RHC DLD
11514 244324606060 BCI 1,DLD .002
11515 0443 00 0 00000 DLD 0,0,0 .002
11516 RHC DST
11516 246263606060 BCI 1,DST .002
11517 -0603 00 0 00000 DST 0,0,0 .002
11520 RHC DFAD
11520 242621246060 BCI 1,DFAD .002
11521 0301 00 0 00000 DFAD 0,0,0 .002
11522 RHC DUFA
11522 246426216060 BCI 1,DUFA .002
11523 -0301 00 0 00000 DUFA 0,0,0 .002
11524 RHC DFSB
11524 242662226060 BCI 1,DFSB .002
11525 0303 00 0 00000 DFSB 0,0,0 .002
11526 RHC DUFS
11526 246426626060 BCI 1,DUFS .002
11527 -0303 00 0 00000 DUFS 0,0,0 .002
11530 RHC DFAM
11530 242621446060 BCI 1,DFAM .002
11531 0305 00 0 00000 DFAM 0,0,0 .002
11532 RHC DUAM
11532 246421446060 BCI 1,DUAM .002
11533 -0305 00 0 00000 DUAM 0,0,0 .002
11534 RHC DFSM
11534 242662446060 BCI 1,DFSM .002
11535 0307 00 0 00000 DFSM 0,0,0 .002
11536 RHC DUSM
11536 246462446060 BCI 1,DUSM .002
11537 -0307 00 0 00000 DUSM 0,0,0 .002
11540 RHC DFMP
11540 242644476060 BCI 1,DFMP .002
11541 0261 00 0 00000 DFMP 0,0,0 .002
11542 RHC DUFM
11542 246426446060 BCI 1,DUFM .002
11543 -0261 00 0 00000 DUFM 0,0,0 .002
11544 RHC DFDH
11544 242624306060 BCI 1,DFDH .002
11545 -0240 00 0 00000 DFDH 0,0,0 .002
11546 RHC DFDP
11546 242624476060 BCI 1,DFDP .002
11547 -0241 00 0 00000 DFDP 0,0,0 .002
11550 RHC TTR
11550 636351606060 BCI 1,TTR .002
11551 0021 00 0 00000 TTR 0,0,0 .002
11552 RHC TLQ
11552 634350606060 BCI 1,TLQ .002
11553 0040 00 0 00000 TLQ 0,0,0 .002
11554 RHC IIA
11554 313121606060 BCI 1,IIA .002
11555 0041 00 0 00000 IIA 0,0,0 .002
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 94
TABLE OF OPERATION CODES.
11556 RHC TIO
11556 633146606060 BCI 1,TIO .002
11557 0042 00 0 00000 TIO 0,0,0 .002
11560 RHC OAI
11560 462131606060 BCI 1,OAI .002
11561 0043 00 0 00000 OAI 0,0,0 .002
11562 RHC PAI
11562 472131606060 BCI 1,PAI .002
11563 0044 00 0 00000 PAI 0,0,0 .002
11564 RHC TIF
11564 633126606060 BCI 1,TIF .002
11565 0046 00 0 00000 TIF 0,0,0 .002
11566 RHC IIR
11566 313151606060 BCI 1,IIR .002
F 11567 0051 00 000000 IIR 0,0,0 .002
11570 RHC RFT
11570 512663606060 BCI 1,RFT .002
F 11571 0054 00 000000 RFT 0,0,0 .002
11572 RHC SIR
11572 623151606060 BCI 1,SIR .002
F 11573 0055 00 000000 SIR 0,0,0 .002
11574 RHC RNT
11574 514563606060 BCI 1,RNT .002
F 11575 0056 00 000000 RNT 0,0,0 .002
11576 RHC RIR
11576 513151606060 BCI 1,RIR .002
F 11577 0057 00 000000 RIR 0,0,0 .002
11600 RHC TSX
11600 636267606060 BCI 1,TSX .002
11601 0074 00 0 00000 TSX 0,0,0 .002
11602 RHC TZE
11602 637125606060 BCI 1,TZE .002
11603 0100 00 0 00000 TZE 0,0,0 .002
11604 RHC TIA
11604 633121606060 BCI 1,TIA .002
11605 0101 00 0 00000 TIA 0,0,0 .002
11606 RHC CVR
11606 236551606060 BCI 1,CVR .002
11607 0114 00 0 00000 CVR 0,0,0 .002
11610 RHC TPL
11610 634743606060 BCI 1,TPL .002
11611 0120 00 0 00000 TPL 0,0,0 .002
11612 RHC XCA
11612 672321606060 BCI 1,XCA .002
11613 0131 00 0 00000 XCA 0,0,0 .002
11614 RHC TOV
11614 634665606060 BCI 1,TOV .002
11615 0140 00 0 00000 TOV 0,0,0 .002
11616 RHC TQO
11616 635046606060 BCI 1,TQO .002
11617 0161 00 0 00000 TQO 0,0,0 .002
11620 RHC TQP
11620 635047606060 BCI 1,TQP .002
11621 0162 00 0 00000 TQP 0,0,0 .002
11622 RHC MPY
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 95
TABLE OF OPERATION CODES.
11622 444770606060 BCI 1,MPY .002
11623 0200 00 0 00000 MPY 0,0,0 .002
11624 RHC VLM
11624 654344606060 BCI 1,VLM .002
11625 0204 00 0 00000 VLM 0,0,0 .002
11626 RHC DVH
11626 246530606060 BCI 1,DVH .002
11627 0220 00 0 00000 DVH 0,0,0 .002
11630 RHC DVP
11630 246547606060 BCI 1,DVP .002
11631 0221 00 0 00000 DVP 0,0,0 .002
11632 RHC VDH
11632 652430606060 BCI 1,VDH .002
11633 0224 00 0 00000 VDH 0,0,0 .002
11634 RHC VDP
11634 652447606060 BCI 1,VDP .002
11635 0225 00 0 00000 VDP 0,0,0 .002
11636 RHC FDH
11636 262430606060 BCI 1,FDH .002
11637 0240 00 0 00000 FDH 0,0,0 .002
11640 RHC FDP
11640 262447606060 BCI 1,FDP .002
11641 0241 00 0 00000 FDP 0,0,0 .002
11642 RHC FMP
11642 264447606060 BCI 1,FMP .002
11643 0260 00 0 00000 FMP 0,0,0 .002
11644 RHC FAD
11644 262124606060 BCI 1,FAD .002
11645 0300 00 0 00000 FAD 0,0,0 .002
11646 RHC FSB
11646 266222606060 BCI 1,FSB .002
11647 0302 00 0 00000 FSB 0,0,0 .002
11650 RHC FAM
11650 262144606060 BCI 1,FAM .002
11651 0304 00 0 00000 FAM 0,0,0 .002
11652 RHC FSM
11652 266244606060 BCI 1,FSM .002
11653 0306 00 0 00000 FSM 0,0,0 .002
11654 RHC ANS
11654 214562606060 BCI 1,ANS .002
11655 0320 00 0 00000 ANS 0,0,0 .002
11656 RHC ERA
11656 255121606060 BCI 1,ERA .002
11657 0322 00 0 00000 ERA 0,0,0 .002
11660 RHC CAS
11660 232162606060 BCI 1,CAS .002
11661 0340 00 0 00000 CAS 0,0,0 .002
11662 RHC ACL
11662 212343606060 BCI 1,ACL .002
11663 0361 00 0 00000 ACL 0,0,0 .002
11664 RHC ADD
11664 212424606060 BCI 1,ADD .002
11665 0400 00 0 00000 ADD 0,0,0 .002
11666 RHC ADM
11666 212444606060 BCI 1,ADM .002
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 96
TABLE OF OPERATION CODES.
11667 0401 00 0 00000 ADM 0,0,0 .002
11670 RHC SUB
11670 626422606060 BCI 1,SUB .002
11671 0402 00 0 00000 SUB 0,0,0 .002
11672 RHC HPR
11672 304751606060 BCI 1,HPR .002
11673 0420 00 0 00000 HPR 0,0,0 .002
11674 RHC IIS
11674 313162606060 BCI 1,IIS .002
11675 0440 00 0 00000 IIS 0,0,0 .002
11676 RHC LDI
11676 432431606060 BCI 1,LDI .002
11677 0441 00 0 00000 LDI 0,0,0 .002
11700 RHC OSI
11700 466231606060 BCI 1,OSI .002
11701 0442 00 0 00000 OSI 0,0,0 .002
11702 RHC OFT
11702 462663606060 BCI 1,OFT .002
11703 0444 00 0 00000 OFT 0,0,0 .002
11704 RHC RIS
11704 513162606060 BCI 1,RIS .002
11705 0445 00 0 00000 RIS 0,0,0 .002
11706 RHC ONT
11706 464563606060 BCI 1,ONT .002
11707 0446 00 0 00000 ONT 0,0,0 .002
11710 RHC CLA
11710 234321606060 BCI 1,CLA .002
11711 0500 00 0 00000 CLA 0,0,0 .002
11712 RHC CLS
11712 234362606060 BCI 1,CLS .002
11713 0502 00 0 00000 CLS 0,0,0 .002
11714 RHC ZET
11714 712563606060 BCI 1,ZET .002
11715 0520 00 0 00000 ZET 0,0,0 .002
11716 RHC XEC
11716 672523606060 BCI 1,XEC .002
11717 0522 00 0 00000 XEC 0,0,0 .002
11720 RHC LXA
11720 436721606060 BCI 1,LXA .002
11721 0534 00 0 00000 LXA 0,0,0 .002
11722 RHC LAC
11722 432123606060 BCI 1,LAC .002
11723 0535 00 0 00000 LAC 0,0,0 .002
11724 RHC LDQ
11724 432450606060 BCI 1,LDQ .002
11725 0560 00 0 00000 LDQ 0,0,0 .002
11726 RHC STZ
11726 626371606060 BCI 1,STZ .002
11727 0600 00 0 00000 STZ 0,0,0 .002
11730 RHC STO
11730 626346606060 BCI 1,STO .002
11731 0601 00 0 00000 STO 0,0,0 .002
11732 RHC SLW
11732 624366606060 BCI 1,SLW .002
11733 0602 00 0 00000 SLW 0,0,0 .002
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 97
TABLE OF OPERATION CODES.
11734 RHC STI
11734 626331606060 BCI 1,STI .002
11735 0604 00 0 00000 STI 0,0,0 .002
11736 RHC STD
11736 626324606060 BCI 1,STD .002
11737 0622 00 0 00000 STD 0,0,0 .002
11740 RHC STT
11740 626363606060 BCI 1,STT .002
11741 0625 00 0 00000 STT 0,0,0 .002
11742 RHC STA
11742 626321606060 BCI 1,STA .002
11743 0621 00 0 00000 STA 0,0,0 .002
11744 RHC STP
11744 626347606060 BCI 1,STP .002
11745 0630 00 0 00000 STP 0,0,0 .002
11746 RHC SXA
11746 626721606060 BCI 1,SXA .002
11747 0634 00 0 00000 SXA 0,0,0 .002
11750 RHC PAX
11750 472167606060 BCI 1,PAX .002
11751 0734 00 0 00000 PAX 0,0,0 .002
11752 RHC PAC
11752 472123606060 BCI 1,PAC .002
11753 0737 00 0 00000 PAC 0,0,0 .002
11754 RHC PXA
11754 476721606060 BCI 1,PXA .002
11755 0754 00 0 00000 PXA 0,0,0 .002
11756 RHC PSE FOLLOWING ARE THE 'EXTENDED' VERSIONS.
11756 476225606060 BCI 1,PSE .002
11757 0760 00 0 00000 PSE 0,0,0 .002
11760 RHC CLM
11760 234344606060 BCI 1,CLM .002
11761 0760 00 0 00000 CLM 0,0,0 .002
11762 RHC LBT
11762 432263606060 BCI 1,LBT .002
11763 0760 00 0 00001 LBT 0,0,0 .002
11764 RHC CHS
11764 233062606060 BCI 1,CHS .002
11765 0760 00 0 00002 CHS 0,0,0 .002
11766 RHC SSP
11766 626247606060 BCI 1,SSP .002
11767 0760 00 0 00003 SSP 0,0,0 .002
11770 RHC ENK
11770 254542606060 BCI 1,ENK .002
11771 0760 00 0 00004 ENK 0,0,0 .002
11772 RHC COM
11772 234644606060 BCI 1,COM .002
11773 0760 00 0 00006 COM 0,0,0 .002
11774 RHC RND
11774 514524606060 BCI 1,RND .002
11775 0760 00 0 00010 RND 0,0,0 .002
11776 RHC FRN
11776 265145606060 BCI 1,FRN .002
11777 0760 00 0 00011 FRN 0,0,0 .002
12000 RHC DCT
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 98
TABLE OF OPERATION CODES.
12000 242363606060 BCI 1,DCT .002
12001 0760 00 0 00012 DCT 0,0,0 .002
12002 RHC SLN
12002 624345606060 BCI 1,SLN .002
12003 0760 00 0 00140 SLN 0,0,0 .002
12004 RHC SLF
12004 624326606060 BCI 1,SLF .002
12005 0760 00 0 00140 SLF 0,0,0 .002
12006 RHC NOP
12006 454647606060 BCI 1,NOP .002
12007 0761 00 0 00000 NOP 0,0,0 .002
12010 RHC LLS
12010 434362606060 BCI 1,LLS .002
12011 0763 00 0 00000 LLS 0,0,0 .002
12012 RHC LRS
12012 435162606060 BCI 1,LRS .002
12013 0765 00 0 00000 LRS 0,0,0 .002
12014 RHC ALS
12014 214362606060 BCI 1,ALS .002
12015 0767 00 0 00000 ALS 0,0,0 .002
12016 RHC ARS
12016 215162606060 BCI 1,ARS .002
12017 0771 00 0 00000 ARS 0,0,0 .002
12020 RHC AXT
12020 216763606060 BCI 1,AXT .002
12021 0774 00 0 00000 AXT 0,0,0 .002
12022 RHC RIA
12022 513121606060 BCI 1,RIA .002
12023 -0042 00 0 00000 RIA 0,0,0 .002
12024 RHC PIA
12024 473121606060 BCI 1,PIA .002
12025 -0046 00 0 00000 PIA 0,0,0 .002
12026 RHC IIL
12026 313143606060 BCI 1,IIL .002
F 12027 -0051 00 000000 IIL 0,0,0 .002
12030 RHC LFT
12030 432663606060 BCI 1,LFT .002
F 12031 -0054 00 000000 LFT 0,0,0 .002
12032 RHC SIL
12032 623143606060 BCI 1,SIL .002
F 12033 -0055 00 000000 SIL 0,0,0 .002
12034 RHC LNT
12034 434563606060 BCI 1,LNT .002
F 12035 -0056 00 000000 LNT 0,0,0 .002
12036 RHC RIL
12036 513143606060 BCI 1,RIL .002
F 12037 -0057 00 000000 RIL 0,0,0 .002
12040 RHC TNZ
12040 634571606060 BCI 1,TNZ .002
12041 -0100 00 0 00000 TNZ 0,0,0 .002
12042 RHC CAQ
12042 232150606060 BCI 1,CAQ .002
12043 -0114 00 0 00000 CAQ 0,0,0 .002
12044 RHC TMI
12044 634431606060 BCI 1,TMI .002
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 99
TABLE OF OPERATION CODES.
12045 -0120 00 0 00000 TMI 0,0,0 .002
12046 RHC XCL
12046 672343606060 BCI 1,XCL .002
12047 -0130 00 0 00000 XCL 0,0,0 .002
12050 RHC TNO
12050 634546606060 BCI 1,TNO .002
12051 -0140 00 0 00000 TNO 0,0,0 .002
12052 RHC CRQ
12052 235150606060 BCI 1,CRQ .002
12053 -0154 00 0 00000 CRQ 0,0,0 .002
12054 RHC MPR
12054 444751606060 BCI 1,MPR .002
12055 -0200 00 0 00000 MPR 0,0,0 .002
12056 RHC UFM
12056 642644606060 BCI 1,UFM .002
12057 -0260 00 0 00000 UFM 0,0,0 .002
12060 RHC UFA
12060 642621606060 BCI 1,UFA .002
12061 -0300 00 0 00000 UFA 0,0,0 .002
12062 RHC UFS
12062 642662606060 BCI 1,UFS .002
12063 -0302 00 0 00000 UFS 0,0,0 .002
12064 RHC UAM
12064 642144606060 BCI 1,UAM .002
12065 -0304 00 0 00000 UAM 0,0,0 .002
12066 RHC USM
12066 646244606060 BCI 1,USM .002
12067 -0306 00 0 00000 USM 0,0,0 .002
12070 RHC ANA
12070 214521606060 BCI 1,ANA .002
12071 -0320 00 0 00000 ANA 0,0,0 .002
12072 RHC LAS
12072 432162606060 BCI 1,LAS .002
12073 -0340 00 0 00000 LAS 0,0,0 .002
12074 RHC SBM
12074 622244606060 BCI 1,SBM .002
12075 -0400 00 0 00000 SBM 0,0,0 .002
12076 RHC CAL
12076 232143606060 BCI 1,CAL .002
12077 -0500 00 0 00000 CAL 0,0,0 .002
12100 RHC ORA
12100 465121606060 BCI 1,ORA .002
12101 -0501 00 0 00000 ORA 0,0,0 .002
12102 RHC NZT
12102 457163606060 BCI 1,NZT .002
12103 -0520 00 0 00000 NZT 0,0,0 .002
12104 RHC LXD
12104 436724606060 BCI 1,LXD .002
12105 -0534 00 0 00000 LXD 0,0,0 .002
12106 RHC LDC
12106 432423606060 BCI 1,LDC .002
12107 -0535 00 0 00000 LDC 0,0,0 .002
12110 RHC STQ
12110 626350606060 BCI 1,STQ .002
12111 -0600 00 0 00000 STQ 0,0,0 .002
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 100
TABLE OF OPERATION CODES.
12112 RHC ORS
12112 465162606060 BCI 1,ORS .002
12113 -0602 00 0 00000 ORS 0,0,0 .002
12114 RHC SLQ
12114 624350606060 BCI 1,SLQ .002
12115 -0620 00 0 00000 SLQ 0,0,0 .002
12116 RHC STL
12116 626343606060 BCI 1,STL .002
12117 -0625 00 0 00000 STL 0,0,0 .002
12120 RHC SXD
12120 626724606060 BCI 1,SXD .002
12121 -0634 00 0 00000 SXD 0,0,0 .002
12122 RHC PDX
12122 472467606060 BCI 1,PDX .002
12123 -0734 00 0 00000 PDX 0,0,0 .002
12124 RHC PDC
12124 472423606060 BCI 1,PDC .002
12125 -0737 00 0 00000 PDC 0,0,0 .002
12126 RHC PXD
12126 476724606060 BCI 1,PXD .002
12127 -0754 00 0 00000 PXD 0,0,0 .002
12130 RHC MSE FOLLOWING ARE THE EXTENDED VERSIONS.
12130 446225606060 BCI 1,MSE .002
12131 -0760 00 0 00000 MSE 0,0,0 .002
12132 RHC PBT
12132 472263606060 BCI 1,PBT .002
12133 -0760 00 0 00001 PBT 0,0,0 .002
12134 RHC SSM
12134 626244606060 BCI 1,SSM .002
12135 -0760 00 0 00003 SSM 0,0,0 .002
12136 RHC SLT
12136 624363606060 BCI 1,SLT .002
12137 -0760 00 0 00140 SLT 0,0,0 .002
12140 RHC SWT
12140 626663606060 BCI 1,SWT .002
12141 0760 00 0 00160 SWT 0,0,0 .002
12142 RHC LGL
12142 432743606060 BCI 1,LGL .002
12143 -0763 00 0 00000 LGL 0,0,0 .002
12144 RHC LGR
12144 432751606060 BCI 1,LGR .002
12145 -0765 00 0 00000 LGR 0,0,0 .002
12146 RHC RQL
12146 515043606060 BCI 1,RQL .002
12147 -0773 00 0 00000 RQL 0,0,0 .002
12150 RHC AXC
12150 216723606060 BCI 1,AXC .002
12151 -0774 00 0 00000 AXC 0,0,0 .002
12152 RHC TXL FOLLOWING ARE ALL PREFIX CODES.
12152 636743606060 BCI 1,TXL .002
12153 -3 00000 0 00000 TXL 0,0,0 .002
12154 RHC TNX
12154 634567606060 BCI 1,TNX .002
12155 -2 00000 0 00000 TNX 0,0,0 .002
12156 RHC STR
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 101
TABLE OF OPERATION CODES.
12156 626351606060 BCI 1,STR .002
12157 -1 00000 0 00000 STR 0,0,0 .002
12160 RHC MZE
12160 447125606060 BCI 1,MZE .002
12161 -0 00000 0 00000 MZE 0,0,0 .002
12162 RHC TXH
12162 636730606060 BCI 1,TXH .002
12163 3 00000 0 00000 TXH 0,0,0 .002
12164 RHC TIX
12164 633167606060 BCI 1,TIX .002
12165 2 00000 0 00000 TIX 0,0,0 .002
12166 RHC TXI
12166 636731606060 BCI 1,TXI .002
12167 1 00000 0 00000 TXI 0,0,0 .002
12170 RHC PZE
12170 477125606060 BCI 1,PZE .002
12171 0 00000 0 00000 PZE 0,0,0 .002
12172 OPEND EQU *
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 102
REMOTE SEQUENCES.
-0 20734 0 05544 PMC OPSYN SHOW *REVIVE DEFINITION OF PMC TO PRINT THEM.
12172 RMT * GO, GO, GO.
12172 0101 00 0 12446 GETILC TIA =HGETILC .002
12173 262147242227 ..001 BCI 3,FAPDBG ENTERED.* .002
12174 602545632551
12175 252433546060
12176 0101 00 0 12447 GETMEM TIA =HGETMEM .002
12177 606044254446 BNDC BCI 4, MEMORY BOUND IS * .002
12200 517060224664
12201 452460316260
12202 546060606060
12203 602545234664 ..002 BCI 5, ENCOUNTERED UNEXPECTEDLY.* .002
12204 456325512524
12205 606445256747
12206 252363252443
12207 703354606060
12210 254524604626 ..003 BCI 3,END OF REQUEST* .002
12211 605125506425
12212 626354606060
12213 475146275121 ..004 BCI 4,PROGRAM RESTARTED.* .002
12214 446051256263
12215 215163252433
12216 546060606060
12217 672523602330 ..005 BCI 4,XEC CHAIN TOO DEEP. * .002
12220 213145606346
12221 466024252547
12222 336060546060
12223 476031274546 ..006 BCI 2,P IGNORED.* .002
12224 512524335460
12225 475146275121 ..007 BCI 3,PROGRAM STARTED.* .002
12226 446062632151
12227 632524335460
12230 276031274546 ..008 BCI 2,G IGNORED.* .002
12231 512524335460
12232 274646246022 ..009 BCI 2,GOOD BYE.* .002
12233 702533546060
12234 0101 00 0 12441 CHNCOM TIA =HCHNCOM .002
12235 0101 00 0 12444 GETBRK TIA =HGETBRK .002
12236 512547252163 RPTC BCI 2,REPEAT.* .002
12237 335460606060
12240 434623216331 ..010 BCI 5,LOCATION ABOVE MEMORY BOUND.* .002
12241 464560212246
12242 652560442544
12243 465170602246
12244 644524335460
12245 632122432560 ..011 BCI 6,TABLE FULL, DEFINITION IGNORED.* .002
12246 266443437360
12247 242526314531
12250 633146456031
12251 274546512524
12252 335460606060
12253 603162604546 ..012 BCI 3, IS NOT DEFINED.* .002
12254 636024252631
12255 452524335460
12256 603162604346 ..013 BCI 3, IS LOADED AT * .002
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 103
REMOTE SEQUENCES.
12257 212425246021
12260 636054606060
12261 603162604546 ..014 BCI 3, IS NOT IN CORE.* .002
12262 636031456023
12263 465125335460
12264 466525512643 ..015 BCI 5,OVERFLOW DURING CONVERSION.* .002
12265 466660246451
12266 314527602346
12267 456525516231
12270 464533546060
12271 466525512643 ..016 BCI 5,OVERFLOW DURING SHIFTING.* .002
12272 466660246451
12273 314527606230
12274 312663314527
12275 335460606060
12276 263347336045 ..017 BCI 5,F.P. NUMBER OUT OF RANGE.* .002
12277 644422255160
12300 466463604626
12301 605121452725
12302 335460606060
12303 0101 00 0 12455 OPEN TIA =HOPEN .002
12304 0101 00 0 12437 BUFFER TIA =HBUFFER .002
12305 0101 00 0 12462 RDWAIT TIA =HRDWAIT .002
12306 0101 00 0 12442 CLOSE TIA =HCLOSE .002
12307 234644472151 ..054 BCI 3,COMPARISON DONE.* .002
12310 316246456024
12311 464525335460
12312 223145215170 ..055 BCI 6,BINARY CARD IS NON-RELOCATABLE.* .002
12313 602321512460
12314 316260454645
12315 405125434623
12316 216321224325
12317 335460606060
12320 0101 00 0 12445 GETCOM TIA =HGETCOM .002
12321 0101 00 0 12477 SAVBRK TIA =HSAVBRK .002
12322 0101 00 0 12501 SETBRK TIA =HSETBRK .002
12323 312745465131 ..092 BCI 7,IGNORING OLDEST INTERRUPT SETTING.. * .002
12324 452760464324
12325 256263603145
12326 632551516447
12327 636062256363
12330 314527333360
12331 546060606060
12332 0101 00 0 12503 WRFLXA TIA =HWRFLXA .002
12333 632122432560 ..123 BCI 7,TABLE FULL, FIRST SYMBOL NOT INSERTED IS * .002
12334 266443437360
12335 263151626360
12336 627044224643
12337 604546636031
12340 456225516325
12341 246031626054
12342 627044224643 ..130 BCI 3,SYMBOLS LOADED.* .002
12343 626043462124
12344 252433546060
12345 216363254447 ..131 BCI 7,ATTEMPT TO REDEFINE INTERNAL SYMBOL * .002
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 104
REMOTE SEQUENCES.
12346 636063466051
12347 252425263145
12350 256031456325
12351 514521436062
12352 704422464360
12353 546060606060
12354 603127454651 ..132 BCI 2, IGNORED.* .002
12355 252433546060
12356 0101 00 0 12513 (EFTM) TIA =H(EFTM) .002
12357 0101 00 0 12500 SETBCD TIA =HSETBCD .002
12360 0101 00 0 12502 SETFUL TIA =HSETFUL .002
12361 0101 00 0 12515 (LFTM) TIA =H(LFTM) .002
12362 0101 00 0 12451 IODIAG TIA =HIODIAG .002
12363 602646516054 ..133 BCI 1, FOR * .002
12364 433145422524 ..140 BCI 2,LINKED * .002
12365 605460606060
12366 263143256054 ..141 BCI 1,FILE * .002
12367 604546636026 ..142 BCI 2, NOT FOUND.* .002
12370 466445243354
*
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 105
LITERALS.
END
LITERALS
12371 000000000000
12372 000000000001
12373 000000000006
12374 000000000007
12375 000000000010
12376 000000000011
12377 000000000012
12400 000000000013
12401 000000000014
12402 000000000016
12403 000000000020
12404 000000000025
12405 000000000033
12406 000000000040
12407 000000000054
12410 000000000055
12411 000000000060
12412 000000000061
12413 000000000070
12414 000000000072
12415 000000000073
12416 000000000077
12417 000000000200
12420 000000002321
12421 000000077777
12422 000010001111
12423 000060000000
12424 002000000000
12425 002000000002
12426 007400000000
12427 052200000000
12430 077400777777
12431 077777000000
12432 200077000000
12433 200777777777
12434 204500000000
12435 224321454260
12436 225125214233
12437 226426262551
12440 233000000000
12441 233045234644
12442 234346622560
12443 255151465160
12444 272563225142
12445 272563234644
12446 272563314323
12447 272563442544
12450 300000000000
12451 314624312127
12452 400000000000
12453 426500000000
12454 462500000000
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 106
LITERALS.
12455 464725456060
12456 465127601360
12457 477400000000
12460 500000000000
12461 512426436721
12462 512466213163
12463 516060606060
12464 532161725757
12465 534261725757
12466 546060606060
12467 556060606060
12470 575757575757
12471 602425226427
12472 602651464460
12473 606060226262
12474 606060606000
12475 606060606060
12476 606270446322
12477 622165225142
12500 622563222324
12501 622563225142
12502 622563266443
12503 665126436721
12504 700000000000
12505 700000777777
12506 725060136057
12507 726260136057
12510 726365601360
12511 736047601360
12512 736050601360
12513 742526634434
12514 742545243460
12515 744326634434
12516 744421314534
12517 777700000000
12520 777700007777
12521 777777777700
12522 777777777777
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 1
POST PROCESSOR ASSEMBLY DATA
77461 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
12523 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1776 E 1745, 1771
364 M 321
4106 B0 3755, 4021
4107 B8 3757, 4023
1475 BC 37, 60, 63, 124, 140, 163, 201, 205, 336, 364, 373, 402, 407, 431, 460, 732, 771
1046, 1207, 1227, 1253, 1261, 1271, 1314, 1364, 1435
7433 CQ 7406, 7415, 7421
3120 CR 32, 730, 1027, 1203, 1362, 1425, 1555, 2204, 2411, 2501, 2516, 2545, 3013, 3605, 7503
732 GO 305
0 .. 3, 202, 203, 552, 553, 554, 555, 601, 664, 665, 677, 700, 701, 1101, 1141, 1152, 1162
1163, 1164, 1204, 1517, 1523, 1556, 1657, 2033, 2034, 2127, 2161, 2175, 2205, 2214, 2437, 2441, 2443
2444, 2456, 2457, 2460, 2544, 2546, 2547, 2550, 2552, 2574, 2617, 2632, 2637, 2640, 2653, 2674, 2675
2676, 2677, 2747, 2750, 2751, 2772, 2773, 3005, 3021, 3025, 3026, 3053, 3054, 3115, 3142, 3151, 3153
3213, 3214, 3233, 3261, 3262, 3335, 3336, 3400, 3451, 3614, 3615, 3616, 3624, 3655, 3673, 3737, 4026
4102, 7270, 7371, 7372, 7373, 7430, 7431,11342
3126 MQ 3063, 3116
1500 OP 117, 125, 135, 137, 164
1657 XR 1605
1501 ADD 120, 146, 166
4104 BAC 1332, 1342, 1402, 1410, 3751, 4075
4121 BIC 13, 467, 477, 524, 536, 556, 571, 577, 711, 1033, 7223
4103 BLS 4020, 4035, 7225, 7264
4117 BMQ 3744, 4100, 7231
2501 BPR 2530
4105 BQS 1334, 1340, 1350, 1356, 1404, 1414, 1421, 3753, 4073
4120 BSI 3745, 4101, 7227
4113 BX3 3750, 4001, 4054, 7237, 7260
4114 BX5 4002, 4053, 7243, 7257
4115 BX6 4003, 4052, 7245, 7256
4116 BX7 4004, 4051, 7247, 7255
4110 BXA 3746, 4057, 7233, 7263
4111 BXB 3747, 4056, 7235, 7262
4112 BXC 4, 704, 1006, 4055, 7241, 7261
1503 DEC 122, 162, 174
1435 DEF 301
1671 DGT 1630, 1635, 1645, 1656, 1732, 1735, 2003, 2021, 2032
2036 ERR 1757, 2010, 2121
11332 FND 11321,11324
2125 FPT 1702, 1776, 2026, 2040, 2047
2122 FPZ 1704, 2000, 2030, 2042, 2045
7373 FXA 7274
7372 FXB 7273
7371 FXC 7272, 7312, 7364
7363 FXP 7356
2535 GPR 2527
3015 GQL 3006, 3022
2214 GWX 2177
231 ILF 110, 211, 342, 347, 361, 370, 377, 416, 423, 441, 464, 736, 743, 775, 1055, 1066, 1073
1213, 1220, 1236, 1243, 1257, 1300, 1305, 1323, 1330, 1373, 1400, 1441, 1446, 1454, 1620, 1626, 2051
3340 IND 3304
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 2
POST PROCESSOR ASSEMBLY DATA
1003 INT 2771, 3024, 3043
7430 IXB 7405
7431 IXC 7404
7516 ... 2247, 2250, 2251, 2252, 2253, 2254, 2256, 2257, 2260, 2261, 2263, 2264, 2265, 2266, 2267, 2270, 2271
2451, 2452, 2453, 2602, 2603, 2604, 2605, 2606, 2607, 2611, 2612, 2613, 2614, 2627, 2630, 2631, 2632
2633, 2634, 2635, 2715, 2716, 2717, 3521, 3522, 3523, 3524, 3525, 3526, 3530, 3531, 3532, 3533, 3535
3536, 3537, 3540, 3541, 3542, 3543, 3607, 3610, 3611, 7452, 7514, 7515, 7516
3624 KXR 3621
1364 LAC 315
3475 LAR 3511
3512 LAW 3471, 3475, 3503, 3505, 3510
1427 LLM 354, 444, 473, 670, 750, 1110, 1114, 1173
230 LOC 12, 111, 350, 351, 362, 446, 712, 744, 745, 765, 1032, 1036, 1040, 1041, 1153, 1225, 1267
1447, 1457, 2343, 2344, 2373, 2377, 2407, 2412, 2414, 3701
205 LOK 133
2123 MAG 1676, 1733, 1736, 1764, 1765, 2012, 2015, 2022
2470 MAP 371
2516 MLP 2544
1725 MMI 1715
2531 MPR 2525
2124 MSG 1677, 1725, 2023
2547 MXA 2471
2550 MXB 2472
2546 MXC 2470, 2520
7333 NEG 7326
7335 NOR 7332
3005 NQL 2767
1670 NUM 1606, 1632, 1636, 1646
2160 OUT 2166
3264 PLS 3243, 3246
350 PUT 104
7313 REG 7303
7270 RXC 7252
1314 SAC 271
2660 SCH 2702
3620 SFF 3566, 3600
1667 SFT 1574, 1577, 1602, 1652
2674 SFW 2647
1672 SGN 1607, 1623, 1647
2175 SKX 2167
2757 SQT 2764, 2766
2675 SRW 2651, 2706
574 STL 515
556 STR 521, 636
2653 SWD 2646, 2704
3122 TAB 1200, 2403, 2406, 2537
1502 TAG 121, 154, 170
2120 TEN 1762, 2013, 2016, 7330, 7334
564 TSX 512
2121 TTR 1705, 2006
2126 TYI 1610, 1624, 1640, 1707, 1726, 1737, 1752, 1766, 2172, 3221, 3356
3062 TYO 31, 243, 727, 1026, 1177, 1353, 1361, 1416, 1424, 1554, 2402, 2741, 2746, 3121, 3123, 3125, 3211
3256, 3306, 3322, 3330, 3344, 3604, 7301, 7305, 7307, 7311, 7351, 7353, 7361, 7366, 7412, 7426, 7475
7502, 7540
2460 VXA 2242
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 3
POST PROCESSOR ASSEMBLY DATA
2457 VXB 2241
2456 VXC 2240
2536 WPR 2532, 2534
606 XEC 507
1153 XIT 1136, 1140
4002 7XRS 3776
2703 ALLB 2656
1253 AUTO 335
1673 BASE 1604, 1617, 1625, 1633, 1641, 7403, 7420
3360 BCLK 3363
1141 BMLK 1123
12177 BNDC 25, 723, 1022
1152 BNLK 1124, 1147
3235 BOIG 3174, 3176, 3205
3177 BOJN 3175
3203 BOLP 3212
3214 BOXA 3200
3213 BOXC 3177
730 BRK2 720
7555 BUF1 2260, 3532
10435 BUF2 2613
7434 BUFF 3220, 3226, 3230, 3232, 7414, 7422, 7425
2305 CARD 2266, 2272, 2277, 2341, 2354, 2425, 2426, 2430, 2431, 3540, 3545, 3551, 3563, 3564
647 CCEA 575, 610
700 CCXA 650
701 CCXB 651
677 CCXC 647
336 CEND 257, 260, 265, 336, 1044
2574 CHXC 2553, 2562, 2571
257 CMND 76
270 CORG 257, 270
1101 CTSX 1045, 1202, 1345, 1411, 2405, 2410
2341 DATA 2273
7451 DERR 2254, 2261, 2271, 2453, 2607, 2614, 2711, 2717, 3526, 3533, 3543, 3611
3737 DFXC 3704, 3715, 3727, 3741
7547 DIAG 7452, 7547, 7555
7553 DIN1 7472, 7514, 7535
7554 DIN2 7476, 7515, 7541
1206 DMPL 1174, 1201
1204 DMPX 1167
3730 DOBS 3716, 3722
1167 DUMP 1034, 1042, 1132, 1161
3411 EVAL 101
3470 EVBC 3421, 3433, 3450
3421 EVGO 3414
552 EXOP 523, 535, 537, 562, 566, 567, 572, 603, 604
1730 FCNV 1724, 1751
2015 FDIV 2011
2021 FFMT 1747, 1773
2467 FILE 2244, 2250, 2256, 2263, 2451
2045 FILF 1722, 1754
11403 FLAG 11316,11357,11371,11375
7375 FNUM 7275, 7327, 7333
7355 FRAC 7362
1432 FULL 1461
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 4
POST PROCESSOR ASSEMBLY DATA
3151 FWCW 3147
3153 FWXC 3144, 3146
2034 FXRB 1675
2033 FXRC 1674
1123 GOLK 1121
1630 ICNV 1622, 1644
7424 IFIX 7416
1645 IFMT 1642
7425 IFOX 7427
1604 IJIN 1576, 1601
7403 IJON 7400
1623 IMIN 1616
1030 INT2 1017
1251 KILL 1232
3471 LADJ 127, 404, 1222, 1264, 1456, 3424,11361
3505 LASH 3502
1077 LOC1 1057, 1105, 1115, 1125
1100 LOC2 1074, 1111, 1134
60 LOCF 47, 72, 100, 264
1044 LOOK 303, 307, 311, 313, 323, 331
34 MAIN 247, 363, 372, 430, 450, 457, 731, 770, 1043, 1051, 1076, 1226, 1250, 1252, 1312, 1335, 1363
1405, 1426, 1462, 1473
2533 MDUM 2524
2552 MPTR 2477, 2504, 2511, 2521, 2535, 2541
2544 MTST 2474
1313 NAME 401, 424, 425, 1245, 1263, 1270, 1306, 2563, 2573
1036 NEXT 66
455 NOGO 231, 465, 751, 1472, 2210
7457 NOPE 7527
1556 OFXC 1504
1472 OOPS 646, 1035, 1431, 1434, 1571, 1663, 1666, 2044, 7507, 7512, 7516, 7517, 7546
12303 OPEN 2246, 2601, 3520
11363 OPLK 11366
11350 OPXR 11315,11332,11351,11372
11342 OSXR 11334,11345
1661 OVDC 1637
1664 OVFC 1654
3115 OXRC 3062, 3102
540 PCOM 533, 563, 573, 605
522 PNLD 637
1573 PORG 1537, 1540, 1551, 1557, 2243, 2302, 2342, 3517, 3560
1166 PREV 1130, 1143
3001 QLEV 2765, 3011, 3016
2450 QUIT 2267, 2417, 2464
2537 RDUM
12236 RPTC 1151, 1157
3021 RQCW 3017
50 RQST 43
7271 RXSI 7253, 7267
3653 SBCF 3636
3646 SBOK 3644
3673 SBXR 3663, 3702
2576 SETF 2572
163 SINP 144, 152, 160
7345 SKIP 7337
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 5
POST PROCESSOR ASSEMBLY DATA
3023 SOQL 3015
3351 SPWD 3270, 3272, 3274, 3340
3335 SPXB 3267
3336 SPXC 3266, 3320, 3326
3616 SRXA 3515
3615 SRXB 3514
3614 SRXC 3513
575 STL1 643
601 STLS 576
113 SUBF 40, 61, 73
3142 SWXC 3131, 3136
202 SYMX 115, 212
203 SYMY 116
1523 TEST 1513
565 TSX1 641
3772 TTTR 3760
2220 TYIB 2133, 2136
2621 TYIF 2600, 2603, 2611, 2627, 2715
2161 TYIX 2126
3130 TYOB 3072, 3100, 3114
2724 TYPA 14, 24, 250, 622, 722, 1021, 1547, 3007, 3575, 3717, 7467, 7530, 7532
2722 TYPE 245, 546, 644, 753, 766, 776, 1150, 1156, 1427, 1432, 1470, 1567, 1661, 1664, 2036, 2454, 2462
3612, 3725, 7544
2732 TYPG 2743
2725 TYPJ 2723
2734 TYPL 2742
2744 TYPX 2740
1474 USYM 1463, 1465
1476 WORD 165, 167, 172, 173, 176, 177, 200, 2356, 2361, 2365, 2370, 2372, 2374, 2404, 3275, 3300, 3307
3311, 3331, 3345, 3562, 3567
1306 WORK 1274
1535 XFER 1531
1160 XPCA 1155
7376 XPNT 7325, 7341, 7343, 7363, 7367
642 XSTL 632
640 XTSX 627
1207 YANK 317
145 ADNXT
3374 BCBRK 3362
3221 BCDCH 3231
3216 BCDIN 215, 217
3233 BCDIX 3216
3232 BCDPT 3224
3400 BCEND 3352
3407 BCFLG 3353, 3372, 3375
3402 BCORG 3357
3356 BCRET 3371, 3373
3352 BCSCH 35, 123, 400, 417, 1214, 1237, 1260, 1301, 1450, 3420
3410 BCSYM 3355, 3365, 3367, 3377
3407 BCTAB 3357, 3360, 3407
63 BLANK 53
1102 BLKLK 1075
1162 BLKXA 1102, 1154
1163 BLKXB 1103
1164 BLKXC 1104
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 6
POST PROCESSOR ASSEMBLY DATA
453 BPFLG 7, 447, 456, 474, 540, 755, 1011
703 BREAK 451
451 BRKOP 544, 761
666 CCNTG 660
665 CCPCA 654, 674
661 CCTAG 657
664 CCTXI 653, 662
676 CCXIT 672
265 CDISP 262
2465 CELL1 2245, 2274, 2276
2373 CHECK 2367
2553 CHFIL 33
2163 CHPRE 2157
12306 CLOSE 2450, 2714, 3606, 7513
546 CNOBP 541
2466 COUNT 2347, 2350, 2420, 2422
2217 CRFLG 16, 1013, 2130, 2143, 2202, 2207
3731 DEFNO 3706
6 DILTH 7452, 7555
766 DONTG 752
644 DONTP 466, 624
3426 EVADD 3461
3451 EVEND 3411, 3415
3464 EVMIN 3441
3453 EVNUM 3422
3462 EVPLS 3436
3420 EVRET 3463, 3465
3467 EVSGN 3413, 3417, 3427, 3462, 3464
3466 EVTOT 3412, 3416, 3431, 3432, 3442
1726 FDIG1 1712
2642 FIXCR 2636
2637 FIXCW 2625
2676 FIXXA 2643
2677 FIXXC 2642
3262 FLDXB 3237
3261 FLDXC 3236, 3253
1674 FLOIN 221
11344 FNDIT 11340
1525 FOUND 1521, 1532, 1534
1752 FRAC1 1720
1766 FRAC2 1742
1757 FRCNV 1775
1716 FRET1 1727
1122 FWDLK 1117
3144 FWORD 3112
1074 GLOOK 1062
2221 GWBUF 2200, 2206, 2212, 2213
2212 GWMIB 2203
2177 GWORD 2132
1624 IDIG1 1613
253 ILFBL 237
256 ILFCH 240, 242
250 ILFCR 234
245 ILFJN 252, 255
7415 INEXT 7423
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 7
POST PROCESSOR ASSEMBLY DATA
1577 INTIN 223, 2002
3057 INTLA 3034, 3050
3056 INTOV 3031, 3033, 3051
3060 INTSA 3036, 3046
3053 INTXC 3037
3061 INUSR 3, 551, 703, 764, 1003, 1005
12173 ..001 15
12203 ..002 246
12210 ..003 251
12213 ..004 547
12217 ..005 623
12223 ..006 645
12225 ..007 754
12230 ..008 767
12232 ..009 777
12240 ..010 1430
12245 ..011 1433
12253 ..012 1471
12256 ..013 1550
12261 ..014 1570
12264 ..015 1662
12271 ..016 1665
12276 ..017 2037
12307 ..054 2455
12312 ..055 2463
12323 ..092 3010
12333 ..123 3576
12342 ..130 3613
12345 ..131 3720
12354 ..132 3726
12363 ..133 7470
12364 ..140 7531
12366 ..141 7533
12367 ..142 7545
1602 JNTIN 225
1406 LACLK 1367
1133 LKCMP 1145
2366 NODEC 2360
3305 NOFLG 3342, 3346
3030 NOINT 1004
1126 NORPT 1146, 1152
3675 NOSYM 3665
1574 OCTIN 227
1572 ONAME 1510, 1516, 1542, 1562
73 ONECH 57
11315 OPBCD 3273
11351 OPBIN 136
11347 OPCDE 11352,11360,11376
7520 OPEN1 7456
7532 OPEN2 7523
12172 OPEND 11331,11335,11336,11344,11362,11363,11370,12172
11374 OPFLG 11356
11370 OPFND 11365
11474 OPORG 11335
11361 OPRET 11402
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 8
POST PROCESSOR ASSEMBLY DATA
11334 OPSCH 11320,11323
3127 PFLAG 3065, 3070, 3101
534 PNORM 475, 502
14 QBACK 1002
3124 QUOTE 241, 244, 1464, 1467, 1541, 1546, 1561, 1566, 3577, 3602, 3721, 3724, 7471, 7500, 7534, 7543
2622 READF 2615
2640 READX 2622, 2720
2433 RELOC 2363, 2371
2444 RELXA 2434
2443 RELXC 2433
452 REMOP 6, 543, 706, 760, 1010
4030 RESMC 550, 763
4102 RESMX 4031
3001 RESQL 4032
7251 RESXR 663
2712 RFEND 2633
2707 RFERR 2635
1041 RLOOK 112
1336 SACLK 1317
32 SAME1 22
3743 SAVMC 5, 705, 1007
4026 SAVMX 3743
2767 SAVQ2 2760
2754 SAVQL 4025
3672 SBFND
3701 SBPOI
3665 SBRET 3671
2617 SETFX 2576
3350 SPTAG 3315, 3323
3155 SWBUF 3132, 3134, 3135, 3140, 3141, 3145, 3151, 3152
3131 SWORD 3076, 3111
115 SYMIN 355, 1324, 1374
3534 SYMRD 3574
1227 TABLE 333
3513 TABRD 1247, 1311
3612 TDONE
7250 TFILE 3516, 3522, 3530, 3535, 3607
2127 TYICP 2135, 2165
2205 TYICW 2555, 2616, 2710, 2713
3112 TYOMT 3105
2753 TYPCR 2722, 2724, 2745
2750 TYPXA 2726
2751 TYPXB 2727
2747 TYPXC 2725
1463 UNDEF 3700,11367
2454 VDONE
425 VERGO 412
610 XECLP 621
625 XECND 617
77461 77461K 2447, 2450
3174 BCDOUT 307, 714, 1337, 1347, 1355, 1407, 1413, 1420, 2503, 2510, 7460, 7464
454 BRKLOC 10, 445, 476, 503, 522, 542, 545, 564, 574, 607, 707, 710, 757, 762, 1012
12304 BUFFER 2255, 2610, 3527
660 BUFLTH 2260, 2613, 3532, 7555,10435
2262 CARDRD 2275, 2304, 2424
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 9
POST PROCESSOR ASSEMBLY DATA
653 CCLOOP 675
12234 CHNCOM 1000
77461 COMMON 2447, 2450
553 CONLOC 526, 530, 532, 570, 1031
460 CONTIN 325
3347 DECFLD 3271, 3312, 3317, 3325
7401 DECOUT 313
3741 DEFFUL 3732
3704 DEFINE 1460, 3570
3716 DEFOOP 3713
3706 DEFRET 3712
3713 DEFYES
7547 DICALL
7551 DICODE 7461, 7520
2240 DIFDMP 427
7552 DIOCOD
771 DISMIS 327
7550 DISUBR 7453, 7465, 7504
336 DPOSIT 277
3 FAPDBG 0
2023 FASSGN 2014, 2020
2412 FINCYC 2376
3265 FLDCOR 3242, 3252, 3257
3415 FLDEVL 145, 153, 161, 343, 435, 737, 1056, 1067, 1442
3257 FLDOCT 3251, 3254
3236 FLDPRT 1175, 2400, 3012, 3310, 3324, 3334
7272 FLOOUT 303
12235 GETBRK 1030, 3040
12320 GETCOM 2556, 2564
12172 GETILC 11
12176 GETMEM 17, 715, 1014
763 GONOBP 756
35 IGNORE 71
3055 INRUPT 36, 1137, 2416, 2517, 3030
431 INSERT 273
3321 INSTAG 3316
7402 INTOUT 311, 7370
3054 INTTRA 3041
12362 IODIAG 7451
3621 KILTAB 1251
101 LOCNXT 62
2771 L(INT) 2762
114 MEMBND 20, 23, 26, 352, 442, 471, 666, 716, 721, 724, 746, 1015, 1020, 1023, 1106, 1112, 1171
0 MOVIE) 1511, 2473, 2476
3176 NAMOUT 254, 1466, 1545, 1565, 2536, 3245, 3277, 3601, 3723, 7466, 7473, 7477, 7536, 7542
2462 NONREL 2353
1561 NOTFND 1524
7377 OCTOUT 27, 323, 725, 1024, 1552, 2505, 2514, 2542, 3260, 7462
11404 OPPRFX 11362,11404
1504 ORGFND 405, 1223, 1265
2446 OUTSID 2437
1477 PGMORG 406, 426, 1224, 1246, 1266, 1310
230 POPEND 130, 131, 213, 230
214 POPORG 130
131 POPRET 134
1 FAP DEBUG. SYMBOLIC DEBUGGING AID FOR FAP SUBPROGRAMS. 12/17/69 1754.9 PAGE 10
POST PROCESSOR ASSEMBLY DATA
2216 PREVCH 2160, 2163, 2170
2721 RDFLXA 2554, 2707, 2712
12305 RDWAIT 2262, 2626, 3534
2626 READCW 2624
2425 RELBIT 2357, 2366, 2436
2447 RELCOM 2440
2441 RELPRG 2303, 2446
2437 RELSIZ 2301
2442 RELXIT 2447
456 REMOVE 434
3026 RESQXA 3002
3025 RESQXC 3001
2355 RETURN 2423
12321 SAVBRK 2757, 3003
2773 SAVQXA 2755
2772 SAVQXC 2754
3655 SCHEND 3626
3636 SCHLOP 3642, 3645, 3652
1517 SEARCH 1514, 1523, 1526, 1536
12357 SETBCD 4005, 4036
12322 SETBRK 2770, 3020, 3023, 3042
12360 SETFUL 4040
2167 SKIPCR 34
2701 STILLB 2666
3662 SYMABS 3632, 3641, 3647
3545 SYMADJ 3573
3626 SYMBCD 3241
3663 SYMBIN 3425
3660 SYMBOL 3635, 3651, 3653
3661 SYMCOR 3631, 3646, 3654
7250 SYMEND 3622, 3640, 3645, 3650, 3666, 3672, 3703, 3707, 3713, 3714, 3732, 3733, 3734, 7250
3606 SYMEOF 3541, 3550
3575 SYMFUL 3571
3100 SYMLNG 3732, 4122
3703 SYMLTH 3623, 3633, 3664, 3705, 3731, 3736
3266 SYMPRT 331, 1101
7222 SYMTAB 3622, 3645, 3703, 3713, 3732
3657 SYMVAL 3630, 3637
2135 TYIMIW 2131
3100 TYOMIW 3075
373 VERIFY 275
12332 WRFLXA 3137, 3150
12356 (EFTM) 3773, 4043
12361 (LFTM) 4041
0 NO ERROR IN ABOVE ASSEMBLY.
FPM0 BCD 12/17/69 1758.0 34952 00000
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 1
* SEPTEMBER 1965
* GEORGE/0/100/FLO
* 0/500/FIX SLASH = OCTAL NUMBER
* 31000/31000 ONE WORD PM ONLY
* STOMAP
* AUTO
* LIGHTS
* STOP
* PM/ILC. PMS THE STOP LOCATION OR ILC ONLY (1 LINE)
* PM/TRAPS. PMS LOCATIONS 0,2,8 ONLY (1 LINE)
* FLEXPM STOP REDUCED TO 5 LOC. AND THE NORMAL RANGE OMITTED.
* (STPC) AND (PCUP) CUT BY 50 PERCENT AND NOW PRINT ACROSS PAGE.
* BY REQUESTING STOMAP THE BSS STORAGE MAP IS PRINTED
* THE AUTOMATIC SECTION MUST NOW BE REQUESTED. ONE MAY REQUEST
* THE COMPLETE AUTOMATIC SECTION BY AUTO , OR STOP (FOR THE
* STOP WHICH IS 5 LOCATIONS AROUND THE STOP), OR LIGHTS
* (MACHINE CONDITIONS ONLY)
00006 ENTRY FLEXPM
03205 ENTRY PATCH ENTRY TO PATCH COMMAND
03407 ENTRY STOPAT ENTRY TO STOPAT COMMAND
03454 ENTRY TRA ENTRY TO TRA COMMAND
FLEXO-SYSTEM ENTRY FOR FORTRAN PM
TRANSFER VECTOR
00000 742631433460 (FIL)
00001 743146303460 (IOH)
00002 444665312534 MOVIE)
00003 745163453460 (RTN)
LINKAGE DIRECTOR
00004 000000000000
00005 264325674744
00006 -0634 00 4 01006 FLEXPM SXD ENTRY,4
00007 0634 00 4 02161 SXA IR4,4
00010 -0774 00 4 00011 AXC *+1,4
00011 0021 00 0 01363 TTR (SVLT) LIGHTS SAVED IN CASE WANTED
INTERPRETING THE PM
00012 0600 00 0 01005 STZ DIREC
00013 0600 00 0 01046 STZ MODE
00014 0600 00 0 01047 STZ NCLIP
00015 0600 00 0 01051 STZ NOSTP
00016 0600 00 0 01050 STZ NOLFT
00017 0774 00 1 00001 AXT 1,1
00020 0074 00 4 03176 TSX GETCOM,4
00021 0 00000 0 00001 PZE 1
00022 0602 00 0 01053 SLW TEMPS3
00023 -0130 00 0 00000 XCL
00024 0774 00 4 77777 AXT -1,4
00025 -0754 00 0 00000 CLEARA ZAC
00026 -0763 00 0 00006 LGL 6
00027 1 00001 4 00030 TXI *+1,4,1
00030 0402 00 0 04425 SUB =H00000
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 2
00031 0100 00 0 00025 TZE CLEARA
00032 0400 00 0 04425 ADD =H00000
00033 -0340 00 0 04422 LAS =O12
00034 0020 00 0 00037 TRA *+3 AC.G.Y
00035 0761 00 0 00000 NOP
00036 0020 00 0 00133 TRA FLDTWO AC.L.Y
00037 0402 00 0 04426 SUB =H00000/ ALPHABETICAL CHARACTER FOUND
00040 0100 00 0 00133 TZE FLDTWO SLASH FOUND
00041 0500 00 0 01053 CLA TEMPS3
00042 0402 00 0 04460 SUB =HLIGHTS
00043 0100 00 0 00304 TZE FXLT
00044 0500 00 0 01053 CLA TEMPS3
00045 0402 00 0 04534 SUB =H STOP
00046 0100 00 0 00307 TZE FXST
* CONTROL FOR ILC. AND TRAPS$
00047 0500 00 0 01053 CLA TEMPS3
00050 0402 00 0 04522 SUB =H ILC.
00051 -0100 00 0 00054 TNZ *+3
00052 -0625 00 0 03204 STL ILCIN INDICATOR FOR ILC PM
00053 0020 00 0 00311 TRA FXLAS
00054 0500 00 0 01053 CLA TEMPS3
00055 0402 00 0 04546 SUB =HTRAPS.
00056 -0100 00 0 00061 TNZ *+3
00057 -0625 00 0 03203 STL TRAPSI INDICATOR FOR TRAP. PM FOR AUTO SECTION
00060 0020 00 0 00311 TRA FXLAS
00061 0500 00 0 01053 CLA TEMPS3
00062 0402 00 0 04521 SUB =H AUTO
00063 0100 00 0 00311 TZE FXLAS
00064 0500 00 0 01053 CLA TEMPS3
00065 0402 00 0 04545 SUB =HSTOMAP
00066 0600 00 0 03126 STZ NAMSTO JSMI
00067 0100 00 0 03032 TZE STOMAP
00070 0500 00 0 04413 CLA =1
00071 0601 00 0 01010 STO L2
00072 0754 00 4 00000 PXA ,4
00073 0131 00 0 00000 XCA
00074 0200 00 0 04420 MPY =6
00075 0131 00 0 00000 XCA
00076 0621 00 0 00101 STA *+3
00077 0560 00 0 04533 LDQ =H
00100 -0500 00 0 01053 CAL TEMPS3
00101 -0763 00 0 00000 LGL **
00102 0602 00 0 03126 SLW NAMSTO JSMI
00103 0602 00 0 01011 SLW L2+1
00104 0074 00 4 01164 TSX SZLOC,4
00105 0500 00 0 01055 CLA STLOC WAS THE PROGRAM FOUND
00106 -0120 00 0 00272 TMI FLEXE NO--GO TO PRINT COMMENT
00107 1 00001 1 00110 TXI *+1,1,1
00110 0634 00 1 00112 SXA *+2,1
00111 0074 00 4 03176 TSX GETCOM,4
00112 0 00000 0 00000 PZE **
00113 0602 00 0 01053 SLW TEMPS3
00114 0500 00 0 01053 CLA TEMPS3
00115 0402 00 0 04545 SUB =HSTOMAP JSMI
00116 0100 00 0 03032 TZE STOMAP JSMI
00117 0500 00 0 01053 CLA TEMPS3 JSMI
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 3
00120 0402 00 0 04443 SUB =HENTIRE
00121 -0100 00 0 00127 TNZ NCK
00122 0500 00 0 01055 CLA STLOC
00123 0601 00 0 01003 STO ADRUM
00124 0500 00 0 01056 CLA FINLOC
00125 0601 00 0 01004 STO BDRUM
00126 0020 00 0 00202 TRA NOTBIG
00127 0500 00 0 01053 NCK CLA TEMPS3
00130 0402 00 0 04564 SUB =O777777777777
00131 -0100 00 0 00133 TNZ FLDTWO
00132 0020 00 0 00346 TRA NORM NORMAL RANGE POST MORTEM
00133 0074 00 4 00242 FLDTWO TSX INTRPF,4 FIELD TWO
00134 0500 00 0 01004 CLA BDRUM
00135 0601 00 0 01003 STO ADRUM
00136 1 00001 1 00137 TXI *+1,1,1
00137 0074 00 4 00242 TSX INTRPF,4
ADRUM AND BDRUM ADDRESSES
00140 0500 00 0 01004 CLA BDRUM
00141 0560 00 0 01003 LDQ ADRUM
00142 0040 00 0 00145 TLQ ORDC ORDER OF SMALLER IN ADRUM, LARGER IN BDRUM
00143 -0600 00 0 01004 STQ BDRUM
00144 0601 00 0 01003 STO ADRUM
00145 0520 00 0 01047 ORDC ZET NCLIP
00146 0020 00 0 00154 TRA REJOIN REL DUMP
00147 0601 00 0 01007 STO ILC ABS DUMP
00150 0074 00 4 01057 TSX ILLOC,4 LOC THE NAME OF THE PROG ,IF ANY
00151 -0520 00 0 01047 NZT NCLIP
00152 0020 00 0 00163 TRA ABSDMP ABS DMP
00153 0020 00 0 00174 TRA ARJOIN
00154 0500 00 0 01055 REJOIN CLA STLOC REL DUMP
00155 0400 00 0 01003 ADD ADRUM
00156 0601 00 0 01003 STO ADRUM
00157 0500 00 0 01004 CLA BDRUM
00160 0400 00 0 01055 ADD STLOC
00161 0601 00 0 01004 STO BDRUM
00162 0020 00 0 00174 TRA ARJOIN
00163 0500 00 0 01003 ABSDMP CLA ADRUM
00164 0402 00 0 01472 SUB COMREL
00165 0601 00 0 01003 STO ADRUM
00166 0500 00 0 01004 CLA BDRUM
00167 0402 00 0 01472 SUB COMREL
00170 0601 00 0 01004 STO BDRUM
00171 -0625 00 0 01047 STL NCLIP JSMI
00172 0502 00 0 01472 CLS COMREL JSMI
00173 0601 00 0 01055 STO STLOC JSMI
00174 0500 60 0 00002 ARJOIN CLA* MOVIE)
00175 0400 00 0 04413 ADD =1
00176 0621 00 0 00177 STA *+1
00177 0500 00 0 00000 CLA **
00200 0402 00 0 01004 SUB BDRUM
00201 -0120 00 0 00237 TMI TOOBIG
00202 1 00001 1 00203 NOTBIG TXI *+1,1,1
00203 0634 00 1 00205 SXA *+2,1
00204 0074 00 4 03176 TSX GETCOM,4
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 4
00205 0 00000 0 00000 PZE **
00206 0602 00 0 01053 SLW TEMPS3
00207 0500 00 0 01053 CLA TEMPS3
00210 0402 00 0 04564 SUB =O777777777777
00211 0100 00 0 00420 TZE EXEC
00212 0500 00 0 01053 CLA TEMPS3
00213 0074 00 2 00314 TSX MODEC1,2
00214 1 00001 1 00215 TXI *+1,1,1
00215 0634 00 1 00217 SXA *+2,1
00216 0074 00 4 03176 TSX GETCOM,4
00217 0 00000 0 00000 PZE **
00220 0602 00 0 01053 SLW TEMPS3
00221 0500 00 0 01053 CLA TEMPS3
00222 0402 00 0 04564 SUB =O777777777777
00223 0100 00 0 00420 TZE EXEC
00224 0500 00 0 01053 CLA TEMPS3
00225 0402 00 0 04531 SUB =H REV
00226 -0100 00 0 00230 TNZ *+2
00227 -0625 00 0 01005 STL DIREC
00230 0020 00 0 00420 TRA EXEC
00231 0074 00 4 01476 FLXEND TSX (RSLT),4
00232 -0534 00 4 01006 LXD ENTRY,4
00233 0021 00 0 03177 TTR FNRTN
00234 0074 00 4 01474 FLXQUT TSX (RSLT.,4 RESTORE MACHINE CONDITIONS, DON'T SAVBRK
00235 -0534 00 4 01006 LXD ENTRY,4 AND IR4
00236 0021 00 0 03177 TTR FNRTN
00237 0074 00 4 03175 TOOBIG TSX WRFLX,4 THE LIMITS OF YOUR REQUEST ARE
00240 0 00011 0 01035 PZE LOVER,,9 *OUTSIDE OF CORE.
*CMPM MOD 13 COMMAND PM MARCH 27, 1963
* (MAIN)/ENTIRE/OCT
00241 0020 00 0 00231 TRA FLXEND
00242 0634 00 4 00270 INTRPF SXA INTRP1,4
00243 0634 00 1 00245 SXA *+2,1
00244 0074 00 4 03176 TSX GETCOM,4
00245 0 00000 0 00000 PZE **
00246 0602 00 0 01053 SLW TEMPS3
00247 0560 00 0 01053 LDQ TEMPS3
00250 0774 00 4 77777 AXT -1,4
00251 -0754 00 0 00000 SKWD ZAC
00252 -0763 00 0 00006 LGL 6
00253 1 00001 4 00254 TXI *+1,4,1
00254 0402 00 0 04425 SUB =H00000
00255 0100 00 0 00251 TZE SKWD
00256 -0634 00 4 00312 SXD FLTEM,4
00257 0754 00 4 00000 PXA ,4
00260 0131 00 0 00000 XCA
00261 0200 00 0 04420 MPY =6
00262 0131 00 0 00000 XCA
00263 0621 00 0 00265 STA *+2
00264 -0500 00 0 01053 CAL TEMPS3
00265 0767 00 0 00000 ALS **
00266 0602 00 0 00313 SLW FLTEM+1
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 5
00267 0074 00 4 02764 TSX (DCDR),4
00270 0774 00 4 00000 INTRP1 AXT **,4
00271 0020 00 4 00001 TRA 1,4
00272 0074 00 4 03175 FLEXE TSX WRFLX,4
00273 0 00007 0 00275 PZE FLXCI,,7
00274 0020 00 0 00231 TRA FLXEND EXIT FROM F2PM
00275 606330256047 FLXCI BCI 7, THE PROGRAM IS NOT IN THE MOVIE) TABLE.
00276 514627512144
00277 603162604546
00300 636031456063
00301 302560444665
00302 312534606321
00303 224325336060
00304 -0760 00 0 00003 FXLT SSM
00305 0601 00 0 01051 STO NOSTP
00306 0020 00 0 00311 TRA FXLAS
00307 -0760 00 0 00003 FXST SSM
00310 0601 00 0 01050 STO NOLFT
00311 0020 00 0 00355 FXLAS TRA AUTO
A ONE WORD LIST. FOR USE WITH DCDR.
00312 0 00000 0 00001 FLTEM PZE 1,,** DECREMENT STORED FOR (DCDR)
00313 0 00000 0 00000 PZE 0
00314 0601 00 0 01052 MODEC1 STO TEMPS1
00315 0402 00 0 04530 SUB =H OCT
00316 -0100 00 0 00321 TNZ KPCNT1
00317 0500 00 0 04413 CLA =1
00320 0020 00 0 00344 TRA STMODE
00321 0500 00 0 01052 KPCNT1 CLA TEMPS1
00322 0402 00 0 04526 SUB =H FIX
00323 -0100 00 0 00326 TNZ KPCNT2
00324 0500 00 0 04414 CLA =2
00325 0020 00 0 00344 TRA STMODE
00326 0500 00 0 01052 KPCNT2 CLA TEMPS1
00327 0402 00 0 04527 SUB =H FLO
00330 -0100 00 0 00333 TNZ KPCNT3
00331 0500 00 0 04415 CLA =3
00332 0020 00 0 00344 TRA STMODE
00333 0500 00 0 01052 KPCNT3 CLA TEMPS1
00334 0402 00 0 04524 SUB =H BCD
00335 -0100 00 0 00340 TNZ KPCN4
00336 0500 00 0 04416 CLA =4
00337 0020 00 0 00344 TRA STMODE
00340 0500 00 0 01052 KPCN4 CLA TEMPS1
00341 0402 00 0 04525 SUB =H DEC
00342 -0100 00 0 00345 TNZ STMODE+1
00343 0500 00 0 04417 CLA =5
00344 0601 00 0 01046 STMODE STO MODE
00345 0020 00 2 00001 TRA 1,2
*********************************************************
NORM POST-MORTEM OF INDEX REGISTER RANGE OF PROGRAM
WHOSE NAME IS IN L2
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 6
CALL NORM,L2
00346 -0520 00 0 01010 NORM NZT L2 IS THERE A NAME IN L2
00347 0020 00 0 00231 TRA FLXEND NO
00350 0500 00 0 01055 CLA STLOC
00351 0601 00 0 01003 STO ADRUM
00352 0400 00 0 04415 ADD =3
00353 0601 00 0 01004 STO BDRUM
00354 0020 00 0 00420 TRA EXEC
AUTO AUTOMATIC POST-MORTEM SECTION
STORAGE....OUT,NOLFT,NOSTP,L5,Q1,MODE,ILC,Q10,NCLIP,DIREC
TEMPS1,TEMPS2
AUTO 1. LIGHTS PM
2. IX REG RANGE OF THE STOP PROGRAM
3. 10 LOC AROUND THE STOP
SUBPROGRAMS...MOVE,PRLIT
00355 0074 00 4 01057 AUTO TSX ILLOC,4 PUTS NAME OF STOP PROGRAM IN L2
STORES THE STARTING ADDRESS IN STLOC AND FINAL IN FINLOC
* AUTOMATIC SECTION CODING FOR ILC. AND TRAPS. OCT 10/9/62
00356 -0520 00 0 03204 NZT ILCIN
00357 0020 00 0 00363 TRA AUTO2
00360 0074 00 4 02005 TSX ILC.,4
00361 0600 00 0 03204 STZ ILCIN
00362 0020 00 0 00231 TRA FLXEND
00363 -0520 00 0 03203 AUTO2 NZT TRAPSI
00364 0020 00 0 00370 TRA *+4
00365 0074 00 4 02056 TSX TRAPS.,4
00366 0600 00 0 03203 STZ TRAPSI
00367 0020 00 0 00231 TRA FLXEND
*
00370 0500 00 0 01050 CLA NOLFT IF NEG,L+GHTS NOT PRINTED.
00371 -0120 00 0 00373 TMI AUTO1
00372 0074 00 4 01552 TSX (PRLT),4
00373 0500 00 0 01051 AUTO1 CLA NOSTP IF NEG,STOP NOT PRINTED
00374 -0120 00 0 00231 TMI FLXEND
00375 0500 00 0 04413 CLA =1
00376 0601 00 0 01046 STO MODE
00377 0600 00 0 01005 STZ DIREC
00400 0500 00 0 01007 CLA ILC
00401 0402 00 0 04414 SUB =2 CHECKING FOR LOCATION EITHER IN THE F
00402 0120 00 0 00404 TPL *+2 VERY TOP OR BOTTOM OF CORE.
00403 0400 00 0 04414 ADD =2
00404 0601 00 0 01003 STO ADRUM
00405 0500 00 0 01007 CLA ILC
00406 0400 00 0 04414 ADD =2
00407 0340 00 0 04432 CAS =O77777
00410 0500 00 0 04432 CLA =O77777
00411 0761 00 0 00000 NOP
00412 0601 00 0 01004 STO BDRUM
00413 0074 00 4 03175 TSX WRFLX,4
00414 0 00004 0 00776 PZE COMMT,,4
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 7
00415 0600 00 0 01005 STZ DIREC
00416 0520 00 0 01010 ZET L2 IF ZERO GIVE ABSOLUTE DUMP
00417 -0625 00 0 01047 STL NCLIP
************************************************************************
************************************************************************
SUBROUTINE EXEC
A IS THE ADDR OF THE FIRST LOC TO BE DUMPED
B IS THE ADDR OF THE SECOND LOC TO BE DUMPED
* DIREC IS 0 FOR FORWARD,NON-0 FOR REVERSE MODE
NCLIP IS ZERO FOR ABSOLUTE MODE
IS NON ZERO FOR RELATIVE MODE
USES SUBROUTINES (I0H),(STPC),PRINT
USES IN STORAGE...ADDR,WORD,DIREC,MODE,OUTLST,L2
WHERE MODE IS.....0 FOR THE ALL MODE
1 FOR THE OCT MODE
2 FOR THE FIX MODE
3 FOR THE FLO MODE
4 FOR THE BCD MOD+
00420 0634 00 1 00671 EXEC SXA EXEC31,1
00421 0634 00 2 00672 SXA EXEC31+1,2
00422 0534 00 2 01046 LXA MODE,2
00423 0020 00 0 02606 EXEC3 TRA (STPC)
PRODUCE HEADINGS
00424 0774 00 1 00000 AXT 0,1 IX1 KEEPS COUNT OF THE WORD
00425 -0500 00 2 00753 HEDD CAL TAB+5,2 JSMI
00426 0621 00 0 00436 STA AXT JSMI
00427 0771 00 0 00022 ARS 18 JSMI
00430 0621 00 0 00437 STA AXT+1 JSMI
00431 -0500 00 0 04523 CAL =H REL. JSMI
00432 0602 00 1 02133 SLW OUTLST,1 JSMI
00433 -0500 00 0 04520 CAL =H ABS. JSMI
00434 0602 00 1 02134 SLW OUTLST+1,1 JSMI
00435 1 77776 1 00436 TXI AXT,1,-2 JSMI
00436 0774 00 4 00000 AXT AXT **,4 JSMI
00437 -0500 00 4 00000 CAL **,4 JSMI
00440 0602 00 1 02133 SLW OUTLST,1 JSMI
00441 1 77777 1 00442 TXI *+1,1,-1 JSMI
00442 2 00001 4 00437 TIX *-3,4,1 JSMI
00443 3 77766 1 00425 TXH HEDD,1,-10 JSMI
PRINTS OUT COMPLETE LINE
00444 0074 00 2 01771 EXPR TSX SPIT,2
00445 0534 00 2 01046 LXA MODE,2
00446 0774 00 1 00000 AXT 0,1
00447 0074 00 4 02641 PCUP TSX (PCUP),4
00450 0020 00 0 00671 TRA EXEC31 JSMI
00451 0020 00 0 00444 TRA EXPR END OF LINE
00452 0020 00 0 00447 TRA PCUP REENTER DUE TO REPEATED WORD
00453 0020 00 0 00674 TRA REPEAT REPEAT EXIT, PRINT REPEAT
NORMAL EXIT
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 8
00454 0500 00 0 01002 CLA ADDR GET RELATIVE ADDRESS
00455 0402 00 0 01055 SUB STLOC ORIGIN OF PROGRAM
00456 -0130 00 0 00000 XCL
00457 0074 00 4 01237 TSX OCTAD),4
00460 -0600 00 1 02133 STQ OUTLST,1 ANSWER IN MQ
00461 1 77777 1 00462 TXI *+1,1,-1
OCTAL OR ALL MODE
00462 0560 00 0 01002 LDQ ADDR ABSOLUTE ADDRESS
00463 0074 00 4 01237 TSX OCTAD),4
00464 -0600 00 1 02133 STQ OUTLST,1 ANSWER IN MQ
00465 1 77777 1 00466 TXI *+1,1,-1
00466 0020 00 2 00474 TRA *+6,2
00467 0020 00 0 00573 TRA DECOUT 5,DEC
00470 0020 00 0 00562 TRA BCDOUT
00471 0020 00 0 00552 TRA FLOOUT 3,FLO
00472 0020 00 0 00557 TRA FIXOUT 2,FIX
00473 0020 00 0 00522 TRA OCTOUT 1,OCT
00474 -0500 00 0 01054 CAL WORD
00475 0074 00 4 02162 TSX (OPCD),4
00476 0602 00 0 01053 SLW TEMPS3
00477 -0634 00 1 00775 SXD LSTIR,1 SAVE IX1, PLACE IN LIST
00500 0500 00 0 04434 CLA =O2000000 OUTPUT TAPE NUMBER
00501 0074 00 4 00621 TSX (DUMM),4
T 00502 0074 00 0 00665 TSX FMT
00503 0560 00 0 01053 LDQ TEMPS3
00504 -1 00000 0 00000 STR
00505 0560 00 0 01054 LDQ WORD
00506 -1 00000 0 00000 STR
00507 0560 00 0 01054 LDQ WORD
00510 -1 00000 0 00000 STR
00511 0560 00 0 01054 LDQ WORD
00512 0763 00 0 00022 LLS 18
00513 -1 00000 0 00000 STR
00514 0074 00 4 00000 TSX $(FIL),4
00515 -0534 00 1 00775 LXD LSTIR,1
00516 0560 00 0 01054 LDQ WORD
00517 -0154 06 0 01263 CRQ TB2,,6 INSERT *'S FOR ILLEGAL CHARACTERS
00520 -0600 00 1 02133 STQ OUTLST,1
00521 1 77777 1 00447 TXI PCUP,1,-1
OCTAL MODE ENTRY
00522 -0500 00 0 01054 OCTOUT CAL WORD
00523 0074 00 4 02162 TSX (OPCD),4
00524 0602 00 1 02133 SLW OUTLST,1
00525 1 77777 1 00526 TXI *+1,1,-1
00526 0560 00 0 01054 LDQ WORD OCTAL LOCATION
00527 0774 00 2 00002 AXT 2,2
00530 0774 00 4 00006 OTOT AXT 6,4 CONVERTING
00531 0767 00 0 00003 ALS 3
00532 -0763 00 0 00003 LGL 3
00533 2 00001 4 00531 TIX *-2,4,1
00534 0602 00 1 02133 SLW OUTLST,1
00535 1 77777 1 00536 TXI *+1,1,-1
00536 2 00001 2 00530 TIX OTOT,2,1
00537 0020 00 0 00447 TRA PCUP
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 9
FLOATING POINT WORD SETUP
00540 0621 00 0 00544 OUTALL STA *+4
00541 -0634 00 1 00775 SXD LSTIR,1
00542 0500 00 0 04434 CLA =O2000000
00543 0074 00 4 00621 TSX (DUMM),4
T 00544 0074 00 0 00000 TSX **
00545 0560 00 0 01054 LDQ WORD INPUT ARGUMENT
00546 -1 00000 0 00000 STR
00547 0074 00 4 00000 TSX $(FIL),4
00550 -0534 00 1 00775 LXD LSTIR,1
00551 0020 00 0 00447 TRA PCUP
00552 0500 00 0 00554 FLOOUT CLA *+2
00553 0020 00 0 00540 TRA OUTALL
00554 0 00000 0 00555 PZE FMT2
00555 740167250105 FMT2 BCI 2,(1XE15.9,1X)
00556 331173016734
FIXED OUTPUT LINE
00557 0500 00 0 00561 FIXOUT CLA *+2
00560 0020 00 0 00540 TRA OUTALL
00561 0 00000 0 00754 PZE FIXLN
00562 0560 00 0 01054 BCDOUT LDQ WORD
00563 -0154 06 0 01263 CRQ TB2,,6 INSERT *'S FOR ILLEGAL CHARACTERS
00564 -0130 00 0 00000 XCL
00565 0560 00 0 04533 LDQ =H
00566 -0765 00 0 00014 LGR 12
00567 -0501 00 0 04515 ORA =H 0000
00570 0602 00 1 02133 SLW OUTLST,1
00571 -0600 00 1 02134 STQ OUTLST+1,1
00572 1 77776 1 00447 TXI PCUP,1,-2
DECIMAL OUTPUT
00573 -0500 00 0 01054 DECOUT CAL WORD ARE THE PREFIX,TAG,ADDRESS=0
00574 -0320 00 0 04454 ANA =O300007777777
00575 0100 00 0 00614 TZE DECINT YES---FORTRAN COMPILED PROGRAM
00576 -0500 00 0 01054 CAL WORD ARE THE PREFIX,TAG,DECREMENT=0
00577 -0320 00 0 04456 ANA =O377777700000
00600 -0100 00 0 00605 TNZ DFLO NO
00601 0500 00 0 01054 CLA WORD JSMI
00602 0767 00 0 00022 ALS 18 YES MAD COMPILED
00603 0601 00 0 01054 STO WORD JSMI
00604 0020 00 0 00614 TRA DECINT IS THIS A FLOATING POINT NO.
00605 -0320 00 0 04455 DFLO ANA =O377000000000 IS 1-8 NOT EQUAL TO ZERO
00606 -0100 00 0 00552 TNZ FLOOUT FLOATING POINT OUTPUT
00607 0500 00 0 00611 CLA *+2
00610 0020 00 0 00540 TRA OUTALL
00611 0 00000 0 00612 PZE OCTLN
00612 740367734601 OCTLN BCI 2,(3X,O12,3X)
00613 027303673460
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 10
00614 0500 00 0 00616 DECINT CLA *+2
00615 0020 00 0 00540 TRA OUTALL
00616 0 00000 0 00617 PZE DECIM
00617 740467733107 DECIM BCI 2,(4X,I7,7X)
00620 730767346060
00621 -0500 00 0 00642 (DUMM) CAL IOHFMT FOR EITHER IBM OR MICH IOH
00622 0602 00 0 77737 SLW FMT.
00623 -0500 00 0 00643 CAL IOHCOL
00624 0602 00 0 77741 SLW COL.
00625 -0634 00 4 00644 SXD IOHRTN,4
00626 -0500 00 4 00001 CAL 1,4
00627 0621 00 0 00644 STA IOHRTN
00630 -0500 00 0 00644 CAL IOHRTN
00631 -0634 00 4 00644 SXD IOHRTN,4 JSMI
00632 0602 00 0 77740 SLW RTN.
00633 -0535 00 4 77740 LDC RTN.,4
00634 1 00002 4 00635 TXI *+1,4,2
00635 0634 00 4 00000 SXA 0,4
00636 -0534 00 4 77740 LXD RTN.,4
00637 0560 00 0 00641 LDQ *+2
00640 0020 60 0 00001 TRA* $(IOH)
00641 0020 00 0 00645 TRA DUMM
00642 -3 77777 0 00645 IOHFMT TXL DUMM,,-1
00643 -3 00204 0 00000 IOHCOL TXL ,,132
00644 3 00000 0 00000 IOHRTN TXH **,,**
00645 0634 00 4 00663 DUMM SXA DU3,4
00646 0634 00 1 00662 SXA DU2,1
00647 0500 00 4 00001 CLA 1,4 ADDR CONTAINS LOCATION OF FIRST WORD
00650 0771 00 0 00022 ARS 18 *OF OUTPUT STRING, DECREMENT CONTAIN NO. OF
00651 0400 00 4 00001 ADD 1,4 WORDS IN OUTPUT STRING
00652 -0734 00 4 00000 PDX 0,4
00653 0621 00 0 00655 STA *+2
00654 -0534 00 1 00775 LXD LSTIR,1
00655 0500 00 4 00000 DU1 CLA **,4
00656 0601 00 1 02133 STO OUTLST,1 PLACE IN OUTPUT STRING
00657 1 77777 1 00660 TXI *+1,1,-1
00660 2 00001 4 00655 TIX DU1,4,1
00661 -0634 00 1 00775 SXD LSTIR,1
00662 0774 00 1 00000 DU2 AXT **,1
00663 0774 00 4 00000 DU3 AXT **,4
00664 0020 00 4 00002 TRA 2,4
00665 742105730167 FMT BCI 4,(A5,1XO12,1XE15.9,I7,1X)
00666 460102730167
00667 250105331173
00670 310773016734
END OF BLOCK ENTRY
00671 0774 00 1 00000 EXEC31 AXT **,1
00672 0774 00 2 00000 AXT **,2
00673 0020 00 0 00231 TRA FLXEND
REPEATED ZEROS ENTRY, PRINT WDS...REPEAT
00674 0774 00 4 00006 REPEAT AXT 6,4
00675 0500 00 4 00725 CLA DNREP1+6,4
00676 0601 00 1 02133 STO OUTLST,1 THE NEXT XXXXX CELLS
00677 1 77777 1 00700 TXI *+1,1,-1 CONTAIN ..........
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 11
00700 2 00001 4 00675 TIX *-3,4,1
00701 -0634 00 1 00775 SXD LSTIR,1
00702 0500 00 2 00732 CLA REPTBL,2
00703 0734 00 1 00000 PAX ,1
00704 0634 00 1 00710 SXA REPFMT,1
00705 -0734 00 1 00000 PDX ,1
00706 0500 00 0 04434 CLA =O2000000
00707 0074 00 4 00621 TSX (DUMM),4
T 00710 0074 00 0 00000 REPFMT TSX **
00711 0560 00 0 01054 LDQ WORD
00712 -1 00000 0 00000 STR
00713 2 00001 1 00711 TIX *-2,1,1
00714 0074 00 4 00000 TSX $(FIL),4
00715 -0534 00 1 00775 LXD LSTIR,1
00716 0020 00 0 00444 TRA EXPR
00717 606060633025 DNREP1 BCI 2, THE NEXT
00720 604525676360
00721 606060606060 DNREP BCI 1,
00722 602325434362 BCI 3, CELLS CONTAIN
00723 602346456321
00724 314560606060
00725 0 00000 0 04561 PZE =H(O12) DECIMAL MODE
00726 0 00000 0 04555 PZE =H(A6) BCD MODE
00727 0 00001 0 00555 PZE FMT2,,1 FLO MODE
00730 0 00001 0 00754 PZE FIXLN,,1 FIX MODE
00731 0 00000 0 04561 PZE =H(O12) OCTAL MODE
00732 0 00000 0 00733 REPTBL PZE ALLFMT,,0 ALL MODE FOR REPEATED ZEROS
00733 740167460102 ALLFMT BCI 5,(1XO12,1XE15.9,1XI7,1XA6,4X)
00734 730167250105
00735 331173016731
00736 077301672106
00737 730467346060
00740 0 00002 0 00000 PZE ,,2 DEC
00741 0 00003 0 00000 PZE ,,3 BCD
00742 0 00002 0 00000 PZE ,,2 FLO
00743 0 00003 0 00000 PZE ,,3 FIX
00744 0 00002 0 00000 PZE ,,2 OCT
00745 0 00001 0 00000 TAB1 PZE ,,1 ALL DECREMENT IS COL NUMBER
00746 0 00771 0 00003 TAB PZE 3,,LHDEC+3 JSMI
00747 0 00773 0 00002 PZE 2,,LHBCD+2 JSMI
00750 0 00764 0 00003 PZE 3,,LHFLO+3 JSMI
00751 0 00775 0 00002 PZE 2,,LHFIX+2 JSMI
00752 0 00761 0 00003 PZE 3,,LHOCT+3 JSMI
00753 0 00766 0 00010 PZE 8,,LHALL+8 JSMI
00754 740167733107 FIXLN BCI 2,(1X,I7,4X)
00755 730467346060
00756 LHALL SYN * JSMI
00756 604647232460 LHOCT BCI 3, OPCD OCTAL
00757 606046236321
00760 436060606060
00761 606026434621 LHFLO BCI 3, FLOATING POINT
00762 633145276047
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 12
00763 463145636060
00764 606026316733 BCI 2, FIX. BCD
00765 606022232460
00766 606060242523 LHDEC BCI 3, DECIMAL MODE
00767 314421436060
00770 444624256060
00771 606022232460 LHBCD BCI 2, BCD
00772 606060606060
00773 602631672524 LHFIX BCI 2, FIXED POINT
00774 604746314563
00775 0 00000 0 00000 LSTIR PZE
00776 606366466043 COMMT BCI 4, TWO LOC. AROUND STOP.
00777 462333602151
01000 466445246062
01001 634647336060
************************************************************************
01002 0 00000 0 00000 ADDR
01003 0 00000 0 00000 ADRUM PZE FIRST
01004 0 00000 0 00000 BDRUM PZE *AND LAST LOC. OF BLOCK TO BE PM
01005 0 00000 0 00000 DIREC PZE FWD OR REVERSE SEQUENCE (+ OR -)
01006 0 00000 0 00000 ENTRY PZE MANUAL OR CALL ENTRY (-OR+)
01007 0 00000 0 00000 ILC
01010 0 00000 0 00000 L2 PZE
01011 BSS 20
01035 606330256043 LOVER BCI 9, THE LIMITS OF YOUR PM REQUEST ARE OUTSIDE OF CORE.
01036 314431636260
01037 462660704664
01040 516047446051
01041 255064256263
01042 602151256046
01043 646362312425
01044 604626602346
01045 512533606060
01046 0 00000 0 00000 MODE PZE FORMAT FOR EXECUTE A,,B CONTAINS
*K1-4 FOR TAPE WHICH APPEARS
AS 11,12,13,14
01047 0 00000 0 00000 NCLIP PZE NAME LENGTH=SOMETIMES USED TO PRODUCE
*RELOCATABLE ADDRESSES
01050 0 00000 0 00000 NOLFT PZE NO LIGHTS OFFLINE USED IN NORM IF NEGP
01051 0 00000 0 00000 NOSTP PZE IF NEGATIVE, NO STOP RANGE OR NORMAL PM
*OF STOP STOP PM
01052 0 00000 0 00000 TEMPS1
01053 0 00000 0 00000 TEMPS3
01054 0 00000 0 00000 WORD
01055 0 00000 0 00000 STLOC PZE STARTING LOCATION
01056 0 00000 0 00000 FINLOC PZE FINAL LOCATION PUT HERE BY ILLOC AND SZLOC
ILLOC ILC LOCATE------GIVEN ILC SUBPROGRAM PUTS
STARTING ADDRESS OF PROGRAM IN STLOC AND FINAL IN
FINLOC. ALL NAMES ARE IN L2. IF NO PROGRAM THEN
A MINUS IS PUT IN FINLOC AND STLOC AND ZERO IN L2.
INPUT........ILC,WHICH CONTAINS THE
PROGRAM TERMINATION ADDRESS. THE SUBROUTINE
LOCATES THE PROG IN WITH TO STOP OCCURED. IF THE STOP
IS OUTSIDE THE RANGE OF THE PROGRAM, A MINUS IS
STORED IN FINLOC AND STLOC AND A ZERO IN L2
01057 0634 00 1 01154 ILLOC SXA STIEND,1
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 13
01060 0634 00 2 01155 SXA STIEND+1,2
01061 0500 60 0 00002 CLA* $MOVIE)
01062 -0320 00 0 04432 ANA =O77777
01063 0402 00 0 01007 SUB ILC
01064 0120 00 0 01157 TPL OGILC1
01065 0500 60 0 00002 CLA* MOVIE)
01066 0400 00 0 04413 ADD =1
01067 0621 00 0 01070 STA *+1
01070 0500 00 0 00000 CLA **
01071 0402 00 0 01007 SUB ILC
01072 -0120 00 0 01157 TMI OGILC1
01073 0600 00 0 01056 STZ FINLOC
01074 0600 00 0 01055 STZ STLOC
01075 0500 60 0 00002 CLA* $MOVIE)
01076 0622 00 0 01110 STD LETHMV LENGTH OF MOVIE TABLE
01077 0771 00 0 00022 ARS 18
01100 0401 60 0 00002 ADM* $MOVIE) ST. ADDRESS OF MOVIE TABLE
01101 0621 00 0 01111 STA STINF1
01102 0621 00 0 01115 STA STINF2
01103 0400 00 0 04413 ADD =1
01104 0621 00 0 01121 STA ORGFD
01105 0774 00 2 00000 AXT 0,2
01106 0774 00 1 77777 AXT -1,1
01107 1 00002 2 01110 TXI *+1,2,2
01110 3 00000 2 01157 LETHMV TXH OGILC1,2,**
01111 0500 00 2 00000 STINF1 CLA **,2
01112 0100 00 0 01107 TZE LETHMV-1
01113 0402 00 0 04550 SUB =O700000000000 TXL INSTRUCTION
01114 0100 00 0 01121 TZE ORGFD LOCATED AN ORIGIN
01115 -0500 00 2 00000 STINF2 CAL **,2
01116 -0320 00 0 04550 ANA =O700000000000 TXL INSTRUCTION
01117 0100 00 0 01121 TZE ORGFD
01120 1 00002 2 01110 TXI LETHMV,2,2 BCD NAME FOUND
01121 0500 00 2 00000 ORGFD CLA **,2 ORIGIN FOUND
01122 0340 00 0 01007 CAS ILC
01123 0020 00 0 01127 TRA FNFND
01124 0020 00 0 01125 TRA *+1 ORIGIN = ILC
01125 0621 00 0 01055 STA STLOC ORIGIN LESS THAN ILC
01126 1 00004 2 01110 TXI LETHMV,2,4
01127 0402 00 0 04413 FNFND SUB =1
01130 0621 00 0 01056 STA FINLOC
01131 1 77776 2 01132 TXI *+1,2,-2
01132 -3 77762 1 01147 ANONM TXL FIXL2,1,-14 NOT MORE THAN 14 NAMES PRINTED
01133 0522 00 0 01115 XEC STINF2 GET BCD NAME ASSOCIATED WITH LOC
01134 -0100 00 0 01136 TNZ SLWLST
01135 -0500 00 0 04560 CAL =H(MAIN)
01136 0602 00 1 01010 SLWLST SLW L2,1
01137 1 77777 1 01140 TXI *+1,1,-1
01140 1 77776 2 01141 TXI *+1,2,-2
01141 0522 00 0 01111 XEC STINF1
01142 0402 00 0 04550 SUB =O700000000000 TXL INSTRUCTION
01143 0100 00 0 01147 TZE FIXL2 NO MORE NAMES
01144 0522 00 0 01115 XEC STINF2
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 14
01145 -0320 00 0 04550 ANA =O700000000000 TXL INSTRUCTION
01146 -0100 00 0 01132 TNZ ANONM ANOTHER NAME
01147 0600 00 0 01010 FIXL2 STZ L2
01150 0754 00 1 00000 PXA ,1
01151 0760 00 0 00006 COM
01152 0621 00 0 01010 STA L2
01153 -0625 00 0 01047 STL NCLIP
01154 0774 00 1 00000 STIEND AXT **,1
01155 0774 00 2 00000 AXT **,2
01156 0020 00 4 00001 TRA 1,4 ....................RETURN...............
01157 0600 00 0 01010 OGILC1 STZ L2
01160 -0760 00 0 00003 SSM
01161 0601 00 0 01056 STO FINLOC
01162 0601 00 0 01055 STO STLOC
01163 0020 00 0 01154 TRA STIEND
SUBPROGRAM SZLOC
CALLING SEQUENCE TSX SZLOC,4
RETURN 1,4
INPUTS - NAME OF PROGRAM IN L2
OUTPUTS - ALL ASSOCIATED NAMES MOVED INTO L2
-STARTING LOCATION OF PROGRAM IN STLOC
-FINAL LOCATION OF PROGRAM IN FNLOC
IF THE NAME CANNOT BE FOUND IN THE SYMBOL
TABLE, A MINUS IS STORED IN THE SIGN OF STLOC AND FNLOC
01164 0634 00 1 01154 SZLOC SXA STIEND,1
01165 0634 00 2 01155 SXA STIEND+1,2
01166 0600 00 0 01056 STZ FINLOC
01167 0600 00 0 01055 STZ STLOC
01170 -0520 00 0 01010 NZT L2
01171 0020 00 0 01157 TRA OGILC1 NO NAME IN L2
01172 0774 00 2 00002 AXT 2,2
01173 0500 60 0 00002 CLA* $MOVIE)
01174 0622 00 0 01211 STD SZLOC2
01175 0771 00 0 00022 ARS 18
01176 0401 60 0 00002 ADM* MOVIE)
01177 0621 00 0 01111 STA STINF1
01200 0621 00 0 01115 STA STINF2
01201 0400 00 0 04413 ADD =1
01202 0621 00 0 01222 STA SZLOC5
01203 0522 00 0 01111 SZLOC1 XEC STINF1 CLA
01204 -0100 00 0 01206 TNZ *+2
01205 0500 00 0 04560 CLA =H(MAIN)
01206 0402 00 0 01011 SUB L2+1
01207 0100 00 0 01213 TZE SZLOC3
01210 1 00002 2 01211 TXI *+1,2,2
01211 -3 00000 2 01203 SZLOC2 TXL SZLOC1,2,**
01212 0020 00 0 01157 TRA OGILC1
01213 1 77776 2 01214 SZLOC3 TXI *+1,2,-2 SEARCHING FOR THE TXL OR T.V. WORD
01214 0522 00 0 01115 XEC STINF2 CAL
01215 -0320 00 0 04550 ANA =O700000000000 TXL
01216 0100 00 0 01222 TZE SZLOC5
01217 0522 00 0 01111 XEC STINF1
01220 0402 00 0 04550 SUB =O700000000000 TXL INSTRUCTION
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 15
01221 -0100 00 0 01213 TNZ SZLOC3
01222 0500 00 2 00000 SZLOC5 CLA **,2
01223 0601 00 0 01055 STO STLOC
01224 1 00004 2 01225 TXI *+1,2,4
01225 0522 00 0 01115 SZLOC6 XEC STINF2 CAL
01226 -0320 00 0 04550 ANA =O700000000000 TXL
01227 0100 00 0 01234 TZE SZLOC7
01230 0522 00 0 01111 XEC STINF1 CLA
01231 0402 00 0 04550 SUB =O700000000000 TXL
01232 0100 00 0 01234 TZE SZLOC7
01233 1 00002 2 01225 TXI SZLOC6,2,2
01234 0522 00 0 01222 SZLOC7 XEC SZLOC5
01235 0774 00 1 77777 AXT -1,1
01236 0020 00 0 01127 TRA FNFND
OCTD
CALLING SEQUENCE TSX $OCTAD,4
ARGUMENT IN MQ.
ANSWER IN MQ
CONVERTS 15 BIT BINARY NUMBER TO 5 OCTAL
DIGITS WITH LEADING ZEROES SUPPRESSED.
56 CYCLES
01237 0634 00 1 01251 OCTAD) SXA (OT1),1
01240 -0773 00 0 00025 RQL 21 IF ARG. IN ADDRESS.
01241 -0754 00 0 00000 ZAC
01242 0774 00 1 00005 AXT 5,1
01243 0767 00 0 00003 ALS 3
01244 -0763 00 0 00003 LGL 3
01245 2 00001 1 01243 TIX *-2,1,1
01246 -0130 00 0 00000 XCL
01247 -0154 05 0 01253 CRQ TB1,,5
01250 -0773 00 0 00006 RQL 6
01251 0774 00 1 00000 (OT1) AXT **,1
01252 0020 00 4 00001 TRA 1,4 OCTAD
01253 -2 00000 0 01253 TB1 SIX TB1 BLANK=ZERO
01254 010000001263 VFD H6/1,30/TB2 1
01255 020000001263 VFD H6/2,30/TB2 2
01256 030000001263 VFD H6/3,30/TB2 3
01257 040000001263 VFD H6/4,30/TB2 4
01260 050000001263 VFD H6/5,30/TB2 5
01261 060000001263 VFD H6/6,30/TB2 6
01262 070000001263 VFD H6/7,30/TB2 7
01263 000000001263 TB2 VFD H6/0,30/TB2 0
01264 010000001263 VFD H6/1,30/TB2 1
01265 020000001263 VFD H6/2,30/TB2 2
01266 030000001263 VFD H6/3,30/TB2 3
01267 040000001263 VFD H6/4,30/TB2 4
01270 050000001263 VFD H6/5,30/TB2 5
01271 060000001263 VFD H6/6,30/TB2 6
01272 070000001263 VFD H6/7,30/TB2 7
01273 100000001263 VFD H6/8,30/TB2 8 10 OCTAL
01274 110000001263 VFD H6/9,30/TB2 9 11 OCTAL
01275 540000001263 VFD H6/*,30/TB2 12 OCTAL, ILLEGAL
01276 130000001263 VFD H6/=,30/TB2 13 OCTAL,=
01277 140000001263 VFD H6/',30/TB2 14 OCTAL,'DASH
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 16
01300 540000001263 VFD H6/*,30/TB2 15, ILLEGAL
01301 540000001263 VFD H6/*,30/TB2 16, ILLEGAL
01302 540000001263 VFD H6/*,30/TB2 17, ILLEGAL
01303 200000001263 VFD H6/+,30/TB2 20,+
01304 210000001263 VFD H6/A,30/TB2 21,A
01305 220000001263 VFD H6/B,30/TB2 22,B
01306 230000001263 VFD H6/C,30/TB2 23,C
01307 240000001263 VFD H6/D,30/TB2 24,D
01310 250000001263 VFD H6/E,30/TB2 25,E
01311 260000001263 VFD H6/F,30/TB2 26,F
01312 270000001263 VFD H6/G,30/TB2 27,G
01313 300000001263 VFD H6/H,30/TB2 30,H
01314 310000001263 VFD H6/I,30/TB2 31,I
01315 540000001263 VFD H6/*,30/TB2 32, ILLEGAL
01316 330000001263 VFD H6/.,30/TB2 33,.
01317 340000001263 VFD H6/),30/TB2 34,)
01320 540000001263 VFD H6/*,30/TB2 35, ILLEGAL
01321 540000001263 VFD H6/*,30/TB2 36, ILLEGAL
01322 540000001263 VFD H6/*,30/TB2 37, ILLEGAL
01323 400000001263 VFD H6/-,30/TB2 40,-MINUS
01324 410000001263 VFD H6/J,30/TB2 41,J
01325 420000001263 VFD H6/K,30/TB2 42,K
01326 430000001263 VFD H6/L,30/TB2 43,L
01327 440000001263 VFD H6/M,30/TB2 44,M
01330 450000001263 VFD H6/N,30/TB2 45,N
01331 460000001263 VFD H6/O,30/TB2 46,O
01332 470000001263 VFD H6/P,30/TB2 47,P
01333 500000001263 VFD H6/Q,30/TB2 50,Q
01334 510000001263 VFD H6/R,30/TB2 51,R
01335 540000001263 VFD H6/*,30/TB2 52, ILLEGAL
01336 530000001263 VFD H6/$,30/TB2 53,$
01337 540000001263 VFD H6/*,30/TB2 54,*
01340 540000001263 VFD H6/*,30/TB2 55, ILLEGAL
01341 540000001263 VFD H6/*,30/TB2 56, ILLEGAL
01342 540000001263 VFD H6/*,30/TB2 57, ILLEGAL
01343 -2 00000 0 01263 SIX TB2 60, BLANK
01344 610000001263 VFD H6//,30/TB2 61,/
01345 620000001263 VFD H6/S,30/TB2 62,S
01346 630000001263 VFD H6/T,30/TB2 63,T
01347 640000001263 VFD H6/U,30/TB2 64,U
01350 650000001263 VFD H6/V,30/TB2 65,V
01351 660000001263 VFD H6/W,30/TB2 66,W
01352 670000001263 VFD H6/X,30/TB2 67,X
01353 700000001263 VFD H6/Y,30/TB2 70,Y
01354 710000001263 VFD H6/Z,30/TB2 71,Z
01355 540000001263 VFD H6/*,30/TB2 72, ILLEGAL
01356 -3 30000 0 01263 SVN TB2,,3*64*64 73, COMMA
01357 740000001263 VFD H6/(,30/TB2 74,(
01360 540000001263 VFD H6/*,30/TB2 75, ILLEGAL
01361 540000001263 VFD H6/*,30/TB2 76, ILLEGAL
01362 540000001263 VFD H6/*,30/TB2 77, ILLEGAL
.................. (SVLT) .............................
* SVLT RECODED 10/9/62 FOR PRLT
CALLING SEQUENCE...CALL (SVLT) ENTRY,ILC
WHERE ENTRY IS-IF FROM CALL FTNPM,IR4 INDECR.
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 17
IS+IF FROM EXIT OR MANUAL,IR4 INDECR.
01363 -0600 00 0 02123 (SVLT) STQ MQ(SV
01364 0604 00 0 02131 STI SNSIND SAVE SENSE INDICATOR
01365 0634 00 1 02157 SXA IR1,1 SAVE INDEX REGISTERS
01366 0634 00 2 02160 SXA IR2,2
01367 0602 00 0 02124 SLW LOGAC SAVE S,Q,LOGAC
01370 0771 00 0 00002 ARS 2 MOVE Q INTO S AND SVE EVERYTHING
01371 0601 00 0 02125 STO SQ SAVE Q
01372 0634 00 4 01466 SXA RESIX4,4
01373 0074 00 4 03200 TSX GETILC,4 GET CONTENTS OF ILC IN ADDRESS OF AC
01374 0621 00 0 01007 STA ILC
01375 0074 00 4 04315 TSX SAVBRK,4 RESOTRE BREAK TO ORIGINAL
01376 0602 00 0 01504 SLW (RSL1 FOR SKIPPM SEQUENCE
01377 0074 00 4 04314 TSX SETBRK,4 AND SET IT
01400 0 00000 0 00234 FLXQUT GO HERE IF THE USER HITS QUIT
01401 -0500 00 0 00000 CAL 0
01402 0602 00 0 02126 SLW 0SV
01403 -0500 00 0 00002 CAL 2
01404 0602 00 0 02127 SLW 2SV
01405 -0500 00 0 00010 CAL 8
01406 0602 00 0 02130 SLW 8SV
01407 -0500 00 0 01420 CAL SV3
01410 0602 00 0 00010 SLW 8 SET FLOATING TRAP MODE
01411 0600 00 0 01470 STZ OVFL JSMI
01412 -0140 00 0 01414 TNO *+2 JSMI
01413 -0625 00 0 01470 STL OVFL JSMI
01414 0500 00 0 04564 CLA =O777777777777
01415 0300 00 0 04564 FAD =O777777777777
01416 -0754 00 0 00000 ZAC
01417 0020 00 0 01422 TRA SV4 NOT IN FLM IF WE GO TO SV4
01420 0021 00 0 01421 SV3 TTR *+1
01421 -0500 00 0 04413 CAL =1 IF IN FLM
01422 0767 00 0 00001 SV4 ALS 1 0 IF NOT IN FLM
01423 0602 00 0 01052 SLW TEMPS1
01424 0074 00 4 03201 TSX (LFTM),4
01425 -0500 00 0 01052 CAL TEMPS1
01426 0760 00 0 00012 DCT
01427 0400 00 0 04413 ADD =1
01430 0767 00 0 00001 ALS 1
01431 -0520 00 0 01470 NZT OVFL JSMI
01432 0400 00 0 04413 ADD =1
01433 0767 00 0 00001 ALS 1
01434 -0760 00 0 00141 SLT 1
01435 0400 00 0 04413 ADD =1
01436 0767 00 0 00001 ALS 1
01437 -0760 00 0 00142 SLT 2
01440 0400 00 0 04413 ADD =1
01441 0767 00 0 00001 ALS 1
01442 -0760 00 0 00143 SLT 3
01443 0400 00 0 04413 ADD =1
01444 0767 00 0 00001 ALS 1
01445 -0760 00 0 00144 SLT 4
01446 0400 00 0 04413 ADD =1
01447 0767 00 0 00001 ALS 1
01450 0767 00 0 00034 ALS 28
01451 0602 00 0 02132 SLW IND
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 18
01452 0500 00 0 01006 CLA ENTRY
01453 0120 00 0 01457 TPL SV6 NOT A FTNPM CALL
01454 -0737 00 1 00000 PDC 0,1
01455 0754 00 1 00000 PXA 0,1
01456 0601 00 0 01007 STO ILC
01457 0500 00 0 02130 SV6 CLA 8SV
01460 0601 00 0 00010 STO 8
* RESORING LOCATIONS 2,8 BUT NOT ZERO
01461 -0500 00 0 02127 CAL 2SV
01462 0602 00 0 00002 SLW 2
01463 0500 00 0 01471 CLA ABSCOM
01464 0402 00 0 01473 SUB RELCOM
01465 0601 00 0 01472 STO COMREL
01466 0774 00 4 00000 RESIX4 AXT **,4
01467 0020 00 4 00001 TRA 1,4 RETURN
01470 0 00000 0 00000 OVFL PZE JSMI
01471 +000000077461 ABSCOM OCT 77461
01472 0 00000 0 00000 COMREL PZE 0
01473 0 00000 0 77461 RELCOM PZE A
.................. (RSLT) ..............................
(RSLT) MODIFIED MARCH 23,1961
CALLING SEQUENCE...CALL (RSLT)
01474 0634 00 4 01550 (RSLT. SXA (RSLT4,4
01475 0020 00 0 01503 TRA (RSL1-1
01476 0634 00 4 01550 (RSLT) SXA (RSLT4,4
01477 0074 00 4 04315 TSX SAVBRK,4 SAVE THE BREAK CHARACTER
01500 0761 00 0 00000 NOP
01501 -0520 00 0 01504 NZT (RSL1
01502 0020 00 0 01505 TRA *+3
01503 0074 00 4 04314 TSX SETBRK,4
01504 0 00000 0 00000 (RSL1 **
01505 0600 00 0 04341 STZ PAKSET
01506 0441 00 0 02131 LDI SNSIND
01507 0500 00 0 01507 CLA *
01510 0241 00 0 04412 FDP =0 SET DIVIDE CHECK 01
01511 0560 00 0 02132 LDQ IND GET SAVED INDICATORS
01512 0162 00 0 01514 TQP *+2 SIGN OF MQ CONTAINS FLOATING PT TRAP
01513 0074 00 4 03202 TSX (EFTM),4
01514 -0773 00 0 00001 RQL 1
01515 0162 00 0 01517 TQP *+2
01516 0020 00 0 01520 TRA *+2
01517 0760 00 0 00012 DCT
01520 0500 00 0 04564 CLA =O777777777777 ON, SET AC TO MOVE INTO P BY LLS
01521 0763 00 0 00002 LLS 2
01522 0760 00 0 00140 SLF TO RESET ALL SENSE LITES
01523 0760 00 0 00001 LBT
01524 0760 00 0 00141 SLN 1
01525 0763 00 0 00001 LLS 1
01526 0760 00 0 00001 LBT
01527 0760 00 0 00142 SLN 2
01530 0763 00 0 00001 LLS 1
01531 0760 00 0 00001 LBT
01532 0760 00 0 00143 SLN 3
01533 0763 00 0 00001 LLS 1
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 19
01534 0760 00 0 00001 LBT
01535 0760 00 0 00144 SLN 4
01536 0534 00 1 02157 LXA IR1,1 SET IX 1+2
01537 0534 00 2 02160 LXA IR2,2
01540 0500 00 0 02125 CLA SQ
01541 0767 00 0 00002 ALS 2
01542 -0501 00 0 02124 ORA LOGAC SET ACCUMULATOR
01543 0560 00 0 02132 LDQ IND
01544 -0773 00 0 00002 RQL 2
01545 0162 00 0 01547 TQP *+2
01546 0140 00 0 01547 TOV *+1 OFF AC OVERFLO
01547 0560 00 0 02123 LDQ MQ(SV
01550 0774 00 4 00000 (RSLT4 AXT **,4
01551 0021 00 4 00001 TTR 1,4 RETURN
*
* CALL (PRLT) PRINTS ILC AND LIGHTS
*
01552 0634 00 4 01765 (PRLT) SXA (PRLT4,4
01553 0074 00 4 02005 TSX ILC.,4 ILC OR STOP IS PRINTED
01554 0634 00 1 01766 SXA (PRLT4+1,1
01555 0634 00 2 01767 SXA (PRLT4+2,2
01556 0774 00 1 00000 AXT 0,1
01557 -0500 00 0 04473 CAL =H AC =
01560 0602 00 1 02133 SLW OUTLST,1
01561 1 77777 1 01562 TXI *+1,1,-1
01562 0560 00 0 02124 LDQ LOGAC
01563 0074 00 4 02106 TSX OCTCVT,4
* SIGN AND Q BIT
01564 -0500 00 0 04554 CAL =H, S =1
01565 0441 00 0 02125 LDI SQ SIGN IN S BIT, Q IN 1 BIT
01566 -0056 00 400000 LNT 400000
01567 -0500 00 0 04553 CAL =H, S =0
01570 0602 00 1 02133 SLW OUTLST,1
01571 -0500 00 0 04552 CAL =H, Q =1
01572 -0056 00 200000 LNT 200000
01573 -0500 00 0 04551 CAL =H, Q =0
01574 0602 00 1 02134 SLW OUTLST+1,1
01575 -0500 00 0 04510 CAL =H MQ =
01576 0602 00 1 02135 SLW OUTLST+2,1
01577 1 77775 1 01600 TXI *+1,1,-3
01600 0560 00 0 02123 LDQ MQ(SV MQ SAVE
01601 0074 00 4 02106 TSX OCTCVT,4
01602 -0500 00 0 04536 CAL =H SI =
01603 0602 00 1 02133 SLW OUTLST,1
01604 1 77777 1 01605 TXI *+1,1,-1
01605 0560 00 0 02131 LDQ SNSIND SENSE INDICATORS SAVED
01606 0074 00 4 02106 TSX OCTCVT,4
01607 0074 00 2 01771 TSX SPIT,2
01610 -0500 00 0 04500 CAL =H IX1 =
01611 0602 00 1 02133 SLW OUTLST,1
01612 0560 00 0 02157 LDQ IR1 IX REG 1
01613 0074 00 4 01237 TSX OCTAD),4
01614 -0600 00 1 02134 STQ OUTLST+1,1
01615 1 77776 1 01616 TXI *+1,1,-2
01616 -0500 00 0 04501 CAL =H IX2 =
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 20
01617 0602 00 1 02133 SLW OUTLST,1
01620 0560 00 0 02160 LDQ IR2
01621 0074 00 4 01237 TSX OCTAD),4
01622 -0600 00 1 02134 STQ OUTLST+1,1
01623 1 77776 1 01624 TXI *+1,1,-2
01624 -0500 00 0 04503 CAL =H IX4 =
01625 0602 00 1 02133 SLW OUTLST,1
01626 0560 00 0 02161 LDQ IR4
01627 0074 00 4 01237 TSX OCTAD),4
01630 -0600 00 1 02134 STQ OUTLST+1,1
01631 1 77776 1 01632 TXI *+1,1,-2
01632 -0500 00 0 04535 CAL =H SENSE SENSE LIGHTS PRINTED
01633 0602 00 1 02133 SLW OUTLST,1
01634 -0500 00 0 04507 CAL =H LIGHT
01635 0602 00 1 02134 SLW OUTLST+1,1
01636 1 77776 1 01637 TXI *+1,1,-2
01637 -0500 00 0 04543 CAL =HS ON 1
01640 0441 00 0 02132 LDI IND
01641 -0054 00 040000 LFT 040000
01642 -0500 00 0 04544 CAL =HS ON
01643 0602 00 1 02133 SLW OUTLST,1
01644 0560 00 0 04467 LDQ =H 2
01645 -0500 00 0 04533 CAL =H
01646 -0054 00 020000 LFT 020000
01647 0020 00 0 01651 TRA *+2 OFF
01650 -0763 00 0 00014 LGL 12
01651 0560 00 0 04470 LDQ =H 3
01652 -0054 00 010000 LFT 010000
01653 0020 00 0 01655 TRA *+2
01654 -0763 00 0 00014 LGL 12
01655 0560 00 0 04471 LDQ =H 4
01656 -0054 00 004000 LFT 004000
01657 0020 00 0 01661 TRA *+2
01660 -0763 00 0 00014 LGL 12
01661 0602 00 1 02134 SLW OUTLST+1,1
01662 1 77776 1 01663 TXI *+1,1,-2
01663 0074 00 2 01771 TSX SPIT,2
01664 0634 00 3 02000 SXA IR3,3 SAVE IR3 (IF IN 7-TAG)
01665 0600 00 0 02004 STZ TAGMOD
01666 0774 00 1 00000 AXT 0,1 ASSUME 3-TAG
01667 0774 00 3 00001 AXT 1,3
01670 -3 00000 1 01674 TXL 7TAG,1,0 UNLESS PROVED OTHERWISE
01671 0760 00 0 00016 LMTM 3-TAG ...
01672 0634 00 3 02000 SXA IR3,3 SAVE IR3 FOR REAL
01673 0020 00 0 01675 TRA *+2
01674 -0625 00 0 02004 7TAG STL TAGMOD 7-TAG ...
01675 0634 00 5 02001 SXA IR5,5 SAVE 5, 6, AND 7
01676 0634 00 6 02002 SXA IR6,6
01677 0634 00 7 02003 SXA IR7,7
01700 -0520 00 0 02004 NZT TAGMOD RESTORE ORIGINAL TAG MODE
01701 -0760 00 0 00016 EMTM
01702 0774 00 1 00000 AXT 0,1
01703 -0500 00 0 04502 CAL =H IX3 =
01704 0602 00 1 02133 SLW OUTLST,1
01705 0560 00 0 02000 LDQ IR3
01706 0074 00 4 01237 TSX OCTAD),4
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 21
01707 -0600 00 1 02134 STQ OUTLST+1,1
01710 1 77776 1 01711 TXI *+1,1,-2 PRINT IR3
01711 -0500 00 0 04504 CAL =H IX5 = ALSO IR5, IR6, AND IR7
01712 0602 00 1 02133 SLW OUTLST,1
01713 0560 00 0 02001 LDQ IR5
01714 0074 00 4 01237 TSX OCTAD),4
01715 -0600 00 1 02134 STQ OUTLST+1,1
01716 1 77776 1 01717 TXI *+1,1,-2
01717 -0500 00 0 04505 CAL =H IX6 =
01720 0602 00 1 02133 SLW OUTLST,1
01721 0560 00 0 02002 LDQ IR6
01722 0074 00 4 01237 TSX OCTAD),4
01723 -0600 00 1 02134 STQ OUTLST+1,1
01724 1 77776 1 01725 TXI *+1,1,-2
01725 -0500 00 0 04506 CAL =H IX7 =
01726 0602 00 1 02133 SLW OUTLST,1
01727 0560 00 0 02003 LDQ IR7
01730 0074 00 4 01237 TSX OCTAD),4
01731 -0600 00 1 02134 STQ OUTLST+1,1
01732 1 77776 1 01733 TXI *+1,1,-2
01733 -0500 00 0 04516 CAL =H 3-TA
01734 0520 00 0 02004 ZET TAGMOD
01735 -0500 00 0 04517 CAL =H 7-TA
01736 0602 00 1 02133 SLW OUTLST,1
01737 -0500 00 0 04452 CAL =HG MODE
01740 0602 00 1 02134 SLW OUTLST+1,1
01741 1 77776 1 01742 TXI *+1,1,-2
01742 0074 00 2 01771 TSX SPIT,2
01743 -0500 00 0 04477 CAL =H FPT O
01744 0602 00 1 02133 SLW OUTLST,1
01745 -0500 00 0 04445 CAL =HFF,DCT OUT
01746 -0054 00 400000 LFT 400000
01747 -0500 00 0 04462 CAL =HN ,DCT IN
01750 0602 00 1 02134 SLW OUTLST+1,1 OUT
01751 -0500 00 0 04511 CAL =H OFF,
01752 -0054 00 200000 LFT 200000 ON=1
01753 -0500 00 0 04512 CAL =H ON ,
01754 0602 00 1 02135 SLW OUTLST+2,1
01755 -0500 00 0 04437 CAL =HACOF 0
01756 0602 00 1 02136 SLW OUTLST+3,1
01757 -0500 00 0 04461 CAL =HN
01760 -0054 00 100000 LFT 100000
01761 -0500 00 0 04444 CAL =HFF
01762 0602 00 1 02137 SLW OUTLST+4,1
01763 1 77773 1 01764 TXI *+1,1,-5
01764 0074 00 2 01771 TSX SPIT,2
01765 0774 00 4 00000 (PRLT4 AXT **,4
01766 0774 00 1 00000 AXT **,1
01767 0774 00 2 00000 AXT **,2
01770 0020 00 4 00001 TRA 1,4
01771 0634 00 1 01772 SPIT SXA *+1,1 SUBROUTINE TO DISGORGE BUFFER
01772 -0774 00 1 00000 AXC **,1
01773 -0634 00 1 01775 SXD *+2,1
01774 0074 00 4 03175 TSX WRFLX,4
01775 0 00000 0 02133 PZE OUTLST,,**
01776 0774 00 1 00000 AXT 0,1
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 22
01777 0020 00 2 00001 TRA 1,2
02000 0 00000 0 00000 IR3 PZE INDEX REGISTER
02001 0 00000 0 00000 IR5 PZE 3, 5, 6, AND 7
02002 0 00000 0 00000 IR6 PZE SAVE AREA
02003 0 00000 0 00000 IR7 PZE
02004 0 00000 0 00000 TAGMOD PZE
*
*
* ILC. COMMAND PM
*
* ONE LINE FNFORMATION CONCERNING ILC, REL,ABS LOC
* OF PROGRAM STOP , THE OPCD AND OCATL INSTRUCTION
*
* REFERS TO SYMBOLS L2,ILC,STLOC
02005 0634 00 1 02052 ILC. SXA ILC.1,1
02006 0634 00 2 02053 SXA ILC.2,2
02007 0634 00 4 02054 SXA ILC.4,4
02010 0774 00 1 00000 AXT 0,1 IX1 COUNTS WDS IN OUTPUT LIST
02011 0500 00 0 04513 CLA =H PROG
02012 0601 00 1 02133 STO OUTLST,1
02013 1 77777 1 02014 TXI *+1,1,-1
02014 -0520 00 0 01010 NZT L2 TESTING OF KEY WD
02015 0020 00 0 02021 TRA ABPRO ABSOLUTE STOP
02016 0500 00 0 01011 CLA L2+1
02017 0601 00 1 02133 STO OUTLST,1
02020 1 77777 1 02021 TXI *+1,1,-1
02021 0500 00 0 04537 ABPRO CLA =H STOP=
02022 0601 00 1 02133 STO OUTLST,1
02023 1 77777 1 02024 TXI *+1,1,-1
02024 -0520 00 0 01010 NZT L2
02025 0020 00 0 02036 TRA NOREL NO REL. ADDRESS
02026 0500 00 0 01007 CLA ILC
02027 0402 00 0 01055 SUB STLOC
02030 0131 00 0 00000 XCA
02031 0074 00 4 01237 TSX OCTAD),4 5 DIGIT OCTAL ADDRESS
02032 -0600 00 1 02133 STQ OUTLST,1
02033 0500 00 0 04514 CLA =H REL.,
02034 0601 00 1 02134 STO OUTLST+1,1
02035 1 77776 1 02036 TXI *+1,1,-2
02036 0560 00 0 01007 NOREL LDQ ILC
02037 0074 00 4 01237 TSX OCTAD),4
02040 -0600 00 1 02133 STQ OUTLST,1
02041 0500 00 0 04472 CLA =H ABS.
02042 0601 00 1 02134 STO OUTLST+1,1
02043 0500 60 0 01007 CLA* ILC
02044 0074 00 4 02162 TSX (OPCD),4
02045 0602 00 1 02135 SLW OUTLST+2,1
02046 1 77775 1 02047 TXI *+1,1,-3
02047 0560 60 0 01007 LDQ* ILC
02050 0074 00 4 02106 TSX OCTCVT,4 STORES WD IN OUTLST,1
02051 0074 00 2 01771 TSX SPIT,2
02052 0774 00 1 00000 ILC.1 AXT **,1
02053 0774 00 2 00000 ILC.2 AXT **,2
02054 0774 00 4 00000 ILC.4 AXT **,4
02055 0020 00 4 00001 TRA 1,4
*
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 23
*
*
*
* CALL TRAPS. PRINTS LOCATIONS 0,2,8
02056 0634 00 4 02102 TRAPS. SXA TRAIX4,4
02057 0634 00 1 02103 SXA TRAIX4+1,1
02060 0634 00 2 02104 SXA TRAIX4+2,2
02061 0774 00 1 00000 AXT 0,1
02062 -0500 00 0 04474 CAL =H C(0)=
02063 0602 00 1 02133 SLW OUTLST,1
02064 1 77777 1 02065 TXI *+1,1,-1
02065 0560 00 0 02126 LDQ 0SV
02066 0074 00 4 02106 TSX OCTCVT,4
02067 -0500 00 0 04475 CAL =H C(2)=
02070 0602 00 1 02133 SLW OUTLST,1
02071 1 77777 1 02072 TXI *+1,1,-1
02072 0560 00 0 02127 LDQ 2SV
02073 0074 00 4 02106 TSX OCTCVT,4
02074 -0500 00 0 04476 CAL =H C(8)=
02075 0602 00 1 02133 SLW OUTLST,1
02076 1 77777 1 02077 TXI *+1,1,-1
02077 0560 00 0 02130 LDQ 8SV
02100 0074 00 4 02106 TSX OCTCVT,4
02101 0074 00 2 01771 TSX SPIT,2
02102 0774 00 4 00000 TRAIX4 AXT **,4
02103 0774 00 1 00000 AXT **,1
02104 0774 00 2 00000 AXT **,2
02105 0020 00 4 00001 TRA 1,4
*
SUBROUTINE OCTCVT, CONVERTS A 36 BIT
BINARY WD INTO 2 REGISTER BCD INFORMATION.
* CALLING SEQU(NCE TSX OCTCVT,4 INPUT IN MQ 01
* OUTPUT IN OUTLST,4, IX1 ASSUMED SET TO STORE IN OUTLST01
02106 0634 00 4 02120 OCTCVT SXA OTOT1,4 03
02107 0634 00 2 02121 SXA OTOT2,2
02110 0774 00 2 00002 AXT 2,2
02111 0774 00 4 00006 OC111 AXT 6,4
02112 0767 00 0 00003 ALS 3
02113 -0763 00 0 00003 LGL 3
02114 2 00001 4 02112 TIX *-2,4,1
02115 0602 00 1 02133 SLW OUTLST,1
02116 1 77777 1 02117 TXI *+1,1,-1
02117 2 00001 2 02111 TIX OC111,2,1
02120 0774 00 4 00000 OTOT1 AXT **,4
02121 0774 00 2 00000 OTOT2 AXT **,2
02122 0020 00 4 00001 TRA 1,4
02123 0 00000 0 00000 MQ(SV PZE 0 MQ SAVED BY (SVLT)
02124 0 00000 0 00000 LOGAC PZE 0 P,1-35 ACCUMULATOR SAVED
02125 0 00000 0 00000 SQ PZE 0 Q SAVED
02126 0 00000 0 00000 0SV PZE 0 LOCATION 0 SAVED
02127 0 00000 0 00000 2SV PZE 0 LOCATION 2 SAVED
02130 0 00000 0 00000 8SV PZE 0 LOCATION 8 SAVED
02131 0 00000 0 00000 SNSIND PZE 0 SENSE INDICATORS SAVED
02132 0 00000 0 00000 IND PZE 0 SENSE LITES, S. SWITCH, TRAPS, INDICATORS
02133 OUTLST BSS 20 OUTPUT LIST
02157 0 00000 0 00000 IR1 PZE 0 INDEX REGISTERS 1 SAVED
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 24
02160 0 00000 0 00000 IR2 PZE 0 INDEX REGISTERS 2 SAVED
02161 0 00000 0 00000 IR4 PZE 0 INDEX REGISTERS 4 SAVED
CALLING SEQUENCE TSX (OPCD),4
WHERE LOG. ACCUM. CONTAINS THE WORD TO BE INTERPRETED.
WHERE OUTPUT IS IN LOG. ACCUM. WITH THE 3 BCD OP. CODE IN
BITS 18-35 WITH REST OF WD ZEROS.
TRANSFER VECTOR...NONE
02162 0634 00 2 02254 (OPCD) SXA AR2,2
02163 0634 00 1 02255 SXA AR1,1
02164 0774 00 1 00000 AXT 0,1
02165 -0320 00 0 04562 ANA =O777700000000 TXL INSTRUCTION
02166 0100 00 0 02242 TZE (OPCD1
02167 0602 00 0 02267 SLW OPBIN
02170 0771 00 0 00041 ARS 33
02171 -0320 00 0 04415 ANA =O3 MASK OUT SIGN BIT
02172 -0100 00 0 02234 TNZ TYPEA
02173 0534 00 2 02605 LXA SIZE,2
02174 0020 00 2 02233 TRA LOWER,2
02175 -3 77463 1 02201 SRCH1 TXL SRCH2,1,-NUM
02176 -0500 00 1 02270 CAL TABL,1
02177 -0320 00 0 04562 ANA =O777700000000 TXL INSTRUCTION
02200 -0340 00 0 02267 LAS OPBIN
02201 1 77776 2 02232 SRCH2 TXI RAISE,2,-2
02202 0020 00 0 02242 TRA (OPCD1
02203 1 77776 2 02233 TXI LOWER,2,-2
02204 1 01000 1 02175 TXI SRCH1,1,+512
02205 1 77000 1 02175 TXI SRCH1,1,-512
02206 1 00400 1 02175 TXI SRCH1,1,+256
02207 1 77400 1 02175 TXI SRCH1,1,-256
02210 1 00200 1 02175 TXI SRCH1,1,+128
02211 1 77600 1 02175 TXI SRCH1,1,-128
02212 1 00100 1 02175 TXI SRCH1,1,+64
02213 1 77700 1 02175 TXI SRCH1,1,-64
02214 1 00040 1 02175 TXI SRCH1,1,+32
02215 1 77740 1 02175 TXI SRCH1,1,-32
02216 1 00020 1 02175 TXI SRCH1,1,+16
02217 1 77760 1 02175 TXI SRCH1,1,-16
02220 1 00010 1 02175 TXI SRCH1,1,+8
02221 1 77770 1 02175 TXI SRCH1,1,-8
02222 1 00004 1 02175 TXI SRCH1,1,+4
02223 1 77774 1 02175 TXI SRCH1,1,-4
02224 1 00002 1 02175 TXI SRCH1,1,+2
02225 1 77776 1 02175 TXI SRCH1,1,-2
02226 1 00001 1 02175 TXI SRCH1,1,+1
02227 1 77777 1 02175 TXI SRCH1,1,-1
02230 0020 00 0 02234 TRA TYPEA
02231 0020 00 0 02234 TRA TYPEA
02232 0020 00 2 02232 RAISE TRA *,2
02233 0020 00 2 02233 LOWER TRA *,2
*
02234 0560 00 0 02267 TYPEA LDQ OPBIN
02235 -0754 00 0 00000 ZAC
02236 -0763 00 0 00003 LGL 3
02237 0734 00 1 00000 PAX 0,1
02240 -0500 00 1 02266 CAL LSTA+7,1
02241 0020 00 0 02254 TRA AR2
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 25
02242 -0500 00 1 02270 (OPCD1 CAL TABL,1
02243 -0320 00 0 04435 ANA =O77777777
02244 0560 00 0 04412 LDQ =0
02245 -0765 00 0 00022 LGR 18
02246 -0100 00 0 02252 TNZ (OPCD2 TEST 4 CHARACTERS
02247 -0763 00 0 00036 LGL 30 NO,3 CHARACTERS
02250 -0501 00 0 04466 ORA =H 000
02251 0020 00 0 02254 TRA AR2
02252 -0763 00 0 00030 (OPCD2 LGL 24
02253 -0501 00 0 04465 ORA =H 0000
02254 0774 00 2 00000 AR2 AXT **,2
02255 0774 00 1 00000 AR1 AXT **,1
02256 0020 00 4 00001 TRA 1,4
*
02257 606367436060 LSTA BCI 1, TXL
02260 606345676060 BCI 1, TNX
02261 606263516060 BCI 1, STR
02262 604471256060 BCI 1, MZE
02263 606367306060 BCI 1, TXH
02264 606331676060 BCI 1, TIX
02265 606367316060 BCI 1, TXI
02266 604771256060 BCI 1, PZE
02267 0 00000 0 00000 OPBIN PZE
02270 000000306351 TABL BCI 1,000HTR HTR
02271 002000635121 VFD O12/0020,H24/0TRA TRA
02272 002100636351 VFD O12/0021,H24/0TTR TTR
02273 002263512321 VFD O12/0022,H24/TRCA TRCA
02274 002463512323 VFD O12/0024,H24/TRCC TRCC
02275 002663512325 VFD O12/0026,H24/TRCE TRCE
02276 002763512327 VFD O12/0027,H24/TRCG TRCG
02277 003063252621 VFD O12/0030,H24/TEFA TEFA
02300 003163252623 VFD O12/0031,H24/TEFC TEFC
02301 003263252625 VFD O12/0032,H24/TEFE TEFE
02302 003363252627 VFD O12/0033,H24/TEFG TEFG
02303 004000634350 VFD O12/0040,H24/0TLQ TLQ
02304 004100313121 VFD O12/0041,H24/0IIA IIA
02305 004200633146 VFD O12/0042,H24/0TIO TIO
02306 004300462131 VFD O12/0043,H24/0OAI OAI
02307 004400472131 VFD O12/0044,H24/0PAI PAI
02310 004600633126 VFD O12/0046,H24/0TIF TIF
02311 005100313151 VFD O12/0051,H24/0IIR IIR
02312 005400512663 VFD O12/0054,H24/0RFT RFT
02313 005500623151 VFD O12/0055,H24/0SIR SIR
02314 005600514563 VFD O12/0056,H24/0RNT RNT
02315 005700513151 VFD O12/0057,H24/0RIR RIR
02316 006063234621 VFD O12/0060,H24/TCOA TCOA
02317 006163234622 VFD O12/0061,H24/TCOB
02320 006263234623 VFD O12/0062,H24/TCOC TCOC
02321 006363234624 VFD O12/0063,H24/TCOD TCOD
02322 006463234625 VFD O12/0064,H24/TCOE TCOE
02323 006563234626 VFD O12/0065,H24/TCOF TCOF
02324 006663234627 VFD O12/0066,H24/TCOG TCOG
02325 006763234630 VFD O12/0067,H24/TCOH TCOH
02326 007400636267 VFD O12/0074,H24/0TSX TSX
02327 010000637125 VFD O12/0100,H24/0TZE TZE
02330 010100633121 VFD O12/0101,H24/0TIA TIA
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 26
02331 011400236551 VFD O12/0114,H24/0CVR CVR
02332 012000634743 VFD O12/0120,H24/0TPL TPL
02333 013100672321 VFD O12/0131,H24/0XCA XCA
02334 014000634665 VFD O12/0140,H24/0TOV TOV
02335 016100635046 VFD O12/0161,H24/0TQO TQO
02336 016200635047 VFD O12/0162,H24/0TQP TQP
02337 020000444770 VFD O12/0200,H24/0MPY MPY
02340 020400654344 VFD O12/0204,H24/0VLM VLM
02341 022000246530 VFD O12/0220,H24/0DVH DVH
02342 022100246547 VFD O12/0221,H24/0DVP DVP
02343 022400652430 VFD O12/0224,H24/0VDH VDH
02344 022500652447 VFD O12/0225,H24/0VDP VDP
02345 024000262430 VFD O12/0240,H24/0FDH FDH
02346 024100262447 VFD O12/0241,H24/0FDP FDP
02347 026000264447 VFD O12/0260,H24/0FMP FMP
02350 026124264447 VFD O12/0261,H24/DFMP DFMP
02351 030000262124 VFD O12/0300,H24/0FAD FAD
02352 030124262124 VFD O12/0301,H24/DFAD DFAD
02353 030200266222 VFD O12/0302,H24/0FSB FSB
02354 030324266222 VFD O12/0303,H24/DFSB DFSB
02355 030400262144 VFD O12/0304,H24/0FAM FAM
02356 030524262144 VFD O12/0305,H24/DFAM DFAM
02357 030600266244 VFD O12/0306,H24/0FSM FSM
02360 030724266244 VFD O12/0307,H24/DFSM DFSM
02361 032000214562 VFD O12/0320,H24/0ANS ANS
02362 032200255121 VFD O12/0322,H24/0ERA ERA
02363 034000232162 VFD O12/0340,H24/0CAS CAS
02364 036100212343 VFD O12/0361,H24/0ACL ACL
02365 040000212424 VFD O12/0400,H24/0ADD ADD
02366 040100212444 VFD O12/0401,H24/0ADM ADM
02367 040200626422 VFD O12/0402,H24/0SUB SUB
02370 042000304751 VFD O12/0420,H24/0HPR HPR
02371 044000313162 VFD O12/0440,H24/0IIS IIS
02372 044100432431 VFD O12/0441,H24/0LDI LDI
02373 044200466231 VFD O12/0442,H24/0OSI OSI
02374 044300244324 VFD O12/0443,H24/0DLD DLD
02375 044400462663 VFD O12/0444,H24/0OFT OFT
02376 044500513162 VFD O12/0445,H24/0RIS RIS
02377 044600464563 VFD O12/0446,H24/0ONT ONT
02400 046000432421 VFD O12/0460,H24/0LDA LDA
02401 050000234321 VFD O12/0500,H24/0CLA CLA
02402 050200234362 VFD O12/0502,H24/0CLS CLS
02403 052000712563 VFD O12/0520,H24/0ZET ZET
02404 052200672523 VFD O12/0522,H24/0XEC XEC
02405 053400436721 VFD O12/0534,H24/0LXA LXA
02406 053500432123 VFD O12/0535,H24/0LAC LAC
02407 054051233021 VFD O12/0540,H24/RCHA RCHA
02410 054151233023 VFD O12/0541,H24/RCHC RCHC
02411 054251233025 VFD O12/0542,H24/RCHE RCHE
02412 054351233027 VFD O12/0543,H24/RCHG RCHG
02413 054443233021 VFD O12/0544,H24/LCHA LCHA
02414 054543233023 VFD O12/0545,H24/LCHC LCHC
02415 054643233025 VFD O12/0546,H24/LCHE LCHE
02416 054743233027 VFD O12/0547,H24/LCHG LCHG
02417 056000432450 VFD O12/0560,H24/0LDQ LDQ
02420 056200435131 VFD O12/0562,H24/0LRI LRI
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 27
02421 056400254522 VFD O12/0564,H24/0ENB ENB
02422 060000626371 VFD O12/0600,H24/0STZ STZ
02423 060100626346 VFD O12/0601,H24/0STO STO
02424 060200624366 VFD O12/0602,H24/0SLW SLW
02425 060400626331 VFD O12/0604,H24/0STI STI
02426 062100626321 VFD O12/0621,H24/0STA STA
02427 062200626324 VFD O12/0622,H24/0STD STD
02430 062500626363 VFD O12/0625,H24/0STT STT
02431 063000626347 VFD O12/0630,H24/0STP STP
02432 063400626721 VFD O12/0634,H24/0SXA SXA
02433 064062233021 VFD O12/0640,H24/SCHA SCHA
02434 064162233023 VFD O12/0641,H24/SCHC SCHC
02435 064262233025 VFD O12/0642,H24/SCHE SCHE
02436 064362233027 VFD O12/0643,H24/SCHG SCHG
02437 070000234770 VFD O12/0700,H24/0CPY CPY
02440 073400472167 VFD O12/0734,H24/0PAX PAX
02441 073700472123 VFD O12/0737,H24/0PAC PAC
02442 075400476721 VFD O12/0754,H24/0PXA PXA
02443 075600472321 VFD O12/0756,H24/0PCA PCA
02444 076000476225 VFD O12/0760,H24/0PSE PSE
02445 076100454647 VFD O12/0761,H24/0NOP NOP
02446 076200512462 VFD O12/0762,H24/0RDS RDS
02447 076300434362 VFD O12/0763,H24/0LLS LLS
02450 076400226251 VFD O12/0764,H24/0BSR BSR
02451 076500435162 VFD O12/0765,H24/0LRS LRS
02452 076600665162 VFD O12/0766,H24/0WRS WRS
02453 076700214362 VFD O12/0767,H24/0ALS ALS
02454 077000662526 VFD O12/0770,H24/0WEF WEF
02455 077100215162 VFD O12/0771,H24/0ARS ARS
02456 077200512566 VFD O12/0772,H24/0REW REW
02457 077400216763 VFD O12/0774,H24/0AXT AXT
02460 077600622445 VFD O12/0776,H24/0SDN SDN
02461 402125624563 VFD O12/4021,H24/ESNT ESNT
02462 402263512322 VFD O12/4022,H24/TRCB TRCB
02463 402463512324 VFD O12/4024,H24/TRCD TRCD
02464 402663512326 VFD O12/4026,H24/TRCF TRCF
02465 402763512330 VFD O12/4027,H24/TRCH TRCH
02466 403063252622 VFD O12/4030,H24/TEFB TEFB
02467 403163252624 VFD O12/4031,H24/TEFD TEFD
02470 403263252626 VFD O12/4032,H24/TEFF TEFF
02471 403363252630 VFD O12/4033,H24/TEFH TEFH
02472 404200513121 VFD O12/4042,H24/0RIA RIA
02473 404600473121 VFD O12/4046,H24/0PIA PIA
02474 405100313143 VFD O12/4051,H24/0IIL IIL
02475 405400432663 VFD O12/4054,H24/0LFT LFT
02476 405500623143 VFD O12/4055,H24/0SIL SIL
02477 405600434563 VFD O12/4056,H24/0LNT LNT
02500 405700513143 VFD O12/4057,H24/0RIL RIL
02501 406063234521 VFD O12/4060,H24/TCNA TCNA
02502 406163234522 VFD O12/4061,H24/TCNB TCNB
02503 406263234523 VFD O12/4062,H24/TCNC TCNC
02504 406363234524 VFD O12/4063,H24/TCND TCND
02505 406463234525 VFD O12/4064,H24/TCNE TCNE
02506 406563234526 VFD O12/4065,H24/TCNF TCNF
02507 406663234527 VFD O12/4066,H24/TCNG TCNG
02510 406763234530 VFD O12/4067,H24/TCNH TCNH
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 28
02511 410000634571 VFD O12/4100,H24/0TNZ TNZ
02512 410100633122 VFD O12/4101,H24/0TIB TIB
02513 411400232150 VFD O12/4114,H24/0CAQ CAQ
02514 412000634431 VFD O12/4120,H24/0TMI TMI
02515 413000672343 VFD O12/4130,H24/0XCL XCL
02516 414000634546 VFD O12/4140,H24/0TNO TNO
02517 415400235150 VFD O12/4154,H24/0CRQ CRQ
02520 420000444751 VFD O12/4200,H24/0MPR MPR
02521 424024262430 VFD O12/4240,H24/DFDH DFDH
02522 424124262447 VFD O12/4241,H24/DFDP DFDP
02523 426000642644 VFD O12/4260,H24/0UFM UFM
02524 426124642644 VFD O12/4261,H24/DUFM DUFM
02525 430000642621 VFD O12/4300,H24/0UFA UFA
02526 430124642621 VFD O12/4301,H24/DUFA DUFA
02527 430200642662 VFD O12/4302,H24/0UFS UFS
02530 430324642662 VFD O12/4303,H24/DUFS DUFS
02531 430400642144 VFD O12/4304,H24/0UAM UAM
02532 430524642144 VFD O12/4305,H24/DUAM DUAM
02533 430600646244 VFD O12/4306,H24/0USM USM
02534 430724646244 VFD O12/4307,H24/DUSM DUSM
02535 432000214521 VFD O12/4320,H24/0ANA ANA
02536 434000432162 VFD O12/4340,H24/0LAS LAS
02537 440000622244 VFD O12/4400,H24/0SBM SBM
02540 450000232143 VFD O12/4500,H24/0CAL CAL
02541 450100465121 VFD O12/4501,H24/0ORA ORA
02542 452000457163 VFD O12/4520,H24/0NZT NZT
02543 453400436724 VFD O12/4534,H24/0LXD LXD
02544 453500432423 VFD O12/4535,H24/0LDC LDC
02545 454051233022 VFD O12/4540,H24/RCHB RCHB
02546 454151233024 VFD O12/4541,H24/RCHD RCHD
02547 454251233026 VFD O12/4542,H24/RCHF RCHF
02550 454351233030 VFD O12/4543,H24/RCHH RCHH
02551 454443233022 VFD O12/4544,H24/LCHB LCHB
02552 454543233024 VFD O12/4545,H24/LCHD LCHD
02553 454643233026 VFD O12/4546,H24/LCHF LCHF
02554 454743233030 VFD O12/4547,H24/LCHH LCHH
02555 456400434731 VFD O12/4564,H24/0LPI LPI
02556 460000626350 VFD O12/4600,H24/0STQ STQ
02557 460100625131 VFD O12/4601,H24/0SRI SRI
02560 460200465162 VFD O12/4602,H24/0ORS ORS
02561 460300246263 VFD O12/4603,H24/0DST DST
02562 460400624731 VFD O12/4604,H24/0SPI SPI
02563 462000624350 VFD O12/4620,H24/0SLQ SLQ
02564 462500626343 VFD O12/4625,H24/0STL STL
02565 463400626724 VFD O12/4634,H24/0SXD SXD
02566 464062233022 VFD O12/4640,H24/SCHB SCHB
02567 464162233024 VFD O12/4641,H24/SCHD SCHD
02570 464262233026 VFD O12/4642,H24/SCHF SCHF
02571 464362233030 VFD O12/4643,H24/SCHH SCHH
02572 470000232124 VFD O12/4700,H24/0CAD CAD
02573 473400472467 VFD O12/4734,H24/0PDX PDX
02574 473700472423 VFD O12/4737,H24/0PDC PDC
02575 475400476724 VFD O12/4754,H24/0PXD PXD
02576 476000446225 VFD O12/4760,H24/0MSE MSE
02577 476300432743 VFD O12/4763,H24/0LGL LGL
02600 476400226226 VFD O12/4764,H24/0BSF BSF
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 29
02601 476500432751 VFD O12/4765,H24/0LGR LGR
02602 477200516445 VFD O12/4772,H24/0RUN RUN
02603 477300515043 VFD O12/4773,H24/0RQL RQL
02604 477400216723 VFD O12/4774,H24/0AXC AXC
02605 ENTBL BSS 0
02605 0 77463 0 00022 SIZE PZE 18,,-NUM
* ADDRESS OF SIZE IS 2*E+2 WHERE E IS SUCH THAT
* 2**E.GE. N(ENTRIES IN TABLE).G.2**(E-1),DECREMENT
* IS-N(THE NUMBER OF ENTRIES IN THE TABLE.
00315 NUM EQU ENTBL-TABL NUMBER IN OP TABLE.
SUBPROGRAMS USED .... (MOVE)..(BY (EXTR))
*********************************************************
*STPC AND PCUP JULY 31, 1961 LYNDA KORN
02606 0600 00 0 02640 (STPC) STZ BEGINA
02607 0500 00 0 01004 CLA BDRUM
02610 -0520 00 0 01005 NZT DIREC DIRECTION
02611 0500 00 0 01003 CLA ADRUM
02612 0621 00 0 02672 STA SWORD
02613 0400 00 0 04413 ADD =1
02614 0520 00 0 01005 ZET DIREC
02615 0402 00 0 04414 SUB =2
02616 0621 00 0 02673 STA R1
02617 0500 00 0 01004 CLA BDRUM
02620 0402 00 0 01003 SUB ADRUM
02621 0767 00 0 00022 ALS 18
02622 0622 00 0 02645 STD DIFFER
02623 0622 00 0 02703 STD RDIF DIFFERENCE + 1
02624 0500 00 2 00745 CLA TAB1,2
02625 0402 00 0 04433 SUB =O1000000
02626 0622 00 0 02655 STD COLFST
02627 0622 00 0 02706 STD R2
02630 0500 00 0 04433 CLA =O1000000 A ONE IN THE DECREMENT
02631 0520 00 0 01005 ZET DIREC
02632 0500 00 0 04564 CLA =O777777777777
02633 0622 00 0 02757 STD MORP
02634 0622 00 0 02725 STD MORP1
INITIALIZATION
02635 0500 00 0 04453 CLA =O300000000000 TXH INSTRUCTION
02636 0630 00 0 02647 STP (PCUP4
02637 0020 00 0 00424 TRA HEDD-1
02640 0 00000 0 00000 BEGINA PZE **,,** COLUMN COUNTER CHECK,,COUNTING ADDRESS
CALLING SEQUENCE TSX (PCUP),4
RETURN 1,4 END OF BLOCK
2,4 END OF LINE
3,4
4,4 REPEATED EXIT (PRINT-REPEAT-
5,4 NORMAL EXIT
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 30
02641 0634 00 1 02727 (PCUP) SXA PIX1,1
02642 0634 00 2 02730 SXA PIX2,2
02643 0634 00 4 02711 SXA PIX4,4
02644 -0534 00 1 02640 LXD BEGINA,1 COUNTING ADDRESS
02645 -3 00000 1 02654 DIFFER TXL (PCUP5,1,** NOT GREATER THAN DIFFERENCE BET.A NAD B
02646 0534 00 1 02727 LXA PIX1,1
TD 02647 3 00000 0 02653 (PCUP4 TXH (PCUP3
02650 -0500 00 0 04550 CAL =O700000000000 TXL
02651 0630 00 0 02647 STP (PCUP4
02652 0020 00 4 00002 TRA 2,4 TO EXIT ON ROW END
02653 0020 00 4 00001 (PCUP3 TRA 1,4
02654 0534 00 2 02640 (PCUP5 LXA BEGINA,2 COLUMN COUNTER CHECK
02655 -3 00000 2 02662 COLFST TXL (PCUP1,2,**
02656 0634 00 0 02640 SXA BEGINA,0
02657 0534 00 1 02727 LXA PIX1,1
02660 0534 00 2 02730 LXA PIX2,2
02661 0020 00 4 00002 TRA 2,4 END OF LINE
AT THIS PINT ALL CHECKS ARE MADE
02662 0634 00 2 02713 (PCUP1 SXA R4,2
02663 0634 00 1 02712 SXA R3,1
02664 0534 00 4 02673 LXA R1,4
02665 0634 00 4 02707 SXA RSOX4,4
02666 0774 00 4 00000 AXT 0,4 SET IX4 FOR NUMBER OF REPEATS
02667 0522 00 0 02672 XEC SWORD
02670 -0520 00 0 02640 NZT BEGINA
02671 0020 00 0 02706 TRA R2
02672 0500 00 0 00000 SWORD CLA ** WORD
02673 0340 00 0 00000 R1 CAS ** NEXT WORD TO BE PRINTED
02674 0020 00 0 02706 TRA R2 NOT SAME,EXIT
02675 1 00001 4 02677 TXI SAME,4,1 SAME,INDEX
02676 0020 00 0 02706 TRA R2 NOT SAME, EXIT
02677 -3 00000 1 02706 SAME TXL R2,1,0 IS THE COUNT EQUAL TO ZERO
02700 -3 00000 2 02702 TXL INROW,2,0 NO
02701 0020 00 0 02706 TRA R2
02702 1 00001 1 02703 INROW TXI *+1,1,1
02703 -3 00000 1 02755 RDIF TXL UPR1,1,**
02704 1 77777 4 02705 TXI *+1,4,-1 YES
02705 1 77777 1 02706 TXI *+1,1,-1
02706 3 00000 4 02732 R2 TXH COMMNT,4,** IF GREATER THAN COL NUMBER,COMMENT
LESS THAN A COLUMN, SO PRINT
02707 0774 00 4 00000 RSOX4 AXT **,4
02710 0634 00 4 02673 SXA R1,4
02711 0774 00 4 00000 PIX4 AXT **,4
02712 0774 00 1 00000 R3 AXT **,1
02713 0774 00 2 00000 R4 AXT **,2
02714 0601 00 0 01054 STO WORD
02715 0500 00 0 02672 CLA SWORD
02716 0621 00 0 01002 STA ADDR
02717 1 00001 1 02720 TXI *+1,1,1
02720 1 00001 2 02721 TXI *+1,2,1
02721 -0634 00 1 02640 SAVEIX SXD BEGINA,1 COUNTING COUNTER
02722 0634 00 2 02640 SXA BEGINA,2 COLUMN COUNTER
02723 0534 00 1 02673 LXA R1,1
02724 0634 00 1 02672 SXA SWORD,1
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 31
02725 1 00000 1 02726 MORP1 TXI *+1,1,**
02726 0634 00 1 02673 SXA R1,1
02727 0774 00 1 00000 PIX1 AXT **,1
02730 0774 00 2 00000 PIX2 AXT **,2
02731 0020 00 4 00005 TRA 5,4
02732 0601 00 0 01054 COMMNT STO WORD
02733 0634 00 4 02763 SXA NREP,4
02734 0560 00 0 02763 LDQ NREP
02735 0600 00 0 00721 STZ DNREP
02736 0774 00 4 00036 AXT 30,4 SET CONVERSION LOOP
02737 -0754 00 0 00000 ZAC
02740 0221 00 0 04422 DVP =10
02741 0767 00 4 00036 ALS 30,4
02742 -0602 00 0 00721 ORS DNREP
02743 2 00006 4 02737 TIX *-4,4,6
02744 0500 00 0 00721 CLA DNREP
02745 0621 00 0 01002 STA ADDR
02746 -0535 00 4 02757 LDC MORP,4
02747 -0634 00 4 02751 SXD *+2,4
02750 0534 00 4 02673 LXA R1,4
02751 1 00000 4 02752 TXI *+1,4,**
02752 0634 00 4 02673 SXA R1,4
02753 0534 00 4 02711 LXA PIX4,4
02754 1 00001 4 02721 TXI SAVEIX,4,1
02755 0634 00 2 02761 UPR1 SXA R222,2,
02756 0534 00 2 02673 LXA R1,2
02757 1 00000 2 02760 MORP TXI *+1,2,** POSITIVE OR NEGATIVE 1,
02760 0634 00 2 02673 SXA R1,2
02761 0774 00 2 00000 R222 AXT **,2
02762 0020 00 0 02673 TRA R1
02763 0 00000 0 00000 NREP
CALL (DCDR) LIST,X 1,4 RETURN
(DCDR) CONVERTS THE CONTENTS OF THE LIST FROM A BCD
REPRESENTATION OF A NUMBER INTO A BINARY NUMBER AND
THE RESULTANT BINARY NUMBER IN THE ADDRESS OF X.
THE QUANTITY IN LIST MAY BE A DECIMAL NUMBER OR
AN OCTAL ONE,DENOTED BY A SLASH, /.
02764 0634 00 1 03021 (DCDR) SXA IRR1,1
02765 0634 00 2 03022 SXA IRR2,2
02766 0634 00 4 03023 SXA IRR4,4
02767 0600 00 0 03030 STZ XX
02770 0500 00 0 00312 CLA FLTEM C(L)
02771 0100 00 0 03020 TZE XAD
02772 -0734 00 2 00000 PDX 0,2
02773 0774 00 4 00001 AXT 1,4
02774 0774 00 1 00005 AXT 5,1
02775 -0754 00 0 00000 ZAC
02776 0560 00 0 00313 LDQ FLTEM+1 C(L+1)
02777 -0763 00 0 00006 LGL 6
03000 0340 00 0 04426 CAS =H00000/
03001 1 00000 0 03003 TXI *+2,,
03002 1 00001 4 03025 TXI OCTL,4,1
03003 -0634 00 2 03004 DECL SXD LOOOP,2
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 32
03004 -3 00000 1 03016 LOOOP TXL LPEND,1,** 1-5 IN DECR.
03005 0400 00 0 03030 ADD XX
03006 0601 00 0 03031 STO TMP
03007 0767 00 0 00003 ALS 3 MULTIPLY BY 8 OR 10
03010 3 00001 4 03013 TXH *+3,4,1
03011 0400 00 0 03031 ADD TMP
03012 0400 00 0 03031 ADD TMP
03013 0601 00 0 03030 STO XX
03014 -0754 00 0 00000 ZAC
03015 -0763 00 0 00006 LGL 6
03016 2 00001 1 03004 LPEND TIX LOOOP,1,1
03017 0400 00 0 03030 ADD XX
03020 0601 00 0 01004 XAD STO BDRUM STORE X
03021 0774 00 1 00000 IRR1 AXT ..,1
03022 0774 00 2 00000 IRR2 AXT ..,2
03023 0774 00 4 00000 IRR4 AXT ..,4
03024 0020 00 4 00001 TRA 1,4 EXIT RETURN
03025 -0754 00 0 00000 OCTL ZAC
03026 -0763 00 0 00006 LGL 6
03027 1 00001 2 03003 TXI DECL,2,1
03030 0 00000 0 00000 XX
03031 0 00000 0 00000 TMP
00000 .. SYN 0
PRINTS A STORAGE MAP OF THE SYMBOL TABLE USING MOVIE)
03032 0500 60 0 00002 STOMAP CLA* $MOVIE)
03033 -0734 00 4 00000 PDX ,4 SPECIAL TO TSS
03034 1 77774 4 03035 TXI *+1,4,-4
03035 -0634 00 4 03111 SXD FULST,4
03036 0771 00 0 00022 ARS 18
03037 0400 60 0 00002 ADD* $MOVIE)
03040 0621 00 0 03052 STA SRCH
03041 0621 00 0 03062 STA AGAIN
03042 0400 00 0 04413 ADD =1
03043 0621 00 0 03065 STA ORG
03044 0074 00 4 03175 TSX WRFLX,4
03045 0 00003 0 03127 PZE BSSHD,,3
03046 0074 00 4 03175 TSX WRFLX,4
03047 0 00014 0 03132 PZE PHEAD,,12
03050 0774 00 2 00002 AXT 2,2
03051 0774 00 1 00000 AXT 0,1 IX1 USED TO INDEX IN BCD LINE
03052 0500 00 2 00000 SRCH CLA **,2 TOP ADDRESS OF SYMBOL TABLE +1
03053 -0100 00 0 03057 TNZ TSTTV
03054 -0500 00 0 04560 CAL =H(MAIN) ZERO INDICATES A MAIN PROGRAM
03055 0602 00 1 03147 SLW NUMBER+1,1
TD 03056 -3 00000 0 03073 TXL CADR
03057 0522 00 0 03052 TSTTV XEC SRCH
03060 0402 00 0 04550 SUB =O700000000000 TXL
03061 0100 00 0 03065 TZE ORG
03062 -0500 00 2 00000 AGAIN CAL **,2
03063 -0320 00 0 04550 ANA =O700000000000 TXL
03064 -0100 00 0 03071 TNZ SUBPR
ADDRESS NON ZERO THEREFORE BCD NAME
03065 0560 00 2 00000 ORG LDQ **,2
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 33
03066 0074 00 4 03162 TSX CNVRT,4
03067 0602 00 0 03174 SLW ORGTNT
03070 0020 00 0 03110 TRA UPIX2
03071 0522 00 0 03062 SUBPR XEC AGAIN CAL SYMT,2
03072 0602 00 1 03147 SLW NUMBER+1,1
03073 0522 00 0 03065 CADR XEC ORG
03074 0074 00 4 03162 TSX CNVRT,4 E.P. IN MQ FOR DECIMAL CONVERSION
03075 0602 00 1 03151 SLW NUMBER+3,1
03076 -0500 00 0 03174 CAL ORGTNT
03077 0602 00 1 03150 SLW NUMBER+2,1
03100 -0500 00 0 03126 CAL NAMSTO JSMI
03101 -0340 00 1 03147 LAS NUMBER+1,1 JSMI
03102 0020 00 0 03104 TRA *+2 JSMI
03103 0600 00 0 03126 STZ NAMSTO JSMI
03104 0520 00 0 03126 ZET NAMSTO JSMI
03105 0020 00 0 03110 TRA UPIX2 JSMI
03106 1 77774 1 03107 TXI *+1,1,-4
03107 -3 77764 1 03122 TXL TPRT,1,-12 IX1 PRINTS ONLY 3 SBR NAMES
03110 1 00002 2 03111 UPIX2 TXI *+1,2,2
03111 -3 00000 2 03052 FULST TXL SRCH,2,** A DONE SYMBOL TABLE PRINT
03112 0754 00 1 00000 PXA ,1 CHECK IX 1 FOR PART OF NUMBER TO PRINT
03113 0737 00 1 00000 PAC 0,1
03114 0754 00 1 00000 PXA 0,1
03115 0100 00 0 03121 TZE STOEND
03116 -0634 00 1 03120 SXD LASTT,1
03117 0074 00 4 03175 TSX WRFLX,4
03120 0 00000 0 03146 LASTT PZE NUMBER,,** LAST TIME
03121 0020 00 0 00231 STOEND TRA FLXEND
03122 0074 00 4 03175 TPRT TSX WRFLX,4 TIME TO PRINT
03123 0 00014 0 03146 PZE NUMBER,,12
03124 0774 00 1 00000 AXT 0,1
03125 0020 00 0 03110 TRA UPIX2
03126 0 00000 0 00000 NAMSTO PZE STOMAP TEMP JSMI
03127 602262626062 BSSHD BCI 3, BSS STORAGE MAP
03130 634651212725
03131 604421476060
03132 606060606060 PHEAD BCI , NAME ORIGIN ENTRY NAME ORIGIN ENTRY NAME
03133 604521442560
03134 465131273145
03135 602545635170
03136 606060606060
03137 604521442560
03140 465131273145
03141 602545635170
03142 606060606060
03143 604521442560
03144 465131273145 BCI 2,ORIGIN ENTRY
03145 602545635170
03146 606060606060 NUMBER BCI ,
03147 606060606060
03150 606060606060
03151 606060606060
03152 606060606060
03153 606060606060
03154 606060606060
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 34
03155 606060606060
03156 606060606060
03157 606060606060
03160 606060606060 BCI 2,
03161 606060606060
03162 0634 00 1 03172 CNVRT SXA CNVRX1,1
03163 -0773 00 0 00025 RQL 21
03164 -0754 00 0 00000 ZAC
03165 0774 00 1 00005 AXT 5,1
03166 0767 00 0 00003 MOVE ALS 3
03167 -0763 00 0 00003 LGL 3
03170 2 00001 1 03166 TIX MOVE,1,1
03171 -0501 00 0 04464 ORA =H 00000
03172 0774 00 1 00000 CNVRX1 AXT **,1
03173 0020 00 4 00001 TRA 1,4
03174 0 00000 0 00000 ORGTNT PZE TEMPORARY STORAGE OF ORIGIN
03175 0101 00 0 04547 WRFLX TIA =HWRFLX
03176 0101 00 0 04447 GETCOM TIA =HGETCOM
03177 0101 00 0 04446 FNRTN TIA =HFNRTN
03200 0101 00 0 04450 GETILC TIA =HGETILC CONTENTS OF ILC IN ADDRESS OF AC
03201 0101 00 0 04557 (LFTM) TIA =H(LFTM)
03202 0101 00 0 04556 (EFTM) TIA =H(EFTM)
03203 0 00000 0 00000 TRAPSI PZE 0 TRAPS.--PM INDICATOR TO AUTOMATIC SECTION
03204 0 00000 0 00000 ILCIN PZE 0 ILC.----PM INDICATOR TO AUTOMATIC SECTION
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 35
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
03205 -0634 00 4 01006 PATCH SXD ENTRY,4 SAVE CALL
03206 -0774 00 4 03207 AXC *+1,4
03207 0021 00 0 01363 TTR (SVLT)
03210 -0625 00 0 04341 STL PAKSET
03211 0600 00 0 04347 STZ PREL INITIALIZE
03212 0600 00 0 04343 STZ PCMSW *
03213 0074 00 4 03176 TSX GETCOM,4 GET FIRST ARGUMENT
03214 0 00000 0 00001 1 *
03215 -0340 00 0 04564 LAS =O777777777777 IS IT FENCE FOR END
03216 0761 00 0 00000 NOP CANNOT GET HERE
03217 -0500 00 0 04560 CAL =H(MAIN) IF EMPTY ASSUME MAIN
03220 0074 00 4 03776 TSX LBTTB,4 PUTS BLANKS AT THE END
03221 0602 00 0 01011 SLW L2+1 SAVE PROG NAME
03222 -0500 00 0 04413 CAL =1 SET NUMBER OF WORDS IN L2
03223 0602 00 0 01010 SLW L2 *
03224 0074 00 4 01164 TSX SZLOC,4 GET FIRST LOC. OF PROGRAM
03225 0500 00 0 01055 CLA STLOC *
03226 0120 00 0 03235 TPL PCH1A IF PROG FOUND
03227 -0500 00 0 01011 CAL L2+1 O-E A SPECIAL CASE, MAIN, PAT, COM
03230 0074 00 4 03724 TSX GETREL,4 SEE IF ONE OF THOSE
03231 0 00000 0 03466 PERR1 NO-ERROR-PROG NOT IN CORE
03232 0340 00 0 04457 CAS =-0 COMPARE THE RELOCATION WITH -0
03233 0020 00 0 03236 TRA *+3 IF POSITIVE THEN SKIP INDICATING COMMON
03234 0020 00 0 03236 TRA *+2 IF .G. THEN NOT COMMON
03235 0601 00 0 04347 PCH1A STO PREL SAVE THE NORMAL MODE OF RELOCATION
03236 -0625 00 0 04343 STL PCMSW IF LESS THAN -0, INDICATE COMMON
03237 0600 00 0 04356 PEND STZ STRSW RETURN HERE FOR ANOTHER LINE
03240 0600 00 0 04350 STZ PREL.
03241 0600 00 0 04346 STZ PPATSW TURN OFF 'P' RELOCATION SWITCH
03242 0600 00 0 04344 STZ PCMSW. RESET OTHER COMMON SWITCH
03243 0074 00 4 04320 TSX RDFLXA,4 READ THE PATCH LINE
03244 0 00000 0 04357 IB
03245 0074 00 4 04104 TSX SCANI,4 INITIAL SCAN, 'PCC' CONTAINS CHAR. COUNT
03246 0 00000 0 00231 FLXEND EXIT ON BLANK LINE
03247 0534 00 4 04342 LXA PCC,4 GET CHARACTER COUNT
03250 3 00006 4 03477 TXH PERR2,4,6 IF .G.6, THEN ERROR
03251 -0500 00 0 04375 CAL H GET WORD
03252 -0340 00 0 04442 LAS =HEND AND TEST FOR END SIGNAL
03253 0020 00 0 03255 TRA *+2 NO
03254 0020 00 0 00231 TRA FLXEND YES--EXIT TO RESTORE MACHINE CONDITIONS
03255 0560 00 0 04375 LDQ H
03256 0074 00 4 03673 TSX GETNUM,4 SEPARATE LETTER FROM NO. PORTION
03257 -0600 00 0 04345 STQ PLOC SAVE THE MQ
03260 0074 00 4 04027 TSX OTBC,4 CONVERT NUMBER TO BINARY
03261 0560 00 0 04345 LDQ PLOC RESTORE THE MQ
03262 0602 00 0 04345 SLW PLOC SAVE THE CONVERTED LOCATION
03263 0131 00 0 00000 XCA
03264 0100 00 0 03274 TZE PCH2A ZERO INDICATES NO LETTER
03265 -0501 00 0 04532 ORA =H 0 OR IN LEADING BLANKS
03266 0074 00 4 03724 TSX GETREL,4 GET RELOCATION AMOUNT
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 36
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
03267 0 00000 0 03466 PERR1
03270 0340 00 0 04457 CAS =-0 COMPARE RELOCATION WITH -0
03271 0020 00 0 03274 TRA *+3 AND IF IT IS LESS THAN THAT
03272 0020 00 0 03274 TRA *+2
03273 -0625 00 0 04344 STL PCMSW. THEN INDICATE COMMON
03274 0601 00 0 04350 PCH2A STO PREL. SAVE THE SPECIAL MODE OF RELOCATION
03275 0074 00 4 04252 TSX STORE,4
03276 0074 00 4 04134 TSX SCAN,4 GET TYPE OF PATCH
03277 0 00000 0 03237 PEND
03300 0534 00 4 04342 LXA PCC,4
03301 3 00006 4 03477 TXH PERR2,4,6 ERROR IF CC .G. 6
03302 -0500 00 0 04375 CAL H
03303 0074 00 4 04056 TSX PTYPE,4 FIND TYPE AND GO
03304 0074 00 4 04134 OCT TSX SCAN,4 SCAN FOR NUMBER
03305 0 00000 0 03237 PEND
03306 0074 00 4 03531 OCT1 TSX CONVT,4 CONVERT USING
03307 0 00000 0 04322 PFMT1,,0 OCTAL FORMAT
03310 0600 00 0 04337 STZ OCTSCS SHOW END OF SCAN
03311 0074 00 4 04134 TSX SCAN,4
03312 0 00000 0 03321 OCT1E
03313 0534 00 4 04342 LXA PCC,4 CHARACTER COUNT
03314 3 00002 4 03320 TXH OCT1F,4,2 IF .G. 2 CHARACTERS, NO REL BITS
03315 0441 00 0 04375 LDI H PUT THE WORD IN THE SI
03316 0444 00 0 04533 OFT =H AND LOOK FOR ZONE PUNCHES
03317 0020 00 0 03323 TRA OCT1C THERE ARE SOME
03320 -0625 00 0 04337 OCT1F STL OCTSCS SHOW THAT SCAN ALREADY DONE
03321 0560 00 0 04440 OCT1E LDQ =HAR SET UP ABS-REL BITS
03322 0020 00 0 03324 TRA OCT1D AND GO PROCESS THEM
03323 0560 00 0 04375 OCT1C LDQ H GET BUFFER
03324 -0754 00 0 00000 OCT1D ZAC
03325 -0763 00 0 00006 LGL 6 FOR REL BITS
03326 -0600 00 0 04340 STQ OCTTMP SAVE SECOND BIT
03327 -0501 00 0 04532 ORA =H 0 NORMALIZE W/LEADING BLANKS
03330 0074 00 4 03724 TSX GETREL,4 AND GET RELOCATION AMOUNT
03331 0 00000 0 03466 PERR1 ERROR IF BIT NOT FOUND
03332 0767 00 0 00022 ALS 18 MOVE THE ADDRESS TO DECREMENT
03333 0401 00 0 04351 ADM PWORD LEAVING THE SIGN THE SAME, ADD LOCATION
03334 0622 00 0 04351 STD PWORD NOW THIS IS THE ABSOLUTE DECREMENT
03335 0560 00 0 04340 LDQ OCTTMP OTHER REL 'BIT'
03336 -0754 00 0 00000 ZAC ZERO THE AC
03337 -0763 00 0 00006 LGL 6 *
03340 -0501 00 0 04532 ORA =H 0 *
03341 0074 00 4 03724 TSX GETREL,4 *
03342 0 00000 0 03466 PERR1 *
03343 0401 00 0 04351 ADM PWORD ADD IN THE LOCATION
03344 0621 00 0 04351 STA PWORD AND HAVE THE ABSOLUTE ADDRESS
03345 0074 00 4 04252 TSX STORE,4 MOVE WORD
03346 0074 00 4 04270 TSX UPLOC,4 INCREASE PLOC TO NEXT LOCATION
03347 0074 00 4 04252 TSX STORE,4 SET UP NEXT STORE ADDRESS
03350 0520 00 0 04337 ZET OCTSCS WAS THERE ALREADY A SCAN OF THE NEXT FIELD
03351 0020 00 0 03306 TRA OCT1 YES, DO NOT DO IT AGAIN
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 37
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
03352 0020 00 0 03304 TRA OCT
03353 0074 00 4 04134 FLO TSX SCAN,4 GET THE NUMBER
03354 0 00000 0 03237 PEND END IF A BLANK FIELD
03355 0774 00 4 04324 AXT PFMT2,4 SET UP FOR THE FIXED POINT FORMAT
03356 0520 00 0 04352 ZET SCNESW WAS THE -E- SWITCH TURNED ON
03357 0774 00 4 04326 AXT PFMT3,4 YES--SET UP FOR -E- FORMAT
03360 0634 00 4 03362 SXA FLO1,4 SAVE FORMAT ADDRESS
03361 0074 00 4 03531 TSX CONVT,4 GO CONVERT THE NUMBER
03362 0 00000 0 00000 FLO1 **,,0 USING THE PROPER FORMAT
03363 0074 00 4 04252 TSX STORE,4 AND STORE THE WORD
03364 0074 00 4 04270 TSX UPLOC,4 INCREASE PLOC TO NEXT LOCATION
03365 0074 00 4 04252 TSX STORE,4 SET UP NEXT STORE ADDRESS
03366 0020 00 0 03353 TRA FLO NOW RETURN FOR ANOTHER WORD
03367 0074 00 4 04134 INT TSX SCAN,4 GET THE INTEGER
03370 0 00000 0 03237 PEND IF BLANK FIELD
03371 0074 00 4 03531 TSX CONVT,4 GO CONVERT THE NUMBER
03372 0 00000 0 04330 PFMT4,,0 ACCORDING TO THIS FORMAT
03373 0074 00 4 04252 TSX STORE,4 AND STORE IT
03374 0074 00 4 04270 TSX UPLOC,4 INCREASE PLOC TO NEXT LOCATION
03375 0074 00 4 04252 TSX STORE,4 SET UP NEXT STORE ADDRESS
03376 0020 00 0 03367 TRA INT AND SEE IF THERE IS MORE
03377 0074 00 4 04134 DEC TSX SCAN,4 GET THE NUMBER,DECIMAL INTEGERS--MAD TYPE
03400 0 00000 0 03237 PEND
03401 0074 00 4 03531 TSX CONVT,4 GO CONVERT IT
03402 0 03402 0 04330 PFMT4,,* DECR. NON ZERO SHOWS MAD INTEGER
03403 0074 00 4 04252 TSX STORE,4 AND STORE IT
03404 0074 00 4 04270 TSX UPLOC,4 INCREASE PLOC TO NEXT LOCATION
03405 0074 00 4 04252 TSX STORE,4 SET UP NEXT STORE ADDRESS
03406 0020 00 0 03377 TRA DEC SEE IF THERE IS MORE
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
03407 STOPAT SYN * HERE TO STOP AT PARTICULAR LOCATION
03407 -0634 00 4 01006 SXD ENTRY,4
03410 -0774 00 4 03411 AXC *+1,4
03411 0021 00 0 01363 TTR (SVLT)
03412 0074 00 4 03613 TSX GETLOC,4 GET THE REQUESTED LOCATION
03413 0621 00 0 03423 STA STPA4 SAVE ADDRESS
03414 0621 00 0 03444 STA STPB SAVE RETURN ADDRESS--PROGRAM BREAK
03415 -0500 00 0 04345 CAL PLOC GET LOCATION (UNRELOCATED) OF STOP
03416 0074 00 4 04016 TSX BTOC,4 CONVERT ADDRESS TO OCTAL
03417 -0501 00 0 04464 ORA =H 00000 ADD BLANK
03420 0602 00 0 03447 SLW COM5+2 AND SAVE IN COMMENT
03421 -0500 00 0 01011 CAL L2+1 RESTORE PROGRAM NAME
03422 0602 00 0 03451 SLW COM5+4 IN COMMENT ALSO
03423 -0500 00 0 00000 STPA4 CAL ** GET THE WORD
03424 0602 00 0 04355 SLW STPATP AND SAVE IT
03425 -0500 00 0 03431 CAL STPRTN NOW INSERT RETURN INSTRUCTION
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 38
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
03426 0602 00 0 04351 SLW PWORD BY PUTTING WORD HERE
03427 0074 00 4 04252 TSX STORE,4 AND GOING HERE
03430 0020 00 0 00231 TRA FLXEND RETURN CONTROL TO TSS
HERE ON RETURN FROM STOP AT
03431 0021 00 0 03432 STPRTN TTR STPA5 INSTRUCTION INSERTED
03432 -0634 00 4 01006 STPA5 SXD ENTRY,4 SAVE MACHINE CONDITIONS
03433 -0774 00 4 03434 AXC *+1,4
03434 0020 00 0 01363 TRA (SVLT)
03435 -0500 00 0 04355 CAL STPATP GET INSTRUCTION
03436 0602 60 0 03423 SLW* STPA4 AND RESTORE IT
03437 0074 00 4 03175 TSX WRFLX,4 COMMENT TO USER THAT STOP IS REACHED
03440 0 00007 0 03445 COM5,,COM5.
03441 0074 00 4 01476 TSX (RSLT),4
03442 0074 00 4 04316 TSX DORMNT,4
03443 -0534 00 4 01006 LXD ENTRY,4 RESOTRE IR4
03444 0020 00 0 00000 STPB TRA ** RETURN TO THE USER'S PROGRAM
03445 604346232163 COM5 BCI 7, LOCATION 000000 IN 000000 REACHED.
03446 314645606060
03447 000000000000
03450 606031456060
03451 000000000000
03452 605125212330
03453 252433606060
00007 COM5. SYN *-COM5
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
03454 -0634 00 4 01006 TRA SXD ENTRY,4 HERE FOR TRANSFER TO A PARTICULAR LOCATION
03455 -0774 00 4 03456 AXC *+1,4
03456 0021 00 0 01363 TTR (SVLT)
03457 0074 00 4 03613 TSX GETLOC,4 GET LOCATION IN QUESTION
03460 0600 00 0 04356 STZ STRSW RESET STORE SWITCH IN CASE OF ANOTHER CALL
03461 0621 00 0 03465 STA TRA1 SAVE ADDRESS FOR TRANSFER
03462 0074 00 4 01476 TSX (RSLT),4 RESTORE CONDITIONS
03463 0074 00 4 04316 TSX DORMNT,4 AND GO DORMANT WAITING FOR START
03464 -0534 00 4 01006 LXD ENTRY,4 RESTORE IR4
03465 0021 00 0 00000 TRA1 TTR ** AND GO
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
03466 -0500 00 0 01011 PERR1 CAL L2+1 GET PROGRAM NAME,HERE IF PROGRAM NOT IN COR
03467 0602 00 0 03474 SLW COM2+1 AND STORE IN COMMENT
03470 0074 00 4 03175 TSX WRFLX,4
03471 0 00004 0 03473 COM2,,COM2.
03472 0020 00 0 00231 TRA FLXEND RETURN CONTROL TO TSS
03473 604751462760 COM2 BCI 4, PROG 000000 NOT IN CORE
03474 000000000000
03475 604546636031
03476 456023465125
00004 COM2. SYN *-COM2
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 39
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
03477 0074 00 4 03175 PERR2 TSX WRFLX,4 HERE IF ILLEGAL ADDRESS GIVEN
03500 0 00005 0 03502 COM3,,COM3.
03501 0020 00 0 00231 TRA FLXEND RETURN CONTROL TO TSS
03502 603143432527 COM3 BCI 5, ILLEGAL ADDRESS OR NAME GIVEN
03503 214360212424
03504 512562626046
03505 516045214425
03506 602731652545
00005 COM3. SYN *-COM3
03507 0074 00 4 03175 PERR3 TSX WRFLX,4 HERE FOR ILLEGAL OCTAL NUMBER
03510 0 00003 0 03512 COM4,,COM4.
03511 0020 00 0 00231 TRA FLXEND RETURN CONTROL TO TSS
03512 603143432527 COM4 BCI 3, ILLEGAL OCTAL NO.
03513 214360462363
03514 214360454633
00003 COM4. SYN *-COM4
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
03515 0634 00 4 03526 BTDC SXA BTDCX4,4 SAVE INDEX 4,BINARY TO DECIMAL CONVERSION
03516 0774 00 4 00044 AXT 36,4 COUNT OF CHARACTERS
03517 -0130 00 0 00000 XCL PUT WORD IN MQ
03520 0600 00 0 04340 STZ OCTTMP AND ZERO TEMPORARY
03521 -0754 00 0 00000 BTDC1 ZAC ZERO AC
03522 0221 00 0 04422 DVP =10 AND DIVIDE
03523 0767 00 4 00044 ALS 36,4 SHIFT REMAINDER
03524 -0602 00 0 04340 ORS OCTTMP AND OR INTO PLACE
03525 2 00006 4 03521 TIX BTDC1,4,6 COUNT CHAR
03526 0774 00 4 00000 BTDCX4 AXT **,4
03527 -0500 00 0 04340 CAL OCTTMP
03530 0020 00 4 00001 TRA 1,4
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
03531 0634 00 4 03563 CONVT SXA CNVXR4,4 SAVE INDEX
03532 -0500 00 4 00001 CAL 1,4 PZE FMT ADR.,, DECR NON-ZERO FOR MAD INT.
03533 0621 00 0 03551 STA CNV1
03534 0621 00 0 03557 STA CNV2
03535 0771 00 0 00022 ARS 18
03536 0600 00 0 03611 STZ MDSW.
03537 0734 00 4 00000 PAX 0,4
03540 -3 00000 4 03544 TXL *+4,4,0
03541 -0625 00 0 03611 STL MDSW.
03542 0774 00 4 04351 AXT PWORD,4
03543 0634 00 4 03560 SXA CNV3,4
03544 -0500 00 0 04563 CAL =O777777770000 ZERO OUT OLD COUNT
03545 0320 60 0 03551 ANS* CNV1 *
03546 -0500 00 0 04342 CAL PCC GET CHARACTER COUNT
03547 0074 00 4 03515 TSX BTDC,4 CONVERT TO DECIMAL
03550 -0320 00 0 04431 ANA =O7777 ONLY THE NUMERALS
03551 -0602 00 0 00000 CNV1 ORS ** PUT THEN IN THE FORMAL
03552 0774 00 4 00003 AXT 3,4 PREPARE TO MOVE THE SCANNED INFO TO THE
03553 -0500 00 4 04400 CAL H+3,4 PROPER BUFER FOR IOH
03554 0602 00 4 77745 SLW REC+3,4 *
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 40
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
03555 2 00001 4 03553 TIX *-2,4,1
03556 0074 00 4 03565 TSX DIOH,4 GO TO CONVERSION ROUTINES
03557 0 03557 0 00000 CNV2 **,,* SHOW FORMAT STATEMENT GOES FORWARD
03560 -1 00000 0 00000 CNV3 STR ** ADR. NON ZERO FOR MAD
03561 -0600 00 0 04351 STQ PWORD
03562 0074 00 4 00003 TSX $(RTN),4 JSMI
03563 0774 00 4 00000 CNVXR4 AXT **,4
03564 0020 00 4 00002 TRA 2,4
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
03565 -0500 00 0 03607 DIOH CAL IOFMT.
03566 0602 00 0 77737 SLW FMT.
03567 0520 00 0 03611 ZET MDSW.
03570 0601 00 0 77737 STO FMT.
03571 -0500 00 0 03610 CAL INCOL
03572 0602 00 0 77741 SLW COL.
03573 -0634 00 4 00644 SXD IOHRTN,4
03574 -0500 00 4 00001 CAL 1,4
03575 0621 00 0 00644 STA IOHRTN
03576 -0500 00 0 00644 CAL IOHRTN
03577 0602 00 0 77740 SLW RTN.
03600 -0535 00 4 77740 LDC RTN.,4
03601 1 00002 4 03602 TXI *+1,4,2
03602 0634 00 4 00000 SXA 0,4
03603 -0534 00 4 77740 LXD RTN.,4
03604 0560 00 0 03606 LDQ *+2
03605 0020 60 0 00001 TRA* $(IOH)
03606 0761 00 0 03612 NOP DIOH2
03607 -3 77777 0 03612 IOFMT. TXL DIOH2,,-1
03610 3 00110 0 00000 INCOL TXH ,,72
03611 0 00000 0 00000 MDSW. PZE
03612 0020 00 4 00001 DIOH2 TRA 1,4
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
03613 GETLOC SYN * ROUTINE TO COMPUTE LOCATION REQUESTED
FOR -STOPAT- AND -TRA- COMMANDS
03613 0634 00 4 03671 SXA GTLXR4,4 SAVE INDEX 4
03614 0604 00 0 04332 STI GTLSI SAVE INDICATORE
03615 0074 00 4 03176 TSX GETCOM,4 GET FIRST PARAMETER
03616 0 00000 0 00001 1 *
03617 0602 00 0 04351 SLW PWORD AND SAVE IT HERE
03620 -0340 00 0 04564 LAS =O777777777777 FENCE FOR THE END OF THE BUFFER
03621 0761 00 0 00000 NOP NEVER HERE
03622 0020 00 0 00231 TRA FLXEND IF NOTHING IN BUFFER EXIT
03623 0074 00 4 04041 TSX RJWLZ,4 RIGHT JUSTIFY WITH LEADING ZEROS
03624 0044 00 0 00000 PAI PUT THE WORD IN THE INDICATORS
03625 0444 00 0 04533 OFT =H TEST FOR ZONE BITS--ARE THEY ON
03626 0020 00 0 03631 TRA STPA1 ZONES ON--PROG NAME GIVEN
03627 -0500 00 0 04560 CAL =H(MAIN) NO NAME GIVEN--ASSUME MAIN
03630 0020 00 0 03633 TRA STPA6 SKIP RESTORATION OF PROGRAM NAME
03631 -0500 00 0 04351 STPA1 CAL PWORD IF PROG NAME GIVEN
03632 0074 00 4 03776 TSX LBTTB,4 LEADING BLANKS TO TERMINAL BLANKS
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 41
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
03633 0602 00 0 01011 STPA6 SLW L2+1 SAVE PROGRAM NAME
03634 -0500 00 0 04413 CAL =1 SET NUMBER OF WORDS IN L2
03635 0602 00 0 01010 SLW L2 *
03636 0074 00 4 01164 TSX SZLOC,4 FIND THE PROGRAM'S STARTING LOCATION
03637 0500 00 0 01055 CLA STLOC GET THE LOCATION
03640 0120 00 0 03650 TPL STP1A IF PROGRAM IS FOUND
03641 -0500 00 0 01011 CAL L2+1 RESTORE THE NAME OF THE 'PROGRAM'
03642 0074 00 4 03724 TSX GETREL,4 GET RELOCATION AMOUNT
03643 0 00000 0 03466 PERR1 IF PROGRAM NAME NOT FOUND
03644 0340 00 0 04457 CAS =-0 COMPARE RELOCATION WITH -0
03645 0020 00 0 03650 TRA *+3 AND IF IT IS LESS THAN THAT
03646 0020 00 0 03650 TRA *+2
03647 -0625 00 0 04343 STL PCMSW THEN INDICATE COMMON
03650 0601 00 0 04347 STP1A STO PREL SAVE RELOCATION AMOUNT
03651 0600 00 0 04350 STZ PREL. ASSURE THIS IS OFF
03652 0444 00 0 04533 OFT =H WERE THE ZONE BITS ON
03653 0020 00 0 03655 TRA STPA2 YES--GET THE NEXT PARAMETER
03654 0020 00 0 03663 TRA STPA3 NO--USE FIRST PARAMETER AS LOCATION
03655 0074 00 4 03176 STPA2 TSX GETCOM,4 HERE TO GET SECOND PARAMETER
03656 0 00000 0 00002 2
03657 -0340 00 0 04564 LAS =O777777777777 TEST FOR NOTHING GIVEN
03660 0761 00 0 00000 NOP NEVER COME HERE
03661 0020 00 0 00231 TRA FLXEND EXIT IF NOTHING GIVEN
03662 0020 00 0 03664 TRA STPA3A
03663 -0500 00 0 04351 STPA3 CAL PWORD GET FIRST PARAMETER IN THIS CASE
03664 -0320 00 0 04436 STPA3A ANA =O171717171717 REMOVE ANY ZONE BITS
03665 0074 00 4 04027 TSX OTBC,4 CONVERT OT BINARY
03666 0602 00 0 04345 SLW PLOC SAVE ADDRESS HERE
03667 0074 00 4 04252 TSX STORE,4 COMPUTE ADDRESS
03670 0441 00 0 04332 LDI GTLSI RESTORE INDICATORS
03671 0774 00 4 00000 GTLXR4 AXT **,4 RESTORE THE INDEX REGISTER
03672 0020 00 4 00001 TRA 1,4
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
03673 GETNUM SYN * NUMBER IN MQ. - NO. IN AC
LETTER IN MQ
IF NO LETTER, MQ SET MINUS
03673 0634 00 4 03722 SXA GTNXR4,4 SAVE INDEX REGISTER
03674 0604 00 0 04333 STI GTNSI SAVE INDICATORS
03675 0534 00 4 04342 LXA PCC,4 CHARACTER COUNT
03676 0600 00 0 04334 STZ GTNTMP INITIALIZE TEMP
03677 -0754 00 0 00000 GTN2 ZAC
03700 -0763 00 0 00006 LGL 6 GET FIRST OR NEXT CHARACTER
03701 -0340 00 0 04421 LAS =H000007 HOW DOES IT COMPARE TO 7
03702 0020 00 0 03713 TRA GTN1 GREATER THAN 7, ASSUME LETTER
03703 0761 00 0 00000 NOP =7
03704 -0765 00 0 00006 LGR 6 SAVE CHARACTER
03705 -0500 00 0 04334 CAL GTNTMP GET WORD
03706 -0763 00 0 00006 LGL 6 MOVE IN NEW CHARACTER
03707 0602 00 0 04334 SLW GTNTMP AND SAVE WORD AGAIN
03710 2 00001 4 03677 TIX GTN2,4,1 NEXT CHARACTER
03711 0560 00 0 04412 LDQ =0 IF NO LETTER
03712 0020 00 0 03720 TRA GTN3
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 42
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
03713 0044 00 0 00000 GTN1 PAI PUT WORD IN THE INDICATORS
03714 0054 00 000060 RFT 60 ARE ANY ZONE BITS ON
03715 0020 00 0 03717 TRA GTN1A SOME ZONE BIT ON
03716 0020 00 0 03507 TRA PERR3 ERROR-ILLEGAL NUMBER IN FIELD
03717 -0130 00 0 00000 GTN1A XCL PUT LETTER IN MQ
03720 -0500 00 0 04334 GTN3 CAL GTNTMP
03721 0441 00 0 04333 LDI GTNSI RESTORE INDICATORS
03722 0774 00 4 00000 GTNXR4 AXT **,4
03723 0020 00 4 00001 TRA 1,4 RETURN TO CALLER
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
03724 GETREL SYN * GETS FIRST LOC OF SPECIAL PGM NAMES
NAME LEFT JUSTIFIED IN L(AC) ON ENTRY
FIRST LOC. IN AC ON RETURN 2,4
IF NAME NOT FOUND THEN TRA* 1,4
03724 0634 00 4 03734 SXA GTR2,4
03725 0774 00 4 00016 AXT EREL-BREL,4 COUNT
03726 -0340 00 4 03754 GTR3 LAS EREL,4
03727 0020 00 0 03731 TRA GTR1
03730 0020 60 4 03755 TRA* EREL+1,4
03731 2 00002 4 03726 GTR1 TIX GTR3,4,2
03732 0534 00 4 03734 LXA GTR2,4
03733 0020 60 4 00001 TRA* 1,4
03734 0774 00 4 00000 GTR2 AXT **,4
03735 0020 00 4 00002 TRA 2,4
03736 606060606021 BREL BCI 1, A
03737 0 00000 0 03754 GTR.1
03740 744721633460 BCI 1,(PAT)
03741 0 00000 0 03760 GTR.2
03742 742346443460 BCI 1,(COM)
03743 0 00000 0 03772 GTR.3
03744 742122623460 BCI 1,(ABS)
03745 0 00000 0 03754 GTR.1
03746 606060606047 BCI 1, P
03747 0 00000 0 03756 GTR.21
03750 606060606023 BCI 1, C
03751 0 00000 0 03772 GTR.3
03752 606060606051 BCI 1, R
03753 0 00000 0 03774 GTR.4
03754 EREL SYN *
03754 0500 00 0 04457 GTR.1 CLA =-0 SET ABS RELOCATION FOR PRIMARY USE
03755 0020 00 0 03734 TRA GTR2
03756 0600 00 0 04335 GTR.21 STZ GTRPSW SHOW NO PATCH MODE
03757 0020 00 0 03761 TRA GTR.2+1
03760 -0625 00 0 04335 GTR.2 STL GTRPSW SET SWITCH TO SHOW PATCH MODE
03761 0074 00 4 04317 TSX GETMEM,4 GET LAST LOC USED
03762 0602 00 0 04336 SLW GTRTMP
03763 -0520 00 0 04335 NZT GTRPSW SHOULD NEW PROTECTION BE SET
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 43
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
03764 0020 00 0 03734 TRA GTR2 NO, SKIP OUT
03765 0400 00 0 04413 ADD =1
03766 0074 00 4 04321 TSX SETMEM,4 SET USER MEM BOUND HERE
03767 -0500 00 0 04336 CAL GTRTMP
03770 -0625 00 0 04346 STL PPATSW SET SWITCH TO SHOW MEM BOUND INCREASE EACH
03771 0020 00 0 03734 TRA GTR2 USE THIS ONE
03772 0502 00 0 01472 GTR.3 CLS COMREL SET UP RELOCATION FOR COMMON
03773 0020 00 0 03734 TRA GTR2
03774 -0500 00 0 04347 GTR.4 CAL PREL GET NORMAL RELOCATION
03775 0020 00 0 03734 TRA GTR2
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
03776 0634 00 4 04010 LBTTB SXA LBTXR4,4 SAVE REGISTER,LEADING BLANKS TO TRAILING BL
03777 0774 00 4 00006 AXT 6,4
04000 -0130 00 0 00000 XCL
04001 -0754 00 0 00000 LBT1 ZAC
04002 -0763 00 0 00006 LGL 6 GET FIRST OR NEXT CHARACTER
04003 -0340 00 0 04425 LAS =H00000 IS IT A BLANK
04004 0020 00 0 04006 TRA *+2
04005 0020 00 0 04012 TRA LBT2 YES-GO PUT IT AT THE END
04006 -0765 00 0 00006 LGR 6 NOT A BLANK
04007 -0130 00 0 00000 XCL PUT WORD IN THE AC
04010 0774 00 4 00000 LBTXR4 AXT **,4 RESTORE
04011 0020 00 4 00001 TRA 1,4 AND RETURN
04012 -0765 00 0 00006 LBT2 LGR 6 PUT CHARACTER
04013 -0773 00 0 00006 RQL 6 AT THE END
04014 2 00001 4 04001 TIX LBT1,4,1 COUNT CHARACTERS
04015 0020 00 0 04010 TRA LBTXR4 IMPOSSIBLE
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
04016 0634 00 4 04025 BTOC SXA BTOCX,4 SAVE LINKAGE
04017 -0765 00 0 00022 LGR 18 CONVERT HALF WORD
04020 -0754 00 0 00000 ZAC
04021 0774 00 4 00006 AXT 6,4 CONVERT 6 OCTAL DIGITS
04022 0767 00 0 00003 ALS 3
04023 -0763 00 0 00003 LGL 3
04024 2 00001 4 04022 TIX *-2,4,1
04025 0774 00 4 00000 BTOCX AXT **,4 RESTORE LINK
04026 0020 00 4 00001 TRA 1,4 AND RETURN
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
04027 0634 00 4 04037 OTBC SXA OTBXR4,4 SAVE INDEX,OCTAL TO BINARY CONVERSION
04030 -0130 00 0 00000 XCL
04031 -0754 00 0 00000 ZAC
04032 -0773 00 0 00006 RQL 6 IGNORE FIRST CHARACTER
04033 0774 00 4 00005 AXT 5,4
04034 -0773 00 0 00003 RQL 3
04035 -0763 00 0 00003 LGL 3
04036 2 00001 4 04034 TIX *-2,4,1
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 44
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
04037 0774 00 4 00000 OTBXR4 AXT **,4
04040 0020 00 4 00001 TRA 1,4
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
04041 0634 00 4 04054 RJWLZ SXA RJWXR4,4 SAVE RETURN,RIGHT JUSTIFY WITH LEAD ZEROES
04042 0774 00 4 00044 AXT 36,4 COUNT SHIFTS
04043 -0130 00 0 00000 XCL
04044 -0754 00 0 00000 RJW1 ZAC ZERO AC
04045 -0763 00 0 00006 LGL 6 FIRST OR NEXT CHARACTER
04046 -0340 00 0 04425 LAS =H00000 IS IT BLANK
04047 1 77772 4 04052 TXI RJW2,4,-6 NO--DECREASE COUNT
04050 2 00006 4 04044 TIX RJW1,4,6 YES--SKIP CHARACTER
04051 1 77772 4 04052 TXI RJW2,4,-6 NO - DECREASE COUNT
04052 0634 00 4 04053 RJW2 SXA RJW3,4 SAVE COUNT OF REMAINING CHARACTERS
04053 -0763 00 0 00000 RJW3 LGL ** AND BRING IT TO AC
04054 0774 00 4 00000 RJWXR4 AXT **,4 RESTORE INDEX
04055 0020 00 4 00001 TRA 1,4 AND RETURN
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
04056 PTYPE SYN * HERE TO EXIT TO CORRECT PATCH TYPE
BCD NAME OF TYPE IN AC
04056 0774 00 4 00010 AXT ETYP-BTYP,4
04057 -0340 00 4 04104 PTP2 LAS ETYP,4
04060 0020 00 0 04062 TRA PTP3
04061 0020 60 4 04105 TRA* ETYP+1,4 GO TO THAT SECTION
04062 2 00002 4 04057 PTP3 TIX PTP2,4,2
04063 0602 00 0 04067 SLW COM1
04064 0074 00 4 03175 TSX WRFLX,4
04065 0 00005 0 04067 COM1,,COM1.
04066 0020 00 0 00231 TRA FLXEND RETURN CONTROL TO TSS
04067 000000000000 COM1 BCI 5,000000 IS NOT IN DICTIONARY
04070 603162604546
04071 636031456024
04072 312363314645
04073 215170606060
00005 COM1. SYN *-COM1
04074 462363606060 BTYP BCI 1,OCT
04075 0 00000 0 03304 OCT
04076 264346606060 BCI 1,FLO
04077 0 00000 0 03353 FLO
04100 314563606060 BCI 1,INT
04101 0 00000 0 03367 INT
04102 242523606060 BCI 1,DEC
04103 0 00000 0 03377 DEC
04104 ETYP SYN *
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 45
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
04104 0634 00 4 04237 SCANI SXA SCNXR4,4 SAVE THE INDEX REGISTERS,SCAN FIELDS OF INP
04105 0634 00 2 04240 SXA SCNXR2,2 *
04106 0634 00 1 04241 SXA SCNXR1,1 *
04107 0774 00 4 00016 AXT 14,4 MAXIMUM WORD COUNT
04110 0634 00 4 04154 SXA SCN1,4
04111 0774 00 2 00044 AXT 36,2 RESET THE CHARACTER POSITIONER
04112 0634 00 2 04200 SXA SCN4A+1,2 *
04113 0774 00 2 00006 AXT 6,2 CHARACTER COUNTER
04114 0634 00 2 04155 SXA SCN2,2
04115 -0500 00 0 04533 CAL =H INITIALIZE SYMBOL
04116 0602 00 0 04375 SLW H
04117 0602 00 0 04376 SLW H+1
04120 0602 00 0 04377 SLW H+2
04121 0600 00 0 04342 STZ PCC
04122 0560 00 0 04357 LDQ IB
04123 -0763 00 0 00006 LGL 6 GET THE FIRST CHARACTER
04124 0602 00 0 04354 SLW SCNNC AND SAVE IT HERE
04125 0322 00 0 04533 ERA =H IS IT A BLANK
04126 0100 00 0 04131 TZE SCNI1
04127 0774 00 1 00000 AXT 0,1
04130 0020 00 0 04157 TRA SCN6 AND START SCAN
04131 0534 00 4 04237 SCNI1 LXA SCNXR4,4 RESTORE THE INDEX REGISTERS
04132 0534 00 2 04240 LXA SCNXR2,2 *
04133 0020 60 4 00001 TRA* 1,4 AND RETURN FOR BLANK FIELD
04134 -0500 00 0 04354 SCAN CAL SCNNC GET THE NEXT CHARACTER,NORMAL ENTRY TO SCAN
04135 0322 00 0 04533 ERA =H AND IF IT IS A BLANK
04136 0100 60 4 00001 TZE* 1,4 RETURN TO END OF LINE
04137 0634 00 4 04237 SXA SCNXR4,4
04140 0634 00 2 04240 SXA SCNXR2,2
04141 0634 00 1 04241 SXA SCNXR1,1
04142 -0500 00 0 04533 CAL =H ALSO INITIALIZE FINAL WORDS
04143 0602 00 0 04375 SLW H
04144 0602 00 0 04376 SLW H+1
04145 0602 00 0 04377 SLW H+2
04146 -0774 00 1 00000 AXC 0,1 POINTER FOR WHERE FIELD WORD IS TO BE STORE
04147 0774 00 2 00044 AXT 36,2 SET UP THE CHARACTER POSITIONER
04150 0634 00 2 04200 SXA SCN4A+1,2
04151 0600 00 0 04352 STZ SCNESW INITIALIZE -E- SWITCH
04152 0600 00 0 04342 STZ PCC AND CHARACTER COUNT
04153 0560 00 0 04353 LDQ SCNMQ RESTORE MQ WORD
04154 0774 00 4 00000 SCN1 AXT **,4 WORD COUNT
04155 0774 00 2 00000 SCN2 AXT **,2 CHARACTER COUNT
04156 0020 00 0 04225 TRA SCN3 *
04157 0560 00 4 04375 SCN6 LDQ IB+14,4 GET FIRST OR NEXT BUFFER WORD
04160 0774 00 2 00006 AXT 6,2 CHARACTER COUNTER
04161 -0754 00 0 00000 SCN5 ZAC
04162 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER
04163 -0340 00 0 04427 LAS =H00000, IS IT A COMMA
04164 0020 00 0 04174 TRA SCN4 GREATER THAN COMMA IS LEGIT CHARACTER
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 46
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
04165 0020 00 0 04232 TRA SCNCMA GO TO PROCESS COMMA
04166 -0340 00 0 04424 LAS =O55 IS THIS A CHARRIAGE RETURN
04167 0020 00 0 04171 TRA SCN40 NO--TEST FOR BLANK
04170 0020 00 0 04227 TRA SCNBLK YES--TREAT AS BLANK
04171 -0340 00 0 04425 SCN40 LAS =H00000 IS CHARACTER A BLANK
04172 0020 00 0 04174 TRA SCN4 NO
04173 0020 00 0 04227 TRA SCNBLK YES--GO END SCAN
04174 -0340 00 0 04423 SCN4 LAS =H00000E LOOK FOR AN 'E'
04175 0020 00 0 04177 TRA SCN4A NOT AN -E-
04176 -0625 00 0 04352 STL SCNESW TURN ON E SWITCH
04177 0634 00 2 04224 SCN4A SXA SCN3-1,2 SAVE THE CHARACTER COUNTER
04200 0774 00 2 00000 AXT **,2 AND RESTORE THE CHARACTER POSITIONER
04201 3 00000 2 04205 TXH SCN4C,2,0 IF BIT COUNT .G. 0, CONTINUE
04202 1 77777 1 04203 TXI SCN4B,1,-1 OTHERWISE INCREASE FINAL WORD POINTER
04203 -3 77775 1 04243 SCN4B TXL SCNERR,1,-3 ERROR IF FIELD CONTAINS MORE THAN 18 CHARAC
04204 0774 00 2 00044 AXT 36,2 RESTORE COUNT
04205 1 77772 2 04206 SCN4C TXI SCN4D,2,-6 DECREASE BIT AND SHIFT COUNT
04206 0634 00 2 04217 SCN4D SXA SCN4E,2 AND SAVE IT HERE
04207 0634 00 2 04213 SXA SCN4F,2 SAVE CHARACTER COUNT
04210 0634 00 2 04200 SXA SCN4A+1,2 SAVE THE CHARACTER POSITIONER
04211 0602 00 0 04353 SLW SCNMQ AND SAVE CHARACTER
04212 -0500 00 0 04430 CAL =O77 PREPARE TO CLEAR CHARACTER
04213 0767 00 0 00000 SCN4F ALS ** SHIFT TO PROPER SPACE
04214 0760 00 0 00006 COM
04215 0320 00 1 04375 ANS H,1 AND CLEAR IT
04216 -0500 00 0 04353 CAL SCNMQ RESTORE CHARACTER
04217 0767 00 0 00000 SCN4E ALS ** MOVE CHARACTER
04220 -0602 00 1 04375 ORS H,1 AND PUT IT IN PLACE
04221 -0500 00 0 04342 CAL PCC
04222 0400 00 0 04413 ADD =1
04223 0601 00 0 04342 STO PCC
04224 0774 00 2 00000 AXT **,2 RESTORE THE CHARACTER COUNTER
04225 2 00001 2 04161 SCN3 TIX SCN5,2,1 COUNT CHARACTERS
04226 2 00001 4 04157 TIX SCN6,4,1 OTHERWISE MOVE ON TO MORE WORDS
HERE IF RUN OFF THE END OF THE BUFFER
04227 -0500 00 0 04533 SCNBLK CAL =H SET UP BLANK FOR NEXT CHARACTER
04230 0602 00 0 04354 SLW SCNNC SAVE THIS FOR NEXT CHARACTER
04231 0020 00 0 04237 TRA SCNXR4
04232 -0501 00 0 04532 SCNCMA ORA =H 0 SET UP COMMA TO SHOW AS NEXT CHARACTER,COMM
04233 0602 00 0 04354 SLW SCNNC SAVE AS NEXT CHARACTER
04234 -0600 00 0 04353 STQ SCNMQ SAVE THE MQ WORD
04235 0634 00 4 04154 SXA SCN1,4 AND THE WORD COUNT
04236 0634 00 2 04155 SXA SCN2,2 AND THE CHARACTER COUNT
04237 0774 00 4 00000 SCNXR4 AXT **,4
04240 0774 00 2 00000 SCNXR2 AXT **,2
04241 0774 00 1 00000 SCNXR1 AXT **,1
04242 0020 00 4 00002 TRA 2,4 RETURN TO CALLER
04243 0074 00 4 03175 SCNERR TSX WRFLX,4 COMMENT TO USER THAT FIELD IS IN ERR
04244 0 00004 0 04246 COM6,,COM6.
04245 0020 00 0 00231 TRA FLXEND RETURN CONTROL TO TSS
04246 602631254324 COM6 BCI 4, FIELD EXCEEDS 18 CHAR.
04247 602567232525
04250 246260011060
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 47
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
04251 233021513360
00004 COM6. SYN *-COM6
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
04252 0520 00 0 04356 STORE ZET STRSW HAVE I BEEN HERE ONCE YET
04253 0020 00 0 04264 TRA STR4 YES--NOW STORE WORD
04254 0500 00 0 04350 CLA PREL. IS THERE A SPECIAL RELOCATION FOR LINE
04255 -0100 00 0 04260 TNZ STR1 YES, USE THAT
04256 -0120 00 0 04260 TMI STR1 YES, USE THAT (THIS TIME COMMON)
04257 0500 00 0 04347 CLA PREL NO, USE NORMAL MODE
04260 0400 00 0 04345 STR1 ADD PLOC ADD IN THE LOCATION COUNTER
04261 0621 00 0 04266 STA STR3 AND SAVE THE ADDRESS
04262 -0625 00 0 04356 STL STRSW SHOW ADDRESS ALREADY COMPUTED
04263 0020 00 4 00001 TRA 1,4 AND MOVE WORD
04264 0600 00 0 04356 STR4 STZ STRSW INDICATE NO ADDRESS COMPUTED,STORE WORD
04265 -0500 00 0 04351 CAL PWORD GET THE WORD
04266 0602 00 0 00000 STR3 SLW ** STORE IT HERE
04267 0020 00 4 00001 TRA 1,4
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
04270 0634 00 4 04312 UPLOC SXA UPLXR4,4 SAVE INDEX RETURN,INCREASE PLOC TO NEXT LOC
04271 0534 00 4 04345 LXA PLOC,4 GET PLOC
04272 -0500 00 0 04350 CAL PREL. NOW LOOK FOR LOCAL RELOCATION
04273 0100 00 0 04300 TZE UPL1 IF SERO, NOTHING- GO TEST NORMAL MODE
04274 0500 00 0 04350 CLA PREL. NOW CHECK FOR -0 AND OTHERS
04275 0120 00 0 04303 TPL UPL1B UP LOCATION COUNTER
04276 -0100 00 0 04302 TNZ UPL1A - NON ZERO IS COMMON, FORCE IT
04277 0020 00 0 04303 TRA UPL1B -0 IS ABS, UP LOCATION
04300 -0520 00 0 04343 UPL1 NZT PCMSW IS THE NORMAL MODE COMMON
04301 0520 00 0 04344 ZET PCMSW. NO, IS THE LINE MODE COMMON
04302 1 77777 4 04304 UPL1A TXI UPL2,4,-1 YES, FORCE DECRESE IN LOCATION
04303 1 00001 4 04304 UPL1B TXI UPL2,4,1 NO, FORCE INCREASE OF LOCATION
04304 0634 00 4 04345 UPL2 SXA PLOC,4 SAVE NEXT LOCATION
04305 -0520 00 0 04346 NZT PPATSW IS THE P SWITCH ON TO SET MEM BOUND
04306 0020 00 0 04312 TRA UPLXR4 NO, EXIT
04307 0754 00 4 00000 PXA ,4 YES, GET THE PROPER LOCATION TO SET BOUND
04310 0400 00 0 04413 ADD =1
04311 0074 00 4 04321 TSX SETMEM,4 AND SET MEMORY BOUND ANEW
04312 0774 00 4 00000 UPLXR4 AXT **,4 RESTORE RETURN
04313 0020 00 4 00001 TRA 1,4 AND THEN RETURN
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 48
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
* - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * -
TSS SUBROUTINE CALL TABLE
04314 0101 00 0 04541 SETBRK TIA =HSETBRK
04315 0101 00 0 04540 SAVBRK TIA =HSAVBRK
04316 0101 00 0 04441 DORMNT TIA =HDORMNT
04317 0101 00 0 04451 GETMEM TIA =HGETMEM
04320 0101 00 0 04463 RDFLXA TIA =HRDFLXA
04321 0101 00 0 04542 SETMEM TIA =HSETMEM
FORMATS FOR DUMMY IOH
04322 744660606060 PFMT1 BCI 2,(O )
04323 346060606060
04324 742660606060 PFMT2 BCI 2,(F .8)
04325 331034606060
04326 742560606060 PFMT3 BCI 2,(E .8)
04327 331034606060
04330 743160606060 PFMT4 BCI 2,(I )
04331 346060606060
CONSTANTS AND STUFF
04332 0 00000 0 00000 GTLSI PZE 0 TEMP FOR SAVING INDICATORE
04333 0 00000 0 00000 GTNSI PZE 0 TEMP FOR SAVING INDICATORS
04334 0 00000 0 00000 GTNTMP PZE 0 TEMP FOR GETNUM ROUTINE
04335 0 00000 0 00000 GTRPSW PZE 0 TEMP FOR SETTING NEW MEM BOUND
04336 0 00000 0 00000 GTRTMP PZE 0
04337 0 00000 0 00000 OCTSCS PZE 0 TEMP FOR OCTAL SCAN
04340 0 00000 0 00000 OCTTMP PZE 0 TEMP FOR SAVING OCTAL RELOCATION BITS
04341 0 00000 0 00000 PAKSET PZE 0 TEMPORARY TO SHOW ACKNOWLEDGE MODE SAVED
04342 0 00000 0 00000 PCC PZE 0 CHARACTER COUNT FOR CURRENT FIELD
04343 0 00000 0 00000 PCMSW PZE 0 COMMON SWITCH--NORMAL MODE
04344 0 00000 0 00000 PCMSW. PZE 0 SWITCH TO SHOW LINE MODE IS COMMON
04345 0 00000 0 00000 PLOC PZE 0 LOCATION OF CURRENT INSTRUCTION
04346 0 00000 0 00000 PPATSW PZE 0 SWITCH FOR 'P' RELOCATION
04347 0 00000 0 00000 PREL PZE 0 NORMAL RELOCATION AMMOUNT
04350 0 00000 0 00000 PREL. PZE 0 SPECIAL RELOCATION AMOUNT
04351 0 00000 0 00000 PWORD PZE 0 TEMP FOR SAVING WORD
04352 0 00000 0 00000 SCNESW PZE 0 SWITCH FOR AN -E- PASSED DURING SCAN
04353 0 00000 0 00000 SCNMQ PZE 0 TEMP FOR SAVING MQ WORD IN SCAN ROUTINE
04354 0 00000 0 00000 SCNNC PZE 0 TEMP FOR NEXT CHARACTER IN SCAN ROUTINE
04355 0 00000 0 00000 STPATP PZE 0 TEMP FOR -STOPAT- INSTRUCTION
04356 0 00000 0 00000 STRSW PZE 0 TEMP FOR ASSURING ALTERNATE ENTRY TO STORE
04357 IB BSS 14 BUFFER FOR INPUT
04375 H BSS 3
04400 BSS 10 THIS AREA IS PATCH SPACE ****************
*
77461 A COMMON -1
77771 COMMON -199
77741 COMMON 24
77741 COL. COMMON 1
77740 RTN. COMMON 1
77737 FMT. COMMON 1
77742 REC SYN COL.+1
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 49
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
*
END
LITERALS
04412 000000000000
04413 000000000001
04414 000000000002
04415 000000000003
04416 000000000004
04417 000000000005
04420 000000000006
04421 000000000007
04422 000000000012
04423 000000000025
04424 000000000055
04425 000000000060
04426 000000000061
04427 000000000073
04430 000000000077
04431 000000007777
04432 000000077777
04433 000001000000
04434 000002000000
04435 000077777777
04436 171717171717
04437 212346266000
04440 215160606060
04441 244651444563
04442 254524606060
04443 254563315125
04444 262660606060
04445 262673242363
04446 264551634560
04447 272563234644
04450 272563314323
04451 272563442544
04452 276044462425
04453 300000000000
04454 300007777777
04455 377000000000
04456 377777700000
04457 400000000000
04460 433127306362
04461 456060606060
04462 456073242363
04463 512426436721
04464 600000000000
04465 600000000060
04466 600000006060
04467 600260606060
04470 600360606060
04471 600460606060
04472 602122623360
04473 602123601360
04474 602374003413
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 50
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
04475 602374023413
04476 602374103413
04477 602647636046
04500 603167016013
04501 603167026013
04502 603167036013
04503 603167046013
04504 603167056013
04505 603167066013
04506 603167076013
04507 604331273063
04510 604450601360
04511 604626267360
04512 604645607360
04513 604751462760
04514 605125433373
04515 606000000000
04516 606003406321
04517 606007406321
04520 606021226233
04521 606021646346
04522 606031432333
04523 606051254333
04524 606060222324
04525 606060242523
04526 606060263167
04527 606060264346
04530 606060462363
04531 606060512565
04532 606060606000
04533 606060606060
04534 606062634647
04535 606225456225
04536 606231601360
04537 606263464713
04540 622165225142
04541 622563225142
04542 622563442544
04543 626046456001
04544 626046456060
04545 626346442147
04546 635121476233
04547 665126436760
04550 700000000000
04551 736050601300
04552 736050601301
04553 736062601300
04554 736062601301
04555 742106346060
04556 742526634434
04557 744326634434
04560 744421314534
04561 744601023460
04562 777700000000
04563 777777770000
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 51
PATCH, STOPAT, AND TRA FACILITY FOR CMPM...R ORENSTEIN
04564 777777777777
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 1
POST PROCESSOR ASSEMBLY DATA
77736 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
4565 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
77461 A 1473, 4412
4375 H 3251, 3255, 3302, 3315, 3323, 3553, 4116, 4117, 4120, 4143, 4144, 4145, 4215, 4220
4357 IB 3244, 4122, 4157
0 .. 3021, 3022, 3023, 3032
1010 L2 71, 103, 346, 416, 1136, 1147, 1152, 1157, 1170, 1206, 2014, 2016, 2024, 3221, 3223, 3227, 3421
3466, 3633, 3635, 3641
2673 R1 2616, 2664, 2710, 2723, 2726, 2750, 2752, 2756, 2760, 2762
2706 R2 2627, 2671, 2674, 2676, 2677, 2701
2712 R3 2663
2713 R4 2662
2125 SQ 1371, 1540, 1565
2126 SV 1402, 2065
3030 XX 2767, 3005, 3013, 3017
2127 2SV 1404, 1461, 2072
2130 8SV 1406, 1457, 2077
2255 AR1 2163
2254 AR2 2162, 2241, 2251
436 AXT 426, 430, 435
3377 DEC 3406, 4103
655 DU1 660
662 DU2 646
663 DU3 645
3353 FLO 3366, 4077
665 FMT 502
1007 ILC 147, 400, 405, 1063, 1071, 1122, 1374, 1456, 2026, 2036, 2043, 2047
2132 IND 1451, 1511, 1543, 1640
3367 INT 3376, 4101
2157 IR1 1365, 1536, 1612
2160 IR2 1366, 1537, 1620
2000 IR3 1664, 1672, 1705
2161 IR4 7, 1626
2001 IR5 1675, 1713
2002 IR6 1676, 1721
2003 IR7 1677, 1727
127 NCK 121
315 NUM 2175, 2605, 2606
3304 OCT 3352, 4075
3065 ORG 3043, 3061, 3073
4342 PCC 3247, 3300, 3313, 3546, 3675, 4121, 4152, 4221, 4223
77742 REC 3554, 4412
1420 SV3 1407
1422 SV4 1417
1457 SV6 1453
746 TAB 425
1253 TB1 1247, 1253
1263 TB2 517, 563, 1254, 1255, 1256, 1257, 1260, 1261, 1262, 1263, 1264, 1265, 1266, 1267, 1270, 1271, 1272
1273, 1274, 1275, 1276, 1277, 1300, 1301, 1302, 1303, 1304, 1305, 1306, 1307, 1310, 1311, 1312, 1313
1314, 1315, 1316, 1317, 1320, 1321, 1322, 1323, 1324, 1325, 1326, 1327, 1330, 1331, 1332, 1333, 1334
1335, 1336, 1337, 1340, 1341, 1342, 1343, 1344, 1345, 1346, 1347, 1350, 1351, 1352, 1353, 1354, 1355
1356, 1357, 1360, 1361, 1362
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 2
POST PROCESSOR ASSEMBLY DATA
3031 TMP 3006, 3011, 3012
3454 TRA 0
3020 XAD 2771
1674 7TAG 1670
1002 ADDR 454, 462, 2716, 2745
355 AUTO 311
3736 BREL 3725
3515 BTDC 3547
4016 BTOC 3416
4074 BTYP 4056
3073 CADR 3056
3551 CNV1 3533, 3545
3557 CNV2 3534
3560 CNV3 3543
77741 COL. 624, 3572, 4412
4067 COM1 4063, 4065, 4074
3473 COM2 3467, 3471, 3477
3502 COM3 3500, 3507
3512 COM4 3510, 3515
3445 COM5 3420, 3422, 3440, 3454
4246 COM6 4244, 4252
3003 DECL 3027
605 DFLO 600
3565 DIOH 3556
645 DUMM 641, 642
3754 EREL 3725, 3726, 3730, 3754
4104 ETYP 4056, 4057, 4061, 4104
420 EXEC 211, 223, 230, 354
444 EXPR 451, 716
3362 FLO1 3360
555 FMT2 554, 727
77737 FMT. 622, 3566, 3570, 4412
304 FXLT 43
307 FXST 46
3713 GTN1 3702
3677 GTN2 3710
3720 GTN3 3712
3731 GTR1 3727
3734 GTR2 3724, 3732, 3755, 3764, 3771, 3773, 3775
3726 GTR3 3731
425 HEDD 443, 2637
2005 ILC. 360, 1553
3021 IRR1 2764
3022 IRR2 2765
3023 IRR4 2766
4001 LBT1 4014
4012 LBT2 4005
2257 LSTA 2240
1046 MODE 13, 344, 376, 422, 445
2757 MORP 2633, 2746
3166 MOVE 3170
346 NORM 132
2763 NREP 2733, 2734
3306 OCT1 3351
3025 OCTL 3002
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 3
POST PROCESSOR ASSEMBLY DATA
145 ORDC 142
4027 OTBC 3260, 3665
530 OTOT 536
1470 OVFL 1411, 1413, 1431
447 PCUP 452, 521, 537, 551, 572
3237 PEND 3277, 3305, 3354, 3370, 3400
2727 PIX1 2641, 2646, 2657
2730 PIX2 2642, 2660
2711 PIX4 2643, 2753
4345 PLOC 3257, 3261, 3262, 3415, 3666, 4260, 4271, 4304
4347 PREL 3211, 3235, 3650, 3774, 4257
4057 PTP2 4062
4062 PTP3 4060
2761 R222 2755
2703 RDIF 2623
4044 RJW1 4050
4052 RJW2 4047, 4051
4053 RJW3 4052
77740 RTN. 632, 633, 636, 3577, 3600, 3603, 4412
2677 SAME 2675
4134 SCAN 3276, 3304, 3311, 3353, 3367, 3377
4154 SCN1 4110, 4235
4155 SCN2 4114, 4236
4225 SCN3 4156, 4177
4174 SCN4 4164, 4172
4161 SCN5 4225
4157 SCN6 4130, 4226
2605 SIZE 2173
251 SKWD 255
1771 SPIT 444, 1607, 1663, 1742, 1764, 2051, 2101
3052 SRCH 3040, 3057, 3111
3444 STPB 3414
4260 STR1 4255, 4256
4266 STR3 4261
4264 STR4 4253
745 TAB1 2624
2270 TABL 2176, 2242, 2606
3122 TPRT 3107
3465 TRA1 3461
4300 UPL1 4273
4304 UPL2 4302, 4303
2755 UPR1 2703
1054 WORD 474, 505, 507, 511, 516, 522, 526, 545, 562, 573, 576, 601, 603, 711, 2714, 2732
2021 ABPRO 2015
1003 ADRUM 123, 135, 141, 144, 155, 156, 163, 165, 351, 404, 2611, 2620
3062 AGAIN 3041, 3071
1132 ANONM 1146
373 AUTO1 371
363 AUTO2 357
1004 BDRUM 125, 134, 140, 143, 157, 161, 166, 170, 200, 353, 412, 2607, 2617, 3020
3127 BSSHD 3045
3521 BTDC1 3525
4025 BTOCX 4016
3162 CNVRT 3066, 3074
5 COM1. 4065, 4074
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 4
POST PROCESSOR ASSEMBLY DATA
4 COM2. 3471, 3477
5 COM3. 3500, 3507
3 COM4. 3510, 3515
7 COM5. 3440, 3454
4 COM6. 4244, 4252
776 COMMT 414
3531 CONVT 3306, 3361, 3371, 3401
617 DECIM 616
3612 DIOH2 3606, 3607
1005 DIREC 12, 227, 377, 415, 2610, 2614, 2631
721 DNREP 2735, 2742, 2744
2605 ENTBL 2606
1006 ENTRY 6, 232, 235, 1452, 3205, 3407, 3432, 3443, 3454, 3464
423 EXEC3
1147 FIXL2 1132, 1143
754 FIXLN 561, 730
272 FLEXE 106
312 FLTEM 256, 266, 2770, 2776
275 FLXCI 273
1127 FNFND 1123, 1236
3177 FNRTN 233, 236
3111 FULST 3035
311 FXLAS 53, 60, 63, 306
4332 GTLSI 3614, 3670
3717 GTN1A 3715
4333 GTNSI 3674, 3721
3754 GTR.1 3737, 3745
3760 GTR.2 3741, 3757
3772 GTR.3 3743, 3751
3774 GTR.4 3753
3204 ILCIN 52, 356, 361
2052 ILC.1 2005
2053 ILC.2 2006
2054 ILC.4 2007
1057 ILLOC 150, 355
3610 INCOL 3571
2702 INROW 2700
340 KPCN4 335
3120 LASTT 3116
3776 LBTTB 3220, 3632
756 LHALL 753, 756
771 LHBCD 747
766 LHDEC 746
773 LHFIX 751
761 LHFLO 750
756 LHOCT 752
2124 LOGAC 1367, 1542, 1562
3004 LOOOP 3003, 3016
1035 LOVER 240
2233 LOWER 2174, 2203
3016 LPEND 3004
775 LSTIR 477, 515, 541, 550, 654, 661, 701, 715
3611 MDSW. 3536, 3541, 3567
2725 MORP1 2634
2123 MQ(SV 1363, 1547, 1600
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 5
POST PROCESSOR ASSEMBLY DATA
1047 NCLIP 14, 145, 151, 171, 417, 1153
1050 NOLFT 16, 310, 370
2036 NOREL 2025
1051 NOSTP 15, 305, 373
2111 OC111 2117
3323 OCT1C 3317
3324 OCT1D 3322
3321 OCT1E 3312
3320 OCT1F 3314
612 OCTLN 611
2267 OPBIN 2167, 2200, 2234
1121 ORGFD 1104, 1114, 1117
2120 OTOT1 2106
2121 OTOT2 2107
3205 PATCH 0
3235 PCH1A 3226
3274 PCH2A 3264
4343 PCMSW 3212, 3236, 3647, 4300
3466 PERR1 3231, 3267, 3331, 3342, 3643
3477 PERR2 3250, 3301
3507 PERR3 3716
4322 PFMT1 3307
4324 PFMT2 3355
4326 PFMT3 3357
4330 PFMT4 3372, 3402
3132 PHEAD 3047
4350 PREL. 3240, 3274, 3651, 4254, 4272, 4274
4056 PTYPE 3303, 4056
4351 PWORD 3333, 3334, 3343, 3344, 3426, 3542, 3561, 3617, 3631, 3663, 4265
2232 RAISE 2201
4041 RJWLZ 3623
2707 RSOX4 2665
4104 SCANI 3245
4171 SCN40 4167
4177 SCN4A 4112, 4150, 4175, 4210
4203 SCN4B 4202
4205 SCN4C 4201
4206 SCN4D 4205
4217 SCN4E 4206
4213 SCN4F 4207
4131 SCNI1 4126
4353 SCNMQ 4153, 4211, 4216, 4234
4354 SCNNC 4124, 4134, 4230, 4233
2175 SRCH1 2204, 2205, 2206, 2207, 2210, 2211, 2212, 2213, 2214, 2215, 2216, 2217, 2220, 2221, 2222, 2223, 2224
2225, 2226, 2227
2201 SRCH2 2175
1055 STLOC 105, 122, 154, 160, 173, 350, 455, 1074, 1125, 1162, 1167, 1223, 2027, 3225, 3637
4252 STORE 3275, 3345, 3347, 3363, 3365, 3373, 3375, 3403, 3405, 3427, 3667
3650 STP1A 3640
3631 STPA1 3626
3655 STPA2 3653
3663 STPA3 3654
3423 STPA4 3413, 3436
3432 STPA5 3431
3633 STPA6 3630
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 6
POST PROCESSOR ASSEMBLY DATA
4356 STRSW 3237, 3460, 4252, 4262, 4264
3071 SUBPR 3064
2672 SWORD 2612, 2667, 2715, 2724
1164 SZLOC 104, 3224, 3636
3057 TSTTV 3053
2234 TYPEA 2172, 2230, 2231
3110 UPIX2 3070, 3105, 3125
4302 UPL1A 4276
4303 UPL1B 4275, 4277
4270 UPLOC 3346, 3364, 3374, 3404
3175 WRFLX 237, 272, 413, 1774, 3044, 3046, 3117, 3122, 3437, 3470, 3477, 3507, 4064, 4243
0 (FIL) 514, 547, 714
1 (IOH) 640, 3605
1251 (OT1) 1237
1504 (RSL1 1376, 1475, 1501
3 (RTN) 3562
1471 ABSCOM 1463
163 ABSDMP 152
733 ALLFMT 732
174 ARJOIN 153, 162
562 BCDOUT 470
2640 BEGINA 2606, 2644, 2654, 2656, 2670, 2721, 2722
3526 BTDCX4 3515
25 CLEARA 31
3172 CNVRX1 3162
3563 CNVXR4 3531
2655 COLFST 2626
2732 COMMNT 2706
1472 COMREL 164, 167, 172, 1465, 3772
614 DECINT 575, 604
573 DECOUT 467
2645 DIFFER 2622
717 DNREP1 675
4316 DORMNT 3442, 3463
671 EXEC31 420, 421, 450
1056 FINLOC 124, 1073, 1130, 1161, 1166
557 FIXOUT 472
133 FLDTWO 36, 40, 131
6 FLEXPM 0
552 FLOOUT 471, 606
231 FLXEND 241, 274, 347, 362, 367, 374, 673, 3121, 3246, 3254, 3430, 3472, 3501, 3511, 3622, 3661, 4066
4245
234 FLXQUT 1400
3176 GETCOM 20, 111, 204, 216, 244, 3213, 3615, 3655
3200 GETILC 1373
3613 GETLOC 3412, 3457, 3613
4317 GETMEM 3761
3673 GETNUM 3256, 3673
3724 GETREL 3230, 3266, 3330, 3341, 3642, 3724
3671 GTLXR4 3613
4334 GTNTMP 3676, 3705, 3707, 3720
3722 GTNXR4 3673
3756 GTR.21 3747
4335 GTRPSW 3756, 3760, 3763
4336 GTRTMP 3762, 3767
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 7
POST PROCESSOR ASSEMBLY DATA
270 INTRP1 242
242 INTRPF 133, 137
3607 IOFMT. 3565
643 IOHCOL 623
642 IOHFMT 621
644 IOHRTN 625, 627, 630, 631, 3573, 3575, 3576
321 KPCNT1 316
326 KPCNT2 323
333 KPCNT3 330
4010 LBTXR4 3776, 4015
1110 LETHMV 1076, 1112, 1120, 1126
314 MODEC1 213
2 MOVIE) 174, 1061, 1065, 1075, 1100, 1173, 1176, 3032, 3037
3126 NAMSTO 66, 102, 3100, 3103, 3104
202 NOTBIG 126
3146 NUMBER 3055, 3072, 3075, 3077, 3101, 3120, 3123
1237 OCTAD) 457, 463, 1613, 1621, 1627, 1706, 1714, 1722, 1730, 2031, 2037
2106 OCTCVT 1563, 1601, 1606, 2050, 2066, 2073, 2100
522 OCTOUT 473
4337 OCTSCS 3310, 3320, 3350
4340 OCTTMP 3326, 3335, 3520, 3524, 3527
1157 OGILC1 1064, 1072, 1110, 1171, 1212
3174 ORGTNT 3067, 3076
4037 OTBXR4 4027
540 OUTALL 553, 560, 610, 615
2133 OUTLST 432, 434, 440, 460, 464, 520, 524, 534, 570, 571, 656, 676, 1560, 1570, 1574, 1576, 1603
1611, 1614, 1617, 1622, 1625, 1630, 1633, 1635, 1643, 1661, 1704, 1707, 1712, 1715, 1720, 1723, 1726
1731, 1736, 1740, 1744, 1750, 1754, 1756, 1762, 1775, 2012, 2017, 2022, 2032, 2034, 2040, 2042, 2045
2063, 2070, 2075, 2115
4341 PAKSET 1505, 3210
4344 PCMSW. 3242, 3273, 4301
4346 PPATSW 3241, 3770, 4305
4320 RDFLXA 3243
154 REJOIN 146
1473 RELCOM 1464
674 REPEAT 453
710 REPFMT 704
732 REPTBL 702
1466 RESIX4 1372
4054 RJWXR4 4041
4315 SAVBRK 1375, 1477
2721 SAVEIX 2754
4227 SCNBLK 4170, 4173
4232 SCNCMA 4165
4243 SCNERR 4203
4352 SCNESW 3356, 4151, 4176
4241 SCNXR1 4106, 4141
4240 SCNXR2 4105, 4132, 4140
4237 SCNXR4 4104, 4131, 4137, 4231
4314 SETBRK 1377, 1503
4321 SETMEM 3766, 4311
1136 SLWLST 1134
2131 SNSIND 1364, 1506, 1605
1154 STIEND 1057, 1060, 1163, 1164, 1165
1111 STINF1 1101, 1141, 1177, 1203, 1217, 1230
1 F2PM REVISED BY SPALL TO UPDATE THE OPERATION TABLE AND CLEANUP 12/17/69 1756.4 PAGE 8
POST PROCESSOR ASSEMBLY DATA
1115 STINF2 1102, 1133, 1144, 1200, 1214, 1225
344 STMODE 320, 325, 332, 337, 342
3121 STOEND 3115
3032 STOMAP 67, 116
3407 STOPAT 0, 3407
3664 STPA3A 3662
4355 STPATP 3424, 3435
3431 STPRTN 3425
1203 SZLOC1 1211
1211 SZLOC2 1174
1213 SZLOC3 1207, 1221
1222 SZLOC5 1202, 1216, 1234
1225 SZLOC6 1233
1234 SZLOC7 1227, 1232
2004 TAGMOD 1665, 1674, 1700, 1734
1052 TEMPS1 314, 321, 326, 333, 340, 1423, 1425
1053 TEMPS3 22, 41, 44, 47, 54, 61, 64, 100, 113, 114, 117, 127, 206, 207, 212, 220, 221
224, 246, 247, 264, 476, 503
237 TOOBIG 201
2102 TRAIX4 2056, 2057, 2060
3203 TRAPSI 57, 363, 366
2056 TRAPS. 365
4312 UPLXR4 4270, 4306
2764 (DCDR) 267
621 (DUMM) 501, 543, 707
3202 (EFTM) 1513
3201 (LFTM) 1424
2242 (OPCD1 2166, 2202
2252 (OPCD2 2246
2162 (OPCD) 475, 523, 2044
2662 (PCUP1 2655
2653 (PCUP3 2647
2647 (PCUP4 2636, 2651
2654 (PCUP5 2645
2641 (PCUP) 447
1765 (PRLT4 1552, 1554, 1555
1552 (PRLT) 372
1550 (RSLT4 1474, 1476
1474 (RSLT. 234
1476 (RSLT) 231, 3441, 3462
2606 (STPC) 423
1363 (SVLT) 11, 3207, 3411, 3434, 3456
0 NO ERROR IN ABOVE ASSEMBLY.
TRAC BCD 12/17/69 1758.5 21225 00000
1 FAP 12/17/69 1756.9 PAGE 1
* TRACE PROGRAM FOR FOREGROUND CTSS, BLW JUNE 1964
* MODIFIED JULY 27, 1964 BY BLW (PM FEATURE ADDED)
* MODIFIED JULY 29, 1964 BY BLW (TXL USED INSTEAD OF STR)
* MODIFIED AUG 29, 1964 BY BLW (VALUE,HALT,ARGS ADDED)
PCC ON
1 FAP 12/17/69 1756.9 PAGE 2
TRACE PROGRAM FOR FOREGROUND CTSS
TTL TRACE PROGRAM FOR FOREGROUND CTSS
00005 ENTRY TRACE
00003 ENTRY STRACE
EXTERN MOVIE)
PMC ON
LBL TRACE,PLEASE
*
* FORMAT OF TRACE TABLE ...
* TABLE,1 NAME
* TABLE+1,1 AFTER,,UNTIL (MINUS MEANS TRACING OFF)
* TABLE+2,1 EVERY,,STOP
* TABLE+3,1 COUNT,,CALL
* TABLE+4,1 SUBENT,,ARG (INFO ABOUT DEBUGGING SUBROUTINE)
* TABLE+5,1 PM,,PMINFO
* TABLE+6,1 ENTRY,,HALT (ENTRY POINT OF SUB BEING TRACED)
* TABLE+7,1 VALUE,,ARGS
* TABLE+8,1 FIRST LOC OF RETURN POINT
* TABLE+9,1 SECOND LOC OF RETURN POINT
*
TYPE MACRO COUNT,MESS,LABEL
TSX WRFLX,4
PZE LABEL,,COUNT
RMT
LABEL BCI COUNT,MESS
RMT
TYPE END
1 FAP 12/17/69 1756.9 PAGE 3
TRACE - PROCESS INPUT LINES
TTL TRACE - PROCESS INPUT LINES
TRANSFER VECTOR
BINARY CARD NO. TRACE001
00000 444665312534 MOVIE)
LINKAGE DIRECTOR
00001 000000000000
00002 635121232560
00003 -0625 00 0 02257 STRACE STL CTSS CTSS COMMAND ENTRY
00004 0020 00 0 00006 TRA TRACE+1 GO SAVE MACHINE CONDITIONS
00005 0600 00 0 02257 TRACE STZ CTSS SUBROUTINE ENTRY
00006 0634 00 4 01340 SXA SAVX4,4
00007 0074 00 4 01251 TSX SAVMC,4
00010 0534 00 4 00000 LXA $MOVIE),4 GET MOVIE) ENTRY POINT
00011 3 00000 4 00015 TXH OK,4,0 CHECK FOR TYPE OF LOAD
00012 TYPE 6,(MOVIE TABLE ERASED, CANNOT TRACE.)
00012 0074 00 4 01650 TSX WRFLX,4 .001
00013 0 00006 0 02413 PZE ..001,,6 .001
RMT .001
..001 BCI 6,MOVIE TABLE ERASED, CANNOT TRACE. .001
RMT .001
00014 0020 00 0 00470 TRA EXIT PROG WAS VLOADED OR NCLOADED
00015 OK TYPE 3,(TRACE ENTERED.) ANNOUNCE ENTRY
00015 0074 00 4 01650 TSX WRFLX,4 .001
00016 0 00003 0 02421 PZE ..002,,3 .001
RMT .001
..002 BCI 3,TRACE ENTERED. .001
RMT .001
00017 0074 00 4 01450 NAMEIN TSX NEXWRD,4 READ SUBROUTINE NAME
00020 0 00000 0 00017 PZE NAMEIN GO TO NAMEIN IF ',' FOUND
00021 0602 00 0 02250 SLW NAME SAVE NAME
00022 0322 00 0 01704 ERA ASTER
00023 0100 00 0 00466 TZE THRU
BINARY CARD NO. TRACE002
00024 -0500 00 0 02250 CAL NAME
00025 0600 00 0 02247 STZ TABPOS ZERO TABLE LOCATION
00026 0774 00 1 00000 TABCNT AXT **,1 GET TABLE LENGTH
00027 -3 00000 1 00035 TABCH TXL FP,1,0 DON'T SEARCH IF NOTHING IN TABLE
00030 -0340 00 1 02215 LAS TABLE,1 IS NAME IN TABLE
00031 1 77766 1 00027 TXI TABCH,1,-NPENT NO
00032 0020 00 0 00034 TRA *+2 YES, SO END SEARCH
00033 1 77766 1 00027 TXI TABCH,1,-NPENT NO,SO CONTINU
00034 0634 00 1 02247 SXA TABPOS,1 NAME IN, SO SAVE LOCATION
00035 0074 00 4 01450 FP TSX NEXWRD,4 GET COMMAND NAME
00036 0 00000 0 00037 PZE *+1
00037 0602 00 0 02251 SLW COMMND
00040 0322 00 0 02553 ERA =HREMOVE IS COMMAND 'REMOVE'
00041 0602 00 0 02255 SLW LINE1 SET SWITCH (ZERO MEANS 'REMOVE')
00042 -0100 00 0 00046 TNZ *+4 IF NOT 'REMOVE', KEEP LOOKING
00043 -0520 00 0 02247 NZT TABPOS CHECK IF IN TRACE TABLE
00044 0020 00 0 00100 TRA NOTIN NOT IN, GO PRINT ERROR COMMENT
1 FAP 12/17/69 1756.9 PAGE 4
TRACE - PROCESS INPUT LINES
00045 0020 00 0 00127 TRA FINNAM-1 GO FIND ENTRY POINT
00046 -0500 00 0 02251 CAL COMMND
00047 0322 00 0 02550 ERA =HOFF IS COMMAND 'OFF'
BINARY CARD NO. TRACE003
00050 -0100 00 0 00053 TNZ *+3
00051 -0500 00 0 00051 CAL * SET AC NON-ZERO
00052 0020 00 0 00056 TRA ONOFF GO PROCESS COMMAND
00053 -0500 00 0 02251 CAL COMMND
00054 0322 00 0 02551 ERA =HON IS COMMAND 'ON'
00055 -0100 00 0 00105 TNZ NOTSPE
00056 -0520 00 0 02247 ONOFF NZT TABPOS IS NAME IN TRACE TABLE
00057 0020 00 0 00100 TRA NOTIN NO, CANNOT TURN IT ON OR OFF
00060 0602 00 0 02251 SLW COMMND
00061 0500 00 1 02216 CLA TABLE+1,1 GET TABLE ENTRY
00062 0760 00 0 00003 SSP
00063 0520 00 0 02251 ZET COMMND
00064 -0760 00 0 00003 SSM
00065 0601 00 1 02216 STO TABLE+1,1
00066 0520 00 0 01662 FINDEL ZET COMSW DID NEXWRD TURN ON COMMA SWITCH
00067 0020 00 0 00017 TRA NAMEIN YES, GO READ NEXT NAME
00070 -0500 00 0 02251 CAL COMMND CHECK FOR TERMINATING ASTERISK
00071 0020 00 0 00074 TRA ASTCHK
00072 0074 00 4 01450 GETNEX TSX NEXWRD,4 SEARCH FOR A COMMA
00073 0 00000 0 00017 PZE NAMEIN
BINARY CARD NO. TRACE004
00074 -0340 00 0 01704 ASTCHK LAS ASTER IS THIS AN ASTERISK
00075 0020 00 0 00072 TRA GETNEX NOT ASTERISK OR COMMA, REPEAT UNTIL FOUND
00076 0020 00 0 00466 TRA THRU FOUND ASTERISK, THRU WITH TRACE
00077 0020 00 0 00072 TRA GETNEX NOT ASTERISK OR COMMA, REPEAT UNTIL FOUND
00100 -0500 00 0 02250 NOTIN CAL NAME INSERT NAME IN COMMENT
00101 0602 00 0 02424 SLW ERR1
00102 TYPE 6,(****** IS NOT IN TRACE TABLE.),ERR1
00102 0074 00 4 01650 TSX WRFLX,4 .001
00103 0 00006 0 02424 PZE ERR1,,6 .001
RMT .001
ERR1 BCI 6,****** IS NOT IN TRACE TABLE. .001
RMT .001
00104 0020 00 0 00066 TRA FINDEL
00105 0520 00 0 02247 NOTSPE ZET TABPOS IF NAME IS NOT IN TRACE TABLE, INSERT IT
00106 0020 00 0 00275 TRA TESCOM
00107 0534 00 1 00026 LXA TABCNT,1 GET TABLE COUNT
00110 1 00012 1 00111 TXI *+1,1,NPENT INCREASE BY NUMBER PER ENTRY
00111 -3 00310 1 00123 TXL NOTFUL,1,MAXTAB CHECK LENGTH
00112 0774 00 1 00310 AXT MAXTAB,1 END OF TABLE REACHED, SO LOOK
00113 -0500 00 0 02563 CAL =O700000000000 FOR SPACE MADE FREE BY A
00114 -0340 00 1 02215 SERTAB LAS TABLE,1 PREVIOUS REMOVE COMMAND
00115 0020 00 0 00117 TRA *+2 NO THIS ONE
00116 0020 00 0 00124 TRA NOTFUL+1 FOUND AN OPENING
00117 2 00012 1 00114 TIX SERTAB,1,NPENT KEEP LOOKING
00120 TYPE 3,(TRACE TABLE FULL.) SORRY
1 FAP 12/17/69 1756.9 PAGE 5
TRACE - PROCESS INPUT LINES
BINARY CARD NO. TRACE005
00120 0074 00 4 01650 TSX WRFLX,4 .001
00121 0 00003 0 02432 PZE ..003,,3 .001
RMT .001
..003 BCI 3,TRACE TABLE FULL. .001
RMT .001
00122 0020 00 0 00466 TRA THRU EXIT FROM TRACE
00123 0634 00 1 00026 NOTFUL SXA TABCNT,1 UPDATE TABLE COUNT
00124 0634 00 1 02247 SXA TABPOS,1 SET TABLE POSITION
00125 -0500 00 0 02250 CAL NAME PUT NAME IN TABLE
00126 0602 00 1 02215 SLW TABLE,1
00127 -0774 00 4 00164 AXC SETT-1,4 SET X4 FOR FALL THRU CALL
00130 0500 60 0 00000 FINNAM CLA* $MOVIE) FIND NAME IN MOVIE) TABLE
00131 0622 00 0 00146 STD MOVLEN
00132 0622 00 0 00212 STD LOFMOV
00133 0771 00 0 00022 ARS 18
00134 0401 60 0 00000 ADM* MOVIE)
00135 0621 00 0 00213 STA SET1 SET UP INSTRUCTION ADDRESSES
00136 0621 00 0 00220 STA SET2
00137 0621 00 0 00147 STA SET4
00140 0621 00 0 00155 STA SET5
00141 0400 00 0 02527 ADD =1
00142 0621 00 0 00226 STA SET3
00143 0621 00 0 00163 STA SET6
BINARY CARD NO. TRACE006
00144 0774 00 2 00000 AXT 0,2
00145 1 00002 2 00146 TXI *+1,2,2
00146 3 00000 2 00461 MOVLEN TXH NOTFND,2,**
00147 0500 00 2 00000 SET4 CLA **,2
00150 -0100 00 0 00153 TNZ *+3
00151 -0500 00 0 02565 CAL =H(MAIN) FOUND MAIN PROGRAM
00152 0020 00 0 00161 TRA NAMFND+1 GO CHECK IT
00153 0402 00 0 02563 SUB =O700000000000 CHECK TXL INSTRUCTION
00154 0100 00 0 00145 TZE MOVLEN-1
00155 -0500 00 2 00000 SET5 CAL **,2
00156 -0320 00 0 02563 ANA =O700000000000 CHECK FOR BCD NAME
00157 0100 00 0 00145 TZE MOVLEN-1 FOUND ORIGIN WITH TV
00160 0522 00 0 00155 NAMFND XEC SET5 FOUND NAME, GET NAME BACK
00161 0322 00 0 02250 ERA NAME COMPARE WITH SEARCH NAME
00162 -0100 00 0 00145 TNZ MOVLEN-1 NOT THE SAME, KEEP LOOKING
00163 -0500 00 2 00000 SET6 CAL **,2 GET ENTRY POINT
00164 0020 00 4 00001 TRA 1,4
00165 0621 00 0 02243 SETT STA TTRWRD SET UP TTR ENTRY
00166 0621 00 1 02223 STA TABLE+6,1 SAVE ENTRY POINT OF SUBROUTINE
00167 -0634 00 1 02244 SXD TXLWRD,1 SET TXL INSTRUCTION
BINARY CARD NO. TRACE007
00170 0074 00 4 01430 TSX OCTAL,4 CONVERT ENTRY POINT
00171 0602 00 0 02437 SLW ENTIS+2 AND INSERT IN COMMENT
00172 0522 00 0 00155 XEC SET5 GET NAME
00173 0602 00 0 02435 SLW ENTIS INSERT IN COMMENT
00174 TYPE 3,(****** ENTRY ******),ENTIS TYPE COMMENT
00174 0074 00 4 01650 TSX WRFLX,4 .001
00175 0 00003 0 02435 PZE ENTIS,,3 .001
1 FAP 12/17/69 1756.9 PAGE 6
TRACE - PROCESS INPUT LINES
RMT .001
ENTIS BCI 3,****** ENTRY ****** .001
RMT .001
00176 -0500 00 0 02251 CAL COMMND GET COMMAND
00177 0322 00 0 02543 ERA =HFIND IF IT IS 'FIND'
00200 0100 00 0 00252 TZE EXPUNG THEN REMOVE IT FROM TABLE
00201 0500 00 0 02243 CLA TTRWRD GET WORD TO LOOK FOR
00202 0560 00 0 02244 LDQ TXLWRD AND WORD TO REPLACE IT
00203 -0520 00 0 02255 NZT LINE1 IS THIS REMOVE COMMAND
00204 0131 00 0 00000 XCA YES, SO SWITCH AC AND MQ
00205 0601 00 0 02245 STO LOOKWD SET LOOK FOR WORD
00206 -0600 00 0 02246 STQ PUTWD SET REPLACE WORD
00207 0600 00 0 02325 STZ USED
00210 0774 00 2 00000 AXT 0,2 SEARCH CORE FOR TTR ENTRY
00211 1 00002 2 00212 TXI *+1,2,2
00212 3 00000 2 00242 LOFMOV TXH TRXIT,2,**
00213 0500 00 2 00000 SET1 CLA **,2
BINARY CARD NO. TRACE008
00214 0100 00 0 00211 TZE LOFMOV-1 FOUND MAIN PROGRAM NAME
00215 0402 00 0 02563 SUB =O700000000000
00216 -0100 00 0 00220 TNZ SET2
00217 1 00004 2 00212 TXI LOFMOV,2,4 FOUND AN ORIGIN WITH NO TV
00220 -0500 00 2 00000 SET2 CAL **,2
00221 -0320 00 0 02563 ANA =O700000000000 CHECK BCD
00222 -0100 00 0 00211 TNZ LOFMOV-1 FOUND BCD NAME
00223 0522 00 0 00213 XEC SET1 FOUND ORGIN WITH TV, GET NUMBER IN TV
00224 -0734 00 4 00000 PDX ,4
00225 0754 00 4 00000 PXA ,4
00226 0401 00 2 00000 SET3 ADM **,2 ADD ORIGIN
00227 0621 00 0 00230 STA CHKTV
00230 0500 00 4 00000 CHKTV CLA **,4 GET NEXT WORD FROM TV
00231 0340 00 0 02245 CAS LOOKWD IS IT THE ONE WE WANT
00232 0020 00 0 00234 TRA *+2
00233 0020 00 0 00236 TRA *+3 YES, CHANGE TO STR
00234 2 00001 4 00230 CHKAGN TIX CHKTV,4,1 NO KEEP LOOKING
00235 1 00004 2 00212 TXI LOFMOV,2,4 THRU WITH THIS TV, GO FIND ANOTHER
00236 0500 00 0 02246 CLA PUTWD GET WORD TO REPLACE IT
00237 0601 60 0 00230 STO* CHKTV AND STORE IT
BINARY CARD NO. TRACE009
00240 -0625 00 0 02325 STL USED SUB USED AT LEAST ONCE
00241 0020 00 0 00234 TRA CHKAGN CHECK REST OF TV FOR SUB (AED
SOMETIMES PUTS SUB IN TV MORE THAN ONCE)
00242 -0520 00 0 02255 TRXIT NZT LINE1 IS THIS A 'REMOVE'
00243 0020 00 0 00255 TRA REMOVE YES, GO REMOVE IT
00244 0520 00 0 02325 ZET USED
00245 0020 00 0 00275 TRA TESCOM YES
00246 -0500 00 0 02250 CAL NAME PRINT COMMENT
00247 0602 00 0 02440 SLW ERR4
00250 TYPE 4,(****** IS NOT USED.),ERR4
00250 0074 00 4 01650 TSX WRFLX,4 .001
00251 0 00004 0 02440 PZE ERR4,,4 .001
RMT .001
ERR4 BCI 4,****** IS NOT USED. .001
1 FAP 12/17/69 1756.9 PAGE 7
TRACE - PROCESS INPUT LINES
RMT .001
00252 1 77766 1 00253 EXPUNG TXI *+1,1,-NPENT ENTRY TO BE REMOVED IS LAST
00253 0634 00 1 00026 SXA TABCNT,1 UPDATE TABLE COUNT
00254 0020 00 0 00066 TRA FINDEL GO FIND NEXT COMMA
00255 -0500 00 0 02563 REMOVE CAL =O700000000000 STORE MARKER WHICH MEANS THIS POSI-
00256 0602 00 1 02215 SLW TABLE,1 TION IS EMPTY
00257 0500 00 0 02541 CLA =O77777000000 CLEAR TRACE STATISTICS
00260 0601 00 1 02216 STO TABLE+1,1
00261 0600 00 1 02220 STZ TABLE+3,1
00262 0500 00 0 02527 CLA =1
00263 0601 00 1 02217 STO TABLE+2,1
BINARY CARD NO. TRACE010
00264 0600 00 1 02221 STZ TABLE+4,1
00265 0600 00 1 02222 STZ TABLE+5,1
00266 0600 00 1 02223 STZ TABLE+6,1
00267 0600 00 1 02224 STZ TABLE+7,1
00270 0500 00 0 00026 CLA TABCNT IS THIS LAST ONE IN TABLE
00271 -0320 00 0 02537 ANA =O77777
00272 0402 00 0 02247 SUB TABPOS
00273 0100 00 0 00252 TZE EXPUNG YES, CAN DECREASE TABLE POINTER
00274 0020 00 0 00066 TRA FINDEL GO FIND NEXT DELIMITER
00275 0520 00 0 01662 TESCOM ZET COMSW DID NEXTWRD TURN ON COMMA SWITCH
00276 0020 00 0 00017 TRA NAMEIN YES, USE STANDARD OPTIONS FOR THIS NAME
00277 -0500 00 0 02251 CAL COMMND
00300 -0625 00 0 02255 STL LINE1 SET SWITCH, NO ASTERISK
00301 0020 00 0 00305 TRA PHRASE+3 JOIN COMMON SECTION
00302 0074 00 4 01450 PHRASE TSX NEXWRD,4 GET NEXT PHRASE
00303 0 00000 0 00017 PZE NAMEIN
00304 0602 00 0 02251 SLW COMMND
00305 0322 00 0 01704 ERA ASTER
00306 0100 00 0 00466 TZE THRU
00307 0074 00 4 01450 TSX NEXWRD,4 GET ASSOCIATED NUMBER
BINARY CARD NO. TRACE011
00310 0 00000 0 00317 PZE LOOK-2 SKIP NUMBER READ IF COMMA FOUND
00311 0602 00 0 02254 SLW NUMBER
00312 0322 00 0 01704 ERA ASTER IS THIS AN ASTERISK
00313 0602 00 0 02255 SLW LINE1 SET SWITCH, ZERO MEANS ASTERISK
00314 0100 00 0 00317 TZE LOOK-2 IF ASTERISK, SKIP NUMBER CONVERSION
00315 -0500 00 0 02254 CAL NUMBER RESTORE DECIMAL NUMBER
00316 0074 00 4 01350 TSX CONVRT,4 CONVERT TO BINARY
00317 -0500 00 0 02251 CAL COMMND GET PHRASE NAME
00320 0774 00 4 00024 AXT NUMCON,4 GET NUMBER OF COMMANDS ALLOWED
00321 -0340 00 4 02242 LOOK LAS COMTAB+NUMCON,4 LOOK UP NAME IN TABLE
00322 0020 00 0 00324 TRA *+2
00323 0020 00 0 00335 TRA XEQCOM FOUND IT, SO GO DO IT
00324 2 00002 4 00321 TIX LOOK,4,2 NOT FOUND, GO LOOK AGAIN
00325 0602 00 0 02444 SLW ERR2 NOT IN TABLE, THIS IS BAD
00326 TYPE 4,(****** IS NOT A REQUEST.),ERR2
00326 0074 00 4 01650 TSX WRFLX,4 .001
00327 0 00004 0 02444 PZE ERR2,,4 .001
RMT .001
ERR2 BCI 4,****** IS NOT A REQUEST. .001
RMT .001
1 FAP 12/17/69 1756.9 PAGE 8
TRACE - PROCESS INPUT LINES
00330 -0520 00 0 02255 NZT LINE1 TEST SWITCH
00331 0020 00 0 00466 TRA THRU HAD ASTERISK, EXIT FROM TRACE
00332 -0520 00 0 01662 NZT COMSW DID WE HAVE COMMA
00333 0020 00 0 00302 TRA PHRASE GO READ NEXT REQUEST
BINARY CARD NO. TRACE012
00334 0020 00 0 00017 TRA NAMEIN YES, GO READ NEW NAME
00335 0520 00 0 01662 XEQCOM ZET COMSW FOUND REQUEST IN TABLE, DID WE HAVE COMMA
00336 0020 00 0 00342 TRA NOPAR1 YES, PRINT NO PARAMETER MESSAGE
00337 0500 00 0 02254 CLA NUMBER PICK UP PARAMETER
00340 0520 00 0 02255 ZET LINE1 DID WE HAVE ASTERISK
00341 0020 00 4 02243 TRA COMTAB+NUMCON+1,4 NO, GO EXECUTE REQUEST
00342 0602 00 0 02450 NOPAR1 SLW NOPAR SET ERROR MESSAGE
00343 TYPE 7,(****** PARAMETER MISSING, REQUEST IGNORED.),NOPAR
00343 0074 00 4 01650 TSX WRFLX,4 .001
00344 0 00007 0 02450 PZE NOPAR,,7 .001
RMT .001
NOPAR BCI 7,****** PARAMETER MISSING, REQUEST IGNORED. .001
RMT .001
00345 0520 00 0 01662 ZET COMSW DID WE HAVE COMMA
00346 0020 00 0 00017 TRA NAMEIN YES, GO CONTINUE INPUT
00347 0020 00 0 00466 TRA THRU MUST HAVE HAD ASTERISK, EXIT
00350 0621 00 1 02216 AFTER STA TABLE+1,1 AFTER COMMAND
00351 0020 00 0 00302 TRA PHRASE
00352 0767 00 0 00022 UNTIL ALS 18 UNTIL COMMAND
00353 0622 00 1 02216 STD TABLE+1,1
00354 0020 00 0 00302 TRA PHRASE
00355 0621 00 1 02217 EVERY STA TABLE+2,1 EVERY COMMAND
00356 0020 00 0 00302 TRA PHRASE
00357 0767 00 0 00022 STOP ALS 18 STOP COMMAND
BINARY CARD NO. TRACE013
00360 0622 00 1 02217 STD TABLE+2,1
00361 0020 00 0 00302 TRA PHRASE
00362 0621 00 1 02220 COUNT STA TABLE+3,1 COUNT COMMAND
00363 0020 00 0 00302 TRA PHRASE
00364 0767 00 0 00022 HALT ALS 18 HALT COMMAND
00365 0622 00 1 02223 STD TABLE+6,1
00366 0020 00 0 00302 TRA PHRASE
00367 0621 00 1 02224 VALUE STA TABLE+7,1 VALUE COMMAND
00370 0020 00 0 00302 TRA PHRASE
00371 0767 00 0 00022 ARGS ALS 18 ARGS COMMAND
00372 0622 00 1 02224 STD TABLE+7,1
00373 0020 00 0 00302 TRA PHRASE
00374 0621 00 1 02222 PM STA TABLE+5,1 PM COMMAND
00375 0074 00 4 01450 PMIN TSX NEXWRD,4 GET NEXT PM WORD
00376 0 00000 0 00017 PZE NAMEIN IF ',' GO DO NEXT COMMAND
00377 -0340 00 0 01704 LAS ASTER CHECK FOR ASTERISK
00400 0020 00 0 00402 TRA *+2 NO DELIMITOR
00401 0020 00 0 00466 TRA THRU FOUND '*', EXIT
00402 0602 00 0 02254 SLW NUMBER SAVE PM WORD
00403 0560 00 0 02557 LDQ =H BLANK OUT MQ
1 FAP 12/17/69 1756.9 PAGE 9
TRACE - PROCESS INPUT LINES
BINARY CARD NO. TRACE014
00404 0771 00 0 00036 ARS 30
00405 0322 00 0 02533 ERA =H00000- CHECK FOR INITIAL '-'
00406 0602 00 0 02374 SLW PMSW SET SWITCH (ZERO MEANS '-')
00407 -0500 00 0 02254 CAL NUMBER RESTORE PM WORD
00410 -0520 00 0 02374 NZT PMSW IF INITIAL '-'
00411 -0763 00 0 00006 LGL 6 THEN ELIMINATE IT
00412 0774 00 2 00023 AXT NUMPM,2 LOOK FOR PM WORD IN TABLE
00413 -0340 00 2 02351 PMLOOK LAS PMTAB+NUMPM,2 ..
00414 0020 00 0 00416 TRA *+2 NO THIS ONE
00415 0020 00 0 00424 TRA PMFND HULABALOO, FOUND IT
00416 2 00001 2 00413 TIX PMLOOK,2,1 CHECK AGAIN
00417 -0500 00 0 02254 CAL NUMBER NOT IN, PRINT ERROR MESSAGE
00420 0602 00 0 02457 SLW PMERR ..
00421 TYPE 4,(****** IS NOT A LEGAL PM),PMERR
00421 0074 00 4 01650 TSX WRFLX,4 .001
00422 0 00004 0 02457 PZE PMERR,,4 .001
RMT .001
PMERR BCI 4,****** IS NOT A LEGAL PM .001
RMT .001
00423 0020 00 0 00375 TRA PMIN GO DO NEXT PM WORD
00424 -0500 00 2 02374 PMFND CAL PMBITS+NUMPM,2 GET PM BITS FOR THIS WORD
00425 0520 00 0 02374 ZET PMSW WAS THERE AND INITIAL '-'
00426 0020 00 0 00432 TRA PMSET NO
00427 0760 00 0 00006 COM YES, TURN OFF BITS
BINARY CARD NO. TRACE015
00430 0320 00 1 02222 ANS TABLE+5,1 ..
00431 0020 00 0 00375 TRA PMIN GO DO NEXT PM WORD
00432 -0602 00 1 02222 PMSET ORS TABLE+5,1 SET BITS ON
00433 0020 00 0 00375 TRA PMIN GO DO NEXT PM WORD
00434 0500 00 0 02254 CALL CLA NUMBER CALL COMMAND
00435 0767 00 0 00022 ALS 18
00436 0622 00 1 02220 STD TABLE+3,1
00437 0100 00 0 00302 TZE PHRASE ZERO MEANS REMOVE CALL CONDITION
00440 0074 00 4 01450 TSX NEXWRD,4 GET NAME OF DEBUGGING SUBROUTINE
00441 0 00000 0 00454 PZE NONFCL ERROR IF NO NAME
00442 0602 00 0 02250 SLW NAME
00443 0074 00 4 00130 TSX FINNAM,4 FIND ENTRY IN MOVIE) TABLE
00444 0621 00 1 02221 STA TABLE+4,1
00445 0074 00 4 01450 TSX NEXWRD,4 GET ARGUMENT TO BE USED IN CALL
00446 0 00000 0 00017 PZE NAMEIN NOT PRESENT MEANS ARG IS ZERO
00447 0074 00 4 01350 TSX CONVRT,4 CONVERT TO BINARY
00450 0500 00 0 02254 CLA NUMBER
00451 0767 00 0 00022 ALS 18
00452 0622 00 1 02221 STD TABLE+4,1
00453 0020 00 0 00302 TRA PHRASE
00454 NONFCL TYPE 7,(NO DEBUGGING SUBROUTINE, CALL IGNORED.)
BINARY CARD NO. TRACE016
00454 0074 00 4 01650 TSX WRFLX,4 .001
00455 0 00007 0 02463 PZE ..004,,7 .001
RMT .001
..004 BCI 7,NO DEBUGGING SUBROUTINE, CALL IGNORED. .001
RMT .001
1 FAP 12/17/69 1756.9 PAGE 10
TRACE - PROCESS INPUT LINES
00456 0500 00 0 02541 CLA =O77777000000
00457 0621 00 1 02220 STA TABLE+3,1
00460 0020 00 0 00066 TRA FINDEL GO FIND DELIMITER
00461 -0500 00 0 02250 NOTFND CAL NAME NAME NOT IN MOVIE) TABLE
00462 0602 00 0 02472 SLW ERR3 INSERT NAME IN COMMENT
00463 TYPE 5,(****** IS NOT IN MOVIE TABLE.),ERR3
00463 0074 00 4 01650 TSX WRFLX,4 .001
00464 0 00005 0 02472 PZE ERR3,,5 .001
RMT .001
ERR3 BCI 5,****** IS NOT IN MOVIE TABLE. .001
RMT .001
00465 0020 00 0 00252 TRA EXPUNG REMOVE FROM TRACE TABLE
00466 THRU TYPE 2,(TRACE LEFT.)
00466 0074 00 4 01650 TSX WRFLX,4 .001
00467 0 00002 0 02477 PZE ..005,,2 .001
RMT .001
..005 BCI 2,TRACE LEFT. .001
RMT .001
00470 0074 00 4 01302 EXIT TSX RESMC,4 DONE WITH INPUT, RESTORE MACHINE COND.
00471 0534 00 4 01340 LXA SAVX4,4
00472 -0520 00 0 02257 NZT CTSS CHECK TYPE OF ENTRY
00473 0020 00 4 00001 TRA 1,4 SUBROUTINE, RETURN TO CALLING PROGRAM
00474 0074 00 4 01654 TSX FNRTN,4 COMMAND, RETURN TO DORMANT AND PREV POINT
1 FAP 12/17/69 1756.9 PAGE 11
TRACE - PROCESS SUBROUTINE TRAPS
TTL TRACE - PROCESS SUBROUTINE TRAPS
00475 0634 00 4 01340 TRAP SXA SAVX4,4 SAVE MACHINE CONDITIONS
00476 0074 00 4 01251 TSX SAVMC,4
00477 0534 00 1 00026 LXA TABCNT,1 GET TABLE COUNT
BINARY CARD NO. TRACE017
00500 -0634 00 1 00512 SXD TABTES,1 SET TEST FOR LEGAL COUNT
00501 0534 00 4 01340 LXA SAVX4,4 GET LOCATION OF TSX INST.
00502 0500 00 4 00000 CLA 0,4 GET THE TSX INST.
00503 0621 00 0 00504 STA ADDR
00504 -0500 00 0 00000 ADDR CAL ** GET INSTRUCTION WHICH CAUSED ENTRY
00505 -0320 00 0 02564 ANA =O700000700000 CHECK FOR TXL WITH ZERO TAG
00506 0322 00 0 02563 ERA =O700000000000 ..
00507 -0100 00 0 01171 TNZ BADCAL NON-ZERO MEANS NOT TXL
00510 0500 60 0 00504 CLA* ADDR GET INSTRUCTION BACK
00511 -0734 00 1 00000 PDX ,1 GET TABLE ENTRY
00512 3 00000 1 01171 TABTES TXH BADCAL,1,** CHECK FOR LEGAL CALL
00513 2 00012 1 00513 TIX *,1,NPENT X1 MUST BE MULTIPLE OF NPENT
00514 -3 00011 1 01171 TXL BADCAL,1,NPENT-1 AND LESS THAN TABCNT
00515 -0734 00 1 00000 PDX ,1
00516 0500 00 1 02223 CLA TABLE+6,1 GET ENTRY POINT OF SUBROUTINE
00517 0621 00 0 01170 STA SUBGO SET TTR TO SUBROUTINE
00520 0600 00 0 02255 STZ LINE1 SET SWITCHES
00521 0500 00 1 02216 CLA TABLE+1,1 GET FIRST TABLE ENTRY
00522 -0120 00 0 01166 TMI RESTOR MINUS MEANS TRACING OFF
00523 0600 00 0 02256 STZ CONTEM
BINARY CARD NO. TRACE018
00524 0622 00 0 00567 STD UNTES
00525 0621 00 0 02256 STA CONTEM
00526 0767 00 0 00022 ALS 18
00527 0622 00 0 00566 STD AFTES
00530 0600 00 0 02261 STZ PRTVAL RESET BREAK POINT SWITCHES
00531 0600 00 0 02262 STZ DOHALT
00532 0534 00 4 01340 LXA SAVX4,4 COUNT ARGUMENTS AND FIND RETURN LOC
00533 1 77777 4 00534 TXI *+1,4,-1
00534 -0500 00 4 00000 CAL ,4 GET FIRST WORD IN CALLING SEQUENCE
00535 -0320 00 0 02567 ANA =O777777700000 ERASE ADDRESS
00536 0774 00 2 00003 AXT 3,2 START SEARCH OF PREFIX TABLE
00537 -0340 00 2 02270 CNT LAS PFX+3,2 CHECK PREFIX
00540 0020 00 0 00542 TRA *+2 NO THIS ONE
00541 0020 00 0 00547 TRA PFXTYP FOUND ONE
00542 2 00001 2 00537 TIX CNT,2,1 LOOK AGAIN
00543 -0320 00 0 02563 ANA =O700000000000 ERASE DECREMENT
00544 0322 00 0 02270 ERA PFX+3 CHECK FOR TIX
00545 -0100 00 0 00561 TNZ LSTARG NO ARGUMENTS AT ALL
00546 0774 00 2 00003 AXT 3,2 SET FOR TXH INSPECTION
00547 1 77777 4 00550 PFXTYP TXI *+1,4,-1 SET FOR NEXT WORD IN CALLING SEQUENCE
BINARY CARD NO. TRACE019
00550 -0500 00 4 00000 CAL 0,4 GET WORD
00551 -0320 00 0 02567 ANA =O777777700000 ERASE ADDRESS
00552 0322 00 2 02270 ERA PFX+3,2 CHECK FOR END
00553 0100 00 0 00547 TZE PFXTYP ZERO MEANS KEEP LOOKING
1 FAP 12/17/69 1756.9 PAGE 12
TRACE - PROCESS SUBROUTINE TRAPS
00554 -3 00002 2 00561 TXL LSTARG,2,2 IF NOT LOOKING FOR TXH, THERE ARE NO MORE
00555 -0500 00 4 00000 CAL 0,4 GET WORD BACK
00556 -0320 00 0 02564 ANA =O700000700000 ERASE ADDRESS AND DECREMENT
00557 0322 00 0 02270 ERA PFX+3 CHECK FOR TIX
00560 0100 00 0 00547 TZE PFXTYP ZERO MEANS KEEP LOOKING
00561 0636 00 4 02260 LSTARG SCA RETURN,4 SET RETURN LOCATION
00562 0500 00 1 02220 CLA TABLE+3,1
00563 0400 00 0 02527 ADD =1
00564 0621 00 1 02220 STA TABLE+3,1
00565 0734 00 2 00000 PAX ,2
00566 -3 00000 2 00743 AFTES TXL NO,2,** TEST AFTER N
00567 3 00000 2 00743 UNTES TXH NO,2,** TEST UNTIL N
00570 0500 00 1 02217 CLA TABLE+2,1
00571 -0320 00 0 02537 ANA =O77777
00572 0601 00 0 02251 STO COMMND
00573 0500 00 1 02220 CLA TABLE+3,1
BINARY CARD NO. TRACE020
00574 0402 00 0 02256 SUB CONTEM
00575 0402 00 0 02527 SUB =1
00576 0131 00 0 00000 XCA
00577 -0754 00 0 00000 ZAC
00600 0221 00 0 02251 DVP COMMND
00601 -0100 00 0 00743 TNZ NO
00602 -0774 00 4 00742 AXC NO-1,4 SET FOR FALL THRU CALL OF YES
00603 -0625 00 0 02255 YES STL LINE1 SET SWITCH
00604 0634 00 4 00740 SXA YESXIT,4
00605 0634 00 2 00741 SXA YESXIT+1,2
00606 0535 00 2 01340 LAC SAVX4,2 GET COMPLEMENT OF TSK LOCATION
00607 0634 00 2 02252 SXA ILC,2 SET ILC
00610 0500 60 0 00000 CLA* MOVIE) SEARCH MOVIE TABLE FOR
00611 -0320 00 0 02537 ANA =O77777 NAME OF PROGRAM IN WHICH TSX OCCURED
00612 0402 00 0 02252 SUB ILC
00613 0120 00 0 00675 TPL OUTRNG MAY BE SPURIOUS CALL
00614 0500 60 0 00000 CLA* MOVIE)
00615 0400 00 0 02527 ADD =1
00616 0621 00 0 00617 STA *+1
00617 0500 00 0 00000 CLA **
BINARY CARD NO. TRACE021
00620 0402 00 0 02252 SUB ILC
00621 -0120 00 0 00675 TMI OUTRNG
00622 0600 00 0 02250 STZ NAME INITIALIZE NAME
00623 0600 00 0 02253 STZ STLOC
00624 0500 60 0 00000 CLA* MOVIE)
00625 0622 00 0 00635 STD LETHMV
00626 0771 00 0 00022 ARS 18
00627 0401 60 0 00000 ADM* MOVIE)
00630 0621 00 0 00636 STA STINF1
00631 0621 00 0 00642 STA STINF2
00632 0400 00 0 02527 ADD =1
00633 0621 00 0 00656 STA ORGFD
00634 0774 00 2 00002 AXT 2,2
00635 3 00000 2 00675 LETHMV TXH OUTRNG,2,** LOOP CHECK
00636 0500 00 2 00000 STINF1 CLA **,2
1 FAP 12/17/69 1756.9 PAGE 13
TRACE - PROCESS SUBROUTINE TRAPS
00637 0100 00 0 00645 TZE STINF2+3 FOUND MAIN PROGRAM
00640 0402 00 0 02563 SUB =O700000000000 CHECK FOR TXL INST
00641 0100 00 0 00656 TZE ORGFD FOUND AN ORIGIN
00642 -0500 00 2 00000 STINF2 CAL **,2
00643 -0320 00 0 02563 ANA =O700000000000
BINARY CARD NO. TRACE022
00644 0100 00 0 00656 TZE ORGFD ORIGIN IF ZERO
00645 0500 00 0 02252 CLA ILC GET ILC
00646 0402 60 0 00656 SUB* ORGFD SUBTRACT ENTRY POINT
00647 -0120 00 0 00652 TMI *+3 MINUS MEANS ENTRY GREATER THAN ILC, NO GOOD
00650 0340 00 0 02254 CAS NUMBER COMPARE WITH OLD DIFFERENCE
00651 1 00002 2 00635 TXI LETHMV,2,2 GREATER, NO GOOD, KEEP LOOKING
00652 1 00002 2 00635 TXI LETHMV,2,2 SAME, OLD DIFFERENCE JUST AS GOOD
00653 0601 00 0 02254 STO NUMBER SMALLER, SAVE AS DIFFERENCE
00654 0634 00 2 00666 SXA FNFND,2 SAME POSITION IN TABLE
00655 1 00002 2 00635 TXI LETHMV,2,2 CONTINUE SEARCH
00656 0500 00 2 00000 ORGFD CLA **,2 GET ORIGIN
00657 0340 00 0 02252 CAS ILC
00660 0020 00 0 00666 TRA FNFND ORG GREATER THAN ILC
00661 0020 00 0 00662 TRA *+1 ORIGIN EQUALS ILC
00662 0621 00 0 02253 STA STLOC ORIGIN LESS THAN ILC
00663 0500 00 0 02537 CLA =O77777
00664 0601 00 0 02254 STO NUMBER INITIALIZE DIFFERENCE
00665 1 00002 2 00635 TXI LETHMV,2,2
00666 0774 00 2 00000 FNFND AXT **,2 GET NAME ASSOCIATED WITH ENTRY
00667 0522 00 0 00642 XEC STINF2
BINARY CARD NO. TRACE023
00670 -0100 00 0 00672 TNZ *+2
00671 -0500 00 0 02565 CAL =H(MAIN)
00672 0602 00 0 02250 SLW NAME
00673 0774 00 2 00011 AXT 9,2 USE LONG FORMAT
00674 0020 00 0 00676 TRA PRINT
00675 0774 00 2 00006 OUTRNG AXT 6,2 USE SHORT FORMAT
00676 -0634 00 2 00737 PRINT SXD PRT+1,2
00677 0500 00 1 02220 CLA TABLE+3,1 GET NUMBER OF CALLS
00700 -0320 00 0 02537 ANA =O77777
00701 0131 00 0 00000 XCA
00702 0074 00 4 01377 TSX BNBCD,4 CONVERT TO DECIMAL
00703 -0765 00 0 00014 LGR 12 INSERT IN COMMENT
00704 0322 00 0 02306 ERA FMT
00705 -0320 00 0 02536 ANA =O7777
00706 0322 00 0 02306 ERA FMT
00707 0602 00 0 02306 SLW FMT
00710 -0130 00 0 00000 XCL
00711 0322 00 0 02307 ERA FMT+1
00712 -0320 00 0 02566 ANA =O777700000000
00713 0322 00 0 02307 ERA FMT+1
BINARY CARD NO. TRACE024
00714 0602 00 0 02307 SLW FMT+1
00715 -0500 00 1 02215 CAL TABLE,1 GET NAME OF SUBROUTINE
00716 0602 00 0 02310 SLW FMT+2
00717 0500 00 0 02252 CLA ILC
1 FAP 12/17/69 1756.9 PAGE 14
TRACE - PROCESS SUBROUTINE TRAPS
00720 0074 00 4 01430 TSX OCTAL,4
00721 0602 00 0 02312 SLW FMT+4
00722 -0520 00 0 02250 NZT NAME
00723 0020 00 0 00736 TRA PRT
00724 0500 00 0 02252 CLA ILC
00725 0402 00 0 02253 SUB STLOC
00726 0074 00 4 01430 TSX OCTAL,4
00727 0767 00 0 00014 ALS 12
00730 0322 00 0 02314 ERA FMT+6
00731 -0320 00 0 02570 ANA =O777777770000
00732 0322 00 0 02314 ERA FMT+6
00733 0602 00 0 02314 SLW FMT+6
00734 -0500 00 0 02250 CAL NAME GET NAME OF PROGRAM THAT CALLED
00735 0602 00 0 02316 SLW FMT+8
00736 0074 00 4 01650 PRT TSX WRFLX,4
00737 0 00000 0 02306 PZE FMT,,**
BINARY CARD NO. TRACE025
00740 0774 00 4 00000 YESXIT AXT **,4
00741 0774 00 2 00000 AXT **,2
00742 0020 00 4 00001 TRA 1,4
00743 0500 00 1 02224 NO CLA TABLE+7,1 CHECK VALUE CONDITION
00744 -0320 00 0 02537 ANA =O77777
00745 0074 00 2 01435 TSX TESTDO,2
00746 0 00000 0 00751 PZE HALTCH
00747 -0625 00 0 02261 STL PRTVAL
00750 0020 00 0 00760 TRA SETBRK
00751 0500 00 1 02223 HALTCH CLA TABLE+6,1 CHECK HALT CONDITION MET
00752 0765 00 0 00022 LRS 18
00753 0074 00 2 01435 TSX TESTDO,2
00754 0 00000 0 00774 PZE CALLCH
00755 -0625 00 0 02262 STL DOHALT
00756 0520 00 0 02261 ZET PRTVAL DID WE ALREADY SET BREAKPOINT
00757 0020 00 0 00774 TRA CALLCH YES
00760 0535 00 4 02260 SETBRK LAC RETURN,4
00761 0500 00 4 00000 CLA 0,4
00762 0601 00 1 02225 STO TABLE+8,1
00763 0500 00 4 00001 CLA 1,4
BINARY CARD NO. TRACE026
00764 0601 00 1 02226 STO TABLE+9,1
00765 0754 00 1 00000 PXA ,1
00766 -0501 00 0 02263 ORA BRKINS
00767 0602 00 4 00000 SLW ,4
00770 0500 00 0 02264 CLA BRKINS+1
00771 0601 00 4 00001 STO 1,4
00772 -0520 00 0 02262 NZT DOHALT WAS THIS HALT BREAK
00773 0020 00 0 00751 TRA HALTCH NO, CHECK HALT CONDITION
00774 0500 00 1 02220 CALLCH CLA TABLE+3,1 CHECK CALL CONDITION MET
00775 0765 00 0 00022 LRS 18
00776 0074 00 2 01435 TSX TESTDO,2
00777 0 00000 0 01021 PZE PMCH
01000 TYPE 5,(DEBUGGING SUBROUTINE CALLED.)
01000 0074 00 4 01650 TSX WRFLX,4 .001
01001 0 00005 0 02501 PZE ..006,,5 .001
1 FAP 12/17/69 1756.9 PAGE 15
TRACE - PROCESS SUBROUTINE TRAPS
RMT .001
..006 BCI 5,DEBUGGING SUBROUTINE CALLED. .001
RMT .001
01002 0634 00 1 01020 SXA CALLX1,1 SAVE X1
01003 0534 00 4 01340 LXA SAVX4,4 GET LOC OF SUB CALL
01004 0636 00 4 02254 SCA NUMBER,4 COMPLEMENT AND SAVE AS ARG
01005 0500 00 1 02221 CLA TABLE+4,1 SET ADDRESS OF SUB ENTRY
01006 0621 00 0 01015 STA SUBCAL
01007 0771 00 0 00022 ARS 18 SET PARAMETER OF CALL
BINARY CARD NO. TRACE027
01010 -0100 00 0 01013 TNZ *+3
01011 0500 00 1 02220 CLA TABLE+3,1 ZERO MEANT ARGUMENT IS NUMBER OF CALLS
01012 -0320 00 0 02537 ANA =O77777
01013 0601 00 0 02251 STO COMMND
01014 0074 00 4 01302 TSX RESMC,4 RESTORE MACHINE CONDITIONS
01015 0074 00 4 00000 SUBCAL TSX **,4 CALL DEBUGGING SUBROUTINE
TD 01016 3 00000 0 02254 TXH NUMBER ARGS
TD 01017 3 00000 0 02251 TXH COMMND
01020 0774 00 1 00000 CALLX1 AXT **,1 RESTORE X1
01021 0500 00 1 02222 PMCH CLA TABLE+5,1 CHECK FOR PM CONDITION ME
01022 -0320 00 0 02537 ANA =O77777
01023 0074 00 2 01435 TSX TESTDO,2
01024 0 00000 0 01071 PZE ARGCHK
01025 0634 00 1 01064 SXA PMDONE,1 SAVE X1
01026 0441 00 1 02222 LDI TABLE+5,1 GET PM RECORD
01027 -0774 00 1 00001 AXC 1,1 BEGIN LOOP TO CHECK BITS
01030 -0774 00 2 00000 AXC 0,2
01031 -3 77756 1 01064 DOPM TXL PMDONE,1,-PMNUM-1 ARE WE DONE
01032 -0500 00 0 02547 CAL =-0 NO, GET P BIT
01033 0771 00 1 00000 ARS ,1 SHIFT TO PROPER POSITION
BINARY CARD NO. TRACE028
01034 0046 00 0 01063 TIF LOOPM IND. OFF MEANS NO PM THIS ITEM
01035 3 77764 1 01051 TXH NOCSEQ,1,-12 CHECK FOR CALLING SEQ. PM
01036 0756 00 1 00000 PCA ,1 HAVE CALL SEQ PM, -X1 TO AC
01037 0534 00 4 01340 LXA SAVX4,4 RESTORE INDEX 4
01040 3 77761 1 01045 TXH NOTIND,1,-15 CHECK INDIRECT
01041 0402 00 0 02532 SUB =14 INDIRECT, SET PICK UP WORD
01042 0621 00 0 01043 STA *+1 ..
01043 0560 60 4 00000 LDQ* **,4 GET IND CONTENTS OF WORD IN CALL SEQ
01044 0020 00 0 01052 TRA NOCSEQ+1 JOIN COMMON SECTION
01045 0402 00 0 02531 NOTIND SUB =11 NOT INDIRECT, SET PICK UP WORD
01046 0621 00 0 01047 STA *+1 ..
01047 0560 00 4 00000 LDQ **,4 GET WORD IN CALL SEQ
01050 0020 00 0 01052 TRA *+2 JOIN COMMON SECTION
01051 0560 00 1 01330 NOCSEQ LDQ SAVE,1 GET PM PARAMETER
01052 -0500 00 1 02325 CAL PMTAB-1,1 GET NAME
01053 0771 00 0 00006 ARS 6 INSERT '='
01054 -0320 00 0 02540 ANA =O7777770077 ..
01055 0322 00 0 02554 ERA =H 000=0 ..
01056 0074 00 4 01606 TSX PMPRT,4 GO PRINT THIS PM
01057 -3 77776 1 01063 TXL LOOPM,1,-2 CONTINUE IF NOT 'AC' REQUEST
1 FAP 12/17/69 1756.9 PAGE 16
TRACE - PROCESS SUBROUTINE TRAPS
BINARY CARD NO. TRACE029
01060 0560 00 0 01330 LDQ SAVE WAS AC, PRINT 'QP'
01061 -0500 00 0 02555 CAL =H QP = ..
01062 0074 00 4 01606 TSX PMPRT,4 ..
01063 1 77777 1 01031 LOOPM TXI DOPM,1,-1 REPEAT
01064 0774 00 1 00000 PMDONE AXT **,1 RESTORE X1
01065 -3 00000 2 01067 TXL *+2,2,0 IF ZERO DONT FORCE LAST LINE
01066 0074 00 4 01625 TSX PMOUT,4 FORCE REMAINING OUTPUT
01067 0074 00 4 01650 TSX WRFLX,4 SKIP A LINE
01070 0 00001 0 02525 PZE BLANK,,1
01071 0500 00 1 02224 ARGCHK CLA TABLE+7,1 CHECK ARG CONDITION MET
01072 0765 00 0 00022 LRS 18
01073 0074 00 2 01435 TSX TESTDO,2
01074 0 00000 0 01150 PZE STOPCH
01075 0600 00 0 02254 STZ NUMBER SET SWTICH
01076 0535 00 4 02260 LAC RETURN,4 SET LOOP TERMINATION
01077 -0634 00 4 01102 SXD ARGTST,4
01100 0534 00 2 01340 LXA SAVX4,2 GET LOCATION OF CALLING SEQUENCE
01101 1 77777 2 01102 TXI *+1,2,-1
01102 -3 00000 2 01142 ARGTST TXL ARGDON,2,** TEST FOR END OF ARG LIST
01103 0520 00 0 02254 ZET NUMBER IS THIS FIRST
BINARY CARD NO. TRACE030
01104 0020 00 0 01110 TRA RELARG NO, SKIP HEADING
01105 TYPE 3,(ARGUMENTS ARE ... )
01105 0074 00 4 01650 TSX WRFLX,4 .001
01106 0 00003 0 02506 PZE ..007,,3 .001
RMT .001
..007 BCI 3,ARGUMENTS ARE ... .001
RMT .001
01107 -0625 00 0 02254 STL NUMBER SET SWITCH
01110 0500 00 2 00000 RELARG CLA ,2
01111 0621 00 0 01130 STA ARGET
01112 -0320 00 0 02537 ANA =O77777
01113 0402 00 0 02253 SUB STLOC COMPUTE REL. LOC
01114 0120 00 0 01117 TPL *+3 MINUS MEANS COMMON LOCATION
01115 0560 00 0 02556 LDQ =H **** GET COMMON SYMBOL WORD
01116 0020 00 0 01122 TRA RELSTQ
01117 0074 00 4 01430 TSX OCTAL,4 CONVERT TO OCTAL
01120 -0130 00 0 00000 XCL INSERT IN COMMENT
01121 -0773 00 0 00006 RQL 6
01122 -0600 00 0 02300 RELSTQ STQ ARGLIN
01123 0500 00 2 00000 CLA ,2
01124 0074 00 4 01430 TSX OCTAL,4 CONVERT TO OCTAL
01125 -0130 00 0 00000 XCL
01126 -0773 00 0 00006 RQL 6
01127 -0600 00 0 02302 STQ ARGLIN+2
BINARY CARD NO. TRACE031
01130 0560 00 0 00000 ARGET LDQ **
01131 0074 00 4 01640 TSX OCT,4
01132 0602 00 0 02304 SLW ARGLIN+4
01133 0560 60 0 01130 LDQ* ARGET
01134 -0763 00 0 00022 LGL 18
01135 0074 00 4 01640 TSX OCT,4
1 FAP 12/17/69 1756.9 PAGE 17
TRACE - PROCESS SUBROUTINE TRAPS
01136 0602 00 0 02305 SLW ARGLIN+5
01137 0074 00 4 01650 TSX WRFLX,4 WRITE ARG
01140 0 00006 0 02300 PZE ARGLIN,,6
01141 1 77777 2 01102 TXI ARGTST,2,-1 GO DO ANOTHER
01142 0520 00 0 02254 ARGDON ZET NUMBER WERE THERE ARGS
01143 0020 00 0 01146 TRA ARGSKP
01144 TYPE 2,(NO ARGUMENTS)
01144 0074 00 4 01650 TSX WRFLX,4 .001
01145 0 00002 0 02511 PZE ..008,,2 .001
RMT .001
..008 BCI 2,NO ARGUMENTS .001
RMT .001
01146 0074 00 4 01650 ARGSKP TSX WRFLX,4 SKIP A LINE
01147 0 00001 0 02525 PZE BLANK,,1
01150 0500 00 1 02217 STOPCH CLA TABLE+2,1 CHECK FOR STOP CONDITION MET
01151 0771 00 0 00022 ARS 18
01152 0074 00 2 01435 TSX TESTDO,2
01153 0 00000 0 01166 PZE RESTOR
BINARY CARD NO. TRACE032
01154 -0500 00 0 02560 CAL =HSTOP.
01155 0602 00 0 02513 SLW STPMES
01156 TYPE 4,(****** PM MAY BE TAKEN.),STPMES
01156 0074 00 4 01650 TSX WRFLX,4 .001
01157 0 00004 0 02513 PZE STPMES,,4 .001
RMT .001
STPMES BCI 4,****** PM MAY BE TAKEN. .001
RMT .001
01160 0074 00 4 01302 TSX RESMC,4 RESTORE MACHINE CONDITIONS
01161 0534 00 4 01340 LXA SAVX4,4 GET X4 AND SAVE IT SOMEWHERE ELSE, SINCE
01162 0634 00 4 01164 SXA STOPX4,4 USER MAY DECIDE TO USE STRACE DURING STOP
01163 0074 00 4 01653 TSX DORMNT,4 GO TO DORMANT
01164 0774 00 4 00000 STOPX4 AXT **,4 RESTORE X4
01165 0020 00 0 01170 TRA SUBGO GO TO EXECUTE SUBROUTINE
01166 RESTOR SYN *
01166 0074 00 4 01302 TSX RESMC,4 RESTORE MACHINE CONDITINS
01167 0534 00 4 01340 RESX4 LXA SAVX4,4
01170 0021 00 0 00000 SUBGO TTR ** GO DO SUBROUTINE
01171 0534 00 4 00504 BADCAL LXA ADDR,4
01172 0754 00 4 00000 PXA ,4
01173 0074 00 4 01430 TSX OCTAL,4 CONVERT TO OCTAL
01174 0602 00 0 02523 SLW CALBAD+4 INSERT LOCATION IN ERROR COMMENT
01175 TYPE 6,(BAD CALL TO TRACE FROM ****** ABS.),CALBAD
01175 0074 00 4 01650 TSX WRFLX,4 .001
01176 0 00006 0 02517 PZE CALBAD,,6 .001
RMT .001
CALBAD BCI 6,BAD CALL TO TRACE FROM ****** ABS. .001
RMT .001
01177 0074 00 4 01302 TSX RESMC,4 RESTORE MACHINE CONDITIONS
BINARY CARD NO. TRACE033
01200 0534 00 4 01340 LXA SAVX4,4
01201 0021 00 0 01653 TTR DORMNT
1 FAP 12/17/69 1756.9 PAGE 18
TRACE - PROCESS 'VALUE' AND 'HALT' BREAKPOINTS
TTL TRACE - PROCESS 'VALUE' AND 'HALT' BREAKPOINTS
01202 0634 00 4 01164 BREAK SXA STOPX4,4 SAVE X4
01203 0074 00 4 01251 TSX SAVMC,4 SAVE MACHINE CONDITIONS
01204 0534 00 4 01164 LXA STOPX4,4 REMOVE BREAKPOINT
01205 0500 00 4 77777 CLA -1,4 GET THE NOP TABPOS
01206 0734 00 1 00000 PAX ,1 RESTORE TABLE POINTER
01207 0500 00 1 02225 CLA TABLE+8,1 RESTORE FROM TABLE
01210 0601 00 4 77777 STO -1,4
01211 0500 00 1 02226 CLA TABLE+9,1
01212 0601 00 4 00000 STO 0,4
01213 -0520 00 0 02261 NZT PRTVAL CHECK FOR VALUE PRINT
01214 0020 00 0 01236 TRA CHALT
01215 0500 00 1 02215 CLA TABLE,1 INSERT SUB NAME IN COMMENT
01216 0601 00 0 02271 STO VALINE
01217 0560 00 0 01331 LDQ SAVE+1
01220 0074 00 4 01640 TSX OCT,4 CONVERT AC = VALUE
01221 0602 00 0 02274 SLW VALINE+3
01222 0560 00 0 01331 LDQ SAVE+1
01223 -0763 00 0 00022 LGL 18
BINARY CARD NO. TRACE034
01224 0074 00 4 01640 TSX OCT,4
01225 0602 00 0 02275 SLW VALINE+4
01226 0560 00 0 01330 LDQ SAVE
01227 -0763 00 0 00022 LGL 18
01230 0074 00 4 01640 TSX OCT,4
01231 0602 00 0 02277 SLW VALINE+6
01232 0074 00 4 01650 TSX WRFLX,4 WRITE VALUE
01233 0 00007 0 02271 PZE VALINE,,7
01234 0074 00 4 01650 TSX WRFLX,4
01235 0 00001 0 02525 PZE BLANK,,1
01236 -0520 00 0 02262 CHALT NZT DOHALT CHECK FOR HALT
01237 0020 00 0 01246 TRA GOBACK
01240 -0500 00 0 02546 CAL =HHALT.
01241 0602 00 0 02513 SLW STPMES
01242 0074 00 4 01650 TSX WRFLX,4 PRINT HALT MESSAGE
01243 0 00004 0 02513 PZE STPMES,,4
01244 0074 00 4 01302 TSX RESMC,4 RESTORE MACHINE CONDITIONS
01245 0074 00 4 01653 TSX DORMNT,4 GO TO DORMANT
01246 0074 00 4 01302 GOBACK TSX RESMC,4 RESTORE MACHINE CONDITIONS
01247 0534 00 4 01164 LXA STOPX4,4
BINARY CARD NO. TRACE035
01250 0020 00 4 77777 TRA -1,4 RETURN
1 FAP 12/17/69 1756.9 PAGE 19
TRACE - SECTION TO SAVE MACHINE CONDITIONS
TTL TRACE - SECTION TO SAVE MACHINE CONDITIONS
01251 0634 00 4 01300 SAVMC SXA SAVMX,4 SAVE RETURN
01252 -0600 00 0 01332 STQ SAVE+2
01253 0634 00 1 01335 SXA SAVE+5,1
01254 0634 00 2 01336 SXA SAVE+6,2
01255 0634 00 3 01337 SXA SAVE+7,3
01256 0634 00 5 01341 SXA SAVE+9,5
01257 0634 00 6 01342 SXA SAVE+10,6
01260 0634 00 7 01343 SXA SAVE+11,7
01261 0602 00 0 01344 SLW BAC SAVE THE LOGICAL AC
01262 0601 00 0 01331 STO SAVE+1
01263 0771 00 0 00002 ARS 2 SHIFT AND
01264 0601 00 0 01345 STO BSQ SAVE SIGN AND Q BITS
01265 0771 00 0 00041 ARS 33
01266 0621 00 0 01330 STA SAVE
01267 0604 00 0 01333 STI SAVE+3
01270 0600 00 0 01346 STZ OVFLOW SAVE OVERFLOW INDICATOR
01271 -0140 00 0 01273 TNO *+2
01272 -0625 00 0 01346 STL OVFLOW
01273 0600 00 0 01347 STZ DCT SAVE DIVIDE CHECK INDICATOR
BINARY CARD NO. TRACE036
01274 0760 00 0 00012 DCT
01275 -0625 00 0 01347 STL DCT
01276 0074 00 4 01655 TSX GETMEM,4 GET MEMORY BOUND
01277 0621 00 0 01334 STA SAVE+4
01300 0774 00 4 00000 SAVMX AXT **,4 RESTORE RETURN
01301 0020 00 4 00001 TRA 1,4 EXIT
1 FAP 12/17/69 1756.9 PAGE 20
TRACE - SECTION TO RESTORE MACHINE CONDITIONS
TTL TRACE - SECTION TO RESTORE MACHINE CONDITIONS
01302 0634 00 4 01326 RESMC SXA RESMX,4 SAVE INDEX REGISTER 4
01303 0441 00 0 01333 LDI SAVE+3
01304 0760 00 0 00012 DCT TURN OFF DIVIDE CHECK
01305 0020 00 0 01306 TRA *+1
01306 -0500 00 0 01306 CAL * TURN ON OVERFLOW LIGHT
01307 0767 00 0 00001 ALS 1
01310 0520 00 0 01347 ZET DCT WAS DIVIDE CHECK ON
01311 0221 00 0 02526 DVP =0 YES, TURN IT ON
01312 0500 00 0 01345 CLA BSQ GET S AND Q BITS
01313 0767 00 0 00002 ALS 2 SHIFT INTO POSITION
01314 -0501 00 0 01344 ORA BAC INSERT THE LOGICAL AC.
01315 0560 00 0 01332 LDQ SAVE+2
01316 -0520 00 0 01346 NZT OVFLOW WAS OVERFLOW LIGHT ON
01317 0140 00 0 01320 TOV *+1 NO, TURN IT OFF
BINARY CARD NO. TRACE037
01320 0534 00 3 01337 LXA SAVE+7,3
01321 0534 00 5 01341 LXA SAVE+9,5
01322 0534 00 6 01342 LXA SAVE+10,6
01323 0534 00 7 01343 LXA SAVE+11,7
01324 0534 00 1 01335 LXA SAVE+5,1
01325 0534 00 2 01336 LXA SAVE+6,2
01326 0774 00 4 00000 RESMX AXT **,4 RESTORE X4
01327 0020 00 4 00001 TRA 1,4 AND RETURN
*
01330 SAVE DUP 1,12 STORAGE FOR PM
01330 0 00000 0 00000 PZE
01331 0 00000 0 00000
01332 0 00000 0 00000
01333 0 00000 0 00000
01334 0 00000 0 00000
01335 0 00000 0 00000
01336 0 00000 0 00000
01337 0 00000 0 00000
01340 0 00000 0 00000
01341 0 00000 0 00000
01342 0 00000 0 00000
01343 0 00000 0 00000
BINARY CARD NO. TRACE038
01344 0 00000 0 00000 BAC LOG AC STORAGE
01345 0 00000 0 00000 BSQ S Q STORAGE
01346 0 00000 0 00000 OVFLOW OVERFLOW LIGHT STORAGE
01347 0 00000 0 00000 DCT DIVIDE CHECK INDICATOR STORAGE
1 FAP 12/17/69 1756.9 PAGE 21
TRACE - SECTION TO CONVERT LEFT - ADJUSTED BCD TO BINARY
TTL TRACE - SECTION TO CONVERT LEFT - ADJUSTED BCD TO BINARY
01350 0634 00 4 01375 CONVRT SXA CONXIT,4
01351 0602 00 0 02256 SLW CONTEM RIGHT JUSTIFY
01352 -0320 00 0 02535 ANA =O000000000077
01353 0322 00 0 02534 ERA =H00000
01354 -0100 00 0 01360 TNZ DTOB-2
01355 -0500 00 0 02256 CAL CONTEM
01356 0771 00 0 00006 ARS 6
01357 0020 00 0 01351 TRA CONVRT+1
01360 0774 00 4 00006 AXT 6,4
01361 0600 00 0 02254 STZ NUMBER
01362 -0754 00 0 00000 DTOB ZAC
01363 0560 00 0 02256 LDQ CONTEM
01364 -0763 00 0 00006 LGL 6
01365 -0600 00 0 02256 STQ CONTEM
01366 0100 00 0 01374 TZE TIX
01367 0131 00 0 00000 XCA
BINARY CARD NO. TRACE039
01370 0200 00 4 02325 MPY AMOUNT+1,4
01371 0131 00 0 00000 XCA
01372 0400 00 0 02254 ADD NUMBER
01373 0601 00 0 02254 STO NUMBER
01374 2 00001 4 01362 TIX TIX DTOB,4,1
01375 0774 00 4 00000 CONXIT AXT **,4
01376 0020 00 4 00001 TRA 1,4
1 FAP 12/17/69 1756.9 PAGE 22
TRACE - SECTION TO CONVERT TO DECIMAL AND OCTAL
TTL TRACE - SECTION TO CONVERT TO DECIMAL AND OCTAL
01377 0634 00 4 01426 BNBCD SXA X4,4
01400 0600 00 0 02256 STZ CONTEM
01401 0774 00 4 00000 AXT 0,4
01402 -0754 00 0 00000 BTOD ZAC
01403 0221 00 0 02530 DVP =10
01404 0767 00 4 00000 ALS ,4
01405 -0602 00 0 02256 ORS CONTEM
01406 0500 00 0 02527 CLA =1
01407 0040 00 0 01411 TLQ *+2
01410 1 77772 4 01402 TXI BTOD,4,-6
01411 0560 00 0 02256 LDQ CONTEM
01412 -0754 00 0 00000 LEADBL ZAC
01413 0774 00 4 00000 AXT 0,4
BINARY CARD NO. TRACE040
01414 -0763 00 0 00006 BN5 LGL 6
01415 -0100 00 0 01422 TNZ BN4
01416 1 77772 4 01417 TXI *+1,4,-6
01417 3 77741 4 01414 TXH BN5,4,-31
01420 -0500 00 0 02557 CAL =H
01421 0020 00 0 01426 TRA X4
01422 -0765 00 0 00006 BN4 LGR 6
01423 -0500 00 0 02557 CAL =H
01424 -0765 00 4 00000 LGR ,4
01425 -0130 00 0 00000 XCL
01426 0774 00 4 00000 X4 AXT **,4
01427 0020 00 4 00001 TRA 1,4
01430 0634 00 4 01426 OCTAL SXA X4,4
01431 -0765 00 0 00022 LGR 18
01432 0074 00 4 01640 TSX OCT,4
01433 -0130 00 0 00000 XCL
01434 0020 00 0 01412 TRA LEADBL
1 FAP 12/17/69 1756.9 PAGE 23
TRACE - SECTION TO TEST FOR CONDITIONS MET
TTL TRACE - SECTION TO TEST FOR CONDITIONS MET
01435 0100 60 2 00001 TESTDO TZE* 1,2
01436 0601 00 0 02251 STO COMMND
01437 0500 00 1 02220 CLA TABLE+3,1
BINARY CARD NO. TRACE041
01440 0765 00 0 00022 LRS 18
01441 -0754 00 0 00000 ZAC
01442 0765 00 0 00021 LRS 17
01443 0221 00 0 02251 DVP COMMND
01444 -0100 60 2 00001 TNZ* 1,2
01445 -0520 00 0 02255 NZT LINE1
01446 0074 00 4 00603 TSX YES,4
01447 0020 00 2 00002 TRA 2,2
1 FAP 12/17/69 1756.9 PAGE 24
TRACE - SECTION TO READ FREE FORMAT LINES
TTL TRACE - SECTION TO READ FREE FORMAT LINES
ISIT MACRO WHAT,WHERE
CAS WHAT
TRA *+2
TRA WHERE
ISIT END
01450 -0500 00 0 01661 NEXWRD CAL SPECIL WAS PREVIOUS CHARACTER SPECIAL
01451 0100 00 0 01460 TZE REGULR NO, GO TO NORMAL SECTION
01452 0600 00 0 01661 STZ SPECIL YES, RESET SWITCH
01453 ISIT ASTER,(2,4) RETURN 2,4 IF ASTERISK
01453 0340 00 0 01704 CAS ASTER .001
01454 0020 00 0 01456 TRA *+2 .001
01455 0020 00 4 00002 TRA 2,4 .001
01456 -0625 00 0 01662 STL COMSW WAS A COMMA, SET SWITCH
01457 0020 60 4 00001 TRA* 1,4 RETURN * 1,4
01460 0634 00 4 01546 REGULR SXA RWDXIT,4 SAVE INDICES
01461 0634 00 1 01547 SXA RWDXIT+1,1
01462 0600 00 0 01662 STZ COMSW
01463 0560 00 0 02526 LDQ =0
BINARY CARD NO. TRACE042
01464 0074 00 4 01551 SKIP TSX NXCHAR,4 GET FIRST CHARACTER
01465 ISIT BL,SKIP SKIP BLANKS
01465 0340 00 0 01701 CAS BL .001
01466 0020 00 0 01470 TRA *+2 .001
01467 0020 00 0 01464 TRA SKIP .001
01470 ISIT CR,SKIP SKIP CARRIAGE RETURN
01470 0340 00 0 01702 CAS CR .001
01471 0020 00 0 01473 TRA *+2 .001
01472 0020 00 0 01464 TRA SKIP .001
01473 ISIT COMMA,COM
01473 0340 00 0 01703 CAS COMMA .001
01474 0020 00 0 01476 TRA *+2 .001
01475 0020 00 0 01502 TRA COM .001
01476 ISIT ASTER,AST
01476 0340 00 0 01704 CAS ASTER .001
01477 0020 00 0 01501 TRA *+2 .001
01500 0020 00 0 01505 TRA AST .001
01501 0020 00 0 01507 TRA NORMAL
01502 -0625 00 0 01662 COM STL COMSW
01503 0534 00 4 01546 LXA RWDXIT,4
01504 0020 60 4 00001 TRA* 1,4
01505 0534 00 4 01546 AST LXA RWDXIT,4
01506 0020 00 4 00002 TRA 2,4
01507 -0765 00 0 00006 NORMAL LGR 6 NOT SEPARATOR, SO USE CHARACTER
BINARY CARD NO. TRACE043
01510 -0773 00 0 00014 RQL 12
01511 0774 00 1 00006 AXT 6,1 BEGIN LOOP TO PICKUP UP TO 6 CHARACTERS
01512 0074 00 4 01551 NXCH TSX NXCHAR,4 GET CHARACTER
01513 ISIT BL,DONE DONE IF BLANK
01513 0340 00 0 01701 CAS BL .001
01514 0020 00 0 01516 TRA *+2 .001
01515 0020 00 0 01535 TRA DONE .001
1 FAP 12/17/69 1756.9 PAGE 25
TRACE - SECTION TO READ FREE FORMAT LINES
01516 ISIT CR,DONE DONE IF CARRIAGE RETURN
01516 0340 00 0 01702 CAS CR .001
01517 0020 00 0 01521 TRA *+2 .001
01520 0020 00 0 01535 TRA DONE .001
01521 ISIT COMMA,SETSPE COMMA IS SPECIAL
01521 0340 00 0 01703 CAS COMMA .001
01522 0020 00 0 01524 TRA *+2 .001
01523 0020 00 0 01533 TRA SETSPE .001
01524 ISIT ASTER,SETSPE ASTERISK IS SPECIAL
01524 0340 00 0 01704 CAS ASTER .001
01525 0020 00 0 01527 TRA *+2 .001
01526 0020 00 0 01533 TRA SETSPE .001
01527 -2 00001 1 01512 TNX NXCH,1,1 IGNORE IF SIX CHARACTERS ALREADY
01530 -0765 00 0 00006 LGR 6 PACK INTO WORD
01531 -0773 00 0 00014 RQL 12
01532 0020 00 0 01512 TRA NXCH REPEAT LOOP
01533 0602 00 0 01661 SETSPE SLW SPECIL FOUND SPECIAL CHARACTER, SET SWITCH
BINARY CARD NO. TRACE044
01534 -0500 00 0 01701 CAL BL PICKUP BLANK
01535 -2 00001 1 01544 DONE TNX FULL,1,1 HAVE WE SIX CHARACTERS
01536 -0765 00 0 00006 LGR 6 NO SO FILL WITH BLANKS ON RIGHT
01537 -0130 00 0 00000 XCL
01540 0560 00 0 02557 LDQ =H
01541 -0763 00 0 00006 LGL 6
01542 2 00001 1 01541 TIX *-1,1,1
01543 0020 00 0 01546 TRA RWDXIT
01544 -0773 00 0 00036 FULL RQL 30 HAVE SIX CHARACTERS
01545 -0130 00 0 00000 XCL
01546 0774 00 4 00000 RWDXIT AXT **,4 EXIT WITH NEXT WORD IN LOG. ACUM.
01547 0774 00 1 00000 AXT **,1
01550 0020 00 4 00002 TRA 2,4
* SUBROUTINE TO GET NEXT CHARACTER
01551 0634 00 4 01602 NXCHAR SXA CHXIT,4
01552 0634 00 1 01603 SXA CHXIT+1,1
01553 0634 00 2 01604 SXA CHXIT+2,2
01554 -0600 00 0 01660 STQ SAVMQ
01555 0774 00 1 00000 LASCHA AXT **,1
01556 0774 00 2 00000 LASWRD AXT **,2
01557 2 00001 1 01573 TIX SAMWRD,1,1
BINARY CARD NO. TRACE045
01560 2 00001 2 01570 TIX SAMLIN,2,1
01561 TYPE 1,( ),BLANK
01561 0074 00 4 01650 TSX WRFLX,4 .001
01562 0 00001 0 02525 PZE BLANK,,1 .001
RMT .001
BLANK BCI 1, .001
RMT .001
01563 0074 00 4 01651 TSX WRFLXA,4
01564 0 00001 0 01656 PZE MESS,,1
01565 0074 00 4 01652 TSX RDFLXA,4
01566 0 00000 0 01663 PZE BUFF
01567 0774 00 2 00014 AXT 12,2
01570 0560 00 2 01677 SAMLIN LDQ BUFF+12,2
1 FAP 12/17/69 1756.9 PAGE 26
TRACE - SECTION TO READ FREE FORMAT LINES
01571 -0600 00 0 01657 STQ SAVEIT
01572 0774 00 1 00006 AXT 6,1
01573 0560 00 0 01657 SAMWRD LDQ SAVEIT
01574 -0754 00 0 00000 ZAC
01575 -0763 00 0 00006 LGL 6
01576 -0600 00 0 01657 STQ SAVEIT
01577 0634 00 1 01555 SXA LASCHA,1
01600 0634 00 2 01556 SXA LASWRD,2
01601 0560 00 0 01660 LDQ SAVMQ
01602 0774 00 4 00000 CHXIT AXT **,4
01603 0774 00 1 00000 AXT **,1
BINARY CARD NO. TRACE046
01604 0774 00 2 00000 AXT **,2
01605 0020 00 4 00001 TRA 1,4
1 FAP 12/17/69 1756.9 PAGE 27
TRACE - SECTION TO PRINT PM INFORMATION
TTL TRACE - SECTION TO PRINT PM INFORMATION
01606 0634 00 4 01636 PMPRT SXA PMXIT,4
01607 0602 00 2 02375 SLW LINBUF,2
01610 1 77777 2 01611 TXI *+1,2,-1
01611 -0600 00 0 02254 STQ NUMBER
01612 0074 00 4 01640 TSX OCT,4
01613 0100 00 0 01616 TZE SECPRT
01614 0602 00 2 02375 SLW LINBUF,2
01615 1 77777 2 01616 TXI *+1,2,-1
01616 0560 00 0 02254 SECPRT LDQ NUMBER
01617 -0763 00 0 00022 LGL 18
01620 0074 00 4 01640 TSX OCT,4
01621 0602 00 2 02375 SLW LINBUF,2
01622 1 77777 2 01623 TXI *+1,2,-1
01623 3 77764 2 01636 TXH PMXIT,2,-12
01624 0534 00 4 01636 LXA PMXIT,4
01625 0634 00 4 01636 PMOUT SXA PMXIT,4
01626 -0636 00 2 01630 SCD *+2,2
01627 0074 00 4 01650 TSX WRFLX,4
BINARY CARD NO. TRACE047
01630 0 00000 0 02375 PZE LINBUF,,**
01631 0774 00 2 00016 AXT 14,2
01632 -0500 00 0 02557 CAL =H
01633 0602 00 2 02413 SLW LINBUF+14,2
01634 2 00001 2 01633 TIX *-1,2,1
01635 0774 00 2 00000 AXT 0,2
01636 0774 00 4 00000 PMXIT AXT **,4
01637 0020 00 4 00001 TRA 1,4
01640 -0754 00 0 00000 OCT ZAC
01641 0634 00 4 01646 SXA TOC,4
01642 0774 00 4 00006 AXT 6,4
01643 0767 00 0 00003 ALS 3
01644 -0763 00 0 00003 LGL 3
01645 2 00001 4 01643 TIX *-2,4,1
01646 0774 00 4 00000 TOC AXT **,4
01647 0020 00 4 00001 TRA 1,4
1 FAP 12/17/69 1756.9 PAGE 28
TRACE - VARIABLE STORAGE, CONSTANTS, ETC.
TTL TRACE - VARIABLE STORAGE, CONSTANTS, ETC.
01650 0101 00 0 02562 WRFLX TIA =HWRFLX
01651 0101 00 0 02561 WRFLXA TIA =HWRFLXA
01652 0101 00 0 02552 RDFLXA TIA =HRDFLXA
01653 0101 00 0 02542 DORMNT TIA =HDORMNT
BINARY CARD NO. TRACE048
01654 0101 00 0 02544 FNRTN TIA =HFNRTN
01655 0101 00 0 02545 GETMEM TIA =HGETMEM
01656 637047253360 MESS BCI 1,TYPE.
01657 0 00000 0 00000 SAVEIT
01660 0 00000 0 00000 SAVMQ
01661 0 00000 0 00000 SPECIL
01662 0 00000 0 00000 COMSW
01663 BUFF BSS 14
BINARY CARD NO. TRACE049
01701 000000000060 BL BCI 1,00000
01702 +000000000055 CR OCT 55
01703 000000000073 COMMA BCI 1,00000,
01704 000000000054 ASTER BCI 1,00000*
01340 SAVX4 SYN SAVE+8
00310 MAXTAB EQU 200
00012 NPENT EQU 10
01705 DUP NPENT,MAXTAB/NPENT
01705 -3 00000 0 00000 SVN
01706 0 77777 0 00000 PZE 0,,32767
01707 0 00000 0 00001 PZE 1
01710 0 00000 0 00000 PZE
01711 0 00000 0 00000 PZE
01712 0 00000 0 00000 PZE
01713 0 00000 0 00000 PZE
01714 0 00000 0 00000 PZE
01715 0 00000 0 00000 PZE
01716 0 00000 0 00000 PZE
01717 -3 00000 0 00000
01720 0 77777 0 00000
01721 0 00000 0 00001
01722 0 00000 0 00000
01723 0 00000 0 00000
01724 0 00000 0 00000
BINARY CARD NO. TRACE050
01725 0 00000 0 00000
01726 0 00000 0 00000
01727 0 00000 0 00000
01730 0 00000 0 00000
01731 -3 00000 0 00000
01732 0 77777 0 00000
01733 0 00000 0 00001
01734 0 00000 0 00000
01735 0 00000 0 00000
01736 0 00000 0 00000
01737 0 00000 0 00000
1 FAP 12/17/69 1756.9 PAGE 29
TRACE - VARIABLE STORAGE, CONSTANTS, ETC.
01740 0 00000 0 00000
01741 0 00000 0 00000
01742 0 00000 0 00000
01743 -3 00000 0 00000
01744 0 77777 0 00000
01745 0 00000 0 00001
01746 0 00000 0 00000
01747 0 00000 0 00000
01750 0 00000 0 00000
BINARY CARD NO. TRACE051
01751 0 00000 0 00000
01752 0 00000 0 00000
01753 0 00000 0 00000
01754 0 00000 0 00000
01755 -3 00000 0 00000
01756 0 77777 0 00000
01757 0 00000 0 00001
01760 0 00000 0 00000
01761 0 00000 0 00000
01762 0 00000 0 00000
01763 0 00000 0 00000
01764 0 00000 0 00000
01765 0 00000 0 00000
01766 0 00000 0 00000
01767 -3 00000 0 00000
01770 0 77777 0 00000
01771 0 00000 0 00001
01772 0 00000 0 00000
01773 0 00000 0 00000
01774 0 00000 0 00000
BINARY CARD NO. TRACE052
01775 0 00000 0 00000
01776 0 00000 0 00000
01777 0 00000 0 00000
02000 0 00000 0 00000
02001 -3 00000 0 00000
02002 0 77777 0 00000
02003 0 00000 0 00001
02004 0 00000 0 00000
02005 0 00000 0 00000
02006 0 00000 0 00000
02007 0 00000 0 00000
02010 0 00000 0 00000
02011 0 00000 0 00000
02012 0 00000 0 00000
02013 -3 00000 0 00000
02014 0 77777 0 00000
02015 0 00000 0 00001
02016 0 00000 0 00000
02017 0 00000 0 00000
02020 0 00000 0 00000
1 FAP 12/17/69 1756.9 PAGE 30
TRACE - VARIABLE STORAGE, CONSTANTS, ETC.
BINARY CARD NO. TRACE053
02021 0 00000 0 00000
02022 0 00000 0 00000
02023 0 00000 0 00000
02024 0 00000 0 00000
02025 -3 00000 0 00000
02026 0 77777 0 00000
02027 0 00000 0 00001
02030 0 00000 0 00000
02031 0 00000 0 00000
02032 0 00000 0 00000
02033 0 00000 0 00000
02034 0 00000 0 00000
02035 0 00000 0 00000
02036 0 00000 0 00000
02037 -3 00000 0 00000
02040 0 77777 0 00000
02041 0 00000 0 00001
02042 0 00000 0 00000
02043 0 00000 0 00000
02044 0 00000 0 00000
BINARY CARD NO. TRACE054
02045 0 00000 0 00000
02046 0 00000 0 00000
02047 0 00000 0 00000
02050 0 00000 0 00000
02051 -3 00000 0 00000
02052 0 77777 0 00000
02053 0 00000 0 00001
02054 0 00000 0 00000
02055 0 00000 0 00000
02056 0 00000 0 00000
02057 0 00000 0 00000
02060 0 00000 0 00000
02061 0 00000 0 00000
02062 0 00000 0 00000
02063 -3 00000 0 00000
02064 0 77777 0 00000
02065 0 00000 0 00001
02066 0 00000 0 00000
02067 0 00000 0 00000
02070 0 00000 0 00000
BINARY CARD NO. TRACE055
02071 0 00000 0 00000
02072 0 00000 0 00000
02073 0 00000 0 00000
02074 0 00000 0 00000
02075 -3 00000 0 00000
02076 0 77777 0 00000
02077 0 00000 0 00001
02100 0 00000 0 00000
02101 0 00000 0 00000
02102 0 00000 0 00000
1 FAP 12/17/69 1756.9 PAGE 31
TRACE - VARIABLE STORAGE, CONSTANTS, ETC.
02103 0 00000 0 00000
02104 0 00000 0 00000
02105 0 00000 0 00000
02106 0 00000 0 00000
02107 -3 00000 0 00000
02110 0 77777 0 00000
02111 0 00000 0 00001
02112 0 00000 0 00000
02113 0 00000 0 00000
02114 0 00000 0 00000
BINARY CARD NO. TRACE056
02115 0 00000 0 00000
02116 0 00000 0 00000
02117 0 00000 0 00000
02120 0 00000 0 00000
02121 -3 00000 0 00000
02122 0 77777 0 00000
02123 0 00000 0 00001
02124 0 00000 0 00000
02125 0 00000 0 00000
02126 0 00000 0 00000
02127 0 00000 0 00000
02130 0 00000 0 00000
02131 0 00000 0 00000
02132 0 00000 0 00000
02133 -3 00000 0 00000
02134 0 77777 0 00000
02135 0 00000 0 00001
02136 0 00000 0 00000
02137 0 00000 0 00000
02140 0 00000 0 00000
BINARY CARD NO. TRACE057
02141 0 00000 0 00000
02142 0 00000 0 00000
02143 0 00000 0 00000
02144 0 00000 0 00000
02145 -3 00000 0 00000
02146 0 77777 0 00000
02147 0 00000 0 00001
02150 0 00000 0 00000
02151 0 00000 0 00000
02152 0 00000 0 00000
02153 0 00000 0 00000
02154 0 00000 0 00000
02155 0 00000 0 00000
02156 0 00000 0 00000
02157 -3 00000 0 00000
02160 0 77777 0 00000
02161 0 00000 0 00001
02162 0 00000 0 00000
02163 0 00000 0 00000
02164 0 00000 0 00000
1 FAP 12/17/69 1756.9 PAGE 32
TRACE - VARIABLE STORAGE, CONSTANTS, ETC.
BINARY CARD NO. TRACE058
02165 0 00000 0 00000
02166 0 00000 0 00000
02167 0 00000 0 00000
02170 0 00000 0 00000
02171 -3 00000 0 00000
02172 0 77777 0 00000
02173 0 00000 0 00001
02174 0 00000 0 00000
02175 0 00000 0 00000
02176 0 00000 0 00000
02177 0 00000 0 00000
02200 0 00000 0 00000
02201 0 00000 0 00000
02202 0 00000 0 00000
02203 -3 00000 0 00000
02204 0 77777 0 00000
02205 0 00000 0 00001
02206 0 00000 0 00000
02207 0 00000 0 00000
02210 0 00000 0 00000
BINARY CARD NO. TRACE059
02211 0 00000 0 00000
02212 0 00000 0 00000
02213 0 00000 0 00000
02214 0 00000 0 00000
02215 0 00000 0 00000 TABLE PZE
02216 212663255160 COMTAB BCI 1,AFTER
02217 0020 00 0 00350 TRA AFTER
02220 256525517060 BCI 1,EVERY
02221 0020 00 0 00355 TRA EVERY
02222 644563314360 BCI 1,UNTIL
02223 0020 00 0 00352 TRA UNTIL
02224 626346476060 BCI 1,STOP
02225 0020 00 0 00357 TRA STOP
02226 234664456360 BCI 1,COUNT
02227 0020 00 0 00362 TRA COUNT
02230 474460606060 BCI 1,PM
02231 0020 00 0 00374 TRA PM
02232 232143436060 BCI 1,CALL
02233 0020 00 0 00434 TRA CALL
02234 302143636060 BCI 1,HALT
BINARY CARD NO. TRACE060
02235 0020 00 0 00364 TRA HALT
02236 652143642560 BCI 1,VALUE
02237 0020 00 0 00367 TRA VALUE
02240 215127626060 BCI 1,ARGS
02241 0020 00 0 00371 TRA ARGS
00024 NUMCON EQU *-COMTAB
02242 0021 00 0 00475 TTR TTR TRAP
02243 0021 00 0 00000 TTRWRD TTR **
02244 -3 00000 0 00475 TXLWRD TXL TRAP,,**
02245 0 00000 0 00000 LOOKWD
1 FAP 12/17/69 1756.9 PAGE 33
TRACE - VARIABLE STORAGE, CONSTANTS, ETC.
02246 0 00000 0 00000 PUTWD
02247 0 00000 0 00000 TABPOS
02250 0 00000 0 00000 NAME
02251 0 00000 0 00000 COMMND
02252 0 00000 0 00000 ILC
02253 0 00000 0 00000 STLOC
02254 0 00000 0 00000 NUMBER
02255 0 00000 0 00000 LINE1
02256 0 00000 0 00000 CONTEM
02257 0 00000 0 00000 CTSS
02260 0 00000 0 00000 RETURN
BINARY CARD NO. TRACE061
02261 0 00000 0 00000 PRTVAL
02262 0 00000 0 00000 DOHALT
02263 0761 00 0 00000 BRKINS NOP 0
02264 0074 00 4 01202 TSX BREAK,4
02265 3 00000 0 00000 PFX TXH 0,0,0
02266 0 00000 0 00000 PZE
02267 0074 00 0 00000 TSX 0,0
02270 2 00000 0 00000 TIX 0,0,0
02271 545454545454 VALINE BCI 7,****** VALUE IS ******...... QP =
02272 606065214364
02273 256031626060
02274 545454545454
02275 333333333333
02276 605047601360
02277 606060606060
02300 545454545460 ARGLIN BCI 6,***** REL, ***** ABS =
02301 512543736060
02302 545454545460
02303 212262601360
02304 606060606060
BINARY CARD NO. TRACE062
02305 606060606060
02306 232143436054 FMT BCI 9,CALL *** OF ****** FROM ****** ABS, **** REL IN
02307 545460462660
02310 545454545454
02311 602651464460
02312 545454545454
02313 602122627360
02314 545454546051
02315 254360314560
02316 606060606060
02317 +000000303240 DEC 100000,10000,1000,100,10
02320 +000000023420
02321 +000000001750
02322 +000000000144
02323 +000000000012
02324 +000000000001 AMOUNT DEC 1
02325 0 00000 0 00000 USED
02326 212360606060 PMTAB BCI 1,AC
02327 445060606060 BCI 1,MQ
02330 623160606060 BCI 1,SI
1 FAP 12/17/69 1756.9 PAGE 34
TRACE - VARIABLE STORAGE, CONSTANTS, ETC.
BINARY CARD NO. TRACE063
02331 442260606060 BCI 1,MB
02332 670160606060 BCI 1,X1
02333 670260606060 BCI 1,X2
02334 670360606060 BCI 1,X3
02335 670460606060 BCI 1,X4
02336 670560606060 BCI 1,X5
02337 670660606060 BCI 1,X6
02340 670760606060 BCI 1,X7
02341 430160606060 BCI 1,L1
02342 430260606060 BCI 1,L2
02343 430360606060 BCI 1,L3
02344 230160606060 BCI 1,C1
02345 230260606060 BCI 1,C2
02346 230360606060 BCI 1,C3
00021 PMNUM SYN *-PMTAB
02347 676260606060 BCI 1,XS
02350 214343606060 BCI 1,ALL
00023 NUMPM SYN *-PMTAB
02351 +200000000000 PMBITS DEC 1B1,1B2,1B3,1B4,1B5,1B6,1B7,1B8,1B9,1B10
02352 +100000000000
02353 +040000000000
02354 +020000000000
BINARY CARD NO. TRACE064
02355 +010000000000
02356 +004000000000
02357 +002000000000
02360 +001000000000
02361 +000400000000
02362 +000200000000
02363 +000100000000 DEC 1B11,1B12,1B13,1B14,1B15,1B16,1B17
02364 +000040000000
02365 +000020000000
02366 +000010000000
02367 +000004000000
02370 +000002000000
02371 +000001000000
02372 +017700000000 OCT 17700000000,377700000000
02373 +377700000000
02374 0 00000 0 00000 PMSW
02375 LINBUF DUP 1,14
02375 606060606060 BCI 1,
02376 606060606060
02377 606060606060
02400 606060606060
BINARY CARD NO. TRACE065
02401 606060606060
02402 606060606060
02403 606060606060
02404 606060606060
02405 606060606060
02406 606060606060
02407 606060606060
1 FAP 12/17/69 1756.9 PAGE 35
TRACE - VARIABLE STORAGE, CONSTANTS, ETC.
02410 606060606060
02411 606060606060
02412 606060606060
1 FAP 12/17/69 1756.9 PAGE 36
TRACE - REMOTE SEQUENCES
TTL TRACE - REMOTE SEQUENCES
02413 RMT *
02413 444665312560 ..001 BCI 6,MOVIE TABLE ERASED, CANNOT TRACE. .001
02414 632122432560
02415 255121622524
02416 736023214545
02417 466360635121
02420 232533606060
02421 635121232560 ..002 BCI 3,TRACE ENTERED. .001
02422 254563255125
02423 243360606060
02424 545454545454 ERR1 BCI 6,****** IS NOT IN TRACE TABLE. .001
BINARY CARD NO. TRACE066
02425 603162604546
02426 636031456063
02427 512123256063
02430 212243253360
02431 606060606060
02432 635121232560 ..003 BCI 3,TRACE TABLE FULL. .001
02433 632122432560
02434 266443433360
02435 545454545454 ENTIS BCI 3,****** ENTRY ****** .001
02436 602545635170
02437 605454545454
02440 545454545454 ERR4 BCI 4,****** IS NOT USED. .001
02441 603162604546
02442 636064622524
02443 336060606060
02444 545454545454 ERR2 BCI 4,****** IS NOT A REQUEST. .001
02445 603162604546
02446 636021605125
02447 506425626333
02450 545454545454 NOPAR BCI 7,****** PARAMETER MISSING, REQUEST IGNORED. .001
BINARY CARD NO. TRACE067
02451 604721512144
02452 256325516044
02453 316262314527
02454 736051255064
02455 256263603127
02456 454651252433
02457 545454545454 PMERR BCI 4,****** IS NOT A LEGAL PM .001
02460 603162604546
02461 636021604325
02462 272143604744
02463 454660242522 ..004 BCI 7,NO DEBUGGING SUBROUTINE, CALL IGNORED. .001
02464 642727314527
02465 606264225146
02466 646331452573
02467 602321434360
02470 312745465125
02471 243360606060
02472 545454545454 ERR3 BCI 5,****** IS NOT IN MOVIE TABLE. .001
02473 603162604546
1 FAP 12/17/69 1756.9 PAGE 37
TRACE - REMOTE SEQUENCES
02474 636031456044
BINARY CARD NO. TRACE068
02475 466531256063
02476 212243253360
02477 635121232560 ..005 BCI 2,TRACE LEFT. .001
02500 432526633360
02501 242522642727 ..006 BCI 5,DEBUGGING SUBROUTINE CALLED. .001
02502 314527606264
02503 225146646331
02504 452560232143
02505 432524336060
02506 215127644425 ..007 BCI 3,ARGUMENTS ARE ... .001
02507 456362602151
02510 256033333360
02511 454660215127 ..008 BCI 2,NO ARGUMENTS .001
02512 644425456362
02513 545454545454 STPMES BCI 4,****** PM MAY BE TAKEN. .001
02514 604744604421
02515 706022256063
02516 214225453360
02517 222124602321 CALBAD BCI 6,BAD CALL TO TRACE FROM ****** ABS. .001
02520 434360634660
BINARY CARD NO. TRACE069
02521 635121232560
02522 265146446060
02523 545454545454
02524 602122623360
02525 606060606060 BLANK BCI 1, .001
1 FAP 12/17/69 1756.9 PAGE 38
TRACE - SYMBOL CROSS REFERENCE LIST
TTL TRACE - SYMBOL CROSS REFERENCE LIST
END
LITERALS
02526 000000000000
02527 000000000001
02530 000000000012
02531 000000000013
02532 000000000016
02533 000000000040
02534 000000000060
02535 000000000077
02536 000000007777
02537 000000077777
02540 007777770077
02541 077777000000
02542 244651444563
02543 263145246060
02544 264551634560
BINARY CARD NO. TRACE070
02545 272563442544
02546 302143633360
02547 400000000000
02550 462626606060
02551 464560606060
02552 512426436721
02553 512544466525
02554 600000001300
02555 605047601360
02556 605454545460
02557 606060606060
02560 626346473360
02561 665126436721
02562 665126436760
02563 700000000000
02564 700000700000
02565 744421314534
02566 777700000000
02567 777777700000
02570 777777770000
1 FAP 12/17/69 1756.9 PAGE 1
POST PROCESSOR ASSEMBLY DATA
2571 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1701 BL 1465, 1513, 1534
1702 CR 1470, 1516
35 FP 27
743 NO 566, 567, 601, 602
15 OK 11
374 PM 2231
1426 X4 1377, 1421, 1430
1505 AST 1500
1344 BAC 1261, 1314
1422 BN4 1415
1414 BN5 1417
1345 BSQ 1264, 1312
537 CNT 542
1502 COM 1475
1347 DCT 1273, 1275, 1310
2306 FMT 704, 706, 707, 711, 713, 714, 716, 721, 730, 732, 733, 735, 737
2252 ILC 607, 612, 620, 645, 657, 717, 724
1640 OCT 1131, 1135, 1220, 1224, 1230, 1432, 1612, 1620
2265 PFX 537, 544, 552, 557
736 PRT 676, 723
1374 TIX 1366
1646 TOC 1641
2242 TTR
603 YES 1446
504 ADDR 503, 510, 1171
371 ARGS 2241
1402 BTOD 1410
1663 BUFF 1566, 1570
434 CALL 2233
2257 CTSS 3, 5, 472
1535 DONE 1515, 1520
1031 DOPM 1063
1362 DTOB 1354, 1374
2424 ERR1 101, 103
2444 ERR2 325, 327
2472 ERR3 462, 464
2440 ERR4 247, 251
470 EXIT 14
1544 FULL 1535
364 HALT 2235
321 LOOK 310, 314, 324
1656 MESS 1564
2250 NAME 21, 24, 100, 125, 161, 246, 442, 461, 622, 672, 722, 734
1512 NXCH 1527, 1532
1021 PMCH 777
375 PMIN 423, 431, 433
2374 PMSW 406, 410, 425
1330 SAVE 1051, 1060, 1217, 1222, 1226, 1252, 1253, 1254, 1255, 1256, 1257, 1260, 1262, 1266, 1267, 1277, 1303
1315, 1320, 1321, 1322, 1323, 1324, 1325, 1705
213 SET1 135, 223
220 SET2 136, 216
1 FAP 12/17/69 1756.9 PAGE 2
POST PROCESSOR ASSEMBLY DATA
226 SET3 142
147 SET4 137
155 SET5 140, 160, 172
163 SET6 143
165 SETT 127
1464 SKIP 1467, 1472
357 STOP 2225
466 THRU 23, 76, 122, 306, 331, 347, 401
475 TRAP 2242, 2244
2325 USED 207, 240, 244
350 AFTER 2217
566 AFTES 527
1130 ARGET 1111, 1133
1704 ASTER 22, 74, 305, 312, 377, 1453, 1476, 1524
2525 BLANK 1070, 1147, 1235, 1562
1377 BNBCD 702
1202 BREAK 2264
1236 CHALT 1214
230 CHKTV 227, 234, 237
1602 CHXIT 1551, 1552, 1553
1703 COMMA 1473, 1521
1662 COMSW 66, 275, 332, 335, 345, 1456, 1462, 1502
362 COUNT 2227
2435 ENTIS 171, 173, 175
355 EVERY 2221
666 FNFND 654, 660
1654 FNRTN 474
2413 ..001 13
2421 ..002 16
2432 ..003 121
2463 ..004 455
2477 ..005 467
2501 ..006 1001
2506 ..007 1106
2511 ..008 1145
2255 LINE1 41, 203, 242, 300, 313, 330, 340, 520, 603, 1445
1063 LOOPM 1034, 1057
2450 NOPAR 342, 344
100 NOTIN 44, 57
12 NPENT 31, 33, 110, 117, 252, 513, 514, 1705
23 NUMPM 412, 413, 424, 2351
1430 OCTAL 170, 720, 726, 1117, 1124, 1173
56 ONOFF 52
656 ORGFD 633, 641, 644, 646
2457 PMERR 420, 422
424 PMFND 415
21 PMNUM 1031, 2347
1625 PMOUT 1066
1606 PMPRT 1056, 1062
432 PMSET 426
2326 PMTAB 413, 1052, 2347, 2351
1636 PMXIT 1606, 1623, 1624, 1625
676 PRINT 674
2246 PUTWD 206, 236
1302 RESMC 470, 1014, 1160, 1166, 1177, 1244, 1246
1 FAP 12/17/69 1756.9 PAGE 3
POST PROCESSOR ASSEMBLY DATA
1326 RESMX 1302
1167 RESX4
1251 SAVMC 7, 476, 1203
1660 SAVMQ 1554, 1601
1300 SAVMX 1251
1340 SAVX4 6, 471, 475, 501, 532, 606, 1003, 1037, 1100, 1161, 1167, 1200, 1705
2253 STLOC 623, 662, 725, 1113
1170 SUBGO 517, 1165
27 TABCH 31, 33
2215 TABLE 30, 61, 65, 114, 126, 166, 256, 260, 261, 263, 264, 265, 266, 267, 350, 353, 355
360, 362, 365, 367, 372, 374, 430, 432, 436, 444, 452, 457, 516, 521, 562, 564, 570
573, 677, 715, 743, 751, 762, 764, 774, 1005, 1011, 1021, 1026, 1071, 1150, 1207, 1211, 1215
1437
5 TRACE 0, 4
242 TRXIT 212
567 UNTES 524
352 UNTIL 2223
367 VALUE 2237
1650 WRFLX 12, 15, 102, 120, 174, 250, 326, 343, 421, 454, 463, 466, 736, 1000, 1067, 1105, 1137
1144, 1146, 1156, 1175, 1232, 1234, 1242, 1561, 1627
2324 AMOUNT 1370
1071 ARGCHK 1024
1142 ARGDON 1102
2300 ARGLIN 1122, 1127, 1132, 1136, 1140
1146 ARGSKP 1143
1102 ARGTST 1077, 1141
74 ASTCHK 71
1171 BADCAL 507, 512, 514
2263 BRKINS 766, 770
2517 CALBAD 1174, 1176
774 CALLCH 754, 757
1020 CALLX1 1002
234 CHKAGN 241
2251 COMMND 37, 46, 53, 60, 63, 70, 176, 277, 304, 317, 572, 600, 1013, 1017, 1436, 1443
2216 COMTAB 321, 341, 2242
2256 CONTEM 523, 525, 574, 1351, 1355, 1363, 1365, 1400, 1405, 1411
1350 CONVRT 316, 447, 1357
1375 CONXIT 1350
2262 DOHALT 531, 755, 772, 1236
1653 DORMNT 1163, 1201, 1245
252 EXPUNG 200, 273, 465
66 FINDEL 104, 254, 274, 460
130 FINNAM 45, 443
1655 GETMEM 1276
72 GETNEX 75, 77
1246 GOBACK 1237
751 HALTCH 746, 773
1555 LASCHA 1577
1556 LASWRD 1600
1412 LEADBL 1434
635 LETHMV 625, 651, 652, 655, 665
2375 LINBUF 1607, 1614, 1621, 1630, 1633
212 LOFMOV 132, 214, 217, 222, 235
2245 LOOKWD 205, 231
561 LSTARG 545, 554
1 FAP 12/17/69 1756.9 PAGE 4
POST PROCESSOR ASSEMBLY DATA
310 MAXTAB 111, 112, 1705
0 MOVIE) 10, 130, 134, 610, 614, 624, 627
146 MOVLEN 131, 154, 157, 162
17 NAMEIN 20, 67, 73, 276, 303, 334, 346, 376, 446
160 NAMFND 152
1450 NEXWRD 17, 35, 72, 302, 307, 375, 440, 445
1051 NOCSEQ 1035, 1044
454 NONFCL 441
342 NOPAR1 336
1507 NORMAL 1501
461 NOTFND 146
123 NOTFUL 111, 116
1045 NOTIND 1040
105 NOTSPE 55
2254 NUMBER 311, 315, 337, 402, 407, 417, 434, 450, 650, 653, 664, 1004, 1016, 1075, 1103, 1107, 1142
1361, 1372, 1373, 1611, 1616
24 NUMCON 320, 321, 341, 2242
1551 NXCHAR 1464, 1512
675 OUTRNG 613, 621, 635
1346 OVFLOW 1270, 1272, 1316
547 PFXTYP 541, 553, 560
302 PHRASE 301, 333, 351, 354, 356, 361, 363, 366, 370, 373, 437, 453
2351 PMBITS 424
1064 PMDONE 1025, 1031
413 PMLOOK 416
2261 PRTVAL 530, 747, 756, 1213
1652 RDFLXA 1565
1460 REGULR 1451
1110 RELARG 1104
1122 RELSTQ 1116
255 REMOVE 243
1166 RESTOR 522, 1153, 1166
2260 RETURN 561, 760, 1076
1546 RWDXIT 1460, 1461, 1503, 1505, 1543
1570 SAMLIN 1560
1573 SAMWRD 1557
1657 SAVEIT 1571, 1573, 1576
1616 SECPRT 1613
114 SERTAB 117
760 SETBRK 750
1533 SETSPE 1523, 1526
1661 SPECIL 1450, 1452, 1533
636 STINF1 630
642 STINF2 631, 637, 667
1150 STOPCH 1074
1164 STOPX4 1162, 1202, 1204, 1247
2513 STPMES 1155, 1157, 1241, 1243
3 STRACE 0
1015 SUBCAL 1006
26 TABCNT 107, 123, 253, 270, 477
2247 TABPOS 25, 34, 43, 56, 105, 124, 272
512 TABTES 500
275 TESCOM 106, 245
1435 TESTDO 745, 753, 776, 1023, 1073, 1152
2243 TTRWRD 165, 201
1 FAP 12/17/69 1756.9 PAGE 5
POST PROCESSOR ASSEMBLY DATA
2244 TXLWRD 167, 202
2271 VALINE 1216, 1221, 1225, 1231, 1233
1651 WRFLXA 1563
335 XEQCOM 323
740 YESXIT 604, 605
0 NO ERROR IN ABOVE ASSEMBLY.
Reference in New Issue View Git Blame Copy Permalink