|
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: 14312 (0x37e8)
Notes: pts_type(SC)
Names: »DRSOP1.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/DRSOP1.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/DRSOP1.SC«
IDENT DRSOP1 REL 8.2 78-09-15 870105040820 * ************************************************************ * * PHILIPS TERMINAL SYSTEM PTS * * DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL * * * * * * ************************************************************ * * * THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S * PANEL CONNECTED TO CPU VIA CHCR-SOP * * * ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET * 'BUSY' UNTIL THE INPUT INTERRUPT IS TAKEN CARE OF * * * AT POWER UP RUNNING READ REQUEST IS COMPLETED WITH -2 * IN CONTROL WORD.IF NO RUNNING READ REQUEST,POWER UP * IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH * -2 IN CONTROL WORD * * * ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET * 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES NOT REQUIRE * AN INTERRUPT. * EJECT * * * THE DRIVER CONSISTS OF THE FOLLOWING PARTS: * * S O P A S : READ SWITCHES ENTRY * * S O P A L : ACTIVATE LIGHTS ENTRY * * I H S O P : INTERRUPT HANDLER * * S O P R : RECOVERY ROUTINE * * * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 02 : READ SWITCHES * 05 : WRITE LIGHTS ON * 06 : WRITE LIGHTS OFF * 39 : WRITE FLASHING LIGHTS * * NORMAL REGISTER USAGE: * * REGISTER A1: INPUT/OUTPUT * A2: WORK REGISTER * A3: ---- * A4: WORK REGISTER * A5: ---- * A6: DWT-ADDRESS * A7: ORDER * A8: ECB-ADDRESS * * EJECT * ************ * ENTRIES: * ************ * * ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE ENTRY SOPR S.O.P. RECOVERY ROUTINE ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALIAS) ENTRY DWSI01 INPUT DWT ENTRY DWSI02 EXTENDED INPUT DWT ENTRY DWSO01 OUTPUT DWT * ************** * EXTERNALS: * ************** * * TOSS GLOBALS: * EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY EXTRN TDISP DISPATCHER LKM ENTRY EXTRN RETUR8 POP A1-A8 CONT'S AND RETURN EXTRN TENDIO END-OF-I/O HOUSEKEEPING AND QUEUEING SUBROUTINE EXTRN SETIMP EJECT * ************************************ * * DWT DISPLACEMENTS * ************************************ * EXTRN DWTCHP CHANNEL PARAMETER EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS EXTRN DWTOR ORDER EXTRN DWTADR POINTER TO ADDRESS-BLOCK EXTRN DWTTAB TTAB-ADDRESS EXTRN DWTWAT WAIT ACTIVATE INDICATOR EXTRN DWTTQ TERMINAL QUEUE EXTRN DWTWA WORK AREA EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT EXTRN ECBCW ECB CONTROL WORD TIME EQU 5 FLASH TIME DWTTP EQU /10 TIMER POINTER EJECT * CONDITIONAL ASSEMBLY * EXTENDED SOP INPUT DWT OR NOT * SOPX=0 => NOT EXTENDED * X:A EQU 0 SOPX EQU 0 ** ** * THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS * BY SETTING CREDIT = 1 * ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS * /37 AND /38 RESPECTIVLY * BY SETTING CREDIT=1 THE SOP-SWITCHES IS INDEXED:1,2,3,... * 1 CORRESPONDS TO THE RIGHTMOST SWITCH. * IN CASE OF POWER ON ZERO IS STORED IN THE CONTROL WORD * OF THE ECB. ** CREDIT EQU 1 ** ** * THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY * SETTING X:B=1 * X:B EQU 0 WRFLA EQU 0 EJECT * ************************** * S.O.P. DEVICE ADDRESS: * ************************** * * SOPDA EQU /2E DEVICE ADDRESS * * * * ****************************** * * * S.O.P. CHANNEL UNIT TABLE * * * ****************************** * * SOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: * SOPADI EQU * INPUT ADDRESS BLOCK (FOR READ ORDERS) * DATA SOPAS ACTIVATE SWITCHES ENTRY * SOPADU EQU * ACTIVATE LIGHTS ENTRY * DATA SOPAL ACTIVATE LIGHTS ENTRY * SPDLCI DATA 0 LIGHT'S CORE IMAGE * EJECT * ****************************** * * * S.O.P. ACTIVATION ROUTINE: * * * ****************************** * * THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION * IS CARRIED OUT. * SOPAS EQU * SWITCHES ACTIVATION ENTRY * LDR A4,A7 COPY ORDER * SUK A4,/02 SEE IF READ ORDER: * RF(NZ) SOPER ERROR IF NOT READ ORDER * * INPUT SWITCH VALUE * SOPIN LDR* A2,A6 POWER UP INDICATION ? IFT CREDIT=0 RF(Z) EXIT NO CMR A6 YES CLEAR FOR NEXT REQ. XIF IFT CREDIT=1 RF(NZ) EXIT NO STR A7,A6 YES XIF RF IHSOP3 * * SOPAL EQU * ACTIVATE LIGHTS ENTRY * LDR A4,A7 COPY ORDER IFT WRFLA=1 CCK A4,/3939 RF(E) SOPFL XIF IFT CREDIT=0 SUK A4,/05 SEE IF 'LIGHTS ON' ORDER XIF IFT CREDIT=1 SUK A4,/37 XIF RF(Z) SOPON IF SO, TURN ON LIGHTS * SUK A4,1 SEE IF LIGHTS OFF ORDER RF(Z) SOPOFF SOPER ABL(NZ) DISIOE ILLEGAL ORDER IFT WRFLA=1 EJECT * * * FLASH LIGHTS * * SOPFL EQU * LD A4,DWTTP,A6 RF(NE) FL010 TIMER ALREADY STARTED LDK A4,DWTTP ADR A4,A6 LDR A1,A6 CF A15,SETIMP DATA FLTUT,TIME ST A4,DWTTP,A6 LDKL A1,/FFBF ANS A1,DWTST,A6 SET ON FLAG FL010 EQU * LD A4,10,A8 GET CONTROL WORD ORS A4,FLASH STORE NEW LAMPS TO A4,FLASH FL015 LD A1,DWTST,A6 ANK A1,/40 RF(Z) FL020 ORS A4,SPDLCI FIXA TILL DET HELA! RF SOPONOFF FL020 EQU * C1R A4,A4 ANS A4,SPDLCI RF SOPONOF FLTUT EQU * FLASH TIME OUT LDKL A6,DWSO01 LD A4,FLASH RF(Z) FL030 NO MORE FLASHING FOR THIS TIME LDKL A1,-TIME RESTART TIMER ST* A1,DWTTP,A6 LDK A1,/40 XRS A1,DWTST,A6 RB FL015 FL030 CM DWTTP,A6 RF EXIT END I/O XIF EJECT * SOPOFF C1 A4,10,A8 GET COMPLEMENTED CONTROL WORD ANS A4,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF IFT WRFLA=1 ANS A4,FLASH STOP SOME FLASHING XIF RF SOPONOF BRANCH TO COMMON ON/OFF PATH * * * TURN ON LIGHTS INDICATED BY '1' BITS: * SOPON LD A4,10,A8 GET CONTROL WORD ORS A4,SPDLCI SET LIGHTS TO BE TURNED ON IFT WRFLA=1 C1R A4,A4 ANS A4,FLASH STOP SOME OTHER FLASHING XIF * * COMMON ON/OFF PATH: * SOPONOFF LD A1,SPDLCI GET LIGHTS' CORE IMAGE OTR A1,0,SOPDA AND OUTPUT TO S.O.P. * RF ENDIO PERFORM TENDIO EJECT * **************************** * * * S.O.P. INTERRUPT HANDLER * * * **************************** * * * THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. * * IF NO REQUEST IS IN PROCEEDING THE INTERRUPT IS IGNORED. * IHSOP CF A15,SAVE8 ST P,INTSAV SAVE LAST INTERRUPT INR A1,0,SOPDA GET SWITCH SRN A1,A2 CALC INDEX IFT CREDIT=0 SLL A2,1 XIF IFT CREDIT=1 ADK A2,1 XIF IHSOP1 EQU * IFF SOPX=0 LDKL A6,DWSI02 ANY REQUEST ON LD A4,DWTST,A6 STATUS WORD RF(N) IHSOP2 NO LD A8,DWTECB,A6 GET ECB-ADDRESS ST A2,ECBCW,A8 STORE INDEX LDK A1,0 CF A15,TENDIO END I/O XIF IHSOP2 LDKL A6,DWSI01 ANY REQUEST ON LD A4,DWTST,A6 STATUS WORD RF(N) EXIT NO LD A8,DWTECB,A6 GET ECB-ADDRESS IHSOP3 ST A2,ECBCW,A8 STORE INDEX ENDIO LDK A1,0 CF A15,TENDIO END I/O EXIT ABL TDISP GO TO DISPATCHER EJECT * ************************************* * * * S.O.P POWER UP RECOVERY ROUTINE * * * ************************************* * * * THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE * RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD * BE PRESENT IN THE POWER FAILURE RECOVERY TABLE (PFTAB). * IF RUNNING READ REQUEST THIS IS COMPLETED WITH -2 IN * CONTROL WORD. ELSE -2 IS SAVED IN DWTCHP * * SOPR EQU * ENTRY POINT * CF A15,SAVE8 SAVE REGS. CIO A1,1,SOPDA ACTIVATE INPUT * LD A1,SPDLCI GET LIGHTS' CORE IMAGE OTR A1,0,SOPDA AND OUTPUT TO THE LIGHTS * IFT CREDIT=0 LDKL A2,-2 POWER UP INDICATOR XIF IFT CREDIT=1 LDK A2,0 XIF IFF SOPX=0 LDKL A6,DWSI02 ANY REQUEST ON LD A4,DWTST,A6 GET STATUS WORD RF(NN) SOPR1 YES STR A2,A6 IND POWER UP XIF SOPR1 LDKL A6,DWSI01 ANY REQUEST ON LD A4,DWTST,A6 STATUS WORD RF(NN) SOPR2 YES STR A2,A6 IND POWER UP SOPR2 RB IHSOP1 EJECT * * D W S I 0 1 : INPUT DWT * DWSI01 EQU * DATA 0 CHANNEL PARAMETER: POWER UP IND DATA /8000 /8000 MEANS DEVICE IS READY DATA 0 ECB ADDRESS DATA 0 ORDER DATA SOPADI DATA 0 DATA 0 DATA 0 TERMINAL QUEUE * * D W S O 0 1 : OUTPUT DWT * * DWSO01 EQU * DATA /0040 CHANNEL PARAMETER DATA /8000 /8000 MEANS DEVICE IS READY DATA 0 ECB ADDRESS DATA 0 ORDER DATA SOPADU POINTER TO ADDRESS BLOCK DATA 0 TTAB-ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE DATA 0 TIMER POINTER FLASH DATA 0 SAVE AREA FOR FLASHING LAMPS EJECT * * D W S I 0 2 : EXTENDED INPUT DWT * DWSI02 EQU * IFF SOPX=0 DATA 0 DATA /8000 DATA 0,0 DATA SOPADI DATA 0,0,0 XIF END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRSOP1 REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…008c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x004c}
0x008c…0096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00be Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x009a}
0x00be…00c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c2}
0x00c8…00fe Head {h00=0x0032, h01=0x0050, text=»* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL«, t00=0x0000, t01=0x00cc}
0x00fe…0108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…0112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x0112…011c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…0126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x0126…0130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012a}
0x0130…013a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0134}
0x013a…017e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x013e}
0x017e…0188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0182}
0x0188…0192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018c}
0x0192…01d8 Head {h00=0x0042, h01=0x0050, text=»* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S «, t00=0x0001, t01=0x0008}
0x01d8…0208 Head {h00=0x002c, h01=0x0050, text=»* PANEL CONNECTED TO CPU VIA CHCR-SOP «, t00=0x0001, t01=0x004e}
0x0208…0212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007e}
0x0212…021c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0088}
0x021c…025e Head {h00=0x003e, h01=0x0050, text=»* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET «, t00=0x0001, t01=0x0092}
0x025e…029c Head {h00=0x003a, h01=0x0050, text=»* 'BUSY' UNTIL THE INPUT INTERRUPT IS TAKEN CARE OF «, t00=0x0001, t01=0x00d4}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0112}
0x02a6…02b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011c}
0x02b0…02f2 Head {h00=0x003e, h01=0x0050, text=»* AT POWER UP RUNNING READ REQUEST IS COMPLETED WITH -2 «, t00=0x0001, t01=0x0126}
0x02f2…0332 Head {h00=0x003c, h01=0x0050, text=»* IN CONTROL WORD.IF NO RUNNING READ REQUEST,POWER UP «, t00=0x0001, t01=0x0168}
0x0332…0374 Head {h00=0x003e, h01=0x0050, text=»* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH «, t00=0x0002, t01=0x0018}
0x0374…0392 Head {h00=0x001a, h01=0x0050, text=»* -2 IN CONTROL WORD«, t00=0x0002, t01=0x005a}
0x0392…039c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0078}
0x039c…03a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0082}
0x03a6…03e8 Head {h00=0x003e, h01=0x0050, text=»* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET«, t00=0x0002, t01=0x008c}
0x03e8…042a Head {h00=0x003e, h01=0x0050, text=»* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES NOT REQUIRE«, t00=0x0002, t01=0x00ce}
0x042a…0444 Head {h00=0x0016, h01=0x0050, text=»* AN INTERRUPT. «, t00=0x0002, t01=0x0110}
0x0444…044e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x044e…045c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0134}
0x045c…0466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0142}
0x0466…0470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014c}
0x0470…04a8 Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0002, t01=0x0156}
0x04a8…04b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018e}
0x04b2…04de Head {h00=0x0028, h01=0x0050, text=»* S O P A S : READ SWITCHES ENTRY «, t00=0x0003, t01=0x0008}
0x04de…04e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0034}
0x04e8…0516 Head {h00=0x002a, h01=0x0050, text=»* S O P A L : ACTIVATE LIGHTS ENTRY «, t00=0x0003, t01=0x003e}
0x0516…0520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006c}
0x0520…054a Head {h00=0x0026, h01=0x0050, text=»* I H S O P : INTERRUPT HANDLER «, t00=0x0003, t01=0x0076}
0x054a…0554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a0}
0x0554…057a Head {h00=0x0022, h01=0x0050, text=»* S O P R : RECOVERY ROUTINE«, t00=0x0003, t01=0x00aa}
0x057a…0584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d0}
0x0584…058e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00da}
0x058e…0598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e4}
0x0598…05c6 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0003, t01=0x00ee}
0x05c6…05d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011c}
0x05d0…05f4 Head {h00=0x0020, h01=0x0050, text=»* ORDER 02 : READ SWITCHES«, t00=0x0003, t01=0x0126}
0x05f4…061a Head {h00=0x0022, h01=0x0050, text=»* 05 : WRITE LIGHTS ON«, t00=0x0003, t01=0x014a}
0x061a…0642 Head {h00=0x0024, h01=0x0050, text=»* 06 : WRITE LIGHTS OFF «, t00=0x0003, t01=0x0170}
0x0642…0672 Head {h00=0x002c, h01=0x0050, text=»* 39 : WRITE FLASHING LIGHTS «, t00=0x0004, t01=0x0008}
0x0672…067c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0038}
0x067c…069e Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0004, t01=0x0042}
0x069e…06a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0064}
0x06a8…06ce Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: INPUT/OUTPUT «, t00=0x0004, t01=0x006e}
0x06ce…06f4 Head {h00=0x0022, h01=0x0050, text=»* A2: WORK REGISTER«, t00=0x0004, t01=0x0094}
0x06f4…0714 Head {h00=0x001c, h01=0x0050, text=»* A3: ----«, t00=0x0004, t01=0x00ba}
0x0714…073a Head {h00=0x0022, h01=0x0050, text=»* A4: WORK REGISTER«, t00=0x0004, t01=0x00da}
0x073a…075a Head {h00=0x001c, h01=0x0050, text=»* A5: ----«, t00=0x0004, t01=0x0100}
0x075a…077e Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0004, t01=0x0120}
0x077e…079c Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0004, t01=0x0144}
0x079c…07c0 Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0004, t01=0x0162}
0x07c0…07ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0186}
0x07ca…07d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0190}
0x07d4…07e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x000a}
0x07e2…07ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0018}
0x07ec…0800 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0005, t01=0x0022}
0x0800…0814 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES: *«, t00=0x0005, t01=0x0036}
0x0814…0828 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0005, t01=0x004a}
0x0828…0832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005e}
0x0832…083c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0068}
0x083c…086a Head {h00=0x002a, h01=0x0050, text=» ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE«, t00=0x0005, t01=0x0072}
0x086a…0896 Head {h00=0x0028, h01=0x0050, text=» ENTRY SOPR S.O.P. RECOVERY ROUTINE «, t00=0x0005, t01=0x00a0}
0x0896…08cc Head {h00=0x0032, h01=0x0050, text=» ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALIAS) «, t00=0x0005, t01=0x00cc}
0x08cc…08ec Head {h00=0x001c, h01=0x0050, text=» ENTRY DWSI01 INPUT DWT «, t00=0x0005, t01=0x0102}
0x08ec…0914 Head {h00=0x0024, h01=0x0050, text=» ENTRY DWSI02 EXTENDED INPUT DWT«, t00=0x0005, t01=0x0122}
0x0914…0934 Head {h00=0x001c, h01=0x0050, text=» ENTRY DWSO01 OUTPUT DWT«, t00=0x0005, t01=0x014a}
0x0934…093e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016a}
0x093e…0954 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0005, t01=0x0174}
0x0954…096a Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS: *«, t00=0x0005, t01=0x018a}
0x096a…0980 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0006, t01=0x0010}
0x0980…098a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0026}
0x098a…09a2 Head {h00=0x0014, h01=0x0050, text=»* TOSS GLOBALS:«, t00=0x0006, t01=0x0030}
0x09a2…09ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0048}
0x09ac…09dc Head {h00=0x002c, h01=0x0050, text=» EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK «, t00=0x0006, t01=0x0052}
0x09dc…0a14 Head {h00=0x0034, h01=0x0050, text=» EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY«, t00=0x0006, t01=0x0082}
0x0a14…0a3e Head {h00=0x0026, h01=0x0050, text=» EXTRN TDISP DISPATCHER LKM ENTRY «, t00=0x0006, t01=0x00ba}
0x0a3e…0a70 Head {h00=0x002e, h01=0x0050, text=» EXTRN RETUR8 POP A1-A8 CONT'S AND RETURN «, t00=0x0006, t01=0x00e4}
0x0a70…0ab6 Head {h00=0x0042, h01=0x0050, text=» EXTRN TENDIO END-OF-I/O HOUSEKEEPING AND QUEUEING SUBROUTINE «, t00=0x0006, t01=0x0116}
0x0ab6…0acc Head {h00=0x0012, h01=0x0050, text=» EXTRN SETIMP «, t00=0x0006, t01=0x015c}
0x0acc…0ada Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0172}
0x0ada…0ae2 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0180}
0x0ae2…0aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aec…0b18 (7, 0, 398) Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0007, t01=0x0004}
0x0b18…0b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0030}
0x0b22…0b40 Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS «, t00=0x0007, t01=0x003a}
0x0b40…0b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0058}
0x0b4a…0b76 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0007, t01=0x0062}
0x0b76…0b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008e}
0x0b80…0ba8 Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTCHP CHANNEL PARAMETER «, t00=0x0007, t01=0x0098}
0x0ba8…0bc4 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0007, t01=0x00c0}
0x0bc4…0be6 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0007, t01=0x00dc}
0x0be6…0c00 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0007, t01=0x00fe}
0x0c00…0c2e Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTADR POINTER TO ADDRESS-BLOCK«, t00=0x0007, t01=0x0118}
0x0c2e…0c50 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB-ADDRESS«, t00=0x0007, t01=0x0146}
0x0c50…0c7e Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTWAT WAIT ACTIVATE INDICATOR «, t00=0x0007, t01=0x0168}
0x0c7e…0ca2 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTTQ TERMINAL QUEUE «, t00=0x0008, t01=0x0008}
0x0ca2…0cc0 Head {h00=0x001a, h01=0x0050, text=» EXTRN DWTWA WORK AREA«, t00=0x0008, t01=0x002c}
0x0cc0…0cf2 Head {h00=0x002e, h01=0x0050, text=» EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT«, t00=0x0008, t01=0x004a}
0x0cf2…0d18 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0008, t01=0x007c}
0x0d18…0d36 Head {h00=0x001a, h01=0x0050, text=»TIME EQU 5 FLASH TIME «, t00=0x0008, t01=0x00a2}
0x0d36…0d5a Head {h00=0x0020, h01=0x0050, text=»DWTTP EQU /10 TIMER POINTER «, t00=0x0008, t01=0x00c0}
0x0d5a…0d68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00e4}
0x0d68…0d86 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0008, t01=0x00f2}
0x0d86…0dae Head {h00=0x0024, h01=0x0050, text=»* EXTENDED SOP INPUT DWT OR NOT «, t00=0x0008, t01=0x0110}
0x0dae…0dce Head {h00=0x001c, h01=0x0050, text=»* SOPX=0 => NOT EXTENDED«, t00=0x0008, t01=0x0138}
0x0dce…0dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0158}
0x0dd8…0de0 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0162}
0x0de0…0df2 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x016a}
0x0df2…0e04 Head {h00=0x000e, h01=0x0050, text=»SOPX EQU 0«, t00=0x0008, t01=0x017c}
0x0e04…0e0e Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0008, t01=0x018e}
0x0e0e…0e18 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0009, t01=0x0008}
0x0e18…0e54 Head {h00=0x0038, h01=0x0050, text=»* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0009, t01=0x0012}
0x0e54…0e76 Head {h00=0x001e, h01=0x0050, text=»* BY SETTING CREDIT = 1 «, t00=0x0009, t01=0x004e}
0x0e76…0eae Head {h00=0x0034, h01=0x0050, text=»* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS«, t00=0x0009, t01=0x0070}
0x0eae…0ed2 Head {h00=0x0020, h01=0x0050, text=»* /37 AND /38 RESPECTIVLY «, t00=0x0009, t01=0x00a8}
0x0ed2…0f18 Head {h00=0x0042, h01=0x0050, text=»* BY SETTING CREDIT=1 THE SOP-SWITCHES IS INDEXED:1,2,3,... «, t00=0x0009, t01=0x00cc}
0x0f18…0f4a Head {h00=0x002e, h01=0x0050, text=»* 1 CORRESPONDS TO THE RIGHTMOST SWITCH.«, t00=0x0009, t01=0x0112}
0x0f4a…0f8c Head {h00=0x003e, h01=0x0050, text=»* IN CASE OF POWER ON ZERO IS STORED IN THE CONTROL WORD«, t00=0x0009, t01=0x0144}
0x0f8c…0fa4 Head {h00=0x0014, h01=0x0050, text=»* OF THE ECB. «, t00=0x0009, t01=0x0186}
0x0fa4…0fae Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x000e}
0x0fae…0fb6 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0018}
0x0fb6…0fca Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 1«, t00=0x000a, t01=0x0020}
0x0fca…0fd4 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0034}
0x0fd4…0fde Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x003e}
0x0fde…1022 Head {h00=0x0040, h01=0x0050, text=»* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY «, t00=0x000a, t01=0x0048}
0x1022…103c Head {h00=0x0016, h01=0x0050, text=»* SETTING X:B=1 «, t00=0x000a, t01=0x008c}
0x103c…1046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a6}
0x1046…1058 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000a, t01=0x00b0}
0x1058…106c Head {h00=0x0010, h01=0x0050, text=»WRFLA EQU 0 «, t00=0x000a, t01=0x00c2}
0x106c…107a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00d6}
0x107a…1084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e4}
0x1084…10a6 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000a, t01=0x00ee}
0x10a6…10c8 Head {h00=0x001e, h01=0x0050, text=»* S.O.P. DEVICE ADDRESS: *«, t00=0x000a, t01=0x0110}
0x10c8…10ea Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000a, t01=0x0132}
0x10ea…10f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0154}
0x10f4…10fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015e}
0x10fe…1122 Head {h00=0x0020, h01=0x0050, text=»SOPDA EQU /2E DEVICE ADDRESS«, t00=0x000a, t01=0x0168}
0x1122…112c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018c}
0x112c…1136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0008}
0x1136…1140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0012}
0x1140…114a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001c}
0x114a…1170 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000b, t01=0x0026}
0x1170…1196 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000b, t01=0x004c}
0x1196…11bc Head {h00=0x0022, h01=0x0050, text=»* S.O.P. CHANNEL UNIT TABLE *«, t00=0x000b, t01=0x0072}
0x11bc…11e2 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0098}
0x11e2…1208 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000b, t01=0x00be}
0x1208…1212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e4}
0x1212…121c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ee}
0x121c…1250 Head {h00=0x0030, h01=0x0050, text=»SOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK:«, t00=0x000b, t01=0x00f8}
0x1250…125a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012c}
0x125a…1294 Head {h00=0x0036, h01=0x0050, text=»SOPADI EQU * INPUT ADDRESS BLOCK (FOR READ ORDERS)«, t00=0x000b, t01=0x0136}
0x1294…129e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0170}
0x129e…12ca Head {h00=0x0028, h01=0x0050, text=» DATA SOPAS ACTIVATE SWITCHES ENTRY «, t00=0x000b, t01=0x017a}
0x12ca…12d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0016}
0x12d4…12fe Head {h00=0x0026, h01=0x0050, text=»SOPADU EQU * ACTIVATE LIGHTS ENTRY«, t00=0x000c, t01=0x0020}
0x12fe…1308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004a}
0x1308…1332 Head {h00=0x0026, h01=0x0050, text=» DATA SOPAL ACTIVATE LIGHTS ENTRY «, t00=0x000c, t01=0x0054}
0x1332…133c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007e}
0x133c…1364 Head {h00=0x0024, h01=0x0050, text=»SPDLCI DATA 0 LIGHT'S CORE IMAGE«, t00=0x000c, t01=0x0088}
0x1364…136e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b0}
0x136e…137c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00ba}
0x137c…1386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c8}
0x1386…13ac Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000c, t01=0x00d2}
0x13ac…13d2 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000c, t01=0x00f8}
0x13d2…13f8 Head {h00=0x0022, h01=0x0050, text=»* S.O.P. ACTIVATION ROUTINE: *«, t00=0x000c, t01=0x011e}
0x13f8…141e Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0144}
0x141e…1444 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000c, t01=0x016a}
0x1444…144e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0190}
0x144e…1490 Head {h00=0x003e, h01=0x0050, text=»* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION«, t00=0x000d, t01=0x000a}
0x1490…14ac Head {h00=0x0018, h01=0x0050, text=»* IS CARRIED OUT. «, t00=0x000d, t01=0x004c}
0x14ac…14b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0068}
0x14b6…14e4 Head {h00=0x002a, h01=0x0050, text=»SOPAS EQU * SWITCHES ACTIVATION ENTRY «, t00=0x000d, t01=0x0072}
0x14e4…14ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a0}
0x14ee…150c Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 COPY ORDER «, t00=0x000d, t01=0x00aa}
0x150c…1516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c8}
0x1516…153c Head {h00=0x0022, h01=0x0050, text=» SUK A4,/02 SEE IF READ ORDER:«, t00=0x000d, t01=0x00d2}
0x153c…1546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f8}
0x1546…1574 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) SOPER ERROR IF NOT READ ORDER «, t00=0x000d, t01=0x0102}
0x1574…157e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0130}
0x157e…159c Head {h00=0x001a, h01=0x0050, text=»* INPUT SWITCH VALUE«, t00=0x000d, t01=0x013a}
0x159c…15a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0158}
0x15a6…15d4 Head {h00=0x002a, h01=0x0050, text=»SOPIN LDR* A2,A6 POWER UP INDICATION ?«, t00=0x000d, t01=0x0162}
0x15d4…15ea Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x000d, t01=0x0190}
0x15ea…1600 Head {h00=0x0012, h01=0x0050, text=» RF(Z) EXIT NO«, t00=0x000e, t01=0x0016}
0x1600…1628 Head {h00=0x0024, h01=0x0050, text=» CMR A6 YES CLEAR FOR NEXT REQ. «, t00=0x000e, t01=0x002c}
0x1628…1634 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0054}
0x1634…164a Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x000e, t01=0x0060}
0x164a…1662 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) EXIT NO «, t00=0x000e, t01=0x0076}
0x1662…1678 Head {h00=0x0012, h01=0x0050, text=» STR A7,A6 YES«, t00=0x000e, t01=0x008e}
0x1678…1684 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00a4}
0x1684…1696 Head {h00=0x000e, h01=0x0050, text=» RF IHSOP3«, t00=0x000e, t01=0x00b0}
0x1696…16a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c2}
0x16a0…16aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16aa…16d4 Head {h00=0x0026, h01=0x0050, text=»SOPAL EQU * ACTIVATE LIGHTS ENTRY «, t00=0x000e, t01=0x00d6}
0x16d4…16de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0100}
0x16de…16fc Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 COPY ORDER «, t00=0x000e, t01=0x010a}
0x16fc…1710 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x000e, t01=0x0128}
0x1710…1726 Head {h00=0x0012, h01=0x0050, text=» CCK A4,/3939 «, t00=0x000e, t01=0x013c}
0x1726…173a Head {h00=0x0010, h01=0x0050, text=» RF(E) SOPFL«, t00=0x000e, t01=0x0152}
0x173a…1746 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0166}
0x1746…175c Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x000e, t01=0x0172}
0x175c…1788 Head {h00=0x0028, h01=0x0050, text=» SUK A4,/05 SEE IF 'LIGHTS ON' ORDER«, t00=0x000e, t01=0x0188}
0x1788…1794 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0024}
0x1794…17aa Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x000f, t01=0x0030}
0x17aa…17be Head {h00=0x0010, h01=0x0050, text=» SUK A4,/37 «, t00=0x000f, t01=0x0046}
0x17be…17ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x005a}
0x17ca…17f4 Head {h00=0x0026, h01=0x0050, text=» RF(Z) SOPON IF SO, TURN ON LIGHTS«, t00=0x000f, t01=0x0066}
0x17f4…17fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0090}
0x17fe…1828 Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 SEE IF LIGHTS OFF ORDER «, t00=0x000f, t01=0x009a}
0x1828…183e Head {h00=0x0012, h01=0x0050, text=» RF(Z) SOPOFF «, t00=0x000f, t01=0x00c4}
0x183e…1868 Head {h00=0x0026, h01=0x0050, text=»SOPER ABL(NZ) DISIOE ILLEGAL ORDER«, t00=0x000f, t01=0x00da}
0x1868…187c Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x000f, t01=0x0104}
0x187c…188a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0118}
0x188a…1894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0126}
0x1894…189e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0130}
0x189e…18b8 Head {h00=0x0016, h01=0x0050, text=»* FLASH LIGHTS«, t00=0x000f, t01=0x013a}
0x18b8…18c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0154}
0x18c2…18cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015e}
0x18cc…18e0 Head {h00=0x0010, h01=0x0050, text=»SOPFL EQU * «, t00=0x000f, t01=0x0168}
0x18e0…18f8 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x000f, t01=0x017c}
0x18f8…1924 (16, 0, 400) Head {h00=0x0028, h01=0x0050, text=» RF(NE) FL010 TIMER ALREADY STARTED «, t00=0x0010, t01=0x0004}
0x1924…193a Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTTP «, t00=0x0010, t01=0x0030}
0x193a…194c Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0010, t01=0x0046}
0x194c…195e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0010, t01=0x0058}
0x195e…1974 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0010, t01=0x006a}
0x1974…198c Head {h00=0x0014, h01=0x0050, text=» DATA FLTUT,TIME«, t00=0x0010, t01=0x0080}
0x198c…19a4 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTTP,A6 «, t00=0x0010, t01=0x0098}
0x19a4…19ba Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FFBF«, t00=0x0010, t01=0x00b0}
0x19ba…19de Head {h00=0x0020, h01=0x0050, text=» ANS A1,DWTST,A6 SET ON FLAG«, t00=0x0010, t01=0x00c6}
0x19de…19f2 Head {h00=0x0010, h01=0x0050, text=»FL010 EQU * «, t00=0x0010, t01=0x00ea}
0x19f2…1a18 Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 GET CONTROL WORD «, t00=0x0010, t01=0x00fe}
0x1a18…1a4a Head {h00=0x002e, h01=0x0050, text=» ORS A4,FLASH STORE NEW LAMPS TO A4,FLASH «, t00=0x0010, t01=0x0124}
0x1a4a…1a66 Head {h00=0x0018, h01=0x0050, text=»FL015 LD A1,DWTST,A6«, t00=0x0010, t01=0x0156}
0x1a66…1a7a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/40 «, t00=0x0010, t01=0x0172}
0x1a7a…1a8e Head {h00=0x0010, h01=0x0050, text=» RF(Z) FL020«, t00=0x0010, t01=0x0186}
0x1a8e…1ab8 Head {h00=0x0026, h01=0x0050, text=» ORS A4,SPDLCI FIXA TILL DET HELA!«, t00=0x0011, t01=0x000a}
0x1ab8…1acc Head {h00=0x0010, h01=0x0050, text=» RF SOPONOFF«, t00=0x0011, t01=0x0034}
0x1acc…1ae0 Head {h00=0x0010, h01=0x0050, text=»FL020 EQU * «, t00=0x0011, t01=0x0048}
0x1ae0…1af2 Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0011, t01=0x005c}
0x1af2…1b08 Head {h00=0x0012, h01=0x0050, text=» ANS A4,SPDLCI«, t00=0x0011, t01=0x006e}
0x1b08…1b1c Head {h00=0x0010, h01=0x0050, text=» RF SOPONOF «, t00=0x0011, t01=0x0084}
0x1b1c…1b3e Head {h00=0x001e, h01=0x0050, text=»FLTUT EQU * FLASH TIME OUT«, t00=0x0011, t01=0x0098}
0x1b3e…1b56 Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWSO01 «, t00=0x0011, t01=0x00ba}
0x1b56…1b6a Head {h00=0x0010, h01=0x0050, text=» LD A4,FLASH«, t00=0x0011, t01=0x00d2}
0x1b6a…1b9e Head {h00=0x0030, h01=0x0050, text=» RF(Z) FL030 NO MORE FLASHING FOR THIS TIME «, t00=0x0011, t01=0x00e6}
0x1b9e…1bc2 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x0011, t01=0x011a}
0x1bc2…1bda Head {h00=0x0014, h01=0x0050, text=» ST* A1,DWTTP,A6«, t00=0x0011, t01=0x013e}
0x1bda…1bee Head {h00=0x0010, h01=0x0050, text=» LDK A1,/40 «, t00=0x0011, t01=0x0156}
0x1bee…1c06 Head {h00=0x0014, h01=0x0050, text=» XRS A1,DWTST,A6«, t00=0x0011, t01=0x016a}
0x1c06…1c18 Head {h00=0x000e, h01=0x0050, text=» RB FL015 «, t00=0x0011, t01=0x0182}
0x1c18…1c32 (18, 0, 400) Head {h00=0x0016, h01=0x0050, text=»FL030 CM DWTTP,A6 «, t00=0x0012, t01=0x0004}
0x1c32…1c4a Head {h00=0x0014, h01=0x0050, text=» RF EXIT END I/O«, t00=0x0012, t01=0x001e}
0x1c4a…1c56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0036}
0x1c56…1c64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0042}
0x1c64…1c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0050}
0x1c6e…1ca6 Head {h00=0x0034, h01=0x0050, text=»SOPOFF C1 A4,10,A8 GET COMPLEMENTED CONTROL WORD«, t00=0x0012, t01=0x005a}
0x1ca6…1cde Head {h00=0x0034, h01=0x0050, text=» ANS A4,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF «, t00=0x0012, t01=0x0092}
0x1cde…1cf2 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0012, t01=0x00ca}
0x1cf2…1d1a Head {h00=0x0024, h01=0x0050, text=» ANS A4,FLASH STOP SOME FLASHING«, t00=0x0012, t01=0x00de}
0x1d1a…1d26 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0106}
0x1d26…1d56 Head {h00=0x002c, h01=0x0050, text=» RF SOPONOF BRANCH TO COMMON ON/OFF PATH«, t00=0x0012, t01=0x0112}
0x1d56…1d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0142}
0x1d60…1d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014c}
0x1d6a…1d9a Head {h00=0x002c, h01=0x0050, text=»* TURN ON LIGHTS INDICATED BY '1' BITS:«, t00=0x0012, t01=0x0156}
0x1d9a…1da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0186}
0x1da4…1dce Head {h00=0x0026, h01=0x0050, text=»SOPON LD A4,10,A8 GET CONTROL WORD«, t00=0x0012, t01=0x0190}
0x1dce…1e00 Head {h00=0x002e, h01=0x0050, text=» ORS A4,SPDLCI SET LIGHTS TO BE TURNED ON «, t00=0x0013, t01=0x002a}
0x1e00…1e14 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0013, t01=0x005c}
0x1e14…1e26 Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0013, t01=0x0070}
0x1e26…1e54 Head {h00=0x002a, h01=0x0050, text=» ANS A4,FLASH STOP SOME OTHER FLASHING«, t00=0x0013, t01=0x0082}
0x1e54…1e60 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00b0}
0x1e60…1e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00bc}
0x1e6a…1e88 Head {h00=0x001a, h01=0x0050, text=»* COMMON ON/OFF PATH:«, t00=0x0013, t01=0x00c6}
0x1e88…1e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e4}
0x1e92…1ec6 Head {h00=0x0030, h01=0x0050, text=»SOPONOFF LD A1,SPDLCI GET LIGHTS' CORE IMAGE«, t00=0x0013, t01=0x00ee}
0x1ec6…1ef2 Head {h00=0x0028, h01=0x0050, text=» OTR A1,0,SOPDA AND OUTPUT TO S.O.P.«, t00=0x0013, t01=0x0122}
0x1ef2…1efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014e}
0x1efc…1f1c Head {h00=0x001c, h01=0x0050, text=» RF ENDIO PERFORM TENDIO«, t00=0x0013, t01=0x0158}
0x1f1c…1f2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0178}
0x1f2a…1f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0186}
0x1f34…1f58 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0013, t01=0x0190}
0x1f58…1f7c Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0014, t01=0x0024}
0x1f7c…1fa0 Head {h00=0x0020, h01=0x0050, text=»* S.O.P. INTERRUPT HANDLER *«, t00=0x0014, t01=0x0048}
0x1fa0…1fc4 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0014, t01=0x006c}
0x1fc4…1fe8 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0014, t01=0x0090}
0x1fe8…1ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b4}
0x1ff2…1ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00be}
0x1ffc…2040 Head {h00=0x0040, h01=0x0050, text=»* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. «, t00=0x0014, t01=0x00c8}
0x2040…204a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x010c}
0x204a…208e Head {h00=0x0040, h01=0x0050, text=»* IF NO REQUEST IS IN PROCEEDING THE INTERRUPT IS IGNORED.«, t00=0x0014, t01=0x0116}
0x208e…2098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015a}
0x2098…20a0 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0164}
0x20a0…20ba Head {h00=0x0016, h01=0x0050, text=»IHSOP CF A15,SAVE8«, t00=0x0014, t01=0x016c}
0x20ba…20e2 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0014, t01=0x0186}
0x20e2…2104 Head {h00=0x001e, h01=0x0050, text=» INR A1,0,SOPDA GET SWITCH«, t00=0x0015, t01=0x001e}
0x2104…2122 Head {h00=0x001a, h01=0x0050, text=» SRN A1,A2 CALC INDEX «, t00=0x0015, t01=0x0040}
0x2122…2138 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0015, t01=0x005e}
0x2138…214a Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0015, t01=0x0074}
0x214a…2156 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0086}
0x2156…216c Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0015, t01=0x0092}
0x216c…217e Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0015, t01=0x00a8}
0x217e…218a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00ba}
0x218a…2192 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x00c6}
0x2192…21a6 Head {h00=0x0010, h01=0x0050, text=»IHSOP1 EQU *«, t00=0x0015, t01=0x00ce}
0x21a6…21ba Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x0015, t01=0x00e2}
0x21ba…21e0 Head {h00=0x0022, h01=0x0050, text=» LDKL A6,DWSI02 ANY REQUEST ON«, t00=0x0015, t01=0x00f6}
0x21e0…2204 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0015, t01=0x011c}
0x2204…221c Head {h00=0x0014, h01=0x0050, text=» RF(N) IHSOP2 NO«, t00=0x0015, t01=0x0140}
0x221c…2244 Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB-ADDRESS«, t00=0x0015, t01=0x0158}
0x2244…2268 Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBCW,A8 STORE INDEX «, t00=0x0015, t01=0x0180}
0x2268…227a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0016, t01=0x0014}
0x227a…2298 Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0016, t01=0x0026}
0x2298…22a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0044}
0x22a4…22ac Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0050}
0x22ac…22d8 Head {h00=0x0028, h01=0x0050, text=»IHSOP2 LDKL A6,DWSI01 ANY REQUEST ON«, t00=0x0016, t01=0x0058}
0x22d8…22fc Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0016, t01=0x0084}
0x22fc…2312 Head {h00=0x0012, h01=0x0050, text=» RF(N) EXIT NO«, t00=0x0016, t01=0x00a8}
0x2312…233a Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB-ADDRESS«, t00=0x0016, t01=0x00be}
0x233a…2342 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x00e6}
0x2342…236c Head {h00=0x0026, h01=0x0050, text=»IHSOP3 ST A2,ECBCW,A8 STORE INDEX «, t00=0x0016, t01=0x00ee}
0x236c…2374 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0118}
0x2374…238a Head {h00=0x0012, h01=0x0050, text=»ENDIO LDK A1,0«, t00=0x0016, t01=0x0120}
0x238a…23a8 Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0016, t01=0x0136}
0x23a8…23b0 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0154}
0x23b0…23d8 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0016, t01=0x015c}
0x23d8…23e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0184}
0x23e6…23f0 (23, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0004}
0x23f0…241e Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0017, t01=0x000e}
0x241e…244c Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0017, t01=0x003c}
0x244c…247a Head {h00=0x002a, h01=0x0050, text=»* S.O.P POWER UP RECOVERY ROUTINE * «, t00=0x0017, t01=0x006a}
0x247a…24a8 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0017, t01=0x0098}
0x24a8…24d6 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0017, t01=0x00c6}
0x24d6…24e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f4}
0x24e0…24ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00fe}
0x24ea…2528 Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE «, t00=0x0017, t01=0x0108}
0x2528…2564 Head {h00=0x0038, h01=0x0050, text=»* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD«, t00=0x0017, t01=0x0146}
0x2564…25a8 Head {h00=0x0040, h01=0x0050, text=»* BE PRESENT IN THE POWER FAILURE RECOVERY TABLE (PFTAB). «, t00=0x0017, t01=0x0182}
0x25a8…25e8 Head {h00=0x003c, h01=0x0050, text=»* IF RUNNING READ REQUEST THIS IS COMPLETED WITH -2 IN«, t00=0x0018, t01=0x0036}
0x25e8…261c Head {h00=0x0030, h01=0x0050, text=»* CONTROL WORD. ELSE -2 IS SAVED IN DWTCHP«, t00=0x0018, t01=0x0076}
0x261c…2626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00aa}
0x2626…2630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b4}
0x2630…2650 Head {h00=0x001c, h01=0x0050, text=»SOPR EQU * ENTRY POINT «, t00=0x0018, t01=0x00be}
0x2650…265a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00de}
0x265a…267a Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 SAVE REGS.«, t00=0x0018, t01=0x00e8}
0x267a…26a0 Head {h00=0x0022, h01=0x0050, text=» CIO A1,1,SOPDA ACTIVATE INPUT«, t00=0x0018, t01=0x0108}
0x26a0…26aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x012e}
0x26aa…26d6 Head {h00=0x0028, h01=0x0050, text=» LD A1,SPDLCI GET LIGHTS' CORE IMAGE«, t00=0x0018, t01=0x0138}
0x26d6…2706 Head {h00=0x002c, h01=0x0050, text=» OTR A1,0,SOPDA AND OUTPUT TO THE LIGHTS«, t00=0x0018, t01=0x0164}
0x2706…2710 (25, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0004}
0x2710…2726 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0019, t01=0x000e}
0x2726…274c Head {h00=0x0022, h01=0x0050, text=» LDKL A2,-2 POWER UP INDICATOR«, t00=0x0019, t01=0x0024}
0x274c…2758 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x004a}
0x2758…276e Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0019, t01=0x0056}
0x276e…2780 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0019, t01=0x006c}
0x2780…278c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x007e}
0x278c…2794 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x008a}
0x2794…27a8 Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x0019, t01=0x0092}
0x27a8…27ce Head {h00=0x0022, h01=0x0050, text=» LDKL A6,DWSI02 ANY REQUEST ON«, t00=0x0019, t01=0x00a6}
0x27ce…27f6 Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS WORD «, t00=0x0019, t01=0x00cc}
0x27f6…2810 Head {h00=0x0016, h01=0x0050, text=» RF(NN) SOPR1 YES «, t00=0x0019, t01=0x00f4}
0x2810…2830 Head {h00=0x001c, h01=0x0050, text=» STR A2,A6 IND POWER UP «, t00=0x0019, t01=0x010e}
0x2830…283c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x012e}
0x283c…2844 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x013a}
0x2844…2870 Head {h00=0x0028, h01=0x0050, text=»SOPR1 LDKL A6,DWSI01 ANY REQUEST ON «, t00=0x0019, t01=0x0142}
0x2870…2894 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0019, t01=0x016e}
0x2894…28ae (26, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(NN) SOPR2 YES «, t00=0x001a, t01=0x0004}
0x28ae…28ce Head {h00=0x001c, h01=0x0050, text=» STR A2,A6 IND POWER UP «, t00=0x001a, t01=0x001e}
0x28ce…28d6 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x003e}
0x28d6…28ee Head {h00=0x0014, h01=0x0050, text=»SOPR2 RB IHSOP1 «, t00=0x001a, t01=0x0046}
0x28ee…28fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x005e}
0x28fc…2906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006c}
0x2906…292a Head {h00=0x0020, h01=0x0050, text=»* D W S I 0 1 : INPUT DWT «, t00=0x001a, t01=0x0076}
0x292a…2934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009a}
0x2934…2948 Head {h00=0x0010, h01=0x0050, text=»DWSI01 EQU *«, t00=0x001a, t01=0x00a4}
0x2948…2978 Head {h00=0x002c, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER: POWER UP IND «, t00=0x001a, t01=0x00b8}
0x2978…29a8 Head {h00=0x002c, h01=0x0050, text=» DATA /8000 /8000 MEANS DEVICE IS READY «, t00=0x001a, t01=0x00e8}
0x29a8…29c4 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x001a, t01=0x0118}
0x29c4…29da Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x001a, t01=0x0134}
0x29da…29ee Head {h00=0x0010, h01=0x0050, text=» DATA SOPADI«, t00=0x001a, t01=0x014a}
0x29ee…29fe Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001a, t01=0x015e}
0x29fe…2a0e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001a, t01=0x016e}
0x2a0e…2a2c Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x001a, t01=0x017e}
0x2a2c…2a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x000c}
0x2a36…2a5a Head {h00=0x0020, h01=0x0050, text=»* D W S O 0 1 : OUTPUT DWT«, t00=0x001b, t01=0x0016}
0x2a5a…2a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x003a}
0x2a64…2a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0044}
0x2a6e…2a82 Head {h00=0x0010, h01=0x0050, text=»DWSO01 EQU *«, t00=0x001b, t01=0x004e}
0x2a82…2aa8 Head {h00=0x0022, h01=0x0050, text=» DATA /0040 CHANNEL PARAMETER «, t00=0x001b, t01=0x0062}
0x2aa8…2ad8 Head {h00=0x002c, h01=0x0050, text=» DATA /8000 /8000 MEANS DEVICE IS READY «, t00=0x001b, t01=0x0088}
0x2ad8…2af4 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x001b, t01=0x00b8}
0x2af4…2b0a Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x001b, t01=0x00d4}
0x2b0a…2b38 Head {h00=0x002a, h01=0x0050, text=» DATA SOPADU POINTER TO ADDRESS BLOCK «, t00=0x001b, t01=0x00ea}
0x2b38…2b54 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x001b, t01=0x0118}
0x2b54…2b7c Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x001b, t01=0x0134}
0x2b7c…2b9a Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x001b, t01=0x015c}
0x2b9a…2bb8 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TIMER POINTER «, t00=0x001b, t01=0x017a}
0x2bb8…2bea Head {h00=0x002e, h01=0x0050, text=»FLASH DATA 0 SAVE AREA FOR FLASHING LAMPS «, t00=0x001c, t01=0x0008}
0x2bea…2bf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x003a}
0x2bf8…2c00 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0048}
0x2c00…2c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0050}
0x2c0a…2c38 Head {h00=0x002a, h01=0x0050, text=»* D W S I 0 2 : EXTENDED INPUT DWT «, t00=0x001c, t01=0x005a}
0x2c38…2c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0088}
0x2c42…2c4a Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0092}
0x2c4a…2c5e Head {h00=0x0010, h01=0x0050, text=»DWSI02 EQU *«, t00=0x001c, t01=0x009a}
0x2c5e…2c72 Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x001c, t01=0x00ae}
0x2c72…2c82 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001c, t01=0x00c2}
0x2c82…2c96 Head {h00=0x0010, h01=0x0050, text=» DATA /8000 «, t00=0x001c, t01=0x00d2}
0x2c96…2ca8 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x001c, t01=0x00e6}
0x2ca8…2cbc Head {h00=0x0010, h01=0x0050, text=» DATA SOPADI«, t00=0x001c, t01=0x00f8}
0x2cbc…2cd0 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x001c, t01=0x010c}
0x2cd0…2cdc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0120}
0x2cdc…2ce8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001c, t01=0x012c}
0x2ce8…2cec Head {h00=0x4004, h01=0x0000}
0x2cec…2cf0 00 1c 01 38 ┆ 8┆
0x2cf0…2cf8 (29, 1, 8) 20 04 00 00 00 1d 00 04 ┆ ┆
0x2cf8…2d48 (30, 0, 400) 50 45 52 41 42 45 4c 20 00 05 01 82 00 06 00 50 2a 20 00 06 00 10 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 54 43 30 31 20 00 06 00 1a 00 06 00 50 2a 20 00 06 00 32 00 06 00 50 2a 20 00 06 00 3c 00 22 00 50 2a 20 20 20 4e 4f 52 4d 41 4c ┆PERABEL P* P EJECT DRTC01 P* 2 P* < " P* NORMAL┆
0x2d48…2d98 20 55 53 41 47 45 20 4f 46 20 52 45 47 49 53 54 45 52 53 3a 00 06 00 46 00 06 00 50 2a 20 00 06 00 6c 00 20 00 50 2a 20 20 20 52 45 47 49 53 54 45 52 20 41 31 3a 5c 52 45 54 55 52 4e 20 43 4f 44 45 00 06 00 76 00 20 00 50 2a 20 20 20 20 20 ┆ USAGE OF REGISTERS: F P* l P* REGISTER A1: RETURN CODE v P* ┆
0x2d98…2de8 20 20 20 20 20 20 20 41 32 3a 5c 53 53 54 20 53 54 41 54 55 53 20 00 06 00 9a 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 33 3a 5c 44 57 54 20 53 54 41 54 55 53 20 41 46 54 45 52 20 53 53 54 20 00 06 00 be 00 22 00 50 2a 20 20 20 ┆ A2: SST STATUS * P* A3: DWT STATUS AFTER SST " P* ┆
0x2de8…2e38 20 20 20 20 20 20 20 20 20 41 34 3a 5c 52 45 54 52 59 20 43 4f 55 4e 54 45 52 00 06 00 ec 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 35 3a 20 20 53 45 51 55 45 4e 43 45 20 43 48 41 52 41 43 54 45 52 20 41 46 54 45 52 20 52 45 41 ┆ A4: RETRY COUNTER : P* A5: SEQUENCE CHARACTER AFTER REA┆
0x2e38…2e88 44 2f 57 52 49 54 45 20 00 06 01 12 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 36 3a 5c 44 57 54 20 41 44 44 52 45 53 53 00 06 01 50 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 38 3a 5c 53 55 42 52 4f 55 54 49 4e 45 20 ┆D/WRITE P* A6: DWT ADDRESS P & P* A8: SUBROUTINE ┆
0x2e88…2ed8 (31, 0, 400) 53 54 41 43 4b 20 00 06 01 74 00 06 00 50 2a 20 00 07 00 0e 00 06 00 50 2a 20 00 07 00 18 00 1a 00 50 2a 20 20 20 53 59 53 54 45 4d 20 41 44 41 50 54 41 54 49 4f 4e 3a 00 07 00 22 00 06 00 50 2a 20 00 07 00 40 00 3a 00 50 2a 20 20 20 42 59 ┆STACK t P* P* P* SYSTEM ADAPTATION: " P* @ : P* BY┆
0x2ed8…2f28 20 4d 45 41 4e 53 20 4f 46 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 41 53 53 45 4d 42 4c 59 20 54 48 45 20 44 52 49 56 45 52 20 43 41 4e 20 42 45 00 07 00 4a 00 1a 00 50 2a 20 20 20 52 45 44 55 43 45 44 20 54 4f 20 48 41 4e 44 4c 45 3a 00 07 ┆ MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE J P* REDUCED TO HANDLE: ┆
0x2f28…2f78 00 88 00 06 00 50 2a 20 00 07 00 a6 00 22 00 50 2a 20 20 2d 4f 4e 4c 59 20 4f 4e 45 20 43 41 53 53 45 54 54 45 20 52 45 43 4f 52 44 45 52 00 07 00 b0 00 30 00 50 2a 20 20 2d 4f 52 44 45 52 53 20 52 45 56 45 52 53 45 2c 20 45 52 41 53 45 20 ┆ P* " P* -ONLY ONE CASSETTE RECORDER 0 P* -ORDERS REVERSE, ERASE ┆
0x2f78…2fc8 41 4e 44 20 4c 4f 43 4b 20 45 58 43 4c 55 44 45 44 20 00 07 00 d6 00 06 00 50 2a 20 00 07 01 0a 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 54 43 30 31 20 00 07 01 14 00 06 00 50 2a 20 00 07 01 2c 00 06 00 50 2a 20 00 07 01 36 00 10 00 50 ┆AND LOCK EXCLUDED P* P EJECT DRTC01 P* , P* 6 P┆
0x2fc8…3018 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 07 01 40 00 10 00 50 2a 20 45 4e 54 52 49 45 53 20 2a 20 00 07 01 54 00 10 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 07 01 68 00 06 00 50 2a 20 00 07 01 7c 00 06 00 50 2a 20 00 07 01 86 00 22 00 50 ┆*********** @ P* ENTRIES * T P*********** h P* | P* " P┆
0x3018…3068 (32, 0, 400) 5c 45 4e 54 52 59 5c 49 48 54 43 5c 49 4e 54 45 52 52 55 50 54 20 41 44 44 52 45 53 53 20 00 07 01 90 00 2e 00 50 5c 45 4e 54 52 59 5c 44 57 54 43 30 31 5c 44 57 54 20 46 4f 52 20 43 41 53 53 45 54 54 45 20 52 45 43 4f 52 44 45 52 20 30 31 ┆ ENTRY IHTC INTERRUPT ADDRESS . P ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01┆
0x3068…30b8 00 08 00 26 00 2e 00 50 5c 45 4e 54 52 59 5c 44 57 54 43 30 32 5c 44 57 54 20 46 4f 52 20 43 41 53 53 45 54 54 45 20 52 45 43 4f 52 44 45 52 20 30 32 00 08 00 58 00 24 00 50 5c 45 4e 54 52 59 5c 54 43 44 52 4f 4e 5c 50 4f 57 45 52 20 55 50 ┆ & . P ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02 X $ P ENTRY TCDRON POWER UP┆
0x30b8…3108 20 52 45 43 4f 56 45 52 59 20 00 08 00 8a 00 04 00 50 00 08 00 b2 00 04 00 50 00 08 00 ba 00 04 00 50 00 08 00 c2 00 06 00 50 2a 20 00 08 00 ca 00 06 00 50 2a 20 00 08 00 d4 00 24 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RECOVERY P P P P* P* $ P******************┆
0x3108…3158 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 08 00 de 00 24 00 50 2a 20 45 58 54 45 52 4e 41 4c 20 54 4f 53 53 20 4d 4f 44 55 4c 45 20 45 4e 54 52 49 45 53 20 2a 00 08 01 06 00 24 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆************** $ P* EXTERNAL TOSS MODULE ENTRIES * $ P******************┆
0x3158…31a8 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 08 01 2e 00 06 00 50 2a 20 00 08 01 56 00 06 00 50 2a 20 00 08 01 60 00 26 00 50 5c 45 58 54 52 4e 5c 54 44 49 53 50 5c 44 49 53 50 41 54 43 48 45 52 20 4d 41 49 4e 20 45 4e 54 52 59 00 08 01 6a ┆************** . P* V P* ` & P EXTRN TDISP DISPATCHER MAIN ENTRY j┆
0x31a8…31f8 (33, 0, 400) 00 34 00 50 5c 45 58 54 52 4e 5c 53 41 56 45 38 5c 44 49 53 50 41 54 43 48 45 52 20 53 41 56 45 20 52 45 47 53 20 31 2d 38 20 53 55 42 52 4f 55 54 49 4e 45 00 09 00 04 00 2e 00 50 5c 45 58 54 52 4e 5c 52 45 54 55 52 38 5c 44 49 53 50 41 54 ┆ 4 P EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE . P EXTRN RETUR8 DISPAT┆
0x31f8…3248 43 48 45 52 20 4c 4f 41 44 20 41 31 2d 41 38 20 52 45 54 55 52 4e 00 09 00 3c 00 2c 00 50 5c 45 58 54 52 4e 5c 54 45 4e 44 49 4f 5c 47 4c 4f 42 41 4c 20 45 4e 44 2d 4f 46 2d 49 2f 4f 20 52 4f 55 54 49 4e 45 20 00 09 00 6e 00 2e 00 50 5c 45 ┆CHER LOAD A1-A8 RETURN < , P EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE n . P E┆
0x3248…3298 58 54 52 4e 5c 44 49 53 45 4e 44 5c 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 20 56 49 41 20 54 45 4e 44 49 4f 20 00 09 00 9e 00 34 00 50 5c 45 58 54 52 4e 5c 44 49 53 49 4f 45 5c 44 49 53 50 41 54 43 48 45 52 20 49 2f 4f 20 52 45 51 ┆XTRN DISEND GO TO DISPATCHER VIA TENDIO 4 P EXTRN DISIOE DISPATCHER I/O REQ┆
0x3298…32e8 55 45 53 54 20 45 52 52 4f 52 20 45 4e 54 52 59 00 09 00 d0 00 2a 00 50 5c 45 58 54 52 4e 5c 49 4e 54 53 41 56 5c 53 41 56 45 20 41 52 45 41 20 4c 41 53 54 20 49 4e 54 45 52 52 55 50 54 00 09 01 08 00 2a 00 50 5c 45 58 54 52 4e 5c 49 4e 49 ┆UEST ERROR ENTRY * P EXTRN INTSAV SAVE AREA LAST INTERRUPT * P EXTRN INI┆
0x32e8…3338 46 4c 47 5c 49 4e 49 54 20 46 4c 41 47 20 41 54 20 50 47 4d 20 4c 4f 41 44 49 4e 47 00 09 01 36 00 24 00 50 5c 45 58 54 52 4e 5c 53 57 4c 58 59 5c 53 57 49 54 43 48 20 54 4f 20 4c 45 56 45 4c 20 58 59 20 00 09 01 64 00 28 00 50 5c 45 58 54 ┆FLG INIT FLAG AT PGM LOADING 6 $ P EXTRN SWLXY SWITCH TO LEVEL XY d ( P EXT┆
0x3338…3388 (34, 0, 400) 52 4e 5c 45 43 42 52 4c 5c 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 20 49 4e 20 45 43 42 00 09 01 8c 00 28 00 50 5c 45 58 54 52 4e 5c 45 43 42 45 4c 5c 45 46 46 45 43 54 49 56 45 20 4c 45 4e 47 54 48 20 49 4e 20 45 43 42 00 0a 00 28 ┆RN ECBRL REQUESTED LENGTH IN ECB ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB (┆
0x3388…33d8 00 24 00 50 5c 45 58 54 52 4e 5c 45 43 42 43 57 5c 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 49 4e 20 45 43 42 00 0a 00 54 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 54 43 30 31 20 00 0a 00 7c 00 06 00 50 2a 20 00 0a 00 94 00 06 00 50 2a 20 ┆ $ P EXTRN ECBCW CONTROL WORD IN ECB T P EJECT DRTC01 | P* P* ┆
0x33d8…3428 00 0a 00 9e 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0a 00 a8 00 16 00 50 2a 20 44 57 54 20 50 41 52 41 4d 45 54 45 52 53 20 2a 00 0a 00 c2 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0a ┆ P****************** P* DWT PARAMETERS * P****************** ┆
0x3428…3478 00 dc 00 06 00 50 2a 20 00 0a 00 f6 00 06 00 50 2a 20 00 0a 01 00 00 26 00 50 5c 45 58 54 52 4e 5c 44 57 54 53 54 5c 44 57 54 20 53 4f 46 54 57 41 52 45 20 53 54 41 54 55 53 3a 20 00 0a 01 0a 00 2e 00 50 2a 5c 5c 5c 42 49 54 20 23 20 30 20 ┆ P* P* & P EXTRN DWTST DWT SOFTWARE STATUS: . P* BIT # 0 ┆
0x3478…34c8 2d 20 44 45 56 49 43 45 20 41 4e 44 20 43 4f 4e 54 52 4f 4c 4c 45 52 20 52 45 41 44 59 20 00 0a 01 34 00 30 00 50 2a 5c 5c 5c 42 49 54 20 23 31 31 20 2d 20 54 41 50 45 20 4d 41 52 4b 20 45 4e 43 4f 55 4e 54 45 52 45 44 20 4f 4e 20 4c 41 53 ┆- DEVICE AND CONTROLLER READY 4 0 P* BIT #11 - TAPE MARK ENCOUNTERED ON LAS┆
0x34c8…3518 (35, 0, 400) 54 20 00 0a 01 66 00 2c 00 50 2a 5c 5c 5c 42 49 54 20 23 31 32 20 2d 20 52 45 50 4f 53 49 54 49 4f 4e 49 4e 47 20 41 54 20 52 45 43 4f 56 45 52 59 20 00 0b 00 0a 00 22 00 50 2a 5c 5c 5c 42 49 54 20 23 31 33 20 2d 20 57 52 49 54 45 20 50 52 ┆T f , P* BIT #12 - REPOSITIONING AT RECOVERY " P* BIT #13 - WRITE PR┆
0x3518…3568 4f 54 45 43 54 45 44 20 00 0b 00 3a 00 18 00 50 2a 5c 5c 5c 42 49 54 20 23 31 34 20 2d 20 41 2d 53 49 44 45 00 0b 00 60 00 2a 00 50 5c 5c 5c 42 49 54 20 23 31 35 20 2d 20 44 45 56 49 43 45 20 4c 4f 43 4b 45 44 20 28 4f 50 45 52 41 42 4c 45 ┆OTECTED : P* BIT #14 - A-SIDE ` * P BIT #15 - DEVICE LOCKED (OPERABLE┆
0x3568…35b8 29 20 00 0b 00 7c 00 1a 00 50 5c 45 58 54 52 4e 5c 44 57 54 4f 52 5c 44 57 54 20 4f 52 44 45 52 00 0b 00 aa 00 22 00 50 5c 45 58 54 52 4e 5c 44 57 54 45 43 42 5c 44 57 54 20 45 43 42 20 41 44 44 52 45 53 53 20 00 0b 00 c8 00 14 00 50 5c 45 ┆) | P EXTRN DWTOR DWT ORDER " P EXTRN DWTECB DWT ECB ADDRESS P E┆
0x35b8…3608 4a 45 43 54 5c 5c 5c 44 52 54 43 30 31 20 00 0b 00 ee 00 06 00 50 2a 20 00 0b 01 06 00 06 00 50 2a 20 00 0b 01 10 00 1c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0b 01 1a 00 1c 00 50 2a 20 43 4f 4e 44 ┆JECT DRTC01 P* P* P************************ P* COND┆
0x3608…3658 49 54 49 4f 4e 41 4c 20 41 53 53 45 4d 42 4c 59 20 2a 00 0b 01 3a 00 1c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0b 01 5a 00 06 00 50 2a 20 00 0b 01 7a 00 3e 00 50 2a 20 20 20 54 48 45 20 44 52 49 56 ┆ITIONAL ASSEMBLY * : P************************ Z P* z > P* THE DRIV┆
0x3658…36a8 (36, 0, 400) 45 52 20 43 41 4e 20 42 45 20 52 45 44 55 43 45 44 20 54 4f 20 48 41 4e 44 4c 45 20 4f 4e 4c 59 20 4f 4e 45 20 43 41 53 53 45 54 54 45 20 00 0b 01 84 00 22 00 50 2a 20 20 20 52 45 43 4f 52 44 45 52 20 42 59 20 53 45 54 54 49 4e 47 20 58 3a ┆ER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE " P* RECORDER BY SETTING X:┆
0x36a8…36f8 41 3d 31 20 00 0c 00 36 00 06 00 50 2a 20 00 0c 00 5c 00 0e 00 50 58 3a 41 5c 45 51 55 5c 31 20 00 0c 00 66 00 12 00 50 44 42 43 41 53 5c 45 51 55 5c 58 3a 41 20 00 0c 00 78 00 06 00 50 2a 20 00 0c 00 8e 00 36 00 50 2a 20 20 20 4f 52 44 45 ┆A=1 6 P* PX:A EQU 1 f PDBCAS EQU X:A x P* 6 P* ORDE┆
0x36f8…3748 52 53 20 52 45 56 45 52 53 45 2c 20 45 52 41 53 45 20 41 4e 44 20 4c 4f 43 4b 20 4d 41 59 20 42 45 20 45 58 43 4c 55 44 45 44 00 0c 00 98 00 18 00 50 2a 20 20 20 42 59 20 53 45 54 54 49 4e 47 20 58 3a 42 3d 30 00 0c 00 d2 00 06 00 50 2a 20 ┆RS REVERSE, ERASE AND LOCK MAY BE EXCLUDED P* BY SETTING X:B=0 P* ┆
0x3748…3798 00 0c 00 ee 00 0e 00 50 58 3a 42 5c 45 51 55 5c 30 20 00 0c 00 f8 00 12 00 50 52 45 56 45 52 5c 45 51 55 5c 58 3a 42 20 00 0c 01 0a 00 06 00 50 2a 20 00 0c 01 20 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 54 43 30 31 20 00 0c 01 2a 00 06 ┆ PX:B EQU 0 PREVER EQU X:B P* P EJECT DRTC01 * ┆
0x3798…37e8 00 50 2a 20 00 0c 01 42 00 1e 00 50 2a 20 43 4f 4e 53 54 41 4e 54 53 20 41 4e 44 20 57 4f 52 4b 20 41 52 45 41 53 00 0c 01 4c 00 06 00 50 2a 20 00 0c 01 6e 00 24 00 50 54 43 41 44 5c 44 41 54 41 5c 54 43 44 41 5c 41 43 54 49 56 41 54 49 4f ┆ P* B P* CONSTANTS AND WORK AREAS L P* n $ PTCAD DATA TCDA ACTIVATIO┆