|
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: 14042 (0x36da)
Notes: pts_type(SC)
Names: »DRSOP1.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/DRSOP1.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/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 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 * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * 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…0e3c Head {h00=0x0010, h01=0x0050, text=»SOPX EQU X:A«, t00=0x0009, t01=0x0022}
0x0e3c…0e46 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0009, t01=0x0036}
0x0e46…0e50 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0009, t01=0x0040}
0x0e50…0e8c Head {h00=0x0038, h01=0x0050, text=»* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0009, t01=0x004a}
0x0e8c…0eae Head {h00=0x001e, h01=0x0050, text=»* BY SETTING CREDIT = 1 «, t00=0x0009, t01=0x0086}
0x0eae…0ee6 Head {h00=0x0034, h01=0x0050, text=»* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS«, t00=0x0009, t01=0x00a8}
0x0ee6…0f0a Head {h00=0x0020, h01=0x0050, text=»* /37 AND /38 RESPECTIVLY «, t00=0x0009, t01=0x00e0}
0x0f0a…0f50 Head {h00=0x0042, h01=0x0050, text=»* BY SETTING CREDIT=1 THE SOP-SWITCHES IS INDEXED:1,2,3,... «, t00=0x0009, t01=0x0104}
0x0f50…0f82 Head {h00=0x002e, h01=0x0050, text=»* 1 CORRESPONDS TO THE RIGHTMOST SWITCH.«, t00=0x0009, t01=0x014a}
0x0f82…0fc4 Head {h00=0x003e, h01=0x0050, text=»* IN CASE OF POWER ON ZERO IS STORED IN THE CONTROL WORD«, t00=0x0009, t01=0x017c}
0x0fc4…0fdc Head {h00=0x0014, h01=0x0050, text=»* OF THE ECB. «, t00=0x000a, t01=0x002e}
0x0fdc…0fe6 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0046}
0x0fe6…0fee Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0050}
0x0fee…1002 Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 0«, t00=0x000a, t01=0x0058}
0x1002…100c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x006c}
0x100c…1016 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0076}
0x1016…105a Head {h00=0x0040, h01=0x0050, text=»* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY «, t00=0x000a, t01=0x0080}
0x105a…1074 Head {h00=0x0016, h01=0x0050, text=»* SETTING X:B=1 «, t00=0x000a, t01=0x00c4}
0x1074…107e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00de}
0x107e…1090 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000a, t01=0x00e8}
0x1090…10a6 Head {h00=0x0012, h01=0x0050, text=»WRFLA EQU X:B «, t00=0x000a, t01=0x00fa}
0x10a6…10b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0110}
0x10b0…10ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011a}
0x10ba…10ec Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000a, t01=0x0124}
0x10ec…111a Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000a, t01=0x0156}
0x111a…1124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0184}
0x1124…1138 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000a, t01=0x018e}
0x1138…1142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0012}
0x1142…114c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001c}
0x114c…1186 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000b, t01=0x0026}
0x1186…11b8 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000b, t01=0x0060}
0x11b8…11c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0092}
0x11c2…11d6 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000b, t01=0x009c}
0x11d6…11e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b0}
0x11e0…1204 Head {h00=0x0020, h01=0x0050, text=»DVBLEN EQU 0 MMU BUFFER SIZE«, t00=0x000b, t01=0x00ba}
0x1204…122a Head {h00=0x0022, h01=0x0050, text=»DEVIND EQU -2 SOP DEVICE INDEX«, t00=0x000b, t01=0x00de}
0x122a…1234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0104}
0x1234…1242 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x010e}
0x1242…124c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011c}
0x124c…1256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0126}
0x1256…128a Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000b, t01=0x0130}
0x128a…1294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0164}
0x1294…12aa Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000b, t01=0x016e}
0x12aa…12c2 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000b, t01=0x0184}
0x12c2…12ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x000c}
0x12ce…12d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0018}
0x12d8…12ee Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000c, t01=0x0022}
0x12ee…1308 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000c, t01=0x0038}
0x1308…1314 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0052}
0x1314…131e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005e}
0x131e…1348 Head {h00=0x0026, h01=0x0050, text=»DWTTP EQU START+/00 TIMER POINTER «, t00=0x000c, t01=0x0068}
0x1348…1352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0092}
0x1352…1360 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x009c}
0x1360…136a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00aa}
0x136a…138c Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000c, t01=0x00b4}
0x138c…13ae Head {h00=0x001e, h01=0x0050, text=»* S.O.P. DEVICE ADDRESS: *«, t00=0x000c, t01=0x00d6}
0x13ae…13d0 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000c, t01=0x00f8}
0x13d0…13da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011a}
0x13da…13e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0124}
0x13e4…1408 Head {h00=0x0020, h01=0x0050, text=»SOPDA EQU /2E DEVICE ADDRESS«, t00=0x000c, t01=0x012e}
0x1408…1412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0152}
0x1412…141c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x015c}
0x141c…1426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0166}
0x1426…144c Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000c, t01=0x0170}
0x144c…1472 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0008}
0x1472…1498 Head {h00=0x0022, h01=0x0050, text=»* S.O.P. CHANNEL UNIT TABLE *«, t00=0x000d, t01=0x002e}
0x1498…14be Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0054}
0x14be…14e4 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x007a}
0x14e4…14ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a0}
0x14ee…14f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00aa}
0x14f8…152c Head {h00=0x0030, h01=0x0050, text=»SOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK:«, t00=0x000d, t01=0x00b4}
0x152c…1536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e8}
0x1536…155a Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x000d, t01=0x00f2}
0x155a…157c Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000d, t01=0x0116}
0x157c…15b6 Head {h00=0x0036, h01=0x0050, text=»SOPADI EQU * INPUT ADDRESS BLOCK (FOR READ ORDERS)«, t00=0x000d, t01=0x0138}
0x15b6…15c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0172}
0x15c0…15ec Head {h00=0x0028, h01=0x0050, text=» DATA SOPAS ACTIVATE SWITCHES ENTRY «, t00=0x000d, t01=0x017c}
0x15ec…1612 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x0018}
0x1612…161c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003e}
0x161c…1640 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x000e, t01=0x0048}
0x1640…1662 Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000e, t01=0x006c}
0x1662…168c Head {h00=0x0026, h01=0x0050, text=»SOPADU EQU * ACTIVATE LIGHTS ENTRY«, t00=0x000e, t01=0x008e}
0x168c…1696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b8}
0x1696…16c0 Head {h00=0x0026, h01=0x0050, text=» DATA SOPAL ACTIVATE LIGHTS ENTRY «, t00=0x000e, t01=0x00c2}
0x16c0…16e6 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x00ec}
0x16e6…16f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0112}
0x16f0…1714 Head {h00=0x0020, h01=0x0050, text=»* BIT 0 CONTROLS FD POWER «, t00=0x000e, t01=0x011c}
0x1714…172e Head {h00=0x0016, h01=0x0050, text=»* (0=ON, 1=OFF) «, t00=0x000e, t01=0x0140}
0x172e…173c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x015a}
0x173c…1746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0168}
0x1746…176c Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000e, t01=0x0172}
0x176c…1792 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0008}
0x1792…17b8 Head {h00=0x0022, h01=0x0050, text=»* S.O.P. ACTIVATION ROUTINE: *«, t00=0x000f, t01=0x002e}
0x17b8…17de Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0054}
0x17de…1804 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000f, t01=0x007a}
0x1804…180e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a0}
0x180e…1850 Head {h00=0x003e, h01=0x0050, text=»* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION«, t00=0x000f, t01=0x00aa}
0x1850…186c Head {h00=0x0018, h01=0x0050, text=»* IS CARRIED OUT. «, t00=0x000f, t01=0x00ec}
0x186c…1876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0108}
0x1876…18a4 Head {h00=0x002a, h01=0x0050, text=»SOPAS EQU * SWITCHES ACTIVATION ENTRY «, t00=0x000f, t01=0x0112}
0x18a4…18ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0140}
0x18ae…18cc Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 COPY ORDER «, t00=0x000f, t01=0x014a}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0168}
0x18d6…18fc Head {h00=0x0022, h01=0x0050, text=» SUK A4,/02 SEE IF READ ORDER:«, t00=0x000f, t01=0x0172}
0x18fc…1906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0008}
0x1906…1934 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) SOPER ERROR IF NOT READ ORDER «, t00=0x0010, t01=0x0012}
0x1934…193e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0040}
0x193e…195c Head {h00=0x001a, h01=0x0050, text=»* INPUT SWITCH VALUE«, t00=0x0010, t01=0x004a}
0x195c…1966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0068}
0x1966…1994 Head {h00=0x002a, h01=0x0050, text=»SOPIN LDR* A2,A6 POWER UP INDICATION ?«, t00=0x0010, t01=0x0072}
0x1994…19aa Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0010, t01=0x00a0}
0x19aa…19c0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) EXIT NO«, t00=0x0010, t01=0x00b6}
0x19c0…19e8 Head {h00=0x0024, h01=0x0050, text=» CMR A6 YES CLEAR FOR NEXT REQ. «, t00=0x0010, t01=0x00cc}
0x19e8…19f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00f4}
0x19f4…1a0a Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0010, t01=0x0100}
0x1a0a…1a22 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) EXIT NO «, t00=0x0010, t01=0x0116}
0x1a22…1a38 Head {h00=0x0012, h01=0x0050, text=» STR A7,A6 YES«, t00=0x0010, t01=0x012e}
0x1a38…1a44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0144}
0x1a44…1a56 Head {h00=0x000e, h01=0x0050, text=» RF IHSOP3«, t00=0x0010, t01=0x0150}
0x1a56…1a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0162}
0x1a60…1a6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x016c}
0x1a6e…1a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017a}
0x1a78…1aa8 Head {h00=0x002c, h01=0x0050, text=»* ENTRY FOR CHANGES OF S.O.P. LIGHTS «, t00=0x0010, t01=0x0184}
0x1aa8…1ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0024}
0x1ab2…1adc Head {h00=0x0026, h01=0x0050, text=»SOPAL EQU * ACTIVATE LIGHTS ENTRY «, t00=0x0011, t01=0x002e}
0x1adc…1ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0058}
0x1ae6…1b0a Head {h00=0x0020, h01=0x0050, text=» LD A3,10,A8 CHANGED LIGHTS «, t00=0x0011, t01=0x0062}
0x1b0a…1b3a Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/07FF BITS 5-15 CONTROLS LIGHTS«, t00=0x0011, t01=0x0086}
0x1b3a…1b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b6}
0x1b44…1b62 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 COPY ORDER «, t00=0x0011, t01=0x00c0}
0x1b62…1b76 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0011, t01=0x00de}
0x1b76…1b8c Head {h00=0x0012, h01=0x0050, text=» CCK A4,/3939 «, t00=0x0011, t01=0x00f2}
0x1b8c…1ba0 Head {h00=0x0010, h01=0x0050, text=» RF(E) SOPFL«, t00=0x0011, t01=0x0108}
0x1ba0…1bac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x011c}
0x1bac…1bc2 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0011, t01=0x0128}
0x1bc2…1bee Head {h00=0x0028, h01=0x0050, text=» SUK A4,/05 SEE IF 'LIGHTS ON' ORDER«, t00=0x0011, t01=0x013e}
0x1bee…1bfa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x016a}
0x1bfa…1c10 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0011, t01=0x0176}
0x1c10…1c24 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/37 «, t00=0x0011, t01=0x018c}
0x1c24…1c30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0010}
0x1c30…1c5a Head {h00=0x0026, h01=0x0050, text=» RF(Z) SOPON IF SO, TURN ON LIGHTS«, t00=0x0012, t01=0x001c}
0x1c5a…1c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0046}
0x1c64…1c8e Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 SEE IF LIGHTS OFF ORDER «, t00=0x0012, t01=0x0050}
0x1c8e…1ca4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SOPOFF «, t00=0x0012, t01=0x007a}
0x1ca4…1cce Head {h00=0x0026, h01=0x0050, text=»SOPER ABL(NZ) DISIOE ILLEGAL ORDER«, t00=0x0012, t01=0x0090}
0x1cce…1ce2 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0012, t01=0x00ba}
0x1ce2…1cf0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00ce}
0x1cf0…1cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00dc}
0x1cfa…1d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e6}
0x1d04…1d1e Head {h00=0x0016, h01=0x0050, text=»* FLASH LIGHTS«, t00=0x0012, t01=0x00f0}
0x1d1e…1d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010a}
0x1d28…1d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0114}
0x1d32…1d46 Head {h00=0x0010, h01=0x0050, text=»SOPFL EQU * «, t00=0x0012, t01=0x011e}
0x1d46…1d5e Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0012, t01=0x0132}
0x1d5e…1d8a Head {h00=0x0028, h01=0x0050, text=» RF(NE) FL010 TIMER ALREADY STARTED «, t00=0x0012, t01=0x014a}
0x1d8a…1da0 Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTTP «, t00=0x0012, t01=0x0176}
0x1da0…1db2 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0012, t01=0x018c}
0x1db2…1dc4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0013, t01=0x000e}
0x1dc4…1dda Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0013, t01=0x0020}
0x1dda…1df2 Head {h00=0x0014, h01=0x0050, text=» DATA FLTUT,TIME«, t00=0x0013, t01=0x0036}
0x1df2…1e0a Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTTP,A6 «, t00=0x0013, t01=0x004e}
0x1e0a…1e20 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FFBF«, t00=0x0013, t01=0x0066}
0x1e20…1e44 Head {h00=0x0020, h01=0x0050, text=» ANS A1,DWTST,A6 SET ON FLAG«, t00=0x0013, t01=0x007c}
0x1e44…1e58 Head {h00=0x0010, h01=0x0050, text=»FL010 EQU * «, t00=0x0013, t01=0x00a0}
0x1e58…1e8a Head {h00=0x002e, h01=0x0050, text=»* A3 CONTAINS LIGHTS THAT SHOULD FLASH «, t00=0x0013, t01=0x00b4}
0x1e8a…1eb8 Head {h00=0x002a, h01=0x0050, text=» ORS A3,FLASH STORE NEW LAMPS TO FLASH«, t00=0x0013, t01=0x00e6}
0x1eb8…1ed4 Head {h00=0x0018, h01=0x0050, text=»FL015 LD A1,DWTST,A6«, t00=0x0013, t01=0x0114}
0x1ed4…1ee8 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/40 «, t00=0x0013, t01=0x0130}
0x1ee8…1efc Head {h00=0x0010, h01=0x0050, text=» RF(Z) FL020«, t00=0x0013, t01=0x0144}
0x1efc…1f26 Head {h00=0x0026, h01=0x0050, text=» ORS A3,SPDLCI FIXA TILL DET HELA!«, t00=0x0013, t01=0x0158}
0x1f26…1f3a Head {h00=0x0010, h01=0x0050, text=» RF SOPONOFF«, t00=0x0013, t01=0x0182}
0x1f3a…1f4e Head {h00=0x0010, h01=0x0050, text=»FL020 EQU * «, t00=0x0014, t01=0x0008}
0x1f4e…1f60 Head {h00=0x000e, h01=0x0050, text=» C1R A3,A3«, t00=0x0014, t01=0x001c}
0x1f60…1f76 Head {h00=0x0012, h01=0x0050, text=» ANS A3,SPDLCI«, t00=0x0014, t01=0x002e}
0x1f76…1f8a Head {h00=0x0010, h01=0x0050, text=» RF SOPONOF «, t00=0x0014, t01=0x0044}
0x1f8a…1f94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0058}
0x1f94…1fa2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0062}
0x1fa2…1fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0070}
0x1fac…1fce Head {h00=0x001e, h01=0x0050, text=»FLTUT EQU * FLASH TIME OUT«, t00=0x0014, t01=0x007a}
0x1fce…1fe6 Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWSO01 «, t00=0x0014, t01=0x009c}
0x1fe6…1ffa Head {h00=0x0010, h01=0x0050, text=» LD A3,FLASH«, t00=0x0014, t01=0x00b4}
0x1ffa…202e Head {h00=0x0030, h01=0x0050, text=» RF(Z) FL030 NO MORE FLASHING FOR THIS TIME «, t00=0x0014, t01=0x00c8}
0x202e…2052 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x0014, t01=0x00fc}
0x2052…206a Head {h00=0x0014, h01=0x0050, text=» ST* A1,DWTTP,A6«, t00=0x0014, t01=0x0120}
0x206a…207e Head {h00=0x0010, h01=0x0050, text=» LDK A1,/40 «, t00=0x0014, t01=0x0138}
0x207e…2096 Head {h00=0x0014, h01=0x0050, text=» XRS A1,DWTST,A6«, t00=0x0014, t01=0x014c}
0x2096…20a8 Head {h00=0x000e, h01=0x0050, text=» RB FL015 «, t00=0x0014, t01=0x0164}
0x20a8…20c2 Head {h00=0x0016, h01=0x0050, text=»FL030 CM DWTTP,A6 «, t00=0x0014, t01=0x0176}
0x20c2…20da Head {h00=0x0014, h01=0x0050, text=» RF EXIT END I/O«, t00=0x0014, t01=0x0190}
0x20da…20e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0018}
0x20e6…20f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0024}
0x20f4…20fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0032}
0x20fe…2112 Head {h00=0x0010, h01=0x0050, text=»SOPOFF EQU *«, t00=0x0015, t01=0x003c}
0x2112…2142 Head {h00=0x002c, h01=0x0050, text=» C1R A3,A3 GET COMPLEMENTED CONTROL WORD«, t00=0x0015, t01=0x0050}
0x2142…217a Head {h00=0x0034, h01=0x0050, text=» ANS A3,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF «, t00=0x0015, t01=0x0080}
0x217a…218e Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0015, t01=0x00b8}
0x218e…21b6 Head {h00=0x0024, h01=0x0050, text=» ANS A3,FLASH STOP SOME FLASHING«, t00=0x0015, t01=0x00cc}
0x21b6…21c2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00f4}
0x21c2…21f2 Head {h00=0x002c, h01=0x0050, text=» RF SOPONOF BRANCH TO COMMON ON/OFF PATH«, t00=0x0015, t01=0x0100}
0x21f2…21fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0130}
0x21fc…2206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013a}
0x2206…2236 Head {h00=0x002c, h01=0x0050, text=»* TURN ON LIGHTS INDICATED BY '1' BITS:«, t00=0x0015, t01=0x0144}
0x2236…2240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0174}
0x2240…2254 Head {h00=0x0010, h01=0x0050, text=»SOPON EQU * «, t00=0x0015, t01=0x017e}
0x2254…227a (22, 0, 400) Head {h00=0x0022, h01=0x0050, text=»* A3 CONTAINS CONTROL WORD «, t00=0x0016, t01=0x0004}
0x227a…22ac Head {h00=0x002e, h01=0x0050, text=» ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON «, t00=0x0016, t01=0x002a}
0x22ac…22c0 Head {h00=0x0010, h01=0x0050, text=» IFT WRFLA=1«, t00=0x0016, t01=0x005c}
0x22c0…22d2 Head {h00=0x000e, h01=0x0050, text=» C1R A3,A3«, t00=0x0016, t01=0x0070}
0x22d2…2300 Head {h00=0x002a, h01=0x0050, text=» ANS A3,FLASH STOP SOME OTHER FLASHING«, t00=0x0016, t01=0x0082}
0x2300…230c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00b0}
0x230c…2316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00bc}
0x2316…2334 Head {h00=0x001a, h01=0x0050, text=»* COMMON ON/OFF PATH:«, t00=0x0016, t01=0x00c6}
0x2334…233e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e4}
0x233e…2372 Head {h00=0x0030, h01=0x0050, text=»SOPONOFF LD A1,SPDLCI GET LIGHTS' CORE IMAGE«, t00=0x0016, t01=0x00ee}
0x2372…239e Head {h00=0x0028, h01=0x0050, text=» OTR A1,0,SOPDA AND OUTPUT TO S.O.P.«, t00=0x0016, t01=0x0122}
0x239e…23a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x014e}
0x23a8…23c8 Head {h00=0x001c, h01=0x0050, text=» RF ENDIO PERFORM TENDIO«, t00=0x0016, t01=0x0158}
0x23c8…23d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0178}
0x23d6…23e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0186}
0x23e0…2404 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0016, t01=0x0190}
0x2404…2428 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0017, t01=0x0024}
0x2428…244c Head {h00=0x0020, h01=0x0050, text=»* S.O.P. INTERRUPT HANDLER *«, t00=0x0017, t01=0x0048}
0x244c…2470 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0017, t01=0x006c}
0x2470…2494 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0017, t01=0x0090}
0x2494…249e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b4}
0x249e…24a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00be}
0x24a8…24ec Head {h00=0x0040, h01=0x0050, text=»* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. «, t00=0x0017, t01=0x00c8}
0x24ec…24f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x010c}
0x24f6…253a Head {h00=0x0040, h01=0x0050, text=»* IF NO REQUEST IS IN PROCEEDING THE INTERRUPT IS IGNORED.«, t00=0x0017, t01=0x0116}
0x253a…2544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015a}
0x2544…254c Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0164}
0x254c…2560 Head {h00=0x0010, h01=0x0050, text=»IHSOP EQU * «, t00=0x0017, t01=0x016c}
0x2560…2576 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0017, t01=0x0180}
0x2576…25a0 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0018, t01=0x0008}
0x25a0…25ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0032}
0x25ac…25b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x003e}
0x25b6…25cc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0018, t01=0x0048}
0x25cc…25f2 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0018, t01=0x005e}
0x25f2…25fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0084}
0x25fe…2608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0090}
0x2608…2630 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0018, t01=0x009a}
0x2630…2652 Head {h00=0x001e, h01=0x0050, text=» INR A1,0,SOPDA GET SWITCH«, t00=0x0018, t01=0x00c2}
0x2652…2670 Head {h00=0x001a, h01=0x0050, text=» SRN A1,A2 CALC INDEX «, t00=0x0018, t01=0x00e4}
0x2670…2686 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0018, t01=0x0102}
0x2686…2698 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0018, t01=0x0118}
0x2698…26a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x012a}
0x26a4…26ba Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0018, t01=0x0136}
0x26ba…26cc Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0018, t01=0x014c}
0x26cc…26d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x015e}
0x26d8…26e0 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x016a}
0x26e0…26f4 Head {h00=0x0010, h01=0x0050, text=»IHSOP1 EQU *«, t00=0x0018, t01=0x0172}
0x26f4…2708 Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x0018, t01=0x0186}
0x2708…272e Head {h00=0x0022, h01=0x0050, text=» LDKL A6,DWSI02 ANY REQUEST ON«, t00=0x0019, t01=0x000a}
0x272e…2752 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0019, t01=0x0030}
0x2752…276a Head {h00=0x0014, h01=0x0050, text=» RF(N) IHSOP2 NO«, t00=0x0019, t01=0x0054}
0x276a…2792 Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB-ADDRESS«, t00=0x0019, t01=0x006c}
0x2792…27b6 Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBCW,A8 STORE INDEX «, t00=0x0019, t01=0x0094}
0x27b6…27e2 Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x0019, t01=0x00b8}
0x27e2…27f4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0019, t01=0x00e4}
0x27f4…2812 Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0019, t01=0x00f6}
0x2812…281e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0114}
0x281e…2826 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0120}
0x2826…2852 Head {h00=0x0028, h01=0x0050, text=»IHSOP2 LDKL A6,DWSI01 ANY REQUEST ON«, t00=0x0019, t01=0x0128}
0x2852…2876 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x0019, t01=0x0154}
0x2876…288c Head {h00=0x0012, h01=0x0050, text=» RF(N) EXIT NO«, t00=0x0019, t01=0x0178}
0x288c…28b4 Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB-ADDRESS«, t00=0x0019, t01=0x018e}
0x28b4…28bc Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0026}
0x28bc…28e6 Head {h00=0x0026, h01=0x0050, text=»IHSOP3 ST A2,ECBCW,A8 STORE INDEX «, t00=0x001a, t01=0x002e}
0x28e6…28ee Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0058}
0x28ee…291e Head {h00=0x002c, h01=0x0050, text=»ENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH«, t00=0x001a, t01=0x0060}
0x291e…2930 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001a, t01=0x0090}
0x2930…294e Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x001a, t01=0x00a2}
0x294e…2956 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00c0}
0x2956…297e Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x001a, t01=0x00c8}
0x297e…298c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00f0}
0x298c…2996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00fe}
0x2996…29c4 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001a, t01=0x0108}
0x29c4…29f2 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x001a, t01=0x0136}
0x29f2…2a20 Head {h00=0x002a, h01=0x0050, text=»* S.O.P POWER UP RECOVERY ROUTINE * «, t00=0x001a, t01=0x0164}
0x2a20…2a4e (27, 0, 400) Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x001b, t01=0x0004}
0x2a4e…2a7c Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001b, t01=0x0032}
0x2a7c…2a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0060}
0x2a86…2a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006a}
0x2a90…2ace Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE «, t00=0x001b, t01=0x0074}
0x2ace…2b0a Head {h00=0x0038, h01=0x0050, text=»* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD«, t00=0x001b, t01=0x00b2}
0x2b0a…2b4e Head {h00=0x0040, h01=0x0050, text=»* BE PRESENT IN THE POWER FAILURE RECOVERY TABLE (PFTAB). «, t00=0x001b, t01=0x00ee}
0x2b4e…2b8e Head {h00=0x003c, h01=0x0050, text=»* IF RUNNING READ REQUEST THIS IS COMPLETED WITH -2 IN«, t00=0x001b, t01=0x0132}
0x2b8e…2bc2 Head {h00=0x0030, h01=0x0050, text=»* CONTROL WORD. ELSE -2 IS SAVED IN DWTCHP«, t00=0x001b, t01=0x0172}
0x2bc2…2bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0016}
0x2bcc…2bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0020}
0x2bd6…2bf6 Head {h00=0x001c, h01=0x0050, text=»SOPR EQU * ENTRY POINT «, t00=0x001c, t01=0x002a}
0x2bf6…2c0c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001c, t01=0x004a}
0x2c0c…2c36 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x001c, t01=0x0060}
0x2c36…2c42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x008a}
0x2c42…2c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0096}
0x2c4c…2c62 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001c, t01=0x00a0}
0x2c62…2c88 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x001c, t01=0x00b6}
0x2c88…2c94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00dc}
0x2c94…2c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e8}
0x2c9e…2cc4 Head {h00=0x0022, h01=0x0050, text=» CIO A1,1,SOPDA ACTIVATE INPUT«, t00=0x001c, t01=0x00f2}
0x2cc4…2cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0118}
0x2cce…2cfa Head {h00=0x0028, h01=0x0050, text=» LD A1,SPDLCI GET LIGHTS' CORE IMAGE«, t00=0x001c, t01=0x0122}
0x2cfa…2d2a Head {h00=0x002c, h01=0x0050, text=» OTR A1,0,SOPDA AND OUTPUT TO THE LIGHTS«, t00=0x001c, t01=0x014e}
0x2d2a…2d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x017e}
0x2d34…2d4a Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x001c, t01=0x0188}
0x2d4a…2d70 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,-2 POWER UP INDICATOR«, t00=0x001d, t01=0x000e}
0x2d70…2d7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0034}
0x2d7c…2d92 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x001d, t01=0x0040}
0x2d92…2da4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001d, t01=0x0056}
0x2da4…2db0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0068}
0x2db0…2db8 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0074}
0x2db8…2dcc Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x001d, t01=0x007c}
0x2dcc…2df2 Head {h00=0x0022, h01=0x0050, text=» LDKL A6,DWSI02 ANY REQUEST ON«, t00=0x001d, t01=0x0090}
0x2df2…2e1a Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS WORD «, t00=0x001d, t01=0x00b6}
0x2e1a…2e34 Head {h00=0x0016, h01=0x0050, text=» RF(NN) SOPR1 YES «, t00=0x001d, t01=0x00de}
0x2e34…2e54 Head {h00=0x001c, h01=0x0050, text=» STR A2,A6 IND POWER UP «, t00=0x001d, t01=0x00f8}
0x2e54…2e60 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0118}
0x2e60…2e68 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0124}
0x2e68…2e94 Head {h00=0x0028, h01=0x0050, text=»SOPR1 LDKL A6,DWSI01 ANY REQUEST ON «, t00=0x001d, t01=0x012c}
0x2e94…2eb8 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTST,A6 STATUS WORD «, t00=0x001d, t01=0x0158}
0x2eb8…2ed2 Head {h00=0x0016, h01=0x0050, text=» RF(NN) SOPR2 YES «, t00=0x001d, t01=0x017c}
0x2ed2…2ef2 Head {h00=0x001c, h01=0x0050, text=» STR A2,A6 IND POWER UP «, t00=0x001e, t01=0x0008}
0x2ef2…2efa Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0028}
0x2efa…2f12 Head {h00=0x0014, h01=0x0050, text=»SOPR2 RB IHSOP1 «, t00=0x001e, t01=0x0030}
0x2f12…2f20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0048}
0x2f20…2f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0056}
0x2f2a…2f4e Head {h00=0x0020, h01=0x0050, text=»* D W S I 0 1 : INPUT DWT «, t00=0x001e, t01=0x0060}
0x2f4e…2f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0084}
0x2f58…2f6c Head {h00=0x0010, h01=0x0050, text=»DWSI01 EQU *«, t00=0x001e, t01=0x008e}
0x2f6c…2f9c Head {h00=0x002c, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER: POWER UP IND «, t00=0x001e, t01=0x00a2}
0x2f9c…2fcc Head {h00=0x002c, h01=0x0050, text=» DATA /8000 /8000 MEANS DEVICE IS READY «, t00=0x001e, t01=0x00d2}
0x2fcc…2fe8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x001e, t01=0x0102}
0x2fe8…2ffe Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x001e, t01=0x011e}
0x2ffe…3012 Head {h00=0x0010, h01=0x0050, text=» DATA SOPADI«, t00=0x001e, t01=0x0134}
0x3012…3022 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001e, t01=0x0148}
0x3022…3032 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001e, t01=0x0158}
0x3032…3050 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x001e, t01=0x0168}
0x3050…3066 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x001e, t01=0x0186}
0x3066…3090 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x001f, t01=0x000c}
0x3090…30b4 Head {h00=0x0020, h01=0x0050, text=» DATA DEVECI MMU ECB ADDRESS«, t00=0x001f, t01=0x0036}
0x30b4…30c8 Head {h00=0x0010, h01=0x0050, text=»DEVECI EQU *«, t00=0x001f, t01=0x005a}
0x30c8…30e2 Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x001f, t01=0x006e}
0x30e2…30ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0088}
0x30ee…30f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0094}
0x30f8…311c Head {h00=0x0020, h01=0x0050, text=»* D W S O 0 1 : OUTPUT DWT«, t00=0x001f, t01=0x009e}
0x311c…3126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00c2}
0x3126…3130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00cc}
0x3130…3144 Head {h00=0x0010, h01=0x0050, text=»DWSO01 EQU *«, t00=0x001f, t01=0x00d6}
0x3144…316a Head {h00=0x0022, h01=0x0050, text=» DATA /0040 CHANNEL PARAMETER «, t00=0x001f, t01=0x00ea}
0x316a…319a Head {h00=0x002c, h01=0x0050, text=» DATA /8000 /8000 MEANS DEVICE IS READY «, t00=0x001f, t01=0x0110}
0x319a…31b6 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x001f, t01=0x0140}
0x31b6…31cc Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x001f, t01=0x015c}
0x31cc…31fa Head {h00=0x002a, h01=0x0050, text=» DATA SOPADU POINTER TO ADDRESS BLOCK «, t00=0x001f, t01=0x0172}
0x31fa…3216 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0020, t01=0x0010}
0x3216…323e Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0020, t01=0x002c}
0x323e…325c Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0020, t01=0x0054}
0x325c…3272 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0020, t01=0x0072}
0x3272…329c Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0020, t01=0x0088}
0x329c…32c0 Head {h00=0x0020, h01=0x0050, text=» DATA DEVECO MMU ECB ADDRESS«, t00=0x0020, t01=0x00b2}
0x32c0…32cc Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0020, t01=0x00d6}
0x32cc…32ea Head {h00=0x001a, h01=0x0050, text=» DATA 0 TIMER POINTER «, t00=0x0020, t01=0x00e2}
0x32ea…331c Head {h00=0x002e, h01=0x0050, text=»FLASH DATA 0 SAVE AREA FOR FLASHING LAMPS «, t00=0x0020, t01=0x0100}
0x331c…3332 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0020, t01=0x0132}
0x3332…3346 Head {h00=0x0010, h01=0x0050, text=»DEVECO EQU *«, t00=0x0020, t01=0x0148}
0x3346…3360 Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0020, t01=0x015c}
0x3360…336c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0176}
0x336c…337a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0182}
0x337a…3382 Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0190}
0x3382…338c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0008}
0x338c…33ba Head {h00=0x002a, h01=0x0050, text=»* D W S I 0 2 : EXTENDED INPUT DWT «, t00=0x0021, t01=0x0012}
0x33ba…33c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0040}
0x33c4…33cc Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x004a}
0x33cc…33e0 Head {h00=0x0010, h01=0x0050, text=»DWSI02 EQU *«, t00=0x0021, t01=0x0052}
0x33e0…33f4 Head {h00=0x0010, h01=0x0050, text=» IFF SOPX=0 «, t00=0x0021, t01=0x0066}
0x33f4…3404 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0021, t01=0x007a}
0x3404…3418 Head {h00=0x0010, h01=0x0050, text=» DATA /8000 «, t00=0x0021, t01=0x008a}
0x3418…3434 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0021, t01=0x009e}
0x3434…344a Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0021, t01=0x00ba}
0x344a…345e Head {h00=0x0010, h01=0x0050, text=» DATA SOPADI«, t00=0x0021, t01=0x00d0}
0x345e…3472 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0021, t01=0x00e4}
0x3472…3488 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x00f8}
0x3488…34b2 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0021, t01=0x010e}
0x34b2…34d6 Head {h00=0x0020, h01=0x0050, text=» DATA DEVEC1 MMU ECB ADDRESS«, t00=0x0021, t01=0x0138}
0x34d6…34ea Head {h00=0x0010, h01=0x0050, text=»DEVEC1 EQU *«, t00=0x0021, t01=0x015c}
0x34ea…3504 Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0021, t01=0x0170}
0x3504…3510 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x018a}
0x3510…351a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0008}
0x351a…3524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0012}
0x3524…352e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x001c}
0x352e…353a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0022, t01=0x0026}
0x353a…353e Head {h00=0x4004, h01=0x0000}
0x353e…3542 00 22 00 32 ┆ " 2┆
0x3542…354a (35, 1, 8) 20 04 00 00 00 23 00 04 ┆ # ┆
0x354a…359a (36, 0, 400) 45 43 20 49 4e 20 43 55 52 52 45 4e 54 20 42 4c 4f 43 4b 42 55 46 46 45 52 20 00 13 01 82 00 06 00 50 2a 20 00 14 00 22 00 24 00 50 5c 41 44 5c 41 32 2c 46 44 42 52 4c 45 2c 41 31 5c 52 45 43 4f 52 20 44 20 20 4c 45 4e 47 54 48 00 14 00 2c ┆EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH ,┆
0x359a…35ea 00 1a 00 50 5c 41 44 4b 5c 41 32 2c 31 5c 53 54 41 54 55 53 20 43 48 41 52 20 00 14 00 54 00 20 00 50 5c 53 54 5c 41 32 2c 46 44 42 52 52 4f 2c 41 31 5c 4e 45 57 20 4f 46 46 53 45 54 20 00 14 00 72 00 16 00 50 5c 52 46 5c 52 44 4e 39 35 30 ┆ P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950┆
0x35ea…363a 5c 52 45 54 55 52 4e 20 00 14 00 96 00 06 00 50 2a 20 00 14 00 b0 00 34 00 50 2a 20 20 20 43 48 45 43 4b 20 49 46 20 54 48 49 53 20 52 45 43 4f 52 44 20 41 4c 53 4f 20 49 53 20 4c 41 53 54 20 49 4e 20 45 58 54 45 4e 54 20 00 14 00 ba 00 06 ┆ RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT ┆
0x363a…368a 00 50 2a 20 00 14 00 f2 00 10 00 50 52 44 4e 33 30 30 5c 45 51 55 5c 2a 00 14 00 fc 00 10 00 50 5c 53 54 52 5c 41 37 2c 41 31 34 20 00 14 01 10 00 10 00 50 5c 53 55 4b 4c 5c 41 31 34 2c 34 20 00 14 01 24 00 10 00 50 5c 53 54 5c 41 36 2c 32 ┆ P* PRDN300 EQU * P STR A7,A14 P SUKL A14,4 $ P ST A6,2┆
0x368a…36da 2c 41 31 34 00 14 01 38 00 1e 00 50 5c 4c 44 5c 41 33 2c 46 44 42 43 45 58 2c 41 31 5c 45 58 54 20 41 44 44 52 20 00 14 01 4c 00 1e 00 50 5c 4c 44 5c 41 35 2c 45 58 54 42 41 53 2c 41 33 5c 45 58 54 20 42 41 53 45 20 00 14 01 6e 00 22 00 50 ┆,A14 8 P LD A3,FDBCEX,A1 EXT ADDR L P LD A5,EXTBAS,A3 EXT BASE n " P┆