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 completed initial transcription of BALGOL main module listing -- not yet proofed.

Browse Source
This commit is contained in:
Paul Kimpel 2016-12-22 07:01:01 -08:00
parent c508dfd34a
commit bf98f188a5
1 changed files with 641 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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