DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦60afd2eca⟧

    Length: 4786 (0x12b2)
    Notes: pts_type(SC)
    Names: »DEDISC.SC«

Derivation

└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »S:DE/DEDISC.SC« 
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
    └─⟦this⟧ »DEN10/DEDISC.SC« 
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
    └─⟦this⟧ »S:DE/DEDISC.SC« 
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
    └─⟦this⟧ »DEN10/DEDISC.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »S:DE/DEDISC.SC« 

PTS(SC)

	IDENT	DEDISC	REL 10.0 80-04-11 
			80-02-11/CHST
* 
* 
************************************************************************
* 
* 
*          ALL COMMENTS TO DEDISC ARE FOUND IN MODULE 
* 
*                       D E D I C O M M 
* 
* 
************************************************************************
* 
* 
	DDUM	DEDDIV
	PDIV 
 ENTRY DEDISC 
	ENTRY	COND 
	ENTRY	RELEAS 
	ENTRY	SCHPOO 
	ENTRY	RETURN 
	ENTRY	WAIT 
	ENTRY	STRT01 
* 
 EXT DEPOOL 
 EXT WRFSP
	EXT	CHANFC 
	EXT	CLSBTH 
	EXT	GETFMT 
	EXT	SCHFMT 
	EXT	WRICUR 
	EXT	GTNEXT 
	EXT	GTPREV 
	EXT	DLCURR 
	EXT	WRIACC 
	EXT	WRTCO
	EXT	GETTBL 
	EXT	DELBTC 
	EXT	RECURR 
 EXT ENTJOB 
 EXT GETJOB 
 EXT SCHJOB 
 EXT DELJOB 
 EXT ENTFMT 
 EXT DELFMT 
 EXT GETSYS 
 EXT ENTSYS 
 EXT NEXJOB 
 EXT PREJOB 
 EXT PREFMT 
 EXT NEXFMT 
 EXT ENTTBL 
 EXT DELTBL 
 EXT OPNEBC 
 EXT OPNNBC 
 EXT NXJOB
 EXT NXBTH
* 
* 
ATTACH	EQU	X'0E'
DETACH	EQU	X'0F'
	EJECT
DEDISC	PROC	FC
* 
*   BRANCH TO PROGRAM INDICATED BY FC 
* 
	PBIN	FC
 CLEAR SWIT01 
 CLEAR SWIT02 
 CLEAR SWIT03 
 CLEAR SWIT05 
 CLEAR SWIT07 
 CLEAR SWITFS 
 CLEAR SW95PR 
 MOVE DEBINW4,W0
STRT01
	IB	FC		C0000000000000
		ENTJOB	ENTER JOBDEF	C 
		GETJOB	GET JOBDEF	C 
		DUMMY		C
		SCHJOB	SEARCH JOBDEF	C
		DELJOB	DELETE JOBDEF	C
		OPNNBC	OPEN NEW BATCH	C 
		OPNEBC	OPEN EXISTING BATCH	C
		CLSBTH	CLOSE BATCH	C
		ENTFMT	ENTER FORMAT	C 
		GETFMT	GET FORMAT	C 
		DUMMY		C
		SCHFMT	SEARCH FORMAT	C
		DELFMT	DELETE FORMAT	C
		WRICUR	WRITE CURRENT DATA-SECTOR	C
		GTNEXT	GET NEXT DATA-SECTOR	C 
		GTPREV	GET PREVIOUS DATA-SECTOR	C 
		DLCURR	DELETE CURRENT DATARECORD	C
		WRIACC	WRITE ACCUMULATOR-RECORD	C 
		GETSYS	GET SYSTEM-VARIABLES	C 
		ENTSYS	ENTER SYSTEM-VARIABLES	C 
		NXJOB	GET NEXT JOBNAME	C
		DUMMY	GET PREVIOUS JOBNAME	C
		WRTCO	WRITE SECTOR (CORR)	C 
		GETTBL	GET TABLE	C
		DELTBL	DELETE TABLE	C 
		ENTTBL	ENTER TABLE	C
		DELBTC	DELETE BATCH	C 
		DUMMY	GET NO OF FREESPACES	C
		NEXJOB	GET NEXT JOBDEFINITION	C 
		PREJOB	GET PREVIOUS JOBDEF	C
		NEXFMT	GET NEXT FORMAT	C
		PREFMT	GET PREVIOUS FORMAT	C
		RECURR	READ CURRENT SCTR	C
		NXBTH	GET NEXT BATCHNAME	C
		DUMMY	GET PREV BATCHNAME
	EJECT
