|
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: 6772 (0x1a74)
Notes: pts_type(SC)
Names: »TIMER.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/TIMER.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/TIMER.SC«
IDENT TIMER REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * *************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TIMER = TIMER FUNCTIONS * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * *************************************************** * * * 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 * 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…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT TIMER REL=7.2 DATE=77-09-09 «, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…0096 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x005e}
0x0096…00a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009a}
0x00a0…00c8 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a4}
0x00c8…00d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00cc}
0x00d2…00f6 Head {h00=0x0020, h01=0x0050, text=»* TIMER = TIMER FUNCTIONS «, t00=0x0000, t01=0x00d6}
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…012c Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x010e}
0x012c…0136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0158 Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x013a}
0x0158…0162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015c}
0x0162…019e Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x0166}
0x019e…01a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0012}
0x01a8…01b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001c}
0x01b2…01ec Head {h00=0x0036, h01=0x0050, text=»* THIS MODULE CONTAINS TIMER LKM PROCESSORS AND «, t00=0x0001, t01=0x0026}
0x01ec…0212 Head {h00=0x0022, h01=0x0050, text=»* THE FOLLOWING SUBROUTINES:«, t00=0x0001, t01=0x0060}
0x0212…021c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0086}
0x021c…024a Head {h00=0x002a, h01=0x0050, text=»* -SETIME: SET BLOCK IN TIMER QUEUE«, t00=0x0001, t01=0x0090}
0x024a…027c Head {h00=0x002e, h01=0x0050, text=»* -SETIMP: SETIME + STORE TIMER POINTER«, t00=0x0001, t01=0x00be}
0x027c…0286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f0}
0x0286…0290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fa}
0x0290…029e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0104}
0x029e…02a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0112}
0x02a8…02b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011c}
0x02b2…02c6 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x0126}
0x02c6…02da Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x013a}
0x02da…02ee Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x014e}
0x02ee…02f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0162}
0x02f8…0302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016c}
0x0302…0324 Head {h00=0x001e, h01=0x0050, text=» ENTRY TIMER LKM-PROCESSOR«, t00=0x0001, t01=0x0176}
0x0324…0352 Head {h00=0x002a, h01=0x0050, text=» ENTRY SETIME SET BLOCK IN TIMER QUEUE«, t00=0x0002, t01=0x0008}
0x0352…0384 Head {h00=0x002e, h01=0x0050, text=» ENTRY SETIMP SETIME + STORE TIMER POINTER«, t00=0x0002, t01=0x0036}
0x0384…038e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0068}
0x038e…0398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0072}
0x0398…03ac Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x007c}
0x03ac…03c0 Head {h00=0x0010, h01=0x0050, text=»* EXTRNALS *«, t00=0x0002, t01=0x0090}
0x03c0…03d4 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0002, t01=0x00a4}
0x03d4…03de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b8}
0x03de…03e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c2}
0x03e8…0408 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x00cc}
0x0408…043e Head {h00=0x0032, h01=0x0050, text=» EXTRN SRUN POINTER TO RUNNING SEGMENT IN LSBT«, t00=0x0002, t01=0x00ec}
0x043e…0470 Head {h00=0x002e, h01=0x0050, text=» EXTRN LKMQDI QUEUE TERMINAL AND DISPARCH «, t00=0x0002, t01=0x0122}
0x0470…0498 Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0154}
0x0498…04be Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBLK GET A FREE BLOCK«, t00=0x0002, t01=0x017c}
0x04be…04e4 Head {h00=0x0022, h01=0x0050, text=» EXTRN FREBLK SET A BLOCK FREE«, t00=0x0003, t01=0x0012}
0x04e4…050c Head {h00=0x0024, h01=0x0050, text=» EXTRN FNDTID FIND TTAB-ADDRESS «, t00=0x0003, t01=0x0038}
0x050c…0534 Head {h00=0x0024, h01=0x0050, text=» EXTRN QTJOB QUEUE TERMINAL JOB «, t00=0x0003, t01=0x0060}
0x0534…055c Head {h00=0x0024, h01=0x0050, text=» EXTRN ACTOT ACTIVATE A TERMINAL«, t00=0x0003, t01=0x0088}
0x055c…058a Head {h00=0x002a, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON STACK«, t00=0x0003, t01=0x00b0}
0x058a…05c6 Head {h00=0x0038, h01=0x0050, text=» EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0003, t01=0x00de}
0x05c6…05fa Head {h00=0x0030, h01=0x0050, text=» EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK«, t00=0x0003, t01=0x011a}
0x05fa…0608 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x014e}
0x0608…0612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015c}
0x0612…0628 Head {h00=0x0012, h01=0x0050, text=»* T I M E R «, t00=0x0003, t01=0x0166}
0x0628…0632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017c}
0x0632…065e Head {h00=0x0028, h01=0x0050, text=»* THIS IS THE TIMER LKM PROCESSOR.«, t00=0x0003, t01=0x0186}
0x065e…06a0 Head {h00=0x003e, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM-HANDLER WITH THE FOLLOWING «, t00=0x0004, t01=0x0022}
0x06a0…06b8 Head {h00=0x0014, h01=0x0050, text=»* PARAMETERS: «, t00=0x0004, t01=0x0064}
0x06b8…06c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007c}
0x06c2…06de Head {h00=0x0018, h01=0x0050, text=»* 1. PROGRAM DELAY«, t00=0x0004, t01=0x0086}
0x06de…06e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a2}
0x06e8…06fa Head {h00=0x000e, h01=0x0050, text=»* A4 = 0«, t00=0x0004, t01=0x00ac}
0x06fa…0718 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB-ADDRESS «, t00=0x0004, t01=0x00be}
0x0718…072e Head {h00=0x0012, h01=0x0050, text=»* A8 = DELAY«, t00=0x0004, t01=0x00dc}
0x072e…0738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f2}
0x0738…0742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00fc}
0x0742…0766 Head {h00=0x0020, h01=0x0050, text=»* 2. TIMING AND ACTIVATION«, t00=0x0004, t01=0x0106}
0x0766…0770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012a}
0x0770…078a Head {h00=0x0016, h01=0x0050, text=»* A1 = PARAMETER«, t00=0x0004, t01=0x0134}
0x078a…07c6 Head {h00=0x0038, h01=0x0050, text=»* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED«, t00=0x0004, t01=0x014e}
0x07c6…07f6 Head {h00=0x002c, h01=0x0050, text=»* A5 = TTAB-ADDRESS OF CALLING PROGRAM«, t00=0x0004, t01=0x018a}
0x07f6…083a Head {h00=0x0040, h01=0x0050, text=»* A7 = TERMINAL IDENTIFICATION OF PROGRAM TO BE ACTIVATED «, t00=0x0005, t01=0x002a}
0x083a…0850 Head {h00=0x0012, h01=0x0050, text=»* A8 = DELAY«, t00=0x0005, t01=0x006e}
0x0850…085a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0084}
0x085a…0864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008e}
0x0864…0878 Head {h00=0x0010, h01=0x0050, text=»TIMER EQU * «, t00=0x0005, t01=0x0098}
0x0878…08a2 Head {h00=0x0026, h01=0x0050, text=» LDR A4,A4 TIMING AND ACTIVATION ?«, t00=0x0005, t01=0x00ac}
0x08a2…08bc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TIM010 YES«, t00=0x0005, t01=0x00d6}
0x08bc…08c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f0}
0x08c6…08d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fa}
0x08d0…08ea Head {h00=0x0016, h01=0x0050, text=»* PROGRAM DELAY «, t00=0x0005, t01=0x0104}
0x08ea…08f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011e}
0x08f4…0914 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A5 SET PARAMETER«, t00=0x0005, t01=0x0128}
0x0914…0932 Head {h00=0x001a, h01=0x0050, text=» ST A8,PAR1+2 SET TIME«, t00=0x0005, t01=0x0148}
0x0932…0948 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x0005, t01=0x0166}
0x0948…0962 Head {h00=0x0016, h01=0x0050, text=»PAR1 DATA DELAY,0 «, t00=0x0005, t01=0x017c}
0x0962…098a Head {h00=0x0024, h01=0x0050, text=»TTDIS ABL TDISP GO TO DISPATCHER«, t00=0x0006, t01=0x0008}
0x098a…0998 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0030}
0x0998…09a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003e}
0x09a2…09ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0048}
0x09ac…09ce Head {h00=0x001e, h01=0x0050, text=»* TIMING AND ACTIVATION «, t00=0x0006, t01=0x0052}
0x09ce…09d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0074}
0x09d8…09ec Head {h00=0x0010, h01=0x0050, text=»TIM010 EQU *«, t00=0x0006, t01=0x007e}
0x09ec…0a14 Head {h00=0x0024, h01=0x0050, text=» CF A15,FNDTID FIND TTAB-ADDRESS«, t00=0x0006, t01=0x0092}
0x0a14…0a28 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A2 «, t00=0x0006, t01=0x00ba}
0x0a28…0a4e Head {h00=0x0022, h01=0x0050, text=» ABL(Z) LKMRQE TTAB NOT FOUND «, t00=0x0006, t01=0x00ce}
0x0a4e…0a7a Head {h00=0x0028, h01=0x0050, text=» LDR A3,A2 IN BLOCK A3=TTAB-ADDRESS «, t00=0x0006, t01=0x00f4}
0x0a7a…0aaa Head {h00=0x002c, h01=0x0050, text=» LDR A2,A4 A2=DISPATCH ADDRESS «, t00=0x0006, t01=0x0120}
0x0aaa…0ad6 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETBLK A1=PARAMETER«, t00=0x0006, t01=0x0150}
0x0ad6…0b08 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A4 SET BLOCK ADDRESS AS PARAMETER «, t00=0x0006, t01=0x017c}
0x0b08…0b26 Head {h00=0x001a, h01=0x0050, text=» ST A8,PAR2+2 SET TIME«, t00=0x0007, t01=0x001e}
0x0b26…0b3c Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x0007, t01=0x003c}
0x0b3c…0b56 Head {h00=0x0016, h01=0x0050, text=»PAR2 DATA TIMACT,0«, t00=0x0007, t01=0x0052}
0x0b56…0b6a Head {h00=0x0010, h01=0x0050, text=» ABL LKMQDI «, t00=0x0007, t01=0x006c}
0x0b6a…0b78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0080}
0x0b78…0b82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008e}
0x0b82…0b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0098}
0x0b8c…0bae Head {h00=0x001e, h01=0x0050, text=»* RETURN AFTER TIME OUT «, t00=0x0007, t01=0x00a2}
0x0bae…0bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bb8…0bd4 Head {h00=0x0018, h01=0x0050, text=»* 1.PROGRAM DELAY «, t00=0x0007, t01=0x00ce}
0x0bd4…0bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ea}
0x0bde…0bf2 Head {h00=0x0010, h01=0x0050, text=»DELAY EQU * «, t00=0x0007, t01=0x00f4}
0x0bf2…0c16 Head {h00=0x0020, h01=0x0050, text=» LDR A5,A1 SET TTAB-ADDRESS «, t00=0x0007, t01=0x0108}
0x0c16…0c46 Head {h00=0x002c, h01=0x0050, text=» CF A15,QTJOB AND QUEUE FOR DISPATCHING «, t00=0x0007, t01=0x012c}
0x0c46…0c58 Head {h00=0x000e, h01=0x0050, text=» RB TTDIS «, t00=0x0007, t01=0x015c}
0x0c58…0c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016e}
0x0c62…0c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0178}
0x0c6c…0c90 Head {h00=0x0020, h01=0x0050, text=»* 2. TIMING AND ACTIVATION«, t00=0x0007, t01=0x0182}
0x0c90…0c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0016}
0x0c9a…0cae Head {h00=0x0010, h01=0x0050, text=»TIMACT EQU *«, t00=0x0008, t01=0x0020}
0x0cae…0cd2 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 GET BLOCK ADDRESS«, t00=0x0008, t01=0x0034}
0x0cd2…0cf8 Head {h00=0x0022, h01=0x0050, text=» CF A15,FREBLK AND SET IT FREE«, t00=0x0008, t01=0x0058}
0x0cf8…0d1c Head {h00=0x0020, h01=0x0050, text=» LDR A5,A3 SET TTAB-ADDRESS «, t00=0x0008, t01=0x007e}
0x0d1c…0d4e Head {h00=0x002e, h01=0x0050, text=» LD A3,SRUN GET POINTER TO RUNNIG SEGMENT «, t00=0x0008, t01=0x00a2}
0x0d4e…0d76 Head {h00=0x0024, h01=0x0050, text=» RF(Z) TIMA JMP IF ROOT SEGMENT «, t00=0x0008, t01=0x00d4}
0x0d76…0daa Head {h00=0x0030, h01=0x0050, text=» SU A2,2,A3 ELSE CALCULATE RELATIVE ADDRESS «, t00=0x0008, t01=0x00fc}
0x0daa…0dbc Head {h00=0x000e, h01=0x0050, text=»TIMA EQU *«, t00=0x0008, t01=0x0130}
0x0dbc…0de8 Head {h00=0x0028, h01=0x0050, text=» CF A15,ACTOT AND ACTIVATE TERMINAL «, t00=0x0008, t01=0x0142}
0x0de8…0dfa Head {h00=0x000e, h01=0x0050, text=» RB TTDIS «, t00=0x0008, t01=0x016e}
0x0dfa…0e08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0180}
0x0e08…0e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018e}
0x0e12…0e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e1c…0e42 Head {h00=0x0022, h01=0x0050, text=»* S E T I M E , S E T I M P «, t00=0x0009, t01=0x0012}
0x0e42…0e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0038}
0x0e4c…0e7e Head {h00=0x002e, h01=0x0050, text=»* SUBROUTINE TO SET BLOCK IN TIMER QUEUE«, t00=0x0009, t01=0x0042}
0x0e7e…0eac Head {h00=0x002a, h01=0x0050, text=»* AND IF SETIMP, STORE TIMER POINTER«, t00=0x0009, t01=0x0074}
0x0eac…0eca Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS:-«, t00=0x0009, t01=0x00a2}
0x0eca…0ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c0}
0x0ed4…0eee Head {h00=0x0016, h01=0x0050, text=»* A1 = PARAMETER«, t00=0x0009, t01=0x00ca}
0x0eee…0f20 Head {h00=0x002e, h01=0x0050, text=»* A4 = IF SETIMP: TIMER POINTER ADDRESS «, t00=0x0009, t01=0x00e4}
0x0f20…0f50 Head {h00=0x002c, h01=0x0050, text=»* P1 = DISPATCH ADDRESS AFTER TIME OUT«, t00=0x0009, t01=0x0116}
0x0f50…0f66 Head {h00=0x0012, h01=0x0050, text=»* P2 = DELAY«, t00=0x0009, t01=0x0146}
0x0f66…0f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015c}
0x0f70…0fae Head {h00=0x003a, h01=0x0050, text=»* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST «, t00=0x0009, t01=0x0166}
0x0fae…0fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0014}
0x0fb8…0fd4 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER:-«, t00=0x000a, t01=0x001e}
0x0fd4…0fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003a}
0x0fde…1000 Head {h00=0x001e, h01=0x0050, text=»* A4 = ADDRESS TO TIMER «, t00=0x000a, t01=0x0044}
0x1000…100a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0066}
0x100a…1014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0070}
0x1014…1028 Head {h00=0x0010, h01=0x0050, text=»SETIME EQU *«, t00=0x000a, t01=0x007a}
0x1028…103a Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x000a, t01=0x008e}
0x103a…104e Head {h00=0x0010, h01=0x0050, text=»SETIMP EQU *«, t00=0x000a, t01=0x00a0}
0x104e…1064 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x000a, t01=0x00b4}
0x1064…1092 Head {h00=0x002a, h01=0x0050, text=» LDR A6,A4 SAVE TIMER POINTER ADDRESS «, t00=0x000a, t01=0x00ca}
0x1092…10a4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x000a, t01=0x00f8}
0x10a4…10d6 Head {h00=0x002e, h01=0x0050, text=» LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS«, t00=0x000a, t01=0x010a}
0x10d6…1100 Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A5 DISPATCH ADDRESS IN A2«, t00=0x000a, t01=0x013c}
0x1100…1112 Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x000a, t01=0x0166}
0x1112…1130 Head {h00=0x001a, h01=0x0050, text=» LDR* A8,A5 TIME IN A8«, t00=0x000a, t01=0x0178}
0x1130…1142 Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x000b, t01=0x0008}
0x1142…116e Head {h00=0x0028, h01=0x0050, text=» ST A5,20,A15 ADJUST PROGRAM COUNTER«, t00=0x000b, t01=0x001a}
0x116e…1196 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBLK GET A FREE BLOCK «, t00=0x000b, t01=0x0046}
0x1196…11a8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x000b, t01=0x006e}
0x11a8…11ba Head {h00=0x000e, h01=0x0050, text=» C1R A1,A8«, t00=0x000b, t01=0x0080}
0x11ba…11e0 Head {h00=0x0022, h01=0x0050, text=» CF A15,GETBLK GET TIMER BLOCK«, t00=0x000b, t01=0x0092}
0x11e0…11f6 Head {h00=0x0012, h01=0x0050, text=» LD A1,TIMQUE «, t00=0x000b, t01=0x00b8}
0x11f6…121c Head {h00=0x0022, h01=0x0050, text=» STR A1,A4 SET BLOCK IN QUEUE «, t00=0x000b, t01=0x00ce}
0x121c…1232 Head {h00=0x0012, h01=0x0050, text=» ST A4,TIMQUE «, t00=0x000b, t01=0x00f4}
0x1232…1244 Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x000b, t01=0x010a}
0x1244…1278 Head {h00=0x0030, h01=0x0050, text=» ST A4,10,A15 SET TIMER ADDRESS A4 ON STACK «, t00=0x000b, t01=0x011c}
0x1278…128a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x000b, t01=0x0150}
0x128a…12a8 Head {h00=0x001a, h01=0x0050, text=» RF(Z) SETEND -SETIME «, t00=0x000b, t01=0x0162}
0x12a8…12d8 Head {h00=0x002c, h01=0x0050, text=» STR A4,A6 -SETIMP STORE TIMER POINTER «, t00=0x000b, t01=0x0180}
0x12d8…12f2 Head {h00=0x0016, h01=0x0050, text=»SETEND ABL IHRET8 «, t00=0x000c, t01=0x0020}
0x12f2…12fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003a}
0x12fc…1308 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000c, t01=0x0044}
0x1308…130c Head {h00=0x4004, h01=0x0000}
0x130c…1310 00 0c 00 50 ┆ P┆
0x1310…1318 (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆
0x1318…1368 (14, 0, 400) 32 30 5c 45 51 55 5c 2a 00 15 01 8c 00 24 00 50 5c 4c 44 5c 41 32 2c 34 2c 41 38 5c 47 45 54 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 16 00 10 00 12 00 50 5c 52 46 28 45 29 5c 41 43 44 59 32 35 20 00 16 00 38 00 20 00 50 5c 4c ┆20 EQU * $ P LD A2,4,A8 GET REQUESTED LENGTH P RF(E) ACDY25 8 P L┆
0x1368…13b8 44 4b 5c 41 33 2c 32 5c 53 54 41 52 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 16 00 4e 00 22 00 50 5c 4c 44 5c 41 32 2c 32 2c 41 38 5c 47 45 54 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 16 00 72 00 26 00 50 5c 4c 43 5c 41 32 2c 31 ┆DK A3,2 START BUFFER INDEX N " P LD A2,2,A8 GET BUFFER ADDRESS r & P LC A2,1┆
0x13b8…1408 2c 41 32 5c 47 45 54 20 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 54 45 52 20 00 16 00 98 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 46 20 00 16 00 c2 00 10 00 50 41 43 44 59 32 35 5c 45 51 55 5c 2a 00 16 00 d6 00 2a 00 50 5c 53 55 4b 5c 41 ┆,A2 GET CONTROL CHARACTER P ANK A2,/FF PACDY25 EQU * * P SUK A┆
0x1408…1458 32 2c 2f 32 42 5c 50 4f 53 49 54 49 4f 4e 49 4e 47 20 42 45 46 4f 52 45 20 57 52 49 54 45 20 3f 00 16 00 ea 00 12 00 50 5c 52 46 28 45 29 5c 41 43 44 59 39 30 20 00 16 01 18 00 14 00 50 5c 53 55 4b 5c 41 32 2c 36 5c 2f 33 31 20 3f 20 00 16 ┆2,/2B POSITIONING BEFORE WRITE ? P RF(E) ACDY90 P SUK A2,6 /31 ? ┆
0x1458…14a8 01 2e 00 12 00 50 5c 52 46 28 45 29 5c 41 43 44 59 36 35 20 00 16 01 46 00 20 00 50 5c 4c 44 4b 5c 41 34 2c 31 5c 49 4e 44 49 43 41 54 45 20 4c 49 4e 45 20 46 45 45 44 00 16 01 5c 00 22 00 50 5c 41 44 4b 5c 41 32 2c 31 5c 44 4f 55 42 4c 45 ┆ . P RF(E) ACDY65 F P LDK A4,1 INDICATE LINE FEED " P ADK A2,1 DOUBLE┆
0x14a8…14aa (15, 0, 2) 07 b0 ┆ ┆
0x14aa…14fa (16, 0, 400) 00 0a 00 50 24 52 45 4c 41 20 00 00 00 04 00 0a 00 50 4d 45 53 20 40 50 00 00 00 12 00 14 00 50 4c 45 44 20 40 50 2c 2f 53 2c 2f 45 45 2c 23 23 00 00 00 20 00 0a 00 50 23 23 44 4c 20 30 00 00 00 38 00 26 00 50 5c 49 44 45 4e 54 20 20 40 50 ┆ P$RELA PMES @P PLED @P,/S,/EE,## P##DL 0 8 & P IDENT @P┆
0x14fa…154a 20 5c 52 45 4c 3d 37 2e 32 20 20 44 41 54 45 3d 37 37 2d 30 39 2d 30 39 00 00 00 46 00 0a 00 50 23 23 44 4c 20 31 00 00 00 70 00 1e 00 50 5c 5c 5c 55 50 44 41 54 45 20 20 23 30 20 20 20 20 37 37 2d 30 39 2d 30 39 20 00 00 00 7e 00 0c 00 50 ┆ REL=7.2 DATE=77-09-09 F P##DL 1 p P UPDATE #0 77-09-09 ~ P┆
0x154a…159a 23 23 44 4c 20 31 30 20 00 00 00 a0 00 1e 00 50 2a 20 20 20 4c 45 56 45 4c 20 20 20 20 20 23 32 20 20 37 37 2d 30 39 2d 30 39 00 00 00 b0 00 0c 00 50 23 23 44 4c 20 31 32 20 00 00 00 d2 00 1e 00 50 2a 20 20 20 52 45 4c 45 41 53 45 20 20 20 ┆##DL 10 P* LEVEL #2 77-09-09 P##DL 12 P* RELEASE ┆
0x159a…15ea 23 37 20 20 37 37 2d 30 39 2d 30 39 00 00 00 e2 00 08 00 50 23 23 45 4e 00 00 01 04 00 0a 00 50 42 45 41 20 2f 53 00 00 01 10 00 0a 00 50 4b 50 46 20 2f 53 00 00 01 1e 00 0a 00 50 4b 50 46 20 2f 4f 00 00 01 2c 00 0a 00 50 53 43 52 20 2f 4f ┆#7 77-09-09 P##EN PBEA /S PKPF /S PKPF /O , PSCR /O┆
0x15ea…163a 00 00 01 3a 00 08 00 50 45 4e 44 20 00 00 01 48 00 0a 00 50 24 52 45 4c 42 20 00 00 01 54 00 14 00 50 4c 45 44 20 40 50 2c 2f 53 2c 2f 45 45 2c 23 23 00 00 01 62 00 0a 00 50 23 23 44 4c 20 30 00 00 01 7a 00 26 00 50 5c 49 44 45 4e 54 20 20 ┆ : PEND H P$RELB T PLED @P,/S,/EE,## b P##DL 0 z & P IDENT ┆
0x163a…168a (17, 0, 274) 40 50 20 5c 52 45 4c 3d 37 2e 32 2c 44 41 54 45 3d 37 37 2d 30 39 2d 30 39 20 00 00 01 88 00 08 00 50 23 23 45 4e 00 01 00 22 00 0a 00 50 4b 50 46 20 2f 53 00 01 00 2e 00 0a 00 50 42 45 41 20 2f 53 00 01 00 3c 00 0a 00 50 4b 50 46 20 2f 4f ┆@P REL=7.2,DATE=77-09-09 P##EN " PKPF /S . PBEA /S < PKPF /O┆
0x168a…16da 00 01 00 4a 00 08 00 50 45 4e 44 20 00 01 00 58 00 0c 00 50 24 4d 4f 56 43 43 49 20 00 01 00 64 00 0a 00 50 53 43 52 20 2f 53 00 01 00 74 00 1a 00 50 4d 4f 56 20 40 50 2c 2f 53 2c 4d 45 4d 55 54 49 4c 2c 2f 46 31 20 00 01 00 82 00 0e 00 50 ┆ J PEND X P$MOVCCI d PSCR /S t PMOV @P,/S,MEMUTIL,/F1 P┆
0x16da…172a 4b 50 46 20 2f 53 2c 40 50 20 00 01 00 a0 00 0a 00 50 53 43 52 20 2f 4f 00 01 00 b2 00 0a 00 50 42 45 41 20 40 50 00 01 00 c0 00 0a 00 50 4b 50 46 20 2f 4f 00 01 00 ce 00 08 00 50 45 4e 44 20 00 01 00 dc 00 08 00 50 24 52 45 54 00 01 00 e8 ┆KPF /S,@P PSCR /O PBEA @P PKPF /O PEND P$RET ┆
0x172a…174c 00 12 00 50 50 52 54 20 2f 53 2c 40 50 2c 30 2c 32 30 00 01 00 f4 00 08 00 50 45 4e 44 20 00 01 01 0a ┆ PPRT /S,@P,0,20 PEND ┆
0x174c…1754 (18, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x1754…17a4 (19, 0, 400) 49 46 00 1a 01 8e 00 14 00 50 41 43 44 59 39 30 5c 4c 44 4b 5c 41 34 2c 30 20 00 1b 00 0a 00 36 00 50 41 44 59 31 30 30 5c 43 46 5c 41 31 35 2c 47 45 54 43 48 52 5c 47 45 54 20 43 48 41 52 41 43 54 45 52 20 46 52 4f 4d 20 45 43 42 2d 42 55 ┆IF PACDY90 LDK A4,0 6 PADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BU┆
0x17a4…17f4 46 46 45 52 00 1b 00 22 00 1e 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 4c 41 53 54 20 43 48 41 52 41 43 54 45 52 3f 00 1b 00 5c 00 14 00 50 5c 41 42 4c 28 4e 50 29 5c 41 44 59 34 30 35 20 00 1b 00 7e 00 16 00 50 5c 53 55 4b 5c 41 37 2c 35 5c ┆FFER " P LDR A1,A1 LAST CHARACTER? P ABL(NP) ADY405 ~ P SUK A7,5 ┆
0x17f4…1844 4f 52 44 45 52 20 35 3f 00 1b 00 96 00 12 00 50 5c 52 42 28 45 29 5c 41 43 44 59 37 30 20 00 1b 00 b0 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 37 46 20 00 1b 00 c6 00 20 00 50 5c 4c 44 4b 5c 41 31 2c 35 5c 53 45 54 20 54 41 42 4c 45 20 50 4f ┆ORDER 5? P RB(E) ACDY70 P ANK A2,/7F P LDK A1,5 SET TABLE PO┆
0x1844…1894 49 4e 54 45 52 20 00 1b 00 da 00 22 00 50 5c 4c 44 52 2a 5c 41 37 2c 41 36 5c 43 48 41 4e 4e 45 4c 20 50 41 52 41 4d 45 54 45 52 20 00 1b 00 fe 00 20 00 50 5c 41 4e 4b 5c 41 37 2c 2f 31 30 5c 47 52 41 46 49 43 20 44 49 53 50 4c 41 59 20 3f ┆INTER " P LDR* A7,A6 CHANNEL PARAMETER P ANK A7,/10 GRAFIC DISPLAY ?┆
0x1894…18e4 00 1b 01 24 00 14 00 50 5c 52 46 28 45 29 5c 41 44 59 31 31 30 5c 4e 4f 00 1b 01 48 00 1e 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 53 45 54 20 54 41 42 4c 45 20 50 4f 4e 54 45 52 00 1b 01 60 00 2a 00 50 41 44 59 31 31 30 5c 43 43 5c 41 32 2c 54 ┆ $ P RF(E) ADY110 NO H P LDK A1,0 SET TABLE PONTER ` * PADY110 CC A2,T┆
0x18e4…1934 (20, 0, 400) 41 42 53 50 45 2c 41 31 5c 43 48 41 52 41 43 54 45 52 20 46 4f 55 4e 44 00 1b 01 82 00 12 00 50 5c 52 46 28 4e 45 29 5c 41 44 59 31 32 38 00 1c 00 20 00 22 00 50 5c 43 43 4b 5c 41 32 2c 2f 31 45 31 45 5c 4c 4f 57 20 49 4e 54 45 4e 53 49 54 ┆ABSPE,A1 CHARACTER FOUND P RF(NE) ADY128 " P CCK A2,/1E1E LOW INTENSIT┆
0x1934…1984 59 20 3f 20 00 1c 00 36 00 16 00 50 5c 52 46 28 4e 45 29 5c 41 44 59 31 32 32 5c 4e 4f 20 00 1c 00 5c 00 10 00 50 5c 4c 44 4b 5c 41 34 2c 2f 38 30 20 00 1c 00 76 00 2c 00 50 41 44 59 31 32 30 5c 4f 52 52 53 5c 41 34 2c 41 36 5c 53 45 54 20 ┆Y ? 6 P RF(NE) ADY122 NO P LDK A4,/80 v , PADY120 ORRS A4,A6 SET ┆
0x1984…19d4 4c 4f 57 20 49 4e 54 45 4e 53 49 54 59 20 4d 4f 44 45 00 1c 00 8a 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 30 20 00 1c 00 ba 00 0e 00 50 5c 52 42 5c 41 43 44 59 35 30 00 1c 00 cc 00 24 00 50 41 44 59 31 32 32 5c 43 43 4b 5c 41 32 2c 2f 31 32 31 ┆LOW INTENSITY MODE P LDK A4,0 P RB ACDY50 $ PADY122 CCK A2,/121┆
0x19d4…1a24 32 5c 55 4e 44 45 52 4c 49 4e 45 20 3f 20 00 1c 00 de 00 12 00 50 5c 52 46 28 4e 45 29 5c 41 44 59 31 32 35 00 1c 01 06 00 22 00 50 5c 4c 44 4b 5c 41 34 2c 2f 34 30 5c 53 45 54 20 55 4e 44 45 52 4c 49 4e 45 20 4d 4f 44 45 00 1c 01 1c 00 0e ┆2 UNDERLINE ? P RF(NE) ADY125 " P LDK A4,/40 SET UNDERLINE MODE ┆
0x1a24…1a74 00 50 5c 52 42 5c 41 44 59 31 32 30 00 1c 01 42 00 26 00 50 41 44 59 31 32 35 5c 43 43 4b 5c 41 32 2c 2f 31 34 31 34 5c 46 41 53 54 20 4f 55 54 50 55 54 20 3f 20 00 1c 01 54 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 30 20 00 1c 01 7e 00 16 00 50 ┆ P RB ADY120 B & PADY125 CCK A2,/1414 FAST OUTPUT ? T P LDK A4,0 ~ P┆