Directory of image this file is from
This file as a plain text file
[ERROR OVERLAY [ [READ IN BLOCK 2 [OVERLAYING LOADER [ [CONSTRUCT DEBUG DISPLAY [--ERROR MESSAGE [--LINE NUMBER [--ENTER [ OPTIONS [ NOP[RDC NOP[2+ [FIND TYPE OF ERROR #1Z LDA 1773 ADAi 36 AZEi [ [ARITHMETIC ERROR [TYPE 0 [ERROR MESSAGE DEPENDS ON STACK CONTENTS JMP 9O [ ADAi [ERROR MESSAGE TABLE 8U STC p+2 LDA 0[TEXT ADDRESS STC p+2 JMP 8S 0[STORE TEXT POSITION JMP 8S+2 1H [CHANGE CSL TO CHARACTER FORMAT SETi1 #1N -4 [LOAD CURRENT SOURCE LINE #4E LDA 1774 ROL 3 STA 1774 BCLi 7770 [GET LEFT 3 BITS STHi3 XSKi1 [REPEAT 4 TIMES JMP 4E [SET VERT COORD LDAi 241 STC 7M [INSERT EOL JMP 8T [INSERT ENTER JMP 8S+2 1G [LOCATION OF QUESTION MARK LDA 3 STC p+7 JMP 8S+2 1I JMP 8S+2 1J [ [DEBUG DISPLAY [ [QUESTION MARK AFTER ENTER JMP 7A STH 0[CHARACTER STORE [CHECK FOR VALID DIGIT ENTERED ADAi -5 APOi [RETURN TO ORIGINAL DISPLAY FOR ILLEGAL INPUT JMP 1Z ADAi [COMPUTE ACTION FOR AFTER EOL JMP 8X-1 STC p+3 [ [DEBUG DISPLAY [ [NUMBER HAS BEEN ENTERED JMP 7A JMP 3Z [EOL CAUSES NEW DISPLAY 0[STORE LOCATION JMP 3Y [DELETE RETURNS QUESTION MARK JMP 1Z JMP p-5 [ [TABLE OF OPTIONS [ [RETURN TO LAP6 JMP 2E [CHANGE JMP 2C [EXAMINE STACK JMP 3C [TRACE JMP 2H [RESTART JMP 4B [RESUME JMP 5B #8X 0[STORE RETURN [ [SYMTAB SEARCH [ [SYMBOL TABLE ENTRIES 4 WORDS LONG [WORD 1--VARIABLE NAME [WORD 2--VARIABLE NUMBER [WORD 3--X DIMENSION [WORD 4--Y DIMENSION #8Y LDA 0 STC 8Z-1 [SYMTAB STARTS 12 BLOCKS FROM END OF TCF ADD 1760 BCLi 7000 ADAi 5767 STC p+2 [READ INSTRUCTION SET BY OVERLAY RDCu #3I 6234 [SET 4 FOR SYMTAB SCAN SETi4 2777 JMP p+12 [ADJUST SYMTAB POINTER XSKi4 XSKi4 XSKi4 JMP p+6 [GET NEXT BLOCK IF BLOCK EXHAUSTED LDAi 1 ADM 3I JMP 3I-1 [GET NAME PORTION LDAi4 SHDi 7700 [IF 77 END OF SYMTAB JMP 2C [SEE IF HAVE MATCH SAE 8Z JMP 3I+4 [ [HAVE FOUND VARIABLE [ [VARIABLE LOCATION COMPUTED BY MULTIPLYING [NUMBER LENGTH BY VARIABLE NUMBER [377 WORDS PER BLOCK USED FOR NUMBERS LDAi4 STC 3J STC 5 LDA 4 ROL 2 ADD 3J ADAi -377 XSKi5 APOi JMP p-4 AZEi JMP 8Z+1 ADAi 377 ADAi 3000 STC 3J ADD 5 COM ADD 3I STC p+2 RDCu 0[ SETi5 #3J [WORD LOCATION LDA 5 [FIRST WORD OF NUMBER IS EXPONENT STC 1A-1 [ALIGN TO CORRECT HALF WORD LDHi5 0[RETURN #8Z 0[STORE POINTER XSKi5 XSKi0 XSKi0 JMP 0 [ [RETURN TO LAP6 [ #2E SETi15 701 SETi16 7300 JMP 15 [ [CHANGE [ [BUILD DISPLAY [INSERT -- ENTER VARIABLE TO BE CHANGED #2C JMP 8S 5P JMP 1Q JMP 1Z [EOL [RETURN IS TO p+2 [ [ORIGINAL CHANGE DISPLAY [ JMP 7A [ONE CHAR DELETE JMP 3V [EOL JMP 3Z JMP p+7 [DELETE JMP 3Y JMP 2C [OTHER RESPONSES DISPLAYED JMP 4C STH 3 JMP 8R+3 JMP p-11 [FOR EOL JMP 4C JMP 4C JMP 4A JMP 2C [NO INPUT=>INVALID LDAi 76 STHi3 [ADD -- OLD VALUE IS JMP 8S+2 5Q [LOOK UP VARIABLE SET 5 8N LDHi5 ADA i -23 APO JMP 2C [NOT LETTER=>INVALID ADA i -32 APO i JMP 2C [NOT LETTER=>INVALID LDH 5 ROL 6 STC 8Z LDHi5 SAEi 76 JMP p+3 LDAi 12 ADM 8Z JMP 8Y [MOVE VARIABLE VALUE TO DISPLAY JMP 9A [ADD -- ENTER NEW VALUE JMP 8S+2 8E JMP 1Q JMP 1C+4 [EOL [RETURN IS TO p+2 [ [DISPLAY [ [ENTER NEW VALUE #2D JMP 7A [ONE CHAR DELETE JMP 3V [DELETE JMP 3Y JMP 1C [EOL JMP 3Z JMP 1C+4 [DISPLAY OTHER JMP 4C STH 3 JMP 8R+3 JMP 2D [DELETE REMOVES NUMBER INPUT #1C SET 3 8N JMP 4C JMP 2D-2 [EOL ADDS NUMBER TO DISPLAY IN INTERNAL FORMAT JMP 4C JMP 4C JMP 4A JMP 2C JMP 8R+3 JMP 9E JMP 8R+6 [ [DISPLAY [ [EOL AND DELETE ONLY LEGAL #2I JMP 7A [DELETE JMP 3Y JMP 1C [EOL JMP 3Z JMP p+2 [IGNORE OTHER JMP 2I [EOL WRITES NEW INPUT ON TAPE SETi3 -4 SET 5 3J SETi4 1A-1 LDAi4 STA 5 LDAi4 STAi5 XSKi3 JMP p-3 LDA 3J-2 STA p+2 WRCu 0[LOCATION JMP 2C [ [TRACE [ [DELETE CHANGES STATE OF FLAG [EOL STORES STATE OF FLAG #2H LDA 1772 [COMPLEMENT ORIGINAL STATE OF TRACE FLAG COM STA 1772 APO i [CHECK STATE OF FLAG JMP 3D [FOR POSITIVE [LOAD ON JMP 8S 3E JMP 3F #3D JMP 8S 8G[OFF #3F LDAi 1 STC 7M [ [DISPLAY [ JMP 8R+6 JMP 7A JMP 3Z [TEST EOL JMP 1Z [FOR DELETE COMPLEMENT JMP 3Y JMP 2H JMP 3F+3 [ [EXAMINE STACK [ [CONTENTS OF STACK LISTED TOP AS STACK TOP #3C SET 13 1766 JMP 8S 5S LDA 13 #1E COM [CHECK FOR EMPTY STACK ADAi 3777 APOi JMP p+10 [INSERT STACK EMPTY JMP 8S 5D JMP 8R+6 [ [DISPLAY [ [EOL RETURNS TO DEBUG JMP 7A JMP 3Z[CHECK EOL JMP 1Z JMP p-3 [PUT EACH STACK ELEMENT ON A NEW LINE JMP 8T LDA 13 [ [SIGN BIT OF FIRST WORD INDICATES [ + TAPE [ - DATA STACK [ APOi JMP 5U [IF DATA STACK ENTRY STC p+2 LDA #5T 0[NUMBER LOCATION STC 1A-1 SET 5 5T [CHANGE NO FOR OUTPUT JMP 9A [ADJUST STACK POINTER LDAi13 LDAi13 LDAi13 [RETURN FOR NEXT ITEM JMP 5V #5W JMP 8S+2 5N JMP 5W-3 [IF ENTRY STORED ON TAPE #5U LDAi13 BSEi 6377 [ [CHECK FOR LINKAGE [LINKAGE INDICATED BY BITS 8-9 OF WORD 2 [ AZEi JMP 5W JMP 3U LDA 5 [STORE EXPONENT STC 1A-1 [ALIGN TO HALF WORD LDHi5 [NUMBER OUTPUT JMP 9A [ADJUST STACK POINTER LDAi13 #5V LDA 13 SAEi 2000 JMP 5T-6 JMP 1E-11 [ [RESTART [ [ENTER LABEL--NUMBER-LETTER #4B JMP 8S 8L JMP 1Q JMP 1Z [EOL [RETURN IS TO p+2 [ [ORIGINAL RESTART DISPLAY [ #4D JMP 7A [ONE CHAR DELETE JMP 3V [EOL JMP 3Z JMP 4F [DELETE JMP 3Y JMP 4B JMP 4C STH 3 JMP 8R+3 JMP 4D #4F JMP 4C JMP 4C JMP 4A [TEST FOR INPUT JMP 4B [NO INPUT LDAi 76 STHi3 [CHECK FOR LEGAL INPUT SET 13 8N LDHi13 [NUMBER JMP 8F JMP 4B LDHi13 [LETTER ADAi -23 APO JMP 4B [NOT LETTER ADAi -32 APO i JMP 4B [NOT LETTER [ [NEW PROGRAM COUNTER CONTENTS AT LOCATION [[32*NUMBER + LETTER -24]*3|2 [EACH LABEL HAS 18 BITS FOR TARGET CODE LOCATION [9 FOR BLOCK, 9 FOR WORD [ #4W SET 4 8N LDHi4 ROL1 SETi1 4V STA 1 [MULT BY 10 ROL 2 ADM 1 LDH 4 [MULT BY 20 ROL 4 ADM 1 LDHi4 [ADD LETTER RELATIVE VALUE ADAi -24 ADM 1 ROL1 ADM 1 [MULT BY 3 ROR1 [DIV BY 2 ADAi 2000 STC 1 UMB 2 [PC1 [GET 1ST CHAR JMP 4U [CHECK FOR UNDEFINED AZEi APOi JMP p+3 UMB 1 JMP 4B [GET 3 BITS OF NEXT CHAR BCLi 7 ROR3 STA 1770 [PC2 [GET CHAR JMP 4U [GET NEXT CHAR [CLEAR HIGH ORDER 3 BITS BCLi 7000 STA 1771 [EMPTY STACK BEFORE RETURN LDAi 3777 STC 1766 UMB 1 [READ IN RESTORE PROGRAM RDCu 2675 JMP 1200 #4V [LABEL WORKSPACE #8N [FLAG FOR START OF INPUT FIELD #4U LDH 1 ROL 6 STC 8X LDHi1 ADD 8X JMP 0 [ [RESUME [ #5B RDCu 2675 JMP 1200 [ [FOR ARITH ERROR DETERMINE TYPE [ [0 AT TOP OF STACK-DIVISION BY 0 [0 IN SECOND ENTRY-UNDERFLOW [OTHERWISE OVERFLOW [REPLACE OVERFLOW WITH LARGEST NUMBER [RETURN FROM ARITH ERROR TO RUN PROC CAUSES TOP OF STACK POPPED #9O LDAi -1 [SET RETURN WHICH POPS STACK ELEMENT ADM 1754 CLR STC 9O+1 [ELIMINATE FURTHER DECREMENTING [SET POINTER TO TOP OF STACK SET 13 1766 LDA 13 APOi JMP 3O [IF IN DATA STACK JMP 3N JMP 3P-2 [IF TOP IS 0 DIVISION BY 0 JMP 8S 4J JMP 1N-3 [IF TOP ON TAPE #3O JMP 3U-1 LDAi5 AZE JMP 3P JMP 3O-3 [ADJUST POINTER LDAi13 LDAi13 #3P LDAi13 APOi JMP 3R JMP 3N [=0? JMP 3Q[OVERFLOW [IF 2ND STACK ITEM 0 HAVE UNDERFLOW JMP 8S 4K JMP 1N-3 #3N ADD 3F+1 STC p+2 LDA 0[ AZEi XSKi0 JMP 0 [STORE LARGEST NUMBER FOR OVERFLOW #3Q LDA 13 STC 5 LDA i 1777 [STORE EXPONENT STA 5 SETi3 1Y LDAi 9 [STORE 9 IN OTHER LOCATIONS STHi5 XSKi3 JMP p-2 [OVERFLOW ERROR MESSAGE JMP 8S 4L JMP 1N-3 [FOR 2ND ITEM ON TAPE #3R JMP 3U-1 LDAi5 AZE JMP 3S [OUTPUT ERROR MESSAGE JMP 3N-3 [UNDERFLOW [LOOKUP TAPE BLOCK AND READ XSKi13 #3U LDA 13 BCLi 7400 ADAi 3000 STC 5 LDAi13 BCLi 7000 ADAi 6000 STC p+2 RDCu #3T 0[READ SYMTAB JMP 0 [PUT LARGEST NO ON TAPE #3S CLR ADD 5 ADD 7N STC p+4 ADAi 1777 [LOAD EXPONENT STA 0[ CLR ADAi 9 [LOAD DEIGITS STH 5 SETi3 1Y+1 STHi5 XSKi3 JMP p-2 LDA 3T STC p+2 [WRITE TO TAPE WRC 0[TAPE LOCATION JMP 3R-3 [MESSAGE [JMP TO 7A FOLLOWED BY MESSAGE TO BE DISPLAYED [MESSAGE WILL BE CENTERED VERTICALLY [EOL STARTS NEW LINE [77 ENDS MESSAGE [RETURNS WHEN KEY STRUCK WITH KBD CHARACTER IN ACC [USES REGS 1,2,3 #7M 0[VERT #7A LDA 0 STC 7G STC 1A-1[CLR CASE [DISPLAY SECTION [ SETi2 8M-4000 [RESET VERT COORD LDA 7M STAi #7C XXX[VERT [RESET HORIZ COORD #7I SETi1 0 #7J LDHi2 JMP 3Z [TEST EOL JMP 7K SHDi 7700 JMP 7L ROL1 ADAi 6A STC 4 ADD 7C DSC 4 DSCi4 LDAi 4 ADD1 STC 1 JMP 7J [LOWER VERT COORD #7K LDAi -40 ADM 7C JMP 7I [ENDp CHECK FOR KST #7L KST JMP 7A+4 KBD ADD 1A-1 SAEi 23 JMP p+5 LDAi 44 [CASE ADDS 44 TO NEXT CHARACTER STC 1A-1 JMP 7A+4 STC 1A-2 STC 1A-1 ADD 1A-2 #7G 0[RETURN JUMP 0[SAVE KEY HIT 0[SAVE CASE INDICATOR #1A 0000[HOLDS INTERNAL FLOATING POINT 0000 0000 0000 0000 [ [DECIMAL INPUT ROUTINE [ [CHAGES FROM ANY FORTRAN FORMAT TO [S.XXXXXXXXESXXXX [ #9I LDAi 4000 STC 1A-1 LDHi13 JMP 8I+10 #9E SETi2 1A-4000 SET 13 8N [ [INITIALIZE FOR CONSTANT STARTING WITH DIGIT [ #8I JMP 9J [CHECK FOR SIGN SHDi 1700 JMP 9I [PLUS IGNORED SAEi 20 APO LDHi13 JMP 8F JMP 7F+5 [IGNORE LEADING ZEROS AZE JMP 7E LDHi13 JMP p-3 [NON ZERO DIGITS #7E JMP 8F JMP 7H-11 XSKi 4[DEC COUNT STHi 2 LDHi 13 XSKi6 JMP 7E [IF MORE DIGITS BEFORE DEC POINT THAN PRECISION OF NUMBERS #7F JMP 8F JMP p+13 XSKi 4 LDHi 13 JMP 7F SAEi 64 JMP 9C+2 LDHi13 JMP 8F JMP 9C+2 JMP 8K [TEST FOR DECIMAL POINT SAEi 64 JMP 5C[END CLR ADD 6 SAEi 1Y JMP p+2 JMP 7D #7H LDHi 13 JMP 8F JMP 5C [SEE IF EXTRA DIGITS XSK 6 JMP p+5 [FOR EXTRA DIGITS AFTER DEC POINT IGNORE #5I LDHi13 JMP 8F JMP 5J JMP p-3 [OTHERWISE STORE STHi 2 XSKi6 JMP 7H JMP 5I #5C XSK 6 JMP p+2 JMP 5J CLR [TEST FOR 0 ADD 6 SAEi 1Y JMP p+2 JMP 7Q [OTHERWISE FILL WITH BLANKS CLR STHi 2 XSKi6 JMP p-3 [TEST FOR E #5J LDH 13 SAEi 30 [IF NOT THEN NO DONE JMP 5L LDHi 13 [MINUS SIGN SHDi 1700 JMP p+7 [PLUS SIGN SHDi 2000 JMP p+4 [BLANK SAEi 14 JMP p+3 STC 9C LDHi 13 JMP 8F [IF NOT DIG ERROR JMP 9C+2[ERROR STA 5 #7O LDHi 13 JMP 8F [WHEN EXP DONE JMP 5M LDA 5 ADM 5[MULT 2 JMP 9S[OVERTEST STA 7R ADM 5 JMP 9S ADM 5[MULT 8 JMP 9S LDH 13 ADD 7R ADM 5 JMP 9S JMP 7O #5M JMP 5X LDA 5 [FIND IF NEG EXP SRO 9C COM ADD 4 JMP 9S STA 7R [TEST FOR OVERFLOW SCR 12 AZE JMP 9C+2[ERROR ADD 7R BCLi 4000 ADM 1A-1 STA 5 JMP 9C+3 #5L JMP 5X CLR JMP p-20 #9S OVFi JMP 9C+2[ERROR JMP 0 #7R 0[SAVE AREA [ENTRY FOR LEADING DECIMAL POINT #8J JMP 9F JMP 8K #7D CLR ADD 7N STC 9F LDHi13 #8K AZE JMP p+6 [SUBT FOR LEADING 0 ADD 4 ADAi #7N -1 STC 4 JMP 7D JMP 8F JMP 7P JMP 7H+3 #7P CLR ADD 9F AZEi JMP 9C+2[ERROR #7Q CLR ADAi 2000 STC 1A STHi2 XSKi6 JMP p-2 JMP 9C+1[FINISH #9J CLR STAi2 STC 1A-1 SET 5 2 SETi6 1Y STC 4 STC 9C STC 9F LDHi 13 JMP 0 1Y=-10 #8F ADAi -11 APO XSKi0 LDH 13 JMP 0 #5X LDH 13 SHDi 7600 JMP 0 JMP 9C+2 #9F 0[FLAG FOR 0 #9C 0 [SIGN FLAG JMP 9C+3 [ILLEGAL INPUT JMP 1C [FOR LEGAL INPUT SETi5 1A+4000 LDA 1A STC 1A-1 JMP 9A JMP 2I-1 [ [DECIMAL OUTPUT ROUTINE [ [OUTPUTS DIGITS [CONVERTS EXPONENT TO DECIMAL #9A LDA 0 [SAVE RETURN STC 1L-1 JMP 4C JMP 8T LDHi5 AZE JMP p+3 STHi3 JMP 1L-1 LDAi -4000 ADM 5 [LOAD EXPONENT LDA 1A-1 [CHECK TO SEE IF MINUS APOi JMP p+7 BCLi 4000 STC 1A-1 [INSERT MINUS SIGN IF NEEDED LDAi 17 STHi3 SETi4 1Y LDAi 64 [INSERT DECIMAL POINT STHi3 [WRITE OUT DIGITS LDHi5 STHi3 XSKi4 JMPp-3 LDAi 30 STHi3 CLR STC 1 STC 2 STC 4 [LOAD EXPONENT LDA 1A-1 BSEi 4000 AZEi CLR BCLi 4000 ROL1 APO [SEE IF NEG EXPONENT JMP 1B ROR1 AZEi JMP 9H+1 APO XSKi1 [FIND NUMBER 1000 ADAi -1750 APOi JMP p-4 AZEi JMP 5A+4 ADAi 1750 APO XSKi2 ADAi #9D -144 APOi JMP p-4 AZEi JMP 5A ADAi #9V 144 APO XSKi4 [FIND NO 10 ADAi #9G -12 APOi JMP p-4 AZEi JMP 5A+2 ADAi #9H 12 STC 1A-1 ADD 1 AZEi JMP 1L STHi3 LDA 2 STHi3 LDA 4 STHi3 LDA 1A-1 APO COM STHi3 0[SAVE RETURN #1L LDA 2 AZE JMP 9H+10 LDA 4 AZE JMP 9H+13 JMP 9H+14 [INSERT MINUS FOR EXPONENT #1B LDAi 17 STHi3 LDA 1A-1 ROL1 COM BCLi 1 JMP 0 [FOR EXACT DIV BY 100 #5A XSKi2 JMP 9H+1 [FOR EXACT DIV BY 10 XSKi4 JMP 9H+1 [FOR EXACT DIV BY 1000 XSKi1 JMP 9H+1 [ [TEST FOR DELETE [ #3Y SAEi 13 XSKi0 JMP 0 [ [TEST FOR EOL [ #3Z SAEi 12 XSKi0 JMP 0 [ [OUTPUTS TEXT FROM LOCATION FOLLOWING JMP 8S [FIRST CHARACTER IS NUMBER OF TEXT CHARACTERS #8S SETi3 8M-4000 LDA 0 ADAi -6000 STC p+2 LDA 0[TEXT ADDRESS STC 4 XSKi0 ADD 0 STC 8R-1 LDH 4 COM STC 5 LDHi4 STHi3 XSKi5 JMP p-3 0[RETURN [ [OUTPUTS DISPLAY TERMINATOR--8R+6 [ [+OUTPUTS INPUT DISPLAY MARGIN-8R+3 [+SAVES INPUT POINTER-8R #8R LDA 3 STC 8N LDAi 76 STHi3 LDAi 77 STHi3 JMP 0 [ [OUTPUTS EOL [ #8T LDAi 12 STHi3 JMP 0 [ [ONE CHARACTER DELETE [ [SUCCESSFUL RETURN TO LOCATION BEFORE JUMP 3V #3V SAEi 57 JMP 0 LDA 0 ADAi -2 STC 3W JMP 4C JMP 4C JMP 4A JMP 3W-1 STC 3 JMP 8R+3 #3W[STORE RETURN [ [TESTS INPUT POINTER AGAINST SAVED POINTER [ #4A LDA 3 SAE 8N AZEi JMP 0 ADD 4C+3 XSKi0 JMP 0 JMP 0 [BACKSPACES ONE #4C STC p+6 ADD 3 ADAi -4000 STC 3 LDAi 0[SAVE VALUE JMP 0 [$1Q-4 LDA i 76 STH i 3 JMP 0 [ARTIFICIAL DISPLAY STATE [RETURN IS TO * IF EOL INPUT [RETURN IS TO *+1 IF OTHER INPUT #1Q LDA 0 STC 1P [SAVE RETURN JMP 8R+6 [EOM OUTPUT JMP 7A [DISPLAY AND WAIT FOR INPUT STC p+5 [SAVE INPUT CHAR JMP 4C [BACKSPACE JMP 1Q-4 [OUTPUT 76 JMP 8R LDA i 0 [FIRST INPUT CHAR SET i 0 #1P 0 SAE i 0012 [EOL XSK i 0 SAE i 0012 XSK i 0 JMP 0 [RETURN $1753 540 6341 643 160 160 1177 644 643 653 0 5 -4005 3400 160 35 0 -32 6 5 7400 5 $2001 [GRID PATTERNS #6A 4136 3641 2101 0177 4523 2151 4122 2651 2414 0477 #6C 5172 0651 1506 4225 4443 6050 5126 2651 5122 [9 3651 4020 2055 4020 [DEL 2055 0000 0000 0101 0126 3700 3424 0404 0404 0404 0437 0000 0077 3614 1436 4020 [CASE 2055 4477 7744 #6B 5177 2651 4136 2241 4177 3641 4577 4145 4477 4044 #6G 4136 2645 1077 7710 7741 0041 4142 4076 1077 4324 #6L 0177 0301 3077 7730 3077 7706 4177 7741 4477 3044 #6Q 4276 0376 4477 3146 5121 4651 4040 4077 0177 7701 #6V 0176 7402 0677 7701 1463 6314 0770 7007 4543 [Z 6151 0404 [META 0404 2504 0416 4020 [? 2055 [CASE,SPACE #6F 1212 1212 0107 0107 0500 0006 0001 0000 4577 7745 4177 0000 0101 [_ 0101 [CASE,CASE 0070 [" 0070 [CASE,A 0700 [; 0700 [CASE,B 2410 [< 0042 [CASE,C 4200 [> 1024 [CASE,D 0000 [] 7741 [CASE,E 2050 [* 0050 [CASE,F 0700 0707 [ [ERROR TABLE [ #8U 0[NOT DEFINED 4N 4O 4P 4Q 4R 4S 4T #4N "-STACK OVERFLOW ; #4O "ITRANSFER TO UNDEFINED LABEL ; #4P "DILLEGAL RETURN OR NEXT ; #4Q " INTERRUPT ; #4R "8ERROR 5 ; #4S "8ERROR 6 ; #4T "+ILLEGAL OP CODE ; #4J "|DIVISION BY ZERO ; #4K " UNDERFLOW ; #4L "9OVERFLOW ; #8L 5630 "NTER LABEL AT WHICH COMPUTATION IS TO RESUME :; #5S "-STACK CONTENTS ; #5D " STACK EMPTY; 7714 ; #5N "7LINKAGE; #5P 5630 "NTER THE NAME OF THE VARIABLE TO BE CHANGED :; #5Q "p OLD VALUE IS ; #8E 2112 "ENTER NEW VALUE :; #3E "CTRACE MODE TURNED ON; 1277 #8G "DTRACE MODE TURNED OFF; 1277 #1H "BCURRENT SOURCE LINE= ; #1G "7ENTER; 1413 [SET UP DIGIT INSERT #1I "Q 0 LAP6 1 CHANGE 2 EXAMINE STACK ; #1J "K3 TRACE 4 RESTART 5 RESUME; 7714 #8M 1414 [LAP6GRID [DEBUG PACKAGE [MAY 1,1970 [RICHARD BROWN