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

⟦6f0389acf⟧

    Length: 4560 (0x11d0)
    Notes: pts_type(SC)
    Names: »DELOCK.SC«

Derivation

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

PTS(SC)

	IDENT	DELOCK	REL 10.0 80-04-11 
			79-02-28/ANLI
* 
************************************************************************
* 
*      SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800
* 
*      ROUTINE FOR SETTING THE POSITION-INDICATORS FOR
*      THE KEY-LOCKS AND/OR TEST THE AUTHORITY OF THE 
*      OPERATOR ACCORDING TO A GIVEN MASK.
* 
*      THE MODULE IS ENTERED WITH THE STATEMENT:
* 
*      * PERF    DELOCK,OPTION,KEYIND * 
* 
*      WHERE: 
*        - KEYIND = ITEM HOLDING THE END-KEY-INDEX
*        - OPTION = BIN-ITEM TELLING WANTED FACILITY
*          - 0 = SET INDICATOR ONLY 
*          - 1 = SET INDICATOR AND TEST 
*          - 2 = TEST ONLY
* 
*      IF THE AUTHORITY-TEST IS UNSUCCESSFUL
*      CONDITION IS SET TO ERROR (=2) AND 
*      ERROR-CODE (DEBINW4) IS SET TO 4.
* 
*      IF THE SET-OPTION IS PERFORMED, RETURN-CODE
*      IS GIVEN IN DEBINW3: 
*        - 0 = OK 
*        - 1 = POWER OFF
*        - 2 = ERROR
*        - 3 = KEY-LOCK TURNED
* 
************************************************************************
* 
	DDUM	DEDDIV
	PDIV 
* 
* 
*****  ENTRY  ***** 
* 
	ENTRY	DELOCK 
* 
* 
*****  EXTERNALS  ***** 
* 
	EXT	UPDBOL 
	EXT	UPDBIN 
	EXT	SETB 
	EXT	CLEARB 
	EXT	MSKOUT 
	EJECT
* 
************************************************************************
* 
*      ENTRY-POINT / PROGRAM-START
* 
************************************************************************
* 
DELOCK	PROC	OPTION,KEYIND 
* 
	MOVE	DEBIN4,DEBINW4	SAVE ERROR-CODE
	MOVE	DEBIN3,W2	SET RETURN-CODE 
	BERR	A000	INPUT-ERROR ?
	MOVE	DEBIN3,W1	SET RETURN-CODE 
	CBE	KEYIND,W0,A000	POWER-OFF ? 
	MOVE	DEBIN3,W0	SET RETURN-CODE 
A000
	CALL	UPDBIN,DEBIN1	MOVE POSITION-IND. TO BIN 
	CBG	OPTION,W1,A200	NO SET ?
	CBL	KEYIND,W0,A100	KEY-LOCK TURNED ? 
	CBE	OPTION,W0,A900	NO TEST ? 
	B	A210 
	EJECT
* 
* 
*****  SET INDICATOR  ***** 
* 
A100
	MOVE	DEBIN2,KEYIND	MOVE KEYIND TO WORKITEM 
	ADD	DEBIN2,W16	CALCULATE BIT-INDEX 
	CBL	DEBIN2,W12,A120	KEY TURNED ON ?
A110
	CALL	CLEARB,DEBIN1,DEBIN2	INDICATE KEY OFF 
	B	A190 
A120
	ADD	DEBIN2,W4	ADJUST BIT-INDEX 
	CBL	DEBIN2,W12,A900	NO KEY-INDEX ? 
	CALL	SETB,DEBIN1,DEBIN2	INDICATE KEY ON
* 
A190
	CALL	UPDBOL,DEBIN1	UPDATE POSITION-IND.
	EJECT
* 
* 
*****  TEST AUTHORITY  *****
* 
A200
	MOVE	DEBIN3,W3	SET RETURN-CODE 
	CBL	OPTION,W1,A900	NO TEST ? 
