github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-05-05 07:24:55 +00:00
Code Issues Releases Wiki Activity
Files
efa7fc3902aa1f1272561b1e330d56ead0ceefda
pkimpel.retro-220/software/BALGOL/BALGOL-Overlay-List.lst
Paul Kimpel f288264276 Commit BALGOL compiler reconstruction WIP as of 2018-01-11: 
1. Updated compiler and library sources after second proofing pass.
2. Updated Generator and Compiler object code and build decks.
3. Updated Generator and Compiler loadable object tapes.
4. Corrections to BAC-Assembler and enhancements for additional card/tape output options.
5. Minor corrections to GEN-Assembler.
6. Updates to miscellaneous utilities and example programs.
2018-01-12 08:16:52 -08:00

5263 lines
288 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2018-01-09 21:21
Source File: BALGOL-Overlay.card
ASMBL 2
REORD 100.0
START PASS 1
01 00 0 0000 BUF DEFN 0002 TAPE OUTPUT BUFFER
01 01 0 0000 OT DEFN 1 OUTPUT TAPE
01 02 0 0000 T DEFN 2 COMPILER TAPE UNIT
01 03 0 0000 PNTR DEFN 2 PRINTER UNIT
001 04 0 0000 PREV DEFN 101 ADDRESS OF PREVIOUS INSTRUCTION IN BUF
001 05 0 0000 CNTRI DEFN 180 COUNTER FOR INSTRUCTIONS IN BUFFER
001 06 0 0000 CNTRF DEFN 181 COUNTER FOR FIX-UPS IN BUFFER
001 07 0 0000 WRTF DEFN 183 RTF CONSTANT FOR WRITE SUBROUTINE
01 08 0 0000 DESCR DEFN 184 INSTRUCTION IN OUTPUT BUFFER
01 09 0 0000 EXPLN DEFN 185 SYMBOLIC EXPLANATION
001 10 0 0000 LCMAX DEFN 202 HIGHEST LOCATION USED IN SEGMENTS
001 11 0 0000 LRTF DEFN 207 LOCATION OF LAST RTF IN OUTPUT BUFFER
001 12 0 0000 HALT1 DEFN 208 ERROR FLAG(SIGN IS 8 IF NO ERRORS)
001 13 0 0000 VARB DEFN 251 LAST LOCATION USED FOR VARIABLES, ECT
01 14 0 0000 EPSLN DEFN 258 NUMBER OF EXTERNAL PROGRAMS
01 15 0 0000 AVAIL DEFN 273 FREED-UP LOCATIONS
01 16 0 0000 OP DEFN 275 OPERATOR STACK
01 17 0 0000 DUMBS DEFN 292 DUMP STACK
01 18 0 0000 SX DEFN 400 MAG TAPE BUFFER
01 19 0 0000 IMAGE DEFN 1632 CARD INPUT BUFFER
001 20 0 0000 XZERO DEFN 4095 START OF FIXED POINT CONSTANT LIST
001 21 0 0000 FZERO DEFN 4097 START OF FLOATING POINT CONSTANT LIST
01 22 0 0000 XONE DEFN 4099 FIXED POINT CONSTANT 1
001 23 0 0000 LALE DEFN 4107 POINTS TO LABEL PROCESSING SUBROUTINE
001 24 0 0000 SCRTB DEFN 4116 SCRAMBLE TABLE FOR IDENTIFIERS
001 25 0 0000 SSC DEFN 4216 POINTS TO WHATS LEFT OF MEMORY
001 26 0 0000 LOCN DEFN 4217 LOCATION COUNTER FOR INSTRUCTIONS
001 27 0 0000 MAMAX DEFN 4227 END OF ASSOCIATIVE MEMORY
01 28 0 0000 MSIZE DEFN 4999 MEMORY SIZE
01 31 0 0000 LOCN 0000
001 32 0 0000 MDUMP HLT 0 SYMBOLIC MEMORY DUMP IS ON ODD LANE
001 33 0 0001 SOH SET INDICATOR FOR ENTIRE DUMP
01 34 0 0002 BOF *+2
01 35 0 0003 IFL T+,51,3
01 36 0 0004 MRW 4 OT+10
01 37 0 0005 STA A
01 38 0 0006 STB B
01 39 0 0007 LBC *+1
01 40 0 0008 NOP LOD1-100
01 41 0 0009 MOW 4 0,OT,4
01 42 0 0010 MRD 4 100,OT,3,BMOD
01 43 0 0011 BUN 100
01 44 0 0012 A HLT
01 45 0 0013 B HLT MSIZE+1
01 48 0 0014 MLOAD LDB 0
01 49 0 0015 STB B+,04 GET EXIT LINE
01 50 0 0016 MLS 4 OT POSITION TAPE SO THAT
01 51 0 0017 MPF 4 OT,1 SEGMENTATION WILL WORK
01 52 0 0018 LDB B
01 53 0 0019 SOR
01 54 0 0020 FDV *
01 55 0 0021 CAD A
01 56 0 0022 *T NOP *+1
01 57 0 0023 STB T-,51
01 58 0 0024 *B BUN * RETURN TO PROGRAM
01 61 0 0025 LDB *+2
01 62 0 0026 RTF A,1
01 63 0 0027 ZERO RTF 199,100 ZERO MEMORY
01 64 0 0028 STB A BEFORE LOADING PROGRAM
01 65 0 0029 CFR A,04
01 66 0 0030 BCU ZERO
01 67 0 0031 LOADP MRD 4 100,OT,1
01 68 0 0032 LDR X+
01 69 0 0033 STR M+
01 70 0 0034 LBC *+1
01 71 0 0035 CLA 100
01 72 0 0036 *A ADD - 200
01 73 0 0037 ADD - 201
01 74 0 0038 ADD - 202
01 75 0 0039 ADD - 203
01 76 0 0040 ADD - 204 SUM CHECK THE BLOCK
01 77 0 0041 IBB A-,5
01 78 0 0042 BOF *+1
01 79 0 0043 BZA M+
01 80 0 0044 SPO Q1+,4 IF IT DOES NOT
01 81 0 0045 F424 9669,0,9669 SAY SO AND HALT
01 82 0 0046 MPB 4 OT,1 TRY AGAIN
01 83 0 0047 BUN LOADP
01 86 0 0048 *M CAD 101 GET BUFFER ENTRY
01 87 0 0049 LDB M-
001 88 0 0050 BSA C+,4 IS IT A RTF(IF NOT, ALL INSTRUCTIONS
001 90 0 0051 CLL Z+ ARE LOADED SO PROCESS FIX-UPS
01 91 0 0052 IFL Z+,02,99
01 92 0 0053 *A DLB Z+,04,1
001 93 0 0054 LDR - 100 IF FIX-UP HAS A SIGN OF 8 IT INDICATES
01 94 0 0055 BFR B+,12,80 END OF SOME SEGMENT
01 95 0 0056 BZR LOADP
01 96 0 0057 DLB - 100,64,0 DO FIX-UP
01 97 0 0058 STR - 0,04
01 98 0 0059 BUN A-
02 01 0 0060 *C STA R+,66
002 02 0 0061 DBB 0,9999 INSTRUCTIONS ARE TRANSFERED TO
02 03 0 0062 STB R+,04 MEMORY WITH A RTF
02 04 0 0063 LDB - 9999
02 05 0 0064 *R RTF 0,100
02 06 0 0065 SRT 7
02 07 0 0066 ADD O+ GO GET NEXT RTF
02 08 0 0067 ADL M-
02 09 0 0068 BUN M-
02 10 0 0069 *X CAD 101
02 11 0 0070 *O HLT 1
02 12 0 0071 *Z HLT 99 FIX-UP COUNTER
02 15 0 0072 *B CFR SECT,67 HAVE WE LOADED ALL OF THE
02 16 0 0073 BCU A- SEGMENT INDICATED BY SECT
02 17 0 0074 LODOX BUN 200
02 20 0 0075 *V HLT 1111
02 21 0 0076 LODOV LDB LODOX
02 22 0 0077 CAD - 0
02 23 0 0078 EXT V-
02 24 0 0079 SLA 4
02 25 0 0080 STA SECT,00 GET SEGMENT NUMBER
02 26 0 0081 IFL LODOX,04,1 ADVANCE EXIT LINE BY ONE
02 27 0 0082 CLB
02 28 0 0083 *B MTS 4 SECT,OT SEARCH FOR SEGMENT
02 29 0 0084 MRD 4 100,OT,1
02 30 0 0085 CAD 100
02 31 0 0086 CFA SECT,00 DID THE MACHINE WORK
02 32 0 0087 BCE LOADP+1 IF YES,LOAD THE SEGMENT
02 33 0 0088 SPO Q2+,3 IF NOT PRINT THE MESSAGE
02 34 0 0089 F424 9669,0,9669 SEGMENT ERROR
02 35 0 0090 BUN B- TRY AGAIN
02 37 0 0091 SECT HLT 8 0 SEGMENT NUMBER
02 39 0 0092 *Q1 CNST 21602020202
02 40 0 0093 CNST 24348454352
02 41 0 0094 CNST 20062645400
02 42 0 0095 CNST 24559595659
02 43 0 0096 *Q2 CNST 21662454754
02 44 0 0097 CNST 24555630045
02 45 0 0098 CNST 25959565902
02 48 0 0099 LOCN 100
02 49 0 0100 HLT 0
02 50 0 0101 FMT1 FBGR INPUT,16(P5A),P10Z
002 51 0 0130 FMT3 FBGR PRINT,49B,T5A,T1A1B2A4Z,T10N,T8Z1A,XB6Z2A,48B MONITOR
002 52 0 0159 FMT4 FBGR PRINT,32B,11(T5A),33B ERROR MESSAGE FORMAT BAND
02 53 0 0188 TAB DEFN *
02 54 0 0188 LOCN 200
02 55 0 0200 HLT 0
002 56 0 0201 FMT5 FBGR PRINT,24(T5A) PRINTER-PUNCH FORMAT BAND
02 58 0 0230 LOADL CRI 4 *+2,1 LOADER ENTRANCE
02 59 0 0231 BUN LOADC
002 60 0 0232 CRF 4 FMT1+28,51 LOAD INPUT FORMAT IF READY
02 61 0 0233 LOADC STB 200,55
02 62 0 0234 *A IFL 200,54,1
02 63 0 0235 BOF A+
02 64 0 0236 CWI 4 A+,2
02 65 0 0237 BUN A-
02 66 0 0238 *A CWI 4 *+2,2
02 67 0 0239 BUN *+4
002 68 0 0240 CWF 4 FMT3+28,32 LOAD PRINTER FORMATS IF PRINTER READY
02 69 0 0241 CWF 4 FMT4+28,42
02 70 0 0242 CWF 4 FMT5+28,52
02 71 0 0243 CWI 4 *+2,1
02 72 0 0244 BUN *+2
002 73 0 0245 CWF 4 FMT5+28,51 LOAD PUNCH FORMAT IF PUNCH IS READY
02 74 0 0246 LDR B
02 75 0 0247 BUN ZERO-2
02 78 0 0248 LOCN 700
02 80 0 0700 BCS *+3,4
02 81 0 0701 STP 4 9898,1642
02 82 0 0702 BUN 4 9898,IMAGE
02 83 0 0703 MRD 4 0900,T,7
02 84 0 0704 MRD 4 1600,T,0
02 85 0 0705 MRD 4 2600,T,0
02 86 0 0706 CLA 3200
02 87 0 0707 LBC *-1
02 88 0 0708 ADD - 3600
02 89 0 0709 ADD - 3601
02 90 0 0710 ADD - 3602
02 91 0 0711 ADD - 3603
02 92 0 0712 ADD - 3604
02 93 0 0713 ADD - 3605
02 94 0 0714 ADD - 3606
02 95 0 0715 ADD - 3607
02 96 0 0716 ADD - 3608
02 97 0 0717 ADD - 3609
02 98 0 0718 IBB *-10,10
02 99 0 0719 BOF *+1
03 00 0 0720 BZA A+ IF IT DOES NOT PRINT
03 01 0 0721 SPO CSERR,4 CHECK SUM ERROR
03 02 0 0722 F424 9669,0,9669
03 03 0 0723 MPB 4 T,2
03 04 0 0724 MPB 4 T,10
03 05 0 0725 MPB 4 T,10
03 06 0 0726 MPB 4 T,10
03 07 0 0727 MRD 4 400,T,10 TRY AGAIN
03 08 0 0728 MRD 4 1400,T,10
03 09 0 0729 MRD 4 2400,T,10
03 10 0 0730 MRD 4 3400,T,2
03 11 0 0731 BUN 707
03 14 0 0732 *A CWF 4 ERFRM+28,42
03 15 0 0733 LDB DUMBS
03 16 0 0734 IBB A+,9999
03 17 0 0735 LDB +SCRTB+117
03 18 0 0736 STP LIBRX
03 19 0 0737 BUN LIBRF
03 20 0 0738 *A CAD HALT1 SET THE X X UP IF AN ERROR
03 21 0 0739 BSA *+3,8 OCCURRED DURING COMPILATION
03 22 0 0740 LDR +525005250
03 23 0 0741 STR HALT
03 24 0 0742 LDB OP
03 25 0 0743 *A STB C+,04 TEST FOR OP STACK EMPTY
03 26 0 0744 IBB A+,9999 IT SHOULD BE
03 27 0 0745 STP WEMX
03 28 0 0746 BUN WEM
03 29 0 0747 CNST 30102030000 EXTRA LEFT PARENTHESIS
03 30 0 0748 LDB C+
03 31 0 0749 LDB - 0
03 32 0 0750 BUN A-
03 33 0 0751 *C HLT 0
003 36 0 0752 *A CAD BUF DUMP BUFFER IF SEGMENTATION WAS USED
03 37 0 0753 BFA A+,64,0 AND BUFFER IS NOT EMPTY
03 38 0 0754 CAD BUF+99
03 39 0 0755 ADD BUF+98
03 40 0 0756 BZA *+3
03 41 0 0757 STP WRITX
03 42 0 0758 BUN WRIT5
03 43 0 0759 CAD BUF INCREASE SEGMENT NUMBER
03 44 0 0760 CLL BUF
03 45 0 0761 STA BUF,64
03 46 0 0762 IFL BUF,64,1
03 47 0 0763 BUN C+
03 48 0 0764 *A LDR +9669009669 GENERATE BIG X X HALT
03 49 0 0765 STR INSTR
03 50 0 0766 STP WRITX
03 51 0 0767 BUN WRIT2
03 52 0 0768 LDR +1000600000 FOLLOWED BY A CARD READ
03 53 0 0769 STR INSTR IF NOT USING SEGMENTATION
03 54 0 0770 STP WRITX
03 55 0 0771 BUN WRIT2
03 58 0 0772 *C LDR $POOL$
03 59 0 0773 STR EXPLN
03 60 0 0774 *C LDB *+1
03 61 0 0775 CAD XZERO
03 62 0 0776 *A STA HOLD
03 63 0 0777 BFA B+,64,0
03 64 0 0778 SRA 4
03 65 0 0779 LDR - 1
03 66 0 0780 STP WRITX OUTPUT ALL CONSTANTS USED BY
03 67 0 0781 BUN WRIT3 OBJECT PROGRAM
03 68 0 0782 CAD HOLD
03 69 0 0783 *B BFA C+,04,0 XXXX 2R YYYY LINK R=0 FLOATING
03 70 0 0784 LDB HOLD XXXX+1 (CONSTANT) R=1 INTEGER
03 71 0 0785 CAD - 0 YYY IS THE ASIGNMENT
03 72 0 0786 BUN A- LINK=0 INDICATES END OF LIST
03 73 0 0787 *C LDB *+1
03 74 0 0788 CAD FZERO PROCESS FLOATING LIST
03 75 0 0789 STP B-
03 76 0 0790 BUN A-
03 79 0 0791 CLL EXPLN
03 80 0 0792 MLS 4 T
03 81 0 0793 MIB 4 *+2,T
03 82 0 0794 BUN *-1
03 83 0 0795 MRD 4 LBRT,T,3 READ LIBRARY TABLE
003 84 0 0796 DFL WRT10,11,9 CHANGE CONTROL SWITCH FOR EXTERNAL
03 85 0 0797 DFL FXUPY,11,9
03 86 0 0798 LDB EPSLN PROGRAMS
003 87 0 0799 STP EXTEX PROCESS EXTERNAL PROGRAMS IF EPSLN
03 88 0 0800 DBB EXTP,1 IS NON-ZERO
003 89 0 0801 DFL WRT10,11,2 CHANGE CONTROL SWITCH FOR LIBRARY
03 90 0 0802 DFL FXUPY,11,2
003 91 0 0803 CAD +545600 MODIFY ERROR MESSAGE FOR LIBRARY
003 92 0 0804 STA CNST9,06 TO READ UNDEFINED EQUIVALENCE LIBRARY
INCORRECT
03 96 0 0805 *F CLL TST
03 97 0 0806 CLB
03 98 0 0807 CAD LOCN
03 99 0 0808 STA LCHOD
04 00 0 0809 DBB *+1,9999-LBRT START AT LBRT+1
04 01 0 0810 *E STB I
04 02 0 0811 CAD - 0
004 03 0 0812 BSA A+,1
004 04 0 0813 BZA B+ END OF THIS PASS ON THE TABLE
004 05 0 0814 STA J,00
04 06 0 0815 DLB J,64,0
04 07 0 0816 CAD - 0
04 08 0 0817 BFA A+,11,3 IS THE ROUTINE ASSIGNED
04 09 0 0818 LDB I IF YES
04 10 0 0819 IFL - 0,12,10 MARK IT WITH A SIGN OF 1
04 11 0 0820 BUN C+
04 12 0 0821 *D DLB J,64,0
04 13 0 0822 CAD - 0
04 14 0 0823 BFA C+,11,4
04 15 0 0824 IFL TST,00,1 ASSIGN SUBROUTINE IF IT HAS NOT
004 16 0 0825 STP LIBRX ALREADY ASSIGNED, TST COUNTS NUMBER
004 17 0 0826 BUN LIBRF OF SUBROUTINES ASSIGNED ON THIS PASS
04 18 0 0827 *C LDB J THRU TABLE
04 19 0 0828 IBB A+,9999 SEQUENCE DOWN LIST OF REQUIRED
04 20 0 0829 CAD - 1 SUBROUTINES
04 21 0 0830 STA J
04 22 0 0831 BUN D-
04 23 0 0832 *A LDB I ADVANCE TO NEXT TABLE ENTRY
04 24 0 0833 IBB E-,1
004 25 0 0834 *B LDB TST IF 1 ADDITIONAL SUBROUTINE WAS ASSIGNED
004 26 0 0835 DBB F-,1 ANOTHER PASS THRU TABLE IS NECESSARY
04 29 0 0836 *E DEFN *
04 30 0 0836 *F DLB II,44,0
04 31 0 0837 CAD - LBRT
04 32 0 0838 BFA A+,00,0 END OF LIBRARY TABLE
004 33 0 0839 BSA B+,1 IF ENTRY WAS MARKED PROCESS THIS
04 34 0 0840 *C IFL II,44,1 ROUTINE
04 35 0 0841 BUN F-
04 36 0 0842 *B DLB - LBRT,64,0
004 37 0 0843 CAD - 0 GET OPERAND OF ROUTINE TO BE PROCESSED
004 38 0 0844 DLB *,44,0 POSITION TAPE TO BEGINNING OF ROUTINE
04 39 0 0845 MFS II,T
04 40 0 0846 STA LOCN,64 SETUP LOCATION COUNTER
04 41 0 0847 SLA 2
004 42 0 0848 STA MSK,44 AND MASK FOR RELOCATION OF INSTRUCTIONS
04 43 0 0849 SRA 6
04 44 0 0850 STA MSK,04
04 45 0 0851 CLL EQTAB-1 CLEAR EQUIVALENCE TABLE
04 46 0 0852 LDB +EQTAB
04 47 0 0853 RTF EQTAB-1,100
04 48 0 0854 CLL JJ
04 49 0 0855 IFL JJ,02,2
04 50 0 0856 MLS 4 T
04 51 0 0857 MIB 4 *+2,T
04 52 0 0858 BUN *-1
04 53 0 0859 MRD 4 BUFR,T,1
04 54 0 0860 CAD BUFR DID WE FIND THE RIGHT BLOCK
04 55 0 0861 CFA II
04 56 0 0862 BCE E+
04 57 0 0863 SPO SRERR,3
04 58 0 0864 F424 9669,0,9669
04 59 0 0865 BUN B-
04 60 0 0866 *G CLL JJ
04 61 0 0867 IFL JJ,02,2
04 62 0 0868 MLS 4 T
04 63 0 0869 MIB 4 *+2,T
04 64 0 0870 BUN *-1
04 65 0 0871 MRD 4 BUFR,T,1
04 66 0 0872 *E LDB *+1
04 67 0 0873 CLA 98
04 68 0 0874 ADD - BUFR+1
04 69 0 0875 DBB *-1,1 CHECK SUM
04 70 0 0876 BOF *+1
04 71 0 0877 BZA D+
04 72 0 0878 SPO CSERR,4
04 73 0 0879 F424 9669,0,9669
04 74 0 0880 MPB 4 T,1
04 75 0 0881 BUN G-
04 78 0 0882 *D LDB JJ
04 79 0 0883 CAD - BUFR-1
04 80 0 0884 STA INSTR
04 81 0 0885 STP LBSBX PROCESS INSTRUCTION IN BUFFER
04 82 0 0886 BUN LBSB
04 83 0 0887 BUN C- END OF LIBRARY PROCEDURE
04 84 0 0888 IFL JJ,02,1
04 85 0 0889 BOF G- END OF TAPE BLOCK
04 86 0 0890 BUN D-
04 89 0 0891 *A MIB 4 *+2,T
04 90 0 0892 BUN *-1
04 91 0 0893 MRW 4 T
04 92 0 0894 CLA EMIT AN END OF
004 93 0 0895 LSA 8 PROGRAM SIGNAL FOR LOADER
04 94 0 0896 STP FXUPX
04 95 0 0897 BUN FXUP
04 96 0 0898 CAD BUF+98
04 97 0 0899 BSA *+2,8
04 98 0 0900 BZA *+3
04 99 0 0901 STP WRITX DUMP BUFFER IF NOT EMPTY
05 00 0 0902 BUN WRIT5
05 01 0 0903 CAD +9999999999
05 02 0 0904 STA BUF OUTPUT A SENTINEL BLOCK
05 03 0 0905 STP WRITX
05 04 0 0906 BUN WRIT5
05 05 0 0907 MIB 4 *+2,OT
05 06 0 0908 BUN *-1
05 07 0 0909 MRW 4 OT
COMMENT
SEARCH FOR UNDEFINED LABELS AND EXTERNAL PROGRAMS
WORD= T LL SSSS LINK LL= LENGTH OF IDENTIFIER
T=2 FOR A NUMERIC LABLE
SSSS = V TR ASIGN 0000
SSSS+1= (FIRST FIVE CHARACTERS OF IDENTIFIER)
SSSS+2= (NEXT FIVE CHARACTERS)
WE ARE LOOKING FOR THE CASES
(T=9, ASIGN=0) OR (V=9, T=8,9, ASIGN=0)
05 20 0 0910 *E LDB Z+
05 21 0 0911 CAD - SCRTB GET HEAD OF STACK
05 22 0 0912 *D STA Y+
05 23 0 0913 DLB Y+,64,0
05 24 0 0914 IBB A+,9999 STACK HAS NO ENTRIES
05 25 0 0915 BOF *+1
05 26 0 0916 IFL Y+,12,90 SET OVERFLOW IF
05 27 0 0917 CAD - 1 OPERAND IS A NUMERIC LABEL
05 28 0 0918 BSA E+,8 EXTERNAL PROGRAM
05 29 0 0919 BFA B+,11,9 IS IT A LABEL
05 30 0 0920 *C LDB Y+ SEQUENCE DOWN STACK
05 31 0 0921 LDR +34353600
05 32 0 0922 STR CNST8,08
05 33 0 0923 CAD - 0
05 34 0 0924 DBB D-,1000 IF LINK IS LESS THAN 1000
05 35 0 0925 *A DFL Z+,02,1 SKIP TO NEXT STACK
05 36 0 0926 BRP E-
05 37 0 0927 BUN OUT END OF SCRAMBLE TABLE
05 38 0 0928 *B BFA *+2,64,0 HAS LABEL BEEN ASSIGNED
05 39 0 0929 BUN C-
05 40 0 0930 DFL Y+,22,11 SET REPEAT IF IDENTIFIER
05 41 0 0931 CAD - 2 IS LONGER THAN 5 CHARACTERS
05 42 0 0932 LDR - 3
5 43 0 0933 LSA 3
05 44 0 0934 BRP *+2
05 45 0 0935 CLR
05 46 0 0936 BOF NMBRL NUMERIC LABEL
05 47 0 0937 STA DICT+35
05 48 0 0938 STR DICT+36
05 49 0 0939 PRNT STP WEMX
05 50 0 0940 BUN WEM
05 51 0 0941 CNST8 CNST 33234353600 UNDIFENED LABEL (EXT PROGRAM) L
05 52 0 0942 BUN C-
05 53 0 0943 *E BOF *+1
05 54 0 0944 BFA *+3,11,8
05 55 0 0945 BFA B-+2,12,89
05 56 0 0946 BUN C-
05 57 0 0947 LDR +10123536
05 58 0 0948 STR CNST8,08
05 59 0 0949 BUN B-
05 62 0 0950 NMBRL LSA 0 CONVERT INTEGER
05 63 0 0951 SRT 10 TO ALFANUMERIC CODE
05 64 0 0952 *B SLT 1
05 65 0 0953 ADD +80
05 66 0 0954 BFA A+,11,8
05 67 0 0955 SLA 1
05 68 0 0956 BUN B-
05 69 0 0957 *A STA DICT+35
05 70 0 0958 IFL DICT+35,12,30
05 71 0 0959 CLA
05 72 0 0960 *B SLT 1
05 73 0 0961 ADD +80
05 74 0 0962 BFA A+,11,8
05 75 0 0963 SLA 1
05 76 0 0964 BUN B-
05 77 0 0965 *A STA DICT+36
05 78 0 0966 BUN PRNT
05 79 0 0967 *Y HLT 0 PRESENT OPERAND
05 80 0 0968 *Z HLT 99 STACK COUNT
05 83 0 0969 OUT CAD LCHOD
05 84 0 0970 CFA LCMAX,64
05 85 0 0971 BCH *+2
05 86 0 0972 CAD LCMAX
05 87 0 0973 SUB +10000
05 88 0 0974 SRT 8
05 89 0 0975 BOF *+1
05 90 0 0976 *B CLA 300
05 91 0 0977 *C ADD +8
05 92 0 0978 SLT 1
05 93 0 0979 SLA 1
05 94 0 0980 DFL B-,81,1
05 95 0 0981 BRP C-
05 96 0 0982 SLA 1
05 97 0 0983 STA DICT+35
05 98 0 0984 CAD VARB SET UP CONSTANTS
05 99 0 0985 ADD +1 IN ALFANUMERIC FORMAT
06 00 0 0986 BPA *+2
06 01 0 0987 CLA
06 02 0 0988 SRT 4
06 03 0 0989 *C CLA 3
6 04 0 0990 *B ADD +8
06 05 0 0991 SLT 1
06 06 0 0992 SLA 1
06 07 0 0993 DFL C-,01,1
06 08 0 0994 BRP B-
06 09 0 0995 SLA 1 IF NOT PCS(4)
06 10 0 0996 STA DICT+36 PRINT MESSAGES
06 11 0 0997 BCS A+,4
06 12 0 0998 CAD DICT+36
06 13 0 0999 CFA DICT+35,88
06 14 0 1000 BCH *+4
06 15 0 1001 STP WEMX
06 16 0 1002 BUN WEM
06 17 0 1003 CNST 36866707147
06 18 0 1004 STP WEMX
06 19 0 1005 BUN WEM+2
06 20 0 1006 CNST 34547495036 COMPILED PROGRAM ENDS AT XXXX
06 21 0 1007 STP WEMX
06 22 0 1008 BUN WEM+2
06 23 0 1009 CNST 34751535037 PROGRAM VARIABLES START AT XXXX
06 24 0 1010 *A LDB DUMBS
06 25 0 1011 DBB MONST,1 GO GENERATE SYMBOLIC DUMP
06 29 0 1012 LDBG CAD HALT
06 30 0 1013 BFA *+4,31,5
06 31 0 1014 STP 4 9898,0916
06 32 0 1015 BUN 4 9898,IFERR
06 33 0 1016 BUN *+4
06 34 0 1017 BCS *+3,4
06 35 0 1018 STP 4 9898,0916
006 36 0 1019 BUN 4 9898,ZERSS
06 38 0 1020 AGAIN DLB FIXUP,44,0 THE FIXUP STACK CONTAINS THE
06 39 0 1021 STP REMX FIX-UPS FOR CALLS OF EXTERNAL PROGRAMS
06 40 0 1022 BUN REM FROM WITHIN SEGMENTS
06 41 0 1023 XT001 BUN S+ STACK EMPTY
06 42 0 1024 LDR +POST A REWIND
06 43 0 1025 STR XT001,04 WILL BE NECESSARY
06 44 0 1026 STA HOLD
06 45 0 1027 DLB HOLD,64,0
06 46 0 1028 CAD - 0
06 47 0 1029 STA HOLD
06 48 0 1030 SRA 8
06 49 0 1031 SLA 4
06 50 0 1032 STA THROW
06 51 0 1033 CLB
06 52 0 1034 MTS MTS 4 THROW,OT SEARCH FOR PROPER SEGMENT
06 53 0 1035 MRD 4 100,OT,1
06 54 0 1036 CFA 100,00
06 55 0 1037 BCE RDT+1
06 56 0 1038 SPO SRERR,3
06 57 0 1039 F424 9669,0,9669
06 58 0 1040 BUN MTS TRY AGAIN
06 60 0 1041 RDT MRD 4 100,OT,1
06 61 0 1042 CLA 100
06 62 0 1043 LBC *-1
06 63 0 1044 *A ADD - 200
06 64 0 1045 ADD - 201
06 65 0 1046 ADD - 202
06 66 0 1047 ADD - 203
06 67 0 1048 ADD - 204
06 68 0 1049 IBB A-,5 CHECK SUM BLOCK
06 69 0 1050 BOF *+1
06 70 0 1051 BZA A+
06 71 0 1052 SPO CSERR,4
06 72 0 1053 F424 9669,0,9669
06 73 0 1054 BUN *-1
06 75 0 1055 *A CAD 101
06 76 0 1056 BSA B+,4 IN CASE IT IS NOT
06 77 0 1057 LDR +1 GET NEXT BLOCK
06 78 0 1058 STR A-,02
06 79 0 1059 BUN RDT
06 82 0 1060 *B STA T+ CAN THE FIX-UP BE
06 83 0 1061 SLA 4 IN THIS GROUP OF INSTRUCTIONS
06 84 0 1062 CFA HOLD,64
06 85 0 1063 BCL Y+ YES
06 86 0 1064 BCE Y+
06 87 0 1065 *W CAD T+ NO - TRY NEXT GROUP
06 88 0 1066 SRA 1
06 89 0 1067 STA *+1,42
06 90 0 1068 IFL A-,02,0
06 91 0 1069 IFL A-,02,1 GET NEXT RTF
06 92 0 1070 BUN A-
06 94 0 1071 *Y CAD T+
06 95 0 1072 SRA 7
06 96 0 1073 ADD T+
06 97 0 1074 SLA 4
06 98 0 1075 CFA HOLD,64 IS THE FIX-UP IN THIS GROUP
06 99 0 1076 BCH F+
07 00 0 1077 BUN W- NO
07 02 0 1078 *F MPB 4 OT,1
07 03 0 1079 CSU HOLD
07 04 0 1080 SRA 4
07 05 0 1081 EXT -1111
07 06 0 1082 ADL T+ DO ACTUAL FIX-UP IN
07 07 0 1083 CAD A- THE BUFFER
07 08 0 1084 LBC T+
07 09 0 1085 STA A+,04
07 10 0 1086 DBB *+1,9999
07 11 0 1087 LDR HOLD
07 12 0 1088 *A STR - 0,04
07 13 0 1089 CLA 100
07 14 0 1090 LBC *-1
07 15 0 1091 CLL 199
07 16 0 1092 *A SUB - 200
07 17 0 1093 SUB - 201
07 18 0 1094 SUB - 202
07 19 0 1095 SUB - 203
07 20 0 1096 SUB - 204
07 21 0 1097 IBB A-,5
07 22 0 1098 BOF *+1
07 23 0 1099 STA 199
07 24 0 1100 MOW 4 100,OT,1
07 25 0 1101 BUN AGAIN
07 26 0 1102 *T HLT 0
07 28 0 1103 POST MIB 4 *+2,OT
07 29 0 1104 BUN *-1
07 30 0 1105 MRW 4 OT
07 31 0 1106 *S CLB
07 32 0 1107 RTF SX,100
07 33 0 1108 RTF SX+100,100
07 34 0 1109 RTF SX+200,100
07 35 0 1110 MIB 4 *+2,OT
07 36 0 1111 BUN *-1
07 37 0 1112 MOW 4 0,OT,3
07 38 0 1113 CAD HALT
07 39 0 1114 BCS A+,4 IF NOT PCS(4)
07 40 0 1115 *B STA *+1 HALT WITH OK OR XX IN A
07 41 0 1116 HLT 0
07 42 0 1117 BUN LOADC
07 43 0 1118 *A BFA B-,31,2 IF PCS(4) HALT ONLY IF XX
07 44 0 1119 BUN LOADC
07 45 0 1120 II CNST 1000000 LIBRARY INDEX NUMBER
07 46 0 1121 JJ HLT 0 TEMP
07 47 0 1122 MSK HLT 0 RELOCATION MASK FOR INSTRUCTIONS
PROCESS EXTERNAL PROGRAMS
07 52 0 1123 EXTP CAD LOCN
07 53 0 1124 CFA LCMAX
07 54 0 1125 BCH *+2
07 55 0 1126 CAD LCMAX
07 56 0 1127 STA LOCN LOCN=MAX(LCMAX,LOCN)
07 57 0 1128 NAME CLL EQTAB-1
07 58 0 1129 LDB +EQTAB CLEAR EQUIVALENCE TABLE
07 59 0 1130 RTF EQTAB-1,100
07 60 0 1131 CLL LEVEL
007 61 0 1132 *Z STP READX READ NAME CARD OF EXTERNAL PROGRAM
07 62 0 1133 BUN READ
07 63 0 1134 CAD LOCN
07 64 0 1135 STA CRD-1
07 65 0 1136 CAD CRD
07 66 0 1137 BSA A+,2
07 67 0 1138 STP WEMX
07 68 0 1139 BUN WEM
07 69 0 1140 CNST 3060809000 MISSING NAME CARD
07 70 0 1141 BUN Z-
07 71 0 1142 *A BCS *+2,3
07 72 0 1143 BCS *+3,4
07 73 0 1144 STP 4 9898,1602
07 74 0 1145 BUN 4 9898,CRD
07 75 0 1146 *A STP SCANX
07 76 0 1147 BUN SCAN
07 77 0 1148 CAD SYMBL
07 78 0 1149 CFA $FINIS$,00
07 79 0 1150 BCU *+5
07 80 0 1151 CAD SYMBL+1
07 81 0 1152 CFA $H$,00
07 82 0 1153 EXTEX BCE *
07 83 0 1154 CAD SYMBL
07 84 0 1155 BSA B+,2 IS THIS A PREFIX
07 85 0 1156 SRT 10
07 86 0 1157 DIV +99
07 87 0 1158 STR LL0
07 88 0 1159 CAD LEVEL
07 89 0 1160 STP SRCHX SEARCH FOR SYMBOL
07 90 0 1161 BUN SRCH
07 91 0 1162 BUN Y+ COULD NOT FIND IT
07 92 0 1163 CAD L
07 93 0 1164 SLA 2
007 94 0 1165 STA EQTAB-1,44 PUT LOCATION OF OPERAND OF THE EXTERNAL
07 95 0 1166 CAD LOCN PROGRAM INTO EQTAB-1
07 96 0 1167 SRA 4
07 97 0 1168 STA EQTAB-1,04 ALSO THE ASSIGNMENT
07 98 0 1169 STA MSK,04
07 99 0 1170 SLA 6
08 00 0 1171 STA MSK,44 SET UP A MASK FOR RELOCATION
08 01 0 1172 DLB L,64,0 OF INSTRUCTIONS
08 02 0 1173 CAD - 0
08 03 0 1174 BFA C+,11,9 EXTERNAL STATEMENT
08 04 0 1175 BFA E+,11,8 EXTERNAL PROCEDURE
08 05 0 1176 *Y STP WEMX
08 06 0 1177 BUN WEM
08 07 0 1178 CNST 31047141500 EXTERNAL PROGRAM NOT DECLARED
08 08 0 1179 BUN A+
08 09 0 1180 *B SRT 10
08 10 0 1181 DIV +99
08 11 0 1182 STR LL0
08 12 0 1183 CLA
008 13 0 1184 STP SRCHX SEARCH FOR OPERAND OF PREFIX PROCEDURE
08 14 0 1185 BUN SRCH
08 15 0 1186 BUN F+
08 16 0 1187 DLB L,64,0
08 17 0 1188 CAD - 0
08 18 0 1189 BFA B+,11,8 DID WE GET A PROCEDURE
08 19 0 1190 *F STP WEMX
08 20 0 1191 BUN WEM
08 21 0 1192 CNST 31712141500 PREFIX PROCEDURE NOT DECLARED
08 22 0 1193 BUN A-
08 23 0 1194 *B STA LEVEL,02
08 24 0 1195 BUN A-
08 27 0 1196 *C DLB L,64,0
08 28 0 1197 CAD - 0
08 29 0 1198 STA HOLD
08 30 0 1199 SLA 2
08 31 0 1200 STA EQTAB-1,44
08 32 0 1201 STP REMX
08 33 0 1202 BUN REM
08 34 0 1203 HLT
08 35 0 1204 SLA 4
08 36 0 1205 STA HOLD,22
08 37 0 1206 CAD HOLD
08 38 0 1207 BFA S+,22,00
08 39 0 1208 EXT +1111110000
008 40 0 1209 SLA 4 IT WAS - SO ENTER INTO THE FIXUP STACK
08 41 0 1210 ADD LOCN
08 42 0 1211 SLA 6 LL XXXX YYYY
08 43 0 1212 STA HOLD
008 44 0 1213 LDB AVALE WHERE LL= SEGMENT NUMBER
008 45 0 1214 STP INSX XXXX= LOCATION TO BE FIXED UP
08 46 0 1215 BUN INS YYYY= FIX-UP
08 47 0 1216 CAD HOLD
08 48 0 1217 STA - 0
08 49 0 1218 STB HOLD
08 50 0 1219 CAD HOLD
08 51 0 1220 SLA 4
08 52 0 1221 DLB FIXUP,44,0
08 53 0 1222 STP INSX
08 54 0 1223 BUN INS
08 55 0 1224 BUN *+4
08 56 0 1225 *S LSA 0
08 57 0 1226 STP FXUPX GENERATE FIX-UP FOR EXTERNAL
08 58 0 1227 BUN FXUP STATEMENT
08 59 0 1228 DLB L,64,00
08 62 0 1229 *E STP REMX REMOVE NEXT FIX-UP FROM LIST OF
008 63 0 1230 BUN REM ALL CALLS OF THE DECLARED PROCEDURE
08 64 0 1231 BUN D+ LIST IS EXHAUSTED
08 65 0 1232 BSA T+,8
008 66 0 1233 BFA S+,22,0 IS FIX-UP FOR CALL WITHIN A SEGMENT
08 67 0 1234 EXT +1111110000
08 68 0 1235 SLA 4 IT WAS -- SO ENTER
08 69 0 1236 ADD LOCN LL XXXX YYYY
08 70 0 1237 SLA 6 WHERE LL= SEGMENT NUMBER
008 71 0 1238 STA HOLD XXXX= LOCATION TO BE FIXED UP
08 72 0 1239 LDB AVALE YYYY= FIX-UP
08 73 0 1240 STP INSX
08 74 0 1241 BUN INS
08 75 0 1242 CAD HOLD
08 76 0 1243 STA - 0
08 77 0 1244 STB HOLD
08 78 0 1245 CAD HOLD
08 79 0 1246 SLA 4
08 80 0 1247 DLB FIXUP,44,0
08 81 0 1248 STP INSX
08 82 0 1249 BUN INS
08 83 0 1250 DLB L,64,0
08 84 0 1251 BUN E-
08 85 0 1252 *S STP FXUPX GENERATE FIX-UP FOR EXTERNAL
08 86 0 1253 BUN FXUP PROCEDURE
08 87 0 1254 DLB L,64,0
08 88 0 1255 BUN E-
08 89 0 1256 *T STA HOLD
08 90 0 1257 DLB L,64,0
08 91 0 1258 STP REMX
08 92 0 1259 BUN REM
08 93 0 1260 HLT
08 94 0 1261 EXT +11110000
08 95 0 1262 LDR LOCN
08 96 0 1263 ADL LOCN
08 97 0 1264 CSA HOLD
08 98 0 1265 STR HOLD
08 99 0 1266 STP FXUPX
09 00 0 1267 BUN FXUP
09 01 0 1268 DLB L,64,0
09 02 0 1269 LDR HOLD
09 03 0 1270 STR LOCN
09 04 0 1271 BUN E-
09 05 0 1272 *D DLB L,64,0
09 06 0 1273 CAD - 0 SET SIGN TO 8 TO INDICATE
09 07 0 1274 LSA 0 THAT EXTERNAL PROGRAM HAS BEEN
09 08 0 1275 STA - 0 GIVEN AN ASSIGNMENT
009 09 0 1276 CAD LOCN GIVE ASSIGNMENT TO THE EXTERNAL PROGRAM
09 10 0 1277 STA - 0,64
09 11 0 1278 *A STP READX READ ANOTHER CARD
09 12 0 1279 BUN READ
09 13 0 1280 CLL LEVEL
09 14 0 1281 CAD CRD
09 15 0 1282 BSA NUMB,0 IS THIS AN EQUIVALENCE CARD
09 16 0 1283 BCS *+2,3
09 17 0 1284 BCS *+3,4
09 18 0 1285 STP 4 9898,1602
09 19 0 1286 BUN 4 9898,CRD
09 20 0 1287 *B STP SCANX IF YES SCAN FOR THE IDENTIFIER
09 21 0 1288 BUN SCAN
09 22 0 1289 CAD SYMBL
09 23 0 1290 BSA Z+,2 IS THE IDENTIFIER A PREFIX
09 24 0 1291 SRT 10 NO IT IS NOT
09 25 0 1292 DIV +99
09 26 0 1293 STR LL0
09 27 0 1294 CAD LEVEL
09 28 0 1295 STP SRCHX
09 29 0 1296 BUN SRCHP SEARCH FOR OPERAND
09 30 0 1297 BUN Y+ IT WAS NOT DEFINED
09 31 0 1298 STP LIBRX
09 32 0 1299 DLB L,64,0
09 33 0 1300 CAD - 0
09 34 0 1301 BSA *+2,8
09 35 0 1302 LSA 0
09 36 0 1303 SRA 4
09 37 0 1304 STA TEMP GET THE ASSIGNMENT OF THE
09 38 0 1305 STB TEMP,66 REFERENCED IDENTIFIER
09 39 0 1306 IFL TEMP,62,12
09 40 0 1307 BFA LIBRF,51,3 IF IT WAS AN UNASSIGNED LIBRARY
PROCEDURE- GIVE IT AN ASSIGNMENT
09 42 0 1308 CAD L
09 43 0 1309 SLA 2
009 44 0 1310 STA TEMP,44 ALSO SAVE THE SREF OF THE IDENTIFIER
09 45 0 1311 STP SCANX
09 46 0 1312 BUN SCAN
09 47 0 1313 LDB SYMBL GET EQUIVALENCE NUMBER
09 48 0 1314 DBB Y+,100 IS IT GREATED THEN 100
09 49 0 1315 CAD TEMP
09 50 0 1316 STA - EQTAB+100 PUT ENTRY INTO EQUIVALENCE TABLE
09 51 0 1317 BUN A-
09 52 0 1318 *Y STP WEMX
09 53 0 1319 BUN WEM
09 54 0 1320 CNST 31921090000 IMPROPER EQUIVALENCE CARD
09 55 0 1321 BUN A-
09 56 0 1322 *Z SRT 10
09 57 0 1323 DIV +99
09 58 0 1324 STR LL0
09 59 0 1325 CLA
09 60 0 1326 STP SRCHX GET OPERAND OF PREFIX PROCEDURE
09 61 0 1327 BUN SRCH
09 62 0 1328 BUN Y- IT WAS NOT THERE
09 63 0 1329 DLB L,64,0
09 64 0 1330 CAD - 0
09 65 0 1331 STA LEVEL,02 SET UP LEVEL FOR SEARCH OF PROCEDURE
009 66 0 1332 BFA B-,11,8
09 67 0 1333 BUN Y-
09 70 0 1334 NUMB DFL CRD+8,01,1 DECREASE WORD COUNT
09 71 0 1335 *A LDB CRD
09 72 0 1336 CAD - CRD+10
09 73 0 1337 STA INSTR GET INSTRUCTION
09 74 0 1338 STP LBSBX
09 75 0 1339 BUN LBSB GO DECODE INSTRUCTION
009 76 0 1340 BUN NAME ALL THROUGH WITH THIS EXTERNAL PROGRAM
09 77 0 1341 IFL CRD,04,1
09 78 0 1342 DFL CRD+8,01,1 DECREASE WORD COUNT
09 79 0 1343 BRP A-
09 80 0 1344 STP READX READ ANOTHER CARD
09 81 0 1345 BUN READ
09 82 0 1346 CAD CRD
09 83 0 1347 BSA NUMB,0 IS THIS A INSTRUCTION CARD
09 84 0 1348 STP WEMX IF NOT PRINT ERROR MESSAGE
09 85 0 1349 BUN WEM
09 86 0 1350 CNST 30624260000 MISSING FINISH PSEUDO-OP
09 89 0 1351 READ CLL CRD
09 90 0 1352 LDB +CRD+1
09 91 0 1353 RTF CRD,15 ZERO INPUT AREA
09 92 0 1354 CLL SCNCT SET SCAN TO COLUMN 2
09 93 0 1355 IFL SCNCT,04,2 AND
09 94 0 1356 STP 4 9999
09 95 0 1357 BUN 4 9999,CRD
09 96 0 1358 READX BUN *
09 99 0 1359 SCAN CLL K
010 00 0 1360 CLL SYMBL ZERO SYMBOL STORAGE AREA
010 01 0 1361 LDB +SYMBL+1
010 02 0 1362 RTF SYMBL,9
010 03 0 1363 *A DLB SCNCT,94,0
010 04 0 1364 CAD - CRD
010 05 0 1365 LDB SCNCT
010 06 0 1366 SLA - 0 GET A CHARACTER
010 07 0 1367 SRA 8 ADVANCE COLUMN COUNT
010 08 0 1368 IFL SCNCT,05,2
010 09 0 1369 STA CHAR
010 10 0 1370 BFA B+,02,00 IGNORE LEADING BLANKS
010 11 0 1371 BFA C+,02,24 INDICATES THAT A PREFIX FOLLOWS
010 12 0 1372 BFA N+,91,8 FIRST CHARACTER NUMERIC, DO NUMBER SCAN
010 13 0 1373 BFA R+,91,4 FIRST CHARACTER ALFA, BUILD IDENTIFIER
010 14 0 1374 BFA R+,91,5
010 15 0 1375 BFA R+,91,6
010 16 0 1376 BUN B+ IGNORE ALL OTHER CHARACTERS
010 17 0 1377 *C IFL SYMBL,12,20
010 18 0 1378 *B IBB A-,9840 DID WE FINISH THE CARD
010 19 0 1379 *D STP WEMX
010 20 0 1380 BUN WEM
010 21 0 1381 CNST 30628295809 MISSING FIELD ON SYMBOLIC CARD
010 22 0 1382 BUN SCNXX
010 25 0 1383 *R LBC K ENTER CHARACTER
010 26 0 1384 SLA - 8 INTO SYMBOL STORAGE AREA
010 27 0 1385 DLB K,94,0
010 28 0 1386 DBB *+4,10 TRUNCATE IDENTIFIER TO 50 CHARACTERS
010 29 0 1387 ADD - SYMBL+10
010 30 0 1388 STA - SYMBL+10,00
010 31 0 1389 IFL K,05,2
010 32 0 1390 DLB SCNCT,94,0
010 33 0 1391 CAD - CRD
010 34 0 1392 LDB SCNCT
010 35 0 1393 SLA - 0
010 36 0 1394 SRA 8 GET NEXT CHARACTER
010 37 0 1395 STA CHAR
010 38 0 1396 IFL SCNCT,05,2
010 39 0 1397 DBB D-,162 DID WE FINISH THE CAR(IF SO-ERROR)
010 40 0 1398 CFA +40,02 IS THE NEW CHARACTER
010 41 0 1399 BCH R- AN ALFANUMERIC
010 42 0 1400 BFA R-,02,14
010 43 0 1401 CAD SYMBL
010 44 0 1402 BSA SCNXX,0 TERMINATE IF OTHER CHARACTER IS FOUND
010 45 0 1403 CAD CHAR AND WE ARE NOT SCANING A PREFIX
010 46 0 1404 *E BFA SCNXX,02,04 TERMINATE A PREFIX SOON AS WE GET A )
010 47 0 1405 DLB SCNCT,94,0
010 48 0 1406 CAD - CRD
010 49 0 1407 LDB SCNCT
010 50 0 1408 SLA - 0
010 51 0 1409 SRA 8
010 52 0 1410 IFL SCNCT,05,02 CONTINUE LOOKING FOR A )
010 53 0 1411 IBB E-,9838
010 54 0 1412 BUN D- IF WE DO NOT FIND IT ERROR
010 57 0 1413 *N SRT 1
010 58 0 1414 CAD SYMBL
010 59 0 1415 SLT 1
010 60 0 1416 STA SYMBL NUMBER BUILDER
010 61 0 1417 DLB SCNCT,94,0
010 62 0 1418 CAD - CRD
010 63 0 1419 LDB SCNCT
010 64 0 1420 IFL SCNCT,04,2
010 65 0 1421 SLA - 0
010 66 0 1422 SRA 8
010 67 0 1423 BFA N-,91,8
010 68 0 1424 CAD NTAG SET LENGTH COUNT TO 10
010 69 0 1425 STA K AND MARK AS A NUMERIC LABEL
010 70 0 1426 SCNXX CAD K
010 71 0 1427 SLA 8
010 72 0 1428 STA D2D3 SET UP LENGTH
010 73 0 1429 SCANX BUN *
010 74 0 1430 NTAG CNST 20000000010
010 77 0 1431 SRCHP BFA A+,02,00 IF AN EQUIVALENCE CARD ENTRY IS
010 78 0 1432 BUN SRCH AT LEVEL ZERO AND HAS LENGTH
010 79 0 1433 *A LDR K LESS THAN 10 -- IT MAY BE
010 80 0 1434 CFR +10,03 IN THE LIST OF SPECIAL LIBRARY
010 81 0 1435 BCH SRCH SUBROUTINES
010 82 0 1436 LDB I
010 83 0 1437 CAD SYMBL
010 84 0 1438 *C CFA - EXLBT,00
010 85 0 1439 BCE B+
010 86 0 1440 DBB C-,2
010 87 0 1441 I CLA 24
010 88 0 1442 BUN SRCH IT IS NOT SO DO NORMAL SEARCH
010 89 0 1443 *B CAD - EXLBT+1 I FOUND IT
010 90 0 1444 STA L,64 SET UP L TO POINT TO THE OPERAND
010 91 0 1445 LDB SRCHX
010 92 0 1446 BUN - 1 INCREMENTED EXIT
PROCESSING SUBROUTINE FOR INSTRUCTINS
IN THE LIBRARY AND EXTERNAL PROGRAMS
010 97 0 1447 *A F4247 0,0,0
010 98 0 1448 LBSB NOP * NOP-BUN SWITCH (SEE WHY BELOW)
010 99 0 1449 CFA A-
011 00 0 1450 BCL Z+ INSTRUCTION IS ABSOLUTE
011 01 0 1451 BFA Y+,62,90 PARTIAL FIELD SCAN INSTRUCTION
011 02 0 1452 BFA Y+,62,91 PARTIAL FIELD SEARCH INSTRUCTION
011 03 0 1453 BSA A+,8 ADDRESS PROGRAM RELATIVE
011 04 0 1454 BSA A+,9 ADDRESS PROGRAM RELATIVE - B MOD
011 05 0 1455 BSA B+,7 CONTROL FIELD PROGRAM RELATIVE
011 06 0 1456 BSA C+,6 ADDRESS IDENTIFIER RELATIVE
011 07 0 1457 BSA D+,5 ADDRESS IDENTIFIER RELATIVE - B MOD
011 08 0 1458 LBSBX BFA *,62,99 EXIT IF FINISH PSEUDO-OP IS FOUND
011 09 0 1459 BFA E+,62,30 RETURN FOR AN EXTERNAL STATEMENT
011 10 0 1460 BFA F+,62,00 ADVANCE LOCATION COUNTER
011 11 0 1461 BFA G+,62,12 EQUIVALENCE DEFINITION FOR LIBRARY
011 12 0 1462 BFA X2+,62,01 NEXT INSTRUCTION IS A 11 DIGIT CONSTANT
011 13 0 1463 BFA X1+,62,02 MARKS NEXT INSTRUCTION AS I-O COMMAND
011 14 0 1464 BFA X3+,62,03
011 15 0 1465 BFA X4+,62,04 RELOCATE CONTROL FIELD OF NEXT INSTR
011 16 0 1466 STP WEMX
011 17 0 1467 BUN WEM
011 18 0 1468 CNST 31926000000 IMPROPER PSEUDO-OP
011 19 0 1469 BUN X+
011 22 0 1470 BIGCN DFL LBSB,62,29
011 23 0 1471 BUN Z+
011 26 0 1472 I1 CNST 41000600000 CARD READER CONSTANT
011 27 0 1473 O1 CNST 41000610000 CARD PUNCH CONSTANT
011 28 0 1474 O2 CNST 42000610000 PRINTER CONSTANT
011 29 0 1475 CHNG BFA I+,62,60
011 30 0 1476 BFA I+,62,62
011 31 0 1477 BFA I+,62,64
011 32 0 1478 LDR O1
011 33 0 1479 BFA *+4,11,1
011 34 0 1480 LDR O2
011 35 0 1481 BFA *+2,11,2
011 36 0 1482 BUN IOERR
011 37 0 1483 *S BFA *+4,62,61
011 38 0 1484 BFA S+,62,63
011 39 0 1485 BFA S+,62,65
011 40 0 1486 BUN IOERR
011 41 0 1487 *S STR INSTR,11
011 42 0 1488 CAD INSTR
011 43 0 1489 DFL LBSB,62,29
011 44 0 1490 BUN LBSB
011 45 0 1491 *I LDR I1
011 46 0 1492 BFA S-,11,1
011 47 0 1493 IOERR STP WEMX
011 48 0 1494 BUN WEM
011 49 0 1495 CNST 31960380000 IMPROPER CARDATRON INSTRUCTION
011 50 0 1496 LDR INSTR
011 51 0 1497 BUN S-
011 54 0 1498 *A DFL INSTR,12,80 ADJUST SIGN
011 55 0 1499 *L CAA MSK
011 56 0 1500 ADA INSTR RELOCATE ADDRESS FIELD
011 57 0 1501 BOF *+1
011 58 0 1502 STA INSTR,04
011 59 0 1503 BUN Z+
011 61 0 1504 *B DFL INSTR,12,70 ADJUST SIGN
011 62 0 1505 SUA MSK RELOCATE CONTROL FIELD
011 63 0 1506 STA INSTR,44
011 64 0 1507 BOF *+1
011 65 0 1508 BUN Z+
011 67 0 1509 *H HLT 0
011 68 0 1510 *C DFL INSTR,12,20 ADJUST SIGN
011 69 0 1511 *D DFL INSTR,12,40
011 70 0 1512 *K STA H-,82
011 71 0 1513 DLB H-,84,0 GET EQUIVALENCE TABLE ENTRY
011 72 0 1514 CAD - EQTAB
011 73 0 1515 BZA L+ IMPROPER ENTRY
011 74 0 1516 BSA J+,8 SIGN OF 9 MEANS FORWARD REFERENCE TO
011 75 0 1517 ADA INSTR AN EXTERNAL PROCEDURE
011 76 0 1518 *N SUB H- RELOCATE ADDRESS
011 77 0 1519 STA INSTR,04 FIELD RELATIVE TO
011 78 0 1520 DLB - EQTAB,44,0 THE EQUIVALENCE TABLE ENTRY
011 79 0 1521 STP EXPLX
011 80 0 1522 BUN EXPL
011 81 0 1523 BUN Z+
011 83 0 1524 *J DLB - EQTAB,44,0 INSERT 9 KK XXXX 0000 KK=INCREMENT
011 84 0 1525 STP EXPLX XXXX= LOCATION FIXED UP
011 85 0 1526 BUN EXPL
011 86 0 1527 CAD - 0
011 87 0 1528 BFA *+2,11,8
011 88 0 1529 LDB - 0
011 89 0 1530 STB H-
011 90 0 1531 CAA INSTR
011 91 0 1532 EXT +11
011 92 0 1533 ADA ADDIT
011 93 0 1534 CLL ADDIT
011 94 0 1535 SLA 4
011 95 0 1536 STP INSX
011 96 0 1537 BUN INS
011 97 0 1538 CAA LOCN
011 98 0 1539 LSA 8
011 99 0 1540 LDB H-
012 00 0 1541 CLL H-
012 01 0 1542 STP INSX
012 02 0 1543 BUN INS
012 03 0 1544 CAD INSTR
012 04 0 1545 CLL INSTR
012 05 0 1546 STA INSTR,67
012 06 0 1547 BUN Z+
012 08 0 1548 *Y DFL INSTR,62,40
012 09 0 1549 BSA Z+,4 SPECIAL CONVENTIONS FOR PARTIAL FIELD
012 10 0 1550 BSA Z+,5 SCAN AND SCEARCH(90,91 SPECIAL OPS)
012 11 0 1551 DFL INSTR,12,20 S=4,5 ADDRESS ABSOLUTE
012 12 0 1552 BSA K-,6 S=6,7 ADDRESS RELATIVE TO IDENTIFIER
012 13 0 1553 BSA K-,7 S=8,9 ADDRESS RELATIVE TO PROGRAM
012 14 0 1554 DFL INSTR,12,20
012 15 0 1555 BUN L-
012 17 0 1556 *F2 BUN BIGCN
012 18 0 1557 *X2 LDR F2- SET UP FOR AN 11 DIGIT
012 19 0 1558 STR LBSB WHICH FOLLOWS
012 20 0 1559 BUN X+
012 22 0 1560 *F1 BUN CHNG
012 23 0 1561 *X1 LDR F1- SET UP FOR THE CARDATRON
012 24 0 1562 STR LBSB INSTRUCTION WHICH FOLLOWS
012 25 0 1563 BUN X+
012 27 0 1564 *X3 LDR INSTR
012 28 0 1565 STR ADDIT,04
012 29 0 1566 BUN X+
012 30 0 1567 *X4 LDR MSK
012 31 0 1568 STR MADIT,44
012 32 0 1569 BUN X+
012 34 0 1570 *Z CAA INSTR
012 35 0 1571 ADA ADDIT
012 36 0 1572 CLL ADDIT
012 37 0 1573 STA INSTR,04
012 38 0 1574 CAA INSTR
012 39 0 1575 ADA MADIT
012 40 0 1576 STA INSTR,44
012 41 0 1577 CLL MADIT
012 42 0 1578 STP WRITX OUTPUT PROCESSED INSTRUCTION
012 43 0 1579 BUN WRIT2
012 44 0 1580 *X LDB LBSBX INCREMENTED EXIT
012 45 0 1581 BUN - 1 INDICATES NO FINISH PSEUDO-OP WAS HERE
012 47 0 1582 *E DLB EQTAB-1,44,0 RETURN PSEUDO-OP FOR EXTERNAL STATEMENT
012 48 0 1583 DBB *+1,9999
012 49 0 1584 STB INSTR,04
012 50 0 1585 BUN Z-
012 52 0 1586 *F CAA INSTR
012 53 0 1587 SLA 4
012 54 0 1588 ADA LOCN
012 55 0 1589 STA LOCN,64
012 56 0 1590 BUN X- LOCN=LOCN+NNNN
012 58 0 1591 *G DLB INSTR,44,0 EQUIVALENCE DEFINITION FOR LIBRARY
012 59 0 1592 LDR - 0 GET OPERAND FOR EQUIVALENCE DEFINITION
012 60 0 1593 LDB INSTR
012 61 0 1594 STA - EQTAB,66
012 62 0 1595 SRT 4 ENTER THE OPERAND INTO EQUIVALENCE
012 63 0 1596 STR - EQTAB,04 TABLE ALONG WITH ITS ASSIGNMENT
012 64 0 1597 BUN X-
012 65 0 1598 *L STP WEMX
012 66 0 1599 BUN WEM
012 67 0 1600 CNST9 CNST 33221000000 IMPROPER EQUIVALENCE LIBRARY INCORRECT
012 68 0 1601 BUN N-
012 71 0 1602 EXPL STB HOLD
012 72 0 1603 CAD HOLD
012 73 0 1604 SLA 4
012 74 0 1605 LDB +23
012 75 0 1606 *A CFA - EXLBT,64 OF THE THING REFERENCED
012 76 0 1607 BCE A+ BY USE OF AN EQUIVALENCE
012 77 0 1608 DBB A-,2
012 78 0 1609 LDB HOLD
012 79 0 1610 LDR - 1
012 80 0 1611 BFR *+2,11,0
012 81 0 1612 STR EXPLN
012 82 0 1613 EXPLX BUN *
012 83 0 1614 *A LDR - EXLBT-1
012 84 0 1615 STR EXPLN
012 85 0 1616 LDB HOLD
012 86 0 1617 BUN EXPLX
DICTIONARY OF WORDS FOR ERROR MESSAGES IN THE OVERLAY
012 91 0 1618 DICT CNST $EXTRA$ 01 EXTRA
012 92 0 1619 CNST $LEFT$ 02 LEFT
012 93 0 1620 CNST 35741594555 03 PARENTHESIS
012 94 0 1621 CNST 36348456249
012 95 0 1622 CNST $S$
012 96 0 1623 CNST 35449626249 06 MISSING
012 97 0 1624 CNST $NG$
012 98 0 1625 CNST $NAME$ 08 NAME
012 99 0 1626 CNST $CARD$ 09 CARD
013 00 0 1627 CNST 34567634559 10 EXTERNAL
013 01 0 1628 CNST $NAL$
013 02 0 1629 CNST 35759564345 12 PROCEDURE
013 03 0 1630 CNST $DURE$
013 04 0 1631 CNST $NOT$ 14 NOT
013 05 0 1632 CNST 34445435341 15 DECLARED
013 06 0 1633 CNST $RED$
013 07 0 1634 CNST 35759454649 17 PREFIX
013 08 0 1635 CNST $X$
013 09 0 1636 CNST 34954575956 19 IMPROPER
013 10 0 1637 CNST $PER$
013 11 0 1638 CNST 34558644965 21 EQUIVALENCE
013 12 0 1639 CNST 34153455543
013 13 0 1640 CNST $E$
013 14 0 1641 CNST 34649554962 24 FINISH
013 15 0 1642 CNST $H$
013 16 0 1643 CNST 35762456444 26 PSEUDO-OP
013 17 0 1644 CNST $O-OP$
013 18 0 1645 CNST $FIELD$ 28 FIELD
013 19 0 1646 CNST $ON$ 29 ON
013 20 0 1647 CNST 34845414445 30 HEADER
013 21 0 1648 CNST $R$
013 22 0 1649 CNST 36455444546 32 UNDEFINED
013 23 0 1650 CNST $INED$
013 24 0 1651 CNST $LABEL$ 34 LABEL
013 25 0 1652 CNST $-$ 35 -
013 26 0 1653 CNST $NAME$ 35 (STORAGE FOR PROGRAMMED MESSAGES)
013 27 0 1654 CNST $NAME$ 37 (STORAGE FOR PROGRAMMED MESSAGES)
013 28 0 1655 CNST 34955626359 38 INSTRUCTION
013 29 0 1656 CNST 36443634956
013 30 0 1657 CNST $N$
013 31 0 1658 CNST $,$ 41 ,
013 32 0 1659 CNST $TOTAL$ 42 TOTAL
013 33 0 1660 CNST $CHECK$ 43 CHECK
013 34 0 1661 CNST $SUM$ 44 SUM
013 35 0 1662 CNST 34356545749 45 COMPILED
013 36 0 1663 CNST $LED$
013 37 0 1664 CNST 35759564759 47 PROGRAM
013 38 0 1665 CNST $AM$
013 39 0 1666 CNST $ENDS$ 49 ENDS
013 40 0 1667 CNST $AT$ 50 AT
013 41 0 1668 CNST 36541594941 51 VARIABLES
013 42 0 1669 CNST $BLES$
013 43 0 1670 CNST $BEGIN$ 53 BEGIN
013 44 0 1671 CNST 35349425941 54 LIBRARY
013 45 0 1672 CNST $RY$
013 46 0 1673 CNST 34955435659 56 INCORRECT
013 47 0 1674 CNST $RECT$
013 48 0 1675 CNST 36268544256 58 SYMBOLIC
013 49 0 1676 CNST $LIC$
013 50 0 1677 CNST 34341594441 60 CARDATRON
013 51 0 1678 CNST $TRON$
013 52 0 1679 CNST 34356545749 62 COMPILER
013 53 0 1680 CNST $LER$
013 54 0 1681 CNST 34341574143 64 CAPACITY
013 55 0 1682 CNST $ITY$
013 56 0 1683 CNST 34567434545 66 EXCEEDED
013 57 0 1684 CNST $DED$
013 58 0 1685 CNST 35445545659 68 MEMORY
013 59 0 1686 CNST $Y$
013 60 0 1687 CNST $FOR$ 70 FOR
013 61 0 1688 CNST 35642514543 71 OBJECT
013 62 0 1689 CNST $T$
013 65 0 1690 LIBRF CAD - 0 PUT LIBRARY SUBROUTINE INTO TARGET
013 66 0 1691 LIBRX BFA LIBRX,11,4 PROGRAM IF IT HASNT BEEN PUT THERE
013 67 0 1692 SRA 4 ALREADY.
013 68 0 1693 EXT +1111
013 69 0 1694 SUB VARB
013 70 0 1695 STA VARB,04
013 71 0 1696 SLT 4
013 72 0 1697 STA - 0,64
013 73 0 1698 IFL - 0,64,1
013 74 0 1699 IFL - 0,11,1
013 75 0 1700 BUN LIBRF
013 78 0 1701 FXUP LDR LOCN COMPILE TO SET A PREV FRW REF TO PRES LOC
013 79 0 1702 STA DESCR
013 80 0 1703 SRT 4
013 81 0 1704 STR DESCR,04
013 82 0 1705 STA WRTF,04
013 83 0 1706 BSA *+2,7
013 84 0 1707 BUN *+2
013 85 0 1708 IFL DESCR,00,1 IF SIGN IS SEVEN, WE MEAN THE
013 86 0 1709 FXUPY BCS *+2,2
013 87 0 1710 BUN *+4
013 88 0 1711 BSA *+3,8
013 89 0 1712 STP 4 9898,0208
013 90 0 1713 BUN 4 9898,WRTF
013 91 0 1714 LDR DESCR PRESENT LOCATION PLUS 1
013 92 0 1715 LDB LRTF
013 93 0 1716 CAD WRTF
013 94 0 1717 CFA PREV,04
013 95 0 1718 BCH A+ IF WE CAN FIX UP THE INSTRUCTION WHILE
013 96 0 1719 CAD - BUF+1 IT SITS IN THE OUTPUT BUFFER, WE WILL
013 97 0 1720 BFA A+,04,0 DO IT DIRECTLY
013 98 0 1721 CFA WRTF,04
013 99 0 1722 BCH A+
014 00 0 1723 SUB WRTF
014 01 0 1724 SLA 6
014 02 0 1725 STA *+1,44
014 03 0 1726 DBB *+1,0
014 04 0 1727 STR - BUF+2,04
014 05 0 1728 BUN FXUPX
014 06 0 1729 *A DFL CNTRF,00,1 OTHERWISE WE PUT OUT A FIX UP
014 07 0 1730 LDB CNTRF CODE FOR THE LOADING ROUTINE
014 08 0 1731 STR - BUF+3
014 09 0 1732 BUN WRIT6
014 10 0 1733 FXUPX BUN FXUPX
014 14 0 1734 WRIT2 CAD LOCN WRITE SUBROUTINE - PUTS INSTRUCTION
014 15 0 1735 SRA 4 INTO OUTPUT BUFFER.
014 16 0 1736 IFL LOCN,64,1 WRIT2 ENTRY - PUT INSTRUCTION OUT FOR
014 17 0 1737 BOF *+1
014 18 0 1738 LDR INSTR LOCATION LOCN AND INCREMENT LOCN
014 19 0 1739 WRIT3 STA WRTF,04 WRIT3 ENTRY - LOCATION IS IN RA(04)
014 20 0 1740 SUB PREV AND INSTRUCTION IS IN REGISTER R
014 21 0 1741 LDB CNTRI
014 22 0 1742 BFA E+,04,0
014 23 0 1743 SUB XONE+1 DOES THIS LOCATION EQUAL THE PREVIOUS ONE
014 24 0 1744 BFA F+,04,0 (IF SO WE WILL ERASE THE PREVIOUS ONE)
014 25 0 1745 STB LRTF,04 OR IS IT ONE HIGHER
014 26 0 1746 CAD WRTF IF NOT,WE WILL PUT OUT A NEW RECORD TRANS
014 27 0 1747 STA - BUF+1
014 28 0 1748 IFL CNTRI,00,1
014 29 0 1749 *F LDB LRTF
014 30 0 1750 IFL - BUF+1,32,1 THE 32-FIELD CONTAINS THE NUMBER OF
014 31 0 1751 WRIT7 IFL CNTRI,00,1 SEQUENTIAL WORDS TO LOAD
014 32 0 1752 LDB CNTRI
014 33 0 1753 *E STR - BUF
014 34 0 1754 STR DESCR
014 35 0 1755 WRT10 BCS *+2,2
014 36 0 1756 BUN *+3
014 37 0 1757 STP 4 9898,0300
014 38 0 1758 BUN 4 9898,WRTF
014 39 0 1759 CLL EXPLN
014 40 0 1760 LDR WRTF
014 41 0 1761 STR PREV,04
014 42 0 1762 WRIT6 LDR CNTRI IS THE BUFFER FULL NOW
014 43 0 1763 CFR CNTRF
014 44 0 1764 BCL WRITX IF NOT,EXIT
014 45 0 1765 WRIT5 LBC NN IF SO, CALCULATE CHECK SUM
014 46 0 1766 *C CLA BUF+2
014 47 0 1767 SUB - BUF+99
014 48 0 1768 IBB *-1,1
014 49 0 1769 BOF *+1
014 50 0 1770 STA BUF+99
014 51 0 1771 MIB 4 *+2,OT
014 52 0 1772 BUN *-1
014 53 0 1773 MLS 4 OT
014 54 0 1774 MIB 4 *+2,OT
014 55 0 1775 BUN *-1
014 56 0 1776 MOW 4 BUF,OT,1 WRITE ONE BLOCK
014 57 0 1777 IFL BUF,00,1
014 58 0 1778 CLL CNTRI
014 59 0 1779 CLL CNTRF INITIALIZE FOR NEXT BLOCK
014 60 0 1780 IFL CNTRF,00,96
014 61 0 1781 WRIT4 CLL BUF+1
014 62 0 1782 LDB C-
014 63 0 1783 RTF BUF+1,98
014 64 0 1784 BUN FXUPX
014 65 0 1785 WRITX DEFN FXUPX
014 68 0 1785 SRCH ADD LL0
014 69 0 1786 EXT +11 LOOK FOR SYMBOL IN TABLE
014 70 0 1787 ADD +SCRTB
014 71 0 1788 STA L
014 72 0 1789 LDB L
014 73 0 1790 DBB C+,1
014 74 0 1791 *B LDB L
014 75 0 1792 IBB SRCHX,9999
014 76 0 1793 *C CAD - 1
014 77 0 1794 CFA D2D3,23 FIRST COMPARE LENGTHS
014 78 0 1795 STA L (AND WHETHER OR NOT A NUMERIC LABEL)
014 79 0 1796 SRA 4
014 80 0 1797 BCU B-
014 81 0 1798 STA TEMP
014 82 0 1799 IFL TEMP,63,9
014 83 0 1800 STA A+,04
014 84 0 1801 IFL A+,04,1
014 85 0 1802 DLB TEMP,54,1
014 86 0 1803 BRP A+
014 87 0 1804 LDB +9
014 88 0 1805 *A CAD - * IF LENGTHS AGREE, COMPARE THE SYMBOLS
014 89 0 1806 CFA - SYMBL,00
014 90 0 1807 BCU B-
014 91 0 1808 DBB A-,1
014 92 0 1809 IFL SRCHX,04,1 INCREMENTED EXIT
014 93 0 1810 DLB L,64,0 IF SYMBOL IS FOUND
014 94 0 1811 SRCHX BUN *
014 97 0 1812 WEM LDR +0525005250 WRITE ERROR MESSAGE
014 98 0 1813 STR HALT
014 99 0 1814 CLL MSG
015 00 0 1815 IFL MSG,12,20
015 01 0 1816 LDB C+
015 02 0 1817 RTF MSG,8 CLEAR MESSAGE BUFFER
015 03 0 1818 CLL TEMP
015 04 0 1819 *G LDB WEMX
015 05 0 1820 CAD - 0
015 06 0 1821 *E CLR 0000
015 07 0 1822 SRT 8
015 08 0 1823 BFA A+,00,00
015 09 0 1824 STA E-,04
015 10 0 1825 STR TEMP3
015 11 0 1826 *H IFL E-,04,1
015 12 0 1827 LDB E-
015 13 0 1828 LDR - DICT-2 GET DICTIONARY ENTRY
015 14 0 1829 *C CLA MSG+1
015 15 0 1830 LBC TEMP
015 16 0 1831 SLT 2 TRANSFER CHARACTERS
015 17 0 1832 BFA B+,00,00 ONE AT A TIME INTO
015 18 0 1833 SLA - 8 BUFFER AREA
015 19 0 1834 DLB TEMP,94,00
015 20 0 1835 LSA 0
015 21 0 1836 ADD - MSG
015 22 0 1837 STA - MSG,00
015 23 0 1838 IFL TEMP,05,02
015 24 0 1839 BUN C-
015 25 0 1840 *B BSA H-,3 PUT SPACE BETWEEN WORDS
015 26 0 1841 IFL TEMP,05,02
015 27 0 1842 CAD TEMP3
015 28 0 1843 BUN E-
015 29 0 1844 *A IFL WEMX,04,01
015 30 0 1845 STP 4 9898,0906
015 31 0 1846 BUN 4 9898,MSG
015 32 0 1847 WEMX BUN 0000 RETURN AND ATTEMPT TO CONTINUE
015 33 0 1848 MSG LOCN *+9
015 37 0 1857 LBRT LOCN *+300 LIBRARY TABLE
015 38 0 2157 L CNST 0 LAST OPERAND
015 39 0 2158 K CNST 0 RUNNING COUNT OF LENGTH FOR SYMBOL
015 40 0 2159 D2D3 HLT 0 STORAGE FOR LENGTH OF SYMBOL
015 41 0 2160 INSTR HLT 0 CURRENT INSTRUCTION
015 42 0 2161 LL0 HLT 0 STACK TO SEARCH AT LEVEL 0
015 43 0 2162 SCNCT HLT 0 COLUMN COUNT
015 44 0 2163 CHAR HLT 0 CURRENT CHARACTER BEING SCANED
015 45 0 2164 ZERSS HLT 2 0
015 46 0 2165 HLT 2 0
015 47 0 2166 HLT 2 0
015 48 0 2167 HLT 2 0
015 49 0 2168 HLT 2 0
015 50 0 2169 HLT 2 0
015 51 0 2170 HLT 2 0
015 52 0 2171 HLT 2 0
015 53 0 2172 HLT 2 0
015 54 0 2173 TEMP3 HLT 0 SHORT TERM STORAGE LOCATION
015 55 0 2174 TEMP HLT 0 DITTO
015 56 0 2175 EXLBT CNST $FIX$ TABLE FOR SPECIAL LIBRARY ROUTINES
015 57 0 2176 F244 0,SCRTB+106,0
015 58 0 2177 CNST $FLOAT$
015 59 0 2178 F244 0,SCRTB+108,0
015 60 0 2179 CNST $FX*FX$
015 61 0 2180 F244 0,SCRTB+102,0
015 62 0 2181 CNST $FX*FL$
015 63 0 2182 F244 0,SCRTB+103,0
015 64 0 2183 CNST $FL*FX$
015 65 0 2184 F244 0,SCRTB+104,0
015 66 0 2185 CNST $FL*FL$
015 67 0 2186 F244 0,SCRTB+105,0
015 68 0 2187 CNST $LABLE$
015 69 0 2188 F244 0,SCRTB-9,0
015 70 0 2189 CNST $MONIT$
015 71 0 2190 F244 0,SCRTB+110,0
015 72 0 2191 CNST $ERROR$
015 73 0 2192 F244 0,SCRTB+113,0
015 74 0 2193 CNST $TRACE$
015 75 0 2194 F244 0,SCRTB+114,0
015 76 0 2195 CNST $RITE$
015 77 0 2196 F244 0,SCRTB+116,0
015 78 0 2197 CNST $REED$
015 79 0 2198 F244 0,SCRTB+117,0
015 80 0 2199 FUNS F424 FUNS,0,0 ALL PURPOSE STACK
015 81 0 2200 CNST 20000000000
015 82 0 2201 CRD LOCN *+16 INPUT AREA
015 83 0 2217 HLT 2 0
015 84 0 2218 EQTAB LOCN *+100 EQUIVALENCE TABLE
015 85 0 2318 BUFR LOCN *+100 INPUT BUFFER FOR LIBRARY PROCEDURES
015 86 0 2418 IFERR CNST $-----ERROR(S) WERE FOUND-----$
015 87 0 2424 HLT 2 0
015 88 0 2425 HLT 2 0
015 89 0 2426 HLT 2 0
015 90 0 2427 SYMBL CNST 0,0,0,0,0,0,0,0,0,0 SYMBOL STORAGE AREA
015 91 0 2437 LEVEL HLT 0 LEVEL FOR SEARCHING
015 94 0 2438 INS STB A+,04
015 95 0 2439 AVALE LDR AVAIL INSERT RA(67) INTO ASSOCIATIVE MEMORY
015 96 0 2440 BFR B+,04,00
015 97 0 2441 *C LDR - 0
015 98 0 2442 LDB AVAIL NORMALLY THIS MEANS ON TOP OF THE
015 99 0 2443 STA - 0,67 STACK NAMED BY THE B REGISTER
016 00 0 2444 CAD - 0
016 01 0 2445 STR - 0,04
016 02 0 2446 *A STB *,04
016 03 0 2447 STA AVAIL,04
016 04 0 2448 INSX BUN *
016 05 0 2449 *B LDR MAMAX IF AVAIL STACK IS EMPTY, TRY TO
016 06 0 2450 CFR SSC,04 INCREASE THE SIZE OF
016 07 0 2451 STR AVAIL,04 ASSOCIATIVE MEMORY
016 08 0 2452 STR D+,04
016 09 0 2453 DFL MAMAX,00,1
016 10 0 2454 *D CLL *
016 11 0 2455 BCH C-
016 12 0 2456 FULL STP WEMX IF NO ROOM IS LEFT, GIVE UP
016 13 0 2457 BUN WEM
016 14 0 2458 CNST 36264660000 COMPILER CAPACITY EXCEEDED
016 15 0 2459 F424 6200,00,7777
016 18 0 2460 REM STB A+,04 REMOVE INFORMATION FROM
016 19 0 2461 LDB - 0 ASSOCIATIVE MEMORY LOCATION IN
016 20 0 2462 CAD - 0 THE STACK NAMED IN RB
016 21 0 2463 REMX IBB *,9999 IF THE STACK IS EMPTY, EXIT
016 22 0 2464 IBB *+1,1
016 23 0 2465 LDR AVAIL OTHERWISE MARK LOCATION AVAILABLE
016 24 0 2466 STB AVAIL,04 FOR FUTURE USE
016 25 0 2467 STR - 0,04
016 26 0 2468 *A STA *,04 INCREMENTED EXIT WITH THE REMOVED
016 27 0 2469 LDB REMX QUANTITY IN RA
016 28 0 2470 BUN - 1
THE SYMBOLIC MEMORY DUMP GENERATOR
016 32 0 2471 KOUNT HLT 0 STACK COUNTER
016 33 0 2472 COUT HLT 0 PRESENT LEVEL COUNTER
016 34 0 2473 *T NOP SCRTB LINK TO NEXT ITEM
016 35 0 2474 MONST LDB +TBL+1
016 36 0 2475 RTF TBL,100 SET UP HEADS FOR 301 STACKS
016 37 0 2476 RTF TBL+100,100
016 38 0 2477 RTF TBL+200,100
016 39 0 2478 CAD SCRTB+113
016 40 0 2479 SRA 4
016 41 0 2480 BFA J+,51,3
016 42 0 2481 STA ASSGZ,04 FIX DUMP SO IT CAN FIND
016 43 0 2482 IFL ASSGZ,04,44
016 44 0 2483 DFL ASSGZ,12,80
016 45 0 2484 CAD SCRTB+117
016 46 0 2485 SRA 4
016 47 0 2486 STA Z1+,04
016 48 0 2487 STA Z2+,04
016 49 0 2488 STA Z3+,04
016 50 0 2489 STA Z4+,04
016 51 0 2490 STA Z5+,04
016 52 0 2491 STA Z6+,04
016 53 0 2492 STA Z7+,04
016 54 0 2493 STA Z8+,04
016 55 0 2494 STA Z9+,04
016 56 0 2495 STA Z10+,04
016 57 0 2496 STA Z11+,04
016 58 0 2497 STA Z12+,04
016 59 0 2498 STA Z13+,04
016 60 0 2499 STA Z14+,04
016 61 0 2500 STA Z15+,04
016 62 0 2501 STA Z16+,04
016 63 0 2502 STA Z17+,04
016 64 0 2503 STA Z18+,04
016 65 0 2504 STA Z19+,04
016 66 0 2505 STA Z20+,04
016 67 0 2506 STA Z21+,04
016 68 0 2507 STA Z22+,04
016 69 0 2508 STA Z23+,04
016 70 0 2509 STA Z24+,04
016 71 0 2510 STA Z25+,04
016 72 0 2511 STA Z26+,04
016 73 0 2512 *J NOP SCRTB LAST ENTRY FROM SCRAMBLE TABLE
016 74 0 2513 LDR KOUNT
016 75 0 2514 STR COUT
016 76 0 2515 CFR +100,00
016 77 0 2516 BCE END1 IF EQUAL ALL STACKS IN SCRAMBLE TABLE
016 78 0 2517 LDB J- HAVE BEEN PROCESSED
016 79 0 2518 CAD - 0 GET NEXT ENTRY FROM SCRTB
016 80 0 2519 LDB - 0
016 81 0 2520 STB J-,04 SAVE LINK TO NEXT ENTRY
016 82 0 2521 DBB A+,2000 IF LINK IS LESS THAN 2000 END STACK NOW
016 83 0 2522 IFL KOUNT,00,1 INCREASE STACK COUNT
016 84 0 2523 IFL T-,04,1
016 85 0 2524 LDR T-
016 86 0 2525 STR J-,04 SET UP FOR NEXT STACK
016 87 0 2526 IBB J-,2000 IF LINK WAS NON-ZERO START NEW STACK
016 88 0 2527 BZA J- SKIP TO NEXT STACK IF ZERO
016 89 0 2528 *A SRA 4 GET SREF IN 04 FIELD
016 90 0 2529 CFA +2000,04
016 91 0 2530 BCL J- IF SREF IS LESS THAN 2000 GET NEXT ONE
016 92 0 2531 STA SREF,04
016 93 0 2532 SRT 4
016 94 0 2533 LSA 0
016 95 0 2534 ADD +8
016 96 0 2535 SRA 1
016 97 0 2536 STA SL SAVE SYMBOL LENGTH
016 98 0 2537 SLT 19
016 99 0 2538 BPA *+2
017 00 0 2539 FDV * SET OVERFLOW IF A NUMERIC LABEL
017 01 0 2540 LDB SREF
017 02 0 2541 LDR - 1 GET ACTUAL SYMBOL
017 03 0 2542 CLA
017 04 0 2543 DIV +99 SCRAMBLE IT
017 05 0 2544 SLT 10
017 06 0 2545 SUB COUT COMPUTE LEVEL
017 07 0 2546 STA LEVEL,00
017 08 0 2547 CAD - 0
017 09 0 2548 BSA J-,1 SKIP
017 10 0 2549 BSA J-,3 CALL
017 11 0 2550 BSA J-,5 BY NAME
017 12 0 2551 BSA J-,7 THINGS
017 13 0 2552 BSA J-,9 AND INPUT,OUTPUT,FORMAT LABELS
017 14 0 2553 BSA J-,8 AND EXTERNAL PROGRAMS
017 15 0 2554 BFA B+,11,1 SIMPLE VARIABLES(FIRST 100 STACKS)
017 16 0 2555 IFL LEVEL,81,1
017 17 0 2556 BFA B+,11,5 ARRAYS(NEXT 100)
017 18 0 2557 IFL LEVEL,81,1
017 19 0 2558 BFA A+,11,9 LABELS(NEXT 100)
017 20 0 2559 IFL LEVEL,81,1
017 21 0 2560 BFA B+,11,8 PROCEDURES(ONLY ONE STACK)
017 22 0 2561 BUN J- GET NEXT ITEM IF IT IS NONE OF ABOVE
017 25 0 2562 *A CFA +2000000,64
017 26 0 2563 BCL J- SKIP SEGMENT NAMES
017 27 0 2564 *B STB VL,33 VECTOR LENGTH
017 28 0 2565 IFL VL,32,04 FOUR IS NORMAL(ARRAYS REQUIRE 6)
017 29 0 2566 STA VECTR+3 SAVE OPERAND
017 30 0 2567 CAA - 1
017 31 0 2568 LDR - 2 GET SYMBOL
017 32 0 2569 LDB SL
017 33 0 2570 DBB *+2,2
017 34 0 2571 CLR SYMBOL LENGTH LEQ 5 CHARACTERS
017 35 0 2572 BOF NUMLB NUMERIC LABEL
017 36 0 2573 STA VECTR+1
017 37 0 2574 STR VECTR+2 SAVE FIRST 10 CHARACTERS OF SYMBOL
017 40 0 2575 RETRN LDR VECTR+3
017 41 0 2576 CLA
017 42 0 2577 BFR P+,11,1
017 43 0 2578 BFR P+,11,9
017 44 0 2579 BFR *+3,11,5
017 45 0 2580 STA VECTR+3,89 PROCEDURE 02 FIELD IS LEVEL
017 46 0 2581 BUN P+
017 47 0 2582 LDB VECTR+3
017 48 0 2583 IFL VL,32,2 NEED TWO MORE FOR ARRAYS
017 49 0 2584 LDR - 0
017 50 0 2585 STR HOLD SAVE LINK
017 51 0 2586 SRT 4
017 52 0 2587 CAD VECTR+3
017 53 0 2588 CLL VECTR+3
017 54 0 2589 CLL VECTR+4
017 55 0 2590 CLL VECTR+5
017 56 0 2591 STR VECTR+3,04 LENGTH
017 57 0 2592 STA VECTR+5,67 SAVE OPERAND OF ARRAY
017 58 0 2593 CLL DIM
017 59 0 2594 LDB HOLD
017 60 0 2595 IBB C+,9999 LINK ZERO INDICATES WE HAVE LINEAR
017 61 0 2596 BUN D+ ARRAY
017 62 0 2597 *A LDB HOLD END OF DIMENSION LIST OF CONSTANTS
017 63 0 2598 IBB A+,9999 IF LINK IS ZERO
017 64 0 2599 *D LDR - 1
017 65 0 2600 DLB - 1,64,0
017 66 0 2601 STR HOLD SAVE OPERAND OF CONSTANT
017 67 0 2602 CAD - 1
017 68 0 2603 LDB DIM
017 69 0 2604 STA - DIMS PUT CONSTANT INTO DIMENSION LIST
017 70 0 2605 IFL DIM,00,1 INCREASE DIMENSION COUNT
017 71 0 2606 BUN A-
017 72 0 2607 *A LDR DIMS
017 73 0 2608 STR VECTR+4 SAVE LENGTH OF A ROW
017 74 0 2609 *B LDB DIM
017 75 0 2610 CAD - DIMS-1
017 76 0 2611 ADD +1
017 77 0 2612 MUL - DIMS-2 CALCULATE ADDRESS OF FIRST
017 78 0 2613 STR - DIMS-2 ELEMENT OF THE ARRAY
017 79 0 2614 DFL DIM,00,1
017 80 0 2615 DBB B-,3
017 81 0 2616 CAA DIMS
017 82 0 2617 ADD +1
017 83 0 2618 SLA 4
017 84 0 2619 ADA VECTR+5
017 85 0 2620 *F STA VECTR+5,64 STORE ACTUAL ADDRESS
017 86 0 2621 BUN P+
017 87 0 2622 *C LDR VECTR+3 LINEAR ARRAY
017 88 0 2623 STR VECTR+4 LENGTH OF ROW IS LENGTH OF ARRAY
017 89 0 2624 CAD VECTR+5
017 90 0 2625 ADD +10000 ACTUAL ADDRESS IS ONLY 1 GREATER
017 91 0 2626 BUN F-
017 94 0 2627 *P CAD +TBL
017 95 0 2628 ADD LEVEL
017 96 0 2629 STA LEVEL SET UP SEARCH OF PROPER STACK
017 97 0 2630 STA THROW (NOTICE EVERY STACK IS INITIALIZED
017 98 0 2631 TLU LDB LEVEL WITH THE SYMBOL 9999999999)
017 99 0 2632 CAD - 0
018 00 0 2633 STA HOLD SAVE LINK TO NEXT ITEM
018 01 0 2634 DLB HOLD,64,0
018 02 0 2635 LDR VECTR+1
018 03 0 2636 CFR - 0,00 COMPARE FIRST FIVE CHARACTERS
018 04 0 2637 BCL YES YES, INSERT IT
018 05 0 2638 BCE MAYBE COMPARISON ON NEXT 5 NEEDED
018 06 0 2639 *C LDR LEVEL
018 07 0 2640 STR THROW LAST OPERAND USED LINKS TO
018 08 0 2641 LDR HOLD THE OPERAND TO BE USED
018 09 0 2642 STR LEVEL
018 10 0 2643 BUN TLU
018 13 0 2644 YES LDR LEVEL
018 14 0 2645 CFR THROW IF THEY ARE EQUAL THEN THE SPECIAL
018 15 0 2646 BCE EH CASE WHERE THE HEAD OF THE STACK
018 16 0 2647 CAD LEVEL IS CHANGED
018 17 0 2648 STA VECTR,04
018 18 0 2649 STP GETX GET NEXT FREE CELLS
018 19 0 2650 BUN GET
018 20 0 2651 LDB THROW
018 21 0 2652 STA - 0,04 INSERT NEW OPERAND WITH
018 22 0 2653 ADD +1 ITS NICE INFORMATIN INTO STACK
018 23 0 2654 SLA 4
018 24 0 2655 STA VECTR,64
018 25 0 2656 LDB MEM
018 26 0 2657 VL RTF VECTR,4 ENTER THE VECTOR INTO THE STACK
018 27 0 2658 STB MEM
018 28 0 2659 BUN J-
018 29 0 2660 EH STP GETX GET NEXT FREE CELLS
018 30 0 2661 BUN GET
018 31 0 2662 ADD +1
018 32 0 2663 SLA 4
018 33 0 2664 ADD MEM
018 34 0 2665 LDB THROW DO AN INSERT FOR THIS SPECIAL CASE
018 35 0 2666 LDR - 0
018 36 0 2667 STA - 0
018 37 0 2668 STR VECTR
018 38 0 2669 BUN VL-1
018 41 0 2670 MAYBE LDR VECTR+2 COMPARE WITH
018 42 0 2671 CFR - 1,00 NEXT FIVE CHARACTERS
018 43 0 2672 BCH C-
018 44 0 2673 BUN YES
018 47 0 2674 NUMLB BZA A+ CONVERT NUMERIC LABELS
018 48 0 2675 SRT 10 TO ALFANUMERIC FORM
018 49 0 2676 CLL VECTR+1 WITH LEADING ZEROES
018 50 0 2677 BFR B+,55,0 SUPPRESSED
018 51 0 2678 STP SUPX
018 52 0 2679 BUN SUP
018 53 0 2680 STA VECTR+1
018 54 0 2681 STP NSUPX
018 55 0 2682 BUN NSUP
018 56 0 2683 STA VECTR+2
018 57 0 2684 BUN RETRN
018 58 0 2685 *B SLT 5
018 59 0 2686 STP SUPX
018 60 0 2687 BUN SUP
018 61 0 2688 STA VECTR+2
018 62 0 2689 BUN RETRN
018 63 0 2690 *A LDR +80
018 64 0 2691 BUN RETRN-2
018 67 0 2692 SUP SLT 1 CONVERT A 5 DIGIT NUMERIC
018 68 0 2693 BZA *+2 TO ALFA WITH SUPPRESSION
018 69 0 2694 ADD +80 OF LEADING ZEROES
018 70 0 2695 IFL *-1,11,2
018 71 0 2696 SUPX BOF *
018 72 0 2697 SLA 1
018 73 0 2698 BUN SUP
018 76 0 2699 NSUP SLT 1 CONVERT A 5 DIGIT NUMERIC
018 77 0 2700 ADD +80 TO ALFA - DO NOT SUPPRESS
018 78 0 2701 NSUPX BFA *,11,8 LEADING ZEROES
018 79 0 2702 SLA 1
018 80 0 2703 BUN NSUP
018 83 0 2704 END1 MLS 4 OT+10 MEMORY DUMP GOES ON ODD LANE
018 84 0 2705 MPF 4 OT,4
018 85 0 2706 *A LDB +DUMBS
018 86 0 2707 STP REMX ENTRY IN DUMP STACK IS N NNNN LL LINK
018 87 0 2708 BUN REM WHERE NNNN= NUMBER OF ITEMS IN LIST
018 88 0 2709 BUN ACTUA LL= LEVEL NUMBER FOR THE
018 89 0 2710 LDB +SBMUD PROCEDURE WHICH CONTAINS
018 90 0 2711 STP INSX THE DUMP LIST
018 91 0 2712 BUN INS
018 92 0 2713 BUN A- INVERT STACK OF NECESSARY DUMPS
018 93 0 2714 ACTUA LDB +SBMUD
018 94 0 2715 STP REMX
018 95 0 2716 BUN REM
018 96 0 2717 BUN FIN END OF DUMPS
018 97 0 2718 CLL IDEX
018 98 0 2719 STA HOLD SAVE DUMP ENTRY
018 99 0 2720 BFA C+,62,0 IF ZERO - DUMP FOR PROGRAM
019 00 0 2721 SRA 4 IF NON-ZERO
019 01 0 2722 STA IDEX,02 SAVE LEVEL AND GET ASSOCIATED
019 02 0 2723 CAD TBL+300 PROCEDURE NAME
019 03 0 2724 *B STA DIM
019 04 0 2725 DLB DIM,64,0
019 05 0 2726 CAD - 2
019 06 0 2727 CFA IDEX,02
019 07 0 2728 BCE A+ PROCEDURE NAME FOUND
019 08 0 2729 LDB DIM GET NEXT ITEM FROM PROCEDURE STACK
019 09 0 2730 CAD - 0
019 10 0 2731 BUN B-
019 11 0 2732 *A CAD - 0
019 12 0 2733 LDR - 1
019 13 0 2734 STA J++4,00
019 14 0 2735 STR J++5,00
019 15 0 2736 LDR +EN
019 16 0 2737 STR EM,04
019 17 0 2738 MOW 4 Q+,OT,3
019 18 0 2739 *C STB PRSW1,62
019 19 0 2740 STB PRSW2,62
019 20 0 2741 CAD HOLD
019 21 0 2742 BFA *+3,45,0 IF THE DUMP LIST WAS NULL
019 22 0 2743 IFL PRSW1,62,29 SET SOME SWITCHES SO THAT
019 23 0 2744 IFL PRSW2,62,29 EVERY TABLE ITEM OUTPUT TO TAPE
019 24 0 2745 IFL PRSW1,62,1 WILL HAVE A SIGN OF 4
019 25 0 2746 IFL PRSW2,62,1
019 26 0 2747 DLB SCRTB+114,64,0
019 27 0 2748 STB TRCE,04
019 28 0 2749 BUN END15
019 31 0 2750 LOD3 DEFN *
019 32 0 2750 *Q BCS V+-LOD3+100,9
019 33 0 2751 *Z1 STP *,2438
019 34 0 2752 *Z2 BUN *,J+-LOD3+100
019 35 0 2753 *V NOP LOD1-100
019 36 0 2754 NOP 1
019 37 0 2755 LDB *-1-LOD3+100
019 38 0 2756 RTF *+2-LOD3+100,3
019 39 0 2757 BUN 1
019 40 0 2758 LBC V--LOD3+100
019 41 0 2759 MRD 4 100,OT,3,BMOD
019 42 0 2760 BUN 100
019 43 0 2761 *J CNST $ PROCEDURE
019 44 0 2771
019 45 0 2782 $
019 46 0 2785 LOCN *+10
019 49 0 2795 END15 MOW 4 Q+,OT,3
019 50 0 2796 LDB IDEX DUMP
019 51 0 2797 CAD - TBL+200
019 52 0 2798 *C STA HOLD
019 53 0 2799 LDB HOLD
019 54 0 2800 IBB END2,9999 END OF THIS LABEL STACK
019 55 0 2801 DLB HOLD,64,0
019 56 0 2802 CAD - 2 GET OPERAND OF THE LABEL
019 57 0 2803 STB STOX1,62
019 58 0 2804 BPA PRSW1 SIGN OF 0 MEANS NOT BEING DUMPED
019 59 0 2805 IFL STOX1,62,1
019 60 0 2806 BUN B+
019 61 0 2807 PRSW1 BUN D+ DUMP HAD A NULL LIST
019 62 0 2808 IFL STOX1,62,1 SET UP TO MARK ITEM WITH A SIGN OF 4
019 63 0 2809 BUN B+
019 64 0 2810 *D IFL STOX1,62,30 DO NOT MARK FOR DUMPING
019 65 0 2811 *B CAD - 0
019 66 0 2812 STP STOXX
019 67 0 2813 BUN STOX1
019 68 0 2814 CAD - 1
019 69 0 2815 STP STOXX ENTER ITEM INTO OUTPUT BUFFER
019 70 0 2816 BUN STOX1
019 71 0 2817 CAD - 2
019 72 0 2818 STP STOXX
019 73 0 2819 BUN STOX1
019 74 0 2820 LDB HOLD
019 75 0 2821 CAD - 0
019 76 0 2822 BUN C-
019 79 0 2823 END2 LSA 9 OUTPUT END FLAG
019 80 0 2824 STP STOXX
019 81 0 2825 BUN STOX
019 82 0 2826 IFL *-1,11,5
019 83 0 2827 BOF END3
019 84 0 2828 LDB IDEX
019 85 0 2829 CAD - TBL
019 86 0 2830 BUN C- PROCESS SIMPLE VARIABLES
019 91 0 2831 STOX1 BUN STOX
019 92 0 2832 LSA 4 MARK ITEM FOR DUMPING
019 93 0 2833 STOX STA 0 ENTER ITEM INTO BUFFER
019 94 0 2834 IFL STOX,02,1
019 95 0 2835 BOF *+2
019 96 0 2836 STOXX BUN * EXIT LINE
019 97 0 2837 MOW 4 0,OT,1 BUFFER FULL
019 98 0 2838 BUN STOXX
020 00 0 2839 LOD1 DEFN * THIS PROGRAM IS RELOCATED TO
020 01 0 2839 *Q NOP 8 J++1 LOCATION 0100 AT OBJECT TIME
020 02 0 2840 *R CLB 8 I+ AND CUASES THE PRINTING OF
020 03 0 2841 BUN 8 *+3 THE FOLLOWING LIST
020 04 0 2842 *A LDB 8 B+
020 05 0 2843 IBB 8 C+,1
020 06 0 2844 MRD 4 0,OT,1
020 07 0 2845 DBB 8 *+1,100 LAST LABEL PASSED WAS L(N)
020 08 0 2846 *C CAD - 100
020 09 0 2847 STB 8 B+,04
020 10 0 2848 BSA 8 EM,9 LABEL IN PROGRAM NUMBER OF TIMES
020 11 0 2849 BCS 8 A-,9
020 12 0 2850 IOM 8 EM EXECUTED
020 13 0 2851 BSA 8 EM,4
020 14 0 2852 BUN 8 A-
020 15 0 2853 EM DEFN * L N
020 16 0 2853 *D BUN 8 *+1
020 17 0 2854 NOP 8 I++6 - -
020 18 0 2855 LDB 8 *-1
020 19 0 2856 ASSGZ RTF 8 NONE,4 VARIABLE IN PROGRAM VALUE
020 20 0 2857 CAA 8 I++6
020 21 0 2858 ADA 8 I++7 V N
020 22 0 2859 BOF 8 *+1 - -
020 23 0 2860 BZA 8 *+2 - -
020 24 0 2861 BUN 8 EN-2
020 25 0 2862 NOP 8 NONE
020 26 0 2863 LDB 8 *-1
020 27 0 2864 STB 8 ASSGZ,04
020 28 0 2865 BUN 8 D-
020 29 0 2866 *Z3 STP *,2438
020 30 0 2867 *Z4 BUN *,I+-LOD1+100
020 31 0 2868 EN LDB 8 R- WITH A PROCEDURE THE FIRST
020 32 0 2869 CLL 8 I+-1 MESSAGE IS NOT PRINTED
020 33 0 2870 IFL 8 I+-1,12,20
020 34 0 2871 RTF 8 I+-1,24
020 35 0 2872 DFL 8 B+,04,1
020 36 0 2873 STP 8 D-
020 37 0 2874 BUN 8 A-
020 38 0 2875 BSA 8 V+,9
020 39 0 2876 *Z5 STP *,2468
020 40 0 2877 *Z6 BUN *,J+-LOD1+100
020 41 0 2878 DFL 8 B+,04,1
020 42 0 2879 STP 8 D-
020 43 0 2880 BUN 8 A-
020 44 0 2881 *E STA 8 I++2,00
020 45 0 2882 BSA 8 V+,9
020 46 0 2883 STP 8 D-
020 47 0 2884 BUN 8 A-
020 48 0 2885 STA 8 I++3,00
020 49 0 2886 STP 8 D-
020 50 0 2887 BUN 8 A-
020 51 0 2888 DLB - 100,64,0
020 52 0 2889 CSA - 0
020 53 0 2890 BFA 8 *+2,62,44
020 54 0 2891 CSA - 1
020 55 0 2892 CFA 8 TRCE,04
020 56 0 2893 BCU 8 *+2
020 57 0 2894 IBB 8 *-5,2
020 58 0 2895 SRA 6
020 59 0 2896 ADD 8 D1
020 60 0 2897 STP 8 D-
020 61 0 2898 BUN 8 A1+
020 62 0 2899 STA 8 I++8,08
020 63 0 2900 *Z7 STP *,2408
020 64 0 2901 *Z8 BUN *,I+-LOD1+100
020 65 0 2902 STP 8 D-
020 66 0 2903 BUN 8 A-
020 67 0 2904 BUN 8 E-
020 68 0 2905 *V LDB 8 A9+
020 69 0 2906 CLL 8 J+-1
020 70 0 2907 IFL 8 J+-1,12,20
020 71 0 2908 RTF 8 J+-1,35
020 72 0 2909 STP 8 D-
020 73 0 2910 BUN 8 A-
020 74 0 2911 BSA 8 V+,9
020 75 0 2912 *Z9 STP *,2468
020 76 0 2913 *Z10 BUN *,K+-LOD1+100
020 77 0 2914 *Z11 STP *,2448
020 78 0 2915 *Z12 BUN *,J+-LOD1+100
020 79 0 2916 DFL 8 B+,04,1
020 80 0 2917 *C STP 8 D-
020 81 0 2918 BUN 8 A-
020 82 0 2919 BSA 8 V+,9
020 83 0 2920 STA 8 J++2,00
020 84 0 2921 STP 8 D-
020 85 0 2922 BUN 8 A-
020 86 0 2923 STA 8 J++3,00
020 87 0 2924 STP 8 D-
020 88 0 2925 BUN 8 A-
020 89 0 2926 SRT 10
020 90 0 2927 DLB - 100,64,0
020 91 0 2928 *A9 CLA 8 J+
020 92 0 2929 ADD - 0
020 93 0 2930 BFR 8 F+,21,0
020 94 0 2931 STP 8 D-
020 95 0 2932 BUN 8 A1+
020 96 0 2933 LDB 8 Q-
020 97 0 2934 DBB 8 *+1,9993
020 98 0 2935 RTF 8 S+,3
020 99 0 2936 CLL 8 J++11
021 00 0 2937 IFL 8 J++11,12,20
021 01 0 2938 *Z13 STP *,2408
021 02 0 2939 *Z14 BUN *,J+-LOD1+100
021 03 0 2940 BUN 8 C-
021 04 0 2941 *F SLA 2
021 05 0 2942 STA 8 S++5,02
021 06 0 2943 SRA 2
021 07 0 2944 SLA 2
021 08 0 2945 STP 8 D-
021 09 0 2946 BUN 8 A1+
021 10 0 2947 LDB 8 Q-
021 11 0 2948 DBB 8 *+1,9993
021 12 0 2949 RTF 8 S+,3
021 13 0 2950 IFL 8 J++8,02,03
021 14 0 2951 CAD 8 S++5
021 15 0 2952 LDR 8 S++1
021 16 0 2953 BFR 8 *+2,21,0
021 17 0 2954 SUB 8 S++4
021 18 0 2955 STP 8 D-
021 19 0 2956 BUN 8 A1+
021 20 0 2957 SLT 16
021 21 0 2958 STR 8 J++11,44
021 22 0 2959 CAD 8 S+
021 23 0 2960 SRA 2
021 24 0 2961 STA 8 J++10,04
021 25 0 2962 IFL 8 J++10,82,23
021 26 0 2963 BUN 8 F--3
021 27 0 2964 *A1 CLL 8 S+
021 28 0 2965 IFL 8 S+,12,20
021 29 0 2966 BPA 8 *+3
021 30 0 2967 IFL 8 S+,82,20
021 31 0 2968 LSA 0
021 32 0 2969 SRT 10
021 33 0 2970 TRCE CLB
021 34 0 2971 *B CLA
021 35 0 2972 *Y SLA 1
021 36 0 2973 ADD 8 S++3
021 37 0 2974 SLT 1
021 38 0 2975 IBB 8 Y-,2000
021 39 0 2976 STA 9 S++1,00
021 40 0 2977 IFL 8 Y-,11,5
021 41 0 2978 BOF 8 D-
021 42 0 2979 IBB 8 B-,1
021 43 0 2980 D1 CNST 10000
021 44 0 2981 *S CNST 20000000000
021 45 0 2982 CNST 20000000000
021 46 0 2983 CNST 20000000000
021 47 0 2984 CNST 8
021 48 0 2985 CNST 50
021 49 0 2986 CNST 0
021 50 0 2987 *K CNST $ VARIABLE IN PROGRAM VALUE $
021 51 0 2998 CNST 20000000000
021 52 0 2999 *J CNST $ LABEL IN PROGRAM NUMBER OF TIMES EXECUTE
021 53 0 3009 D$
021 54 0 3010 CNST 20000000000
021 55 0 3011 *I CNST $ LAST LABEL PASSED WAS
021 56 0 3021
021 57 0 3032 $
021 60 0 3035 *V NOP Q+-100 THIS PROGRAM READS IN THE
021 61 0 3036 LDB 8 *+2 ARRAY DUMP ROUTINE
021 62 0 3037 RTF 8 *+2,3
021 63 0 3038 BUN 98
021 64 0 3039 LBC 8 *-4
021 65 0 3040 MRD 4 100,1,3,BMOD
021 66 0 3041 NONE CNST $(NONE) $
021 67 0 3045 LOCN LOD1+240
021 71 0 3079 END3 CAD STOX DUMP BUFFER(LABELS AND VARIABLES)
021 72 0 3080 BFA *+2,04,0 IF IT IS NOT EMPTY
021 73 0 3081 MOW 4 0,OT,1
021 74 0 3082 CLR
021 75 0 3083 STR STOX,04 INITIALIZE STORE ROUTINE
021 76 0 3084 MOW 4 Q+,OT,3
021 77 0 3085 LDB IDEX
021 78 0 3086 CAD - TBL+100
021 79 0 3087 *C STA HOLD
021 80 0 3088 LDB HOLD
021 81 0 3089 IBB END4,9999 END OF LIST OF ARRAYS
021 82 0 3090 DLB HOLD,64,0
021 83 0 3091 CAD - 4
021 84 0 3092 STB STOX1,62
021 85 0 3093 BPA PRSW2 ITEM UNMARKES - MARK IT IF PRSW2 IS ON
021 86 0 3094 IFL STOX1,62,1
021 87 0 3095 BUN A+
021 88 0 3096 PRSW2 BUN D+
021 89 0 3097 IFL STOX1,62,1
021 90 0 3098 BUN A+
021 91 0 3099 *D IFL STOX1,62,30
021 92 0 3100 *A CAD - 0
021 93 0 3101 STP STOXX
021 94 0 3102 BUN STOX1
021 95 0 3103 CAD - 1
021 96 0 3104 STP STOXX
021 97 0 3105 BUN STOX1
021 98 0 3106 CAD - 2
021 99 0 3107 STP STOXX
022 00 0 3108 BUN STOX1
022 01 0 3109 CAD - 3 OUTPUT ARRAY ITEM TO TAPE
022 02 0 3110 STP STOXX
022 03 0 3111 BUN STOX1
022 04 0 3112 CAD - 4
022 05 0 3113 STP STOXX
022 06 0 3114 BUN STOX1
022 07 0 3115 LDB HOLD
022 08 0 3116 CAD - 0
022 09 0 3117 BUN C-
022 12 0 3118 END4 LSA 9
022 13 0 3119 STP STOXX PUT A END FLAG OUT TO BUFFER
022 14 0 3120 BUN STOX
022 15 0 3121 CAD STOX
022 16 0 3122 BFA *+2,04,0
022 17 0 3123 MOW 4 0,OT,1 DUMP BUFFER IF NOT EMPTY
022 18 0 3124 CLR
022 19 0 3125 STR STOX,04 INITIALIZE STORE SUBROUTINE
022 20 0 3126 BUN ACTUA GET NEXTITEM FOR SBMUD STACK
022 23 0 3127 LOD2 DEFN * THIS PROGRAM IS RELOCATED TO
022 24 0 3127 *Q CLB 8 J++1 LOCATION 0100 AT OBJECT TIME
022 25 0 3128 BUN 8 *+3 AND CAUSES THE PRINTING OF
022 26 0 3129 *A LDB 8 B+ THE FOLLOWING LIST
022 27 0 3130 IBB 8 C+,1
022 28 0 3131 MRD 4 0,1,1
022 29 0 3132 DBB 8 *+1,100
022 30 0 3133 *C CAD - 100
022 31 0 3134 STB 8 B+,04
022 32 0 3135 BSA 8 D+,9 ARRAY A
022 33 0 3136 BCS 8 A-,9
022 34 0 3137 IOM 8 D+
022 35 0 3138 BSA 8 D+,4 (ELEMENTS OF THE ARRAY PRINTED BY ROW)
022 36 0 3139 BUN 8 A-
022 37 0 3140 *D BUN 8 *+2
022 38 0 3141 BUN 8 *-1
022 39 0 3142 BSA 8 V+,9
022 40 0 3143 STA 8 I++3,00
022 41 0 3144 STP 8 D-
022 42 0 3145 BUN 8 A- NOTE THAT A ROW HAS AS MANY ELEMENTS
022 43 0 3146 STA 8 I++4,00 IN IT AS THE LAST INTEGER IN THE
022 44 0 3147 *Z15 STP *,2468
022 45 0 3148 *Z16 BUN *,I+-LOD2+100
022 46 0 3149 *Z17 STP *,2448
022 47 0 3150 *Z18 BUN *,J+-LOD2+100
022 48 0 3151 STP 8 D-
022 49 0 3152 BUN 8 A-
022 50 0 3153 STA 8 L+
022 51 0 3154 STP 8 D-
022 52 0 3155 BUN 8 A-
022 53 0 3156 CFA 8 S+,00
022 54 0 3157 BCU 8 *+2
022 55 0 3158 CAD 8 S++1
022 56 0 3159 STA 8 L++1
022 57 0 3160 STA 8 L++2
022 58 0 3161 STP 8 D-
022 59 0 3162 BUN 8 A-
022 60 0 3163 CFA 8 S+,21
022 61 0 3164 SRA 4
022 62 0 3165 STA 8 G+,04
022 63 0 3166 *H CLL 8 N+
022 64 0 3167 IFL 8 N+,00,21
022 65 0 3168 CAR
022 66 0 3169 *G ADD *
022 67 0 3170 CLL 8 J+-1
022 68 0 3171 CLL 8 T+
022 69 0 3172 IFL 8 T+,12,20
022 70 0 3173 BPA 8 *+3
022 71 0 3174 IFL 8 T+,82,20
022 72 0 3175 LSA 0
022 73 0 3176 BCU 8 *+3
022 74 0 3177 SLT 2
022 75 0 3178 STR 8 S++2,02
022 76 0 3179 SRT 10
022 77 0 3180 CLB
022 78 0 3181 *B CLA
022 79 0 3182 *Y SLA 1
022 80 0 3183 ADD 8 S++3
022 81 0 3184 SLT 1
022 82 0 3185 IBB 8 Y-,2000
022 83 0 3186 STA 9 T++1,00
022 84 0 3187 IFL 8 Y-,11,5
022 85 0 3188 BOF 8 *+2
022 86 0 3189 IBB 8 B-,1
022 87 0 3190 BCE 8 P+
022 88 0 3191 CLL 8 T++3
022 89 0 3192 *M LBC 8 N+
022 90 0 3193 LDR 8 T+
022 91 0 3194 STR 9 J++22,04
022 92 0 3195 LDR 8 T++1
022 93 0 3196 STR 9 J++23
022 94 0 3197 LDR 8 T++2
022 95 0 3198 STR 9 J++24
022 96 0 3199 LDR 8 T++3
022 97 0 3200 STR 9 J++25,66
022 98 0 3201 DLB 8 L++1,04,1
022 99 0 3202 IBB 8 W+,9999
023 00 0 3203 DLB 8 N+,04,3
023 01 0 3204 IBB 8 Y+,9999
023 02 0 3205 *H DLB 8 L+,04,1
023 03 0 3206 DBB 8 X+,1
023 04 0 3207 LDR 8 O+
023 05 0 3208 BZR 8 E+
023 06 0 3209 *F STP 8 D-
023 07 0 3210 BUN 8 A-
023 08 0 3211 BUN 8 D-+2
023 09 0 3212 *Z19 DEFN *
023 10 0 3212 *E STP *,2428
023 11 0 3213 *Z20 BUN *,J+-LOD2+100
023 12 0 3214 LDB 8 Q-
023 13 0 3215 RTF 8 J+,23
023 14 0 3216 BUN 8 F-
023 15 0 3217 *X CLL 8 O+
023 16 0 3218 IFL 8 G-,04,1
023 17 0 3219 CLA
023 18 0 3220 BUN 8 G-
023 19 0 3221 *Y DEFN *
023 20 0 3221 *Z21 STP *,2408
023 21 0 3222 *Z22 BUN *,J+-LOD2+100
023 22 0 3223 CLL 8 N+
023 23 0 3224 IFL 8 N+,04,21
023 24 0 3225 LDB 8 Q-
023 25 0 3226 RTF 8 J+,23
023 26 0 3227 STP 8 O+
023 27 0 3228 BUN 8 H-
023 28 0 3229 *Z23 DEFN *
023 29 0 3229 *W STP *,2428
023 30 0 3230 *Z24 BUN *,J+-LOD2+100
023 31 0 3231 LDR 8 L++2
023 32 0 3232 STR 8 L++1
023 33 0 3233 BUN 8 Y-+2
023 34 0 3234 *P IFL 8 T+,02,03
023 35 0 3235 STR 8 T++2,04
023 36 0 3236 IFL 8 T++2,82,23
023 37 0 3237 CAD 8 S++2
023 38 0 3238 LDR 8 T++1
023 39 0 3239 BFR 8 *+2,21,0
023 40 0 3240 SUB 8 S++4
023 41 0 3241 BPA 8 *+3
023 42 0 3242 IFL 8 T++2,02,20
023 43 0 3243 LSA 0
023 44 0 3244 CLR
023 45 0 3245 SRT 1
023 46 0 3246 SLA 1
023 47 0 3247 SLT 7
023 48 0 3248 ADD 8 S++5
023 49 0 3249 STA 8 T++3,00
023 50 0 3250 BUN 8 M-
023 51 0 3251 *O CNST 0
023 52 0 3252 *T CNST 20000000000
023 53 0 3253 CNST 20000000000
023 54 0 3254 CNST 20000000000
023 55 0 3255 CNST 20000000000
023 56 0 3256 *S CNST 1
023 57 0 3257 CNST 9999
023 58 0 3258 CNST 0
023 59 0 3259 CNST 8
023 60 0 3260 CNST 50
023 61 0 3261 CNST 8080000000
023 62 0 3262 *L CNST 0
023 63 0 3263 CNST 0
023 64 0 3264 CNST 0
023 65 0 3265 *N CNST 0
023 66 0 3266 *I CNST $ ARRAY
023 67 0 3276
023 68 0 3287 $
023 69 0 3290 *J CNST $
023 70 0 3300
023 71 0 3311 $
023 74 0 3314 *V NOP LOD3-100 GET EITHER A PROCEDURE
023 75 0 3315 LDB 8 S- HEADER OR END OF DUMP
023 76 0 3316 RTF 8 *+2,3 PROGRAM
023 77 0 3317 BUN 1
023 78 0 3318 LBC 8 *-4
023 79 0 3319 MRD 4 100,1,3,BMOD
023 80 0 3320 BUN 100
023 81 0 3321 LOCN LOD2+240
023 84 0 3367 FIN MOW 4 Q+,OT,1 OUTPUT END OF DUMP PROGRAM
023 85 0 3368 MRW 4 OT
023 86 0 3369 CAD MEM
023 87 0 3370 CFA +LDBG-1
023 88 0 3371 BCH A+
023 89 0 3372 BUN LDBG
023 90 0 3373 *A CFA +MEM+302
023 91 0 3374 BCL A+
023 92 0 3375 BUN LDBG
023 93 0 3376 *A MIB 4 *+2,T
023 94 0 3377 BUN *-1
023 95 0 3378 MRW 4 T
023 96 0 3379 DLB *,44,0
023 97 0 3380 MPF 4 T,10
023 98 0 3381 DBB *-1,1100
023 99 0 3382 MPF 4 T,2
024 00 0 3383 LDB *+1
024 01 0 3384 POSCT NOP 0
024 02 0 3385 IBB *+3,9999
024 03 0 3386 MPF 4 T,1
024 04 0 3387 BUN *-2
024 05 0 3388 MRD 4 400,T,10
024 06 0 3389 MRD 4 1400,T,10
024 07 0 3390 MRW 4 T
024 08 0 3391 MIB 4 *+2,T
024 09 0 3392 BUN *-1
024 10 0 3393 MLS 4 OT
024 11 0 3394 BUN LDBG
024 14 0 3395 LOD4 DEFN *
024 15 0 3395 *Q MRW 4 OT+10
024 16 0 3396 BCS *+3-LOD4+100,9
024 17 0 3397 *Z25 STP *,2418
024 18 0 3398 *Z26 BUN *,J+-LOD4+100
024 19 0 3399 LDR A+-LOD4+100
024 20 0 3400 STR MLOAD-1
024 21 0 3401 BUN MLOAD-1
024 22 0 3402 *A MNC 4 0,OT,4
024 23 0 3403 *J CNST $
024 24 0 3413
024 25 0 3424 $
024 26 0 3427 LOCN *+10 SPACE FOR PATCHES
024 29 0 3437 GET CAD MEM
024 30 0 3438 ADD +7
024 31 0 3439 CFA +XZERO-1,04
024 32 0 3440 BCH A+ IS THERE ENOUGH ROOM
024 33 0 3441 CAD MEM YES- USE PRESENT SETTING OF MEM
024 34 0 3442 GETX BUN *
024 35 0 3443 *A CAD +700 IF NOT SET IT TO 0800
024 36 0 3444 STA MEM AND DONT BOTHER CHECKING ANY MORE
024 37 0 3445 BUN GETX
024 40 0 3446 SBMUD F244 0,SBMUD,0 INVERTED DUMP STACK
024 41 0 3447 FIXUP F424 FIXUP,0,0 FIX-UPS FOR CALLS OF EXT PROGRAMS FROM
WITHIN SEGMENTS
024 43 0 3448 NN CNST 99 CONSTANT 99
024 44 0 3449 LCHOD CNST 0
024 45 0 3450 HALT F424 757,0,7250 O K HALT
024 46 0 3451 VECTR CNST 0,0,0,0,0,0 STORAGE VECTOR USED BY THE MONSTER
024 47 0 3457 SRERR CNST 21662454159 SEARCH ERROR
024 48 0 3458 CNST 24348004559
024 49 0 3459 CNST 25956590202
024 50 0 3460 CSERR CNST 21643484543 CHECK SUM ERROR
024 51 0 3461 CNST 25200626454
024 52 0 3462 CNST 20045595956
024 53 0 3463 CNST 25902020202
024 54 0 3464 ERFRM FBGR PRINT,9(T5A),75B
024 55 0 3493 SREF CNST 0 SYMBOL REFERENCE ADDRESS - PRESENT ITEM
024 56 0 3494 SL CNST 0 SYMBOL LENGTH
024 57 0 3495 HOLD CNST 0 SHORT TERM STORAGE LOCATION
024 58 0 3496 THROW CNST 0 DITTO
024 59 0 3497 NINES CNST 9999999999,9999999999 LARGEST POSSIBLE SYMBOL
ALL 301 STACKS USED BY THE MONSTER ARE INITIALIZED WITH
THIS SYMBOL SO SORTING CAN BE DONE
024 62 0 3499 IDEX CNST 0 LEVEL OF PROCEDURE
024 63 0 3500 DIM CNST 0 NUMBER OF DIMENSIONS
024 64 0 3501 J CNST 0 COUNTER USED IN CONNECTION WITH LBRT
024 65 0 3502 TST CNST 0 COUNT OF ROUTINES ASSIGNED INDIREDTLY
024 66 0 3503 ADDIT CNST 0
024 67 0 3504 MADIT CNST 0
024 68 0 3505 DIMS LOCN *+20 DIMENSION LIST
024 69 0 3525 LX LOCN *+50
024 70 0 3575 MEM HLT *+302 NEXT FREE LOCATION
024 71 0 3576 TBL F244 0,NINES,0 SORTED STACKS SET UP BY THE MONSTER
024 72 0 3577 LOCN 4000
024 73 0 4000 MRW 2,4
024 74 0 4001 *A MPF 2,0
024 75 0 4002 DFL A--1,01,1
024 76 0 4003 BRP A-
024 77 0 4004 MPF 2,5
024 78 0 4005 MOW 0000,2,3
024 79 0 4006 MOW 700,2,9
024 80 0 4007 MOW 1600,2,0
024 81 0 4008 MOW 2600,2,0
024 82 0 4009 MRW 2
024 83 0 4010 F424 2222,00,2222
024 84 0 4011 LOCN LX
024 85 0 3525 FINI 2
3525 +0000010000
3526 +0000000010
3527 +0000000040
3528 +0000000080
3529 +0000000100
3530 +0000000700
3531 +0525005250
3532 +0000000001
3533 +0000000011
3534 +0011110000
3535 $FINIS
3536 +1000600000
3537 +0000002000
3538 +0002000000
3539 -0000001111
3540 +0000001111
3541 +1111110000
3542 +0000000023
3543 $H
3544 +0000545600
3545 +0000000007
3546 +9669009669
3547 $POOL
3548 +0034353600
3549 +0000000008
3550 +9999999999
3551 +0000000009
3552 +0000000099
3553 +0010123536
3554 +0000004233
3555 +0000002218
3556 +0000001103
3557 +0000002202
3558 +0000002428
3559 +0000004116
3560 +0000003577
3561 +0000003576
3562 +0000000292
3563 +0000003446
3564 +0000002868
3565 +0000001011
3566 +0000003877
3567 +0000004094
END PASS 1, ERRORS = 0
START PASS 2
01 00 0 3 0000 BUF DEFN 0002 TAPE OUTPUT BUFFER
01 01 0 4 0000 OT DEFN 1 OUTPUT TAPE
01 02 0 5 0000 T DEFN 2 COMPILER TAPE UNIT
01 03 0 6 0000 PNTR DEFN 2 PRINTER UNIT
001 04 0 7 0000 PREV DEFN 101 ADDRESS OF PREVIOUS INSTRUCTION IN BUF
001 05 0 8 0000 CNTRI DEFN 180 COUNTER FOR INSTRUCTIONS IN BUFFER
001 06 0 9 0000 CNTRF DEFN 181 COUNTER FOR FIX-UPS IN BUFFER
001 07 0 10 0000 WRTF DEFN 183 RTF CONSTANT FOR WRITE SUBROUTINE
01 08 0 11 0000 DESCR DEFN 184 INSTRUCTION IN OUTPUT BUFFER
01 09 0 12 0000 EXPLN DEFN 185 SYMBOLIC EXPLANATION
001 10 0 13 0000 LCMAX DEFN 202 HIGHEST LOCATION USED IN SEGMENTS
001 11 0 14 0000 LRTF DEFN 207 LOCATION OF LAST RTF IN OUTPUT BUFFER
001 12 0 15 0000 HALT1 DEFN 208 ERROR FLAG(SIGN IS 8 IF NO ERRORS)
001 13 0 16 0000 VARB DEFN 251 LAST LOCATION USED FOR VARIABLES, ECT
01 14 0 17 0000 EPSLN DEFN 258 NUMBER OF EXTERNAL PROGRAMS
01 15 0 18 0000 AVAIL DEFN 273 FREED-UP LOCATIONS
01 16 0 19 0000 OP DEFN 275 OPERATOR STACK
01 17 0 20 0000 DUMBS DEFN 292 DUMP STACK
01 18 0 21 0000 SX DEFN 400 MAG TAPE BUFFER
01 19 0 22 0000 IMAGE DEFN 1632 CARD INPUT BUFFER
001 20 0 23 0000 XZERO DEFN 4095 START OF FIXED POINT CONSTANT LIST
001 21 0 24 0000 FZERO DEFN 4097 START OF FLOATING POINT CONSTANT LIST
01 22 0 25 0000 XONE DEFN 4099 FIXED POINT CONSTANT 1
001 23 0 26 0000 LALE DEFN 4107 POINTS TO LABEL PROCESSING SUBROUTINE
001 24 0 27 0000 SCRTB DEFN 4116 SCRAMBLE TABLE FOR IDENTIFIERS
001 25 0 28 0000 SSC DEFN 4216 POINTS TO WHATS LEFT OF MEMORY
001 26 0 29 0000 LOCN DEFN 4217 LOCATION COUNTER FOR INSTRUCTIONS
001 27 0 30 0000 MAMAX DEFN 4227 END OF ASSOCIATIVE MEMORY
01 28 0 31 0000 MSIZE DEFN 4999 MEMORY SIZE
01 31 0 34 0000 LOCN 0000
001 32 0 35 0000 0 0000 00 0000 MDUMP HLT 0 SYMBOLIC MEMORY DUMP IS ON ODD LANE
001 33 0 36 0001 0 0001 39 0000 SOH SET INDICATOR FOR ENTIRE DUMP
01 34 0 37 0002 0 0000 31 0004 BOF *+2
01 35 0 38 0003 0 5103 26 0022 IFL T+,51,3
01 36 0 39 0004 4 1018 50 0000 MRW 4 OT+10
01 37 0 40 0005 0 0000 40 0012 STA A
01 38 0 41 0006 0 0002 40 0013 STB B
01 39 0 42 0007 0 0001 42 0008 LBC *+1
01 40 0 43 0008 0 0000 01 2739 NOP LOD1-100
01 41 0 44 0009 4 1400 56 0000 MOW 4 0,OT,4
01 42 0 45 0010 4 1308 52 0100 MRD 4 100,OT,3,BMOD
01 43 0 46 0011 0 0000 30 0100 BUN 100
01 44 0 47 0012 0 0000 00 0000 A HLT
01 45 0 48 0013 0 0000 00 5000 B HLT MSIZE+1
01 48 0 51 0014 0 0000 42 0000 MLOAD LDB 0
01 49 0 52 0015 0 0412 40 0024 STB B+,04 GET EXIT LINE
01 50 0 53 0016 4 1004 50 0000 MLS 4 OT POSITION TAPE SO THAT
01 51 0 54 0017 4 1100 58 0000 MPF 4 OT,1 SEGMENTATION WILL WORK
01 52 0 55 0018 0 0000 42 0013 LDB B
01 53 0 56 0019 0 0000 39 0000 SOR
01 54 0 57 0020 0 0000 25 0020 FDV *
01 55 0 58 0021 0 0000 10 0012 CAD A
01 56 0 59 0022 0 0000 01 0023 *T NOP *+1
01 57 0 60 0023 0 5112 40 0022 STB T-,51
01 58 0 61 0024 0 0000 30 0024 *B BUN * RETURN TO PROGRAM
01 61 0 64 0025 0 0000 42 0027 LDB *+2
01 62 0 65 0026 0 0010 29 0012 RTF A,1
01 63 0 66 0027 0 0000 29 0199 ZERO RTF 199,100 ZERO MEMORY
01 64 0 67 0028 0 0002 40 0012 STB A BEFORE LOADING PROGRAM
01 65 0 68 0029 0 0411 18 0012 CFR A,04
01 66 0 69 0030 0 0001 35 0027 BCU ZERO
01 67 0 70 0031 4 1100 52 0100 LOADP MRD 4 100,OT,1
01 68 0 71 0032 0 0000 41 0069 LDR X+
01 69 0 72 0033 0 0001 40 0048 STR M+
01 70 0 73 0034 0 0001 42 0035 LBC *+1
01 71 0 74 0035 0 0001 45 0100 CLA 100
01 72 0 75 0036 1 0000 12 0200 *A ADD - 200
01 73 0 76 0037 1 0000 12 0201 ADD - 201
01 74 0 77 0038 1 0000 12 0202 ADD - 202
01 75 0 78 0039 1 0000 12 0203 ADD - 203
01 76 0 79 0040 1 0000 12 0204 ADD - 204 SUM CHECK THE BLOCK
01 77 0 80 0041 0 0005 20 0036 IBB A-,5
01 78 0 81 0042 0 0000 31 0043 BOF *+1
01 79 0 82 0043 0 0000 36 0048 BZA M+
01 80 0 83 0044 0 0040 09 0092 SPO Q1+,4 IF IT DOES NOT
01 81 0 84 0045 0 9669 00 9669 F424 9669,0,9669 SAY SO AND HALT
01 82 0 85 0046 4 1101 58 0000 MPB 4 OT,1 TRY AGAIN
01 83 0 86 0047 0 0000 30 0031 BUN LOADP
01 86 0 89 0048 0 0000 10 0101 *M CAD 101 GET BUFFER ENTRY
01 87 0 90 0049 0 0000 42 0048 LDB M-
001 88 0 91 0050 0 0004 33 0060 BSA C+,4 IS IT A RTF(IF NOT, ALL INSTRUCTIONS
001 90 0 93 0051 0 0000 46 0071 CLL Z+ ARE LOADED SO PROCESS FIX-UPS
01 91 0 94 0052 0 0299 26 0071 IFL Z+,02,99
01 92 0 95 0053 0 0401 28 0071 *A DLB Z+,04,1
001 93 0 96 0054 1 0000 41 0100 LDR - 100 IF FIX-UP HAS A SIGN OF 8 IT INDICATES
01 94 0 97 0055 0 1280 37 0072 BFR B+,12,80 END OF SOME SEGMENT
01 95 0 98 0056 0 0000 37 0031 BZR LOADP
01 96 0 99 0057 1 6400 28 0100 DLB - 100,64,0 DO FIX-UP
01 97 0 100 0058 1 0411 40 0000 STR - 0,04
01 98 0 101 0059 0 0000 30 0053 BUN A-
02 01 0 104 0060 0 6610 40 0064 *C STA R+,66
002 02 0 105 0061 0 9999 21 0000 DBB 0,9999 INSTRUCTIONS ARE TRANSFERED TO
02 03 0 106 0062 0 0412 40 0064 STB R+,04 MEMORY WITH A RTF
02 04 0 107 0063 1 0000 42 9999 LDB - 9999
02 05 0 108 0064 0 0000 29 0000 *R RTF 0,100
02 06 0 109 0065 0 0001 48 0007 SRT 7
02 07 0 110 0066 0 0000 12 0070 ADD O+ GO GET NEXT RTF
02 08 0 111 0067 0 0000 19 0048 ADL M-
02 09 0 112 0068 0 0000 30 0048 BUN M-
02 10 0 113 0069 0 0000 10 0101 *X CAD 101
02 11 0 114 0070 0 0000 00 0001 *O HLT 1
02 12 0 115 0071 0 0000 00 0099 *Z HLT 99 FIX-UP COUNTER
02 15 0 118 0072 0 6711 18 0091 *B CFR SECT,67 HAVE WE LOADED ALL OF THE
02 16 0 119 0073 0 0001 35 0053 BCU A- SEGMENT INDICATED BY SECT
02 17 0 120 0074 0 0000 30 0200 LODOX BUN 200
02 20 0 123 0075 0 0000 00 1111 *V HLT 1111
02 21 0 124 0076 0 0000 42 0074 LODOV LDB LODOX
02 22 0 125 0077 1 0000 10 0000 CAD - 0
02 23 0 126 0078 0 0000 17 0075 EXT V-
02 24 0 127 0079 0 0000 49 0004 SLA 4
02 25 0 128 0080 0 0010 40 0091 STA SECT,00 GET SEGMENT NUMBER
02 26 0 129 0081 0 0401 26 0074 IFL LODOX,04,1 ADVANCE EXIT LINE BY ONE
02 27 0 130 0082 0 0004 45 0000 CLB
02 28 0 131 0083 4 1000 50 0091 *B MTS 4 SECT,OT SEARCH FOR SEGMENT
02 29 0 132 0084 4 1100 52 0100 MRD 4 100,OT,1
02 30 0 133 0085 0 0000 10 0100 CAD 100
02 31 0 134 0086 0 0010 18 0091 CFA SECT,00 DID THE MACHINE WORK
02 32 0 135 0087 0 0000 35 0032 BCE LOADP+1 IF YES,LOAD THE SEGMENT
02 33 0 136 0088 0 0030 09 0096 SPO Q2+,3 IF NOT PRINT THE MESSAGE
02 34 0 137 0089 0 9669 00 9669 F424 9669,0,9669 SEGMENT ERROR
02 35 0 138 0090 0 0000 30 0083 BUN B- TRY AGAIN
02 37 0 140 0091 8 0000 00 0000 SECT HLT 8 0 SEGMENT NUMBER
02 39 0 142 0092 2 1602 02 0202 *Q1 CNST 21602020202
02 40 0 143 0093 2 4348 45 4352 CNST 24348454352
02 41 0 144 0094 2 0062 64 5400 CNST 20062645400
02 42 0 145 0095 2 4559 59 5659 CNST 24559595659
02 43 0 146 0096 2 1662 45 4754 *Q2 CNST 21662454754
02 44 0 147 0097 2 4555 63 0045 CNST 24555630045
02 45 0 148 0098 2 5959 56 5902 CNST 25959565902
02 48 0 151 0099 LOCN 100
02 49 0 152 0100 0 0000 00 0000 HLT 0
02 50 0 153 0101 3 3333 33 3333 FMT1 FBGR INPUT,16(P5A),P10Z
0102 3 3333 33 3333
0103 3 3333 33 3333
0104 3 3333 33 3333
0105 3 3333 33 3333
0106 3 3333 33 3333
0107 3 3333 33 3333
0108 3 3333 33 3333
0109 3 3333 33 3333
0110 3 3333 33 3333
0111 3 3333 33 3333
0112 0 0000 00 0000
0113 0 1111 11 1111
0114 0 1111 11 1111
0115 0 1111 11 1111
0116 0 1111 11 1111
0117 0 1111 11 1111
0118 0 1111 11 1111
0119 0 1111 11 1111
0120 0 1111 11 1111
0121 0 1111 11 1111
0122 0 1111 11 1111
0123 0 1111 11 1111
0124 0 1111 11 1111
0125 0 1111 11 1111
0126 0 1111 11 1111
0127 0 1111 11 1111
0128 0 1111 11 1111
0129 0 0000 00 0000
002 51 0 154 0130 3 3333 33 3333 FMT3 FBGR PRINT,49B,T5A,T1A1B2A4Z,T10N,T8Z1A,XB6Z2A,48B MONITOR
0131 3 3333 33 3333
0132 3 3333 33 3333
0133 3 3333 33 3333
0134 3 3333 33 3333
0135 3 3333 33 3333
0136 3 0000 00 0000
0137 0 0000 00 0000
0138 0 0000 00 0000
0139 0 0000 00 0000
0140 0 0000 00 0000
0141 0 0000 00 0000
0142 0 0000 00 0000
0143 0 0000 00 0000
0144 0 0000 00 0000
0145 3 1111 11 1111
0146 3 1100 11 1133
0147 3 3322 22 2222
0148 2 2333 33 3333
0149 1 1103 33 3331
0150 1 1100 00 0000
0151 0 0000 00 0000
0152 0 0000 00 0000
0153 0 0000 00 0000
0154 0 0000 00 0000
0155 0 0000 00 0000
0156 0 0000 00 0000
0157 0 0000 00 0000
0158 0 0000 00 0000
002 52 0 155 0159 3 3333 33 3333 FMT4 FBGR PRINT,32B,11(T5A),33B ERROR MESSAGE FORMAT BAND
0160 3 3333 33 3333
0161 3 3333 33 3333
0162 3 3333 33 3333
0163 3 3333 33 3333
0164 3 3333 33 3333
0165 3 3000 00 0000
0166 0 0000 00 0000
0167 0 0000 00 0000
0168 0 0000 00 0000
0169 0 0000 00 0000
0170 0 0000 00 0000
0171 3 1111 11 1111
0172 3 1111 11 1111
0173 3 1111 11 1111
0174 3 1111 11 1111
0175 3 1111 11 1111
0176 3 1111 11 1111
0177 3 1111 11 1111
0178 3 1111 11 1111
0179 3 1111 11 1111
0180 3 1111 11 1111
0181 3 1111 11 1111
0182 0 0000 00 0000
0183 0 0000 00 0000
0184 0 0000 00 0000
0185 0 0000 00 0000
0186 0 0000 00 0000
0187 0 0000 00 0000
02 53 0 156 0188 TAB DEFN *
02 54 0 157 0188 LOCN 200
02 55 0 158 0200 0 0000 00 0000 HLT 0
002 56 0 159 0201 3 3333 33 3333 FMT5 FBGR PRINT,24(T5A) PRINTER-PUNCH FORMAT BAND
0202 3 3333 33 3333
0203 3 3333 33 3333
0204 3 3333 33 3333
0205 3 3333 33 3333
0206 3 1111 11 1111
0207 3 1111 11 1111
0208 3 1111 11 1111
0209 3 1111 11 1111
0210 3 1111 11 1111
0211 3 1111 11 1111
0212 3 1111 11 1111
0213 3 1111 11 1111
0214 3 1111 11 1111
0215 3 1111 11 1111
0216 3 1111 11 1111
0217 3 1111 11 1111
0218 3 1111 11 1111
0219 3 1111 11 1111
0220 3 1111 11 1111
0221 3 1111 11 1111
0222 3 1111 11 1111
0223 3 1111 11 1111
0224 3 1111 11 1111
0225 3 1111 11 1111
0226 3 1111 11 1111
0227 3 1111 11 1111
0228 3 1111 11 1111
0229 3 1111 11 1111
02 58 0 161 0230 4 1000 64 0232 LOADL CRI 4 *+2,1 LOADER ENTRANCE
02 59 0 162 0231 0 0000 30 0233 BUN LOADC
002 60 0 163 0232 4 1008 62 0129 CRF 4 FMT1+28,51 LOAD INPUT FORMAT IF READY
02 61 0 164 0233 0 5512 40 0200 LOADC STB 200,55
02 62 0 165 0234 0 5401 26 0200 *A IFL 200,54,1
02 63 0 166 0235 0 0000 31 0238 BOF A+
02 64 0 167 0236 4 2000 65 0238 CWI 4 A+,2
02 65 0 168 0237 0 0000 30 0234 BUN A-
02 66 0 169 0238 4 2000 65 0240 *A CWI 4 *+2,2
02 67 0 170 0239 0 0000 30 0243 BUN *+4
002 68 0 171 0240 4 2004 63 0158 CWF 4 FMT3+28,32 LOAD PRINTER FORMATS IF PRINTER READY
02 69 0 172 0241 4 2006 63 0187 CWF 4 FMT4+28,42
02 70 0 173 0242 4 2008 63 0229 CWF 4 FMT5+28,52
02 71 0 174 0243 4 1000 65 0245 CWI 4 *+2,1
02 72 0 175 0244 0 0000 30 0246 BUN *+2
002 73 0 176 0245 4 1008 63 0229 CWF 4 FMT5+28,51 LOAD PUNCH FORMAT IF PUNCH IS READY
02 74 0 177 0246 0 0000 41 0013 LDR B
02 75 0 178 0247 0 0000 30 0025 BUN ZERO-2
02 78 0 181 0248 LOCN 700
02 80 0 183 0700 0 4000 38 0703 BCS *+3,4
02 81 0 184 0701 4 1642 44 9898 STP 4 9898,1642
02 82 0 185 0702 4 1632 30 9898 BUN 4 9898,IMAGE
02 83 0 186 0703 4 2700 52 0900 MRD 4 0900,T,7
02 84 0 187 0704 4 2000 52 1600 MRD 4 1600,T,0
02 85 0 188 0705 4 2000 52 2600 MRD 4 2600,T,0
02 86 0 189 0706 0 0001 45 3200 CLA 3200
02 87 0 190 0707 0 0001 42 0706 LBC *-1
02 88 0 191 0708 1 0000 12 3600 ADD - 3600
02 89 0 192 0709 1 0000 12 3601 ADD - 3601
02 90 0 193 0710 1 0000 12 3602 ADD - 3602
02 91 0 194 0711 1 0000 12 3603 ADD - 3603
02 92 0 195 0712 1 0000 12 3604 ADD - 3604
02 93 0 196 0713 1 0000 12 3605 ADD - 3605
02 94 0 197 0714 1 0000 12 3606 ADD - 3606
02 95 0 198 0715 1 0000 12 3607 ADD - 3607
02 96 0 199 0716 1 0000 12 3608 ADD - 3608
02 97 0 200 0717 1 0000 12 3609 ADD - 3609
02 98 0 201 0718 0 0010 20 0708 IBB *-10,10
02 99 0 202 0719 0 0000 31 0720 BOF *+1
03 00 0 203 0720 0 0000 36 0732 BZA A+ IF IT DOES NOT PRINT
03 01 0 204 0721 0 0040 09 3460 SPO CSERR,4 CHECK SUM ERROR
03 02 0 205 0722 0 9669 00 9669 F424 9669,0,9669
03 03 0 206 0723 4 2201 58 0000 MPB 4 T,2
03 04 0 207 0724 4 2001 58 0000 MPB 4 T,10
03 05 0 208 0725 4 2001 58 0000 MPB 4 T,10
03 06 0 209 0726 4 2001 58 0000 MPB 4 T,10
03 07 0 210 0727 4 2000 52 0400 MRD 4 400,T,10 TRY AGAIN
03 08 0 211 0728 4 2000 52 1400 MRD 4 1400,T,10
03 09 0 212 0729 4 2000 52 2400 MRD 4 2400,T,10
03 10 0 213 0730 4 2200 52 3400 MRD 4 3400,T,2
03 11 0 214 0731 0 0000 30 0707 BUN 707
03 14 0 217 0732 4 2006 63 3492 *A CWF 4 ERFRM+28,42
03 15 0 218 0733 0 0000 42 0292 LDB DUMBS
03 16 0 219 0734 0 9999 20 0738 IBB A+,9999
03 17 0 220 0735 0 0000 42 3554 LDB +SCRTB+117
03 18 0 221 0736 0 0000 44 1691 STP LIBRX
03 19 0 222 0737 0 0000 30 1690 BUN LIBRF
03 20 0 223 0738 0 0000 10 0208 *A CAD HALT1 SET THE X X UP IF AN ERROR
03 21 0 224 0739 0 0008 33 0742 BSA *+3,8 OCCURRED DURING COMPILATION
03 22 0 225 0740 0 0000 41 3531 LDR +525005250
03 23 0 226 0741 0 0001 40 3450 STR HALT
03 24 0 227 0742 0 0000 42 0275 LDB OP
03 25 0 228 0743 0 0412 40 0751 *A STB C+,04 TEST FOR OP STACK EMPTY
03 26 0 229 0744 0 9999 20 0752 IBB A+,9999 IT SHOULD BE
03 27 0 230 0745 0 0000 44 1847 STP WEMX
03 28 0 231 0746 0 0000 30 1812 BUN WEM
03 29 0 232 0747 3 0102 03 0000 CNST 30102030000 EXTRA LEFT PARENTHESIS
03 30 0 233 0748 0 0000 42 0751 LDB C+
03 31 0 234 0749 1 0000 42 0000 LDB - 0
03 32 0 235 0750 0 0000 30 0743 BUN A-
03 33 0 236 0751 0 0000 00 0000 *C HLT 0
003 36 0 239 0752 0 0000 10 0002 *A CAD BUF DUMP BUFFER IF SEGMENTATION WAS USED
03 37 0 240 0753 0 6400 36 0764 BFA A+,64,0 AND BUFFER IS NOT EMPTY
03 38 0 241 0754 0 0000 10 0101 CAD BUF+99
03 39 0 242 0755 0 0000 12 0100 ADD BUF+98
03 40 0 243 0756 0 0000 36 0759 BZA *+3
03 41 0 244 0757 0 0000 44 1733 STP WRITX
03 42 0 245 0758 0 0000 30 1765 BUN WRIT5
03 43 0 246 0759 0 0000 10 0002 CAD BUF INCREASE SEGMENT NUMBER
03 44 0 247 0760 0 0000 46 0002 CLL BUF
03 45 0 248 0761 0 6410 40 0002 STA BUF,64
03 46 0 249 0762 0 6401 26 0002 IFL BUF,64,1
03 47 0 250 0763 0 0000 30 0772 BUN C+
03 48 0 251 0764 0 0000 41 3546 *A LDR +9669009669 GENERATE BIG X X HALT
03 49 0 252 0765 0 0001 40 2160 STR INSTR
03 50 0 253 0766 0 0000 44 1733 STP WRITX
03 51 0 254 0767 0 0000 30 1734 BUN WRIT2
03 52 0 255 0768 0 0000 41 3536 LDR +1000600000 FOLLOWED BY A CARD READ
03 53 0 256 0769 0 0001 40 2160 STR INSTR IF NOT USING SEGMENTATION
03 54 0 257 0770 0 0000 44 1733 STP WRITX
03 55 0 258 0771 0 0000 30 1734 BUN WRIT2
03 58 0 261 0772 0 0000 41 3547 *C LDR $POOL$
03 59 0 262 0773 0 0001 40 0185 STR EXPLN
03 60 0 263 0774 0 0000 42 0775 *C LDB *+1
03 61 0 264 0775 0 0000 10 4095 CAD XZERO
03 62 0 265 0776 0 0000 40 3495 *A STA HOLD
03 63 0 266 0777 0 6400 36 0783 BFA B+,64,0
03 64 0 267 0778 0 0000 48 0004 SRA 4
03 65 0 268 0779 1 0000 41 0001 LDR - 1
03 66 0 269 0780 0 0000 44 1733 STP WRITX OUTPUT ALL CONSTANTS USED BY
03 67 0 270 0781 0 0000 30 1739 BUN WRIT3 OBJECT PROGRAM
03 68 0 271 0782 0 0000 10 3495 CAD HOLD
03 69 0 272 0783 0 0400 36 0787 *B BFA C+,04,0 XXXX 2R YYYY LINK R=0 FLOATING
03 70 0 273 0784 0 0000 42 3495 LDB HOLD XXXX+1 (CONSTANT) R=1 INTEGER
03 71 0 274 0785 1 0000 10 0000 CAD - 0 YYY IS THE ASIGNMENT
03 72 0 275 0786 0 0000 30 0776 BUN A- LINK=0 INDICATES END OF LIST
03 73 0 276 0787 0 0000 42 0788 *C LDB *+1
03 74 0 277 0788 0 0000 10 4097 CAD FZERO PROCESS FLOATING LIST
03 75 0 278 0789 0 0000 44 0783 STP B-
03 76 0 279 0790 0 0000 30 0776 BUN A-
03 79 0 282 0791 0 0000 46 0185 CLL EXPLN
03 80 0 283 0792 4 2004 50 0000 MLS 4 T
03 81 0 284 0793 4 2000 59 0795 MIB 4 *+2,T
03 82 0 285 0794 0 0000 30 0793 BUN *-1
03 83 0 286 0795 4 2300 52 1857 MRD 4 LBRT,T,3 READ LIBRARY TABLE
003 84 0 287 0796 0 1109 27 1755 DFL WRT10,11,9 CHANGE CONTROL SWITCH FOR EXTERNAL
03 85 0 288 0797 0 1109 27 1709 DFL FXUPY,11,9
03 86 0 289 0798 0 0000 42 0258 LDB EPSLN PROGRAMS
003 87 0 290 0799 0 0000 44 1153 STP EXTEX PROCESS EXTERNAL PROGRAMS IF EPSLN
03 88 0 291 0800 0 0001 21 1123 DBB EXTP,1 IS NON-ZERO
003 89 0 292 0801 0 1102 27 1755 DFL WRT10,11,2 CHANGE CONTROL SWITCH FOR LIBRARY
03 90 0 293 0802 0 1102 27 1709 DFL FXUPY,11,2
003 91 0 294 0803 0 0000 10 3544 CAD +545600 MODIFY ERROR MESSAGE FOR LIBRARY
003 92 0 295 0804 0 0610 40 1600 STA CNST9,06 TO READ UNDEFINED EQUIVALENCE LIBRARY
INCORRECT
03 96 0 299 0805 0 0000 46 3502 *F CLL TST
03 97 0 300 0806 0 0004 45 0000 CLB
03 98 0 301 0807 0 0000 10 4217 CAD LOCN
03 99 0 302 0808 0 0000 40 3449 STA LCHOD
04 00 0 303 0809 0 8142 21 0810 DBB *+1,9999-LBRT START AT LBRT+1
04 01 0 304 0810 0 0002 40 1441 *E STB I
04 02 0 305 0811 1 0000 10 0000 CAD - 0
004 03 0 306 0812 0 0001 33 0832 BSA A+,1
004 04 0 307 0813 0 0000 36 0834 BZA B+ END OF THIS PASS ON THE TABLE
004 05 0 308 0814 0 0010 40 3501 STA J,00
04 06 0 309 0815 0 6400 28 3501 DLB J,64,0
04 07 0 310 0816 1 0000 10 0000 CAD - 0
04 08 0 311 0817 0 1103 36 0832 BFA A+,11,3 IS THE ROUTINE ASSIGNED
04 09 0 312 0818 0 0000 42 1441 LDB I IF YES
04 10 0 313 0819 1 1210 26 0000 IFL - 0,12,10 MARK IT WITH A SIGN OF 1
04 11 0 314 0820 0 0000 30 0827 BUN C+
04 12 0 315 0821 0 6400 28 3501 *D DLB J,64,0
04 13 0 316 0822 1 0000 10 0000 CAD - 0
04 14 0 317 0823 0 1104 36 0827 BFA C+,11,4
04 15 0 318 0824 0 0001 26 3502 IFL TST,00,1 ASSIGN SUBROUTINE IF IT HAS NOT
004 16 0 319 0825 0 0000 44 1691 STP LIBRX ALREADY ASSIGNED, TST COUNTS NUMBER
004 17 0 320 0826 0 0000 30 1690 BUN LIBRF OF SUBROUTINES ASSIGNED ON THIS PASS
04 18 0 321 0827 0 0000 42 3501 *C LDB J THRU TABLE
04 19 0 322 0828 0 9999 20 0832 IBB A+,9999 SEQUENCE DOWN LIST OF REQUIRED
04 20 0 323 0829 1 0000 10 0001 CAD - 1 SUBROUTINES
04 21 0 324 0830 0 0000 40 3501 STA J
04 22 0 325 0831 0 0000 30 0821 BUN D-
04 23 0 326 0832 0 0000 42 1441 *A LDB I ADVANCE TO NEXT TABLE ENTRY
04 24 0 327 0833 0 0001 20 0810 IBB E-,1
004 25 0 328 0834 0 0000 42 3502 *B LDB TST IF 1 ADDITIONAL SUBROUTINE WAS ASSIGNED
004 26 0 329 0835 0 0001 21 0805 DBB F-,1 ANOTHER PASS THRU TABLE IS NECESSARY
04 29 0 332 0836 *E DEFN *
04 30 0 333 0836 0 4400 28 1120 *F DLB II,44,0
04 31 0 334 0837 1 0000 10 1857 CAD - LBRT
04 32 0 335 0838 0 0000 36 0891 BFA A+,00,0 END OF LIBRARY TABLE
004 33 0 336 0839 0 0001 33 0842 BSA B+,1 IF ENTRY WAS MARKED PROCESS THIS
04 34 0 337 0840 0 4401 26 1120 *C IFL II,44,1 ROUTINE
04 35 0 338 0841 0 0000 30 0836 BUN F-
04 36 0 339 0842 1 6400 28 1857 *B DLB - LBRT,64,0
004 37 0 340 0843 1 0000 10 0000 CAD - 0 GET OPERAND OF ROUTINE TO BE PROCESSED
004 38 0 341 0844 0 4400 28 0844 DLB *,44,0 POSITION TAPE TO BEGINNING OF ROUTINE
04 39 0 342 0845 4 2000 50 1120 MFS II,T
04 40 0 343 0846 0 6410 40 4217 STA LOCN,64 SETUP LOCATION COUNTER
04 41 0 344 0847 0 0000 49 0002 SLA 2
004 42 0 345 0848 0 4410 40 1122 STA MSK,44 AND MASK FOR RELOCATION OF INSTRUCTIONS
04 43 0 346 0849 0 0000 48 0006 SRA 6
04 44 0 347 0850 0 0410 40 1122 STA MSK,04
04 45 0 348 0851 0 0000 46 2217 CLL EQTAB-1 CLEAR EQUIVALENCE TABLE
04 46 0 349 0852 0 0000 42 3555 LDB +EQTAB
04 47 0 350 0853 0 0000 29 2217 RTF EQTAB-1,100
04 48 0 351 0854 0 0000 46 1121 CLL JJ
04 49 0 352 0855 0 0202 26 1121 IFL JJ,02,2
04 50 0 353 0856 4 2004 50 0000 MLS 4 T
04 51 0 354 0857 4 2000 59 0859 MIB 4 *+2,T
04 52 0 355 0858 0 0000 30 0857 BUN *-1
04 53 0 356 0859 4 2100 52 2318 MRD 4 BUFR,T,1
04 54 0 357 0860 0 0000 10 2318 CAD BUFR DID WE FIND THE RIGHT BLOCK
04 55 0 358 0861 0 0000 18 1120 CFA II
04 56 0 359 0862 0 0000 35 0872 BCE E+
04 57 0 360 0863 0 0030 09 3457 SPO SRERR,3
04 58 0 361 0864 0 9669 00 9669 F424 9669,0,9669
04 59 0 362 0865 0 0000 30 0842 BUN B-
04 60 0 363 0866 0 0000 46 1121 *G CLL JJ
04 61 0 364 0867 0 0202 26 1121 IFL JJ,02,2
04 62 0 365 0868 4 2004 50 0000 MLS 4 T
04 63 0 366 0869 4 2000 59 0871 MIB 4 *+2,T
04 64 0 367 0870 0 0000 30 0869 BUN *-1
04 65 0 368 0871 4 2100 52 2318 MRD 4 BUFR,T,1
04 66 0 369 0872 0 0000 42 0873 *E LDB *+1
04 67 0 370 0873 0 0001 45 0098 CLA 98
04 68 0 371 0874 1 0000 12 2319 ADD - BUFR+1
04 69 0 372 0875 0 0001 21 0874 DBB *-1,1 CHECK SUM
04 70 0 373 0876 0 0000 31 0877 BOF *+1
04 71 0 374 0877 0 0000 36 0882 BZA D+
04 72 0 375 0878 0 0040 09 3460 SPO CSERR,4
04 73 0 376 0879 0 9669 00 9669 F424 9669,0,9669
04 74 0 377 0880 4 2101 58 0000 MPB 4 T,1
04 75 0 378 0881 0 0000 30 0866 BUN G-
04 78 0 381 0882 0 0000 42 1121 *D LDB JJ
04 79 0 382 0883 1 0000 10 2317 CAD - BUFR-1
04 80 0 383 0884 0 0000 40 2160 STA INSTR
04 81 0 384 0885 0 0000 44 1458 STP LBSBX PROCESS INSTRUCTION IN BUFFER
04 82 0 385 0886 0 0000 30 1448 BUN LBSB
04 83 0 386 0887 0 0000 30 0840 BUN C- END OF LIBRARY PROCEDURE
04 84 0 387 0888 0 0201 26 1121 IFL JJ,02,1
04 85 0 388 0889 0 0000 31 0866 BOF G- END OF TAPE BLOCK
04 86 0 389 0890 0 0000 30 0882 BUN D-
04 89 0 392 0891 4 2000 59 0893 *A MIB 4 *+2,T
04 90 0 393 0892 0 0000 30 0891 BUN *-1
04 91 0 394 0893 4 2008 50 0000 MRW 4 T
04 92 0 395 0894 0 0001 45 0000 CLA EMIT AN END OF
004 93 0 396 0895 0 0008 43 0000 LSA 8 PROGRAM SIGNAL FOR LOADER
04 94 0 397 0896 0 0000 44 1733 STP FXUPX
04 95 0 398 0897 0 0000 30 1701 BUN FXUP
04 96 0 399 0898 0 0000 10 0100 CAD BUF+98
04 97 0 400 0899 0 0008 33 0901 BSA *+2,8
04 98 0 401 0900 0 0000 36 0903 BZA *+3
04 99 0 402 0901 0 0000 44 1733 STP WRITX DUMP BUFFER IF NOT EMPTY
05 00 0 403 0902 0 0000 30 1765 BUN WRIT5
05 01 0 404 0903 0 0000 10 3550 CAD +9999999999
05 02 0 405 0904 0 0000 40 0002 STA BUF OUTPUT A SENTINEL BLOCK
05 03 0 406 0905 0 0000 44 1733 STP WRITX
05 04 0 407 0906 0 0000 30 1765 BUN WRIT5
05 05 0 408 0907 4 1000 59 0909 MIB 4 *+2,OT
05 06 0 409 0908 0 0000 30 0907 BUN *-1
05 07 0 410 0909 4 1008 50 0000 MRW 4 OT
COMMENT
SEARCH FOR UNDEFINED LABELS AND EXTERNAL PROGRAMS
WORD= T LL SSSS LINK LL= LENGTH OF IDENTIFIER
T=2 FOR A NUMERIC LABLE
SSSS = V TR ASIGN 0000
SSSS+1= (FIRST FIVE CHARACTERS OF IDENTIFIER)
SSSS+2= (NEXT FIVE CHARACTERS)
WE ARE LOOKING FOR THE CASES
(T=9, ASIGN=0) OR (V=9, T=8,9, ASIGN=0)
05 20 0 423 0910 0 0000 42 0968 *E LDB Z+
05 21 0 424 0911 1 0000 10 4116 CAD - SCRTB GET HEAD OF STACK
05 22 0 425 0912 0 0000 40 0967 *D STA Y+
05 23 0 426 0913 0 6400 28 0967 DLB Y+,64,0
05 24 0 427 0914 0 9999 20 0925 IBB A+,9999 STACK HAS NO ENTRIES
05 25 0 428 0915 0 0000 31 0916 BOF *+1
05 26 0 429 0916 0 1290 26 0967 IFL Y+,12,90 SET OVERFLOW IF
05 27 0 430 0917 1 0000 10 0001 CAD - 1 OPERAND IS A NUMERIC LABEL
05 28 0 431 0918 0 0008 33 0943 BSA E+,8 EXTERNAL PROGRAM
05 29 0 432 0919 0 1109 36 0928 BFA B+,11,9 IS IT A LABEL
05 30 0 433 0920 0 0000 42 0967 *C LDB Y+ SEQUENCE DOWN STACK
05 31 0 434 0921 0 0000 41 3548 LDR +34353600
05 32 0 435 0922 0 0811 40 0941 STR CNST8,08
05 33 0 436 0923 1 0000 10 0000 CAD - 0
05 34 0 437 0924 0 1000 21 0912 DBB D-,1000 IF LINK IS LESS THAN 1000
05 35 0 438 0925 0 0201 27 0968 *A DFL Z+,02,1 SKIP TO NEXT STACK
05 36 0 439 0926 0 0000 32 0910 BRP E-
05 37 0 440 0927 0 0000 30 0969 BUN OUT END OF SCRAMBLE TABLE
05 38 0 441 0928 0 6400 36 0930 *B BFA *+2,64,0 HAS LABEL BEEN ASSIGNED
05 39 0 442 0929 0 0000 30 0920 BUN C-
05 40 0 443 0930 0 2211 27 0967 DFL Y+,22,11 SET REPEAT IF IDENTIFIER
05 41 0 444 0931 1 0000 10 0002 CAD - 2 IS LONGER THAN 5 CHARACTERS
05 42 0 445 0932 1 0000 41 0003 LDR - 3
5 43 0 446 0933 0 0003 43 0000 LSA 3
05 44 0 447 0934 0 0000 32 0936 BRP *+2
05 45 0 448 0935 0 0002 45 0000 CLR
05 46 0 449 0936 0 0000 31 0950 BOF NMBRL NUMERIC LABEL
05 47 0 450 0937 0 0000 40 1653 STA DICT+35
05 48 0 451 0938 0 0001 40 1654 STR DICT+36
05 49 0 452 0939 0 0000 44 1847 PRNT STP WEMX
05 50 0 453 0940 0 0000 30 1812 BUN WEM
05 51 0 454 0941 3 3234 35 3600 CNST8 CNST 33234353600 UNDIFENED LABEL (EXT PROGRAM) L
05 52 0 455 0942 0 0000 30 0920 BUN C-
05 53 0 456 0943 0 0000 31 0944 *E BOF *+1
05 54 0 457 0944 0 1108 36 0947 BFA *+3,11,8
05 55 0 458 0945 0 1289 36 0930 BFA B-+2,12,89
05 56 0 459 0946 0 0000 30 0920 BUN C-
05 57 0 460 0947 0 0000 41 3553 LDR +10123536
05 58 0 461 0948 0 0811 40 0941 STR CNST8,08
05 59 0 462 0949 0 0000 30 0928 BUN B-
05 62 0 465 0950 0 0000 43 0000 NMBRL LSA 0 CONVERT INTEGER
05 63 0 466 0951 0 0001 48 0010 SRT 10 TO ALFANUMERIC CODE
05 64 0 467 0952 0 0001 49 0001 *B SLT 1
05 65 0 468 0953 0 0000 12 3528 ADD +80
05 66 0 469 0954 0 1108 36 0957 BFA A+,11,8
05 67 0 470 0955 0 0000 49 0001 SLA 1
05 68 0 471 0956 0 0000 30 0952 BUN B-
05 69 0 472 0957 0 0000 40 1653 *A STA DICT+35
05 70 0 473 0958 0 1230 26 1653 IFL DICT+35,12,30
05 71 0 474 0959 0 0001 45 0000 CLA
05 72 0 475 0960 0 0001 49 0001 *B SLT 1
05 73 0 476 0961 0 0000 12 3528 ADD +80
05 74 0 477 0962 0 1108 36 0965 BFA A+,11,8
05 75 0 478 0963 0 0000 49 0001 SLA 1
05 76 0 479 0964 0 0000 30 0960 BUN B-
05 77 0 480 0965 0 0000 40 1654 *A STA DICT+36
05 78 0 481 0966 0 0000 30 0939 BUN PRNT
05 79 0 482 0967 0 0000 00 0000 *Y HLT 0 PRESENT OPERAND
05 80 0 483 0968 0 0000 00 0099 *Z HLT 99 STACK COUNT
05 83 0 486 0969 0 0000 10 3449 OUT CAD LCHOD
05 84 0 487 0970 0 6410 18 0202 CFA LCMAX,64
05 85 0 488 0971 0 0000 34 0973 BCH *+2
05 86 0 489 0972 0 0000 10 0202 CAD LCMAX
05 87 0 490 0973 0 0000 13 3525 SUB +10000
05 88 0 491 0974 0 0001 48 0008 SRT 8
05 89 0 492 0975 0 0000 31 0976 BOF *+1
05 90 0 493 0976 0 0001 45 0300 *B CLA 300
05 91 0 494 0977 0 0000 12 3549 *C ADD +8
05 92 0 495 0978 0 0001 49 0001 SLT 1
05 93 0 496 0979 0 0000 49 0001 SLA 1
05 94 0 497 0980 0 8101 27 0976 DFL B-,81,1
05 95 0 498 0981 0 0000 32 0977 BRP C-
05 96 0 499 0982 0 0000 49 0001 SLA 1
05 97 0 500 0983 0 0000 40 1653 STA DICT+35
05 98 0 501 0984 0 0000 10 0251 CAD VARB SET UP CONSTANTS
05 99 0 502 0985 0 0000 12 3532 ADD +1 IN ALFANUMERIC FORMAT
06 00 0 503 0986 0 0000 33 0988 BPA *+2
06 01 0 504 0987 0 0001 45 0000 CLA
06 02 0 505 0988 0 0001 48 0004 SRT 4
06 03 0 506 0989 0 0001 45 0003 *C CLA 3
6 04 0 507 0990 0 0000 12 3549 *B ADD +8
06 05 0 508 0991 0 0001 49 0001 SLT 1
06 06 0 509 0992 0 0000 49 0001 SLA 1
06 07 0 510 0993 0 0101 27 0989 DFL C-,01,1
06 08 0 511 0994 0 0000 32 0990 BRP B-
06 09 0 512 0995 0 0000 49 0001 SLA 1 IF NOT PCS(4)
06 10 0 513 0996 0 0000 40 1654 STA DICT+36 PRINT MESSAGES
06 11 0 514 0997 0 4000 38 1010 BCS A+,4
06 12 0 515 0998 0 0000 10 1654 CAD DICT+36
06 13 0 516 0999 0 8810 18 1653 CFA DICT+35,88
06 14 0 517 1000 0 0000 34 1004 BCH *+4
06 15 0 518 1001 0 0000 44 1847 STP WEMX
06 16 0 519 1002 0 0000 30 1812 BUN WEM
06 17 0 520 1003 3 6866 70 7147 CNST 36866707147
06 18 0 521 1004 0 0000 44 1847 STP WEMX
06 19 0 522 1005 0 0000 30 1814 BUN WEM+2
06 20 0 523 1006 3 4547 49 5036 CNST 34547495036 COMPILED PROGRAM ENDS AT XXXX
06 21 0 524 1007 0 0000 44 1847 STP WEMX
06 22 0 525 1008 0 0000 30 1814 BUN WEM+2
06 23 0 526 1009 3 4751 53 5037 CNST 34751535037 PROGRAM VARIABLES START AT XXXX
06 24 0 527 1010 0 0000 42 0292 *A LDB DUMBS
06 25 0 528 1011 0 0001 21 2474 DBB MONST,1 GO GENERATE SYMBOLIC DUMP
06 29 0 532 1012 0 0000 10 3450 LDBG CAD HALT
06 30 0 533 1013 0 3105 36 1017 BFA *+4,31,5
06 31 0 534 1014 4 0916 44 9898 STP 4 9898,0916
06 32 0 535 1015 4 2418 30 9898 BUN 4 9898,IFERR
06 33 0 536 1016 0 0000 30 1020 BUN *+4
06 34 0 537 1017 0 4000 38 1020 BCS *+3,4
06 35 0 538 1018 4 0916 44 9898 STP 4 9898,0916
006 36 0 539 1019 4 2164 30 9898 BUN 4 9898,ZERSS
06 38 0 541 1020 0 4400 28 3447 AGAIN DLB FIXUP,44,0 THE FIXUP STACK CONTAINS THE
06 39 0 542 1021 0 0000 44 2463 STP REMX FIX-UPS FOR CALLS OF EXTERNAL PROGRAMS
06 40 0 543 1022 0 0000 30 2460 BUN REM FROM WITHIN SEGMENTS
06 41 0 544 1023 0 0000 30 1106 XT001 BUN S+ STACK EMPTY
06 42 0 545 1024 0 0000 41 3556 LDR +POST A REWIND
06 43 0 546 1025 0 0411 40 1023 STR XT001,04 WILL BE NECESSARY
06 44 0 547 1026 0 0000 40 3495 STA HOLD
06 45 0 548 1027 0 6400 28 3495 DLB HOLD,64,0
06 46 0 549 1028 1 0000 10 0000 CAD - 0
06 47 0 550 1029 0 0000 40 3495 STA HOLD
06 48 0 551 1030 0 0000 48 0008 SRA 8
06 49 0 552 1031 0 0000 49 0004 SLA 4
06 50 0 553 1032 0 0000 40 3496 STA THROW
06 51 0 554 1033 0 0004 45 0000 CLB
06 52 0 555 1034 4 1000 50 3496 MTS MTS 4 THROW,OT SEARCH FOR PROPER SEGMENT
06 53 0 556 1035 4 1100 52 0100 MRD 4 100,OT,1
06 54 0 557 1036 0 0010 18 0100 CFA 100,00
06 55 0 558 1037 0 0000 35 1042 BCE RDT+1
06 56 0 559 1038 0 0030 09 3457 SPO SRERR,3
06 57 0 560 1039 0 9669 00 9669 F424 9669,0,9669
06 58 0 561 1040 0 0000 30 1034 BUN MTS TRY AGAIN
06 60 0 563 1041 4 1100 52 0100 RDT MRD 4 100,OT,1
06 61 0 564 1042 0 0001 45 0100 CLA 100
06 62 0 565 1043 0 0001 42 1042 LBC *-1
06 63 0 566 1044 1 0000 12 0200 *A ADD - 200
06 64 0 567 1045 1 0000 12 0201 ADD - 201
06 65 0 568 1046 1 0000 12 0202 ADD - 202
06 66 0 569 1047 1 0000 12 0203 ADD - 203
06 67 0 570 1048 1 0000 12 0204 ADD - 204
06 68 0 571 1049 0 0005 20 1044 IBB A-,5 CHECK SUM BLOCK
06 69 0 572 1050 0 0000 31 1051 BOF *+1
06 70 0 573 1051 0 0000 36 1055 BZA A+
06 71 0 574 1052 0 0040 09 3460 SPO CSERR,4
06 72 0 575 1053 0 9669 00 9669 F424 9669,0,9669
06 73 0 576 1054 0 0000 30 1053 BUN *-1
06 75 0 578 1055 0 0000 10 0101 *A CAD 101
06 76 0 579 1056 0 0004 33 1060 BSA B+,4 IN CASE IT IS NOT
06 77 0 580 1057 0 0000 41 3532 LDR +1 GET NEXT BLOCK
06 78 0 581 1058 0 0211 40 1055 STR A-,02
06 79 0 582 1059 0 0000 30 1041 BUN RDT
06 82 0 585 1060 0 0000 40 1102 *B STA T+ CAN THE FIX-UP BE
06 83 0 586 1061 0 0000 49 0004 SLA 4 IN THIS GROUP OF INSTRUCTIONS
06 84 0 587 1062 0 6410 18 3495 CFA HOLD,64
06 85 0 588 1063 0 0001 34 1071 BCL Y+ YES
06 86 0 589 1064 0 0000 35 1071 BCE Y+
06 87 0 590 1065 0 0000 10 1102 *W CAD T+ NO - TRY NEXT GROUP
06 88 0 591 1066 0 0000 48 0001 SRA 1
06 89 0 592 1067 0 4210 40 1068 STA *+1,42
06 90 0 593 1068 0 0200 26 1055 IFL A-,02,0
06 91 0 594 1069 0 0201 26 1055 IFL A-,02,1 GET NEXT RTF
06 92 0 595 1070 0 0000 30 1055 BUN A-
06 94 0 597 1071 0 0000 10 1102 *Y CAD T+
06 95 0 598 1072 0 0000 48 0007 SRA 7
06 96 0 599 1073 0 0000 12 1102 ADD T+
06 97 0 600 1074 0 0000 49 0004 SLA 4
06 98 0 601 1075 0 6410 18 3495 CFA HOLD,64 IS THE FIX-UP IN THIS GROUP
06 99 0 602 1076 0 0000 34 1078 BCH F+
07 00 0 603 1077 0 0000 30 1065 BUN W- NO
07 02 0 605 1078 4 1101 58 0000 *F MPB 4 OT,1
07 03 0 606 1079 0 0000 11 3495 CSU HOLD
07 04 0 607 1080 0 0000 48 0004 SRA 4
07 05 0 608 1081 0 0000 17 3539 EXT -1111
07 06 0 609 1082 0 0000 19 1102 ADL T+ DO ACTUAL FIX-UP IN
07 07 0 610 1083 0 0000 10 1055 CAD A- THE BUFFER
07 08 0 611 1084 0 0001 42 1102 LBC T+
07 09 0 612 1085 0 0410 40 1088 STA A+,04
07 10 0 613 1086 0 9999 21 1087 DBB *+1,9999
07 11 0 614 1087 0 0000 41 3495 LDR HOLD
07 12 0 615 1088 1 0411 40 0000 *A STR - 0,04
07 13 0 616 1089 0 0001 45 0100 CLA 100
07 14 0 617 1090 0 0001 42 1089 LBC *-1
07 15 0 618 1091 0 0000 46 0199 CLL 199
07 16 0 619 1092 1 0000 13 0200 *A SUB - 200
07 17 0 620 1093 1 0000 13 0201 SUB - 201
07 18 0 621 1094 1 0000 13 0202 SUB - 202
07 19 0 622 1095 1 0000 13 0203 SUB - 203
07 20 0 623 1096 1 0000 13 0204 SUB - 204
07 21 0 624 1097 0 0005 20 1092 IBB A-,5
07 22 0 625 1098 0 0000 31 1099 BOF *+1
07 23 0 626 1099 0 0000 40 0199 STA 199
07 24 0 627 1100 4 1100 56 0100 MOW 4 100,OT,1
07 25 0 628 1101 0 0000 30 1020 BUN AGAIN
07 26 0 629 1102 0 0000 00 0000 *T HLT 0
07 28 0 631 1103 4 1000 59 1105 POST MIB 4 *+2,OT
07 29 0 632 1104 0 0000 30 1103 BUN *-1
07 30 0 633 1105 4 1008 50 0000 MRW 4 OT
07 31 0 634 1106 0 0004 45 0000 *S CLB
07 32 0 635 1107 0 0000 29 0400 RTF SX,100
07 33 0 636 1108 0 0000 29 0500 RTF SX+100,100
07 34 0 637 1109 0 0000 29 0600 RTF SX+200,100
07 35 0 638 1110 4 1000 59 1112 MIB 4 *+2,OT
07 36 0 639 1111 0 0000 30 1110 BUN *-1
07 37 0 640 1112 4 1300 56 0000 MOW 4 0,OT,3
07 38 0 641 1113 0 0000 10 3450 CAD HALT
07 39 0 642 1114 0 4000 38 1118 BCS A+,4 IF NOT PCS(4)
07 40 0 643 1115 0 0000 40 1116 *B STA *+1 HALT WITH OK OR XX IN A
07 41 0 644 1116 0 0000 00 0000 HLT 0
07 42 0 645 1117 0 0000 30 0233 BUN LOADC
07 43 0 646 1118 0 3102 36 1115 *A BFA B-,31,2 IF PCS(4) HALT ONLY IF XX
07 44 0 647 1119 0 0000 30 0233 BUN LOADC
07 45 0 648 1120 0 0001 00 0000 II CNST 1000000 LIBRARY INDEX NUMBER
07 46 0 649 1121 0 0000 00 0000 JJ HLT 0 TEMP
07 47 0 650 1122 0 0000 00 0000 MSK HLT 0 RELOCATION MASK FOR INSTRUCTIONS
PROCESS EXTERNAL PROGRAMS
07 52 0 655 1123 0 0000 10 4217 EXTP CAD LOCN
07 53 0 656 1124 0 0000 18 0202 CFA LCMAX
07 54 0 657 1125 0 0000 34 1127 BCH *+2
07 55 0 658 1126 0 0000 10 0202 CAD LCMAX
07 56 0 659 1127 0 0000 40 4217 STA LOCN LOCN=MAX(LCMAX,LOCN)
07 57 0 660 1128 0 0000 46 2217 NAME CLL EQTAB-1
07 58 0 661 1129 0 0000 42 3555 LDB +EQTAB CLEAR EQUIVALENCE TABLE
07 59 0 662 1130 0 0000 29 2217 RTF EQTAB-1,100
07 60 0 663 1131 0 0000 46 2437 CLL LEVEL
007 61 0 664 1132 0 0000 44 1358 *Z STP READX READ NAME CARD OF EXTERNAL PROGRAM
07 62 0 665 1133 0 0000 30 1351 BUN READ
07 63 0 666 1134 0 0000 10 4217 CAD LOCN
07 64 0 667 1135 0 0000 40 2200 STA CRD-1
07 65 0 668 1136 0 0000 10 2201 CAD CRD
07 66 0 669 1137 0 0002 33 1142 BSA A+,2
07 67 0 670 1138 0 0000 44 1847 STP WEMX
07 68 0 671 1139 0 0000 30 1812 BUN WEM
07 69 0 672 1140 0 3060 80 9000 CNST 3060809000 MISSING NAME CARD
07 70 0 673 1141 0 0000 30 1132 BUN Z-
07 71 0 674 1142 0 3000 38 1144 *A BCS *+2,3
07 72 0 675 1143 0 4000 38 1146 BCS *+3,4
07 73 0 676 1144 4 1602 44 9898 STP 4 9898,1602
07 74 0 677 1145 4 2201 30 9898 BUN 4 9898,CRD
07 75 0 678 1146 0 0000 44 1429 *A STP SCANX
07 76 0 679 1147 0 0000 30 1359 BUN SCAN
07 77 0 680 1148 0 0000 10 2427 CAD SYMBL
07 78 0 681 1149 0 0010 18 3535 CFA $FINIS$,00
07 79 0 682 1150 0 0001 35 1155 BCU *+5
07 80 0 683 1151 0 0000 10 2428 CAD SYMBL+1
07 81 0 684 1152 0 0010 18 3543 CFA $H$,00
07 82 0 685 1153 0 0000 35 1153 EXTEX BCE *
07 83 0 686 1154 0 0000 10 2427 CAD SYMBL
07 84 0 687 1155 0 0002 33 1180 BSA B+,2 IS THIS A PREFIX
07 85 0 688 1156 0 0001 48 0010 SRT 10
07 86 0 689 1157 0 0000 15 3552 DIV +99
07 87 0 690 1158 0 0001 40 2161 STR LL0
07 88 0 691 1159 0 0000 10 2437 CAD LEVEL
07 89 0 692 1160 0 0000 44 1811 STP SRCHX SEARCH FOR SYMBOL
07 90 0 693 1161 0 0000 30 1785 BUN SRCH
07 91 0 694 1162 0 0000 30 1176 BUN Y+ COULD NOT FIND IT
07 92 0 695 1163 0 0000 10 2157 CAD L
07 93 0 696 1164 0 0000 49 0002 SLA 2
007 94 0 697 1165 0 4410 40 2217 STA EQTAB-1,44 PUT LOCATION OF OPERAND OF THE EXTERNAL
07 95 0 698 1166 0 0000 10 4217 CAD LOCN PROGRAM INTO EQTAB-1
07 96 0 699 1167 0 0000 48 0004 SRA 4
07 97 0 700 1168 0 0410 40 2217 STA EQTAB-1,04 ALSO THE ASSIGNMENT
07 98 0 701 1169 0 0410 40 1122 STA MSK,04
07 99 0 702 1170 0 0000 49 0006 SLA 6
08 00 0 703 1171 0 4410 40 1122 STA MSK,44 SET UP A MASK FOR RELOCATION
08 01 0 704 1172 0 6400 28 2157 DLB L,64,0 OF INSTRUCTIONS
08 02 0 705 1173 1 0000 10 0000 CAD - 0
08 03 0 706 1174 0 1109 36 1196 BFA C+,11,9 EXTERNAL STATEMENT
08 04 0 707 1175 0 1108 36 1229 BFA E+,11,8 EXTERNAL PROCEDURE
08 05 0 708 1176 0 0000 44 1847 *Y STP WEMX
08 06 0 709 1177 0 0000 30 1812 BUN WEM
08 07 0 710 1178 3 1047 14 1500 CNST 31047141500 EXTERNAL PROGRAM NOT DECLARED
08 08 0 711 1179 0 0000 30 1278 BUN A+
08 09 0 712 1180 0 0001 48 0010 *B SRT 10
08 10 0 713 1181 0 0000 15 3552 DIV +99
08 11 0 714 1182 0 0001 40 2161 STR LL0
08 12 0 715 1183 0 0001 45 0000 CLA
008 13 0 716 1184 0 0000 44 1811 STP SRCHX SEARCH FOR OPERAND OF PREFIX PROCEDURE
08 14 0 717 1185 0 0000 30 1785 BUN SRCH
08 15 0 718 1186 0 0000 30 1190 BUN F+
08 16 0 719 1187 0 6400 28 2157 DLB L,64,0
08 17 0 720 1188 1 0000 10 0000 CAD - 0
08 18 0 721 1189 0 1108 36 1194 BFA B+,11,8 DID WE GET A PROCEDURE
08 19 0 722 1190 0 0000 44 1847 *F STP WEMX
08 20 0 723 1191 0 0000 30 1812 BUN WEM
08 21 0 724 1192 3 1712 14 1500 CNST 31712141500 PREFIX PROCEDURE NOT DECLARED
08 22 0 725 1193 0 0000 30 1146 BUN A-
08 23 0 726 1194 0 0210 40 2437 *B STA LEVEL,02
08 24 0 727 1195 0 0000 30 1146 BUN A-
08 27 0 730 1196 0 6400 28 2157 *C DLB L,64,0
08 28 0 731 1197 1 0000 10 0000 CAD - 0
08 29 0 732 1198 0 0000 40 3495 STA HOLD
08 30 0 733 1199 0 0000 49 0002 SLA 2
08 31 0 734 1200 0 4410 40 2217 STA EQTAB-1,44
08 32 0 735 1201 0 0000 44 2463 STP REMX
08 33 0 736 1202 0 0000 30 2460 BUN REM
08 34 0 737 1203 0 0000 00 0000 HLT
08 35 0 738 1204 0 0000 49 0004 SLA 4
08 36 0 739 1205 0 2210 40 3495 STA HOLD,22
08 37 0 740 1206 0 0000 10 3495 CAD HOLD
08 38 0 741 1207 0 2200 36 1225 BFA S+,22,00
08 39 0 742 1208 0 0000 17 3541 EXT +1111110000
008 40 0 743 1209 0 0000 49 0004 SLA 4 IT WAS - SO ENTER INTO THE FIXUP STACK
08 41 0 744 1210 0 0000 12 4217 ADD LOCN
08 42 0 745 1211 0 0000 49 0006 SLA 6 LL XXXX YYYY
08 43 0 746 1212 0 0000 40 3495 STA HOLD
008 44 0 747 1213 0 0000 42 2439 LDB AVALE WHERE LL= SEGMENT NUMBER
008 45 0 748 1214 0 0000 44 2448 STP INSX XXXX= LOCATION TO BE FIXED UP
08 46 0 749 1215 0 0000 30 2438 BUN INS YYYY= FIX-UP
08 47 0 750 1216 0 0000 10 3495 CAD HOLD
08 48 0 751 1217 1 0000 40 0000 STA - 0
08 49 0 752 1218 0 0002 40 3495 STB HOLD
08 50 0 753 1219 0 0000 10 3495 CAD HOLD
08 51 0 754 1220 0 0000 49 0004 SLA 4
08 52 0 755 1221 0 4400 28 3447 DLB FIXUP,44,0
08 53 0 756 1222 0 0000 44 2448 STP INSX
08 54 0 757 1223 0 0000 30 2438 BUN INS
08 55 0 758 1224 0 0000 30 1228 BUN *+4
08 56 0 759 1225 0 0000 43 0000 *S LSA 0
08 57 0 760 1226 0 0000 44 1733 STP FXUPX GENERATE FIX-UP FOR EXTERNAL
08 58 0 761 1227 0 0000 30 1701 BUN FXUP STATEMENT
08 59 0 762 1228 0 6400 28 2157 DLB L,64,00
08 62 0 765 1229 0 0000 44 2463 *E STP REMX REMOVE NEXT FIX-UP FROM LIST OF
008 63 0 766 1230 0 0000 30 2460 BUN REM ALL CALLS OF THE DECLARED PROCEDURE
08 64 0 767 1231 0 0000 30 1272 BUN D+ LIST IS EXHAUSTED
08 65 0 768 1232 0 0008 33 1256 BSA T+,8
008 66 0 769 1233 0 2200 36 1252 BFA S+,22,0 IS FIX-UP FOR CALL WITHIN A SEGMENT
08 67 0 770 1234 0 0000 17 3541 EXT +1111110000
08 68 0 771 1235 0 0000 49 0004 SLA 4 IT WAS -- SO ENTER
08 69 0 772 1236 0 0000 12 4217 ADD LOCN LL XXXX YYYY
08 70 0 773 1237 0 0000 49 0006 SLA 6 WHERE LL= SEGMENT NUMBER
008 71 0 774 1238 0 0000 40 3495 STA HOLD XXXX= LOCATION TO BE FIXED UP
08 72 0 775 1239 0 0000 42 2439 LDB AVALE YYYY= FIX-UP
08 73 0 776 1240 0 0000 44 2448 STP INSX
08 74 0 777 1241 0 0000 30 2438 BUN INS
08 75 0 778 1242 0 0000 10 3495 CAD HOLD
08 76 0 779 1243 1 0000 40 0000 STA - 0
08 77 0 780 1244 0 0002 40 3495 STB HOLD
08 78 0 781 1245 0 0000 10 3495 CAD HOLD
08 79 0 782 1246 0 0000 49 0004 SLA 4
08 80 0 783 1247 0 4400 28 3447 DLB FIXUP,44,0
08 81 0 784 1248 0 0000 44 2448 STP INSX
08 82 0 785 1249 0 0000 30 2438 BUN INS
08 83 0 786 1250 0 6400 28 2157 DLB L,64,0
08 84 0 787 1251 0 0000 30 1229 BUN E-
08 85 0 788 1252 0 0000 44 1733 *S STP FXUPX GENERATE FIX-UP FOR EXTERNAL
08 86 0 789 1253 0 0000 30 1701 BUN FXUP PROCEDURE
08 87 0 790 1254 0 6400 28 2157 DLB L,64,0
08 88 0 791 1255 0 0000 30 1229 BUN E-
08 89 0 792 1256 0 0000 40 3495 *T STA HOLD
08 90 0 793 1257 0 6400 28 2157 DLB L,64,0
08 91 0 794 1258 0 0000 44 2463 STP REMX
08 92 0 795 1259 0 0000 30 2460 BUN REM
08 93 0 796 1260 0 0000 00 0000 HLT
08 94 0 797 1261 0 0000 17 3534 EXT +11110000
08 95 0 798 1262 0 0000 41 4217 LDR LOCN
08 96 0 799 1263 0 0000 19 4217 ADL LOCN
08 97 0 800 1264 0 0001 11 3495 CSA HOLD
08 98 0 801 1265 0 0001 40 3495 STR HOLD
08 99 0 802 1266 0 0000 44 1733 STP FXUPX
09 00 0 803 1267 0 0000 30 1701 BUN FXUP
09 01 0 804 1268 0 6400 28 2157 DLB L,64,0
09 02 0 805 1269 0 0000 41 3495 LDR HOLD
09 03 0 806 1270 0 0001 40 4217 STR LOCN
09 04 0 807 1271 0 0000 30 1229 BUN E-
09 05 0 808 1272 0 6400 28 2157 *D DLB L,64,0
09 06 0 809 1273 1 0000 10 0000 CAD - 0 SET SIGN TO 8 TO INDICATE
09 07 0 810 1274 0 0000 43 0000 LSA 0 THAT EXTERNAL PROGRAM HAS BEEN
09 08 0 811 1275 1 0000 40 0000 STA - 0 GIVEN AN ASSIGNMENT
009 09 0 812 1276 0 0000 10 4217 CAD LOCN GIVE ASSIGNMENT TO THE EXTERNAL PROGRAM
09 10 0 813 1277 1 6410 40 0000 STA - 0,64
09 11 0 814 1278 0 0000 44 1358 *A STP READX READ ANOTHER CARD
09 12 0 815 1279 0 0000 30 1351 BUN READ
09 13 0 816 1280 0 0000 46 2437 CLL LEVEL
09 14 0 817 1281 0 0000 10 2201 CAD CRD
09 15 0 818 1282 0 0000 33 1334 BSA NUMB,0 IS THIS AN EQUIVALENCE CARD
09 16 0 819 1283 0 3000 38 1285 BCS *+2,3
09 17 0 820 1284 0 4000 38 1287 BCS *+3,4
09 18 0 821 1285 4 1602 44 9898 STP 4 9898,1602
09 19 0 822 1286 4 2201 30 9898 BUN 4 9898,CRD
09 20 0 823 1287 0 0000 44 1429 *B STP SCANX IF YES SCAN FOR THE IDENTIFIER
09 21 0 824 1288 0 0000 30 1359 BUN SCAN
09 22 0 825 1289 0 0000 10 2427 CAD SYMBL
09 23 0 826 1290 0 0002 33 1322 BSA Z+,2 IS THE IDENTIFIER A PREFIX
09 24 0 827 1291 0 0001 48 0010 SRT 10 NO IT IS NOT
09 25 0 828 1292 0 0000 15 3552 DIV +99
09 26 0 829 1293 0 0001 40 2161 STR LL0
09 27 0 830 1294 0 0000 10 2437 CAD LEVEL
09 28 0 831 1295 0 0000 44 1811 STP SRCHX
09 29 0 832 1296 0 0000 30 1431 BUN SRCHP SEARCH FOR OPERAND
09 30 0 833 1297 0 0000 30 1318 BUN Y+ IT WAS NOT DEFINED
09 31 0 834 1298 0 0000 44 1691 STP LIBRX
09 32 0 835 1299 0 6400 28 2157 DLB L,64,0
09 33 0 836 1300 1 0000 10 0000 CAD - 0
09 34 0 837 1301 0 0008 33 1303 BSA *+2,8
09 35 0 838 1302 0 0000 43 0000 LSA 0
09 36 0 839 1303 0 0000 48 0004 SRA 4
09 37 0 840 1304 0 0000 40 2174 STA TEMP GET THE ASSIGNMENT OF THE
09 38 0 841 1305 0 6612 40 2174 STB TEMP,66 REFERENCED IDENTIFIER
09 39 0 842 1306 0 6212 26 2174 IFL TEMP,62,12
09 40 0 843 1307 0 5103 36 1690 BFA LIBRF,51,3 IF IT WAS AN UNASSIGNED LIBRARY
PROCEDURE- GIVE IT AN ASSIGNMENT
09 42 0 845 1308 0 0000 10 2157 CAD L
09 43 0 846 1309 0 0000 49 0002 SLA 2
009 44 0 847 1310 0 4410 40 2174 STA TEMP,44 ALSO SAVE THE SREF OF THE IDENTIFIER
09 45 0 848 1311 0 0000 44 1429 STP SCANX
09 46 0 849 1312 0 0000 30 1359 BUN SCAN
09 47 0 850 1313 0 0000 42 2427 LDB SYMBL GET EQUIVALENCE NUMBER
09 48 0 851 1314 0 0100 21 1318 DBB Y+,100 IS IT GREATED THEN 100
09 49 0 852 1315 0 0000 10 2174 CAD TEMP
09 50 0 853 1316 1 0000 40 2318 STA - EQTAB+100 PUT ENTRY INTO EQUIVALENCE TABLE
09 51 0 854 1317 0 0000 30 1278 BUN A-
09 52 0 855 1318 0 0000 44 1847 *Y STP WEMX
09 53 0 856 1319 0 0000 30 1812 BUN WEM
09 54 0 857 1320 3 1921 09 0000 CNST 31921090000 IMPROPER EQUIVALENCE CARD
09 55 0 858 1321 0 0000 30 1278 BUN A-
09 56 0 859 1322 0 0001 48 0010 *Z SRT 10
09 57 0 860 1323 0 0000 15 3552 DIV +99
09 58 0 861 1324 0 0001 40 2161 STR LL0
09 59 0 862 1325 0 0001 45 0000 CLA
09 60 0 863 1326 0 0000 44 1811 STP SRCHX GET OPERAND OF PREFIX PROCEDURE
09 61 0 864 1327 0 0000 30 1785 BUN SRCH
09 62 0 865 1328 0 0000 30 1318 BUN Y- IT WAS NOT THERE
09 63 0 866 1329 0 6400 28 2157 DLB L,64,0
09 64 0 867 1330 1 0000 10 0000 CAD - 0
09 65 0 868 1331 0 0210 40 2437 STA LEVEL,02 SET UP LEVEL FOR SEARCH OF PROCEDURE
009 66 0 869 1332 0 1108 36 1287 BFA B-,11,8
09 67 0 870 1333 0 0000 30 1318 BUN Y-
09 70 0 873 1334 0 0101 27 2209 NUMB DFL CRD+8,01,1 DECREASE WORD COUNT
09 71 0 874 1335 0 0000 42 2201 *A LDB CRD
09 72 0 875 1336 1 0000 10 2211 CAD - CRD+10
09 73 0 876 1337 0 0000 40 2160 STA INSTR GET INSTRUCTION
09 74 0 877 1338 0 0000 44 1458 STP LBSBX
09 75 0 878 1339 0 0000 30 1448 BUN LBSB GO DECODE INSTRUCTION
009 76 0 879 1340 0 0000 30 1128 BUN NAME ALL THROUGH WITH THIS EXTERNAL PROGRAM
09 77 0 880 1341 0 0401 26 2201 IFL CRD,04,1
09 78 0 881 1342 0 0101 27 2209 DFL CRD+8,01,1 DECREASE WORD COUNT
09 79 0 882 1343 0 0000 32 1335 BRP A-
09 80 0 883 1344 0 0000 44 1358 STP READX READ ANOTHER CARD
09 81 0 884 1345 0 0000 30 1351 BUN READ
09 82 0 885 1346 0 0000 10 2201 CAD CRD
09 83 0 886 1347 0 0000 33 1334 BSA NUMB,0 IS THIS A INSTRUCTION CARD
09 84 0 887 1348 0 0000 44 1847 STP WEMX IF NOT PRINT ERROR MESSAGE
09 85 0 888 1349 0 0000 30 1812 BUN WEM
09 86 0 889 1350 3 0624 26 0000 CNST 30624260000 MISSING FINISH PSEUDO-OP
09 89 0 892 1351 0 0000 46 2201 READ CLL CRD
09 90 0 893 1352 0 0000 42 3557 LDB +CRD+1
09 91 0 894 1353 0 0150 29 2201 RTF CRD,15 ZERO INPUT AREA
09 92 0 895 1354 0 0000 46 2162 CLL SCNCT SET SCAN TO COLUMN 2
09 93 0 896 1355 0 0402 26 2162 IFL SCNCT,04,2 AND
09 94 0 897 1356 4 0000 44 9999 STP 4 9999
09 95 0 898 1357 4 2201 30 9999 BUN 4 9999,CRD
09 96 0 899 1358 0 0000 30 1358 READX BUN *
09 99 0 902 1359 0 0000 46 2158 SCAN CLL K
010 00 0 903 1360 0 0000 46 2427 CLL SYMBL ZERO SYMBOL STORAGE AREA
010 01 0 904 1361 0 0000 42 3558 LDB +SYMBL+1
010 02 0 905 1362 0 0090 29 2427 RTF SYMBL,9
010 03 0 906 1363 0 9400 28 2162 *A DLB SCNCT,94,0
010 04 0 907 1364 1 0000 10 2201 CAD - CRD
010 05 0 908 1365 0 0000 42 2162 LDB SCNCT
010 06 0 909 1366 1 0000 49 0000 SLA - 0 GET A CHARACTER
010 07 0 910 1367 0 0000 48 0008 SRA 8 ADVANCE COLUMN COUNT
010 08 0 911 1368 0 0502 26 2162 IFL SCNCT,05,2
010 09 0 912 1369 0 0000 40 2163 STA CHAR
010 10 0 913 1370 0 0200 36 1378 BFA B+,02,00 IGNORE LEADING BLANKS
010 11 0 914 1371 0 0224 36 1377 BFA C+,02,24 INDICATES THAT A PREFIX FOLLOWS
010 12 0 915 1372 0 9108 36 1413 BFA N+,91,8 FIRST CHARACTER NUMERIC, DO NUMBER SCAN
010 13 0 916 1373 0 9104 36 1383 BFA R+,91,4 FIRST CHARACTER ALFA, BUILD IDENTIFIER
010 14 0 917 1374 0 9105 36 1383 BFA R+,91,5
010 15 0 918 1375 0 9106 36 1383 BFA R+,91,6
010 16 0 919 1376 0 0000 30 1378 BUN B+ IGNORE ALL OTHER CHARACTERS
010 17 0 920 1377 0 1220 26 2427 *C IFL SYMBL,12,20
010 18 0 921 1378 0 9840 20 1363 *B IBB A-,9840 DID WE FINISH THE CARD
010 19 0 922 1379 0 0000 44 1847 *D STP WEMX
010 20 0 923 1380 0 0000 30 1812 BUN WEM
010 21 0 924 1381 3 0628 29 5809 CNST 30628295809 MISSING FIELD ON SYMBOLIC CARD
010 22 0 925 1382 0 0000 30 1426 BUN SCNXX
010 25 0 928 1383 0 0001 42 2158 *R LBC K ENTER CHARACTER
010 26 0 929 1384 1 0000 49 0008 SLA - 8 INTO SYMBOL STORAGE AREA
010 27 0 930 1385 0 9400 28 2158 DLB K,94,0
010 28 0 931 1386 0 0010 21 1390 DBB *+4,10 TRUNCATE IDENTIFIER TO 50 CHARACTERS
010 29 0 932 1387 1 0000 12 2437 ADD - SYMBL+10
010 30 0 933 1388 1 0010 40 2437 STA - SYMBL+10,00
010 31 0 934 1389 0 0502 26 2158 IFL K,05,2
010 32 0 935 1390 0 9400 28 2162 DLB SCNCT,94,0
010 33 0 936 1391 1 0000 10 2201 CAD - CRD
010 34 0 937 1392 0 0000 42 2162 LDB SCNCT
010 35 0 938 1393 1 0000 49 0000 SLA - 0
010 36 0 939 1394 0 0000 48 0008 SRA 8 GET NEXT CHARACTER
010 37 0 940 1395 0 0000 40 2163 STA CHAR
010 38 0 941 1396 0 0502 26 2162 IFL SCNCT,05,2
010 39 0 942 1397 0 0162 21 1379 DBB D-,162 DID WE FINISH THE CAR(IF SO-ERROR)
010 40 0 943 1398 0 0210 18 3527 CFA +40,02 IS THE NEW CHARACTER
010 41 0 944 1399 0 0000 34 1383 BCH R- AN ALFANUMERIC
010 42 0 945 1400 0 0214 36 1383 BFA R-,02,14
010 43 0 946 1401 0 0000 10 2427 CAD SYMBL
010 44 0 947 1402 0 0000 33 1426 BSA SCNXX,0 TERMINATE IF OTHER CHARACTER IS FOUND
010 45 0 948 1403 0 0000 10 2163 CAD CHAR AND WE ARE NOT SCANING A PREFIX
010 46 0 949 1404 0 0204 36 1426 *E BFA SCNXX,02,04 TERMINATE A PREFIX SOON AS WE GET A )
010 47 0 950 1405 0 9400 28 2162 DLB SCNCT,94,0
010 48 0 951 1406 1 0000 10 2201 CAD - CRD
010 49 0 952 1407 0 0000 42 2162 LDB SCNCT
010 50 0 953 1408 1 0000 49 0000 SLA - 0
010 51 0 954 1409 0 0000 48 0008 SRA 8
010 52 0 955 1410 0 0502 26 2162 IFL SCNCT,05,02 CONTINUE LOOKING FOR A )
010 53 0 956 1411 0 9838 20 1404 IBB E-,9838
010 54 0 957 1412 0 0000 30 1379 BUN D- IF WE DO NOT FIND IT ERROR
010 57 0 960 1413 0 0001 48 0001 *N SRT 1
010 58 0 961 1414 0 0000 10 2427 CAD SYMBL
010 59 0 962 1415 0 0001 49 0001 SLT 1
010 60 0 963 1416 0 0000 40 2427 STA SYMBL NUMBER BUILDER
010 61 0 964 1417 0 9400 28 2162 DLB SCNCT,94,0
010 62 0 965 1418 1 0000 10 2201 CAD - CRD
010 63 0 966 1419 0 0000 42 2162 LDB SCNCT
010 64 0 967 1420 0 0402 26 2162 IFL SCNCT,04,2
010 65 0 968 1421 1 0000 49 0000 SLA - 0
010 66 0 969 1422 0 0000 48 0008 SRA 8
010 67 0 970 1423 0 9108 36 1413 BFA N-,91,8
010 68 0 971 1424 0 0000 10 1430 CAD NTAG SET LENGTH COUNT TO 10
010 69 0 972 1425 0 0000 40 2158 STA K AND MARK AS A NUMERIC LABEL
010 70 0 973 1426 0 0000 10 2158 SCNXX CAD K
010 71 0 974 1427 0 0000 49 0008 SLA 8
010 72 0 975 1428 0 0000 40 2159 STA D2D3 SET UP LENGTH
010 73 0 976 1429 0 0000 30 1429 SCANX BUN *
010 74 0 977 1430 2 0000 00 0010 NTAG CNST 20000000010
010 77 0 980 1431 0 0200 36 1433 SRCHP BFA A+,02,00 IF AN EQUIVALENCE CARD ENTRY IS
010 78 0 981 1432 0 0000 30 1785 BUN SRCH AT LEVEL ZERO AND HAS LENGTH
010 79 0 982 1433 0 0000 41 2158 *A LDR K LESS THAN 10 -- IT MAY BE
010 80 0 983 1434 0 0311 18 3526 CFR +10,03 IN THE LIST OF SPECIAL LIBRARY
010 81 0 984 1435 0 0000 34 1785 BCH SRCH SUBROUTINES
010 82 0 985 1436 0 0000 42 1441 LDB I
010 83 0 986 1437 0 0000 10 2427 CAD SYMBL
010 84 0 987 1438 1 0010 18 2175 *C CFA - EXLBT,00
010 85 0 988 1439 0 0000 35 1443 BCE B+
010 86 0 989 1440 0 0002 21 1438 DBB C-,2
010 87 0 990 1441 0 0001 45 0024 I CLA 24
010 88 0 991 1442 0 0000 30 1785 BUN SRCH IT IS NOT SO DO NORMAL SEARCH
010 89 0 992 1443 1 0000 10 2176 *B CAD - EXLBT+1 I FOUND IT
010 90 0 993 1444 0 6410 40 2157 STA L,64 SET UP L TO POINT TO THE OPERAND
010 91 0 994 1445 0 0000 42 1811 LDB SRCHX
010 92 0 995 1446 1 0000 30 0001 BUN - 1 INCREMENTED EXIT
PROCESSING SUBROUTINE FOR INSTRUCTINS
IN THE LIBRARY AND EXTERNAL PROGRAMS
010 97 0 1000 1447 7 0000 00 0000 *A F4247 0,0,0
010 98 0 1001 1448 0 0000 01 1448 LBSB NOP * NOP-BUN SWITCH (SEE WHY BELOW)
010 99 0 1002 1449 0 0000 18 1447 CFA A-
011 00 0 1003 1450 0 0001 34 1570 BCL Z+ INSTRUCTION IS ABSOLUTE
011 01 0 1004 1451 0 6290 36 1548 BFA Y+,62,90 PARTIAL FIELD SCAN INSTRUCTION
011 02 0 1005 1452 0 6291 36 1548 BFA Y+,62,91 PARTIAL FIELD SEARCH INSTRUCTION
011 03 0 1006 1453 0 0008 33 1498 BSA A+,8 ADDRESS PROGRAM RELATIVE
011 04 0 1007 1454 0 0009 33 1498 BSA A+,9 ADDRESS PROGRAM RELATIVE - B MOD
011 05 0 1008 1455 0 0007 33 1504 BSA B+,7 CONTROL FIELD PROGRAM RELATIVE
011 06 0 1009 1456 0 0006 33 1510 BSA C+,6 ADDRESS IDENTIFIER RELATIVE
011 07 0 1010 1457 0 0005 33 1511 BSA D+,5 ADDRESS IDENTIFIER RELATIVE - B MOD
011 08 0 1011 1458 0 6299 36 1458 LBSBX BFA *,62,99 EXIT IF FINISH PSEUDO-OP IS FOUND
011 09 0 1012 1459 0 6230 36 1582 BFA E+,62,30 RETURN FOR AN EXTERNAL STATEMENT
011 10 0 1013 1460 0 6200 36 1586 BFA F+,62,00 ADVANCE LOCATION COUNTER
011 11 0 1014 1461 0 6212 36 1591 BFA G+,62,12 EQUIVALENCE DEFINITION FOR LIBRARY
011 12 0 1015 1462 0 6201 36 1557 BFA X2+,62,01 NEXT INSTRUCTION IS A 11 DIGIT CONSTANT
011 13 0 1016 1463 0 6202 36 1561 BFA X1+,62,02 MARKS NEXT INSTRUCTION AS I-O COMMAND
011 14 0 1017 1464 0 6203 36 1564 BFA X3+,62,03
011 15 0 1018 1465 0 6204 36 1567 BFA X4+,62,04 RELOCATE CONTROL FIELD OF NEXT INSTR
011 16 0 1019 1466 0 0000 44 1847 STP WEMX
011 17 0 1020 1467 0 0000 30 1812 BUN WEM
011 18 0 1021 1468 3 1926 00 0000 CNST 31926000000 IMPROPER PSEUDO-OP
011 19 0 1022 1469 0 0000 30 1580 BUN X+
011 22 0 1025 1470 0 6229 27 1448 BIGCN DFL LBSB,62,29
011 23 0 1026 1471 0 0000 30 1570 BUN Z+
011 26 0 1029 1472 4 1000 60 0000 I1 CNST 41000600000 CARD READER CONSTANT
011 27 0 1030 1473 4 1000 61 0000 O1 CNST 41000610000 CARD PUNCH CONSTANT
011 28 0 1031 1474 4 2000 61 0000 O2 CNST 42000610000 PRINTER CONSTANT
011 29 0 1032 1475 0 6260 36 1491 CHNG BFA I+,62,60
011 30 0 1033 1476 0 6262 36 1491 BFA I+,62,62
011 31 0 1034 1477 0 6264 36 1491 BFA I+,62,64
011 32 0 1035 1478 0 0000 41 1473 LDR O1
011 33 0 1036 1479 0 1101 36 1483 BFA *+4,11,1
011 34 0 1037 1480 0 0000 41 1474 LDR O2
011 35 0 1038 1481 0 1102 36 1483 BFA *+2,11,2
011 36 0 1039 1482 0 0000 30 1493 BUN IOERR
011 37 0 1040 1483 0 6261 36 1487 *S BFA *+4,62,61
011 38 0 1041 1484 0 6263 36 1487 BFA S+,62,63
011 39 0 1042 1485 0 6265 36 1487 BFA S+,62,65
011 40 0 1043 1486 0 0000 30 1493 BUN IOERR
011 41 0 1044 1487 0 1111 40 2160 *S STR INSTR,11
011 42 0 1045 1488 0 0000 10 2160 CAD INSTR
011 43 0 1046 1489 0 6229 27 1448 DFL LBSB,62,29
011 44 0 1047 1490 0 0000 30 1448 BUN LBSB
011 45 0 1048 1491 0 0000 41 1472 *I LDR I1
011 46 0 1049 1492 0 1101 36 1487 BFA S-,11,1
011 47 0 1050 1493 0 0000 44 1847 IOERR STP WEMX
011 48 0 1051 1494 0 0000 30 1812 BUN WEM
011 49 0 1052 1495 3 1960 38 0000 CNST 31960380000 IMPROPER CARDATRON INSTRUCTION
011 50 0 1053 1496 0 0000 41 2160 LDR INSTR
011 51 0 1054 1497 0 0000 30 1487 BUN S-
011 54 0 1057 1498 0 1280 27 2160 *A DFL INSTR,12,80 ADJUST SIGN
011 55 0 1058 1499 0 0001 10 1122 *L CAA MSK
011 56 0 1059 1500 0 0001 12 2160 ADA INSTR RELOCATE ADDRESS FIELD
011 57 0 1060 1501 0 0000 31 1502 BOF *+1
011 58 0 1061 1502 0 0410 40 2160 STA INSTR,04
011 59 0 1062 1503 0 0000 30 1570 BUN Z+
011 61 0 1064 1504 0 1270 27 2160 *B DFL INSTR,12,70 ADJUST SIGN
011 62 0 1065 1505 0 0001 13 1122 SUA MSK RELOCATE CONTROL FIELD
011 63 0 1066 1506 0 4410 40 2160 STA INSTR,44
011 64 0 1067 1507 0 0000 31 1508 BOF *+1
011 65 0 1068 1508 0 0000 30 1570 BUN Z+
011 67 0 1070 1509 0 0000 00 0000 *H HLT 0
011 68 0 1071 1510 0 1220 27 2160 *C DFL INSTR,12,20 ADJUST SIGN
011 69 0 1072 1511 0 1240 27 2160 *D DFL INSTR,12,40
011 70 0 1073 1512 0 8210 40 1509 *K STA H-,82
011 71 0 1074 1513 0 8400 28 1509 DLB H-,84,0 GET EQUIVALENCE TABLE ENTRY
011 72 0 1075 1514 1 0000 10 2218 CAD - EQTAB
011 73 0 1076 1515 0 0000 36 1598 BZA L+ IMPROPER ENTRY
011 74 0 1077 1516 0 0008 33 1524 BSA J+,8 SIGN OF 9 MEANS FORWARD REFERENCE TO
011 75 0 1078 1517 0 0001 12 2160 ADA INSTR AN EXTERNAL PROCEDURE
011 76 0 1079 1518 0 0000 13 1509 *N SUB H- RELOCATE ADDRESS
011 77 0 1080 1519 0 0410 40 2160 STA INSTR,04 FIELD RELATIVE TO
011 78 0 1081 1520 1 4400 28 2218 DLB - EQTAB,44,0 THE EQUIVALENCE TABLE ENTRY
011 79 0 1082 1521 0 0000 44 1613 STP EXPLX
011 80 0 1083 1522 0 0000 30 1602 BUN EXPL
011 81 0 1084 1523 0 0000 30 1570 BUN Z+
011 83 0 1086 1524 1 4400 28 2218 *J DLB - EQTAB,44,0 INSERT 9 KK XXXX 0000 KK=INCREMENT
011 84 0 1087 1525 0 0000 44 1613 STP EXPLX XXXX= LOCATION FIXED UP
011 85 0 1088 1526 0 0000 30 1602 BUN EXPL
011 86 0 1089 1527 1 0000 10 0000 CAD - 0
011 87 0 1090 1528 0 1108 36 1530 BFA *+2,11,8
011 88 0 1091 1529 1 0000 42 0000 LDB - 0
011 89 0 1092 1530 0 0002 40 1509 STB H-
011 90 0 1093 1531 0 0001 10 2160 CAA INSTR
011 91 0 1094 1532 0 0000 17 3533 EXT +11
011 92 0 1095 1533 0 0001 12 3503 ADA ADDIT
011 93 0 1096 1534 0 0000 46 3503 CLL ADDIT
011 94 0 1097 1535 0 0000 49 0004 SLA 4
011 95 0 1098 1536 0 0000 44 2448 STP INSX
011 96 0 1099 1537 0 0000 30 2438 BUN INS
011 97 0 1100 1538 0 0001 10 4217 CAA LOCN
011 98 0 1101 1539 0 0008 43 0000 LSA 8
011 99 0 1102 1540 0 0000 42 1509 LDB H-
012 00 0 1103 1541 0 0000 46 1509 CLL H-
012 01 0 1104 1542 0 0000 44 2448 STP INSX
012 02 0 1105 1543 0 0000 30 2438 BUN INS
012 03 0 1106 1544 0 0000 10 2160 CAD INSTR
012 04 0 1107 1545 0 0000 46 2160 CLL INSTR
012 05 0 1108 1546 0 6710 40 2160 STA INSTR,67
012 06 0 1109 1547 0 0000 30 1570 BUN Z+
012 08 0 1111 1548 0 6240 27 2160 *Y DFL INSTR,62,40
012 09 0 1112 1549 0 0004 33 1570 BSA Z+,4 SPECIAL CONVENTIONS FOR PARTIAL FIELD
012 10 0 1113 1550 0 0005 33 1570 BSA Z+,5 SCAN AND SCEARCH(90,91 SPECIAL OPS)
012 11 0 1114 1551 0 1220 27 2160 DFL INSTR,12,20 S=4,5 ADDRESS ABSOLUTE
012 12 0 1115 1552 0 0006 33 1512 BSA K-,6 S=6,7 ADDRESS RELATIVE TO IDENTIFIER
012 13 0 1116 1553 0 0007 33 1512 BSA K-,7 S=8,9 ADDRESS RELATIVE TO PROGRAM
012 14 0 1117 1554 0 1220 27 2160 DFL INSTR,12,20
012 15 0 1118 1555 0 0000 30 1499 BUN L-
012 17 0 1120 1556 0 0000 30 1470 *F2 BUN BIGCN
012 18 0 1121 1557 0 0000 41 1556 *X2 LDR F2- SET UP FOR AN 11 DIGIT
012 19 0 1122 1558 0 0001 40 1448 STR LBSB WHICH FOLLOWS
012 20 0 1123 1559 0 0000 30 1580 BUN X+
012 22 0 1125 1560 0 0000 30 1475 *F1 BUN CHNG
012 23 0 1126 1561 0 0000 41 1560 *X1 LDR F1- SET UP FOR THE CARDATRON
012 24 0 1127 1562 0 0001 40 1448 STR LBSB INSTRUCTION WHICH FOLLOWS
012 25 0 1128 1563 0 0000 30 1580 BUN X+
012 27 0 1130 1564 0 0000 41 2160 *X3 LDR INSTR
012 28 0 1131 1565 0 0411 40 3503 STR ADDIT,04
012 29 0 1132 1566 0 0000 30 1580 BUN X+
012 30 0 1133 1567 0 0000 41 1122 *X4 LDR MSK
012 31 0 1134 1568 0 4411 40 3504 STR MADIT,44
012 32 0 1135 1569 0 0000 30 1580 BUN X+
012 34 0 1137 1570 0 0001 10 2160 *Z CAA INSTR
012 35 0 1138 1571 0 0001 12 3503 ADA ADDIT
012 36 0 1139 1572 0 0000 46 3503 CLL ADDIT
012 37 0 1140 1573 0 0410 40 2160 STA INSTR,04
012 38 0 1141 1574 0 0001 10 2160 CAA INSTR
012 39 0 1142 1575 0 0001 12 3504 ADA MADIT
012 40 0 1143 1576 0 4410 40 2160 STA INSTR,44
012 41 0 1144 1577 0 0000 46 3504 CLL MADIT
012 42 0 1145 1578 0 0000 44 1733 STP WRITX OUTPUT PROCESSED INSTRUCTION
012 43 0 1146 1579 0 0000 30 1734 BUN WRIT2
012 44 0 1147 1580 0 0000 42 1458 *X LDB LBSBX INCREMENTED EXIT
012 45 0 1148 1581 1 0000 30 0001 BUN - 1 INDICATES NO FINISH PSEUDO-OP WAS HERE
012 47 0 1150 1582 0 4400 28 2217 *E DLB EQTAB-1,44,0 RETURN PSEUDO-OP FOR EXTERNAL STATEMENT
012 48 0 1151 1583 0 9999 21 1584 DBB *+1,9999
012 49 0 1152 1584 0 0412 40 2160 STB INSTR,04
012 50 0 1153 1585 0 0000 30 1570 BUN Z-
012 52 0 1155 1586 0 0001 10 2160 *F CAA INSTR
012 53 0 1156 1587 0 0000 49 0004 SLA 4
012 54 0 1157 1588 0 0001 12 4217 ADA LOCN
012 55 0 1158 1589 0 6410 40 4217 STA LOCN,64
012 56 0 1159 1590 0 0000 30 1580 BUN X- LOCN=LOCN+NNNN
012 58 0 1161 1591 0 4400 28 2160 *G DLB INSTR,44,0 EQUIVALENCE DEFINITION FOR LIBRARY
012 59 0 1162 1592 1 0000 41 0000 LDR - 0 GET OPERAND FOR EQUIVALENCE DEFINITION
012 60 0 1163 1593 0 0000 42 2160 LDB INSTR
012 61 0 1164 1594 1 6610 40 2218 STA - EQTAB,66
012 62 0 1165 1595 0 0001 48 0004 SRT 4 ENTER THE OPERAND INTO EQUIVALENCE
012 63 0 1166 1596 1 0411 40 2218 STR - EQTAB,04 TABLE ALONG WITH ITS ASSIGNMENT
012 64 0 1167 1597 0 0000 30 1580 BUN X-
012 65 0 1168 1598 0 0000 44 1847 *L STP WEMX
012 66 0 1169 1599 0 0000 30 1812 BUN WEM
012 67 0 1170 1600 3 3221 00 0000 CNST9 CNST 33221000000 IMPROPER EQUIVALENCE LIBRARY INCORRECT
012 68 0 1171 1601 0 0000 30 1518 BUN N-
012 71 0 1174 1602 0 0002 40 3495 EXPL STB HOLD
012 72 0 1175 1603 0 0000 10 3495 CAD HOLD
012 73 0 1176 1604 0 0000 49 0004 SLA 4
012 74 0 1177 1605 0 0000 42 3542 LDB +23
012 75 0 1178 1606 1 6410 18 2175 *A CFA - EXLBT,64 OF THE THING REFERENCED
012 76 0 1179 1607 0 0000 35 1614 BCE A+ BY USE OF AN EQUIVALENCE
012 77 0 1180 1608 0 0002 21 1606 DBB A-,2
012 78 0 1181 1609 0 0000 42 3495 LDB HOLD
012 79 0 1182 1610 1 0000 41 0001 LDR - 1
012 80 0 1183 1611 0 1100 37 1613 BFR *+2,11,0
012 81 0 1184 1612 0 0001 40 0185 STR EXPLN
012 82 0 1185 1613 0 0000 30 1613 EXPLX BUN *
012 83 0 1186 1614 1 0000 41 2174 *A LDR - EXLBT-1
012 84 0 1187 1615 0 0001 40 0185 STR EXPLN
012 85 0 1188 1616 0 0000 42 3495 LDB HOLD
012 86 0 1189 1617 0 0000 30 1613 BUN EXPLX
DICTIONARY OF WORDS FOR ERROR MESSAGES IN THE OVERLAY
012 91 0 1194 1618 2 4567 63 5941 DICT CNST $EXTRA$ 01 EXTRA
012 92 0 1195 1619 2 5345 46 6300 CNST $LEFT$ 02 LEFT
012 93 0 1196 1620 3 5741 59 4555 CNST 35741594555 03 PARENTHESIS
012 94 0 1197 1621 3 6348 45 6249 CNST 36348456249
012 95 0 1198 1622 2 6200 00 0000 CNST $S$
012 96 0 1199 1623 3 5449 62 6249 CNST 35449626249 06 MISSING
012 97 0 1200 1624 2 5547 00 0000 CNST $NG$
012 98 0 1201 1625 2 5541 54 4500 CNST $NAME$ 08 NAME
012 99 0 1202 1626 2 4341 59 4400 CNST $CARD$ 09 CARD
013 00 0 1203 1627 3 4567 63 4559 CNST 34567634559 10 EXTERNAL
013 01 0 1204 1628 2 5541 53 0000 CNST $NAL$
013 02 0 1205 1629 3 5759 56 4345 CNST 35759564345 12 PROCEDURE
013 03 0 1206 1630 2 4464 59 4500 CNST $DURE$
013 04 0 1207 1631 2 5556 63 0000 CNST $NOT$ 14 NOT
013 05 0 1208 1632 3 4445 43 5341 CNST 34445435341 15 DECLARED
013 06 0 1209 1633 2 5945 44 0000 CNST $RED$
013 07 0 1210 1634 3 5759 45 4649 CNST 35759454649 17 PREFIX
013 08 0 1211 1635 2 6700 00 0000 CNST $X$
013 09 0 1212 1636 3 4954 57 5956 CNST 34954575956 19 IMPROPER
013 10 0 1213 1637 2 5745 59 0000 CNST $PER$
013 11 0 1214 1638 3 4558 64 4965 CNST 34558644965 21 EQUIVALENCE
013 12 0 1215 1639 3 4153 45 5543 CNST 34153455543
013 13 0 1216 1640 2 4500 00 0000 CNST $E$
013 14 0 1217 1641 3 4649 55 4962 CNST 34649554962 24 FINISH
013 15 0 1218 1642 2 4800 00 0000 CNST $H$
013 16 0 1219 1643 3 5762 45 6444 CNST 35762456444 26 PSEUDO-OP
013 17 0 1220 1644 2 5620 56 5700 CNST $O-OP$
013 18 0 1221 1645 2 4649 45 5344 CNST $FIELD$ 28 FIELD
013 19 0 1222 1646 2 5655 00 0000 CNST $ON$ 29 ON
013 20 0 1223 1647 3 4845 41 4445 CNST 34845414445 30 HEADER
013 21 0 1224 1648 2 5900 00 0000 CNST $R$
013 22 0 1225 1649 3 6455 44 4546 CNST 36455444546 32 UNDEFINED
013 23 0 1226 1650 2 4955 45 4400 CNST $INED$
013 24 0 1227 1651 2 5341 42 4553 CNST $LABEL$ 34 LABEL
013 25 0 1228 1652 2 2000 00 0000 CNST $-$ 35 -
013 26 0 1229 1653 2 5541 54 4500 CNST $NAME$ 35 (STORAGE FOR PROGRAMMED MESSAGES)
013 27 0 1230 1654 2 5541 54 4500 CNST $NAME$ 37 (STORAGE FOR PROGRAMMED MESSAGES)
013 28 0 1231 1655 3 4955 62 6359 CNST 34955626359 38 INSTRUCTION
013 29 0 1232 1656 3 6443 63 4956 CNST 36443634956
013 30 0 1233 1657 2 5500 00 0000 CNST $N$
013 31 0 1234 1658 2 2300 00 0000 CNST $,$ 41 ,
013 32 0 1235 1659 2 6356 63 4153 CNST $TOTAL$ 42 TOTAL
013 33 0 1236 1660 2 4348 45 4352 CNST $CHECK$ 43 CHECK
013 34 0 1237 1661 2 6264 54 0000 CNST $SUM$ 44 SUM
013 35 0 1238 1662 3 4356 54 5749 CNST 34356545749 45 COMPILED
013 36 0 1239 1663 2 5345 44 0000 CNST $LED$
013 37 0 1240 1664 3 5759 56 4759 CNST 35759564759 47 PROGRAM
013 38 0 1241 1665 2 4154 00 0000 CNST $AM$
013 39 0 1242 1666 2 4555 44 6200 CNST $ENDS$ 49 ENDS
013 40 0 1243 1667 2 4163 00 0000 CNST $AT$ 50 AT
013 41 0 1244 1668 3 6541 59 4941 CNST 36541594941 51 VARIABLES
013 42 0 1245 1669 2 4253 45 6200 CNST $BLES$
013 43 0 1246 1670 2 4245 47 4955 CNST $BEGIN$ 53 BEGIN
013 44 0 1247 1671 3 5349 42 5941 CNST 35349425941 54 LIBRARY
013 45 0 1248 1672 2 5968 00 0000 CNST $RY$
013 46 0 1249 1673 3 4955 43 5659 CNST 34955435659 56 INCORRECT
013 47 0 1250 1674 2 5945 43 6300 CNST $RECT$
013 48 0 1251 1675 3 6268 54 4256 CNST 36268544256 58 SYMBOLIC
013 49 0 1252 1676 2 5349 43 0000 CNST $LIC$
013 50 0 1253 1677 3 4341 59 4441 CNST 34341594441 60 CARDATRON
013 51 0 1254 1678 2 6359 56 5500 CNST $TRON$
013 52 0 1255 1679 3 4356 54 5749 CNST 34356545749 62 COMPILER
013 53 0 1256 1680 2 5345 59 0000 CNST $LER$
013 54 0 1257 1681 3 4341 57 4143 CNST 34341574143 64 CAPACITY
013 55 0 1258 1682 2 4963 68 0000 CNST $ITY$
013 56 0 1259 1683 3 4567 43 4545 CNST 34567434545 66 EXCEEDED
013 57 0 1260 1684 2 4445 44 0000 CNST $DED$
013 58 0 1261 1685 3 5445 54 5659 CNST 35445545659 68 MEMORY
013 59 0 1262 1686 2 6800 00 0000 CNST $Y$
013 60 0 1263 1687 2 4656 59 0000 CNST $FOR$ 70 FOR
013 61 0 1264 1688 3 5642 51 4543 CNST 35642514543 71 OBJECT
013 62 0 1265 1689 2 6300 00 0000 CNST $T$
013 65 0 1268 1690 1 0000 10 0000 LIBRF CAD - 0 PUT LIBRARY SUBROUTINE INTO TARGET
013 66 0 1269 1691 0 1104 36 1691 LIBRX BFA LIBRX,11,4 PROGRAM IF IT HASNT BEEN PUT THERE
013 67 0 1270 1692 0 0000 48 0004 SRA 4 ALREADY.
013 68 0 1271 1693 0 0000 17 3540 EXT +1111
013 69 0 1272 1694 0 0000 13 0251 SUB VARB
013 70 0 1273 1695 0 0410 40 0251 STA VARB,04
013 71 0 1274 1696 0 0001 49 0004 SLT 4
013 72 0 1275 1697 1 6410 40 0000 STA - 0,64
013 73 0 1276 1698 1 6401 26 0000 IFL - 0,64,1
013 74 0 1277 1699 1 1101 26 0000 IFL - 0,11,1
013 75 0 1278 1700 0 0000 30 1690 BUN LIBRF
013 78 0 1281 1701 0 0000 41 4217 FXUP LDR LOCN COMPILE TO SET A PREV FRW REF TO PRES LOC
013 79 0 1282 1702 0 0000 40 0184 STA DESCR
013 80 0 1283 1703 0 0001 48 0004 SRT 4
013 81 0 1284 1704 0 0411 40 0184 STR DESCR,04
013 82 0 1285 1705 0 0410 40 0183 STA WRTF,04
013 83 0 1286 1706 0 0007 33 1708 BSA *+2,7
013 84 0 1287 1707 0 0000 30 1709 BUN *+2
013 85 0 1288 1708 0 0001 26 0184 IFL DESCR,00,1 IF SIGN IS SEVEN, WE MEAN THE
013 86 0 1289 1709 0 2000 38 1711 FXUPY BCS *+2,2
013 87 0 1290 1710 0 0000 30 1714 BUN *+4
013 88 0 1291 1711 0 0008 33 1714 BSA *+3,8
013 89 0 1292 1712 4 0208 44 9898 STP 4 9898,0208
013 90 0 1293 1713 4 0183 30 9898 BUN 4 9898,WRTF
013 91 0 1294 1714 0 0000 41 0184 LDR DESCR PRESENT LOCATION PLUS 1
013 92 0 1295 1715 0 0000 42 0207 LDB LRTF
013 93 0 1296 1716 0 0000 10 0183 CAD WRTF
013 94 0 1297 1717 0 0410 18 0101 CFA PREV,04
013 95 0 1298 1718 0 0000 34 1729 BCH A+ IF WE CAN FIX UP THE INSTRUCTION WHILE
013 96 0 1299 1719 1 0000 10 0003 CAD - BUF+1 IT SITS IN THE OUTPUT BUFFER, WE WILL
013 97 0 1300 1720 0 0400 36 1729 BFA A+,04,0 DO IT DIRECTLY
013 98 0 1301 1721 0 0410 18 0183 CFA WRTF,04
013 99 0 1302 1722 0 0000 34 1729 BCH A+
014 00 0 1303 1723 0 0000 13 0183 SUB WRTF
014 01 0 1304 1724 0 0000 49 0006 SLA 6
014 02 0 1305 1725 0 4410 40 1726 STA *+1,44
014 03 0 1306 1726 0 0000 21 1727 DBB *+1,0
014 04 0 1307 1727 1 0411 40 0004 STR - BUF+2,04
014 05 0 1308 1728 0 0000 30 1733 BUN FXUPX
014 06 0 1309 1729 0 0001 27 0181 *A DFL CNTRF,00,1 OTHERWISE WE PUT OUT A FIX UP
014 07 0 1310 1730 0 0000 42 0181 LDB CNTRF CODE FOR THE LOADING ROUTINE
014 08 0 1311 1731 1 0001 40 0005 STR - BUF+3
014 09 0 1312 1732 0 0000 30 1762 BUN WRIT6
014 10 0 1313 1733 0 0000 30 1733 FXUPX BUN FXUPX
014 14 0 1317 1734 0 0000 10 4217 WRIT2 CAD LOCN WRITE SUBROUTINE - PUTS INSTRUCTION
014 15 0 1318 1735 0 0000 48 0004 SRA 4 INTO OUTPUT BUFFER.
014 16 0 1319 1736 0 6401 26 4217 IFL LOCN,64,1 WRIT2 ENTRY - PUT INSTRUCTION OUT FOR
014 17 0 1320 1737 0 0000 31 1738 BOF *+1
014 18 0 1321 1738 0 0000 41 2160 LDR INSTR LOCATION LOCN AND INCREMENT LOCN
014 19 0 1322 1739 0 0410 40 0183 WRIT3 STA WRTF,04 WRIT3 ENTRY - LOCATION IS IN RA(04)
014 20 0 1323 1740 0 0000 13 0101 SUB PREV AND INSTRUCTION IS IN REGISTER R
014 21 0 1324 1741 0 0000 42 0180 LDB CNTRI
014 22 0 1325 1742 0 0400 36 1753 BFA E+,04,0
014 23 0 1326 1743 0 0000 13 4100 SUB XONE+1 DOES THIS LOCATION EQUAL THE PREVIOUS ONE
014 24 0 1327 1744 0 0400 36 1749 BFA F+,04,0 (IF SO WE WILL ERASE THE PREVIOUS ONE)
014 25 0 1328 1745 0 0412 40 0207 STB LRTF,04 OR IS IT ONE HIGHER
014 26 0 1329 1746 0 0000 10 0183 CAD WRTF IF NOT,WE WILL PUT OUT A NEW RECORD TRANS
014 27 0 1330 1747 1 0000 40 0003 STA - BUF+1
014 28 0 1331 1748 0 0001 26 0180 IFL CNTRI,00,1
014 29 0 1332 1749 0 0000 42 0207 *F LDB LRTF
014 30 0 1333 1750 1 3201 26 0003 IFL - BUF+1,32,1 THE 32-FIELD CONTAINS THE NUMBER OF
014 31 0 1334 1751 0 0001 26 0180 WRIT7 IFL CNTRI,00,1 SEQUENTIAL WORDS TO LOAD
014 32 0 1335 1752 0 0000 42 0180 LDB CNTRI
014 33 0 1336 1753 1 0001 40 0002 *E STR - BUF
014 34 0 1337 1754 0 0001 40 0184 STR DESCR
014 35 0 1338 1755 0 2000 38 1757 WRT10 BCS *+2,2
014 36 0 1339 1756 0 0000 30 1759 BUN *+3
014 37 0 1340 1757 4 0300 44 9898 STP 4 9898,0300
014 38 0 1341 1758 4 0183 30 9898 BUN 4 9898,WRTF
014 39 0 1342 1759 0 0000 46 0185 CLL EXPLN
014 40 0 1343 1760 0 0000 41 0183 LDR WRTF
014 41 0 1344 1761 0 0411 40 0101 STR PREV,04
014 42 0 1345 1762 0 0000 41 0180 WRIT6 LDR CNTRI IS THE BUFFER FULL NOW
014 43 0 1346 1763 0 0001 18 0181 CFR CNTRF
014 44 0 1347 1764 0 0001 34 1733 BCL WRITX IF NOT,EXIT
014 45 0 1348 1765 0 0001 42 3448 WRIT5 LBC NN IF SO, CALCULATE CHECK SUM
014 46 0 1349 1766 0 0001 45 0004 *C CLA BUF+2
014 47 0 1350 1767 1 0000 13 0101 SUB - BUF+99
014 48 0 1351 1768 0 0001 20 1767 IBB *-1,1
014 49 0 1352 1769 0 0000 31 1770 BOF *+1
014 50 0 1353 1770 0 0000 40 0101 STA BUF+99
014 51 0 1354 1771 4 1000 59 1773 MIB 4 *+2,OT
014 52 0 1355 1772 0 0000 30 1771 BUN *-1
014 53 0 1356 1773 4 1004 50 0000 MLS 4 OT
014 54 0 1357 1774 4 1000 59 1776 MIB 4 *+2,OT
014 55 0 1358 1775 0 0000 30 1774 BUN *-1
014 56 0 1359 1776 4 1100 56 0002 MOW 4 BUF,OT,1 WRITE ONE BLOCK
014 57 0 1360 1777 0 0001 26 0002 IFL BUF,00,1
014 58 0 1361 1778 0 0000 46 0180 CLL CNTRI
014 59 0 1362 1779 0 0000 46 0181 CLL CNTRF INITIALIZE FOR NEXT BLOCK
014 60 0 1363 1780 0 0096 26 0181 IFL CNTRF,00,96
014 61 0 1364 1781 0 0000 46 0003 WRIT4 CLL BUF+1
014 62 0 1365 1782 0 0000 42 1766 LDB C-
014 63 0 1366 1783 0 0980 29 0003 RTF BUF+1,98
014 64 0 1367 1784 0 0000 30 1733 BUN FXUPX
014 65 0 1368 1785 WRITX DEFN FXUPX
014 68 0 1371 1785 0 0000 12 2161 SRCH ADD LL0
014 69 0 1372 1786 0 0000 17 3533 EXT +11 LOOK FOR SYMBOL IN TABLE
014 70 0 1373 1787 0 0000 12 3559 ADD +SCRTB
014 71 0 1374 1788 0 0000 40 2157 STA L
014 72 0 1375 1789 0 0000 42 2157 LDB L
014 73 0 1376 1790 0 0001 21 1793 DBB C+,1
014 74 0 1377 1791 0 0000 42 2157 *B LDB L
014 75 0 1378 1792 0 9999 20 1811 IBB SRCHX,9999
014 76 0 1379 1793 1 0000 10 0001 *C CAD - 1
014 77 0 1380 1794 0 2310 18 2159 CFA D2D3,23 FIRST COMPARE LENGTHS
014 78 0 1381 1795 0 0000 40 2157 STA L (AND WHETHER OR NOT A NUMERIC LABEL)
014 79 0 1382 1796 0 0000 48 0004 SRA 4
014 80 0 1383 1797 0 0001 35 1791 BCU B-
014 81 0 1384 1798 0 0000 40 2174 STA TEMP
014 82 0 1385 1799 0 6309 26 2174 IFL TEMP,63,9
014 83 0 1386 1800 0 0410 40 1805 STA A+,04
014 84 0 1387 1801 0 0401 26 1805 IFL A+,04,1
014 85 0 1388 1802 0 5401 28 2174 DLB TEMP,54,1
014 86 0 1389 1803 0 0000 32 1805 BRP A+
014 87 0 1390 1804 0 0000 42 3551 LDB +9
014 88 0 1391 1805 1 0000 10 1805 *A CAD - * IF LENGTHS AGREE, COMPARE THE SYMBOLS
014 89 0 1392 1806 1 0010 18 2427 CFA - SYMBL,00
014 90 0 1393 1807 0 0001 35 1791 BCU B-
014 91 0 1394 1808 0 0001 21 1805 DBB A-,1
014 92 0 1395 1809 0 0401 26 1811 IFL SRCHX,04,1 INCREMENTED EXIT
014 93 0 1396 1810 0 6400 28 2157 DLB L,64,0 IF SYMBOL IS FOUND
014 94 0 1397 1811 0 0000 30 1811 SRCHX BUN *
014 97 0 1400 1812 0 0000 41 3531 WEM LDR +0525005250 WRITE ERROR MESSAGE
014 98 0 1401 1813 0 0001 40 3450 STR HALT
014 99 0 1402 1814 0 0000 46 1848 CLL MSG
015 00 0 1403 1815 0 1220 26 1848 IFL MSG,12,20
015 01 0 1404 1816 0 0000 42 1829 LDB C+
015 02 0 1405 1817 0 0080 29 1848 RTF MSG,8 CLEAR MESSAGE BUFFER
015 03 0 1406 1818 0 0000 46 2174 CLL TEMP
015 04 0 1407 1819 0 0000 42 1847 *G LDB WEMX
015 05 0 1408 1820 1 0000 10 0000 CAD - 0
015 06 0 1409 1821 0 0002 45 0000 *E CLR 0000
015 07 0 1410 1822 0 0001 48 0008 SRT 8
015 08 0 1411 1823 0 0000 36 1844 BFA A+,00,00
015 09 0 1412 1824 0 0410 40 1821 STA E-,04
015 10 0 1413 1825 0 0001 40 2173 STR TEMP3
015 11 0 1414 1826 0 0401 26 1821 *H IFL E-,04,1
015 12 0 1415 1827 0 0000 42 1821 LDB E-
015 13 0 1416 1828 1 0000 41 1616 LDR - DICT-2 GET DICTIONARY ENTRY
015 14 0 1417 1829 0 0001 45 1849 *C CLA MSG+1
015 15 0 1418 1830 0 0001 42 2174 LBC TEMP
015 16 0 1419 1831 0 0001 49 0002 SLT 2 TRANSFER CHARACTERS
015 17 0 1420 1832 0 0000 36 1840 BFA B+,00,00 ONE AT A TIME INTO
015 18 0 1421 1833 1 0000 49 0008 SLA - 8 BUFFER AREA
015 19 0 1422 1834 0 9400 28 2174 DLB TEMP,94,00
015 20 0 1423 1835 0 0000 43 0000 LSA 0
015 21 0 1424 1836 1 0000 12 1848 ADD - MSG
015 22 0 1425 1837 1 0010 40 1848 STA - MSG,00
015 23 0 1426 1838 0 0502 26 2174 IFL TEMP,05,02
015 24 0 1427 1839 0 0000 30 1829 BUN C-
015 25 0 1428 1840 0 0003 33 1826 *B BSA H-,3 PUT SPACE BETWEEN WORDS
015 26 0 1429 1841 0 0502 26 2174 IFL TEMP,05,02
015 27 0 1430 1842 0 0000 10 2173 CAD TEMP3
015 28 0 1431 1843 0 0000 30 1821 BUN E-
015 29 0 1432 1844 0 0401 26 1847 *A IFL WEMX,04,01
015 30 0 1433 1845 4 0906 44 9898 STP 4 9898,0906
015 31 0 1434 1846 4 1848 30 9898 BUN 4 9898,MSG
015 32 0 1435 1847 0 0000 30 0000 WEMX BUN 0000 RETURN AND ATTEMPT TO CONTINUE
015 33 0 1436 1848 MSG LOCN *+9
015 37 0 1440 1857 LBRT LOCN *+300 LIBRARY TABLE
015 38 0 1441 2157 0 0000 00 0000 L CNST 0 LAST OPERAND
015 39 0 1442 2158 0 0000 00 0000 K CNST 0 RUNNING COUNT OF LENGTH FOR SYMBOL
015 40 0 1443 2159 0 0000 00 0000 D2D3 HLT 0 STORAGE FOR LENGTH OF SYMBOL
015 41 0 1444 2160 0 0000 00 0000 INSTR HLT 0 CURRENT INSTRUCTION
015 42 0 1445 2161 0 0000 00 0000 LL0 HLT 0 STACK TO SEARCH AT LEVEL 0
015 43 0 1446 2162 0 0000 00 0000 SCNCT HLT 0 COLUMN COUNT
015 44 0 1447 2163 0 0000 00 0000 CHAR HLT 0 CURRENT CHARACTER BEING SCANED
015 45 0 1448 2164 2 0000 00 0000 ZERSS HLT 2 0
015 46 0 1449 2165 2 0000 00 0000 HLT 2 0
015 47 0 1450 2166 2 0000 00 0000 HLT 2 0
015 48 0 1451 2167 2 0000 00 0000 HLT 2 0
015 49 0 1452 2168 2 0000 00 0000 HLT 2 0
015 50 0 1453 2169 2 0000 00 0000 HLT 2 0
015 51 0 1454 2170 2 0000 00 0000 HLT 2 0
015 52 0 1455 2171 2 0000 00 0000 HLT 2 0
015 53 0 1456 2172 2 0000 00 0000 HLT 2 0
015 54 0 1457 2173 0 0000 00 0000 TEMP3 HLT 0 SHORT TERM STORAGE LOCATION
015 55 0 1458 2174 0 0000 00 0000 TEMP HLT 0 DITTO
015 56 0 1459 2175 2 4649 67 0000 EXLBT CNST $FIX$ TABLE FOR SPECIAL LIBRARY ROUTINES
015 57 0 1460 2176 0 0042 22 0000 F244 0,SCRTB+106,0
015 58 0 1461 2177 2 4653 56 4163 CNST $FLOAT$
015 59 0 1462 2178 0 0042 24 0000 F244 0,SCRTB+108,0
015 60 0 1463 2179 2 4667 14 4667 CNST $FX*FX$
015 61 0 1464 2180 0 0042 18 0000 F244 0,SCRTB+102,0
015 62 0 1465 2181 2 4667 14 4653 CNST $FX*FL$
015 63 0 1466 2182 0 0042 19 0000 F244 0,SCRTB+103,0
015 64 0 1467 2183 2 4653 14 4667 CNST $FL*FX$
015 65 0 1468 2184 0 0042 20 0000 F244 0,SCRTB+104,0
015 66 0 1469 2185 2 4653 14 4653 CNST $FL*FL$
015 67 0 1470 2186 0 0042 21 0000 F244 0,SCRTB+105,0
015 68 0 1471 2187 2 5341 42 5345 CNST $LABLE$
015 69 0 1472 2188 0 0041 07 0000 F244 0,SCRTB-9,0
015 70 0 1473 2189 2 5456 55 4963 CNST $MONIT$
015 71 0 1474 2190 0 0042 26 0000 F244 0,SCRTB+110,0
015 72 0 1475 2191 2 4559 59 5659 CNST $ERROR$
015 73 0 1476 2192 0 0042 29 0000 F244 0,SCRTB+113,0
015 74 0 1477 2193 2 6359 41 4345 CNST $TRACE$
015 75 0 1478 2194 0 0042 30 0000 F244 0,SCRTB+114,0
015 76 0 1479 2195 2 5949 63 4500 CNST $RITE$
015 77 0 1480 2196 0 0042 32 0000 F244 0,SCRTB+116,0
015 78 0 1481 2197 2 5945 45 4400 CNST $REED$
015 79 0 1482 2198 0 0042 33 0000 F244 0,SCRTB+117,0
015 80 0 1483 2199 0 2199 00 0000 FUNS F424 FUNS,0,0 ALL PURPOSE STACK
015 81 0 1484 2200 2 0000 00 0000 CNST 20000000000
015 82 0 1485 2201 CRD LOCN *+16 INPUT AREA
015 83 0 1486 2217 2 0000 00 0000 HLT 2 0
015 84 0 1487 2218 EQTAB LOCN *+100 EQUIVALENCE TABLE
015 85 0 1488 2318 BUFR LOCN *+100 INPUT BUFFER FOR LIBRARY PROCEDURES
015 86 0 1489 2418 2 2020 20 2020 IFERR CNST $-----ERROR(S) WERE FOUND-----$
2419 2 4559 59 5659
2420 2 2462 04 0066
2421 2 4559 45 0046
2422 2 5664 55 4420
2423 2 2020 20 2000
015 87 0 1490 2424 2 0000 00 0000 HLT 2 0
015 88 0 1491 2425 2 0000 00 0000 HLT 2 0
015 89 0 1492 2426 2 0000 00 0000 HLT 2 0
015 90 0 1493 2427 0 0000 00 0000 SYMBL CNST 0,0,0,0,0,0,0,0,0,0 SYMBOL STORAGE AREA
2428 0 0000 00 0000
2429 0 0000 00 0000
2430 0 0000 00 0000
2431 0 0000 00 0000
2432 0 0000 00 0000
2433 0 0000 00 0000
2434 0 0000 00 0000
2435 0 0000 00 0000
2436 0 0000 00 0000
015 91 0 1494 2437 0 0000 00 0000 LEVEL HLT 0 LEVEL FOR SEARCHING
015 94 0 1497 2438 0 0412 40 2446 INS STB A+,04
015 95 0 1498 2439 0 0000 41 0273 AVALE LDR AVAIL INSERT RA(67) INTO ASSOCIATIVE MEMORY
015 96 0 1499 2440 0 0400 37 2449 BFR B+,04,00
015 97 0 1500 2441 1 0000 41 0000 *C LDR - 0
015 98 0 1501 2442 0 0000 42 0273 LDB AVAIL NORMALLY THIS MEANS ON TOP OF THE
015 99 0 1502 2443 1 6710 40 0000 STA - 0,67 STACK NAMED BY THE B REGISTER
016 00 0 1503 2444 1 0000 10 0000 CAD - 0
016 01 0 1504 2445 1 0411 40 0000 STR - 0,04
016 02 0 1505 2446 0 0412 40 2446 *A STB *,04
016 03 0 1506 2447 0 0410 40 0273 STA AVAIL,04
016 04 0 1507 2448 0 0000 30 2448 INSX BUN *
016 05 0 1508 2449 0 0000 41 4227 *B LDR MAMAX IF AVAIL STACK IS EMPTY, TRY TO
016 06 0 1509 2450 0 0411 18 4216 CFR SSC,04 INCREASE THE SIZE OF
016 07 0 1510 2451 0 0411 40 0273 STR AVAIL,04 ASSOCIATIVE MEMORY
016 08 0 1511 2452 0 0411 40 2454 STR D+,04
016 09 0 1512 2453 0 0001 27 4227 DFL MAMAX,00,1
016 10 0 1513 2454 0 0000 46 2454 *D CLL *
016 11 0 1514 2455 0 0000 34 2441 BCH C-
016 12 0 1515 2456 0 0000 44 1847 FULL STP WEMX IF NO ROOM IS LEFT, GIVE UP
016 13 0 1516 2457 0 0000 30 1812 BUN WEM
016 14 0 1517 2458 3 6264 66 0000 CNST 36264660000 COMPILER CAPACITY EXCEEDED
016 15 0 1518 2459 0 6200 00 7777 F424 6200,00,7777
016 18 0 1521 2460 0 0412 40 2468 REM STB A+,04 REMOVE INFORMATION FROM
016 19 0 1522 2461 1 0000 42 0000 LDB - 0 ASSOCIATIVE MEMORY LOCATION IN
016 20 0 1523 2462 1 0000 10 0000 CAD - 0 THE STACK NAMED IN RB
016 21 0 1524 2463 0 9999 20 2463 REMX IBB *,9999 IF THE STACK IS EMPTY, EXIT
016 22 0 1525 2464 0 0001 20 2465 IBB *+1,1
016 23 0 1526 2465 0 0000 41 0273 LDR AVAIL OTHERWISE MARK LOCATION AVAILABLE
016 24 0 1527 2466 0 0412 40 0273 STB AVAIL,04 FOR FUTURE USE
016 25 0 1528 2467 1 0411 40 0000 STR - 0,04
016 26 0 1529 2468 0 0410 40 2468 *A STA *,04 INCREMENTED EXIT WITH THE REMOVED
016 27 0 1530 2469 0 0000 42 2463 LDB REMX QUANTITY IN RA
016 28 0 1531 2470 1 0000 30 0001 BUN - 1
THE SYMBOLIC MEMORY DUMP GENERATOR
016 32 0 1535 2471 0 0000 00 0000 KOUNT HLT 0 STACK COUNTER
016 33 0 1536 2472 0 0000 00 0000 COUT HLT 0 PRESENT LEVEL COUNTER
016 34 0 1537 2473 0 0000 01 4116 *T NOP SCRTB LINK TO NEXT ITEM
016 35 0 1538 2474 0 0000 42 3560 MONST LDB +TBL+1
016 36 0 1539 2475 0 0000 29 3576 RTF TBL,100 SET UP HEADS FOR 301 STACKS
016 37 0 1540 2476 0 0000 29 3676 RTF TBL+100,100
016 38 0 1541 2477 0 0000 29 3776 RTF TBL+200,100
016 39 0 1542 2478 0 0000 10 4229 CAD SCRTB+113
016 40 0 1543 2479 0 0000 48 0004 SRA 4
016 41 0 1544 2480 0 5103 36 2512 BFA J+,51,3
016 42 0 1545 2481 0 0410 40 2856 STA ASSGZ,04 FIX DUMP SO IT CAN FIND
016 43 0 1546 2482 0 0444 26 2856 IFL ASSGZ,04,44
016 44 0 1547 2483 0 1280 27 2856 DFL ASSGZ,12,80
016 45 0 1548 2484 0 0000 10 4233 CAD SCRTB+117
016 46 0 1549 2485 0 0000 48 0004 SRA 4
016 47 0 1550 2486 0 0410 40 2751 STA Z1+,04
016 48 0 1551 2487 0 0410 40 2752 STA Z2+,04
016 49 0 1552 2488 0 0410 40 2866 STA Z3+,04
016 50 0 1553 2489 0 0410 40 2867 STA Z4+,04
016 51 0 1554 2490 0 0410 40 2876 STA Z5+,04
016 52 0 1555 2491 0 0410 40 2877 STA Z6+,04
016 53 0 1556 2492 0 0410 40 2900 STA Z7+,04
016 54 0 1557 2493 0 0410 40 2901 STA Z8+,04
016 55 0 1558 2494 0 0410 40 2912 STA Z9+,04
016 56 0 1559 2495 0 0410 40 2913 STA Z10+,04
016 57 0 1560 2496 0 0410 40 2914 STA Z11+,04
016 58 0 1561 2497 0 0410 40 2915 STA Z12+,04
016 59 0 1562 2498 0 0410 40 2938 STA Z13+,04
016 60 0 1563 2499 0 0410 40 2939 STA Z14+,04
016 61 0 1564 2500 0 0410 40 3147 STA Z15+,04
016 62 0 1565 2501 0 0410 40 3148 STA Z16+,04
016 63 0 1566 2502 0 0410 40 3149 STA Z17+,04
016 64 0 1567 2503 0 0410 40 3150 STA Z18+,04
016 65 0 1568 2504 0 0410 40 3212 STA Z19+,04
016 66 0 1569 2505 0 0410 40 3213 STA Z20+,04
016 67 0 1570 2506 0 0410 40 3221 STA Z21+,04
016 68 0 1571 2507 0 0410 40 3222 STA Z22+,04
016 69 0 1572 2508 0 0410 40 3229 STA Z23+,04
016 70 0 1573 2509 0 0410 40 3230 STA Z24+,04
016 71 0 1574 2510 0 0410 40 3397 STA Z25+,04
016 72 0 1575 2511 0 0410 40 3398 STA Z26+,04
016 73 0 1576 2512 0 0000 01 4116 *J NOP SCRTB LAST ENTRY FROM SCRAMBLE TABLE
016 74 0 1577 2513 0 0000 41 2471 LDR KOUNT
016 75 0 1578 2514 0 0001 40 2472 STR COUT
016 76 0 1579 2515 0 0011 18 3529 CFR +100,00
016 77 0 1580 2516 0 0000 35 2704 BCE END1 IF EQUAL ALL STACKS IN SCRAMBLE TABLE
016 78 0 1581 2517 0 0000 42 2512 LDB J- HAVE BEEN PROCESSED
016 79 0 1582 2518 1 0000 10 0000 CAD - 0 GET NEXT ENTRY FROM SCRTB
016 80 0 1583 2519 1 0000 42 0000 LDB - 0
016 81 0 1584 2520 0 0412 40 2512 STB J-,04 SAVE LINK TO NEXT ENTRY
016 82 0 1585 2521 0 2000 21 2528 DBB A+,2000 IF LINK IS LESS THAN 2000 END STACK NOW
016 83 0 1586 2522 0 0001 26 2471 IFL KOUNT,00,1 INCREASE STACK COUNT
016 84 0 1587 2523 0 0401 26 2473 IFL T-,04,1
016 85 0 1588 2524 0 0000 41 2473 LDR T-
016 86 0 1589 2525 0 0411 40 2512 STR J-,04 SET UP FOR NEXT STACK
016 87 0 1590 2526 0 2000 20 2512 IBB J-,2000 IF LINK WAS NON-ZERO START NEW STACK
016 88 0 1591 2527 0 0000 36 2512 BZA J- SKIP TO NEXT STACK IF ZERO
016 89 0 1592 2528 0 0000 48 0004 *A SRA 4 GET SREF IN 04 FIELD
016 90 0 1593 2529 0 0410 18 3537 CFA +2000,04
016 91 0 1594 2530 0 0001 34 2512 BCL J- IF SREF IS LESS THAN 2000 GET NEXT ONE
016 92 0 1595 2531 0 0410 40 3493 STA SREF,04
016 93 0 1596 2532 0 0001 48 0004 SRT 4
016 94 0 1597 2533 0 0000 43 0000 LSA 0
016 95 0 1598 2534 0 0000 12 3549 ADD +8
016 96 0 1599 2535 0 0000 48 0001 SRA 1
016 97 0 1600 2536 0 0000 40 3494 STA SL SAVE SYMBOL LENGTH
016 98 0 1601 2537 0 0001 49 0019 SLT 19
016 99 0 1602 2538 0 0000 33 2540 BPA *+2
017 00 0 1603 2539 0 0000 25 2539 FDV * SET OVERFLOW IF A NUMERIC LABEL
017 01 0 1604 2540 0 0000 42 3493 LDB SREF
017 02 0 1605 2541 1 0000 41 0001 LDR - 1 GET ACTUAL SYMBOL
017 03 0 1606 2542 0 0001 45 0000 CLA
017 04 0 1607 2543 0 0000 15 3552 DIV +99 SCRAMBLE IT
017 05 0 1608 2544 0 0001 49 0010 SLT 10
017 06 0 1609 2545 0 0000 13 2472 SUB COUT COMPUTE LEVEL
017 07 0 1610 2546 0 0010 40 2437 STA LEVEL,00
017 08 0 1611 2547 1 0000 10 0000 CAD - 0
017 09 0 1612 2548 0 0001 33 2512 BSA J-,1 SKIP
017 10 0 1613 2549 0 0003 33 2512 BSA J-,3 CALL
017 11 0 1614 2550 0 0005 33 2512 BSA J-,5 BY NAME
017 12 0 1615 2551 0 0007 33 2512 BSA J-,7 THINGS
017 13 0 1616 2552 0 0009 33 2512 BSA J-,9 AND INPUT,OUTPUT,FORMAT LABELS
017 14 0 1617 2553 0 0008 33 2512 BSA J-,8 AND EXTERNAL PROGRAMS
017 15 0 1618 2554 0 1101 36 2564 BFA B+,11,1 SIMPLE VARIABLES(FIRST 100 STACKS)
017 16 0 1619 2555 0 8101 26 2437 IFL LEVEL,81,1
017 17 0 1620 2556 0 1105 36 2564 BFA B+,11,5 ARRAYS(NEXT 100)
017 18 0 1621 2557 0 8101 26 2437 IFL LEVEL,81,1
017 19 0 1622 2558 0 1109 36 2562 BFA A+,11,9 LABELS(NEXT 100)
017 20 0 1623 2559 0 8101 26 2437 IFL LEVEL,81,1
017 21 0 1624 2560 0 1108 36 2564 BFA B+,11,8 PROCEDURES(ONLY ONE STACK)
017 22 0 1625 2561 0 0000 30 2512 BUN J- GET NEXT ITEM IF IT IS NONE OF ABOVE
017 25 0 1628 2562 0 6410 18 3538 *A CFA +2000000,64
017 26 0 1629 2563 0 0001 34 2512 BCL J- SKIP SEGMENT NAMES
017 27 0 1630 2564 0 3312 40 2657 *B STB VL,33 VECTOR LENGTH
017 28 0 1631 2565 0 3204 26 2657 IFL VL,32,04 FOUR IS NORMAL(ARRAYS REQUIRE 6)
017 29 0 1632 2566 0 0000 40 3454 STA VECTR+3 SAVE OPERAND
017 30 0 1633 2567 1 0001 10 0001 CAA - 1
017 31 0 1634 2568 1 0000 41 0002 LDR - 2 GET SYMBOL
017 32 0 1635 2569 0 0000 42 3494 LDB SL
017 33 0 1636 2570 0 0002 21 2572 DBB *+2,2
017 34 0 1637 2571 0 0002 45 0000 CLR SYMBOL LENGTH LEQ 5 CHARACTERS
017 35 0 1638 2572 0 0000 31 2674 BOF NUMLB NUMERIC LABEL
017 36 0 1639 2573 0 0000 40 3452 STA VECTR+1
017 37 0 1640 2574 0 0001 40 3453 STR VECTR+2 SAVE FIRST 10 CHARACTERS OF SYMBOL
017 40 0 1643 2575 0 0000 41 3454 RETRN LDR VECTR+3
017 41 0 1644 2576 0 0001 45 0000 CLA
017 42 0 1645 2577 0 1101 37 2627 BFR P+,11,1
017 43 0 1646 2578 0 1109 37 2627 BFR P+,11,9
017 44 0 1647 2579 0 1105 37 2582 BFR *+3,11,5
017 45 0 1648 2580 0 8910 40 3454 STA VECTR+3,89 PROCEDURE 02 FIELD IS LEVEL
017 46 0 1649 2581 0 0000 30 2627 BUN P+
017 47 0 1650 2582 0 0000 42 3454 LDB VECTR+3
017 48 0 1651 2583 0 3202 26 2657 IFL VL,32,2 NEED TWO MORE FOR ARRAYS
017 49 0 1652 2584 1 0000 41 0000 LDR - 0
017 50 0 1653 2585 0 0001 40 3495 STR HOLD SAVE LINK
017 51 0 1654 2586 0 0001 48 0004 SRT 4
017 52 0 1655 2587 0 0000 10 3454 CAD VECTR+3
017 53 0 1656 2588 0 0000 46 3454 CLL VECTR+3
017 54 0 1657 2589 0 0000 46 3455 CLL VECTR+4
017 55 0 1658 2590 0 0000 46 3456 CLL VECTR+5
017 56 0 1659 2591 0 0411 40 3454 STR VECTR+3,04 LENGTH
017 57 0 1660 2592 0 6710 40 3456 STA VECTR+5,67 SAVE OPERAND OF ARRAY
017 58 0 1661 2593 0 0000 46 3500 CLL DIM
017 59 0 1662 2594 0 0000 42 3495 LDB HOLD
017 60 0 1663 2595 0 9999 20 2622 IBB C+,9999 LINK ZERO INDICATES WE HAVE LINEAR
017 61 0 1664 2596 0 0000 30 2599 BUN D+ ARRAY
017 62 0 1665 2597 0 0000 42 3495 *A LDB HOLD END OF DIMENSION LIST OF CONSTANTS
017 63 0 1666 2598 0 9999 20 2607 IBB A+,9999 IF LINK IS ZERO
017 64 0 1667 2599 1 0000 41 0001 *D LDR - 1
017 65 0 1668 2600 1 6400 28 0001 DLB - 1,64,0
017 66 0 1669 2601 0 0001 40 3495 STR HOLD SAVE OPERAND OF CONSTANT
017 67 0 1670 2602 1 0000 10 0001 CAD - 1
017 68 0 1671 2603 0 0000 42 3500 LDB DIM
017 69 0 1672 2604 1 0000 40 3505 STA - DIMS PUT CONSTANT INTO DIMENSION LIST
017 70 0 1673 2605 0 0001 26 3500 IFL DIM,00,1 INCREASE DIMENSION COUNT
017 71 0 1674 2606 0 0000 30 2597 BUN A-
017 72 0 1675 2607 0 0000 41 3505 *A LDR DIMS
017 73 0 1676 2608 0 0001 40 3455 STR VECTR+4 SAVE LENGTH OF A ROW
017 74 0 1677 2609 0 0000 42 3500 *B LDB DIM
017 75 0 1678 2610 1 0000 10 3504 CAD - DIMS-1
017 76 0 1679 2611 0 0000 12 3532 ADD +1
017 77 0 1680 2612 1 0000 14 3503 MUL - DIMS-2 CALCULATE ADDRESS OF FIRST
017 78 0 1681 2613 1 0001 40 3503 STR - DIMS-2 ELEMENT OF THE ARRAY
017 79 0 1682 2614 0 0001 27 3500 DFL DIM,00,1
017 80 0 1683 2615 0 0003 21 2609 DBB B-,3
017 81 0 1684 2616 0 0001 10 3505 CAA DIMS
017 82 0 1685 2617 0 0000 12 3532 ADD +1
017 83 0 1686 2618 0 0000 49 0004 SLA 4
017 84 0 1687 2619 0 0001 12 3456 ADA VECTR+5
017 85 0 1688 2620 0 6410 40 3456 *F STA VECTR+5,64 STORE ACTUAL ADDRESS
017 86 0 1689 2621 0 0000 30 2627 BUN P+
017 87 0 1690 2622 0 0000 41 3454 *C LDR VECTR+3 LINEAR ARRAY
017 88 0 1691 2623 0 0001 40 3455 STR VECTR+4 LENGTH OF ROW IS LENGTH OF ARRAY
017 89 0 1692 2624 0 0000 10 3456 CAD VECTR+5
017 90 0 1693 2625 0 0000 12 3525 ADD +10000 ACTUAL ADDRESS IS ONLY 1 GREATER
017 91 0 1694 2626 0 0000 30 2620 BUN F-
017 94 0 1697 2627 0 0000 10 3561 *P CAD +TBL
017 95 0 1698 2628 0 0000 12 2437 ADD LEVEL
017 96 0 1699 2629 0 0000 40 2437 STA LEVEL SET UP SEARCH OF PROPER STACK
017 97 0 1700 2630 0 0000 40 3496 STA THROW (NOTICE EVERY STACK IS INITIALIZED
017 98 0 1701 2631 0 0000 42 2437 TLU LDB LEVEL WITH THE SYMBOL 9999999999)
017 99 0 1702 2632 1 0000 10 0000 CAD - 0
018 00 0 1703 2633 0 0000 40 3495 STA HOLD SAVE LINK TO NEXT ITEM
018 01 0 1704 2634 0 6400 28 3495 DLB HOLD,64,0
018 02 0 1705 2635 0 0000 41 3452 LDR VECTR+1
018 03 0 1706 2636 1 0011 18 0000 CFR - 0,00 COMPARE FIRST FIVE CHARACTERS
018 04 0 1707 2637 0 0001 34 2644 BCL YES YES, INSERT IT
018 05 0 1708 2638 0 0000 35 2670 BCE MAYBE COMPARISON ON NEXT 5 NEEDED
018 06 0 1709 2639 0 0000 41 2437 *C LDR LEVEL
018 07 0 1710 2640 0 0001 40 3496 STR THROW LAST OPERAND USED LINKS TO
018 08 0 1711 2641 0 0000 41 3495 LDR HOLD THE OPERAND TO BE USED
018 09 0 1712 2642 0 0001 40 2437 STR LEVEL
018 10 0 1713 2643 0 0000 30 2631 BUN TLU
018 13 0 1716 2644 0 0000 41 2437 YES LDR LEVEL
018 14 0 1717 2645 0 0001 18 3496 CFR THROW IF THEY ARE EQUAL THEN THE SPECIAL
018 15 0 1718 2646 0 0000 35 2660 BCE EH CASE WHERE THE HEAD OF THE STACK
018 16 0 1719 2647 0 0000 10 2437 CAD LEVEL IS CHANGED
018 17 0 1720 2648 0 0410 40 3451 STA VECTR,04
018 18 0 1721 2649 0 0000 44 3442 STP GETX GET NEXT FREE CELLS
018 19 0 1722 2650 0 0000 30 3437 BUN GET
018 20 0 1723 2651 0 0000 42 3496 LDB THROW
018 21 0 1724 2652 1 0410 40 0000 STA - 0,04 INSERT NEW OPERAND WITH
018 22 0 1725 2653 0 0000 12 3532 ADD +1 ITS NICE INFORMATIN INTO STACK
018 23 0 1726 2654 0 0000 49 0004 SLA 4
018 24 0 1727 2655 0 6410 40 3451 STA VECTR,64
018 25 0 1728 2656 0 0000 42 3575 LDB MEM
018 26 0 1729 2657 0 0040 29 3451 VL RTF VECTR,4 ENTER THE VECTOR INTO THE STACK
018 27 0 1730 2658 0 0002 40 3575 STB MEM
018 28 0 1731 2659 0 0000 30 2512 BUN J-
018 29 0 1732 2660 0 0000 44 3442 EH STP GETX GET NEXT FREE CELLS
018 30 0 1733 2661 0 0000 30 3437 BUN GET
018 31 0 1734 2662 0 0000 12 3532 ADD +1
018 32 0 1735 2663 0 0000 49 0004 SLA 4
018 33 0 1736 2664 0 0000 12 3575 ADD MEM
018 34 0 1737 2665 0 0000 42 3496 LDB THROW DO AN INSERT FOR THIS SPECIAL CASE
018 35 0 1738 2666 1 0000 41 0000 LDR - 0
018 36 0 1739 2667 1 0000 40 0000 STA - 0
018 37 0 1740 2668 0 0001 40 3451 STR VECTR
018 38 0 1741 2669 0 0000 30 2656 BUN VL-1
018 41 0 1744 2670 0 0000 41 3453 MAYBE LDR VECTR+2 COMPARE WITH
018 42 0 1745 2671 1 0011 18 0001 CFR - 1,00 NEXT FIVE CHARACTERS
018 43 0 1746 2672 0 0000 34 2639 BCH C-
018 44 0 1747 2673 0 0000 30 2644 BUN YES
018 47 0 1750 2674 0 0000 36 2690 NUMLB BZA A+ CONVERT NUMERIC LABELS
018 48 0 1751 2675 0 0001 48 0010 SRT 10 TO ALFANUMERIC FORM
018 49 0 1752 2676 0 0000 46 3452 CLL VECTR+1 WITH LEADING ZEROES
018 50 0 1753 2677 0 5500 37 2685 BFR B+,55,0 SUPPRESSED
018 51 0 1754 2678 0 0000 44 2696 STP SUPX
018 52 0 1755 2679 0 0000 30 2692 BUN SUP
018 53 0 1756 2680 0 0000 40 3452 STA VECTR+1
018 54 0 1757 2681 0 0000 44 2701 STP NSUPX
018 55 0 1758 2682 0 0000 30 2699 BUN NSUP
018 56 0 1759 2683 0 0000 40 3453 STA VECTR+2
018 57 0 1760 2684 0 0000 30 2575 BUN RETRN
018 58 0 1761 2685 0 0001 49 0005 *B SLT 5
018 59 0 1762 2686 0 0000 44 2696 STP SUPX
018 60 0 1763 2687 0 0000 30 2692 BUN SUP
018 61 0 1764 2688 0 0000 40 3453 STA VECTR+2
018 62 0 1765 2689 0 0000 30 2575 BUN RETRN
018 63 0 1766 2690 0 0000 41 3528 *A LDR +80
018 64 0 1767 2691 0 0000 30 2573 BUN RETRN-2
018 67 0 1770 2692 0 0001 49 0001 SUP SLT 1 CONVERT A 5 DIGIT NUMERIC
018 68 0 1771 2693 0 0000 36 2695 BZA *+2 TO ALFA WITH SUPPRESSION
018 69 0 1772 2694 0 0000 12 3528 ADD +80 OF LEADING ZEROES
018 70 0 1773 2695 0 1102 26 2694 IFL *-1,11,2
018 71 0 1774 2696 0 0000 31 2696 SUPX BOF *
018 72 0 1775 2697 0 0000 49 0001 SLA 1
018 73 0 1776 2698 0 0000 30 2692 BUN SUP
018 76 0 1779 2699 0 0001 49 0001 NSUP SLT 1 CONVERT A 5 DIGIT NUMERIC
018 77 0 1780 2700 0 0000 12 3528 ADD +80 TO ALFA - DO NOT SUPPRESS
018 78 0 1781 2701 0 1108 36 2701 NSUPX BFA *,11,8 LEADING ZEROES
018 79 0 1782 2702 0 0000 49 0001 SLA 1
018 80 0 1783 2703 0 0000 30 2699 BUN NSUP
018 83 0 1786 2704 4 1014 50 0000 END1 MLS 4 OT+10 MEMORY DUMP GOES ON ODD LANE
018 84 0 1787 2705 4 1400 58 0000 MPF 4 OT,4
018 85 0 1788 2706 0 0000 42 3562 *A LDB +DUMBS
018 86 0 1789 2707 0 0000 44 2463 STP REMX ENTRY IN DUMP STACK IS N NNNN LL LINK
018 87 0 1790 2708 0 0000 30 2460 BUN REM WHERE NNNN= NUMBER OF ITEMS IN LIST
018 88 0 1791 2709 0 0000 30 2714 BUN ACTUA LL= LEVEL NUMBER FOR THE
018 89 0 1792 2710 0 0000 42 3563 LDB +SBMUD PROCEDURE WHICH CONTAINS
018 90 0 1793 2711 0 0000 44 2448 STP INSX THE DUMP LIST
018 91 0 1794 2712 0 0000 30 2438 BUN INS
018 92 0 1795 2713 0 0000 30 2706 BUN A- INVERT STACK OF NECESSARY DUMPS
018 93 0 1796 2714 0 0000 42 3563 ACTUA LDB +SBMUD
018 94 0 1797 2715 0 0000 44 2463 STP REMX
018 95 0 1798 2716 0 0000 30 2460 BUN REM
018 96 0 1799 2717 0 0000 30 3367 BUN FIN END OF DUMPS
018 97 0 1800 2718 0 0000 46 3499 CLL IDEX
018 98 0 1801 2719 0 0000 40 3495 STA HOLD SAVE DUMP ENTRY
018 99 0 1802 2720 0 6200 36 2739 BFA C+,62,0 IF ZERO - DUMP FOR PROGRAM
019 00 0 1803 2721 0 0000 48 0004 SRA 4 IF NON-ZERO
019 01 0 1804 2722 0 0210 40 3499 STA IDEX,02 SAVE LEVEL AND GET ASSOCIATED
019 02 0 1805 2723 0 0000 10 3876 CAD TBL+300 PROCEDURE NAME
019 03 0 1806 2724 0 0000 40 3500 *B STA DIM
019 04 0 1807 2725 0 6400 28 3500 DLB DIM,64,0
019 05 0 1808 2726 1 0000 10 0002 CAD - 2
019 06 0 1809 2727 0 0210 18 3499 CFA IDEX,02
019 07 0 1810 2728 0 0000 35 2732 BCE A+ PROCEDURE NAME FOUND
019 08 0 1811 2729 0 0000 42 3500 LDB DIM GET NEXT ITEM FROM PROCEDURE STACK
019 09 0 1812 2730 1 0000 10 0000 CAD - 0
019 10 0 1813 2731 0 0000 30 2724 BUN B-
019 11 0 1814 2732 1 0000 10 0000 *A CAD - 0
019 12 0 1815 2733 1 0000 41 0001 LDR - 1
019 13 0 1816 2734 0 0010 40 2765 STA J++4,00
019 14 0 1817 2735 0 0011 40 2766 STR J++5,00
019 15 0 1818 2736 0 0000 41 3564 LDR +EN
019 16 0 1819 2737 0 0411 40 2853 STR EM,04
019 17 0 1820 2738 4 1300 56 2750 MOW 4 Q+,OT,3
019 18 0 1821 2739 0 6212 40 2807 *C STB PRSW1,62
019 19 0 1822 2740 0 6212 40 3096 STB PRSW2,62
019 20 0 1823 2741 0 0000 10 3495 CAD HOLD
019 21 0 1824 2742 0 4500 36 2745 BFA *+3,45,0 IF THE DUMP LIST WAS NULL
019 22 0 1825 2743 0 6229 26 2807 IFL PRSW1,62,29 SET SOME SWITCHES SO THAT
019 23 0 1826 2744 0 6229 26 3096 IFL PRSW2,62,29 EVERY TABLE ITEM OUTPUT TO TAPE
019 24 0 1827 2745 0 6201 26 2807 IFL PRSW1,62,1 WILL HAVE A SIGN OF 4
019 25 0 1828 2746 0 6201 26 3096 IFL PRSW2,62,1
019 26 0 1829 2747 0 6400 28 4230 DLB SCRTB+114,64,0
019 27 0 1830 2748 0 0412 40 2970 STB TRCE,04
019 28 0 1831 2749 0 0000 30 2795 BUN END15
019 31 0 1834 2750 LOD3 DEFN *
019 32 0 1835 2750 0 9000 38 0103 *Q BCS V+-LOD3+100,9
019 33 0 1836 2751 0 2438 44 2751 *Z1 STP *,2438
019 34 0 1837 2752 0 0111 30 2752 *Z2 BUN *,J+-LOD3+100
019 35 0 1838 2753 0 0000 01 2739 *V NOP LOD1-100
019 36 0 1839 2754 0 0000 01 0001 NOP 1
019 37 0 1840 2755 0 0000 42 0104 LDB *-1-LOD3+100
019 38 0 1841 2756 0 0030 29 0108 RTF *+2-LOD3+100,3
019 39 0 1842 2757 0 0000 30 0001 BUN 1
019 40 0 1843 2758 0 0001 42 0103 LBC V--LOD3+100
019 41 0 1844 2759 4 1308 52 0100 MRD 4 100,OT,3,BMOD
019 42 0 1845 2760 0 0000 30 0100 BUN 100
019 43 0 1846 2761 2 0000 00 0000 *J CNST $ PROCEDURE
2762 2 0000 00 0057
2763 2 5956 43 4544
2764 2 6459 45 0000
2765 2 0000 00 0000
2766 2 0000 00 0000
2767 2 0000 00 0000
2768 2 0000 00 0000
2769 2 0000 00 0000
2770 2 0000 00 0000
019 44 0 1847 2771 2 0000 00 0000
2772 2 0000 00 0000
2773 2 0000 00 0000
2774 2 0000 00 0000
2775 2 0000 00 0000
2776 2 0000 00 0000
2777 2 0000 00 0000
2778 2 0000 00 0000
2779 2 0000 00 0000
2780 2 0000 00 0000
2781 2 0000 00 0000
019 45 0 1848 2782 2 0000 00 0000 $
2783 2 0000 00 0000
2784 2 0000 00 0000
019 46 0 1849 2785 LOCN *+10
019 49 0 1852 2795 4 1300 56 2839 END15 MOW 4 Q+,OT,3
019 50 0 1853 2796 0 0000 42 3499 LDB IDEX DUMP
019 51 0 1854 2797 1 0000 10 3776 CAD - TBL+200
019 52 0 1855 2798 0 0000 40 3495 *C STA HOLD
019 53 0 1856 2799 0 0000 42 3495 LDB HOLD
019 54 0 1857 2800 0 9999 20 2823 IBB END2,9999 END OF THIS LABEL STACK
019 55 0 1858 2801 0 6400 28 3495 DLB HOLD,64,0
019 56 0 1859 2802 1 0000 10 0002 CAD - 2 GET OPERAND OF THE LABEL
019 57 0 1860 2803 0 6212 40 2831 STB STOX1,62
019 58 0 1861 2804 0 0000 33 2807 BPA PRSW1 SIGN OF 0 MEANS NOT BEING DUMPED
019 59 0 1862 2805 0 6201 26 2831 IFL STOX1,62,1
019 60 0 1863 2806 0 0000 30 2811 BUN B+
019 61 0 1864 2807 0 0000 30 2810 PRSW1 BUN D+ DUMP HAD A NULL LIST
019 62 0 1865 2808 0 6201 26 2831 IFL STOX1,62,1 SET UP TO MARK ITEM WITH A SIGN OF 4
019 63 0 1866 2809 0 0000 30 2811 BUN B+
019 64 0 1867 2810 0 6230 26 2831 *D IFL STOX1,62,30 DO NOT MARK FOR DUMPING
019 65 0 1868 2811 1 0000 10 0000 *B CAD - 0
019 66 0 1869 2812 0 0000 44 2836 STP STOXX
019 67 0 1870 2813 0 0000 30 2831 BUN STOX1
019 68 0 1871 2814 1 0000 10 0001 CAD - 1
019 69 0 1872 2815 0 0000 44 2836 STP STOXX ENTER ITEM INTO OUTPUT BUFFER
019 70 0 1873 2816 0 0000 30 2831 BUN STOX1
019 71 0 1874 2817 1 0000 10 0002 CAD - 2
019 72 0 1875 2818 0 0000 44 2836 STP STOXX
019 73 0 1876 2819 0 0000 30 2831 BUN STOX1
019 74 0 1877 2820 0 0000 42 3495 LDB HOLD
019 75 0 1878 2821 1 0000 10 0000 CAD - 0
019 76 0 1879 2822 0 0000 30 2798 BUN C-
019 79 0 1882 2823 0 0009 43 0000 END2 LSA 9 OUTPUT END FLAG
019 80 0 1883 2824 0 0000 44 2836 STP STOXX
019 81 0 1884 2825 0 0000 30 2833 BUN STOX
019 82 0 1885 2826 0 1105 26 2825 IFL *-1,11,5
019 83 0 1886 2827 0 0000 31 3079 BOF END3
019 84 0 1887 2828 0 0000 42 3499 LDB IDEX
019 85 0 1888 2829 1 0000 10 3576 CAD - TBL
019 86 0 1889 2830 0 0000 30 2798 BUN C- PROCESS SIMPLE VARIABLES
019 91 0 1894 2831 0 0000 30 2833 STOX1 BUN STOX
019 92 0 1895 2832 0 0004 43 0000 LSA 4 MARK ITEM FOR DUMPING
019 93 0 1896 2833 0 0000 40 0000 STOX STA 0 ENTER ITEM INTO BUFFER
019 94 0 1897 2834 0 0201 26 2833 IFL STOX,02,1
019 95 0 1898 2835 0 0000 31 2837 BOF *+2
019 96 0 1899 2836 0 0000 30 2836 STOXX BUN * EXIT LINE
019 97 0 1900 2837 4 1100 56 0000 MOW 4 0,OT,1 BUFFER FULL
019 98 0 1901 2838 0 0000 30 2836 BUN STOXX
020 00 0 1903 2839 LOD1 DEFN * THIS PROGRAM IS RELOCATED TO
020 01 0 1904 2839 8 0000 01 3000 *Q NOP 8 J++1 LOCATION 0100 AT OBJECT TIME
020 02 0 1905 2840 8 0004 45 3011 *R CLB 8 I+ AND CUASES THE PRINTING OF
020 03 0 1906 2841 8 0000 30 2844 BUN 8 *+3 THE FOLLOWING LIST
020 04 0 1907 2842 8 0000 42 2971 *A LDB 8 B+
020 05 0 1908 2843 8 0001 20 2846 IBB 8 C+,1
020 06 0 1909 2844 4 1100 52 0000 MRD 4 0,OT,1
020 07 0 1910 2845 8 0100 21 2846 DBB 8 *+1,100 LAST LABEL PASSED WAS L(N)
020 08 0 1911 2846 1 0000 10 0100 *C CAD - 100
020 09 0 1912 2847 8 0412 40 2971 STB 8 B+,04
020 10 0 1913 2848 8 0009 33 2853 BSA 8 EM,9 LABEL IN PROGRAM NUMBER OF TIMES
020 11 0 1914 2849 8 9000 38 2842 BCS 8 A-,9
020 12 0 1915 2850 8 0002 39 2853 IOM 8 EM EXECUTED
020 13 0 1916 2851 8 0004 33 2853 BSA 8 EM,4
020 14 0 1917 2852 8 0000 30 2842 BUN 8 A-
020 15 0 1918 2853 EM DEFN * L N
020 16 0 1919 2853 8 0000 30 2854 *D BUN 8 *+1
020 17 0 1920 2854 8 0000 01 3017 NOP 8 I++6 - -
020 18 0 1921 2855 8 0000 42 2854 LDB 8 *-1
020 19 0 1922 2856 8 0040 29 3041 ASSGZ RTF 8 NONE,4 VARIABLE IN PROGRAM VALUE
020 20 0 1923 2857 8 0001 10 3017 CAA 8 I++6
020 21 0 1924 2858 8 0001 12 3018 ADA 8 I++7 V N
020 22 0 1925 2859 8 0000 31 2860 BOF 8 *+1 - -
020 23 0 1926 2860 8 0000 36 2862 BZA 8 *+2 - -
020 24 0 1927 2861 8 0000 30 2866 BUN 8 EN-2
020 25 0 1928 2862 8 0000 01 3041 NOP 8 NONE
020 26 0 1929 2863 8 0000 42 2862 LDB 8 *-1
020 27 0 1930 2864 8 0412 40 2856 STB 8 ASSGZ,04
020 28 0 1931 2865 8 0000 30 2853 BUN 8 D-
020 29 0 1932 2866 0 2438 44 2866 *Z3 STP *,2438
020 30 0 1933 2867 0 0272 30 2867 *Z4 BUN *,I+-LOD1+100
020 31 0 1934 2868 8 0000 42 2840 EN LDB 8 R- WITH A PROCEDURE THE FIRST
020 32 0 1935 2869 8 0000 46 3010 CLL 8 I+-1 MESSAGE IS NOT PRINTED
020 33 0 1936 2870 8 1220 26 3010 IFL 8 I+-1,12,20
020 34 0 1937 2871 8 0240 29 3010 RTF 8 I+-1,24
020 35 0 1938 2872 8 0401 27 2971 DFL 8 B+,04,1
020 36 0 1939 2873 8 0000 44 2853 STP 8 D-
020 37 0 1940 2874 8 0000 30 2842 BUN 8 A-
020 38 0 1941 2875 8 0009 33 2905 BSA 8 V+,9
020 39 0 1942 2876 0 2468 44 2876 *Z5 STP *,2468
020 40 0 1943 2877 0 0260 30 2877 *Z6 BUN *,J+-LOD1+100
020 41 0 1944 2878 8 0401 27 2971 DFL 8 B+,04,1
020 42 0 1945 2879 8 0000 44 2853 STP 8 D-
020 43 0 1946 2880 8 0000 30 2842 BUN 8 A-
020 44 0 1947 2881 8 0010 40 3013 *E STA 8 I++2,00
020 45 0 1948 2882 8 0009 33 2905 BSA 8 V+,9
020 46 0 1949 2883 8 0000 44 2853 STP 8 D-
020 47 0 1950 2884 8 0000 30 2842 BUN 8 A-
020 48 0 1951 2885 8 0010 40 3014 STA 8 I++3,00
020 49 0 1952 2886 8 0000 44 2853 STP 8 D-
020 50 0 1953 2887 8 0000 30 2842 BUN 8 A-
020 51 0 1954 2888 1 6400 28 0100 DLB - 100,64,0
020 52 0 1955 2889 1 0001 11 0000 CSA - 0
020 53 0 1956 2890 8 6244 36 2892 BFA 8 *+2,62,44
020 54 0 1957 2891 1 0001 11 0001 CSA - 1
020 55 0 1958 2892 8 0410 18 2970 CFA 8 TRCE,04
020 56 0 1959 2893 8 0001 35 2895 BCU 8 *+2
020 57 0 1960 2894 8 0002 20 2889 IBB 8 *-5,2
020 58 0 1961 2895 0 0000 48 0006 SRA 6
020 59 0 1962 2896 8 0000 12 2980 ADD 8 D1
020 60 0 1963 2897 8 0000 44 2853 STP 8 D-
020 61 0 1964 2898 8 0000 30 2964 BUN 8 A1+
020 62 0 1965 2899 8 0810 40 3019 STA 8 I++8,08
020 63 0 1966 2900 0 2408 44 2900 *Z7 STP *,2408
020 64 0 1967 2901 0 0272 30 2901 *Z8 BUN *,I+-LOD1+100
020 65 0 1968 2902 8 0000 44 2853 STP 8 D-
020 66 0 1969 2903 8 0000 30 2842 BUN 8 A-
020 67 0 1970 2904 8 0000 30 2881 BUN 8 E-
020 68 0 1971 2905 8 0000 42 2928 *V LDB 8 A9+
020 69 0 1972 2906 8 0000 46 2998 CLL 8 J+-1
020 70 0 1973 2907 8 1220 26 2998 IFL 8 J+-1,12,20
020 71 0 1974 2908 8 0350 29 2998 RTF 8 J+-1,35
020 72 0 1975 2909 8 0000 44 2853 STP 8 D-
020 73 0 1976 2910 8 0000 30 2842 BUN 8 A-
020 74 0 1977 2911 8 0009 33 3035 BSA 8 V+,9
020 75 0 1978 2912 0 2468 44 2912 *Z9 STP *,2468
020 76 0 1979 2913 0 0248 30 2913 *Z10 BUN *,K+-LOD1+100
020 77 0 1980 2914 0 2448 44 2914 *Z11 STP *,2448
020 78 0 1981 2915 0 0260 30 2915 *Z12 BUN *,J+-LOD1+100
020 79 0 1982 2916 8 0401 27 2971 DFL 8 B+,04,1
020 80 0 1983 2917 8 0000 44 2853 *C STP 8 D-
020 81 0 1984 2918 8 0000 30 2842 BUN 8 A-
020 82 0 1985 2919 8 0009 33 3035 BSA 8 V+,9
020 83 0 1986 2920 8 0010 40 3001 STA 8 J++2,00
020 84 0 1987 2921 8 0000 44 2853 STP 8 D-
020 85 0 1988 2922 8 0000 30 2842 BUN 8 A-
020 86 0 1989 2923 8 0010 40 3002 STA 8 J++3,00
020 87 0 1990 2924 8 0000 44 2853 STP 8 D-
020 88 0 1991 2925 8 0000 30 2842 BUN 8 A-
020 89 0 1992 2926 0 0001 48 0010 SRT 10
020 90 0 1993 2927 1 6400 28 0100 DLB - 100,64,0
020 91 0 1994 2928 8 0001 45 2999 *A9 CLA 8 J+
020 92 0 1995 2929 1 0000 12 0000 ADD - 0
020 93 0 1996 2930 8 2100 37 2941 BFR 8 F+,21,0
020 94 0 1997 2931 8 0000 44 2853 STP 8 D-
020 95 0 1998 2932 8 0000 30 2964 BUN 8 A1+
020 96 0 1999 2933 8 0000 42 2839 LDB 8 Q-
020 97 0 2000 2934 8 9993 21 2935 DBB 8 *+1,9993
020 98 0 2001 2935 8 0030 29 2981 RTF 8 S+,3
020 99 0 2002 2936 8 0000 46 3010 CLL 8 J++11
021 00 0 2003 2937 8 1220 26 3010 IFL 8 J++11,12,20
021 01 0 2004 2938 0 2408 44 2938 *Z13 STP *,2408
021 02 0 2005 2939 0 0260 30 2939 *Z14 BUN *,J+-LOD1+100
021 03 0 2006 2940 8 0000 30 2917 BUN 8 C-
021 04 0 2007 2941 0 0000 49 0002 *F SLA 2
021 05 0 2008 2942 8 0210 40 2986 STA 8 S++5,02
021 06 0 2009 2943 0 0000 48 0002 SRA 2
021 07 0 2010 2944 0 0000 49 0002 SLA 2
021 08 0 2011 2945 8 0000 44 2853 STP 8 D-
021 09 0 2012 2946 8 0000 30 2964 BUN 8 A1+
021 10 0 2013 2947 8 0000 42 2839 LDB 8 Q-
021 11 0 2014 2948 8 9993 21 2949 DBB 8 *+1,9993
021 12 0 2015 2949 8 0030 29 2981 RTF 8 S+,3
021 13 0 2016 2950 8 0203 26 3007 IFL 8 J++8,02,03
021 14 0 2017 2951 8 0000 10 2986 CAD 8 S++5
021 15 0 2018 2952 8 0000 41 2982 LDR 8 S++1
021 16 0 2019 2953 8 2100 37 2955 BFR 8 *+2,21,0
021 17 0 2020 2954 8 0000 13 2985 SUB 8 S++4
021 18 0 2021 2955 8 0000 44 2853 STP 8 D-
021 19 0 2022 2956 8 0000 30 2964 BUN 8 A1+
021 20 0 2023 2957 0 0001 49 0016 SLT 16
021 21 0 2024 2958 8 4411 40 3010 STR 8 J++11,44
021 22 0 2025 2959 8 0000 10 2981 CAD 8 S+
021 23 0 2026 2960 0 0000 48 0002 SRA 2
021 24 0 2027 2961 8 0410 40 3009 STA 8 J++10,04
021 25 0 2028 2962 8 8223 26 3009 IFL 8 J++10,82,23
021 26 0 2029 2963 8 0000 30 2938 BUN 8 F--3
021 27 0 2030 2964 8 0000 46 2981 *A1 CLL 8 S+
021 28 0 2031 2965 8 1220 26 2981 IFL 8 S+,12,20
021 29 0 2032 2966 8 0000 33 2969 BPA 8 *+3
021 30 0 2033 2967 8 8220 26 2981 IFL 8 S+,82,20
021 31 0 2034 2968 0 0000 43 0000 LSA 0
021 32 0 2035 2969 0 0001 48 0010 SRT 10
021 33 0 2036 2970 0 0004 45 0000 TRCE CLB
021 34 0 2037 2971 0 0001 45 0000 *B CLA
021 35 0 2038 2972 0 0000 49 0001 *Y SLA 1
021 36 0 2039 2973 8 0000 12 2984 ADD 8 S++3
021 37 0 2040 2974 0 0001 49 0001 SLT 1
021 38 0 2041 2975 8 2000 20 2972 IBB 8 Y-,2000
021 39 0 2042 2976 9 0010 40 2982 STA 9 S++1,00
021 40 0 2043 2977 8 1105 26 2972 IFL 8 Y-,11,5
021 41 0 2044 2978 8 0000 31 2853 BOF 8 D-
021 42 0 2045 2979 8 0001 20 2971 IBB 8 B-,1
021 43 0 2046 2980 0 0000 01 0000 D1 CNST 10000
021 44 0 2047 2981 2 0000 00 0000 *S CNST 20000000000
021 45 0 2048 2982 2 0000 00 0000 CNST 20000000000
021 46 0 2049 2983 2 0000 00 0000 CNST 20000000000
021 47 0 2050 2984 0 0000 00 0008 CNST 8
021 48 0 2051 2985 0 0000 00 0050 CNST 50
021 49 0 2052 2986 0 0000 00 0000 CNST 0
021 50 0 2053 2987 2 0000 00 0000 *K CNST $ VARIABLE IN PROGRAM VALUE $
2988 2 0000 00 6541
2989 2 5949 41 4253
2990 2 4500 49 5500
2991 2 5759 56 4759
2992 2 4154 00 0000
2993 2 0000 00 0000
2994 2 0000 00 0000
2995 2 0000 00 0000
2996 2 0000 65 4153
2997 2 6445 00 0000
021 51 0 2054 2998 2 0000 00 0000 CNST 20000000000
021 52 0 2055 2999 2 0000 00 0000 *J CNST $ LABEL IN PROGRAM NUMBER OF TIMES EXECUTE
3000 2 0000 00 5341
3001 2 4245 53 0049
3002 2 5500 57 5956
3003 2 4759 41 5400
3004 2 0000 00 0000
3005 2 0055 64 5442
3006 2 4559 00 5646
3007 2 0063 49 5445
3008 2 6200 45 6745
021 53 0 2056 3009 2 4364 63 4544 D$
021 54 0 2057 3010 2 0000 00 0000 CNST 20000000000
021 55 0 2058 3011 2 0000 00 0000 *I CNST $ LAST LABEL PASSED WAS
3012 2 0000 00 5341
3013 2 6263 00 5341
3014 2 4245 53 0057
3015 2 4162 62 4544
3016 2 0066 41 6200
3017 2 0000 00 0000
3018 2 0000 00 0000
3019 2 0000 00 0000
3020 2 0000 00 0000
021 56 0 2059 3021 2 0000 00 0000
3022 2 0000 00 0000
3023 2 0000 00 0000
3024 2 0000 00 0000
3025 2 0000 00 0000
3026 2 0000 00 0000
3027 2 0000 00 0000
3028 2 0000 00 0000
3029 2 0000 00 0000
3030 2 0000 00 0000
3031 2 0000 00 0000
021 57 0 2060 3032 2 0000 00 0000 $
3033 2 0000 00 0000
3034 2 0000 00 0000
021 60 0 2063 3035 0 0000 01 3027 *V NOP Q+-100 THIS PROGRAM READS IN THE
021 61 0 2064 3036 8 0000 42 3038 LDB 8 *+2 ARRAY DUMP ROUTINE
021 62 0 2065 3037 8 0030 29 3039 RTF 8 *+2,3
021 63 0 2066 3038 0 0000 30 0098 BUN 98
021 64 0 2067 3039 8 0001 42 3035 LBC 8 *-4
021 65 0 2068 3040 4 1308 52 0100 MRD 4 100,1,3,BMOD
021 66 0 2069 3041 2 2455 56 5545 NONE CNST $(NONE) $
3042 2 0400 00 0000
3043 2 0000 00 0000
3044 2 0000 00 0000
021 67 0 2070 3045 LOCN LOD1+240
021 71 0 2074 3079 0 0000 10 2833 END3 CAD STOX DUMP BUFFER(LABELS AND VARIABLES)
021 72 0 2075 3080 0 0400 36 3082 BFA *+2,04,0 IF IT IS NOT EMPTY
021 73 0 2076 3081 4 1100 56 0000 MOW 4 0,OT,1
021 74 0 2077 3082 0 0002 45 0000 CLR
021 75 0 2078 3083 0 0411 40 2833 STR STOX,04 INITIALIZE STORE ROUTINE
021 76 0 2079 3084 4 1300 56 3127 MOW 4 Q+,OT,3
021 77 0 2080 3085 0 0000 42 3499 LDB IDEX
021 78 0 2081 3086 1 0000 10 3676 CAD - TBL+100
021 79 0 2082 3087 0 0000 40 3495 *C STA HOLD
021 80 0 2083 3088 0 0000 42 3495 LDB HOLD
021 81 0 2084 3089 0 9999 20 3118 IBB END4,9999 END OF LIST OF ARRAYS
021 82 0 2085 3090 0 6400 28 3495 DLB HOLD,64,0
021 83 0 2086 3091 1 0000 10 0004 CAD - 4
021 84 0 2087 3092 0 6212 40 2831 STB STOX1,62
021 85 0 2088 3093 0 0000 33 3096 BPA PRSW2 ITEM UNMARKES - MARK IT IF PRSW2 IS ON
021 86 0 2089 3094 0 6201 26 2831 IFL STOX1,62,1
021 87 0 2090 3095 0 0000 30 3100 BUN A+
021 88 0 2091 3096 0 0000 30 3099 PRSW2 BUN D+
021 89 0 2092 3097 0 6201 26 2831 IFL STOX1,62,1
021 90 0 2093 3098 0 0000 30 3100 BUN A+
021 91 0 2094 3099 0 6230 26 2831 *D IFL STOX1,62,30
021 92 0 2095 3100 1 0000 10 0000 *A CAD - 0
021 93 0 2096 3101 0 0000 44 2836 STP STOXX
021 94 0 2097 3102 0 0000 30 2831 BUN STOX1
021 95 0 2098 3103 1 0000 10 0001 CAD - 1
021 96 0 2099 3104 0 0000 44 2836 STP STOXX
021 97 0 2100 3105 0 0000 30 2831 BUN STOX1
021 98 0 2101 3106 1 0000 10 0002 CAD - 2
021 99 0 2102 3107 0 0000 44 2836 STP STOXX
022 00 0 2103 3108 0 0000 30 2831 BUN STOX1
022 01 0 2104 3109 1 0000 10 0003 CAD - 3 OUTPUT ARRAY ITEM TO TAPE
022 02 0 2105 3110 0 0000 44 2836 STP STOXX
022 03 0 2106 3111 0 0000 30 2831 BUN STOX1
022 04 0 2107 3112 1 0000 10 0004 CAD - 4
022 05 0 2108 3113 0 0000 44 2836 STP STOXX
022 06 0 2109 3114 0 0000 30 2831 BUN STOX1
022 07 0 2110 3115 0 0000 42 3495 LDB HOLD
022 08 0 2111 3116 1 0000 10 0000 CAD - 0
022 09 0 2112 3117 0 0000 30 3087 BUN C-
022 12 0 2115 3118 0 0009 43 0000 END4 LSA 9
022 13 0 2116 3119 0 0000 44 2836 STP STOXX PUT A END FLAG OUT TO BUFFER
022 14 0 2117 3120 0 0000 30 2833 BUN STOX
022 15 0 2118 3121 0 0000 10 2833 CAD STOX
022 16 0 2119 3122 0 0400 36 3124 BFA *+2,04,0
022 17 0 2120 3123 4 1100 56 0000 MOW 4 0,OT,1 DUMP BUFFER IF NOT EMPTY
022 18 0 2121 3124 0 0002 45 0000 CLR
022 19 0 2122 3125 0 0411 40 2833 STR STOX,04 INITIALIZE STORE SUBROUTINE
022 20 0 2123 3126 0 0000 30 2714 BUN ACTUA GET NEXTITEM FOR SBMUD STACK
022 23 0 2126 3127 LOD2 DEFN * THIS PROGRAM IS RELOCATED TO
022 24 0 2127 3127 8 0004 45 3291 *Q CLB 8 J++1 LOCATION 0100 AT OBJECT TIME
022 25 0 2128 3128 8 0000 30 3131 BUN 8 *+3 AND CAUSES THE PRINTING OF
022 26 0 2129 3129 8 0000 42 3181 *A LDB 8 B+ THE FOLLOWING LIST
022 27 0 2130 3130 8 0001 20 3133 IBB 8 C+,1
022 28 0 2131 3131 4 1100 52 0000 MRD 4 0,1,1
022 29 0 2132 3132 8 0100 21 3133 DBB 8 *+1,100
022 30 0 2133 3133 1 0000 10 0100 *C CAD - 100
022 31 0 2134 3134 8 0412 40 3181 STB 8 B+,04
022 32 0 2135 3135 8 0009 33 3140 BSA 8 D+,9 ARRAY A
022 33 0 2136 3136 8 9000 38 3129 BCS 8 A-,9
022 34 0 2137 3137 8 0002 39 3140 IOM 8 D+
022 35 0 2138 3138 8 0004 33 3140 BSA 8 D+,4 (ELEMENTS OF THE ARRAY PRINTED BY ROW)
022 36 0 2139 3139 8 0000 30 3129 BUN 8 A-
022 37 0 2140 3140 8 0000 30 3142 *D BUN 8 *+2
022 38 0 2141 3141 8 0000 30 3140 BUN 8 *-1
022 39 0 2142 3142 8 0009 33 3314 BSA 8 V+,9
022 40 0 2143 3143 8 0010 40 3269 STA 8 I++3,00
022 41 0 2144 3144 8 0000 44 3140 STP 8 D-
022 42 0 2145 3145 8 0000 30 3129 BUN 8 A- NOTE THAT A ROW HAS AS MANY ELEMENTS
022 43 0 2146 3146 8 0010 40 3270 STA 8 I++4,00 IN IT AS THE LAST INTEGER IN THE
022 44 0 2147 3147 0 2468 44 3147 *Z15 STP *,2468
022 45 0 2148 3148 0 0239 30 3148 *Z16 BUN *,I+-LOD2+100
022 46 0 2149 3149 0 2448 44 3149 *Z17 STP *,2448
022 47 0 2150 3150 0 0263 30 3150 *Z18 BUN *,J+-LOD2+100
022 48 0 2151 3151 8 0000 44 3140 STP 8 D-
022 49 0 2152 3152 8 0000 30 3129 BUN 8 A-
022 50 0 2153 3153 8 0000 40 3262 STA 8 L+
022 51 0 2154 3154 8 0000 44 3140 STP 8 D-
022 52 0 2155 3155 8 0000 30 3129 BUN 8 A-
022 53 0 2156 3156 8 0010 18 3256 CFA 8 S+,00
022 54 0 2157 3157 8 0001 35 3159 BCU 8 *+2
022 55 0 2158 3158 8 0000 10 3257 CAD 8 S++1
022 56 0 2159 3159 8 0000 40 3263 STA 8 L++1
022 57 0 2160 3160 8 0000 40 3264 STA 8 L++2
022 58 0 2161 3161 8 0000 44 3140 STP 8 D-
022 59 0 2162 3162 8 0000 30 3129 BUN 8 A-
022 60 0 2163 3163 8 2110 18 3256 CFA 8 S+,21
022 61 0 2164 3164 0 0000 48 0004 SRA 4
022 62 0 2165 3165 8 0410 40 3169 STA 8 G+,04
022 63 0 2166 3166 8 0000 46 3265 *H CLL 8 N+
022 64 0 2167 3167 8 0021 26 3265 IFL 8 N+,00,21
022 65 0 2168 3168 0 0003 45 0000 CAR
022 66 0 2169 3169 0 0000 12 3169 *G ADD *
022 67 0 2170 3170 8 0000 46 3289 CLL 8 J+-1
022 68 0 2171 3171 8 0000 46 3252 CLL 8 T+
022 69 0 2172 3172 8 1220 26 3252 IFL 8 T+,12,20
022 70 0 2173 3173 8 0000 33 3176 BPA 8 *+3
022 71 0 2174 3174 8 8220 26 3252 IFL 8 T+,82,20
022 72 0 2175 3175 0 0000 43 0000 LSA 0
022 73 0 2176 3176 8 0001 35 3179 BCU 8 *+3
022 74 0 2177 3177 0 0001 49 0002 SLT 2
022 75 0 2178 3178 8 0211 40 3258 STR 8 S++2,02
022 76 0 2179 3179 0 0001 48 0010 SRT 10
022 77 0 2180 3180 0 0004 45 0000 CLB
022 78 0 2181 3181 0 0001 45 0000 *B CLA
022 79 0 2182 3182 0 0000 49 0001 *Y SLA 1
022 80 0 2183 3183 8 0000 12 3259 ADD 8 S++3
022 81 0 2184 3184 0 0001 49 0001 SLT 1
022 82 0 2185 3185 8 2000 20 3182 IBB 8 Y-,2000
022 83 0 2186 3186 9 0010 40 3253 STA 9 T++1,00
022 84 0 2187 3187 8 1105 26 3182 IFL 8 Y-,11,5
022 85 0 2188 3188 8 0000 31 3190 BOF 8 *+2
022 86 0 2189 3189 8 0001 20 3181 IBB 8 B-,1
022 87 0 2190 3190 8 0000 35 3234 BCE 8 P+
022 88 0 2191 3191 8 0000 46 3255 CLL 8 T++3
022 89 0 2192 3192 8 0001 42 3265 *M LBC 8 N+
022 90 0 2193 3193 8 0000 41 3252 LDR 8 T+
022 91 0 2194 3194 9 0411 40 3312 STR 9 J++22,04
022 92 0 2195 3195 8 0000 41 3253 LDR 8 T++1
022 93 0 2196 3196 9 0001 40 3313 STR 9 J++23
022 94 0 2197 3197 8 0000 41 3254 LDR 8 T++2
022 95 0 2198 3198 9 0001 40 3314 STR 9 J++24
022 96 0 2199 3199 8 0000 41 3255 LDR 8 T++3
022 97 0 2200 3200 9 6611 40 3315 STR 9 J++25,66
022 98 0 2201 3201 8 0401 28 3263 DLB 8 L++1,04,1
022 99 0 2202 3202 8 9999 20 3229 IBB 8 W+,9999
023 00 0 2203 3203 8 0403 28 3265 DLB 8 N+,04,3
023 01 0 2204 3204 8 9999 20 3221 IBB 8 Y+,9999
023 02 0 2205 3205 8 0401 28 3262 *H DLB 8 L+,04,1
023 03 0 2206 3206 8 0001 21 3217 DBB 8 X+,1
023 04 0 2207 3207 8 0000 41 3251 LDR 8 O+
023 05 0 2208 3208 8 0000 37 3212 BZR 8 E+
023 06 0 2209 3209 8 0000 44 3140 *F STP 8 D-
023 07 0 2210 3210 8 0000 30 3129 BUN 8 A-
023 08 0 2211 3211 8 0000 30 3142 BUN 8 D-+2
023 09 0 2212 3212 *Z19 DEFN *
023 10 0 2213 3212 0 2428 44 3212 *E STP *,2428
023 11 0 2214 3213 0 0263 30 3213 *Z20 BUN *,J+-LOD2+100
023 12 0 2215 3214 8 0000 42 3127 LDB 8 Q-
023 13 0 2216 3215 8 0230 29 3290 RTF 8 J+,23
023 14 0 2217 3216 8 0000 30 3209 BUN 8 F-
023 15 0 2218 3217 8 0000 46 3251 *X CLL 8 O+
023 16 0 2219 3218 8 0401 26 3169 IFL 8 G-,04,1
023 17 0 2220 3219 0 0001 45 0000 CLA
023 18 0 2221 3220 8 0000 30 3169 BUN 8 G-
023 19 0 2222 3221 *Y DEFN *
023 20 0 2223 3221 0 2408 44 3221 *Z21 STP *,2408
023 21 0 2224 3222 0 0263 30 3222 *Z22 BUN *,J+-LOD2+100
023 22 0 2225 3223 8 0000 46 3265 CLL 8 N+
023 23 0 2226 3224 8 0421 26 3265 IFL 8 N+,04,21
023 24 0 2227 3225 8 0000 42 3127 LDB 8 Q-
023 25 0 2228 3226 8 0230 29 3290 RTF 8 J+,23
023 26 0 2229 3227 8 0000 44 3251 STP 8 O+
023 27 0 2230 3228 8 0000 30 3205 BUN 8 H-
023 28 0 2231 3229 *Z23 DEFN *
023 29 0 2232 3229 0 2428 44 3229 *W STP *,2428
023 30 0 2233 3230 0 0263 30 3230 *Z24 BUN *,J+-LOD2+100
023 31 0 2234 3231 8 0000 41 3264 LDR 8 L++2
023 32 0 2235 3232 8 0001 40 3263 STR 8 L++1
023 33 0 2236 3233 8 0000 30 3223 BUN 8 Y-+2
023 34 0 2237 3234 8 0203 26 3252 *P IFL 8 T+,02,03
023 35 0 2238 3235 8 0411 40 3254 STR 8 T++2,04
023 36 0 2239 3236 8 8223 26 3254 IFL 8 T++2,82,23
023 37 0 2240 3237 8 0000 10 3258 CAD 8 S++2
023 38 0 2241 3238 8 0000 41 3253 LDR 8 T++1
023 39 0 2242 3239 8 2100 37 3241 BFR 8 *+2,21,0
023 40 0 2243 3240 8 0000 13 3260 SUB 8 S++4
023 41 0 2244 3241 8 0000 33 3244 BPA 8 *+3
023 42 0 2245 3242 8 0220 26 3254 IFL 8 T++2,02,20
023 43 0 2246 3243 0 0000 43 0000 LSA 0
023 44 0 2247 3244 0 0002 45 0000 CLR
023 45 0 2248 3245 0 0001 48 0001 SRT 1
023 46 0 2249 3246 0 0000 49 0001 SLA 1
023 47 0 2250 3247 0 0001 49 0007 SLT 7
023 48 0 2251 3248 8 0000 12 3261 ADD 8 S++5
023 49 0 2252 3249 8 0010 40 3255 STA 8 T++3,00
023 50 0 2253 3250 8 0000 30 3192 BUN 8 M-
023 51 0 2254 3251 0 0000 00 0000 *O CNST 0
023 52 0 2255 3252 2 0000 00 0000 *T CNST 20000000000
023 53 0 2256 3253 2 0000 00 0000 CNST 20000000000
023 54 0 2257 3254 2 0000 00 0000 CNST 20000000000
023 55 0 2258 3255 2 0000 00 0000 CNST 20000000000
023 56 0 2259 3256 0 0000 00 0001 *S CNST 1
023 57 0 2260 3257 0 0000 00 9999 CNST 9999
023 58 0 2261 3258 0 0000 00 0000 CNST 0
023 59 0 2262 3259 0 0000 00 0008 CNST 8
023 60 0 2263 3260 0 0000 00 0050 CNST 50
023 61 0 2264 3261 0 8080 00 0000 CNST 8080000000
023 62 0 2265 3262 0 0000 00 0000 *L CNST 0
023 63 0 2266 3263 0 0000 00 0000 CNST 0
023 64 0 2267 3264 0 0000 00 0000 CNST 0
023 65 0 2268 3265 0 0000 00 0000 *N CNST 0
023 66 0 2269 3266 2 0000 00 0000 *I CNST $ ARRAY
3267 2 0000 41 5959
3268 2 4168 00 0000
3269 2 0000 00 0000
3270 2 0000 00 0000
3271 2 0000 00 0000
3272 2 0000 00 0000
3273 2 0000 00 0000
3274 2 0000 00 0000
3275 2 0000 00 0000
023 67 0 2270 3276 2 0000 00 0000
3277 2 0000 00 0000
3278 2 0000 00 0000
3279 2 0000 00 0000
3280 2 0000 00 0000
3281 2 0000 00 0000
3282 2 0000 00 0000
3283 2 0000 00 0000
3284 2 0000 00 0000
3285 2 0000 00 0000
3286 2 0000 00 0000
023 68 0 2271 3287 2 0000 00 0000 $
3288 2 0000 00 0000
3289 2 0000 00 0000
023 69 0 2272 3290 2 0000 00 0000 *J CNST $
3291 2 0000 00 0000
3292 2 0000 00 0000
3293 2 0000 00 0000
3294 2 0000 00 0000
3295 2 0000 00 0000
3296 2 0000 00 0000
3297 2 0000 00 0000
3298 2 0000 00 0000
3299 2 0000 00 0000
023 70 0 2273 3300 2 0000 00 0000
3301 2 0000 00 0000
3302 2 0000 00 0000
3303 2 0000 00 0000
3304 2 0000 00 0000
3305 2 0000 00 0000
3306 2 0000 00 0000
3307 2 0000 00 0000
3308 2 0000 00 0000
3309 2 0000 00 0000
3310 2 0000 00 0000
023 71 0 2274 3311 2 0000 00 0000 $
3312 2 0000 00 0000
3313 2 0000 00 0000
023 74 0 2277 3314 0 0000 01 2650 *V NOP LOD3-100 GET EITHER A PROCEDURE
023 75 0 2278 3315 8 0000 42 3256 LDB 8 S- HEADER OR END OF DUMP
023 76 0 2279 3316 8 0030 29 3318 RTF 8 *+2,3 PROGRAM
023 77 0 2280 3317 0 0000 30 0001 BUN 1
023 78 0 2281 3318 8 0001 42 3314 LBC 8 *-4
023 79 0 2282 3319 4 1308 52 0100 MRD 4 100,1,3,BMOD
023 80 0 2283 3320 0 0000 30 0100 BUN 100
023 81 0 2284 3321 LOCN LOD2+240
023 84 0 2287 3367 4 1100 56 3395 FIN MOW 4 Q+,OT,1 OUTPUT END OF DUMP PROGRAM
023 85 0 2288 3368 4 1008 50 0000 MRW 4 OT
023 86 0 2289 3369 0 0000 10 3575 CAD MEM
023 87 0 2290 3370 0 0000 18 3565 CFA +LDBG-1
023 88 0 2291 3371 0 0000 34 3373 BCH A+
023 89 0 2292 3372 0 0000 30 1012 BUN LDBG
023 90 0 2293 3373 0 0000 18 3566 *A CFA +MEM+302
023 91 0 2294 3374 0 0001 34 3376 BCL A+
023 92 0 2295 3375 0 0000 30 1012 BUN LDBG
023 93 0 2296 3376 4 2000 59 3378 *A MIB 4 *+2,T
023 94 0 2297 3377 0 0000 30 3376 BUN *-1
023 95 0 2298 3378 4 2008 50 0000 MRW 4 T
023 96 0 2299 3379 0 4400 28 3379 DLB *,44,0
023 97 0 2300 3380 4 2000 58 0000 MPF 4 T,10
023 98 0 2301 3381 0 1100 21 3380 DBB *-1,1100
023 99 0 2302 3382 4 2200 58 0000 MPF 4 T,2
024 00 0 2303 3383 0 0000 42 3384 LDB *+1
024 01 0 2304 3384 0 0000 01 0000 POSCT NOP 0
024 02 0 2305 3385 0 9999 20 3388 IBB *+3,9999
024 03 0 2306 3386 4 2100 58 0000 MPF 4 T,1
024 04 0 2307 3387 0 0000 30 3385 BUN *-2
024 05 0 2308 3388 4 2000 52 0400 MRD 4 400,T,10
024 06 0 2309 3389 4 2000 52 1400 MRD 4 1400,T,10
024 07 0 2310 3390 4 2008 50 0000 MRW 4 T
024 08 0 2311 3391 4 2000 59 3393 MIB 4 *+2,T
024 09 0 2312 3392 0 0000 30 3391 BUN *-1
024 10 0 2313 3393 4 1004 50 0000 MLS 4 OT
024 11 0 2314 3394 0 0000 30 1012 BUN LDBG
024 14 0 2317 3395 LOD4 DEFN *
024 15 0 2318 3395 4 1018 50 0000 *Q MRW 4 OT+10
024 16 0 2319 3396 0 9000 38 0104 BCS *+3-LOD4+100,9
024 17 0 2320 3397 0 2418 44 3397 *Z25 STP *,2418
024 18 0 2321 3398 0 0108 30 3398 *Z26 BUN *,J+-LOD4+100
024 19 0 2322 3399 0 0000 41 0107 LDR A+-LOD4+100
024 20 0 2323 3400 0 0001 40 0013 STR MLOAD-1
024 21 0 2324 3401 0 0000 30 0013 BUN MLOAD-1
024 22 0 2325 3402 4 1401 52 0000 *A MNC 4 0,OT,4
024 23 0 2326 3403 2 0000 00 0000 *J CNST $
3404 2 0000 00 0000
3405 2 0000 00 0000
3406 2 0000 00 0000
3407 2 0000 00 0000
3408 2 0000 00 0000
3409 2 0000 00 0000
3410 2 0000 00 0000
3411 2 0000 00 0000
3412 2 0000 00 0000
024 24 0 2327 3413 2 0000 00 0000
3414 2 0000 00 0000
3415 2 0000 00 0000
3416 2 0000 00 0000
3417 2 0000 00 0000
3418 2 0000 00 0000
3419 2 0000 00 0000
3420 2 0000 00 0000
3421 2 0000 00 0000
3422 2 0000 00 0000
3423 2 0000 00 0000
024 25 0 2328 3424 2 0000 00 0000 $
3425 2 0000 00 0000
3426 2 0000 00 0000
024 26 0 2329 3427 LOCN *+10 SPACE FOR PATCHES
024 29 0 2332 3437 0 0000 10 3575 GET CAD MEM
024 30 0 2333 3438 0 0000 12 3545 ADD +7
024 31 0 2334 3439 0 0410 18 3567 CFA +XZERO-1,04
024 32 0 2335 3440 0 0000 34 3443 BCH A+ IS THERE ENOUGH ROOM
024 33 0 2336 3441 0 0000 10 3575 CAD MEM YES- USE PRESENT SETTING OF MEM
024 34 0 2337 3442 0 0000 30 3442 GETX BUN *
024 35 0 2338 3443 0 0000 10 3530 *A CAD +700 IF NOT SET IT TO 0800
024 36 0 2339 3444 0 0000 40 3575 STA MEM AND DONT BOTHER CHECKING ANY MORE
024 37 0 2340 3445 0 0000 30 3442 BUN GETX
024 40 0 2343 3446 0 0034 46 0000 SBMUD F244 0,SBMUD,0 INVERTED DUMP STACK
024 41 0 2344 3447 0 3447 00 0000 FIXUP F424 FIXUP,0,0 FIX-UPS FOR CALLS OF EXT PROGRAMS FROM
WITHIN SEGMENTS
024 43 0 2346 3448 0 0000 00 0099 NN CNST 99 CONSTANT 99
024 44 0 2347 3449 0 0000 00 0000 LCHOD CNST 0
024 45 0 2348 3450 0 0757 00 7250 HALT F424 757,0,7250 O K HALT
024 46 0 2349 3451 0 0000 00 0000 VECTR CNST 0,0,0,0,0,0 STORAGE VECTOR USED BY THE MONSTER
3452 0 0000 00 0000
3453 0 0000 00 0000
3454 0 0000 00 0000
3455 0 0000 00 0000
3456 0 0000 00 0000
024 47 0 2350 3457 2 1662 45 4159 SRERR CNST 21662454159 SEARCH ERROR
024 48 0 2351 3458 2 4348 00 4559 CNST 24348004559
024 49 0 2352 3459 2 5956 59 0202 CNST 25956590202
024 50 0 2353 3460 2 1643 48 4543 CSERR CNST 21643484543 CHECK SUM ERROR
024 51 0 2354 3461 2 5200 62 6454 CNST 25200626454
024 52 0 2355 3462 2 0045 59 5956 CNST 20045595956
024 53 0 2356 3463 2 5902 02 0202 CNST 25902020202
024 54 0 2357 3464 3 3333 33 3333 ERFRM FBGR PRINT,9(T5A),75B
3465 3 3333 33 3333
3466 3 3333 33 3333
3467 3 3333 33 3333
3468 3 3333 33 3333
3469 3 3333 33 3333
3470 3 3333 11 1111
3471 1 1113 11 1111
3472 1 1113 11 1111
3473 1 1113 11 1111
3474 1 1113 11 1111
3475 1 1113 11 1111
3476 1 1113 11 1111
3477 1 1113 11 1111
3478 1 1113 11 1111
3479 1 1110 00 0000
3480 0 0000 00 0000
3481 0 0000 00 0000
3482 0 0000 00 0000
3483 0 0000 00 0000
3484 0 0000 00 0000
3485 0 0000 00 0000
3486 0 0000 00 0000
3487 0 0000 00 0000
3488 0 0000 00 0000
3489 0 0000 00 0000
3490 0 0000 00 0000
3491 0 0000 00 0000
3492 0 0000 00 0000
024 55 0 2358 3493 0 0000 00 0000 SREF CNST 0 SYMBOL REFERENCE ADDRESS - PRESENT ITEM
024 56 0 2359 3494 0 0000 00 0000 SL CNST 0 SYMBOL LENGTH
024 57 0 2360 3495 0 0000 00 0000 HOLD CNST 0 SHORT TERM STORAGE LOCATION
024 58 0 2361 3496 0 0000 00 0000 THROW CNST 0 DITTO
024 59 0 2362 3497 0 9999 99 9999 NINES CNST 9999999999,9999999999 LARGEST POSSIBLE SYMBOL
3498 0 9999 99 9999
ALL 301 STACKS USED BY THE MONSTER ARE INITIALIZED WITH
THIS SYMBOL SO SORTING CAN BE DONE
024 62 0 2365 3499 0 0000 00 0000 IDEX CNST 0 LEVEL OF PROCEDURE
024 63 0 2366 3500 0 0000 00 0000 DIM CNST 0 NUMBER OF DIMENSIONS
024 64 0 2367 3501 0 0000 00 0000 J CNST 0 COUNTER USED IN CONNECTION WITH LBRT
024 65 0 2368 3502 0 0000 00 0000 TST CNST 0 COUNT OF ROUTINES ASSIGNED INDIREDTLY
024 66 0 2369 3503 0 0000 00 0000 ADDIT CNST 0
024 67 0 2370 3504 0 0000 00 0000 MADIT CNST 0
024 68 0 2371 3505 DIMS LOCN *+20 DIMENSION LIST
024 69 0 2372 3525 LX LOCN *+50
024 70 0 2373 3575 0 0000 00 3877 MEM HLT *+302 NEXT FREE LOCATION
024 71 0 2374 3576 0 0034 97 0000 TBL F244 0,NINES,0 SORTED STACKS SET UP BY THE MONSTER
024 72 0 2375 3577 LOCN 4000
024 73 0 2376 4000 0 2008 50 0004 MRW 2,4
024 74 0 2377 4001 0 2000 58 0000 *A MPF 2,0
024 75 0 2378 4002 0 0101 27 4000 DFL A--1,01,1
024 76 0 2379 4003 0 0000 32 4001 BRP A-
024 77 0 2380 4004 0 2500 58 0000 MPF 2,5
024 78 0 2381 4005 0 2300 56 0000 MOW 0000,2,3
024 79 0 2382 4006 0 2900 56 0700 MOW 700,2,9
024 80 0 2383 4007 0 2000 56 1600 MOW 1600,2,0
024 81 0 2384 4008 0 2000 56 2600 MOW 2600,2,0
024 82 0 2385 4009 0 2008 50 0000 MRW 2
024 83 0 2386 4010 0 2222 00 2222 F424 2222,00,2222
024 84 0 2387 4011 LOCN LX
024 85 0 2388 3525 FINI 2
3525 0 0000 01 0000 +0000010000
3526 0 0000 00 0010 +0000000010
3527 0 0000 00 0040 +0000000040
3528 0 0000 00 0080 +0000000080
3529 0 0000 00 0100 +0000000100
3530 0 0000 00 0700 +0000000700
3531 0 0525 00 5250 +0525005250
3532 0 0000 00 0001 +0000000001
3533 0 0000 00 0011 +0000000011
3534 0 0011 11 0000 +0011110000
3535 2 4649 55 4962 $FINIS
3536 0 1000 60 0000 +1000600000
3537 0 0000 00 2000 +0000002000
3538 0 0002 00 0000 +0002000000
3539 1 0000 00 1111 -0000001111
3540 0 0000 00 1111 +0000001111
3541 0 1111 11 0000 +1111110000
3542 0 0000 00 0023 +0000000023
3543 2 4800 00 0000 $H
3544 0 0000 54 5600 +0000545600
3545 0 0000 00 0007 +0000000007
3546 0 9669 00 9669 +9669009669
3547 2 5756 56 5300 $POOL
3548 0 0034 35 3600 +0034353600
3549 0 0000 00 0008 +0000000008
3550 0 9999 99 9999 +9999999999
3551 0 0000 00 0009 +0000000009
3552 0 0000 00 0099 +0000000099
3553 0 0010 12 3536 +0010123536
3554 0 0000 00 4233 +0000004233
3555 0 0000 00 2218 +0000002218
3556 0 0000 00 1103 +0000001103
3557 0 0000 00 2202 +0000002202
3558 0 0000 00 2428 +0000002428
3559 0 0000 00 4116 +0000004116
3560 0 0000 00 3577 +0000003577
3561 0 0000 00 3576 +0000003576
3562 0 0000 00 0292 +0000000292
3563 0 0000 00 3446 +0000003446
3564 0 0000 00 2868 +0000002868
3565 0 0000 00 1011 +0000001011
3566 0 0000 00 3877 +0000003877
3567 0 0000 00 4094 +0000004094
SYMBOL TABLE
3535 $FINIS 3543 $H 3547 $POOL 36 *A..1 53 *A..2
234 *A..3 238 *A..4 732 *A..5 738 *A..6 743 *A..7
752 *A..8 764 *A..9 776 *A.10 832 *A.11 891 *A.12
925 *A.13 957 *A.14 965 *A.15 1010 *A.16 1044 *A.17
1055 *A.18 1088 *A.19 1092 *A.20 1118 *A.21 1142 *A.22
1146 *A.23 1278 *A.24 1335 *A.25 1363 *A.26 1433 *A.27
1447 *A.28 1498 *A.29 1606 *A.30 1614 *A.31 1729 *A.32
1805 *A.33 1844 *A.34 2446 *A.35 2468 *A.36 2528 *A.37
2562 *A.38 2597 *A.39 2607 *A.40 2690 *A.41 2706 *A.42
2732 *A.43 2842 *A.44 3100 *A.45 3129 *A.46 3373 *A.47
3376 *A.48 3402 *A.49 3443 *A.50 4001 *A.51 2964 *A1.1
2928 *A9.1 24 *B..1 72 *B..2 83 *B..3 783 *B..4
834 *B..5 842 *B..6 928 *B..7 952 *B..8 960 *B..9
976 *B.10 990 *B.11 1060 *B.12 1115 *B.13 1180 *B.14
1194 *B.15 1287 *B.16 1378 *B.17 1443 *B.18 1504 *B.19
1791 *B.20 1840 *B.21 2449 *B.22 2564 *B.23 2609 *B.24
2685 *B.25 2724 *B.26 2811 *B.27 2971 *B.28 3181 *B.29
60 *C..1 751 *C..2 772 *C..3 774 *C..4 787 *C..5
827 *C..6 840 *C..7 920 *C..8 977 *C..9 989 *C.10
1196 *C.11 1377 *C.12 1438 *C.13 1510 *C.14 1766 *C.15
1793 *C.16 1829 *C.17 2441 *C.18 2622 *C.19 2639 *C.20
2739 *C.21 2798 *C.22 2846 *C.23 2917 *C.24 3087 *C.25
3133 *C.26 821 *D..1 882 *D..2 912 *D..3 1272 *D..4
1379 *D..5 1511 *D..6 2454 *D..7 2599 *D..8 2810 *D..9
2853 *D.10 3099 *D.11 3140 *D.12 810 *E..1 836 *E..2
872 *E..3 910 *E..4 943 *E..5 1229 *E..6 1404 *E..7
1582 *E..8 1753 *E..9 1821 *E.10 2881 *E.11 3212 *E.12
805 *F..1 836 *F..2 1078 *F..3 1190 *F..4 1586 *F..5
1749 *F..6 2620 *F..7 2941 *F..8 3209 *F..9 1560 *F1.1
1556 *F2.1 866 *G..1 1591 *G..2 1819 *G..3 3169 *G..4
1509 *H..1 1826 *H..2 3166 *H..3 3205 *H..4 1491 *I..1
3011 *I..2 3266 *I..3 1524 *J..1 2512 *J..2 2761 *J..3
2999 *J..4 3290 *J..5 3403 *J..6 1512 *K..1 2987 *K..2
1499 *L..1 1598 *L..2 3262 *L..3 48 *M..1 3192 *M..2
1413 *N..1 1518 *N..2 3265 *N..3 70 *O..1 3251 *O..2
2627 *P..1 3234 *P..2 2750 *Q..1 2839 *Q..2 3127 *Q..3
3395 *Q..4 92 *Q1.1 96 *Q2.1 64 *R..1 1383 *R..2
2840 *R..3 1106 *S..1 1225 *S..2 1252 *S..3 1483 *S..4
1487 *S..5 2981 *S..6 3256 *S..7 22 *T..1 1102 *T..2
1256 *T..3 2473 *T..4 3252 *T..5 75 *V..1 2753 *V..2
2905 *V..3 3035 *V..4 3314 *V..5 1065 *W..1 3229 *W..2
69 *X..1 1580 *X..2 3217 *X..3 1561 *X1.1 1557 *X2.1
1564 *X3.1 1567 *X4.1 967 *Y..1 1071 *Y..2 1176 *Y..3
1318 *Y..4 1548 *Y..5 2972 *Y..6 3182 *Y..7 3221 *Y..8
71 *Z..1 968 *Z..2 1132 *Z..3 1322 *Z..4 1570 *Z..5
2751 *Z1.1 2913 *Z101 2914 *Z111 2915 *Z121 2938 *Z131
2939 *Z141 3147 *Z151 3148 *Z161 3149 *Z171 3150 *Z181
3212 *Z191 2752 *Z2.1 3213 *Z201 3221 *Z211 3222 *Z221
3229 *Z231 3230 *Z241 3397 *Z251 3398 *Z261 2866 *Z3.1
2867 *Z4.1 2876 *Z5.1 2877 *Z6.1 2900 *Z7.1 2901 *Z8.1
2912 *Z9.1 3532 +0000000001 3545 +0000000007 3549 +0000000008 3551 +0000000009
3526 +0000000010 3533 +0000000011 3542 +0000000023 3527 +0000000040 3528 +0000000080
3552 +0000000099 3529 +0000000100 3562 +0000000292 3530 +0000000700 3565 +0000001011
3556 +0000001103 3540 +0000001111 3537 +0000002000 3557 +0000002202 3555 +0000002218
3558 +0000002428 3564 +0000002868 3563 +0000003446 3561 +0000003576 3560 +0000003577
3566 +0000003877 3567 +0000004094 3559 +0000004116 3554 +0000004233 3525 +0000010000
3544 +0000545600 3538 +0002000000 3553 +0010123536 3534 +0011110000 3548 +0034353600
3531 +0525005250 3536 +1000600000 3541 +1111110000 3546 +9669009669 3550 +9999999999
3539 -0000001111 12 A 2714 ACTUA 3503 ADDIT 1020 AGAIN
2856 ASSGZ 273 AVAIL 2439 AVALE 13 B 1470 BIGCN
8 BMOD 2 BUF 2318 BUFR 2163 CHAR 1475 CHNG
941 CNST8 1600 CNST9 181 CNTRF 180 CNTRI 2472 COUT
2201 CRD 3460 CSERR 2980 D1 2159 D2D3 184 DESCR
1618 DICT 3500 DIM 3505 DIMS 292 DUMBS 2660 EH
2853 EM 2868 EN 2704 END1 2795 END15 2823 END2
3079 END3 3118 END4 258 EPSLN 2218 EQTAB 3464 ERFRM
2175 EXLBT 1602 EXPL 185 EXPLN 1613 EXPLX 1153 EXTEX
1123 EXTP 3367 FIN 3447 FIXUP 101 FMT1 130 FMT3
159 FMT4 201 FMT5 2456 FULL 2199 FUNS 1701 FXUP
1733 FXUPX 1709 FXUPY 4097 FZERO 3437 GET 3442 GETX
3450 HALT 208 HALT1 3495 HOLD 1441 I 1472 I1
3499 IDEX 2418 IFERR 1120 II 1632 IMAGE 2438 INS
2160 INSTR 2448 INSX 1493 IOERR 3501 J 1121 JJ
2158 K 2471 KOUNT 2157 L 4107 LALE 1857 LBRT
1448 LBSB 1458 LBSBX 3449 LCHOD 202 LCMAX 1012 LDBG
2437 LEVEL 1690 LIBRF 1691 LIBRX 2161 LL0 233 LOADC
230 LOADL 31 LOADP 4217 LOCN 2839 LOD1 3127 LOD2
2750 LOD3 3395 LOD4 76 LODOV 74 LODOX 207 LRTF
3525 LX 3504 MADIT 4227 MAMAX 2670 MAYBE 0 MDUMP
3575 MEM 14 MLOAD 2474 MONST 1848 MSG 4999 MSIZE
1122 MSK 1034 MTS 1128 NAME 3497 NINES 950 NMBRL
3448 NN 3041 NONE 2699 NSUP 2701 NSUPX 1430 NTAG
1334 NUMB 2674 NUMLB 1473 O1 1474 O2 275 OP
1 OT 969 OUT 2 PNTR 3384 POSCT 1103 POST
101 PREV 939 PRNT 2807 PRSW1 3096 PRSW2 1041 RDT
1351 READ 1358 READX 2460 REM 2463 REMX 2575 RETRN
1 RLO 3446 SBMUD 1359 SCAN 1429 SCANX 2162 SCNCT
1426 SCNXX 4116 SCRTB 91 SECT 3494 SL 1785 SRCH
1431 SRCHP 1811 SRCHX 3493 SREF 3457 SRERR 4216 SSC
2833 STOX 2831 STOX1 2836 STOXX 2692 SUP 2696 SUPX
400 SX 2427 SYMBL 2 T 188 TAB 3576 TBL
2174 TEMP 2173 TEMP3 3496 THROW 2631 TLU 2970 TRCE
3502 TST 251 VARB 3451 VECTR 2657 VL 1812 WEM
1847 WEMX 1734 WRIT2 1739 WRIT3 1781 WRIT4 1765 WRIT5
1762 WRIT6 1751 WRIT7 1733 WRITX 1755 WRT10 183 WRTF
4099 XONE 1023 XT001 4095 XZERO 2644 YES 27 ZERO
2164 ZERSS
END PASS 2, ERRORS = 0
Reference in New Issue View Git Blame Copy Permalink