|
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: 30088 (0x7588)
Notes: pts_type(SC)
Names: »DRSL01.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRSL01.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DRSL01.SC«
IDENT DRSL01 REL 11.0 81-01-26 870105041100 NEW DEVICE DRIVER INTERFACE PRR 10.0 79-12-07 =6, RTN FROM OUTSAL IN INH MODE PRR 10.1 79-11-20 =5, CHECK IF PFINIT PENDING; TIMER FOR INPUT NOT OPERABLE; NO SOFTWARE PARITY GENERATION PRR 10.1 79-11-09 =4, CHECK QUEUE AFTER SYNC SENDING PRR 10.1 79-10-16 =3, CORR. WHEN NOT OPER. MOVE OF STATUS BIT PRR 10.1 79-10-08 =2, IMPROV. OF REMOTE SENDING PRR 10.1 79-10-03 =1, CHECK IF OUTPUT CHAR.= ETX; CHANGE TO EVEN PARITY PRR 10.1 79-09-21 * * ********************************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRSL01 = DRIVER CHANNEL UNIT * * SALCUZ * * * * * ********************************************************************** * * THIS IS A CHANNEL UNIT DRIVER FOR TERMINALS * CONNECTED TO CPU VIA SALCUZ. * TERMINALS MAY BE LOCAL OR REMOTE. * * AT INPUT INTERRUPT A CHARACTER IS READ TO REGISTER A2 * AND A BRANCH IS MADE TO INTERRUPT HANDLER FOR ACTUAL * DEVICE. * * AFTER AN OUTPUT IS ENDED AN OUTPUT INTERRUPT IS * GENERATED FROM SALCUZ. THE DRIVER CHECKS THE INTERRUPT * AND A BRANCH IS MADE TO INTERRUPT HANDLER. * * EJECT * * THE DRIVER ALSO INCLUDES THE FOLLOWING SUBROUTINES: * * -SLCUON EXECUTE CIO START ON EVERY SALCUZ AT POWER ON * * -OUTSAL SEND ONE CHARACTER * * CONTROL WORK TABLES ARE INCLUDED IN THE DRIVER * * NORMAL REGISTER USAGE IN THE DRIVER: * * A1 = RETURN CODE * A2 = INPUT CHARACTER * A3 = WORK REGISTER * A4 = DEVICE NUMBER * 2 * A5 = CWT-ADDRESS * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB ADDRESS * * * EJECT * *********** * ENTRIES * *********** * * ENTRY ISLCI INPUT INTERRUPTS FROM SALCUZ ENTRY ISLCO OUTPUT INTERRUPTS FROM SALCUZ ENTRY SLCUON START AT POWER ON ENTRY CHAN NUMBER OF CHANNEL UNITS * ENTRY SLCHRI CHARACTER INPUT ENTRY SLSTBL DEFINE START OF OUTPUT BLOCK ENTRY SLCHRO CHARACTER OUTPUT ENTRY SLENBL DEFINE END OF OUTPUT BLOCK ENTRY SLDISP LOCAL DISPATCHER * EJECT * * ******************************** * EXTERNAL TOSS MODULE ENTRIES * ******************************** * EXTRN TDISP DISPATCHER EXTRN INTSAV SAVE AREA LAST INTERRUPT EXTRN SETIMP SET TIMER ROUTINE =2 EXTRN PFPOST PWF POST PROCESSING FLAG =5 * EXTRN INTSL1 WS TABLE ADDRESS SALCUZ 1 EXTRN INTSL2 WS TABLE ADDRESS SALCUZ 2 EXTRN INTSL3 WS TABLE ADDRESS SALCUZ 3 EXTRN INTSL4 WS TABLE ADDRESS SALCUZ 4 EXTRN INTSL5 WS TABLE ADDRESS SALCUZ 5 EXTRN INTSL6 WS TABLE ADDRESS SALCUZ 6 EXTRN INTSL7 WS TABLE ADDRESS SALCUZ 7 EXTRN INTSL8 WS TABLE ADDRESS SALCUZ 8 * EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT EXTRN NDGEDN GET HIGHEST DWT NUMBER ON WS EXTRN NDGEDW GET DWT-ADDRESS EXTRN NDREWS CALL RECOVERY FOR ALL DEV ON WS EXTRN NDRETO OK & RETURN EXTRN NDREP POP & RETURN * EJECT * ****************** * DWT PARAMETERS * ****************** * * EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTOCH LAST OUTPUT CHARACTER EXTRN DWTECB ECB-ADDRESS EXTRN DWTADR ADDRESS TO ADDRESSBLOCK EXTRN DWTOTQ OUTPUT QUEUE LINK EXTRN DWTSB2 STACK BASE 2 EXTRN DWTCP2 CHANNEL PARAMETERS 2 * EXTRN INTADR INTERRUPT ADDRESS DISPLACEMENT EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT * EJECT * * ************* * CONSTANTS * ************* * * KB EQU 1 DEVICE ADDRESS FOR KEYBOARD DI EQU 2 DEVICE ADDRESS FOR KEYBOARD LAMPS TIME EQU 5 TIME BEFORE TIME-OUT FOR SYNC =2 INPTIM EQU 10 INPUT NOT OP. TIMER VALUE =5 * EJECT * ************************ * CONDITIONAL ASSEMBLY * ************************ * * A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER * AND STATUS MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 * X:A EQU 1 LOGING EQU X:A * * THIS DRIVER HANDLES ONE OR UP TO EIGHT * CHANNELS BY SETTING X:B TO 1, 2, 3,..., 8 * X:B EQU 1 CHAN EQU X:B * EJECT * ******************* * C W T S A 1 * ******************* * * CONTROL WORK TABLE FOR SALCUZ 1 * CUAD1 EQU /1A CONTROL UNIT ADDRESS * CWTSA1 EQU * TABLE ENTRY CWTLDW EQU *-CWTSA1 DATA 0 LAST OUTPUT DWT CWTITA EQU *-CWTSA1 DATA INTSL1 WORK STATION ADDRESS CWTINR EQU *-CWTSA1 INR A2,0,CUAD1 INR CWTOTR EQU *-CWTSA1 OTR A2,0,CUAD1+1 OTR CWTCIS EQU *-CWTSA1 CIO A1,1,CUAD1+1 CIO START OUTPUT CWTTP EQU *-CWTSA1 * =2 DATA 0 TIMER POINTER =2 CWTEQ EQU *-CWTSA1 DATA 0 QUEUE CWTCIH EQU *-CWTSA1 CIO A1,0,CUAD1+1 CIO HALT OUTPUT CWTSST EQU *-CWTSA1 SST A2,CUAD1+1 SEND STATUS OUTPUT CWTST EQU *-CWTSA1 DATA 0 CHANNEL STATUS CWTCSI EQU *-CWTSA1 CIO A1,1,CUAD1 CIO START INPUT CWTSSI EQU *-CWTSA1 SST A2,CUAD1 SEND STATUS INPUT CWTTP2 EQU *-CWTSA1 * =5 DATA 0 TIMER POINTER FOR INP. NOT OP. =5 EJECT * * ******************* * C W T S A 2 * ******************* * * CONTROL WORK TABLE FOR SALCUZ 2 * CWTSA2 EQU * TABLE ENTRY * IFF CHAN=1 * CUAD2 EQU /2A CONTROL UNIT ADDRESS * DATA 0 LAST OUTPUT DWT DATA INTSL2 WORK STATION ADDRESS INR A2,0,CUAD2 INR OTR A2,0,CUAD2+1 OTR CIO A1,1,CUAD2+1 CIO START OUTPUT DATA 0 TIMER POINTER =2 DATA 0 QUEUE CIO A1,0,CUAD2+1 CIO HALT OUTPUT SST A2,CUAD2+1 SEND STATUS OUTPUT DATA 0 CHANNEL STATUS CIO A1,1,CUAD2 CIO START INPUT SST A2,CUAD2 SEND STATUS INPUT DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * XIF EJECT * * ******************* * C W T S A 3 * ******************* * * CONTROL WORK TABLE FOR SALCUZ 3 * CWTSA3 EQU * TABLE ENTRY * IFF CHAN=1 IFF CHAN=2 * CUAD3 EQU /2C CONTROL UNIT ADDRESS * DATA 0 LAST OUTPUT DWT DATA INTSL3 WORK STATION ADDRESS INR A2,0,CUAD3 INR OTR A2,0,CUAD3+1 OTR CIO A1,1,CUAD3+1 CIO START OUTPUT DATA 0 TIMER POINTER =2 DATA 0 QUEUE CIO A1,0,CUAD3+1 CIO HALT OUTPUT SST A2,CUAD3+1 SEND STATUS OUTPUT DATA 0 CHANNEL STATUS CIO A1,1,CUAD3 CIO START INPUT SST A2,CUAD3 SEND STATUS INPUT DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * XIF EJECT * * ******************* * C W T S A 4 * ******************* * * CONTROL WORK TABLE FOR SALCUZ 4 * CWTSA4 EQU * TABLE ENTRY * IFF CHAN=1 IFF CHAN=2 IFF CHAN=3 * CUAD4 EQU /3A CONTROL UNIT ADDRESS * DATA 0 LAST OUTPUT DWT DATA INTSL4 WORK STATION ADDRESS INR A2,0,CUAD4 INR OTR A2,0,CUAD4+1 OTR CIO A1,1,CUAD4+1 CIO START OUTPUT DATA 0 TIMER POINTER =2 DATA 0 QUEUE CIO A1,0,CUAD4+1 CIO HALT OUTPUT SST A2,CUAD4+1 SEND STATUS OUTPUT DATA 0 CHANNEL STATUS CIO A1,1,CUAD4 CIO START INPUT SST A2,CUAD4 SEND STATUS INPUT DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * XIF EJECT * * ******************* * C W T S A 5 * ******************* * * CONTROL WORK TABLE FOR SALCUZ 5 * CWTSA5 EQU * TABLE ENTRY * IFF CHAN=1 IFF CHAN=2 IFF CHAN=3 IFF CHAN=4 * CUAD5 EQU NOTDEF CONTROL UNIT ADDRESS * ONLY DEFINED FOR FOUR SALCUZ CARDS ********** * DATA 0 LAST OUTPUT DWT DATA INTSL5 WORK STATION ADDRESS INR A2,0,CUAD5 INR OTR A2,0,CUAD5+1 OTR CIO A1,1,CUAD5+1 CIO START OUTPUT DATA 0 TIMER POINTER =2 DATA 0 QUEUE CIO A1,0,CUAD5+1 CIO HALT OUTPUT SST A2,CUAD5+1 SEND STATUS OUTPUT DATA 0 CHANNEL STATUS CIO A1,1,CUAD5 CIO START INPUT SST A2,CUAD5 SEND STATUS INPUT DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * XIF EJECT * * ******************* * C W T S A 6 * ******************* * * CONTROL WORK TABLE FOR SALCUZ 6 * CWTSA6 EQU * TABLE ENTRY * IFF CHAN=1 IFF CHAN=2 IFF CHAN=3 IFF CHAN=4 IFF CHAN=5 * CUAD6 EQU NOTDEF CONTROL UNIT ADDRESS * ONLY DEFINED FOR FOUR SALCUZ CARDS ********** * DATA 0 LAST OUTPUT DWT DATA INTSL6 WORK STATION ADDRESS INR A2,0,CUAD6 INR OTR A2,0,CUAD6+1 OTR CIO A1,1,CUAD6+1 CIO START OUTPUT DATA 0 TIMER POINTER =2 DATA 0 QUEUE CIO A1,0,CUAD6+1 CIO HALT OUTPUT SST A2,CUAD6+1 SEND STATUS OUTPUT DATA 0 CHANNEL STATUS CIO A1,1,CUAD6 CIO START INPUT SST A2,CUAD6 SEND STATUS INPUT DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * XIF EJECT * * ******************* * C W T S A 7 * ******************* * * CONTROL WORK TABLE FOR SALCUZ 7 * CWTSA7 EQU * TABLE ENTRY * IFF CHAN=1 IFF CHAN=2 IFF CHAN=3 IFF CHAN=4 IFF CHAN=5 IFF CHAN=6 * CUAD7 EQU NOTDEF CONTROL UNIT ADDRESS * ONLY DEFINED FOR FOUR SALCUZ CARDS ********** * DATA 0 LAST OUTPUT DWT DATA INTSL7 WORK STATION ADDRESS INR A2,0,CUAD7 INR OTR A2,0,CUAD7+1 OTR CIO A1,1,CUAD7+1 CIO START OUTPUT DATA 0 TIMER POINTER =2 DATA 0 QUEUE CIO A1,0,CUAD7+1 CIO HALT OUTPUT SST A2,CUAD7+1 SEND STATUS OUTPUT DATA 0 CHANNEL STATUS CIO A1,1,CUAD7 CIO START INPUT SST A2,CUAD7 SEND STATUS INPUT DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * XIF EJECT * * ******************* * C W T S A 8 * ******************* * * CONTROL WORK TABLE FOR SALCUZ 8 * CWTSA8 EQU * TABLE ENTRY * IFF CHAN=1 IFF CHAN=2 IFF CHAN=3 IFF CHAN=4 IFF CHAN=5 IFF CHAN=6 IFF CHAN=7 * CUAD8 EQU NOTDEF CONTROL UNIT ADDRESS * ONLY DEFINED FOR FOUR SALCUZ CARDS ********** * DATA 0 LAST OUTPUT DWT DATA INTSL8 WORK STATION ADDRESS INR A2,0,CUAD8 INR OTR A2,0,CUAD8+1 OTR CIO A1,1,CUAD8+1 CIO START OUTPUT DATA 0 TIMER POINTER =2 DATA 0 QUEUE CIO A1,0,CUAD8+1 CIO HALT OUTPUT SST A2,CUAD8+1 SEND STATUS OUTPUT DATA 0 CHANNEL STATUS CIO A1,1,CUAD8 CIO START INPUT SST A2,CUAD8 SEND STATUS INPUT DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * XIF EJECT * * ***************** * C H T A B * ***************** * * THIS TABLE HOLDS ADDRESSES OF CONTROL WORK * TABLES CWT TO CHANNEL UNITS. * * CHTAB EQU * DATA CHTABE-* TABLE LENGTH DATA CWTSA1 IFF CHAN=1 DATA CWTSA2 XIF IFF CHAN=1 IFF CHAN=2 DATA CWTSA3 XIF IFF CHAN=1 IFF CHAN=2 IFF CHAN=3 DATA CWTSA4 XIF IFF CHAN=1 IFF CHAN=2 IFF CHAN=3 IFF CHAN=4 DATA CWTSA5 XIF IFF CHAN=1 IFF CHAN=2 IFF CHAN=3 IFF CHAN=4 IFF CHAN=5 DATA CWTSA6 XIF IFF CHAN=1 IFF CHAN=2 IFF CHAN=3 IFF CHAN=4 IFF CHAN=5 IFF CHAN=6 DATA CWTSA7 XIF IFF CHAN=1 IFF CHAN=2 IFF CHAN=3 IFF CHAN=4 IFF CHAN=5 IFF CHAN=6 IFF CHAN=7 DATA CWTSA8 XIF CHTABE EQU * END OF TABLE * * EJECT * * * S L C U O N * * SUBROUTINE TO RESET CWT AND PERFORM CIO START * OF EVERY SALCUZ INPUT CHANNEL AT SYSTEM LOAD * * * SLCUON EQU * LD A4,CHTAB TABLE LENGTH SON010 SUK A4,2 ALL TREATED? ABL(Z) RTNA15 YES SON020 EQU * LD A5,CHTAB,A4 LOAD CWT-ADDRESS RB(Z) SON010 LDKL A1,/8000 ORS A1,CWTST,A5 SET INITIATION BIT CMR A5 RESET LAST OUTPUT =2 CM CWTEQ,A5 RESET OUTPUT QUEUE =5 INH LDK A1,/4 EVEN PARITY =1 EX CWTCIS,A5 CIO START OUTPUT EX CWTCSI,A5 EXECUTE CIO-START INPUT LDK A1,0 EX CWTCIH,A5 CIO STOP OUTPUT ENB RB SON010 EJECT * * ******************************************** * INTERRUPT ENTRY FROM SALCUZ INPUTS * ******************************************** * * * I S L C I * * INPUT INTERRUPT FROM SALCUZ * ISLCI EQU * ST P,INTSAV SAVE LAST INTERRUPT MSR 8,A15 SAVE A1-A8 ON STACK LDK A4,0 RESET SALCUZ-COUNTER LD A3,CHTAB SUK A3,2 NUMBER OF LINES RF IIS015 * * GET CWT-ADDRESS. EXECUTE INR. * IIS010 EQU * ADK A4,2 NEXT SALCUZ IIS015 EQU * CWR A4,A3 ABL(NL) EXIT NOT VALID INTERRUPT LD A5,CHTAB+2,A4 GET CWT-ADDRESS EX CWTINR,A5 INR RF(NA) IIS060 * EJECT * * GET DWT-ADDRESS FROM INTSL * IIS020 EQU * LD* A1,CWTITA,A5 ADDRESS OF WORK STATION TABLE LDK A6,0 WORK STATION NUMBER CF A15,NDGEDN GET HIGHEST DWT-NUMBER ADK A7,1 PREPARE FOR SUK IIS025 EQU * SUK A7,1 NEXT DWT RF(N) EXITL EXIT IF ALL CHECKED CF A15,NDGEDW GET DWT-ADDRESS LDR A6,A6 RB(Z) IIS025 DWT-ADDRESS NOT DEFINED LD A3,DWTST,A6 DEVICE STATUS ANK A3,/40 INPUT DEVICE? RF(NZ) IIS055 YES LDK A6,0 WORK STATION NUMBER RB IIS025 * EXITL EQU * IFT LOGING=1 SLL A4,8 LINE NR FOR LOGG ORR A2,A4 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** XIF * RF EXIT * EJECT * * RETURN TO DEVICE DRIVER * IIS055 EQU * LDK A1,0 RESET RETURN CODE * IFT LOGING=1 CF A15,INFLOG GET LINE INFORMATION CF A15,LOGG ** LOGG OF INPUT CHARACTER ** XIF * IIS058 EQU * * =2 ANK A2,/FF CLEAN CHARACTER LD A7,DWTST,A6 DEVICE STATUS ANK A7,/20 INPUT REQUESTED? RF(Z) IIS059 NO * LDKL A7,/FFDF ANS A7,DWTST,A6 RESET FLAG 'INPUT REQUESTED' ABL NDREP RETURN TO DEVICE DRIVER * EJECT * * GO TO INTERRUPT ROUTINE OF DEVICE DRIVER * IIS059 EQU * LD A1,DWTADR,A6 ADDRESS BLOCK LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? RF(Z) EXIT NO, SKIP CHARACTER LDR A5,A6 DWT ADDRESS ADKL A5,DWTSB2 STACK BASE ABR A1 DEVICE DRIVER INTERRUPT ENTRY * EJECT * * EXECUTE SST INPUT * IIS060 EQU * EX CWTSSI,A5 SEND STATUS INPUT RB(NA) IIS010 CHECK NEXT SALCUZ ANK A2,1 STATUS =5 RF(NZ) IIS070 NOT OPERABLE =5 IIS065 EQU * * =5 LDK A1,/4 EVEN PARITY =1 EX CWTCSI,A5 CIO START INPUT =2 RF EXIT * =2 * * START TIMER IF INPUT NOT OPERABLE * IIS070 EQU * * =5 LDR A1,A5 SAVE CWT-ADDRESS AS PARAMETER =5 LDK A4,CWTTP2 * =5 ADR A4,A5 TIMER POINTER ADDRESS =5 CF A15,SETIMP START TIMER =5 DATA IIS080,INPTIM TIME-OUT ADDRESS AND VALUE =5 RF EXIT * =5 * * TIME-OUT ROUTINE FOR INPUT NOT OPERABLE * IIS080 EQU * * =5 LDR A5,A1 CWT-ADDRESS =5 CM CWTTP2,A5 RESET TIMER POINTER =5 RB IIS065 START INPUT =5 * EJECT * * ********************************************* * INTERRUPT ENTRY FROM SALCUZ OUTPUTS * ********************************************* * * * I S L C O * * OUTPUT INTERRUPT FROM SALCUZ * ISLCO EQU * ST P,INTSAV SAVE LAST INTERRUPT MSR 8,A15 SAVE A1-A8 ON STACK LDK A7,0 RESET SALCUZ-COUNTER LD A3,CHTAB SUK A3,2 NUMBER OF LINES RF OIS015 * EJECT * * GET CWT-ADDRESS. EXECUTE SST. * OIS010 EQU * ADK A7,2 NEXT SALCUZ OIS015 EQU * CWR A7,A3 RF(NL) EXIT NOT VALID INTERRUPT LD A5,CHTAB+2,A7 GET CWT-ADDRESS EX CWTSST,A5 SST RB(NA) OIS010 * IFT LOGING=1 LDR* A4,A5 LAST OUTPUT DWT CWK A4,DWTSYN SYNC-SENDING? RF(E) OIS017 YES SLL A7,8 LINE NR FOR LOGG =2 ORR A2,A7 * =2 CF A15,LOGG **LOGG STATUS** XIF * OIS017 EQU * LD A1,CWTST,A5 CHANNEL STATUS RF(N) OIS040 INITIATION ON CHANNEL =2 EJECT * * CHECK QUEUE AND SEND IF SOMETHING THERE * OIS020 EQU * LDR* A7,A5 LAST OUTPUT DWT CMR A5 SET CHANNEL FREE =3 =3 ANK A2,/FF CLEAN LC A4,CWTST,A5 CHANNEL STATUS LDR A1,A2 SET RETURN CODE =2 RF(NZ) OIS035 NOT OPERABLE =2 LD A3,CWTST,A5 CHANNEL STATUS =2 SLL A3,1 * =2 RF(N) OIS038 NOT OPERABLE BIT SET =2 * =4 * =4 LD A6,CWTEQ,A5 OUTPUT QUEUE RF(E) OIS030 QUEUE EMPTY =5 LD A2,DWTOTQ,A6 GET QUEUE LINK ST A2,CWTEQ,A5 STORE IT IN CWT LC A2,DWTOCH,A6 GET CHARACTER CF A15,OUTSAL SEND CHARACTER =5 EJECT * * RETURN TO DEVICE DRIVER * OIS030 EQU * CWK A7,DWTSYN SYNC-DWT? =4 RF(E) EXIT YES =4 ANK A4,/04 LAMP CODE QUEUED ? RF(NZ) EXIT YES, DON'T RETURN YET LDK A2,0 STATUS LDR A6,A7 GET LAST OUTPUT ABL(NZ) NDREP RETURN TO DEVICE DRIVER * EXIT EQU * ABL TDISP * * OUTPUT NOT OPERABLE * OIS035 EQU * * =2 CWK A7,DWTSYN SYNC-DWT? =2 RB(E) EXIT YES =2 LDKL A3,/4000 * =2 ORS A3,CWTST,A5 SET BIT 'NOT OPERABLE' =2 RB OIS030 * =2 * * OUTPUT OPERABLE AGAIN * OIS038 EQU * * =2 LDKL A3,/BFFF * =2 ANS A3,CWTST,A5 RESET BIT 'NOT OPERABLE' =2 EJECT * * RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE * ON ACTUAL LINE EXCEPT THOSE IN ECHO MODE * OIS040 EQU * LDKL A1,/7FFF ANS A1,CWTST,A5 RESET INITIATION BIT LD* A3,CWTITA,A5 ADDRESS OF WS TABLE LDK A6,0 WORK STATION NUMBER LDK A4,1 RECOVERY CAUSE CF A15,NDREWS CALL RECOVERY FOR ALL DEVICES ON WORK STATION RB EXIT EJECT * * O U T S A L * * SUBROUTINE TO SEND A CHARACTER VIA SALCUZ * ON ENTRY: * A2 = OUTPUT CHARACTER IN RIGHT BYTE * A6 = DWT ADDRESS * OUTSAL EQU * MSR 8,A15 SAVE A1-A8 ON STACK ANK A2,/FF INH CWK A6,DWTSYN SYNC SENDING? RF(E) OUS050 YES LDR* A1,A6 CHANNEL PARAMETERS ANK A1,/F CHANNEL UNIT INDEX SLL A1,1 MAKE INDEX FOR CHTAB LD A5,CHTAB+2,A1 GET CWT-ADDRESS * =6 LDR* A4,A5 CHANNEL UNIT FREE? RF(E) OUS050 YES EJECT * * QUEUE OUTPUT * OUS005 EQU * LD A4,CWTEQ,A5 OUTPUT QUEUE RF(E) OUS020 OUS010 EQU * CWR A6,A4 RF(E) OUS060 THIS DWT IS ALREADY IN QUEUE LD A3,DWTOTQ,A4 RF(E) OUS030 END OF THREAD FOUND LDR A4,A3 FOLLOW THE THREAD RB OUS010 OUS020 EQU * ST A6,CWTEQ,A5 QUEUE DWT RF OUS040 OUS030 EQU * ST A6,DWTOTQ,A4 QUEUE DWT OUS040 CM DWTOTQ,A6 SET END OF THREAD RF OUS060 EJECT * * START OUTPUT * OUS050 EQU * LD A1,PFPOST PWF POST PROCESSING FLAG =5 RF(NZ) OUS070 PFINIT PENDING =5 LDK A1,/4 EVEN PARITY =1 EX CWTCIS,A5 CIO START OUTPUT RF(NA) OUS070 * * SYNC TIMING * LD A3,CWTTP,A5 ADDRESS TO TIMER BLOCK =2 RF(Z) STTIM * =2 * * RESTART TIMER * LDKL A3,-TIME RESTART TIMER =2 ST* A3,CWTTP,A5 * =2 RF OUS052 * =5(=2) * * START TIMER * STTIM EQU * * =2 LDR A1,A5 SAVE CWT-ADDRESS AS PARAMETER =2 LDK A4,CWTTP * =2 ADR A4,A5 TIMER POINTER ADDRESS =2 CF A15,SETIMP START TIMER OF 0.5 S =2 DATA T:OUT,TIME TIME-OUT ADDRESS AND VALUE =2 EJECT * * CHECK IF OUTPUT TO KEYBOARD LAMPS * OUS052 EQU * * =5 LD A7,DWTCP2,A6 CHANNEL PARAMETERS 2 ANK A7,/3F DEVICE ADDRESS SUK A7,DI OUTPUT TO KEYBOARD LAMPS? RF(Z) OUS080 YES, QUEUE LAMP CODE EJECT * * SEND CHARACTER * OUS053 EX CWTOTR,A5 OTR =3 RF(A) OUS055 * =3 CWK A6,DWTSYN SYNC-SENDING? =3 RF(NE) OUS054 NO =3 STR A6,A5 STORE SYNC-DWT IN CWT =3 RF OUS070 * =3 OUS054 LD A1,CWTST,A5 CHANNEL STATUS =3 SLL A3,1 * =3 RF(N) OUS070 NOT OPERABLE BIT SET =3 RB OUS005 * =3 OUS055 EQU * LDK A1,0 EX CWTCIH,A5 CIO STOP OUTPUT STR A6,A5 STORE LAST DWT IN CWT CWK A6,DWTSYN SYNC-DWT? =2 RF(E) OUS070 YES =2 * IFT LOGING=1 CF A15,INFLOG GET LINE INFORMATION CF A15,LOGG **LOGG OF OUTPUT CHARACTER** XIF * LDR A7,A7 OUTPUT TO KEYBOARD LAMPS? RF(Z) OUS070 YES OUS060 SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT OUS070 EQU * MLR 8,A15 RESTORE A1-A8 FROM STACK * =6 INH * =6 ADKL A15,2 ADJUST STACK POINTER =6 LDR* P,A15 RETURN =6 EJECT * * PUT LAMPCODE FIRST IN QUEUE AND * LOAD /1C IN OUTPUT REGISTER * /1C = CODE FOR DATA TO KEYBOARD * OUS080 EQU * LC A4,CWTST,A5 LEFT BYTE OF CWT STATUS =3 LDKL A1,/FBFF ANS A1,CWTST,A5 RESET BIT 'LAMP CODE QUEUED' =3 ANK A4,/04 RB(NZ) OUS053 LAMP CODE ALREADY IN QUEUE LD A4,CWTEQ,A5 OUTPUT QUEUE RF(E) OUS090 CWR A6,A4 RB(E) OUS060 THIS DWT ALREADY IN QUEUE OUS090 EQU * ST A4,DWTOTQ,A6 MOVE QUEUE LINK ST A6,CWTEQ,A5 QUEUE LAMP CODE SC A2,DWTOCH,A6 STORE LAMP CODE IN DWT C1R A1,A1 ORS A1,CWTST,A5 SET BIT 'LAMP CODE QUEUED' =3 LDK A2,/1C RB OUS053 * EJECT * * TIME-OUT ROUTINE FOR SYNC-SENDING. * IF NOTHING HAPPENS ON A LINE IN 500 MS * SYNC-CHARACTER IS SENT. * * T:OUT EQU * * =2 LDR A5,A1 * =2 CM CWTTP,A5 RESET TIMER POINTER =2 LDR* A6,A5 LINE FREE? =2 RF(NZ) T:OUT2 NO =2 LDKL A6,DWTSYN SIMULATED DWT-ADDRESS =2 LDK A2,0 OUTPUT CHARACTER =2 CF A15,OUTSAL SEND '00' =2 T:OUT2 EQU * * =2 ABL TDISP * =2 * DWTSYN DATA /200 CHANNEL PARAMETER =2 EJECT * * CHARACTER INPUT * SLCHRI EQU * LDK A2,/20 ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT RF SLDISP LOCAL DISPATCHER * * START OF A BLOCK * SLSTBL EQU * * * END OF A BLOCK * SLENBL EQU * ABL NDRETO RETURN TO DEVICE DRIVER * * CHARACTER OUTPUT * SLCHRO EQU * CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT CF A15,OUTSAL SEND CHARACTER * * LOCAL DISPATCHER * SLDISP EQU * ABL TDISP GO TO DISPATCHER * EJECT * * I N F L O G * * SUBROUTINE TO GET INFORMATION ABOUT CHANNEL UNIT INDEX * AND DEVICE ADDRESS FOR USE IN LOGG. * THE INFORMATION IS TAKEN FROM CHANNEL PARAMETERS AND * ADDED TO REGISTER A2. * * DEVICE ADDRESS IS STORED IN BITS 0-3 * CH. UNIT INDEX IS STORED IN BITS 4-6 * * ON ENTRY: * * A2 = INPUT CHARACTER * A6 = DWT ADDRESS * * ON EXIT: * * A2 = INPUT WORD WITH ADDED INFORMATION * A3,A4 ARE DESTROYED * IFT LOGING=1 * INFLOG EQU * LDR* A3,A6 GET CHANNEL PARAMETERS ANK A3,/7 CHANNEL UNIT INDEX LD A4,DWTCP2,A6 CHANNEL PARAMETERS 2 ANK A4,/7 DEVICE ADDRESS SLL A4,3 ORR A3,A4 COMBINE DEV.ADDR. AND CH. UNIT INDEX SLL A3,9 ORR A2,A3 COMBINE INFORMATION WITH CHARACTER RTN A15 * XIF 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 250 LOGG AREA BUFE EQU * * XIF EJECT * * RETURN AND ENABLE * RTNA15 EQU * ADKL A15,2 ENB LDR* P,A15 * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRSL01 REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0064 Head {h00=0x0022, h01=0x0050, text=» NEW DEVICE DRIVER INTERFACE«, t00=0x0000, t01=0x0042}
0x0064…0080 Head {h00=0x0018, h01=0x0050, text=» PRR 10.0 79-12-07«, t00=0x0000, t01=0x0068}
0x0080…00aa Head {h00=0x0026, h01=0x0050, text=» =6, RTN FROM OUTSAL IN INH MODE«, t00=0x0000, t01=0x0084}
0x00aa…00c6 Head {h00=0x0018, h01=0x0050, text=» PRR 10.1 79-11-20«, t00=0x0000, t01=0x00ae}
0x00c6…00ee Head {h00=0x0024, h01=0x0050, text=» =5, CHECK IF PFINIT PENDING; «, t00=0x0000, t01=0x00ca}
0x00ee…0116 Head {h00=0x0024, h01=0x0050, text=» TIMER FOR INPUT NOT OPERABLE;«, t00=0x0000, t01=0x00f2}
0x0116…013e Head {h00=0x0024, h01=0x0050, text=» NO SOFTWARE PARITY GENERATION«, t00=0x0000, t01=0x011a}
0x013e…015a Head {h00=0x0018, h01=0x0050, text=» PRR 10.1 79-11-09«, t00=0x0000, t01=0x0142}
0x015a…0188 Head {h00=0x002a, h01=0x0050, text=» =4, CHECK QUEUE AFTER SYNC SENDING «, t00=0x0000, t01=0x015e}
0x0188…01a4 Head {h00=0x0018, h01=0x0050, text=» PRR 10.1 79-10-16«, t00=0x0000, t01=0x018c}
0x01a4…01c8 Head {h00=0x0020, h01=0x0050, text=» =3, CORR. WHEN NOT OPER. «, t00=0x0001, t01=0x0018}
0x01c8…01e6 Head {h00=0x001a, h01=0x0050, text=» MOVE OF STATUS BIT «, t00=0x0001, t01=0x003c}
0x01e6…0202 Head {h00=0x0018, h01=0x0050, text=» PRR 10.1 79-10-08«, t00=0x0001, t01=0x005a}
0x0202…022a Head {h00=0x0024, h01=0x0050, text=» =2, IMPROV. OF REMOTE SENDING«, t00=0x0001, t01=0x0076}
0x022a…0246 Head {h00=0x0018, h01=0x0050, text=» PRR 10.1 79-10-03«, t00=0x0001, t01=0x009e}
0x0246…0270 Head {h00=0x0026, h01=0x0050, text=» =1, CHECK IF OUTPUT CHAR.= ETX;«, t00=0x0001, t01=0x00ba}
0x0270…0290 Head {h00=0x001c, h01=0x0050, text=» CHANGE TO EVEN PARITY«, t00=0x0001, t01=0x00e4}
0x0290…02ac Head {h00=0x0018, h01=0x0050, text=» PRR 10.1 79-09-21«, t00=0x0001, t01=0x0104}
0x02ac…02b4 Head {h00=0x0004, h01=0x0002, t00=0x0001, t01=0x0120}
0x02b4…02be Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0128}
0x02be…02c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0132}
0x02c8…0316 Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0001, t01=0x013c}
0x0316…0320 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x018a}
0x0320…0348 (2, 0, 400) Head {h00=0x0024, h01=0x001f, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0002, t01=0x0004}
0x0348…0352 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x002c}
0x0352…037a Head {h00=0x0024, h01=0x0050, text=»* DRSL01 = DRIVER CHANNEL UNIT«, t00=0x0002, t01=0x0036}
0x037a…0384 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x005e}
0x0384…03a0 Head {h00=0x0018, h01=0x0013, text=»* SALCUZ «, t00=0x0002, t01=0x0068}
0x03a0…03aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0084}
0x03aa…03b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x008e}
0x03b4…03be Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0098}
0x03be…03c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00a2}
0x03c8…03d2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00ac}
0x03d2…0420 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0002, t01=0x00b6}
0x0420…042a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0104}
0x042a…0462 Head {h00=0x0034, h01=0x002f, text=»* THIS IS A CHANNEL UNIT DRIVER FOR TERMINALS «, t00=0x0002, t01=0x010e}
0x0462…048a Head {h00=0x0024, h01=0x0020, text=»* CONNECTED TO CPU VIA SALCUZ.«, t00=0x0002, t01=0x0146}
0x048a…04b8 Head {h00=0x002a, h01=0x0025, text=»* TERMINALS MAY BE LOCAL OR REMOTE. «, t00=0x0002, t01=0x016e}
0x04b8…04c2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x000c}
0x04c2…0504 Head {h00=0x003e, h01=0x0039, text=»* AT INPUT INTERRUPT A CHARACTER IS READ TO REGISTER A2 «, t00=0x0003, t01=0x0016}
0x0504…0544 Head {h00=0x003c, h01=0x0038, text=»* AND A BRANCH IS MADE TO INTERRUPT HANDLER FOR ACTUAL«, t00=0x0003, t01=0x0058}
0x0544…0558 Head {h00=0x0010, h01=0x000b, text=»* DEVICE. «, t00=0x0003, t01=0x0098}
0x0558…0562 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00ac}
0x0562…059e Head {h00=0x0038, h01=0x0034, text=»* AFTER AN OUTPUT IS ENDED AN OUTPUT INTERRUPT IS «, t00=0x0003, t01=0x00b6}
0x059e…05e0 Head {h00=0x003e, h01=0x003a, text=»* GENERATED FROM SALCUZ. THE DRIVER CHECKS THE INTERRUPT«, t00=0x0003, t01=0x00f2}
0x05e0…0616 Head {h00=0x0032, h01=0x002e, text=»* AND A BRANCH IS MADE TO INTERRUPT HANDLER.«, t00=0x0003, t01=0x0134}
0x0616…0620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016a}
0x0620…062a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0174}
0x062a…0638 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x017e}
0x0638…0642 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x018c}
0x0642…0682 Head {h00=0x003c, h01=0x0037, text=»* THE DRIVER ALSO INCLUDES THE FOLLOWING SUBROUTINES: «, t00=0x0004, t01=0x0008}
0x0682…068c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0048}
0x068c…06d0 Head {h00=0x0040, h01=0x003b, text=»* -SLCUON EXECUTE CIO START ON EVERY SALCUZ AT POWER ON «, t00=0x0004, t01=0x0052}
0x06d0…06da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0096}
0x06da…0702 Head {h00=0x0024, h01=0x0050, text=»* -OUTSAL SEND ONE CHARACTER«, t00=0x0004, t01=0x00a0}
0x0702…070c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c8}
0x070c…0746 Head {h00=0x0036, h01=0x0032, text=»* CONTROL WORK TABLES ARE INCLUDED IN THE DRIVER«, t00=0x0004, t01=0x00d2}
0x0746…0750 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x010c}
0x0750…0780 Head {h00=0x002c, h01=0x0028, text=»* NORMAL REGISTER USAGE IN THE DRIVER:«, t00=0x0004, t01=0x0116}
0x0780…078a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0146}
0x078a…07a6 Head {h00=0x0018, h01=0x0014, text=»* A1 = RETURN CODE«, t00=0x0004, t01=0x0150}
0x07a6…07c6 Head {h00=0x001c, h01=0x0018, text=»* A2 = INPUT CHARACTER«, t00=0x0004, t01=0x016c}
0x07c6…07e4 Head {h00=0x001a, h01=0x0016, text=»* A3 = WORK REGISTER«, t00=0x0004, t01=0x018c}
0x07e4…0806 Head {h00=0x001e, h01=0x001a, text=»* A4 = DEVICE NUMBER * 2«, t00=0x0005, t01=0x001a}
0x0806…0822 Head {h00=0x0018, h01=0x0014, text=»* A5 = CWT-ADDRESS«, t00=0x0005, t01=0x003c}
0x0822…083e Head {h00=0x0018, h01=0x0014, text=»* A6 = DWT-ADDRESS«, t00=0x0005, t01=0x0058}
0x083e…0854 Head {h00=0x0012, h01=0x000e, text=»* A7 = ORDER«, t00=0x0005, t01=0x0074}
0x0854…0870 Head {h00=0x0018, h01=0x0014, text=»* A8 = ECB ADDRESS«, t00=0x0005, t01=0x008a}
0x0870…087a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00a6}
0x087a…0884 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00b0}
0x0884…088e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00ba}
0x088e…089c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0005, t01=0x00c4}
0x089c…08a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00d2}
0x08a6…08ba Head {h00=0x0010, h01=0x000b, text=»*********** «, t00=0x0005, t01=0x00dc}
0x08ba…08ce Head {h00=0x0010, h01=0x000b, text=»* ENTRIES * «, t00=0x0005, t01=0x00f0}
0x08ce…08e2 Head {h00=0x0010, h01=0x000b, text=»*********** «, t00=0x0005, t01=0x0104}
0x08e2…08ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0118}
0x08ec…08f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0122}
0x08f6…0928 Head {h00=0x002e, h01=0x0050, text=» ENTRY ISLCI INPUT INTERRUPTS FROM SALCUZ «, t00=0x0005, t01=0x012c}
0x0928…095a Head {h00=0x002e, h01=0x0050, text=» ENTRY ISLCO OUTPUT INTERRUPTS FROM SALCUZ«, t00=0x0005, t01=0x015e}
0x095a…0982 Head {h00=0x0024, h01=0x0050, text=» ENTRY SLCUON START AT POWER ON «, t00=0x0005, t01=0x0190}
0x0982…09ae Head {h00=0x0028, h01=0x0050, text=» ENTRY CHAN NUMBER OF CHANNEL UNITS «, t00=0x0006, t01=0x0028}
0x09ae…09b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0054}
0x09b8…09de Head {h00=0x0022, h01=0x0050, text=» ENTRY SLCHRI CHARACTER INPUT «, t00=0x0006, t01=0x005e}
0x09de…0a10 Head {h00=0x002e, h01=0x0050, text=» ENTRY SLSTBL DEFINE START OF OUTPUT BLOCK«, t00=0x0006, t01=0x0084}
0x0a10…0a36 Head {h00=0x0022, h01=0x0050, text=» ENTRY SLCHRO CHARACTER OUTPUT«, t00=0x0006, t01=0x00b6}
0x0a36…0a66 Head {h00=0x002c, h01=0x0050, text=» ENTRY SLENBL DEFINE END OF OUTPUT BLOCK«, t00=0x0006, t01=0x00dc}
0x0a66…0a8c Head {h00=0x0022, h01=0x0050, text=» ENTRY SLDISP LOCAL DISPATCHER«, t00=0x0006, t01=0x010c}
0x0a8c…0a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0132}
0x0a96…0aa4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0006, t01=0x013c}
0x0aa4…0aae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x014a}
0x0aae…0ab8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0154}
0x0ab8…0ae0 Head {h00=0x0024, h01=0x0020, text=»********************************«, t00=0x0006, t01=0x015e}
0x0ae0…0b08 Head {h00=0x0024, h01=0x0020, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0006, t01=0x0186}
0x0b08…0b30 Head {h00=0x0024, h01=0x0020, text=»********************************«, t00=0x0007, t01=0x001e}
0x0b30…0b3a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0046}
0x0b3a…0b5a Head {h00=0x001c, h01=0x0017, text=» EXTRN TDISP DISPATCHER «, t00=0x0007, t01=0x0050}
0x0b5a…0b88 Head {h00=0x002a, h01=0x0026, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0007, t01=0x0070}
0x0b88…0bb2 Head {h00=0x0026, h01=0x0050, text=» EXTRN SETIMP SET TIMER ROUTINE =2«, t00=0x0007, t01=0x009e}
0x0bb2…0be4 Head {h00=0x002e, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG =5 «, t00=0x0007, t01=0x00c8}
0x0be4…0bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fa}
0x0bee…0c1e Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSL1 WS TABLE ADDRESS SALCUZ 1 «, t00=0x0007, t01=0x0104}
0x0c1e…0c4e Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSL2 WS TABLE ADDRESS SALCUZ 2 «, t00=0x0007, t01=0x0134}
0x0c4e…0c7e Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSL3 WS TABLE ADDRESS SALCUZ 3 «, t00=0x0007, t01=0x0164}
0x0c7e…0cae (8, 0, 400) Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSL4 WS TABLE ADDRESS SALCUZ 4 «, t00=0x0008, t01=0x0004}
0x0cae…0cde Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSL5 WS TABLE ADDRESS SALCUZ 5 «, t00=0x0008, t01=0x0034}
0x0cde…0d0e Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSL6 WS TABLE ADDRESS SALCUZ 6 «, t00=0x0008, t01=0x0064}
0x0d0e…0d3e Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSL7 WS TABLE ADDRESS SALCUZ 7 «, t00=0x0008, t01=0x0094}
0x0d3e…0d6e Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSL8 WS TABLE ADDRESS SALCUZ 8 «, t00=0x0008, t01=0x00c4}
0x0d6e…0d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f4}
0x0d78…0da6 Head {h00=0x002a, h01=0x0050, text=» EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT«, t00=0x0008, t01=0x00fe}
0x0da6…0dd8 Head {h00=0x002e, h01=0x0050, text=» EXTRN NDGEDN GET HIGHEST DWT NUMBER ON WS«, t00=0x0008, t01=0x012c}
0x0dd8…0dfe Head {h00=0x0022, h01=0x0050, text=» EXTRN NDGEDW GET DWT-ADDRESS «, t00=0x0008, t01=0x015e}
0x0dfe…0e34 Head {h00=0x0032, h01=0x0050, text=» EXTRN NDREWS CALL RECOVERY FOR ALL DEV ON WS «, t00=0x0008, t01=0x0184}
0x0e34…0e56 Head {h00=0x001e, h01=0x0050, text=» EXTRN NDRETO OK & RETURN «, t00=0x0009, t01=0x002a}
0x0e56…0e78 Head {h00=0x001e, h01=0x0050, text=» EXTRN NDREP POP & RETURN «, t00=0x0009, t01=0x004c}
0x0e78…0e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006e}
0x0e82…0e90 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0009, t01=0x0078}
0x0e90…0e9a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0086}
0x0e9a…0eb4 Head {h00=0x0016, h01=0x0012, text=»******************«, t00=0x0009, t01=0x0090}
0x0eb4…0ece Head {h00=0x0016, h01=0x0012, text=»* DWT PARAMETERS *«, t00=0x0009, t01=0x00aa}
0x0ece…0ee8 Head {h00=0x0016, h01=0x0012, text=»******************«, t00=0x0009, t01=0x00c4}
0x0ee8…0ef2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x00de}
0x0ef2…0efc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x00e8}
0x0efc…0f18 Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0009, t01=0x00f2}
0x0f18…0f32 Head {h00=0x0016, h01=0x0012, text=» EXTRN DWTOR ORDER«, t00=0x0009, t01=0x010e}
0x0f32…0f5e Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTOCH LAST OUTPUT CHARACTER «, t00=0x0009, t01=0x0128}
0x0f5e…0f80 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0009, t01=0x0154}
0x0f80…0fae Head {h00=0x002a, h01=0x0025, text=» EXTRN DWTADR ADDRESS TO ADDRESSBLOCK «, t00=0x0009, t01=0x0176}
0x0fae…0fd6 Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTOTQ OUTPUT QUEUE LINK «, t00=0x000a, t01=0x0014}
0x0fd6…0ff8 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE 2«, t00=0x000a, t01=0x003c}
0x0ff8…1022 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTCP2 CHANNEL PARAMETERS 2«, t00=0x000a, t01=0x005e}
0x1022…102c Head {h00=0x0006, h01=0x0004, text=»* «, t00=0x000a, t01=0x0088}
0x102c…1060 Head {h00=0x0030, h01=0x0050, text=» EXTRN INTADR INTERRUPT ADDRESS DISPLACEMENT«, t00=0x000a, t01=0x0092}
0x1060…1094 Head {h00=0x0030, h01=0x0050, text=» EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT «, t00=0x000a, t01=0x00c6}
0x1094…109e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00fa}
0x109e…10ac Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000a, t01=0x0104}
0x10ac…10b6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0112}
0x10b6…10c0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x011c}
0x10c0…10d6 Head {h00=0x0012, h01=0x000d, text=»************* «, t00=0x000a, t01=0x0126}
0x10d6…10ec Head {h00=0x0012, h01=0x000d, text=»* CONSTANTS * «, t00=0x000a, t01=0x013c}
0x10ec…1102 Head {h00=0x0012, h01=0x000d, text=»************* «, t00=0x000a, t01=0x0152}
0x1102…110c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0168}
0x110c…1116 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0172}
0x1116…1142 Head {h00=0x0028, h01=0x0050, text=»KB EQU 1 DEVICE ADDRESS FOR KEYBOARD«, t00=0x000a, t01=0x017c}
0x1142…1174 Head {h00=0x002e, h01=0x0050, text=»DI EQU 2 DEVICE ADDRESS FOR KEYBOARD LAMPS«, t00=0x000b, t01=0x0018}
0x1174…11a8 Head {h00=0x0030, h01=0x0050, text=»TIME EQU 5 TIME BEFORE TIME-OUT FOR SYNC =2 «, t00=0x000b, t01=0x004a}
0x11a8…11da Head {h00=0x002e, h01=0x0050, text=»INPTIM EQU 10 INPUT NOT OP. TIMER VALUE =5«, t00=0x000b, t01=0x007e}
0x11da…11e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x00b0}
0x11e4…11f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00ba}
0x11f2…11fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c8}
0x11fc…121c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x00d2}
0x121c…123c Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x00f2}
0x123c…125c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x0112}
0x125c…1266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0132}
0x1266…12a6 Head {h00=0x003c, h01=0x0050, text=»* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER «, t00=0x000b, t01=0x013c}
0x12a6…12ec Head {h00=0x0042, h01=0x0050, text=»* AND STATUS MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 «, t00=0x000b, t01=0x017c}
0x12ec…12f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0032}
0x12f6…1308 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000c, t01=0x003c}
0x1308…131e Head {h00=0x0012, h01=0x0050, text=»LOGING EQU X:A«, t00=0x000c, t01=0x004e}
0x131e…1328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0064}
0x1328…135a Head {h00=0x002e, h01=0x0050, text=»* THIS DRIVER HANDLES ONE OR UP TO EIGHT«, t00=0x000c, t01=0x006e}
0x135a…1390 Head {h00=0x0032, h01=0x0050, text=»* CHANNELS BY SETTING X:B TO 1, 2, 3,..., 8 «, t00=0x000c, t01=0x00a0}
0x1390…139a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d6}
0x139a…13ac Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000c, t01=0x00e0}
0x13ac…13c0 Head {h00=0x0010, h01=0x0050, text=»CHAN EQU X:B«, t00=0x000c, t01=0x00f2}
0x13c0…13ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0106}
0x13ca…13d8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000c, t01=0x0110}
0x13d8…13e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x011e}
0x13e2…13fe Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x000c, t01=0x0128}
0x13fe…141a Head {h00=0x0018, h01=0x0013, text=»* C W T S A 1 * «, t00=0x000c, t01=0x0144}
0x141a…1436 Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x000c, t01=0x0160}
0x1436…1440 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x017c}
0x1440…146c Head {h00=0x0028, h01=0x0023, text=»* CONTROL WORK TABLE FOR SALCUZ 1 «, t00=0x000c, t01=0x0186}
0x146c…1476 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0022}
0x1476…14a0 Head {h00=0x0026, h01=0x0050, text=»CUAD1 EQU /1A CONTROL UNIT ADDRESS«, t00=0x000d, t01=0x002c}
0x14a0…14aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0056}
0x14aa…14ca Head {h00=0x001c, h01=0x0018, text=»CWTSA1 EQU * TABLE ENTRY«, t00=0x000d, t01=0x0060}
0x14ca…14e6 Head {h00=0x0018, h01=0x0013, text=»CWTLDW EQU *-CWTSA1 «, t00=0x000d, t01=0x0080}
0x14e6…1506 Head {h00=0x001c, h01=0x0017, text=» DATA 0 LAST OUTPUT DWT «, t00=0x000d, t01=0x009c}
0x1506…1522 Head {h00=0x0018, h01=0x0050, text=»CWTITA EQU *-CWTSA1 «, t00=0x000d, t01=0x00bc}
0x1522…154c Head {h00=0x0026, h01=0x0050, text=» DATA INTSL1 WORK STATION ADDRESS «, t00=0x000d, t01=0x00d8}
0x154c…1568 Head {h00=0x0018, h01=0x0013, text=»CWTINR EQU *-CWTSA1 «, t00=0x000d, t01=0x0102}
0x1568…1584 Head {h00=0x0018, h01=0x0013, text=» INR A2,0,CUAD1 INR «, t00=0x000d, t01=0x011e}
0x1584…15a0 Head {h00=0x0018, h01=0x0013, text=»CWTOTR EQU *-CWTSA1 «, t00=0x000d, t01=0x013a}
0x15a0…15be Head {h00=0x001a, h01=0x0050, text=» OTR A2,0,CUAD1+1 OTR «, t00=0x000d, t01=0x0156}
0x15be…15da Head {h00=0x0018, h01=0x0013, text=»CWTCIS EQU *-CWTSA1 «, t00=0x000d, t01=0x0174}
0x15da…1604 Head {h00=0x0026, h01=0x0050, text=» CIO A1,1,CUAD1+1 CIO START OUTPUT«, t00=0x000d, t01=0x0190}
0x1604…1624 Head {h00=0x001c, h01=0x0050, text=»CWTTP EQU *-CWTSA1 * =2 «, t00=0x000e, t01=0x002a}
0x1624…1644 Head {h00=0x001c, h01=0x0050, text=» DATA 0 TIMER POINTER =2«, t00=0x000e, t01=0x004a}
0x1644…165e Head {h00=0x0016, h01=0x0012, text=»CWTEQ EQU *-CWTSA1«, t00=0x000e, t01=0x006a}
0x165e…1674 Head {h00=0x0012, h01=0x000d, text=» DATA 0 QUEUE «, t00=0x000e, t01=0x0084}
0x1674…1690 Head {h00=0x0018, h01=0x0013, text=»CWTCIH EQU *-CWTSA1 «, t00=0x000e, t01=0x009a}
0x1690…16ba Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,CUAD1+1 CIO HALT OUTPUT «, t00=0x000e, t01=0x00b6}
0x16ba…16d6 Head {h00=0x0018, h01=0x0013, text=»CWTSST EQU *-CWTSA1 «, t00=0x000e, t01=0x00e0}
0x16d6…1700 Head {h00=0x0026, h01=0x0050, text=» SST A2,CUAD1+1 SEND STATUS OUTPUT«, t00=0x000e, t01=0x00fc}
0x1700…171a Head {h00=0x0016, h01=0x0050, text=»CWTST EQU *-CWTSA1«, t00=0x000e, t01=0x0126}
0x171a…1738 Head {h00=0x001a, h01=0x0050, text=» DATA 0 CHANNEL STATUS«, t00=0x000e, t01=0x0140}
0x1738…1754 Head {h00=0x0018, h01=0x0013, text=»CWTCSI EQU *-CWTSA1 «, t00=0x000e, t01=0x015e}
0x1754…177c Head {h00=0x0024, h01=0x001f, text=» CIO A1,1,CUAD1 CIO START INPUT «, t00=0x000e, t01=0x017a}
0x177c…1798 Head {h00=0x0018, h01=0x0013, text=»CWTSSI EQU *-CWTSA1 «, t00=0x000f, t01=0x0012}
0x1798…17c0 Head {h00=0x0024, h01=0x0050, text=» SST A2,CUAD1 SEND STATUS INPUT «, t00=0x000f, t01=0x002e}
0x17c0…17e0 Head {h00=0x001c, h01=0x0050, text=»CWTTP2 EQU *-CWTSA1 * =5«, t00=0x000f, t01=0x0056}
0x17e0…1812 Head {h00=0x002e, h01=0x0050, text=» DATA 0 TIMER POINTER FOR INP. NOT OP. =5 «, t00=0x000f, t01=0x0076}
0x1812…1820 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000f, t01=0x00a8}
0x1820…182a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x00b6}
0x182a…1834 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x00c0}
0x1834…1850 Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x000f, t01=0x00ca}
0x1850…186c Head {h00=0x0018, h01=0x0013, text=»* C W T S A 2 * «, t00=0x000f, t01=0x00e6}
0x186c…1888 Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x000f, t01=0x0102}
0x1888…1892 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x011e}
0x1892…18be Head {h00=0x0028, h01=0x0023, text=»* CONTROL WORK TABLE FOR SALCUZ 2 «, t00=0x000f, t01=0x0128}
0x18be…18c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0154}
0x18c8…18e8 Head {h00=0x001c, h01=0x0018, text=»CWTSA2 EQU * TABLE ENTRY«, t00=0x000f, t01=0x015e}
0x18e8…18f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017e}
0x18f2…1906 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x000f, t01=0x0188}
0x1906…1910 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x000c}
0x1910…193a Head {h00=0x0026, h01=0x0050, text=»CUAD2 EQU /2A CONTROL UNIT ADDRESS«, t00=0x0010, t01=0x0016}
0x193a…1944 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0040}
0x1944…1964 Head {h00=0x001c, h01=0x0017, text=» DATA 0 LAST OUTPUT DWT «, t00=0x0010, t01=0x004a}
0x1964…198e Head {h00=0x0026, h01=0x0050, text=» DATA INTSL2 WORK STATION ADDRESS «, t00=0x0010, t01=0x006a}
0x198e…19aa Head {h00=0x0018, h01=0x0013, text=» INR A2,0,CUAD2 INR «, t00=0x0010, t01=0x0094}
0x19aa…19c8 Head {h00=0x001a, h01=0x0015, text=» OTR A2,0,CUAD2+1 OTR «, t00=0x0010, t01=0x00b0}
0x19c8…19f2 Head {h00=0x0026, h01=0x0022, text=» CIO A1,1,CUAD2+1 CIO START OUTPUT«, t00=0x0010, t01=0x00ce}
0x19f2…1a12 Head {h00=0x001c, h01=0x0050, text=» DATA 0 TIMER POINTER =2«, t00=0x0010, t01=0x00f8}
0x1a12…1a28 Head {h00=0x0012, h01=0x000d, text=» DATA 0 QUEUE «, t00=0x0010, t01=0x0118}
0x1a28…1a52 Head {h00=0x0026, h01=0x0021, text=» CIO A1,0,CUAD2+1 CIO HALT OUTPUT «, t00=0x0010, t01=0x012e}
0x1a52…1a7c Head {h00=0x0026, h01=0x0050, text=» SST A2,CUAD2+1 SEND STATUS OUTPUT«, t00=0x0010, t01=0x0158}
0x1a7c…1a9a Head {h00=0x001a, h01=0x0050, text=» DATA 0 CHANNEL STATUS«, t00=0x0010, t01=0x0182}
0x1a9a…1ac2 Head {h00=0x0024, h01=0x001f, text=» CIO A1,1,CUAD2 CIO START INPUT «, t00=0x0011, t01=0x0010}
0x1ac2…1aea Head {h00=0x0024, h01=0x0050, text=» SST A2,CUAD2 SEND STATUS INPUT «, t00=0x0011, t01=0x0038}
0x1aea…1b1c Head {h00=0x002e, h01=0x0050, text=» DATA 0 TIMER POINTER FOR INP. NOT OP. =5 «, t00=0x0011, t01=0x0060}
0x1b1c…1b26 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0092}
0x1b26…1b32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x009c}
0x1b32…1b40 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0011, t01=0x00a8}
0x1b40…1b4a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00b6}
0x1b4a…1b54 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00c0}
0x1b54…1b70 Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x0011, t01=0x00ca}
0x1b70…1b8c Head {h00=0x0018, h01=0x0013, text=»* C W T S A 3 * «, t00=0x0011, t01=0x00e6}
0x1b8c…1ba8 Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x0011, t01=0x0102}
0x1ba8…1bb2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x011e}
0x1bb2…1bde Head {h00=0x0028, h01=0x0023, text=»* CONTROL WORK TABLE FOR SALCUZ 3 «, t00=0x0011, t01=0x0128}
0x1bde…1be8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0154}
0x1be8…1c08 Head {h00=0x001c, h01=0x0018, text=»CWTSA3 EQU * TABLE ENTRY«, t00=0x0011, t01=0x015e}
0x1c08…1c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017e}
0x1c12…1c26 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x0011, t01=0x0188}
0x1c26…1c3a Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x0012, t01=0x000c}
0x1c3a…1c44 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0020}
0x1c44…1c6e Head {h00=0x0026, h01=0x0050, text=»CUAD3 EQU /2C CONTROL UNIT ADDRESS«, t00=0x0012, t01=0x002a}
0x1c6e…1c78 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0054}
0x1c78…1c98 Head {h00=0x001c, h01=0x0017, text=» DATA 0 LAST OUTPUT DWT «, t00=0x0012, t01=0x005e}
0x1c98…1cc2 Head {h00=0x0026, h01=0x0050, text=» DATA INTSL3 WORK STATION ADDRESS «, t00=0x0012, t01=0x007e}
0x1cc2…1cde Head {h00=0x0018, h01=0x0013, text=» INR A2,0,CUAD3 INR «, t00=0x0012, t01=0x00a8}
0x1cde…1cfc Head {h00=0x001a, h01=0x0015, text=» OTR A2,0,CUAD3+1 OTR «, t00=0x0012, t01=0x00c4}
0x1cfc…1d26 Head {h00=0x0026, h01=0x0022, text=» CIO A1,1,CUAD3+1 CIO START OUTPUT«, t00=0x0012, t01=0x00e2}
0x1d26…1d46 Head {h00=0x001c, h01=0x0050, text=» DATA 0 TIMER POINTER =2«, t00=0x0012, t01=0x010c}
0x1d46…1d5c Head {h00=0x0012, h01=0x000d, text=» DATA 0 QUEUE «, t00=0x0012, t01=0x012c}
0x1d5c…1d86 Head {h00=0x0026, h01=0x0021, text=» CIO A1,0,CUAD3+1 CIO HALT OUTPUT «, t00=0x0012, t01=0x0142}
0x1d86…1db0 Head {h00=0x0026, h01=0x0050, text=» SST A2,CUAD3+1 SEND STATUS OUTPUT«, t00=0x0012, t01=0x016c}
0x1db0…1dce Head {h00=0x001a, h01=0x0050, text=» DATA 0 CHANNEL STATUS«, t00=0x0013, t01=0x0008}
0x1dce…1df6 Head {h00=0x0024, h01=0x001f, text=» CIO A1,1,CUAD3 CIO START INPUT «, t00=0x0013, t01=0x0026}
0x1df6…1e1e Head {h00=0x0024, h01=0x0050, text=» SST A2,CUAD3 SEND STATUS INPUT «, t00=0x0013, t01=0x004e}
0x1e1e…1e50 Head {h00=0x002e, h01=0x0050, text=» DATA 0 TIMER POINTER FOR INP. NOT OP. =5 «, t00=0x0013, t01=0x0076}
0x1e50…1e5a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00a8}
0x1e5a…1e66 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00b2}
0x1e66…1e74 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0013, t01=0x00be}
0x1e74…1e7e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00cc}
0x1e7e…1e88 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00d6}
0x1e88…1ea4 Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x0013, t01=0x00e0}
0x1ea4…1ec0 Head {h00=0x0018, h01=0x0013, text=»* C W T S A 4 * «, t00=0x0013, t01=0x00fc}
0x1ec0…1edc Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x0013, t01=0x0118}
0x1edc…1ee6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0134}
0x1ee6…1f12 Head {h00=0x0028, h01=0x0023, text=»* CONTROL WORK TABLE FOR SALCUZ 4 «, t00=0x0013, t01=0x013e}
0x1f12…1f1c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x016a}
0x1f1c…1f3c Head {h00=0x001c, h01=0x0018, text=»CWTSA4 EQU * TABLE ENTRY«, t00=0x0013, t01=0x0174}
0x1f3c…1f46 (20, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0004}
0x1f46…1f5a Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x0014, t01=0x000e}
0x1f5a…1f6e Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x0014, t01=0x0022}
0x1f6e…1f82 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=3 «, t00=0x0014, t01=0x0036}
0x1f82…1f8c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x004a}
0x1f8c…1fb6 Head {h00=0x0026, h01=0x0050, text=»CUAD4 EQU /3A CONTROL UNIT ADDRESS«, t00=0x0014, t01=0x0054}
0x1fb6…1fc0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x007e}
0x1fc0…1fe0 Head {h00=0x001c, h01=0x0017, text=» DATA 0 LAST OUTPUT DWT «, t00=0x0014, t01=0x0088}
0x1fe0…200a Head {h00=0x0026, h01=0x0050, text=» DATA INTSL4 WORK STATION ADDRESS «, t00=0x0014, t01=0x00a8}
0x200a…2026 Head {h00=0x0018, h01=0x0013, text=» INR A2,0,CUAD4 INR «, t00=0x0014, t01=0x00d2}
0x2026…2044 Head {h00=0x001a, h01=0x0015, text=» OTR A2,0,CUAD4+1 OTR «, t00=0x0014, t01=0x00ee}
0x2044…206e Head {h00=0x0026, h01=0x0022, text=» CIO A1,1,CUAD4+1 CIO START OUTPUT«, t00=0x0014, t01=0x010c}
0x206e…208e Head {h00=0x001c, h01=0x0050, text=» DATA 0 TIMER POINTER =2«, t00=0x0014, t01=0x0136}
0x208e…20a4 Head {h00=0x0012, h01=0x000d, text=» DATA 0 QUEUE «, t00=0x0014, t01=0x0156}
0x20a4…20ce Head {h00=0x0026, h01=0x0021, text=» CIO A1,0,CUAD4+1 CIO HALT OUTPUT «, t00=0x0014, t01=0x016c}
0x20ce…20f8 Head {h00=0x0026, h01=0x0050, text=» SST A2,CUAD4+1 SEND STATUS OUTPUT«, t00=0x0015, t01=0x0008}
0x20f8…2116 Head {h00=0x001a, h01=0x0050, text=» DATA 0 CHANNEL STATUS«, t00=0x0015, t01=0x0032}
0x2116…213e Head {h00=0x0024, h01=0x001f, text=» CIO A1,1,CUAD4 CIO START INPUT «, t00=0x0015, t01=0x0050}
0x213e…2166 Head {h00=0x0024, h01=0x0050, text=» SST A2,CUAD4 SEND STATUS INPUT «, t00=0x0015, t01=0x0078}
0x2166…2198 Head {h00=0x002e, h01=0x0050, text=» DATA 0 TIMER POINTER FOR INP. NOT OP. =5 «, t00=0x0015, t01=0x00a0}
0x2198…21a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00d2}
0x21a2…21ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00dc}
0x21ae…21bc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0015, t01=0x00e8}
0x21bc…21c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00f6}
0x21c6…21d0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0100}
0x21d0…21ec Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x0015, t01=0x010a}
0x21ec…2208 Head {h00=0x0018, h01=0x0050, text=»* C W T S A 5 * «, t00=0x0015, t01=0x0126}
0x2208…2224 Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x0015, t01=0x0142}
0x2224…222e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x015e}
0x222e…225a Head {h00=0x0028, h01=0x0050, text=»* CONTROL WORK TABLE FOR SALCUZ 5 «, t00=0x0015, t01=0x0168}
0x225a…2264 (22, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0004}
0x2264…2284 Head {h00=0x001c, h01=0x0050, text=»CWTSA5 EQU * TABLE ENTRY«, t00=0x0016, t01=0x000e}
0x2284…228e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x002e}
0x228e…22a2 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x0016, t01=0x0038}
0x22a2…22b6 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x0016, t01=0x004c}
0x22b6…22ca Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=3 «, t00=0x0016, t01=0x0060}
0x22ca…22de Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=4 «, t00=0x0016, t01=0x0074}
0x22de…22e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0088}
0x22e8…2316 Head {h00=0x002a, h01=0x0050, text=»CUAD5 EQU NOTDEF CONTROL UNIT ADDRESS «, t00=0x0016, t01=0x0092}
0x2316…2350 Head {h00=0x0036, h01=0x0050, text=»* ONLY DEFINED FOR FOUR SALCUZ CARDS **********«, t00=0x0016, t01=0x00c0}
0x2350…235a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00fa}
0x235a…237a Head {h00=0x001c, h01=0x0017, text=» DATA 0 LAST OUTPUT DWT «, t00=0x0016, t01=0x0104}
0x237a…23a4 Head {h00=0x0026, h01=0x0050, text=» DATA INTSL5 WORK STATION ADDRESS «, t00=0x0016, t01=0x0124}
0x23a4…23c0 Head {h00=0x0018, h01=0x0050, text=» INR A2,0,CUAD5 INR «, t00=0x0016, t01=0x014e}
0x23c0…23de Head {h00=0x001a, h01=0x0050, text=» OTR A2,0,CUAD5+1 OTR «, t00=0x0016, t01=0x016a}
0x23de…2408 Head {h00=0x0026, h01=0x0050, text=» CIO A1,1,CUAD5+1 CIO START OUTPUT«, t00=0x0016, t01=0x0188}
0x2408…2428 Head {h00=0x001c, h01=0x0050, text=» DATA 0 TIMER POINTER =2«, t00=0x0017, t01=0x0022}
0x2428…243e Head {h00=0x0012, h01=0x000d, text=» DATA 0 QUEUE «, t00=0x0017, t01=0x0042}
0x243e…2468 Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,CUAD5+1 CIO HALT OUTPUT «, t00=0x0017, t01=0x0058}
0x2468…2492 Head {h00=0x0026, h01=0x0050, text=» SST A2,CUAD5+1 SEND STATUS OUTPUT«, t00=0x0017, t01=0x0082}
0x2492…24b0 Head {h00=0x001a, h01=0x0050, text=» DATA 0 CHANNEL STATUS«, t00=0x0017, t01=0x00ac}
0x24b0…24d8 Head {h00=0x0024, h01=0x0050, text=» CIO A1,1,CUAD5 CIO START INPUT «, t00=0x0017, t01=0x00ca}
0x24d8…2500 Head {h00=0x0024, h01=0x0050, text=» SST A2,CUAD5 SEND STATUS INPUT «, t00=0x0017, t01=0x00f2}
0x2500…2532 Head {h00=0x002e, h01=0x0050, text=» DATA 0 TIMER POINTER FOR INP. NOT OP. =5 «, t00=0x0017, t01=0x011a}
0x2532…253c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x014c}
0x253c…2548 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0156}
0x2548…2556 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0017, t01=0x0162}
0x2556…2560 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0170}
0x2560…256a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x017a}
0x256a…2586 Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x0017, t01=0x0184}
0x2586…25a2 Head {h00=0x0018, h01=0x0050, text=»* C W T S A 6 * «, t00=0x0018, t01=0x0010}
0x25a2…25be Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x0018, t01=0x002c}
0x25be…25c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0048}
0x25c8…25f4 Head {h00=0x0028, h01=0x0050, text=»* CONTROL WORK TABLE FOR SALCUZ 6 «, t00=0x0018, t01=0x0052}
0x25f4…25fe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x007e}
0x25fe…261e Head {h00=0x001c, h01=0x0050, text=»CWTSA6 EQU * TABLE ENTRY«, t00=0x0018, t01=0x0088}
0x261e…2628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a8}
0x2628…263c Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x0018, t01=0x00b2}
0x263c…2650 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x0018, t01=0x00c6}
0x2650…2664 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=3 «, t00=0x0018, t01=0x00da}
0x2664…2678 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=4 «, t00=0x0018, t01=0x00ee}
0x2678…268c Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=5 «, t00=0x0018, t01=0x0102}
0x268c…2696 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0116}
0x2696…26c4 Head {h00=0x002a, h01=0x0050, text=»CUAD6 EQU NOTDEF CONTROL UNIT ADDRESS «, t00=0x0018, t01=0x0120}
0x26c4…26fe Head {h00=0x0036, h01=0x0050, text=»* ONLY DEFINED FOR FOUR SALCUZ CARDS **********«, t00=0x0018, t01=0x014e}
0x26fe…2708 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0188}
0x2708…2728 (25, 0, 400) Head {h00=0x001c, h01=0x0017, text=» DATA 0 LAST OUTPUT DWT «, t00=0x0019, t01=0x0004}
0x2728…2752 Head {h00=0x0026, h01=0x0050, text=» DATA INTSL6 WORK STATION ADDRESS «, t00=0x0019, t01=0x0024}
0x2752…276e Head {h00=0x0018, h01=0x0050, text=» INR A2,0,CUAD6 INR «, t00=0x0019, t01=0x004e}
0x276e…278c Head {h00=0x001a, h01=0x0050, text=» OTR A2,0,CUAD6+1 OTR «, t00=0x0019, t01=0x006a}
0x278c…27b6 Head {h00=0x0026, h01=0x0050, text=» CIO A1,1,CUAD6+1 CIO START OUTPUT«, t00=0x0019, t01=0x0088}
0x27b6…27d6 Head {h00=0x001c, h01=0x0050, text=» DATA 0 TIMER POINTER =2«, t00=0x0019, t01=0x00b2}
0x27d6…27ec Head {h00=0x0012, h01=0x000d, text=» DATA 0 QUEUE «, t00=0x0019, t01=0x00d2}
0x27ec…2816 Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,CUAD6+1 CIO HALT OUTPUT «, t00=0x0019, t01=0x00e8}
0x2816…2840 Head {h00=0x0026, h01=0x0050, text=» SST A2,CUAD6+1 SEND STATUS OUTPUT«, t00=0x0019, t01=0x0112}
0x2840…285e Head {h00=0x001a, h01=0x0050, text=» DATA 0 CHANNEL STATUS«, t00=0x0019, t01=0x013c}
0x285e…2886 Head {h00=0x0024, h01=0x0050, text=» CIO A1,1,CUAD6 CIO START INPUT «, t00=0x0019, t01=0x015a}
0x2886…28ae Head {h00=0x0024, h01=0x0050, text=» SST A2,CUAD6 SEND STATUS INPUT «, t00=0x0019, t01=0x0182}
0x28ae…28e0 Head {h00=0x002e, h01=0x0050, text=» DATA 0 TIMER POINTER FOR INP. NOT OP. =5 «, t00=0x001a, t01=0x001a}
0x28e0…28ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x004c}
0x28ea…28f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0056}
0x28f6…2904 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001a, t01=0x0062}
0x2904…290e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x0070}
0x290e…2918 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x007a}
0x2918…2934 Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x001a, t01=0x0084}
0x2934…2950 Head {h00=0x0018, h01=0x0050, text=»* C W T S A 7 * «, t00=0x001a, t01=0x00a0}
0x2950…296c Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x001a, t01=0x00bc}
0x296c…2976 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x00d8}
0x2976…29a2 Head {h00=0x0028, h01=0x0050, text=»* CONTROL WORK TABLE FOR SALCUZ 7 «, t00=0x001a, t01=0x00e2}
0x29a2…29ac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x010e}
0x29ac…29cc Head {h00=0x001c, h01=0x0050, text=»CWTSA7 EQU * TABLE ENTRY«, t00=0x001a, t01=0x0118}
0x29cc…29d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0138}
0x29d6…29ea Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x001a, t01=0x0142}
0x29ea…29fe Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x001a, t01=0x0156}
0x29fe…2a12 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=3 «, t00=0x001a, t01=0x016a}
0x2a12…2a26 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=4 «, t00=0x001a, t01=0x017e}
0x2a26…2a3a (27, 0, 400) Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=5 «, t00=0x001b, t01=0x0004}
0x2a3a…2a4e Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=6 «, t00=0x001b, t01=0x0018}
0x2a4e…2a58 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x002c}
0x2a58…2a86 Head {h00=0x002a, h01=0x0050, text=»CUAD7 EQU NOTDEF CONTROL UNIT ADDRESS «, t00=0x001b, t01=0x0036}
0x2a86…2ac0 Head {h00=0x0036, h01=0x0050, text=»* ONLY DEFINED FOR FOUR SALCUZ CARDS **********«, t00=0x001b, t01=0x0064}
0x2ac0…2aca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x009e}
0x2aca…2aea Head {h00=0x001c, h01=0x0017, text=» DATA 0 LAST OUTPUT DWT «, t00=0x001b, t01=0x00a8}
0x2aea…2b14 Head {h00=0x0026, h01=0x0050, text=» DATA INTSL7 WORK STATION ADDRESS «, t00=0x001b, t01=0x00c8}
0x2b14…2b30 Head {h00=0x0018, h01=0x0050, text=» INR A2,0,CUAD7 INR «, t00=0x001b, t01=0x00f2}
0x2b30…2b4e Head {h00=0x001a, h01=0x0050, text=» OTR A2,0,CUAD7+1 OTR «, t00=0x001b, t01=0x010e}
0x2b4e…2b78 Head {h00=0x0026, h01=0x0050, text=» CIO A1,1,CUAD7+1 CIO START OUTPUT«, t00=0x001b, t01=0x012c}
0x2b78…2b98 Head {h00=0x001c, h01=0x0050, text=» DATA 0 TIMER POINTER =2«, t00=0x001b, t01=0x0156}
0x2b98…2bae Head {h00=0x0012, h01=0x000d, text=» DATA 0 QUEUE «, t00=0x001b, t01=0x0176}
0x2bae…2bd8 Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,CUAD7+1 CIO HALT OUTPUT «, t00=0x001b, t01=0x018c}
0x2bd8…2c02 Head {h00=0x0026, h01=0x0050, text=» SST A2,CUAD7+1 SEND STATUS OUTPUT«, t00=0x001c, t01=0x0026}
0x2c02…2c20 Head {h00=0x001a, h01=0x0050, text=» DATA 0 CHANNEL STATUS«, t00=0x001c, t01=0x0050}
0x2c20…2c48 Head {h00=0x0024, h01=0x0050, text=» CIO A1,1,CUAD7 CIO START INPUT «, t00=0x001c, t01=0x006e}
0x2c48…2c70 Head {h00=0x0024, h01=0x0050, text=» SST A2,CUAD7 SEND STATUS INPUT «, t00=0x001c, t01=0x0096}
0x2c70…2ca2 Head {h00=0x002e, h01=0x0050, text=» DATA 0 TIMER POINTER FOR INP. NOT OP. =5 «, t00=0x001c, t01=0x00be}
0x2ca2…2cac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x00f0}
0x2cac…2cb8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00fa}
0x2cb8…2cc6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001c, t01=0x0106}
0x2cc6…2cd0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x0114}
0x2cd0…2cda Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x011e}
0x2cda…2cf6 Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x001c, t01=0x0128}
0x2cf6…2d12 Head {h00=0x0018, h01=0x0050, text=»* C W T S A 8 * «, t00=0x001c, t01=0x0144}
0x2d12…2d2e Head {h00=0x0018, h01=0x0013, text=»******************* «, t00=0x001c, t01=0x0160}
0x2d2e…2d38 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x017c}
0x2d38…2d64 Head {h00=0x0028, h01=0x0050, text=»* CONTROL WORK TABLE FOR SALCUZ 8 «, t00=0x001c, t01=0x0186}
0x2d64…2d6e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x0022}
0x2d6e…2d8e Head {h00=0x001c, h01=0x0050, text=»CWTSA8 EQU * TABLE ENTRY«, t00=0x001d, t01=0x002c}
0x2d8e…2d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004c}
0x2d98…2dac Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x001d, t01=0x0056}
0x2dac…2dc0 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x001d, t01=0x006a}
0x2dc0…2dd4 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=3 «, t00=0x001d, t01=0x007e}
0x2dd4…2de8 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=4 «, t00=0x001d, t01=0x0092}
0x2de8…2dfc Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=5 «, t00=0x001d, t01=0x00a6}
0x2dfc…2e10 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=6 «, t00=0x001d, t01=0x00ba}
0x2e10…2e24 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=7 «, t00=0x001d, t01=0x00ce}
0x2e24…2e2e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x00e2}
0x2e2e…2e5c Head {h00=0x002a, h01=0x0050, text=»CUAD8 EQU NOTDEF CONTROL UNIT ADDRESS «, t00=0x001d, t01=0x00ec}
0x2e5c…2e96 Head {h00=0x0036, h01=0x0050, text=»* ONLY DEFINED FOR FOUR SALCUZ CARDS **********«, t00=0x001d, t01=0x011a}
0x2e96…2ea0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x0154}
0x2ea0…2ec0 Head {h00=0x001c, h01=0x0017, text=» DATA 0 LAST OUTPUT DWT «, t00=0x001d, t01=0x015e}
0x2ec0…2eea Head {h00=0x0026, h01=0x0050, text=» DATA INTSL8 WORK STATION ADDRESS «, t00=0x001d, t01=0x017e}
0x2eea…2f06 Head {h00=0x0018, h01=0x0050, text=» INR A2,0,CUAD8 INR «, t00=0x001e, t01=0x0018}
0x2f06…2f24 Head {h00=0x001a, h01=0x0050, text=» OTR A2,0,CUAD8+1 OTR «, t00=0x001e, t01=0x0034}
0x2f24…2f4e Head {h00=0x0026, h01=0x0050, text=» CIO A1,1,CUAD8+1 CIO START OUTPUT«, t00=0x001e, t01=0x0052}
0x2f4e…2f6e Head {h00=0x001c, h01=0x0050, text=» DATA 0 TIMER POINTER =2«, t00=0x001e, t01=0x007c}
0x2f6e…2f84 Head {h00=0x0012, h01=0x000d, text=» DATA 0 QUEUE «, t00=0x001e, t01=0x009c}
0x2f84…2fae Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,CUAD8+1 CIO HALT OUTPUT «, t00=0x001e, t01=0x00b2}
0x2fae…2fd8 Head {h00=0x0026, h01=0x0050, text=» SST A2,CUAD8+1 SEND STATUS OUTPUT«, t00=0x001e, t01=0x00dc}
0x2fd8…2ff6 Head {h00=0x001a, h01=0x0050, text=» DATA 0 CHANNEL STATUS«, t00=0x001e, t01=0x0106}
0x2ff6…301e Head {h00=0x0024, h01=0x0050, text=» CIO A1,1,CUAD8 CIO START INPUT «, t00=0x001e, t01=0x0124}
0x301e…3046 Head {h00=0x0024, h01=0x0050, text=» SST A2,CUAD8 SEND STATUS INPUT «, t00=0x001e, t01=0x014c}
0x3046…3078 Head {h00=0x002e, h01=0x0050, text=» DATA 0 TIMER POINTER FOR INP. NOT OP. =5 «, t00=0x001e, t01=0x0174}
0x3078…3082 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0016}
0x3082…308e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0020}
0x308e…309c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001f, t01=0x002c}
0x309c…30a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x003a}
0x30a6…30b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0044}
0x30b0…30ca Head {h00=0x0016, h01=0x0011, text=»***************** «, t00=0x001f, t01=0x004e}
0x30ca…30e4 Head {h00=0x0016, h01=0x0011, text=»* C H T A B * «, t00=0x001f, t01=0x0068}
0x30e4…30fe Head {h00=0x0016, h01=0x0011, text=»***************** «, t00=0x001f, t01=0x0082}
0x30fe…3108 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x009c}
0x3108…313e Head {h00=0x0032, h01=0x002e, text=»* THIS TABLE HOLDS ADDRESSES OF CONTROL WORK«, t00=0x001f, t01=0x00a6}
0x313e…3166 Head {h00=0x0024, h01=0x0020, text=»* TABLES CWT TO CHANNEL UNITS.«, t00=0x001f, t01=0x00dc}
0x3166…3170 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0104}
0x3170…317a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x010e}
0x317a…318e Head {h00=0x0010, h01=0x000b, text=»CHTAB EQU * «, t00=0x001f, t01=0x0118}
0x318e…31b2 Head {h00=0x0020, h01=0x001b, text=» DATA CHTABE-* TABLE LENGTH «, t00=0x001f, t01=0x012c}
0x31b2…31c6 Head {h00=0x0010, h01=0x000c, text=» DATA CWTSA1«, t00=0x001f, t01=0x0150}
0x31c6…31da Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x001f, t01=0x0164}
0x31da…31ee Head {h00=0x0010, h01=0x0050, text=» DATA CWTSA2«, t00=0x001f, t01=0x0178}
0x31ee…31fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x018c}
0x31fa…320e Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x0020, t01=0x0008}
0x320e…3222 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x0020, t01=0x001c}
0x3222…3236 Head {h00=0x0010, h01=0x0050, text=» DATA CWTSA3«, t00=0x0020, t01=0x0030}
0x3236…3242 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0044}
0x3242…3256 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x0020, t01=0x0050}
0x3256…326a Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x0020, t01=0x0064}
0x326a…327e Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=3 «, t00=0x0020, t01=0x0078}
0x327e…3292 Head {h00=0x0010, h01=0x000c, text=» DATA CWTSA4«, t00=0x0020, t01=0x008c}
0x3292…329e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00a0}
0x329e…32b2 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x0020, t01=0x00ac}
0x32b2…32c6 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x0020, t01=0x00c0}
0x32c6…32da Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=3 «, t00=0x0020, t01=0x00d4}
0x32da…32ee Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=4 «, t00=0x0020, t01=0x00e8}
0x32ee…3302 Head {h00=0x0010, h01=0x0050, text=» DATA CWTSA5«, t00=0x0020, t01=0x00fc}
0x3302…330e Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0020, t01=0x0110}
0x330e…3322 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x0020, t01=0x011c}
0x3322…3336 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x0020, t01=0x0130}
0x3336…334a Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=3 «, t00=0x0020, t01=0x0144}
0x334a…335e Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=4 «, t00=0x0020, t01=0x0158}
0x335e…3372 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=5 «, t00=0x0020, t01=0x016c}
0x3372…3386 Head {h00=0x0010, h01=0x0050, text=» DATA CWTSA6«, t00=0x0020, t01=0x0180}
0x3386…3392 (33, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0004}
0x3392…33a6 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x0021, t01=0x0010}
0x33a6…33ba Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x0021, t01=0x0024}
0x33ba…33ce Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=3 «, t00=0x0021, t01=0x0038}
0x33ce…33e2 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=4 «, t00=0x0021, t01=0x004c}
0x33e2…33f6 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=5 «, t00=0x0021, t01=0x0060}
0x33f6…340a Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=6 «, t00=0x0021, t01=0x0074}
0x340a…341e Head {h00=0x0010, h01=0x0050, text=» DATA CWTSA7«, t00=0x0021, t01=0x0088}
0x341e…342a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x009c}
0x342a…343e Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x0021, t01=0x00a8}
0x343e…3452 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=2 «, t00=0x0021, t01=0x00bc}
0x3452…3466 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=3 «, t00=0x0021, t01=0x00d0}
0x3466…347a Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=4 «, t00=0x0021, t01=0x00e4}
0x347a…348e Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=5 «, t00=0x0021, t01=0x00f8}
0x348e…34a2 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=6 «, t00=0x0021, t01=0x010c}
0x34a2…34b6 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=7 «, t00=0x0021, t01=0x0120}
0x34b6…34ca Head {h00=0x0010, h01=0x0050, text=» DATA CWTSA8«, t00=0x0021, t01=0x0134}
0x34ca…34d6 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0021, t01=0x0148}
0x34d6…34f8 Head {h00=0x001e, h01=0x0019, text=»CHTABE EQU * END OF TABLE «, t00=0x0021, t01=0x0154}
0x34f8…3502 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0176}
0x3502…350c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0180}
0x350c…351a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0021, t01=0x018a}
0x351a…3524 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0008}
0x3524…352e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0012}
0x352e…3546 Head {h00=0x0014, h01=0x0010, text=»* S L C U O N «, t00=0x0022, t01=0x001c}
0x3546…3550 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0034}
0x3550…358a Head {h00=0x0036, h01=0x0031, text=»* SUBROUTINE TO RESET CWT AND PERFORM CIO START «, t00=0x0022, t01=0x003e}
0x358a…35c2 Head {h00=0x0034, h01=0x0050, text=»* OF EVERY SALCUZ INPUT CHANNEL AT SYSTEM LOAD«, t00=0x0022, t01=0x0078}
0x35c2…35cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00b0}
0x35cc…35d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x00ba}
0x35d6…35e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x00c4}
0x35e0…35f4 Head {h00=0x0010, h01=0x0050, text=»SLCUON EQU *«, t00=0x0022, t01=0x00ce}
0x35f4…3616 Head {h00=0x001e, h01=0x0019, text=» LD A4,CHTAB TABLE LENGTH «, t00=0x0022, t01=0x00e2}
0x3616…363a Head {h00=0x0020, h01=0x001c, text=»SON010 SUK A4,2 ALL TREATED?«, t00=0x0022, t01=0x0104}
0x363a…3654 Head {h00=0x0016, h01=0x0012, text=» ABL(Z) RTNA15 YES«, t00=0x0022, t01=0x0128}
0x3654…3668 Head {h00=0x0010, h01=0x000c, text=»SON020 EQU *«, t00=0x0022, t01=0x0142}
0x3668…3690 Head {h00=0x0024, h01=0x0020, text=» LD A5,CHTAB,A4 LOAD CWT-ADDRESS«, t00=0x0022, t01=0x0156}
0x3690…36a6 Head {h00=0x0012, h01=0x000d, text=» RB(Z) SON010 «, t00=0x0022, t01=0x017e}
0x36a6…36bc (35, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8000«, t00=0x0023, t01=0x0004}
0x36bc…36e8 Head {h00=0x0028, h01=0x0050, text=» ORS A1,CWTST,A5 SET INITIATION BIT «, t00=0x0023, t01=0x001a}
0x36e8…370c Head {h00=0x0020, h01=0x0050, text=» CMR A5 RESET LAST OUTPUT =2«, t00=0x0023, t01=0x0046}
0x370c…3736 Head {h00=0x0026, h01=0x0050, text=» CM CWTEQ,A5 RESET OUTPUT QUEUE =5«, t00=0x0023, t01=0x006a}
0x3736…3742 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0023, t01=0x0094}
0x3742…3764 Head {h00=0x001e, h01=0x0050, text=» LDK A1,/4 EVEN PARITY =1 «, t00=0x0023, t01=0x00a0}
0x3764…378a Head {h00=0x0022, h01=0x0050, text=» EX CWTCIS,A5 CIO START OUTPUT«, t00=0x0023, t01=0x00c2}
0x378a…37b8 Head {h00=0x002a, h01=0x0025, text=» EX CWTCSI,A5 EXECUTE CIO-START INPUT «, t00=0x0023, t01=0x00e8}
0x37b8…37ca Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0023, t01=0x0116}
0x37ca…37f0 Head {h00=0x0022, h01=0x0050, text=» EX CWTCIH,A5 CIO STOP OUTPUT «, t00=0x0023, t01=0x0128}
0x37f0…37fc Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0023, t01=0x014e}
0x37fc…380e Head {h00=0x000e, h01=0x000a, text=» RB SON010«, t00=0x0023, t01=0x015a}
0x380e…381c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0023, t01=0x016c}
0x381c…3826 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x017a}
0x3826…3830 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0184}
0x3830…3864 Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x0023, t01=0x018e}
0x3864…3898 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT ENTRY FROM SALCUZ INPUTS *«, t00=0x0024, t01=0x0032}
0x3898…38cc Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x0024, t01=0x0066}
0x38cc…38d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x009a}
0x38d6…38e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x00a4}
0x38e0…38f6 Head {h00=0x0012, h01=0x0050, text=»* I S L C I«, t00=0x0024, t01=0x00ae}
0x38f6…3900 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x00c4}
0x3900…3928 Head {h00=0x0024, h01=0x0050, text=»* INPUT INTERRUPT FROM SALCUZ«, t00=0x0024, t01=0x00ce}
0x3928…3932 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x00f6}
0x3932…3946 Head {h00=0x0010, h01=0x0050, text=»ISLCI EQU * «, t00=0x0024, t01=0x0100}
0x3946…396e Head {h00=0x0024, h01=0x0020, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0024, t01=0x0114}
0x396e…3994 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0024, t01=0x013c}
0x3994…39ba Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 RESET SALCUZ-COUNTER«, t00=0x0024, t01=0x0162}
0x39ba…39ce Head {h00=0x0010, h01=0x0050, text=» LD A3,CHTAB«, t00=0x0024, t01=0x0188}
0x39ce…39f0 Head {h00=0x001e, h01=0x0050, text=» SUK A3,2 NUMBER OF LINES «, t00=0x0025, t01=0x000c}
0x39f0…3a02 Head {h00=0x000e, h01=0x0050, text=» RF IIS015«, t00=0x0025, t01=0x002e}
0x3a02…3a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0040}
0x3a0c…3a36 Head {h00=0x0026, h01=0x0050, text=»* GET CWT-ADDRESS. EXECUTE INR. «, t00=0x0025, t01=0x004a}
0x3a36…3a40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0074}
0x3a40…3a54 Head {h00=0x0010, h01=0x0050, text=»IIS010 EQU *«, t00=0x0025, t01=0x007e}
0x3a54…3a72 Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 NEXT SALCUZ «, t00=0x0025, t01=0x0092}
0x3a72…3a86 Head {h00=0x0010, h01=0x0050, text=»IIS015 EQU *«, t00=0x0025, t01=0x00b0}
0x3a86…3a98 Head {h00=0x000e, h01=0x0050, text=» CWR A4,A3«, t00=0x0025, t01=0x00c4}
0x3a98…3ac2 Head {h00=0x0026, h01=0x0050, text=» ABL(NL) EXIT NOT VALID INTERRUPT «, t00=0x0025, t01=0x00d6}
0x3ac2…3aec Head {h00=0x0026, h01=0x0050, text=» LD A5,CHTAB+2,A4 GET CWT-ADDRESS «, t00=0x0025, t01=0x0100}
0x3aec…3b06 Head {h00=0x0016, h01=0x0050, text=» EX CWTINR,A5 INR «, t00=0x0025, t01=0x012a}
0x3b06…3b1c Head {h00=0x0012, h01=0x0050, text=» RF(NA) IIS060«, t00=0x0025, t01=0x0144}
0x3b1c…3b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x015a}
0x3b26…3b34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0164}
0x3b34…3b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0172}
0x3b3e…3b64 Head {h00=0x0022, h01=0x0050, text=»* GET DWT-ADDRESS FROM INTSL«, t00=0x0025, t01=0x017c}
0x3b64…3b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0012}
0x3b6e…3b82 Head {h00=0x0010, h01=0x0050, text=»IIS020 EQU *«, t00=0x0026, t01=0x001c}
0x3b82…3bba Head {h00=0x0034, h01=0x0050, text=» LD* A1,CWTITA,A5 ADDRESS OF WORK STATION TABLE «, t00=0x0026, t01=0x0030}
0x3bba…3be0 Head {h00=0x0022, h01=0x0050, text=» LDK A6,0 WORK STATION NUMBER «, t00=0x0026, t01=0x0068}
0x3be0…3c0e Head {h00=0x002a, h01=0x0050, text=» CF A15,NDGEDN GET HIGHEST DWT-NUMBER «, t00=0x0026, t01=0x008e}
0x3c0e…3c30 Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 PREPARE FOR SUK «, t00=0x0026, t01=0x00bc}
0x3c30…3c44 Head {h00=0x0010, h01=0x0050, text=»IIS025 EQU *«, t00=0x0026, t01=0x00de}
0x3c44…3c5e Head {h00=0x0016, h01=0x0050, text=» SUK A7,1 NEXT DWT«, t00=0x0026, t01=0x00f2}
0x3c5e…3c86 Head {h00=0x0024, h01=0x0050, text=» RF(N) EXITL EXIT IF ALL CHECKED«, t00=0x0026, t01=0x010c}
0x3c86…3cac Head {h00=0x0022, h01=0x0050, text=» CF A15,NDGEDW GET DWT-ADDRESS«, t00=0x0026, t01=0x0134}
0x3cac…3cbe Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x0026, t01=0x015a}
0x3cbe…3cec Head {h00=0x002a, h01=0x0050, text=» RB(Z) IIS025 DWT-ADDRESS NOT DEFINED «, t00=0x0026, t01=0x016c}
0x3cec…3d12 Head {h00=0x0022, h01=0x0050, text=» LD A3,DWTST,A6 DEVICE STATUS «, t00=0x0027, t01=0x000a}
0x3d12…3d34 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/40 INPUT DEVICE? «, t00=0x0027, t01=0x0030}
0x3d34…3d4e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IIS055 YES«, t00=0x0027, t01=0x0052}
0x3d4e…3d74 Head {h00=0x0022, h01=0x0050, text=» LDK A6,0 WORK STATION NUMBER «, t00=0x0027, t01=0x006c}
0x3d74…3d86 Head {h00=0x000e, h01=0x0050, text=» RB IIS025«, t00=0x0027, t01=0x0092}
0x3d86…3d90 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0027, t01=0x00a4}
0x3d90…3da4 Head {h00=0x0010, h01=0x0050, text=»EXITL EQU * «, t00=0x0027, t01=0x00ae}
0x3da4…3dba Head {h00=0x0012, h01=0x0050, text=» IFT LOGING=1 «, t00=0x0027, t01=0x00c2}
0x3dba…3ddc Head {h00=0x001e, h01=0x0050, text=» SLL A4,8 LINE NR FOR LOGG«, t00=0x0027, t01=0x00d8}
0x3ddc…3dee Head {h00=0x000e, h01=0x0050, text=» ORR A2,A4«, t00=0x0027, t01=0x00fa}
0x3dee…3e22 Head {h00=0x0030, h01=0x0050, text=» CF A15,LOGG ** LOGG OF INPUT CHARACTER **«, t00=0x0027, t01=0x010c}
0x3e22…3e2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0140}
0x3e2e…3e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x014c}
0x3e38…3e48 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0027, t01=0x0156}
0x3e48…3e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0166}
0x3e52…3e60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0170}
0x3e60…3e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x017e}
0x3e6a…3e8e Head {h00=0x0020, h01=0x0050, text=»* RETURN TO DEVICE DRIVER «, t00=0x0027, t01=0x0188}
0x3e8e…3e98 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0028, t01=0x001c}
0x3e98…3eac Head {h00=0x0010, h01=0x0050, text=»IIS055 EQU *«, t00=0x0028, t01=0x0026}
0x3eac…3ed0 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0028, t01=0x003a}
0x3ed0…3eda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x005e}
0x3eda…3ef0 Head {h00=0x0012, h01=0x0050, text=» IFT LOGING=1 «, t00=0x0028, t01=0x0068}
0x3ef0…3f1c Head {h00=0x0028, h01=0x0050, text=» CF A15,INFLOG GET LINE INFORMATION «, t00=0x0028, t01=0x007e}
0x3f1c…3f50 Head {h00=0x0030, h01=0x0050, text=» CF A15,LOGG ** LOGG OF INPUT CHARACTER **«, t00=0x0028, t01=0x00aa}
0x3f50…3f5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00de}
0x3f5c…3f66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ea}
0x3f66…3f80 Head {h00=0x0016, h01=0x0050, text=»IIS058 EQU * * =2 «, t00=0x0028, t01=0x00f4}
0x3f80…3fa4 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/FF CLEAN CHARACTER «, t00=0x0028, t01=0x010e}
0x3fa4…3fca Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTST,A6 DEVICE STATUS «, t00=0x0028, t01=0x0132}
0x3fca…3fee Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 INPUT REQUESTED?«, t00=0x0028, t01=0x0158}
0x3fee…4006 Head {h00=0x0014, h01=0x0050, text=» RF(Z) IIS059 NO«, t00=0x0028, t01=0x017c}
0x4006…4010 (41, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0004}
0x4010…4026 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/FFDF«, t00=0x0029, t01=0x000e}
0x4026…405c Head {h00=0x0032, h01=0x0050, text=» ANS A7,DWTST,A6 RESET FLAG 'INPUT REQUESTED' «, t00=0x0029, t01=0x0024}
0x405c…4086 Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x0029, t01=0x005a}
0x4086…4090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0084}
0x4090…409e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x008e}
0x409e…40a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x009c}
0x40a8…40dc Head {h00=0x0030, h01=0x0050, text=»* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER«, t00=0x0029, t01=0x00a6}
0x40dc…40e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00da}
0x40e6…40fa Head {h00=0x0010, h01=0x0050, text=»IIS059 EQU *«, t00=0x0029, t01=0x00e4}
0x40fa…4120 Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTADR,A6 ADDRESS BLOCK«, t00=0x0029, t01=0x00f8}
0x4120…4152 Head {h00=0x002e, h01=0x0050, text=» LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? «, t00=0x0029, t01=0x011e}
0x4152…4178 Head {h00=0x0022, h01=0x0050, text=» RF(Z) EXIT NO, SKIP CHARACTER«, t00=0x0029, t01=0x0150}
0x4178…4196 Head {h00=0x001a, h01=0x0050, text=» LDR A5,A6 DWT ADDRESS«, t00=0x0029, t01=0x0176}
0x4196…41b8 (42, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x002a, t01=0x0004}
0x41b8…41e6 Head {h00=0x002a, h01=0x0050, text=» ABR A1 DEVICE DRIVER INTERRUPT ENTRY «, t00=0x002a, t01=0x0026}
0x41e6…41f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0054}
0x41f0…41fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x005e}
0x41fe…4208 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x006c}
0x4208…4226 Head {h00=0x001a, h01=0x0050, text=»* EXECUTE SST INPUT «, t00=0x002a, t01=0x0076}
0x4226…4230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0094}
0x4230…4244 Head {h00=0x0010, h01=0x0050, text=»IIS060 EQU *«, t00=0x002a, t01=0x009e}
0x4244…426c Head {h00=0x0024, h01=0x0050, text=» EX CWTSSI,A5 SEND STATUS INPUT «, t00=0x002a, t01=0x00b2}
0x426c…4294 Head {h00=0x0024, h01=0x0050, text=» RB(NA) IIS010 CHECK NEXT SALCUZ«, t00=0x002a, t01=0x00da}
0x4294…42b0 Head {h00=0x0018, h01=0x0050, text=» ANK A2,1 STATUS =5 «, t00=0x002a, t01=0x0102}
0x42b0…42d6 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) IIS070 NOT OPERABLE =5«, t00=0x002a, t01=0x011e}
0x42d6…42f0 Head {h00=0x0016, h01=0x0050, text=»IIS065 EQU * * =5 «, t00=0x002a, t01=0x0144}
0x42f0…4312 Head {h00=0x001e, h01=0x0050, text=» LDK A1,/4 EVEN PARITY =1 «, t00=0x002a, t01=0x015e}
0x4312…4338 Head {h00=0x0022, h01=0x0050, text=» EX CWTCSI,A5 CIO START INPUT «, t00=0x002a, t01=0x0180}
0x4338…4346 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x002b, t01=0x0016}
0x4346…435c Head {h00=0x0012, h01=0x0050, text=» RF EXIT * =2 «, t00=0x002b, t01=0x0024}
0x435c…4366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x003a}
0x4366…4394 Head {h00=0x002a, h01=0x0050, text=»* START TIMER IF INPUT NOT OPERABLE «, t00=0x002b, t01=0x0044}
0x4394…439e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0072}
0x439e…43b8 Head {h00=0x0016, h01=0x0050, text=»IIS070 EQU * * =5 «, t00=0x002b, t01=0x007c}
0x43b8…43ec Head {h00=0x0030, h01=0x0050, text=» LDR A1,A5 SAVE CWT-ADDRESS AS PARAMETER =5 «, t00=0x002b, t01=0x0096}
0x43ec…4408 Head {h00=0x0018, h01=0x0050, text=» LDK A4,CWTTP2 * =5 «, t00=0x002b, t01=0x00ca}
0x4408…4434 Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 TIMER POINTER ADDRESS =5 «, t00=0x002b, t01=0x00e6}
0x4434…445a Head {h00=0x0022, h01=0x0050, text=» CF A15,SETIMP START TIMER =5 «, t00=0x002b, t01=0x0112}
0x445a…4494 Head {h00=0x0036, h01=0x0050, text=» DATA IIS080,INPTIM TIME-OUT ADDRESS AND VALUE =5 «, t00=0x002b, t01=0x0138}
0x4494…44aa Head {h00=0x0012, h01=0x0050, text=» RF EXIT * =5 «, t00=0x002b, t01=0x0172}
0x44aa…44b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0188}
0x44b4…44e8 (44, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* TIME-OUT ROUTINE FOR INPUT NOT OPERABLE «, t00=0x002c, t01=0x0004}
0x44e8…44f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0038}
0x44f2…450c Head {h00=0x0016, h01=0x0050, text=»IIS080 EQU * * =5 «, t00=0x002c, t01=0x0042}
0x450c…452e Head {h00=0x001e, h01=0x0050, text=» LDR A5,A1 CWT-ADDRESS =5 «, t00=0x002c, t01=0x005c}
0x452e…455a Head {h00=0x0028, h01=0x0050, text=» CM CWTTP2,A5 RESET TIMER POINTER =5«, t00=0x002c, t01=0x007e}
0x455a…457c Head {h00=0x001e, h01=0x0050, text=» RB IIS065 START INPUT =5 «, t00=0x002c, t01=0x00aa}
0x457c…4586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00cc}
0x4586…4594 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002c, t01=0x00d6}
0x4594…459e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002c, t01=0x00e4}
0x459e…45a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002c, t01=0x00ee}
0x45a8…45de Head {h00=0x0032, h01=0x002d, text=»********************************************* «, t00=0x002c, t01=0x00f8}
0x45de…4614 Head {h00=0x0032, h01=0x0050, text=»* INTERRUPT ENTRY FROM SALCUZ OUTPUTS * «, t00=0x002c, t01=0x012e}
0x4614…464a Head {h00=0x0032, h01=0x002d, text=»********************************************* «, t00=0x002c, t01=0x0164}
0x464a…4654 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x000a}
0x4654…465e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0014}
0x465e…4674 Head {h00=0x0012, h01=0x0050, text=»* I S L C O«, t00=0x002d, t01=0x001e}
0x4674…467e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x0034}
0x467e…46a6 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT INTERRUPT FROM SALCUZ«, t00=0x002d, t01=0x003e}
0x46a6…46b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x0066}
0x46b0…46c4 Head {h00=0x0010, h01=0x0050, text=»ISLCO EQU * «, t00=0x002d, t01=0x0070}
0x46c4…46ec Head {h00=0x0024, h01=0x0020, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x002d, t01=0x0084}
0x46ec…4712 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x002d, t01=0x00ac}
0x4712…4738 Head {h00=0x0022, h01=0x0050, text=» LDK A7,0 RESET SALCUZ-COUNTER«, t00=0x002d, t01=0x00d2}
0x4738…474c Head {h00=0x0010, h01=0x0050, text=» LD A3,CHTAB«, t00=0x002d, t01=0x00f8}
0x474c…476e Head {h00=0x001e, h01=0x0050, text=» SUK A3,2 NUMBER OF LINES «, t00=0x002d, t01=0x010c}
0x476e…4780 Head {h00=0x000e, h01=0x0050, text=» RF OIS015«, t00=0x002d, t01=0x012e}
0x4780…478a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x0140}
0x478a…4798 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002d, t01=0x014a}
0x4798…47a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x0158}
0x47a2…47cc Head {h00=0x0026, h01=0x0021, text=»* GET CWT-ADDRESS. EXECUTE SST. «, t00=0x002d, t01=0x0162}
0x47cc…47d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x018c}
0x47d6…47ea Head {h00=0x0010, h01=0x0050, text=»OIS010 EQU *«, t00=0x002e, t01=0x0008}
0x47ea…4808 Head {h00=0x001a, h01=0x0050, text=» ADK A7,2 NEXT SALCUZ «, t00=0x002e, t01=0x001c}
0x4808…481c Head {h00=0x0010, h01=0x0050, text=»OIS015 EQU *«, t00=0x002e, t01=0x003a}
0x481c…482e Head {h00=0x000e, h01=0x0050, text=» CWR A7,A3«, t00=0x002e, t01=0x004e}
0x482e…4856 Head {h00=0x0024, h01=0x0050, text=» RF(NL) EXIT NOT VALID INTERRUPT«, t00=0x002e, t01=0x0060}
0x4856…4880 Head {h00=0x0026, h01=0x0050, text=» LD A5,CHTAB+2,A7 GET CWT-ADDRESS «, t00=0x002e, t01=0x0088}
0x4880…489a Head {h00=0x0016, h01=0x0050, text=» EX CWTSST,A5 SST «, t00=0x002e, t01=0x00b2}
0x489a…48b0 Head {h00=0x0012, h01=0x0050, text=» RB(NA) OIS010«, t00=0x002e, t01=0x00cc}
0x48b0…48ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e2}
0x48ba…48d0 Head {h00=0x0012, h01=0x0050, text=» IFT LOGING=1 «, t00=0x002e, t01=0x00ec}
0x48d0…48f4 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A5 LAST OUTPUT DWT «, t00=0x002e, t01=0x0102}
0x48f4…4918 Head {h00=0x0020, h01=0x0050, text=» CWK A4,DWTSYN SYNC-SENDING?«, t00=0x002e, t01=0x0126}
0x4918…4932 Head {h00=0x0016, h01=0x0050, text=» RF(E) OIS017 YES «, t00=0x002e, t01=0x014a}
0x4932…4958 Head {h00=0x0022, h01=0x0050, text=» SLL A7,8 LINE NR FOR LOGG =2 «, t00=0x002e, t01=0x0164}
0x4958…4970 Head {h00=0x0014, h01=0x0050, text=» ORR A2,A7 * =2 «, t00=0x002e, t01=0x018a}
0x4970…4994 Head {h00=0x0020, h01=0x001c, text=» CF A15,LOGG **LOGG STATUS**«, t00=0x002f, t01=0x0012}
0x4994…49a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0036}
0x49a0…49aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0042}
0x49aa…49be Head {h00=0x0010, h01=0x0050, text=»OIS017 EQU *«, t00=0x002f, t01=0x004c}
0x49be…49e4 Head {h00=0x0022, h01=0x0050, text=» LD A1,CWTST,A5 CHANNEL STATUS«, t00=0x002f, t01=0x0060}
0x49e4…4a10 Head {h00=0x0028, h01=0x0050, text=» RF(N) OIS040 INITIATION ON CHANNEL «, t00=0x002f, t01=0x0086}
0x4a10…4a1e Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x002f, t01=0x00b2}
0x4a1e…4a2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00c0}
0x4a2c…4a36 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002f, t01=0x00ce}
0x4a36…4a6a Head {h00=0x0030, h01=0x002b, text=»* CHECK QUEUE AND SEND IF SOMETHING THERE «, t00=0x002f, t01=0x00d8}
0x4a6a…4a74 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002f, t01=0x010c}
0x4a74…4a88 Head {h00=0x0010, h01=0x0050, text=»OIS020 EQU *«, t00=0x002f, t01=0x0116}
0x4a88…4aac Head {h00=0x0020, h01=0x001b, text=» LDR* A7,A5 LAST OUTPUT DWT «, t00=0x002f, t01=0x012a}
0x4aac…4acc Head {h00=0x001c, h01=0x0018, text=» CMR A5 SET CHANNEL FREE«, t00=0x002f, t01=0x014e}
0x4acc…4ada Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x002f, t01=0x016e}
0x4ada…4ae8 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x002f, t01=0x017c}
0x4ae8…4b02 Head {h00=0x0016, h01=0x0050, text=» ANK A2,/FF CLEAN «, t00=0x002f, t01=0x018a}
0x4b02…4b28 Head {h00=0x0022, h01=0x0050, text=» LC A4,CWTST,A5 CHANNEL STATUS«, t00=0x0030, t01=0x0014}
0x4b28…4b4e Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 SET RETURN CODE =2 «, t00=0x0030, t01=0x003a}
0x4b4e…4b74 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) OIS035 NOT OPERABLE =2«, t00=0x0030, t01=0x0060}
0x4b74…4b9e Head {h00=0x0026, h01=0x0050, text=» LD A3,CWTST,A5 CHANNEL STATUS =2 «, t00=0x0030, t01=0x0086}
0x4b9e…4bb4 Head {h00=0x0012, h01=0x0050, text=» SLL A3,1 * =2«, t00=0x0030, t01=0x00b0}
0x4bb4…4be2 Head {h00=0x002a, h01=0x0050, text=» RF(N) OIS038 NOT OPERABLE BIT SET =2 «, t00=0x0030, t01=0x00c6}
0x4be2…4bf2 Head {h00=0x000c, h01=0x0050, text=» * =4 «, t00=0x0030, t01=0x00f4}
0x4bf2…4c02 Head {h00=0x000c, h01=0x0050, text=» * =4 «, t00=0x0030, t01=0x0104}
0x4c02…4c26 Head {h00=0x0020, h01=0x001c, text=» LD A6,CWTEQ,A5 OUTPUT QUEUE«, t00=0x0030, t01=0x0114}
0x4c26…4c48 Head {h00=0x001e, h01=0x0050, text=» RF(E) OIS030 QUEUE EMPTY «, t00=0x0030, t01=0x0138}
0x4c48…4c56 Head {h00=0x000a, h01=0x0050, text=» =5 «, t00=0x0030, t01=0x015a}
0x4c56…4c7e Head {h00=0x0024, h01=0x001f, text=» LD A2,DWTOTQ,A6 GET QUEUE LINK «, t00=0x0030, t01=0x0168}
0x4c7e…4ca6 Head {h00=0x0024, h01=0x001f, text=» ST A2,CWTEQ,A5 STORE IT IN CWT «, t00=0x0030, t01=0x0190}
0x4ca6…4ccc Head {h00=0x0022, h01=0x001e, text=» LC A2,DWTOCH,A6 GET CHARACTER«, t00=0x0031, t01=0x0028}
0x4ccc…4cf2 Head {h00=0x0022, h01=0x0050, text=» CF A15,OUTSAL SEND CHARACTER «, t00=0x0031, t01=0x004e}
0x4cf2…4d00 Head {h00=0x000a, h01=0x0050, text=» =5 «, t00=0x0031, t01=0x0074}
0x4d00…4d0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0082}
0x4d0e…4d18 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x0090}
0x4d18…4d3c Head {h00=0x0020, h01=0x0050, text=»* RETURN TO DEVICE DRIVER «, t00=0x0031, t01=0x009a}
0x4d3c…4d46 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x00be}
0x4d46…4d5a Head {h00=0x0010, h01=0x0050, text=»OIS030 EQU *«, t00=0x0031, t01=0x00c8}
0x4d5a…4d7e Head {h00=0x0020, h01=0x0050, text=» CWK A7,DWTSYN SYNC-DWT? =4 «, t00=0x0031, t01=0x00dc}
0x4d7e…4d98 Head {h00=0x0016, h01=0x0050, text=» RF(E) EXIT YES =4«, t00=0x0031, t01=0x0100}
0x4d98…4dbe Head {h00=0x0022, h01=0x0050, text=» ANK A4,/04 LAMP CODE QUEUED ?«, t00=0x0031, t01=0x011a}
0x4dbe…4de8 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) EXIT YES, DON'T RETURN YET«, t00=0x0031, t01=0x0140}
0x4de8…4e00 Head {h00=0x0014, h01=0x0050, text=» LDK A2,0 STATUS«, t00=0x0031, t01=0x016a}
0x4e00…4e22 Head {h00=0x001e, h01=0x001a, text=» LDR A6,A7 GET LAST OUTPUT«, t00=0x0031, t01=0x0182}
0x4e22…4e50 Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) NDREP RETURN TO DEVICE DRIVER«, t00=0x0032, t01=0x0014}
0x4e50…4e5a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x0042}
0x4e5a…4e6c Head {h00=0x000e, h01=0x0050, text=»EXIT EQU *«, t00=0x0032, t01=0x004c}
0x4e6c…4e7e Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0032, t01=0x005e}
0x4e7e…4e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0070}
0x4e88…4ea8 Head {h00=0x001c, h01=0x0050, text=»* OUTPUT NOT OPERABLE «, t00=0x0032, t01=0x007a}
0x4ea8…4eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x009a}
0x4eb2…4ecc Head {h00=0x0016, h01=0x0050, text=»OIS035 EQU * * =2 «, t00=0x0032, t01=0x00a4}
0x4ecc…4ef0 Head {h00=0x0020, h01=0x0050, text=» CWK A7,DWTSYN SYNC-DWT? =2 «, t00=0x0032, t01=0x00be}
0x4ef0…4f0a Head {h00=0x0016, h01=0x0050, text=» RB(E) EXIT YES =2«, t00=0x0032, t01=0x00e2}
0x4f0a…4f26 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,/4000 * =2 «, t00=0x0032, t01=0x00fc}
0x4f26…4f58 Head {h00=0x002e, h01=0x0050, text=» ORS A3,CWTST,A5 SET BIT 'NOT OPERABLE' =2«, t00=0x0032, t01=0x0118}
0x4f58…4f70 Head {h00=0x0014, h01=0x0050, text=» RB OIS030 * =2 «, t00=0x0032, t01=0x014a}
0x4f70…4f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0162}
0x4f7a…4f9c Head {h00=0x001e, h01=0x0050, text=»* OUTPUT OPERABLE AGAIN «, t00=0x0032, t01=0x016c}
0x4f9c…4fa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x018e}
0x4fa6…4fc0 Head {h00=0x0016, h01=0x0050, text=»OIS038 EQU * * =2 «, t00=0x0033, t01=0x0008}
0x4fc0…4fdc Head {h00=0x0018, h01=0x0050, text=» LDKL A3,/BFFF * =2 «, t00=0x0033, t01=0x0022}
0x4fdc…5010 Head {h00=0x0030, h01=0x0050, text=» ANS A3,CWTST,A5 RESET BIT 'NOT OPERABLE' =2«, t00=0x0033, t01=0x003e}
0x5010…501e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0072}
0x501e…5028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0080}
0x5028…5064 Head {h00=0x0038, h01=0x0050, text=»* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE «, t00=0x0033, t01=0x008a}
0x5064…509a Head {h00=0x0032, h01=0x0050, text=»* ON ACTUAL LINE EXCEPT THOSE IN ECHO MODE «, t00=0x0033, t01=0x00c6}
0x509a…50a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00fc}
0x50a4…50b8 Head {h00=0x0010, h01=0x0050, text=»OIS040 EQU *«, t00=0x0033, t01=0x0106}
0x50b8…50ce Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/7FFF«, t00=0x0033, t01=0x011a}
0x50ce…50fc Head {h00=0x002a, h01=0x0050, text=» ANS A1,CWTST,A5 RESET INITIATION BIT «, t00=0x0033, t01=0x0130}
0x50fc…512a Head {h00=0x002a, h01=0x0050, text=» LD* A3,CWTITA,A5 ADDRESS OF WS TABLE «, t00=0x0033, t01=0x015e}
0x512a…5150 Head {h00=0x0022, h01=0x0050, text=» LDK A6,0 WORK STATION NUMBER «, t00=0x0033, t01=0x018c}
0x5150…5170 Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 RECOVERY CAUSE«, t00=0x0034, t01=0x0022}
0x5170…51a4 Head {h00=0x0030, h01=0x0050, text=» CF A15,NDREWS CALL RECOVERY FOR ALL DEVICES«, t00=0x0034, t01=0x0042}
0x51a4…51be Head {h00=0x0016, h01=0x0050, text=» ON WORK STATION«, t00=0x0034, t01=0x0076}
0x51be…51ce Head {h00=0x000c, h01=0x0050, text=» RB EXIT«, t00=0x0034, t01=0x0090}
0x51ce…51dc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0034, t01=0x00a0}
0x51dc…51e6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x00ae}
0x51e6…51fe Head {h00=0x0014, h01=0x0050, text=»* O U T S A L«, t00=0x0034, t01=0x00b8}
0x51fe…5208 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x00d0}
0x5208…523e Head {h00=0x0032, h01=0x002d, text=»* SUBROUTINE TO SEND A CHARACTER VIA SALCUZ «, t00=0x0034, t01=0x00da}
0x523e…5254 Head {h00=0x0012, h01=0x000d, text=»* ON ENTRY: «, t00=0x0034, t01=0x0110}
0x5254…5286 Head {h00=0x002e, h01=0x002a, text=»* A2 = OUTPUT CHARACTER IN RIGHT BYTE«, t00=0x0034, t01=0x0126}
0x5286…52a6 Head {h00=0x001c, h01=0x0017, text=»* A6 = DWT ADDRESS «, t00=0x0034, t01=0x0158}
0x52a6…52b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x0178}
0x52b0…52c4 Head {h00=0x0010, h01=0x0050, text=»OUTSAL EQU *«, t00=0x0034, t01=0x0182}
0x52c4…52ea Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0035, t01=0x0008}
0x52ea…52fe Head {h00=0x0010, h01=0x000b, text=» ANK A2,/FF «, t00=0x0035, t01=0x002e}
0x52fe…530a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0035, t01=0x0042}
0x530a…532e Head {h00=0x0020, h01=0x0050, text=» CWK A6,DWTSYN SYNC SENDING?«, t00=0x0035, t01=0x004e}
0x532e…5348 Head {h00=0x0016, h01=0x0050, text=» RF(E) OUS050 YES «, t00=0x0035, t01=0x0072}
0x5348…536e Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETERS«, t00=0x0035, t01=0x008c}
0x536e…5394 Head {h00=0x0022, h01=0x0050, text=» ANK A1,/F CHANNEL UNIT INDEX «, t00=0x0035, t01=0x00b2}
0x5394…53ba Head {h00=0x0022, h01=0x0050, text=» SLL A1,1 MAKE INDEX FOR CHTAB«, t00=0x0035, t01=0x00d8}
0x53ba…53e4 Head {h00=0x0026, h01=0x0021, text=» LD A5,CHTAB+2,A1 GET CWT-ADDRESS «, t00=0x0035, t01=0x00fe}
0x53e4…53f4 Head {h00=0x000c, h01=0x0050, text=» * =6 «, t00=0x0035, t01=0x0128}
0x53f4…541a Head {h00=0x0022, h01=0x001e, text=» LDR* A4,A5 CHANNEL UNIT FREE?«, t00=0x0035, t01=0x0138}
0x541a…5434 Head {h00=0x0016, h01=0x0011, text=» RF(E) OUS050 YES «, t00=0x0035, t01=0x015e}
0x5434…5442 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0035, t01=0x0178}
0x5442…544c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0035, t01=0x0186}
0x544c…5464 Head {h00=0x0014, h01=0x0010, text=»* QUEUE OUTPUT«, t00=0x0035, t01=0x0190}
0x5464…546e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0036, t01=0x0018}
0x546e…5482 Head {h00=0x0010, h01=0x000c, text=»OUS005 EQU *«, t00=0x0036, t01=0x0022}
0x5482…54a6 Head {h00=0x0020, h01=0x001c, text=» LD A4,CWTEQ,A5 OUTPUT QUEUE«, t00=0x0036, t01=0x0036}
0x54a6…54bc Head {h00=0x0012, h01=0x000d, text=» RF(E) OUS020 «, t00=0x0036, t01=0x005a}
0x54bc…54d0 Head {h00=0x0010, h01=0x000c, text=»OUS010 EQU *«, t00=0x0036, t01=0x0070}
0x54d0…54e2 Head {h00=0x000e, h01=0x000a, text=» CWR A6,A4«, t00=0x0036, t01=0x0084}
0x54e2…5514 Head {h00=0x002e, h01=0x002a, text=» RF(E) OUS060 THIS DWT IS ALREADY IN QUEUE«, t00=0x0036, t01=0x0096}
0x5514…552c Head {h00=0x0014, h01=0x0010, text=» LD A3,DWTOTQ,A4«, t00=0x0036, t01=0x00c8}
0x552c…5556 Head {h00=0x0026, h01=0x0021, text=» RF(E) OUS030 END OF THREAD FOUND «, t00=0x0036, t01=0x00e0}
0x5556…557a Head {h00=0x0020, h01=0x001c, text=» LDR A4,A3 FOLLOW THE THREAD«, t00=0x0036, t01=0x010a}
0x557a…558c Head {h00=0x000e, h01=0x000a, text=» RB OUS010«, t00=0x0036, t01=0x012e}
0x558c…55a0 Head {h00=0x0010, h01=0x000c, text=»OUS020 EQU *«, t00=0x0036, t01=0x0140}
0x55a0…55c2 Head {h00=0x001e, h01=0x0019, text=» ST A6,CWTEQ,A5 QUEUE DWT «, t00=0x0036, t01=0x0154}
0x55c2…55d4 Head {h00=0x000e, h01=0x000a, text=» RF OUS040«, t00=0x0036, t01=0x0176}
0x55d4…55e8 Head {h00=0x0010, h01=0x000c, text=»OUS030 EQU *«, t00=0x0036, t01=0x0188}
0x55e8…560a Head {h00=0x001e, h01=0x001a, text=» ST A6,DWTOTQ,A4 QUEUE DWT«, t00=0x0037, t01=0x000c}
0x560a…5638 Head {h00=0x002a, h01=0x0025, text=»OUS040 CM DWTOTQ,A6 SET END OF THREAD «, t00=0x0037, t01=0x002e}
0x5638…564a Head {h00=0x000e, h01=0x000a, text=» RF OUS060«, t00=0x0037, t01=0x005c}
0x564a…5658 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0037, t01=0x006e}
0x5658…5662 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0037, t01=0x007c}
0x5662…567a Head {h00=0x0014, h01=0x0050, text=»* START OUTPUT«, t00=0x0037, t01=0x0086}
0x567a…5684 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0037, t01=0x009e}
0x5684…5698 Head {h00=0x0010, h01=0x000c, text=»OUS050 EQU *«, t00=0x0037, t01=0x00a8}
0x5698…56ca Head {h00=0x002e, h01=0x0050, text=» LD A1,PFPOST PWF POST PROCESSING FLAG =5 «, t00=0x0037, t01=0x00bc}
0x56ca…56f2 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) OUS070 PFINIT PENDING =5«, t00=0x0037, t01=0x00ee}
0x56f2…5714 Head {h00=0x001e, h01=0x0050, text=» LDK A1,/4 EVEN PARITY =1 «, t00=0x0037, t01=0x0116}
0x5714…573a Head {h00=0x0022, h01=0x0050, text=» EX CWTCIS,A5 CIO START OUTPUT«, t00=0x0037, t01=0x0138}
0x573a…5750 Head {h00=0x0012, h01=0x0050, text=» RF(NA) OUS070«, t00=0x0037, t01=0x015e}
0x5750…575a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0174}
0x575a…5772 Head {h00=0x0014, h01=0x0050, text=»* SYNC TIMING «, t00=0x0037, t01=0x017e}
0x5772…577c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0008}
0x577c…57ae Head {h00=0x002e, h01=0x0050, text=» LD A3,CWTTP,A5 ADDRESS TO TIMER BLOCK =2 «, t00=0x0038, t01=0x0012}
0x57ae…57c8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) STTIM * =2 «, t00=0x0038, t01=0x0044}
0x57c8…57d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x005e}
0x57d2…57ec Head {h00=0x0016, h01=0x0050, text=»* RESTART TIMER «, t00=0x0038, t01=0x0068}
0x57ec…57f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0082}
0x57f6…581e Head {h00=0x0024, h01=0x0050, text=» LDKL A3,-TIME RESTART TIMER =2 «, t00=0x0038, t01=0x008c}
0x581e…583c Head {h00=0x001a, h01=0x0050, text=» ST* A3,CWTTP,A5 * =2 «, t00=0x0038, t01=0x00b4}
0x583c…5858 Head {h00=0x0018, h01=0x0050, text=» RF OUS052 * =5(=2) «, t00=0x0038, t01=0x00d2}
0x5858…5862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ee}
0x5862…587a Head {h00=0x0014, h01=0x0050, text=»* START TIMER «, t00=0x0038, t01=0x00f8}
0x587a…5884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0110}
0x5884…589c Head {h00=0x0014, h01=0x0050, text=»STTIM EQU * * =2«, t00=0x0038, t01=0x011a}
0x589c…58d0 Head {h00=0x0030, h01=0x0050, text=» LDR A1,A5 SAVE CWT-ADDRESS AS PARAMETER =2 «, t00=0x0038, t01=0x0132}
0x58d0…58ea Head {h00=0x0016, h01=0x0050, text=» LDK A4,CWTTP * =2«, t00=0x0038, t01=0x0166}
0x58ea…5916 Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 TIMER POINTER ADDRESS =2 «, t00=0x0038, t01=0x0180}
0x5916…5944 Head {h00=0x002a, h01=0x0050, text=» CF A15,SETIMP START TIMER OF 0.5 S =2«, t00=0x0039, t01=0x001c}
0x5944…597a Head {h00=0x0032, h01=0x0050, text=» DATA T:OUT,TIME TIME-OUT ADDRESS AND VALUE =2«, t00=0x0039, t01=0x004a}
0x597a…5988 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0080}
0x5988…5992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x008e}
0x5992…59c0 Head {h00=0x002a, h01=0x0050, text=»* CHECK IF OUTPUT TO KEYBOARD LAMPS «, t00=0x0039, t01=0x0098}
0x59c0…59ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00c6}
0x59ca…59e4 Head {h00=0x0016, h01=0x0050, text=»OUS052 EQU * * =5 «, t00=0x0039, t01=0x00d0}
0x59e4…5a12 Head {h00=0x002a, h01=0x0050, text=» LD A7,DWTCP2,A6 CHANNEL PARAMETERS 2 «, t00=0x0039, t01=0x00ea}
0x5a12…5a34 Head {h00=0x001e, h01=0x0050, text=» ANK A7,/3F DEVICE ADDRESS«, t00=0x0039, t01=0x0118}
0x5a34…5a60 Head {h00=0x0028, h01=0x0050, text=» SUK A7,DI OUTPUT TO KEYBOARD LAMPS?«, t00=0x0039, t01=0x013a}
0x5a60…5a8a Head {h00=0x0026, h01=0x0050, text=» RF(Z) OUS080 YES, QUEUE LAMP CODE«, t00=0x0039, t01=0x0166}
0x5a8a…5a98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0190}
0x5a98…5aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x000e}
0x5aa2…5abc Head {h00=0x0016, h01=0x0050, text=»* SEND CHARACTER«, t00=0x003a, t01=0x0018}
0x5abc…5ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0032}
0x5ac6…5ae6 Head {h00=0x001c, h01=0x0017, text=»OUS053 EX CWTOTR,A5 OTR «, t00=0x003a, t01=0x003c}
0x5ae6…5af4 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x003a, t01=0x005c}
0x5af4…5b0e Head {h00=0x0016, h01=0x0050, text=» RF(A) OUS055 * =3«, t00=0x003a, t01=0x006a}
0x5b0e…5b36 Head {h00=0x0024, h01=0x0050, text=» CWK A6,DWTSYN SYNC-SENDING? =3 «, t00=0x003a, t01=0x0084}
0x5b36…5b52 Head {h00=0x0018, h01=0x0050, text=» RF(NE) OUS054 NO =3«, t00=0x003a, t01=0x00ac}
0x5b52…5b7e Head {h00=0x0028, h01=0x0050, text=» STR A6,A5 STORE SYNC-DWT IN CWT =3 «, t00=0x003a, t01=0x00c8}
0x5b7e…5b96 Head {h00=0x0014, h01=0x0050, text=» RF OUS070 * =3 «, t00=0x003a, t01=0x00f4}
0x5b96…5bc6 Head {h00=0x002c, h01=0x0050, text=»OUS054 LD A1,CWTST,A5 CHANNEL STATUS =3 «, t00=0x003a, t01=0x010c}
0x5bc6…5bdc Head {h00=0x0012, h01=0x0050, text=» SLL A3,1 * =3«, t00=0x003a, t01=0x013c}
0x5bdc…5c0a Head {h00=0x002a, h01=0x0050, text=» RF(N) OUS070 NOT OPERABLE BIT SET =3 «, t00=0x003a, t01=0x0152}
0x5c0a…5c22 Head {h00=0x0014, h01=0x0050, text=» RB OUS005 * =3 «, t00=0x003a, t01=0x0180}
0x5c22…5c36 Head {h00=0x0010, h01=0x000c, text=»OUS055 EQU *«, t00=0x003b, t01=0x0008}
0x5c36…5c48 Head {h00=0x000e, h01=0x0009, text=» LDK A1,0 «, t00=0x003b, t01=0x001c}
0x5c48…5c6e Head {h00=0x0022, h01=0x0050, text=» EX CWTCIH,A5 CIO STOP OUTPUT «, t00=0x003b, t01=0x002e}
0x5c6e…5c96 Head {h00=0x0024, h01=0x0020, text=» STR A6,A5 STORE LAST DWT IN CWT«, t00=0x003b, t01=0x0054}
0x5c96…5cba Head {h00=0x0020, h01=0x0050, text=» CWK A6,DWTSYN SYNC-DWT? =2 «, t00=0x003b, t01=0x007c}
0x5cba…5cd6 Head {h00=0x0018, h01=0x0050, text=» RF(E) OUS070 YES =2«, t00=0x003b, t01=0x00a0}
0x5cd6…5ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00bc}
0x5ce0…5cf6 Head {h00=0x0012, h01=0x0050, text=» IFT LOGING=1 «, t00=0x003b, t01=0x00c6}
0x5cf6…5d22 Head {h00=0x0028, h01=0x0050, text=» CF A15,INFLOG GET LINE INFORMATION «, t00=0x003b, t01=0x00dc}
0x5d22…5d54 Head {h00=0x002e, h01=0x0029, text=» CF A15,LOGG **LOGG OF OUTPUT CHARACTER** «, t00=0x003b, t01=0x0108}
0x5d54…5d60 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x013a}
0x5d60…5d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0146}
0x5d6a…5d96 Head {h00=0x0028, h01=0x0050, text=» LDR A7,A7 OUTPUT TO KEYBOARD LAMPS?«, t00=0x003b, t01=0x0150}
0x5d96…5db0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) OUS070 YES «, t00=0x003b, t01=0x017c}
0x5db0…5dec Head {h00=0x0038, h01=0x0034, text=»OUS060 SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT«, t00=0x003c, t01=0x0008}
0x5dec…5e00 Head {h00=0x0010, h01=0x000c, text=»OUS070 EQU *«, t00=0x003c, t01=0x0044}
0x5e00…5e2c Head {h00=0x0028, h01=0x0050, text=» MLR 8,A15 RESTORE A1-A8 FROM STACK «, t00=0x003c, t01=0x0058}
0x5e2c…5e3c Head {h00=0x000c, h01=0x0050, text=» * =6 «, t00=0x003c, t01=0x0084}
0x5e3c…5e4e Head {h00=0x000e, h01=0x0050, text=» INH * =6«, t00=0x003c, t01=0x0094}
0x5e4e…5e7a Head {h00=0x0028, h01=0x0050, text=» ADKL A15,2 ADJUST STACK POINTER =6 «, t00=0x003c, t01=0x00a6}
0x5e7a…5e98 Head {h00=0x001a, h01=0x0050, text=» LDR* P,A15 RETURN =6 «, t00=0x003c, t01=0x00d2}
0x5e98…5ea6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00f0}
0x5ea6…5eb0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x00fe}
0x5eb0…5edc Head {h00=0x0028, h01=0x0023, text=»* PUT LAMPCODE FIRST IN QUEUE AND «, t00=0x003c, t01=0x0108}
0x5edc…5f04 Head {h00=0x0024, h01=0x001f, text=»* LOAD /1C IN OUTPUT REGISTER «, t00=0x003c, t01=0x0134}
0x5f04…5f30 Head {h00=0x0028, h01=0x0023, text=»* /1C = CODE FOR DATA TO KEYBOARD «, t00=0x003c, t01=0x015c}
0x5f30…5f3a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x0188}
0x5f3a…5f4e (61, 0, 398) Head {h00=0x0010, h01=0x000c, text=»OUS080 EQU *«, t00=0x003d, t01=0x0004}
0x5f4e…5f80 Head {h00=0x002e, h01=0x0050, text=» LC A4,CWTST,A5 LEFT BYTE OF CWT STATUS =3«, t00=0x003d, t01=0x0018}
0x5f80…5f96 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FBFF«, t00=0x003d, t01=0x004a}
0x5f96…5fce Head {h00=0x0034, h01=0x0050, text=» ANS A1,CWTST,A5 RESET BIT 'LAMP CODE QUEUED' =3«, t00=0x003d, t01=0x0060}
0x5fce…5fe2 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/04 «, t00=0x003d, t01=0x0098}
0x5fe2…6014 Head {h00=0x002e, h01=0x0050, text=» RB(NZ) OUS053 LAMP CODE ALREADY IN QUEUE «, t00=0x003d, t01=0x00ac}
0x6014…6038 Head {h00=0x0020, h01=0x001c, text=» LD A4,CWTEQ,A5 OUTPUT QUEUE«, t00=0x003d, t01=0x00de}
0x6038…604e Head {h00=0x0012, h01=0x000d, text=» RF(E) OUS090 «, t00=0x003d, t01=0x0102}
0x604e…6060 Head {h00=0x000e, h01=0x000a, text=» CWR A6,A4«, t00=0x003d, t01=0x0118}
0x6060…6090 Head {h00=0x002c, h01=0x0027, text=» RB(E) OUS060 THIS DWT ALREADY IN QUEUE «, t00=0x003d, t01=0x012a}
0x6090…60a4 Head {h00=0x0010, h01=0x000c, text=»OUS090 EQU *«, t00=0x003d, t01=0x015a}
0x60a4…60cc Head {h00=0x0024, h01=0x0020, text=» ST A4,DWTOTQ,A6 MOVE QUEUE LINK«, t00=0x003d, t01=0x016e}
0x60cc…60f4 Head {h00=0x0024, h01=0x001f, text=» ST A6,CWTEQ,A5 QUEUE LAMP CODE «, t00=0x003e, t01=0x0008}
0x60f4…6124 Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTOCH,A6 STORE LAMP CODE IN DWT «, t00=0x003e, t01=0x0030}
0x6124…6136 Head {h00=0x000e, h01=0x0050, text=» C1R A1,A1«, t00=0x003e, t01=0x0060}
0x6136…616c Head {h00=0x0032, h01=0x0050, text=» ORS A1,CWTST,A5 SET BIT 'LAMP CODE QUEUED' =3«, t00=0x003e, t01=0x0072}
0x616c…6180 Head {h00=0x0010, h01=0x000b, text=» LDK A2,/1C «, t00=0x003e, t01=0x00a8}
0x6180…6192 Head {h00=0x000e, h01=0x000a, text=» RB OUS053«, t00=0x003e, t01=0x00bc}
0x6192…619c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003e, t01=0x00ce}
0x619c…61aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x00d8}
0x61aa…61b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00e6}
0x61b4…61e2 Head {h00=0x002a, h01=0x0050, text=»* TIME-OUT ROUTINE FOR SYNC-SENDING.«, t00=0x003e, t01=0x00f0}
0x61e2…6214 Head {h00=0x002e, h01=0x0050, text=»* IF NOTHING HAPPENS ON A LINE IN 500 MS«, t00=0x003e, t01=0x011e}
0x6214…6238 Head {h00=0x0020, h01=0x0050, text=»* SYNC-CHARACTER IS SENT. «, t00=0x003e, t01=0x0150}
0x6238…6242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0174}
0x6242…624c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x017e}
0x624c…6264 Head {h00=0x0014, h01=0x0050, text=»T:OUT EQU * * =2«, t00=0x003e, t01=0x0188}
0x6264…627c Head {h00=0x0014, h01=0x0050, text=» LDR A5,A1 * =2 «, t00=0x003f, t01=0x0010}
0x627c…62a8 Head {h00=0x0028, h01=0x0050, text=» CM CWTTP,A5 RESET TIMER POINTER =2 «, t00=0x003f, t01=0x0028}
0x62a8…62ca Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A5 LINE FREE? =2 «, t00=0x003f, t01=0x0054}
0x62ca…62e6 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) T:OUT2 NO =2«, t00=0x003f, t01=0x0076}
0x62e6…6316 Head {h00=0x002c, h01=0x0050, text=» LDKL A6,DWTSYN SIMULATED DWT-ADDRESS =2«, t00=0x003f, t01=0x0092}
0x6316…633c Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 OUTPUT CHARACTER =2 «, t00=0x003f, t01=0x00c2}
0x633c…6360 Head {h00=0x0020, h01=0x0050, text=» CF A15,OUTSAL SEND '00' =2 «, t00=0x003f, t01=0x00e8}
0x6360…637a Head {h00=0x0016, h01=0x0050, text=»T:OUT2 EQU * * =2 «, t00=0x003f, t01=0x010c}
0x637a…6392 Head {h00=0x0014, h01=0x0050, text=» ABL TDISP * =2 «, t00=0x003f, t01=0x0126}
0x6392…639c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x013e}
0x639c…63ca Head {h00=0x002a, h01=0x0050, text=»DWTSYN DATA /200 CHANNEL PARAMETER =2 «, t00=0x003f, t01=0x0148}
0x63ca…63d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0176}
0x63d8…63e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0184}
0x63e2…63fe Head {h00=0x0018, h01=0x0050, text=»* CHARACTER INPUT «, t00=0x003f, t01=0x018e}
0x63fe…6408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x001a}
0x6408…641c Head {h00=0x0010, h01=0x0050, text=»SLCHRI EQU *«, t00=0x0040, t01=0x0024}
0x641c…6430 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x0040, t01=0x0038}
0x6430…6464 Head {h00=0x0030, h01=0x0050, text=» ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT «, t00=0x0040, t01=0x004c}
0x6464…6494 Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x0040, t01=0x0080}
0x6494…64b8 Head {h00=0x0020, h01=0x0050, text=» RF SLDISP LOCAL DISPATCHER «, t00=0x0040, t01=0x00b0}
0x64b8…64c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d4}
0x64c2…64de Head {h00=0x0018, h01=0x0050, text=»* START OF A BLOCK«, t00=0x0040, t01=0x00de}
0x64de…64e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00fa}
0x64e8…64fc Head {h00=0x0010, h01=0x0050, text=»SLSTBL EQU *«, t00=0x0040, t01=0x0104}
0x64fc…6506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0118}
0x6506…6520 Head {h00=0x0016, h01=0x0050, text=»* END OF A BLOCK«, t00=0x0040, t01=0x0122}
0x6520…652a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x013c}
0x652a…653e Head {h00=0x0010, h01=0x0050, text=»SLENBL EQU *«, t00=0x0040, t01=0x0146}
0x653e…656a Head {h00=0x0028, h01=0x0050, text=» ABL NDRETO RETURN TO DEVICE DRIVER «, t00=0x0040, t01=0x015a}
0x656a…6574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0186}
0x6574…6590 Head {h00=0x0018, h01=0x0050, text=»* CHARACTER OUTPUT«, t00=0x0040, t01=0x0190}
0x6590…659a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x001c}
0x659a…65ae Head {h00=0x0010, h01=0x0050, text=»SLCHRO EQU *«, t00=0x0041, t01=0x0026}
0x65ae…65de Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x0041, t01=0x003a}
0x65de…6604 Head {h00=0x0022, h01=0x0050, text=» CF A15,OUTSAL SEND CHARACTER «, t00=0x0041, t01=0x006a}
0x6604…660e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0090}
0x660e…662a Head {h00=0x0018, h01=0x0050, text=»* LOCAL DISPATCHER«, t00=0x0041, t01=0x009a}
0x662a…6634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00b6}
0x6634…6648 Head {h00=0x0010, h01=0x0050, text=»SLDISP EQU *«, t00=0x0041, t01=0x00c0}
0x6648…666c Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x0041, t01=0x00d4}
0x666c…6676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00f8}
0x6676…6684 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0102}
0x6684…668e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0110}
0x668e…66a6 Head {h00=0x0014, h01=0x0050, text=»* I N F L O G «, t00=0x0041, t01=0x011a}
0x66a6…66b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0132}
0x66b0…66f2 Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINE TO GET INFORMATION ABOUT CHANNEL UNIT INDEX«, t00=0x0041, t01=0x013c}
0x66f2…6722 Head {h00=0x002c, h01=0x0050, text=»* AND DEVICE ADDRESS FOR USE IN LOGG. «, t00=0x0041, t01=0x017e}
0x6722…6762 Head {h00=0x003c, h01=0x0050, text=»* THE INFORMATION IS TAKEN FROM CHANNEL PARAMETERS AND«, t00=0x0042, t01=0x001e}
0x6762…6784 Head {h00=0x001e, h01=0x0050, text=»* ADDED TO REGISTER A2. «, t00=0x0042, t01=0x005e}
0x6784…678e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0080}
0x678e…67be Head {h00=0x002c, h01=0x0050, text=»* DEVICE ADDRESS IS STORED IN BITS 0-3«, t00=0x0042, t01=0x008a}
0x67be…67ee Head {h00=0x002c, h01=0x0050, text=»* CH. UNIT INDEX IS STORED IN BITS 4-6«, t00=0x0042, t01=0x00ba}
0x67ee…67f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ea}
0x67f8…680e Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY: «, t00=0x0042, t01=0x00f4}
0x680e…6818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x010a}
0x6818…683c Head {h00=0x0020, h01=0x0050, text=»* A2 = INPUT CHARACTER «, t00=0x0042, t01=0x0114}
0x683c…685c Head {h00=0x001c, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0042, t01=0x0138}
0x685c…6866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0158}
0x6866…687a Head {h00=0x0010, h01=0x0050, text=»* ON EXIT:«, t00=0x0042, t01=0x0162}
0x687a…6884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0176}
0x6884…68ba Head {h00=0x0032, h01=0x0050, text=»* A2 = INPUT WORD WITH ADDED INFORMATION «, t00=0x0042, t01=0x0180}
0x68ba…68dc Head {h00=0x001e, h01=0x0050, text=»* A3,A4 ARE DESTROYED«, t00=0x0043, t01=0x0026}
0x68dc…68e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0048}
0x68e6…68fc Head {h00=0x0012, h01=0x0050, text=» IFT LOGING=1 «, t00=0x0043, t01=0x0052}
0x68fc…6906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0068}
0x6906…691a Head {h00=0x0010, h01=0x0050, text=»INFLOG EQU *«, t00=0x0043, t01=0x0072}
0x691a…6944 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A6 GET CHANNEL PARAMETERS«, t00=0x0043, t01=0x0086}
0x6944…696a Head {h00=0x0022, h01=0x0050, text=» ANK A3,/7 CHANNEL UNIT INDEX «, t00=0x0043, t01=0x00b0}
0x696a…6998 Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTCP2,A6 CHANNEL PARAMETERS 2 «, t00=0x0043, t01=0x00d6}
0x6998…69ba Head {h00=0x001e, h01=0x0050, text=» ANK A4,/7 DEVICE ADDRESS «, t00=0x0043, t01=0x0104}
0x69ba…69cc Head {h00=0x000e, h01=0x0050, text=» SLL A4,3 «, t00=0x0043, t01=0x0126}
0x69cc…6a04 Head {h00=0x0034, h01=0x0050, text=» ORR A3,A4 COMBINE DEV.ADDR. AND CH. UNIT INDEX «, t00=0x0043, t01=0x0138}
0x6a04…6a16 Head {h00=0x000e, h01=0x0050, text=» SLL A3,9 «, t00=0x0043, t01=0x0170}
0x6a16…6a4c Head {h00=0x0032, h01=0x0050, text=» ORR A2,A3 COMBINE INFORMATION WITH CHARACTER «, t00=0x0043, t01=0x0182}
0x6a4c…6a5c Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0044, t01=0x0028}
0x6a5c…6a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0038}
0x6a66…6a72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0042}
0x6a72…6a80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x004e}
0x6a80…6a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x005c}
0x6a8a…6a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0066}
0x6a94…6aa8 Head {h00=0x0010, h01=0x0050, text=»* L O G G «, t00=0x0044, t01=0x0070}
0x6aa8…6ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0084}
0x6ab2…6aee Head {h00=0x0038, h01=0x0050, text=»* IF CONDITIONALY ASSEMBLY IS SET EVERY INPUT AND «, t00=0x0044, t01=0x008e}
0x6aee…6b16 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT CHARACTER ARE LOGGED «, t00=0x0044, t01=0x00ca}
0x6b16…6b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00f2}
0x6b20…6b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00fc}
0x6b2a…6b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0106}
0x6b34…6b4a Head {h00=0x0012, h01=0x0050, text=» IFT LOGING=1 «, t00=0x0044, t01=0x0110}
0x6b4a…6b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0126}
0x6b54…6b6c Head {h00=0x0014, h01=0x0050, text=»LOGG STR A1,A15 «, t00=0x0044, t01=0x0130}
0x6b6c…6b80 Head {h00=0x0010, h01=0x0050, text=» LD A1,POINT«, t00=0x0044, t01=0x0148}
0x6b80…6b92 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0044, t01=0x015c}
0x6b92…6bbc Head {h00=0x0026, h01=0x0050, text=» CWK A1,BUFE BUFE IS MAX LOGG AREA«, t00=0x0044, t01=0x016e}
0x6bbc…6bce Head {h00=0x000e, h01=0x0050, text=» RF(NE) L1«, t00=0x0045, t01=0x0008}
0x6bce…6bfa Head {h00=0x0028, h01=0x0050, text=» LDKL A1,BUF SET FIRST LOGG ADDRESS «, t00=0x0045, t01=0x001a}
0x6bfa…6c10 Head {h00=0x0012, h01=0x0050, text=»L1 ST A1,POINT«, t00=0x0045, t01=0x0046}
0x6c10…6c42 Head {h00=0x002e, h01=0x0050, text=» STR A2,A1 LOGG OF INR OR OTR INSTRUCTION «, t00=0x0045, t01=0x005c}
0x6c42…6c56 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0045, t01=0x008e}
0x6c56…6c6a Head {h00=0x0010, h01=0x0050, text=» ADKL A15,2 «, t00=0x0045, t01=0x00a2}
0x6c6a…6c84 Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0045, t01=0x00b6}
0x6c84…6c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00d0}
0x6c8e…6c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00da}
0x6c98…6cbc Head {h00=0x0020, h01=0x0050, text=»POINT DATA BUF LOGG POINTER «, t00=0x0045, t01=0x00e4}
0x6cbc…6cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0108}
0x6cc6…6ce4 Head {h00=0x001a, h01=0x0050, text=»BUF RES 250 LOGG AREA «, t00=0x0045, t01=0x0112}
0x6ce4…6cf6 Head {h00=0x000e, h01=0x0050, text=»BUFE EQU *«, t00=0x0045, t01=0x0130}
0x6cf6…6d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0142}
0x6d00…6d0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x014c}
0x6d0c…6d1a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0045, t01=0x0158}
0x6d1a…6d24 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0045, t01=0x0166}
0x6d24…6d42 Head {h00=0x001a, h01=0x0015, text=»* RETURN AND ENABLE «, t00=0x0045, t01=0x0170}
0x6d42…6d4c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0045, t01=0x018e}
0x6d4c…6d60 Head {h00=0x0010, h01=0x000c, text=»RTNA15 EQU *«, t00=0x0046, t01=0x0008}
0x6d60…6d74 Head {h00=0x0010, h01=0x000b, text=» ADKL A15,2 «, t00=0x0046, t01=0x001c}
0x6d74…6d80 Head {h00=0x0008, h01=0x0004, text=» ENB«, t00=0x0046, t01=0x0030}
0x6d80…6d94 Head {h00=0x0010, h01=0x000b, text=» LDR* P,A15 «, t00=0x0046, t01=0x003c}
0x6d94…6d9e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0046, t01=0x0050}
0x6d9e…6daa Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0046, t01=0x005a}
0x6daa…6dae Head {h00=0x4004, h01=0x0000}
0x6dae…6db0 00 46 ┆ F┆
0x6db0…6db2 00 66 ┆ f┆
0x6db2…6dba (71, 1, 8) 20 04 00 00 00 47 00 04 ┆ G ┆
0x6dba…6e0a (72, 0, 398) 44 52 49 56 45 52 00 47 01 7a 00 28 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 41 4e 59 20 43 48 41 52 20 4c 45 46 54 20 49 4e 20 42 55 46 46 45 52 3f 20 00 48 00 0e 00 1e 00 50 5c 52 46 28 5a 29 5c 43 49 31 32 30 5c 4e 4f 2c 20 43 4f 4e 54 49 ┆DRIVER G z ( P LDR A1,A1 ANY CHAR LEFT IN BUFFER? H P RF(Z) CI120 NO, CONTI┆
0x6e0a…6e5a 4e 55 45 20 00 48 00 3a 00 26 00 50 5c 4c 44 4b 5c 41 31 2c 31 5c 49 4e 44 49 43 41 54 45 20 4d 4f 52 45 20 43 48 41 52 41 43 54 45 52 53 00 48 00 5c 00 0e 00 50 5c 52 46 5c 43 49 31 33 30 20 00 48 00 86 00 06 00 50 2a 20 00 48 00 98 00 10 ┆NUE H : & P LDK A1,1 INDICATE MORE CHARACTERS H P RF CI130 H P* H ┆
0x6e5a…6eaa 00 50 43 49 31 32 30 5c 45 51 55 5c 2a 20 00 48 00 a2 00 20 00 50 5c 43 4d 5c 44 57 54 4c 44 31 2c 41 36 5c 55 4e 4c 49 4e 4b 20 42 55 46 46 45 52 20 00 48 00 b6 00 10 00 50 43 49 31 33 30 5c 45 51 55 5c 2a 20 00 48 00 da 00 08 00 50 5c 45 ┆ PCI120 EQU * H P CM DWTLD1,A6 UNLINK BUFFER H PCI130 EQU * H P E┆
0x6eaa…6efa 4e 42 00 48 00 ee 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 48 00 fa 00 06 00 50 2a 20 00 48 01 0a 00 0a 00 06 5c 45 4a 45 43 54 00 48 01 14 00 06 00 03 2a 20 00 48 01 22 00 40 00 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆NB H P RTN A5 H P* H EJECT H * H " @ <********************┆
0x6efa…6f48 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 48 01 2c 00 06 00 03 2a 20 00 48 01 70 00 14 00 0f 2a 20 52 4f 55 54 49 4e 45 20 4e 41 4d 45 3a 20 00 48 01 7a ┆**************************************** H , * H p * ROUTINE NAME: H z┆
0x6f48…6f98 (73, 0, 400) 00 0c 00 50 2a 5c 50 4c 53 54 42 4c 00 49 00 04 00 06 00 03 2a 20 00 49 00 14 00 10 00 0b 2a 20 46 55 4e 43 54 49 4f 4e 3a 20 00 49 00 1e 00 34 00 50 2a 5c 54 48 49 53 20 52 4f 55 54 49 4e 45 20 44 45 46 49 4e 45 53 20 53 54 41 52 54 20 4f ┆ P* PLSTBL I * I * FUNCTION: I 4 P* THIS ROUTINE DEFINES START O┆
0x6f98…6fe8 46 20 41 4e 20 4f 55 54 50 55 54 20 42 4c 4f 43 4b 2e 00 49 00 32 00 32 00 50 2a 5c 49 54 20 41 4c 4c 4f 43 41 54 45 53 20 41 4e 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 2c 20 41 4e 44 20 4c 49 4e 4b 53 20 49 54 20 00 49 00 6a 00 12 00 50 ┆F AN OUTPUT BLOCK. I 2 2 P* IT ALLOCATES AN OUTPUT BUFFER, AND LINKS IT I j P┆
0x6fe8…7038 2a 5c 54 4f 20 54 48 45 20 44 57 54 2e 20 00 49 00 a0 00 06 00 03 2a 20 00 49 00 b6 00 0c 00 07 2a 20 43 41 4c 4c 3a 20 00 49 00 c0 00 14 00 50 2a 5c 41 42 49 5c 53 54 42 54 41 42 2c 41 31 20 00 49 00 d0 00 12 00 50 2a 5c 43 46 5c 41 35 2c ┆* TO THE DWT. I * I * CALL: I P* ABI STBTAB,A1 I P* CF A5,┆
0x7038…7088 50 4c 53 54 42 4c 00 49 00 e8 00 06 00 03 2a 20 00 49 00 fe 00 0c 00 08 2a 20 49 4e 50 55 54 3a 00 49 01 08 00 34 00 50 2a 5c 41 32 20 20 3d 5c 4d 41 58 49 4d 41 4c 20 4c 45 4e 47 54 48 20 4f 46 20 54 45 58 54 20 49 4e 20 42 4c 4f 43 4b 20 ┆PLSTBL I * I * INPUT: I 4 P* A2 = MAXIMAL LENGTH OF TEXT IN BLOCK ┆
0x7088…70d8 28 42 59 54 45 53 29 20 00 49 01 18 00 18 00 50 2a 5c 41 36 20 20 3d 5c 44 57 54 20 41 44 44 52 45 53 53 20 00 49 01 50 00 06 00 03 2a 20 00 49 01 6c 00 0e 00 09 2a 20 4f 55 54 50 55 54 3a 20 00 49 01 76 00 20 00 50 2a 5c 41 54 20 52 45 54 ┆(BYTES) I P* A6 = DWT ADDRESS I P * I l * OUTPUT: I v P* AT RET┆
0x70d8…7128 (74, 0, 400) 55 52 4e 20 54 4f 20 44 45 56 49 43 45 20 44 52 49 56 45 52 00 49 01 88 00 18 00 50 2a 5c 41 31 20 20 3d 5c 52 45 54 55 52 4e 20 43 4f 44 45 20 00 4a 00 1c 00 0e 00 50 2a 5c 5c 30 20 49 46 20 4f 4b 00 4a 00 38 00 16 00 50 2a 5c 5c 4e 4f 54 ┆URN TO DEVICE DRIVER I P* A1 = RETURN CODE J P* 0 IF OK J 8 P* NOT┆
0x7128…7178 20 30 20 49 46 20 45 52 52 4f 52 20 00 4a 00 4a 00 30 00 50 2a 5c 41 32 20 20 3d 5c 44 45 56 49 43 45 20 53 54 41 54 55 53 20 28 49 46 20 52 45 4c 45 56 41 4e 54 2c 20 49 45 20 41 31 3d 30 29 00 4a 00 64 00 1a 00 50 2a 5c 43 52 20 20 3d 5c ┆ 0 IF ERROR J J 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) J d P* CR = ┆
0x7178…71c8 43 4f 4e 54 45 4e 54 53 20 4f 46 20 41 31 00 4a 00 98 00 16 00 50 2a 5c 49 4e 54 45 52 52 2e 5c 45 4e 41 42 4c 45 44 20 00 4a 00 b6 00 06 00 03 2a 20 00 4a 00 d0 00 40 00 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆CONTENTS OF A1 J P* INTERR. ENABLED J * J @ <**********************┆
0x71c8…7218 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 4a 00 da 00 06 00 03 2a 20 00 4a 01 1e 00 10 00 50 50 4c 53 54 42 4c 5c 45 51 55 5c 2a 00 4a 01 28 00 08 00 50 5c 45 4e 42 ┆************************************** J * J PPLSTBL EQU * J ( P ENB┆
0x7218…7268 00 4a 01 3c 00 2c 00 27 5c 43 46 5c 41 31 35 2c 4e 44 53 41 56 38 5c 53 41 56 45 20 41 33 2d 41 35 2c 20 41 37 2d 41 38 20 49 4e 20 44 57 54 20 00 4a 01 48 00 24 00 20 5c 43 46 5c 41 31 35 2c 47 45 54 43 57 54 5c 41 35 20 3a 3d 20 43 57 54 ┆ J < , ' CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT J H $ CF A15,GETCWT A5 := CWT┆
0x7268…72b8 (75, 0, 400) 20 41 44 44 52 45 53 53 00 4a 01 78 00 06 00 50 2a 20 00 4b 00 10 00 0a 00 50 5c 45 4a 45 43 54 00 4b 00 1a 00 06 00 50 2a 20 00 4b 00 28 00 2e 00 50 5c 4c 44 5c 41 31 2c 44 57 54 4c 44 31 2c 41 36 5c 42 55 46 46 45 52 20 41 4c 52 45 41 44 ┆ ADDRESS J x P* K P EJECT K P* K ( . P LD A1,DWTLD1,A6 BUFFER ALREAD┆
0x72b8…7308 59 20 41 4c 4c 4f 43 41 54 45 44 3f 00 4b 00 32 00 28 00 50 5c 41 42 4c 28 4e 5a 29 5c 4e 44 52 45 50 4f 5c 59 45 53 2c 20 53 45 54 20 4f 4b 20 26 20 52 45 54 55 52 4e 00 4b 00 64 00 26 00 50 5c 43 46 5c 41 31 35 2c 47 45 54 4c 43 53 5c 41 ┆Y ALLOCATED? K 2 ( P ABL(NZ) NDREPO YES, SET OK & RETURN K d & P CF A15,GETLCS A┆
0x7308…7358 31 20 3a 3d 20 53 54 41 54 55 53 20 26 20 49 4e 48 20 00 4b 00 90 00 20 00 50 5c 52 46 28 4e 5a 29 5c 53 42 45 52 52 32 5c 45 52 52 4f 52 2c 20 52 45 54 55 52 4e 00 4b 00 ba 00 06 00 50 2a 20 00 4b 00 de 00 1e 00 50 2a 20 20 20 20 43 48 45 ┆1 := STATUS & INH K P RF(NZ) SBERR2 ERROR, RETURN K P* K P* CHE┆
0x7358…73a8 43 4b 20 4c 45 56 45 4c 20 33 20 57 49 4e 44 4f 57 20 00 4b 00 e8 00 24 00 50 5c 4c 44 52 5c 41 33 2c 41 32 5c 53 41 56 45 20 4d 41 58 20 42 4c 4f 43 4b 20 4c 45 4e 47 54 48 00 4b 01 0a 00 1e 00 50 5c 4c 44 5c 41 31 2c 44 57 54 53 54 2c 41 ┆CK LEVEL 3 WINDOW K $ P LDR A3,A2 SAVE MAX BLOCK LENGTH K P LD A1,DWTST,A┆
0x73a8…73f8 36 5c 44 57 54 20 53 54 41 54 55 53 00 4b 01 32 00 30 00 50 5c 41 4e 4b 4c 5c 41 31 2c 44 57 46 45 43 48 2b 44 57 46 54 59 31 5c 45 43 48 4f 20 4f 52 20 4f 4e 4c 59 20 54 59 50 45 20 31 3f 20 00 4b 01 54 00 2a 00 50 5c 52 46 28 4e 5a 29 5c ┆6 DWT STATUS K 2 0 P ANKL A1,DWFECH+DWFTY1 ECHO OR ONLY TYPE 1? K T * P RF(NZ) ┆
0x73f8…7448 (76, 0, 400) 53 42 30 39 30 5c 59 45 53 2c 20 44 4f 4e 27 54 20 43 48 45 43 4b 20 57 49 4e 44 4f 57 20 00 4b 01 88 00 32 00 50 5c 43 46 5c 41 31 35 2c 47 45 54 4f 46 52 5c 41 32 20 3a 3d 20 4e 52 20 4f 46 20 4f 55 54 53 54 41 4e 44 49 4e 47 20 46 52 41 ┆SB090 YES, DON'T CHECK WINDOW K 2 P CF A15,GETOFR A2 := NR OF OUTSTANDING FRA┆
0x7448…7498 4d 45 53 20 00 4c 00 26 00 26 00 50 5c 4c 44 52 5c 41 32 2c 41 32 5c 41 4e 59 20 46 52 41 4d 45 53 20 4f 55 54 53 54 41 4e 44 49 4e 47 3f 00 4c 00 5c 00 1e 00 50 5c 52 46 28 5a 29 5c 53 42 30 39 30 5c 4e 4f 2c 20 43 4f 4e 54 49 4e 55 45 20 ┆MES L & & P LDR A2,A2 ANY FRAMES OUTSTANDING? L P RF(Z) SB090 NO, CONTINUE ┆
0x7498…74e8 00 4c 00 86 00 1e 00 50 5c 4c 44 5c 41 31 2c 44 57 54 53 54 2c 41 36 5c 44 57 54 20 53 54 41 54 55 53 00 4c 00 a8 00 30 00 50 5c 41 4e 4b 5c 41 31 2c 44 57 46 53 41 43 5c 41 4c 57 41 59 53 20 57 41 49 54 20 46 4f 52 20 4c 45 56 45 4c 20 33 ┆ L P LD A1,DWTST,A6 DWT STATUS L 0 P ANK A1,DWFSAC ALWAYS WAIT FOR LEVEL 3┆
0x74e8…7538 20 41 43 4b 3f 20 00 4c 00 ca 00 32 00 50 5c 52 46 28 4e 5a 29 5c 53 42 45 52 52 5c 59 45 53 2c 20 4e 4f 20 46 52 41 4d 45 53 20 4d 41 59 20 42 45 20 4f 55 54 2e 20 45 52 52 4f 52 00 4c 00 fe 00 20 00 50 5c 53 55 4b 5c 41 32 2c 57 49 4e 44 ┆ ACK? L 2 P RF(NZ) SBERR YES, NO FRAMES MAY BE OUT. ERROR L P SUK A2,WIND┆
0x7538…7588 4f 57 5c 57 49 4e 44 4f 57 20 46 55 4c 4c 3f 20 00 4c 01 34 00 1e 00 50 5c 52 46 28 4e 29 5c 53 42 30 39 30 5c 4e 4f 2c 20 43 4f 4e 54 49 4e 55 45 20 00 4c 01 58 00 30 00 50 2a 5c 44 57 54 20 57 49 4c 4c 20 48 41 56 45 20 54 4f 20 57 41 49 ┆OW WINDOW FULL? L 4 P RF(N) SB090 NO, CONTINUE L X 0 P* DWT WILL HAVE TO WAI┆