* 
A210
	CALL	MSKOUT,DEBIN1,KEYMSK
	CBE	DEBIN1,KEYMSK,A900	WANTED KEY ON ? 
* 
* 
*****  TEST UNSUCCESSFUL  ***** 
* 
A800
	MOVE	DEBIN3,W2	SET RETURN-CODE 
	MOVE	DEBIN4,W4	SET ERROR-CODE = 4
	EJECT
* 
* 
*****  RETURN TO CALLING MODULE  *****
* 
A900
	CBG	OPTION,W1,A910	NO SET PERFORMED ?
	MOVE	DEBINW3,DEBIN3	RESTORE RETURN- AND... 
	MOVE DEBINW4,DEBIN4	...ERROR-CODE
A910
	CBE	DEBIN3,W2,A920	ERROR ? 
	CMP	W0,W0	SET CONDITION = 0
	B	A990 
A920
	CMP	W0,W1	SET CONDITION = 2
* 
A990
	RET
* 
	PEND 
* 
	END

HexDump

0x0000…0028 (0, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» IDENT DELOCK REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040              Head {h00=0x0014, h01=0x0050, text=»   79-02-28/ANLI«, t00=0x0000, t01=0x002c}
0x0040…004a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0044}
0x004a…009a              Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0000, t01=0x004e}
0x009a…00a4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x009e}
0x00a4…00e2              Head {h00=0x003a, h01=0x0036, text=»*      SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800«, t00=0x0000, t01=0x00a8}
0x00e2…00ec              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00e6}
0x00ec…012a              Head {h00=0x003a, h01=0x0036, text=»*      ROUTINE FOR SETTING THE POSITION-INDICATORS FOR«, t00=0x0000, t01=0x00f0}
0x012a…0168              Head {h00=0x003a, h01=0x0035, text=»*      THE KEY-LOCKS AND/OR TEST THE AUTHORITY OF THE «, t00=0x0000, t01=0x012e}
0x0168…019a              Head {h00=0x002e, h01=0x002a, text=»*      OPERATOR ACCORDING TO A GIVEN MASK.«, t00=0x0000, t01=0x016c}
0x019a…01a4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x000e}
0x01a4…01dc              Head {h00=0x0034, h01=0x0030, text=»*      THE MODULE IS ENTERED WITH THE STATEMENT:«, t00=0x0001, t01=0x0018}
0x01dc…01e6              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0050}
0x01e6…0216              Head {h00=0x002c, h01=0x0027, text=»*      * PERF    DELOCK,OPTION,KEYIND * «, t00=0x0001, t01=0x005a}
0x0216…0220              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x008a}
0x0220…0236              Head {h00=0x0012, h01=0x000d, text=»*      WHERE: «, t00=0x0001, t01=0x0094}
0x0236…0270              Head {h00=0x0036, h01=0x0032, text=»*        - KEYIND = ITEM HOLDING THE END-KEY-INDEX«, t00=0x0001, t01=0x00aa}
0x0270…02ac              Head {h00=0x0038, h01=0x0034, text=»*        - OPTION = BIN-ITEM TELLING WANTED FACILITY«, t00=0x0001, t01=0x00e4}
0x02ac…02d8              Head {h00=0x0028, h01=0x0023, text=»*          - 0 = SET INDICATOR ONLY «, t00=0x0001, t01=0x0120}
0x02d8…0308              Head {h00=0x002c, h01=0x0028, text=»*          - 1 = SET INDICATOR AND TEST «, t00=0x0001, t01=0x014c}
0x0308…032a              Head {h00=0x001e, h01=0x001a, text=»*          - 2 = TEST ONLY«, t00=0x0001, t01=0x017c}
0x032a…0334              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x000e}
0x0334…0368              Head {h00=0x0030, h01=0x002c, text=»*      IF THE AUTHORITY-TEST IS UNSUCCESSFUL«, t00=0x0002, t01=0x0018}
0x0368…039a              Head {h00=0x002e, h01=0x0029, text=»*      CONDITION IS SET TO ERROR (=2) AND «, t00=0x0002, t01=0x004c}
0x039a…03ca              Head {h00=0x002c, h01=0x0050, text=»*      ERROR-CODE (DEBINW4) IS SET TO 4.«, t00=0x0002, t01=0x007e}
0x03ca…03d4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00ae}
0x03d4…040e              Head {h00=0x0036, h01=0x0050, text=»*      IF THE SET-OPTION IS PERFORMED, RETURN-CODE«, t00=0x0002, t01=0x00b8}
0x040e…0432              Head {h00=0x0020, h01=0x0050, text=»*      IS GIVEN IN DEBINW3: «, t00=0x0002, t01=0x00f2}
0x0432…044c              Head {h00=0x0016, h01=0x0050, text=»*        - 0 = OK «, t00=0x0002, t01=0x0116}
0x044c…046c              Head {h00=0x001c, h01=0x0050, text=»*        - 1 = POWER OFF«, t00=0x0002, t01=0x0130}
0x046c…0488              Head {h00=0x0018, h01=0x0050, text=»*        - 2 = ERROR«, t00=0x0002, t01=0x0150}
0x0488…04ae              Head {h00=0x0022, h01=0x0050, text=»*        - 3 = KEY-LOCK TURNED«, t00=0x0002, t01=0x016c}
0x04ae…04b8 (3, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04b8…0508              Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0003, t01=0x000e}
0x0508…0512              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x005e}
0x0512…0526              Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0003, t01=0x0068}
0x0526…0534              Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0003, t01=0x007c}
0x0534…053e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x008a}
0x053e…0548              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0094}
0x0548…0564              Head {h00=0x0018, h01=0x0013, text=»*****  ENTRY  ***** «, t00=0x0003, t01=0x009e}
0x0564…056e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00ba}
0x056e…0584              Head {h00=0x0012, h01=0x000d, text=» ENTRY DELOCK «, t00=0x0003, t01=0x00c4}
0x0584…058e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00da}
0x058e…0598              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00e4}
0x0598…05b8              Head {h00=0x001c, h01=0x0017, text=»*****  EXTERNALS  ***** «, t00=0x0003, t01=0x00ee}
0x05b8…05c2              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x010e}
0x05c2…05d6              Head {h00=0x0010, h01=0x000b, text=» EXT UPDBOL «, t00=0x0003, t01=0x0118}
0x05d6…05ea              Head {h00=0x0010, h01=0x000b, text=» EXT UPDBIN «, t00=0x0003, t01=0x012c}
0x05ea…05fc              Head {h00=0x000e, h01=0x0009, text=» EXT SETB «, t00=0x0003, t01=0x0140}
0x05fc…0610              Head {h00=0x0010, h01=0x000b, text=» EXT CLEARB «, t00=0x0003, t01=0x0152}
0x0610…0624              Head {h00=0x0010, h01=0x000b, text=» EXT MSKOUT «, t00=0x0003, t01=0x0166}
0x0624…0632              Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0003, t01=0x017a}
0x0632…063c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0188}
0x063c…068c (4, 0, 400)  Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0004, t01=0x0004}
0x068c…0696              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0054}
0x0696…06c0              Head {h00=0x0026, h01=0x0022, text=»*      ENTRY-POINT / PROGRAM-START«, t00=0x0004, t01=0x005e}
0x06c0…06ca              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0088}
0x06ca…071a              Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0004, t01=0x0092}
0x071a…0724              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x00e2}
0x0724…0746              Head {h00=0x001e, h01=0x0019, text=»DELOCK PROC OPTION,KEYIND «, t00=0x0004, t01=0x00ec}
0x0746…0750              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010e}
0x0750…077c              Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN4,DEBINW4 SAVE ERROR-CODE«, t00=0x0004, t01=0x0118}
0x077c…07a4              Head {h00=0x0024, h01=0x0050, text=» MOVE DEBIN3,W2 SET RETURN-CODE «, t00=0x0004, t01=0x0144}
0x07a4…07c4              Head {h00=0x001c, h01=0x0050, text=» BERR A000 INPUT-ERROR ?«, t00=0x0004, t01=0x016c}
0x07c4…07ec              Head {h00=0x0024, h01=0x0050, text=» MOVE DEBIN3,W1 SET RETURN-CODE «, t00=0x0004, t01=0x018c}
0x07ec…0814              Head {h00=0x0024, h01=0x0050, text=» CBE KEYIND,W0,A000 POWER-OFF ? «, t00=0x0005, t01=0x0024}
0x0814…083c              Head {h00=0x0024, h01=0x0050, text=» MOVE DEBIN3,W0 SET RETURN-CODE «, t00=0x0005, t01=0x004c}
0x083c…0848              Head {h00=0x0008, h01=0x0004, text=»A000«, t00=0x0005, t01=0x0074}
0x0848…087e              Head {h00=0x0032, h01=0x002d, text=» CALL UPDBIN,DEBIN1 MOVE POSITION-IND. TO BIN «, t00=0x0005, t01=0x0080}
0x087e…08a2              Head {h00=0x0020, h01=0x001c, text=» CBG OPTION,W1,A200 NO SET ?«, t00=0x0005, t01=0x00b6}
0x08a2…08d0              Head {h00=0x002a, h01=0x0050, text=» CBL KEYIND,W0,A100 KEY-LOCK TURNED ? «, t00=0x0005, t01=0x00da}
0x08d0…08f6              Head {h00=0x0022, h01=0x0050, text=» CBE OPTION,W0,A900 NO TEST ? «, t00=0x0005, t01=0x0108}
0x08f6…0906              Head {h00=0x000c, h01=0x0050, text=» B A210 «, t00=0x0005, t01=0x012e}
0x0906…0914              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x013e}
0x0914…091e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x014c}
0x091e…0928              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0156}
0x0928…094c              Head {h00=0x0020, h01=0x001b, text=»*****  SET INDICATOR  ***** «, t00=0x0005, t01=0x0160}
0x094c…0956              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0184}
0x0956…0962              Head {h00=0x0008, h01=0x0004, text=»A100«, t00=0x0005, t01=0x018e}
0x0962…0996              Head {h00=0x0030, h01=0x002b, text=» MOVE DEBIN2,KEYIND MOVE KEYIND TO WORKITEM «, t00=0x0006, t01=0x000a}
0x0996…09c2              Head {h00=0x0028, h01=0x0023, text=» ADD DEBIN2,W16 CALCULATE BIT-INDEX «, t00=0x0006, t01=0x003e}
0x09c2…09ee              Head {h00=0x0028, h01=0x0024, text=» CBL DEBIN2,W12,A120 KEY TURNED ON ?«, t00=0x0006, t01=0x006a}
0x09ee…09fa              Head {h00=0x0008, h01=0x0004, text=»A110«, t00=0x0006, t01=0x0096}
0x09fa…0a2e              Head {h00=0x0030, h01=0x002b, text=» CALL CLEARB,DEBIN1,DEBIN2 INDICATE KEY OFF «, t00=0x0006, t01=0x00a2}
0x0a2e…0a3e              Head {h00=0x000c, h01=0x0007, text=» B A190 «, t00=0x0006, t01=0x00d6}
0x0a3e…0a4a              Head {h00=0x0008, h01=0x0004, text=»A120«, t00=0x0006, t01=0x00e6}
0x0a4a…0a72              Head {h00=0x0024, h01=0x001f, text=» ADD DEBIN2,W4 ADJUST BIT-INDEX «, t00=0x0006, t01=0x00f2}
0x0a72…0a9e              Head {h00=0x0028, h01=0x0023, text=» CBL DEBIN2,W12,A900 NO KEY-INDEX ? «, t00=0x0006, t01=0x011a}
0x0a9e…0ace              Head {h00=0x002c, h01=0x0028, text=» CALL SETB,DEBIN1,DEBIN2 INDICATE KEY ON«, t00=0x0006, t01=0x0146}
0x0ace…0ad8              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0176}
0x0ad8…0ae4              Head {h00=0x0008, h01=0x0004, text=»A190«, t00=0x0006, t01=0x0180}
0x0ae4…0b14              Head {h00=0x002c, h01=0x0028, text=» CALL UPDBOL,DEBIN1 UPDATE POSITION-IND.«, t00=0x0006, t01=0x018c}
0x0b14…0b22              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x002c}
0x0b22…0b2c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x003a}
0x0b2c…0b36              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0044}
0x0b36…0b5a              Head {h00=0x0020, h01=0x001c, text=»*****  TEST AUTHORITY  *****«, t00=0x0007, t01=0x004e}
0x0b5a…0b64              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0072}
0x0b64…0b70              Head {h00=0x0008, h01=0x0004, text=»A200«, t00=0x0007, t01=0x007c}
0x0b70…0b98              Head {h00=0x0024, h01=0x0050, text=» MOVE DEBIN3,W3 SET RETURN-CODE «, t00=0x0007, t01=0x0088}
0x0b98…0bbe              Head {h00=0x0022, h01=0x001d, text=» CBL OPTION,W1,A900 NO TEST ? «, t00=0x0007, t01=0x00b0}
0x0bbe…0bc8              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00d6}
0x0bc8…0bd4              Head {h00=0x0008, h01=0x0050, text=»A210«, t00=0x0007, t01=0x00e0}
0x0bd4…0bf6              Head {h00=0x001e, h01=0x001a, text=» CALL MSKOUT,DEBIN1,KEYMSK«, t00=0x0007, t01=0x00ec}
0x0bf6…0c26              Head {h00=0x002c, h01=0x0027, text=» CBE DEBIN1,KEYMSK,A900 WANTED KEY ON ? «, t00=0x0007, t01=0x010e}
0x0c26…0c30              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x013e}
0x0c30…0c3a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0148}
0x0c3a…0c62              Head {h00=0x0024, h01=0x001f, text=»*****  TEST UNSUCCESSFUL  ***** «, t00=0x0007, t01=0x0152}
0x0c62…0c6c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x017a}
0x0c6c…0c78              Head {h00=0x0008, h01=0x0004, text=»A800«, t00=0x0007, t01=0x0184}
0x0c78…0ca0              Head {h00=0x0024, h01=0x0050, text=» MOVE DEBIN3,W2 SET RETURN-CODE «, t00=0x0007, t01=0x0190}
0x0ca0…0cca              Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN4,W4 SET ERROR-CODE = 4«, t00=0x0008, t01=0x0028}
0x0cca…0cd8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0052}
0x0cd8…0ce2              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0060}
0x0ce2…0cec              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x006a}
0x0cec…0d1a              Head {h00=0x002a, h01=0x0026, text=»*****  RETURN TO CALLING MODULE  *****«, t00=0x0008, t01=0x0074}
0x0d1a…0d24              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x00a2}
0x0d24…0d30              Head {h00=0x0008, h01=0x0004, text=»A900«, t00=0x0008, t01=0x00ac}
0x0d30…0d5e              Head {h00=0x002a, h01=0x0050, text=» CBG OPTION,W1,A910 NO SET PERFORMED ?«, t00=0x0008, t01=0x00b8}
0x0d5e…0d92              Head {h00=0x0030, h01=0x0050, text=» MOVE DEBINW3,DEBIN3 RESTORE RETURN- AND... «, t00=0x0008, t01=0x00e6}
0x0d92…0dbc              Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,DEBIN4 ...ERROR-CODE«, t00=0x0008, t01=0x011a}
0x0dbc…0dc8              Head {h00=0x0008, h01=0x0050, text=»A910«, t00=0x0008, t01=0x0144}
0x0dc8…0dec              Head {h00=0x0020, h01=0x0050, text=» CBE DEBIN3,W2,A920 ERROR ? «, t00=0x0008, t01=0x0150}
0x0dec…0e10              Head {h00=0x0020, h01=0x0050, text=» CMP W0,W0 SET CONDITION = 0«, t00=0x0008, t01=0x0174}
0x0e10…0e20              Head {h00=0x000c, h01=0x0050, text=» B A990 «, t00=0x0009, t01=0x0008}
0x0e20…0e2c              Head {h00=0x0008, h01=0x0050, text=»A920«, t00=0x0009, t01=0x0018}
0x0e2c…0e50              Head {h00=0x0020, h01=0x0050, text=» CMP W0,W1 SET CONDITION = 2«, t00=0x0009, t01=0x0024}
0x0e50…0e5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0048}
0x0e5a…0e66              Head {h00=0x0008, h01=0x0050, text=»A990«, t00=0x0009, t01=0x0052}
0x0e66…0e72              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0009, t01=0x005e}
0x0e72…0e7c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x006a}
0x0e7c…0e8a              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0009, t01=0x0074}
0x0e8a…0e94              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0082}
0x0e94…0ea0              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0009, t01=0x008c}
0x0ea0…0ea4              Head {h00=0x4004, h01=0x0000}
0x0ea4…0ea8              00 09 00 98                                                                                                                                                                                                                                       ┆    ┆
0x0ea8…0eb0 (10, 1, 8)   20 04 00 00 00 0a 00 04                                                                                                                                                                                                                           ┆        ┆
0x0eb0…0f00 (11, 0, 400) 00 4a 00 46 00 22 00 44 00 00 40 20 32 00 0b 52 52 52 52 52 52 52 52 52 52 52 20 02 20 02 41 20 00 cf 20 00 ce 21 00 9a 5b 00 8a 13 ce 21 8a 4c 26 02 ce 21 30 52 ce 11 21 54 0b 4a 20 15 02 01 cf 00 cf 20 5f 20 80 52 3a 52 00 01 00 04 00 4a   ┆ J F " D  @ 2  RRRRRRRRRRR    A      !  [    ! L&  !0R  !T J        _  R:R     J┆
0x0f00…0f50              00 46 00 22 00 44 00 40 49 20 05 00 ce 21 5f 29 02 01 cf 5f 37 6a 8a 20 21 ce 21 00 d5 20 68 9a d5 39 8a d5 21 58 38 48 20 09 02 cf 21 28 02 cf 02 40 20 00 d5 20 68 9a d5 39 5b 20 21 6a 9a d5 21 ce 21 04 01 21 50 0c 00 01 00 52 00 0c 00 08   ┆ F " D @I    !_)   _7j  ! !   h  9  !X8H    !(   @    h  9[ !j  ! !  !P    R    ┆
0x0f50…0fa0              00 03 05 06 00 84 00 02 00 01 00 a0 00 0c 00 08 00 03 06 06 00 90 02 f7 00 01 00 b0 00 0c 00 08 00 03 02 06 00 94 02 b0 00 01 00 c0 00 4a 00 46 00 22 00 44 00 80 02 ce 21 30 52 ce 11 21 5c 4e 5f 6d 00 01 02 80 52 01 00 3f 52 00 d5 20 00 d6   ┆                                             J F " D    !0R  ! N_m    R  ?R     ┆
0x0fa0…0ff0              20 6a d5 21 21 13 01 27 28 d5 21 31 6a 13 01 21 26 03 21 6a d5 21 21 03 20 28 00 2a 07 6a 13 01 2b 26 03 27 6a d6 00 01 00 d0 00 0e 00 09 00 04 14 07 00 dc 00 01 46 30 00 01 01 1e 00 0c 00 08 00 03 02 06 00 df 02 b0 00 01 01 30 00 4a 00 46   ┆ j !!  '( !1j  !& !j !!  ( * j  +& 'j                 F0                   0 J F┆
0x0ff0…1040              00 22 00 44 00 c0 21 21 13 01 20 20 d6 3b 04 28 d6 20 0a 02 d5 d6 6a 13 01 20 21 d5 21 00 8a 03 21 8a 4c 02 3f 52 6a 17 20 22 11 01 24 00 ce 20 6a ce 21 21 13 01 31 00 cf 20 6a cf 21 21 13 01 32 00 d6 01 20 cf 00 01 01 40 00 0c 00 08 00 03   ┆ " D  !!     ; (      j   ! !   ! L ?Rj  "  $   j !!  1   j !!  2        @      ┆
0x1040…1090 (12, 0, 400) 02 06 01 26 02 b0 00 01 01 8e 00 0c 00 08 00 03 05 06 01 31 00 04 00 02 00 0e 00 4a 00 46 00 22 00 44 01 00 20 15 04 ce cf 00 d5 d6 6a d6 21 21 13 d5 28 49 20 07 04 cf 21 59 12 41 20 02 cf 21 00 91 cf d6 04 ce 21 5c 20 3f 52 00 02 20 00 d5   ┆   &               1       J F " D          j !!  (I    !Y A   !      !  ?R     ┆
0x1090…10e0              21 00 8a 03 30 52 8a 20 00 ce 21 68 13 d5 ce 26 03 21 26 50 00 02 00 1e 00 0c 00 08 00 03 05 06 01 45 00 02 00 02 00 6c 00 0c 00 08 00 03 02 06 01 4a 02 9b 00 02 00 7c 00 4a 00 46 00 22 00 44 01 40 0c 02 d5 21 30 52 d5 11 21 3c 52 5f 19 28   ┆!   0R    !h   & !&P             E     l         J     | J F " D @   !0R  !<R_ (┆
0x10e0…1130              00 29 0d 00 ce 2b 68 13 d5 ce 26 03 27 26 5a 1d 00 ce 20 68 13 d5 ce 21 03 20 21 52 05 00 02 21 57 10 00 ce 20 68 13 d5 ce 21 8a 20 21 5a 3c 00 02 22 00 02 00 8c 00 0e 00 09 00 04 14 07 01 82 00 01 d4 21 00 02 00 da 00 0c 00 08 00 03 02 06   ┆ )   +h   & '&Z    h   !  !R   !W    h   !  !Z<  "                 !            ┆
0x1130…1180              01 af 02 b0 00 02 00 ec 00 4a 00 46 00 22 00 44 01 80 29 8a 4c 1f 20 55 20 1b 6a ce 21 21 13 d5 31 6a cf 21 21 13 d5 32 24 55 ce 04 2a 55 cf 05 00 02 20 5f 62 00 01 d5 20 02 22 04 20 00 25 02 3f 52 00 ce d5 6a d6 21 21 13 ce 27 49 20 1a 41   ┆         J F " D  ) L  U  j !!  1j !!  2$U  *U     _b     "   % ?R   j !!  'I  A┆
0x1180…11d0              20 28 00 02 00 fc 00 4a 00 46 00 22 00 44 01 c0 d6 20 14 6a 8a 20 21 ce 21 00 d5 20 68 10 d5 30 8a 20 21 66 10 d5 21 02 d6 21 6a 13 ce 27 21 d6 21 6a d5 21 21 13 ce 28 20 d5 20 c4 5f 3e 00 d6 20 00 cf 20 00 ce 01 20 01 20 7c 28 00 2b 05 00   ┆ (     J F " D     j  ! !   h  0  !f  !  !j  '! !j !!  (    _>            |( +  ┆

Reduced view