|
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: 26918 (0x6926)
Notes: pts_type(SC)
Names: »DRLT01.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/DRLT01.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/DRLT01.SC«
IDENT DRLT01 REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRLT01 = DRIVER CHANNEL UNIT * FOR LOCAL TERMINALS * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ************************************************** * * * THIS IS THE CHANNEL UNIT DRIVER FOR LOCAL TERMINALS. * AT INTERRUPT AN INPUT WORD IS READ TO REGISTER A2. IF DATA * INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER * FOR ACTUAL DEVICE. * IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS * ARE CARRIED OUT. * * THE DRIVER ALSO INCLUDES THE FOLLOWING SUBROUTINES:- * * - OUTLIN SEND ONE CHARACTER VIA CHLT * * - CHLTON EXECUTE CIO-START ON EVERY CHLT IN SYSTEM * * - GETCHR GET ONE CHARACTER FROM ECB-BUFFER * * CONTROL WORK TABLES FOR THE CHANNELS ARE * INCLUDED IN THE DRIVER. EJECT * * * * THE FOLLOWING FUNCTIONS ARE ALSO INCLUDED IN THE DRIVER:- * * - OUTPUT SEND ONE CHARACTER, SAVE A3-A5 AND RETURN TO DISPATCHER * * - STREG SAVE A3-A5 AND RETURN TO DISPATCHER * * - LDREG IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN * TO USER VIA A5 * * - LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 * * * * NORMAL REGISTER USAGE IN THE DRIVER:- * * A1 = RETURN CODE * A2 = INPUT WORD * A3 = LINE NUMBER * 2 * A4 = DEVICE NUMBER * 2 * A5 = CWT-ADDRESS * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS * * * EJECT * *********** * ENTRIES * *********** * * ENTRY CHLT1 INTERRUPT FROM CHLT01 ENTRY CHLT2 INTERRUPT FROM CHLT2 ENTRY OUTLIN SEND ONE CHARACTER ENTRY CHLTON START OF CHLT ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH ENTRY LDREG RESTORE A3-A5 ANDRETURN ENTRY LDREGE WAY BACK FROM ECHO HANDLING ENTRY LDREGF RETURN ENTRY STREG SAVE REGISTERS A3-A5 IN DWT ENTRY GETCHR GET ONE CHARACTER FROM ECB-BUFFER ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS ENTRY CWTLT1 CONTROL WORK TABLE CHLT1 ENTRY CWTLT2 CONTROL WORK TABLE CHLT2 ENTRY CWTRT1 CONTROL WORK TABLE REMOTE CHANNEL 1.1 ENTRY CWTRT2 CONTROL WORK TABLE REMOTE CHANNEL 2.1 ENTRY CWTRT3 CONTROL WORK TABLE REMOTE CHANNEL 1.2 ENTRY CWTRT4 CONTROL WORK TABLE REMOTE CHANNEL 2.2 ENTRY REMFC DUMMY ENTRY ENTRY DWREMU DUMMY ENTRY ENTRY ECHRTN RETURN FROM ECHO ENTRY ECHO ECHO ROUTINE ENTRY ECHEND END OF ECHO * EJECT * ****************************************** * EXTERNAL TOSS MODULE ENTRIES * ****************************************** * * EXTRN SAVE8 SAVE REGISTERS A1-A8 EXTRN TDISP DISPATCHER EXTRN IHRET8 RESTORE A1-A8 EXTRN INTLT1 INTERRUPT TABLE EXTRN INTLT2 INTERRUPT TABLE EXTRN SETIME GET TIMER BLOCK EXTRN SETIMP GET TIMER BLOCK EXTRN INTSAV SAVE AREA LAST INTERRUPT EXTRN TENDIO EXTRN RTNA15 RETURN AND ENB * * *********************************** * DWT PARAMETERS * *********************************** EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTECB ECB-ADDRESS EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK EXTRN DWTWAT * EJECT * ************* * CONSTANTS * ************* * * NOERR EQU 1 RETURN CODE. NOT OPERABLE DUMMSP EQU /03 SPECIAL DUMMY DRQTIM EQU 30 * * * DISPLACMENT IN DEVICE WORK TABLE DWT * DWTOCH EQU /6 LAST OUTPUT CHARACTER DWTOTQ EQU /10 OUTPUT QUEUE LINK DWTA3 EQU /12 SAVE AREA A3 DWTA4 EQU /14 A4 DWTA5 EQU /16 A5 DWTSB2 EQU /1E STACK BASE 2 DWTTP EQU /20 TIMER POINTER DWTECH EQU /22 ECHO DEVICE * EJECT * ************************ * CONDITIONAL ASSEMBLY * ************************ * * A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER * MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 * X:A EQU 1 LOGING EQU X:A * * THIS DRIVER NORMALLY HANDLES TWO LOCAL CHANNELS. * BY SETTING X:B = 1 THIS DRIVER CAN BE PUT TO * HANDLE ONLY ONE CHANNEL. * X:B EQU 1 LOCHAN EQU X:B * * ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND * UNDEFINED CONTROL CHARACTERS ARE UPDATED IN * THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM * DRIVER BY SETTING X:C = 0. * X:C EQU 1 ACKMUL EQU X:C * * BY SETTING X:D = 1 A SOFTWARE TIME OUT HANDLING * MISSING DATA REQUESTS FROM PRINTERS CAN BE INCLUDED * IN THE DRIVER. * AN ACKUMULATOR TO BE UPDATED EVERY TIME A SOFTWARE * TIME OUT OCCURS IS ALSO INCLUDED. * X:D EQU 1 SOFTIM EQU X:D * * * ECHO FONCTION CAN BE EXCLODED * BY SETTING X:E = 0 X:E EQU 1 CECHO EQU X:E * EJECT RECHAN EQU 0 REMFC EQU 0 CWTRT1 EQU * CWTRT2 EQU * CWTRT3 EQU * CWTRT4 EQU * DWREMU EQU * EJECT * * ***************************************************** * C W T L T 1 * ***************************************************** * * CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 1 * * DWA1 EQU /03 DEVICEADDRESS * CWTLT1 EQU * TABLE ENTRY CWTLDW EQU *-CWTLT1 LAST OUTPUT DWT-ADDRESS DATA 0 CWTLOW EQU *-CWTLT1 DATA 0 LAST OUTPUT WORD CWTITA EQU *-CWTLT1 ADDRESS TO INTLT1 DATA INTLT1 CWTINR EQU *-CWTLT1 INR INR A2,0,DWA1 CWTOTR EQU *-CWTLT1 OTR OTR A2,0,DWA1 CWTCIS EQU *-CWTLT1 CIO-START CIO A2,1,DWA1 CWTRTC EQU *-CWTLT1 DATA 0 RETRANSMISSION COUNTER CWTEQ EQU *-CWTLT1 END OF QUEUE DATA 0 CWTADD EQU *-CWTLT1 * IFT ACKMUL=1 * DATA 0 NAK-ACKUMULATOR DATA 0 RETR. FAULT-ACKUMULATOR DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ACKTIM EQU *-CWTLT1 DATA 0 PRINTER TIMEOUT ACKUMULATOR * XIF EJECT * * ***************************************************** * C W T L T 2 * ***************************************************** * * CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 2 * CWTLT2 EQU * * IFT LOCHAN=2 * * * CHANNEL UNIT WORK TABLE FOR LOCAL TERMINAL NO.2 * DWA2 EQU /13 DEVICE ADDRESS * DATA 0 LAST OUTPUT DWT-ADDRESS DATA 0 LAST OUTPUT WORD DATA INTLT2 INTERRUPT TABLE INR A2,0,DWA2 INR OTR A2,0,DWA2 OTR CIO A2,1,DWA2 CIO-START DATA 0 RETRANSMISSION COUNTER DATA 0 END OF QUEUE * IFT ACKMUL=1 * DATA 0 NAK-ACKUMULATOR DATA 0 RETR. FAULT-ACKUMULATOR DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR DATA 0 PRINTER TIMEOUT ACKUMULATOR * XIF * * IFT LOCHAN=2 * EJECT * ********************************************** * C H T A B * ********************************************** * * THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK * TABLES CWT TO CHANNEL UNITS FOR LOCAL AND REMOTE * TERMINALS. * * CHTAB EQU * DATA CHTABE-* TABLE LENGTH DATA CWTLT1 DATA CWTLT2 CHTABE EQU * END OF TABLE * * * * XIF * EJECT * IFT LOCHAN=2 * * C H L T 1 / C H L T 2 * THIS IS THE INTERRUPT HANDLER FOR CHLT * * C H L T 1 * INTERRUPT FROM CHLT1 * CHLT1 EQU * ST P,INTSAV SAVE LAST INTERRUPT CF A15,SAVE8 SAVE REGISTERS A1-A8 LDKL A5,CWTLT1 SET CWT-ADDRESS FOR CHLT1 RF CLT010 * * C H L T 2 * INTERRUPT FROM CHLT2 * CHLT2 EQU * ST P,INTSAV SAVE LAST INTERRUPT CF A15,SAVE8 SAVE REGISTERS A1-A8 LDKL A5,CWTLT2 SET CWT-ADDRESS FOR CHLT2 CLT010 EX CWTINR,A5 EXECUTE INR-INSTRUCTION * XIF * * IFF LOCHAN=2 * * * C H L T 1 * * INTERRUPT FROM CHLT1 * CHLT1 EQU * CHLT2 EQU * CF A15,SAVE8 SAVE REGISTERS ON STACK LDKL A5,CWTLT1 GET CWT-ADDRESS ST P,INTSAV SAVE LAST INTERRUPT INR A2,0,DWA1 * XIF * IFT LOGING=1 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** XIF EJECT * * * DETERMINE LINE- AND DEVICE NUMBER * LDK A1,0 RESET RETURN CODE LDR A3,A2 INPUT WORD IN A3 SRL A3,8 LDR A4,A3 ANK A3,/E 2 * LINE NUMBER IN A3 SRL A4,3 ANK A4,/E 2 * DEVICE NUMBER IN A4 ABL(NE) CLT100 INPUT IS A DATA CHARACTER ANK A2,/7F SUK A2,3 POWER ON ? RF(E) CHPOWO * * * CHECK QUEUE AND SEND IF SOMETHING THERE * LDR* A7,A5 LAST OUTPUT DWT IN A7 CMR A5 RESET LAST OUTPUT LD A6,CWTEQ,A5 OUTPUT QUEUE RF(E) CLT020 STR A2,A15 SAVE A2 LD A2,DWTOTQ,A6 GET QUEUE LINK ST A2,CWTEQ,A5 STORE IT IN CWT LC A2,DWTOCH,A6 GET CHARACTER CF A15,OUTLIN SEND CHARACTER LDR* A2,A15 RELOAD A2 EJECT * * * CHECK CONTROL CHARACTER AND UPDATE ERROR- * ACKUMULATORS IF NAK, RETRANSMISSION FAULT * OR UNDEFINED CONTROL CHARACTER * CLT020 EQU * LDR A6,A7 GET LAST OUTPUT RF(E) CLT062 SUK A2,4 ACK ? RF(Z) CLT040 ADK A2,7 TIME-OUT ? RF(E) CLT028 * IFT ACKMUL=1 * SUK A2,5 NAK ? RF(E) CLT035 LDK A7,2 SUK A2,/16 RETRANSMISSION FAULT RF(E) CLT025 ADK A7,2 UNDEFINED INTERRUPT CLT025 ADR A7,A5 IM CWTADD,A7 INCREMENT ACKUMULATOR FOR THIS TYPE OF INTERRUPT * XIF * EJECT * * * NAK, TIME-OUT, RETRANSMISSION FAULT OR * UNDEFINED CONTROL CHARACTER * * CHECK LAST OUTPUT AND TRY RECOVERY OF THAT DEVICE * ONE TIME. IF NOT SUCCESS GO TO DRIVER WITH * MESSAGE NOT OPERABLE. * CLT028 EQU * LDKL A2,/3000 ECHO MODE AND RECOVERY BIT AN A2,DWTST,A6 AT LEAST ONE OF THE BITS SET ? RF(NE) CLT032 LDKL A2,/1000 INDICATE RECOVERY TRIAL DONE XRS A2,DWTST,A6 SET BIT IN STATUS WORD CLT030 LDK A3,2 INDICATE RECOVERY OF DEVICE LDK A4,0 RF CPO025 CLT032 LDK A1,NOERR INDICATE NOT OPERABLE RF CLT110 EJECT * * * N A K * * ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS UPDATED. * LAST OUTPUT CHARACTER IS RETRANSMITTED BY CHANNEL DRIVER * UP TO SIX TIMES AND IF STILL NO SUCCESS RETURN CODE NOT * OPERABLE IS SENT TO DEVICE DRIVER. * CLT035 EQU * IFT ACKMUL=1 * IM CWTADD,A5 UPDATE ERROR ACKUMULATOR XIF * IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER LD A4,CWTRTC,A5 GET COUNTER SUK A4,7 SEVEN TIMES ? RB(E) CLT032 LD A2,CWTLOW,A5 GET LAST OUTPUT WORD LDR A1,A5 EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION STR A6,A1 STORE LAST DWT IN CWT IFT LOGING=1 CF A15,LOGG ** LOGG OUTPUT CHARACTER ** XIF SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT ABL TDISP EJECT * * * ACK DATA = 07 * * SIMULATE DATA REQUEST IF RETURN CODE FROM * CHLT OR DEVICE WITHOUT DATA REQUEST, * ELSE GO TO DISPATCHER * CLT040 EQU * LDKL A7,/EFFF ANS A7,DWTST,A6 RESET RECOVERY BIT IN STATUS WORD LDR A1,A1 RF(NZ) CLT110 RETURN CODE,SIMULATE DATA REQUEST LDR* A7,A6 DEVICE WITHOUT DATA REQUEST? RF(N) CLT110 YES. SIMULATE DATA REQUEST * IFF SOFTIM=1 * CLT062 EQU * RF EXIT * XIF * * IFT SOFTIM=1 * EJECT * * * PRINTER TIMING * INH LC A3,DWTOCH,A6 GET LAST CHARACTER ANK A3,/7F SUK A3,DUMMSP SPECIAL DUMMY RF(E) CLT070 YES LD A3,DWTTP,A6 ADDRESS TO TIMER BLOCK RF(E) CLT060 * * RESTART TIMER * LDKL A3,-DRQTIM RESTART TIMER ST* A3,DWTTP,A6 RF EXIT * * START TIMER * CLT060 LDR A1,A6 PARAMETER LDK A4,DWTTP TIMER POINTER ADR A4,A6 ADD WITH DWT-ADDRESS CF A15,SETIMP GET TIMER BLOCK DATA DRQTUT,DRQTIM ADDRESS TO TIME-OUT ROUTINE AND DELAY CLT062 EQU * RF EXIT EJECT * * * RESET TIMER IF STARTED * CLT070 LD A3,DWTTP,A6 ADDRESS ? RF(E) EXIT NO CM* DWTTP,A6 RESET TIMER CM DWTTP,A6 RESET ADDRESSPOINTER TO TIMER RF EXIT EJECT * * TIME-OUT ROUTINE HANDLING MISSING INTERRUPTS * FROM PRINTERS * DRQTUT EQU * LDR A6,A1 GET DWT-ADDRESS CM DWTTP,A6 RESET POINTER TO TIMER BLOCK LD A3,DWTST,A6 SLL A3,2 ECHO MODE ? RF(N) CLT110 YES * IFT ACKMUL=1 IFT LOCHAN=2 * LDR* A5,A6 CHANNEL PARAMETER ANK A5,/E LD A5,CHTAB,A5 GET CWT-ADDRESS IM ACKTIM,A5 INCREMENT ACKUMULATOR * XIF IFT SOFTIM=1 IFT ACKMUL=1 IFF LOCHAN=2 * LDKL A5,CWTLT1 GET CWT-ADDRESS IM ACKTIM,A5 INCREMENT ACKUMULATOR * XIF IFT SOFTIM=1 * RB CLT030 * XIF * EJECT * * POWER ON DATA = 03 * * RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE * ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL * UNIT OR THOSE IN ECHO MODE. * * * ON EXIT TO RECOVERY ROUTINE: * * A5 = STACKBASE 2 IN DWT * A6 = DWT-ADDRESS * A7 = ORDER * CHPOWO EQU * CF A15,GETLIN LDR* A2,A5 GET LAST OUTPUT DWT CM CWTRTC,A5 RESET RETRANSMISSION COUNTER LDK A4,0 LDR A3,A6 DEVICE COUNTER LDR A1,A8 ADDRESS POINTER RF(Z) EXIT EXIT IF NOT DEFINED CPO020 ADK A1,2 LDR* A6,A1 GET DWT-ADDRESS RF(E) CPO030 NO DWT SRC A6,1 RF(N) CPO030 SLC A6,1 LCR A7,A6 LEFT BYTE OF DWTCHP ANK A7,1 INPUT DEVICE ? RF(NE) CPO025 YES LDKL A7,/EFFF ANS A7,DWTST,A6 RESET RECOVERY BIT LC A7,DWTST,A6 ANK A7,/20 ECHO MODE ? RF(NE) CPO030 YES CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER ? RF(E) CPO030 YES CPO025 LD A7,DWTADR,A6 ADDRESS TO ADDRESSBLOCK IN A7 LD A7,4,A7 ADDRESS TO RECOVERY IN A7 RF(E) CPO030 NO RECOVERY LDKL A5,DWTSB2 STACKBASE ADR A5,A6 CFR A15,A7 GO TO RECOVERY ROUTINE CPO030 SUK A3,2 ALL DEVICES THREATED RB(NE) CPO020 NO TAKE NEXT EXIT ABL TDISP EJECT * * * DATA-REQUEST * CLT100 CF A15,GETLIN GET DWT-ADDRESS SUR A6,A4 VALID INTERRUPT ? RB(N) EXIT LDR A8,A8 RB(Z) EXIT EXIT NOT DEFINED LDR* A6,A8 GET DWT RB(E) EXIT ANKL A6,/FFFE LCR A7,A6 LEFT BYTE IN CHANNEL PARAMETER ANK A7,1 DATA INPUT ? RF(NE) CLT110 YES LDR* A7,A6 GET CHANNEL PARAMETER RB(N) EXIT CLT110 LD A7,DWTOR,A6 SET ORDER IN A7 ANK A7,/FF LD A8,DWTECB,A6 AND ECB-ADDRESS IN A8 LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A3 ENB ABI 2,A3 GO TO INTERRUPT HANDLER * * THE FOLLOWING REGISTER VAULES ARE VALID WHEN ENTERING * THE DEVICE DEPENDANT INTERRUPT HANDLER:- * * A1 = ERROR CODE (A1=0 NOERROR) * (A1=1 NOT OPERABLE , HARDWARE TIME-OUT) * A6 = DWT-ADDRESS * * A7 = ORDER * * A8 = ECB-ADDRESS EJECT * * G E T L I N * * SUBROUTINE TO GET ADDRESS IN INTERRUPT TABLE 'INTLTX' * FOR A GIVEN LINE- AND DEVICE NUMBER * * ON ENTRY:- * * A3 = LINE NUMBER * 2 * A4 = DEVICE NUMBER * 2 * * ON EXIT:- * * A6 = TOTAL NUMBER OF DEVICES*2 ON ACTUAL LINE * A8 = ADDRESS IN 'INTLTX' WHERE DWT-ADDRESS IS FOUND * * GETLIN EQU * LD A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE ADR A8,A3 POSITION IN TABLE LDR* A8,A8 ADDRESS TO TERMINAL SECTION RF(Z) GTL010 RETURN IF NOT DEFINED LDR* A6,A8 GET ID-WORD ANK A6,/FF TWO TIMES NUMBER OF DEVICES ADR A8,A4 ADDRESS TO DEVICE WORK TABLE POSITION GTL010 ABL RTNA15 RETURN AND ENB EJECT * * O U T L I N * * SUBROUTINE TO SEND ONE CHARACTER VIA CHANNEL UNIT. * * CHARACTER GIVEN IN A2 IS SENT VIA CHLT IF CONTROL * UNIT IS FREE. IN OTHER CASE DWT IS QUEUED ON A * OUTPUT QUEUE THREAD. * * ON ENTRY: * * A2 = OUTPUT CHARACTER IN RIGHT BYTE * A6 = DWT-ADDRESS * OUTLIN EQU * CF A15,SAVE8 SAVE REGS A1-A8 * IFT LOCHAN=2 * LDR* A1,A6 CHANNEL PARAMETER ANK A1,/F CHANNEL INDEX ADK A1,2 LD A1,CHTAB,A1 GET CWT-ADDRESS IN A1 * XIF * * IFF LOCHAN=2 * LDKL A1,CWTLT1 * XIF * INH INHIBIT INTERRUPT LDR* A4,A1 IS UNIT FREE ? RF(E) OUL050 YES EJECT * * QUEUE OUTPUT * OUL005 LD A4,CWTEQ,A1 OUTPUT QUEUE RF(E) OUL020 OUL010 CWR A6,A4 RF(E) OUL060 THIS DWT IS ALREADY IN QUEUE LD A3,DWTOTQ,A4 RF(E) OUL030 END OF THREAD FOUND LDR A4,A3 FOLLOW THE THREAD RB OUL010 OUL020 ST A6,CWTEQ,A1 QUEUE DWT RF OUL040 OUL030 ST A6,DWTOTQ,A4 QUEUE DWT OUL040 CM DWTOTQ,A6 SET END OF THREAD RF OUL060 EJECT * * SEND CHARACTER * OUL050 LDR* A3,A6 GET CHANNEL PARAMETERS ANKL A3,/7F00 ANK A2,/FF ORR A2,A3 OUL055 EQU * EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION RB(NA) OUL005 STR A6,A1 STORE LAST DWT IN CWT IFT LOGING=1 CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** XIF OUL060 SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT OUL070 ABL IHRET8 RESTORE A1-A8 AND RTN A15 EJECT * * C H L T O N * * SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY * CHLT IN SYSTEM. THE SUBROUTINE IS ENTERED FROM 'PFINIT' * CHLTON EQU * * IFT LOCHAN=2 * LD A1,CHTAB CON010 SUK A1,2 ALL TREATED ? RF(NZ) CON020 NO TAKE NEXT ABL RTNA15 RETURN AND ENB CON020 LD A5,CHTAB,A1 LOAD CWT-ADDRESS RB(Z) CON010 EX CWTCIS,A5 EXECUTE CIO-START LDR* A6,A5 GET LAST DWT RB(Z) CON010 CMR A5 RESET LAST OUTPUT LDK A2,0 CF A15,OUTLIN SEND CHARACTER RB CON010 * * XIF * * IFF LOCHAN=2 * CIO A2,1,DWA1 CIO-START LD A6,CWTLT1 GET LAST DWT RF(Z) CON010 CM CWTLT1 RESET LAST OUTPUT LDK A2,0 CF A15,OUTLIN SEND CHARACTER CON010 ABL RTNA15 RETURN AND ENB * XIF * EJECT * * O U T P U T * * SEND ONE CHARACTER VIA 'OUTLIN' INDICATE INTERRUPTS * ALLOWED AND SAVE A3-A5 IN DWT. * * OUTPUT EQU * ANK A2,/FF LDR A1,A2 SUK A1,/82 STX ? RF(E) LDRE10 SUK A1,/15 ETB ? RF(E) LDRE10 CF A15,OUTLIN SEND ONE CHARACTER VIA CHANNEL UNIT * * * S T R E G * * INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT * * STREG EQU * INH LDKL A1,/100 ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED ST A3,DWTA3,A6 SAVE REGISTER A3 ST A4,DWTA4,A6 A4 ST A5,DWTA5,A6 A5 RB EXIT EJECT * * L D R E G * * IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN * VIA A5. ELSE GO TO DISPATCHER. * * LDREG EQU * LD A3,DWTST,A6 ANKL A3,/100 RB(Z) EXIT XRS A3,DWTST,A6 * * * L D R E G E * * RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 * * LDREGF EQU * LD A5,DWTA5,A6 A5 LDREGE EQU * LD A3,DWTA3,A6 RELOAD REGISTER A3 LD A4,DWTA4,A6 A4 LDRE10 LD A7,DWTOR,A6 GET ORDER ANK A7,/FF LD A8,DWTECB,A6 RTN A5 RETURN VIA A5-STACK EJECT * * * G E T C H R * * SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER * * ON ENTRY: * * A3 = BUFFER INDEX * A8 = ECB-ADDRESS * * ON EXIT: * * A2 = CHARACTER * A1 = 0 IF LAST CHARACTER ELSE # 0 * * IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH * * GETCHR EQU * LD A1,4,A8 REQUESTED LENGTH SUR A1,A3 RF(NP) GCH010 LAST CHARACTER REACHED LD A2,2,A8 GET BUFFER ADDRESS ADR A2,A3 LCR A2,A2 CHAR. TO A2 ANK A2,/FF ADK A3,1 INCREMENT BUFFER INDEX RF GCH020 GCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH GCH020 ABL RTNA15 RETURN AND ENABLE EJECT * * * L O G G * * IF CONDITIONALY ASSEMBLY IS SET EVERY INPUT AND * OUTPUT CHARACTER ARE LOGGED * * * IFT LOGING=1 * LOGG STR A1,A15 LD A1,POINT ADK A1,2 CWK A1,BUFE BUFE IS MAX LOGG AREA RF(NE) L1 LDKL A1,BUF SET FIRST LOGG ADDRESS L1 ST A1,POINT STR A2,A1 LOGG OF INR OR OTR INSTRUCTION LDR* A1,A15 ADKL A15,2 LDR* P,A15 RETURN * * POINT DATA BUF LOGG POINTER * BUF RES 63 LOGG AREA BUFE EQU * * XIF EJECT * * * E C H O , E C H E N D * * SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, * ONE GENERAL AND ONE DEVICE-DEPENDENT * * PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, * LOAD STACKBASE AND FIND ADDRESS * TO DEVICE-DEPENDENT ECHO-ROUTINE * * PART TWO: ECHO ONE OR MORE CHARACTERS * CORRESPONDING TO ONE CHARACTER * TO BE STORED IN INPUT ECB-BUFFER * * * PART ONE FOLLOWS AND PART TWO CAN BE FOUND * IN THE DRIVER MODULE CORRESPONDING TO ECHO * OUTPUT DEVICE * * RESTRICTIONS IN DEVICE DEPENDENT ECHO DRIVER * * A7 MUST NOT BE DESTROYED * THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A * JUMP TO 'ECHRTN'. * ECHEND EQU * * IFT CECHO=1 * LDKL A7,/8000 INDICATE END I/O XIF ECHO EQU * IFT CECHO=1 ST A3,DWTA3,A6 SAVE A3-A5 IN DWT ST A4,DWTA4,A6 ST A5,DWTA5,A6 LD A1,DWTST,A6 STATUS SLL A1,2 RF(NN) RETUR NO ECHO REQUESTED LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE LDKL A5,DWTSB2 ADR A5,A6 STACKBASE-ADDRESS IN A5 LD A1,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK ABI 6,A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT XIF ECHRTN EQU * IFT CECHO=1 LDR A7,A7 END? RF(NN) ERETUR NO CF A15,TENDIO END I/O OUTPUT DEVICE ERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE RETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 * END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT DRLT01 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=»* DRLT01 = DRIVER CHANNEL UNIT«, t00=0x0000, t01=0x00d4}
0x00f8…0120 Head {h00=0x0024, h01=0x0050, text=»* FOR LOCAL TERMINALS«, t00=0x0000, t01=0x00fc}
0x0120…012a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0124}
0x012a…014c Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x012e}
0x014c…0156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0150}
0x0156…0178 Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x015a}
0x0178…0182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017c}
0x0182…01bc Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0186}
0x01bc…01c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0030}
0x01c6…01d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003a}
0x01d0…0210 Head {h00=0x003c, h01=0x0050, text=»* THIS IS THE CHANNEL UNIT DRIVER FOR LOCAL TERMINALS.«, t00=0x0001, t01=0x0044}
0x0210…0256 Head {h00=0x0042, h01=0x0050, text=»* AT INTERRUPT AN INPUT WORD IS READ TO REGISTER A2. IF DATA«, t00=0x0001, t01=0x0084}
0x0256…029e Head {h00=0x0044, h01=0x0050, text=»* INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER «, t00=0x0001, t01=0x00ca}
0x029e…02bc Head {h00=0x001a, h01=0x0050, text=»* FOR ACTUAL DEVICE.«, t00=0x0001, t01=0x0112}
0x02bc…0304 Head {h00=0x0044, h01=0x0050, text=»* IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS«, t00=0x0001, t01=0x0130}
0x0304…0320 Head {h00=0x0018, h01=0x0050, text=»* ARE CARRIED OUT.«, t00=0x0001, t01=0x0178}
0x0320…032a (2, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x032a…036a Head {h00=0x003c, h01=0x0050, text=»* THE DRIVER ALSO INCLUDES THE FOLLOWING SUBROUTINES:-«, t00=0x0002, t01=0x000e}
0x036a…0374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004e}
0x0374…03a6 Head {h00=0x002e, h01=0x0050, text=»* - OUTLIN SEND ONE CHARACTER VIA CHLT«, t00=0x0002, t01=0x0058}
0x03a6…03b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008a}
0x03b0…03f0 Head {h00=0x003c, h01=0x0050, text=»* - CHLTON EXECUTE CIO-START ON EVERY CHLT IN SYSTEM«, t00=0x0002, t01=0x0094}
0x03f0…03fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d4}
0x03fa…0432 Head {h00=0x0034, h01=0x0050, text=»* - GETCHR GET ONE CHARACTER FROM ECB-BUFFER«, t00=0x0002, t01=0x00de}
0x0432…043c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0116}
0x043c…0472 Head {h00=0x0032, h01=0x0050, text=»* CONTROL WORK TABLES FOR THE CHANNELS ARE «, t00=0x0002, t01=0x0120}
0x0472…0496 Head {h00=0x0020, h01=0x0050, text=»* INCLUDED IN THE DRIVER.«, t00=0x0002, t01=0x0156}
0x0496…04a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x017a}
0x04a4…04ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0188}
0x04ae…04b8 (3, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04b8…04c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000e}
0x04c2…0508 Head {h00=0x0042, h01=0x0050, text=»* THE FOLLOWING FUNCTIONS ARE ALSO INCLUDED IN THE DRIVER:- «, t00=0x0003, t01=0x0018}
0x0508…0512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005e}
0x0512…0560 Head {h00=0x004a, h01=0x0050, text=»* - OUTPUT SEND ONE CHARACTER, SAVE A3-A5 AND RETURN TO DISPATCHER«, t00=0x0003, t01=0x0068}
0x0560…056a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b6}
0x056a…05a4 Head {h00=0x0036, h01=0x0050, text=»* - STREG SAVE A3-A5 AND RETURN TO DISPATCHER«, t00=0x0003, t01=0x00c0}
0x05a4…05ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05ae…05f6 Head {h00=0x0044, h01=0x0050, text=»* - LDREG IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN«, t00=0x0003, t01=0x0104}
0x05f6…061c Head {h00=0x0022, h01=0x0050, text=»* TO USER VIA A5 «, t00=0x0003, t01=0x014c}
0x061c…0626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0172}
0x0626…0664 Head {h00=0x003a, h01=0x0050, text=»* - LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5«, t00=0x0003, t01=0x017c}
0x0664…066e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002a}
0x066e…0678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0034}
0x0678…0682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x003e}
0x0682…06b4 Head {h00=0x002e, h01=0x0050, text=»* NORMAL REGISTER USAGE IN THE DRIVER:- «, t00=0x0004, t01=0x0048}
0x06b4…06be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007a}
0x06be…06da Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE«, t00=0x0004, t01=0x0084}
0x06da…06f6 Head {h00=0x0018, h01=0x0050, text=»* A2 = INPUT WORD «, t00=0x0004, t01=0x00a0}
0x06f6…0716 Head {h00=0x001c, h01=0x0050, text=»* A3 = LINE NUMBER * 2«, t00=0x0004, t01=0x00bc}
0x0716…0738 Head {h00=0x001e, h01=0x0050, text=»* A4 = DEVICE NUMBER * 2«, t00=0x0004, t01=0x00dc}
0x0738…0754 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT-ADDRESS«, t00=0x0004, t01=0x00fe}
0x0754…0770 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0004, t01=0x011a}
0x0770…0786 Head {h00=0x0012, h01=0x0050, text=»* A7 = ORDER«, t00=0x0004, t01=0x0136}
0x0786…07a2 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0004, t01=0x014c}
0x07a2…07ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0168}
0x07ac…07b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0172}
0x07b6…07c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017c}
0x07c0…07ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0186}
0x07ce…07d8 (5, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07d8…07ec Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x000e}
0x07ec…0800 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x0022}
0x0800…0814 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x0036}
0x0814…081e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004a}
0x081e…0828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0054}
0x0828…0852 Head {h00=0x0026, h01=0x0050, text=» ENTRY CHLT1 INTERRUPT FROM CHLT01«, t00=0x0005, t01=0x005e}
0x0852…087c Head {h00=0x0026, h01=0x0050, text=» ENTRY CHLT2 INTERRUPT FROM CHLT2 «, t00=0x0005, t01=0x0088}
0x087c…08a4 Head {h00=0x0024, h01=0x0050, text=» ENTRY OUTLIN SEND ONE CHARACTER«, t00=0x0005, t01=0x00b2}
0x08a4…08c8 Head {h00=0x0020, h01=0x0050, text=» ENTRY CHLTON START OF CHLT «, t00=0x0005, t01=0x00da}
0x08c8…0906 Head {h00=0x003a, h01=0x0050, text=» ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH «, t00=0x0005, t01=0x00fe}
0x0906…0932 Head {h00=0x0028, h01=0x0050, text=» ENTRY LDREG RESTORE A3-A5 ANDRETURN«, t00=0x0005, t01=0x013c}
0x0932…0964 Head {h00=0x002e, h01=0x0050, text=» ENTRY LDREGE WAY BACK FROM ECHO HANDLING «, t00=0x0005, t01=0x0168}
0x0964…0980 Head {h00=0x0018, h01=0x0050, text=» ENTRY LDREGF RETURN«, t00=0x0006, t01=0x000a}
0x0980…09b0 Head {h00=0x002c, h01=0x0050, text=» ENTRY STREG SAVE REGISTERS A3-A5 IN DWT«, t00=0x0006, t01=0x0026}
0x09b0…09e8 Head {h00=0x0034, h01=0x0050, text=» ENTRY GETCHR GET ONE CHARACTER FROM ECB-BUFFER «, t00=0x0006, t01=0x0056}
0x09e8…0a1c Head {h00=0x0030, h01=0x0050, text=» ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS «, t00=0x0006, t01=0x008e}
0x0a1c…0a50 Head {h00=0x0030, h01=0x0050, text=» ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS«, t00=0x0006, t01=0x00c2}
0x0a50…0a7e Head {h00=0x002a, h01=0x0050, text=» ENTRY CWTLT1 CONTROL WORK TABLE CHLT1«, t00=0x0006, t01=0x00f6}
0x0a7e…0aac Head {h00=0x002a, h01=0x0050, text=» ENTRY CWTLT2 CONTROL WORK TABLE CHLT2«, t00=0x0006, t01=0x0124}
0x0aac…0ae8 Head {h00=0x0038, h01=0x0050, text=» ENTRY CWTRT1 CONTROL WORK TABLE REMOTE CHANNEL 1.1 «, t00=0x0006, t01=0x0152}
0x0ae8…0b24 Head {h00=0x0038, h01=0x0050, text=» ENTRY CWTRT2 CONTROL WORK TABLE REMOTE CHANNEL 2.1 «, t00=0x0006, t01=0x018e}
0x0b24…0b60 Head {h00=0x0038, h01=0x0050, text=» ENTRY CWTRT3 CONTROL WORK TABLE REMOTE CHANNEL 1.2 «, t00=0x0007, t01=0x003a}
0x0b60…0b9c Head {h00=0x0038, h01=0x0050, text=» ENTRY CWTRT4 CONTROL WORK TABLE REMOTE CHANNEL 2.2 «, t00=0x0007, t01=0x0076}
0x0b9c…0bbc Head {h00=0x001c, h01=0x0050, text=» ENTRY REMFC DUMMY ENTRY«, t00=0x0007, t01=0x00b2}
0x0bbc…0bde Head {h00=0x001e, h01=0x0050, text=» ENTRY DWREMU DUMMY ENTRY «, t00=0x0007, t01=0x00d2}
0x0bde…0c04 Head {h00=0x0022, h01=0x0050, text=» ENTRY ECHRTN RETURN FROM ECHO«, t00=0x0007, t01=0x00f4}
0x0c04…0c24 Head {h00=0x001c, h01=0x0050, text=» ENTRY ECHO ECHO ROUTINE«, t00=0x0007, t01=0x011a}
0x0c24…0c46 Head {h00=0x001e, h01=0x0050, text=» ENTRY ECHEND END OF ECHO «, t00=0x0007, t01=0x013a}
0x0c46…0c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015c}
0x0c50…0c5e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0166}
0x0c5e…0c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0174}
0x0c68…0c9a Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0007, t01=0x017e}
0x0c9a…0ccc Head {h00=0x002e, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0008, t01=0x0020}
0x0ccc…0cfe Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0008, t01=0x0052}
0x0cfe…0d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0084}
0x0d08…0d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008e}
0x0d12…0d3c Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE8 SAVE REGISTERS A1-A8 «, t00=0x0008, t01=0x0098}
0x0d3c…0d5c Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0008, t01=0x00c2}
0x0d5c…0d80 Head {h00=0x0020, h01=0x0050, text=» EXTRN IHRET8 RESTORE A1-A8 «, t00=0x0008, t01=0x00e2}
0x0d80…0da6 Head {h00=0x0022, h01=0x0050, text=» EXTRN INTLT1 INTERRUPT TABLE «, t00=0x0008, t01=0x0106}
0x0da6…0dcc Head {h00=0x0022, h01=0x0050, text=» EXTRN INTLT2 INTERRUPT TABLE «, t00=0x0008, t01=0x012c}
0x0dcc…0df2 Head {h00=0x0022, h01=0x0050, text=» EXTRN SETIME GET TIMER BLOCK «, t00=0x0008, t01=0x0152}
0x0df2…0e18 Head {h00=0x0022, h01=0x0050, text=» EXTRN SETIMP GET TIMER BLOCK «, t00=0x0008, t01=0x0178}
0x0e18…0e46 Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0009, t01=0x000e}
0x0e46…0e5c Head {h00=0x0012, h01=0x0050, text=» EXTRN TENDIO «, t00=0x0009, t01=0x003c}
0x0e5c…0e80 Head {h00=0x0020, h01=0x0050, text=» EXTRN RTNA15 RETURN AND ENB«, t00=0x0009, t01=0x0052}
0x0e80…0e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0076}
0x0e8a…0e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0080}
0x0e94…0ec0 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0009, t01=0x008a}
0x0ec0…0eec Head {h00=0x0028, h01=0x0050, text=»* DWT PARAMETERS * «, t00=0x0009, t01=0x00b6}
0x0eec…0f18 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0009, t01=0x00e2}
0x0f18…0f34 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0009, t01=0x010e}
0x0f34…0f4e Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0009, t01=0x012a}
0x0f4e…0f70 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0009, t01=0x0144}
0x0f70…0f9e Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK«, t00=0x0009, t01=0x0166}
0x0f9e…0fb4 (10, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTWAT «, t00=0x000a, t01=0x0004}
0x0fb4…0fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x001a}
0x0fbe…0fcc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0024}
0x0fcc…0fd4 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0032}
0x0fd4…0fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003a}
0x0fde…0ff4 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0044}
0x0ff4…100a Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x005a}
0x100a…1020 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0070}
0x1020…102a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0086}
0x102a…1034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0090}
0x1034…1062 Head {h00=0x002a, h01=0x0050, text=»NOERR EQU 1 RETURN CODE. NOT OPERABLE «, t00=0x000a, t01=0x009a}
0x1062…1086 Head {h00=0x0020, h01=0x0050, text=»DUMMSP EQU /03 SPECIAL DUMMY«, t00=0x000a, t01=0x00c8}
0x1086…109c Head {h00=0x0012, h01=0x0050, text=»DRQTIM EQU 30 «, t00=0x000a, t01=0x00ec}
0x109c…10a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0102}
0x10a6…10b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010c}
0x10b0…10e2 Head {h00=0x002e, h01=0x0050, text=»* DISPLACMENT IN DEVICE WORK TABLE DWT «, t00=0x000a, t01=0x0116}
0x10e2…10ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0148}
0x10ec…1118 Head {h00=0x0028, h01=0x0050, text=»DWTOCH EQU /6 LAST OUTPUT CHARACTER «, t00=0x000a, t01=0x0152}
0x1118…1140 Head {h00=0x0024, h01=0x0050, text=»DWTOTQ EQU /10 OUTPUT QUEUE LINK«, t00=0x000a, t01=0x017e}
0x1140…1162 Head {h00=0x001e, h01=0x0050, text=»DWTA3 EQU /12 SAVE AREA A3«, t00=0x000b, t01=0x0016}
0x1162…1184 Head {h00=0x001e, h01=0x0050, text=»DWTA4 EQU /14 A4«, t00=0x000b, t01=0x0038}
0x1184…11a6 Head {h00=0x001e, h01=0x0050, text=»DWTA5 EQU /16 A5«, t00=0x000b, t01=0x005a}
0x11a6…11ca Head {h00=0x0020, h01=0x0050, text=»DWTSB2 EQU /1E STACK BASE 2 «, t00=0x000b, t01=0x007c}
0x11ca…11ee Head {h00=0x0020, h01=0x0050, text=»DWTTP EQU /20 TIMER POINTER «, t00=0x000b, t01=0x00a0}
0x11ee…1210 Head {h00=0x001e, h01=0x0050, text=»DWTECH EQU /22 ECHO DEVICE«, t00=0x000b, t01=0x00c4}
0x1210…121a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e6}
0x121a…1228 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00f0}
0x1228…1232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00fe}
0x1232…1252 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x0108}
0x1252…1272 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x0128}
0x1272…1292 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x0148}
0x1292…129c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0168}
0x129c…12dc Head {h00=0x003c, h01=0x0050, text=»* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER «, t00=0x000b, t01=0x0172}
0x12dc…1318 Head {h00=0x0038, h01=0x0050, text=»* MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 «, t00=0x000c, t01=0x0022}
0x1318…1322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005e}
0x1322…1334 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000c, t01=0x0068}
0x1334…134a Head {h00=0x0012, h01=0x0050, text=»LOGING EQU X:A«, t00=0x000c, t01=0x007a}
0x134a…1354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0090}
0x1354…1392 Head {h00=0x003a, h01=0x0050, text=»* THIS DRIVER NORMALLY HANDLES TWO LOCAL CHANNELS. «, t00=0x000c, t01=0x009a}
0x1392…13cc Head {h00=0x0036, h01=0x0050, text=»* BY SETTING X:B = 1 THIS DRIVER CAN BE PUT TO «, t00=0x000c, t01=0x00d8}
0x13cc…13f2 Head {h00=0x0022, h01=0x0050, text=»* HANDLE ONLY ONE CHANNEL. «, t00=0x000c, t01=0x0112}
0x13f2…13fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0138}
0x13fc…140e Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000c, t01=0x0142}
0x140e…1424 Head {h00=0x0012, h01=0x0050, text=»LOCHAN EQU X:B«, t00=0x000c, t01=0x0154}
0x1424…142e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016a}
0x142e…146a Head {h00=0x0038, h01=0x0050, text=»* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND «, t00=0x000c, t01=0x0174}
0x146a…14a2 Head {h00=0x0034, h01=0x0050, text=»* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN«, t00=0x000d, t01=0x0020}
0x14a2…14de Head {h00=0x0038, h01=0x0050, text=»* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM «, t00=0x000d, t01=0x0058}
0x14de…1506 Head {h00=0x0024, h01=0x0050, text=»* DRIVER BY SETTING X:C = 0. «, t00=0x000d, t01=0x0094}
0x1506…1510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00bc}
0x1510…1522 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000d, t01=0x00c6}
0x1522…1538 Head {h00=0x0012, h01=0x0050, text=»ACKMUL EQU X:C«, t00=0x000d, t01=0x00d8}
0x1538…1542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ee}
0x1542…157e Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:D = 1 A SOFTWARE TIME OUT HANDLING«, t00=0x000d, t01=0x00f8}
0x157e…15be Head {h00=0x003c, h01=0x0050, text=»* MISSING DATA REQUESTS FROM PRINTERS CAN BE INCLUDED«, t00=0x000d, t01=0x0134}
0x15be…15da Head {h00=0x0018, h01=0x0050, text=»* IN THE DRIVER. «, t00=0x000d, t01=0x0174}
0x15da…161a Head {h00=0x003c, h01=0x0050, text=»* AN ACKUMULATOR TO BE UPDATED EVERY TIME A SOFTWARE «, t00=0x000d, t01=0x0190}
0x161a…1648 Head {h00=0x002a, h01=0x0050, text=»* TIME OUT OCCURS IS ALSO INCLUDED.«, t00=0x000e, t01=0x0040}
0x1648…1652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006e}
0x1652…1664 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 1 «, t00=0x000e, t01=0x0078}
0x1664…167a Head {h00=0x0012, h01=0x0050, text=»SOFTIM EQU X:D«, t00=0x000e, t01=0x008a}
0x167a…1684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a0}
0x1684…168e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00aa}
0x168e…16ba Head {h00=0x0028, h01=0x0050, text=»* ECHO FONCTION CAN BE EXCLODED «, t00=0x000e, t01=0x00b4}
0x16ba…16da Head {h00=0x001c, h01=0x0050, text=»* BY SETTING X:E = 0«, t00=0x000e, t01=0x00e0}
0x16da…16ec Head {h00=0x000e, h01=0x0050, text=»X:E EQU 1 «, t00=0x000e, t01=0x0100}
0x16ec…1702 Head {h00=0x0012, h01=0x0050, text=»CECHO EQU X:E «, t00=0x000e, t01=0x0112}
0x1702…170c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0128}
0x170c…171a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0132}
0x171a…1722 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0140}
0x1722…172a Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0148}
0x172a…173e Head {h00=0x0010, h01=0x0050, text=»RECHAN EQU 0«, t00=0x000e, t01=0x0150}
0x173e…1752 Head {h00=0x0010, h01=0x0050, text=»REMFC EQU 0 «, t00=0x000e, t01=0x0164}
0x1752…1766 Head {h00=0x0010, h01=0x0050, text=»CWTRT1 EQU *«, t00=0x000e, t01=0x0178}
0x1766…177a Head {h00=0x0010, h01=0x0050, text=»CWTRT2 EQU *«, t00=0x000e, t01=0x018c}
0x177a…178e Head {h00=0x0010, h01=0x0050, text=»CWTRT3 EQU *«, t00=0x000f, t01=0x0010}
0x178e…17a2 Head {h00=0x0010, h01=0x0050, text=»CWTRT4 EQU *«, t00=0x000f, t01=0x0024}
0x17a2…17b6 Head {h00=0x0010, h01=0x0050, text=»DWREMU EQU *«, t00=0x000f, t01=0x0038}
0x17b6…17c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x004c}
0x17c4…17ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005a}
0x17ce…17d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0064}
0x17d8…1816 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x000f, t01=0x006e}
0x1816…1854 Head {h00=0x003a, h01=0x0050, text=»* C W T L T 1 * «, t00=0x000f, t01=0x00ac}
0x1854…1892 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x000f, t01=0x00ea}
0x1892…189c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0128}
0x189c…18d4 Head {h00=0x0034, h01=0x0050, text=»* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 1«, t00=0x000f, t01=0x0132}
0x18d4…18de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016a}
0x18de…18e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0174}
0x18e8…190a Head {h00=0x001e, h01=0x0050, text=»DWA1 EQU /03 DEVICEADDRESS«, t00=0x000f, t01=0x017e}
0x190a…1914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0010}
0x1914…1934 Head {h00=0x001c, h01=0x0050, text=»CWTLT1 EQU * TABLE ENTRY«, t00=0x0010, t01=0x001a}
0x1934…1968 Head {h00=0x0030, h01=0x0050, text=»CWTLDW EQU *-CWTLT1 LAST OUTPUT DWT-ADDRESS «, t00=0x0010, t01=0x003a}
0x1968…1978 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0010, t01=0x006e}
0x1978…1994 Head {h00=0x0018, h01=0x0050, text=»CWTLOW EQU *-CWTLT1 «, t00=0x0010, t01=0x007e}
0x1994…19b4 Head {h00=0x001c, h01=0x0050, text=» DATA 0 LAST OUTPUT WORD«, t00=0x0010, t01=0x009a}
0x19b4…19e2 Head {h00=0x002a, h01=0x0050, text=»CWTITA EQU *-CWTLT1 ADDRESS TO INTLT1 «, t00=0x0010, t01=0x00ba}
0x19e2…19f6 Head {h00=0x0010, h01=0x0050, text=» DATA INTLT1«, t00=0x0010, t01=0x00e8}
0x19f6…1a16 Head {h00=0x001c, h01=0x0050, text=»CWTINR EQU *-CWTLT1 INR «, t00=0x0010, t01=0x00fc}
0x1a16…1a2c Head {h00=0x0012, h01=0x0050, text=» INR A2,0,DWA1«, t00=0x0010, t01=0x011c}
0x1a2c…1a4c Head {h00=0x001c, h01=0x0050, text=»CWTOTR EQU *-CWTLT1 OTR «, t00=0x0010, t01=0x0132}
0x1a4c…1a62 Head {h00=0x0012, h01=0x0050, text=» OTR A2,0,DWA1«, t00=0x0010, t01=0x0152}
0x1a62…1a88 Head {h00=0x0022, h01=0x0050, text=»CWTCIS EQU *-CWTLT1 CIO-START «, t00=0x0010, t01=0x0168}
0x1a88…1a9e Head {h00=0x0012, h01=0x0050, text=» CIO A2,1,DWA1«, t00=0x0010, t01=0x018e}
0x1a9e…1aba Head {h00=0x0018, h01=0x0050, text=»CWTRTC EQU *-CWTLT1 «, t00=0x0011, t01=0x0014}
0x1aba…1ae0 Head {h00=0x0022, h01=0x0050, text=» DATA 0 RETRANSMISSION COUNTER«, t00=0x0011, t01=0x0030}
0x1ae0…1b08 Head {h00=0x0024, h01=0x0050, text=»CWTEQ EQU *-CWTLT1 END OF QUEUE «, t00=0x0011, t01=0x0056}
0x1b08…1b18 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0011, t01=0x007e}
0x1b18…1b34 Head {h00=0x0018, h01=0x0050, text=»CWTADD EQU *-CWTLT1 «, t00=0x0011, t01=0x008e}
0x1b34…1b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00aa}
0x1b3e…1b54 Head {h00=0x0012, h01=0x0050, text=» IFT ACKMUL=1 «, t00=0x0011, t01=0x00b4}
0x1b54…1b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ca}
0x1b5e…1b7e Head {h00=0x001c, h01=0x0050, text=» DATA 0 NAK-ACKUMULATOR «, t00=0x0011, t01=0x00d4}
0x1b7e…1ba6 Head {h00=0x0024, h01=0x0050, text=» DATA 0 RETR. FAULT-ACKUMULATOR «, t00=0x0011, t01=0x00f4}
0x1ba6…1bd6 Head {h00=0x002c, h01=0x0050, text=» DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR «, t00=0x0011, t01=0x011c}
0x1bd6…1bf2 Head {h00=0x0018, h01=0x0050, text=»ACKTIM EQU *-CWTLT1 «, t00=0x0011, t01=0x014c}
0x1bf2…1c1e Head {h00=0x0028, h01=0x0050, text=» DATA 0 PRINTER TIMEOUT ACKUMULATOR «, t00=0x0011, t01=0x0168}
0x1c1e…1c28 (18, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0004}
0x1c28…1c34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x000e}
0x1c34…1c42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x001a}
0x1c42…1c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0028}
0x1c4c…1c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0032}
0x1c56…1c94 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0012, t01=0x003c}
0x1c94…1cd2 Head {h00=0x003a, h01=0x0050, text=»* C W T L T 2 * «, t00=0x0012, t01=0x007a}
0x1cd2…1d10 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0012, t01=0x00b8}
0x1d10…1d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f6}
0x1d1a…1d52 Head {h00=0x0034, h01=0x0050, text=»* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 2«, t00=0x0012, t01=0x0100}
0x1d52…1d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0138}
0x1d5c…1d70 Head {h00=0x0010, h01=0x0050, text=»CWTLT2 EQU *«, t00=0x0012, t01=0x0142}
0x1d70…1d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0156}
0x1d7a…1d90 Head {h00=0x0012, h01=0x0050, text=» IFT LOCHAN=2 «, t00=0x0012, t01=0x0160}
0x1d90…1d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0176}
0x1d9a…1da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0180}
0x1da4…1dde Head {h00=0x0036, h01=0x0050, text=»* CHANNEL UNIT WORK TABLE FOR LOCAL TERMINAL NO.2«, t00=0x0012, t01=0x018a}
0x1dde…1de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0034}
0x1de8…1e0c Head {h00=0x0020, h01=0x0050, text=»DWA2 EQU /13 DEVICE ADDRESS «, t00=0x0013, t01=0x003e}
0x1e0c…1e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0062}
0x1e16…1e3e Head {h00=0x0024, h01=0x0050, text=» DATA 0 LAST OUTPUT DWT-ADDRESS «, t00=0x0013, t01=0x006c}
0x1e3e…1e5e Head {h00=0x001c, h01=0x0050, text=» DATA 0 LAST OUTPUT WORD«, t00=0x0013, t01=0x0094}
0x1e5e…1e82 Head {h00=0x0020, h01=0x0050, text=» DATA INTLT2 INTERRUPT TABLE«, t00=0x0013, t01=0x00b4}
0x1e82…1e9c Head {h00=0x0016, h01=0x0050, text=» INR A2,0,DWA2 INR«, t00=0x0013, t01=0x00d8}
0x1e9c…1eb6 Head {h00=0x0016, h01=0x0050, text=» OTR A2,0,DWA2 OTR«, t00=0x0013, t01=0x00f2}
0x1eb6…1ed6 Head {h00=0x001c, h01=0x0050, text=» CIO A2,1,DWA2 CIO-START«, t00=0x0013, t01=0x010c}
0x1ed6…1efc Head {h00=0x0022, h01=0x0050, text=» DATA 0 RETRANSMISSION COUNTER«, t00=0x0013, t01=0x012c}
0x1efc…1f18 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF QUEUE«, t00=0x0013, t01=0x0152}
0x1f18…1f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x016e}
0x1f22…1f38 Head {h00=0x0012, h01=0x0050, text=» IFT ACKMUL=1 «, t00=0x0013, t01=0x0178}
0x1f38…1f42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018e}
0x1f42…1f62 Head {h00=0x001c, h01=0x0050, text=» DATA 0 NAK-ACKUMULATOR «, t00=0x0014, t01=0x0008}
0x1f62…1f8a Head {h00=0x0024, h01=0x0050, text=» DATA 0 RETR. FAULT-ACKUMULATOR «, t00=0x0014, t01=0x0028}
0x1f8a…1fba Head {h00=0x002c, h01=0x0050, text=» DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR«, t00=0x0014, t01=0x0050}
0x1fba…1fe6 Head {h00=0x0028, h01=0x0050, text=» DATA 0 PRINTER TIMEOUT ACKUMULATOR «, t00=0x0014, t01=0x0080}
0x1fe6…1ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ac}
0x1ff0…1ffc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00b6}
0x1ffc…2006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c2}
0x2006…2010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00cc}
0x2010…2026 Head {h00=0x0012, h01=0x0050, text=» IFT LOCHAN=2 «, t00=0x0014, t01=0x00d6}
0x2026…2030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ec}
0x2030…203e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00f6}
0x203e…2048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0104}
0x2048…207e Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0014, t01=0x010e}
0x207e…20b4 Head {h00=0x0032, h01=0x0050, text=»* C H T A B *«, t00=0x0014, t01=0x0144}
0x20b4…20ea Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0014, t01=0x017a}
0x20ea…20f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0020}
0x20f4…212e Head {h00=0x0036, h01=0x0050, text=»* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK «, t00=0x0015, t01=0x002a}
0x212e…216a Head {h00=0x0038, h01=0x0050, text=»* TABLES CWT TO CHANNEL UNITS FOR LOCAL AND REMOTE«, t00=0x0015, t01=0x0064}
0x216a…2180 Head {h00=0x0012, h01=0x0050, text=»* TERMINALS.«, t00=0x0015, t01=0x00a0}
0x2180…218a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b6}
0x218a…2194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c0}
0x2194…21a8 Head {h00=0x0010, h01=0x0050, text=»CHTAB EQU * «, t00=0x0015, t01=0x00ca}
0x21a8…21cc Head {h00=0x0020, h01=0x0050, text=» DATA CHTABE-* TABLE LENGTH «, t00=0x0015, t01=0x00de}
0x21cc…21e2 Head {h00=0x0012, h01=0x0050, text=» DATA CWTLT1 «, t00=0x0015, t01=0x0102}
0x21e2…21f6 Head {h00=0x0010, h01=0x0050, text=» DATA CWTLT2«, t00=0x0015, t01=0x0118}
0x21f6…2218 Head {h00=0x001e, h01=0x0050, text=»CHTABE EQU * END OF TABLE «, t00=0x0015, t01=0x012c}
0x2218…2222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014e}
0x2222…222c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0158}
0x222c…2236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0162}
0x2236…2240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016c}
0x2240…224c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0176}
0x224c…2256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0182}
0x2256…2264 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x018c}
0x2264…226e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000a}
0x226e…2284 Head {h00=0x0012, h01=0x0050, text=» IFT LOCHAN=2 «, t00=0x0016, t01=0x0014}
0x2284…228e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x002a}
0x228e…22b0 Head {h00=0x001e, h01=0x0050, text=»* C H L T 1 / C H L T 2 «, t00=0x0016, t01=0x0034}
0x22b0…22e2 Head {h00=0x002e, h01=0x0050, text=»* THIS IS THE INTERRUPT HANDLER FOR CHLT«, t00=0x0016, t01=0x0056}
0x22e2…22ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0088}
0x22ec…2302 Head {h00=0x0012, h01=0x0050, text=»* C H L T 1 «, t00=0x0016, t01=0x0092}
0x2302…2322 Head {h00=0x001c, h01=0x0050, text=»* INTERRUPT FROM CHLT1«, t00=0x0016, t01=0x00a8}
0x2322…232c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c8}
0x232c…2340 Head {h00=0x0010, h01=0x0050, text=»CHLT1 EQU * «, t00=0x0016, t01=0x00d2}
0x2340…2368 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0016, t01=0x00e6}
0x2368…2392 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS A1-A8«, t00=0x0016, t01=0x010e}
0x2392…23c4 Head {h00=0x002e, h01=0x0050, text=» LDKL A5,CWTLT1 SET CWT-ADDRESS FOR CHLT1 «, t00=0x0016, t01=0x0138}
0x23c4…23d6 Head {h00=0x000e, h01=0x0050, text=» RF CLT010«, t00=0x0016, t01=0x016a}
0x23d6…23e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017c}
0x23e0…23f6 Head {h00=0x0012, h01=0x0050, text=»* C H L T 2 «, t00=0x0016, t01=0x0186}
0x23f6…2416 Head {h00=0x001c, h01=0x0050, text=»* INTERRUPT FROM CHLT2«, t00=0x0017, t01=0x000c}
0x2416…2420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002c}
0x2420…2434 Head {h00=0x0010, h01=0x0050, text=»CHLT2 EQU * «, t00=0x0017, t01=0x0036}
0x2434…245c Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0017, t01=0x004a}
0x245c…2486 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS A1-A8«, t00=0x0017, t01=0x0072}
0x2486…24b8 Head {h00=0x002e, h01=0x0050, text=» LDKL A5,CWTLT2 SET CWT-ADDRESS FOR CHLT2 «, t00=0x0017, t01=0x009c}
0x24b8…24ec Head {h00=0x0030, h01=0x0050, text=»CLT010 EX CWTINR,A5 EXECUTE INR-INSTRUCTION «, t00=0x0017, t01=0x00ce}
0x24ec…24f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0102}
0x24f6…2502 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x010c}
0x2502…250c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0118}
0x250c…2516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0122}
0x2516…252c Head {h00=0x0012, h01=0x0050, text=» IFF LOCHAN=2 «, t00=0x0017, t01=0x012c}
0x252c…2536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0142}
0x2536…2540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014c}
0x2540…2556 Head {h00=0x0012, h01=0x0050, text=»* C H L T 1«, t00=0x0017, t01=0x0156}
0x2556…2560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016c}
0x2560…2582 Head {h00=0x001e, h01=0x0050, text=»* INTERRUPT FROM CHLT1 «, t00=0x0017, t01=0x0176}
0x2582…258c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0008}
0x258c…25a0 Head {h00=0x0010, h01=0x0050, text=»CHLT1 EQU * «, t00=0x0018, t01=0x0012}
0x25a0…25b4 Head {h00=0x0010, h01=0x0050, text=»CHLT2 EQU * «, t00=0x0018, t01=0x0026}
0x25b4…25e2 Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x0018, t01=0x003a}
0x25e2…260a Head {h00=0x0024, h01=0x0050, text=» LDKL A5,CWTLT1 GET CWT-ADDRESS «, t00=0x0018, t01=0x0068}
0x260a…2632 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0018, t01=0x0090}
0x2632…2648 Head {h00=0x0012, h01=0x0050, text=» INR A2,0,DWA1«, t00=0x0018, t01=0x00b8}
0x2648…2652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ce}
0x2652…265e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00d8}
0x265e…2668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e4}
0x2668…267e Head {h00=0x0012, h01=0x0050, text=» IFT LOGING=1 «, t00=0x0018, t01=0x00ee}
0x267e…26b0 Head {h00=0x002e, h01=0x0050, text=» CF A15,LOGG ** LOGG OF INPUT CHARACTER **«, t00=0x0018, t01=0x0104}
0x26b0…26bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0136}
0x26bc…26ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0142}
0x26ca…26d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0150}
0x26d4…26de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015a}
0x26de…270c Head {h00=0x002a, h01=0x0050, text=»* DETERMINE LINE- AND DEVICE NUMBER «, t00=0x0018, t01=0x0164}
0x270c…2716 (25, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0004}
0x2716…273a Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0019, t01=0x000e}
0x273a…275e Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 INPUT WORD IN A3 «, t00=0x0019, t01=0x0032}
0x275e…2770 Head {h00=0x000e, h01=0x0050, text=» SRL A3,8 «, t00=0x0019, t01=0x0056}
0x2770…2782 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0019, t01=0x0068}
0x2782…27aa Head {h00=0x0024, h01=0x0050, text=» ANK A3,/E 2 * LINE NUMBER IN A3«, t00=0x0019, t01=0x007a}
0x27aa…27bc Head {h00=0x000e, h01=0x0050, text=» SRL A4,3 «, t00=0x0019, t01=0x00a2}
0x27bc…27e6 Head {h00=0x0026, h01=0x0050, text=» ANK A4,/E 2 * DEVICE NUMBER IN A4«, t00=0x0019, t01=0x00b4}
0x27e6…2818 Head {h00=0x002e, h01=0x0050, text=» ABL(NE) CLT100 INPUT IS A DATA CHARACTER «, t00=0x0019, t01=0x00de}
0x2818…282c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0019, t01=0x0110}
0x282c…2848 Head {h00=0x0018, h01=0x0050, text=» SUK A2,3 POWER ON ?«, t00=0x0019, t01=0x0124}
0x2848…285e Head {h00=0x0012, h01=0x0050, text=» RF(E) CHPOWO «, t00=0x0019, t01=0x0140}
0x285e…2868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0156}
0x2868…2872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0160}
0x2872…28a6 Head {h00=0x0030, h01=0x0050, text=»* CHECK QUEUE AND SEND IF SOMETHING THERE«, t00=0x0019, t01=0x016a}
0x28a6…28b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000e}
0x28b0…28da Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A5 LAST OUTPUT DWT IN A7 «, t00=0x001a, t01=0x0018}
0x28da…28fc Head {h00=0x001e, h01=0x0050, text=» CMR A5 RESET LAST OUTPUT «, t00=0x001a, t01=0x0042}
0x28fc…2920 Head {h00=0x0020, h01=0x0050, text=» LD A6,CWTEQ,A5 OUTPUT QUEUE«, t00=0x001a, t01=0x0064}
0x2920…2936 Head {h00=0x0012, h01=0x0050, text=» RF(E) CLT020 «, t00=0x001a, t01=0x0088}
0x2936…2952 Head {h00=0x0018, h01=0x0050, text=» STR A2,A15 SAVE A2 «, t00=0x001a, t01=0x009e}
0x2952…297a Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOTQ,A6 GET QUEUE LINK «, t00=0x001a, t01=0x00ba}
0x297a…29a2 Head {h00=0x0024, h01=0x0050, text=» ST A2,CWTEQ,A5 STORE IT IN CWT «, t00=0x001a, t01=0x00e2}
0x29a2…29c8 Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTOCH,A6 GET CHARACTER«, t00=0x001a, t01=0x010a}
0x29c8…29ee Head {h00=0x0022, h01=0x0050, text=» CF A15,OUTLIN SEND CHARACTER «, t00=0x001a, t01=0x0130}
0x29ee…2a0c Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A15 RELOAD A2«, t00=0x001a, t01=0x0156}
0x2a0c…2a1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0174}
0x2a1a…2a24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0182}
0x2a24…2a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018c}
0x2a2e…2a64 Head {h00=0x0032, h01=0x0050, text=»* CHECK CONTROL CHARACTER AND UPDATE ERROR-«, t00=0x001b, t01=0x0008}
0x2a64…2a9a Head {h00=0x0032, h01=0x0050, text=»* ACKUMULATORS IF NAK, RETRANSMISSION FAULT«, t00=0x001b, t01=0x003e}
0x2a9a…2ac6 Head {h00=0x0028, h01=0x0050, text=»* OR UNDEFINED CONTROL CHARACTER «, t00=0x001b, t01=0x0074}
0x2ac6…2ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a0}
0x2ad0…2ae4 Head {h00=0x0010, h01=0x0050, text=»CLT020 EQU *«, t00=0x001b, t01=0x00aa}
0x2ae4…2b06 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A7 GET LAST OUTPUT«, t00=0x001b, t01=0x00be}
0x2b06…2b1c Head {h00=0x0012, h01=0x0050, text=» RF(E) CLT062 «, t00=0x001b, t01=0x00e0}
0x2b1c…2b34 Head {h00=0x0014, h01=0x0050, text=» SUK A2,4 ACK ? «, t00=0x001b, t01=0x00f6}
0x2b34…2b4a Head {h00=0x0012, h01=0x0050, text=» RF(Z) CLT040 «, t00=0x001b, t01=0x010e}
0x2b4a…2b66 Head {h00=0x0018, h01=0x0050, text=» ADK A2,7 TIME-OUT ?«, t00=0x001b, t01=0x0124}
0x2b66…2b7c Head {h00=0x0012, h01=0x0050, text=» RF(E) CLT028 «, t00=0x001b, t01=0x0140}
0x2b7c…2b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0156}
0x2b86…2b9c Head {h00=0x0012, h01=0x0050, text=» IFT ACKMUL=1 «, t00=0x001b, t01=0x0160}
0x2b9c…2ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0176}
0x2ba6…2bbe Head {h00=0x0014, h01=0x0050, text=» SUK A2,5 NAK ? «, t00=0x001b, t01=0x0180}
0x2bbe…2bd4 Head {h00=0x0012, h01=0x0050, text=» RF(E) CLT035 «, t00=0x001c, t01=0x0008}
0x2bd4…2be6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x001c, t01=0x001e}
0x2be6…2c0e Head {h00=0x0024, h01=0x0050, text=» SUK A2,/16 RETRANSMISSION FAULT«, t00=0x001c, t01=0x0030}
0x2c0e…2c24 Head {h00=0x0012, h01=0x0050, text=» RF(E) CLT025 «, t00=0x001c, t01=0x0058}
0x2c24…2c4a Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 UNDEFINED INTERRUPT «, t00=0x001c, t01=0x006e}
0x2c4a…2c62 Head {h00=0x0014, h01=0x0050, text=»CLT025 ADR A7,A5«, t00=0x001c, t01=0x0094}
0x2c62…2c96 Head {h00=0x0030, h01=0x0050, text=» IM CWTADD,A7 INCREMENT ACKUMULATOR FOR THIS«, t00=0x001c, t01=0x00ac}
0x2c96…2cb2 Head {h00=0x0018, h01=0x0050, text=» TYPE OF INTERRUPT«, t00=0x001c, t01=0x00e0}
0x2cb2…2cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00fc}
0x2cbc…2cc8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0106}
0x2cc8…2cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0112}
0x2cd2…2ce0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x011c}
0x2ce0…2cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x012a}
0x2cea…2cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0134}
0x2cf4…2d28 Head {h00=0x0030, h01=0x0050, text=»* NAK, TIME-OUT, RETRANSMISSION FAULT OR «, t00=0x001c, t01=0x013e}
0x2d28…2d50 Head {h00=0x0024, h01=0x0050, text=»* UNDEFINED CONTROL CHARACTER«, t00=0x001c, t01=0x0172}
0x2d50…2d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x000a}
0x2d5a…2d98 Head {h00=0x003a, h01=0x0050, text=»* CHECK LAST OUTPUT AND TRY RECOVERY OF THAT DEVICE«, t00=0x001d, t01=0x0014}
0x2d98…2dd0 Head {h00=0x0034, h01=0x0050, text=»* ONE TIME. IF NOT SUCCESS GO TO DRIVER WITH «, t00=0x001d, t01=0x0052}
0x2dd0…2df2 Head {h00=0x001e, h01=0x0050, text=»* MESSAGE NOT OPERABLE.«, t00=0x001d, t01=0x008a}
0x2df2…2dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ac}
0x2dfc…2e10 Head {h00=0x0010, h01=0x0050, text=»CLT028 EQU *«, t00=0x001d, t01=0x00b6}
0x2e10…2e42 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,/3000 ECHO MODE AND RECOVERY BIT «, t00=0x001d, t01=0x00ca}
0x2e42…2e78 Head {h00=0x0032, h01=0x0050, text=» AN A2,DWTST,A6 AT LEAST ONE OF THE BITS SET ?«, t00=0x001d, t01=0x00fc}
0x2e78…2e8e Head {h00=0x0012, h01=0x0050, text=» RF(NE) CLT032«, t00=0x001d, t01=0x0132}
0x2e8e…2ec2 Head {h00=0x0030, h01=0x0050, text=» LDKL A2,/1000 INDICATE RECOVERY TRIAL DONE «, t00=0x001d, t01=0x0148}
0x2ec2…2ef2 Head {h00=0x002c, h01=0x0050, text=» XRS A2,DWTST,A6 SET BIT IN STATUS WORD «, t00=0x001d, t01=0x017c}
0x2ef2…2f26 Head {h00=0x0030, h01=0x0050, text=»CLT030 LDK A3,2 INDICATE RECOVERY OF DEVICE «, t00=0x001e, t01=0x001c}
0x2f26…2f38 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001e, t01=0x0050}
0x2f38…2f4a Head {h00=0x000e, h01=0x0050, text=» RF CPO025«, t00=0x001e, t01=0x0062}
0x2f4a…2f7c Head {h00=0x002e, h01=0x0050, text=»CLT032 LDK A1,NOERR INDICATE NOT OPERABLE «, t00=0x001e, t01=0x0074}
0x2f7c…2f8e Head {h00=0x000e, h01=0x0050, text=» RF CLT110«, t00=0x001e, t01=0x00a6}
0x2f8e…2f9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00b8}
0x2f9c…2fa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c6}
0x2fa6…2fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d0}
0x2fb0…2fc2 Head {h00=0x000e, h01=0x0050, text=»* N A K«, t00=0x001e, t01=0x00da}
0x2fc2…2fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ec}
0x2fcc…3012 Head {h00=0x0042, h01=0x0050, text=»* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS UPDATED. «, t00=0x001e, t01=0x00f6}
0x3012…3058 Head {h00=0x0042, h01=0x0050, text=»* LAST OUTPUT CHARACTER IS RETRANSMITTED BY CHANNEL DRIVER «, t00=0x001e, t01=0x013c}
0x3058…309c Head {h00=0x0040, h01=0x0050, text=»* UP TO SIX TIMES AND IF STILL NO SUCCESS RETURN CODE NOT«, t00=0x001e, t01=0x0182}
0x309c…30cc Head {h00=0x002c, h01=0x0050, text=»* OPERABLE IS SENT TO DEVICE DRIVER. «, t00=0x001f, t01=0x0036}
0x30cc…30d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0066}
0x30d6…30ea Head {h00=0x0010, h01=0x0050, text=»CLT035 EQU *«, t00=0x001f, t01=0x0070}
0x30ea…3100 Head {h00=0x0012, h01=0x0050, text=» IFT ACKMUL=1 «, t00=0x001f, t01=0x0084}
0x3100…310a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x009a}
0x310a…3138 Head {h00=0x002a, h01=0x0050, text=» IM CWTADD,A5 UPDATE ERROR ACKUMULATOR«, t00=0x001f, t01=0x00a4}
0x3138…3144 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00d2}
0x3144…314e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00de}
0x314e…3184 Head {h00=0x0032, h01=0x0050, text=» IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER«, t00=0x001f, t01=0x00e8}
0x3184…31a8 Head {h00=0x0020, h01=0x0050, text=» LD A4,CWTRTC,A5 GET COUNTER«, t00=0x001f, t01=0x011e}
0x31a8…31c8 Head {h00=0x001c, h01=0x0050, text=» SUK A4,7 SEVEN TIMES ? «, t00=0x001f, t01=0x0142}
0x31c8…31de Head {h00=0x0012, h01=0x0050, text=» RB(E) CLT032 «, t00=0x001f, t01=0x0162}
0x31de…320c Head {h00=0x002a, h01=0x0050, text=» LD A2,CWTLOW,A5 GET LAST OUTPUT WORD «, t00=0x001f, t01=0x0178}
0x320c…321e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0020, t01=0x0016}
0x321e…324c Head {h00=0x002a, h01=0x0050, text=» EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION «, t00=0x0020, t01=0x0028}
0x324c…3274 Head {h00=0x0024, h01=0x0050, text=» STR A6,A1 STORE LAST DWT IN CWT«, t00=0x0020, t01=0x0056}
0x3274…328a Head {h00=0x0012, h01=0x0050, text=» IFT LOGING=1 «, t00=0x0020, t01=0x007e}
0x328a…32bc Head {h00=0x002e, h01=0x0050, text=» CF A15,LOGG ** LOGG OUTPUT CHARACTER **«, t00=0x0020, t01=0x0094}
0x32bc…32c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00c6}
0x32c8…32fe Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT«, t00=0x0020, t01=0x00d2}
0x32fe…3310 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0020, t01=0x0108}
0x3310…331e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x011a}
0x331e…3328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0128}
0x3328…3332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0132}
0x3332…3352 Head {h00=0x001c, h01=0x0050, text=»* ACK DATA = 07 «, t00=0x0020, t01=0x013c}
0x3352…335c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x015c}
0x335c…3392 Head {h00=0x0032, h01=0x0050, text=»* SIMULATE DATA REQUEST IF RETURN CODE FROM«, t00=0x0020, t01=0x0166}
0x3392…33c4 Head {h00=0x002e, h01=0x0050, text=»* CHLT OR DEVICE WITHOUT DATA REQUEST, «, t00=0x0021, t01=0x000c}
0x33c4…33e6 Head {h00=0x001e, h01=0x0050, text=»* ELSE GO TO DISPATCHER«, t00=0x0021, t01=0x003e}
0x33e6…33f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0060}
0x33f0…3404 Head {h00=0x0010, h01=0x0050, text=»CLT040 EQU *«, t00=0x0021, t01=0x006a}
0x3404…341a Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/EFFF«, t00=0x0021, t01=0x007e}
0x341a…3454 Head {h00=0x0036, h01=0x0050, text=» ANS A7,DWTST,A6 RESET RECOVERY BIT IN STATUS WORD«, t00=0x0021, t01=0x0094}
0x3454…3466 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0021, t01=0x00ce}
0x3466…349e Head {h00=0x0034, h01=0x0050, text=» RF(NZ) CLT110 RETURN CODE,SIMULATE DATA REQUEST«, t00=0x0021, t01=0x00e0}
0x349e…34ce Head {h00=0x002c, h01=0x0050, text=» LDR* A7,A6 DEVICE WITHOUT DATA REQUEST?«, t00=0x0021, t01=0x0118}
0x34ce…34fe Head {h00=0x002c, h01=0x0050, text=» RF(N) CLT110 YES. SIMULATE DATA REQUEST«, t00=0x0021, t01=0x0148}
0x34fe…3508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0178}
0x3508…351e Head {h00=0x0012, h01=0x0050, text=» IFF SOFTIM=1 «, t00=0x0021, t01=0x0182}
0x351e…3528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0008}
0x3528…353c Head {h00=0x0010, h01=0x0050, text=»CLT062 EQU *«, t00=0x0022, t01=0x0012}
0x353c…354c Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0022, t01=0x0026}
0x354c…3556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0036}
0x3556…3562 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0040}
0x3562…356c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x004c}
0x356c…3576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0056}
0x3576…358c Head {h00=0x0012, h01=0x0050, text=» IFT SOFTIM=1 «, t00=0x0022, t01=0x0060}
0x358c…3596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0076}
0x3596…35a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0080}
0x35a4…35ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x008e}
0x35ae…35b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0098}
0x35b8…35d4 Head {h00=0x0018, h01=0x0050, text=»* PRINTER TIMING «, t00=0x0022, t01=0x00a2}
0x35d4…35de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00be}
0x35de…35ea Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0022, t01=0x00c8}
0x35ea…3616 Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTOCH,A6 GET LAST CHARACTER «, t00=0x0022, t01=0x00d4}
0x3616…362a Head {h00=0x0010, h01=0x0050, text=» ANK A3,/7F «, t00=0x0022, t01=0x0100}
0x362a…364e Head {h00=0x0020, h01=0x0050, text=» SUK A3,DUMMSP SPECIAL DUMMY«, t00=0x0022, t01=0x0114}
0x364e…3668 Head {h00=0x0016, h01=0x0050, text=» RF(E) CLT070 YES «, t00=0x0022, t01=0x0138}
0x3668…3696 Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTTP,A6 ADDRESS TO TIMER BLOCK«, t00=0x0022, t01=0x0152}
0x3696…36ac Head {h00=0x0012, h01=0x0050, text=» RF(E) CLT060 «, t00=0x0022, t01=0x0180}
0x36ac…36b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0008}
0x36b6…36d0 Head {h00=0x0016, h01=0x0050, text=»* RESTART TIMER«, t00=0x0023, t01=0x0012}
0x36d0…36da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x002c}
0x36da…3700 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,-DRQTIM RESTART TIMER«, t00=0x0023, t01=0x0036}
0x3700…3718 Head {h00=0x0014, h01=0x0050, text=» ST* A3,DWTTP,A6«, t00=0x0023, t01=0x005c}
0x3718…3728 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0023, t01=0x0074}
0x3728…3732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0084}
0x3732…374a Head {h00=0x0014, h01=0x0050, text=»* START TIMER«, t00=0x0023, t01=0x008e}
0x374a…3754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a6}
0x3754…3776 Head {h00=0x001e, h01=0x0050, text=»CLT060 LDR A1,A6 PARAMETER«, t00=0x0023, t01=0x00b0}
0x3776…379a Head {h00=0x0020, h01=0x0050, text=» LDK A4,DWTTP TIMER POINTER «, t00=0x0023, t01=0x00d2}
0x379a…37c2 Head {h00=0x0024, h01=0x0050, text=» ADR A4,A6 ADD WITH DWT-ADDRESS «, t00=0x0023, t01=0x00f6}
0x37c2…37e8 Head {h00=0x0022, h01=0x0050, text=» CF A15,SETIMP GET TIMER BLOCK«, t00=0x0023, t01=0x011e}
0x37e8…382a Head {h00=0x003e, h01=0x0050, text=» DATA DRQTUT,DRQTIM ADDRESS TO TIME-OUT ROUTINE AND DELAY «, t00=0x0023, t01=0x0144}
0x382a…383e Head {h00=0x0010, h01=0x0050, text=»CLT062 EQU *«, t00=0x0023, t01=0x0186}
0x383e…384e Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0024, t01=0x000a}
0x384e…3856 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x001a}
0x3856…3864 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0022}
0x3864…386e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0030}
0x386e…3878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x003a}
0x3878…389c Head {h00=0x0020, h01=0x0050, text=»* RESET TIMER IF STARTED «, t00=0x0024, t01=0x0044}
0x389c…38a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0068}
0x38a6…38ce Head {h00=0x0024, h01=0x0050, text=»CLT070 LD A3,DWTTP,A6 ADDRESS ? «, t00=0x0024, t01=0x0072}
0x38ce…38e4 Head {h00=0x0012, h01=0x0050, text=» RF(E) EXIT NO«, t00=0x0024, t01=0x009a}
0x38e4…3906 Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x0024, t01=0x00b0}
0x3906…3938 Head {h00=0x002e, h01=0x0050, text=» CM DWTTP,A6 RESET ADDRESSPOINTER TO TIMER«, t00=0x0024, t01=0x00d2}
0x3938…3948 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0024, t01=0x0104}
0x3948…3956 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0114}
0x3956…3960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0122}
0x3960…399a Head {h00=0x0036, h01=0x0050, text=»* TIME-OUT ROUTINE HANDLING MISSING INTERRUPTS «, t00=0x0024, t01=0x012c}
0x399a…39b4 Head {h00=0x0016, h01=0x0050, text=»* FROM PRINTERS«, t00=0x0024, t01=0x0166}
0x39b4…39be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0180}
0x39be…39d2 Head {h00=0x0010, h01=0x0050, text=»DRQTUT EQU *«, t00=0x0024, t01=0x018a}
0x39d2…39f4 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS«, t00=0x0025, t01=0x000e}
0x39f4…3a26 Head {h00=0x002e, h01=0x0050, text=» CM DWTTP,A6 RESET POINTER TO TIMER BLOCK «, t00=0x0025, t01=0x0030}
0x3a26…3a3e Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x0025, t01=0x0062}
0x3a3e…3a5c Head {h00=0x001a, h01=0x0050, text=» SLL A3,2 ECHO MODE ? «, t00=0x0025, t01=0x007a}
0x3a5c…3a76 Head {h00=0x0016, h01=0x0050, text=» RF(N) CLT110 YES «, t00=0x0025, t01=0x0098}
0x3a76…3a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b2}
0x3a80…3a96 Head {h00=0x0012, h01=0x0050, text=» IFT ACKMUL=1 «, t00=0x0025, t01=0x00bc}
0x3a96…3aac Head {h00=0x0012, h01=0x0050, text=» IFT LOCHAN=2 «, t00=0x0025, t01=0x00d2}
0x3aac…3ab6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00e8}
0x3ab6…3adc Head {h00=0x0022, h01=0x0050, text=» LDR* A5,A6 CHANNEL PARAMETER «, t00=0x0025, t01=0x00f2}
0x3adc…3aee Head {h00=0x000e, h01=0x0050, text=» ANK A5,/E«, t00=0x0025, t01=0x0118}
0x3aee…3b16 Head {h00=0x0024, h01=0x0050, text=» LD A5,CHTAB,A5 GET CWT-ADDRESS «, t00=0x0025, t01=0x012a}
0x3b16…3b42 Head {h00=0x0028, h01=0x0050, text=» IM ACKTIM,A5 INCREMENT ACKUMULATOR «, t00=0x0025, t01=0x0152}
0x3b42…3b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017e}
0x3b4c…3b58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0188}
0x3b58…3b6e (38, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT SOFTIM=1 «, t00=0x0026, t01=0x0004}
0x3b6e…3b84 Head {h00=0x0012, h01=0x0050, text=» IFT ACKMUL=1 «, t00=0x0026, t01=0x001a}
0x3b84…3b9a Head {h00=0x0012, h01=0x0050, text=» IFF LOCHAN=2 «, t00=0x0026, t01=0x0030}
0x3b9a…3ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0046}
0x3ba4…3bcc Head {h00=0x0024, h01=0x0050, text=» LDKL A5,CWTLT1 GET CWT-ADDRESS «, t00=0x0026, t01=0x0050}
0x3bcc…3bf8 Head {h00=0x0028, h01=0x0050, text=» IM ACKTIM,A5 INCREMENT ACKUMULATOR «, t00=0x0026, t01=0x0078}
0x3bf8…3c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a4}
0x3c02…3c0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00ae}
0x3c0e…3c24 Head {h00=0x0012, h01=0x0050, text=» IFT SOFTIM=1 «, t00=0x0026, t01=0x00ba}
0x3c24…3c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d0}
0x3c2e…3c40 Head {h00=0x000e, h01=0x0050, text=» RB CLT030«, t00=0x0026, t01=0x00da}
0x3c40…3c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ec}
0x3c4a…3c56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00f6}
0x3c56…3c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0102}
0x3c60…3c6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x010c}
0x3c6e…3c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x011a}
0x3c78…3c9a Head {h00=0x001e, h01=0x0050, text=»* POWER ON DATA = 03 «, t00=0x0026, t01=0x0124}
0x3c9a…3ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0146}
0x3ca4…3cde Head {h00=0x0036, h01=0x0050, text=»* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE«, t00=0x0026, t01=0x0150}
0x3cde…3d18 Head {h00=0x0036, h01=0x0050, text=»* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL«, t00=0x0026, t01=0x018a}
0x3d18…3d40 Head {h00=0x0024, h01=0x0050, text=»* UNIT OR THOSE IN ECHO MODE.«, t00=0x0027, t01=0x0034}
0x3d40…3d4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x005c}
0x3d4a…3d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0066}
0x3d54…3d7e Head {h00=0x0026, h01=0x0050, text=»* ON EXIT TO RECOVERY ROUTINE:«, t00=0x0027, t01=0x0070}
0x3d7e…3d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x009a}
0x3d88…3dae Head {h00=0x0022, h01=0x0050, text=»* A5 = STACKBASE 2 IN DWT «, t00=0x0027, t01=0x00a4}
0x3dae…3dcc Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0027, t01=0x00ca}
0x3dcc…3de4 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER«, t00=0x0027, t01=0x00e8}
0x3de4…3dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0100}
0x3dee…3e02 Head {h00=0x0010, h01=0x0050, text=»CHPOWO EQU *«, t00=0x0027, t01=0x010a}
0x3e02…3e18 Head {h00=0x0012, h01=0x0050, text=» CF A15,GETLIN«, t00=0x0027, t01=0x011e}
0x3e18…3e40 Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A5 GET LAST OUTPUT DWT «, t00=0x0027, t01=0x0134}
0x3e40…3e72 Head {h00=0x002e, h01=0x0050, text=» CM CWTRTC,A5 RESET RETRANSMISSION COUNTER«, t00=0x0027, t01=0x015c}
0x3e72…3e84 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0027, t01=0x018e}
0x3e84…3ea6 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A6 DEVICE COUNTER «, t00=0x0028, t01=0x0010}
0x3ea6…3ec8 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 ADDRESS POINTER«, t00=0x0028, t01=0x0032}
0x3ec8…3ef0 Head {h00=0x0024, h01=0x0050, text=» RF(Z) EXIT EXIT IF NOT DEFINED «, t00=0x0028, t01=0x0054}
0x3ef0…3f08 Head {h00=0x0014, h01=0x0050, text=»CPO020 ADK A1,2 «, t00=0x0028, t01=0x007c}
0x3f08…3f2c Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A1 GET DWT-ADDRESS «, t00=0x0028, t01=0x0094}
0x3f2c…3f48 Head {h00=0x0018, h01=0x0050, text=» RF(E) CPO030 NO DWT«, t00=0x0028, t01=0x00b8}
0x3f48…3f5a Head {h00=0x000e, h01=0x0050, text=» SRC A6,1 «, t00=0x0028, t01=0x00d4}
0x3f5a…3f70 Head {h00=0x0012, h01=0x0050, text=» RF(N) CPO030 «, t00=0x0028, t01=0x00e6}
0x3f70…3f82 Head {h00=0x000e, h01=0x0050, text=» SLC A6,1 «, t00=0x0028, t01=0x00fc}
0x3f82…3fa8 Head {h00=0x0022, h01=0x0050, text=» LCR A7,A6 LEFT BYTE OF DWTCHP«, t00=0x0028, t01=0x010e}
0x3fa8…3fc8 Head {h00=0x001c, h01=0x0050, text=» ANK A7,1 INPUT DEVICE ?«, t00=0x0028, t01=0x0134}
0x3fc8…3fe2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CPO025 YES«, t00=0x0028, t01=0x0154}
0x3fe2…3ff8 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/EFFF«, t00=0x0028, t01=0x016e}
0x3ff8…4024 Head {h00=0x0028, h01=0x0050, text=» ANS A7,DWTST,A6 RESET RECOVERY BIT «, t00=0x0028, t01=0x0184}
0x4024…403c Head {h00=0x0014, h01=0x0050, text=» LC A7,DWTST,A6 «, t00=0x0029, t01=0x0020}
0x403c…405c Head {h00=0x001c, h01=0x0050, text=» ANK A7,/20 ECHO MODE ? «, t00=0x0029, t01=0x0038}
0x405c…4076 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CPO030 YES«, t00=0x0029, t01=0x0058}
0x4076…40ac Head {h00=0x0032, h01=0x0050, text=» CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER ?«, t00=0x0029, t01=0x0072}
0x40ac…40c6 Head {h00=0x0016, h01=0x0050, text=» RF(E) CPO030 YES «, t00=0x0029, t01=0x00a8}
0x40c6…4102 Head {h00=0x0038, h01=0x0050, text=»CPO025 LD A7,DWTADR,A6 ADDRESS TO ADDRESSBLOCK IN A7«, t00=0x0029, t01=0x00c2}
0x4102…4130 Head {h00=0x002a, h01=0x0050, text=» LD A7,4,A7 ADDRESS TO RECOVERY IN A7 «, t00=0x0029, t01=0x00fe}
0x4130…4152 Head {h00=0x001e, h01=0x0050, text=» RF(E) CPO030 NO RECOVERY «, t00=0x0029, t01=0x012c}
0x4152…4174 Head {h00=0x001e, h01=0x0050, text=» LDKL A5,DWTSB2 STACKBASE «, t00=0x0029, t01=0x014e}
0x4174…4186 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0029, t01=0x0170}
0x4186…41b0 Head {h00=0x0026, h01=0x0050, text=» CFR A15,A7 GO TO RECOVERY ROUTINE«, t00=0x0029, t01=0x0182}
0x41b0…41dc Head {h00=0x0028, h01=0x0050, text=»CPO030 SUK A3,2 ALL DEVICES THREATED«, t00=0x002a, t01=0x001c}
0x41dc…41e4 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0048}
0x41e4…4208 Head {h00=0x0020, h01=0x0050, text=» RB(NE) CPO020 NO TAKE NEXT «, t00=0x002a, t01=0x0050}
0x4208…421e Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x002a, t01=0x0074}
0x421e…422c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x008a}
0x422c…4236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0098}
0x4236…4240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00a2}
0x4240…425a Head {h00=0x0016, h01=0x0050, text=»* DATA-REQUEST«, t00=0x002a, t01=0x00ac}
0x425a…4264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c6}
0x4264…4290 Head {h00=0x0028, h01=0x0050, text=»CLT100 CF A15,GETLIN GET DWT-ADDRESS«, t00=0x002a, t01=0x00d0}
0x4290…42b4 Head {h00=0x0020, h01=0x0050, text=» SUR A6,A4 VALID INTERRUPT ?«, t00=0x002a, t01=0x00fc}
0x42b4…42c8 Head {h00=0x0010, h01=0x0050, text=» RB(N) EXIT «, t00=0x002a, t01=0x0120}
0x42c8…42da Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x002a, t01=0x0134}
0x42da…42fe Head {h00=0x0020, h01=0x0050, text=» RB(Z) EXIT EXIT NOT DEFINED«, t00=0x002a, t01=0x0146}
0x42fe…431a Head {h00=0x0018, h01=0x0050, text=» LDR* A6,A8 GET DWT «, t00=0x002a, t01=0x016a}
0x431a…432e Head {h00=0x0010, h01=0x0050, text=» RB(E) EXIT «, t00=0x002a, t01=0x0186}
0x432e…4344 Head {h00=0x0012, h01=0x0050, text=» ANKL A6,/FFFE«, t00=0x002b, t01=0x000a}
0x4344…4376 Head {h00=0x002e, h01=0x0050, text=» LCR A7,A6 LEFT BYTE IN CHANNEL PARAMETER «, t00=0x002b, t01=0x0020}
0x4376…4394 Head {h00=0x001a, h01=0x0050, text=» ANK A7,1 DATA INPUT ?«, t00=0x002b, t01=0x0052}
0x4394…43ae Head {h00=0x0016, h01=0x0050, text=» RF(NE) CLT110 YES«, t00=0x002b, t01=0x0070}
0x43ae…43d8 Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A6 GET CHANNEL PARAMETER «, t00=0x002b, t01=0x008a}
0x43d8…43ec Head {h00=0x0010, h01=0x0050, text=» RB(N) EXIT «, t00=0x002b, t01=0x00b4}
0x43ec…441a Head {h00=0x002a, h01=0x0050, text=»CLT110 LD A7,DWTOR,A6 SET ORDER IN A7 «, t00=0x002b, t01=0x00c8}
0x441a…442e Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x002b, t01=0x00f6}
0x442e…445c Head {h00=0x002a, h01=0x0050, text=» LD A8,DWTECB,A6 AND ECB-ADDRESS IN A8«, t00=0x002b, t01=0x010a}
0x445c…4494 Head {h00=0x0034, h01=0x0050, text=» LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A3 «, t00=0x002b, t01=0x0138}
0x4494…44a0 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002b, t01=0x0170}
0x44a0…44ca Head {h00=0x0026, h01=0x0050, text=» ABI 2,A3 GO TO INTERRUPT HANDLER «, t00=0x002b, t01=0x017c}
0x44ca…44d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0016}
0x44d4…4516 Head {h00=0x003e, h01=0x0050, text=»* THE FOLLOWING REGISTER VAULES ARE VALID WHEN ENTERING «, t00=0x002c, t01=0x0020}
0x4516…454a Head {h00=0x0030, h01=0x0050, text=»* THE DEVICE DEPENDANT INTERRUPT HANDLER:-«, t00=0x002c, t01=0x0062}
0x454a…4554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0096}
0x4554…4580 Head {h00=0x0028, h01=0x0050, text=»* A1 = ERROR CODE (A1=0 NOERROR)«, t00=0x002c, t01=0x00a0}
0x4580…45c6 Head {h00=0x0042, h01=0x0050, text=»* (A1=1 NOT OPERABLE , HARDWARE TIME-OUT) «, t00=0x002c, t01=0x00cc}
0x45c6…45e2 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x002c, t01=0x0112}
0x45e2…45ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x012e}
0x45ec…4602 Head {h00=0x0012, h01=0x0050, text=»* A7 = ORDER«, t00=0x002c, t01=0x0138}
0x4602…460c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x014e}
0x460c…4628 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x002c, t01=0x0158}
0x4628…4636 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0174}
0x4636…4640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0182}
0x4640…4658 Head {h00=0x0014, h01=0x0050, text=»* G E T L I N «, t00=0x002c, t01=0x018c}
0x4658…4662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0014}
0x4662…46a4 Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINE TO GET ADDRESS IN INTERRUPT TABLE 'INTLTX' «, t00=0x002d, t01=0x001e}
0x46a4…46d4 Head {h00=0x002c, h01=0x0050, text=»* FOR A GIVEN LINE- AND DEVICE NUMBER «, t00=0x002d, t01=0x0060}
0x46d4…46de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0090}
0x46de…46f4 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:-«, t00=0x002d, t01=0x009a}
0x46f4…46fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b0}
0x46fe…471e Head {h00=0x001c, h01=0x0050, text=»* A3 = LINE NUMBER * 2«, t00=0x002d, t01=0x00ba}
0x471e…4740 Head {h00=0x001e, h01=0x0050, text=»* A4 = DEVICE NUMBER * 2«, t00=0x002d, t01=0x00da}
0x4740…474a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00fc}
0x474a…4760 Head {h00=0x0012, h01=0x0050, text=»* ON EXIT:- «, t00=0x002d, t01=0x0106}
0x4760…476a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x011c}
0x476a…47a4 Head {h00=0x0036, h01=0x0050, text=»* A6 = TOTAL NUMBER OF DEVICES*2 ON ACTUAL LINE «, t00=0x002d, t01=0x0126}
0x47a4…47e4 Head {h00=0x003c, h01=0x0050, text=»* A8 = ADDRESS IN 'INTLTX' WHERE DWT-ADDRESS IS FOUND «, t00=0x002d, t01=0x0160}
0x47e4…47ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0010}
0x47ee…47f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x001a}
0x47f8…480c Head {h00=0x0010, h01=0x0050, text=»GETLIN EQU *«, t00=0x002e, t01=0x0024}
0x480c…4840 Head {h00=0x0030, h01=0x0050, text=» LD A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE «, t00=0x002e, t01=0x0038}
0x4840…4848 Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x006c}
0x4848…486c Head {h00=0x0020, h01=0x0050, text=» ADR A8,A3 POSITION IN TABLE«, t00=0x002e, t01=0x0074}
0x486c…489c Head {h00=0x002c, h01=0x0050, text=» LDR* A8,A8 ADDRESS TO TERMINAL SECTION «, t00=0x002e, t01=0x0098}
0x489c…48c8 Head {h00=0x0028, h01=0x0050, text=» RF(Z) GTL010 RETURN IF NOT DEFINED «, t00=0x002e, t01=0x00c8}
0x48c8…48e8 Head {h00=0x001c, h01=0x0050, text=» LDR* A6,A8 GET ID-WORD «, t00=0x002e, t01=0x00f4}
0x48e8…4918 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/FF TWO TIMES NUMBER OF DEVICES «, t00=0x002e, t01=0x0114}
0x4918…4950 Head {h00=0x0034, h01=0x0050, text=» ADR A8,A4 ADDRESS TO DEVICE WORK TABLE POSITION«, t00=0x002e, t01=0x0144}
0x4950…4978 Head {h00=0x0024, h01=0x0050, text=»GTL010 ABL RTNA15 RETURN AND ENB«, t00=0x002e, t01=0x017c}
0x4978…4986 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0014}
0x4986…4990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0022}
0x4990…49a8 Head {h00=0x0014, h01=0x0050, text=»* O U T L I N «, t00=0x002f, t01=0x002c}
0x49a8…49b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0044}
0x49b2…49f0 Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINE TO SEND ONE CHARACTER VIA CHANNEL UNIT.«, t00=0x002f, t01=0x004e}
0x49f0…49fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x008c}
0x49fa…4a3a Head {h00=0x003c, h01=0x0050, text=»* CHARACTER GIVEN IN A2 IS SENT VIA CHLT IF CONTROL «, t00=0x002f, t01=0x0096}
0x4a3a…4a76 Head {h00=0x0038, h01=0x0050, text=»* UNIT IS FREE. IN OTHER CASE DWT IS QUEUED ON A«, t00=0x002f, t01=0x00d6}
0x4a76…4a98 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT QUEUE THREAD.«, t00=0x002f, t01=0x0112}
0x4a98…4aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0134}
0x4aa2…4aba Head {h00=0x0014, h01=0x0050, text=»* ON ENTRY: «, t00=0x002f, t01=0x013e}
0x4aba…4ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0156}
0x4ac4…4af6 Head {h00=0x002e, h01=0x0050, text=»* A2 = OUTPUT CHARACTER IN RIGHT BYTE «, t00=0x002f, t01=0x0160}
0x4af6…4b14 (48, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0030, t01=0x0004}
0x4b14…4b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0022}
0x4b1e…4b32 Head {h00=0x0010, h01=0x0050, text=»OUTLIN EQU *«, t00=0x0030, t01=0x002c}
0x4b32…4b58 Head {h00=0x0022, h01=0x0050, text=» CF A15,SAVE8 SAVE REGS A1-A8 «, t00=0x0030, t01=0x0040}
0x4b58…4b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0066}
0x4b62…4b78 Head {h00=0x0012, h01=0x0050, text=» IFT LOCHAN=2 «, t00=0x0030, t01=0x0070}
0x4b78…4b82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0086}
0x4b82…4ba8 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0030, t01=0x0090}
0x4ba8…4bc8 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/F CHANNEL INDEX«, t00=0x0030, t01=0x00b6}
0x4bc8…4bda Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0030, t01=0x00d6}
0x4bda…4c08 Head {h00=0x002a, h01=0x0050, text=» LD A1,CHTAB,A1 GET CWT-ADDRESS IN A1 «, t00=0x0030, t01=0x00e8}
0x4c08…4c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0116}
0x4c12…4c1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0120}
0x4c1e…4c28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x012c}
0x4c28…4c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0136}
0x4c32…4c48 Head {h00=0x0012, h01=0x0050, text=» IFF LOCHAN=2 «, t00=0x0030, t01=0x0140}
0x4c48…4c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0156}
0x4c52…4c6a Head {h00=0x0014, h01=0x0050, text=» LDKL A1,CWTLT1 «, t00=0x0030, t01=0x0160}
0x4c6a…4c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0178}
0x4c74…4c80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0182}
0x4c80…4c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x018e}
0x4c8a…4caa Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPT «, t00=0x0031, t01=0x0008}
0x4caa…4ccc Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A1 IS UNIT FREE ?«, t00=0x0031, t01=0x0028}
0x4ccc…4ce6 Head {h00=0x0016, h01=0x0050, text=» RF(E) OUL050 YES «, t00=0x0031, t01=0x004a}
0x4ce6…4cf4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0064}
0x4cf4…4cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0072}
0x4cfe…4d18 Head {h00=0x0016, h01=0x0050, text=»* QUEUE OUTPUT «, t00=0x0031, t01=0x007c}
0x4d18…4d22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0096}
0x4d22…4d4c Head {h00=0x0026, h01=0x0050, text=»OUL005 LD A4,CWTEQ,A1 OUTPUT QUEUE«, t00=0x0031, t01=0x00a0}
0x4d4c…4d62 Head {h00=0x0012, h01=0x0050, text=» RF(E) OUL020 «, t00=0x0031, t01=0x00ca}
0x4d62…4d7a Head {h00=0x0014, h01=0x0050, text=»OUL010 CWR A6,A4«, t00=0x0031, t01=0x00e0}
0x4d7a…4dac Head {h00=0x002e, h01=0x0050, text=» RF(E) OUL060 THIS DWT IS ALREADY IN QUEUE«, t00=0x0031, t01=0x00f8}
0x4dac…4dc4 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTOTQ,A4«, t00=0x0031, t01=0x012a}
0x4dc4…4dee Head {h00=0x0026, h01=0x0050, text=» RF(E) OUL030 END OF THREAD FOUND «, t00=0x0031, t01=0x0142}
0x4dee…4e12 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 FOLLOW THE THREAD«, t00=0x0031, t01=0x016c}
0x4e12…4e24 Head {h00=0x000e, h01=0x0050, text=» RB OUL010«, t00=0x0031, t01=0x0190}
0x4e24…4e4c Head {h00=0x0024, h01=0x0050, text=»OUL020 ST A6,CWTEQ,A1 QUEUE DWT «, t00=0x0032, t01=0x0012}
0x4e4c…4e5e Head {h00=0x000e, h01=0x0050, text=» RF OUL040«, t00=0x0032, t01=0x003a}
0x4e5e…4e86 Head {h00=0x0024, h01=0x0050, text=»OUL030 ST A6,DWTOTQ,A4 QUEUE DWT«, t00=0x0032, t01=0x004c}
0x4e86…4eb4 Head {h00=0x002a, h01=0x0050, text=»OUL040 CM DWTOTQ,A6 SET END OF THREAD «, t00=0x0032, t01=0x0074}
0x4eb4…4ec6 Head {h00=0x000e, h01=0x0050, text=» RF OUL060«, t00=0x0032, t01=0x00a2}
0x4ec6…4ed4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00b4}
0x4ed4…4ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c2}
0x4ede…4efa Head {h00=0x0018, h01=0x0050, text=»* SEND CHARACTER «, t00=0x0032, t01=0x00cc}
0x4efa…4f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e8}
0x4f04…4f34 Head {h00=0x002c, h01=0x0050, text=»OUL050 LDR* A3,A6 GET CHANNEL PARAMETERS«, t00=0x0032, t01=0x00f2}
0x4f34…4f4a Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/7F00«, t00=0x0032, t01=0x0122}
0x4f4a…4f5e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0032, t01=0x0138}
0x4f5e…4f70 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A3«, t00=0x0032, t01=0x014c}
0x4f70…4f84 Head {h00=0x0010, h01=0x0050, text=»OUL055 EQU *«, t00=0x0032, t01=0x015e}
0x4f84…4fb2 Head {h00=0x002a, h01=0x0050, text=» EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION «, t00=0x0032, t01=0x0172}
0x4fb2…4fc8 Head {h00=0x0012, h01=0x0050, text=» RB(NA) OUL005«, t00=0x0033, t01=0x0010}
0x4fc8…4ff0 Head {h00=0x0024, h01=0x0050, text=» STR A6,A1 STORE LAST DWT IN CWT«, t00=0x0033, t01=0x0026}
0x4ff0…5006 Head {h00=0x0012, h01=0x0050, text=» IFT LOGING=1 «, t00=0x0033, t01=0x004e}
0x5006…503a Head {h00=0x0030, h01=0x0050, text=» CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** «, t00=0x0033, t01=0x0064}
0x503a…5046 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0098}
0x5046…5082 Head {h00=0x0038, h01=0x0050, text=»OUL060 SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT«, t00=0x0033, t01=0x00a4}
0x5082…50b6 Head {h00=0x0030, h01=0x0050, text=»OUL070 ABL IHRET8 RESTORE A1-A8 AND RTN A15 «, t00=0x0033, t01=0x00e0}
0x50b6…50c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0114}
0x50c4…50ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0122}
0x50ce…50e6 Head {h00=0x0014, h01=0x0050, text=»* C H L T O N «, t00=0x0033, t01=0x012c}
0x50e6…50f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0144}
0x50f0…5132 Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY«, t00=0x0033, t01=0x014e}
0x5132…5176 Head {h00=0x0040, h01=0x0050, text=»* CHLT IN SYSTEM. THE SUBROUTINE IS ENTERED FROM 'PFINIT' «, t00=0x0033, t01=0x0190}
0x5176…5180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0044}
0x5180…5194 Head {h00=0x0010, h01=0x0050, text=»CHLTON EQU *«, t00=0x0034, t01=0x004e}
0x5194…519e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0062}
0x519e…51b4 Head {h00=0x0012, h01=0x0050, text=» IFT LOCHAN=2 «, t00=0x0034, t01=0x006c}
0x51b4…51be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0082}
0x51be…51d2 Head {h00=0x0010, h01=0x0050, text=» LD A1,CHTAB«, t00=0x0034, t01=0x008c}
0x51d2…51f8 Head {h00=0x0022, h01=0x0050, text=»CON010 SUK A1,2 ALL TREATED ? «, t00=0x0034, t01=0x00a0}
0x51f8…521c Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CON020 NO TAKE NEXT «, t00=0x0034, t01=0x00c6}
0x521c…523e Head {h00=0x001e, h01=0x0050, text=» ABL RTNA15 RETURN AND ENB«, t00=0x0034, t01=0x00ea}
0x523e…526c Head {h00=0x002a, h01=0x0050, text=»CON020 LD A5,CHTAB,A1 LOAD CWT-ADDRESS«, t00=0x0034, t01=0x010c}
0x526c…5282 Head {h00=0x0012, h01=0x0050, text=» RB(Z) CON010 «, t00=0x0034, t01=0x013a}
0x5282…52aa Head {h00=0x0024, h01=0x0050, text=» EX CWTCIS,A5 EXECUTE CIO-START «, t00=0x0034, t01=0x0150}
0x52aa…52ca Head {h00=0x001c, h01=0x0050, text=» LDR* A6,A5 GET LAST DWT«, t00=0x0034, t01=0x0178}
0x52ca…52e0 Head {h00=0x0012, h01=0x0050, text=» RB(Z) CON010 «, t00=0x0035, t01=0x0008}
0x52e0…5302 Head {h00=0x001e, h01=0x0050, text=» CMR A5 RESET LAST OUTPUT «, t00=0x0035, t01=0x001e}
0x5302…5314 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0035, t01=0x0040}
0x5314…533a Head {h00=0x0022, h01=0x0050, text=» CF A15,OUTLIN SEND CHARACTER «, t00=0x0035, t01=0x0052}
0x533a…534c Head {h00=0x000e, h01=0x0050, text=» RB CON010«, t00=0x0035, t01=0x0078}
0x534c…5356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x008a}
0x5356…5360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0094}
0x5360…536c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x009e}
0x536c…5376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00aa}
0x5376…5380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b4}
0x5380…5396 Head {h00=0x0012, h01=0x0050, text=» IFF LOCHAN=2 «, t00=0x0035, t01=0x00be}
0x5396…53a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d4}
0x53a0…53c0 Head {h00=0x001c, h01=0x0050, text=» CIO A2,1,DWA1 CIO-START«, t00=0x0035, t01=0x00de}
0x53c0…53e2 Head {h00=0x001e, h01=0x0050, text=» LD A6,CWTLT1 GET LAST DWT«, t00=0x0035, t01=0x00fe}
0x53e2…53f8 Head {h00=0x0012, h01=0x0050, text=» RF(Z) CON010 «, t00=0x0035, t01=0x0120}
0x53f8…541c Head {h00=0x0020, h01=0x0050, text=» CM CWTLT1 RESET LAST OUTPUT«, t00=0x0035, t01=0x0136}
0x541c…542e Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0035, t01=0x015a}
0x542e…5454 Head {h00=0x0022, h01=0x0050, text=» CF A15,OUTLIN SEND CHARACTER «, t00=0x0035, t01=0x016c}
0x5454…547c (54, 0, 400) Head {h00=0x0024, h01=0x0050, text=»CON010 ABL RTNA15 RETURN AND ENB«, t00=0x0036, t01=0x0004}
0x547c…5486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x002c}
0x5486…5492 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0036}
0x5492…549c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0042}
0x549c…54aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x004c}
0x54aa…54b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x005a}
0x54b4…54cc Head {h00=0x0014, h01=0x0050, text=»* O U T P U T «, t00=0x0036, t01=0x0064}
0x54cc…54d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x007c}
0x54d6…5516 Head {h00=0x003c, h01=0x0050, text=»* SEND ONE CHARACTER VIA 'OUTLIN' INDICATE INTERRUPTS «, t00=0x0036, t01=0x0086}
0x5516…5540 Head {h00=0x0026, h01=0x0050, text=»* ALLOWED AND SAVE A3-A5 IN DWT.«, t00=0x0036, t01=0x00c6}
0x5540…554a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00f0}
0x554a…5554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00fa}
0x5554…5568 Head {h00=0x0010, h01=0x0050, text=»OUTPUT EQU *«, t00=0x0036, t01=0x0104}
0x5568…557c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0036, t01=0x0118}
0x557c…558e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0036, t01=0x012c}
0x558e…55a8 Head {h00=0x0016, h01=0x0050, text=» SUK A1,/82 STX ? «, t00=0x0036, t01=0x013e}
0x55a8…55be Head {h00=0x0012, h01=0x0050, text=» RF(E) LDRE10 «, t00=0x0036, t01=0x0158}
0x55be…55d8 Head {h00=0x0016, h01=0x0050, text=» SUK A1,/15 ETB ? «, t00=0x0036, t01=0x016e}
0x55d8…55ee Head {h00=0x0012, h01=0x0050, text=» RF(E) LDRE10 «, t00=0x0036, t01=0x0188}
0x55ee…5628 Head {h00=0x0036, h01=0x0050, text=» CF A15,OUTLIN SEND ONE CHARACTER VIA CHANNEL UNIT«, t00=0x0037, t01=0x000e}
0x5628…5632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0048}
0x5632…563c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0052}
0x563c…5652 Head {h00=0x0012, h01=0x0050, text=»* S T R E G «, t00=0x0037, t01=0x005c}
0x5652…565c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0072}
0x565c…569a Head {h00=0x003a, h01=0x0050, text=»* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT «, t00=0x0037, t01=0x007c}
0x569a…56a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ba}
0x56a4…56ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00c4}
0x56ae…56c2 Head {h00=0x0010, h01=0x0050, text=»STREG EQU * «, t00=0x0037, t01=0x00ce}
0x56c2…56ce Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0037, t01=0x00e2}
0x56ce…56e4 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x0037, t01=0x00ee}
0x56e4…5718 Head {h00=0x0030, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED«, t00=0x0037, t01=0x0104}
0x5718…5740 Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE REGISTER A3«, t00=0x0037, t01=0x0138}
0x5740…5768 Head {h00=0x0024, h01=0x0050, text=» ST A4,DWTA4,A6 A4«, t00=0x0037, t01=0x0160}
0x5768…5790 Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTA5,A6 A5«, t00=0x0037, t01=0x0188}
0x5790…57a0 Head {h00=0x000c, h01=0x0050, text=» RB EXIT«, t00=0x0038, t01=0x0020}
0x57a0…57ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0030}
0x57ae…57b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x003e}
0x57b8…57ce Head {h00=0x0012, h01=0x0050, text=»* L D R E G «, t00=0x0038, t01=0x0048}
0x57ce…57d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x005e}
0x57d8…581a Head {h00=0x003e, h01=0x0050, text=»* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN«, t00=0x0038, t01=0x0068}
0x581a…5844 Head {h00=0x0026, h01=0x0050, text=»* VIA A5. ELSE GO TO DISPATCHER.«, t00=0x0038, t01=0x00aa}
0x5844…584e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00d4}
0x584e…5858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00de}
0x5858…586c Head {h00=0x0010, h01=0x0050, text=»LDREG EQU * «, t00=0x0038, t01=0x00e8}
0x586c…5884 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x0038, t01=0x00fc}
0x5884…589a Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/100 «, t00=0x0038, t01=0x0114}
0x589a…58ae Head {h00=0x0010, h01=0x0050, text=» RB(Z) EXIT «, t00=0x0038, t01=0x012a}
0x58ae…58c6 Head {h00=0x0014, h01=0x0050, text=» XRS A3,DWTST,A6«, t00=0x0038, t01=0x013e}
0x58c6…58d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0156}
0x58d0…58da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0160}
0x58da…58f2 Head {h00=0x0014, h01=0x0050, text=»* L D R E G E «, t00=0x0038, t01=0x016a}
0x58f2…58fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0182}
0x58fc…5938 Head {h00=0x0038, h01=0x0050, text=»* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5«, t00=0x0038, t01=0x018c}
0x5938…5942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0038}
0x5942…594c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0042}
0x594c…5960 Head {h00=0x0010, h01=0x0050, text=»LDREGF EQU *«, t00=0x0039, t01=0x004c}
0x5960…598a Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTA5,A6 A5«, t00=0x0039, t01=0x0060}
0x598a…599e Head {h00=0x0010, h01=0x0050, text=»LDREGE EQU *«, t00=0x0039, t01=0x008a}
0x599e…59c8 Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD REGISTER A3«, t00=0x0039, t01=0x009e}
0x59c8…59f2 Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6 A4«, t00=0x0039, t01=0x00c8}
0x59f2…5a1a Head {h00=0x0024, h01=0x0050, text=»LDRE10 LD A7,DWTOR,A6 GET ORDER «, t00=0x0039, t01=0x00f2}
0x5a1a…5a2e Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0039, t01=0x011a}
0x5a2e…5a46 Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0039, t01=0x012e}
0x5a46…5a6a Head {h00=0x0020, h01=0x0050, text=» RTN A5 RETURN VIA A5-STACK «, t00=0x0039, t01=0x0146}
0x5a6a…5a78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x016a}
0x5a78…5a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0178}
0x5a82…5a8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0182}
0x5a8c…5aa4 Head {h00=0x0014, h01=0x0050, text=»* G E T C H R«, t00=0x0039, t01=0x018c}
0x5aa4…5aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0014}
0x5aae…5aea Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER«, t00=0x003a, t01=0x001e}
0x5aea…5af4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x005a}
0x5af4…5b0a Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x003a, t01=0x0064}
0x5b0a…5b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x007a}
0x5b14…5b32 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x003a, t01=0x0084}
0x5b32…5b50 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x003a, t01=0x00a2}
0x5b50…5b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00c0}
0x5b5a…5b70 Head {h00=0x0012, h01=0x0050, text=»* ON EXIT: «, t00=0x003a, t01=0x00ca}
0x5b70…5b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00e0}
0x5b7a…5b96 Head {h00=0x0018, h01=0x0050, text=»* A2 = CHARACTER «, t00=0x003a, t01=0x00ea}
0x5b96…5bc4 Head {h00=0x002a, h01=0x0050, text=»* A1 = 0 IF LAST CHARACTER ELSE # 0«, t00=0x003a, t01=0x0106}
0x5bc4…5bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0134}
0x5bce…5c1c Head {h00=0x004a, h01=0x0050, text=»* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH«, t00=0x003a, t01=0x013e}
0x5c1c…5c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x018c}
0x5c26…5c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0008}
0x5c30…5c44 Head {h00=0x0010, h01=0x0050, text=»GETCHR EQU *«, t00=0x003b, t01=0x0012}
0x5c44…5c68 Head {h00=0x0020, h01=0x0050, text=» LD A1,4,A8 REQUESTED LENGTH«, t00=0x003b, t01=0x0026}
0x5c68…5c7a Head {h00=0x000e, h01=0x0050, text=» SUR A1,A3«, t00=0x003b, t01=0x004a}
0x5c7a…5ca8 Head {h00=0x002a, h01=0x0050, text=» RF(NP) GCH010 LAST CHARACTER REACHED «, t00=0x003b, t01=0x005c}
0x5ca8…5cce Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x003b, t01=0x008a}
0x5cce…5ce0 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x003b, t01=0x00b0}
0x5ce0…5cfe Head {h00=0x001a, h01=0x0050, text=» LCR A2,A2 CHAR. TO A2«, t00=0x003b, t01=0x00c2}
0x5cfe…5d12 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003b, t01=0x00e0}
0x5d12…5d3a Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x003b, t01=0x00f4}
0x5d3a…5d4c Head {h00=0x000e, h01=0x0050, text=» RF GCH020«, t00=0x003b, t01=0x011c}
0x5d4c…5d7c Head {h00=0x002c, h01=0x0050, text=»GCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x003b, t01=0x012e}
0x5d7c…5da8 Head {h00=0x0028, h01=0x0050, text=»GCH020 ABL RTNA15 RETURN AND ENABLE «, t00=0x003b, t01=0x015e}
0x5da8…5db6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x018a}
0x5db6…5dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0008}
0x5dc0…5dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0012}
0x5dca…5dde Head {h00=0x0010, h01=0x0050, text=»* L O G G «, t00=0x003c, t01=0x001c}
0x5dde…5de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0030}
0x5de8…5e24 Head {h00=0x0038, h01=0x0050, text=»* IF CONDITIONALY ASSEMBLY IS SET EVERY INPUT AND «, t00=0x003c, t01=0x003a}
0x5e24…5e4c Head {h00=0x0024, h01=0x0050, text=»* OUTPUT CHARACTER ARE LOGGED «, t00=0x003c, t01=0x0076}
0x5e4c…5e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x009e}
0x5e56…5e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00a8}
0x5e60…5e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00b2}
0x5e6a…5e80 Head {h00=0x0012, h01=0x0050, text=» IFT LOGING=1 «, t00=0x003c, t01=0x00bc}
0x5e80…5e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d2}
0x5e8a…5ea2 Head {h00=0x0014, h01=0x0050, text=»LOGG STR A1,A15 «, t00=0x003c, t01=0x00dc}
0x5ea2…5eb6 Head {h00=0x0010, h01=0x0050, text=» LD A1,POINT«, t00=0x003c, t01=0x00f4}
0x5eb6…5ec8 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x003c, t01=0x0108}
0x5ec8…5ef2 Head {h00=0x0026, h01=0x0050, text=» CWK A1,BUFE BUFE IS MAX LOGG AREA«, t00=0x003c, t01=0x011a}
0x5ef2…5f04 Head {h00=0x000e, h01=0x0050, text=» RF(NE) L1«, t00=0x003c, t01=0x0144}
0x5f04…5f30 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,BUF SET FIRST LOGG ADDRESS «, t00=0x003c, t01=0x0156}
0x5f30…5f46 Head {h00=0x0012, h01=0x0050, text=»L1 ST A1,POINT«, t00=0x003c, t01=0x0182}
0x5f46…5f78 Head {h00=0x002e, h01=0x0050, text=» STR A2,A1 LOGG OF INR OR OTR INSTRUCTION «, t00=0x003d, t01=0x0008}
0x5f78…5f8c Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x003d, t01=0x003a}
0x5f8c…5fa0 Head {h00=0x0010, h01=0x0050, text=» ADKL A15,2 «, t00=0x003d, t01=0x004e}
0x5fa0…5fba Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x003d, t01=0x0062}
0x5fba…5fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x007c}
0x5fc4…5fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0086}
0x5fce…5ff2 Head {h00=0x0020, h01=0x0050, text=»POINT DATA BUF LOGG POINTER «, t00=0x003d, t01=0x0090}
0x5ff2…5ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00b4}
0x5ffc…6018 Head {h00=0x0018, h01=0x0050, text=»BUF RES 63 LOGG AREA«, t00=0x003d, t01=0x00be}
0x6018…602a Head {h00=0x000e, h01=0x0050, text=»BUFE EQU *«, t00=0x003d, t01=0x00da}
0x602a…6034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00ec}
0x6034…6040 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x00f6}
0x6040…604e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0102}
0x604e…6058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0110}
0x6058…6062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x011a}
0x6062…6084 Head {h00=0x001e, h01=0x0050, text=»* E C H O , E C H E N D«, t00=0x003d, t01=0x0124}
0x6084…608e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0146}
0x608e…60ce Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, «, t00=0x003d, t01=0x0150}
0x60ce…6100 Head {h00=0x002e, h01=0x0050, text=»* ONE GENERAL AND ONE DEVICE-DEPENDENT «, t00=0x003d, t01=0x0190}
0x6100…610a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0032}
0x610a…6142 Head {h00=0x0034, h01=0x0050, text=»* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, «, t00=0x003e, t01=0x003c}
0x6142…6178 Head {h00=0x0032, h01=0x0050, text=»* LOAD STACKBASE AND FIND ADDRESS«, t00=0x003e, t01=0x0074}
0x6178…61b0 Head {h00=0x0034, h01=0x0050, text=»* TO DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x003e, t01=0x00aa}
0x61b0…61ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00e2}
0x61ba…61ec Head {h00=0x002e, h01=0x0050, text=»* PART TWO: ECHO ONE OR MORE CHARACTERS«, t00=0x003e, t01=0x00ec}
0x61ec…6222 Head {h00=0x0032, h01=0x0050, text=»* CORRESPONDING TO ONE CHARACTER «, t00=0x003e, t01=0x011e}
0x6222…625a Head {h00=0x0034, h01=0x0050, text=»* TO BE STORED IN INPUT ECB-BUFFER «, t00=0x003e, t01=0x0154}
0x625a…6264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x018c}
0x6264…626e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0008}
0x626e…62a6 Head {h00=0x0034, h01=0x0050, text=»* PART ONE FOLLOWS AND PART TWO CAN BE FOUND «, t00=0x003f, t01=0x0012}
0x62a6…62de Head {h00=0x0034, h01=0x0050, text=»* IN THE DRIVER MODULE CORRESPONDING TO ECHO «, t00=0x003f, t01=0x004a}
0x62de…62f8 Head {h00=0x0016, h01=0x0050, text=»* OUTPUT DEVICE«, t00=0x003f, t01=0x0082}
0x62f8…6302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x009c}
0x6302…633c Head {h00=0x0036, h01=0x0050, text=»* RESTRICTIONS IN DEVICE DEPENDENT ECHO DRIVER «, t00=0x003f, t01=0x00a6}
0x633c…6346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00e0}
0x6346…636c Head {h00=0x0022, h01=0x0050, text=»* A7 MUST NOT BE DESTROYED «, t00=0x003f, t01=0x00ea}
0x636c…63a6 Head {h00=0x0036, h01=0x0050, text=»* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A «, t00=0x003f, t01=0x0110}
0x63a6…63c4 Head {h00=0x001a, h01=0x0050, text=»* JUMP TO 'ECHRTN'.«, t00=0x003f, t01=0x014a}
0x63c4…63ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0168}
0x63ce…63e2 Head {h00=0x0010, h01=0x0050, text=»ECHEND EQU *«, t00=0x003f, t01=0x0172}
0x63e2…63ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0186}
0x63ec…6400 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x003f, t01=0x0190}
0x6400…640a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0014}
0x640a…6432 Head {h00=0x0024, h01=0x0050, text=» LDKL A7,/8000 INDICATE END I/O «, t00=0x0040, t01=0x001e}
0x6432…643e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0046}
0x643e…6450 Head {h00=0x000e, h01=0x0050, text=»ECHO EQU *«, t00=0x0040, t01=0x0052}
0x6450…6464 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0040, t01=0x0064}
0x6464…648e Head {h00=0x0026, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE A3-A5 IN DWT «, t00=0x0040, t01=0x0078}
0x648e…64a6 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTA4,A6 «, t00=0x0040, t01=0x00a2}
0x64a6…64be Head {h00=0x0014, h01=0x0050, text=» ST A5,DWTA5,A6 «, t00=0x0040, t01=0x00ba}
0x64be…64dc Head {h00=0x001a, h01=0x0050, text=» LD A1,DWTST,A6 STATUS«, t00=0x0040, t01=0x00d2}
0x64dc…64ee Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0040, t01=0x00f0}
0x64ee…6516 Head {h00=0x0024, h01=0x0050, text=» RF(NN) RETUR NO ECHO REQUESTED «, t00=0x0040, t01=0x0102}
0x6516…654a Head {h00=0x0030, h01=0x0050, text=» LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE «, t00=0x0040, t01=0x012a}
0x654a…6580 Head {h00=0x0032, h01=0x0050, text=» LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE «, t00=0x0040, t01=0x015e}
0x6580…65ba (65, 0, 400) Head {h00=0x0036, h01=0x0050, text=» ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE «, t00=0x0041, t01=0x0004}
0x65ba…65d2 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0041, t01=0x003e}
0x65d2…65fc Head {h00=0x0026, h01=0x0050, text=» ADR A5,A6 STACKBASE-ADDRESS IN A5«, t00=0x0041, t01=0x0056}
0x65fc…662e Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK «, t00=0x0041, t01=0x0080}
0x662e…6664 Head {h00=0x0032, h01=0x0050, text=» ABI 6,A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT «, t00=0x0041, t01=0x00b2}
0x6664…6670 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00e8}
0x6670…6684 Head {h00=0x0010, h01=0x0050, text=»ECHRTN EQU *«, t00=0x0041, t01=0x00f4}
0x6684…6698 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0041, t01=0x0108}
0x6698…66b0 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 END? «, t00=0x0041, t01=0x011c}
0x66b0…66ca Head {h00=0x0016, h01=0x0050, text=» RF(NN) ERETUR NO «, t00=0x0041, t01=0x0134}
0x66ca…66f6 Head {h00=0x0028, h01=0x0050, text=» CF A15,TENDIO END I/O OUTPUT DEVICE«, t00=0x0041, t01=0x014e}
0x66f6…6738 Head {h00=0x003e, h01=0x0050, text=»ERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE «, t00=0x0041, t01=0x017a}
0x6738…6770 Head {h00=0x0034, h01=0x0050, text=»RETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x0042, t01=0x002c}
0x6770…677a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0064}
0x677a…6786 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0042, t01=0x006e}
0x6786…678a Head {h00=0x4004, h01=0x0000}
0x678a…678e 00 42 00 7a ┆ B z┆
0x678e…6796 (67, 1, 8) 20 04 00 00 00 43 00 04 ┆ C ┆
0x6796…67e6 (68, 0, 400) 00 1c 00 50 2a 20 42 55 46 46 45 52 20 51 55 45 55 45 20 49 53 20 52 45 53 45 54 2e 00 04 00 04 00 06 00 50 2a 20 00 04 00 24 00 0a 00 50 5c 45 4a 45 43 54 00 04 00 2e 00 06 00 50 2a 20 00 04 00 3c 00 12 00 50 2a 5c 45 4e 54 52 59 20 50 4f ┆ P* BUFFER QUEUE IS RESET. P* $ P EJECT . P* < P* ENTRY PO┆
0x67e6…6836 49 4e 54 53 00 04 00 46 00 06 00 50 2a 20 00 04 00 5c 00 24 00 50 5c 45 4e 54 52 59 5c 49 4e 49 4d 4f 4e 5c 4d 4f 44 55 4c 45 20 45 4e 54 52 59 20 50 4f 49 4e 54 00 04 00 66 00 06 00 50 2a 20 00 04 00 8e 00 1a 00 50 2a 5c 45 58 54 45 52 4e ┆INTS F P* $ P ENTRY INIMON MODULE ENTRY POINT f P* P* EXTERN┆
0x6836…6886 41 4c 20 52 45 46 45 52 45 4e 43 45 53 20 00 04 00 98 00 06 00 50 2a 20 00 04 00 b6 00 10 00 50 5c 45 58 54 52 4e 5c 54 43 54 41 42 00 04 00 c0 00 28 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 53 41 5c 53 41 56 45 20 41 52 45 41 20 46 4f 52 20 ┆AL REFERENCES P* P EXTRN TCTAB ( P EXTRN TTB:SA SAVE AREA FOR ┆
0x6886…68d6 54 45 52 4d 49 4e 41 4c 00 04 00 d4 00 2a 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 50 50 5c 50 45 4e 44 49 4e 47 20 50 52 4f 47 52 41 4d 20 50 4f 49 4e 54 45 52 20 00 04 01 00 00 18 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 53 54 5c 53 54 41 54 ┆TERMINAL * P EXTRN TTB:PP PENDING PROGRAM POINTER P EXTRN TTB:ST STAT┆
0x68d6…6926 55 53 00 04 01 2e 00 2a 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 49 44 5c 54 45 52 4d 49 4e 41 4c 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 00 04 01 4a 00 22 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 54 44 5c 54 45 52 4d 49 4e 41 4c 20 44 ┆US . * P EXTRN TTB:ID TERMINAL IDENTIFICATION J " P EXTRN TTB:TD TERMINAL D┆