github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-01-13 15:18:24 +00:00
Code Issues Releases Wiki Activity

Commit BAC-Assembler Pass 1 WIP, proofing corrections to BALGOL-Main.baca.

Browse Source
This commit is contained in:
Paul Kimpel 2016-12-23 16:21:28 -08:00
parent bf98f188a5
commit 3195f857dc
2 changed files with 980 additions and 128 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

138
software/BALGOL/BALGOL-Main.baca
View File

@ -1,5 +1,5 @@
ASMBL 1
REORD 1.00
ASMBL 1
REORD 1.00
THE BURROUGHS ALGEBRAIC COMPILER
ERDWINN, MERNER, CROWDER, SPERONI, KNUTH
@ -36,7 +36,7 @@
43 0 0019 BRP A-
44 0 0020 BUN 46
45 0 0021 *E CNST $$CHECK SUM ERROR$$
46 0 0022 LOCN 46
46 0 0025 LOCN 46
47 0 0046 *D LDB Z+ READ LAST BLOCK INTO THE
48 0 0047 MNC 5 0,T,2 END OF MEMORY
49 0 0048 LDB *+1 (THIS HOLDS PATCHES AND
@ -277,7 +277,7 @@
02 84 0 0279 FV F424 FV,0,0 FOR VARIABLE
02 85 0 0280 MULS F424 MULS,0,0 DIMENSIONS
002 86 0 0281 MODE F424 MODE,0,NRMMD MODE TRANSLATOR IS IN (INITIALLY NORMAL)
02 87 0 0282 MULS F424 MULT,0,0 MULS STACK BACKWARDS
02 87 0 0282 MULT F424 MULT,0,0 MULS STACK BACKWARDS
02 88 0 0283 OPRND F424 OPRND,0,0 OPERANDS WAITING TO BE USED
02 89 0 0284 PAREF F424 PAREF,0,0 REFERENCE TO PROCEDURE PARAMETERS
02 90 0 0285 PR1 F424 PR3,0,0 PREFIXES OUTSIDE OF PROCEDURES
@ -315,13 +315,13 @@
03 22 0 0314 SOLD F2440 11,0024,1 21 / DIVISION
03 23 0 0315 CRP F2443 00,GCRP,1 22 PROCEDURE
03 24 0 0316 KOMA F2446 00,COMMA,5 23 , COMMA
03 25 0 0317 LAPR F2440 00,0000,2 24 ( LEFT PARENTHESIS
03 25 0 0317 LPAR F2440 00,0000,2 24 ( LEFT PARENTHESIS
03 26 0 0318 CRQ F2443 00,GCRQ,1 25 PROCEDURE
03 27 0 0319 CRR F2441 40,GCRR,1 26 ARRAY
03 28 0 0320 CRS F2443 00,GCRS,1 27 SUBROUTINE
03 29 0 0321 CRT F2442 00,GCRT,1 28 GO TO
03 30 0 0322 CRU F2442 00,GCRU,1 29 UNTIL
03 31 0 0323 CRV F2443 00,FCRV,1 30 SEGMENT
03 31 0 0323 CRV F2443 00,GCRV,1 30 SEGMENT
03 32 0 0324 CRW F2443 00,GCRW,1 31 OTHERWISE
03 33 0 0325 CRX F2443 00,GCRX,1 32 FOR
03 34 0 0326 SBST F2446 00,EQUL,5 33 = ASSIGNMENT
@ -330,7 +330,7 @@
03 37 0 0329 TEMP3 CNST 0 NOT USED
03 38 0 0330 BREF F2445 00,0000,1 37 BACKWARD REFERENCE
03 39 0 0331 TOP CNST 0 NOT USED
03 40 0 0332 CWNED F2446 00,END,1 39 END
03 40 0 0332 CWEND F2446 00,END,1 39 END
03 41 0 0333 CWNDX F2446 00,NDXMD,4 40 ARRAY CALL
03 42 0 0334 CWARD F2446 00,ARDEC,1 41 ARRAY DECLARATION
03 43 0 0335 CWEMP F2446 00,EMPTY,5 42 EMPTY SUBSCRIPT
@ -343,11 +343,11 @@
03 50 0 0342 RLEQ F2448 01,0012,1 49 LEQ
03 51 0 0343 OPMAX F2440 00,0100,1 50 MAX
03 52 0 0344 OPMIN F2440 00,0112,1 51 MIN
03 53 0 0345 CROY F2443 22,GCROW,1 52 TRACE
03 53 0 0345 CROY F2443 22,GCROY,1 52 TRACE
VARIOUS MODES
03 56 0 0346 ARAMD F244 0,ARACM,ARRAY ARRAY DECLARATION MODE
03 57 0 0347 ARFMD F244 0,ARFCM,ARFGM ARRAY-FILL MODE
03 57 0 0347 ARFMD F244 0,ARFCM,ARFCM ARRAY-FILL MODE
03 58 0 0348 DCLMD DEFN * TYPE DECLARATION MODES
03 59 0 0348 INTMD F244 0,DCLCM,INTG INTEGER DECLARATION MODE
03 60 0 0349 FLTMD F244 0,DCLCM,FLTG FLOATING DECLARATION MODE
@ -392,7 +392,7 @@
03 99 0 0390 BOOGN F4246 7004,0,INTMD
04 00 0 0391 CNST $BOOLEAN$
04 01 0 0393 COMGN F4246 7001,0,COMNT
04 02 0 3094 CNST $COMMENT$
04 02 0 0394 CNST $COMMENT$
04 03 0 0396 LEQGN F4248 7001,01,12
04 04 0 0397 CNST $LEQ$
04 05 0 0398 FORMG F4246 7004,0,FRMMD
@ -530,7 +530,7 @@
05 37 0 0541 F4248 8888,30,R23 *N
05 38 0 0542 F2441 10,FONE,TABSC+82 *) ILLEGAL
05 39 0 0543 F4248 8888,30,R8 *(
05 40 0 0544 TOGN F4246 7001,0,T0 *. ILLEGAL
05 40 0 0544 TOGN F4246 7001,0,TO *. ILLEGAL
05 41 0 0545 CNST $TO$ *$ ILLEGAL
05 42 0 0546 BEGGN F4240 7002,0,0 *, ILLEGAL
05 43 0 0547 CNST $BEGIN$ ** ILLEGAL
@ -854,7 +854,7 @@
08 61 0 0847 SCN10 CAD CWEMP
08 62 0 0848 SCN5 STP SCAN
08 63 0 0849 BUN EXCTR GO TO EXECUTOR CO-ROUTINE.
08 64 0 0850 SCNI LDR S2
08 64 0 0850 SCN1 LDR S2
08 65 0 0851 STR S1 MOVE SCANNING WINDOWS TO RIGHT
08 66 0 0852 LDR K2 ACROSS SOURCE STRING
08 67 0 0853 STR K1
@ -953,7 +953,7 @@
009 60 0 0939 IFL - 0,11,5 THE PRESENT SYMBOL IS A PARAMETRIC ARRAY
009 61 0 0940 STP FRMEX SEND ITS NAME AND AN ARRAY-PARAMETER
09 62 0 0941 BUN FRME OPERATOR TO THE EXECUTOR
09 63 0 0942 CAD VWAPM
09 63 0 0942 CAD CWAPM
09 64 0 0943 BUN SCN5
09 65 0 0944 *A IFL - 0,12,10
09 66 0 0945 DLB L,64,0 THE PRESENT SYMBOL IS THE NAME OF THE
@ -973,7 +973,7 @@
009 80 0 0959 STP FRMEX A PARAMETRIC FUNCTION OR PROCEDURE
09 81 0 0960 BUN FRME
09 82 0 0961 *E LDR SC7 PASS CHARACTERS UNTIL MATCHING RIGHT
09 83 0 0962 BUN PRNCT PARENTHESIS IS FOUND AND GO TO SCN7
09 83 0 0962 BUN PRCNT PARENTHESIS IS FOUND AND GO TO SCN7
09 84 0 0963 *D CFR FUNMD,64
09 85 0 0964 BCU F+
009 86 0 0965 BSA F+,1 IF CALLING A FUNCTION,CHECK $ COUNT
@ -1083,7 +1083,7 @@
010 90 0 1067 LDR *+1
010 91 0 1068 LDB PR3
010 92 0 1069 *C STR TEMP2
010 93 0 1070 STB TEMPI
010 93 0 1070 STB TEMP1
010 94 0 1071 IBB B+,9999
010 95 0 1072 LDR - 1
010 96 0 1073 STR TEMP
@ -1120,7 +1120,7 @@
011 29 0 1099 R6 STP WINDX N) N$ N, NP
011 30 0 1100 BUN WINDI,R3
011 30 0 1100 BUN WIND1,R3
011 31 0 1101 BUN SCN1 FINISH WORKING ON CONSTANT
011 32 0 1102 NTAG CNST 20000000010
@ -1220,7 +1220,7 @@
012 29 0 1175 R19 STP WINDX N(
012 30 0 1176 BUN FIND1,R2 PROCESS CONSTANT
012 30 0 1176 BUN WIND1,R2 PROCESS CONSTANT
012 31 0 1177 R19P CAD DOT IF NOT A LABEL, INSERT IMPLIED MULT
012 32 0 1178 BUN SCN5
@ -1298,21 +1298,21 @@
013 05 0 1242 CLL SW3
013 06 0 1243 STA SYMBL,01
013 07 0 1244 BUN SCN1
013 08 0
013 10 0 1245 R25 STP OPRTX,SCN10 (, ,, ,) ()
013 11 0 1246 BUN OPRT INSERT THE EMPTY OPERATOR
013 14 0 1247 R26 STP OPRTX,*+2 ($ $$
013 15 0 1247 BUN OPRT
013 16 0 1248 LDB FUNS
013 17 0 1249 IFL - 0,12,10 INCREASE THE SEMICOLON COUNT
013 18 0 1250 CAD - 0
013 19 0 1251 IFL OMCRM,00,I
013 20 0 1252 BSA SCNI,2
013 21 0 1253 IFL TAG,00,1
013 22 0 1254 BUN SCN1
013 15 0 1248 BUN OPRT
013 16 0 1249 LDB FUNS
013 17 0 1250 IFL - 0,12,10 INCREASE THE SEMICOLON COUNT
013 18 0 1251 CAD - 0
013 19 0 1252 IFL OMCRN,00,I
013 20 0 1253 BSA SCN1,2
013 21 0 1254 IFL TAG,00,1
013 22 0 1255 BUN SCN1
013 25 0 1256 R27 DEFN SCN1 $)
@ -1703,7 +1703,7 @@
017 10 0 1614 BUN 4 9999,IMAGE
017 11 0 1615 CLL SCNCT
017 12 0 1616 STB LCCT,62
017 13 0 1617 IFL SCCT,62,1
017 13 0 1617 IFL LCCT,62,1
017 14 0 1618 CCBEG IFL SCNCT,00,02 START IN COLUMN 2
017 15 0 1619 BUN INP1
017 16 0 1620 *E IFL SCNCT,05,10 HIGH SPEED IGNORING OF SUCCESSIVE
@ -2123,8 +2123,8 @@
021 29 0 1980 *C CLL DELTA
021 30 0 1981 IFL DELTA,00,3
021 31 0 1982 BUN NORM
021 32 0
021 33 0
021 34 0 1983 SEMI BSA C+,2 SEMICOLON GENERATOR.
021 35 0 1984 LDB OMCRN CHECKS FIRST FOR LABEL MODE.
021 36 0 1985 CLL OMCRN EXIT IF EXPECTING A SEMICOLON
@ -2259,9 +2259,9 @@
022 65 0 2096 *B CLL DESCR
022 66 0 2097 STP PASSX
022 67 0 2098 BUN PASS
022 68 0 2099 BFA L-,02.24 LEFT PARENTHESIS
022 68 0 2099 BFA L-,02,24 LEFT PARENTHESIS
022 69 0 2100 BFA N+,91,8 NUMERIC
022 70 0 2101 BFA D+,02.03 DOT
022 70 0 2101 BFA D+,02,03 DOT
022 71 0 2102 BFA C+,02,23 COMMA
022 72 0 2103 BFA S+,02,14 STAR
022 73 0 2104 BFA R+,02,04 RIGHT PARENTHESIS
@ -2321,7 +2321,7 @@
023 27 0 2158 BUN R-
023 30 0 2159 SGMT CAA PREF SEGMENT BEGINNING.
023 30 0 2159 SGMT CAA PREV SEGMENT BEGINNING.
023 31 0 2160 ADA BUF+98 IF BUFFER NOT EMPTY, DUMP IT
023 32 0 2161 BZA *+3
023 33 0 2162 STP WRITX
@ -2618,8 +2618,8 @@
026 24 0 2431 STP LIBRX PUT MONITOR SUBROUTINE INTO PROGRAM
026 25 0 2432 BUN LIBRF
026 26 0 2433 BUN MONT+1
026 27 0
026 28 0
026 29 0 2434 SUBR IFL TAG,00,1 SUBROUTINE
026 30 0 2435 DFL NU,62,29
026 31 0 2436 IFL DELTA,00,4
@ -2649,7 +2649,7 @@
026 55 0 2458 DLB V2,64,0 IS IT AN EXT STATEMENT OR EXT PROCEDURE
026 56 0 2459 DBB A+,PRCMD
026 57 0 2460 STP TRTGX EXTERNAL STATEMENT
026 58 0 2461 BUN TRTGZ DEFINE IT
026 58 0 2461 BUN TRTG2 DEFINE IT
026 59 0 2462 CAD BUF RECORD ITS SEGMENT NUMBER
026 60 0 2463 DLB L,64,0 (THE OVERLAY WILL FIX UP ANY
026 61 0 2464 DFL - 0,12,20
@ -2756,7 +2756,7 @@
027 65 0 2539 SEMIC STP COMPLX SEMICOLON IS THOUGHT OF A )(
027 65 0 2539 SEMIC STP CMPLX SEMICOLON IS THOUGHT OF A )(
027 66 0 2540 BUN RIGHT
027 67 0 2541 STP CMPLX THIS INNOCENT-LOOKING THING MAY CAUSE
027 68 0 2542 BUN LEFT ALL SORTS OF THINGS TO HAPPEN.
@ -2926,7 +2926,7 @@
029 32 0 2682 CNST 34652540000 (EXTRA RIGHT PARENTHESIS)
029 33 0 2683 *E CFA LPAR,67
029 34 0 2684 BCE B+ DO ALL OPERATIONS OUTSTANDING SINCE
029 35 0 2685 STP BENRX LAST LEFT PARENTHESIS
029 35 0 2685 STP GENRX LAST LEFT PARENTHESIS
029 36 0 2686 BUN GENR
029 37 0 2687 BUN RIGHT
029 38 0 2688 *B STP DECNX CHANGE PARENTHESIS COUNT
@ -2989,7 +2989,7 @@
029 95 0 2743 STA G
029 96 0 2744 LDR XI
029 97 0 2745 BZR A+
029 98 0 2746 CLL AI OMIT SLT10 INSTRUCTION, IF STA OR SRT10
029 98 0 2746 CLL XI OMIT SLT10 INSTRUCTION, IF STA OR SRT10
029 99 0 2747 BFA B+,62,40 FOLLOWS
030 00 0 2748 CFA SRT10,07
030 01 0 2749 BCU A+
@ -3091,7 +3091,7 @@
030 98 0 2844 LASMB LDB INSTR LITTLE ASSEMBLER.
030 99 0 2845 LDR - V
031 00 0 2846 DLB - B,64,0 ASSEMBLE AN OPERAND FOR ME
031 00 0 2846 DLB - V,64,0 ASSEMBLE AN OPERAND FOR ME
031 01 0 2847 CAD - 0
031 02 0 2848 STA VIMAG WHAT KIND OF AN OPERAND
031 03 0 2849 BFR T3,11,3 A TEMP STORAGE
@ -3172,7 +3172,7 @@
031 78 0 2921 LDR INSTR LOCATION LOCN AND INCREMENT LOCN
031 79 0 2922 WRIT3 STA WRTF,04 WRIT3 ENTRY - LOCATION IS IN RA(04)
031 80 0 2923 SUB PREV AND INSTRUCTION IS IN REGISTER R
031 81 0 2924 LDB CNTR1
031 81 0 2924 LDB CNTRI
031 82 0 2925 BFA E+,04,0
031 83 0 2926 SUB XONE+1 DOES THIS LOCATION EQUAL THE PREVIOUS ONE
031 84 0 2927 BFA F+,04,0 (IF SO WE WILL ERASE THE PREVIOUS ONE)
@ -3211,11 +3211,11 @@
032 17 0 2960 LDB C-
032 18 0 2961 RTF BUF+1,98
032 19 0 2962 WRITX BUN *
032200
032210
032220
032 23 0 2963 GENXK STB V1,12 MARK V1 AS IN A-REGISTER
032 24 0 2964 GENXB CAD V1 V1 = RESULT
032 24 0 2964 GENXV CAD V1 V1 = RESULT
032 25 0 2965 GENXX STP INSX,OPRND PUT RESULT OF SOME GENERATED QUANTITY
032 26 0 2966 BUN INS IN OPERAND STACK AND RECORD IN
032 27 0 2967 LDB OPRND SER THE POSITION WHERE STORED
@ -3371,7 +3371,7 @@
033 77 0 3110 IBB LINK-1,EXPF
033 78 0 3111 LDB D- COMPUTE TYPE OF RESULT
033 79 0 3112 CAD - EXPA
033 80 0 3113 EXPA BUN GENX,0100
033 80 0 3113 EXPA BUN GENXX,0100
033 81 0 3114 *Q CAA V2
033 82 0 3115 STA V2 THE SQUARE CASE
033 83 0 3116 STA V1
@ -3409,7 +3409,7 @@
034 17 0 3144 GHYPH LDB OPRND MINUS OPERATOR
034 18 0 3145 EX43 CNST 10013110000 SIMPLY REVERSE SIGN DIGIT OF
034 18 0 3145 EX42 CNST 10013110000 SIMPLY REVERSE SIGN DIGIT OF
034 19 0 3146 STA - 0 NEXT ITEM IN OPERAND STACK
034 20 0 3147 BUN GENRX
@ -3476,7 +3476,7 @@
034 82 0 3200 BUN GENXV
034 85 0 3201 GFRWF STP FXUPX FIX UP FORWARD REFERENCE
034 85 0 3201 GFWRF STP FXUPX FIX UP FORWARD REFERENCE
034 86 0 3202 BUN FXUP
034 87 0 3203 BUN GENRX
@ -3568,7 +3568,7 @@
035 74 0 3286 LDR V2 SEVERAL CASES TO CONSIDER
035 75 0 3287 STB V1,23
035 76 0 3288 IFL V1,21,3
035 77 0 3289 DBB K=,1 CLA,CLL V2 IN FOR STATEMENT
035 77 0 3289 DBB K-,1 CLA,CLL V2 IN FOR STATEMENT
035 78 0 3290 SLA 6
035 79 0 3291 BFR K-,11,8 CLA IN PROCEDURE OR FUNCTION CASE
035 80 0 3292 SLA 6
@ -3581,7 +3581,7 @@
035 90 0 3298 GCRC STP PRTRX
035 90 0 3298 GCRC STP PMTRX
035 91 0 3299 BUN PMTR ASSEMBLE THE PARAMETER-OBTAINING INSTRUC-
035 92 0 3300 LDB OPRND TION
035 93 0 3301 CAD - 0
@ -3701,7 +3701,7 @@
037 07 0 3405 GCRH STP XSTX MAKE V1 INTEGRAL,IN MEMORY
037 08 0 3406 BUN XST
037 09 0 3407 CAD LBCV1 GENERATE LBC V1
037 10 0 3408 BUN GENX
037 10 0 3408 BUN GENXY
037 13 0 3409 GCRI CAA G3 GENERATE LSA 9,BUN IOPUS
@ -3840,7 +3840,7 @@
038 46 0 3530 STR - 0
038 47 0 3531 STA PAREF,04
038 48 0 3532 BSA G+,1 (THE FIRST PARAMETER MAY ALREADY BE
038 49 0 3533 EXT CUL2 IN REGISTER A)
038 49 0 3533 EXT BCUL2 IN REGISTER A)
038 50 0 3534 SUB IRSTP CAD PARAMETER
038 51 0 3535 STA VEE,64
038 52 0 3536 STP ASMBX
@ -3882,7 +3882,7 @@
038 88 0 3570 BFR D+,04,00 IF CALL BY NAME PARAMETERS HAVE
038 89 0 3571 CAD LOCN APPEARED, ASEMBLE BUN INSTRUCTION
038 90 0 3572 STA PLOC WHICH WILL GO TO THE INITIALIZATION PART
038 91 0 3573 STP AXMBX
038 91 0 3573 STP ASMBX
038 92 0 3574 BUN ASMBL,BUNZ
038 93 0 3575 *D IFL DELTA,04,4
038 94 0 3576 BUN GENRX
@ -3936,9 +3936,9 @@
039 44 0 3608 GCRY CAD V1 MAKE SURE A SUBSCRIPT IS FIXED POINT
039 45 0 3609 STP FIXES
039 45 0 3609 STP FIXEX
039 46 0 3610 BFA FIXER,21,0
039 47 0 3611 ` BUN GENXV
039 47 0 3611 BUN GENXV
039 50 0 3612 GCRZ STP CADX STOP
@ -3962,15 +3962,15 @@
039 68 0 3627 JCROY LDB *
039 69 0 3628 STA - 0,44
039 70 0 3629 BUN GENRX
039 71 0
039 72 0
039 73 0 3630 OBTN1 STP REMX,OPRND
039 74 0 3631 BUN REM,*+2 GET TOP OF OPERAND STACK
039 75 0 3632 BUN E+ AND PLACE IT IN V1
039 76 0 3633 STA V1
039 77 0 3634 BUN A+
039 78 0
039 79 0
039 80 0 3635 OBTN2 STP REMX,OPRND GET TOP OF OPERAND STACK AND PLACE IT IN
039 81 0 3636 BUN REM,C+ V2
039 82 0 3637 *E STP WEMX
@ -3981,8 +3981,8 @@
039 87 0 3642 BUN OBTNX REMOVED, SET SER TO ZERO
039 88 0 3643 *B CLL SER
039 89 0 3644 OBTNX BUN *
039 90 0
039 91 0
039 92 0 3645 PMTR LDR KAPPA SELECTIVELY BRING PARAMETER INTO A REG.
039 93 0 3646 BZR A+ HAVE EMPTY SUBSCRIPTS APPEARED
039 94 0 3647 CLL KAPPA
@ -4020,7 +4020,7 @@
040 26 0 3676 STA V1,64
040 27 0 3677 IFL V1,11,3
040 28 0 3678 CAD STAT1
040 29 0 3679 BUN ASYBY
040 29 0 3679 BUN ASMBY
040 30 0 3680 ACCX DEFN ASMBX
040 31 0 3680 ACC3 LDR V1 ACC3.. FREE THE A REGISTER
040 32 0 3681 BFR C-,11,0 IF V1 IS IN A, DO ACC1
@ -4077,14 +4077,14 @@
040 83 0 3726 BFA A+,11,2
040 84 0 3727 STP CADX
040 85 0 3728 BUN CAD1 CHANGE V1 TO INTEGER FORM
040 86 0 3729 BFA FIXES,21,1
040 86 0 3729 BFA FIXEX,21,1
040 87 0 3730 DLB FIXGN,64,00
040 88 0 3731 STP LINKX LINK TO FIX ROUTINE
040 89 0 3732 BUN LINK1
040 90 0 3733 IFL V1,21,1
040 91 0 3734 CAD V1
040 92 0 3735 FIXEX BUN *
040 93 0 3736 *A BFA FIXES,21,1 IF V1 IS A CONSTANT,
040 93 0 3736 *A BFA FIXEX,21,1 IF V1 IS A CONSTANT,
040 94 0 3737 STP FIXCX CHANGE IT WITH FIXCN
040 95 0 3738 BUN FIXCN
040 96 0 3739 STA V1,00
@ -4343,7 +4343,7 @@
043 49 0 3982 BUN WEM,*+2
043 50 0 3983 CNST 30159610000 IMPROPER BOOLEAN OPERAND
043 51 0 3984 *H LDB TEMP2
043 52 0 3985 *K CAD - GEAB2
043 52 0 3985 *K CAD - GTAB2
043 53 0 3986 BUN I+
043 54 0 3987 *A CAD J INDEX INTO APPROPRIATE GTAB TABLE
043 55 0 3988 ADD J
@ -4394,7 +4394,7 @@
044 00 0 4027 SLT 2
044 01 0 4028 STR A+
044 02 0 4029 BFA C+,02,00
044 03 0 4030 BFA ACCI,02,32 POSSIBLY GENERATE A STORE INTO
044 03 0 4030 BFA ACC1,02,32 POSSIBLY GENERATE A STORE INTO
044 04 0 4031 BFA ACC2,02,33 TEMP STORAGE
044 05 0 4032 STA B-,04
044 06 0 4033 LDB B-
@ -4407,7 +4407,7 @@
044 13 0 4040 STR ACTBL+5,21
044 14 0 4041 SRS 10
044 15 0 4042 STA B-,04 SET ACCUM TO THE CURRENT RESULT
044 16 0 4043 LDB -
044 16 0 4043 LDB -
044 17 0 4044 CAD - ACTBL-1
044 18 0 4045 STA ACCUM
044 19 0 4046 INTRX BUN *
@ -4434,7 +4434,7 @@
044 40 0 4063 BUN LIBRF
044 43 0 4064 FXUP LDR LOCK COMPILE TO SET A PREVIOUS FORWARD
044 43 0 4064 FXUP LDR LOCN COMPILE TO SET A PREVIOUS FORWARD
044 44 0 4065 STA DESCR
044 45 0 4066 SRT 4
044 46 0 4067 STR DESCR,04
@ -4465,7 +4465,7 @@
044 71 0 4092 *A DLB CNTRF,04,1
044 72 0 4093 STR - BUF+3
044 73 0 4094 BUN WRIT6
044 74 0 4095 FXUPX DEFN WRTX
044 74 0 4095 FXUPX DEFN WRITX
044 75 0 4095 PREV DEFN BUF+99
@ -4487,7 +4487,7 @@
044 95 0 4109 LOC DEFN *
044 96 0 4109 LOC *+7
044 96 0 4109 LOCN *+7
044 97 0 4116 SCRTB F244 08,REAL,0 SCRAMBLE TABLE FOR IDENTIFIERS
044 98 0 4117 HLT 0
044 99 0 4118 HLT 0 THIS TABLE IS INITIALIZED TO

970
software/tools/BAC-Assembler.html
View File

File diff suppressed because it is too large Load Diff