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

⟦987923564⟧

    Length: 10968 (0x2ad8)
    Notes: pts_type(SC)
    Names: »LRPINT.SC«

Derivation

└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
    └─⟦this⟧ »TOSSWORK/LRPINT.SC« 

PTS(SC)

	IDENT LRPINT 	REL 8.2 78-09-15  870105040820 

* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   LRPINT = INTERRUPT HANDLERS FOR LKM, RTC
*            AND POWER FAILURE
* 
* 
* 
* 
* 
**************************************************
* 
* 
* 
*   THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS 
*   FOR TOSS. THESE ARE:
* 
*   -IHLKM: LKM-INTERRUPT 
* 
*   -IHRTC: RTC-INTERRUPT 
* 
*   -IHPFAR: POWER FAILURE INTERRUPT
* 
*   IN THIS MODULE ENTRIES FOR REQUEST ERRORS ALSO ARE
*   PROVIDED. THESE ARE:
* 
*   -LKMRQE: SET A7=-1 QUEUE JOB AND DISPATCH 
* 
*   -LKMQDI: QUEUE JOB AND DISPATCH 
* 
	EJECT
*********** 
* ENTRIES * 
*********** 
* 
	ENTRY	IHLKM	LKM INTERRUPT HANDLER
	ENTRY	LKMRQE	LKM REQUEST ERROR 
	ENTRY	LKMQDI	QUEUE AND DISPATCH
* 
	ENTRY	IHRTC	RTC INTERRUPT HANDLER
	ENTRY	TIMQUE	POINTER TO FIRST BLOCK IN TIMER QUEUE 
	ENTRY	MONCLO	MONITOR CLOCK 
	ENTRY	IHPFAR	POWER FAILURE INTERRUPT HANDLER 
	ENTRY	INIFLG	INITIALIZATION FLAG 
* 
************* 
* EXTERNALS * 
************* 
* 
	EXTRN	TDISP	DISPATCHER 
	EXTRN	LKMDIS	ENTRY TO BE DISPATCHED AFTR LKM-REQUEST 
	EXTRN	PRUN	TTAB OF RUNING PROGRAM
	EXTRN	QTJOB	QUEUE TERMINAL JOB 
	EXTRN	SWL48	SWITCH TO LEVEL 48 
	EXTRN	TTB:SA	FIRST WORD OF SAVE AREA IN TTAB 
	EXTRN	TTB:TD	START OF TERMINAL DEVICES 
	EXTRN	LKMAL	LKM REQUEST TABLE
	EXTRN	FREBLK	SET BLOCK FREE
	EXTRN	QMJOB	QUEUE MONITOR JOB
	EXTRN	RETU14	RESTORE A1-A14 FROM INTERRUPT STACK 
	EXTRN	CVTCLK	REAL TIME CLOCK 
	EXTRN	PFINIT	RESTART OF DEVICES
	EXTRN	SAVE8	SAVE 8 REGISTERS 
	EXTRN	PFTAB	POWER FAIL TABLE 
	EXTRN	HALT	HALT-MODULE 
	EXTRN	SACT	ACTIVE SEGMENT
	EXTRN	LRUNEW	INSERT SEGMENT IN LRUQUEUE
	EXTRN	INTSAV	INTERRUPT SAVE MODULE 
	EJECT
* 
* 
*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE
*    TO EXCLUDE MONITOR CLOCK FUNCTIONS.
*    THIS IS DONE BY SETTING X:A = 0
* 
X:A	EQU	1 
KLOCKA	EQU	X:A
	EJECT
* 
* 
*   I H L K M 
* 
* 
*   THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING
*   STEPS ARE CARRIED OUT:
* 
*   - IF STACK OVERFLOW SYSTEM HALTS. 
*   - ELSE REGISTERS A1-A14 ARE SAVED IN TTAB FOR RUNNING 
*     PROGRAM.
*   - DISPATCH ADDRESS 'LKMDIS' AND 8 REGISTERS ARE SET ON STACK
*   - TTB:SA IS UPDATED IN TTAB 
*   - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO 
*     APPROPIATE LKM-PROCESSOR. 
* 
*   EXIT CONDITIONS ARE:
* 
*   A4 = LABLE ADDRESS OF LKM-REQUEST 
*        (A4=0 INDICATES NO LABLE IN LKM-REQUEST) 
*   A5 = TTAB-ADDRESS OF CALLING PROGRAM
*   A2 AND A3 ARE LOST. 
*   ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING 
*   PROGRAM.
* 
* 
* 
IHLKM	EQU	* 
	ST	P,INTSAV
			SAVE LAST INTERRUPT
	RIT	/1D	RESET INTERNAL INTERRUPT FLAG
LKM010	INH
	ST	A15,LKM020	SAVE A15 
	LD	A15,PRUN	LOAD TTAB-ADDRESS
	ADKL	A15,TTB:SA+28	SET A15 TO LAST IN SAVE AREA
	STR	A14,A15	SAVE USERS REGISTERS, -A14 
	STR	A13,A15	-A13 
	STR	A12,A15	-A12 
	STR	A11,A15	-A11 
	STR	A10,A15	-A10 
	STR	A9,A15	-A9 
	STR	A8,A15	-A8 
	STR	A7,A15	-A7 
	STR	A6,A15	-A6 
	STR	A5,A15	-A5 
	STR	A4,A15	-A4 
	STR	A3,A15	-A3 
	STR	A2,A15	-A2 
	STR	A1,A15	-A1 
	LDKL	A15,0	RESTORE A15 STACK POINTER 
LKM020	EQU	*-2
* 
* 
*   GET DISPATCH ADDRESS AND SWITCH LEVEL 
* 
	LDR*	A2,A15
	LDR*	A2,A15	LOAD P.C. AND ADJUST STACK POINTER 
	LD	A3,-2,A2
	CWK	A3,/2804 
	RF(E)	LKM025	LKM 
	CWK	A3,/6300 
	RF(E)	LKM025	TRAP
	LDK	A1,7	HALT PARAMETER
	CF	A15,HALT	HALT IF STACK OVERFLOW 
LKM025	LDKL	A3,LKMDIS 
	STR	A3,A15	SET DISPATCH ADDRESS ON STACK 
	LDKL	A3,/C000
	STR	A3,A15	SET LEVEL 48
	SUKL	A15,16	RESERVE SPACE FOR 8 REGISTERS
	LD	A3,SACT	ACTIVE SEGMENT
	RF(E)	LKM027 
	CF	A15,LRUNEW
	CM	SACT
LKM027	EQU	*
	CF	A15,SWL48	SWITCH TO LEVEL 48
	LD	A5,PRUN	LOAD TTAB-ADDRESS OF CALLING PROGRAM
	LDK	A4,0	RESET LABEL INDICATOR 
	LDR*	A3,A2	LOAD DATA DIRECTIVE 
	RF(NN)	LKM030	NO LABLE 
* 
* 
*   LKM-REQUEST WITH LABLE
* 
	ADK	A2,2 
	LDR*	A4,A2	LOAD LABLE
	NGR	A3,A3	NEGATE DATA
* 
* 
*   UPDATE TTB:SA AND GO TO LKM-PROCESSOR 
* 
LKM030	EQU	*
	ADK	A2,2	SAVE NEXT ADDRESS TO
	ST	A2,TTB:SA,A5	EXECUTE IN TTAB
	ADR	A3,A3	GET INDEX IN LKMAL 
	RF(Z)	LKMQDI	PROGRAM SWITCH REQUEST
	CW	A3,LKMAL
	RF(NL)	LKMRQE	INVALID DATA DIRECTIVE 
	LD	A3,LKMAL,A3 
	RF(Z)	LKMRQE	ERROR IF NOT PRESENT
	INH		INHIBIT INTERRUPTS
	ABR	A3	BRANCH TO LKM-PROCESSOR 
	EJECT
