.NAME NULL, NODSK ; ; THESE ARE THE APL USER READ-WRITE DATA AREAS ; .NAME APLDF0, GBL .NAME APLDF1, GBL .NAME APLDF2, GBL .PSECT DEF$0, RW, D, GBL, OVR .PSECT DEF$1, RW, D, GBL, OVR .PSECT DEF$2, RW, D, GBL, OVR ; ; THESE SEGMENTS CONTAIN THE ERROR MESSAGE TEXT ; .NAME ERSEG0, GBL .NAME ERSEG1, GBL .NAME ERSEG2, GBL .NAME ERSEG3, GBL .NAME ERSEG4, GBL .NAME ERSEG5, GBL .PSECT RSXTB0, RO, D, GBL .PSECT RSXTB1, RO, D, GBL .PSECT RSXTB2, RO, D, GBL .PSECT RSXTB3, RO, D, GBL .PSECT RSXTX0, RO, D, GBL .PSECT RSXTX1, RO, D, GBL .PSECT RSXTX2, RO, D, GBL .PSECT RSXTX3, RO, D, GBL .PSECT APLTB0, RO, D, GBL .PSECT APLTB1, RO, D, GBL .PSECT APLTX0, RO, D, GBL .PSECT APLTX1, RO, D, GBL ; ; APL-11 V02-00 HAS A THREE-ROOT OVERLAY STRUCTURE, THE FIRST TWO ; CONSISTING OF CODE AND THE LAST CONSISTING OF REFRESHABLE ; (CLEAR) DATA ; .ROOT BASE1-BASE0,BASE2 BASE0: .FCTR O1-O11-O13-O14-O16-O17-O18-O19-O15 O1: .FCTR O1A-O1B O1A: .FCTR RT0-RT1-RT2-RT3-RT4-RT5-RT6-RT7 O1B: .FCTR RT8-RT9-RT10-RT11-RT12-RT13-RT14-RT15-APLDX6-DEF$0 RT0: .FCTR APLRX6/LB:ACOPY:APLEM:APLOP:APRINT:ARYSET:ASSIGN RT1: .FCTR APLRX6/LB:BINSCH:BRKCHK:CARVE:CHRTAB:CLRCOR RT2: .FCTR APLRX6/LB:CLRSI:CMDCHN:CMPRSS:CMPTRT:COMAND RT3: .FCTR APLRX6/LB:COMRT:CONVER:DOT:DYAD:DYDEXP:DYDRT RT4: .FCTR APLRX6/LB:ECHR:EMPTY:ERROR:EXEC:EXITIT:EXPR RT5: .FCTR APLRX6/LB:FIXLIN:FNEXEC:FNIDEN:FRESET:FTOI RT6: .FCTR APLRX6/LB:GETBLK:GETBYT:GETCOR:GETL:GETLIN RT7: .FCTR APLRX6/LB:GETNB:GETNXT:GETREG:GETSAM:GETSCA:INIT RT8: .FCTR APLRX6/LB:KILL:LEX:LIST:MONAD:MONRT:NAMOUT:SCAMEM RT9: .FCTR APLRX6/LB:NBRTRU:NEWLIN:NUMBER:NUMOUT:NXTIND RT10: .FCTR APLRX6/LB:OCHAR:OPNSET:OUTBLK:OUTCHR:PKILL:PRINT RT11: .FCTR APLRX6/LB:PRINTM:PUTL:READB:RESBLK:RESCHN:RESRT RT12: .FCTR APLRX6/LB:SAME:SETBIG:SPASSN:STKXTN:SUBASN RT13: .FCTR APLRX6/LB:SUBSCR:SYMBOL:TTINIT:TTOUT:VAL:WAITB RT14: .FCTR APLRX6/LB:WRITEB:LODFIL:LODOVR: RT15: .FCTR LB:[1,1]SYSLIB/LB:LOAD ;RT15: .FCTR LB:[1,1]SYSLIB/LB:AUTO ; ; OVERLAY STRUCTURE 1: THIS CONTAINS, AMONG OTHER THINGS, ; THE .PARSE, .OPFNB, .CSI1, .CSI2, ETC... CODE ; O11: .FCTR APLRX6/LB:DECNAM:GETNAM ;O111: .FCTR LB:[1,1]SYSLIB.OLB/LB:.CSI1:.CSI2 ;O112: .FCTR LB:[1,1]SYSLIB.OLB/LB:PARSE:.ODCVT-O1121-O1122 ;O1121: .FCTR LB:[1,1]SYSLIB.OLB/LB:PARSFN:PARSDV ;O1122: .FCTR LB:[1,1]SYSLIB.OLB/LB:PARSDI:DIRFND ;O113: .FCTR LB:[1,1]SYSLIB.OLB/LB:DLFNB:UDIREC:MRKDL ;O12: .FCTR LB:[1,1]SYSLIB.OLB/LB:OPFNB-O121-O122-O123 ;O121: .FCTR LB:[1,1]SYSLIB.OLB/LB:ASSLUN:RETADR:CONTRL ;O122: .FCTR LB:[1,1]SYSLIB.OLB/LB:RDWAIT:WATSET ;O123: .FCTR LB:[1,1]SYSLIB.OLB/LB:CREATE:DEL:DIRECT:MKDL O13: .FCTR APLRX6/LB:DATA-O131-O132-O133-O134 O131: .FCTR APLRX6/LB:CPIARG O132: .FCTR APLRX6/LB:CPOARG O133: .FCTR APLRX6/LB:SAVOVR O134: .FCTR APLRX6/LB:DATIME:RAD:WSPRT O14: .FCTR APLRX6/LB:FN O15: .FCTR O15A-O15B O15A: .FCTR APLRX6/LB:XERROR O15B: .FCTR APLRX6/LB:ERRMSG-*(O151,O152,O153,O154,O155,O156) O151: .FCTR ERSEG0-APLTB0-APLTX0 O152: .FCTR ERSEG1-APLTB1-APLTX1 O153: .FCTR ERSEG2-RSXTB0-RSXTX0 O154: .FCTR ERSEG3-RSXTB1-RSXTX1 O155: .FCTR ERSEG4-RSXTB2-RSXTX2 O156: .FCTR ERSEG5-RSXTB3-RSXTX3 O16: .FCTR APLRX6/LB:APLO01:SQRT O17: .FCTR APLRX6/LB:APLO02 O18: .FCTR O18A-O18B-O18C-O18D-O18E-O18F O18A: .FCTR APLRX6/LB:APLO03:MONIBM O18B: .FCTR APLRX6/LB:APLO04 O18C: .FCTR APLRX6/LB:APLO05:PUTFA:GETFA ;O18C1: .FCTR LB:[1,1]SYSLIB.OLB/LB:PUTSQ ;O18C2: .FCTR LB:[1,1]SYSLIB.OLB/LB:GETSQ O18D: .FCTR APLRX6/LB:APLO06 O18E: .FCTR APLRX6/LB:APLO07:CMDNBR:NGET O18F: .FCTR APLRX6/LB:APLO08 O19: .FCTR O19A-O19B O19A: .FCTR APLRX6/LB:BLDLST:CLSFIL:ERASEC:GETLCL:GROUPC O19B: .FCTR APLRX6/LB:GRPC:OFF:SIV:SYMLST ; ; OVERLAY STRUCTURE 2: THE MODULES IN THIS STRUCTURE ARE SMALLER ; THAN THOSE IN STRUCTURE 1 ; BASE1: .FCTR APLRX6/LB:ROOT1-O20-O21-O22-O23-O24-O25-O26 O20: .FCTR O20A-O20B O20A: .FCTR APLRX6/LB:ASSFIL:CRTFIL:DROPC:RENFIL:RUNFIL:WSID O20B: .FCTR APLRX6/LB:LIBC O21: .FCTR APLRX6/LB:EXISTS:SAVFIL:STRTUP O22: .FCTR APLRX6/LB:COPYC O23: .FCTR APLRX6/LB:CKFNSI:FNLINE:LINKIL O24: .FCTR APLRX6/LB:FNHEAD:FNEND O25: .FCTR APLRX6/LB:ERASE:GLBSCH O26: .FCTR O27-O28-O29A-O29B-O29C O27: .FCTR APLRX6/LB:TTYPE O28: .FCTR APLRX6/LB:LISTER O29A: .FCTR APLRX6/LB:APLO09 O29B: .FCTR APLRX6/LB:APLO10:ENDL O29C: .FCTR APLRX6/LB:APLO11 ; ; THIS IS THE DATA OVERLAY STRUCTURE: APL NEEDS TO BE ABLE TO ; REFRESH (I.E., RE-INITIALIZE) IT'S INTERNAL DATA AREAS WHENEVER ; THE USER DOES A )CLEAR COMMAND ; BASE2: .FCTR APLDF1-DEF$1-(BASE2A,NULL) BASE2A: .FCTR APLDF2-DEF$2 .END