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

⟦d6c5add11⟧ 

    Length: 7482 (0x1d3a)
    Notes: pts_type(SC)
    Names: »INPREO.SC«

Derivation

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

PTS(SC)

	IDENT INPREO 	REL 8.2 78-09-15  870105040820 

* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   INPREO = SUBROUTINE INTERPRETER 
* 
* 
* 
* 
* 
* 
**************************************************
* 
* 
*   THIS IS A SUBROUTINE INTERPRETER TO HANDLE SUBROUTINE 
*   CALLS USING THE A14 STACK. THE INTERPRETER IS CALLED
*   WITH INSTRUCTION CODES /C001 - /C0FF WHERE /1 - /FF IS A
*   INDEX. INDEX VAULES ARE 1,2,3,4...... 
*   THE INDEX IS USED TO GET ABSOLUTE ADDRESS TO THE CALLED 
*   SUBROUTINE FROM A ADDRESS TABLE. START ADDRESS OF THIS TABLE
*   IS STORED IN COMMUNICATION VECTOR TABLE. ('CVTINP') 
* 
*   THE INTERPRETER MAY ALSO EXECUTE THE FOLLOWING TWO INSTRUCTIONS:
* 
*   LD  R1,DISPL,A13   CALLING CODE: CXYY 
* 
*   ST  R1,DISPL,A13   CALLING CODE: DXYY 
* 
*   X =  R1 = REGISTERS A1 -A14 
*   YY = DISPL (DISPLACMENT)
* 
* 
* 
	EJECT
* 
* 
********* 
* ENTRY * 
********* 
* 
* 
	ENTRY	IHINPT	TRAP INTERRUPT ADDRESS
* 
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	CVTINP	FUNCTION TABLE ADDRESS
	EXTRN	UPDLRI	UPDATE LRU QUEUE
	EXTRN	CVTLSB,CVTAPA
	EXTRN	SRUN,PRUN
	EXTRN	TTB:SS,TTB:SP
	EXTRN	TTB:SA 
	EXTRN	LD150	LOADER JUMP
	EXTRN	LKMDIS 
	EXTRN	RETUR3,RETUR8
	EJECT
* 
* 
*   I H I N P T 
* 
*   INTERPRETER TRAP HANDLER
* 
IHINPT	EQU	*
	STR	A1,A15 
	STR	A2,A15 
	STR	A3,A15 
	LD	A1,10,A15	LOAD TRAP ADDRESS 
	LDR*	A2,A1	LOAD TRAP CODE
	ADK	A1,2	
	LDR	A3,A2	SAVE CODE IN A3
	ANKL	A3,/F00	MASK OUT REGISTER CODE
	RF(Z)	INT200	BRANCH IF SUBROUTINE CALL 
* 
* 
*   EXECUTE LOAD/STORE INSTRUCTION
* 
	ST	A1,10,A15	SAVE RETURN ADDRESS 
	SC	A2,DISPL+1	STORE DISPLACMENT
	SRL	A3,1	SHIFT TO FIT INSTRUCTION CODE 
	SLL	A2,3	
	RF(NN)	INT100	BRANCH IF LOAD INSTRUCTION 
	ADK	A3,1	INDICATE STORE INSTRUCTION
INT100	ADKL	A3,/8056	GET COMPLETE INSTRUCTION CODE
	ST	A3,INSTR	STORE INSTRUCTION TO BE EXECUTED 
	LDR*	A3,A15	RESTORE A3 
	LDR*	A2,A15	RESTORE A1-A2
	LDR*	A1,A15
INSTR	DATA	0	LOAD/STORE INSTRUCTION 
DISPL	DATA	0	DISPLACMENT
	STR	A1,A15	SAVE A1 
	CF	A15,IHSTAK	SAVE CONDITION REGISTER
IHSTAK	LDR*	A1,A15	GET COND. REG
	ST	A1,6,A15	STORE IN RETURN PSW
	LDR*	A1,A15	DUMMY TO ADJUST STACK
	LDR*	A1,A15	RELOAD A1
	RTN	A15	RETURN TO USER PROGRAM 
	EJECT
* 
* 
*    EXECUTE SUBROUTINE CALL
* 
INT200	EQU	*
	STR	A4,A15 
	STR	A5,A15 
	STR	A6,A15 
	STR	A7,A15 
	STR	A8,A15 
	LD	A4,PRUN	TTAB-ADDRESS OF RUNNING PROGRAM 
	ANK	A2,/FF	GET INDEX 
	CWK	A2,/FF	RETURN ?
	RF(E)	INT400	YES 
	LD	A3,18,A15	PSW 
	ST	A3,-6,A14	STORE ON A14 STACK
	LD	A3,SRUN	SEGMENT POINTER 
	ST	A3,-2,A14	STORE SP ON STACK 
	ST	A1,-4,A14	STORE ABS ADDRESS ON STACK
	LD	A5,2,A3	LOAD ADDRESS
	STR	A5,A14 
	SUKL	A14,8 
	SUK	A2,1 
	ADR	A2,A2	DOUBLE INDEX 
	AD	A2,CVTINP	ADD FUNCTION TABLE START ADDRESS
	LDR*	A2,A2	GET SUBROUTINE POINTER
	LDR	A3,A2
	ANK	A2,/FF 
	SUK	A2,1 
	ADR	A2,A2
	SRL	A3,8 
	RF(E)	INT250	SEGMENT 0 
	SLL	A3,2 
	LDR	A1,A3
	SLL	A3,1 
	ADR	A3,A1
	AD	A3,CVTLSB	SEGMENT POINTER 
	ADK	A3,2 
	LDR*	A1,A3	LOADED ?
	RF(N)	INT300	NO
	LD	A1,2,A3	LOAD ADDRESS
