1               /EPIC PROGRAM, V5A
   2               /
   3               /
   4               /
   5               /
   6               /
   7               /
   8               /
   9               //
  10               /
  11               /
  12               /
  13               /
  14               /COPYRIGHT (C) 1973, 1975, 1977
  15               /DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
  16               /
  17               /
  18               /
  19               /THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
  20               /SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU-
  21               /SION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANT OTHER
  22               /COPIES THEREOF, MAY NOT BR PROVIDED OR OTHERWISE MADE AVAILABLE
  23               /TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
  24               /AGREES TO THESE LICENSE TERMS.  TITLE TO AND OWNERSHIP OF THE
  25               /SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
  26               /
  27               /
  28               /THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
  29               /NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
  30               /EQUIPMRNT COROPATION.
  31               /
  32               /DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
  33               /SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
  34               /
  35               /
  36               /
  37               /
  38               /
  39               /
  40               /EPIC PROGRAM 
  41               /COPYRIGHT 1973,1977
  42               /DIGITAL EQUIPMENT CORP.
  43               /MAYNARD, MASS.01754
  44                        
  45                       PTAPE=1
  46                       *0
  47 000000  0010  VERS,   10
  48                       *10
  49 000010  0000  NDX0,   0
  50 000011  0000  NDX1,   0
  51 000012  0000  NDX2,   0
  52                       *20
  53 000020  0000  BCC1,   0
  54 000021  0000  BCC2,   0
  55 000022  0013  BLKLEN, 13
  56 000023  0010  BUFFLD, 10
  57 000024  0000  BUFPTR, 0
  58 000025  0000  BYTCNT, 0
  59                       CLOC=BYTCNT
  60 000026  0504  CHKC,   CTRLC
  61 000027  1632  CRLF,   TYCRLF
  62 000030  6570  DATBUF, HDATA
  63 000031  2062  DOCRC,  CRC
  64 000032  0000  EBLKHI, 0
  65 000033  7777  EFLG,   -1
  66 000034  0000  EOTFLG, 0
  67 000035  0000  EQBLK,  0
  68 000036  0000  ERCODE, 0
  69                       EOLWD=ERCODE
  70 000037  0000  FLEN,   0
  71 000040  0000  FNPTR,  0
  72 000041  0000  FRMPTR, 0
  73                       MODF=FRMPTR
  74 000042  0211  GETCD,  DECOD
  75 000043  0000  HANADR, 0
  76 000044  0000  IDOFLG, 0
  77                       MODB=IDOFLG
  78 000045  0000  IMPFLG, 0
  79 000046  0000  INCHR,  0
  80 000047  0000  INPTR,  0
  81 000050  1640  IOERR,  PHYSIO
  82 000051  1431  LPWT,   LPWAIT
  83 000052  0000  LSPFLG, 0
  84 000053  0000  MAXCNT, 0
  85 000054  7740  MAXLEN, -MXPBLK
  86 000055  0000  MIFLG,  0
  87 000056  7774  M4,     -4
  88 000057  0000  NAME,   0
  89 000060  0000  OCNT,   0
  90 000061  0000  OUDEV,  0;0;0
     000062  0000  
     000063  0000  
  91 000064  0000  OUTCHR, 0
  92 000065  0000  OUTPTR, 0
  93 000066  0000  PARCHR, 0
  94                       MSKWD=PARCHR
  95 000067  4732  PARPTR, PARADR
  96 000070  0000  PATFLG, 0
  97 000071  0017  P17,    17
  98 000072  0200  P200,   200
  99 000073  0000  RDCHR,  0
 100                       SRWD=RDCHR
 101 000074  1200  RDPBLK, PREAD
 102 000075  2467  RDSWIT, SWITCH
 103 000076  6575  RELBLK, HDATA+5
 104 000077  0000  RBLK,   0
 105 000100  0000  SATOL,  0
 106 000101  0000  SBLK,   0
 107 000102  0000  SLPTR,  0
 108 000103  0000  SMTOX,  0
 109 000104  0000  SYTO9,  0
 110 000105  0000  TMP0,   0
 111 000106  0000  TMP1,   0
 112 000107  0000  TMP2,   0
 113 000110  0000  TMP3,   0
 114 000111  0000  TMP4,   0
 115 000112  1643  TNAME,  TYPNAM
 116 000113  3037  TYDEV,  TYPDEV
 117 000114  1600  TYPTXT, TTOTXT
 118 000115  2221  USR,    DOUSR
 119 000116  0000  USRDEV, 0
 120 000117  0000  WRCHR,  0
 121                        
 122                       PAGE
 123                       
 124 000200  7000  START,  NOP
 125 000201  6212          CIF 10          /START OF PROG
 126 000202  4777          JMS I (7700
 127 000203  0010          USRIN
 128 000204  1054          TAD MAXLEN
 129 000205  3053          DCA MAXCNT
 130 000206  6046          TLS
 131 000207  6026          PLS
 132 000210  6014          RFC
 133 000211  1376  DECOD,  TAD (-PTAP
 134 000212  1351          TAD MODE
 135 000213  7640          SZA CLA
 136 000214  5220          JMP .+4
 137 000215  1052          TAD LSPFLG
 138 000216  7640          SZA CLA
 139 000217  4451          JMS I LPWT
 140 000220  4427          JMS I CRLF
 141 000221  6041          TSF
 142 000222  5221          JMP .-1
 143 000223  6212          CIF 10
 144 000224  4472          JMS I P200
 145 000225  0005          DECODE
 146 000226  0000          0
 147 000227  6046          TLS             /INIT. TTY
 148 000230  4775          JMS I (SETDV
 149 000231  4774          JMS I (CHKMI
 150 000232  6211          CDF     10
 151 000233  1773          TAD I   (MTOX
 152 000234  6201          CDF     0
 153 000235  7112          CLL RTR
 154 000236  7010          RAR
 155 000237  7420          SNL
 156 000240  5245          JMP     NOVERS
 157 000241  4427          JMS I   CRLF
 158 000242  4514          JMS I   TYPTXT  /IF /V,TYPE VERSION NUMBER
 159 000243  0352          VERSON
 160 000244  4427          JMS I   CRLF
 161 000245  1372  NOVERS, TAD (FNAME
 162 000246  3057          DCA NAME
 163 000247  1371          TAD (7600       /GET NAME
 164 000250  3010          DCA NDX0
 165 000251  1057          TAD NAME
 166 000252  3107          DCA TMP2
 167 000253  1030          TAD DATBUF
 168 000254  3110          DCA TMP3
 169 000255  1000          TAD VERS
 170 000256  3510          DCA I TMP3
 171 000257  2110          ISZ TMP3
 172 000260  1056          TAD M4
 173 000261  3105          DCA TMP0
 174 000262  6211          CDF 10
 175 000263  1770          TAD I (YTO9
 176 000264  7004          RAL             /CHK /Z
 177 000265  7700          SMA CLA
 178 000266  5271          JMP .+3
 179 000267  3035          DCA EQBLK
 180 000270  3032          DCA EBLKHI
 181 000271  1767          TAD I (ATOL
 182 000272  0366          AND (20         /H ?
 183 000273  7640          SZA CLA
 184 000274  7330          FOURK           /YES
 185 000275  3106          DCA TMP1
 186 000276  7350          CLA CLL CMA RAR /=3777
 187 000277  0765          AND I (7642     /HI EQUALS N
 188 000300  1106          TAD TMP1
 189 000301  7440          SZA
 190 000302  3032          DCA EBLKHI
 191 000303  1765          TAD I (7642
 192 000304  3106          DCA TMP1
 193 000305  1764          TAD I (7646
 194 000306  7440          SZA
 195 000307  3035          DCA EQBLK       /=N LO ORD
 196 000310  1767          TAD I (ATOL
 197 000311  3100          DCA SATOL
 198 000312  1770          TAD I (YTO9
 199 000313  3104          DCA SYTO9
 200 000314  1773          TAD I (MTOX
 201 000315  3103          DCA SMTOX
 202 000316  4763          JMS I (DODFN
 203 000317  1106          TAD TMP1
 204 000320  7700          SMA CLA
 205 000321  5336          JMP GOTMOD
 206 000322  1362          TAD (MODTBL-1   /GET NEW MODE
 207 000323  3106          DCA TMP1
 208 000324  1104          TAD SYTO9
 209 000325  7124          RAL CLL CML
 210 000326  7004          RAL
 211 000327  2106          ISZ TMP1
 212 000330  7500          SMA             /FOUND IT ?
 213 000331  5326          JMP .-3
 214 000332  7200          CLA
 215 000333  1506          TAD I TMP1
 216 000334  3351          DCA MODE
 217 000335  4427          JMS I CRLF
 218 000336  5751  GOTMOD, JMP I MODE
 219 000337  1000  MODTBL, PTAP
 220 000340  3400          FED
 221 000341  3200          COMPAR
 222                       IFNZRO PTAPE    <
 223 000342  0211          DECOD
 224                       >
 225 000343  0211          DECOD
 226 000344  0211          DECOD
 227 000345  0211          DECOD
 228 000346  0211          DECOD
 229 000347  0211          DECOD
 230 000350  0211          DECOD
 231 000351  0211  MODE,   DECOD
 232                        
 233 000352  2640  VERSON, TEXT    "V 5A "
     000353  6501  
     000354  4000  
 234 000355  0000          0
 235 000362  0336          PAGE
     000363  0400  
     000364  7646  
     000365  7642  
     000366  0020  
     000367  7643  
     000370  7645  
     000371  7600  
     000372  4773  
     000373  7644  
     000374  2200  
     000375  2400  
     000376  7000  
     000377  7700  
 236                       
 237 000400  0000  DODFN,  0
 238 000401  1777          TAD I (7601
 239 000402  7640          SZA CLA
 240 000403  5215          JMP LOP0
 241 000404  1104          TAD SYTO9
 242 000405  7710          SPA CLA
 243 000406  5215          JMP LOP0
 244 000407  2107          ISZ TMP2
 245 000410  2110          ISZ TMP3
 246 000411  2105          ISZ TMP0
 247 000412  5207          JMP .-3
 248 000413  6201          CDF
 249 000414  5600          JMP I DODFN
 250 000415  6211  LOP0,   CDF 10
 251 000416  1410          TAD I NDX0
 252 000417  6201          CDF
 253 000420  3507          DCA I TMP2
 254 000421  1507          TAD I TMP2
 255 000422  3510          DCA I TMP3
 256 000423  2107          ISZ TMP2
 257 000424  2110          ISZ TMP3
 258 000425  2105          ISZ TMP0
 259 000426  5215          JMP LOP0
 260 000427  5600          JMP I DODFN
 261                        
 262 000430  0000  HSPRDR, 0
 263 000431  4267          JMS IOWAIT
 264 000432  6011          RSF
 265 000433  6012          RRB
 266 000434  3046          DCA INCHR
 267 000435  6014          RFC
 268 000436  1046          TAD INCHR
 269 000437  5630          JMP I HSPRDR
 270                        
 271 000440  0000  HSPPCH, 0
 272 000441  3064          DCA OUTCHR
 273 000442  4267          JMS IOWAIT
 274 000443  6021          PSF
 275 000444  1064          TAD OUTCHR
 276 000445  6026          PLS
 277 000446  7200          CLA
 278 000447  5640          JMP I HSPPCH
 279                        
 280 000450  0000  LSPRDR, 0
 281 000451  4267          JMS IOWAIT
 282 000452  6031          KSF
 283 000453  6036          KRB
 284 000454  3046          DCA INCHR
 285 000455  1046          TAD INCHR
 286 000456  5650          JMP I LSPRDR
 287                        
 288 000457  0000  LSPPCH, 0
 289 000460  3064          DCA OUTCHR
 290 000461  4267          JMS IOWAIT
 291 000462  6041          TSF
 292 000463  1064          TAD OUTCHR
 293 000464  6046          TLS
 294 000465  7200          CLA
 295 000466  5657          JMP I LSPPCH
 296                        
 297 000467  0000  IOWAIT, 0
 298 000470  1667          TAD I IOWAIT
 299 000471  3300          DCA IOTSKP
 300 000472  2267          ISZ IOWAIT
 301 000473  1300          TAD IOTSKP
 302 000474  7006          RTL
 303 000475  7004          RAL
 304 000476  0376          AND (700
 305 000477  1000          TAD VERS
 306 000500  0000  IOTSKP, 0
 307 000501  5300          JMP .-1
 308 000502  7200          CLA
 309 000503  5667          JMP I IOWAIT
 310                        
 311 000504  0000  CTRLC,  0
 312 000505  6031          KSF
 313 000506  5704          JMP I CTRLC
 314 000507  1177          TAD     [200            /FORCE BIT 8 ON
 315 000510  6034          KRS
 316 000511  1375          TAD (-203
 317 000512  7640          SZA CLA
 318 000513  5704          JMP I CTRLC
 319 000514  6032          KCC
 320 000515  4427  CTRLC0, JMS I CRLF
 321 000516  1374          TAD (336
 322 000517  4773          JMS I (LSPPCH
 323 000520  1372          TAD (303
 324 000521  4773          JMS I (LSPPCH
 325 000522  4427          JMS I CRLF
 326 000523  6041          TSF
 327 000524  5323          JMP .-1
 328 000525  5726          JMP I .+1
 329 000526  7605          7605
 330                        
 331 000572  0303          PAGE
     000573  0457  
     000574  0336  
     000575  7575  
     000576  0700  
     000577  7601  
 332                       
 333               /HERE FOR SYS:<PTP
 334                        
 335 000600  1052  PTIN,   TAD LSPFLG
 336 000601  7650          SNA CLA
 337 000602  5206          JMP .+4
 338 000603  7001          IAC
 339 000604  3777          DCA I (OUTTBL
 340 000605  1376          TAD (LSPRDR-HSPRDR
 341 000606  1375          TAD (HSPRDR
 342 000607  3073          DCA RDCHR
 343 000610  1777          TAD I (OUTTBL
 344 000611  3116          DCA USRDEV
 345 000612  6014          RFC
 346 000613  4474          JMS I RDPBLK    /GET 1ST PBLK
 347 000614  4322          JMS RDERR
 348 000615  1030          TAD DATBUF      /GET NAME
 349 000616  3010          DCA NDX0
 350 000617  1057          TAD NAME
 351 000620  3106          DCA TMP1
 352 000621  1056          TAD M4
 353 000622  3105          DCA TMP0
 354 000623  1410          TAD I NDX0
 355 000624  3506          DCA I TMP1
 356 000625  2106          ISZ TMP1
 357 000626  2105          ISZ TMP0
 358 000627  5223          JMP .-4
 359 000630  2010          ISZ NDX0        /BY RELBLK
 360 000631  1410          TAD I NDX0
 361 000632  3264          DCA BLKW        /FILE LEN
 362 000633  1070          TAD PATFLG
 363 000634  7640          SZA CLA         /RDING A PATCH?
 364 000635  1374          TAD (LOOKUP-ENTER
 365 000636  1373          TAD (ENTER      /ENTER=NO PATCH
 366 000637  4515          JMS I USR
 367 000640  7100          CLL
 368 000641  1037          TAD FLEN
 369 000642  1264          TAD BLKW
 370 000643  7450          SNA             /DOES IT FIT?
 371 000644  5247          JMP     .+3
 372 000645  7630          SZL     CLA
 373 000646  5351          JMP NOFIT
 374 000647  1264          TAD BLKW
 375 000650  3037          DCA FLEN
 376 000651  3077          DCA RBLK
 377 000652  1037          TAD FLEN
 378 000653  7041          CIA
 379 000654  3350          DCA FCNT
 380 000655  4772          JMS I (ICHKB    /SEE IF WE GOT
 381                                       /THE RIGHT BLK
 382 000656  1101  LOP3,   TAD SBLK        /ABS STR BLK
 383 000657  1476          TAD I RELBLK
 384 000660  3264          DCA BLKW        /=BLK TO DO
 385 000661  4443          JMS I HANADR
 386 000662  4200          4200            /WRITE 1 BLK
 387 000663  6600          BUFADR
 388 000664  0000  BLKW,   0
 389 000665  5450          JMP I IOERR
 390 000666  2077          ISZ RBLK
 391 000667  2350          ISZ FCNT
 392 000670  5274          JMP BY3
 393 000671  1371          TAD (CLOSE
 394 000672  4515          JMS I USR
 395 000673  5442          JMP I GETCD
 396 000674  4474  BY3,    JMS I RDPBLK
 397 000675  7410          SKP
 398 000676  5256          JMP LOP3
 399 000677  7346          MTHREE
 400 000700  1036          TAD ERCODE      /EOT IS ONLY
 401                                       /LEGAL ERROR
 402 000701  7650          SNA CLA
 403 000702  5305          JMP IFEOT
 404 000703  4322          JMS RDERR       /RETRY
 405 000704  5255          JMP LOP3-1
 406 000705  1070  IFEOT,  TAD PATFLG
 407 000706  7640          SZA CLA
 408 000707  5442          JMP I GETCD     /PATCH MODE
 409                                       /TERMS ON EOT
 410 000710  4514          JMS I TYPTXT
 411 000711  4630          EOTMSG
 412 000712  4514          JMS I TYPTXT
 413 000713  4640          NTMSG
 414 000714  4427          JMS I CRLF
 415 000715  7240          CLA CMA
 416 000716  4451          JMS I LPWT
 417 000717  4474          JMS I RDPBLK
 418 000720  4322          JMS RDERR
 419 000721  5255          JMP LOP3-1
 420                        
 421                       
 422 000722  0000  RDERR,  0
 423 000723  7344          MTWO
 424 000724  3347          DCA ERCNT
 425 000725  1036  LOP4,   TAD ERCODE
 426 000726  1370          TAD (AMSG
 427 000727  3105          DCA TMP0
 428 000730  1505          TAD I TMP0
 429 000731  3333          DCA .+2
 430 000732  4514          JMS I TYPTXT
 431 000733  0000          0
 432 000734  4427          JMS I CRLF
 433 000735  7240          CLA CMA
 434 000736  4451          JMS I LPWT
 435 000737  4473          JMS I RDCHR
 436 000740  7200          CLA
 437 000741  4474          JMS I RDPBLK
 438 000742  7410          SKP
 439 000743  5722          JMP I RDERR
 440 000744  2347          ISZ ERCNT
 441 000745  5325          JMP LOP4
 442 000746  5450          JMP I IOERR
 443 000747  0000  ERCNT,  0
 444 000750  0000  FCNT,   0
 445                        
 446 000751  1367  NOFIT,  TAD (16
 447 000752  4513          JMS I TYDEV
 448 000753  1057          TAD NAME
 449 000754  4512          JMS I TNAME
 450 000755  4514          JMS I TYPTXT
 451 000756  4647          BIGMSG
 452 000757  1116          TAD USRDEV
 453 000760  4513          JMS I TYDEV
 454 000761  5442          JMP I GETCD
 455                        
 456 000767  0016          PAGE
     000770  4436  
     000771  0004  
     000772  2000  
     000773  0003  
     000774  7777  
     000775  0430  
     000776  0020  
     000777  4501  
 457                       
 458 001000  4475  PTAP,   JMS I RDSWIT
 459 001001  4442          PSTBL
 460 001002  1457          TAD I NAME
 461 001003  7650          SNA CLA
 462 001004  5777          JMP I (PTIN     /PTAP INPUT
 463 001005  1776          TAD I (OUTTBL
 464 001006  3116          DCA USRDEV
 465 001007  1052          TAD LSPFLG
 466 001010  7650          SNA CLA
 467 001011  1375          TAD (HSPPCH-LSPPCH
 468 001012  1374          TAD (LSPPCH
 469 001013  3117          DCA WRCHR
 470 001014  6026          PLS
 471 001015  1373          TAD (LOOKUP
 472 001016  4515          JMS I USR
 473 001017  1070          TAD PATFLG
 474 001020  7650          SNA CLA         /PUNCH PATCH ?
 475 001021  5233          JMP NOPAT
 476 001022  7100          CLL
 477 001023  1035          TAD EQBLK       /CHK FOR =N
 478 001024  1037          TAD FLEN        /OUT OF RANGE
 479 001025  7620          SNL CLA         /?
 480 001026  5232          JMP .+4
 481 001027  4514          JMS I TYPTXT
 482 001030  4724          BEQMSG
 483 001031  5442          JMP I GETCD
 484 001032  1035          TAD EQBLK
 485 001033  3105  NOPAT,  DCA TMP0
 486 001034  1105          TAD TMP0
 487 001035  1101          TAD SBLK
 488 001036  3271          DCA BLKR        /1ST BLK TO PCH
 489 001037  1105          TAD TMP0        /PUT REL BLK
 490 001040  3510          DCA I TMP3      /IN HDR
 491 001041  1037          TAD FLEN
 492 001042  7041          CIA             /=FILE LEN
 493 001043  2110          ISZ TMP3
 494 001044  3510          DCA I TMP3
 495 001045  2110          ISZ TMP3
 496 001046  3510          DCA I TMP3      /0 TO LST HDR
 497                                       /WORD
 498 001047  1070          TAD PATFLG      /ONLY 1 BLK
 499 001050  7440          SZA             /PATCHES AT A
 500 001051  3037          DCA FLEN        /TIME
 501 001052  1052          TAD LSPFLG
 502 001053  7650          SNA CLA
 503 001054  5257          JMP .+3
 504 001055  7240  LOP2,   CLA CMA
 505 001056  4451          JMS I LPWT      /ON PUNCH
 506 001057  1054          TAD MAXLEN
 507 001060  7041          CIA
 508 001061  1053          TAD MAXCNT
 509 001062  7640          SZA CLA         /PCH L/T ?
 510 001063  5266          JMP .+3         /NO
 511 001064  4316          JMS WLT
 512 001065  4316          JMS WLT
 513 001066  4443  LOP1,   JMS I HANADR    /READ 1 BLK
 514 001067  0200          200             /OF FILE
 515 001070  6600          BUFADR
 516 001071  0000  BLKR,   0
 517 001072  5450          JMP I IOERR
 518 001073  2271          ISZ BLKR
 519 001074  4772          JMS I (PWRITE
 520 001075  2476          ISZ I RELBLK
 521 001076  2037          ISZ FLEN
 522 001077  5304          JMP BYDUN
 523 001100  1034          TAD EOTFLG
 524 001101  7650          SNA CLA         /PCH EOT ?
 525 001102  4330          JMS EOT         /YES
 526 001103  5442          JMP I GETCD
 527 001104  2053  BYDUN,  ISZ MAXCNT
 528 001105  5266          JMP LOP1
 529 001106  4330          JMS EOT         /PHYSICAL END
 530                                       /OF PTP
 531 001107  1052          TAD LSPFLG
 532 001110  7640          SZA CLA
 533 001111  4451          JMS I LPWT
 534 001112  4514          JMS I TYPTXT
 535 001113  4630          EOTMSG
 536 001114  4427          JMS I CRLF
 537 001115  5255          JMP LOP2        /NEXT PTP
 538                        
 539                       
 540 001116  0000  WLT,    0
 541 001117  1327          TAD LTCNT
 542 001120  3105          DCA TMP0
 543 001121  1072          TAD P200
 544 001122  4517          JMS I WRCHR
 545 001123  4426          JMS I CHKC
 546 001124  2105          ISZ TMP0
 547 001125  5321          JMP .-4
 548 001126  5716          JMP I WLT
 549 001127  7654  LTCNT,  -LTLEN
 550                        
 551 001130  0000  EOT,    0
 552 001131  1371          TAD (377
 553 001132  4517          JMS I WRCHR
 554 001133  4316          JMS WLT
 555 001134  4316          JMS WLT
 556 001135  4316          JMS WLT
 557 001136  1054          TAD MAXLEN
 558 001137  3053          DCA MAXCNT
 559 001140  5730          JMP I EOT
 560                        
 561 001171  0377          PAGE
     001172  1400  
     001173  0002  
     001174  0457  
     001175  7761  
     001176  4501  
     001177  0600  
 562                       
 563 001200  0000  PREAD,  0               /READ A PTP BLK
 564 001201  4473          JMS I RDCHR
 565 001202  7450          SNA
 566 001203  5201          JMP PREAD+1     /ITS L/T
 567 001204  1377          TAD (-200
 568 001205  7450          SNA
 569 001206  5201          JMP PREAD+1     /L/T
 570 001207  7110          RAR CLL         /201 PCH MUST
 571 001210  7650          SNA CLA         /SEPARATE L/T
 572                                       /AND DATA
 573 001211  5222          JMP ONBLK
 574 001212  1376          TAD (-377       /ONLY OTHER
 575 001213  1046          TAD INCHR       /POSSIBILTY IS
 576 001214  7650          SNA CLA         /END OF PTP
 577 001215  7001          IAC             /EOT CODE
 578 001216  7001          IAC             /L/T ERR
 579 001217  7001  BYTERR, IAC
 580 001220  3036  BLKERR, DCA ERCODE
 581 001221  5600          JMP I PREAD     /P+1=ERR RTN
 582 001222  4775  ONBLK,  JMS I (ISETB
 583 001223  3352          DCA PARFLG
 584 001224  4246          JMS GETBYT
 585 001225  2025          ISZ BYTCNT
 586 001226  5224          JMP .-2
 587 001227  4473          JMS I RDCHR
 588 001230  7041          CIA
 589 001231  1020          TAD BCC1
 590 001232  7640          SZA CLA
 591 001233  5220          JMP BLKERR
 592 001234  4473          JMS I RDCHR
 593 001235  7041          CIA
 594 001236  1021          TAD BCC2
 595 001237  7640          SZA CLA
 596 001240  5220          JMP BLKERR
 597 001241  1352          TAD PARFLG
 598 001242  7710          SPA CLA
 599 001243  5217          JMP BYTERR
 600 001244  2200          ISZ PREAD       /GOOD BLK
 601 001245  5221          JMP BLKERR+1
 602                        
 603                       
 604 001246  0000  GETBYT, 0
 605 001247  1052          TAD LSPFLG
 606 001250  7650          SNA CLA
 607 001251  4426          JMS I CHKC
 608 001252  3066          DCA PARCHR
 609 001253  1056          TAD M4
 610 001254  3353          DCA CNTR0
 611 001255  7346  LOP6,   MTHREE
 612 001256  3354          DCA CNTR1
 613 001257  4473  LOP5,   JMS I RDCHR
 614 001260  3441          DCA I FRMPTR
 615 001261  2041          ISZ FRMPTR
 616 001262  1046          TAD INCHR
 617 001263  4431          JMS I DOCRC
 618 001264  2354          ISZ CNTR1
 619 001265  5257          JMP LOP5
 620 001266  7346          MTHREE
 621 001267  1041          TAD FRMPTR
 622 001270  3041          DCA FRMPTR
 623 001271  4315          JMS PACK
 624 001272  2353          ISZ CNTR0
 625 001273  5255          JMP LOP6
 626 001274  4473          JMS I RDCHR
 627 001275  4431          JMS I DOCRC
 628 001276  1046          TAD INCHR
 629 001277  7041          CIA
 630 001300  1066          TAD PARCHR
 631 001301  7650          SNA CLA
 632 001302  5311          JMP NOPAR
 633 001303  7240          CLA CMA
 634 001304  3352          DCA PARFLG
 635 001305  1355          TAD ABORT
 636 001306  7710          SPA CLA
 637 001307  5217          JMP BYTERR
 638 001310  7330          FOURK
 639 001311  1046  NOPAR,  TAD INCHR
 640 001312  3467          DCA I PARPTR
 641 001313  2067          ISZ PARPTR
 642 001314  5646          JMP I GETBYT
 643                        
 644                       
 645               /HERE TO PACK 3 8 BIT FRAMES INTO
 646               /2 12 BIT WORDS
 647                        
 648 001315  0000  PACK,   0
 649 001316  1441          TAD I FRMPTR
 650 001317  7106          RTL CLL
 651 001320  7004          RAL             /1ST FRM TO
 652 001321  3424          DCA I BUFPTR    /B1-B8
 653 001322  2041          ISZ FRMPTR
 654 001323  1441          TAD I FRMPTR    /PUT HI HALF OF
 655 001324  7112          RTR CLL         /2ND FRM INTO
 656 001325  7012          RTR             /B9-B11 AND LNK
 657 001326  7010          RAR
 658 001327  3356          DCA HOLDW2
 659 001330  1356          TAD HOLDW2      /PUT 1ST FRM IN
 660 001331  0374          AND (7          /B0-B7,AND PUT
 661 001332  1424          TAD I BUFPTR    /HI HALF OF 2ND
 662 001333  7004          RAL             /IN B8-B11
 663 001334  3424          DCA I BUFPTR    /YOU AINT SEEN
 664 001335  1424          TAD I BUFPTR    /NOTHING YET.
 665 001336  4773          JMS I (DOPAR
 666 001337  1356          TAD HOLDW2      /LO HAF OF 2ND
 667 001340  0372          AND (7400       /FRM IS IN
 668 001341  2041          ISZ FRMPTR      /B0-B3. PUT
 669 001342  1441          TAD I FRMPTR    /WITH 3RD FRM
 670 001343  2024          ISZ BUFPTR
 671 001344  3424          DCA I BUFPTR
 672 001345  1424          TAD I BUFPTR
 673 001346  4773          JMS I (DOPAR
 674 001347  2041          ISZ FRMPTR
 675 001350  2024          ISZ BUFPTR
 676 001351  5715          JMP I PACK
 677 001352  0000  PARFLG, 0
 678 001353  0000  CNTR0,  0
 679 001354  0000  CNTR1,  0
 680 001355  7777  ABORT,  -1
 681 001356  0000  HOLDW2, 0
 682                        
 683 001372  7400          PAGE
     001373  1521  
     001374  0007  
     001375  1415  
     001376  7401  
     001377  7600  
 684                       
 685 001400  0000  PWRITE, 0               /HERE TO WRITE
 686                                       /1 BLK OF PTP
 687 001401  4215          JMS ISETB
 688 001402  4777          JMS I (WLT
 689 001403  1376          TAD (201        /START OF DATA
 690                                       /BLK CHAR
 691 001404  4517          JMS I WRCHR
 692 001405  4236          JMS PUTBYT
 693 001406  2025          ISZ BYTCNT
 694 001407  5205          JMP .-2
 695 001410  1020          TAD BCC1
 696 001411  4517          JMS I WRCHR
 697 001412  1021          TAD BCC2
 698 001413  4517          JMS I WRCHR
 699 001414  5600          JMP I PWRITE
 700                        
 701 001415  0000  ISETB,  0
 702 001416  1375          TAD (FRMADR
 703 001417  3041          DCA FRMPTR
 704 001420  1374          TAD (PARADR
 705 001421  3067          DCA PARPTR
 706 001422  1030          TAD DATBUF
 707 001423  3024          DCA BUFPTR
 708 001424  3020          DCA BCC1
 709 001425  3021          DCA BCC2
 710 001426  1373          TAD (-NBYTS
 711 001427  3025          DCA BYTCNT
 712 001430  5615          JMP I ISETB
 713                        
 714 001431  0000  LPWAIT, 0
 715 001432  7402          HLT
 716 001433  6014          RFC
 717 001434  7200          CLA
 718 001435  5631          JMP I LPWAIT
 719                        
 720                       
 721 001436  0000  PUTBYT, 0
 722 001437  3066          DCA PARCHR
 723 001440  1056          TAD M4
 724 001441  3316          DCA CNTR2
 725 001442  1424  LOP7,   TAD I BUFPTR
 726 001443  4321          JMS DOPAR
 727 001444  1424          TAD I BUFPTR    /PUT 2 WORDS IN
 728 001445  7112          RTR CLL         /3 8 BIT FRMS
 729 001446  7012          RTR
 730 001447  3317          DCA F2
 731 001450  1317          TAD F2          /B0-B7 OF 1ST
 732 001451  0372          AND (377        /FOR FRM 1
 733 001452  3320          DCA F1
 734 001453  1317          TAD F2          /LO 4 BITS OF
 735 001454  7010          RAR             /WORD 1
 736 001455  0371          AND (7400       /TO B0-B3 OF
 737 001456  3317          DCA F2          /FRM 2
 738 001457  1320          TAD F1
 739 001460  4517          JMS I WRCHR
 740 001461  1320          TAD F1
 741 001462  4431          JMS I DOCRC
 742 001463  2024          ISZ BUFPTR
 743 001464  1424          TAD I BUFPTR
 744 001465  4321          JMS DOPAR
 745 001466  1424          TAD I BUFPTR    /PUT B0-B3
 746 001467  0371          AND (7400       /OF WD2
 747 001470  7112          RTR CLL         /INTO B4-B8
 748 001471  7012          RTR
 749 001472  1317          TAD F2          /NOW PUT LO 4
 750 001473  7012          RTR             /BITS OF WD1
 751 001474  7012          RTR             /(B0-B3) AND HI
 752                                       /4 BITS OF W2
 753                                       /INTO B4-B11
 754 001475  4517          JMS I WRCHR
 755 001476  1064          TAD OUTCHR      /=CHR JST PCHED
 756 001477  4431          JMS I DOCRC
 757 001500  1424          TAD I BUFPTR
 758 001501  0372          AND (377        /LO 8 OF 2ND
 759 001502  4517          JMS I WRCHR
 760 001503  1064          TAD OUTCHR      /=F3
 761 001504  4431          JMS I DOCRC
 762 001505  2024          ISZ BUFPTR
 763 001506  2316          ISZ CNTR2
 764 001507  5242          JMP LOP7
 765 001510  1066          TAD PARCHR
 766 001511  4517          JMS I WRCHR
 767 001512  1066          TAD PARCHR
 768 001513  4431          JMS I DOCRC
 769 001514  4426          JMS I CHKC
 770 001515  5636          JMP I PUTBYT
 771 001516  0000  CNTR2,  0
 772 001517  0000  F2,     0
 773 001520  0000  F1,     0
 774                        
 775                        
 776                       
 777               /HERE TO COMPUTE PARITY (EVEN ODD)
 778               /12 BIT WORD IS IN AC.
 779               /AFTER EACH (SPA,CML,RAR) SEQUENCE
 780               /AC B0=0 IF THE
 781               /NUMBER OF ALREADY PROCESSED 1
 782               /STATE BITS IS EVEN. OTHERWISE AC B0=1.
 783                        
 784 001521  0000  DOPAR,  0
 785 001522  3105          DCA TMP0
 786 001523  1370          TAD (-13        /-13 BECAUSE 2
 787                                       /BITS ARE
 788                                       /PROCESSED
 789                                       /INITIALLY
 790 001524  3106          DCA TMP1
 791 001525  1105          TAD TMP0
 792 001526  7012          RTR             /LNK HOLDS
 793                                       /NEWBIT,AC B0
 794                                       /HOLDS STATUS
 795                                       /TO DATE.
 796 001527  7510          SPA             /CHNG FROM ODD
 797                                       /TO EVEN ?
 798 001530  7020          CML             /YES CHANGE
 799                                       /STATUS
 800 001531  7010          RAR             /GET NXT
 801 001532  2106          ISZ TMP1        /DONE ?
 802 001533  5327          JMP .-4         /NO
 803 001534  7044          CMA RAL         /SET LNK=1=EVEN
 804 001535  7200          CLA             /LNK=0=ODD
 805 001536  1066          TAD PARCHR      /UPDATE PARITY
 806 001537  7004          RAL
 807 001540  3066          DCA PARCHR
 808 001541  5721          JMP I DOPAR
 809                        
 810 001570  7765          PAGE
     001571  7400  
     001572  0377  
     001573  7737  
     001574  4732  
     001575  5000  
     001576  0201  
     001577  1116  
 811                       
 812 001600  0000  TTOTXT, 0
 813 001601  1600          TAD I TTOTXT
 814 001602  3105          DCA TMP0
 815 001603  2200          ISZ TTOTXT
 816 001604  1505  LOP8,   TAD I TMP0
 817 001605  7012          RTR
 818 001606  7012          RTR
 819 001607  7012          RTR
 820 001610  4217          JMS DOHAF
 821 001611  5600          JMP I TTOTXT
 822 001612  1505          TAD I TMP0
 823 001613  4217          JMS DOHAF
 824 001614  5600          JMP I TTOTXT
 825 001615  2105          ISZ TMP0
 826 001616  5204          JMP LOP8
 827                        
 828 001617  0000  DOHAF,  0
 829 001620  0377          AND (77
 830 001621  7450          SNA
 831 001622  5617          JMP I DOHAF
 832 001623  2217          ISZ DOHAF
 833 001624  1376          TAD (-40
 834 001625  7510          SPA
 835 001626  1375          TAD (100
 836 001627  1374          TAD (240
 837 001630  4773          JMS I (LSPPCH
 838 001631  5617          JMP I DOHAF
 839                        
 840 001632  0000  TYCRLF, 0
 841 001633  1372          TAD (215
 842 001634  4773          JMS I (LSPPCH
 843 001635  1371          TAD (212
 844 001636  4773          JMS I (LSPPCH
 845 001637  5632          JMP I TYCRLF
 846                        
 847 001640  4514  PHYSIO, JMS I TYPTXT
 848 001641  4703          IOMSG
 849 001642  5442          JMP I GETCD
 850                        
 851                       
 852 001643  0000  TYPNAM, 0
 853 001644  3107          DCA TMP2
 854 001645  1107          TAD TMP2
 855 001646  3105          DCA TMP0
 856 001647  7346          MTHREE
 857 001650  3106          DCA TMP1
 858 001651  1505  LOP9,   TAD I TMP0
 859 001652  7012          RTR
 860 001653  7012          RTR
 861 001654  7012          RTR
 862 001655  4217          JMS DOHAF
 863 001656  5265          JMP DOEXT
 864 001657  1505          TAD I TMP0
 865 001660  4217          JMS DOHAF
 866 001661  5265          JMP DOEXT
 867 001662  2105          ISZ TMP0
 868 001663  2106          ISZ TMP1
 869 001664  5251          JMP LOP9
 870 001665  1305  DOEXT,  TAD P3
 871 001666  1107          TAD TMP2
 872 001667  3105          DCA TMP0
 873 001670  1505          TAD I TMP0
 874 001671  7650          SNA CLA
 875 001672  5306          JMP P3+1
 876 001673  1302          TAD P256        /.
 877 001674  4773          JMS I (LSPPCH
 878 001675  1505          TAD I TMP0
 879 001676  7012          RTR
 880 001677  7012          RTR
 881 001700  7012          RTR
 882 001701  4217          JMS DOHAF
 883 001702  0256  P256,   256
 884 001703  1505          TAD I TMP0
 885 001704  4217          JMS DOHAF
 886 001705  0003  P3,     3
 887 001706  1374          TAD (240
 888 001707  4773          JMS I (LSPPCH
 889 001710  5643          JMP I TYPNAM
 890                        
 891                       
 892 001711  0000  OCTOUT, 0
 893 001712  7004          RAL
 894 001713  3105          DCA TMP0
 895 001714  1056          TAD M4
 896 001715  3106          DCA TMP1
 897 001716  1105  LOP11,  TAD TMP0
 898 001717  7006          RTL
 899 001720  7004          RAL
 900 001721  3105          DCA TMP0
 901 001722  7004          RAL
 902 001723  3107          DCA TMP2
 903 001724  1105          TAD TMP0
 904 001725  0370          AND (7
 905 001726  1367          TAD (260
 906 001727  4773          JMS I (LSPPCH
 907 001730  1107          TAD TMP2
 908 001731  7110          RAR CLL
 909 001732  2106          ISZ TMP1
 910 001733  5316          JMP LOP11
 911 001734  1374          TAD (240
 912 001735  4773          JMS I (LSPPCH
 913 001736  5711          JMP I OCTOUT
 914                        
 915 001767  0260          PAGE
     001770  0007  
     001771  0212  
     001772  0215  
     001773  0457  
     001774  0240  
     001775  0100  
     001776  7740  
     001777  0077  
 916                       
 917               /HERE TO SEE IF WE READ THE CORRECT
 918               /BLK OF THE CORRECT FILE.
 919                        
 920 002000  0000  ICHKB,  0
 921 002001  1070          TAD PATFLG      /DONT CHK IF
 922 002002  7640          SZA CLA         /IN PATCH MODE
 923 002003  5600          JMP I ICHKB
 924 002004  1056  LOP12,  TAD M4
 925 002005  3105          DCA TMP0
 926 002006  1052          TAD LSPFLG
 927 002007  7650          SNA CLA
 928 002010  4426          JMS I CHKC
 929 002011  1030          TAD DATBUF      /COMPARE NAMES
 930 002012  3010          DCA NDX0
 931 002013  1057          TAD NAME
 932 002014  3106          DCA TMP1
 933 002015  1410  LOP10,  TAD I NDX0
 934 002016  7041          CIA
 935 002017  1506          TAD I TMP1
 936 002020  7640          SZA CLA
 937 002021  5250          JMP NAMERR
 938 002022  2106          ISZ TMP1
 939 002023  2105          ISZ TMP0
 940 002024  5215          JMP LOP10
 941 002025  1077          TAD RBLK        /CHK BLK
 942 002026  7041          CIA
 943 002027  1476          TAD I RELBLK
 944 002030  7650          SNA CLA
 945 002031  5600          JMP I ICHKB     /GOOD BLK
 946 002032  4514          JMS I TYPTXT
 947 002033  4712          NMSG
 948 002034  1077          TAD RBLK
 949 002035  4777          JMS I (OCTOUT
 950 002036  4514          JMS I TYPTXT
 951 002037  4717          FMSG
 952 002040  1476          TAD I RELBLK
 953 002041  4777          JMS I (OCTOUT
 954 002042  4427  RECHK,  JMS I CRLF
 955 002043  7240          CLA CMA
 956 002044  4451          JMS I LPWT
 957 002045  4474          JMS I RDPBLK
 958 002046  4776          JMS I (RDERR
 959 002047  5204          JMP LOP12
 960 002050  4514  NAMERR, JMS I TYPTXT
 961 002051  4712          NMSG
 962 002052  1057          TAD NAME
 963 002053  4512          JMS I TNAME
 964 002054  4514          JMS I TYPTXT
 965 002055  4717          FMSG
 966 002056  1030          TAD DATBUF
 967 002057  7001          IAC
 968 002060  4512          JMS I TNAME
 969 002061  5242          JMP RECHK
 970                        
 971                       
 972               /CRC GENERATOR
 973               /COURTESY OF MARIO S. ROOT
 974               /COUSIN TO MARIO LEONARD
 975                        
 976 002062  0000  CRC,    0
 977 002063  3105          DCA TMP0
 978 002064  1375          TAD (-7
 979 002065  3106          DCA TMP1
 980 002066  1105          TAD TMP0
 981 002067  0021          AND BCC2
 982 002070  7041          CIA
 983 002071  7104          CLL RAL
 984 002072  1105          TAD TMP0
 985 002073  1021          TAD BCC2
 986 002074  7112          CLL RTR
 987 002075  7510          SPA
 988 002076  7020          CML
 989 002077  7010          RAR
 990 002100  2106          ISZ TMP1
 991 002101  5275          JMP .-4
 992 002102  7510          SPA
 993 002103  5307          JMP .+4
 994 002104  3106          DCA TMP1
 995 002105  1020          TAD BCC1
 996 002106  5313          JMP .+5
 997 002107  3106          DCA TMP1
 998 002110  1020          TAD BCC1
 999 002111  7010          RAR
1000 002112  7024          CML RAL
1001 002113  3021          DCA BCC2
1002 002114  1106          TAD TMP1
1003 002115  0374          AND (60
1004 002116  7106          CLL RTL
1005 002117  3020          DCA BCC1
1006 002120  1020          TAD BCC1
1007 002121  0021          AND BCC2
1008 002122  7041          CIA
1009 002123  7104          CLL RAL
1010 002124  1020          TAD BCC1
1011 002125  1021          TAD BCC2
1012 002126  3021          DCA BCC2
1013 002127  1106          TAD TMP1
1014 002130  7112          CLL RTR
1015 002131  7012          RTR
1016 002132  3020          DCA BCC1
1017 002133  1020          TAD BCC1
1018 002134  7110          CLL RAR
1019 002135  7110          CLL RAR
1020 002136  3106          DCA TMP1
1021 002137  1106          TAD TMP1
1022 002140  0020          AND BCC1
1023 002141  7041          CIA
1024 002142  7104          CLL RAL
1025 002143  1020          TAD BCC1
1026 002144  1106          TAD TMP1
1027 002145  3020          DCA BCC1
1028 002146  5662          JMP I CRC
1029                        
1030 002174  0060          PAGE
     002175  7771  
     002176  0722  
     002177  1711  
1031                       
1032               /CHK FOR MASTER INPUT DEVICE ONLY
1033                        
1034 002200  0000  CHKMI,  0
1035 002201  1377          TAD (INTBL-1
1036 002202  3010          DCA NDX0
1037 002203  1410          TAD I NDX0
1038 002204  7650          SNA CLA
1039 002205  5217          JMP BY1         /NO MI
1040 002206  1376          TAD (-10
1041 002207  3105          DCA TMP0
1042 002210  2010          ISZ NDX0
1043 002211  1410          TAD I NDX0      /MUST HAVE NO
1044 002212  7640          SZA CLA         /OTHER IN DEVS
1045 002213  5217          JMP BY1         /FOUND 1
1046 002214  2105          ISZ TMP0
1047 002215  5210          JMP .-5
1048 002216  7240          CLA CMA         /MI ONLY SET
1049 002217  3055  BY1,    DCA MIFLG       /MI FLAG
1050 002220  5600          JMP I CHKMI
1051                        
1052                        
1053                       
1054 002221  0000  DOUSR,  0               /HERE TO DO A
1055 002222  3235          DCA N1-1        /USR CALL
1056 002223  1057          TAD NAME        /EITHER LOOKUP
1057 002224  3236          DCA N1          /,ENTER OR
1058 002225  1037          TAD FLEN        /CLOSE
1059 002226  3237          DCA N1+1
1060 002227  1116          TAD USRDEV
1061 002230  4775          JMS I (GETHAN
1062 002231  6212          CIF 10
1063 002232  1116          TAD USRDEV
1064 002233  0071          AND P17
1065 002234  4472          JMS I P200
1066 002235  0000          0
1067 002236  0000  N1,     0;0
     002237  0000  
1068 002240  5246          JMP USRERR
1069 002241  1236          TAD N1
1070 002242  3101          DCA SBLK
1071 002243  1237          TAD N1+1
1072 002244  3037          DCA FLEN
1073 002245  5621          JMP I DOUSR
1074 002246  4514  USRERR, JMS I TYPTXT
1075 002247  4677          USRMSG
1076 002250  1235          TAD N1-1
1077 002251  4774          JMS I (OCTOUT
1078 002252  1116          TAD USRDEV
1079 002253  4513          JMS I TYDEV
1080 002254  1057          TAD NAME
1081 002255  4512          JMS I TNAME
1082 002256  4427          JMS I CRLF
1083 002257  5442          JMP I GETCD
1084                        
1085 002374  1711          PAGE
     002375  3000  
     002376  7770  
     002377  4507  
1086                       
1087 002400  0000  SETDV,  0
1088 002401  4214          JMS CHKP37
1089 002402  7577          7600-1          /OUTPUT INFO
1090 002403  4500          OUTTBL-1
1091 002404  0004          4
1092 002405  7775          -3
1093 002406  4214          JMS CHKP37
1094 002407  7616          7617-1          /INPUT INFO
1095 002410  4507          INTBL-1
1096 002411  0001          1
1097 002412  7767          -11
1098 002413  5600          JMP I SETDV
1099                        
1100 002414  0000  CHKP37, 0
1101 002415  3105          DCA TMP0
1102 002416  1377          TAD (TM-1
1103 002417  3011          DCA NDX1
1104 002420  1614          TAD I CHKP37    /P37 ADDR
1105 002421  3010          DCA NDX0
1106 002422  2214          ISZ CHKP37
1107 002423  1614          TAD I CHKP37
1108 002424  3106          DCA TMP1        /PERM TBL
1109 002425  2214          ISZ CHKP37
1110 002426  1614          TAD I CHKP37
1111 002427  3110          DCA TMP3        /ENTRY LEN-1
1112 002430  2214          ISZ CHKP37
1113 002431  1614          TAD I CHKP37
1114 002432  3107          DCA TMP2        /-NUM TO DO
1115 002433  6211  XLOP2,  CDF 10
1116 002434  1410          TAD I NDX0
1117 002435  7440          SZA             /BLANK ENTRY ?
1118 002436  2105          ISZ TMP0        /NO
1119 002437  6201          CDF
1120 002440  3411          DCA I NDX1      /TMP SAV
1121 002441  1010          TAD NDX0        /ADV PTR TO NXT
1122 002442  1110          TAD TMP3
1123 002443  3010          DCA NDX0
1124 002444  2107          ISZ TMP2        /DONE?
1125 002445  5233          JMP XLOP2       /NO
1126 002446  1105          TAD TMP0        /WAS P37
1127 002447  7650          SNA CLA         /BLANK ?
1128 002450  5265          JMP BY0         /YES USE SET OF
1129                                       /DEV LAST
1130                                       /SPECIFIED
1131 002451  1106          TAD TMP1
1132 002452  3011          DCA NDX1
1133 002453  1377          TAD (TM-1
1134 002454  3010          DCA NDX0
1135 002455  1614          TAD I CHKP37
1136 002456  3105          DCA TMP0
1137 002457  1410          TAD I NDX0      /NEW UNIT
1138 002460  3411          DCA I NDX1
1139 002461  3411          DCA I NDX1      /0 TO SBLK
1140 002462  2105          ISZ TMP0
1141 002463  5257          JMP .-4
1142 002464  3411          DCA I NDX1
1143 002465  2214  BY0,    ISZ CHKP37
1144 002466  5614          JMP I CHKP37
1145                        
1146                       
1147               /ROUT TO INTERPRET PS/8 SWITCHES
1148                        
1149 002467  0000  SWITCH, 0
1150 002470  1667          TAD I SWITCH    /PTR TO TBL
1151 002471  3105          DCA TMP0
1152 002472  2267          ISZ SWITCH
1153 002473  7100          CLL
1154 002474  1376          TAD (7757
1155 002475  0100          AND SATOL
1156 002476  1103          TAD SMTOX
1157 002477  7670          SNA SZL CLA
1158 002500  5667          JMP I SWITCH    /NONE TO READ
1159 002501  1505  XLOP0,  TAD I TMP0
1160 002502  7450          SNA             /END OF TBL ?
1161 002503  5667          JMP I SWITCH    /YES
1162 002504  3106          DCA TMP1        /PTR TO FLAG
1163 002505  7240          CLA CMA         /SET TO YES
1164 002506  3506          DCA I TMP1      /STATE
1165 002507  2105  XLOP1,  ISZ TMP0
1166 002510  1505          TAD I TMP0      /AC=P37 SW ADDR
1167 002511  2105          ISZ TMP0        /=PTR TO MASK
1168 002512  7450          SNA             /MORE ARGS FOR
1169                                       /THIS SWIT ?
1170 002513  5301          JMP XLOP0       /NO DO NXT
1171 002514  3107          DCA TMP2
1172 002515  1507          TAD I TMP2
1173 002516  0505          AND I TMP0      /CLR NON SWITCH
1174                                       /BITS
1175 002517  7041          CIA             /COMP WITH MASK
1176 002520  1505          TAD I TMP0
1177 002521  7640          SZA CLA         /IF ALL OK
1178                                       /LEAVE SWITCH
1179                                       /ALONE
1180 002522  3506          DCA I TMP1
1181 002523  5307          JMP XLOP1
1182                        
1183 002576  7757         PAGE
     002577  4467  
1184                       
1185 002600  0000  WRITE,  0
1186 002601  1200          TAD WRITE
1187 002602  3205          DCA READ
1188 002603  7330          FOURK
1189 002604  5206          JMP READ+1
1190                        
1191 002605  0000  READ,   0
1192 002606  3267          DCA RWBIT
1193 002607  4426          JMS I CHKC
1194 002610  1605          TAD I READ
1195 002611  3270          DCA DVPTR
1196 002612  2205          ISZ READ
1197 002613  1670          TAD I DVPTR     /UNIT
1198 002614  4777          JMS I (GETHAN
1199 002615  2270          ISZ DVPTR
1200 002616  1670          TAD I DVPTR     /PUT NUM BLKS
1201 002617  0071          AND P17         /IN B1-B5
1202 002620  7106          RTL CLL
1203 002621  7006          RTL
1204 002622  7006          RTL
1205 002623  7004          RAL
1206 002624  1023          TAD BUFFLD
1207 002625  1267          TAD RWBIT
1208 002626  3233          DCA IOLST
1209 002627  2270          ISZ DVPTR
1210 002630  1670          TAD I DVPTR
1211 002631  3235          DCA IOLST+2     /SBLK
1212 002632  4443          JMS I HANADR
1213 002633  0000  IOLST,  0
1214 002634  2000          2000
1215 002635  0000          0
1216 002636  5241          JMP .+3
1217 002637  2205          ISZ READ        /NON ERR RTN
1218 002640  5605          JMP I READ
1219 002641  7200          CLA
1220 002642  4514          JMS I TYPTXT
1221 002643  4703          IOMSG
1222 002644  7344          MTWO
1223 002645  1270          TAD DVPTR
1224 002646  3105          DCA TMP0
1225 002647  1505          TAD I TMP0
1226 002650  4513          JMS I TYDEV
1227 002651  1457          TAD I NAME
1228 002652  7650          SNA CLA
1229 002653  5256          JMP .+3
1230 002654  1057          TAD NAME
1231 002655  4512          JMS I TNAME
1232 002656  1235          TAD IOLST+2
1233 002657  4776          JMS I (OCTOUT
1234 002660  1267          TAD RWBIT
1235 002661  7700          SMA CLA
1236 002662  5265          JMP DONALL
1237 002663  1375          TAD (337
1238 002664  4774          JMS I (LSPPCH   /BACK ARROW
1239 002665  4427  DONALL, JMS I CRLF
1240 002666  5605          JMP I READ
1241 002667  0000  RWBIT,  0
1242 002670  0000  DVPTR,  0
1243                        
1244 002774  0457          PAGE
     002775  0337  
     002776  1711  
     002777  3000  
1245                       
1246                       
1247 003000  0000  GETHAN, 0
1248 003001  0071          AND P17
1249 003002  3106          DCA TMP1
1250 003003  1106          TAD TMP1
1251 003004  1377          TAD (DEVRES-1
1252 003005  3105          DCA TMP0
1253 003006  6211          CDF 10
1254 003007  1505          TAD I TMP0      /IS HANDLER IN
1255 003010  6201          CDF             /IN CORE ?
1256 003011  7440          SZA
1257 003012  5230          JMP NOFET       /YES
1258 003013  7344          MTWO
1259 003014  1106          TAD TMP1
1260 003015  7650          SNA CLA
1261 003016  1376          TAD (1200
1262 003017  1375          TAD (6001       /ENABLE 2 PG HANDLERS
1263 003020  3225          DCA .+5
1264 003021  1106          TAD TMP1
1265 003022  6212          CIF 10
1266 003023  4472          JMS I P200
1267 003024  0001          FETCH
1268 003025  0000          0
1269 003026  5232          JMP FETERR
1270 003027  1225          TAD .-2
1271 003030  3043  NOFET,  DCA HANADR
1272 003031  5600          JMP I GETHAN
1273                        
1274 003032  4514  FETERR, JMS I TYPTXT
1275 003033  4677          USRMSG
1276 003034  1374          TAD (FETCH
1277 003035  4773          JMS I (OCTOUT
1278 003036  5442          JMP I GETCD     /ABORT
1279                                       /COMMAND
1280                        
1281 003037  0000  TYPDEV, 0
1282 003040  0071          AND P17
1283 003041  1372          TAD (DMTBL-1
1284 003042  3105          DCA TMP0
1285 003043  1505          TAD I TMP0
1286 003044  3246          DCA .+2
1287 003045  4514          JMS I TYPTXT
1288 003046  0000          0
1289 003047  5637          JMP I TYPDEV
1290                        
1291 003172  4416          PAGE
     003173  1711  
     003174  0001  
     003175  6001  
     003176  1200  
     003177  7646  
1292                       
1293 003200  4475  COMPAR, JMS I RDSWIT
1294 003201  4457          CSTBL
1295 003202  1777          TAD I (OUTTBL
1296 003203  3116          DCA USRDEV
1297 003204  1116          TAD USRDEV
1298 003205  3340          DCA CD1
1299 003206  1376          TAD (INTBL
1300 003207  3047          DCA INPTR
1301 003210  1457          TAD I NAME
1302 003211  7650          SNA CLA
1303 003212  5226          JMP CDEV
1304 003213  1375          TAD (LOOKUP
1305 003214  4515          JMS I USR
1306 003215  1101          TAD SBLK
1307 003216  3342          DCA CD1+2
1308 003217  1447          TAD I INPTR
1309 003220  3343          DCA CD2
1310 003221  6211          CDF 10
1311 003222  1774          TAD I (7620
1312 003223  6201          CDF
1313 003224  3345          DCA CD2+2
1314 003225  4227          JMS DOCOMP
1315 003226  5442  CDEV,   JMP I GETCD
1316                        
1317 003227  0000  DOCOMP, 0
1318 003230  4773  LOP14,  JMS I (READ
1319 003231  3340          CD1
1320 003232  5442          JMP I GETCD
1321 003233  1372          TAD (2400
1322 003234  3771          DCA I (IOLST+1
1323 003235  4773          JMS I (READ
1324 003236  3343          CD2
1325 003237  5335          JMP CERR
1326 003240  7240          CLA CMA
1327 003241  3346          DCA BADB
1328 003242  7332          TWOK
1329 003243  3771          DCA I (IOLST+1
1330 003244  1370          TAD (1777
1331 003245  3010          DCA NDX0
1332 003246  1367          TAD (2377
1333 003247  3011          DCA NDX1
1334 003250  1366          TAD (-400
1335 003251  3351          DCA ZCNT
1336 003252  6211          CDF 10
1337 003253  1410  LOP13,  TAD I NDX0
1338 003254  7041          CIA
1339 003255  1411          TAD I NDX1
1340 003256  7640          SZA CLA
1341 003257  5270          JMP BADCOM
1342 003260  2351  LOP15,  ISZ ZCNT
1343 003261  5253          JMP LOP13
1344 003262  6201          CDF
1345 003263  2342          ISZ CD1+2
1346 003264  2345          ISZ CD2+2
1347 003265  2037          ISZ FLEN
1348 003266  5230          JMP LOP14
1349 003267  5627          JMP I DOCOMP
1350 003270  6201  BADCOM, CDF
1351 003271  2346          ISZ BADB
1352 003272  5304          JMP BYBLK
1353 003273  1340          TAD CD1
1354 003274  4513          JMS I TYDEV
1355 003275  1342          TAD CD1+2
1356 003276  4765          JMS I (OCTOUT
1357 003277  1343          TAD CD2
1358 003300  4513          JMS I TYDEV
1359 003301  1345          TAD CD2+2
1360 003302  4765          JMS I (OCTOUT
1361 003303  4427          JMS I CRLF
1362 003304  1350  BYBLK,  TAD BADFO
1363 003305  7640          SZA CLA
1364 003306  5442          JMP I GETCD
1365 003307  1347          TAD BADBO
1366 003310  7640          SZA CLA
1367 003311  5332          JMP DOMORE
1368 003312  1364          TAD (400
1369 003313  1351          TAD ZCNT
1370 003314  4765          JMS I (OCTOUT
1371 003315  1010          TAD NDX0
1372 003316  3105          DCA TMP0
1373 003317  6211          CDF 10
1374 003320  1505          TAD I TMP0
1375 003321  6201          CDF
1376 003322  4765          JMS I (OCTOUT
1377 003323  1011          TAD NDX1
1378 003324  3105          DCA TMP0
1379 003325  6211          CDF 10
1380 003326  1505          TAD I TMP0
1381 003327  6201          CDF
1382 003330  4765          JMS I (OCTOUT
1383 003331  4427          JMS I CRLF
1384 003332  4426  DOMORE, JMS I CHKC
1385 003333  6211          CDF 10
1386 003334  5260          JMP LOP15
1387 003335  7332  CERR,   TWOK
1388 003336  3771          DCA I (IOLST+1
1389 003337  5442          JMP I GETCD
1390 003340  0000  CD1,    0;1;0
     003341  0001  
     003342  0000  
1391 003343  0000  CD2,    0;1;0
     003344  0001  
     003345  0000  
1392 003346  0000  BADB,   0
1393 003347  0000  BADBO,  0
1394 003350  0000  BADFO,  0
1395 003351  0000  ZCNT,   0
1396                        
1397 003364  0400          PAGE
     003365  1711  
     003366  7400  
     003367  2377  
     003370  1777  
     003371  2634  
     003372  2400  
     003373  2605  
     003374  7620  
     003375  0002  
     003376  4510  
     003377  4501  
1398                       
1399               /FILE EDITOR FOR OS/8.
1400                        
1401 003400  1777  FED,    TAD I (OUTTBL
1402 003401  0071          AND P17
1403 003402  3116          DCA USRDEV
1404 003403  1457          TAD I NAME
1405 003404  7640          SZA CLA
1406 003405  5215          JMP ITSNAM
1407 003406  1116          TAD USRDEV
1408 003407  1376          TAD (DLTBL-1
1409 003410  3105          DCA TMP0
1410 003411  1505          TAD I TMP0
1411 003412  3037          DCA FLEN
1412 003413  3101          DCA SBLK
1413 003414  5217          JMP .+3
1414 003415  1375  ITSNAM, TAD (LOOKUP
1415 003416  4515          JMS I USR
1416 003417  3073          DCA SRWD
1417 003420  7240          CLA CMA
1418 003421  3066          DCA MSKWD
1419 003422  3041          DCA MODF
1420 003423  1116          TAD USRDEV
1421 003424  3061          DCA OUDEV
1422 003425  7001          IAC
1423 003426  3062          DCA OUDEV+1
1424 003427  4774          JMS I (RD
1425 003430  4773  LOP16,  JMS I (GINP
1426 003431  4772          JMS I (G6BIT
1427 003432  5246          JMP GOTCMD
1428 003433  3265          DCA ENDCT
1429 003434  1371          TAD (CMDTBL-2
1430 003435  3010          DCA NDX0
1431 003436  2010          ISZ NDX0
1432 003437  1410          TAD I NDX0
1433 003440  7041          CIA
1434 003441  1265          TAD ENDCT
1435 003442  7640          SZA CLA
1436 003443  5236          JMP .-5
1437 003444  1410          TAD I NDX0
1438 003445  3250          DCA CMDTBL-1
1439 003446  4650  GOTCMD, JMS I CMDTBL-1
1440 003447  5230          JMP LOP16
1441                        
1442 003450  3467          QMARK
1443 003451  2200  CMDTBL, 2200
1444 003452  3730          R
1445 003453  2700          2700
1446 003454  3735          W
1447 003455  0300          0300
1448 003456  3474          C
1449 003457  2300          2300
1450 003460  4200          SR
1451 003461  1700          1700
1452 003462  4101          O
1453 003463  0500          0500
1454 003464  3753          EX
1455 003465  0000  ENDCT,  0
1456 003466  3467          QMARK
1457                        
1458 003467  0000  QMARK,  0
1459 003470  1370          TAD (277
1460 003471  4767          JMS I (LSPPCH
1461 003472  4427          JMS I CRLF
1462 003473  5667          JMP I QMARK
1463                        
1464                       
1465 003474  0000  C,      0               /STATUS COMMAND
1466 003475  1077          TAD RBLK
1467 003476  4766          JMS I (OCTOUT
1468 003477  1041          TAD MODF
1469 003500  7650          SNA CLA
1470 003501  5304          JMP .+3
1471 003502  1365          TAD (306
1472 003503  4767          JMS I (LSPPCH
1473 003504  1044          TAD MODB
1474 003505  7650          SNA CLA
1475 003506  5311          JMP .+3
1476 003507  1364          TAD (302
1477 003510  4767          JMS I (LSPPCH
1478 003511  1363          TAD (240
1479 003512  4767          JMS I (LSPPCH
1480 003513  1025          TAD CLOC
1481 003514  4766          JMS I (OCTOUT
1482 003515  1073          TAD SRWD
1483 003516  4766          JMS I (OCTOUT
1484 003517  1066          TAD MSKWD
1485 003520  4766          JMS I (OCTOUT
1486 003521  4427          JMS I CRLF
1487 003522  5674          JMP I C
1488                        
1489 003563  0240          PAGE
     003564  0302  
     003565  0306  
     003566  1711  
     003567  0457  
     003570  0277  
     003571  3447  
     003572  3617  
     003573  4000  
     003574  3704  
     003575  0002  
     003576  4377  
     003577  4501  
1490                       
1491 003600  0000  GETC,   0               /GET AN INPUT
1492 003601  1424          TAD I BUFPTR    /CHAR
1493 003602  1036          TAD EOLWD
1494 003603  7650          SNA CLA
1495 003604  5600          JMP I GETC
1496 003605  1424          TAD I BUFPTR
1497 003606  3046          DCA INCHR
1498 003607  2024          ISZ BUFPTR
1499 003610  1046          TAD INCHR
1500 003611  1377          TAD (-254       /,
1501 003612  7650          SNA CLA
1502 003613  5600          JMP I GETC
1503 003614  2200          ISZ GETC
1504 003615  1046          TAD INCHR
1505 003616  5600          JMP I GETC
1506                        
1507 003617  0000  G6BIT,  0               /8 TO 6 BIT
1508 003620  4200          JMS GETC
1509 003621  5617          JMP I G6BIT
1510 003622  0376          AND (77
1511 003623  7106          RTL CLL
1512 003624  7006          RTL
1513 003625  7006          RTL
1514 003626  3105          DCA TMP0
1515 003627  4200          JMS GETC
1516 003630  5242          JMP EX6
1517 003631  0376          AND (77
1518 003632  1105          TAD TMP0
1519 003633  3105          DCA TMP0
1520 003634  4200          JMS GETC
1521 003635  5242          JMP EX6
1522 003636  4277          JMS BUPTR
1523 003637  4277          JMS BUPTR
1524 003640  4277          JMS BUPTR
1525 003641  5617          JMP I G6BIT
1526 003642  1105  EX6,    TAD TMP0
1527 003643  2217          ISZ G6BIT
1528 003644  5617          JMP I G6BIT
1529                        
1530                       
1531 003645  0000  GOCTAL, 0               /GET OCTAL DIGIT
1532 003646  1024          TAD BUFPTR
1533 003647  3107          DCA TMP2
1534 003650  4200          JMS GETC
1535 003651  5645          JMP I GOCTAL
1536 003652  4277          JMS BUPTR
1537 003653  3106  LOP17,  DCA TMP1
1538 003654  4200          JMS GETC
1539 003655  5274          JMP FOCT
1540 003656  1375          TAD (-260
1541 003657  3105          DCA TMP0
1542 003660  1105          TAD TMP0
1543 003661  0374          AND (7770
1544 003662  7650          SNA CLA
1545 003663  5267          JMP .+4
1546 003664  1107          TAD TMP2
1547 003665  3024          DCA BUFPTR
1548 003666  5645          JMP I GOCTAL
1549 003667  1106          TAD TMP1
1550 003670  7106          RTL CLL
1551 003671  7004          RAL
1552 003672  1105          TAD TMP0
1553 003673  5253          JMP LOP17
1554 003674  2245  FOCT,   ISZ GOCTAL
1555 003675  1106          TAD TMP1
1556 003676  5645          JMP I GOCTAL
1557                        
1558 003677  0000  BUPTR,  0
1559 003700  7240          CLA CMA
1560 003701  1024          TAD BUFPTR
1561 003702  3024          DCA BUFPTR
1562 003703  5677          JMP I BUPTR
1563                        
1564                       
1565 003704  0000  RD,     0               /READ A BLK
1566 003705  3105          DCA TMP0        /=REL BLK TO DO
1567 003706  7100          CLL
1568 003707  1037          TAD FLEN
1569 003710  1105          TAD TMP0
1570 003711  7620          SNL CLA
1571 003712  5315          JMP .+3
1572 003713  4773          JMS I (QMARK
1573 003714  5704          JMP I RD
1574 003715  1105          TAD TMP0
1575 003716  3077          DCA RBLK
1576 003717  1077          TAD RBLK
1577 003720  1101          TAD SBLK
1578 003721  3063          DCA OUDEV+2
1579 003722  4772          JMS I (READ
1580 003723  0061          OUDEV
1581 003724  5450          JMP I IOERR
1582 003725  3044          DCA MODB
1583 003726  3025          DCA CLOC
1584 003727  5704          JMP I RD
1585                        
1586 003730  0000  R,      0               /R COMMAND
1587 003731  4245          JMS GOCTAL
1588 003732  1077          TAD RBLK
1589 003733  4304          JMS RD
1590 003734  5730          JMP I R
1591                        
1592 003735  0000  W,      0               /WRITE COMMAND
1593 003736  1044          TAD MODB
1594 003737  7650          SNA CLA
1595 003740  5345          JMP .+5
1596 003741  4771          JMS I (WRITE
1597 003742  0061          OUDEV
1598 003743  5450          JMP I IOERR
1599 003744  7240          CLA CMA
1600 003745  3041          DCA MODF
1601 003746  1077          TAD RBLK
1602 003747  7001          IAC
1603 003750  4304          JMS RD
1604 003751  3044          DCA MODB
1605 003752  5735          JMP I W
1606                        
1607 003753  0000  EX,     0               /EXIT TO DECODE
1608 003754  1044          TAD MODB
1609 003755  7650          SNA CLA
1610 003756  5442          JMP I GETCD
1611 003757  4771          JMS I (WRITE
1612 003760  0061          OUDEV
1613 003761  5450          JMP I IOERR
1614 003762  5442          JMP I GETCD
1615                        
1616 003771  2600          PAGE
     003772  2605  
     003773  3467  
     003774  7770  
     003775  7520  
     003776  0077  
     003777  7524  
1617                       
1618 004000  0000  GINP,   0               /GET KBRD INPUT
1619 004001  1054          TAD MAXLEN
1620 004002  3060          DCA OCNT
1621 004003  1377          TAD (BUFADR
1622 004004  3024          DCA BUFPTR
1623 004005  4576          JMS I [LSPRDR
1624 004006  0175          AND     [177
1625 004007  1177          TAD     [200
1626 004010  3046          DCA     INCHR
1627 004011  1046          TAD     INCHR
1628 004012  1376          TAD (-212
1629 004013  7450          SNA
1630 004014  5271          JMP LFEND
1631 004015  1375          TAD (212-203
1632 004016  7450          SNA
1633 004017  5574          JMP I [CTRLC0
1634 004020  1374          TAD (203-215
1635 004021  7450          SNA
1636 004022  5270          JMP LFEND-1
1637 004023  1373          TAD (215-225
1638 004024  7440          SZA
1639 004025  5234          JMP TRYRUB
1640 004026  1372          TAD (336
1641 004027  4771          JMS I (LSPPCH
1642 004030  1370          TAD (325
1643 004031  4771          JMS I (LSPPCH
1644 004032  4427          JMS I CRLF
1645 004033  5201          JMP GINP+1
1646 004034  1367  TRYRUB, TAD (225-377
1647 004035  7640          SZA CLA
1648 004036  5255          JMP PUTC
1649 004037  1054          TAD MAXLEN
1650 004040  7041          CIA
1651 004041  1060          TAD OCNT
1652 004042  7650          SNA CLA
1653 004043  5205          JMP GINP+5
1654 004044  7240          CLA CMA
1655 004045  1060          TAD OCNT
1656 004046  3060          DCA OCNT
1657 004047  7240          CLA CMA
1658 004050  1024          TAD BUFPTR
1659 004051  3024          DCA BUFPTR
1660 004052  1366          TAD (334
1661 004053  4771          JMS I (LSPPCH
1662 004054  5205          JMP GINP+5
1663 004055  1046  PUTC,   TAD INCHR
1664 004056  4771          JMS I (LSPPCH
1665 004057  1046          TAD INCHR
1666 004060  1365          TAD (-240
1667 004061  7650          SNA CLA
1668 004062  5205          JMP GINP+5
1669 004063  1046          TAD INCHR
1670 004064  3424          DCA I BUFPTR
1671 004065  2024          ISZ BUFPTR
1672 004066  2060          ISZ OCNT
1673 004067  5205          JMP GINP+5
1674 004070  7001          IAC
1675 004071  3424  LFEND,  DCA I BUFPTR
1676 004072  1424          TAD I BUFPTR
1677 004073  7041          CIA
1678 004074  3036          DCA EOLWD
1679 004075  1377          TAD (BUFADR
1680 004076  3024          DCA BUFPTR
1681 004077  4427          JMS I CRLF
1682 004100  5600          JMP I GINP
1683                        
1684                       
1685 004101  0000  O,      0               /OPEN LOC N
1686 004102  4764          JMS I (GOCTAL
1687 004103  5306          JMP .+3
1688 004104  0363          AND (377
1689 004105  3025  LOP20,  DCA CLOC
1690 004106  4321          JMS DOLOC
1691 004107  1036          TAD EOLWD
1692 004110  7640          SZA CLA
1693 004111  5701          JMP I O
1694 004112  1025          TAD CLOC
1695 004113  7001          IAC
1696 004114  0363          AND (377
1697 004115  7440          SZA
1698 004116  5305          JMP LOP20
1699 004117  4762          JMS I (W
1700 004120  5306          JMP LOP20+1
1701                        
1702 004121  0000  DOLOC,  0
1703 004122  4333          JMS GETWRD
1704 004123  4761          JMS I (OCTOUT
1705 004124  1360          TAD (257
1706 004125  4771          JMS I (LSPPCH
1707 004126  4200          JMS GINP
1708 004127  4764          JMS I (GOCTAL
1709 004130  5721          JMP I DOLOC
1710 004131  4343          JMS PUTWRD
1711 004132  5721          JMP I DOLOC
1712                        
1713 004133  0000  GETWRD, 0
1714 004134  1025          TAD CLOC
1715 004135  1757          TAD I (IOLST+1
1716 004136  3105          DCA TMP0
1717 004137  6211          CDF 10
1718 004140  1505          TAD I TMP0
1719 004141  6201          CDF
1720 004142  5733          JMP I GETWRD
1721                        
1722 004143  0000  PUTWRD, 0
1723 004144  3105          DCA TMP0
1724 004145  1025          TAD CLOC
1725 004146  1757          TAD I (IOLST+1
1726 004147  3106          DCA TMP1
1727 004150  1105          TAD TMP0
1728 004151  6211          CDF 10
1729 004152  3506          DCA I TMP1
1730 004153  6201          CDF
1731 004154  7240          CLA CMA
1732 004155  3044          DCA MODB
1733 004156  5743          JMP I PUTWRD
1734                        
1735 004157  2634          PAGE
     004160  0257  
     004161  1711  
     004162  3735  
     004163  0377  
     004164  3645  
     004165  7540  
     004166  0334  
     004167  7626  
     004170  0325  
     004171  0457  
     004172  0336  
     004173  7770  
     004174  7766  
     004175  0007  
     004176  7566  
     004177  6600  
1736                       
1737 004200  0000  SR,     0               /SEARCH COMM.
1738 004201  4777          JMS I (GOCTAL
1739 004202  7410          SKP
1740 004203  3073          DCA SRWD
1741 004204  4777          JMS I (GOCTAL
1742 004205  7410          SKP
1743 004206  3066          DCA MSKWD
1744 004207  1036          TAD EOLWD
1745 004210  3271          DCA ISVEOL
1746 004211  3270          DCA MATFLG
1747 004212  1073          TAD SRWD
1748 004213  0066          AND MSKWD
1749 004214  7041          CIA
1750 004215  3020          DCA BCC1
1751 004216  7240          CLA CMA
1752 004217  3267          DCA SRBFLG
1753 004220  4776  LOP18,  JMS I (GETWRD
1754 004221  0066          AND MSKWD
1755 004222  1020          TAD BCC1
1756 004223  7650          SNA CLA
1757 004224  5244          JMP SRMAT
1758 004225  2025  LOP19,  ISZ CLOC
1759 004226  1025          TAD CLOC
1760 004227  0375          AND (377
1761 004230  7640          SZA CLA
1762 004231  5220          JMP LOP18
1763 004232  1375          TAD (377
1764 004233  3025          DCA CLOC
1765 004234  1271          TAD ISVEOL
1766 004235  7640          SZA CLA
1767 004236  5263          JMP EXS
1768 004237  4774          JMS I (W
1769 004240  1025          TAD CLOC
1770 004241  7650          SNA CLA
1771 004242  5216          JMP LOP18-2
1772 004243  5263          JMP EXS
1773 004244  1267  SRMAT,  TAD SRBFLG
1774 004245  7650          SNA CLA
1775 004246  5251          JMP .+3
1776 004247  1077          TAD RBLK
1777 004250  4773          JMS I (OCTOUT
1778 004251  7240          CLA CMA
1779 004252  3270          DCA MATFLG
1780 004253  3267          DCA SRBFLG
1781 004254  1025          TAD CLOC
1782 004255  4773          JMS I (OCTOUT
1783 004256  4427          JMS I CRLF
1784 004257  4772          JMS I (DOLOC
1785 004260  1036          TAD EOLWD
1786 004261  7650          SNA CLA
1787 004262  5225          JMP LOP19
1788 004263  1270  EXS,    TAD MATFLG
1789 004264  7650          SNA CLA
1790 004265  4771          JMS I (QMARK
1791 004266  5600          JMP I SR
1792 004267  0000  SRBFLG, 0
1793 004270  0000  MATFLG, 0
1794 004271  0000  ISVEOL, 0
1795                        
1796 004371  3467          PAGE
     004372  4121  
     004373  1711  
     004374  3735  
     004375  0377  
     004376  4133  
     004377  3645  
1797                       
1798               /TABLES FOR FPIP
1799                        
1800 004400  1520  DLTBL,  -6260           /DEVICE LENGTHS
1801 004401  1520          -6260           /FOR UNITS 1-17
1802 004402  0000          0               /SYS,DSK,TTY
1803 004403  0000          0               /LPT
1804 004404  6437          -1341;-1341             /DTA0-
     004405  6437  
1805 004406  6437          -1341;-1341             /DTA7
     004407  6437  
1806 004410  6437          -1341;-1341
     004411  6437  
1807 004412  6437          -1341;-1341
     004413  6437  
1808 004414  0000          0
1809 004415  0000          0
1810 004416  0000          0
1811                        
1812 004417  4534  DMTBL,  SYMSG
1813 004420  4540          DKMSG
1814 004421  4544          TTMSG
1815 004422  4550          LPMSG
1816 004423  4554          D0MSG
1817 004424  4560          D1MSG
1818 004425  4564          D2MSG
1819 004426  4570          D3MSG
1820 004427  4574          D4MSG
1821 004430  4600          D5MSG
1822 004431  4604          D6MSG
1823 004432  4610          D7MSG
1824 004433  4614          PPMSG
1825 004434  4620          PRMSG
1826 004435  4624          CDMSG
1827                        
1828 004436  4660  AMSG,   PARMSG
1829 004437  4660          PARMSG
1830 004440  4670          LTMSG
1831 004441  4630          EOTMSG
1832                       
1833 004442  0034  PSTBL,  EOTFLG
1834 004443  0100          SATOL
1835 004444  0200          200             /E
1836 004445  0000          0
1837 004446  0052          LSPFLG
1838 004447  0100          SATOL
1839 004450  0001          1               /L
1840 004451  0000          0
1841 004452  0070          PATFLG
1842 004453  0103          SMTOX
1843 004454  0400          400             /P
1844 004455  0000          0;0
     004456  0000  
1845 004457  3347  CSTBL,  BADBO
1846 004460  0100          SATOL
1847 004461  2000          2000            /B
1848 004462  0000          0
1849 004463  3350          BADFO
1850 004464  0100          SATOL
1851 004465  4000          4000
1852 004466  0000          0;0
     004467  0000  
1853                        
1854                       
1855 004470  0000  TM,     0
1856 004471  0000          0
1857 004472  0000          0
1858 004473  0000          0
1859 004474  0000          0
1860 004475  0000          0
1861 004476  0000          0
1862 004477  0000          0
1863 004500  0000          0
1864 004501  0001  OUTTBL, 1;0
     004502  0000  
1865 004503  0000          0;0
     004504  0000  
1866 004505  0000          0;0
     004506  0000  
1867 004507  0000          0
1868 004510  0005  INTBL,  5;0
     004511  0000  
1869 004512  0000          0;0
     004513  0000  
1870 004514  0000          0;0
     004515  0000  
1871 004516  0000          0;0
     004517  0000  
1872 004520  0000          0;0
     004521  0000  
1873 004522  0000          0;0
     004523  0000  
1874 004524  0000          0;0
     004525  0000  
1875 004526  0000          0;0
     004527  0000  
1876 004530  0000          0;0
     004531  0000  
1877 004532  0000          0
1878                        
1879                       
1880 004533  0000  S0FLG,  0               /CM
1881                       
1882 004534  2331  SYMSG,  TEXT "SYS:"
     004535  2372  
     004536  0000  
1883 004537  0000          0
1884 004540  0423  DKMSG,  TEXT "DSK:"
     004541  1372  
     004542  0000  
1885 004543  0000          0
1886 004544  2424  TTMSG,  TEXT "TTY:"
     004545  3172  
     004546  0000  
1887 004547  0000          0
1888 004550  1420  LPMSG,  TEXT "LPT:"
     004551  2472  
     004552  0000  
1889 004553  0000          0
1890 004554  0424  D0MSG,  TEXT "DTA0:"
     004555  0160  
     004556  7200  
1891 004557  0000          0
1892 004560  0424  D1MSG,  TEXT "DTA1:"
     004561  0161  
     004562  7200  
1893 004563  0000          0
1894 004564  0424  D2MSG,  TEXT "DTA2:"
     004565  0162  
     004566  7200  
1895 004567  0000          0
1896 004570  0424  D3MSG,  TEXT "DTA3:"
     004571  0163  
     004572  7200  
1897 004573  0000          0
1898 004574  0424  D4MSG,  TEXT "DTA4:"
     004575  0164  
     004576  7200  
1899 004577  0000          0
1900 004600  0424  D5MSG,  TEXT "DTA5:"
     004601  0165  
     004602  7200  
1901 004603  0000          0
1902 004604  0424  D6MSG,  TEXT "DTA6:"
     004605  0166  
     004606  7200  
1903 004607  0000          0
1904 004610  0424  D7MSG,  TEXT "DTA7:"
     004611  0167  
     004612  7200  
1905 004613  0000          0
1906 004614  2024  PPMSG,  TEXT "PTP:"
     004615  2072  
     004616  0000  
1907 004617  0000          0
1908 004620  2024  PRMSG,  TEXT "PTR:"
     004621  2272  
     004622  0000  
1909 004623  0000          0
1910 004624  0304  CDMSG,  TEXT "CDR:"
     004625  2272  
     004626  0000  
1911 004627  0000          0
1912 004630  0516  EOTMSG, TEXT "END OF TAPE "
     004631  0440  
     004632  1706  
     004633  4024  
     004634  0120  
     004635  0540  
     004636  0000  
1913 004637  0000          0
1914 004640  0516  NTMSG,  TEXT "ENTER NEXT "
     004641  2405  
     004642  2240  
     004643  1605  
     004644  3024  
     004645  4000  
1915 004646  0000          0
1916 004647  1123  BIGMSG, TEXT "IS TOO BIG FOR "
     004650  4024  
     004651  1717  
     004652  4002  
     004653  1107  
     004654  4006  
     004655  1722  
     004656  4000  
1917 004657  0000          0
1918 004660  2001  PARMSG, TEXT "PARITY ERROR "
     004661  2211  
     004662  2431  
     004663  4005  
     004664  2222  
     004665  1722  
     004666  4000  
1919 004667  0000          0
1920 004670  1457  LTMSG,  TEXT "L/T ERROR "
     004671  2440  
     004672  0522  
     004673  2217  
     004674  2240  
     004675  0000  
1921 004676  0000          0
1922 004677  2523  USRMSG, TEXT "USR "
     004700  2240  
     004701  0000  
1923 004702  0000          0
1924 004703  1157  IOMSG,  TEXT "I/O ERROR "
     004704  1740  
     004705  0522  
     004706  2217  
     004707  2240  
     004710  0000  
1925 004711  0000          0
1926 004712  1605  NMSG,   TEXT "NEED: "
     004713  0504  
     004714  7240  
     004715  0000  
1927 004716  0000          0
1928 004717  0617  FMSG,   TEXT "FOUND: "
     004720  2516  
     004721  0472  
     004722  4000  
1929 004723  0000          0
1930 004724  0201  BEQMSG, TEXT "BAD =BLK"
     004725  0440  
     004726  7502  
     004727  1413  
     004730  0000  
1931 004731  0000          0
1932                        
1933                       
1934 004732  0000  PARADR, 0
1935                       *PARADR+41
1936 004773  0000  FNAME,  0;0;0;0;0
     004774  0000  
     004775  0000  
     004776  0000  
     004777  0000  
1937 005000  0000  FRMADR, 0
1938                       *614+FRMADR
1939 005614  0000  AAFREE, 0
1940                       *6600-10
1941 006570  0000  HDATA,  0               /TYPE (HOLDS
1942                                       /VERS FOR NOW)
1943 006571  0000          0;0;0;0         /NAME
     006572  0000  
     006573  0000  
     006574  0000  
1944 006575  0000          0               /REL BLK
1945 006576  0000          0               /LEN
1946 006577  0000          0               /CONTINUATION
1947                                       /WD 0 FOR NOW
1948 006600  0000  BUFADR, 0
1949                        
1950                       LTLEN=124
1951                       MXPBLK=40
1952                       NBYTS=41
1953                       MTHREE=7346     /CLA CLL CMA RTL
1954                       MTWO=7344       /CLA CLL CMA RAL
1955                       TWOK=7332       /CLA CLL CML RTR
1956                       FOURK=7330      /CLL CML CLA RAR
1957                       FETCH=1
1958                       LOOKUP=2
1959                       ENTER=3
1960                       CLOSE=4
1961                       DECODE=5
1962                       CHAINE=6
1963                       ERROR=7
1964                       USRIN=10
1965                       USROUT=11
1966                       INQUIRE=12
1967                       RESET=13
1968                       PLS=6026
1969                       PSF=6021
1970                       RFC=6014
1971                       RRB=6012
1972                       RSF=6011
1973                       DEVRES=7647
1974                       ATOL=7643
1975                       MTOX=7644
1976                       YTO9=7645
1977                       IFZERO  PTAPE   <
1978                       NSLOTS=S0END-S0FLG
1979                       >
1980                        
1981                        
1982 000174  0515          $
     000175  0177  
     000176  0450  
     000177  0200  

AAFREE  5614 unreferenced
ABORT   1355
AMSG    4436
ATOL    7643
BADB    3346
BADBO   3347
BADCOM  3270
BADFO   3350
BCC1    0020
BCC2    0021
BEQMSG  4724
BIGMSG  4647
BLKERR  1220
BLKLEN  0022 unreferenced
BLKR    1071
BLKW    0664
BUFADR  6600
BUFFLD  0023
BUFPTR  0024
BUPTR   3677
BY0     2465
BY1     2217
BY3     0674
BYBLK   3304
BYDUN   1104
BYTCNT  0025
BYTERR  1217
C       3474
CD1     3340
CD2     3343
CDEV    3226
CDMSG   4624
CERR    3335
CHAINE  0006 unreferenced
CHKC    0026
CHKMI   2200
CHKP37  2414
CLOC    0025
CLOSE   0004
CMDTBL  3451
CNTR0   1353
CNTR1   1354
CNTR2   1516
COMPAR  3200
CRC     2062
CRLF    0027
CSTBL   4457
CTRLC   0504
CTRLC0  0515
D0MSG   4554
D1MSG   4560
D2MSG   4564
D3MSG   4570
D4MSG   4574
D5MSG   4600
D6MSG   4604
D7MSG   4610
DATBUF  0030
DECOD   0211
DECODE  0005
DEVRES  7647
DKMSG   4540
DLTBL   4400
DMTBL   4417
DOCOMP  3227
DOCRC   0031
DODFN   0400
DOEXT   1665
DOHAF   1617
DOLOC   4121
DOMORE  3332
DONALL  2665
DOPAR   1521
DOUSR   2221
DVPTR   2670
EBLKHI  0032
EFLG    0033 unreferenced
ENDCT   3465
ENTER   0003
EOLWD   0036
EOT     1130
EOTFLG  0034
EOTMSG  4630
EQBLK   0035
ERCNT   0747
ERCODE  0036
ERROR   0007 unreferenced
EX      3753
EX6     3642
EXS     4263
F1      1520
F2      1517
FCNT    0750
FED     3400
FETCH   0001
FETERR  3032
FLEN    0037
FMSG    4717
FNAME   4773
FNPTR   0040 unreferenced
FOCT    3674
FOURK   7330
FRMADR  5000
FRMPTR  0041
G6BIT   3617
GETBYT  1246
GETC    3600
GETCD   0042
GETHAN  3000
GETWRD  4133
GINP    4000
GOCTAL  3645
GOTCMD  3446
GOTMOD  0336
HANADR  0043
HDATA   6570
HOLDW2  1356
HSPPCH  0440
HSPRDR  0430
ICHKB   2000
IDOFLG  0044
IFEOT   0705
IMPFLG  0045 unreferenced
INCHR   0046
INPTR   0047
INQUIR  0012 unreferenced
INTBL   4510
IOERR   0050
IOLST   2633
IOMSG   4703
IOTSKP  0500
IOWAIT  0467
ISETB   1415
ISVEOL  4271
ITSNAM  3415
LFEND   4071
LOOKUP  0002
LOP0    0415
LOP1    1066
LOP10   2015
LOP11   1716
LOP12   2004
LOP13   3253
LOP14   3230
LOP15   3260
LOP16   3430
LOP17   3653
LOP18   4220
LOP19   4225
LOP2    1055
LOP20   4105
LOP3    0656
LOP4    0725
LOP5    1257
LOP6    1255
LOP7    1442
LOP8    1604
LOP9    1651
LPMSG   4550
LPWAIT  1431
LPWT    0051
LSPFLG  0052
LSPPCH  0457
LSPRDR  0450
LTCNT   1127
LTLEN   0124
LTMSG   4670
M4      0056
MATFLG  4270
MAXCNT  0053
MAXLEN  0054
MIFLG   0055
MODB    0044
MODE    0351
MODF    0041
MODTBL  0337
MSKWD   0066
MTHREE  7346
MTOX    7644
MTWO    7344
MXPBLK  0040
N1      2236
NAME    0057
NAMERR  2050
NBYTS   0041
NDX0    0010
NDX1    0011
NDX2    0012 unreferenced
NMSG    4712
NOFET   3030
NOFIT   0751
NOPAR   1311
NOPAT   1033
NOVERS  0245
NTMSG   4640
O       4101
OCNT    0060
OCTOUT  1711
ONBLK   1222
OUDEV   0061
OUTCHR  0064
OUTPTR  0065 unreferenced
OUTTBL  4501
P17     0071
P200    0072
P256    1702
P3      1705
PACK    1315
PARADR  4732
PARCHR  0066
PARFLG  1352
PARMSG  4660
PARPTR  0067
PATFLG  0070
PHYSIO  1640
PLS     6026
PPMSG   4614
PREAD   1200
PRMSG   4620
PSF     6021
PSTBL   4442
PTAP    1000
PTAPE   0001
PTIN    0600
PUTBYT  1436
PUTC    4055
PUTWRD  4143
PWRITE  1400
QMARK   3467
R       3730
RBLK    0077
RD      3704
RDCHR   0073
RDERR   0722
RDPBLK  0074
RDSWIT  0075
READ    2605
RECHK   2042
RELBLK  0076
RESET   0013 unreferenced
RFC     6014
RRB     6012
RSF     6011
RWBIT   2667
S0FLG   4533 unreferenced
SATOL   0100
SBLK    0101
SETDV   2400
SLPTR   0102 unreferenced
SMTOX   0103
SR      4200
SRBFLG  4267
SRMAT   4244
SRWD    0073
START   0200 unreferenced
SWITCH  2467
SYMSG   4534
SYTO9   0104
TM      4470
TMP0    0105
TMP1    0106
TMP2    0107
TMP3    0110
TMP4    0111 unreferenced
TNAME   0112
TRYRUB  4034
TTMSG   4544
TTOTXT  1600
TWOK    7332
TYCRLF  1632
TYDEV   0113
TYPDEV  3037
TYPNAM  1643
TYPTXT  0114
USR     0115
USRDEV  0116
USRERR  2246
USRIN   0010
USRMSG  4677
USROUT  0011 unreferenced
VERS    0000
VERSON  0352
W       3735
WLT     1116
WRCHR   0117
WRITE   2600
XLOP0   2501
XLOP1   2507
XLOP2   2433
YTO9    7645
ZCNT    3351