1               / OSACOM.PA     -8-     S.F. 10-JAN-1977
   2               / DELETE POINTER TO OUTPUT FILE IF CHAINING TO RALGOL
   3               / THIS VERSION ALLOWS OPT L (LOAD).
   4               / CORRECTS CHAINING FAULT AND DELETES 2ND INPUT FILE IF ANY !
   5               / DON'T CLEAR 17600!
   6               / OVERLAY FOR ALGOL COMPILER MARK 34(M) AND 40
   7               IFDEF ERRORS <XLIST>
   8               
   9               OSSTRT=5600     / START OF OS8 ROUTINES
  10               IBUFFR=OSSTRT+400
  11               OBUFFR=IBUFFR+400
  12               HPAGE=IBUFFR+1000       / PAGES FOR HANDLERS
  13               NOPAGE=2        / THIS DEFINES NO OF PAGES
  14                               / FOR HANDLERS
  15               IFDEF ALBIN <
  16                       OPTGM=400       / ONLY CHECK G IF ALBIN
  17                       OEXTN=0102      / OUTPUT TO .AB
  18                       IEXTN=0103      / INPUT FROM .AC
  19                       OPTLOC=20; FHLOC=70; INLOC=53;
  20                       OUTLOC=63; ERROR=140; NULOUT=ERROR;
  21                       OPS=5200;
  22                       KBDCHK=OPTLOC+3 >       / DUMMY FOR NOW
  23               IFNDEF ALBIN <
  24                       OPTGM=2400      / CHECK BOTH IF OSACOM
  25                       OEXTN=0103      / OUTPUT TO .AC
  26                       IEXTN=0114      / INPUT FROM .AL
  27                       OPTLOC=60; FHLOC=77; INLOC=1203;
  28                       OUTLOC=1213;  ERROR=1457; OPS=1410 /OCTAL OUT
  29                       NULOUT=1210     / NULL OUTPUT
  30                       WAIT=1467
  31               
  32                       *1472
  33 001472  0000          0; NOP; JMP I WAIT2; NOP
     001473  7000  
     001474  5461  
     001475  7000  
  34 001476  0000  KBDCHK, 0       >
  35               
  36               IFDEF ERRORS <XLIST>
  37               NOPUNCH
  38               / NOW FOR ERROR DEFINITIONS. ERRORS OF THE FORM
  39               / OS8 ERROR AT XXXX.    XXXX DEFINED BELOW
  40 001477  5604  E1      / INPUT FILE NOT OPEN
  41 001500  5615  E2      / FAIL TO READ INPUT
  42 001501  5672  E3      / OUTPUT FILE NOT OPEN
  43 001502  5730  E4      / OUTPUT FULL
  44 001503  6053  E8      / FAIL TO WRITE OUTPUT
  45 001504  6206  E10     / DISK(XX) OR JMS FHANDLE WITH ILLEGAL NO XX
  46 001505  6340  E11     / FAIL TO CLOSE FILE
  47 001506  6427  E12     / FAIL TO ENTER FILE
  48 001507  6534  E13     / FAIL TO ENTER HANDLER. DUE TO EITHER NO SPACE
  49                       /       OR HANDLER NOT AVAILABLE
  50 001510  7041  E14     / CANNOT CHAIN AS ERROR OCCURED
  51 001511  7045  E15     / CANNOT CHAIN AS RALGOL OR ABSLDR NOT FOUND
  52 001512  7054  E16     / FAIL IN ACTUAL CHAIN
  53               
  54               / OR CAN GET HALTS
  55               / DUE TO BAD READ / WRITE OF BUFFER AREAS AT:
  56 001513  6030  E5      / WRITE
  57 001514  6035  E6      / READ
  58 001515  6043  E7      / READ
  59 001516  7207  E17     / WRITE
  60               
  61               ENPUNCH
  62               IFDEF ERRORS <XLIST>
  63               
  64                       *0
  65 000000  7230  PSAVE2, STAVE2
  66               
  67                       *OPTLOC
  68 000060  0040  OPTION, 0040    / OPTIONS SAVED HERE FOR LATER USE
  69                               / 4000 MEANS OPT T
  70                               / 2000 OPT M
  71                               / 1000 SET BY COMPILER IF EMBEDDED TEXT
  72                               /  400 OPT G
  73                               /   40 JUST TO SET TO NON ZERO TO SHOW OS8 SYS
  74 000061  6022  WAIT2,  GORUN
  75 000062  7700  USR,    7700
  76 000063  0000          0; CLA; JMP I .-2       / DUMMY KBDCHK
     000064  7200  
     000065  5463  
  77               
  78                       *FHLOC
  79 000077  6000  PFH,    FHANDL
  80               
  81                       *201
  82 000201  5400          JMP I PSAVE2
  83               
  84                       *INLOC
  85 001203  5600  PIN,    OSIN
  86               
  87                       *OUTLOC
  88 001213  5665  POUT,   OSOUT
  89               
  90               
  91                       *OSSTRT
  92 005600  5777  OSIN,  (7400   /MUST BE FIRST LOC TO SET UP AND (7400=377
  93 005601  7200          CLA; TAD IOPEN; SZA CLA
     005602  1360  
     005603  7640  
  94 005604  4776  E1,     JMS ERR0
  95 005605  2356  OSIN2,  ISZ ICCT; JMP GETON; JMS I IHNDL
     005606  5226  
     005607  4757  
  96 005610  0200          200
  97 005611  6200  IBUF,   IBUFFR
  98 005612  0000  NXIB,   0
  99 005613  7700          SMA CLA; SKP;E2, JMS ERR0; ISZ NXIB
     005614  7410  
     005615  4776  
     005616  2212  
 100 005617  7240          CLA CMA; TAD IBUF; DCA IBPTR; TAD MNCH
     005620  1211  
     005621  3353  
     005622  1231  
 101 005623  3356          DCA ICCT; TAD K10; DCA W3
     005624  1255  
     005625  3361  
 102 005626  1361  GETON,  TAD W3; SPA; JMP C3
     005627  7510  
     005630  5262  
 103 005631  7200  MNCH,   CLA; ISZ IBPTR; TAD I IBPTR
     005632  2353  
     005633  1753  
 104 005634  0377  K377,   AND (7400; CLL RAL; TAD W3
     005635  7104  
     005636  1361  
 105 005637  7006  FIX10,  RTL; RTL; DCA W3; TAD I IBPTR
     005640  7006  
     005641  3361  
     005642  1753  
 106 005643  0234          AND K377; TAD (-232; SZA CLA    / IS IT CTRL/Z?
     005644  1375  
     005645  7640  
 107 005646  5257          JMP NOTCZ; JMS SETNXB; JMP CZ; IAC      /IAC IF DEVHANDL NOT THERE
     005647  4774  
     005650  5256  
     005651  7001  
 108 005652  7440          SZA; JMS FHANDL; JMP OSIN2
     005653  4773  
     005654  5205  
 109 005655  0010  K10,    10
 110 005656  2360  CZ,     ISZ IOPEN
 111 005657  1753  NOTCZ,  TAD I IBPTR; AND K377
     005660  0234  
 112 005661  5600  INEX,   JMP I OSIN
 113 005662  3753  C3,     DCA I IBPTR; CLL CML; JMP FIX10
     005663  7120  
     005664  5237  
 114               
 115               / OS8 OUTPUT
 116 005665  0000  OSOUT,  0
 117 005666  0234          AND K377
 118 005667  3772          DCA OPBLOK; TAD OOPEN; SZA CLA
     005670  1355  
     005671  7640  
 119 005672  4776  E3,     JMS ERR0; TAD OCCT; SZA CLA
     005673  1354  
     005674  7640  
 120 005675  5304  JMPINS, JMP JMPSW;
 121 005676  1231          TAD MNCH; DCA OCCT; CMA
     005677  3354  
     005700  7040  
 122 005701  1771          TAD OBUF; DCA OBFPTR; JMP .+4
     005702  3352  
     005703  5307  
 123 005704  7000  JMPSW,  NOP; JMP CH2; JMP CH3; TAD JMPINS
     005705  5311  
     005706  5335  
     005707  1275  
 124 005710  3304          DCA JMPSW
 125 005711  1352  CH2,    TAD OBFPTR; DCA TMPTR; ISZ OBFPTR; TAD OPBLOK
     005712  3362  
     005713  2352  
     005714  1772  
 126 005715  3752  P3,     DCA I OBFPTR; ISZ JMPSW; TAD OPBLOK
     005716  2304  
     005717  1772  
 127 005720  1375          TAD (-232; SNA CLA
     005721  7650  
 128 005722  5331          JMP ATEF; ISZ OCCT; JMP OUTEX; JMS OPBLOK
     005723  2354  
     005724  5334  
     005725  4772  
 129 005726  2363          ISZ OFL; JMP OUTEX;E4, JMS ERR0
     005727  5334  
     005730  4776  
 130 005731  4772  ATEF,   JMS OPBLOK; CMA; JMS FHANDL
     005732  7040  
     005733  4773  
 131 005734  5665  OUTEX,  JMP I OSOUT
 132               
 133               
 134 005735  1772  CH3,    TAD OPBLOK; RTL;RTL; AND (7400
     005736  7006  
     005737  7006  
     005740  0377  
 135 005741  1762          TAD I TMPTR; DCA I TMPTR; TAD OPBLOK
     005742  3762  
     005743  1772  
 136 005744  7012          RTR; RTR; RAR; AND (7400
     005745  7012  
     005746  7010  
     005747  0377  
 137 005750  1752          TAD I OBFPTR; JMP P3
     005751  5315  
 138               
 139 005752  0000  OBFPTR, 0
 140 005753  0000  IBPTR,  0
 141               
 142 005754  0000  OCCT,   0
 143 005755  7777  OOPEN,  -1
 144 005756  7777  ICCT,   -1
 145 005757  6017  IHNDL,  ERR0
 146 005760  7777  IOPEN,  -1
 147 005761  0000  W3,     0
 148 005762  0000  TMPTR,  0
 149 005763  0000  OFL,    0
 150 005764  0000  FOBN,   0       / MEMORY OF FIRST OUTPUT BLOCK
 151               
 152 005771  6051          PAGE
     005772  6046  
     005773  6000  
     005774  6061  
     005775  7546  
     005776  6017  
     005777  7400  
 153 006000  0000  FHANDL, 0
 154 006001  5777          JMP STAVE; TAD MEM
     006002  1245  
 155 006003  7510          SPA; JMP CLOSE; SZA; JMP .+3
     006004  5224  
     006005  7440  
     006006  5211  
 156 006007  1376          TAD (7617; DCA PI       /REWIND
     006010  3312  
 157 006011  7110          CLL RAR; SNA CLA        /REWIND OR OPEN INPUT?
     006012  7650  
 158 006013  4261          JMS SETNXB      /YES - GO TRY
 159 006014  0010  P10,    10; JMP CLOSE; JMP FEX  /IT WORKED WITHOUT OVERLAY
     006015  5224  
     006016  5244  
 160               COUNT,
 161               HNO,
 162 006017  0000  ERR0,   0
 163 006020  3015          DCA 15; CLA CMA         / CALL OVERLAY WITH AC=7
     006021  7240  
 164 006022  1214  GORUN,  TAD P10; DCA MEM
     006023  3245  
 165 006024  4775  CLOSE,  JMS I (7607     / WRITE BUFFER AREA
 166 006025  4400          4400
 167 006026  6200          IBUFFR
 168 006027  0044          44      / TO TEMP BLOCK 44-7
 169 006030  7402  E5,     HLT
 170 006031  4775          JMS I (7607     / READ OVERLAY
 171 006032  0400          0400
 172 006033  6200          IBUFFR
 173 006034  0040          40      / FROM TEMP BLOCKS 40-43
 174 006035  7402  E6,     HLT
 175 006036  5641          JMP I PSET
 176 006037  4775  FRETRN, JMS I (7607     / READ BACK BUFFERS
 177 006040  0400          400
 178 006041  6200  PSET,   IBUFFR
 179 006042  0044          44
 180 006043  7402  E7,     HLT
 181 006044  5600  FEX,    JMP I FHANDL
 182 006045  0000  MEM,    0
 183               
 184 006046  0000  OPBLOK, 0
 185 006047  4657          JMS I OHNDL
 186 006050  4200          4200
 187 006051  6600  OBUF,   OBUFFR
 188 006052  0000  NXOB,   0
 189 006053  4217  E8,     JMS ERR0; ISZ NXOB; ISZ CFL; JMP I OPBLOK
     006054  2252  
     006055  2260  
     006056  5646  
 190 006057  6017  OHNDL,  ERR0
 191               
 192 006060  0000  CFL,    0
 193               
 194               
 195               
 196 006061  0000  SETNXB, 0
 197 006062  7200          CLA; TAD        PI; DCA PT1; TAD (INAM; DCA PT2
     006063  1312  
     006064  3341  
     006065  1374  
     006066  3342  
 198 006067  7344          CLA CMA CLL RAL; JMS MOV10; TAD INAM
     006070  4326  
     006071  1343  
 199 006072  7450          SNA; JMP I SETNXB; ISZ SETNXB
     006073  5661  
     006074  2261  
 200 006075  4314          JMS GETH; SNA; JMP I SETNXB; DCA IHNDL
     006076  7450  
     006077  5661  
     006100  3773  
 201 006101  1344          TAD INAM+1; DCA NXIB; TAD PT1; DCA PI
     006102  3772  
     006103  1341  
     006104  3312  
 202 006105  7040          CMA; DCA ICCT; DCA IOPEN; ISZ SETNXB; JMP I SETNXB
     006106  3771  
     006107  3770  
     006110  2261  
     006111  5661  
 203 006112  7617  PI,     7617
 204 006113  7600  PO,     7600
 205               
 206 006114  0000  GETH,   0
 207 006115  0367          AND (17
 208 006116  3217          DCA HNO; TAD HNO; TAD (7647-1; DCA MOV10
     006117  1217  
     006120  1366  
     006121  3326  
 209 006122  6211          CDF 10; TAD I MOV10;    CDF 0
     006123  1726  
     006124  6201  
 210 006125  5714          JMP I GETH
 211               
 212               
 213 006126  0000  MOV10,  0
 214 006127  3217          DCA COUNT; CDF 10; TAD I PT1; CDF 0
     006130  6211  
     006131  1741  
     006132  6201  
 215 006133  2341          ISZ PT1; DCA I PT2; ISZ PT2; ISZ COUNT
     006134  3742  
     006135  2342  
     006136  2217  
 216 006137  5330          JMP MOV10+2; JMP I MOV10
     006140  5726  
 217 006141  7600  PT1,    7600
 218 006142  6145  PT2,    ONAM
 219 006143  0000  INAM,   0; 0
     006144  0000  
 220 006145  0000  ONAM,   0; 0; 0; 0; 0
     006146  0000  
     006147  0000  
     006150  0000  
     006151  0000  
 221               
 222 006166  7646          PAGE
     006167  0017  
     006170  5760  
     006171  5756  
     006172  5612  
     006173  5757  
     006174  6143  
     006175  7607  
     006176  7617  
     006177  7200  
 223               
 224                       *IBUFFR
 225                       IFNDEF USR <USR=0>
 226 006200  4275  DISKIT, JMS GETUSR      / START BY LOADING USR
 227 006201  1777          TAD MEM
 228 006202  7510          SPA
 229 006203  5322          JMP CLOSIT
 230 006204  1376          TAD (-10; SMA SZA;E10,  JMS ERR1
     006205  7540  
     006206  4775  
 231 006207  1374          TAD (JMP I PGO+10
 232 006210  3211          DCA .+1
 233 006211  7402          HLT
 234               ERRDSK=E10
 235 006212  6245  PGO,    OPIN    / TRYING TO REWIND-NO FILE. GO OPEN
 236 006213  6245          OPIN    / DISK(1)=OPEN
 237 006214  6263          OPOUT
 238 006215  6236          OPBOTH  / OPEN BOTH IN AND OUT AT START
 239 006216  6206          ERRDSK
 240 006217  6206          ERRDSK
 241 006220  6206          ERRDSK
 242 006221  7112          PREROR
 243 006222  7010          CHAIN
 244               
 245 006223  4773  CALLCD, JMS MESAGE; TEXT /^OUT<IN/
     006224  3617  
     006225  2524  
     006226  7411  
     006227  1600  
 246 006230  6212          CIF 10
 247 006231  4462          JMS I USR
 248 006232  0005          5
 249 006233  0114          IEXTN   / ASSUME .AL OR .AC FOR INPUT AS DEFINED
 250 006234  6046          TLS     / ?
 251 006235  4772          JMS SAVOPT
 252 006236  1310  OPBOTH, TAD P7600; DCA PO       / RESET SETNOB SETTING
     006237  3771  
 253 006240  4770          JMS GETONAM     / TRY TO SAVE TIME LATER
 254 006241  1367  REWIND, TAD (7617
 255 006242  3766          DCA PI  / SET SETNXB TO EXAMINE INPUT FILES FROM START
 256 006243  5245          JMP OPIN
 257 006244  4765  LOADIH, JMS LOADHS      / GO LOAD HANDLERS
 258 006245  7200  OPIN,   CLA
 259                       / FORCE .AC OR .AB
 260 006246  1364          TAD (OEXTN; CDF 10; DCA I (7604; CDF 0  
     006247  6211  
     006250  3763  
     006251  6201  
 261 006252  1362          TAD (GORUN; DCA WAIT2 
     006253  3061  
 262 006254  4761          JMS SETNXB
 263 006255  5223          JMP CALLCD      / NO GOOD TRY AGAIN
 264 006256  5244          JMP LOADIH
 265               / NOW TO CHECK THAT WE ONLY OPEN OUTPUT ON FIRST DISK(1) OR (3)
 266 006257  1771          TAD PO; TAD (-7600; SZA CLA; JMP EXITFH 
     006260  1360  
     006261  7640  
     006262  5266  
 267               OPOUT,
 268 006263  4757  LOADOH, JMS SETNOB
 269               IFDEF ALBIN <JMP CALLCD>
 270 006264  5756  IFNDEF ALBIN < JMP NULL>
 271 006265  5272          JMP LOADON
 272 006266  6203  EXITFH, CDF CIF 0; JMS OUTUSR
     006267  4307  
 273 006270  5671          JMP I .+1       / DONE - CAN EXIT
 274 006271  6037          FRETRN
 275               
 276 006272  4755  LOADON, JMS GETLNAM; JMS LOADHS; JMP LOADOH
     006273  4765  
     006274  5263  
 277               
 278 006275  0000  GETUSR, 0       / LOAD USR IF NOT HERE
 279 006276  1062          TAD USR
 280 006277  7700  K7700,  SMA CLA;        JMP I GETUSR    / HERE ALREADY
     006300  5675  
 281 006301  6212          CIF 10
 282 006302  4462          JMS I USR
 283 006303  0010          10
 284 006304  1360          TAD (200; DCA USR; JMP I GETUSR
     006305  3062  
     006306  5675  
 285               
 286 006307  0000  OUTUSR, 0       / UNLOAD USR IF HERE
 287 006310  7600  P7600,  7600; TAD USR; SPA CLA; JMP I OUTUSR    / GONE ALREADY
     006311  1062  
     006312  7710  
     006313  5707  
 288 006314  6212          CIF 10
 289 006315  4462          JMS I USR
 290 006316  0011          11
 291 006317  1277          TAD K7700
 292 006320  3062          DCA USR; JMP I OUTUSR
     006321  5707  
 293 006322  7200  CLOSIT, CLA
 294 006323  1754          TAD CFL; JMS CLOSOF; JMP EXITFH
     006324  4326  
     006325  5266  
 295 006326  0000  CLOSOF, 0
 296 006327  3337          DCA SIZE; TAD ONAM; SNA ; JMP I CLOSOF
     006330  1753  
     006331  7450  
     006332  5726  
 297 006333  6212          CIF 10
 298 006334  4462          JMS I USR
 299 006335  0004          4       / CLOSE FILE OF LENGTH SIZE
 300 006336  6146          ONAM+1
 301 006337  0000  SIZE,   0
 302 006340  4775  E11,    JMS ERR1
 303 006341  5726          JMP I CLOSOF
 304               
 305 006342  0000  TYPE,   0
 306 006343  6041          TSF; JMP .-1; TLS; CLA; JMS KBDCHK; JMP I TYPE
     006344  5343  
     006345  6046  
     006346  7200  
     006347  4752  
     006350  5742  
 307               
 308 006352  1476          PAGE
     006353  6145  
     006354  6060  
     006355  6640  
     006356  7061  
     006357  6400  
     006360  0200  
     006361  6061  
     006362  6022  
     006363  7604  
     006364  0103  
     006365  6467  
     006366  6112  
     006367  7617  
     006370  6652  
     006371  6113  
     006372  6675  
     006373  6600  
     006374  5622  
     006375  7115  
     006376  7770  
     006377  6045  


 309                       EJECT
 310 006400  0000  SETNOB, 0
 311 006401  7600  K7600,  7600; JMS GETONAM
     006402  4777  
 312 006403  1776          TAD PT1; DCA PO
     006404  3775  
 313 006405  1774          TAD ONAM; SNA; JMP I SETNOB
     006406  7450  
     006407  5600  
 314 006410  2200          ISZ SETNOB; JMS GETH; SNA; JMP I SETNOB
     006411  4773  
     006412  7450  
     006413  5600  
 315 006414  2200          ISZ SETNOB; DCA OHNDL
     006415  3772  
 316 006416  4260          JMS DELONAM
 317 006417  1371          TAD (ONAM+1; DCA NAM; TAD ONAM
     006420  3225  
     006421  1774  
 318 006422  6212          CIF 10
 319 006423  4462          JMS I USR
 320 006424  0003          3       / ENTER FILE
 321 006425  6146  NAM,    ONAM+1
 322 006426  0000          0
 323 006427  4770  E12,    JMS ERR1
 324 006430  1367          TAD (OSOUT
 325 006431  3766  NULL2,  DCA POUT; TAD PO; TAD (-7605; SZA CLA
     006432  1775  
     006433  1365  
     006434  7640  
 326 006435  5240          JMP .+3; TAD NAM; DCA FOBN      / SAVE VERY FIRST BLOCK
     006436  1225  
     006437  3764  
 327 006440  1225          TAD NAM; DCA NXOB
     006441  3763  
 328 006442  1226          TAD NAM+1; DCA OFL; DCA CFL
     006443  3762  
     006444  3761  
 329               IFDEF ALBIN <JMS SAVFIL; >
 330 006445  3760          DCA OCCT; DCA OOPEN; JMP I SETNOB
     006446  3757  
     006447  5600  
 331               
 332 006450  0000  LOOKUP, 0       / LOOKUP FILE IN AR1
 333 006451  6212          CIF 10
 334 006452  4462          JMS I USR
 335 006453  0002          2
 336 006454  0000  AR1,    0
 337 006455  0000          0
 338 006456  2250          ISZ LOOKUP      / FILE NOT FOUND
 339 006457  5650          JMP I LOOKUP
 340               
 341 006460  0000  DELONAM, 0      / DELETE FILE IN ONAM IF IT EXISTS
 342 006461  1371          TAD (ONAM+1; DCA AR1; TAD ONAM; JMS LOOKUP
     006462  3254  
     006463  1774  
     006464  4250  
 343 006465  4756          JMS CLOSOF; JMP I DELONAM
     006466  5660  
 344               
 345               
 346 006467  0000  LOADHS, 0       / COME HERE TO LOAD HANDLERS
 347 006470  6212          CIF 10
 348 006471  4462          JMS I USR
 349 006472  0013          13      / RESET TABLES
 350 006473  0000          0       / PRESERVE TENTS
 351 006474  1350          TAD NPG; CMA; DCA CPG; DCA OFFSET
     006475  7040  
     006476  3347  
     006477  3344  
 352 006500  1774          TAD ONAM; JMS LIT; DCA OHNDL
     006501  4311  
     006502  3772  
 353 006503  1755          TAD INAM; JMS LIT; DCA IHNDL
     006504  4311  
     006505  3754  
 354 006506  5667          JMP I LOADHS
 355 006507  1353  LIT3,   TAD (ERR0; JMP I LIT
     006510  5711  
 356 006511  0000  LIT,    0
 357 006512  7450          SNA; JMP LIT3   / IF NO REQUIREMENT EXIT WITH ERROR ADDR
     006513  5307  
 358 006514  3346          DCA OH; TAD OH; JMS GETH; SZA; JMP I LIT
     006515  1346  
     006516  4773  
     006517  7440  
     006520  5711  
 359 006521  1345          TAD BASE; TAD OFFSET; DCA REQ; SKP
     006522  1344  
     006523  3340  
     006524  7410  
 360 006525  2340  LIT2,   ISZ REQ; TAD (200; TAD OFFSET
     006526  1352  
     006527  1344  
 361 006530  3344          DCA OFFSET; TAD OH; ISZ CPG; SKP
     006531  1346  
     006532  2347  
     006533  7410  
 362 006534  4770  E13,    JMS ERR1; CIF 10
     006535  6212  
 363 006536  4462          JMS I USR
 364 006537  0001          1       / FETCH HANDLER
 365 006540  0000  REQ,    0       / TO HERE
 366 006541  5325          JMP LIT2        / NO JOY TRY AGAIN
 367 006542  1340          TAD REQ; JMP I LIT
     006543  5711  
 368 006544  0000  OFFSET, 0
 369 006545  7200  BASE,   HPAGE
 370 006546  0000  OH,     0
 371 006547  0000  CPG,    0
 372 006550  0002  NPG,    NOPAGE
 373 006552  0200          PAGE
     006553  6017  
     006554  5757  
     006555  6143  
     006556  6326  
     006557  5755  
     006560  5754  
     006561  6060  
     006562  5763  
     006563  6052  
     006564  5764  
     006565  0173  
     006566  1213  
     006567  5665  
     006570  7115  
     006571  6146  
     006572  6057  
     006573  6114  
     006574  6145  
     006575  6113  
     006576  6141  
     006577  6652  
 374 006600  0000  MESAGE, 0
 375 006601  7300          CLA CLL; TAD I MESAGE; RTR; RTR; RTR
     006602  1600  
     006603  7012  
     006604  7012  
     006605  7012  
 376 006606  4213          JMS OUT; TAD I MESAGE; JMS OUT
     006607  1600  
     006610  4213  
 377 006611  2200          ISZ MESAGE; JMP MESAGE+2
     006612  5202  
 378               
 379 006613  0000  OUT,    0
 380 006614  0377          AND (77; SNA; JMP MESEX; TAD (-36
     006615  7450  
     006616  5230  
     006617  1376  
 381 006620  7450          SNA; JMP CRLF; TAD (-2
     006621  5234  
     006622  1375  
 382 006623  7510          SPA; TAD (100
     006624  1374  
 383 006625  1373          TAD (240; JMS TYPE; JMP I OUT
     006626  4772  
     006627  5613  
 384 006630  6041  MESEX,  TSF; JMP .-1; ISZ MESAGE; JMP I MESAGE
     006631  5230  
     006632  2200  
     006633  5600  
 385 006634  1371  CRLF,   TAD (215; JMS TYPE; TAD (212; JMP MESEX-2
     006635  4772  
     006636  1370  
     006637  5226  
 386 006640  0000  GETLNAM, 0      / RE-GET LAST NAME, ASSUMING PO MOVED ON
 387 006641  7300          CLA CLL; TAD (-7605; TAD PO; SNL
     006642  1367  
     006643  1766  
     006644  7420  
 388 006645  7200          CLA; TAD (7600; DCA PO; JMS GETONAM
     006646  1365  
     006647  3766  
     006650  4252  
 389 006651  5640          JMP I GETLNAM
 390 006652  0000  GETONAM, 0
 391 006653  1766          TAD PO; DCA PT1; TAD (ONAM; DCA PT2
     006654  3764  
     006655  1363  
     006656  3762  
 392 006657  1361          TAD (-5; JMS MOV10; JMP I GETONAM
     006660  4760  
     006661  5652  
 393               
 394               / CHECK IF OPT D ON IF FILES NOT 000000.AB OR .AC
 395               / IF IT IS, DELETE FILE.AC
 396 006662  0000  DELQ,   0
 397 006663  6211          CDF 10; DCA I (7600; DCA I (7605 / STOP RALGOL FINDING OUTPUT
     006664  3765  
     006665  3757  
 398 006666  1756          TAD I (7643; AND (400; CDF 0    / OPT D?
     006667  0355  
     006670  6201  
 399 006671  7640          SZA CLA; JMS DELONAM; ISZ DELQ; JMP I DELQ
     006672  4754  
     006673  2262  
     006674  5662  
 400               
 401 006675  0000  SAVOPT, 0
 402 006676  6211          CDF 10
 403               IFDEF ALBIN <CLA CLL CML RAR; TAD (40; DCA OPTION
 404                       / SET OPTION WORD TO 4040. BIT 0 WILL BE
 405                       / CLEARED IF DEV NOT FILE STRUCTURED
 406                       >
 407               IFNDEF ALBIN <
 408 006677  1753          TAD I (7644; RAL; AND (40       /OPT T?
     006700  7004  
     006701  0352  
 409               / THIS ROTATE PUTS OPT M TO 2000 AND OPT T TO 4000
 410 006702  7640          SZA CLA; IAC; RTR; TAD (40; DCA OPTION
     006703  7001  
     006704  7012  
     006705  1352  
     006706  3060  
 411               / NOW TO FORCE OPT A IN CASE MACROA CALLED
 412 006707  1756          TAD I (7643; RAL; CLL CML RAR; DCA I (7643      >
     006710  7004  
     006711  7130  
     006712  3756  
 413               / OPT G AND L TREATED THE SAME HERE
 414 006713  1756          TAD I (7643; AND (41; SZA CLA; TAD (400
     006714  0351  
     006715  7640  
     006716  1355  
 415 006717  1060  OP2,    TAD OPTION; AND (7740
     006720  0350  
 416 006721  3060          DCA OPTION; TAD I (7645; CDF 0  / NUMBER OPTIONS
     006722  1747  
     006723  6201  
 417 006724  7006          RTL; AND (7760; SNA; JMP .+5
     006725  0346  
     006726  7450  
     006727  5334  
 418 006730  2060          ISZ OPTION; RAL; SNL; JMP .-3
     006731  7004  
     006732  7420  
     006733  5330  
 419 006734  7200          CLA; DCA ERROR; JMP I SAVOPT
     006735  3745  
     006736  5675  
 420               
 421               IFDEF ALBIN <
 422               SAVFIL, 0       / CLEAR OPTION BIT 0 IF NON FILE
 423                       TAD NAM; SNA; TAD NAM+1; SNA CLA
 424                       CLL CML RAR; CMA; AND OPTION
 425                       DCA OPTION; JMP I SAVFIL        >
 426               
 427 006745  1457          PAGE
     006746  7760  
     006747  7645  
     006750  7740  
     006751  0041  
     006752  0040  
     006753  7644  
     006754  6460  
     006755  0400  
     006756  7643  
     006757  7605  
     006760  6126  
     006761  7773  
     006762  6142  
     006763  6145  
     006764  6141  
     006765  7600  
     006766  6113  
     006767  0173  
     006770  0212  
     006771  0215  
     006772  6342  
     006773  0240  
     006774  0100  
     006775  7776  
     006776  7742  
     006777  0077  


 428                       EJECT
 429 007000  2201  ALRNAM, FILENAME RALGOL.SV
     007001  1407  
     007002  1714  
     007003  2326  
 430 007004  1501          FILENAME MACROA.SV
     007005  0322  
     007006  1701  
     007007  2326  
 431 007010  3777  CHAIN,  DCA PO; JMS GETLNAM     / GET FIRST OUTPUT
     007011  4776  
 432 007012  1775          TAD FOBN; CDF 10; DCA I (7620
     007013  6211  
     007014  3774  
 433               IFDEF ALBIN < TAD I (7617; DCA OPTION-1 >
 434 007015  1773          TAD I (7600; DCA I (7617
     007016  3772  
 435 007017  3771          DCA I (7621; CDF 0
     007020  6201  
 436               IFDEF ALBIN <
 437                       TAD ONAM+1; TAD (-6060; SNA CLA; JMS DELONAM
 438                       TAD OPTION-1; DCA ONAM 
 439                       ISZ ONAM+4; JMS DELQ    / CHECK DELETE OF .AC
 440                       NOP; TAD OPTION; AND (400; SNA CLA
 441                       JMP EXOS8       >
 442 007021  1060  IFNDEF ALBIN <  TAD OPTION; AND (2400; SNA CLA  / OPT G OR M?
     007022  0370  
     007023  7650  
 443 007024  5255          JMP GOS8; TAD OPTION; AND K3000 / M OR MACH CODE?
     007025  1060  
     007026  0235  
 444 007027  7650          SNA CLA; JMS DELQ; TAD K4       >
     007030  4767  
     007031  1256  
 445 007032  1366          TAD (ALRNAM; DCA AR1; TAD I PNULOUT
     007033  3765  
     007034  1660  
 446 007035  3000  K3000,  DCA 0
 447 007036  1400          TAD I 0; TAD ERROR      / ERRORS?
     007037  1764  
 448 007040  7640          SZA CLA; E14, JMS ERR1  /YES!
     007041  4315  
 449 007042  7201          CLA IAC; JMS LOOKUP; SKP        / OK ITS THERE
     007043  4763  
     007044  7410  
 450 007045  4315  E15,    JMS ERR1
 451 007046  1765          TAD AR1; DCA BLOCK
     007047  3253  
 452 007050  6212          CIF 10
 453 007051  4462          JMS I USR
 454 007052  0006          6       / GO CHAIN
 455 007053  0000  BLOCK,  0
 456 007054  4315  E16,    JMS ERR1        / SHOULD NOT GET HERE!
 457 007055  4767  GOS8,   JMS DELQ; K4, 4; JMP EXOS8
     007056  0004  
     007057  5333  
 458 007060  1210  PNULOUT, NULOUT
 459 007061  1660  NULL,   TAD I PNULOUT; DCA POUT
     007062  3762  
 460 007063  1060          TAD OPTION; AND (2400; SNA CLA; JMP EXITFH
     007064  0370  
     007065  7650  
     007066  5761  
 461 007067  6211          CDF 10; TAD I (7643; AND (7377; TAD (400
     007070  1760  
     007071  0357  
     007072  1356  
 462 007073  3760          DCA I (7643; TAD (7600; DCA 14
     007074  1373  
     007075  3014  
 463 007076  7201          CLA IAC; DCA I (7600
     007077  3773  
 464 007100  1355          TAD (6060; DCA I 14
     007101  3414  
 465 007102  1355          TAD (6060; DCA I 14
     007103  3414  
 466 007104  1355          TAD (6060; DCA I 14
     007105  3414  
 467 007106  6201          CDF 0; TAD (7600; DCA PO
     007107  1373  
     007110  3777  
 468 007111  5754          JMP LOADON
 469 007112  1753  PREROR, TAD ERR0; DCA ERR1; JMP ERR1+2
     007113  3315  
     007114  5317  
 470 007115  0000  ERR1,   0
 471 007116  3015          DCA 15
 472 007117  4752          JMS MESAGE; TEXT /OS8 ERROR AT /
     007120  1723  
     007121  7040  
     007122  0522  
     007123  2217  
     007124  2240  
     007125  0124  
     007126  4000  
 473 007127  4751          JMS OUTUSR; CLA CMA; TAD ERR1; JMS OPS
     007130  7240  
     007131  1315  
     007132  4750  
 474 007133  4747  EXOS8,  JMS KBDCHK; TSF; JMP .-2; JMP 7600
     007134  6041  
     007135  5333  
     007136  5773  
 475               
 476 007147  1476          PAGE
     007150  1410  
     007151  6307  
     007152  6600  
     007153  6017  
     007154  6272  
     007155  6060  
     007156  0400  
     007157  7377  
     007160  7643  
     007161  6266  
     007162  1213  
     007163  6450  
     007164  1457  
     007165  6454  
     007166  7000  
     007167  6662  
     007170  2400  
     007171  7621  
     007172  7617  
     007173  7600  
     007174  7620  
     007175  5764  
     007176  6640  
     007177  6113  


 477                       EJECT
 478 007200  3777  STAVE,  DCA MEM; TAD (7700; DCA USR; JMS I (7607
     007201  1376  
     007202  3062  
     007203  4775  
 479 007204  4400          4400    / SAVE 4 PAGES
 480 007205  6200          IBUFFR
 481 007206  0040          40      / WHERE THEY CAN BE RECALLED
 482 007207  7402  E17,    HLT
 483 007210  1774          TAD GORUN+1     / =DCA MEM ON THAT PAGE
 484 007211  3773          DCA FHANDL+1
 485 007212  1372          TAD (FEX; DCA EXITFH+3
     007213  3771  
 486 007214  7000  CHANGE, NOP     / OR JMP FHANDL+2
 487 007215  1370          TAD (7600-1; DCA 14; TAD (-47; DCA CT
     007216  3014  
     007217  1367  
     007220  3241  
 488 007221  6211          CDF 10; DCA I 14; ISZ CT; JMP .-2
     007222  3414  
     007223  2241  
     007224  5222  
 489 007225  6201          CDF 0;  / THAT SHOULD CLEAR IN-OUT TABLES
 490 007226  3766          DCA 201 / ALSO CLEAR ANY RE-ENTRY
 491 007227  5765  SAVEX,  JMP DISKIT
 492               
 493                       / SET EXTENSION .AC OR .AB AS DEFINED
 494 007230  1364  STAVE2, TAD (OEXTN; CDF 10; DCA I (7604
     007231  6211  
     007232  3763  
 495 007233  6201          CDF 0; JMS SAVOPT
     007234  4762  
 496 007235  1227          TAD SAVEX; DCA CHANGE; DCA 201; JMP 200
     007236  3214  
     007237  3766  
     007240  5761  
 497 007241  0000  CT,     0
 498 007361  0200  $$$$$$
     007362  6675  
     007363  7604  
     007364  0103  
     007365  6200  
     007366  0201  
     007367  7731  
     007370  7577  
     007371  6271  
     007372  6044  
     007373  6001  
     007374  6023  
     007375  7607  
     007376  7700  
     007377  6045  

ALRNAM  7000
AR1     6454
ATEF    5731
BASE    6545
BLOCK   7053
C3      5662
CALLCD  6223
CFL     6060
CH2     5711
CH3     5735
CHAIN   7010
CHANGE  7214
CLOSE   6024
CLOSIT  6322
CLOSOF  6326
COUNT   6017
CPG     6547
CRLF    6634
CT      7241
CZ      5656
DELONA  6460
DELQ    6662
DISKIT  6200
E1      5604
E10     6206
E11     6340
E12     6427
E13     6534
E14     7041
E15     7045
E16     7054
E17     7207
E2      5615
E3      5672
E4      5730
E5      6030
E6      6035
E7      6043
E8      6053
ERR0    6017
ERR1    7115
ERRDSK  6206
ERROR   1457
EXITFH  6266
EXOS8   7133
FEX     6044
FHANDL  6000
FHLOC   0077
FIX10   5637
FOBN    5764
FRETRN  6037
GETH    6114
GETLNA  6640
GETON   5626
GETONA  6652
GETUSR  6275
GORUN   6022
GOS8    7055
HNO     6017
HPAGE   7200
IBPTR   5753
IBUF    5611
IBUFFR  6200
ICCT    5756
IEXTN   0114
IHNDL   5757
INAM    6143
INEX    5661 unreferenced
INLOC   1203
IOPEN   5760
JMPINS  5675
JMPSW   5704
K10     5655
K3000   7035
K377    5634
K4      7056
K7600   6401 unreferenced
K7700   6277
KBDCHK  1476
LIT     6511
LIT2    6525
LIT3    6507
LOADHS  6467
LOADIH  6244
LOADOH  6263
LOADON  6272
LOOKUP  6450
MEM     6045
MESAGE  6600
MESEX   6630
MNCH    5631
MOV10   6126
NAM     6425
NOPAGE  0002
NOTCZ   5657
NPG     6550
NULL    7061
NULL2   6431 unreferenced
NULOUT  1210
NXIB    5612
NXOB    6052
OBFPTR  5752
OBUF    6051
OBUFFR  6600
OCCT    5754
OEXTN   0103
OFFSET  6544
OFL     5763
OH      6546
OHNDL   6057
ONAM    6145
OOPEN   5755
OP2     6717 unreferenced
OPBLOK  6046
OPBOTH  6236
OPIN    6245
OPOUT   6263
OPS     1410
OPTGM   2400 unreferenced
OPTION  0060
OPTLOC  0060
OSIN    5600
OSIN2   5605
OSOUT   5665
OSSTRT  5600
OUT     6613
OUTEX   5734
OUTLOC  1213
OUTUSR  6307
P10     6014
P3      5715
P7600   6310
PFH     0077 unreferenced
PGO     6212
PI      6112
PIN     1203 unreferenced
PNULOU  7060
PO      6113
POUT    1213
PREROR  7112
PSAVE2  0000
PSET    6041
PT1     6141
PT2     6142
REQ     6540
REWIND  6241 unreferenced
SAVEX   7227
SAVOPT  6675
SETNOB  6400
SETNXB  6061
SIZE    6337
STAVE   7200
STAVE2  7230
TMPTR   5762
TYPE    6342
USR     0062
W3      5761
WAIT    1467 unreferenced
WAIT2   0061