diff --git a/software/BALGOL/BALGOL-Main.baca b/software/BALGOL/BALGOL-Main.baca index d86b698..50015d8 100644 --- a/software/BALGOL/BALGOL-Main.baca +++ b/software/BALGOL/BALGOL-Main.baca @@ -1,5 +1,3 @@ - Addr Sym Op - Address Comments - ASMBL 1 REORD 1.00 @@ -57,7 +55,7 @@ TAPE STORING ROUTINE. 63 0 0060 STORE MRW 4 T 64 0 0061 *B LDB *+1 REWRITES COMPILER FROM CORE - 65 0 0062 CLA 998 IN THE FORM REQUIRED BY LOADING ROUTINE. +000 65 0 0062 CLA 998 IN THE FORM REQUIRED BY LOADING ROUTINE. 66 0 0063 *A ADD - 0 67 0 0064 DBB *-1,1 68 0 0065 LDB A- @@ -94,7 +92,7 @@ SECTION A. BIG TABLES. - 01 02 0 0096 LOCN 102 DICTIONARY OF ALL WORDS USED IN ERROR MESSAGES +001 02 0 0096 LOCN 102 DICTIONARY OF ALL WORDS USED IN ERROR MESSAGES 01 03 0 0102 DICT CNST 34954575956 01 IMPROPER 01 04 0 0103 CNST $PER$ 01 05 0 0104 CNST 34348415941 03 CHARACTER @@ -265,7 +263,7 @@ 02 70 0 0267 TAG HLT 0 IDENTIFIER IS A LABEL 02 71 0 0268 XI HLT 0 LAST INSTRUCTION ASSEMBLED WAS SLT10 02 72 0 0269 LAMDA HLT 0 OTHERWISE HAS APPEARED IN EITHER IF CASE - 02 73 0 0270 PI HLT 0 PUT FORWARD REFERENCE OPERATORS ON EXEC STACK +002 73 0 0270 PI HLT 0 PUT FORWARD REFERENCE OPERATORS ON EXEC STACK 02 74 0 0271 IOTA HLT 0 ARRAY NOT YET DECLARED 02 75 0 0272 OMCRN HLT 0 IGNORE NEXT SEMICOLON @@ -278,7 +276,7 @@ 02 83 0 0278 EXEC F424 EXEC,0,0 FORWARD REFERENCES TO FOR LOOP 02 84 0 0279 FV F424 FV,0,0 FOR VARIABLE 02 85 0 0280 MULS F424 MULS,0,0 DIMENSIONS - 02 86 0 0281 MODE F424 MODE,0,NRMMD MODE TRANSLATOR IS IN (INITIALLY NORMAL) +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 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 @@ -353,20 +351,20 @@ 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 - 03 61 0 0350 FORMD F244 1,FORCM,FOR FOR MODE (PROCESSING ITERATION LIST) +003 61 0 0350 FORMD F244 1,FORCM,FOR FOR MODE (PROCESSING ITERATION LIST) 03 62 0 0351 FRMMD F2449 0,FRMCM,FRMT FORMAT DECLARATION MODE - 03 63 0 0352 FUNMD F244 0,FUNCM,COLON FUNCTION MODE (SETTING UP PARAMETERS) +003 63 0 0352 FUNMD F244 0,FUNCM,COLON FUNCTION MODE (SETTING UP PARAMETERS) 03 64 0 0353 INNMD F2449 1,PUTCM,INPUT INPUT DECLARATION MODE 03 65 0 0354 MAXMD F244 0,MAXCM,NORM MAX MODE 03 66 0 0355 MINMD F244 0,MINCM,NORM MIN MODE 03 67 0 0356 MODMD F244 0,MODCM,NORM MOD MODE - 03 68 0 0357 NDXMD F244 0,NDXCM,INDEX INDEX MODE (PROCESSING SUBSCRIPTS) +003 68 0 0357 NDXMD F244 0,NDXCM,INDEX INDEX MODE (PROCESSING SUBSCRIPTS) 03 69 0 0358 NRMMD F2441 10,0,0 NORMAL MODE 03 70 0 0359 OUTMD F2449 1,PUTCM,OUTPT OUTPUT DECLARATION MODE 03 71 0 0360 PRCMD F244 0,PRCCM,PROCD PROCEDURE DECLARATION MODE 03 72 0 0361 SWMD F244 0,SWCM,SWTCH SWITCH MODE 03 73 0 0362 FNCMD F244 0,PRCCM,FUNC FUNCTION DECLARATION MODE - 03 74 0 0363 LABMD F2442 0,LABCM,LABEL LABEL MODE (OUTSIDE OF I-O,FORMAT MODES) +003 74 0 0363 LABMD F2442 0,LABCM,LABEL LABEL MODE (OUTSIDE OF I-O,FORMAT MODES) 03 75 0 0364 EXTMD F2448 1,FRMCM,EXTRN EXTERNAL MODE 03 76 0 0365 MEMMD F2447 1,ARACM,MEMST TRACE MODE @@ -374,7 +372,7 @@ 03 79 0 0366 SUBGN F4246 7001,0,SUBR 03 80 0 0367 CNST $SUBROUTINE$ 03 81 0 0369 UNTGN F4246 7001,0,UNTIL (DO A SLA 4 ON THESE CODES) - 03 82 0 0370 CNST $UNTIL$ TO GET THEIR TRUE SIGNIFICANCE) +003 82 0 0370 CNST $UNTIL$ TO GET THEIR TRUE SIGNIFICANCE) 03 83 0 0371 INPGN F4246 7004,0,INNMD 03 84 0 0372 CNST $INPUT$ 03 85 0 0373 RETGN F4246 7001,0,RETN @@ -460,8 +458,8 @@ 04 66 0 0470 TABSC F4248 8888,30,R1 AA 04 67 0 0471 F4248 8888,30,R1 AN TABLE OF ADMISSIBLE - 04 68 0 0472 F4248 8888,30,R3 A) CHARACTER PAIRS AND - 04 69 0 0473 F4248 8888,30,R2 A( CORRESPONDING R-ROUTINES +004 68 0 0472 F4248 8888,30,R3 A) CHARACTER PAIRS AND +004 69 0 0473 F4248 8888,30,R2 A( CORRESPONDING R-ROUTINES 04 70 0 0474 F4248 8888,30,R17 A, IN SCANNER 04 71 0 0475 F4248 8888,30,R3 A$ 04 72 0 0476 F4248 8888,30,R3 A, @@ -469,7 +467,7 @@ 04 74 0 0478 F4248 8888,30,R11 A- 04 75 0 0479 F4248 8888,30,R3K AP A=ALPHA 04 76 0 0480 F4248 8888,30,R4 NA N=NUMBER - 04 77 0 0481 F4248 8888,30,R5 NN P=PLUS,DIVIDE,OR EQUALS +004 77 0 0481 F4248 8888,30,R5 NN P=PLUS,DIVIDE,OR EQUALS 04 78 0 0482 F4248 8888,30,R6 N) 04 79 0 0483 F4248 8888,30,R19 N( 04 80 0 0484 F4248 8888,30,R20 N. @@ -564,14 +562,14 @@ 05 69 0 0570 CADV1 CNST 00000100001 01 05 70 0 0571 CADV2 CNST 00000100002 02 05 71 0 0572 CADX1 CNST 00000100004 03 - 05 72 0 0573 CADF1 CNST 00000100005 04 + 5 72 0 0573 CADF1 CNST 00000100005 04 05 73 0 0574 CADL1 CNST 60000100001 05 05 74 0 0575 CSUV1 CNST 00000110001 06 SIGN OF -,1, OR 3.. 05 75 0 0576 CSUV2 CNST 00000110002 07 ADDRESS I IS TO BE REPLACED BY 05 76 0 0577 ADDV1 CNST 00000120001 08 V(I) AND IF V(I) IS AN 05 77 0 0578 ADDV2 CNST 00000120002 09 ARRAY WE MUST ALSO COMPUTE 05 78 0 0579 ADDL1 CNST 60000120001 10 ITS SUBSCRIPT AND LOAD B - 05 79 0 0580 FADV1 CNST 00000220001 11 + 5 79 0 0580 FADV1 CNST 00000220001 11 05 80 0 0581 FADV2 CNST 00000220002 12 05 81 0 0582 SUBV1 CNST 00000130001 13 SIGN OF 1.. DONT RELEASE 05 82 0 0583 SUBV2 CNST 00000130002 14 TEMPORARY STORAGE CELL. @@ -591,50 +589,50 @@ 05 96 0 0597 EXTV1 CNST 00000170001 28 SIGN OF 6.. ADDRESS IS RELATIVE 05 97 0 0598 EXTV2 CNST 00000170002 29 TO LOCATION 05 98 0 0599 STAV1 CNST 00000400001 30 - 05 99 0 0600 STAV2 CNST 00000400002 31 + 5 99 0 0600 STAV2 CNST 00000400002 31 06 00 0 0601 STAT1 CNST 10000400001 32 SIGN OF 7,8, OR 9.. 06 01 0 0602 STAT2 CNST 10000400002 33 ADDRESS IS BLANKED OUT 06 02 0 0603 STAL2 CNST 61110400002 34 - 06 03 0 0604 STAI CNST 40410400000 35 + 6 03 0 0604 STAI CNST 40410400000 35 06 04 0 0605 STAAB CNST 50000400000 36 SIGN OF 8.. FORWARD REFERENCE 06 05 0 0606 BUNV1 CNST 00000300001 37 IS PUT ON STACK 06 06 0 0607 BUNV2 CNST 00000300002 38 SIGN OF 9.. SAME, INCREMENTED 06 07 0 0608 BUNV3 CNST 00000300003 39 - 06 08 0 0609 BUNZ CNST 70000300400 40 - 06 09 0 0610 BUNBZ CNST 50000300000 41 - 06 10 0 0611 BUNI CNST 40000300000 42 - 06 11 0 0612 BUN3V CNST 00000300003 43 - 06 12 0 0613 BUNL2 CNST 60000300002 44 + 6 08 0 0609 BUNZ CNST 70000300400 40 + 6 09 0 0610 BUNBZ CNST 50000300000 41 + 6 10 0 0611 BUNI CNST 40000300000 42 + 6 11 0 0612 BUN3V CNST 00000300003 43 + 6 12 0 0613 BUNL2 CNST 60000300002 44 06 13 0 0614 BSALN CNST 60001330003 45 06 14 0 0615 BSALT CNST 60000330003 46 06 15 0 0616 BZAL2 CNST 60000360002 47 06 16 0 0617 BZAL3 CNST 60000360003 48 06 17 0 0618 BZAL4 CNST 60000360004 49 06 18 0 0619 BNZAF CNST 80101369999 50 - 06 19 0 0620 NOPZ CNST 70000010000 51 - 06 20 0 0621 NOPV1 CNST 00000100001 52 - 06 21 0 0622 NOPV2 CNST 00000010002 53 + 6 19 0 0620 NOPZ CNST 70000010000 51 + 6 20 0 0621 NOPV1 CNST 00000100001 52 + 6 21 0 0622 NOPV2 CNST 00000010002 53 06 22 0 0623 NOPAV F424 0,01,TOP-V 54 - 06 23 0 0624 SLT10 CNST 40001490010 55 + 6 23 0 0624 SLT10 CNST 40001490010 55 06 24 0 0625 SLTZ CNST 40001490000 56 06 25 0 0626 SLT30 CNST 40001490030 57 06 26 0 0627 SRT10 CNST 40001480010 58 - 06 27 0 0628 SRTZ CNST 40001480000 59 + 6 27 0 0628 SRTZ CNST 40001480000 59 06 28 0 0629 SLA9 CNST 40000490009 60 - 06 29 0 0630 LDBI CNST 40000420000 61 + 6 29 0 0630 LDBI CNST 40000420000 61 06 30 0 0631 LDBL0 CNST 60000420000 62 06 31 0 0632 LBCV1 CNST 00001420001 63 06 32 0 0633 DLBV2 CNST 04400280002 64 06 33 0 0634 LSA0 CNST 40000430000 65 06 34 0 0635 LSA1 CNST 40001430000 66 06 35 0 0636 LSA9 CNST 40009430000 67 - 06 36 0 0637 STPZ CNST 70000440000 68 - 06 37 0 0638 STPV2 CNST 00000440002 69 - 06 38 0 0639 STPV3 CNST 00000440003 70 - 06 39 0 0640 BCSL2 CNST 60000380002 71 - 06 40 0 0641 CLA CNST 40001450002 72 - 06 41 0 0642 IBBI CNST 40002200000 73 - 06 42 0 0643 LDRV1 CNST 00000410001 74 + 6 36 0 0637 STPZ CNST 70000440000 68 + 6 37 0 0638 STPV2 CNST 00000440002 69 + 6 38 0 0639 STPV3 CNST 00000440003 70 + 6 39 0 0640 BCSL2 CNST 60000380002 71 + 6 40 0 0641 CLA CNST 40001450002 72 + 6 41 0 0642 IBBI CNST 40002200000 73 + 6 42 0 0643 LDRV1 CNST 00000410001 74 06 43 0 0644 HLTZ CNST 40137007310 75 06 44 0 0645 CAAV1 CNST 00001100001 76 06 45 0 0646 CSAV1 CNST 00001110001 77 @@ -644,9 +642,9 @@ 06 49 0 0650 BCLL2 CNST 60001340002 81 06 50 0 0651 BCUL2 CNST 60011350002 82 06 51 0 0652 ADDX1 CNST 00000120004 83 - 06 52 0 0653 CLLV2 CNST 00000460002 84 + 6 52 0 0653 CLLV2 CNST 00000460002 84 06 53 0 0654 BZAFR CNST 80000369999 85 - 06 54 0 0655 BSAFN CNST 80001339999 86 + 6 54 0 0655 BSAFN CNST 80001339999 86 06 55 0 0656 BSAFP CNST 80000339999 87 06 56 0 0657 BUNFR CNST 80000309999 88 06 57 0 0658 STPA F4244 0,44,LODOX 89 @@ -655,8 +653,8 @@ 06 60 0 0661 BUNFB CNST 90000309999 92 06 61 0 0662 STPFR CNST 80000449999 93 06 62 0 0663 STAT3 CNST 10000400003 94 - 06 63 0 0664 LDBV9 CNST 00000420009 95 - 06 64 0 0665 CSUV4 CNST 00000110004 96 + 6 63 0 0664 LDBV9 CNST 00000420009 95 + 6 64 0 0665 CSUV4 CNST 00000110004 96 06 65 0 0666 CLR0 CNST 40002450000 97 06 66 0 0667 BOF2 CNST 61111310002 98 @@ -665,7 +663,7 @@ 06 70 0 0668 GTAB0 CNST 10900000000 + A V X ADDV2 X=FIXED 06 71 0 0669 CNST 11400000000 + A V- X SUBV2 F=FLOATING 06 72 0 0670 CNST 31400000000 + A- V X- SUBV2 A=IN ACCUMULATOR - 06 73 0 0671 CNST 30900000000 + A- V- X- ADDV2 V=NOT IN ACCUMULATOR +006 73 0 0671 CNST 30900000000 + A- V- X- ADDV2 V=NOT IN ACCUMULATOR 06 74 0 0672 CNST 10800000000 + V A X ADDV1 -=NEGATED 06 75 0 0673 CNST 31300000000 + V A- X- SUBV1 06 76 0 0674 CNST 11300000000 + V- A X SUBV1 @@ -736,7 +734,7 @@ 07 41 0 0739 CNST 20220000000 . V- V- F CADV2 FMUV1 07 43 0 0740 GTAB1 CNST 52780020000 MAX A V CFAV2 BCHL2 CADV2 - 07 44 0 0741 CNST 53207268001 MAX A V- STAT1 CSUV2 CFAV1 BCHL2 CADV1 +007 44 0 0741 CNST 53207268001 MAX A V- STAT1 CSUV2 CFAV1 BCHL2 CADV1 07 45 0 0742 CNST 53206278002 MAX A- V STAT1 CSUV1 CFAV2 BCHL2 CADV2 07 46 0 0743 CNST 62781020000 MAX A- V- - CFAV2 BCLL2 CADV2 07 47 0 0744 CNST 52680010000 MAX V A CFAV1 BCHL2 CADV1 @@ -748,12 +746,12 @@ 07 53 0 0750 CNST 50627800200 MAX V- V CSUV1 CFAV2 BCHL2 CADV2 07 54 0 0751 CNST 60127810200 MAX V- V- - CADV2 CFAV2 BCHL2 CADV2 07 55 0 0752 CNST 52781020000 MIN A V CFAV2 BCLL2 CADV2 - 07 56 0 0753 CNST 53207268101 MIN A V- STAT1 CSUV2 CFAV1 BCLL2 CADV1 - 07 57 0 0754 CNST 53206278102 MIN A- V STAT1 CSUV1 CFAV2 BCLL2 CADV2 +007 56 0 0753 CNST 53207268101 MIN A V- STAT1 CSUV2 CFAV1 BCLL2 CADV1 +007 57 0 0754 CNST 53206278102 MIN A- V STAT1 CSUV1 CFAV2 BCLL2 CADV2 07 58 0 0755 CNST 62780020000 MIN A- V- - CFAV2 BCHL2 CADV2 07 59 0 0756 CNST 52681010000 MIN V A CFAV1 BCLL2 CADV1 - 07 60 0 0757 CNST 53307268101 MIN V A- STAT2 CSUV2 CFAV1 BCLL2 CADV1 - 07 61 0 0758 CNST 53306278102 MIN V- A STAT2 CSUV1 CFAV2 BCLL2 CADV2 +007 60 0 0757 CNST 53307268101 MIN V A- STAT2 CSUV2 CFAV1 BCLL2 CADV1 +007 61 0 0758 CNST 53306278102 MIN V- A STAT2 CSUV1 CFAV2 BCLL2 CADV2 07 62 0 0759 CNST 62680010000 MIN V- A- - CFAV1 BCHL2 CADV1 07 63 0 0760 CNST 50127810200 MIN V V CADV1 CFAV2 BCLL2 CADV2 07 64 0 0761 CNST 50726810100 MIN V V- CSUV2 CFAV1 BCLL2 CADV1 @@ -787,33 +785,33 @@ 07 92 0 0785 CNST 18500000000 NEQ - IF BZAFR 07 93 0 0786 CNST 14788000000 NEQ UN BZAL2 BUNFR 07 94 0 0787 CNST 14788000000 NEQ - UN BZAL2 BUNFR - 07 95 0 0788 CNST 14945724403 LEQ () BZAL4 BMAL3 CLA BUNL2 CADX1 - 07 96 0 0789 CNST 14946724403 LEQ - () BZAL4 BPAL3 CLA BUNL2 CADX1 +007 95 0 0788 CNST 14945724403 LEQ () BZAL4 BMAL3 CLA BUNL2 CADX1 +007 96 0 0789 CNST 14946724403 LEQ - () BZAL4 BPAL3 CLA BUNL2 CADX1 07 97 0 0790 CNST 14787000000 LEQ IF BZAL2 BPAFR 07 98 0 0791 CNST 14786000000 LEQ - IF BZAL2 BMAFR 07 99 0 0792 CNST 18586000000 LEQ UN BZAFR BMAFR 08 00 0 0793 CNST 18587000000 LEQ - UN BZAFR BPAFR - 08 01 0 0794 CNST 14945034472 GTR () BZAL4 BMAL3 CADX1 BUNL2 CLA - 08 02 0 0795 CNST 14946034472 GTR - () BZAL4 BPAL3 CADX1 BUNL2 CLA +008 01 0 0794 CNST 14945034472 GTR () BZAL4 BMAL3 CADX1 BUNL2 CLA +008 02 0 0795 CNST 14946034472 GTR - () BZAL4 BPAL3 CADX1 BUNL2 CLA 08 03 0 0796 CNST 18586000000 GTR IF BZAFR BMAFR 08 04 0 0797 CNST 18587000000 GTR - IF BZAFR BPAFR 08 05 0 0798 CNST 14787000000 GTR UN BZAL2 BPAFR 08 06 0 0799 CNST 14786000000 GTR - UN BZAL2 BMAFR - 08 07 0 0800 CNST 14946724403 GEQ () BZAL4 BPAL3 CLA BUNL2 CADX1 - 08 08 0 0801 CNST 14945724403 GEQ - () BZAL4 BMAL3 CLA BUNL2 CADX1 +008 07 0 0800 CNST 14946724403 GEQ () BZAL4 BPAL3 CLA BUNL2 CADX1 +008 08 0 0801 CNST 14945724403 GEQ - () BZAL4 BMAL3 CLA BUNL2 CADX1 08 09 0 0802 CNST 14786000000 GEQ IF BZAL2 BMAFR 08 10 0 0803 CNST 14787000000 GEQ - IF BZAL2 BPAFR 08 11 0 0804 CNST 18587000000 GEQ UN BZAFR BPAFR 08 12 0 0805 CNST 18586000000 GEQ - UN BZAFR BMAFR - 08 13 0 0806 CNST 14946034472 LSS () BZAL4 BPAL3 CADX1 BUNL2 CLA - 08 14 0 0807 CNST 14945034472 LSS - () BZAL4 BMAL3 CADX1 BUNL2 CLA +008 13 0 0806 CNST 14946034472 LSS () BZAL4 BPAL3 CADX1 BUNL2 CLA +008 14 0 0807 CNST 14945034472 LSS - () BZAL4 BMAL3 CADX1 BUNL2 CLA 08 15 0 0808 CNST 18587000000 LSS IF BZAFR BPAFR 08 16 0 0809 CNST 18586000000 LSS - IF BZAFR BMAFR 08 17 0 0810 CNST 14786000000 LSS UN BZAL2 BMAFR 08 18 0 0811 CNST 14787000000 LSS - UN BZAL2 BPAFR 08 20 0 0812 COMP DEFN *-2 IJ-PAIRS FOR ARITH GENERATOR - 08 21 0 0812 LOCN * V1 V2 X=FIX F=FLT A=ACC V=OPRND C=CONST +008 21 0 0812 LOCN * V1 V2 X=FIX F=FLT A=ACC V=OPRND C=CONST 08 22 0 0812 CNST 3000000000 XA XV 08 23 0 0813 CNST 1133000000 XA FV 08 24 0 0814 CNST 2630000000 XA XC @@ -825,9 +823,9 @@ 08 30 0 0820 CNST 2623330000 FA XC J=1 FLAOT V(I) 08 31 0 0821 CNST 2633000000 FA FC J=2 STORE V(I) IN TEMP 08 32 0 0822 CNST 3100000000 XV XA J=3 FLOAT CONSTANT V(I) - 08 33 0 0823 CNST 2214113300 XV FA J=4 BRING V(I) INTO A REGISTER - 08 34 0 0824 CNST 3200000000 XV XV J=5 CALC CONST OP CONST$ I=TYPE - 08 35 0 0825 CNST 1411330000 XV FV J=6 CHECK IF V(I)=SPACIAL CONST +008 33 0 0823 CNST 2214113300 XV FA J=4 BRING V(I) INTO A REGISTER +008 34 0 0824 CNST 3200000000 XV XV J=5 CALC CONST OP CONST$ I=TYPE +008 35 0 0825 CNST 1411330000 XV FV J=6 CHECK IF V(I)=SPACIAL CONST 08 36 0 0826 CNST 2632000000 XV XC 08 37 0 0827 CNST 1411263300 XV FC 08 38 0 0828 CNST 2134000000 FV XA I=3.. @@ -836,7 +834,7 @@ 08 41 0 0831 CNST 3500000000 FV FV J=2 NEITHER IN A, FIXED 08 42 0 0832 CNST 2623350000 FV XC J=3 V1 IS IN A,FLOATING 08 43 0 0833 CNST 2635000000 FV FC J=4 V2 IS IN A,FLOATING - 08 44 0 0834 CNST 1631000000 XC XA J=5 NEITHER IS IN A, FLOATING +008 44 0 0834 CNST 1631000000 XC XA J=5 NEITHER IS IN A, FLOATING 08 45 0 0835 CNST 1613340000 XC FA 08 46 0 0836 CNST 1632000000 XC XV 08 47 0 0837 CNST 1613350000 XC FV @@ -887,7 +885,7 @@ 08 92 0 0877 DBB 0,9998 08 93 0 0878 BFA C+,02,00 08 94 0 0879 *D DBB C+,1 - 08 95 0 0880 *B DFL CHAR,02,14 CHANGE CRAZY MINUS SIGN TO REGULAR ONE +008 95 0 0880 *B DFL CHAR,02,14 CHANGE CRAZY MINUS SIGN TO REGULAR ONE 08 96 0 0881 *C STB K2 08 98 0 0882 SCN4 LDR CHAR @@ -939,7 +937,7 @@ 09 44 0 0925 DLB K,94,0 09 45 0 0926 ADL - SYMBL 09 46 0 0927 IFL K,02,2 - 09 47 0 0928 BOF B- IF IDENTIFIER IS MORE THAN 50 CHARACTERS +009 47 0 0928 BOF B- IF IDENTIFIER IS MORE THAN 50 CHARACTERS 09 48 0 0929 *A BUN SCN1 IN LENGTH, TRUNCATE IT TO 50 @@ -952,8 +950,8 @@ 09 57 0 0936 BSA A+,0 IF IN PROCEDURE MODE, CHECK 09 58 0 0937 DLB L,64,00 SEMICOLON COUNT 09 59 0 0938 BSA C+,3 - 09 60 0 0939 IFL - 0,11,5 THE PRESENT SYMBOL IS A PARAMETRIC ARRAY - 09 61 0 0940 STP FRMEX SEND ITS NAME AND AN ARRAY-PARAMETER +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 64 0 0943 BUN SCN5 @@ -972,13 +970,13 @@ 09 77 0 0956 BUN FRME 09 78 0 0957 BUN SCN1 09 79 0 0958 *C DFL - 0,11,1 THE PRESENT SYMBOL IS THE NAME OF - 09 80 0 0959 STP FRMEX A PARAMETRIC FUNCTION OR PROCEDURE +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 84 0 0963 *D CFR FUNMD,64 09 85 0 0964 BCU F+ - 09 86 0 0965 BSA F+,1 IF CALLING A FUNCTION,CHECK $ COUNT +009 86 0 0965 BSA F+,1 IF CALLING A FUNCTION,CHECK $ COUNT 09 87 0 0966 STP FRMEX IF THIS COUNT IS 1,WE DONT KNOW YET 09 88 0 0967 BUN FRME WHETHER OR NOT THE PRESENT SYMBOL IS 09 89 0 0968 LDB FUNS A PARAMETRIC ARRAY, BUT IF THE COUNT @@ -4093,4 +4091,581 @@ 040 97 0 3740 BUN FIXEX-1 -041 00 0 3741 +041 00 0 3741 TSTOP STP ACCX STORE A IF IT IS IN USE WITH +041 01 0 3742 BUN ACC4 NON-CURRENT OPERAND(S) +041 02 0 3743 LDB OP +041 03 0 3744 LDR - 0 IF NEXT ITEM IN OPERATION STACK +041 04 0 3745 CFR HYPH,67 IS A MINUS, REMOVE IT AND REVERSE +041 05 0 3746 BCU TSTOX THE SIGN OF V1 +041 06 0 3747 STP REMX,OP +041 07 0 3748 BUN REM,*+2 +041 08 0 3749 G13 F424 3100,0,0 +041 09 0 3750 CSU V1 +041 10 0 3751 STA V2 +041 11 0 3752 TSTOX BUN * + + +041 14 0 3753 FLTCN STA TEMP CONVERT CONSTANT FROM INTEGER +041 15 0 3754 DLB TEMP,64,00 TO FLOATING POINT FORM +041 16 0 3755 CAD - 1 +041 17 0 3756 FLTCM CLL RR0 +041 18 0 3757 CLL SYMBL +041 19 0 3758 BFA B+,00,0 +041 20 0 3759 IFL SYMBL,22,61 +041 21 0 3760 ZHE CLR +041 22 0 3761 SRT 3 +041 23 0 3762 *A SLT 1 NORMALIZE +041 24 0 3763 DFL SYMBL,22,1 +041 25 0 3764 BFA A-,31,00 +041 26 0 3765 STA SYMBL,08 +041 27 0 3766 FLTC1 DEFN * +041 28 0 3766 *B STP NMBRX PUT INTO TABLE +041 29 0 3767 BUN NMBR +041 30 0 3768 CAD - 0 +041 31 0 3769 STA L,23 +041 32 0 3770 CAD L +041 33 0 3771 FLTCX BUN * + + +041 36 0 3772 FIXCN STA TEMP CONVERT FLOATING POINT CONSTANT +041 37 0 3773 DLB TEMP,64,00 INTO INTEGER FORM +041 38 0 3774 CAD - 1 +041 39 0 3775 FIXCM CLL RR0 +041 40 0 3776 IFL RR0,21,1 +041 41 0 3777 CFA +6099999999 +041 42 0 3778 BCH E+ +041 43 0 3779 S3 CLR +041 44 0 3780 SRT 8 +041 45 0 3781 STA TEMP +041 46 0 3782 CFA *+1,02 +041 47 0 3783 CLA 51 +041 48 0 3784 BCL C+ +041 49 0 3785 DLB TEMP,04,50 UNNORMALIZE (CLEVERLY) +041 50 0 3786 SLT - 0 +041 51 0 3787 *C STA SYMBL +041 52 0 3788 BUN B- +041 53 0 3789 *E STP WEMX +041 54 0 3790 BUN WEM,FIXCM +041 55 0 3791 CNST 33436373800 CONSTANT OUT OF RANGE +041 56 0 3792 FIXCX DEFN FLTCX + + +041 59 0 3792 ARTHG CLB MONTR ARITHMETIC SEQUENCE GENERATOR +041 60 0 3793 LDR V2 +041 61 0 3794 BFR A+,11,0 CODE.. 0 ACCUMULATOR FLOATING +041 62 0 3795 DBB 0,9996 1 ACCUMULATOR FIXED +041 63 0 3796 BFR A+,11,2 2 (OTHER) FLOATING +041 64 0 3797 IBB 0,9998 3 (OTHER) FIXED +041 65 0 3798 *A BFR B+,21,1 4 CONSTANT FLOATING +041 66 0 3799 DBB 0,9999 5 CONSTANT FIXED +041 67 0 3800 *B LDR V1 +041 68 0 3801 BFR C+,11,0 +041 69 0 3802 DBB 0,9976 +041 70 0 3803 BFR C+,11,2 CALCULATE 6 TIMES CODE(V1) PLUS CODE(V2) +041 71 0 3804 IBB 0,9988 +041 72 0 3805 *C BFR D+,21,1 +041 73 0 3806 DBB 0,9994 +041 74 0 3807 *D LDR - COMP INDEX WITH THIS VALUE TO GET FANCY +041 75 0 3808 STR ARTHM COMP TABLE ENTRY, WHICH CONSISTS OF +041 76 0 3809 ARTHA LDR ARTHM IJ-PAIRS, LIKE AN INTERPRETIVE +041 77 0 3810 K3 CLA SYSTEM PROGRAM +041 78 0 3811 SLT 2 +041 79 0 3812 STR ARTHM TAKE IJ-PAIRS FROM LEFT TO RIGHT +041 80 0 3813 STA J,01 +041 81 0 3814 BFA ARTHC,91,3 TO ARTHC IF THIS IS THE LAST ENTRY +041 82 0 3815 SRT 1 +041 83 0 3816 STA 1 +041 84 0 3817 LDB 1 +041 85 0 3818 BFR J1,11,1 FLOAT OPERAND V(I) +041 86 0 3819 BFR J2,11,2 STORE V(I) IN TEMP +041 87 0 3820 BFR J3,11,3 FLOAT CONSTANT V(I) +041 88 0 3821 BFR J4,11,4 BRING V(I) INTO A REGISTER +041 89 0 3822 BFR J5,11,5 COMPUTE SUM,PRODUCT,ETC. OF CONSTANTS +041 90 0 3823 BUN J6 CHECK FOR SPECIAL CASES IN CONSTANTS +041 91 0 3824 J1 DLB TABSC+82,64,0 +041 92 0 3825 STP LINKX CALL IN FLOAT SUBROUTINE +041 93 0 3826 BUN LINK1 +041 94 0 3827 LDB 1 +041 95 0 3828 STB - V,21 FLOAT V(I) +041 96 0 3829 BUN ARTHA +041 97 0 3830 J2 STP ACCX STORE V(I) IN TEMP +041 98 0 3831 BUN - ACC +041 99 0 3832 BUN ARTHA +042 00 0 3833 J3 CAD - V FLOAT THE CONSTANT V(I) +042 01 0 3834 STP FLTCX +042 02 0 3835 BUN FLTCN +042 03 0 3836 LDB I +042 04 0 3837 STA - V,00 +042 05 0 3838 BUN ARTHA +042 06 0 3839 J4 STP ACCX FREE THE A REGISTER. +042 07 0 3840 BUN ACC3 +042 08 0 3841 LDB I +042 09 0 3842 STP CADX BRING V(I) IN +042 10 0 3843 BUN CAD +042 11 0 3844 BUN ARTHA +042 12 0 3845 J5 DLB V1,64,00 +042 13 0 3846 LDR V1 GET CONSTANTS V1,V2 +042 14 0 3847 CAD - 1 +042 15 0 3848 SLT 0 +042 16 0 3849 STA TEMP2 +042 17 0 3850 DLB V2,64,00 +042 18 0 3851 LDR V2 +042 19 0 3852 CAD - 1 +042 20 0 3853 SLT 0 +042 21 0 3854 STA TEMP1 +042 22 0 3855 LDR OPRTN +042 23 0 3856 CAD I +042 24 0 3857 CLL RR0 I SPECIFIES WHETHER FLOATING OR FIXED +042 25 0 3858 BFA X+,01,1 +042 26 0 3859 CAD TEMP1 +042 27 0 3860 CFR PLUS,67 +042 28 0 3861 BCU A+ COMPUTE V2 OP V1 +042 29 0 3862 FAD TEMP2 FAD +042 30 0 3863 BUN ARTHB +042 31 0 3864 *A CFR DOT,67 +042 32 0 3865 BCU B+ +042 33 0 3866 FMU TEMP2 FMU +042 34 0 3867 BUN ARTHB +042 35 0 3868 *B CFR SOLD,67 +042 36 0 3869 BCU ARTHA +042 37 0 3870 SCNXX CLR CLR,FDB +042 38 0 3871 FDV TEMP2 +042 39 0 3872 BUN ARTHB +042 40 0 3873 *X IFL RR0,21,1 +042 41 0 3874 CAD TEMP1 +042 42 0 3875 CFR PLUS,67 +042 43 0 3876 BCU A+ +042 44 0 3877 ADD TEMP2 ADD +042 45 0 3878 BUN ARTHB +042 46 0 3879 *A CFR DOT,67 +042 47 0 3880 BCU B+ +042 48 0 3881 MUL TEMP2 MUL,SLT10 +042 49 0 3882 SLT 10 +042 50 0 3883 BZR ARTHB +042 51 0 3884 BUN V+ +042 52 0 3885 *B CFR SOLD,67 +042 53 0 3886 BCU ARTHA +042 54 0 3887 SRT 10 +042 55 0 3888 DIV TEMP2 SRT 10,DIV +042 56 0 3889 ARTHB BOF V+ +042 57 0 3890 *A STA SYMBL,00 CHECK IF OUT OF RANGE +042 58 0 3891 STA ACCUM PUT COMPUTED CONSTANT INTO TABLE +042 59 0 3892 STP NMBRX +042 60 0 3893 BUN NMBR +042 61 0 3894 CAA - 0 +042 62 0 3895 STA ACCUM,00 +042 63 0 3896 LDR L AND INTO ACCUM +042 64 0 3897 STR ACCUM,64 +042 65 0 3898 CAD ACCUM +042 66 0 3899 BUN ARTHX AND EXIT +042 67 0 3900 *V STP WEMX +042 68 0 3901 BUN WEM,A- +042 69 0 3902 CNST 33436373800 CONSTANT OUT OF RANGE. USE =1= +042 70 0 3903 J6 CAD - V +042 71 0 3904 BPA X+ +042 72 0 3905 LDR OPRTN +042 73 0 3906 BFR X+,21,0 +042 74 0 3907 LBC 1 +042 75 0 3908 CSU - V3 +042 76 0 3909 STA - V3 +042 77 0 3910 LDB I +042 78 0 3911 CAA - V +042 79 0 3912 STA - V +042 80 0 3913 *V DLB - V,64,0 V(I) IS A CONSTANT. +042 81 0 3914 LDR - 1 CHECK IF IT IS A SPECIAL ONE +042 82 0 3915 BZR A+ IS IS ZERO +042 83 0 3916 CFR FONE+1 +042 84 0 3917 BCE D+ IS IT 1.0 +042 85 0 3918 *Q CAB +042 86 0 3919 DBB 0,9999 IS IT 10,100,1000,...,1000000000 +042 87 0 3920 SLT 10 +042 88 0 3921 BFA *-2,11,0 +042 89 0 3922 SLT 1 +042 90 0 3923 CFR XONE+1,00 +042 91 0 3924 BCU ARTHA +042 92 0 3925 IBB D+,9998 IS IT 1 +042 93 0 3926 CAD V1 +042 94 0 3927 EXT V2 +042 95 0 3928 BFA ARTHA,21,0 +042 96 0 3929 LDR OPRTN +042 97 0 3930 DBB 0,9999 +042 98 0 3931 STB SHIFT,06 +042 99 0 3932 BFR Q+,62,48 CHECK IF OP IS MUL OR DIV +043 00 0 3933 LDB I +043 01 0 3934 DBB ARTHA,2 +043 02 0 3935 BFR T+,62,24 +043 03 0 3936 BUN ARTHA +043 04 0 3937 *Q IFL SHIFT,62,1 IF SO, SLA +043 05 0 3938 *T IFL SHIFT,62,48 OR SRA +043 06 0 3939 LBC I +043 07 0 3940 STP CADX +043 08 0 3941 DBB CAD,9997 +043 09 0 3942 STP ASMBX +043 10 0 3943 BUN ASMBL,SHIFT +043 11 0 3944 BUN C+ +043 12 0 3945 *A DFL BOF,61,9 SUPPRESS BOF *+2 IN RELATIONALS +043 13 0 3946 *A LDR OPRTN IF ITS ZERO, AND WE ARE ADDING, +043 14 0 3947 BFR C+,65,0 OR ONE AND WE ARE MULTIPLYING, +043 15 0 3948 BFR M+,62,48 THE RESULT IS THE OTHER OPERAND +043 16 0 3949 BUN ARTHA IF ZERO AND MULTIPLYING, THE RESULT +043 17 0 3950 *D LDR OPRTN IS ZERO. +043 18 0 3951 CFR DOT,67 +043 19 0 3952 BCU ARTHA +043 20 0 3953 *C LBC I +043 21 0 3954 CAD - V3 +043 22 0 3955 *M STA ACCUM +043 23 0 3956 BUN ARTHX +043 24 0 3957 ARTHC STP ACCX FINISH OF ARITHMETICS. +043 25 0 3958 BUN ACC4 FIRST FREE A REGISTER IF NECESSARY +043 26 0 3959 CAD OPRTN +043 27 0 3960 SRA 4 +043 28 0 3961 EXT NN +043 29 0 3962 STA TEMP1 +043 30 0 3963 STA TEMP2 +043 31 0 3964 CAD V2 COMPUTE OPERATION CODE +043 32 0 3965 SRS 10 PLUS SIGN OF V2 +043 33 0 3966 ADL TEMP2 PLUS TWICE SIGN OF V1 +043 34 0 3967 CAD V1 +043 35 0 3968 SRS 10 +043 36 0 3969 ADL TEMP2 +043 37 0 3970 ADL TEMP2 +043 38 0 3971 CAD OPRTN +043 39 0 3972 BFA A+,41,0 ADD,MULTIPLY, DIVIDE OPS +043 40 0 3973 BFA 41,1 MAX, MIN OPS +043 41 0 3974 CAD J AND,OR,EQIV,IMPL OPS. +043 42 0 3975 ADL TEMP2 +043 43 0 3976 CSU V1 CHECK FOR VALID BOOLEAN OPERANDS +043 44 0 3977 BPA E+ ?? BPA ?? BRANCH POSITIVE A? +043 45 0 3978 EXT V2 +043 46 0 3979 BMA E+ ?? BMA ?? BRANCH MINUS A? +043 47 0 3980 BFA H+,21,1 +043 48 0 3981 *E STP WEMX +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 53 0 3986 BUN I+ +043 54 0 3987 *A CAD J INDEX INTO APPROPRIATE GTAB TABLE +043 55 0 3988 ADD J +043 56 0 3989 ADL TEMP2 +043 57 0 3990 ADL TEMP2 +043 58 0 3991 LDB TEMP2 +043 59 0 3992 CAD - GTAB0 +043 60 0 3993 YETH BUN I+,9988 (IN RELATION CASE,CHANGE FLOATING +043 61 0 3994 IBB I+-1,GTAB0-GTAB1 TO FIXED) +043 62 0 3995 *B CAD J +043 63 0 3996 MUL FUR +043 64 0 3997 DIV TWL +043 65 0 3998 SLT 10 +043 66 0 3999 ADL TEMP2 +043 67 0 4000 LDB TEMP2 +043 68 0 4001 CAD - GTAB1 THIS TABLE ENTRY CAUSES THE ASSEMBLER +043 69 0 4002 *I STP INTRX TO PRODUCE ALL CODE NECESSARY FOR +043 70 0 4003 BUN INTRP THE BINARY OPEARTOR. +043 71 0 4004 ARTHX BUN * + + +043 74 0 4005 LINK1 LDR - I +043 75 0 4006 STR EXPLN +043 76 0 4007 LINK STP LIBRX MAKE SURE LIBRARY ROUTINE IS IN STORAGE +043 77 0 4008 BUN LIBRF +043 78 0 4009 STB V3 +043 79 0 4010 IFL V3,51,4 +043 80 0 4011 CAD V3 +043 81 0 4012 SLA 4 +043 82 0 4013 LINK2 STA V3 +043 83 0 4014 CAA G6 COMPILE STP, BUN INSTRUCTIONS +043 84 0 4015 STP INTRX +043 85 0 4016 BUN INTRP +043 86 0 4017 CLL DEX MARK B REGISTER UNKNOWN +043 87 0 4018 LINKX BUN * + + +043 90 0 4019 VSUB LDB FUNS +043 91 0 4020 DLB - 0,64,00 RETURN.. COMPILE LDB () +043 92 0 4021 STB LDBI,04 BUN - 0 +043 93 0 4022 VSUB1 CAD G1 + + +043 96 0 4023 INTRP STP ASMBX GENERATE SERIES OF INSTRUCTIONS +043 97 0 4024 STA A+ FROM VOCABULARY TABLE. +043 98 0 4025 LDR A+ +043 99 0 4026 *B CLA * +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 04 0 4031 BFA ACC2,02,33 TEMP STORAGE +044 05 0 4032 STA B-,04 +044 06 0 4033 LDB B- +044 07 0 4034 CAD - VOCAB-1 +044 08 0 4035 BUN ASMBY +044 09 0 4036 *A HLT * +044 10 0 4037 *C BSA INTRX,0 AFTER THIS IS DONE, AND IF THE +044 11 0 4038 LDR V1 RESULT IS IN THE ACCUMULATOR, +044 12 0 4039 STR ACTBL+4,21 +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 17 0 4044 CAD - ACTBL-1 +044 18 0 4045 STA ACCUM +044 19 0 4046 INTRX BUN * +044 20 0 4047 ACTBL CNST 00100000000 1 FIXED - TRUE SIGN +044 21 0 4048 CNST 00000000000 2 FLOATING - TRUE SIGN +044 22 0 4049 CNST 10100000000 3 FIXED - OPPOSITE SIGN +044 23 0 4050 CNST 10000000000 4 FLOATING - OPPOSITE SIGN +044 24 0 4051 CNST 00000000000 5 TYPE OF V1 - TRUE SIGN +044 25 0 4052 CNST 10000000000 6 TYPE OF V1 - REVERSED SIGN +044 26 0 4053 CONVX DEFN INTRX +044 27 0 4053 VSUBX DEFN INTRX + + +044 30 0 4053 LIBRF CAD - 0 PUT LIBRARY SUBROUTINE INTO TARGET +044 31 0 4054 LIBRX BFA LIBRX,11,4 PROGRAM IF IT HASNT BEEN PUT THERE +044 32 0 4055 SRA 4 ALREADY. +044 33 0 4056 EXT EX0 +044 34 0 4057 SUB VARB +044 35 0 4058 STA VARB,04 +044 36 0 4059 SLT 4 +044 37 0 4060 STA - 0,64 +044 38 0 4061 IFL - 0,64,1 +044 39 0 4062 IFL - 0,11,1 +044 40 0 4063 BUN LIBRF + + +044 43 0 4064 FXUP LDR LOCK 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 +044 47 0 4068 STA WRTF,04 +044 48 0 4069 BSA *+2,7 +044 49 0 4070 BUN *+2 +044 50 0 4071 IFL DESCR,00,1 IF SIGN IS SEVEN, WE MEAN THE +044 51 0 4072 BCS *+2,2 +044 52 0 4073 BUN *+4 +044 53 0 4074 BSA *+3,8 +044 54 0 4075 STP 4 9898,0208 +044 55 0 4076 BUN 4 9898,WRTF +044 56 0 4077 LDR DESCR PRESENT LOCATION PLUS 1 +044 57 0 4078 LDB LRTF REFERENCE TO THE PRESENT LOCATION +044 58 0 4079 CAD WRTF +044 59 0 4080 CFA PREV,04 +044 60 0 4081 BCH A+ IF WE CAN FIX UP THE INSTRUCTION WHILE +044 61 0 4082 CAD - BUF+I IT SITS IN TEH OUTPUT BUFFER, WE WILL +044 62 0 4083 BFA A+,04,0 DO IT DIRECTLY +044 63 0 4084 CFA WRTF,04 +044 64 0 4085 BCH A+ +044 65 0 4086 SUB WRTF +044 66 0 4087 SLA 6 +044 67 0 4088 STA *+1,44 +044 68 0 4089 DBB *+1,0 +044 69 0 4090 STR - BUF+2,04 +044 70 0 4091 BUN FXUPX +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 75 0 4095 PREV DEFN BUF+99 + + + +044 79 0 4095 XZERO F244 21,0,XONE THE FIRST FEW CONSTANTS +044 80 0 4096 CNST 0000000000 +044 81 0 4097 FZERO F244 20,0,FONE +044 82 0 4098 CNST 0000000000 +044 83 0 4099 XONE F244 21,0,XTWO +044 84 0 4100 CNST 0000000001 +044 85 0 4101 FONE F244 20,0,FTWO +044 86 0 4102 CNST 5110000000 +044 87 0 4103 XTWO F244 21,0,0 +044 88 0 4104 CNST 0000000002 +044 89 0 4105 FTWO F244 20,0,0 +044 90 0 4106 CNST 5120000000 +044 91 0 4107 LALE F244 30,100,20 +044 92 0 4108 FCTIN F244 16,FUNGN,0 + + +044 95 0 4109 LOC DEFN * +044 96 0 4109 LOC *+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 +045 00 0 4119 HLT 0 THE RESERVED WORDS +045 01 0 4120 F244 04,GOGN,0 +045 02 0 4121 HLT 0 +045 03 0 4122 HLT 0 +045 04 0 4123 F244 12,OUTGN,0 +045 05 0 4124 HLT 0 +045 06 0 4125 HLT 0 +045 07 0 4126 HLT 0 +045 08 0 4127 HLT 0 +045 09 0 4128 HLT 0 +045 10 0 4129 HLT 0 +045 11 0 4130 HLT 0 +045 12 0 4131 F244 08,IMPGN,TABSC+67 +045 13 0 4132 F244 04,ORGN,0 +045 14 0 4133 HLT 0 +045 15 0 4134 HLT 0 +045 16 0 4135 F244 08,EQIGN,0 +045 17 0 4136 F244 04,TOGN,0 +045 18 0 4137 F244 08,DUMPE,0 +045 19 0 4138 HLT 0 +045 20 0 4139 HLT 0 +045 21 0 4140 HLT 0 +045 22 0 4141 HLT 0 +045 23 0 4142 HLT 0 +045 24 0 4143 HLT 0 +045 25 0 4144 HLT 0 +045 26 0 4145 HLT 0 +045 27 0 4146 HLT 0 +045 28 0 4147 HLT 0 +045 29 0 4148 HLT 0 +045 30 0 4149 HLT 0 +045 31 0 4150 HLT 0 +045 32 0 4151 HLT 0 +045 33 0 4152 HLT 0 +045 34 0 4153 HLT 0 +045 35 0 4154 HLT 0 +045 36 0 4155 HLT 0 +045 37 0 4156 F244 10,BEGGN,TABSC+92 +045 38 0 4157 F244 06,ANDGN,0 +045 39 0 4158 HLT 0 +045 40 0 4159 HLT 0 +045 41 0 4160 HLT 0 +045 42 0 4161 F244 06,ENDGN,0 +045 43 0 4162 F244 06,ABSGN,0 +045 44 0 4163 HLT 0 +045 45 0 4164 HLT 0 +045 46 0 4165 HLT 0 +045 47 0 4166 HLT 0 +045 48 0 4167 F244 06,GEQGN,0 +045 49 0 4168 F2440 12,EITGN,0 +045 50 0 4169 F244 10,MEMRY,0 +045 51 0 4170 F244 14,BOOGN,TABSC+34 +045 52 0 4171 F244 06,MODGN,GSEG +045 53 0 4172 HLT 0 +045 54 0 4173 F244 06,EQLGN,TABSC+37 +045 55 0 4174 F244 12,FORMG,0 +045 56 0 4175 F244 06,MINGN,TABSC+42 +045 57 0 4176 HLT 0 +045 58 0 4177 F244 16,FLOGN,TABSC+44 +045 59 0 4178 F244 06,FORGN,TABSC+45 +045 60 0 4179 F244 06,MAXGN,TABSC+46 +045 61 0 4180 HLT 0 +045 62 0 4181 HLT 0 +045 63 0 4182 HLT 0 +045 64 0 4183 HLT 0 +045 65 0 4184 HLT 0 +045 66 0 4185 F244 10,ENTGN,0 +045 67 0 4186 F244 06,GTRGN,GNARR +045 68 0 4187 HLT 0 +045 69 0 4188 HLT 0 +045 70 0 4189 F244 18,OTHGN,FCTIN +045 71 0 4190 HLT 0 +045 72 0 4191 F244 06,NOTGN,0 +045 73 0 4192 F244 18,STAX,0 +045 74 0 4193 HLT 0 +045 75 0 4194 F244 06,LSSGN,0 +045 76 0 4195 F244 14,MONGN,0 +045 77 0 4196 F244 14,OVEGN,0 +045 78 0 4197 F244 16,EXTGN,0 +045 79 0 4198 HLT 0 +045 80 0 4199 HLT 0 +045 81 0 4200 HLT 0 +045 82 0 4201 F244 12,SWIGN,TABSC+54 +045 83 0 4202 F244 10,UNTGN,0 +045 84 0 4203 HLT 0 +045 85 0 4204 HLT 0 +045 86 0 4205 HLT 0 +045 87 0 4206 F244 10,INPGN,0 +045 88 0 4207 HLT 0 +045 89 0 4208 F244 12,RETGN,0 +045 90 0 4209 HLT 0 +045 91 0 4210 HLT 0 +045 92 0 4211 F244 04,IFGN,0 +045 93 0 4212 HLT 0 +045 94 0 4213 HLT 0 +045 95 0 4214 HLT 0 +045 96 0 4215 HLT 0 + + +045 99 0 4216 SSC HLT SCNT +046 00 0 4217 LOCN F244 0,0200,0 +046 01 0 4218 SYS DEFN * +046 02 0 4218 EXPF F244 31,100,20 SOME LIBRARY ROUTINES +046 03 0 4219 F244 30,100,30 +046 04 0 4220 F244 30,100,40 THE 64-FIELDS OF THESE CODES +046 05 0 4221 F244 30,100,50 ARE FIXED UP TO THE NUMBER +046 06 0 4222 FIX F244 31,100,60 OF LOCATIONS USED BY THE ROUTINES. +046 07 0 4223 CNST $FIX$ +046 08 0 4224 FLOAT F244 30,100,71 +046 09 0 4225 CNST $FLOAT$ +046 10 0 4226 MONTR F244 30,100,80 +046 11 0 4227 MAMAX HLT MSIZE +046 12 0 4228 MNTRE F244 40,MONTR,0 +046 13 0 4229 ERROR F244 30,100,90 +046 14 0 4230 DMPER F244 30,100,100 +046 15 0 4231 DUMPR F244 40,DMPER,0 +046 16 0 4232 RITE F244 30,10,0 +046 17 0 4233 REED F244 30,10,0 +046 18 0 4234 SCNT DEFN * + +046 20 0 4234 LOCN 4500 +046 21 0 4500 STACK CRF 4 FR1+28,21,RLO INITIALIZATION OF THE PROGRAM +046 22 0 4501 MRW 4 OT +046 23 0 4502 CLL BUF +046 24 0 4503 LDB WRIT4 CLEAR OUTPUT BUFFER +046 25 0 4504 RTF BUF,99 +046 26 0 4505 CRF 4 FR2+28,51 LOAD FORMAT BANDS +046 27 0 4506 CWF 4 FR6+28,32 FORWARD REFERENCES +046 28 0 4507 CWF 4 FR3+28,12 OUTPUT INSTRUCTIONS +046 29 0 4508 CWF 4 FR4+28,42 ERROR MESSAGES +046 30 0 4509 CWF 4 FR8+28,22 ALGOL STATEMENTS +046 31 0 4510 CWF 4 FR7+28,52 FIXUPS +046 32 0 4511 MPF 4 OT,3 +046 33 0 4512 BCS HDNG+2,4 +046 34 0 4513 *H BUN HDNG BUN/HPI SWITCH +046 35 0 4514 SPO RDY,8 +046 36 0 4515 F424 8421,0,1248 +046 37 0 4516 BUN H- +046 38 0 4517 HDNG STP 4 9898,1632 +046 39 0 4518 BUN 4 9898,IMAGE +046 40 0 4519 STP 4 9999 +046 41 0 4520 BUN 4 9999,IMAGE +046 42 0 4521 BUN SCN2 PROGRAM STARTS AT SCAN2 + + +046 45 0 4522 CNST 20002000000 +046 46 0 4523 HPV CNST 0,0,0 +046 47 0 4526 CNST $BAC-220 ON LINE HSP VERSION$ +046 48 0 4532 CNST $ 2/1/62$ +046 49 0 4534 CNST 0,0,0,0,0 +046 50 0 4539 PTV CNST 21615000000,20000000000,20000000000 +046 51 0 4542 CNST $BAC-220 PAPER TAPE VERSION $ +046 52 0 4548 CNST $ 2/1/62$ +046 53 0 4550 RDY CNST 21600000000 +046 54 0 4551 CNST $PLEASE READY HIGH-SPEED PRINTER$ + + +046 57 0 4558 FR1 FBGR INPUT,T2Z1B4A,15(T5A) +046 58 0 4587 FR2 FBGR INPUT,16(P5A),P10Z +046 59 0 4616 FR3 FBGR PRINT,49B,TZZZZZZNNNN,BBB,SBNNNNBNNBNNNN,BT5A,44B +046 60 0 4645 FR6 FBGR PRINT,49B,TZZZZZZNNNN,BBB,SBNNNNBNNBZZZZ,5BT5A,44B +046 61 0 4674 FR7 FBGR PRINT,49B,TZZZZZZNNNN,BBB,T6Z10BNNNN,50B +046 62 0 4703 FR4 FBGR PRINT,7(T5A),85B +046 63 0 4732 FR8 FBGR PRINT,TZZNNNNZZZZ,4B,16(T5A),32B + + + + + +046 69 0 4761 LOCN LOC +046 70 0 4109 FINI 1 + 4109 +0371720000 + 4110 +6099999999 + 4111 +5822570000 + 4112 +9999999999 + 4113 +6034037172 + 4114 +4959035600 + 4115 +4959045600