|
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: 10956 (0x2acc)
Notes: pts_type(SC)
Names: »DRIC01.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DRIC01.SC«
IDENT DRIC01 REL 8.2 78-09-15 870105040820 ABORT INTERTASK WRITE BUG REL 8.1 78-04-21 * ******************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRIC01 = INTERTASK COMMUNICATION HANDLER * * * * * * ********************************************** * * THIS MODULE HANDLES THE INTERTASK COMMUNICATION * **************** * * ORDERS: * * /02 READ * /0B WRITE * /39 SET TIMEOUT * **************** * * ENTRY PARAMETERS * * A5 STACK BASE * A6 DWT-ADDRESS * A7 ORDER * A8 ECB-ADDRESS EJECT * * E N T R I E S * ENTRY ITADI ACTIVATION ADDRESS READ ENTRY ITADO ACTIVATION ADDRESS WRITE ENTRY ITABRT ABORT INTERTASK REQUEST * * E X T E R N A L S * EXTRN TDISP DISPATCHER EXTRN TENDIO ENDIO EXTRN DISIOE REQUEST ERROR EXTRN DWTECB ECB ADDRESS EXTRN DWTST DWT STATUS EXTRN SETIMP TIMER EXTRN FNDTID FIND TTAB ADDRESS FROM TID EXTRN TTB:TD EXTRN TTB:ST TTAB STATUS EXTRN DWTTAB DWT TTAB ADDRESS EXTRN DWTADR ACTIVATION ADDRESS EXTRN IHRTN RTN A15 WITHOUT ENABLING EXTRN ECBBA ECB BUFFER ADDRESS EXTRN ECBRL ECB REQUESTED LENGTH EXTRN ECBEL ECB EFF. LENGTH EXTRN ECBRC ECB RETURN CODE EXTRN ECBCW ECB CONTROL WORD * * C O N S T A N T S * DWTTP EQU /10 TIMER POINTER DWSTB EQU /18 STACK BASE USED DWSTB2 EQU /1E STACK BASE 2 (NOT USED) DWTIM EQU /12 TIME DWQACH EQU /14 QUEUE ANCHOR EJECT * * A C T I V A T I O N * ITADI DATA ICAD ITADO DATA ICAD ICAD EQU * SUK A7,2 RF(Z) READ READ ORDER SUK A7,9 RF(Z) WRITE WRITE ORDER SUK A7,/2E RF(NZ) DIS:OE REQUEST ERROR * * S E T T I M E O U T * LD A1,10,A8 TIME ST A1,DWTIM,A6 LDK A1,0 RETURN CODE RF END:IO EJECT * * W R I T E * WRITE EQU * * * FIND INPUT DWT OF ADDRESSED TASK * LD A7,ECBCW,A8 TID CF A15,FNDTID TTAB ADDRESS TO A2 LDR A2,A2 RF(Z) DIS:OE NOT FOUND CW A2,DWTTAB,A6 RF(E) DIS:OE ILLEGAL TID ADKL A2,TTB:TD ADDRESS TO TERMINAL DEVICE TABLE LDR* A1,A2 TABLE LENGTH LDKL A3,ITADI READ ACTIV. ADDRESS WRI:20 ADK A2,4 ADDRESS TO NEXT DWT ADDR SUK A1,4 RF(N) DIS:OE NOT FOUND LDR* A4,A2 DWT ADDRESS CW A3,DWTADR,A4 INPUT DWT? RB(NE) WRI:20 NO, TRY NEXT LDR A2,A4 LD A1,DWTST,A2 ANY READ REQUEST? RF(N) WRI:50 NO! * * ABORT INPUT TIMER IF ANY CF A15,ABTIM ABORT TIMER * * MOVE BUFFER SUK A5,DWSTB2-DWSTB CF A5,MOVBUF WRI:45 CF A15,TENDIO END WRITE LDR A6,A2 END:IO CF A15,TENDIO END READ T:DISP ABL TDISP * * NO READ REQUEST, QUEUE WRITE REQUEST * WRI:50 LDK A1,/40 RETURN CODE LD A3,DWTIM,A6 TIME RB(Z) END:IO CWK A3,/FFFF RF(E) WRI:70 NO TIMING WANTED LDR A3,A3 RF(N) DIS:OE NEG. TIME LDR A1,A6 DWTOUT=PARAMETER LDK A4,DWTTP ADR A4,A6 TIMER POINTER ST A3,TIME CF A15,SETIMP SET TIMER DATA TIMOWR TIMEOUT ADDRESS TIME DATA 0 * * INSERT IN INPUT QUEUE WITHIN PRIORITY * WRI:70 EQU * ST A2,DWQACH,A6 STORE QUEUE ANCHOR IN DWT LD A5,DWTTAB,A6 TTAB ADDRESS LC A1,TTB:ST+1,A5 LEVEL WRI:80 LDR A4,A2 SAVE LDR* A2,A2 NEXT IN QUEUE RF(Z) WRI:90 END FOUND LD A5,DWTTAB,A2 TTAB ADDRESS CC A1,TTB:ST+1,A5 COMPARE LEVELS RB(NL) WRI:80 WRI:90 STR A2,A6 INSERT IN QUEUE STR A6,A4 RB T:DISP * * DIS:OE ABL DISIOE REQUEST ERROR EJECT * * R E A D * READ EQU * LDR* A2,A6 ANYTHING IN QUEUE RF(Z) REA:40 NO! LDR* A3,A2 REMOVE FROM QUEUE STR A3,A6 CF A15,ABTIM ABORT TIMER IF ANY * * MOVE BUFFER * LDR A4,A6 EXCHANGE A2 AND A6 LDR A6,A2 LDR A2,A4 SUK A5,DWSTB2-DWSTB CF A5,MOVBUF RB WRI:45 REA:40 LDK A1,/40 RETURN CODE LD A3,DWTIM,A6 TIME RB(Z) END:IO CWK A3,/FFFF RF(E) REA:70 NO TIMER WANTED LDR A3,A3 RB(N) DIS:OE NEG. TIME LDK A4,DWTTP ADR A4,A6 ST A3,TIMER LDR A1,A6 PARAMETER=DWT ADDRESS CF A15,SETIMP SET TIMER DATA TIMORE TIMEOUT ADDRESS TIMER DATA 0 REA:70 EQU * RB T:DISP EJECT * * WRITE REQUEST TIMEOUT * TIMOWR LDR A6,A1 DWT OUT ADDRESS LD A1,DWQACH,A6 QUEUE ANCHOR (READ DWT ADDR) * * REMOVE FROM QUEUE * TWR:10 LDR A4,A1 SAVE LDR* A1,A1 NEXT IN QUEUE CWR A1,A6 THIS DWT? RB(NE) TWR:10 NO! LDR* A3,A1 STR A3,A4 REMOVE FROM QUEUE TWR:20 CM* 0,A2 RESET TIMER POINTER LDK A1,/40 RETURN CODE RB END:IO * * READ REQUEST TIMEOUT * TIMORE EQU * LDR A6,A1 DWT ADDRESS RB TWR:20 EJECT * * I T A B R T = ABORT INTERTASK REQUEST * * THIS SUBROUTINE IS CALLED FROM TABORT. * THE ROUTINE FINDS IF REQUEST TO BE ABORTED IS A * INTERTASK REQUEST, AND IF SO IT WILL UPDATE * QUEUE AND ABORT TIMER (IF ANY) * * ENTRY PARAMETER: A6 DWT ADDRESS * REG. A1,A2,A3,A4 ARE CHANGED * ITABRT EQU * LDKL A3,ITADI ACTIVATION ADDRESS READ CW A3,DWTADR,A6 INTERTASK REQ.? RF(NE) ITAB20 NO! LDR A2,A6 DWT ADDRESS CF A15,ABTIM ABORT TIMER RF IH:RTN ITAB20 LDKL A3,ITADO ACTIVATION ADDRESS WRITE CW A3,DWTADR,A6 RF(NE) IH:RTN NOT INTERTASK * * ABORT WRITE REQUEST * LDR A2,A6 CF A15,ABTIM ABORT TIMER LD A1,DWQACH,A6 GET QUEUE ACHHOR * * REMOVE FROM QUEUE * IWR:10 LDR A4,A1 SAVE LDR* A1,A1 NEXT IN QUEUE CWR A1,A6 THIS DWT? RB(NE) IWR:10 NO! LDR* A3,A1 REMOVE STR A3,A4 FROM QUEUE RF IH:RTN EJECT * * A B T I M = SUBROUTINE FOR ABORTING TIMER IF ANY * * ENTRY PARAMETER: A2 DWT ADDRESS * * REG. A1,A3 ARE CHANGED * ABTIM LDK A1,DWTTP ADR A1,A2 TIMER POINTER ADDRESS LDR* A3,A1 RF(Z) ABT:10 NO TIMER ACTIVE CM* 0,A1 CMR A1 INDICATE NO TIMER SET ABT:10 EQU * IH:RTN ABL IHRTN EJECT * * M O V B U F * * SUBROUTINE TO MOVE BUFFER FROM SENDING TASK * TO ADDRESSED TASK * EFFECTIVE LENGTH IN BOTH INPUT AND OUTPUT ECB ARE SET * A1 WILL CONTAIN RETURN CODE /8 IF SENDING REQ. LEN * WAS GREATER THAN RECEIVING REQ. LEN. * * INPUT PARAMETERS: * A2 RECEIVING DWT * A5 STACK POINTER * A6 SENDING DWT * * REGISTER USAGE: * A1 ECB ADDRESS RECEIVING TASK * A2 DWT RECEIVING TASK * A3 WORK. REG. * A4 BUFFER POINTER * A5 STACK POINTER * A6 DWT SENDING TASK * A7 RECEIVING BUFFER POINTER * A8 ECB ADDRESS SENDING TASK * A9 RETURN CODE * MOVBUF EQU * LD A8,DWTECB,A6 SENDING ECB ENB LDKL A9,0 LD A1,DWTECB,A2 RECEIVING ECB LD A3,ECBRL,A8 REQ. LEN SEND. RB(N) DIS:OE CW A3,ECBRL,A1 RF(NG) MOV:05 LDKL A9,/8 RETURN CODE LD A3,ECBRL,A1 RB(N) DIS:OE MOV:05 EQU * ST A3,ECBEL,A8 EFF. LEN ST A3,ECBEL,A1 EFF. LEN MOV:10 EQU * LD A4,ECBBA,A8 SENDING BUFFER ADDRESS LD A7,ECBBA,A1 REC.BUFFER ADDR. ADR A3,A4 END OF BUFFER MOV:15 EQU * CWR A4,A3 RF(E) MOV:20 ALL CHAR. MOVED LCR A1,A4 SCR A1,A7 ADK A4,1 ADK A7,1 RB MOV:15 MOV:20 LDR A1,A9 RETURN CODE INH RTN A5 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRIC01 REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0062 Head {h00=0x0020, h01=0x0050, text=» ABORT INTERTASK WRITE BUG«, t00=0x0000, t01=0x0042}
0x0062…007e Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-04-21 «, t00=0x0000, t01=0x0066}
0x007e…0086 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0082}
0x0086…0090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008a}
0x0090…00c4 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0000, t01=0x0094}
0x00c4…00ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00f6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00d2}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…0134 Head {h00=0x0030, h01=0x0050, text=»* DRIC01 = INTERTASK COMMUNICATION HANDLER«, t00=0x0000, t01=0x0104}
0x0134…013e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0138}
0x013e…0148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014c}
0x0152…015c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0156}
0x015c…0166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0160}
0x0166…0170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016a}
0x0170…01a6 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x0174}
0x01a6…01b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001a}
0x01b0…01ec Head {h00=0x0038, h01=0x0050, text=»* THIS MODULE HANDLES THE INTERTASK COMMUNICATION «, t00=0x0001, t01=0x0024}
0x01ec…01f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0060}
0x01f6…020e Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0001, t01=0x006a}
0x020e…0218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0082}
0x0218…022c Head {h00=0x0010, h01=0x0050, text=»* ORDERS: «, t00=0x0001, t01=0x008c}
0x022c…0236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a0}
0x0236…024c Head {h00=0x0012, h01=0x0050, text=»* /02 READ «, t00=0x0001, t01=0x00aa}
0x024c…0262 Head {h00=0x0012, h01=0x0050, text=»* /0B WRITE«, t00=0x0001, t01=0x00c0}
0x0262…027e Head {h00=0x0018, h01=0x0050, text=»* /39 SET TIMEOUT«, t00=0x0001, t01=0x00d6}
0x027e…0288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f2}
0x0288…02a0 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0001, t01=0x00fc}
0x02a0…02aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x02aa…02c6 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0001, t01=0x011e}
0x02c6…02d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02d0…02ec Head {h00=0x0018, h01=0x0050, text=»* A5 STACK BASE «, t00=0x0001, t01=0x0144}
0x02ec…0308 Head {h00=0x0018, h01=0x0050, text=»* A6 DWT-ADDRESS«, t00=0x0001, t01=0x0160}
0x0308…031e Head {h00=0x0012, h01=0x0050, text=»* A7 ORDER«, t00=0x0001, t01=0x017c}
0x031e…033a (2, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* A8 ECB-ADDRESS«, t00=0x0002, t01=0x0004}
0x033a…0348 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0020}
0x0348…0352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002e}
0x0352…036c Head {h00=0x0016, h01=0x0050, text=»* E N T R I E S «, t00=0x0002, t01=0x0038}
0x036c…0376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0052}
0x0376…03a2 Head {h00=0x0028, h01=0x0050, text=» ENTRY ITADI ACTIVATION ADDRESS READ«, t00=0x0002, t01=0x005c}
0x03a2…03d0 Head {h00=0x002a, h01=0x0050, text=» ENTRY ITADO ACTIVATION ADDRESS WRITE «, t00=0x0002, t01=0x0088}
0x03d0…03fe Head {h00=0x002a, h01=0x0050, text=» ENTRY ITABRT ABORT INTERTASK REQUEST «, t00=0x0002, t01=0x00b6}
0x03fe…0408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e4}
0x0408…0426 Head {h00=0x001a, h01=0x0050, text=»* E X T E R N A L S «, t00=0x0002, t01=0x00ee}
0x0426…0430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010c}
0x0430…0450 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x0116}
0x0450…046c Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0002, t01=0x0136}
0x046c…0490 Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0002, t01=0x0152}
0x0490…04b2 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0002, t01=0x0176}
0x04b2…04d2 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0003, t01=0x0008}
0x04d2…04ee Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0003, t01=0x0028}
0x04ee…051e Head {h00=0x002c, h01=0x0050, text=» EXTRN FNDTID FIND TTAB ADDRESS FROM TID«, t00=0x0003, t01=0x0044}
0x051e…0534 Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:TD «, t00=0x0003, t01=0x0074}
0x0534…0556 Head {h00=0x001e, h01=0x0050, text=» EXTRN TTB:ST TTAB STATUS «, t00=0x0003, t01=0x008a}
0x0556…057c Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTTAB DWT TTAB ADDRESS«, t00=0x0003, t01=0x00ac}
0x057c…05a4 Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTADR ACTIVATION ADDRESS«, t00=0x0003, t01=0x00d2}
0x05a4…05d2 Head {h00=0x002a, h01=0x0050, text=» EXTRN IHRTN RTN A15 WITHOUT ENABLING «, t00=0x0003, t01=0x00fa}
0x05d2…05fa Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0003, t01=0x0128}
0x05fa…0624 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0003, t01=0x0150}
0x0624…0648 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBEL ECB EFF. LENGTH«, t00=0x0003, t01=0x017a}
0x0648…066c Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0004, t01=0x000e}
0x066c…0692 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0004, t01=0x0032}
0x0692…069c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0058}
0x069c…06ba Head {h00=0x001a, h01=0x0050, text=»* C O N S T A N T S «, t00=0x0004, t01=0x0062}
0x06ba…06c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0080}
0x06c4…06e8 Head {h00=0x0020, h01=0x0050, text=»DWTTP EQU /10 TIMER POINTER «, t00=0x0004, t01=0x008a}
0x06e8…070e Head {h00=0x0022, h01=0x0050, text=»DWSTB EQU /18 STACK BASE USED «, t00=0x0004, t01=0x00ae}
0x070e…073c Head {h00=0x002a, h01=0x0050, text=»DWSTB2 EQU /1E STACK BASE 2 (NOT USED)«, t00=0x0004, t01=0x00d4}
0x073c…0756 Head {h00=0x0016, h01=0x0050, text=»DWTIM EQU /12 TIME«, t00=0x0004, t01=0x0102}
0x0756…077a Head {h00=0x0020, h01=0x0050, text=»DWQACH EQU /14 QUEUE ANCHOR «, t00=0x0004, t01=0x011c}
0x077a…0788 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0140}
0x0788…0792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014e}
0x0792…07b2 Head {h00=0x001c, h01=0x0050, text=»* A C T I V A T I O N «, t00=0x0004, t01=0x0158}
0x07b2…07bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0178}
0x07bc…07d4 Head {h00=0x0014, h01=0x0050, text=»ITADI DATA ICAD «, t00=0x0004, t01=0x0182}
0x07d4…07ec Head {h00=0x0014, h01=0x0050, text=»ITADO DATA ICAD «, t00=0x0005, t01=0x000a}
0x07ec…07f4 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0022}
0x07f4…0806 Head {h00=0x000e, h01=0x0050, text=»ICAD EQU *«, t00=0x0005, t01=0x002a}
0x0806…0818 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0005, t01=0x003c}
0x0818…0836 Head {h00=0x001a, h01=0x0050, text=» RF(Z) READ READ ORDER«, t00=0x0005, t01=0x004e}
0x0836…0848 Head {h00=0x000e, h01=0x0050, text=» SUK A7,9 «, t00=0x0005, t01=0x006c}
0x0848…0868 Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRITE WRITE ORDER«, t00=0x0005, t01=0x007e}
0x0868…087c Head {h00=0x0010, h01=0x0050, text=» SUK A7,/2E «, t00=0x0005, t01=0x009e}
0x087c…08a0 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DIS:OE REQUEST ERROR«, t00=0x0005, t01=0x00b2}
0x08a0…08aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d6}
0x08aa…08cc Head {h00=0x001e, h01=0x0050, text=»* S E T T I M E O U T «, t00=0x0005, t01=0x00e0}
0x08cc…08d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0102}
0x08d6…08f0 Head {h00=0x0016, h01=0x0050, text=» LD A1,10,A8 TIME «, t00=0x0005, t01=0x010c}
0x08f0…0908 Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTIM,A6 «, t00=0x0005, t01=0x0126}
0x0908…0926 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0005, t01=0x013e}
0x0926…0938 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0005, t01=0x015c}
0x0938…0946 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x016e}
0x0946…0950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017c}
0x0950…0966 Head {h00=0x0012, h01=0x0050, text=»* W R I T E «, t00=0x0005, t01=0x0186}
0x0966…0970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000c}
0x0970…0984 Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0006, t01=0x0016}
0x0984…098e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002a}
0x098e…09ba Head {h00=0x0028, h01=0x0050, text=»* FIND INPUT DWT OF ADDRESSED TASK«, t00=0x0006, t01=0x0034}
0x09ba…09c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0060}
0x09c4…09e0 Head {h00=0x0018, h01=0x0050, text=» LD A7,ECBCW,A8 TID «, t00=0x0006, t01=0x006a}
0x09e0…0a0a Head {h00=0x0026, h01=0x0050, text=» CF A15,FNDTID TTAB ADDRESS TO A2 «, t00=0x0006, t01=0x0086}
0x0a0a…0a1c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0006, t01=0x00b0}
0x0a1c…0a3c Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIS:OE NOT FOUND «, t00=0x0006, t01=0x00c2}
0x0a3c…0a54 Head {h00=0x0014, h01=0x0050, text=» CW A2,DWTTAB,A6«, t00=0x0006, t01=0x00e2}
0x0a54…0a76 Head {h00=0x001e, h01=0x0050, text=» RF(E) DIS:OE ILLEGAL TID «, t00=0x0006, t01=0x00fa}
0x0a76…0aae Head {h00=0x0034, h01=0x0050, text=» ADKL A2,TTB:TD ADDRESS TO TERMINAL DEVICE TABLE«, t00=0x0006, t01=0x011c}
0x0aae…0ace Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A2 TABLE LENGTH«, t00=0x0006, t01=0x0154}
0x0ace…0af8 Head {h00=0x0026, h01=0x0050, text=» LDKL A3,ITADI READ ACTIV. ADDRESS«, t00=0x0006, t01=0x0174}
0x0af8…0b28 Head {h00=0x002c, h01=0x0050, text=»WRI:20 ADK A2,4 ADDRESS TO NEXT DWT ADDR«, t00=0x0007, t01=0x000e}
0x0b28…0b3a Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0007, t01=0x003e}
0x0b3a…0b5a Head {h00=0x001c, h01=0x0050, text=» RF(N) DIS:OE NOT FOUND «, t00=0x0007, t01=0x0050}
0x0b5a…0b7a Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A2 DWT ADDRESS «, t00=0x0007, t01=0x0070}
0x0b7a…0b9e Head {h00=0x0020, h01=0x0050, text=» CW A3,DWTADR,A4 INPUT DWT? «, t00=0x0007, t01=0x0090}
0x0b9e…0bc2 Head {h00=0x0020, h01=0x0050, text=» RB(NE) WRI:20 NO, TRY NEXT «, t00=0x0007, t01=0x00b4}
0x0bc2…0bd4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0007, t01=0x00d8}
0x0bd4…0bfe Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTST,A2 ANY READ REQUEST? «, t00=0x0007, t01=0x00ea}
0x0bfe…0c18 Head {h00=0x0016, h01=0x0050, text=» RF(N) WRI:50 NO! «, t00=0x0007, t01=0x0114}
0x0c18…0c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012e}
0x0c22…0c46 Head {h00=0x0020, h01=0x0050, text=»* ABORT INPUT TIMER IF ANY«, t00=0x0007, t01=0x0138}
0x0c46…0c68 Head {h00=0x001e, h01=0x0050, text=» CF A15,ABTIM ABORT TIMER «, t00=0x0007, t01=0x015c}
0x0c68…0c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017e}
0x0c72…0c8a Head {h00=0x0014, h01=0x0050, text=»* MOVE BUFFER «, t00=0x0007, t01=0x0188}
0x0c8a…0ca6 Head {h00=0x0018, h01=0x0050, text=» SUK A5,DWSTB2-DWSTB«, t00=0x0008, t01=0x0010}
0x0ca6…0cbc Head {h00=0x0012, h01=0x0050, text=» CF A5,MOVBUF «, t00=0x0008, t01=0x002c}
0x0cbc…0ce2 Head {h00=0x0022, h01=0x0050, text=»WRI:45 CF A15,TENDIO END WRITE«, t00=0x0008, t01=0x0042}
0x0ce2…0cf4 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x0008, t01=0x0068}
0x0cf4…0d1a Head {h00=0x0022, h01=0x0050, text=»END:IO CF A15,TENDIO END READ «, t00=0x0008, t01=0x007a}
0x0d1a…0d32 Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0008, t01=0x00a0}
0x0d32…0d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b8}
0x0d3c…0d6c Head {h00=0x002c, h01=0x0050, text=»* NO READ REQUEST, QUEUE WRITE REQUEST«, t00=0x0008, t01=0x00c2}
0x0d6c…0d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f2}
0x0d76…0d9c Head {h00=0x0022, h01=0x0050, text=»WRI:50 LDK A1,/40 RETURN CODE «, t00=0x0008, t01=0x00fc}
0x0d9c…0db8 Head {h00=0x0018, h01=0x0050, text=» LD A3,DWTIM,A6 TIME«, t00=0x0008, t01=0x0122}
0x0db8…0dce Head {h00=0x0012, h01=0x0050, text=» RB(Z) END:IO «, t00=0x0008, t01=0x013e}
0x0dce…0de4 Head {h00=0x0012, h01=0x0050, text=» CWK A3,/FFFF «, t00=0x0008, t01=0x0154}
0x0de4…0e0a Head {h00=0x0022, h01=0x0050, text=» RF(E) WRI:70 NO TIMING WANTED«, t00=0x0008, t01=0x016a}
0x0e0a…0e1c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0008, t01=0x0190}
0x0e1c…0e3c Head {h00=0x001c, h01=0x0050, text=» RF(N) DIS:OE NEG. TIME «, t00=0x0009, t01=0x0012}
0x0e3c…0e60 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 DWTOUT=PARAMETER «, t00=0x0009, t01=0x0032}
0x0e60…0e76 Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTTP «, t00=0x0009, t01=0x0056}
0x0e76…0e96 Head {h00=0x001c, h01=0x0050, text=» ADR A4,A6 TIMER POINTER«, t00=0x0009, t01=0x006c}
0x0e96…0eaa Head {h00=0x0010, h01=0x0050, text=» ST A3,TIME «, t00=0x0009, t01=0x008c}
0x0eaa…0eca Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIMP SET TIMER«, t00=0x0009, t01=0x00a0}
0x0eca…0eee Head {h00=0x0020, h01=0x0050, text=» DATA TIMOWR TIMEOUT ADDRESS«, t00=0x0009, t01=0x00c0}
0x0eee…0f02 Head {h00=0x0010, h01=0x0050, text=»TIME DATA 0 «, t00=0x0009, t01=0x00e4}
0x0f02…0f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f8}
0x0f0c…0f3e Head {h00=0x002e, h01=0x0050, text=»* INSERT IN INPUT QUEUE WITHIN PRIORITY «, t00=0x0009, t01=0x0102}
0x0f3e…0f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0134}
0x0f48…0f5c Head {h00=0x0010, h01=0x0050, text=»WRI:70 EQU *«, t00=0x0009, t01=0x013e}
0x0f5c…0f8e Head {h00=0x002e, h01=0x0050, text=» ST A2,DWQACH,A6 STORE QUEUE ANCHOR IN DWT«, t00=0x0009, t01=0x0152}
0x0f8e…0fb4 Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTTAB,A6 TTAB ADDRESS «, t00=0x0009, t01=0x0184}
0x0fb4…0fd4 Head {h00=0x001c, h01=0x0050, text=» LC A1,TTB:ST+1,A5 LEVEL«, t00=0x000a, t01=0x001a}
0x0fd4…0ff2 Head {h00=0x001a, h01=0x0050, text=»WRI:80 LDR A4,A2 SAVE «, t00=0x000a, t01=0x003a}
0x0ff2…1014 Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A2 NEXT IN QUEUE «, t00=0x000a, t01=0x0058}
0x1014…1034 Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRI:90 END FOUND «, t00=0x000a, t01=0x007a}
0x1034…105a Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTTAB,A2 TTAB ADDRESS «, t00=0x000a, t01=0x009a}
0x105a…1084 Head {h00=0x0026, h01=0x0050, text=» CC A1,TTB:ST+1,A5 COMPARE LEVELS «, t00=0x000a, t01=0x00c0}
0x1084…109a Head {h00=0x0012, h01=0x0050, text=» RB(NL) WRI:80«, t00=0x000a, t01=0x00ea}
0x109a…10c2 Head {h00=0x0024, h01=0x0050, text=»WRI:90 STR A2,A6 INSERT IN QUEUE«, t00=0x000a, t01=0x0100}
0x10c2…10d4 Head {h00=0x000e, h01=0x0050, text=» STR A6,A4«, t00=0x000a, t01=0x0128}
0x10d4…10e6 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x000a, t01=0x013a}
0x10e6…10f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014c}
0x10f0…10fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0156}
0x10fa…1122 Head {h00=0x0024, h01=0x0050, text=»DIS:OE ABL DISIOE REQUEST ERROR «, t00=0x000a, t01=0x0160}
0x1122…1130 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0188}
0x1130…113a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0008}
0x113a…114e Head {h00=0x0010, h01=0x0050, text=»* R E A D «, t00=0x000b, t01=0x0012}
0x114e…1158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0026}
0x1158…116a Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x000b, t01=0x0030}
0x116a…1190 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 ANYTHING IN QUEUE «, t00=0x000b, t01=0x0042}
0x1190…11aa Head {h00=0x0016, h01=0x0050, text=» RF(Z) REA:40 NO! «, t00=0x000b, t01=0x0068}
0x11aa…11d0 Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A2 REMOVE FROM QUEUE «, t00=0x000b, t01=0x0082}
0x11d0…11e2 Head {h00=0x000e, h01=0x0050, text=» STR A3,A6«, t00=0x000b, t01=0x00a8}
0x11e2…120a Head {h00=0x0024, h01=0x0050, text=» CF A15,ABTIM ABORT TIMER IF ANY«, t00=0x000b, t01=0x00ba}
0x120a…1214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e2}
0x1214…122a Head {h00=0x0012, h01=0x0050, text=»* MOVE BUFFER«, t00=0x000b, t01=0x00ec}
0x122a…1234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0102}
0x1234…125a Head {h00=0x0022, h01=0x0050, text=» LDR A4,A6 EXCHANGE A2 AND A6 «, t00=0x000b, t01=0x010c}
0x125a…126c Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x000b, t01=0x0132}
0x126c…127e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x000b, t01=0x0144}
0x127e…129a Head {h00=0x0018, h01=0x0050, text=» SUK A5,DWSTB2-DWSTB«, t00=0x000b, t01=0x0156}
0x129a…12b0 Head {h00=0x0012, h01=0x0050, text=» CF A5,MOVBUF «, t00=0x000b, t01=0x0172}
0x12b0…12c2 Head {h00=0x000e, h01=0x0050, text=» RB WRI:45«, t00=0x000b, t01=0x0188}
0x12c2…12ca Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x000a}
0x12ca…12f0 Head {h00=0x0022, h01=0x0050, text=»REA:40 LDK A1,/40 RETURN CODE «, t00=0x000c, t01=0x0012}
0x12f0…130c Head {h00=0x0018, h01=0x0050, text=» LD A3,DWTIM,A6 TIME«, t00=0x000c, t01=0x0038}
0x130c…1322 Head {h00=0x0012, h01=0x0050, text=» RB(Z) END:IO «, t00=0x000c, t01=0x0054}
0x1322…1338 Head {h00=0x0012, h01=0x0050, text=» CWK A3,/FFFF «, t00=0x000c, t01=0x006a}
0x1338…135e Head {h00=0x0022, h01=0x0050, text=» RF(E) REA:70 NO TIMER WANTED «, t00=0x000c, t01=0x0080}
0x135e…1370 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x000c, t01=0x00a6}
0x1370…1390 Head {h00=0x001c, h01=0x0050, text=» RB(N) DIS:OE NEG. TIME «, t00=0x000c, t01=0x00b8}
0x1390…13a6 Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTTP «, t00=0x000c, t01=0x00d8}
0x13a6…13b8 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x000c, t01=0x00ee}
0x13b8…13cc Head {h00=0x0010, h01=0x0050, text=» ST A3,TIMER«, t00=0x000c, t01=0x0100}
0x13cc…13f4 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A6 PARAMETER=DWT ADDRESS«, t00=0x000c, t01=0x0114}
0x13f4…1414 Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIMP SET TIMER«, t00=0x000c, t01=0x013c}
0x1414…1438 Head {h00=0x0020, h01=0x0050, text=» DATA TIMORE TIMEOUT ADDRESS«, t00=0x000c, t01=0x015c}
0x1438…144c Head {h00=0x0010, h01=0x0050, text=»TIMER DATA 0«, t00=0x000c, t01=0x0180}
0x144c…1460 (13, 0, 400) Head {h00=0x0010, h01=0x0050, text=»REA:70 EQU *«, t00=0x000d, t01=0x0004}
0x1460…1472 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x000d, t01=0x0018}
0x1472…1480 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x002a}
0x1480…148a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0038}
0x148a…14ac Head {h00=0x001e, h01=0x0050, text=»* WRITE REQUEST TIMEOUT «, t00=0x000d, t01=0x0042}
0x14ac…14b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0064}
0x14b6…14de Head {h00=0x0024, h01=0x0050, text=»TIMOWR LDR A6,A1 DWT OUT ADDRESS«, t00=0x000d, t01=0x006e}
0x14de…1514 Head {h00=0x0032, h01=0x0050, text=» LD A1,DWQACH,A6 QUEUE ANCHOR (READ DWT ADDR) «, t00=0x000d, t01=0x0096}
0x1514…151e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00cc}
0x151e…153c Head {h00=0x001a, h01=0x0050, text=»* REMOVE FROM QUEUE «, t00=0x000d, t01=0x00d6}
0x153c…1546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f4}
0x1546…1564 Head {h00=0x001a, h01=0x0050, text=»TWR:10 LDR A4,A1 SAVE «, t00=0x000d, t01=0x00fe}
0x1564…1586 Head {h00=0x001e, h01=0x0050, text=» LDR* A1,A1 NEXT IN QUEUE «, t00=0x000d, t01=0x011c}
0x1586…15a2 Head {h00=0x0018, h01=0x0050, text=» CWR A1,A6 THIS DWT?«, t00=0x000d, t01=0x013e}
0x15a2…15bc Head {h00=0x0016, h01=0x0050, text=» RB(NE) TWR:10 NO!«, t00=0x000d, t01=0x015a}
0x15bc…15d0 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x000d, t01=0x0174}
0x15d0…15f4 Head {h00=0x0020, h01=0x0050, text=» STR A3,A4 REMOVE FROM QUEUE«, t00=0x000d, t01=0x0188}
0x15f4…1620 Head {h00=0x0028, h01=0x0050, text=»TWR:20 CM* 0,A2 RESET TIMER POINTER «, t00=0x000e, t01=0x001c}
0x1620…1640 Head {h00=0x001c, h01=0x0050, text=» LDK A1,/40 RETURN CODE «, t00=0x000e, t01=0x0048}
0x1640…1652 Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x000e, t01=0x0068}
0x1652…165c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007a}
0x165c…167c Head {h00=0x001c, h01=0x0050, text=»* READ REQUEST TIMEOUT«, t00=0x000e, t01=0x0084}
0x167c…1686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a4}
0x1686…169a Head {h00=0x0010, h01=0x0050, text=»TIMORE EQU *«, t00=0x000e, t01=0x00ae}
0x169a…16b8 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A1 DWT ADDRESS«, t00=0x000e, t01=0x00c2}
0x16b8…16ca Head {h00=0x000e, h01=0x0050, text=» RB TWR:20«, t00=0x000e, t01=0x00e0}
0x16ca…16d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00f2}
0x16d8…16e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0100}
0x16e2…1712 Head {h00=0x002c, h01=0x0050, text=»* I T A B R T = ABORT INTERTASK REQUEST«, t00=0x000e, t01=0x010a}
0x1712…171c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013a}
0x171c…174e Head {h00=0x002e, h01=0x0050, text=»* THIS SUBROUTINE IS CALLED FROM TABORT. «, t00=0x000e, t01=0x0144}
0x174e…1788 Head {h00=0x0036, h01=0x0050, text=»* THE ROUTINE FINDS IF REQUEST TO BE ABORTED IS A«, t00=0x000e, t01=0x0176}
0x1788…17be Head {h00=0x0032, h01=0x0050, text=»* INTERTASK REQUEST, AND IF SO IT WILL UPDATE«, t00=0x000f, t01=0x0020}
0x17be…17e8 Head {h00=0x0026, h01=0x0050, text=»* QUEUE AND ABORT TIMER (IF ANY) «, t00=0x000f, t01=0x0056}
0x17e8…17f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0080}
0x17f2…181e Head {h00=0x0028, h01=0x0050, text=»* ENTRY PARAMETER: A6 DWT ADDRESS«, t00=0x000f, t01=0x008a}
0x181e…184e Head {h00=0x002c, h01=0x0050, text=»* REG. A1,A2,A3,A4 ARE CHANGED «, t00=0x000f, t01=0x00b6}
0x184e…1858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e6}
0x1858…186c Head {h00=0x0010, h01=0x0050, text=»ITABRT EQU *«, t00=0x000f, t01=0x00f0}
0x186c…189a Head {h00=0x002a, h01=0x0050, text=» LDKL A3,ITADI ACTIVATION ADDRESS READ«, t00=0x000f, t01=0x0104}
0x189a…18c2 Head {h00=0x0024, h01=0x0050, text=» CW A3,DWTADR,A6 INTERTASK REQ.?«, t00=0x000f, t01=0x0132}
0x18c2…18dc Head {h00=0x0016, h01=0x0050, text=» RF(NE) ITAB20 NO!«, t00=0x000f, t01=0x015a}
0x18dc…18fa Head {h00=0x001a, h01=0x0050, text=» LDR A2,A6 DWT ADDRESS«, t00=0x000f, t01=0x0174}
0x18fa…191c (16, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CF A15,ABTIM ABORT TIMER «, t00=0x0010, t01=0x0004}
0x191c…192e Head {h00=0x000e, h01=0x0050, text=» RF IH:RTN«, t00=0x0010, t01=0x0026}
0x192e…1964 Head {h00=0x0032, h01=0x0050, text=»ITAB20 LDKL A3,ITADO ACTIVATION ADDRESS WRITE «, t00=0x0010, t01=0x0038}
0x1964…197c Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTADR,A6«, t00=0x0010, t01=0x006e}
0x197c…19a0 Head {h00=0x0020, h01=0x0050, text=» RF(NE) IH:RTN NOT INTERTASK«, t00=0x0010, t01=0x0086}
0x19a0…19aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00aa}
0x19aa…19c8 Head {h00=0x001a, h01=0x0050, text=»* ABORT WRITE REQUEST«, t00=0x0010, t01=0x00b4}
0x19c8…19d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d2}
0x19d2…19e4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A6«, t00=0x0010, t01=0x00dc}
0x19e4…1a06 Head {h00=0x001e, h01=0x0050, text=» CF A15,ABTIM ABORT TIMER «, t00=0x0010, t01=0x00ee}
0x1a06…1a30 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWQACH,A6 GET QUEUE ACHHOR «, t00=0x0010, t01=0x0110}
0x1a30…1a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013a}
0x1a3a…1a56 Head {h00=0x0018, h01=0x0050, text=»* REMOVE FROM QUEUE«, t00=0x0010, t01=0x0144}
0x1a56…1a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0160}
0x1a60…1a7e Head {h00=0x001a, h01=0x0050, text=»IWR:10 LDR A4,A1 SAVE «, t00=0x0010, t01=0x016a}
0x1a7e…1aa0 Head {h00=0x001e, h01=0x0050, text=» LDR* A1,A1 NEXT IN QUEUE «, t00=0x0010, t01=0x0188}
0x1aa0…1abc Head {h00=0x0018, h01=0x0050, text=» CWR A1,A6 THIS DWT?«, t00=0x0011, t01=0x001a}
0x1abc…1ad6 Head {h00=0x0016, h01=0x0050, text=» RB(NE) IWR:10 NO!«, t00=0x0011, t01=0x0036}
0x1ad6…1af0 Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 REMOVE«, t00=0x0011, t01=0x0050}
0x1af0…1b0e Head {h00=0x001a, h01=0x0050, text=» STR A3,A4 FROM QUEUE «, t00=0x0011, t01=0x006a}
0x1b0e…1b20 Head {h00=0x000e, h01=0x0050, text=» RF IH:RTN«, t00=0x0011, t01=0x0088}
0x1b20…1b2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x009a}
0x1b2e…1b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a8}
0x1b38…1b74 Head {h00=0x0038, h01=0x0050, text=»* A B T I M = SUBROUTINE FOR ABORTING TIMER IF ANY «, t00=0x0011, t01=0x00b2}
0x1b74…1b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ee}
0x1b7e…1baa Head {h00=0x0028, h01=0x0050, text=»* ENTRY PARAMETER: A2 DWT ADDRESS«, t00=0x0011, t01=0x00f8}
0x1baa…1bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0124}
0x1bb4…1bd6 Head {h00=0x001e, h01=0x0050, text=»* REG. A1,A3 ARE CHANGED«, t00=0x0011, t01=0x012e}
0x1bd6…1be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0150}
0x1be0…1bfa Head {h00=0x0016, h01=0x0050, text=»ABTIM LDK A1,DWTTP«, t00=0x0011, t01=0x015a}
0x1bfa…1c22 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 TIMER POINTER ADDRESS«, t00=0x0011, t01=0x0174}
0x1c22…1c36 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x0012, t01=0x000c}
0x1c36…1c5c Head {h00=0x0022, h01=0x0050, text=» RF(Z) ABT:10 NO TIMER ACTIVE «, t00=0x0012, t01=0x0020}
0x1c5c…1c6e Head {h00=0x000e, h01=0x0050, text=» CM* 0,A1 «, t00=0x0012, t01=0x0046}
0x1c6e…1c94 Head {h00=0x0022, h01=0x0050, text=» CMR A1 INDICATE NO TIMER SET «, t00=0x0012, t01=0x0058}
0x1c94…1ca8 Head {h00=0x0010, h01=0x0050, text=»ABT:10 EQU *«, t00=0x0012, t01=0x007e}
0x1ca8…1cc0 Head {h00=0x0014, h01=0x0050, text=»IH:RTN ABL IHRTN«, t00=0x0012, t01=0x0092}
0x1cc0…1cce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00aa}
0x1cce…1cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b8}
0x1cd8…1cf0 Head {h00=0x0014, h01=0x0050, text=»* M O V B U F «, t00=0x0012, t01=0x00c2}
0x1cf0…1cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00da}
0x1cfa…1d32 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO MOVE BUFFER FROM SENDING TASK «, t00=0x0012, t01=0x00e4}
0x1d32…1d50 Head {h00=0x001a, h01=0x0050, text=»* TO ADDRESSED TASK «, t00=0x0012, t01=0x011c}
0x1d50…1d92 Head {h00=0x003e, h01=0x0050, text=»* EFFECTIVE LENGTH IN BOTH INPUT AND OUTPUT ECB ARE SET «, t00=0x0012, t01=0x013a}
0x1d92…1dd0 Head {h00=0x003a, h01=0x0050, text=»* A1 WILL CONTAIN RETURN CODE /8 IF SENDING REQ. LEN«, t00=0x0012, t01=0x017c}
0x1dd0…1e02 Head {h00=0x002e, h01=0x0050, text=»* WAS GREATER THAN RECEIVING REQ. LEN. «, t00=0x0013, t01=0x002a}
0x1e02…1e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005c}
0x1e0c…1e2a Head {h00=0x001a, h01=0x0050, text=»* INPUT PARAMETERS: «, t00=0x0013, t01=0x0066}
0x1e2a…1e48 Head {h00=0x001a, h01=0x0050, text=»* A2 RECEIVING DWT «, t00=0x0013, t01=0x0084}
0x1e48…1e66 Head {h00=0x001a, h01=0x0050, text=»* A5 STACK POINTER «, t00=0x0013, t01=0x00a2}
0x1e66…1e82 Head {h00=0x0018, h01=0x0050, text=»* A6 SENDING DWT «, t00=0x0013, t01=0x00c0}
0x1e82…1e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00dc}
0x1e8c…1ea8 Head {h00=0x0018, h01=0x0050, text=»* REGISTER USAGE: «, t00=0x0013, t01=0x00e6}
0x1ea8…1ed2 Head {h00=0x0026, h01=0x0050, text=»* A1 ECB ADDRESS RECEIVING TASK«, t00=0x0013, t01=0x0102}
0x1ed2…1ef4 Head {h00=0x001e, h01=0x0050, text=»* A2 DWT RECEIVING TASK«, t00=0x0013, t01=0x012c}
0x1ef4…1f0e Head {h00=0x0016, h01=0x0050, text=»* A3 WORK. REG.«, t00=0x0013, t01=0x014e}
0x1f0e…1f2c Head {h00=0x001a, h01=0x0050, text=»* A4 BUFFER POINTER«, t00=0x0013, t01=0x0168}
0x1f2c…1f4a Head {h00=0x001a, h01=0x0050, text=»* A5 STACK POINTER «, t00=0x0013, t01=0x0186}
0x1f4a…1f6a Head {h00=0x001c, h01=0x0050, text=»* A6 DWT SENDING TASK«, t00=0x0014, t01=0x0014}
0x1f6a…1f92 Head {h00=0x0024, h01=0x0050, text=»* A7 RECEIVING BUFFER POINTER«, t00=0x0014, t01=0x0034}
0x1f92…1fba Head {h00=0x0024, h01=0x0050, text=»* A8 ECB ADDRESS SENDING TASK«, t00=0x0014, t01=0x005c}
0x1fba…1fd6 Head {h00=0x0018, h01=0x0050, text=»* A9 RETURN CODE «, t00=0x0014, t01=0x0084}
0x1fd6…1fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a0}
0x1fe0…1ff4 Head {h00=0x0010, h01=0x0050, text=»MOVBUF EQU *«, t00=0x0014, t01=0x00aa}
0x1ff4…2018 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 SENDING ECB«, t00=0x0014, t01=0x00be}
0x2018…2024 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0014, t01=0x00e2}
0x2024…2036 Head {h00=0x000e, h01=0x0050, text=» LDKL A9,0«, t00=0x0014, t01=0x00ee}
0x2036…205c Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTECB,A2 RECEIVING ECB«, t00=0x0014, t01=0x0100}
0x205c…2082 Head {h00=0x0022, h01=0x0050, text=» LD A3,ECBRL,A8 REQ. LEN SEND.«, t00=0x0014, t01=0x0126}
0x2082…2098 Head {h00=0x0012, h01=0x0050, text=» RB(N) DIS:OE «, t00=0x0014, t01=0x014c}
0x2098…20b0 Head {h00=0x0014, h01=0x0050, text=» CW A3,ECBRL,A1 «, t00=0x0014, t01=0x0162}
0x20b0…20c6 Head {h00=0x0012, h01=0x0050, text=» RF(NG) MOV:05«, t00=0x0014, t01=0x017a}
0x20c6…20e6 Head {h00=0x001c, h01=0x0050, text=» LDKL A9,/8 RETURN CODE «, t00=0x0014, t01=0x0190}
0x20e6…20fe Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBRL,A1 «, t00=0x0015, t01=0x0020}
0x20fe…2114 Head {h00=0x0012, h01=0x0050, text=» RB(N) DIS:OE «, t00=0x0015, t01=0x0038}
0x2114…2128 Head {h00=0x0010, h01=0x0050, text=»MOV:05 EQU *«, t00=0x0015, t01=0x004e}
0x2128…2130 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0062}
0x2130…2150 Head {h00=0x001c, h01=0x0050, text=» ST A3,ECBEL,A8 EFF. LEN«, t00=0x0015, t01=0x006a}
0x2150…2170 Head {h00=0x001c, h01=0x0050, text=» ST A3,ECBEL,A1 EFF. LEN«, t00=0x0015, t01=0x008a}
0x2170…2184 Head {h00=0x0010, h01=0x0050, text=»MOV:10 EQU *«, t00=0x0015, t01=0x00aa}
0x2184…21b2 Head {h00=0x002a, h01=0x0050, text=» LD A4,ECBBA,A8 SENDING BUFFER ADDRESS«, t00=0x0015, t01=0x00be}
0x21b2…21da Head {h00=0x0024, h01=0x0050, text=» LD A7,ECBBA,A1 REC.BUFFER ADDR.«, t00=0x0015, t01=0x00ec}
0x21da…21fa Head {h00=0x001c, h01=0x0050, text=» ADR A3,A4 END OF BUFFER«, t00=0x0015, t01=0x0114}
0x21fa…220e Head {h00=0x0010, h01=0x0050, text=»MOV:15 EQU *«, t00=0x0015, t01=0x0134}
0x220e…2220 Head {h00=0x000e, h01=0x0050, text=» CWR A4,A3«, t00=0x0015, t01=0x0148}
0x2220…2246 Head {h00=0x0022, h01=0x0050, text=» RF(E) MOV:20 ALL CHAR. MOVED «, t00=0x0015, t01=0x015a}
0x2246…2258 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A4«, t00=0x0015, t01=0x0180}
0x2258…226a (22, 2, 156) Head {h00=0x000e, h01=0x0050, text=» SCR A1,A7«, t00=0x0016, t01=0x0004}
0x226a…227c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0016, t01=0x0016}
0x227c…228e Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0016, t01=0x0028}
0x228e…22a0 Head {h00=0x000e, h01=0x0050, text=» RB MOV:15«, t00=0x0016, t01=0x003a}
0x22a0…22c4 Head {h00=0x0020, h01=0x0050, text=»MOV:20 LDR A1,A9 RETURN CODE«, t00=0x0016, t01=0x004c}
0x22c4…22d0 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0016, t01=0x0070}
0x22d0…22e0 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0016, t01=0x007c}
0x22e0…22ec Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0016, t01=0x008c}
0x22ec…22f0 Head {h00=0x4004, h01=0x0000}
0x22f0…22f4 00 16 00 98 ┆ ┆
0x22f4…22fc (23, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0x22fc…234c (24, 0, 400) 45 44 49 54 41 5c 45 51 55 5c 2a 20 00 07 01 90 00 18 00 50 5c 4c 44 4b 5c 41 33 2c 31 5c 4c 4f 41 44 20 4d 41 53 4b 20 00 08 00 14 00 0e 00 50 5c 54 4d 5c 41 38 2c 41 33 20 00 08 00 30 00 22 00 50 5c 52 46 28 5a 29 5c 45 44 49 54 5c 4a 55 ┆EDITA EQU * P LDK A3,1 LOAD MASK P TM A8,A3 0 " P RF(Z) EDIT JU┆
0x234c…239c 4d 50 20 49 46 20 43 54 4c 2d 42 59 54 45 53 20 00 08 00 42 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 30 20 00 08 00 68 00 1e 00 50 5c 53 43 52 5c 41 33 2c 41 37 5c 43 4c 45 41 52 20 31 3a 53 54 20 42 59 54 45 00 08 00 7a 00 20 00 50 5c 41 44 4b ┆MP IF CTL-BYTES B P LDK A3,0 h P SCR A3,A7 CLEAR 1:ST BYTE z P ADK┆
0x239c…23ec 5c 41 37 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 50 4f 49 4e 54 45 52 20 00 08 00 9c 00 20 00 50 5c 53 43 52 5c 41 33 2c 41 37 5c 43 4c 45 41 52 20 53 45 43 4f 4e 44 20 42 59 54 45 00 08 00 c0 00 20 00 50 5c 41 44 4b 5c 41 37 2c 31 5c 49 4e ┆ A7,1 INCREMENT POINTER P SCR A3,A7 CLEAR SECOND BYTE P ADK A7,1 IN┆
0x23ec…243c 43 52 45 4d 45 4e 54 20 50 4f 49 4e 54 45 52 20 00 08 00 e4 00 12 00 50 45 44 49 54 5c 41 44 4b 5c 41 32 2c 31 20 00 08 01 08 00 1e 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 46 46 46 45 5c 57 4f 52 44 20 4c 49 4d 49 54 20 00 08 01 1e 00 0e 00 50 ┆CREMENT POINTER PEDIT ADK A2,1 P ANKL A2,/FFFE WORD LIMIT P┆
0x243c…248c 5c 4c 44 4b 5c 41 36 2c 30 20 00 08 01 40 00 1e 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 32 5c 47 45 54 20 57 4f 52 44 20 54 4f 20 41 31 00 08 01 52 00 22 00 50 5c 41 44 4b 5c 41 32 2c 32 5c 49 4e 43 52 2e 20 46 4f 52 4d 41 54 20 50 4f 49 4e 54 ┆ LDK A6,0 @ P LDR* A1,A2 GET WORD TO A1 R " P ADK A2,2 INCR. FORMAT POINT┆
0x248c…24dc (25, 0, 400) 45 52 00 08 01 74 00 16 00 50 5c 4c 44 52 5c 41 35 2c 41 31 5c 43 4f 50 59 20 41 31 00 09 00 0a 00 22 00 50 5c 45 43 52 5c 41 34 2c 41 31 5c 43 48 41 4e 47 45 20 42 59 54 45 53 20 54 4f 20 41 34 20 00 09 00 24 00 18 00 50 5c 41 4e 4b 5c 41 ┆ER t P LDR A5,A1 COPY A1 " P ECR A4,A1 CHANGE BYTES TO A4 $ P ANK A┆
0x24dc…252c 31 2c 2f 46 46 5c 41 31 3d 43 48 41 52 20 00 09 00 4a 00 16 00 50 5c 41 4e 4b 5c 41 34 2c 2f 46 46 5c 41 34 3d 5a 2b 44 00 09 00 66 00 16 00 50 5c 4c 44 52 5c 41 33 2c 41 34 5c 41 33 3d 5a 2b 44 20 00 09 00 80 00 12 00 50 5c 53 52 4c 5c 41 ┆1,/FF A1=CHAR J P ANK A4,/FF A4=Z+D f P LDR A3,A4 A3=Z+D P SRL A┆
0x252c…257c 34 2c 34 5c 41 34 3d 5a 00 09 00 9a 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 38 20 00 09 00 b0 00 22 00 50 5c 52 46 28 4e 4e 29 5c 45 44 50 49 43 54 5c 4a 55 4d 50 20 49 46 20 50 49 43 54 55 52 45 00 09 00 c2 00 28 00 50 5c 4c 43 5c 41 36 2c 54 ┆4,4 A4=Z P SUK A4,8 " P RF(NN) EDPICT JUMP IF PICTURE ( P LC A6,T┆
0x257c…25cc 41 42 5a 4f 4e 2b 38 2c 41 34 5c 47 45 54 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 20 00 09 00 e8 00 1c 00 50 42 41 53 49 53 5c 45 51 55 5c 2a 2b 32 5c 54 41 42 4c 45 20 42 41 53 45 00 09 01 14 00 2e 00 50 45 44 4a 4d 50 5c 41 44 52 5c 50 2c ┆ABZON+8,A4 GET DISPLACEMENT PBASIS EQU *+2 TABLE BASE . PEDJMP ADR P,┆
0x25cc…261c 41 36 5c 4a 55 4d 50 20 54 4f 20 52 45 53 50 45 43 54 49 56 45 20 52 4f 55 54 49 4e 45 20 00 09 01 34 00 06 00 50 2a 20 00 09 01 66 00 16 00 50 52 45 54 55 52 4e 5c 45 51 55 5c 2a 2d 42 41 53 49 53 00 09 01 70 00 0c 00 50 5c 52 54 4e 5c 41 ┆A6 JUMP TO RESPECTIVE ROUTINE 4 P* f PRETURN EQU *-BASIS p P RTN A┆
0x261c…266c (26, 0, 400) 31 34 00 09 01 8a 00 0a 00 50 5c 45 4a 45 43 54 00 0a 00 0a 00 0c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 00 0a 00 18 00 0c 00 50 2a 20 54 45 58 54 20 2a 00 0a 00 28 00 0c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 00 0a 00 38 00 16 00 50 45 44 54 58 54 5c 45 51 ┆14 P EJECT P******** P* TEXT * ( P******** 8 PEDTXT EQ┆
0x266c…26bc 55 5c 2a 2d 42 41 53 49 53 20 00 0a 00 48 00 22 00 50 5c 41 4e 4b 5c 41 33 2c 2f 46 5c 4d 41 53 4b 20 4f 55 54 20 44 41 54 41 20 50 41 52 54 20 00 0a 00 62 00 24 00 50 5c 4c 43 5c 41 36 2c 54 41 42 4c 45 2c 41 33 5c 47 45 54 20 44 49 53 50 ┆U *-BASIS H " P ANK A3,/F MASK OUT DATA PART b $ P LC A6,TABLE,A3 GET DISP┆
0x26bc…270c 4c 41 43 45 4d 45 4e 54 00 0a 00 88 00 28 00 50 5c 52 42 5c 45 44 4a 4d 50 5c 4a 55 4d 50 20 54 4f 20 52 45 53 50 45 43 54 49 56 45 20 52 4f 55 54 49 4e 45 00 0a 00 b0 00 22 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆LACEMENT ( P RB EDJMP JUMP TO RESPECTIVE ROUTINE " P********************┆
0x270c…275c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0a 00 dc 00 22 00 50 2a 20 53 55 42 46 4f 52 4d 41 54 20 4f 52 20 53 57 49 54 43 48 20 46 4f 52 4d 41 54 20 2a 00 0a 01 02 00 22 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********** " P* SUBFORMAT OR SWITCH FORMAT * " P************************┆
0x275c…27ac 2a 2a 2a 2a 2a 2a 00 0a 01 28 00 16 00 50 41 46 4f 52 4d 5c 45 51 55 5c 2a 2d 42 41 53 49 53 20 00 0a 01 4e 00 12 00 50 5c 53 55 4b 4c 5c 41 35 2c 2f 36 38 30 30 00 0a 01 68 00 2a 00 50 5c 41 4e 4b 4c 5c 41 35 2c 2f 46 46 46 45 5c 4d 41 53 ┆****** ( PAFORM EQU *-BASIS N P SUKL A5,/6800 h * P ANKL A5,/FFFE MAS┆
0x27ac…27fc (27, 0, 400) 4b 20 4f 55 54 20 49 4e 44 49 43 41 54 49 4f 4e 20 42 49 54 00 0a 01 7e 00 0e 00 50 5c 41 44 4b 5c 41 35 2c 32 20 00 0b 00 1c 00 0e 00 50 5c 41 4e 4b 5c 41 31 2c 31 20 00 0b 00 2e 00 28 00 50 5c 52 46 28 5a 29 5c 53 57 49 54 43 48 5c 4a 55 ┆K OUT INDICATION BIT ~ P ADK A5,2 P ANK A1,1 . ( P RF(Z) SWITCH JU┆
0x27fc…284c 4d 50 20 49 46 20 53 57 49 54 43 48 20 46 4f 52 4d 41 54 20 00 0b 00 40 00 10 00 50 5c 4c 44 52 5c 41 31 30 2c 41 31 30 00 0b 00 6c 00 24 00 50 5c 52 46 28 4e 5a 29 5c 41 46 4f 52 4d 31 5c 4a 55 4d 50 20 49 46 20 4f 43 43 55 50 49 45 44 20 ┆MP IF SWITCH FORMAT @ P LDR A10,A10 l $ P RF(NZ) AFORM1 JUMP IF OCCUPIED ┆
0x284c…289c 00 0b 00 80 00 2a 00 50 5c 4c 44 52 5c 41 31 30 2c 41 32 5c 47 45 54 20 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 20 54 4f 20 41 31 30 20 00 0b 00 a8 00 0e 00 50 5c 52 46 5c 53 57 49 54 43 48 00 0b 00 d6 00 30 00 50 41 46 4f 52 4d 31 5c 4c ┆ * P LDR A10,A2 GET RETURN ADDRESS TO A10 P RF SWITCH 0 PAFORM1 L┆
0x289c…28ec 44 52 5c 41 31 31 2c 41 32 5c 47 45 54 20 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 20 54 4f 20 41 31 31 20 00 0b 00 e8 00 32 00 50 53 57 49 54 43 48 5c 53 55 52 5c 41 32 2c 41 35 5c 47 45 54 20 41 4c 54 45 52 4e 41 54 49 56 45 20 46 4f 52 ┆DR A11,A2 GET RETURN ADDRESS TO A11 2 PSWITCH SUR A2,A5 GET ALTERNATIVE FOR┆
0x28ec…293c 4d 41 54 20 54 4f 20 41 32 20 00 0b 01 1c 00 16 00 50 52 45 54 55 52 5c 45 51 55 5c 2a 2d 42 41 53 49 53 20 00 0b 01 52 00 0c 00 50 5c 52 42 5c 45 44 49 54 00 0b 01 6c 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆MAT TO A2 PRETUR EQU *-BASIS R P RB EDIT l P********************┆
0x293c…298c (28, 0, 400) 00 0b 01 7c 00 18 00 50 2a 20 45 4e 44 20 4f 46 20 53 55 42 46 4f 52 4d 41 54 20 2a 00 0c 00 08 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0c 00 24 00 16 00 50 45 4e 44 53 55 42 5c 45 51 55 5c 2a 2d 42 41 53 ┆ | P* END OF SUBFORMAT * P******************** $ PENDSUB EQU *-BAS┆
0x298c…29dc 49 53 00 0c 00 40 00 10 00 50 5c 4c 44 52 5c 41 31 31 2c 41 31 31 00 0c 00 5a 00 1c 00 50 5c 52 46 28 5a 29 5c 45 4e 44 53 31 30 5c 4a 55 4d 50 20 49 46 20 30 20 00 0c 00 6e 00 2c 00 50 5c 4c 44 52 5c 41 32 2c 41 31 31 5c 47 45 54 20 52 45 ┆IS @ P LDR A11,A11 Z P RF(Z) ENDS10 JUMP IF 0 n , P LDR A2,A11 GET RE┆
0x29dc…2a2c 54 55 52 4e 20 41 44 44 52 45 53 53 20 46 52 4f 4d 20 41 31 31 20 00 0c 00 8e 00 1a 00 50 5c 53 55 52 5c 41 31 31 2c 41 31 31 5c 43 4c 45 41 52 20 41 31 31 00 0c 00 be 00 0c 00 50 5c 52 42 5c 45 44 49 54 00 0c 00 dc 00 16 00 50 45 4e 44 53 ┆TURN ADDRESS FROM A11 P SUR A11,A11 CLEAR A11 P RB EDIT PENDS┆
0x2a2c…2a7c 31 30 5c 4c 44 52 5c 41 31 30 2c 41 31 30 00 0c 00 ec 00 24 00 50 5c 52 42 28 5a 29 5c 45 44 49 54 5c 4a 55 4d 50 20 49 46 20 4e 4f 20 53 55 42 20 43 41 4c 4c 20 00 0c 01 06 00 2c 00 50 5c 4c 44 52 5c 41 32 2c 41 31 30 5c 47 45 54 20 52 45 ┆10 LDR A10,A10 $ P RB(Z) EDIT JUMP IF NO SUB CALL , P LDR A2,A10 GET RE┆
0x2a7c…2acc 54 55 52 4e 20 41 44 44 52 45 53 53 20 46 52 4f 4d 20 41 31 30 20 00 0c 01 2e 00 1a 00 50 5c 53 55 52 5c 41 31 30 2c 41 31 30 5c 43 4c 45 41 52 20 41 31 30 00 0c 01 5e 00 10 00 50 45 4e 44 53 35 30 5c 45 51 55 5c 2a 00 0c 01 7c 00 0c 00 50 ┆TURN ADDRESS FROM A10 . P SUR A10,A10 CLEAR A10 ^ PENDS50 EQU * | P┆