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

⟦ed1fc0249⟧ 

    Length: 4496 (0x1190)
    Notes: pts_type(SC)
    Names: »TSWBLK.SC«

Derivation

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »TOSSWORK/TSWBLK.SC«

PTS(SC)

	IDENT TSWBLK 	REL 9.2 79-11-16  870105040920 

* 
* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM  PTS
* 
*   TSWBLK = LOAD/STORE SWAPPABLE WORK BLOCK
* 
* 
* 
* 
**************************************************
* 
* 
*   THIS MODULE CONTAINS THE LOAD/STORE SWAPPABLE WORK BLOCK
*   LKM PROCESSOR, USED IN TOSS MEMORY MANAGEMENT SYSTEMS.
* 
* 
	EJECT			TSWBLK 
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	TSWBLK	LOAD/STORE SWAPPABLE WORK BLOCK 



* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	TDISP	DISPATCHER 
	EXTRN	LKMRQE	LKM REQUEST ERROR 
	EXTRN	SCTSWB	SWBTAB ADDRESS
	EXTRN	QLTSWB	ACTIVATE LDTASK AT ENTRY LT:SWB 
	EJECT			TSWBLK 
* 
* 
**********
* TSWBLK *
**********
* 
* 
*   THIS IS THE LOAD/STORE SWAPPABLE WORK BLOCK LKM PROCESSOR.
* 
*   IT IS ENTERED FROM THE LKM HANDLER
*   WITH THE FOLLOWING PARAMETERS:
* 
*   A5 = TTAB ADDRESS 
*   A6 = LKM DATA DIRECTIVE: 19 IF LOAD SWB 
*      =                     20 IF STORE SWB
*   A7 = LEFT BYTE : SWB TYPE (NUMBER)
*      = RIGHT BYTE: INDEX WITHIN TYPE
*   A8 = MEMORY ADDRESS OF WHERE TO LOAD THE SWB (A6 = 19)
*       =  "       "    "  THE SWB TO STORE      (A6 = 20)
* 
*   TSWBLK WILL ACTIVATE LDTASK (THE LOAD TASK) AT LABEL LT:SWB 
*   AND LDTASK WILL LOAD/STORE REQUESTED WORK BLOCK.
* 
*   IT RETURNS TO CALLING TASK WITH 
*   THE FOLLOWING PARAMETERS: 
* 
*   A7 = UNCHANGED IF LOADING/STORING IS SUCCESSFUL, ELSE 
*   A7 = -1 IF REQUEST ERROR, ELSE
*   A7 = -2 IF DISC I/O ERROR, ELSE 
*   A7 = -3 IF DISC NOT OPERABLE
* 
	EJECT			TSWBLK 
* 
*	CHECK VALIDITY OF SWPBLK PARAMETERS 
* 
TSWBLK	EQU	*	SWB HANDLING ENTRY 
	LD	A1,SCTSWB	GET SWBTAB ADDRESS
	RF(NZ)	TSW:10	SWBTAB PRESENT?
* 
SWBERR	EQU	*	COMMON REQUEST ERROR EXIT
	ABL	LKMRQE	LKM REQUEST ERROR 
* 
TSW:10	EQU	*
	ECR	A4,A7
	ANK	A4,/FF	GET TYPE NUMBER 
	CWR*	A4,A1	CHECK IF LEGAL
	RB(G)	SWBERR	SWB TYPE NUMBER TOO BIG?
	ADR	A4,A4
	ADR	A1,A4	GET ADDRESS TO SWB TYPE POINTER
	LDR*	A1,A1	GET ADDRESS TO SWB TYPE 
	ANK	A7,/FF	GET COPY NUMBER WITHIN TYPE 
	CWR*	A7,A1	CHECK IF LEGAL
	RB(G)	SWBERR	SWB COPY NUMBER TOO BIG?
* 
	EJECT			TSWBLK 
* 
*	PREPARE FOR ACTIVATION OF LOAD TASK 
* 
	LDR	A3,A5	GET TTAB ADDRESS OF CALLING TASK 
	SUK	A6,19	CHECK DATA DIRECTIVE 
	RF(Z)	TSW:20	LOAD SWB REQUEST? 
	ORK	A1,1	NO, INDICATE STORE SWB REQUEST
