|
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: 17476 (0x4444)
Notes: pts_type(SC)
Names: »MSUBS.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/MSUBS.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/MSUBS.SC«
IDENT MSUBS REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * MSUBS = MONITOR SUBROUTINES * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ************************************************** * * THIS MODULE CONTAINS THE FOLLOWING MONITOR * SUBROUTINES: * * -SAVE8 SAVE 8 REGISTERS ON STACK * -QTJOB QUEUE TERMINAL JOB FOR DISPATCHING * -QMJOB QUEUE MONITOR JOB FOF DISPATCHING * -ACTOT ACTIVATE TERMINAL PROGRAM * -EXIT PROGRAM EXIT * -GETBLK GET A FREE MONITOR BLOCK * -FREBLK SET A MONITOR BLOCK FREE * -FNDDWT FIND DWT ADDRESS * -FNDTID FIND TERMINAL IDENTIFICATION * -TENDIO END I/O * -PFINIT RESTAR DEVICE * -SWL48 SWITCH TO LEVEL 48 EJECT * *********** * ENTRIES * *********** * * ENTRY SAVE8 SAVE 8 REGISTERS * ENTRY QTJOB QUEUE TERMINAL JOB * ENTRY QMJOB QUEUE MONITOR JOB * ENTRY ACTOT ACTIVATE TERMINAL * ENTRY EXIT PROGRAM EXIT * ENTRY GETBLK GET BLOCK * ENTRY FREBLK SET BLOCK FREE * ENTRY FNDDWT FIND DWT * ENTRY FNDTID FIND TERMINAL INDENTIFICATION * ENTRY TENDIO END I/O * ENTRY PFINIT RESTART DEVICE * ENTRY SWL48 SWITCH TO LEVEL 48 * ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE * ENTRY INTSAV SAVE AREA LAST INTERRUPT * ENTRY HALT HALT-MODULE EJECT * * * ENTRIES TO RESTORE REGISTERS A8-A1 WITHOUT * ENEABLE INTERRUPTS * * ENTRY IHRET8 RESTORE FROM A8 ENTRY IHRET7 A7 ENTRY IHRET6 A6 ENTRY IHRET5 A5 ENTRY IHRET4 A4 ENTRY IHRET3 A3 ENTRY IHRET2 A2 ENTRY IHRET1 A1 ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS EJECT * ************* * EXTERNALS * ************* * * EXTRN DISQUE POINTER TO FIRST PLACE IN DISPATCHER QUEUE EXTRN TTMJOB TTAB-ADDRESS OF MJOB EXTRN TTB:ST TERMINAL STATUS AND PRIORITY LEVEL EXTRN TTB:ID TERMINAL IDENTIFICATION EXTRN TTB:SA SAVE AREA EXTRN TTB:PP POINTER TO PENDING QUEUE EXTRN TTB:TD TERMINAL DEVICE TABLE EXTRN RETUR8 EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK EXTRN DWTST DWT STATUS EXTRN DWTWAT -WAIT/ACTIVATE INDICATOR EXTRN DWTECB -ECB ADDRESS EXTRN DWTTQ =ADDRESS TO TTAB ON QUEUE EXTRN DWTTAB -TTAB ADDRESS EXTRN TCTAB TERMINAL CONTROL TABLE EXTRN CDTAB COMMON DEVICE TABLE EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED EXTRN TTB:SP,TTB:SS EXTRN RTNA15 RETURN AND ENABLE * EJECT * * * S A V E 8 * * SUBROUTINE TO SAVE 8 REGISTERS ON STACK * WITHOUT ENABLING INTERRUPTS. * * SAVE8 EQU * INH INHIBIT INTERRUPTS STR A3,A15 STR A4,A15 STR A5,A15 STR A6,A15 STR A7,A15 STR A8,A15 LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) ST A3,SAVE81 AND MODIFY BRANCH ADDRESS ST A2,14,A15 ST A1,16,A15 LD A3,12,A15 RESTORE A3 ABL 0 THIS IS USED TO BRANCH BACK SAVE81 EQU *-2 * EJECT * * * Q T J O B * * SUBROUTINE TO QUEUE TERMINAL JOB FOR DISPATCHING * ENTRY PARAMETER:- * * A5 = TTAB-ADDRESS OF PROGRAM TO BE QUEUED. * * THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON * PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS * PUT LAST IN QUEUE. * * * QTJOB EQU * INH STR A1,A15 SAVE A1-A3 ON STACK STR A2,A15 STR A3,A15 LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS LC A3,TTB:ST+1,A5 LOAD LEVEL TO BE QUEUED QTJ010 LDR A2,A1 SAVE LAST ADDRESS LDR* A1,A1 FOLLOW THE THREAD RF(Z) QTJ020 END QUEUE FOUND CC A3,TTB:ST+1,A1 COMPARE LEVELS RB(NL) QTJ010 TRY NEXT QTJ020 STR A1,A5 INSET IN QUEUE STR A5,A2 ABL IHRET3 EJECT * * * Q M J O B * * SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49 * ENTRY PARAMETERS:- * * A1 = PARAMETER * * A2 = DISPATCH ADDRESS * * A5 IS SET TO TTAB-ADDRESS OF MONITORJOBS AND THE * SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE * JOB. * * * QMJOB EQU * LDKL A5,TTMJOB SET TTAB-ADDRESS LDK A3,0 AND GO TO ACTOT EJECT * * * A C T O T * * SUBROUTINE TO ACTIVATE A TERMINAL PROGRAM. * ENTRY PARAMETERS:- * * A1 = PARAMETER * A2 = DISPATCH ADDRESS * A3 = SEGMENT POINTER * A5 = TTAB-ADDRESS * * - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS * PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. * - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING * QUEUE. * * ACTOT EQU * CF A15,SAVE8 SAVE REGISTERS LD A4,TTB:SA,A5 IS PROGRAM ACTIVE? RF(NZ) ACT020 YES, PUT IN PENDING QUEUE LDR A3,A3 RF(E) ACT05 LD A4,2,A3 LOAD ADDRESS ADR A2,A4 ST A4,TTB:SS,A5 LAST SEGMENT START ACT05 ST A2,TTB:SA,A5 DISPATCH ADDRESS ST A3,TTB:SP,A5 SEGMENT POINTER ST A1,TTB:SA+2,A5 AND PARAMETER LD A4,TTB:ID,A5 SET TERMINAL ID ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA CF A15,QTJOB AND QUEUE THE JOB ACT010 ABL IHRET8 EJECT * * * PUT REQUEST IN PENDING QUEUE. * ACT020 CF A15,GETBLK GET A FREE BLOCK LDR A2,A4 CF A15,GETBLK ADKL A5,TTB:PP ACT030 LDR A6,A5 SAVE ADDRSSS LDR* A5,A5 FOLLOW THE QUEUE THREAD RB(NZ) ACT030 TRY NEXT STR A4,A6 SET BLOCK IN QUEUE CMR A4 SET END OF QUEUE RB ACT010 EJECT * * * E X I T * * SUBROUTINE TO SET A PROGRAM FREE AND QUEUE FIRST * PENDING PROGRAM * * ENTRY PARAMETER:- * * A5 = TTAB-ADDRESS * REGISTERS A3 AND A4 ARE LOST * EXIT EQU * INH CM TTB:SA,A5 RESET PROGRAM COUNTER LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER RF(Z) EXT010 NO PENDING PROGRAM LDR* A3,A4 GET QUEUE THREAD ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER CF A15,FREBLK RELEASE BLOCK AND GET PARAMS LDR A4,A2 CF A15,FREBLK CF A15,ACTOT ACTIVATE TERMINAL EXT010 RF GBL020 EJECT * * * G E T B L K * * SUBROUTINE TO GET A FREE BLOCK FROM MONITOR * BLOCK POOL.REGISTERS A3-A1 ARE STORED IN FOUND * FREE BLOCK. * * EXIT PARAMETER:- * * A4 = ADDRESS TO FOUND FREE BLOCK * * * GETBLK EQU * INH STR A5,A15 SAVE A5 LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE RF(NZ) GBL010 CF A15,HALT HALT IF ALL BLOCKS OCCUPIED GBL010 LDR* A5,A4 ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE STR A3,A4 STORE A3-A1 IN BLOCK ST A2,2,A4 ST A1,4,A4 LDR* A5,A15 RESTORE A5 GBL020 RF IHRTN EJECT * * * F R E B L K * * SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK * AND SET THIS BLOCK FREE. * * ENTRY PARAMETER:- * * A4 = BLOCKADDRESS * * EXIT PARAMETERS:- * * A3 = FIRST PARAMETER IN BLOCK * A2 = SECOND " " * A1 = THIRD " " * * FREBLK EQU * INH LDR* A3,A4 UPDATE A3 LD A1,FREQUE STR A1,A4 ST A4,FREQUE SET BLOCK FREE LD A2,2,A4 LD A1,4,A4 RF IHRTN EJECT * * * F N D D W T * * ENTRY PARAMETERS:- * * A5 = TTAB ADDRESS * A8 = ECB ADDRESS * * EXIT PARAMETERS:- * * A2 = DWT INDEX * A6 = DWT ADDRESS IF FOUND ELSE 0 * FNDDWT STR A1,A15 SAVE A1 LDKL A6,TTB:TD ADR A6,A5 GET ADDRESS TO TERMINAL DEVICE TABLE LDR* A1,A6 GET TABLE LENGTH ADK A6,2 ADDRESS TO FIRST FILE CODE LDR* A2,A8 LOAD FILE CODE FROM ECB FND100 SUK A1,4 RF(N) FND110 FILE CODE NOT IN TTAB CC A2,1,A6 SEARCH IN DEVICE TABLE RF(E) FND200 BRANCH IF FOUND ADK A6,4 ADDRESS TO NEXT FILE CODE RB FND100 TRY NEXT EJECT * * SEARCH IN COMMON DEVICE TABLE * FND110 LD A6,CDTAB CDTAB ADDRESS LDR* A1,A6 CDTAB LENGTH ADK A6,2 POINTER TO FIRST ENTRY FND120 SUK A1,4 RF(N) FND130 FILE CODE NOT FOUND CC A2,1,A6 RF(E) FND200 FILE CODE FOUND ADK A6,4 RB FND120 TRY NEXT ENTRY IN CDTAB FND130 SUR A6,A6 RF FND210 FND200 LCR A2,A6 LOAD DWT INDEX LD A6,2,A6 LOAD DWT ADDRESS FND210 RF IHRET1 EJECT * * * F N D T I D * * * SUBROUTINE TO FIND TTAB ADDRESS FROM TERMINAL IDENTIFICATION * * * ENTRY PARAMETER: * * A7 = TERMINAL IDNETIFICATION * * * EXIT PARAMETER: * * A2 = TTAB ADDRESS * A2 = 0 INDICATES ILLEGAL IDENTIFICATION * * FNDTID STR A1,A15 SAVE REG. A1 LD* A1,TCTAB TCTAB LENGTH AD A1,TCTAB FTI010 SUK A1,2 CW A1,TCTAB RF(E) FTI030 ALL TTABS EXAMINED LDR* A2,A1 TTAB ADDRESS RB(Z) FTI010 NOT IN SYSTEM CW A7,TTB:ID,A2 COMPARE IDENTIFICATIONS RB(NE) FTI010 NO MATCH. TRY NEXT FTI020 RF IHRET1 FTI030 SUR A2,A2 ILLEGAL IDENTIFICATION RF IHRET1 EJECT * * * T E N D I O * * * THIS MODULE IS CALLED WHEN COMPLETION OF * I/O OCCURS. * * - IF I/O AND ACTIVATION REQUEST:- * * ACTOT IS CALLED TO START THE TASK * * -IF NORMAL I/O WITH WAIT:- * * QTJOB IS CALLED TO QUEUE THE TASK * FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- * * A5 = TTAB-ADDRESS * * -IF NORMAL I/O WITH NO WAIT:- * * NO ACTION REQUIRED * * IF AN EVENT WAS QUEUED FOR THIS DEVICE (DWTECQ NOT = ZERO) * THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION * * ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- * * A1 = RETURN CODE * A6 = DWT ADDRESS * NO REGISTERS ARE DESTROYED * * N.B. THE ECB RETURN CODE IS UPDATED BY MEANS OF * AN 'ORS' INSTRUCTION * * EJECT * * CHECK IF ANY TERMINAL ON QUEUE FOR THIS DEVICE * TENDIO EQU * CF A15,SAVE8 SAVE A1-A8 ON STACK LD A5,DWTTQ,A6 ANY TASK QUEUED? RF(Z) TEN110 NO LDR* A3,A5 YES: UPDATE QUEUE ANCHOR ADDRESS ST A3,DWTTQ,A6 CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST EJECT * * * UPDATE ECB AND DWT * * TEN110 EQU * LD A5,DWTTAB,A6 GET TTAB ADDRESS FROM DWT LDKL A2,/8000 ORS A2,DWTST,A6 INDICATE DEVICE READY IN DWT LDKL A3,/DBFF RESET ECHO-BIT AND BITS 5,6 ANS A3,DWTST,A6 RESET ECHO-BIT IN STATUS DWT LD A3,DWTECB,A6 GET ECB ADDRESS RF(Z) TEN130 BRANCH IF ENTERED FROM ECHO OR RECOVERY ORRS A2,A3 SET EVENT COMPLETED IN ECB ORS A1,8,A3 SET RETURN CODE IN ECB CM DWTECB,A6 RESET ECB ADDRESS EJECT * * CHECK IF WAIT OR ACTIVATION * LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR RF(Z) TEN130 NOT WAIT OR ACTIVATION CWK A4,1 RF(E) TEN120 WAIT CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR CF A15,ACTOT ACTIVATE TASK RF TEN130 RETURN TEN120 EQU * CF A15,QTJOB WAIT: QUEUE TASK FOR DISPATCHING TEN130 EQU * EJECT * * * RESTORE REGISTERS AND RETURN WITHOUT * ENABLE INTERRUPTS * * IHRET8 LDR* A8,A15 IHRET7 LDR* A7,A15 IHRET6 LDR* A6,A15 IHRET5 LDR* A5,A15 IHRET4 LDR* A4,A15 IHRET3 LDR* A3,A15 IHRET2 LDR* A2,A15 IHRET1 LDR* A1,A15 IHRTN INH ADKL A15,4 ADJUST STACK POINTER ABR* A15 AND RETURN EJECT * * * P F I N I T * * SUBROUTINE TO RESTART DEVICES. * * ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALLED. * REGISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. * * PFINIT EQU * LDK A1,2 SET INDEX TO FIRST ROUTINE PFI100 CW A1,PFTAB CHECK IF LAST RF(NL) PFI110 ALL RESTARTED STR A1,A15 SAVE A1 CFI A15,PFTAB,A1 CALL RESTART MODULE LDR* A1,A15 RESTORE A1 ADK A1,2 NEXT DEVICE RB PFI100 PFI110 RF SWLRTN RETURN WHEN ALL STARTED EJECT * * * S W L 4 8 * * SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO 48. * * SWL48 EQU * INH STR A1,A15 LDKL A1,/C000 PSW FOR LEVEL 48 ST A1,4,A15 SAVE IT ON A15 STACK LDR* A1,A15 RESTORE A1 SWLRTN ABL RTNA15 RETURN TO CALLER AND ENB * EJECT * * INTERRUPT SAVE AND HALT MODULE * INTSAV DATA 0 SAVA15 DATA 0 ILLINT CF A15,HALT HALT EQU * CF A15,SAVE8 STR A9,A15 STR A10,A15 STR A11,A15 STR A12,A15 STR A13,A15 STR A14,A15 ST A15,SAVA15 HLT END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT MSUBS REL=7.2 DATE=77-09-09 «, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…0094 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x005e}
0x0094…009e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0098}
0x009e…00c6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a2}
0x00c6…00d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ca}
0x00d0…00f8 Head {h00=0x0024, h01=0x0050, text=»* MSUBS = MONITOR SUBROUTINES «, t00=0x0000, t01=0x00d4}
0x00f8…0102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…010c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…012e Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0110}
0x012e…0138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x0138…015a Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x013c}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…019e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0168}
0x019e…01a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0012}
0x01a8…01de Head {h00=0x0032, h01=0x0050, text=»* THIS MODULE CONTAINS THE FOLLOWING MONITOR«, t00=0x0001, t01=0x001c}
0x01de…01f6 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES:«, t00=0x0001, t01=0x0052}
0x01f6…0200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006a}
0x0200…0230 Head {h00=0x002c, h01=0x0050, text=»* -SAVE8 SAVE 8 REGISTERS ON STACK «, t00=0x0001, t01=0x0074}
0x0230…0268 Head {h00=0x0034, h01=0x0050, text=»* -QTJOB QUEUE TERMINAL JOB FOR DISPATCHING«, t00=0x0001, t01=0x00a4}
0x0268…029e Head {h00=0x0032, h01=0x0050, text=»* -QMJOB QUEUE MONITOR JOB FOF DISPATCHING«, t00=0x0001, t01=0x00dc}
0x029e…02ce Head {h00=0x002c, h01=0x0050, text=»* -ACTOT ACTIVATE TERMINAL PROGRAM «, t00=0x0001, t01=0x0112}
0x02ce…02f0 Head {h00=0x001e, h01=0x0050, text=»* -EXIT PROGRAM EXIT «, t00=0x0001, t01=0x0142}
0x02f0…031e Head {h00=0x002a, h01=0x0050, text=»* -GETBLK GET A FREE MONITOR BLOCK«, t00=0x0001, t01=0x0164}
0x031e…034c (2, 0, 400) Head {h00=0x002a, h01=0x0050, text=»* -FREBLK SET A MONITOR BLOCK FREE«, t00=0x0002, t01=0x0004}
0x034c…0372 Head {h00=0x0022, h01=0x0050, text=»* -FNDDWT FIND DWT ADDRESS«, t00=0x0002, t01=0x0032}
0x0372…03a4 Head {h00=0x002e, h01=0x0050, text=»* -FNDTID FIND TERMINAL IDENTIFICATION«, t00=0x0002, t01=0x0058}
0x03a4…03c2 Head {h00=0x001a, h01=0x0050, text=»* -TENDIO END I/O «, t00=0x0002, t01=0x008a}
0x03c2…03e6 Head {h00=0x0020, h01=0x0050, text=»* -PFINIT RESTAR DEVICE «, t00=0x0002, t01=0x00a8}
0x03e6…040e Head {h00=0x0024, h01=0x0050, text=»* -SWL48 SWITCH TO LEVEL 48«, t00=0x0002, t01=0x00cc}
0x040e…041c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00f4}
0x041c…0426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0102}
0x0426…043a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x010c}
0x043a…044e Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0120}
0x044e…0462 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0134}
0x0462…046c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0148}
0x046c…0476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0152}
0x0476…049c Head {h00=0x0022, h01=0x0050, text=» ENTRY SAVE8 SAVE 8 REGISTERS «, t00=0x0002, t01=0x015c}
0x049c…04a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0182}
0x04a6…04ce Head {h00=0x0024, h01=0x0050, text=» ENTRY QTJOB QUEUE TERMINAL JOB «, t00=0x0002, t01=0x018c}
0x04ce…04d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04d8…04fe Head {h00=0x0022, h01=0x0050, text=» ENTRY QMJOB QUEUE MONITOR JOB«, t00=0x0003, t01=0x002e}
0x04fe…0508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0054}
0x0508…052e Head {h00=0x0022, h01=0x0050, text=» ENTRY ACTOT ACTIVATE TERMINAL«, t00=0x0003, t01=0x005e}
0x052e…0538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0084}
0x0538…0558 Head {h00=0x001c, h01=0x0050, text=» ENTRY EXIT PROGRAM EXIT«, t00=0x0003, t01=0x008e}
0x0558…0562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ae}
0x0562…0582 Head {h00=0x001c, h01=0x0050, text=» ENTRY GETBLK GET BLOCK «, t00=0x0003, t01=0x00b8}
0x0582…058c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d8}
0x058c…05b0 Head {h00=0x0020, h01=0x0050, text=» ENTRY FREBLK SET BLOCK FREE«, t00=0x0003, t01=0x00e2}
0x05b0…05ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0106}
0x05ba…05d8 Head {h00=0x001a, h01=0x0050, text=» ENTRY FNDDWT FIND DWT«, t00=0x0003, t01=0x0110}
0x05d8…05e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012e}
0x05e2…0616 Head {h00=0x0030, h01=0x0050, text=» ENTRY FNDTID FIND TERMINAL INDENTIFICATION «, t00=0x0003, t01=0x0138}
0x0616…0620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016c}
0x0620…063e Head {h00=0x001a, h01=0x0050, text=» ENTRY TENDIO END I/O «, t00=0x0003, t01=0x0176}
0x063e…0648 (4, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0004}
0x0648…066c Head {h00=0x0020, h01=0x0050, text=» ENTRY PFINIT RESTART DEVICE«, t00=0x0004, t01=0x000e}
0x066c…0676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0032}
0x0676…069e Head {h00=0x0024, h01=0x0050, text=» ENTRY SWL48 SWITCH TO LEVEL 48 «, t00=0x0004, t01=0x003c}
0x069e…06a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0064}
0x06a8…06d8 Head {h00=0x002c, h01=0x0050, text=» ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE «, t00=0x0004, t01=0x006e}
0x06d8…06e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e2…0710 Head {h00=0x002a, h01=0x0050, text=» ENTRY INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0004, t01=0x00a8}
0x0710…071a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d6}
0x071a…073a Head {h00=0x001c, h01=0x0050, text=» ENTRY HALT HALT-MODULE «, t00=0x0004, t01=0x00e0}
0x073a…0748 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0100}
0x0748…0752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010e}
0x0752…075c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0118}
0x075c…0792 Head {h00=0x0032, h01=0x0050, text=»* ENTRIES TO RESTORE REGISTERS A8-A1 WITHOUT«, t00=0x0004, t01=0x0122}
0x0792…07b0 Head {h00=0x001a, h01=0x0050, text=»* ENEABLE INTERRUPTS«, t00=0x0004, t01=0x0158}
0x07b0…07ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0176}
0x07ba…07c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0180}
0x07c4…07ea Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET8 RESTORE FROM A8 «, t00=0x0004, t01=0x018a}
0x07ea…0810 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET7 A7 «, t00=0x0005, t01=0x0020}
0x0810…0836 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET6 A6 «, t00=0x0005, t01=0x0046}
0x0836…085c Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET5 A5 «, t00=0x0005, t01=0x006c}
0x085c…0882 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET4 A4 «, t00=0x0005, t01=0x0092}
0x0882…08a8 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET3 A3 «, t00=0x0005, t01=0x00b8}
0x08a8…08ce Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET2 A2 «, t00=0x0005, t01=0x00de}
0x08ce…08f4 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET1 A1 «, t00=0x0005, t01=0x0104}
0x08f4…092a Head {h00=0x0032, h01=0x0050, text=» ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS «, t00=0x0005, t01=0x012a}
0x092a…0938 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0160}
0x0938…0942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016e}
0x0942…0958 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0178}
0x0958…096e Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x018e}
0x096e…0984 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0006, t01=0x0014}
0x0984…098e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002a}
0x098e…0998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0034}
0x0998…09d8 Head {h00=0x003c, h01=0x0050, text=» EXTRN DISQUE POINTER TO FIRST PLACE IN DISPATCHER QUEUE«, t00=0x0006, t01=0x003e}
0x09d8…0a02 Head {h00=0x0026, h01=0x0050, text=» EXTRN TTMJOB TTAB-ADDRESS OF MJOB«, t00=0x0006, t01=0x007e}
0x0a02…0a3a Head {h00=0x0034, h01=0x0050, text=» EXTRN TTB:ST TERMINAL STATUS AND PRIORITY LEVEL«, t00=0x0006, t01=0x00a8}
0x0a3a…0a68 Head {h00=0x002a, h01=0x0050, text=» EXTRN TTB:ID TERMINAL IDENTIFICATION «, t00=0x0006, t01=0x00e0}
0x0a68…0a88 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0006, t01=0x010e}
0x0a88…0ab6 Head {h00=0x002a, h01=0x0050, text=» EXTRN TTB:PP POINTER TO PENDING QUEUE«, t00=0x0006, t01=0x012e}
0x0ab6…0ae2 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:TD TERMINAL DEVICE TABLE «, t00=0x0006, t01=0x015c}
0x0ae2…0af8 Head {h00=0x0012, h01=0x0050, text=» EXTRN RETUR8 «, t00=0x0006, t01=0x0188}
0x0af8…0b32 Head {h00=0x0036, h01=0x0050, text=» EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK «, t00=0x0007, t01=0x000e}
0x0b32…0b52 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0007, t01=0x0048}
0x0b52…0b84 Head {h00=0x002e, h01=0x0050, text=» EXTRN DWTWAT -WAIT/ACTIVATE INDICATOR «, t00=0x0007, t01=0x0068}
0x0b84…0baa Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTECB -ECB ADDRESS «, t00=0x0007, t01=0x009a}
0x0baa…0bdc Head {h00=0x002e, h01=0x0050, text=» EXTRN DWTTQ =ADDRESS TO TTAB ON QUEUE «, t00=0x0007, t01=0x00c0}
0x0bdc…0c02 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTTAB -TTAB ADDRESS«, t00=0x0007, t01=0x00f2}
0x0c02…0c2e Head {h00=0x0028, h01=0x0050, text=» EXTRN TCTAB TERMINAL CONTROL TABLE «, t00=0x0007, t01=0x0118}
0x0c2e…0c56 Head {h00=0x0024, h01=0x0050, text=» EXTRN CDTAB COMMON DEVICE TABLE«, t00=0x0007, t01=0x0144}
0x0c56…0c8c Head {h00=0x0032, h01=0x0050, text=» EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED «, t00=0x0007, t01=0x016c}
0x0c8c…0ca8 Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:SP,TTB:SS«, t00=0x0008, t01=0x0012}
0x0ca8…0cd0 Head {h00=0x0024, h01=0x0050, text=» EXTRN RTNA15 RETURN AND ENABLE «, t00=0x0008, t01=0x002e}
0x0cd0…0cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0056}
0x0cda…0ce8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0060}
0x0ce8…0cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006e}
0x0cf2…0cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0078}
0x0cfc…0d12 Head {h00=0x0012, h01=0x0050, text=»* S A V E 8 «, t00=0x0008, t01=0x0082}
0x0d12…0d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0098}
0x0d1c…0d50 Head {h00=0x0030, h01=0x0050, text=»* SUBROUTINE TO SAVE 8 REGISTERS ON STACK «, t00=0x0008, t01=0x00a2}
0x0d50…0d78 Head {h00=0x0024, h01=0x0050, text=»* WITHOUT ENABLING INTERRUPTS.«, t00=0x0008, t01=0x00d6}
0x0d78…0d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00fe}
0x0d82…0d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0108}
0x0d8c…0da0 Head {h00=0x0010, h01=0x0050, text=»SAVE8 EQU * «, t00=0x0008, t01=0x0112}
0x0da0…0dc0 Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x0008, t01=0x0126}
0x0dc0…0dd4 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0008, t01=0x0146}
0x0dd4…0de8 Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x0008, t01=0x015a}
0x0de8…0dfc Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x0008, t01=0x016e}
0x0dfc…0e10 Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x0008, t01=0x0182}
0x0e10…0e24 Head {h00=0x0010, h01=0x0050, text=» STR A7,A15 «, t00=0x0009, t01=0x0008}
0x0e24…0e38 Head {h00=0x0010, h01=0x0050, text=» STR A8,A15 «, t00=0x0009, t01=0x001c}
0x0e38…0e68 Head {h00=0x002c, h01=0x0050, text=» LD A3,16,A15 LOAD P.C. (RETURN ADDRESS)«, t00=0x0009, t01=0x0030}
0x0e68…0e98 Head {h00=0x002c, h01=0x0050, text=» ST A3,SAVE81 AND MODIFY BRANCH ADDRESS «, t00=0x0009, t01=0x0060}
0x0e98…0eae Head {h00=0x0012, h01=0x0050, text=» ST A2,14,A15 «, t00=0x0009, t01=0x0090}
0x0eae…0ec4 Head {h00=0x0012, h01=0x0050, text=» ST A1,16,A15 «, t00=0x0009, t01=0x00a6}
0x0ec4…0ee4 Head {h00=0x001c, h01=0x0050, text=» LD A3,12,A15 RESTORE A3«, t00=0x0009, t01=0x00bc}
0x0ee4…0f0e Head {h00=0x0026, h01=0x0050, text=» ABL 0 THIS IS USED TO BRANCH BACK«, t00=0x0009, t01=0x00dc}
0x0f0e…0f24 Head {h00=0x0012, h01=0x0050, text=»SAVE81 EQU *-2«, t00=0x0009, t01=0x0106}
0x0f24…0f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011c}
0x0f2e…0f3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0126}
0x0f3c…0f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0134}
0x0f46…0f50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x013e}
0x0f50…0f66 Head {h00=0x0012, h01=0x0050, text=»* Q T J O B «, t00=0x0009, t01=0x0148}
0x0f66…0f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015e}
0x0f70…0fac Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINE TO QUEUE TERMINAL JOB FOR DISPATCHING«, t00=0x0009, t01=0x0168}
0x0fac…0fca Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETER:- «, t00=0x000a, t01=0x0014}
0x0fca…0fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0032}
0x0fd4…100a Head {h00=0x0032, h01=0x0050, text=»* A5 = TTAB-ADDRESS OF PROGRAM TO BE QUEUED.«, t00=0x000a, t01=0x003c}
0x100a…1014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0072}
0x1014…1050 Head {h00=0x0038, h01=0x0050, text=»* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON «, t00=0x000a, t01=0x007c}
0x1050…108c Head {h00=0x0038, h01=0x0050, text=»* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS«, t00=0x000a, t01=0x00b8}
0x108c…10aa Head {h00=0x001a, h01=0x0050, text=»* PUT LAST IN QUEUE.«, t00=0x000a, t01=0x00f4}
0x10aa…10b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0112}
0x10b4…10be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011c}
0x10be…10c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0126}
0x10c8…10dc Head {h00=0x0010, h01=0x0050, text=»QTJOB EQU * «, t00=0x000a, t01=0x0130}
0x10dc…10e8 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000a, t01=0x0144}
0x10e8…1110 Head {h00=0x0024, h01=0x0050, text=» STR A1,A15 SAVE A1-A3 ON STACK «, t00=0x000a, t01=0x0150}
0x1110…1124 Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x000a, t01=0x0178}
0x1124…1138 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x000a, t01=0x018c}
0x1138…116a Head {h00=0x002e, h01=0x0050, text=» LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS «, t00=0x000b, t01=0x0010}
0x116a…119c Head {h00=0x002e, h01=0x0050, text=» LC A3,TTB:ST+1,A5 LOAD LEVEL TO BE QUEUED«, t00=0x000b, t01=0x0042}
0x119c…11c6 Head {h00=0x0026, h01=0x0050, text=»QTJ010 LDR A2,A1 SAVE LAST ADDRESS«, t00=0x000b, t01=0x0074}
0x11c6…11ec Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A1 FOLLOW THE THREAD «, t00=0x000b, t01=0x009e}
0x11ec…1212 Head {h00=0x0022, h01=0x0050, text=» RF(Z) QTJ020 END QUEUE FOUND «, t00=0x000b, t01=0x00c4}
0x1212…123c Head {h00=0x0026, h01=0x0050, text=» CC A3,TTB:ST+1,A1 COMPARE LEVELS «, t00=0x000b, t01=0x00ea}
0x123c…125c Head {h00=0x001c, h01=0x0050, text=» RB(NL) QTJ010 TRY NEXT «, t00=0x000b, t01=0x0114}
0x125c…1284 Head {h00=0x0024, h01=0x0050, text=»QTJ020 STR A1,A5 INSET IN QUEUE «, t00=0x000b, t01=0x0134}
0x1284…1296 Head {h00=0x000e, h01=0x0050, text=» STR A5,A2«, t00=0x000b, t01=0x015c}
0x1296…12aa Head {h00=0x0010, h01=0x0050, text=» ABL IHRET3 «, t00=0x000b, t01=0x016e}
0x12aa…12b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0182}
0x12b8…12c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0190}
0x12c2…12cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000a}
0x12cc…12e2 Head {h00=0x0012, h01=0x0050, text=»* Q M J O B «, t00=0x000c, t01=0x0014}
0x12e2…12ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x002a}
0x12ec…1324 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49«, t00=0x000c, t01=0x0034}
0x1324…1342 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS:-«, t00=0x000c, t01=0x006c}
0x1342…134c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008a}
0x134c…1366 Head {h00=0x0016, h01=0x0050, text=»* A1 = PARAMETER«, t00=0x000c, t01=0x0094}
0x1366…1370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ae}
0x1370…1392 Head {h00=0x001e, h01=0x0050, text=»* A2 = DISPATCH ADDRESS «, t00=0x000c, t01=0x00b8}
0x1392…139c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00da}
0x139c…13d8 Head {h00=0x0038, h01=0x0050, text=»* A5 IS SET TO TTAB-ADDRESS OF MONITORJOBS AND THE«, t00=0x000c, t01=0x00e4}
0x13d8…1418 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE«, t00=0x000c, t01=0x0120}
0x1418…1428 Head {h00=0x000c, h01=0x0050, text=»* JOB.«, t00=0x000c, t01=0x0160}
0x1428…1432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0170}
0x1432…143c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x017a}
0x143c…1446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0184}
0x1446…145a Head {h00=0x0010, h01=0x0050, text=»QMJOB EQU * «, t00=0x000c, t01=0x018e}
0x145a…1482 Head {h00=0x0024, h01=0x0050, text=» LDKL A5,TTMJOB SET TTAB-ADDRESS«, t00=0x000d, t01=0x0012}
0x1482…1494 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x000d, t01=0x003a}
0x1494…14ae Head {h00=0x0016, h01=0x0050, text=» AND GO TO ACTOT«, t00=0x000d, t01=0x004c}
0x14ae…14bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0066}
0x14bc…14c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0074}
0x14c6…14d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007e}
0x14d0…14e6 Head {h00=0x0012, h01=0x0050, text=»* A C T O T «, t00=0x000d, t01=0x0088}
0x14e6…14f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009e}
0x14f0…1526 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO ACTIVATE A TERMINAL PROGRAM.«, t00=0x000d, t01=0x00a8}
0x1526…1544 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS:-«, t00=0x000d, t01=0x00de}
0x1544…154e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fc}
0x154e…1568 Head {h00=0x0016, h01=0x0050, text=»* A1 = PARAMETER«, t00=0x000d, t01=0x0106}
0x1568…158a Head {h00=0x001e, h01=0x0050, text=»* A2 = DISPATCH ADDRESS «, t00=0x000d, t01=0x0120}
0x158a…15aa Head {h00=0x001c, h01=0x0050, text=»* A3 = SEGMENT POINTER«, t00=0x000d, t01=0x0142}
0x15aa…15c8 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB-ADDRESS «, t00=0x000d, t01=0x0162}
0x15c8…15d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0180}
0x15d2…1612 Head {h00=0x003c, h01=0x0050, text=»* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS «, t00=0x000d, t01=0x018a}
0x1612…1650 Head {h00=0x003a, h01=0x0050, text=»* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. «, t00=0x000e, t01=0x003a}
0x1650…1694 Head {h00=0x0040, h01=0x0050, text=»* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING «, t00=0x000e, t01=0x0078}
0x1694…16a8 Head {h00=0x0010, h01=0x0050, text=»* QUEUE.«, t00=0x000e, t01=0x00bc}
0x16a8…16b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d0}
0x16b2…16bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00da}
0x16bc…16d0 Head {h00=0x0010, h01=0x0050, text=»ACTOT EQU * «, t00=0x000e, t01=0x00e4}
0x16d0…16f4 Head {h00=0x0020, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS«, t00=0x000e, t01=0x00f8}
0x16f4…1720 Head {h00=0x0028, h01=0x0050, text=» LD A4,TTB:SA,A5 IS PROGRAM ACTIVE? «, t00=0x000e, t01=0x011c}
0x1720…1750 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) ACT020 YES, PUT IN PENDING QUEUE«, t00=0x000e, t01=0x0148}
0x1750…1762 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x000e, t01=0x0178}
0x1762…1776 Head {h00=0x0010, h01=0x0050, text=» RF(E) ACT05«, t00=0x000e, t01=0x018a}
0x1776…1796 Head {h00=0x001c, h01=0x0050, text=» LD A4,2,A3 LOAD ADDRESS«, t00=0x000f, t01=0x000e}
0x1796…17a8 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x000f, t01=0x002e}
0x17a8…17d4 Head {h00=0x0028, h01=0x0050, text=» ST A4,TTB:SS,A5 LAST SEGMENT START «, t00=0x000f, t01=0x0040}
0x17d4…1802 Head {h00=0x002a, h01=0x0050, text=»ACT05 ST A2,TTB:SA,A5 DISPATCH ADDRESS«, t00=0x000f, t01=0x006c}
0x1802…182a Head {h00=0x0024, h01=0x0050, text=» ST A3,TTB:SP,A5 SEGMENT POINTER«, t00=0x000f, t01=0x009a}
0x182a…1852 Head {h00=0x0024, h01=0x0050, text=» ST A1,TTB:SA+2,A5 AND PARAMETER«, t00=0x000f, t01=0x00c2}
0x1852…187a Head {h00=0x0024, h01=0x0050, text=» LD A4,TTB:ID,A5 SET TERMINAL ID«, t00=0x000f, t01=0x00ea}
0x187a…18a8 Head {h00=0x002a, h01=0x0050, text=» ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA «, t00=0x000f, t01=0x0112}
0x18a8…18d0 Head {h00=0x0024, h01=0x0050, text=» CF A15,QTJOB AND QUEUE THE JOB «, t00=0x000f, t01=0x0140}
0x18d0…18ea Head {h00=0x0016, h01=0x0050, text=»ACT010 ABL IHRET8 «, t00=0x000f, t01=0x0168}
0x18ea…18f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0182}
0x18f8…1902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0190}
0x1902…190c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000a}
0x190c…1936 Head {h00=0x0026, h01=0x0050, text=»* PUT REQUEST IN PENDING QUEUE. «, t00=0x0010, t01=0x0014}
0x1936…1940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003e}
0x1940…196e Head {h00=0x002a, h01=0x0050, text=»ACT020 CF A15,GETBLK GET A FREE BLOCK «, t00=0x0010, t01=0x0048}
0x196e…1980 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0010, t01=0x0076}
0x1980…1996 Head {h00=0x0012, h01=0x0050, text=» CF A15,GETBLK«, t00=0x0010, t01=0x0088}
0x1996…19ae Head {h00=0x0014, h01=0x0050, text=» ADKL A5,TTB:PP «, t00=0x0010, t01=0x009e}
0x19ae…19d4 Head {h00=0x0022, h01=0x0050, text=»ACT030 LDR A6,A5 SAVE ADDRSSS «, t00=0x0010, t01=0x00b6}
0x19d4…1a00 Head {h00=0x0028, h01=0x0050, text=» LDR* A5,A5 FOLLOW THE QUEUE THREAD «, t00=0x0010, t01=0x00dc}
0x1a00…1a20 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ACT030 TRY NEXT «, t00=0x0010, t01=0x0108}
0x1a20…1a46 Head {h00=0x0022, h01=0x0050, text=» STR A4,A6 SET BLOCK IN QUEUE «, t00=0x0010, t01=0x0128}
0x1a46…1a66 Head {h00=0x001c, h01=0x0050, text=» CMR A4 SET END OF QUEUE«, t00=0x0010, t01=0x014e}
0x1a66…1a78 Head {h00=0x000e, h01=0x0050, text=» RB ACT010«, t00=0x0010, t01=0x016e}
0x1a78…1a86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0180}
0x1a86…1a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018e}
0x1a90…1a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a9a…1aae Head {h00=0x0010, h01=0x0050, text=»* E X I T «, t00=0x0011, t01=0x0012}
0x1aae…1ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0026}
0x1ab8…1af4 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINE TO SET A PROGRAM FREE AND QUEUE FIRST«, t00=0x0011, t01=0x0030}
0x1af4…1b10 Head {h00=0x0018, h01=0x0050, text=»* PENDING PROGRAM «, t00=0x0011, t01=0x006c}
0x1b10…1b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0088}
0x1b1a…1b38 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETER:- «, t00=0x0011, t01=0x0092}
0x1b38…1b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b0}
0x1b42…1b60 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB-ADDRESS «, t00=0x0011, t01=0x00ba}
0x1b60…1b88 Head {h00=0x0024, h01=0x0050, text=»* REGISTERS A3 AND A4 ARE LOST«, t00=0x0011, t01=0x00d8}
0x1b88…1b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0100}
0x1b92…1ba4 Head {h00=0x000e, h01=0x0050, text=»EXIT EQU *«, t00=0x0011, t01=0x010a}
0x1ba4…1bb0 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0011, t01=0x011c}
0x1bb0…1bdc Head {h00=0x0028, h01=0x0050, text=» CM TTB:SA,A5 RESET PROGRAM COUNTER «, t00=0x0011, t01=0x0128}
0x1bdc…1c10 Head {h00=0x0030, h01=0x0050, text=» LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER«, t00=0x0011, t01=0x0154}
0x1c10…1c38 Head {h00=0x0024, h01=0x0050, text=» RF(Z) EXT010 NO PENDING PROGRAM«, t00=0x0011, t01=0x0188}
0x1c38…1c5c Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A4 GET QUEUE THREAD«, t00=0x0012, t01=0x0020}
0x1c5c…1c90 Head {h00=0x0030, h01=0x0050, text=» ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER«, t00=0x0012, t01=0x0044}
0x1c90…1cc4 Head {h00=0x0030, h01=0x0050, text=» CF A15,FREBLK RELEASE BLOCK AND GET PARAMS «, t00=0x0012, t01=0x0078}
0x1cc4…1cd6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0012, t01=0x00ac}
0x1cd6…1cec Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0012, t01=0x00be}
0x1cec…1d14 Head {h00=0x0024, h01=0x0050, text=» CF A15,ACTOT ACTIVATE TERMINAL «, t00=0x0012, t01=0x00d4}
0x1d14…1d2c Head {h00=0x0014, h01=0x0050, text=»EXT010 RF GBL020«, t00=0x0012, t01=0x00fc}
0x1d2c…1d3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0114}
0x1d3a…1d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0122}
0x1d44…1d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x012c}
0x1d4e…1d66 Head {h00=0x0014, h01=0x0050, text=»* G E T B L K «, t00=0x0012, t01=0x0136}
0x1d66…1d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014e}
0x1d70…1da8 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR «, t00=0x0012, t01=0x0158}
0x1da8…1de2 Head {h00=0x0036, h01=0x0050, text=»* BLOCK POOL.REGISTERS A3-A1 ARE STORED IN FOUND«, t00=0x0012, t01=0x0190}
0x1de2…1dfa Head {h00=0x0014, h01=0x0050, text=»* FREE BLOCK. «, t00=0x0013, t01=0x003a}
0x1dfa…1e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0052}
0x1e04…1e20 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER:-«, t00=0x0013, t01=0x005c}
0x1e20…1e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0078}
0x1e2a…1e56 Head {h00=0x0028, h01=0x0050, text=»* A4 = ADDRESS TO FOUND FREE BLOCK«, t00=0x0013, t01=0x0082}
0x1e56…1e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ae}
0x1e60…1e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b8}
0x1e6a…1e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c2}
0x1e74…1e88 Head {h00=0x0010, h01=0x0050, text=»GETBLK EQU *«, t00=0x0013, t01=0x00cc}
0x1e88…1e94 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0013, t01=0x00e0}
0x1e94…1eb0 Head {h00=0x0018, h01=0x0050, text=» STR A5,A15 SAVE A5 «, t00=0x0013, t01=0x00ec}
0x1eb0…1ee4 Head {h00=0x0030, h01=0x0050, text=» LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE «, t00=0x0013, t01=0x0108}
0x1ee4…1efa Head {h00=0x0012, h01=0x0050, text=» RF(NZ) GBL010«, t00=0x0013, t01=0x013c}
0x1efa…1f2c Head {h00=0x002e, h01=0x0050, text=» CF A15,HALT HALT IF ALL BLOCKS OCCUPIED «, t00=0x0013, t01=0x0152}
0x1f2c…1f46 Head {h00=0x0016, h01=0x0050, text=»GBL010 LDR* A5,A4 «, t00=0x0013, t01=0x0184}
0x1f46…1f78 Head {h00=0x002e, h01=0x0050, text=» ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE«, t00=0x0014, t01=0x000e}
0x1f78…1fa0 Head {h00=0x0024, h01=0x0050, text=» STR A3,A4 STORE A3-A1 IN BLOCK «, t00=0x0014, t01=0x0040}
0x1fa0…1fb4 Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A4 «, t00=0x0014, t01=0x0068}
0x1fb4…1fc8 Head {h00=0x0010, h01=0x0050, text=» ST A1,4,A4 «, t00=0x0014, t01=0x007c}
0x1fc8…1fe8 Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A15 RESTORE A5 «, t00=0x0014, t01=0x0090}
0x1fe8…2000 Head {h00=0x0014, h01=0x0050, text=»GBL020 RF IHRTN «, t00=0x0014, t01=0x00b0}
0x2000…200e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00c8}
0x200e…2018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d6}
0x2018…2022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e0}
0x2022…203a Head {h00=0x0014, h01=0x0050, text=»* F R E B L K «, t00=0x0014, t01=0x00ea}
0x203a…2044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0102}
0x2044…2082 Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK «, t00=0x0014, t01=0x010c}
0x2082…20a6 Head {h00=0x0020, h01=0x0050, text=»* AND SET THIS BLOCK FREE.«, t00=0x0014, t01=0x014a}
0x20a6…20b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x016e}
0x20b0…20ce Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETER:- «, t00=0x0014, t01=0x0178}
0x20ce…20d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0008}
0x20d8…20f6 Head {h00=0x001a, h01=0x0050, text=»* A4 = BLOCKADDRESS «, t00=0x0015, t01=0x0012}
0x20f6…2100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0030}
0x2100…211e Head {h00=0x001a, h01=0x0050, text=»* EXIT PARAMETERS:- «, t00=0x0015, t01=0x003a}
0x211e…2128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0058}
0x2128…2152 Head {h00=0x0026, h01=0x0050, text=»* A3 = FIRST PARAMETER IN BLOCK «, t00=0x0015, t01=0x0062}
0x2152…217a Head {h00=0x0024, h01=0x0050, text=»* A2 = SECOND " " «, t00=0x0015, t01=0x008c}
0x217a…21a2 Head {h00=0x0024, h01=0x0050, text=»* A1 = THIRD " " «, t00=0x0015, t01=0x00b4}
0x21a2…21ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00dc}
0x21ac…21b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e6}
0x21b6…21ca Head {h00=0x0010, h01=0x0050, text=»FREBLK EQU *«, t00=0x0015, t01=0x00f0}
0x21ca…21d6 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0015, t01=0x0104}
0x21d6…21f4 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A4 UPDATE A3 «, t00=0x0015, t01=0x0110}
0x21f4…220a Head {h00=0x0012, h01=0x0050, text=» LD A1,FREQUE «, t00=0x0015, t01=0x012e}
0x220a…221c Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x0015, t01=0x0144}
0x221c…2240 Head {h00=0x0020, h01=0x0050, text=» ST A4,FREQUE SET BLOCK FREE«, t00=0x0015, t01=0x0156}
0x2240…2254 Head {h00=0x0010, h01=0x0050, text=» LD A2,2,A4 «, t00=0x0015, t01=0x017a}
0x2254…2268 Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A4 «, t00=0x0015, t01=0x018e}
0x2268…227a Head {h00=0x000e, h01=0x0050, text=» RF IHRTN «, t00=0x0016, t01=0x0012}
0x227a…2288 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0024}
0x2288…2290 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0032}
0x2290…229a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x003a}
0x229a…22a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0044}
0x22a4…22ba Head {h00=0x0012, h01=0x0050, text=»* F N D D W T «, t00=0x0016, t01=0x004e}
0x22ba…22c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0064}
0x22c4…22e0 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS:-«, t00=0x0016, t01=0x006e}
0x22e0…22ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x008a}
0x22ea…2306 Head {h00=0x0018, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0016, t01=0x0094}
0x2306…2320 Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0016, t01=0x00b0}
0x2320…232a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ca}
0x232a…2346 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETERS:- «, t00=0x0016, t01=0x00d4}
0x2346…2350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00f0}
0x2350…2368 Head {h00=0x0014, h01=0x0050, text=»* A2 = DWT INDEX«, t00=0x0016, t01=0x00fa}
0x2368…2392 Head {h00=0x0026, h01=0x0050, text=»* A6 = DWT ADDRESS IF FOUND ELSE 0«, t00=0x0016, t01=0x0112}
0x2392…239c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x013c}
0x239c…23a4 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0146}
0x23a4…23c6 Head {h00=0x001e, h01=0x0050, text=»FNDDWT STR A1,A15 SAVE A1 «, t00=0x0016, t01=0x014e}
0x23c6…23de Head {h00=0x0014, h01=0x0050, text=» LDKL A6,TTB:TD «, t00=0x0016, t01=0x0170}
0x23de…2416 Head {h00=0x0034, h01=0x0050, text=» ADR A6,A5 GET ADDRESS TO TERMINAL DEVICE TABLE «, t00=0x0016, t01=0x0188}
0x2416…243a Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A6 GET TABLE LENGTH«, t00=0x0017, t01=0x0030}
0x243a…2466 Head {h00=0x0028, h01=0x0050, text=» ADK A6,2 ADDRESS TO FIRST FILE CODE«, t00=0x0017, t01=0x0054}
0x2466…2492 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A8 LOAD FILE CODE FROM ECB «, t00=0x0017, t01=0x0080}
0x2492…249a Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x00ac}
0x249a…24b2 Head {h00=0x0014, h01=0x0050, text=»FND100 SUK A1,4 «, t00=0x0017, t01=0x00b4}
0x24b2…24de Head {h00=0x0028, h01=0x0050, text=» RF(N) FND110 FILE CODE NOT IN TTAB «, t00=0x0017, t01=0x00cc}
0x24de…2508 Head {h00=0x0026, h01=0x0050, text=» CC A2,1,A6 SEARCH IN DEVICE TABLE«, t00=0x0017, t01=0x00f8}
0x2508…252e Head {h00=0x0022, h01=0x0050, text=» RF(E) FND200 BRANCH IF FOUND «, t00=0x0017, t01=0x0122}
0x252e…255a Head {h00=0x0028, h01=0x0050, text=» ADK A6,4 ADDRESS TO NEXT FILE CODE «, t00=0x0017, t01=0x0148}
0x255a…2576 Head {h00=0x0018, h01=0x0050, text=» RB FND100 TRY NEXT «, t00=0x0017, t01=0x0174}
0x2576…2584 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0190}
0x2584…258e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x000e}
0x258e…25b6 Head {h00=0x0024, h01=0x0050, text=»* SEARCH IN COMMON DEVICE TABLE «, t00=0x0018, t01=0x0018}
0x25b6…25c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0040}
0x25c0…25c8 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x004a}
0x25c8…25f0 Head {h00=0x0024, h01=0x0050, text=»FND110 LD A6,CDTAB CDTAB ADDRESS«, t00=0x0018, t01=0x0052}
0x25f0…2610 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 CDTAB LENGTH«, t00=0x0018, t01=0x007a}
0x2610…2638 Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 POINTER TO FIRST ENTRY«, t00=0x0018, t01=0x009a}
0x2638…2640 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00c2}
0x2640…2658 Head {h00=0x0014, h01=0x0050, text=»FND120 SUK A1,4 «, t00=0x0018, t01=0x00ca}
0x2658…2682 Head {h00=0x0026, h01=0x0050, text=» RF(N) FND130 FILE CODE NOT FOUND «, t00=0x0018, t01=0x00e2}
0x2682…2696 Head {h00=0x0010, h01=0x0050, text=» CC A2,1,A6 «, t00=0x0018, t01=0x010c}
0x2696…26bc Head {h00=0x0022, h01=0x0050, text=» RF(E) FND200 FILE CODE FOUND «, t00=0x0018, t01=0x0120}
0x26bc…26ce Head {h00=0x000e, h01=0x0050, text=» ADK A6,4 «, t00=0x0018, t01=0x0146}
0x26ce…26f8 Head {h00=0x0026, h01=0x0050, text=» RB FND120 TRY NEXT ENTRY IN CDTAB«, t00=0x0018, t01=0x0158}
0x26f8…2700 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0182}
0x2700…2718 Head {h00=0x0014, h01=0x0050, text=»FND130 SUR A6,A6«, t00=0x0018, t01=0x018a}
0x2718…272a Head {h00=0x000e, h01=0x0050, text=» RF FND210«, t00=0x0019, t01=0x0012}
0x272a…2752 Head {h00=0x0024, h01=0x0050, text=»FND200 LCR A2,A6 LOAD DWT INDEX «, t00=0x0019, t01=0x0024}
0x2752…2776 Head {h00=0x0020, h01=0x0050, text=» LD A6,2,A6 LOAD DWT ADDRESS«, t00=0x0019, t01=0x004c}
0x2776…278e Head {h00=0x0014, h01=0x0050, text=»FND210 RF IHRET1«, t00=0x0019, t01=0x0070}
0x278e…279c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0088}
0x279c…27a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0096}
0x27a6…27b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a0}
0x27b0…27c6 Head {h00=0x0012, h01=0x0050, text=»* F N D T I D «, t00=0x0019, t01=0x00aa}
0x27c6…27d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c0}
0x27d0…27da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ca}
0x27da…2820 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINE TO FIND TTAB ADDRESS FROM TERMINAL IDENTIFICATION«, t00=0x0019, t01=0x00d4}
0x2820…282a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x011a}
0x282a…2834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0124}
0x2834…284e Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETER:«, t00=0x0019, t01=0x012e}
0x284e…2858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0148}
0x2858…287e Head {h00=0x0022, h01=0x0050, text=»* A7 = TERMINAL IDNETIFICATION«, t00=0x0019, t01=0x0152}
0x287e…2888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0178}
0x2888…2892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0182}
0x2892…28ac Head {h00=0x0016, h01=0x0050, text=»* EXIT PARAMETER: «, t00=0x0019, t01=0x018c}
0x28ac…28b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0016}
0x28b6…28d2 Head {h00=0x0018, h01=0x0050, text=»* A2 = TTAB ADDRESS «, t00=0x001a, t01=0x0020}
0x28d2…2904 Head {h00=0x002e, h01=0x0050, text=»* A2 = 0 INDICATES ILLEGAL IDENTIFICATION «, t00=0x001a, t01=0x003c}
0x2904…290e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006e}
0x290e…2918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0078}
0x2918…293e Head {h00=0x0022, h01=0x0050, text=»FNDTID STR A1,A15 SAVE REG. A1«, t00=0x001a, t01=0x0082}
0x293e…2960 Head {h00=0x001e, h01=0x0050, text=» LD* A1,TCTAB TCTAB LENGTH«, t00=0x001a, t01=0x00a8}
0x2960…2974 Head {h00=0x0010, h01=0x0050, text=» AD A1,TCTAB«, t00=0x001a, t01=0x00ca}
0x2974…297c Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00de}
0x297c…2994 Head {h00=0x0014, h01=0x0050, text=»FTI010 SUK A1,2 «, t00=0x001a, t01=0x00e6}
0x2994…29a8 Head {h00=0x0010, h01=0x0050, text=» CW A1,TCTAB«, t00=0x001a, t01=0x00fe}
0x29a8…29d0 Head {h00=0x0024, h01=0x0050, text=» RF(E) FTI030 ALL TTABS EXAMINED«, t00=0x001a, t01=0x0112}
0x29d0…29f0 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 TTAB ADDRESS«, t00=0x001a, t01=0x013a}
0x29f0…2a14 Head {h00=0x0020, h01=0x0050, text=» RB(Z) FTI010 NOT IN SYSTEM «, t00=0x001a, t01=0x015a}
0x2a14…2a44 Head {h00=0x002c, h01=0x0050, text=» CW A7,TTB:ID,A2 COMPARE IDENTIFICATIONS«, t00=0x001a, t01=0x017e}
0x2a44…2a6e Head {h00=0x0026, h01=0x0050, text=» RB(NE) FTI010 NO MATCH. TRY NEXT «, t00=0x001b, t01=0x001e}
0x2a6e…2a76 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0048}
0x2a76…2a8e Head {h00=0x0014, h01=0x0050, text=»FTI020 RF IHRET1«, t00=0x001b, t01=0x0050}
0x2a8e…2abe Head {h00=0x002c, h01=0x0050, text=»FTI030 SUR A2,A2 ILLEGAL IDENTIFICATION «, t00=0x001b, t01=0x0068}
0x2abe…2ad0 Head {h00=0x000e, h01=0x0050, text=» RF IHRET1«, t00=0x001b, t01=0x0098}
0x2ad0…2ade Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00aa}
0x2ade…2ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b8}
0x2ae8…2af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c2}
0x2af2…2b08 Head {h00=0x0012, h01=0x0050, text=»* T E N D I O «, t00=0x001b, t01=0x00cc}
0x2b08…2b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e2}
0x2b12…2b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ec}
0x2b1c…2b4e Head {h00=0x002e, h01=0x0050, text=»* THIS MODULE IS CALLED WHEN COMPLETION OF«, t00=0x001b, t01=0x00f6}
0x2b4e…2b64 Head {h00=0x0012, h01=0x0050, text=»* I/O OCCURS. «, t00=0x001b, t01=0x0128}
0x2b64…2b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x013e}
0x2b6e…2b9a Head {h00=0x0028, h01=0x0050, text=»* - IF I/O AND ACTIVATION REQUEST:- «, t00=0x001b, t01=0x0148}
0x2b9a…2ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0174}
0x2ba4…2bd2 Head {h00=0x002a, h01=0x0050, text=»* ACTOT IS CALLED TO START THE TASK «, t00=0x001b, t01=0x017e}
0x2bd2…2bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001c}
0x2bdc…2c00 Head {h00=0x0020, h01=0x0050, text=»* -IF NORMAL I/O WITH WAIT:-«, t00=0x001c, t01=0x0026}
0x2c00…2c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x004a}
0x2c0a…2c38 Head {h00=0x002a, h01=0x0050, text=»* QTJOB IS CALLED TO QUEUE THE TASK «, t00=0x001c, t01=0x0054}
0x2c38…2c74 Head {h00=0x0038, h01=0x0050, text=»* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- «, t00=0x001c, t01=0x0082}
0x2c74…2c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00be}
0x2c7e…2c9c Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB-ADDRESS «, t00=0x001c, t01=0x00c8}
0x2c9c…2ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e6}
0x2ca6…2cce Head {h00=0x0024, h01=0x0050, text=»* -IF NORMAL I/O WITH NO WAIT:- «, t00=0x001c, t01=0x00f0}
0x2cce…2cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0118}
0x2cd8…2cf6 Head {h00=0x001a, h01=0x0050, text=»* NO ACTION REQUIRED«, t00=0x001c, t01=0x0122}
0x2cf6…2d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0140}
0x2d00…2d44 Head {h00=0x0040, h01=0x0050, text=»* IF AN EVENT WAS QUEUED FOR THIS DEVICE (DWTECQ NOT = ZERO)«, t00=0x001c, t01=0x014a}
0x2d44…2d90 Head {h00=0x0048, h01=0x0050, text=»* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION«, t00=0x001c, t01=0x018e}
0x2d90…2d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004a}
0x2d9a…2dce Head {h00=0x0030, h01=0x0050, text=»* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- «, t00=0x001d, t01=0x0054}
0x2dce…2dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0088}
0x2dd8…2df4 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE«, t00=0x001d, t01=0x0092}
0x2df4…2e10 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x001d, t01=0x00ae}
0x2e10…2e34 Head {h00=0x0020, h01=0x0050, text=»* NO REGISTERS ARE DESTROYED«, t00=0x001d, t01=0x00ca}
0x2e34…2e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ee}
0x2e3e…2e78 Head {h00=0x0036, h01=0x0050, text=»* N.B. THE ECB RETURN CODE IS UPDATED BY MEANS OF «, t00=0x001d, t01=0x00f8}
0x2e78…2e96 Head {h00=0x001a, h01=0x0050, text=»* AN 'ORS' INSTRUCTION«, t00=0x001d, t01=0x0132}
0x2e96…2ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0150}
0x2ea0…2eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015a}
0x2eaa…2eb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0164}
0x2eb8…2ec2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0172}
0x2ec2…2efa Head {h00=0x0034, h01=0x0050, text=»* CHECK IF ANY TERMINAL ON QUEUE FOR THIS DEVICE«, t00=0x001d, t01=0x017c}
0x2efa…2f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0024}
0x2f04…2f18 Head {h00=0x0010, h01=0x0050, text=»TENDIO EQU *«, t00=0x001e, t01=0x002e}
0x2f18…2f42 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x001e, t01=0x0042}
0x2f42…2f6a Head {h00=0x0024, h01=0x0050, text=» LD A5,DWTTQ,A6 ANY TASK QUEUED?«, t00=0x001e, t01=0x006c}
0x2f6a…2f82 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TEN110 NO«, t00=0x001e, t01=0x0094}
0x2f82…2fb6 Head {h00=0x0030, h01=0x0050, text=» LDR* A3,A5 YES: UPDATE QUEUE ANCHOR ADDRESS«, t00=0x001e, t01=0x00ac}
0x2fb6…2fce Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTTQ,A6 «, t00=0x001e, t01=0x00e0}
0x2fce…3000 Head {h00=0x002e, h01=0x0050, text=» CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST«, t00=0x001e, t01=0x00f8}
0x3000…300e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x012a}
0x300e…3018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0138}
0x3018…3022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0142}
0x3022…303e Head {h00=0x0018, h01=0x0050, text=»* UPDATE ECB AND DWT«, t00=0x001e, t01=0x014c}
0x303e…3048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0168}
0x3048…3052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0172}
0x3052…305a Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x017c}
0x305a…306e Head {h00=0x0010, h01=0x0050, text=»TEN110 EQU *«, t00=0x001e, t01=0x0184}
0x306e…30a0 Head {h00=0x002e, h01=0x0050, text=» LD A5,DWTTAB,A6 GET TTAB ADDRESS FROM DWT«, t00=0x001f, t01=0x0008}
0x30a0…30b6 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x001f, t01=0x003a}
0x30b6…30ec Head {h00=0x0032, h01=0x0050, text=» ORS A2,DWTST,A6 INDICATE DEVICE READY IN DWT «, t00=0x001f, t01=0x0050}
0x30ec…311e Head {h00=0x002e, h01=0x0050, text=» LDKL A3,/DBFF RESET ECHO-BIT AND BITS 5,6«, t00=0x001f, t01=0x0086}
0x311e…3154 Head {h00=0x0032, h01=0x0050, text=» ANS A3,DWTST,A6 RESET ECHO-BIT IN STATUS DWT «, t00=0x001f, t01=0x00b8}
0x3154…317c Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTECB,A6 GET ECB ADDRESS«, t00=0x001f, t01=0x00ee}
0x317c…31ba Head {h00=0x003a, h01=0x0050, text=» RF(Z) TEN130 BRANCH IF ENTERED FROM ECHO OR RECOVERY «, t00=0x001f, t01=0x0116}
0x31ba…31e8 Head {h00=0x002a, h01=0x0050, text=» ORRS A2,A3 SET EVENT COMPLETED IN ECB«, t00=0x001f, t01=0x0154}
0x31e8…3214 Head {h00=0x0028, h01=0x0050, text=» ORS A1,8,A3 SET RETURN CODE IN ECB «, t00=0x001f, t01=0x0182}
0x3214…323c Head {h00=0x0024, h01=0x0050, text=» CM DWTECB,A6 RESET ECB ADDRESS «, t00=0x0020, t01=0x001e}
0x323c…324a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0046}
0x324a…3254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0054}
0x3254…327a Head {h00=0x0022, h01=0x0050, text=»* CHECK IF WAIT OR ACTIVATION «, t00=0x0020, t01=0x005e}
0x327a…3284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0084}
0x3284…32b8 Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR«, t00=0x0020, t01=0x008e}
0x32b8…32e4 Head {h00=0x0028, h01=0x0050, text=» RF(Z) TEN130 NOT WAIT OR ACTIVATION«, t00=0x0020, t01=0x00c2}
0x32e4…32f6 Head {h00=0x000e, h01=0x0050, text=» CWK A4,1 «, t00=0x0020, t01=0x00ee}
0x32f6…3310 Head {h00=0x0016, h01=0x0050, text=» RF(E) TEN120 WAIT«, t00=0x0020, t01=0x0100}
0x3310…334c Head {h00=0x0038, h01=0x0050, text=» CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR«, t00=0x0020, t01=0x011a}
0x334c…3370 Head {h00=0x0020, h01=0x0050, text=» CF A15,ACTOT ACTIVATE TASK «, t00=0x0020, t01=0x0156}
0x3370…338a Head {h00=0x0016, h01=0x0050, text=» RF TEN130 RETURN «, t00=0x0020, t01=0x017a}
0x338a…339e (33, 0, 400) Head {h00=0x0010, h01=0x0050, text=»TEN120 EQU *«, t00=0x0021, t01=0x0004}
0x339e…33d4 Head {h00=0x0032, h01=0x0050, text=» CF A15,QTJOB WAIT: QUEUE TASK FOR DISPATCHING«, t00=0x0021, t01=0x0018}
0x33d4…33e8 Head {h00=0x0010, h01=0x0050, text=»TEN130 EQU *«, t00=0x0021, t01=0x004e}
0x33e8…33f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0062}
0x33f6…3400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0070}
0x3400…340a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x007a}
0x340a…343a Head {h00=0x002c, h01=0x0050, text=»* RESTORE REGISTERS AND RETURN WITHOUT«, t00=0x0021, t01=0x0084}
0x343a…3458 Head {h00=0x001a, h01=0x0050, text=»* ENABLE INTERRUPTS «, t00=0x0021, t01=0x00b4}
0x3458…3462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d2}
0x3462…346c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00dc}
0x346c…3486 Head {h00=0x0016, h01=0x0050, text=»IHRET8 LDR* A8,A15«, t00=0x0021, t01=0x00e6}
0x3486…34a0 Head {h00=0x0016, h01=0x0050, text=»IHRET7 LDR* A7,A15«, t00=0x0021, t01=0x0100}
0x34a0…34ba Head {h00=0x0016, h01=0x0050, text=»IHRET6 LDR* A6,A15«, t00=0x0021, t01=0x011a}
0x34ba…34d4 Head {h00=0x0016, h01=0x0050, text=»IHRET5 LDR* A5,A15«, t00=0x0021, t01=0x0134}
0x34d4…34ee Head {h00=0x0016, h01=0x0050, text=»IHRET4 LDR* A4,A15«, t00=0x0021, t01=0x014e}
0x34ee…3508 Head {h00=0x0016, h01=0x0050, text=»IHRET3 LDR* A3,A15«, t00=0x0021, t01=0x0168}
0x3508…3522 Head {h00=0x0016, h01=0x0050, text=»IHRET2 LDR* A2,A15«, t00=0x0021, t01=0x0182}
0x3522…353c Head {h00=0x0016, h01=0x0050, text=»IHRET1 LDR* A1,A15«, t00=0x0022, t01=0x000c}
0x353c…354e Head {h00=0x000e, h01=0x0050, text=»IHRTN INH «, t00=0x0022, t01=0x0026}
0x354e…3576 Head {h00=0x0024, h01=0x0050, text=» ADKL A15,4 ADJUST STACK POINTER«, t00=0x0022, t01=0x0038}
0x3576…3592 Head {h00=0x0018, h01=0x0050, text=» ABR* A15 AND RETURN«, t00=0x0022, t01=0x0060}
0x3592…35a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x007c}
0x35a0…35aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x008a}
0x35aa…35b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0094}
0x35b4…35cc Head {h00=0x0014, h01=0x0050, text=»* P F I N I T «, t00=0x0022, t01=0x009e}
0x35cc…35d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00b6}
0x35d6…3600 Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE TO RESTART DEVICES.«, t00=0x0022, t01=0x00c0}
0x3600…360a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ea}
0x360a…364e Head {h00=0x0040, h01=0x0050, text=»* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALLED. «, t00=0x0022, t01=0x00f4}
0x364e…3692 Head {h00=0x0040, h01=0x0050, text=»* REGISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. «, t00=0x0022, t01=0x0138}
0x3692…369c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x017c}
0x369c…36a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0186}
0x36a6…36ba Head {h00=0x0010, h01=0x0050, text=»PFINIT EQU *«, t00=0x0022, t01=0x0190}
0x36ba…36e6 Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 SET INDEX TO FIRST ROUTINE«, t00=0x0023, t01=0x0014}
0x36e6…370e Head {h00=0x0024, h01=0x0050, text=»PFI100 CW A1,PFTAB CHECK IF LAST«, t00=0x0023, t01=0x0040}
0x370e…3732 Head {h00=0x0020, h01=0x0050, text=» RF(NL) PFI110 ALL RESTARTED«, t00=0x0023, t01=0x0068}
0x3732…374e Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0023, t01=0x008c}
0x374e…377c Head {h00=0x002a, h01=0x0050, text=» CFI A15,PFTAB,A1 CALL RESTART MODULE «, t00=0x0023, t01=0x00a8}
0x377c…379c Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 RESTORE A1 «, t00=0x0023, t01=0x00d6}
0x379c…37ba Head {h00=0x001a, h01=0x0050, text=» ADK A1,2 NEXT DEVICE «, t00=0x0023, t01=0x00f6}
0x37ba…37cc Head {h00=0x000e, h01=0x0050, text=» RB PFI100«, t00=0x0023, t01=0x0114}
0x37cc…37fc Head {h00=0x002c, h01=0x0050, text=»PFI110 RF SWLRTN RETURN WHEN ALL STARTED«, t00=0x0023, t01=0x0126}
0x37fc…380a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0156}
0x380a…3814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0164}
0x3814…381e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x016e}
0x381e…3834 Head {h00=0x0012, h01=0x0050, text=»* S W L 4 8 «, t00=0x0023, t01=0x0178}
0x3834…383e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x018e}
0x383e…387c Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO 48.«, t00=0x0024, t01=0x0008}
0x387c…3886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0046}
0x3886…3890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0050}
0x3890…38a4 Head {h00=0x0010, h01=0x0050, text=»SWL48 EQU * «, t00=0x0024, t01=0x005a}
0x38a4…38b0 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0024, t01=0x006e}
0x38b0…38c4 Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0024, t01=0x007a}
0x38c4…38ec Head {h00=0x0024, h01=0x0050, text=» LDKL A1,/C000 PSW FOR LEVEL 48 «, t00=0x0024, t01=0x008e}
0x38ec…3916 Head {h00=0x0026, h01=0x0050, text=» ST A1,4,A15 SAVE IT ON A15 STACK «, t00=0x0024, t01=0x00b6}
0x3916…3936 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 RESTORE A1 «, t00=0x0024, t01=0x00e0}
0x3936…3968 Head {h00=0x002e, h01=0x0050, text=»SWLRTN ABL RTNA15 RETURN TO CALLER AND ENB«, t00=0x0024, t01=0x0100}
0x3968…3972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0132}
0x3972…3980 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x013c}
0x3980…398a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014a}
0x398a…39b6 Head {h00=0x0028, h01=0x0050, text=»* INTERRUPT SAVE AND HALT MODULE «, t00=0x0024, t01=0x0154}
0x39b6…39c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0180}
0x39c0…39d6 Head {h00=0x0012, h01=0x0050, text=»INTSAV DATA 0 «, t00=0x0024, t01=0x018a}
0x39d6…39ec Head {h00=0x0012, h01=0x0050, text=»SAVA15 DATA 0 «, t00=0x0025, t01=0x0010}
0x39ec…3a06 Head {h00=0x0016, h01=0x0050, text=»ILLINT CF A15,HALT«, t00=0x0025, t01=0x0026}
0x3a06…3a18 Head {h00=0x000e, h01=0x0050, text=»HALT EQU *«, t00=0x0025, t01=0x0040}
0x3a18…3a2e Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0025, t01=0x0052}
0x3a2e…3a42 Head {h00=0x0010, h01=0x0050, text=» STR A9,A15 «, t00=0x0025, t01=0x0068}
0x3a42…3a56 Head {h00=0x0010, h01=0x0050, text=» STR A10,A15«, t00=0x0025, t01=0x007c}
0x3a56…3a6a Head {h00=0x0010, h01=0x0050, text=» STR A11,A15«, t00=0x0025, t01=0x0090}
0x3a6a…3a7e Head {h00=0x0010, h01=0x0050, text=» STR A12,A15«, t00=0x0025, t01=0x00a4}
0x3a7e…3a92 Head {h00=0x0010, h01=0x0050, text=» STR A13,A15«, t00=0x0025, t01=0x00b8}
0x3a92…3aa6 Head {h00=0x0010, h01=0x0050, text=» STR A14,A15«, t00=0x0025, t01=0x00cc}
0x3aa6…3abc Head {h00=0x0012, h01=0x0050, text=» ST A15,SAVA15«, t00=0x0025, t01=0x00e0}
0x3abc…3ac8 Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x0025, t01=0x00f6}
0x3ac8…3ad4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0025, t01=0x0102}
0x3ad4…3ad8 Head {h00=0x4004, h01=0x0000}
0x3ad8…3adc 00 25 01 0e ┆ % ┆
0x3adc…3ae4 (38, 1, 8) 20 04 00 00 00 26 00 04 ┆ & ┆
0x3ae4…3b34 (39, 0, 400) 5c 49 46 54 5c 43 45 43 48 4f 3d 31 00 26 01 90 00 20 00 50 5c 43 46 5c 41 35 2c 43 48 45 4b 5c 43 48 45 43 4b 20 43 48 41 52 41 43 54 45 52 20 00 27 00 14 00 26 00 50 5c 4f 52 4b 5c 41 32 2c 2f 38 30 5c 49 4e 44 49 43 41 54 45 20 45 4e 44 ┆ IFT CECHO=1 & P CF A5,CHEK CHECK CHARACTER ' & P ORK A2,/80 INDICATE END┆
0x3b34…3b84 20 4f 46 20 52 45 43 4f 52 44 00 27 00 38 00 1c 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 52 45 54 55 52 4e 20 43 4f 44 45 3f 20 00 27 00 62 00 12 00 50 5c 52 46 28 4e 45 29 5c 41 4b 42 33 38 30 00 27 00 82 00 1e 00 50 5c 43 46 5c 41 35 2c 45 ┆ OF RECORD ' 8 P LDR A1,A1 RETURN CODE? ' b P RF(NE) AKB380 ' P CF A5,E┆
0x3b84…3bd4 43 48 4f 5c 45 43 48 4f 20 43 48 41 52 41 43 54 45 52 00 27 00 98 00 06 00 50 2a 20 00 27 00 ba 00 08 00 50 5c 58 49 46 00 27 00 c4 00 06 00 50 2a 20 00 27 00 d0 00 20 00 50 41 4b 42 33 38 30 5c 4c 44 4b 5c 41 31 2c 30 5c 52 45 54 55 52 4e ┆CHO ECHO CHARACTER ' P* ' P XIF ' P* ' PAKB380 LDK A1,0 RETURN┆
0x3bd4…3c24 20 43 4f 44 45 20 00 27 00 da 00 0a 00 50 5c 45 4a 45 43 54 00 27 00 fe 00 06 00 50 2a 20 00 27 01 0c 00 06 00 50 2a 20 00 27 01 16 00 2c 00 50 2a 20 20 20 20 54 48 49 53 20 49 53 20 41 20 43 4f 4d 4d 4f 4e 20 45 4e 44 20 4f 46 20 54 48 45 ┆ CODE ' P EJECT ' P* ' P* ' , P* THIS IS A COMMON END OF THE┆
0x3c24…3c74 20 44 52 49 56 45 52 20 00 27 01 20 00 06 00 50 2a 20 00 27 01 50 00 32 00 50 2a 20 20 20 20 53 45 54 20 45 46 46 45 43 54 49 56 45 20 4c 45 4e 47 54 48 20 41 4e 44 20 50 45 52 46 4f 52 4d 20 45 4e 44 20 49 2f 4f 20 00 27 01 5a 00 24 00 50 ┆ DRIVER ' P* ' P 2 P* SET EFFECTIVE LENGTH AND PERFORM END I/O ' Z $ P┆
0x3c74…3cc4 (40, 0, 400) 2a 20 20 20 20 4f 4e 20 4b 45 59 42 4f 41 52 44 20 41 4e 44 20 45 43 48 4f 2d 44 45 56 49 43 45 00 27 01 90 00 06 00 50 2a 20 00 28 00 28 00 06 00 50 2a 20 00 28 00 32 00 10 00 50 45 4e 44 49 4f 5c 45 51 55 5c 2a 20 00 28 00 3c 00 06 00 50 ┆* ON KEYBOARD AND ECHO-DEVICE ' P* ( ( P* ( 2 PENDIO EQU * ( < P┆
0x3cc4…3d14 2a 20 00 28 00 50 00 12 00 50 5c 49 46 54 5c 43 54 49 4d 55 54 3d 31 20 00 28 00 5a 00 08 00 50 5c 49 4e 48 00 28 00 70 00 14 00 50 5c 4c 44 5c 41 34 2c 44 57 54 54 50 2c 41 36 20 00 28 00 7c 00 2a 00 50 5c 52 46 28 45 29 5c 45 4e 44 49 30 ┆* ( P P IFT CTIMUT=1 ( Z P INH ( p P LD A4,DWTTP,A6 ( | * P RF(E) ENDI0┆
0x3d14…3d64 35 5c 4e 4f 20 54 49 4d 49 4e 47 20 4f 4e 20 54 48 49 53 20 44 45 56 49 43 45 00 28 00 94 00 1e 00 50 5c 43 4d 2a 5c 44 57 54 54 50 2c 41 36 5c 52 45 53 45 54 20 54 49 4d 45 52 20 00 28 00 c2 00 10 00 50 5c 43 4d 5c 44 57 54 54 50 2c 41 36 ┆5 NO TIMING ON THIS DEVICE ( P CM* DWTTP,A6 RESET TIMER ( P CM DWTTP,A6┆
0x3d64…3db4 00 28 00 e4 00 08 00 50 5c 58 49 46 00 28 00 f8 00 06 00 50 2a 20 00 28 01 04 00 2c 00 50 45 4e 44 49 30 35 5c 53 54 5c 41 33 2c 36 2c 41 38 5c 53 54 4f 52 45 20 45 46 46 45 43 54 49 56 45 20 4c 45 4e 47 54 48 00 28 01 0e 00 10 00 50 45 4e ┆ ( P XIF ( P* ( , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( PEN┆
0x3db4…3e04 44 49 31 30 5c 45 51 55 5c 2a 00 28 01 3e 00 06 00 50 2a 20 00 28 01 52 00 10 00 50 5c 49 46 54 5c 43 45 43 48 4f 3d 31 00 28 01 5c 00 16 00 50 5c 4c 44 52 5c 41 34 2c 41 31 5c 53 41 56 45 20 41 31 00 28 01 70 00 28 00 50 5c 43 46 5c 41 35 ┆DI10 EQU * ( > P* ( R P IFT CECHO=1 ( P LDR A4,A1 SAVE A1 ( p ( P CF A5┆
0x3e04…3e54 (41, 0, 400) 2c 45 43 48 45 4e 44 5c 45 4e 44 20 49 2f 4f 20 4f 4e 20 45 43 48 4f 20 44 45 56 49 43 45 00 28 01 8a 00 1a 00 50 5c 4c 44 52 5c 41 31 2c 41 34 5c 52 45 53 54 4f 52 45 20 41 31 20 00 29 00 26 00 08 00 50 5c 58 49 46 00 29 00 44 00 06 00 50 ┆,ECHEND END I/O ON ECHO DEVICE ( P LDR A1,A4 RESTORE A1 ) & P XIF ) D P┆
0x3e54…3ea4 2a 20 00 29 00 50 00 30 00 50 5c 41 42 4c 5c 44 49 53 45 4e 44 5c 45 4e 44 20 49 2f 4f 20 4f 4e 20 4b 45 59 42 4f 41 52 44 20 41 4e 44 20 44 49 53 50 41 54 43 48 00 29 00 5a 00 0a 00 50 5c 45 4a 45 43 54 00 29 00 8e 00 06 00 50 2a 20 00 29 ┆* ) P 0 P ABL DISEND END I/O ON KEYBOARD AND DISPATCH ) Z P EJECT ) P* )┆
0x3ea4…3ef4 00 9c 00 16 00 50 2a 20 20 20 20 4d 55 4c 54 49 50 4c 45 20 5a 45 52 4f 00 29 00 a6 00 06 00 50 2a 20 00 29 00 c0 00 12 00 50 5c 49 46 46 5c 43 4d 55 4c 54 5a 3d 30 20 00 29 00 ca 00 10 00 50 4b 42 4d 5a 31 30 5c 45 51 55 5c 2a 00 29 00 e0 ┆ P* MULTIPLE ZERO ) P* ) P IFF CMULTZ=0 ) PKBMZ10 EQU * ) ┆
0x3ef4…3f44 00 28 00 50 5c 4c 44 4b 5c 41 34 2c 43 4d 55 4c 54 5a 5c 4c 4f 41 44 20 4e 55 4d 42 45 52 20 4f 46 20 5a 45 52 4f 45 53 00 29 00 f4 00 2c 00 50 4b 42 4d 5a 32 30 5c 4c 44 4b 5c 41 32 2c 2f 33 30 5c 5a 45 52 4f 20 54 4f 20 53 54 4f 52 45 20 ┆ ( P LDK A4,CMULTZ LOAD NUMBER OF ZEROES ) , PKBMZ20 LDK A2,/30 ZERO TO STORE ┆
0x3f44…3f94 41 4e 44 20 45 43 48 4f 00 29 01 20 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 31 20 00 29 01 50 00 1a 00 50 5c 52 42 28 4c 29 5c 41 4b 42 32 34 30 5c 41 4c 4c 20 44 4f 4e 45 00 29 01 62 00 16 00 50 5c 4c 44 52 5c 41 31 2c 41 34 5c 53 41 56 45 20 ┆AND ECHO ) P SUK A4,1 ) P P RB(L) AKB240 ALL DONE ) b P LDR A1,A4 SAVE ┆
0x3f94…3fe4 (42, 0, 400) 41 34 00 29 01 80 00 2c 00 50 5c 43 46 5c 41 31 35 2c 53 54 4f 52 45 5c 53 54 4f 52 45 20 5a 4f 45 52 4f 20 49 4e 20 45 43 42 2d 42 55 46 46 45 52 20 00 2a 00 0a 00 1a 00 50 5c 4c 44 52 5c 41 34 2c 41 31 5c 52 45 53 54 4f 52 45 20 41 34 20 ┆A4 ) , P CF A15,STORE STORE ZOERO IN ECB-BUFFER * P LDR A4,A1 RESTORE A4 ┆
0x3fe4…4034 00 2a 00 3a 00 06 00 50 2a 20 00 2a 00 58 00 10 00 50 5c 49 46 54 5c 43 45 43 48 4f 3d 31 00 2a 00 62 00 06 00 50 2a 20 00 2a 00 76 00 1a 00 50 5c 43 46 5c 41 35 2c 45 43 48 4f 5c 45 43 48 4f 20 5a 45 52 4f 20 00 2a 00 80 00 08 00 50 5c 58 ┆ * : P* * X P IFT CECHO=1 * b P* * v P CF A5,ECHO ECHO ZERO * P X┆
0x4034…4084 49 46 00 2a 00 9e 00 06 00 50 2a 20 00 2a 00 aa 00 06 00 50 2a 20 00 2a 00 b4 00 12 00 50 5c 49 46 46 5c 43 4d 55 4c 54 5a 3d 30 20 00 2a 00 be 00 06 00 50 2a 20 00 2a 00 d4 00 22 00 50 5c 43 57 5c 41 33 2c 34 2c 41 38 5c 4c 45 4e 47 54 48 ┆IF * P* * P* * P IFF CMULTZ=0 * P* * " P CW A3,4,A8 LENGTH┆
0x4084…40d4 20 4f 56 45 52 46 4c 4f 57 20 3f 20 00 2a 00 de 00 14 00 50 5c 52 42 28 4c 29 5c 4b 42 4d 5a 32 30 5c 4e 4f 00 2a 01 04 00 2e 00 50 5c 52 42 5c 41 4b 42 33 36 38 5c 59 45 53 20 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 41 4e 44 20 45 ┆ OVERFLOW ? * P RB(L) KBMZ20 NO * . P RB AKB368 YES SET RETURN CODE AND E┆
0x40d4…4124 4e 44 20 49 2f 4f 00 2a 01 1c 00 08 00 50 5c 58 49 46 00 2a 01 4e 00 06 00 50 2a 20 00 2a 01 5a 00 0e 00 50 2a 20 20 20 20 43 4c 45 41 52 00 2a 01 64 00 06 00 50 2a 20 00 2a 01 76 00 26 00 50 4b 42 43 4c 31 30 5c 4c 44 4b 5c 41 33 2c 30 5c ┆ND I/O * P XIF * N P* * Z P* CLEAR * d P* * v & PKBCL10 LDK A3,0 ┆
0x4124…4174 (43, 0, 400) 52 45 53 45 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 2a 01 80 00 26 00 50 5c 4c 44 4b 5c 41 32 2c 2f 31 38 5c 43 48 41 4e 47 45 20 43 48 41 52 41 43 54 45 52 2d 43 4f 44 45 20 00 2b 00 1a 00 0e 00 50 5c 52 42 5c 41 4b 42 33 36 35 00 2b ┆RESET BUFFER INDEX * & P LDK A2,/18 CHANGE CHARACTER-CODE + P RB AKB365 +┆
0x4174…41c4 00 44 00 06 00 50 2a 20 00 2b 00 56 00 12 00 50 2a 20 20 20 20 42 41 43 4b 53 50 41 43 45 00 2b 00 60 00 06 00 50 2a 20 00 2b 00 76 00 26 00 50 4b 42 53 50 31 30 5c 4c 44 52 5c 41 33 2c 41 33 5c 46 49 52 53 54 20 43 48 41 52 41 43 54 45 52 ┆ D P* + V P* BACKSPACE + ` P* + v & PKBSP10 LDR A3,A3 FIRST CHARACTER┆
0x41c4…4214 3f 20 00 2b 00 80 00 12 00 50 5c 52 46 28 5a 29 5c 4b 42 53 50 31 35 20 00 2b 00 aa 00 24 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 2b 00 c0 00 2a 00 50 4b 42 53 50 31 35 5c 4c ┆? + P RF(Z) KBSP15 + $ P SUK A3,1 DECREMENT BUFFER INDEX + * PKBSP15 L┆
0x4214…4264 44 4b 5c 41 32 2c 2f 38 5c 43 48 41 4e 47 45 20 43 48 41 52 41 43 54 45 52 2d 43 4f 44 45 00 2b 00 e8 00 0e 00 50 5c 52 42 5c 41 4b 42 33 36 35 00 2b 01 16 00 0a 00 50 5c 45 4a 45 43 54 00 2b 01 28 00 06 00 50 2a 20 00 2b 01 36 00 10 00 50 ┆DK A2,/8 CHANGE CHARACTER-CODE + P RB AKB365 + P EJECT + ( P* + 6 P┆
0x4264…42b4 2a 20 20 20 20 43 20 48 20 45 20 4b 00 2b 01 40 00 06 00 50 2a 20 00 2b 01 54 00 06 00 50 2a 20 00 2b 01 5e 00 2c 00 50 2a 20 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 43 48 45 43 4b 20 49 4e 50 55 54 20 43 48 41 52 41 43 54 45 52 ┆* C H E K + @ P* + T P* + ^ , P* SUBROUTINE TO CHECK INPUT CHARACTER┆
0x42b4…4304 (44, 0, 400) 00 2b 01 68 00 06 00 50 2a 20 00 2c 00 08 00 12 00 50 2a 20 20 20 20 4f 4e 20 45 4e 54 52 59 3a 00 2c 00 12 00 06 00 50 2a 20 00 2c 00 28 00 18 00 50 2a 20 20 20 20 41 32 20 3d 20 43 48 41 52 41 43 54 45 52 20 00 2c 00 32 00 1a 00 50 2a 20 ┆ + h P* , P* ON ENTRY: , P* , ( P* A2 = CHARACTER , 2 P* ┆
0x4304…4354 20 20 20 41 33 20 3d 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 2c 00 4e 00 1a 00 50 2a 20 20 20 20 41 36 20 3d 20 44 57 54 2d 41 44 44 52 45 53 53 20 00 2c 00 6c 00 14 00 50 2a 20 20 20 20 41 37 20 3d 20 4f 52 44 45 52 20 00 2c 00 8a 00 06 ┆ A3 = BUFFER INDEX , N P* A6 = DWT-ADDRESS , l P* A7 = ORDER , ┆
0x4354…43a4 00 50 2a 20 00 2c 00 a2 00 06 00 50 2a 20 00 2c 00 ac 00 12 00 50 2a 20 20 20 20 4f 4e 20 45 58 49 54 3a 20 00 2c 00 b6 00 06 00 50 2a 20 00 2c 00 cc 00 1a 00 50 2a 20 20 20 20 41 31 20 3d 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 2c 00 d6 ┆ P* , P* , P* ON EXIT: , P* , P* A1 = RETURN CODE , ┆
0x43a4…43f4 00 06 00 50 2a 20 00 2c 00 f4 00 0e 00 50 43 48 45 4b 5c 45 51 55 5c 2a 00 2c 00 fe 00 20 00 50 5c 53 54 52 5c 41 32 2c 41 31 35 5c 53 41 56 45 20 41 32 20 4f 4e 20 53 54 41 43 4b 00 2c 01 10 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 46 20 ┆ P* , PCHEK EQU * , P STR A2,A15 SAVE A2 ON STACK , P ANK A2,/FF ┆
0x43f4…4444 00 2c 01 34 00 22 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 36 5c 43 48 41 4e 4e 45 4c 20 50 41 52 41 4d 45 54 45 52 20 00 2c 01 48 00 06 00 50 2a 20 00 2c 01 6e 00 12 00 50 5c 49 46 54 5c 43 53 54 41 4e 44 3d 31 20 00 2c 01 78 00 06 00 50 2a 20 ┆ , 4 " P LDR* A1,A6 CHANNEL PARAMETER , H P* , n P IFT CSTAND=1 , x P* ┆