|
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: 7902 (0x1ede)
Notes: pts_type(SC)
Names: »TIMER.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PTMON/TIMER.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PTMON/TIMER.SC«
IDENT TIMER REL 11.0 81-01-26 870105041100 * * *************************************************** * * 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 TIMER * * *********** * ENTRIES * *********** * * ENTRY TIMER LKM PROCESSOR ENTRY SETIME SET BLOCK IN TIMER QUEUE ENTRY SETIMP SETIME + STORE TIMER POINTER EJECT TIMER * * *********** * EXTRNALS * ************ * * EXTRN TDISP DISPATCHER EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH EXTRN LKMRQE LKM REQUEST ERROR EXTRN GETBLK GET A FREE BLOCK EXTRN FREBLK SET A BLOCK FREE EXTRN FNDTID FIND TTAB ADDRESS EXTRN ACTDIS ACTIVATE TASK AND DISPATCH EXTRN SAVE8 SAVE 8 REGISTERS ON STACK EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK EJECT TIMER * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * EJECT TIMER * * * 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 * ADK A4,0 SET CR RF(NZ) TIM010 TIMING AND ACTIVATION * EJECT TIMER * * PROGRAM DELAY * LDR A1,A5 SET PARAMETER ST A8,PAR1+2 SET TIME CF A15,SETIME PAR1 DATA DELAY,0 ABL TDISP GO TO DISPATCHER EJECT TIMER * * TIMING AND ACTIVATION * TIM010 EQU * CF A15,FNDTID FIND TTAB ADDRESS ADK A2,0 SET CR 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 * QUEDIS EQU * ABL LKMQDI * EJECT TIMER * * * RETURN AFTER TIME OUT * * 1.PROGRAM DELAY * DELAY EQU * LDR A5,A1 SET TTAB ADDRESS RB QUEDIS QUEUE TASK FOR DISPATCHING * * 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 ABL ACTDIS ACTIVATE TASK AND DISPATCH * EJECT TIMER * * * 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 * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 INH MSR 8,A15 SAVE A1-A8 ON STACK XIF * EJECT TIMER * * 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 * EJECT TIMER * * SETEND EQU * IFT CPU852=1 ABL IHRET8 RESTORE A1-A8 AND RETURN XIF * IFT CPU852=0 MLR 8,A15 RESTORE A1-A8 FROM STACK... RTN A15 ...AND RETURN XIF * * * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT TIMER REL 11.0 81-01-26 870105041100«, 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…0050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004a}
0x0050…008c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x0054}
0x008c…0096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00be Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x009a}
0x00be…00c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c2}
0x00c8…00ec Head {h00=0x0020, h01=0x0050, text=»* TIMER = TIMER FUNCTIONS «, t00=0x0000, t01=0x00cc}
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…0128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0164 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x012c}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…01b2 Head {h00=0x0036, h01=0x0050, text=»* THIS MODULE CONTAINS TIMER LKM PROCESSORS AND «, t00=0x0000, t01=0x017c}
0x01b2…01d8 Head {h00=0x0022, h01=0x0050, text=»* THE FOLLOWING SUBROUTINES:«, t00=0x0001, t01=0x0026}
0x01d8…01e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004c}
0x01e2…0210 Head {h00=0x002a, h01=0x0050, text=»* -SETIME: SET BLOCK IN TIMER QUEUE«, t00=0x0001, t01=0x0056}
0x0210…0242 Head {h00=0x002e, h01=0x0050, text=»* -SETIMP: SETIME + STORE TIMER POINTER«, t00=0x0001, t01=0x0084}
0x0242…024c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b6}
0x024c…0256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c0}
0x0256…026c Head {h00=0x0012, h01=0x0050, text=» EJECT TIMER«, t00=0x0001, t01=0x00ca}
0x026c…0276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e0}
0x0276…0280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ea}
0x0280…0294 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x00f4}
0x0294…02a8 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x0108}
0x02a8…02bc Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x011c}
0x02bc…02c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0130}
0x02c6…02d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02d0…02f2 Head {h00=0x001e, h01=0x0050, text=» ENTRY TIMER LKM PROCESSOR«, t00=0x0001, t01=0x0144}
0x02f2…0320 Head {h00=0x002a, h01=0x0050, text=» ENTRY SETIME SET BLOCK IN TIMER QUEUE«, t00=0x0001, t01=0x0166}
0x0320…0352 (2, 0, 400) Head {h00=0x002e, h01=0x0050, text=» ENTRY SETIMP SETIME + STORE TIMER POINTER«, t00=0x0002, t01=0x0004}
0x0352…0368 Head {h00=0x0012, h01=0x0050, text=» EJECT TIMER«, t00=0x0002, t01=0x0036}
0x0368…0372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004c}
0x0372…037c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0056}
0x037c…0390 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0060}
0x0390…03a4 Head {h00=0x0010, h01=0x0050, text=»* EXTRNALS *«, t00=0x0002, t01=0x0074}
0x03a4…03b8 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0002, t01=0x0088}
0x03b8…03c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009c}
0x03c2…03cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a6}
0x03cc…03ec Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x00b0}
0x03ec…041e Head {h00=0x002e, h01=0x0050, text=» EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH «, t00=0x0002, t01=0x00d0}
0x041e…0446 Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0102}
0x0446…046c Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBLK GET A FREE BLOCK«, t00=0x0002, t01=0x012a}
0x046c…0492 Head {h00=0x0022, h01=0x0050, text=» EXTRN FREBLK SET A BLOCK FREE«, t00=0x0002, t01=0x0150}
0x0492…04ba Head {h00=0x0024, h01=0x0050, text=» EXTRN FNDTID FIND TTAB ADDRESS «, t00=0x0002, t01=0x0176}
0x04ba…04ea Head {h00=0x002c, h01=0x0050, text=» EXTRN ACTDIS ACTIVATE TASK AND DISPATCH«, t00=0x0003, t01=0x000e}
0x04ea…0518 Head {h00=0x002a, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON STACK«, t00=0x0003, t01=0x003e}
0x0518…0554 Head {h00=0x0038, h01=0x0050, text=» EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0003, t01=0x006c}
0x0554…0588 Head {h00=0x0030, h01=0x0050, text=» EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK«, t00=0x0003, t01=0x00a8}
0x0588…059e Head {h00=0x0012, h01=0x0050, text=» EJECT TIMER«, t00=0x0003, t01=0x00dc}
0x059e…05a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f2}
0x05a8…05b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fc}
0x05b2…05e4 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x0106}
0x05e4…05ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0138}
0x05ee…060c Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0003, t01=0x0142}
0x060c…0616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0160}
0x0616…0648 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x016a}
0x0648…0652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000c}
0x0652…068c Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0004, t01=0x0016}
0x068c…06be Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0004, t01=0x0050}
0x06be…06c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0082}
0x06c8…06dc Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0004, t01=0x008c}
0x06dc…06e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a0}
0x06e6…06fc Head {h00=0x0012, h01=0x0050, text=» EJECT TIMER«, t00=0x0004, t01=0x00aa}
0x06fc…0706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c0}
0x0706…0710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ca}
0x0710…0726 Head {h00=0x0012, h01=0x0050, text=»* T I M E R «, t00=0x0004, t01=0x00d4}
0x0726…0730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ea}
0x0730…075c Head {h00=0x0028, h01=0x0050, text=»* THIS IS THE TIMER LKM PROCESSOR.«, t00=0x0004, t01=0x00f4}
0x075c…079e Head {h00=0x003e, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER WITH THE FOLLOWING «, t00=0x0004, t01=0x0120}
0x079e…07b6 Head {h00=0x0014, h01=0x0050, text=»* PARAMETERS: «, t00=0x0004, t01=0x0162}
0x07b6…07c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017a}
0x07c0…07dc Head {h00=0x0018, h01=0x0050, text=»* 1. PROGRAM DELAY«, t00=0x0004, t01=0x0184}
0x07dc…07e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0010}
0x07e6…07f8 Head {h00=0x000e, h01=0x0050, text=»* A4 = 0«, t00=0x0005, t01=0x001a}
0x07f8…0816 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0005, t01=0x002c}
0x0816…082c Head {h00=0x0012, h01=0x0050, text=»* A8 = DELAY«, t00=0x0005, t01=0x004a}
0x082c…0836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0060}
0x0836…0840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006a}
0x0840…0864 Head {h00=0x0020, h01=0x0050, text=»* 2. TIMING AND ACTIVATION«, t00=0x0005, t01=0x0074}
0x0864…086e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0098}
0x086e…0888 Head {h00=0x0016, h01=0x0050, text=»* A1 = PARAMETER«, t00=0x0005, t01=0x00a2}
0x0888…08c4 Head {h00=0x0038, h01=0x0050, text=»* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED«, t00=0x0005, t01=0x00bc}
0x08c4…08f4 Head {h00=0x002c, h01=0x0050, text=»* A5 = TTAB ADDRESS OF CALLING PROGRAM«, t00=0x0005, t01=0x00f8}
0x08f4…0938 Head {h00=0x0040, h01=0x0050, text=»* A7 = TERMINAL IDENTIFICATION OF PROGRAM TO BE ACTIVATED «, t00=0x0005, t01=0x0128}
0x0938…094e Head {h00=0x0012, h01=0x0050, text=»* A8 = DELAY«, t00=0x0005, t01=0x016c}
0x094e…0958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0182}
0x0958…0962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018c}
0x0962…0976 Head {h00=0x0010, h01=0x0050, text=»TIMER EQU * «, t00=0x0006, t01=0x0008}
0x0976…098e Head {h00=0x0014, h01=0x0050, text=» ADK A4,0 SET CR«, t00=0x0006, t01=0x001c}
0x098e…09ba Head {h00=0x0028, h01=0x0050, text=» RF(NZ) TIM010 TIMING AND ACTIVATION«, t00=0x0006, t01=0x0034}
0x09ba…09c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0060}
0x09c4…09da Head {h00=0x0012, h01=0x0050, text=» EJECT TIMER«, t00=0x0006, t01=0x006a}
0x09da…09e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0080}
0x09e4…09fe Head {h00=0x0016, h01=0x0050, text=»* PROGRAM DELAY «, t00=0x0006, t01=0x008a}
0x09fe…0a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a4}
0x0a08…0a28 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A5 SET PARAMETER«, t00=0x0006, t01=0x00ae}
0x0a28…0a46 Head {h00=0x001a, h01=0x0050, text=» ST A8,PAR1+2 SET TIME«, t00=0x0006, t01=0x00ce}
0x0a46…0a5c Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x0006, t01=0x00ec}
0x0a5c…0a76 Head {h00=0x0016, h01=0x0050, text=»PAR1 DATA DELAY,0 «, t00=0x0006, t01=0x0102}
0x0a76…0a9a Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x0006, t01=0x011c}
0x0a9a…0ab0 Head {h00=0x0012, h01=0x0050, text=» EJECT TIMER«, t00=0x0006, t01=0x0140}
0x0ab0…0aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0156}
0x0aba…0adc Head {h00=0x001e, h01=0x0050, text=»* TIMING AND ACTIVATION «, t00=0x0006, t01=0x0160}
0x0adc…0ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0182}
0x0ae6…0afa Head {h00=0x0010, h01=0x0050, text=»TIM010 EQU *«, t00=0x0006, t01=0x018c}
0x0afa…0b22 Head {h00=0x0024, h01=0x0050, text=» CF A15,FNDTID FIND TTAB ADDRESS«, t00=0x0007, t01=0x0010}
0x0b22…0b3a Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x0007, t01=0x0038}
0x0b3a…0b60 Head {h00=0x0022, h01=0x0050, text=» ABL(Z) LKMRQE TTAB NOT FOUND «, t00=0x0007, t01=0x0050}
0x0b60…0b8c Head {h00=0x0028, h01=0x0050, text=» LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS«, t00=0x0007, t01=0x0076}
0x0b8c…0bbc Head {h00=0x002c, h01=0x0050, text=» LDR A2,A4 A2=DISPATCH ADDRESS «, t00=0x0007, t01=0x00a2}
0x0bbc…0be8 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETBLK A1=PARAMETER«, t00=0x0007, t01=0x00d2}
0x0be8…0c1a Head {h00=0x002e, h01=0x0050, text=» LDR A1,A4 SET BLOCK ADDRESS AS PARAMETER «, t00=0x0007, t01=0x00fe}
0x0c1a…0c38 Head {h00=0x001a, h01=0x0050, text=» ST A8,PAR2+2 SET TIME«, t00=0x0007, t01=0x0130}
0x0c38…0c4e Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x0007, t01=0x014e}
0x0c4e…0c68 Head {h00=0x0016, h01=0x0050, text=»PAR2 DATA TIMACT,0«, t00=0x0007, t01=0x0164}
0x0c68…0c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017e}
0x0c72…0c86 Head {h00=0x0010, h01=0x0050, text=»QUEDIS EQU *«, t00=0x0007, t01=0x0188}
0x0c86…0c9a Head {h00=0x0010, h01=0x0050, text=» ABL LKMQDI «, t00=0x0008, t01=0x000c}
0x0c9a…0ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0020}
0x0ca4…0cba Head {h00=0x0012, h01=0x0050, text=» EJECT TIMER«, t00=0x0008, t01=0x002a}
0x0cba…0cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0040}
0x0cc4…0cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004a}
0x0cce…0cf0 Head {h00=0x001e, h01=0x0050, text=»* RETURN AFTER TIME OUT «, t00=0x0008, t01=0x0054}
0x0cf0…0cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0076}
0x0cfa…0d16 Head {h00=0x0018, h01=0x0050, text=»* 1.PROGRAM DELAY «, t00=0x0008, t01=0x0080}
0x0d16…0d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009c}
0x0d20…0d34 Head {h00=0x0010, h01=0x0050, text=»DELAY EQU * «, t00=0x0008, t01=0x00a6}
0x0d34…0d58 Head {h00=0x0020, h01=0x0050, text=» LDR A5,A1 SET TTAB ADDRESS «, t00=0x0008, t01=0x00ba}
0x0d58…0d86 Head {h00=0x002a, h01=0x0050, text=» RB QUEDIS QUEUE TASK FOR DISPATCHING «, t00=0x0008, t01=0x00de}
0x0d86…0d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d90…0db4 Head {h00=0x0020, h01=0x0050, text=»* 2. TIMING AND ACTIVATION«, t00=0x0008, t01=0x0116}
0x0db4…0dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013a}
0x0dbe…0dd2 Head {h00=0x0010, h01=0x0050, text=»TIMACT EQU *«, t00=0x0008, t01=0x0144}
0x0dd2…0df6 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 GET BLOCK ADDRESS«, t00=0x0008, t01=0x0158}
0x0df6…0e1c Head {h00=0x0022, h01=0x0050, text=» CF A15,FREBLK AND SET IT FREE«, t00=0x0008, t01=0x017c}
0x0e1c…0e40 Head {h00=0x0020, h01=0x0050, text=» LDR A5,A3 SET TTAB ADDRESS «, t00=0x0009, t01=0x0012}
0x0e40…0e6e Head {h00=0x002a, h01=0x0050, text=» ABL ACTDIS ACTIVATE TASK AND DISPATCH«, t00=0x0009, t01=0x0036}
0x0e6e…0e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0064}
0x0e78…0e8e Head {h00=0x0012, h01=0x0050, text=» EJECT TIMER«, t00=0x0009, t01=0x006e}
0x0e8e…0e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0084}
0x0e98…0ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008e}
0x0ea2…0ec8 Head {h00=0x0022, h01=0x0050, text=»* S E T I M E , S E T I M P «, t00=0x0009, t01=0x0098}
0x0ec8…0ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00be}
0x0ed2…0f04 Head {h00=0x002e, h01=0x0050, text=»* SUBROUTINE TO SET BLOCK IN TIMER QUEUE«, t00=0x0009, t01=0x00c8}
0x0f04…0f34 Head {h00=0x002c, h01=0x0050, text=»* AND IF SETIMP, STORE TIMER POINTER. «, t00=0x0009, t01=0x00fa}
0x0f34…0f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012a}
0x0f3e…0f5c Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS:-«, t00=0x0009, t01=0x0134}
0x0f5c…0f66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0152}
0x0f66…0f80 Head {h00=0x0016, h01=0x0050, text=»* A1 = PARAMETER«, t00=0x0009, t01=0x015c}
0x0f80…0fb2 Head {h00=0x002e, h01=0x0050, text=»* A4 = IF SETIMP: TIMER POINTER ADDRESS «, t00=0x0009, t01=0x0176}
0x0fb2…0fe2 Head {h00=0x002c, h01=0x0050, text=»* P1 = DISPATCH ADDRESS AFTER TIME OUT«, t00=0x000a, t01=0x0018}
0x0fe2…0ff8 Head {h00=0x0012, h01=0x0050, text=»* P2 = DELAY«, t00=0x000a, t01=0x0048}
0x0ff8…1002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005e}
0x1002…1040 Head {h00=0x003a, h01=0x0050, text=»* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST.«, t00=0x000a, t01=0x0068}
0x1040…104a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a6}
0x104a…1066 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER:-«, t00=0x000a, t01=0x00b0}
0x1066…1070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00cc}
0x1070…1092 Head {h00=0x001e, h01=0x0050, text=»* A4 = ADDRESS TO TIMER «, t00=0x000a, t01=0x00d6}
0x1092…109c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f8}
0x109c…10a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0102}
0x10a6…10ba Head {h00=0x0010, h01=0x0050, text=»SETIME EQU *«, t00=0x000a, t01=0x010c}
0x10ba…10cc Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x000a, t01=0x0120}
0x10cc…10d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0132}
0x10d6…10ea Head {h00=0x0010, h01=0x0050, text=»SETIMP EQU *«, t00=0x000a, t01=0x013c}
0x10ea…1100 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000a, t01=0x0150}
0x1100…112a Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x000a, t01=0x0166}
0x112a…1136 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0190}
0x1136…1140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000c}
0x1140…1156 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000b, t01=0x0016}
0x1156…1162 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000b, t01=0x002c}
0x1162…1188 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x000b, t01=0x0038}
0x1188…1194 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x005e}
0x1194…119e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006a}
0x119e…11b4 Head {h00=0x0012, h01=0x0050, text=» EJECT TIMER«, t00=0x000b, t01=0x0074}
0x11b4…11be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x008a}
0x11be…11c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0094}
0x11c8…11f6 Head {h00=0x002a, h01=0x0050, text=» LDR A6,A4 SAVE TIMER POINTER ADDRESS «, t00=0x000b, t01=0x009e}
0x11f6…1208 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x000b, t01=0x00cc}
0x1208…123a Head {h00=0x002e, h01=0x0050, text=» LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS«, t00=0x000b, t01=0x00de}
0x123a…1264 Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A5 DISPATCH ADDRESS IN A2«, t00=0x000b, t01=0x0110}
0x1264…1276 Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x000b, t01=0x013a}
0x1276…1294 Head {h00=0x001a, h01=0x0050, text=» LDR* A8,A5 TIME IN A8«, t00=0x000b, t01=0x014c}
0x1294…12a6 Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x000b, t01=0x016a}
0x12a6…12d2 Head {h00=0x0028, h01=0x0050, text=» ST A5,20,A15 ADJUST PROGRAM COUNTER«, t00=0x000b, t01=0x017c}
0x12d2…12fa Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBLK GET A FREE BLOCK «, t00=0x000c, t01=0x0018}
0x12fa…130c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x000c, t01=0x0040}
0x130c…131e Head {h00=0x000e, h01=0x0050, text=» C1R A1,A8«, t00=0x000c, t01=0x0052}
0x131e…1344 Head {h00=0x0022, h01=0x0050, text=» CF A15,GETBLK GET TIMER BLOCK«, t00=0x000c, t01=0x0064}
0x1344…135a Head {h00=0x0012, h01=0x0050, text=» LD A1,TIMQUE «, t00=0x000c, t01=0x008a}
0x135a…1380 Head {h00=0x0022, h01=0x0050, text=» STR A1,A4 SET BLOCK IN QUEUE «, t00=0x000c, t01=0x00a0}
0x1380…1396 Head {h00=0x0012, h01=0x0050, text=» ST A4,TIMQUE «, t00=0x000c, t01=0x00c6}
0x1396…13a8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x000c, t01=0x00dc}
0x13a8…13dc Head {h00=0x0030, h01=0x0050, text=» ST A4,10,A15 SET TIMER ADDRESS A4 ON STACK «, t00=0x000c, t01=0x00ee}
0x13dc…13ee Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x000c, t01=0x0122}
0x13ee…140c Head {h00=0x001a, h01=0x0050, text=» RF(Z) SETEND -SETIME «, t00=0x000c, t01=0x0134}
0x140c…143c Head {h00=0x002c, h01=0x0050, text=» STR A4,A6 -SETIMP. STORE TIMER POINTER «, t00=0x000c, t01=0x0152}
0x143c…1446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0182}
0x1446…145c Head {h00=0x0012, h01=0x0050, text=» EJECT TIMER«, t00=0x000c, t01=0x018c}
0x145c…1466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0012}
0x1466…1470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001c}
0x1470…1484 Head {h00=0x0010, h01=0x0050, text=»SETEND EQU *«, t00=0x000d, t01=0x0026}
0x1484…149a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000d, t01=0x003a}
0x149a…14c6 Head {h00=0x0028, h01=0x0050, text=» ABL IHRET8 RESTORE A1-A8 AND RETURN«, t00=0x000d, t01=0x0050}
0x14c6…14d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x007c}
0x14d2…14dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0088}
0x14dc…14f2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000d, t01=0x0092}
0x14f2…1520 Head {h00=0x002a, h01=0x0050, text=» MLR 8,A15 RESTORE A1-A8 FROM STACK...«, t00=0x000d, t01=0x00a8}
0x1520…153e Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x000d, t01=0x00d6}
0x153e…154a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00f4}
0x154a…1554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0100}
0x1554…155e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010a}
0x155e…1568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0114}
0x1568…1574 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000d, t01=0x011e}
0x1574…1578 Head {h00=0x4004, h01=0x0000}
0x1578…157c 00 0d 01 2a ┆ *┆
0x157c…1584 (14, 1, 8) 20 04 00 00 00 0e 00 04 ┆ ┆
0x1584…15d4 (15, 0, 400) 45 54 20 45 4e 44 20 4f 46 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 41 54 41 00 86 01 74 00 30 00 50 5c 4c 44 5c 41 32 2c 45 53 59 53 54 41 2b 53 54 4b 45 4e 44 5c 47 45 54 20 45 4e 44 20 4f 46 20 53 59 53 54 45 4d 20 41 52 45 41 20 ┆ET END OF CONFIGURATION DATA t 0 P LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA ┆
0x15d4…1624 00 87 00 24 00 2a 00 50 5c 43 4d 5c 2d 32 2c 41 32 5c 4d 41 4b 45 20 53 55 52 45 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 46 49 4c 45 00 87 00 58 00 22 00 50 5c 53 55 4b 5c 41 32 2c 31 5c 49 53 20 46 4f 4c 4c 4f 57 45 44 20 42 59 20 58 ┆ $ * P CM -2,A2 MAKE SURE CONFIGURATION FILE X " P SUK A2,1 IS FOLLOWED BY X┆
0x1624…1674 27 30 30 27 00 87 00 86 00 2c 00 50 5c 53 55 52 5c 41 33 2c 41 31 5c 4c 45 4e 47 54 48 20 4f 46 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 41 54 41 20 00 87 00 ac 00 32 00 50 5c 53 54 5c 41 33 2c 43 4f 4e 4c 45 4e 2b 53 54 4b 43 4f 4d ┆'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA 2 P ST A3,CONLEN+STKCOM┆
0x1674…16c4 5c 53 41 56 45 20 4c 45 4e 47 54 48 20 4f 46 20 43 4f 4e 46 2e 20 44 41 54 41 00 87 00 dc 00 04 00 50 00 87 01 12 00 1a 00 50 5c 53 55 52 5c 41 32 2c 41 33 5c 54 4f 2d 41 44 44 52 45 53 53 20 00 87 01 1a 00 06 00 50 2a 20 00 87 01 38 00 24 ┆ SAVE LENGTH OF CONF. DATA P P SUR A2,A3 TO-ADDRESS P* 8 $┆
0x16c4…1714 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 46 46 46 45 5c 4d 41 4b 45 20 45 56 45 4e 20 41 44 44 52 45 53 53 00 87 01 42 00 0e 00 50 5c 43 41 4c 4c 5c 4d 4f 56 45 00 87 01 6a 00 3a 00 50 5c 53 54 5c 41 32 2c 43 4f 4e 53 54 41 2b 53 54 4b 43 4f 4d ┆ P ANKL A2,/FFFE MAKE EVEN ADDRESS B P CALL MOVE j : P ST A2,CONSTA+STKCOM┆
0x1714…1764 (16, 0, 400) 5c 53 41 56 45 20 53 54 41 52 54 20 4f 46 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 41 54 41 20 00 87 01 7c 00 32 00 50 5c 4c 44 5c 41 31 2c 43 4f 4e 4c 45 4e 2b 53 54 4b 43 4f 4d 5c 47 45 54 20 4c 45 4e 47 54 48 20 4f 46 20 43 4f 4e ┆ SAVE START OF CONFIGURATION DATA | 2 P LD A1,CONLEN+STKCOM GET LENGTH OF CON┆
0x1764…17b4 46 2e 20 44 41 54 41 20 00 88 00 2a 00 30 00 50 5c 41 44 4b 5c 41 31 2c 32 5c 49 4e 43 4c 55 44 45 20 54 52 41 49 4c 49 4e 47 20 5a 45 52 4f 45 53 20 49 4e 20 4c 45 4e 47 54 48 20 00 88 00 60 00 20 00 50 5c 41 4e 4b 4c 5c 41 31 2c 2f 46 46 ┆F. DATA * 0 P ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH ` P ANKL A1,/FF┆
0x17b4…1804 46 45 5c 41 4e 44 20 4d 41 4b 45 20 45 56 45 4e 00 88 00 94 00 18 00 50 5c 53 54 5c 41 31 2c 43 4f 4e 4c 45 4e 2b 53 54 4b 43 4f 4d 00 88 00 b8 00 26 00 50 5c 4c 44 52 5c 41 31 2c 41 39 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 46 52 45 45 ┆FE AND MAKE EVEN P ST A1,CONLEN+STKCOM & P LDR A1,A9 GET START OF FREE┆
0x1804…1854 20 41 52 45 41 20 00 88 00 d4 00 20 00 50 5c 4c 44 52 5c 41 31 32 2c 41 32 5c 45 4e 44 20 4f 46 20 46 52 45 45 20 41 52 45 41 00 88 00 fe 00 24 00 50 5c 53 55 52 5c 41 31 32 2c 41 31 5c 53 55 42 54 52 41 43 54 20 4d 4f 4e 49 54 4f 52 20 45 ┆ AREA P LDR A12,A2 END OF FREE AREA $ P SUR A12,A1 SUBTRACT MONITOR E┆
0x1854…18a4 4e 44 00 88 01 22 00 32 00 50 5c 53 54 5c 41 31 32 2c 4d 3a 52 45 4c 2b 53 54 4b 43 4f 4d 5c 53 41 56 45 20 52 45 4c 4f 43 41 54 49 4f 4e 20 43 4f 4e 53 54 41 4e 54 20 00 88 01 4a 00 24 00 50 5c 4c 44 5c 41 32 2c 53 43 54 4d 58 53 5c 47 45 ┆ND " 2 P ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT J $ P LD A2,SCTMXS GE┆
0x18a4…18f4 (17, 0, 400) 54 20 4d 58 53 54 41 42 20 41 44 44 52 45 53 53 00 88 01 80 00 24 00 50 5c 52 46 28 5a 29 5c 43 4d 4f 56 32 30 5c 4e 4f 20 4d 58 53 54 41 42 20 50 52 45 53 45 4e 54 20 00 89 00 18 00 06 00 50 2a 20 00 89 00 40 00 30 00 50 5c 41 44 5c 41 32 ┆T MXSTAB ADDRESS $ P RF(Z) CMOV20 NO MXSTAB PRESENT P* @ 0 P AD A2┆
0x18f4…1944 2c 4d 3a 52 45 4c 2b 53 54 4b 43 4f 4d 5c 52 45 4c 4f 43 41 54 45 20 4d 58 53 54 41 42 20 41 44 44 52 45 53 53 20 00 89 00 4a 00 2a 00 50 5c 53 54 5c 41 32 2c 53 43 54 4d 58 53 5c 41 4e 44 20 53 41 56 45 20 41 53 20 4e 45 57 20 41 44 44 52 ┆,M:REL+STKCOM RELOCATE MXSTAB ADDRESS J * P ST A2,SCTMXS AND SAVE AS NEW ADDR┆
0x1944…1994 45 53 53 20 00 89 00 7e 00 10 00 50 43 4d 4f 56 32 30 5c 45 51 55 5c 2a 00 89 00 ac 00 2c 00 50 5c 4c 44 5c 41 32 2c 43 4f 4e 53 54 41 2b 53 54 4b 43 4f 4d 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 43 4f 4e 46 46 20 00 89 00 c0 00 06 00 50 ┆ESS ~ PCMOV20 EQU * , P LD A2,CONSTA+STKCOM GET START OF CONFF P┆
0x1994…19e4 2a 20 00 89 00 f0 00 3c 00 50 2a 20 20 4d 4f 56 45 20 53 59 53 4c 44 41 2b 53 59 53 4c 44 4d 2b 44 57 54 2d 50 52 4f 54 4f 54 59 50 45 53 20 54 4f 20 45 4e 44 20 4f 46 20 46 52 45 45 20 41 52 45 41 00 89 00 fa 00 06 00 50 2a 20 00 89 01 3a ┆* < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA P* :┆
0x19e4…1a34 00 10 00 50 4d 4f 50 52 4f 5c 45 51 55 5c 2a 20 00 89 01 44 00 14 00 50 5c 4c 44 4b 4c 5c 41 31 33 2c 53 59 53 4c 44 4d 00 89 01 58 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 32 20 00 89 01 70 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 32 20 00 89 01 82 ┆ PMOPRO EQU * D P LDKL A13,SYSLDM X P SUK A1,2 p P SUK A2,2 ┆
0x1a34…1a84 (18, 0, 398) 00 10 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 20 00 8a 00 04 00 0e 00 50 5c 53 54 52 5c 41 34 2c 41 32 00 8a 00 18 00 10 00 50 5c 43 57 52 5c 41 31 2c 41 31 33 20 00 8a 00 2a 00 12 00 50 5c 52 42 28 4e 45 29 5c 4d 4f 50 52 4f 20 00 8a 00 3e ┆ P LDR* A4,A1 P STR A4,A2 P CWR A1,A13 * P RB(NE) MOPRO >┆
0x1a84…1ad4 00 28 00 50 5c 41 42 52 5c 41 32 5c 43 4f 4e 54 49 4e 55 45 20 45 58 45 43 55 54 49 4f 4e 20 49 4e 20 53 59 53 4c 44 4d 00 8a 00 54 00 0a 00 50 5c 45 4a 45 43 54 00 8a 00 80 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ( P ABR A2 CONTINUE EXECUTION IN SYSLDM T P EJECT D P******************┆
0x1ad4…1b24 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 20 00 8a 00 8e 00 44 00 50 2a 20 20 53 55 52 4f 55 54 49 4e 45 53 20 55 53 45 44 20 54 4f 20 54 45 53 54 ┆********************************************* D P* SUROUTINES USED TO TEST┆
0x1b24…1b74 20 54 48 45 20 53 59 4e 54 41 58 20 4f 46 20 54 48 45 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 46 49 4c 45 20 00 8a 00 d6 00 44 00 50 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 ┆ THE SYNTAX OF THE CONFIGURATION FILE D P**********************************┆
0x1b74…1bc2 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 20 00 8a 01 1e 00 0a 00 50 5c 45 4a 45 43 54 00 8a 01 66 00 10 00 50 43 4f 4e 52 44 5c 45 51 55 5c 2a 20 00 8a 01 74 00 06 00 50 2a 20 00 8a 01 88 ┆***************************** P EJECT f PCONRD EQU * t P* ┆
0x1bc2…1c12 (19, 0, 398) 00 32 00 50 2a 20 20 43 4f 4d 50 55 54 45 20 4e 55 4d 42 45 52 20 4f 46 20 43 48 41 52 41 43 54 45 52 53 20 49 4e 20 54 48 49 53 20 52 45 43 4f 52 44 00 8b 00 04 00 06 00 50 2a 20 00 8b 00 3a 00 36 00 50 5c 4c 44 5c 41 31 2c 45 49 4e 50 42 ┆ 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD P* : 6 P LD A1,EINPB┆
0x1c12…1c62 46 2b 53 54 4b 45 4e 44 5c 47 45 54 20 43 55 52 52 45 4e 54 20 50 4f 49 4e 54 45 52 20 49 4e 20 42 55 46 46 45 52 00 8b 00 44 00 14 00 50 5c 4c 44 52 5c 41 32 2c 41 31 5c 53 41 56 45 20 00 8b 00 7e 00 26 00 50 5c 4c 44 4b 5c 41 33 2c 30 5c ┆F+STKEND GET CURRENT POINTER IN BUFFER D P LDR A2,A1 SAVE ~ & P LDK A3,0 ┆
0x1c62…1cb2 52 45 53 45 54 20 43 48 41 52 41 43 54 45 52 20 43 4f 55 4e 54 45 52 20 00 8b 00 96 00 1e 00 50 5c 4c 44 52 5c 41 34 2c 41 38 5c 53 54 41 52 54 20 4f 46 20 52 45 43 4f 52 44 00 8b 00 c0 00 10 00 50 43 4f 52 3a 33 30 5c 45 51 55 5c 2a 00 8b ┆RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD PCOR:30 EQU * ┆
0x1cb2…1d02 00 e2 00 1c 00 50 5c 4c 43 52 5c 41 35 2c 41 34 5c 47 45 54 20 43 48 41 52 41 43 54 45 52 00 8b 00 f6 00 20 00 50 5c 43 43 4b 5c 41 35 2c 27 3b 3b 27 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 3f 20 00 8b 01 16 00 16 00 50 5c 52 46 28 45 29 ┆ P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD? P RF(E)┆
0x1d02…1d50 5c 43 4f 52 3a 34 30 5c 59 45 53 21 00 8b 01 3a 00 10 00 50 43 4f 52 3a 33 35 5c 45 51 55 5c 2a 00 8b 01 54 00 2a 00 50 5c 43 57 4b 5c 41 33 2c 52 45 43 4c 45 4e 5c 4d 41 58 49 4d 55 4d 20 53 49 5a 45 20 41 43 48 49 45 56 45 44 3f 20 ┆ COR:40 YES! : PCOR:35 EQU * T * P CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? ┆
0x1d50…1da0 (20, 0, 398) 00 8b 01 68 00 12 00 50 43 4f 52 3a 33 38 5c 45 51 55 5c 2a 2d 32 00 8c 00 08 00 16 00 50 5c 52 46 28 45 29 5c 43 4f 52 3a 34 30 5c 59 45 53 21 00 8c 00 1e 00 2a 00 50 5c 43 57 5c 41 31 2c 45 53 59 53 54 41 2b 53 54 4b 45 4e 44 5c 4d 45 4d ┆ h PCOR:38 EQU *-2 P RF(E) COR:40 YES! * P CW A1,ESYSTA+STKEND MEM┆
0x1da0…1df0 4f 52 59 20 4f 56 45 52 46 4c 4f 57 3f 20 00 8c 00 38 00 16 00 50 5c 52 46 28 45 29 5c 4d 45 4d 4f 46 4c 5c 59 45 53 21 00 8c 00 66 00 26 00 50 5c 41 44 4b 5c 41 31 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 42 55 46 46 45 52 20 50 4f 49 4e 54 ┆ORY OVERFLOW? 8 P RF(E) MEMOFL YES! f & P ADK A1,1 INCREMENT BUFFER POINT┆
0x1df0…1e40 45 52 00 8c 00 80 00 2a 00 50 5c 41 44 4b 5c 41 33 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 43 48 41 52 41 43 54 45 52 20 43 4f 55 4e 54 45 52 20 00 8c 00 aa 00 26 00 50 5c 41 44 4b 5c 41 34 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 52 45 43 4f ┆ER * P ADK A3,1 INCREMENT CHARACTER COUNTER & P ADK A4,1 INCREMENT RECO┆
0x1e40…1e90 52 44 20 50 4f 49 4e 54 45 52 00 8c 00 d8 00 14 00 50 5c 52 42 5c 43 4f 52 3a 33 30 5c 4c 4f 4f 50 20 00 8c 01 02 00 10 00 50 43 4f 52 3a 34 30 5c 45 51 55 5c 2a 00 8c 01 1a 00 22 00 50 5c 4c 43 5c 41 35 2c 31 2c 41 34 5c 47 45 54 20 4e 45 ┆RD POINTER P RB COR:30 LOOP PCOR:40 EQU * " P LC A5,1,A4 GET NE┆
0x1e90…1ede 58 54 20 43 48 41 52 41 43 54 45 52 00 8c 01 2e 00 20 00 50 5c 43 43 4b 5c 41 35 2c 27 3b 3b 27 5c 54 57 4f 20 53 45 4d 49 43 4f 4c 4f 4e 53 3f 00 8c 01 54 00 16 00 50 5c 52 46 28 4e 45 29 5c 43 4f 52 3a 34 35 5c 4e 4f 21 00 8c 01 78 ┆XT CHARACTER . P CCK A5,';;' TWO SEMICOLONS? T P RF(NE) COR:45 NO! x┆