* 
DUMMY 
RETURN
 TBF SWITFS,RETUNF
 PERF WRFSP,W1
RETUNF
 PERF RELEAS
 CBNE DEBINW4,W0,RETUN9 
 TBF SW95PR,RETUN9
 MOVE DEBINW4,=W'-1'
RETUN9
 PERF COND
 RET
	PEND 
	EJECT
 EJECT
* 
*   SET CONDITION-REGISTER
* 
COND PROC 
 CBL DEBINW4,W0,CON1
 CBE DEBINW4,W0,CON0
 CMP W1,W2
 RET
CON1
 CMP W2,W1
 RET
CON0
 CMP W1,W1
 RET
 PEND 
* 
* 
WAIT PROC		SUBROUTINE WAIT
 TBT SWITWT,WARE
 MOVE DEBINW4,W0
 CLEAR SWIT08 
 MOVE DKBIN1,=X'51' 
 CALL CHANFC,DISK,DKBIN1
 DSC1 DISK,ATTACH,W128
 BNERR WARE2
 MOVE DEBINW4,W3
WARE
 PERF COND
 RET
WARE2 
 SET SWITWT 
 SWITCH 
 B WARE 
* 
* 
 PEND 
RELEAS PROC 		SUBROUTINE RELEAS 
 CLEAR SWITWT 
 BZ RELRET
 MOVE DKBIN1,=X'51' 
 CALL CHANFC,DISK,DKBIN1
 DSC1 DISK,DETACH,W0
RELRET
 RET
 PEND 
* 
* 
*     SUBROUTINE SCHPOO, SEARCH POOL
* 
SCHPOO	PROC	IND,STRG,WX 
	PLIT	IND 
	PSTRG	STRG 
	PBIN	WX
	MOVE	STRG10A,IND 
 COPY STRG10A,W1,W6,STRG,W0 
 PERF DEPOOL,WX,DEBIN3,DEBIN4,STRG10A 
 RET
 PEND 
	END

HexDump

