1 /8K FOCAL-8 (PDP-8/E) 2 /DEC-8E-LF8KA-A-LA 3 4 /OCTOBER 1971 RM/SM 5 6 /COPYRIGHT 1971 DIGITAL EQUIPMENT CORPORATION 7 / MAYNARD, MASSACHUSETTS 01754 8 9 /EXTENDED MEMORY OVERLAY FOR FOCAL-8 10 /CAUSES USER TEXT TO BE STORED IN 11 /FIELD 1 AND VARIABLES IN FIELD 0 12 13 /ASSEMBLY INSTRUCTIONS: 14 /.R PAL8 OR .R PAL10 15 /*8K,8K_8K,FOCAL8,FLOAT 16 17 /ASSEMBLY WITH PAL8 MAY YIELD UO ERRORS ON PASS 1 18 /THESE MAY BE IGNORED 19 20 21 22 23 CDF=6201 24 25 T=10 26 27 P=0 28 29 FIELD 0 30 31 32 LINE0=100 33 *PC 34 000022 0000 0 35 *LASTV 36 000031 3140 COMEIN 37 *BUFR 38 000060 0132 LINE1 39 *COMBUF 40 000132 0010 10 41 *CFRS 42 000133 0100 LINE0 /START OF TEXT 43 *ENDT 44 000135 0132 LINE1 45 *167 46 000167 2564 DPC, ROT+5 /PC 47 000170 6160 DTHIS, THISD /THISLN 48 000171 6165 DPT1, PT1D /PT1 49 000172 7560 DXRT, XRTD /(TAD I XRT) 50 000173 7565 DAXIN, AXIND /(DCA I AXIN) 51 000174 2572 DAXOUT, AXOUTD /(TAD I AXOUT) 52 *START+2 53 000201 7000 NOP 54 55 *COMBOT 56 000226 0100 LINE0 57 58 *SRETN-4 59 000255 4573 JMS I DAXIN /(DCA I AXIN) 60 61 *INPUTX+2 62 000273 4567 JMS I DPC /TAD I PC 63 *DGRP1-3 64 000436 4572 JMS I DXRT /TAD I XRT IN OTHER D.F. 65 66 *DGRP1+4 67 000445 4567 JMS I DPC /PC 68 69 *.+7 70 000455 4571 JMS I DPT1 /TAD I PT1 IN OTHER DATA FLD. 71 72 *DOONE-3 73 000460 4571 JMS I DPT1 74 75 *WALL-3 76 000661 4571 JMS I DPT1 /TAD I PT1 77 78 *WALL 79 000664 4571 JMS I DPT1 80 *WTEST2-1 81 000652 4570 JMS I DTHIS /TAD I THISLN 82 *SCONT-3 83 001265 4573 JMS I DAXIN /(DCA I AXIN) 84 *GS1+1 85 001440 1134 TAD END 86 *RETRN 87 001563 7000 NOP 88 *DOK-4 89 002105 6211 CDF T 90 *ERV-1 91 002216 6211 CDF T 92 002217 3533 DCA I CFRS /LEAVE THE VARIABLES ALONE 93 002220 6201 CDF P 94 *ERG+4 95 002231 4570 JMS I DTHIS /TAD I THISLN 96 002232 4563 TSTGRP 97 002233 5177 JMP START 98 002234 4570 JMS I DTHIS 99 100 *ERVX 101 002237 1134 TAD END 102 *GET3 103 002345 4574 JMS I DAXOUT /(AXOUT) 104 *FINDN+5 105 002253 4572 JMS I DXRT 106 *FEND3-5 107 002262 4570 JMS I DTHIS 108 *XENDLN+1 109 002361 6211 CDF T 110 *XENDLN+14 111 002374 6201 CDF P 112 002375 5760 JMP I XENDLN 113 *PACX 114 002530 6201 CDF P 115 116 *PCK1+4 117 002541 4573 JMS I DAXIN 118 002542 3061 DCA ADD /CLEAR 119 002543 7100 CLL 120 002544 1123 TAD C200 121 002545 7001 IAC 122 123 *ROT+5 124 002564 0000 0000 /PC 125 002565 6211 CDF T 126 002566 1422 TAD I PC 127 002567 6201 CDF P 128 002570 5764 JMP I ROT+5 129 *2572 130 002572 0000 AXOUTD, 0000 131 002573 6211 CDF T 132 002574 1417 TAD I AXOUT 133 002575 6201 CDF P 134 002576 5772 JMP I AXOUTD 135 136 *RECOVR+10 137 002750 6201 CDF 138 139 *RECOVX+6 140 002767 4567 JMS I DPC 141 142 *RUB3-10 143 003020 6211 CDF T 144 145 *TDUMP 146 003052 1134 TAD END 147 148 *TDUMP+10 149 003062 5716 JMP I OP+1 150 151 *OP 152 003115 0003 0003 153 003116 7572 TDUMPX 154 155 156 157 158 *6160 /UNDER "OUTDG" 159 160 006160 0000 THISD, 0000 161 006161 6211 CDF T 162 006162 1423 TAD I THISLN 163 006163 6201 CDF P 164 006164 5760 JMP I THISD 165 166 167 006165 0000 PT1D, 0000 168 006166 6211 CDF T 169 006167 1430 TAD I PT1 170 006170 6201 CDF P 171 006171 5765 JMP I PT1D 172 173 174 *PRNT8-2 /PATCH TO LIBRARY COMMAND 175 007525 6212 CIF T /TO SAVE C(BUFR) 176 007526 5757 JMP I DLIB 177 178 *7557 /UNDER "LIBRARY" 179 180 007557 0120 DLIB, DLIB8 /LINK FOR 8K L-COMMAND 181 182 007560 0000 XRTD, 0000 183 007561 6211 CDF T 184 007562 1411 TAD I XRT 185 007563 6201 CDF P 186 007564 5760 JMP I XRTD 187 188 189 007565 0000 AXIND, 0000 190 007566 6211 CDF T 191 007567 3410 DCA I AXIN 192 007570 6201 CDF P 193 007571 5765 JMP I AXIND 194 195 007572 6211 TDUMPX, CDF T 196 007573 3776 DCA I .+3 197 007574 6201 CDF P 198 007575 5777 JMP I .+2 199 007576 0004 0004 200 007577 3063 TDUMP+11 201 202 203 204 FIELD 1 205 206 *0000 207 010000 0000 0 /ZERO PC 208 010001 0000 0 209 010002 0000 0 /TDUMP DATA 210 010003 0000 0 211 010004 0000 0 212 010005 5051 5051 213 010006 0060 BUFR 214 010007 0132 LINE1 215 /10-77 : COMMAND INPUT BUFFER 216 217 *LINE0 /START OF TEXT 218 010100 0000 0 219 010101 0000 0 220 010102 0340 TEXT @C 8K FOCAL-8 @;*.-1 010103 7013 010104 4006 010105 1703 010106 0114 010107 5570 010110 4040 010111 0000 221 010111 4040 4040 222 010112 7715 7715 223 224 010113 6201 ST8K, CDF P /START 8K USER FILE AT THIS ADDRESS 225 010114 1007 TAD 7 226 010115 3406 DCA I 6 227 010116 6202 CIF P 228 010117 5530 JMP I RLIB 229 010120 6002 DLIB8, IOF 230 010121 1406 TAD I 6 231 010122 3007 DCA 7 232 010123 6201 CDF P 233 010124 1531 TAD I RLIB+1 234 010125 3130 DCA RLIB 235 010126 6202 CIF P 236 010127 5530 JMP I RLIB 237 010130 7600 RLIB, 7600 /RETURN TO DISK MONITOR. 238 010131 1351 XADC+6 239 240 241 LINE1=. 242 243 244 245 246 FIELD 0 247 *0000 248 000000 0000 0 249 250 NOPUNCH A 0045 ABSOL 6751 ABSOL2 6153 ABSOL3 7375 ABSOLV 5571 AC1H 0041 AC1L 0042 ACMINS 6603 ADD 0061 ADDR 0040 ADONE 6673 AF 4677 ALF1 4760 ALF2 4763 ALFZ 4755 ALGN 6570 ALIGN 6623 ALIST 1372 AMOUNT 6722 ARCALG 4732 ARCRTN 5024 ARGNXT 1723 ARTN 5000 ASHFT 6665 ASK 1202 ATEI 4465 ATES 4513 ATLIST 1570 ATSW 0056 AXIN 0010 AXIND 7565 AXOUT 0017 AXOUTD 2572 B 0046 BACK 5503 BEGIN 4371 BET1 4771 BET2 4774 BETZ 4766 BF 4702 BFX 4557 BFXX 4556 BOTTOM 0035 BUFBEG 3217 BUFFER 7470 BUFR 0060 BUFST 5531 C 0047 C100 0006 C140 2554 C144 6140 C200 0123 C260 0113 C3 5346 C5 5342 C7 5336 C9 5332 CCR 0077 CDF 6201 CEX1 6504 CEXP 6503 CF 4705 CFRS 0133 CFRSX 0137 CHAR 0066 CHIN 2155 CHRT 6133 CLCU 7427 CLF 0076 CNTR 0057 COL 1255 COMBOT 0226 COMBUF 0132 COMEIN 3140 COMEOU 3206 COMGO 1163 COMLST 0774 COMMEN 0614 CON1 5037 CSTAR 0225 D 0041 DATUM 7102 DATUMA 7252 DAXIN 0173 DAXOUT 0174 DCONP 6303 DCONT 0471 DCOUNT 6143 DDTJR 0004 DEBGSW 0026 DECON 5627 DECONV 5600 DECP 5533 DECR 5521 DELETE 4565 DF 4710 DGRP 0425 DGRP1 0441 DIG 5543 DIGIT 5713 DIGITS 0006 DIV1 5754 DIV2 6757 DIVIDE 7150 DLIB 7557 DLIB8 0120 DMDONE 7063 DMPSW 0100 DMULT 7004 DMULT4 7036 DNORM 7335 DNUMBR 5714 DO 0420 DOK 2111 DONE 2127 DOONE 0463 DOUBLE 0127 DPC 0167 DPCVPT 6302 DPN 6305 DPT 6145 DPT1 0171 DSAVE 5640 DTHIS 0170 DTST 5647 DUBDIV 7261 DUBLAD 5733 DV3 7267 DXRT 0172 E 0042 ECALL 1601 ECHOLS 1624 EFOP 0056 EFUN 1743 EFUN2 1754 EFUN3 2017 EFUN3I 0136 ELPAR 1763 END 0134 ENDFI 6243 ENDLN 4556 ENDT 0135 ENUM 1732 EPAR 1710 EPAR2 1765 ER5 4555 ERASE 2204 ERG 2225 ERL 2222 ERR2 2726 ERROR2 4566 ERROR3 4566 ERROR4 4566 ERROR5 2725 ERT 2214 ERV 2217 ERVX 2237 ESCA 2532 ETERM 1647 ETERM1 1627 ETERM2 1655 ETERMN 1644 EVAL 1613 EX1 0040 EXIT 2646 EXIT1 5034 EXIT2 5302 EXIT3 7363 EXITJ 2661 EXP 0044 EXTR 2313 F 0043 FADD 1000 FCONT 1101 FCOS 5200 FCOUNT 5535 FDIV 3000 FEND3 2267 FEXP 4620 FEXT 0000 FGET 0000 FGO2 6011 FGO3 6027 FGO4 6034 FGO5 6070 FIGO1 6221 FIGO4 6261 FINCR 1065 FINDLN 4555 FINDN 2246 FINFIN 1137 FINKP 1133 FINPUT 0131 FINT 4407 FISW 0052 FIX 6724 FIXM 6753 FLAC 0044 FLAD 6506 FLAG1 5162 FLAG2 4725 FLARG 2030 FLARGP 0125 FLDV 7107 FLEX 6525 FLGT 6467 FLIMIT 1075 FLINTP 6200 FLIST1 0577 FLIST2 0574 FLMY 6563 FLOG 5040 FLOP 1674 FLOUT 5556 FLOUTP 6000 FLPT 6465 FLSU 6505 FLTONE 2405 FLTXR 0014 FLTXR2 0015 FLTZER 2407 FM12 6142 FMUL 4000 FNEG 5163 FNOR 7000 FNPT 4554 FNTABF 0374 FNTABL 2165 FOR 1041 FOUTPU 0130 FPAC1 7474 FPNT 6400 FPOW 5000 unreferenced FPRNT 5465 FPUT 6000 FRST 3206 FRSTX 3215 FSIN 5205 FSUB 2000 FXIT 0000 G8L 4466 GECALL 1460 GEND 2334 GERR 0340 GET1 2330 GET3 2345 GETARG 1403 GETC 4545 GETLN 4554 GETSGN 1045 GETVAR 1407 GEXIT 0352 GFND1 1505 GINC 0070 GLIST 1377 GO 5021 GONE 0232 GOTO 0603 GRPTST 0744 GS1 1437 GS2 1461 GS3 1441 GS4 1454 GSERCH 1426 GTEM 0021 GZERR 0362 HINBUF 0037 HORD 0045 HREAD 6321 HREAD2 6324 HSGO 6364 HSPSW 6375 HSPX 6361 HSWITC 6343 HTST 6376 I33 2414 IBAR 0212 IECALL 1037 IF 1013 IF1 1035 IF3 1025 IGNOR 0217 ILIST 0771 IN 5513 INBUF 0034 INDEV 0064 INDRCT 6463 INFIX 2401 INLIST 0570 INORM 6307 INPUT 0756 INPUTX 0271 INSUB 0036 INTEGE 0053 INTRPT 2603 IOBUF 3120 IPART 1040 IRETN 0227 ITABLE 6573 ITER1 7470 JUMP 6462 K4 5525 KCF 6030 KINT 2625 L1 5126 L2 5131 L3 5134 L4 5137 L8A 4550 unreferenced L8AX 4553 L8AY 4552 L8B 4551 unreferenced LASTLN 0025 LASTOP 0055 LASTV 0031 LCON 0371 LG2E 4713 LIBRAR 7503 LINE0 0100 LINE1 0132 LINENO 0067 LIST3 0077 LIST6 0072 LIST7 0074 LISTGO 1370 LOG2 5157 LOG5 5142 LOG6 5145 LOG7 5150 LOG8 5153 LOOKUP 4571 LOOP01 6431 LORD 0046 LP7 7556 LPRTST 2035 M100 0101 M10PT 6147 M11 0121 M12 2413 M137 2357 M140 2556 M144 6137 M2 0111 M20 0105 M240 0114 M260 1526 M271 1527 M4 6141 M40 2356 M5 0120 M77 0103 MBREAK 2602 MCOM 1136 unreferenced MCR 0116 MD 5526 MEQ 1135 MF 0602 MFLT 0117 MIF 7260 MINE 5662 MINSKI 0051 MINUS2 7153 MINUSA 0112 MINUSE 6301 MINUSZ 5663 MOD 5215 MODIFY 1256 MP1 7254 MP2 7256 MP3 7255 MP4 7200 MP5 7253 MP6 7210 MPER 0115 MPLUS 5664 MSPACE 5665 MULDIV 7101 MULT 6566 MULT10 5667 MULT2 5715 MULTY 4752 NAGSW 0065 NEGP 4724 NORF 6513 NORM 6567 NORMF 7147 NOX 6675 NOX1 6711 NOX2 6704 O1 4370 O2 4561 O4 4412 unreferenced O5 4563 O6 4564 OM12 5530 ONE 4716 OOUT 4544 OP 3115 OPMINS 6565 OPNEXT 1622 OPTABL 1731 OPTR0 2663 OPTRI 2665 OPTRO 2664 OPUT 5532 OUT 2465 OUTA 5536 OUTCR 2476 OUTDEV 0063 OUTDG 6154 OUTL 1354 OUTX 2475 OVER1 0043 OVER2 0047 P 0000 P13 0005 P17 0107 P177 0106 P2 4566 P2000 0373 P27 6750 P277 0110 P3 2034 P337 0075 P377 2553 P40 2552 P4000 0124 P43 6310 P7 4565 P7600 0104 P77 0122 P7700 0101 P7740 0372 PA1 2524 PACBUF 2502 PACKC 4546 PACKST 0027 PACX 2530 PALG 5261 PARTES 2047 PC 0022 PC1 0614 PCHECK 5245 PCHK 0510 PCK1 2535 PD2 0534 PD3 0554 PDLXR 0013 PDP 4562 PDP5 4570 PDP5X 4463 PDP8I 4567 PEQ 6135 PER 0102 PI 5312 PI2 5036 PIOT 5316 PLCE 5536 POPA 1413 POPF 4544 POPJ 5541 PPTEN 6144 PRINTC 4551 PRINTD 7550 PRNT 2442 PRNT2 3114 PRNT8 7527 PRNTI 6132 PRNTLN 4553 PROC 0611 PROCES 0610 PSIN 0165 PT1 0030 PT1D 6165 PTCH 0126 PTEN 6275 PTEST 1457 PUSHA 4542 PUSHF 4543 PUSHJ 4540 R6 5441 RANO 1530 RAR1 6571 RAR2 6572 RDIV 0152 READC 4552 RECOVR 2740 RECOVX 2761 REMAIN 5712 REPT 6146 RESOL 6752 RESOL3 7376 RESOL5 6304 RESOLV 7173 RESTR 6377 RET 5452 RETRN 1563 RETURN 5536 REVIT 7146 RFC 6014 RLIB 0130 RND2 5527 ROOTGO 7461 ROT 2557 ROUND 6151 RTL6 4557 RUB1 3004 RUB2 3042 RUB3 3030 RUB4 3037 RUB5 3041 RUBIT 2555 SADR 6150 SAVAC 2600 SAVE 3751 SAVLK 2601 SBAR 1302 SCHAR 1273 SCONT 1270 SCOUNT 5534 SET 1041 SEX 1340 SEXC 0740 SFOUND 1306 SGOT 1312 SIGN 7124 SIGNF 0050 SIN 2662 SMIN 6136 SMP 6101 SMSP 6134 SORTB 1314 SORTC 4550 SORTCN 0054 SORTJ 4547 SPECIA 6777 SPLAT 3051 SPNOR 4560 SQCON1 7467 SQEND 7465 SRETN 0261 SRNLST 1363 ST8K 0113 unreferenced START 0177 STARTL 5064 STARTV 0060 SUBS 1517 T 0010 T1 0032 T12 4426 T2 0071 T3 0033 TABLE 6464 TAG1 6723 TASK 1204 TASK4 1252 TCRLF 1250 TCRLF2 1245 TDUMP 3052 TDUMPX 7572 TELSW 0016 TEM 5156 TEMP 4726 TEN 6271 TENPT 6152 TERMS 1770 TEST2 6736 TEST4 7366 TESTA 0322 TESTC 4564 TESTN 4561 TEXTP 0017 TGO 5400 THIR 7257 THISD 6160 THISLN 0023 THISOP 0024 TINTR 1240 TLIST 1400 TLIST2 1404 TLIST3 2377 TQUOT 1231 TRAD 6573 TSTGRP 4563 TSTLPR 4562 TWO 4721 TWOPI 5306 TYPE 1203 TYPE2 1225 UTE 2276 UTQ 2305 UTRA 2274 UTX 2316 VAL 0032 WALL 0664 WORDS 0003 WRITE 0635 WTEST2 0653 WTESTG 0667 WX 0673 X 5322 X1 5035 X2 4675 XABS 2014 XADC 1343 XCT 0020 XCTIN 0062 XDELET 2062 XDYS 1142 unreferenced XENDLN 2360 XF 4560 XFIND 2242 XGETLN 0302 XI33 2666 XIN 6306 XINPUT 5666 XINT 1160 XOUTL 2676 XPOPJ 1565 XPRNT 2425 XPUSHA 0477 XPUSHJ 0521 XRAN 1553 XRAR2 7365 XRT 0011 XRT2 0012 XRTD 7560 XRTL6 0413 XSGN 2010 XSORTC 0721 XSPNOR 1517 XSQ2 4676 XSQR 5326 XSQRT 7400 XT3 0717 XTESTC 0700 XTESTN 1533 XYZ 2451 ZERO 6520