|
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: 13990 (0x36a6)
Notes: pts_type(SC)
Names: »DRSOP1.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/DRSOP1.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/DRSOP1.SC«
IDENT DRSOP1 REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ************************************************************ * * PHILIPS TERMINAL SYSTEM PTS * * DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ************************************************************ * * * 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 X:A ** ** * 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 0 ** ** * THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY * SETTING X:B=1 * X:B EQU 0 WRFLA EQU X:B 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…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT DRSOP1 REL=7.2 DATE=77-09-09«, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…009e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x005e}
0x009e…00a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a2}
0x00a8…00d0 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00ac}
0x00d0…00da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d4}
0x00da…0110 Head {h00=0x0032, h01=0x0050, text=»* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL«, t00=0x0000, t01=0x00de}
0x0110…011a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0114}
0x011a…0124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011e}
0x0124…0146 Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0128}
0x0146…0150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014a}
0x0150…0172 Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x0154}
0x0172…017c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0176}
0x017c…01c0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x0180}
0x01c0…01ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0034}
0x01ca…01d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003e}
0x01d4…021a Head {h00=0x0042, h01=0x0050, text=»* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S «, t00=0x0001, t01=0x0048}
0x021a…024a Head {h00=0x002c, h01=0x0050, text=»* PANEL CONNECTED TO CPU VIA CHCR-SOP «, t00=0x0001, t01=0x008e}
0x024a…0254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00be}
0x0254…025e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c8}
0x025e…02a0 Head {h00=0x003e, h01=0x0050, text=»* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET «, t00=0x0001, t01=0x00d2}
0x02a0…02de Head {h00=0x003a, h01=0x0050, text=»* 'BUSY' UNTIL THE INPUT INTERRUPT IS TAKEN CARE OF «, t00=0x0001, t01=0x0114}
0x02de…02e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0152}
0x02e8…02f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015c}
0x02f2…0334 Head {h00=0x003e, h01=0x0050, text=»* AT POWER UP RUNNING READ REQUEST IS COMPLETED WITH -2 «, t00=0x0001, t01=0x0166}
0x0334…0374 Head {h00=0x003c, h01=0x0050, text=»* IN CONTROL WORD.IF NO RUNNING READ REQUEST,POWER UP «, t00=0x0002, t01=0x0018}
0x0374…03b6 Head {h00=0x003e, h01=0x0050, text=»* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH «, t00=0x0002, t01=0x0058}
0x03b6…03d4 Head {h00=0x001a, h01=0x0050, text=»* -2 IN CONTROL WORD«, t00=0x0002, t01=0x009a}
0x03d4…03de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b8}
0x03de…03e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c2}
0x03e8…042a Head {h00=0x003e, h01=0x0050, text=»* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET«, t00=0x0002, t01=0x00cc}
0x042a…046c Head {h00=0x003e, h01=0x0050, text=»* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES NOT REQUIRE«, t00=0x0002, t01=0x010e}
0x046c…0486 Head {h00=0x0016, h01=0x0050, text=»* AN INTERRUPT. «, t00=0x0002, t01=0x0150}
0x0486…0490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016a}
0x0490…049e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0174}
0x049e…04a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0182}
0x04a8…04b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018c}
0x04b2…04ea Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0003, t01=0x0008}
0x04ea…04f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0040}
0x04f4…0520 Head {h00=0x0028, h01=0x0050, text=»* S O P A S : READ SWITCHES ENTRY «, t00=0x0003, t01=0x004a}
0x0520…052a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0076}
0x052a…0558 Head {h00=0x002a, h01=0x0050, text=»* S O P A L : ACTIVATE LIGHTS ENTRY «, t00=0x0003, t01=0x0080}
0x0558…0562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ae}
0x0562…058c Head {h00=0x0026, h01=0x0050, text=»* I H S O P : INTERRUPT HANDLER «, t00=0x0003, t01=0x00b8}
0x058c…0596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e2}
0x0596…05bc Head {h00=0x0022, h01=0x0050, text=»* S O P R : RECOVERY ROUTINE«, t00=0x0003, t01=0x00ec}
0x05bc…05c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0112}
0x05c6…05d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011c}
0x05d0…05da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0126}
0x05da…0608 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0003, t01=0x0130}
0x0608…0612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015e}
0x0612…0636 Head {h00=0x0020, h01=0x0050, text=»* ORDER 02 : READ SWITCHES«, t00=0x0003, t01=0x0168}
0x0636…065c Head {h00=0x0022, h01=0x0050, text=»* 05 : WRITE LIGHTS ON«, t00=0x0003, t01=0x018c}
0x065c…0684 Head {h00=0x0024, h01=0x0050, text=»* 06 : WRITE LIGHTS OFF «, t00=0x0004, t01=0x0022}
0x0684…06b4 Head {h00=0x002c, h01=0x0050, text=»* 39 : WRITE FLASHING LIGHTS «, t00=0x0004, t01=0x004a}
0x06b4…06be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007a}
0x06be…06e0 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0004, t01=0x0084}
0x06e0…06ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a6}
0x06ea…0710 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: INPUT/OUTPUT «, t00=0x0004, t01=0x00b0}
0x0710…0736 Head {h00=0x0022, h01=0x0050, text=»* A2: WORK REGISTER«, t00=0x0004, t01=0x00d6}
0x0736…0756 Head {h00=0x001c, h01=0x0050, text=»* A3: ----«, t00=0x0004, t01=0x00fc}
0x0756…077c Head {h00=0x0022, h01=0x0050, text=»* A4: WORK REGISTER«, t00=0x0004, t01=0x011c}
0x077c…079c Head {h00=0x001c, h01=0x0050, text=»* A5: ----«, t00=0x0004, t01=0x0142}
0x079c…07c0 Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0004, t01=0x0162}
0x07c0…07de Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0004, t01=0x0186}
0x07de…0802 Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0005, t01=0x0014}
0x0802…080c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0038}
0x080c…0816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0042}
0x0816…0824 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x004c}
0x0824…082e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005a}
0x082e…0842 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0005, t01=0x0064}
0x0842…0856 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES: *«, t00=0x0005, t01=0x0078}
0x0856…086a Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0005, t01=0x008c}
0x086a…0874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a0}
0x0874…087e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00aa}
0x087e…08ac Head {h00=0x002a, h01=0x0050, text=» ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE«, t00=0x0005, t01=0x00b4}
0x08ac…08d8 Head {h00=0x0028, h01=0x0050, text=» ENTRY SOPR S.O.P. RECOVERY ROUTINE «, t00=0x0005, t01=0x00e2}
0x08d8…090e Head {h00=0x0032, h01=0x0050, text=» ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALIAS) «, t00=0x0005, t01=0x010e}
0x090e…092e Head {h00=0x001c, h01=0x0050, text=» ENTRY DWSI01 INPUT DWT «, t00=0x0005, t01=0x0144}
0x092e…0956 Head {h00=0x0024, h01=0x0050, text=» ENTRY DWSI02 EXTENDED INPUT DWT«, t00=0x0005, t01=0x0164}
0x0956…0976 Head {h00=0x001c, h01=0x0050, text=» ENTRY DWSO01 OUTPUT DWT«, t00=0x0005, t01=0x018c}
0x0976…0980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001c}
0x0980…0996 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0006, t01=0x0026}
0x0996…09ac Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS: *«, t00=0x0006, t01=0x003c}
0x09ac…09c2 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0006, t01=0x0052}
0x09c2…09cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0068}
0x09cc…09e4 Head {h00=0x0014, h01=0x0050, text=»* TOSS GLOBALS:«, t00=0x0006, t01=0x0072}
0x09e4…09ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x008a}
0x09ee…0a1e Head {h00=0x002c, h01=0x0050, text=» EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK «, t00=0x0006, t01=0x0094}
0x0a1e…0a56 Head {h00=0x0034, h01=0x0050, text=» EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY«, t00=0x0006, t01=0x00c4}
0x0a56…0a80 Head {h00=0x0026, h01=0x0050, text=» EXTRN TDISP DISPATCHER LKM ENTRY «, t00=0x0006, t01=0x00fc}
0x0a80…0ab2 Head {h00=0x002e, h01=0x0050, text=» EXTRN RETUR8 POP A1-A8 CONT'S AND RETURN «, t00=0x0006, t01=0x0126}
0x0ab2…0af8 Head {h00=0x0042, h01=0x0050, text=» EXTRN TENDIO END-OF-I/O HOUSEKEEPING AND QUEUEING SUBROUTINE «, t00=0x0006, t01=0x0158}
0x0af8…0b0e Head {h00=0x0012, h01=0x0050, text=» EXTRN SETIMP «, t00=0x0007, t01=0x000e}
0x0b0e…0b1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0024}
0x0b1c…0b24 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0032}
0x0b24…0b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003a}
0x0b2e…0b5a Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0007, t01=0x0044}
0x0b5a…0b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0070}
0x0b64…0b82 Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS «, t00=0x0007, t01=0x007a}
0x0b82…0b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0098}
0x0b8c…0bb8 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0007, t01=0x00a2}
0x0bb8…0bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ce}
0x0bc2…0bea Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTCHP CHANNEL PARAMETER «, t00=0x0007, t01=0x00d8}
0x0bea…0c06 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0007, t01=0x0100}
0x0c06…0c28 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0007, t01=0x011c}
0x0c28…0c42 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0007, t01=0x013e}
0x0c42…0c70 Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTADR POINTER TO ADDRESS-BLOCK«, t00=0x0007, t01=0x0158}
0x0c70…0c92 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB-ADDRESS«, t00=0x0007, t01=0x0186}
0x0c92…0cc0 Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTWAT WAIT ACTIVATE INDICATOR «, t00=0x0008, t01=0x0018}
0x0cc0…0ce4 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTTQ TERMINAL QUEUE «, t00=0x0008, t01=0x0046}
0x0ce4…0d02 Head {h00=0x001a, h01=0x0050, text=» EXTRN DWTWA WORK AREA«, t00=0x0008, t01=0x006a}
0x0d02…0d34 Head {h00=0x002e, h01=0x0050, text=» EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT«, t00=0x0008, t01=0x0088}
0x0d34…0d5a Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0008, t01=0x00ba}
0x0d5a…0d78 Head {h00=0x001a, h01=0x0050, text=»TIME EQU 5 FLASH TIME «, t00=0x0008, t01=0x00e0}
0x0d78…0d9c Head {h00=0x0020, h01=0x0050, text=»DWTTP EQU /10 TIMER POINTER «, t00=0x0008, t01=0x00fe}
0x0d9c…0daa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0122}
0x0daa…0dc8 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0008, t01=0x0130}
0x0dc8…0df0 Head {h00=0x0024, h01=0x0050, text=»* EXTENDED SOP INPUT DWT OR NOT «, t00=0x0008, t01=0x014e}
0x0df0…0e10 Head {h00=0x001c, h01=0x0050, text=»* SOPX=0 => NOT EXTENDED«, t00=0x0008, t01=0x0176}
0x0e10…0e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e1a…0e22 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0012}
0x0e22…0e34 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0009, t01=0x001a}
0x0e34…0e48 Head {h00=0x0010, h01=0x0050, text=»SOPX EQU X:A«, t00=0x0009, t01=0x002c}
0x0e48…0e52 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0009, t01=0x0040}
0x0e52…0e5c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0009, t01=0x004a}
0x0e5c…0e98 Head {h00=0x0038, h01=0x0050, text=»* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0009, t01=0x0054}
0x0e98…0eba Head {h00=0x001e, h01=0x0050, text=»* BY SETTING CREDIT = 1 «, t00=0x0009, t01=0x0090}
0x0eba…0ef2 Head {h00=0x0034, h01=0x0050, text=»* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS«, t00=0x0009, t01=0x00b2}
0x0ef2…0f16 Head {h00=0x0020, h01=0x0050, text=»* /37 AND /38 RESPECTIVLY «, t00=0x0009, t01=0x00ea}
0x0f16…0f5c Head {h00=0x0042, h01=0x0050, text=»* BY SETTING CREDIT=1 THE SOP-SWITCHES IS INDEXED:1,2,3,... «, t00=0x0009, t01=0x010e}
0x0f5c…0f8e Head {h00=0x002e, h01=0x0050, text=»* 1 CORRESPONDS TO THE RIGHTMOST SWITCH.«, t00=0x0009, t01=0x0154}
0x0f8e…0fd0 Head {h00=0x003e, h01=0x0050, text=»* IN CASE OF POWER ON ZERO IS STORED IN THE CONTROL WORD«, t00=0x0009, t01=0x0186}
0x0fd0…0fe8 Head {h00=0x0014, h01=0x0050, text=»* OF THE ECB. «, t00=0x000a, t01=0x0038}
0x0fe8…0ff2 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0050}
0x0ff2…0ffa Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x005a}
0x0ffa…100e Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 0«, t00=0x000a, t01=0x0062}
0x100e…1018 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0076}
0x1018…1022 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0080}
0x1022…1066 Head {h00=0x0040, h01=0x0050, text=»* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY «, t00=0x000a, t01=0x008a}
0x1066…1080 Head {h00=0x0016, h01=0x0050, text=»* SETTING X:B=1 «, t00=0x000a, t01=0x00ce}
0x1080…108a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e8}
0x108a…109c Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000a, t01=0x00f2}
0x109c…10b2 Head {h00=0x0012, h01=0x0050, text=»WRFLA EQU X:B «, t00=0x000a, t01=0x0104}
0x10b2…10c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x011a}
0x10c0…10ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0128}
0x10ca…10ec Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000a, t01=0x0132}
0x10ec…110e Head {h00=0x001e, h01=0x0050, text=»* S.O.P. DEVICE ADDRESS: *«, t00=0x000a, t01=0x0154}
0x110e…1130 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000a, t01=0x0176}
0x1130…113a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0008}
0x113a…1144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0012}
0x1144…1168 Head {h00=0x0020, h01=0x0050, text=»SOPDA EQU /2E DEVICE ADDRESS«, t00=0x000b, t01=0x001c}
0x1168…1172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0040}
0x1172…117c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x004a}
0x117c…1186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0054}
0x1186…1190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005e}
0x1190…11b6 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000b, t01=0x0068}
0x11b6…11dc Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000b, t01=0x008e}
0x11dc…1202 Head {h00=0x0022, h01=0x0050, text=»* S.O.P. CHANNEL UNIT TABLE *«, t00=0x000b, t01=0x00b4}
0x1202…1228 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000b, t01=0x00da}
0x1228…124e Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000b, t01=0x0100}
0x124e…1258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0126}
0x1258…1262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0130}
0x1262…1296 Head {h00=0x0030, h01=0x0050, text=»SOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK:«, t00=0x000b, t01=0x013a}
0x1296…12a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016e}
0x12a0…12da Head {h00=0x0036, h01=0x0050, text=»SOPADI EQU * INPUT ADDRESS BLOCK (FOR READ ORDERS)«, t00=0x000b, t01=0x0178}
0x12da…12e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0022}
0x12e4…1310 Head {h00=0x0028, h01=0x0050, text=» DATA SOPAS ACTIVATE SWITCHES ENTRY «, t00=0x000c, t01=0x002c}
0x1310…131a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0058}
0x131a…1344 Head {h00=0x0026, h01=0x0050, text=»SOPADU EQU * ACTIVATE LIGHTS ENTRY«, t00=0x000c, t01=0x0062}
0x1344…134e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008c}
0x134e…1378 Head {h00=0x0026, h01=0x0050, text=» DATA SOPAL ACTIVATE LIGHTS ENTRY «, t00=0x000c, t01=0x0096}
0x1378…1382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c0}
0x1382…13aa Head {h00=0x0024, h01=0x0050, text=»SPDLCI DATA 0 LIGHT'S CORE IMAGE«, t00=0x000c, t01=0x00ca}
0x13aa…13b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f2}
0x13b4…13c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00fc}
0x13c2…13cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010a}
0x13cc…13f2 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000c, t01=0x0114}
0x13f2…1418 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000c, t01=0x013a}
0x1418…143e Head {h00=0x0022, h01=0x0050, text=»* S.O.P. ACTIVATION ROUTINE: *«, t00=0x000c, t01=0x0160}
0x143e…1464 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0186}
0x1464…148a Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x001c}
0x148a…1494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0042}
0x1494…14d6 Head {h00=0x003e, h01=0x0050, text=»* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION«, t00=0x000d, t01=0x004c}
0x14d6…14f2 Head {h00=0x0018, h01=0x0050, text=»* IS CARRIED OUT. «, t00=0x000d, t01=0x008e}
0x14f2…14fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00aa}
0x14fc…152a Head {h00=0x002a, h01=0x0050, text=»SOPAS EQU * SWITCHES ACTIVATION ENTRY «, t00=0x000d, t01=0x00b4}
0x152a…1534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e2}
0x1534…1552 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 COPY ORDER «, t00=0x000d, t01=0x00ec}
0x1552…155c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010a}
0x155c…1582 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/02 SEE IF READ ORDER:«, t00=0x000d, t01=0x0114}
0x1582…158c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x013a}
0x158c…15ba Head {h00=0x002a, h01=0x0050, text=» RF(NZ) SOPER ERROR IF NOT READ ORDER «, t00=0x000d, t01=0x0144}
0x15ba…15c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0172}
0x15c4…15e2 Head {h00=0x001a, h01=0x0050, text=»* INPUT SWITCH VALUE«, t00=0x000d, t01=0x017c}
0x15e2…15ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000a}
0x15ec…161a Head {h00=0x002a, h01=0x0050, text=»SOPIN LDR* A2,A6 POWER UP INDICATION ?«, t00=0x000e, t01=0x0014}
0x161a…1630 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x000e, t01=0x0042}
0x1630…1646 Head {h00=0x0012, h01=0x0050, text=» RF(Z) EXIT NO«, t00=0x000e, t01=0x0058}
0x1646…166e Head {h00=0x0024, h01=0x0050, text=» CMR A6 YES CLEAR FOR NEXT REQ. «, t00=0x000e, t01=0x006e}
0x166e…167a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0096}
0x167a…1690 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x000e, t01=0x00a2}
0x1690…16a8 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) EXIT NO «, t00=0x000e, t01=0x00b8}
0x16a8…16be Head {h00=0x0012, h01=0x0050, text=» STR A7,A6 YES«, t00=0x000e, t01=0x00d0}
0x16be…16ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00e6}
0x16ca…16dc Head {h00=0x000e, h01=0x0050, text=» RF IHSOP3«, t00=0x000e, t01=0x00f2}
0x16dc…16e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0104}
0x16e6…16f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010e}
0x16f0…171a Head {h00=0x0026, h01=0x0050, text=»SOPAL EQU * ACTIVATE LIGHTS ENTRY «, t00=0x000e, t01=0x0118}
0x171a…1724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0142}
0x1724…1742 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 COPY ORDER «, t00=0x000e, t01=0x014c}
0x1742…1756 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x000e, t01=0x016a}
0x1756…176c Head {h00=0x0012, h01=0x0050, text=» CCK A4,/3939 «, t00=0x000e, t01=0x017e}
0x176c…1780 (15, 0, 398) Head {h00=0x0010, h01=0x0050, text=» RF(E) SOPFL«, t00=0x000f, t01=0x0004}
0x1780…178c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0018}
0x178c…17a2 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x000f, t01=0x0024}
0x17a2…17ce Head {h00=0x0028, h01=0x0050, text=» SUK A4,/05 SEE IF 'LIGHTS ON' ORDER«, t00=0x000f, t01=0x003a}
0x17ce…17da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0066}
0x17da…17f0 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x000f, t01=0x0072}
0x17f0…1804 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/37 «, t00=0x000f, t01=0x0088}
0x1804…1810 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x009c}
0x1810…183a Head {h00=0x0026, h01=0x0050, text=» RF(Z) SOPON IF SO, TURN ON LIGHTS«, t00=0x000f, t01=0x00a8}
0x183a…1844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d2}
0x1844…186e Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 SEE IF LIGHTS OFF ORDER «, t00=0x000f, t01=0x00dc}
0x186e…1884 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SOPOFF «, t00=0x000f, t01=0x0106}
0x1884…18ae Head {h00=0x0026, h01=0x0050, text=»SOPER ABL(NZ) DISIOE ILLEGAL ORDER«, t00=0x000f, t01=0x011c}
0x18ae…18c2 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x000f, t01=0x0146}
0x18c2…18d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x015a}
0x18d0…18da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0168}
0x18da…18e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0172}
0x18e4…18fe Head {h00=0x0016, h01=0x0050, text=»* FLASH LIGHTS«, t00=0x000f, t01=0x017c}
0x18fe…1908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0008}
0x1908…1912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0012}
0x1912…1926 Head {h00=0x0010, h01=0x0050, text=»SOPFL EQU * «, t00=0x0010, t01=0x001c}
0x1926…193e Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0010, t01=0x0030}
0x193e…196a Head {h00=0x0028, h01=0x0050, text=» RF(NE) FL010 TIMER ALREADY STARTED «, t00=0x0010, t01=0x0048}
0x196a…1980 Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTTP «, t00=0x0010, t01=0x0074}
0x1980…1992 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0010, t01=0x008a}
0x1992…19a4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0010, t01=0x009c}
0x19a4…19ba Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0010, t01=0x00ae}
0x19ba…19d2 Head {h00=0x0014, h01=0x0050, text=» DATA FLTUT,TIME«, t00=0x0010, t01=0x00c4}
0x19d2…19ea Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTTP,A6 «, t00=0x0010, t01=0x00dc}
0x19ea…1a00 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FFBF«, t00=0x0010, t01=0x00f4}
0x1a00…1a24 Head {h00=0x0020, h01=0x0050, text=» ANS A1,DWTST,A6 SET ON FLAG«, t00=0x0010, t01=0x010a}
0x1a24…1a38 Head {h00=0x0010, h01=0x0050, text=»FL010 EQU * «, t00=0x0010, t01=0x012e}
0x1a38…1a5e Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 GET CONTROL WORD «, t00=0x0010, t01=0x0142}
0x1a5e…1a90 Head {h00=0x002e, h01=0x0050, text=» ORS A4,FLASH STORE NEW LAMPS TO A4,FLASH «, t00=0x0010, t01=0x0168}
0x1a90…1aac Head {h00=0x0018, h01=0x0050, text=»FL015 LD A1,DWTST,A6«, t00=0x0011, t01=0x000a}
0x1aac…1ac0 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/40 «, t00=0x0011, t01=0x0026}
0x1ac0…1ad4 Head {h00=0x0010, h01=0x0050, text=» RF(Z) FL020«, t00=0x0011, t01=0x003a}
0x1ad4…1afe Head {h00=0x0026, h01=0x0050, text=» ORS A4,SPDLCI FIXA TILL DET HELA!«, t00=0x0011, t01=0x004e}
0x1afe…1b12 Head {h00=0x0010, h01=0x0050, text=» RF SOPONOFF«, t00=0x0011, t01=0x0078}
0x1b12…1b26 Head {h00=0x0010, h01=0x0050, text=»FL020 EQU * «, t00=0x0011, t01=0x008c}
0x1b26…1b38 Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0011, t01=0x00a0}
0x1b38…1b4e Head {h00=0x0012, h01=0x0050, text=» ANS A4,SPDLCI«, t00=0x0011, t01=0x00b2}
0x1b4e…1b62 Head {h00=0x0010, h01=0x0050, text=» RF SOPONOF «, t00=0x0011, t01=0x00c8}
0x1b62…1b84 Head {h00=0x001e, h01=0x0050, text=»FLTUT EQU * FLASH TIME OUT«, t00=0x0011, t01=0x00dc}
0x1b84…1b9c Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWSO01 «, t00=0x0011, t01=0x00fe}
0x1b9c…1bb0 Head {h00=0x0010, h01=0x0050, text=» LD A4,FLASH«, t00=0x0011, t01=0x0116}
0x1bb0…1be4 Head {h00=0x0030, h01=0x0050, text=» RF(Z) FL030 NO MORE FLASHING FOR THIS TIME «, t00=0x0011, t01=0x012a}
0x1be4…1c08 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x0011, t01=0x015e}
0x1c08…1c20 Head {h00=0x0014, h01=0x0050, text=» ST* A1,DWTTP,A6«, t00=0x0011, t01=0x0182}
0x1c20…1c34 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/40 «, t00=0x0012, t01=0x000a}
0x1c34…1c4c Head {h00=0x0014, h01=0x0050, text=» XRS A1,DWTST,A6«, t00=0x0012, t01=0x001e}
0x1c4c…1c5e Head {h00=0x000e, h01=0x0050, text=» RB FL015 «, t00=0x0012, t01=0x0036}
0x1c5e…1c78 Head {h00=0x0016, h01=0x0050, text=»FL030 CM DWTTP,A6 «, t00=0x0012, t01=0x0048}
0x1c78…1c90 Head {h00=0x0014, h01=0x0050, text=» RF EXIT END I/O«, t00=0x0012, t01=0x0062}
0x1c90…1c9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x007a}
0x1c9c…1caa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0086}
0x1caa…1cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0094}
0x1cb4…1cec Head {h00=0x0034, h01=0x0050, text=»SOPOFF C1 A4,10,A8 GET COMPLEMENTED CONTROL WORD«, t00=0x0012, t01=0x009e}
0x1cec…1d24 Head {h00=0x0034, h01=0x0050, text=» ANS A4,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF «, t00=0x0012, t01=0x00d6}
0x1d24…1d38 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0012, t01=0x010e}
0x1d38…1d60 Head {h00=0x0024, h01=0x0050, text=» ANS A4,FLASH STOP SOME FLASHING«, t00=0x0012, t01=0x0122}
0x1d60…1d6c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x014a}
0x1d6c…1d9c Head {h00=0x002c, h01=0x0050, text=» RF SOPONOF BRANCH TO COMMON ON/OFF PATH«, t00=0x0012, t01=0x0156}
0x1d9c…1da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0186}
0x1da6…1db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0190}
0x1db0…1de0 Head {h00=0x002c, h01=0x0050, text=»* TURN ON LIGHTS INDICATED BY '1' BITS:«, t00=0x0013, t01=0x000a}
0x1de0…1dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003a}
0x1dea…1e14 Head {h00=0x0026, h01=0x0050, text=»SOPON LD A4,10,A8 GET CONTROL WORD«, t00=0x0013, t01=0x0044}
0x1e14…1e46 Head {h00=0x002e, h01=0x0050, text=» ORS A4,SPDLCI SET LIGHTS TO BE TURNED ON «, t00=0x0013, t01=0x006e}
0x1e46…1e5a Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0013, t01=0x00a0}
0x1e5a…1e6c Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0013, t01=0x00b4}
0x1e6c…1e9a Head {h00=0x002a, h01=0x0050, text=» ANS A4,FLASH STOP SOME OTHER FLASHING«, t00=0x0013, t01=0x00c6}
0x1e9a…1ea6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00f4}
0x1ea6…1eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0100}
0x1eb0…1ece Head {h00=0x001a, h01=0x0050, text=»* COMMON ON/OFF PATH:«, t00=0x0013, t01=0x010a}
0x1ece…1ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0128}
0x1ed8…1f0c Head {h00=0x0030, h01=0x0050, text=»SOPONOFF LD A1,SPDLCI GET LIGHTS' CORE IMAGE«, t00=0x0013, t01=0x0132}
0x1f0c…1f38 Head {h00=0x0028, h01=0x0050, text=» OTR A1,0,SOPDA AND OUTPUT TO S.O.P.«, t00=0x0013, t01=0x0166}
0x1f38…1f42 (20, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0004}
0x1f42…1f62 Head {h00=0x001c, h01=0x0050, text=» RF ENDIO PERFORM TENDIO«, t00=0x0014, t01=0x000e}
0x1f62…1f70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x002e}
0x1f70…1f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003c}
0x1f7a…1f9e Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0014, t01=0x0046}
0x1f9e…1fc2 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0014, t01=0x006a}
0x1fc2…1fe6 Head {h00=0x0020, h01=0x0050, text=»* S.O.P. INTERRUPT HANDLER *«, t00=0x0014, t01=0x008e}
0x1fe6…200a Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0014, t01=0x00b2}
0x200a…202e Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0014, t01=0x00d6}
0x202e…2038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00fa}
0x2038…2042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0104}
0x2042…2086 Head {h00=0x0040, h01=0x0050, text=»* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. «, t00=0x0014, t01=0x010e}
0x2086…2090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0152}
0x2090…20d4 Head {h00=0x0040, h01=0x0050, text=»* IF NO REQUEST IS IN PROCEEDING THE INTERRUPT IS IGNORED.«, t00=0x0014, t01=0x015c}
0x20d4…20de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0010}
0x20de…20e6 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x001a}
0x20e6…2100 Head {h00=0x0016, h01=0x0050, text=»IHSOP CF A15,SAVE8«, t00=0x0015, t01=0x0022}
0x2100…2128 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0015, t01=0x003c}
0x2128…214a Head {h00=0x001e, h01=0x0050, text=» INR A1,0,SOPDA GET SWITCH«, t00=0x0015, t01=0x0064}
0x214a…2168 Head {h00=0x001a, h01=0x0050, text=» SRN A1,A2 CALC INDEX «, t00=0x0015, t01=0x0086}
0x2168…217e Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0015, t01=0x00a4}
0x217e…2190 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0015, t01=0x00ba}
0x2190…219c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00cc}
0x219c…21b2 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0015, t01=0x00d8}
0x21b2…21c4 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0015, t01=0x00ee}
0x21c4…21d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0100}
0x21d0…21d8 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x010c}
0x21d8…21ec Head {h00=0x0010, h01=0x0050, text=»IHSOP1 EQU *«, t00=0x0015, t01=0x0114}
0x21ec…2200 Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x0015, t01=0x0128}
0x2200…2226 Head {h00=0x0022, h01=0x0050, text=» LDKL A6,DWSI02 ANY REQUEST ON«, t00=0x0015, t01=0x013c}
0x2226…224a Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0015, t01=0x0162}
0x224a…2262 Head {h00=0x0014, h01=0x0050, text=» RF(N) IHSOP2 NO«, t00=0x0015, t01=0x0186}
0x2262…228a Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB-ADDRESS«, t00=0x0016, t01=0x000e}
0x228a…22ae Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBCW,A8 STORE INDEX «, t00=0x0016, t01=0x0036}
0x22ae…22c0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0016, t01=0x005a}
0x22c0…22de Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0016, t01=0x006c}
0x22de…22ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x008a}
0x22ea…22f2 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0096}
0x22f2…231e Head {h00=0x0028, h01=0x0050, text=»IHSOP2 LDKL A6,DWSI01 ANY REQUEST ON«, t00=0x0016, t01=0x009e}
0x231e…2342 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0016, t01=0x00ca}
0x2342…2358 Head {h00=0x0012, h01=0x0050, text=» RF(N) EXIT NO«, t00=0x0016, t01=0x00ee}
0x2358…2380 Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB-ADDRESS«, t00=0x0016, t01=0x0104}
0x2380…2388 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x012c}
0x2388…23b2 Head {h00=0x0026, h01=0x0050, text=»IHSOP3 ST A2,ECBCW,A8 STORE INDEX «, t00=0x0016, t01=0x0134}
0x23b2…23ba Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x015e}
0x23ba…23d0 Head {h00=0x0012, h01=0x0050, text=»ENDIO LDK A1,0«, t00=0x0016, t01=0x0166}
0x23d0…23ee Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0016, t01=0x017c}
0x23ee…23f6 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x000a}
0x23f6…241e Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0017, t01=0x0012}
0x241e…242c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x003a}
0x242c…2436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0048}
0x2436…2464 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0017, t01=0x0052}
0x2464…2492 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0017, t01=0x0080}
0x2492…24c0 Head {h00=0x002a, h01=0x0050, text=»* S.O.P POWER UP RECOVERY ROUTINE * «, t00=0x0017, t01=0x00ae}
0x24c0…24ee Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0017, t01=0x00dc}
0x24ee…251c Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0017, t01=0x010a}
0x251c…2526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0138}
0x2526…2530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0142}
0x2530…256e Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE «, t00=0x0017, t01=0x014c}
0x256e…25aa Head {h00=0x0038, h01=0x0050, text=»* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD«, t00=0x0017, t01=0x018a}
0x25aa…25ee Head {h00=0x0040, h01=0x0050, text=»* BE PRESENT IN THE POWER FAILURE RECOVERY TABLE (PFTAB). «, t00=0x0018, t01=0x0036}
0x25ee…262e Head {h00=0x003c, h01=0x0050, text=»* IF RUNNING READ REQUEST THIS IS COMPLETED WITH -2 IN«, t00=0x0018, t01=0x007a}
0x262e…2662 Head {h00=0x0030, h01=0x0050, text=»* CONTROL WORD. ELSE -2 IS SAVED IN DWTCHP«, t00=0x0018, t01=0x00ba}
0x2662…266c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ee}
0x266c…2676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f8}
0x2676…2696 Head {h00=0x001c, h01=0x0050, text=»SOPR EQU * ENTRY POINT «, t00=0x0018, t01=0x0102}
0x2696…26a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0122}
0x26a0…26c0 Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 SAVE REGS.«, t00=0x0018, t01=0x012c}
0x26c0…26e6 Head {h00=0x0022, h01=0x0050, text=» CIO A1,1,SOPDA ACTIVATE INPUT«, t00=0x0018, t01=0x014c}
0x26e6…26f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0172}
0x26f0…271c Head {h00=0x0028, h01=0x0050, text=» LD A1,SPDLCI GET LIGHTS' CORE IMAGE«, t00=0x0018, t01=0x017c}
0x271c…274c Head {h00=0x002c, h01=0x0050, text=» OTR A1,0,SOPDA AND OUTPUT TO THE LIGHTS«, t00=0x0019, t01=0x0018}
0x274c…2756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0048}
0x2756…276c Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0019, t01=0x0052}
0x276c…2792 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,-2 POWER UP INDICATOR«, t00=0x0019, t01=0x0068}
0x2792…279e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x008e}
0x279e…27b4 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0019, t01=0x009a}
0x27b4…27c6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0019, t01=0x00b0}
0x27c6…27d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00c2}
0x27d2…27da Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00ce}
0x27da…27ee Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x0019, t01=0x00d6}
0x27ee…2814 Head {h00=0x0022, h01=0x0050, text=» LDKL A6,DWSI02 ANY REQUEST ON«, t00=0x0019, t01=0x00ea}
0x2814…283c Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS WORD «, t00=0x0019, t01=0x0110}
0x283c…2856 Head {h00=0x0016, h01=0x0050, text=» RF(NN) SOPR1 YES «, t00=0x0019, t01=0x0138}
0x2856…2876 Head {h00=0x001c, h01=0x0050, text=» STR A2,A6 IND POWER UP «, t00=0x0019, t01=0x0152}
0x2876…2882 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0172}
0x2882…288a Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x017e}
0x288a…28b6 Head {h00=0x0028, h01=0x0050, text=»SOPR1 LDKL A6,DWSI01 ANY REQUEST ON «, t00=0x0019, t01=0x0186}
0x28b6…28da Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x001a, t01=0x0022}
0x28da…28f4 Head {h00=0x0016, h01=0x0050, text=» RF(NN) SOPR2 YES «, t00=0x001a, t01=0x0046}
0x28f4…2914 Head {h00=0x001c, h01=0x0050, text=» STR A2,A6 IND POWER UP «, t00=0x001a, t01=0x0060}
0x2914…291c Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0080}
0x291c…2934 Head {h00=0x0014, h01=0x0050, text=»SOPR2 RB IHSOP1 «, t00=0x001a, t01=0x0088}
0x2934…2942 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00a0}
0x2942…294c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ae}
0x294c…2970 Head {h00=0x0020, h01=0x0050, text=»* D W S I 0 1 : INPUT DWT «, t00=0x001a, t01=0x00b8}
0x2970…297a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00dc}
0x297a…298e Head {h00=0x0010, h01=0x0050, text=»DWSI01 EQU *«, t00=0x001a, t01=0x00e6}
0x298e…29be Head {h00=0x002c, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER: POWER UP IND «, t00=0x001a, t01=0x00fa}
0x29be…29ee Head {h00=0x002c, h01=0x0050, text=» DATA /8000 /8000 MEANS DEVICE IS READY «, t00=0x001a, t01=0x012a}
0x29ee…2a0a Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x001a, t01=0x015a}
0x2a0a…2a20 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x001a, t01=0x0176}
0x2a20…2a34 Head {h00=0x0010, h01=0x0050, text=» DATA SOPADI«, t00=0x001a, t01=0x018c}
0x2a34…2a44 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001b, t01=0x0010}
0x2a44…2a54 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001b, t01=0x0020}
0x2a54…2a72 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x001b, t01=0x0030}
0x2a72…2a7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x004e}
0x2a7c…2aa0 Head {h00=0x0020, h01=0x0050, text=»* D W S O 0 1 : OUTPUT DWT«, t00=0x001b, t01=0x0058}
0x2aa0…2aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x007c}
0x2aaa…2ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0086}
0x2ab4…2ac8 Head {h00=0x0010, h01=0x0050, text=»DWSO01 EQU *«, t00=0x001b, t01=0x0090}
0x2ac8…2aee Head {h00=0x0022, h01=0x0050, text=» DATA /0040 CHANNEL PARAMETER «, t00=0x001b, t01=0x00a4}
0x2aee…2b1e Head {h00=0x002c, h01=0x0050, text=» DATA /8000 /8000 MEANS DEVICE IS READY «, t00=0x001b, t01=0x00ca}
0x2b1e…2b3a Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x001b, t01=0x00fa}
0x2b3a…2b50 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x001b, t01=0x0116}
0x2b50…2b7e Head {h00=0x002a, h01=0x0050, text=» DATA SOPADU POINTER TO ADDRESS BLOCK «, t00=0x001b, t01=0x012c}
0x2b7e…2b9a Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x001b, t01=0x015a}
0x2b9a…2bc2 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x001b, t01=0x0176}
0x2bc2…2be0 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x001c, t01=0x000e}
0x2be0…2bfe Head {h00=0x001a, h01=0x0050, text=» DATA 0 TIMER POINTER «, t00=0x001c, t01=0x002c}
0x2bfe…2c30 Head {h00=0x002e, h01=0x0050, text=»FLASH DATA 0 SAVE AREA FOR FLASHING LAMPS «, t00=0x001c, t01=0x004a}
0x2c30…2c3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x007c}
0x2c3e…2c46 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x008a}
0x2c46…2c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0092}
0x2c50…2c7e Head {h00=0x002a, h01=0x0050, text=»* D W S I 0 2 : EXTENDED INPUT DWT «, t00=0x001c, t01=0x009c}
0x2c7e…2c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ca}
0x2c88…2c90 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x00d4}
0x2c90…2ca4 Head {h00=0x0010, h01=0x0050, text=»DWSI02 EQU *«, t00=0x001c, t01=0x00dc}
0x2ca4…2cb8 Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x001c, t01=0x00f0}
0x2cb8…2cc8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001c, t01=0x0104}
0x2cc8…2cdc Head {h00=0x0010, h01=0x0050, text=» DATA /8000 «, t00=0x001c, t01=0x0114}
0x2cdc…2cee Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x001c, t01=0x0128}
0x2cee…2d02 Head {h00=0x0010, h01=0x0050, text=» DATA SOPADI«, t00=0x001c, t01=0x013a}
0x2d02…2d16 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x001c, t01=0x014e}
0x2d16…2d22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0162}
0x2d22…2d2e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001c, t01=0x016e}
0x2d2e…2d32 Head {h00=0x4004, h01=0x0000}
0x2d32…2d36 00 1c 01 7a ┆ z┆
0x2d36…2d3e (29, 1, 8) 20 04 00 00 00 1d 00 04 ┆ ┆
0x2d3e…2d8e (30, 0, 400) 44 4b 5c 41 31 2c 31 5c 46 52 4f 4e 54 20 53 48 55 54 54 45 52 20 44 4f 45 53 4e 54 20 43 4c 4f 53 45 00 15 01 8e 00 0e 00 50 5c 52 46 5c 43 41 52 44 34 30 00 16 00 2a 00 28 00 50 43 41 52 44 32 30 5c 41 44 4b 5c 41 32 2c 2f 33 45 5c 54 52 ┆DK A1,1 FRONT SHUTTER DOESNT CLOSE P RF CARD40 * ( PCARD20 ADK A2,/3E TR┆
0x2d8e…2dde 41 4e 53 50 4f 52 54 20 45 52 52 4f 52 20 3f 20 00 16 00 3c 00 16 00 50 5c 52 46 28 45 29 5c 43 41 52 44 33 30 5c 59 45 53 20 00 16 00 68 00 24 00 50 5c 53 55 4b 5c 41 32 2c 32 5c 4f 50 45 52 41 54 49 4f 4e 20 49 4e 43 4f 52 52 45 43 54 20 ┆ANSPORT ERROR ? < P RF(E) CARD30 YES h $ P SUK A2,2 OPERATION INCORRECT ┆
0x2dde…2e2e 3f 20 00 16 00 82 00 16 00 50 5c 52 46 28 4e 45 29 5c 43 41 52 44 32 32 5c 4e 4f 20 00 16 00 aa 00 14 00 50 43 41 52 44 32 31 5c 4c 44 4b 5c 41 31 2c 34 20 00 16 00 c4 00 0e 00 50 5c 52 46 5c 45 4e 44 49 4f 20 00 16 00 dc 00 28 00 50 43 41 ┆? P RF(NE) CARD22 NO PCARD21 LDK A1,4 P RF ENDIO ( PCA┆
0x2e2e…2e7e 52 44 32 32 5c 53 55 4b 5c 41 32 2c 32 5c 50 4f 53 49 54 49 56 45 20 4f 50 45 52 41 54 49 4f 4e 20 3f 00 16 00 ee 00 14 00 50 5c 52 46 28 45 29 5c 45 4e 44 49 4f 5c 59 45 53 00 16 01 1a 00 1a 00 50 5c 53 55 4b 5c 41 32 2c 37 5c 43 41 52 44 ┆RD22 SUK A2,2 POSITIVE OPERATION ? P RF(E) ENDIO YES P SUK A2,7 CARD┆
0x2e7e…2ece 20 54 41 4b 45 4e 20 3f 00 16 01 32 00 12 00 50 5c 52 46 28 4e 45 29 5c 43 41 52 44 32 33 00 16 01 50 00 26 00 50 5c 53 55 4b 5c 41 34 2c 31 30 5c 53 57 41 4c 4c 4f 57 20 43 41 52 44 20 52 45 51 55 45 53 54 20 3f 20 00 16 01 66 00 12 00 50 ┆ TAKEN ? 2 P RF(NE) CARD23 P & P SUK A4,10 SWALLOW CARD REQUEST ? f P┆
0x2ece…2ed6 (31, 0, 8) 13 c8 13 d0 13 d8 13 e0 ┆ ┆
0x2ed6…2f26 (32, 0, 400) 00 26 00 50 5c 49 44 45 4e 54 20 54 44 49 53 50 20 5c 52 45 4c 20 37 2e 31 20 20 31 39 37 37 2d 30 34 2d 31 35 20 00 00 00 04 00 20 00 50 5c 5c 5c 55 50 44 41 54 45 20 20 23 32 20 20 20 20 20 31 39 37 37 2d 30 38 2d 30 34 00 00 00 2e 00 06 ┆ & P IDENT TDISP REL 7.1 1977-04-15 P UPDATE #2 1977-08-04 . ┆
0x2f26…2f76 00 50 2a 20 00 00 00 52 00 36 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 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 00 00 5c 00 06 00 50 2a 20 00 00 00 96 00 24 00 50 ┆ P* R 6 P************************************************** P* $ P┆
0x2f76…2fc6 2a 20 20 20 50 48 49 4c 49 50 53 20 54 45 52 4d 49 4e 41 4c 20 53 59 53 54 45 4d 20 50 54 53 20 00 00 00 a0 00 06 00 50 2a 20 00 00 00 c8 00 24 00 50 2a 20 20 20 54 44 49 53 50 20 3d 20 54 45 52 4d 49 4e 41 4c 20 44 49 53 50 41 54 43 48 45 ┆* PHILIPS TERMINAL SYSTEM PTS P* $ P* TDISP = TERMINAL DISPATCHE┆
0x2fc6…3016 52 20 00 00 00 d2 00 06 00 50 2a 20 00 00 00 fa 00 06 00 50 2a 20 00 00 01 04 00 24 00 50 2a 20 20 20 4c 45 56 45 4c 20 20 20 20 20 20 23 31 20 20 20 20 20 31 39 37 37 2d 30 34 2d 31 35 00 00 01 0e 00 06 00 50 2a 20 00 00 01 36 00 24 00 50 ┆R P* P* $ P* LEVEL #1 1977-04-15 P* 6 $ P┆
0x3016…3066 2a 20 20 20 52 45 4c 45 41 53 45 20 20 20 20 23 37 20 20 20 20 20 31 39 37 37 2d 30 34 2d 31 35 00 00 01 40 00 06 00 50 2a 20 00 00 01 68 00 36 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 2a 2a 2a 2a 2a 2a ┆* RELEASE #7 1977-04-15 @ P* h 6 P******************************┆
0x3066…30b6 (33, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 01 72 00 06 00 50 2a 20 00 01 00 1c 00 06 00 50 2a 20 00 01 00 26 00 06 00 50 2a 20 00 01 00 30 00 30 00 50 2a 20 20 20 54 48 49 53 20 49 53 20 54 48 45 20 54 45 52 4d 49 4e ┆******************** r P* P* & P* 0 0 P* THIS IS THE TERMIN┆
0x30b6…3106 41 4c 20 44 49 53 50 41 54 43 48 45 52 20 49 4e 20 54 4f 53 53 2e 00 01 00 3a 00 3e 00 50 2a 20 20 20 45 4e 54 52 59 20 50 4f 49 4e 54 20 49 53 20 27 54 44 49 53 50 27 20 57 49 54 48 20 38 20 52 45 47 49 53 54 45 52 53 20 4f 4e 20 41 31 35 ┆AL DISPATCHER IN TOSS. : > P* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15┆
0x3106…3156 20 53 54 41 43 4b 2e 20 00 01 00 6e 00 3e 00 50 2a 20 20 20 54 48 45 20 44 49 53 50 41 54 43 48 45 52 20 43 48 45 43 4b 53 20 49 46 20 54 48 45 52 45 20 49 53 20 41 20 4a 4f 42 20 49 4e 20 44 49 53 50 41 54 43 48 45 52 2d 00 01 00 b0 00 3c ┆ STACK. n > P* THE DISPATCHER CHECKS IF THERE IS A JOB IN DISPATCHER- <┆
0x3156…31a6 00 50 2a 20 20 20 51 55 45 55 45 20 57 49 54 48 20 48 49 47 48 45 52 20 50 52 49 4f 52 49 54 59 20 54 48 41 4e 20 49 4e 54 45 52 52 55 50 54 45 44 20 50 52 4f 47 52 41 4d 2e 00 01 00 f2 00 3c 00 50 2a 20 20 20 2d 20 49 46 20 53 4f 20 54 48 ┆ P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. < P* - IF SO TH┆
0x31a6…31f6 45 20 51 55 45 55 45 44 20 50 52 4f 47 52 41 4d 20 49 53 20 53 54 41 52 54 45 44 20 41 4e 44 20 52 45 47 49 53 54 45 52 53 20 00 01 01 32 00 40 00 50 2a 20 20 20 20 20 41 31 2d 41 31 34 20 4f 46 20 49 4e 54 45 52 52 55 50 54 45 44 20 50 52 ┆E QUEUED PROGRAM IS STARTED AND REGISTERS 2 @ P* A1-A14 OF INTERRUPTED PR┆
0x31f6…3246 (34, 0, 400) 4f 47 52 41 4d 20 41 52 45 20 53 41 56 45 44 20 4f 4e 20 41 31 35 20 53 54 41 43 4b 2e 20 00 01 01 72 00 44 00 50 2a 20 20 20 2d 20 49 46 20 4e 4f 54 20 52 45 54 55 52 4e 20 49 53 20 47 49 56 45 4e 20 54 4f 20 49 4e 54 45 52 52 55 50 54 45 ┆OGRAM ARE SAVED ON A15 STACK. r D P* - IF NOT RETURN IS GIVEN TO INTERRUPTE┆
0x3246…3296 44 20 50 52 4f 47 52 41 4d 20 56 49 41 20 52 45 54 55 52 38 2e 20 00 02 00 26 00 06 00 50 2a 20 00 02 00 6e 00 40 00 50 2a 20 20 20 41 4e 20 45 4e 54 52 59 50 4f 49 4e 54 20 27 4c 4b 4d 44 49 53 27 20 49 53 20 41 4c 53 4f 20 49 4e 43 4c 55 ┆D PROGRAM VIA RETUR8. & P* n @ P* AN ENTRYPOINT 'LKMDIS' IS ALSO INCLU┆
0x3296…32e6 44 45 44 20 49 4e 20 54 48 49 53 20 4d 4f 44 55 4c 45 2e 20 00 02 00 78 00 44 00 50 2a 20 20 20 54 48 49 53 20 50 41 52 54 20 49 53 20 44 49 53 50 41 54 43 48 45 44 20 41 46 54 45 52 20 45 41 43 48 20 4c 4b 4d 2d 52 45 51 55 45 53 54 2e 28 ┆DED IN THIS MODULE. x D P* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST.(┆
0x32e6…3336 4e 4f 20 52 45 47 49 53 54 45 52 53 00 02 00 bc 00 48 00 50 2a 20 20 20 4f 4e 20 53 54 41 43 4b 29 20 41 20 43 48 45 43 4b 20 49 53 20 4d 41 44 45 20 49 46 20 54 48 45 52 45 20 49 53 20 41 20 4a 4f 42 20 49 4e 20 44 49 53 50 41 54 43 48 45 ┆NO REGISTERS H P* ON STACK) A CHECK IS MADE IF THERE IS A JOB IN DISPATCHE┆
0x3336…3386 52 20 51 55 45 55 45 20 00 02 01 04 00 36 00 50 2a 20 20 20 57 49 54 48 20 48 49 47 48 45 52 20 50 52 49 4f 52 49 54 59 20 54 48 41 4e 20 49 4e 54 45 52 52 55 50 54 45 44 20 50 52 4f 47 52 41 4d 2e 00 02 01 50 00 22 00 50 2a 20 20 20 2d 20 ┆R QUEUE 6 P* WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. P " P* - ┆
0x3386…33d6 (35, 0, 400) 49 46 20 51 55 45 55 45 44 20 4a 4f 42 20 49 53 20 53 54 41 52 54 45 44 00 02 01 8a 00 44 00 50 2a 20 20 20 2d 20 49 46 20 4e 4f 54 20 52 45 54 55 52 4e 20 49 53 20 47 49 56 45 4e 20 54 4f 20 49 4e 54 45 52 52 55 50 54 45 44 20 50 52 4f 47 ┆IF QUEUED JOB IS STARTED D P* - IF NOT RETURN IS GIVEN TO INTERRUPTED PROG┆
0x33d6…3426 52 41 4d 20 56 49 41 20 52 45 54 55 31 34 2e 20 00 03 00 20 00 06 00 50 2a 20 00 03 00 68 00 06 00 50 2a 20 00 03 00 72 00 3e 00 50 2a 20 20 20 41 4e 20 4f 50 54 49 4f 4e 41 4c 59 20 45 4e 54 52 59 50 4f 49 4e 54 20 27 44 49 53 49 4f 45 27 ┆RAM VIA RETU14. P* h P* r > P* AN OPTIONALY ENTRYPOINT 'DISIOE'┆
0x3426…3476 20 49 53 20 41 4c 53 4f 20 50 52 4f 56 49 44 45 44 20 46 4f 52 20 00 03 00 7c 00 3e 00 50 2a 20 20 20 45 52 52 4f 52 53 20 49 4e 20 49 2f 4f 20 44 52 49 56 45 52 53 2e 20 42 49 54 20 30 20 49 53 20 53 45 54 20 49 4e 20 41 31 20 41 4e 44 20 ┆ IS ALSO PROVIDED FOR | > P* ERRORS IN I/O DRIVERS. BIT 0 IS SET IN A1 AND ┆
0x3476…34c6 54 48 45 20 53 55 42 2d 00 03 00 be 00 3c 00 50 2a 20 20 20 52 4f 55 54 49 4e 45 20 27 54 45 4e 44 49 4f 27 20 49 53 20 43 41 4c 4c 45 44 20 42 45 46 4f 52 45 20 54 48 45 20 27 54 44 49 53 50 27 2d 45 4e 54 52 59 20 00 03 01 00 00 14 00 50 ┆THE SUB- < P* ROUTINE 'TENDIO' IS CALLED BEFORE THE 'TDISP'-ENTRY P┆
0x34c6…3516 2a 20 20 20 49 53 20 45 4e 54 45 52 45 44 2e 20 00 03 01 40 00 40 00 50 2a 20 20 20 45 4e 54 52 59 20 27 44 49 53 45 4e 44 27 20 4f 4e 4c 59 20 43 41 4c 4c 53 20 27 54 45 4e 44 49 4f 27 20 42 45 46 4f 52 45 20 27 54 44 49 53 50 27 2d 45 4e ┆* IS ENTERED. @ @ P* ENTRY 'DISEND' ONLY CALLS 'TENDIO' BEFORE 'TDISP'-EN┆
0x3516…3566 (36, 0, 400) 54 52 59 2e 00 03 01 58 00 0a 00 50 5c 45 4a 45 43 54 00 04 00 0c 00 06 00 50 2a 20 00 04 00 1a 00 10 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 00 24 00 10 00 50 2a 20 45 4e 54 52 49 45 53 20 2a 20 00 04 00 38 00 10 00 50 2a 2a 2a 2a ┆TRY. X P EJECT P* P*********** $ P* ENTRIES * 8 P****┆
0x3566…35b6 2a 2a 2a 2a 2a 2a 2a 20 00 04 00 4c 00 06 00 50 2a 20 00 04 00 60 00 22 00 50 5c 45 4e 54 52 59 5c 54 44 49 53 50 5c 44 49 53 50 41 54 43 48 45 52 20 45 4e 54 52 59 20 00 04 00 6a 00 26 00 50 5c 45 4e 54 52 59 5c 4c 4b 4d 44 49 53 5c 44 49 ┆******* L P* ` " P ENTRY TDISP DISPATCHER ENTRY j & P ENTRY LKMDIS DI┆
0x35b6…3606 53 50 41 54 43 48 45 44 20 41 46 54 45 52 20 4c 4b 4d 00 04 00 90 00 22 00 50 5c 45 4e 54 52 59 5c 44 49 53 49 4f 45 5c 49 2f 4f 20 45 52 52 4f 52 20 45 4e 54 52 59 20 00 04 00 ba 00 26 00 50 5c 45 4e 54 52 59 5c 44 49 53 45 4e 44 5c 45 4e ┆SPATCHED AFTER LKM " P ENTRY DISIOE I/O ERROR ENTRY & P ENTRY DISEND EN┆
0x3606…3656 44 20 49 2f 4f 20 41 4e 44 20 44 49 53 50 41 54 43 48 00 04 00 e0 00 3c 00 50 5c 45 4e 54 52 59 5c 44 49 53 51 55 45 5c 50 4f 49 4e 54 45 52 20 54 4f 20 46 49 52 53 54 20 50 4c 41 43 45 20 49 4e 20 44 49 53 50 41 54 43 48 45 52 2d 51 55 45 ┆D I/O AND DISPATCH < P ENTRY DISQUE POINTER TO FIRST PLACE IN DISPATCHER-QUE┆
0x3656…36a6 55 45 00 04 01 0a 00 36 00 50 5c 45 4e 54 52 59 5c 47 42 51 55 45 5c 50 4f 49 4e 54 45 52 20 54 4f 20 46 49 52 53 54 20 54 54 41 42 20 49 4e 20 42 55 46 46 45 52 20 51 55 45 55 45 00 04 01 4a 00 2e 00 50 5c 45 4e 54 52 59 5c 50 52 55 4e 5c ┆UE 6 P ENTRY GBQUE POINTER TO FIRST TTAB IN BUFFER QUEUE J . P ENTRY PRUN ┆