INT230	EQU	*
	ADR	A2,A1
	LDR*	A2,A2 
RETTUR	EQU	*
	ST	A2,20,A15 
	ST	A2,TTB:SA,A4	DISPATCH ADDRESS 
	ST	A3,TTB:SP,A4	SAVE SEGMENT PIOINTER
	ST	A3,SRUN	SEGMENT RUNNING 
	ST	A1,TTB:SS,A4	LAST START ADDRESS 
	LDR	A6,A3
	RF(E)	INT240 
	CF	A15,UPDLRI
INT240	EQU	*
	ABL	RETUR8 
INT250	LD	A1,CVTAPA 
	RB	INT230
INT270	EQU	*
	NGR	A2,A2
INT300	CM	SRUN
	CM	TTB:SP,A4 
	CM	TTB:SS,A4 
	ST	A14,TTB:SA+28,A4
	ST	A13,TTB:SA+26,A4
	ST	A12,TTB:SA+24,A4
	ST	A11,TTB:SA+22,A4
	ST	A10,TTB:SA+20,A4
	ST	A9,TTB:SA+18,A4 
	LDKL	A1,TTB:SA 
	ADR	A1,A4
	LDK	A6,16
	ADK	A1,16
INT350	LDR*	A5,A15
	STR	A5,A1
	SUK	A1,2 
	SUK	A6,2 
	RB(NE)	INT350
	SUKL	A15,16
	LDKL	A7,LKMDIS 
	ST	A7,20,A15 
	LDKL	A7,/C000
	ST	A7,18,A15 
	LDR	A1,A4	TTAB ADDRESS 
	ABL	LD150	JUMP TO LOADER 
