|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6112 (0x17e0)
Notes: pts_type(SC)
Names: »TIMER.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/TIMER.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/TIMER.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/TIMER.SC«
IDENT TIMER REL 8.2 78-09-15 870105040820 * *************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TIMER = TIMER FUNCTIONS * * * * * * *************************************************** * * * THIS MODULE CONTAINS TIMER LKM PROCESSORS AND * THE FOLLOWING SUBROUTINES: * * -SETIME: SET BLOCK IN TIMER QUEUE * -SETIMP: SETIME + STORE TIMER POINTER * * EJECT * * *********** * ENTRIES * *********** * * ENTRY TIMER LKM-PROCESSOR ENTRY SETIME SET BLOCK IN TIMER QUEUE ENTRY SETIMP SETIME + STORE TIMER POINTER * * *********** * EXTRNALS * ************ * * EXTRN TDISP DISPATCHER EXTRN SRUN POINTER TO RUNNING SEGMENT IN LSBT EXTRN LKMQDI QUEUE TERMINAL AND DISPARCH EXTRN LKMRQE LKM REQUEST ERROR EXTRN GETBLK GET A FREE BLOCK EXTRN FREBLK SET A BLOCK FREE EXTRN FNDTID FIND TTAB-ADDRESS EXTRN QTJOB QUEUE TERMINAL JOB EXTRN ACTOT ACTIVATE A TERMINAL EXTRN SAVE8 SAVE 8 REGISTERS ON STACK EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK EJECT * * T I M E R * * THIS IS THE TIMER LKM PROCESSOR. * IT IS ENTERED FROM THE LKM-HANDLER WITH THE FOLLOWING * PARAMETERS: * * 1. PROGRAM DELAY * * A4 = 0 * A5 = TTAB-ADDRESS * A8 = DELAY * * * 2. TIMING AND ACTIVATION * * A1 = PARAMETER * A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED * A5 = TTAB-ADDRESS OF CALLING PROGRAM * A7 = TERMINAL IDENTIFICATION OF PROGRAM TO BE ACTIVATED * A8 = DELAY * * TIMER EQU * LDR A4,A4 TIMING AND ACTIVATION ? RF(NZ) TIM010 YES * * * PROGRAM DELAY * LDR A1,A5 SET PARAMETER ST A8,PAR1+2 SET TIME CF A15,SETIME PAR1 DATA DELAY,0 TTDIS ABL TDISP GO TO DISPATCHER EJECT * * * TIMING AND ACTIVATION * TIM010 EQU * CF A15,FNDTID FIND TTAB-ADDRESS LDR A2,A2 ABL(Z) LKMRQE TTAB NOT FOUND LDR A3,A2 IN BLOCK A3=TTAB-ADDRESS LDR A2,A4 A2=DISPATCH ADDRESS CF A15,GETBLK A1=PARAMETER LDR A1,A4 SET BLOCK ADDRESS AS PARAMETER ST A8,PAR2+2 SET TIME CF A15,SETIME PAR2 DATA TIMACT,0 ABL LKMQDI EJECT * * * RETURN AFTER TIME OUT * * 1.PROGRAM DELAY * DELAY EQU * LDR A5,A1 SET TTAB-ADDRESS CF A15,QTJOB AND QUEUE FOR DISPATCHING RB TTDIS * * * 2. TIMING AND ACTIVATION * TIMACT EQU * LDR A4,A1 GET BLOCK ADDRESS CF A15,FREBLK AND SET IT FREE LDR A5,A3 SET TTAB-ADDRESS LD A3,SRUN GET POINTER TO RUNNIG SEGMENT RF(Z) TIMA JMP IF ROOT SEGMENT SU A2,2,A3 ELSE CALCULATE RELATIVE ADDRESS TIMA EQU * LDK A7,0 MONITOR ACTIVATION PARAMETER CF A15,ACTOT AND ACTIVATE TERMINAL RB TTDIS EJECT * * * S E T I M E , S E T I M P * * SUBROUTINE TO SET BLOCK IN TIMER QUEUE * AND IF SETIMP, STORE TIMER POINTER * ENTRY PARAMETERS:- * * A1 = PARAMETER * A4 = IF SETIMP: TIMER POINTER ADDRESS * P1 = DISPATCH ADDRESS AFTER TIME OUT * P2 = DELAY * * P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST * * EXIT PARAMETER:- * * A4 = ADDRESS TO TIMER * * SETIME EQU * LDK A4,0 SETIMP EQU * CF A15,SAVE8 LDR A6,A4 SAVE TIMER POINTER ADDRESS LDR A3,A4 LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS LDR* A2,A5 DISPATCH ADDRESS IN A2 ADK A5,2 LDR* A8,A5 TIME IN A8 ADK A5,2 ST A5,20,A15 ADJUST PROGRAM COUNTER CF A15,GETBLK GET A FREE BLOCK LDR A2,A4 C1R A1,A8 CF A15,GETBLK GET TIMER BLOCK LD A1,TIMQUE STR A1,A4 SET BLOCK IN QUEUE ST A4,TIMQUE ADK A4,4 ST A4,10,A15 SET TIMER ADDRESS A4 ON STACK LDR A6,A6 RF(Z) SETEND -SETIME STR A4,A6 -SETIMP STORE TIMER POINTER SETEND ABL IHRET8 * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT TIMER REL 8.2 78-09-15 870105040820«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0040}
0x0046…0082 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x004a}
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…00e2 Head {h00=0x0020, h01=0x0050, text=»* TIMER = TIMER FUNCTIONS «, t00=0x0000, t01=0x00c2}
0x00e2…00ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e6}
0x00ec…00f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f0}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…015a Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x0122}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…01a8 Head {h00=0x0036, h01=0x0050, text=»* THIS MODULE CONTAINS TIMER LKM PROCESSORS AND «, t00=0x0000, t01=0x0172}
0x01a8…01ce Head {h00=0x0022, h01=0x0050, text=»* THE FOLLOWING SUBROUTINES:«, t00=0x0001, t01=0x001c}
0x01ce…01d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0042}
0x01d8…0206 Head {h00=0x002a, h01=0x0050, text=»* -SETIME: SET BLOCK IN TIMER QUEUE«, t00=0x0001, t01=0x004c}
0x0206…0238 Head {h00=0x002e, h01=0x0050, text=»* -SETIMP: SETIME + STORE TIMER POINTER«, t00=0x0001, t01=0x007a}
0x0238…0242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ac}
0x0242…024c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b6}
0x024c…025a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00c0}
0x025a…0264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0264…026e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d8}
0x026e…0282 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x00e2}
0x0282…0296 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x00f6}
0x0296…02aa Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x010a}
0x02aa…02b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011e}
0x02b4…02be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02be…02e0 Head {h00=0x001e, h01=0x0050, text=» ENTRY TIMER LKM-PROCESSOR«, t00=0x0001, t01=0x0132}
0x02e0…030e Head {h00=0x002a, h01=0x0050, text=» ENTRY SETIME SET BLOCK IN TIMER QUEUE«, t00=0x0001, t01=0x0154}
0x030e…0340 Head {h00=0x002e, h01=0x0050, text=» ENTRY SETIMP SETIME + STORE TIMER POINTER«, t00=0x0001, t01=0x0182}
0x0340…034a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0024}
0x034a…0354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002e}
0x0354…0368 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0038}
0x0368…037c Head {h00=0x0010, h01=0x0050, text=»* EXTRNALS *«, t00=0x0002, t01=0x004c}
0x037c…0390 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0002, t01=0x0060}
0x0390…039a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x039a…03a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007e}
0x03a4…03c4 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x0088}
0x03c4…03fa Head {h00=0x0032, h01=0x0050, text=» EXTRN SRUN POINTER TO RUNNING SEGMENT IN LSBT«, t00=0x0002, t01=0x00a8}
0x03fa…042c Head {h00=0x002e, h01=0x0050, text=» EXTRN LKMQDI QUEUE TERMINAL AND DISPARCH «, t00=0x0002, t01=0x00de}
0x042c…0454 Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0110}
0x0454…047a Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBLK GET A FREE BLOCK«, t00=0x0002, t01=0x0138}
0x047a…04a0 Head {h00=0x0022, h01=0x0050, text=» EXTRN FREBLK SET A BLOCK FREE«, t00=0x0002, t01=0x015e}
0x04a0…04c8 Head {h00=0x0024, h01=0x0050, text=» EXTRN FNDTID FIND TTAB-ADDRESS «, t00=0x0002, t01=0x0184}
0x04c8…04f0 Head {h00=0x0024, h01=0x0050, text=» EXTRN QTJOB QUEUE TERMINAL JOB «, t00=0x0003, t01=0x001c}
0x04f0…0518 Head {h00=0x0024, h01=0x0050, text=» EXTRN ACTOT ACTIVATE A TERMINAL«, t00=0x0003, t01=0x0044}
0x0518…0546 Head {h00=0x002a, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON STACK«, t00=0x0003, t01=0x006c}
0x0546…0582 Head {h00=0x0038, h01=0x0050, text=» EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0003, t01=0x009a}
0x0582…05b6 Head {h00=0x0030, h01=0x0050, text=» EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK«, t00=0x0003, t01=0x00d6}
0x05b6…05c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x010a}
0x05c4…05ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0118}
0x05ce…05e4 Head {h00=0x0012, h01=0x0050, text=»* T I M E R «, t00=0x0003, t01=0x0122}
0x05e4…05ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0138}
0x05ee…061a Head {h00=0x0028, h01=0x0050, text=»* THIS IS THE TIMER LKM PROCESSOR.«, t00=0x0003, t01=0x0142}
0x061a…065c Head {h00=0x003e, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM-HANDLER WITH THE FOLLOWING «, t00=0x0003, t01=0x016e}
0x065c…0674 Head {h00=0x0014, h01=0x0050, text=»* PARAMETERS: «, t00=0x0004, t01=0x0020}
0x0674…067e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0038}
0x067e…069a Head {h00=0x0018, h01=0x0050, text=»* 1. PROGRAM DELAY«, t00=0x0004, t01=0x0042}
0x069a…06a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005e}
0x06a4…06b6 Head {h00=0x000e, h01=0x0050, text=»* A4 = 0«, t00=0x0004, t01=0x0068}
0x06b6…06d4 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB-ADDRESS «, t00=0x0004, t01=0x007a}
0x06d4…06ea Head {h00=0x0012, h01=0x0050, text=»* A8 = DELAY«, t00=0x0004, t01=0x0098}
0x06ea…06f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ae}
0x06f4…06fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b8}
0x06fe…0722 Head {h00=0x0020, h01=0x0050, text=»* 2. TIMING AND ACTIVATION«, t00=0x0004, t01=0x00c2}
0x0722…072c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e6}
0x072c…0746 Head {h00=0x0016, h01=0x0050, text=»* A1 = PARAMETER«, t00=0x0004, t01=0x00f0}
0x0746…0782 Head {h00=0x0038, h01=0x0050, text=»* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED«, t00=0x0004, t01=0x010a}
0x0782…07b2 Head {h00=0x002c, h01=0x0050, text=»* A5 = TTAB-ADDRESS OF CALLING PROGRAM«, t00=0x0004, t01=0x0146}
0x07b2…07f6 Head {h00=0x0040, h01=0x0050, text=»* A7 = TERMINAL IDENTIFICATION OF PROGRAM TO BE ACTIVATED «, t00=0x0004, t01=0x0176}
0x07f6…080c Head {h00=0x0012, h01=0x0050, text=»* A8 = DELAY«, t00=0x0005, t01=0x002a}
0x080c…0816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0040}
0x0816…0820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004a}
0x0820…0834 Head {h00=0x0010, h01=0x0050, text=»TIMER EQU * «, t00=0x0005, t01=0x0054}
0x0834…085e Head {h00=0x0026, h01=0x0050, text=» LDR A4,A4 TIMING AND ACTIVATION ?«, t00=0x0005, t01=0x0068}
0x085e…0878 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TIM010 YES«, t00=0x0005, t01=0x0092}
0x0878…0882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ac}
0x0882…088c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b6}
0x088c…08a6 Head {h00=0x0016, h01=0x0050, text=»* PROGRAM DELAY «, t00=0x0005, t01=0x00c0}
0x08a6…08b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00da}
0x08b0…08d0 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A5 SET PARAMETER«, t00=0x0005, t01=0x00e4}
0x08d0…08ee Head {h00=0x001a, h01=0x0050, text=» ST A8,PAR1+2 SET TIME«, t00=0x0005, t01=0x0104}
0x08ee…0904 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x0005, t01=0x0122}
0x0904…091e Head {h00=0x0016, h01=0x0050, text=»PAR1 DATA DELAY,0 «, t00=0x0005, t01=0x0138}
0x091e…0946 Head {h00=0x0024, h01=0x0050, text=»TTDIS ABL TDISP GO TO DISPATCHER«, t00=0x0005, t01=0x0152}
0x0946…0954 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x017a}
0x0954…095e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0188}
0x095e…0968 (6, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0004}
0x0968…098a Head {h00=0x001e, h01=0x0050, text=»* TIMING AND ACTIVATION «, t00=0x0006, t01=0x000e}
0x098a…0994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0030}
0x0994…09a8 Head {h00=0x0010, h01=0x0050, text=»TIM010 EQU *«, t00=0x0006, t01=0x003a}
0x09a8…09d0 Head {h00=0x0024, h01=0x0050, text=» CF A15,FNDTID FIND TTAB-ADDRESS«, t00=0x0006, t01=0x004e}
0x09d0…09e4 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A2 «, t00=0x0006, t01=0x0076}
0x09e4…0a0a Head {h00=0x0022, h01=0x0050, text=» ABL(Z) LKMRQE TTAB NOT FOUND «, t00=0x0006, t01=0x008a}
0x0a0a…0a36 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A2 IN BLOCK A3=TTAB-ADDRESS «, t00=0x0006, t01=0x00b0}
0x0a36…0a66 Head {h00=0x002c, h01=0x0050, text=» LDR A2,A4 A2=DISPATCH ADDRESS «, t00=0x0006, t01=0x00dc}
0x0a66…0a92 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETBLK A1=PARAMETER«, t00=0x0006, t01=0x010c}
0x0a92…0ac4 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A4 SET BLOCK ADDRESS AS PARAMETER «, t00=0x0006, t01=0x0138}
0x0ac4…0ae2 Head {h00=0x001a, h01=0x0050, text=» ST A8,PAR2+2 SET TIME«, t00=0x0006, t01=0x016a}
0x0ae2…0af8 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x0006, t01=0x0188}
0x0af8…0b12 Head {h00=0x0016, h01=0x0050, text=»PAR2 DATA TIMACT,0«, t00=0x0007, t01=0x000e}
0x0b12…0b26 Head {h00=0x0010, h01=0x0050, text=» ABL LKMQDI «, t00=0x0007, t01=0x0028}
0x0b26…0b34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x003c}
0x0b34…0b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004a}
0x0b3e…0b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0054}
0x0b48…0b6a Head {h00=0x001e, h01=0x0050, text=»* RETURN AFTER TIME OUT «, t00=0x0007, t01=0x005e}
0x0b6a…0b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0080}
0x0b74…0b90 Head {h00=0x0018, h01=0x0050, text=»* 1.PROGRAM DELAY «, t00=0x0007, t01=0x008a}
0x0b90…0b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a6}
0x0b9a…0bae Head {h00=0x0010, h01=0x0050, text=»DELAY EQU * «, t00=0x0007, t01=0x00b0}
0x0bae…0bd2 Head {h00=0x0020, h01=0x0050, text=» LDR A5,A1 SET TTAB-ADDRESS «, t00=0x0007, t01=0x00c4}
0x0bd2…0c02 Head {h00=0x002c, h01=0x0050, text=» CF A15,QTJOB AND QUEUE FOR DISPATCHING «, t00=0x0007, t01=0x00e8}
0x0c02…0c14 Head {h00=0x000e, h01=0x0050, text=» RB TTDIS «, t00=0x0007, t01=0x0118}
0x0c14…0c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012a}
0x0c1e…0c28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0134}
0x0c28…0c4c Head {h00=0x0020, h01=0x0050, text=»* 2. TIMING AND ACTIVATION«, t00=0x0007, t01=0x013e}
0x0c4c…0c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0162}
0x0c56…0c6a Head {h00=0x0010, h01=0x0050, text=»TIMACT EQU *«, t00=0x0007, t01=0x016c}
0x0c6a…0c8e Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 GET BLOCK ADDRESS«, t00=0x0007, t01=0x0180}
0x0c8e…0cb4 Head {h00=0x0022, h01=0x0050, text=» CF A15,FREBLK AND SET IT FREE«, t00=0x0008, t01=0x0014}
0x0cb4…0cd8 Head {h00=0x0020, h01=0x0050, text=» LDR A5,A3 SET TTAB-ADDRESS «, t00=0x0008, t01=0x003a}
0x0cd8…0d0a Head {h00=0x002e, h01=0x0050, text=» LD A3,SRUN GET POINTER TO RUNNIG SEGMENT «, t00=0x0008, t01=0x005e}
0x0d0a…0d32 Head {h00=0x0024, h01=0x0050, text=» RF(Z) TIMA JMP IF ROOT SEGMENT «, t00=0x0008, t01=0x0090}
0x0d32…0d66 Head {h00=0x0030, h01=0x0050, text=» SU A2,2,A3 ELSE CALCULATE RELATIVE ADDRESS «, t00=0x0008, t01=0x00b8}
0x0d66…0d78 Head {h00=0x000e, h01=0x0050, text=»TIMA EQU *«, t00=0x0008, t01=0x00ec}
0x0d78…0da6 Head {h00=0x002a, h01=0x0050, text=» LDK A7,0 MONITOR ACTIVATION PARAMETER«, t00=0x0008, t01=0x00fe}
0x0da6…0dd2 Head {h00=0x0028, h01=0x0050, text=» CF A15,ACTOT AND ACTIVATE TERMINAL «, t00=0x0008, t01=0x012c}
0x0dd2…0de4 Head {h00=0x000e, h01=0x0050, text=» RB TTDIS «, t00=0x0008, t01=0x0158}
0x0de4…0df2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x016a}
0x0df2…0dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0178}
0x0dfc…0e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0182}
0x0e06…0e2c Head {h00=0x0022, h01=0x0050, text=»* S E T I M E , S E T I M P «, t00=0x0008, t01=0x018c}
0x0e2c…0e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0022}
0x0e36…0e68 Head {h00=0x002e, h01=0x0050, text=»* SUBROUTINE TO SET BLOCK IN TIMER QUEUE«, t00=0x0009, t01=0x002c}
0x0e68…0e96 Head {h00=0x002a, h01=0x0050, text=»* AND IF SETIMP, STORE TIMER POINTER«, t00=0x0009, t01=0x005e}
0x0e96…0eb4 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS:-«, t00=0x0009, t01=0x008c}
0x0eb4…0ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00aa}
0x0ebe…0ed8 Head {h00=0x0016, h01=0x0050, text=»* A1 = PARAMETER«, t00=0x0009, t01=0x00b4}
0x0ed8…0f0a Head {h00=0x002e, h01=0x0050, text=»* A4 = IF SETIMP: TIMER POINTER ADDRESS «, t00=0x0009, t01=0x00ce}
0x0f0a…0f3a Head {h00=0x002c, h01=0x0050, text=»* P1 = DISPATCH ADDRESS AFTER TIME OUT«, t00=0x0009, t01=0x0100}
0x0f3a…0f50 Head {h00=0x0012, h01=0x0050, text=»* P2 = DELAY«, t00=0x0009, t01=0x0130}
0x0f50…0f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0146}
0x0f5a…0f98 Head {h00=0x003a, h01=0x0050, text=»* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST «, t00=0x0009, t01=0x0150}
0x0f98…0fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x018e}
0x0fa2…0fbe Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER:-«, t00=0x000a, t01=0x0008}
0x0fbe…0fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0024}
0x0fc8…0fea Head {h00=0x001e, h01=0x0050, text=»* A4 = ADDRESS TO TIMER «, t00=0x000a, t01=0x002e}
0x0fea…0ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0050}
0x0ff4…0ffe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005a}
0x0ffe…1012 Head {h00=0x0010, h01=0x0050, text=»SETIME EQU *«, t00=0x000a, t01=0x0064}
0x1012…1024 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x000a, t01=0x0078}
0x1024…1038 Head {h00=0x0010, h01=0x0050, text=»SETIMP EQU *«, t00=0x000a, t01=0x008a}
0x1038…104e Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x000a, t01=0x009e}
0x104e…107c Head {h00=0x002a, h01=0x0050, text=» LDR A6,A4 SAVE TIMER POINTER ADDRESS «, t00=0x000a, t01=0x00b4}
0x107c…108e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x000a, t01=0x00e2}
0x108e…10c0 Head {h00=0x002e, h01=0x0050, text=» LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS«, t00=0x000a, t01=0x00f4}
0x10c0…10ea Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A5 DISPATCH ADDRESS IN A2«, t00=0x000a, t01=0x0126}
0x10ea…10fc Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x000a, t01=0x0150}
0x10fc…111a Head {h00=0x001a, h01=0x0050, text=» LDR* A8,A5 TIME IN A8«, t00=0x000a, t01=0x0162}
0x111a…112c Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x000a, t01=0x0180}
0x112c…1158 (11, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ST A5,20,A15 ADJUST PROGRAM COUNTER«, t00=0x000b, t01=0x0004}
0x1158…1180 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBLK GET A FREE BLOCK «, t00=0x000b, t01=0x0030}
0x1180…1192 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x000b, t01=0x0058}
0x1192…11a4 Head {h00=0x000e, h01=0x0050, text=» C1R A1,A8«, t00=0x000b, t01=0x006a}
0x11a4…11ca Head {h00=0x0022, h01=0x0050, text=» CF A15,GETBLK GET TIMER BLOCK«, t00=0x000b, t01=0x007c}
0x11ca…11e0 Head {h00=0x0012, h01=0x0050, text=» LD A1,TIMQUE «, t00=0x000b, t01=0x00a2}
0x11e0…1206 Head {h00=0x0022, h01=0x0050, text=» STR A1,A4 SET BLOCK IN QUEUE «, t00=0x000b, t01=0x00b8}
0x1206…121c Head {h00=0x0012, h01=0x0050, text=» ST A4,TIMQUE «, t00=0x000b, t01=0x00de}
0x121c…122e Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x000b, t01=0x00f4}
0x122e…1262 Head {h00=0x0030, h01=0x0050, text=» ST A4,10,A15 SET TIMER ADDRESS A4 ON STACK «, t00=0x000b, t01=0x0106}
0x1262…1274 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x000b, t01=0x013a}
0x1274…1292 Head {h00=0x001a, h01=0x0050, text=» RF(Z) SETEND -SETIME «, t00=0x000b, t01=0x014c}
0x1292…12c2 Head {h00=0x002c, h01=0x0050, text=» STR A4,A6 -SETIMP STORE TIMER POINTER «, t00=0x000b, t01=0x016a}
0x12c2…12dc Head {h00=0x0016, h01=0x0050, text=»SETEND ABL IHRET8 «, t00=0x000c, t01=0x000a}
0x12dc…12e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0024}
0x12e6…12f2 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000c, t01=0x002e}
0x12f2…12f6 Head {h00=0x4004, h01=0x0000}
0x12f6…12fa 00 0c 00 3a ┆ :┆
0x12fa…1302 (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆
0x1302…1352 (14, 2, 394) 00 29 02 9e 00 2b 02 9a 00 2d 02 96 00 04 01 58 00 48 00 44 04 21 00 40 00 35 50 08 00 43 54 8a 00 4f 50 08 00 57 57 76 00 5d 50 10 00 63 52 0a 00 69 50 64 00 6d 57 60 00 73 51 02 00 79 03 bc 00 87 54 08 00 8f 54 82 00 93 50 3a 00 97 54 04 ┆ ) + - X H D ! @ 5P CT OP WWv ]P cR iPd mW` sQ y T T P: T ┆
0x1352…13a2 00 9b 57 30 00 9f 50 2a 00 05 00 14 00 48 00 44 04 21 00 01 00 a3 54 04 00 a7 57 26 00 ab 50 22 00 af 54 06 00 b5 57 18 00 b9 54 06 00 bd 50 10 00 c7 50 3c 00 c9 57 48 00 e5 50 08 01 07 52 3c 01 09 54 0c 01 11 50 20 01 1d 54 08 01 25 57 0c ┆ W0 P* H D ! T W& P" T W T P P< WH P R< T P T %W ┆
0x13a2…13f2 01 29 03 ae 00 05 00 60 00 48 00 44 04 21 a0 00 01 31 02 60 01 39 52 04 01 43 02 62 01 75 57 08 01 7d 54 04 01 87 50 58 01 8b 51 82 01 9d 50 04 01 a7 50 44 01 ab 50 b4 01 b1 52 12 01 b3 54 14 01 cf 52 04 01 f3 54 0c 01 f7 52 04 02 11 50 10 ┆ ) ` H D ! 1 ` 9R C b uW }T PX Q P PD P R T R T R P ┆
0x13f2…1442 00 05 00 ac 00 48 00 44 04 21 40 03 02 25 50 4e 02 29 03 ae 02 2f 50 1c 02 3b 52 10 02 4b 57 16 02 7f 50 04 02 99 57 06 02 9d 57 02 02 bb 56 5c 02 c1 54 14 02 c5 50 08 02 c9 50 04 02 cd 54 04 02 dd 50 32 02 ed 03 bc 02 fb 03 ca 00 05 00 f8 ┆ H D !@ %PN ) /P ;R KW P W W V T P P T P2 ┆
0x1442…148c 00 2c 00 28 04 13 80 00 03 07 03 e6 03 1f 50 1c 03 23 54 1c 03 2b 54 04 03 33 54 04 03 61 52 32 03 6d 50 30 03 71 54 16 03 77 54 0a 00 05 01 44 00 0e 00 0a 07 04 00 00 00 00 03 e6 00 00 00 05 01 74 40 04 00 00 00 05 01 86 ┆ , ( P #T +T 3T aR2 mP0 qT wT D t@ ┆
0x148c…14dc (15, 2, 142) 00 4a 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 49 4e 54 4c 54 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 0e ┆ J F IDENT INTLT1 REL 8.1 78-04-21 870105040810 ┆
0x14dc…151a 00 0a 01 04 c4 49 4e 54 4c 54 31 cc 00 00 00 52 00 10 00 0c 05 05 dc 49 4e 54 4c 54 31 cc 00 00 00 00 00 64 00 0e 00 0a 07 04 00 00 00 00 00 00 00 00 00 00 00 78 40 04 00 00 00 00 00 8a ┆ INTLT1 R INTLT1 d x@ ┆
0x151a…156a (16, 2, 142) 00 4a 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 49 4e 54 4c 54 32 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 0e ┆ J F IDENT INTLT2 REL 8.1 78-04-21 870105040810 ┆
0x156a…15a8 00 0a 01 04 c4 49 4e 54 4c 54 32 cc 00 00 00 52 00 10 00 0c 05 05 dc 49 4e 54 4c 54 32 cc 00 00 00 00 00 64 00 0e 00 0a 07 04 00 00 00 00 00 00 00 00 00 00 00 78 40 04 00 00 00 00 00 8a ┆ INTLT2 R INTLT2 d x@ ┆
0x15a8…15f8 (17, 2, 142) 00 4a 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 49 4e 54 4c 54 33 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 0e ┆ J F IDENT INTLT3 REL 8.1 78-04-21 870105040810 ┆
0x15f8…1636 00 0a 01 04 c4 49 4e 54 4c 54 33 cc 00 00 00 52 00 10 00 0c 05 05 dc 49 4e 54 4c 54 33 cc 00 00 00 00 00 64 00 0e 00 0a 07 04 00 00 00 00 00 00 00 00 00 00 00 78 40 04 00 00 00 00 00 8a ┆ INTLT3 R INTLT3 d x@ ┆
0x1636…1686 (18, 2, 142) 00 4a 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 49 4e 54 4c 54 34 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 0e ┆ J F IDENT INTLT4 REL 8.1 78-04-21 870105040810 ┆
0x1686…16c4 00 0a 01 04 c4 49 4e 54 4c 54 34 cc 00 00 00 52 00 10 00 0c 05 05 dc 49 4e 54 4c 54 34 cc 00 00 00 00 00 64 00 0e 00 0a 07 04 00 00 00 00 00 00 00 00 00 00 00 78 40 04 00 00 00 00 00 8a ┆ INTLT4 R INTLT4 d x@ ┆
0x16c4…1714 (19, 2, 142) 00 4a 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 49 4e 54 52 54 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 0e ┆ J F IDENT INTRT1 REL 8.1 78-04-21 870105040810 ┆
0x1714…1752 00 0a 01 04 c4 49 4e 54 52 54 31 cc 00 00 00 52 00 10 00 0c 05 05 dc 49 4e 54 52 54 31 cc 00 00 00 00 00 64 00 0e 00 0a 07 04 00 00 00 00 00 00 00 00 00 00 00 78 40 04 00 00 00 00 00 8a ┆ INTRT1 R INTRT1 d x@ ┆
0x1752…17a2 (20, 2, 142) 00 4a 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 49 4e 54 52 54 32 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 0e ┆ J F IDENT INTRT2 REL 8.1 78-04-21 870105040810 ┆
0x17a2…17e0 00 0a 01 04 c4 49 4e 54 52 54 32 cc 00 00 00 52 00 10 00 0c 05 05 dc 49 4e 54 52 54 32 cc 00 00 00 00 00 64 00 0e 00 0a 07 04 00 00 00 00 00 00 00 00 00 00 00 78 40 04 00 00 00 00 00 8a ┆ INTRT2 R INTRT2 d x@ ┆