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

⟦fbcffc1fc⟧

    Length: 4774 (0x12a6)
    Notes: pts_type(SC)
    Names: »WRITE.SC«

Derivation

└─⟦8ac270cab⟧ Bits:30009705 Philips computer tape "LINSIM8-2"
    └─⟦this⟧ »LINSIM82/WRITE.SC« 
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
    └─⟦this⟧ »LINSIM/WRITE.SC« 

PTS(SC)

	IDENT WRITE  	REL 1.1 82-09-28  870150040110 
			UPDATE #0 77.01.20 JES 
* 
* 
*	CENTRAL COMPUTER SIMULATION 
* 
*	WRITE TASK
* 
* 
	ENTRY	WRITE	TASK ACTIVATION
	ENTRY	WRECB	WRITE ECB ADDRESS
* 
* 
	EXTRN	TRQ	TRANSMIT QUEUE 
	EXTRN	AREA	TRANSMIT BUFFER AREA
	EXTRN	LENGTH	LENGTH OF TRANSMIT AREAS
* 
* 
* 
*	RELATIVE ECB EQUATES
* 
* 
ECBBA	EQU	2 
ECBRL	EQU	4 
ECBEL	EQU	6 
ECBRC	EQU	8 
ECBCW	EQU	/A
* 
WRECB	DATA	/62,0,0,0,0,0
	EJECT
* 
* 
*	WRITE TASK
* 
* 
WRITE	LDKL	A8,WRECB	LOAD ECB ADDRESS
	LDKL	A9,TRQ	QUEUE POINTER
	LDK	A7,/86	ORDER 
WR100	LDR*	A1,A9	TAKE FROM QUEUE
	CWK	A1,/FFFF 
	RF(Z)	EXIT	END OF QUEUE
	CWK	A1,/CCCC	CONTINUOUS WRITE?	
	RB(E)	WRITE	YES, CONTINUE THEN	
	ADKL	A9,2	INCR QUEUE POINTER 
	LDR	A1,A1
	RF(N)	WR200	DELAY IS WANTED
	LDR	A2,A1	GET AREA NUMBER
	ANK	A2,/F
	LDKL	A3,AREA	AREA BASE 
WR110	SUK	A2,1	COMPUTE AREA ADDRESS 
	RF(N)	WR120
	ADKL	A3,LENGTH 
	RB	WR110 
WR120	LDR*	A4,A3	GET LENGTH OF AREA 
	RF(Z)	WR300	LENGTH ZERO
	RF(N)	WR300
	CWK	A4,500 
	RF(G)	WR300
	ST	A4,ECBRL,A8	STORE IN ECB
	ADK	A3,2 
	LDR*	A1,A9 
	ADKL	A9,2
	ST	A1,ECBCW,A8	TIME OUT
	ST	A3,ECBBA,A8	BUFFER ADDRESS
	LKM
	DATA	1	WRITE 
	LD	A1,ECBRC,A8	GET RETURN CODE 
	ANKL	A1,/FEFF	MASK TIME OUT
	RB(Z)	WR100	OK: NEXT PATTERN 
EXIT	LKM
	DATA	3 
WR200	EQU	* 
	ANK	A1,/FF	MASK DELAY-VALUE
	LDR	A8,A1
	LKM
	DATA	6	DELAY 
	LDKL	A8,WRECB
	RB	WR100 
WR300	EQU	* 
	ADKL	A9,2
	RB	WR100 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT WRITE   REL 1.1 82-09-28  870150040110 «, t00=0x0000, t01=0x0004}
