File: TEST.LS of Tape: Original/Originals/dta01
(Source file text)
/3 TD8E SYSTEM RESIDENT (12K)
/
/
/
/
/
/
/
/
/
/COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/
0000 *0
00000 7775 -3
00001 2404 DEVICE TD8E;DEVICE SYS;4211;6007;0;1341
00002 7005
00003 2331
00004 2300
00005 4211
00006 6007
00007 0000
00010 1341
00011 2404 DEVICE TD8E;DEVICE DTA0;4211;5007;0;1341
00012 7005
00013 0424
00014 0160
00015 4211
00016 5007
00017 0000
00020 1341
00021 2404 DEVICE TD8E;DEVICE DTA1;4211;SDTA1&177+5000;0;1341
00022 7005
00023 0424
00024 0161
00025 4211
00026 5014
00027 0000
00030 1341
00031 7675 TDBEGN-TD77-1
7360 RELOC 7360
/THE BINARY GETS LOADED INTO 27220 INITIALY, AND
/WRITTEN OUT AS PART OF RECORD 0. WHEN THE 30 WORD
/BOOTSTRAP IS USED, THIS CODE GETS READ INTO 7400.
6771 SDSS=6771
6772 SDST=6772
6773 SDSQ=6773
6774 SDLC=6774
6775 SDLD=6775
6776 SDRC=6776
6777 SDRD=6777
07360* 0000 TDBEGN, ZBLOCK 20
07400* 1254 TDBOOT, TAD K7600 /128 WORDS PER PAGE
07401* 3246 DCA TDWCT
07402* 6771 SDSS /WAIT FOR A BLOCK MARK (TAPE IS
07403* 5202 JMP .-1 /STILL MOVING)
07404* 6776 SDRC
07405* 0262 AND TD77
07406* 1255 TAD KM26 /IS IT A BLOCK MARK?
07407* 7640 SZA CLA
07410* 5202 JMP TDBOOT+2 /NO..WAIT A WHILE LONGER
07411* 6777 SDRD /GET THE BLOCK NO.
07412* 1244 TDBKNO, TAD TDM14 /NEED DECTAPE BLOCKS 154 & 155 (REC. 66)
07413* 7640 SZA CLA
07414* 5202 JMP TDBOOT+2 /NOT YET, BUSTER
07415* 6771 TDRGRD, SDSS
07416* 5215 JMP .-1 /NOW LET'S LOOK FOR A REVERSE GUARD WORD
07417* 6776 SDRC
07420* 0262 AND TD77
07421* 1256 TAD KM32
07422* 7640 SZA CLA
07423* 5215 JMP TDRGRD /KEEP LOOKING FOR IT
07424* 4247 JMS TDRQD
07425* 4247 JMS TDRQD
07426* 4247 JMS TDRQD /SKIP CONTROL WORDS
07427* 6211 CDF 10 /LOAD UP FIELD 1
07430* 4247 TDREAD, JMS TDRQD /GET A DATA WORD
07431* 3646 DCA I TDPTR
07432* 2246 ISZ TDPTR /ARE WE DONE?
07433* 5230 JMP TDREAD /NOT YET
07434* 2212 ISZ TDBKNO /YES..LOOK AT BLOCK 15
07435* 1257 TAD KCDF20
07436* 3227 DCA TDREAD-1 /LOAD UP FIELD 2
07437* 2260 ISZ M2 /DONE THIS JUNK?
07440* 5200 JMP TDBOOT /GO DO FIELD 2
07441* 6774 SDLC /STOP THE TAPE
07442* 6203 CIF CDF 0
07443* 5661 JMP I K7605
07444* 7624 TDM14, -154
07445* 7623 -155 /USE RECORD 66
TDPTR,
07446* 7600 TDWCT, 7600
07447* 0000 TDRQD, 0
07450* 6773 SDSQ
07451* 5250 JMP .-1
07452* 6777 SDRD
07453* 5647 JMP I TDRQD
07454* 7600 K7600, 7600
07455* 7752 KM26, -26
07456* 7746 KM32, -32
07457* 6221 KCDF20, CDF 20
07460* 7776 M2, -2
07461* 7605 K7605, 7605
07462* 0077 TD77, 77
/ THIS BOOTSTRAP RESIDES IN BLOCK 0
/ BLOCK 1/2 CONTAINS THE USUAL IMAGE OF 07600
/ BLOCK 66 CONTAINS THE IMAGE OF 17600
/ BLOCK 66 1/2 CONTAINS THE IMAGE OF 27600
0135 RELOC
0200 *200
/TD8E DECTAPE SYSTEM HANDLER
/THIS HANDLER CAN DRIVE UNITS 0&1, AND IS PERMANENTLY
/RESIDENT IN FIELDS 0&2.
7600 RELOC 7600
0002 VESION="B&77
07600* 0000 ZBLOCK 7
US
07607* 0000 SHNDLR, VERSION /UNIT 0 ENTRY POINT
07610* 7300 CLA CLL
07611* 5220 JMP SHND2
07612* 0003 C3, 3 /MUST BE HERE FOR BUILD
07613* 0070 S70, 70
US
07614* 0000 SDTA1, VERSION /UNIT 1 ENTRY
07615* 7320 CLA CLL CML
07616* 1214 SC1000, TAD SDTA1 /DOUBLES AS CONSTANT 1000
07617* 3207 DCA SHNDLR /GET ARGS AT SHNDLR
07620* 7010 SHND2, RAR /UNIT #
07621* 3214 DCA SUNIT
07622* 6214 RDF /SETUP FOR EXIT
07623* 1337 TAD S6203
07624* 3335 DCA EFLD
07625* 1607 TAD I SHNDLR /FUNCTION WORD
07626* 6775 SDLD /PUT IT IN DATA EGISTER
07627* 0213 AND S70 /SDLD DOES NOT 0 AC..GET FIELD
07630* 1337 TAD S6203 /CIF CDF N FOR TRANSFER FIELD
07631* 3326 DCA TFLD
07632* 2207 ISZ SHNDLR
07633* 1607 TAD I SHNDLR /BUFFER ADDRESS
07634* 3355 DCA BPTR
07635* 2207 ISZ SHNDLR
07636* 1607 TAD I SHNDLR /BLOCK #. TIMES 2 FOR REAL #
07637* 7104 CLL RAL
07640* 3354 DCA BLOCK
07641* 2207 ISZ SHNDLR /POINT TO ERROR EXIT
07642* 6223 CIF CDF 20 /PUT UNIT # INTO FIELD 2
07643* 1214 TAD SUNIT
07644* 3743 DCA I SUNIT2
07645* 5201 JMP F2SET /TO FIELD 2 FOR INIT.
07646* 6777 F1GO, SDRD /INITIAL DIRECTION TO LINK
07647* 7010 RAR
07650* 5256 JMP RGO
07651* 1355 RENTER, TAD BPTR /DONE THIS BLOCK..NEXT ADDRESS
07652* 1340 TAD SC200
07653* 3355 DCA BPTR
07654* 2354 ISZ BLOCK /NEXT TAPE BLOCK..CAN'T SKIP
07655* 7120 CLL CML /FORCE FORWARD MOTION
07656* 7232 RGO, CLA CML RTR /LINK TO MOTION BIT
07657* 1216 TAD SC1000
07660* 1214 TAD SUNIT
07661* 6774 SDLC /MOVE THE TAPE
07662* 6773 SDSQ
07663* 5262 JMP .-1
07664* 6777 SDRD /KNOCK DOWN QUAD FLAG
07665* 6773 SDSQ
07666* 5265 JMP .-1
07667* 6777 SDRD /THIS IS NEEDED, ELSE TIME ERROR!!!
07670* 6771 SRCH, SDSS /WAIT FOR A BLOCK MARK
07671* 5270 JMP .-1
07672* 6776 SDRC /GET MARK TRACK BITS
07673* 7106 CLL RTL /DIRECTION TO LINK
07674* 0341 AND SC374
07675* 1313 TAD SM110 /IS IT A N END ZONE?
07676* 7450 SNA
07677* 5315 JMP SENDZ /YES
07700* 1342 TAD SM20 /MAYBE A BLOCK MARK?
07701* 7640 SZA CLA
07702* 5270 JMP SRCH /NEITHER..KEEP GOING
07703* 6777 SDRD /READ THE BLOCK #
07704* 7430 SZL /IF REVERSE, LOOK 3 AHEAD OF TARGET
07705* 1212 TAD C3
07706* 7040 CMA
07707* 1354 TAD BLOCK
07710* 7040 CMA
07711* 7450 SNA /IS IT THE RIGHT ONE?
07712* 5323 JMP FOUND /YES
07713* 7670 SM110, CLA SNA SZL /SNA SUPERFLUOUS..ONLY SZL VALID
07714* 5270 JMP SRCH /HEADED FOR IT..KEEP GOING
07715* 6776 SENDZ, SDRC
07716* 7106 CLL RTL
07717* 7630 SZL CLA /IF IN END ZONE FORWARD, GIVE ERROR
07720* 5256 JMP RGO
07721* 6222 CIF 20 /IF IT IS REALL END ZONE, AN ERROR
07722* 5320 JMP ERROR
07723* 7630 FOUND, SZL CLA /RIGHT BLOCK..HOW ABOUT DIRECTION?
07724* 5256 JMP RGO /WRONG..EXECUTE TURNAROUND
07725* 1355 TAD BPTR
07726* 7402 TFLD, HLT /GETS CIF CDF N
07727* 6222 CIF 20
07730* 5215 JMP RDWT /LET'S TRANSFER DATA
07731* 2207 SEXIT, ISZ SHNDLR /NORMAL RETURN
07732* 1214 SEREX, TAD SUNIT /STOP THE TAPE
07733* 6774 SDLC
07734* 7230 CML CLA RAR /EITHER 0 OR 4000 IN AC ON RETURN
07735* 7402 EFLD, HLT
07736* 5607 JMP I SHNDLR
7755 BPTR=7755
7754 BLOCK=7754
7614 SUNIT=SDTA1
07737* 6203 S6203, 6203
07740* 0200 SC200, 200
07741* 0374 SC374, 374
07742* 7760 SM20, -20
07743* 7764 SUNIT2, SXUNIT
0344 RELOC
0400 *400
7600 RELOC 7600 /RUNS IN 27600
07600* 0000 XPTR, 0 /BUFFER POINTER
07601* 7346 F2SET, CLA CLL CMA RTL /3 ERROR TRIES
07602* 3367 DCA TRYCNT
07603* 1364 TAD SXUNIT /MAKE SURE TAPE IS STOPPED
07604* 6774 SDLC
07605* 6203 F26203, CIF CDF 0
07606* 6777 SDRD /FUNCTION WORD
07607* 7104 CLL RAL
07610* 0237 AND CX7600 /PAGE COUNT
07611* 3365 DCA XPGCT
07612* 6777 SDRD
07613* 3366 DCA SXFUN /SAVE THE FUNCTION WORD
07614* 5246 JMP F1GO
07615* 3200 RDWT, DCA XPTR /SAVE NEW BUFFER ADDRESS
07616* 1237 TAD CX7600
07617* 3370 DCA XWCNT /128 WORDS PER BLOCK
07620* 6771 REVGRD, SDSS /WAIT FOR REVERSE GUARD WORD
07621* 5220 JMP .-1
07622* 6776 SDRC
07623* 0252 AND X77
US
07624* 1000 TAD X32 /IS IT REVERSE GUARD?
07625* 7640 SZA CLA
07626* 5220 JMP REVGRD /NO
07627* 1366 TAD SXFUN
07630* 7700 SK7700, SMA CLA /READ OR WRITE?
07631* 5273 JMP READ /READ
07632* 6776 SDRC
07633* 0306 AND C300 /ERRORS ON WRITE LOCKOUT AND TIME
07634* 7640 SZA CLA
07635* 5320 JMP ERROR
07636* 4333 JMS RDQUAD /SKIP A WORD
07637* 7600 CX7600, 7600
07640* 1247 TAD WRLP
07641* 1364 TAD SXUNIT
07642* 6774 SDLC /TURN ON THE WRITE
07643* 7240 CLA CMA
07644* 4325 JMS WRQUAD /WRITE 7777 IN REV. CHECKSUM
07645* 7240 CLA CMA
07646* 3372 DCA SCKSUM /AND ALSO IN COMPUTE CHECKSUM
07647* 1600 WRLP, TAD I XPTR
07650* 4325 JMS WRQUAD /WRITE THE DATA
07651* 2200 ISZ XPTR
07652* 0077 X77, 77 /JUST IN CASE
07653* 2370 ISZ XWCNT /DONE 128?
07654* 5247 JMP WRLP
07655* 4325 JMS WRQUAD /WRITE AND CHECKSUM A WORD OF 0
07656* 4353 JMS GETCHK /GET CHECKSUM
07657* 4325 JMS WRQUAD
07660* 4325 JMS WRQUAD /LET CHECKSUM GET WRITTEN
07661* 6772 RWCOM, SDST /CHECK FOR TIME AND CHECKSUM ERRORS
07662* 7640 SZA CLA
07663* 5320 JMP ERROR /NOTE THAT LINK IS OFF AT RWCOM
07664* 6203 CIF CDF 0
07665* 1365 TAD XPGCT /FINISHED TRANSFER?
07666* 1237 TAD CX7600 /LINK GOES ON HERE
07667* 7450 SNA
07670* 5331 JMP SEXIT /YES..GETOUT
07671* 3365 DCA XPGCT
07672* 5251 JMP RENTER
07673* 4333 READ, JMS RDQUAD /SKIP CONTROL WORDS
07674* 4333 JMS RDQUAD
07675* 4333 JMS RDQUAD /GET CHECKSUM
07676* 0252 AND X77
07677* 1230 TAD SK7700
07700* 3372 DCA SCKSUM
07701* 4333 SRDLP, JMS RDQUAD
07702* 3600 DCA I XPTR
07703* 1600 TAD I XPTR
07704* 4340 JMS EQUFUN
07705* 2200 ISZ XPTR
07706* 0300 C300, 300
07707* 2370 ISZ XWCNT /DONE ALL?
07710* 5301 JMP SRDLP /NO
07711* 4333 JMS RDQUAD /READ AND CHECKSUM LAST WORD
07712* 4340 JMS EQUFUN
07713* 4333 JMS RDQUAD /GET CHECKSUM
07714* 0230 AND SK7700
07715* 4340 JMS EQUFUN
07716* 4353 JMS GETCHK
07717* 5261 JMP RWCOM
07720* 7300 ERROR, CLA CLL /THIS CAUSES SEARCH REVERSE AT RGO
07721* 6203 CIF CDF 0
07722* 2367 ISZ TRYCNT /EXHAUSTED ERROR TRIES?
07723* 5256 JMP RGO
07724* 5332 JMP SEREX /YES..FATAL EXIT
07725* 0000 WRQUAD, 0 /WRITE A 12 BIT WORD
07726* 6773 SDSQ
07727* 5326 JMP .-1
07730* 6775 SDLD
07731* 4340 JMS EQUFUN /SDLD LEAVES AC ALONE
07732* 5725 JMP I WRQUAD
07733* 0000 RDQUAD, 0 /READ A 12 BIT WORD
07734* 6773 SDSQ
07735* 5334 JMP .-1
07736* 6777 SDRD
07737* 5733 JMP I RDQUAD
07740* 0000 EQUFUN, 0 /EQUIVALENCE CHECKSUM
07741* 7040 CMA
07742* 3373 DCA EQUTMP
07743* 1373 TAD EQUTMP
07744* 0372 AND SCKSUM
07745* 7041 CIA
07746* 7104 CLL RAL
07747* 1373 TAD EQUTMP
07750* 1372 TAD SCKSUM
07751* 3372 DCA SCKSUM
07752* 5740 JMP I EQUFUN
07753* 0000 GETCHK, 0
07754* 1372 TAD SCKSUM
07755* 7146 CLL CMA RTL
07756* 7006 RTL
07757* 7006 RTL
07760* 4340 JMS EQUFUN
07761* 1372 TAD SCKSUM
07762* 0230 AND SK7700
07763* 5753 JMP I GETCHK
07764* 0000 SXUNIT, 0
07765* 0000 XPGCT, 0
07766* 0000 SXFUN, 0
07767* 0000 TRYCNT, 0
07770* 0000 XWCNT, 0
07771* 7746 XM32, -32
07772* 0000 SCKSUM, 0
07773* 0000 EQUTMP, 0
/THE LAST 4 LOCS. ARE FREE FOR USE BY BATCH
07774* 0000 ZBLOCK 4
0600 RELOC
$
BLOCK 7754 TDBEGN 7360
BPTR 7755 TDBKNO 7412
CX7600 7637 TDBOOT 7400
C3 7612 TDM14 7444
C300 7706 TDPTR 7446
EFLD 7735 TDREAD 7430
EQUFUN 7740 TDRGRD 7415
EQUTMP 7773 TDRQD 7447
ERROR 7720 TDWCT 7446
FOUND 7723 TD77 7462
F1GO 7646 TFLD 7726
F2SET 7601 TRYCNT 7767
F26203 7605 VESION 0002
GETCHK 7753 WRLP 7647
KCDF20 7457 WRQUAD 7725
KM26 7455 XM32 7771
KM32 7456 XPGCT 7765
K7600 7454 XPTR 7600
K7605 7461 XWCNT 7770
M2 7460 X77 7652
RDQUAD 7733
RDWT 7615
READ 7673
RENTER 7651
REVGRD 7620
RGO 7656
RWCOM 7661
SCKSUM 7772
SC1000 7616
SC200 7740
SC374 7741
SDLC 6774
SDLD 6775
SDRC 6776
SDRD 6777
SDSQ 6773
SDSS 6771
SDST 6772
SDTA1 7614
SENDZ 7715
SEREX 7732
SEXIT 7731
SHNDLR 7607
SHND2 7620
SK7700 7630
SM110 7713
SM20 7742
SRCH 7670
SRDLP 7701
SUNIT 7614
SUNIT2 7743
SXFUN 7766
SXUNIT 7764
S6203 7737
S70 7613
ERRORS DETECTED: 3
LINKS GENERATED: 0