github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-25 19:51:55 +00:00
Code Issues Releases Wiki Activity
Files
06a4eb3f08b5a493dc6a9f91f9dc0ede1a59d8a7
pkimpel.retro-220/software/BALGOL/BALGOL-Overlay.card
Paul Kimpel d4c6799b25 1. Commit additional transcriptions for BALGOL intrinsic functions. 
2. Commit initial transcription work for BALGOL compiler-generator program.
3. Commit corrections and enhancements to tools/BAC-Assembler.html and tools/BAC-Xscript-Reformatter.wsf to support additional assembly syntax found in the intrinsics.
2017-01-22 09:58:12 -08:00

2389 lines
382 KiB
Plaintext
Raw Blame History

1 ASMBL 2 0 10 0
1 REORD 100.0 0 11 0
1 BUF DEFN 0002 TAPE OUTPUT BUFFER 01 00 0
1 OT DEFN 1 OUTPUT TAPE 01 01 0
1 T DEFN 2 COMPILER TAPE UNIT 01 02 0
1 PNTR DEFN 2 PRINTER UNIT 01 03 0
1 PREV DEFN 101 ADDRESS OF PREVIOUS INSTRUCTION IN BUF 001 04 0
1 CNTRI DEFN 180 COUNTER FOR INSTRUCTIONS IN BUFFER 001 05 0
1 CNTRF DEFN 181 COUNTER FOR FIX-UPS IN BUFFER 001 06 0
1 WRTF DEFN 183 RTF CONSTANT FOR WRITE SUBROUTINE 001 07 0
1 DESCR DEFN 184 INSTRUCTION IN OUTPUT BUFFER 01 08 0
1 EXPLN DEFN 185 SYMBOLIC EXPLANATION 01 09 0
1 LCMAX DEFN 202 HIGHEST LOCATION USED IN SEGMENTS 001 10 0
1 LRTF DEFN 207 LOCATION OF LAST RTF IN OUTPUT BUFFER 001 11 0
1 HALT1 DEFN 208 ERROR FLAG(SIGN IS 8 IF NO ERRORS) 001 12 0
1 VARB DEFN 251 LAST LOCATION USED FOR VARIABLES, ECT 001 13 0
1 EPSLN DEFN 258 NUMBER OF EXTERNAL PROGRAMS 01 14 0
1 AVAIL DEFN 275 FREED-UP LOCATIONS 01 15 0
1 OP DEFN 275 OPERATOR STACK 01 16 0
1 DUMBS DEFN 292 DUMP STACK 01 17 0
1 SX DEFN 400 MAG TAPE BUFFER 01 18 0
1 IMAGE DEFN 1632 CARD INPUT BUFFER 01 19 0
1 XZERO DEFN 4095 START OF FIXED POINT CONSTANT LIST 001 20 0
1 FZERO DEFN 4097 START OF FLOATING POINT CONSTANT LIST 001 21 0
1 XONE DEFN 4099 FIXED POINT CONSTANT 1 01 22 0
1 LALE DEFN 4107 POINTS TO LABEL PROCESSING SUBROUTINE 001 23 0
1 SCRTB DEFN 4116 SCRAMBLE TABLE FOR IDENTIFIERS 001 24 0
1 SSC DEFN 4216 POINTS TO WHATS LEFT OF MEMORY 001 25 0
1 LOCN DEFN 4217 LOCATION COUNTER FOR INSTRUCTIONS 001 26 0
1 MAMAX DEFN 4227 END OF ASSOCIATIVE MEMORY 001 27 0
1 MSIZE DEFN 4999 MEMORY SIZE 01 28 0
1 REM 01 29 0
1 REM 01 30 0
1 LOCN 0000 01 31 0
1 MDUMP HLT 0 SYMBOLIC MEMORY DUMP IS ON ODD LANE 001 32 0
1 SOH SET INDICATOR FOR ENTIRE DUMP 001 33 0
1 BOF *+2 01 34 0
1 IFL T+,51,3 01 35 0
1 MRW 4 OT+10 01 36 0
1 STA A 01 37 0
1 STB B 01 38 0
1 LBC *+1 01 39 0
1 NOP LOD1-100 01 40 0
1 MOW 4 0,OT,4 01 41 0
1 MRD 4 100,OT,BMOD 01 42 0
1 BUN 100 01 43 0
1 A HLT 01 44 0
1 B HLT MSIZE+1 01 45 0
1 REM 01 46 0
1 REM 01 47 0
1 MLOAD LDB 0 01 48 0
1 STB B+,04 GET EXIT LINE 01 49 0
1 MLS 4 OT POSITION TAPE SO THAT 01 50 0
1 MPF 4 OT,1 SEGMENTATION WILL WORK 01 51 0
1 LDB B 01 52 0
1 SOR 01 53 0
1 FDV * 01 54 0
1 CAD A 01 55 0
1 *T NOP *+1 01 56 0
1 STB T-,51 01 57 0
1 *B BUN * RETURN TO PROGRAM 01 58 0
1 REM 01 59 0
1 REM 01 60 0
1 LDB *+2 01 61 0
1 RTF A,1 01 62 0
1 ZERO RTF 199,100 ZERO MEMORY 01 63 0
1 STB A BEFORE LOADING PROGRAM 01 64 0
1 CFR A,04 01 65 0
1 BCU ZERO 01 66 0
1 LOADP MRD 4 100,OT,1 01 67 0
1 LDR X+ 01 68 0
1 STR M+ 01 69 0
1 LBC *+1 01 70 0
1 CLA 100 01 71 0
1 *A ADD - 200 01 72 0
1 ADD - 201 01 73 0
1 ADD - 202 01 74 0
1 ADD - 203 01 75 0
1 ADD - 204 SUM CHECK THE BLOCK 01 76 0
1 IBB A-,5 01 77 0
1 BOF *+1 01 78 0
1 BZA M+ 01 79 0
1 SPO Q1+,4 IF IT DOES NOT 01 80 0
1 F424 9669,0,9669 SAY SO AND HALT 01 81 0
1 MPB 4 OT,1 TRY AGAIN 01 82 0
1 BUN LOADP 01 83 0
1 REM 01 84 0
1 REM 01 85 0
1 *M CAD 101 GET BUFFER ENTRY 01 86 0
1 LDB M- 01 87 0
1 BSA C+,4 IS IT A RTF(IF NOT, ALL INSTRUCTIONS 001 88 0
1 REM 01 89 0
1 CLL Z+ ARE LOADED SO PROCESS FIX-UPS 001 90 0
1 IFL Z+,02,99 01 91 0
1 *A DLB Z+,04,1 01 92 0
1 LDR - 100 IF FIX-UP HAS A SIGN OF 8 IT INDICATES 001 93 0
1 BFR B+,12,80 END OF SOME SEGMENT 01 94 0
1 BZR LOADP 01 95 0
1 DLB - 100,64,0 DO FIX-UP 01 96 0
1 STR - 0,04 01 97 0
1 BUN A- 01 98 0
1 REM 01 99 0
1 REM 02 00 0
1 *C STA R+,66 02 01 0
1 DBB 0,9999 INSTRUCTIONS ARE TRANSFERED TO 002 02 0
1 STB R+,04 MEMORY WITH A RTF 02 03 0
1 LDB - 9999 02 04 0
1 *R RTF 0,100 02 05 0
1 SRT 7 02 06 0
1 ADD O+ GO GET NEXT RTF 02 07 0
1 ADL M- 02 08 0
1 BUN M- 02 09 0
1 *X CAD 101 02 10 0
1 *O HLT 1 02 11 0
1 *Z HLT 99 FIX-UP COUNTER 02 12 0
1 REM 02 13 0
1 REM 02 14 0
1 *B CFR SECT,67 HAVE WE LOADED ALL OF THE 02 15 0
1 BCU A- SEGMENT INDICATED BY SECT 02 16 0
1 LODOX BUN 200 02 17 0
1 REM 02 18 0
1 REM 02 19 0
1 *V HLT 1111 02 20 0
1 LODOV LDB LODOX 02 21 0
1 CAD - 0 02 22 0
1 EXT V- 02 23 0
1 SLA 4 02 24 0
1 STA SECT,00 GET SEGMENT NUMBER 02 25 0
1 IFL LODOX,04,I ADVANCE EXIT LINE BY ONE 02 26 0
1 CLB 02 27 0
1 *B MTS 4 SECT,OT SEARCH FOR SEGMENT 02 28 0
1 MRD 4 100,OT,1 02 29 0
1 CAD 100 02 30 0
1 CFA SECT,100 DID THE MACHINE WORK 02 31 0
1 BCE LOADP+1 IF YES,LOAD THE SEGMENT 02 32 0
1 SPO Q2+,3 IF NOT PRINT THE MESSAGE 02 33 0
1 F424 9669,0,9669 SEGMENT ERROR 02 34 0
1 BUN B- TRY AGAIN 02 35 0
1 REM 02 36 0
1 SECT HLT 8 0 SEGMENT NUMBER 02 37 0
1 REM 02 38 0
1 *Q1 CNST 21602020202 02 39 0
1 CNST 24348454352 02 40 0
1 CNST 20062645400 02 41 0
1 CNST 24559595659 02 42 0
1 *Q2 CNST 21662454754 02 43 0
1 CNST 24555630045 02 44 0
1 CNST 25959565902 02 45 0
1 REM 02 46 0
1 REM 02 47 0
1 LOCN 100 02 48 0
1 HLT 0 02 49 0
1 FMT1 FBGR INPUT,16(P5A),P10Z 02 50 0
1 FMT3 FBGR PRINT,49B,T5A,T1A1B2A4Z,T10N,T8Z1A,XB6Z2A,48B MONITOR 002 51 0
1 FMT4 FBGR PRINT,32B,11(T5A),33B ERROR MESSAGE FORMAT BAND 002 52 0
1 TAB DEFN * 02 53 0
1 LOCN 200 02 54 0
1 HLT 0 02 55 0
1 FMT5 FBGR PRINT,24(T5A) PRINTER-PUNCH FORMAT BAND 002 56 0
1 REM 02 57 0
1 LOADL CRI 4 *+2,1 LOADER ENTRANCE 02 58 0
1 BUN LOADC 02 59 0
1 CRF 4 FMT1+28,51 LOAD INPUT FORMAT IF READY 002 60 0
1 LOADC STB 200,55 02 61 0
1 *A IFL 200,54,1 02 62 0
1 BOF A+ 02 63 0
1 CWI 4 A+,2 02 64 0
1 BUN A- 02 65 0
1 *A CWI 4 *+2,2 02 66 0
1 BUN *+4 02 67 0
1 CWF 4 FMT3+28,32 LOAD PRINTER FORMATS IF PRINTER READY 002 68 0
1 CWF 4 FMT4+28,42 02 69 0
1 CWF 4 FMT5+28,52 02 70 0
1 CWI 4 *+2,1 02 71 0
1 BUN *+2 02 72 0
1 CWF 4 FMT5+28,51 LOAD PUNCH FORMAT IF PUNCH IS READY 002 73 0
1 LDR B 02 74 0
1 BUN ZERO-2 02 75 0
1 REM 02 76 0
1 REM 02 77 0
1 LOCN 700 02 78 0
1 REM 02 79 0
1 BCS *+3,4 02 80 0
1 STP 4 9898,1642 02 81 0
1 BUN 4 9898,IMAGE 02 82 0
1 MRD 4 0900,T,7 02 83 0
1 MRD 4 1600,T,0 02 84 0
1 MRD 4 2600,T,0 02 85 0
1 CLA 3200 02 86 0
1 LBC *-1 02 87 0
1 ADD - 3600 02 88 0
1 ADD - 3601 02 89 0
1 ADD - 3602 02 90 0
1 ADD - 3603 02 91 0
1 ADD - 3604 02 92 0
1 ADD - 3605 02 93 0
1 ADD - 3606 02 94 0
1 ADD - 3607 02 95 0
1 ADD - 3608 02 96 0
1 ADD - 3609 02 97 0
1 IBB *-10,10 02 98 0
1 BOF *+1 02 99 0
1 BZA A+ IF IT DOES NOT PRINT 03 00 0
1 SPO CSERR,4 CHECK SUM ERROR 03 01 0
1 F424 9669,0,9669 03 02 0
1 MPB 4 T,2 03 03 0
1 MPB 4 T,10 03 04 0
1 MPB 4 T,10 03 05 0
1 MPB 4 T,10 03 06 0
1 MRD 4 400,T,10 TRY AGAIN 03 07 0
1 MRD 4 1400,T,10 03 08 0
1 MRD 4 2400,T,10 03 09 0
1 MRD 4 3400,T,2 03 10 0
1 BUN 707 03 11 0
1 REM 03 12 0
1 REM 03 13 0
1 *A CWF 4 ERFRM+28,42 03 14 0
1 LDB DUMBS 03 15 0
1 IBB A+,9999 03 16 0
1 LDB +SCRTB+117 03 17 0
1 STP LIBRX 03 18 0
1 BUN LIBRF 03 19 0
1 *A CAD HALT1 SET THE X X UP IF AN ERROR 03 20 0
1 BSA *+3,8 OCCURRED DURING COMPILATION 03 21 0
1 LDR +525005250 03 22 0
1 STR HALT 03 23 0
1 LDB OP 03 24 0
1 *A STB C+,04 TEST FOR OP STACK EMPTY 03 25 0
1 IBB A+,9999 IT SHOULD BE 03 26 0
1 STP WEMX 03 27 0
1 BUN WEM 03 28 0
1 CNST 30102030000 EXTRA LEFT PARENTHESIS 03 29 0
1 LDB C+ 03 30 0
1 LDB - 0 03 31 0
1 BUN A- 03 32 0
1 *C HLT 0 03 33 0
1 REM 03 34 0
1 REM 03 35 0
1 *A CAD BUF DUMP BUFFER IF SEGMENTATION WAS USED 003 36 0
1 BFA A+,64,0 AND BUFFER IS NOT EMPTY 03 37 0
1 CAD BUF+99 03 38 0
1 ADD BUF+98 03 39 0
1 BZA *+3 03 40 0
1 STP WRITX 03 41 0
1 BUN WRIT5 03 42 0
1 CAD BUF INCREASE SEGMENT NUMBER 03 43 0
1 CLL BUF 03 44 0
1 STA BUF,64 03 45 0
1 IFL BUF,64,1 03 46 0
1 BUN C+ 03 47 0
1 *A LDR +9669009669 GENERATE BIG X X HALT 03 48 0
1 STR INSTR 03 49 0
1 STP WRITX 03 50 0
1 BUN WRIT2 03 51 0
1 LDR +1000600000 FOLLOWED BY A CARD READ 03 52 0
1 STR INSTR IF NOT USING SEGMENTATION 03 53 0
1 STP WRITX 03 54 0
1 BUN WRIT2 03 55 0
1 REM 03 56 0
1 REM 03 57 0
1 *C LDR $POOL$ 03 58 0
1 STR EXPLN 03 59 0
1 *C LDB *+1 03 60 0
1 CAD XZERO 03 61 0
1 *A STA HOLD 03 62 0
1 BFA B+,64,0 03 63 0
1 SRA 4 03 64 0
1 LDR - 1 03 65 0
1 STP WRITX OUTPUT ALL CONSTANTS USED BY 03 66 0
1 BUN WRIT3 OBJECT PROGRAM 03 67 0
1 CAD HOLD 03 68 0
1 *B BFA C+,04,0 XXXX 2R YYYY LINK R=0 FLOATING 03 69 0
1 LDB HOLD XXXX+1 (CONSTANT) R=1 INTEGER 03 70 0
1 CAD - 0 YYY IS THE ASIGNMENT 03 71 0
1 BUN A- LINK=0 INDICATES END OF LIST 03 72 0
1 *C LDB *+1 03 73 0
1 CAD FZERO PROCESS FLOATING LIST 03 74 0
1 STP B- 03 75 0
1 BUN A- 03 76 0
1 REM 03 77 0
1 REM 03 78 0
1 CLL EXPLN 03 79 0
1 MLS 4 T 03 80 0
1 MIB 4 *+2,T 03 81 0
1 BUN *-1 03 82 0
1 MRD 4 LBRT,T,3 READ LIBRARY TABLE 03 83 0
1 DFL WRT10,11,9 CHANGE CONTROL SWITCH FOR EXTERNAL 003 84 0
1 DFL FXUPY,11,9 03 85 0
1 LDB EPSLN PROGRAMS 03 86 0
1 STP EXTEX PROCESS EXTERNAL PROGRAMS IF EPSLN 003 87 0
1 DBB EXTP,1 IS NON-ZERO 03 88 0
1 DFL WRT10,11,2 CHANGE CONTROL SWITCH FOR LIBRARY 003 89 0
1 DFL FXUPY,11,2 03 90 0
1 CAD +545600 MODIFY ERROR MESSAGE FOR LIBRARY 003 91 0
1 STA CNST9,06 TO READ UNDEFINED EQUIVALENCE LIBRARY 003 92 0
1 REM INCORRECT 03 93 0
1 REM 03 94 0
1 REM 03 95 0
1 *F CLL TST 03 96 0
1 CLB 03 97 0
1 CAD LOCN 03 98 0
1 STA LCHOD 03 99 0
1 DBB *+1,9999-LBRT START AT LBRT+1 04 00 0
1 *E STB I 04 01 0
1 CAD - 0 04 02 0
1 BSA A+,1 004 03 0
1 BZA B+ END OF THIS PASS ON THE TABLE 004 04 0
1 STA J,00 004 05 0
1 DLB J,64,0 04 06 0
1 CAD - 0 04 07 0
1 BFA A+,11,3 IS THE ROUTINE ASSIGNED 04 08 0
1 LDB I IF YES 04 09 0
1 IFL - 0,12,10 MARK IT WITH A SIGN OF 1 04 10 0
1 BUN C+ 04 11 0
1 *D DLB J,64,0 04 12 0
1 CAD - 0 04 13 0
1 BFA C+,11,4 04 14 0
1 IFL TST,00,1 ASSIGN SUBROUTINE IF IT HAS NOT 04 15 0
1 STP LIBRX ALREADY ASSIGNED, TST COUNTS NUMBER 004 16 0
1 BUN LIBRF OF SUBROUTINES ASSIGNED ON THIS PASS 004 17 0
1 *C LDB J THRU TABLE 04 18 0
1 IBB A+,9999 SEQUENCE DOWN LIST OF REQUIRED 04 19 0
1 CAD - 1 SUBROUTINES 04 20 0
1 STA J 04 21 0
1 BUN D- 04 22 0
1 *A LDB I ADVANCE TO NEXT TABLE ENTRY 04 23 0
1 IBB E-,1 04 24 0
1 *B LDB TST IF 1 ADDITIONAL SUBROUTINE WAS ASSIGNED 004 25 0
1 DBB F-,1 ANOTHER PASS THRU TABLE IS NECESSARY 004 26 0
1 REM 04 27 0
1 REM 04 28 0
1 *E DEFN * 04 29 0
1 *F DLB II,44,0 04 30 0
1 CAD - LBRT 04 31 0
1 BFA A+,00,0 END OF LIBRARY TABLE 04 32 0
1 BSA B+,1 IF ENTRY WAS MARKED PROCESS THIS 004 33 0
1 *C IFL II,44,1 ROUTINE 04 34 0
1 BUN F- 04 35 0
1 *B DLB - LBRT,64,0 04 36 0
1 CAD - 0 GET OPERAND OF ROUTINE TO BE PROCESSED 004 37 0
1 DLB *,44,0 POSITION TAPE TO BEGINNING OF ROUTINE 004 38 0
1 MFS II,T 04 39 0
1 STA LOCN,64 SETUP LOCATION COUNTER 04 40 0
1 SLA 2 04 41 0
1 STA MSK,44 AND MASK FOR RELOCATION OF INSTRUCTIONS 004 42 0
1 SRA 6 04 43 0
1 STA MSK,04 04 44 0
1 CLL EQTAB-1 CLEAR EQUIVALENCE TABLE 04 45 0
1 LDB +EQTAB 04 46 0
1 RTF EQTAB-1,100 04 47 0
1 CLL JJ 04 48 0
1 IFL JJ,02,2 04 49 0
1 MLS 4 T 04 50 0
1 MIB 4 *+2,T 04 51 0
1 BUN *-1 04 52 0
1 MRD 4 BUFR,T,1 04 53 0
1 CAD BUFR DID WE FIND THE RIGHT BLOCK 04 54 0
1 CFA II 04 55 0
1 BCE E+ 04 56 0
1 SPO SRERR,3 04 57 0
1 F424 9669,0,9669 04 58 0
1 BUN B- 04 59 0
1 *G CLL JJ 04 60 0
1 IFL JJ,02,2 04 61 0
1 MLS 4 T 04 62 0
1 MIB 4 *+2,T 04 63 0
1 BUN *-1 04 64 0
1 MRD 4 BUFR,T,1 04 65 0
1 *E LDB *+1 04 66 0
1 CLA 98 04 67 0
1 ADD - BUFR+1 04 68 0
1 DBB *-1,1 CHECK SUM 04 69 0
1 BOF *+1 04 70 0
1 BZA D+ 04 71 0
1 SPO CSERR,4 04 72 0
1 F424 9669,0,9669 04 73 0
1 MPB 4 T,1 04 74 0
1 BUN G- 04 75 0
1 REM 04 76 0
1 REM 04 77 0
1 *D LDB JJ 04 78 0
1 CAD - BUFR-1 04 79 0
1 STA INSTR 04 80 0
1 STP LBSBX PROCESS INSTRUCTION IN BUFFER 04 81 0
1 BUN LBSB 04 82 0
1 BUN C- END OF LIBRARY PROCEDURE 04 83 0
1 IFL JJ,02,1 04 84 0
1 BOF G- END OF TAPE BLOCK 04 85 0
1 BUN D- 04 86 0
1 REM 04 87 0
1 REM 04 88 0
1 *A MIB 4 *+2,T 04 89 0
1 BUN *-1 04 90 0
1 MRW 4 T 04 91 0
1 CLA EMIT AN END OF 04 92 0
1 LSA 8 004 93 0
1 STP FXUPX 04 94 0
1 BUN FXUP 04 95 0
1 CAD BUF+98 04 96 0
1 BSA *+2,8 04 97 0
1 BZA *+3 04 98 0
1 STP WRITX DUMP BUFFER IF NOT EMPTY 04 99 0
1 BUN WRIT5 05 00 0
1 CAD +9999999999 05 01 0
1 STA BUF OUTPUT A SENTINEL BLOCK 05 02 0
1 STP WRITX 05 03 0
1 BUN WRIT5 05 04 0
1 MIB 4 *+2,OT 05 05 0
1 BUN *-1 05 06 0
1 MRW 4 OT 05 07 0
1 REM 05 08 0
1 REM 05 09 0
1 REM COMMENT 05 10 0
1 REM SEARCH FOR UNDEFINED LABELS AND EXTERNAL PROGRAMS 05 11 0
1 REM WORD= T LL SSSS LINK LL= LENGTH OF IDENTIFIER 05 12 0
1 REM T=2 FOR A NUMERIC LABLE 05 13 0
1 REM SSSS = V TR ASIGN 0000 05 14 0
1 REM SSSS+1= (FIRST FIVE CHARACTERS OF IDENTIFIER) 05 15 0
1 REM SSSS+2= (NEXT FIVE CHARACTERS) 05 16 0
1 REM WE ARE LOOKING FOR THE CASES 05 17 0
1 REM (T=9, ASIGN=0) OR (V=9, T=8,9, ASIGN=0) 05 18 0
1 REM 05 19 0
1 *E LDB Z+ 05 20 0
1 CAD - SCRTB GET HEAD OF STACK 05 21 0
1 *D STA Y+ 05 22 0
1 DLB Y+,64,0 05 23 0
1 IBB A+,9999 STACK HAS NO ENTRIES 05 24 0
1 BOF *+1 05 25 0
1 IFL Y+,12,90 SET OVERFLOW IF 05 26 0
1 CAD - 1 OPERAND IS A NUMERIC LABEL 05 27 0
1 BSA E+,8 EXTERNAL PROGRAM 05 28 0
1 BFA B+,11,9 IS IT A LABEL 05 29 0
1 *C LDB Y+ SEQUENCE DOWN STACK 05 30 0
1 LDR +34353600 05 31 0
1 STR CNST8,08 05 32 0
1 CAD - 0 05 33 0
1 DBB D-,1000 IF LINK IS LESS THAN 1000 05 34 0
1 *A DFL Z+,02,1 SKIP TO NEXT STACK 05 35 0
1 BRP E- 05 36 0
1 BUN OUT END OF SCRAMBLE TABLE 05 37 0
1 *B BFA *+2,64,0 HAS LABEL BEEN ASSIGNED 05 38 0
1 BUN C- 05 39 0
1 DFL Y+,22,11 SET REPEAT IF IDENTIFIER 05 40 0
1 CAD - 2 IS LONGER THAN 5 CHARACTERS 05 41 0
1 LDR - 3 05 42 0
1 LSA 3 5 43 0
1 BRP *+2 05 44 0
1 CLR 05 45 0
1 BOF NMBRL NUMERIC LABEL 05 46 0
1 STA DICT+35 05 47 0
1 STR DICT+36 05 48 0
1 PRNT STP WEMX 05 49 0
1 BUN WEM 05 50 0
1 CNST8 CNST 33234353600 UNDIFENED LABEL (EXT PROGRAM) L 05 51 0
1 BUN C- 05 52 0
1 *E BOF *+1 05 53 0
1 BFA *+3,11,8 05 54 0
1 BFA B-+2,12,89 05 55 0
1 BUN C- 05 56 0
1 LDR +10123536 05 57 0
1 STR CNST8,08 05 58 0
1 BUN B- 05 59 0
1 REM 05 60 0
1 REM 05 61 0
1 NMBRL LSA 0 CONVERT INTEGER 05 62 0
1 SRT 10 TO ALFANUMERIC CODE 05 63 0
1 *B SLT 1 05 64 0
1 ADD +80 05 65 0
1 BFA A+,11,8 05 66 0
1 SLA 1 05 67 0
1 BUN B- 05 68 0
1 *A STA DICT+35 05 69 0
1 IFL DICT+35,12,30 05 70 0
1 CLA 05 71 0
1 *B SLT 1 05 72 0
1 ADD +80 05 73 0
1 BFA A+,11,8 05 74 0
1 SLA 1 05 75 0
1 BUN B- 05 76 0
1 *A STA DICT+36 05 77 0
1 BUN PRNT 05 78 0
1 *Y HLT 0 PRESENT OPERAND 05 79 0
1 *Z HLT 99 STACK COUNT 05 80 0
1 REM 05 81 0
1 REM 05 82 0
1 OUT CAD LCHOD 05 83 0
1 CFA LCMAX,64 05 84 0
1 BCH *+2 05 85 0
1 CAD LCMAX 05 86 0
1 SUB +10000 05 87 0
1 SRT 8 05 88 0
1 BOF *+1 05 89 0
1 *B CLA 300 05 90 0
1 *C ADD +8 05 91 0
1 SLT 1 05 92 0
1 SLA 1 05 93 0
1 DFL B-,81,1 05 94 0
1 BRP C- 05 95 0
1 SLA 1 05 96 0
1 STA DICT+35 05 97 0
1 CAD VARB SET UP CONSTANTS 05 98 0
1 ADD +1 IN ALFANUMERIC FORMAT 05 99 0
1 BPA *+2 06 00 0
1 CLA 06 01 0
1 SRT 4 06 02 0
1 *C CLA 3 06 03 0
1 *B ADD +8 6 04 0
1 SLT 1 06 05 0
1 SLA 1 06 06 0
1 DFL C-,01,1 06 07 0
1 BRP B- 06 08 0
1 SLA 1 IF NOT PCS(4) 06 09 0
1 STA DICT+36 PRINT MESSAGES 06 10 0
1 BCS A+,4 06 11 0
1 CAD DICT+36 06 12 0
1 CFA DICT+35,88 06 13 0
1 BCH *+4 06 14 0
1 STP WEMX 06 15 0
1 BUN WEM 06 16 0
1 CNST 36866707147 06 17 0
1 STP WEMX 06 18 0
1 BUN WEM+2 06 19 0
1 CNST 34547495036 COMPILED PROGRAM ENDS AT XXXX 06 20 0
1 STP WEMX 06 21 0
1 BUN WEM+2 06 22 0
1 CNST 34751535037 PROGRAM VARIABLES START AT XXXX 06 23 0
1 *A LDB DUMBS 06 24 0
1 DBB MONST,1 GO GENERATE SYMBOLIC DUMP 06 25 0
1 REM 06 26 0
1 REM 06 27 0
1 REM 06 28 0
1 LDBG CAD HALT 06 29 0
1 BFA *+4,31,5 06 30 0
1 STP 4 9898,0916 06 31 0
1 BUN 4 9898,IFERR 06 32 0
1 BUN *+4 06 33 0
1 BCS *+3,4 06 34 0
1 STP 4 9898,0916 06 35 0
1 BUN 4 9898,ZERSS 006 36 0
1 REM 06 37 0
1 AGAIN DLB FIXUP,44,0 THE FIXUP STACK CONTAINS THE 06 38 0
1 STP REMX FIX-UPS FOR CALLS OF EXTERNAL PROGRAMS 06 39 0
1 BUN REM FROM WITHIN SEGMENTS 06 40 0
1 XT001 BUN S+ STACK EMPTY 06 41 0
1 LDR +POST A REWIND 06 42 0
1 STR XT001,04 WILL BE NECESSARY 06 43 0
1 STA HOLD 06 44 0
1 DLB HOLD,64,0 06 45 0
1 CAD - 0 06 46 0
1 STA HOLD 06 47 0
1 SRA 8 06 48 0
1 SLA 4 06 49 0
1 STA THROW 06 50 0
1 CLB 06 51 0
1 MTS MTS 4 THROW,OT SEARCH FOR PROPER SEGMENT 06 52 0
1 MRD 4 100,OT,1 06 53 0
1 CFA 100,00 06 54 0
1 BCE RDT+1 06 55 0
1 SPO SRERR,3 06 56 0
1 F424 9669,0,9669 06 57 0
1 BUN MTS TRY AGAIN 06 58 0
1 REM 06 59 0
1 RDT MRD 4 100,OT,1 06 60 0
1 CLA 100 06 61 0
1 LBC *-1 06 62 0
1 *A ADD - 200 06 63 0
1 ADD - 201 06 64 0
1 ADD - 202 06 65 0
1 ADD - 203 06 66 0
1 ADD - 204 06 67 0
1 IBB A-,5 CHECK SUM BLOCK 06 68 0
1 BOF *+1 06 69 0
1 BZA A+ 06 70 0
1 SPO CSERR,4 06 71 0
1 F424 9669,0,9669 06 72 0
1 BUN *-1 06 73 0
1 REM 06 74 0
1 *A CAD 101 06 75 0
1 BSA B+,4 IN CASE IT IS NOT 06 76 0
1 LDR +1 GET NEXT BLOCK 06 77 0
1 STR A-,02 06 78 0
1 BUN RDT 06 79 0
1 REM 06 80 0
1 REM 06 81 0
1 *B STA T+ CAN THE FIX-UP BE 06 82 0
1 SLA 4 IN THIS GROUP OF INSTRUCTIONS 06 83 0
1 CFA HOLD,64 06 84 0
1 BCL Y+ YES 06 85 0
1 BCE Y+ 06 86 0
1 *W CAD T+ NO - TRY NEXT GROUP 06 87 0
1 SRA 1 06 88 0
1 STA *+1,42 06 89 0
1 IFL A-,02,0 06 90 0
1 IFL A-,02,1 GET NEXT RTF 06 91 0
1 BUN A- 06 92 0
1 REM 06 93 0
1 *Y CAD T+ 06 94 0
1 SRA 7 06 95 0
1 ADD T+ 06 96 0
1 SLA 4 06 97 0
1 CFA HOLD,64 IS THE FIX-UP IN THE GROUP 06 98 0
1 BCH F+ 06 99 0
1 BUN W- NO 07 00 0
1 REM 07 01 0
1 *F MPB 4 OT,1 07 02 0
1 CSU HOLD 07 03 0
1 SRA 4 07 04 0
1 EXT -1111 07 05 0
1 ADL T+ DO ACTUAL FIX-UP IN 07 06 0
1 CAD A- THE BUFFER 07 07 0
1 LBC T+ 07 08 0
1 STA A+,04 07 09 0
1 DBB *+1,9999 07 10 0
1 LDR HOLD 07 11 0
1 *A STR - 0,04 07 12 0
1 CLA 100 07 13 0
1 LBC *-1 07 14 0
1 CLL 199 07 15 0
1 *A SUB - 200 07 16 0
1 SUB - 201 07 17 0
1 SUB - 202 07 18 0
1 SUB - 203 07 19 0
1 SUB - 204 07 20 0
1 IBB A-,5 07 21 0
1 BOF *+1 07 22 0
1 STA 199 07 23 0
1 MOW 4 100,OT,1 07 24 0
1 BUN AGAIN 07 25 0
1 *T HLT 0 07 26 0
1 REM 07 27 0
1 POST MIB 4 *+2,OT 07 28 0
1 BUN *-1 07 29 0
1 MRW 4 OT 07 30 0
1 *S CLB 07 31 0
1 RTF SX,100 07 32 0
1 RTF SX+100,100 07 33 0
1 RTF SX+200,100 07 34 0
1 MIB 4 *+2,OT 07 35 0
1 BUN *-1 07 36 0
1 MOW 4 0,OT,3 07 37 0
1 CAD HALT 07 38 0
1 BCS A+,4 IF NOT PCS(4) 07 39 0
1 *B STA *+1 HALT WITH OK OR XX IN A 07 40 0
1 HLT 0 07 41 0
1 BUN LOADC 07 42 0
1 *A BFA B-,31,2 IF PCS(4) HALT ONLY IF XX 07 43 0
1 BUN LOADC 07 44 0
1 II CNST 1000000 LIBRARY INDEX NUMBER 07 45 0
1 JJ HLT 0 TEMP 07 46 0
1 MSK HLT 0 RELOCATION MASK FOR INSTRUCTIONS 07 47 0
1 REM 07 48 0
1 REM PROCESS EXTERNAL PROGRAMS 07 49 0
1 REM 07 50 0
1 REM 07 51 0
1 EXTP CAD LOCN 07 52 0
1 CFA LCMAX 07 53 0
1 BCH *+2 07 54 0
1 CAD LCMAX 07 55 0
1 STA LOCN LOCN=MAX(LCMAX,LOCN) 07 56 0
1 NAME CLL EQTAB-1 07 57 0
1 LDB +EQTAB CLEAR EQUIVALENCE TABLE 07 58 0
1 RTF EQTAB-1,100 07 59 0
1 CLL LEVEL 07 60 0
1 *Z STP READX READ NAME CARD OF EXTERNAL PROGRAM 007 61 0
1 BUN READ 07 62 0
1 CAD LOCN 07 63 0
1 STA CRD-1 07 64 0
1 CAD CRD 07 65 0
1 BSA A+,2 07 66 0
1 STP WEMX 07 67 0
1 BUN WEM 07 68 0
1 CNST 3060809000 MISSING NAME CARD 07 69 0
1 BUN Z- 07 70 0
1 *A BCS *+2,3 07 71 0
1 BCS *+3,4 07 72 0
1 STP 4 9898,1602 07 73 0
1 BUN 4 9898,CRD 07 74 0
1 *A STP SCANX 07 75 0
1 BUN SCAN 07 76 0
1 CAD SYMBL 07 77 0
1 CFA $FINIS$,00 07 78 0
1 BCU *+5 07 79 0
1 CAD SYMBL+1 07 80 0
1 CFA $H$,00 07 81 0
1 EXTEX BCE * 07 82 0
1 CAD SYMBL 07 83 0
1 BSA B+,2 IS THIS A PREFIX 07 84 0
1 SRT 10 07 85 0
1 DIV +99 07 86 0
1 STR LL0 07 87 0
1 CAD LEVEL 07 88 0
1 STP SRCHX SEARCH FOR SYMBOL 07 89 0
1 BUN SRCH 07 90 0
1 BUN Y+ COULD NOT FIND IT 07 91 0
1 CAD L 07 92 0
1 SLA 2 07 93 0
1 STA EQTAB-1,44 PUT LOCATION OF OPERAND OF THE EXTERNAL 007 94 0
1 CAD LOCN PROGRAM INTO EQTAB-1 07 95 0
1 SRA 4 07 96 0
1 STA EQTAB-1,04 ALSO THE ASSIGNMENT 07 97 0
1 STA MSK,04 07 98 0
1 SLA 6 07 99 0
1 STA MSK,44 SET UP A MASK FOR RELOCATION 08 00 0
1 DLB L,64,0 OF INSTRUCTIONS 08 01 0
1 CAD - 0 08 02 0
1 BFA C+,11,9 EXTERNAL STATEMENT 08 03 0
1 BFA E+,11,8 EXTERNAL PROCEDURE 08 04 0
1 *Y STP WEMX 08 05 0
1 BUN WEM 08 06 0
1 CNST 31047141500 EXTERNAL PROGRAM NOT DECLARED 08 07 0
1 BUN A+ 08 08 0
1 *B SRT 10 08 09 0
1 DIV +99 08 10 0
1 STR LL0 08 11 0
1 CLA 08 12 0
1 STP SRCHX SEARCH FOR OPERAND OF PREFIX PROCEDURE 008 13 0
1 BUN SRCH 08 14 0
1 BUN F+ 08 15 0
1 DLB L,64,0 08 16 0
1 CAD - 0 08 17 0
1 BFA B+,11,8 DID WE GET A PROCEDURE 08 18 0
1 *F STP WEMX 08 19 0
1 BUN WEM 08 20 0
1 CNST 31712141500 PREFIX PROCEDURE NOT DECLARED 08 21 0
1 BUN A- 08 22 0
1 *B STA LEVEL,02 08 23 0
1 BUN A- 08 24 0
1 REM 08 25 0
1 REM 08 26 0
1 *C DLB L,64,0 08 27 0
1 CAD - 0 08 28 0
1 STA HOLD 08 29 0
1 SLA 2 08 30 0
1 STA EQTAB-1,44 08 31 0
1 STP REMX 08 32 0
1 BUN REM 08 33 0
1 HLT 08 34 0
1 SLA 4 08 35 0
1 STA HOLD,22 08 36 0
1 CAD HOLD 08 37 0
1 BFA S+,22,00 08 38 0
1 EXT +1111110000 08 39 0
1 SLA 4 IT WAS - SO ENTER INTO THE FIXUP STACK 008 40 0
1 ADD LOCN 08 41 0
1 SLA 6 LL XXXX YYYY 08 42 0
1 STA HOLD 08 43 0
1 LDB AVALE WHERE LL= SEGMENT NUMBER 008 44 0
1 STP INSX XXXX= LOCATION TO BE FIXED UP 008 45 0
1 BUN INS YYYY= FIX-UP 08 46 0
1 CAD HOLD 08 47 0
1 STA - 0 08 48 0
1 STB HOLD 08 49 0
1 CAD HOLD 08 50 0
1 SLA 4 08 51 0
1 DLB FIXUP,44,0 08 52 0
1 STP INSX 08 53 0
1 BUN INS 08 54 0
1 BUN *+4 08 55 0
1 *S LSA 0 08 56 0
1 STP FXUPX GENERATE FIX-UP FOR EXTERNAL 08 57 0
1 BUN FXUP STATEMENT 08 58 0
1 DLB L,64,00 08 59 0
1 REM 08 60 0
1 REM 08 61 0
1 *E STP REMX REMOVE NEXT FIX-UP FROM LIST OF 08 62 0
1 BUN REM ALL CALLS OF THE DECLARED PROCEDURE 008 63 0
1 BUN D+ LIST IS EXHAUSTED 08 64 0
1 BSA T+,8 08 65 0
1 BFA S+,22,0 IS FIX-UP FOR CALL WITHIN A SEGMENT 008 66 0
1 EXT +1111110000 08 67 0
1 SLA 4 IT WAS -- SO ENTER 08 68 0
1 ADD LOCN LL XXXX YYYY 08 69 0
1 SLA 6 WHERE LL= SEGMENT NUMBER 08 70 0
1 STA HOLD XXXX= LOCATIN TO BE FIXED UP 008 71 0
1 LDB AVALE YYYY= FIX-UP 08 72 0
1 STP INSX 08 73 0
1 BUN INS 08 74 0
1 CAD HOLD 08 75 0
1 STA - 0 08 76 0
1 STB HOLD 08 77 0
1 CAD HOLD 08 78 0
1 SLA 4 08 79 0
1 DLB FIXUP,44,0 08 80 0
1 STP INSX 08 81 0
1 BUN INS 08 82 0
1 DLB L,64,0 08 83 0
1 BUN E- 08 84 0
1 *S STP FXUPX GENERATE FIX-UP FOR EXTERNAL 08 85 0
1 BUN FXUP PROCEDURE 08 86 0
1 DLB L,64,0 08 87 0
1 BUN E- 08 88 0
1 *T STA HOLD 08 89 0
1 DLB L,74,0 08 90 0
1 STP REMX 08 91 0
1 BUN REM 08 92 0
1 HLT 08 93 0
1 EXT +11110000 08 94 0
1 LDR LOCN 08 95 0
1 ADL LOCN 08 96 0
1 CSA HOLD 08 97 0
1 STR HOLD 08 98 0
1 STP FXUPX 08 99 0
1 BUN FXUP 09 00 0
1 DLB L,64,0 09 01 0
1 LDR HOLD 09 02 0
1 STR LOCN 09 03 0
1 BUN E- 09 04 0
1 *D DLB L,64,0 09 05 0
1 CAD - 0 SET SIGN TO 8 TO INDICATE 09 06 0
1 LSA 0 THAT EXTERNAL PROGRAM HAS BEEN 09 07 0
1 STA - 0 GIVEN AN ASSIGNMENT 09 08 0
1 CAD LOCN GIVE ASSIGNMENT TO THE EXTERNAL PROGRAM 009 09 0
1 STA - 0,64 09 10 0
1 *A STP READX READ ANOTHER CARD 09 11 0
1 BUN READ 09 12 0
1 CLL LEVEL 09 13 0
1 CAD CRD 09 14 0
1 BSA NUMB,0 IS THIS AN EQUIVALENCE CARD 09 15 0
1 BCS *+2,3 09 16 0
1 BCS *+3,4 09 17 0
1 STP 4 9898,1602 09 18 0
1 BUN 4 9898,CRD 09 19 0
1 *B STP SCANX IF YES SCAN FOR THE IDENTIFIER 09 20 0
1 BUN SCAN 09 21 0
1 CAD SYMBL 09 22 0
1 BSA Z+,2 IS THE IDENTIFIER A PREFIX 09 23 0
1 SRT 10 NO IT IS NOT 09 24 0
1 DIV +99 09 25 0
1 STR LL0 09 26 0
1 CAD LEVEL 09 27 0
1 STP SRCHX 09 28 0
1 BUN SRCHP SEARCH FOR OPERAND 09 29 0
1 BUN Y+ IT WAS NOT DEFINED 09 30 0
1 STP LIBRX 09 31 0
1 DLB L,64,0 09 32 0
1 CAD - 0 09 33 0
1 BSA *+2,8 09 34 0
1 LSA 0 09 35 0
1 SRA 4 09 36 0
1 STA TEMP GET THE ASSIGNMENT OF THE 09 37 0
1 STB TEMP,66 REFERENCED IDENTIFIER 09 38 0
1 IFL TEMP,62,12 09 39 0
1 BFA LIBRF,51,3 IF IT WAS AN UNASSIGNED LIBRARY 09 40 0
1 REM PROCEDURE- GIVE IT AN ASSIGNMENT 09 41 0
1 CAD L 09 42 0
1 SLA 2 09 43 0
1 STA TEMP,44 ALSO SAVE THE SREF OF THE IDENTIFIER 009 44 0
1 STP SCANX 09 45 0
1 BUN SCAN 09 46 0
1 LDB SYMBL GET EQUIVALENCE NUMBER 09 47 0
1 DBB Y+,100 IS IT GREATED THEN 100 09 48 0
1 CAD TEMP 09 49 0
1 STA - EQTAB+100 PUT ENTRY INTO EQUIVALENCE TABLE 09 50 0
1 BUN A- 09 51 0
1 *Y STP WEMX 09 52 0
1 BUN WEM 09 53 0
1 CNST 31921090000 IMPROPER EQUIVALENCE CARD 09 54 0
1 BUN A- 09 55 0
1 *Z SRT 10 09 56 0
1 DIV +99 09 57 0
1 STR LL0 09 58 0
1 CLA 09 59 0
1 STP SRCHX GET OPERAND OF PREFIX PROCEDURE 09 60 0
1 BUN SRCH 09 61 0
1 BUN Y- IT WAS NOT THERE 09 62 0
1 DLB L,64,0 09 63 0
1 CAD - 0 09 64 0
1 STA LEVEL,02 SET UP LEVEL FOR SEARCH OF PROCEDURE 09 65 0
1 BFA B-,11,8 009 66 0
1 BUN Y- 09 67 0
1 REM 09 68 0
1 REM 09 69 0
1 NUMB DFL CRD+8,01,1 DECREASE WORD COUNT 09 70 0
1 *A LDB CRD 09 71 0
1 CAD - CRD+10 09 72 0
1 STA INSTR GET INSTRUCTION 09 73 0
1 STP LBSBX 09 74 0
1 BUN LBSB GO DECODE INSTRUCTION 09 75 0
1 BUN NAME ALL THROUGH WITH THIS EXTERNAL PROGRAM 009 76 0
1 IFL CRD,04,1 09 77 0
1 DFL CRD+8,01,1 DECREASE WORD COUNT 09 78 0
1 BRP A- 09 79 0
1 STP READX READ ANOTHER CARD 09 80 0
1 BUN READ 09 81 0
1 CAD CRD 09 82 0
1 BSA NUMB,0 IS THIS A INSTRUCTION CARD 09 83 0
1 STP WEMX IF NOT PRINT ERROR MESSAGE 09 84 0
1 BUN WEM 09 85 0
1 CNST 30624260000 MISSING FINISH PSEUDO-OP 09 86 0
1 REM 09 87 0
1 REM 09 88 0
1 READ CLL CRD 09 89 0
1 LDB +CRD+1 09 90 0
1 RTF CRD,15 ZERO INPUT AREA 09 91 0
1 CLL SCNCT SET SCAN TO COLUMN 2 09 92 0
1 IFL SCNCT,04,2 AND 09 93 0
1 STP 4 9999 09 94 0
1 BUN 4 9999,CRD 09 95 0
1 READX BUN * 09 96 0
1 REM 09 97 0
1 REM 09 98 0
1 SCAN CLL K 09 99 0
1 CLL SYMBL ZERO SYMBOL STORAGE AREA 010 00 0
1 LDB +SYMBL+1 010 01 0
1 RTF SYMBL,9 010 02 0
1 *A DLB SCNCT,94,0 010 03 0
1 CAD - CRD 010 04 0
1 LDB SCNCT 010 05 0
1 SLA - 0 GET A CHARACTER 010 06 0
1 SRA 8 ADVANCE COLUMN COUNT 010 07 0
1 IFL SCNCT,05,2 010 08 0
1 STA CHAR 010 09 0
1 BFA B+,02,00 IGNORE LEADING BLANKS 010 10 0
1 BFA C+,02,24 INDICATES THAT A PREFIX FOLLOWS 010 11 0
1 BFA N+,91,8 FIRST CHARACTER NUMERIC, DO NUMBER SCAN 010 12 0
1 BFA R+,91,4 FIRST CHARACTER ALFA, BUILD IDENTIFIER 010 13 0
1 BFA R+,91,5 010 14 0
1 BFA R+,91,6 010 15 0
1 BUN B+ IGNORE ALL OTHER CHARACTERS 010 16 0
1 *C IFL SYMBL,12,20 010 17 0
1 *B IBB A-,9840 010 18 0
1 *D STP WEMX 010 19 0
1 BUN WEM 010 20 0
1 CNST 30628295809 MISSING FIELD ON SYMBOLIC CARD 010 21 0
1 BUN SCNXX 010 22 0
1 REM 010 23 0
1 REM 010 24 0
1 *R LBC K ENTER CHARACTER 010 25 0
1 SLA - 8 INTO SYMBOL STORAGE AREA 010 26 0
1 DLB K,94,0 010 27 0
1 DBB *+4,10 TRUNCATE IDENTIFIER TO 50 CHARACTERS 010 28 0
1 ADD - SYMBL+10 010 29 0
1 STA - SYMBL+10,00 010 30 0
1 IFL K,05,2 010 31 0
1 DLB SCNCT,94,0 010 32 0
1 CAD - CRD 010 33 0
1 LDB SCNCT 010 34 0
1 SLA - 0 010 35 0
1 SRA 8 GET NEXT CHARACTER 010 36 0
1 STA CHAR 010 37 0
1 IFL SCNCT,05,2 010 38 0
1 DBB D-,162 DID WE FINISH THE CAR(IF SO-ERROR) 010 39 0
1 CFA +40,02 IS THE NEW CHARACTER 010 40 0
1 BCH R- AN ALFANUMERIC 010 41 0
1 BFA R-,02,14 010 42 0
1 CAD SYMBL 010 43 0
1 BSA SCNXX,0 TERMINATE IF OTHER CHARACTER IS FOUND 010 44 0
1 CAD CHAR AND WE ARE NOT SCANING A PREFIX 010 45 0
1 *E BFA SCNXX,02,04 TERMINATE A PREFIX SOON AS WE GET A ) 010 46 0
1 DLB SCNCT,94,0 010 47 0
1 CAD - CRD 010 48 0
1 LDB SCNCT 010 49 0
1 SLA - 0 010 50 0
1 SRA 8 010 51 0
1 IFL SCNCT,05,02 CONTINUE LOOKING FOR A ) 010 52 0
1 IBB E-,9838 010 53 0
1 BUN D- IF WE DO NOT FIND IT ERROR 010 54 0
1 REM 010 55 0
1 REM 010 56 0
1 *N SRT 1 010 57 0
1 CAD SYMBL 010 58 0
1 SLT 1 010 59 0
1 STA SYMBL NUMBER BUILDER 010 60 0
1 DLB SCNCT,94,0 010 61 0
1 CAD - CRD 010 62 0
1 LDB SCNCT 010 63 0
1 IFL SCNCT,04,2 010 64 0
1 SLA - 0 010 65 0
1 SRA 8 010 66 0
1 BFA N-,91,8 010 67 0
1 CAD NTAG SET LENGTH COUNT TO 10 010 68 0
1 STA K AND MARK AS A NUMERIC LABEL 010 69 0
1 SCNXX CAD K 010 70 0
1 SLA 8 010 71 0
1 STA D2D3 SET UP LENGTH 010 72 0
1 SCANX BUN * 010 73 0
1 NTAG CNST 20000000010 010 74 0
1 REM 010 75 0
1 REM 010 76 0
1 SRCHP BFA A+,02,00 IF AN EQUIVALENCE CARD ENTRY IS 010 77 0
1 BUN SRCH AT LEVEL ZERO AND HAS LENGTH 010 78 0
1 *A LDR K LESS THAN 10 -- IT MAY BE 010 79 0
1 CFR +10,03 IN THE LIST OF SPECIAL LIBRARY 010 80 0
1 BCH SRCH SUBROUTINES 010 81 0
1 LDB I 010 82 0
1 CAD SYMBL 010 83 0
1 *C CFA - EXLBT,00 010 84 0
1 BCE B+ 010 85 0
1 DBB C-,2 010 86 0
1 I CLA 24 010 87 0
1 BUN SRCH IT IS NOT SO DO NORMAL SEARCH 010 88 0
1 *B CAD - EXLBT+1 I FOUND IT 010 89 0
1 STA L,64 SET UP L TO POINT TO THE OPERAND 010 90 0
1 LDB SRCHX 010 91 0
1 BUN - 1 INCREMENTED EXIT 010 92 0
1 REM 010 93 0
1 REM PROCESSING SUBROUTINE FOR INSTRUCTINS 010 94 0
1 REM IN THE LIBRARY AND EXTERNAL PROGRAMS 010 95 0
1 REM 010 96 0
1 *A F4247 0,0,0 010 97 0
1 LBSB NOP * NOP-BUN SWITCH (SEE WHY BELOW) 010 98 0
1 CFA A- 010 99 0
1 BCL Z+ INSTRUCTION IS ABSOLUTE 011 00 0
1 BFA Y+,62,90 PARTIAL FIELD SCAN INSTRUCTION 011 01 0
1 BFA Y+,62,91 PARTIAL FIELD SEARCH INSTRUCTION 011 02 0
1 BSA A+,8 ADDRESS PROGRAM RELATIVE 011 03 0
1 BSA A+,9 ADDRESS PROGRAM RELATIVE - B MOD 011 04 0
1 BSA B+,7 CONTROL FIELD PROGRAM RELATIVE 011 05 0
1 BSA C+,6 ADDRESS IDENTIFIER RELATIVE 011 06 0
1 BSA D+,5 ADDRESS IDENTIFIER RELATIVE - B MOD 011 07 0
1 LBSBX BFA *,62,99 EXIT IF FINISH PSEUDO-OP IS FOUND 011 08 0
1 BFA E+,62,30 RETURN FOR AN EXTERNAL STATEMENT 011 09 0
1 BFA F+,62,00 ADVANCE LOCATION COUNTER 011 10 0
1 BFA G+,62,12 EQUIVALENCE DEFINITION FOR LIBRARY 011 11 0
1 BFA X2+,62,01 NEXT INSTRUCTION IS A 11 DIGIT CONSTANT 011 12 0
1 BFA X1+,62,02 MARKS NEXT INSTRUCTION AS I-O COMMAND 011 13 0
1 BFA X3+,62,03 011 14 0
1 BFA X4+,62,04 RELOCATE CONTROL FIELD OF NEXT INSTR 011 15 0
1 STP WEMX 011 16 0
1 BUN WEM 011 17 0
1 CNST 31926000000 IMPROPER PSEUDO-OP 011 18 0
1 BUN X+ 011 19 0
1 REM 011 20 0
1 REM 011 21 0
1 BIGCN DFL LBSB,62,29 011 22 0
1 BUN Z+ 011 23 0
1 REM 011 24 0
1 REM 011 25 0
1 I1 CNST 41000600000 CARD READER CONSTANT 011 26 0
1 O1 CNST 41000610000 CARD PUNCH CONSTANT 011 27 0
1 O2 CNST 42000610000 PRINTER CONSTANT 011 28 0
1 CHNG BFA I+,62,60 011 29 0
1 BFA I+,62,62 011 30 0
1 BFA I+,62,64 011 31 0
1 LDR O1 011 32 0
1 BFA *+4,11,1 011 33 0
1 LDR O2 011 34 0
1 BFA *+2,11,2 011 35 0
1 BUN IOERR 011 36 0
1 *S BFA *+4,62,61 011 37 0
1 BFA S+,62,63 011 38 0
1 BFA S+,62,65 011 39 0
1 BUN IOERR 011 40 0
1 *S STR INSTR,11 011 41 0
1 CAD INSTR 011 42 0
1 DFL LBSB,62,29 011 43 0
1 BUN LBSB 011 44 0
1 *I LDR I1 011 45 0
1 BFA S-,11,1 011 46 0
1 IOERR STP WEMX 011 47 0
1 BUN WEM 011 48 0
1 CNST 31960380000 IMPROPER CARDATRON INSTRUCTION 011 49 0
1 LDR INSTR 011 50 0
1 BUN S- 011 51 0
1 REM 011 52 0
1 REM 011 53 0
1 *A DFL INSTR,12,80 ADJUST SIGN 011 54 0
1 *L CAA MSK 011 55 0
1 ADA INSTR RELOCATE ADDRESS FIELD 011 56 0
1 BOF *+1 011 57 0
1 STA INSTR,04 011 58 0
1 BUN Z+ 011 59 0
1 REM 011 60 0
1 *B DFL INSTR,12,70 ADJUST SIGN 011 61 0
1 SUA MSK RELOCATE CONTROL FIELD 011 62 0
1 STA INSTR,44 011 63 0
1 BOF *+1 011 64 0
1 BUN Z+ 011 65 0
1 REM 011 66 0
1 *H HLT 0 011 67 0
1 *C DFL INSTR,12,20 ADJUST SIGN 011 68 0
1 *D DFL INSTR,12,40 011 69 0
1 *K STA H-,82 011 70 0
1 DLB H-,84,0 GET EQUIVALENCE TABLE ENTRY 011 71 0
1 CAD - EQTAB 011 72 0
1 BZA L+ IMPROPER ENTRY 011 73 0
1 BSA J+,8 SIGN OF 9 MEANS FORWARD REFERENCE TO 011 74 0
1 ADA INSTR AN EXTERNAL PROCEDURE 011 75 0
1 *N SUB H- RELOCATE ADDRESS 011 76 0
1 STA INSTR,04 FIELD RELATIVE TO 011 77 0
1 DLB - EQTAB,44,0 THE EQUIVALENCE TABLE ENTRY 011 78 0
1 STP EXPLX 011 79 0
1 BUN EXPL 011 80 0
1 BUN Z+ 011 81 0
1 REM 011 82 0
1 *J DLB - EQTAB,44,0 INSERT 9 KK XXXX 0000 KK=INCREMENT 011 83 0
1 STP EXPLX XXXX= LOCATION FIXED UP 011 84 0
1 BUN EXPL 011 85 0
1 CAD - 0 011 86 0
1 BFA *+2,11,8 011 87 0
1 LDB - 0 011 88 0
1 STB H- 011 89 0
1 CAA INSTR 011 90 0
1 EXT +11 011 91 0
1 ADA ADDIT 011 92 0
1 CLL ADDIT 011 93 0
1 SLA 4 011 94 0
1 STP INSX 011 95 0
1 BUN INS 011 96 0
1 CAA LOCN 011 97 0
1 LSA 8 011 98 0
1 LDB H- 011 99 0
1 CLL H- 012 00 0
1 STP INSX 012 01 0
1 BUN INS 012 02 0
1 CAD INSTR 012 03 0
1 CLL INSTR 012 04 0
1 STA INSTR,67 012 05 0
1 BUN Z+ 012 06 0
1 REM 012 07 0
1 *Y DFL INSTR,62,40 012 08 0
1 BSA Z+,4 SPECIAL CONVENTIONS FOR PARTIAL FIELD 012 09 0
1 BSA Z+,5 SCAN AND SCEARCH(90,91 SPECIAL OPS) 012 10 0
1 DFL INSTR,12,20 S=4,5 ADDRESS ABSOLUTE 012 11 0
1 BSA K-,6 S=6,7 ADDRESS RELATIVE TO IDENTIFIER 012 12 0
1 BSA K-,7 S-8,9 ADDRESS RELATIVE TO PROGRAM 012 13 0
1 DFL INSTR,12,20 012 14 0
1 BUN L- 012 15 0
1 REM 012 16 0
1 *F2 BUN BIGCN 012 17 0
1 *X2 LDR F2- SET UP FOR AN 11 DIGIT 012 18 0
1 STR LBSB WHICH FOLLOWS 012 19 0
1 BUN X+ 012 20 0
1 REM 012 21 0
1 *F1 BUN CHNG 012 22 0
1 *X1 LDR F1- SET UP FOR THE CARDATRON 012 23 0
1 STR LBSB INSTRUCTION WHICH FOLLOWS 012 24 0
1 BUN X+ 012 25 0
1 REM 012 26 0
1 *X3 LDR INSTR 012 27 0
1 STR ADDIT,04 012 28 0
1 BUN X+ 012 29 0
1 *X4 LDR MSK 012 30 0
1 STR MADIT,44 012 31 0
1 BUN X+ 012 32 0
1 REM 012 33 0
1 *Z CAA INSTR 012 34 0
1 ADA ADDIT 012 35 0
1 CLL ADDIT 012 36 0
1 STA INSTR,04 012 37 0
1 CAA INSTR 012 38 0
1 ADA MADIT 012 39 0
1 STA INSTR,44 012 40 0
1 CLL MADIT 012 41 0
1 STP WRITX OUTPUT PROCESSED INSTRUCTOIN 012 42 0
1 BUN WRIT2 012 43 0
1 *X LDB LBSBX INCREMENTED EXIT 012 44 0
1 BUN - 1 INDICATES NO FINISH PSEUDO-OP WAS HERE 012 45 0
1 REM 012 46 0
1 *E DLB EQTAB-1,44,0 RETURN PSEUDO-OP FOR EXTERNAL STATEMENT 012 47 0
1 DBB *+1,9999 012 48 0
1 STB INSTR,04 012 49 0
1 BUN Z- 012 50 0
1 REM 012 51 0
1 *F CAA INSTR 012 52 0
1 SLA 4 012 53 0
1 ADA LOCN 012 54 0
1 STA LOCN,64 012 55 0
1 BUN X- LOCN=LOCN+NNNN 012 56 0
1 REM 012 57 0
1 *G DLB INSTR,44,0 EQUIVALENCE DEFINITION FOR LIBRARY 012 58 0
1 LDR - 0 GET OPERAND FOR EQUIVALENCE DEFINITION 012 59 0
1 LDB INSTR 012 60 0
1 STA - EQTAB,66 012 61 0
1 SRT 4 ENTER THE OPERAND INTO EQUIVALENCE 012 62 0
1 STR - EQTAB,04 TABLE ALONG WITH ITS ASSIGNMENT 012 63 0
1 BUN X- 012 64 0
1 *L STP WEMX 012 65 0
1 BUN WEM 012 66 0
1 CNST9 CNST 33221000000 IMPROPER EQUIVALENCE LIBRARY INCORRECT 012 67 0
1 BUN N- 012 68 0
1 REM 012 69 0
1 REM 012 70 0
1 EXPL STB HOLD 012 71 0
1 CAD HOLD 012 72 0
1 SLA 4 012 73 0
1 LDB +23 012 74 0
1 *A CFA - EXLBT,64 OF THE THING REFERENCED 012 75 0
1 BCE A+ BY USE OF AN EQUIVALENCE 012 76 0
1 DBB A-,2 012 77 0
1 LDB HOLD 012 78 0
1 LDR - 1 012 79 0
1 BFR *+2,11,0 012 80 0
1 STR EXPLN 012 81 0
1 EXPLX BUN * 012 82 0
1 *A LDR - EXLBT-1 012 83 0
1 STR EXPLN 012 84 0
1 LDB HOLD 012 85 0
1 BUN EXPLX 012 86 0
1 REM 012 87 0
1 REM 012 88 0
1 REM DICTIONARY OF WORDS FOR ERROR MESSAGES IN THE OVERLAY 012 89 0
1 REM 012 90 0
1 DICT CNST $EXTRA$ 01 EXTRA 012 91 0
1 CNST $LEFT$ 02 LEFT 012 92 0
1 CNST 35741594555 03 PARENTHESIS 012 93 0
1 CNST 36348456249 012 94 0
1 CNST $S$ 012 95 0
1 CNST 35449626249 06 MISSING 012 96 0
1 CNST $NG$ 012 97 0
1 CNST $NAME$ 08 NAME 012 98 0
1 CNST $CARD$ 09 CARD 012 99 0
1 CNST 34567634559 10 EXTERNAL 013 00 0
1 CNST $NAL$ 013 01 0
1 CNST 35759564345 12 PROCEDURE 013 02 0
1 CNST $DURE$ 013 03 0
1 CNST $NOT$ 14 NOT 013 04 0
1 CNST 34445435341 15 DECLARED 013 05 0
1 CNST $RED$ 013 06 0
1 CNST 35759454649 17 PREFIX 013 07 0
1 CNST $X$ 013 08 0
1 CNST 34954575956 19 IMPROPER 013 09 0
1 CNST $PER$ 013 10 0
1 CNST 34558644965 21 EQUIVALENCE 013 11 0
1 CNST 34153455543 013 12 0
1 CNST $E$ 013 13 0
1 CNST 34649554962 24 FINISH 013 14 0
1 CNST $H$ 013 15 0
1 CNST 35762456444 26 PSEUDO-OP 013 16 0
1 CNST $O-OP$ 013 17 0
1 CNST $FIELD$ 28 FIELD 013 18 0
1 CNST $ON$ 29 ON 013 19 0
1 CNST 34845414445 30 HEADER 013 20 0
1 CNST $R$ 013 21 0
1 CNST 36455444546 32 UNDEFINED 013 22 0
1 CNST $INED$ 013 23 0
1 CNST $LABEL$ 34 LABEL 013 24 0
1 CNST $-$ 35 - 013 25 0
1 CNST $NAME$ 35 (STORAGE FOR PROGRAMMED MESSAGES) 013 26 0
1 CNST $NAME$ 37 (STORAGE FOR PROGRAMMED MESSAGES) 013 27 0
1 CNST 34955626359 38 INSTRUCTION 013 28 0
1 CNST 36443634956 013 29 0
1 CNST $N$ 013 30 0
1 CNST $,$ 41 , 013 31 0
1 CNST $TOTAL$ 42 TOTAL 013 32 0
1 CNST $CHECK$ 43 CHECK 013 33 0
1 CNST $SUM$ 44 SUM 013 34 0
1 CNST 34356545749 45 COMPILED 013 35 0
1 CNST $LED$ 013 36 0
1 CNST 35759564759 47 PROGRAM 013 37 0
1 CNST $AM$ 013 38 0
1 CNST $ENDS$ 49 ENDS 013 39 0
1 CNST $AT$ 50 AT 013 40 0
1 CNST 36541594941 51 VARIABLES 013 41 0
1 CNST $BLES$ 013 42 0
1 CNST $BEGIN$ 53 BEGIN 013 43 0
1 CNST 35349425941 54 LIBRARY 013 44 0
1 CNST $RY$ 013 45 0
1 CNST 34955435659 56 INCORRECT 013 46 0
1 CNST $RECT$ 013 47 0
1 CNST 36268544256 58 SYMBOLIC 013 48 0
1 CNST $LIC$ 013 49 0
1 CNST 34341594441 60 CARDATRON 013 50 0
1 CNST $TRON$ 013 51 0
1 CNST 34356545749 62 COMPILER 013 52 0
1 CNST $LER$ 013 53 0
1 CNST 34341574143 64 CAPACITY 013 54 0
1 CNST $ITY$ 013 55 0
1 CNST 34567434545 66 EXCEEDED 013 56 0
1 CNST $DED$ 013 57 0
1 CNST 35445545659 68 MEMORY 013 58 0
1 CNST $Y$ 013 59 0
1 CNST $FOR$ 70 FOR 013 60 0
1 CNST 35642514543 71 OBJECT 013 61 0
1 CNST $T$ 013 62 0
1 REM 013 63 0
1 REM 013 64 0
1 LIBRF CAD - 0 PUT LIBRARY SUBROUTINE INTO TARGET 013 65 0
1 LIBRX BFA LIBRX,11,4 PROGRAM IF IT HASNT BEEN PUT THERE 013 66 0
1 SRA 4 ALREADY. 013 67 0
1 EXT +1111 013 68 0
1 SUB VARB 013 69 0
1 STA VARB,04 013 70 0
1 SLT 4 013 71 0
1 STA - 0,64 013 72 0
1 IFL - 0,64,1 013 73 0
1 IFL - 0,11,1 013 74 0
1 BUN LIBRF 013 75 0
1 REM 013 76 0
1 REM 013 77 0
1 FXUP LDR LOCN COMPILE TO SET A PREV FRW REF TO PRES LOC 013 78 0
1 STA DESCR 013 79 0
1 SRT 4 013 80 0
1 STR DESCR,04 013 81 0
1 STA WRTF,04 013 82 0
1 BSA *+2,7 013 83 0
1 BUN *+2 013 84 0
1 IFL DESCR,00,1 IF SIGN IS SEVEN, WE MEAN THE 013 85 0
1 FXUPY BCS *+2,2 013 86 0
1 BUN *+4 013 87 0
1 BSA *+3,8 013 88 0
1 STP 4 9898,0208 013 89 0
1 BUN 4 9898,WRTF 013 90 0
1 LDR DESCR PRESENT LOCATION PLUS 1 013 91 0
1 LDB LRTF 013 92 0
1 CAD WRTF 013 93 0
1 CFA PREV,04 013 94 0
1 BCH A+ IF WE CAN FIX UP THE INSTRUCTION WHILE 013 95 0
1 CAD - BUF+1 IT SITS IN THE OUTPUT BUFFER, WE WILL 013 96 0
1 BFA A+,04,0 DO IT DIRECTLY 013 97 0
1 CFA WRTF,04 013 98 0
1 BCH A+ 013 99 0
1 SUB WRTF 014 00 0
1 SLA 6 014 01 0
1 STA *+1,44 014 02 0
1 DBB *+1,0 014 03 0
1 STR - BUF+2,04 014 04 0
1 BUN FXUPX 014 05 0
1 *A DFL CNTRF,00,1 OTHERWISE WE PUT OUT A FIX UP 014 06 0
1 LDB CNTRF CODE FOR THE LOADING ROUTINE 014 07 0
1 STR - BUF+3 014 08 0
1 BUN WRIT6 014 09 0
1 FXUPX BUN FXUPX 014 10 0
1 REM 014 11 0
1 REM 014 12 0
1 REM 014 13 0
1 WRIT2 CAD LOCN WRITE SUBROUTINE - PUTS INSTRUCTION 014 14 0
1 SRA 4 INTO OUTPUT BUFFER. 014 15 0
1 IFL LOCN,64,1 WRIT2 ENTRY - PUT INSTRUCTION OUT FOR 014 16 0
1 BOF *+1 014 17 0
1 LDR INSTR LOCATION LOCN AND INCREMENT LOCN 014 18 0
1 WRIT3 STA WRTF,04 WRIT3 ENTRY - LOCATION IS IN RA(04) 014 19 0
1 SUB PREV AND INSTRUCTION IS IN REGISTER R 014 20 0
1 LDB CNTRI 014 21 0
1 BFA E+,04,0 014 22 0
1 SUB XONE+1 DOES THIS LOCATION EQUAL THE PREVIOUS ONE 014 23 0
1 BFA F+,04,0 (IF SO WE WILL ERASE THE PREVIOUS ONE) 014 24 0
1 STB LRTF,04 OR IS IT ONE HIGHER 014 25 0
1 CAD WRTF IF NOT,WE WILL PUT OUT A NEW RECORD TRANS 014 26 0
1 STA - BUF+1 014 27 0
1 IFL CNTRI,00,1 014 28 0
1 *F LDB LRTF 014 29 0
1 IFL - BUF+1,32,1 THE 32-FIELD CONTAINS THE NUMBER OF 014 30 0
1 WRIT7 IFL CNTRI,00,1 SEQUENTIAL WORDS TO LOAD 014 31 0
1 LDB CNTRI 014 32 0
1 *E STR - BUF 014 33 0
1 STR DESCR 014 34 0
1 WRT10 BCS *+2,2 014 35 0
1 BUN *+3 014 36 0
1 STP 4 9898,0300 014 37 0
1 BUN 4 9898,WRTF 014 38 0
1 CLL EXPLN 014 39 0
1 LDR WRTF 014 40 0
1 STR PREV,04 014 41 0
1 WRIT6 LDR CNTRI IS THE BUFFER FULL NOW 014 42 0
1 CFR CNTRF 014 43 0
1 BCL WRITX IF NOT,EXIT 014 44 0
1 WRIT5 LBC NN IF SO, CALCULATE CHECK SUM 014 45 0
1 *C CLA BUF+2 014 46 0
1 SUB - BUF+99 014 47 0
1 IBB *-1,1 014 48 0
1 BOF *+1 014 49 0
1 STA BUF+99 014 50 0
1 MIB 4 *+2,OT 014 51 0
1 BUN *-1 014 52 0
1 MLS 4 OT 014 53 0
1 MIB 4 *+2,OT 014 54 0
1 BUN *-1 014 55 0
1 MOW 4 BUF,OT,1 WRITE ONE BLOCK 014 56 0
1 IFL BUF,00,1 014 57 0
1 CLL CNTRI 014 58 0
1 CLL CNTRF INITIALIZE FOR NEXT BLOCK 014 59 0
1 IFL CNTRF,00,96 014 60 0
1 WRIT4 CLL BUF+1 014 61 0
1 LDB C- 014 62 0
1 RTF BUF+1,98 014 63 0
1 BUN FXUPX 014 64 0
1 WRITX DEFN FXUPX 014 65 0
1 REM 014 66 0
1 REM 014 67 0
1 SRCH ADD LL0 014 68 0
1 EXT +11 LOOK FOR SYMBOL IN TABLE 014 69 0
1 ADD +SCRTB 014 70 0
1 STA L 014 71 0
1 LDB L 014 72 0
1 DBB C+,1 014 73 0
1 *B LDB L 014 74 0
1 IBB SRCHX,9999 014 75 0
1 *C CAD - 1 014 76 0
1 CFA D2D3,23 FIRST COMPARE LENGTHS 014 77 0
1 STA L (AND WHETHER OR NOT A NUMERIC LABEL) 014 78 0
1 SRA 4 014 79 0
1 BCU B- 014 80 0
1 STA TEMP 014 81 0
1 IFL TEMP,63,9 014 82 0
1 STA A+,04 014 83 0
1 IFL A+,04,1 014 84 0
1 DLB TEMP,54,1 014 85 0
1 BRP A+ 014 86 0
1 LDB +9 014 87 0
1 *A CAD - * IF LENGTHS AGREE, COMPARE THE SYMBOLS 014 88 0
1 CFA - SYMBL,00 014 89 0
1 BCU B- 014 90 0
1 DBB A-,1 014 91 0
1 IFL SRCHX,04,1 INCREMENTED EXIT 014 92 0
1 DLB L,64,0 IF SYMBOL IS FOUND 014 93 0
1 SRCHX BUN * 014 94 0
1 REM 014 95 0
1 REM 014 96 0
1 WEM LDR +0525005250 WRITE ERROR MESSAGE 014 97 0
1 STR HALT 014 98 0
1 CLL MSG 014 99 0
1 IFL MSG,12,20 015 00 0
1 LDB C+ 015 01 0
1 RTF MSG,8 CLEAR MESSAGE BUFFER 015 02 0
1 CLL TEMP 015 03 0
1 *G LDB WEMX 015 04 0
1 CAD - 0 015 05 0
1 *E CLR 0000 015 06 0
1 SRT 8 015 07 0
1 BFA A+,00,00 015 08 0
1 STA E-,04 015 09 0
1 STR TEMP3 015 10 0
1 *H IFL E-,04,1 015 11 0
1 LDB E- 015 12 0
1 LDR - DICT-2 GET DICTIONARY ENTRY 015 13 0
1 *C CLA MSG+1 015 14 0
1 LBC TEMP 015 15 0
1 SLT 2 TRANSFER CHARACTERS 015 16 0
1 BFA B+,00,00 015 17 0
1 SLA - 8 BUFFER AREA 015 18 0
1 DLB TEMP,94,00 015 19 0
1 LSA 0 015 20 0
1 ADD - MSG 015 21 0
1 STA - MSG,00 015 22 0
1 IFL TEMP,05,02 015 23 0
1 BUN C- 015 24 0
1 *B BSA H-,3 PUT SPACE BETWEEN WORDS 015 25 0
1 IFL TEMP,05,02 015 26 0
1 CAD TEMP3 015 27 0
1 BUN E- 015 28 0
1 *A IFL WEMX,04,01 015 29 0
1 STP 4 9898,0906 015 30 0
1 BUN 4 9898,MSG 015 31 0
1 WEMX BUN 0000 RETURN AND ATTEMPT TO CONTINUE 015 32 0
1 MSG LOCN *+9 015 33 0
1 REM 015 34 0
1 REM 015 35 0
1 REM 015 36 0
1 LBRT LOCN *+300 LIBRARY TABLE 015 37 0
1 L CNST 0 LAST OPERAND 015 38 0
1 K CNST 0 RUNNING COUNT OF LENGTH FOR SYMBOL 015 39 0
1 D2D3 HLT 0 STORAGE FOR LENGTH OF SYMBOL 015 40 0
1 INSTR HLT 0 CURRENT INSTRUCTION 015 41 0
1 LL0 HLT 0 STACK TO SEARCH AT LEVEL 0 015 42 0
1 SCNCT HLT 0 COLUMN COUNT 015 43 0
1 CHAR HLT 0 CURRENT CHARACTER BEING SCANED 015 44 0
1 ZERSS HLT 2 0 015 45 0
1 HLT 2 0 015 46 0
1 HLT 2 0 015 47 0
1 HLT 2 0 015 48 0
1 HLT 2 0 015 49 0
1 HLT 2 0 015 50 0
1 HLT 2 0 015 51 0
1 HLT 2 0 015 52 0
1 HLT 2 0 015 53 0
1 TEMP3 HLT 0 SHORT TERM STORAGE LOCATION 015 54 0
1 TEMP HLT 0 DITTO 015 55 0
1 EXLBT CNST $FIX$ TABLE FOR SPECIAL LIBRARY ROUTINES 015 56 0
1 F244 0,SCRTB+106,0 015 57 0
1 CNST $FLOAT$ 015 58 0
1 F244 0,SCRTB+108,0 015 59 0
1 CNST $FX*FX$ 015 60 0
1 F244 0,SCRTB+102,0 015 61 0
1 CNST $FX*FL$ 015 62 0
1 F244 0,SCRTB+103,0 015 63 0
1 CNST $FL*FX$ 015 64 0
1 F244 0,SCRTB+104,0 015 65 0
1 CNST $FL*FL$ 015 66 0
1 F244 0,SCRTB+105,0 015 67 0
1 CNST $LABLE$ 015 68 0
1 F244 0,SCRTB-9,0 015 69 0
1 CNST $MONIT$ 015 70 0
1 F244 0,SCRTB+110,0 015 71 0
1 CNST $ERROR$ 015 72 0
1 F244 0,SCRTB+113,0 015 73 0
1 CNST $TRACE$ 015 74 0
1 F244 0,SCRTB+114,0 015 75 0
1 CNST $RITE$ 015 76 0
1 F244 0,SCRTB+116,0 015 77 0
1 CNST $REED$ 015 78 0
1 F244 0,SCRTB+117,0 015 79 0
1 FUNS F424 FUNS,0,0 ALL PURPOSE STACK 015 80 0
1 CNST 20000000000 015 81 0
1 CRD LOCN *+16 INPUT AREA 015 82 0
1 HLT 2 0 015 83 0
1 EQTAB LOCN *+100 EQUIVALENCE TABLE 015 84 0
1 BUFR LOCN *+100 INPUT BUFFER FOR LIBRARY PROCEDURES 015 85 0
1 IFERR CNST $-----ERROR(S) WERE FOUND-----$ 015 86 0
1 HLT 2 0 015 87 0
1 HLT 2 0 015 88 0
1 HLT 2 0 015 89 0
1 SYMBL CNST 0,0,0,0,0,0,0,0,0,0 SYMBOL STORAGE AREA 015 90 0
1 LEVEL HLT 0 LEVEL FOR SEARCHING 015 91 0
1 REM 015 92 0
1 REM 015 93 0
1 INS STB A+,04 015 94 0
1 AVALE LDR AVAIL INSERT RA(67) INTO ASSOCIATIVE MEMORY 015 95 0
1 BFR B+,04,00 015 96 0
1 *C LDR - 0 015 97 0
1 LDB AVAIL NORMALLY THIS MEANS ON TOP OF THE 015 98 0
1 STA - 0,67 STACK NAMED BY THE B REGISTER 015 99 0
1 CAD - 0 016 00 0
1 STR - 0,04 016 01 0
1 *A STB *,04 016 02 0
1 STA AVAIL,04 016 03 0
1 INSX BUN * 016 04 0
1 *B LDR MAMAX IF AVAIL STACK IS EMPTY, TRY TO 016 05 0
1 CFR SSC,04 INCREASE THE SIZE OF 016 06 0
1 STR AVAIL,04 ASSOCIATIVE MEMORY 016 07 0
1 STR D+,04 016 08 0
1 DFL MAMAX,00,1 016 09 0
1 *D CLL * 016 10 0
1 BCH C- 016 11 0
1 FULL STP WEMX IF NO ROOM IS LEFT, GIVE UP 016 12 0
1 BUN WEM 016 13 0
1 CNST 36264660000 COMPILER CAPACITY EXCEEDED 016 14 0
1 F424 6200,00,7777 016 15 0
1 REM 016 16 0
1 REM 016 17 0
1 REM STB A+,04 REMOVE INFORMATION FROM 016 18 0
1 LDB - 0 ASSOCIATIVE MEMORY LOCATION IN 016 19 0
1 CAD - 0 THE STACK NAMED IN RB 016 20 0
1 REMX IBB *,9999 IF THE STACK IS EMPTY, EXIT 016 21 0
1 IBB *+1,1 016 22 0
1 LDR AVAIL OTHERWISE MARK LOCATION AVAILABLE 016 23 0
1 STB AVAIL,04 FOR FUTURE USE 016 24 0
1 STR - 0,04 016 25 0
1 *A STA *,04 INCREMENTED EXIT WITH THE REMOVED 016 26 0
1 LDB REMX QUANTITY IN RA 016 27 0
1 BUN - 1 016 28 0
1 REM 016 29 0
1 REM THE SYMBOLIC MEMORY DUMP GENERATOR 016 30 0
1 REM 016 31 0
1 KOUNT HLT 0 STACK COUNTER 016 32 0
1 COUT HLT 0 PRESENT LEVEL COUNTER 016 33 0
1 *T NOP SCRTB LINK TO NEXT ITEM 016 34 0
1 MONST LDB +TBL+1 016 35 0
1 RTF TBL,100 SET UP HEADS FOR 301 STACKS 016 36 0
1 RTF TBL+100,100 016 37 0
1 RTF TBL+200,100 016 38 0
1 CAD SCRTB+113 016 39 0
1 SRA 4 016 40 0
1 BFA J+,51,3 016 41 0
1 STA ASSGZ,04 FIX DUMP SO IT CAN FIND 016 42 0
1 IFL ASSGZ,04,44 016 43 0
1 DFL ASSGZ,12,80 016 44 0
1 CAD SCRTB+117 016 45 0
1 SRA 4 016 46 0
1 STA Z1+,04 016 47 0
1 STA Z2+,04 016 48 0
1 STA Z3+,04 016 49 0
1 STA Z4+,04 016 50 0
1 STA Z5+,04 016 51 0
1 STA Z6+,04 016 52 0
1 STA Z7+,04 016 53 0
1 STA Z8+,04 016 54 0
1 STA Z9+,04 016 55 0
1 STA Z10+,04 016 56 0
1 STA Z11+,04 016 57 0
1 STA Z12+,04 016 58 0
1 STA Z13+,04 016 59 0
1 STA Z14+,04 016 60 0
1 STA Z15+,04 016 61 0
1 STA Z16+,04 016 62 0
1 STA Z17+,04 016 63 0
1 STA Z18+,04 016 64 0
1 STA Z19+,04 016 65 0
1 STA Z20+,04 016 66 0
1 STA Z21+,04 016 67 0
1 STA Z22+,04 016 68 0
1 STA Z23+,04 016 69 0
1 STA Z24+,04 016 70 0
1 STA Z25+,04 016 71 0
1 STA Z26+,04 016 72 0
1 *J NOP SCRTB LAST ENTRY FROM SCRAMBLE TABLE 016 73 0
1 LDR KOUNT 016 74 0
1 STR COUT 016 75 0
1 CFR +100,00 016 76 0
1 BCE END1 IF EQUAL ALL STACKS IN SCRAMBLE TABLE 016 77 0
1 LDB J- HAVE BEEN PROCESSED 016 78 0
1 CAD - 0 GET NEXT ENTRY FROM SCRTB 016 79 0
1 LDB - 0 016 80 0
1 STB J-,04 SAVE LINK TO NEXT ENTRY 016 81 0
1 DBB A+,2000 IF LINK IS LESS THAN 2000 END STACK NOW 016 82 0
1 IFL KOUNT,00,1 INCREASE STACK COUNT 016 83 0
1 IFL T-,04,1 016 84 0
1 LDR T- 016 85 0
1 STR J-,04 SET UP FOR NEXT STACK 016 86 0
1 IBB J-,2000 IF LINK WAS NON-ZERO START NEW STACK 016 87 0
1 BZA J- SKIP TO NEXT STACK IF ZERO 016 88 0
1 *A SRA 4 GET SREF IN 04 FIELD 016 89 0
1 CFA +2000,04 016 90 0
1 BCL J- IF SREF IS LESS THAN 2000 GET NEXT ONE 016 91 0
1 STA SREF,04 016 92 0
1 SRT 4 016 93 0
1 LSA 0 016 94 0
1 ADD +8 016 95 0
1 SRA 1 016 96 0
1 STA SL SAVE SYMBOL LENGTH 016 97 0
1 SLT 19 016 98 0
1 BPA *+2 016 99 0
1 FDV * SET OVERFLOW IF A NUMERIC LABEL 017 00 0
1 LDB SREF 017 01 0
1 LDR - 1 GET ACTUAL SYMBOL 017 02 0
1 CLA 017 03 0
1 DIV +99 SCRAMBLE IT 017 04 0
1 SLT 10 017 05 0
1 SUB COUT COMPUTE LEVEL 017 06 0
1 STA LEVEL,00 017 07 0
1 CAD - 0 017 08 0
1 BSA J-,1 SKIP 017 09 0
1 BSA J-,3 CALL 017 10 0
1 BSA J-,5 BY NAME 017 11 0
1 BSA J-,7 THINGS 017 12 0
1 BSA J-,9 AND INPUT,OUTPUT,FORMAT LABELS 017 13 0
1 BSA J-,8 AND EXTERNAL PROGRAMS 017 14 0
1 BFA B+,11,1 SIMPLE VARIABLES(FIRST 100 STACKS) 017 15 0
1 IFL LEVEL,81,1 017 16 0
1 BFA B+,11,5 ARRAYS(NEXT 100) 017 17 0
1 IFL LEVEL,81,1 017 18 0
1 BFA A+,11,9 LABELS(NEXT 100) 017 19 0
1 IFL LEVEL,81,1 017 20 0
1 BFA B+,11,8 PROCEDURES(ONLY ONE STACK) 017 21 0
1 BUN J- GET NEXT ITEM IF IT IS NONE OF ABOVE 017 22 0
1 REM 017 23 0
1 REM 017 24 0
1 *A CFA +2000000,64 017 25 0
1 BCL J- SKIP SEGMENT NAMES 017 26 0
1 *B STB VL,33 VECTOR LENGTH 017 27 0
1 IFL VL,32,04 FOUR IS NORMAL(ARRAYS REQUIRE 6) 017 28 0
1 STA VECTR+3 SAVE OPERAND 017 29 0
1 CAA - 1 017 30 0
1 LDR - 2 GET SYMBOL 017 31 0
1 LDB SL 017 32 0
1 DBB *+2,2 017 33 0
1 CLR SYMBOL LENGTH LEQ 5 CHARACTERS 017 34 0
1 BOF NUMLB NUMERIC LABEL 017 35 0
1 STA VECTR+1 017 36 0
1 STR VECTR+2 SAVE FIRST 10 CHARACTERS OF SYMBOL 017 37 0
1 REM 017 38 0
1 REM 017 39 0
1 RETRN LDR VECTR+3 017 40 0
1 CLA 017 41 0
1 BFR P+,11,1 017 42 0
1 BFR P+,11,9 017 43 0
1 BFR *+3,11,5 017 44 0
1 STA VECTR+3,89 PROCEDURE 02 FIELD IS LEVEL 017 45 0
1 BUN P+ 017 46 0
1 LDB VECTR+3 017 47 0
1 IFL VL,32,2 NEED TWO MORE FOR ARRAYS 017 48 0
1 LDR - 0 017 49 0
1 STR HOLD SAVE LINK 017 50 0
1 SRT 4 017 51 0
1 CAD VECTR+3 017 52 0
1 CLL VECTR+3 017 53 0
1 CLL VECTR+4 017 54 0
1 CLL VECTR+5 017 55 0
1 STR VECTR+3,04 LENGTH 017 56 0
1 STA VECTR+5,67 SAVE OPERAND OF ARRAY 017 57 0
1 CLL DIM 017 58 0
1 LDB HOLD 017 59 0
1 IBB C+,9999 LINK ZERO INDICATES WE HAVE LINEAR 017 60 0
1 BUN D+ ARRAY 017 61 0
1 *A LDB HOLD END OF DIMENSION LIST OF CONSTANTS 017 62 0
1 IBB A+,9999 IF LINK IS ZERO 017 63 0
1 *D LDR - 1 017 64 0
1 DLB - 1,64,0 017 65 0
1 STR HOLD SAVE OPERAND OF CONSTANT 017 66 0
1 CAD - 1 017 67 0
1 LDB DIM 017 68 0
1 STA - DIMS PUT CONSTANT INTO DIMENSION LIST 017 69 0
1 IFL DIM,00,1 INCREASE DIMENSION COUNT 017 70 0
1 BUN A- 017 71 0
1 *A LDR DIMS 017 72 0
1 STR VECTR+4 SAVE LENGTH OF A ROW 017 73 0
1 *B LDB DIM 017 74 0
1 CAD - DIMS-1 017 75 0
1 ADD +1 017 76 0
1 MUL - DIMS-2 CALCULATE ADDRESS OF FIRST 017 77 0
1 STR - DIMS-2 ELEMENT OF THE ARRAY 017 78 0
1 DFL DIM,00,1 017 79 0
1 DBB B-,3 017 80 0
1 CAA DIMS 017 81 0
1 ADD +1 017 82 0
1 SLA 4 017 83 0
1 ADA VECTR+5 017 84 0
1 *F STA VECTR+5,64 STORE ACTUAL ADDRESS 017 85 0
1 BUN P+ 017 86 0
1 *C LDR VECTR+3 LINEAR ARRAY 017 87 0
1 STR VECTR+4 LENGTH OF ROW IS LENGTH OF ARRAY 017 88 0
1 CAD VECTR+5 017 89 0
1 ADD +10000 ACTUAL ADDRESS IS ONLY 1 GREATER 017 90 0
1 BUN F- 017 91 0
1 REM 017 92 0
1 REM 017 93 0
1 *P CAD +TBL 017 94 0
1 ADD LEVEL 017 95 0
1 STA LEVEL SET UP SEARCH OF PROPER STACK 017 96 0
1 STA THROW (NOTICE EVERY STACK IS INITIALIZED 017 97 0
1 TLU LDB LEVEL WITH THE SYMBOL 9999999999) 017 98 0
1 CAD - 0 017 99 0
1 STA HOLD SAVE LINK TO NEXT ITEM 018 00 0
1 DLB HOLD,64,0 018 01 0
1 LDR VECTR+1 018 02 0
1 CFR - 0,00 COMPARE FIRST FIVE CHARACTERS 018 03 0
1 BCL YES YES, INSERT IT 018 04 0
1 BCE MAYBE COMPARISON ON NEXT 5 NEEDED 018 05 0
1 *C LDR LEVEL 018 06 0
1 STR THROW LAST OPERAND USED LINKS TO 018 07 0
1 LDR HOLD THE OPERAND TO BE USED 018 08 0
1 STR LEVEL 018 09 0
1 BUN TLU 018 10 0
1 REM 018 11 0
1 REM 018 12 0
1 YES LDR LEVEL 018 13 0
1 CFR THROW IF THEY ARE EQUAL THEN THE SPECIAL 018 14 0
1 BCE EH CASE WHERE THE HEAD OF THE STACK 018 15 0
1 CAD LEVEL IS CHANGED 018 16 0
1 STA VECTR,04 018 17 0
1 STP GETX GET NEXT FREE CELLS 018 18 0
1 BUN GET 018 19 0
1 LDB THROW 018 20 0
1 STA - 0,04 INSERT NEW OPERAND WITH 018 21 0
1 ADD +1 ITS NICE INFORMATIN INTO STACK 018 22 0
1 SLA 4 018 23 0
1 STA VECTR,64 018 24 0
1 LDB MEM 018 25 0
1 VL RTF VECTR,4 ENTER THE VECTOR INTO THE STACK 018 26 0
1 STB MEM 018 27 0
1 BUN J- 018 28 0
1 EH STP GETX GET NEXT FREE CELLS 018 29 0
1 BUN GET 018 30 0
1 ADD +1 018 31 0
1 SLA 4 018 32 0
1 ADD MEM 018 33 0
1 LDB THROW DO AN INSERT FOR THIS SPECIAL CASE 018 34 0
1 LDR - 0 018 35 0
1 STA - 0 018 36 0
1 STR VECTR 018 37 0
1 BUN VL-1 018 38 0
1 REM 018 39 0
1 REM 018 40 0
1 MAYBE LDR VECTR+2 COMPARE WITH 018 41 0
1 CFR - 1,00 NEXT FIVE CHARACTERS 018 42 0
1 BCH C- 018 43 0
1 BUN YES 018 44 0
1 REM 018 45 0
1 REM 018 46 0
1 NUMLB BZA A+ CONVERT PUBLIC NUMERIC LABELS 018 47 0
1 SRT 10 TO ALFANUMERIC FORM 018 48 0
1 CLL VECTR+1 WITH LEADING ZEROES 018 49 0
1 BFR B+,55,0 SUPPRESSED 018 50 0
1 STP SUPX 018 51 0
1 BUN SUP 018 52 0
1 STA VECTR+1 018 53 0
1 STP NSUPX 018 54 0
1 BUN NSUP 018 55 0
1 STA VECTR+2 018 56 0
1 BUN RETRN 018 57 0
1 *B SLT 5 018 58 0
1 STP SUPX 018 59 0
1 BUN SUP 018 60 0
1 STA VECTR+2 018 61 0
1 BUN RETRN 018 62 0
1 *A LDR +80 018 63 0
1 BUN RETRN-2 018 64 0
1 REM 018 65 0
1 REM 018 66 0
1 SUP SLT 1 CONVERT A 5 DIGIT NUMERIC 018 67 0
1 BZA *+2 TO ALFA WITH SUPPRESSION 018 68 0
1 ADD +80 OF LEADING ZEROES 018 69 0
1 IFL *-1,11,2 018 70 0
1 SUPX BOF * 018 71 0
1 SLA 1 018 72 0
1 BUN SUP 018 73 0
1 REM 018 74 0
1 REM 018 75 0
1 NSUP SLT 1 CONVERT A 5 DIGIT NUMERIC 018 76 0
1 ADD +80 TO ALFA - DO NOT SUPPRESS 018 77 0
1 NSUPX BFA *,11,8 LEADING ZEROES 018 78 0
1 SLA 1 018 79 0
1 BUN NSUP 018 80 0
1 REM 018 81 0
1 REM 018 82 0
1 END1 MLS 4 OT+10 MEMORY DUMP GOES ON ODD LANE 018 83 0
1 MPF 4 OT,4 018 84 0
1 *A LDB +DUMBS 018 85 0
1 STP REMX ENTRY IN DUMP STACK IS N NNNN LL LINK 018 86 0
1 BUN REM WHERE NNNN= NUMBER OF ITEMS IN LIST 018 87 0
1 BUN ACTUA LL= LEVEL NUMBER FOR THE 018 88 0
1 LDB +SBMUD PROCEDURE WHICH CONTAINS 018 89 0
1 STP INSX THE DUMP LIST 018 90 0
1 BUN INS 018 91 0
1 BUN A- INVERT STACK OF NECESSARY DUMPS 018 92 0
1 ACTUA LDB +SBMUD 018 93 0
1 STP REMX 018 94 0
1 BUN REM 018 95 0
1 BUN FIN END OF DUMPS 018 96 0
1 CLL IDEX 018 97 0
1 STA HOLD SAVE DUMP ENTRY 018 98 0
1 BFA C+,62,0 IF ZERO - DUMP FOR PROGRAM 018 99 0
1 SRA 4 IF NON-ZERO 019 00 0
1 STA IDEX,02 SAVE LEVEL AND GET ASSOCIATED 019 01 0
1 CAD TBL+300 PROCEDURE NAME 019 02 0
1 *B STA DIM 019 03 0
1 DLB DIM,64,0 019 04 0
1 CAD - 2 019 05 0
1 CFA IDEX,02 019 06 0
1 BCE A+ PROCEDURE NAME FOUND 019 07 0
1 LDB DIM GET NEXT ITEM FROM PROCEDURE STACK 019 08 0
1 CAD - 0 019 09 0
1 BUN B- 019 10 0
1 *A CAD - 0 019 11 0
1 LDR - 1 019 12 0
1 STA J++4,00 019 13 0
1 STR J++5,00 019 14 0
1 LDR +EN 019 15 0
1 STR EM,04 019 16 0
1 MOW 4 Q+,OT,3 019 17 0
1 *C STB PRSW1,62 019 18 0
1 STB PRSW2,62 019 19 0
1 CAD HOLD 019 20 0
1 BFA *+3,45,0 IF THE DUMP LIST WAS NULL 019 21 0
1 IFL PRSW1,62,29 SET SOME SWITCHES SO THAT 019 22 0
1 IFL PRSW2,62,29 EVERY TABLE ITEM OUTPUT TO TAPE 019 23 0
1 IFL PRSW1,62,1 WILL HAVE A SIGN OF 4 019 24 0
1 IFL PRSW2,62,1 019 25 0
1 DLB SCRTB+114,64,0 019 26 0
1 STB TRCE,04 019 27 0
1 BUN END15 019 28 0
1 REM 019 29 0
1 REM 019 30 0
1 LOD3 DEFN * 019 31 0
1 *Q BCS V+-LOD3+100,9 019 32 0
1 *Z1 STP *,2438 019 33 0
1 *Z2 BUN *,J+-LOD3+100 019 34 0
1 *V NOP LOD1-100 019 35 0
1 NOP 1 019 36 0
1 LDB *-1-LOD3+100 019 37 0
1 RTF *+2-LOD3+100,3 019 38 0
1 BUN 1 019 39 0
1 LBC V--LOD3+100 019 40 0
1 MRD 4 100,OT,3,BMOD 019 41 0
1 BUN 100 019 42 0
1 *J CNST $ PROCEDURE 019 43 0
1 019 44 0
1 $ 019 45 0
1 LOCN *+10 019 46 0
1 REM 019 47 0
1 REM 019 48 0
1 END15 MOW 4 Q+,OT,3 019 49 0
1 LDB IDEX DUMP 019 50 0
1 CAD - TBL+200 019 51 0
1 *C STA HOLD 019 52 0
1 LDB HOLD 019 53 0
1 IBB END2,9999 END OF THIS LABEL STACK 019 54 0
1 DLB HOLD,64,0 019 55 0
1 CAD - 2 GET OPERAND OF THE LABEL 019 56 0
1 STB STOX1,62 019 57 0
1 BPA PRSW1 SIGN OF 0 MEANS NOT BEING DUMPED 019 58 0
1 IFL STOX1,62,1 019 59 0
1 BUN B+ 019 60 0
1 PRSW1 BUN D+ DUMP HAD A NULL LIST 019 61 0
1 IFL STOX1,62,1 SET UP TO MARK ITEM WITH A SIGN OF 4 019 62 0
1 BUN B+ 019 63 0
1 *D IFL STOX1,62,30 DO NOT MARK FOR DUMPING 019 64 0
1 *B CAD - 0 019 65 0
1 STP STOXX 019 66 0
1 BUN STOX1 019 67 0
1 CAD - 1 019 68 0
1 STP STOXX ENTER ITEM INTO OUTPUT BUFFER 019 69 0
1 BUN STOX1 019 70 0
1 CAD - 2 019 71 0
1 STP STOXX 019 72 0
1 BUN STOX1 019 73 0
1 LDB HOLD 019 74 0
1 CAD - 0 019 75 0
1 BUN C- 019 76 0
1 REM 019 77 0
1 REM 019 78 0
1 END2 LSA 9 OUTPUT END FLAG 019 79 0
1 STP STOXX 019 80 0
1 BUN STOX 019 81 0
1 IFL *-1,11,5 019 82 0
1 BOF END3 019 83 0
1 LDB IDEX 019 84 0
1 CAD - TBL 019 85 0
1 BUN C- PROCESS SIMPLE VARIABLES 019 86 0
1 REM 019 87 0
1 REM 019 88 0
1 REM 019 89 0
1 REM 019 90 0
1 STOX1 BUN STOX 019 91 0
1 LSA 4 MARK ITEM FOR DUMPING 019 92 0
1 STOX STA 0 ENTER ITEM INTO BUFFER 019 93 0
1 IFL STOX,02,1 019 94 0
1 BOF *+2 019 95 0
1 STOXX BUN * EXIT LINE 019 96 0
1 MOW 4 0,OT,1 BUFFER FULL 019 97 0
1 BUN STOXX 019 98 0
1 REM 019 99 0
1 LOD1 DEFN * THIS PROGRAM IS RELOCATED TO 020 00 0
1 *Q NOP 8 J++1 LOCATION 0100 AT OBJECT TIME 020 01 0
1 *R CLB 8 I+ AND CUASES THE PRINTING OF 020 02 0
1 BUN 8 *+3 THE FOLLOWING LIST 020 03 0
1 *A LDB 8 B+ 020 04 0
1 IBB 8 C+,1 020 05 0
1 MRD 4 0,OT,1 020 06 0
1 DBB 8 *+1,100 LAST LABEL PASSED WAS L(N) 020 07 0
1 *C CAD - 100 020 08 0
1 STB 8 B+,04 020 09 0
1 BSA 8 EM,9 LABEL IN PROGRAM NUMBER OF TIMES 020 10 0
1 BCS 8 A-,9 020 11 0
1 IOM 8 EM EXECUTED 020 12 0
1 BSA 8 EM,4 020 13 0
1 BUN 8 A- 020 14 0
1 EM DEFN * L N 020 15 0
1 *D BUN 8 *+1 020 16 0
1 NOP 8 I++6 - - 020 17 0
1 LDB 8 *-1 020 18 0
1 ASSGZ RTF 8 NONE,4 VARIABLE IN PROGRAM VALUE 020 19 0
1 CAD 8 I++6 020 20 0
1 ADA 8 I++7 V N 020 21 0
1 BOF 8 *+1 - - 020 22 0
1 BZA 8 *+2 - - 020 23 0
1 BUN 8 EN-2 020 24 0
1 NOP 8 NONE 020 25 0
1 LDB 8 *-1 020 26 0
1 STB 8 ASSGZ,04 020 27 0
1 BUN 8 D- 020 28 0
1 *Z3 STP *,2438 020 29 0
1 *Z4 BUN *,I+-LOD1+100 020 30 0
1 EN LDB 8 R- WITH A PROCEDURE THE FIRST 020 31 0
1 CLL 8 I+-1 MESSAGE IS NOT PRINTED 020 32 0
1 IFL 8 I+-1,12,20 020 33 0
1 RTF 8 I+-1,24 020 34 0
1 DFL 8 B+,04,1 020 35 0
1 STP 8 D- 020 36 0
1 BUN 8 A- 020 37 0
1 BSA 8 V+,9 020 38 0
1 *Z5 STP *,2468 020 39 0
1 *Z6 BUN *,J+-LOD1+100 020 40 0
1 DFL 8 B+,04,1 020 41 0
1 STP 8 D- 020 42 0
1 BUN 8 A- 020 43 0
1 *E STA 8 I++2,00 020 44 0
1 BSA 8 V+,9 020 45 0
1 STP 8 D- 020 46 0
1 BUN 8 A- 020 47 0
1 STA 8 I++3,00 020 48 0
1 STP 8 D- 020 49 0
1 BUN 8 A- 020 50 0
1 DLB - 100,64,0 020 51 0
1 CSA - 0 020 52 0
1 BFA 8 *+2,62,44 020 53 0
1 CSA - 1 020 54 0
1 CFA 8 TRCE,04 020 55 0
1 BCU 8 *+2 020 56 0
1 IBB 8 *-5,2 020 57 0
1 SRA 6 020 58 0
1 ADD 8 D1 020 59 0
1 STP 8 D- 020 60 0
1 BUN 8 A1+ 020 61 0
1 STA 8 I++8,08 020 62 0
1 *Z7 STP *,2408 020 63 0
1 *Z8 BUN *,I+-LOD1+100 020 64 0
1 STP 8 D- 020 65 0
1 BUN 8 A- 020 66 0
1 BUN 8 E- 020 67 0
1 *V LDB 8 A9+ 020 68 0
1 CLL 8 J+-1 020 69 0
1 IFL 8 J+-1,12,20 020 70 0
1 RTF 8 J+-1,35 020 71 0
1 STP 8 D- 020 72 0
1 BUN 8 A- 020 73 0
1 BSA 8 V+,9 020 74 0
1 *Z9 STP *,2468 020 75 0
1 *Z10 BUN *,K+-LOD1+100 020 76 0
1 *Z11 STP *,2448 020 77 0
1 *Z12 BUN *,J+-LOD1+100 020 78 0
1 DFL 8 B+,04,1 020 79 0
1 *C STP 8 D- 020 80 0
1 BUN 8 A- 020 81 0
1 BSA 8 V+,9 020 82 0
1 STA 8 J++2,00 020 83 0
1 STP 8 D- 020 84 0
1 BUN 8 A- 020 85 0
1 STA 8 J++3,00 020 86 0
1 STP 8 D- 020 87 0
1 BUN 8 A- 020 88 0
1 SRT 10 020 89 0
1 DLB - 100,64,0 020 90 0
1 *A9 CLA 8 J+ 020 91 0
1 ADD - 0 020 92 0
1 BFR 8 F+,21,0 020 93 0
1 STP 8 D- 020 94 0
1 BUN 8 A1+ 020 95 0
1 LDB 8 Q- 020 96 0
1 DBB 8 *+1,9993 020 97 0
1 RTF 8 S+,3 020 98 0
1 CLL 8 J++11 020 99 0
1 IFL 8 J++11,12,20 021 00 0
1 *Z13 STP *,2408 021 01 0
1 *Z14 BUN *,J+-LOD1+100 021 02 0
1 BUN 8 C- 021 03 0
1 *F SLA 2 021 04 0
1 STA 8 S++5,02 021 05 0
1 SRA 2 021 06 0
1 SLA 2 021 07 0
1 STP 8 D- 021 08 0
1 BUN 8 A1+ 021 09 0
1 LDB 8 Q- 021 10 0
1 DBB 8 *+1,9993 021 11 0
1 RTF 8 S+,3 021 12 0
1 IFL 8 J++8,02,03 021 13 0
1 CAD 8 S++5 021 14 0
1 LDR 8 S++1 021 15 0
1 BFR 8 *+2,21,0 021 16 0
1 SUB 8 S++4 021 17 0
1 STP 8 D- 021 18 0
1 BUN 8 A1+ 021 19 0
1 SLT 16 021 20 0
1 STR 8 J++11,44 021 21 0
1 CAD 8 S+ 021 22 0
1 SRA 2 021 23 0
1 STA 8 J++10,04 021 24 0
1 IFL 8 J++10,82,23 021 25 0
1 BUN 8 F--3 021 26 0
1 *A1 CLL 8 S+ 021 27 0
1 IFL 8 S+,12,20 021 28 0
1 BPA 8 *+3 021 29 0
1 IFL 8 S+,82,20 021 30 0
1 LSA 0 021 31 0
1 SRT 10 021 32 0
1 TRCE CLB 021 33 0
1 *B CLA 021 34 0
1 *Y SLA 1 021 35 0
1 ADD 8 S++3 021 36 0
1 SLT 1 021 37 0
1 IBB 8 Y-,2000 021 38 0
1 STA 9 S++1,00 021 39 0
1 IFL 8 Y-,11,5 021 40 0
1 BOF 8 D- 021 41 0
1 IBB 8 B-,1 021 42 0
1 D1 CNST 10000 021 43 0
1 *S CNST 20000000000 021 44 0
1 CNST 20000000000 021 45 0
1 CNST 20000000000 021 46 0
1 CNST 8 021 47 0
1 CNST 50 021 48 0
1 CNST 0 021 49 0
1 *K CNST $ VARIABLE IN PROGRAM VALUE $ 021 50 0
1 CNST 20000000000 021 51 0
1 *J CNST $ LABEL IN PROGRAM NUMBER OF TIMES EXECUTE 021 52 0
1 D$ 021 53 0
1 CNST 20000000000 021 54 0
1 *I CNST $ LAST LABEL PASSED WAS 021 55 0
1 021 56 0
1 $ 021 57 0
1 REM 021 58 0
1 REM 021 59 0
1 *V NOP Q+-100 THIS PROGRAM READS IN THE 021 60 0
1 LDB 8 *+2 ARRAY DUMP ROUTINE 021 61 0
1 RTF 8 *+2,3 021 62 0
1 BUN 98 021 63 0
1 LBC 8 *-4 021 64 0
1 MRD 4 100,1,3,BMOD 021 65 0
1 NONE CNST $(NONE) $ 021 66 0
1 LOCN LOD1+240 021 67 0
1 REM 021 68 0
1 REM 021 69 0
1 REM 021 70 0
1 END3 CAD STOX DUMP BUFFER(LABELS AND VARIABLES) 021 71 0
1 BFA *+2,04,0 IF IT IS NOT EMPTY 021 72 0
1 MOW 4 0,OT,1 021 73 0
1 CLR 021 74 0
1 STR STOX,04 INITIALIZE STORE ROUTINE 021 75 0
1 MOW 4 Q+,OT,3 021 76 0
1 LDB IDEX 021 77 0
1 CAD - TBL+100 021 78 0
1 *C STA HOLD 021 79 0
1 LDB HOLD 021 80 0
1 IBB END4,9999 END OF LIST OF ARRAYS 021 81 0
1 DLB HOLD,64,0 021 82 0
1 CAD - 4 021 83 0
1 STB STOX1,62 021 84 0
1 BPA PRSW2 ITEM UNMARKES - MARK IT IF PRSW2 IS ON 021 85 0
1 IFL STOX1,62,1 021 86 0
1 BUN A+ 021 87 0
1 PRSW2 BUN D+ 021 88 0
1 IFL STOX1,62,1 021 89 0
1 BUN A+ 021 90 0
1 *D IFL STOX1,62,30 021 91 0
1 *A CAD - 0 021 92 0
1 STP STOXX 021 93 0
1 BUN STOX1 021 94 0
1 CAD - 1 021 95 0
1 STP STOXX 021 96 0
1 BUN STOX1 021 97 0
1 CAD - 2 021 98 0
1 STP STOXX 021 99 0
1 BUN STOX1 022 00 0
1 CAD - 3 OUTPUT ARRAY ITEM TO TAPE 022 01 0
1 STP STOXX 022 02 0
1 BUN STOX1 022 03 0
1 CAD - 4 022 04 0
1 STP STOXX 022 05 0
1 BUN STOX1 022 06 0
1 LDB HOLD 022 07 0
1 CAD - 0 022 08 0
1 BUN C- 022 09 0
1 REM 022 10 0
1 REM 022 11 0
1 END4 LSA 9 022 12 0
1 STP STOXX PUT A END FLAG OUT TO BUFFER 022 13 0
1 BUN STOX 022 14 0
1 CAD STOX 022 15 0
1 BFA *+2,04,0 022 16 0
1 MOW 4 0,OT,1 DUMP BUFFER IF NOT EMPTY 022 17 0
1 CLR 022 18 0
1 STR STOX,04 INITIALIZE STORE SUBROUTINE 022 19 0
1 BUN ACTUA GET NEXTITEM FOR SBMUD STACK 022 20 0
1 REM 022 21 0
1 REM 022 22 0
1 LOD2 DEFN * THIS PROGRAM IS RELOCATED TO 022 23 0
1 *Q CLB 8 J++1 LOCATION 0100 AT OBJECT TIME 022 24 0
1 BUN 8 *+3 AND CAUSES THE PRINTING OF 022 25 0
1 *A LDB 8 B+ THE FOLLOWING LIST 022 26 0
1 IBB 8 C+,1 022 27 0
1 MRD 4 0,1,1 022 28 0
1 DBB 8 *+1,100 022 29 0
1 *C CAD - 100 022 30 0
1 STB 8 B+,04 022 31 0
1 BSA 8 D+,9 ARRAY A 022 32 0
1 BCS 8 A-,9 022 33 0
1 IOM 8 D+ 022 34 0
1 BSA 8 D+,4 (ELEMENTS OF THE ARRAY PRINTED BY ROW) 022 35 0
1 BUN 8 A- 022 36 0
1 *D BUN 8 *+2 022 37 0
1 BUN 8 *-1 022 38 0
1 BSA 8 V+,9 022 39 0
1 STA 8 I++3,00 022 40 0
1 STP 8 D- 022 41 0
1 BUN 8 A- NOTE THAT A ROW HAS AS MANY ELEMENTS 022 42 0
1 STA 8 I++4,00 IN IT AS THE LAST INTEGER IN THE 022 43 0
1 *Z15 STP *,2468 022 44 0
1 *Z16 BUN *,I+-LOD2+100 022 45 0
1 *Z17 STP *,2448 022 46 0
1 *Z18 BUN *,J+-LOD2+100 022 47 0
1 STP 8 D- 022 48 0
1 BUN 8 A- 022 49 0
1 STA 8 L+ 022 50 0
1 STP 8 D- 022 51 0
1 BUN 8 A- 022 52 0
1 CFA 8 S+,00 022 53 0
1 BCU 8 *+2 022 54 0
1 CAD 8 S++1 022 55 0
1 STA 8 L++1 022 56 0
1 STA 8 L++2 022 57 0
1 STP 8 D- 022 58 0
1 BUN 8 A- 022 59 0
1 CFA 8 S+,21 022 60 0
1 SRA 4 022 61 0
1 STA 8 G+,04 022 62 0
1 *H CLL 8 N+ 022 63 0
1 IFL 8 N+,00,21 022 64 0
1 CAR 022 65 0
1 *G ADD * 022 66 0
1 CLL 8 J+-1 022 67 0
1 CLL 8 T+ 022 68 0
1 IFL 8 T+,12,20 022 69 0
1 BPA 8 *+3 022 70 0
1 IFL 8 T+,82,20 022 71 0
1 LSA 0 022 72 0
1 BCU 8 *+3 022 73 0
1 SLT 2 022 74 0
1 STR 8 S++2,02 022 75 0
1 SRT 10 022 76 0
1 CLB 022 77 0
1 *B CLA 022 78 0
1 *Y SLA 1 022 79 0
1 ADD 8 S++3 022 80 0
1 SLT 1 022 81 0
1 IBB 8 Y-,2000 022 82 0
1 STA 9 T++1,00 022 83 0
1 IFL 8 Y-,11,5 022 84 0
1 BOF 8 *+2 022 85 0
1 IBB 8 B-,1 022 86 0
1 BCE 8 P+ 022 87 0
1 CLL 8 T++3 022 88 0
1 *M LBC 8 N+ 022 89 0
1 LDR 8 T+ 022 90 0
1 STR 9 J++22,04 022 91 0
1 LDR 8 T++1 022 92 0
1 STR 9 J++23 022 93 0
1 LDR 8 T++2 022 94 0
1 STR 9 J++24 022 95 0
1 LDR 8 T++3 022 96 0
1 STR 9 J++25,66 022 97 0
1 DLB 8 L++1,04,1 022 98 0
1 IBB 8 W+,9999 022 99 0
1 DLB 8 N+,04,3 023 00 0
1 IBB 8 Y+,9999 023 01 0
1 *H DLB 8 L+,04,1 023 02 0
1 DBB 8 X+,1 023 03 0
1 LDR 8 O+ 023 04 0
1 BZR 8 E+ 023 05 0
1 *F STP 8 D- 023 06 0
1 BUN 8 A- 023 07 0
1 BUN 8 D-+2 023 08 0
1 *Z19 DEFN * 023 09 0
1 *E STP *,2428 023 10 0
1 *Z20 BUN *,J+-LOD2+100 023 11 0
1 LDB 8 Q- 023 12 0
1 RTF 8 J+,23 023 13 0
1 BUN 8 F- 023 14 0
1 *X CLL 8 O+ 023 15 0
1 IFL 8 G-,04,1 023 16 0
1 CLA 023 17 0
1 BUN 8 G- 023 18 0
1 *Y DEFN * 023 19 0
1 *Z21 STP *,2408 023 20 0
1 *Z22 BUN *,J+-LOD2+100 023 21 0
1 CLL 8 N+ 023 22 0
1 IFL 8 N+,04,21 023 23 0
1 LDB 8 Q- 023 24 0
1 RTF 8 J+,23 023 25 0
1 STP 8 O+ 023 26 0
1 BUN 8 H- 023 27 0
1 *Z23 DEFN * 023 28 0
1 *W STP *,2428 023 29 0
1 *Z24 BUN *,J+-LOD2+100 023 30 0
1 LDR 8 L++2 023 31 0
1 STR 8 L++1 023 32 0
1 BUN 8 Y-+2 023 33 0
1 *P IFL 8 T+,02,03 023 34 0
1 STR 8 T++2,04 023 35 0
1 IFL 8 T++2,82,23 023 36 0
1 CAD 8 S++2 023 37 0
1 LDR 8 T++1 023 38 0
1 BFR 8 *+2,21,0 023 39 0
1 SUB 8 S++4 023 40 0
1 BPA 8 *+3 023 41 0
1 IFL 8 T++2,02,20 023 42 0
1 LSA 0 023 43 0
1 CLR 023 44 0
1 SRT 1 023 45 0
1 SLA 1 023 46 0
1 SLT 7 023 47 0
1 ADD 8 S++5 023 48 0
1 STA 8 T++3,00 023 49 0
1 BUN 8 M- 023 50 0
1 *O CNST 0 023 51 0
1 *T CNST 20000000000 023 52 0
1 CNST 20000000000 023 53 0
1 CNST 20000000000 023 54 0
1 CNST 20000000000 023 55 0
1 *S CNST 1 023 56 0
1 CNST 9999 023 57 0
1 CNST 0 023 58 0
1 CNST 8 023 59 0
1 CNST 50 023 60 0
1 CNST 8080000000 023 61 0
1 *L CNST 0 023 62 0
1 CNST 0 023 63 0
1 CNST 0 023 64 0
1 *N CNST 0 023 65 0
1 *I CNST $ ARRAY 023 66 0
1 023 67 0
1 $ 023 68 0
1 *J CNST $ 023 69 0
1 023 70 0
1 $ 023 71 0
1 REM 023 72 0
1 REM 023 73 0
1 *V NOP LOD3-100 GET EITHER A PROCEDURE 023 74 0
1 LDB 8 S- HEADER OR END OF DUMP 023 75 0
1 RTF 8 *+2,3 PROGRAM 023 76 0
1 BUN 1 023 77 0
1 LBC 8 *-4 023 78 0
1 MRD 4 100,1,3,BMOD 023 79 0
1 BUN 100 023 80 0
1 LOCN LOD2+240 023 81 0
1 REM 023 82 0
1 REM 023 83 0
1 FIN MOW 4 Q+,OT,1 OUTPUT END OF DUMP PROGRAM 023 84 0
1 MRW 4 OT 023 85 0
1 CAD MEM 023 86 0
1 CFA +LDBG-1 023 87 0
1 BCH A+ 023 88 0
1 BUN LDBG 023 89 0
1 *A CFA +MEM+302 023 90 0
1 BCL A+ 023 91 0
1 BUN LDBG 023 92 0
1 *A MIB 4 *+2,T 023 93 0
1 BUN *-1 023 94 0
1 MRW 4 T 023 95 0
1 DLB *,44,0 023 96 0
1 MPF 4 T,10 023 97 0
1 DBB *-1,1100 023 98 0
1 MPF 4 T,2 023 99 0
1 LDB *+1 024 00 0
1 POSCT NOP 0 024 01 0
1 IBB *+3,9999 024 02 0
1 MPF 4 T,1 024 03 0
1 BUN *-2 024 04 0
1 MRD 4 400,T,10 024 05 0
1 MRD 4 1400,T,10 024 06 0
1 MRW 4 T 024 07 0
1 MIB 4 *+2,T 024 08 0
1 BUN *-1 024 09 0
1 MLS 4 OT 024 10 0
1 BUN LDBG 024 11 0
1 REM 024 12 0
1 REM 024 13 0
1 LOD4 DEFN 4 024 14 0
1 *Q MRW 4 OT+10 024 15 0
1 BCS *+3-LOD4+100,9 024 16 0
1 *Z25 STP *,2418 024 17 0
1 *Z26 BUN *,J+-LOD4+100 024 18 0
1 LDR A+-LOD4+100 024 19 0
1 STR MLOAD-1 024 20 0
1 BUN MLOAD-1 024 21 0
1 *A MNC 4 0,OT,4 024 22 0
1 *J CNST $ 024 23 0
1 024 24 0
1 $ 024 25 0
1 LOCN *+10 SPACE FOR PATCHES 024 26 0
1 REM 024 27 0
1 REM 024 28 0
1 GET CAD MEM 024 29 0
1 ADD +7 024 30 0
1 CFA +XZERO-1,04 024 31 0
1 BCH A+ IS THERE ENOUGH ROOM 024 32 0
1 CAD MEM YES- USE PRESENT SETTING OF MEM 024 33 0
1 GETX BUN * 024 34 0
1 *A CAD +700 IF NOT SET IT TO 0800 024 35 0
1 STA MEM AND DONT BOTHER CHECKING ANY MORE 024 36 0
1 BUN GETX 024 37 0
1 REM 024 38 0
1 REM 024 39 0
1 SBMUD F244 0,SBMUD,0 INVERTED DUMP STACK 024 40 0
1 FIXUP F424 FIXUP,0,0 FIX-UPS FOR CALLS OF EXT PROGRAMS FROM 024 41 0
1 REM WITHIN SEGMENTS 024 42 0
1 NN CNST 99 CONSTANT 99 024 43 0
1 LCHOD CNST 0 024 44 0
1 HALT F424 757,0,7250 O K HALT 024 45 0
1 VECTR CNST 0,0,0,0,0,0 STORAGE VECTOR USED BY THE MONSTER 024 46 0
1 SRERR CNST 21662454159 SEARCH ERROR 024 47 0
1 CNST 24348004559 024 48 0
1 CNST 25956590202 024 49 0
1 CSERR CNST 21643484543 CHECK SUM ERROR 024 50 0
1 CNST 25200626454 024 51 0
1 CNST 20045595956 024 52 0
1 CNST 25902020202 024 53 0
1 ERFRM FBGR PRINT,9(T5A),75B 024 54 0
1 SREF CNST 0 SYMBOL REFERENCE ADDRESS - PRESENT ITEM 024 55 0
1 SL CNST 0 SYMBOL LENGTH 024 56 0
1 HOLD CNST 0 SHORT TERM STORAGE LOCATION 024 57 0
1 THROW CNST 0 DITTO 024 58 0
1 NINES CNST 9999999999,9999999999 LARGEST POSSIBLE SYMBOL 024 59 0
1 REM ALL 301 STACKS USED BY THE MONSTER ARE INITIALIZED WITH 024 60 0
1 REM THIS SYMBOL SO SORTING CAN BE DONE 024 61 0
1 IDEX CNST 0 LEVEL OF PROCEDURE 024 62 0
1 DIM CNST 0 NUMBER OF DIMENSIONS 024 63 0
1 J CNST 0 COUNTER USED IN CONNECTION WITH LBRT 024 64 0
1 TST CNST 0 COUNT OF ROUTINES ASSIGNED INDIRECTLY 024 65 0
1 ADDIT CNST 0 024 66 0
1 MADIT CNST 0 024 67 0
1 DIMS LOCN *+20 DIMENSION LIST 024 68 0
1 LX LOCN *+50 024 69 0
1 MEM HLT *+302 NEXT FREE LOCATION 024 70 0
1 TBL F244 0,NINES,0 SORTED STACKS SET UP BY THE MONSTER 024 71 0
1 LOCN 4000 024 72 0
1 MRW 2,4 024 73 0
1 *A MPF 2,0 024 74 0
1 DFL A--1,01,1 024 75 0
1 BRP A- 024 76 0
1 MPF 2,5 024 77 0
1 MOW 0000,2,3 024 78 0
1 MOW 700,2,9 024 79 0
1 MOW 1600,2,0 024 80 0
1 MOW 2600,2,0 024 81 0
1 MRW 2 024 82 0
1 F424 2222,00,2222 024 83 0
1 LOCN LX 024 84 0
1 FINI 2 024 85 0
Reference in New Issue View Git Blame Copy Permalink