|
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: 14036 (0x36d4)
Notes: pts_type(SC)
Names: »DRSOP1.SC«
└─⟦3a2bec7de⟧ Bits:30009687 Philips computer tape "600313"
└─⟦this⟧ »M:821/DRSOP1.SC«
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
└─⟦this⟧ »M:92D2/DRSOP1.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »M:261/DRSOP1.SC«
IDENT DRSOP1 REL 9.2 79-11-16 870105040920 * * ************************************************************ * * 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: WORK REGISTER * 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 EXTRN SPDLCI DATA SOP LIGHTS AND FD POWER EJECT * ************************************ * * DWT DISPLACEMENTS * ************************************ * EXTRN DWTCHP CHANNEL PARAMETER EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTADR DRIVER ADDRESS BLOCK EXTRN DWTTAB TTAB ADDRESS EXTRN DWTWAT WAIT/ACTIVATE INDICATOR EXTRN DWTTQ TERMINAL QUEUE EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT EXTRN ECBEL EFFECTIVE LENGTH IN ECB EXTRN ECBCW ECB CONTROL WORD TIME EQU 5 FLASH TIME EJECT * CONDITIONAL ASSEMBLY * EXTENDED SOP INPUT DWT OR NOT * SOPX=0 => NOT EXTENDED * X:A EQU 0 SOPX EQU 0 ** ** * THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS * BY SETTING CREDIT = 1 * ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS * /37 AND /38 RESPECTIVLY * BY SETTING CREDIT=1 THE SOP-SWITCHES IS INDEXED:1,2,3,... * 1 CORRESPONDS TO THE RIGHTMOST SWITCH. * IN CASE OF POWER ON ZERO IS STORED IN THE CONTROL WORD * OF THE ECB. ** CREDIT EQU 1 ** ** * THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY * SETTING X:B=1 * X:B EQU 0 WRFLA EQU 0 * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * DVBLEN EQU 0 MMU BUFFER SIZE DEVIND EQU -2 SOP DEVICE INDEX * EJECT * * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * DWTTP EQU START+/00 TIMER POINTER * EJECT * ************************** * S.O.P. DEVICE ADDRESS: * ************************** * * SOPDA EQU /2E DEVICE ADDRESS * * * ****************************** * * * S.O.P. CHANNEL UNIT TABLE * * * ****************************** * * SOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: * DATA DVBLEN MMU BUFFER SIZE DATA DEVIND DEVICE INDEX SOPADI EQU * INPUT ADDRESS BLOCK (FOR READ ORDERS) * DATA SOPAS ACTIVATE SWITCHES ENTRY DATA 0 ABORT ROUTINE ADDRESS * DATA DVBLEN MMU BUFFER SIZE DATA DEVIND DEVICE INDEX SOPADU EQU * ACTIVATE LIGHTS ENTRY * DATA SOPAL ACTIVATE LIGHTS ENTRY DATA 0 ABORT ROUTINE ADDRESS * * BIT 0 CONTROLS FD POWER * (0=ON, 1=OFF) 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 * EJECT * * ENTRY FOR CHANGES OF S.O.P. LIGHTS * SOPAL EQU * ACTIVATE LIGHTS ENTRY * LD A3,10,A8 CHANGED LIGHTS ANKL A3,/07FF BITS 5-15 CONTROLS LIGHTS * 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 * * A3 CONTAINS LIGHTS THAT SHOULD FLASH ORS A3,FLASH STORE NEW LAMPS TO FLASH FL015 LD A1,DWTST,A6 ANK A1,/40 RF(Z) FL020 ORS A3,SPDLCI FIXA TILL DET HELA! RF SOPONOFF FL020 EQU * C1R A3,A3 ANS A3,SPDLCI RF SOPONOF * EJECT * FLTUT EQU * FLASH TIME OUT LDKL A6,DWSO01 LD A3,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 EQU * C1R A3,A3 GET COMPLEMENTED CONTROL WORD ANS A3,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF IFT WRFLA=1 ANS A3,FLASH STOP SOME FLASHING XIF RF SOPONOF BRANCH TO COMMON ON/OFF PATH * * * TURN ON LIGHTS INDICATED BY '1' BITS: * SOPON EQU * * A3 CONTAINS CONTROL WORD ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON IFT WRFLA=1 C1R A3,A3 ANS A3,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 EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * 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 CM ECBEL,A8 RESET EFFECTIVE LENGTH 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 CM ECBEL,A8 RESET EFFECTIVE LENGTH 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 IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * 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 IFT MMUPAG=1 DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECI MMU ECB ADDRESS DEVECI EQU * DATA 0,0,0,0,0,0 XIF * * 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 IFT MMUPAG=1 DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECO MMU ECB ADDRESS XIF DATA 0 TIMER POINTER FLASH DATA 0 SAVE AREA FOR FLASHING LAMPS IFT MMUPAG=1 DEVECO EQU * DATA 0,0,0,0,0,0 XIF EJECT * * D W S I 0 2 : EXTENDED INPUT DWT * DWSI02 EQU * IFF SOPX=0 DATA 0 DATA /8000 DATA 0 ECB ADDRESS DATA 0 ORDER DATA SOPADI DATA 0,0,0 IFT MMUPAG=1 DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVEC1 MMU ECB ADDRESS DEVEC1 EQU * DATA 0,0,0,0,0,0 XIF * * * END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRSOP1 REL 9.2 79-11-16 870105040920 «, 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…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0096 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x0056}
0x0096…00a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009a}
0x00a0…00c8 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a4}
0x00c8…00d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00cc}
0x00d2…0108 Head {h00=0x0032, h01=0x0050, text=»* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL«, t00=0x0000, t01=0x00d6}
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…0144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013e}
0x0144…0188 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x0148}
0x0188…0192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018c}
0x0192…019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01e2 Head {h00=0x0042, h01=0x0050, text=»* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S «, t00=0x0001, t01=0x0012}
0x01e2…0212 Head {h00=0x002c, h01=0x0050, text=»* PANEL CONNECTED TO CPU VIA CHCR-SOP «, t00=0x0001, t01=0x0058}
0x0212…021c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0088}
0x021c…0226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x0226…0268 Head {h00=0x003e, h01=0x0050, text=»* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET «, t00=0x0001, t01=0x009c}
0x0268…02a6 Head {h00=0x003a, h01=0x0050, text=»* 'BUSY' UNTIL THE INPUT INTERRUPT IS TAKEN CARE OF «, t00=0x0001, t01=0x00de}
0x02a6…02b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011c}
0x02b0…02ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x02ba…02fc Head {h00=0x003e, h01=0x0050, text=»* AT POWER UP RUNNING READ REQUEST IS COMPLETED WITH -2 «, t00=0x0001, t01=0x0130}
0x02fc…033c Head {h00=0x003c, h01=0x0050, text=»* IN CONTROL WORD.IF NO RUNNING READ REQUEST,POWER UP «, t00=0x0001, t01=0x0172}
0x033c…037e Head {h00=0x003e, h01=0x0050, text=»* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH «, t00=0x0002, t01=0x0022}
0x037e…039c Head {h00=0x001a, h01=0x0050, text=»* -2 IN CONTROL WORD«, t00=0x0002, t01=0x0064}
0x039c…03a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0082}
0x03a6…03b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008c}
0x03b0…03f2 Head {h00=0x003e, h01=0x0050, text=»* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET«, t00=0x0002, t01=0x0096}
0x03f2…0434 Head {h00=0x003e, h01=0x0050, text=»* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES NOT REQUIRE«, t00=0x0002, t01=0x00d8}
0x0434…044e Head {h00=0x0016, h01=0x0050, text=»* AN INTERRUPT. «, t00=0x0002, t01=0x011a}
0x044e…0458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x0458…0466 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x013e}
0x0466…0470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014c}
0x0470…047a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0156}
0x047a…04b2 Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0002, t01=0x0160}
0x04b2…04bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0008}
0x04bc…04e8 Head {h00=0x0028, h01=0x0050, text=»* S O P A S : READ SWITCHES ENTRY «, t00=0x0003, t01=0x0012}
0x04e8…04f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003e}
0x04f2…0520 Head {h00=0x002a, h01=0x0050, text=»* S O P A L : ACTIVATE LIGHTS ENTRY «, t00=0x0003, t01=0x0048}
0x0520…052a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0076}
0x052a…0554 Head {h00=0x0026, h01=0x0050, text=»* I H S O P : INTERRUPT HANDLER «, t00=0x0003, t01=0x0080}
0x0554…055e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00aa}
0x055e…0584 Head {h00=0x0022, h01=0x0050, text=»* S O P R : RECOVERY ROUTINE«, t00=0x0003, t01=0x00b4}
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…05a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ee}
0x05a2…05d0 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0003, t01=0x00f8}
0x05d0…05da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0126}
0x05da…05fe Head {h00=0x0020, h01=0x0050, text=»* ORDER 02 : READ SWITCHES«, t00=0x0003, t01=0x0130}
0x05fe…0624 Head {h00=0x0022, h01=0x0050, text=»* 05 : WRITE LIGHTS ON«, t00=0x0003, t01=0x0154}
0x0624…064c Head {h00=0x0024, h01=0x0050, text=»* 06 : WRITE LIGHTS OFF «, t00=0x0003, t01=0x017a}
0x064c…067c Head {h00=0x002c, h01=0x0050, text=»* 39 : WRITE FLASHING LIGHTS «, t00=0x0004, t01=0x0012}
0x067c…0686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0042}
0x0686…06a8 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0004, t01=0x004c}
0x06a8…06b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006e}
0x06b2…06d8 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: INPUT/OUTPUT «, t00=0x0004, t01=0x0078}
0x06d8…06fe Head {h00=0x0022, h01=0x0050, text=»* A2: WORK REGISTER«, t00=0x0004, t01=0x009e}
0x06fe…0724 Head {h00=0x0022, h01=0x0050, text=»* A3: WORK REGISTER«, t00=0x0004, t01=0x00c4}
0x0724…074a Head {h00=0x0022, h01=0x0050, text=»* A4: WORK REGISTER«, t00=0x0004, t01=0x00ea}
0x074a…076a Head {h00=0x001c, h01=0x0050, text=»* A5: ----«, t00=0x0004, t01=0x0110}
0x076a…078e Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0004, t01=0x0130}
0x078e…07ac Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0004, t01=0x0154}
0x07ac…07d0 Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0004, t01=0x0172}
0x07d0…07da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07da…07e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0012}
0x07e4…07f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x001c}
0x07f2…07fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002a}
0x07fc…0810 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0005, t01=0x0034}
0x0810…0824 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES: *«, t00=0x0005, t01=0x0048}
0x0824…0838 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0005, t01=0x005c}
0x0838…0842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0070}
0x0842…084c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x007a}
0x084c…087a Head {h00=0x002a, h01=0x0050, text=» ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE«, t00=0x0005, t01=0x0084}
0x087a…08a6 Head {h00=0x0028, h01=0x0050, text=» ENTRY SOPR S.O.P. RECOVERY ROUTINE «, t00=0x0005, t01=0x00b2}
0x08a6…08dc Head {h00=0x0032, h01=0x0050, text=» ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALIAS) «, t00=0x0005, t01=0x00de}
0x08dc…08fc Head {h00=0x001c, h01=0x0050, text=» ENTRY DWSI01 INPUT DWT «, t00=0x0005, t01=0x0114}
0x08fc…0924 Head {h00=0x0024, h01=0x0050, text=» ENTRY DWSI02 EXTENDED INPUT DWT«, t00=0x0005, t01=0x0134}
0x0924…0944 Head {h00=0x001c, h01=0x0050, text=» ENTRY DWSO01 OUTPUT DWT«, t00=0x0005, t01=0x015c}
0x0944…094e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017c}
0x094e…0964 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0005, t01=0x0186}
0x0964…097a Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS: *«, t00=0x0006, t01=0x000c}
0x097a…0990 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0006, t01=0x0022}
0x0990…099a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0038}
0x099a…09b2 Head {h00=0x0014, h01=0x0050, text=»* TOSS GLOBALS:«, t00=0x0006, t01=0x0042}
0x09b2…09bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x005a}
0x09bc…09ec Head {h00=0x002c, h01=0x0050, text=» EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK «, t00=0x0006, t01=0x0064}
0x09ec…0a24 Head {h00=0x0034, h01=0x0050, text=» EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY«, t00=0x0006, t01=0x0094}
0x0a24…0a4e Head {h00=0x0026, h01=0x0050, text=» EXTRN TDISP DISPATCHER LKM ENTRY «, t00=0x0006, t01=0x00cc}
0x0a4e…0a80 Head {h00=0x002e, h01=0x0050, text=» EXTRN RETUR8 POP A1-A8 CONT'S AND RETURN «, t00=0x0006, t01=0x00f6}
0x0a80…0ac6 Head {h00=0x0042, h01=0x0050, text=» EXTRN TENDIO END-OF-I/O HOUSEKEEPING AND QUEUEING SUBROUTINE «, t00=0x0006, t01=0x0128}
0x0ac6…0adc Head {h00=0x0012, h01=0x0050, text=» EXTRN SETIMP «, t00=0x0006, t01=0x016e}
0x0adc…0b0e Head {h00=0x002e, h01=0x0050, text=» EXTRN SPDLCI DATA SOP LIGHTS AND FD POWER«, t00=0x0006, t01=0x0184}
0x0b0e…0b1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0026}
0x0b1c…0b24 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0034}
0x0b24…0b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003c}
0x0b2e…0b5a Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0007, t01=0x0046}
0x0b5a…0b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0072}
0x0b64…0b82 Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS «, t00=0x0007, t01=0x007c}
0x0b82…0b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009a}
0x0b8c…0bb8 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0007, t01=0x00a4}
0x0bb8…0bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d0}
0x0bc2…0bea Head {h00=0x0024, h01=0x001f, text=» EXTRN DWTCHP CHANNEL PARAMETER «, t00=0x0007, t01=0x00da}
0x0bea…0c06 Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0007, t01=0x0102}
0x0c06…0c28 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0007, t01=0x011e}
0x0c28…0c50 Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0007, t01=0x0140}
0x0c50…0c7a Head {h00=0x0026, h01=0x0022, text=» EXTRN DWTADR DRIVER ADDRESS BLOCK«, t00=0x0007, t01=0x0168}
0x0c7a…0c9c (8, 0, 400) Head {h00=0x001e, h01=0x001a, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0008, t01=0x0004}
0x0c9c…0cca Head {h00=0x002a, h01=0x0025, text=» EXTRN DWTWAT WAIT/ACTIVATE INDICATOR «, t00=0x0008, t01=0x0026}
0x0cca…0cee Head {h00=0x0020, h01=0x001b, text=» EXTRN DWTTQ TERMINAL QUEUE «, t00=0x0008, t01=0x0054}
0x0cee…0d20 Head {h00=0x002e, h01=0x0050, text=» EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT«, t00=0x0008, t01=0x0078}
0x0d20…0d4c Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH IN ECB«, t00=0x0008, t01=0x00aa}
0x0d4c…0d72 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0008, t01=0x00d6}
0x0d72…0d90 Head {h00=0x001a, h01=0x0050, text=»TIME EQU 5 FLASH TIME «, t00=0x0008, t01=0x00fc}
0x0d90…0d9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x011a}
0x0d9e…0dbc Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0008, t01=0x0128}
0x0dbc…0de4 Head {h00=0x0024, h01=0x0050, text=»* EXTENDED SOP INPUT DWT OR NOT «, t00=0x0008, t01=0x0146}
0x0de4…0e04 Head {h00=0x001c, h01=0x0050, text=»* SOPX=0 => NOT EXTENDED«, t00=0x0008, t01=0x016e}
0x0e04…0e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018e}
0x0e0e…0e16 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0008}
0x0e16…0e28 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0009, t01=0x0010}
0x0e28…0e3a Head {h00=0x000e, h01=0x0050, text=»SOPX EQU 0«, t00=0x0009, t01=0x0022}
0x0e3a…0e44 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0009, t01=0x0034}
0x0e44…0e4e Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0009, t01=0x003e}
0x0e4e…0e8a Head {h00=0x0038, h01=0x0050, text=»* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0009, t01=0x0048}
0x0e8a…0eac Head {h00=0x001e, h01=0x0050, text=»* BY SETTING CREDIT = 1 «, t00=0x0009, t01=0x0084}
0x0eac…0ee4 Head {h00=0x0034, h01=0x0050, text=»* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS«, t00=0x0009, t01=0x00a6}
0x0ee4…0f08 Head {h00=0x0020, h01=0x0050, text=»* /37 AND /38 RESPECTIVLY «, t00=0x0009, t01=0x00de}
0x0f08…0f4e Head {h00=0x0042, h01=0x0050, text=»* BY SETTING CREDIT=1 THE SOP-SWITCHES IS INDEXED:1,2,3,... «, t00=0x0009, t01=0x0102}
0x0f4e…0f80 Head {h00=0x002e, h01=0x0050, text=»* 1 CORRESPONDS TO THE RIGHTMOST SWITCH.«, t00=0x0009, t01=0x0148}
0x0f80…0fc2 Head {h00=0x003e, h01=0x0050, text=»* IN CASE OF POWER ON ZERO IS STORED IN THE CONTROL WORD«, t00=0x0009, t01=0x017a}
0x0fc2…0fda Head {h00=0x0014, h01=0x0050, text=»* OF THE ECB. «, t00=0x000a, t01=0x002c}
0x0fda…0fe4 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0044}
0x0fe4…0fec Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x004e}
0x0fec…1000 Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 1«, t00=0x000a, t01=0x0056}
0x1000…100a Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x006a}
0x100a…1014 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0074}
0x1014…1058 Head {h00=0x0040, h01=0x0050, text=»* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY «, t00=0x000a, t01=0x007e}
0x1058…1072 Head {h00=0x0016, h01=0x0050, text=»* SETTING X:B=1 «, t00=0x000a, t01=0x00c2}
0x1072…107c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00dc}
0x107c…108e Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000a, t01=0x00e6}
0x108e…10a2 Head {h00=0x0010, h01=0x0050, text=»WRFLA EQU 0 «, t00=0x000a, t01=0x00f8}
0x10a2…10ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010c}
0x10ac…10b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0116}
0x10b6…10e8 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000a, t01=0x0120}
0x10e8…1116 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000a, t01=0x0152}
0x1116…1120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0180}
0x1120…1134 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x000a, t01=0x018a}
0x1134…113e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000e}
0x113e…1148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0018}
0x1148…1182 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000b, t01=0x0022}
0x1182…11b4 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000b, t01=0x005c}
0x11b4…11be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x008e}
0x11be…11d2 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x000b, t01=0x0098}
0x11d2…11dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ac}
0x11dc…1200 Head {h00=0x0020, h01=0x0050, text=»DVBLEN EQU 0 MMU BUFFER SIZE«, t00=0x000b, t01=0x00b6}
0x1200…1226 Head {h00=0x0022, h01=0x0050, text=»DEVIND EQU -2 SOP DEVICE INDEX«, t00=0x000b, t01=0x00da}
0x1226…1230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0100}
0x1230…123e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x010a}
0x123e…1248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0118}
0x1248…1252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0122}
0x1252…1286 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000b, t01=0x012c}
0x1286…1290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0160}
0x1290…12a6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000b, t01=0x016a}
0x12a6…12be Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000b, t01=0x0180}
0x12be…12ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0008}
0x12ca…12d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0014}
0x12d4…12ea Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000c, t01=0x001e}
0x12ea…1304 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000c, t01=0x0034}
0x1304…1310 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x004e}
0x1310…131a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005a}
0x131a…1344 Head {h00=0x0026, h01=0x0050, text=»DWTTP EQU START+/00 TIMER POINTER «, t00=0x000c, t01=0x0064}
0x1344…134e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008e}
0x134e…135c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0098}
0x135c…1366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a6}
0x1366…1388 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000c, t01=0x00b0}
0x1388…13aa Head {h00=0x001e, h01=0x0050, text=»* S.O.P. DEVICE ADDRESS: *«, t00=0x000c, t01=0x00d2}
0x13aa…13cc Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000c, t01=0x00f4}
0x13cc…13d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0116}
0x13d6…13e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0120}
0x13e0…1404 Head {h00=0x0020, h01=0x0050, text=»SOPDA EQU /2E DEVICE ADDRESS«, t00=0x000c, t01=0x012a}
0x1404…140e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x014e}
0x140e…1418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0158}
0x1418…1422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0162}
0x1422…1448 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000c, t01=0x016c}
0x1448…146e (13, 0, 400) Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0004}
0x146e…1494 Head {h00=0x0022, h01=0x0050, text=»* S.O.P. CHANNEL UNIT TABLE *«, t00=0x000d, t01=0x002a}
0x1494…14ba Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0050}
0x14ba…14e0 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x0076}
0x14e0…14ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009c}
0x14ea…14f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a6}
0x14f4…1528 Head {h00=0x0030, h01=0x0050, text=»SOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK:«, t00=0x000d, t01=0x00b0}
0x1528…1532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e4}
0x1532…1556 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x000d, t01=0x00ee}
0x1556…1578 Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000d, t01=0x0112}
0x1578…15b2 Head {h00=0x0036, h01=0x0050, text=»SOPADI EQU * INPUT ADDRESS BLOCK (FOR READ ORDERS)«, t00=0x000d, t01=0x0134}
0x15b2…15bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016e}
0x15bc…15e8 Head {h00=0x0028, h01=0x0050, text=» DATA SOPAS ACTIVATE SWITCHES ENTRY «, t00=0x000d, t01=0x0178}
0x15e8…160e Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x0014}
0x160e…1618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003a}
0x1618…163c Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x000e, t01=0x0044}
0x163c…165e Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000e, t01=0x0068}
0x165e…1688 Head {h00=0x0026, h01=0x0050, text=»SOPADU EQU * ACTIVATE LIGHTS ENTRY«, t00=0x000e, t01=0x008a}
0x1688…1692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b4}
0x1692…16bc Head {h00=0x0026, h01=0x0050, text=» DATA SOPAL ACTIVATE LIGHTS ENTRY «, t00=0x000e, t01=0x00be}
0x16bc…16e2 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x00e8}
0x16e2…16ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010e}
0x16ec…1710 Head {h00=0x0020, h01=0x0050, text=»* BIT 0 CONTROLS FD POWER «, t00=0x000e, t01=0x0118}
0x1710…172a Head {h00=0x0016, h01=0x0050, text=»* (0=ON, 1=OFF) «, t00=0x000e, t01=0x013c}
0x172a…1738 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0156}
0x1738…1742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0164}
0x1742…1768 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000e, t01=0x016e}
0x1768…178e (15, 0, 400) Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0004}
0x178e…17b4 Head {h00=0x0022, h01=0x0050, text=»* S.O.P. ACTIVATION ROUTINE: *«, t00=0x000f, t01=0x002a}
0x17b4…17da Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0050}
0x17da…1800 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000f, t01=0x0076}
0x1800…180a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009c}
0x180a…184c Head {h00=0x003e, h01=0x0050, text=»* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION«, t00=0x000f, t01=0x00a6}
0x184c…1868 Head {h00=0x0018, h01=0x0050, text=»* IS CARRIED OUT. «, t00=0x000f, t01=0x00e8}
0x1868…1872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0104}
0x1872…18a0 Head {h00=0x002a, h01=0x0050, text=»SOPAS EQU * SWITCHES ACTIVATION ENTRY «, t00=0x000f, t01=0x010e}
0x18a0…18aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x013c}
0x18aa…18c8 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 COPY ORDER «, t00=0x000f, t01=0x0146}
0x18c8…18d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0164}
0x18d2…18f8 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/02 SEE IF READ ORDER:«, t00=0x000f, t01=0x016e}
0x18f8…1902 (16, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x1902…1930 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) SOPER ERROR IF NOT READ ORDER «, t00=0x0010, t01=0x000e}
0x1930…193a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003c}
0x193a…1958 Head {h00=0x001a, h01=0x0050, text=»* INPUT SWITCH VALUE«, t00=0x0010, t01=0x0046}
0x1958…1962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0064}
0x1962…1990 Head {h00=0x002a, h01=0x0050, text=»SOPIN LDR* A2,A6 POWER UP INDICATION ?«, t00=0x0010, t01=0x006e}
0x1990…19a6 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0010, t01=0x009c}
0x19a6…19bc Head {h00=0x0012, h01=0x0050, text=» RF(Z) EXIT NO«, t00=0x0010, t01=0x00b2}
0x19bc…19e4 Head {h00=0x0024, h01=0x0050, text=» CMR A6 YES CLEAR FOR NEXT REQ. «, t00=0x0010, t01=0x00c8}
0x19e4…19f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00f0}
0x19f0…1a06 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0010, t01=0x00fc}
0x1a06…1a1e Head {h00=0x0014, h01=0x0050, text=» RF(NZ) EXIT NO «, t00=0x0010, t01=0x0112}
0x1a1e…1a34 Head {h00=0x0012, h01=0x0050, text=» STR A7,A6 YES«, t00=0x0010, t01=0x012a}
0x1a34…1a40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0140}
0x1a40…1a52 Head {h00=0x000e, h01=0x0050, text=» RF IHSOP3«, t00=0x0010, t01=0x014c}
0x1a52…1a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015e}
0x1a5c…1a6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0168}
0x1a6a…1a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0176}
0x1a74…1aa4 Head {h00=0x002c, h01=0x0050, text=»* ENTRY FOR CHANGES OF S.O.P. LIGHTS «, t00=0x0010, t01=0x0180}
0x1aa4…1aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0020}
0x1aae…1ad8 Head {h00=0x0026, h01=0x0050, text=»SOPAL EQU * ACTIVATE LIGHTS ENTRY «, t00=0x0011, t01=0x002a}
0x1ad8…1ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0054}
0x1ae2…1b06 Head {h00=0x0020, h01=0x0050, text=» LD A3,10,A8 CHANGED LIGHTS «, t00=0x0011, t01=0x005e}
0x1b06…1b36 Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/07FF BITS 5-15 CONTROLS LIGHTS«, t00=0x0011, t01=0x0082}
0x1b36…1b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b2}
0x1b40…1b5e Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 COPY ORDER «, t00=0x0011, t01=0x00bc}
0x1b5e…1b72 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0011, t01=0x00da}
0x1b72…1b88 Head {h00=0x0012, h01=0x0050, text=» CCK A4,/3939 «, t00=0x0011, t01=0x00ee}
0x1b88…1b9c Head {h00=0x0010, h01=0x0050, text=» RF(E) SOPFL«, t00=0x0011, t01=0x0104}
0x1b9c…1ba8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0118}
0x1ba8…1bbe Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0011, t01=0x0124}
0x1bbe…1bea Head {h00=0x0028, h01=0x0050, text=» SUK A4,/05 SEE IF 'LIGHTS ON' ORDER«, t00=0x0011, t01=0x013a}
0x1bea…1bf6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0166}
0x1bf6…1c0c Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0011, t01=0x0172}
0x1c0c…1c20 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/37 «, t00=0x0011, t01=0x0188}
0x1c20…1c2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x000c}
0x1c2c…1c56 Head {h00=0x0026, h01=0x0050, text=» RF(Z) SOPON IF SO, TURN ON LIGHTS«, t00=0x0012, t01=0x0018}
0x1c56…1c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0042}
0x1c60…1c8a Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 SEE IF LIGHTS OFF ORDER «, t00=0x0012, t01=0x004c}
0x1c8a…1ca0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SOPOFF «, t00=0x0012, t01=0x0076}
0x1ca0…1cca Head {h00=0x0026, h01=0x0050, text=»SOPER ABL(NZ) DISIOE ILLEGAL ORDER«, t00=0x0012, t01=0x008c}
0x1cca…1cde Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0012, t01=0x00b6}
0x1cde…1cec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00ca}
0x1cec…1cf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d8}
0x1cf6…1d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e2}
0x1d00…1d1a Head {h00=0x0016, h01=0x0050, text=»* FLASH LIGHTS«, t00=0x0012, t01=0x00ec}
0x1d1a…1d24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0106}
0x1d24…1d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0110}
0x1d2e…1d42 Head {h00=0x0010, h01=0x0050, text=»SOPFL EQU * «, t00=0x0012, t01=0x011a}
0x1d42…1d5a Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0012, t01=0x012e}
0x1d5a…1d86 Head {h00=0x0028, h01=0x0050, text=» RF(NE) FL010 TIMER ALREADY STARTED «, t00=0x0012, t01=0x0146}
0x1d86…1d9c Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTTP «, t00=0x0012, t01=0x0172}
0x1d9c…1dae Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0012, t01=0x0188}
0x1dae…1dc0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0013, t01=0x000a}
0x1dc0…1dd6 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0013, t01=0x001c}
0x1dd6…1dee Head {h00=0x0014, h01=0x0050, text=» DATA FLTUT,TIME«, t00=0x0013, t01=0x0032}
0x1dee…1e06 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTTP,A6 «, t00=0x0013, t01=0x004a}
0x1e06…1e1c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FFBF«, t00=0x0013, t01=0x0062}
0x1e1c…1e40 Head {h00=0x0020, h01=0x0050, text=» ANS A1,DWTST,A6 SET ON FLAG«, t00=0x0013, t01=0x0078}
0x1e40…1e54 Head {h00=0x0010, h01=0x0050, text=»FL010 EQU * «, t00=0x0013, t01=0x009c}
0x1e54…1e86 Head {h00=0x002e, h01=0x0050, text=»* A3 CONTAINS LIGHTS THAT SHOULD FLASH «, t00=0x0013, t01=0x00b0}
0x1e86…1eb4 Head {h00=0x002a, h01=0x0050, text=» ORS A3,FLASH STORE NEW LAMPS TO FLASH«, t00=0x0013, t01=0x00e2}
0x1eb4…1ed0 Head {h00=0x0018, h01=0x0050, text=»FL015 LD A1,DWTST,A6«, t00=0x0013, t01=0x0110}
0x1ed0…1ee4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/40 «, t00=0x0013, t01=0x012c}
0x1ee4…1ef8 Head {h00=0x0010, h01=0x0050, text=» RF(Z) FL020«, t00=0x0013, t01=0x0140}
0x1ef8…1f22 Head {h00=0x0026, h01=0x0050, text=» ORS A3,SPDLCI FIXA TILL DET HELA!«, t00=0x0013, t01=0x0154}
0x1f22…1f36 Head {h00=0x0010, h01=0x0050, text=» RF SOPONOFF«, t00=0x0013, t01=0x017e}
0x1f36…1f4a (20, 0, 400) Head {h00=0x0010, h01=0x0050, text=»FL020 EQU * «, t00=0x0014, t01=0x0004}
0x1f4a…1f5c Head {h00=0x000e, h01=0x0050, text=» C1R A3,A3«, t00=0x0014, t01=0x0018}
0x1f5c…1f72 Head {h00=0x0012, h01=0x0050, text=» ANS A3,SPDLCI«, t00=0x0014, t01=0x002a}
0x1f72…1f86 Head {h00=0x0010, h01=0x0050, text=» RF SOPONOF «, t00=0x0014, t01=0x0040}
0x1f86…1f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0054}
0x1f90…1f9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x005e}
0x1f9e…1fa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006c}
0x1fa8…1fca Head {h00=0x001e, h01=0x0050, text=»FLTUT EQU * FLASH TIME OUT«, t00=0x0014, t01=0x0076}
0x1fca…1fe2 Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWSO01 «, t00=0x0014, t01=0x0098}
0x1fe2…1ff6 Head {h00=0x0010, h01=0x0050, text=» LD A3,FLASH«, t00=0x0014, t01=0x00b0}
0x1ff6…202a Head {h00=0x0030, h01=0x0050, text=» RF(Z) FL030 NO MORE FLASHING FOR THIS TIME «, t00=0x0014, t01=0x00c4}
0x202a…204e Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x0014, t01=0x00f8}
0x204e…2066 Head {h00=0x0014, h01=0x0050, text=» ST* A1,DWTTP,A6«, t00=0x0014, t01=0x011c}
0x2066…207a Head {h00=0x0010, h01=0x0050, text=» LDK A1,/40 «, t00=0x0014, t01=0x0134}
0x207a…2092 Head {h00=0x0014, h01=0x0050, text=» XRS A1,DWTST,A6«, t00=0x0014, t01=0x0148}
0x2092…20a4 Head {h00=0x000e, h01=0x0050, text=» RB FL015 «, t00=0x0014, t01=0x0160}
0x20a4…20be Head {h00=0x0016, h01=0x0050, text=»FL030 CM DWTTP,A6 «, t00=0x0014, t01=0x0172}
0x20be…20d6 Head {h00=0x0014, h01=0x0050, text=» RF EXIT END I/O«, t00=0x0014, t01=0x018c}
0x20d6…20e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0014}
0x20e2…20f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0020}
0x20f0…20fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002e}
0x20fa…210e Head {h00=0x0010, h01=0x0050, text=»SOPOFF EQU *«, t00=0x0015, t01=0x0038}
0x210e…213e Head {h00=0x002c, h01=0x0050, text=» C1R A3,A3 GET COMPLEMENTED CONTROL WORD«, t00=0x0015, t01=0x004c}
0x213e…2176 Head {h00=0x0034, h01=0x0050, text=» ANS A3,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF «, t00=0x0015, t01=0x007c}
0x2176…218a Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0015, t01=0x00b4}
0x218a…21b2 Head {h00=0x0024, h01=0x0050, text=» ANS A3,FLASH STOP SOME FLASHING«, t00=0x0015, t01=0x00c8}
0x21b2…21be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00f0}
0x21be…21ee Head {h00=0x002c, h01=0x0050, text=» RF SOPONOF BRANCH TO COMMON ON/OFF PATH«, t00=0x0015, t01=0x00fc}
0x21ee…21f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012c}
0x21f8…2202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0136}
0x2202…2232 Head {h00=0x002c, h01=0x0050, text=»* TURN ON LIGHTS INDICATED BY '1' BITS:«, t00=0x0015, t01=0x0140}
0x2232…223c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0170}
0x223c…2250 Head {h00=0x0010, h01=0x0050, text=»SOPON EQU * «, t00=0x0015, t01=0x017a}
0x2250…2276 Head {h00=0x0022, h01=0x0050, text=»* A3 CONTAINS CONTROL WORD «, t00=0x0015, t01=0x018e}
0x2276…22a8 Head {h00=0x002e, h01=0x0050, text=» ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON «, t00=0x0016, t01=0x0024}
0x22a8…22bc Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0016, t01=0x0056}
0x22bc…22ce Head {h00=0x000e, h01=0x0050, text=» C1R A3,A3«, t00=0x0016, t01=0x006a}
0x22ce…22fc Head {h00=0x002a, h01=0x0050, text=» ANS A3,FLASH STOP SOME OTHER FLASHING«, t00=0x0016, t01=0x007c}
0x22fc…2308 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00aa}
0x2308…2312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b6}
0x2312…2330 Head {h00=0x001a, h01=0x0050, text=»* COMMON ON/OFF PATH:«, t00=0x0016, t01=0x00c0}
0x2330…233a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00de}
0x233a…236e Head {h00=0x0030, h01=0x0050, text=»SOPONOFF LD A1,SPDLCI GET LIGHTS' CORE IMAGE«, t00=0x0016, t01=0x00e8}
0x236e…239a Head {h00=0x0028, h01=0x0050, text=» OTR A1,0,SOPDA AND OUTPUT TO S.O.P.«, t00=0x0016, t01=0x011c}
0x239a…23a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0148}
0x23a4…23c4 Head {h00=0x001c, h01=0x0050, text=» RF ENDIO PERFORM TENDIO«, t00=0x0016, t01=0x0152}
0x23c4…23d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0172}
0x23d2…23dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0180}
0x23dc…2400 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0016, t01=0x018a}
0x2400…2424 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0017, t01=0x001e}
0x2424…2448 Head {h00=0x0020, h01=0x0050, text=»* S.O.P. INTERRUPT HANDLER *«, t00=0x0017, t01=0x0042}
0x2448…246c Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0017, t01=0x0066}
0x246c…2490 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0017, t01=0x008a}
0x2490…249a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ae}
0x249a…24a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b8}
0x24a4…24e8 Head {h00=0x0040, h01=0x0050, text=»* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. «, t00=0x0017, t01=0x00c2}
0x24e8…24f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0106}
0x24f2…2536 Head {h00=0x0040, h01=0x0050, text=»* IF NO REQUEST IS IN PROCEEDING THE INTERRUPT IS IGNORED.«, t00=0x0017, t01=0x0110}
0x2536…2540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0154}
0x2540…2548 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x015e}
0x2548…255c Head {h00=0x0010, h01=0x0050, text=»IHSOP EQU * «, t00=0x0017, t01=0x0166}
0x255c…2572 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0017, t01=0x017a}
0x2572…259c Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0017, t01=0x0190}
0x259c…25a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x002a}
0x25a8…25b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0036}
0x25b2…25c8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0018, t01=0x0040}
0x25c8…25ee Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0018, t01=0x0056}
0x25ee…25fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x007c}
0x25fa…2604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0088}
0x2604…262c Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0018, t01=0x0092}
0x262c…264e Head {h00=0x001e, h01=0x0050, text=» INR A1,0,SOPDA GET SWITCH«, t00=0x0018, t01=0x00ba}
0x264e…266c Head {h00=0x001a, h01=0x0050, text=» SRN A1,A2 CALC INDEX «, t00=0x0018, t01=0x00dc}
0x266c…2682 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0018, t01=0x00fa}
0x2682…2694 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0018, t01=0x0110}
0x2694…26a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0122}
0x26a0…26b6 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0018, t01=0x012e}
0x26b6…26c8 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0018, t01=0x0144}
0x26c8…26d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0156}
0x26d4…26dc Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0162}
0x26dc…26f0 Head {h00=0x0010, h01=0x0050, text=»IHSOP1 EQU *«, t00=0x0018, t01=0x016a}
0x26f0…2704 Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x0018, t01=0x017e}
0x2704…272a (25, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDKL A6,DWSI02 ANY REQUEST ON«, t00=0x0019, t01=0x0004}
0x272a…274e Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0019, t01=0x002a}
0x274e…2766 Head {h00=0x0014, h01=0x0050, text=» RF(N) IHSOP2 NO«, t00=0x0019, t01=0x004e}
0x2766…278e Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB-ADDRESS«, t00=0x0019, t01=0x0066}
0x278e…27b2 Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBCW,A8 STORE INDEX «, t00=0x0019, t01=0x008e}
0x27b2…27de Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x0019, t01=0x00b2}
0x27de…27f0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0019, t01=0x00de}
0x27f0…280e Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0019, t01=0x00f0}
0x280e…281a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x010e}
0x281a…2822 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x011a}
0x2822…284e Head {h00=0x0028, h01=0x0050, text=»IHSOP2 LDKL A6,DWSI01 ANY REQUEST ON«, t00=0x0019, t01=0x0122}
0x284e…2872 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0019, t01=0x014e}
0x2872…2888 Head {h00=0x0012, h01=0x0050, text=» RF(N) EXIT NO«, t00=0x0019, t01=0x0172}
0x2888…28b0 Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB-ADDRESS«, t00=0x0019, t01=0x0188}
0x28b0…28b8 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0020}
0x28b8…28e2 Head {h00=0x0026, h01=0x0050, text=»IHSOP3 ST A2,ECBCW,A8 STORE INDEX «, t00=0x001a, t01=0x0028}
0x28e2…28ea Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0052}
0x28ea…291a Head {h00=0x002c, h01=0x0050, text=»ENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH«, t00=0x001a, t01=0x005a}
0x291a…292c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001a, t01=0x008a}
0x292c…294a Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x001a, t01=0x009c}
0x294a…2952 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00ba}
0x2952…297a Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x001a, t01=0x00c2}
0x297a…2988 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00ea}
0x2988…2992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00f8}
0x2992…29c0 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001a, t01=0x0102}
0x29c0…29ee Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x001a, t01=0x0130}
0x29ee…2a1c Head {h00=0x002a, h01=0x0050, text=»* S.O.P POWER UP RECOVERY ROUTINE * «, t00=0x001a, t01=0x015e}
0x2a1c…2a4a Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x001a, t01=0x018c}
0x2a4a…2a78 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001b, t01=0x002a}
0x2a78…2a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0058}
0x2a82…2a8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0062}
0x2a8c…2aca Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE «, t00=0x001b, t01=0x006c}
0x2aca…2b06 Head {h00=0x0038, h01=0x0050, text=»* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD«, t00=0x001b, t01=0x00aa}
0x2b06…2b4a Head {h00=0x0040, h01=0x0050, text=»* BE PRESENT IN THE POWER FAILURE RECOVERY TABLE (PFTAB). «, t00=0x001b, t01=0x00e6}
0x2b4a…2b8a Head {h00=0x003c, h01=0x0050, text=»* IF RUNNING READ REQUEST THIS IS COMPLETED WITH -2 IN«, t00=0x001b, t01=0x012a}
0x2b8a…2bbe Head {h00=0x0030, h01=0x0050, text=»* CONTROL WORD. ELSE -2 IS SAVED IN DWTCHP«, t00=0x001b, t01=0x016a}
0x2bbe…2bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000e}
0x2bc8…2bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0018}
0x2bd2…2bf2 Head {h00=0x001c, h01=0x0050, text=»SOPR EQU * ENTRY POINT «, t00=0x001c, t01=0x0022}
0x2bf2…2c08 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001c, t01=0x0042}
0x2c08…2c32 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x001c, t01=0x0058}
0x2c32…2c3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0082}
0x2c3e…2c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x008e}
0x2c48…2c5e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001c, t01=0x0098}
0x2c5e…2c84 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x001c, t01=0x00ae}
0x2c84…2c90 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00d4}
0x2c90…2c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e0}
0x2c9a…2cc0 Head {h00=0x0022, h01=0x0050, text=» CIO A1,1,SOPDA ACTIVATE INPUT«, t00=0x001c, t01=0x00ea}
0x2cc0…2cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0110}
0x2cca…2cf6 Head {h00=0x0028, h01=0x0050, text=» LD A1,SPDLCI GET LIGHTS' CORE IMAGE«, t00=0x001c, t01=0x011a}
0x2cf6…2d26 Head {h00=0x002c, h01=0x0050, text=» OTR A1,0,SOPDA AND OUTPUT TO THE LIGHTS«, t00=0x001c, t01=0x0146}
0x2d26…2d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0176}
0x2d30…2d46 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x001c, t01=0x0180}
0x2d46…2d6c Head {h00=0x0022, h01=0x0050, text=» LDKL A2,-2 POWER UP INDICATOR«, t00=0x001d, t01=0x0008}
0x2d6c…2d78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x002e}
0x2d78…2d8e Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x001d, t01=0x003a}
0x2d8e…2da0 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001d, t01=0x0050}
0x2da0…2dac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0062}
0x2dac…2db4 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x006e}
0x2db4…2dc8 Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x001d, t01=0x0076}
0x2dc8…2dee Head {h00=0x0022, h01=0x0050, text=» LDKL A6,DWSI02 ANY REQUEST ON«, t00=0x001d, t01=0x008a}
0x2dee…2e16 Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS WORD «, t00=0x001d, t01=0x00b0}
0x2e16…2e30 Head {h00=0x0016, h01=0x0050, text=» RF(NN) SOPR1 YES «, t00=0x001d, t01=0x00d8}
0x2e30…2e50 Head {h00=0x001c, h01=0x0050, text=» STR A2,A6 IND POWER UP «, t00=0x001d, t01=0x00f2}
0x2e50…2e5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0112}
0x2e5c…2e64 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x011e}
0x2e64…2e90 Head {h00=0x0028, h01=0x0050, text=»SOPR1 LDKL A6,DWSI01 ANY REQUEST ON «, t00=0x001d, t01=0x0126}
0x2e90…2eb4 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x001d, t01=0x0152}
0x2eb4…2ece Head {h00=0x0016, h01=0x0050, text=» RF(NN) SOPR2 YES «, t00=0x001d, t01=0x0176}
0x2ece…2eee Head {h00=0x001c, h01=0x0050, text=» STR A2,A6 IND POWER UP «, t00=0x001d, t01=0x0190}
0x2eee…2ef6 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0020}
0x2ef6…2f0e Head {h00=0x0014, h01=0x0050, text=»SOPR2 RB IHSOP1 «, t00=0x001e, t01=0x0028}
0x2f0e…2f1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0040}
0x2f1c…2f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x004e}
0x2f26…2f4a Head {h00=0x0020, h01=0x0050, text=»* D W S I 0 1 : INPUT DWT «, t00=0x001e, t01=0x0058}
0x2f4a…2f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x007c}
0x2f54…2f68 Head {h00=0x0010, h01=0x0050, text=»DWSI01 EQU *«, t00=0x001e, t01=0x0086}
0x2f68…2f98 Head {h00=0x002c, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER: POWER UP IND «, t00=0x001e, t01=0x009a}
0x2f98…2fc8 Head {h00=0x002c, h01=0x0050, text=» DATA /8000 /8000 MEANS DEVICE IS READY «, t00=0x001e, t01=0x00ca}
0x2fc8…2fe4 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x001e, t01=0x00fa}
0x2fe4…2ffa Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x001e, t01=0x0116}
0x2ffa…300e Head {h00=0x0010, h01=0x0050, text=» DATA SOPADI«, t00=0x001e, t01=0x012c}
0x300e…301e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001e, t01=0x0140}
0x301e…302e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001e, t01=0x0150}
0x302e…304c Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x001e, t01=0x0160}
0x304c…3062 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x001e, t01=0x017e}
0x3062…308c (31, 0, 400) Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x001f, t01=0x0004}
0x308c…30b0 Head {h00=0x0020, h01=0x0050, text=» DATA DEVECI MMU ECB ADDRESS«, t00=0x001f, t01=0x002e}
0x30b0…30c4 Head {h00=0x0010, h01=0x0050, text=»DEVECI EQU *«, t00=0x001f, t01=0x0052}
0x30c4…30de Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x001f, t01=0x0066}
0x30de…30ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0080}
0x30ea…30f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x008c}
0x30f4…3118 Head {h00=0x0020, h01=0x0050, text=»* D W S O 0 1 : OUTPUT DWT«, t00=0x001f, t01=0x0096}
0x3118…3122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ba}
0x3122…312c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00c4}
0x312c…3140 Head {h00=0x0010, h01=0x0050, text=»DWSO01 EQU *«, t00=0x001f, t01=0x00ce}
0x3140…3166 Head {h00=0x0022, h01=0x0050, text=» DATA /0040 CHANNEL PARAMETER «, t00=0x001f, t01=0x00e2}
0x3166…3196 Head {h00=0x002c, h01=0x0050, text=» DATA /8000 /8000 MEANS DEVICE IS READY «, t00=0x001f, t01=0x0108}
0x3196…31b2 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x001f, t01=0x0138}
0x31b2…31c8 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x001f, t01=0x0154}
0x31c8…31f6 Head {h00=0x002a, h01=0x0050, text=» DATA SOPADU POINTER TO ADDRESS BLOCK «, t00=0x001f, t01=0x016a}
0x31f6…3212 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0020, t01=0x0008}
0x3212…323a Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0020, t01=0x0024}
0x323a…3258 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0020, t01=0x004c}
0x3258…326e Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0020, t01=0x006a}
0x326e…3298 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0020, t01=0x0080}
0x3298…32bc Head {h00=0x0020, h01=0x0050, text=» DATA DEVECO MMU ECB ADDRESS«, t00=0x0020, t01=0x00aa}
0x32bc…32c8 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0020, t01=0x00ce}
0x32c8…32e6 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TIMER POINTER «, t00=0x0020, t01=0x00da}
0x32e6…3318 Head {h00=0x002e, h01=0x0050, text=»FLASH DATA 0 SAVE AREA FOR FLASHING LAMPS «, t00=0x0020, t01=0x00f8}
0x3318…332e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0020, t01=0x012a}
0x332e…3342 Head {h00=0x0010, h01=0x0050, text=»DEVECO EQU *«, t00=0x0020, t01=0x0140}
0x3342…335c Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0020, t01=0x0154}
0x335c…3368 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x016e}
0x3368…3376 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x017a}
0x3376…337e Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0188}
0x337e…3388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0190}
0x3388…33b6 Head {h00=0x002a, h01=0x0050, text=»* D W S I 0 2 : EXTENDED INPUT DWT «, t00=0x0021, t01=0x000a}
0x33b6…33c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0038}
0x33c0…33c8 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0042}
0x33c8…33dc Head {h00=0x0010, h01=0x0050, text=»DWSI02 EQU *«, t00=0x0021, t01=0x004a}
0x33dc…33f0 Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x0021, t01=0x005e}
0x33f0…3400 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0021, t01=0x0072}
0x3400…3414 Head {h00=0x0010, h01=0x0050, text=» DATA /8000 «, t00=0x0021, t01=0x0082}
0x3414…3430 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0021, t01=0x0096}
0x3430…3446 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0021, t01=0x00b2}
0x3446…345a Head {h00=0x0010, h01=0x0050, text=» DATA SOPADI«, t00=0x0021, t01=0x00c8}
0x345a…346e Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0021, t01=0x00dc}
0x346e…3484 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x00f0}
0x3484…34ae Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0021, t01=0x0106}
0x34ae…34d2 Head {h00=0x0020, h01=0x0050, text=» DATA DEVEC1 MMU ECB ADDRESS«, t00=0x0021, t01=0x0130}
0x34d2…34e6 Head {h00=0x0010, h01=0x0050, text=»DEVEC1 EQU *«, t00=0x0021, t01=0x0154}
0x34e6…3500 Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0021, t01=0x0168}
0x3500…350c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0182}
0x350c…3516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x018e}
0x3516…3520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0008}
0x3520…352a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0012}
0x352a…3536 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0022, t01=0x001c}
0x3536…353a Head {h00=0x4004, h01=0x0000}
0x353a…353e 00 22 00 28 ┆ " (┆
0x353e…3546 (35, 1, 8) 20 04 00 00 00 23 00 04 ┆ # ┆
0x3546…3596 (36, 0, 398) 20 20 43 20 48 20 4c 20 54 20 32 20 00 23 01 8e 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 24 00 14 00 06 00 50 2a 20 00 24 00 34 00 10 00 50 43 48 4c 54 33 5c 45 51 55 5c 2a 20 00 24 00 3e 00 24 ┆ C H L T 2 # P* INTERRUPT FROM CHLT3 $ P* $ 4 PCHLT3 EQU * $ > $┆
0x3596…35e6 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 00 24 00 52 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 24 00 7a 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 ┆ P ST P,INTSAV SAVE LAST INTERRUPT $ R P IFT CPU852=1 $ z & P CF A15,SAVE8 SA┆
0x35e6…3636 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 00 24 00 90 00 08 00 50 5c 58 49 46 00 24 00 ba 00 06 00 50 2a 20 00 24 00 c6 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 34 20 00 24 00 d0 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 ┆VE A1-A8 ON STACK $ P XIF $ P* $ P IFT LOCHAN=4 $ P IFT CPU85┆
0x3636…3686 32 3d 30 20 00 24 00 e6 00 22 00 50 5c 4d 53 52 5c 38 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 00 24 00 fc 00 08 00 50 5c 58 49 46 00 24 01 22 00 06 00 50 2a 20 00 24 01 2e 00 12 00 50 5c 49 46 54 5c 4c 4f 43 ┆2=0 $ " P MSR 8,A15 SAVE A1-A8 ON STACK $ P XIF $ " P* $ . P IFT LOC┆
0x3686…36d4 48 41 4e 3d 34 20 00 24 01 38 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 54 2d 41 44 44 52 45 53 53 20 46 4f 52 20 43 48 4c 54 33 20 00 24 01 4e 00 0e 00 50 5c 52 46 5c 43 4c 54 30 31 30 00 24 01 80 ┆HAN=4 $ 8 . P LDKL A5,CWTLT3 SET CWT-ADDRESS FOR CHLT3 $ N P RF CLT010 $ ┆