0x0000…0028 (0, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» IDENT DEDISC REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040              Head {h00=0x0014, h01=0x0050, text=»   80-02-11/CHST«, t00=0x0000, t01=0x002c}
0x0040…004a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0044}
0x004a…0054              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004e}
0x0054…00a4              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0058}
0x00a4…00ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a8}
0x00ae…00b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00f6              Head {h00=0x003a, h01=0x0050, text=»*          ALL COMMENTS TO DEDISC ARE FOUND IN MODULE «, t00=0x0000, t01=0x00bc}
0x00f6…0100              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…0130              Head {h00=0x002c, h01=0x0050, text=»*                       D E D I C O M M «, t00=0x0000, t01=0x0104}
0x0130…013a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0134}
0x013a…0144              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013e}
0x0144…0194              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0148}
0x0194…019e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019e…01a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0012}
0x01a8…01bc              Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0001, t01=0x001c}
0x01bc…01ca              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x0030}
0x01ca…01e0              Head {h00=0x0012, h01=0x0050, text=» ENTRY DEDISC «, t00=0x0001, t01=0x003e}
0x01e0…01f4              Head {h00=0x0010, h01=0x0050, text=» ENTRY COND «, t00=0x0001, t01=0x0054}
0x01f4…020a              Head {h00=0x0012, h01=0x0050, text=» ENTRY RELEAS «, t00=0x0001, t01=0x0068}
0x020a…0220              Head {h00=0x0012, h01=0x0050, text=» ENTRY SCHPOO «, t00=0x0001, t01=0x007e}
0x0220…0236              Head {h00=0x0012, h01=0x0050, text=» ENTRY RETURN «, t00=0x0001, t01=0x0094}
0x0236…024a              Head {h00=0x0010, h01=0x0050, text=» ENTRY WAIT «, t00=0x0001, t01=0x00aa}
0x024a…0260              Head {h00=0x0012, h01=0x0050, text=» ENTRY STRT01 «, t00=0x0001, t01=0x00be}
0x0260…026a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d4}
0x026a…027e              Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0001, t01=0x00de}
0x027e…0290              Head {h00=0x000e, h01=0x0050, text=» EXT WRFSP«, t00=0x0001, t01=0x00f2}
0x0290…02a4              Head {h00=0x0010, h01=0x0050, text=» EXT CHANFC «, t00=0x0001, t01=0x0104}
0x02a4…02b8              Head {h00=0x0010, h01=0x0050, text=» EXT CLSBTH «, t00=0x0001, t01=0x0118}
0x02b8…02cc              Head {h00=0x0010, h01=0x0050, text=» EXT GETFMT «, t00=0x0001, t01=0x012c}
0x02cc…02e0              Head {h00=0x0010, h01=0x0050, text=» EXT SCHFMT «, t00=0x0001, t01=0x0140}
0x02e0…02f4              Head {h00=0x0010, h01=0x0050, text=» EXT WRICUR «, t00=0x0001, t01=0x0154}
0x02f4…0308              Head {h00=0x0010, h01=0x0050, text=» EXT GTNEXT «, t00=0x0001, t01=0x0168}
0x0308…031c              Head {h00=0x0010, h01=0x0050, text=» EXT GTPREV «, t00=0x0001, t01=0x017c}
0x031c…0330              Head {h00=0x0010, h01=0x0050, text=» EXT DLCURR «, t00=0x0001, t01=0x0190}
0x0330…0344              Head {h00=0x0010, h01=0x0050, text=» EXT WRIACC «, t00=0x0002, t01=0x0014}
0x0344…0356              Head {h00=0x000e, h01=0x0050, text=» EXT WRTCO«, t00=0x0002, t01=0x0028}
0x0356…036a              Head {h00=0x0010, h01=0x0050, text=» EXT GETTBL «, t00=0x0002, t01=0x003a}
0x036a…037e              Head {h00=0x0010, h01=0x0050, text=» EXT DELBTC «, t00=0x0002, t01=0x004e}
0x037e…0392              Head {h00=0x0010, h01=0x0050, text=» EXT RECURR «, t00=0x0002, t01=0x0062}
0x0392…03a6              Head {h00=0x0010, h01=0x0050, text=» EXT ENTJOB «, t00=0x0002, t01=0x0076}
0x03a6…03ba              Head {h00=0x0010, h01=0x0050, text=» EXT GETJOB «, t00=0x0002, t01=0x008a}
0x03ba…03ce              Head {h00=0x0010, h01=0x0050, text=» EXT SCHJOB «, t00=0x0002, t01=0x009e}
0x03ce…03e2              Head {h00=0x0010, h01=0x0050, text=» EXT DELJOB «, t00=0x0002, t01=0x00b2}
0x03e2…03f6              Head {h00=0x0010, h01=0x0050, text=» EXT ENTFMT «, t00=0x0002, t01=0x00c6}
0x03f6…040a              Head {h00=0x0010, h01=0x0050, text=» EXT DELFMT «, t00=0x0002, t01=0x00da}
0x040a…041e              Head {h00=0x0010, h01=0x0050, text=» EXT GETSYS «, t00=0x0002, t01=0x00ee}
0x041e…0432              Head {h00=0x0010, h01=0x0050, text=» EXT ENTSYS «, t00=0x0002, t01=0x0102}
0x0432…0446              Head {h00=0x0010, h01=0x0050, text=» EXT NEXJOB «, t00=0x0002, t01=0x0116}
0x0446…045a              Head {h00=0x0010, h01=0x0050, text=» EXT PREJOB «, t00=0x0002, t01=0x012a}
0x045a…046e              Head {h00=0x0010, h01=0x0050, text=» EXT PREFMT «, t00=0x0002, t01=0x013e}
0x046e…0482              Head {h00=0x0010, h01=0x0050, text=» EXT NEXFMT «, t00=0x0002, t01=0x0152}
0x0482…0496              Head {h00=0x0010, h01=0x0050, text=» EXT ENTTBL «, t00=0x0002, t01=0x0166}
0x0496…04aa              Head {h00=0x0010, h01=0x0050, text=» EXT DELTBL «, t00=0x0002, t01=0x017a}
0x04aa…04be              Head {h00=0x0010, h01=0x0050, text=» EXT OPNEBC «, t00=0x0002, t01=0x018e}
0x04be…04d2              Head {h00=0x0010, h01=0x0050, text=» EXT OPNNBC «, t00=0x0003, t01=0x0012}
0x04d2…04e4              Head {h00=0x000e, h01=0x0050, text=» EXT NXJOB«, t00=0x0003, t01=0x0026}
0x04e4…04f6              Head {h00=0x000e, h01=0x0050, text=» EXT NXBTH«, t00=0x0003, t01=0x0038}
0x04f6…0500              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004a}
0x0500…050a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0054}
0x050a…0522              Head {h00=0x0014, h01=0x0050, text=»ATTACH EQU X'0E'«, t00=0x0003, t01=0x005e}
0x0522…053a              Head {h00=0x0014, h01=0x0050, text=»DETACH EQU X'0F'«, t00=0x0003, t01=0x0076}
0x053a…0548              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x008e}
0x0548…055e              Head {h00=0x0012, h01=0x0050, text=»DEDISC PROC FC«, t00=0x0003, t01=0x009c}
0x055e…0568              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b2}
0x0568…0596              Head {h00=0x002a, h01=0x0050, text=»*   BRANCH TO PROGRAM INDICATED BY FC «, t00=0x0003, t01=0x00bc}
0x0596…05a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ea}
0x05a0…05b0              Head {h00=0x000c, h01=0x0050, text=» PBIN FC«, t00=0x0003, t01=0x00f4}
0x05b0…05c6              Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT01 «, t00=0x0003, t01=0x0104}
0x05c6…05dc              Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT02 «, t00=0x0003, t01=0x011a}
0x05dc…05f2              Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT03 «, t00=0x0003, t01=0x0130}
0x05f2…0608              Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT05 «, t00=0x0003, t01=0x0146}
0x0608…061e              Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT07 «, t00=0x0003, t01=0x015c}
0x061e…0634              Head {h00=0x0012, h01=0x0050, text=» CLEAR SWITFS «, t00=0x0003, t01=0x0172}
0x0634…064a              Head {h00=0x0012, h01=0x0050, text=» CLEAR SW95PR «, t00=0x0003, t01=0x0188}
0x064a…0662              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0004, t01=0x000e}
0x0662…0670              Head {h00=0x000a, h01=0x0050, text=»STRT01«, t00=0x0004, t01=0x0026}
0x0670…068e              Head {h00=0x001a, h01=0x0050, text=» IB FC  C0000000000000«, t00=0x0004, t01=0x0034}
0x068e…06ae              Head {h00=0x001c, h01=0x0050, text=»  ENTJOB ENTER JOBDEF C «, t00=0x0004, t01=0x0052}
0x06ae…06cc              Head {h00=0x001a, h01=0x0050, text=»  GETJOB GET JOBDEF C «, t00=0x0004, t01=0x0072}
0x06cc…06de              Head {h00=0x000e, h01=0x0050, text=»  DUMMY  C«, t00=0x0004, t01=0x0090}
0x06de…06fe              Head {h00=0x001c, h01=0x0050, text=»  SCHJOB SEARCH JOBDEF C«, t00=0x0004, t01=0x00a2}
0x06fe…071e              Head {h00=0x001c, h01=0x0050, text=»  DELJOB DELETE JOBDEF C«, t00=0x0004, t01=0x00c2}
0x071e…0740              Head {h00=0x001e, h01=0x0050, text=»  OPNNBC OPEN NEW BATCH C «, t00=0x0004, t01=0x00e2}
0x0740…0766              Head {h00=0x0022, h01=0x0050, text=»  OPNEBC OPEN EXISTING BATCH C«, t00=0x0004, t01=0x0104}
0x0766…0784              Head {h00=0x001a, h01=0x0050, text=»  CLSBTH CLOSE BATCH C«, t00=0x0004, t01=0x012a}
0x0784…07a4              Head {h00=0x001c, h01=0x0050, text=»  ENTFMT ENTER FORMAT C «, t00=0x0004, t01=0x0148}
0x07a4…07c2              Head {h00=0x001a, h01=0x0050, text=»  GETFMT GET FORMAT C «, t00=0x0004, t01=0x0168}
0x07c2…07d4              Head {h00=0x000e, h01=0x0050, text=»  DUMMY  C«, t00=0x0004, t01=0x0186}
0x07d4…07f4              Head {h00=0x001c, h01=0x0050, text=»  SCHFMT SEARCH FORMAT C«, t00=0x0005, t01=0x0008}
0x07f4…0814              Head {h00=0x001c, h01=0x0050, text=»  DELFMT DELETE FORMAT C«, t00=0x0005, t01=0x0028}
0x0814…0840              Head {h00=0x0028, h01=0x0050, text=»  WRICUR WRITE CURRENT DATA-SECTOR C«, t00=0x0005, t01=0x0048}
0x0840…0868              Head {h00=0x0024, h01=0x0050, text=»  GTNEXT GET NEXT DATA-SECTOR C «, t00=0x0005, t01=0x0074}
0x0868…0894              Head {h00=0x0028, h01=0x0050, text=»  GTPREV GET PREVIOUS DATA-SECTOR C «, t00=0x0005, t01=0x009c}
0x0894…08c0              Head {h00=0x0028, h01=0x0050, text=»  DLCURR DELETE CURRENT DATARECORD C«, t00=0x0005, t01=0x00c8}
0x08c0…08ec              Head {h00=0x0028, h01=0x0050, text=»  WRIACC WRITE ACCUMULATOR-RECORD C «, t00=0x0005, t01=0x00f4}
0x08ec…0914              Head {h00=0x0024, h01=0x0050, text=»  GETSYS GET SYSTEM-VARIABLES C «, t00=0x0005, t01=0x0120}
0x0914…093e              Head {h00=0x0026, h01=0x0050, text=»  ENTSYS ENTER SYSTEM-VARIABLES C «, t00=0x0005, t01=0x0148}
0x093e…0960              Head {h00=0x001e, h01=0x0050, text=»  NXJOB GET NEXT JOBNAME C«, t00=0x0005, t01=0x0172}
0x0960…0986 (6, 0, 400)  Head {h00=0x0022, h01=0x0050, text=»  DUMMY GET PREVIOUS JOBNAME C«, t00=0x0006, t01=0x0004}
0x0986…09ac              Head {h00=0x0022, h01=0x0050, text=»  WRTCO WRITE SECTOR (CORR) C «, t00=0x0006, t01=0x002a}
0x09ac…09c8              Head {h00=0x0018, h01=0x0050, text=»  GETTBL GET TABLE C«, t00=0x0006, t01=0x0050}
0x09c8…09e8              Head {h00=0x001c, h01=0x0050, text=»  DELTBL DELETE TABLE C «, t00=0x0006, t01=0x006c}
0x09e8…0a06              Head {h00=0x001a, h01=0x0050, text=»  ENTTBL ENTER TABLE C«, t00=0x0006, t01=0x008c}
0x0a06…0a26              Head {h00=0x001c, h01=0x0050, text=»  DELBTC DELETE BATCH C «, t00=0x0006, t01=0x00aa}
0x0a26…0a4c              Head {h00=0x0022, h01=0x0050, text=»  DUMMY GET NO OF FREESPACES C«, t00=0x0006, t01=0x00ca}
0x0a4c…0a76              Head {h00=0x0026, h01=0x0050, text=»  NEXJOB GET NEXT JOBDEFINITION C «, t00=0x0006, t01=0x00f0}
0x0a76…0a9c              Head {h00=0x0022, h01=0x0050, text=»  PREJOB GET PREVIOUS JOBDEF C«, t00=0x0006, t01=0x011a}
0x0a9c…0abe              Head {h00=0x001e, h01=0x0050, text=»  NEXFMT GET NEXT FORMAT C«, t00=0x0006, t01=0x0140}
0x0abe…0ae4              Head {h00=0x0022, h01=0x0050, text=»  PREFMT GET PREVIOUS FORMAT C«, t00=0x0006, t01=0x0162}
0x0ae4…0b08              Head {h00=0x0020, h01=0x0050, text=»  RECURR READ CURRENT SCTR C«, t00=0x0006, t01=0x0188}
0x0b08…0b2c              Head {h00=0x0020, h01=0x0050, text=»  NXBTH GET NEXT BATCHNAME C«, t00=0x0007, t01=0x001c}
0x0b2c…0b4e              Head {h00=0x001e, h01=0x0050, text=»  DUMMY GET PREV BATCHNAME«, t00=0x0007, t01=0x0040}
0x0b4e…0b5c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0062}
0x0b5c…0b66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0070}
0x0b66…0b74              Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x0007, t01=0x007a}
0x0b74…0b82              Head {h00=0x000a, h01=0x0050, text=»RETURN«, t00=0x0007, t01=0x0088}
0x0b82…0b9c              Head {h00=0x0016, h01=0x0050, text=» TBF SWITFS,RETUNF«, t00=0x0007, t01=0x0096}
0x0b9c…0bb2              Head {h00=0x0012, h01=0x0050, text=» PERF WRFSP,W1«, t00=0x0007, t01=0x00b0}
0x0bb2…0bc0              Head {h00=0x000a, h01=0x0050, text=»RETUNF«, t00=0x0007, t01=0x00c6}
0x0bc0…0bd4              Head {h00=0x0010, h01=0x0050, text=» PERF RELEAS«, t00=0x0007, t01=0x00d4}
0x0bd4…0bf4              Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W0,RETUN9 «, t00=0x0007, t01=0x00e8}
0x0bf4…0c0e              Head {h00=0x0016, h01=0x0050, text=» TBF SW95PR,RETUN9«, t00=0x0007, t01=0x0108}
0x0c0e…0c2a              Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,=W'-1'«, t00=0x0007, t01=0x0122}
0x0c2a…0c38              Head {h00=0x000a, h01=0x0050, text=»RETUN9«, t00=0x0007, t01=0x013e}
0x0c38…0c4a              Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0007, t01=0x014c}
0x0c4a…0c56              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x015e}
0x0c56…0c64              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x016a}
0x0c64…0c72              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0178}
0x0c72…0c80              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0186}
0x0c80…0c8a (8, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0004}
0x0c8a…0cac              Head {h00=0x001e, h01=0x0050, text=»*   SET CONDITION-REGISTER«, t00=0x0008, t01=0x000e}
0x0cac…0cb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0030}
0x0cb6…0cc8              Head {h00=0x000e, h01=0x0050, text=»COND PROC «, t00=0x0008, t01=0x003a}
0x0cc8…0ce4              Head {h00=0x0018, h01=0x0050, text=» CBL DEBINW4,W0,CON1«, t00=0x0008, t01=0x004c}
0x0ce4…0d00              Head {h00=0x0018, h01=0x0050, text=» CBE DEBINW4,W0,CON0«, t00=0x0008, t01=0x0068}
0x0d00…0d12              Head {h00=0x000e, h01=0x0050, text=» CMP W1,W2«, t00=0x0008, t01=0x0084}
0x0d12…0d1e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0096}
0x0d1e…0d2a              Head {h00=0x0008, h01=0x0050, text=»CON1«, t00=0x0008, t01=0x00a2}
0x0d2a…0d3c              Head {h00=0x000e, h01=0x0050, text=» CMP W2,W1«, t00=0x0008, t01=0x00ae}
0x0d3c…0d48              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x00c0}
0x0d48…0d54              Head {h00=0x0008, h01=0x0050, text=»CON0«, t00=0x0008, t01=0x00cc}
0x0d54…0d66              Head {h00=0x000e, h01=0x0050, text=» CMP W1,W1«, t00=0x0008, t01=0x00d8}
0x0d66…0d72              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x00ea}
0x0d72…0d80              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x00f6}
0x0d80…0d8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0104}
0x0d8a…0d94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010e}
0x0d94…0db6              Head {h00=0x001e, h01=0x0050, text=»WAIT PROC  SUBROUTINE WAIT«, t00=0x0008, t01=0x0118}
0x0db6…0dce              Head {h00=0x0014, h01=0x0050, text=» TBT SWITWT,WARE«, t00=0x0008, t01=0x013a}
0x0dce…0de6              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0008, t01=0x0152}
0x0de6…0dfc              Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT08 «, t00=0x0008, t01=0x016a}
0x0dfc…0e18              Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN1,=X'51' «, t00=0x0008, t01=0x0180}
0x0e18…0e38              Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,DKBIN1«, t00=0x0009, t01=0x000c}
0x0e38…0e56              Head {h00=0x001a, h01=0x0050, text=» DSC1 DISK,ATTACH,W128«, t00=0x0009, t01=0x002c}
0x0e56…0e6a              Head {h00=0x0010, h01=0x0050, text=» BNERR WARE2«, t00=0x0009, t01=0x004a}
0x0e6a…0e82              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W3«, t00=0x0009, t01=0x005e}
0x0e82…0e8e              Head {h00=0x0008, h01=0x0050, text=»WARE«, t00=0x0009, t01=0x0076}
0x0e8e…0ea0              Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0009, t01=0x0082}
0x0ea0…0eac              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0094}
0x0eac…0eba              Head {h00=0x000a, h01=0x0050, text=»WARE2 «, t00=0x0009, t01=0x00a0}
0x0eba…0ece              Head {h00=0x0010, h01=0x0050, text=» SET SWITWT «, t00=0x0009, t01=0x00ae}
0x0ece…0ede              Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x0009, t01=0x00c2}
0x0ede…0eee              Head {h00=0x000c, h01=0x0050, text=» B WARE «, t00=0x0009, t01=0x00d2}
0x0eee…0ef8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e2}
0x0ef8…0f02              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ec}
0x0f02…0f10              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x00f6}
0x0f10…0f38              Head {h00=0x0024, h01=0x0050, text=»RELEAS PROC   SUBROUTINE RELEAS «, t00=0x0009, t01=0x0104}
0x0f38…0f4e              Head {h00=0x0012, h01=0x0050, text=» CLEAR SWITWT «, t00=0x0009, t01=0x012c}
0x0f4e…0f60              Head {h00=0x000e, h01=0x0050, text=» BZ RELRET«, t00=0x0009, t01=0x0142}
0x0f60…0f7c              Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN1,=X'51' «, t00=0x0009, t01=0x0154}
0x0f7c…0f9c              Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,DKBIN1«, t00=0x0009, t01=0x0170}
0x0f9c…0fb8              Head {h00=0x0018, h01=0x0050, text=» DSC1 DISK,DETACH,W0«, t00=0x0009, t01=0x0190}
0x0fb8…0fc6              Head {h00=0x000a, h01=0x0050, text=»RELRET«, t00=0x000a, t01=0x001c}
0x0fc6…0fd2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x002a}
0x0fd2…0fe0              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0036}
0x0fe0…0fea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0044}
0x0fea…0ff4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004e}
0x0ff4…1020              Head {h00=0x0028, h01=0x0050, text=»*     SUBROUTINE SCHPOO, SEARCH POOL«, t00=0x000a, t01=0x0058}
0x1020…102a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0084}
0x102a…104a              Head {h00=0x001c, h01=0x0050, text=»SCHPOO PROC IND,STRG,WX «, t00=0x000a, t01=0x008e}
0x104a…105c              Head {h00=0x000e, h01=0x0050, text=» PLIT IND «, t00=0x000a, t01=0x00ae}
0x105c…1070              Head {h00=0x0010, h01=0x0050, text=» PSTRG STRG «, t00=0x000a, t01=0x00c0}
0x1070…1080              Head {h00=0x000c, h01=0x0050, text=» PBIN WX«, t00=0x000a, t01=0x00d4}
0x1080…109a              Head {h00=0x0016, h01=0x0050, text=» MOVE STRG10A,IND «, t00=0x000a, t01=0x00e4}
0x109a…10be              Head {h00=0x0020, h01=0x0050, text=» COPY STRG10A,W1,W6,STRG,W0 «, t00=0x000a, t01=0x00fe}
0x10be…10ec              Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,WX,DEBIN3,DEBIN4,STRG10A «, t00=0x000a, t01=0x0122}
0x10ec…10f8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0150}
0x10f8…1106              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x015c}
0x1106…1112              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000a, t01=0x016a}
0x1112…1116              Head {h00=0x4004, h01=0x0000}
0x1116…111a              00 0a 01 76                                                                                                                                                                                                                                       ┆   v┆
0x111a…1122 (11, 1, 8)   20 04 00 00 00 0b 00 04                                                                                                                                                                                                                           ┆        ┆
0x1122…1172 (12, 0, 400) 04 52 01 a2 01 b0 01 b0 04 46 04 4a 04 4e 31 31 93 16 50 0b 00 93 10 02 93 23 80 01 10 57 e6 00 92 21 30 32 13 92 20 5c 1b 00 ba 70 21 00 75 20 00 89 21 00 b0 22 20 00 b0 21 21 00 bc 20 00 77 20 6a 77 21 21 19 7b 31 6a bc 21 21 19 7b 32 04   ┆ R       F J N11  P      #   W   !02       p! u   !  "   !!    w jw!! {1j !! {2 ┆
0x1172…11c2              77 bc 80 02 00 64 12 03 b0 22 3b 40 68 80 03 75 22 20 91 21 99 4b 68 11 02 89 21 40 6b 00 8f 20 01 7e 30 30 22 6f 54 1c 01 9b 32 6a 7e 8f 23 9b 20 02 8f 23 00 b8 2d 8b 00 62 20 80 04 6f b8 2d 28 91 20 71 30 22 c6 54 46 00 62 20 00 be 20 00   ┆w    d   ";@h  u"  ! Kh   !@k    ~00"oT   2j~ #    #  -  b   o -(  q0" TF b     ┆
0x11c2…1212              b8 2c b8 21 02 b8 2c b8 22 02 b8 2c b8 23 01 9d 37 00 bd 20 68 9d bd 29 c6 62 23 54 22 02 bd 23 0a bd 23 10 b8 bd 20 1a 02 be b8 bd 80 04 c6 b8 bd 28 91 20 30 20 b8 2c be 05 00 62 be 5f 31 49 69 0e 80 05 21 22 64 11 26 25 28 91 20 17 5f 93   ┆ , !  , "  , #  7   h  ) b#T"  #  #              (  0  ,   b _1Ii   !"d &%(   _ ┆
0x1212…1262              80 05 23 24 64 11 26 25 10 91 20 9f 57 07 31 31 93 16 00 91 20 34 00 00 8e 8f 02 8e 01 02 24 8e 11 39 04 8e 11 04 01 02 8e 6a 7e 8f 01 02 00 62 49 69 0a 80 05 21 22 64 11 26 25 57 08 80 05 23 24 64 11 26 25 28 91 20 41 02 62 01 02 00 01 02   ┆  #$d &%    W 11     4        $  9       j~    bIi   !"d &%W   #$d &%(  A b     ┆
0x1262…12b2              8e 00 8f 20 01 7e 30 41 6b 5f 44 6a 7e 8f 01 02 00 62 02 8f 01 02 02 8f 23 2a 8f 11 1d 49 69 0a 80 05 21 22 64 11 26 25 57 08 80 05 23 24 64 11 26 25 00 8f 20 01 7e 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08   ┆     ~0Ak_Dj~    b      #*   Ii   !"d &%W   #$d &%    ~0                        ┆

Reduced view