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

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


 430                       EJECT
 431 007000  2201  ALRNAM, FILENAME RALGOL.SV
     007001  1407  
     007002  1714  
     007003  2326  
 432 007004  1501          FILENAME MACROA.SV
     007005  0322  
     007006  1701  
     007007  2326  
 433 007010  3777  CHAIN,  DCA PO; JMS GETLNAM     / GET FIRST OUTPUT
     007011  4776  
 434 007012  1775          TAD FOBN; CDF 10; DCA I (7620
     007013  6211  
     007014  3774  
 435 007015  1773  IFDEF ALBIN < TAD I (7617; DCA OPTION-1 >
     007016  3017  
 436 007017  1772          TAD I (7600; DCA I (7617
     007020  3773  
 437 007021  3771          DCA I (7621; CDF 0
     007022  6201  
 438               IFDEF ALBIN <
 439 007023  1770          TAD ONAM+1; TAD (-6060; SNA CLA; JMS DELONAM
     007024  1367  
     007025  7650  
     007026  4766  
 440 007027  1017          TAD OPTION-1; DCA ONAM 
     007030  3765  
 441 007031  2764          ISZ ONAM+4; JMS DELQ    / CHECK DELETE OF .AC
     007032  4763  
 442 007033  7000          NOP; TAD OPTION; AND (400; SNA CLA
     007034  1020  
     007035  0362  
     007036  7650  
 443 007037  5341          JMP EXOS8       >
 444               IFNDEF ALBIN <  TAD OPTION; AND (2400; SNA CLA  / OPT G OR M?
 445                       JMP GOS8; TAD OPTION; AND K3000 / M OR MACH CODE?
 446                       SNA CLA; JMS DELQ; TAD K4       >
 447 007040  1361          TAD (ALRNAM; DCA AR1; TAD I PNULOUT
     007041  3760  
     007042  1666  
 448 007043  3000  K3000,  DCA 0
 449 007044  1400          TAD I 0; TAD ERROR      / ERRORS?
     007045  1140  
 450 007046  7640          SZA CLA; E14, JMS ERR1  /YES!
     007047  4323  
 451 007050  7201          CLA IAC; JMS LOOKUP; SKP        / OK ITS THERE
     007051  4757  
     007052  7410  
 452 007053  4323  E15,    JMS ERR1
 453 007054  1760          TAD AR1; DCA BLOCK
     007055  3261  
 454 007056  6212          CIF 10
 455 007057  4422          JMS I USR
 456 007060  0006          6       / GO CHAIN
 457 007061  0000  BLOCK,  0
 458 007062  4323  E16,    JMS ERR1        / SHOULD NOT GET HERE!
 459 007063  4763  GOS8,   JMS DELQ; K4, 4; JMP EXOS8
     007064  0004  
     007065  5341  
 460 007066  0140  PNULOUT, NULOUT
 461 007067  1666  NULL,   TAD I PNULOUT; DCA POUT
     007070  3063  
 462 007071  1020          TAD OPTION; AND (2400; SNA CLA; JMP EXITFH
     007072  0356  
     007073  7650  
     007074  5755  
 463 007075  6211          CDF 10; TAD I (7643; AND (7377; TAD (400
     007076  1754  
     007077  0353  
     007100  1362  
 464 007101  3754          DCA I (7643; TAD (7600; DCA 14
     007102  1372  
     007103  3014  
 465 007104  7201          CLA IAC; DCA I (7600
     007105  3772  
 466 007106  1352          TAD (6060; DCA I 14
     007107  3414  
 467 007110  1352          TAD (6060; DCA I 14
     007111  3414  
 468 007112  1352          TAD (6060; DCA I 14
     007113  3414  
 469 007114  6201          CDF 0; TAD (7600; DCA PO
     007115  1372  
     007116  3777  
 470 007117  5751          JMP LOADON
 471 007120  1750  PREROR, TAD ERR0; DCA ERR1; JMP ERR1+2
     007121  3323  
     007122  5325  
 472 007123  0000  ERR1,   0
 473 007124  3015          DCA 15
 474 007125  4747          JMS MESAGE; TEXT /OS8 ERROR AT /
     007126  1723  
     007127  7040  
     007130  0522  
     007131  2217  
     007132  2240  
     007133  0124  
     007134  4000  
 475 007135  4746          JMS OUTUSR; CLA CMA; TAD ERR1; JMS OPS
     007136  7240  
     007137  1323  
     007140  4745  
 476 007141  4023  EXOS8,  JMS KBDCHK; TSF; JMP .-2; JMP 7600
     007142  6041  
     007143  5341  
     007144  5772  
 477               
 478 007145  5200          PAGE
     007146  6307  
     007147  6600  
     007150  6017  
     007151  6272  
     007152  6060  
     007153  7377  
     007154  7643  
     007155  6266  
     007156  2400  
     007157  6451  
     007160  6455  
     007161  7000  
     007162  0400  
     007163  6662  
     007164  6151  
     007165  6145  
     007166  6461  
     007167  1720  
     007170  6146  
     007171  7621  
     007172  7600  
     007173  7617  
     007174  7620  
     007175  5764  
     007176  6640  
     007177  6113  

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