|
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: 7908 (0x1ee4)
Notes: pts_type(SC)
Names: »TIMER.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/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) 00 0e 01 76 00 32 00 50 5c 41 42 4c 5c 4c 4b 4d 52 51 45 5c 53 45 54 20 41 37 3d 2d 31 2c 20 51 55 45 55 45 20 54 41 53 4b 20 41 4e 44 20 44 49 53 50 41 54 43 48 00 0f 00 08 00 08 00 50 5c 58 49 46 00 0f 00 3e 00 0a 00 50 5c 45 4a 45 43 54 ┆ v 2 P ABL LKMRQE SET A7=-1, QUEUE TASK AND DISPATCH P XIF > P EJECT┆
0x15d4…1624 00 0f 00 4a 00 06 00 50 2a 20 00 0f 00 58 00 06 00 50 2a 20 00 0f 00 62 00 06 00 50 2a 20 00 0f 00 6c 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0f 00 76 00 0e 00 50 2a 20 4d 4f 56 46 57 20 2a 20 00 0f 00 88 00 0e 00 50 2a 2a 2a 2a 2a 2a ┆ J P* X P* b P* l P********* v P* MOVFW * P******┆
0x1624…1674 2a 2a 2a 20 00 0f 00 9a 00 06 00 50 2a 20 00 0f 00 ac 00 06 00 50 2a 20 00 0f 00 b6 00 24 00 50 2a 5c 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 4d 4f 56 45 20 43 48 41 52 41 43 54 45 52 53 20 00 0f 00 c0 00 2a 00 50 2a 5c 46 52 4f 4d 20 53 ┆*** P* P* $ P* SUBROUTINE TO MOVE CHARACTERS * P* FROM S┆
0x1674…16c4 59 53 54 45 4d 20 42 55 46 46 45 52 20 54 4f 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 00 0f 00 e8 00 06 00 50 2a 20 00 0f 01 16 00 30 00 50 2a 5c 45 4e 54 52 59 3a 20 20 41 31 20 3d 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 41 44 44 ┆YSTEM BUFFER TO SYSTEM BUFFER P* 0 P* ENTRY: A1 = SYSTEM BUFFER ADD┆
0x16c4…1714 52 45 53 53 2c 53 4f 55 52 43 45 20 00 0f 01 20 00 34 00 50 2a 5c 20 20 20 20 20 20 20 20 41 32 20 3d 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 2c 44 45 53 54 49 4e 41 54 49 4f 4e 00 0f 01 54 00 20 00 50 2a 5c 20 20 ┆RESS,SOURCE 4 P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION T P* ┆
0x1714…1764 (16, 0, 400) 20 20 20 20 20 20 41 33 20 3d 20 42 55 46 46 45 52 20 4c 45 4e 47 54 48 00 0f 01 8c 00 06 00 50 2a 20 00 10 00 20 00 3e 00 50 2a 5c 45 58 49 54 3a 20 20 20 41 31 20 3d 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 2c 53 ┆ A3 = BUFFER LENGTH P* > P* EXIT: A1 = SYSTEM BUFFER ADDRESS,S┆
0x1764…17b4 4f 55 52 43 45 2b 42 55 46 46 45 52 20 4c 45 4e 47 54 48 20 00 10 00 2a 00 42 00 50 2a 5c 20 20 20 20 20 20 20 20 41 32 20 3d 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 2c 44 45 53 54 49 4e 41 54 49 4f 4e 2b 42 55 46 ┆OURCE+BUFFER LENGTH * B P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION+BUF┆
0x17b4…1804 46 45 52 20 4c 45 4e 47 54 48 00 10 00 6c 00 14 00 50 2a 5c 20 20 20 20 20 20 20 20 41 33 20 3d 20 30 00 10 00 b2 00 06 00 50 2a 20 00 10 00 ca 00 10 00 50 4d 4f 56 46 57 5c 45 51 55 5c 2a 20 00 10 00 d4 00 10 00 50 4d 4f 56 42 57 5c 45 51 ┆FER LENGTH l P* A3 = 0 P* PMOVFW EQU * PMOVBW EQ┆
0x1804…1854 55 5c 2a 20 00 10 00 e8 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 30 20 00 10 00 fc 00 2a 00 50 5c 52 46 28 4e 50 29 5c 52 45 54 41 31 34 5c 4e 4f 54 48 49 4e 47 20 54 4f 20 4d 4f 56 45 2c 52 45 54 55 52 4e 20 00 10 01 0e 00 18 00 50 5c 53 54 52 ┆U * P ADK A3,0 * P RF(NP) RETA14 NOTHING TO MOVE,RETURN P STR┆
0x1854…18a4 5c 41 34 2c 41 31 34 5c 53 41 56 45 20 41 34 20 00 10 01 3c 00 1a 00 50 5c 53 54 5c 41 35 2c 2d 32 2c 41 31 34 5c 53 41 56 45 20 41 35 20 00 10 01 58 00 1a 00 50 5c 53 54 5c 41 36 2c 2d 34 2c 41 31 34 5c 53 41 56 45 20 41 36 20 00 10 01 76 ┆ A4,A14 SAVE A4 < P ST A5,-2,A14 SAVE A5 X P ST A6,-4,A14 SAVE A6 v┆
0x18a4…18f4 (17, 0, 400) 00 26 00 50 5c 4c 44 4b 4c 5c 41 36 2c 2f 38 30 30 30 5c 49 4e 44 49 43 41 54 45 20 41 31 34 20 52 45 54 55 52 4e 00 11 00 04 00 1a 00 50 5c 52 46 5c 4d 53 53 30 30 35 5c 4d 4f 56 45 20 42 55 46 46 45 52 00 11 00 2e 00 04 00 50 00 11 00 4c ┆ & P LDKL A6,/8000 INDICATE A14 RETURN P RF MSS005 MOVE BUFFER . P L┆
0x18f4…1944 00 04 00 50 00 11 00 54 00 04 00 50 00 11 00 5c 00 10 00 50 52 54 4e 41 31 34 5c 45 51 55 5c 2a 00 11 00 64 00 20 00 50 5c 4c 44 5c 41 36 2c 2d 34 2c 41 31 34 5c 53 41 56 45 44 20 52 45 47 49 53 54 45 52 00 11 00 78 00 20 00 50 5c 4c 44 5c ┆ P T P PRTNA14 EQU * d P LD A6,-4,A14 SAVED REGISTER x P LD ┆
0x1944…1994 41 35 2c 2d 32 2c 41 31 34 5c 53 41 56 45 44 20 52 45 47 49 53 54 45 52 00 11 00 9c 00 20 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 34 5c 53 41 56 45 44 20 52 45 47 49 53 54 45 52 20 00 11 00 c0 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 30 20 00 11 ┆A5,-2,A14 SAVED REGISTER P LDR* A4,A14 SAVED REGISTER P LDK A3,0 ┆
0x1994…19e4 00 e4 00 10 00 50 52 45 54 41 31 34 5c 45 51 55 5c 2a 00 11 00 f6 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 11 01 0a 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4d 4f 56 45 00 11 01 1a 00 06 00 50 2a 20 00 11 01 30 00 06 00 50 2a 20 00 11 01 3a ┆ PRETA14 EQU * P RTN A14 P EJECT TMOVE P* 0 P* :┆
0x19e4…1a34 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 11 01 44 00 0e 00 50 2a 20 4d 4f 56 53 53 20 2a 20 00 11 01 56 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 11 01 68 00 06 00 50 2a 20 00 11 01 7a 00 06 00 50 2a 20 00 11 01 84 00 24 00 50 2a 5c ┆ P********* D P* MOVSS * V P********* h P* z P* $ P* ┆
0x1a34…1a84 (18, 0, 400) 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 4d 4f 56 45 20 43 48 41 52 41 43 54 45 52 53 20 00 11 01 8e 00 2a 00 50 2a 5c 46 52 4f 4d 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 54 4f 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 00 12 00 26 ┆SUBROUTINE TO MOVE CHARACTERS * P* FROM SYSTEM BUFFER TO SYSTEM BUFFER &┆
0x1a84…1ad4 00 06 00 50 2a 20 00 12 00 54 00 30 00 50 2a 5c 45 4e 54 52 59 3a 20 20 41 31 20 3d 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 2c 53 4f 55 52 43 45 20 00 12 00 5e 00 34 00 50 2a 5c 20 20 20 20 20 20 20 20 41 32 20 3d ┆ P* T 0 P* ENTRY: A1 = SYSTEM BUFFER ADDRESS,SOURCE ^ 4 P* A2 =┆
0x1ad4…1b24 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 2c 44 45 53 54 49 4e 41 54 49 4f 4e 00 12 00 92 00 20 00 50 2a 5c 20 20 20 20 20 20 20 20 41 33 20 3d 20 42 55 46 46 45 52 20 4c 45 4e 47 54 48 00 12 00 ca 00 06 00 50 2a 20 ┆ SYSTEM BUFFER ADDRESS,DESTINATION P* A3 = BUFFER LENGTH P* ┆
0x1b24…1b74 00 12 00 ee 00 3e 00 50 2a 5c 45 58 49 54 3a 20 20 20 41 31 20 3d 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 2c 53 4f 55 52 43 45 2b 42 55 46 46 45 52 20 4c 45 4e 47 54 48 20 00 12 00 f8 00 42 00 50 2a 5c 20 20 20 20 ┆ > P* EXIT: A1 = SYSTEM BUFFER ADDRESS,SOURCE+BUFFER LENGTH B P* ┆
0x1b74…1bc4 20 20 20 20 41 32 20 3d 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 2c 44 45 53 54 49 4e 41 54 49 4f 4e 2b 42 55 46 46 45 52 20 4c 45 4e 47 54 48 00 12 01 3a 00 14 00 50 2a 5c 20 20 20 20 20 20 20 20 41 33 20 3d 20 30 ┆ A2 = SYSTEM BUFFER ADDRESS,DESTINATION+BUFFER LENGTH : P* A3 = 0┆
0x1bc4…1c14 (19, 0, 400) 00 12 01 80 00 06 00 50 2a 20 00 13 00 08 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 00 13 00 12 00 10 00 50 4d 4f 56 55 53 5c 45 51 55 5c 2a 20 00 13 00 28 00 10 00 50 4d 4f 56 53 55 5c 45 51 55 5c 2a 20 00 13 00 3c 00 10 00 50 ┆ P* P IFT MMUPAG=0 PMOVUS EQU * ( PMOVSU EQU * < P┆
0x1c14…1c64 4d 4f 56 55 55 5c 45 51 55 5c 2a 20 00 13 00 50 00 08 00 50 5c 58 49 46 00 13 00 64 00 06 00 50 2a 20 00 13 00 70 00 10 00 50 4d 4f 56 53 53 5c 45 51 55 5c 2a 20 00 13 00 7a 00 1a 00 50 5c 41 44 4b 5c 41 33 2c 30 5c 43 48 45 43 4b 20 4c 45 ┆MOVUU EQU * P P XIF d P* p PMOVSS EQU * z P ADK A3,0 CHECK LE┆
0x1c64…1cb4 4e 47 54 48 00 13 00 8e 00 2a 00 50 5c 52 46 28 4e 50 29 5c 4d 4f 56 52 54 32 5c 4e 4f 54 48 49 4e 47 20 54 4f 20 4d 4f 56 45 2c 20 52 45 54 55 52 4e 00 13 00 ac 00 18 00 50 5c 53 54 52 5c 41 34 2c 41 31 35 5c 53 41 56 45 20 41 34 20 00 13 ┆NGTH * P RF(NP) MOVRT2 NOTHING TO MOVE, RETURN P STR A4,A15 SAVE A4 ┆
0x1cb4…1d04 00 da 00 18 00 50 5c 53 54 52 5c 41 35 2c 41 31 35 5c 53 41 56 45 20 41 35 20 00 13 00 f6 00 18 00 50 5c 53 54 52 5c 41 36 2c 41 31 35 5c 53 41 56 45 20 41 36 20 00 13 01 12 00 22 00 50 5c 4c 44 4b 5c 41 36 2c 30 5c 49 4e 44 49 43 41 54 45 ┆ P STR A5,A15 SAVE A5 P STR A6,A15 SAVE A6 " P LDK A6,0 INDICATE┆
0x1d04…1d54 20 41 31 35 20 52 45 54 55 52 4e 20 00 13 01 2e 00 10 00 50 4d 53 53 30 30 35 5c 45 51 55 5c 2a 00 13 01 54 00 12 00 50 5c 4c 44 4b 5c 41 34 2c 31 5c 4d 41 53 4b 00 13 01 68 00 0e 00 50 5c 54 4d 5c 41 34 2c 41 31 20 00 13 01 7e 00 2c 00 50 ┆ A15 RETURN . PMSS005 EQU * T P LDK A4,1 MASK h P TM A4,A1 ~ , P┆
0x1d54…1da4 (20, 0, 400) 5c 52 46 28 5a 29 5c 4d 53 53 31 30 30 5c 53 4f 55 52 43 45 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 45 56 45 4e 00 13 01 90 00 0e 00 50 5c 54 4d 5c 41 34 2c 41 32 20 00 14 00 30 00 32 00 50 5c 52 46 28 5a 29 5c 4d 53 53 31 31 30 5c ┆ RF(Z) MSS100 SOURCE BUFFER ADDRESS EVEN P TM A4,A2 0 2 P RF(Z) MSS110 ┆
0x1da4…1df4 44 45 53 54 49 4e 41 54 49 4f 4e 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 45 56 45 4e 20 00 14 00 42 00 0a 00 50 5c 45 4a 45 43 54 00 14 00 78 00 06 00 50 2a 20 00 14 00 86 00 34 00 50 2a 5c 42 4f 54 48 20 53 4f 55 52 43 45 20 41 4e ┆DESTINATION BUFFER ADDRESS EVEN B P EJECT x P* 4 P* BOTH SOURCE AN┆
0x1df4…1e44 44 20 44 45 53 54 49 4e 41 54 49 4f 4e 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 4f 44 44 00 14 00 90 00 06 00 50 2a 20 00 14 00 c8 00 26 00 50 5c 4c 43 52 5c 41 35 2c 41 31 5c 46 49 52 53 54 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 ┆D DESTINATION BUFFER ADDRESS ODD P* & P LCR A5,A1 FIRST CHARACTER TO ┆
0x1e44…1e94 4d 4f 56 45 00 14 00 d2 00 1e 00 50 5c 53 43 52 5c 41 35 2c 41 32 5c 53 41 56 45 20 43 48 41 52 41 43 54 45 52 20 00 14 00 fc 00 2a 00 50 5c 41 44 4b 5c 41 31 2c 31 5c 55 50 44 41 54 45 20 53 4f 55 52 43 45 20 42 55 46 46 45 52 20 41 44 44 ┆MOVE P SCR A5,A2 SAVE CHARACTER * P ADK A1,1 UPDATE SOURCE BUFFER ADD┆
0x1e94…1ee4 52 45 53 53 00 14 01 1e 00 30 00 50 5c 41 44 4b 5c 41 32 2c 31 5c 55 50 44 41 54 45 20 44 45 53 54 49 4e 41 54 49 4f 4e 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 14 01 4c 00 1e 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 44 45 43 52 45 4d ┆RESS 0 P ADK A2,1 UPDATE DESTINATION BUFFER ADDRESS L P SUK A3,1 DECREM┆