|
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«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/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 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…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…0e06 Head {h00=0x0010, h01=0x0050, text=»SOPX EQU X:A«, t00=0x0008, t01=0x017c}
0x0e06…0e10 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0008, t01=0x0190}
0x0e10…0e1a Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0009, t01=0x000a}
0x0e1a…0e56 Head {h00=0x0038, h01=0x0050, text=»* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0009, t01=0x0014}
0x0e56…0e78 Head {h00=0x001e, h01=0x0050, text=»* BY SETTING CREDIT = 1 «, t00=0x0009, t01=0x0050}
0x0e78…0eb0 Head {h00=0x0034, h01=0x0050, text=»* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS«, t00=0x0009, t01=0x0072}
0x0eb0…0ed4 Head {h00=0x0020, h01=0x0050, text=»* /37 AND /38 RESPECTIVLY «, t00=0x0009, t01=0x00aa}
0x0ed4…0f1a Head {h00=0x0042, h01=0x0050, text=»* BY SETTING CREDIT=1 THE SOP-SWITCHES IS INDEXED:1,2,3,... «, t00=0x0009, t01=0x00ce}
0x0f1a…0f4c Head {h00=0x002e, h01=0x0050, text=»* 1 CORRESPONDS TO THE RIGHTMOST SWITCH.«, t00=0x0009, t01=0x0114}
0x0f4c…0f8e Head {h00=0x003e, h01=0x0050, text=»* IN CASE OF POWER ON ZERO IS STORED IN THE CONTROL WORD«, t00=0x0009, t01=0x0146}
0x0f8e…0fa6 Head {h00=0x0014, h01=0x0050, text=»* OF THE ECB. «, t00=0x0009, t01=0x0188}
0x0fa6…0fb0 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0010}
0x0fb0…0fb8 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x001a}
0x0fb8…0fcc Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 0«, t00=0x000a, t01=0x0022}
0x0fcc…0fd6 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0036}
0x0fd6…0fe0 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0040}
0x0fe0…1024 Head {h00=0x0040, h01=0x0050, text=»* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY «, t00=0x000a, t01=0x004a}
0x1024…103e Head {h00=0x0016, h01=0x0050, text=»* SETTING X:B=1 «, t00=0x000a, t01=0x008e}
0x103e…1048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a8}
0x1048…105a Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000a, t01=0x00b2}
0x105a…1070 Head {h00=0x0012, h01=0x0050, text=»WRFLA EQU X:B «, t00=0x000a, t01=0x00c4}
0x1070…107e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00da}
0x107e…1088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e8}
0x1088…10aa Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000a, t01=0x00f2}
0x10aa…10cc Head {h00=0x001e, h01=0x0050, text=»* S.O.P. DEVICE ADDRESS: *«, t00=0x000a, t01=0x0114}
0x10cc…10ee Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000a, t01=0x0136}
0x10ee…10f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0158}
0x10f8…1102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0162}
0x1102…1126 Head {h00=0x0020, h01=0x0050, text=»SOPDA EQU /2E DEVICE ADDRESS«, t00=0x000a, t01=0x016c}
0x1126…1130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0190}
0x1130…113a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000a}
0x113a…1144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0014}
0x1144…114e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001e}
0x114e…1174 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000b, t01=0x0028}
0x1174…119a Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000b, t01=0x004e}
0x119a…11c0 Head {h00=0x0022, h01=0x0050, text=»* S.O.P. CHANNEL UNIT TABLE *«, t00=0x000b, t01=0x0074}
0x11c0…11e6 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000b, t01=0x009a}
0x11e6…120c Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000b, t01=0x00c0}
0x120c…1216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e6}
0x1216…1220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f0}
0x1220…1254 Head {h00=0x0030, h01=0x0050, text=»SOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK:«, t00=0x000b, t01=0x00fa}
0x1254…125e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012e}
0x125e…1298 Head {h00=0x0036, h01=0x0050, text=»SOPADI EQU * INPUT ADDRESS BLOCK (FOR READ ORDERS)«, t00=0x000b, t01=0x0138}
0x1298…12a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0172}
0x12a2…12ce Head {h00=0x0028, h01=0x0050, text=» DATA SOPAS ACTIVATE SWITCHES ENTRY «, t00=0x000b, t01=0x017c}
0x12ce…12d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0018}
0x12d8…1302 Head {h00=0x0026, h01=0x0050, text=»SOPADU EQU * ACTIVATE LIGHTS ENTRY«, t00=0x000c, t01=0x0022}
0x1302…130c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004c}
0x130c…1336 Head {h00=0x0026, h01=0x0050, text=» DATA SOPAL ACTIVATE LIGHTS ENTRY «, t00=0x000c, t01=0x0056}
0x1336…1340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0080}
0x1340…1368 Head {h00=0x0024, h01=0x0050, text=»SPDLCI DATA 0 LIGHT'S CORE IMAGE«, t00=0x000c, t01=0x008a}
0x1368…1372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b2}
0x1372…1380 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00bc}
0x1380…138a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ca}
0x138a…13b0 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000c, t01=0x00d4}
0x13b0…13d6 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000c, t01=0x00fa}
0x13d6…13fc Head {h00=0x0022, h01=0x0050, text=»* S.O.P. ACTIVATION ROUTINE: *«, t00=0x000c, t01=0x0120}
0x13fc…1422 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0146}
0x1422…1448 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000c, t01=0x016c}
0x1448…1452 (13, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0004}
0x1452…1494 Head {h00=0x003e, h01=0x0050, text=»* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION«, t00=0x000d, t01=0x000e}
0x1494…14b0 Head {h00=0x0018, h01=0x0050, text=»* IS CARRIED OUT. «, t00=0x000d, t01=0x0050}
0x14b0…14ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006c}
0x14ba…14e8 Head {h00=0x002a, h01=0x0050, text=»SOPAS EQU * SWITCHES ACTIVATION ENTRY «, t00=0x000d, t01=0x0076}
0x14e8…14f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a4}
0x14f2…1510 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 COPY ORDER «, t00=0x000d, t01=0x00ae}
0x1510…151a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00cc}
0x151a…1540 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/02 SEE IF READ ORDER:«, t00=0x000d, t01=0x00d6}
0x1540…154a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fc}
0x154a…1578 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) SOPER ERROR IF NOT READ ORDER «, t00=0x000d, t01=0x0106}
0x1578…1582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0134}
0x1582…15a0 Head {h00=0x001a, h01=0x0050, text=»* INPUT SWITCH VALUE«, t00=0x000d, t01=0x013e}
0x15a0…15aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015c}
0x15aa…15d8 Head {h00=0x002a, h01=0x0050, text=»SOPIN LDR* A2,A6 POWER UP INDICATION ?«, t00=0x000d, t01=0x0166}
0x15d8…15ee (14, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x000e, t01=0x0004}
0x15ee…1604 Head {h00=0x0012, h01=0x0050, text=» RF(Z) EXIT NO«, t00=0x000e, t01=0x001a}
0x1604…162c Head {h00=0x0024, h01=0x0050, text=» CMR A6 YES CLEAR FOR NEXT REQ. «, t00=0x000e, t01=0x0030}
0x162c…1638 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0058}
0x1638…164e Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x000e, t01=0x0064}
0x164e…1666 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) EXIT NO «, t00=0x000e, t01=0x007a}
0x1666…167c Head {h00=0x0012, h01=0x0050, text=» STR A7,A6 YES«, t00=0x000e, t01=0x0092}
0x167c…1688 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00a8}
0x1688…169a Head {h00=0x000e, h01=0x0050, text=» RF IHSOP3«, t00=0x000e, t01=0x00b4}
0x169a…16a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c6}
0x16a4…16ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d0}
0x16ae…16d8 Head {h00=0x0026, h01=0x0050, text=»SOPAL EQU * ACTIVATE LIGHTS ENTRY «, t00=0x000e, t01=0x00da}
0x16d8…16e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0104}
0x16e2…1700 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 COPY ORDER «, t00=0x000e, t01=0x010e}
0x1700…1714 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x000e, t01=0x012c}
0x1714…172a Head {h00=0x0012, h01=0x0050, text=» CCK A4,/3939 «, t00=0x000e, t01=0x0140}
0x172a…173e Head {h00=0x0010, h01=0x0050, text=» RF(E) SOPFL«, t00=0x000e, t01=0x0156}
0x173e…174a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x016a}
0x174a…1760 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x000e, t01=0x0176}
0x1760…178c Head {h00=0x0028, h01=0x0050, text=» SUK A4,/05 SEE IF 'LIGHTS ON' ORDER«, t00=0x000e, t01=0x018c}
0x178c…1798 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0028}
0x1798…17ae Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x000f, t01=0x0034}
0x17ae…17c2 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/37 «, t00=0x000f, t01=0x004a}
0x17c2…17ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x005e}
0x17ce…17f8 Head {h00=0x0026, h01=0x0050, text=» RF(Z) SOPON IF SO, TURN ON LIGHTS«, t00=0x000f, t01=0x006a}
0x17f8…1802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0094}
0x1802…182c Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 SEE IF LIGHTS OFF ORDER «, t00=0x000f, t01=0x009e}
0x182c…1842 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SOPOFF «, t00=0x000f, t01=0x00c8}
0x1842…186c Head {h00=0x0026, h01=0x0050, text=»SOPER ABL(NZ) DISIOE ILLEGAL ORDER«, t00=0x000f, t01=0x00de}
0x186c…1880 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x000f, t01=0x0108}
0x1880…188e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x011c}
0x188e…1898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012a}
0x1898…18a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0134}
0x18a2…18bc Head {h00=0x0016, h01=0x0050, text=»* FLASH LIGHTS«, t00=0x000f, t01=0x013e}
0x18bc…18c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0158}
0x18c6…18d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0162}
0x18d0…18e4 Head {h00=0x0010, h01=0x0050, text=»SOPFL EQU * «, t00=0x000f, t01=0x016c}
0x18e4…18fc Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x000f, t01=0x0180}
0x18fc…1928 Head {h00=0x0028, h01=0x0050, text=» RF(NE) FL010 TIMER ALREADY STARTED «, t00=0x0010, t01=0x0008}
0x1928…193e Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTTP «, t00=0x0010, t01=0x0034}
0x193e…1950 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0010, t01=0x004a}
0x1950…1962 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0010, t01=0x005c}
0x1962…1978 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0010, t01=0x006e}
0x1978…1990 Head {h00=0x0014, h01=0x0050, text=» DATA FLTUT,TIME«, t00=0x0010, t01=0x0084}
0x1990…19a8 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTTP,A6 «, t00=0x0010, t01=0x009c}
0x19a8…19be Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FFBF«, t00=0x0010, t01=0x00b4}
0x19be…19e2 Head {h00=0x0020, h01=0x0050, text=» ANS A1,DWTST,A6 SET ON FLAG«, t00=0x0010, t01=0x00ca}
0x19e2…19f6 Head {h00=0x0010, h01=0x0050, text=»FL010 EQU * «, t00=0x0010, t01=0x00ee}
0x19f6…1a1c Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 GET CONTROL WORD «, t00=0x0010, t01=0x0102}
0x1a1c…1a4e Head {h00=0x002e, h01=0x0050, text=» ORS A4,FLASH STORE NEW LAMPS TO A4,FLASH «, t00=0x0010, t01=0x0128}
0x1a4e…1a6a Head {h00=0x0018, h01=0x0050, text=»FL015 LD A1,DWTST,A6«, t00=0x0010, t01=0x015a}
0x1a6a…1a7e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/40 «, t00=0x0010, t01=0x0176}
0x1a7e…1a92 Head {h00=0x0010, h01=0x0050, text=» RF(Z) FL020«, t00=0x0010, t01=0x018a}
0x1a92…1abc Head {h00=0x0026, h01=0x0050, text=» ORS A4,SPDLCI FIXA TILL DET HELA!«, t00=0x0011, t01=0x000e}
0x1abc…1ad0 Head {h00=0x0010, h01=0x0050, text=» RF SOPONOFF«, t00=0x0011, t01=0x0038}
0x1ad0…1ae4 Head {h00=0x0010, h01=0x0050, text=»FL020 EQU * «, t00=0x0011, t01=0x004c}
0x1ae4…1af6 Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0011, t01=0x0060}
0x1af6…1b0c Head {h00=0x0012, h01=0x0050, text=» ANS A4,SPDLCI«, t00=0x0011, t01=0x0072}
0x1b0c…1b20 Head {h00=0x0010, h01=0x0050, text=» RF SOPONOF «, t00=0x0011, t01=0x0088}
0x1b20…1b42 Head {h00=0x001e, h01=0x0050, text=»FLTUT EQU * FLASH TIME OUT«, t00=0x0011, t01=0x009c}
0x1b42…1b5a Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWSO01 «, t00=0x0011, t01=0x00be}
0x1b5a…1b6e Head {h00=0x0010, h01=0x0050, text=» LD A4,FLASH«, t00=0x0011, t01=0x00d6}
0x1b6e…1ba2 Head {h00=0x0030, h01=0x0050, text=» RF(Z) FL030 NO MORE FLASHING FOR THIS TIME «, t00=0x0011, t01=0x00ea}
0x1ba2…1bc6 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x0011, t01=0x011e}
0x1bc6…1bde Head {h00=0x0014, h01=0x0050, text=» ST* A1,DWTTP,A6«, t00=0x0011, t01=0x0142}
0x1bde…1bf2 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/40 «, t00=0x0011, t01=0x015a}
0x1bf2…1c0a Head {h00=0x0014, h01=0x0050, text=» XRS A1,DWTST,A6«, t00=0x0011, t01=0x016e}
0x1c0a…1c1c Head {h00=0x000e, h01=0x0050, text=» RB FL015 «, t00=0x0011, t01=0x0186}
0x1c1c…1c36 Head {h00=0x0016, h01=0x0050, text=»FL030 CM DWTTP,A6 «, t00=0x0012, t01=0x0008}
0x1c36…1c4e Head {h00=0x0014, h01=0x0050, text=» RF EXIT END I/O«, t00=0x0012, t01=0x0022}
0x1c4e…1c5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x003a}
0x1c5a…1c68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0046}
0x1c68…1c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0054}
0x1c72…1caa Head {h00=0x0034, h01=0x0050, text=»SOPOFF C1 A4,10,A8 GET COMPLEMENTED CONTROL WORD«, t00=0x0012, t01=0x005e}
0x1caa…1ce2 Head {h00=0x0034, h01=0x0050, text=» ANS A4,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF «, t00=0x0012, t01=0x0096}
0x1ce2…1cf6 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0012, t01=0x00ce}
0x1cf6…1d1e Head {h00=0x0024, h01=0x0050, text=» ANS A4,FLASH STOP SOME FLASHING«, t00=0x0012, t01=0x00e2}
0x1d1e…1d2a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x010a}
0x1d2a…1d5a Head {h00=0x002c, h01=0x0050, text=» RF SOPONOF BRANCH TO COMMON ON/OFF PATH«, t00=0x0012, t01=0x0116}
0x1d5a…1d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0146}
0x1d64…1d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0150}
0x1d6e…1d9e Head {h00=0x002c, h01=0x0050, text=»* TURN ON LIGHTS INDICATED BY '1' BITS:«, t00=0x0012, t01=0x015a}
0x1d9e…1da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018a}
0x1da8…1dd2 (19, 0, 400) Head {h00=0x0026, h01=0x0050, text=»SOPON LD A4,10,A8 GET CONTROL WORD«, t00=0x0013, t01=0x0004}
0x1dd2…1e04 Head {h00=0x002e, h01=0x0050, text=» ORS A4,SPDLCI SET LIGHTS TO BE TURNED ON «, t00=0x0013, t01=0x002e}
0x1e04…1e18 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0013, t01=0x0060}
0x1e18…1e2a Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0013, t01=0x0074}
0x1e2a…1e58 Head {h00=0x002a, h01=0x0050, text=» ANS A4,FLASH STOP SOME OTHER FLASHING«, t00=0x0013, t01=0x0086}
0x1e58…1e64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00b4}
0x1e64…1e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c0}
0x1e6e…1e8c Head {h00=0x001a, h01=0x0050, text=»* COMMON ON/OFF PATH:«, t00=0x0013, t01=0x00ca}
0x1e8c…1e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e8}
0x1e96…1eca Head {h00=0x0030, h01=0x0050, text=»SOPONOFF LD A1,SPDLCI GET LIGHTS' CORE IMAGE«, t00=0x0013, t01=0x00f2}
0x1eca…1ef6 Head {h00=0x0028, h01=0x0050, text=» OTR A1,0,SOPDA AND OUTPUT TO S.O.P.«, t00=0x0013, t01=0x0126}
0x1ef6…1f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0152}
0x1f00…1f20 Head {h00=0x001c, h01=0x0050, text=» RF ENDIO PERFORM TENDIO«, t00=0x0013, t01=0x015c}
0x1f20…1f2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x017c}
0x1f2e…1f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018a}
0x1f38…1f5c (20, 0, 400) Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0014, t01=0x0004}
0x1f5c…1f80 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0014, t01=0x0028}
0x1f80…1fa4 Head {h00=0x0020, h01=0x0050, text=»* S.O.P. INTERRUPT HANDLER *«, t00=0x0014, t01=0x004c}
0x1fa4…1fc8 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0014, t01=0x0070}
0x1fc8…1fec Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0014, t01=0x0094}
0x1fec…1ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b8}
0x1ff6…2000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c2}
0x2000…2044 Head {h00=0x0040, h01=0x0050, text=»* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. «, t00=0x0014, t01=0x00cc}
0x2044…204e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0110}
0x204e…2092 Head {h00=0x0040, h01=0x0050, text=»* IF NO REQUEST IS IN PROCEEDING THE INTERRUPT IS IGNORED.«, t00=0x0014, t01=0x011a}
0x2092…209c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015e}
0x209c…20a4 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0168}
0x20a4…20be Head {h00=0x0016, h01=0x0050, text=»IHSOP CF A15,SAVE8«, t00=0x0014, t01=0x0170}
0x20be…20e6 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0014, t01=0x018a}
0x20e6…2108 Head {h00=0x001e, h01=0x0050, text=» INR A1,0,SOPDA GET SWITCH«, t00=0x0015, t01=0x0022}
0x2108…2126 Head {h00=0x001a, h01=0x0050, text=» SRN A1,A2 CALC INDEX «, t00=0x0015, t01=0x0044}
0x2126…213c Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0015, t01=0x0062}
0x213c…214e Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0015, t01=0x0078}
0x214e…215a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x008a}
0x215a…2170 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0015, t01=0x0096}
0x2170…2182 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0015, t01=0x00ac}
0x2182…218e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00be}
0x218e…2196 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x00ca}
0x2196…21aa Head {h00=0x0010, h01=0x0050, text=»IHSOP1 EQU *«, t00=0x0015, t01=0x00d2}
0x21aa…21be Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x0015, t01=0x00e6}
0x21be…21e4 Head {h00=0x0022, h01=0x0050, text=» LDKL A6,DWSI02 ANY REQUEST ON«, t00=0x0015, t01=0x00fa}
0x21e4…2208 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0015, t01=0x0120}
0x2208…2220 Head {h00=0x0014, h01=0x0050, text=» RF(N) IHSOP2 NO«, t00=0x0015, t01=0x0144}
0x2220…2248 Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB-ADDRESS«, t00=0x0015, t01=0x015c}
0x2248…226c Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBCW,A8 STORE INDEX «, t00=0x0015, t01=0x0184}
0x226c…227e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0016, t01=0x0018}
0x227e…229c Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0016, t01=0x002a}
0x229c…22a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0048}
0x22a8…22b0 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0054}
0x22b0…22dc Head {h00=0x0028, h01=0x0050, text=»IHSOP2 LDKL A6,DWSI01 ANY REQUEST ON«, t00=0x0016, t01=0x005c}
0x22dc…2300 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0016, t01=0x0088}
0x2300…2316 Head {h00=0x0012, h01=0x0050, text=» RF(N) EXIT NO«, t00=0x0016, t01=0x00ac}
0x2316…233e Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB-ADDRESS«, t00=0x0016, t01=0x00c2}
0x233e…2346 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x00ea}
0x2346…2370 Head {h00=0x0026, h01=0x0050, text=»IHSOP3 ST A2,ECBCW,A8 STORE INDEX «, t00=0x0016, t01=0x00f2}
0x2370…2378 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x011c}
0x2378…238e Head {h00=0x0012, h01=0x0050, text=»ENDIO LDK A1,0«, t00=0x0016, t01=0x0124}
0x238e…23ac Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0016, t01=0x013a}
0x23ac…23b4 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0158}
0x23b4…23dc Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0016, t01=0x0160}
0x23dc…23ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0188}
0x23ea…23f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0008}
0x23f4…2422 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0017, t01=0x0012}
0x2422…2450 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0017, t01=0x0040}
0x2450…247e Head {h00=0x002a, h01=0x0050, text=»* S.O.P POWER UP RECOVERY ROUTINE * «, t00=0x0017, t01=0x006e}
0x247e…24ac Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0017, t01=0x009c}
0x24ac…24da Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0017, t01=0x00ca}
0x24da…24e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f8}
0x24e4…24ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0102}
0x24ee…252c Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE «, t00=0x0017, t01=0x010c}
0x252c…2568 Head {h00=0x0038, h01=0x0050, text=»* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD«, t00=0x0017, t01=0x014a}
0x2568…25ac Head {h00=0x0040, h01=0x0050, text=»* BE PRESENT IN THE POWER FAILURE RECOVERY TABLE (PFTAB). «, t00=0x0017, t01=0x0186}
0x25ac…25ec Head {h00=0x003c, h01=0x0050, text=»* IF RUNNING READ REQUEST THIS IS COMPLETED WITH -2 IN«, t00=0x0018, t01=0x003a}
0x25ec…2620 Head {h00=0x0030, h01=0x0050, text=»* CONTROL WORD. ELSE -2 IS SAVED IN DWTCHP«, t00=0x0018, t01=0x007a}
0x2620…262a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ae}
0x262a…2634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b8}
0x2634…2654 Head {h00=0x001c, h01=0x0050, text=»SOPR EQU * ENTRY POINT «, t00=0x0018, t01=0x00c2}
0x2654…265e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e2}
0x265e…267e Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 SAVE REGS.«, t00=0x0018, t01=0x00ec}
0x267e…26a4 Head {h00=0x0022, h01=0x0050, text=» CIO A1,1,SOPDA ACTIVATE INPUT«, t00=0x0018, t01=0x010c}
0x26a4…26ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0132}
0x26ae…26da Head {h00=0x0028, h01=0x0050, text=» LD A1,SPDLCI GET LIGHTS' CORE IMAGE«, t00=0x0018, t01=0x013c}
0x26da…270a Head {h00=0x002c, h01=0x0050, text=» OTR A1,0,SOPDA AND OUTPUT TO THE LIGHTS«, t00=0x0018, t01=0x0168}
0x270a…2714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0008}
0x2714…272a Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0019, t01=0x0012}
0x272a…2750 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,-2 POWER UP INDICATOR«, t00=0x0019, t01=0x0028}
0x2750…275c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x004e}
0x275c…2772 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0019, t01=0x005a}
0x2772…2784 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0019, t01=0x0070}
0x2784…2790 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0082}
0x2790…2798 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x008e}
0x2798…27ac Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x0019, t01=0x0096}
0x27ac…27d2 Head {h00=0x0022, h01=0x0050, text=» LDKL A6,DWSI02 ANY REQUEST ON«, t00=0x0019, t01=0x00aa}
0x27d2…27fa Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS WORD «, t00=0x0019, t01=0x00d0}
0x27fa…2814 Head {h00=0x0016, h01=0x0050, text=» RF(NN) SOPR1 YES «, t00=0x0019, t01=0x00f8}
0x2814…2834 Head {h00=0x001c, h01=0x0050, text=» STR A2,A6 IND POWER UP «, t00=0x0019, t01=0x0112}
0x2834…2840 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0132}
0x2840…2848 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x013e}
0x2848…2874 Head {h00=0x0028, h01=0x0050, text=»SOPR1 LDKL A6,DWSI01 ANY REQUEST ON «, t00=0x0019, t01=0x0146}
0x2874…2898 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0019, t01=0x0172}
0x2898…28b2 Head {h00=0x0016, h01=0x0050, text=» RF(NN) SOPR2 YES «, t00=0x001a, t01=0x0008}
0x28b2…28d2 Head {h00=0x001c, h01=0x0050, text=» STR A2,A6 IND POWER UP «, t00=0x001a, t01=0x0022}
0x28d2…28da Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0042}
0x28da…28f2 Head {h00=0x0014, h01=0x0050, text=»SOPR2 RB IHSOP1 «, t00=0x001a, t01=0x004a}
0x28f2…2900 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0062}
0x2900…290a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0070}
0x290a…292e Head {h00=0x0020, h01=0x0050, text=»* D W S I 0 1 : INPUT DWT «, t00=0x001a, t01=0x007a}
0x292e…2938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009e}
0x2938…294c Head {h00=0x0010, h01=0x0050, text=»DWSI01 EQU *«, t00=0x001a, t01=0x00a8}
0x294c…297c Head {h00=0x002c, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER: POWER UP IND «, t00=0x001a, t01=0x00bc}
0x297c…29ac Head {h00=0x002c, h01=0x0050, text=» DATA /8000 /8000 MEANS DEVICE IS READY «, t00=0x001a, t01=0x00ec}
0x29ac…29c8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x001a, t01=0x011c}
0x29c8…29de Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x001a, t01=0x0138}
0x29de…29f2 Head {h00=0x0010, h01=0x0050, text=» DATA SOPADI«, t00=0x001a, t01=0x014e}
0x29f2…2a02 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001a, t01=0x0162}
0x2a02…2a12 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001a, t01=0x0172}
0x2a12…2a30 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x001a, t01=0x0182}
0x2a30…2a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0010}
0x2a3a…2a5e Head {h00=0x0020, h01=0x0050, text=»* D W S O 0 1 : OUTPUT DWT«, t00=0x001b, t01=0x001a}
0x2a5e…2a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x003e}
0x2a68…2a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0048}
0x2a72…2a86 Head {h00=0x0010, h01=0x0050, text=»DWSO01 EQU *«, t00=0x001b, t01=0x0052}
0x2a86…2aac Head {h00=0x0022, h01=0x0050, text=» DATA /0040 CHANNEL PARAMETER «, t00=0x001b, t01=0x0066}
0x2aac…2adc Head {h00=0x002c, h01=0x0050, text=» DATA /8000 /8000 MEANS DEVICE IS READY «, t00=0x001b, t01=0x008c}
0x2adc…2af8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x001b, t01=0x00bc}
0x2af8…2b0e Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x001b, t01=0x00d8}
0x2b0e…2b3c Head {h00=0x002a, h01=0x0050, text=» DATA SOPADU POINTER TO ADDRESS BLOCK «, t00=0x001b, t01=0x00ee}
0x2b3c…2b58 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x001b, t01=0x011c}
0x2b58…2b80 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x001b, t01=0x0138}
0x2b80…2b9e Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x001b, t01=0x0160}
0x2b9e…2bbc Head {h00=0x001a, h01=0x0050, text=» DATA 0 TIMER POINTER «, t00=0x001b, t01=0x017e}
0x2bbc…2bee Head {h00=0x002e, h01=0x0050, text=»FLASH DATA 0 SAVE AREA FOR FLASHING LAMPS «, t00=0x001c, t01=0x000c}
0x2bee…2bfc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x003e}
0x2bfc…2c04 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x004c}
0x2c04…2c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0054}
0x2c0e…2c3c Head {h00=0x002a, h01=0x0050, text=»* D W S I 0 2 : EXTENDED INPUT DWT «, t00=0x001c, t01=0x005e}
0x2c3c…2c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x008c}
0x2c46…2c4e Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0096}
0x2c4e…2c62 Head {h00=0x0010, h01=0x0050, text=»DWSI02 EQU *«, t00=0x001c, t01=0x009e}
0x2c62…2c76 Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x001c, t01=0x00b2}
0x2c76…2c86 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001c, t01=0x00c6}
0x2c86…2c9a Head {h00=0x0010, h01=0x0050, text=» DATA /8000 «, t00=0x001c, t01=0x00d6}
0x2c9a…2cac Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x001c, t01=0x00ea}
0x2cac…2cc0 Head {h00=0x0010, h01=0x0050, text=» DATA SOPADI«, t00=0x001c, t01=0x00fc}
0x2cc0…2cd4 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x001c, t01=0x0110}
0x2cd4…2ce0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0124}
0x2ce0…2cec Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001c, t01=0x0130}
0x2cec…2cf0 Head {h00=0x4004, h01=0x0000}
0x2cf0…2cf4 00 1c 01 3c ┆ <┆
0x2cf4…2cfc (29, 1, 8) 20 04 00 00 00 1d 00 04 ┆ ┆
0x2cfc…2d4c (30, 0, 400) 41 5c 43 57 54 4c 54 33 00 1d 01 8c 00 08 00 50 5c 58 49 46 00 1e 00 10 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 34 20 00 1e 00 1c 00 10 00 50 5c 44 41 54 41 5c 43 57 54 4c 54 33 00 1e 00 32 00 10 00 50 5c 44 41 54 41 5c 43 57 54 4c ┆A CWTLT3 P XIF P IFT LOCHAN=4 P DATA CWTLT3 2 P DATA CWTL┆
0x2d4c…2d9c 54 34 00 1e 00 46 00 08 00 50 5c 58 49 46 00 1e 00 5a 00 1e 00 50 43 48 54 41 42 45 5c 45 51 55 5c 2a 5c 45 4e 44 20 4f 46 20 54 41 42 4c 45 20 00 1e 00 66 00 06 00 50 2a 20 00 1e 00 88 00 06 00 50 2a 20 00 1e 00 92 00 06 00 50 2a 20 00 1e ┆T4 F P XIF Z PCHTABE EQU * END OF TABLE f P* P* P* ┆
0x2d9c…2dec 00 9c 00 06 00 50 2a 20 00 1e 00 a6 00 06 00 50 2a 20 00 1e 00 b0 00 0a 00 50 5c 45 4a 45 43 54 00 1e 00 ba 00 06 00 50 2a 20 00 1e 00 c8 00 12 00 50 5c 49 46 46 5c 4c 4f 43 48 41 4e 3d 31 20 00 1e 00 d2 00 06 00 50 2a 20 00 1e 00 e8 00 1e ┆ P* P* P EJECT P* P IFF LOCHAN=1 P* ┆
0x2dec…2e3c 00 50 2a 20 20 20 43 20 48 20 4c 20 54 20 31 20 2f 20 43 20 48 20 4c 20 54 20 32 20 00 1e 00 f2 00 2e 00 50 2a 20 20 20 54 48 49 53 20 49 53 20 54 48 45 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 20 46 4f 52 20 43 48 4c 54 00 1e ┆ P* C H L T 1 / C H L T 2 . P* THIS IS THE INTERRUPT HANDLER FOR CHLT ┆
0x2e3c…2e8c 01 14 00 06 00 50 2a 20 00 1e 01 46 00 12 00 50 2a 20 20 20 43 20 48 20 4c 20 54 20 31 20 00 1e 01 50 00 1c 00 50 2a 20 20 20 49 4e 54 45 52 52 55 50 54 20 46 52 4f 4d 20 43 48 4c 54 31 00 1e 01 66 00 06 00 50 2a 20 00 1e 01 86 00 08 00 50 ┆ P* F P* C H L T 1 P P* INTERRUPT FROM CHLT1 f P* P┆
0x2e8c…2edc (31, 0, 400) 5c 58 49 46 00 1e 01 90 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 32 20 00 1f 00 0c 00 10 00 50 43 48 4c 54 33 5c 45 51 55 5c 2a 20 00 1f 00 22 00 10 00 50 43 48 4c 54 34 5c 45 51 55 5c 2a 20 00 1f 00 36 00 08 00 50 5c 58 49 46 00 1f ┆ XIF P IFT LOCHAN=2 PCHLT3 EQU * " PCHLT4 EQU * 6 P XIF ┆
0x2edc…2f2c 00 4a 00 12 00 50 5c 49 46 46 5c 4c 4f 43 48 41 4e 3d 31 20 00 1f 00 56 00 10 00 50 43 48 4c 54 31 5c 45 51 55 5c 2a 20 00 1f 00 6c 00 24 00 50 5c 53 54 5c 50 2c 49 4e 54 53 41 56 5c 53 41 56 45 20 4c 41 53 54 20 49 4e 54 45 52 52 55 50 54 ┆ J P IFF LOCHAN=1 V PCHLT1 EQU * l $ P ST P,INTSAV SAVE LAST INTERRUPT┆
0x2f2c…2f7c 00 1f 00 80 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 52 45 47 49 53 54 45 52 53 20 41 31 2d 41 38 00 1f 00 a8 00 2e 00 50 5c 4c 44 4b 4c 5c 41 35 2c 43 57 54 4c 54 31 5c 53 45 54 20 43 57 54 2d 41 44 44 52 45 53 ┆ & P CF A15,SAVE8 SAVE REGISTERS A1-A8 . P LDKL A5,CWTLT1 SET CWT-ADDRES┆
0x2f7c…2fcc 53 20 46 4f 52 20 43 48 4c 54 31 20 00 1f 00 d2 00 0e 00 50 5c 52 46 5c 43 4c 54 30 31 30 00 1f 01 04 00 06 00 50 2a 20 00 1f 01 16 00 12 00 50 2a 20 20 20 43 20 48 20 4c 20 54 20 32 20 00 1f 01 20 00 1c 00 50 2a 20 20 20 49 4e 54 45 52 52 ┆S FOR CHLT1 P RF CLT010 P* P* C H L T 2 P* INTERR┆
0x2fcc…301c 55 50 54 20 46 52 4f 4d 20 43 48 4c 54 32 00 1f 01 36 00 06 00 50 2a 20 00 1f 01 56 00 10 00 50 43 48 4c 54 32 5c 45 51 55 5c 2a 20 00 1f 01 60 00 24 00 50 5c 53 54 5c 50 2c 49 4e 54 53 41 56 5c 53 41 56 45 20 4c 41 53 54 20 49 4e 54 45 52 ┆UPT FROM CHLT2 6 P* V PCHLT2 EQU * ` $ P ST P,INTSAV SAVE LAST INTER┆
0x301c…306c (32, 0, 400) 52 55 50 54 00 1f 01 74 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 52 45 47 49 53 54 45 52 53 20 41 31 2d 41 38 00 20 00 0c 00 2e 00 50 5c 4c 44 4b 4c 5c 41 35 2c 43 57 54 4c 54 32 5c 53 45 54 20 43 57 54 2d 41 44 ┆RUPT t & P CF A15,SAVE8 SAVE REGISTERS A1-A8 . P LDKL A5,CWTLT2 SET CWT-AD┆
0x306c…30bc 44 52 45 53 53 20 46 4f 52 20 43 48 4c 54 32 20 00 20 00 36 00 08 00 50 5c 58 49 46 00 20 00 68 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 32 20 00 20 00 74 00 30 00 50 43 4c 54 30 31 30 5c 45 58 5c 43 57 54 49 4e 52 2c 41 35 5c 45 58 ┆DRESS FOR CHLT2 6 P XIF h P IFT LOCHAN=2 t 0 PCLT010 EX CWTINR,A5 EX┆
0x30bc…310c 45 43 55 54 45 20 49 4e 52 2d 49 4e 53 54 52 55 43 54 49 4f 4e 20 00 20 00 8a 00 06 00 50 2a 20 00 20 00 be 00 08 00 50 5c 58 49 46 00 20 00 c8 00 06 00 50 2a 20 00 20 00 d4 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 33 20 00 20 00 de ┆ECUTE INR-INSTRUCTION P* P XIF P* P IFT LOCHAN=3 ┆
0x310c…315c 00 0e 00 50 5c 52 46 5c 43 4c 54 30 31 30 00 20 00 f4 00 06 00 50 2a 20 00 20 01 06 00 12 00 50 2a 20 20 20 43 20 48 20 4c 20 54 20 33 20 00 20 01 10 00 1c 00 50 2a 20 20 20 49 4e 54 45 52 52 55 50 54 20 46 52 4f 4d 20 43 48 4c 54 33 00 20 ┆ P RF CLT010 P* P* C H L T 3 P* INTERRUPT FROM CHLT3 ┆
0x315c…31ac 01 26 00 06 00 50 2a 20 00 20 01 46 00 10 00 50 43 48 4c 54 33 5c 45 51 55 5c 2a 20 00 20 01 50 00 10 00 50 43 48 4c 54 34 5c 45 51 55 5c 2a 20 00 20 01 64 00 24 00 50 5c 53 54 5c 50 2c 49 4e 54 53 41 56 5c 53 41 56 45 20 4c 41 53 54 20 49 ┆ & P* F PCHLT3 EQU * P PCHLT4 EQU * d $ P ST P,INTSAV SAVE LAST I┆
0x31ac…31fc (33, 0, 400) 4e 54 45 52 52 55 50 54 00 20 01 78 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 52 45 47 49 53 54 45 52 53 20 41 31 2d 41 38 00 21 00 10 00 2e 00 50 5c 4c 44 4b 4c 5c 41 35 2c 43 57 54 4c 54 33 5c 53 45 54 20 43 57 ┆NTERRUPT x & P CF A15,SAVE8 SAVE REGISTERS A1-A8 ! . P LDKL A5,CWTLT3 SET CW┆
0x31fc…324c 54 2d 41 44 44 52 45 53 53 20 46 4f 52 20 43 48 4c 54 33 20 00 21 00 3a 00 24 00 50 43 4c 54 30 31 30 5c 45 58 5c 43 57 54 49 4e 52 2c 41 35 5c 45 58 45 43 55 54 45 20 49 4e 52 20 00 21 00 6c 00 06 00 50 2a 20 00 21 00 94 00 08 00 50 5c 58 ┆T-ADDRESS FOR CHLT3 ! : $ PCLT010 EX CWTINR,A5 EXECUTE INR ! l P* ! P X┆
0x324c…329c 49 46 00 21 00 9e 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 34 20 00 21 00 aa 00 0e 00 50 5c 52 46 5c 43 4c 54 30 31 30 00 21 00 c0 00 06 00 50 2a 20 00 21 00 d2 00 06 00 50 2a 20 00 21 00 dc 00 12 00 50 2a 20 20 20 43 20 48 20 4c 20 ┆IF ! P IFT LOCHAN=4 ! P RF CLT010 ! P* ! P* ! P* C H L ┆
0x329c…32ec 54 20 32 20 00 21 00 e6 00 1c 00 50 2a 20 20 20 49 4e 54 45 52 52 55 50 54 20 46 52 4f 4d 20 43 48 4c 54 33 00 21 00 fc 00 06 00 50 2a 20 00 21 01 1c 00 10 00 50 43 48 4c 54 33 5c 45 51 55 5c 2a 20 00 21 01 26 00 24 00 50 5c 53 54 5c 50 2c ┆T 2 ! P* INTERRUPT FROM CHLT3 ! P* ! PCHLT3 EQU * ! & $ P ST P,┆
0x32ec…333c 49 4e 54 53 41 56 5c 53 41 56 45 20 4c 41 53 54 20 49 4e 54 45 52 52 55 50 54 00 21 01 3a 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 52 45 47 49 53 54 45 52 53 20 41 31 2d 41 38 00 21 01 62 00 2e 00 50 5c 4c 44 4b ┆INTSAV SAVE LAST INTERRUPT ! : & P CF A15,SAVE8 SAVE REGISTERS A1-A8 ! b . P LDK┆
0x333c…338c (34, 0, 398) 4c 5c 41 35 2c 43 57 54 4c 54 33 5c 53 45 54 20 43 57 54 2d 41 44 44 52 45 53 53 20 46 4f 52 20 43 48 4c 54 33 20 00 21 01 8c 00 0e 00 50 5c 52 46 5c 43 4c 54 30 31 30 00 22 00 2e 00 12 00 50 2a 20 20 20 43 20 48 20 4c 20 54 20 34 20 00 22 ┆L A5,CWTLT3 SET CWT-ADDRESS FOR CHLT3 ! P RF CLT010 " . P* C H L T 4 "┆
0x338c…33dc 00 40 00 1c 00 50 2a 20 20 20 49 4e 54 45 52 52 55 50 54 20 46 52 4f 4d 20 43 48 4c 54 34 00 22 00 56 00 06 00 50 2a 20 00 22 00 76 00 10 00 50 43 48 4c 54 34 5c 45 51 55 5c 2a 20 00 22 00 80 00 24 00 50 5c 53 54 5c 50 2c 49 4e 54 53 41 56 ┆ @ P* INTERRUPT FROM CHLT4 " V P* " v PCHLT4 EQU * " $ P ST P,INTSAV┆
0x33dc…342c 5c 53 41 56 45 20 4c 41 53 54 20 49 4e 54 45 52 52 55 50 54 00 22 00 94 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 52 45 47 49 53 54 45 52 53 20 41 31 2d 41 38 00 22 00 bc 00 2e 00 50 5c 4c 44 4b 4c 5c 41 35 2c 43 ┆ SAVE LAST INTERRUPT " & P CF A15,SAVE8 SAVE REGISTERS A1-A8 " . P LDKL A5,C┆
0x342c…347c 57 54 4c 54 34 5c 53 45 54 20 43 57 54 2d 41 44 44 52 45 53 53 20 46 4f 52 20 43 48 4c 54 34 20 00 22 00 e6 00 24 00 50 43 4c 54 30 31 30 5c 45 58 5c 43 57 54 49 4e 52 2c 41 35 5c 45 58 45 43 55 54 45 20 49 4e 52 20 00 22 01 18 00 08 00 50 ┆WTLT4 SET CWT-ADDRESS FOR CHLT4 " $ PCLT010 EX CWTINR,A5 EXECUTE INR " P┆
0x347c…34ca 5c 58 49 46 00 22 01 40 00 06 00 50 2a 20 00 22 01 4c 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 31 20 00 22 01 56 00 06 00 50 2a 20 00 22 01 6c 00 06 00 50 2a 20 00 22 01 76 00 12 00 50 2a 20 20 20 20 43 20 48 20 4c 20 54 20 31 ┆ XIF " @ P* " L P IFT LOCHAN=1 " V P* " l P* " v P* C H L T 1┆
0x34ca…351a (35, 0, 398) 00 22 01 80 00 06 00 50 2a 20 00 23 00 08 00 1e 00 50 2a 20 20 20 20 49 4e 54 45 52 52 55 50 54 20 46 52 4f 4d 20 43 48 4c 54 31 20 00 23 00 12 00 06 00 50 2a 20 00 23 00 34 00 10 00 50 43 48 4c 54 31 5c 45 51 55 5c 2a 20 00 23 00 3e 00 10 ┆ " P* # P* INTERRUPT FROM CHLT1 # P* # 4 PCHLT1 EQU * # > ┆
0x351a…356a 00 50 43 48 4c 54 32 5c 45 51 55 5c 2a 20 00 23 00 52 00 10 00 50 43 48 4c 54 33 5c 45 51 55 5c 2a 20 00 23 00 66 00 10 00 50 43 48 4c 54 34 5c 45 51 55 5c 2a 20 00 23 00 7a 00 2a 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 ┆ PCHLT2 EQU * # R PCHLT3 EQU * # f PCHLT4 EQU * # z * P CF A15,SAVE8 SAVE┆
0x356a…35ba 20 52 45 47 49 53 54 45 52 53 20 4f 4e 20 53 54 41 43 4b 20 00 23 00 8e 00 24 00 50 5c 4c 44 4b 4c 5c 41 35 2c 43 57 54 4c 54 31 5c 47 45 54 20 43 57 54 2d 41 44 44 52 45 53 53 20 00 23 00 bc 00 24 00 50 5c 53 54 5c 50 2c 49 4e 54 53 41 56 ┆ REGISTERS ON STACK # $ P LDKL A5,CWTLT1 GET CWT-ADDRESS # $ P ST P,INTSAV┆
0x35ba…360a 5c 53 41 56 45 20 4c 41 53 54 20 49 4e 54 45 52 52 55 50 54 00 23 00 e4 00 12 00 50 5c 49 4e 52 5c 41 32 2c 30 2c 44 57 41 31 00 23 01 0c 00 06 00 50 2a 20 00 23 01 22 00 08 00 50 5c 58 49 46 00 23 01 2c 00 06 00 50 2a 20 00 23 01 38 00 12 ┆ SAVE LAST INTERRUPT # P INR A2,0,DWA1 # P* # " P XIF # , P* # 8 ┆
0x360a…3658 00 50 5c 49 46 54 5c 4c 4f 47 49 4e 47 3d 31 20 00 23 01 42 00 2e 00 50 5c 43 46 5c 41 31 35 2c 4c 4f 47 47 5c 2a 2a 20 4c 4f 47 47 20 4f 46 20 49 4e 50 55 54 20 43 48 41 52 41 43 54 45 52 20 2a 2a 00 23 01 58 00 08 00 50 5c 58 49 46 ┆ P IFT LOGING=1 # B . P CF A15,LOGG ** LOGG OF INPUT CHARACTER ** # X P XIF┆
0x3658…36a8 (36, 0, 400) 00 23 01 8a 00 0a 00 50 5c 45 4a 45 43 54 00 24 00 08 00 06 00 50 2a 20 00 24 00 16 00 06 00 50 2a 20 00 24 00 20 00 2a 00 50 2a 20 20 20 44 45 54 45 52 4d 49 4e 45 20 4c 49 4e 45 2d 20 41 4e 44 20 44 45 56 49 43 45 20 4e 55 4d 42 45 52 20 ┆ # P EJECT $ P* $ P* $ * P* DETERMINE LINE- AND DEVICE NUMBER ┆
0x36a8…36f8 00 24 00 2a 00 06 00 50 2a 20 00 24 00 58 00 20 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 52 45 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 24 00 62 00 20 00 50 5c 4c 44 52 5c 41 33 2c 41 32 5c 49 4e 50 55 54 20 57 4f 52 44 20 49 4e 20 41 ┆ $ * P* $ X P LDK A1,0 RESET RETURN CODE $ b P LDR A3,A2 INPUT WORD IN A┆
0x36f8…3748 33 20 00 24 00 86 00 0e 00 50 5c 53 52 4c 5c 41 33 2c 38 20 00 24 00 aa 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 33 00 24 00 bc 00 24 00 50 5c 41 4e 4b 5c 41 33 2c 2f 45 5c 32 20 2a 20 4c 49 4e 45 20 4e 55 4d 42 45 52 20 49 4e 20 41 33 00 24 ┆3 $ P SRL A3,8 $ P LDR A4,A3 $ $ P ANK A3,/E 2 * LINE NUMBER IN A3 $┆
0x3748…3798 00 ce 00 0e 00 50 5c 53 52 4c 5c 41 34 2c 33 20 00 24 00 f6 00 26 00 50 5c 41 4e 4b 5c 41 34 2c 2f 45 5c 32 20 2a 20 44 45 56 49 43 45 20 4e 55 4d 42 45 52 20 49 4e 20 41 34 00 24 01 08 00 2e 00 50 5c 41 42 4c 28 4e 45 29 5c 43 4c 54 31 30 ┆ P SRL A4,3 $ & P ANK A4,/E 2 * DEVICE NUMBER IN A4 $ . P ABL(NE) CLT10┆
0x3798…37e8 30 5c 49 4e 50 55 54 20 49 53 20 41 20 44 41 54 41 20 43 48 41 52 41 43 54 45 52 20 00 24 01 32 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 37 46 20 00 24 01 64 00 18 00 50 5c 53 55 4b 5c 41 32 2c 33 5c 50 4f 57 45 52 20 4f 4e 20 3f 00 24 01 78 ┆0 INPUT IS A DATA CHARACTER $ 2 P ANK A2,/7F $ d P SUK A2,3 POWER ON ? $ x┆