* 
*	ACTIVATE LOAD TASK
* 
TSW:20	EQU	*
	CF	A15,QLTSWB	ACTIVATE LDTASK AT ENTRY LT:SWB
	ABL	TDISP	GO TO DISPATCHER 
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT TSWBLK  REL 9.2 79-11-16  870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x004c}
0x0052…008c              Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0000, t01=0x0056}
0x008c…0096              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00be              Head {h00=0x0024, h01=0x0020, text=»*   PHILIPS TERMINAL SYSTEM  PTS«, t00=0x0000, t01=0x009a}
0x00be…00c8              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00c2}
0x00c8…00fc              Head {h00=0x0030, h01=0x002c, text=»*   TSWBLK = LOAD/STORE SWAPPABLE WORK BLOCK«, t00=0x0000, t01=0x00cc}
0x00fc…0106              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0100}
0x0106…0110              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x010a}
0x0110…011a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0114}
0x011a…0124              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x011e}
0x0124…015e              Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0000, t01=0x0128}
0x015e…0168              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0162}
0x0168…0172              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x016c}
0x0172…01b6              Head {h00=0x0040, h01=0x003c, text=»*   THIS MODULE CONTAINS THE LOAD/STORE SWAPPABLE WORK BLOCK«, t00=0x0000, t01=0x0176}
0x01b6…01f8              Head {h00=0x003e, h01=0x003a, text=»*   LKM PROCESSOR, USED IN TOSS MEMORY MANAGEMENT SYSTEMS.«, t00=0x0001, t01=0x002a}
0x01f8…0202              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x006c}
0x0202…020c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0076}
0x020c…0224              Head {h00=0x0014, h01=0x000f, text=» EJECT   TSWBLK «, t00=0x0001, t01=0x0080}
0x0224…022e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0098}
0x022e…0238              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00a2}
0x0238…024c              Head {h00=0x0010, h01=0x000b, text=»*********** «, t00=0x0001, t01=0x00ac}
0x024c…0260              Head {h00=0x0010, h01=0x000b, text=»* ENTRIES * «, t00=0x0001, t01=0x00c0}
0x0260…0274              Head {h00=0x0010, h01=0x000b, text=»*********** «, t00=0x0001, t01=0x00d4}
0x0274…027e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00e8}
0x027e…0288              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00f2}
0x0288…02be              Head {h00=0x0032, h01=0x002d, text=» ENTRY TSWBLK LOAD/STORE SWAPPABLE WORK BLOCK «, t00=0x0001, t01=0x00fc}
0x02be…02c6              Head {h00=0x0004, h01=0x0002, t00=0x0001, t01=0x0132}
0x02c6…02ce              Head {h00=0x0004, h01=0x0002, t00=0x0001, t01=0x013a}
0x02ce…02d6              Head {h00=0x0004, h01=0x0002, t00=0x0001, t01=0x0142}
0x02d6…02e0              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x014a}
0x02e0…02ea              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0154}
0x02ea…0300              Head {h00=0x0012, h01=0x000d, text=»************* «, t00=0x0001, t01=0x015e}
0x0300…0316              Head {h00=0x0012, h01=0x000d, text=»* EXTERNALS * «, t00=0x0001, t01=0x0174}
0x0316…032c              Head {h00=0x0012, h01=0x000d, text=»************* «, t00=0x0001, t01=0x018a}
0x032c…0336              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0010}
0x0336…0340              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x001a}
0x0340…0360              Head {h00=0x001c, h01=0x0017, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x0024}
0x0360…0388              Head {h00=0x0024, h01=0x001f, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0044}
0x0388…03ac              Head {h00=0x0020, h01=0x001c, text=» EXTRN SCTSWB SWBTAB ADDRESS«, t00=0x0002, t01=0x006c}
0x03ac…03e2              Head {h00=0x0032, h01=0x002d, text=» EXTRN QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB «, t00=0x0002, t01=0x0090}
0x03e2…03fa              Head {h00=0x0014, h01=0x000f, text=» EJECT   TSWBLK «, t00=0x0002, t01=0x00c6}
0x03fa…0404              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00de}
0x0404…040e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00e8}
0x040e…0420              Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0002, t01=0x00f2}
0x0420…0432              Head {h00=0x000e, h01=0x000a, text=»* TSWBLK *«, t00=0x0002, t01=0x0104}
0x0432…0444              Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0002, t01=0x0116}
0x0444…044e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0128}
0x044e…0458              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0132}
0x0458…049e              Head {h00=0x0042, h01=0x003e, text=»*   THIS IS THE LOAD/STORE SWAPPABLE WORK BLOCK LKM PROCESSOR.«, t00=0x0002, t01=0x013c}
0x049e…04a8              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0182}
0x04a8…04d6              Head {h00=0x002a, h01=0x0026, text=»*   IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0002, t01=0x018c}
0x04d6…0500              Head {h00=0x0026, h01=0x0022, text=»*   WITH THE FOLLOWING PARAMETERS:«, t00=0x0003, t01=0x002a}
0x0500…050a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0054}
0x050a…0528              Head {h00=0x001a, h01=0x0015, text=»*   A5 = TTAB ADDRESS «, t00=0x0003, t01=0x005e}
0x0528…055c              Head {h00=0x0030, h01=0x002b, text=»*   A6 = LKM DATA DIRECTIVE: 19 IF LOAD SWB «, t00=0x0003, t01=0x007c}
0x055c…0590              Head {h00=0x0030, h01=0x002c, text=»*      =                     20 IF STORE SWB«, t00=0x0003, t01=0x00b0}
0x0590…05be              Head {h00=0x002a, h01=0x0026, text=»*   A7 = LEFT BYTE : SWB TYPE (NUMBER)«, t00=0x0003, t01=0x00e4}
0x05be…05ec              Head {h00=0x002a, h01=0x0026, text=»*      = RIGHT BYTE: INDEX WITHIN TYPE«, t00=0x0003, t01=0x0112}
0x05ec…062e              Head {h00=0x003e, h01=0x003a, text=»*   A8 = MEMORY ADDRESS OF WHERE TO LOAD THE SWB (A6 = 19)«, t00=0x0003, t01=0x0140}
0x062e…0670              Head {h00=0x003e, h01=0x003a, text=»*       =  "       "    "  THE SWB TO STORE      (A6 = 20)«, t00=0x0003, t01=0x0182}
0x0670…067a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0034}
0x067a…06c2              Head {h00=0x0044, h01=0x003f, text=»*   TSWBLK WILL ACTIVATE LDTASK (THE LOAD TASK) AT LABEL LT:SWB «, t00=0x0004, t01=0x003e}
0x06c2…06fe              Head {h00=0x0038, h01=0x0038, text=»*   AND LDTASK WILL LOAD/STORE REQUESTED WORK BLOCK.«, t00=0x0004, t01=0x0086}
0x06fe…0708              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x00c2}
0x0708…0734              Head {h00=0x0028, h01=0x0023, text=»*   IT RETURNS TO CALLING TASK WITH «, t00=0x0004, t01=0x00cc}
0x0734…075a              Head {h00=0x0022, h01=0x001d, text=»*   THE FOLLOWING PARAMETERS: «, t00=0x0004, t01=0x00f8}
0x075a…0764              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x011e}
0x0764…07a6              Head {h00=0x003e, h01=0x0039, text=»*   A7 = UNCHANGED IF LOADING/STORING IS SUCCESSFUL, ELSE «, t00=0x0004, t01=0x0128}
0x07a6…07d0              Head {h00=0x0026, h01=0x0022, text=»*   A7 = -1 IF REQUEST ERROR, ELSE«, t00=0x0004, t01=0x016a}
0x07d0…07fc (5, 0, 400)  Head {h00=0x0028, h01=0x0023, text=»*   A7 = -2 IF DISC I/O ERROR, ELSE «, t00=0x0005, t01=0x0004}
0x07fc…0824              Head {h00=0x0024, h01=0x0020, text=»*   A7 = -3 IF DISC NOT OPERABLE«, t00=0x0005, t01=0x0030}
0x0824…082e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0058}
0x082e…0846              Head {h00=0x0014, h01=0x000f, text=» EJECT   TSWBLK «, t00=0x0005, t01=0x0062}
0x0846…0850              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x007a}
0x0850…087e              Head {h00=0x002a, h01=0x0025, text=»* CHECK VALIDITY OF SWPBLK PARAMETERS «, t00=0x0005, t01=0x0084}
0x087e…0888              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00b2}
0x0888…08b0              Head {h00=0x0024, h01=0x001f, text=»TSWBLK EQU * SWB HANDLING ENTRY «, t00=0x0005, t01=0x00bc}
0x08b0…08d8              Head {h00=0x0024, h01=0x0020, text=» LD A1,SCTSWB GET SWBTAB ADDRESS«, t00=0x0005, t01=0x00e4}
0x08d8…08fe              Head {h00=0x0022, h01=0x001e, text=» RF(NZ) TSW:10 SWBTAB PRESENT?«, t00=0x0005, t01=0x010c}
0x08fe…0908              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0132}
0x0908…0936              Head {h00=0x002a, h01=0x0026, text=»SWBERR EQU * COMMON REQUEST ERROR EXIT«, t00=0x0005, t01=0x013c}
0x0936…095c              Head {h00=0x0022, h01=0x001d, text=» ABL LKMRQE LKM REQUEST ERROR «, t00=0x0005, t01=0x016a}
0x095c…0966              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0190}
0x0966…097a              Head {h00=0x0010, h01=0x000c, text=»TSW:10 EQU *«, t00=0x0006, t01=0x000a}
0x097a…098c              Head {h00=0x000e, h01=0x000a, text=» ECR A4,A7«, t00=0x0006, t01=0x001e}
0x098c…09b0              Head {h00=0x0020, h01=0x001b, text=» ANK A4,/FF GET TYPE NUMBER «, t00=0x0006, t01=0x0030}
0x09b0…09d2              Head {h00=0x001e, h01=0x001a, text=» CWR* A4,A1 CHECK IF LEGAL«, t00=0x0006, t01=0x0054}
0x09d2…0a00              Head {h00=0x002a, h01=0x0026, text=» RB(G) SWBERR SWB TYPE NUMBER TOO BIG?«, t00=0x0006, t01=0x0076}
0x0a00…0a12              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A4«, t00=0x0006, t01=0x00a4}
0x0a12…0a44              Head {h00=0x002e, h01=0x002a, text=» ADR A1,A4 GET ADDRESS TO SWB TYPE POINTER«, t00=0x0006, t01=0x00b6}
0x0a44…0a70              Head {h00=0x0028, h01=0x0023, text=» LDR* A1,A1 GET ADDRESS TO SWB TYPE «, t00=0x0006, t01=0x00e8}
0x0a70…0aa0              Head {h00=0x002c, h01=0x0027, text=» ANK A7,/FF GET COPY NUMBER WITHIN TYPE «, t00=0x0006, t01=0x0114}
0x0aa0…0ac2              Head {h00=0x001e, h01=0x001a, text=» CWR* A7,A1 CHECK IF LEGAL«, t00=0x0006, t01=0x0144}
0x0ac2…0af0              Head {h00=0x002a, h01=0x0050, text=» RB(G) SWBERR SWB COPY NUMBER TOO BIG?«, t00=0x0006, t01=0x0166}
0x0af0…0afa (7, 0, 398)  Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0004}
0x0afa…0b12              Head {h00=0x0014, h01=0x000f, text=» EJECT   TSWBLK «, t00=0x0007, t01=0x000e}
0x0b12…0b1c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0026}
0x0b1c…0b4a              Head {h00=0x002a, h01=0x0050, text=»* PREPARE FOR ACTIVATION OF LOAD TASK «, t00=0x0007, t01=0x0030}
0x0b4a…0b54              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x005e}
0x0b54…0b88              Head {h00=0x0030, h01=0x002b, text=» LDR A3,A5 GET TTAB ADDRESS OF CALLING TASK «, t00=0x0007, t01=0x0068}
0x0b88…0bb0              Head {h00=0x0024, h01=0x001f, text=» SUK A6,19 CHECK DATA DIRECTIVE «, t00=0x0007, t01=0x009c}
0x0bb0…0bd8              Head {h00=0x0024, h01=0x001f, text=» RF(Z) TSW:20 LOAD SWB REQUEST? «, t00=0x0007, t01=0x00c4}
0x0bd8…0c08              Head {h00=0x002c, h01=0x0028, text=» ORK A1,1 NO, INDICATE STORE SWB REQUEST«, t00=0x0007, t01=0x00ec}
0x0c08…0c12              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x011c}
0x0c12…0c2e              Head {h00=0x0018, h01=0x0014, text=»* ACTIVATE LOAD TASK«, t00=0x0007, t01=0x0126}
0x0c2e…0c38              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0142}
0x0c38…0c4c              Head {h00=0x0010, h01=0x000c, text=»TSW:20 EQU *«, t00=0x0007, t01=0x014c}
0x0c4c…0c82              Head {h00=0x0032, h01=0x002e, text=» CF A15,QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB«, t00=0x0007, t01=0x0160}
0x0c82…0ca6              Head {h00=0x0020, h01=0x001b, text=» ABL TDISP GO TO DISPATCHER «, t00=0x0008, t01=0x0008}
0x0ca6…0cb0              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x002c}
0x0cb0…0cba              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0036}
0x0cba…0cc4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0040}
0x0cc4…0cd0              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0008, t01=0x004a}
0x0cd0…0cd4              Head {h00=0x4004, h01=0x0000}
0x0cd4…0cd8              00 08 00 56                                                                                                                                                                                                                                       ┆   V┆
0x0cd8…0ce0 (9, 1, 8)    20 04 00 00 00 09 00 04                                                                                                                                                                                                                           ┆        ┆
0x0ce0…0d30 (10, 0, 400) 48 49 4e 47 00 41 01 66 00 06 00 50 2a 20 00 42 00 0c 00 38 00 50 54 49 4f 32 33 30 5c 53 54 5c 41 34 2c 44 57 54 57 41 54 2c 41 36 5c 53 54 4f 52 45 20 57 41 49 54 2f 41 43 54 49 56 41 54 45 20 49 4e 44 49 43 41 54 4f 52 00 42 00 16 00 06   ┆HING A f   P*  B   8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR B    ┆
0x0d30…0d80              00 50 2a 20 00 42 00 52 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4f 53 53 49 4f 20 00 42 00 5c 00 06 00 50 2a 20 00 42 00 74 00 06 00 50 2a 20 00 42 00 7e 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 42 00 88 00 2a 00 50 5c 4c   ┆ P*  B R   P EJECT   TOSSIO  B     P*  B t   P*  B ~   P IFT MMUPAG=1  B   * P L┆
0x0d80…0dd0              44 52 5c 41 31 33 2c 41 31 33 5c 43 48 45 43 4b 20 49 46 20 53 59 53 54 45 4d 2f 55 53 45 52 20 4d 4f 44 45 00 42 00 9e 00 26 00 50 5c 52 46 28 5a 29 5c 54 49 4f 32 35 30 5c 4a 55 4d 50 20 49 46 20 53 59 53 54 45 4d 20 4d 4f 44 45 20 00 42   ┆DR A13,A13 CHECK IF SYSTEM/USER MODE B   & P RF(Z) TIO250 JUMP IF SYSTEM MODE  B┆
0x0dd0…0e20              00 cc 00 26 00 50 5c 4c 44 5c 41 33 2c 44 45 56 49 4e 44 2c 41 31 32 5c 47 45 54 20 44 45 56 49 43 45 20 49 4e 44 45 58 00 42 00 f6 00 2e 00 50 5c 52 46 28 4e 29 5c 54 49 4f 32 35 30 5c 4e 4f 20 53 50 45 43 49 41 4c 20 41 43 54 49 4f 4e 20   ┆   & P LD A3,DEVIND,A12 GET DEVICE INDEX B   . P RF(N) TIO250 NO SPECIAL ACTION ┆
0x0e20…0e70              52 45 51 55 49 52 45 44 3f 20 00 42 01 20 00 22 00 50 5c 52 46 28 5a 29 5c 54 49 4f 32 34 30 5c 44 41 54 41 20 4d 41 4e 41 47 45 4d 45 4e 54 3f 00 42 01 52 00 06 00 50 2a 20 00 42 01 78 00 22 00 50 2a 5c 50 45 52 46 4f 52 4d 20 43 48 45 43   ┆REQUIRED?  B   " P RF(Z) TIO240 DATA MANAGEMENT? B R   P*  B x " P* PERFORM CHEC┆
0x0e70…0ec0 (11, 0, 400) 4b 20 4f 4e 20 4f 52 44 45 52 20 43 4f 44 45 20 00 42 01 82 00 06 00 50 2a 20 00 43 00 18 00 1e 00 50 5c 4c 44 52 5c 41 34 2c 41 37 5c 47 45 54 20 4f 52 44 45 52 20 43 4f 44 45 20 00 43 00 22 00 30 00 50 5c 43 46 5c 41 31 35 2c 52 44 3a 57   ┆K ON ORDER CODE  B     P*  C     P LDR A4,A7 GET ORDER CODE  C " 0 P CF A15,RD:W┆
0x0ec0…0f10              52 32 20 5c 43 48 45 43 4b 20 49 46 20 4f 52 44 45 52 20 49 53 20 52 45 41 44 2f 57 52 49 54 45 00 43 00 44 00 2e 00 50 5c 52 46 28 5a 29 5c 54 49 4f 32 35 30 5c 4a 55 4d 50 20 49 46 20 4e 4f 20 52 45 41 44 2f 57 52 49 54 45 20 4f 52 44 45   ┆R2  CHECK IF ORDER IS READ/WRITE C D . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDE┆
0x0f10…0f60              52 20 00 43 00 78 00 06 00 50 2a 20 00 43 00 aa 00 10 00 50 54 49 4f 32 34 30 5c 45 51 55 5c 2a 00 43 00 b4 00 08 00 50 5c 45 4e 42 00 43 00 c8 00 3c 00 50 5c 43 46 49 5c 41 31 35 2c 54 49 4f 54 41 42 2c 41 33 5c 42 52 41 4e 43 48 20 54 4f   ┆R  C x   P*  C     PTIO240 EQU * C     P ENB C   < P CFI A15,TIOTAB,A3 BRANCH TO┆
0x0f60…0fb0              20 52 45 4c 45 56 41 4e 54 20 52 45 41 44 2f 57 52 49 54 45 20 52 4f 55 54 49 4e 45 00 43 00 d4 00 08 00 50 5c 58 49 46 00 43 01 14 00 06 00 50 2a 20 00 43 01 20 00 2a 00 50 54 49 4f 32 35 30 5c 45 4e 42 5c 5c 47 49 56 45 20 4f 54 48 45 52   ┆ RELEVANT READ/WRITE ROUTINE C     P XIF C     P*  C   * PTIO250 ENB  GIVE OTHER┆
0x0fb0…1000              20 54 41 53 4b 53 20 41 20 43 48 41 4e 43 45 20 00 43 01 2a 00 06 00 50 2a 20 00 43 01 58 00 2a 00 50 54 49 4f 32 36 30 5c 4c 44 4b 5c 41 35 2c 44 57 54 53 42 32 5c 4c 4f 41 44 20 53 54 41 43 4b 20 42 41 53 45 20 32 00 43 01 62 00 0e 00 50   ┆ TASKS A CHANCE  C *   P*  C X * PTIO260 LDK A5,DWTSB2 LOAD STACK BASE 2 C b   P┆
0x1000…1050 (12, 0, 400) 5c 41 44 52 5c 41 35 2c 41 36 00 43 01 90 00 08 00 50 5c 49 4e 48 00 44 00 12 00 26 00 50 5c 41 42 52 2a 5c 41 31 32 5c 47 4f 20 54 4f 20 44 52 49 56 45 52 20 41 43 54 49 56 41 54 49 4f 4e 20 00 44 00 1e 00 06 00 50 2a 20 00 44 00 48 00 14   ┆ ADR A5,A6 C     P INH D   & P ABR* A12 GO TO DRIVER ACTIVATION  D     P*  D H  ┆
0x1050…10a0              00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4f 53 53 49 4f 20 00 44 00 52 00 06 00 50 2a 20 00 44 00 6a 00 06 00 50 2a 20 00 44 00 74 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 44 00 7e 00 06 00 50 2a 20 00 44 00 94 00 10 00 50 2a 5c   ┆ P EJECT   TOSSIO  D R   P*  D j   P*  D t   P IFT MMUPAG=1  D ~   P*  D     P* ┆
0x10a0…10f0              52 20 44 20 3a 20 57 20 52 20 00 44 00 9e 00 06 00 50 2a 20 00 44 00 b2 00 40 00 50 2a 20 54 48 49 53 20 4d 4f 44 55 4c 45 20 49 53 20 43 41 4c 4c 45 44 20 42 59 20 27 54 49 4f 27 20 41 4e 44 20 27 54 45 4e 44 49 4f 27 20 46 4f 52 20 53 45   ┆R D : W R  D     P*  D   @ P* THIS MODULE IS CALLED BY 'TIO' AND 'TENDIO' FOR SE┆
0x10f0…1140              4c 45 43 54 49 4e 47 20 00 44 00 bc 00 40 00 50 2a 20 54 48 45 20 41 50 50 52 4f 50 52 49 41 54 45 20 52 4f 55 54 49 4e 45 20 41 54 20 52 45 41 44 2f 57 52 49 54 45 20 52 45 51 55 45 53 54 53 2c 20 44 45 50 45 4e 44 49 4e 47 20 00 44 01 00   ┆LECTING  D   @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING  D  ┆
0x1140…1190              00 3e 00 50 2a 20 4f 4e 20 54 48 45 20 44 45 56 49 43 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 28 50 52 4f 47 52 41 4d 4d 45 44 20 43 48 41 4e 4e 45 4c 2c 20 4d 55 58 20 45 54 58 29 2e 20 00 44 01 44 00 3e 00 50 2a 20 49 46 20 4e 4f 20 52 45   ┆ > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX).  D D > P* IF NO RE┆

Reduced view