INT400	EQU	*
	ADKL	A14,8 
	LD	A2,-4,A14	UNMODIFIED RETURN ADRESS
	LD	A1,-6,A14	PSW FROM  STACK 
	ST	A1,18,A15 
	LD	A3,-2,A14	SEGMENT POINTER 
	RB(E)	RETTUR 
	SUR*	A2,A14	SUB LAST LOAD ADR
	LDR*	A1,A3	LOADED ?
	RB(N)	INT270 
	LD	A1,2,A3	LOAD ADDRESS
	ADR	A2,A1
	RB	RETTUR
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT INPREO  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…00ea              Head {h00=0x0028, h01=0x0050, text=»*   INPREO = SUBROUTINE INTERPRETER «, t00=0x0000, t01=0x00c2}
0x00ea…00f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…00fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0108              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…0112              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x0112…011c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…0126              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x0126…0160              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x012a}
0x0160…016a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…0174              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x0174…01b6              Head {h00=0x003e, h01=0x0050, text=»*   THIS IS A SUBROUTINE INTERPRETER TO HANDLE SUBROUTINE «, t00=0x0000, t01=0x0178}
0x01b6…01f6              Head {h00=0x003c, h01=0x0050, text=»*   CALLS USING THE A14 STACK. THE INTERPRETER IS CALLED«, t00=0x0001, t01=0x002a}
0x01f6…023a              Head {h00=0x0040, h01=0x0050, text=»*   WITH INSTRUCTION CODES /C001 - /C0FF WHERE /1 - /FF IS A«, t00=0x0001, t01=0x006a}
0x023a…026c              Head {h00=0x002e, h01=0x0050, text=»*   INDEX. INDEX VAULES ARE 1,2,3,4...... «, t00=0x0001, t01=0x00ae}
0x026c…02b0              Head {h00=0x0040, h01=0x0050, text=»*   THE INDEX IS USED TO GET ABSOLUTE ADDRESS TO THE CALLED «, t00=0x0001, t01=0x00e0}
0x02b0…02f8              Head {h00=0x0044, h01=0x0050, text=»*   SUBROUTINE FROM A ADDRESS TABLE. START ADDRESS OF THIS TABLE«, t00=0x0001, t01=0x0124}
0x02f8…0338              Head {h00=0x003c, h01=0x0050, text=»*   IS STORED IN COMMUNICATION VECTOR TABLE. ('CVTINP') «, t00=0x0001, t01=0x016c}
0x0338…0342              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0342…038e              Head {h00=0x0048, h01=0x0050, text=»*   THE INTERPRETER MAY ALSO EXECUTE THE FOLLOWING TWO INSTRUCTIONS:«, t00=0x0002, t01=0x0026}
0x038e…0398              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0072}
0x0398…03ca              Head {h00=0x002e, h01=0x0050, text=»*   LD  R1,DISPL,A13   CALLING CODE: CXYY «, t00=0x0002, t01=0x007c}
0x03ca…03d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ae}
0x03d4…0406              Head {h00=0x002e, h01=0x0050, text=»*   ST  R1,DISPL,A13   CALLING CODE: DXYY «, t00=0x0002, t01=0x00b8}
0x0406…0410              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x0410…0438              Head {h00=0x0024, h01=0x0050, text=»*   X =  R1 = REGISTERS A1 -A14 «, t00=0x0002, t01=0x00f4}
0x0438…045c              Head {h00=0x0020, h01=0x0050, text=»*   YY = DISPL (DISPLACMENT)«, t00=0x0002, t01=0x011c}
0x045c…0466              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x0466…0470              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014a}
0x0470…047a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0154}
0x047a…0488              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x015e}
0x0488…0492              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0492…049c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0176}
0x049c…04ae              Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0002, t01=0x0180}
0x04ae…04c0 (3, 0, 400)  Head {h00=0x000e, h01=0x0050, text=»* ENTRY * «, t00=0x0003, t01=0x0004}
0x04c0…04d2              Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0003, t01=0x0016}
0x04d2…04dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0028}
0x04dc…04e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0032}
0x04e6…0512              Head {h00=0x0028, h01=0x0050, text=» ENTRY IHINPT TRAP INTERRUPT ADDRESS«, t00=0x0003, t01=0x003c}
0x0512…051c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0068}
0x051c…0526              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0072}
0x0526…0530              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007c}
0x0530…0546              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0086}
0x0546…055c              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x009c}
0x055c…0572              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x00b2}
0x0572…057c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c8}
0x057c…0586              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d2}
0x0586…05b2              Head {h00=0x0028, h01=0x0050, text=» EXTRN CVTINP FUNCTION TABLE ADDRESS«, t00=0x0003, t01=0x00dc}
0x05b2…05d8              Head {h00=0x0022, h01=0x0050, text=» EXTRN UPDLRI UPDATE LRU QUEUE«, t00=0x0003, t01=0x0108}
0x05d8…05f4              Head {h00=0x0018, h01=0x0050, text=» EXTRN CVTLSB,CVTAPA«, t00=0x0003, t01=0x012e}
0x05f4…060c              Head {h00=0x0014, h01=0x0050, text=» EXTRN SRUN,PRUN«, t00=0x0003, t01=0x014a}
0x060c…0628              Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:SS,TTB:SP«, t00=0x0003, t01=0x0162}
0x0628…063e              Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:SA «, t00=0x0003, t01=0x017e}
0x063e…065e (4, 0, 398)  Head {h00=0x001c, h01=0x0050, text=» EXTRN LD150 LOADER JUMP«, t00=0x0004, t01=0x0004}
0x065e…0674              Head {h00=0x0012, h01=0x0050, text=» EXTRN LKMDIS «, t00=0x0004, t01=0x0024}
0x0674…0690              Head {h00=0x0018, h01=0x0050, text=» EXTRN RETUR3,RETUR8«, t00=0x0004, t01=0x003a}
0x0690…069e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0056}
0x069e…06a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0064}
0x06a8…06b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006e}
0x06b2…06ca              Head {h00=0x0014, h01=0x0050, text=»*   I H I N P T «, t00=0x0004, t01=0x0078}
0x06ca…06d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0090}
0x06d4…06f8              Head {h00=0x0020, h01=0x0050, text=»*   INTERPRETER TRAP HANDLER«, t00=0x0004, t01=0x009a}
0x06f8…0702              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00be}
0x0702…0716              Head {h00=0x0010, h01=0x0050, text=»IHINPT EQU *«, t00=0x0004, t01=0x00c8}
0x0716…072a              Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0004, t01=0x00dc}
0x072a…073e              Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0004, t01=0x00f0}
0x073e…0752              Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0004, t01=0x0104}
0x0752…077a              Head {h00=0x0024, h01=0x0050, text=» LD A1,10,A15 LOAD TRAP ADDRESS «, t00=0x0004, t01=0x0118}
0x077a…079c              Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A1 LOAD TRAP CODE«, t00=0x0004, t01=0x0140}
0x079c…07ae              Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0004, t01=0x0162}
0x07ae…07d0              Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CODE IN A3«, t00=0x0004, t01=0x0174}
0x07d0…07fc              Head {h00=0x0028, h01=0x0050, text=» ANKL A3,/F00 MASK OUT REGISTER CODE«, t00=0x0005, t01=0x0008}
0x07fc…082c              Head {h00=0x002c, h01=0x0050, text=» RF(Z) INT200 BRANCH IF SUBROUTINE CALL «, t00=0x0005, t01=0x0034}
0x082c…0836              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0064}
0x0836…0840              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006e}
0x0840…086a              Head {h00=0x0026, h01=0x0050, text=»*   EXECUTE LOAD/STORE INSTRUCTION«, t00=0x0005, t01=0x0078}
0x086a…0874              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a2}
0x0874…089e              Head {h00=0x0026, h01=0x0050, text=» ST A1,10,A15 SAVE RETURN ADDRESS «, t00=0x0005, t01=0x00ac}
0x089e…08c6              Head {h00=0x0024, h01=0x0050, text=» SC A2,DISPL+1 STORE DISPLACMENT«, t00=0x0005, t01=0x00d6}
0x08c6…08f6              Head {h00=0x002c, h01=0x0050, text=» SRL A3,1 SHIFT TO FIT INSTRUCTION CODE «, t00=0x0005, t01=0x00fe}
0x08f6…0908              Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0005, t01=0x012e}
0x0908…093a              Head {h00=0x002e, h01=0x0050, text=» RF(NN) INT100 BRANCH IF LOAD INSTRUCTION «, t00=0x0005, t01=0x0140}
0x093a…0966              Head {h00=0x0028, h01=0x0050, text=» ADK A3,1 INDICATE STORE INSTRUCTION«, t00=0x0005, t01=0x0172}
0x0966…09a0              Head {h00=0x0036, h01=0x0050, text=»INT100 ADKL A3,/8056 GET COMPLETE INSTRUCTION CODE«, t00=0x0006, t01=0x000e}
0x09a0…09d6              Head {h00=0x0032, h01=0x0050, text=» ST A3,INSTR STORE INSTRUCTION TO BE EXECUTED «, t00=0x0006, t01=0x0048}
0x09d6…09f6              Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A15 RESTORE A3 «, t00=0x0006, t01=0x007e}
0x09f6…0a18              Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A15 RESTORE A1-A2«, t00=0x0006, t01=0x009e}
0x0a18…0a2c              Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0006, t01=0x00c0}
0x0a2c…0a58              Head {h00=0x0028, h01=0x0050, text=»INSTR DATA 0 LOAD/STORE INSTRUCTION «, t00=0x0006, t01=0x00d4}
0x0a58…0a78              Head {h00=0x001c, h01=0x0050, text=»DISPL DATA 0 DISPLACMENT«, t00=0x0006, t01=0x0100}
0x0a78…0a94              Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0006, t01=0x0120}
0x0a94…0ac2              Head {h00=0x002a, h01=0x0050, text=» CF A15,IHSTAK SAVE CONDITION REGISTER«, t00=0x0006, t01=0x013c}
0x0ac2…0aea              Head {h00=0x0024, h01=0x0050, text=»IHSTAK LDR* A1,A15 GET COND. REG«, t00=0x0006, t01=0x016a}
0x0aea…0b12 (7, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» ST A1,6,A15 STORE IN RETURN PSW«, t00=0x0007, t01=0x0004}
0x0b12…0b3c              Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A15 DUMMY TO ADJUST STACK«, t00=0x0007, t01=0x002c}
0x0b3c…0b5a              Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A15 RELOAD A1«, t00=0x0007, t01=0x0056}
0x0b5a…0b82              Head {h00=0x0024, h01=0x0050, text=» RTN A15 RETURN TO USER PROGRAM «, t00=0x0007, t01=0x0074}
0x0b82…0b90              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x009c}
0x0b90…0b9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00aa}
0x0b9a…0ba4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b4}
0x0ba4…0bc8              Head {h00=0x0020, h01=0x0050, text=»*    EXECUTE SUBROUTINE CALL«, t00=0x0007, t01=0x00be}
0x0bc8…0bd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e2}
0x0bd2…0be6              Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x0007, t01=0x00ec}
0x0be6…0bfa              Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x0007, t01=0x0100}
0x0bfa…0c0e              Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x0007, t01=0x0114}
0x0c0e…0c22              Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x0007, t01=0x0128}
0x0c22…0c36              Head {h00=0x0010, h01=0x0050, text=» STR A7,A15 «, t00=0x0007, t01=0x013c}
0x0c36…0c4a              Head {h00=0x0010, h01=0x0050, text=» STR A8,A15 «, t00=0x0007, t01=0x0150}
0x0c4a…0c7e              Head {h00=0x0030, h01=0x0050, text=» LD A4,PRUN TTAB-ADDRESS OF RUNNING PROGRAM «, t00=0x0007, t01=0x0164}
0x0c7e…0c9c              Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FF GET INDEX «, t00=0x0008, t01=0x0008}
0x0c9c…0cb8              Head {h00=0x0018, h01=0x0050, text=» CWK A2,/FF RETURN ?«, t00=0x0008, t01=0x0026}
0x0cb8…0cd2              Head {h00=0x0016, h01=0x0050, text=» RF(E) INT400 YES «, t00=0x0008, t01=0x0042}
0x0cd2…0cec              Head {h00=0x0016, h01=0x0050, text=» LD A3,18,A15 PSW «, t00=0x0008, t01=0x005c}
0x0cec…0d14              Head {h00=0x0024, h01=0x0050, text=» ST A3,-6,A14 STORE ON A14 STACK«, t00=0x0008, t01=0x0076}
0x0d14…0d38              Head {h00=0x0020, h01=0x0050, text=» LD A3,SRUN SEGMENT POINTER «, t00=0x0008, t01=0x009e}
0x0d38…0d60              Head {h00=0x0024, h01=0x0050, text=» ST A3,-2,A14 STORE SP ON STACK «, t00=0x0008, t01=0x00c2}
0x0d60…0d90              Head {h00=0x002c, h01=0x0050, text=» ST A1,-4,A14 STORE ABS ADDRESS ON STACK«, t00=0x0008, t01=0x00ea}
0x0d90…0db0              Head {h00=0x001c, h01=0x0050, text=» LD A5,2,A3 LOAD ADDRESS«, t00=0x0008, t01=0x011a}
0x0db0…0dc4              Head {h00=0x0010, h01=0x0050, text=» STR A5,A14 «, t00=0x0008, t01=0x013a}
0x0dc4…0dd8              Head {h00=0x0010, h01=0x0050, text=» SUKL A14,8 «, t00=0x0008, t01=0x014e}
0x0dd8…0dea              Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0008, t01=0x0162}
0x0dea…0e0a              Head {h00=0x001c, h01=0x0050, text=» ADR A2,A2 DOUBLE INDEX «, t00=0x0008, t01=0x0174}
0x0e0a…0e40 (9, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» AD A2,CVTINP ADD FUNCTION TABLE START ADDRESS«, t00=0x0009, t01=0x0004}
0x0e40…0e6a              Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A2 GET SUBROUTINE POINTER«, t00=0x0009, t01=0x003a}
0x0e6a…0e7c              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0009, t01=0x0064}
0x0e7c…0e90              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0009, t01=0x0076}
0x0e90…0ea2              Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0009, t01=0x008a}
0x0ea2…0eb4              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0009, t01=0x009c}
0x0eb4…0ec6              Head {h00=0x000e, h01=0x0050, text=» SRL A3,8 «, t00=0x0009, t01=0x00ae}
0x0ec6…0ee6              Head {h00=0x001c, h01=0x0050, text=» RF(E) INT250 SEGMENT 0 «, t00=0x0009, t01=0x00c0}
0x0ee6…0ef8              Head {h00=0x000e, h01=0x0050, text=» SLL A3,2 «, t00=0x0009, t01=0x00e0}
0x0ef8…0f0a              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0009, t01=0x00f2}
0x0f0a…0f1c              Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0009, t01=0x0104}
0x0f1c…0f2e              Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0009, t01=0x0116}
0x0f2e…0f54              Head {h00=0x0022, h01=0x0050, text=» AD A3,CVTLSB SEGMENT POINTER «, t00=0x0009, t01=0x0128}
0x0f54…0f66              Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0009, t01=0x014e}
0x0f66…0f82              Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A3 LOADED ?«, t00=0x0009, t01=0x0160}
0x0f82…0f9a              Head {h00=0x0014, h01=0x0050, text=» RF(N) INT300 NO«, t00=0x0009, t01=0x017c}
0x0f9a…0fba (10, 0, 398) Head {h00=0x001c, h01=0x0050, text=» LD A1,2,A3 LOAD ADDRESS«, t00=0x000a, t01=0x0004}
0x0fba…0fce              Head {h00=0x0010, h01=0x0050, text=»INT230 EQU *«, t00=0x000a, t01=0x0024}
0x0fce…0fe0              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x000a, t01=0x0038}
0x0fe0…0ff4              Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x000a, t01=0x004a}
0x0ff4…1008              Head {h00=0x0010, h01=0x0050, text=»RETTUR EQU *«, t00=0x000a, t01=0x005e}
0x1008…101e              Head {h00=0x0012, h01=0x0050, text=» ST A2,20,A15 «, t00=0x000a, t01=0x0072}
0x101e…1048              Head {h00=0x0026, h01=0x0050, text=» ST A2,TTB:SA,A4 DISPATCH ADDRESS «, t00=0x000a, t01=0x0088}
0x1048…1076              Head {h00=0x002a, h01=0x0050, text=» ST A3,TTB:SP,A4 SAVE SEGMENT PIOINTER«, t00=0x000a, t01=0x00b2}
0x1076…109a              Head {h00=0x0020, h01=0x0050, text=» ST A3,SRUN SEGMENT RUNNING «, t00=0x000a, t01=0x00e0}
0x109a…10c6              Head {h00=0x0028, h01=0x0050, text=» ST A1,TTB:SS,A4 LAST START ADDRESS «, t00=0x000a, t01=0x0104}
0x10c6…10d8              Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x000a, t01=0x0130}
0x10d8…10ee              Head {h00=0x0012, h01=0x0050, text=» RF(E) INT240 «, t00=0x000a, t01=0x0142}
0x10ee…1104              Head {h00=0x0012, h01=0x0050, text=» CF A15,UPDLRI«, t00=0x000a, t01=0x0158}
0x1104…1118              Head {h00=0x0010, h01=0x0050, text=»INT240 EQU *«, t00=0x000a, t01=0x016e}
0x1118…112c              Head {h00=0x0010, h01=0x0050, text=» ABL RETUR8 «, t00=0x000a, t01=0x0182}
0x112c…1148              Head {h00=0x0018, h01=0x0050, text=»INT250 LD A1,CVTAPA «, t00=0x000b, t01=0x0008}
0x1148…115a              Head {h00=0x000e, h01=0x0050, text=» RB INT230«, t00=0x000b, t01=0x0024}
0x115a…116e              Head {h00=0x0010, h01=0x0050, text=»INT270 EQU *«, t00=0x000b, t01=0x0036}
0x116e…1180              Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x000b, t01=0x004a}
0x1180…1196              Head {h00=0x0012, h01=0x0050, text=»INT300 CM SRUN«, t00=0x000b, t01=0x005c}
0x1196…11ac              Head {h00=0x0012, h01=0x0050, text=» CM TTB:SP,A4 «, t00=0x000b, t01=0x0072}
0x11ac…11c2              Head {h00=0x0012, h01=0x0050, text=» CM TTB:SS,A4 «, t00=0x000b, t01=0x0088}
0x11c2…11de              Head {h00=0x0018, h01=0x0050, text=» ST A14,TTB:SA+28,A4«, t00=0x000b, t01=0x009e}
0x11de…11fa              Head {h00=0x0018, h01=0x0050, text=» ST A13,TTB:SA+26,A4«, t00=0x000b, t01=0x00ba}
0x11fa…1216              Head {h00=0x0018, h01=0x0050, text=» ST A12,TTB:SA+24,A4«, t00=0x000b, t01=0x00d6}
0x1216…1232              Head {h00=0x0018, h01=0x0050, text=» ST A11,TTB:SA+22,A4«, t00=0x000b, t01=0x00f2}
0x1232…124e              Head {h00=0x0018, h01=0x0050, text=» ST A10,TTB:SA+20,A4«, t00=0x000b, t01=0x010e}
0x124e…126a              Head {h00=0x0018, h01=0x0050, text=» ST A9,TTB:SA+18,A4 «, t00=0x000b, t01=0x012a}
0x126a…1282              Head {h00=0x0014, h01=0x0050, text=» LDKL A1,TTB:SA «, t00=0x000b, t01=0x0146}
0x1282…1294              Head {h00=0x000e, h01=0x0050, text=» ADR A1,A4«, t00=0x000b, t01=0x015e}
0x1294…12a6              Head {h00=0x000e, h01=0x0050, text=» LDK A6,16«, t00=0x000b, t01=0x0170}
0x12a6…12b8              Head {h00=0x000e, h01=0x0050, text=» ADK A1,16«, t00=0x000b, t01=0x0182}
0x12b8…12d2 (12, 0, 398) Head {h00=0x0016, h01=0x0050, text=»INT350 LDR* A5,A15«, t00=0x000c, t01=0x0004}
0x12d2…12e4              Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x000c, t01=0x001e}
0x12e4…12f6              Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x000c, t01=0x0030}
0x12f6…1308              Head {h00=0x000e, h01=0x0050, text=» SUK A6,2 «, t00=0x000c, t01=0x0042}
0x1308…131e              Head {h00=0x0012, h01=0x0050, text=» RB(NE) INT350«, t00=0x000c, t01=0x0054}
0x131e…1332              Head {h00=0x0010, h01=0x0050, text=» SUKL A15,16«, t00=0x000c, t01=0x006a}
0x1332…134a              Head {h00=0x0014, h01=0x0050, text=» LDKL A7,LKMDIS «, t00=0x000c, t01=0x007e}
0x134a…1360              Head {h00=0x0012, h01=0x0050, text=» ST A7,20,A15 «, t00=0x000c, t01=0x0096}
0x1360…1376              Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/C000«, t00=0x000c, t01=0x00ac}
0x1376…138c              Head {h00=0x0012, h01=0x0050, text=» ST A7,18,A15 «, t00=0x000c, t01=0x00c2}
0x138c…13ac              Head {h00=0x001c, h01=0x0050, text=» LDR A1,A4 TTAB ADDRESS «, t00=0x000c, t01=0x00d8}
0x13ac…13ce              Head {h00=0x001e, h01=0x0050, text=» ABL LD150 JUMP TO LOADER «, t00=0x000c, t01=0x00f8}
0x13ce…13e2              Head {h00=0x0010, h01=0x0050, text=»INT400 EQU *«, t00=0x000c, t01=0x011a}
0x13e2…13f6              Head {h00=0x0010, h01=0x0050, text=» ADKL A14,8 «, t00=0x000c, t01=0x012e}
0x13f6…1424              Head {h00=0x002a, h01=0x0050, text=» LD A2,-4,A14 UNMODIFIED RETURN ADRESS«, t00=0x000c, t01=0x0142}
0x1424…144a              Head {h00=0x0022, h01=0x0050, text=» LD A1,-6,A14 PSW FROM  STACK «, t00=0x000c, t01=0x0170}
0x144a…1460              Head {h00=0x0012, h01=0x0050, text=» ST A1,18,A15 «, t00=0x000d, t01=0x0008}
0x1460…1486              Head {h00=0x0022, h01=0x0050, text=» LD A3,-2,A14 SEGMENT POINTER «, t00=0x000d, t01=0x001e}
0x1486…149c              Head {h00=0x0012, h01=0x0050, text=» RB(E) RETTUR «, t00=0x000d, t01=0x0044}
0x149c…14c2              Head {h00=0x0022, h01=0x0050, text=» SUR* A2,A14 SUB LAST LOAD ADR«, t00=0x000d, t01=0x005a}
0x14c2…14de              Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A3 LOADED ?«, t00=0x000d, t01=0x0080}
0x14de…14f4              Head {h00=0x0012, h01=0x0050, text=» RB(N) INT270 «, t00=0x000d, t01=0x009c}
0x14f4…1514              Head {h00=0x001c, h01=0x0050, text=» LD A1,2,A3 LOAD ADDRESS«, t00=0x000d, t01=0x00b2}
0x1514…1526              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x000d, t01=0x00d2}
0x1526…1538              Head {h00=0x000e, h01=0x0050, text=» RB RETTUR«, t00=0x000d, t01=0x00e4}
0x1538…1542              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f6}
0x1542…154c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0100}
0x154c…1558              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000d, t01=0x010a}
0x1558…155c              Head {h00=0x4004, h01=0x0000}
0x155c…1560              00 0d 01 16                                                                                                                                                                                                                                       ┆    ┆
0x1560…1568 (14, 1, 8)   20 04 00 00 00 0e 00 04                                                                                                                                                                                                                           ┆        ┆
0x1568…156c (15, 0, 4)   06 80 06 88                                                                                                                                                                                                                                       ┆    ┆
0x156c…15bc (16, 0, 400) 00 32 00 50 5c 49 44 45 4e 54 20 49 4e 50 52 45 54 20 5c 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 20 00 00 00 04 00 04 00 50 00 00 00 3a 00 06 00 50 2a 20 00 00 00 42 00 36 00 50 2a 2a 2a 2a   ┆ 2 P IDENT INPRET  REL 8.1 78-04-21  870105040810        P   :   P*    B 6 P****┆
0x15bc…160c              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 4c 00 06 00 50 2a 20 00 00 00 86 00 24 00 50 2a 20 20 20 50 48 49 4c 49 50 53 20 54 45 52 4d   ┆**********************************************   L   P*      $ P*   PHILIPS TERM┆
0x160c…165c              49 4e 41 4c 20 53 59 53 54 45 4d 20 50 54 53 20 00 00 00 90 00 06 00 50 2a 20 00 00 00 b8 00 28 00 50 2a 20 20 20 49 4e 50 52 45 54 20 3d 20 53 55 42 52 4f 55 54 49 4e 45 20 49 4e 54 45 52 50 52 45 54 45 52 20 00 00 00 c2 00 06 00 50 2a 20   ┆INAL SYSTEM PTS        P*      ( P*   INPRET = SUBROUTINE INTERPRETER        P* ┆
0x165c…16ac              00 00 00 ee 00 06 00 50 2a 20 00 00 00 f8 00 06 00 50 2a 20 00 00 01 02 00 06 00 50 2a 20 00 00 01 0c 00 06 00 50 2a 20 00 00 01 16 00 06 00 50 2a 20 00 00 01 20 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆       P*        P*        P*        P*        P*      6 P**********************┆
0x16ac…16fc              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 01 2a 00 06 00 50 2a 20 00 00 01 64 00 06 00 50 2a 20 00 00 01 6e 00 3e 00 50 2a 20 20 20 54 48 49 53 20 49 53 20 41 20 53 55 42 52 4f 55 54 49 4e 45   ┆****************************   *   P*    d   P*    n > P*   THIS IS A SUBROUTINE┆
0x16fc…174c (17, 0, 400) 20 49 4e 54 45 52 50 52 45 54 45 52 20 54 4f 20 48 41 4e 44 4c 45 20 53 55 42 52 4f 55 54 49 4e 45 20 00 00 01 78 00 3c 00 50 2a 20 20 20 43 41 4c 4c 53 20 55 53 49 4e 47 20 54 48 45 20 41 31 34 20 53 54 41 43 4b 2e 20 54 48 45 20 49 4e 54   ┆ INTERPRETER TO HANDLE SUBROUTINE    x < P*   CALLS USING THE A14 STACK. THE INT┆
0x174c…179c              45 52 50 52 45 54 45 52 20 49 53 20 43 41 4c 4c 45 44 00 01 00 2a 00 40 00 50 2a 20 20 20 57 49 54 48 20 49 4e 53 54 52 55 43 54 49 4f 4e 20 43 4f 44 45 53 20 2f 43 30 30 31 20 2d 20 2f 43 30 46 46 20 57 48 45 52 45 20 2f 31 20 2d 20 2f 46   ┆ERPRETER IS CALLED   * @ P*   WITH INSTRUCTION CODES /C001 - /C0FF WHERE /1 - /F┆
0x179c…17ec              46 20 49 53 20 41 00 01 00 6a 00 2e 00 50 2a 20 20 20 49 4e 44 45 58 2e 20 49 4e 44 45 58 20 56 41 55 4c 45 53 20 41 52 45 20 31 2c 32 2c 33 2c 34 2e 2e 2e 2e 2e 2e 20 00 01 00 ae 00 40 00 50 2a 20 20 20 54 48 45 20 49 4e 44 45 58 20 49 53   ┆F IS A   j . P*   INDEX. INDEX VAULES ARE 1,2,3,4......      @ P*   THE INDEX IS┆
0x17ec…183c              20 55 53 45 44 20 54 4f 20 47 45 54 20 41 42 53 4f 4c 55 54 45 20 41 44 44 52 45 53 53 20 54 4f 20 54 48 45 20 43 41 4c 4c 45 44 20 00 01 00 e0 00 44 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 46 52 4f 4d 20 41 20 41 44 44 52 45 53   ┆ USED TO GET ABSOLUTE ADDRESS TO THE CALLED      D P*   SUBROUTINE FROM A ADDRES┆
0x183c…188c              53 20 54 41 42 4c 45 2e 20 53 54 41 52 54 20 41 44 44 52 45 53 53 20 4f 46 20 54 48 49 53 20 54 41 42 4c 45 00 01 01 24 00 3c 00 50 2a 20 20 20 49 53 20 53 54 4f 52 45 44 20 49 4e 20 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 20 56 45 43 54 4f   ┆S TABLE. START ADDRESS OF THIS TABLE   $ < P*   IS STORED IN COMMUNICATION VECTO┆
0x188c…18dc (18, 0, 398) 52 20 54 41 42 4c 45 2e 20 28 27 43 56 54 49 4e 50 27 29 20 00 01 01 6c 00 06 00 50 2a 20 00 02 00 1c 00 48 00 50 2a 20 20 20 54 48 45 20 49 4e 54 45 52 50 52 45 54 45 52 20 4d 41 59 20 41 4c 53 4f 20 45 58 45 43 55 54 45 20 54 48 45 20 46   ┆R TABLE. ('CVTINP')    l   P*      H P*   THE INTERPRETER MAY ALSO EXECUTE THE F┆
0x18dc…192c              4f 4c 4c 4f 57 49 4e 47 20 54 57 4f 20 49 4e 53 54 52 55 43 54 49 4f 4e 53 3a 00 02 00 26 00 06 00 50 2a 20 00 02 00 72 00 2e 00 50 2a 20 20 20 4c 44 20 20 52 31 2c 44 49 53 50 4c 2c 41 31 33 20 20 20 43 41 4c 4c 49 4e 47 20 43 4f 44 45 3a   ┆OLLOWING TWO INSTRUCTIONS:   &   P*    r . P*   LD  R1,DISPL,A13   CALLING CODE:┆
0x192c…197c              20 43 58 59 59 20 00 02 00 7c 00 06 00 50 2a 20 00 02 00 ae 00 2e 00 50 2a 20 20 20 53 54 20 20 52 31 2c 44 49 53 50 4c 2c 41 31 33 20 20 20 43 41 4c 4c 49 4e 47 20 43 4f 44 45 3a 20 44 58 59 59 20 00 02 00 b8 00 06 00 50 2a 20 00 02 00 ea   ┆ CXYY    |   P*      . P*   ST  R1,DISPL,A13   CALLING CODE: DXYY        P*     ┆
0x197c…19cc              00 24 00 50 2a 20 20 20 58 20 3d 20 20 52 31 20 3d 20 52 45 47 49 53 54 45 52 53 20 41 31 20 2d 41 31 34 20 00 02 00 f4 00 20 00 50 2a 20 20 20 59 59 20 3d 20 44 49 53 50 4c 20 28 44 49 53 50 4c 41 43 4d 45 4e 54 29 00 02 01 1c 00 06 00 50   ┆ $ P*   X =  R1 = REGISTERS A1 -A14        P*   YY = DISPL (DISPLACMENT)       P┆
0x19cc…1a1a              2a 20 00 02 01 40 00 06 00 50 2a 20 00 02 01 4a 00 06 00 50 2a 20 00 02 01 54 00 0a 00 50 5c 45 4a 45 43 54 00 02 01 5e 00 06 00 50 2a 20 00 02 01 6c 00 06 00 50 2a 20 00 02 01 76 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 02 01 80         ┆*    @   P*    J   P*    T   P EJECT   ^   P*    l   P*    v   P*********     ┆
0x1a1a…1a6a (19, 0, 400) 00 0e 00 50 2a 20 45 4e 54 52 59 20 2a 20 00 03 00 04 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 00 16 00 06 00 50 2a 20 00 03 00 28 00 06 00 50 2a 20 00 03 00 32 00 28 00 50 5c 45 4e 54 52 59 5c 49 48 49 4e 50 54 5c 54 52 41 50 20 49   ┆   P* ENTRY *        P*********        P*    (   P*    2 ( P ENTRY IHINPT TRAP I┆
0x1a6a…1aba              4e 54 45 52 52 55 50 54 20 41 44 44 52 45 53 53 00 03 00 3c 00 06 00 50 2a 20 00 03 00 68 00 06 00 50 2a 20 00 03 00 72 00 06 00 50 2a 20 00 03 00 7c 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 00 86 00 12 00 50 2a 20 45 58   ┆NTERRUPT ADDRESS   <   P*    h   P*    r   P*    |   P*************        P* EX┆
0x1aba…1b0a              54 45 52 4e 41 4c 53 20 2a 20 00 03 00 9c 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 00 b2 00 06 00 50 2a 20 00 03 00 c8 00 06 00 50 2a 20 00 03 00 d2 00 28 00 50 5c 45 58 54 52 4e 5c 43 56 54 49 4e 50 5c 46 55 4e 43 54 49   ┆TERNALS *        P*************        P*        P*      ( P EXTRN CVTINP FUNCTI┆
0x1b0a…1b5a              4f 4e 20 54 41 42 4c 45 20 41 44 44 52 45 53 53 00 03 00 dc 00 12 00 50 5c 45 58 54 52 4e 5c 52 45 54 55 52 33 20 00 03 01 08 00 0a 00 50 5c 45 4a 45 43 54 00 03 01 1e 00 06 00 50 2a 20 00 03 01 2c 00 06 00 50 2a 20 00 03 01 36 00 14 00 50   ┆ON TABLE ADDRESS       P EXTRN RETUR3        P EJECT       P*    ,   P*    6   P┆
0x1b5a…1baa              2a 20 20 20 49 20 48 20 49 20 4e 20 50 20 54 20 00 03 01 40 00 06 00 50 2a 20 00 03 01 58 00 20 00 50 2a 20 20 20 49 4e 54 45 52 50 52 45 54 45 52 20 54 52 41 50 20 48 41 4e 44 4c 45 52 00 03 01 62 00 06 00 50 2a 20 00 03 01 86 00 10 00 50   ┆*   I H I N P T    @   P*    X   P*   INTERPRETER TRAP HANDLER   b   P*        P┆
0x1baa…1bfa (20, 0, 400) 49 48 49 4e 50 54 5c 45 51 55 5c 2a 00 03 01 90 00 24 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 33 20 4f 4e 20 53 54 41 43 4b 20 00 04 00 14 00 10 00 50 5c 53 54 52 5c 41 32 2c 41 31 35 20 00 04 00 3c 00 20 00 50   ┆IHINPT EQU *     $ P STR A1,A15 SAVE A1-A3 ON STACK        P STR A2,A15    <   P┆
0x1bfa…1c4a              5c 53 54 52 5c 41 33 2c 41 31 35 5c 53 41 56 45 20 41 33 20 4f 4e 20 53 54 41 43 4b 00 04 00 50 00 24 00 50 5c 4c 44 5c 41 31 2c 31 30 2c 41 31 35 5c 4c 4f 41 44 20 54 52 41 50 20 41 44 44 52 45 53 53 20 00 04 00 74 00 1e 00 50 5c 4c 44 52   ┆ STR A3,A15 SAVE A3 ON STACK   P $ P LD A1,10,A15 LOAD TRAP ADDRESS    t   P LDR┆
0x1c4a…1c9a              2a 5c 41 32 2c 41 31 5c 4c 4f 41 44 20 54 52 41 50 20 43 4f 44 45 00 04 00 9c 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 32 5c 00 04 00 be 00 26 00 50 5c 53 54 5c 41 31 2c 31 30 2c 41 31 35 5c 53 41 56 45 20 52 45 54 55 52 4e 20 41 44 44 52 45 53   ┆* A2,A1 LOAD TRAP CODE       P ADK A1,2      & P ST A1,10,A15 SAVE RETURN ADDRES┆
0x1c9a…1cea              53 20 00 04 00 d0 00 1e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 5c 53 41 56 45 20 43 4f 44 45 20 49 4e 20 41 33 00 04 00 fa 00 28 00 50 5c 41 4e 4b 4c 5c 41 33 2c 2f 46 30 30 5c 4d 41 53 4b 20 4f 55 54 20 52 45 47 49 53 54 45 52 20 43 4f 44 45   ┆S        P LDR A3,A2 SAVE CODE IN A3     ( P ANKL A3,/F00 MASK OUT REGISTER CODE┆
0x1cea…1d3a              00 04 01 1c 00 2c 00 50 5c 52 46 28 5a 29 5c 49 4e 54 32 30 30 5c 42 52 41 4e 43 48 20 49 46 20 53 55 42 52 4f 55 54 49 4e 45 20 43 41 4c 4c 20 00 04 01 48 00 06 00 50 2a 20 00 04 01 78 00 06 00 50 2a 20 00 04 01 82 00 26 00 50 2a 20 20 20   ┆     , P RF(Z) INT200 BRANCH IF SUBROUTINE CALL    H   P*    x   P*      & P*   ┆

Reduced view