* 
* 
*   L K M R Q E 
* 
*   SET A7=-1,QUEUE TERMINAL JOB AND DISPATCH 
* 
*   A5 = TTAB-ADDRESS 
* 
* 
LKMRQE	EQU	*
	LDKL	A2,-1 
	ST	A2,TTB:SA+14,A5	SET -1 IN SAVE AREA A7
* 
* 
*   L K M Q D I 
* 
*   QUEUE TERMINAL JOB AND DISPATCH 
* 
*   A5 = TTAB-ADDRESS 
* 
* 
LKMQDI	EQU	*
	CF	A15,QTJOB 
	ABL	TDISP	GO TO DISPATCHER 
	EJECT
* 
*   I H R T C 
* 
*   THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER 
*   THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS 
* 
IHRTC	EQU	* 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	RIT	/1B	RESET INTERRUPT FLAG 
	IM	COUNT 
	RF(P)	RTC010 
	RTN	A15
RTC010	CF	A15,SAVE8 
	IM	CVTCLK	INCREMENT CVT CLOCK
	LDKL	A4,-4	SET 100 MS SWITCH 
	ST	A4,COUNT
	LDKL	A2,CLOCK	QUEUE CLOCK-ROUTINE AS MJOB
	CF	A15,QMJOB 
* 
	IFT	KLOCKA=1 
* 
	IM	DINKAN
	RF(P)	RTC025	UPDATE MONITOR CLOCK EACH SECOND
* 
	XIF
* 
RTC020	ABL	TDISP
* 
	IFT	KLOCKA=1 
	EJECT
* 
* 
*    MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND 
* 
* 
MCLOCK	EQU	*
RTC025	LDKL	A4,-9	SET SECOND SWITCH 
	ST	A4,DINKAN 
	LDK	A4,4 
MCLO10	LDK	A3,60	NUMBER OF MINUTES AND SECONDS
MCLO20	IM	MONCLO+2,A4	INCREMENT TIME
	XR	A3,MONCLO+2,A4	CHANGE MINUTES OR HOURS ?
	RB(NE)	RTC020	GO TO DISPATCHER 
	CM	MONCLO+2,A4	RESTART TIME COUNTER
	SUK	A4,2	END ? 
	RF(N)	MCLO30	MIDNIGTH CARRY
	RB(P)	MCLO10	UPDATE MINUTES
	LDK	A3,24	UPDATE HOURS 
	RB	MCLO20
MCLO30	IM	MONCLO	UPDATE 24 HOUR CARRY 
	RB	RTC020	GOTO DISPATCHER
* 
* 
	XIF
* 
MONCLO	EQU	*
	IFT	KLOCKA=1 
	DATA	0	ACCUMULATED 24 HOUR CARRY 
* 
	DATA	0	HOUR
	DATA	0	MINUTE
	DATA	0	SECOND
* 
DINKAN	DATA	0	SECOND SWITCH 
* 
* 
	XIF
	EJECT

* 
*   CLOCK ROUTINE STARTED EACH 100 MS.
* 

CLOCK	INH 
	LDKL	A4,TIMQUE	LOAD FIRST TIMER ADDRESS
CLK10	LDR	A6,A4 
CLK20	LDR*	A4,A6	GET TIMER BLOCK
	RB(Z)	RTC020	END OF QUEUE

	IM	4,A4	INCREMENT TIMER
	RB(N)	CLK10	NOT TIME OUT, GET NEXT IN QUEUE
	RF(Z)	CLK30	TIME OUT 

	LDR*	A3,A4	RELEASE TIMER 
	STR	A3,A6
	CF	A15,FREBLK
	LDR	A4,A2
	CF	A15,FREBLK
	RB	CLK20 

CLK30	CF	A15,CLK40	CALL TIME OUT ROUTINE
	INH
	RB	CLK10 

CLK40	CF	A15,SAVE8
	LD	A2,2,A4	LOAD DISP BLOCK 
	LD	A1,4,A2	GET PARAMETER 
	ABI	2,A2	GO TO TIME OUT ROUTINE
* 
* 
* 
COUNT	DATA	0	100 MS SWITCH
* 
* 
*   T I M Q U E 
* 
*   POINTER TO FIRST BLOCK IN TIMER QUEUE 
* 
TIMQUE	EQU	*
	DATA	0 
	EJECT
* 
* 
*   I H P F A R 
* 
*   THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER 
* 
* 
* 1. POWER OFF
* 
*    REGISTERS A1-A14 ARE SAVED ON INTERRUPT STACK AND
*    STACK POINTER IS SAVED IN CORE 
*    THEN SYSTEM IS HALTED
* 
* 
* 2. POWER ON 
* 
*    STACK POINTER A15 IS RESTORED
*    COMMON DEVICES ARE RESTARTED BY MODULE PFINIT
*    REGISTERS A1 - A14 ARE RESTORED FROM INTERRUPT STACK 
*    AND RETURN IS GIVEN TO INTERRUPTED PROGRAM 
* 
* 
* 
* WORK AREAS
* 
* 
PFX	DATA	1	POWER ON OFF INDICATOR 
* 
* 
INIFLG	DATA	1	INITIALIZATION FLAG 
* 
	EJECT
* 
* 
* POWER FAIL/AUTO RESTART INTERRUPT 
* 
* 
IHPFAR	EQU	*	 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	RIT	/17	RESET INTERNAL INTERRUPT 
	C1S	PFX	INDICATE POWER ON OR OFF 
	RF(P)	PFA200	POWER ON
* 
* POWER OFF 
* 
	CF	A15,SAVE8	SAVE A1 - A8 ON STACK 
	STR	A9,A15	SAVE A9 - A14 ON STACK
	STR	A10,A15
	STR	A11,A15
	STR	A12,A15
	STR	A13,A15
	STR	A14,A15
	ST	A15,PFA210	SAVE A15 STACK POINTER 
PFA100	HLT		HALT SYSTEM 
* 
* POWER ON
* 
PFA200	EQU	*
	LDKL	A15,0	RESTORE A15 STACK POINTER 
PFA210	EQU	*-2
	CM	INIFLG	RESET INITIALIZATION FLAG
	CF	A15,PFINIT	RESTART COMMON DEVICES 
	ABL	RETU14	RESTORE A1-A14 FROM INTERRUPT STACK 
	END

HexDump

