|
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: 7980 (0x1f2c)
Notes: pts_type(SC)
Names: »ATTACH.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/ATTACH.SC«
IDENT ATTACH REL 8.2 78-09-15 870105040820 * ******************************************* * * PHILIPS TERMINAL SYSTEM PTS * * ATTACH = ATTACH/DETACH HANDLER * * * * * * ******************************************* * * THIS MODULE IS CALLED FROM TIO WITH * PARAMETERS: * * A5 TTAB ADDRESS * A6 DWT ADDRESS * A7 ORDER * A8 ECB ADDRESS * **************************************** * EJECT * * E N T R I E S * ENTRY ATTACH ATTACH DEVICE ENTRY DETACH DETACH DEVICE ENTRY ATT:CH CHAIN ANCHOR * * * E X T E R N A L S * EXTRN GETBLK GET BLOCK EXTRN FREBLK FREE BLOCK EXTRN SETIMP SET TIMER EXTRN TTB:ST TTAB STATUS EXTRN TTB:SA DISPATCH ADDRESS EXTRN DWTST DWT STATUS EXTRN DWTTQ EXTRN DWTTAB TTAB EXTRN DWTADR ACTIVATION ADDR EXTRN TIOQ20 INSERT TTAB IN DEVICE QUEUE EXTRN TIOERR END REQUEST EXTRN TDISP DISPATCHER EXTRN TPQUE QUEUE TTAB EXTRN QTJOB EXTRN IHRTN EXTRN FDBADF ADDRESS OF DATA FILE FDB EXTRN TIODM DM ENTRY EJECT * * A T T A C H * ATTACH EQU * ENTRY LDR A4,A4 I/O AND ACTIVATE? RF(NZ) ATT:30 YES, REQUEST ERROR CM 8,A8 RESET RETURN CODE * * ABORT REQUEST IF BIT 1 IN TTB:ST SET * LDKL A2,/4000 BIT 1 AN A2,TTB:ST,A5 RF(Z) ATT:10 DON'T ABORT XRS A2,TTB:ST,A5 RESET BIT 1 RF ATT:55 END REQUEST ATT:10 LDKL A2,/800 ATTACH BIT LDR A1,A2 SAVE AN A2,DWTST,A6 RF(NZ) ATT:40 DEVICE ALREADY ATTACHED LD A3,DWTST,A6 RF(NN) ATT:50 DEVICE BUSY * * ATTACH REQUESTING TASK * ORS A1,DWTST,A6 ATTACH ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT LDKL A4,TIODM CW A4,DWTADR,A6 RF(NE) ATT:15 NO DM REQUEST CF A15,FDBATT ATTACH FILE STRUCTURE ATT:15 EQU * CF A15,FNDBLK ANY TIMERS ACTIVE? LDR A4,A4 RF(Z) ATT:20 NO! * * FREE BLOCK AND TIMER IN ATT:CH * CM* 2,A4 FREE TIMER LDR* A3,A4 REMOVE FROM ATT:CH STR A3,A2 CF A15,FREBLK RELEASE BLOCK ATT:20 LDK A3,0 RETURN CODE ATT:30 ABL TIOERR END REQUEST ATT:35 LDKL A3,/8000 RETURN CODE RB ATT:30 ATT:40 CW A5,DWTTAB,A6 ATTACHED TO REQUESTING TASK RB(E) ATT:35 YES, REQUEST ERROR ATT:50 CF A15,FNDBLK IS TIMER ACTIVE? LDR A4,A4 RF(NZ) ATT:80 YES! * * SET TIMER * LD A1,10,A8 TIME RB(N) ATT:35 TIME NEGATIVE RF(NZ) ATT:60 SET TIMER ATT:55 LDK A3,/40 RETURN CODE RB ATT:30 END REQUEST ATT:60 ST A1,ATTIM LDR A1,A5 TTAB ADDRESS CF A15,GETBLK GET BLOCK LD A1,ATT:CH ANCHOR STR A1,A4 ST A4,ATT:CH UPDATE ANCHOR ADK A4,2 TIMER POINTER ADDRESS LDR A1,A6 DWT ADDRESS CF A15,SETIMP SET TIMER DATA TIMOUT ATTIM DATA 0 ATT:80 LDK A4,0 NOT ACTIVATION PARAMETER ABL TIOQ20 EJECT * * D E T A C H * DETACH EQU * LDR A4,A4 RB(NZ) ATT:30 I/O AND ACTIVATE-ERROR LDKL A1,/800 AN A1,DWTST,A6 RB(Z) ATT:35 NOT ATTACHED CW A5,DWTTAB,A6 RB(NE) ATT:35 ATTACHED TO OTHER TASK XRS A1,DWTST,A6 DETACH LDKL A4,TIODM CW A4,DWTADR,A6 RF(NE) DET:05 NO DM REQUEST CF A15,FDBDET DETACH FILE STRUCTURE RB ATT:20 END REQUEST DET:05 EQU * LDR A2,A6 QREQ INPUT CF A15,QREQ UPDATE DWTTQ RB ATT:20 END REQUEST EJECT * * T I M E O U T * * ENTRY PARAMETERS * A1 DWT ADDRESS * A2 ADDRESS TO 2:ND TIMER BLOCK * TIMOUT EQU * LDR A6,A1 LDR* A2,A2 TIMER POINTER ADDRES ADK A2,2 LDR* A5,A2 TTAB ADDRESS CF A15,FNDBLK LDR* A1,A4 STR A1,A2 REMOVE FROM ATT:CH CF A15,FREBLK * * REMOVE TTAB FROM DEVICE QUEUE * LDR A1,A6 ADKL A1,DWTTQ QUEUE ANCHOR ADDRESS TIM:10 LDR A2,A1 SAVE LDR* A1,A1 NEXT IN QUEUE RF(NZ) TIM:30 CONTINUE SEARCH LDKL A1,/4000 BIT 1 ORS A1,TTB:ST,A5 SET BIT 1 IN TTAB STATUS ABL TDISP TIM:30 EQU * CWR A1,A5 RB(NE) TIM:10 NOT FOUND * * TTAB FOUND - REMOVE FROM QUEUE * LDR* A1,A1 STR A1,A2 LDK A3,4 ADS A3,TTB:SA,A5 UPDATE DISPACH ADDRESS CF A15,SETRCE SET RETURN CODE IN ECB ABL TPQUE ATT:CH DATA 0 ATTACH CHAIN ANCHOR EJECT * * F N D B L K * * SUBROUTINE TO FIND BLK IN ATT:CH * * ENTRY PARAMETERS: * * A5 TTAB ADDRESS * * EXIT PARAMETERS: * * A2 ADDRESS TO PRECEDING BLK IN CHAIN * A4 BLOCK ADDRESS IF FOUND ELSE 0 * FNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS FND:10 LDR A2,A4 SAVE LDR* A4,A4 RF(Z) FND:30 END OF ATT:CH CW A5,4,A4 RB(NE) FND:10 NOT FOUND FND:30 ABL IHRTN EJECT * * S E T R C E * * THIS SUBROUTINE SETS RETURN CODE /0040 IN ECB. * ECB ADDRESS IS FOUND FROM TTAB SAVE AREA * * ENTRY PARAMETERS: A5 TTAB ADDRESS * * EXIT PARAMETERS: A1 ECB ADDRESS * A5 TTAB ADDRESS * SETRCE LDR A1,A5 ADK A1,/1C A8 IN SAVE AREA LDR* A1,A1 ECB ADDRESS LDK A2,/40 RETURN CODE ORS A2,8,A1 INTO ECB ABL IHRTN EJECT * * F D B A T T / F D B D E T * * SUBROUTINE TO ATTACH/DETACH FDB7S IN A DM FILE * STRUCTURE * * ENTRY: A1 /0800 * A6 FDB ADDRESS * * WORKING REG. A2,A3,A4 * FDBDET EQU * C1R A1,A1 A1=FF7F FDBATT EQU * LDR A4,A6 FDB ADDRESS ADKL A4,FDBADF LDK A3,10 LOOP INDEX FDB:10 SUK A3,2 RF(N) FDB:30 ALL FDB'S READY LDR* A2,A4 NEXT FDB RF(Z) FDB:20 NO FDB LDR A1,A1 RF(N) FDB:15 DETACH REQUEST ORS A1,DWTST,A2 ATTACH / DETACH FILE ST A5,DWTTAB,A2 RF FDB:20 FDB:15 ANS A1,DWTST,A2 CF A15,QREQ UPDATE DWTTQ FDB:20 ADK A4,2 NEXT FDB ADDRESS RB FDB:10 FDB:30 ABL IHRTN EJECT * * Q R E Q = SUBROUTINE TO QUEUE TASK IN DEVICE QUEUE * (IF ANY) * * ON ENTRY: A2 DWT ADDRESS * WORK. REG. A7,A9 * QREQ EQU * LDR A9,A5 SAVE A5 (TTAB ADDRESS) LD A5,DWTTQ,A2 ANY TASK IN QUEUE? RF(Z) QRE:10 NO! LDR* A7,A5 YES,UPDATE QUEUE ANCHOR ST A7,DWTTQ,A2 CF A15,QTJOB QUEUE TASK QRE:10 EQU * LDR A5,A9 RESTORE TTAB ADDRESS ABL IHRTN END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT ATTACH REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…007c Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x004c}
0x007c…0086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0080}
0x0086…00ae Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x008a}
0x00ae…00b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00e2 Head {h00=0x0026, h01=0x0050, text=»* ATTACH = ATTACH/DETACH HANDLER«, t00=0x0000, t01=0x00bc}
0x00e2…00ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e6}
0x00ec…00f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f0}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0152 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0122}
0x0152…015c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0156}
0x015c…018c Head {h00=0x002c, h01=0x0050, text=»* THIS MODULE IS CALLED FROM TIO WITH «, t00=0x0000, t01=0x0160}
0x018c…01a4 Head {h00=0x0014, h01=0x0050, text=»* PARAMETERS: «, t00=0x0000, t01=0x0190}
0x01a4…01ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0018}
0x01ae…01cc Head {h00=0x001a, h01=0x0050, text=»* A5 TTAB ADDRESS «, t00=0x0001, t01=0x0022}
0x01cc…01e8 Head {h00=0x0018, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0001, t01=0x0040}
0x01e8…01fe Head {h00=0x0012, h01=0x0050, text=»* A7 ORDER«, t00=0x0001, t01=0x005c}
0x01fe…021a Head {h00=0x0018, h01=0x0050, text=»* A8 ECB ADDRESS«, t00=0x0001, t01=0x0072}
0x021a…0224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008e}
0x0224…0254 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0001, t01=0x0098}
0x0254…025e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c8}
0x025e…026c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00d2}
0x026c…0276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e0}
0x0276…0290 Head {h00=0x0016, h01=0x0050, text=»* E N T R I E S «, t00=0x0001, t01=0x00ea}
0x0290…029a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x029a…02be Head {h00=0x0020, h01=0x0050, text=» ENTRY ATTACH ATTACH DEVICE «, t00=0x0001, t01=0x010e}
0x02be…02e2 Head {h00=0x0020, h01=0x0050, text=» ENTRY DETACH DETACH DEVICE «, t00=0x0001, t01=0x0132}
0x02e2…0304 Head {h00=0x001e, h01=0x0050, text=» ENTRY ATT:CH CHAIN ANCHOR«, t00=0x0001, t01=0x0156}
0x0304…030e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0178}
0x030e…0318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0182}
0x0318…0336 Head {h00=0x001a, h01=0x0050, text=»* E X T E R N A L S «, t00=0x0001, t01=0x018c}
0x0336…0340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001a}
0x0340…0360 Head {h00=0x001c, h01=0x0050, text=» EXTRN GETBLK GET BLOCK «, t00=0x0002, t01=0x0024}
0x0360…0380 Head {h00=0x001c, h01=0x0050, text=» EXTRN FREBLK FREE BLOCK«, t00=0x0002, t01=0x0044}
0x0380…03a0 Head {h00=0x001c, h01=0x0050, text=» EXTRN SETIMP SET TIMER «, t00=0x0002, t01=0x0064}
0x03a0…03a8 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0084}
0x03a8…03ca Head {h00=0x001e, h01=0x0050, text=» EXTRN TTB:ST TTAB STATUS «, t00=0x0002, t01=0x008c}
0x03ca…03f0 Head {h00=0x0022, h01=0x0050, text=» EXTRN TTB:SA DISPATCH ADDRESS«, t00=0x0002, t01=0x00ae}
0x03f0…03f8 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00d4}
0x03f8…0418 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0002, t01=0x00dc}
0x0418…042c Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTTQ«, t00=0x0002, t01=0x00fc}
0x042c…0446 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTTAB TTAB«, t00=0x0002, t01=0x0110}
0x0446…046c Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTADR ACTIVATION ADDR «, t00=0x0002, t01=0x012a}
0x046c…0474 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0150}
0x0474…04a6 Head {h00=0x002e, h01=0x0050, text=» EXTRN TIOQ20 INSERT TTAB IN DEVICE QUEUE «, t00=0x0002, t01=0x0158}
0x04a6…04c8 Head {h00=0x001e, h01=0x0050, text=» EXTRN TIOERR END REQUEST «, t00=0x0002, t01=0x018a}
0x04c8…04e8 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x001c}
0x04e8…04f0 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x003c}
0x04f0…0510 Head {h00=0x001c, h01=0x0050, text=» EXTRN TPQUE QUEUE TTAB «, t00=0x0003, t01=0x0044}
0x0510…0524 Head {h00=0x0010, h01=0x0050, text=» EXTRN QTJOB«, t00=0x0003, t01=0x0064}
0x0524…0538 Head {h00=0x0010, h01=0x0050, text=» EXTRN IHRTN«, t00=0x0003, t01=0x0078}
0x0538…0540 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x008c}
0x0540…056e Head {h00=0x002a, h01=0x0050, text=» EXTRN FDBADF ADDRESS OF DATA FILE FDB«, t00=0x0003, t01=0x0094}
0x056e…058c Head {h00=0x001a, h01=0x0050, text=» EXTRN TIODM DM ENTRY «, t00=0x0003, t01=0x00c2}
0x058c…059a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00e0}
0x059a…05a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ee}
0x05a4…05bc Head {h00=0x0014, h01=0x0050, text=»* A T T A C H «, t00=0x0003, t01=0x00f8}
0x05bc…05c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0110}
0x05c6…05e0 Head {h00=0x0016, h01=0x0050, text=»ATTACH EQU * ENTRY«, t00=0x0003, t01=0x011a}
0x05e0…0604 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 I/O AND ACTIVATE?«, t00=0x0003, t01=0x0134}
0x0604…062e Head {h00=0x0026, h01=0x0050, text=» RF(NZ) ATT:30 YES, REQUEST ERROR «, t00=0x0003, t01=0x0158}
0x062e…0650 Head {h00=0x001e, h01=0x0050, text=» CM 8,A8 RESET RETURN CODE«, t00=0x0003, t01=0x0182}
0x0650…065a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x065a…068a Head {h00=0x002c, h01=0x0050, text=»* ABORT REQUEST IF BIT 1 IN TTB:ST SET«, t00=0x0004, t01=0x001e}
0x068a…0694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004e}
0x0694…06b0 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,/4000 BIT 1«, t00=0x0004, t01=0x0058}
0x06b0…06c8 Head {h00=0x0014, h01=0x0050, text=» AN A2,TTB:ST,A5«, t00=0x0004, t01=0x0074}
0x06c8…06ea Head {h00=0x001e, h01=0x0050, text=» RF(Z) ATT:10 DON'T ABORT «, t00=0x0004, t01=0x008c}
0x06ea…0710 Head {h00=0x0022, h01=0x0050, text=» XRS A2,TTB:ST,A5 RESET BIT 1 «, t00=0x0004, t01=0x00ae}
0x0710…072e Head {h00=0x001a, h01=0x0050, text=» RF ATT:55 END REQUEST«, t00=0x0004, t01=0x00d4}
0x072e…0736 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00f2}
0x0736…075c Head {h00=0x0022, h01=0x0050, text=»ATT:10 LDKL A2,/800 ATTACH BIT«, t00=0x0004, t01=0x00fa}
0x075c…0774 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A2 SAVE «, t00=0x0004, t01=0x0120}
0x0774…078c Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTST,A6 «, t00=0x0004, t01=0x0138}
0x078c…07ba Head {h00=0x002a, h01=0x0050, text=» RF(NZ) ATT:40 DEVICE ALREADY ATTACHED«, t00=0x0004, t01=0x0150}
0x07ba…07d2 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x0004, t01=0x017e}
0x07d2…07f4 Head {h00=0x001e, h01=0x0050, text=» RF(NN) ATT:50 DEVICE BUSY«, t00=0x0005, t01=0x0008}
0x07f4…07fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002a}
0x07fe…0820 Head {h00=0x001e, h01=0x0050, text=»* ATTACH REQUESTING TASK«, t00=0x0005, t01=0x0034}
0x0820…082a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0056}
0x082a…084a Head {h00=0x001c, h01=0x0050, text=» ORS A1,DWTST,A6 ATTACH «, t00=0x0005, t01=0x0060}
0x084a…087a Head {h00=0x002c, h01=0x0050, text=» ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT«, t00=0x0005, t01=0x0080}
0x087a…0890 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,TIODM«, t00=0x0005, t01=0x00b0}
0x0890…08a8 Head {h00=0x0014, h01=0x0050, text=» CW A4,DWTADR,A6«, t00=0x0005, t01=0x00c6}
0x08a8…08cc Head {h00=0x0020, h01=0x0050, text=» RF(NE) ATT:15 NO DM REQUEST«, t00=0x0005, t01=0x00de}
0x08cc…08f8 Head {h00=0x0028, h01=0x0050, text=» CF A15,FDBATT ATTACH FILE STRUCTURE«, t00=0x0005, t01=0x0102}
0x08f8…090c Head {h00=0x0010, h01=0x0050, text=»ATT:15 EQU *«, t00=0x0005, t01=0x012e}
0x090c…0936 Head {h00=0x0026, h01=0x0050, text=» CF A15,FNDBLK ANY TIMERS ACTIVE? «, t00=0x0005, t01=0x0142}
0x0936…0948 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x0005, t01=0x016c}
0x0948…0962 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ATT:20 NO! «, t00=0x0005, t01=0x017e}
0x0962…096c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096c…0996 Head {h00=0x0026, h01=0x0050, text=»* FREE BLOCK AND TIMER IN ATT:CH «, t00=0x0006, t01=0x0012}
0x0996…09a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003c}
0x09a0…09bc Head {h00=0x0018, h01=0x0050, text=» CM* 2,A4 FREE TIMER«, t00=0x0006, t01=0x0046}
0x09bc…09e2 Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A4 REMOVE FROM ATT:CH«, t00=0x0006, t01=0x0062}
0x09e2…09f4 Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0006, t01=0x0088}
0x09f4…0a18 Head {h00=0x0020, h01=0x0050, text=» CF A15,FREBLK RELEASE BLOCK«, t00=0x0006, t01=0x009a}
0x0a18…0a3c Head {h00=0x0020, h01=0x0050, text=»ATT:20 LDK A3,0 RETURN CODE «, t00=0x0006, t01=0x00be}
0x0a3c…0a62 Head {h00=0x0022, h01=0x0050, text=»ATT:30 ABL TIOERR END REQUEST «, t00=0x0006, t01=0x00e2}
0x0a62…0a8a Head {h00=0x0024, h01=0x0050, text=»ATT:35 LDKL A3,/8000 RETURN CODE«, t00=0x0006, t01=0x0108}
0x0a8a…0a9c Head {h00=0x000e, h01=0x0050, text=» RB ATT:30«, t00=0x0006, t01=0x0130}
0x0a9c…0aa4 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0142}
0x0aa4…0ade Head {h00=0x0036, h01=0x0050, text=»ATT:40 CW A5,DWTTAB,A6 ATTACHED TO REQUESTING TASK«, t00=0x0006, t01=0x014a}
0x0ade…0b06 Head {h00=0x0024, h01=0x0050, text=» RB(E) ATT:35 YES, REQUEST ERROR«, t00=0x0006, t01=0x0184}
0x0b06…0b34 Head {h00=0x002a, h01=0x0050, text=»ATT:50 CF A15,FNDBLK IS TIMER ACTIVE? «, t00=0x0007, t01=0x001c}
0x0b34…0b46 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x0007, t01=0x004a}
0x0b46…0b62 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ATT:80 YES! «, t00=0x0007, t01=0x005c}
0x0b62…0b6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0078}
0x0b6c…0b82 Head {h00=0x0012, h01=0x0050, text=»* SET TIMER«, t00=0x0007, t01=0x0082}
0x0b82…0b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0098}
0x0b8c…0ba6 Head {h00=0x0016, h01=0x0050, text=» LD A1,10,A8 TIME «, t00=0x0007, t01=0x00a2}
0x0ba6…0bca Head {h00=0x0020, h01=0x0050, text=» RB(N) ATT:35 TIME NEGATIVE «, t00=0x0007, t01=0x00bc}
0x0bca…0bea Head {h00=0x001c, h01=0x0050, text=» RF(NZ) ATT:60 SET TIMER«, t00=0x0007, t01=0x00e0}
0x0bea…0c10 Head {h00=0x0022, h01=0x0050, text=»ATT:55 LDK A3,/40 RETURN CODE «, t00=0x0007, t01=0x0100}
0x0c10…0c2e Head {h00=0x001a, h01=0x0050, text=» RB ATT:30 END REQUEST«, t00=0x0007, t01=0x0126}
0x0c2e…0c48 Head {h00=0x0016, h01=0x0050, text=»ATT:60 ST A1,ATTIM«, t00=0x0007, t01=0x0144}
0x0c48…0c68 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A5 TTAB ADDRESS «, t00=0x0007, t01=0x015e}
0x0c68…0c88 Head {h00=0x001c, h01=0x0050, text=» CF A15,GETBLK GET BLOCK«, t00=0x0007, t01=0x017e}
0x0c88…0ca4 Head {h00=0x0018, h01=0x0050, text=» LD A1,ATT:CH ANCHOR«, t00=0x0008, t01=0x000e}
0x0ca4…0cb6 Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x0008, t01=0x002a}
0x0cb6…0cda Head {h00=0x0020, h01=0x0050, text=» ST A4,ATT:CH UPDATE ANCHOR «, t00=0x0008, t01=0x003c}
0x0cda…0d02 Head {h00=0x0024, h01=0x0050, text=» ADK A4,2 TIMER POINTER ADDRESS «, t00=0x0008, t01=0x0060}
0x0d02…0d20 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 DWT ADDRESS«, t00=0x0008, t01=0x0088}
0x0d20…0d40 Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIMP SET TIMER«, t00=0x0008, t01=0x00a6}
0x0d40…0d54 Head {h00=0x0010, h01=0x0050, text=» DATA TIMOUT«, t00=0x0008, t01=0x00c6}
0x0d54…0d68 Head {h00=0x0010, h01=0x0050, text=»ATTIM DATA 0«, t00=0x0008, t01=0x00da}
0x0d68…0d98 Head {h00=0x002c, h01=0x0050, text=»ATT:80 LDK A4,0 NOT ACTIVATION PARAMETER«, t00=0x0008, t01=0x00ee}
0x0d98…0dac Head {h00=0x0010, h01=0x0050, text=» ABL TIOQ20 «, t00=0x0008, t01=0x011e}
0x0dac…0dba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0132}
0x0dba…0dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0140}
0x0dc4…0ddc Head {h00=0x0014, h01=0x0050, text=»* D E T A C H «, t00=0x0008, t01=0x014a}
0x0ddc…0de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0162}
0x0de6…0dfa Head {h00=0x0010, h01=0x0050, text=»DETACH EQU *«, t00=0x0008, t01=0x016c}
0x0dfa…0e0c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x0008, t01=0x0180}
0x0e0c…0e3a (9, 0, 400) Head {h00=0x002a, h01=0x0050, text=» RB(NZ) ATT:30 I/O AND ACTIVATE-ERROR «, t00=0x0009, t01=0x0004}
0x0e3a…0e50 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/800 «, t00=0x0009, t01=0x0032}
0x0e50…0e68 Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTST,A6 «, t00=0x0009, t01=0x0048}
0x0e68…0e8a Head {h00=0x001e, h01=0x0050, text=» RB(Z) ATT:35 NOT ATTACHED«, t00=0x0009, t01=0x0060}
0x0e8a…0ea2 Head {h00=0x0014, h01=0x0050, text=» CW A5,DWTTAB,A6«, t00=0x0009, t01=0x0082}
0x0ea2…0ed0 Head {h00=0x002a, h01=0x0050, text=» RB(NE) ATT:35 ATTACHED TO OTHER TASK «, t00=0x0009, t01=0x009a}
0x0ed0…0ef0 Head {h00=0x001c, h01=0x0050, text=» XRS A1,DWTST,A6 DETACH «, t00=0x0009, t01=0x00c8}
0x0ef0…0f06 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,TIODM«, t00=0x0009, t01=0x00e8}
0x0f06…0f1e Head {h00=0x0014, h01=0x0050, text=» CW A4,DWTADR,A6«, t00=0x0009, t01=0x00fe}
0x0f1e…0f42 Head {h00=0x0020, h01=0x0050, text=» RF(NE) DET:05 NO DM REQUEST«, t00=0x0009, t01=0x0116}
0x0f42…0f6e Head {h00=0x0028, h01=0x0050, text=» CF A15,FDBDET DETACH FILE STRUCTURE«, t00=0x0009, t01=0x013a}
0x0f6e…0f8c Head {h00=0x001a, h01=0x0050, text=» RB ATT:20 END REQUEST«, t00=0x0009, t01=0x0166}
0x0f8c…0fa0 Head {h00=0x0010, h01=0x0050, text=»DET:05 EQU *«, t00=0x0009, t01=0x0184}
0x0fa0…0fbe Head {h00=0x001a, h01=0x0050, text=» LDR A2,A6 QREQ INPUT «, t00=0x000a, t01=0x0008}
0x0fbe…0fe0 Head {h00=0x001e, h01=0x0050, text=» CF A15,QREQ UPDATE DWTTQ «, t00=0x000a, t01=0x0026}
0x0fe0…0ffe Head {h00=0x001a, h01=0x0050, text=» RB ATT:20 END REQUEST«, t00=0x000a, t01=0x0048}
0x0ffe…100c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0066}
0x100c…1016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0074}
0x1016…102e Head {h00=0x0014, h01=0x0050, text=»* T I M E O U T«, t00=0x000a, t01=0x007e}
0x102e…1038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0096}
0x1038…1054 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS «, t00=0x000a, t01=0x00a0}
0x1054…106e Head {h00=0x0016, h01=0x0050, text=»* A1 DWT ADDRESS«, t00=0x000a, t01=0x00bc}
0x106e…1098 Head {h00=0x0026, h01=0x0050, text=»* A2 ADDRESS TO 2:ND TIMER BLOCK«, t00=0x000a, t01=0x00d6}
0x1098…10a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0100}
0x10a2…10b6 Head {h00=0x0010, h01=0x0050, text=»TIMOUT EQU *«, t00=0x000a, t01=0x010a}
0x10b6…10c8 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x000a, t01=0x011e}
0x10c8…10f0 Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A2 TIMER POINTER ADDRES«, t00=0x000a, t01=0x0130}
0x10f0…1102 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x000a, t01=0x0158}
0x1102…1122 Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A2 TTAB ADDRESS«, t00=0x000a, t01=0x016a}
0x1122…1138 Head {h00=0x0012, h01=0x0050, text=» CF A15,FNDBLK«, t00=0x000a, t01=0x018a}
0x1138…114c Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A4 «, t00=0x000b, t01=0x0010}
0x114c…1172 Head {h00=0x0022, h01=0x0050, text=» STR A1,A2 REMOVE FROM ATT:CH «, t00=0x000b, t01=0x0024}
0x1172…1188 Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x000b, t01=0x004a}
0x1188…1192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0060}
0x1192…11bc Head {h00=0x0026, h01=0x0050, text=»* REMOVE TTAB FROM DEVICE QUEUE «, t00=0x000b, t01=0x006a}
0x11bc…11c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0094}
0x11c6…11d8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x000b, t01=0x009e}
0x11d8…1204 Head {h00=0x0028, h01=0x0050, text=» ADKL A1,DWTTQ QUEUE ANCHOR ADDRESS «, t00=0x000b, t01=0x00b0}
0x1204…1222 Head {h00=0x001a, h01=0x0050, text=»TIM:10 LDR A2,A1 SAVE «, t00=0x000b, t01=0x00dc}
0x1222…1244 Head {h00=0x001e, h01=0x0050, text=» LDR* A1,A1 NEXT IN QUEUE «, t00=0x000b, t01=0x00fa}
0x1244…126a Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TIM:30 CONTINUE SEARCH«, t00=0x000b, t01=0x011c}
0x126a…1286 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,/4000 BIT 1«, t00=0x000b, t01=0x0142}
0x1286…12b8 Head {h00=0x002e, h01=0x0050, text=» ORS A1,TTB:ST,A5 SET BIT 1 IN TTAB STATUS«, t00=0x000b, t01=0x015e}
0x12b8…12ca Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x000b, t01=0x0190}
0x12ca…12de Head {h00=0x0010, h01=0x0050, text=»TIM:30 EQU *«, t00=0x000c, t01=0x0012}
0x12de…12f0 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A5«, t00=0x000c, t01=0x0026}
0x12f0…1310 Head {h00=0x001c, h01=0x0050, text=» RB(NE) TIM:10 NOT FOUND«, t00=0x000c, t01=0x0038}
0x1310…131a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0058}
0x131a…1344 Head {h00=0x0026, h01=0x0050, text=»* TTAB FOUND - REMOVE FROM QUEUE «, t00=0x000c, t01=0x0062}
0x1344…134e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008c}
0x134e…1362 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x000c, t01=0x0096}
0x1362…1374 Head {h00=0x000e, h01=0x0050, text=» STR A1,A2«, t00=0x000c, t01=0x00aa}
0x1374…1386 Head {h00=0x000e, h01=0x0050, text=» LDK A3,4 «, t00=0x000c, t01=0x00bc}
0x1386…13b6 Head {h00=0x002c, h01=0x0050, text=» ADS A3,TTB:SA,A5 UPDATE DISPACH ADDRESS«, t00=0x000c, t01=0x00ce}
0x13b6…13e4 Head {h00=0x002a, h01=0x0050, text=» CF A15,SETRCE SET RETURN CODE IN ECB «, t00=0x000c, t01=0x00fe}
0x13e4…13f6 Head {h00=0x000e, h01=0x0050, text=» ABL TPQUE«, t00=0x000c, t01=0x012c}
0x13f6…13fe Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x013e}
0x13fe…1428 Head {h00=0x0026, h01=0x0050, text=»ATT:CH DATA 0 ATTACH CHAIN ANCHOR «, t00=0x000c, t01=0x0146}
0x1428…1436 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0170}
0x1436…1440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x017e}
0x1440…1456 Head {h00=0x0012, h01=0x0050, text=»* F N D B L K«, t00=0x000c, t01=0x0188}
0x1456…1460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000e}
0x1460…148c Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE TO FIND BLK IN ATT:CH «, t00=0x000d, t01=0x0018}
0x148c…1496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0044}
0x1496…14b2 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS:«, t00=0x000d, t01=0x004e}
0x14b2…14bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006a}
0x14bc…14d8 Head {h00=0x0018, h01=0x0050, text=»* A5 TTAB ADDRESS «, t00=0x000d, t01=0x0074}
0x14d8…14e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0090}
0x14e2…14fe Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETERS: «, t00=0x000d, t01=0x009a}
0x14fe…1508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b6}
0x1508…1538 Head {h00=0x002c, h01=0x0050, text=»* A2 ADDRESS TO PRECEDING BLK IN CHAIN«, t00=0x000d, t01=0x00c0}
0x1538…1564 Head {h00=0x0028, h01=0x0050, text=»* A4 BLOCK ADDRESS IF FOUND ELSE 0«, t00=0x000d, t01=0x00f0}
0x1564…156e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011c}
0x156e…159a Head {h00=0x0028, h01=0x0050, text=»FNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS«, t00=0x000d, t01=0x0126}
0x159a…15b8 Head {h00=0x001a, h01=0x0050, text=»FND:10 LDR A2,A4 SAVE «, t00=0x000d, t01=0x0152}
0x15b8…15cc Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A4 «, t00=0x000d, t01=0x0170}
0x15cc…15f0 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FND:30 END OF ATT:CH «, t00=0x000d, t01=0x0184}
0x15f0…1604 Head {h00=0x0010, h01=0x0050, text=» CW A5,4,A4 «, t00=0x000e, t01=0x0018}
0x1604…1624 Head {h00=0x001c, h01=0x0050, text=» RB(NE) FND:10 NOT FOUND«, t00=0x000e, t01=0x002c}
0x1624…163c Head {h00=0x0014, h01=0x0050, text=»FND:30 ABL IHRTN«, t00=0x000e, t01=0x004c}
0x163c…164a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0064}
0x164a…1654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0072}
0x1654…166a Head {h00=0x0012, h01=0x0050, text=»* S E T R C E«, t00=0x000e, t01=0x007c}
0x166a…1674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0092}
0x1674…16ae Head {h00=0x0036, h01=0x0050, text=»* THIS SUBROUTINE SETS RETURN CODE /0040 IN ECB. «, t00=0x000e, t01=0x009c}
0x16ae…16e2 Head {h00=0x0030, h01=0x0050, text=»* ECB ADDRESS IS FOUND FROM TTAB SAVE AREA «, t00=0x000e, t01=0x00d6}
0x16e2…16ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010a}
0x16ec…171a Head {h00=0x002a, h01=0x0050, text=»* ENTRY PARAMETERS: A5 TTAB ADDRESS«, t00=0x000e, t01=0x0114}
0x171a…1724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0142}
0x1724…1752 Head {h00=0x002a, h01=0x0050, text=»* EXIT PARAMETERS: A1 ECB ADDRESS «, t00=0x000e, t01=0x014c}
0x1752…1780 Head {h00=0x002a, h01=0x0050, text=»* A5 TTAB ADDRESS«, t00=0x000e, t01=0x017a}
0x1780…178a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0018}
0x178a…17a2 Head {h00=0x0014, h01=0x0050, text=»SETRCE LDR A1,A5«, t00=0x000f, t01=0x0022}
0x17a2…17c6 Head {h00=0x0020, h01=0x0050, text=» ADK A1,/1C A8 IN SAVE AREA «, t00=0x000f, t01=0x003a}
0x17c6…17e6 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A1 ECB ADDRESS «, t00=0x000f, t01=0x005e}
0x17e6…1806 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/40 RETURN CODE «, t00=0x000f, t01=0x007e}
0x1806…1824 Head {h00=0x001a, h01=0x0050, text=» ORS A2,8,A1 INTO ECB «, t00=0x000f, t01=0x009e}
0x1824…1836 Head {h00=0x000e, h01=0x0050, text=» ABL IHRTN«, t00=0x000f, t01=0x00bc}
0x1836…1844 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00ce}
0x1844…184e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00dc}
0x184e…1874 Head {h00=0x0022, h01=0x0050, text=»* F D B A T T / F D B D E T«, t00=0x000f, t01=0x00e6}
0x1874…187e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010c}
0x187e…18ba Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINE TO ATTACH/DETACH FDB7S IN A DM FILE «, t00=0x000f, t01=0x0116}
0x18ba…18d0 Head {h00=0x0012, h01=0x0050, text=»* STRUCTURE«, t00=0x000f, t01=0x0152}
0x18d0…18da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0168}
0x18da…18fa Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A1 /0800«, t00=0x000f, t01=0x0172}
0x18fa…1920 (16, 0, 400) Head {h00=0x0022, h01=0x0050, text=»* A6 FDB ADDRESS«, t00=0x0010, t01=0x0004}
0x1920…192a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002a}
0x192a…194e Head {h00=0x0020, h01=0x0050, text=»* WORKING REG. A2,A3,A4 «, t00=0x0010, t01=0x0034}
0x194e…1958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0058}
0x1958…196c Head {h00=0x0010, h01=0x0050, text=»FDBDET EQU *«, t00=0x0010, t01=0x0062}
0x196c…1986 Head {h00=0x0016, h01=0x0050, text=» C1R A1,A1 A1=FF7F«, t00=0x0010, t01=0x0076}
0x1986…199a Head {h00=0x0010, h01=0x0050, text=»FDBATT EQU *«, t00=0x0010, t01=0x0090}
0x199a…19b8 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A6 FDB ADDRESS«, t00=0x0010, t01=0x00a4}
0x19b8…19d0 Head {h00=0x0014, h01=0x0050, text=» ADKL A4,FDBADF «, t00=0x0010, t01=0x00c2}
0x19d0…19ee Head {h00=0x001a, h01=0x0050, text=» LDK A3,10 LOOP INDEX «, t00=0x0010, t01=0x00da}
0x19ee…1a06 Head {h00=0x0014, h01=0x0050, text=»FDB:10 SUK A3,2 «, t00=0x0010, t01=0x00f8}
0x1a06…1a2c Head {h00=0x0022, h01=0x0050, text=» RF(N) FDB:30 ALL FDB'S READY «, t00=0x0010, t01=0x0110}
0x1a2c…1a48 Head {h00=0x0018, h01=0x0050, text=» LDR* A2,A4 NEXT FDB«, t00=0x0010, t01=0x0136}
0x1a48…1a64 Head {h00=0x0018, h01=0x0050, text=» RF(Z) FDB:20 NO FDB«, t00=0x0010, t01=0x0152}
0x1a64…1a76 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0010, t01=0x016e}
0x1a76…1a9a Head {h00=0x0020, h01=0x0050, text=» RF(N) FDB:15 DETACH REQUEST«, t00=0x0010, t01=0x0180}
0x1a9a…1ac8 Head {h00=0x002a, h01=0x0050, text=» ORS A1,DWTST,A2 ATTACH / DETACH FILE «, t00=0x0011, t01=0x0014}
0x1ac8…1ae0 Head {h00=0x0014, h01=0x0050, text=» ST A5,DWTTAB,A2«, t00=0x0011, t01=0x0042}
0x1ae0…1af2 Head {h00=0x000e, h01=0x0050, text=» RF FDB:20«, t00=0x0011, t01=0x005a}
0x1af2…1b10 Head {h00=0x001a, h01=0x0050, text=»FDB:15 ANS A1,DWTST,A2«, t00=0x0011, t01=0x006c}
0x1b10…1b32 Head {h00=0x001e, h01=0x0050, text=» CF A15,QREQ UPDATE DWTTQ «, t00=0x0011, t01=0x008a}
0x1b32…1b5a Head {h00=0x0024, h01=0x0050, text=»FDB:20 ADK A4,2 NEXT FDB ADDRESS«, t00=0x0011, t01=0x00ac}
0x1b5a…1b6c Head {h00=0x000e, h01=0x0050, text=» RB FDB:10«, t00=0x0011, t01=0x00d4}
0x1b6c…1b84 Head {h00=0x0014, h01=0x0050, text=»FDB:30 ABL IHRTN«, t00=0x0011, t01=0x00e6}
0x1b84…1b92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00fe}
0x1b92…1b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x1b9c…1bda Head {h00=0x003a, h01=0x0050, text=»* Q R E Q = SUBROUTINE TO QUEUE TASK IN DEVICE QUEUE «, t00=0x0011, t01=0x0116}
0x1bda…1bf6 Head {h00=0x0018, h01=0x0050, text=»* (IF ANY)«, t00=0x0011, t01=0x0154}
0x1bf6…1c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0170}
0x1c00…1c26 Head {h00=0x0022, h01=0x0050, text=»* ON ENTRY: A2 DWT ADDRESS «, t00=0x0011, t01=0x017a}
0x1c26…1c44 Head {h00=0x001a, h01=0x0050, text=»* WORK. REG. A7,A9 «, t00=0x0012, t01=0x0010}
0x1c44…1c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002e}
0x1c4e…1c60 Head {h00=0x000e, h01=0x0050, text=»QREQ EQU *«, t00=0x0012, t01=0x0038}
0x1c60…1c8a Head {h00=0x0026, h01=0x0050, text=» LDR A9,A5 SAVE A5 (TTAB ADDRESS) «, t00=0x0012, t01=0x004a}
0x1c8a…1cb4 Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTTQ,A2 ANY TASK IN QUEUE?«, t00=0x0012, t01=0x0074}
0x1cb4…1cce Head {h00=0x0016, h01=0x0050, text=» RF(Z) QRE:10 NO! «, t00=0x0012, t01=0x009e}
0x1cce…1cfa Head {h00=0x0028, h01=0x0050, text=» LDR* A7,A5 YES,UPDATE QUEUE ANCHOR «, t00=0x0012, t01=0x00b8}
0x1cfa…1d12 Head {h00=0x0014, h01=0x0050, text=» ST A7,DWTTQ,A2 «, t00=0x0012, t01=0x00e4}
0x1d12…1d32 Head {h00=0x001c, h01=0x0050, text=» CF A15,QTJOB QUEUE TASK«, t00=0x0012, t01=0x00fc}
0x1d32…1d46 Head {h00=0x0010, h01=0x0050, text=»QRE:10 EQU *«, t00=0x0012, t01=0x011c}
0x1d46…1d6e Head {h00=0x0024, h01=0x0050, text=» LDR A5,A9 RESTORE TTAB ADDRESS «, t00=0x0012, t01=0x0130}
0x1d6e…1d80 Head {h00=0x000e, h01=0x0050, text=» ABL IHRTN«, t00=0x0012, t01=0x0158}
0x1d80…1d8c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0012, t01=0x016a}
0x1d8c…1d90 Head {h00=0x4004, h01=0x0000}
0x1d90…1d94 00 12 01 76 ┆ v┆
0x1d94…1d9c (19, 1, 8) 20 04 00 00 00 13 00 04 ┆ ┆
0x1d9c…1dec (20, 0, 400) 4f 52 20 45 4c 31 20 41 4e 44 20 45 4c 34 00 13 01 78 00 08 00 50 5c 58 49 46 00 14 00 16 00 12 00 50 5c 49 46 54 5c 4f 56 45 52 4c 59 3d 31 20 00 14 00 22 00 2a 00 50 5c 43 46 5c 41 31 34 2c 4d 3a 4f 50 41 5c 47 45 54 20 45 4c 45 4d 45 4e ┆OR EL1 AND EL4 x P XIF P IFT OVERLY=1 " * P CF A14,M:OPA GET ELEMEN┆
0x1dec…1e3c 54 20 44 41 54 41 20 46 4f 52 20 45 4c 33 00 14 00 38 00 2a 00 50 5c 53 4c 4c 5c 41 31 2c 31 5c 4e 45 47 2e 20 4e 55 4d 42 45 52 20 4f 46 20 42 59 54 45 53 20 54 49 4d 45 53 20 32 00 14 00 66 00 28 00 50 5c 53 54 5c 41 31 2c 31 30 2c 41 31 ┆T DATA FOR EL3 8 * P SLL A1,1 NEG. NUMBER OF BYTES TIMES 2 f ( P ST A1,10,A1┆
0x1e3c…1e8c 34 5c 53 54 4f 52 45 20 43 4f 55 4e 54 45 52 20 4f 4e 20 53 54 41 43 4b 00 14 00 94 00 22 00 50 5c 43 46 5c 41 31 34 2c 4d 3a 4d 4f 56 5c 4d 4f 56 45 20 45 4c 32 20 54 4f 20 45 4c 34 20 00 14 00 c0 00 10 00 50 5c 44 41 54 41 5c 2f 34 30 32 ┆4 STORE COUNTER ON STACK " P CF A14,M:MOV MOVE EL2 TO EL4 P DATA /402┆
0x1e8c…1edc 30 20 00 14 00 e6 00 10 00 50 41 52 47 32 5c 45 51 55 5c 2a 2d 32 00 14 00 fa 00 2e 00 50 5c 4c 44 4b 4c 5c 41 37 2c 2f 31 30 34 30 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 45 4c 31 20 41 4e 44 20 45 4c 34 20 00 14 01 0e 00 10 00 50 ┆0 PARG2 EQU *-2 . P LDKL A7,/1040 GET ADDRESS TO EL1 AND EL4 P┆
0x1edc…1f2c 41 52 47 33 5c 45 51 55 5c 2a 2d 32 00 14 01 40 00 2a 00 50 5c 43 46 5c 41 31 34 2c 4d 3a 4f 50 53 5c 47 45 54 20 44 41 54 41 20 46 4f 52 20 45 4c 31 20 41 4e 44 20 45 4c 34 00 14 01 54 00 08 00 50 5c 58 49 46 00 14 01 82 00 2e 00 50 5c 53 ┆ARG3 EQU *-2 @ * P CF A14,M:OPS GET DATA FOR EL1 AND EL4 T P XIF . P S┆