0x0036…0058              Head {h00=0x001e, h01=0x0050, text=»   UPDATE #0 77.01.20 JES «, t00=0x0000, t01=0x003a}
0x0058…0062              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x005c}
0x0062…006c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0066}
0x006c…0092              Head {h00=0x0022, h01=0x0050, text=»* CENTRAL COMPUTER SIMULATION «, t00=0x0000, t01=0x0070}
0x0092…009c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0096}
0x009c…00b0              Head {h00=0x0010, h01=0x0050, text=»* WRITE TASK«, t00=0x0000, t01=0x00a0}
0x00b0…00ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b4}
0x00ba…00c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00be}
0x00c4…00e8              Head {h00=0x0020, h01=0x0050, text=» ENTRY WRITE TASK ACTIVATION«, t00=0x0000, t01=0x00c8}
0x00e8…010e              Head {h00=0x0022, h01=0x0050, text=» ENTRY WRECB WRITE ECB ADDRESS«, t00=0x0000, t01=0x00ec}
0x010e…0118              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0112}
0x0118…0122              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…0144              Head {h00=0x001e, h01=0x0050, text=» EXTRN TRQ TRANSMIT QUEUE «, t00=0x0000, t01=0x0126}
0x0144…016c              Head {h00=0x0024, h01=0x0050, text=» EXTRN AREA TRANSMIT BUFFER AREA«, t00=0x0000, t01=0x0148}
0x016c…019a              Head {h00=0x002a, h01=0x0050, text=» EXTRN LENGTH LENGTH OF TRANSMIT AREAS«, t00=0x0000, t01=0x0170}
0x019a…01a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a4…01ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0018}
0x01ae…01b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x01b8…01d6              Head {h00=0x001a, h01=0x0050, text=»* RELATIVE ECB EQUATES«, t00=0x0001, t01=0x002c}
0x01d6…01e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004a}
0x01e0…01ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0054}
0x01ea…01fe              Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0001, t01=0x005e}
0x01fe…0212              Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0001, t01=0x0072}
0x0212…0226              Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0001, t01=0x0086}
0x0226…023a              Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0001, t01=0x009a}
0x023a…024e              Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU /A«, t00=0x0001, t01=0x00ae}
0x024e…0258              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c2}
0x0258…0278              Head {h00=0x001c, h01=0x0050, text=»WRECB DATA /62,0,0,0,0,0«, t00=0x0001, t01=0x00cc}
0x0278…0286              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00ec}
0x0286…0290              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fa}
0x0290…029a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x029a…02ae              Head {h00=0x0010, h01=0x0050, text=»* WRITE TASK«, t00=0x0001, t01=0x010e}
0x02ae…02b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0122}
0x02b8…02c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012c}
0x02c2…02ee              Head {h00=0x0028, h01=0x0050, text=»WRITE LDKL A8,WRECB LOAD ECB ADDRESS«, t00=0x0001, t01=0x0136}
0x02ee…0310              Head {h00=0x001e, h01=0x0050, text=» LDKL A9,TRQ QUEUE POINTER«, t00=0x0001, t01=0x0162}
0x0310…032a              Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 ORDER «, t00=0x0001, t01=0x0184}
0x032a…0352              Head {h00=0x0024, h01=0x0050, text=»WR100 LDR* A1,A9 TAKE FROM QUEUE«, t00=0x0002, t01=0x000e}
0x0352…0368              Head {h00=0x0012, h01=0x0050, text=» CWK A1,/FFFF «, t00=0x0002, t01=0x0036}
0x0368…0388              Head {h00=0x001c, h01=0x0050, text=» RF(Z) EXIT END OF QUEUE«, t00=0x0002, t01=0x004c}
0x0388…03b0              Head {h00=0x0024, h01=0x0050, text=» CWK A1,/CCCC CONTINUOUS WRITE? «, t00=0x0002, t01=0x006c}
0x03b0…03d8              Head {h00=0x0024, h01=0x0050, text=» RB(E) WRITE YES, CONTINUE THEN «, t00=0x0002, t01=0x0094}
0x03d8…03fe              Head {h00=0x0022, h01=0x0050, text=» ADKL A9,2 INCR QUEUE POINTER «, t00=0x0002, t01=0x00bc}
0x03fe…0410              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0002, t01=0x00e2}
0x0410…0434              Head {h00=0x0020, h01=0x0050, text=» RF(N) WR200 DELAY IS WANTED«, t00=0x0002, t01=0x00f4}
0x0434…0456              Head {h00=0x001e, h01=0x0050, text=» LDR A2,A1 GET AREA NUMBER«, t00=0x0002, t01=0x0118}
0x0456…0468              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0002, t01=0x013a}
0x0468…0488              Head {h00=0x001c, h01=0x0050, text=» LDKL A3,AREA AREA BASE «, t00=0x0002, t01=0x014c}
0x0488…04b4              Head {h00=0x0028, h01=0x0050, text=»WR110 SUK A2,1 COMPUTE AREA ADDRESS «, t00=0x0002, t01=0x016c}
0x04b4…04c8              Head {h00=0x0010, h01=0x0050, text=» RF(N) WR120«, t00=0x0003, t01=0x0008}
0x04c8…04e0              Head {h00=0x0014, h01=0x0050, text=» ADKL A3,LENGTH «, t00=0x0003, t01=0x001c}
0x04e0…04f2              Head {h00=0x000e, h01=0x0050, text=» RB WR110 «, t00=0x0003, t01=0x0034}
0x04f2…051e              Head {h00=0x0028, h01=0x0050, text=»WR120 LDR* A4,A3 GET LENGTH OF AREA «, t00=0x0003, t01=0x0046}
0x051e…053e              Head {h00=0x001c, h01=0x0050, text=» RF(Z) WR300 LENGTH ZERO«, t00=0x0003, t01=0x0072}
0x053e…0552              Head {h00=0x0010, h01=0x0050, text=» RF(N) WR300«, t00=0x0003, t01=0x0092}
0x0552…0566              Head {h00=0x0010, h01=0x0050, text=» CWK A4,500 «, t00=0x0003, t01=0x00a6}
0x0566…057a              Head {h00=0x0010, h01=0x0050, text=» RF(G) WR300«, t00=0x0003, t01=0x00ba}
0x057a…059e              Head {h00=0x0020, h01=0x0050, text=» ST A4,ECBRL,A8 STORE IN ECB«, t00=0x0003, t01=0x00ce}
0x059e…05b0              Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0003, t01=0x00f2}
0x05b0…05c4              Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A9 «, t00=0x0003, t01=0x0104}
0x05c4…05d6              Head {h00=0x000e, h01=0x0050, text=» ADKL A9,2«, t00=0x0003, t01=0x0118}
0x05d6…05f6              Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TIME OUT«, t00=0x0003, t01=0x012a}
0x05f6…061c              Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x0003, t01=0x014a}
0x061c…0628              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0003, t01=0x0170}
0x0628…063e              Head {h00=0x0012, h01=0x0050, text=» DATA 1 WRITE «, t00=0x0003, t01=0x017c}
0x063e…0666 (4, 2, 370)  Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x0004, t01=0x0004}
0x0666…068a              Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FEFF MASK TIME OUT«, t00=0x0004, t01=0x002c}
0x068a…06b0              Head {h00=0x0022, h01=0x0050, text=» RB(Z) WR100 OK: NEXT PATTERN «, t00=0x0004, t01=0x0050}
0x06b0…06c0              Head {h00=0x000c, h01=0x0050, text=»EXIT LKM«, t00=0x0004, t01=0x0076}
0x06c0…06d0              Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0004, t01=0x0086}
0x06d0…06e4              Head {h00=0x0010, h01=0x0050, text=»WR200 EQU * «, t00=0x0004, t01=0x0096}
0x06e4…0708              Head {h00=0x0020, h01=0x0050, text=» ANK A1,/FF MASK DELAY-VALUE«, t00=0x0004, t01=0x00aa}
0x0708…071a              Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x0004, t01=0x00ce}
0x071a…0726              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0004, t01=0x00e0}
0x0726…073c              Head {h00=0x0012, h01=0x0050, text=» DATA 6 DELAY «, t00=0x0004, t01=0x00ec}
0x073c…0752              Head {h00=0x0012, h01=0x0050, text=» LDKL A8,WRECB«, t00=0x0004, t01=0x0102}
0x0752…0764              Head {h00=0x000e, h01=0x0050, text=» RB WR100 «, t00=0x0004, t01=0x0118}
0x0764…0778              Head {h00=0x0010, h01=0x0050, text=»WR300 EQU * «, t00=0x0004, t01=0x012a}
0x0778…078a              Head {h00=0x000e, h01=0x0050, text=» ADKL A9,2«, t00=0x0004, t01=0x013e}
0x078a…079c              Head {h00=0x000e, h01=0x0050, text=» RB WR100 «, t00=0x0004, t01=0x0150}
0x079c…07a8              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0004, t01=0x0162}
0x07a8…07ac              Head {h00=0x4004, h01=0x0000}
0x07ac…07b0              00 04 01 6e                                                                                                                                                                                                                                       ┆   n┆
0x07b0…07b8 (5, 1, 8)    20 04 00 00 00 05 00 04                                                                                                                                                                                                                           ┆        ┆
0x07b8…0808 (6, 0, 400)  5c 45 58 54 52 4e 5c 41 53 54 4f 45 42 20 00 05 01 90 00 12 00 50 5c 45 58 54 52 4e 5c 43 52 43 43 41 4c 20 00 06 00 16 00 06 00 50 2a 20 00 06 00 2c 00 06 00 50 2a 20 00 06 00 36 00 0e 00 50 2a 5c 45 51 55 41 54 45 53 20 00 06 00 40 00 06   ┆ EXTRN ASTOEB        P EXTRN CRCCAL        P*    ,   P*    6   P* EQUATES    @  ┆
0x0808…0858              00 50 2a 20 00 06 00 52 00 06 00 50 2a 20 00 06 00 5c 00 10 00 50 53 4f 48 5c 45 51 55 5c 2f 30 31 20 00 06 00 66 00 10 00 50 53 54 58 5c 45 51 55 5c 2f 30 32 20 00 06 00 7a 00 10 00 50 45 43 42 42 41 5c 45 51 55 5c 32 20 00 06 00 8e 00 10   ┆ P*    R   P*        PSOH EQU /01    f   PSTX EQU /02    z   PECBBA EQU 2       ┆
0x0858…08a8              00 50 45 43 42 52 4c 5c 45 51 55 5c 34 20 00 06 00 a2 00 10 00 50 45 43 42 52 43 5c 45 51 55 5c 38 20 00 06 00 b6 00 10 00 50 45 43 42 43 57 5c 45 51 55 5c 31 30 00 06 00 ca 00 06 00 50 2a 20 00 06 00 de 00 06 00 50 2a 20 00 06 00 e8 00 1a   ┆ PECBRL EQU 4        PECBRC EQU 8        PECBCW EQU 10       P*        P*       ┆
0x08a8…08f8              00 50 5c 52 45 53 5c 32 30 5c 53 54 41 43 4b 20 46 4f 52 20 41 31 34 20 00 06 00 f2 00 10 00 50 53 54 42 5c 45 51 55 5c 2a 2d 32 20 00 06 01 10 00 36 00 50 50 52 4f 43 43 42 5c 44 41 54 41 5c 30 5c 41 44 44 52 45 53 53 20 54 4f 20 50 52 49   ┆ P RES 20 STACK FOR A14        PSTB EQU *-2      6 PPROCCB DATA 0 ADDRESS TO PRI┆
0x08f8…0948              4e 54 45 52 20 4f 43 43 55 50 49 45 44 20 42 55 46 46 46 45 52 20 00 06 01 24 00 26 00 50 43 4f 44 45 5c 44 41 54 41 5c 30 5c 30 20 3d 20 41 53 43 49 49 20 2c 20 31 20 3d 20 45 42 43 44 49 43 00 06 01 5e 00 2c 00 50 58 42 43 43 5c 44 41 54   ┆NTER OCCUPIED BUFFFER    $ & PCODE DATA 0 0 = ASCII , 1 = EBCDIC   ^ , PXBCC DAT┆
0x0948…0998 (7, 0, 400)  41 5c 30 5c 53 57 49 54 43 48 20 46 4f 52 20 42 43 43 20 41 43 43 55 4d 55 4c 41 54 49 4f 4e 20 00 06 01 88 00 0e 00 50 53 59 4e 5c 44 41 54 41 5c 30 00 07 00 28 00 0e 00 50 45 54 42 5c 44 41 54 41 5c 30 00 07 00 3a 00 0e 00 50 45 54 58 5c   ┆A 0 SWITCH FOR BCC ACCUMULATION        PSYN DATA 0   (   PETB DATA 0   :   PETX ┆
0x0998…09e8              44 41 54 41 5c 30 00 07 00 4c 00 12 00 50 48 45 58 43 48 41 5c 44 41 54 41 5c 30 20 00 07 00 5e 00 0a 00 50 5c 45 4a 45 43 54 00 07 00 74 00 06 00 50 2a 20 00 07 00 82 00 06 00 50 2a 20 00 07 00 8c 00 1a 00 50 2a 5c 53 54 41 52 54 20 4c 4f   ┆DATA 0   L   PHEXCHA DATA 0    ^   P EJECT   t   P*        P*        P* START LO┆
0x09e8…0a38              4f 50 20 54 45 53 54 20 54 4f 4f 4c 00 07 00 96 00 06 00 50 2a 20 00 07 00 b4 00 06 00 50 2a 20 00 07 00 be 00 10 00 50 41 53 54 41 52 54 5c 45 51 55 5c 2a 00 07 00 c8 00 26 00 50 5c 43 4d 5c 50 52 4f 43 43 42 5c 52 45 4c 45 41 53 45 20 50   ┆OP TEST TOOL       P*        P*        PASTART EQU *     & P CM PROCCB RELEASE P┆
0x0a38…0a88              52 49 4e 54 45 52 20 42 55 46 46 45 52 20 00 07 00 dc 00 10 00 50 41 53 54 41 32 30 5c 45 51 55 5c 2a 00 07 01 06 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 2f 38 30 20 00 07 01 1a 00 28 00 50 5c 53 43 5c 41 31 2c 57 52 45 43 42 5c 53 45 54 20 57   ┆RINTER BUFFER        PASTA20 EQU *       P LDK A1,/80      ( P SC A1,WRECB SET W┆
0x0a88…0ad8              52 49 54 45 20 45 43 42 20 4e 4f 54 20 42 55 53 59 20 00 07 01 2e 00 12 00 50 5c 4c 44 4b 4c 5c 41 37 2c 27 4f 50 27 20 00 07 01 5a 00 08 00 50 5c 4c 4b 4d 00 07 01 70 00 32 00 50 5c 44 41 54 41 5c 2d 34 2c 4f 50 43 54 52 4c 5c 41 43 54 49   ┆RITE ECB NOT BUSY    .   P LDKL A7,'OP'    Z   P LKM   p 2 P DATA -4,OPCTRL ACTI┆
0x0ad8…0b28 (8, 0, 398)  56 41 54 45 20 4f 50 45 52 41 54 4f 52 20 43 4f 4e 54 52 4f 4c 20 54 41 53 4b 00 07 01 7c 00 12 00 50 5c 4c 44 4b 4c 5c 41 37 2c 27 49 4e 27 20 00 08 00 22 00 08 00 50 5c 4c 4b 4d 00 08 00 38 00 24 00 50 5c 44 41 54 41 5c 2d 34 2c 4c 4f 47   ┆VATE OPERATOR CONTROL TASK   |   P LDKL A7,'IN'    "   P LKM   8 $ P DATA -4,LOG┆
0x0b28…0b78              49 4e 5c 41 43 54 49 56 41 54 45 20 4c 4f 47 20 54 41 53 4b 00 08 00 44 00 08 00 50 5c 4c 4b 4d 00 08 00 6c 00 0c 00 50 5c 44 41 54 41 5c 33 20 00 08 00 78 00 0a 00 50 5c 45 4a 45 43 54 00 08 00 88 00 06 00 50 2a 20 00 08 00 96 00 06 00 50   ┆IN ACTIVATE LOG TASK   D   P LKM   l   P DATA 3    x   P EJECT       P*        P┆
0x0b78…0bc8              2a 20 00 08 00 a0 00 1c 00 50 2a 5c 4f 50 45 52 41 54 4f 52 20 43 4f 4e 54 52 4f 4c 20 54 41 53 4b 20 00 08 00 aa 00 06 00 50 2a 20 00 08 00 ca 00 06 00 50 2a 20 00 08 00 d4 00 10 00 50 4f 50 43 54 52 4c 5c 45 51 55 5c 2a 00 08 00 de 00 12   ┆*        P* OPERATOR CONTROL TASK        P*        P*        POPCTRL EQU *      ┆
0x0bc8…0c18              00 50 5c 4c 44 4b 4c 5c 41 31 34 2c 53 54 42 20 00 08 00 f2 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 27 20 27 20 00 08 01 08 00 22 00 50 5c 43 46 5c 41 31 34 2c 4f 43 43 50 52 5c 4f 43 43 55 50 49 45 20 50 52 49 4e 54 45 52 20 00 08 01 1c 00 10   ┆ P LDKL A14,STB        P LDK A7,' '      " P CF A14,OCCPR OCCUPIE PRINTER       ┆
0x0c18…0c66              00 50 4f 50 43 54 31 30 5c 45 51 55 5c 2a 00 08 01 42 00 10 00 50 5c 43 46 5c 41 31 34 2c 43 52 4c 46 00 08 01 56 00 12 00 50 5c 4c 44 4b 4c 5c 41 32 2c 54 45 58 54 31 00 08 01 6a 00 12 00 50 5c 43 46 5c 41 31 34 2c 50 52 54 58 54 20         ┆ POPCT10 EQU *   B   P CF A14,CRLF   V   P LDKL A2,TEXT1   j   P CF A14,PRTXT ┆
0x0c66…0cb6 (9, 0, 400)  00 08 01 80 00 1e 00 50 5c 43 46 5c 41 31 34 2c 52 45 41 44 45 5c 52 45 41 44 20 45 20 4f 52 20 41 20 00 09 00 08 00 16 00 50 5c 44 41 54 41 5c 4b 54 30 35 30 2c 46 54 30 35 30 20 00 09 00 2a 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 27 3f 27 20   ┆       P CF A14,READE READ E OR A        P DATA KT050,FT050    *   P LDK A7,'?' ┆
0x0cb6…0d06              00 09 00 44 00 1c 00 50 5c 43 46 5c 41 31 34 2c 50 52 43 48 5c 49 4e 56 41 4c 49 44 20 4b 45 59 00 09 00 58 00 18 00 50 5c 52 42 5c 4f 50 43 54 31 30 5c 54 52 59 20 41 47 41 49 4e 00 09 00 78 00 06 00 50 2a 20 00 09 00 94 00 06 00 50 2a 20   ┆   D   P CF A14,PRCH INVALID KEY   X   P RB OPCT10 TRY AGAIN   x   P*        P* ┆
0x0d06…0d56              00 09 00 9e 00 18 00 50 4b 54 30 35 30 5c 44 41 54 41 5c 2f 30 32 34 31 2c 27 45 27 00 09 00 a8 00 1c 00 50 46 54 30 35 30 5c 44 41 54 41 5c 4f 50 43 54 32 30 2c 4f 50 43 54 33 30 00 09 00 c4 00 06 00 50 2a 20 00 09 00 e4 00 06 00 50 2a 20   ┆       PKT050 DATA /0241,'E'       PFT050 DATA OPCT20,OPCT30       P*        P* ┆
0x0d56…0da6              00 09 00 ee 00 0a 00 50 5c 45 4a 45 43 54 00 09 00 f8 00 10 00 50 4f 50 43 54 32 30 5c 45 51 55 5c 2a 00 09 01 06 00 0c 00 50 5c 43 4d 5c 43 4f 44 45 00 09 01 1a 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 2f 31 36 20 00 09 01 2a 00 0e 00 50 5c 53   ┆       P EJECT       POPCT20 EQU *       P CM CODE       P LDK A1,/16    *   P S┆
0x0da6…0df6              54 5c 41 31 2c 53 59 4e 00 09 01 3e 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 2f 39 37 20 00 09 01 50 00 0e 00 50 5c 53 54 5c 41 31 2c 45 54 42 00 09 01 64 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 2f 38 33 20 00 09 01 76 00 0e 00 50 5c 53 54 5c 41 31   ┆T A1,SYN   >   P LDK A1,/97    P   P ST A1,ETB   d   P LDK A1,/83    v   P ST A1┆
0x0df6…0e46 (10, 0, 400) 2c 45 54 58 00 09 01 8a 00 0e 00 50 5c 52 46 5c 4f 50 43 54 34 30 00 0a 00 0c 00 10 00 50 4f 50 43 54 33 30 5c 45 51 55 5c 2a 00 0a 00 1e 00 0c 00 50 5c 49 4d 5c 43 4f 44 45 00 0a 00 32 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 2f 33 32 20 00 0a   ┆,ETX       P RF OPCT40       POPCT30 EQU *       P IM CODE   2   P LDK A1,/32   ┆
0x0e46…0e96              00 42 00 0e 00 50 5c 53 54 5c 41 31 2c 53 59 4e 00 0a 00 56 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 2f 32 36 20 00 0a 00 68 00 0e 00 50 5c 53 54 5c 41 31 2c 45 54 42 00 0a 00 7c 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 2f 30 33 20 00 0a 00 8e 00 0e   ┆ B   P ST A1,SYN   V   P LDK A1,/26    h   P ST A1,ETB   |   P LDK A1,/03       ┆
0x0e96…0ee6              00 50 5c 53 54 5c 41 31 2c 45 54 58 00 0a 00 a2 00 10 00 50 4f 50 43 54 34 30 5c 45 51 55 5c 2a 00 0a 00 b4 00 10 00 50 5c 43 46 5c 41 31 34 2c 43 52 4c 46 00 0a 00 c8 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 43 54 45 43 42 00 0a 00 dc 00 10   ┆ P ST A1,ETX       POPCT40 EQU *       P CF A14,CRLF       P LDKL A8,CTECB      ┆
0x0ee6…0f36              00 50 5c 4c 44 4b 5c 41 37 2c 2f 38 34 20 00 0a 00 f2 00 0e 00 50 5c 4c 44 5c 41 33 2c 53 59 4e 00 0a 01 06 00 26 00 50 5c 53 54 5c 41 33 2c 45 43 42 42 41 2c 41 38 5c 53 54 4f 52 45 20 53 59 4e 43 50 41 54 54 45 52 4e 20 00 0a 01 18 00 0e   ┆ P LDK A7,/84        P LD A3,SYN     & P ST A3,ECBBA,A8 STORE SYNCPATTERN       ┆
0x0f36…0f86              00 50 5c 4c 44 4b 5c 41 31 2c 35 20 00 0a 01 42 00 14 00 50 5c 53 54 5c 41 31 2c 45 43 42 43 57 2c 41 38 20 00 0a 01 54 00 08 00 50 5c 4c 4b 4d 00 0a 01 6c 00 20 00 50 5c 44 41 54 41 5c 31 5c 54 52 41 4e 53 46 45 52 20 53 59 4e 43 50 41 54   ┆ P LDK A1,5    B   P ST A1,ECBCW,A8    T   P LKM   l   P DATA 1 TRANSFER SYNCPAT┆
0x0f86…0fd6 (11, 0, 400) 54 45 52 4e 00 0a 01 78 00 0e 00 50 5c 52 46 5c 4f 50 43 4f 4e 54 00 0b 00 0c 00 0a 00 50 5c 45 4a 45 43 54 00 0b 00 1e 00 06 00 50 2a 20 00 0b 00 2c 00 10 00 50 2a 5c 50 52 49 4e 54 20 54 45 58 54 00 0b 00 36 00 06 00 50 2a 20 00 0b 00 4a   ┆TERN   x   P RF OPCONT       P EJECT       P*    ,   P* PRINT TEXT   6   P*    J┆
0x0fd6…1026              00 10 00 50 50 52 54 58 54 5c 45 51 55 5c 2a 20 00 0b 00 54 00 1a 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 32 5c 47 45 54 20 4c 45 4e 47 54 48 00 0b 00 68 00 14 00 50 5c 53 54 5c 41 32 2c 50 52 58 45 43 42 2b 32 20 00 0b 00 86 00 0e 00 50 5c 41   ┆   PPRTXT EQU *    T   P LDR* A3,A2 GET LENGTH   h   P ST A2,PRXECB+2        P A┆
0x1026…1076              44 4b 5c 41 33 2c 32 20 00 0b 00 9e 00 14 00 50 5c 53 54 5c 41 33 2c 50 52 58 45 43 42 2b 34 20 00 0b 00 b0 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 2f 38 36 20 00 0b 00 c8 00 14 00 50 5c 4c 44 4b 4c 5c 41 38 2c 50 52 58 45 43 42 20 00 0b 00 dc   ┆DK A3,2        P ST A3,PRXECB+4        P LDK A7,/86        P LDKL A8,PRXECB     ┆
0x1076…10c6              00 08 00 50 5c 4c 4b 4d 00 0b 00 f4 00 1a 00 50 5c 44 41 54 41 5c 31 5c 53 54 41 4e 44 41 52 44 20 57 52 49 54 45 00 0b 01 00 00 10 00 50 5c 43 46 5c 41 31 34 2c 43 52 4c 46 00 0b 01 1e 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 0b 01 32 00 06   ┆   P LKM       P DATA 1 STANDARD WRITE       P CF A14,CRLF       P RTN A14   2  ┆
0x10c6…1116              00 50 2a 20 00 0b 01 42 00 06 00 50 2a 20 00 0b 01 4c 00 1e 00 50 50 52 58 45 43 42 5c 44 41 54 41 5c 2f 33 31 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 0b 01 56 00 06 00 50 2a 20 00 0b 01 78 00 06 00 50 2a 20 00 0b 01 82 00 0a 00 50 5c 45 4a 45   ┆ P*    B   P*    L   PPRXECB DATA /31,0,0,0,0,0    V   P*    x   P*        P EJE┆
0x1116…1166 (12, 0, 400) 43 54 00 0b 01 8c 00 10 00 50 4f 50 43 4f 4e 54 5c 45 51 55 5c 2a 00 0c 00 0a 00 24 00 50 5c 4c 44 5c 41 38 2c 50 52 4f 43 43 42 5c 47 45 54 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 0c 00 1e 00 1c 00 50 5c 52 46 28 5a 29 5c 4f 50 43   ┆CT       POPCONT EQU *     $ P LD A8,PROCCB GET BUFFER ADDRESS       P RF(Z) OPC┆
0x1166…11b6              4f 31 30 5c 4e 4f 20 42 55 46 46 45 52 20 00 0c 00 46 00 08 00 50 5c 4c 4b 4d 00 0c 00 66 00 24 00 50 5c 44 41 54 41 5c 2d 38 2c 50 52 50 4f 4f 4c 5c 52 45 4c 45 41 53 45 20 50 52 49 4e 54 45 52 20 00 0c 00 72 00 0e 00 50 5c 43 4d 5c 50 52   ┆O10 NO BUFFER    F   P LKM   f $ P DATA -8,PRPOOL RELEASE PRINTER    r   P CM PR┆
0x11b6…1206              4f 43 43 42 00 0c 00 9a 00 10 00 50 4f 50 43 4f 31 30 5c 45 51 55 5c 2a 00 0c 00 ac 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 34 2c 53 54 42 20 00 0c 00 c0 00 10 00 50 5c 43 46 5c 41 31 34 2c 43 52 4c 46 00 0c 00 d6 00 1e 00 50 5c 43 46 5c 41 31   ┆OCCB       POPCO10 EQU *       P LDKL A14,STB        P CF A14,CRLF       P CF A1┆
0x1206…1256              34 2c 52 45 41 44 5c 52 45 41 44 20 43 4f 4d 4d 41 4e 44 20 00 0c 00 ea 00 16 00 50 5c 44 41 54 41 5c 4b 54 31 30 30 2c 46 54 31 30 30 20 00 0c 01 0c 00 12 00 50 5c 43 46 5c 41 31 34 2c 48 45 58 43 48 20 00 0c 01 26 00 26 00 50 5c 41 42 4c   ┆4,READ READ COMMAND        P DATA KT100,FT100        P CF A14,HEXCH    & & P ABL┆
0x1256…12a6              28 5a 29 5c 51 54 5c 51 55 45 55 45 20 41 52 45 41 20 46 4f 52 20 54 52 41 4e 53 4d 2e 20 00 0c 01 3c 00 0a 00 50 5c 45 4a 45 43 54 00 0c 01 66 00 06 00 50 2a 20 00 0c 01 74 00 06 00 50 2a 20 00 0c 01 7e 00 10 00 50 2a 20 20 20 54 59 50 45   ┆(Z) QT QUEUE AREA FOR TRANSM.    <   P EJECT   f   P*    t   P*    ~   P*   TYPE┆

Reduced view