Directory of image this file is from
This file as a plain text file
PPPPPPPP AAAAAA TTTTTTTTTT CCCCCC HH HH PPPPPPPP AAAAAA TTTTTTTTTT CCCCCC HH HH PP PP AA AA TT CC CC HH HH PP PP AA AA TT CC CC HH HH PP PP AA AA TT CC HH HH PP PP AA AA TT CC HH HH PPPPPPPP AAAAAAAAAA TT CC HHHHHHHHHH PPPPPPPP AAAAAAAAAA TT CC HHHHHHHHHH PP AA AA TT CC HH HH PP AA AA TT CC HH HH PP AA AA TT CC CC HH HH PP AA AA TT CC CC HH HH PP AA AA TT CCCCCC HH HH PP AA AA TT CCCCCC HH HH EEEEEEEEEE SSSSSSSS EEEEEEEEEE SSSSSSSS EE SS EE SS EE SS EE SS EEEEEEEE SSSSSS for P A S C A L - S EEEEEEEE SSSSSS February, 1983 P.A.S. EE SS EE SS EE SS EE SS EEEEEEEEEE SSSSSSSS EEEEEEEEEE SSSSSSSS
S I N G L E -- Q U O T E : Changes made in source file PASCAL.PA Also, an optional patch to remove the '#' unequal sign, if desired. 07400 0173 CAPOS, AND [77 07401 4467 LOAD 07402 3064 DCA K 07403 7410 SKP 07404 4470 LBL2, NEXTCH 07405 1033 TAD CHAR 07406 1377 TAD (-"' //MOEDLING HAD (-"" HERE; //NOW SINGLE-QUOTE IS WANTED. 07407 7640 SZA CLA 07410 5216 JMP .+6 07411 4470 NEXTCH 07412 1033 TAD CHAR 07413 1377 TAD (-"' //( SAME CHANGE: CHECK FOR '' ) 07414 7640 SZA CLA 07415 5230 JMP LBL3 07577 7531 P A S C A L - S PAL8-V12A 26-FEB-83 PAGE 55 /TABLE OF S P E C I A L S Y M B O L S / /ONE ENTRY FOR EACH ASCII CHARACTER: / =0 ... FOR ILLEGAL CHAR'S / >0 ... (=SYMBOL VALUE) FOR SINGLE SPECIAL CHAR'S / <0 ... (=JMP TO ROUTINE) FOR DOUBLE CHAR'S, COMMENTS OR STRINGS 6125 CHARTABLE=. /SPACE ! " # $ % & ' ( ) * + , - . / 36125 0000 0 36126 0000 0 36127 0000 0000 // DISALLOW DOUBLE-QUOTE Febr. 1983 36130 0016 NEQ // 0000 HERE WOULD DISABLE '#' 36131 0000 0 36132 0000 0 36133 0013 ANDSY 36134 5706 JMPAPOS // ENABLE SINGLE-QUOTE Febr. 1983 36135 5266 JMPLPAR 36136 0024 RPARENT 36137 0007 TIMES 36140 0005 PLUS 36141 0027 COMMA 36142 0006 MINUS 36143 5257 JMPPER 36144 0011 RDIVSY
XLIST PAL8-V12A 27-JAN-83 PAGE 1 EJECT P A S C A L - S ENPUNCH / IF YOU WANT A BINARY / PATCH TO RANDOMIZE PASCAL-S 'RANDOM' / COULD BE POKED IN WITH FUTIL. / / THIS VERSION FOR E T O S . / / ANOTHER FOLLOWS, FOR OMNI-8. A STAND-ALONE SYSTEM / WITH REAL-TIME CLOCK COULD DO SIMILAR THINGS. 0000 FIELD 0 6000 *START 06000 4336 JMS INIRAN /REPLACES 7300 6136 *C400+1 06136 0000 INIRAN, 0 /FREE: 6136--6157 06137 7301 CLA CLL IAC /'TAD (TOD' 06140 7421 MQL 06141 1352 TAD INIRN /POINT TO LOCN.-1 06142 6200 6200 /TRANSFER 4 TIME-WORDS 06143 1753 TAD I INIRN1 /GET HIGH MANTISSA 06144 7041 CIA /MAKE PLUS (MAX. 1130(8)) 06145 7106 CLL RTL 06146 7132 STL RTR /SET BIT 1 (NORMALIZE) 06147 3753 DCA I INIRN1 06150 3754 DCA I INALFA /CLEAR 4TH TIME-WORD OUT 06151 5736 JMP I INIRAN /...FROM POOR 'ALFA' 06152 2105 INIRN, RN 06153 2106 INIRN1, RN+1 06154 2111 INALFA, ALFA / ASSEMBLED THUS: (A) FILE WITH XLIST AND NOPUNCH / (B) PASCAL.PA (C) THIS FILE. PASCAL.PA HAS NO FINAL / DOLLAR SIGN, WHICH IS LUCKY FOR US. USE /S TO SUP- / PRESS THE LONG SYMBOL TABLE LISTING. / TIME-SHARING SYSTEMS USUALLY HAVE THEIR OWN WAY / OF HONORING BREAK REQUESTS (^C, ETC.). THE / FOLLOWING WILL SAVE TIME: 2156 *XBREAK+1 02156 7000 NOP /KILL 'KSF' (6031)
XLIST PAL8-V12A 05-FEB-83 PAGE 103-1 EJECT XLIST / LIST PSCLRO.PA ENPUNCH / IF YOU WANT A BINARY / PATCH TO RANDOMIZE PASCAL-S 'RANDOM' / COULD BE POKED IN WITH FUTIL. / / THIS VERSION FOR O M N I - 8 . / / A STAND-ALONE OS/8 SYSTEM WITH / REAL-TIME CLOCK COULD DO SIMILAR THINGS. 0000 FIELD 0 6000 *START 06000 4336 JMS INIRAN /REPLACES 7300 6136 *C400+1 06136 0000 INIRAN, 0 /FREE: 6136--6157 06137 7300 CLA CLL /PROB. NOT NEEDED 06140 1353 TAD INIRN1 /POINT TO LOCATION 06141 6101 6101; 1 / TRANSFER 4 TIME-WORDS 06142 0001 06143 1753 TAD I INIRN1 /GET TICKS 06144 7002 BSW /1100 MAX. 06145 1754 TAD I INALFA /1130 NET MAX. 06146 7106 CLL RTL /DON'T LOSE LOWER BITS 06147 7132 STL RTR /SET BIT 1 (NORMALIZE) 06150 3753 DCA I INIRN1 06151 3754 DCA I INALFA /CLEAR 4TH TIME-WORD OUT 06152 5736 JMP I INIRAN /...FROM POOR 'ALFA' 06153 2106 INIRN1, RN+1 06154 2111 INALFA, ALFA / ASSEMBLY: (A) FILE WITH XLIST AND NOPUNCH / (B) PASCAL.PA (C) THIS FILE. PASCAL.PA HAS / NO '$' SIGN, WHICH HELPS. USE /S TO SUPPRESS / THE LONG SYMBOL TABLE LISTING. / TIME-SHARING SYSTEMS: SAVE THE 'KSF' OVERHEAD: 2156 *XBREAK+1 02156 7000 NOP /REPLACES 6031 / P.A.S. 5-FEB.-1983