; OVERLAY DESCRIPTION FOR "HUGE" (LARGEST SYM. TAB.) PASCAL COMPILER ; (This one will only compile 8-10 lines/sec on an RP06.) ; ; MNC - MODIFIED FOR SMALLER TASK SIZE, AND READABILITY ; .NAME ROOT .NAME INI1 .NAME INI2 .NAME INI3 .NAME COMPIL .NAME BLCK .NAME DECL .NAME DECL1 .NAME DECL2 .NAME BODYDF .NAME MODENT .NAME COPYDB .NAME COPYTR .NAME STMNT1 .NAME STMNT2 .NAME STMNT3 .NAME EXPR .NAME SELE .NAME CALLN .NAME CALLS .NAME CALLS1 .NAME CALLS2 .NAME CALLS3 ; ; MNC - Added following line to force data of P11WTT into root. See MNC ; comments in P11WTT.MAC: ; .PSECT WTTDAT, D, GBL ; .ROOT ROOT-R-*(INI1-I1,INI2-I2,INI3-I3,COMPIL-C),HEAP ; R: .FCTR WTTDAT-SY:PAS/LB:.MAIN.:ERROR:RECURS:INSYMB-$10 $10: .FCTR SY:PAS/LB:NEXTCH:SRCHSE-SY:PASLIB/LB:WRERRO-$12 $12: .FCTR SY:PASLIB/LB:P11RAR:PBOOL:EXPSET:DIVI:DIF4:EQUM:EQUM2-$14 $14: .FCTR SY:PASLIB/LB:P11CMR:P11GET:GEQ:GRT:INN:LEQ:LES:LESM-$16 $16: .FCTR SY:PASLIB/LB:LESM2:MOVM:MULI:NEQ:EQU:UNI4:WRI:WROCT ; HEAP: .FCTR SY:PAS/LB:$HEAP ; I1: .FCTR SY:PAS/LB:INITTA:INIT2:P11SWI-SY:PASLIB/LB ; I2: .FCTR SY:PAS/LB:ENTERI:ENTERS-SY:PASLIB/LB ; I3: .FCTR SY:PAS/LB:ENTERI:OPTION:NEWPAG:OPENFI:PROGRA-$30 $30: .FCTR SY:PAS/LB:P11INI:P11WTT:NXTCHR:ERRMES:INCLUD:ENDOFL-$40 $40: .FCTR SY:PASLIB/LB:P11EXI:DATETM:GCML:RUNCHK:P11DFA:P11RES ; C: .FCTR BLCK-BL-*(DECL-D,BD-*(NEW,STM1,STM2,STM3,EXP,SEL,CNS,CS)) CS: .FCTR CST-*(CS1,CS2,CS3) ; BL: .FCTR SY:PAS/LB:SKIP:BODY:HEAPMA-SY:PASLIB/LB ; D: .FCTR SY:PAS/LB:BLOCK:SIMPLE:ENTERI-SY:PASLIB/LB-*(DECL1-D1,DECL2-D2) D1: .FCTR SY:PAS/LB:LABELD:CONSTD:TYPEDE:VARDEC-SY:PASLIB/LB D2: .FCTR SY:PAS/LB:PROCED:PSERRO:EXTERN-SY:PASLIB/LB ; BD: .FCTR BODYDF-SY:PAS/LB:STATEM:EXPRES:CALL:WRITOB:MULTIP:WRITOF-$70 $70: .FCTR SY:PAS/LB:SELECT:LARGES:COMPOU:LOADAD-SY:PASLIB/LB ; NEW: .FCTR COPYTR-SY:PAS/LB:COPYTR-SY:PASLIB/LB-*(NEW1,NEW2) NEW2: .FCTR COPYDB-SY:PAS/LB:WRITER-SY:PASLIB/LB NEW1: .FCTR MODENT-SY:PAS/LB:STARTO-SY:PASLIB/LB ; STM1: .FCTR STMNT1-SY:PAS/LB:GOTOST:WITHST-SY:PASLIB/LB ; STM2: .FCTR STMNT2-SY:PAS/LB:CASEST:IFSTAT-$80 $80: .FCTR SY:PAS/LB:REPEAT:WHILES:LOOPST-SY:PASLIB/LB ; STM3: .FCTR STMNT3-SY:PAS/LB:ASSIGN:FORSTA:STORE-SY:PASLIB/LB ; EXP: .FCTR EXPR-SY:PAS/LB:LOADST-SY:PASLIB/LB ; SEL: .FCTR SELE-SY:PAS/LB:DOSELE-SY:PASLIB/LB ; CNS: .FCTR CALLN-SY:PAS/LB:CALLNS:BASE-SY:PASLIB/LB ; CST: .FCTR CALLS-SY:PAS/LB:VARIAB:GETFIL:CALLST-SY:PASLIB/LB ; CS1: .FCTR CALLS1-SY:PAS/LB:GETPUT:READRE:PACK:UNPACK-$90 $90: .FCTR SY:PASLIB/LB ; CS2: .FCTR CALLS2-SY:PAS/LB:NEW1:ABS:SQR:TRUNC:ARITHM:ROUND-$95 $95: .FCTR SY:PASLIB/LB ; CS3: .FCTR CALLS3-SY:PAS/LB:WRITEW-$100 $100: .FCTR SY:PAS/LB:ODD:ORD:CHR:PREDSU:EOFEOL:BREAKL:FORMFE-$110 $110: .FCTR SY:PAS/LB:DATETI:HALT:RUNTIM:MARKRE:SPLITR:SSIZE:TWOPOW-$120 $120: .FCTR SY:PASLIB/LB ; .END