// PAL0 LAST MODIFIED ON FRIDAY, 12 JUNE 1970 // AT 5:37:14.04 BY R MABEE >>> FILENAME 'PAL0' // // ************ // * * // * PAL0 * // * * // ************ / >>> GET 'PALHD' >>> EJECT // PAL0 LET PAL() BE $(1 CONTROL(OUTPUT,3) WRITES( '*TPAL MK 5 ENTERED*N' ) CONTROL(OUTPUT, 2) $( LET A=CAE() CONTROL(OUTPUT,3) WRITES('*TSYNTAX TREE SIZE = ') WRITEN(STORAGET - AETREEP) WRITECH(OUTPUT, '*N') UNLESS TREE=0 DO $( CONTROL(OUTPUT, -1) WRITES('SYNTAX TREE:*N*N') PLIST(A, 0, TREE) WRITECH(OUTPUT, '*N') $) CONTROL(OUTPUT, 3) IF COMPERROR LOGOR NCODE DO RETURN PARAMNUMBER := 0 IF LISTING DO $( CONTROL(OUTPUT, -1) WRITES('THE POCODE IS:*N') $) $( LET N = NEXTPARAM() EOPLEVEL := LEVEL() SSP, MSP := 0, 1 OUTOP(M_SETUP); OUTP(N) TRANSLABELS(A) TRANS(A, VAL) UNLESS SSP=1 DO WRITES('*N*N*T****** SSP ERROR*N') OUTPSOP(N, EQU, MSP) EOP: IF LISTING DO $( WRITECH(OUTPUT,'*N'); CONTROL(OUTPUT,3) $)1