0x0000…0036 (0, 0, 398)  Head {h00=0x0032, h01=0x0050, text=» IDENT LRPINT  REL 8.2 78-09-15  870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0082              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x004c}
0x0082…008c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x008c…00b4              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0090}
0x00b4…00be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00f2              Head {h00=0x0030, h01=0x0050, text=»*   LRPINT = INTERRUPT HANDLERS FOR LKM, RTC«, t00=0x0000, t01=0x00c2}
0x00f2…0118              Head {h00=0x0022, h01=0x0050, text=»*            AND POWER FAILURE«, t00=0x0000, t01=0x00f6}
0x0118…0122              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…012c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x012c…0136              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0140              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013a}
0x0140…014a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…0184              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x014e}
0x0184…018e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0188}
0x018e…0198 (1, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a2…01e0              Head {h00=0x003a, h01=0x0050, text=»*   THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS «, t00=0x0001, t01=0x0018}
0x01e0…0200              Head {h00=0x001c, h01=0x0050, text=»*   FOR TOSS. THESE ARE:«, t00=0x0001, t01=0x0056}
0x0200…020a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0076}
0x020a…022c              Head {h00=0x001e, h01=0x0050, text=»*   -IHLKM: LKM-INTERRUPT «, t00=0x0001, t01=0x0080}
0x022c…0236              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a2}
0x0236…0258              Head {h00=0x001e, h01=0x0050, text=»*   -IHRTC: RTC-INTERRUPT «, t00=0x0001, t01=0x00ac}
0x0258…0262              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0262…028e              Head {h00=0x0028, h01=0x0050, text=»*   -IHPFAR: POWER FAILURE INTERRUPT«, t00=0x0001, t01=0x00d8}
0x028e…0298              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x0298…02d6              Head {h00=0x003a, h01=0x0050, text=»*   IN THIS MODULE ENTRIES FOR REQUEST ERRORS ALSO ARE«, t00=0x0001, t01=0x010e}
0x02d6…02f6              Head {h00=0x001c, h01=0x0050, text=»*   PROVIDED. THESE ARE:«, t00=0x0001, t01=0x014c}
0x02f6…0300              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016c}
0x0300…0336              Head {h00=0x0032, h01=0x0050, text=»*   -LKMRQE: SET A7=-1 QUEUE JOB AND DISPATCH «, t00=0x0001, t01=0x0176}
0x0336…0340              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0340…036c              Head {h00=0x0028, h01=0x0050, text=»*   -LKMQDI: QUEUE JOB AND DISPATCH «, t00=0x0002, t01=0x0026}
0x036c…0376              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0052}
0x0376…0384              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x005c}
0x0384…0398              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x006a}
0x0398…03ac              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x007e}
0x03ac…03c0              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0092}
0x03c0…03ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a6}
0x03ca…03f4              Head {h00=0x0026, h01=0x0050, text=» ENTRY IHLKM LKM INTERRUPT HANDLER«, t00=0x0002, t01=0x00b0}
0x03f4…041c              Head {h00=0x0024, h01=0x0050, text=» ENTRY LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x00da}
0x041c…0444              Head {h00=0x0024, h01=0x0050, text=» ENTRY LKMQDI QUEUE AND DISPATCH«, t00=0x0002, t01=0x0102}
0x0444…044e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x044e…0478              Head {h00=0x0026, h01=0x0050, text=» ENTRY IHRTC RTC INTERRUPT HANDLER«, t00=0x0002, t01=0x0134}
0x0478…04b4              Head {h00=0x0038, h01=0x0050, text=» ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0002, t01=0x015e}
0x04b4…04d8              Head {h00=0x0020, h01=0x0050, text=» ENTRY MONCLO MONITOR CLOCK «, t00=0x0003, t01=0x000a}
0x04d8…050e              Head {h00=0x0032, h01=0x0050, text=» ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER «, t00=0x0003, t01=0x002e}
0x050e…0538              Head {h00=0x0026, h01=0x0050, text=» ENTRY INIFLG INITIALIZATION FLAG «, t00=0x0003, t01=0x0064}
0x0538…0542              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008e}
0x0542…0558              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0098}
0x0558…056e              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x00ae}
0x056e…0584              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x00c4}
0x0584…058e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00da}
0x058e…05ae              Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x00e4}
0x05ae…05ec              Head {h00=0x003a, h01=0x0050, text=» EXTRN LKMDIS ENTRY TO BE DISPATCHED AFTR LKM-REQUEST «, t00=0x0003, t01=0x0104}
0x05ec…0616              Head {h00=0x0026, h01=0x0050, text=» EXTRN PRUN TTAB OF RUNING PROGRAM«, t00=0x0003, t01=0x0142}
0x0616…063e              Head {h00=0x0024, h01=0x0050, text=» EXTRN QTJOB QUEUE TERMINAL JOB «, t00=0x0003, t01=0x016c}
0x063e…0666 (4, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» EXTRN SWL48 SWITCH TO LEVEL 48 «, t00=0x0004, t01=0x0004}
0x0666…069c              Head {h00=0x0032, h01=0x0050, text=» EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB «, t00=0x0004, t01=0x002c}
0x069c…06cc              Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:TD START OF TERMINAL DEVICES «, t00=0x0004, t01=0x0062}
0x06cc…06f2              Head {h00=0x0022, h01=0x0050, text=» EXTRN LKMAL LKM REQUEST TABLE«, t00=0x0004, t01=0x0092}
0x06f2…0716              Head {h00=0x0020, h01=0x0050, text=» EXTRN FREBLK SET BLOCK FREE«, t00=0x0004, t01=0x00b8}
0x0716…073c              Head {h00=0x0022, h01=0x0050, text=» EXTRN QMJOB QUEUE MONITOR JOB«, t00=0x0004, t01=0x00dc}
0x073c…0776              Head {h00=0x0036, h01=0x0050, text=» EXTRN RETU14 RESTORE A1-A14 FROM INTERRUPT STACK «, t00=0x0004, t01=0x0102}
0x0776…079c              Head {h00=0x0022, h01=0x0050, text=» EXTRN CVTCLK REAL TIME CLOCK «, t00=0x0004, t01=0x013c}
0x079c…07c4              Head {h00=0x0024, h01=0x0050, text=» EXTRN PFINIT RESTART OF DEVICES«, t00=0x0004, t01=0x0162}
0x07c4…07ea              Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x0004, t01=0x018a}
0x07ea…0810              Head {h00=0x0022, h01=0x0050, text=» EXTRN PFTAB POWER FAIL TABLE «, t00=0x0005, t01=0x0020}
0x0810…0830              Head {h00=0x001c, h01=0x0050, text=» EXTRN HALT HALT-MODULE «, t00=0x0005, t01=0x0046}
0x0830…0852              Head {h00=0x001e, h01=0x0050, text=» EXTRN SACT ACTIVE SEGMENT«, t00=0x0005, t01=0x0066}
0x0852…0882              Head {h00=0x002c, h01=0x0050, text=» EXTRN LRUNEW INSERT SEGMENT IN LRUQUEUE«, t00=0x0005, t01=0x0088}
0x0882…08ae              Head {h00=0x0028, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE MODULE «, t00=0x0005, t01=0x00b8}
0x08ae…08bc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00e4}
0x08bc…08c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f2}
0x08c6…08d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fc}
0x08d0…090c              Head {h00=0x0038, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x0005, t01=0x0106}
0x090c…093c              Head {h00=0x002c, h01=0x0050, text=»*    TO EXCLUDE MONITOR CLOCK FUNCTIONS.«, t00=0x0005, t01=0x0142}
0x093c…0968              Head {h00=0x0028, h01=0x0050, text=»*    THIS IS DONE BY SETTING X:A = 0«, t00=0x0005, t01=0x0172}
0x0968…0972              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000e}
0x0972…0984              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0006, t01=0x0018}
0x0984…099a              Head {h00=0x0012, h01=0x0050, text=»KLOCKA EQU X:A«, t00=0x0006, t01=0x002a}
0x099a…09a8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0040}
0x09a8…09b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004e}
0x09b2…09bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0058}
0x09bc…09d2              Head {h00=0x0012, h01=0x0050, text=»*   I H L K M «, t00=0x0006, t01=0x0062}
0x09d2…09dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0078}
0x09dc…09e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0082}
0x09e6…0a22              Head {h00=0x0038, h01=0x0050, text=»*   THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING«, t00=0x0006, t01=0x008c}
0x0a22…0a44              Head {h00=0x001e, h01=0x0050, text=»*   STEPS ARE CARRIED OUT:«, t00=0x0006, t01=0x00c8}
0x0a44…0a4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ea}
0x0a4e…0a7c              Head {h00=0x002a, h01=0x0050, text=»*   - IF STACK OVERFLOW SYSTEM HALTS. «, t00=0x0006, t01=0x00f4}
0x0a7c…0abe              Head {h00=0x003e, h01=0x0050, text=»*   - ELSE REGISTERS A1-A14 ARE SAVED IN TTAB FOR RUNNING «, t00=0x0006, t01=0x0122}
0x0abe…0ad4              Head {h00=0x0012, h01=0x0050, text=»*     PROGRAM.«, t00=0x0006, t01=0x0164}
0x0ad4…0b1c              Head {h00=0x0044, h01=0x0050, text=»*   - DISPATCH ADDRESS 'LKMDIS' AND 8 REGISTERS ARE SET ON STACK«, t00=0x0006, t01=0x017a}
0x0b1c…0b44              Head {h00=0x0024, h01=0x0050, text=»*   - TTB:SA IS UPDATED IN TTAB «, t00=0x0007, t01=0x0032}
0x0b44…0b82              Head {h00=0x003a, h01=0x0050, text=»*   - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO «, t00=0x0007, t01=0x005a}
0x0b82…0baa              Head {h00=0x0024, h01=0x0050, text=»*     APPROPIATE LKM-PROCESSOR. «, t00=0x0007, t01=0x0098}
0x0baa…0bb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c0}
0x0bb4…0bd4              Head {h00=0x001c, h01=0x0050, text=»*   EXIT CONDITIONS ARE:«, t00=0x0007, t01=0x00ca}
0x0bd4…0bde              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ea}
0x0bde…0c0c              Head {h00=0x002a, h01=0x0050, text=»*   A4 = LABLE ADDRESS OF LKM-REQUEST «, t00=0x0007, t01=0x00f4}
0x0c0c…0c46              Head {h00=0x0036, h01=0x0050, text=»*        (A4=0 INDICATES NO LABLE IN LKM-REQUEST) «, t00=0x0007, t01=0x0122}
0x0c46…0c76              Head {h00=0x002c, h01=0x0050, text=»*   A5 = TTAB-ADDRESS OF CALLING PROGRAM«, t00=0x0007, t01=0x015c}
0x0c76…0c96              Head {h00=0x001c, h01=0x0050, text=»*   A2 AND A3 ARE LOST. «, t00=0x0007, t01=0x018c}
0x0c96…0cd4              Head {h00=0x003a, h01=0x0050, text=»*   ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING «, t00=0x0008, t01=0x001c}
0x0cd4…0ce8              Head {h00=0x0010, h01=0x0050, text=»*   PROGRAM.«, t00=0x0008, t01=0x005a}
0x0ce8…0cf2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006e}
0x0cf2…0cfc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0078}
0x0cfc…0d06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0082}
0x0d06…0d1a              Head {h00=0x0010, h01=0x0050, text=»IHLKM EQU * «, t00=0x0008, t01=0x008c}
0x0d1a…0d2e              Head {h00=0x0010, h01=0x0050, text=» ST P,INTSAV«, t00=0x0008, t01=0x00a0}
0x0d2e…0d4c              Head {h00=0x001a, h01=0x0050, text=»   SAVE LAST INTERRUPT«, t00=0x0008, t01=0x00b4}
0x0d4c…0d7a              Head {h00=0x002a, h01=0x0050, text=» RIT /1D RESET INTERNAL INTERRUPT FLAG«, t00=0x0008, t01=0x00d2}
0x0d7a…0d8c              Head {h00=0x000e, h01=0x0050, text=»LKM010 INH«, t00=0x0008, t01=0x0100}
0x0d8c…0dac              Head {h00=0x001c, h01=0x0050, text=» ST A15,LKM020 SAVE A15 «, t00=0x0008, t01=0x0112}
0x0dac…0dd2              Head {h00=0x0022, h01=0x0050, text=» LD A15,PRUN LOAD TTAB-ADDRESS«, t00=0x0008, t01=0x0132}
0x0dd2…0e0a              Head {h00=0x0034, h01=0x0050, text=» ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA«, t00=0x0008, t01=0x0158}
0x0e0a…0e3a              Head {h00=0x002c, h01=0x0050, text=» STR A14,A15 SAVE USERS REGISTERS, -A14 «, t00=0x0008, t01=0x0190}
0x0e3a…0e54              Head {h00=0x0016, h01=0x0050, text=» STR A13,A15 -A13 «, t00=0x0009, t01=0x0030}
0x0e54…0e6e              Head {h00=0x0016, h01=0x0050, text=» STR A12,A15 -A12 «, t00=0x0009, t01=0x004a}
0x0e6e…0e88              Head {h00=0x0016, h01=0x0050, text=» STR A11,A15 -A11 «, t00=0x0009, t01=0x0064}
0x0e88…0ea2              Head {h00=0x0016, h01=0x0050, text=» STR A10,A15 -A10 «, t00=0x0009, t01=0x007e}
0x0ea2…0eba              Head {h00=0x0014, h01=0x0050, text=» STR A9,A15 -A9 «, t00=0x0009, t01=0x0098}
0x0eba…0ed2              Head {h00=0x0014, h01=0x0050, text=» STR A8,A15 -A8 «, t00=0x0009, t01=0x00b0}
0x0ed2…0eea              Head {h00=0x0014, h01=0x0050, text=» STR A7,A15 -A7 «, t00=0x0009, t01=0x00c8}
0x0eea…0f02              Head {h00=0x0014, h01=0x0050, text=» STR A6,A15 -A6 «, t00=0x0009, t01=0x00e0}
0x0f02…0f1a              Head {h00=0x0014, h01=0x0050, text=» STR A5,A15 -A5 «, t00=0x0009, t01=0x00f8}
0x0f1a…0f32              Head {h00=0x0014, h01=0x0050, text=» STR A4,A15 -A4 «, t00=0x0009, t01=0x0110}
0x0f32…0f4a              Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 -A3 «, t00=0x0009, t01=0x0128}
0x0f4a…0f62              Head {h00=0x0014, h01=0x0050, text=» STR A2,A15 -A2 «, t00=0x0009, t01=0x0140}
0x0f62…0f7a              Head {h00=0x0014, h01=0x0050, text=» STR A1,A15 -A1 «, t00=0x0009, t01=0x0158}
0x0f7a…0fa8              Head {h00=0x002a, h01=0x0050, text=» LDKL A15,0 RESTORE A15 STACK POINTER «, t00=0x0009, t01=0x0170}
0x0fa8…0fbe              Head {h00=0x0012, h01=0x0050, text=»LKM020 EQU *-2«, t00=0x000a, t01=0x000e}
0x0fbe…0fc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0024}
0x0fc8…0fd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002e}
0x0fd2…1004              Head {h00=0x002e, h01=0x0050, text=»*   GET DISPATCH ADDRESS AND SWITCH LEVEL «, t00=0x000a, t01=0x0038}
0x1004…100e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006a}
0x100e…1022              Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x000a, t01=0x0074}
0x1022…105a              Head {h00=0x0034, h01=0x0050, text=» LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER «, t00=0x000a, t01=0x0088}
0x105a…106e              Head {h00=0x0010, h01=0x0050, text=» LD A3,-2,A2«, t00=0x000a, t01=0x00c0}
0x106e…1084              Head {h00=0x0012, h01=0x0050, text=» CWK A3,/2804 «, t00=0x000a, t01=0x00d4}
0x1084…109e              Head {h00=0x0016, h01=0x0050, text=» RF(E) LKM025 LKM «, t00=0x000a, t01=0x00ea}
0x109e…10b4              Head {h00=0x0012, h01=0x0050, text=» CWK A3,/6300 «, t00=0x000a, t01=0x0104}
0x10b4…10ce              Head {h00=0x0016, h01=0x0050, text=» RF(E) LKM025 TRAP«, t00=0x000a, t01=0x011a}
0x10ce…10ee              Head {h00=0x001c, h01=0x0050, text=» LDK A1,7 HALT PARAMETER«, t00=0x000a, t01=0x0134}
0x10ee…111a              Head {h00=0x0028, h01=0x0050, text=» CF A15,HALT HALT IF STACK OVERFLOW «, t00=0x000a, t01=0x0154}
0x111a…1138              Head {h00=0x001a, h01=0x0050, text=»LKM025 LDKL A3,LKMDIS «, t00=0x000a, t01=0x0180}
0x1138…116a              Head {h00=0x002e, h01=0x0050, text=» STR A3,A15 SET DISPATCH ADDRESS ON STACK «, t00=0x000b, t01=0x000e}
0x116a…1180              Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/C000«, t00=0x000b, t01=0x0040}
0x1180…11a0              Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 SET LEVEL 48«, t00=0x000b, t01=0x0056}
0x11a0…11d2              Head {h00=0x002e, h01=0x0050, text=» SUKL A15,16 RESERVE SPACE FOR 8 REGISTERS«, t00=0x000b, t01=0x0076}
0x11d2…11f4              Head {h00=0x001e, h01=0x0050, text=» LD A3,SACT ACTIVE SEGMENT«, t00=0x000b, t01=0x00a8}
0x11f4…120a              Head {h00=0x0012, h01=0x0050, text=» RF(E) LKM027 «, t00=0x000b, t01=0x00ca}
0x120a…1220              Head {h00=0x0012, h01=0x0050, text=» CF A15,LRUNEW«, t00=0x000b, t01=0x00e0}
0x1220…1230              Head {h00=0x000c, h01=0x0050, text=» CM SACT«, t00=0x000b, t01=0x00f6}
0x1230…1244              Head {h00=0x0010, h01=0x0050, text=»LKM027 EQU *«, t00=0x000b, t01=0x0106}
0x1244…126c              Head {h00=0x0024, h01=0x0050, text=» CF A15,SWL48 SWITCH TO LEVEL 48«, t00=0x000b, t01=0x011a}
0x126c…12a4              Head {h00=0x0034, h01=0x0050, text=» LD A5,PRUN LOAD TTAB-ADDRESS OF CALLING PROGRAM«, t00=0x000b, t01=0x0142}
0x12a4…12cc              Head {h00=0x0024, h01=0x0050, text=» LDK A4,0 RESET LABEL INDICATOR «, t00=0x000b, t01=0x017a}
0x12cc…12f4              Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 LOAD DATA DIRECTIVE «, t00=0x000c, t01=0x0012}
0x12f4…1314              Head {h00=0x001c, h01=0x0050, text=» RF(NN) LKM030 NO LABLE «, t00=0x000c, t01=0x003a}
0x1314…131e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005a}
0x131e…1328              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0064}
0x1328…134a              Head {h00=0x001e, h01=0x0050, text=»*   LKM-REQUEST WITH LABLE«, t00=0x000c, t01=0x006e}
0x134a…1354              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0090}
0x1354…1366              Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x000c, t01=0x009a}
0x1366…1384              Head {h00=0x001a, h01=0x0050, text=» LDR* A4,A2 LOAD LABLE«, t00=0x000c, t01=0x00ac}
0x1384…13a2              Head {h00=0x001a, h01=0x0050, text=» NGR A3,A3 NEGATE DATA«, t00=0x000c, t01=0x00ca}
0x13a2…13ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e8}
0x13ac…13b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f2}
0x13b6…13e8              Head {h00=0x002e, h01=0x0050, text=»*   UPDATE TTB:SA AND GO TO LKM-PROCESSOR «, t00=0x000c, t01=0x00fc}
0x13e8…13f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012e}
0x13f2…1406              Head {h00=0x0010, h01=0x0050, text=»LKM030 EQU *«, t00=0x000c, t01=0x0138}
0x1406…142c              Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 SAVE NEXT ADDRESS TO«, t00=0x000c, t01=0x014c}
0x142c…1454              Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:SA,A5 EXECUTE IN TTAB«, t00=0x000c, t01=0x0172}
0x1454…147a              Head {h00=0x0022, h01=0x0050, text=» ADR A3,A3 GET INDEX IN LKMAL «, t00=0x000d, t01=0x000a}
0x147a…14a6              Head {h00=0x0028, h01=0x0050, text=» RF(Z) LKMQDI PROGRAM SWITCH REQUEST«, t00=0x000d, t01=0x0030}
0x14a6…14ba              Head {h00=0x0010, h01=0x0050, text=» CW A3,LKMAL«, t00=0x000d, t01=0x005c}
0x14ba…14e8              Head {h00=0x002a, h01=0x0050, text=» RF(NL) LKMRQE INVALID DATA DIRECTIVE «, t00=0x000d, t01=0x0070}
0x14e8…1500              Head {h00=0x0014, h01=0x0050, text=» LD A3,LKMAL,A3 «, t00=0x000d, t01=0x009e}
0x1500…152a              Head {h00=0x0026, h01=0x0050, text=» RF(Z) LKMRQE ERROR IF NOT PRESENT«, t00=0x000d, t01=0x00b6}
0x152a…154a              Head {h00=0x001c, h01=0x0050, text=» INH  INHIBIT INTERRUPTS«, t00=0x000d, t01=0x00e0}
0x154a…1572              Head {h00=0x0024, h01=0x0050, text=» ABR A3 BRANCH TO LKM-PROCESSOR «, t00=0x000d, t01=0x0100}
0x1572…1580              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0128}
0x1580…158a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0136}
0x158a…1594              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0140}
0x1594…15ac              Head {h00=0x0014, h01=0x0050, text=»*   L K M R Q E «, t00=0x000d, t01=0x014a}
0x15ac…15b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0162}
0x15b6…15ec              Head {h00=0x0032, h01=0x0050, text=»*   SET A7=-1,QUEUE TERMINAL JOB AND DISPATCH «, t00=0x000d, t01=0x016c}
0x15ec…15f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0012}
0x15f6…1614              Head {h00=0x001a, h01=0x0050, text=»*   A5 = TTAB-ADDRESS «, t00=0x000e, t01=0x001c}
0x1614…161e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003a}
0x161e…1628              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0044}
0x1628…163c              Head {h00=0x0010, h01=0x0050, text=»LKMRQE EQU *«, t00=0x000e, t01=0x004e}
0x163c…1650              Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x000e, t01=0x0062}
0x1650…1682              Head {h00=0x002e, h01=0x0050, text=» ST A2,TTB:SA+14,A5 SET -1 IN SAVE AREA A7«, t00=0x000e, t01=0x0076}
0x1682…168c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a8}
0x168c…1696              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b2}
0x1696…16ae              Head {h00=0x0014, h01=0x0050, text=»*   L K M Q D I «, t00=0x000e, t01=0x00bc}
0x16ae…16b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d4}
0x16b8…16e4              Head {h00=0x0028, h01=0x0050, text=»*   QUEUE TERMINAL JOB AND DISPATCH «, t00=0x000e, t01=0x00de}
0x16e4…16ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010a}
0x16ee…170c              Head {h00=0x001a, h01=0x0050, text=»*   A5 = TTAB-ADDRESS «, t00=0x000e, t01=0x0114}
0x170c…1716              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0132}
0x1716…1720              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013c}
0x1720…1734              Head {h00=0x0010, h01=0x0050, text=»LKMQDI EQU *«, t00=0x000e, t01=0x0146}
0x1734…174a              Head {h00=0x0012, h01=0x0050, text=» CF A15,QTJOB «, t00=0x000e, t01=0x015a}
0x174a…176e              Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x000e, t01=0x0170}
0x176e…177c (15, 0, 398) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0004}
0x177c…1786              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0012}
0x1786…179c              Head {h00=0x0012, h01=0x0050, text=»*   I H R T C «, t00=0x000f, t01=0x001c}
0x179c…17a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0032}
0x17a6…17e0              Head {h00=0x0036, h01=0x0050, text=»*   THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER «, t00=0x000f, t01=0x003c}
0x17e0…181a              Head {h00=0x0036, h01=0x0050, text=»*   THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS «, t00=0x000f, t01=0x0076}
0x181a…1824              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b0}
0x1824…1838              Head {h00=0x0010, h01=0x0050, text=»IHRTC EQU * «, t00=0x000f, t01=0x00ba}
0x1838…1860              Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x000f, t01=0x00ce}
0x1860…1886              Head {h00=0x0022, h01=0x0050, text=» RIT /1B RESET INTERRUPT FLAG «, t00=0x000f, t01=0x00f6}
0x1886…1898              Head {h00=0x000e, h01=0x0050, text=» IM COUNT «, t00=0x000f, t01=0x011c}
0x1898…18ae              Head {h00=0x0012, h01=0x0050, text=» RF(P) RTC010 «, t00=0x000f, t01=0x012e}
0x18ae…18be              Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x000f, t01=0x0144}
0x18be…18da              Head {h00=0x0018, h01=0x0050, text=»RTC010 CF A15,SAVE8 «, t00=0x000f, t01=0x0154}
0x18da…1900              Head {h00=0x0022, h01=0x0050, text=» IM CVTCLK INCREMENT CVT CLOCK«, t00=0x000f, t01=0x0170}
0x1900…1926              Head {h00=0x0022, h01=0x0050, text=» LDKL A4,-4 SET 100 MS SWITCH «, t00=0x0010, t01=0x0008}
0x1926…193a              Head {h00=0x0010, h01=0x0050, text=» ST A4,COUNT«, t00=0x0010, t01=0x002e}
0x193a…196c              Head {h00=0x002e, h01=0x0050, text=» LDKL A2,CLOCK QUEUE CLOCK-ROUTINE AS MJOB«, t00=0x0010, t01=0x0042}
0x196c…1982              Head {h00=0x0012, h01=0x0050, text=» CF A15,QMJOB «, t00=0x0010, t01=0x0074}
0x1982…198c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008a}
0x198c…19a2              Head {h00=0x0012, h01=0x0050, text=» IFT KLOCKA=1 «, t00=0x0010, t01=0x0094}
0x19a2…19ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00aa}
0x19ac…19be              Head {h00=0x000e, h01=0x0050, text=» IM DINKAN«, t00=0x0010, t01=0x00b4}
0x19be…19f4              Head {h00=0x0032, h01=0x0050, text=» RF(P) RTC025 UPDATE MONITOR CLOCK EACH SECOND«, t00=0x0010, t01=0x00c6}
0x19f4…19fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fc}
0x19fe…1a0a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0106}
0x1a0a…1a14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0112}
0x1a14…1a2c              Head {h00=0x0014, h01=0x0050, text=»RTC020 ABL TDISP«, t00=0x0010, t01=0x011c}
0x1a2c…1a36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a36…1a4c              Head {h00=0x0012, h01=0x0050, text=» IFT KLOCKA=1 «, t00=0x0010, t01=0x013e}
0x1a4c…1a5a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0154}
0x1a5a…1a64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0162}
0x1a64…1a6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016c}
0x1a6e…1aae              Head {h00=0x003c, h01=0x0050, text=»*    MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND «, t00=0x0010, t01=0x0176}
0x1aae…1ab8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0026}
0x1ab8…1ac2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0030}
0x1ac2…1ad6              Head {h00=0x0010, h01=0x0050, text=»MCLOCK EQU *«, t00=0x0011, t01=0x003a}
0x1ad6…1b02              Head {h00=0x0028, h01=0x0050, text=»RTC025 LDKL A4,-9 SET SECOND SWITCH «, t00=0x0011, t01=0x004e}
0x1b02…1b18              Head {h00=0x0012, h01=0x0050, text=» ST A4,DINKAN «, t00=0x0011, t01=0x007a}
0x1b18…1b2a              Head {h00=0x000e, h01=0x0050, text=» LDK A4,4 «, t00=0x0011, t01=0x0090}
0x1b2a…1b60              Head {h00=0x0032, h01=0x0050, text=»MCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS«, t00=0x0011, t01=0x00a2}
0x1b60…1b8c              Head {h00=0x0028, h01=0x0050, text=»MCLO20 IM MONCLO+2,A4 INCREMENT TIME«, t00=0x0011, t01=0x00d8}
0x1b8c…1bc0              Head {h00=0x0030, h01=0x0050, text=» XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS ?«, t00=0x0011, t01=0x0104}
0x1bc0…1be8              Head {h00=0x0024, h01=0x0050, text=» RB(NE) RTC020 GO TO DISPATCHER «, t00=0x0011, t01=0x0138}
0x1be8…1c14              Head {h00=0x0028, h01=0x0050, text=» CM MONCLO+2,A4 RESTART TIME COUNTER«, t00=0x0011, t01=0x0160}
0x1c14…1c2c              Head {h00=0x0014, h01=0x0050, text=» SUK A4,2 END ? «, t00=0x0011, t01=0x018c}
0x1c2c…1c50              Head {h00=0x0020, h01=0x0050, text=» RF(N) MCLO30 MIDNIGTH CARRY«, t00=0x0012, t01=0x0014}
0x1c50…1c74              Head {h00=0x0020, h01=0x0050, text=» RB(P) MCLO10 UPDATE MINUTES«, t00=0x0012, t01=0x0038}
0x1c74…1c94              Head {h00=0x001c, h01=0x0050, text=» LDK A3,24 UPDATE HOURS «, t00=0x0012, t01=0x005c}
0x1c94…1ca6              Head {h00=0x000e, h01=0x0050, text=» RB MCLO20«, t00=0x0012, t01=0x007c}
0x1ca6…1cd4              Head {h00=0x002a, h01=0x0050, text=»MCLO30 IM MONCLO UPDATE 24 HOUR CARRY «, t00=0x0012, t01=0x008e}
0x1cd4…1cf6              Head {h00=0x001e, h01=0x0050, text=» RB RTC020 GOTO DISPATCHER«, t00=0x0012, t01=0x00bc}
0x1cf6…1d00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00de}
0x1d00…1d0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e8}
0x1d0a…1d16              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00f2}
0x1d16…1d20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00fe}
0x1d20…1d34              Head {h00=0x0010, h01=0x0050, text=»MONCLO EQU *«, t00=0x0012, t01=0x0108}
0x1d34…1d4a              Head {h00=0x0012, h01=0x0050, text=» IFT KLOCKA=1 «, t00=0x0012, t01=0x011c}
0x1d4a…1d74              Head {h00=0x0026, h01=0x0050, text=» DATA 0 ACCUMULATED 24 HOUR CARRY «, t00=0x0012, t01=0x0132}
0x1d74…1d7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015c}
0x1d7e…1d92              Head {h00=0x0010, h01=0x0050, text=» DATA 0 HOUR«, t00=0x0012, t01=0x0166}
0x1d92…1da8              Head {h00=0x0012, h01=0x0050, text=» DATA 0 MINUTE«, t00=0x0012, t01=0x017a}
0x1da8…1dbe              Head {h00=0x0012, h01=0x0050, text=» DATA 0 SECOND«, t00=0x0012, t01=0x0190}
0x1dbe…1dc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0016}
0x1dc8…1dec              Head {h00=0x0020, h01=0x0050, text=»DINKAN DATA 0 SECOND SWITCH «, t00=0x0013, t01=0x0020}
0x1dec…1df6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0044}
0x1df6…1e00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004e}
0x1e00…1e0c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0058}
0x1e0c…1e1a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0064}
0x1e1a…1e22              Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0072}
0x1e22…1e2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007a}
0x1e2c…1e5a              Head {h00=0x002a, h01=0x0050, text=»*   CLOCK ROUTINE STARTED EACH 100 MS.«, t00=0x0013, t01=0x0084}
0x1e5a…1e64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b2}
0x1e64…1e6c              Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00bc}
0x1e6c…1e7e              Head {h00=0x000e, h01=0x0050, text=»CLOCK INH «, t00=0x0013, t01=0x00c4}
0x1e7e…1eae              Head {h00=0x002c, h01=0x0050, text=» LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS«, t00=0x0013, t01=0x00d6}
0x1eae…1ec6              Head {h00=0x0014, h01=0x0050, text=»CLK10 LDR A6,A4 «, t00=0x0013, t01=0x0106}
0x1ec6…1eee              Head {h00=0x0024, h01=0x0050, text=»CLK20 LDR* A4,A6 GET TIMER BLOCK«, t00=0x0013, t01=0x011e}
0x1eee…1f10              Head {h00=0x001e, h01=0x0050, text=» RB(Z) RTC020 END OF QUEUE«, t00=0x0013, t01=0x0146}
0x1f10…1f18              Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0168}
0x1f18…1f38              Head {h00=0x001c, h01=0x0050, text=» IM 4,A4 INCREMENT TIMER«, t00=0x0013, t01=0x0170}
0x1f38…1f6c              Head {h00=0x0030, h01=0x0050, text=» RB(N) CLK10 NOT TIME OUT, GET NEXT IN QUEUE«, t00=0x0013, t01=0x0190}
0x1f6c…1f8a              Head {h00=0x001a, h01=0x0050, text=» RF(Z) CLK30 TIME OUT «, t00=0x0014, t01=0x0034}
0x1f8a…1f92              Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0052}
0x1f92…1fb4              Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A4 RELEASE TIMER «, t00=0x0014, t01=0x005a}
0x1fb4…1fc6              Head {h00=0x000e, h01=0x0050, text=» STR A3,A6«, t00=0x0014, t01=0x007c}
0x1fc6…1fdc              Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0014, t01=0x008e}
0x1fdc…1fee              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0014, t01=0x00a4}
0x1fee…2004              Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0014, t01=0x00b6}
0x2004…2016              Head {h00=0x000e, h01=0x0050, text=» RB CLK20 «, t00=0x0014, t01=0x00cc}
0x2016…201e              Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x00de}
0x201e…204e              Head {h00=0x002c, h01=0x0050, text=»CLK30 CF A15,CLK40 CALL TIME OUT ROUTINE«, t00=0x0014, t01=0x00e6}
0x204e…205a              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0014, t01=0x0116}
0x205a…206c              Head {h00=0x000e, h01=0x0050, text=» RB CLK10 «, t00=0x0014, t01=0x0122}
0x206c…2074              Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0134}
0x2074…208e              Head {h00=0x0016, h01=0x0050, text=»CLK40 CF A15,SAVE8«, t00=0x0014, t01=0x013c}
0x208e…20b2              Head {h00=0x0020, h01=0x0050, text=» LD A2,2,A4 LOAD DISP BLOCK «, t00=0x0014, t01=0x0156}
0x20b2…20d4              Head {h00=0x001e, h01=0x0050, text=» LD A1,4,A2 GET PARAMETER «, t00=0x0014, t01=0x017a}
0x20d4…20fc              Head {h00=0x0024, h01=0x0050, text=» ABI 2,A2 GO TO TIME OUT ROUTINE«, t00=0x0015, t01=0x000c}
0x20fc…2106              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0034}
0x2106…2110              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x003e}
0x2110…211a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0048}
0x211a…213c              Head {h00=0x001e, h01=0x0050, text=»COUNT DATA 0 100 MS SWITCH«, t00=0x0015, t01=0x0052}
0x213c…2146              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0074}
0x2146…2150              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x007e}
0x2150…2168              Head {h00=0x0014, h01=0x0050, text=»*   T I M Q U E «, t00=0x0015, t01=0x0088}
0x2168…2172              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x2172…21a4              Head {h00=0x002e, h01=0x0050, text=»*   POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0015, t01=0x00aa}
0x21a4…21ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00dc}
0x21ae…21c2              Head {h00=0x0010, h01=0x0050, text=»TIMQUE EQU *«, t00=0x0015, t01=0x00e6}
0x21c2…21d2              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0015, t01=0x00fa}
0x21d2…21e0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x010a}
0x21e0…21ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0118}
0x21ea…21f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0122}
0x21f4…220c              Head {h00=0x0014, h01=0x0050, text=»*   I H P F A R «, t00=0x0015, t01=0x012c}
0x220c…2216              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0144}
0x2216…2258              Head {h00=0x003e, h01=0x0050, text=»*   THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER «, t00=0x0015, t01=0x014e}
0x2258…2262              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0190}
0x2262…226c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000a}
0x226c…2282              Head {h00=0x0012, h01=0x0050, text=»* 1. POWER OFF«, t00=0x0016, t01=0x0014}
0x2282…228c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x002a}
0x228c…22ca              Head {h00=0x003a, h01=0x0050, text=»*    REGISTERS A1-A14 ARE SAVED ON INTERRUPT STACK AND«, t00=0x0016, t01=0x0034}
0x22ca…22f6              Head {h00=0x0028, h01=0x0050, text=»*    STACK POINTER IS SAVED IN CORE «, t00=0x0016, t01=0x0072}
0x22f6…2318              Head {h00=0x001e, h01=0x0050, text=»*    THEN SYSTEM IS HALTED«, t00=0x0016, t01=0x009e}
0x2318…2322              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c0}
0x2322…232c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ca}
0x232c…2342              Head {h00=0x0012, h01=0x0050, text=»* 2. POWER ON «, t00=0x0016, t01=0x00d4}
0x2342…234c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ea}
0x234c…2376              Head {h00=0x0026, h01=0x0050, text=»*    STACK POINTER A15 IS RESTORED«, t00=0x0016, t01=0x00f4}
0x2376…23b0              Head {h00=0x0036, h01=0x0050, text=»*    COMMON DEVICES ARE RESTARTED BY MODULE PFINIT«, t00=0x0016, t01=0x011e}
0x23b0…23f2              Head {h00=0x003e, h01=0x0050, text=»*    REGISTERS A1 - A14 ARE RESTORED FROM INTERRUPT STACK «, t00=0x0016, t01=0x0158}
0x23f2…242a              Head {h00=0x0034, h01=0x0050, text=»*    AND RETURN IS GIVEN TO INTERRUPTED PROGRAM «, t00=0x0017, t01=0x000a}
0x242a…2434              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0042}
0x2434…243e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004c}
0x243e…2448              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0056}
0x2448…245c              Head {h00=0x0010, h01=0x0050, text=»* WORK AREAS«, t00=0x0017, t01=0x0060}
0x245c…2466              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0074}
0x2466…2470              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007e}
0x2470…249a              Head {h00=0x0026, h01=0x0050, text=»PFX DATA 1 POWER ON OFF INDICATOR «, t00=0x0017, t01=0x0088}
0x249a…24a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b2}
0x24a4…24ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00bc}
0x24ae…24d8              Head {h00=0x0026, h01=0x0050, text=»INIFLG DATA 1 INITIALIZATION FLAG «, t00=0x0017, t01=0x00c6}
0x24d8…24e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f0}
0x24e2…24f0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00fa}
0x24f0…24fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0108}
0x24fa…2504              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0112}
0x2504…2530              Head {h00=0x0028, h01=0x0050, text=»* POWER FAIL/AUTO RESTART INTERRUPT «, t00=0x0017, t01=0x011c}
0x2530…253a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0148}
0x253a…2544              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0152}
0x2544…255a              Head {h00=0x0012, h01=0x0050, text=»IHPFAR EQU *  «, t00=0x0017, t01=0x015c}
0x255a…2582              Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0017, t01=0x0172}
0x2582…25ac              Head {h00=0x0026, h01=0x0050, text=» RIT /17 RESET INTERNAL INTERRUPT «, t00=0x0018, t01=0x000a}
0x25ac…25d6              Head {h00=0x0026, h01=0x0050, text=» C1S PFX INDICATE POWER ON OR OFF «, t00=0x0018, t01=0x0034}
0x25d6…25f4              Head {h00=0x001a, h01=0x0050, text=» RF(P) PFA200 POWER ON«, t00=0x0018, t01=0x005e}
0x25f4…25fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x007c}
0x25fe…2612              Head {h00=0x0010, h01=0x0050, text=»* POWER OFF «, t00=0x0018, t01=0x0086}
0x2612…261c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x009a}
0x261c…2648              Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x0018, t01=0x00a4}
0x2648…2672              Head {h00=0x0026, h01=0x0050, text=» STR A9,A15 SAVE A9 - A14 ON STACK«, t00=0x0018, t01=0x00d0}
0x2672…2686              Head {h00=0x0010, h01=0x0050, text=» STR A10,A15«, t00=0x0018, t01=0x00fa}
0x2686…269a              Head {h00=0x0010, h01=0x0050, text=» STR A11,A15«, t00=0x0018, t01=0x010e}
0x269a…26ae              Head {h00=0x0010, h01=0x0050, text=» STR A12,A15«, t00=0x0018, t01=0x0122}
0x26ae…26c2              Head {h00=0x0010, h01=0x0050, text=» STR A13,A15«, t00=0x0018, t01=0x0136}
0x26c2…26d6              Head {h00=0x0010, h01=0x0050, text=» STR A14,A15«, t00=0x0018, t01=0x014a}
0x26d6…2704              Head {h00=0x002a, h01=0x0050, text=» ST A15,PFA210 SAVE A15 STACK POINTER «, t00=0x0018, t01=0x015e}
0x2704…2724              Head {h00=0x001c, h01=0x0050, text=»PFA100 HLT  HALT SYSTEM «, t00=0x0018, t01=0x018c}
0x2724…272e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001c}
0x272e…2740              Head {h00=0x000e, h01=0x0050, text=»* POWER ON«, t00=0x0019, t01=0x0026}
0x2740…274a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0038}
0x274a…275e              Head {h00=0x0010, h01=0x0050, text=»PFA200 EQU *«, t00=0x0019, t01=0x0042}
0x275e…278c              Head {h00=0x002a, h01=0x0050, text=» LDKL A15,0 RESTORE A15 STACK POINTER «, t00=0x0019, t01=0x0056}
0x278c…27a2              Head {h00=0x0012, h01=0x0050, text=»PFA210 EQU *-2«, t00=0x0019, t01=0x0084}
0x27a2…27ce              Head {h00=0x0028, h01=0x0050, text=» CM INIFLG RESET INITIALIZATION FLAG«, t00=0x0019, t01=0x009a}
0x27ce…27fc              Head {h00=0x002a, h01=0x0050, text=» CF A15,PFINIT RESTART COMMON DEVICES «, t00=0x0019, t01=0x00c6}
0x27fc…2834              Head {h00=0x0034, h01=0x0050, text=» ABL RETU14 RESTORE A1-A14 FROM INTERRUPT STACK «, t00=0x0019, t01=0x00f4}
0x2834…2840              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0019, t01=0x012c}
0x2840…2844              Head {h00=0x4004, h01=0x0000}
0x2844…2848              00 19 01 38                                                                                                                                                                                                                                       ┆   8┆
0x2848…2850 (26, 1, 8)   20 04 00 00 00 1a 00 04                                                                                                                                                                                                                           ┆        ┆
0x2850…28a0 (27, 0, 400) 00 4a 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 44 52 44 4e 30 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 4c 20 38 2e 31 20 37 38 2d 30 34 2d 32 31 20 20 38 37 30 31 30 35 30 34 30 38 31 30 00 00 00 04 00 0c   ┆ J F         IDENT DRDN01                   REL 8.1 78-04-21  870105040810      ┆
0x28a0…28f0              00 08 01 03 84 44 4e 41 44 59 00 00 00 52 00 0e 00 0a 05 04 9c 44 4e 41 44 59 00 00 00 00 00 62 00 0e 00 0a 02 04 c2 44 49 53 49 4f 45 00 00 00 00 74 00 0e 00 0a 02 04 c2 4f 55 54 50 55 54 00 00 00 00 86 00 2c 00 28 03 13 00 00 00 01 00 44   ┆     DNADY   R       DNADY     b       DISIOE    t       OUTPUT      , (       D┆
0x28f0…2940              00 00 00 00 00 00 00 00 1f 05 50 00 1f 01 50 00 8f 20 00 00 00 02 02 40 f5 21 00 00 00 04 57 00 00 00 00 98 00 0e 00 0a 02 04 c2 47 45 54 43 48 52 00 00 00 00 c8 00 2c 00 28 03 13 00 00 00 1d 20 02 03 00 f7 a1 00 00 00 06 81 04 55 00 84 08   ┆          P   P        @ !    W            GETCHR      , (                  U   ┆
0x2940…2990              1c 3f 50 00 14 06 51 00 14 09 52 00 f5 21 00 00 00 04 00 00 00 da 00 0e 00 0a 02 04 c2 54 45 4e 44 49 4f 20 00 00 01 0a 00 0c 00 08 02 03 a2 54 44 49 53 50 00 00 01 1c 00 0c 00 08 02 03 a2 44 57 54 53 54 00 00 01 2c 00 2c 00 28 03 13 00 00   ┆ ?P   Q   R  !               TENDIO            TDISP           DWTST   , , (    ┆
0x2990…29e0              00 39 02 48 5f 1c 01 04 a9 43 00 08 5f 24 f7 a1 00 00 00 08 8f 20 00 00 00 0a 84 58 00 00 00 0c 5a 0a 3c 42 00 00 01 3c 00 0c 00 08 02 03 a2 4c 44 52 45 47 00 00 01 6c 00 0c 00 08 02 03 a2 53 41 56 45 38 00 00 01 7c 00 2c 00 28 03 13 00 00   ┆ 9 H_    C  _$             X    Z <B   <       LDREG   l       SAVE8   | , (    ┆
0x29e0…2a30 (28, 2, 248) 00 53 09 08 52 00 81 04 5c 16 8f 20 00 00 00 0e f7 a1 00 00 00 10 82 20 7f ff a2 59 00 00 00 0c 02 40 f5 21 00 00 01 8c 00 0e 00 0a 02 04 c2 44 57 54 45 43 42 00 00 01 00 2c 00 2c 00 28 03 13 00 00 00 6d 90 00 00 00 00 04 80 d8 00 00 00 12   ┆ S  R                      Y     @ !           DWTECB    , , (     m            ┆
0x2a30…2a80              58 32 5f 6e 87 1c 52 00 83 08 1b 08 50 00 1b 10 54 00 02 40 f5 21 00 01 00 3e 00 0e 00 0a 02 04 c2 45 43 48 52 54 4e 20 00 01 00 6e 00 16 00 12 03 08 00 00 00 89 90 00 00 00 00 04 8f 20 00 00 00 14 00 01 00 80 00 44 00 40 04 1f f0 00 00 01   ┆X2_n  R     P   T  @ !   >       ECHRTN    n                           D @      ┆
0x2a80…2ad0              00 08 00 03 00 4a 00 05 00 5c 00 07 00 76 00 0b 50 08 00 0f 50 0c 00 1b 57 26 00 25 55 1c 00 2b 50 08 00 2f 51 0a 00 33 52 06 00 53 52 04 00 79 52 10 00 7f 50 0a 00 83 54 02 00 01 00 9a 00 0e 00 0a 07 04 00 00 00 00 00 8e 00 00 00 01 00 e2   ┆     J       v  P   P   W& %U  +P  /Q  3R  SR  yR   P   T                       ┆
0x2ad0…2ad8              40 04 00 00 00 01 00 f4                                                                                                                                                                                                                           ┆@       ┆

Reduced view