sw/os8/v3d/sources/system/dectapes/dectape6/BOOT.PA

   1 /16     BOOT    -       OS/8 V3D
   2 /
   3 /
   4 /
   5 /
   6 /
   7 /
   8 /
   9 /
  10 /
  11 /COPYRIGHT  (C)  1974,1975,1977 BY DIGITAL EQUIPMENT CORPORATION
  12 /
  13 /
  14 /
  15 /
  16 /
  17 /
  18 /
  19 /
  20 /
  21 /
  22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
  23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  24 /CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
  25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
  26 /
  27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
  28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
  29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
  30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
  31 /
  32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
  33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
  34 /DIGITAL.
  35 /
  36 /
  37 /
  38 /
  39 /
  40 /
  41 /
  42 /
  43 /
  44 /
  45 \f       /SR
  46
  47 /FIXES MADE FOR MAINTENANCE RELEASE:
  48
  49 /1.     ADDED RX01 (FLOPPY BOOTSTRAP)
  50 /2.     LEFT PATCH SPACE IN NAME TABLE
  51
  52         PTR=14
  53         OLDLOC=15
  54         NEWLOC=16
  55         CDOIO=27
  56         SCAN=17
  57
  58         *1
  59         HLT
  60         JMP I (7600
  61         *100
  62
  63 INNER,  0
  64 OUTR,   -20
  65 CODE,   0
  66 LENGTH, 0
  67 \f       *200
  68
  69 START,  CLA             /ALLOW BEING CHAINED TO
  70         TAD I (7600
  71         SPA CLA
  72         JMP OS8IN
  73         ISZ INNER
  74         JMP .-1
  75         ISZ OUTR
  76         JMP .-3
  77         JMS I (TESTRK
  78 COSIN,  TAD I (7776
  79 COMN,   CIA
  80         DCA CODE
  81         TAD (TABLE-1
  82         DCA PTR
  83 LOOP,   TAD I PTR
  84         SNA
  85         JMP OS8
  86         TAD CODE
  87         SZA CLA
  88         JMP NXT
  89         IOF
  90         STA
  91         TAD I PTR
  92         DCA OLDLOC
  93         STA
  94         TAD I PTR
  95         DCA NEWLOC
  96         TAD I PTR
  97         CIA
  98         DCA LENGTH
  99         TAD I OLDLOC
 100         DCA I NEWLOC
 101         ISZ LENGTH
 102         JMP .-3
 103         TAD I PTR
 104         DCA TEMP
 105         TAD HLTSWT
 106         SNA CLA
 107         HLT
 108         CLL
 109         JMP I TEMP
 110 HLTSWT, 1
 111
 112 NXT,    TAD PTR
 113         TAD (4
 114         DCA PTR
 115         JMP LOOP
 116 \fOS8,   TAD ("N
 117         JMS I (PUT
 118         TAD ("O
 119         JMS I (PUT
 120         CLA IAC
 121         DCA HLTSWT
 122 RETRY,  JMS I (CRLF
 123         TAD ("/
 124         JMS I (PUT
 125         JMS I (GET
 126         SKP
 127         JMP RETRY
 128         CLL RTL
 129         RTL
 130         RTL
 131         DCA TEMP
 132         JMS I (GET
 133         SKP
 134         JMP RETRY
 135         TAD TEMP
 136         DCA TEMP
 137         JMS I (GET
 138         JMP .-1
 139         CLA
 140         JMS I (CRLF
 141         TAD TEMP
 142         JMP COMN
 143 \fOS8IN, TAD I (7600
 144         TAD (-4207
 145         SZA CLA
 146         JMP RETRY
 147         TAD I (1000
 148         TAD (777
 149         SNA CLA
 150         TAD (600
 151         TAD (1000-1
 152         DCA SCAN
 153 SKAN,   TAD I SCAN
 154         SNA
 155         JMP RETRY
 156         AND (177
 157         TAD (-"/!7600
 158         SZA CLA
 159         JMP SKAN
 160         TAD I SCAN
 161         AND (77
 162         CLL RTL
 163         RTL
 164         RTL
 165         DCA TEMP
 166         TAD I SCAN
 167         AND (77
 168         TAD TEMP
 169         DCA TEMP
 170         TAD I SCAN
 171         AND (177
 172         TAD (-".!7600
 173         DCA HLTSWT
 174         TAD TEMP
 175         JMP COMN
 176
 177 TEMP,   0
 178         PAGE
 179 \fTABLE, 2403    /TC
 180         DECTAP
 181         7554
 182         25
 183         7554
 184
 185         2213    /RK
 186 RKADR,  RK8
 187         21
 188         11
 189         21
 190
 191         2404    /TD
 192         TD8E
 193         7277
 194         34
 195         7277
 196
 197         1424    /LT
 198         LINCTP
 199         4400
 200         7
 201         4400
 202
 203         2206    /RF
 204         RF08
 205         7746
 206         7
 207         7746
 208
 209         2024    /PT
 210         BINLDR
 211         7626
 212         152
 213         7700
 214
 215         3205    /ZE
 216         ZERO
 217         4
 218         6
 219         4
 220
 221         2431    /TY
 222         TYPSET
 223         7730
 224         42
 225         7730
 226
 227         0414    /DL
 228         DIAL
 229         4012
 230         6
 231         4012
 232
 233         0301    /CA
 234         CAS
 235         4000
 236         40
 237         4000
 238
 239         0415    /DM
 240         DSKMON
 241         171
 242         16
 243         174
 244
 245         2605    /VE
 246         VERS
 247         VERS
 248         1
 249         VERS
 250
 251         0424    /DT
 252         TAPE
 253         TAPE
 254         1
 255         TAPE
 256
 257         0413    /DK
 258         DISK
 259         DISK
 260         1
 261         DISK
 262
 263         2205    /RE
 264         RK8E
 265         21
 266         11
 267         21
 268
 269         2523    /US
 270         1
 271         1
 272         1
 273         RETRY
 274
 275         2230    /RX
 276         RX01
 277         RX8E
 278         36
 279         RXSTRT
 280
 281         ZBLOCK 4^5      /PATCH SPACE
 282
 283         0
 284
 285 /FORMAT:
 286
 287 /SIXBIT OF 2-CHARACTER NAME
 288 /ADDRESS OF BOOTSTRAP CODE IN BOOT
 289 /ADDRESS WHERE BOOTSTRAP CODE IS TO BE MOVED TO
 290 /LENGTH OF BOOTSTRAP IN WORDS
 291 /STARTING ADDRESS OF BOOTSTRAP
 292 \fDECTAP,        7600
 293         6774
 294         1374
 295         6766
 296         6771
 297         5360
 298         7240
 299         1354
 300         3773
 301         1354
 302         3772
 303         1375
 304         6766
 305         5376
 306         7754
 307         7755
 308         0600
 309         0220
 310         6771
 311         5376
 312 \fRK8,   6732
 313         6751
 314         6745
 315         5023
 316         6742
 317         6753
 318         6755
 319         6733
 320         5031
 321
 322 RK8E,   7000
 323         7000
 324         7000
 325         7000
 326         7201
 327         6742
 328         6742
 329         6743
 330         5031
 331 \fTD8E,  6007
 332         1312
 333         4312
 334         4312
 335         6773
 336         5303
 337         6777
 338         3726
 339         2326
 340         5303
 341         5732
 342         2000
 343         1300
 344         6774
 345         6771
 346         5315
 347         6776
 348         0331
 349         1327
 350         7640
 351         5315
 352         2321
 353         5712
 354         7354
 355         7756
 356         7747
 357         0077
 358         7400
 359 \fLINCTP,        6141
 360         1020
 361         0020
 362         0004
 363         0700
 364         0000
 365         6020
 366 \fRF08,  6643
 367         6615
 368         7600
 369         6603
 370         6622
 371         5352
 372         5752
 373 \f/      1000 IS OS/8 LINE BUUFFER
 374 /       1600 IS PS/8 LINE BUFFERE
 375
 376         *2000
 377
 378 BINLDR, 0000
 379         3212
 380         4260
 381         1300
 382         7750
 383         5237
 384         2212
 385         7040
 386         5227
 387         1212
 388         7640
 389         5230
 390         1214
 391         0274
 392         1341
 393         7510
 394         2226
 395         7750
 396         5626
 397         1214
 398         0256
 399         1257
 400         3213
 401         5230
 402         0070
 403         6201
 404         0000
 405         0000
 406         6031
 407         5262
 408         6036
 409         3214
 410         1214
 411         5660
 412         6011
 413         5270
 414         6016
 415         5265
 416         0300
 417         4343
 418         7041
 419         1215
 420         7402
 421         6032
 422         6014
 423         6214
 424         1257
 425         3213
 426         7604
 427         7700
 428         1353
 429         1352
 430         3261
 431         4226
 432         5313
 433         3215
 434         1213
 435         3336
 436         1214
 437         3376
 438         4260
 439         3355
 440         4226
 441         5275
 442         4343
 443         7420
 444         5336
 445         3216
 446         1376
 447         1355
 448         1215
 449         5315
 450         0000
 451         3616
 452         2216
 453         7600
 454         5332
 455         0000
 456         1376
 457         7106
 458         7006
 459         7006
 460         1355
 461         5743
 462         5262
 463         0006
 464         0000
 465         0000
 466         6014
 467         6011
 468         5357
 469         6016
 470         7106
 471         7006
 472         7510
 473         5374
 474         7006
 475         6011
 476         5367
 477         6016
 478         7420
 479         3776
 480         3376
 481         5357
 482         0000
 483         5301
 484 \fZERO,  1005
 485         3410
 486         5004
 487         5404
 488         0011
 489         2010
 490 \fDIAL,  6141
 491         1020
 492         0020
 493         0004
 494         0701
 495         7300
 496 \f/      7300
 497 /       6002
 498 /       6042
 499 /       6022
 500 /       6012
 501 /       6032
 502 /       6601
 503 /       6764
 504 /       1221
 505 /       3010
 506 /       1622
 507 /       2222
 508 /       7450
 509 /       5620
 510 /       3410
 511 /       5212
 512 /       7730
 513 /       7727
 514 /       0223
 515 TYPSET, 6774
 516         1347
 517         4341
 518         7240
 519         1353
 520         3355
 521         1352
 522         4341
 523         5753
 524         7777
 525         6766
 526         3354
 527         6771
 528         5344
 529         5741
 530         4600
 531         7777
 532         7777
 533         4220
 534         7400
 535         7777
 536         7777
 537         7777
 538         6014
 539         6011
 540         5360
 541         7106
 542         6012
 543         7420
 544         5357
 545         5756
 546         4356
 547         3373
 548         4356
 549 \fPTCLEV,        "A
 550 L3,     "4
 551 LV,     "V
 552 VERS,   TAD LV
 553         JMS I (PUT
 554         TAD L3
 555         JMS I (PUT
 556         TAD PTCLEV
 557         JMS I (PUT
 558         JMP I PRETRY
 559 PRETRY, RETRY
 560 \fDSKMON,        7577
 561         7750
 562         7751
 563         1171
 564         3572
 565         1172
 566         3573
 567         6643
 568         6615
 569         6603
 570         6602
 571         5203
 572         5606
 573         7600
 574 \fCAS,   1237
 575         1206
 576         6704
 577         6706
 578         6703
 579         5204
 580         7264
 581         6702
 582         7610
 583         3211
 584         3636
 585         1205
 586         6704
 587         6706
 588         6701
 589         5216
 590         7002
 591         7430
 592         1636
 593         7022
 594         3636
 595         7420
 596         2236
 597         2235
 598         5215
 599         7346
 600         7002
 601         3235
 602         5201
 603         7737
 604         3557
 605         7730
 606 \f       LCD=6751
 607         SDN=6755
 608         SER=6754
 609         STR=6753
 610         XDR=6752
 611
 612 RX01,   RELOC 24
 613
 614 RX8E,   STL RTL
 615         TAD     UNIT    /GET A READ COMMAND ON THE PROPER
 616         LCD             /UNIT AND LOAD IT INTO THE COMMAND REGISTER
 617         CLA IAC
 618         JMS     LOAD    /READ SECTOR ONE
 619         JMS     LOAD    /OF TRACK ONE.
 620         CLL RAL         /SET AC = 2 AS FLAG SAYING WE READ TRACK 1
 621
 622 RXSTRT,                 /** BOOTSTRAP START ADDR **
 623 HANGGG, SDN             /DO A FIGURE-8 SKIP -
 624         JMP     LOAD+1  /ONLY THE DONE FLAG WILL COME UP
 625         SER             /ANY ERRORS?
 626         SNA             /OR IS THIS THE INITIAL DUMMY WAIT?
 627         SKP CLA         /IF EITHER ONE, TRY OTHER DRIVE
 628         JMP     GOODRD  /IF ALL IS WELL, GO READ THE SECTOR BUFFER
 629         TAD     UNIT    /COME HERE ON READ ERRORS -
 630         CIA             /FLIP THE UNIT NUMBER
 631         TAD     X6030   /IN "UNIT"
 632         DCA     UNIT
 633         JMP     RX8E
 634 GOODRD, LCD             /LOAD THE EMPTY SECTOR BUFFER COMMAND ( A CONVENIENT 2)
 635 LP,     JMS     LOAD    /GET A WORD FROM THE SECTOR BUFFER
 636         DCA     2       /SECONDARY BOOT LOADS INTO LOCATIONS 2-51
 637         ISZ     .-1     /BUMP STORE ADDRESS
 638         JMP     LP
 639
 640 LOAD,   0
 641         STR             /DO A FIGURE-8 LOOP WAITING FOR THE TRANSFER
 642         JMP     HANGGG  /OR DONE FLAGS TO COME UP.
 643         XDR             /TRANSFER FLAG CAME UP - TRANSFER A WORD
 644         JMP I   LOAD
 645
 646 UNIT,   7024            /7004 = DRIVE 0,   7024 = DRIVE 1
 647 X6030,  6030            /CONSTANT NEEDED TO FLIP UNIT - 7004+7024.
 648
 649         RELOC
 650         PAGE
 651 \fL2213, 2213
 652         DIML=6615
 653 DISK,   CLA IAC
 654         DIML
 655         SNA CLA
 656         JMP GOTRF
 657         TAD (70
 658         6732
 659         SNA CLA
 660         JMP GOTRK8
 661         CLA IAC
 662         6744
 663         SZA CLA
 664         JMP I PRETR
 665         STA             /RE
 666 GOTRF,  TAD L2206       /RF
 667         JMP I PCOMN
 668 L2206,  2206
 669 GOTRK8, TAD L2213       /RK
 670         JMP I PCOMN
 671 PRETR,  RETRY
 672 \fTAPE,  6141            /LINC
 673         17              /COMPL AC
 674         2               /PDP
 675         IAC
 676         SNA CLA
 677         JMP GOTLTA
 678         TAD (70
 679         6774
 680         CLA
 681         6772
 682         NOP
 683         TAD M70
 684         SNA CLA
 685         JMP GOTTC
 686         STL CLA RAR
 687         6774
 688         CLA
 689         6776
 690         SMA CLA
 691         JMP I PRETR
 692 GOTTD,  CLA IAC
 693 GOTTC,  TAD L2403       /TC
 694         JMP I PCOMN
 695 GOTLTA, TAD L1424       /LT
 696         JMP I PCOMN
 697 L1424,  1424
 698 L2403,  2403
 699 PCOMN,  COMN
 700 M70,    -70
 701 /       0000
 702 \fCRLF,  0
 703         TAD L215
 704         JMS PUT
 705         TAD L212
 706         JMS PUT
 707         JMP I CRLF
 708
 709 L215,   215
 710 L212,   212
 711
 712 PUT,    0
 713         TLS
 714         TSF
 715         JMP .-1
 716         CLA
 717         JMP I PUT
 718
 719 GET,    0
 720         KSF
 721         JMP .-1
 722         KRB
 723         AND (177
 724         TLS
 725         TSF
 726         JMP .-1
 727         TAD (-003
 728         SNA
 729         JMP I (7605
 730         TAD (003-177
 731         SNA
 732         JMP I (RETRY
 733         TAD (177-015
 734         SNA
 735         ISZ GET
 736         TAD (015
 737         AND (77
 738         JMP I GET
 739
 740 TESTRK, 0
 741         TAD (70
 742         6732
 743         SNA CLA
 744         JMP I TESTRK
 745 RK05,   TAD (RK8E
 746         DCA I (RKADR
 747         JMP I TESTRK
 748
 749         FIELD 0
 750         *200
 751         $