; 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.:ENDOFL:NEWPAG:RECURS:INSYMB-$10 $10: .FCTR SY:PAS/LB:ERROR: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:OPENFI:PROGRA-$30 $30: .FCTR SY:PAS/LB:P11INI:P11WTT:NXTCHR:ERRMES:INCLUD-$40 $40: .FCTR SY:PASLIB/LB:P11EXI:DATETM:GCML:RUNCHK:P11DFA:P11RES ; C: .FCTR BLCK-BL-*(DECL-D,BD-*(NEW,STM2,STM3,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-$50 $50: .FCTR SY:PAS/LB:LABELD:CONSTD:TYPEDE:VARDEC-$60 $60: .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:DOSELE:LOADST-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:WITHST-SY:PASLIB/LB ; STM3: .FCTR STMNT3-SY:PAS/LB:ASSIGN:FORSTA:STORE:GOTOST-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